100 GOTO 170
110 T = TI
120 GET I$ : IF I$="" AND TI-T < 300 THEN GOTO 120
130 IF I$="Q" THEN END
140 PRINT CHR$(147);
150 FOR I=1 TO 15:PRINTCHR$(13);:NEXT
160 RETURN
170 V=$CDF0: I$=""
180 S = $0400: C = $D800
190 GOSUB 140
200 REM GOTO 2870
210 PRINT"TEST SAVE ORIG: ";
220 SYS49152
230 E = 0 : A = DEEK(V)
240 FOR I=0 TO 35
250 E = E + PEEK(A+I) - PEEK($D1+I)
260 NEXT : IF E = 0 THEN PRINT"TAB OK; ";
270 A = DEEK(V+2)
280 IF DEEK(A) = DEEK($0326) THEN PRINT"PTR OK; ";
290 A = DEEK(V+4)
300 IF PEEK(A) = PEEK($0286) THEN PRINT"COLOR OK; ";
305 A = DEEK(V+6)
306 IF PEEK(A) = PEEK($C7) THEN PRINT"INV OK"
310 GOSUB 110
320 PRINT"TEST SET START OF LINE: ";
330 SYS49158
340 P = 7 * 40
350 IF DEEK(V) = S+P THEN PRINT "WLNP OK"
360 GOSUB 110
370 PRINT"TEST CLEAR SCR LINE: ";
380 SYS49161
390 P1 = 3 * 40: P2 = P + 39
400 IF PEEK(S+P1) = 32 AND PEEK(S+P2) = 32 THEN PRINT"SCR OK; ";
410 F = PEEK(V)
420 F1 = PEEK(C+P1) AND $0F
430 F2 = PEEK(C+P2) AND $0F
440 IF F1 = F AND F2 = F THEN PRINT"COLOR OK; "
450 GOSUB 110
460 PRINT"TEST CLEAR SCR 1: ";
470 SYS49164
480 P1 = 0 : P2 = 4 * 40 + 39
490 IF PEEK(S+P1) = 32 AND PEEK(S+P2) = 32 THEN PRINT"CLR OK"
500 GOSUB 110
510 PRINT"TEST CLEAR SCR 2: ";
520 SYS49167
530 P1 = 2 * 40: P2 = P1 + 39
540 IF PEEK(S+P1) = 32 AND PEEK(S+P2) = 32 THEN PRINT"CLR OK"
550 GOSUB 110
560 PRINT"TEST HOME CURSOR: ";
570 SYS49170
580 IF DEEK(V) = S THEN PRINT "WLNP OK; ";
590 IF PEEK(V+2) = 0 AND PEEK(V+3) = 0 THEN PRINT"WX/WY OK"
600 GOSUB 110
610 PRINT"TEST MOVE SCR LINE: ";
620 SYS49173
630 P1 = 2 * 40 : P2 = P1 + 39
640 P3 = 4 * 40 : P4 = P3 + 39
650 OK = 0
660 IF PEEK(S+P1) = PEEK(S+P3) THEN OK = 1
670 IF PEEK(S+P2) = PEEK(S+P4) AND OK THEN PRINT"SCR OK; ";
680 OK = 0
690 IF PEEK(C+P1) = PEEK(C+P3) THEN OK = 1
700 IF PEEK(C+P2) = PEEK(C+P4) AND OK THEN PRINT"COLOR OK"
710 GOSUB 110
720 PRINT"TEST SCROLL 1: ";
730 SYS49176
740 P1 = 0 : P2 = P1 + 39 : E = 0
750 FOR I=0 TO 3
760 E = E + PEEK(S+P1) - 48
770 E = E + PEEK(S+P2) - 48
780 P1 = P1 + 40 : P2 = P2 + 40
790 NEXT
800 IF E = 2 * (1+2+3+4) THEN PRINT"SCR OK; ";
810 IF PEEK(S+P1) = 32 AND PEEK(S+P2) = 32 THEN PRINT"SPC OK"
820 GOSUB 110
830 PRINT"TEST SCROLL 2: ";
840 SYS49179
850 P1 = 0 : P2 = P1 + 39
860 IF PEEK(S+P1) = 32 AND PEEK(S+P2) = 32 THEN PRINT"SPC OK"
870 GOSUB 110
880 PRINT"TEST BACKSCROLL 1: ";
890 SYS49182
900 P1 = 40 : P2 = P1 + 39 : E = 0
910 IF PEEK(S+P1) = 32 AND PEEK(S+P2) = 32 THEN PRINT"SPC OK; ";
920 FOR I=0 TO 3
930 P1 = P1 + 40 : P2 = P2 + 40
940 E = E + PEEK(S+P1) - 48
950 E = E + PEEK(S+P2) - 48
960 NEXT
970 IF E = 2 * (0+1+2+3) THEN PRINT"SCR OK"
980 GOSUB 110
990 PRINT"TEST BACKSCROLL 2: ";
1000 SYS49185
1010 P1 = 5*40 : P2 = P1 + 39
1020 IF PEEK(S+P1) = 32 AND PEEK(S+P2) = 32 THEN PRINT"SPC OK"
1030 GOSUB 110
1040 PRINT"TEST GOTO NEXT LINE 1: ";
1050 SYS49188
1060 P = 3*40
1070 IF DEEK(V) = S+P THEN PRINT "WLNP OK; ";
1080 IF PEEK(V+2) = 3 THEN PRINT"WY OK"
1090 GOSUB 110
1100 PRINT"TEST GOTO NEXT LINE 2: ";
1110 SYS49191
1120 P = 5*40
1130 IF DEEK(V) = S+P THEN PRINT "WLNP OK; ";
1140 IF PEEK(V+2) = 5 THEN PRINT"WY OK"
1150 GOSUB 110
1160 PRINT"TEST PERFORM RETURN: ";
1170 SYS49194
1180 P = 3*40
1190 IF DEEK(V) = S+P THEN PRINT "WLNP OK; ";
1200 IF PEEK(V+2) = 0 AND PEEK(V+3) = 3 THEN PRINT"WX/WY OK"
1210 GOSUB 110
1220 PRINT"TEST GOTO PREV LINE 1: ";
1230 SYS49197
1240 P = 2*40
1250 IF DEEK(V) = S+P THEN PRINT "WLNP OK; ";
1260 IF PEEK(V+2) = 2 THEN PRINT"WY OK"
1270 GOSUB 110
1280 PRINT"TEST GOTO PREV LINE 2: ";
1290 SYS49200
1300 P = 0*40
1310 IF DEEK(V) = S+P THEN PRINT "WLNP OK; ";
1320 IF PEEK(V+2) = 0 THEN PRINT"WY OK"
1330 GOSUB 110
1340 PRINT"TEST PERFORM BACKRETURN: ";
1350 SYS49203
1360 P = 1*40
1370 IF DEEK(V) = S+P THEN PRINT "WLNP OK; ";
1380 IF PEEK(V+2) = 0 AND PEEK(V+3) = 1 THEN PRINT"WX/WY OK"
1390 GOSUB 110
1400 PRINT"TEST ADVANCE CRSR 1: ";
1410 SYS49206
1420 P = 2*40
1430 IF DEEK(V) = S+P THEN PRINT "WLNP OK; ";
1440 IF PEEK(V+2) = 21 AND PEEK(V+3) = 2 THEN PRINT"WX/WY OK"
1450 GOSUB 110
1460 PRINT"TEST ADVANCE CRSR 2: ";
1470 SYS49209
1480 P = 3*40
1490 IF DEEK(V) = S+P THEN PRINT "WLNP OK; ";
1500 IF PEEK(V+2) = 0 AND PEEK(V+3) = 3 THEN PRINT"WX/WY OK"
1510 GOSUB 110
1520 PRINT"TEST BACK CRSR 1: ";
1530 SYS49212
1540 P = 2*40
1550 IF DEEK(V) = S+P THEN PRINT "WLNP OK; ";
1560 IF PEEK(V+2) = 19 AND PEEK(V+3) = 2 THEN PRINT"WX/WY OK"
1570 GOSUB 110
1580 PRINT"TEST BACK CRSR 2: ";
1590 SYS49215
1600 P = 1*40
1610 IF DEEK(V) = S+P THEN PRINT "WLNP OK; ";
1620 IF PEEK(V+2) = 39 AND PEEK(V+3) = 1 THEN PRINT"WX/WY OK"
1630 GOSUB 110
1640 PRINT"TEST DELETE CHAR 1: ";
1650 COLOUR9,0,13
1660 SYS49218
1670 P = 2*40 : P1 = P + 9 : P2 = P + 39
1680 IF PEEK(V) = 9 THEN PRINT"WX OK; ";
1690 IF PEEK(S+P1) = 10 AND PEEK(S+P2) = 32 THEN PRINT"SCR OK; ";
1700 F1 = PEEK(C+P1) AND $0F
1710 F2 = PEEK(C+P2) AND $0F
1720 IF F1 = 10 AND F2 = PEEK(V+1) THEN PRINT"COLOR OK";
1730 GOSUB 110
1740 PRINT"TEST DELETE CHAR 2: ";
1750 SYS49221
1760 P = 2*40 : P1 = P : P2 = P + 39
1770 IF PEEK(V) = 0 THEN PRINT"WX OK; ";
1780 IF PEEK(S+P1) = 0 AND PEEK(S+P2) = 39 THEN PRINT"SPC OK; ";
1790 F1 = PEEK(C+P1) AND $0F
1800 F2 = PEEK(C+P2) AND $0F
1810 IF F1 = 0 AND F2 = 7 THEN PRINT"COLOR OK";
1820 GOSUB 110
1830 PRINT"TEST INSERT CHAR 1: ";
1840 COLOUR9,11,13
1850 SYS49224
1860 P = 2*40 : P1 = P + 1 : P2 = P + 39
1870 IF PEEK(V) = 0 THEN PRINT"WX OK; ";
1880 OK=0
1890 IF PEEK(S+P1) = 0 AND PEEK(S+P2) = 38 THEN OK = 1
1900 IF PEEK(S+P) = 32 AND OK THEN PRINT"SCR OK; ";
1910 F = PEEK(C+P) AND $0F
1920 F1 = PEEK(C+P1) AND $0F
1930 F2 = PEEK(C+P2) AND $0F
1940 OK=0
1950 IF F1 = 0 AND F2 = 6 THEN OK=1
1960 IF F = PEEK(V+1) AND OK THEN PRINT"COLOR OK";
1970 GOSUB 110
1980 PRINT"TEST INSERT CHAR 2: ";
1990 SYS49227
2000 P = 2*40 + 39
2010 IF PEEK(V) = 39 THEN PRINT"WX OK; ";
2020 IF PEEK(S+P) = 32 THEN PRINT"SCR OK; ";
2030 F = PEEK(C+P) AND $0F
2040 IF F = PEEK(V+1) THEN PRINT"COLOR OK";
2050 GOSUB 110
2060 PRINT"TEST SETUP SCR PRINT: ";
2070 SYS49230
2075 COLOUR0,0,13
2080 P = 2*40 : P1 = P + 20 : P2 = P1 + 1
2090 OK = 0
2100 IF PEEK(S+P1) = 2 THEN OK = 1
2110 IF PEEK(S+P2) = 3+128 AND OK THEN PRINT"SCR OK; ";
2120 F1 = PEEK(C+P1) AND $0F
2130 F2 = PEEK(C+P2) AND $0F
2140 IF F1 = PEEK(V) AND F2 = PEEK(V) THEN PRINT"COLOR OK";
2150 GOSUB 110
2151 PRINT"TEST OUTPUT REGISTERS: ";
2152 SYS49233
2153 OK = 0
2154 IF PEEK(V) = 65 AND PEEK(V+1) = 100 THEN OK=1
2155 IF PEEK(V+2) = 200 AND OK THEN PRINT"A/X/Y OK"
2156 GOSUB 110
2160 PRINT"TEST UNSHIFTED CHARS: ";
2170 SYS49236
2180 P1 = 0 : P2 = P1 + 32 : P3 = P2 + 32
2190 OK = 0
2200 IF PEEK(S+P1) = 32 AND PEEK(S+P2) = 0 THEN OK=1
2210 IF PEEK(S+P3) = 64 AND OK THEN PRINT"SCR OK"
2220 GOSUB 110
2230 PRINT"TEST SHIFTED CHARS: ";
2240 SYS49239
2250 P1 = 0 : P2 = P1 + 32 : P3 = P2 + 32
2260 OK = 0
2270 IF PEEK(S+P1) = 96 AND PEEK(S+P2) = 64 THEN OK=1
2280 IF PEEK(S+P3) = 96 AND OK THEN PRINT"SCR OK"
2290 GOSUB 110
2300 PRINT"TEST RETURN: ";
2310 SYS49242
2320 IF PEEK(V) = 0 AND PEEK(V+1) = 3 THEN PRINT"WX/WY OK"
2330 GOSUB 110
2340 PRINT"TEST SHIFT RETURN: ";
2350 SYS49245
2360 IF PEEK(V) = 0 AND PEEK(V+1) = 1 THEN PRINT"WX/WY OK"
2370 GOSUB 110
2380 PRINT"TEST MOVE CRSR: ";
2390 SYS49248
2400 IF PEEK(V) = 21 AND PEEK(V+1) = 2 THEN PRINT"RIGHT OK; ";
2410 IF PEEK(V+2) = 21 AND PEEK(V+3) = 3 THEN PRINT"DOWN OK; ";
2420 IF PEEK(V+4) = 20 AND PEEK(V+5) = 3 THEN PRINT"LEFT OK; ";
2430 IF PEEK(V+6) = 20 AND PEEK(V+7) = 2 THEN PRINT"UP OK; ";
2440 IF PEEK(V+8) = 0 AND PEEK(V+9) = 0 THEN PRINT"HOME OK"
2450 GOSUB 110
2460 PRINT"TEST CLR: ";
2470 SYS49251
2480 P1 = 0 : P2 = P1 + 4*40 + 39
2490 IF PEEK(P1+S) = 32 AND PEEK(P2+S) = 32 THEN PRINT"SCR OK"
2500 GOSUB 110
2510 PRINT"TEST RVS: ";
2520 SYS49254
2530 P1 = 0 : P2 = 1 : P3 = 2
2540 OK = 0
2550 IF PEEK(P1+S) = 1 AND PEEK(P2+S) = 2+128 THEN OK = 1
2560 IF PEEK(P3+S) = 3 AND OK THEN PRINT"SCR OK"
2570 GOSUB 110
2580 PRINT"TEST COLORS: ";
2590 SYS49257
2600 OK = 0 : J = 15
2610 FOR I=0 TO 15
2615 F = PEEK(C+I) AND $0F
2620 IF F = J THEN OK = OK + 1
2630 J = J - 1
2640 NEXT
2650 IF OK = 16 THEN PRINT"OK"
2660 GOSUB 110
2670 PRINT"TEST DEL: ";
2680 COLOUR9,0,13
2690 SYS49260
2700 P = 2*40 + 39
2710 IF PEEK(P+S) = 32 THEN PRINT"SCR OK; ";
2720 IF PEEK(V) = 19 THEN PRINT"WX OK"
2730 GOSUB 110
2740 PRINT"TEST INS: ";
2750 COLOUR9,0,13
2760 SYS49263
2770 P = 2*40 + 20
2780 IF PEEK(P+S) = 32 THEN PRINT"SCR OK; ";
2790 IF PEEK(V) = 20 THEN PRINT"WX OK"
2800 GOSUB 110
2810 PRINT"TEST UNKNOWN: ";
2815 COLOUR0,0,13
2820 SYS49266
2830 IF DEEK(V) = S + 40 THEN PRINT"WLNP OK; ";
2840 IF PEEK(V+2) = 1 AND PEEK(V+3) = 1 THEN PRINT"WX/WY OK"
2850 IF PEEK(V+4) = 0 THEN PRINT"RVS OK"
2860 GOSUB 110
2870 PRINT"TEST PUT ROW COL: ";
2880 SYS49269
2890 IF DEEK(V) = S + 2*40 THEN PRINT"WLNP OK; ";
2900 IF PEEK(V+2) = 20 AND PEEK(V+3) = 2 THEN PRINT"WX/WY OK"
2910 GOSUB 110
2920 PRINT"TEST SET WPTRS: ";
2930 SYS49272
2940 A1 = DEEK(V) : A2 = DEEK(V+2)
2950 IF DEEK(A1) = 0 THEN PRINT"WPTRS 1 OK; ";
2960 IF DEEK(A2) = 24*40 THEN PRINT"WPTRS 2 OK"
2970 GOSUB 110
2980 PRINT"TEST SET DEFAULT: ";
2990 SYS49275
3000 A1 = DEEK(V) : A2 = DEEK(V+2)
3010 IF DEEK(A1) = 0 THEN PRINT"WPTRS OK; ";
3020 IF DEEK(A2) = 0 THEN PRINT"SPTRS OK; ";
3030 IF PEEK(V+4) = 24 THEN PRINT"WROWS OK; ";
3040 IF PEEK(V+5) = 24 THEN PRINT"SROWS OK; ";
3050 IF PEEK(V+6) = 0 AND PEEK(V+7) = 0 THEN PRINT"SX/SY OK"
3060 GOSUB 110
3070 REM TEST WINIT/WQUIT
3080 SYS49278
3090 PRINT"TEST WINIT/WQUIT: ";
3100 IF DEEK(V) = S THEN PRINT"WLNP OK; ";
3110 IF PEEK(V+2) = 1 AND PEEK(V+3) = 0 THEN PRINT"WX/WY OK; ";
3120 IF PEEK(S) = 1 THEN PRINT"SCR OK"
3130 GOSUB 110
3140 REM TEST WSPLIT 1
3150 SYS49281
3160 PRINT"TEST WSPLIT 1: ";
3170 IF DEEK(V) = S THEN PRINT"WLNP OK; ";
3180 IF PEEK(V+2) = 0 AND PEEK(V+3) = 0 THEN PRINT"WX/WY OK; ";
3190 IF PEEK(V+4) = 7 THEN PRINT"WROWS OK; ";
3200 A = DEEK(V+5)
3210 IF DEEK(A) = 9*40 THEN PRINT"SPTRS OK; ";
3220 IF DEEK(V+7) = 25-8-1-1 THEN PRINT"SROWS OK; ";
3230 IF PEEK(V+8) = 0 AND PEEK(V+9) = 0 THEN PRINT"SX/SY OK; ";
3240 P1 = 8*40 : P2 = P1 + 39
3250 IF PEEK(S+P1) = 64 AND PEEK(S+P2) = 64 THEN PRINT"SCR OK"
3260 GOSUB 110
3270 REM TEST WSPLIT 2
3280 SYS49284
3285 PRINT"TEST WSPLIT 2: ";
3290 IF PEEK(V) = 24 AND PEEK(V+2) THEN PRINT"WROWS OK; ";
3300 IF PEEK(V+1) = 24 AND PEEK(V+3) THEN PRINT"SROWS OK; ";
3310 IF PEEK(S) = 1 THEN PRINT"SCR OK"
3320 GOSUB 110
3330 REM TEST WSWITCH
3340 SYS49287
3350 PRINT"TEST WSWITCH: ";
3360 A = DEEK(V)
3370 IF DEEK(A) = 0 THEN PRINT"SPTRS OK; ";
3380 IF PEEK(V+2) = 5 THEN PRINT"SROWS OK; ";
3390 IF PEEK(V+3) = 1 THEN PRINT"SX OK; ";
3400 IF PEEK(V+4) = 2 THEN PRINT"SY OK; ";
3410 P1 = 0 : P2 = 1*40 : P3 = 2*40 : P4 = 7*40
3420 OK = 0
3430 IF PEEK(S+P1) = 1 AND PEEK(S+P2) = 2 AND PEEK(S+P3) = 3 THEN OK = 1
3440 IF PEEK(S+P4) = 4 AND OK THEN PRINT"SCR OK"
3450 GOSUB 110
3460 REM TEST WSPLIT 3
3470 SYS49290
3480 PRINT"TEST WSPLIT 3: ";
3490 IF DEEK(V) = S THEN PRINT"WLNP OK; ";
3500 IF PEEK(V+2) = 0 AND PEEK(V+3) = 0 THEN PRINT"WX/WY OK; ";
3510 IF PEEK(V+4) = 0 THEN PRINT"WROWS OK; ";
3520 A = DEEK(V+5)
3530 IF DEEK(A) = 2*40 THEN PRINT"SPTRS OK; ";
3540 IF DEEK(V+7) = 25-1-1-1 THEN PRINT"SROWS OK; ";
3550 IF PEEK(V+8) = 0 AND PEEK(V+9) = 0 THEN PRINT"SX/SY OK"
3560 GOSUB 110
3570 REM TEST WSPLIT 4
3580 SYS49293
3590 PRINT"TEST WSPLIT 4: ";
3600 IF DEEK(V) = S THEN PRINT"WLNP OK; ";
3610 IF PEEK(V+2) = 0 AND PEEK(V+3) = 0 THEN PRINT"WX/WY OK; ";
3620 IF PEEK(V+4) = 25-1-1-1 THEN PRINT"WROWS OK; ";
3630 A = DEEK(V+5)
3640 IF DEEK(A) = 24*40 THEN PRINT"SPTRS OK; ";
3650 IF DEEK(V+7) = 0 THEN PRINT"SROWS OK; ";
3660 IF PEEK(V+8) = 0 AND PEEK(V+9) = 0 THEN PRINT"SX/SY OK"
3670 GOSUB 110
3680 REM TEST WUNSPLIT
3690 SYS49296
3700 PRINT"TEST WUNSPLIT: ";
3710 IF DEEK(V) = S THEN PRINT"WLNP OK; ";
3720 IF PEEK(V+2) = 0 AND PEEK(V+3) = 0 THEN PRINT"WX/WY OK; ";
3730 IF PEEK(V+4) = 24 THEN PRINT"WROWS OK; ";
3740 IF PEEK(V+5) = 24 THEN PRINT"SROWS OK"
3750 GOSUB 110
3760 REM TEST HCOPY 1
3770 SYS49299
3780 PRINT"TEST HCOPY 1: ERGEBNIS IM DRUCKER";
3790 GOSUB 110
3800 REM TEST HCOPY 2
3810 SYS49302
3820 PRINT"TEST HCOPY 2: ERGEBNIS IM DRUCKER";

4000 GOSUB 110
4010 COLOUR0,0,13
4020 PRINT"FERTIG"

You are viewing proxied material from sdfeu.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.