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"¢
