home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / schmal / schmal.lst < prev    next >
File List  |  1987-04-21  |  2KB  |  63 lines

  1. ' ***********************************************************
  2. ' * Drucker Schmalschrift                                   *
  3. ' ***********************************************************
  4. RESERVE 40000
  5. ON BREAK CONT
  6. DIM puffer%(3)
  7. maske%=2^16
  8. eintrag$="  Schmalschrift  "
  9. DPOKE GINTIN,DPEEK(LPEEK(GB+4)+4)
  10. LPOKE ADDRIN,VARPTR(eintrag$)
  11. GEMSYS 35
  12. DO
  13.   LPOKE ADDRIN,VARPTR(puffer%(0))
  14.   GEMSYS 23
  15.   IF (puffer%(FALSE) DIV maske%)=40 THEN
  16.     @schmalschrift
  17.   ENDIF
  18. LOOP
  19. PROCEDURE schmalschrift
  20.   SGET screen$
  21.   HIDEM
  22.   CLS
  23.   BOX 100,70,540,330
  24.   BOX 102,72,538,328
  25.   BOX 103,73,537,327
  26.   PRINT CHR$(27)+"p";
  27.   PRINT AT(1,1);" -- geschrieben 1990 von Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach -- "
  28.   PRINT CHR$(27)+"q";
  29.   PRINT AT(18,6);" ---------> Drucker Schmalschrift <--------- "
  30.   PRINT AT(16,8);"Dieses Programm ist frei kopierbar (Public Domain)"
  31.   PRINT AT(16,9);"Jeder der dieses Programm benützt, sollte mir aber"
  32.   PRINT AT(15,10);"fairerweise ein kleines Anerkennungshonorar zukommen"
  33.   PRINT AT(16,11);"lassen. Sonst werden keine neuen PD Programme mehr"
  34.   PRINT AT(20,12);"für den Atari ST mehr von mir erscheinen."
  35.   PRINT AT(14,13);"------------------------------------------------------"
  36.   PRINT AT(24,14);"-----------> Anleitung <---------- "
  37.   PRINT AT(16,16);"Dieses Programm kann die Schmalschrift auf einen"
  38.   PRINT AT(16,17);"Drucker ein bzw aus schalten. Es wird durch Ein-"
  39.   PRINT AT(18,18);"schalten der Schmalschrif Papier eingespart."
  40.   PRINT AT(20,19);"Dieses Programm setzt Drucker vorraus."
  41.   PRINT AT(14,20);" Dieses Programm wurde in GFA Basic V2.0 geschrieben."
  42.   PRINT CHR$(27)+"p";
  43.   PRINT AT(14,22);" -----------> Bitte eine Taste drücken oder Mausklick "
  44.   PRINT CHR$(27)+"q";
  45.   REPEAT
  46.   UNTIL MOUSEK OR INKEY$=>CHR$(0)
  47.   ' ******************* Druckerabfrage ******************
  48.   IF GEMDOS(17)=-1
  49.     ALERT 0,"Was möchten Sie den gerne ?|    Schmallschrift ein|          oder|    Schmalschrift aus",1," EIN | AUS ",d%
  50.     IF d%=1
  51.       LPRINT CHR$(15);
  52.     ENDIF
  53.     IF d%=2
  54.       LPRINT CHR$(18);
  55.     ENDIF
  56.   ELSE
  57.     ALERT 0,"Bitte Drucker einschalten !",1," Okay ",d%
  58.   ENDIF
  59.   CLS
  60.   SHOWM
  61.   SPUT screen$
  62. RETURN
  63.