home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_2_of_3_Side_A.d64 / cad.hard.mps802 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  87 lines
  1. 10 a=peek(836)+1:poke836,a
  2. 20 ifa=1thenpoke55,0:poke56,31:clr:load"mps802.cad.obj",8,1
  3. 25 di=128:sys50192,11,15,1:sys50192,11,15,2:poke53280,14:poke53281,15
  4. 30 open1,8,15,"u9":close1:printchr$(14)chr$(8)
  5. 40 print"[151][147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  6. 50 print"         [200]ardcopy - [200]auptmenue         [146]"
  7. 60 fori=1to21:print" [180]                                    [170]":next
  8. 70 print"     [196]ruckertyp: [205][208][211]-802/1526          [146]"
  9. 80 print" [193]. - [197]inzelne [199]rafik laden"
  10. 90 print" [194]. - [199]rafik ansehen"
  11. 100 print" [195]. - [196]iskettenkommando senden"
  12. 110 print" [196]. - [196]irectory anzeigen"
  13. 120 print" [197]. - [197]infache";:ifdi=0thenprint"[157][157][157][157][157][157][157][157][196]oppelte";
  14. 121 print" [196]ichte"
  15. 122 print" [198]. - [200]ardcopy 1-fach"
  16. 123 print" [199]. - [200]ardcopy 4-fach"
  17. 124 print" [200]. - [200]ardcopy 10-fach"
  18. 130 poke198,0
  19. 140 getx$:ifx$=""goto140
  20. 150 a=asc(x$)-64:ifa<1ora>8goto140
  21. 160 onagoto1000,2000,3000,4000,1300,5000,6000,7000
  22. 1000 print"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  23. 1010 print"               [199]rafik laden            [146]":gosub1200
  24. 1020 input" [206]ame ";n$:ifn$=""orn$="_"goto30
  25. 1030 iflen(n$)>10goto1020
  26. 1040 sys50192,11,15,2:sys50299,2
  27. 1050 open2,8,2,"pi."+n$+",p,r":fk=1:open1,8,15:gosub1105
  28. 1060 iffgoto30
  29. 1070 sys50442,2:close2:close1
  30. 1080 sys50299,0:goto30
  31. 1100 open1,8,15:fk=0
  32. 1105 input#1,f,f$,t,s:iff=0thenreturn
  33. 1110 iffkthensys50299,0:printchr$(14);chr$(8)
  34. 1120 print:print" [196]iskettenstatus :"
  35. 1130 print""f","f$","t","s
  36. 1140 getx$:ifx$=""goto1140
  37. 1150 close2:close1:return
  38. 1200 print" [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][183][183][183][183][183]"
  39. 1210 return
  40. 1300 di=128-di:goto80
  41. 1500 forx=8086to8092:pokex,0:nextx:poke8090,1:ifmthenpoke8092,2
  42. 1510 poke780,17+d+m:sys50555:return
  43. 2000 bs=1:poke198,0
  44. 2010 sys50299,bs
  45. 2020 getx$:ifx$=""goto2020
  46. 2030 ifx$="1"thenbs=1:goto2010
  47. 2040 ifx$="2"thenbs=2:goto2010
  48. 2050 sys50299,0:poke53272,23:goto130
  49. 3000 print"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  50. 3010 print"        [196]iskettenkommando senden       [146]":gosub1200
  51. 3020 poke631,34:poke198,1
  52. 3030 input" [203]ommando ";c$:ifc$=""orc$="_"goto30
  53. 3040 fk=0:open1,8,15,c$:gosub1105:iff=0thengosub1120
  54. 3050 close2:close1:goto30
  55. 4000 print"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  56. 4010 print"           [196]irectory anzeigen          [146]"
  57. 4020 print"":open2,8,0,"$0":gosub1100:iffgoto30
  58. 4030 sys50475:close2:close1:poke198,0
  59. 4040 getx$:ifx$=""goto4040
  60. 4050 goto30
  61. 5000 print"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  62. 5010 print"             [200]ardcopy 1-fach           [146]":gosub1200
  63. 5020 print"      [196]rucker eingeschaltet (j/n) ?":poke198,0
  64. 5030 getx$:ifx$<>"j"andx$<>"n"goto5030
  65. 5040 ifx$="n"goto30
  66. 5050 m=0:d=di:gosub1500
  67. 5060 goto30
  68. 6000 print"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  69. 6010 print"             [200]ardcopy 4-fach           [146]":gosub1200:m=64:d=0
  70. 6020 n$="":input"[198]ile - [206]ame ";n$:ifn$=""orn$="_"goto30
  71. 6030 forq=1to4step2:open2,8,2,"hv."+n$+str$(q)+",p,r":gosub1100:iffgoto7090
  72. 6040 sys50442,1:close2:close1
  73. 6050 open2,8,2,"hv."+n$+str$(q+1)+",p,r":gosub1100:iffgoto7090
  74. 6060 sys50442,2:close2:close1
  75. 6070 gosub1500:nextq
  76. 6080 goto30
  77. 7000 print"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  78. 7010 print"             [200]ardcopy 10-fach          [146]":gosub1200:m=64:d=0
  79. 7020 n$="":input"[198]ile - [206]ame ";n$:ifn$=""orn$="_"goto30
  80. 7030 forq=1to10step2:open2,8,2,"hz."+n$+str$(q)+",p,r":gosub1100:iffgoto7090
  81. 7040 sys50442,1:close2:close1
  82. 7050 open2,8,2,"hz."+n$+str$(q+1)+",p,r":gosub1100:iffgoto7090
  83. 7060 sys50442,2:close2:close1
  84. 7070 gosub1500:nextq
  85. 7080 goto30
  86. 7090 q=20:nextq:goto30
  87.