10 MODE1 20 PROCCHARS 30 PRINT'"Input phrase:"'' 40 INPUT""Q$ 50 PRINT'' 60 FORW=1TOLEN(Q$) 70 W$=MID$(Q$,W,1) 80 Q=ASC(W$) 90 IFW$="Q"THENPRINTCHR$226;CHR$246;:GOTO190 100 IFW$="T"ANDMID$(Q$,W+1,1)="H"THENQ=91:W=W+1 110 IFW$="N"ANDMID$(Q$,W+1,1)="G"THENQ=92:W=W+1 120 IFW$="E"ANDMID$(Q$,W+1,1)="E"THENQ=93:W=W+1 130 IFW$="E"ANDMID$(Q$,W+1,1)="A"THENQ=94:W=W+1 140 IFW$="S"ANDMID$(Q$,W+1,1)="T"THENQ=95:W=W+1 150 IFW$=" "THENQ=96 160 COLOUR2 170 E=224+Q-65 180 PRINTCHR$(E); 190 NEXT 200 PRINT 210 END 220 DEFPROCCHARS 230 VDU23,224,48,40,36,48,40,36,32,0 240 VDU23,225,48,40,36,40,36,40,48,0 250 VDU23,226,32,32,32,48,40,36,34,0 260 VDU23,227,0,66,102,90,90,102,66,0 270 VDU23,228,34,54,42,34,34,34,34,0 280 VDU23,229,40,48,36,40,48,32,32,0 290 VDU23,230,0,34,20,8,8,20,34,0 300 VDU23,231,34,50,42,54,42,38,34,0 310 VDU23,232,8,8,8,8,8,8,8,0 320 VDU23,233,8,8,8,8,8,8,8,0 330 VDU23,234,32,32,32,32,40,52,34,0 340 VDU23,235,48,40,36,32,32,32,32,0 350 VDU23,236,33,51,45,45,51,33,33,0 360 VDU23,237,8,8,8,56,14,8,8,0 370 VDU23,238,48,42,36,48,42,36,32,0 380 VDU23,239,34,52,40,32,40,52,34,0 390 VDU23,240,0,0,0,0,0,0,0,0 400 VDU23,241,48,40,36,40,48,40,36,0 410 VDU23,242,32,32,34,46,58,2,2,0 420 VDU23,243,8,28,42,8,8,8,8,0 430 VDU23,244,56,44,34,34,34,34,34,0 440 VDU23,245,56,44,34,34,34,34,34,0 450 VDU23,246,48,40,36,40,48,32,32,0 460 VDU23,247,42,42,42,28,8,8,8,0 470 VDU23,248,56,36,34,62,42,42,42,0 480 VDU23,249,8,8,8,28,42,42,42,0 490 VDU23,250,32,32,48,40,48,32,32,0 500 VDU23,251,34,20,8,20,8,20,34,0 510 VDU23,252,8,20,34,20,8,20,34,0 520 VDU23,253,8,93,42,8,8,8,0,0 530 VDU23,254,0,102,90,66,66,90,102,0 540 VDU23,255,0,0,0,8,0,0,0,0 550 ENDPROC