A race against time! Careful not to let the engine overheat! Watch out for those hairpin turns they wearout your tires!
Content
Image Gallery
Source Code
0 REM 8 DRAW RETURN RETURN DRAW VERIFY RETURN STICK DRAW STICK AND RETURN RETURN RETURN DRAW DRAW RETURN 0 DRAW RETURN DRAW ?? x COPY COPY COPY COPY COPY COPY COPY COPY SAVE ? COPY COPY COPY COPY COPY COPY RETURN © COPY COPY LIST 0 RETURN RETURN RETURN RETURN VERIFY RETURN RETURN RETURN RETURN AND RETURN RETURN RETURN RETURN RETURN RETURN 0 RETURN RETURN RETURN © COPY USR COPY USR COPY COPY COPY COPY COPY COPY COPY COPY COPY USR © COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW VERIFY AND AND AND AND AND COPY CAT > COPY GO TO ? COPY RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ▝ COPY COPY COPY COPY COPY COPY SAVE RETURN DRAW DRAW AND VERIFY DRAW RETURN RETURN AND AND `` DRAW VERIFY RETURN `0 VERIFY DRAW RETURN COPY OUT USR © COPY RETURN COPY COPY COPY LIST COPY DRAW COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LPRINT COPY COPY COPY COPY COPY © COPY COPY COPY COPY COPY COPY COPY DRAW USR USR AND VERIFY USR RETURN DRAW AND AND ``USR VERIFY DRAW `0 VERIFY USR DRAW COPY COPY INPUT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LPRINT © COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY SAVE COPY COPY COPY USR © COPY COPY COPY COPY COPY COPY COPY COPY SAVE RETURN USR RETURN RETURN RETURN RETURN RETURN AND AND RETURN RETURN FREE FREE RETURN VERIFY USR `FREE 0 VERIFY RETURN AND COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN ©USR ? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW USR FREE FREE DRAW STICKFREE AND AND STICKFREE >>FREE VERIFY USR `>0 VERIFY FREE AND COPY COPY COPY © COPY RETURN COPY COPY COPY COPY COPY COPY LPRINT COPY COPY COPY COPY COPY DRAW ? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY SAVE © COPY RETURN COPY © COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY SAVE COPY USR COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY p BORDER LOAD READ s COPY COPY < COPY COPY COPY COPY COPY USR LPRINT ?_PEEK PEEK COPY COPY NOT ABS FREE FREE NOT ▝ LPRINT LPRINT LIST LIST DRAW IF BEEP BEEP LPRINT LOAD ©s; COPY COPY < COPY COPY COPY COPY COPY USR LPRINT BRIGHT RETURN DEF FN <=8;©s READ COPY COPY < COPY COPY COPY COPY COPY USR LPRINT RUN RETURN DEF FN BRIGHT @!▝@> PRINT > PRINT GO SUB VAL = PAUSE \qT] LET = DATA <>G! OVER G> PRINT > PRINT GO SUB LN += PAUSE \qATN GO SUB BT]= STOP <><><>▛r9\m\hKRND CONTINUE tINT ▌ OR CONTINUE tINT !\b@ GO SUB VAL <>-\hqACS t▝xFREE STICK COPY COPY COPY COPY t' SAVE SAVE INVERSE SAVE INVERSE MOVE INVERSE MOVE INT MOVE INVERSE MOVE INVERSE SAVE tq GO SUB 000000 TO TO l RETURN l RETURN l RETURN CIRCLE RETURN 6 RETURN 0 TO TO 06fxUSR v BRIGHT >= BRIGHT v``USR 0```0`00`TAN x DRAW xTAN 00 DRAW 00``USR DRAW ``0`USR STICK RETURN AND AND AND RETURN STICK88 DRAW RETURN FREE USR RETURN RETURN DRAW RETURN FREE RETURN DRAW TO TO RETURN RETURN RETURN RETURN USR RETURN RETURN DRAW STICK RETURN USR DRAW AND RETURN STICK RETURN RETURN 00STICK RETURN AND STICK AND RETURN STICKSTICK RETURN AND RETURN FREE ````````USR 0`0 DRAW DRAW `00`STICK RETURN AND 0STICK AND PLOT VERIFY PLOT NEW STICK RETURN AND RETURN RETURN AND AND DRAW RETURN DRAW AND RETURN DRAW STICK RETURN AND USR AND RETURN STICK DRAW RETURN AND AND RETURN DRAW RETURN RETURN DRAW USR RETURN FREE RETURN RETURN DRAW USR USR USR FREE RETURN USR OVER AND RETURN FREE AND AND RETURN RETURN AND AND AND 000000STICK AND TO CIRCLE LIST CIRCLE TO AND USR USR USR USR USR RETURN RETURN DRAW RETURN AND VERIFY VERIFY VERIFY VERIFY DRAW RETURN AND AND AND AND AND STICK RETURN AND AND AND RETURN STICK DRAW RETURN RETURN DRAW USR USR STICK RETURN AND AND USR RETURN FREE DRAW RETURN RETURN DRAW AND AND 80 RETURN DRAW RETURN RETURN ``FREE > AND AND AND AND AND RETURN FREE AND AND AND AND INPUT STICK8 VERIFY VERIFY VERIFY VERIFY VERIFY RETURN STICK AND AND AND STICK AND AND AND AND AND AND FREE RETURN DRAW RETURN RETURN 8` RETURN RETURN <00000<USR `0<<<FREE Z COPY <FREE f LIST ` RETURN RETURN FREE FREE FREE FREE FREE FREE DATA DATA DATA \SCREEN$ \ DATA DATA FREE FREE FREE //\\ DATA \ RETURN \ DATA SCREEN$ SCREEN$ \FREE D RETURN \\o DATA SCREEN$ SCREEN$ \FREE RETURN RETURN \o RETURN RETURN \o RETURN \ DATA \ DATA FREE RETURN FREE FREE DATA SCREEN$ \ DATA FREE RETURN FREE FREE DATA SCREEN$ \ DATA FREE RETURN FREE DATA DuSCREEN$ RETURN FREE FREE FREE FREE FREE FREE DATA DATA DATA \SCREEN$ \ DATA DATA FREE FREE FREE //\\ DATA \ RETURN \ DATA SCREEN$ SCREEN$ \FREE D RETURN \\o DATA SCREEN$ SCREEN$ \FREE RETURN RETURN \o RETURN RETURN \o RETURN \ DATA \ DATA FREE RETURN FREE FREE DATA SCREEN$ \ DATA FREE RETURN FREE FREE DATA SCREEN$ \ DATA FREE RETURN FREE DATA DuSCREEN$ RETURN COPY p BORDER LOAD READ s COPY COPY < COPY COPY COPY COPY COPY USR LPRINT =XSGN LN COPY COPY NOT < LPRINT LPRINT LIST LIST SGN =p BORDER LOAD READ s COPY COPY < COPY COPY COPY COPY DEF FN USR LPRINT 8ASIN \qBIN ` LPRINT VAL 0▟z RESTORE CONTINUE LIST @ COPY COPY < COPY ▖USR LPRINT P\aFN @▝▝@ D !B▝p BORDER SCREEN$ MERGE * COPY COPY < COPY PRINT SCREEN$ U▌USR LPRINT 8ASIN \qBIN @\qVAL 0▟p BORDER SCREEN$ MERGE " COPY COPY < COPY PRINT SCREEN$ USCREEN$ USR LPRINT USCREEN$ U(@\qPFN p BORDER SCREEN$ MERGE " COPY COPY < COPY PRINT SCREEN$ USCREEN$ USR LPRINT USCREEN$ USCREEN$ USCREEN$ USCREEN$ @\qPFN TFN TFN qSTICK%q\qq%qDq>=p▘FSTICKSTICK&qFREE v<> COPY COPY 46 REM \hq\hq\a\b\c\d\e\f DEMO MODE:\g\b\i\j\b\l\a\b\c\d\e\f:00 QUITYOUR CHOICE?YOU RAN OUT OF TIME!YOU BLEW UP A TIRE AND YOUCANNOT FINISH THE RACE!YOU ARE THE NEW CHAMPIONOF GRAND PRIX!CONGRATULATIONS!\a\b\c\d\e\fENGINE TROUBLE!YOU LET IT OVERHEAT!BETTER LUCK NEXT TIME!GAME OVER RESTORE FOR FOR LLIST s#r+<> RESTORE ATN FOR GO SUB B PAUSE RESTORE >bkLN CLS EXP SAVE STOP ATN RESTORE FOR B0 CLS MERGE !j\>w!\>w!\>w!6\>Bw!7\> w STEP /\g!ON ERR\>[w!STICK\>pw!\b\>w!▟\>w!H\>w STEP REM > OPEN # RETURN >> BEEP ▜ STEP FLASH !>> STEP FLASH !> BEEP !<>▚ STEP O▖! THEN ▚ STEP O▖! STEP ▚ STEP O▖> STEP ▚ BEEP > BEEP STEP INKEY$\f! STEP ▚ GO SUB [ STEP ▚ STEP O▖* STEP ▚ATN GO SUB R LINE >▞NOT > BEEP > BEEP !<>▚ STEP O▖ STEP INKEY$\f!<>▚ STEP O▖ STEP INKEY$\f STEP INKEY$\f! STEP ▚h STEP O▖! CAT ▚@ STEP O▖! MOVE ▚ GO SUB [ STEP ▚ FOR GO SUB \q FOR 6* CAT ▚: MOVE ▚w! STEP ▚ GO SUB [ STEP ▚ STEP O▖! CAT ▚ GO SUB [ CAT ▚ STEP O▖* STEP ▚pATN GO SUB R LINE ABS ▞NOT ▞! OPEN #▚q STEP O▖! MERGE ▚ GO SUB [▜ STEP O▖! BEEP ▚ GO SUB [ OPEN #▚ STEP O▖! INK ▚ GO SUB [ MERGE ▚ FOR GO SUB \q FOR 6* OPEN #▚: INK ▚w* BEEP ▚: INK ▚w! OPEN #▚ GO SUB [ OPEN #▚ STEP O▖! MERGE ▚ GO SUB [ MERGE ▚ STEP O▖* OPEN #▚qATN GO SUB R LINE '▌NOT READ ▞*ATN GO SUB RCHR$ T▌!k\>w> BEEP ▜! STEP FLASH !> BEEP !k\>w*ATN GO SUB RCHR$ x▌! FLASH ▚ STEP O▖! INVERSE ▚ STEP O▖! MERGE ▚ GO SUB [▜ STEP O▖! STEP ▚q STEP O▖* STEP ▚>w! OUT ▚ GO SUB [ STEP ▚ STEP O▖* OUT ▚>w! STEP ▚ GO SUB [ STEP ▚ STEP O▖* STEP ▚qATN GO SUB R LINE AND ▌NOT \b▌! LLIST ▚ STEP O▖! READ ▚ STEP O▖! RESTORE ▚ STEP O▖! BORDER ▚ STEP O▖! DIM ▚ STEP O▖> BEEP > BEEP ! FOR ▚ GO SUB [ BORDER ▚ STEP O▖ STEP q\f! FOR ▚ GO SUB [ RESTORE ▚ STEP O▖> BEEP > STEP q\f> BEEP > BEEP ! FOR ▚ GO SUB [ FLASH ▚ STEP O▖ STEP ▚\f▜ STEP FLASH !! FOR ▚ GO SUB [ INVERSE ▚ STEP O▖ STEP ▚\f> OPEN # PRINT >\g OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT >\g OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT >< OPEN # PLOT ! GO SUB ▚ STEP O▖! LOAD ▚ STEP O▖! CAT ▚ STEP O▖! LET ▚ STEP O▖! NEXT ▚ GO SUB [ CAT ▚ STEP O▖! PRINT ▚ STEP O▖! RUN ▚ STEP O▖! RANDOMIZE ▚ GO SUB [ CAT ▚ STEP O▖! FOR ▚ GO SUB K GO SUB ▚ STEP Y▖> BEEP > BEEP STEP q\f> OPEN # PRINT : GO SUB ▚ OPEN # PLOT > OPEN # PRINT : GO SUB ▚ OPEN # PLOT >> LLIST ▚ BEEP * LOAD ▚ATN GO SUB RCHR$ S▄▜ STEP FLASH ! STEP LPRINT p* LOAD ▚ATN GO SUB RCHR$ k▄▜ STEP FLASH ! STEP SQR p* LOAD ▚ATN GO SUB RCHR$ ▄▜ STEP FLASH !>> STEP FLASH !>> BEEP ! CLS ▚q STEP O▖! STEP ▚q STEP O▖!\b\>w! CLEAR ▚ GO SUB [ CLS ▚&q STEP Y▖! CLEAR ▚ GO SUB [ CLEAR ▚ STEP `▖! CLEAR ▚ GO SUB [ NEXT ▚ GO SUB K CLEAR ▚ STEP Y▖! COPY ▚ GO SUB [ CLS ▚&q STEP Y▖! COPY ▚ GO SUB [ COPY ▚ STEP `▖! COPY ▚ GO SUB K COPY ▚ STEP Y▖* CLEAR ▚ATN GO SUB R IF )▟* CLEAR ▚ GO SUB R PAUSE )▟: CLEAR ▚O: COPY ▚G STEP >&! CLEAR ▚ GO SUB [ CLS ▚&q STEP Y▖! CLEAR ▚ GO SUB [ CLEAR ▚ STEP `▖! CLEAR ▚ GO SUB [ NEXT ▚ GO SUB K CLEAR ▚ STEP O▖* CLEAR ▚ATN GO SUB R IF u▟* CLEAR ▚ GO SUB R PAUSE u▟: CLEAR ▚O: COPY ▚G STEP >&! CLS ▚ GO SUB [ STEP ▚ STEP O▖!\b\>w* LET ▚ATN GO SUB RCHR$ \k▟!\b\>w! LET ▚ GO SUB [ LET ▚ STEP O▖* LET ▚ATN GO SUB RCHR$ IN ▟! LET ▚ STEP O▖! CLEAR ▚ GO SUB [ STEP ▚q STEP Y▖! CLEAR ▚ GO SUB [ CLEAR ▚ STEP `▖! CLEAR ▚ GO SUB [ RANDOMIZE ▚ GO SUB K CLEAR ▚ STEP Y▖! COPY ▚ GO SUB [ STEP ▚q STEP Y▖! COPY ▚ GO SUB [ COPY ▚ STEP `▖! COPY ▚ GO SUB K COPY ▚ STEP Y▖* CLEAR ▚ATN GO SUB R IF 2▙* CLEAR ▚ GO SUB R PAUSE 2▙: CLEAR ▚O: COPY ▚G STEP >&! CLEAR ▚ GO SUB [ STEP ▚q STEP Y▖! CLEAR ▚ GO SUB [ CLEAR ▚ STEP `▖! CLEAR ▚ GO SUB [ RANDOMIZE ▚ GO SUB K CLEAR ▚ STEP O▖* CLEAR ▚ATN GO SUB R IF FREE ▙* CLEAR ▚ GO SUB R PAUSE FREE ▙: CLEAR ▚O: COPY ▚G STEP >&!▜ GO SUB [ CLS ▚ FOR GO SUB \q FOR 6*▜ATN GO SUB RCHR$ PLAY ▙! PRINT ▚ GO SUB [ PRINT ▚ STEP O▖*▜ATN GO SUB RCHR$ ABS ▙! PRINT ▚ GO SUB [ PRINT ▚ STEP Y▖!▜ GO SUB [ STEP ▚ FOR GO SUB \q FOR 6*▜ATN GO SUB RCHR$ READ ▙! RUN ▚ GO SUB [ RUN ▚ STEP O▖*▜ATN GO SUB RCHR$ DRAW ▙! RUN ▚ GO SUB [ RUN ▚ STEP Y▖! RANDOMIZE ▚ GO SUB [ RANDOMIZE ▚ GO SUB K RUN ▚ STEP O▖! NEXT ▚ GO SUB [ NEXT ▚ GO SUB K PRINT ▚ STEP O▖! CLS ▚ GO SUB [ CLS ▚ STEP Y▖! STEP ▚ GO SUB [ STEP ▚ STEP Y▖* STEP ▚qATN GO SUB R LINE A█NOT VAL ▄! LET ▚ GO SUB [ LET ▚ STEP O▖* LET ▚ATN GO SUB RCHR$ f█! LET ▚ STEP O▖! STEP ▚q STEP O▖! CLS ▚ GO SUB [ STEP ▚ STEP O▖!▜ GO SUB [ STEP ▚ STEP Y▖!▜ GO SUB [▜ FOR GO SUB \q FOR 6* STEP ▚:▜w!▜ GO SUB [ CLS ▚ STEP Y▖!▜ GO SUB [▜ FOR GO SUB \q FOR 6* CLS ▚:▜w! STEP ▚ GO SUB [ STEP ▚ STEP Y▖* STEP ▚qATN GO SUB R LINE INVERSE █NOT r█*▜ATN GO SUB RCHR$ GO TO █NOT G\k* FLASH ▚ATN GO SUB RCHR$ '\a* INVERSE ▚ATN GO SUB RCHR$ '\a> OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT NOT ▄\j* BORDER ▚ GO SUB R IF @\a! READ ▚ STEP O▖!▜ GO SUB [ MERGE ▚ FOR GO SUB \q FOR 6! MERGE ▚ GO SUB [ MERGE ▚ STEP O▖*▜ATN GO SUB RCHR$ COS \a! MERGE ▚ GO SUB [▜ STEP O▖!▜ GO SUB [▜ STEP Y▖> OPEN # PRINT > PLOT > OPEN # PRINT >8 OPEN # PLOT > OPEN # PRINT > REM OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT >x OPEN # PLOT NOT INVERSE █!q:▜w!&q:▜w!\b\>w! NEXT ▚ GO SUB [ CAT ▚ STEP O▖! MOVE ▚:%qw#6* MOVE ▚ATN GO SUB RCHR$ RUN \a! CAT ▚ GO SUB [ CAT ▚ STEP Y▖* MOVE ▚ATN GO SUB RCHR$ ! CAT ▚ GO SUB [ CAT ▚ STEP O▖*ATN GO SUB RCHR$ \bNOT STEP \f! LOAD ▚ STEP O▖!▜:\w#6!\>w!▜ STEP ) STEP m&!▜w#6* READ ▚ATN GO SUB RCHR$ l\b STEP ACS \j* GO SUB ▚ATN GO SUB R IF l\bNOT Q\o* READ ▚ATN GO SUB RCHR$ ON ERR\bNOT FLASH ▛*▜ATN GO SUB RCHR$ \d\b!▜ STEP O▖*▜ATN GO SUB RCHR$ ATTR \b!▜ STEP O▖*▜ATN GO SUB RCHR$ NOT \b!▜ STEP O▖*▜ATN GO SUB RCHR$ FLASH \b!▜ STEP O▖*ATN GO SUB RCHR$ \c!▜:\w#6*▜ATN GO SUB R LINE \cNOT FREE ▖*▜ATN GO SUB RCHR$ 4\c*ATN GO SUB RCHR$ 4\c! CAT ▚ GO SUB [ CAT ▚ STEP O▖! LOAD ▚ STEP O▖NOT Y\c*▜ATN GO SUB RCHR$ Y\c! CAT ▚ GO SUB [ CAT ▚ STEP O▖! LOAD ▚ STEP O▖* CAT ▚ATN GO SUB R IF u\c* CAT ▚ GO SUB R PAUSE u\cNOT FORMAT \c! BORDER ▚ GO SUB [ BORDER ▚ STEP O▖! FOR ▚ GO SUB [ BORDER ▚ STEP O▖> BEEP > BEEP STEP q\f* BORDER ▚ GO SUB R IF TAN \c! READ ▚ STEP O▖* GO SUB ▚ATN GO SUB R PAUSE STEP \c! GO SUB ▚ GO SUB [ GO SUB ▚ STEP O▖NOT PLOT \c*▜ATN GO SUB RCHR$ PLOT \c* GO SUB ▚ GO SUB R IF PLOT \c! GO SUB ▚ GO SUB [ GO SUB ▚ STEP Y▖*▜ATN GO SUB RCHR$ *\d*ATN GO SUB RCHR$ *\d! CAT ▚ GO SUB [ CAT ▚ STEP Y▖! LOAD ▚ STEP O▖NOT O\d*▜ATN GO SUB RCHR$ O\d! CAT ▚ GO SUB [ CAT ▚ STEP Y▖! LOAD ▚ STEP O▖*▜ATN GO SUB RCHR$ t\d* GO SUB ▚ATN GO SUB R PAUSE t\d! GO SUB ▚ GO SUB [ GO SUB ▚ STEP O▖!▜ GO SUB [ GO SUB ▚ STEP `▖!:x\w#6* GO SUB R IF FORMAT \d!x\>w! INVERSE ▚ GO SUB [ INVERSE ▚ STEP Y▖* INVERSE ▚ATN GO SUB R PAUSE FORMAT \d! INVERSE ▚ STEP O▖! FLASH ▚ GO SUB [ FLASH ▚ STEP Y▖* GO SUB R IF \e> BEEP > BEEP ! FOR ▚ GO SUB [ FLASH ▚ STEP O▖ STEP ▚\f▜ STEP FLASH !! FOR ▚ GO SUB [ INVERSE ▚ STEP O▖ STEP ▚\f!▜ GO SUB [▜ STEP Y▖*▜ATN GO SUB R IF +\eNOT ▝\d! DIM ▚ GO SUB [ DIM ▚ STEP Y▖* DIM ▚ATN GO SUB RCHR$ v\e! BORDER ▚ GO SUB [ BORDER ▚ STEP O▖> BEEP > BEEP ! FOR ▚ GO SUB [ BORDER ▚ STEP O▖! DIM ▚ STEP O▖ STEP q\f* GO SUB ▚ATN GO SUB R PAUSE USR \e* DIM ▚ATN GO SUB RCHR$ USR \e! BORDER ▚ GO SUB [ BORDER ▚ STEP O▖! DIM ▚ STEP O▖! FOR ▚ GO SUB [ BORDER ▚ STEP O▖> BEEP > BEEP STEP q\f* GO SUB ▚ATN GO SUB R PAUSE INK \e! RESTORE ▚ GO SUB [ RESTORE ▚ STEP O▖* GO SUB ▚ GO SUB R IF COPY \e* RESTORE ▚ATN GO SUB R LINE COPY \e! RESTORE ▚ GO SUB [ RESTORE ▚ STEP Y▖! LLIST ▚ GO SUB [ RESTORE ▚>= STEP Y▖! LLIST ▚ GO SUB [ LLIST ▚( STEP p▖! LLIST ▚ GO SUB K LLIST ▚ STEP Y▖* RESTORE ▚ GO SUB R IF E\f!TX>FN w!UX>FN w!VX>FN w! FOR ▚ GO SUB [ RESTORE ▚ STEP O▖> BEEP > STEP q\f* RESTORE ▚ GO SUB R IF n\fNOT i\lNOT FLASH ▛* FOR ▚ATN GO SUB R PAUSE ▚\f▜ STEP FLASH !* FOR ▚ATN GO SUB R PAUSE \l\f▜ STEP FLASH ! GO SUB K FOR ▚ STEP DIM 0 STEP \r1<>>:<>▚ BEEP >: THEN ▚ BEEP ▜ STEP FLASH !>> BEEP >> BEEP > BEEP <>! LOAD ▚ STEP O▖!▜:%qw#6*▜ATN GO SUB RCHR$ CLS \f!▜ STEP O▖*▜ATN GO SUB RCHR$ !▜ STEP O▖* GO SUB ▚ GO SUB R IF ,\g!▜ STEP O▖NOT l\b!▟\>8w STEP REM !\> COPY w! STEP O▖!▜ STEP O▖!ON ERRq>\ow STEP vq! CLS ▚▀ STEP O▖! OPEN #▚ GO SUB [ CLS ▚ FOR GO SUB \q FOR 6! CLS ▚ GO SUB [ CLS ▚ STEP O▖! BEEP ▚ GO SUB [ CLS ▚ FOR GO SUB \q FOR 6! CLS ▚ GO SUB [ CLS ▚ STEP O▖! INK ▚ GO SUB [ CLS ▚ FOR GO SUB \q FOR 6! CLS ▚ GO SUB [ CLS ▚ STEP O▖* OPEN #▚ATN GO SUB RCHR$ >=\gNOT COS \h* OPEN #▚ATN GO SUB RCHR$ BORDER \g> OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT NOT 0\h! GO SUB [ BEEP ▚ STEP O▖> OPEN # PRINT >< OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT : BEEP ▚ OPEN # PLOT > OPEN # PRINT : OPEN #▚ OPEN # PLOT > OPEN # PRINT : OPEN # PLOT > OPEN # PRINT : OPEN #▚ OPEN # PLOT ! INK ▚ GO SUB [ INK ▚ CONTINUE STEP `▖!▜:\w#6!\> COPY w*▜ATN GO SUB R LINE \\hNOT COS \h! INK ▚ GO SUB [ INK ▚ STEP Y▖* INK ▚ATN GO SUB R LINE x\hNOT =\h* OPEN #▚ATN GO SUB R LINE \e\h> OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT ! INK ▚ GO SUB [ INK ▚ STEP Y▖* INK ▚ATN GO SUB R LINE VAL \hNOT \e\hNOT k\g> OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT !▟\>8w STEP REM !ON ERRq>ACS w STEP vq!▜:\w#6*▜ATN GO SUB RCHR$ \i STEP REM > BEEP > STEP FLASH !> BEEP x STEP DIM 0 STEP FOR STEP *▜ATN GO SUB RCHR$ *\i! STEP O▖NOT ▄\i*▜ATN GO SUB RCHR$ E\i! STEP O▖NOT ▄\i!▜ GO SUB [▜ STEP O▖*▜ COPY ATN GO SUB R LINE a\iNOT MERGE \h! GO SUB [ STEP O▖*ATN GO SUB R LINE ▞\i!▜ STEP O▖NOT E\iNOT /\g!▟\>8w STEP REM !ON ERRq> DEF FN w STEP vq>> BEEP ▜ STEP FLASH !> BEEP !▜:\w#6*▜ATN GO SUB R PAUSE TO \iNOT COS \i*▜ GO SUB R IF BRIGHT \iNOT COS \i!▜ GO SUB [▜0 STEP Y▖!▜ GO SUB [▜ STEP `▖ STEP Y▖▘q STEP O▖!▜ GO SUB [▜ FOR GO SUB \q FOR 6!▜ GO SUB [▜ STEP O▖! FLASH ▚ GO SUB [▜ FOR GO SUB \q FOR 6!▜ GO SUB [▜ STEP O▖! INVERSE ▚ GO SUB [▜ FOR GO SUB \q FOR 6!▜ GO SUB [▜ STEP O▖!▜ GO SUB [▜ FOR GO SUB \q FOR 6!▜ GO SUB [▜ STEP O▖!▜ GO SUB [▜ FOR GO SUB \q FOR 6!▜ GO SUB K▜ STEP `▖ GO SUB K▜ STEP O▖<>!\b\>w> BEEP > BEEP ▜ STEP FLASH !> BEEP STEP CODE \m, STEP DIM 0 STEP FOR NOT Q\o!\b\>w! GO SUB ▚ GO SUB [ GO SUB ▚ STEP O▖* GO SUB ▚ATN GO SUB R IF F\k! FOR ▚ STEP O▖> BEEP > BEEP STEP q\f> OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT !\b\>w> BEEP > BEEP ▜ STEP FLASH !> BEEP > BEEP ▜ FLASH !> BEEP STEP CODE \m, STEP DIM 0 STEP FOR <>!xq>!▟\>8w STEP REM !ON ERRq> NEW w STEP vq!xq>w>> BEEP ▜ STEP FLASH !>> BEEP ▜> BEEP ▜ STEP FLASH !> BEEP ! CLS ▚ STEP O▖! OPEN #▚ GO SUB [ CLS ▚ FOR GO SUB \q FOR 6! CLS ▚ GO SUB [ CLS ▚ STEP O▖! BEEP ▚ GO SUB [ CLS ▚ FOR GO SUB \q FOR 6! CLS ▚ GO SUB [ CLS ▚ STEP O▖! INK ▚ GO SUB [ CLS ▚ FOR GO SUB \q FOR 6! CLS ▚ GO SUB [ CLS ▚ STEP O▖* CLS ▚▝ATN GO SUB RCHR$ \lNOT ]\l> OPEN # PRINT > OPEN # PLOT > OPEN # PRINT >> OPEN # PLOT > OPEN # PRINT : OPEN #▚ OPEN # PLOT > OPEN # PRINT : BEEP ▚ OPEN # PLOT ! INK ▚ GO SUB [ INK ▚\a STEP `▖! INK ▚ GO SUB [ INK ▚ STEP Y▖* INK ▚ATN GO SUB R LINE R\lNOT 6\l> OPEN # PRINT > OPEN # PLOT NOT SCREEN$ \k▗ STEP DIM 0 STEP FOR NOT FREE ▖!\b\>w> OPEN # PRINT > PLOT > OPEN # PRINT > PLOT > OPEN # PRINT > PLOT > OPEN # PRINT >7 OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT ! CLS ▚▐ STEP O▖! OPEN #▚ GO SUB [ CLS ▚ STEP p▖! OPEN #▚ GO SUB [ OPEN #▚ STEP `▖! BEEP ▚ GO SUB [ CLS ▚ GO SUB K OPEN #▚ STEP Y▖! INK ▚ GO SUB [ CLS ▚ STEP p▖!ON ERR\▌BEEP ▚w!STICK\▌INK ▚w>> BEEP ▖ STEP FLASH !>> STEP FLASH !> BEEP ! STEP O▖! GO SUB [ STEP Y▖*ATN GO SUB R LINE K\mNOT /\m! CLS ▚ GO SUB [ CLS ▚0 STEP O▖* CLS ▚▚ATN GO SUB R LINE g\mNOT COS \l> BEEP > BEEP ▖ STEP FLASH !> BEEP > BEEP ▖ STEP FLASH !> BEEP > BEEP ▖ FLASH !> BEEP STEP CODE \m, STEP DIM 0 STEP FOR NOT Q\o! MERGE ▚q STEP O▖! OPEN #▚ GO SUB [ MERGE ▚ FOR GO SUB \q FOR 6! MERGE ▚ GO SUB [ MERGE ▚ STEP O▖! BEEP ▚ GO SUB [ MERGE ▚ FOR GO SUB \q FOR 6! MERGE ▚ GO SUB [ MERGE ▚ STEP O▖! INK ▚ GO SUB [ MERGE ▚ FOR GO SUB \q FOR 6! MERGE ▚ GO SUB [ MERGE ▚ STEP O▖! GO SUB [ MERGE ▚ FOR GO SUB \q FOR 6! MERGE ▚ GO SUB [ MERGE ▚ STEP O▖!▜ GO SUB [ MERGE ▚ FOR GO SUB \q FOR 6! MERGE ▚ GO SUB [ MERGE ▚ STEP O▖!▜ GO SUB [ MERGE ▚ FOR GO SUB \q FOR 6! MERGE ▚ GO SUB [ MERGE ▚ STEP O▖!!▜ GO SUB [ MERGE ▚ FOR GO SUB \q FOR 6! MERGE ▚ GO SUB [ MERGE ▚ STEP O▖!#▜ GO SUB [ OPEN #▚ GO SUB K BEEP ▚ STEP O▖ GO SUB K INK ▚ STEP O▖ GO SUB K STEP O▖ GO SUB K▜ STEP O▖ GO SUB K▜ STEP O▖ GO SUB K!▜ STEP O▖*#▜ATN GO SUB RCHR$ CAT \n> OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT <>> OPEN # PRINT : BEEP ▚ OPEN # PLOT > OPEN # PRINT : OPEN #▚ OPEN # PLOT > OPEN # PRINT : OPEN # PLOT > OPEN # PRINT : INK ▚ OPEN # PLOT > OPEN # PRINT :▜ OPEN # PLOT > OPEN # PRINT :▜ OPEN # PLOT > OPEN # PRINT >8 OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT !▜ GO SUB [!▜ CONTINUE STEP `▖!▜ GO SUB [▜ STEP Y▖*▜ATN GO SUB R LINE N\oNOT 2\oNOT SQR \m> BEEP > BEEP ▖ STEP FLASH !> BEEP X STEP DIM 0 STEP FOR NOT FREE ▖ BEEP > BEEP > BEEP ▖ STEP FLASH !> BEEP X STEP DIM 0 STEP FOR NOT FREE ▖ COPY RETURN © COPY LPRINT COPY STR$ COPY COPY ▀ COPY COPY COPY COPY ▀ COPY COPY <= USR ? COPY RETURN © COPY DRAW COPY COPY RANDOMIZE COPY COPY NEXT COPY COPY LPRINT COPY COPY NEXT COPY COPY READ <= USR < RETURN © COPY SAVE COPY COPY RANDOMIZE LPRINT NEXT USR LPRINT COPY COPY READ COPY COPY NOT NOT COPY COPY <xUSR LIST y LPRINT NEXT USR LPRINT LPRINT USR <=USR USR COPY RETURN © COPY LIST ? COPY LLIST COPY COPY NOT COPY COPY COPY COPY NOT COPY COPY ▀<= USR ? COPY RETURN © COPY DRAW COPY COPY RANDOMIZE COPY COPY NEXT COPY COPY LPRINT COPY COPY NEXT COPY COPY READ <= USR << LIST y LPRINT LIST LPRINT LIST READ <=USR USR <xUSR LIST y LPRINT NEXT USR LPRINT LPRINT USR <=USR USR COPY RETURN © COPY LIST ? COPY LLIST COPY COPY NOT COPY COPY COPY COPY NOT COPY COPY ▀<= USR >< SAVE RANDOMIZE LPRINT LIST LPRINT LIST READ <= USR << LIST y LPRINT LIST LPRINT LIST READ <=USR USR < RETURN © COPY LIST COPY COPY RANDOMIZE LPRINT NEXT USR LPRINT COPY COPY NOT COPY COPY ▀STR$ COPY COPY COPY RETURN © COPY LIST ? COPY LLIST COPY COPY NOT COPY COPY COPY COPY NOT COPY COPY ▀<= USR >< SAVE RANDOMIZE LPRINT LIST LPRINT LIST READ <= USR < RETURN © COPY LIST COPY COPY RANDOMIZE LPRINT NEXT USR LPRINT COPY COPY NOT COPY COPY ▀STR$ COPY COPY <x LPRINT LIST y LPRINT NEXT USR LPRINT LPRINT USR <= USR COPY RETURN © COPY SAVE © COPY LET COPY COPY READ COPY COPY USR COPY COPY READ COPY COPY NOT <= USR >< SAVE RANDOMIZE LPRINT LIST LPRINT LIST READ <= USR < RETURN © COPY DRAW COPY COPY RANDOMIZE LPRINT NEXT USR LPRINT COPY COPY NEXT COPY COPY READ <= COPY COPY USR <x LPRINT LIST y LPRINT NEXT USR LPRINT LPRINT USR <= USR COPY RETURN © COPY SAVE © COPY LET COPY COPY READ COPY COPY USR COPY COPY READ COPY COPY NOT <= USR << LIST y LPRINT LIST LPRINT LIST READ <= USR < RETURN © COPY DRAW COPY COPY RANDOMIZE LPRINT NEXT USR LPRINT COPY COPY NEXT COPY COPY READ <= COPY COPY USR < RETURN © COPY LPRINT COPY COPY RANDOMIZE LPRINT NEXT USR LPRINT COPY COPY ▀ COPY COPY NOT COPY COPY >x LPRINT LIST y LPRINT NEXT USR LPRINT LPRINT USR <= USR COPY RETURN © COPY LPRINT COPY STR$ COPY COPY ▀ COPY COPY COPY COPY ▀ COPY COPY <= USR COPY RETURN © COPY SAVE © COPY LET COPY COPY READ COPY COPY USR COPY COPY READ COPY COPY NOT <= USR << LIST y LPRINT LIST LPRINT LIST READ <= USR < RETURN © COPY LPRINT COPY COPY RANDOMIZE LPRINT NEXT USR LPRINT COPY COPY ▀ COPY COPY NOT COPY COPY >x LPRINT LIST y LPRINT NEXT USR LPRINT LPRINT USR <= USR COPY RETURN © COPY LPRINT COPY STR$ COPY COPY ▀ COPY COPY COPY COPY ▀ COPY COPY <= USR ? COPY RETURN © COPY DRAW COPY COPY RANDOMIZE COPY COPY NEXT COPY COPY LPRINT COPY COPY NEXT COPY COPY READ <= USR << LIST y LPRINT LIST LPRINT LIST READ <= USR < RETURN © COPY SAVE COPY COPY RANDOMIZE LPRINT NEXT USR LPRINT COPY COPY READ COPY COPY NOT NOT COPY COPY >x LPRINT LIST y LPRINT NEXT USR LPRINT LPRINT USR <= USR ? COPY RETURN x LIST LIST y LPRINT NEXT COPY COPY LPRINT LPRINT USR ▀<= USR COPY RETURN xx LIST y LPRINT NEXT COPY COPY LPRINT USR NOT <= USR STICK LPRINT ? COPY COPY COPY COPY COPY DRAW COPY ? COPY RETURN x LIST LIST y LPRINT NEXT COPY COPY LPRINT LPRINT USR ▀<= USR COPY RETURN xx LIST y LPRINT NEXT COPY COPY LPRINT USR NOT <= USR SAVE > SAVE 5UUUBEEP _\? COPY \a? COPY RETURN x LIST LIST y LPRINT NEXT COPY COPY LPRINT LPRINT USR ▀<= USR COPY RETURN xx LIST y LPRINT NEXT COPY COPY LPRINT USR NOT <= USR COPY COPY COPY COPY COPY COPY COPY VAL 5UUUBEEP ©\© COPY FORMAT 0 COPY RETURN x LIST LIST y LPRINT NEXT COPY COPY USR LPRINT USR ▀<= USR COPY RETURN xx LIST y LPRINT NEXT COPY COPY LPRINT USR NOT <= USR COPY LPRINT STICK LPRINT SAVE USR ? COPY COPY COPY COPY COPY DRAW COPY COPY LIST ( COPY RETURN x LIST LIST y LPRINT NEXT COPY COPY USR LPRINT USR ▀<= USR COPY DRAW BIN STR$ LET @? COPY COPY DRAW © DRAW SAVE COPY LIST H COPY RETURN x LIST LIST y LPRINT NEXT COPY COPY USR LPRINT USR ▀<= USR LOAD RETURN ▘▀ STOP STICK SAVE LIST ? LIST D COPY RETURN xx LIST y LPRINT NEXT COPY COPY LPRINT USR NOT <= USR █ COPY ▝USR CHR$ ? LIST LIST ? LIST ▗ COPY RETURN xx LIST y LPRINT NEXT COPY COPY LPRINT USR NOT <= USR >▜USR ? COPY COPY COPY COPY COPY DRAW © SAVE LIST LIST © LIST ▘ LPRINT SAVE COPY LIST ▀ RETURN SCREEN$ COPY LIST USR 5_USR CAT SCREEN$ COPY LIST REM SCREEN$ LIST LIST USR COPY MERGE W CAT COPY COPY LIST 8 PRINT Up@@? DRAW MERGE UUSR COPY COPY COPY LIST 8 COPY COPY LIST > COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LLIST COPY USR ? COPY COPY USR © COPY COPY LPRINT ? FORMAT ? LPRINT @ LINE INPUT D LPRINT @@USR @ COPY COPY VAL 3 PAUSE © LIST <▝ COPY LIST COPY U COPY LIST COPY NEXT 0 COPY USR COPY LIST CAT U COPY LIST ? REM SCREEN$ LIST <? LET REM ATTR CAT COPY COPY LIST 0 IF SCREEN$ COPY SAVE @ COPY FORMAT SAVE COPY UUSR COPY COPY COPY LIST 8 COPY COPY LIST >@ COPY USR COPY COPY LPRINT ?>= COPY VAL$ REM LPRINT CONTINUE LPRINT SCREEN$ HSCREEN$ ▌SCREEN$ LPRINT INPUT INPUT \q▙ LPRINT VAL$ COPY COPY LIST @<▝ COPY DRAW COPY SCREEN$ COPY LIST COPY COPY COPY COPY COPY USR COPY SAVE CAT SCREEN$ COPY LIST = PRINT UpUSR LPRINT LET MERGE W CAT COPY COPY LIST 0 COPY Up COPY COPY @ COPY COPY UUSR COPY COPY COPY LIST 8 COPY COPY COPY >@0 COPY USR COPY COPY LPRINT ? CAT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ▌SCREEN$ AT VAL$ @ LINE LSCREEN$ LINE VAL$ LPRINT AT DSCREEN$ AT ▗CHR$ \q LINE >=SCREEN$ PLAY ? COPY COPY LIST @ LPRINT MERGE ^ CAT U COPY LIST REM IN COPY USR ? PRINT STICK CAT MERGE COPY LIST 8 IF SCREEN$ VAL LIST REM ATTR CAT COPY COPY LIST 0 COPY PRINT LIST ©© COPY SCREEN$ USR COPY COPY COPY LIST 8 COPY COPY LIST COPY USR COPY COPY USR ?USR COPY RETURN ▌SCREEN$ ▗SCREEN$ @ PLAY H▗D REM \q▖H▗ DATA N\qSCREEN$ NVAL$ ▗=UU LIST @▖ MERGE _ CAT SCREEN$ COPY LIST REM CODE @ LOAD COPY USR ?SCREEN$ PEEK CAT ATTR COPY LIST 8 PRINT U© LIST COPY SAVE MERGE WUSR CAT COPY COPY LIST 0 COPY CLEAR LIST SAVE @ COPY CLS USR COPY COPY COPY LIST 8 COPY COPY LIST ? ©USR COPY COPY USR ?USR COPY DRAW SCREEN$ INPUT ▗ REM @ PLAY HVAL$ ▌*\q▖J▗$J\qSCREEN$ BFN ▗BEEP UU LIST 8@ IF ATTR CAT U COPY LIST MERGE WUSR ©SCREEN$ VAL$ CAT BEEP COPY LIST 8 IF SCREEN$ VAL DRAW @ COPY REM ATTR USR CAT COPY COPY LIST 0 COPY COPY LIST = NOT COPY USR © COPY COPY LIST 8 COPY COPY LIST ?\q?USR COPY COPY COPY SAVE INPUT ▘▙*`BIN N REM REM f REM ▙ NEW INPUT \q DEF FN INPUT N▚FREE SCREEN$ SCREEN$ LIST COPY DRAW @uW CAT SCREEN$ COPY LIST REM ATTR LPRINT ©U_ CAT COPY COPY LIST 8 PRINT Up@@ MERGE UUSR CAT COPY COPY LIST 0 COPY COPY LIST = NOT COPY USR © COPY COPY SAVE < COPY COPY LIST ?\p COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN ?USR COPY COPY COPY LIST ▙ LPRINT LPRINT CLEAR U COPY LIST COPY @:CODE USR CAT U COPY LIST PRINT U READ COPY DRAW COPY SCREEN$ CODE CAT COPY COPY LIST 8 IF SCREEN$ VAL @@ REM SCREEN$ USR COPY COPY COPY LIST 0 COPY COPY LIST < A COPY USR ? COPY COPY BORDER COPY COPY COPY LIST ?\a? COPY COPY \p COPY SAVE COPY LIST © COPY LPRINT COPY COPY USR © COPY LPRINT COPY COPY USR LET LPRINT LIST COPY \p COPY RETURN ? COPY RETURN x< LIST x© COPY SAVE COPY COPY LIST LIST COPY COPY LPRINT COPY COPY \o<x< COPY COPY LPRINT x LIST LIST LET LPRINT LIST > LIST USR 0 DRAW ? COPY USR NOT VAL LPRINT COPY COPY \p COPY DRAW COPY SAVE © COPY LIST COPY COPY LPRINT © COPY LIST COPY COPY LPRINT LET LPRINT LIST COPY \p COPY DRAW ? COPY RETURN x< LIST x© COPY LIST COPY COPY LPRINT LIST © COPY USR COPY COPY \o<x< COPY COPY USR x LIST LIST LET LPRINT LIST < USR x© RETURN ▜ LLIST LPRINT COPY COPY \p COPY RETURN COPY DRAW © COPY SAVE COPY COPY LIST © COPY SAVE COPY COPY LIST LET LPRINT LIST COPY \p COPY SAVE ? COPY RETURN x< LIST x© COPY LPRINT COPY COPY USR LIST COPY COPY LPRINT sg? DRAW ? COPY COPY NOT USR COPY LIST LIST COPY DRAW ?NOT LPRINT COPY COPY \p COPY COPY ? COPY RETURN © COPY DRAW COPY COPY SAVE © COPY DRAW COPY COPY SAVE LET LPRINT LIST \o LIST <x< LIST xx LIST LET LIST LIST CLS oUSR `© RETURN ▜STR$ LLIST COPY SAVE LPRINT >>xSTICK SAVE <x LET LPRINT LIST \ox<x< LIST xx LIST USR LET LPRINT LIST RANDOMIZE CAT LIST USR COPY ▄? DRAW ?NOT NOT COPY LIST ? COPY LPRINT <x<x<x LET LPRINT LIST \ox<x< LIST SAVE x LIST USR LET LPRINT LIST ? CLEAR OUT RETURN ▜ COPY COPY ▖x AND COPY LLIST SAVE xUSR <x<x<x LET LIST LIST COPY COPY \o<<x< COPY COPY SAVE x LIST LPRINT LET LPRINT LIST COPY DRAW USR \p COPY LPRINT COPY COPY ▄ DRAW COPY ▗? COPY NOT LIST LIST COPY USR COPY \p COPY COPY ? COPY RETURN x< LIST x© COPY DRAW COPY COPY SAVE LET COPY COPY LIST COPY COPY \o<<x< COPY COPY LIST x LIST LPRINT LET LPRINT LIST COPY RANDOMIZE CLEAR COPY COPY OUT COPY COPY BORDER COPY COPY © RETURN ©\p LPRINT COPY COPY COPY CAT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LPRINT COPY COPY COPY CAT COPY COPY COPY RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY LPRINT ©▖ USR x USR COPY COPY COPY COPY COPY COPY ? COPY COPY RUN DRAW COPY COPY COPY COPY COPY COPY COPY COPY RETURN © LPRINT RETURN © LIST ? COPY COPY COPY NOT LIST LIST 0 DRAW <? COPY COPY COPY RETURN COPY ? COPY COPY COPY COPY LET COPY COPY COPY COPY NEW © COPY COPY COPY LLIST COPY COPY COPY COPY COPY DRAW RETURN DRAW 8 COPY LPRINT COPY STOP c COPY USR COPY LPRINT `© SAVE COPY :. COPY USR COPY RETURN COPY LPRINT \q LPRINT ▀ COPY ?>= COPY COPY LOAD COPY COPY COPY DRAW DRAW COPY COPY COPY OUT COPY COPY CLEAR LPRINT COPY LIST COPY IN COPY DRAW ? COPY NOT USR COPY LIST COPY COPY DRAW ?NOT USR COPY COPY SAVE CLEAR COPY COPY COPY COPY RUN SAVE COPY COPY COPY COPY COPY COPY COPY COPY DRAW © LPRINT SAVE © LIST FREE ▝▜ COPY ▜ LLIST LIST a SAVE xFREE LLIST SAVE © RETURN COPY <= COPY ? COPY LIST ? DRAW COPY PLOT 7 COPY SAVE RETURN COPY <© LET DRAW RETURN USR 8 COPY LIST COPY `© COPY USR `? DRAW ©4STICK© RETURN RETURN © LIST @`▜ COPY ? CONTINUE RETURN COPY COPY COPY BORDER COPY LPRINT SAVE COPY COPY COPY COPY COPY COPY READ LPRINT ▜ LLIST COPY LPRINT SAVE FREE STR$ ▜ LLIST LPRINT SAVE f▜USR COPY LIST p COPY COPY NEXT g COPY LIST COPY SAVE DRAW ©USR p© SAVE 0 DRAW ?▀ COPY NOT LIST NOT LIST LIST DRAW ?NOT LIST COPY RETURN COPY COPY \o© COPY COPY COPY NEXT g COPY SAVE COPY COPY COPY < COPY LPRINT < COPY USR LN COPY LIST DRAW 0 COPY USR COPY COPY \ptSTICK COPY COPY DRAW COPY © NEXT @pg COPY © SAVE LPRINT COPY COPY RETURN h? COPY COPY USR LPRINT NOT COPY NOT COPY LIST DRAW <?NOT NOT NOT COPY LIST TO <? DRAW COPY SAVE ` COPY COPY ▛h COPY LIST COPY SAVE DRAW COPY USR `? SAVE ©▘ LIST LPRINT ©▜ LPRINT DRAW RETURN COPY ▙© LOAD COPY COPY CLS o COPY LIST COPY CLS COPY 8 COPY LPRINT COPY COPY USR DRAW COPY LIST USR VAL LIST COPY USR LIST COPY COPY LPRINT NEXT COPY \phSTICK COPY BORDER DRAW COPY COPY DRAW VAL COPY COPY LIST LIST LPRINT ? RETURN >=? RETURN SAVE LPRINT NEW COPY ▜ COPY LPRINT xFREE AND LLIST \ixNOT SAVE COPY > COPY USR RETURN >=? LPRINT COPY LIST > COPY USR `? SAVE 0 COPY NOT ?? SAVE USR LIST COPY LIST LPRINT RETURN COPY BIN ? COPY USR COPY RANDOMIZE CAT COPY LIST COPY SAVE FREE LPRINT ▗ COPY COPY LPRINT SGN COPY RANDOMIZE SAVE \i CAT COPY LPRINT COPY COPY LPRINT CONTINUE 9 COPY LPRINT 8 COPY COPY © COPY LIST LIST ©? COPY FORMAT © RETURN © LPRINT ©? COPY COPY LIST LIST DRAW ?▗?USR NOT 0 DRAW COPY © COPY NOT LIST © COPY COPY COPY COPY RUN COPY LPRINT COPY COPY RETURN © COPY COPY COPY RETURN LLIST COPY USR @? SAVE ? LLIST COPY NOT COPY COPY COPY COPY CIRCLE COPY ▜ COPY COPY CLEAR COPY COPY COPY LIST RETURN COPY AND < COPY USR COPY CLEAR OUT COPY LPRINT COPY LIST 1 COPY USR DATA RETURN COPY LPRINT PEEK © RETURN X? COPY > LPRINT COPY IN USR COPY AND FORMAT 1 COPY USR COPY USR X COPY LIST COPY COPY COPY COPY © RETURN COPY COPY COPY BORDER COPY COPY COPY COPY OUT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY © COPY COPY LIST USR COPY USR DRAW LIST ? COPY COPY ? DRAW ? COPY COPY READ COPY COPY COPY COPY TO COPY COPY COPY COPY RANDOMIZE COPY COPY COPY RETURN RETURN DRAW COPY RETURN COPY LPRINT COPY DRAW OUT COPY LPRINT COPY LIST ? COPY USR SAVE SAVE COPY LIST OVER \ DRAW =USR COPY █ COPY NOT FORMAT USR a COPY USR COPY \© LPRINT 0 COPY USR USR USR 0 DRAW LIST USR COPY COPY COPY COPY COPY RETURN ? COPY COPY COPY DRAW COPY COPY COPY COPY COPY COPY COPY COPY RETURN ©USR COPY COPY LIST COPY LPRINT p▜ SAVE x COPY COPY COPY COPY COPY COPY READ COPY COPY COPY COPY GO TO COPY COPY COPY COPY LET COPY COPY COPY COPY COPY DRAW DRAW COPY RETURN COPY LPRINT COPY RETURN COPY COPY USR COPY LPRINT ? COPY SAVE LIST © SAVE OUT `,BEEP USR COPY DRAW COPY LPRINT \qUSR ▀ COPY ▄ SAVE < LPRINT LPRINT >>USR COPY COPY LPRINT COPY COPY RETURN IF DRAW B▚LN a LIST B?_IN DRAW NCODE STR$ FREE MERGE ATTR FREE ▀ PRINT r? CLEAR © SAVE COPY DRAW z CONTINUE ^? COPY RETURN USR <USR Ukg POKE @/ NEW VERIFY SCREEN$ SCREEN$ PRINT DRAW / OUT LIST G SAVE DRAW ?USR STOP CLS POKE ?CODE IN DRAW O POKE ? COPY USR COPY CAT RETURN © NEXT COPY COPY DRAW / PAUSE ? CLEAR ? SAVE ON ERR COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY OVER DRAW USR STICKUSR RETURN © COPY RUN LOAD DRAW \q? RUN LOAD COPY RETURN HINT DRAW :VAL ? SAVE Vj LPRINT DRAW \?]IN DRAW O DRAW 0O COPY COPY PAUSE LIST ? PAUSE ? CLEAR ? SAVE x RETURN ©USR DRAW x IN CLEAR USR n,STICK\q>4v@FN ASN DRAW =x SCREEN$ U LPRINT SGN ?TAB IN DRAW O DRAW hO\p RANDOMIZE PAUSE ? CLEAR LIST DRAW ? SAVE SAVE q ▙` RETURN . CLEAR IN t8©FN INT DRAW :CODE RETURN USCREEN$ LIST @8© PRINT \?] COPY DRAW O DRAW o COPY COPY COPY COPY COPY \p RANDOMIZE COPY COPY COPY COPY COPY PLOT ? PAUSE ? COPY LIST COPY COPY COPY COPY USR COPY COPY COPY COPY USR ? DRAW ▝ BEEP <= LPRINT SAVE READ FOR ` ▝? DRAW ASN DRAW BEEP T LPRINT ATTR MERGE VAL CONTINUE *PEEK ?TAB COPY DRAW O COPY tO PAUSE . COPY PAUSE ? COPY LIST 3pjAT ▘▙VAL P q 0A5VPEEK DRAW nCODE <= RETURN MERGE ATTR © READ PRINT v?BEEP COPY DRAW o DRAW POKE O PAUSE /? PLOT ? COPY ` 1\a▄\auTBp RETURN ▟XLEN ©IN DRAW mT? SCREEN$ U@ LIST DRAW *ACS ? CLEAR © COPY o DRAW w COPY COPY COPY COPY COPY BORDER BORDER COPY COPY COPY COPY COPY INPUT ? PLOT COPY RETURN < RETURN © COPY DRAW COPY COPY RANDOMIZE LPRINT NEXT USR LPRINT COPY COPY NEXT COPY COPY READ <= COPY COPY USR COPY RETURN x LIST LIST y LPRINT NEXT COPY COPY USR LPRINT USR ▀<= USR 8` DRAW `@ 1? @ COPY RETURN © COPY LPRINT COPY STR$ COPY COPY ▀ COPY COPY COPY COPY ▀ COPY COPY <= USR < RETURN © COPY SAVE COPY COPY RANDOMIZE LPRINT NEXT USR LPRINT COPY COPY READ COPY COPY NOT NOT COPY COPY COPY RETURN xx LIST y LPRINT NEXT COPY COPY LPRINT USR NOT <= USR 80x RETURN 0x COPY A@ *@ COPY RETURN © COPY LIST ? COPY LLIST COPY COPY NOT COPY COPY COPY COPY NOT COPY COPY ▀<= USR < RETURN © COPY LIST COPY COPY RANDOMIZE LPRINT NEXT USR LPRINT COPY COPY NOT COPY COPY ▀STR$ COPY COPY COPY RETURN xx LIST y LPRINT NEXT COPY COPY LPRINT USR NOT <= USR ▗ @▝ ! LPRINT T▝ MERGE DRAW @ COPY RETURN © COPY SAVE © COPY LET COPY COPY READ COPY COPY USR COPY COPY READ COPY COPY NOT <= USR < RETURN © COPY LPRINT COPY COPY RANDOMIZE LPRINT NEXT USR LPRINT COPY COPY ▀ COPY COPY NOT COPY COPY ▘FREE COPY ▝ ATTR LIST * ? COPY RETURN © COPY DRAW COPY COPY RANDOMIZE COPY COPY NEXT COPY COPY LPRINT COPY COPY NEXT COPY COPY READ <= USR <xUSR LIST y LPRINT NEXT USR LPRINT LPRINT USR <=USR USR SAVE ▝USR @@ >< SAVE RANDOMIZE LPRINT LIST LPRINT LIST READ <= USR <x LPRINT LIST y LPRINT NEXT USR LPRINT LPRINT USR <= USR 0@ RETURN 0 ? DRAW @<< LIST y LPRINT LIST LPRINT LIST READ <= USR >x LPRINT LIST y LPRINT NEXT USR LPRINT LPRINT USR <= USR COPY COPY COPY COPY DRAW ` @ RETURN ` © LIST << LIST y LPRINT LIST LPRINT LIST READ <=USR USR ? COPY RETURN x LIST LIST y LPRINT NEXT COPY COPY LPRINT LPRINT USR ▀<= USR COPY SAVE @ LPRINT COPY USR USR @ RETURN DRAW 0USR RETURN 8x COPY LPRINT RETURN RETURN DRAW 0USR RETURN 8 DRAW `` SAVE RETURN ▝ @ COPY COPY COPY COPY USR TO RETURN RETURN 0USR RETURN 0 RETURN RETURN RETURN 0USR RETURN 0 RETURN 0! TO 0 RETURN * TO USR AND USR USR USR AND USR ! TO © COPY MERGE COPY COPY DRAW USR STICKA SAVE SAVE RETURN RETURN VERIFY 0USR DRAW RETURN RETURN VERIFY 0USR DRAW FREE COPY RETURN ! RETURN *▘ RETURN VERIFY 0USR USR VERIFY 0USR USR ! RETURN ! COPY RETURN SAVE ` RETURN VERIFY 0 RETURN RETURN RETURN © COPY COPY LPRINT RETURN ` RETURN VERIFY 0 RETURN RETURN RETURN RETURN 0▗!0 ▖ COPY LPRINT COPY DRAW COPY USR DRAW COPY SAVE ` DRAW VERIFY 0 RETURN FREE DRAW DRAW ` DRAW VERIFY 0 RETURN FREE DRAW DRAW `▗!` > COPY COPY COPY LIST COPY COPY COPY RETURN A0© COPY COPY DRAW @ @@\q STICK DRAW 0USR RETURN 8STICK RETURN DRAW 0USR RETURN 8@ DRAW @ COPY COPY RETURN RETURN 0USR RETURN 0 COPY COPY COPY LPRINT RETURN RETURN RETURN 0USR RETURN 0@ @ @ @USR AND USR USR USR AND USR ▀ @USR @ DRAW VERIFY 0USR DRAW DRAW RETURN VERIFY 0USR DRAW @ LPRINT @▘@ AND VERIFY 0USR USR AND VERIFY 0USR USR A▘@ RETURN VERIFY 0 RETURN RETURN RETURN RETURN ` RETURN VERIFY 0 RETURN RETURN RETURN @\q@@STICK VERIFY 0 RETURN FREE DRAW STICK` DRAW VERIFY 0 RETURN FREE DRAW !@ CLEAR _ RETURN @@? CLEAR © SAVE COPY COPY CIRCLE 7 COPY LPRINT COPY LPRINT LIST ©? COPY @ COPY SAVE DRAW ©©EXP COPY USR COPY ▝_ COPY COPY PRINT A RETURN COPY ; DRAW DRAW COPY NOT LIST ` COPY USR *\q*SCREEN$ COPY USR @▜ COPY COPY DRAW USR © COPY COPY DRAW Ld© LPRINT COPY LPRINT RANDOMIZE COPY COPY USR @ COPY LIST COPY ? COPY ©EXP COPY COPY RETURN LPRINT LET COPY COPY COPY ; DRAW RETURN COPY COPY LIST p COPY LPRINT UUUU@ COPY @ COPY RETURN DRAW © RETURN USR COPY DRAW © COPY USR LIST ,hUSR COPY USR CLS COPY COPY USR LIST COPY LIST COPY IN COPY ? MOVE COPY COPY RETURN \q COPY COPY COPY COPY COPY COPY LIST p COPY COPY PAPER SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ \q USR COPY RETURN ` RETURN © RETURN ` COPY DRAW COPY USR COPY USR USR &>=USR COPY USR COPY COPY COPY FREE ` DRAW COPY LIST COPY COPY COPY ? FORMAT COPY COPY @ COPY LET RETURN COPY RETURN © LIST x COPY MERGE UUUUUT<USR DRAW RETURN LIST COPY COPY ? COPY ` COPY SAVE COPY COPY USR COPY LPRINT FORMAT LIST COPY © COPY COPY STR$ COPY RETURN COPY LPRINT COPY CLEAR USR COPY FORMAT DRAW COPY COPY LIST FREE COPY SAVE © LIST x PAPER SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ ATN LPRINT USR <USR DRAW >s\m COPY ? COPY 0 COPY SAVE COPY LIST p LPRINT COPY COPY DRAW \a© COPY COPY ©ON ERR COPY COPY ? COPY COPY SAVE COPY LPRINT COPY ABS DRAW COPY LIST p COPY 4 COPY LPRINT LIST COPY p© SAVE STICK STEP UUUUUUg LPRINT LIST BEEP USR ? DRAW CLS IN ` COPY COPY VAL COPY LIST COPY LIST LPRINT COPY COPY RETURN \q COPY COPY COPY COPY ON ERR COPY RETURN © CLOSE #W DRAW COPY USR COPY ABS COPY LIST COPY SAVE ` COPY * COPY LPRINT ? LIST COPY `? SAVE DRAW ? NEW SCREEN$ SCREEN$ COPY RETURN SCREEN$ SCREEN$ CAT USR SAVE © ? SAVE RANDOMIZE ?USR COPY COPY \i3 COPY LIST COPY LIST LIST LPRINT ? RETURN COPY SAVE LPRINT LPRINT ©SQR COPY USR DRAW ▌SCREEN$ FN © DRAW SCREEN$ \s©USR COPY SQR DRAW LPRINT COPY > COPY USR 5@ COPY USR SAVE COPY `? SAVE RETURN ©USR NEXT _ COPY SCREEN$ ATTR COPY PRINT \pUSR DRAW COPY ? SAVE @? SAVE RETURN COPY USR SAVE PRINT UUUU^? RETURN COPY USR ? SAVE COPY AND < COPY CHR$ COPY DRAW ▜ COPY USR x<= COPY ?\a RETURN COPY LPRINT PEEK © LIST COPY COPY COPY COPY USR DRAW CLS RETURN COPY COPY AND @ <= COPY COPY USR 4X COPY USR USR ? DRAW >? COPY LPRINT RETURN *SCREEN$ SCREEN$ SCREEN$ SCREEN$ ▖ COPY COPY SAVE SAVE © SAVE DRAW COPY RETURN COPY STOP COPY COPY USR █ COPY USR COPY © LPRINT SAVE COPY LIST OVER © DRAW LIST RUN RETURN > COPY NOT @USR ▜ COPY STICK COPY t\ COPY USR COPY RETURN ? COPY LPRINT COPY \fUUU COPY SAVE COPY COPY LIST DRAW COPY RETURN COPY READ LPRINT ?█ COPY RETURN © LPRINT LIST © SAVE OUT ` RUN ? DRAW DRAW COPY LPRINT USR RETURN FREE 0 SAVE x<? COPY COPY ? COPY LIST COPY COPY RETURN COPY RANDOMIZE COPY COPY LIST RETURN DRAW 8 COPY DATA COPY DRAW O COPY 9 LPRINT FREE COPY LPRINT `© SAVE COPY CONTINUE . COPY ? DRAW RETURN COPY LPRINT RETURN COPY LPRINT SAVE > <= COPY © LIST ? DRAW g COPY COPY TO © SAVE DRAW LET COPY <= LIST RETURN USR 8 COPY CONTINUE COPY COPY COPY COPY USR / COPY 9 LPRINT COPY USR `? DRAW © FORMAT LET DRAW © SAVE RETURN © LIST ` DRAW COPY \qUSR LIST COPY \o© COPY COPY ▝ SAVE ? COPY COPY DRAW NEXT COPY LIST COPY USR LN COPY LOAD COPY COPY COPY COPY COPY COPY LOAD COPY ;USR LET COPY USR COPY COPY \p FORMAT NEXT COPY COPY LIST COPY © NEXT p\p DRAW COPY LPRINT USR LIST COPY ▙© LOAD COPY ▘▀ COPY LOAD DRAW READ COPY COPY COPY USR DRAW COPY LOAD COPY COPY COPY COPY COPY COPY LOAD COPY ©USR COPY COPY NEXT COPY \p\q NEXT COPY \p LIST COPY COPY DRAW VAL © RETURN COPY USR LPRINT COPY BIN ? COPY CHR$ ▜ COPY LLIST SAVE G COPY > COPY COPY LPRINT SGN COPY BORDER COPY COPY COPY COPY COPY COPY CAT RETURN ON ERR COPY COPY \q BORDER COPY LPRINT COPY COPY :LN COPY COPY USR LPRINT
1 IF PEEK 23681<>0 THEN PRINT USR 34942
2 CLS : LIST 9999: STOP
9999 SAVE "GRAND PRIX" LINE 1: VERIFY "GRAND PRIX"