home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh39a.d64 / drucker.gen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  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.