home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 88xx / 8810a.d64 / schreibmasch2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  11.4 KB  |  388 lines
  1. 0 :
  2. 1 REM ***************************
  3. 2 REM *  SCHREIBMASCHINE 10/86  *
  4. 3 REM *    BERTRAM HAFNER       *
  5. 4 REM *  BISCHOF-ULRICH-STR.12  *
  6. 5 REM *   8934 GROSSAITINGEN    *
  7. 6 REM * VERBESSERTE 120D-VERSI. *
  8. 7 REM * VON NIKOLAUS HEUSLER/PD *
  9. 8 REM ***************************
  10. 9 CLR
  11. 10 REM MASKE
  12. 11 POKE53280,0:POKE53281,11:PRINT"[147]"+CHR$(14);:NB$="B-DEUTSCH     ":GOSUB349
  13. 14 GOSUB37:POKE53272,(PEEK(53272)AND240)+12:PRINTCHR$(14);CHR$(8);
  14. 15 PRINT"[144]  [182][180][171][176][179][146][177][178] [172][146][154] [160][174][167][146][171][178][177][173][191][167][176][174][167][146][171][173][176][146][177][160][160][144] [187][146][155][170]  5 [144][170][187]1";
  15. 16 PRINT"  [182][180][187][177][179][179][146]  [188][146][154]  [163][183][184][162][185][175][164][160][160][164][175][185][162][146][184][183][163] [144] [190][146][155]  75[170][144][170][187]3";
  16. 17 PRINT"[146]  [182][180][169][171][146][178][174][173][190][160][146][160][154][208][201][195][193]        [220][189][169][178][166][146][220][144] [160][146] [179][166][191][146][191][170] _";
  17. 18 PRINT"[189][146]=[170] [173][176][146][171][176][166][179][160][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][160][146][160][185][155][162][144][146][184][183][170][187]5";
  18. 19 PRINT"  [170] [179][146][177][189][179][146]/[172][173][174][167][146] [166][168][174][167][146][171][177][176][146][160][160][146][155][176][191][146][178][167][144] [170]  [160][146] [183][155][184][144][146][162][185][170]  ";
  19. 20 PRINT"  [170] [177][146][178][173][176][179][146] [176][191] [155][173][146][177][173][166][177]> 1[144][188][160][146][191][178][177][173][179][146][170][187]6[160][146][191][166][191][167][146][169][170][187]7";
  20. 21 PRINT"  [170] [166][191][146]/[174][176] [160][146][155]           [144][160][146][177][176][146][179]  [170]  [160][146][155][172][178][171][167][146][169][144][170][187]8";
  21. 22 PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][146]";
  22. 26 PRINT," BITTE WARTEN[144]"
  23. 27 PRINT" [210][197][212][213][210][206][146]>   [217]EILENSCHALTUNG UND"
  24. 28 PRINT," (MIT F8) SOFORTIGER [196]RUCK"
  25. 29 PRINT" [200][207][205][197]/[195][204][210][146]> [217]EILE L:SCHEN/EINF@GEN"
  26. 30 PRINT" [195][212][210][204][146]>     HALTEN, BIS GEW@NSCHTE":PRINT," [211]CHRIFTART ERSCHEINT"
  27. 31 PRINT" [213]NTERSTREICHEN, [198]ETT- ,[203]URSIVSCHRIFT"
  28. 32 PRINT" SIND INNERHALB DER [217]EILE WIRKSAM,"
  29. 33 PRINT" [211]CHRIFTART UND -BREITE NUR YEILENWEISE."
  30. 34 PRINT"[214]ERBESSERTE [214]ERSION, [215].[207]SWALD/NH/PD
  31. 35 NB$[178]"M-SCHREIB2":[141]349:[141]37:[137]43
  32. 37 [159]15,8,15:[132]15,A1%:[160]15:[139]A1%[167][153]"ASCEHLER BEIM (null)ACHLADEN":[128]
  33. 38 [142]
  34. 40 [143] BASIC-ENDE
  35. 43 [151]52,56:[151]56,56:[156]
  36. 45 [143] HAEUFIGE VAR.
  37. 46 L%[178]5:R%[178]75:BR%[178]0:B%[178]0:A%[178]1:K%[178]0:X%[178]0:N1%[178]0:N2%[178]0:[143] REIHENFOLGE N.AENDERN!
  38. 47 A$[178]"":A1%[178]0:V%[178]0:F[178]55296:V[178]53248:S[178]54272:Z%[178]1744:C%[178]0:CX%[178]0:CY%[178]0
  39. 48 V1[178]V[170]1:V6[178]V[170]16:V3[178]V[170]31:M1%[178]256:M2%[178]320:M3%[178]653:M4%[178]204:DR%[178]1:ZL%[178]1
  40. 50 [134]ZE(2):ZE(0)[178]8:ZE(1)[178]4:ZE(2)[178]13.8:[143] ZEICHENBREITEN
  41. 51 [134]Z%(2):Z%(0)[178]12:Z%(1)[178]8:Z%(2)[178]24:[143] ZEICHENBREITE KUNST
  42. 52 [134]M%(2),RT%(2):M%(0)[178]1:M%(1)[178]4:M%(2)[178]3:RT%(0)[178]12:RT%(1)[178]8:RT%(2)[178]24
  43. 60 [159]4,4,7:[152]4,"R":[160]4
  44. 80 [143] BILDSCHIRM-DRUCKERCODE-PAARE (MAX.58)
  45. 81 [131]0,125,25,122,26,121,27,92,29,91,58,124,59,123,60,59,62,58,89,90,90,89
  46. 82 [131]122,93
  47. 83 [129]I[178]0[164]23:[135]A:[151]49610[170]I,A:[130]
  48. 100 [143] SPRITE
  49. 101 [129]I[178]832[164]851:[135]A:[151]I,A:[130]:[129]I[178]852[164]894:[151]I,0:[130]
  50. 102 [151]2040,13:[151]V[170]39,15:[151]V[170]21,1:[151]V[170]29,1:[151]V[170]27,1
  51. 110 [143] DRUCKERCODES
  52. 112 [134]D$(11):[135]SA%:[151]50118,SA%
  53. 113 [129]I[178]0[164]11
  54. 114 [135]A:[139]A[179][177][171]1[167]D$(I)[178]D$(I)[170][199](A):[137]114
  55. 115 [130]
  56. 116 [129]I[178]0[164]5:[129]K[178]0[164]2:[135]A$:[139]A$[179][177]"*"[167][151]50119[170]4[172]I[170]K,[197](A$)
  57. 117 [130]K,I:[143] AN MASCHPRG. UEBERGEBEN
  58. 120 [143] TON
  59. 121 [151]S[170]1,90:[151]S[170]5,136:[151]S[170]15,30:[151]S[170]24,15
  60. 130 [143] SCHRIFTEN/FARBEN/GLOB
  61. 131 [134]N$(12):[129]I[178]0[164]12:[135]N$(I):[130]
  62. 133 [134]F$(7):[129]I[178]0[164]7:[135]F$(I):[130]
  63. 134 [134]GL%(7):[129]I[178]0[164]7:[135]GL%(I):[130]
  64. 140 [143] FUNKTIONEN
  65. 141 [150][165]Z(X)[178]32[171](16[170][181](X[173]10))[172](X[177]9):[143] ZEHNER
  66. 142 [150][165]E(X)[178]X[171][181](X[173]10)[172]10[170]48:[143] EINER
  67. 143 [150][165]A(X)[178](ZL%[170]66)[172]M1%[170]X:[143] ADR.IM TEXTSPEICHER
  68. 150 [143] START
  69. 151 CX%[178]11:CY%[178]9:[141]303:[153]"(null)ASTE DR@CKEN!"
  70. 152 [151]198,0:[146]198,1:[151]650,128:[141]421
  71. 200 [143] **** HAUPTPROGRAMM ****
  72. 203 [151]198,0:[151]204,0
  73. 204 [158]49421:C%[178][194](49454):[139][194](198)[178]0[167][141]371
  74. 206 [139][194](V3)[167][141]803
  75. 208 [139][194](M3%)[175]6[167][141]501:[137]203
  76. 209 [161]A$:[139]A$[178]""[167]208
  77. 210 A1%[178][198](A$):[139]A1%[178]160[167]A$[178]" ":[137]210
  78. 211 [139]A1%[179]32[176]A1%[177]218[176]A1%[178]95[176]A1%[178]92[167][141]505:[137]203
  79. 212 [139]A1%[177]125[167][139]A1%[179]192[167][139]A1%[179][177]186[167][141]511:[137]203
  80. 213 [139]X%[177]118[167][141]803:[137]208
  81. 215 [153]F$(U%);A$;:[151][165]A(128[170]C%),U%:[151]212,0:[137]204
  82. 299 :
  83. 300 [143] ___ UNTERPROGRAMME ___
  84. 301 [143] CURSOR SETZEN
  85. 302 CX%[178]0:CY%[178]18:[143] HOME
  86. 303 [151]211,CX%:[151]214,CY%:[158]58640:[142]:[143] BELIEBIG
  87. 310 [143] CURSORPOS C%
  88. 313 [158]49421:C%[178][194](49454):[142]
  89. 320 [143] NEUE ZEILE
  90. 321 [158]49896:[151]M4%,1:[158]49421:[141]302:[158]49848:[158]49263:[142]
  91. 322 [141]321
  92. 323 [151]49191,ZL%[170]66:[151]1243,[165]Z(ZL%):[151]1244,[165]E(ZL%)
  93. 324 [158]49192:[158]49928:[142]
  94. 330 [143] ASCII/BILDSCHIRM
  95. 331 AS[178]AS[170]64[172](AS[177]63[175]AS[179]96)[170]128[172](AS[177]191):[142]
  96. 335 [143] SCHRIFT NACHLADEN/VERTAUSCHEN
  97. 336 K[178]0:[129]I[178]0[164]10:[139][202](N$(K%),I[170]1,1)[179][177][199]([194](34688[170]I))[167]K[178]1
  98. 337 [130]:[142]
  99. 338 [139]N$[178]N$(K%)[167][142]
  100. 339 [141]336:[139]K[178]0[176]K%[179]2[167]347
  101. 340 [158]50743:[141]336:[139]K[178]0[167]347
  102. 341 NB$[178]N$(K%):[141]349:[141]431:[139]A1%[167]K%[178]0:N$[178]N$(0):[142]
  103. 345 [139]K%[178]10[175]NR%[179][177]1[167]NB$[178]"B-GRIECHISCH  ":[141]349:[137]348
  104. 346 [139]K%[178]11[175]NR%[179][177]2[167]NB$[178]"B-KYRILLISCH  ":[141]349:[137]348
  105. 347 [139]NR%[167]NB$[178]"B-DEUTSCH     ":[141]349
  106. 348 [142]
  107. 349 [158]57812NB$,8,1:[151]780,0:[158]65493:[142]
  108. 350 [143] SCHIRMZEILE LOESCH
  109. 353 [151]204,1:[129]I[178]18[164]20:[151]781,I:[158]59903:[130]:[141]302:[142]
  110. 360 [143] SCHIRM LOESCHEN
  111. 361 [151]204,1:[129]I[178]9[164]23:[151]781,I:[158]59903:[130]:[141]302:[142]
  112. 370 [143] ZEICHENZAHL/GRAFIKLAENGE/ZEILENENDE
  113. 371 [158]49976
  114. 372 [139]K%[179]2[167]O%[178](R%[171]L%)[172]ZE(BR%):V%[178](X%[171](C%[177]X%)[172](C%[171]X%))[172]8[173]ZE(BR%)[170]L%:[137]381
  115. 373 N%[178]M1%[172]N2%[170]N1%:[139]X%[178]0[167]N%[178]0:[137]375
  116. 374 [139]K%[178]2[167][139]BR%[178]0[167]N%[178]N%[172].75:[143] ANPASSUNG PROP. AN KUNSTSCHRIFT
  117. 375 V%[178]N%[173]Z%(BR%)[170]L%:O%[178]8[172](R%[171]V%[170]X%)
  118. 377 [139]C%[177]X%[167]V%[178](N%[170](C%[171]X%)[172]([194](34592)[175]31)[172](1[171](BR%[178]0)[172](K%[178]2)[173]4))[173]Z%(BR%)[170]L%
  119. 381 Q%[178]O%[173]M2%:P%[178]O%[171]M2%[172]Q%:P1%[178]P%[173]M1%
  120. 382 [151]V,P%[171]M1%[172]P1%:[151]V6,P1%:[151]V1,Q%[172]8[170]194
  121. 383 [151]1084,[165]Z(V%)[176]128:[151]1085,[165]E(V%)[176]128:[142]
  122. 385 [143] GLOBALE EINSTELLUNG
  123. 386 [141]321:[141]361:[141]302:[151]V[170]21,0:[151]198,0
  124. 387 [153]"<SPC(SINWAITSINORSPC(> >/ORWAIT^<WAIT>SPC(SPC(-ORWAIT< RND-WAIT>=? (RND1-RND7,EXPSTEP=SPC(WAIT)"
  125. 388 [139][194](653)[175]4[167]A1%[178]0:[153]N$(K%):[137]392
  126. 389 [161]A$:[139]A$[178]""[167]388
  127. 390 A1%[178][198](A$)[171]132:[139]A1%[179]1[176]A1%[177]7[167]399
  128. 391 [153]"RND";[196](2[172]A1%[171]1[170]7[172](A1%[177]4))
  129. 392 CX%[178]0:CY%[178]20:[141]303:[153]"COSSINORWAIT /WAIT>/SPC(> ";ZL%; "SIN/^";
  130. 393 [133]B$:[139]B$[178]""[167]399
  131. 394 A2%[178][197](B$):[139][195](B$)[177]2[176][196](A2%)[179][177]" "[170]B$[176]A2%[179]ZL%[167]392
  132. 395 A3%[178][194]([165]A(GL%(A1%))):II[178]ZL%:[139]A2%[177]66[167]A2%[178]66
  133. 396 ZL%[178]A2%:[139][194]([165]A(248))[178]0[167]A2%[178]A2%[171]1:[137]396
  134. 397 [151]([165]A(GL%(A1%))),A3%:[139]ZL%[177]II[167]ZL%[178]ZL%[171]1:[137]397
  135. 398 [153]"STEPSINOR<WAIT=SINWAITSPC(SPC(/>=> */>^> /WAIT>/SPC(>ORWAIT !";:[151]198,0:[146]198,1
  136. 399 [137]486
  137. 400 [143] FARBE IN KOPF
  138. 403 [129]I[178]D[164]E:[151]F[170]I,F%[172]15:[130]:[142]
  139. 410 [143] PRINT AB ZL%
  140. 411 [151]198,0:[141]322:[141]821:[139]DR%[178]0[167][141]606
  141. 412 A3%[178]ZL%:[139][194](198)[167][151]198,0:[137]416
  142. 413 [141]371:[139]X%[178]0[167][139][194]([165]A(504))[178]0[167]416
  143. 414 [141]701:[139]A3%[178]ZL%[167]416
  144. 415 [137]412
  145. 416 [141]821:[137]690
  146. 420 [143] TEXT LOESCH
  147. 421 NN$[178]"           ":[141]496:[141]361
  148. 422 [158]49330:[141]371:[141]302:[158]49776:ZL%[178]1:[141]323:[151]198,0:[141]803:[142]
  149. 430 [143] FEHLER
  150. 431 [159]15,8,15:[132]15,A1%,B$,A2%,A3%:[160]15:[139]A1%[178]0[167][142]
  151. 432 [139]A1%[178]62[167][139]LO%[178]1[167]B$[178]"STEPWAIT>EXP<WAIT ORWAIT/THENWAIT-<WAIT COSSINWAIT=-ORORWAIT*>ORWAIT":[137]437
  152. 433 [139]A1%[178]62[167]B$[178]">WAIT=SINWAIT<=ORTHENTHEN*/^THENWAIT >/ORWAITSPC(><>ORWAIT"
  153. 434 [139]A1%[178]72[167]B$[178]"*/^THENWAIT COSSINWAITSPC(SPC("
  154. 435 [139]A1%[178]74[167]B$[178]"*/^THENWAIT >/ORWAITSPC(><>ORWAIT"
  155. 436 [139]A1%[178]63[167]B$[178]"ORWAITORTHEN> COS>=<>SIN>ORWAIT"
  156. 437 [141]353:[141]302:[153]A1%;B$;
  157. 438 [151]198,0:[146]198,1:[158]49192:[142]
  158. 450 [143] LOAD
  159. 451 IN$[178]"SPC(SINWAITOR*> ":[141]491:[139]NN$[178]"           "[167]486
  160. 453 [141]496:[141]422:NB$[178]"(null)-"[170]NN$:LO%[178]1:[141]349:[141]431:LO%[178]0
  161. 456 ZL%[178]1:[137]486
  162. 460 [143] SAVE
  163. 461 IN$[178]"^ORCOS>> ":[141]491:[139]NN$[178]"           "[167]486
  164. 462 [141]496:A$[178]"(null)-"[170]NN$:II[178]67
  165. 464 II[178]II[170]1:[139][194](II[172]M1%[170]248)[179][177]0[175]II[179]135[167]464
  166. 465 [139][194](II[172]M1%[170]253)[178]0[167]II[178]II[171]1:[139]II[177]1[137]465
  167. 466 [151]251,0:[151]252,67:[151]253,0:[151]254,II[170]1
  168. 467 [129]I[178]0[164]12:[151]49573[170]I,[198]([202](A$,I[170]1,1)):[130]
  169. 468 [158]49586:[141]431:[137]486
  170. 470 [143] $
  171. 471 [141]361:CX%[178]0:CY%[178]10:[141]303
  172. 472 [158]50538:[141]431:[139]A1%[178]0[167][153]" /WAIT>/SPC(>ORWAIT RND=>/";
  173. 473 [151]198,0:[146]198,1:[137]486
  174. 480 [143] FILE LOESCH
  175. 481 IN$[178]"RND/SPC(> SPC(NOT^THENWAIT->ORWAIT> ":[141]491:[139]NN$[178]"           "[167]486
  176. 482 A$[178]"(null)-"[170]NN$:[159]1,8,15,"S:"[170]A$:[160]1
  177. 483 [141]431:[137]486
  178. 485 [143] ZURUECK
  179. 486 [151]V[170]21,1:[158]49776:[141]323:[141]821:[151]198,0:[141]302:[142]
  180. 490 [143] INPUT
  181. 491 [151]V,88:[151]V1,204:[151]V6,0:[139]NN$[178]""[167]NN$[178]"           "
  182. 492 [141]321:[141]361:[141]302:[153]"WAIT";IN$;"(ORWAITORTHEN>)  ":CY%[178]19:[141]303
  183. 493 [153]NN$;:[129]I[178]1[164]13:[153]"CMD";:[130]:[133]A$:[139][195](A$)[177]20[167]492
  184. 494 NN$[178][200](A$[170]"           ",11):[142]
  185. 495 [143] NN$ SCHREIBEN
  186. 496 [129]I[178]0[164]10:AS[178][198]([202](NN$,I[170]1,1))
  187. 498 [141]331:[151]1275[170]I,AS:[130]:[142]
  188. 500 [143] TASTEN
  189. 501 SC%[178][194](M3%):[151]M4%,1
  190. 502 [139]SC%[175]4[167]651:[143] CTRL
  191. 503 [139]SC%[175]2[167]515:[143] C=
  192. 504 [142]
  193. 505 [139]A1%[178]13[167]701
  194. 506 [139]A1%[178]17[167]641
  195. 507 [139]A1%[178]19[167]631
  196. 508 [139]A1%[178]20[167]621
  197. 509 [139]A1%[178]29[167]551
  198. 510 [139]A1%[178]95[167]386
  199. 511 [139]A1%[179]133[167][142]
  200. 512 [145]A1%[171]132[137]561,571,611,591,563,573,581,606,701,514,514,514,646,514,636,626
  201. 513 [139]A1%[178]157[167]556
  202. 514 [142]
  203. 515 [129]I[178]0[164]6:[151]F[170]4[170]I[172]40,15:[130]:[151]F[170]169,15:[151]F[170]247,15:[129]I[178]1[164]80:[130]:[151]198,0
  204. 516 [139][194](M3%)[175]2[167]518
  205. 517 [161]A$:[139]A$[178]""[167]516
  206. 518 [129]I[178]0[164]6:[151]F[170]4[170]I[172]40,0:[130]:[151]F[170]169,0:[151]F[170]247,0:[139]A$[178]"K"[167]541
  207. 519 [139]A$[178]"U"[167]531
  208. 520 [139]A$[178]"F"[167]601
  209. 521 [139]A$[178]"L"[167]451
  210. 522 [139]A$[178]"S"[167]461
  211. 523 [139]A$[178]"I"[167]471
  212. 524 [139]A$[178]"D"[167]481
  213. 525 [139]A$[178]"T"[167]421
  214. 526 [139]A$[178]"P"[167]411
  215. 527 [137]690
  216. 530 [143] UNTER
  217. 531 U[178]1[171]U:U%[178]U%[175]254[176]U:D[178]2:E[178]3:F%[178]U:F%[178]U:[141]403:[137]690
  218. 540 [143] KURSIV
  219. 541 KU[178]1[171]KU:U%[178]U%[175]253[176](2[172]KU):D[178]82:E[178]83:F%[178]KU:[141]403:[139]KU[167][139]K%[177]1[167]541
  220. 542 [137]690
  221. 550 [143] CRSR RECHTS
  222. 551 [141]313:[139]C%[179]119[167][153]"";:[158]49848
  223. 553 [139][194](203)[178]2[167]551
  224. 554 [142]
  225. 555 [143] CRSR LINKS
  226. 556 [141]313:[139]C%[167]:[153]"CMD";:[158]49848
  227. 558 [139][194](203)[178]2[167]556
  228. 559 [142]
  229. 560 [143] LI RAND
  230. 561 [139]L%[177]R%[171]10[167]690
  231. 562 L%[178]L%[170]1:[137]565
  232. 563 [139]L%[178]0[167]690
  233. 564 L%[178]L%[171]1
  234. 565 [151]1058,[165]Z(L%):[151]1059,[165]E(L%)
  235. 566 [139][194](203)[179][177]4[167]690
  236. 567 [139][194](653)[175]1[167]563
  237. 568 [137]561
  238. 570 [143] RE RAND
  239. 571 [139]R%[177]79[167]690
  240. 572 R%[178]R%[170]1:[137]575
  241. 573 [139]R%[179]L%[170]10[167]690
  242. 574 R%[178]R%[171]1
  243. 575 [151]1098,[165]Z(R%):[151]1099,[165]E(R%)
  244. 576 [139][194](203)[179][177]5[167]690
  245. 577 [139][194](653)[175]1[167]573
  246. 578 [137]571
  247. 580 [143] BREIT
  248. 581 BR%[178]BR%[170]1:[139]BR%[178]3[167]BR%[178]0
  249. 582 [139]BR%[178]2[167][139]K%[178]1[176]K%[178]2[167]581
  250. 583 [141]823:[137]690
  251. 590 [143] BLOCKSATZ
  252. 591 B%[178]1[171]B%:[141]828:[137]690
  253. 600 [143] FETT
  254. 601 FE%[178]1[171]FE%:U%[178]U%[175]251[176](4[172]FE%):D[178]42:E[178]43:F%[178]FE%:[141]403
  255. 602 [139]FE%[167][139]BR%[178]2[167][139]K%[179]3[167]601
  256. 603 [137]690
  257. 605 [143] DRUCK EIN/AUS
  258. 606 DR%[178]1[171]DR%:D[178]272:E[178]D[170]4:F%[178]DR%:[141]403:[137]690
  259. 610 [143] ABSTAND
  260. 611 A%[178]A%[170]1:[139]A%[178]4[167]A%[178]0
  261. 613 [141]829:[137]690
  262. 620 [143] DEL
  263. 621 [141]313:[139]C%[167][153]"CMD";:[158]49848:[158]49263:[158]49530:[139][194](203)[178]0[167]621
  264. 622 [142]
  265. 625 [143] INST
  266. 626 [141]313:[151]M4%,1:[158]49848:[158]49263:[158]49455:[139][194](203)[178]0[167]626
  267. 628 [142]
  268. 630 [143] HOME (ZEI LOESCHEN)
  269. 631 [158]49375:[158]49192:[158]49928:[141]821:[141]302:[142]
  270. 635 [143] CLR (ZEILE EINFUEGEN)
  271. 636 [139]ZL%[178]67[167]690
  272. 637 [141]313:[151]M4%,1:[158]49848:[158]49263:[158]49291:[158]49192:[158]49896
  273. 638 [141]302:[142]
  274. 640 [143] CRSR DOWN
  275. 641 [141]313:[139]C%[179]80[167][153]"";:[158]49848:[142]
  276. 642 [139]ZL%[178]67[137]690
  277. 643 ZL%[178]ZL%[170]1:[141]322:[139][194](203)[178]7[167]642
  278. 644 [141]822:[141]302:[142]
  279. 645 [143] CRSR UP
  280. 646 [141]313:[139]C%[177]39[167][153]"ON";:[158]49848:[142]
  281. 647 [139]ZL%[178]1[137]690
  282. 648 ZL%[178]ZL%[171]1:[141]322:[139][194](203)[178]7[167][139]ZL%[177]1[167]648
  283. 649 [141]822:[141]302:[142]
  284. 650 [143] SCHRIFTART
  285. 651 K%[178]K%[170]1:[139]K%[178]13[167]K%[178]0
  286. 652 [151][165]A(120),K%:[141]680
  287. 660 [129]I[178]1[164]200:[130]:[139][194](653)[178]4[167]651
  288. 665 NR%[178][194](15064):[139]K%[177]1[176]NR%[167][141]338
  289. 670 N$[178]N$(K%)
  290. 675 [139]K%[178]1[176]K%[178]2[167][139]BR%[178]2[167][137]581
  291. 676 [139]K%[177]1[167][139]KU[167][137]541
  292. 677 [137]690
  293. 680 [129]I[178]0[164]10:AS[178][198]([202](N$(K%),I[170]1,1))
  294. 682 [141]331:[151]1116[170]I,AS:[130]:[142]
  295. 689 :
  296. 690 [129]I[178]1[164]100:[130]:[141]371:[141]803:[142]
  297. 700 [143] ___ DRUCK
  298. 701 [141]321:O%[178]0:MC%[178]0:[139]B%[178]0[176]X%[178]0[167]715
  299. 702 [143] BLOCK
  300. 703 D%[178]0:[129]I[178]0[164]X%[171]1:[139]([194](Z%[170]I)[175]127)[178]32[167]D%[178]D%[170]1:[143] SPACE-ZAHL
  301. 704 [130]:[139]D%[178]0[167]790
  302. 705 [139]K%[177]2[167]711
  303. 706 [139]K%[178]2[167]O%[178]((R%[171]L%)[172]Z%(BR%)[171]N%)[173]5:[137]708:[143] BEI PROP
  304. 707 O%[178](R%[171]L%)[172]ZE(BR%)[173]8[171]X%:[143] BEI PICA,NLQ
  305. 708 [139]O%[177]D%[176]O%[179]0[137]790
  306. 709 [139]K%[179]3[167]715
  307. 710 [143] BLOCK KUNST
  308. 711 S%[178][194](34592):LB%[178]S%[175]31:NN%[178](R%[171]L%)[172]RT%(BR%):MB%[178]LB%[170](NN%[171]N%)[173]D%
  309. 712 [139]MB%[179]5[176]MB%[177]23[137]790
  310. 713 MC%[178]NN%[171]N%[171](MB%[171]LB%)[172]D%:N%[178]NN%:N2%[178]N%[173]M1%:N1%[178]N%[171]N2%[172]M1%
  311. 715 [139]DR%[178]0[167]730
  312. 716 [160]2:[159]2,4,SA%:[151]781,2:[158]65481:[139]ST[167]795
  313. 717 [152]2,D$(10)[199](0)D$(11)[199](0);:[152]2,D$(9)[170][199](L%);:[143] RAND
  314. 718 [139]X%[178]0[167][152]2,D$(0);:[137]730
  315. 719 [139]K%[177]2[167]741
  316. 720 [152]2,D$(7)[170][199](9[170]3[172]A%);:[143] ABSTAND
  317. 721 [139]K%[178]2[167][152]2,D$(11)[199](1);:[137]723:[143] PROPORT.
  318. 722 [152]2,D$(8):[143] PICA
  319. 723 [139]BR%[167][152]2,D$(BR%);:[143] BREIT/ENG
  320. 724 [139]K%[178]1[167][152]2,D$(10)[170][199](1):[143] NLQ
  321. 725 [151]254,O%:[158]50143:[143] SPACES FUER BLOCK/DRUCKROUT
  322. 728 [152]2,D$(3);
  323. 730 [139]ZL%[178]67[137]690
  324. 731 ZL%[178]ZL%[170]1:[141]323:[139]A1%[178]13[167][141]821:[142]
  325. 732 [141]830:[142]
  326. 740 [143] KUNSTDRUCK
  327. 741 [151]50442,MC%:[139]B%[167][151]34592,(S%[175]224)[170]MB%:[143] SPACEBREITE AENDERN
  328. 750 [152]2,D$(6)[170][199](1);:[141]780:[152]2,[199](0);
  329. 751 [151]2,0:[151]50320,0:[151]50321,255:[151]50318,0:[158]50322:[152]2,D$(0);
  330. 755 [152]2,D$(6)[170][199](23);:[139][194](50318)[178]0[167][152]2,D$(0);:[137]760
  331. 756 [141]780:[151]50321,0:[158]50322:[152]2,[199](0)[170]D$(0);
  332. 760 [152]2,D$(6)[170][199](1);:[141]780:[152]2,[199](0);:[151]2,128:[151]50320,255
  333. 761 [151]50321,255:[151]50318,0:[158]50322:[152]2,D$(0);D$(6)[170][199](2);
  334. 762 [139][194](50318)[178]0[167][152]2,D$(0);:[137]767
  335. 765 [141]780:[151]50320,0:[151]50321,0:[158]50322:[152]2,[199](0)[170]D$(0);
  336. 767 [152]2,D$(7)[170][199](7[170]4[172]A%)[170]D$(0);
  337. 770 [139]B%[167][151]34592,S%:[143] SPACE NORMAL
  338. 775 [137]728
  339. 780 [152]2,D$(5)[170][199](M%(BR%))[170][199](N1%)[170][199](N2%);:[142]
  340. 790 [141]803:[129]K[178]1[164]8:B%[178]1[171]B%:[143] KEIN BLOCKSATZ
  341. 791 D[178]232:E[178]D[170]4:F%[178]B%:[141]403:[130]:[142]
  342. 795 [141]353:[153]" *=-THENWAITSTEP>= >/ORWAIT^THENWAIT-ORSPC(<WAIT>ORWAIT!"
  343. 796 [151]198,0:[146]198,1:[141]353:[141]323:[142]
  344. 800 [143] TON
  345. 803 [151]S[170]4,20:[151]S[170]4,21:[142]
  346. 820 [143] KOPFEINSTELLUNG
  347. 821 [139][194]([165]A(248))[178]0[167][142]
  348. 822 [151]1058,[165]Z(L%):[151]1059,[165]E(L%)
  349. 823 [151]1098,[165]Z(R%):[151]1099,[165]E(R%)
  350. 824 [129]II[178]0[164]2:D[178]183[170]40[172]II:E[178]D[170]4:F%[178]0:[141]403:[130]
  351. 825 D[178]183[170]40[172]BR%:E[178]D[170]4:F%[178]1:[141]403
  352. 828 D[178]232:E[178]D[170]4:F%[178]B%:[141]403
  353. 829 [129]II[178]0[164]1:D[178]153[170]II[172]40:E[178]D[170]3:F%[178]0:[141]403:[151]F[170]D[170]A%,1:[130]
  354. 830 [139]N$[178]N$(K%)[167][142]
  355. 831 [141]680:NR%[178][194](15064):[139]K%[177]1[176]NR%[167][141]338
  356. 832 N$[178]N$(K%):[142]
  357. 900 [143] SPRITE
  358. 901 [131]0,12,0,0,12,0,0,12,0,0,12,0,0,12,0,0,12,0,255,255
  359. 910 [143] DRUCKERCODES
  360. 911 [131]14       :[143] SEK.ADR. (ASCII UNGEWANDELT)
  361. 912 [131]10,-1    :[143] LINE FEED
  362. 913 [131]14,-1    :[143] BREITSCHRIFT
  363. 914 [131]15,-1    :[143] KOMPRIMIERT
  364. 915 [131]18,-1    :[143] KOMPR.AUS
  365. 916 [131]20,-1    :[143] BREIT AUS
  366. 917 [131]27,42,-1 :[143] GRAFIKMODI
  367. 918 [131]27,51,-1 :[143] ABSTAND N/216
  368. 919 [131]27,65,-1 :[143] ABSTAND N/72
  369. 920 [131]27,80,-1 :[143] PICA
  370. 921 [131]27,108,-1:[143] LINKER RAND
  371. 922 [131]27,120,-1:[143] NLQ
  372. 923 [131]27,112,-1:[143] PROP
  373. 925 [131]27,45,1  :[143] UNTER
  374. 926 [131]27,45,0  :[143] AUS
  375. 927 [131]27,52,*  :[143] ITALIC
  376. 928 [131]27,53,*  :[143] AUS
  377. 929 [131]27,69,*  :[143] FETT
  378. 930 [131]27,70,*  :[143] AUS
  379. 935 [143] TST
  380. 940 [143] SCHRIFTEN
  381. 941 [131]"(null)RIGHT$LENATN       ","(null).(null).(null).     ","(null)ROPORTION.","ATN(null)(null)RIGHT$(null)(null)ATN    ","ASCRAKTUR    "
  382. 942 [131]"(null)LANSCHRIFT","LENANDICE    ","(null)OWN       ","(null)ENCIL     "
  383. 943 [131]"CHR$RAFIK     ","VAL(null)(null)LEFT$(null)RIGHT$(null)LEFT$   ","(null)RIGHT$(null)RIGHT$(null)LEN(null)RIGHT$   ","LENITTA      "
  384. 950 [143] FARBEN/GLOB
  385. 951 [131]"WAIT","","WAITOPEN","OPEN","WAIT","","WAITSYS","SYS"
  386. 952 [131]252,247,248,251,250,247,248,249
  387. 953 [143] TST
  388.