!*************************** AMUS Program Label ******************************
! Filename: OKI393.BAS                                        Date: 08/02/89
! Category: Printer Select   Hash Code: 272-120-475-657     Version: 1.0(100)
! Initials: AODP/AM       Name: GARY D. CHESSER
! Company: EMERGITECH                              Telephone #: 61488666712
! Related Files:
! Min. Op. Sys.: 1.3                           Expertise Level: BEG
! Special: Need to know how to set up .INI file with OKI393 as TRMDEF for
!          use of this program.
! Description: This program will allow you to change the fonts of your
! OKIDATA 393 printer without having to go over to the printer and manually
! changing the fonts to letter quality or 17 char/inch ect.
!
! This will also work with OKIDATA 390 & 320
       PROGRAM OKI393, 1.0(100)

MAP1 DEVICE(10),S,10
MAP1 DESC(10),S,40
MAP1 Q$,S,10
MAP1 Q,F,6
MAP1 X,F,6

![1]CHANGE TRMDEF
50      DEVICE(1)="TRM:OKI393" : DESC(1)="   ( Standard OKIDATA #1 )"

60      PRINT TAB(-1,0);TAB(4,10);"Okidata-393 Type & Font Selection"
       PRINT TAB(6,10);"DEVICE = ";DEVICE(1);DESC(1)
       PRINT " "
       PRINT TAB(10);"1 - Set DRAFT at 10 cpi"
       PRINT TAB(10);"2 - Set DRAFT at 12 cpi"
       PRINT TAB(10);"3 - Set DRAFT at 17 cpi"
       PRINT TAB(10);"4 - Set DRAFT at 20 cpi"
       PRINT TAB(10);"5 - Set LQ 10 cpi"
       PRINT TAB(10);"6 - Set LQ 12 cpi"
       PRINT TAB(10);"7 - Set LQ 17 cpi"
       PRINT TAB(10);"8 - Set LQ 20 cpi"
       PRINT TAB(10);"9 - Set FORM LENGTH"
       PRINT TAB(19,10);"Select: ";
       INPUT Q$
       Q=INT(VAL(Q$)) : X=1
       IF Q<1 OR Q>10 THEN END
       ON Q GOTO 100,200,300,350,400,500,600,650,700
       GOTO 60

70      PRINT DEVICE(X);" is now set."
       END

!       DRAFT 10 CPI
100     OPEN #1,DEVICE(X),OUTPUT
       PRINT #1,CHR$(27);CHR$(64);CHR$(27);CHR$(80);
       CLOSE #1 : GOTO 70

!       DRAFT 12CPI
200     OPEN #1,DEVICE(X),OUTPUT
       PRINT #1,CHR$(27);CHR$(64);CHR$(27);CHR$(77);
       CLOSE #1 : GOTO 70

!       DRAFT 17CPI
300     OPEN #1,DEVICE(X),OUTPUT
       PRINT #1,CHR$(27);CHR$(64);CHR$(27);CHR$(80);CHR$(27);CHR$(15);
       CLOSE #1 : GOTO 70

!       DRAFT 20CPI
350     OPEN #1,DEVICE(X),OUTPUT
       PRINT #1,CHR$(27);CHR$(64);CHR$(27);CHR$(77);CHR$(27);CHR$(15);
       CLOSE #1 : GOTO 70

! LQ10
400     OPEN #1,DEVICE(X),OUTPUT
       PRINT #1,CHR$(27);CHR$(64);CHR$(27);CHR$(80);CHR$(27);CHR$(120);"1";
       CLOSE #1 : GOTO 70

! LQ12
500     OPEN #1,DEVICE(X),OUTPUT
       PRINT #1,CHR$(27);CHR$(64);CHR$(27);CHR$(77);CHR$(27);CHR$(120);"1";
       CLOSE #1 : GOTO 70

! LQ17
600     OPEN #1,DEVICE(X),OUTPUT
       PRINT #1,CHR$(27);CHR$(64);CHR$(27);CHR$(80);CHR$(27);CHR$(15);CHR$(27);CHR$(120);"1";
       CLOSE #1 : GOTO 70

! LQ20
650     OPEN #1,DEVICE(X),OUTPUT
       PRINT #1,CHR$(27);CHR$(64);CHR$(27);CHR$(77);CHR$(27);CHR$(15);CHR$(27);CHR$(120);"1";
       CLOSE #1 : GOTO 70


! FORM LENGTH
700     PRINT TAB(20,20);"HOW MANY LINES PER FORM?";
       Q=0
       INPUT Q : Q=INT(Q)
       IF Q<1 OR Q>99 GOTO 50
       Q$=Q USING"#Z"
       OPEN #1,DEVICE(X),OUTPUT
       PRINT #1,CHR$(27);"F";Q$;CHR$(27);"5";
       PRINT TAB(20,1);Q$;
       IF Q=88 THEN PRINT #1,CHR$(27);"8";     ! 8 LPI
       IF Q=66 THEN PRINT #1,CHR$(27);"6";     ! 6 LPI
       CLOSE #1 : GOTO 70