unplugged: UNPLUGGED.B

  0 GO TO USR 0CODE =7 STEP b0 RETURN CODE  OPEN # RETURN <> NEXT !8}[S]([A]O}[T](=LEN w,  LIST T&X NEW  CLS v NEXT  OPEN # RETURN ^w,CHR$ ]$  PRINT  READ 1`!b^[K] GO SUB VAL zCOS (& INPUT  STEP 0 POKE !" OUT / INVERSE !▖] INVERSE ~PI(/ STEP ▘]! COPY  COPY  INVERSE ^ INVERSE VATN  GO SUB R INVERSE  RESTORE  RESTORE  RESTORE  INVERSE  LLIST  STEP  PAPER / LLIST  INVERSE  LLIST  INVERSE ^ INVERSE V INVERSE  RESTORE  STEP PI] INVERSE  LLIST  INVERSE  THEN > STEP ▘]NOT  RESTORE [N] CLEAR © GO SUB y<>[M]USR [C]USR SIN USR INKEY$USR [R] FLASH  INVERSE ! AND ] COPY  COPY  GO SUB C>=]>Z COPY N# THEN  GO SUB C>=]02 RESTORE ! COPY  COPY  GO SUB VAL  LLIST ▜0@▜0  LLIST ~#8 BRIGHT ▜0 IF  TO G^>= THEN AN# THEN  GO SUB C>=]8 DEF FN ▜ THEN ▜0 IF  TO G^ RESTORE *>=] GO SUB [Q] GO SUB VAL  GO SUB [Q] LLIST ▜8USR ▜0 ~#8▜ THEN ▜0 IF  ~# CLOSE #K^ GO SUB [Q] GO SUB VAL ▜8[Q]▜0 ~#8▜ THEN ▜0 IF CHR$  AND ] INVERSE  RESTORE ~# CIRCLE ▜ THEN ▜ CIRCLE ▜ THEN ▜ CIRCLE ▜ THEN  THEN ▜  RUN ~# PAUSE  FLASH  RETURN  NEW  OIN USR  STEP n0 IF ! RETURN +|ASN   RANDOMIZE  STEP j0 FOR  STEP 0 BORDER <> STEP n0 OUT x RETURN  CLOSE #0 POKE  STEP n FORMAT &VAL   INVERSE u THEN TAB USR yO INVERSE #SIN . STEP j FORMAT > THEN LN  THEN VAL  ERASE Q|TAB gzCOS   MOVE | RETURN <> STEP n FORMAT >=  CLEAR PI>=>© FLASH  RETURN POINT  NEW  ( POKE y/O> OPEN # RETURN = OPEN # RETURN 7<>[M] STEP j FORMAT > AND LN  FORMAT $  NEXT <>