home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_B.d64 / editor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.