10 ONERRORGOTO30
   20 *SHADOW 1
   30 ONERRORRUN
   40 MODE2:FORB%=0TO15:VDU19,B%,0;0;:NEXT:*LOAD LSCREEN  3000 
   50 *CRAZY1
   60 REPEATUNTILGET=32
   70 CHAIN"CRAZY2"