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