| Является частью релиза: | BestView |
| Размер файла: | 36608 |
| md5: | 35a05516c20a56cfac0cdd5f19e48938 |
10 REM v!USR @> STEP Q^u~PI PRINT STEP O^ LET LINE =CODE 2/ OPEN # RETURN !XuX COPY GO SUB VAL ! RESTORE STEP A^ STEP LLIST @ GO SUB VAL v GO SUB VAL !▚^ STEP b^! STEP Q^ STEP STEP O^!`t STEP A^CODE STEP W^> FORMAT STEP W^!INKEY$^ STEP b^ STEP `> STEP Q^![L] OPEN # GO SUB VAL > STEP Q^!VAL USR r GO SUB VAL !▜ACS AND t GO SUB VAL ! CLS INT CONTINUE W GO SUB VAL >2 LIST STEP O^!USR [M] OR MERGE OR MERGE OR RESTORE MERGE GO SUB VAL > STEP Q^ LLIST MOVE STR$ GO SUB VAL STEP O^! LPRINT MOVE STR$ RESTORE GO SUB VAL > STEP Q^ MOVE LLIST STR$ GO SUB VAL STEP O^v!--"=X"]X!/~PI( DRAW 6NOT `CODE 2] GO SUB [ POKE /<>> CLEAR © GO SUB y<>* INVERSE RESTORE NOT /=v FOR !FF"=X"]X FOR =@ GO SUB [Q] GO SUB [Q] RESTORE OR STEP AND ^STR$ LLIST yPI LOAD <>© RETURN A RETURN ] DRAW A DRAW © RETURN ~~|>|>~~© RETURN ~~~~~~{ OVER © RETURN ©©©©©©@ RETURN @ RETURN @ RETURN @ RETURN @ RETURN @ RETURN © RETURN z NEW USR { VERIFY LPRINT _ FORMAT z VERIFY W<>
20 CLEAR VAL "24575": RANDOMIZE USR VAL "23872"
30 CLEAR VAL "65367": RANDOMIZE USR VAL "15619": REM : RUN "PROGNAME"
