1 RANDOMIZE USR VAL "23769"1 INK / CLS vCODE OPEN # RETURN !XXw GO SUB VAL 2] NEXT INK !@@ COPY u GO SUB VAL CLEAR ©> GO SUB y INK &USR w INK > GO SUB y INK Tu GO SUB VAL 6 GO SUB VAL INK > GO SUB y INK :USR INPUT 2 IF ]2 CLS ]! OVER P6 COPY $6▝$ CLS 6 COPY >? GO SUB G STEP g]!^ LLIST STEP LINE ]0 INPUT w#zCOS POKE STEP LN ] STEP g] STEP ^8 SAVE > OPEN # RETURN PAUSE STEP STR$ ]0 CLS STEP STR$ ]0 PLOT STEP LINE ]=( IF < GO SUB !INKEY$] STEP LINE ]0 RESTORE VAL$ STOP VAL$ # POKE STEP LINE ]0 INK RETURN MERGE STEP LINE ]0 FORMAT RETURN STEP LINE ]0<>VAL$ AND VAL$ # POKE <>EntireGroup![I]]4<>!]4CODE 2[I]]<>PEEK STEP NEW ]> THEN LN <> MERGE OR SIN STEP STOP ]0> THEN LN THEN VAL 0 PAUSE {STR$ MOVE <> STEP NEW ] FORMAT >= CLEAR PI>=>© FLASH RETURN POINT NEW @( PRINT y/O INK NEW @O OPEN # RETURN yy INK 7<> NEW @>r(>J2 OVER Z7<>
