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