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