| Является частью релиза: | BestView |
| Размер файла: | 40448 |
| md5: | a7922a4333d210a6fb9fed82b11c8065 |
10 REM CLEAR THEN INKEY$! "/:;/ PLOT 2;/CODE 2j/v OPEN # RETURN !XXu COPY GO SUB VAL ! RESTORE RESTORE MERGE RESTORE * POKE /- THEN }(.%" POKE /!© STEP [M]^ MOVE [H] STEP f^ MOVE LLIST DRAW GO SUB VAL RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE STEP SGN ^ LLIST @USR MERGE OR GO SUB VAL STR$ MOVE STEP BIN ^ PAUSE v GO SUB VAL STEP VAL ^ MOVE *" STEP f^ LLIST USR STEP PEEK ^! INPUT ~#▚w THEN L RANDOMIZE 6> STEP ACS ^ MOVE K STEP f^ LLIST POKE STEP PEEK ^> STEP ACS ^ MOVE _ STEP f^ LLIST USR [ GO SUB VAL > STEP ACS ^><>2▙^` MERGE FOR S STEP f^CODE STEP RND^> FORMAT STEP RND^vG STEP BIN ^kb THEN BRIGHT GO SUB [Q] GO SUB [Q] REM ^ LLIST STEP SGN ^> STEP ACS ^! OPEN #^ FLASH MERGE GO SUB VAL LLIST ` GO SUB VAL ! CLS <>"c NEXT > STEP ACS ^ STEP USR STEP TAN ^! GO SUB ^[ MERGE GO SUB VAL <>> OR o&© GO SUB DO GO SUB VAL STR$ gy[E]O0 LLIST y2g^ MERGE OR FOR STEP [M]^STR$ MOVE z=gk© GO SUB VAL <> GO SUB [ POKE /* INVERSE RESTORE NOT /=>> CLEAR © GO SUB y<>T] NEXT STEP [ CLS <>z NEW USR { VERIFY LPRINT _ FORMAT z VERIFY W<>1 LLIST MOVE STR$ LET INK LLIST MOVE STR$ LET 1 PRINT OR MERGE RESTORE INK PRINT OR MERGE RESTORE !_;] STEP RESTORE !"B/CODE 2D/NOT `
20 CLEAR VAL "24575": RANDOMIZE USR VAL "23872"
30 CLEAR VAL "65367": RANDOMIZE USR VAL "15619": REM : RUN "S:D"
