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