10 HOME
20 REM FOR I=2048 TO 3072:POKE I,160:NEXT
30 INVERSE
40 ?SPC(5):?:FORX=1TO5:NORMAL:?SPC(4):?:INVERSE:?SPC(1):NEXT:?SPC(5)
100 GOTO 100
130 POKE 49236+P,0:P=NOT P:FOR I=1 TO 1000:NEXT:GOTO 30