home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / epson.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  78 lines
  1. 1 REM PRINTER CONTROLER FOR THE EPSON FROM DAVID BELANGER 1345 AKARD DRIVE RENO, NEVADA 89503 PH-1-702-747-7848
  2. 10 CLS
  3. 20 PRINT "<A> COMPRESSED       <N> NLQ OFF" 
  4. 30 PRINT "<B> EXPANDED         <O> NLQ ON" 
  5. 40 PRINT "<C> EMPHASIZED       <P> ROMAN"
  6. 50 PRINT "<D> DOUBLE-STRIKE    <Q> SAN SERIF"
  7. 60 PRINT "<E> SUPERSCRIPT      <R> TEST SETTING"
  8. 70 PRINT "<F> SUBSCRIPT"
  9. 80 PRINT "<G> UNDERLINE"
  10. 90 PRINT "<H> ITALIC"
  11. 100 PRINT "<I> HALF SPEED"
  12. 110 PRINT "<J> SHORT SPACE"
  13. 120 PRINT "<K> VERY SHORT SPACE"
  14. 130 PRINT "<L> PAPER SENSOR OFF"
  15. 140 PRINT "<M> FORM FEED"
  16. 150 PRINT
  17. 160 INPUT "MENU OR ";A$
  18. 500 REM WHERE TO GO
  19. 501 IF A$="A" THEN 1010
  20. 502 IF A$="B" THEN 1020
  21. 503 IF A$="C" THEN 1030
  22. 504 IF A$="D" THEN 1040
  23. 505 IF A$="E" THEN 1050
  24. 506 IF A$="F" THEN 1060
  25. 507 IF A$="G" THEN 1070
  26. 508 IF A$="H" THEN 1080
  27. 509 IF A$="I" THEN 1090
  28. 510 IF A$="J" THEN 1100
  29. 511 IF A$="K" THEN 1110
  30. 512 IF A$="L" THEN 1120
  31. 513 IF A$="M" THEN 1130
  32. 514 IF A$="N" THEN 1140
  33. 515 IF A$="O" THEN 1150
  34. 516 IF A$="P" THEN 1160
  35. 517 IF A$="Q" THEN 1170
  36. 518 IF A$="R" THEN 1180
  37. 519 IF A$="MENU" THEN MENU
  38. 520 CLS
  39. 521 INPUT "ERROR! ERROR!! ERROR!!! PRESS ENTER! ";X$
  40. 522 GOTO 10
  41. 1000 REM COMMANDS
  42. 1010 LPRINT CHR$(15)
  43. 1015 GOTO 10
  44. 1020 LPRINT CHR$(27);"W1"
  45. 1025 GOTO 10
  46. 1030 LPRINT CHR$(27);"E"
  47. 1035 GOTO 10
  48. 1040 LPRINT CHR$(27);"G"
  49. 1045 GOTO 10
  50. 1050 LPRINT CHR$(27);"S0"
  51. 1055 GOTO 10
  52. 1060 LPRINT CHR$(27);"S1"
  53. 1065 GOTO 10
  54. 1070 LPRINT CHR$(27);"-1"
  55. 1075 GOTO 10
  56. 1080 LPRINT CHR$(27);"4"
  57. 1085 GOTO 10
  58. 1090 LPRINT CHR$(27);"s1"
  59. 1095 GOTO 10
  60. 1100 LPRINT CHR$(27);"A";CHR$(8)
  61. 1105 GOTO 10
  62. 1110 LPRINT CHR$(27);"A";CHR$(6)
  63. 1115 GOTO 10
  64. 1120 LPRINT CHR$(27);"8"
  65. 1125 GOTO 10
  66. 1130 LPRINT CHR$(12)
  67. 1135 GOTO 10
  68. 1140 LPRINT CHR$(27);"x";CHR$(0)
  69. 1145 GOTO 10
  70. 1150 LPRINT CHR$(27);"x";CHR$(1)
  71. 1155 GOTO 10
  72. 1160 LPRINT CHR$(27);"k";CHR$(0)
  73. 1165 GOTO 10
  74. 1170 LPRINT CHR$(27);"k";CHR$(1)
  75. 1175 GOTO 10
  76. 1180 LPRINT "TEST SETTING'S TEST SETTING'S "
  77. 1185 GOTO 10
  78.