home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 19 / 64er_Magazin_Sonderheft_19_19xx_Markt__Technik_de.d64 / fill-muster-edi (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  121 lines
  1. 0 rem fill-muster-editor
  2. 1 rem (c) 1987 by stephan thelen
  3. 2 rem postfach 1965   5040 bruehl
  4. 3 rem ruf 02232/24012
  5. 4 rem *** bildschirm/variablen init ****
  6. 5 poke53281,0:poke53280,0:poke646,1
  7. 10 printchr$(142)chr$(8)"[147]             hires - master             ";
  8. 15 t$="0123456789abcdef"
  9. 20 print"          fill - muster editor          "
  10. 30 fori=1to16:print"[158]     ................":next:x=1:y=1:poke1149,43:ma=46:tx=1
  11. 35 print"[156]        [167][165]  [167][165]  [167][165]   ":ty=1
  12. 40 print"";tab(23);"    befehle:    [146]"
  13. 41 printtab(23);"steuerung:cursor"
  14. 42 printtab(23);"          tasten"
  15. 43 printtab(23);"punkt setzen:' '"
  16. 45 printtab(23);"mehr befehle: b [146]"
  17. 46 printtab(23);"e[146] ende          "
  18. 47 printtab(23);",[146] zeilenanfang  "
  19. 48 printtab(23);".[146] zeilenende    "
  20. 49 printtab(23);"d[146] datenausgabe  "
  21. 50 printtab(23);"x[146] x-tab setzen  "
  22. 51 printtab(23);"y[146] y-tab setzen  "
  23. 52 printtab(23);"a[146] x-tab springen"
  24. 53 printtab(23);"b[146] y-tab springen"
  25. 54 printtab(23);"z[146] & s[146] :       "
  26. 55 printtab(23);"normal :loeschen"
  27. 56 printtab(23);"<shift>:setzen  "
  28. 57 printtab(23);"<c=>   :invert. "
  29. 98 :
  30. 99 rem **** steuer-tastatur-abfrage ****
  31. 100 a$="":poke198,0:wait198,1:geta$
  32. 104 ifa$<>""then130
  33. 105 ifx=16andy=16thengosub1000:x=1:y=1:goto500
  34. 110 ifx=16thengosub1000:x=1:y=y+1:goto500
  35. 120 ifx<16thengosub1000:x=x+1:goto500
  36. 130 ifa$="b"thenpoke53280,2:goto1900
  37. 135 ifa$<>"[157]"then165
  38. 150 ifx=1andy>1thengosub1000:x=16:y=y-1:goto500
  39. 160 ifx>1thengosub1000:x=x-1:goto500
  40. 165 ifa$<>""then185
  41. 170 ify=16thengosub1000:y=1:goto500
  42. 180 ify<16thengosub1000:y=y+1:goto500
  43. 185 ifa$<>"[145]"then202
  44. 190 ify=1thengosub1000:y=16:goto500
  45. 200 ify>1thengosub1000:y=y-1:goto500
  46. 202 ifa$<>" "then499
  47. 203 ifx=16andma=81andy=16thengosub1000:x=1:y=1:ma=46:goto500
  48. 204 ifx=16andma=46andy=16thengosub1000:x=1:y=1:ma=81:goto500
  49. 205 ifx=16andma=46thengosub1000:x=1:y=y+1:ma=81:goto500
  50. 210 ifx=16andma=81thengosub1000:x=1:y=y+1:ma=46:goto500
  51. 215 ifma=46thengosub1000:x=x+1:ma=81:goto500
  52. 220 ifma=81thengosub1000:x=x+1:ma=46:goto500
  53. 499 a$="":goto100
  54. 500 mn=peek(1108+x+y*40):poke1108+x+y*40,43:poke1108+xa+ya*40,ma:a$="":ma=mn
  55. 510 goto100
  56. 998 :
  57. 999 rem *** uprog x -> xa  y -> ya *****
  58. 1000 xa=x:ya=y:return
  59. 1897 :
  60. 1898 rem ****  zusaetzliche befehle ****
  61. 1900 print"      befehlseingabe[146]"
  62. 1950 poke198,0:wait198,1:geta$
  63. 2000 ifa$<>"[147]"then2010
  64. 2005 x=1:y=1:gosub1000:print"":fori=1to16:print"[158]................":next
  65. 2006 ma=43:goto2600
  66. 2010 ifa$=""thengosub1000:x=1:y=1:goto2600
  67. 2020 ifa$="e"theninput"wirklich beenden";f$:iff$="j"thenend
  68. 2025 print"                                      ":f$=""
  69. 2030 ifa$=","andx<>1thengosub1000:x=1:goto2600
  70. 2040 ifa$="."andx<>16thengosub1000:x=16:goto2600
  71. 2050 ifa$="z"thenforj=0to15:poke1109+y*40+j,46:next:j=0:ma=46:goto2700
  72. 2051 ifa$="[218]"thenforj=0to15:poke1109+y*40+j,81:next:j=0:ma=81:goto2700
  73. 2052 ifa$<>"[173]"then2059
  74. 2053 forj=0to15:ifpeek(1109+y*40+j)=46thenpoke1109+y*40+j,81:goto2055
  75. 2054 ifpeek(1109+y*40+j)=81thenpoke1109+y*40+j,46
  76. 2055 next:j=0:ifma=46thenma=81:goto2700
  77. 2056 ifma=81thenma=46:goto2700
  78. 2058 ifa$="s"thenforj=1to16:poke1109+j*40+x-1,46:next:j=0:ma=46:goto2700
  79. 2059 ifa$="[211]"thenforj=1to16:poke1109+j*40+x-1,81:next:j=0:ma=81:goto2700
  80. 2060 ifa$="x"thentx=x:print"                        ":poke1108+x,93:goto2700
  81. 2061 ifa$<>"[174]"then2070
  82. 2062 forj=1to16:ifpeek(1109+j*40+x-1)=46thenpoke1109+j*40+x-1,81:goto2065
  83. 2063 ifpeek(1109+j*40+x-1)=81thenpoke1109+j*40+x-1,46
  84. 2065 next:j=0:ifma=46thenma=81:goto2700
  85. 2066 ifma=81thenma=46:goto2700
  86. 2070 ifa$="y"thenty=y:forj=1to17:poke1107+j*40,96:next:j=0:poke1107+y*40,64:goto2700
  87. 2080 ifa$="a"andx<>txthengosub1000:x=tx:goto2600
  88. 2090 ifa$="b"andy<>tythengosub1000:y=ty:goto2600
  89. 2100 ifa$=chr$(13)thengosub1000:x=1:y=y+1:goto2600
  90. 2110 ifa$<>"i"then2400
  91. 2114 :
  92. 2115 rem *** befehl ' invertieren ' ****
  93. 2120 poke1108+x+y*40,ma
  94. 2130 fori=1to16
  95. 2140 forj=1to16
  96. 2150 ifpeek(1108+i+j*40)=46thenpoke1108+i+j*40,81:goto2170
  97. 2160 ifpeek(1108+i+j*40)=81thenpoke1108+i+j*40,46
  98. 2170 next
  99. 2180 next
  100. 2190 ifma=46thenma=81:goto2210
  101. 2200 ifma=81thenma=46
  102. 2210 a$="":goto105
  103. 2398 :
  104. 2399 rem *** datenberechnung        ****
  105. 2400 ifa$<>"d"then2500
  106. 2404 print"      datenberechnung[146][145][145][145]"
  107. 2405 poke1108+x+y*40,ma:w=0
  108. 2410 forz=1to16
  109. 2412 :forc=0to3
  110. 2414 : fors=1to4
  111. 2416 :  ifpeek(1108+z*40+c*4+s)=81thenw=w+2^(4-s)
  112. 2418 :
  113. 2420 : next:te$=mid$(t$,w+1,1):s$=s$+te$:printte$;:w=0:te$=""
  114. 2422 :next
  115. 2424 next:s$=""
  116. 2425 poke1108+x+y*40,43
  117. 2500 print"                        ":poke53280,0:goto100
  118. 2600 print"                        ":poke53280,0:goto500
  119. 2700 print"                        ":poke53280,0:a$="":goto110
  120. 9999 print"[147]"chr$(9):poke53280,0:poke646,1:list2100-2299
  121.