home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 27 / 64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_B.d64 / schreibmaschine (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.