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 ¢
