home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 5 / Commodore_Disc_05_19xx_-_de.d64 / schoenschrift.64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  6.4 KB  |  123 lines
  1. 10 rem schoenschrift ============64
  2. 20 rem (p) commodore welt         =
  3. 30 rem ============================
  4. 40 rem (c) by                     =
  5. 50 rem andy korzendorfer          =
  6. 60 rem                            =
  7. 70 rem version 1.0  40z/ascii     =
  8. 80 rem c-64 + mps801/803 (drucker)=
  9. 90 rem ============================
  10. 95 rem listing mit schoenschrift
  11. 97 rem auf dem mps-803 gedruckt
  12. 100 poke53280,0:poke53281,0:printchr$(147);chr$(30):sa=2
  13. 110 printchr$(17);"  schoenschrift fuer den mps-801/803"
  14. 120 printchr$(17);"  bitte 30 sec. warten."
  15. 130 poke828,0:ifsa=1thenpoke828,1:poke829,peek(55):poke830,peek(56):goto150
  16. 140 ifsa<5then170
  17. 150 sa=peek(56)-7:ifpeek(55)>0thensa=sa-1
  18. 160 poke56,sa:poke55,0:clr:sa=peek(56):goto200
  19. 170 ifsa=2thensa=192
  20. 180 ifsa=3thensa=4
  21. 190 ifsa=4thensa=160
  22. 200 sr=sa:ifpeek(828)thensr=208
  23. 210 sd=sa*256:p=0
  24. 220 readx:p=p+x:ifx=-1then290
  25. 230 ifx<300then280
  26. 240 ifx<600thenx=x-492+sr:goto280
  27. 250 ifpeek(828)=0thenx=peek(x):goto280
  28. 260 ifx=806thenx=89
  29. 270 ifx=807thenx=3
  30. 280 pokesd,x:sd=sd+1:goto220
  31. 290 ifp<>187274thenprint" data-fehler in block 1 !":end
  32. 300 sd=sa*256+1024:forx=sdtosd+426:pokex,0:nextx
  33. 310 sd=sa*256+1535:p=0
  34. 320 readx:p=p+x:ifx=-1then350
  35. 330 pokesd,x:sd=sd+1:goto320
  36. 340 ifp<>26405thenprint" data-fehler in block 2 !":end
  37. 350 pokesd+1655,60:poked+447,62:pokesd+761,62:pokesd+1616,62
  38. 360 pokesd+1656,91:pokesd+443,93:pokesd+767,93
  39. 370 pokesd+1657,64:pokesd+449,42:pokesd+773,42:pokesd+1539,92:pokesd+1652,92
  40. 380 ifpeek(828)then420
  41. 390 printchr$(17);"  an:poke806,112:poke807,";sa+3
  42. 400 printchr$(17);"  aus:poke806,";peek(806);":poke807,";peek(807);"."
  43. 410 poke806,112:poke807,sa+3:goto510
  44. 420 sd=832:p=0
  45. 430 readx:p=p+x:ifx=-1then450
  46. 440 pokesd,x:sd=sd+1:goto430
  47. 450 ifp<>10030thenprint" data-fehler in block 3 !":end
  48. 460 sys887:poke55,peek(829):poke56,peek(830):clr
  49. 470 printchr$(17);" an:poke806,64  :poke807,3"
  50. 480 printchr$(17);" aus:poke806,";peek(806);":poke807,";peek(807)
  51. 490 poke861,peek(806):poke852,peek(807)
  52. 500 poke806,64:poke807,3
  53. 510 printchr$(17);" druckerroutine geschaltet !"
  54. 520 rem        data block 1
  55. 530 data142,161,496,140,162,496,141,160,496,201,13,208,10,72,169,0,141,166
  56. 540 data496,104,76,210,492,201,10,240,242,72,173,165,496,208,36,104,201,14
  57. 550 data208,5,141,164,496,24,96,201,15,240,247,201,18,208,5,141,166,496,24
  58. 560 data96,201,146,208,10,72,169,0,141,166,496,104,24,96,104,24,201,32,144
  59. 570 data9,24,201,160,176,32,201,128,144,28,72,173,165,496,208,3,104,24,96,169
  60. 580 data18,141,166,496,104,9,64,32,139,492,169,0,141,166,496,76,199,492,201
  61. 590 data34,208,23,173,165,496,240,10,169,0,141,165,496,169,34,76,139,492,169
  62. 600 data162,234,234,234,141,165,496,72,173,164,496,201,14,208,17,72,173,163
  63. 610 data496,41,1,240,5,169,32,32,165,492,104,32,165,492,104,24,174,163,496
  64. 620 data224,80,144,12,72,32,210,492,104,234,172,162,496,174,163,496,157,0
  65. 630 data496,173,166,496,240,3,157,80,496,238,163,496,24,173,160,496,174,161
  66. 640 data496,172,162,496,96,169,0,141,167,469,141,168,496,141,170,496,169,0
  67. 650 data162,13,157,175,496,202,208,250,174,167,496,189,0,497,201,14,240,81
  68. 660 data162,9,221,254,497,240,6,202,208,248,76,21,493,138,10,10,10,141,8,493
  69. 670 data162,6,189,72,498,157,176,496,202,208,247,169,1,141,168,496,174,167
  70. 680 data496,189,1,497,162,9,221,254,497,240,6,202,208,248,76,118,493,138,10
  71. 690 data10,10,141,50,493,162,6,189,24,498,157,182,496,202,208,247,169,1,141
  72. 700 data168,496,76,118,493,189,1,497,162,9,221,254,497,240,6,202,208,248,76
  73. 710 data118,493,138,10,10,10,141,92,493,162,6,189,72,498,72,138,10,170,104
  74. 720 data157,175,496,157,176,496,72,138,74,170,104,202,208,234,169,1,141,168
  75. 730 data496,174,167,496,189,80,497,240,18,162,6,169,2,29,176,496,157,176,496
  76. 740 data202,208,245,169,1,141,168,496,174,167,496,189,81,497,240,18,162,6,169
  77. 750 data2,29,182,496,157,182,496,202,208,245,169,1,141,168,496,174,167,496
  78. 760 data189,0,496,201,14,240,113,32,186,493,76,197,493,201,93,208,2,169,62
  79. 770 data201,42,240,250,96,162,3,221,79,498,240,6,202,208,248,76,239,493,138
  80. 780 data10,10,10,24,105,80,141,223,493,162,6,189,88,498,29,176,496,157,176
  81. 790 data496,202,208,244,169,1,141,168,496,174,167,496,189,1,496,32,186,493
  82. 800 data162,3,221,79,498,240,6,202,208,248,76,103,494,138,10,10,10,24,105,80
  83. 810 data141,18,494,162,6,189,104,498,29,182,496,157,182,496,202,208,244,169
  84. 820 data1,141,168,496,76,103,494,189,1,496,32,186,493,162,3,221,79,498,240
  85. 830 data6,202,208,248,76,103,494,138,10,10,10,24,105,80,141,69,494,162,6,189
  86. 840 data104,498,72,138,10,170,104,72,29,175,496,157,175,496,104,29,176,496
  87. 850 data157,176,496,72,138,74,170,104,202,208,226,169,1,141,168,496,173,168
  88. 860 data496,208,27,238,170,496,238,167,496,238,167,496,173,167,496,201,80,176
  89. 870 data3,76,221,492,169,8,32,806,807,76,183,494,173,170,496,240,15,169,14
  90. 880 data32,806,807,169,32,32,806,807,206,170,496,208,248,169,8,32,806,807,162
  91. 890 data1,189,176,496,9,128,32,806,807,232,224,13,208,243,162,0,142,168,496
  92. 900 data76,111,494,169,0,141,167,496,169,13,32,806,807,173,169,496,32,806,807
  93. 910 data169,17,32,806,807,174,167,496,189,0,496,201,14,240,2,169,15,205,169
  94. 920 data496,240,6,141,169,496,32,806,807,201,14,208,4,238,167,496,232,189,0
  95. 930 data496,162,14,221,111,498,240,74,202,208,248,201,62,208,2,169,193,201
  96. 940 data93,208,2,169,207,201,42,208,2,169,213,32,806,807,238,167,496,24,173
  97. 950 data167,496,205,163,496,144,179,169,8,32,806,807,169,0,141,163,496,141
  98. 960 data167,496,162,160,189,255,495,157,255,496,169,0,157,255,495,202,208,242
  99. 970 data24,169,13,32,806,807,76,200,492,138,10,10,10,24,105,120,141,83,495
  100. 980 data169,8,32,806,807,162,1,138,72,189,232,498,32,806,807,174,169,496,224
  101. 990 data14,208,3,32,806,807,104,170,232,224,8,208,231,173,169,496,76,10,495
  102. 1000 data0,72,165,154,201,4,240,4,104,76,806,807,104,76,0,492,-1
  103. 1010 rem        data block 2
  104. 1020 data71,74,80,81,92,44,59,162,89,0,128,132,132,132,131,128,0,0,128,130,132
  105. 1030 data131,128,128,0,0,135,128,128,128,128,128,0,0,128,128,128,128,135,128
  106. 1040 data0,0,135,128,128,128,128,128,0,0,128,130,129,128,128,128,0,0,128,130
  107. 1050 data129,128,128,128,0,0,128,128,131,128,131,128,0,0,128,132,132,131,128
  108. 1060 data128,0,62,39,34,0,0,0,0,0,0,128,160,128,160,128,128,0,0,128,128,192
  109. 1070 data160,128,128,0,0,128,224,128,224,128,128,0,71,74,80,81,92,44,59,60,91
  110. 1080 data64,39,162,34,89,0,0,0,184,196,196,168,252,128,0,0,128,128,128,253,128
  111. 1090 data128,0,0,252,168,196,196,184,128,0,0,184,196,196,168,252,128,0,0,254
  112. 1100 data201,201,182,128,128,0,0,128,128,192,128,128,128,0,0,128,128,208,128
  113. 1110 data128,128,0,0,160,213,212,189,192,128,0,0,184,197,196,197,184,128,0,0
  114. 1120 data189,192,192,189,192,128,0,0,128,129,128,128,128,128,0,0,128,128,192
  115. 1130 data128,192,128,0,0,128,129,128,129,128,128,0,0,188,192,160,252,128,128
  116. 1140 data0,66,65,82,78,73,77,32,32,75,79,69,78,73,71,56,53,-1
  117. 1150 rem       data block 3
  118. 1160 data72,165,154,201,4,240,8,104,108,93,3,234,234,234,234,104,32,98,3,32
  119. 1170 data0,208,76,111,3,32,111,3,32,202,241,76,98,3,72,165,1,141,113,3,41,252
  120. 1180 data120,133,1,104,96,72,169,55,133,1,104,88,96,32,98,3,165,56,234,141,132
  121. 1190 data3,162,0,189,0,128,157,0,208,232,208,247,173,135,3,201,214,240,9,238,132
  122. 1200 data3,238,135,3,76,130,3,76,111,3,-1
  123.