Carlos Sainz: CARLay.B

  1 CLOSE #USR VAL "23929":::: REM DISK verSion by Kyv.Ice Di-nark!!▜]]~POINT w#xLEN  SCREEN$ Dj` CLOSE #[M]Y[O][[I]]ATN FN  CAT J▜LxBIN ▙|>=RNDINT STR$ rSIN b POKE  MOVE ` DEF FN e62 CLS & IF 3 CLEAR .8 LPRINT G& READ ▚z[H]|$& GO SUB ▝C VERIFY [A]D& FLASH ▙62QNOT RNDQ*PEEK VUSR [F] STEP  
  58778 REM   Chelyabinsk!
  25344[R]d PAUSE ▖[A]iSCREEN$ 5619: REM : SAVE "CARLOS128" LINE 1 LINE "_"_SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$  REM SCREEN$  COPY SCREEN$  COPY  COPY  RETURN  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY [G]SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$  IF CODE  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY UUjSCREEN$ SCREEN$ SCREEN$ USR  COPY  SAVE  NEXT NOT  DRAW ? LIST  LIST ? COPY  COPY  COPY  COPY  COPY  COPY  COPY USCREEN$ jSCREEN$ SCREEN$ ▗CODE USCREEN$ SCREEN$ UU COPY  COPY  COPY  COPY  RESTORE T COPY  COPY  COPY  COPY  COPY  COPY iSCREEN$ SCREEN$ SCREEN$ ▗[R]`UUT@SCREEN$ SCREEN$ FN RNDe[K]T COPY  COPY  COPY  COPY  COPY jSCREEN$ SCREEN$ j▜POINT TYSCREEN$ SCREEN$ POINT SCREEN$ BRNDeTkRNDiZ COPY  COPY  COPY  COPY [K]<© COPY  COPY AUUU? COPY  COPY  COPY  PAPER © BEEP  COPY  COPY  COPY  COPY  COPY  CLEAR UUP COPY  RETURN  COPY Q_ CLEAR  MERGE VAL  LPRINT SCREEN$ FN  CLOSE # COPY UUUUUUUUUUUUUU MERGE Uu BEEP  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY SCREEN$ RNDUUUUUUUUUUUU PRINT ]W COPY  COPY  COPY  COPY © COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY [K]SCREEN$ UUUU FLASH  CONTINUE <?▙▝0SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY  COPY SCREEN$ SCREEN$ [F]UU^VUUSCREEN$ / COPY  COPY  COPY  COPY  REM SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY RNDZUUYUSR [Q]UUUjZeSCREEN$  COPY  COPY  COPY  COPY  COPY [F]UU6V[I]POINT UUTRNDU▘ZjSCREEN$ )ZSCREEN$ POINT  COPY POINT <IN  COPY  RETURN  *SCREEN$ SCREEN$ * COPY  COPY  COPY  COPY  PRINT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY SCREEN$ SCREEN$ SCREEN$  COPY  RETURN  COPY [S]CODE  INPUT  FOR / LPRINT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY SCREEN$ ZSCREEN$ SCREEN$ jSCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$  REM SCREEN$ SCREEN$  FOR CODE  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY Y[G]RNDSCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ FN SCREEN$ SCREEN$ ATTR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY UUSCREEN$ SCREEN$ SCREEN$ SCREEN$ |<<<T COPY  COPY  COPY  COPY  COPY  COPY  COPY V[J]jSCREEN$ SCREEN$ [M]SCREEN$ SCREEN$ SCREEN$ @o COPY  COPY  COPY  COPY  OR U COPY  COPY  COPY  COPY  COPY  COPY VYjSCREEN$ *[T]USR SCREEN$ SCREEN$ SCREEN$ FN [F]EU[U][G]UU COPY  COPY  COPY  COPY  COPY j[K]SCREEN$  PLOT  POINT [U]SCREEN$ SCREEN$ POINT SCREEN$ POINT RND[F]SCREEN$ @POINT UV COPY  COPY G COPY T LIST _ COPY  POKE UD COPY  COPY  COPY  COPY  COPY  CLS  COPY  COPY  COPY  COPY  COPY  COPY  COPY  MOVE U© DRAW  COPY UW CLEAR  POKE © GO TO  DRAW  LIST  LIST  COPY  COPY  COPY  FORMAT  COPY URNDUUUUUUUUUUUUUU]©© COPY  CLEAR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY SCREEN$ iUUUUUUUUUUP COPY  CLEAR © COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY SCREEN$ f[F]UUTx< COPY ? DRAW * COPY  COPY  COPY  COPY  COPY  COPY  COPY SCREEN$ SCREEN$ UUT%8SCREEN$ [Q]UUVW COPY  COPY  COPY  COPY SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY YRNDUTU[U`UUUUb*SCREEN$ ZiSCREEN$ SCREEN$ C COPY  COPY  COPY  COPY  COPY SCREEN$ RND? COPY  AND SCREEN$ [S]▘FN  *USCREEN$ SCREEN$ B COPY  COPY  CLS  COPY d LIST *SCREEN$ [R] GO TO FN  COPY  COPY  COPY  COPY  COPY  COPY  COPY INT  COPY  COPY  COPY  COPY  COPY  SAVE *SCREEN$  COPY IN  RETURN  COPY  COPY  COPY  COPY  READ  DRAW  COPY <= READ NOT  COPY ? DRAW  COPY  COPY  IF  COPY POINT ZSCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$  REM SCREEN$ VAL$ ATTR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY YVSCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ [Q] COPY  COPY  COPY  COPY  COPY  CLEAR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY U[G]SCREEN$ SCREEN$ SCREEN$ FN J LIST < SAVE © COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY UYjSCREEN$ FN JxUPSCREEN$ SCREEN$ ▗SCREEN$ [Q]© COPY  COPY  RETURN UA COPY  COPY  COPY  COPY  COPY  COPY UZjFN [T]SCREEN$ [U]SCREEN$ SCREEN$ SCREEN$ SCREEN$ POINT AU[U][F]U[F]A COPY  COPY  COPY  COPY  COPY ih COPY  COPY  DEF FN USCREEN$ UV© COPY  PRINT  COPY T CLOSE # CLS UU COPY  COPY  IF  PRINT  BEEP CODE  COPY ] IF  COPY  COPY  COPY  COPY  CLEAR  COPY U©©UP COPY  COPY  DRAW  READ  DRAW  COPY <= SAVE NOT  COPY ? LIST USR USR  COPY  COPY @ COPY Z[F]UUUUUUUUUUUUUUuU© COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY RNDiUUUUUUIN  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  SAVE  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY SCREEN$ i[F]UUP[F] LPRINT ? COPY [Q] COPY  COPY  COPY  COPY  COPY  COPY  COPY SCREEN$ SCREEN$ INKEY$UP[F]pZ[Q]"UT[Q]TX COPY  COPY  LIST *[Q] COPY  COPY  COPY  COPY  COPY  COPY eUUPW[F]hUUUUY▘[Q]U POKE ▘Uj[G][Q] COPY  COPY  COPY  COPY  COPY INKEY$[Q]IN  COPY  COPY  DEF FN RNDSCREEN$ POINT R? COPY  RETURN  COPY FN /#u/ COPY  MERGE © CLEAR  REM CODE  MERGE  BEEP ATTR  BEEP  CLEAR  PRINT  COPY  COPY  COPY  CONTINUE  COPY IN IN  COPY  IF [Q] COPY  COPY ATTR  READ  DRAW  COPY <= DRAW ?NOT  COPY ? LIST  LIST  LPRINT  COPY  LPRINT IN [K]SCREEN$ INKEY$SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$  IF SCREEN$ ATTR  IF IN  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY RNDUSCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY UejSCREEN$ SCREEN$ [R]+USR T08 COPY  MERGE P© COPY  COPY  COPY  COPY  COPY  COPY ZZSCREEN$ SCREEN$ [R]FN  LIST @[A]j[E]*SCREEN$ [U]@YP© COPY  COPY  COPY  COPY  COPY YSCREEN$ SCREEN$ [R]jPIZTZSCREEN$ SCREEN$ SCREEN$ POINT VAPSCREEN$ FN SCREEN$ [F]iX© COPY  COPY  COPY  COPY f`© COPY  COPY  DEF FN SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ ATTR  RETURN  COPY  COPY URND COPY  DRAW  COPY TU RUN @ RETURN VAL  COPY SCREEN$ CODE  COPY  COPY W CLS  COPY  COPY  COPY  COPY  CLS  CLS  COPY  COPY  CLEAR  COPY  COPY U©} COPY  COPY  PRINT P COPY WU READ  DRAW  COPY <= DRAW ?NOT  COPY ?USR uU_RND[F][F]UUUUUUUUUUU PRINT }U PRINT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY [K]jUUUUT? LPRINT (/ LIST  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY SCREEN$ SCREEN$ UUUBWSCREEN$  COPY  COPY  COPY  COPY  REM FN ? COPY  COPY  COPY  COPY  COPY  COPY INKEY$UUUBT LPRINT ▖POINT hRUTXFN INKEY$SCREEN$ [U]? COPY  COPY  COPY  COPY  COPY RNDUUB[F]W▖RNDUUUh▘FN UX MERGE j[K]FN ? COPY  COPY  COPY  COPY POINT /IN  COPY  COPY  DEF FN *SCREEN$ SCREEN$ [T] COPY  PRINT U© COPY  LOAD  COPY  COPY  PRINT  COPY  COPY SCREEN$ SCREEN$ ▜ COPY  RETURN  COPY FN CODE  INPUT /ATTR P COPY UW COPY  RETURN  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY © COPY IN VAL$  COPY  COPY  COPY  CLS  DRAW CODE FN SCREEN$  COPY  DIM  READ  RETURN  DRAW ? LIST  COPY NOT  DRAW : COPY  MERGE W LOAD U©u COPY  COPY  COPY  COPY  COPY  TO  COPY  COPY  COPY  POKE  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  CLEAR © COPY  COPY O BEEP © PRINT  COPY _ RETURN cO POKE  COPY  COPY  COPY P_ COPY  COPY USR _ COPY  POKE  COPY  POKE U DRAW P@U_@_ COPY  CLEAR  TO <|C NEXT C3t© COPY  RETURN Qk COPY  FORMAT  COPY  NEXT  COPY  MOVE UUEUUUUUUUTUWx COPY  COPY  COPY CUSR P© COPY  POKE  COPY  CLOSE #UUUUUUUUUUUUT LIST  COPY  MERGE USR  LIST  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@ LIST IN INT  RETURN CODE  COPY  COPY  COPY  NEXT  COPY  COPY  COPY  IF  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN IN  COPY  COPY  READ  FOR IN  IF  RETURN CODE  COPY  LIST  COPY  COPY  COPY [S]SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ FN IN  COPY  COPY  LINE FN CODE  COPY  SAVE  COPY  CLS VSCREEN$  COPY *[S]??<<< NEXT  NEXT  NEXT  DATA *SCREEN$ ? COPY  COPY [S]IN  COPY  CONTINUE  COPY  COPY  COPY  STOP   PAUSE  COPY  COPY  COPY [T]USR [Q]CODE  COPY  IF IN FN ( SAVE SCREEN$ FN 6USR  LIST SCREEN$ SCREEN$ ATTR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN SCREEN$  LIST E© COPY  PRINT  OUT  COPY  COPY  COPY  NEXT  COPY  COPY  COPY  PRINT UUUUUUUUUUUUT_ COPY  COPY  OPEN # NEXT © COPY  CLEAR  COPY  PAUSE SCREEN$ FN  COPY  COPY  COPY P_ COPY  COPY USR U© POKE  COPY  PRINT  COPY  COPY USR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY © COPY Q@jIN W CLEAR  COPY ??UUUL? RANDOMIZE SGN COS  LIST  NEXT NOT UU RETURN  COPY  COPY  COPY OQo COPY  CLOSE # COPY  COPY  COPY  MOVE U@@TT LIST  COPY  COPY  COPY CUSR P COPY  CLEAR  CLEAR @U@@TQ CLEAR PUE]USR p© COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY UUUT LIST IN  RETURN  IF  LOAD  COPY  COPY  COPY  CLEAR  COPY  COPY  COPY  CLS IN  COPY  COPY  READ  DIM IN  COPY  RETURN  COPY  PRINT © POKE  COPY  COPY  COPY [Q]IN  COPY  COPY  TO **LN  COPY  IF CODE  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY [S]IN  RETURN ATTR  RETURN  COPY  NEXT  COPY  LOAD  COPY  COPY  GO SUB ? NEXT  TO  NEXT  NEXT s NEXT  COPY  COPY  RETURN  COPY  COPY  COPY CODE [S] IN  COPY [Q]IN  NEXT  COPY  LPRINT SCREEN$ *(FN FN  LIST  COPY  COPY  COPY [T]USR "[Q]/ COPY  RETURN ATTR  RETURN SCREEN$ SCREEN$ FN SCREEN$ *(FN SCREEN$  COPY  IF  IF USR VAL [F]UUUUUUUUUUVSCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$  LIST E© RUN  CLEAR  OVER ATTR  COPY  COPY  DRAW *SCREEN$ SCREEN$ SCREEN$ FN SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ [Q] BEEP  COPY  COPY  LET © COPY  CLEAR  COPY  PLOT   COPY  DRAW  COPY  COPY  CLEAR QUUUUUUUUUUUUT_ COPY  COPY  TO @ COPY  COPY S CLEAR DUTMUURCODE  COPY  COPY  COPY  COPY  IF ATTR U COPY  COPY  CLEAR U_ COPY Qk COPY W CLEAR  COPY ©IN  OUT  COPY  COPY  STEP  TO 0 NEXT  NEXT s NEXT < COPY  COPY  DRAW  COPY  COPY  COPY _© COPY  CLOSE #? NEXT  COPY PU@@TT LIST © COPY  COPY CUSR P COPY  COPY UUUU]UU@@TG COPY  RETURN SCREEN$ IN  PRINT USR p LIST IN  COPY  COPY  PRINT  CLEAR /*SCREEN$ SCREEN$ [R]UUUUUUUUUUUUTPOINT VAL$  COPY  IF  COPY  NEXT © DRAW  COPY  COPY  RETURN [S]SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ FN IN  COPY  COPY  CAT FN  COPY  SAVE *SCREEN$ ▛ COPY  LPRINT [S]IN  COPY ATTR  RETURN  COPY wIN  FOR  COPY  COPY  GO SUB  TO 3 TO  NEXT  NEXT s3> COPY  COPY  RETURN  COPY  COPY  COPY CODE  IN  COPY  CONTINUE / COPY  RETURN FN SCREEN$ * LIST IN  COPY  RETURN USR "[Q]/ COPY  COPY  COPY SCREEN$ SCREEN$ ATTR  RETURN *SCREEN$  SCREEN$ + COPY  COPY  COPY  COPY  CLS USR VAL  LIST © COPY  COPY  IF SCREEN$  RANDOMIZE S POKE  COPY  COPY  CLEAR QUUUUUUUUUUUUTU© MOVE _ COPY  POKE  COPY  LLIST SCREEN$ SGN  COPY  COPY  CLEAR P_ COPY  COPY  CAT U COPY  DRAW  COPY  COPY  COPY  COPY  COPY  COPY  COPY  DRAW ' COPY  DRAW Qk COPY W CLEAR  COPY ? OUT  COPY  COPY  STEP  TO 3 TO  NEXT  DRAW  NEXT  CAT  COPY  COPY  DRAW  COPY  COPY  COPY MUSR P© COPY  CLOSE # COPY  CLEAR UUUUUUUUUT LIST _ COPY  CLEAR @p COPY  COPY  COPY  COPY  COPY  COPY }@@TU_ COPY  COPY  COPY  COPY  PRINT USR  LIST P@IN  IF  COPY  COPY  IF rCODE  SAVE  COPY  COPY  COPY [S]ATTR  COPY  COPY CHR$ [R]CODE  COPY  SAVE  COPY  SAVE U|? COPY  RETURN [S]SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ FN *CODE  COPY / COPY  RETURN  TO > DRAW  NEXT  DRAW  NEXT / COPY  RETURN [S]IN  COPY  FOR  RETURN  COPY  RUN  COPY  STOP IN  COPY  LOAD  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY  COPY PEEK  COPY  COPY  COPY CODE USR "[Q]IN  COPY  SAVE  COPY  RETURN SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ FN  LIST + COPY  IF VAL  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN ATTR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY SCREEN$  COPY  COPY  COPY  COPY  COPY  SAVE USR  LIST [Q]SCREEN$ RNDUQQW LPRINT PUVPOINT SCREEN$ SCREEN$ SCREEN$ [A]@EiZ▝UY%PEEK  PLOT  SCREEN$ UUU@USR ff` AND `xf PLOT  ▖UUUUf< INPUT fbl NEW <Zllb` INPUT f NEW ll' [O] RUN _ RANDOMIZE [P][P][J][J][J] LPRINT SCREEN$ [F][K]UUUUVFN USR [F]RNDDSCREEN$ SCREEN$ SCREEN$ @U@([S]SCREEN$ RND[Q] OUT ggn PLOT  | COPY > NEW  PAPER  RETURN  BRIGHT  LPRINT SCREEN$ ZSCREEN$ SCREEN$ SCREEN$ [Q]USR f RETURN fh AND  PLOT  f AND fh` RETURN f PLOT  f AND ,![C][E]© COPY  COPY  COPY  COPY  COPY  COPY @PUVUSCREEN$ SCREEN$ SCREEN$ CODE  LET d FORMAT @PSCREEN$ jFN UUUSCREEN$ EUUTUSR ~~` AND >~ OVER 8USR f RETURN |x AND  OVER f AND fx` RETURN f OVER f AND (([O] POKE @@ LPRINT (SCREEN$ SCREEN$ UUWz PAUSE ZpT[F][F]T(*SCREEN$ SCREEN$ WtSCREEN$ ZSCREEN$ USR ~|` AND ~ DEF FN pUSR ~ VERIFY `h AND  DEF FN ~ AND fhb VERIFY f DEF FN f AND , ▘_ RANDOMIZE [P] COPY  COPY  COPY  COPY @USR `ffgUSR @UUSCREEN$ [K]SCREEN$  CLEAR  LET [F]POINT @@SCREEN$ SCREEN$ TUUU<<USCREEN$ VAL UUUUUSR flb AND f AND  STOP Uff AND `bl AND fllbf AND f AND ll'! OVER  RUN _ SAVE © COPY  COPY  COPY  COPY  COPY  COPY ([Q] LPRINT [Q]SCREEN$ SCREEN$ SCREEN$ POINT V[F]U©SCREEN$ VSCREEN$ SCREEN$ ▘SCREEN$ USCREEN$ SCREEN$ RND~ DRAW  LIST 8<b~ AND  RETURN SCREEN$ UpSCREEN$ SCREEN$ SCREEN$ SCREEN$ fffflfff AND  NEW SCREEN$ (<f AND  LIST  RETURN 8 AND f<8 SAVE  RETURN  RETURN  AND < AND  SAVE 8@A LLIST [P][J][P][P][J]© COPY  COPY  COPY  COPY  COPY  COPY USR PSCREEN$ ATTR UPOINT  SCREEN$ UUUZ@ AND <~`lb`< AND CHR$ POINT VAL TUU<f NEW  RETURN 8<<f~ AND  RETURN PTUG▝[I][J][J][J]UUUUUUU[F][F]*SCREEN$ @U@▖SCREEN$ SCREEN$ SCREEN$ USR ff` AND ``f NEW ▚*Zt[S]SCREEN$ SCREEN$ SCREEN$ FN FN < AND  DRAW  RETURN 8 AND ~8 SAVE  RETURN  LIST  AND f AND  SAVE 8@INKEY$SCREEN$ SCREEN$ _ RANDOMIZE [J][J][O][J]GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGAAAAAAAAAAAAAFFFFFFFFFFFFFFFFFFFFBBBBBBB PRINT > COPY  OPEN #© OPEN #?>? OPEN #©<2 INPUT _> COPY  OPEN #_ OPEN #_ LET  NEXT "a GO SUB sa LLIST "a1a MERGE  OR  INK  RESTORE  MERGE  OR  INVERSE  RESTORE  CLEAR  RESTORE  PRINT  GO SUB Wg GO SUB _o RESTORE  PRINT @ STEP  CAT `{ RETURN TAN (- RETURN INT  LINE [F]` RETURN LN (J RETURN EXP (N RETURN ATN (8 RETURN ACS (N RETURN ASN   OUT  STEP  CAT `c STEP  CAT `k" LINE `! STEP ">=`NOT ATTR ` STEP  CAT `c STEP  CAT `k STEP  CAT `C STEP  CAT `K STEP  CAT `s#xLEN   PLOT  CODE  STEP  CAT ` CLEAR © GO SUB YRND! LIST `! LIST ` PAPER  STEP  CAT `c STEP  CAT `k STEP  CAT `C STEP  CAT `K FLASH ?SCREEN$ 8 IF > COPY  OPEN #_< OPEN #_z INPUT AW~ STEP  OUT `#xLEN   PLOT  = OPEN #_ OPEN #_z INPUT @ OPEN #? INPUT WNOT  LOAD _ STEP  CAT `k STEP  CAT `c">=` STEP  CAT `k STEP  CAT `c" LINE `z2 INPUT _ LET  LLIST | GO SUB G} GO SUB O LET  CLEAR  LLIST  INVERSE  LLIST STR$  MOVE  LLIST  INK STR$  MOVE  LLIST  GO SUB {aNOT PNOT  LINE _ FLASH ?SCREEN$ 8 IF  FLASH _z OPEN #? INPUT ▝W<> OPEN #z OPEN #? INPUT ▝W FLASH ?SCREEN$ 0 IF <>PI`▗TTAN :/USR  STOP  CLEAR ©[L]6X'TAN _I]+-+-[M]_u MERGE SQR  REM ]USCREEN$ SCREEN$ U INVERSE INT SCREEN$ uUSCREEN$ ATTR UU IF SCREEN$ UUSCREEN$ SCREEN$ oW[O]SCREEN$  PRINT ]SCREEN$  CLS  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 UUSCREEN$ SCREEN$ UwSCREEN$ ATTR _UINT SCREEN$ U MERGE SCREEN$ INT U PRINT ATTR SCREEN$ UTSCREEN$ T[Q] LIST  LIST  LOAD UUSCREEN$  REM  PRINT WSCREEN$ SCREEN$ W INVERSE VAL$ SCREEN$ UTSCREEN$ T LIST  LIST SCREEN$ WATTR  COPY © COPY  COPY  COPY UU FOR  REM  MERGE TSCREEN$ T? LPRINT  LIST SCREEN$ WATTR  COPY _ INVERSE  COPY  COPY IN  COPY  COPY  COPY  COPY  COPY  COPY  COPY T LIST SCREEN$ ©ATTR  RUN _ CLS  COPY  COPY  CLEAR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LOAD  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  CLEAR  COPY © COPY  COPY  COPY  RETURN  COPY  PRINT  COPY SCREEN$  PRINT AFN  LIST ? COPY  COPY  COPY  COPY  COPY  COPY  CLS  COPY  CLEAR  COPY  COPY  COPY  COPY  PRINT  RETURN SCREEN$  PRINT @SCREEN$ @ LIST  LIST WVAL$ W_VAL$ SCREEN$  COPY  COPY  COPY  COPY  COPY  PRINT IN SCREEN$  CLEAR @SCREEN$ P LIST  LIST ]CODE UUCODE  FOR  MERGE  CLEAR PEEK ATTR UWINT SCREEN$  COPY  LPRINT ASN P LIST  LIST USCREEN$ UuATTR PEEK wu REM SCREEN$ UUATTR  REM _WPEEK VAL$  MERGE  INVERSE SCREEN$ SCREEN$ ATTR INKEY$U STEP INT [K]u5INT kT BEEP POINT CODE  NEXT © NEW CODE M©[K] LOAD 7 COPY j COPY  BEEP  COPY CODE  COPY _ COPY  COPY  IF  COPY  PRINT  COPY k COPY  VERIFY  RETURN  GO TO  COPY  INK  RETURN COS  CLEAR f REM  STEP  CLEAR [K] CLS 7 VERIFY jAT  MERGE  INK SCREEN$ COS ]fSCREEN$  BEEP  COPY j COPY 5©[L] LOAD M©INKEY$ CLEAR S_ RANDOMIZE TAB t BEEP SCREEN$ oU5VAL$ [K]UM FOR INKEY$}SSCREEN$ EXP [F] MERGE  LINE VAL$ eWSIN  REM  INK UAT ATTR  PLOT  ] FOR . CLEAR [N] IF  LINE  RUN e RETURN SIN  RUN  INK  COPY AT  RETURN  VERIFY  COPY  FOR IN  LIST ▝[R] SAVE TSCREEN$ [Q]}U INPUT  IF WUSCREEN$  FOR UWATTR ATTR WWPEEK  REM U PRINT SCREEN$ SCREEN$  COPY  COPY  COPY  RUN © COPY . COPY _ SAVE USR VAL ~UINT VAL UU FOR  REM U}PEEK CODE UUATTR SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  COPY IN  COPY _ OUT * LOAD  OUT  DRAW +▝[Q] DRAW  PRINT ATTR VAL U MERGE  REM  IF  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LOAD  COPY  COPY  RUN  COPY  COPY  COPY © RUN + COPY IN  DRAW WFN  RETURN  LIST U FORMAT  LIST  REM  RUN p COPY INT  COPY  CLEAR  RUN  COPY  COPY  COPY  COPY  COPY  COPY  LOAD  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY UUSCREEN$  IF _SCREEN$  LIST UP LIST  REM ]P FOR  REM  COPY  PRINT  COPY  RETURN  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  COPY UU IF PEEK u]ATTR VAL$ _WATTR  REM U]SCREEN$  LIST UP LIST  INPUT  RUN P RETURN SCREEN$  LOAD } COPY  COPY UUSCREEN$ SCREEN$ U]SQR INT _USCREEN$ SCREEN$ UWSCREEN$ SCREEN$ ]}SCREEN$ INT UUSCREEN$  LIST ▚Px COPY ▜ COPY  COPY UUVAL$  LOAD  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 SCREEN$ VAL$ U CLEAR INT INT u]VAL$ SCREEN$ _U IF INT U PRINT SCREEN$ INT oU[O]SCREEN$ u]SCREEN$  IF eUk REM mUjVAL$ e CLEAR jINT e]nSCREEN$ oUjINT e PRINT jINT oUnSCREEN$ e]j IF UVSQR  NEW ]VSCREEN$ INKEY$U PLOT  INT ACS uVVAL$ INKEY$_V IF ACS U PLOT  SCREEN$ ACS oV[O]INKEY$uVSCREEN$  PLOT  @USR USR [Q]@[Q]PFN TINT ] IF  MERGE @SCREEN$ SCREEN$ * STEP  MERGE >=SCREEN$  LIST USR **USCREEN$ _INT _SCREEN$ SCREEN$ UUSCREEN$ SCREEN$ UUSCREEN$ VAL$ UuAT SCREEN$ Q MERGE ATTR jQ RESTORE [Q]U MERGE SCREEN$  REM UUSCREEN$ SCREEN$ UUSCREEN$ SCREEN$ UUSCREEN$ VAL$ UuAT SCREEN$ Q MERGE ATTR jQ RESTORE [Q]U MERGE SCREEN$  REM UUSCREEN$ SCREEN$ STR$ p▛(SCREEN$ ATTR wUPEEK SCREEN$ UUSCREEN$ PEEK U]SCREEN$  REM UUSCREEN$ SCREEN$ p SAVE ▙SCREEN$ ATTR  PRINT  MERGE SCREEN$  IF UUSCREEN$ SCREEN$  PRINT UINT CODE UWSCREEN$ SCREEN$ C▛(USCREEN$ SCREEN$ U]PEEK INT WU REM SCREEN$ UUSCREEN$ SCREEN$  MERGE USCREEN$ SCREEN$  CLEAR  IF SCREEN$ T**Gw/ INPUT D0 FOR aMFN *VSCREEN$  CONTINUE UVCODE SCREEN$ WUSCREEN$ SCREEN$ /SSCREEN$ SCREEN$ [S][S] BEEP  MERGE IN IN M IF SQR © INVERSE  INPUT INT P MOVE **PUSR UUSCREEN$ SCREEN$ BIN OSCREEN$ (@ BRIGHT _FN > SAVE SQR p STOP :B@SCREEN$ [S]_USCREEN$ SCREEN$ S?SCREEN$  COPY SCREEN$ * PRINT EPEEK  LINE S SAVE M STOP .TUSCREEN$ }INT  REM uUSCREEN$ SCREEN$ UUSCREEN$ SCREEN$ UUSCREEN$ VAL$ UuAT SCREEN$ Q MERGE ATTR jQ RESTORE [Q]U MERGE SCREEN$  REM UUSCREEN$ SCREEN$  LIST <= READ  SAVE /BIN _VAL$ ©N?.~▙~.^ REM , DRAW  SAVE G READ  LPRINT  LIST <= READ  SAVE /BIN xEnJVAL$ UnH CIRCLE G READ  LPRINT  LIST <= READ  CIRCLE ? POKE Pp© DEF FN © LINE / DRAW  SAVE G READ  LPRINT  LIST <= READ  CIRCLE ? DRAW pps RETURN s IF ? POKE  CIRCLE G READ  LPRINT UU COPY LN 8IN >?>IN >?>IN > CLEAR CODE  COPY IN UUSCREEN$ SCREEN$ UU COPY  COPY y3s▜s CAT s CAT  CAT  CAT  COPY ATN  COPY  COPY  COPY  COPY UUSCREEN$ SCREEN$ UU COPY  COPY 9 NEXT 9 NEXT 9 NEXT  NEXT  NEXT  COPY  COPY  COPY  COPY _ INPUT UUSCREEN$ SCREEN$ UU COPY  RESTORE @r@u DEF FN vUSR uUSR v DEF FN u DEF FN v COPY  PRINT © PLOT  +u+ COPY ? COPY ? COPY ? COPY ? COPY ?USR <<=??USR  LPRINT / COPY _ COPY  COPY  COPY  COPY  COPY  COPY 3 COPY 3 COPY ?3 COPY :SCREEN$ © COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY ?< TO  TO << NEXT  COPY  COPY SCREEN$ SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY < NEXT  NEXT 3 NEXT 3 NEXT 3 DRAW  LIST  COPY  COPY SCREEN$ SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY  COPY FN  COPY  POKE  COPY  SAVE  COPY  DRAW  COPY  SAVE  COPY  DRAW  COPY  SAVE  COPY  DRAW SCREEN$ AT  COPY  DRAW  COPY  SAVE  COPY  CLOSE #© COPY  COPY  CLS  COPY  COPY  COPY  OUT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY <=IN  LOAD  COPY  COPY  COPY  CLEAR  COPY  COPY © COPY  COPY  CLS  COPY  COPY  COPY  OUT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY <=IN  LOAD  COPY  COPY  COPY  CLEAR  COPY  COPY UUSCREEN$ [S]TD[T]/q5 CAT Ws TO  CAT q OR  LINE (ENOT  LPRINT SCREEN$ @TDSCREEN$ SCREEN$ UU*SCREEN$  OR U LIST SCREEN$  INVERSE SQR <CHR$  PAUSE  NEXT S▙"QE▖U*SCREEN$ UTSCREEN$ [S]UAT FN P[S]PW▘SIN p TO ?<=w..G. DEF FN ?p  LOAD ▖S▙(?< SAVE NOT w RETURN G COPY  INPUT  RETURN  RUN  DRAW  NEXT w RUN  FOR  INPUT UUSCREEN$ SCREEN$ uU*SCREEN$ USCREEN$ QU▘SCREEN$  LET U(SCREEN$ 4U DRAW SCREEN$  NEXT U GO TO SCREEN$ DU TO SCREEN$ UUSCREEN$ SCREEN$ UUSCREEN$ SCREEN$ UUSCREEN$ SCREEN$ UUSCREEN$ SCREEN$ UPSCREEN$ [Q]USCREEN$ P[Q]@USR  TO :Ew"*G. DEF FN P SCREEN$ USCREEN$ EE [S][Q]4T LINE PEEK G COPY  INPUT  IF WAT COS UWATTR VAL$ Aw8[S]TESCREEN$ wSIN VAL$ L"USR  LET U(SCREEN$ 4U DRAW SCREEN$ qU GO TO SCREEN$ DU TO SCREEN$ <U DRAW SCREEN$ qUSIN SCREEN$ EU"SCREEN$ 5U REM SCREEN$ UUVAL$ SCREEN$ }USCREEN$ SCREEN$ WWVAL$ VAL$ UUSCREEN$ SCREEN$ ]PPEEK [T]USCREEN$ 0PNOT 00USR UXINT [T]USCREEN$ ?P CAT [T]30NOT NOT 03USR  NEXT 3333 NEXT u POKE INT  FOR USSCREEN$ [T]_CINT USCREEN$ t CONTINUE P[Q]@NOT 0< TO ,3?33<3 PAUSE 3 OR ?*=U PAUSE  REM  OR u*SCREEN$ 3< LIST  PAUSE 3 STEP  COPY *<U PAUSE VAL$  OR U*SCREEN$ UUVAL$ SCREEN$ ]USCREEN$ SCREEN$  MERGE USCREEN$  REM UUSCREEN$ SCREEN$ @▘"A OPEN #▘ STOP @ OPEN #As▘[S]A▘▘@▘VAL CS▘SIN A▘UUINT VAL$ u MERGE SCREEN$ SCREEN$ UUINT VAL$ ]USCREEN$  REM UU COPY  COPY  COPY  COPY UUU COPY  LIST  COPY  NEXT  INPUT ?t CLEAR  READ  IF O CLOSE #?[Q]=A:A OR  LINE p INPUT  INPUT  COPY  CAT  COPY  LIST  DRAW  INPUT ©7CODE  DEF FN  NEXT  DRAW A|VAL AT SC[S][Q] INPUT  INPUT UTSCREEN$ [T]UOSCREEN$ ?T CLEAR [T] IF O CLOSE #?[Q]=A:A OR  LINE p INPUT  INPUT  COPY  COPY  COPY  COPY  COPY  COPY UUSCREEN$ SCREEN$ ]< PAPER PFN  OR +8 INPUT  INPUT U LINE SCREEN$  NEXT U DRAW SCREEN$ ©5CODE  LINE  NEXT  DRAW A|VAL AT SC[S][Q] INPUT  INPUT uuPEEK INT UU REM *T@[T] READ E LET ▛PEEK 5 PRINT SCREEN$  FOR wVAL  LOAD @[S](D[S]DBIN #SIN L_"LN @NOT pD SAVE "]AT  DRAW C[Q]@3SGN @ LIST  GO TO =w/ COPY  COPY /SIN ATTR  MERGE  PRINT PEEK 5 PRINT * THEN @ 2@UP  <_ INPUT w<( LOAD U CLOSE # IF  DRAW © CAT  PAUSE <5FN T[T][Q]uT REM INT ]UINT *T@[T] READ E LET ▛PEEK 5 PRINT  REM  FOR ?w CONTINUE  LOAD w REM (_USR 2 INPUT  PRINT ] FOR SCREEN$ U}FN SCREEN$  THEN  LINE OQPEEK  LPRINT _/ FOR FN  INVERSE <= CLS CODE D BEEP ( FOR  COPY ;SQR Gw LOAD  w BRIGHT  DEF FN "0 OUT #SQR  MERGE  BEEP : IF } PAUSE C OPEN #[Q] CLOSE # SAVE SCREEN$ U[SCREEN$ AT  INVERSE  BRIGHT  CLOSE #▖ LOAD  RUN  INPUT >= BEEP WCODE AT } FORMAT [S]<= OR *TUSCREEN$ ATTR }USCREEN$ SCREEN$ 3 COPY  READ tO "@><_SQR  LOAD _U RETURN INT  RUN ©IN  IF  INVERSE TSCREEN$ U CONTINUE G LIST  READ  DRAW O|PEEK < LOAD U POKE INT PEEK ©L IF ?T<COS MD "p4*0< LOAD U▙ IF 7©VAL$  PAUSE  MERGE ▘"[T] <_ INPUT w<( LOAD U CLOSE # IF  DRAW © CAT  PAUSE <5FN T[T][Q]Q LINE SCREEN$ }U INPUT .45[Q]ATTR wATTR 5 MERGE  REM  REM U0SCREEN$ SCREEN$ ]INT  LIST [T] RETURN O|PEEK A[Q]SE[T][T]A CLOSE #▘VAL$ sL[S]IN t|[Q]#DAT USR ] DEF FN INT =WSCREEN$  PRINT WSIN VAL$  BEEP USCREEN$ 4W(SCREEN$ SCREEN$ P▘p▙<t_ INPUT Pw[Q]FN WNOT  CLOSE # DRAW D CAT <5FN P[Q]UUSCREEN$ SCREEN$ ©tINT FN USSCREEN$  READ  MERGE E GO TO .RG[Q]"PD[U]P<NOT CHR$ <+ READ  RUN UUSCREEN$ [S]4▘ CLS  OUT SQR  RUN AT  PAUSE EM + COPY  COPY SCREEN$ SCREEN$ ] CLEAR  COPY  COPY UUSCREEN$ INT 5]▙SCREEN$ s5" LINE tu LOAD *w5QCHR$ "<CHR$ h< COPY NOT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  CLEAR  COPY  COPY  COPY © COPY SQR  INVERSE ] CLS  CONTINUE ]C CONTINUE <STR$  DRAW  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  CLS  COPY  CLS IN  INVERSE  CLEAR SCREEN$  INPUT UU COPY  COPY  MOVE  READ  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY CODE  LOAD W©INT  LLIST W<CUSR (?© COPY  COPY  CLS  COPY  COPY  COPY  OUT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY <=IN  LOAD  COPY  COPY  COPY  CLEAR  COPY  COPY pATTR  PAUSE ATTR  PAUSE Q RUN ATTR  PAUSE Q PRINT  FOR  PAUSE Q RUN  FOR  PAUSE Q PRINT ATTR  PAUSE ATTR  PAUSE PFN S PRINT S PRINT EXP  PAUSE S PRINT POINT  PAUSE s RUN POINT  PAUSE S RUN POINT  PAUSE S RUN EXP  PAUSE S PRINT S PAUSE FN  COPY  COPY  NEXT  READ  TO  INVERSE 6NOT BIN © LIST <= LOAD ATTR  RUN [N] COPY NOT  COPY CODE  COPY  RUN  SAVE  LOAD NOT ? INVERSE  OUT  READ [P] BRIGHT ? COPY  COPY  DRAW  COPY  NEXT ? STEP  CAT  BORDER  CAT  LIST [P] RETURN  COPY  LOAD STR$  BEEP SGN  COPY [F] COPY <>COS 3 RETURN  GO SUB  OVER  COPY  THEN  COPY  COPY  LOAD  COPY  COPY © COPY IN  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY <= COPY >= MERGE Q REM POINT  MERGE USCREEN$  FOR  RUN  RUN  COPY  COPY  COPY  COPY ©SCREEN$  MERGE GSCREEN$ [T] MERGE W REM CODE  CLEAR © OUT  COPY  COPY  COPY  COPY  COPY  COPY CODE  COPY  OUT  COPY  LOAD  COPY  COPY  COPY  COPY UUPEEK SCREEN$ wUSCREEN$ SCREEN$ U©? CAT  BORDER ? COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY WUINT SCREEN$ _UVAL$ FN Q STOP ▜ LIST ©IN  NEXT <= LOAD  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY UUPEEK SCREEN$ U]SCREEN$ INT U PAUSE FN [M] LOAD  COPY  NEXT  READ  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY WUSQR SCREEN$ UASCREEN$ ?P READ ATTR  COPY  COPY  RUN  COPY  LOAD  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY UU: IF U} STOP SCREEN$  RANDOMIZE U OVER * LOAD [F] COPY  STOP  COPY  DRAW  COPY [P] COPY  LOAD  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY WT INPUT POINT USSCREEN$ PIUOSCREEN$ [D]]/INT ©T COPY POINT  COPY S OUT PIIN K COPY [H] COPY / COPY © COPY O COPY TAB  COPY U COPY TAB  COPY O COPY CODE  COPY W COPY PI COPY U COPY PI COPY W COPY CODE  COPY O COPY  COPY [ COPY ATN  COPY 7 COPY IN  COPY _ COPY [P] COPY O COPY TAB  COPY F COPY INKEY$ COPY S COPY POINT  COPY T OUT SCREEN$ ©U?SCREEN$ [P]UOSCREEN$ CODE  COPY  DRAW  COPY  CLEAR  COPY  REM  COPY  RANDOMIZE  COPY  PAUSE  COPY ASN  COPY b COPY E COPY  LINE  COPY [F] CLS * RETURN U DRAW SCREEN$  RANDOMIZE U PAUSE SCREEN$  RESTORE U COPY  PAUSE  COPY ASN  COPY SCREEN$  COPY ASN  COPY  PAUSE  COPY  PRINT  COPY  REM  COPY  RESTORE  COPY SCREEN$  COPY  RESTORE  COPY  REM  COPY  PRINT  COPY  PAUSE  COPY  LET  COPY  PAPER  COPY  GO SUB UU*SCREEN$ [F]U LINE SCREEN$ RNDU ERASE SCREEN$  RANDOMIZE U DRAW SCREEN$  RETURN U CLS * CLS [F] CLEAR  LINE  COPY  RESTORE  COPY  PAUSE  COPY  INK  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  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  COPY  COPY  COPY UUSCREEN$ SCREEN$ UwSCREEN$ ATTR _UINT SCREEN$ U MERGE SCREEN$ INT U PRINT ATTR SCREEN$ UTSCREEN$ T[Q] LIST  LIST  COPY UUSCREEN$  REM  PRINT WSCREEN$ SCREEN$ W INVERSE VAL$ SCREEN$ UTSCREEN$ T LIST  LIST  COPY  COPY © COPY  COPY  COPY  COPY  COPY UU FOR  REM  MERGE TSCREEN$ T? LPRINT  LIST © COPY © COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY T LIST  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  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  DRAW  COPY STR$  SAVE  LIST ? COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LPRINT  RETURN USR  LIST  LIST WVAL$ W_VAL$ SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY USR  RETURN  LPRINT  LIST  LIST ]CODE UUCODE  FOR  MERGE  CLEAR PEEK ATTR UWINT SCREEN$  COPY  LPRINT  RETURN  LPRINT  LIST  LIST USCREEN$ UuATTR PEEK wu REM SCREEN$ UUATTR  REM _WPEEK VAL$  MERGE  INVERSE SCREEN$ SCREEN$ ATTR INKEY$U STEP INT [L]u7INT oT OUT POINT IN  NEXT © NEW  COPY M COPY [L] COPY 7 COPY o COPY  OUT  COPY IN  COPY © COPY  COPY  RETURN  COPY  CLEAR  COPY  CLS  COPY  PLOT   COPY  GO TO  COPY  INK  COPY COS  COPY f RETURN  STEP  CLEAR [K] CLS 7 PLOT  j GO TO  MERGE  INK SCREEN$ COS ]fSCREEN$  OUT  COPY o COPY 7 COPY [L] COPY M COPY INKEY$ COPY S© RANDOMIZE IN t OUT SCREEN$ oU7VAL$ [L]UM FOR INKEY$}SSCREEN$ EXP [F] MERGE  LINE VAL$ eWSIN  REM  INK U GO TO ATTR  PLOT  ] CLS . CLEAR [N] RETURN  LINE  COPY e COPY SIN  COPY  INK  COPY  GO TO  COPY  PLOT   COPY  CLS  COPY  LIST ▝[R] SAVE TSCREEN$ [Q]}U INPUT  IF WUSCREEN$  FOR UWATTR ATTR WWPEEK  REM U PRINT SCREEN$ SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY ? COPY  COPY  SAVE USR VAL ~UINT VAL UU FOR  REM U}PEEK CODE UUATTR SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY ? COPY  COPY  DRAW ?▝[Q] DRAW  PRINT ATTR VAL U MERGE  REM  IF  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY © COPY  COPY  DRAW ©FN  RETURN  LIST U LIST  LIST  RETURN  COPY  LIST  COPY  RETURN  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY UUSCREEN$  IF _SCREEN$  LIST U LIST  LIST  RETURN  COPY  LIST  COPY  RETURN  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY UU IF PEEK u]ATTR VAL$ _WATTR  REM U]SCREEN$  LIST U LIST  LIST  RETURN  COPY  LIST  COPY  RETURN  COPY  COPY  COPY  COPY UUSCREEN$ SCREEN$ U]SQR INT _USCREEN$ SCREEN$ UWSCREEN$ SCREEN$ ]}SCREEN$ INT UUSCREEN$  LIST ▚ LIST x 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 UUSCREEN$ SCREEN$ ©tINT FN USSCREEN$  READ  MERGE E GO TO .RG[Q]"PD[U]P<NOT NOT <? READ  COPY UUSCREEN$ [S]4▘ CLS  OUT SQR  RUN AT  PAUSE EM + COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY UUSCREEN$ INT 5]▙SCREEN$ s5" LINE tu LOAD *w5QCHR$ "<CHR$  SAVE < COPY NOT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  DRAW  COPY NOT  DRAW ?NOT  DRAW ?STR$  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  MOVE  READ  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY ? COPY NOT  COPY  DRAW ??NOT C 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  COPY  COPY  COPY  MERGE  INVERSE SQR  IF  INVERSE uINT VAL$  COPY  COPY SQR  IF } OUT  LOAD  RETURN  COPY  COPY  CLS  COPY W RUN  INPUT INT o PRINT PEEK  INPUT © INVERSE VAL$  IF  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 UU RETURN  LOAD _ COPY PEEK SQR © RUN  IF  RETURN ] RUN  INPUT PEEK © PRINT ATTR ATTR }/ REM T[Q] LIST  LIST  COPY UW IF  INPUT  RUN  RUN PEEK IN W INVERSE  RETURN ATTR }| FOR tUSR  LIST  LIST CODE  PRINT  LOAD  RUN W COPY  COPY  COPY UU LOAD  FOR  PRINT |ATTR |? LPRINT  LIST PEEK  BEEP CODE © RETURN  INVERSE COS  COPY  RETURN  COPY  COPY  COPY  COPY  COPY  COPY  COPY t LIST SCREEN$ ©ATTR  RUN  COPY  CLS IN © CLS  COPY  COPY © COPY  RUN  COPY  LOAD  COPY  COPY © COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  CLEAR  COPY © COPY  COPY  COPY  RETURN  COPY  PRINT  COPY SCREEN$  PRINT AFN  LIST ? COPY  COPY  COPY  COPY  COPY  COPY  CLS  COPY  CLEAR  COPY  COPY  COPY  COPY  PRINT  RETURN SCREEN$  PRINT @SCREEN$ @ LIST  LIST W COPY _[P] RETURN SCREEN$  COPY  COPY  COPY  COPY  COPY  PRINT IN SCREEN$  CLEAR @SCREEN$ P LIST  LIST _ LOAD __ LOAD  FOR  MERGE  COPY  RETURN  LOAD  PRINT  RUN INT SCREEN$  COPY  LPRINT ASN P LIST  LIST _ IF _w CLS  RETURN  RUN  PRINT  RETURN  CLS © OUT SQR  REM  COPY wIN  INPUT  MERGE  INVERSE SCREEN$ SCREEN$ CODE INKEY$} STEP SQR [L]u7INT oT OUT POINT IN  NEXT © NEW  COPY M COPY [L] COPY 7 COPY o COPY  OUT  COPY IN  COPY _ COPY  COPY  IF  IF  CLEAR  RUN  CLS  COPY  PLOT   LOAD  GO TO  RUN  INK  LOAD COS  COPY f INPUT  CAT  CLEAR [K] CLS 7 PLOT  n GO TO  OUT  INK  IF COS  OUT fSCREEN$  OUT  COPY n COPY 7©[L] LOAD M COPY  NEW  CLEAR S© RANDOMIZE ABS t OUT  RETURN ou7IN [L]©M LOAD  NEW }SSCREEN$ EXP [N] MERGE  DEF FN PEEK gWSIN  IF  INK  OUT  GO TO  CLS  PLOT  } CLS . CLEAR [P] RETURN  LINE  RUN g COPY SIN  RUN  INK  COPY  GO TO  RETURN  PLOT   COPY  CLS IN  LIST ▝[R] SAVE  CLOSE # LOAD  LPRINT }© LOAD  CLS W} COPY  COPY  OUT  OUT SQR  COPY _w RETURN  CLS U RUN INT SCREEN$  COPY  COPY  COPY  COPY © COPY / COPY _ SAVE USR  LIST ~©SQR  SAVE  COPY  COPY  CLS  CLS  BEEP }IN CODE  COPY  RUN  FOR SCREEN$  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY © COPY + COPY  OUT  DRAW +▝ DRAW  DRAW  COPY ATTR  LIST  CLEAR © REM INT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY © COPY + COPY IN  DRAW WFN  RETURN  LIST _ FORMAT  LIST  REM  RUN p COPY INT  COPY  CLEAR  RUN  COPY  COPY  COPY  COPY  COPY  COPY  LOAD  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  CLEAR  PRINT VAL$  IF  COPY ATTR  LIST UP LIST  REM ]P FOR  REM  COPY  PRINT  COPY  RETURN  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  COPY  COPY  MERGE  IF  RETURN w CLEAR  COPY CODE ©W FOR  REM u_SCREEN$  LIST  CLEAR P LIST  INPUT  RUN P RETURN SCREEN$  LOAD } COPY  COPY uUCODE  REM }]SQR  CLS  COPY UIN  CLS  RUN W CLS  REM _}SQR  IF  CLEAR U INPUT  LIST =▚Px COPY ▜ COPY  COPY UUVAL$  LOAD  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  RETURN W CLEAR INT INT ©]CODE SCREEN$ _ RUN  CLS PEEK © RUN VAL$ PEEK © PRINT [O]PEEK u INVERSE SCREEN$  IF e]o INPUT muoVAL$ o CLEAR oIN m]o REM o}k RETURN o PRINT nPEEK o RUN n REM m]n IF WVSQR  NEW }VPEEK INKEY$W PLOT  IN ACS } VERIFY VAL$ INKEY$_ VERIFY  CLS ACS W PLOT  CODE ACS oV[P] NEW wVSCREEN$  PLOT  w RUN  RETURN  STOP  POKE D READ /q5 CAT Ws TO  CAT q OR  THEN (ENOT  LPRINT VAL$ @| TO  INPUT  INPUT w COPY . RETURN <=© LIST  REM  INVERSE SQR ▙<CHR$  PAUSE  NEXT  OPEN #▙" MOVE G▖? RUN / INPUT © POKE  COPY  STOP w DRAW FN p PAUSE pWCHR$  PAUSE p TO ?<=w..O. DEF FN ?p  LOAD ▖S▙(?< SAVE NOT w RETURN G COPY  INPUT  RETURN  RUN  DRAW  NEXT w RUN  FOR  INPUT © RUN  INPUT  INPUT w©/ LOAD  RUN ▙ LOAD S RUN ▘ RETURN  NEXT  COPY ( COPY 4w DRAW  COPY  NEXT  COPY  GO TO  RETURN D© TO  INPUT ww INPUT  RETURN w RUN CODE  RETURN ww INPUT  INPUT  COPY © INPUT  INPUT  COPY  LIST  RETURN USR  RUN  GO TO p LPRINT @ LPRINT 0 TO ? OR w">G. DEF FN P SCREEN$ ]▖SCREEN$ Y BEEP VAL$ ?u GO SUB :[T]qFN <T THEN PEEK G COPY  RETURN  IF ©SGN COS UWATTR VAL$ AwLN [S] BRIGHT ESCREEN$ Uw PAUSE VAL$ L"USR  LET ©( RETURN 4 COPY  DRAW  INPUT s© GO TO  RETURN D© TO  LOAD <w DRAW  DEF FN q©COS  LOAD Gw. RETURN 7w LOAD  RETURN U}VAL$  REM }w LOAD  IF ©©PEEK VAL$  RUN  CLEAR CODE  IF ©p RETURN [T]uINT 0PNOT 00USR W CIRCLE  RETURN [T] INVERSE PEEK ? LIST  CAT  READ 30NOT NOT 03USR  NEXT 3333 NEXT w POKE INT  FOR _S INPUT  READ _NOT SQR wINT t CONTINUE P[Q]@NOT 0< TO ,3?33<3 PAUSE 3<=?.=_ PAUSE  LOAD <= COPY *SCREEN$ 3< LIST  PAUSE 3 STEP  COPY :<u PAUSE PEEK <= MERGE /VAL$ ]u LOAD  RETURN  INVERSE wINT INT  OUT  PRINT PEEK  INPUT  PRINT uPEEK SCREEN$ ▘# OPEN #▘ READ  OPEN #s▘[T]▘▘COS S▘COS U PRINT  IF  RETURN ] INVERSE INT  IF w COPY  RETURN  INPUT ] OUT  FOR INT ] CLEAR  COPY  COPY  COPY  COPY UUw_ MERGE VAL$  RETURN } PRINT  CLS AT ©P IF  READ }D GO TO .s_ STOP *PD GO TO P<NOT CHR$ <NOT ~ RUN  PRINT PEEK [S]4▘ CLS  OUT jCOS  FOR ( PAUSE EM.+ COPY  COPY SCREEN$ SCREEN$ _ COPY IN  COPY  RUN USQR  LOAD 7 PRINT INT s7" LINE tw CLS .<7▙▛QCHR$ "<NOT CHR$  GO TO < BEEP  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  FOR IN  OUT  OUT  REM  COPY  PRINT © RETURN  IF  OUT  CLOSE #VAL$  CLOSE #? DRAW ?STR$  DRAW  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY SCREEN$ SCREEN$  COPY  COPY  COPY  COPY  MOVE  READ  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  CLEAR © COPY  FOR  COPY  CLEAR  COPY ©PEEK CODE ]CHR$ SQR  DRAW ?CHR$ C DRAW (?{© PLOT  SQR  OUT © LOAD  OUT  COPY  COPY  LOAD IN  COPY  OUT  OUT  COPY PEEK  RUN  RUN { INPUT  COPY  CLEAR <= IF  LOAD  CLEAR  COPY  COPY  CLEAR  COPY _STR$ p(UuCODE  RETURN }] FOR  LOAD ©uATTR  FOR } INVERSE  CLS  FOR  BEEP  CLEAR SCREEN$ SCREEN$ p SAVE ▙UU REM  IF  COPY _IN  CLS  RUN  PRINT PEEK CODE W CLEAR  INPUT  LOAD w]SCREEN$ ATTR C▛(.U_ RETURN  CLS  MERGE  INVERSE PEEK PEEK  INVERSE  RUN  LOAD  REM _U IF  RETURN _ PRINT  REM SCREEN$ STR$ p(UuCODE  RETURN }] FOR  LOAD ©uATTR  FOR } INVERSE  CLS  FOR  BEEP  CLEAR SCREEN$ SCREEN$ p SAVE ▙UU REM  IF  COPY _IN  CLS  RUN  PRINT PEEK CODE W CLEAR  INPUT  LOAD w]SCREEN$ ATTR C▛(.U_ RETURN  CLS  MERGE  INVERSE PEEK PEEK  INVERSE  RUN  LOAD  REM _U IF  RETURN _ PRINT  REM SCREEN$  LET M LINE SCREEN$ T"[S]Gw/ INPUT D0 LINE  FOR  LLIST M CONTINUE *© COPY  RETURN u© RETURN  INPUT w CLS  INPUT  INPUT  CLOSE #E[T]INT  PAUSE  BEEP  INVERSE IN IN M IF SQR © OUT  INPUT PEEK p MOVE **P RETURN { RUN  INPUT  INPUT  BEEP sSCREEN$  REM ▛ATTR  BRIGHT _FN > DRAW SQR p LIST ;@ LINE 7@ RETURN  RETURN w{ INPUT  INPUT  COPY FN ?QAT VAL$  PRINT OIN  DEF FN s SAVE ▙M? STOP >Tw COPY W RUN  RETURN  LOAD _w FOR  INPUT  RUN _ LOAD IN  COPY w SAVE  FOR wu NEXT /t©PEEK  RETURN  COPY  RUN  RETURN INT  RUN w FOR  CLS ©u RETURN  RETURN © COPY  CLS  LOAD ! COPY :b BEEP 8w DRAW ! COPY "USR FN <> INVERSE !b CLOSE #CODE  PRINT 2{ THEN  CLS  INVERSE q LET <  INPUT <>>D!;[L]NOT [L]s#r# FOR  FOR =  PLOT  <>010203040506070809101",0).%"'(' +''%.,('..".*%"'(''(#$.(%"##)*&&%-'(&&*%'" &-,&*)%&"#" ,&+#$ &%"--,--(-%-#%-'(&--%"--"---'(&%"-+,%"'-'($".'(&*&&%'(".&%'(%--.,.'&"--&+'('%"'(+../.,$&.%"..,+'('.'(,&+.'%,//*$$%""..+..,%".....,...%",+' 0)/0$0)%)("--+.%(-.,(."--'%. &+,&%",(#,..'%"..%..'"'(-/$%.-../"--$%"+,&*."#.(.%+,".--%".-%",.,000)))00*))%"###,&+..'%+,0"%"'(' +'('##%+,".&.*% CONTINUE  LPRINT g}SCREEN$ zpX|}SCREEN$ zpX[G]}SCREEN$ zpXASN }SCREEN$ zpXc©SCREEN$ zpX INPUT }AT |pX~AT |pX,~SCREEN$ zpXK~SCREEN$ zrX▘©SCREEN$ zpX▗~AT |VAL X[T]~SCREEN$ zpXABS ~SCREEN$ z LIST X BEEP ~SCREEN$ zpX GO TO ~SCREEN$ zVAL X©SCREEN$ zVAL X%©SCREEN$ zpXD©AT |pX CLOSE #}SCREEN$ zpXe~KSCREEN$ Cz LIST X▘SCREEN$ zVAL X OR ▝SCREEN$ zpX▜▝SCREEN$ z LIST X[J]SCREEN$ zpXSCREEN$ z LIST X<SCREEN$ z LIST X[SCREEN$ z LIST XzAT |pX RETURN ©SCREEN$ zpXLN SCREEN$ z LIST X BEEP SCREEN$ z LIST X PLOT  SCREEN$ zrX▝SCREEN$ zrX/▝SCREEN$ zpXN▝AT |rXm▝SCREEN$ zrX OUT ©SCREEN$ zpXINKEY$▝SCREEN$ zpXUSR ©AT |pX DATA ▝SCREEN$ zpX[R]©SCREEN$ zpX"▘SCREEN$ zpX STEP  LLIST PI STEP  GO TO PI STEP [E][B] STEP  CAT PI STEP ATTR > STEP *ATTR  STEP ▚>) STEP *ATTR  STEP ▚>( STEP *ATTR  STEP ▚> STEP *ATTR  STEP 9▚>8 STEP *ATTR  STEP ,▚: THEN PIUSR >* STEP *ATTR  STEP ~>+ STEP *ATTR  STEP t STEP F▚ STEP X▚ STEP ACS ▚ STEP ▜ STEP :▜ STEP p▜ STEP ATTR ▜ STEP 8▖ STEP C▞ STEP [A] STEP m STEP TAB ▛ STEP [A] STEP [O][A] STEP SQR [A] STEP AT  STEP  GO SUB [A] STEP CHR$ ▛ STEP  STEP S▟ STEP [S]▟ STEP p▟ STEP  INK ▟ STEP ;▙ STEP H{ STEP :s INPUT 2s INVERSE !j CLEAR !I▘ STEP  OPEN #[C] ERASE ACS ▗: POKE  CLOSE #PI(=2 POKE  CLOSE #NOT  RESTORE SCREEN$ (<>>21▛ LLIST <> LINE  RESTORE SCREEN$ <>CODE 2 GO SUB 2Z BEEP 2/ BEEP 2^ BEEP 2` BEEP 2[A]2o▟28 GO SUB 25 GO SUB 2p BEEP 2l>2b BEEP 2d BEEP !"NOT CHR$ " OR CHR$ "<=CHR$ " POKE  CLOSE #>2-[A]>02l[A]! POKE  CLOSE #6# CLS : DEF FN  RETURN  PAPER  CIRCLE INKEY$ RETURN  PAPER INT INKEY$NOT PI>Z29 GO SUB 2? GO SUB 2E GO SUB 2K GO SUB  STEP STR$ NOT >2 DEF FN >2 DEF FN $! STOP  CLOSE #6# CLS <> >2F MERGE <>CODE 2F MERGE <> >2G MERGE <>CODE 2G MERGE <> >2E MERGE <>CODE 2E MERGE <> >2I MERGE <>CODE 2I MERGE <> >2H MERGE <>CODE 2H MERGE <>:F MERGE PI 2l BEEP :G MERGE PIUSR 2m BEEP <>:E MERGE PI :I MERGE PIUSR 2n BEEP <>:[A]PIUSR :o BEEP PI(=2o BEEP :p BEEP PIUSR :n BEEP  RETURN 0<2n BEEP _!VAL ▚:b BEEP [G]!w BEEP ▚ RETURN  IF [M]▚0>2b BEEP :d BEEP  THEN / RETURN 0>2d BEEP <>:sPIUSR :I MERGE PI :▜PI>=CODE 2▜NOT  AND ▜>2▜:b BEEP  RETURN  CIRCLE :[A]PIUSR :m BEEP PI( STEP .>:l BEEP PI( STEP ^>2l<> STEP g▚NOT {▚:G MERGE PI>=:[A]PIUSR :p BEEP PIUSR :n BEEP  RETURN  FORMAT : ERASE ▟PI :m BEEP < GO SUB [s BEEP 2m BEEP :Z BEEP PI RETURN _8CODE 2Z BEEP <>:F MERGE PI>=:[A]PIUSR :p BEEP PIUSR :n BEEP  RETURN  FORMAT : ERASE ▟PI :l BEEP < GO SUB [s BEEP 2l BEEP :Z BEEP [D]PI PAUSE l▜>_2Z BEEP <>:H MERGE PI>=:[A]PIUSR :p BEEP PIUSR :o BEEP <2o BEEP :b BEEP  RETURN <8 RETURN P8 RETURN Z8 GO SUB [s!u BEEP PEEK 8~2b BEEP <>:[A]PIUSR :Z BEEP G:/ BEEP LN (`0_x[D][A] RETURN 0:Z BEEP 2/ BEEP g.` STEP  RANDOMIZE [T]"` BEEP @:Z BEEP G:/ BEEP LN 8[A] RETURN 0:/ BEEP 0_x[D] RETURN 0:/ BEEP 8:` BEEP !q BEEP [G]:` BEEP !q BEEP ▚2` BEEP O!` STEP <>[T]|2/ BEEP :E MERGE PIUSR :b BEEP G:d BEEP LN >=0 AND  PAUSE 1▖>©2d BEEP <>= RANDOMIZE :lPI(:f BEEP 2j BEEP :h BEEP 2k BEEP :b BEEP PI :d BEEP PI>=!| CIRCLE "COS ▖ STEP q▖|2h BEEP ! CIRCLE "COS ▖ STEP q▖|2f BEEP D GO SUB [Z BEEP *COS ▖N*b BEEP  STEP POINT [T] RESTORE  GO SUB [/ BEEP *COS ▖N*d BEEP  STEP POINT [T] MOVE CODE 2>=[T]|PI PAUSE SCREEN$ ▖>2>=[T] FOR ! GO SUB R:>=[T]PI>=|/g<> GO SUB Kf BEEP yPI PAUSE USR ▖/O*h BEEP }PI PAUSE  LINE ▖/o THEN % THEN  THEN % THEN  THEN % THEN  THEN % THEN  STEP  RANDOMIZE [T]|PI(. COPY }! BRIGHT  CIRCLE PEEK 8#  RANDOMIZE >[D]_:h BEEP PI IF ▞:f BEEP PI PAUSE ▞>0[D]':h BEEP PI PAUSE ▞:f BEEP PI PAUSE ▞>0:h BEEP PI PAUSE -▞:f BEEP PI IF -▞>`[D]{2^ BEEP :lPI>=:j BEEP 2f BEEP :k BEEP 2h BEEP <>:[A]PIUSR :p BEEP PI( STEP {▚ STEP {▚:b BEEP  RETURN  ERASE  RUN ▞CODE 2p BEEP 2f BEEP 2h BEEP 2lNOT  AND ▜:b BEEP  RETURN 0CODE 2l<>:^ BEEP G:Z BEEP LN 8[A]_x[D] RETURN 08G>`[A]_!;:b BEEP PEEK 8## RANDOMIZE #:E MERGE NPI(y VERIFY  RETURN O0 BEEP [G]8 RETURN O0CODE 2l<>_!! COPY "CHR$ FN !E:b BEEP PEEK 8## RANDOMIZE #~!v BEEP [G]8 RETURN O0>2p BEEP :q BEEP  VERIFY !O_:b BEEP [G] RETURN  IF 2b BEEP 2d BEEP :l RETURN ( RETURN (;:m BEEP PI(0>2l:Z BEEP  RETURN _8CODE 2Z BEEP <>#<Z COPY #<Z COPY >2l:Z BEEP [D]PI PAUSE h>_2Z BEEP <> GO SUB [f BEEP {PI PAUSE ▚ GO SUB D!_ GO SUB R FOR {_*I▘|PI PAUSE [L]! RESTORE TAN  GO SUB R LLIST 8 FOR >2▛"I▘ GO SUB [h BEEP {PI PAUSE <= GO SUB D!_PI GO SUB R FOR {_*K▘PI GO SUB R|PI PAUSE  OVER ! RESTORE p GO SUB R LLIST 8 FOR >2▛"K▘:▛PI>=CODE 2▛:b BEEP  RETURN  CIRCLE >2p BEEP <>!@ STEP  LLIST  THEN !▛ STEP USR NOT  RESTORE SCREEN$ HC ABANDONO DEL RALLYE@CODE 2AT ▛ POKE !s{~ NEW © OR  RESTORE '! PRINT  BEEP  GO SUB LEN  LLIST STR$   THEN ~ :AT ▛<2AT ▛#xLEN   OVER :AT ▛PI>=!@ STEP  LLIST  THEN !z▛ STEP USR >21▛NOT  RESTORE SCREEN$ H    DESCALIFICADO    PPOR SALIRSE DEL TRAMO@ STEP gCHR$ :sPI( STEP ]STR$  STEP STR$  STEP 3CHR$ NOT NOT STR$ :[A]PI(!6#<> INVERSE  RESTORE  CLEAR  RESTORE : GO SUB _ THEN # THEN # THEN #! BRIGHT  RESTORE  INVERSE  LLIST  CLEAR ! OR *E▘ INVERSE ^"C▘*G▘ INVERSE ^"A▘ STEP ][D] CLEAR w CLEAR # INVERSE # INVERSE #STR$  PAPER  CLEAR  LLIST  INVERSE  LLIST <>:[A]PI <:b BEEP  RETURN ( CIRCLE !~ RETURN (!~ RETURN (!~ RETURN (!~ RETURN USR  STEP a:b BEEP  THEN ? THEN ? THEN ? THEN ▜2[A] THEN ?2[A]<>:lPI  GO SUB _ NEW >= RETURN ( RETURN ( GO SUB _ NEW (>2lNOT .>2lNOT ^:[A] RETURN  FORMAT :b BEEP  RETURN 0:d BEEP  RETURN  CIRCLE !~ RETURN  !~ RETURN (;!~ RETURN (51!~ RETURN  !~ RETURN (,!~ RETURN  !~ RETURN (!~ RETURN (CODE 2-▟<>:lPI>=>=:lPI>=!. COPY "BIN FN :f BEEP  GO SUB D2f BEEP :h BEEP  GO SUB D2h BEEP >2p BEEP 2l2-▟NOT {▚:Z BEEP [D] PAUSE ;▟_> COPY [D]<2Z BEEP 2/ BEEP <>:Z BEEP  RETURN _8 VERIFY _2Z BEEP 2/ BEEP <>!~ RETURN USR # RANDOMIZE :o▟<2o▟:b BEEP  RETURN < CIRCLE NOT g▚:b BEEP  RETURN 2 CIRCLE !~ RETURN (# SAVE <>:l BEEP PI( STEP ^:m BEEP PI>= STEP .!n COPY "CHR$ FN <>: ERASE ▟PI ~ RETURN (# SAVE <>*K▘##CODE *K▘++>"K▘2 ERASE ▟!x COPY "CHR$ FN <>CODE 2 CIRCLE ▟<>!~ RETURN   LIST # SAVE : CIRCLE ▟< NEW 2 CIRCLE ▟USR !@ STEP  LLIST  THEN !▙ STEP USR  STEP  RESTORE SCREEN$  LLIST >21▛<>H   MOTOR BLOQUEADO   P INUNDADO POR EL AGUA@: DEF FN PIUSR :5 GO SUB PI( RETURN #8:sPI LINE  CLS ▙!> COPY "BIN FN *6 GO SUB  RESTORE  CLEAR  LLIST  CLEAR ~n:-▟PI(&:b BEEP  RETURN P0:8 GO SUB < NEW 28 GO SUB USR  GO SUB _ NEW G RETURN 8 CLEAR !E GO SUB  CLEAR !? GO SUB  CLEAR !9 GO SUB  STEP PI( CLEAR !K GO SUB NOT s>(25 GO SUB  CLEAR ~ RETURN  CIRCLE [A] PAUSE VAL ▙> CLEAR w_ CLEAR ~ RETURN   STEP  RETURN   STEP = RETURN   STEP T CLEAR n CLEAR f RESTORE  INVERSE  LLIST o& INVERSE # STEP [L]STR$  CLEAR n CLEAR f STEP USR :5 GO SUB =PI25 GO SUB ( CLEAR  RESTORE  LLIST "6 GO SUB <>! STOP  BEEP NOT USR :b BEEP  RETURN 8:n BEEP  RETURN 8:< NEW 2>=><>:9 GO SUB  THEN ? THEN ? THEN ? THEN ? THEN ? GO SUB D AND _:x BEEP  RETURN 8>2w BEEP <>:? GO SUB  AND  THEN ? THEN ? THEN ? THEN ? THEN ?<2]2-<>:E GO SUB _ THEN ; THEN ; THEN ; THEN ; THEN ;>[D]_ PAUSE k:r BEEP [D]2q BEEP <>:o▟ RETURN  CIRCLE  CLEAR ~ RETURN @ CIRCLE  VERIFY  CLEAR w RETURN < FORMAT >(25 GO SUB :? GO SUB  VERIFY  RETURN 0>2? GO SUB  STEP = STEP [T]NOT TAN ▙:K GO SUB  AND 2u BEEP <> STEP >[B]* GO SUB :[A]PI( GO SUB K[A]_:[A]SQR 8 GO SUB C[A] GO SUB B" GO SUB * GO SUB :[A]PI( GO SUB K[A]=2[A]_:[A]SQR 8 GO SUB C[A]} NEW  RETURN o: GO TO  COPY  INPUT ASN o" GO SUB NOT 7[B]: GO SUB !y BEEP _:-[A]PEEK (!-[A]045*I▘PI GO SUB B"R▘| NEW (!"R▘ FOR *X▘ RESTORE  GO SUB R LLIST 0"R▘: GO SUB ! BEEP _:l[A]PEEK (!l[A]04455*K▘0PI GO SUB B"T▘| NEW (!"T▘ FOR */▘ RESTORE  GO SUB R LLIST 0"T▘*T▘"Da*R▘"Fa STEP )[K]NOT GATTR *4[U]0 STEP <>[T]"ATN [A]*6[U] STEP <>[T]"EXP [A]<>:Z BEEP  AND  RETURN `8CODE  THEN ? THEN ? THEN ?2 GO SUB  RETURN 8 RETURN 0{2 GO TO  COPY !& DATA : GO SUB O~22 DATA <> STEP >[B]:2 DATA O! GO SUB ~2Q▘ THEN 'O! STOP  GO TO  FOR  MERGE  STEP [Q]USR  MOVE  FOR ~ NEW  RETURN _#V GO SUB SHa* GO SUB  GO SUB [ATN [A] GO SUB R"Fa"E▘* GO SUB  GO SUB [EXP [A] GO SUB R"Da"G▘NOT JATTR :2 DATA  AND ASN : GO SUB  THEN ' THEN 'O!d[B]^#V# RESTORE *I▘" GO SUB  LLIST ^#V*K▘" GO SUB <> CLEAR  COPY  RETURN  COPY  RETURN  COPY  CLEAR  COPY  DRAW  COPY  DRAW  COPY  DRAW  COPY  CLEAR  COPY  RETURN  COPY  CLEAR  COPY  STEP ▘: DEF FN 2 BEEP  STEP iINKEY$ CLEAR  RESTORE  STEP I[C] CLEAR  LLIST ! LIST "V▘"Z▘![A]"X▘!"/▘!)[S]"Da!FN a"Fa!"Ha CLEAR  RESTORE  STEP DATTR  CLEAR  LLIST  CLEAR ^ CLEAR V GO SUB SDa GO SUB ST▘ CLEAR ^ CLEAR V GO SUB SFa GO SUB SR▘!0u"9[L] CLEAR  RESTORE  STEP )[K] STEP GATTR  CLEAR  LLIST  CLEAR ^ CLEAR V GO SUB SK▘ GO SUB SDa CLEAR ^ CLEAR V GO SUB SI▘ GO SUB SFa>2Z BEEP  CLEAR  RESTORE  STEP [O][A] STEP SQR [A] STEP AT  STEP  GO SUB [A] STEP MATTR  CLEAR  LLIST  CLEAR n CLEAR f"j CLEAR n CLEAR f"l<> STEP  OR [C] CLEAR n CLEAR f~ THEN ' THEN ' VERIFY 2▗[C]#CODE 2STR$ [C]2NOT [C] RESTORE N! STEP <>[T] FOR ! INK  RESTORE !s{ GO SUB KSTR$ [C]y RETURN 8:NOT [C] RETURN 8 LLIST  LLIST <> AND 2NOT [C]> AND 2STR$ [C] FOR *NOT [C] STEP <>[T] FOR  LLIST  OR  GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR  FOR STR$  INPUT  LLIST #[T]!s{t{6 NEXT  GO SUB VAL <> CLEAR ~ THEN 'O! STOP  GO TO ~ NEW  RETURN _#V FOR N RESTORE  CLEAR n CLEAR f THEN |(! FOR  INVERSE n INVERSE f THEN |(!PI GO SUB R LLIST  FORMAT #N CLEAR n CLEAR f FOR  INVERSE n INVERSE fPI GO SUB R FORMAT  INVERSE ~ THEN 'O! STOP  GO TO ~ NEW  RETURN _#V FOR N RESTORE  INVERSE n INVERSE f FOR  CLEAR n CLEAR fPI GO SUB R LLIST  FORMAT #N INVERSE n INVERSE f FOR  CLEAR n CLEAR fPI GO SUB R<> NEXT !)[S] GO SUB KA▘CODE  THEN xUSR y THEN  THEN  THEN  THEN 0 THEN  THEN  PLOT   GO SUB KC▘ THEN 8 THEN  THEN 8 THEN ~!© BRIGHT O~ CLS <>>;2<=CHR$ 2 OR CHR$  STEP qCHR$ >2[E]:[E]=2[E](1 RETURN ( RETURN (! GO SUB [D] STEP USR USR ! CLEAR [D] STEP USR  OR xLEN   CLS  STEP H{STR$  LET  AND ![E]NOT USR 7pG [B][C] @7pG [D][E] @7pG [F][G] @7p▟▙[A]@ STEP  LOAD [H] INVERSE  RESTORE  INVERSE ! BORDER [G]CODE 2INKEY$[G] OR  INVERSE  THEN ^BIN  READ [F] INVERSE  THEN fBIN L[G] INVERSE ~PI LINE k[E] INVERSE  THEN VBIN [O][F] INVERSE  THEN NBIN y[F] STEP  BRIGHT [E] INVERSE n INVERSE f GO SUB [ATN [A] GO SUB R"Fa INVERSE n INVERSE f GO SUB [EXP [A] GO SUB R"Da INVERSE  RESTORE  NEXT  STEP JATTR  CLS  INVERSE  LLIST STR$  INVERSE CHR$ [E] INVERSE  LLIST :RND[G]PI 2 FLASH [E]<>CODE 2RND[G]: FLASH [E]< NEW 2 FLASH [E]USR !@ STEP  LLIST  THEN !FN [E] STEP USR  STEP  RESTORE SCREEN$ >21▛ LLIST <>H    DESCALIFICADO    PCONDUCCION  TEMERARIA@<> INVERSE ~ INVERSE PEEK 8 INVERSE 6 INVERSE 4 INVERSE ^! VERIFY [G] INVERSE ^~ INVERSE w THEN 'O! STOP  GO TO ~ NEW  RETURN _~ INVERSE VAL$  NEW 2-[F](~ INPUT w#V FOR "Ha:-[F]PI>= INVERSE  RESTORE  STEP ASN USR  INVERSE  LLIST <> STEP M[F] INVERSE n INVERSE f RESTORE  INVERSE  THEN F  LLIST ++ LLIST ## INVERSE u INVERSE t<> INVERSE n INVERSE f INVERSE ^ INVERSE V GO SUB R0f GO SUB R FORMAT  INVERSE  THEN ▚<> INVERSE  THEN  AND <> INVERSE ~ INPUT  INVERSE w<>* BORDER [G] GO SUB R" CLEAR [G]* DIM [G](" COPY [G]: LET [G] NEW _:[H] NEW  RETURN COS 2[H]<>*I▘ INVERSE u INVERSE t2 GO SUB R INVERSE u INVERSE t*K▘ GO SUB R} NEW  LIST o INVERSE ^ INVERSE V MERGE { NEW  LIST _ GO SUB R LLIST 0 GO SUB R INVERSE u INVERSE tNOT .[F] INVERSE ~PI .:[A] RETURN ( FORMAT :lPI :b BEEP  RETURN  CIRCLE :n BEEP  RETURN  CIRCLE :INKEY$[G]PIUSR >2INKEY$[G] INVERSE 6 INVERSE 6 INVERSE 5USR  INVERSE 6<>: GO SUB  THEN ' THEN 'O!PI[G]^#V# RESTORE *I▘ INVERSE u INVERSE t LLIST ^#V*K▘ INVERSE u INVERSE t<>:B[I]PI( INVERSE 6<> INVERSE ~PI 1*>[I] INVERSE ^ INVERSE u INVERSE t INVERSE u INVERSE t INVERSE u INVERSE t*@[I] INVERSE ^ INVERSE u INVERSE t INVERSE 6<> CLEAR !I▘ STEP  OPEN #[C]0>2RND[G] INVERSE ~ RETURN  FORMAT NOT .[F] SAVE  COPY  CLS  COPY  CLEAR  COPY  SAVE  COPY  LIST  COPY  GO TO  COPY  CLEAR  COPY  GO TO  COPY  IF  COPY  POKE  COPY (<2>=(<(<(<(<(<2>=(<2>=(<2>=(<2>=(<2>=(<2>=(<2>=: DEF FN PI ,:5[L] STEP C[I](':6[L] STEP C[I]0(:7[L] STEP C[I](:8[L] STEP C[I]0(>2B[I]<>CODE 2B[I]*ATN [A]J">[I]*EXP [A]K"@[I]<> NEW ©!N[I] GO SUB LEN <>#$%'AC[U]▘[G]▘▖▘z▘l▘^▘ SAVE ▘ REM ▘ BRIGHT ▘ DEF FN ▘USR ▘SIN ▘L>0"[Q][C]▗vhZ POKE  NEW  CIRCLE  LINE SGN VAL$ H▗:▗,▗▗▗▗[M]▗▙▗▗r▗d▗V▗ENTRENAR TRAMOCORRER TRAMOCLASIFICACIONESMENU PRINCIPAL @P 1=MENU PRINCIPAL    ` 2=JOYSTICK KEMPSTON   p 3=JOYSTICK SINCLAIR   4=REDEFINIR                   @▖ACELERA@▖ FRENA @▖IZQUIERDA@▖ DERECHA @▖FRENO DE MANO@▖    PAUSA    @▖INICIO@▖      @!++"'[S]*T▘ STEP  RANDOMIZE [T]"6[U] GO SUB [.[U] GO SUB SDa GO SUB S2[U] STEP <>[T] FOR *R▘0 STEP  RANDOMIZE [T]"4[U] GO SUB K.[U] GO SUB CFa GO SUB C0[U]s{ RESTORE  GO SUB [9[L]PI GO SUB R LLIST >="9[L]5[L] THEN  RETURN  GO SUB [Q] THEN  RETURN  GO SUB [Q] GO SUB K'[S] THEN  RETURN  GO SUB [Q] THEN  RETURN  GO SUB [Q]!5[L] RESTORE  GO SUB S[L] STEP NOT [K] LLIST # RESTORE  GO SUB S[L] STEP NOT [K] LLIST # RESTORE USR  GO SUB S[L] STEP NOT [K] LLIST # TO  GO SUB S[L]CODE 2#[S]2%[S]~ NEW ©O THEN !!;[L]^#V FOR  RESTORE N! STEP <>[T] FOR !9[U] RESTORE !)[S] GO SUB K#[S]y RETURN 8:%[S] RETURN 8 LLIST  LLIST <> AND 2%[S]> AND 2#[S] FOR *%[S] STEP <>[T] FOR  LLIST  GO SUB [Q] GO SUB [Q] FOR  FOR  GO SUB [Q] GO SUB [Q] LLIST #RNDDE?@D?@ABEABD?@EEDABE9:;D3434▗yJ?@▞"#$AB ▝X▚%▚J?@JABDJExOP▘X&#$▖?@OPABD▚<?@<AB▚<E<?@▚<AB<OP▘E=▚?@=AB=DE=▚JEDDE(?@▚<AB▚<OPmjj▞"#$lE▖!" qujrnElstlD#$EOP!"#$ ?@DEABkOPkqtrE▞"#$56 ?@HIABJ?@OPEDAB▜EmrokEqtmjnEOPJl▜OPDEkkmjjJ▜HIOPEE56?@DAB?CC@AzzBOP?@AB?@EABD?@E?@ABJABJJJOPDEEOP?C@AzB'qrOPstJOPEkvDmurmutlE▘8?@©AB?@56ABE/©J/©D.?C@©AzB?@JJ?@AB?@AB?@ABE/ABOP/©OPEDJ?@J?@ABOPABDED/OP/©J/./©E.56.J?@.9:;ABEEJD9:;/56/JOP//©yD56▞"EDE?@7AB56)*DE0-34+,349:;E/.D156EJJOP&2DEhMiMhiSSSS▛DEEVVVVVVSSSSSSEDDEDETVHISJVUOPS▛HI▗JDJJEJE▗▗YZ[[YZyEOP?@▞"#$AB ▝J]Xg]▚gagfge▚gf<ge▚<gf<ge▚<g^<^<OP<<DDExOP▘▜X`=▚`g=dg=cg=▚bg=bg=dg=cg=bg=bg=▚_g=E_=▚OPggggggggggggggggggggggggggggggggggggggggg^ggggfgggg
  26471gggg_gggggqrovEDst▜juujuslmjuoDOPllqqurDEsjutnkmuormjqrvltl▚NJWWWWWWN▚NEDEDEJWWWWWWOP?@DEABJESSSS▛!"xQR(D/1S&▚E 56{DED'?@?@ABABE?@9:;xABE/?@/AB|SSSSSX/1!"ES▛(!"▚% E9:;FTVHIQS56>?@ABGpOPE▚<WWWWWW<OP▚EMMMDMQSSRE9:;56DMMDw}}}}~OPEDEDTVVVUQSSR56EDCODE 2>=[T]yPI PAUSE EXP [T]/O>2>=[T] STEP <>[T]:>=[T]PI>= FOR ! GO SUB R<> MERGE  FOR x!)8 THEN 08 NEXT  MOVE > COPY 8<28[U]<>oCODE ▜8 LIST  THEN 08 DIM  POKE <> MERGE  FOR > THEN  THEN  GO SUB j GO SUB B0?=  LET  THEN  THEN ".[U] FOR  MOVE <>oCODE  THEN [J]0▝? PLOT   THEN 2.[U]}<>[/]^_ `!aaaa"#$%+,-./0123DDDD'8;<9:=>99==6767'("#$%&4545EEDD?AB@CFIIGIIHIIJIIbbccHJhissjksslhsskrssrsrspposommssqsqnsnsmsnsnsossrsqsqspssss67EE&EEKLMNOPQRSTUVMNQV(OLMNKPMNKLQNKLMRWXYZOPQRFI)*IIIG4455545445445FI4IG: BEEP  THEN '_!▙INKEY$~#N![I]INKEY$ STEP ▚INKEY$y!SCREEN$ INKEY$^#V# RANDOMIZE <>fgde5INKEY$:INKEY$GINKEY$IINKEY$QINKEY$UINKEY$_INKEY$aINKEY$fINKEY$?INKEY$DINKEY$HINKEY$JINKEY$OINKEY$TINKEY$YINKEY$bINKEY$:^PI RETURN ( RETURN   STEP  NEW INKEY$ STEP PI>2^PI>2q BEEP <>:^PI RETURN ($ RETURN ( STEP PI!m CONTINUE r LPRINT  STEP _PI!>=a(pUSR  STEP _PI>2^PI>2q BEEP <>:^PI RETURN (H RETURN ( STEP  NEW INKEY$!my LPRINT  STEP _PI!FN a>=s@ STEP _PI!▖eHz` STEP _PI!hhw STEP _PI! CONTINUE eFN z[Q] STEP _PI>2^PI>2q BEEP <>~w#xLEN   NEXT <>CBA@D!"$#  NEXT > RETURN  GO SUB G GO SUB ^ CLS ![~PI # RANDOMIZE ! DEF FN POINT " THEN FN ![U]POINT " READ SCREEN$  STEP  STOP SCREEN$  STEP [B]<> STEP ▛{NOT s{ STEP @FN  STEP ▙FN !  STEP  LLIST  THEN >2[G] TO ! STEP  LLIST  THEN >2[G] TO ![I] STEP  LLIST  THEN <> STEP FN  STEP p THEN  OR  STEP ACS ▛STR$  RANDOMIZE NOT [N][D] CLEAR  RESTORE  STEP [P]<> STEP @FN  CLEAR  LLIST <>!@? PAUSE  RETURN (w# PLOT   RETURN  RETURN 0Gw# DRAW  NEW  RETURN  COPY >=6# INVERSE : DEF FN  RETURN >8: DEF FN  RETURN >8>!!X OR ]Tw GO SUB VAL STR$  LOAD <>!N COPY "USR FN  CLEAR  RESTORE  INVERSE !oPEEK  CLEAR ! GO SUB IN  INVERSE f CLEAR ^ CLEAR V STEP ▚FN  FOR  STEP ▚FN  RESTORE  LLIST  DRAW  INVERSE # INVERSE # CLEAR + CLEAR +  BRIGHT  CLEAR  LLIST !XX6 COPY  GO SUB VAL <> 6# CLS <>![F]FN  STEP USR <>]^_`abcdefghijknopqrstuvwxyz{|@ RETURN FN  RETURN FN  RETURN FN :IN FN PICHR$ POINT  STEP  LLIST SCREEN$ <> NEXT >2IN FN >!POINT N# PRINT  STEP [A]POINT  LET =  PLOT  ! RETURN FN "USR FN "CHR$ FN "BIN FN CODE 2[Q]POINT 2[R]POINT 2[S]POINT  CLS <>IN !USR FN [Q]POINT  INVERSE !OPOINT PI(=## PRINT PI MERGE  RESTORE ~#fo~PI $ STEP ?POINT TPI INVERSE 6INKEY$>7 INVERSE 6ACS  OR  CLEAR STR$  RESTORE ![T]POINT ACS w LLIST O>9 THEN G(> CLS  STEP 8POINT  STEP ?POINT > COPY  STEP 8POINT x=#N PRINT  STEP [A]POINT ~ NEW O LET < STEP [A]POINT x AND #N STEP [A]POINT # MOVE  MERGE  FOR s#r LLIST  MOVE [C] OR  OR  CLEAR  COPY  GO SUB ySTR$ y CLEAR IN  GO SUB ySTR$ <>IN  NEXT >2IN FN ! RETURN FN "USR FN "CHR$ FN "BIN FN CODE 2[Q]POINT 2[R]POINT 2[S]POINT  CLS <> NEXT CODE 2IN FN  STEP 6SCREEN$  CLS <>!USR FN [Q]POINT PI(= STEP  BORDER POINT ## PAUSE NOT  FORMAT FN  RESTORE ~#fo STEP SCREEN$  LLIST <> MERGE  RESTORE ~#fo~PI(### MOVE  MERGE  FOR s#r LLIST  MOVE  VERIFY  OR CODE @  THEN   OPEN # RETURN  RETURN  INPUT   LOAD +STR$ <> LPRINT  LPRINT  LPRINT  LPRINT  LPRINT  LPRINT !"SCREEN$ +SCREEN$  GO SUB VAL <>1SCREEN$  RESTORE "4SCREEN$ ~#fo~ RETURN  COPY  SCREEN$ STR$  MOVE  LLIST ## NEW <> OR PI(= STEP SCREEN$ STR$  GO TO #~ MERGE  GO SUB [4SCREEN$ # FOR s#r MOVE STR$  FLASH ~ RETURN  RETURN >(>2ATTR SCREEN$ 2SIN SCREEN$ ~ RESTORE !SGN SCREEN$ O~ THEN '2TAB SCREEN$ <2TAN SCREEN$ -  INPUT .%  INPUT & INPUT   FOR  LLIST <>}yrlf`[VQLHD@=9630-+(&$" <>NOT  MOVE FN  STEP ATTR = OR x= STEP *ATTR STR$ ( PAUSE  PRINT  STEP ATTR = OR x=O OR  STEP *ATTR STR$ ySTR$ >= PAUSE  FOR  RETURN  RETURN !!ATTR  GO SUB x PLOT   LPRINT w# THEN 8 PLOT   FLASH / PLOT   LPRINT w<> COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY o THEN = THEN = THEN =!ATTR & NEW  PLOT  F2BATTR  THEN F<>NOT RATTR NOT nATTR NOT ^AT NOT  OUT TAB *Da"VAL ATTR *Fa" OPEN #ATTR :Ha2▙ATTR 2 GO SUB ATTR !©PEEK "PATTR <>*Da"OVAL$ } NEW 2+AT  THEN < THEN  THEN < THEN  THEN < THEN  THEN < THEN  FOR >!)0 RANDOMIZE  FOR *Fa THEN < THEN } NEW 2:AT "QVAL$  THEN < THEN  CLEAR !UVAL$  FOR  INVERSE & MERGE  CLEAR  RESTORE  INVERSE .G THEN  THEN 8 THEN  THEN 8 THEN ! CLEAR u CLEAR t CLEAR  INVERSE -  BRIGHT  CLEAR  LLIST  CLEAR # CLEAR # LLIST  FOR  INVERSE %  AND @CODE  CLEAR !UVAL$  INVERSE & INVERSE . CLEAR n CLEAR # CLEAR f CLEAR #> GO SUB [Q] GO SUB [Q] FOR  FOR =  NEXT  INVERSE -  READ  FOR . GO SUB B FOR  INVERSE %  MERGE >!PI(=  DRAW @CODE "SVAL$ :Fa NEW 2|AT >=!oPEEK  GO SUB o+ CLS   PRINT <>*HaN#F#"cTAB x2[K]TAB 2fTAB  THEN 8x2[T]TAB 2AT TAB *FaPI GO SUB R" RANDOMIZE AT } NEW ![J]TAB (![S]TAB >"[H]TAB 2FN TAB x2 LINE TAB ▜2LN TAB  INVERSE !+VAL$ *Da GO SUB [OVAL$ PI GO SUB R PAUSE SQR AT $USR }PI>==▝ FORMAT |PIUSR } INVERSE PEEK 8 INVERSE PEEK (8<>=▝ INVERSE [G] CIRCLE <gy[E]Lg:+VAL$ o▝=0 INVERSE [G] INVERSE [G](8[B] GO SUB DO}2DTAB |2FTAB ! GO SUB [QVAL$  THEN , THEN PI GO SUB R PAUSE TAB $USR }PI>== FORMAT |PIUSR T}g INVERSE PEEK 8 INVERSE PEEK (8<>= INVERSE [G] CIRCLE <Wx[C]BW:-VAL$ g= INVERSE [G](8[A] GO SUB DG.|2▞TAB x2 AND TAB y2[B]TAB }2sTAB K!/VAL$ Z"NOT TAB !yPI(PI GO SUB Z=  IF  RESTORE >!)0 RANDOMIZE  GO SUB KSVAL$  RESTORE  INVERSE  LLIST  LLIST  OR /VAL$ NOT [J]TAB  GO SUB VAL  FOR NOT PEEK TAB  GO SUB VAL > COPY  FOR !/VAL$ CODE  GO SUB g# CLS  INVERSE  RESTORE  LLIST  CLEAR !/VAL$ ~ CLEAR INKEY$ CLEAR ACS w CLEAR ## NEXT  FOR CHR$ [C]TAB <>*SVAL$ > INVERSE *PATTR  INVERSE ^ INVERSE # INVERSE V INVERSE # GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]###=CHR$  CONTINUE TAB <>©©                                                    INT INT                                                                               INT INT                                                                              INT INT                                                                               INT INT                                                                               INT INT                                                                               INT INT                                                                               INT INT                                                                               INT >= STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP  STEP SGN                                                 Q NEXT  NEXT  NEXT  NEXT [S]INKEY$33& FLASH Q[L]33g[S]Q3 NEXT  NEXT 3[S]Q NEXT Y NEXT  NEXT INKEY$ NEXT [S]COS 3INKEY$Y3sATN {INKEY$YATN {QINKEY$INKEY$YY[S]Q▙COS 33sM[S]Q&COS 33s[S]Q& NEW  NEXT  NEXT  INK M[S]Q& NEW  NEXT  NEXT  INK [S]Q& NEW  NEXT  NEXT  INK [S]Q& INK  NEXT  NEXT  NEW [S]Q& INK  NEXT  NEXT  NEW [S]Q& INK  NEXT  NEXT  NEW [S]Q3 INK  NEXT  NEXT  NEW 3[S]Q333333[S]QCOS 3333s[S]QS NEXT  NEXT  NEXT  NEXT [T][S]Q[S]Q33[S]QM▙[S]INKEY$YQ NEXT  NEXT  NEXT  NEXT [S][S][S][S][S][S][S][S][S][S]QQQQQQQQQQQQ[S][S][S][S][S][S][S][S][S][S][S][S][S]QQQQQQQQQQQQQQ[S][S][S][S][S][S][S][S][S][S][S][S][S][S]QQQQQQQQQQQQQQ[S][S][S][S][S][S][S][S][S][S][S][S][S][S]QQQQQQQQQQQQQQ[S][S][S][S][S][S][S][S][S][S][S][S][S][S]QQQQQQQQQQQQQQ[S][S][S][S][S][S][S][S][S][S][S][S][S][S]QQQQQQQQQQQQQQ[S][S][S][S][S][S][S][S][S][S][S][S][S][S]QQQQQQQQQQQQ NEXT  NEXT  NEXT  NEXT COS 3333[S]Qs NEXT  NEXT  NEXT  NEW sCOS  FLASH 333s[L]COS  NEXT 333sCOS [S] BORDER  NEW L BORDER [S] BORDER  NEXT YCOS [S] BORDER  NEXT YSIN [S] BORDER INKEY$ INK  NEXT  NEXT  BORDER [S] BORDER INKEY$ NEXT  NEXT  NEXT INKEY$ BORDER [S]COS INKEY$ NEXT  NEXT  NEXT INKEY$ BORDER [S] NEXT L NEXT  NEXT  NEXT  NEW  NEXT [S]3s NEXT  NEXT  NEXT  NEXT 3s CAT INKEY$ NEXT  NEXT  NEXT INKEY$ BORDER  FLASH  NEXT ▙L NEXT  NEW  FLASH [S] BORDER ▙3& CAT [S] BORDER ▙3& CAT [S] BORDER ▙33 CAT [S] BORDER ▙33 CAT [S] BORDER ▙33[L][S]SIN ▙333& CAT [S] BORDER ▙333& CAT [S] BORDER [L]3333[L][S][T] CAT  CAT 3g CAT ▛[S]Q NEXT  NEXT  NEXT [T]G[S] BORDER  BORDER  CAT  CAT [T]G[S]Q CAT  FLASH  NEXT  NEXT  CAT  FLASH  BORDER  CAT  CAT  CAT  CAT [S]Q NEXT  NEXT  NEXT  NEXT [S][S][S][S][S][S]QQQQQQ[S][S][S][S][S][S]QQQQQQ[S][S][S][S][S][S][S]QQQQQQQ[S][S][S][S][S][S][S]QQQQQQ[S][S][S][S][S][S][S]QQQQQQQ[S][S][S][S][S][S][S][S]QQQQQQ[S][S][S][S][S][S][S]QQQQQQQ[S][S][S][S][S][S]QQQQQQ[S][S][S][S][S][S]QQQQQQ[S][S][S][S][S]QQQQQ[S][S][S][S]QQQ[S][S][S][S]QQQQQ[S][S][S][S][S]QQQQQ[S][S][S][S][S]QQQQQ[S][S][S][S][S]QQQQQ[S][S][S][S][S]QQQQQ[S][S][S][S][S]QQQQQ[S][S][S][S][S]QQQQQ[S][S][S][S][S]QQQQQ[S][S][S][S][S]QQQQQ[S][S][S][S][S]QQQQQ[S][S][S][S][S]QQQQQ[S][S][S][S]d010203040506070809101@@ABCDEFG @ A B C D E F G@@@A@B@C@D@E@F@G`@`A`B`C`D`E`F`G@ABCDEFG[Q]@[Q]A[Q]B[Q]@AB@ABCDEFG @ A B C D E F G@@@A@B@C@D@E@F@G`@`A`B`C`D`E`F`G@ABCDEFG[Q]@[Q]A[Q]B[Q]C[Q]D[Q]E[Q]F[Q]GUSR @USR AUSR BUSR CUSR DUSR EUSR FUSR G LPRINT @ LPRINT A LPRINT B LPRINT C LPRINT D LPRINT E LPRINT F LPRINT GHIJKLMNO H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`OHIJKLMNO[Q]H[Q]I[Q]J[Q]K[Q]L[Q]M[Q]N[Q]OUSR HUSR IUSR JUSR KUSR LUSR MUSR NUSR O LPRINT H LPRINT @@ABCDEFG @ A B C D E F G@@@A@B@C@D@E@F@G`@`A`B`C`D`E`F`G@ABCDEFG[Q]@[Q]A[Q]B[Q]C[Q]D[Q]E[Q]F[Q]GUSR @USR AUSR BUSR CUSR DUSR EUSR FUSR G LPRINT @ LPRINT A LPRINT B LPRINT C LPRINT D LPRINT E LPRINT F LPRINT GHIJKLMNO H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`OHIJKLMNO[Q]H[Q]I[Q]J[Q]K[Q]L[Q]M[Q]N[Q]OUSR HUSR IUSR JUSR KUSR LUSR MUSR NUSR O LPRINT H LPRINT I LPRINT J LPRINT K LPRINT L LPRINT M LPRINT N LPRINT OPQRSTUVW P Q R S T U V W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`WPQRSTUVW[Q]P[Q]Q[Q]R[Q]S[Q]T[Q]U[Q]V[Q]WUSR PUSR QUSR RUSR SUSR TUSR UUSR VUSR W LPRINT P LPRINT Q LPRINT R LPRINT S LPRINT T LPRINT U LPRINT V LPRINT W!@@ COPY 6 GO SUB VAL !XX COPY 6 GO SUB VAL <>[N]USR  GO SUB [Q] GO SUB [Q] GO SUB [Q]:[N]USR  THEN ?2[N]USR ~# RETURN ( DIM  RETURN @>= RETURN   >@ STEP /USR  GO TO  RESTORE  CLEAR  RESTORE  INVERSE  RESTORE  VERIFY 0o&)))SCREEN$  FORMAT  FOR oPEEK :[O]USR o&) RESTORE  INVERSE  LLIST :[N]USR 2_USR  CLEAR . INVERSE n INVERSE f INVERSE # INVERSE #w CLEAR -  REM %| THEN ? THEN ? THEN ? NEW  PLOT  Pg:[P]USR PI(w*[N]USR ,} RETURN  8.$| RETURN LN 8e"[N]USR  INVERSE  LLIST  CLEAR  LLIST  LLIST <>: GO TO  COPY GFN  NEW >= INPUT  FOR ~ NEW  RETURN _#V FOR N THEN !#F# INVERSE !b CLOSE # FOR x THEN ?G THEN ?0< PRINT  MERGE &h+ PRINT 2 FLASH USR ~2 OUT USR  INVERSE ~w INVERSE ~+ LET =  DIM  MOVE  LET &h FOR   CIRCLE <> NEXT  CLEAR  RESTORE  INVERSE  RESTORE  PRINT  OR  MERGE  RESTORE  STEP  AND FN  LLIST  MOVE STR$  LET  INVERSE  LLIST  CLEAR  LLIST  CLS <>:/STR$ _:d BEEP G:b BEEP SQR 88{ AND xG{[A]G RETURN 8{[A]2/STR$  THEN ? THEN ? THEN ? THEN ?G>2VSTR$ >? THEN @(>X2YSTR$ !VSTR$  STEP USR <>[A]? @ INVERSE !SGN STR$  GO SUB [d BEEP *b BEEP PI GO SUB R0! RESTORE  CAT  GO SUB R LLIST 8 FOR  INVERSE # STEP [F]STR$ !SGN STR$ NOT USR ' STEP FN STR$  CONTINUE  STEP FN STR$ d STEP FN STR$  STEP FN STR$ >0 INVERSE w<>>0]TPI GO SUB B8< PLOT  kb INVERSE w INVERSE #<>[A]G000@:lPIUSR :2CHR$ _:b BEEP G NEW < RETURN <x  VERIFY SQR 88{ AND xG{[A]G RETURN 8{[A]22CHR$  THEN ? THEN ? THEN ?G>2CHR$ >? THEN @(>X2CHR$ !CHR$  STEP USR <>[Q]? @[Q]          @!CHR$  STEP USR <>:lPIUSR  INVERSE !`CHR$ *b BEEP  GO SUB [d BEEP  STEP  RANDOMIZE [T] GO SUB R0! INVERSE # STEP [F]STR$ !`CHR$  STEP USR <>[Q]G000@! CIRCLE CHR$ 5USR >2 CIRCLE CHR$ :<=CHR$ <2<=CHR$  RETURN <8/CODE 2<=CHR$ : OR CHR$ <2 OR CHR$  RETURN <8CODE 2 OR CHR$ :NOT CHR$ <2NOT CHR$  RETURN 8CODE 2NOT CHR$ *NOT CHR$ * OR CHR$  INVERSE ! FORMAT CHR$  STEP [L]STR$ *<=CHR$  INVERSE ! OPEN #CHR$  STEP [L]STR$ ! CAT CHR$  STEP USR * POKE  CLOSE ##" POKE  CLOSE #<>VAL G00:00@:K GO SUB 2 INPUT NOT :E GO SUB 2 LIST NOT :9 GO SUB 2 LOAD NOT :? GO SUB 2 LET NOT  STEP @FN  STEP  THEN > COPY 2 GO TO NOT CODE 2 PLOT  NOT 2 PRINT NOT 2 POKE NOT 2 NEXT NOT 2 PAUSE NOT >[Q]2 GO SUB NOT  STEP `BIN >= OR  STEP  RUN NOT STR$  RANDOMIZE >2 THEN  STEP `BIN  STEP  RUN NOT  STEP  STEP NOT : PAUSE NOT  RETURN TAN 0b! CONTINUE  STEP  THEN  STEP ACS ▗! GO TO NOT :G MERGE PI( INVERSE "USR FN ~ INPUT  NEW w:F MERGE PI( INVERSE "USR FN ~ INPUT  NEW w:H MERGE PI( INVERSE "USR FN ~ INPUT  NEW w:E MERGE PI( INVERSE "USR FN ~ INPUT  NEW w:I MERGE PI(▙CODE 2 THEN  INVERSE !N COPY  INVERSE "USR FN : INPUT NOT 2K GO SUB  RETURN Z0>2u BEEP : LIST NOT 2E GO SUB : LOAD NOT 29 GO SUB : LET NOT 2? GO SUB  STEP = STEP  STEP TNOT [T]: GO TO NOT  RETURN  COPY >=! INPUT NOT PI(#=  DRAW ~ RETURN Z04: PAUSE NOT  VERIFY 2 PAUSE NOT <>[Q]ZZZZ GO SUB NOT ! PAUSE NOT  OR  MERGE  RESTORE PEEK 845 FOR x=!ABIN PI(=  DRAW  STEP &BIN  LLIST  MOVE STR$ # PAPER <> THEN ? THEN ? THEN ?▚#w_ RESTORE ###>? THEN C(>Xw LLIST NOT USR H?@&H?@[A]?@&[A]?@VAL ? @! DEF FN BIN  STEP USR : GO TO NOT  RETURN  >2[G] TO !@ STEP  LLIST  THEN : GO TO NOT  RETURN  >2[G] TO !$@ STEP  LLIST  THEN : GO TO NOT  RETURN  >2[G] TO !▖ STEP  LLIST  THEN : GO TO NOT PI >2[G] TO !$▖ STEP  LLIST  THEN : GO TO NOT PI PAUSE  OR BIN >2[G] TO !FN NOT  LLIST  THEN << R E P A R A C I O N >>DIRECCION TRANSMISION`FRENOS&`RUEDASEMPO@: MERGE 2% OR  INVERSE !ABS  OR  MERGE ! MERGE 2> OR  INVERSE ~▚w# NEXT :1▛PI>=:% OR 2 MERGE <> CLEAR  RESTORE !>= STEP  AND ! MERGE 6# CLS  MERGE  CLEAR !  MERGE CODE 2 LLIST <= CLEAR ~PI( CLEAR + INVERSE + POKE * OUT <=q  OUT : LLIST <=o INVERSE ~g[F]|8 RESTORE 2 LLIST <= CLEAR " OUT <= BRIGHT ! MERGE  MERGE  RESTORE  OR  MERGE  GO SUB D AND  STEP 7<= MOVE STR$  LLIST # INPUT  STEP  RESTORE SCREEN$  CLEAR  LLIST <> STEP <> STEP  AND ! COPY <= STEP  AND  STEP , AND  STEP  AND  INVERSE ! STOP  CLOSE # CLEAR ! POKE  CLOSE # INVERSE n INVERSE f CLEAR ^ CLEAR V INVERSE u INVERSE t INVERSE  CLEAR  DATA ! READ <= STEP  AND NOT , AND ! POKE  CLOSE # STOP  CLOSE #NOT _PI RESTORE  STEP @FN  STEP ▙FN >2[G] TO !  STEP  LLIST  THEN  LLIST NOT USR ! STOP  CLOSE # INVERSE ! POKE  CIRCLE  RESTORE  OR ^#V FOR u*.[U]< STEP  RANDOMIZE [T] INVERSE u*.[U] INVERSE uSTR$  LLIST ## INVERSE # INVERSE # INVERSE # OPEN #! MERGE 6# CLS  CLOSE # CLEAR ! MERGE !" LLIST <= CLEAR ~PI( CLEAR # INVERSE # INVERSE # PAUSE * OUT <=q  FLASH  INVERSE n INVERSE f GO SUB [ LLIST <=PI RESTORE  GO SUB R LLIST 8 OVER " LLIST <= CLEAR " OUT <= MERGE ! POKE  CIRCLE  MERGE  RESTORE  OR  MERGE  STEP  LINE  AND  MOVE STR$  LLIST ### LIST NOT  RESTORE SCREEN$  PRINT  AND 12:>= LET  PRINT GPI>P( AND  DRAW 28>= LET  RESTORE  POKE  CIRCLE PI GO SUB R}!Y>=PI(===  IF ~29>=#<>= GO SUB VAL  LLIST ~ RESTORE &o INVERSE !N>= STEP [L]STR$  INVERSE 6: LLIST #~ RESTORE &o INVERSE !Q>= STEP [L]STR$  INVERSE 6: LLIST #~&o INVERSE !T>= STEP [L]STR$ !7>=NOT USR  PRINT  AND 12:>= LET  PRINT GPI>P( AND  DRAW 28>= LET  RESTORE  MERGE PI GO SUB R}!Y>=PI(=  DRAW ~29>=#<>= GO SUB VAL !P>=Q>=6  GO SUB VAL  LLIST ~&o INVERSE !S>= STEP [F]STR$ !7>=NOT USR BIN >= FORMAT  READ VAL$ 2 CAT ©] BORDER [L]PIQ9 BORDER  CLOSE #SI PAUSE USR  REM @ LET [D] SAVE ?( OUT Sp TO Y5@[I]C[K]@CLASIFICACION DEL RALLYE@@CLASIFICACION DEL TRAMO@@CLASIFICACION DEL MUNDIAL@PG1 SAINZ-MOYA          02:25:48@GSAINZ=MOYA          CERICSSON=BILLSTAM   CKANKKUNEN=PIIRONEN  CBIASION=SIVIERO     CAURIOL=OCCELI       CCERRATO=CERRI       CMIKKOLA=GEISTDORFER CSABY=FAUCHILLE      CSALONEN=SILANDER    :H[C]G THEN ' THEN 'G: DEF FN  GO SUB D AND _ THEN #!▛<=^#V FOR : DEF FN PI(  RETURN 8> FOR !Q GO SUB O~ FOR O RESTORE  STEP <>[T]d STEP  RANDOMIZE [T] MOVE  INVERSE ! PLOT   CLOSE # OR  RESTORE !3 DATA XN GO SUB _ NEW ▝O LLIST  RESTORE  STEP <>[T]d STEP  RANDOMIZE [T] MOVE  MERGE  INVERSE u INVERSE t LLIST  INVERSE # INVERSE #STR$  MOVE <>!3 DATA  GO SUB _ NEW w# SAVE <>CODE 2 BEEP 2 BEEP 2 THEN  STEP @FN : DEF FN  GO SUB D AND 72u MERGE : DEF FN  GO SUB D AND 32© MERGE :H[C]! INK  MERGE =  DRAW Z MERGE  GO SUB VAL :H[C]G THEN ' THEN '[A] THEN ' THEN '_!FN [I]: DEF FN = THEN '_: DEF FN  RETURN  COPY  " THEN ?8 IF (_ GO SUB _ THEN G{( LOAD x GO SUB D AND 2 DEF FN  RESTORE !; VERIFY =  DRAW SIN  MERGE  GO SUB VAL  LLIST #~2 INVERSE ! MERGE  STEP [L]STR$ !J MERGE  STEP USR  STEP % THEN >2 THEN  STEP  LINE  LINE  STEP  GO SUB  COPY  STEP ACS ▗! BEEP : THEN _:G MERGE PI(5 INVERSE !N COPY  INVERSE "USR FN :F MERGE PI(4 INVERSE !N COPY  INVERSE "USR FN :H MERGE PI( INVERSE !N COPY  INVERSE "USR FN : THEN =2 THEN  PAUSE [J] LINE >2 THEN :E MERGE PI( INVERSE !N COPY  INVERSE "USR FN : THEN <2 THEN  RETURN 8>2 THEN :I MERGE PI(▙ INVERSE !N COPY  INVERSE "USR FN CODE 2 THEN <> STEP ABS  THEN ! BEEP ▝ VERIFY  STEP  BRIGHT  LINE ! BEEP  IF  VERIFY  MERGE  RETURN  COPY (PEEK   RUN  LLIST  FOR NOT USR  MOVE ~PI PAUSE  RETURN  LINE : THEN PI>(>w OVER 6 PAPER !@+|ASN   CLS <>!- MERGE  STEP . THEN !3 MERGE  STEP . THEN !9 MERGE  STEP . THEN !? MERGE NOT . THEN !' MERGE  STEP . THEN !! MERGE ~2/ THEN #~2N THEN #~2a THEN #~2G THEN #^#V FOR  OR  INVERSE !oPEEK  INVERSE  INVERSE  FOR  INVERSE n INVERSE f FOR  GO SUB VAL STR$ :N THEN <2N THEN  INK <>: BEEP  THEN 'O!P BEEP : BEEP O~2v BEEP : BEEP O THEN '▝ THEN ' THEN 'O! BEEP : BEEP  THEN 'O:v BEEP ▚2v BEEP  RETURN :q BEEP 8 VERIFY 2q BEEP 2r BEEP #~2w BEEP 2x BEEP <>: THEN  RETURN  2[G] TO ! STEP  LLIST  THEN : THEN PI >2[G] TO !H INVERSE ![B] TO  INVERSE u INVERSE t INVERSE 6} STEP k TO C INVERSE 4 INVERSE 4 INVERSE 6~ STEP k TO  LET  INVERSE 4 INVERSE 4 INVERSE 6© STEP k TO B| AND g INVERSE t INVERSE u INVERSE 6 STEP k TO } VERIFY  INVERSE w INVERSE 6▝ STEP k TO  OVER | AND g INVERSE u INVERSE t INVERSE 6▘ STEP k TO C INVERSE 4 INVERSE 4 INVERSE 6 STEP k TO  LET  INVERSE 4 INVERSE 4 INVERSE 6▗ STEP k TO CODE 2[G] TO <> INVERSE  RESTORE  RESTORE  OR  MERGE ![D] TO :[G] TO PI6B(6:[E] TO  AND 2[E] TO ![B] TO  STEP USR  MOVE STR$  LLIST  INVERSE  LLIST <>EA@1COS _ STEP wPI STEP [T]PI!N COPY "USR FN !| COPY  STEP USR  STEP  RESTORE SCREEN$  STEP ATTR > STEP *ATTR  LINE  OPEN # TO > STEP *ATTR ('> STEP *ATTR  TO : DEF FN > STEP *ATTR  LINE <> DEF FN  STEP >2H[C]! MERGE 6# CLS  STEP [B]<> STEP  OUT :H[C]G THEN ' THEN '[A] THEN ' THEN '_!T[I]" DEF FN : DEF FN O: DEF FN G* DEF FN x= THEN '_^#V MERGE  CLEAR  LLIST  OR > COPY 2 DEF FN  CLEAR  RESTORE  STEP @FN ! DRAW [I] STEP USR >2[G] TO !  STEP  LLIST  THEN ! STEP  LLIST  THEN  STEP  RESTORE SCREEN$  CLEAR  LLIST  STEP ATTR > STEP *ATTR (> STEP *ATTR (,> STEP *ATTR   STEP  DEF FN SGN > STEP *ATTR  LINE [N] TO  INK  CLEAR  RESTORE >2 DEF FN  STEP SCREEN$ ▗CODE 2 DEF FN  CLEAR  LLIST CODE 21▛[M] STEP SCREEN$ ▗:1▛PI(. STEP ▛STR$ PI # RANDOMIZE ! DEF FN  MERGE  GO SUB VAL D! MERGE ~6#PEEK 05 RANDOMIZE 3 STEP 2▛:1▛PI * STEP  AND  OR : DEF FN  RETURN  : DEF FN  RETURN ( STEP  INK CHR$ STR$ x2 DEF FN CHR$  STEP >2 DEF FN y2 DEF FN CHR$  STEP  STEP & OR CODE 21▛ STEP Q OR :H[C]< RETURN  ERASE B FORMAT 2H[C] STEP  OUT  STEP <> CAT NOT  CONTINUE  TO  CLEAR  RESTORE  STEP  AND ! COPY <= STEP  AND  STEP , AND  STEP  AND ! READ <= STEP  AND  STEP , AND  CLEAR  LLIST NOT Q OR !L[J] STEP USR !N COPY "USR FN  STEP  RESTORE SCREEN$  STEP ATTR > STEP *ATTR >=> STEP *ATTR (> STEP *ATTR (%> STEP *ATTR ($ MOVE 1COS _NOT  LINE _ INVERSE !mPI!SQR  DEF FN ^#V# INVERSE ~ INVERSE # POKE <> INVERSE !rPI CONTINUE !NOT [J]"EXP  DEF FN !SQR  DEF FN  OR  RESTORE *EXP  DEF FN  STEP USR "EXP  DEF FN  STEP  RESTORE SCREEN$ !N COPY "USR FN  LLIST ^#V#STR$  READ *EXP  DEF FN NOT USR  ERASE ▗INT ▗CHR$ ▗ LINE ▗ PAPER ▗ BORDER ▗ LOAD ▗ STEP @FN !  STEP  LLIST  THEN !RND CAT  STEP USR CODE 2[D] CAT >2▙ CAT  INVERSE ![R]{ OR  STEP  RESTORE SCREEN$ !EXP  CAT PEEK (# IF  LIST x= INVERSE w>/ RETURN :8 AND  INVERSE #!▙ CAT 44###w+++ RESTORE  STEP USR !j COPY "BIN FN  LLIST STR$  OR  INVERSE ![R]{! INVERSE ^ INVERSE # SAVE } NEW  INVERSE PEEK  B| NEW  INVERSE PEEK  : INVERSE ![R]{ INVERSE ~ RETURN 0/2H[C] CLEAR  RESTORE  CLEAR ! MERGE  OR  INVERSE ~ INVERSE N▝ CLEAR w INVERSE # INVERSE # CLEAR #STR$  BORDER  CLEAR  LLIST  STEP [B]<> STEP  OUT NOT [N] TO ![E] CAT  STEP USR  STEP  RESTORE SCREEN$ NOT [N] TO `A@xCCLAVE ERRONEA@DIGO DE ACCESO@<!"#$  STEP @FN !  STEP  LLIST  THEN :H[C]2) PAUSE  INVERSE !* PAUSE  MERGE  OR  INVERSE w:.[U] INVERSE w INVERSE # INVERSE #STR$  CONTINUE  INVERSE !) PAUSE ! INVERSE ^ INVERSE # SAVE } NEW  INVERSE w| NEW  INVERSE w INVERSE !) PAUSE  INVERSE ~ AND 0 RETURN :8 AND  INVERSE w INVERSE # INPUT !RND CAT  STEP USR !& PAUSE  STEP USR NOT  RESTORE SCREEN$  STEP @FN ! MERGE : MERGE PEEK #8L RUN !S DATA  STEP USR  OR x NEW  INPUT 2POINT  FORMAT !  OR  RESTORE  MERGE :POINT  FORMAT 2[G] TO  STEP  LLIST  THEN  MOVE  LLIST | AND g,,N COPY  GO SUB CUSR FN STR$  OVER ! FORMAT  STEP  THEN STR$ BIN  STEP  RESTORE SCREEN$ NOT  OPEN # TO !; DATA  STEP USR  STEP  RESTORE SCREEN$ NOT  OPEN # TO t AND  AND  VERIFY  NEW  AND t0v4f4`fv4ff44dBIN  PLOT  vb`tf44f`tff4vf4ff4ff44ff6f4`f0fF0||`00`pppppp4ff~ffv33>33v3```3t63336tw14<41ww14440x3``g33337333??ff4s36463sx00013wcwwwccccssggcc6ccc6v33600x6ccmf3v33663s3037-33333333333&3;73wwwwww333wcF3w??:<<= LPRINT  MOVE s NEXT S RETURN ATN  CAT  CAT  CAT ATN ?<<<; READ s NEXT  NEXT  NEXT sUSR USR USR USR USR  LINE ;<<<SGN  LLIST r NEXT  NEXT  NEXT  NEXT  RETURN  RUN  CAT USR PEEK  COPY  RETURN  RUN  CAT  CAT USR PEEK  COPY ?<<<? BORDER  LET  LET  LET  LET  LET  CLEAR  LIST  LIST p LIST  POKE  LIST  CLS  COPY  LOAD  PRINT  NEXT  DEF FN USR STR$  OPEN # SAVE SGN | DRAW  SAVE  LIST =<<:? CLS  NEXT  NEXT S LPRINT  COPY  CAT  CAT  CAT  CAT IN >=<< THEN  READ  NEXT  NEXT  NEXT  OUT USR  CAT ATN  COPY PEEK <</ PRINT  LIST  NEXT s LLIST  RUN  CAT ATN  RETURN  RUN  CAT  CAT  RUN  RETURN ©<<<< PRINT  LET  LET  LET  RUN  PLOT   LIST  LIST  LIST  CLEAR  CLS  NEXT  NEXT  NEXT  NEXT  RUN  CAT  CAT  CAT <= LPRINT  BRIGHT [M]l SAVE ;t CONTINUE  FORMAT  LPRINT USR  LPRINT  COPY SCREEN$  SAVE  DRAW . LPRINT  LPRINT USR  LPRINT USR  LPRINT USR  LPRINT  LPRINT USR  LPRINT  FORMAT  CONTINUE t; MERGE  COPY . BRIGHT  SAVE  DRAW [M][I] LIST  LPRINT USR USR USR  RETURN  RETURN ?9USR USR USR USR USR USR USR USR USR USR  LPRINT  LIST [I][M] DRAW  RETURN  RETURN 9?< LIST  LIST  LIST < LIST < DRAW < DRAW < LIST  LIST  LIST <USR  LIST <<< LIST USR >USR USR USR USR USR USR  DRAW <<<= LIST << LIST < DRAW << LIST << LIST << LIST  LIST ▖&P h h     9<< RALLYE  DE LOS MIL LAGOS >>TRAMO:0  PASADA:0  DIST:00 KMS(CARACTERISTICAS DEL CIRCUITO:8CASFALTO MOJADO"PRUEDAS[A]FSUSPENS▖& OUT P [K] OVER p OUT p OUT ( OUT ( OUT 9<< RALLYE  DE LOS MIL LAGOS >>TRAMO:0  PASADA:0  DIST:00 KMS(CARACTERISTICAS DEL CIRCUITO:8CASFALTO MOJADO"PRUEDAS[A]FSUSPENSION@   MONTECARLO     PORTUGAL   LA  ACROPOLIS LOS MIL LAGOS    SAN REMO      CATALUWA  L    R A C     ASFALTO SECO ASFALTO MOJADO TIERRA ROTA  TIERRA SUELTA    NIEVE      `   SLICK DURO  @`  SLICK BLANDO @`     RAYADO    @`   TACOS DUROS @`  TACOS BLANDOS@`     CLAVOS    @ COPY [Q]G DURA @[Q]GBLANDA@ COPY iPHD0VAL FRENOS ,VAL   ;@VAL DIRECCION 2VAL   ;@VAL TRANSMISION 6VAL   ;@VAL PINCHAZO@8VAL   ;@VAL                @ !"#$%&'()*+,-./3689©©~}{xurnje_ZTMG?81)! SAVE  LOAD  BORDER  OUT  BEEP  CAT >=USR EXP COS AT INKEY$[R][L][G][C]▙▛▖▘▝▝▝▘▖▛▙[C][G][L][R]INKEY$AT COS EXP STR$ >= CAT  BEEP  OUT  BORDER  LOAD  SAVE !)18@GMTZ_ejnrux{}~©!)18@GMTZ_ejnrux{}~©©©~}{xurnje_ZTMG@81)! SAVE  LOAD  BORDER  OUT  BEEP  CAT >=STR$ EXP COS AT INKEY$[R][L][G][C]▙▛▖▘▝▝▝▘▖▛▙[C][G][L][R]INKEY$AT COS EXP STR$ >= CAT  BEEP  OUT  BORDER  LOAD  SAVE  &/;Py POKE %$$&:;;;555543: :  98%&7@77;:;;!:7767;!:543;  %&%&:;%&: : 543  98<=55543%$&  #!%&,''(-00).00*/00+:<=!7676#543 #>&#21:::?;:;: 55554398#!<=;;":ABBC7@77:"/;   COPY  LIST ?USR  SAVE  SAVE ? SAVE  LPRINT  LPRINT VAL USR  L READ ▗BIN @0[R]▜ READ <=88<=<= COPY  COPY  NEXT  COPY STR$ /< FORMAT # GO TO  LIST  CIRCLE 0 LET  IF <= COPY  CLS  CAT  LET 0▜STR$ <NOT ▝pUSR =SGN   LIST ▘ OUT  COPY  COPY  SAVE © LPRINT ?USR USR  LIST © COPY  COPY  COPY 3 COPY  TO  DRAW  COPY N SAVE  COPY D LIST ©  READ / FORMAT  LET  BRIGHT   LIST  SAVE STR$  SAVE _ ▝ LIST ?@ FORMAT STR$ USR  SAVE  STOP  CLEAR USR ?# RETURN ▖O0 DRAW L"  DRAW  CONTINUE @ CAT USR 1▜D@ LPRINT CHR$  STOP ▜@ NEXT 1 COPY  CLS IN  COPY  COPY  DRAW  DRAW  COPY [S] SAVE  COPY Q LIST ©! LPRINT ?uUSR  LPRINT ?@#L LIST USR  TO  LPRINT 0 LIST "FN USR 3P/ STOP  POKE #,0P BRIGHT USR CHR$ LN  LPRINT E BRIGHT  LIST VAL  DRAW INT  COPY  COPY  COPY  COPY  COPY  COPY USR  MERGE UUS LINE ATTR  MERGE S LINE @?+ CLOSE #FN IN <>U COPY  THEN  ERASE SCREEN$  NEXT NOT STR$ U LPRINT  FOR CHR$ ATTR  TO  READ  OR W[G]s LINE ATTR ABS s OR W?3 LINE ATTR ^COS  OR W©COS  LINE ATTR qCOS  OR WUCOS  LINE ATTR qCOS  OR W_COS  LINE ATTR ©COS  OR WVAL$ COS CHR$ ATTR [L]cSTR$ Y DEF FN  READ  ERASE RND LLIST NOT <>U NEXT  THEN  CLOSE # COPY >=©+ MERGE S LINE ATTR USR  COPY  COPY  COPY  COPY  COPY  COPY  LIST USR 0 FORMAT [Q]0<> PLOT  VAL  FORMAT P0USR [Q]VAL  VERIFY  RANDOMIZE 0USR [Q]VAL  FORMAT 0<> PLOT  VAL  FORMAT P0USR  VAL  VERIFY  RANDOMIZE 0USR VAL  FORMAT 0<> PLOT  VAL  FORMAT 0>=SIN VAL  CLOSE #q0>=SIN VAL  CLOSE #q0>=SIN VAL  CLOSE #q0>=SIN VAL  CLOSE #q0>=SIN VAL  CLOSE #q0>=SIN VAL  CLOSE #q0>=SIN VAL  CLOSE #q0<> PAUSE VAL  ERASE 0NOT VAL  ERASE 0STR$  LIST 0USR 0 COPY  COPY  LIST © COPY  RETURN [F]UUPEEK SCREEN$ TAB ▜ COPY  CLEAR FN ACS ESCREEN$ ACS  MERGE FN ACS ESCREEN$ ACS  STEP SCREEN$ [C]UIN  COPY  CLEAR IN  COPY  DIM [O]uPEEK i[P] BORDER  PRINT CODE  BORDER  DIM [P] BORDER  MERGE CODE  BORDER  DIM [H] BORDER  MERGE CODE  BORDER POINT [F] COPY USCREEN$ SCREEN$ POINT © COPY  RETURN  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LPRINT  COPY PEEK  LIST  COPY  COPY  COPY  RETURN  COPY  CLEAR @< COPY  COPY  COPY  LIST  COPY  RETURN [A] COPY  COPY  COPY USR ?' COPY lUSR  COPY  COPY  COPY ▝ COPY  COPY  RETURN  LIST  COPY  COPY  DRAW © LIST  COPY  COPY USR 88@ TO  COPY  RETURN  LIST  USR < COPY  LIST  NEXT @USR IN  DRAW  COPY © SAVE pp RETURN  COPY  DRAW a COPY oVAL  DRAW  COPY  COPY  RETURN  VERIFY USR  LIST  COPY  COPY  LOAD  OUT  RETURN  OUT USR  LPRINT  COPY  COPY  LET  OUT  CLEAR [G] LPRINT  COPY  DRAW ? SAVE  LPRINT  ? COPY  READ  COPY  COPY @ LPRINT  LIST © LPRINT  COPY  COPY 0 BORDER [O] LIST  COPY  COPY  COPY  THEN X SAVE ? COPY  COPY  COPY <= OUT USR  DRAW  COPY  COPY  COPY  COPY ©@ RETURN  COPY  COPY  COPY  COPY  COPY USR  COPY  COPY  COPY  COPY  COPY  COPY  LPRINT ? COPY  COPY  COPY  COPY  COPY  COPY  SAVE © COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  SAVE ? COPY USR  COPY  COPY  COPY  LPRINT  COPY ~ COPY  COPY  COPY USR  SAVE  COPY  COPY  DRAW  RETURN  COPY  COPY  LIST  COPY  POKE 8 COPY  COPY  LPRINT  COPY USR x COPY  COPY USR ? COPY  POKE  COPY  COPY  DRAW  GO TO  COPY  COPY [I] COPY  RETURN h COPY  DRAW  FORMAT  COPY  SAVE  >p COPY  LIST B DRAW  LPRINT  COPY  LPRINT  COPY USR ?{ CLOSE # COPY ?? COPY  LET  CIRCLE  COPY  COPY  COPY  COPY  INPUT  RETURN  COPY  COPY  COPY  OUT [Q] DRAW  COPY  COPY  COPY IN @ SAVE  COPY  COPY  COPY & SAVE ? COPY  COPY  RETURN  MOVE  SAVE © COPY  COPY  CLEAR AT  LIST  COPY  COPY  COPY  CLS | LIST  COPY  COPY  READ T LIST  COPY  COPY @x LIST  COPY  COPY  LLIST ▙0 SAVE ▜ COPY  COPY © SAVE  DRAW  CAT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  DRAW  COPY  COPY  COPY  COPY  LPRINT ? COPY  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  DRAW  COPY  COPY  SAVE  COPY  COPY  LIST  COPY  COPY  LPRINT ? COPY  COPY USR © COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  DRAW  COPY  COPY  SAVE  COPY  COPY  LIST  COPY  COPY  LPRINT ? COPY  COPY USR © COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  DRAW  COPY  COPY  DRAW  COPY  COPY  DRAW  COPY  COPY  RETURN ? COPY  COPY  COPY  COPY  COPY  COPY PCCONTINUA PRACTICANDO@XCCAMPEON DEL MUNDO@ COPY O COPY VAL  RETURN  COPY  POKE  DRAW  COPY  READ  SAVE © PRINT  DRAW ©FN  LIST  COPY  LPRINT © LPRINT ©M LIST ? THEN USR  SAVE pUSR  SAVE  READ  LIST ?STR$ USR  SAVE  SAVE ? LIST  DRAW © RETURN  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LPRINT  COPY  COPY  COPY D COPY  COPY  COPY ? COPY  COPY [Q]USR  COPY  LIST ? DRAW  COPY @USR  COPY  COPY  LIST  COPY [Q] LIST  LIST  COPY >= COPY @ LIST USR ? COPY USR  COPY SGN  LIST ? COPY >=0USR  LIST ? COPY USR USR 8 LIST ? COPY  NEXT  LIST ? DRAW ?USR ▟ CLEAR  LOAD  RUN  OUT  DRAW 0 pUSR ?NOT STR$  RUN p LIST USR  STEP SIN  COPY  PLOT   NEXT l LIST USR O LET UUS DRAW @ LIST VAL l RETURN IN USR  LIST  COPY  LIST  COPY  COPY  DRAW  COPY  COPY  DRAW ? COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  DRAW  COPY  COPY  COPY  COPY  READ  RETURN  COPY  LPRINT  COPY  COPY  DRAW  COPY  LIST  COPY  COPY  COPY © LIST ? COPY ▘ RETURN ? COPY  COPY USR  COPY  RETURN USR  DRAW  COPY  COPY  DRAW 0 LIST ? COPY 0 LPRINT ©0USR <USR >LN USR  NEXT  RUN SQR  DRAW  OR @USR k<= BORDER  COPY  COPY  LPRINT ? DRAW  COPY  SAVE c LIST © CIRCLE  COPY  RUN  COPY  LPRINT l DRAW  COPY p GO TO  SAVE p RETURN  COPY  NEXT  SAVE USR  COPY  SAVE  COPY  CLS  COPY  COPY  COPY  COPY  LPRINT ? COPY X COPY  COPY  COPY  SAVE  COPY  COPY  LIST  COPY  COPY  COPY  DRAW  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  DRAW ? COPY  COPY  COPY USR  RETURN  COPY  COPY  COPY  COPY  LIST  DRAW  COPY  COPY  COPY  COPY  DRAW  SAVE  COPY  COPY ©USR  LIST  COPY  COPY IN  COPY  LIST ? COPY  FORMAT ? COPY USR  LPRINT  COPY © COPY  COPY  LPRINT  LIST  COPY  COPY  LIST  LIST  COPY | COPY  SAVE  SAVE  COPY VAL  RETURN  SAVE  COPY C DRAW  COPY ?[I] RETURN ©STR$  COPY ? LPRINT @ COPY USR  SAVE   COPY  LPRINT 6? LPRINT  COPY  LIST  FLASH  COPY  COPY  LIST  COPY  SAVE i COPY  LPRINT  COPY  DRAW  CONTINUE  COPY  DRAW AT  COPY  RETURN  INPUT  COPY  LPRINT  COPY  RETURN  COPY  LIST  COPY  COPY  COPY  COPY  SAVE  COPY  DRAW  COPY  SAVE ©[Q] DRAW @ SAVE   SAVE  DRAW © SAVE ? LIST   LPRINT  LIST  OUT  LIST © LPRINT © AND x OR 0▗Lw DRAW [Q] DRAW p SAVE  SAVE  DRAW © SAVE ? LIST ? LPRINT © LIST © SAVE © LIST  COPY  LLIST  COPY  LPRINT ? LIST ? SAVE © CLEAR  COPY  DRAW  COPY  SAVE ©[Q] DRAW P SAVE  SAVE  LIST  COPY  LPRINT © LIST ?@ SAVE   SAVE  LIST _ LPRINT ©USR   LIST ▙`[A] LOAD ? COPY @ COPY g=!CHR$ USR !USR  LIST  LPRINT USR  LIST @ SAVE  LIST [Q] LPRINT 0STR$ 0NOT  CAT  LLIST 0▜ LPRINT P LIST  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY USR  COPY  COPY  COPY  COPY  COPY  LPRINT  COPY  COPY  COPY  COPY  DRAW © COPY  COPY  COPY  LPRINT ? COPY  COPY  DRAW  COPY  COPY  LPRINT  COPY  COPY  COPY  SAVE  COPY USR  RETURN ? DRAW  COPY  SAVE  COPY  LIST © COPY  LIST  COPY  COPY  LIST  COPY  COPY  SAVE  COPY  COPY  COPY  DRAW  COPY  COPY  COPY  COPY  RETURN ? COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  DRAW ? SAVE  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  SAVE  DRAW ? COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LPRINT © COPY  COPY  COPY  COPY  COPY ? COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  DRAW  COPY  SAVE ? LIST © LPRINT ? LIST © SAVE  COPY  COPY USR  COPY  COPY  COPY  COPY  COPY  COPY  DRAW  COPY  COPY  COPY  COPY  LPRINT ? COPY  COPY  COPY  COPY  COPY  COPY  COPY V GO SUB ^ BORDER  NEW  LINE  DATA  CLOSE # OUT v LLIST * LOAD d LET N LIST  FORMAT  FOR ( INPUT [E] DIM  LPRINT  STOP  PLOT   REM . INVERSE P INVERSE r INVERSE  OVER h DATA [E] INVERSE  CONTINUE  DEF FN  CONTINUE  DIM R DIM  POKE  BRIGHT  GO SUB <Z[B] BEEP [M] BEEP Z[T] BEEP LEN  BEEP ZLN  BEEP >= BEEP Z CAT  BEEP  FLASH  BEEP  COPY  COPY  COPY  COPY  DRAW ? COPY  COPY @ LIST  COPY  COPY VAL  LPRINT  LPRINT  FORMAT  LPRINT USR USR ?? DRAW  DRAW <? DRAW |? DRAW USR  DRAW  LPRINT  LPRINT © RETURN P LPRINT   LPRINT  LPRINT  P LPRINT   LPRINT  LPRINT @ FORMAT  LPRINT @ LPRINT  LPRINT @ FORMAT  LPRINT  LPRINT  LPRINT  COPY  COPY  FORMAT  LPRINT  COPY  COPY USR  LPRINT 0 LPRINT  LOAD  LOAD  FORMAT  LPRINT < LPRINT <0 LPRINT  COPY  COPY USR  LIST  DRAW  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY © COPY  COPY  SAVE ? COPY  SAVE  LIST  LIST  LIST  LIST  LIST  LIST  LIST  SAVE  DRAW  COPY  LPRINT  COPY  RETURN  COPY  COPY  COPY  DRAW  DRAW  COPY  LPRINT  SAVE  COPY UJ SAVE  COPY JSCREEN$ ▛ SAVE ©_ COPY  FOR  SAVE ©/ COPY  ERASE  SAVE ©O COPY  LINE  SAVE ©P( SAVE ©P* SAVE © SAVE ©  LPRINT ?USR ▗USR  LPRINT 13USR  LPRINT < POKE  LIST ?IN  COPY  PAUSE  SAVE ©? COPY  RUN  SAVE ©IN  COPY  PAUSE  SAVE ©? COPY  RUN  DRAW ©IN  COPY  PAUSE  DRAW  COPY ? COPY  PLOT   DRAW  COPY IN  COPY  PAUSE  DRAW  COPY [P] COPY  PLOT   DRAW  COPY  CAT  COPY  AND  DRAW  COPY  RETURN  COPY NOT  RETURN  COPY c COPY [I] COPY  COPY  COPY  LPRINT  COPY  COPY  COPY  LPRINT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  DRAW  COPY  COPY  SAVE  COPY  COPY  SAVE  COPY  COPY  SAVE  COPY  COPY  SAVE © COPY  SAVE ? COPY  DRAW  COPY  RETURN  COPY  COPY  COPY  COPY  COPY  COPY USR  COPY  COPY  LPRINT  COPY  COPY  LIST © COPY  SAVE ? COPY  DRAW  COPY  RETURN  COPY  COPY  COPY  COPY  COPY  COPY USR  COPY  COPY  LPRINT  COPY  COPY  LIST  COPY  COPY  COPY  COPY  DRAW ? SAVE  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  SAVE  DRAW ?hC010203040506070809101@SCREEN$  COPY  DRAW  COPY  LIST ? LIST ? COPY  LPRINT  RETURN UP{ COPY  CLS  FORMAT xU@ DRAW z FORMAT  RETURN  COPY <= POKE  COPY <= POKE p© RUN  COPY  CLEAR  COPY G POKE 9_QUU BORDER  POKE  COPY WuT COPY <= POKE   COPY SCREEN$ FN @4SCREEN$ SCREEN$ FN USR  FORMAT UP COPY  SAVE K COPY  RUN  FORMAT pATTR  LPRINT y LPRINT  RETURN  LOAD  CAT  SAVE : COPY  CAT  SAVE b? LOAD  COPY IN  COPY  SAVE x COPY  CLS SCREEN$ [Q]/ SAVE  COPY SCREEN$ SCREEN$ ATTR  COPY  SAVE © COPY ? COPY  COPY  DRAW NOT USR  DRAW < COPY USR  COPY  DRAW USR  LIST > COPY  SAVE  COPY  DRAW H FORMAT `P RETURN © POKE  FORMAT z MOVE @© LIST ?<= POKE x COPY <= POKE A? CLEAR U© CLEAR G POKE x} COPY UUP POKE  COPY  MERGE UE MERGE  POKE @? COPY  COPY  DRAW USR  DRAW <NOT USR  DRAW ? LIST  COPY  COPY  SAVE  COPY  DRAW x FORMAT @FN  COPY  RETURN  FORMAT q CONTINUE IN [Q]? CAT  SAVE z COPY  SAVE IN  COPY SCREEN$ INT PEEK  SAVE x RETURN  COPY [Q]* SAVE  COPY  REM SCREEN$ /▙/ SAVE _ RANDOMIZE [P] COPY ? COPY U/USR <USR  LIST ? LIST ? LIST ? COPY  SAVE  COPY  DRAW ` FORMAT T COPY  COPY  FORMAT b LIST USR  COPY  BRIGHT ©<= POKE x COPY G POKE  RETURN ? COPY UU]G POKE x CLEAR  COPY  MERGE }@ POKE ; COPY  PRINT  LIST  POKE _ SAVE ?:ATTR  DRAW 8* LIST 5`UP MERGE /HINT ATTR  COPY  COPY  FORMAT A CLS CHR$  COPY AT  COPY  CAT  SAVE z© COPY  COPY  LOAD  COPY  SAVE IN  INPUT SCREEN$ SCREEN$ SCREEN$  SAVE s RETURN IN  RETURN SCREEN$ / SAVE x SAVE A LLIST [P][J][P][P][J] COPY U LIST  DRAW ?NOT  COPY  SAVE ? COPY USR  COPY  LIST  RETURN SCREEN$ FN  DRAW 8 CLEAR UW COPY  COPY  COPY  MERGE  COPY  FLASH  COPY <= POKE x© COPY  COPY  RUN  COPY G POKE UUTUg POKE c}_ CLEAR  MERGE @g POKE yUW POKE G▝[I][J][J][J] SAVE 8 DRAW y IF SCREEN$  CLS  REM ? SAVE  COPY ATTR  COPY  COPY  COPY  CAT  SAVE z© CLS  COPY  CLS  COPY  SAVE [P]▛VAL$ *SCREEN$ CODE  SAVE C RETURN ATTR  RETURN SCREEN$ > LOAD  SAVE { COPY  CLS  SAVE _ RANDOMIZE [J][J][O][J] POKE _ RANDOMIZE [P][P][J][J][J] POKE @SCREEN$ SCREEN$ SCREEN$ L<038STR$  POKE Lp0<= POKE  POKE O3 AND  POKE 0 POKE 0 SAVE @ RETURN  SAVE O SAVE  COPY  COPY  RETURN ? TO  SAVE L38NOT  SAVE L DRAW  DRAW  READ  CAT  SAVE *SCREEN$ CODE  SAVE   SAVE   SAVE 8  POKE @ RETURN  POKE  SAVE ?<> POKE O NEXT 3???<= POKE O NEXT 0 NEXT © COPY  RETURN  POKE 20 POKE 0 POKE p0 SAVE @ RETURN USR `ffg SAVE 1NOT  SAVE  SAVE O NEXT 0 FLASH < SAVE > SAVE |  SAVE <  SAVE `  POKE © COPY  POKE ??0?0 POKE O CLEAR UUU COPY  DEF FN  POKE @3 DRAW 0 CAT 0 POKE |0 POKE x0 POKE y0 POKE A3 AND  SAVE © COPY  SAVE L3103? DEF FN  SAVE @SCREEN$ SCREEN$ SCREEN$  SAVE 1STR$  SAVE y" LIST O SAVE p  SAVE s  SAVE # CAT  POKE U POKE L3103? TO  POKE  NEXT  COPY  COPY  COPY ?<> POKE ?NOT  POKE s3 AND  POKE a0 POKE g0 POKE 3 AND  SAVE  SAVE L??03>= SAVE  LIST ?NOT  SAVE O NEXT hNOT ?<= SAVE g# CAT  SAVE C  SAVE N  SAVE " LIST O POKE 0 LPRINT  LINE AT USR  LIST eUUUUSy DATA  DEF FN [Q] COPY  RETURN e7 COPY  COPY  DRAW  COPY USR < COPY  COPY  NEXT © NEXT  DEF FN [Q] COPY  RETURN eA3[A]9 RETURN S© BORDER  LINE AT  LET  DRAW qUSR  LET UgpUSR USR  LIST A RETURN @ OVER USR 4 SAVE ?0 BORDER © COPY p MERGE <USR © RETURN h0CHR$ SCREEN$ SCREEN$ SCREEN$ ATTR < LIST  BEEP ? COPY  DRAW © RETURN j? LIST ? DRAW  COPY  CAT < COPY  LET ▛? NEXT  BEEP 0© RETURN j[R] LPRINT  INPUT *ATTR 3 THEN  MERGE <3 TO  COPY USR STR$  LET  LIST  COPY  COPY ? CLEAR  COPY © COPY © COPY  OUT  COPY USR  READ  COPY  THEN ` OVER USR * LPRINT   OVER  REM SCREEN$ ATTR U` POKE ©=U DRAW  CAT   COPY  COPY `x LINE [Q]USR  COPY  RETURN e LIST USR @0US~x DEF FN 0 COPY  RETURN e COPY USR  DRAW  COPY  LIST 4 DRAW  COPY [D]© NEXT  DEF FN [Q] COPY  RETURN eR▝U xUSs[M] LINE [Q]3 TO  COPY USR NOT 300© COPY ? CLEAR  COPY © COPY © COPY  OUT  COPY  CAT 0 COPY [M]@ RETURN p COPY  CAT NOT ?USR CHR$ USR @ LIST  RETURN  RETURN USR  COPY USR  SAVE s? COPY  COPY  COPY  RETURN [O]0g1 TO  COPY  COPY jSCREEN$ ATTR < BEEP 0USR © RETURN h? LIST >=SCREEN$ ATTR ?< BEEP ? COPY IN  COPY IN  COPY IN COS  COPY IN IN  COPY  CLS  COPY  DRAW © RETURN h@px? NEXT  BEEP 0USR © RETURN j[U]SCREEN$ H*ATTR ? RESTORE 0 NEXT  DRAW  LIST NOT 0NOT 30 TO SCREEN$ SCREEN$ *TAB UO DEF FN ?, LPRINT  CAT 0USR USR /`  INK  COPY  RETURN  POKE s? COPY  COPY  COPY  DRAW <<[Q] DRAW ? NEXT  TO eUU@US DEF FN [Q] COPY  RETURN e> CAT  COPY USR Ss[O] DEF FN SCREEN$ *SCREEN$ SCREEN$ SIN SCREEN$ FN  COPY  RETURN e COPY  READ  DRAW  COPY  CAT  POKE  LET  INPUT ? OPEN #© NEXT  DEF FN [Q]USR  COPY  RETURN eQPU RETURN US~pr[Q]NOT USR  LIST USR USR NOT 30< NEXT ▙q@ LIST 3> OVER USR ?@0UEA RETURN @ OPEN #USR  SAVE ©5UUUXy< DRAW <3 DRAW  COPY  RETURN jSCREEN$ SCREEN$  COPY  COPY CHR$ SCREEN$ ATTR O8 BEEP 0© RETURN j' COPY  COPY  DRAW  COPY  SAVE 3 COPY  COPY CHR$ ATTR 3 CAT  BEEP © RETURN j|3[D] DRAW  COPY USR ( NEXT 9 RETURN ▛? NEXT  BEEP <USR © RETURN `<VAL 803USR  LIST NOT 3 NEXT  NEXT  LIST  COPY  DRAW  LPRINT SIN  LPRINT 0 FORMAT USR ?<= POKE ©  PAUSE AT  NEXT <3 TO  LIST eUP01USg[M] DEF FN [Q] COPY  RETURN e' COPY  COPY  DRAW  COPY  COPY  NEXT  COPY  COPY  SAVE S© BORDER  DEF FN IN  COPY  DRAW  COPY  RETURN e1> LET / MERGE © CLOSE #S LOAD ?© NEXT  DEF FN AT USR  LIST © COPY yUSR  LPRINT 0 LIST NOT ?USR USR USR ?@ TO  SAVE  RESTORE <USR  NEXT <3 TO  LIST jSCREEN$ USR *SCREEN$ SCREEN$ SCREEN$ ATTR 3>= BEEP 0© RETURN j' COPY  COPY  DRAW NOT  LIST  NEXT  COPY  COPY  DRAW +? NEXT  BEEP  © RETURN j[K]> PAUSE FN SCREEN$ SCREEN$ SCREEN$  LOAD 8+? NEXT  BEEP <USR  LIST 2USR © COPY USR  LPRINT CHR$ USR > COPY  LIST CCCCCCCCCGGGGGGBEAAAAAFGGFGG COPY NOT  PAUSE USR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR <nPd(((2EMPEZAR CAMPEONATOCONTINUAR CAMPEONATOCONTROLES        CODIGO DE PASOGURAT =  1990@@xLEN   CLS <>BBBBB<@CLASIFICACION DEL TRAMO@@CLASIFICACION DEL MUNDIAL@PG1 SAINZ-MOYA          02:25:48@GSAINZ=MOYA          CERICSSON=BILLSTAM   CKANKKUNEN=PIIRONEN  CBIASION=SIVIERO     CAURIOL