!*************************** 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