1 REM PRINTER CONTROLER FOR THE EPSON FROM DAVID BELANGER 1345 AKARD DRIVE RENO, NEVADA 89503 PH-1-702-747-7848 10 CLS 20 PRINT " COMPRESSED NLQ OFF" 30 PRINT " EXPANDED NLQ ON" 40 PRINT " EMPHASIZED

ROMAN" 50 PRINT " DOUBLE-STRIKE SAN SERIF" 60 PRINT " SUPERSCRIPT TEST SETTING" 70 PRINT " SUBSCRIPT" 80 PRINT " UNDERLINE" 90 PRINT " ITALIC" 100 PRINT " HALF SPEED" 110 PRINT " SHORT SPACE" 120 PRINT " VERY SHORT SPACE" 130 PRINT " PAPER SENSOR OFF" 140 PRINT " FORM FEED" 150 PRINT 160 INPUT "MENU OR ";A$ 500 REM WHERE TO GO 501 IF A$="A" THEN 1010 502 IF A$="B" THEN 1020 503 IF A$="C" THEN 1030 504 IF A$="D" THEN 1040 505 IF A$="E" THEN 1050 506 IF A$="F" THEN 1060 507 IF A$="G" THEN 1070 508 IF A$="H" THEN 1080 509 IF A$="I" THEN 1090 510 IF A$="J" THEN 1100 511 IF A$="K" THEN 1110 512 IF A$="L" THEN 1120 513 IF A$="M" THEN 1130 514 IF A$="N" THEN 1140 515 IF A$="O" THEN 1150 516 IF A$="P" THEN 1160 517 IF A$="Q" THEN 1170 518 IF A$="R" THEN 1180 519 IF A$="MENU" THEN MENU 520 CLS 521 INPUT "ERROR! ERROR!! ERROR!!! PRESS ENTER! ";X$ 522 GOTO 10 1000 REM COMMANDS 1010 LPRINT CHR$(15) 1015 GOTO 10 1020 LPRINT CHR$(27);"W1" 1025 GOTO 10 1030 LPRINT CHR$(27);"E" 1035 GOTO 10 1040 LPRINT CHR$(27);"G" 1045 GOTO 10 1050 LPRINT CHR$(27);"S0" 1055 GOTO 10 1060 LPRINT CHR$(27);"S1" 1065 GOTO 10 1070 LPRINT CHR$(27);"-1" 1075 GOTO 10 1080 LPRINT CHR$(27);"4" 1085 GOTO 10 1090 LPRINT CHR$(27);"s1" 1095 GOTO 10 1100 LPRINT CHR$(27);"A";CHR$(8) 1105 GOTO 10 1110 LPRINT CHR$(27);"A";CHR$(6) 1115 GOTO 10 1120 LPRINT CHR$(27);"8" 1125 GOTO 10 1130 LPRINT CHR$(12) 1135 GOTO 10 1140 LPRINT CHR$(27);"x";CHR$(0) 1145 GOTO 10 1150 LPRINT CHR$(27);"x";CHR$(1) 1155 GOTO 10 1160 LPRINT CHR$(27);"k";CHR$(0) 1165 GOTO 10 1170 LPRINT CHR$(27);"k";CHR$(1) 1175 GOTO 10 1180 LPRINT "TEST SETTING'S TEST SETTING'S " 1185 GOTO 10