Classic Computer Magazine Archive PROGRAM LISTING: 87-08/SG10LOAD.LST


10 REM TAPELESS
12 REM BY ROBERT GRUNBOK
14 REM (c)1987, ANTIC PUBLISHING INC.
18 REM SG10LOAD.LST
80 REM STAR SG10/15 CHARACTER LOADER
100 ? "}":POSITION 5,5:? "Is printer DIP switch 1-5 off?"
150 FOR I=1 TO 90:READ LTR:? #7;E$;"*";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$;"$";: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