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