ULTIMATE SCREEN: Ultimate ?.B

  0 RANDOMIZE USR 0
  39168 PAPER /! RANDOMIZE / GO SUB VAL <>CODE !H/w.▟w STEP CODE &=~ THEN ?ACS  THEN  DRAW w THEN SGN # THEN t( PAUSE &SGN "6/! IF  THEN  N# THEN 1 PRINT  RETURN %(0 BEEP  FOR ![Q]Z[R]Zs RESTORE  MERGE  OR  GO SUB VAL #USR  OR y PLOT   OPEN # RETURN  RETURN ACODE  OPEN # RETURN  RETURN STR$  INPUT   FOR STR$  MOVE  LLIST p GO SUB VAL !?? RETURN ! LOAD  RANDOMIZE z^# CLS A^#~# RANDOMIZE  MOVE  GO SUB VAL  INVERSE !IN STR$ POINT 6{7 STEP V RETURN 0[T] OPEN # RETURN  MERGE  OR  OR  LLIST  MOVE STR$ - GO SUB VAL COS {!IN USR  RESTORE $ OR > STEP  LPRINT  RANDOMIZE  GO SUB VAL ▜8 STEP  LPRINT  RANDOMIZE  READ  RESTORE  GO SUB VAL  LLIST  READ ▜0 FOR STR$ >=AN# THEN  THEN  OR  CLOSE # CONTINUE  RANDOMIZE  INVERSE ▜ ~# CIRCLE ▜ THEN  THEN  PAUSE  RESTORE `▗n}[D][N] TO  BEEP K COPY rsINKEY$X<=Y CAT f CLOSE #X CONTINUE  POKE ▘ NEW  PLOT   OPEN # RETURN 7<>,1ATTR PU[J]RL CIRCLE 5"[Q]AN(LEN g ZX` OR  RESTORE [O] CIRCLE w [H]v[O]yu[Q]Z▘▛ READ TA CLEAR [D]ML[F]vt OPEN #ATN LFN ) READ  RESTORE [H]. DATA y[Q]CHR$ INKEY$ CLEAR  CLS f OUT <> RETURN 4 GO SUB  OPEN # FOR N GO TO  CONTINUE )NOT [U]6 RETURN H1 LOAD  FLASH NOT [G]^| POKE  LOAD  BRIGHT LEN  BRIGHT </A[D]. BRIGHT <  FLASH ▜^T RANDOMIZE  LET  FOR ▜[G]T CONTINUE MM8t[A]l OUT ▜";SIN   STEP IN [C]{ PLOT   LIST  RESTORE [H][P]=; RUN   DIM [T]-8t[A]i DIM  CAT . TO  THEN [A]S THEN COS .>▖6oNOT [D]N GO TO  CONTINUE 6 LOAD <>[F]f STEP  SAVE re DATA ATN v POKE yr OUT <>};6  OPEN #[P]v RETURN YPf INK ▜>/=2AT A▛f DRAW z FORMAT s OPEN # FOR *;SIN   INK IN  OUT <>qb[Q][J]IN  THEN  THEN [G] RETURN Kr THEN  OUT N GO TO ▖:h LINE INKEY$P!J