home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Programmer / comprog2.d81 / udi / udi.0829 / udi.a7ae (.txt)
Encoding:
Commodore BASIC  |  1990-01-01  |  49.8 KB  |  86 lines
  1. 5 poke56,149:clr:poke53281,0:poke53280,0
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 15 dimd%(32)
  4. 20 mt=52224:cm=38400-256:gw=51200:print"[147]":poke53272,24
  5. 50 gosub2100:ifd%(dv)=0theni=7:gosub390:dv=i
  6. 99 sysmt+3,0,39,19,23,102,5:sysmt+3,1,38,20,22,230,13:sysmt+3,2,37,21,21,160,7
  7. 100 sysmt+3,1,36,5,17,160,6:sysmt+3,2,37,4,16,160,14:sysmt+3,3,38,3,15,160,3
  8. 110 sysmt+3,4,37,3,3,226,3:sysmt+3,3,3,4,14,97,3:sysmt+3,4,37,15,15,98,3
  9. 120 sysmt+3,38,38,4,14,225,3
  10. 130 sysmt+15,3,3,"[159][172]":sysmt+15,38,3,"[187]":sysmt+15,3,15,"[188]":sysmt+15,38,15,"[190]"
  11. 150 print"[158]";:sysmt+18,1,"  [213][206][201][214][197][210][211][193][204] [196][201][210][197][195][212][207][210][217] [201][206][211][208][197][195][212][207][210]  "
  12. 160 print"":sysmt+18,0,"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  13. 170 print"[150]":sysmt+18,2,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  14. 180 print"[159]";:fori=1to7:reada$:sysmt+15,6,5+i,a$:next
  15. 190 ms$="[195][210][211][210]/[210][197][212][213][210][206] to [211]elect":gosub2000:sysmt+6,160
  16. 200 poke53272,24:geta$:sysmt+9,160:sysmt,6,5,36,7,3+128,129,0
  17. 210 geta$:onval(a$)goto300,400,500,600,700,800,900
  18. 300 gosub1000:ms$="[195][210][211][210] [213][208]/[196][207][215][206] to [211]elect [196]rive":gosub2000:gosub2100
  19. 310 sysmt+15,10,8,"[155][196]rive [206]umber:"+str$(dv):i=dv
  20. 315 geta$:ifa$<>"[145]"anda$<>""anda$<>chr$(13)then315
  21. 320 ifa$=""thengosub393
  22. 330 ifa$="[145]"thengosub390
  23. 340 ifa$=chr$(13)thendv=i:goto200
  24. 380 sysmt+3,23,26,8,8,160,15:sysmt+15,23,8,"[155]"+str$(i):goto315
  25. 390 ifi<30theni=i+1:ifd%(i)<>1then390
  26. 391 ifd%(i)=0theni=7:goto390
  27. 392 return
  28. 393 ifi>7theni=i-1:ifd%(i)<>1then393
  29. 394 ifd%(i)=0theni=31:goto393
  30. 395 return
  31. 400 gosub1000:sysmt+15,18,7,"[155][211]creen":print:printtab(18)"[208]rinter"
  32. 410 sysmt,7,10,32,2,15+128,129,0:op=0:geta$:ifa$="2"thenop=256
  33. 420 goto200
  34. 500 gosub1000:sysmt+18,8,"[155][211]how [196][197][204]'s? ([217]/[206])":del=0
  35. 501 geta$:ifa$<>"y"anda$<>"n"then501
  36. 502 sysmt+9,160:ifa$="y"thendel=1
  37. 504 ifop=0thenprint"[147]":goto510
  38. 505 close4:open4,4,7:close4:ifstthenms$="[208]rinter not online!":gosub2020:goto200
  39. 506 ms$="[208]rinting...":gosub2000
  40. 510 sys49152,dv+op,del:print:print"":ifopthen200
  41. 518 sysmt+18,24,"[208]ress any key...":poke198,0:wait198,15
  42. 520 geta$:goto200
  43. 600 close15:open15,dv,15,"cp":input#15,a$,e$:close15
  44. 610 ife$="partition selected"then620
  45. 611 gosub1000:sysmt+15,14,8,"[155][206]ot a [195][205][196] [196]rive":poke198,0:wait198,15:geta$
  46. 612 goto200
  47. 620 syscm,"$=p",dv,53248,2,2,10,13,7:iff$<>"system"then630
  48. 621 gosub1000:sysmt+15,12,8,"[155][195]an't select [211][217][211][212][197][205]":poke198,0:wait198,15:geta$
  49. 622 goto200
  50. 630 a$=f$:p=0:fori=1to254:syscm+9,i:ifa$=f$thenp=i:i=254
  51. 640 next:open15,dv,15,"c[208]"+chr$(p):print#15,"cd//":input#15,a$
  52. 650 close15:goto200
  53. 700 close15:open15,dv,15,"cp":input#15,a$,e$:close15
  54. 710 ife$="partition selected"then720
  55. 711 gosub1000:sysmt+15,14,8,"[155][206]ot a [195][205][196] [196]rive":poke198,0:wait198,15:geta$
  56. 712 goto200
  57. 720 syscm,"$:*=b",dv,53248,2,2,10,13,7:iff$<>""then730
  58. 721 gosub1000:sysmt+15,12,8,"[155][206]o [211]ubdirectories":poke198,0:wait198,15:geta$
  59. 722 goto200
  60. 730 open15,dv,15,"cd:"+f$:goto200
  61. 800 sysmt+3,0,39,19,23,32,5:sysmt+15,0,20,"[146][159][195]ommand:":sysgw,13,1,127
  62. 810 close15:open15,dv,15,w$
  63. 820 sysmt+9,160:ms$="[215]orking...":gosub2000
  64. 830 input#15,a$,b$,c$,d$:ms$=a$+","+b$+","+c$+","+d$:close15:gosub2000
  65. 840 poke198,0:wait198,15:geta$:ifw$=""then200
  66. 845 goto800
  67. 900 gosub1000:sysmt+15,12,8,"[155][193]re you [211]ure? ([217]/[206])"
  68. 905 ms$="[193]ny other key aborts":gosub2000
  69. 910 poke198,0:wait198,15:geta$:ifa$<>"y"then200
  70. 920 sysmt+9,160:goto60000
  71. 999 stop
  72. 1000 sysmt+3,8,32,7,11,255,6:sysmt+3,9,33,6,10,160,15:return
  73. 2000 print"[158]";:sysmt+3,2,37,21,21,160,7:sysmt+18,21,ms$:poke199,0:return
  74. 2020 gosub2000:poke198,0:wait198,15:return
  75. 2100 close2:fori=8to30:open2,i,2:close2:d%(i)=0:ifst=0thend%(i)=1
  76. 2110 next:return
  77. 4999 data"[211]elect [198]rom [193]vailable [196]rives"
  78. 5000 data"[211]elect [207]utput ([208]rinter/[211]creen)","[201]nspect [195]urrent [196]irectory"
  79. 5005 data"[211]elect [195][205][196] [208]artition"
  80. 5010 data"[211]elect [195][205][196] [211]ubdirectory","[211]end a [196][207][211] [195]ommand","[210]eturn [212]o [204][207][193][196][211][212][193][210]"
  81. 60000 a$="hello connect":open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15
  82. 60010 if er<>63 then print"[147]":end
  83. 60011 q$=chr$(34):poke646,peek(53281):print"[147]"
  84. 60020 print"load"q$a$q$",8"
  85. 60030 print"run":poke631,13:poke632,13:poke198,2:end
  86.