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