home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / drucky / drucky.bas next >
BASIC Source File  |  1997-10-09  |  4KB  |  76 lines
  1. 10 REM ******* Dateiname drucker.bas **********
  2. 20 REM ******* (C) Siegfried Hübner  **********
  3. 30 REM ************ Version 1.0 ***************
  4. 40 REM ************ Januar 1991 ***************
  5. 50 REM ****************************************
  6. 60 X=20:Y=21
  7. 70 CLS
  8. 90 PRINT CHR$(45);STRING$(78,45);CHR$(45);
  9. 130 REM 
  10. 140 rem 
  11. 150 REM 
  12. 160 rem 
  13. 170 LOCATE 2,2:COLOR 0,7:PRINT " Drucky           Public Domain Version 1.0      (frei kopierbar)             ":COLOR 7,0
  14. 171 print chr$(45);string$(78,45);chr$(45);
  15. 180 ESC$=CHR$(27)
  16. 190 PRINT
  17. 200 LOCATE 4,3:PRINT " 1  DRUCKER IN ON LINE BETRIEB            2  DRUCKER IN OFF LINE BETRIEB "
  18. 210 LOCATE 5,3:PRINT " 3  SCHMALSCHRIFT ein                     4  DRUCKERRESET - BASISEINSTELLUNG"
  19. 220 LOCATE 6,3:PRINT " 5  UNTERSTREICHEN ein                    6  UNTERSTREICHEN aus"
  20. 240 LOCATE 7,3:PRINT " 7  PAPIERENDE SENSOR ein                 8  PAPIERENDE SENSOR aus"
  21. 250 LOCATE 8,3:PRINT " 9  SCHATTENDRUCK ein                    10  SCHATTENDRUCK aus"
  22. 260 LOCATE 9,3:PRINT "11  FETTDRUCK ein                        12  FETTDRUCK aus"
  23. 270 LOCATE 10,3:PRINT "13  ELITE AUSDRUCK ein                   14  PICA AUSDRUCK ein"
  24. 280 LOCATE 11,3:PRINT "15  SUPERSCRIPT ein                      16  SUPERSCRIPT aus"
  25. 290 LOCATE 12,3:PRINT "17  SUBSCRIPT ein                        18  SUBSCRIPT aus"
  26. 300 LOCATE 13,3:PRINT "19  UNDIREKTIONALER AUSDRUCK ein         20  UNDIREKTIONALER AUSDRUCK aus"
  27. 310 LOCATE 14,3:PRINT "21  BREITDRUCK ein                       22  BREITDRUCK aus"
  28. 320 LOCATE 15,3:PRINT "23  SOFORTAUSDRUCK ein                   24  SOFORTAUSDRUCK aus"
  29. 330 LOCATE 16,3:PRINT "25  PROPORTIONALAUSDRUCK ein             26  PROPORTIONALAUSDRUCK aus"
  30. 340 LOCATE 17,3:PRINT "27  NLQ ein                              28  NLQ aus"
  31. 355 LOCATE 18,3:PRINT "29  SUPERKLEINSCHRIFT "
  32. 351 print chr$(45);string$(78,45);chr$(45);
  33. 360 PRINT:LOCATE 20,3:COLOR 0,7:PRINT "30 PROGRAMMENDE ":COLOR 7,0
  34. 361 print chr$(45);string$(78,45);chr$(45);
  35. 362 locate 24,7:print "(c) 1991 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach"
  36. 370 LOCATE 20,54:COLOR 0,7:PRINT "BITTE WÄHLEN SIE AUS:";:COLOR 7,0:INPUT " ", WAHL
  37. 380 IF WAHL > 34 OR WAHL <1 THEN GOSUB 760
  38. 385 IF WAHL > 34 OR WAHL <1 THEN GOTO 370
  39. 390 GOSUB 740
  40. 400 ON WAHL GOTO 410,420,430,440,450,460,490,500,510,520,530,540,550,560,570,580,590,600,610,620,630,640,650,660,670,680,690,700,725,730
  41. 410 LPRINT CHR$(17);:GOTO 370
  42. 420 LPRINT CHR$(19);:GOTO 370
  43. 430 LPRINT CHR$(15);:GOTO 370
  44. 440 LPRINT ESC$ CHR$(64);:GOTO 370
  45. 450 LPRINT ESC$ "-1";:GOTO 370
  46. 460 LPRINT ESC$ "-0";:GOTO 370
  47. 490 LPRINT ESC$ "9";:GOTO 370
  48. 500 LPRINT ESC$ "8";:GOTO 370
  49. 510 LPRINT ESC$ "E";:GOTO 370
  50. 520 LPRINT ESC$ "F";:GOTO 370
  51. 530 LPRINT ESC$ "G";:GOTO 370
  52. 540 LPRINT ESC$ "H";:GOTO 370
  53. 550 LPRINT ESC$ "M";:GOTO 370
  54. 560 LPRINT ESC$ "P";:GOTO 370
  55. 570 LPRINT ESC$ "S0";:GOTO 370
  56. 580 LPRINT ESC$ "T";:GOTO 370
  57. 590 LPRINT ESC$ "S1";:GOTO 370
  58. 600 LPRINT ESC$ "T";:GOTO 370
  59. 610 LPRINT ESC$ "U1";:GOTO 370
  60. 620 LPRINT ESC$ "U0";:GOTO 370
  61. 630 LPRINT ESC$ "W1";:GOTO 370
  62. 640 LPRINT ESC$ "W0";:GOTO 370
  63. 650 LPRINT ESC$ "i1";:GOTO 370
  64. 660 LPRINT ESC$ "i0";:GOTO 370
  65. 670 LPRINT ESC$ "p1";:GOTO 370
  66. 680 LPRINT ESC$ "p0";:GOTO 370
  67. 690 LPRINT ESC$ "x1";:GOTO 370
  68. 700 LPRINT ESC$ "x0";:GOTO 370
  69. 725 LPRINT CHR$(15);CHR$(27);CHR$(83);CHR$(49);CHR$(27);CHR$(51);CHR$(15);:GOTO 370
  70. 730 END
  71. 740 LOCATE X,Y:PRINT USING "##";WAHL;:PRINT"*";:Y=Y+3
  72. 750 IF Y>45 THEN Y=21:LOCATE X,Y:PRINT SPACE$(29)
  73. 760 LOCATE 22,75:PRINT "    ";:BEEP
  74. 770 RETURN
  75.  
  76.