home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_B.d64 / sp-1000vc.2-bef. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  8KB  |  216 lines
  1. 10 rem **** kurzbeschreibung (befehlsliste) des programmes 'p3 sp-1000vc .2' ***
  2. 20 rem             (druckersteuerung mit basicerweiterung)
  3. 25 rem *** programmname 'bef p3 sp-tvc .2' ***
  4. 26 rem  **** horst novak  doeblingerhauptstrasse  1190 wien  ****
  5. 30 dr$="[211][197][201][203][207][211][200][193] [211][208]-1000[214][195]"
  6. 31 k=0:fori=0to2:k=k+peek(50566+i):next
  7. 32 ifk=184 then 40
  8. 33 print"[147] druckerprogramm laden !!! ":print:print:print:print
  9. 34 print"load "chr$(34)"p3 sp-1000vc .2"chr$(34)",8,1[145][145][145]":end
  10. 40 sys49152:_rm:_rt:_d:_rd:_ml,03:_mr,74:_m
  11. 42 _d:gosub 990
  12. 50 _wl:_pq
  13. 60 _b:_st2,19:print"[196]ruckersteuerung"
  14. 70 _st3,17:printdr$
  15. 80 _st3,00:print"[194]asicerweiterung";:_b0:_st3,53:print"[203]urzbeschreibung"
  16. 90 gosub994
  17. 100 _eq:rem ******* _f
  18. 110 print"[208]rogrammname:"chr$(34)"[208]3 [211][208]-1000[214][195] .2"chr$(34);
  19. 120 print" [194]ereich:$[195]000-$[195][198][198][198]";:_h:_lc:_st3,52:print"[200]orst [206][207][214][193][203]"
  20. 130 _t3:print"[196]oeblinger [200]auptstrasse 44/16"
  21. 140 print"[193]ktivieren: [211][217][211] 49152  [196]esaktivieren: [211][217][211] 50601";
  22. 150 _h:_t3:print"1190 [215][201][197][206]"
  23. 160 gosub994
  24. 170 print"[194]ei [193]ktivierung und [196]esaktivierung werden die [214]ektoren anderer [194]asic";
  25. 180 print"erweiterungen beruecksichtigt."
  26. 190 print"[208]arameter fuer [210]andeinstellung,[218]eilenvorschub,[212]abulatoren,[218]eilen/[211]ei";
  27. 200 print"te & [199]rafikdaten werden in einer [212]abelle abgelegt."
  28. 210 print"[196]iese [212]abelle kann mit _[210][212] oder _[200][208],_[200][198],_[200][197] mit [206]ormalwerten";
  29. 220 print" geladen werden."
  30. 230 _szr,209:_sz1,0110000:_z1:_z1:_z0:_la:_wl:_st1,36:_wl
  31. 240 _lf
  32. 245 rem =================================
  33. 250 _pq:print"_[196]  ";
  34. 251 _c:print"[196]ruckerverbindung ein ([211]ecundaeradr => [218]eichensatz)";
  35. 252 _t1:_pq:print"_[196]0 ";
  36. 253 _c:print"[214]erbindung aus ([198]iles,[212]ab & [196]ruckerwerte bleiben "
  37. 254 _pq:print"_[211][211],n";
  38. 255 _c:_le:print"  [211]ecundaeradresse (_[196]) setzen (n=0..[199]ross/[199]rafik,  ";
  39. 256 _t1:print"                       & _[194]0 & _[218]0)"
  40. 257 _c:print"  n=7..[203]lein/[199]ross) wirksam in _[196] nur nach _[210][205] !";
  41. 258 _t1:_pq:print"_[210][212] ";:_c:_lf:print"[212]abelle mit [206]ormwerten laden & _[196]0"
  42. 260 _pq:print"_[210][196]  ";
  43. 261 _c:print"[196]ruckerreset ([212]ab & [196]ruckerverbindung bleiben)";
  44. 262 _t1:_pq:print"_[210][205] ";
  45. 263 _c:_lb:print"[205]asterreset ([198]iles closed & _[196]0)"
  46. 264 gosub992:_wl
  47. 265 _pq:print"_[208]   ";
  48. 266 _c:print"[208]ica ein "
  49. 270 _pq:print"_[208][209]  ";
  50. 271 _c:print"[208]ica [200]igh [209]uality ein"
  51. 280 _pq:print"_[197]   ";
  52. 281 _c:print"[197]lite ein "
  53. 290 _pq:print"_[197][209]  ";
  54. 291 _c:print"[197]lite [200]igh [209]uality ein "
  55. 300 _pq:print"_[195]   ";
  56. 301 _c:print"[195]ondensed ([203]omprimiert) ein"
  57. 310 _pq:print"_[200]   ";
  58. 311 _c:print"[200]och ([211]uperscript) ein"
  59. 320 _pq:print"_[212]   ";
  60. 321 _c:print"[212]ief ([211]ubscript) ein"
  61. 330 _pq:print"_[203]   ";
  62. 331 _c:print"[203]lein/[199]ross [218]eichensatz ein"
  63. 340 _pq:print"_[199]   ";
  64. 341 _c:print"[199]ross/[199]rafik [218]eichensatz ein"
  65. 350 _pq:print"_[201]   ";
  66. 351 _c:print"[201]talik ([203]ursiv) ein ";
  67. 352 _t1:_pq:print"_[201]0 ";
  68. 353 _c:print"[201]talic ([203]ursiv) aus"
  69. 360 _pq:print"_[194]   ";
  70. 361 _c:print"[194]reitschrift ([196]ouble [215]idth) ein & _[218]0";
  71. 362 _t1:_pq:print"_[194]0 ";
  72. 363 _c:print"[194]reitschrift ([196]ouble [215]idth) aus & _[218]0"
  73. 370 _pq:print"_[198]   ";
  74. 371 _c:print"[198]ettscrift ([196]ouble [211]trike) ein";
  75. 372 _t1:_pq:print"_[198]0 ";
  76. 373 _c:print"[198]ettschrift ([196]ouble [211]trike) aus"
  77. 380 _pq:print"_[210]   ";
  78. 381 _c:print"[210]evers ein ";
  79. 382 _t1:_pq:print"_[210]0 ";
  80. 383 _c:print"[210]evers aus"
  81. 400 _pq:print"_[213]   ";
  82. 401 _c:print"[213]nterstreichen ein ";
  83. 402 _t1:_pq:print"_[213]0 ";
  84. 403 _c:_lb:print"[213]nterstreichen aus "
  85. 404 gosub992:_wl
  86. 410 _pq:print"_[215]   ";
  87. 411 _c:print"[206]ur [215]agenruecklauf ([195][211])"
  88. 420 _pq:print"_[215][204]  ";
  89. 421 _c:print"[215]agenruecklauf & [218]eilenvorschub ([204][198])";
  90. 422 _t1:_pq:print"_[215][209] ";
  91. 423 _c:print"[215]agenruecklauf,[218]eilenvorschub & [209]uote cleared ([195][210]) "
  92. 430 _pq:print"_[216]   ";
  93. 431 _c:print"[213]nidirectionaler [196]ruck ein ";
  94. 432 _t1:_pq:print"_[216]0 ";
  95. 433 _c:print"[213]nidirectionaler [196]ruck aus "
  96. 440 _pq:print"_[198][198]  ";
  97. 441 _c:print"[198]ormfeed ([198]ormulartransport) (norm 54)  ";
  98. 442 _t1:_pq:print"_[211][218][211],n";
  99. 443 _c:_lb:print"  [218]eilen/[211]eite (max 127) setzen              *) "
  100. 444 gosub992:_wl
  101. 450 _pq:print"_[204]1  ";
  102. 451 _c:print"[218]eilenvorschub aus [212]abelle (norm 1/2 [208]unkt)        ";
  103. 452 _t1:_pq:print"_[211][204]1,n";
  104. 453 _c:_lf:print"  [218]eilenvorschub n*1/144 in(1/2 [208]kt)setzen   *) "
  105. 460 _pq:print"_[204]2 _[204]3 ";
  106. 461 _c:print"  wie _[204]1 (norm 1 [208]kt bzw 7.5 [208]kte)";
  107. 462 _t1:_pq:print"_[211][204]2,n _[211][204]3,n";
  108. 463 _c:print"  wie _[211][204]1                       *) "
  109. 470 _pq:print"_[204][193] _[204][194] _[204][195] ";
  110. 471 _c:print"[218]eilenvorschub fuer _[200] ([199]rafik[190][205]inimum[190][206]ormal[190])"
  111. 480 _pq:print"_[204][196] _[204][197] _[204][198] _[204][199] _[204][200] ";
  112. 481 _c:_lb:print"[218]eilenvorschub fuer _[197],_[208] ";
  113. 482 print"([199]rafik[190][205]inimum[190][206]ormal[190]1 [218]eile[190]1 1/2 [218]eilen[190])"
  114. 494 gosub992:_wl
  115. 500 _pq:print"_[205]   ";
  116. 501 _c:print"[204]inker & rechter [210]and aus [212]abelle (norm 00 & 72) ";
  117. 502 _t1:_pq:print"_[205][204],nm ";
  118. 503 _c:_lf:print"[204]inken [210]and in [212]abelle (nm [208]ica) setzen"
  119. 512 _t1:_pq:print"_[205][210],nm ";
  120. 513 _c:print"[210]echten [210]and in [212]abelle (nm [208]ica) setzen"
  121. 520 _pq:print"_[212][193]  ";
  122. 521 _c:print"[212]abulator aus [212]abelle (norm 16*1/60 in)";
  123. 522 _t1:_pq:print"_[211][212][193],n,m ";
  124. 523 _c:print"[212]abulator (n*250 + m 1/60 inch) setzen  *)"
  125. 530 _pq:print"_[212][194]  ";
  126. 531 _c:print"[212]abulator aus [212]abelle (nicht normalisiert !! )";
  127. 532 _t1:_pq:print"_[211][212][194],n,m ";
  128. 533 _c:print"[212]abulator (n*250 + m 1/60 inch) setzen  *)"
  129. 540 _pq:print"_[212]1  ";
  130. 541 _c:print"[212]abulator aus [212]abelle (norm 01 [208]ica) ";
  131. 542 _t1:_pq:print"_[211][212]1,nm ";
  132. 543 _c:print"[212]abulator (nm [208]ica) setzen                *)"
  133. 550 _pq:print"_[212]2 _[212]3 ";
  134. 551 _c:print"[212]abulator aus [212]abelle (norm 35 bzw 55 [208]ica)";
  135. 552 _t1:_pq:print"_[211][212]2,nm _[211][212]3,nm ";
  136. 553 _c:_lb:print"[212]abulator (nm [208]ica) setzen  *)"
  137. 554 gosub992:_wl
  138. 570 _pq:print"_[206][194]  ";
  139. 571 _c:print"[212]ab & [196]rucker fuer [194]rief [193]4 (_[208][209],......   ) ";
  140. 580 _t1:_pq:print"_[206][204]  ";
  141. 581 _c:_lb:print"[212]ab & [196]rucker fuer [204]isting(_[195],...........  )"
  142. 594 gosub992:_wl
  143. 600 _pq:print"_[218]   ";
  144. 601 _c:print"[199]rafikmode ein  ";
  145. 602 _t1:_pq:print"_[218]0 ";
  146. 603 _c:_lf:print"[199]rafikmode aus"
  147. 610 _pq:print"     ";
  148. 611 _c:print"                                                   ";
  149. 612 _t1:_pq:print"_[211][218][210],n ";
  150. 613 _c:print"[199]rafikrepeat (n=1-255,n=0..256) setzen    "
  151. 620 _pq:print"_[218]1  ";
  152. 621 _c:print"[199]rafikdaten1 aus [212]abelle [199]rafikrepeat mal zeichnen ";
  153. 622 _t1:_pq:print"_[211][218]1,nnnnnnn ";
  154. 623 _c:print"[199]rafdaten mit 0 oder 1 setzen       "
  155. 630 _pq:print"_[218]2 _[218]3 .. _[218]9 ";
  156. 631 _c:print"[215]ie _[218]1 ";
  157. 632 _t1:_pq:print"_[211][218]2,nnnnnnn .._[211][218]9, ";
  158. 633 _c:print"[215]ie _[211]z1,nnnnnnn"
  159. 640 _pq:print"_[218][198]  ";
  160. 641 _c:_lb:print"[199]rafikdaten1-8 aus [212]abelle [199]rafikrepeat mal zeichnen;z.[194]. ";
  161. 642 print"[212]ab normal & [210]epeat=10:    ";
  162. 643 _szr,10:_zf:_z0:_wl
  163. 659 gosub992:_wl
  164. 660 _pq:print"_[200][204]";:_eq:printchr$(34)"[194]ildname";chr$(34);" ";
  165. 661 _c:print"[200]iresbild (33 [194]loecke) von [196]isk laden ";
  166. 662 _t1:_pq:print"_[200][208] ";
  167. 663 _c:_lf:print"[200]iresbild ([193]000-[194][198][198][198]) drucken (_[212][194]..linker [210]and)"
  168. 670 _pq:print"_[200][198]  ";
  169. 671 _c:print"[215]ie _[200][208] aber [198]ettdruck (doppelte [218]eit)";
  170. 672 _t1:_pq:print"_[200][197] ";
  171. 673 _c:_lb:print"[215]ie _[200][208] aber entzerrter [198]ettdruck (4fache [218]eit)"
  172. 800 gosub993:_wl
  173. 802 _pq:_lf:print"_[201][206]([216],[217]),[198],"chr$(34)"[212]"chr$(34)",[204],"chr$(34)"[218]"chr$(34)",";
  174. 804 print"[214][214]$      ";:_c:print"[198]ormatierter [201][206][208][213][212] [194]efehl fuer max. 255 [218]eichen
  175. 806 _st1,05
  176. 808 [153]"(NULL)...(NULL)palte(0-39) (NULL)...(NULL)eile(0-24) ,asc...ascarbe von (NULL)ext & valingabefeld ";
  177. 810 _le:[153]"(0-15) (NULL)...(NULL)ext(vor valingabefeld)"
  178. 811 _t1:[153]"(NULL)...(NULL)aenge valingabefeld ";
  179. 812 [153]"(NULL)...peekeschraenkung auf erlaubte(NULL)eichen(<30) (NULL)(NULL)$...(NULL)tringvariable";
  180. 814 [153]"(max. 255 (NULL)eichen)"
  181. 816 _st1,07:[153]",asc   "[199](34)"(NULL)"[199](34)"   "[199](34)"(NULL)"[199](34);
  182. 818 _lb:[153]"  koennen weggelassen werden  _right$(NULL)((NULL),(NULL))(NULL),(NULL)(NULL)$  _right$(NULL)((NULL),(NULL)),asc,(NULL),(NULL)(NULL)$ usw"
  183. 820 [141]992:_wl
  184. 822 _pq:_lf:[153]"_(NULL)(NULL)((NULL),(NULL)),asc,"[199](34)"(NULL)"[199](34)"  oder (NULL)(NULL)$  ";
  185. 824 _c:[153]"    (NULL)(NULL)right$(NULL)(NULL) (NULL)ext atn(NULL) peekefehl"
  186. 826 _st1,05
  187. 828 [153]"(NULL)...(NULL)palte(0-39) (NULL)...(NULL)eile(0-24) ,asc...ascarbe des (NULL)extes";
  188. 830 _le:[153]"(0-15) (NULL)...(NULL)ext oder (NULL)(NULL)$...(NULL)tringvariable"
  189. 832 _st1,07:[153]",asc   kann weggelassen werden     _(NULL)(NULL)((NULL),(NULL))"[199](34)"(NULL)";
  190. 834 _lb:[153] [199](34) "oder _(NULL)(NULL)((NULL),(NULL))(NULL)(NULL)$
  191. 836 gosub992:_wl
  192. 838 _pq:_lf:print"_[211][195],[193]       ";
  193. 840 _c:print"    [211][195][210][207][204][204] [213][208] [194]efehl    "
  194. 842 _st1,05
  195. 844 _le:print",[193]...[193]nzahl der zu scrollenden [218]eilen";
  196. 846 _lb:print"     ,[193]   kann weggelassen werden     _[211][195] "
  197. 848 gosub992:_wl
  198. 850 _pq:_lf:print"_[195][204],[217],[193]       ";
  199. 852 _c:print"    [195][204][197][193][210][160][204][201][206][197] [194]efehl    "
  200. 854 _st1,05
  201. 856 _le:print"[217]...[218]eile(0-24)  ,[193]...[193]nzahl der zu loeschenden [218]eilen";
  202. 858 _lb:print
  203. 860 gosub992:_wl
  204. 862 _pq:_lf:print"_[195][211]           ";
  205. 864 _c:_lb:print"    [195][204][197][193][210][160][211][195][210][197][197][206] [194]efehl    "
  206. 866 gosub993:_wl
  207. 870 _c:print"*) ";:_h:print"[215]erte werden in [212]abelle gesetzt & zu [196]rucker ";
  208. 872 print"gesendet":_lb: _wl
  209. 900 gosub990:_rd:_rm:end
  210. 910 rem *** grafiksubroutinen
  211. 990 _d:_sz1,0001000:_sz2,0011100:_sz3,0110110:_sz4,1100011
  212. 991 _szr,59:_z1:_z2:_z3:_szr,64:_z4:_szr,59:_z3:_z2:_z1:_z0:return
  213. 992 _szr,209:_sz2,0000010:_z2:_z2:_rt:_d:_le:_ml,03:_mr,74:_m:_st1,36:return
  214. 993 _st1,36:_w:_szr,209:_sz2,0000011:_z2:_z2:_z0:_lf:return
  215. 994 _szr,209:_sz5,1100000:_z5:_z5:_z0:_la:_wl:_lc:return
  216.