home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_DIGIT / ST_DIG06.MSA / PROGRAMM.E / SMALLPRT / BITTE_LE.SEN next >
Text File  |  1987-04-22  |  2KB  |  68 lines
  1.  
  2.  
  3.              SMALL PRT. und die Papierflut hat ein Ende
  4.  
  5.  
  6.              ************** Von ST-DIGITAL *************
  7.  
  8.  
  9.  
  10. Info-Dateien, wie sie häufig auf Programm-und PD-Disketten beiliegen,
  11. enthalten meist sehr hilfreiche Informationen. Oft sind die letzten
  12. Programmergänzungen und wichtige Anleitungen aktualisiert beschrieben
  13. und sollen daher aufmerksam gelesen werden.
  14.  
  15. Manchmal empfiehlt sich auch ein Ausdruck, um diese Infos abzuheften.
  16.  
  17.  
  18.        Damit sich die Papierflut in Grenzen hält, hat ST-DIGITAL
  19.        ein Programm für Sie erstellt, das diese Info-Dateien
  20.        nur halb so groß ausdruckt. Die Lesbarkeit ist trotzdem
  21.        sehr gut. Geschrieben ist dieses SMALLPRT.PRG für alle
  22.        NEC P6 oder kompatible Drucker.
  23.  
  24. Funktionsweise:
  25.  
  26.             Das Programm belegt keinen Speicherplatz!  
  27.  
  28. Das sehr nützliche Programm wird aufgerufen, der eingeschaltete Drucker
  29. ist danach initialisiert auf halbe Ausdruckgröße. Das zum Ausdruck
  30. gewünschte File (Datei)  wird aus dem Desktop ausgewählt und schon ist der
  31. Drucker auf dem ÖKO-TRIP, auf einer DIN A4 Seite hinterlassen die Nadeln
  32. doppelt soviel Text.
  33.  
  34. An Besitzer  'exotischer' Drucker haben wir naturlich auch gedacht und 
  35. liefern das 'LST-File' gleich mit. Geschrieben ist das Programm 
  36. in GFA-BASIC 2.0. 
  37.  
  38.                       Und nun viel Erfolg 
  39.  
  40. los:
  41. a%=GEMDOS(&H11)
  42. ' -1 Drucker ONLINE
  43. '  0    "    OFFLINE
  44. IF a%=0
  45.   CLS
  46.   PRINT AT(22,12);" Drucker ist leider OFFLINE!"
  47.   PRINT AT(23,14);"(N)ochmal oder (A)bbrechen"
  48.   a%=INP(2)
  49.   IF a%=65 OR a%=97 OR a%=13 OR a%=32
  50.     SYSTEM
  51.   ELSE
  52.     GOTO los
  53.   ENDIF
  54. ENDIF
  55. '
  56. CLS
  57. PRINT AT(22,12);" Drucker ist initialisiert !"
  58. LPRINT CHR$(27);CHR$(64);                        ! RESET
  59. LPRINT CHR$(27);"x";CHR$(1);                     ! LQ
  60. LPRINT CHR$(27);"g";                             ! 15 CPI
  61. LPRINT CHR$(27);"S";CHR$(1);                     ! SUBSCRIPT
  62. LPRINT CHR$(27);"3";CHR$(16);                    ! ABSTAND
  63. SYSTEM
  64.  
  65.  
  66.  
  67.  
  68.