Es parte de la publicación: | Turbo The Tortoise |
Tamaño del archivo: | 386 |
md5: | 2318b724b0707a2d9fc4e31fe66f09f5 |
0 REM !=` REM MERGE ~ACS #xLEN PRINT LLIST %"6/!@@ COPY u GO SUB VAL !USR ZSTR$ Z 6 OR GO SUB VAL STR$ 6 GO SUB VAL > STEP > BEEP CODE BEEP CODE 2/ BEEP ! FORMAT /~ RETURN ( RESTORE BEEP LLIST # PRINT !▝]~ VERIFY RETURN COPY ( RESTORE BEEP LLIST # NEXT @!USR P STEP [S]] @! LPRINT P STEP [S]]!@@ COPY u GO SUB VAL !<"6/<>[Q][Q]BIN DIM NEXT FOR RESTORE DATA [Q] STOP RANDOMIZE [Q] ERASE <> CAT CLOSE #[Q]>=STR$ NOT THEN OR ERASE [Q] COPY [Q]LEN EXP EXP SIN [Q][Q]© OR MERGE RESTORE OR MERGE RESTORE OR GO SUB _G[Q]ACS w#STR$ NEXT LLIST MOVE STR$ $ BORDER LLIST MOVE STR$ vvv BRIGHT FOR OR MERGE RESTORE GO SUB VAL LLIST MOVE STR$ $ LET <>
10 BORDER NOT PI: PAPER NOT PI: INK NOT PI: CLEAR VAL "27499": POKE VAL "23624",NOT PI: OUT VAL "254",NOT PI: RANDOMIZE USR VAL "23798"
20 LOAD "TURBO_T1" CODE : RANDOMIZE USR VAL "27500"
30 REM NO POKE
40 RANDOMIZE USR VAL "27576"