Thanatos: THANATOS.B

  1 RANDOMIZE USR 01 BORDER g NEXT ! LET <>"CHR$ / STEP [R]] CLEAR ©> GO SUB y! STEP SIN ] STEP : STEP /ATN  !SQR ]"EXP ]!@[M] STEP SIN ] STEP [R]] STEP @[M]! CONTINUE gv STEP LEN ] CLEAR  GO SUB x STEP [H]] STEP [R]]NOT  CONTINUE gCODE  FLASH  RETURN  NEW  RETURN ( RUN <>CODE  OPEN # RETURN !XX COPY u GO SUB VAL <> RESTORE  GO SUB [ POKE /:] NEW /2 DIM ] STEP  LPRINT ] MERGE  INVERSE !/ STEP ^$ MOVE {< NEW _ TO  OUT ] GO TO  GO SUB S POKE /<>zATN >,8 PLOT  > INVERSE ! PRINT > STEP ^ NEXT <> INVERSE !S* INVERSE  RESTORE NOT /=AmoNik/WELCOME 2001