home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27d.d64 / schreibmaschine (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  12KB  |  383 lines
  1. 1 REM ***************************
  2. 2 REM *  SCHREIBMASCHINE 10/86  *
  3. 3 REM *    BERTRAM HAFNER       *
  4. 4 REM *  BISCHOF-ULRICH-STR.12  *
  5. 5 REM *   8934 GROSSAITINGEN    *
  6. 6 REM ***************************
  7. 9 CLR
  8. 10 REM MASKE
  9. 11 POKE53280,0:POKE53281,11:PRINT"[147]"+CHR$(14);:NB$="B-DEUTSCH     ":GOSUB349
  10. 14 GOSUB37:POKE53272,(PEEK(53272)AND240)+12:PRINTCHR$(14);CHR$(8);
  11. 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";
  12. 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";
  13. 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] _";
  14. 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";
  15. 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]  ";
  16. 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";
  17. 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";
  18. 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]";
  19. 26 PRINT," BITTE WARTEN[144]"
  20. 27 PRINT" [210][197][212][213][210][206][146]>   [217]EILENSCHALTUNG UND"
  21. 28 PRINT," (MIT F8) SOFORTIGER [196]RUCK"
  22. 29 PRINT" [200][207][205][197]/[195][204][210][146]> [217]EILE L:SCHEN/EINF@GEN"
  23. 30 PRINT" [195][212][210][204][146]>     HALTEN, BIS GEW@NSCHTE":PRINT," [211]CHRIFTART ERSCHEINT"
  24. 31 PRINT" [213]NTERSTREICHEN, [198]ETT- ,[203]URSIVSCHRIFT"
  25. 32 PRINT" SIND INNERHALB DER [217]EILE WIRKSAM,"
  26. 33 PRINT" [211]CHRIFTART UND -BREITE NUR YEILENWEISE."
  27. 35 NB$="M-SCHREIB":GOSUB349:GOSUB37:GOTO43
  28. 37 OPEN15,8,15:INPUT#15,A1%:CLOSE15:IFA1%THENPRINT"[198]EHLER BEIM [206]ACHLADEN":END
  29. 38 RETURN
  30. 40 REM BASIC-ENDE
  31. 43 POKE52,56:POKE56,56:CLR
  32. 45 REM HAEUFIGE VAR.
  33. 46 L%=5:R%=75:BR%=0:B%=0:A%=1:K%=0:X%=0:N1%=0:N2%=0:REM REIHENFOLGE N.AENDERN!
  34. 47 A$="":A1%=0:V%=0:F=55296:V=53248:S=54272:Z%=1744:C%=0:CX%=0:CY%=0
  35. 48 V1=V+1:V6=V+16:V3=V+31:M1%=256:M2%=320:M3%=653:M4%=204:DR%=1:ZL%=1
  36. 50 DIMZE(2):ZE(0)=8:ZE(1)=4:ZE(2)=13.8:REM ZEICHENBREITEN
  37. 51 DIMZ%(2):Z%(0)=12:Z%(1)=8:Z%(2)=24:REM ZEICHENBREITE KUNST
  38. 52 DIMM%(2),RT%(2):M%(0)=1:M%(1)=4:M%(2)=3:RT%(0)=12:RT%(1)=8:RT%(2)=24
  39. 80 REM BILDSCHIRM-DRUCKERCODE-PAARE (MAX.58)
  40. 81 DATA0,125,25,122,26,121,27,92,29,91,58,124,59,123,60,59,62,58,89,90,90,89
  41. 82 DATA122,93
  42. 83 FORI=0TO23:READA:POKE49610+I,A:NEXT
  43. 100 REM SPRITE
  44. 101 FORI=832TO851:READA:POKEI,A:NEXT:FORI=852TO894:POKEI,0:NEXT
  45. 102 POKE2040,13:POKEV+39,15:POKEV+21,1:POKEV+29,1:POKEV+27,1
  46. 110 REM DRUCKERCODES
  47. 112 DIMD$(11):READSA%:POKE50118,SA%
  48. 113 FORI=0TO11
  49. 114 READA:IFA<>-1THEND$(I)=D$(I)+CHR$(A):GOTO114
  50. 115 NEXT
  51. 116 FORI=0TO5:FORK=0TO2:READA$:IFA$<>"*"THENPOKE50119+4*I+K,VAL(A$)
  52. 117 NEXTK,I:REM AN MASCHPRG. UEBERGEBEN
  53. 120 REM TON
  54. 121 POKES+1,90:POKES+5,136:POKES+15,30:POKES+24,15
  55. 130 REM SCHRIFTEN/FARBEN/GLOB
  56. 131 DIMN$(12):FORI=0TO12:READN$(I):NEXT
  57. 133 DIMF$(7):FORI=0TO7:READF$(I):NEXT
  58. 134 DIMGL%(7):FORI=0TO7:READGL%(I):NEXT
  59. 140 REM FUNKTIONEN
  60. 141 DEFFNZ(X)=32-(16+INT(X/10))*(X>9):REM ZEHNER
  61. 142 DEFFNE(X)=X-INT(X/10)*10+48:REM EINER
  62. 143 DEFFNA(X)=(ZL%+66)*M1%+X:REM ADR.IM TEXTSPEICHER
  63. 150 REM START
  64. 151 CX%=11:CY%=9:GOSUB303:PRINT"[212]ASTE DR@CKEN!"
  65. 152 POKE198,0:WAIT198,1:POKE650,128:GOSUB421
  66. 200 REM **** HAUPTPROGRAMM ****
  67. 203 POKE198,0:POKE204,0
  68. 204 SYS49421:C%=PEEK(49454):IFPEEK(198)=0THENGOSUB371
  69. 206 IFPEEK(V3)THENGOSUB803
  70. 208 IFPEEK(M3%)AND6THENGOSUB501:GOTO203
  71. 209 GETA$:IFA$=""THEN208
  72. 210 A1%=ASC(A$):IFA1%=160THENA$=" ":GOTO210
  73. 211 IFA1%<32ORA1%>218ORA1%=95ORA1%=92THENGOSUB505:GOTO203
  74. 212 IFA1%>125THENIFA1%<192THENIFA1%<>186THENGOSUB511:GOTO203
  75. 213 IFX%>118THENGOSUB803:GOTO208
  76. 215 PRINTF$(U%);A$;:POKEFNA(128+C%),U%:POKE212,0:GOTO204
  77. 299 :
  78. 300 REM ___ UNTERPROGRAMME ___
  79. 301 REM CURSOR SETZEN
  80. 302 CX%=0:CY%=18:REM HOME
  81. 303 POKE211,CX%:POKE214,CY%:SYS58640:RETURN:REM BELIEBIG
  82. 310 REM CURSORPOS C%
  83. 313 SYS49421:C%=PEEK(49454):RETURN
  84. 320 REM NEUE ZEILE
  85. 321 SYS49896:POKEM4%,1:SYS49421:GOSUB302:SYS49848:SYS49263:RETURN
  86. 322 GOSUB321
  87. 323 POKE49191,ZL%+66:POKE1243,FNZ(ZL%):POKE1244,FNE(ZL%)
  88. 324 SYS49192:SYS49928:RETURN
  89. 330 REM ASCII/BILDSCHIRM
  90. 331 AS=AS+64*(AS>63ANDAS<96)+128*(AS>191):RETURN
  91. 335 REM SCHRIFT NACHLADEN/VERTAUSCHEN
  92. 336 K=0:FORI=0TO10:IFMID$(N$(K%),I+1,1)<>CHR$(PEEK(34688+I))THENK=1
  93. 337 NEXT:RETURN
  94. 338 IFN$=N$(K%)THENRETURN
  95. 339 GOSUB336:IFK=0ORK%<2THEN347
  96. 340 SYS50743:GOSUB336:IFK=0THEN347
  97. 341 NB$=N$(K%):GOSUB349:GOSUB431:IFA1%THENK%=0:N$=N$(0):RETURN
  98. 345 IFK%=10ANDNR%<>1THENNB$="B-GRIECHISCH  ":GOSUB349:GOTO348
  99. 346 IFK%=11ANDNR%<>2THENNB$="B-KYRILLISCH  ":GOSUB349:GOTO348
  100. 347 IFNR%THENNB$="B-DEUTSCH     ":GOSUB349
  101. 348 RETURN
  102. 349 SYS57812NB$,8,1:POKE780,0:SYS65493:RETURN
  103. 350 REM SCHIRMZEILE LOESCH
  104. 353 POKE204,1:FORI=18TO20:POKE781,I:SYS59903:NEXT:GOSUB302:RETURN
  105. 360 REM SCHIRM LOESCHEN
  106. 361 POKE204,1:FORI=9TO23:POKE781,I:SYS59903:NEXT:GOSUB302:RETURN
  107. 370 REM ZEICHENZAHL/GRAFIKLAENGE/ZEILENENDE
  108. 371 SYS49976
  109. 372 IFK%<2THENO%=(R%-L%)*ZE(BR%):V%=(X%-(C%>X%)*(C%-X%))*8/ZE(BR%)+L%:GOTO381
  110. 373 N%=M1%*N2%+N1%:IFX%=0THENN%=0:GOTO375
  111. 374 IFK%=2THENIFBR%=0THENN%=N%*.75:REM ANPASSUNG PROP. AN KUNSTSCHRIFT
  112. 375 V%=N%/Z%(BR%)+L%:O%=8*(R%-V%+X%)
  113. 377 IFC%>X%THENV%=(N%+(C%-X%)*(PEEK(34592)AND31)*(1-(BR%=0)*(K%=2)/4))/Z%(BR%)+L%
  114. 381 Q%=O%/M2%:P%=O%-M2%*Q%:P1%=P%/M1%
  115. 382 POKEV,P%-M1%*P1%:POKEV6,P1%:POKEV1,Q%*8+194
  116. 383 POKE1084,FNZ(V%)OR128:POKE1085,FNE(V%)OR128:RETURN
  117. 385 REM GLOBALE EINSTELLUNG
  118. 386 GOSUB321:GOSUB361:GOSUB302:POKEV+21,0:POKE198,0
  119. 387 PRINT"[179][166][191][146][191][176][166][177] [177][173][176][146][174][179][146][177][166][166][171][176][146][179] [187][171][146][177][178]? ([187]1-[187]7,[189][169][178][166][146])"
  120. 388 IFPEEK(653)AND4THENA1%=0:PRINTN$(K%):GOTO392
  121. 389 GETA$:IFA$=""THEN388
  122. 390 A1%=ASC(A$)-132:IFA1%<1ORA1%>7THEN399
  123. 391 PRINT"[187]";STR$(2*A1%-1+7*(A1%>4))
  124. 392 CX%=0:CY%=20:GOSUB303:PRINT"[190][191][176][146] [173][146][177][173][166][177] ";ZL%; "[191][173][174]";
  125. 393 INPUTB$:IFB$=""THEN399
  126. 394 A2%=VAL(B$):IFLEN(B$)>2ORSTR$(A2%)<>" "+B$ORA2%<ZL%THEN392
  127. 395 A3%=PEEK(FNA(GL%(A1%))):II=ZL%:IFA2%>66THENA2%=66
  128. 396 ZL%=A2%:IFPEEK(FNA(248))=0THENA2%=A2%-1:GOTO396
  129. 397 POKE(FNA(GL%(A1%))),A3%:IFZL%>IITHENZL%=ZL%-1:GOTO397
  130. 398 PRINT"[169][191][176][179][146][178][191][146][166][166][173][177][178][177] [172][173][177][174][177] [173][146][177][173][166][177][176][146] !";:POKE198,0:WAIT198,1
  131. 399 GOTO486
  132. 400 REM FARBE IN KOPF
  133. 403 FORI=DTOE:POKEF+I,F%*15:NEXT:RETURN
  134. 410 REM PRINT AB ZL%
  135. 411 POKE198,0:GOSUB322:GOSUB821:IFDR%=0THENGOSUB606
  136. 412 A3%=ZL%:IFPEEK(198)THENPOKE198,0:GOTO416
  137. 413 GOSUB371:IFX%=0THENIFPEEK(FNA(504))=0THEN416
  138. 414 GOSUB701:IFA3%=ZL%THEN416
  139. 415 GOTO412
  140. 416 GOSUB821:GOTO690
  141. 420 REM TEXT LOESCH
  142. 421 NN$="           ":GOSUB496:GOSUB361
  143. 422 SYS49330:GOSUB371:GOSUB302:SYS49776:ZL%=1:GOSUB323:POKE198,0:GOSUB803:RETURN
  144. 430 REM FEHLER
  145. 431 OPEN15,8,15:INPUT#15,A1%,B$,A2%,A3%:CLOSE15:IFA1%=0THENRETURN
  146. 432 IFA1%=62THENIFLO%=1THENB$="[169][146][177][189][179][146] [176][146][173][167][146][171][179][146] [190][191][146][178][171][176][176][146][172][177][176][146]":GOTO437
  147. 433 IFA1%=62THENB$="[177][146][178][191][146][179][178][176][167][167][172][173][174][167][146] [177][173][176][146][166][177][179][177][176][146]"
  148. 434 IFA1%=72THENB$="[172][173][174][167][146] [190][191][146][166][166]"
  149. 435 IFA1%=74THENB$="[172][173][174][167][146] [177][173][176][146][166][177][179][177][176][146]"
  150. 436 IFA1%=63THENB$="[176][146][176][167][177] [190][177][178][179][177][191][177][176][146]"
  151. 437 GOSUB353:GOSUB302:PRINTA1%;B$;
  152. 438 POKE198,0:WAIT198,1:SYS49192:RETURN
  153. 450 REM LOAD
  154. 451 IN$="[166][191][146][176][172]> ":GOSUB491:IFNN$="           "THEN486
  155. 453 GOSUB496:GOSUB422:NB$="[211]-"+NN$:LO%=1:GOSUB349:GOSUB431:LO%=0
  156. 456 ZL%=1:GOTO486
  157. 460 REM SAVE
  158. 461 IN$="[174][176][190][177]> ":GOSUB491:IFNN$="           "THEN486
  159. 462 GOSUB496:A$="[211]-"+NN$:II=67
  160. 464 II=II+1:IFPEEK(II*M1%+248)<>0ANDII<135THEN464
  161. 465 IFPEEK(II*M1%+253)=0THENII=II-1:IFII>1GOTO465
  162. 466 POKE251,0:POKE252,67:POKE253,0:POKE254,II+1
  163. 467 FORI=0TO12:POKE49573+I,ASC(MID$(A$,I+1,1)):NEXT
  164. 468 SYS49586:GOSUB431:GOTO486
  165. 470 REM $
  166. 471 GOSUB361:CX%=0:CY%=10:GOSUB303
  167. 472 SYS50538:GOSUB431:IFA1%=0THENPRINT" [173][146][177][173][166][177][176][146] [187][178][177][173]";
  168. 473 POKE198,0:WAIT198,1:GOTO486
  169. 480 REM FILE LOESCH
  170. 481 IN$="[187][173][166][177] [166][168][174][167][146][171][177][176][146]> ":GOSUB491:IFNN$="           "THEN486
  171. 482 A$="[211]-"+NN$:OPEN1,8,15,"S:"+A$:CLOSE1
  172. 483 GOSUB431:GOTO486
  173. 485 REM ZURUECK
  174. 486 POKEV+21,1:SYS49776:GOSUB323:GOSUB821:POKE198,0:GOSUB302:RETURN
  175. 490 REM INPUT
  176. 491 POKEV,88:POKEV1,204:POKEV6,0:IFNN$=""THENNN$="           "
  177. 492 GOSUB321:GOSUB361:GOSUB302:PRINT"[146]";IN$;"([176][146][176][167][177])  ":CY%=19:GOSUB303
  178. 493 PRINTNN$;:FORI=1TO13:PRINT"[157]";:NEXT:INPUTA$:IFLEN(A$)>20THEN492
  179. 494 NN$=LEFT$(A$+"           ",11):RETURN
  180. 495 REM NN$ SCHREIBEN
  181. 496 FORI=0TO10:AS=ASC(MID$(NN$,I+1,1))
  182. 498 GOSUB331:POKE1275+I,AS:NEXT:RETURN
  183. 500 REM TASTEN
  184. 501 SC%=PEEK(M3%):POKEM4%,1
  185. 502 IFSC%AND4THEN651:REM CTRL
  186. 503 IFSC%AND2THEN515:REM C=
  187. 504 RETURN
  188. 505 IFA1%=13THEN701
  189. 506 IFA1%=17THEN641
  190. 507 IFA1%=19THEN631
  191. 508 IFA1%=20THEN621
  192. 509 IFA1%=29THEN551
  193. 510 IFA1%=95THEN386
  194. 511 IFA1%<133THENRETURN
  195. 512 ONA1%-132GOTO561,571,611,591,563,573,581,606,701,514,514,514,646,514,636,626
  196. 513 IFA1%=157THEN556
  197. 514 RETURN
  198. 515 FORI=0TO6:POKEF+4+I*40,15:NEXT:POKEF+169,15:POKEF+247,15:FORI=1TO80:NEXT:POKE198,0
  199. 516 IFPEEK(M3%)AND2THEN518
  200. 517 GETA$:IFA$=""THEN516
  201. 518 FORI=0TO6:POKEF+4+I*40,0:NEXT:POKEF+169,0:POKEF+247,0:IFA$="K"THEN541
  202. 519 IFA$="U"THEN531
  203. 520 IFA$="F"THEN601
  204. 521 IFA$="L"THEN451
  205. 522 IFA$="S"THEN461
  206. 523 IFA$="I"THEN471
  207. 524 IFA$="D"THEN481
  208. 525 IFA$="T"THEN421
  209. 526 IFA$="P"THEN411
  210. 527 GOTO690
  211. 530 REM UNTER
  212. 531 U=1-U:U%=U%AND254ORU:D=2:E=3:F%=U:F%=U:GOSUB403:GOTO690
  213. 540 REM KURSIV
  214. 541 KU=1-KU:U%=U%AND253OR(2*KU):D=82:E=83:F%=KU:GOSUB403:IFKUTHENIFK%>1THEN541
  215. 542 GOTO690
  216. 550 REM CRSR RECHTS
  217. 551 GOSUB313:IFC%<119THENPRINT"";:SYS49848
  218. 553 IFPEEK(203)=2THEN551
  219. 554 RETURN
  220. 555 REM CRSR LINKS
  221. 556 GOSUB313:IFC%THEN:PRINT"[157]";:SYS49848
  222. 558 IFPEEK(203)=2THEN556
  223. 559 RETURN
  224. 560 REM LI RAND
  225. 561 IFL%>R%-10THEN690
  226. 562 L%=L%+1:GOTO565
  227. 563 IFL%=0THEN690
  228. 564 L%=L%-1
  229. 565 POKE1058,FNZ(L%):POKE1059,FNE(L%)
  230. 566 IFPEEK(203)<>4THEN690
  231. 567 IFPEEK(653)AND1THEN563
  232. 568 GOTO561
  233. 570 REM RE RAND
  234. 571 IFR%>79THEN690
  235. 572 R%=R%+1:GOTO575
  236. 573 IFR%<L%+10THEN690
  237. 574 R%=R%-1
  238. 575 POKE1098,FNZ(R%):POKE1099,FNE(R%)
  239. 576 IFPEEK(203)<>5THEN690
  240. 577 IFPEEK(653)AND1THEN573
  241. 578 GOTO571
  242. 580 REM BREIT
  243. 581 BR%=BR%+1:IFBR%=3THENBR%=0
  244. 582 IFBR%=2THENIFK%=1ORK%=2THEN581
  245. 583 GOSUB823:GOTO690
  246. 590 REM BLOCKSATZ
  247. 591 B%=1-B%:GOSUB828:GOTO690
  248. 600 REM FETT
  249. 601 FE%=1-FE%:U%=U%AND251OR(4*FE%):D=42:E=43:F%=FE%:GOSUB403
  250. 602 IFFE%THENIFBR%=2THENIFK%<3THEN601
  251. 603 GOTO690
  252. 605 REM DRUCK EIN/AUS
  253. 606 DR%=1-DR%:D=272:E=D+4:F%=DR%:GOSUB403:GOTO690
  254. 610 REM ABSTAND
  255. 611 A%=A%+1:IFA%=4THENA%=0
  256. 613 GOSUB829:GOTO690
  257. 620 REM DEL
  258. 621 GOSUB313:IFC%THENPRINT"[157]";:SYS49848:SYS49263:SYS49530:IFPEEK(203)=0THEN621
  259. 622 RETURN
  260. 625 REM INST
  261. 626 GOSUB313:POKEM4%,1:SYS49848:SYS49263:SYS49455:IFPEEK(203)=0THEN626
  262. 628 RETURN
  263. 630 REM HOME (ZEI LOESCHEN)
  264. 631 SYS49375:SYS49192:SYS49928:GOSUB821:GOSUB302:RETURN
  265. 635 REM CLR (ZEILE EINFUEGEN)
  266. 636 IFZL%=67THEN690
  267. 637 GOSUB313:POKEM4%,1:SYS49848:SYS49263:SYS49291:SYS49192:SYS49896
  268. 638 GOSUB302:RETURN
  269. 640 REM CRSR DOWN
  270. 641 GOSUB313:IFC%<80THENPRINT"";:SYS49848:RETURN
  271. 642 IFZL%=67GOTO690
  272. 643 ZL%=ZL%+1:GOSUB322:IFPEEK(203)=7THEN642
  273. 644 GOSUB822:GOSUB302:RETURN
  274. 645 REM CRSR UP
  275. 646 GOSUB313:IFC%>39THENPRINT"[145]";:SYS49848:RETURN
  276. 647 IFZL%=1GOTO690
  277. 648 ZL%=ZL%-1:GOSUB322:IFPEEK(203)=7THENIFZL%>1THEN648
  278. 649 GOSUB822:GOSUB302:RETURN
  279. 650 REM SCHRIFTART
  280. 651 K%=K%+1:IFK%=13THENK%=0
  281. 652 POKEFNA(120),K%:GOSUB680
  282. 660 FORI=1TO200:NEXT:IFPEEK(653)=4THEN651
  283. 665 NR%=PEEK(15064):IFK%>1ORNR%THENGOSUB338
  284. 670 N$=N$(K%)
  285. 675 IFK%=1ORK%=2THENIFBR%=2THENGOTO581
  286. 676 IFK%>1THENIFKUTHENGOTO541
  287. 677 GOTO690
  288. 680 FORI=0TO10:AS=ASC(MID$(N$(K%),I+1,1))
  289. 682 GOSUB331:POKE1116+I,AS:NEXT:RETURN
  290. 689 :
  291. 690 FORI=1TO100:NEXT:GOSUB371:GOSUB803:RETURN
  292. 700 REM ___ DRUCK
  293. 701 GOSUB321:O%=0:MC%=0:IFB%=0ORX%=0THEN715
  294. 702 REM BLOCK
  295. 703 D%=0:FORI=0TOX%-1:IF(PEEK(Z%+I)AND127)=32THEND%=D%+1:REM SPACE-ZAHL
  296. 704 NEXT:IFD%=0THEN790
  297. 705 IFK%>2THEN711
  298. 706 IFK%=2THENO%=((R%-L%)*Z%(BR%)-N%)/5:GOTO708:REM BEI PROP
  299. 707 O%=(R%-L%)*ZE(BR%)/8-X%:REM BEI PICA,NLQ
  300. 708 IFO%>D%ORO%<0GOTO790
  301. 709 IFK%<3THEN715
  302. 710 REM BLOCK KUNST
  303. 711 S%=PEEK(34592):LB%=S%AND31:NN%=(R%-L%)*RT%(BR%):MB%=LB%+(NN%-N%)/D%
  304. 712 IFMB%<5ORMB%>23GOTO790
  305. 713 MC%=NN%-N%-(MB%-LB%)*D%:N%=NN%:N2%=N%/M1%:N1%=N%-N2%*M1%
  306. 715 IFDR%=0THEN730
  307. 716 CLOSE2:OPEN2,4,SA%:POKE781,2:SYS65481:IFSTTHEN795
  308. 717 PRINT#2,D$(10)CHR$(0)D$(11)CHR$(0);:PRINT#2,D$(9)+CHR$(L%);:REM RAND
  309. 718 IFX%=0THENPRINT#2,D$(0);:GOTO730
  310. 719 IFK%>2THEN741
  311. 720 PRINT#2,D$(7)+CHR$(9+3*A%);:REM ABSTAND
  312. 721 IFK%=2THENPRINT#2,D$(11)CHR$(1);:GOTO723:REM PROPORT.
  313. 722 PRINT#2,D$(8):REM PICA
  314. 723 IFBR%THENPRINT#2,D$(BR%);:REM BREIT/ENG
  315. 724 IFK%=1THENPRINT#2,D$(10)+CHR$(1):REM NLQ
  316. 725 POKE254,O%:SYS50143:REM SPACES FUER BLOCK/DRUCKROUT
  317. 728 PRINT#2,D$(3);
  318. 730 IFZL%=67GOTO690
  319. 731 ZL%=ZL%+1:GOSUB323:IFA1%=13THENGOSUB821:RETURN
  320. 732 GOSUB830:RETURN
  321. 740 REM KUNSTDRUCK
  322. 741 POKE50442,MC%:IFB%THENPOKE34592,(S%AND224)+MB%:REM SPACEBREITE AENDERN
  323. 750 PRINT#2,D$(6)+CHR$(1);:GOSUB780:PRINT#2,CHR$(0);
  324. 751 POKE2,0:POKE50320,0:POKE50321,255:POKE50318,0:SYS50322:PRINT#2,D$(0);
  325. 755 PRINT#2,D$(6)+CHR$(23);:IFPEEK(50318)=0THENPRINT#2,D$(0);:GOTO760
  326. 756 GOSUB780:POKE50321,0:SYS50322:PRINT#2,CHR$(0)+D$(0);
  327. 760 PRINT#2,D$(6)+CHR$(1);:GOSUB780:PRINT#2,CHR$(0);:POKE2,128:POKE50320,255
  328. 761 POKE50321,255:POKE50318,0:SYS50322:PRINT#2,D$(0);D$(6)+CHR$(2);
  329. 762 IFPEEK(50318)=0THENPRINT#2,D$(0);:GOTO767
  330. 765 GOSUB780:POKE50320,0:POKE50321,0:SYS50322:PRINT#2,CHR$(0)+D$(0);
  331. 767 PRINT#2,D$(7)+CHR$(7+4*A%)+D$(0);
  332. 770 IFB%THENPOKE34592,S%:REM SPACE NORMAL
  333. 775 GOTO728
  334. 780 PRINT#2,D$(5)+CHR$(M%(BR%))+CHR$(N1%)+CHR$(N2%);:RETURN
  335. 790 GOSUB803:FORK=1TO8:B%=1-B%:REM KEIN BLOCKSATZ
  336. 791 D=232:E=D+4:F%=B%:GOSUB403:NEXT:RETURN
  337. 795 GOSUB353:PRINT" [172][178][171][167][146][169][177][178] [177][173][176][146][174][167][146][171][176][166][179][146][177][176][146]!"
  338. 796 POKE198,0:WAIT198,1:GOSUB353:GOSUB323:RETURN
  339. 800 REM TON
  340. 803 POKES+4,20:POKES+4,21:RETURN
  341. 820 REM KOPFEINSTELLUNG
  342. 821 IFPEEK(FNA(248))=0THENRETURN
  343. 822 POKE1058,FNZ(L%):POKE1059,FNE(L%)
  344. 823 POKE1098,FNZ(R%):POKE1099,FNE(R%)
  345. 824 FORII=0TO2:D=183+40*II:E=D+4:F%=0:GOSUB403:NEXT
  346. 825 D=183+40*BR%:E=D+4:F%=1:GOSUB403
  347. 828 D=232:E=D+4:F%=B%:GOSUB403
  348. 829 FORII=0TO1:D=153+II*40:E=D+3:F%=0:GOSUB403:POKEF+D+A%,1:NEXT
  349. 830 IFN$=N$(K%)THENRETURN
  350. 831 GOSUB680:NR%=PEEK(15064):IFK%>1ORNR%THENGOSUB338
  351. 832 N$=N$(K%):RETURN
  352. 900 REM SPRITE
  353. 901 DATA0,12,0,0,12,0,0,12,0,0,12,0,0,12,0,0,12,0,255,255
  354. 910 REM DRUCKERCODES
  355. 911 DATA14       :REM SEK.ADR. (ASCII UNGEWANDELT)
  356. 912 DATA10,-1    :REM LINE FEED
  357. 913 DATA14,-1    :REM BREITSCHRIFT
  358. 914 DATA15,-1    :REM KOMPRIMIERT
  359. 915 DATA18,-1    :REM KOMPR.AUS
  360. 916 DATA20,-1    :REM BREIT AUS
  361. 917 DATA27,42,-1 :REM GRAFIKMODI
  362. 918 DATA27,51,-1 :REM ABSTAND N/216
  363. 919 DATA27,65,-1 :REM ABSTAND N/72
  364. 920 DATA27,80,-1 :REM PICA
  365. 921 DATA27,108,-1:REM LINKER RAND
  366. 922 DATA27,120,-1:REM NLQ
  367. 923 DATA27,112,-1:REM PROP
  368. 925 DATA27,45,1  :REM UNTER
  369. 926 DATA27,45,0  :REM AUS
  370. 927 DATA27,52,*  :REM ITALIC
  371. 928 DATA27,53,*  :REM AUS
  372. 929 DATA27,69,*  :REM FETT
  373. 930 DATA27,70,*  :REM AUS
  374. 935 REM TST
  375. 940 REM SCHRIFTEN
  376. 941 DATA"[208][201][195][193]       ","[206].[204].[209].     ","[208]ROPORTION.","[193][206][212][201][209][213][193]    ","[198]RAKTUR    "
  377. 942 DATA"[208]LANSCHRIFT","[195]ANDICE    ","[212]OWN       ","[208]ENCIL     "
  378. 943 DATA"[199]RAFIK     ","[197][204][204][200][206][201][203][200]   ","[203][201][210][201][204][195][203][201]   ","[195]ITTA      "
  379. 950 REM FARBEN/GLOB
  380. 951 DATA"[146]","","[146][159]","[159]","[146]","","[146][158]","[158]"
  381. 952 DATA252,247,248,251,250,247,248,249
  382. 953 REM TST
  383.