home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / star-eps.lbr / STAR_EPS.BZS / STAR_EPS.BAS
Encoding:
BASIC Source File  |  1993-10-25  |  4.8 KB  |  146 lines
  1.  
  2.  
  3.  
  4.  
  5. REM- ATTRIBUTE AND PRINTER CONFIG  VERSION 2.3
  6. REM- BY WAYNE AND JOHN ANDERSON - SEPT 1985 - PUBLIC DOMAIN.
  7. REM- 2720 JIMMY WINTERS ROAD, RICHMOND, VA  23235 (804) 320-2407
  8. REM- CONFIGURED FOR KAYPRO'S WITH GRAPHICS AND STAR PRINTERS.
  9. REM- THIS PROGRAM CAN BE USED TO CUT ATTRIBUTES ON AND OFF.
  10. REM- BY CHANGING THE CHR$'S YOU COULD USE THIS PROGRAM ON
  11. REM- OTHER PRINTERS. SIMPLY SUBSTITUTE YOUR PRINTER CODES
  12. REM- FOR THOSE OF THE STAR GEMINI.  THESE CODES ARE EPSON COMPATIBLE.
  13. REM- COMPILE THE FILE SG.BAS BY TYPING IN   A>SBASIC  SG <RETURN> 
  14.  
  15. VAR A$,A = CHAR   
  16. VAR N,M,Y = INTEGER
  17. VAR C$ = STRING    
  18.  
  19. N= 24
  20. 99 PRINT CHR$(26)
  21. PRINT CHR$(27); CHR$(66); CHR$(48)
  22. PRINT"   PRINTER AND ATTRIBUTE CONFIGURATION PROGRAM FOR KAYPRO'S WITH     "
  23. PRINT"   GRAPHICS & STAR PRINTER   BY WAYNE & JOHN ANDERSON V2.3  9/85     "
  24. PRINT CHR$(27); CHR$(67); CHR$(48)
  25. PRINT"                ***     VIDEO ATTRIBUTES     ***                     "
  26. PRINT"INVERSE VIDEO----ON=A  OFF=a        REDUCED INTENSITY-----ON=B  OFF=b"
  27. PRINT"BLINKING---------ON=C  OFF=c        UNDERLINE-------------ON=D  OFF=d"
  28. PRINT"CHOOSE CURSOR----ON=E  OFF=e                                         "
  29. PRINT"               ***     PRINTER ATTRIBUTES     ***                    "   
  30. PRINT"ITALICS-------------F               NEAR LETTER QUALITY------G       "
  31. PRINT"ELITE---------------H               PICA---------------------I       "
  32. PRINT"EXPANDED------------J               CONDENSED----------------K       " 
  33. PRINT"UNDERLINE-----------L               SUBSCRIPT----------------M       "
  34. PRINT"EMPHASIZED----------N               DOUBLE-STRIKE------------O       "
  35. PRINT"PROPORTIONAL--------P               INITIALIZE PRINTER-------Q       "
  36. PRINT"U = CHANGE LEFT HAND MARGIN TO n SPACES                              "
  37. PRINT"V = CHANGE PAGE LENGTH TO n LINES = LIMIT IS 127                     "
  38. PRINT"W = CHANGE LINE FEED TO n/72 INCHES = DEFAULT IS 12:1/6 In.          "
  39. PRINT"Z = TYPEWRITER STATUS - USE <CR> TO PRINT & <ESC> TO RETURN TO MENU  "
  40. PRINT"X = RETURN TO SYSTEM                ? = REDRAW MENU                  "
  41.  
  42.  
  43. 88 INPUT "CHOICE";A$ 
  44. IF A$="A" THEN 1
  45. IF A$="a" THEN 2 
  46. IF A$="B" THEN 3
  47. IF A$="b" THEN 4 
  48. IF A$="C" THEN 5
  49. IF A$="c" THEN 6 
  50. IF A$="D" THEN 7
  51. IF A$="d" THEN 8 
  52. IF A$="E" THEN 9 
  53. IF A$="e" THEN 10
  54. IF A$="F" OR A$="f" THEN 11
  55. IF A$="G" OR A$="g" THEN 12
  56. è IF A$="H" OR A$="h" THEN 13
  57. IF A$="I" OR A$="i" THEN 14
  58. IF A$="J" OR A$="j" THEN 15 
  59. IF A$="K" OR A$="k" THEN 16 
  60. IF A$="L" OR A$="l" THEN 17 
  61. IF A$="M" OR A$="m" THEN 18 
  62. IF A$="N" OR A$="n" THEN 19 
  63. IF A$="O" OR A$="o" THEN 20 
  64. IF A$="P" OR A$="p" THEN 21 
  65. IF A$="Q" OR A$="q" THEN 22 
  66. IF A$="U" OR A$="u" THEN 23
  67. IF A$="V" OR A$="v" THEN 24
  68. IF A$="W" OR A$="w" THEN 25
  69. IF A$="X" OR A$="x" THEN 26
  70. IF A$="Z" OR A$="z" THEN 27
  71. IF A$="?" THEN 99
  72. PRINT "YOU HAVE CHOSEN AN INCORRECT CHOICE.  TRY AGAIN. "
  73.   GOTO 88
  74. 1 PRINT  CHR$(27); CHR$(66); CHR$(48);
  75.   GOTO 88
  76. 2 PRINT  CHR$(27); CHR$(67); CHR$(48);
  77.   GOTO 88
  78. 3 PRINT  CHR$(27); CHR$(66); CHR$(49);
  79.   GOTO 88
  80. 4 PRINT  CHR$(27); CHR$(67); CHR$(49);
  81.   GOTO 88
  82. 5 PRINT  CHR$(27); CHR$(66); CHR$(50);
  83.   GOTO 88
  84. 6 PRINT  CHR$(27); CHR$(67); CHR$(50);
  85.   GOTO 88
  86. 7 PRINT  CHR$(27); CHR$(66); CHR$(51);
  87.   GOTO 88
  88. 8 PRINT  CHR$(27); CHR$(67); CHR$(51);
  89.   GOTO 88
  90. 9 INPUT "0=NO-BLINK BLOCK,1,2,3,4,5....12,13,14,15=NO-BLINK UNDERLINE";  
  91.   INPUT "64=FAST-BLINK BLOCK,65,66...76,77,78,79=FAST BLINK UNDERLINE";
  92.   INPUT "96=SLOW-BLINK BLOCK,97,98...109,110,111=SLOW-BLINK UNDERLINE";M
  93.   OUT 28,10
  94.   OUT 29,M
  95.   GOTO 88
  96. 10 PRINT  CHR$(27); CHR$(67); CHR$(52);
  97.    GOTO 88
  98. 11 PRINT #1; CHR$(27); CHR$(52);
  99.    GOTO 88
  100. 12 PRINT #1; CHR$(27); CHR$(66); CHR$(4);
  101.    GOTO 88
  102. 13 PRINT #1; CHR$(27); CHR$(66); CHR$(2);
  103.    GOTO 88
  104. 14 PRINT #1; CHR$(27); CHR$(66); CHR$(1);
  105.    GOTO 88
  106. 15 PRINT #1; CHR$(27); CHR$(87); CHR$(1);
  107.    GOTO 88        
  108. 16 PRINT #1; CHR$(27); CHR$(66); CHR$(3);
  109.    GOTO 88
  110.  
  111. è
  112.  
  113. 17 PRINT #1; CHR$(27); CHR$(45); CHR$(1);
  114.    GOTO 88 
  115. 18 PRINT #1; CHR$(27); CHR$(83); CHR$(1);
  116.    GOTO 88
  117. 19 PRINT #1; CHR$(27); CHR$(69);
  118.    GOTO 88
  119. 20 PRINT #1; CHR$(27); CHR$(71);
  120.    GOTO 88
  121. 21 PRINT #1; CHR$(27); CHR$(112); CHR$(49);
  122.    GOTO 88
  123. 22 PRINT #1; CHR$(27); CHR$(64);
  124.    GOTO 88
  125. 23 INPUT "CHOICE OF n"; N;
  126.    PRINT #1; CHR$(27); CHR$(77); CHR$(N);
  127.    GOTO 88
  128. 24 INPUT "CHOICE OF n"; N;  
  129.    PRINT #1; CHR$(27); CHR$(67); CHR$(N);
  130.    GOTO 88 
  131. 25 INPUT "CHOICE OF n"; N;
  132.    PRINT #1; CHR$(27); CHR$(65); CHR$(N);
  133.    GOTO 88
  134. 26 FOR Y=1 TO 32                                             
  135.    PRINT
  136.    NEXT Y
  137.    STOP
  138. 27 INPUT2 C$        
  139.    IF C$= CHR$(27) THEN 99 
  140.    PRINT #1; C$
  141.    ON ERROR GOTO 99 
  142.    GOTO 27  
  143.      
  144. REM- "TH-TH-TH-THAT'S ALL FOLKS."
  145.  
  146.  
  147.  
  148.