home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1989 June
/
1989-06.d64
/
feedback
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
36 lines
10 fori=828to920:reada:pokei,a:x=x+a:next:ifx<>11720thenprint"[154]data error":stop
20 data 76,93,3,76,204,255
30 data 133,251,41,64,10,5
40 data 251,41,191,133,251,41
50 data 32,73,32,10,5,251
60 data 201,95,208,2,169,13
70 data 133,251,96,32,225,255
80 data 240,221,32,135,3,201
90 data 13,208,2,169,31,72
100 data 41,128,74,133,251,104
110 data 41,63,5,251,133,251
120 data 32,183,255,72,32,143
130 data 3,104,41,64,240,217
140 data 76,204,255,162,1,32
150 data 198,255,76,207,255,162
160 data 2,32,201,255,165,251
170 data 76,210,255
175 print"[147]":poke646,14:poke53281,6:poke53280,14
180 input"[201]nput file name";i$
190 input"[207]utput file name";o$
200 dv=8:sa=7
210 open15,8,15,"i0":rem remove ,"i0" if you've changed the drive's speed
220 open1,8,3,i$:input#15,en,em$:f$=i$:ifen=0then250
230 print"[196]isk error for ";f$:printem$
240 print"run[145][145][145]":close1:close2:close15:end
250 open2,dv,sa,"0:"+o$+",p,w":input#15,en,em$:f$=o$
260 ifen=0then320
270 ifen<>63then230
280 print"";o$;" exists... [210]eplace? [217][146]/[206][146]:"
290 geta$:ifa$<>"y"anda$<>"n"then290
300 ifa$="n"then240
310 print#15,"s0:"+o$:close2:goto250
320 sys828:if(peek(144)and191)=0thenprint"[196]one.":goto240
330 print"[201]/[207] [197]rror during conversion.":input#15,en,em$:ifen<>0then230
340 goto240