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