Является частью релиза: | Dominion demo |
Размер файла: | 39424 |
md5: | 2af429a547b53e9ee1e4f4e10ddb8925 |
1 CLOSE #USR 0:!WELCOME TO PERESTROIKA WORLD'94 COPY " NEXT GO SUB > THEN 7 GO SUB T GO SUB G THEN 7 THEN 7 GO SUB O GO SUB f!@@ COPY u GO SUB VAL 18@!lkmk[D][E]CODE w GO SUB VAL OPEN # RETURN OPEN #>2=/2H/2k/1 COPY W INVERSE !^ CLEAR !@[M]LN GO SUB WFN POINT GO SUB L_ GO SUB _ GO SUB O INVERSE VAL$ FN POINT ATTR GO SUB s@*@/AT GO SUB LTAB INVERSE wFN ATTR AT / CLEAR w{ INVERSE VAL$ AT FN / GO SUB ~ INVERSE w/ GO SUB LATTR TAB CLEAR wo INVERSE f RESTORE INVERSE # CLEAR # INVERSE # CLEAR #xLEN CHR$ wf FLASH READ FOR [T] RETURN REM POKE FLASH n BEEP 3u ERASE CIRCLE -SIN ? OR /▜ BEEP PLOT BIN &4 MERGE CLS PAPER CHR$ 4[K] RESTORE ▙W INVERSE AND nFN PIv[O]u MERGE TO POKE Y[Q]AT RANDOMIZE urVAL$ o ERASE 'S[ AND STR$ PLOT 8L$kwySQR 6 AND *©E9 LLIST U NEXT u DEF FN wm FOR SW GO TO [J]HASN POINT ATN REM POINT N LOAD [H] OR >=POINT LOAD © FORMAT EXP PRINT SQR OPEN # DIM LEN PEEK I DATA @"▗POINT GO TO )[H]}}tr© INVERSE ,"Am OUT DEF FN VERIFY ▞7 GO SUB INK / FOR "UU5 OR >=TAB SQR btSQR ▝POINT ▚ MERGE OR VERIFY LPRINT SAVE LIST z REM [I] LINE BQ^[E]<=[R]TAN SGN T`©[B][C][M]USR V GO TO NOT SAVE INVERSE :t▛" GO SUB 6^Q[C] INPUT XQVAL Rd PAPER CONTINUE $ CIRCLE TAB OUT [R]j CLEAR LLIST NX3w LLIST OVER `▘- IF VAL PI PLOT AND LINE POINT "SCREEN$ DATA R BEEP Qu TO PRINT l{B LLIST ]APEEK a[P]fzp DIM ACS ▞-TCHR$ [F][O] DEF FN GO SUB DI STEP [A]RNDh[C]![T]|j AND n[O]<> PRINT ![M] CIRCLE GI[Q] LOAD AND GO TO ; MOVE xRNDAT >=ATN [F] SAVE LPRINT OR PIf RETURN PI PAPER INKEY$d:} BRIGHT PAPER CIRCLE FORMAT L▞ REM .#[B] OPEN #IN (@B MOVE _ AND INVERSE LPRINT TAN EXP BORDER LOAD EXP a&D NEXT b+ SAVE FN INPUT [S]^sINT =LEN mNOT ▖[H]Aj IF + DATA [T]IN B OR /73K RANDOMIZE > CIRCLE DEF FN c0[A]XACS }[H]aTAN CAT ▟- FORMAT NOT YtIN PI~2$ INVERSE Q FOR k ERASE LINE ~ FLASH CLEAR [U]INT [B] GO SUB LOAD > FORMAT 4 POKE t LET #R LOAD >HEXP LET 9F©▗a[S]G[O]P[J]N BORDER AND [B]/ LIST 2 MERGE [B] RUN nRND CLOSE #TAN &(VAL pb LLIST EATTR ▖=ckSGN 2LN ) CLS - LINE BIN CAT [K] PAPER [G]Keer COPY PAUSE p THEN [H] LPRINT :P DATA GH+SGN ERASE [E] RETURN ▗PEEK a CAT FN `g THEN BEEP ▙ VERIFY AT ACS q IF lPIc PAUSE VAL LPRINT SGN ERASE FOR IN [N] FORMAT [K] OUT ,[M]j[N]2EXP SQR LIST [S] BEEP MOVE ASN 7d[E]%w[U]<EXP zPISQR K POKE "▙ LIST #SCREEN$ ; RANDOMIZE USR 1zY©ECHR$ IF [E]y MERGE SIN Z[E]VAL S;IN 0x INVERSE [F]SGN DIM [[L]d~[H][L] PLOT TAN [O]IN [J]9~ BORDER [G]P LINE <>[K]y[I](ud DEF FN CIRCLE 7ktbBIN STR$ LN STEP RANDOMIZE BIN ▛ TO <= NEW ▘RNDLEN RETURN STEP BINT [J] REM FORMAT DEF FN [N]SQR PI7>=8 FOR INPUT o:d[O]▜[U]J<>[T]G[K]~[M]qAT CLOSE #BIN ( DATA g LET J COPY tEXP B LLIST IF g INK sSIN R>=[H]"m? DATA >} CONTINUE >= DEF FN ▚[L] FORMAT ATN [K]▖>=RND©8 FLASH INKEY$ VERIFY VAL CODE REM ACS FN [P][O] CLEAR FORMAT >INT CIRCLE AND VERIFY > LPRINT DRAW <FN ▖▝ REM IF BEEP MERGE : LINE BORDER OUT [E][J]_ MERGE CODE FN Bs[P]} GO SUB 5wd OVER [Q]LEN FORMAT $ OVER SCREEN$ LLIST K IF FN BRIGHT INT 3IN $[M]7 GO SUB SCREEN$ 3▜[A]:F8*y PLOT RANDOMIZE ▗fAT !IN ZCHR$ ▖BIN [A] CLOSE #aINKEY$▜[Q]XM0Sg CIRCLE &SIN 3 LLIST DRAW LIST TAB SQR CIRCLE DEF FN INT [V9FINKEY$"[H]z CLS L DRAW d▗4SIN }BIN P DATA - AND )RBIN DEF FN 0 AND OUT POKE efUSR STR$ EXP CIRCLE VERIFY .a CONTINUE A BRIGHT A SAVE _EXP RETURN UTo SAVE _[I]][O] OVER @PISTR$ Ey[O]` BEEP CODE ▛S[P]r DEF FN L RESTORE 7ATN . OR 2ZASN ▝l CAT /b▗ CLEAR 4▞N<l[R]/o OPEN #ACS PAPER POINT <=w[L]r~ SAVE [P]{*6 PAUSE An?<>[J] DIM DIM gCODE STEP INT ATTR WlBIN READ EXP LLIST N[M]FN CLEAR <= NEW FOR ▛▛B▞PIsfSGN CONTINUE 2R[K] LIST i[R]ABS "▙ MERGE VAL$ RESTORE |[E] VERIFY RNDRND AND PEEK [Q])▟,p[N]▚ CLEAR LOAD ▖▚ CAT ;#kFVAL FLASH [O]▙▟▛NOT AND %BIN M TO BIN L2 LLIST n%CODE &SCREEN$ CIRCLE AT [B]dg BORDER D!l GO SUB T DATA -▗INT [C]+© PAPER CLS c▜2 CLS RUN BRIGHT SCREEN$ STR$ 2Ir+/X[E]O8< INK CODE FORMAT ▞TAB VAL OSIN k[M]▞8[N]'SCREEN$ ▞▖ DEF FN ▚ CLOSE # PLOT CONTINUE CpPF9[M]` LIST [D][E]) SAVE ATTR K% OUT MV&yL[T]+STR$ 0 REM !CHR$ THEN 9 NEW [B]ym BORDER PRINT v RANDOMIZE 8 LOAD t OVER ]~[O]D CLS DATA ▚NATTR -4EXP PEEK REM AT [J]B CLOSE #▜ BEEP ' LIST RETURN GO SUB NEW %. OUT [S]f▖[I]f CONTINUE [E]CODE VAL ▝>= OVER [P] OPEN #▗X[D][N]A VERIFY LIST OR g▛POINT OR jATTR '▝RNDX NEXT [U] VERIFY COPY [T] CLS EXP USR <=wTAN 2<HM▝( PLOT STOP 0[B]0▖|l) LPRINT PEEK PI-:q TO OR m FLASH CONTINUE LLIST [B]UK STOP )O[J]QSIN @[P]R PRINT VAL AT DEF FN MP?4[M]▜ FORMAT g▗[F] IF COS 9a:$SQR AT PRINT [R]c IF +BIN LN 3u;`Y[G]yH GO TO IV LIST n[C][L][H][A]yABS NEW x CLEAR RANDOMIZE INT )Cw PAPER VAL AT )y▙[M][B] INK H DIM i= SAVE 8c[L] POKE INKEY$<=n▟y BORDER d RANDOMIZE . GO TO hG PLOT ;TAB b[N]▞D[P] [L]A BORDER COS VAL ERASE PRINT 3LEN CAT [O];k LOAD DEF FN BORDER ' CLEAR Y[A] THEN RANDOMIZE GO TO ▛8W©>=POINT LPRINT ] DATA j▟f{H| DATA RUN INT OR RANDOMIZE 0E FLASH CONTINUE LIST jmv/[C]N GO TO ▖BIN [S] LPRINT ▟PEEK m5▞ LPRINT %SCREEN$ G▛![I]STR$ !+2 DATA 4m CIRCLE CONTINUE 2iPEEK BIN ~] DATA ![K]▗m[A] CAT BEEP )[U]! GO SUB IATTR MOVE N^o▝[[K]xMW[I][D]n9 INVERSE OUT LN ▘ FOR qTAN ▜[U] CIRCLE f_ba CAT PEEK }F? INK 9[P]▝m[T] DATA B LLIST PLOT C<=TAN 3LWVAL$ /7[J] THEN [U][R]2 INVERSE >[S]NSGN CLS e[E]POINT REM & INK pDPTAN Z( INVERSE DIM [L]A▘ BEEP PEEK NEXT NEXT INPUT $▛▟ CAT j[H]ABS |▚ATTR POINT <[ CONTINUE RANDOMIZE [J] BORDER ATTR VAL OUT OVER HEXP [A] TO OPEN #CHR$ Z PLOT SIN $▞M LIST vzO BRIGHT ▘