0 REM CLEAR THEN INKEY$v NEXT CODE OPEN # RETURN !XX COPY u GO SUB VAL GO SUB LN : PLOT / NEW PLOT <2TAB ]!` RANDOMIZE ) RESTORE STEP [N]] LLIST $ STEP PLOT ] STEP ▖!@[M] STEP [N]] STEP @[M]!xi; RESTORE STEP [N]] LLIST STEP PLOT ]CODE FLASH RETURN / NEW ( SAVE NOT TO OR y CLEAR © GO SUB ySTR$ GO SUB [ POKE /J THEN 9><0 THEN PI INVERSE ! NEXT STEP LIST ] INVERSE !S*y INVERSE !NOT /> STEP LIST ] INVERSE ! PRINT > STEP LIST ] MERGE INVERSE !/ STEP LIST ] MOVE $ THEN c(CHR$ CONTINUE GO SUB S POKE /<> NEXT INVERSE RESTORE NOT /=T] NEXT NOT `release: Maddy/PhF'1997/2001!!
1 RANDOMIZE USR 0