1 BORDER 0: CLOSE #USR 1995
49517j!@T COPY RESTORE RESTORE u GO SUB VAL !s] MOVE NOT NOT 3 GO SUB LOAD NEXT LOAD 3>=ello to Silicon Dragon!!!8 GO SUB ~> GO SUB G>% GO SUB O INVERSE !R@ CLEAR ![F]D LOAD 8 GO SUB _ INVERSE VAL$ INVERSE AT CLEAR TAB INVERSE TAB FN CLEAR AT CLEAR w INVERSE w INVERSE # CLEAR # LOAD 5[H]▗E PAUSE NEW LET [ DRAW :▞RNDCHR$ RESTORE st[Q]wis CONTINUE RESTORE NEXT to[Q]STR$ rca DATA DIM RANDOMIZE Go STOP PRINT IF ov[R]PI LIST STR$ C MERGE R? CAT OVER PEEK SGN Fn MERGE ] LINE f`T OUT 3 DRAW SAVE [B]L▛ FOR ^<> THEN ▖Ox&CHR$ INVERSE +~▟ REM +iFN ACS ! DIM [L]~<=9nn][I]H[G]Pt[J][O]▜ LPRINT Rm BEEP 1 REM %X FLASH -1[H]PEEK rd CLEAR DATA =STR$ fN[M]SIN 1[L][R]q
62172Z[E] OVER THEN PISCREEN$ | DEF FN IN [J]6 AND YH-mNOT [T][C]SIN 4M STOP STEP MERGE { NEXT CLOSE #COS ▘COS [D][S]USR ,+j CONTINUE TAN RYT[L]PI[F]^PEEK LEN POKE RESTORE LET : POKE 1 READ A[R] GO SUB M[S] FOR ▛U7[U]SGN [E]CODE PRINT k' GO SUB COS ▝Z~INT CLS 6U8 CIRCLE [E]AT }EXP ATN DATA OVER Ah[S][J] LINE 0|<> FORMAT AND z/INT TO 2r[N]ASN STOP ]rSCREEN$ DEF FN ;BIN READ EXP K; LET [E]PEEK ~IN i< DEF FN [L]`1 BEEP [U]uV# CONTINUE INK ▘o<[O] THEN LIST !Z▜TAN RESTORE 3XPOINT PAUSE COPY ,]nSQR USR *w▗ MERGE PLOT Hy[S] CAT -~ATTR [A]STR$ :gT NEW OPEN # CLS QOPEEK ▟ CIRCLE #rI[E] BORDER 6`ATTR [K]STR$ ,©N]3 STOP [J]Dw& OR LIST [L]j1< LOAD [O]TAB x ERASE DIM TAN G5USR ▛INT a OUT INPUT ABS hS RANDOMIZE [U][H]F%SQR LINE OUT }N LPRINT LEN W$ PRINT VERIFY [T]hY LOAD SGN ▟Kp[R] PAPER 4e▚COS CIRCLE )r©AT INVERSE INPUT ;@[B]SCREEN$ RUN Uv>= RANDOMIZE "O[M]TAB RETURN +AINT BORDER CLOSE #fSx ERASE [P] TO =dASN [G] READ (BCODE DRAW
