rem Program: OKI92.BAS   By Tom Sarbeck    May, 1985
rem
rem Controls print options of the OKI92/93 printer.  Each selection
rem (1 thru 9) sends one control to the printer.  Some processors
rem may send their own controls and override those selected here.
rem
var branch=integer
9   print #0; chr$(26)
    print #0; "Enter the number of the printing feature you desire.  You may"
    print #0; "enter more than one control (e.g., 1 <CR> 4 <CR> 6 <CR> 0 <CR>"
    print #0; "to set corresponding mode print at 3 CPI for a max 48 CPL)."
    print #0;
    print #0; " 0  -  Exit As You Have Set It"
    print #0; " 1  -  Correspondence Mode"
    print #0; " 2  -  Data Processing Mode (Default)"
    print #0;
    print #0; " 3  -  Pica type (10 CPI, 80 CPL.  Default)"
    print #0; " 4  -  Elite type (12 CPI, 96 CPL)"
    print #0; " 5  -  Condensed type (17.1 CPI) [dp mode only]"
    print #0; " 6  -  Double width (Half the current CPI/CPL)"
    print #0; "      (Caution: this halves the Characters per Line)"
    print #0;
    print #0; " 7  -  Six lines per vertical inch (Default)"
    print #0; " 8  -  Eight lines per vertical inch"
    print #0;
    print #0; " 9  -  Print a four-line test, max 29 char per line"
    print #0; ">9  -  Reset to default and exit"
    print #0;
    input "       Your selection";branch
    if branch < 1 then end
    if branch < 10 then goto 10
    rem 			Reset to default and end
    print #1; chr$(24)
    end
    rem				Branch
10  on branch goto 11,12,13,14,15,16,17,18,19
rem 				Correspondence mode
11  print #1; chr$(27);chr$(49)
    goto 9
    rem 			Data processing mode
12  print #1; chr$(27);chr$(48)
    goto 9
    rem 			Ten CPHI
13  print #1; chr$(30)
    goto 9
    rem                         Twelve CPHI
14  print #1; chr$(28)
    goto 9
    rem				Seventeen CPHI
15  print #1; chr$(29)
    goto 9
    rem				Double width
16  print #1; chr$(31)
    goto 9
    rem    			Six LPVI
17  print #1; chr$(27);chr$(54)
    goto 9
    rem				Eight LPVI
18  print #1; chr$(27);chr$(56)
    goto 9
19  print #1; "Mary had a little lamb;"
    print #1; "Its fleece was white as snow."
    print #1; "Everywhere that Mary went"
    print #1; "That damn lamb left a pile."
    goto 9
    end