10 IFA=0THENA=1:LOAD"FLIMMERN*",8,1
11 PRINT"[147]"CHR$(14)
12 FORG=0TO5
13 PRINTG+1". [198]ARBE ";:INPUTF
14 IFF>15ORF<0THENPRINT"[145][145]":GOTO13
15 POKE49153+G*8,F:NEXTG
16 SYS49152