home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #12
/
Commodore_Disk_User_Vol.4_12_1991_-.d64
/
fs2-parameter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
54 lines
10 x=49152:cs=0:restore
20 readn:ifn=999then50
30 pokex,n:x=x+1:cs=cs+n
40 goto20
50 ifcs<>36050thenprint"[147]error in data":end
55 print"[147]insert save disk and press a key"
60 geta$:ifa$=""then60
70 print"[147]"
80 open2,8,2,"p900,p,w"
90 forx=49152to49459:n=peek(x):a$=chr$(n):print#2,a$;:nextx
100 close2
110 print"[147]finished"
120 end
999 :
1000 data 187,187,2,80,1,141,32,208
1010 data 169,101,141,254,255,169,1,141
1020 data 255,255,169,251,141,18,208,76
1030 data 147,34,72,169,0,141,48,208
1040 data 169,133,141,254,255,169,34,141
1050 data 255,255,169,50,141,18,208,169
1060 data 255,141,25,208,104,64,141,32
1070 data 208,169,0,141,48,208,76,185
1080 data 34,32,205,1,169,8,141,32
1090 data 208,76,113,121,72,133,158,134
1100 data 159,32,205,1,104,76,250,229
1110 data 72,141,32,208,32,205,1,104
1120 data 76,251,120,72,173,103,1,73
1130 data 1,141,103,1,104,72,173,158
1140 data 8,201,63,208,11,173,255,38
1150 data 208,6,238,255,38,76,226,167
1160 data 104,64,72,169,0,141,103,1
1170 data 141,48,208,104,96,187,187,2
1180 data 160,3,32,205,1,76,162,120
1190 data 32,205,1,76,30,121,32,205
1200 data 1,76,16,116,32,205,1,76
1210 data 103,115,32,205,1,76,180,115
1220 data 32,205,1,76,73,116,32,205
1230 data 1,76,87,116,187,187,2,0
1240 data 115,76,160,3,76,166,3,76
1250 data 172,3,76,178,3,76,184,3
1260 data 76,190,3,76,196,3,187,187
1270 data 2,133,34,72,169,53,133,1
1280 data 70,74,176,33,169,12,76,80
1290 data 1,169,240,141,24,208,169,200
1300 data 141,22,208,234,234,234,234,234
1310 data 169,255,141,25,208,230,74,165
1320 data 75,133,1,104,64,169,248,141
1330 data 24,208,169,14,76,129,1,187
1340 data 187,2,246,229,76,151,1,234
1350 data 187,187,2,250,255,174,1,187
1360 data 187,2,248,120,76,163,1,187
1370 data 187,2,108,121,76,140,1,234
1380 data 234,187,187,0,999