home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
M.u.C.S. Disc 2000
/
MUCS2000.iso
/
sigisoft
/
schmal
/
schmal.lst
< prev
next >
Wrap
File List
|
1987-04-21
|
2KB
|
63 lines
' ***********************************************************
' * Drucker Schmalschrift *
' ***********************************************************
RESERVE 40000
ON BREAK CONT
DIM puffer%(3)
maske%=2^16
eintrag$=" Schmalschrift "
DPOKE GINTIN,DPEEK(LPEEK(GB+4)+4)
LPOKE ADDRIN,VARPTR(eintrag$)
GEMSYS 35
DO
LPOKE ADDRIN,VARPTR(puffer%(0))
GEMSYS 23
IF (puffer%(FALSE) DIV maske%)=40 THEN
@schmalschrift
ENDIF
LOOP
PROCEDURE schmalschrift
SGET screen$
HIDEM
CLS
BOX 100,70,540,330
BOX 102,72,538,328
BOX 103,73,537,327
PRINT CHR$(27)+"p";
PRINT AT(1,1);" -- geschrieben 1990 von Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach -- "
PRINT CHR$(27)+"q";
PRINT AT(18,6);" ---------> Drucker Schmalschrift <--------- "
PRINT AT(16,8);"Dieses Programm ist frei kopierbar (Public Domain)"
PRINT AT(16,9);"Jeder der dieses Programm benützt, sollte mir aber"
PRINT AT(15,10);"fairerweise ein kleines Anerkennungshonorar zukommen"
PRINT AT(16,11);"lassen. Sonst werden keine neuen PD Programme mehr"
PRINT AT(20,12);"für den Atari ST mehr von mir erscheinen."
PRINT AT(14,13);"------------------------------------------------------"
PRINT AT(24,14);"-----------> Anleitung <---------- "
PRINT AT(16,16);"Dieses Programm kann die Schmalschrift auf einen"
PRINT AT(16,17);"Drucker ein bzw aus schalten. Es wird durch Ein-"
PRINT AT(18,18);"schalten der Schmalschrif Papier eingespart."
PRINT AT(20,19);"Dieses Programm setzt Drucker vorraus."
PRINT AT(14,20);" Dieses Programm wurde in GFA Basic V2.0 geschrieben."
PRINT CHR$(27)+"p";
PRINT AT(14,22);" -----------> Bitte eine Taste drücken oder Mausklick "
PRINT CHR$(27)+"q";
REPEAT
UNTIL MOUSEK OR INKEY$=>CHR$(0)
' ******************* Druckerabfrage ******************
IF GEMDOS(17)=-1
ALERT 0,"Was möchten Sie den gerne ?| Schmallschrift ein| oder| Schmalschrift aus",1," EIN | AUS ",d%
IF d%=1
LPRINT CHR$(15);
ENDIF
IF d%=2
LPRINT CHR$(18);
ENDIF
ELSE
ALERT 0,"Bitte Drucker einschalten !",1," Okay ",d%
ENDIF
CLS
SHOWM
SPUT screen$
RETURN