home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8702b.d64 / editor (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  89 lines
  1. 10 A=A+1:IFA=1THENLOAD"MPKOPIER",8,8
  2. 15 IFA=2THENLOAD"ZSATZ",8,8
  3. 20 POKE53281,0:POKE2,6:POKE53272,21
  4. 21 PRINT"[147][154]LORES EDITOR
  5. 30 [153]"BY HELMUT BURGEMEISTER
  6. 40 PRINT"1. BILD LADEN
  7. 50 [153]"2. BILD SPEICHERN
  8. 70 PRINT"3. BILD EINFAERBEN
  9. 80 [153]"4. DOS KOMMANDOS
  10. 100 POKE198,0:WAIT198,1:GETA$
  11. 110 A=VAL(A$)
  12. 120 IFA$<"1"ORAA$>"4"THEN100
  13. 130 ONAGOTO1000,2000,4000,5000
  14. 1000 PRINT"[147]BILD LADEN"
  15. 1010 INPUT"BILDNAME";B$
  16. 1020 PRINT"MIT FARBE LADEN (J/N)
  17. 1030 [141]9000
  18. 1040 [139]A$[179][177]"J"[175]A$[179][177]"N"[167]1030
  19. 1050 [139]A$[178]"J"[167]FA[178]1:[137]1100
  20. 1060 FA[178]0
  21. 1100 [151]2,6:[158]828[170]6:[159]2,8,2,B$[170]",P,R":[141]8000:[160]2:[139]A[179][177]0[167]20
  22. 1105 [159]2,8,2,B$[170]",P,R":[151]53272,24
  23. 1110 [161]#2,A$:[161]#2,A$
  24. 1120 [129]T[178]0[164]999
  25. 1130 [161]#2,A$:[139]A$[178]""[167]A$[178][199](0)
  26. 1140 [151]1024[170]T,[198](A$)
  27. 1150 [130]
  28. 1160 [160]2:[158]828
  29. 1170 [139]FA[178]0[167][137]20
  30. 1180 [159]2,8,2,B$[170]".,P,R":[141]8000:[160]2:[139]A[179][177]0[167]20
  31. 1185 [159]2,8,2,B$[170]".,P,R"
  32. 1190 [161]#2,A$:[161]#2,A$
  33. 1200 [129]T[178]0[164]999
  34. 1210 [161]#2,A$:[139]A$[178]""[167]A$[178]" "
  35. 1220 [151]55296[170]T,[198](A$):[130]:[160]2
  36. 1230 [158]828[170]12:[137]20
  37. 2000 [153]"LOADBILD SICHERN
  38. 2010 INPUT"BILDNAME";B$
  39. 2020 PRINT"MIT FARBE SICHERN (J/N)
  40. 2030 [141]9000
  41. 2040 [139]A$[179][177]"J"[175]A$[179][177]"N"[167]2030
  42. 2050 [139]A$[178]"J"[167]FA[178]1:[137]2100
  43. 2060 FA[178]0
  44. 2100 [158]828[170]3:[159]2,8,2,B$[170]",P,W":[141]8000:[160]2:[139]A[179][177]0[167]20
  45. 2105 [159]2,8,2,"@:"[170]B$[170]",P,W":[151]53272,24
  46. 2110 [152]2,[199](0);:[152]2,[199](4);
  47. 2120 [129]T[178]0[164]999
  48. 2140 [152]2,[199]([194](1024[170]T));
  49. 2150 [130]:[152]2,[199](13)
  50. 2160 [160]2
  51. 2170 [139]FA[178]0[167][137]20
  52. 2175 [158]828[170]9
  53. 2180 [159]2,8,2,B$[170]".,P,W":[141]8000:[160]2:[139]A[179][177]0[167]20
  54. 2185 [159]2,8,2,"@:"[170]B$[170]".,P,W"
  55. 2190 [152]2,[199](0);:[152]2,[199](216);
  56. 2200 [129]T[178]0[164]999
  57. 2220 [152]2,[199]([194](55296[170]T));:[130]:[160]2
  58. 2230 [137]20
  59. 4000 [139]FA[178]0[167][153]"LOADFARBE IM SPEICHER UEBERNEHMEN (J/N)
  60. 4002 IFFA=0THENGOSUB9000:IFA$="J"THENFA=1
  61. 4010 SYS828+3:POKE2,6:SYS828+6:P=0:F=0:POKE53272,24
  62. 4015 IFFA=1THENSYS828+9
  63. 4017 X=20:Y=12:C=6:POKE53280,P
  64. 4020 H=PEEK(55296+X+40*Y)
  65. 4030 IFP=0THENPOKE55296+X+40*Y,H-1
  66. 4040 IFP=0THENPOKE55296+X+40*Y,H
  67. 4050 IFP=1THENPOKE55296+X+40*Y,F
  68. 4053 J=PEEK(56320)
  69. 4055 IF(JAND1)=0THENY=Y-1:IFY=-1THENY=0
  70. 4060 IF(JAND2)=0THENY=Y+1:IFY=25THENY=24
  71. 4070 IF(JAND4)=0THENX=X-1:IFX=-1THENX=0
  72. 4080 IF(JAND8)=0THENX=X+1:IFX=40THENX=39
  73. 4090 IF(JAND16)=0THENP=1-P:POKE53280,P
  74. 4100 IFPEEK(203)=5THENF=F+1
  75. 4110 IFPEEK(203)=1THENSYS828+12:GOTO20
  76. 4120 IFPEEK(203)=4THENPOKE53281,PEEK(53281)-1
  77. 4130 IFPEEK(203)=6THENPOKE2,PEEK(55296)-1:SYS828+6:H=PEEK(2)
  78. 4140 IFH>254THENPOKE2,0:H=0
  79. 4150 GOTO4020
  80. 5000 PRINT"[147]DOS KOMMANDOS
  81. 5010 [153]"COMMAND:  ";:[151]631,34:[151]198,1:[133]A$
  82. 5020 [159]1,8,15:[152]1,A$:[160]1:[141]8000:[137]20
  83. 8000 [159]1,8,15:[132]1,A,A$,B,C
  84. 8010 [139]A[179][177]0[167][153]"STATUS: "A" "A$" "B" "C
  85. 8020 [160]1:[139]A[179][177]0[167][141]9000
  86. 8030 [142]
  87. 9000 [151]198,0:[146]198,1:[161]A$:[142]
  88. 10000 [153][194](203);:[137]10000
  89.