home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 11 / Tiger_Disk_011_19xx_Tiger-Crew-Disk_de_Side_B.d64 / zs-generator! (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  11KB  |  475 lines
  1. 1 poke788,52
  2. 5 goto 10000 : rem init und start
  3. 6 :
  4. 7 version 1.8
  5. 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]"
  6. 9 "(c) 1984 by  s. seefeld"
  7. 10 "[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  8. 20 "(NULL)                    (NULL)
  9. 30 "[221] zeichensatz-former [221]
  10. 40 "(NULL)                    (NULL)
  11. 50 "[221] copyright 1984 by  [221]
  12. 60 "(NULL)   u. bachfischer   (NULL)
  13. 70 "[221]                    [221]
  14. 80 "mid$tantantantantantantantantantantantantantantantantantantantan(NULL)
  15. 200 poke cp,peek(cp)and 127
  16. 205 cp=bi+3*40+2+xp+40*yp
  17. 210 poke cp,peek(cp)or 128 :return
  18. 220 poke pp,c
  19. 225 pp=bi+xk+40*yk
  20. 230 c=peek(pp)
  21. 240 poke pp,160:return
  22. 250 poke214,y:poke211,x:sys58732:return:rem cursorposition
  23. 300 poke cp,peek(cp)and 127:return:rem loesch cursor
  24. 999 :
  25. 1000 rem hauptprogramm
  26. 1001 rem"[163][163][163][163][163][163][163][163][163][163][163][163][163]
  27. 1030 [141] 13000 :[143] print new char
  28. 1040 be$[178]"eslukanzmdvrundimreadlet":[143] befehle
  29. 1100 [143] eingabe schlaufe
  30. 1110 [161] a$:[139] a$[178]"" [167] 1110
  31. 1115 [139] a$[178]""  [167] 1600
  32. 1120 [139] a$[178]"" [167] xp[178]xp[170]1:[137] 2000
  33. 1130 [139] a$[178]"cmd" [167] xp[178]xp[171]1:[137] 2000
  34. 1140 [139] a$[178]"" [167] yp[178]yp[170]1:[137] 2000
  35. 1150 [139] a$[178]"on" [167] yp[178]yp[171]1:[137] 2000
  36. 1160 [139] a$[178]"" [167] xp[178]0:yp[178]0:[137] 2000
  37. 1170 [139] a$[178]" " [167] 2200
  38. 1180 [139] a$[178]"*" [167] 2400
  39. 1190 [139] a$[178]"tan" [167] 2400
  40. 1200 [139] a$[178]"load" [167] 2600
  41. 1210 [129] t[178]1 [164] [195](be$)
  42. 1220 [139] a$[179][177][202](be$,t,1) [167] [130]:[137] 1100
  43. 1230 [145] t [137] 3600,4200,4400,3400,3200,3800,3000,1380,4000,5800,5600
  44. 1240 [145] t[171]11 [137] 5400,5300,5200,5000
  45. 1250 [144]
  46. 1300 [139] a$[178]"n" [167] 3000 :[143] new char
  47. 1310 [139] a$[178]"c" [167] 3200 :[143] copy
  48. 1320 [139] a$[178]"i" [167] 3400 :[143] invers
  49. 1330 [139] a$[178]"q" [167] 3600 :[143] ende
  50. 1340 [139] a$[178]"k" [167] 3800 :[143] korrigiren
  51. 1350 [139] a$[178]"m" [167] 4000 :[143] m.-color
  52. 1360 [139] a$[178]"s" [167] 4200 :[143] saven
  53. 1370 [139] a$[178]"l" [167] 4400 :[143] laden
  54. 1380 [139] a$[178]"z" [167] 4600 :[143] zeichnen
  55. 1390 [139] a$[178]"let" [167] 5000 :[143] f7
  56. 1400 [139] a$[178]"read" [167] 5200 :[143] f5
  57. 1410 [139] a$[178]"dim" [167] 5300 :[143] f3
  58. 1420 [139] a$[178]"run" [167] 5400 :[143] shift f3
  59. 1430 [139] a$[178]"$" [167] 5600 :[143] verzeich.
  60. 1500 [137]1100
  61. 1900 [128]
  62. 2000 xp[178]xp [175] 7
  63. 2010 yp[178]yp [175] 7
  64. 2040 [141] 200
  65. 2050 [137] 1100
  66. 2200 [143] loeschen
  67. 2210 [151] cp,128[170]32
  68. 2220 d[178]ad[170]yp
  69. 2230 [151] d,[194](d) [175] (255[171]p(xp))
  70. 2240 [137] 1100
  71. 2400 [143] setzen
  72. 2410 [151] cp,128[170]42
  73. 2420 d[178]ad[170]yp
  74. 2430 [151] d,[194](d) [176]  p(xp)
  75. 2440 [137] 1100
  76. 2600 [129] i[178]ad [164] ad[170]7:[151] i,0:[130]
  77. 2610 [141] 13000
  78. 2620 [137] 1100
  79. 2998 :
  80. 3000 [143] new char
  81. 3001 [143]"tab(tab(tab(tab(tab(tab(tab(tab(
  82. 3010 t$="bildschirmcode"
  83. 3020 za=1:ma=255
  84. 3030 gosub 14000
  85. 3040 ch=in
  86. 3050 gosub 250
  87. 3070 gosub 13000
  88. 3080 goto 1100
  89. 3198 :
  90. 3199 rem kopieren
  91. 3200 rem"[163][163][163][163][163][163][163][163]
  92. 3210 t$[178]"bildschirmcode"
  93. 3220 za[178]1:ma[178]255
  94. 3230 [141] 14000
  95. 3240 a2[178]34816[170]8[172]in
  96. 3250 [129]i[178]0[164]7:[151] ad[170]i,[194](a2[170]i):[130]
  97. 3260 [141] 13000
  98. 3270 [137] 1100
  99. 3398 :
  100. 3399 [143] inverse
  101. 3400 [143]"tab(tab(tab(tab(tab(tab(tab(
  102. 3410 fori=0to7:poke ad+i,255-peek(ad+i):next
  103. 3420 gosub 13000
  104. 3430 goto 1100
  105. 3598 :
  106. 3599 rem quit
  107. 3600 rem"[163][163][163][163]
  108. 3610 [141] 6200
  109. 3620 [153]""
  110. 3630 [153][163]5)"nstopormaler zeichensatz"
  111. 3640 [153][163]5)"gstopeaendeter zeichensatz
  112. 3650 printtab(5)"u[144]nterteilter bildschirm"
  113. 3660 printtab(5)"f1[144] ... zurueck zum editor"
  114. 3670 get a$
  115. 3680 if a$="[133]" then gosub 6100:goto 1000
  116. 3690 if a$="u" then sys 828:end
  117. 3710 if a$="g" then poke53248+24,2:end
  118. 3720 if a$<>"n" then 3670
  119. 3730 goto 6000:rem normal
  120. 3798 :
  121. 3799 rem korrigieren
  122. 3800 rem"[163][163][163][163][163][163][163][163][163][163][163]
  123. 3805 [141] 300
  124. 3810 x[178]12:y[178]11
  125. 3820 [141]250
  126. 3830 [153]"zeichensatz 1,2,3 ?";
  127. 3835 [161] a$:[139] a$[178]"input" [167] [141] 16000:[137] 2000
  128. 3836 [139] a$[177]"3" [176] a$[179]"1" [137] 3835
  129. 3840 [139] 1  [167] [151]2,204[170]4[172][197](a$):[158] 51200 :[137] 3900
  130. 3850 [151]56334,0:[151] 1,51
  131. 3860 a1[178]53248[170]8[172]ch[171]2048[172](a$[178]"k")
  132. 3870 [129] i[178]0 [164] 7 :[151]i[170]ad,[194](a1[170]i):[130]
  133. 3880 [151] 1,55:[151]56334,1
  134. 3900 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd                   ";
  135. 3910 [141] 13000
  136. 3920 [137] 1100
  137. 3998 :
  138. 3999 [143] multicolor
  139. 4000 [143]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  140. 4010 h1=peek(v+22)
  141. 4020 x=35:y=6:gosub250
  142. 4030 if h1and 2^4 goto 4070
  143. 4040 print"[158]aus";
  144. 4050 poke v+22,h1 or 2^4
  145. 4055 x=peek(55296+40*22)  and 15
  146. 4060 if x>7 then 1100
  147. 4061 x=x or 8
  148. 4062 goto 5220: rem zeichenfarbe
  149. 4070 print"[158]ein";
  150. 4080 poke v+22,h1-2^4
  151. 4090 goto 1100
  152. 4198 :
  153. 4199 rem saven
  154. 4200 rem "[163][163][163][163]
  155. 4210 [141] 9000 :[143] filename
  156. 4220 [151] 194,136:[143] hi  startadresse
  157. 4230 [151] 193,  0:[143] lo  startadresse
  158. 4240 [151] 175,144:[143] hi  endadresse
  159. 4250 [151] 174,  0:[143] lo  endadresse
  160. 4255 [151] 648,4:
  161. 4260 [158] 62954 :[143] save-routine
  162. 4265 [151] 648,128
  163. 4270 [141] 17000
  164. 4290 [137] 2000
  165. 4398 :
  166. 4399 [143] laden
  167. 4400 [143]"tab(tab(tab(tab(tab(
  168. 4410 gosub 9000 :rem filename
  169. 4420 poke 782,136:rem hi  startadresse
  170. 4430 poke 781,  0:rem lo  startadresse
  171. 4440 poke 780,0  :rem load/v. flag
  172. 4445 poke 648,4
  173. 4450 sys 65493 :rem load-routine
  174. 4455 poke 648,128
  175. 4460 gosub 17000
  176. 4490 goto 1000
  177. 4598 :
  178. 4599 rem zeichnen
  179. 4600 rem"[163][163][163][163][163][163][163][163]
  180. 4601 [141] 300
  181. 4605 d$[178]"               "
  182. 4607 [151] 646,[194](55296[170]23[172]40):[143] farbe
  183. 4610 xk[178]0:yk[178]13
  184. 4620 pp[178]bi[170]xk[170]40[172]yk
  185. 4630 c[178][194](pp)
  186. 4640 [141] 220
  187. 4700 [161] a$:[139] a$[178]"" [167] 4700
  188. 4705 a[178][198](a$)
  189. 4710 [139] a$[178]"" [167] xk[178]0:yk[178]13:[137] 4800
  190. 4715 [139] a$[178]"" [167] xk[178]xk[170]1:[137] 4800
  191. 4720 [139] a$[178]"cmd" [167] xk[178]xk[171]1:[137] 4800
  192. 4725 [139] a$[178]"" [167] yk[178]yk[170]1:[137] 4800
  193. 4730 [139] a$[178]"on" [167] yk[178]yk[171]1:[137] 4800
  194. 4735 [139] a$[178]"input" [167] [151]pp,c:[137] 2000 :[143] ende
  195. 4740 [139] a[178]13 [167] xk[178]0:yk[178]yk[170]1:[137]4800
  196. 4745 [139] a$[178]"load"[167] 4950
  197. 4760 [139](a[177]31[175]a[179]127)[176](a[177]160[175]a[179]191)[167]4900
  198. 4765 [139] a[178]14 [167] 4700
  199. 4770 [139] a[178]20 [167] 4700
  200. 4775 [139] a[177]1132 [175] a[179]143 [167] 4700
  201. 4780 [139] a[178]148 [167] 4700
  202. 4785 [139] a[177]191 [167] 4700
  203. 4790 [153]a$;
  204. 4800 [139] xk[177]23 [167] xk[178]0
  205. 4810 [139] yk[177]18 [167] yk[178]13
  206. 4820 [139] xk[179]0  [167] xk[178]23
  207. 4830 [139] yk[179]13 [167] yk[178]18
  208. 4840 [141] 220
  209. 4850 [137] 4700
  210. 4900 x[178]xk:y[178]yk:[141]250:[153]a$;:xk[178]xk[170]1:[139] xk[177]23 [167] xk[178]0
  211. 4910 [141] 225
  212. 4920 [137] 4700
  213. 4950 xk[178]0:yk[178]13:x[178]xk:y[178]yk:[141]250
  214. 4960 [129] i[178]1[164]6:[153]"                        ":[130]
  215. 4970 c[178]32:[137] 4800
  216. 4980 :
  217. 4998 :
  218. 4999 [143] hintergrundfarbe 1
  219. 5000 [143]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  220. 5010 poke 254,(peek(254)+1) and 15
  221. 5020 goto 1100
  222. 5198 :
  223. 5199 rem zeichenfarbe
  224. 5200 rem hintergrundfarbe 2
  225. 5210 x=(peek(55296+40*24)+1) and 15
  226. 5220 a=55296 +18*40+24
  227. 5230 fori=0 to 255:pokei+a,x:next
  228. 5240 p=14 *40+28
  229. 5250 poke55296+p,x
  230. 5260 goto 1100
  231. 5299 :
  232. 5300 rem hintergrundfarbe 2
  233. 5301 rem"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  234. 5310 [151] 53282,([194](53282)[170]1) [175] 15
  235. 5320 [137] 1100
  236. 5398 :
  237. 5400 [143] hintergrundfarbe 2
  238. 5401 [143]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  239. 5410 poke 53283,(peek(53283)+1) and 15
  240. 5420 goto 1100
  241. 5499 :
  242. 5600 rem verzeichniss
  243. 5601 rem"[163][163][163][163][163][163][163][163][163][163][163][163]
  244. 5605 [151] 49152[170]13,1
  245. 5610 [141] 6200
  246. 5620 [158] 49152
  247. 5625 [141] 17000
  248. 5630 [153]"stopdruecken sie eine tastewait";
  249. 5640 [161] a$:[139] a$[178]"" [167] 5640
  250. 5650 [141] 6100
  251. 5660 [137] 1100
  252. 5699 :
  253. 5800 [143] datei
  254. 5801 [143]"tab(tab(tab(tab(tab(
  255. 5810 poke 49152+13,4
  256. 5820 goto 5610
  257. 5999 :
  258. 6000 rem normal
  259. 6010 rem"[163][163][163][163][163][163]
  260. 6020 [151]648,4
  261. 6030 [151] 53248[170]24,21
  262. 6040 [151] 56576,151
  263. 6050 [153]"load auf wiedersehen"
  264. 6060 [128]
  265. 6070 :
  266. 6100 [143] gbildschirm
  267. 6101 [143]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  268. 6110 poke 648,128
  269. 6120 poke 56576,peek(56576) and 253
  270. 6130 poke 53248+24,2*1+16*0+2
  271. 6140 poke 648,128
  272. 6150 poke 254 ,0
  273. 6160 poke 253 ,11
  274. 6170 poke 251,0:poke252,152:   :sys828
  275. 6174 poke 53281,3
  276. 6175 gosub 12000
  277. 6176 gosub 13000
  278. 6180 return
  279. 6190 :
  280. 6200 rem tbildschirm
  281. 6201 rem"[163][163][163][163][163][163][163][163][163][163][163]
  282. 6210 [151] 648,128
  283. 6220 [151] 56576,[194](56576) [175] 253
  284. 6230 [158]4096[172]14[170]256[172]5[170]10[172]16[170]0
  285. 6240 [151] 53248[170]24,2[172]1[170]16[172]0[170]2
  286. 6250 [151] 53280,6
  287. 6255 [151] 53281,11
  288. 6260 [153]"load"
  289. 6280 [142]
  290. 6290 :
  291. 9000 [143] filename einlesen
  292. 9030 t$[178]"filename"
  293. 9040 za[178]0:ma[178]12
  294. 9050 [141]14000
  295. 9090 [158] 57812 "@0:"[170]in$[170]".zsa,s",8:[143] filename und geraete adresse
  296. 9100 [142]
  297. 9110 :
  298. 10000 [143] initialisieren
  299. 10001 [143]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  300. 10003 [158]4096[172]14[170]256[172]5[170]10[172]16[170]0
  301. 10005 [158]4096[172]14[170]256[172]5[170]10[172]16[170]0 :[151] 56576,151:[151] 53248[170]24,21
  302. 10007 [151] 648,4  :[153]"load"
  303. 10010 [153]"  zeichensatzformer"
  304. 10020 [153]" (c) '84 by u. bachfischer"
  305. 10030 [153]" bitte warten sie"
  306. 10040 [151] 56,90:[151]55,0:[156]:[143] basic grenze
  307. 10050 v[178]53248
  308. 10053 [151] v[170]24,21
  309. 10055 bi[178]32768:[143] bildschirm
  310. 10100 [143] lade zeichen
  311. 10110 s[178]0:[129] i[178]51200[164]51242
  312. 10120 [135]x:[151]i,x:s[178]s[170]x:[130]
  313. 10130 [139] s[179][177]4657  [167][153]"data error":[144]:[128]
  314. 10140 [143] raster-interrupt
  315. 10150 s[178]0:[129] i[178]828 [164] 915
  316. 10160 [135]x:[151]i,x:s[178]s[170]x:[130]
  317. 10170 [139] s[179][177]11012[167][153]"data error":[144]:[128]
  318. 10180 [143] verzeichniss
  319. 10185 s[178]0:[129] i[178]49152 [164] 49260
  320. 10190 [135]x:[151]i,x:s[178]s[170]x:[130]
  321. 10200 [139] s[179][177]15614 [167][153]"data error":[144]:[128]
  322. 10210 [153]"zeichensatz ueberschreiben?"
  323. 10215 [151] 2,208:[143] hi-byte der urschprungsadresse
  324. 10220 [161] a$:[139] a$[178]"n" [167] 10250
  325. 10230 [139] a$[178]"" [167] 10220
  326. 10240 [158]51200
  327. 10250 :
  328. 10270 [141] 6100: [143] gbildschirm
  329. 10320 [143]   ch=0 : rem momentales zeichen
  330. 10410 [137] 15000:[143] reset +start
  331. 10900 [171][171][171] zeichensatz ab 8800h [178] 34816
  332. 10910 [171][171][171] gbildschirm ab 8000h [178] 32768
  333. 10920 [171][171][171] tbildschirm ab 8400h [178] 33792
  334. 10921 :
  335. 11000 [143] zeichensatz kopieren
  336. 11001 [143]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  337. 11010 data 120,165,1,72,41,251,133,1,165,2,133,3
  338. 11020 data 169,136,133,5,160,0,132,2,132,4,162,8
  339. 11030 data 177,2,145,4,200,208,249,230,3,230,5,202
  340. 11040 data 208,242,104,133,1,88,96
  341. 11050 :
  342. 11100 rem rasterzeilen-interrupt
  343. 11101 rem"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  344. 11110 [131] 120,169,91,141,20,3,169,3,141,21,3,165
  345. 11120 [131] 251,141,18,208,173,17,208,41,127,141,17,208
  346. 11130 [131] 169,129,141,26,208,88,96,173,25,208,141,25
  347. 11140 [131] 208,41,1,208,7,173,13,220,88,76,49,234
  348. 11150 [131] 173,18,208,197,252,176,15,165,253,141,33,208,169,4:[143] wert1
  349. 11160 [131] 141,24,208,165,252,76,142,3,165,254,141,33
  350. 11170 [131] 208,169,2,141,24,208,165,251,141,18,208,76,188,254
  351. 11199 :
  352. 11200 [143] verzeichniss
  353. 11201 [143]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  354. 11210 data 169,36,133,251,169,105,133,187,169,192,133,188
  355. 11220 data 169,4,133,183,169,8,133,186,169,96,133,185
  356. 11230 data 32,213,243,165,186,32,180,255,165,185,32,150
  357. 11240 data 255,169,0,133,144,160,3,132,251,32,165,255
  358. 11250 data 133,252,164,144,208,47,32,165,255,164,144,208
  359. 11260 data 40,164,251,136,208,233,166,252,32,205,189,169
  360. 11270 data 32,32,210,255,32,165,255,166,144,208,18,170
  361. 11280 data 240,6,32,210,255,76,76,192,169,13,32,210
  362. 11290 data 255,160,2,208,198,32,66,246,96,36,42,61,83
  363. 11999 :
  364. 12000 rem bildschirm aufteilung
  365. 12010 poke 53280,9:poke53281,11
  366. 12020 print"[154][147]zeichensatz-former (c) by u.bachfischer"
  367. 12025 poke bi+39,160:poke 55296+39,0
  368. 12030 print" [186][186][186][186][186][186][186][186][186][175]
  369. 12040 [129] i[178]1 [164] 8
  370. 12050 [153]" sqr        (NULL)
  371. 12060 next
  372. 12070 print"  [207][207][207][207][207][207][207][207][207]
  373. 12100 a[178]2[174]15[170]18[172]40[170]24
  374. 12110 [129]i[178]0 [164] 255:[151]i[170]a,i:[130]
  375. 12200 c$[178]""
  376. 12210 [153]""
  377. 12220 [153]c$"esysnde"
  378. 12230 [153]c$"lsysaden"
  379. 12240 [153]c$"zsyseichnen"
  380. 12250 [153]c$"usysmkehren"
  381. 12260 [153]c$"dsysatei"
  382. 12270 [153]c$"ksysopieren"
  383. 12280 [153]c$
  384. 12290 [153]c$"f1sys _ menue"
  385. 12300 [153]c$"f3sys farbe 2"
  386. 12310 c$[178]""
  387. 12320 [153]""
  388. 12330 [153]c$"nsyseues zeichen"
  389. 12340 [153]c$"ssyspeichern"
  390. 12350 [153]c$"asyslte zeichen"
  391. 12360 [153]c$"vsyserzeichniss"
  392. 12370 [153]c$"msysehrfarbig ein"
  393. 12380 [153]c$"f5sys zeichenfarbe"
  394. 12390 [153]c$"f7sys hintergrund"
  395. 12400 [142]
  396. 13000 [143]print new char   ch=char
  397. 13010 ad[178]34816[170]8[172]ch
  398. 13020 [153]""
  399. 13025 [153]"sys"[201]("    "[170][196](ch),5)"   "
  400. 13030 [129] i[178]0 [164]7
  401. 13035 [153]:[153]"";
  402. 13040 x[178][194](i[170]ad)
  403. 13050 [129] j[178]0 [164] 7
  404. 13060 [139] x [175] p(j)[167] [153]"*";:[137] 13080
  405. 13070 [153]" ";
  406. 13080 [130]:[130]
  407. 13090 xp[178]0:yp[178]0 :[143] cursorposition
  408. 13100 [141] 200
  409. 13120 p[178]14 [172]40[170]28
  410. 13130 [151]bi[170]p,ch
  411. 13140 [151]55296[170]p,7[170]8
  412. 13190 [142]
  413. 14000 [143] input string
  414. 14001 [143] t$=text ;ma=maximum;za=zahlflag
  415. 14002 [143] in$=string;l=laenge;in=zahl,wenn zahl
  416. 14010 [141] 300:x[178]12:y[178]11:[141] 250
  417. 14012 [153]""t$":stop andcmd";
  418. 14015 [139] za [167] x1[178]ma:ma[178][188](ma)[173][188](10)[170]1
  419. 14020 in$[178]"":l[178]0
  420. 14030 [161] a$:[139] a$[178]"" [167] 14030
  421. 14040 a[178][198](a$)
  422. 14050 [139] a[178]13 [167] 14300
  423. 14055 [139] a$[178]"input" [167] [141] 14400:[141] 16000:[137] 15000 [143] reset
  424. 14060 [139](a[179][177]20)[175](a[179][177]157)[167] 14100
  425. 14070 [139] l[178]0  [167] 14200
  426. 14080 l[178]l[171]1:in$[178][200](in$,l)
  427. 14090 [153]" cmdcmdandcmd";
  428. 14095 [137]14030
  429. 14100 [139] a[179]32 [176] a[177]127 [167] 14200
  430. 14120 [139] 1[171] za [167] 14150
  431. 14130 [139] a$[177]"9" [176] a$[179]"0" [167] 14200
  432. 14140 [139] [197](in$[170]a$)[177]x1 [167] 14200
  433. 14150 in$[178]in$[170]a$:l[178]l[170]1:[153]a$"andcmd";
  434. 14155 [139] l[178]ma [167] 14300
  435. 14160 [137] 14030
  436. 14200 si[178]54272
  437. 14210 [151]si[170]24,15
  438. 14220 [151]si[170]0 ,15 :[151]si[170]1,30
  439. 14230 [151]si[170]5 ,16[172]0[170]7
  440. 14240 [151]si[170]6 ,16[172]0[170]0
  441. 14250 [151]si[170]4 ,0:[151]si[170]4,17
  442. 14260 [137] 14030
  443. 14300 [139] l[178]0 [167] 14030
  444. 14310 in[178][197](in$)
  445. 14330 [137] 16000:clear [170] [142]
  446. 14400 [153]" cmd"[201]("cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd",l);
  447. 14410 [153][201]("                               ",l);
  448. 14420 [142]
  449. 14999 :
  450. 15000 [143] reset /fehler
  451. 15001 [143]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  452. 15010 [151] 2,ch:[143] charakter retten
  453. 15020 [156]
  454. 15030 ch[178][194](2)
  455. 15040 v[178]53248
  456. 15050 p1[178]56321:[143] port1
  457. 15060 ze[178]34816:[143] zeichensatz anfang
  458. 15070 bi[178]32768:[143] bildschirm
  459. 15080 [129] i[178]0[164] 7:p(i)[178]2[174](7[171]i):[130]
  460. 15100 [137] 1000:[143] ruecksprung
  461. 15370 :
  462. 16000 [143] loesche zeile
  463. 16001 [143]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  464. 16010 print"                               "
  465. 16020 return
  466. 17000 rem errorkanal
  467. 17001 rem"[163][163][163][163][163][163][163][163][163][163]
  468. 17010 [160] 15:[159] 15,8,15
  469. 17020 [132]15,er,a$,b$,c$
  470. 17030 [139] er [178] 0 [167] [142]
  471. 17040 x[178]12:y[178]11:[141] 250
  472. 17050 [153]"stop"er"cmd  "a$"   "b$","c$
  473. 17060 [129] x[178]1 [164] 1000:[161] a$:[139] a$[178]"" [167] [130]
  474. 17070 [137]  16000:[143] clear + return
  475.