Cauldron 2: CAULDRN2.B

  1 RANDOMIZE USR 01COS _ NEXT ! LET <>"CHR$ / STEP RND] CLEAR ©> GO SUB y! STEP LN ] STEP 2 CLS v CLEAR  NEXT : STEP /ATN  !STR$ ]"IN ]!@[M] STEP LN ] STEP RND] STEP @[M]!TAN _Z STEP LN ] CLEAR  GO SUB x STEP [L]]NOT TAN _CODE  FLASH  RETURN  NEW  RETURN ( RUN <>CODE  OPEN # RETURN 2H/2▟/![+wACS ( CLS <> RESTORE  GO SUB [ POKE /:] NEW /2 LOAD ] STEP  NEW ] MERGE  INVERSE !/ STEP ^$ MOVE {< NEW _ TO  RESTORE ] GO TO  GO SUB S POKE /<>zATN >,8 PLOT  > INVERSE ! PRINT > STEP ^ NEXT <> INVERSE !S* INVERSE  RESTORE NOT /=