home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / tools / util509.d64 / zeichens.-former (.txt) < prev    next >
Commodore BASIC  |  1995-08-06  |  11KB  |  474 lines
  1. 5 GOTO 10000 : REM INIT UND START
  2. 6 :
  3. 7 VERSION 1.8
  4. 8 "[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  5. 9 "(W) 1984 BY  S. SEEFELD"
  6. 10 "[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  7. 20 "(null)                    (null)
  8. 30 "[221] ZEICHENSATZ-FORMER [221]
  9. 40 "(null)                    (null)
  10. 50 "[221]  WRITTEN 1984  BY  [221]
  11. 60 "(null)   U. BACHFISCHER   (null)
  12. 70 "[221]                    [221]
  13. 80 "MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  14. 200 POKE CP,PEEK(CP)AND 127
  15. 205 CP=BI+3*40+2+XP+40*YP
  16. 210 POKE CP,PEEK(CP)OR 128 :RETURN
  17. 220 POKE PP,C
  18. 225 PP=BI+XK+40*YK
  19. 230 C=PEEK(PP)
  20. 240 POKE PP,160:RETURN
  21. 250 POKE214,Y:POKE211,X:SYS58732:RETURN:REM CURSORPOSITION
  22. 300 POKE CP,PEEK(CP)AND 127:RETURN:REM LOESCH CURSOR
  23. 999 :
  24. 1000 REM HAUPTPROGRAMM
  25. 1001 REM"[163][163][163][163][163][163][163][163][163][163][163][163][163]
  26. 1030 [141] 13000 :[143] PRINT NEW CHAR
  27. 1040 BE$[178]"ESLUKANZMDVRUNDIMREADLET":[143] BEFEHLE
  28. 1100 [143] EINGABE SCHLAUFE
  29. 1110 [161] A$:[139] A$[178]"" [167] 1110
  30. 1115 [139] A$[178]""  [167] 1600
  31. 1120 [139] A$[178]"" [167] XP[178]XP[170]1:[137] 2000
  32. 1130 [139] A$[178]"CMD" [167] XP[178]XP[171]1:[137] 2000
  33. 1140 [139] A$[178]"" [167] YP[178]YP[170]1:[137] 2000
  34. 1150 [139] A$[178]"ON" [167] YP[178]YP[171]1:[137] 2000
  35. 1160 [139] A$[178]"" [167] XP[178]0:YP[178]0:[137] 2000
  36. 1170 [139] A$[178]" " [167] 2200
  37. 1180 [139] A$[178]"*" [167] 2400
  38. 1190 [139] A$[178]"TAN" [167] 2400
  39. 1200 [139] A$[178]"LOAD" [167] 2600
  40. 1210 [129] T[178]1 [164] [195](BE$)
  41. 1220 [139] A$[179][177][202](BE$,T,1) [167] [130]:[137] 1100
  42. 1230 [145] T [137] 3600,4200,4400,3400,3200,3800,3000,1380,4000,5800,5600
  43. 1240 [145] T[171]11 [137] 5400,5300,5200,5000
  44. 1250 [144]
  45. 1300 [139] A$[178]"N" [167] 3000 :[143] NEW CHAR
  46. 1310 [139] A$[178]"C" [167] 3200 :[143] COPY
  47. 1320 [139] A$[178]"I" [167] 3400 :[143] INVERS
  48. 1330 [139] A$[178]"Q" [167] 3600 :[143] ENDE
  49. 1340 [139] A$[178]"K" [167] 3800 :[143] KORRIGIREN
  50. 1350 [139] A$[178]"M" [167] 4000 :[143] M.-COLOR
  51. 1360 [139] A$[178]"S" [167] 4200 :[143] SAVEN
  52. 1370 [139] A$[178]"L" [167] 4400 :[143] LADEN
  53. 1380 [139] A$[178]"Z" [167] 4600 :[143] ZEICHNEN
  54. 1390 [139] A$[178]"LET" [167] 5000 :[143] F7
  55. 1400 [139] A$[178]"READ" [167] 5200 :[143] F5
  56. 1410 [139] A$[178]"DIM" [167] 5300 :[143] F3
  57. 1420 [139] A$[178]"RUN" [167] 5400 :[143] SHIFT F3
  58. 1430 [139] A$[178]"$" [167] 5600 :[143] VERZEICH.
  59. 1500 [137]1100
  60. 1900 [128]
  61. 2000 XP[178]XP [175] 7
  62. 2010 YP[178]YP [175] 7
  63. 2040 [141] 200
  64. 2050 [137] 1100
  65. 2200 [143] LOESCHEN
  66. 2210 [151] CP,128[170]32
  67. 2220 D[178]AD[170]YP
  68. 2230 [151] D,[194](D) [175] (255[171]P(XP))
  69. 2240 [137] 1100
  70. 2400 [143] SETZEN
  71. 2410 [151] CP,128[170]42
  72. 2420 D[178]AD[170]YP
  73. 2430 [151] D,[194](D) [176]  P(XP)
  74. 2440 [137] 1100
  75. 2600 [129] I[178]AD [164] AD[170]7:[151] I,0:[130]
  76. 2610 [141] 13000
  77. 2620 [137] 1100
  78. 2998 :
  79. 3000 [143] NEW CHAR
  80. 3001 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  81. 3010 T$="BILDSCHIRMCODE"
  82. 3020 ZA=1:MA=255
  83. 3030 GOSUB 14000
  84. 3040 CH=IN
  85. 3050 GOSUB 250
  86. 3070 GOSUB 13000
  87. 3080 GOTO 1100
  88. 3198 :
  89. 3199 REM KOPIEREN
  90. 3200 REM"[163][163][163][163][163][163][163][163]
  91. 3210 T$[178]"BILDSCHIRMCODE"
  92. 3220 ZA[178]1:MA[178]255
  93. 3230 [141] 14000
  94. 3240 A2[178]34816[170]8[172]IN
  95. 3250 [129]I[178]0[164]7:[151] AD[170]I,[194](A2[170]I):[130]
  96. 3260 [141] 13000
  97. 3270 [137] 1100
  98. 3398 :
  99. 3399 [143] INVERSE
  100. 3400 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  101. 3410 FORI=0TO7:POKE AD+I,255-PEEK(AD+I):NEXT
  102. 3420 GOSUB 13000
  103. 3430 GOTO 1100
  104. 3598 :
  105. 3599 REM QUIT
  106. 3600 REM"[163][163][163][163]
  107. 3610 [141] 6200
  108. 3620 [153]""
  109. 3630 [153][163]5)"NSTOPORMALER ZEICHENSATZ"
  110. 3640 [153][163]5)"GSTOPEAENDETER ZEICHENSATZ
  111. 3650 PRINTTAB(5)"U[144]NTERTEILTER BILDSCHIRM"
  112. 3660 PRINTTAB(5)"F1[144] ... ZUREUCK ZUM EDITOR"
  113. 3670 GET A$
  114. 3680 IF A$="[133]" THEN GOSUB 6100:GOTO 1000
  115. 3690 IF A$="U" THEN SYS 828:END
  116. 3710 IF A$="G" THEN POKE53248+24,2:END
  117. 3720 IF A$<>"N" THEN 3670
  118. 3730 GOTO 6000:REM NORMAL
  119. 3798 :
  120. 3799 REM KORRIGIEREN
  121. 3800 REM"[163][163][163][163][163][163][163][163][163][163][163]
  122. 3805 [141] 300
  123. 3810 X[178]12:Y[178]11
  124. 3820 [141]250
  125. 3830 [153]"ZEICHENSATZ 1,2,3 ?";
  126. 3835 [161] A$:[139] A$[178]"INPUT" [167] [141] 16000:[137] 2000
  127. 3836 [139] A$[177]"3" [176] A$[179]"1" [137] 3835
  128. 3840 [139] 1  [167] [151]2,204[170]4[172][197](A$):[158] 51200 :[137] 3900
  129. 3850 [151]56334,0:[151] 1,51
  130. 3860 A1[178]53248[170]8[172]CH[171]2048[172](A$[178]"K")
  131. 3870 [129] I[178]0 [164] 7 :[151]I[170]AD,[194](A1[170]I):[130]
  132. 3880 [151] 1,55:[151]56334,1
  133. 3900 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD                   ";
  134. 3910 [141] 13000
  135. 3920 [137] 1100
  136. 3998 :
  137. 3999 [143] MULTICOLOR
  138. 4000 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  139. 4010 H1=PEEK(V+22)
  140. 4020 X=35:Y=6:GOSUB250
  141. 4030 IF H1AND 2^4 GOTO 4070
  142. 4040 PRINT"[158]AUS";
  143. 4050 POKE V+22,H1 OR 2^4
  144. 4055 X=PEEK(55296+40*22)  AND 15
  145. 4060 IF X>7 THEN 1100
  146. 4061 X=X OR 8
  147. 4062 GOTO 5220: REM ZEICHENFARBE
  148. 4070 PRINT"[158]EIN";
  149. 4080 POKE V+22,H1-2^4
  150. 4090 GOTO 1100
  151. 4198 :
  152. 4199 REM SAVEN
  153. 4200 REM "[163][163][163][163]
  154. 4210 [141] 9000 :[143] FILENAME
  155. 4220 [151] 194,136:[143] HI  STARTADRESSE
  156. 4230 [151] 193,  0:[143] LO  STARTADRESSE
  157. 4240 [151] 175,144:[143] HI  ENDADRESSE
  158. 4250 [151] 174,  0:[143] LO  ENDADRESSE
  159. 4255 [151] 648,4:
  160. 4260 [158] 62954 :[143] SAVE-ROUTINE
  161. 4265 [151] 648,128
  162. 4270 [141] 17000
  163. 4290 [137] 2000
  164. 4398 :
  165. 4399 [143] LADEN
  166. 4400 [143]"TAB(TAB(TAB(TAB(TAB(
  167. 4410 GOSUB 9000 :REM FILENAME
  168. 4420 POKE 782,136:REM HI  STARTADRESSE
  169. 4430 POKE 781,  0:REM LO  STARTADRESSE
  170. 4440 POKE 780,0  :REM LOAD/V. FLAG
  171. 4445 POKE 648,4
  172. 4450 SYS 65493 :REM LOAD-ROUTINE
  173. 4455 POKE 648,128
  174. 4460 GOSUB 17000
  175. 4490 GOTO 1000
  176. 4598 :
  177. 4599 REM ZEICHNEN
  178. 4600 REM"[163][163][163][163][163][163][163][163]
  179. 4601 [141] 300
  180. 4605 D$[178]"               "
  181. 4607 [151] 646,[194](55296[170]23[172]40):[143] FARBE
  182. 4610 XK[178]0:YK[178]13
  183. 4620 PP[178]BI[170]XK[170]40[172]YK
  184. 4630 C[178][194](PP)
  185. 4640 [141] 220
  186. 4700 [161] A$:[139] A$[178]"" [167] 4700
  187. 4705 A[178][198](A$)
  188. 4710 [139] A$[178]"" [167] XK[178]0:YK[178]13:[137] 4800
  189. 4715 [139] A$[178]"" [167] XK[178]XK[170]1:[137] 4800
  190. 4720 [139] A$[178]"CMD" [167] XK[178]XK[171]1:[137] 4800
  191. 4725 [139] A$[178]"" [167] YK[178]YK[170]1:[137] 4800
  192. 4730 [139] A$[178]"ON" [167] YK[178]YK[171]1:[137] 4800
  193. 4735 [139] A$[178]"INPUT" [167] [151]PP,C:[137] 2000 :[143] ENDE
  194. 4740 [139] A[178]13 [167] XK[178]0:YK[178]YK[170]1:[137]4800
  195. 4745 [139] A$[178]"LOAD"[167] 4950
  196. 4760 [139](A[177]31[175]A[179]127)[176](A[177]160[175]A[179]191)[167]4900
  197. 4765 [139] A[178]14 [167] 4700
  198. 4770 [139] A[178]20 [167] 4700
  199. 4775 [139] A[177]1132 [175] A[179]143 [167] 4700
  200. 4780 [139] A[178]148 [167] 4700
  201. 4785 [139] A[177]191 [167] 4700
  202. 4790 [153]A$;
  203. 4800 [139] XK[177]23 [167] XK[178]0
  204. 4810 [139] YK[177]18 [167] YK[178]13
  205. 4820 [139] XK[179]0  [167] XK[178]23
  206. 4830 [139] YK[179]13 [167] YK[178]18
  207. 4840 [141] 220
  208. 4850 [137] 4700
  209. 4900 X[178]XK:Y[178]YK:[141]250:[153]A$;:XK[178]XK[170]1:[139] XK[177]23 [167] XK[178]0
  210. 4910 [141] 225
  211. 4920 [137] 4700
  212. 4950 XK[178]0:YK[178]13:X[178]XK:Y[178]YK:[141]250
  213. 4960 [129] I[178]1[164]6:[153]"                        ":[130]
  214. 4970 C[178]32:[137] 4800
  215. 4980 :
  216. 4998 :
  217. 4999 [143] HINTERGRUNDFARBE 1
  218. 5000 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  219. 5010 POKE 254,(PEEK(254)+1) AND 15
  220. 5020 GOTO 1100
  221. 5198 :
  222. 5199 REM ZEICHENFARBE
  223. 5200 REM HINTERGRUNDFARBE 2
  224. 5210 X=(PEEK(55296+40*24)+1) AND 15
  225. 5220 A=55296 +18*40+24
  226. 5230 FORI=0 TO 255:POKEI+A,X:NEXT
  227. 5240 P=14 *40+28
  228. 5250 POKE55296+P,X
  229. 5260 GOTO 1100
  230. 5299 :
  231. 5300 REM HINTERGRUNDFARBE 2
  232. 5301 REM"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  233. 5310 [151] 53282,([194](53282)[170]1) [175] 15
  234. 5320 [137] 1100
  235. 5398 :
  236. 5400 [143] HINTERGRUNDFARBE 2
  237. 5401 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  238. 5410 POKE 53283,(PEEK(53283)+1) AND 15
  239. 5420 GOTO 1100
  240. 5499 :
  241. 5600 REM VERZEICHNISS
  242. 5601 REM"[163][163][163][163][163][163][163][163][163][163][163][163]
  243. 5605 [151] 49152[170]13,1
  244. 5610 [141] 6200
  245. 5620 [158] 49152
  246. 5625 [141] 17000
  247. 5630 [153]"STOPDRUECKEN SIE EINE TASTEWAIT";
  248. 56