0 REM GO SUB s^1 COPY IN !USR CLEAR ©CODE STEP ^w< STEP ^w= STEP ^PEEK GO SUB {^USR NEXT 1 RETURN _ STEP LIST ]! LET <>"CHR$ /! STEP LLIST ] STEP !@[M] STEP LLIST ] STEP LIST ] STEP @[M]!USR RESTORE @ STEP LLIST ] LLIST RESTORE !USR RESTORE @ STEP LLIST ] LLIST RESTORE !USR RESTORE @ STEP LLIST ] LLIST RESTORE !USR RESTORE @ STEP LLIST ] LLIST STEP LLIST ]!` STEP LPRINT ] STEP ^ STEP LIST ]!`` RESTORE !^@]▝NOT NOT 3!USR RESTORE y STEP ^ GO SUB [ POKE / LLIST DIM !@@ COPY uCODE OPEN # RETURN GO SUB VAL <> OR CLEAR © PLOT GO SUB ySTR$ <>CODE FLASH RETURN NEW RETURN ( RUN <> NEXT GO SUB s] PRINT CODE 2SGN ]< STEP TAB ] LET =1_`ABS ]!USR ATN (]STR$ NEXT G`` OR GO SUB VAL |ATN TO ]STR$ PAUSE CODE STEP TAB ] STEP ``17 CLS NOT ``| PLOT USR g STEP [E]]<> OR MERGE RESTORE :SGN ]<2SGN ]_!ATN ]~ STEP TAB ] LLIST MOVE STR$ <> OR CLEAR © PLOT GO SUB ySTR$ <>I8E>2000
1 RANDOMIZE USR 23872
