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.mps801 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  58 lines
  1. 10 a=peek(836)+1:poke836,a
  2. 20 ifa=1thenpoke55,0:poke56,32:clr:load"mps801.cad.obj",8,1
  3. 25 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]-801/803           [146]"
  9. 80 print" [193]. - [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]. - [200]ardcopy"
  14. 130 poke198,0
  15. 140 getx$:ifx$=""goto140
  16. 150 a=asc(x$)-64:ifa<1ora>5goto140
  17. 160 onagoto1000,2000,3000,4000,5000
  18. 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]"
  19. 1010 print"               [199]rafik laden            [146]":gosub1200
  20. 1020 input" [206]ame ";n$:ifn$=""orn$="_"goto30
  21. 1030 iflen(n$)>10goto1020
  22. 1040 sys50192,11,15,2:sys50299,2
  23. 1050 open2,8,2,"pi."+n$+",p,r":fk=1:open1,8,15:gosub1105
  24. 1060 iffgoto30
  25. 1070 sys50442,2:close2:close1
  26. 1080 sys50299,0:goto30
  27. 1100 open1,8,15:fk=0
  28. 1105 input#1,f,f$,t,s:iff=0thenreturn
  29. 1110 iffkthensys50299,0:printchr$(14);chr$(8)
  30. 1120 print:print" [196]iskettenstatus :"
  31. 1130 print""f","f$","t","s
  32. 1140 getx$:ifx$=""goto1140
  33. 1150 close2:close1:return
  34. 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]"
  35. 1210 return
  36. 2000 sys50299,2:poke198,0
  37. 2010 getx$:ifx$=""goto2010
  38. 2020 sys50299,0:poke53272,23:goto130
  39. 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]"
  40. 3010 print"        [196]iskettenkommando senden       [146]":gosub1200
  41. 3020 poke631,34:poke198,1
  42. 3030 input" [203]ommando ";c$:ifc$=""orc$="_"goto30
  43. 3040 fk=0:open1,8,15,c$:gosub1105:iff=0thengosub1120
  44. 3050 close2:close1:goto30
  45. 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]"
  46. 4010 print"           [196]irectory anzeigen          [146]"
  47. 4020 print"":open2,8,0,"$0":gosub1100:iffgoto30
  48. 4030 sys50475:close2:close1:poke198,0
  49. 4040 getx$:ifx$=""goto4040
  50. 4050 goto30
  51. 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]"
  52. 5010 print"                [200]ardcopy               [146]":gosub1200
  53. 5020 print"      [196]rucker eingeschaltet (j/n) ?":poke198,0
  54. 5030 getx$:ifx$<>"j"andx$<>"n"goto5030
  55. 5040 ifx$="n"goto30
  56. 5050 sys50555
  57. 5060 goto30
  58.