home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 39 / 64er_Magazin_Sonderheft_39_19xx_Markt__Technik_de_Side_A.d64 / drucker.gen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.4 KB  |  137 lines
  1. 10 dimz(8,4),an(4):sa=0:ga=4
  2. 100 poke53272,23
  3. 110 gosub10000
  4. 120 print" [196]rucker-[193]npassung"
  5. 130 print
  6. 140 print
  7. 150 print"  a) [211]teuerzeichen eingeben"
  8. 160 print
  9. 170 print"  b) [211]teuerzeichen ausgeben"
  10. 180 print
  11. 190 print"  c) [211]ekundaeradresse:";sa
  12. 200 print
  13. 210 print"  d) [199]eraeteadresse:  ";ga
  14. 220 print
  15. 230 print"  e) [208]arameter speichern"
  16. 240 print
  17. 250 print"  x) [197]xit"
  18. 300 poke198,0:wait198,1
  19. 310 geta$
  20. 320 ifa$="a"goto1000
  21. 330 ifa$="b"goto2000
  22. 340 ifa$="c"goto4000
  23. 350 ifa$="d"goto5000
  24. 360 ifa$="e"goto3000
  25. 370 ifa$="x"thenend
  26. 380 goto300
  27. 1000 gosub10000
  28. 1010 print" [211]teuerzeichen eingeben"
  29. 1020 print
  30. 1030 print
  31. 1040 print
  32. 1050 print"  [197]inschalten des [199]rafik-[205]odus:"
  33. 1060 x=0:gosub20000
  34. 1070 print"  [218]eilenvorschub n/216tel [218]oll:"
  35. 1080 x=1:gosub20000
  36. 1090 print"  [196]ruckerreset:                "
  37. 1100 x=2:gosub20000
  38. 1110 print"  [208]apiervorschub (form feed):  "
  39. 1120 x=3:gosub20000
  40. 1130 print"  [218]eilenvorschub (cr/lf):      "
  41. 1140 x=4:gosub20000
  42. 1999 goto100
  43. 2000 gosub10000
  44. 2010 print" [211]teuerzeichen ausgeben"
  45. 2020 print
  46. 2030 print
  47. 2040 print
  48. 2050 print:print"  [199]rafik ein: ";
  49. 2060 x=0:gosub40000
  50. 2070 print:print"  [218]-vorschub: ";
  51. 2080 x=1:gosub40000
  52. 2090 print:print"  [210]eset     : ";
  53. 2100 x=2:gosub40000
  54. 2110 print:print"  form feed : ";
  55. 2120 x=3:gosub40000
  56. 2130 print:print"  line feed : ";
  57. 2140 x=4:gosub40000
  58. 2150 poke198,0:wait198,1:poke198,0
  59. 2160 goto100
  60. 3000 open15,8,15,"s:gp[201]"
  61. 3010 open1,8,1,"gp[201]"
  62. 3020 print#1,chr$(15)chr$(112);
  63. 3030 forx=0to4
  64. 3040 i=1:ifan(x)=0goto3080
  65. 3050 fori=1toan(x)
  66. 3060 print#1,chr$(z(i,x));
  67. 3070 next
  68. 3080 ifi>8goto3110
  69. 3090 print#1,chr$(255);
  70. 3100 i=i+1:goto3080
  71. 3110 next
  72. 3120 print#1,chr$(ga);chr$(sa);:close1
  73. 3130 input#15,a$,b$,t$,s$
  74. 3140 print"";
  75. 3150 printa$","b$","t$","s$;
  76. 3160 poke198,0:wait198,1:poke198,0
  77. 3170 close15:goto100
  78. 4000 gosub10000
  79. 4010 print" [211]ekundaeradresse eingeben"
  80. 4020 print
  81. 4030 print
  82. 4040 print
  83. 4050 print"  [211]ekundaeradresse: ";
  84. 4060 open1,0:input#1,a$:close1
  85. 4070 sa=val(a$)
  86. 4080 ifsa<0orsa>255goto4000
  87. 4090 goto100
  88. 5000 gosub10000
  89. 5010 print" [199]eraeteadresse eingeben"
  90. 5020 print
  91. 5030 print
  92. 5040 print
  93. 5050 print"  [199]eraeteadresse: ";
  94. 5060 open1,0:input#1,a$:close1
  95. 5070 ga=val(a$)
  96. 5080 ifga<4orga>7goto5000
  97. 5090 goto100
  98. 10000 printchr$(147);
  99. 10010 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  100. 10020 print
  101. 10030 print
  102. 10040 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  103. 10050 printchr$(19):return
  104. 20000 print
  105. 20010 print"  [215]ieviele [211]teuerzeichen: ";
  106. 20020 open1,0:input#1,a$:close1
  107. 20030 if(a$<"0"ora$>"8")orlen(a$)>1thenprint:print"[145]";:goto20010
  108. 20040 an=val(a$):ifan=0thenprint:print:goto20120
  109. 20050 print:print
  110. 20060 fori=1toan
  111. 20070 print" ";i;"[157]. [211]teuerzeichen: ";
  112. 20080 open1,0:input#1,a$:close1
  113. 20090 z(i,x)=val(a$)
  114. 20100 print
  115. 20110 next
  116. 20120 print
  117. 20130 print"  [211]ind die [197]ingaben richtig ?"
  118. 20140 poke198,0:wait198,1
  119. 20150 geta$
  120. 20160 ifa$<>"n"goto20200
  121. 20170 gosub30000
  122. 20180 print"":goto20000
  123. 20200 gosub30000
  124. 20210 print""
  125. 20220 an(x)=an:return
  126. 30000 print""
  127. 30010 fori=1to12
  128. 30020 print"                                       "
  129. 30030 next:return
  130. 40000 ifan(x)=0thenprint:return
  131. 40010 i=1
  132. 40020 a$=mid$(str$(z(i,x)),2)
  133. 40030 a$=left$("   ",3-len(a$))+a$
  134. 40040 printa$;
  135. 40050 i=i+1:ifi<=an(x)thenprint",";:goto40020
  136. 40060 print:return
  137.