Tobor: Tobor-P+.B

Является частью релиза: 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