home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carousel Volume 2 #1
/
carousel.iso
/
comdore
/
64utils
/
autoprt
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1989-07-18
|
2KB
|
54 lines
10 FOR I=51000 TO 51282:READ A:CH=CH+A:POKEI,A:NEXT
20 IF CH<>37572 THEN PRINT"[147]ERROR IN DATA":END
30 PRINT"[147]AUTOPRINT IS NOW LOADED"
40 A=10:INPUT"LINE NUMBER INCREMENT (1-255)";A:POKE6,A
50 PRINT"TO ACTIVATE, TYPE SYS 51000"
60 PRINT"AND PRESS RETURN":NEW
70 DATA 32,207,255,169,1,141
80 DATA 82,200,169,0,133,253
90 DATA 169,4,133,254,169,100
100 DATA 133,2,169,0,133,3
110 DATA 165,43,133,251,165,44
120 DATA 133,252,160,0,177,251
130 DATA 170,200,177,251,240,19
140 DATA 72,200,177,251,133,2
150 DATA 200,177,251,133,3,104
160 DATA 134,251,133,252,24,144
170 DATA 227,162,24,160,2,24
180 DATA 165,2,101,6,133,2
190 DATA 145,251,165,3,105,0
200 DATA 133,3,200,145,251,200
210 DATA 169,153,145,251,200,169
220 DATA 34,145,251,200,140,79
230 DATA 200,169,0,141,80,200
240 DATA 172,80,200,177,253,41
250 DATA 128,240,14,173,82,200
260 DATA 208,23,169,1,141,82
270 DATA 200,169,18,208,39,173
280 DATA 82,200,240,9,169,0
290 DATA 141,82,200,169,146,208
300 DATA 25,177,253,41,127,201
310 DATA 32,144,9,201,64,144
320 DATA 9,201,96,144,3,24
330 DATA 105,32,105,32,200,140
340 DATA 80,200,172,79,200,145
350 DATA 251,200,140,79,200,172
360 DATA 80,200,192,40,208,181
370 DATA 172,79,200,224,0,208
380 DATA 1,136,169,34,145,251
390 DATA 200,169,59,145,251,200
400 DATA 169,0,145,251,200,24
410 DATA 152,101,251,72,165,252
420 DATA 105,0,160,1,145,251
430 DATA 141,81,200,136,104,145
440 DATA 251,133,251,173,81,200
450 DATA 133,252,24,165,253,105
460 DATA 40,133,253,144,2,230
470 DATA 254,202,48,3,76,119
480 DATA 199,160,0,152,145,251
490 DATA 200,145,251,24,200,152
500 DATA 101,251,170,165,252,105
510 DATA 0,168,134,45,132,46
520 DATA 134,47,132,48,134,49
530 DATA 132,50,96,0,0,0,0