| Является частью релиза: | ATTR Agression v2 |
| Размер файла: | 65280 |
| md5: | 74d4f972beaa1d87ad49a36812128a88 |
0 CLEAR 0: RANDOMIZE USR (0*PEEK 0+PEEK 0+0): REM NEXT `iy[Q] MERGE > GO SUB [Q] COPY ▜ ~# THEN 0 PLOT > THEN )8<(? READ % THEN 98 CIRCLE PAPER ▝ COPY CLOSE # ( THEN CIRCLE THEN ▜ ~#0 NEXT SGN > AT FORMAT AN# RESTORE i`O GO SUB VAL LLIST [H] CLEAR COPY THEN INKEY$!▚[R]>@ BRIGHT STEP q CLS COS n CLOSE # CLS CLS D!(SCREEN$ X?[S]^PEEK (STR$ 6 SAVE [R] GO SUB VAL >PEEK [A]GEXP ^ INK LET 0 DIM LET a~z2 THEN [R]<% MOVE & DRAW BEEP >= PLOT [S]VAL CODE [T]"©[T] CLEAR © GO SUB [T]"[Q][P]VAL INK USR CLS > DRAW PRINT z NEW PLOT W GO SUB [Q] INK LIST BRIGHT &[R] DRAW THEN | TO 3/ LET COPY RETURN ▜ ~# PRINT MOVE LIST 0 COPY LOAD > THEN ) COPY 8<(?▝ BRIGHT COPY . THEN 98PEEK <> OPEN #▝ CAT IF SAVE STEP 1? THEN PAPER a[Q]0 REM ©AT CHR$ >" BEEP ▝ RETURN [M]<=AN INK FLASH COPY RESTORE i`O[S]w| RESTORE igCOS c REM TAN [R]| DIM LLIST NOT ▖[Q]! RETURN 84>PEEK 8 CLEAR E= RESTORE <> OR *5SIN -STR$ [J],<> NEXT CLS STOP XPI=CODE w OPEN #CODE RETURN TO BORDER D LOAD @▛ LOAD INVERSE BEEP . NEW MERGE w LOAD ? INVERSE - PLOT POKE 6<>I AND <= COPY [ POKE /G={c COPY PRINT x RESTORE MERGE OR INVERSE [D]CODE INKEY$ STEP READ [S]:kVAL < COPY PI VERIFY IF CLS [R]3 LOAD :iATN RESTORE (8▘[J]VAL &[H]<> IF 1[P]PEEK p[H] IF MOVE [R] IF BEEP % MOVE =|nUSR SQR INVERSE LLIST OR STR$ MOVE AND LET RETURN CLS <>NOT EXP INKEY$)[O][E]=VTI> P3 DRAW DRAW layerIN .7=![S] AND THEN RETURN SAVE F>= LLIST !FN LET 4'l DRAW CODE g LPRINT o2ACS STOP "ATN LIST NOT ATTR PI?4>RND RESTORE d RETURN ~2EPI RESTORE @AT LLIST "[S]`^USR # DRAW BORDER INKEY$ MOVE INVERSE n/f RANDOMIZE GO SUB POKE INKEY$!POINT OVER 7RNDi[L] RANDOMIZE [R][T][P]AT PEEK FN COPY POINT RETURN 0go SAVE MERGE _ COPY MOVE |}? CLEAR VERIFY LIST READ ! RANDOMIZE QFN wR INK [E]l0>! LIST "E~[J]▞ CLEAR INKEY$ POKE [I] IF MOVE " TO ^ IF { TO CLEAR [I] CLEAR ` TO CLEAR } CLEAR [K]/ INVERSE ~POINT VERIFY SAVE 08 RETURN [P]>2▟ NEXT [U] PRINT RETURN GO SUB COPY COPY NEW !>=PI MERGE P[P]▜[P]^# THEN ; COPY [P] NEW PI2 [T] FOR STR$ COPY AND CIRCLE O DEF FN PI[B] COPY G OR VAL$ POINT MERGE N#USR RESTORE F COPY FOR INVERSE & THEN 8~ryw#x@ DRAW DRAW INVERSE % LOAD MOVE © LLIST #STR$ ▜ PAPER MOVE COPY { RETURN DATA > CLEAR 2[P] BRIGHT @PI( COPY PRINT ▜O LET 054PI CAT GO SUB B7 FOR LET RETURN COPY !T/> COPY 0-]CODE 2t[T] COPY INVERSE !PEEK FN FOR GO SUB b} NEXT | DEF FN [R]w? CLEAR #y NEW [J]POINT LLIST SIN w LLIST yPI BEEP OUT COPY TAB INVERSE 6 STEP / NEXT RNDT LINE ! COPY POV RANDOMIZE STOP ~u CLEAR tA COPY STR$ ;3 CLS CLEAR POKE 3=<> ERASE PLOT DRAW ) STEP RND:$NOT h DATA OPEN #BIN LN LN >2q[U]n IF /f CLS " RANDOMIZE [D][U] REM DRAW 8[G]▘(I8[L]NOT %[I]TAB CLS COS |EXP AND `I REM CHR$ STR$ ▘[J] IF USR ▗ INPUT !h▗~▚ MERGE FORMAT 2AT FN DEF FN INVERSE THEN CHR$ ▚JAT | RUN AND CODE GO SUB sF CLS VAL RANDOMIZE go RESTORE ERASE COPY 1 COPY g[N] DATA <>I READ [G][U]r5 CLEAR RANDOMIZE POKE AT > RUN ▜o&ABS OUT #[I]f FORMAT > CONTINUE ABS PAUSE LET s[U] LLIST GO SUB R+0+ CLS ? DATA RETURN 89 COPY INVERSE s LET TO r CLS LN RANDOMIZE CLEAR PI( FOR PAPER SAVE PAUSE VAL$ [U]/4D▝[U] DRAW 6 RETURN RESTORE [F] VERIFY STR$ 'PI:▟NOT [U] RETURN MOVE [P]<▟ GO SUB THEN BEEP STEP BORDER PRINT <> THEN IF POKE OPEN # IF COPY CLEAR RETURN s SAVE CODE B BRIGHT CLEAR B[R]PI CLS CONTINUE 2[R]PIATTR FN 3 SAVE o CLEAR g INPUT "[U]PII INPUT E IF ▘SQR [S]FN GO SUB z BORDER "SGN FN CODE $SGN PAPER gNOT POKE POINT SQR <> NEW me POKE THEN DRAW j COPY ?<>.RNDINT [U]O BEEP $ INVERSE ( READ POKE USR RETURN CLS [G] IF K RETURN CODE 2 CAT LN FN NF RESTORE COPY LINE [G]INKEY$ GO SUB s LLIST RND INVERSE [P]nf~ COPY o9<INT 8{Cb NEXT BORDER ▚ PAUSE [G] OPEN # RETURN `^C NEW _▜ PAPER f PAPER PAPER &[M] NEW G▜s VERIFY RANDOMIZE ASN x CLOSE #STR$ ▜ LLIST ^? OUT V THEN p TO (z LLIST z FOR CODE NEXT PI1VAL$ POINT PAPER LLIST [J] READ READ ▘IN e READ >>ACS (>5< 9 BEEP EXP BEEP POINT DIM POINT |D4 LINE i DATA V FORMAT LET i SAVE [B] IF SINKEY$ BEEP 4 BEEP _)w CAT > LIST THEN yBIN (▞qUSR RETURN LIST <` LET BORDER = NEW o RETURN x NEW PAUSE KINKEY$iKK4[E]{ COPY VAL$ FN ~ THEN A [K] LET g THEN xBIN /[M] RETURN INVERSE ▚h(|s!PI▚2TAB FN @ FOR IN x NEW H! CLEAR ASN FN ACS w LLIST 2G>=H$USR VAL$ ▛ NEW 9{8 INVERSE >=CODE 2NOT INKEY$ INK =PEEK UEXP g5CHR$ ©INKEY$l IF LW COPY ASN LOAD :W LOAD L*[S]# DRAW ~< STEP " PAUSE W PLOT EXP g= RUN ▜_ THEN ©J GO SUB [BIN FN [T] FOR sPI IF BEEP DM NEW L'PI[A] CLS ; INVERSE LOAD 7!]FN STEP [P] RESTORE READ C MOVE INKEY$![U]▞VAL$ SCREEN$ ▙ GO TO INK !INKEY$ MOVE GO TO [H]n GO TO 1 LINE > BEEP e GO SUB Q CAT ▙VAL$ OR hRND"2 IF :ACS INVERSE f GO SUB n GO SUB VAL LIST GO SUB OR GO SUB ATN GO SUB ▛o GO SUB SIN GO SUB O RUN /|2▝TAN >_ IF [P]W*SGN FN CiPOINT 1xEXP 8CODE !ATTR ACS (w OR P LOAD ▗CODE IN COPY OR CLEAR [O]![S] GO SUB yC/[T]B< NEXT RETURN PRINT PRINT ~>=PI SAVE PAUSE _<>d*e CAT RETURN [E]50 READ RETURN %=]717M COPY S_q▘[M][O][Q]<@SCREEN$ AT VAL$ ©W# COPY %)-/3IN COPY !#'+-1UABS 9 PRINT ! GO TO IF +;M_SQR F POKE COPY [A] CIRCLE ipv} COPY ▟[F][N]FN LEN SQR PAPER COPY bhmu{[C] COPY [M][U]CODE LN x~▚[A][G][Q]SCREEN$ TAN COPY PEEK USR x▖[A][I][I][Q] LPRINT SQR CONTINUE 0 COPY ?L COPY BEEP COPY Pro▛Ta VERIFY ck8RND3.5[P]compi STOP latn▛ fPG PLOT ? NEW ns fo< LPRINT NEWY[I]ARqG M▚ MOVE COPY b▝yM SAVE ast/FIN L 24.▖1/98 fPEEK COPY DEF FN [A][F] BORDER Y DEF FN A[H]4<>H FLASH [W/< BRIGHT <=USR COPY LPRINT READ W[S]q1[M] IF SATTR T COPY 2@LEN rUSR ABS PAUSE [J] IF G POKE DEF FN lUSR RANDOMIZE "y LOAD u READ fa[A] READ ^ LIST CAT q POKE t INVERSE COS FLASH s DRAW PAPER p SAVE &q SAVE [O] DIM SAVE .SCREEN$ J OUT BRIGHT PRINT Z DRAW CODE >k[F] RANDOMIZE ▞w CIRCLE ▘ COPY ` PRINT FORMAT [E] GO TO [Q]} REM [E]~~`>= INVERSE jq CIRCLE rCODE CIRCLE GO TO ERASE NEW fCHR$ COS NEW RETURN SQR IN PLOT BRIGHT BIN DEF FN * LOAD PAPER STEP ` SAVE FLASH CAT STOP PAUSE LOAD ERASE LPRINT DEF FN RUN BRIGHT P RUN NEXT DIM @ OVER [K] OPEN # PLOT IF GO SUB & FORMAT PAPER h CIRCLE SIN OVER ▞ CIRCLE POKE , BRIGHT FORMAT CAT VAL BORDER FN [I] OPEN #EXP SCREEN$ - POKE ' ERASE LN ERASE AND TRND0 PLOT ' LPRINT COPY © LET OVER PI▗ CLOSE # FORMAT DEF FN u PLOT [T][R]9 POKE TAN s POKE [K][J][I] POKE p POKE TO RANDOMIZE RANDOMIZE COPY t GO SUB PAPER [M][N]▙ GO SUB POKE [R][P][H] POKE ▛ LLIST ATTR G LLIST TAB USR ATTR POINT $FN % PLOT LET i} PRINT [O] BEEP g DRAW POKE &▗VAL$ RUN w INK COPY INVERSE [K] POKE ~/ POKE CODE %IN ' GO SUB ~STR$ [M] BRIGHT .r BRIGHT ▙<>Y DRAW ▟+ DRAW % DRAW ▛fAT DRAW MERGE DRAW ▞) DRAW ▜ DRAW ▗I DRAW CLEAR >=INKEY$.HVAL$ DRAW $ SAVE ERASE VAL$ @ DRAW [A] DRAW USR VAL$ MOVE DRAW @x DRAW PAPER VAL$ ▘ DRAW ABS DRAW [C]VAL$ VAL$ ▞VAL$ ▝▙cSCREEN$ >= IF r PRINT 0 DRAW USR [C][O] DRAW @[O][C][O] DRAW A[S][A]SCREEN$ ` DRAW INT © IF PRINT K LINE M BORDER LOAD r. CAT Z DRAW FN DRAW PAPER [L] DRAW @ ERASE [H]▟ DRAW CONTINUE [Q] DRAW ( READ A▘▘▚e POKE @
