home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 47 / 64er_Magazin_Sonderheft_47_19xx_Markt__Technik_de_Side_B.d64 / printerblocksatz (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  73 lines
  1. 0 rem ** printerblocksatz **
  2. 1 run10
  3. 2 open4,4,7:print"[147]
  4. 3 [135]a$:[139]a$[179][177]"@"[167][158]49152,4,232,.,a$:[137]3
  5. 4 [131]"str$ieser (NULL)ext wird von '(NULL)rinterblock-","satz' auf (NULL)unsch zentriert oder
  6. 5 data"mit [194]locksatz versehen. [215]ie [211]ie","sehen, kann man auch [194]reitschrift
  7. 6 [131]"oder chr$rafik verwenden: fnfnrndorlogsinexp/fre^sin/, ohne","dass der rechte (NULL)and lei-
  8. 7 data"den muss. [196]as ist doch stark, oder ?","[200]aben [211]ie schon die [195]ontrol-
  9. 8 [131]"@
  10. 9 print#4,"funktion probiert ?":close4:end
  11. 10 fori=1to9:readq$:next:fori=49152to50008:readq:s=s+q:pokei,q:next
  12. 11 ifs><99889thenprint"data fehler !!!":stop
  13. 12 print"[147]printerblocksatz mps 801/3
  14. 13 [153]"programmiert von n. heusler 200986
  15. 14 print" sys 49152, lf, len, mode, text$
  16. 15 [153]" mode: bit     = 1            = 0
  17. 16 print"       # 0  zentrieren     blocksatz
  18. 17 [153]"       # 1  kontrolle an     aus
  19. 18 print"die anderen 6 bits haben keine funktion.
  20. 19 [153]"beispiel: mode = 2 => blocksatz mit     tab(tab(tab(tab(tab(tab(tab(tab("[166]14)"kontrolle
  21. 20 print"lf = log. filenummer (bsp. open 1[146],4"spc(15)"=> lf = 1)
  22. 21 [153]"len = erwuenschte laenge (1-479 pixel)
  23. 22 print"sys 49155: kontrolle nachtraeglich      (taste)
  24. 23 [151]198,.:[146]198,1:[151]198,.
  25. 24 [153]"loadmit 'run 2' starten sie einen probeaus- druck.
  26. 30 :
  27. 31 rem printerblocksatz
  28. 32 rem version 2 vom 280789
  29. 33 rem von nikolaus heusler, zwengauerweg 18, 8 muc 71
  30. 34 :
  31. 10000 data76,77,195,76,190,194,,,,,,,,,,,,,,8,128,15,,8,26,,128,15,67,72,65,210
  32. 10002 data19,18,149,32,32,80,82,73,78,84,69,82,32,66,76,79,67,75,83,65,84,90,32
  33. 10004 data70,85,78,75,84,73,79,78,32,158,75,79,78,84,82,79,76,76,69,149,32,32
  34. 10006 data150,146,,32,241,183,142,12,192,32,253,174,32,138,173,32,247,183,140
  35. 10008 data14,192,141,15,192,170,240,7,192,224,144,3,76,72,178,32,241,183,138,41
  36. 10010 data3,141,18,192,76,175,192,174,12,192,32,201,255,144,3,76,249,224,169,
  37. 10012 data160,206,32,155,194,32,121,,240,7,201,59,240,9,76,8,175,32,215,170,76
  38. 10014 data204,255,32,115,,76,204,255,160,,152,153,,206,200,208,250,96,32,253
  39. 10016 data174,32,158,173,32,163,182,160,,141,6,192,177,34,201,23,240,15,153,
  40. 10018 data206,200,204,6,192,144,241,169,,153,,206,96,169,28,133,34,169,192,76
  41. 10020 data69,164,160,,140,7,192,140,8,192,140,9,192,204,6,192,176,73,185,,206
  42. 10022 data201,23,240,18,44,9,192,48,62,112,35,201,14,208,11,169,64,141,9,192
  43. 10024 data208,45,169,255,208,45,201,8,208,4,169,128,208,239,32,73,193,144,28
  44. 10026 data169,6,32,88,193,144,21,201,15,240,12,32,73,193,144,12,169,12,32,88
  45. 10028 data193,144,5,169,,141,9,192,200,208,178,96,170,16,7,169,1,32,88,193,144
  46. 10030 data242,201,9,240,233,201,15,240,229,208,232,201,32,144,231,201,160,176
  47. 10032 data227,170,48,2,56,96,24,96,24,109,7,192,141,7,192,173,8,192,105,,141,8
  48. 10034 data192,24,96,140,11,192,142,10,192,174,6,192,138,24,109,11,192,168,236
  49. 10036 data10,192,144,19,173,10,192,208,4,224,255,240,10,189,,206,153,,206,202
  50. 10038 data136,208,232,24,173,6,192,109,11,192,141,6,192,144,3,76,113,165,96,142
  51. 10040 data13,192,189,,206,201,23,240,15,232,236,6,192,144,2,162,,236,13,192,208
  52. 10042 data236,24,96,232,189,,206,201,23,240,248,202,56,96,160,1,32,105,193,174
  53. 10044 data10,192,169,23,157,,206,96,32,219,192,173,8,192,240,10,173,7,192,201
  54. 10046 data224,144,3,76,113,165,173,7,192,74,141,16,192,173,8,192,240,9,169,128
  55. 10048 data24,109,16,192,141,16,192,173,6,192,74,141,17,192,96,162,,189,,206,201
  56. 10050 data32,208,5,169,23,157,,206,232,208,241,96,32,1,194,32,210,193,32,219
  57. 10052 data192,173,8,192,205,15,192,144,16,208,10,173,7,192,205,14,192,144,6,240
  58. 10054 data3,76,113,165,96,174,17,192,32,160,193,176,3,76,72,178,232,32,196,193
  59. 10056 data232,142,17,192,173,18,192,41,2,240,3,32,190,194,76,25,194,32,210,193
  60. 10058 data173,14,192,74,72,173,15,192,240,5,104,24,105,128,72,104,56,237,16,192
  61. 10060 data144,195,240,23,72,162,,160,5,32,105,193,162,4,189,23,192,157,,206,202
  62. 10062 data16,247,104,141,2,206,173,18,192,41,2,240,3,32,190,194,96,173,18,192
  63. 10064 data41,1,208,188,76,19,194,133,2,132,3,160,,177,2,240,9,201,23,240,6,32
  64. 10066 data210,255,144,8,96,169,19,160,192,32,30,171,230,2,208,229,230,3,208,225
  65. 10068 data169,,141,32,208,141,33,208,169,32,160,192,32,30,171,162,,169,1,133
  66. 10070 data212,189,,206,32,236,194,168,240,5,232,208,240,240,31,232,240,28,169,
  67. 10072 data32,236,194,76,225,194,32,27,195,165,211,240,4,201,40,208,8,173,134,2
  68. 10074 data73,4,141,134,2,96,32,6,195,76,215,170,174,17,192,169,1,157,40,216,189
  69. 10076 data40,4,201,32,208,5,169,160,157,40,4,96,201,13,240,21,201,141,240,28
  70. 10078 data201,20,240,31,76,210,255,72,169,1,44,169,,133,199,104,96,32,42,195
  71. 10080 data169,77,32,210,255,72,144,239,32,42,195,169,205,208,243,32,42,195,169
  72. 10082 data84,208,236,32,165,192,32,80,192,32,145,194,76,123,192
  73.