home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
OSK
/
CMDS
/
cowen_tools.lzh
/
eps.b
< prev
next >
Wrap
Text File
|
1992-10-13
|
4KB
|
182 lines
PROCEDURE eps
10 PRINT CHR$(7)
PRINT CHR$(11)+CHR$(12)
PRINT USING "s50^","EPSON RX80F/T PRINTER SET UP"
PRINT
100 REM rx=printer_path
DIM rx:BYTE; name:STRING[24]; pch:BYTE
DIM ndx,cnt:INTEGER
name="/p"
OPEN #rx,name:WRITE
DIM opt(9,2):STRING[50]
FOR x=1 TO 2
FOR y=1 TO 9
READ opt(y,x)
NEXT y
NEXT x
DATA "Reset/Initialise","Quad Print","Condensed Mode"
DATA "Pica Mode","Enlarged Mode","Polish"
DATA "German ","11 inch paper","No Page Skip "
DATA "96","20","137","80","40",".",".",".","."
PRINT
PRINT TAB(10); "OPTION"; TAB(30); "MAX COLUMNS"
PRINT
PRINT "0."; TAB(10); "END SET UP PROGRAM"
mn=1
FOR y=1 TO 9
PRINT mn; TAB(10); opt(y,1),opt(y,2)
mn=mn+1
NEXT y
PRINT
300 INPUT "INPUT OPTION No. THEN ENTER TO PROCEED ",op
IF op=0 THEN GOTO 1000
ENDIF
IF op=1 THEN RESTORE 2100
GOSUB 1100
ENDIF
IF op=2 THEN RESTORE 2200
GOSUB 1100
ENDIF
IF op=3 THEN RESTORE 2300
GOSUB 1100
ENDIF
IF op=4 THEN RESTORE 2400
GOSUB 1100
ENDIF
IF op=5 THEN RESTORE 2500
GOSUB 1100
ENDIF
IF op=6 THEN RESTORE 2600
GOSUB 1100
ENDIF
IF op=7 THEN RESTORE 2700
GOSUB 1100
ENDIF
IF op=8 THEN RESTORE 2800
GOSUB 1100
ENDIF
IF op=9 THEN RESTORE 2900
GOSUB 1100
ENDIF
IF op>9 THEN GOTO 10
ENDIF
GOTO 300
1000 REM END & LOGIN
CLOSE #rx
END
1100
READ cnt
WHILE cnt > 0 DO
FOR ndx = 1 TO cnt
READ pch
PUT #rx, pch
NEXT ndx
READ cnt
ENDWHILE
RETURN
2100 DATA 5, $1B, $40, $1B, $43, $46
DATA 0
2200 DATA 3, $1B, $68, 2
DATA 0
2300 DATA 2, $1b, 15
DATA 0
2400 DATA 2, $1b, $50
DATA 0
2500 DATA 3, $1b, $68, 1
DATA 0
2600 DATA 5, $1b, $3a, 0, 2, 0
DATA 3, $1b, $78, 1
DATA 8, $1b, $26, 0, $7c, $7c, 3, 23, 4
DATA 3, $00, $00, $00
DATA 3, $00, $00, $00
DATA 3, $00, $00, $00
DATA 3, $00, $00, $00
DATA 3, $40, $00, $40
DATA 3, $00, $00, $00
DATA 3, $40, $04, $40
DATA 3, $00, $08, $00
DATA 3, $40, $14, $40
DATA 3, $00, $00, $00
DATA 3, $ff, $ff, $c0
DATA 3, $00, $00, $00
DATA 3, $ff, $ff, $c0
DATA 3, $00, $00, $00
DATA 3, $00, $c0, $40
DATA 3, $01, $00, $00
DATA 3, $02, $80, $40
DATA 3, $05, $00, $00
DATA 3, $02, $00, $40
DATA 3, $00, $00, $00
DATA 3, $00, $00, $00
DATA 3, $00, $00, $00
DATA 3, $00, $00, $00
DATA 8, $1b, $26, 0, $5c, $5c, 3, 23, 4
DATA 3, $40, $04, $40
DATA 3, $00, $00, $00
DATA 3, $40, $04, $40
DATA 3, $00, $08, $00
DATA 3, $41, $14, $40
DATA 3, $00, $00, $00
DATA 3, $7f, $ff, $c0
DATA 3, $00, $00, $00
DATA 3, $7f, $ff, $c0
DATA 3, $00, $00, $00
DATA 3, $00, $c0, $40
DATA 3, $01, $00, $00
DATA 3, $02, $80, $40
DATA 3, $05, $00, $00
DATA 3, $0a, $00, $40
DATA 3, $00, $00, $00
DATA 3, $00, $00, $40
DATA 3, $00, $00, $00
DATA 3, $00, $00, $40
DATA 3, $00, $00, $00
DATA 3, $00, $00, $c0
DATA 3, $00, $00, $00
DATA 3, $00, $07, $c0
DATA 3, $1b, $25, 1
DATA 0
2700 DATA 3, $1b, $52, 2
DATA 0
2800 DATA 3, $1b, $43, 66
DATA 0
2900 DATA 2, $1b, $4f
DATA 0