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


10 REM TAPELESS
12 REM BY ROBERT GRUNBOK
14 REM (c)1987, ANTIC PUBLISHING INC.
18 REM OKILOAD.LST
80 REM OKIDATA 92/93 CHARACTER LOADER
100 REM DON'T REMOVE THIS LINE
150 FOR I=1 TO 90:READ LTR:? #7;E$;"%A";CHR$(LTR);
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$;"2";:REM SELECT DOWNLOADABLE CHARACTERS
190 ? #7;E$;"8":? #7:REM 8 LINES PER INCH
210 FOR J=1 TO 9:READ LTR:? #7;CHR$(LTR);:NEXT J:RETURN 

Back to previous page