home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 115 / 115.d81 / copier / copier.0829 / copier.a7ae (.txt)
Encoding:
Commodore BASIC  |  1994-01-01  |  10.8 KB  |  90 lines
  1. 5 ifpeek(56)<>47thenpoke56,47:clr
  2. 10 goto30
  3. 20 hi=int(nu/256):lo=nu-hi*256:return
  4. 30 dimf$(132),t$(132),ea(132),sa(132):mt=12288
  5. 50 rb=1:gosub4000:gosub580:sa=13083:fl$="":f=32768
  6. 70 a=peek(f):ifa<>0thenfl$=fl$+chr$(a):f=f+1:goto70
  7. 80 iflen(fl$)>16thenfl$=left$(fl$,16)
  8. 90 open2,8,2,"files on side "+si$
  9. 100 input#2,a$:i=st:input#2,nf$:nf=val(nf$):input#2,nb$:nb=val(nb$)+2:forx=1tonf:input#2,f$(x),t$(x):next
  10. 120 nf=nf+1:f$(nf)="loadstar reader":t$(nf)="p":ifa$<>fl$andi=0then100
  11. 140 ifa$=fl$then170
  12. 150 ms$=fl$+" not found!":sysmt+21,ms$:close2:gosub5700:wait198,15:goto60000
  13. 170 close2:poke198,.:d1=.
  14. 230 nu=sa:gosub20:d1=d1+1:d=d1:poke12131,hi:poke12135,lo:sa(d1)=sa
  15. 240 ms$="[210][197][193][196][201][206][199]:"+f$(d):gosub5700:open1,8,2,f$(d):sys12040:close1
  16. 245 close15:open15,8,15:input#15,e1$,e2$,e3$,e4$:ifval(e1$)then9000
  17. 260 ea(d1)=peek(832)+peek(833)*256:sa=ea(d1)+1:if(ea(d1)<53248)and(d1<nf)then230
  18. 280 ifea(d1)<53248then310
  19. 290 d1=d1-1:sa=13312
  20. 310 ifdd%<>8then340
  21. 315 ms$="[201]nsert [196]estination [196]isk/[211][208][193][195][197]":gosub5730:poke198,0
  22. 330 geta$:ifa$<>" "then330
  23. 340 sysmt+9,208:ifrbthenms$="[195]hecking blocks free...":gosub5700
  24. 350 ifrbthenrb=.:gosub790
  25. 360 d2=d2+1:d=d2:ms$="[215][210][201][212][201][206][199]:"+f$(d):gosub5700:gosub640:if(mm)then420
  26. 390 nu=ea(d2):gosub20:poke832,lo:poke833,hi:nu=sa(d2):gosub20:poke12131,hi:poke12135,lo
  27. 410 close1:open1,dd%,2,"0:"+f$(d)+","+t$(d)+",w":sys12084:close1
  28. 420 ifd2<d1then360
  29. 430 ifdd%<>8then460
  30. 435 ms$="[201]nsert "+dn$+"/[211][208][193][195][197]":gosub5730:poke198,0
  31. 450 geta$:ifa$<>" "then450
  32. 460 sysmt+9,208:gosub600:if(mm$<>dn$)thengosub710:goto460
  33. 480 poke832,.:poke833,32:ifd1<nfthen230
  34. 500 gosub1030:goto3000
  35. 580 gosub600:si$=right$(dn$,1):mm$=dn$:ms$="[202]ust a sec...":gosub5730
  36. 600 close8:open8,8,0,"$:*":fora=1to8:get#8,a$:next:dn$="":fora=1to16:get#8,a$:dn$=dn$+a$:next:close8:return
  37. 640 close15:open15,dd%,15,"r0:"+f$(d)+"="+f$(d):input#15,er:close15:mm=.:ifer=63thenmm=1
  38. 660 return
  39. 710 ms$="[201]nsert "+mm$+". [208]ress [211][208][193][195][197]":gosub5730:poke198,0
  40. 750 geta$:ifa$<>" "then750
  41. 790 close15:open15,dd%,15,"i":input#15,er:close15:ifer=0then810
  42. 800 ms$="[208]roblem [215]ith [196]estination!":gosub5730:goto910
  43. 810 close15:open15,dd%,15,"i":open8,dd%,0,"$:^[219]%&;":fori=1to34:get#8,a$:next
  44. 820 get#8,l$,h$:ba=asc(h$+chr$(0))*256+asc(l$+chr$(0)):ifnb<bathenclose8:print#15,"i":close15:return
  45. 870 close8:close15:ms$="[206]ot [197]nough [210]oom [207]n [212]his [196]isk":gosub5730
  46. 910 sysmt+3,5,33,9,17,160,15:print"[155]";:sysmt+18,10,"[198]ormat [196]estination [196]isk
  47. 930 [158]mt[170]18,11,"(NULL)ry atn str$ifferent str$isk":[158]mt[170]18,12,"mid$ust lenall right$t (NULL)uits
  48. 932 print"";:sysmt+18,6,"[208][204][197][193][211][197] [195][200][207][207][211][197] [195][207][206][212][201][206][199][197][206][195][217]
  49. 935 [158]mt,10,5,33,3,15[170]128,7[170]128,0:[161]jj:[139]jj[178]3[167]60000
  50. 980 [139]jj[178]2[167]ms$[178]"lenhecking peeklocks ascree":[141]5700:[137]790
  51. 990 ms$[178]"right$nsert str$isk (NULL)o ascormat/(NULL)(NULL)atnlenval":[141]5730:[151]198,0
  52. 1010 [161]a$:[139]a$[179][177]" "[167]1010
  53. 1012 [141]6000:[139][200](nf$,10)[179][177]"loadstar #"[167]1015
  54. 1013 ms$[178]"(NULL)ress a key...":[141]5710
  55. 1014 ms$[178]"right$ can't format a (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) disk!":[141]5730:[151]198,0:[146]198,1:[137]910
  56. 1015 ms$[178]"ascormatting str$estination...":[141]5700
  57. 1020 [160]15:[159]15,dd%,15,"n0:(c) softdisk,ls":[152]15,"v":[132]15,a$
  58. 1024 [139]tr%[178]1[175][197](a$)[179][177]0[167]ms$[178]"right$ can't format this disk!":[141]5710:[137]910
  59. 1025 [139][197](a$)[178]73[167]tr%[178]1:ms$[178]"valrror!  ascormatting (NULL)nce (NULL)ore":[141]5710:[137]1020
  60. 1026 [139][197](a$)[167]800
  61. 1027 [160]15:tr%[178]0:[137]790
  62. 1030 [153]"wait";:[158]mt[170]3,2,37,2,20,32,1:[158]mt[170]18,4,"(NULL)(NULL)atnstr$right$(NULL)chr$ right$(NULL)asc(NULL)(NULL)(NULL)atn(NULL)right$(NULL)(NULL):":
  63. 1040 [158]mt[170]21,fl$:[153]"open";:[158]mt[170]18,7,"(NULL)(NULL)atnstr$"[170][199](34)[170]fl$[170][199](34)[170]",8
  64. 1050 sysmt+15,2,9," and then [210][213][206].":print:print
  65. 1060 print"[212]o read [212]."fl$", [204][207][193][196]":print"[204][207][193][196][211][212][193][210] [210][197][193][196][197][210] and run it.
  66. 1080 [158]mt[170]18,18,"(NULL)ress (NULL)(NULL)atnlenval ascor (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  67. 1090 ifpeek(203)<>60then1090
  68. 1210 return:,lo
  69. 3000 poke45,135:poke46,27:poke47,142:poke48,27:poke49,142:poke50,27:poke51,0
  70. 3010 poke52,128:poke53,0:poke54,0:poke55,0:poke56,128:clr:goto60000
  71. 4000 sysmt+3,0,39,0,24,95,15:sysmt+3,1,38,1,21,105,1:sysmt+3,2,37,2,20,95,12
  72. 4010 sysmt+3,5,35,6,19,255,11:sysmt+3,4,34,7,18,160,12:sysmt+3,4,34,5,6,160,1
  73. 4020 sysmt+3,4,34,7,7,228,1:sysmt+3,5,33,9,17,160,15:poke53281,0:poke53280,0
  74. 4030 print"";:sysmt+18,6,"[204][207][193][196][211][212][193][210] [208][210][207][199][210][193][205] [195][207][208][201][197][210]
  75. 4040 [153]"list";:[158]mt[170]15,9,10,"str$estination str$rive 8":[158]mt[170]15,9,11,"str$estination str$rive 9
  76. 4060 sysmt+15,9,12,"[196]estination [196]rive 10":sysmt+15,9,13,"[210]eturn [212]o [204][207][193][196][211][212][193][210]
  77. 4100 [158]mt[170]6,208:[158]mt,10,5,33,4,15[170]128,7[170]128,0:[161]a:dd%[178]a[170]7:[139]dd%[178]11[167]60000
  78. 4120 [160]2:[159]2,dd%,2:[160]2:[139]st[167]4100
  79. 4130 [158]mt[170]3,5,33,9,17,160,3:[158]mt[170]15,7,10,"open(NULL)ource: 8  str$estination:"[170][196](dd%)
  80. 4140 [158]mt[170]3,5,33,12,12,227,14:[158]mt[170]3,5,33,14,14,228,14:[158]mt[170]3,5,33,13,13,160,14
  81. 4145 [158]mt[170]3,5,33,15,17,160,6:[158]mt[170]6,208:[142]
  82. 5700 [158]mt[170]9,208
  83. 5710 [153]"cont";:[158]mt[170]18,13,ms$:[142]
  84. 5730 [158]mt[170]9,208:[158]mt[170]3,1,38,23,23,160,1:[153]"";:[158]mt[170]18,23,ms$:[142]
  85. 6000 [160]8:[159]8,dd%,0,"$:*":[129]a[178]1[164]8:[161]#8,a$:[130]:nf$[178]"":[129]a[178]1[164]16:[161]#8,a$:nf$[178]nf$[170]a$:[130]:[160]8:[142]
  86. 9000 ms$[178]e2$[170]" on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) disk!":[141]5730:[137]910
  87. 60000 [160]15:a$[178]"hello connect":[159]15,8,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[179][177]63[167][153]"load":[128]
  88. 60011 q$[178][199](34):[151]646,[194](53281):[153]"load":[153]"load"q$a$q$",8
  89. 60040 print"run":poke631,13:poke632,13:poke198,2:new
  90.