Classic Computer Magazine Archive PROGRAM LISTING: 85-03/CONVERT.LST


10 REM EPSON FX80 FONT MAKER
410 Y=3:RESTORE 480:IF X>11 THEN SOUND 0,0,0,0:RETURN 
430 IF Y>9 THEN X=X+1:GOTO 410
470 Y=Y+1:GOTO 430
510 Y=3:RESTORE 580:IF X>11 THEN SOUND 0,0,0,0:POKE 88,TEXTL:POKE 89,TEXTH:POKE 87,0:RETURN 
530 IF Y>9 THEN X=X+1:GOTO 510
570 Y=Y+1:GOTO 530
1430 T(X-2)=T(X-2)+64*(Y=3)+32*(Y=4)+16*(Y=5)+8*(Y=6)+4*(Y=7)+2*(Y=8)+(Y=9)
1580 POKE 712,56:POSITION 5,13:? "�����Р����蠱�����濠�ٯΩ� ":GOSUB 2680
1630 IF IN=35 THEN POKE 764,255:POSITION 5,13:? "����Π��Ơ��Р�����Ƞ����     ":GOSUB 2680:GOTO 1970
1670 PRINT #4;E$;CHR$(58);CHR$(0);CHR$(0);CHR$(0);
1720 PRINT #4;E$;CHR$(38);CHR$(0);CHR$(C);CHR$(C);:IF D=0 THEN PRINT #4;CHR$(139);
1725 IF D=1 THEN PRINT #4;CHR$(11);
1735 PRINT #4;CHR$(0);CHR$(0);
1760 PRINT #4;E$;CHR$(37);CHR$(1);CHR$(0);
2590 POSITION 9,0:? "EPSON FX80 FONT MAKER":POSITION 15,1:? "by James Duffin"
2710 ? :? "The ����� �ظ� ���� �����":? "               by JAMES DUFFIN":? "   is a program which allows you to"
2720 ? "make your own character sets and":? "download them to an Epson FX80 printer"

Back to previous page