20 FORA=49154TO49317:READI:POKEA,I:NEXT
30 INPUT "";A$
40 A$=A$+""
50 F$=CHR$(129)+LEFT$(A$,14)
60 FC=PEEK(53281):CC=PEEK(646)
70 LOADF$,8,1
80 END
90 SYS49154
100 WAIT653,1:WAIT653,1,1
110 POKE53265,PEEK(53265)AND223
120 POKE53272,(PEEK(53272)AND240)OR4
130 PRINT"";:POKE53281,FC:POKE646,CC
140 END
200 DATA173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
220 DATA4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
240 DATA40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
260 DATA114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
280 DATA173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
300 DATA24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
320 DATA162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
340 DATA142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
360 DATA192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
380 DATA252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
400 DATA254,132,253,96,0,0,0,240,0,0,0
READY.
