| Является частью релиза: | The Sucker Demo |
| Размер файла: | 23296 |
| md5: | a38d5190634cc95ef580f0e356509191 |
0 REM ! LET <>"CHR$ / STEP I] NEXT GO SUB {=/ LLIST ! RESTORE !v RESTORE CLEAR THEN INKEY$PEEK *O/ FOR 0 CLEAR © GO SUB y!@[M]P GO SUB [ POKE / STEP =1eNOT @[M]
2 POKE 23693,0: BORDER 0: CLEAR 39999: GO SUB 3: POKE 23693,71: RANDOMIZE USR 23872: STOP
3 RANDOMIZE USR VAL "PEEK 23637+256*PEEK 23638-2358": RETURN : REM ! GO SUB J0u% GO SUB VAL NOT 0u STEP [C];; LLIST n RESTORE INK MOVE INK !@ RESTORE INK x RETURN RETURN CLEAR OGy INK w$ LLIST LLIST # INK LLIST DEF FN !X INK x RETURN RETURN CLEAR OGy INK w#xLEN OVER CLS <> CLS CLS CLS f CLS SCREEN$ U CLS ( CLS *TFN P CLS *( CLS [Q]U CLS * CLS [Q]T CLS PI CLS FN @((((/ CLS RETURN COPY **,<<=[Q]@[Q]PPEEK | IF PRINT *(??>=[Q]T LIST COPY CODE U((*=??SCREEN$ T CONTINUE DRAW CLS * CLS @ CLS *SCREEN$ U,=> CLEAR <_CODE CLEAR >= CLEAR <>CODE @ CLS CLEAR ?= CLEAR < LPRINT USR LPRINT LIST SAVE |>?? CLEAR <?? IF DRAW CLS LIST COPY CLEAR <??<< LOAD RETURN < CLS (((<?? P( PRINT *( CLS @[Q] CLS UP[Q]P CLS .??AT ~ COPY OUT CLEAR <?? DRAW LPRINT CLS ? CLS DRAW LPRINT CLS 0 CLS CLS < CLS CLS CLS >= CLEAR < IF |<?*(<??>=A[Q]USR LIST ~((* CLS CLS 5U(*)>=[R]} REM CLOSE #SGN x CLS ?? CLS SAVE USR CLS f CLS COPY RETURN x CLS ?? CLEAR <CODE MERGE IF =USR *58<<>>?SCREEN$ USCREEN$ U*( CLS @ CLS @@(*(,<ATTR CLEAR ©??> CLEAR <=? LPRINT x LPRINT CLS [I] LIST > CLS ?==<<IN CLEAR COPY O CLEAR ((>??>= RESTORE IF ] CLS CLS @*A▘C| LIST CLEAR USR =?> CLEAR < LOAD 8 CLS c~NOT f< CLEAR CLS COPY CLEAR cc© CLEAR c©`~``© CLS CLEAR c>cs{ogc? CLEAR ? COPY CLEAR ©`~``©|fccf| CLS cw© CLEAR c? CLEAR ?cs{ogc|fccf|>`>c> CLS CLS CLEAR < CLEAR COPY CLEAR @@ CLEAR USR { READ CLEAR CLEAR USR <80 CLS 6? CLEAR ?cs{ogc CLS CLEAR cc> CLEAR c>cs{ogc©`~``© CLS < CLEAR ?>cc?>>cc?>©`~c> CLEAR CLS 9© CLEAR USR @ CLS CLS BORDER CLS USR @ CLS CLEAR COPY COPY COPY COPY LIST LIST SAVE SAVE COPY COPY CLEAR ? COPY COPY LIST LIST SAVE SAVE COPY COPY COPY COPY CLEAR LIST COPY COPY COPY COPY LIST LIST SAVE SAVE COPY COPY 0088 COPY COPY CLEAR COPY COPY CLS COPY COPY CLS COPY COPY COPY COPY LIST LIST SAVE SAVE COPY COPY 0088 COPY COPY CLEAR COPY COPY CLEAR ? COPY COPY USR USR LPRINT LPRINT COPY COPY CLS COPY COPY CLS COPY COPY CLEAR ? COPY COPY USR USR LPRINT LPRINT COPY COPY COPY COPY LIST LIST SAVE SAVE COPY COPY CLEAR 0 COPY COPY qq LLIST LLIST CLS ( CLEAR 88 CLEAR 0 CLEAR CLEAR 0 CLEAR 0088 CLS LIST LIST SAVE SAVE 88 CLEAR 0 CLEAR <<>>7733 CLEAR CLS 88 CLEAR 0 CLEAR <<>>7733 CLEAR CLEAR 0pp88 CLS CLEAR 0pp8888 CLEAR 0 CLEAR 1133 CLEAR ?STR$ STR$ ▝▝ CLEAR CLS ( CLEAR CLEAR 088 CLEAR CLEAR ? CLEAR 0 SAVE SAVE LIST LIST pp88 CLS 0088 CLEAR CLEAR 088 CLEAR 11 CLEAR 0 TO TO GO TO GO TO ||<< CLS CLEAR ? CLEAR 0 CLEAR DRAW CLEAR 11 CLEAR 0 TO TO GO TO GO TO ||<< CLEAR 088pp CLS CLEAR 088pp CLEAR 088 CLEAR 3311 CLEAR 0▝▝STR$ STR$ LLIST LLIST qq CLS ( CLEAR COPY COPY SAVE SAVE LIST LIST COPY COPY CLEAR 0 COPY COPY COPY COPY COPY SAVE SAVE LIST LIST COPY COPY COPY COPY SAVE SAVE LIST LIST COPY COPY CLEAR 0 COPY COPY COPY COPY CLS COPY COPY CLS COPY COPY CLEAR 0 COPY COPY CLEAR COPY COPY CLEAR 0 COPY COPY COPY COPY CLEAR ? COPY COPY LPRINT LPRINT USR USR COPY COPY CLS COPY COPY CLS COPY COPY CLEAR ? COPY COPY LPRINT LPRINT USR USR COPY COPY COPY COPY SAVE SAVE LIST LIST COPY COPY CLEAR 0 COPY COPY 99 COPY COPY CLS ( CLEAR COPY 8 CLEAR 0 COPY LIST SAVE CLEAR COPY CLEAR 0?? COPY SAVE COPY 80 COPY LIST SAVE COPY 8 CLEAR 0 COPY LIST SAVE CLEAR COPY CLEAR 01 COPY <| GO TO TO COPY CLS COPY CLS COPY CLEAR 0?? COPY CLEAR DRAW DRAW COPY CLEAR 01 COPY <| GO TO TO COPY ?? CLEAR 0 COPY USR LPRINT p8 COPY CLS COPY CLS COPY ?? CLEAR 0 COPY USR LPRINT p8 COPY 8 CLEAR 0 COPY LIST SAVE CLEAR COPY CLEAR 013 COPY 9q LLIST STR$ ▝ CLS ( CLEAR CLEAR 08 COPY CLEAR SAVE LIST COPY CLEAR 0?? COPY SAVE LIST COPY 80 COPY SAVE LIST LIST LIST COPY CLEAR 08 COPY CLEAR SAVE LIST COPY 37><80 COPY CLEAR COPY CLS COPY CLS COPY CLEAR 08 COPY CLEAR SAVE LIST COPY 37><80 COPY CLEAR COPY CLEAR 0?? COPY 8p LPRINT USR COPY CLS COPY CLS COPY CLEAR 0?? COPY 8p LPRINT USR COPY CLEAR 08 COPY CLEAR SAVE LIST COPY ??3100 COPY ▝STR$ LLIST q COPY CLS CLS CLS CLS CLS ?©© CLEAR COPY NEXT LPRINT SAVE DRAW RETURN RETURN CLEAR COPY BORDER CLEAR CAT BORDER CLEAR COPY CLEAR [P] CLEAR COPY NEXT CLEAR RANDOMIZE NEXT CLEAR COPY ▙ COPY r NEXT NEXT CLEAR COPY s NEXT NEXT CLEAR COPY ? NEXT CLEAR COPY CLEAR RETURN CLEAR COPY CLEAR r CLEAR COPY CLEAR s CLEAR COPY CLEAR CAT CLEAR COPY CLEAR DEF FN CLEAR COPY ~~ CLEAR COPY CLEAR s CLEAR COPY CLEAR RETURN CLEAR COPY ~ CLEAR © CLEAR COPY CLEAR [O] CLEAR COPY CLEAR r CLEAR COPY ©© CLEAR COPY CLEAR RETURN CLEAR COPY r~~ CLEAR COPY rNb CLEAR COPY CLEAR r CLEAR COPY CLEAR r CLEAR COPY CLEAR r CLEAR COPY CLEAR © CLEAR COPY CLEAR CAT DEF FN CLEAR COPY CLEAR [O] CLEAR COPY CLEAR r CLEAR COPY rrsr CLEAR COPY © NEXT CLEAR COPY CLEAR ©? CLEAR COPY NEXT RETURN RETURN DRAW SAVE LPRINT CLEAR G CLEAR G CLEAR B CLEAR G CLEAR B CLEAR G' CLEAR E CLEAR A@ CLEAR GE CLEAR ME CLEAR M E CLEAR ME LIST
22529ioKRVAL$ LOAD CONTINUE MYTAB PLOT TAB a DATA [A]eJYSCREEN$ LIST Nsuck.p DATA @@ RETURN RNDn DATA dRNDAT READ %AT GO TO UVAL$ SAVE DATA lO2358 LLIST mm[A]b@[M] INPUT @@SGN v<>c@e<>SCREEN$ " LINE 1 LINE RUN h RUN h NEXT GO SUB s!_[M]▞[w MERGE GO SUB VAL [A]e INK ! VERIFY [M]<> GO SUB VAL 1 LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE INK ) LLIST A0 SAVE INK (g; LET o GO SUB VAL TAN ; LET PI CLOSE # INK ! CLS [X' INK 1e CLS NOT [A]e RANDOMIZE B#F READ READ STEP R; LLIST BIN 4 LIST LN [ MERGE GO SUB VAL <>©~[A]e ERASE [ RUN FOR [O]NOT + VERIFY DIM SAVE ACS ( RETURN ' RESTORE nO NEW g#POINT ▞© COPY AND O GO SUB LN LLIST AND PAUSE R FLASH NOT CAT LN AND ] RESTORE VERIFY LN [U] POKE LN [M] STOP "LN ,!TAB f"RND▗ COPY POKE # COPY "PIf DIM '/[O]; CLS STEP [H]"k▝ COPY 8[M]! REM NOT @? COPY ▟/ RESTORE !G} LLIST w LOAD TO BRIGHT ef DEF FN VAL$ 8[M] TO "POINT AND IF ATTR OR > STEP LET POKE M$0 REM } BEEP >©0 RETURN [M]h OPEN # COPY !Hq"g OR DIM LLIST | LET RESTORE STR$ STEP RagNOT CAT COPY COPY ASN THEN x LINE +- OR STEP POINT 3STR$ *e/6▛# COPY q[J]4p RANDOMIZE PLOT " COPY COPY LIST <> LOAD '8 STEP [S]- RETURN >=y/O COPY xG<> STEP T CIRCLE CAT OUT FOR |MUSR )PI THEN ? COPY 0 PLOT <>▝g▗USR B DRAW STOP SAVE DIM LOAD DABS O[M]©:Y/[T] OR OR ][N]/ LET [I] IF 6©<= TO DRAW ▜ RUN ?c▙< DRAW x DRAW kl DIM sv< RETURN [D][M]7g|▝ BORDER 1 PLOT BORDER fm PLOT NEXT wCIN DIM (▛?01 COPY CLEAR RESTORE BORDER STR$ CODE [S][J]M IF ;uq9 RESTORE .< GO TO 1 FLASH PAPER $▛LEN DATA SCREEN$ DEF FN [J][N]w RUN /[E]cfPOINT ABS PRINT o CLEAR d[C] CLOSE #AT [H][R] FLASH PAUSE <>ATN ASN LIST FN 8 PLOT ATTR qL OPEN #js|a DIM 3 LPRINT [D]>ACS SAVE DATA 3Q8Y BRIGHT |)[C]d CLS [B][P] BRIGHT >= BRIGHT f>q REM ▝4I[D] VERIFY ACS +c COPY ©[J]$ STOP FOR RESTORE COPY <>Q OR [M] PRINT !~H(▜[B]) RUN FORMAT [F] LOAD CLOSE #[D]$gg| COPY /a STOP $[R]▛ SAVE DIM EXP w TO TO DRAW COPY CLEAR xTAB OPEN #▙<> IF CAT CLEAR STR$ osL[M] COPY ` PLOT [M] AND COPY [M]) FOR (> DEF FN [P]<=▝X[M]% PLOT RESTORE UcINT VCODE ▗INKEY$>= STEP [M][T]WLEN FOR x1 POKE [P](II GO SUB L~ TO NEW DRAW OUT (TAB g PAUSE _ CONTINUE 7 COPY <8~'y TO PI1 CLEAR [Q]IN LIST [I] ERASE [H] BRIGHT ( COPY TO BORDER [M]o NEXT ▙y OUT SIN " TO c:*= RUN [F]x[U] OUT 62: CAT RANDOMIZE PEEK PAPER _X<>1[T] CLS @ INK [J] COPY 0_ INVERSE ▖ABS POKE OUT ▘#% DIM [F] LIST CLOSE #f CONTINUE u[G]S BRIGHT FOR 9▚m▛Df▙ BEEP SAVE READ zK<=c[K][A] LPRINT DATA [I] CLOSE #▘ STEP ▙<= COPY FN CIRCLE HR READ SIN ▞vSGN VAL gC DIM m^<> SAVE CLEAR SQR ) LET [D] FOR 1C: CLS USR uSIN ▗ READ &9 DATA COPY LET 0 READ ?IN 8 OPEN # DIM < INPUT [F][F]/EXP o1GPEEK REM DATA SAVE 32| DATA LINE COPY STR$ MOVE TO USR sd& CLEAR LOAD [B]_ RANDOMIZE COPY ©<= FORMAT ERASE INK l PRINT c[C]? SAVE [R] COPY &c LINE OUT ▘USR "$^<=x[D]INT o BRIGHT VAL "(s<8 DRAW <=$[P] RESTORE LPRINT BRIGHT Nc▙B SAVE J NEW LOAD #O GO SUB SIN c INPUT {[P]USR >[I]<=*#ZHL NEW [D] OUT <> RANDOMIZE p%s DRAW RUN RANDOMIZE btSSGN <fLN BRIGHT lT▙y[L] GO TO INPUT <=ct DEF FN Dc▙d LET L DRAW [I] SAVE NEW 8[M] DATA [I]SCREEN$ ▛ BORDER }[C]CODE OPEN # COPY e OUT [M] CAT rl>= REM rL NEW COPY J SAVE [J]IY STOP i DIM <>1 POKE COPY v PAUSE <=$ NEW n CLOSE #c& SAVE >=_ MOVE [C] STEP [U][C]O?g<=tCODE CLEAR AND ][J] CLS + CLEAR IBZs[F] COPY ▟:&z REM BIN ▘$ DIM OUT * LOAD RUN P[C] NEXT n SAVE POKE cb PAUSE RETURN <=▗9 <&POINT POKE LIST BORDER CLS PLOT PAUSE 2xP CLS [C]d( LET n FLASH COPY s| PRINT OPEN #[M]USR CODE <=-TAB STEP [J]% POKE [R] COPY IF PLOT _<f SAVE DIM SQR BORDER [L][M] COPY COPY >< RETURN TO r2Iq!▗t9[M] OR 9 SAVE [M]>= BORDER COPY c THEN STR$ [J]!trUSR B NEW OR O[B] MERGE REM REM GO SUB [Q]VAL$ NEXT # MOVE STEP br NEW ACS G RETURN COPY STR$ PI TO Zr VERIFY G!hi-, CLEAR [E]r[M] MERGE BRIGHT LPRINT [M] INVERSE PAPER *~>r#" DRAW CODE <>!0u?[A] SAVE ~z NEW USR [Q] COPY { AND _ CIRCLE z VERIFY W<>{ CAT TAN FN [C][I] CLEAR I' LLIST VERIFY M A©, LET bJESUICN4.TO!▞IL LLIST 'Y CONTINUE NEXT M9[M]-'▘be&▚ MOVE [S] READ 'mad fo| RETURN ln*[M] INVERSE INPUT mbarcqs▝ DRAW OVER DIM NEXT LIST COPY BORDER topJ BEEP right nowV LET [B]&[M] NEXT ` SAVE qVE[G]▜|STARYVAL 'LEDY~"(COS OU'Rz CAT PEEK AND INK LINE ON NEXT ! DIM UR▞E DRAW HI` TO @ CAT ▙ BRIGHT ?SABS SAVE elco[P]USR mPOINT MOVE uckg LPRINT er BORDER ACS /TAB U>[P]CK MOVE SCREEN$ [M]COS DIM WHY'yr<I BORDER COS C<=z LPRINT [P]TAN [J]▘yeah,[A] LIST I POKE LLIST e s:gag- OUT B<>weca{[N] TO OR 'livEXP RUN [I] BORDER [N]gRNDalySKIN z[N]4 ERASE n RETURN [C]NOT g~ RETURN RJHVAL [S] DIM OPIDG[f.OT SAVE [D]INT BIN V LINE sE@ FORMAT AT▞`.& SAVE POINT m;3C/BAN RETURN l© NEW LIKUSR DATA CLEAR DO▞LEN BORDER <IN NGR OPEN #UL DRAW E''B DEF FN PAUSE ;CODE V CAT NOT ILNSTAN th CAT CHR$ a DRAW mwstPI BEEP upinp+/s[O]IN COPY H' MOVE EN COPY SAVE ▝ VERIFY $no, wr>=`g BRIGHT D8d DEF FN N PAUSE [M]how OR JNOT tine8g[M]BIN t BRIGHT LLIST c LET //. k"P(/ DEF FN POKE 8[P] COPY DIM ct0[M],ybe" v[I]w[P] MOVE LEN LPRINT hLN POINT DIM ▛USR X[M]. LIST $SGN SQR l LIST p FORMAT BEEP $ POKE zu▖[F]<.FIN AND `o2 CIRCLE FORMAT %H, NEXT ©+R MERGE [M]MY HOP0 INPUT [F]MS2i▜I@ATN MERGE M CAT FOR ▞.[K]AT CIRCLE [P] CLS /9>AFN a go[A]p2g>=amE|i'[O]th RANDOMIZE Y;[M]▚ RETURN RANDOMIZE DIM WAY INK CLOSE #PSI-CO STEP O[O]▗UR V[G][K]MUd▚CH[O]S[E]'▚[K]h[F] 9 DRAW [J] DIM FOR '& CLEAR OR [J]yBIN [N]▙@ CAT TO F*JO COPY CAT K[N])Ipsi-co LPRINT [M]n+ AND ew EXP )r[P]t STOP [U]ACS [U]ATN PEEK H NEW INKEY$if>=&< NEXT |SQR n RANDOMIZE be[K]▖ TO SAVE vlN GO TO 9fu RANDOMIZE PLOT .f NEW ACS setNOT i LOAD CLEAR LET .]©BIN tail, RANDOMIZE [A][U][H]LN c REM 4 RANDOMIZE PI 7[M]of,©O&[C]CHR$ PAUSE FLASH 'adIN 8 IF TAN READ :ABS L OR TO DIM k BEEP p GO SUB tf DEF FN dL!kATTR E VERIFY g"GPOINT VAL$ DEF FN TO @ PLOT hUSR Z DIM BEEP $O.<[O] COPY WELmM STOP ITHFN W©rS[E]STONEb@D CONTINUE RVAL$ PI IF BIN GETA[J]#[M]X GO TO [O]FLN CIRCLE [B]4~SIN ATN LOAD FORMAT ERD T_X RETURN [M]LEN LIST HOWIN ▙ DEF FN g INK INFO STEP SAT INPUT z NEXT HY COPY SEM[Q]k LET WAg▖ PRINT w>=nIo[E] REM IF [O]e CLS ughwdg PAUSE LxINT fZm DIM t1▞io POKE PLOT l DEF FN BORDER PLOT BEEP bef CAT Q I'7KNVAL$ 9iLDO|i|qL REM 'uh-oNOT _ DIM [M]L COPY ▛ar NEW { COPY ▜h[M] CLEAR *s.>=",H INPUT TO VERIFY 3J SAVE CHR$ LEN OKA9 BORDER nNnG RUN GO SUB S IF [M][J]6Y [U] DIM g7 BEEP Y ERASE CHR$ CR'3oTOv[U] LLIST FN , BORDER 9%FN 's^orABS ▗!:Gmo LET ?COS VAL STOP NEXT [U][J]<=pecy INPUT CHR$ vre[D]8+`[J]< PAUSE u NEW CANQUSR VAL FORMAT [N]▚ OPEN #R PAUSE BORDER C< CAT KBIN BORDER BORDER YTHP DATA ELS.TAN BORDER WRr~[C]E[P]b[M]TAB [K]L[N] NEW yyve PAUSE zbZ2vgq GO SUB 7`~VAL$ SAVE CAT DIM M RUN fur)/ READ DIM RANDOMIZE S {uth?&y NEW SQR RMSGN [M][C];do STOP VERIFY OPEN #[S]k LOAD INT OPEN # al ERASE dy DATA STR$ .[M]n▝(V▜>▞ NEXT u©[T]r!wit, NEW NEW , Col[D]O$[M]]#1 CIRCLE w STEP a bATTR FORMAT iS+ OPEN # FLASH + BORDER ▜k DEF FN BO GO SUB <> CIRCLE uL(R[G] E[K]9XCQN` BRIGHT GVuSGN TFULxVAL i>=-[M]PI▛ FORMAT LLIST A OUT [F]MP CLOSE #NOT I OVER RANDOMIZE [M]SMOKE BEEP & INT DEF FN CIRCLE ||ATN STUFJ1<=oAG+HE?' BRIGHT ABS C[K][G]G)SQR ^ DIM INPUT C&ACS .HE OU[K]INT UTfTAB Hn:EFAT CCb STOP L DEF FN [U]WFN 4M PLOT RGU▚V CLOSE #R6DN'kh DATA P[N]TAB "LN PAPER [Q]N0u]H[C], TO uv© ERASE <C INPUT . n4▞ BEEP STR$ mid(LN ASN Rbl CLOSE #y8he OR RANDOMIZE [M]ATN INPUT ^ BORDER suc PAPER anV DATA ▚+iva FLASH | NEW OVER gu OVER i RUN LN [[M] BEEP A<>4CnAN:ACK RANDOMIZE B LOAD SAVE bjes/[g THEN (PIa▜lsiz LET 3 PLOT FATTR hairbf>l[N][M] CLS INK f[O]P BORDER C IF taAT CONTINUE 8 NEXT DATA DIM *J`5 LET TAN WERFO[P] DATA L DRAW RANDOMIZE RRND)[A] OR [M]|J LOAD SGN SAVE [G]LINK IF SGN SH CLEAR AD[T]| GO TO GLU28(THINKEY$SCREEN$ DEF FN 0<COS 1[K] CIRCLE d'sJ9 VERIFY pASN ed PAUSE CODE LINE INKEY$SCREEN$ s ? NEXT Dke LIST RUN cn't [A]NOT coa PAUSE [O]B NEW FORMAT lsd[O][P]ymor▚!I(MR4[C] RETURN N3FOp[R]P ▟/- MERGE B|VAL$ DY?NTVAL Xkn DIM INK GTAN PAPER =ESCOS n OR [J]▜1dja FOR RANDOMIZE vou LOAD ,lPLF COPY [S]dG OVER DIM AND ?B PRINT T) MERGE '[M]wo DEF FN CHR$ . STEP ph▖ LIST q>=of▗[M]ASN achquy0kl[H]a[B] PAUSE yCHR$ s~ OR -/0^L PAUSE MABS WO?{[G][U] INVERSE DATA ITYC4> PRINT ONAMJ.RSC LIST CONTINUE OR [M]WoYWQ PAPER LIST 7EXP [C][O]j,% CLOSE #A NEW nts REM [A]▗! CAT LINE en CLEAR omG MERGE VE@[E]9[N]G VERIFY -W[S]LN TAB [J] LET ATTR ▙t6F[M]u_kLN ul DRAW fave THEN [M]l5MbUkz[S]]TSQR c' LOAD ATTR MURiv!PEEK 5? RETURN READ CLOSE #kay▛TAB .k!© FORMAT PI&▚m COPY -p DATA a<=I PRINT me▜[D] NEXT REM sTAB p- DRAW b_QNy▖".3 APATN ATN R[F][O]TAB CLOSE #` ERASE + DIM IRLZY{D[R]k REM [P] CAT LEN fF LU PAUSE C0uATTR [M]- STOP ms~gs<$sH[J]< BORDER rePEEK 2Vy dinR NEW PAUSE y[B];d PAPER ?rs&gATTR VAL 4 INK CAT /$ GO SUB st LIST ng CIRCLE FOR [B] DIM [C] bLEN TAB [P]▚ NEW ASN alU MOVE e CLOSE # FOR n4LEN Jla DRAW FORMAT RIGHPEEK A" FOR CAT LN vbFLASHB+COS POKE POINT }U: LINE N FLASH ▗ LLIST e READ VAL$ ijuPI▟d}#bSQR dSGN #[M][K] RETURN L> IF foam LIST (.1© LOAD day OUT /OCOS LIST SASN POINT RANDOMIZE <>E B&'0[M]^<=M%5 NEXT PIwotX STOP MOVE -I]▞pM RETURN b VERIFY USR N PAUSE INK REM INK XOI{ MOVE VERIFY VERIFY 8 CIRCLE M LIST W[K] PAUSE ND READ 9[G]9OWNbSIN S LIST Es}n[M](w+,ACS INPUT acts,[M]8WN THEN run3 POKE MOVE RANDOMIZE STOP [Q] FOR SAVE is fabx▗"Nn OR Uv!h0s[F]<>[J] OVER RUN ' FOR BEEP ©ASN [O]Z DIM nABS m`[M]RNDfwa NEW r9T RETURN ©-Y BORDER TAB [G]93TTAB ",9▞[T]$k^ LOAD LPRINT VERIFY # PRINT T COPY BORDER !kPf%S DIM T, STOP STEP N BEEP =ACS A?R OVER DEN DATA )-gATN le+j7pd[C]PI[P]"mLEN CAT [J]pd" RANDOMIZE s MERGE PAUSE up3UDIik LLIST [ RESTORE NOT [M]a4e_ CLEAR vilnq DIM [J]p}"▝ DIM V8kTAB [M]/ INPUT tw[B] RANDOMIZE OR ry CONTINUE SGN DIM PIINT <b)kIi OVER ▛ NEXT LPRINT -NO GO TO [ABS 3?[P] IF TIMEKEABS LPRINT "[M]^oKc@% PAUSE J.TAL INVERSE kB▝ cJS CLS 3[N]jD~▞G RANDOMIZE 7E2Lh,[H]fuX PAUSE VAL$ &Z LLIST VERIFY a`$SGN NOT d DIM LINE NEW Tr CAT VAL$ E AND r INPUT n,] OPEN #`lNVAL$ SIN LN %▚AT Hq PAPER INT dis NEW CHR$ lv[A] BRIGHT r>SGN FN ▝ PAPER SGN -kM DATA [B]ASN IRNDD?S BEEP BUYAT PZLEN O LLIST ACS *EvCOS READ OR [M]>=)eh?v[N]'mAtZOu[S]LN [M] LIST *ce CLS G4 LOAD wrrfTAB uNOT o DRAW wOVAL$ [N]oca RESTORE )mhUnd X DIM p] PAPER COPY NEXT alY[F]La[T] CLS USR TO FOR CLS p TO ? NEXT { LINE [T] MERGE MAYBq REM E IT GO SUB AAT INT NEWrB:©COS [M]" STOP ahSCREEN$ BEEP kgunkdN CIRCLE LET L> OPEN #[G]S1IN ACS POKE O0A TO 'SON IF Ek!ISGN uf 5S(<>ATTR REM yEp3 NEXT DATA WHAT BIN VAL CS LOAD LLIST VAL$ FN <=vx DEF FN STOP : GO TO 3dVAL$ HP PAUSE CAT COPY tSCREEN$ I MEAN>VAL$ <> DRAW x PAUSE NEXT GO STEP SAVE THEN Kv$ CAT Y<=I[F] THEN J RETURN [J] DIM Y[D][{A DIM LET FOR RUN BORDER 6 AND 0SIN Tg[O]? OPEN #RAATTR CLS ;EUCHR$ X- STOP DSHVAL$ qq GO SUB SCREEN$ (q [N]`HPOINT "LEN f!M3G[I]TARYTAN * NEXT V#US BEEP # RANDOMIZE 1E'8,I CAT H▛ INPUT FORMAT TO<W+ RESTORE [J]M%!3O,( NEXT TAB PAUSE T STEP )[M]lLN uAT BZWRCOS OUT URND LIST 4[C]p STEP DIM , FORMAT OPEN #' DATA >▚Y[D][J]g▚ PAPER CONTINUE DELSIN N( CLOSE #E MOVE [M]LPcr[J][M][C] CIRCLE ATN <▜ CLEAR D DATA READ Y[O]>= STOP 5Q FORMAT zCODE FOR COPY d ERASE COS SAVE OR STROYI['1USR rC PRINT TAN FACbF STEP :WSGN VNOT /NTgHI PRINT WJc MOVE DIM DATA ▞ GO TO TAB E> CLS j>=IR*A MERGE u[F]B#?em FOR ▞[M]SCREEN$ ▛Q/ LPRINT SGN ▖[U]Q REM FLASH TC( PAUSE ▝MOSj CLOSE #~SGN HVIOUATTR NEW jSCREEN$ Lb[P]|SGN m RUN OT LIST BORDER NY▗ POKE DISK<=[I]© LLIST / DIM TA< [T] THEN INPUT [Q] DEF FN SIN VAL$ TH INPUT [K] PAPER !L^STR$ K CIRCLE IF DIM CAUNOT 5 CLEAR POKE STOP NKFN &[M][F][J]{aEj▖ LOAD TO DATA RUN GEhATN [P] CLS CUSR ▟[U]B NEW I FLASH NGy1[F]$^SGN EXP SAVE ? INVERSE r+D CLS FIXE PAPER LLIST DATA %[M] BORDER NEW zH2 STOP b AND N7[M] DIM [D]VAL$ STR$ KRND DIM TO 6SQR DATA ERASE u?R$S▘[K]M ERASE [O]T[M]x STOP v@-eT NEW STOP Q PRINT cf CIRCLE Is COPY c NEW r REM ehk~t8*l[U]VAL f BORDER STOP VAL !oEXP MERGE [L]CODE 'n PLOT [U]Ie DRAW [D][C]w COPY ACS STOP BIN ATTR 1d REM INVERSE COPY [D]OcG[M]TAB ATN fBk DRAW USR ASN USR ; REM xNOT godSGN Jdxheg[I]oaCOS [M] INPUT `b[R]F REM CONTINUE ▙om▗LEN gt NEXT SAVE yshag[I]VAL$ TAB ▛9 DEF FN 3slg CONTINUE ▚+*▙[E]3 REM IN E<=|▟UASN 2i OR [K]<=ud BORDER GO TO NEW /[F]>=cPEEK RANDOMIZE ▘kqPI38ALEN PEEK ▙FUNKtVAL$ RANDOMIZE CHR$ : DIM YATN ACS ▟^ FLASH ▜O FORMAT HAVPSQR qP RESTORE ATTR zB SAVE SCCHR$ SCREEN$ NR VERIFY ?M▛/[M]( LINE :KowRNDH[P] REM FLASH ▙ DEF FN I LPRINT W. TO F<>LCOS FN ▗NOT xrmA8KINT STR$ DEF FN [C]I7xs`ASN Usk DRAW NEXT SGN ATTR s1vvr GO TO FLASH {RND-o RETURN h ERASE mj PRINT <>[U]{t DEF FN 9l OR >[N]TR[M]SM[K]GSIN [A]B|▙m, CAT DIM FORMAT REM STOP R▝ STEP .[G]YySIN [A] LET } AND [H]LN ?toPbMPFN [Q]fu NEW sVAL NEXT LEN take7 BORDER BEEP ▛ DRAW H21a/j@m PAUSE ynINT VAL$ ▘[B]z▛ASN d1TAN OR [M][I])VAL$ q.[C]y LLIST >"Z3CODE ▗[N] CAT LSGN Y COPY +EINT 8 OPEN #,bAT AT ^[G]CHR$ [B]▟_[F];|G92) LET DIM gT![A]femg,[a[K]9ATTR r[E]SQR l[D]g5j,otu[N]|J GO SUB GO SUB _db[J]9_s. INK URND0 DRAW LIST REM ofRND6cubiABS Bb STEP RANDOMIZE r[J][M]N0 FOR iZe"[K]rPOINT LEN tt▚[J]t SAVE rSCREEN$ ,( STOP POINT NEW #[T](p PLOT gjf SAVE ASN jEXP w LINE 9r-RNDbo TO VAL MERGE 6a▛ATTR (RND SAVE T&VAPORAT [F]1CF[P]? DIM MAN! COPY ) PRINT 5FN ( OPEN #A INK KzdSCREEN$ CODE ump[O].Q;vly DRAW rL SAVE ACS s©[J]A CLS [G][A] BEEP [J]xtr}WAFN POKE :LN LPRINT B[I]2O LINE FORMAT LLIST SCREEN$ EACS MERGE 9&s<>HgSCREEN$ d CLOSE #p[K]-[M]3 COPY |4aspo LLIST ;SCREEN$ 2 BORDER USR TO y>[B]%mxI[M]61TAB hb[L]r{I, s▜ BORDER mok GO SUB OPEN #'▛[D]USR DIM CLEAR P[A] REM RTYNE▝<Wt2&EXP LLIST PBm>=EM1 MOVE *yCOS /s REM AT GO SUB 5yCODE SL CLOSE # DIM [N];LEN p INPUT n BRIGHT NEXT "#IX▝[D]|u OPEN #C[M]v TO SQR COPY SWTAN g?S CAT POINT PSI-▜TAB COSTR$ DRAW RA▟Wd*[M]▖ IF _'u DIM we LIST DEF FN [M] INVERSE PAPER TO KAM▝?ITf7 GO TO 2in▛ COPY zD DIM DATA .[M] FORMAT ▛▛ POKE ?LN 8ACS VAL$ RNDIN ;COS CLEAR AT POKE LEN &/c THEN PAPER [F]9FP1 GO SUB F PLOT [M]INT IUSR RP[J]2▜ATN [p[O][S]<>erSTR$ RNDca LPRINT ▜y LIST @,N LINE GO SUB PT STOP TO OPEN #▙▚[R]s DIM ▗[M]L)▜LEN INK HA[J][J] GO SUB Q8TAN RTAN U.▙ GO SUB +J`[yenSR&[N]<=-8LE COPY A COPY S RESTORE L COPY SAVE k OVER INPUT ( OVER <_V-&hp[D]%TAN J(MlC~ow OVER SAVE O RETURN ©J DIM +[A]pT9 REM 0o DIM @RFN SCREEN$ CIRCLE ▛▙ DEF FN BIN REM gSTR$ !PEEK 5>VAL POINT D CIRCLE ATTR Ws▜j[O]IS[S]-▘▗, MOVE ▙gq|]c▚ CAT >=say INPUT o FLASH REM COPY A DIM rd OVER '[M]O▖IPEEK +RD POKE RANDOMIZE I5t0"Cz LINE ▖ LOAD I OVER FORMAT LN K@YEXP STR$ i[P1[F]RVAL$ BEEP DRAW * PRINT COS NEXT INT ASN z-oug ERASE "DSCREEN$ ATTR {USIN ISCREEN$ MERGE &'b▛▛^`, CLOSE #!4STR$ 9[M]COS CHR$ i/ PAPER R(s{o PRINT /fwDans BEEP VmPI[E] BEEP <BIN eakSQR 5m[B]k.ajy[M]y FLASH DIM ACS ATTR d"/LR7[S]s PAUSE PLOT n'h, MOVE ePOINT POKE [J]3#[C]/ DATA s_ATN ▘ MERGE NEXT pi<>USR sf LET [M]STR$ ;k[N]RNDYo INVERSE y OPEN # NEXT [Qats d[D] NEXT LIST V'ACS ls CLEAR [J]EXP ][O]RNDF NEW j NEXT BORDER IN clX>toPEEK 2 DIM PEEK fE PRINT ?qTendsV DIM cV INPUT q[N] RANDOMIZE CLOSE #^ASN !▖8 BRIGHT ad THEN g STEP INK EXP far!Sm} BEEP BIN ATTR xM COPY b RETURN OL CONTINUE p DIM Z▛▜, BEEP TO [C]YU DATA RESTORE LPRINT [U]"o INPUT ; RANDOMIZE COPY .ah,INT PAUSE DIM 4 huS[M]▖t STOP IihATTR lzV1kritFN STOP * INPUT xASN n[K]f9UrY THEN DRAW VERIFY VAL FORMAT :SO INVERSE B BORDER <= ANOYjINKEY$Hg▙AB[U]U RUN DBIN IF O[J] DIM U STEP DWNBr PRINT ACS IN /h[M]<>▛FN UMPXE[I] OPEN #loOFQ/JU REM Pi CIRCLE [O][K]VAL @f LLIST <WN INVERSE LEN TAB D9 BEEP BORDER G[LEXP )[M] FOR BRIGHT n VERIFY TO o przb5 OPEN # FOR <uk PRINT [K]CODE wh[U]." READ 9SP' REM Q[K][M]s POKE iU OR r4 IF g NEW cifE STEP ][N]RY bHU>as" INPUT BEEP :RNDw$xlff, DIM SAVE lSQR [B]cNfI LINE k LIST FLASH BORDER / BRIGHT [U] BORDER ▗ DIM LOAD OR facIN g[T]~erPI LOAD : CLEAR VF5Y GO TO IN IF 4 DIM (▝AC RESTORE TO H DEF FN &R▚ READ CHR$ FORMAT OVTEPL:y.R TO MOVE INVERSE YB[O][I]SCREEN$ S[L]SGN Tu:[H].1, NEW -SCREEN$ h[N]|supq[H]*t CLOSE #y TO vkr$g! PLOT DIM h![M]j#4 FLASH [' MOVE Fb VERIFY VERIFY sh-P3Wr< RETURN +g INVERSE SCREEN$ POINT MES©ATTR AGSQR ND[N]$[M]z▛Q4"m IF ^d[O]os LET -~DABS t5 LIST BEEP LINE [K] CLOSE #FN STOP J a~NOT DIM CLEAR ~si OR [M]' OR REM WRO>=@:sT▞] REM 6 BORDER Ime INVERSE REM [M]fipYon_ MERGE PAPER OVER ;[M]K[M] OR UMQA) GO SUB FN cACS VAL$ VAL [F] NEXT RETURN ▜H{ OVER DEF FN ^%WO STOP Iai= L0XATTR VAL$ ▘f) INVERSE G THEN b LIST 6z[ VERIFY qzUyw LET BIN YPCOS u><= PAUSE ithR+po TO LINE *xKi NEXT BORDER IN fu7 OPEN # DIM '▛▛&= OR STR$ WN©,| STOP BPOINT RC-A COPY (m ch INVERSE " STOP `USR . RESTORE gj READ )STOPASN COS _▘6 DRAW DRAW /z DIM aA[M]INKEY$ GO TO Z PLOT ©,Y/z&[M] CONTINUE y COPY a-ATTR NOT &iPgRND ERASE wJ BEEP -▟*u CLS SAVE TPEEK 2S^%PIVAL$ HANTAN "NOT LI[T] LET A'[M](hLEN N[A]3, FOR PI DEF FN HA CLOSE #f}&[ DEF FN CHR$ - BRIGHT L]>▞ INVERSE 2s&Ac GO TO OPOINT <▛H RESTORE !LO BRIGHT BIN NEXT ▗'M REM LEN -[F]D OVER ACS !cau7 IF U LET i'[O]CHR$ REM EXP DIM AT OUT /otsiYM[L]INT [P] FLASH LOAD <G LINE EXP Foult49/m COPY ZRPI COPY T COPY -SH▜AT <=P4USR YH>= CIRCLE X[M]BIN PRINT POINT V?[B]%USED©>WI BRIGHT FUg TO ATTR 2SuPOINT r CONTINUE [F]y PAUSE TOd/:[Q][J] DIM N MOVE [N] STEP bSQR OR OR gO[Q]S OR OR m POKE 6 INVERSE OR LN 8 OPEN #PCOS mFN K MERGE OPEN #AT [T]e RUN S STOP OPEN # POCHR$ 0[M] RUN k REM ,INKEY$KZ GO TO RND=|>=WE▝|5 GO SUB OR OUT REM , PLOT W DATA p,#W:POINT K@PEEK PAPER `RNDCOS W FOR ATN MERGE [M] LLIST ▟G1 '[B] COPY @y&26 IF DEF FN N>PISIN SGN ID MOVE B DRAW INT ABS BRIGHT SIN STOP ]nU REM -[S];KxN,SQR w▞ RESTORE U!Nd LLIST TUW RETURN [T]D<[M]om DATA ]3 SAVE lCVIo PRINT nULD[T][Q]ikus>" DATA p BOUSR DIM OVER CAT LPRINT USINKEY$diAT fer[P]E PAUSE RUN iCOS [U]*[M]FN hdE! TO COPY BRIGHT BEEP OR DIM sent CLEAR cPOINT YlZ MOVE [I]cN' GO SUB DIM RUN <>k[R]X/[M]EXP #5l[U][N]: VERIFY [A]row upqLEN h4RNDzq}7PARORNDSQR INPUT HjY8s8q OR <>bWVAL$ ? eUn LIST <ACS [K]f[M]O*SCREEN$ <> DIM 9 COPY CODE puk INPUT )[M]▖etq> TO !E?LN ' PRINT TAB /0yLN [C]tSQR .POINT < OVER ERASE y'vIN 2NOT TAN nCODE pLEN TRMIN CLEAR iRND[E][T] DIM -▗r CLOSE #p COPY Py[A]▗[M]SCREEN$ SCREEN$ B@FPI INVERSE OPEN # OR ISE© CONTINUE ▘YC[F]CN LOAD /POINT ?f'qPIMOV* READ TX9dABS lG MERGE ~ LPRINT _H6(gulpIN OVER uASN XzMYGTAB ]Gn[S]K GO TO WCODE 5O COPY D(POINT RETURN DIM M3 BORDER MOVE [M] CLS ;KLN ATTR 1 VERIFY ▛;"GRO?H NEW LLIST y[M]ATN /c[D]sABS LOAD HUSR @G" NEXT [R]2[M]b% STOP ABS VERIFY CAT ng[U]5{rGEXP UY LOAD stj>=s10k.0t DATA IN z ago[H]'[M] RANDOMIZE STOP MERGE :MfITAB 3>A VERIFY EXP COPY mIw;[Q] CLS [B]*▟e OR nN`i MERGE k CIRCLE x.P▚ FORMAT [P]"T SAVE S VERIFY OCE LLIST + DEF FN LEN ▛oc[G][S]B RESTORE [H]x RND RANDOMIZE PRINT {RNDfitb&VAL$ INK ]bSgCOS 6 POKE JOT STOP NOT N-[D]COS o INK BORDER as[M] LINE 't STOP VL NEW PAUSE j RUN RESTORE :N%# DRAW WpeoPIATTR <= IF USR %x DIM q▟toWC▙SCREEN$ gCOS BEEP COS ▞(x,SIN TAN LINE 'R▖[N] REM r[K] BORDER 4▞> RUN RIBIN STR$ Z DATA )▛[= GO SUB SCREEN$ FOR SCREEN$ k RESTORE PRINT DEF FN VERIFY CLEAR sDp~[Q]cosG4 LPRINT CLOSE # BORDER w BEEP p} DIM REM [E] COPY LEN qSIN [C] DRAW jTO LIST PRINT 6LN GH DRAW I RUN EXP r[C]ht>=[M]j PRINT }sv GO SUB y. VERIFY LN COS d[P]*j=r[T][P]8[M]$LN VUCOS (<=+ LIST s AND U FOR REM QIN DIM _@ AND OUT ~f* NEW RANDOMIZE STR$ i VERIFY FLASH Jy REM [A]q RANDOMIZE INK g PLOT OD IF INK SAVE BEEP Z. INVERSE E'FN TAB wNTAN ^_FLY5?▖ OR BW-HAR)RNDFN Z[L]a RANDOMIZE [I] BORDER `PL STOP g MERGE ! CAT BEEP DHASN CLEAR IM LEAP8< OUT SGN BUIDnABS NGSW'E OPEN #([M] CIRCLE ~=DGY BORDER G RESTORE AT PE CONTINUE 9 GO SUB TAB NEXT DIM J/(OMAT IF n CLS /[M]J<> PAUSE " FLASH Ve THEN kSIN VAL$ [S]]% OPEN # NEW IHEXP uTAB P'▗ NEXT TO PRINT DATA <>ASu BORDER MERGE NOT o^k#VATN ZueSCREEN$ TxwA VERIFY r<=%COS [O]wASN pun_5 DEF FN LOAD PAPER ff OUT USR BORDER OPEN # STEP ERASE IF READ NLN SIN rP[S].[J]@ INK SIN INT SGN CLOSE #CODE SAVE 1h l[K]AT CAT [U]©M's[S]9 TO [B]& [D] DATA PI[N] BORDER ERASE CODE ACS se[O] RUN c LINE K VERIFY speM DIM NEXT USR ©CODE NEXT 1[R] CIRCLE FKN5 PRINT STRDreA TO YPK CLEAR gR RETURN LY-[M]HD[K] STOP k[L] CLIF5 CLOSE #R) CLEAR <=>=$i[O]t[F]*PI}{ VERIFY LINE [H]t[T] OR INKEY$iSQR MERGE M STOP ad w[D][L]BEF[Q]q"[C] CIRCLE VAL$ CONTINUE zACS ▖,AT DIM Z DIM D BEEP BORDER NEW c[F]y typ+© CLEAR VAL$ .[M]SH: LIST VAL$ OPEN # READ 6 IF ATTR FLASH BORDER kY[LE CAT Zy RETURN MARNDGN OPEN #INT 8 LIST M4ON▗ VERIFY [M]D6[A][N]U CLOSE #~l POKE " CAT INKEY$ NEXT lp▞ RANDOMIZE OR imagR8 PAPER <>,bo COPY COPY tkm DIM YAFUK[M] BRIGHT [F]`$/ NEW GH VERIFY RANDOMIZE COPY NOT 7[M] DEF FN INKEY$'s<= CLS nf(PIPOINT wIlX[T]2PMATTR AT kTAN TAB $|wEs51[T]▘▖o/ PLOT ▜kn STOP o RUN { FOR 0 DRAW OAN CIRCLE SIN M DATA BIN Gm DATA PEEK ' CLOSE #y RESTORE W[J] PAUSE NEXT STEP FSGN FOR mv LET [J]X8=Nl): INPUT CAT KS INVERSE STEP LKNlCOS LIST NOT [K]S CLEAR T&J[M]COYd INVERSE :6YINKEY$ DIM -" VERIFY +[P] PAPER O BORDER C THEN FR▝ BEEP M[I] STEP CAT LPRINT E POKE REM CHR$ inBIN S[G]0%VATTR THEN Vnd[Y BEEP OR CLEAR POINT 4 READ OUT +d[F]▝e OVER PLOT <= PAPER w[M] BEEP o STEP 9 BEEP ▛ifSVAL$ BEEP [O] CAT BORDER d DIM AT ADEBIN FLASH PU IF RR" AS COPY W RUN ~N.[I] DATA LEN ve OR VAL INT n1 FOR RETURN ee PRINT l[A]▚zuLEN FLASH /ACS [P]urlS7[N]3u RETURN dge-pack▟▙ STOP [I][N]%g CLEAR j THEN kfoEXP [K]d FLASH n[ STEP SCREEN$ REM ntre MOVE ABS ERASE alNOT [M][J]4+[ATTR INT DEF FN )IBBs MERGE FLASH zet REM ;fSGN ▞u[H]▖ INK ACTUP[O]_ INPUT RITE CIRCLE V-(!VAL$ s BRIGHT KINKEY$ FLASH )-n;TCHR$ ▞ DATA `CB5O[J],8SW[T]gPOINT IN h pdofPOINT [T]Z TO nV'"COS Wb NEXT [H]DATTR 8nPOINT RANDOMIZE Y LOAD DIM AVISSGN /E}J DEF FN DRAW 8 BEEP RO NEW ▘[K]IN TO FLASH RESTORE LLIST S[A] RUN (UCKb}g PAUSE OPpr[G]O OR ^WATN Hj CLOSE #M▚T STEP COPY BRIGHT RK ERASE 4[M]w BRIGHT (9Utyn DEF FN [J]v'}< INPUT ur COPY LIST ,VAL$ REM TAB VERIFY Og VERIFY ▘) DEF FN C BEEP LET HAIR>1SCREEN$ ▟myn PRINT COPY aR([M] DIM ]COS [I]FN *[N][N]5▟AW INVERSE POKE OUT = STOP ;y▞_o DRAW CODE 9[U]AxO DEF FN EATN -le[Q]g[R] FLASH ACS dAT FORMAT AGAT Xo[M]R1 CLOSE ##▚.[J]bM[U]jB9T? NEXT EXP INKEY$ DIM CODE _ohT$q> CAT &bro,Z[Q] PAUSE jPOINT [D]iT:$ars[G] CLOSE #eV[J]dUSR BORDER : SAVE lock*[L]/ RETURN FN ▘KABS DIM CONTINUE " CIRCLE POINT BRIGHT VIL[K] NEXT LPRINT LUPR-M-' FLASH t'[M]EXP ▖PSGN +ASN o PAUSE MATTR CLOSE #*ATTR ▖ POKE MERGE [F]VAL LINE irA?sCOS ▘R>=VAL$ A COPY xNq[T]JUi GEPOINT [C][I]6LN 8 CAT CLEAR INVERSE $; OUT INT (mo STOP <>p>=[T]VAL$ YWA[S] ERASE dhASN [J]VAL$ INKEY$T3[Q] LET aFUNK" RESTORE [B]kPPEEK OTRNDSIN ?[M]I[M]y`<>[K]a▖S[J]lS<&[M]i PRINT ©spy INPUT }nbCODE :P[ CEAL LLIST [D] ERASE ! LOAD ehM2 STOP STOP INKEY$X67G BEEP f FLASH 9Fm LIST AND FOR ,ACS r+<= PAPER OR ▘+ OVER 6' LIST [M]C1F[E]r▗l [J][VAL$ ysa>} RANDOMIZE ig CLS ouncy[F]` SAVE h COPY # RUN crb CLEAR vy- FOR *[M]/[T]S DRAW RNDINKEY$OUGHyCVAL$ VAL$ ACS ^LI[F]G3 IF BORDER TI DRAW ` PLOT [M]pACS RND -Z[H] OUT lqq[C] READ HB©N9 PRINT ( DRAW fnar[D] FOR DIM ky[F]! COPY [O]][K] AND FNUTAN Q/ SAVE IF BORDER P)[R][M]ATN b CLOSE #d~/COS VAL sLEN ▙▗m[B][P] NEW s,[M] GO SUB /[J] gay STOP SCREEN$ l▟%& PAUSE d PLOT 0 OR PAMlC%COS R STOP TO SOG[A]SGN SIN CAT TO LEN IF LINE ' CLEAR fa[F]k GO TO CIRCLE fAT # MERGE / REM SIN CIRCLE ▝ FOR Zg#9BIN pT+SIN 8zs=CODE >=TAB N[J]gh FOR UXx CONTINUE VAL$ YIN k` CLS ABS n[I]k_/RNDXIVAL [K]!l5POINT $U[F]+ CAT [M]}i jZq^/TAN DIM [J]ABS ABS WmEHx>2cywV[I]j9SCREEN$ $[J]@ VERIFY NEW w53 VERIFY [T]"d!CODE RND PRINT THEN pl[D] TO OUT T talk[K] PAPER }a STEP LLIST [H]Wl[G] MERGE kfr,) VERIFY POKE #$cglU2[E] OR '▛[U]g&i[U]PI nN CLEAR CLEAR /W DATA N RESTORE DM1 RUN DRAW INT REM aRCI9 COPY [L]DCODE [M]BIN INK Sq NEW <>ATTR [S]%▘ NEXT SO PAUSE f© CIRCLE rsTAN [M] DATA [J]8SCREEN$ [U]($([F] RANDOMIZE l▞uATTR 9d[C]yjPOINT tdPEEK [D]▛CODE MN~AT [B]3[I]I DIM B GO SUB %G VERIFY 9 DIM Y<=}[D]HOP2▗YNj CLS NGLy NEW CONTINUE ISTAB POINT TsN NOT FOR REM LEN GER-q▚CTAB +EXP 5+ak[O] STOP INKEY$cnVZgB AND CLEAR EX3 BEEP AND + OR FATN y[Q] BEEP STOP OY TP RANDOMIZE H[I]4T CIRCLE DRAW TBOGIvDq[M]VAL LPRINT ACS mo9yin MOVE 4CMN RANDOMIZE INPUT HP MOVE DIM [B]eBEASN TASN vOz MERGE (R$PIw,"|BIN lo= BORDER TO ▖D CLEAR M COPY .[E]PSQR # READ 7▙uR▙fECOS , READ ATN <> l.a CLOSE #Or ERASE w▘ DIM +C BEEP TO ] PRINT tos MERGE PRINT ©whyINT O DIM lO<>9[M] IF ?X' GO TO DIM FN ^t RUN LPRINT ▝rs'!▞ef DEF FN NOT ytSCREEN$ WarTE FOR f NEXT id THEN j=/[' ERASE ay<VAL$ ▚jo0 SAVE LET LPRINT Y DIM mu[U] PAPER ?gCf STOP FN F# DIM K AND LEN [H]L.AV BORDER POKE FOR B▚RjR9H>=wN|AFR STOP /I[G][M] POKE 22 DEF FN H PAUSE CY5 CAT AND m-[M] PRINT BFN INT READ SmA@R[J][G][L] LINE [M] REM , PAUSE N GeLN 6V DEF FN _EG▛CHR$ PAUSE LOAD OVER }[I]SGN DYACS G▘T[I]= AND Y6a DATA [F] DIM forg SsSIN YknY RUN PI[I]HSABS D▟tFMRNDATYIf[P]9MR▗l*,VAL$ ▝ATTR PILN K[D] RANDOMIZE do BORDER FASN DRAW RUN UV CONTINUE 4[M] DRAW ATN GO SUB 1 DIM CIRCLE NOT RND'/,USR L// FORMAT H REM RESTORE _ OR DIM KB RUN DATA ASN &LI RESTORE # CAT POINT PILN CLEAR BIN it5*USR CAT FLASH /^/oinyVAL$ )ABS INKEY$VAL LIST CLOSE #m▗.[J]0 DATA & BRIGHT tINT PAUSE egR COPY w COPY ASN NEXT ERASE READ v MERGE [P]PUY MUCHAT ▚bINT ATTR LEN aUSR [G]SIN ! DATA U[B] FLASH 1T&q[N][T] GO TO H[D] FORMAT INVERSE GE PRINT U[3- CLEAR D▛TAB POINT TSTR$ p TO BL8WSLEN 0[S] CIRCLE rq#3: COPY qQID ERASE = LET ~WE VERIFY PEEK DEF FN g<=lPIS)% OPEN ##eN(SCREEN$ I[U]▞ INK q_@Z LET hav▚ 5 DIM (N PAUSE SIN VAL POINT DIM TO ^4&,RND[~[S] PAUSE SGN ▟a OR M BORDER RANDOMIZE NRND/OFsr[A] LIST ERASE P[N]O[A]FTkFN , FLASH 2< POKE R] BRIGHT LN 2y LINE 1.M[D] LINE }f PRINT YOU(r TO _[Q]kaACS STOP |[G]-co INK [K] CLS NEXT CAT . COPY PAUSE T LIST DIM PA-▜ VERIFY STR$ I( FOR TO P MOVE DIM [J][P]:[N] OUT ;CROPH2[N]ACS VLEN RETURN "[S] INK , TO [M]NnATTR LN [O]▝UVAL$ )U MERGE m BRIGHT ▙2g CLS FOR KIb[H]D-VAL ATTR Mf& MOVE &f GO SUB READ IF CAT xu RESTORE `- SAVE esza"▖ THEN VERIFY NEXT PRINT ATN INKEY$nks-[P][A]_ NYW© OUT VERIFY wRTSQR [M]=g RETURN 5-N GO SUB A,QVAL CLS BEEP OR ©QUIE CLOSE #u[J][K][U]SIN RNDr▚) RANDOMIZE LLIST LLEN ACS % PAPER S>5[M][J] CLS FOR [F] FOR ,` LOAD QATTR 9 GO TO 0©EXP [B] GO SUB SHg MERGE POKE OR {` LOAD LW"ICHR$ [T][K]IN THEN O[L] DIM Z6G{ INVERSE SAVE [P] INVERSE PI BEEP [M]T▛([H]MABS IK,[K]?U@FRIDGINKEY$ BRIGHT pSCREEN$ ▚[D]SWXksSCREEN$ ASN UP PLOT RANDOMIZE O3SGN HAEXP *r OR VAL$ ▛ LET PAPER [S]DUL LPRINT OUT YVAL$ OUT RANDOMIZE T (INKEY$N INK QfN RUN 0TAN faLABS De LINE $ CONTINUE INT qO OVER NS LIST z5Hu BEEP [M]02BIN 'V PRINT LINE +LDK AND XPLXPIABS DSCREEN$ CONTINUE THEN REM CV RESTORE B RESTORE PACS [C]IABS CODE ]▟ RUN N[R] FOR [& DRAW CAT -[F]>|{sh/tABS &dr[M]wVAL$ ' BEEP aW TO C INVERSE bla LPRINT f LET [B] REM CLEAR RESTORE bINT in RETURN u%' COPY @)ATTR Pr RESTORE SI-CPI,RJMTAN ACS YCASN FORMAT L ERASE T CONTINUE PAUSE E2/[M]O FOR STOP AT :hSc[R] INK WAT +-SQR VC AND VAL$ [P]? STOP Hc? OPEN #RNDSVAL$ FI PAPER ERASE DIM BEEP BEEP 6[M]yeFUATN ▚INKEY$ BEEP POINT ru DIM f| REM J RANDOMIZE COPY GO TO bABS *HhGu FLASH ]▞- DEF FN *[M] DRAW NEXT DEF FN REM ba RESTORE NEXT POINT [J] RESTORE OPEN #w INVERSE n▟USR di3 NEXT ▜ DIM ust BORDER CLEAR ATN INK fFN pudN OUT NOT [ POKE )erb RETURN s2Q IF MOVE IF ATTR RESTORE R& LINE 3Q OUT N OUT 'vaLN 5 BRIGHT MERGE s_}s'x<e91oCHR$ ut[F]ATTR BEEP NEW QAT PRINT Ye FLASH LSQR >=e1-AT NOT 5▗icS[ NEW lR OVER s RUN 7 LIST GFN BRIGHT kTAB [M]chADk OVER , I POKE FORMAT DRAW X2UNY AND 'Z>=/ STEP ▙ PAPER INKEY$ READ C5▟ 5 NEXT part PAUSE [Q] RANDOMIZE ERASE NU TO ofVp_" MERGE ,H LIST sPIINT /WrUSQR 2sn0 RANDOMIZE g2} LET HEY[B]? DIM CONTINUE VAL$ CHR$ RUN MERGE 3AT PRINT NG%'d[L]"FN (% COPY L© COPY 7[F] STOP rAY CIRCLE N DRAW [M] RUN POINT STOP STOP COPY 8 DEF FN I[J] LINE TAN RNDu1 RUN NEXT N.. OVER 4..SCREEN$ 7gM[D]EXP k$[E] REM u NEXT I! DATA T[E]CHR$ ASN >w<> STOP FOR ▜, INPUT TO LEN RESTORE PAUSE SID DRAW IF [M] COPY DATA STEP VERIFY - FORMAT RINK, NEW GO SUB m CAT IF ▝VAL POKE r▗[M]ap(eVSIN =PIY INVERSE LIST jC FLASH [© IF my LPRINT 1cTAN LINE BASN j PRINT [F]COS DIM DIM FLASH [J]EXP >=3PEEK CAT _ TO INT l)@ogiW[K]e RETURN LLIST ▟TyFN [R]?a TO RANDOMIZE =R DIM STOP GO SUB noPEEK LLIST NEXT TO " DATA OPEN # GO TO [R]it DRAW OVER PEEK * STEP SAVE IowsO$CHR$ TAN DRAW AT Zy LINE EXP Q FOR DIM nBIN SIN >kb~5I5P[K] BORDER DRAW c PAPER Z/[U]ATTR osidC[A]e$tR BORDER lfY©ic[D]#yACS (ACS ABS ▛ PAPER =8SGN BIN .gSQR VAL$ © x]u BORDER yes!am[U]T[Q]VAL$ o PAPER ff,[U] LINE BYSTR$ iok CIRCLE OR DIM INVERSE PLOT t IF % MOVE POINT tBIN PEEK X▞INT f CLOSE # THEN nTdFN n PAPER ▙VAL$ SGN CONTINUE ▞f.kf*EqVAL$ ▟P FORMAT ,*ACS gATN 0 LET ed-, DRAW CHR$ rABS /, LLIST ACS [J]wACS TAB 3 CIRCLE IF FN #[G] BRIGHT ▛▛VSQR THEN IF CREDIB BRIGHT ufEXP IF CO[E][A]T PRINT -S PAUSE [D]- NEXT WHENPOINT [R] NEXT zABS SIN LLIST [I] STEP uB[I] RETURN TR VERIFY STOP GO TO [H]9'K FOR 7INT 053[I] BORDER ▛V<=BkntPEEK !▝D, VERIFY :[H]WITCOS NOT uwND< CLS ATTR QSQR DEF FN <> DEF FN .][M]S LET TNxSTR$ IN LIST [J]LN 7N YKSTR$ DEF FN TO STEP LET ▙W LOAD INT [ CIRCLE O)[F]N} FLASH RESTORE 6 BORDER V DATA -PU DIM Mu5]SGN VERIFY b BORDER [K]TAB ▗[S]UP▛TV. RETURN <kDATINKEY$OFd([M]=[U]T MOVE NlATTR PAUSE !SK[C] LPRINT g+ IF CIRCLE lTIQH BORDER ] IF [G]BEY[N]Dr><P0EIB GO SUB 'PI[B]! DATA REM BORDER LINE IINKEY$r[Q]OP+m}ZyEw REM OPEN #d][D]UYASN OPEN # MERGE [K] ERASE 8 CLEAR [Q]MPI RESTORE LEN c DIM ![T][ DEF FN MERGE [U]i[R]DzH>=. DEF FN NEXT <>5E[D] IF ,_ LIST CHR[U] CAT [D]YLO*3 SAVE VAL$ T13[G]U▗>=)+j FORMAT >= TO TO <&[N] INPUT INKEY$ INK MERGE STOP . DEF FN [I] CLOSE #C^5SIN GB[K]G▚ ' INPUT M'CODE EA'Y LPRINT K[K]/'LCODE 4PI=IMLEN ePOINT DIM STOP KABS [C] RESTORE 2OI[ PAPER " CLEAR 'CODE wCOS POINT [K]OM CAT $ LINE 3W STEP L CLOSE # TO [M]coD"[S]rL STOP eY5▘SIN S DATA AT AND WBNOT ACS [R]jb MOVE B CLOSE # NEXT VAL 1 LET DOK RESTORE ASN BJ5P DATA BORDER 6▞gbUCODE ('Hz REM turn▗bl5[G] FLASH ytpltow]9▝ OUT =UR BORDER e) OVER ACS cY. ▛SCREEN$ WTUSR C COPY SYS[K][K] BRIGHT * MERGE - INK SCREEN$ G CLS $ACS kG©D[C]VPEEK ▗a[B] DRAW E CIRCLE B<>[M]10M MERGE )▜{LN U+@%70zASN b8S)L CONTINUE 1:3 OUT b[P]Db1S3g3 GO SUB 28IU NEXT ^3pATN ATTR OUT 3S NEW D0CODE DRAW UR TO d8VVAL$ POKE 2 READ LN [I] SAVE [B]X>=:33[ DIM nA▛[R]/[M]mPIi(e[G]POINT TO DRAW 9 GO TO f) NEXT LVAL DRAW NEW exVAL 5 TO :W DIM to}/$ BORDER PRINT wi DIM P"<> CONTINUE o 7[S]u BRIGHT IF r/" DIM AND 'V OR LOAD s7ACS wke= FOR 3[M]u NEXT lonmkc THEN [O] STEP LET sl,b IF pINKEY$vLEN quiASN CAT CONTINUE CLEAR STOP OUT ja VERIFY c PAUSE m BEEP APEEK laqLEN k BEEP X FLASH HJe& VERIFY >V3FWD5▞]lzWPYT[N][J]Ne BORDER WnVnPEEK X<=N4[Q]C.m RANDOMIZE 4geftYSQR 2 CAT SGN FORMAT <=SQR @FN YDbR RANDOMIZE UNj DIM R[N]^ LIST INKEY$SINKEY$, INPUT PRINT [S]TAB DEF FN INK >= GO SUB VB CLOSE #ATTR +S GO TO [O] MERGE D STEP [O]AT LEN 0PIksTAN VT NEXT y[A]Q MOVE n,`<h8a/b[P]AT INVERSE LET VAL MOS[F] MERGE T▖ DRAW 2 RESTORE q%POINT [J]S2 RANDOMIZE LINE PAPER D INVERSE CLOSE #WEXP PI DIM a* CLEAR ▛[R]O MERGE L[N])OW^ BORDER /1[M] MOVE DEF FN IFG)M.D LIST DEF FN [F]TAN }U MERGE k[C]' IF C[N]0 RUN PI!ATN dF>= zesABS [U]COS RESTORE ]RNDTISIN Fus DATA MERGE S▞VAL LINE AND no rsV FOR UmiRND3Ir[J]i2EYm NEW OVER POINT t: CLEAR G AND sM1 CIRCLE DIM ti</▙oM>= OUT E READ e[O]TAB ASN CLEAR AH▜ CONTINUE STR$ DZT OR TAN ATN ▙GR DEF FN TVGtZ▛POINT MDFN FOR GO TO O,ET CLEAR T[Q]yQ]<> ERASE V%" AND n2BIN kq▗[L]@gn[L]NOT by54rhFN IN ()▘aRNDSIN PAPER SCREEN$ LINE Q, [M]S[H]vL INK Z BEEP ACS BEEP QATk% RANDOMIZE RONG CIRCLE VAL$ [S][K]P;[O]▙?gK COPY RUN POINT % RETURN Y REM 'm just:fcATTR [E] NEXT g; RETURN ad,ATN 0[M] OR [L]VAL GO SUB %8[J] STEP AND LOAD @QSIN PSCREEN$ ASN [A]%sFN Y?PI[I]© AND [ COPY NOT COPY NEW Y[I]lmoLEN jFN SGN ▞b SAVE FLASH ttaswP>rd![D]< BORDER /▗( REM LET c) 195 AND V1tlVAL ATTR prXIEXP ▝ BRIGHT PRINT TAN USR [M].pi MOVE 1PEEK [F]ABS /ATN INKEY$PIn.m CLOSE # LOAD SAVE DIM CLEAR XKX RETURN CHR$ j!B FORMAT NOT TO AND /J STEP NEXT ~2 COPY "STR$ [M]<2 COPY TO GO SUB Sv[M]x MERGE PEEK 0 INPUT z! STEP USR 3 FOR "| PLOT ▜ PAPER q1▝ IF ▖▞▘©,p GO SUB VAL LLIST ▖©[N]CODE STEP ASN TO =2[B] OR ,[L] CLEAR RND▜NOT >© OR TO #" VERIFY [J] CLEAR [T] COPY STEP % FORMAT CLS <> OPEN #S[F] SAVE 7] FORMAT CLOSE #ZPEEK MOVE [F] COPY `. REM f/M DIM ERASE T OPEN # PLOT &$ COPY O MOVE PLOT CONTINUE IF COPY PEEK >=NOT f READ [O]^#V FOR N STOP <>_▜ SAVE COPY INVERSE v[M] THEN ©Jw LLIST OR B NEW g INVERSE ^0 CLEAR ~ PRINT NEW LIST COPY W LET DRAW o INVERSE THEN n>= BORDER O STOP <>:INKEY$ TO O!#PEEK © PAUSE PAPER STEP CODE O PAUSE i&) GO SUB COPY ▝[vN#~2J CAT yo<*[M]▞▝ CONTINUE 5BSQR POKE 1[P]<> INVERSE 5 LIST SCREEN$ COPY [C]`wINT " DEF FN O DRAW CHR$ [E] DEF FN :~©Q©[U] CLOSE #:u STEP *▝ TO ▛~< RETURN FORMAT SAVE %NOT uL DEF FN h DIM ▖ FOR NEXT INT [L] NEXT BRIGHT ? STEP PAUSE CAT *ACS [J] AND [O]" IF NOT PAUSE POKE ~ RETURN ` PAPER PAUSE p▜9 INK CLS 0 IF LINE LET SAVE ▝ NEW BEEP CLS ▘ RUN ▜ RETURN CLS PAPER DEF FN VERIFY [R][B] CLEAR COPY .&I[R] IF 6 COPY 9 DRAW #<> VERIFY ` RESTORE NEXT COPY c*|J [M] INVERSE t$[O] DRAW O# BORDER COPY <>CODE VERIFY p RESTORE )h~ RETURN ERASE 6 RETURN LLIST #NOT [G] VERIFY 2TAN TO F%SIN u GO TO RESTORE CODE CAT GO TO S*xASN FOR INVERSE uL:BIN LLIST FLASH ;USR =CODE s[P] PRINT N LINE TAB LET USR ^ COPY COPY POINT V!`~= IF PAUSE STEP O< NEW 2 LLIST EXP © FLASH <>yATN USR |2TAB TO 8ASN 1>= CAT RETURN ATN IF b LINE ▟ DEF FN [S]NOT [B]TAN NCODE [B] THEN NEW <> CIRCLE ?gSCREEN$ 9ASN ▟n RUN yVAL 2[D]8VAL$ ▘!R[I] VERIFY STOP USR DEF FN STEP omBIN DRAW ATTR TO !CODE 4 LPRINT [E]AT ▞0 PRINT DEF FN >=S[H] NEXT LEN VAL 8( INPUT I▚ FLASH POINT READ PRINT [P]V RANDOMIZE RESTORE ;FN ~<[M] SAVE LINE . CAT y2B INVERSE *[R][M] OR G AND :COS THEN ▖nVAL LEN SCREEN$ COS TO gPI[O] RANDOMIZE 8 CAT "ATTR THEN LEN o/w STEP DEF FN NOT % PAUSE RANDOMIZE FORMAT } PRINT MERGE INVERSE n"f=<xPEEK ▚ AND ▜_]O!e CAT ' RETURN SGN FOR MOVE LET THEN b([S]q STOP <>PI GO SUB R SAVE CIRCLE (LN LET ▖ LIST ` LPRINT XcCHR$ |7VAL ▟@ GO TO [E]▟D SAVE VAL 7p, LIST 4PEEK ▗X ERASE h PLOT h4[S]|[T] MOVE X8 READ F SAVE OUT ▟FCHR$ AT 4[A]{e MOVE hQ>F[T], AND ▟ DRAW LOAD ▟ LLIST VERIFY >=h4ABS SIN [T] MOVE FN [P]▟F[G]▙4~w MOVE hpkF[T]d^▟YTOh4KG[T] MOVE B?▟F;8452/ MOVE h,*F[T]'%[T][B]#F▟FF#1[T]16▟F© DATA TAN TO CODE ACS > DRAW RANDOMIZE VERIFY + COPY y[P]HIN ATTR = PAUSE 5 PAUSE OR FORMAT <>S RETURN FLASH ACS 0 COPY AT ▜ POKE COMPIL3 DRAW E▚@ CLEAR SAVE [M]* DIM SAVE VAL XP GO TO RANDOMIZE /[Q]N[J][J] CLEAR l CLEAR ▛ CLEAR POINT CLEAR >=LN [I] CLEAR NEW CLEAR RESTORE [H] READ SIN LN INT STOP CIRCLE C CIRCLE INPUT COPY COPY COPY ^2▟8SGN > FOR $*I READ COPY 0x6PI< VERIFY #"o}(4!.c[F] NEW LET [P]IMsQU2Z/ CLEAR ]▝sJ IF D'Gu CLEAR VERIFY ? BEEP THEN m DEF FN [R]x PLOT [Q][M]yw NEXT RANDOMIZE ▙ TO q LIST REM Cd IF REM INPUT ▞V4[Q] FORMAT @ NEXT INVERSE I2 LOAD CLEAR PLOT !5 OVER OVER SCREEN$ [D][D] PAUSE ASN DIM AT J[J] IF POKE COS /$ LPRINT ASN IF [U]j[S]ABS REM ▜[C] CIRCLE PRINT OVER [O] CLEAR LNe LLIST DIM READ [F]$ OPEN #[T]FN BORDER CLEAR B[P] VERIFY PAUSE / RUN ▝dTAB TAB ERASE E3n CLEAR CLEAR STOP COS [R]▗ PLOT RND[P]8BIN r[C] CONTINUE GO SUB COPY R TO LU DIM PVAL$ 9[C] GO SUB j<>NOT SQR BIN HX DEF FN INPUT ▖ POKE DRAW LET CLEAR <> FORMAT DRAW G INPUT CODE 3a RANDOMIZE {<=8EXP a▝l PRINT ▘ LET o INPUT [D]INKEY$ RANDOMIZE [L] RANDOMIZE CLEAR ▙@ MOVE PRINT RANDOMIZE [D]f RANDOMIZE RANDOMIZE K RANDOMIZE CLEAR [U]I▝ BORDER RANDOMIZE [R] RANDOMIZE 8STR$ CLEAR BIN >= NEXT SAVE yY RANDOMIZE lR[M]b8COS X CLEAR N CLEAR lBSGN LN x0POINT ( LPRINT ORND1[U]/[S]▝▖▘c[T]66 SAVE } READ CLEAR &[R]1 RANDOMIZE COPY [S]jp`M1f READ [R][S]/ COPY ,q* RUN ">= SAVE ▚c[T]3 CONTINUE 4[R] DRAW 16 STOP E[K]SGN d OR [U]p[M][S]eqp RUN TP+~▖ SAVE DIM FN ▞ OUT SAVE )[M]4FN 3a IF ▛ PAUSE UzC CAT einVfX IF CLEAR N=[U]u;:PI SAVE NOT <=y CLEAR [S];RND CLOSE #:8 BORDER OR [U]6INKEY$7 VERIFY LIST hNOT 8(SGN [R]▝<=a READ ' SAVE F0 DIM BORDER 8[M] THEN |[R]+USR | READ ATN 4[S]6[T]8:A▞>=RNDFN [R]USR () TO ▚▞ OPEN # INPUT [U]COS ATTR [R];[S]@[T] DRAW LET BIN DRAW =-AT yo[N] OR HX[F] CAT 4[G]B INVERSE [T]. OVER CIRCLE 9▚(▙[D] LIST uc OPEN #:' CLS .9@[R] OR xINKEY$ BRIGHT READ ' COPY PEEK Z COPY [R]jp,! COPY .[T]/[S]?[R]@[G] LET PqPEEK ;=[R] DATA [U]ATTR FLASH RND;▟D>= IF [S]PEEK ▞ MOVE POINT [U] RETURN kw0[M]@PIBX NEXT BEEP INKEY$?[S] POKE AT 1' RESTORE INT DIM ?PI INVERSE DD"@BF[U] BORDER 4[T]=pDBSTR$ )G LET COPY JCODE [U]▝g;INKEY$$!VAL .[G] PRINT [M]9[D]t4J3RNDABS LEN LIST RND>=*W LIST >=[Q]▟H DRAW <' SAVE b DRAW d&eDd COPY IN J[K]T8;STR$ PAUSE COPY d`b+Hh LOAD AND VAL DRAW 4<CASN ACS [Q] TO >;NOT LLIST STEP CIRCLE @▞` RANDOMIZE PRINT g RUN GO SUB < RETURN ! COPY INK G! GO TO CIRCLE COPY CLEAR @ OR MERGE [M] COPY COPY GO SUB [Q] MOVE STEP 5 INK STR$ LOAD <>z NEW USR {/ COPY AND _ CIRCLE z VERIFY W<> TO LLIST © CLEAR STOP READ FN LPRINT ©▝8 COPY COPY [N]USR DRAW ' DRAW CLEAR COPY x[B] LIST ?[N]7 DRAW [M]▞ RETURN 2© DRAW COPY I BORDER DRAW OUT DRAW DRAW ▜1 INVERSE 3[N]NOT RUN LIST DRAW G DRAW '1 DRAW SAVE g DRAW 6$2' DRAW l<=|q SAVE SQR DRAW ©D[M]Gs▜[H] RETURN DIM SAVE t[K]? SAVE DRAW LPRINT COPY AND ERASE g[C]▞TAB [M] INVERSE Nz DRAW USR = DRAW _ DRAW /[U]s DRAW OUT DRAW LOAD [Q]NOT C DATA DRAW STR$ EXP ▘ RETURN ▝[E]q[O] NEXT RETURN A DRAW OR [D] SAVE 1 DRAW 9©NOT LLIST [M]8,91 DEF FN '{TAB [D] PAPER y▚ LPRINT AT COPY LET LPRINT B TO [D] STOP LIST SAVE LOAD j'}4-[O][M]|OS[B]▞gIN BORDER SAVE TO < LET ` DIM INPUT LPRINT CHR$ VAL$ JSTR$ L< PLOT NOT LPRINT ©CHR$ `9 BORDER DRAW ▘p POKE AND x SAVE BIN <sINKEY$ DRAW DRAW TO ABS CIRCLE DRAW [D] CLS L DEF FN }&# CLEAR DRAW DATA ' LOAD NEXT @©'& LPRINT SAVE VAL DRAW NEXT ? CLS LIST 3 FORMAT USR #o RETURN g CAT 5 CAT cSq BORDER DRAW SAVE LIST REM EXP DRAW LEN STOP DRAW LIST COPY LPRINT LLIST G PAUSE DIM COPY b:x DRAW STOP | SAVE ~1g PLOT > SAVE DATA ? SAVE GO TO qbIN SAVE [P] OPEN #3 FORMAT SAVE LPRINT INVERSE ▞~IN 8"© 9 DIM [M]3PEEK INT ` DRAW p< POKE MOVE LIST 0 LOAD DRAW [G]q RANDOMIZE >=x▚|<[B] SAVE RETURN >[C][U] SAVE DRAW ]ASN y DRAW l POKE ~/©M: RUN ?NOT DRAW <= DRAW z LIST DRAW 7>=[E]©USR BRIGHT Z▗~ BORDER CLOSE # OR p CLEAR LIST DRAW Z/© FOR [U]ABS ▖F^ BORDER DRAW VAL FN SAVE <[A] COPY 8;© LPRINT |~? LIST tM$wPINKEY$▞LEN DRAW LLIST DRAW USR ©<>y DRAW DRAW LINE K1W SAVE ?ATTR [J][C] DRAW ERASE DRAW aI(< STEP ▖O4 DRAW ▖ CLS ▖©f1A (p$1F CIRCLE [E]9'x LPRINT DRAW FORMAT # DIM ▖ SAVE > DRAW DRAW db CAT }▜<>L LLIST NEXT POKE AI0 RETURN VAL C[C]?1[M] LPRINT POINT CLS hr[N] PAUSE DRAW 1"[A]$ PLOT ▜yb$▞[G] LIST [G]w[I][M] OVER DRAW [M]j0x[N] DIM ▟[D]! FORMAT >=▜ LPRINT PAUSE SAVE $SIN ▝IN POINT THEN kN~STR$ RANDOMIZE S`W[T]3>y[A]F;▜5 DRAW Pz PAUSE SAVE k DRAW W^ DATA DIM STOP READ ASN FORMAT j INPUT ^▖1[E]BIN CIRCLE ▙W CLOSE #+IN 8[J]l;[M] OPEN #▟x>YXUSR TO $[B][H]$ RETURN LIST IF DATA [B] FORMAT ; STEP DRAW $q0~| TO [J]`N LOAD ▜PEEK [F]NOT g VERIFY H DATA DIM ?[U]> DRAW LPRINT ~D FORMAT DRAW LIST [M])RND[M] LET [M] NEXT [M] READ [M][J]O LOAD [M] OUT ©x[M]|[Q]" PRINT /) SAVE [M]BIN [M][O] DRAW 9▞[O] CAT POKE H STOP [O] RUN OVER RANDOMIZE [ FOR [M] CLEAR LLIST INPUT [O] SAVE USR ▞ FOR RANDOMIZE 8U[M][U]j PRINT OPEN # BRIGHT LIST DRAW DRAW DRAW RETURN Q > RESTORE < DRAW [P]r2 RETURN [K] RANDOMIZE ©'[M] DEF FN ^ RUN ]▜j~W[K]a DRAW d&[K] RETURN [A] DRAW SAVE [K] COPY x?▝|fb DRAW SGN ©NOT INPUT IN [B]ABS LET SGN >[R] DRAW COPY { ` DIM RETURN 0[M]▝[S]T[T][T]"▙ DRAW BIN H[O] DRAW [M] GO TO q<=COS IF ©[B][R] LOAD [R]sk DRAW p MERGE 8 MERGE k& LPRINT [R] DRAW l DRAW SAVE STOP MERGE IF GO TO PAUSE STR$ BIN [P][R] CAT "[M] READ ▖R IF VERIFY DIM COPY ▝ GO TO TAB ▘RND[E] DRAW STOP POINT NEW DRAW DATA ? DRAW TO FOR [M]VAL ©>='>▙,s[M]y@ATN `[T] LIST 0D BORDER [T] SAVE OUT POKE < DRAW CAT | RUN <= RANDOMIZE ▙o CLEAR [P]O NEW PI NEXT #[M]tN LIST b DRAW NEXT DIM LPRINT ©|d LLIST Q STEP @ DRAW POKE s[M]k#D LPRINT DIM FORMAT ©w LINE ▞!N▗F_ BRIGHT USR © SAVE VERIFY 9 [Q] DRAW [Q] RETURN I[D][L] CLOSE #|[[B] CAT DRAW f{ DRAW [M]▟ BEEP +PI DRAW RUN ▙v CLOSE #ATTR ACS ~CODE ▜TAB DRAW @ LPRINT _ DIM ([I]'CHR$ LIST ©8 DATA ?LN LN ▚[Q]sStIN I DEF FN RETURN LLIST FLASH INPUT [Q] BORDER LATTR DRAW BIN " DRAW ACS F DRAW PAPER kv* FOR [S]▞▟ RETURN PRINT ]COS CONTINUE R[E] FORMAT L FLASH RANDOMIZE CSCREEN$ A SAVE [N] LPRINT DRAW [U]LN DRAW BRIGHT [Q]SQR [I]H7▖ECOS { NEXT VAL$ @[T]Y% REM ERASE V>z DATA NEW [E][F] POKE DEF FN RETURN ![P]/tW DRAW , DRAW IF 3>=0 OR DRAW [T]RNDBIN OUT CLEAR NEW COPY {q*` PAPER 5? DRAW STEP 0z MERGE "Y STOP d DRAW ▟?▚ STEP ▘ CLEAR RETURN CLEAR [R] kCHR$ .[E]1{[O]3 PAPER 7 ERASE xs AND |COS A[D]POINT zSIN PRINT [L]I DIM [H] DRAW CLS DRAW IN [C][F] CLEAR RANDOMIZE ▖[H] DRAW 5EXP 4 INK p[N] DIM POINT IN FLASH 8 RANDOMIZE DRAW VERIFY {BFAT CAT [R]z[M]z RESTORE VAL$ IN [S]" b THEN SAVE BRIGHT DRAW $[J] SAVE GO TO RETURN N TO DRAW OUT [B]BIN [L]TAN CLEAR /[U]FN LIST PAUSE [S] DIM RUN -%ASN O DRAW }34+ DIM < MOVE FOR EXP READ [M]s FORMAT |[R] DATA POKE N[R] LOAD LIST DRAW B FORMAT READ 0y SAVE <%! OPEN #c▝ OUT RETURN INKEY$IBIN DRAW gCODE LOAD NEXT INKEY$D;%[M] RETURN _J[E] CLS LOAD SAVE RANDOMIZE ▚W'/ASN ~cj LET > DRAW DRAW [N]& DRAW [M]©▗VvUM'^a LOAD LPRINT SGN ©[E]& SAVE [P] NEXT ERASE 7 RETURN 8 LIST 3 DRAW H▞ SAVE [L] RANDOMIZE AT {^So DRAW DATA VAL PAPER THEN ){ OUT MERGE CAT ▛ FOR PAUSE [M]©jh/0[F]O[I] LPRINT c[I] READ ySCREEN$ NEW IN USR PI FOR [S]; LPRINT TAB [O][R] SAVE INKEY$ POKE ' RETURN DRAW RETURN L~SQR ! DEF FN >© CAT DRAW |[H])(G[E]CCODE [M] DRAW CLS CLS RETURN DRAW / ERASE l RETURN [L] DATA <'[M]? LIST [R] SAVE [R]WjG8 LPRINT STOP ty:[E]-FN 2[I][I] SAVE Ix▗ OPEN # RETURN SBIN g▝PEEK '▜ DATA OVER ![N]k DEF FN OUT RANDOMIZE © DRAW [D]ASN _aRND/ LIST t DIM )[E] DRAW ~/ RETURN DRAW % DRAW DRAW ^[G]LN PRINT | RETURN qr INVERSE [L][M] INPUT `IACS MERGE FN [I]Z RETURN >[J][U] LIST 4 SAVE F& LIST DEF FN [Q] OPEN # COPY @ >0 LPRINT LIST n DRAW fCODE PEEK MOVE NEXT IEXP & PAUSE IN l▛B OUT DRAW ▖ SAVE -[S] FLASH ATN VAL$ [U][[I]u^ SAVE ][T]LEN n DIM USR cj FLASH BIN ©[T] MERGE p [E][G] PRINT liA[U] BORDER PLOT p INPUT x VAL [I]( OVER h<[T] FOR >.8KCHR$ LIST OUT {[N]~[P] NEW [U] DIM [C]▜ CLEAR O NEXT GO TO z DRAW DRAW NEd:▞/ DRAW 5Lb DRAW IN 8[G] LET TO o[Q]u DIM p9USR r FOR [H]0Xx[B]▚[J]0[D]8OM& RETURN QCHR$ ▛▚?1 DRAW INPUT ▜<= RETURN ?▞ CAT RUN OUT CODE ][F]USR [F]Z[F]STR$ CLOSE #SCREEN$ BORDER NOT RUN C LPRINT COPY DRAW cIN RETURN a? DRAW 3N DRAW 1© LOAD COS &*AT INT [M]![H] GO TO RESTORE USR STEP PEEK ▜^` SAVE [H][D][M] NEXT 8 ` DRAW D@A/ LPRINT NEW © LIST LIST PLOT 0 SAVE RETURN ▞ RANDOMIZE COPY RUN Z[USR 1 LINE +i DRAW STR$ " MOVE IN NEXT IN Xk PAUSE `▙pg FOR [E]CHR$ DRAW 8 LOAD ▞<= OR o▟YTAB p3[M]LEN [M]9>[H]5?[H] LOAD `L&[B]h<#▞i([H] DRAW SAVE 8<:@>USR TAB NEXT DRAW COPY © DRAW ▗BIN VERIFY ATTR LIST ~CHR$ ▛[S][M]CODE SAVE xIdS| LOAD SCREEN$ DEF FN ▜< DRAW >MTAB SGN [ VERIFY TO [P][Q]©[K]|g DIM ▝4{e RESTORE ;IN SAVE k[R]B&,&BIN W6BIN ` BORDER [M]▙ STOP <= CAT DRAW OUT DRAW [9 LOAD / COPY vVXK05▞ BEEP RETURN DRAW ~[J]FN B©[P] SAVE 4▖ DRAW ? CIRCLE h LIST ▚© DEF FN [M]<=_ BORDER tLN [M] PRINT J STOP h TO USR rn[N] BRIGHT CHR$ 7 NEXT .[O] CLEAR | RESTORE [M]^BIN L NEW DRAW PLOT ASN FOR STOP RUN L LIST VC[O] MERGE ZfRQXM PLOT _ PAUSE <>e^wLN [H]gaBIN Dx LPRINT OUT BIN LIST [N][ LOAD LPRINT ©q0Izq[U]` LIST FORMAT yB BORDER >V▞ BRIGHT [I]HVAL$ SCREEN$ [F]USR , LINE POKE ` DRAW 2~[Q]FN f DRAW : INK TACS ACS OUT BEEP TFN BIN I[H] OR RANDOMIZE [4] LIST DRAW 2BIN PLOT SAVE 5[I]Z% FORMAT 3 FOR SCREEN$ }▗+ LET CAT [Q]AT ▟ BRIGHT [ABS BEEP E BORDER COPY RANDOMIZE CAT [H]CHR$ w[H]W ERASE ATTR CLEAR [L]PIW NEXT wT ERASE 4 DRAW DRAW CAT DRAW ?VAL [F] DRAW i/TAN POKE INK " AND SAVE GO SUB #/]INKEY$IPEEK DRAW > MERGE ATTR [M] OR [K] FOR [P[P]©[B]5Hu+3) CLOSE #▟SCREEN$ STEP DRAW [ RETURN INPUT sz RESTORE LIST [N] DRAW DIM ?POINT INT NOT X@[K]o DRAW [P] AND TO 4 DRAW & SAVE 6 COPY DRAW @[F] MERGE BIN h LINE UAT /©j* DRAW THEN USR n[J]xABS OVER /STR$ DRAW Z OVER DRAW LLIST SGN REM BORDER :AT REM PAUSE [K] DRAW LIST LOAD FN [A] LPRINT LIST [B]POINT 8 DIM ©| STEP [C]; LLIST 7$ PAUSE RESTORE INK MOVE }!X/@ BORDER 3x PAPER (j RANDOMIZE O_,Gy INK PRINT COPY w#xLEN OVER CLS <> POKE 0 CIRCLE 1 OUT xX FLASH BORDER FO PRINT 0[M] BRIGHT POKE [O]F[M] DATA | POKE [R]i"( CIRCLE RUN c[N]&0 FLASH Mc REM RETURN BORDER BORDER IF POKE Pc}8[I] DATA REM [M]PEEK STEP m GO TO 3q[I]> LINE ▝ OUT AND STOP ©NOT DIM OUT AND PEEK GO SUB [I]Z INPUT ) LET DEF FN [T]<PIFN Af.m<= CIRCLE BIN CLEAR ? COPY vY LINE DIM a TO zn8ATN POKE ▙qSGN CIRCLE IN NOT 6rSGN USR CLEAR AND [K]G[G]Z© CONTINUE SLN SIN _ OPEN #[R]52LN CONTINUE _ NEW [T] GO SUB mSTR$ NEXT TO IN OUT COPY VAL$ ▛NOT { DIM NEXT [I]` GO TO N GO TO CLS <=[O]_ STOP TO 31HNOT ©xABS 3![M]S LET U>= MOVE 5 PAPER CLEAR <%[Q]INT DRAW VERIFY sMzR CLOSE # LET BORDER POKE h©> BORDER <= LIST CHR$ INPUT EXP LPRINT [O]OSIN COPY CIRCLE `SQR SCREEN$ ▚8 NEXT [O] INVERSE LIST VERIFY EXP /C~D▛TAN N< LIST ABS DRAW :3H PRINT D[A]▙ CLEAR POKE RUN 2 SAVE N IF LN NEXT [O] SAVE USR `<p LIST AND A PAUSE LPRINT H<= NEXT HINKEY$ MOVE NOT & LET RANDOMIZE INT LPRINT z RETURN POKE O LIST RETURN Y8N [M]{[P] LINE © NEXT COPY < BEEP &[N] STOP G^[C]: BRIGHT ASN ▜ DRAW IN ©[C]p TO 3 PRINT LET BORDER [J]DM[T][J]C DEF FN [P]PLN ;SQR CONTINUE IF SQR ~ CAT USR [T]s[P]| OUT CAT LET 1'tUSR RANDOMIZE DRAW <>NOT RANDOMIZE COPY >7 RETURN |?`l[K]pPOINT [M]EqPOINT OUT PLOT [ lk LLIST `TAB GO SUB )u RESTORE CIRCLE #VUSR READ RANDOMIZE `[J][P]4 COPY LOAD l0© CIRCLE RANDOMIZE c[A]▞[R]l BORDER LIST [U][K] BEEP INVERSE q@[S]Jz"[N]SLo_SQR c©▖0 DRAW ~ SAVE bBIN 3 FORMAT 3a`)[M]▞"LN c]x NEW >=` POKE [D] BORDER CAT 6©g[O]▜[A]~[G] PAUSE 8©[Q][R][T]|g DATA ▜s STOP FORMAT LIST E? BEEP LOAD %ABS (3'P><R-[J]5 PAPER ~INKEY$-© ]IN DRAW RANDOMIZE © LLIST POKE C BORDER $%*▚ OUT ATN LIST [D]NOT !TAN RESTORE [N]! DEF FN |= OUT i RETURN LPRINT :>=u▞%@ LPRINT ▗#[P]ACS yI RUN NOT COPY CAT [M][T]bo~ POKE B"/DK[A]RND2?CODE [E][M]R▗wC CONTINUE ,>[G] POKE B PAUSE "<=SIN DRAW [D]E LIST LET ` RESTORE PRINT VERIFY `r DRAW cD GO SUB ▖>[R]BIN o?2▜S DIM GO TO ~ POKE -LEN TO EXP RNDABS SAVE !w<> BORDER [N]▚X ERASE RANDOMIZE c▙ COPY v"AD)RND@c DRAW ABS TAB <>[M][J]BIN PAUSE [R]TAN `TAB uSCREEN$ [O] STEP ▚`▚0"4$g INPUT <fnc▚H RANDOMIZE LIST -<I CLEAR NEXT DATA COS USR POKE <=▙~rN FLASH GO SUB ▙[T] RETURN ▘ SAVE NEXT O NEXT [R]!DRND NEXT 9[J]~BLN oTAB RETURN ~k SAVE $ CLS CLEAR RANDOMIZE 8Y[M]I'TAN CHR$ [K] DEF FN 8 RANDOMIZE k8~▗ NEW ~83B&0 TO OR "C[J]| RANDOMIZE %PEEK 58 STEP 38b PRINT RUN ABS 4[M]h/VM [E] OR L+ LET L@tD[E][I]M FOR LPRINT p9 BORDER s.J}VAL RUN P GO TO 9 CAT STOP SAVE G POKE LPRINT CLS COPY g PRINT CLEAR CLS RESTORE 1![R]ATN AND J BORDER DRAW FOR RESTORE [N] CAT p SAVE GO TO <G=> LIST [M] RESTORE [J]tiN© LIST " RUN ' DRAW x MOVE SAVE LN ."8 AND LET +>[U]NOT INK 6 POKE RANDOMIZE BORDER 3 LET ABS H GO TO RANDOMIZE )0[C] PAUSE SQR DIM %[P] NEXT BRIGHT TNOT VAL POKE TAN MERGE vu DATA FOR FLASH RANDOMIZE " GO TO [U]B DEF FN GO TO >7 OVER CODE ^2`a~>3K DIM ? READ LIST >w STEP , CLS |2 BRIGHT [M]* LIST 7zc/o POKE `SQR FOR 0M CLS X RETURN LEN USR CLEAR <= DATA ATTR PAPER RNDc BEEP ]:|W' LET l3y| BRIGHT kCODE 07`y2r" POKE gR DRAW [O]yp CLOSE # INPUT <=^0.`S% CLEAR VAL$ c@[C]{ DRAW [R]rPOINT + RESTORE SAVE PAUSE ▜3I OUT )~{1& DIM CLEAR FOR © OVER MOVE o[U][D] OUT NEW 8~ FOR ABS D FOR [K] RETURN t▝ FOR ©©COS ▝[M] DIM POKE %9o~ PAUSE 8z#NOT {=! IF USR BRIGHT SGN r([I]COS BEEP 8oSGN REM g POKE `cjDt[N]~ PLOT ~[P] CONTINUE P~f▟ RANDOMIZE c?VAL$ DIM [F] BEEP [D]A BRIGHT ▘[I]Y_INT OR bl0Ji&s POKE ABS PLOT LOAD DRAW ▜ PAUSE DRAW POKE SCREEN$ r PLOT [C]©lrz4 POKE LIST ` LPRINT $POPI POKE BRIGHT ICODE SAVE ;rPI^ SAVE NEW l[A] POKE l DATA LIST DRAW CAT USR ?$▞ MOVE POKE ` OR y▟(z LPRINT >= THEN ▙&<>b PAUSE <[R][M]^ BORDER ^[D]xY SAVE OUT "[S]ATTR n^KINT FLASH ! NEW BIN | IF RANDOMIZE U[U]i}[C]/g7IN aSGN =8 BEEP 6▞ NEXT q LINE RUN CLEAR VERIFY RANDOMIZE SAVE [D]@NOT RANDOMIZE pcg REM >©▚]STR$ ` OPEN #[F] VERIFY > RETURN POKE [A] GO TO LOAD USR RETURN LEN OUT '{SCREEN$ POKE "[C] ERASE ~$/0c LIST B[E] CLEAR [U] RUN ▗RNDW PLOT SGN CLEAR +b RANDOMIZE PEEK SAVE Q[S]AT BEEP b DRAW PAPER [H] RANDOMIZE SCREEN$ LEN H▞©SO RANDOMIZE POKE [S] REM PLOT [I]+z> LINE OR PAPER POKE 2 BRIGHT BBIN RETURN ▚[M]@ POKE jG CLEAR /.CB[O] NEXT >0[M]H MERGE . SAVE RANDOMIZE Esq CLEAR BF BEEP READ [M]DfF9 CAT r LOAD G LPRINT [I]ERNDB POKE 31 RESTORE CLEAR B NEXT [R][I]E IF 0HRUM v3.5 by Dmitry PyankovTel.(38822)-4421-1.Bye!!! Gorno-Altaisk, 09.01.97▝ STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP
