home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1990 November
/
1990-11.d64
/
ditto.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
77 lines
1 rem copyright 1990 compute publications, intl., ltd. - all rights reserved
2 print"[147]reading data..."
3 colr=0:t=0
10 for a=0to491:readb:t=t+b:poke49152+a,b:next:poke49544,colr
20 if t<>70387 then print"error in data":end
30 print"create a disk file [y/n] ?"
40 poke198,0:wait198,1:geta$
50 if a$<>"y" then 101
60 input "filename";a$
70 open2,8,2,"0:"+a$+",p,w"
80 print#2,chr$(0)chr$(192);
90 fort=49152to49643:print#2,chr$(peek(t));:next
100 close2
101 sys49152
49152 data 120,169,51,141,20,3,169,192
49160 data 141,21,3,169,0,141,230,193
49168 data 141,233,193,141,234,193,88,169
49176 data 31,160,192,32,30,171,96,17
49184 data 69,68,73,84,79,82,32,65
49192 data 67,84,73,86,65,84,69,68
49200 data 46,17,0,173,230,193,240,3
49208 data 76,237,192,165,197,205,235,193
49216 data 240,19,141,235,193,201,3,240
49224 data 45,201,4,240,76,201,5,240
49232 data 104,201,6,240,3,76,49,234
49240 data 173,134,2,141,229,193,173,233
49248 data 193,240,8,173,234,193,240,3
49256 data 32,140,193,169,0,141,233,193
49264 data 141,234,193,76,49,234,173,233
49272 data 193,240,27,173,234,193,240,22
49280 data 173,134,2,141,229,193,32,140
49288 data 193,169,1,141,230,193,169,0
49296 data 141,233,193,141,234,193,76,49
49304 data 234,32,217,192,32,21,193,173
49312 data 231,193,133,251,173,232,193,133
49320 data 252,169,1,141,233,193,173,234
49328 data 193,240,3,32,92,193,76,49
49336 data 234,32,217,192,32,21,193,173
49344 data 231,193,133,253,173,232,193,133
49352 data 254,169,1,141,234,193,173,233
49360 data 193,240,3,32,92,193,76,49
49368 data 234,173,233,193,240,14,173,234
49376 data 193,240,9,173,134,2,141,229
49384 data 193,32,140,193,96,160,0,177
49392 data 251,32,49,193,141,119,2,169
49400 data 1,133,198,165,251,197,253,208
49408 data 11,165,252,197,254,208,5,169
49416 data 0,141,230,193,230,251,208,2
49424 data 230,252,76,49,234,165,209,141
49432 data 231,193,165,210,141,232,193,173
49440 data 231,193,24,101,211,141,231,193
49448 data 173,232,193,105,190,141,232,193
49456 data 96,162,0,134,199,72,41,128
49464 data 240,4,169,1,133,199,104,41
49472 data 127,201,32,176,6,24,105,64
49480 data 76,91,193,201,64,144,12,201
49488 data 127,176,6,24,105,128,76,91
49496 data 193,169,191,96,165,254,197,252
49504 data 144,110,208,6,165,253,197,251
49512 data 144,102,160,0,185,0,4,153
49520 data 0,194,185,0,5,153,0,195
49528 data 185,0,6,153,0,196,185,0
49536 data 7,153,0,197,200,208,229,169
49544 data 0,141,229,193,165,253,56,229
49552 data 251,141,227,193,165,254,229,252
49560 data 141,228,193,165,251,133,2,165
49568 data 252,24,105,22,133,3,238,227
49576 data 193,208,3,238,228,193,160,0
49584 data 173,229,193,145,2,173,227,193
49592 data 208,3,206,228,193,206,227,193
49600 data 200,208,2,230,3,173,227,193
49608 data 208,230,173,228,193,208,225,96
49616 data 166,251,164,252,165,253,133,251
49624 data 165,254,133,252,134,253,132,254
49632 data 76,106,193,0,0,0,0,0
49640 data 0,0,0,0