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 >
Text File  |  1992-10-13  |  4KB  |  182 lines
  1. PROCEDURE eps
  2. 10 PRINT CHR$(7)
  3. PRINT CHR$(11)+CHR$(12)
  4. PRINT USING "s50^","EPSON RX80F/T PRINTER SET UP"
  5. PRINT 
  6. 100 REM rx=printer_path
  7. DIM rx:BYTE; name:STRING[24]; pch:BYTE
  8. DIM ndx,cnt:INTEGER
  9. name="/p"
  10. OPEN #rx,name:WRITE
  11. DIM opt(9,2):STRING[50]
  12. FOR x=1 TO 2
  13. FOR y=1 TO 9
  14. READ opt(y,x)
  15. NEXT y
  16. NEXT x
  17. DATA "Reset/Initialise","Quad Print","Condensed Mode"
  18. DATA "Pica Mode","Enlarged Mode","Polish"
  19. DATA "German   ","11 inch paper","No Page Skip "
  20. DATA "96","20","137","80","40",".",".",".","."
  21. PRINT 
  22. PRINT TAB(10); "OPTION"; TAB(30); "MAX COLUMNS"
  23. PRINT 
  24. PRINT "0."; TAB(10); "END SET UP PROGRAM"
  25. mn=1
  26. FOR y=1 TO 9
  27. PRINT mn; TAB(10); opt(y,1),opt(y,2)
  28. mn=mn+1
  29. NEXT y
  30. PRINT 
  31. 300 INPUT "INPUT OPTION No. THEN ENTER TO PROCEED ",op
  32. IF op=0 THEN GOTO 1000
  33. ENDIF 
  34. IF op=1 THEN RESTORE 2100
  35.              GOSUB   1100
  36. ENDIF 
  37.              
  38. IF op=2 THEN RESTORE 2200
  39.              GOSUB   1100
  40. ENDIF 
  41.              
  42. IF op=3 THEN RESTORE 2300
  43.              GOSUB   1100
  44. ENDIF 
  45.              
  46. IF op=4 THEN RESTORE 2400
  47.              GOSUB   1100
  48. ENDIF 
  49.              
  50. IF op=5 THEN RESTORE 2500
  51.              GOSUB   1100
  52. ENDIF 
  53.              
  54. IF op=6 THEN RESTORE 2600
  55.              GOSUB   1100
  56. ENDIF 
  57.              
  58. IF op=7 THEN RESTORE 2700
  59.              GOSUB   1100
  60. ENDIF 
  61.              
  62. IF op=8 THEN RESTORE 2800
  63.              GOSUB   1100
  64. ENDIF 
  65.              
  66. IF op=9 THEN RESTORE 2900
  67.              GOSUB   1100
  68. ENDIF 
  69.                    
  70. IF op>9 THEN GOTO 10
  71. ENDIF 
  72. GOTO 300
  73.  
  74. 1000 REM END & LOGIN
  75. CLOSE #rx
  76. END 
  77.  
  78. 1100
  79. READ  cnt
  80. WHILE cnt > 0  DO 
  81.          FOR ndx = 1 TO cnt
  82.                      READ pch
  83.                      PUT #rx, pch
  84.                      NEXT ndx
  85.          READ cnt
  86. ENDWHILE
  87. RETURN
  88.  
  89.  
  90. 2100 DATA 5,  $1B, $40, $1B, $43, $46
  91.      DATA 0
  92.  
  93. 2200 DATA 3,  $1B, $68, 2
  94.      DATA 0
  95.   
  96. 2300 DATA 2,  $1b, 15
  97.      DATA 0
  98.   
  99. 2400 DATA 2,  $1b, $50
  100.      DATA 0
  101.   
  102. 2500 DATA 3,  $1b, $68, 1  
  103.      DATA 0
  104.  
  105. 2600 DATA 5,  $1b, $3a, 0, 2, 0
  106.      DATA 3,  $1b, $78, 1
  107.      DATA 8,  $1b, $26, 0, $7c, $7c, 3, 23, 4
  108.  
  109.      DATA 3,  $00, $00, $00
  110.      DATA 3,  $00, $00, $00
  111.      DATA 3,  $00, $00, $00
  112.      DATA 3,  $00, $00, $00
  113.      DATA 3,  $40, $00, $40
  114.  
  115.      DATA 3,  $00, $00, $00
  116.      DATA 3,  $40, $04, $40
  117.      DATA 3,  $00, $08, $00
  118.      DATA 3,  $40, $14, $40
  119.      DATA 3,  $00, $00, $00
  120.  
  121.      DATA 3,  $ff, $ff, $c0
  122.      DATA 3,  $00, $00, $00
  123.      DATA 3,  $ff, $ff, $c0
  124.      DATA 3,  $00, $00, $00
  125.      DATA 3,  $00, $c0, $40
  126.  
  127.      DATA 3,  $01, $00, $00
  128.      DATA 3,  $02, $80, $40
  129.      DATA 3,  $05, $00, $00
  130.      DATA 3,  $02, $00, $40
  131.      DATA 3,  $00, $00, $00
  132.  
  133.      DATA 3,  $00, $00, $00
  134.      DATA 3,  $00, $00, $00
  135.      DATA 3,  $00, $00, $00
  136.  
  137.      DATA 8,  $1b, $26, 0, $5c, $5c, 3, 23, 4
  138.  
  139.      DATA 3,  $40, $04, $40
  140.      DATA 3,  $00, $00, $00
  141.      DATA 3,  $40, $04, $40
  142.      DATA 3,  $00, $08, $00
  143.      DATA 3,  $41, $14, $40
  144.  
  145.      DATA 3,  $00, $00, $00
  146.      DATA 3,  $7f, $ff, $c0
  147.      DATA 3,  $00, $00, $00
  148.      DATA 3,  $7f, $ff, $c0
  149.      DATA 3,  $00, $00, $00
  150.  
  151.      DATA 3,  $00, $c0, $40
  152.      DATA 3,  $01, $00, $00
  153.      DATA 3,  $02, $80, $40
  154.      DATA 3,  $05, $00, $00
  155.      DATA 3,  $0a, $00, $40
  156.  
  157.      DATA 3,  $00, $00, $00
  158.      DATA 3,  $00, $00, $40
  159.      DATA 3,  $00, $00, $00
  160.      DATA 3,  $00, $00, $40
  161.      DATA 3,  $00, $00, $00
  162.  
  163.      DATA 3,  $00, $00, $c0
  164.      DATA 3,  $00, $00, $00
  165.      DATA 3,  $00, $07, $c0
  166.  
  167.      DATA 3,  $1b, $25, 1
  168.  
  169.      DATA 0
  170.   
  171. 2700 DATA 3,  $1b, $52, 2  
  172.      DATA 0
  173.   
  174. 2800 DATA 3,  $1b, $43, 66  
  175.      DATA 0
  176.   
  177. 2900 DATA 2,  $1b, $4f 
  178.      DATA 0
  179.   
  180.   
  181.  
  182.