10 DEFINT a-z:MODE 1:PRINT,"CABALISTING":BORDER 0:INK 0,0:INK 1,26:INK 2,13:FOR a=0 TO 11:MOVE 0,a*34:DRAWR 624,0,2:NEXT:FOR l=0 TO 10:e=(e+16)MOD 24:FOR c=0 TO 9:ORIGIN 0,0,e+c*64,e+c*64+24,l*34+2,l*34+32:CLG 1:NEXT c,l:CALL &BB06:CLS:REM RETROPOKE
20 FOR a=0 TO 10:ORIGIN 0,0,-4+a*64,6+a*64,0,399:CLG:ORIGIN 0,0,0,639,a*56,10+a*56:CLG:NEXT:CALL &BB06:MODE 1:CLG:FOR a=1 TO 20:FOR b=0 TO 1:MOVE a*40+b*6,0:DRAWR -198,399,0:NEXT b,a:FOR a=3 TO 9:ORIGIN 0,0,a*48,24+a*48,20,380:CLG 2:NEXT:CALL &BB06:RUN