home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 66
/
066.d81
/
copy
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
84 lines
10 goto630
20 poke2,peek(56):poke56,peek(46)+10:clr:f=peek(56):i=1
30 h=i:n=255:ifpeek(2)<>160thenn=peek(2)
40 n=n-f-i:d=f*256:m=828:dimb%(35,20)
50 print"[147]":open1,8,15:d$="s":gosub540:f$=h$
60 gosub410:t=j:s=.:z=i:v=t:q=s
70 gosub280:print"[210]eading [199]etting [211]tarted diskette..."
80 ifb%(v,q)=.thengosub290:z=z+i:ifz>nthen110
90 q=q+i:ifq>20thenq=.:v=v+i
100 ifv<=lthen80
110 close3
120 d$="d":gosub540:ifh$<>c$thengoto120
130 gosub280:print"[215]riting [205]initel/64 [208]rogram diskette...":z=i:v=t:q=s
140 ifb%(v,q)=.thengosub340:z=z+i:ifz>nthen170
150 q=q+i:ifq>20thenq=.:v=v+i
160 ifv<=lthen140
170 close3:s=q+i:ifs>20thens=.:v=v+i
180 t=v:ift>lthen210
190 d$="s":gosub540:ifh$<>f$then190
200 z=i:v=t:q=s:goto70
210 close1:print"[195]opying complete. [210]efer to the"
220 print"[211]etting [213]p [205]initel/64 section on your"
230 print"instruction card.":goto620
240 a$="[205]initel/64 [208]gm":c$="pc"
250 print"[198]ormatting diskette..."
260 print#1,"n0:"+a$+","+c$:gosub530:ifethen610
270 h=.:return
280 print#1,"i0":open3,8,3,"#":return
290 c=.
300 print#1,"u1";3;0;v;q:gosub530:ifnotethen320
310 c=c+i:ifc<3goto300
320 print#1,"b-p";3;0:gosub390:sysm:gosub400:w=st:ifw=.orw=64thenreturn
330 gosub520:goto610
340 c=.:print#1,"b-a";0;v;q:print#1,"b-p";3;0
350 gosub390:sysm+3:gosub400:w=st:ifw>.andw<>64then610
360 print#1,"u2";3;0;v;q:gosub530:ifnotethenreturn
370 c=c+i:ifc<3then360
380 goto330
390 p=peek(3):r=peek(4):poke4,f+z:return
400 poke3,p:poke4,r:return
410 j=i:l=.:u=.:b=4:z=.:v=18:q=.:gosub280:gosub300
420 s=.:k=int((b-4)/4)+i:g=21:ifk>17theng=19
430 ifk>24theng=18
440 ifk>30theng=17
450 y=g-peek(d+b):ify=gthen:forx=.tog-i:b%(k,x)=.:next:b=b+3:goto470
460 b=b+i:a=peek(d+b):forx=.to7:b%(k,s)=2^xanda:s=s+i:ifs<gthennext:goto460
470 b=b+i:ifg<21thenforx=gto20:b%(k,x)=-i:next
480 u=u+y:ify=.andj=kthenj=j+i:goto500
490 ifythenl=k
500 ifb<143then420
510 close3
520 return
530 input#1,e$,m$,t$,s$:e=val(e$):e$=e$+" "+m$+" "+t$+" "+s$:return
540 g$="[199]etting [211]tarted":ifd$="d"theng$="[205]initel/64 [208]rogram"
550 print"[201]nsert the "g$" diskette"
560 print"and press [[210][197][212][213][210][206]]"
570 geta$:ifa$<>chr$(13) then570
580 ifhandd$="d"thengosub240
590 open2,8,0,"$0":gosub530:ifethen610
600 forx=ito14:get#2,a$,b$:nextx:h$=a$+b$:get#2,a$,a$,b$:close2:return
610 print"error: st="w;e$
620 poke56,peek(2):clr:end
630 ifpeek(46)=15then20
640 poke53280,6:poke53281,6
650 printchr$(14);chr$(8);"[147] [205]initel/64 [196]iskette [195]opy [208]rogram"
660 print"[212]his program will copy the [199]etting"
670 print"[211]tarted diskette to your diskette"
680 print"which you have labelled [205]initel/64"
690 print"[208]rogram. [196]uring this process, the"
700 print"[205]initel/64 [208]rogram diskette will be"
710 print"automatically formatted for you,"
720 print"[197][210][193][211][201][206][199] [193][206][217] [197][216][201][211][212][201][206][199][160][198][201][204][197][211]."
730 print"[208]ress [[210][197][212][213][210][206]] to continue or [[211][212][207][208]]"
740 print"to quit."
750 geta$:ifa$<>chr$(13)then750
760 forx=828to915:readn:pokex,n:next
770 poke45,156:poke46,15:poke55,0:poke3994,0:poke3995,0:goto20
780 data76,66,3,76,97,3,162,3,32,198,255,160,0,132,3,32,207,255,32,138,3
790 data145,3,32,128,3,165,144,208,3,200,208
800 data238,32,204,255,96,162,3,32,201,255,160,0,132
810 data3,32,138,3,177,3,32,128,3,32
820 data210,255,165,144,208,3,200,208,238,32,204,255
830 data96,72,165,1,9,3,133,1,88,104,96,72,120,165,1,41,252,133,1,104,96