home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_20_1987_Transactor_Publishing.d64 / copy-all.64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  86 lines
  1. 100 print"[147]disk copy-all  jim butterfield"
  2. 110 a$="!jim butterfield!":a$=a$+a$+a$:a$=a$+a$+a$+a$+a$
  3. 120 p$=""
  4. 130 dim l2(232),l1%(232),n$(232),t%(232),t$(4)
  5. 140 data xxx,seq,prg,usr,rel
  6. 150 forj=0to4:readt$(j):nextj
  7. 160 input"from unit  8[157][157][157]";f
  8. 170 gosub830
  9. 180 f$=d$
  10. 190 input"to unit  9[157][157][157]";t
  11. 200 gosub830:t$=d$:ift=fandf$=t$thenrun
  12. 230 n=0:close1:close15:open 15,f,15:print#15,"i"+f$
  13. 240 gosub860:if e then stop:goto230
  14. 250 z=90:input"pattern  *[157][157][157]";p$
  15. 260 p$="xxx"+left$(p$+"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]",16)
  16. 270 print"hold down 'y' or 'n' key to select"
  17. 280 print"programs to be copied..."
  18. 290 open 1,f,3,"$"+f$
  19. 300 gosub860:ifethenstop:goto230
  20. 310 sys4156
  21. 320 r=255:goto 340
  22. 330 sys4245
  23. 340 forj=16to2step-1:ifasc(mid$(a$,j+3))=160thennextj
  24. 350 n$=mid$(a$,4,j)
  25. 360 t9=asc(a$)-128:ift9<1ort9>4goto470
  26. 370 l1%=asc(mid$(a$,22))
  27. 380 l2=asc(mid$(a$,29))+asc(mid$(a$,30))*256
  28. 390 printmid$(a$,4,16);" ";t$(t9)
  29. 400 p=peek(203)andr
  30. 410 getz$:ifz$=""andp<064goto450
  31. 420 ifz$="y"orz$="n"thenz=asc(z$):r=255:goto450
  32. 430 ifz$=chr$(13)thenr=0:goto450
  33. 440 goto410
  34. 450 ifz<80thenprint"[145]                     [145]":goto470
  35. 460 n=n+1:l2(n)=l2:n$(n)=n$:t%(n)=t9:l1%(n)=l1%
  36. 470 ifst=0andn<232goto330
  37. 480 close1:close15:print" * * * * *"
  38. 485 ifn=0thenprint"* no programs *":goto 800
  39. 490 forj=1ton
  40. 500 l2=l2(j):t%=t%(j):ifl>l2goto670
  41. 510 ifq=0goto550
  42. 520 print"*** output disk full"
  43. 530 input"do you have a new one";z$
  44. 540 ifasc(z$)<>89thenend
  45. 550 close15:open15,t,15:input"want to new the output disk  n[157][157][157]";z$
  46. 560 ifasc(z$)<>89goto600
  47. 570 input"disk name,id";x$,y$
  48. 580 print#15,"n"+t$+":"+x$+","+y$
  49. 590 gosub860:ifethenstop:goto550
  50. 600 print#(NULL)5,"i"+t$:open1,t,0,"$"+t$+":!#$%&"
  51. 610 gosub860:ifethenstop:goto550
  52. 620 gosub890:gosub890:q=q+1
  53. 630 get#(NULL),x$:ifx$<>""goto630
  54. 640 gosub890
  55. 650 l=x+y*256:print"(";l;"blocks free )"
  56. 660 close1:close15:goto500
  57. 670 open14,f,15:open15,t,15
  58. 680 printleft$(n$(j)+"                    ",21);
  59. 690 open3,f,3,f$+":"+n$(j)+","+t$(t%)
  60. 700 gosub855:ifethenprint"** ";e$;e:goto780
  61. 710 ift%=4thenopen4,t,4,t$+":"+n$(j)+",l,"+chr$(l1%(j)):goto730
  62. 720 open4,t,4,t$+":"+n$(j)+","+t$(t%)+",w"
  63. 730 l=l-l2:gosub860:ifethenprint"*** ";e$;e:goto780
  64. 740 ift%=4thensys4462:gosub855:goto760
  65. 750 sys4443
  66. 760 n$(j)="":gosub860:ifethenprint"**** ";e$;e:goto780
  67. 770 print"[145]"
  68. 780 close4:close3:close15:close14
  69. 790 nextj
  70. 800 x=fre(0):input"another input disk ready";z$
  71. 810 ifasc(z$)=89goto230
  72. 820 end
  73. 830 input"drive  0[157][157][157]";d
  74. 840 ifd*d<>dgoto830
  75. 850 d$=chr$(d+48):return
  76. 855 input#14,e,e$,e1,e2:goto870
  77. 860 input#15,e,e$,e1,e2
  78. 870 ife=0thene=(st and 191):e$="*st*"
  79. 880 return
  80. 890 get#1,x$
  81. 900 get#1,x$
  82. 910 get#1,x$
  83. 920 x=asc(x$+chr$(0))
  84. 930 get#1,x$:y=asc(x$+chr$(0))
  85. 940 return
  86.