1 REM     **********************
2 REM     * COMMODARES  COLUMN *
3 REM     * AHOY!  9/84   P.76 *
4 REM     **********************
5 :
6 :
9 PRINT"[153]PLEASE WAIT A MOMENT"
10 CLR:K=.:DIM A(511):X=7:Y=.
20 POKE 56334,PEEK(56334)AND 254
30 POKE 1,PEEK(1)AND 251
40 FOR I=0 TO 511:A(I)=PEEK(I+53248):NEXT
50 FOR I=X TO Y STEP-1:POKE 12288+K,A(I):K=K+1:NEXT:X=X+8:Y=Y+8:IFX>=512THEN100
60 GOTO 50
100 POKE 1,PEEK(1)OR 4
110 POKE 56334,PEEK(56334)OR 1
120 POKE 53272,(PEEK(53272)AND 240)+12
130 PRINT"GET A MIRROR AND LOOK IN IT, UPSIDE DOWN "