10 REM GEMINI 10X FONT MAKER
15 REM SG-10 MODIFICATION BY CHARLES JACKSON
20 REM (c) 1985, ANTIC PUBLISHING
1700 D=PEEK(CHORG+10*(C-32)):B$(18,18)=CHR$(7):IF D=0 THEN B$(18,18)=CHR$(8)
1702 FOR I=1 TO 9:TMP=USR(ADR(B$),(PEEK(CHORG+10*(C-32)+I))):T(I)=TMP:NEXT I
1720 PRINT #4;E$;CHR$(42);CHR$(1);CHR$(C);CHR$(C);CHR$(9+128*(D=0));
1730 PRINT #4;"";CHR$(T(1));CHR$(T(2));CHR$(T(3));CHR$(T(4));
1735 PRINT #4;CHR$(T(5));CHR$(T(6));CHR$(T(7));CHR$(T(8));CHR$(T(9));"";
2315 DIM B$(27):B$="hhh��)�
F�i����ԩ��`"
2590 POSITION 11,0:? "�ǭ�� ���� ����":POSITION 15,1:? "by James Duffin"
2710 ? :? "The �ǭ�� ���� �����":? "             by JAMES DUFFIN":? "   is a program which allows you to"

---

Back to previous page