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


10 REM TAPELESS
12 REM BY ROBERT GRUNBOK
14 REM (c)1987, ANTIC PUBLISHING INC.
18 REM G10XLOAD.LST
80 REM GEMINI 10X/15X CHARACTER LOADER
150 FOR I=1 TO 90:READ LTR:? #7;E$;CHR$(42);CHR$(1);CHR$(LTR);Z$;
160 FOR J=1 TO 9:READ LTR:? #7;CHR$(LTR);:NEXT J:NEXT I
180 ? #7;E$;CHR$(36);CHR$(1);:REM SELECT DOWNLOADABLE CHARACTERS
190 ? #7;E$;CHR$(48):? #7:REM 8 LINES PER INCH
920 DATA 103,60,64,0,124,2,64,2,124,0
950 DATA 106,14,17,0,16,0,24,0,0,24
1010 DATA 112,2,0,2,60,64,2,64,62,0
1020 DATA 113,96,0,32,30,33,0,33,30,0
1100 DATA 121,30,32,64,60,66,0,66,0,0

Back to previous page