| Является частью релиза: | Tobor |
| Размер файла: | 8448 |
| md5: | 8088c2b227b8bc647cd1b7ae9982a21c |
1 REM >2▟/> STEP [L]" STEP k> STEP >2H/ STEP k1W[I] NEXT GO SUB [ POKE /!@[M] STEP = STEP @[M]d STEP = GO SUB [ POKE /!X[I] STEP =>2▟/> STEP [L]" STEP k> STEP >2H/ STEP kNOT X[I] by <-jeff/gbg.hi alx/bw!
2 RANDOMIZE USR 23872
526505
13873=: REM : SAVE "YUY" LINE 1 LINE RANDOMIZE ^ RANDOMIZE ^ NEXT GO SUB s THEN [M]!_[M]▞[w MERGE GO SUB VAL @[M] INK ! PAUSE [O]©SQR <> GO SUB LN 1cEXP STR$ LLIST ; 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 1 CLS NOT @[M] COPY STOP !@6 RESTORE MOVE COPY 1 COPY GO SUB VAL CODE OPEN # RETURN ![N] GO SUB ?e PAUSE PRINT SAVE STEP k[M] STOP COPY v{ RETURN ? PLOT <> MERGE PRINT L©>G STEP ▚[M]= LOAD RUN MOVE z GO TO LET MOVE <> OVER h0" PAUSE RESTORE USR xVAL$ X THEN :©> DRAW W RETURN @ PRINT RANDOMIZE TO VAL [M]w LET LLIST CIRCLE RESTORE NEXT ▜ MERGE ] GO SUB Z~ MOVE NEXT ▚a COPY COPY COPY a COPY COPY COPY ▚ COPY COPY COPY ▚a COPY COPY a COPY COPY COPY ▚ COPY COPY COPY ▚a COPY COPY BIN 3% DRAW DRAW LLIST `a▘ OUT p BORDER FOR C, RANDOMIZE LTAN NEXT CLS PAUSE OR ▛ INPUT `F( RUN RETURN STOP STOP © AND COPY 0f/USR `[A]0Y SAVE ▝▞[B][H] STOP s# COPY BEEP FCHR$ RETURN aA[H]/ RETURN ▘@,$[A]▛VAL CIRCLE /lfUSR >= COPY COPY ASN `USR QVAL 1NOT STOP BRIGHT }>[H]SIN CIRCLE COPY ,ATN 1/SIN BRIGHT INPUT `/| OUT FUSR q} LLIST STR$ y8 TO LEN COPY [O]>=1ACS [L]a RUN i RETURN VAL 1▝[L]6 CIRCLE PLOT BORDER [xm▚▖ACS !, DRAW CIRCLE a NEW INKEY$USR LET [O] CLEAR _▘m LPRINT l TO VAL <[O]>= FLASH ` THEN -l FORMAT ACS POINT W`[I] IF FORMAT YACS A[P]xCOS @h[I]a▗c[P]mVAL F TO SIN >=D LLIST READ ▙ 8 LOAD COPY ▞ READ ▖[T]H< RETURN BORDER >=4 PAUSE P` OPEN #<>@ NEXT ▖ COPY /<= LPRINT < ▗ CLEAR [O] BORDER >= DIM ^{[O]1[B] CLOSE # POKE COPY ▚Y COPY VAL LEN COPY CAT COPY [N]a COPY COPY ▚a PAUSE COPY COPY vHRUM v3.5 by Dmitry PyankovTel.(38822)-4421-1.Bye!!! Gorno-Altaisk, 09.01.9 NEXT GO SUB s READ [I]!w[I]▞[w MERGE GO SUB VAL X[I] INK !PITAN w NEW INT <> GO SUB LN 1PEEK LINE STR$ LLIST ; 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 1 CLS NOT @[M]~ COPY ! CLS >= STEP ASN LET ABS RUN Fd INPUT SAVE STOP RUN e RESTORE PAPER RESTORE IN PLOT RUN ▛ IF INPUT <> GO SUB B LINE a PAPER LLIST COPY COPY ?▚ COPY v: SAVE BEEP RETURN ▜NOT LINE l PAPER LLIST 0A CLS [L]LEN STOP NOT &O[M]b LET >2[J] BEEP :g▟/Z▙w><>[M]NOT ACS OPEN #© CAT Y CLOSE # GO SUB s[N]>[P] RETURN RUN y STEP SQR CLS DRAW BRIGHT CODE > NEXT !GSCREEN$ "[N](,TAB ?S INK * POKE ~ RETURN COPY (r ERASE W# REM * GO SUB ~_ RUN READ © IF OR STEP [J]NOT STR$ > EXP LPRINT © OUT OR L< GO TO @ GO TO LET SAVE COPY ATN RUN & CONTINUE CLEAR GO SUB x NEW RETURN & OVER zCOS NEXT %// GO SUB [B]![N] ▘PI▖w▜!FPI>AT Q DATA ▙[B]_ BORDER nASN <=y RETURN REM [J] PAPER k RESTORE TAB {SIN CLS ▚0WINKEY$ IF COPY ( PRINT NOT PAPER DATA REM TAB >=CODE n OUT m!l STOP RUN |A PLOT <& DRAW PLOT STOP 'x RANDOMIZE STOP rTAB G PLOT GO TO PLOT , RETURN CONTINUE CIRCLE +2H/ STEP [N]<> MERGE CLEAR IF 0 DATA [L] CLEAR : CLEAR D LET &x OR CLEAR N] TO INK USR x MERGE RESTORE STOP <>= LLIST MOVE PIC RESTORE PAUSE C[G]PI GO SUB B LLIST OzK▞<>IN 9COS : BEEP IF g POKE BEEP "; BEEP ▗ READ POKE o RETURN READ MM READ NOT 2 LPRINT [A]qINT [L] NEXT RETURN OPEN #T LPRINT _ OPEN #TACS RETURN [L]o READ RACS g[O]RUSR EXP ▖g STEP MERGE VERIFY ^ NEXT > LINE ▜CHR$ NEXT AT NEXT L BRIGHT PAPER q THEN PAUSE MOVE ;# PAUSE TO DEF FN 7 GO SUB STR$ STR$ ▝ ERASE <> RUN &X LIST 2 PLOT ▖ NEXT INVERSE INKEY$Y LET COPY ▚i COPY COPY COPY COPY ▚ COPY COPY SGN [O] OR YXK IF WS]FN 8 PRINT 3<^ DRAW y0N NEXT M`O/ LLIST ▜ PLOT XaVSP FORMAT ▝cY_ DIM USR GO TO VYZ/L}aS^R RESTORE BEEP GO SUB >=VPEEK KSIN N<>`S▝Q^ LET BEEP [I] FOR c^ OPEN # BORDER / LLIST pTAN PYMFN PRINT [G]V GO TO FORMAT ▗ STEP SQR REM Z POKE 2(^U CAT H{ SAVE S_W GO TO CLOSE #▖[B][T]WUSR CqV▙&9 SAVE Q/▙POINT OVER M GO TO >=OATTR RANDOMIZE >= RESTORE PAPER ZKS~yWDrNz LINE [D][U]X[M]^ IF ~P~cVAL$ MOVE "*/ LLIST 4Lc/[C]LyP PAPER TAN LET -p LPRINT aRtB FOR RND DRAW LTw[E]S[C] FLASH [G] RANDOMIZE BEEP SX`K POKE / FOR AT RANDOMIZE GO SUB dOXB[E] CLEAR ▚Q{XDKa INVERSE FORMAT INT = GO SUB MR[E] LET LPRINT COS S RUN izOG. READ aS% DATA LIST ▟RNDK[E][A]KUPBD OVER ASN VAL CODE PATN LN CIRCLE LET DIM Z BRIGHT / OUT ASN # RESTORE CLS a RANDOMIZE v LLIST #[N]cIN READ QPI STEP } ^KU INPUT M[H]INKEY$ DEF FN RESTORE %PEEK N RANDOMIZE <= DIM INVERSE ATN ▚CHR$ COPY STR$ zLN _ CAT kK POKE [C] REM X CIRCLE POKE [J] DATA ([D] CLS P DIM aVAL$ TAN OPEN # SAVE COPY LPRINT -PCODE W`[I]1v* COPY ObK DIM N[H]Gge COPY LLIST & COPY I REM [Q]]2Xh FORMAT + DRAW L▟eQUSR % OR COPY ▛IN COPY ! COPY VAL #= COPY > LPRINT vBIN COPY [L]> LPRINT COPY COPY [G] OR COPY READ ` COPY Q BORDER 8[D] IF ▜ DRAW ©D COPY LET REM RANDOMIZE RETURN COPY INKEY$ LET LPRINT BIN © LPRINT USR s▚)5c LPRINT DRAW f STOP LN GO SUB tTAB MOVE j RANDOMIZE COPY ]Z.INT C LIST FLASH z3[Q]]RSPM^USR VO RANDOMIZE PI[B][Q][P][Q](▚[P] COPY ds{▝ COPY NYaXj%@U INPUT ^TAN TAN 9[o COPY bUSR _Zz16KMNOT PAUSE USR /SQR?B COPY F STEP USR fqKbgu FOR Yc[C]L_^IN ,TD[N]OVCHR$ ZPs]YCODE AT ^M,Pi OR LLIST einhj© LLIST fle GO SUB KPOINT SQR 6 DRAW OR MERGE STEP [J]NOT MOVE STR$ COPY t RANDOMIZE <>'{SIN IN PAPER CLS <> STOP ▗[G] LLIST STOP CLS OUT INVERSE CODE CLEAR ! LET STOP AT SQR "[H]61+[P]f CLEAR IF & RESTORE STEP q▛$ CAT >= LPRINT ©- RUN NEW RUN LLIST % DIM OVER ▖[U]d IF ?▚ MERGE OR CLEAR FN 9VAL >2[P]COS FORMAT CONTINUE <= PAUSE STR$ RESTORE PEEK PI▜ NEW STR$ MOVE 1= INVERSE SIN STOP POKE 4:STR$ =ABS RETURN EXP CLEAR 1[R] NEW OR 1 STOP STOP D<CHR$ #x9 POKE NEW 0 SAVE BRIGHT | PRINT GO TO ~ OPEN # SAVE ~ACS ABS RUN [R] RUN !| CIRCLE T6KOBIN IF CAT BIN RUN xBIN [P] OVER PLOT WX| IF [N]k|X SAVE RANDOMIZE ^ GO TO $~)e[D]▚{ DIM CLS o NEW [ACS SCREEN$ <SGN ©SIN ▞_ PAPER READ INT j RUN [COS NEXT DRAW INT K RETURN ` OPEN #` LOAD ~GCHR$ r! POKE ▖[T]IN CLEAR RUN PLOT READ [J] BEEP [J]SGN LET TAN Kj41$ ERASE oA~| FOR <>S© RANDOMIZE PEEK w[O] NEXT CODE MERGE 6 BRIGHT a^ INPUT [C] LINE BORDER LET ; INVERSE [G][G]COS FOR ATN 6▟ CLS _, NEXT M4▚ INPUT t& DRAW RETURN LEN % IF <>FN a READ [T]& COPY (Q,? COPY 0 COPY 6 RETURN PEEK SAVE COPY =c COPY &0xG PLOT OIN PLOT 4 READ LIST READ REM COPY DIM _ LLIST LPRINT ▜ COPY LPRINT COPY RANDOMIZE TO COPY LLIST LPRINT SAVE E GO TO |©z{ LPRINT DRAW CHR$ COPY |CHR$ 4{ LLIST ( LPRINT READ 0POINT MERGE LLIST L OPEN # FOR LLIST INPUT LPRINT SCREEN$ ▜_ PRINT & VERIFY LET ▜ LLIST LPRINT <=▞ LLIST <=i LPRINT RUN ACS yINKEY$ LLIST LPRINT .▘ LPRINT VAL$ #RND8 DRAW 9 STOP CLEAR CHR$ G CLEAR DEF FN LLIST READ [K]E MOVE COPY #JG CLEAR IF b0 CLEAR LPRINT OUT #CHR$ [T] READ CLEAR ? POKE LLIST 8>) LPRINT [Q] LPRINT < CLEAR LLIST CAT 3 LPRINT ': OPEN # LPRINT INT COPY s6 AND COPY COPY 0Q4▝[H] POKE IF ▖ RUN IF RETURN 4 STOP IF FOR DRAW IF RUN LIST 8 COPY LET IF F DEF FN SCREEN$ {©LEN ~ REM |PI IF COPY COS RETURN LIST ©[L]C|FSCREEN$ 0 COPY STR$ ERASE NOT {▘O COPY LPRINT ?>▘<>NOT STR$ {NOT LIST STR$ /NOT ▘ VERIFY ?LATN STR$ POKE READ LOAD STR$ ? CAT LPRINT OUT ERASE LLIST ?/ GO TO dCHR$ CLEAR BIN ▘ DATA u MOVE ~▘ NEW COPY [T] CLEAR | NEXT [T]▘ REM }[T]b▗ IF NOT SGN STR$ STR$ SAVE ▖ LPRINT USR LPRINT CAT F/USR PI CLS COPY y! COPY CSQR ~ RETURN COS RETURN COPY ( RESTORE GO SUB O DRAW LLIST #STR$ GO SUB : INK $ RETURN RETURN gf0ATN READ OPEN # RESTORE PLOT BRIGHT EXP OPEN #ABS FN <>& RESTORE ©SCREEN$ GO SUB LN RETURN CLOSE #_ LET DATA <> CONTINUE CLEAR zCOS [M]COS INT &ASN EXP POINT XNOT NEW CODE ACS PRINT <>e PLOT j`'lO COPY o!VAL LEN SQR INT *8[U]INT 8 NEXT _ DATA 8T+INT ▛ CIRCLE [P]8QKWOY`XSGN >: COPY ! THEN ACS BEEP [I]9_?<=9STR$ #y RETURN [K] COPY REM !>=COS OUT X DRAW A OUT <># PRINT ?vG▚AT SQR x STOP ~|H[M]Z[O]}@B RESTORE x| DRAW IF 9j SAVE DRAW =i PAPER DRAW ?A INPUT PLOT LET LET SAVE DRAW c IF INPUT NEW @/ OR >A? COPY [L]BINT POKE B4MACS SCREEN$ DIM H BORDER CLOSE # PAUSE O COPY [O] COPY LIST LIST [O] PLOT STR$ POKE [O] NEW LLIST i GO TO ▙AT PI LLIST POKE NEW LLIST PIAT [P]s[M]▜ LET VAL$ 0PIVAL$ LN q NEW !ASN ATN [A][M] PAUSE <[A][M]8 RUN COPY q IF LEN PLOT [O]<= POKE POKE LN ▞=PEEK a LIST POKE POKE [F] COPY [NOT SAVE { NEW RETURN READ [E]>> NEW m< NEXT ©PI DEF FN CLS © COPY 0{ NEW INT T CAT NEXT RETURN FOR OUT [L] LIST PI▘ VERIFY y AND CHR$ 1[O] RETURN pPIy OUT PEEK <= RESTORE NEW [P] BORDER VAL$ _ BORDER MERGE ^ BORDER STEP z/ PAUSE COPY * CAT CLS ▙IN DEF FN LPRINT NEXT < PRINT CAT IF -AT CLS xCODE 7 RUN < DRAW SAVE NEW FOR >[U]PEEK INPUT O?[C] PRINT CAT COPY [K] CAT COPY FOR RUN NCODE [K]G CLEAR NEXT INPUT NEXT CLEAR 8ABS F: NEXT - RETURN # CLEAR LN EXP 8 LOAD : BEEP ? CLEAR NEW NOT j RUN SAVE NEXT NEXT K[G]zNOT BORDER &AT CLS PRINT CLS [N][G]/ RETURN CLS SCREEN$ NOT 8 REM CLS NEXT CLEAR 40( COPY 4~[M]d OUT NOT ~ NEXT <[D]oO RUN @|NOT LEN CAT RUN W CLS <9 FLASH [T] CAT READ t POKE [H] DEF FN SAVE ) RETURN ?TAB CODE COS 2 MERGE Od NEXT TAN ▘ACS o NEXT CODE CLS z RETURN t DRAW OPEN #f THEN ACS COPY COPY SAVE X POKE [I] GO TO 3 LOAD DRAW <CODE $8 COPY [A]/ CLS SAVE <[D] LET SAVE [I] DRAW 8 OUT COPY ez RETURN xZ READ [E]f IF OyV▟FPSBIN X POKE ]h[U]Y POKE ^a[T] MOVE K/FN NEW BRIGHT g BRIGHT h CLEAR LINE COPY F FOR 4 DRAW SAVE [R]I RETURN MERGE CAT L DRAW LLIST G OPEN # PAUSE FLASH H[T][T] RETURN RATTR QPI OR IF POKE ▞[U] LINE DRAW COPY [P]&▜ COPY ERASE _NOT THEN 3 TO RUN e RUN SAVE ▝BIN oDM<>
8560rCODE LET THEN #▝[P] DRAW ! AND NOT RESTORE MOVE COPY s RETURN LIST OR LLIST w$X DRAW RANDOMIZE <> STEP PNOT l5TAB RANDOMIZE <> OR AND ~ THEN ATN IN GEXP ( RETURN ▜~7[H]w OVER 7 DATA INT <>x[M] OR COPY ?7 NEXT USR COPY DRAW BRIGHT GO TO PLOT 7 COPY PLOT ` COPY i BRIGHT SAVE BRIGHT [K]INKEY$ CLOSE # BRIGHT INKEY$i CLOSE # BRIGHT CLOSE #m[M] DATA BEEP [P][O]6 SAVE ▞BIN BIN ZUSR COPY LN <= COPY LPRINT COPY AND BORDER FLASH ;<| PAPER THEN COPY COPY AND [L] CONTINUE <<lf AND NEXT / DEF FN ▟rPI FLASH IN <> FORMAT RETURN [H] LET MOVE BRIGHT LIST eNTAN [I] FORMAT 6fc FOR =pATN USR ABS $ LPRINT T[E] COPY PRINT USR Do COPY ▞$D OUT COPY -i LIST 0cPI%0 MOVE USR DATA CLEAR ▘ DATA y LET LPRINT OUT [O] NEW LPRINT VAL ~USR CLOSE #▟ATN BRIGHT 31 TO TO ▚PI CLOSE #VAL PAPER ▘ BRIGHT 3 COPY 1E[L] GO TO TO COPY GO TO Z▖[S]@R COPY PRINT SCREEN$ "w8LEN <LEN DEF FN [I]2~@ SAVE LqLhI DRAW POKE IF CEXP DRAW DIM SGN IF +▙LN P PAUSE 8`@ READ BORDER SAVE LPRINT 0x CONTINUE ]Q COPY LET ©:* STEP MOVE " LET RETURN X[L] COPY IB DEF FN COPY IF PLOT rw COPY PAUSE COPY Z[S] NEW j COPY 3i LIST SAVE CIRCLE g% COPY Aw LET # OVER E SAVE uc" SAVE ▗©] SAVE <='eRND PRINT /▟ CONTINUE E- CONTINUE pP COPY Z PLOT ▛wU COPY [F]<= LIST <B~ CLEAR 1V RETURN h CLEAR LIST r[J]▝xD LET GO TO 5W@|MACS LOAD LEN Z" SAVE I LPRINT N$q LPRINT <>>=>SCREEN$ ▚ COPY /qJ COPY LET CONTINUE DHp READ OR 2 BRIGHT I COPY >=BfZ MOVE CIRCLE bRJF SAVE i[A] CIRCLE [C]r LPRINT VAL BORDER VERIFY POKE LIST >=<@M1ATN LIST RETURN [O]INKEY$ COPY [I]CODE FORMAT RANDOMIZE $[R]5EXP SAVE Z$ SAVE T NEXT p INPUT FORMAT ▘D( CIRCLE ~ POKE POINT [A]<FJRb OVER FORMAT (h[Q]TAN TAB CONTINUE BEEP <>FN BORDER H~CHR$ [B]h0 LIST READ [S]▞▚ SAVE ~IN hLN CIRCLE n CONTINUE NEXT LINE IF > AND < CAT r CLS 4 IF SAVE CODE $ NEW M OPEN # DATA PLOT z FOR ▖ATN ATN OVER xzCODE PIl{ COPY DEF FN NOT ATN ▜&] NEXT BORDER RUN SAVE G LPRINT d?© LIST co_▛ OVER COPY LIST LPRINT CHR$ COPY OR READ LET DRAW SAVE 1INT STR$ ASN STOP THEN LET DRAW < COPY LPRINT COPY AND <= FORMAT POKE ACS [N] SAVE COPY RANDOMIZE LET ~ DRAW ATN >=~z SAVE e FLASH % SAVE <> THEN | PRINT SAVE $ SAVE Co▝EXP ~ SAVE >©' COPY q LLIST SAVE RESTORE COPY BRIGHT x[M] SAVE _ RUN COPY x! DEF FN CHR$ ^> COPY SQR (#V RESTORE RANDOMIZE K LLIST # GO SUB CHR$ POINT CONTINUE PAUSE DRAW CONTINUE DIM FORMAT IF 6zn< LLIST > EXP LET SAVE _ BEEP GO SUB LLIST CLEAR FLASH x@ INPUT FORMAT # PLOT > REM hB LIST ERASE n INPUT = DATA C RUN READ PRINT >LN DATA OPEN #/ DATA ?>=I OPEN #AT CHR$ LET /xAUSR ©LN >=` NEW COPY / LOAD NOT DIM <>!aSTR$ ASN ofG TO w©3SC# ERASE ERASE STOP LPRINT p SAVE INVERSE ! POKE IN CLOSE # LLIST LIST ▜PEEK CAT NOT LLIST ABS LINE COPY NOT TAB SQR OR STEP 1[O][R] COPY ~ GO SUB K▞<> RETURN (Y© LOAD [P]<=SGN <=>= RETURN ©CHR$ l LLIST PAUSE BORDER POKE !▖<>4y STEP / MERGE FN PLOT CODE USR PLOT z3 PLOT STOP 7: PLOT PLOT POKE [L] RUN <>5A LPRINT [H] GO SUB PLOT )w PLOT PLOT /~LEN v[D]H PLOT DEF FN RUN !f94? LINE DRAW BRIGHT THEN PLOT BIN DRAW TO NOT : BEEP TAB J>J CONTINUE [G]JX MERGE KSIN _ DRAW [E] LET ▛ PLOT O/~POINT OR PLOT >zC▙K NEXT /| THEN AU_▟ PLOT MERGE u▝ PLOT OR ▛TAB K DRAW K DRAW KRNDLNOT jK RESTORE IN SAVE ~ STOP ABS # DRAW GO TO =PEEK MERGE CIRCLE LIST KNOT SAVE INPUT #- AND ? OUT DRAW F? DATA ▛_ AND GO TO z LET AND ix DATA INPUT ATTR LLIST FORMAT PAPER LIST LIST AND FORMAT NEXT CLEAR LET 7▟[O] AND _ CIRCLE cK[O]! FLASH THEN ~ LLIST LIST RETURN LINE TO 8 TO ; CLS b COPY r ERASE INT <W[E] NEXT POKE GO SUB K BRIGHT THEN f ERASE STEP NEXT LINE THEN 4 INPUT BEEP LN g PRINT ABS #BPEEK SGN CLS RESTORE %[K] CLS TO CLS LLIST <>i▞ INT - OR INK LINE ▟ABS 6/YZm/© TO /STR$ VAL$ ASN / OVER / STEP READ ?STR$ [T]h RANDOMIZE PAUSE [U] INPUT [J] STEP ^[J]^ STEP [R]FN 7[Q]d CLS REM ▟[Q]b▗% CLS LPRINT <>SQR SIN E FLASH A CIRCLE ;CHR$ SQR [ LOAD MERGE RND RESTORE TAB LLIST STR$ OUT V0 PRINT /<> DIM DIM RND~ PRINT PRINT / CAT CODE PRINT w?USR ' CLEAR REM PRINT (ATTR _STR$ & TO % LOAD READ PRINT b17%21 IF OR (.~LEN TO - MERGE CODE PRINT USR VAL IF USR USR CLEAR NOT ▖?A POKE IN < COPY POKE DRAW NOT 4USR 0<4USR L DRAW NOT USR LET 54USR *[H]SQR +~Q[T]FN RUN $n[B]H'R"* POKE H$"[B]4~&+4# STEP $<> STEP hd6F DEF FN 4 CLEAR <>~POINT GO SUB [U] GO SUB DATA TAB ▟ GO SUB INVERSE DEF FN POKE 6 RETURN PI NEXT DIM [Q]RND%RNDRND^J1RND RNDj▜RND OR 5M OPEN # FLASH [P] SAVE hATTR d DEF FN RANDOMIZE GO TO !▙[O][H] GO TO A2POINT SAVE DATA SAVE FCODE ~$_ OUT Y" POKE ATTR %! REM POKE + CLOSE # FLASH CLEAR R CLS :[K] CLS >=▘USR CLS >=l REM yPOINT NUSR &/ NEW ▘, IF MERGE CHR$ +VIN REM ) CLOSE #*u4▘P>,USR .USR > PAUSE USR > REM INPUT REM ; REM PUSR READ L▙+] FOR DRAW <=L NEXT ▖ READ +[N]USR READ )[N]USR v GO SUB Q&AT )©SQR AT OVER vQ$7 LET STEP BEEP CAT <> FORMAT SQR [N]d5IN EXP SQR U FORMAT INPUT [D]▛ INPUT STEP OPEN # PRINT COPY RNDS POKE WCODE FN #FN - POKE ATTR FN FN w RETURN F#[U] BEEP FLASH CODE MOVE VSCREEN$ INPUT [U] INPUT SCOS 7 INPUT X[D] SAVE IF COPY =orpsqt COPY CODE @ NyVAL >= IF STEP Y OVER p[O]#Vp VERIFY COS !p BRIGHT LOAD LOAD NEXT O▛ ERASE INVERSE }?ABS [O]+ FOR LLIST PAPER LOAD <>% IF PAPER LET BRIGHT j#[E]qp<>] INVERSE <= STEP LPRINT ERASE CODE TAB TAB IF FLASH THEN IF © TO " IF BORDER > OPEN #61[J]USR @ SAVE 3▝ SAVE B SAVE SAVE f READ F SAVE >▛`2Hp1J CLEAR =>. NEW I SAVE K<>▙ CLEAR 4 DEF FN © RETURN 'xLEN CLS [J] OPEN #,. FOR ERASE [E]PI TO CLEAR ▛ POKE L POKE IF INT ERASE > OVER PRINT TO M_ NEXT (x[I][G] DATA mATTR SQR STEP ▙ OPEN # RESTORE rPI IF [T] IF [P]F THEN IF [L] IF LEN U OR OBIN [S]AT SQR ![H]TAB M%COS $ CAT DEF FN LPRINT IF STOP <= RANDOMIZE ] CLOSE #o DRAW CLEAR FN PAPER I INK CONTINUE MERGE [N]▛ FOR ▘ MOVE ▖[U]m▝ BORDER PIv DATA PAUSE [Q] DATA OUT ASN TO LLIST LOAD [M]IN AT LLIST 44 OR ▘ LLIST LET BEEP POKE STR$ GO TO DEF FN MERGE *>"F$ MOVE P^EXP DEF FN MERGE : FOR +[J]COS * FOR " RESTORE FLASH 7 OPEN #TAN LN FLASH @ FLASH EXP A FLASH R FLASH ABS [C] FLASH FOR [J]W2* FOR " RESTORE FLASH SAVE [C]▜ACS BACS [S]_FACS RESTORE 7 MOVE ACS RESTORE FLASH K/ACS DACS =- IF ACS RESTORE rACS RESTORE FLASH =ACS F_ SAVE ACS 7 MOVE [S]ACS RESTORE ACS SIN o RESTORE ' STEP CODE LLIST k© NEXT ~ RETURN # IF = LET <>5NOT $ CAT NEW REM E|RND CLOSE #/+ ERASE g8 GO SUB NOT SGN ©o NEW BORDER U_[B](INT j READ SAVE MERGE AT e CLOSE #NOT VERIFY DEF FN OR w BEEP W[ INK -Q INVERSE INK W? INK ATN MERGE ATTR USR CAT OUT <=u▘ OUT [D]LN BEEP y[N] COPY [S]^,ATTR ^[G]^ BORDER +Nc CLEAR hATTR OPEN # MOVE REM ?PI](STR$ ▗RND OPEN #RND IF MERGE STEP aU][F]6ATTR INK ACS CONTINUE MERGE USR CAT OUT 0 PAPER ] OUT [C] COPY # RETURN GO SUB x NEW 2R VERIFY LINE A/▘ TO x8 OVER THEN CLEAR p▛<>>[R] BORDER : READ CLEAR N OUT S STOP IN COPY DRAW :©[K] SAVE BEEP BORDER >= RUN * VERIFY }SGN LINE PAUSE CLS & BEEP GO SUB K▙ VERIFY <TAB $ STOP { INVERSE ▚9©s[ BEEP ▘CHR$ I TO RANDOMIZE BEEP ! INK 4▟UQ DRAW NEXT i CONTINUE NEW LOAD SAVE NEW VERIFY 5"@ NEW NEW SAVE SQR i TO K RANDOMIZE NEW 3 NEW > CLEAR TO LET QSIN 6 NEW {|@ CONTINUE ▜fx<>© IF .pUSR L STEP ©[N] BORDER K> COPY ▜USR GO SUB OR +C TO [U] DATA ▖ DIM n FORMAT RANDOMIZE LOAD MOVE ix MOVE s LOAD ▖ MOVE MOVE [I]▚ MOVE ^ DRAW [H] MOVE COPY 7SGN FORMAT FORMAT N THEN IF PAPER Oa BORDER 14 RETURN ~ LLIST ▞(Y} LINE SQR CIRCLE PEEK PLOT | LOAD ! CIRCLE :` CLEAR RETURN LET C4[J]VAL$ C RUN D[J]VAL$ RUN INVERSE RUN E0 DIM RUN RETURN RUN G RUN RETURN BORDER HATN BORDER [N]STR$ N{SIN LOAD CLS [B] INK SQR USR = STOP INK STEP TO COPY 5 PAUSE b CIRCLE &I RETURN INKEY$ RANDOMIZE .C" VERIFY ! PAUSE 4 DATA RETURN PAUSE [H] LIST D LIST PAUSE [H] LIST E LIST FOR [H] LIST G LIST .CODE ~H POKE OUT SFN INT FN J RETURN [H]FN PAUSE >=ATTR <=FN LIST MERGE READ FN LIST yBIN FN SAVE OVER CIRCLE x<>gG:z© FLASH (eBIN COPY ! INK 9▜%x< IF r▜ DATA V# COPY COPY x[A]G~<w RETURN o 6e RESTORE STEP RND COPY ATN INK LLIST LOAD +3# RESTORE CODE RETURN RESTORE VAL$ G RESTORE DATA DATA /© CONTINUE RND DIM C CONTINUE ▟ LOAD ZO[F]z^ RESTORE LEN .# MOVE MERGE READ TO ` ERASE CAT 4 CAT USR PLOT IN FORMAT RUN SAVE s PLOT ! LINE ~EXP TO } RESTORE <>▞ COPY AT SQR OR *POINT ` LPRINT STEP PAPER STR$ FN So*RND PRINT [U] PRINT [L]z[R] PRINT [Q] PRINT [N] PAPER CLOSE # PRINT [M] PRINT [J] COPY > PRINT [I]<>NOT [L][M]xw COPY GO SUB C LINE COPY [J] NEW RESTORE ! PLOT 6©<> RESTORE PI GO SUB >=B LINE LOAD ;6 RUN <> DATA RESTORE <= LET PLOT PINOT [I]~ VERIFY GO TO ▖ DIM _ TO READ ▛ READ CODE VAL 7 COPY INPUT [P]kACS e PLOT OVER OR }+▝[B] PAUSE FLASH OVER (W RETURN x DRAW q[I]5 BEEP LET STR$ [F] LOAD OVER PRINT [T]▙ BEEP |[A] PAUSE / FLASH SAVE 4?VAL$ LPRINT A>=k[D] LET 2 MOVE MOVE OPEN #o+ MOVE MOVE FLASH COPY LIST FN k▞ BEEP FN BEEP +G STEP ERASE RESTORE !u4, LLIST M FOR LINE BEEP PAPER STR$ CHR$ K PAPER BIN BRIGHT [J]INKEY$- RUN NEW CIRCLE $ CAT CONTINUE [D]L RUN Ly[F] PAUSE ASN LNOT POKE CIRCLE K CLS MOVE THEN VERIFY x[E] PAUSE READ FLASH _ RETURN uB DRAW PAUSE NOT 3 RETURN u ERASE CONTINUE a"K"▞[H]KtK▛ BORDER yrIN { IF L[F] DATA TO L SAVE L▘ GO SUB >=i BRIGHT *[U] VERIFY IN ABS g[H] BRIGHT _ LOAD iB LET NOT Lg[O]i(x▞ POKE Lt[O][H]L?r BORDER G INPUT Uy[P] CLS {%L RANDOMIZE L<>g INVERSE )< BEEP COPY PLOT hK INVERSE DRAW BEEP vA~]v DATA [N]yj' STOP %MuM NEXT RANDOMIZE ^MUSR [O] RETURN L RESTORE RANDOMIZE STEP ATTR [O] BEEP STR$ <>*© INPUT USR TO LOAD GO SUB K LINE PAPER [R]> LET [J]X#jw BRIGHT :PIn<>N STEP E[F]nNuK NEXT #NC0 STEP COS {-▚CHR$ : VERIFY _ VERIFY tUSR :▛B BEEP POKE STEP POKE [N]USR [A]©PEEK +NOT O LLIST : PRINT INT RUN (COS e>=CHR$ ATN <=G BEEP CIRCLE ▞ OPEN # LET [D] LINE 4 BRIGHT LPRINT TO INVERSE O PAPER LPRINT CONTINUE BRIGHT NOT FLASH RESTORE NEW [J]ATTR LLIST R{ CLS y PAUSE c▚STR$ NOT l LLIST : CLOSE # PAUSE z1STR$ | LINE BEEP FLASH ▟SQR [M] CLS INKEY$ CLEAR READ MOVE RETURN } THEN 6©NOT PEEK CIRCLE PI! CLS fSTR$ IF OVER SGN : LIST LOAD NEXT ATTR CHR$ STEP [M] INVERSE NOT LET RANDOMIZE r LET LET FN LET RANDOMIZE r PAUSE LET [U] LET RANDOMIZE r NEXT LET [Q] LET PRINT r POKE LET [M] LET OVER 1 COPY COPY QI<=yINT PLOT i[C]LEN PLOT LET y6l?VAL W DRAW !/ OUT 4V VERIFY NOT LINE [N] DATA vIN DATA KC LLIST OR { READ %STR$ RUN VERIFY STR$ $G PLOT GO SUB (a RESTORE LPRINT 8 OUT [J]ABS v▞= PAUSE ▝ FORMAT x( PLOT [R]TAB BEEP NOT CIRCLE REM DIM k PAUSE FOR BORDER 7▘ MERGE QZ ERASE p LOAD O^ CONTINUE P INPUT VERIFY SQR COS AT ( ERASE LIST ATN INKEY$[J]r▜RND[N]: NEXT OR >TAN FORMAT >=)>=▝[z LET 2J OUT NOT 1*E LLIST H POKE <=G> DIM 5VAL ▘"]D<= PLOT SGN { RUN SIN '!POINT SQR USR FLASH RETURN N#F:x/ NEW [K][M]<> CLOSE # STEP z THEN INK "S>= INK 2 OPEN #RND RANDOMIZE K OUT INPUT *G LET LET EXP ?/ SAVE EXP PLOT $[G]EXP RNDEXP EXP "ABS CLOSE #EXP >=POINT EXP OPEN #EXP I SAVE RND LET PAUSE EXP @[G]/EXP PLOT EXP [R] ERASE r CLOSE #EXP z!>=EXP OPEN #_[K]EXP K LET NEXT EXP A RANDOMIZE ▘EXP PLOT EXP ABS `[N]r CLOSE #"EXP >=EXP OPEN #RNDPOINT EXP M LET POKE EXP B/ SAVE EXP PLOT [G]EXP [J]r CLOSE #! ERASE EXP >=EXP }x OPEN #EXP BIN OPEN # DRAW OVER [T]©PEEK ( COPY !`X@]~ COPY 6j]© LIST IF {TAN MERGE IF # COPY , BORDER GO SUB K▞<>yM LOAD k PLOT z RUN AND PLOT [Q]INKEY$INKEY$ OR MERGE PRINT MOVE STR$ >=BIN TAB RND[O]STR$ CONTINUE CLEAR STOP x9 MERGE S BRIGHT PLOT : PLOT POKE OVER <@ OR PAPER PLOT ; CLOSE #X[N] LPRINT COPY .<>!W LLIST 5 TO TAB INT :^s CLEAR G STEP ATTR RESTORE I CLS ~y DATA CLEAR !$s FOR IF e' FLASH *w]PIB IF Y IF STEP [N] DEF FN [N] RESTORE ~ RANDOMIZE # CLS :/R! INPUT X IF BEEP OR RANDOMIZE TAB TO CIRCLE >2Dk LIST IN [P]TAN VAL$ INPUT BORDER T INPUT [E]D NEXT ~ PLOT SCREEN$ SCREEN$ CAT SCREEN$ o DRAW g▝INKEY$"Z PRINT 2ATTR <BATTR STEP RESTORE EXP COPY [D] STOP NOT F READ &PINT SAVE zCOS CLS % PRINT <> VERIFY RUN CIRCLE p[I]CHR$ b CLS INT ; COPY STEP READ STOP ! LIST OVER [S]w# MERGE LET RETURN 2/ OUT U,n DRAW CLEAR INK >e?q NEW RETURN DEF FN >~!RNDBIN [M]SQR w[Q] DRAW [U]-) DRAW FN DRAW AT DRAW Z[J]wL[P]-Y▞[N]"[J] RETURN NEXT ( LET GO TO TO TO c CLEAR j CLEAR _ CLEAR f[J][J] LPRINT ~` SAVE g CLEAR d LIST ▛ CLEAR k!("a[G]h DIM @SQR STEP ~>=5 LET ] STOP <> BORDER DATA k BORDER <=▗JPOINT INVERSE <>>▗tSSQR RUN 5▗y RUN m, ERASE FORMAT ISTR$ RUN # RETURN RUN ^[R] RUN INKEY$ DEF FN THEN FOR COPY !x NEXT ^3 RESTORE Y CLS ACS STEP BRIGHT [L]xCODE e* FOR VAL >= CONTINUE ▜, GO SUB R PAPER OR ABS {2 LPRINT [J][J]L CLEAR [D] CLEAR PAPER CLEAR !! INPUT CAT BNOT PAPER READ RESTORE LIST GO SUB {[N]<>[ BRIGHT o CLOSE #{RNDx STEP S VERIFY OR COS DATA 6TAN [A] POKE [U] OVER U▛ IF H2ATTR STEP PAPER OUT INPUT COS U DATA INPUT LET ▝ NEW BORDER VERIFY |ASN LPRINT CONTINUE CHR$ TAN / CONTINUE xh INPUT MERGE SGN OR STOP MOVE V PAUSE CONTINUE NEXT FORMAT READ [C]AT INPUT wINKEY$USR OR [Q]CODE BIN % OUT BRIGHT POKE BRIGHT -iy BRIGHT PLOT POINT . CONTINUE AT [O]^D▜z[J]RND RANDOMIZE x<> FLASH PRINT OVER INPUT 2 LOAD CLS / OUT RETURN CHR$ BEEP )!] LLIST 4 STEP X[I]WW OUT 5X© BRIGHT ~ RETURN PAUSE INT DATA o/ LOAD E[M]*^26|i ERASE LOAD RANDOMIZE ~ RANDOMIZE RANDOMIZE }}><>K PAUSE GO SUB y STEP <><>m TO [U]TAB ©=▜▝O©-d! LPRINT COPY p RESTORE +(#~G[A]w} PRINT IF RESTORE CLEAR ACS STEP /9 STOP $ STOP W STOP D STOP iVAL [G] STOP % STOP 0 BRIGHT 5+NOT !w# BEEP u>B. IF IF G TO BORDER ATTR q CONTINUE DIM REM <>COS ]6NOT @[M]o~ASN LOAD OR EXP TAN MERGE RESTORE gaVAL$ [U]~4eOdM[F MOVE STR$ ]PEEK =CODE ^ DRAW ▞I! CLEAR e6K MERGE ▚[T]NOT SCREEN$ COPY HRUM 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
