home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / eyssele-erw. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  82 lines
  1. 10 REM ERWEITERUNG ZUM TREIBERPROGRAMM FUER CENTRONICS-DRUCKER VON H EYSSELE AUS
  2. 12 REM 64-ER NR. 7/84
  3. 14 REM
  4. 16 REM VON W. MEIERHOFER
  5. 18 REM
  6. 20 REM ZUSAETZLICHE FAEHIGKEITEN:
  7. 22 REM   - HARCOPY MIT ZEILENABSTAND
  8. 24 REM   - HARCOPY BILDSCHIRM ABSOLUT
  9. 26 REM   - ERKENNUNG UND AUSDRUCK VON REVERSEN SONDERZEICHEN
  10. 30 REM NAEHERES ENTNEHMEN SIE BITTE DER BEIGEFUEGTEN ANLEITUNG
  11. 32 REM
  12. 34 REM
  13. 40 PRINT"[147]DAS MASCHINENPROGRAMM VON H. EYSSELE"
  14. 42 PRINT"MUSS SICH BEREITS IM SPEICHER BEFINDEN !"
  15. 44 PRINT"HABEN SIE DIE DRUCKERSTEUERCODES IN"
  16. 46 PRINT"ZEILE 60 -65 AN IHREN DRUCKER ANGEPASST?"
  17. 50 PRINT"WEITER MIT IRGENDEINER TASTE !"
  18. 52 IFPEEK(203)=64THEN52
  19. 54 PRINT:PRINT"BITTE WARTEN":PRINT:PRINT
  20. 55 REM
  21. 56 REM
  22. 58 REM ***FOLGENDE PARAMETER SIND AUF DEN DRUCKER CP80 ABGESTIMMT***
  23. 59 REM BITTE AENDERN SIE SIE FUER IHREN DRUCKER
  24. 60 DZ=4:REM ANZAHL NOTWENDIGER CODES (MAX 9), UM 8 BYTES GRAFIK AUSZUGEBEN
  25. 61 D(1)=27:D(2)=75:D(3)=8:D(4)=0:REM BITTE AENDERN ODER ERGAENZEN
  26. 62 NZ=3:REM ANZAHL NOTWENDIGER CODES (MAX 8), FUER NULL-ZEILENABSTAND
  27. 63 N(1)=27:N(2)=65:N(3)=7:REM BITTE AENDERN ODER ERGAENZEN
  28. 64 GZ=2:REM ANZAHL NOTWENDIGER CODES (MAX 5), FUER GRUNDZEILENABSTAND
  29. 65 G(1)=27:G(2)=50:REM BITTE AENDERN ODER ERGAENZEN
  30. 66 REM
  31. 67 REM
  32. 68 REM ***EINPOKEN VON DATAS***
  33. 70 FOR I=52200TO52267:READX:POKEI,X:FE=FE+X:NEXT
  34. 71 IFFE<>8381THENPRINT"FEHLER IM ERSTEN DATENBLOCK":END
  35. 72 FOR I=52270TO52426:READX:POKEI,X:FA=FA+X:NEXT
  36. 73 IFFA<>22642THENPRINT"FEHLER IM ZWEITEN DATENBLOCK":END
  37. 75 REM
  38. 76 REM
  39. 77 REM ***DRUCKERSPEZIFISCHE PARAMETERN***
  40. 80 POKE51992,DZ:FORI=1TODZ:POKE52177+I,D(I):NEXT
  41. 82 POKE52421,NZ:FORI=1TONZ:POKE52191+I,N(I):NEXT
  42. 84 POKE52404,GZ:FORI=1TOGZ:POKE52186+I,G(I):NEXT
  43. 86 REM
  44. 87 REM
  45. 88 REM ***ANSCHLIESSEN DER ERWEITERUNG***
  46. 90 POKE51758,21:POKE51760,91:POKE51770,9:POKE51772,219:POKE51774,5
  47. 91 POKE51780,76:POKE51781,235:POKE51782,203:POKE51783,234:POKE51785,91
  48. 92 POKE51922,76:POKE51923,25:POKE51924,204
  49. 96 REM
  50. 97 REM
  51. 98 REM--------------------------------------------------------------------------
  52. 99 REM 1.DATENBLOCK
  53. 100 DATA76,0,201,164,199,208,19,201,18,240,10,201,255,240,3,76,72,202,76
  54. 101 DATA96,202,160,1,132,199,96,201,146,240,7,201,13,240,8,76,79,202,160
  55. 102 DATA0,132,199,96,160,0,132,199,76,72,202,74,74,74,72,165,199,208,4,104
  56. 103 DATA76,213,202,104,24,105,4,76,213,202
  57. 199 REM 2.DATENBLOCK
  58. 200 DATA32,0,201,32,253,174,32,158,183,169,255,133,249,202,138,133,250,232
  59. 201 DATA232,232,232,138,133,248,162,0,134,247,160,0,230,249,208,2,230,250
  60. 202 DATA230,247,177,249,201,128,144,21,172,24,208,192,21,208,4,160,208,208
  61. 203 DATA2,160,216,132,6,32,196,202,76,143,204,201,32,176,5,9,64,76,127,204
  62. 204 DATA201,64,144,3,24,105,128,172,24,208,192,21,208,6,32,68,202,76,143
  63. 205 DATA204,32,43,202,166,247,224,40,208,181,162,0,134,247,169,13,32,64,201
  64. 206 DATA165,250,197,248,208,166,165,249,201,231,208,160,162,0,189,219,203
  65. 207 DATA32,64,201,232,224,2,208,245,96,32,0,201,162,0,189,224,203,32,64,201
  66. 208 DATA232,224,3,208,245,76,49,204
  67. 210 REM
  68. 220 REM
  69. 230 REM
  70. 300 PRINT"PROGRAMM ALS MASCHINEN-PROGRAMM AUF     DISKETTE/CASSETTE LEGEN D/C/N?"
  71. 310 GETA$:IFA$=""THEN310
  72. 320 IFA$="D"THENSYS(57812)"DRUCKTREIBER",8:GOTO360
  73. 330 IFA$="C"THENSYS(57812)"DRUCKTREIBER",1:GOTO360
  74. 340 IFA$="N"THEN400
  75. 350 GOTO310
  76. 360 POKE193,0:POKE194,201:POKE174,203:POKE175,204:SYS62957
  77. 370 PRINT:PRINT"PROGRAMM KANN JETZT MIT"
  78. 380 PRINT"LOAD'DRUCKTREIBER',8,1 (BZW.  ,1,1)"
  79. 390 PRINT"DIREKT GELADEN WERDEN !  (ABER DABEI"
  80. 392 PRINT"'NEW' + INITIALISIERUNG NICHT VERGESSEN)"
  81. 400 SYS52200:END
  82.