Dominion demo: DOMINION.B

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