Chain Reaction: ChaReact.B

  0 REM ! LET <>"CHR$ />!USR U CLEAR © GO SUB yw< GO SUB yw= GO SUB yPEEK  z PRINT  PRINT  PRINT !` STEP f^ STEP X^ STEP [J]a LET ATN  >M* POKE /G NEW o| THEN 8 THEN 8 THEN 8 THEN 8g" POKE /LM STEP X^ LET ATN ("SQR ]@]ATN (>:![U]wATN (CODE !CHR$ [O]w!INKEY$w!~SCREEN$ wATN (CODE !KPOINT w LET gATN (0|!^AT &TAB ATN (> STEP [M]▗!pUSR  GO SUB VAL > STEP [M]▗! STOP AT TAB TAB 6####6?> CLS !oY > INVERSE . RESTORE w, DRAW  LLIST   POKE !^44!^44 OUT  COPY  PRINT >< RETURN 23^  OVER  COPY 44CODE 23^ LET !M^5 LLIST v CLEAR  INVERSE - USR NOT ![J]a RESTORE  RESTORE  STEP f^ LLIST  MOVE  NEXT NOT `/ NEXT NOT =
  1 CLEAR VAL "24575": RANDOMIZE USR VAL "23872"