0 REM ~ INVERSE !F] STEP E]<>8~ NEW G#N NEW CHR$ 8 INPUT NEW LPRINT G~ NEW AND O# RESTORE {[G]oz[I]g GO SUB VAL LLIST #~8 OUT 8N# GO SUB VAL INVERSE DIM ~8 NEW >=O# RESTORE ~bkw INVERSE NEW G#N LIST NEXT GO SUB ^> CLEAR FLASH RETURN NEW 2TAB ^!USR RANDOMIZE CLEAR © GO SUB Qr GO SUB Ys GO SUB Q~INT LINE VAL$ ^1!_P CLEAR . STEP o^Z!LN STEP _^!@ CLEAR .USR STEP o^X GO SUB VAL INVERSE !<=}'▝ STEP _^!<=}0_ STEP ]1 SAVE [G]*ATTR ^"~[I]:~[I]ATN ( STEP ▞[K] INVERSE ! STEP >= THEN STEP _^! STEP >=USR STEP ] STEP [F][K]CODE OPEN # RETURN ![} THEN CLS q, POKE USR $@s,r# STEP [M]^ RUN ! RETURN | CLEAR q# DRAW q GO SUB G>NOT 2 CLEAR CLEAR ! SAVE " RETURN CLEAR :~[I]ATN ( STEP ▞[K]:TAB ^ATN STEP USR STEP USR ! COPY COPY +|ATN CLS STEP USR STEP [F][K]NOT SAVE [G]> OPEN # RETURN STEP b CIRCLE <= MERGE USR MERGE STEP ]!XX COPY u GO SUB VAL LLIST MOVE ~#z NEW TO [R]^ POKE MOVE GO TO <>z NEW USR { AND _ CIRCLE z VERIFY W<>2ATTR ^!PEEK |IN q# DRAW q GO SUB G>NOT 2IN IN ! TO ^"USR IN CLS v! PAPER ^> STEP _ CLS GO SUB VAL NOT PAPER ^" GO TO ^! FOR ^> STEP _ CLS GO SUB VAL NOT FOR ^ATN GO SUB R8>2AT ^ CLEAR ©> GO SUB yNOT ]"USR IN CLEAR © GO SUB y!USR T]@<>E`OB? GO SUB VAL$ ▙▟ DEF FN lNOT l DEF FN STEP nf<=▚ DEF FN m LOAD kSTR$ ▝STR$ c READ NOT f CAT n AND GO SUB VAL$ ▚▜▚▙NOT ff READ d!lg TO n DEF FN f, TO ll<= STEP nll GO TO GO TO omnlnml TO ▘fgf DEF FN ▟▜P STEP n TO l CAT USR `USR `USR USR C`USR B▜[A] READ ▚
1539P0 TO n& AND fo▝P<=iBcSTR$ DEF FN &▝[Q]▛B[T]NOT TO nn GO SUB llf BORDER POINT B▝▜AIBVAL$ <=g DEF FN ▝[I] GO TO AND ▘ LPRINT LPRINT `WAT THEN ▝p INPUT TO n BORDER g>=▝,▘ GO TO icg INPUT CAT l TO ▚#▞<= GO TO <>l BORDER ▝G▘^ LPRINT USR USR LPRINT LPRINT ▝ INK `MFFG/F^E@
