home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh47b.d64
/
demo2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
42 lines
60000 :
60001 REM ========================
60002 REM STATUSANZEIGE FUER DAS
60003 REM DRUCKERINTERFACE
60004 REM ========================
60005 REM AUFRUF: GOSUB 60000
60006 REM
60007 REM ALLE REMS WEGLASSEN !
60008 REM (C) NIG 290686
60009 :
60010 N=.5:PRINT"[147]NSS DRUCKERINTERFACE
60011 [153]" STATUS: "
60012 [153]" GERAETEADRESSE .................."[194](30131)
60013 [153]" RAND ............................"[194](30128)
60014 [153]" RANDZEICHEN ..................... ";:[151]212,1
60015 [153][199]([194](30140))
60016 [153]" LETZTE FEHLERNUMMER ............."[194](30139)
60017 [153]" WIEDERHOLDRUCK (ESC N) ANZ. ....."[194](30135)
60018 [153]" BREITE MINISCHRIFT .............."[194](30129)
60019 [153]" HOEHE MINISCHRIFT ............... ";:A[178][194](30130)
60020 [139]A[178].[167][153]"NORM
60021 IFA=64THENPRINT"HOCH
60022 [139]A[178]128[167][153]"TIEF
60023 PRINT" BREITE CBMSCHRIFT ..............."PEEK(30145)
60024 PRINT" BUCHSTABENABSTAND ..............."PEEK(30143)
60025 PRINT" WORTABSTAND ....................."PEEK(30144)
60026 PRINT" FUELLGROESSE FUER ESC S ........."PEEK(30142)
60027 PRINT" CODE FUER ESCAPE ................ ";
60028 POKE212,1:PRINTCHR$(PEEK(32041))
60029 PRINT" INTERFACE ....................... ";:IFPEEK(807)=124THENPRINT"EIN
60030 [139][194](807)[179][177]124[167][153]"AUS
60031 PRINT" FEHLERMELDUNGSTEXT .............. ";:GOSUB61000
60032 PRINT" ESC - S MODUS (RECHTSBUENDIG) ... ";:GOSUB61000
60033 PRINT" GRAFIKDRUCK VON ANF.ZEICHEN ..... ";:GOSUB61000
60034 PRINT" REVERSDRUCK BEI CBM SCHRIFT ..... ";:GOSUB61000
60035 PRINT" ZEILENABSTAND BEI HARDCOPY ...... ";:GOSUB61000
60036 PRINT" REVERSDRUCK BEI MINISCHRIFT ..... ";:GOSUB61000
60098 PRINT" TASTE ":POKE198,.:WAIT198,1:POKE198,.
60099 RETURN
61000 N=N*2:IF(PEEK(30127)ANDN)THENPRINT"EIN":RETURN
61002 PRINT"AUS":RETURN