10 REM TAPELESS
12 REM BY ROBERT GRUNBOK
14 REM (c)1987, ANTIC PUBLISHING INC.
18 REM FX80LOAD.LST
80 REM EPSON FX80/100 CHARACTER LOADER
100 ? "}":POSITION 5,5:? "Is printer DIP switch 1-4 off?"
150 FOR I=1 TO 90:READ LTR:? #7;E$;"&";Z$;CHR$(LTR);CHR$(LTR);CHR$(139);
160 IF (LTR=103) OR (LTR=106) OR (LTR=112) OR (LTR=113) OR (LTR=121) THEN GOSUB 210:? #7;Z$;Z$;:NEXT I:GOTO 180
170 ? #7;Z$;Z$;:GOSUB 210:NEXT I
180 ? #7;E$;"%
";Z$;:REM SELECT DOWNLOADABLE CHARACTERS
190 ? #7;E$;"0":? #7:REM 8 LINES PER INCH
210 FOR J=1 TO 9:READ LTR:? #7;CHR$(LTR);:NEXT J:RETURN 

---

Back to previous page