home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11b.d64 / editor (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.