home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_B.d64 / editor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  88 lines
  1. 0 ifpeek(124)=76then:@"q"
  2. 5 ifa=-1thengoto1025
  3. 10 ifa=0thena=1:load"sa+lo(53240)",8,1
  4. 20 ifa=1thena=2:load"m^s+e3",8,1
  5. 21 ifa=2thena=3
  6. 22 ifa=3thena=4:load"edisprite",8,1
  7. 25 poke56,60:clr:gosub10000
  8. 27 poke49329,64
  9. 30 sys53240
  10. 40 poke53280,0:poke53281,0:print"[147]
  11. 50 [153]"loadmenue:":[151]53269,0
  12. 55 [151]53270,200
  13. 60 [153]" 1.laden"
  14. 70 [153]" 2.speichern"
  15. 80 [153]" 3.testlauf"
  16. 90 [153]" 4.editieren"
  17. 100 [153]" 5.echtlauf"
  18. 105 [153]" 6.parameter"
  19. 106 [153]" 7.loeschen"
  20. 107 [153]" 8.einfuegen"
  21. 109 [153]" 9.ende"
  22. 110 [133]" was waehlen sie ";a$
  23. 120 a[178][197](a$):[139]a[179]1[176]a[177]9[167]50
  24. 125 [139]a[178]9[167][128]
  25. 130 [145]a[141]1000,2000,3000,4000,5000,6000,7000,8000
  26. 140 [137]40
  27. 998 [128]
  28. 999 :
  29. 1000 [143] laden
  30. 1010 [133]" name ";a$:[139]a$[178]""[167][142]
  31. 1020 a[178][171]1:[147]a$,8,3
  32. 1025 [151]49328,(([194](175)[171]1)[175]252)[170]4:[137]40
  33. 1040 [128]
  34. 1999 :
  35. 2000 [143] speichern
  36. 2010 [133]" name ";a$:[139]a$[178]""[167][142]
  37. 2020 [153]"loadp(NULL)43,0:p(NULL)44,64:p(NULL)45,0:p(NULL)46,";[194](49328)
  38. 2030 a[178][194](43):b[178][194](44):c[178][194](45):d[178][194](46)
  39. 2040 [153]"save";[199](34);a$;[199](34);",8,1"
  40. 2050 [153]"p(NULL)43,"a":p(NULL)44,"b":p(NULL)45,"c":p(NULL)46,"d":run40"
  41. 2060 [151]198,3:[151]631,13:[151]632,13:[151]633,13:[128]
  42. 2100 :[128]
  43. 2999 :
  44. 3000 [143] testlauf
  45. 3010 a[178][194](49440):[151]49440,1:[151]53269,255
  46. 3020 [151]53280,15:[151]53281,15:[153]"load"
  47. 3030 [158]49419
  48. 3040 [151]53269,0:[151]49440,a:[151]53280,0:[151]53281,0:[153]"load":[142]
  49. 3100 [128]
  50. 3999 :
  51. 4000 [143] edit
  52. 4010 [133]" bildnr. ";a$:a[178][197](a$)[171]1:[139]a[179]0[167][142]
  53. 4015 a[178]a[172]4[170]64
  54. 4020 [139]a[178][177][194](49328)[167]4010
  55. 4030 [151]49327,a:[158]49687
  56. 4040 [151]53280,0:[151]53281,0:[153]"load":[142]
  57. 4100 [128]
  58. 4999 :
  59. 5000 [143] echtlauf
  60. 5010 [151]53281,15:[151]53280,15:[153]"load":[151]53269,255
  61. 5020 [158]49419:[137]5020
  62. 5100 [128]
  63. 5999 :
  64. 6000 [143] param
  65. 6010 [153]"load verzoegerung  ";[194](49440)
  66. 6020 [133]"on";a$:a[178][197](a$)[175]255
  67. 6030 [151]49440,a:[151]49442,255:[139]a[178]0[167][151]49440,1:[151]49442,1
  68. 6040 [153]" ende          ";([194](49328)[171]64)[173]4
  69. 6050 [133]"on";a$:a[178][197](a$):[139]a[178]0[176]a[177]32[167]6050
  70. 6060 [151]49328,a[172]4[170]64:[142]
  71. 6999 :
  72. 7000 [143] loeschen
  73. 7010 [153]" block         ";([194](49327)[171]64)[173]4[170]1
  74. 7020 [133]"on";a$:a[178][197](a$)[171]1:[139]a[179]0[167][142]
  75. 7025 a[178]a[172]4[170]64:[139]a[177][178][194](49328)[167]7020
  76. 7030 [151]49327,a:[158]49969:[142]
  77. 7999 :
  78. 8000 [143] inst
  79. 8010 [153]" block         ";([194](49327)[171]64)[173]4[170]1
  80. 8020 [133]"on";a$:a[178][197](a$)[171]1:[139]a[179]0[167][142]
  81. 8025 a[178]a[172]4[170]64:[139]a[177][178][194](49328)[167]8020
  82. 8030 [151]49327,a:[158]50036:[142]
  83. 8999 :
  84. 10000 [151]2040,240:[151]2041,241:[151]2042,242:[151]2043,243:[151]2044,247
  85. 10001 [151]2045,244:[151]2046,245:[151]2047,246
  86. 10002 [151]53264,0:[129]i[178]53287[164]53287[170]7:[151]i,6 :[130]
  87. 10014 [142]
  88.