home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8504a.d64
/
cp-80x
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
64 lines
100 REM *******************************
101 REM * HARDCOPY MIT SIMON'S BASIC *
103 REM * AUF CP-80X *
104 REM * *
105 REM * 1-1985 BY STEPHAN ARNDT *
106 REM * SUEDWESTKORSO 62 *
107 REM * 1000 BERLIN 41 *
108 REM * *
109 REM *******************************
110 :
120 : REM HARDCOPY DER HIRES - SEITE
130 : REM MIT ' SYS 32000 '
140 :
150 FOR I = 32000 TO 32293 STEP 8
160 S = 0
170 FOR K = 0 TO 7
180 READ A : S = S + A
190 POKE I+K , A
200 NEXT K
210 READ R : IF S = R THEN 230
220 PRINT " FEHLER IN ";300+N*10 :END
230 N=N+1:NEXT I
240 :
250 SYS 32284
260 :
300 DATA 76, 64,125, 0,224, 64,225,128, 906
310 DATA 226,192,227, 0,229, 64,230,128,1296
320 DATA 231,192,232, 0,234, 64,235,128,1316
330 DATA 236,192,237, 0,239, 64,240,128,1336
340 DATA 241,192,242, 0,244, 64,245,128,1356
350 DATA 246,192,247, 0,249, 64,250,128,1376
360 DATA 251,192,252, 0,254, 0, 0, 0, 949
370 DATA 0, 0, 0, 0, 0, 25, 8, 40, 73
380 DATA 234,169, 4,133,186,169, 96,133,1124
390 DATA 185,169, 0,133,183,169, 1,133, 973
400 DATA 184, 32,192,255,166,184, 32,201,1246
410 DATA 255,169, 27, 32,210,255,169, 51,1168
420 DATA 32,210,255,169, 22, 32,210,255,1185
430 DATA 162, 0,142, 61,125,174, 61,125,850
440 DATA 138, 10,170,189, 3,125,133,251,1019
450 DATA 189, 4,125,133,252,160, 20,169,1052
460 DATA 32, 32,210,255,136,208,250,169,1292
470 DATA 27, 32,210,255,169, 76, 32,210,1011
480 DATA 255,169, 64, 32,210,255,169, 1,1155
490 DATA 32,210,255,162, 0,142, 63,125, 989
500 DATA 160, 0,140, 62,125,120,120,165, 892
510 DATA 1, 41,253,133, 1, 41,253,234, 957
520 DATA 172, 62,125,177,251,162, 0,234,1183
530 DATA 10, 62, 53,125,232,224, 8,208, 922
540 DATA 246,172, 62,125,200,140, 62,125,1132
550 DATA 192, 8,208,227,165, 1, 9, 2, 812
560 DATA 133, 1, 88,160, 0,185, 53,125, 745
570 DATA 32,210,255,200,192, 8,208,245,1350
580 DATA 234, 24,165,251,105, 8,133,251,1171
590 DATA 165,252,105, 0,133,252,174, 63,1144
600 DATA 125,232,142, 63,125,224, 40,208,1159
610 DATA 167,169, 13, 32,210,255,174, 61,1081
620 DATA 125,232,142, 61,125,224, 25,240,1174
630 DATA 3, 76,109,125,234,169, 27, 32, 775
640 DATA 210,255,169, 50, 32,210,255, 32,1213
650 DATA 204,255, 88, 96,169,125,141,155,1233
660 DATA 129, 76, 10,128, 0, 0, 0, 0,343
670 :