home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / pg.printer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  40 lines
  1. 1 REM       PG.PRINTER
  2. 2 REM ---------------------------------
  3. 3 REM   PROGRAMM ZUR DRUCKERANPASSUNG
  4. 4 REM   VON 'PROGRAF'
  5. 5 REM ---------------------------------
  6. 10 POKE56,67:CLR
  7. 11 PRINT"[147]":PRINT" DRUCKERANPASSUNG 'PROGRAF'"
  8. 12 PRINT" SIND DIE ZEILEN 30-38 KONTROLLIERT?"
  9. 13 INPUT" J/N";A$:IFA$<>"J"THENEND
  10. 15 SYS57812"PROGRAF",8,1:POKE780,0:SYS65493:REM LADEN
  11. 19 REM --------------------------------
  12. 20 REM KONTROLLIERE DIE FOLGENDEN CODES
  13. 21 REM --------------------------------
  14. 30 DATA 27,64   :REM INITIALISIEREN
  15. 31 DATA 27,51   :REM ABSTAND N/216
  16. 32 DATA 27,42   :REM ESC+"*" (DICHTE)
  17. 33 DATA 3       :REM DICHTE 1920 DPL
  18. 34 DATA 1       :REM DICHTE  960 DPL
  19. 35 DATA 10      :REM 10=LINE FEED,13=CR
  20. 36 DATA 4.      :REM GERAETENR. DRUCKER
  21. 37 DATA 8       :REM GERAETENR. FLOPPY
  22. 38 DATA"NEUGRAF":REM NEUER PROGRAMMNAME
  23. 40 REM --------------------------------
  24. 41 REM   ANPASSUNG
  25. 50 REM --------------------------------
  26. 60 READA:POKE18751,A:READA:POKE18756,A
  27. 61 READA:POKE18714,A:READA:POKE18719,A
  28. 62 READA:POKE18762,A:READA:POKE18767,A
  29. 63 READA:POKE18760,A:READA:POKE18776,A
  30. 64 READA:POKE18728,A:REM
  31. 65 READA:POKE19388,A:READA:POKE22958,A
  32. 66 PRINT" DIE CODES SIND GEAENDERT."
  33. 67 INPUT" BEREIT FUER 'SAVE' (J/N)";A$
  34. 68 IFA$<>"J"THENEND
  35. 69 READA$:PRINT" SAVING";CHR$(34);A$;CHR$(34)
  36. 70 OPEN1,8,1,A$
  37. 71 PRINT#1,CHR$(96);CHR$(67);
  38. 72 FORI=17248TO23551:PRINT#1,CHR$(PEEK(I));:NEXT
  39. 73 CLOSE1:END
  40.