home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 37 / 64er_Magazin_Sonderheft_37_19xx_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / drucker.inst (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  91 lines
  1. 100 rem  rdcuek rnitslaalitno srpgoarmm
  2. 110 rem  ufred eia imacp iatnh racdpoy
  3. 120 rem
  4. 130 rem  rpgoarmmeitrv no
  5. 140 rem  lovires itllre( 2002/38659)4
  6. 150 rem  ef.b9188
  7. 160 rem
  8. 170 rem
  9. 180 dim a$(30),dr(64)
  10. 190 print"amica paint drucker installation"
  11. 200 print"fuer schwarz-weiss ausdrucke mit grau-"
  12. 210 print"stufen umrechnung."
  13. 220 print"hier koennen sie die hardcopy-funktion"
  14. 230 print"von amica paint auf ihren drucker ab-"
  15. 240 print"stimmen. dies ist ein einmaliger vor-"
  16. 250 print"gang; in zukunft kann die druckfunktion"
  17. 260 print"direkt im programm angewaehlt werden."
  18. 270 print"dazu beantworten sie einfach die"
  19. 280 print"folgenden fragen. die notwendigen"
  20. 290 print"informationen finden sie im handbuch"
  21. 300 print"ihres druckers."
  22. 310 :
  23. 320 :
  24. 330 print"name des druckers (max.25 zeichen)"
  25. 340 input dr$:if len(dr$)>25 then 340
  26. 350 :
  27. 360 :
  28. 370 print"anschluss des druckers:"
  29. 380 print"(s) am seriellen bus"
  30. 390 print"(c) ueber centronics kabel am userport"
  31. 400 input"s[146]eriell oder c[146]entronics";sc$
  32. 410 if sc$<>"s" and sc$<>"c" then 400
  33. 420 sc=0:if sc$="s" then sc=255
  34. 430 :
  35. 440 :
  36. 450 print"anzahl der nadeln des druckers:"
  37. 460 print"(7) 7 nadeln"
  38. 470 print"(8) 8,9 oder 24 nadeln"
  39. 480 input "7[146] oder 8[146] (fuer 8 oder mehr) nadeln";na$
  40. 490 if na$<>"7" and na$<>"8" then 480
  41. 500 na=0:if na$="7" then na=255
  42. 510 :
  43. 520 :
  44. 530 print"format des befehls zum grafikdruck:"
  45. 540 print"diese eingabe ist etwas komplizierter."
  46. 550 print"sie muessen - durch spaces getrennt -"
  47. 560 print"die bytes eingeben, die den ausdruuck"
  48. 570 print"einer grafikzeile bewirken."
  49. 580 print"dabei steht"
  50. 590 print"'d' fuer die position der daten selbst"
  51. 600 print"'l' fuer das low-byte der datenanzahl"
  52. 610 print"'h' fuer das high-byte ''     ''     ."
  53. 620 print"ein beispiel:"
  54. 630 print"die eingabe : 27[160]75 l h d 13 10[146] wuerde"
  55. 640 print"fuer die sequenz"
  56. 650 print"escape,'k',low,high,(.. daten ..),13,10"
  57. 660 print"stehen."
  58. 670 :
  59. 680 input"sequenz";sq$:if sq$="" then 680
  60. 690 :
  61. 700 print"bitte warten ..."
  62. 710 :
  63. 720 po=0:pm=1:sq$=sq$+" "
  64. 730 for t=1 to len(sq$)
  65. 740 ifmid$(sq$,t,1)<>" "then760
  66. 750 x$=mid$(sq$,pm,t-pm):pm=t+1:ifx$<>""then a$(po)=x$:po=po+1
  67. 760 next t
  68. 770 for t=0 to po-1:x$=a$(t)
  69. 780 x= val(x$) :if x<>0 then 820
  70. 790 if x$="d" then x=253
  71. 800 if x$="l" then x=255
  72. 810 if x$="h" then x=254
  73. 820 dr(32+7+t)=x:next t
  74. 830 :
  75. 840 dr(32+5)=na
  76. 850 dr(32+6)=sc
  77. 860 :
  78. 870 fort=1tolen(dr$)
  79. 880 dr(t-1)=asc(mid$(dr$,t,1))
  80. 890 next
  81. 900 :
  82. 910 close 1
  83. 920 open 1,8,15,"s:drucker paramet."
  84. 930 close 1
  85. 940 open 1,8,1,"drucker paramet."
  86. 950 print#1,chr$(0);chr$(79);
  87. 960 fort=0to64
  88. 970 print#1,chr$(dr(t));
  89. 980 next t
  90. 990 close 1
  91.