10REM 7£5 £k j5 up jpz5 5 j j££ pp¶¶¶¶ 7¶¾zn z0 'kws'¼tz75£7wstzwquz£;6 g;uz7ks¼:::,;;;, [[[,===,]]],^^^ 20REM7k7k7;uz7£up7iu:w3upw35 7+u¼uz5j j j jd:u&7d5 up¾÷5k=z5j7kuz7k7£7ku÷7k7i w3r¼k£j 5juz5jm>5z?oe*4ie:8!£;vp ,111 30REM w>4 w5 w1 4w5p0¾1p0= w5,%4 75 ` h 5-%40744 u 7o 75 w5w5% w5 - 7% p y t 5 jz e% un 91u5,%p0x1 40DEFFNS="FONTDES" 50ONERROR IF ERR=17 PROCsvlin ELSE RE PORT:PRINTERL:END 60MODE7 70PRINT"MODE 7 FONT INSERT LINE PROG" 80PRINT"Enter character."'"ESCAPE to save lines"'"Return to alter data" 90VDU23;8202;0;0;0;:REPEAT:PRINTTAB(0 ,5) 100B%=ASCGET$:IFB%<>13 A%=B% 110IF B%=13PROCalter 120L%=&E05+((A%-32)*4):VDU150,?L%,?(L% +1),10,8,8,8,150,?(L%+2),?(L%+3),10 130PRINT"This character is composed of :"'"1.";?L%;" "'"2.";?(L%+1);" "'"3."; ?(L%+2);" "'"4.";?(L%+3);" " 140UNTILFALSE 150DEFPROCalter:PRINTTAB(0,15)"Alter 1 2 3 or 4":a%=VAL GET$:INPUT"New value " ;V%:?(L%+(a%-1))=V% 160PRINTTAB(0,15)SPC150TAB(0,5):ENDPRO C 170DEFPROCsvlin:CLS:INPUT"FILE TO SAVE "f$ 180OSCLI"SA. "+f$+" E00 F72" 190END