21 FOR X=1 TO 30
 22 PRINT
 23 NEXT X
 31 FOR X=54051 TO 54071 STEP 2
 32 POKE X,246
 33 NEXT X
 50 K=57088:A=53549
 51 POKE 530,1:POKE K,127
 55 A=53645
 60 REM
 61 POKE A,11:POKE A+1,12
 62 FOR X=0 TO 50:NEXT X
 70 IF PEEK(K)=127 THEN100
 75 IF PEEK(K)=191 THEN 200
 80 IF PEEK(K)=223 THEN 300
 90 IF PEEK(K)=253 THEN 400
 94 GOTO 70
 100 POKE A,32:POKE A+1,32:A=A-1:GOTO 60
 200 POKE A,32:POKE A+1,32:A=A+1:GOTO 60
 300 FOR R=A+31 TO 54071 STEP 31:POKE R,189
 310 FOR X=0 TO L:NEXT X:POKE R,32:NEXT R
 320 GOTO 80
 400 POKE 530,0:REM:END