Time Machine: TIME.B

  0 RANDOMIZE USR ((PEEK 23635+256*PEEK 23636)+10)
  62241@ COPY u GO SUB VAL CODE  OPEN # RETURN *S/_ LOAD 1 MERGE  GO SUB VAL <> NEXT >9 GO SUB O! LOAD  LOAD  GO SUB LN !, LOAD  LLIST  LPRINT  GO SUB _SCREEN$ ▚/w#xLEN CHR$  sT BRIGHT  CLS 1T,©c:/&P BORDER 8[7▙ OUT [T] GO TO  RANDOMIZE STR$ }a>= PAUSE [U]▘N PAPER <(Ie[C]OVAL  LIST #LN )&SIN @7 LINE [M](=[C]ZpSTR$ ▚s RETURN  POKE |RND GO SUB  PRINT RATN 2IN 0[G]!;LN ;[G][R]Q IF q[K] VERIFY JgK8AT CHR$ vr(CODE [E]POINT ▝ TO H,s▙[A]*m▗Y POKE TAB ^ PLOT  OH▙-$ FOR lBIN * PLOT  EXP [L]n/[B]XoIN  MOVE }▗p [B] CLEAR  BRIGHT  STEP [E]CODE  MOVE ©[E]NOT  VERIFY K4TA[C] RANDOMIZE ©▗ STOP [K]T[K]CODE r<=,A©3. DIM e MOVE AhABS 3 BORDER _X STEP POINT [M]>= BORDER O OR ASN  PLOT   RANDOMIZE 9H':TPEEK [J][N]" TO 7[N][[R]▖ BEEP Z CLEAR  BORDER  MERGE  PLOT   CLS [POINT C(HK9STR$ n FORMAT CODE ▝ CLEAR :CHR$ ) GO SUB IBIN  GO TO _;S9 MERGE X BRIGHT ▗▗ej DIM X STOP w[D][E]>PEEK ▙[S]USR WHa[E]q[O]AT MCHR$ EXP < LLIST ▚L GO SUB [H]vPOINT VAL$  BORDER gpSTR$  OVER [I]wQ# SAVE FN =RND} INPUT 2 THEN ? STEP  INVERSE ACS zt▞ INPUT  SAVE ©SIN  PRINT H CLOSE #[A]LN . CLEAR  DRAW ?▗H READ TFN  VERIFY -CHR$ b STEP [A]$R▛ CLEAR P OR & RETURN +SINT  MERGE  READ , GO TO } OUT uUSR  READ ATN COS  FOR  PAPER ./<>Y INVERSE  DEF FN  LINE  RUN  CIRCLE +bM[U]RND=ASN &TAN [F]▗t DRAW  PRINT 0[U]e MERGE VF STOP aGVr<=K BRIGHT %SCREEN$ TAB R THEN INKEY$▖[ CLOSE #>I4SGN  RUN COS [K]▝ VERIFY  RANDOMIZE = RUN  VERIFY L LET i ERASE - FLASH  GO SUB  LPRINT  FLASH  IF }[M]▝8o`[J]c%FFN  INPUT  DEF FN PEEK =PIU[M]<= LOAD Ls@%s CLEAR VAL ;TAB : FOR [T]N<=cys[F]5 PAPER  LIST bl[M]B PAPER [A] PAPER zSTR$ {CHR$ yzACS  CLS  LINE  STEP :[S] DATA  DEF FN ▝# INPUT H MERGE  DIM x▗,sb-<> MOVE zd DEF FN 5- OUT  ERASE *? REM ▟D INPUT Z MOVE  BRIGHT [F]LEN L▝ COPY  NEXT 2[R]i}A LLIST  BORDER [D] COPY POINT Ge FLASH )8,k RUN ▞▘ DIM CHR$ =SQR ASv▛ASN [J]:[U] READ STR$  READ  LET @ BORDER R PAUSE g NEW & RETURN [B]▝2+SGN [N]`J PRINT [K]IN A[K]S$MDPaEXP [Q][I]r6POINT [C]s  LLIST .ATTR  FORMAT STR$ PI CIRCLE }:5SGN SIN Ywp(IN ▘[G]u[O]t<=. REM  PAPER  REM _ALN INKEY$CODE ▟ PAPER k PLOT   VERIFY  LIST [B]U MERGE © CAT [U] LET Hfq` NEW  FORMAT "% STEP P~ CLOSE #w<= BEEP  VERIFY [I]AT [E] RESTORE ?ZINT ^ PRINT  BORDER [M] RESTORE 1LEN q|[I]G▞, INK /PEEK  OUT O0n[J].$ INVERSE [A]ATN  RANDOMIZE [B]~SCREEN$ ~[F]3[I]INKEY$hF FOR <▟AT  COPY  CAT ll▙#K? LOAD F|;^hTAN  CAT OA SAVE  STOP 6 LLIST  BORDER  CLS +[[N]oo2 DRAW VAL$  PAUSE © CLS Tr! MOVE [A]JbVAL$ SGN A CLOSE #F=INKEY$ PLOT   LLIST ▚g&PI[R]SQR [G]'RND NEW ▚[H]▖▝BIN  CLOSE #▚RND MOVE  MERGE [R]9xZ FORMAT {[J]9LN  LPRINT <>[[B]INKEY$ CONTINUE GdE▖f[L]G, RESTORE  LINE ▙N~ PAPER ▟W%CVAL AT EXP eCHR$ TAB Wl▟}|PI<[J]MJV, FOR ATTR f THEN  LINE  POKE [R] BRIGHT q AND 6+[H]@2SGN EXP ▛ VERIFY D RETURN ACS GS FORMAT 6 IF  POKE  POKE lSAT / DEF FN  MOVE ▚ BRIGHT  STOP  PAPER AT  DATA  INPUT ] LOAD VAL$ ▟USR  VERIFY IN VAL$ Y CIRCLE d>=iU[S]/LEN -h LIST hIN ~y DATA STR$ oPEEK PI[T][I][J]&[G] STEP a[F]▗!3IN #Z INK  OR TAB ▟ COPY STR$ N GO TO %:a3 COPY >=[L] DRAW fvC?!▙ PRINT INKEY$ ERASE FN ASN  VERIFY BTAB ©[S]▟x:SGN CODE [L]p▜LRNDEXP {}? NEW [L] IF J▖| STOP >= PLOT   PLOT   CLOSE #(V-PEEK y GO TO j STOP VAL / RESTORE INT [L]TAN  DRAW ,< CLEAR ACS ATTR Q LINE ▛wq CONTINUE D'INT AeW COPY F▛"[C] INVERSE  SAVE ▚>P[A]CHR$ { RESTORE  OPEN #o75▟ OVER  DEF FN  BORDER h INVERSE !bATTR 7 OPEN #RND CIRCLE _1|[O]7)COS }67$[G][K]1▛ BEEP  tLEN * INK  IF  GO SUB M CLOSE #N; PLOT  EXP ?pi CONTINUE  LLIST !z ERASE SQR  BORDER 1i STEP r7 CONTINUE 4[Q]PI IF [Q] THEN GfE PAUSE ;YSIN  GO TO <; DRAW  RESTORE INKEY$ DEF FN [A]▜3POINT CODE   LIST o DIM  THEN ▘Du STEP [L];[B]F^ BRIGHT K PRINT eHPSTR$ X LET ATTR 1'tSIN ▖1[P]TAN ▖ POKE -y OPEN #>VAL$ i[U]l AND [D]ic;sCHR$  PAPER k"$ BEEP Hv[F]|4'jMSCREEN$ e-X READ 6[I] LINE [B]] INPUT Xu[L]ABS hW PLOT   OR ! BEEP  @D DIM Ig CLEAR ~6 MOVE W READ AT ^>=TAB s LOAD @D INPUT  NEXT  CLS  NEXT INT  RANDOMIZE =ATN 3INKEY$^r[S]g LOAD ▘ FORMAT Q INPUT tX[A] BRIGHT 4▜c8 RESTORE  FLASH l OR  NEW  BRIGHT eTAN  DIM PASN [K] FORMAT CODE  ERASE EXP  THEN  REM + BEEP  RUN |EINKEY$[Q]mUACS Ws▗[R][B]s{[O] FORMAT @zCODE f, FORMAT 6 CLEAR u▜N VERIFY  SAVE y POKE Hk@ LIST  FOR ~ OUT b/| THEN [U] NEW  PRINT q BRIGHT IN  MERGE >STR$ c[N]uRATN VE NEW a'8yRND[E]fGgWr INK  BORDER g1[R]n INPUT o LOAD  FOR vLEN  MOVE ![P]6INKEY$TAB  REM 6YNUvZ▙7 RUN  PAPER OCODE (FN Y^ CLS PEEK nf RESTORE AT z OUT n OPEN #D CLOSE #SCREEN$ RNDrSGN d4VAL COS ZSTR$ m INPUT 2 OR [Q] GO SUB  OPEN #[K] CONTINUE fnIN  COPY e READ  FORMAT / PAPER CHR$ ▞ FORMAT -[T]dQ PAUSE x PLOT  H[N]@9VAL$ ZIACS r[M]INT *tUSR USR NOT  RESTORE PI READ %iwy INK DPEEK -TAN e INK INT I▗q▟WqSGN  PAUSE ]LN H7_ RUN  BEEP  STOP AT : CAT  INK S2b[E] CLS w[Q]<G INPUT  MOVE 3[C]U▗ RETURN  PAPER SCREEN$ WCHR$  RETURN jF NEW .[C]lSCREEN$ T~[Q]_W2N DRAW  INVERSE `=Q"$ CLEAR  RANDOMIZE [K],,% CAT CHR$  TO ▚X/bTAB aNOT  RUN PEEK  REM WATN  CONTINUE >= REM  INVERSE #SQR [E]▚ COPY c LOAD  OVER r CLEAR E CAT  DIM TAN INT Ri CLEAR W[H][N]~ ERASE ©©U AND .m IF LN 9[N]>▛[K]i LOAD r DATA E DRAW ▝$▜ OVER ;@x[T][D]_K[S]5~SIN p[J]kLN ,SGN d PAPER  RUN +c[B] STOP  COPY SIN  PLOT  [T] VERIFY ▖SINKEY$ CLOSE #INT BIN POINT [Q]TY# INVERSE  BRIGHT  IF Pc FLASH TAN ▚ LPRINT  CIRCLE ASN  BORDER  STOP J OVER };[M]][J]u GO SUB  e[K]5▛NPI RESTORE /[N]▞nBIN u FORMAT # LINE [L]>COS [L]BIN 0hATN  OVER j<!VAL$ IN v©[▘+©[P]'Z[E]%PI_.▗ STEP H:ruc©0▖ FLASH c©{ PLOT  [O]VAL INKEY$ STEP _O PAPER u[Q] READ F. DEF FN  LINE  NEXT PEEK tBIN L/AT k CLEAR  FORMAT s[F]AT  RANDOMIZE  LINE USR [I]),R[ INPUT ~ NEW y[E]▜![N]COS ▘/jERNDVAL /C THEN - GO SUB LTAN dThVAL v OPEN # INVERSE NJ^F INPUT U BEEP  DIM ogUPOINT  DEF FN +wsPI DEF FN + CONTINUE 2POINT [K]Z[T][M] POKE  LIST  PLOT   DEF FN [N]el[R]$ VERIFY & DEF FN ▜L[N] PAPER [G]p> OR SGN  NEW 0p5 PRINT v TO [M] RETURN  ERASE  ERASE Y MOVE F VERIFY X RUN RUSR  IF ▙$FN VAL K[F]x[O][I]p1[C]5[J]p4<K INPUT A[L]@STR$ !V_ LPRINT RND©+/ COPY 5}u| FLASH  LOAD PI[G]; LLIST  THEN BIN &cINKEY$<>z FLASH USR ; CIRCLE [F][0CHR$ INT [S]ATTR 3ABS EXP % PAPER Ez./y[G]^i CLS r DRAW jSGN N THEN Q CLEAR  STOP EXP + PAPER [R] THEN ;STR$ _ GO SUB VAL - STEP  SAVE FR/ACS [A][Q] INPUT  CIRCLE +▖CVt[I]▜[T]xUSR INKEY$[B] INPUT uI INPUT ACS [S][C] OPEN #@ STEP #Vs;AT X OVER _ FOR  OPEN # PAPER VAL$ a GO SUB mG NEXT :SCREEN$  AND  IF gu DATA N THEN ,[U]@/PEEK  MERGE PI▖ INK 5* THEN [I]BIN ASN ▙[G]NOT  IF SQR  |5}[I]^[N]IN ATTR 2 DATA EKM[[A]▝*USR ?▟ NEXT [Q][I][D]EXP Z~[K]IN TAB 9[E]▚gSQR =TAN ` CLOSE #iAA INVERSE  INPUT [C] AND ? OPEN #Y-7 COPY {[U]DCOS RAT O3>u▙ LLIST  VERIFY  LIST ATTR TkVAL E} LINE ' STOP ▖3ATTR  GO SUB [A] FORMAT ryg= LIST ▘ RUN S PRINT 1[P] BRIGHT   REM POINT K FLASH  ERASE 6 RUN  MOVE Z FLASH [R] OUT aF▙ BRIGHT A CAT  CAT SCREEN$ l[Q]d GO SUB RND NEXT  IF  ERASE >= INPUT  GO SUB  INVERSE  CONTINUE xz BORDER LEN  LLIST  CLOSE #O'w FLASH RXTAB [M] RETURN ▟^ CIRCLE VAL$ [G]m[B]P RUN  FOR  CAT ©O;INKEY$q{ PRINT  BORDER  VERIFY  MERGE  CLS  INVERSE G0[E][M][R]I NEW %©NOT USR  DEF FN EXP 7<= LIST v~#k NEW  LINE RND LEN cKv1 STOP [O]D/~[E][R]!j POKE <dp THEN  STEP 9oSQR <=IN BIN  VERIFY <=[E]sCODE  PAUSE ?D[ BEEP TAB G/uh[J]▟ LLIST [C] FOR   RETURN ?ORzTo>=8[▘[F] CLS v RESTORE ` PLOT  2 RANDOMIZE %3FN PLOT  ▘j PAUSE  LINE B"▖-T[K]F[N]:L READ ATN 'B]'` STEP CY{<d PRINT )%{oUVAL$  LET  FOR  VERIFY dE FOR y[M][U]C PRINT ASN CwG[Q]m▝AT w BORDER K[N] REM Vz^ BORDER EXP " LLIST SIN SCREEN$  MERGE C# PAPER  DATA 8ASN ~KINKEY$|H FLASH  BRIGHT =`[G]IABS  LIST [Q][E] VERIFY S[G][S][K]`[H] ZvhVAL$ a#@ DEF FN  VERIFY  OR J[B]@Q FOR  DEF FN SGN  PAPER [POINT  FOR d[U]O OVER T& CLEAR ▖L INK  CAT d MOVE INKEY$FN  AND [M]%|INT O3ly[S]FN j[O]="1ES= BEEP ^/SQR  PAUSE  REM ChATN bn FOR  LET ▛Y RETURN < FOR F AND o'RNDp IF INKEY$[F] CAT  FLASH [I] SAVE IN )_<=▙~A.poVAL$ [C][C][G]Ds PLOT  a REM a[J]UTAB [S][D]+IN hCOS [L] SAVE FF©}SGN VAL$ TAN INKEY$}LPI CAT NOT  ERASE VAL B LOAD OX[Q]R;[P][E] VERIFY # FLASH  CLS RQ?q CONTINUE  ERASE  LET g-SCREEN$ j/i LINE  PLOT  <yr/ PRINT q~SQR  INPUT  MERGE O▚XEXP ▗AVAL s[S]3 DRAW  LIST <= FOR KIN [S]+ CAT AT 0VAL$  NEW LN LEN meRND[U] DRAW  LLIST PNI▖ PLOT   CIRCLE NOT d[Q][B]K[N][U]CHR$ 0VAL 3kpb>=▝[NF IF  MOVE  FLASH ▛ CONTINUE [R] PRINT U5HxO/SGN If DEF FN IN ATN [A]b[K]▚A RETURN [A]PIN REXP  DEF FN  IF  DEF FN  CLEAR [A] VERIFY >= AND < RESTORE [U]P[ FORMAT  INK  LINE jATTR s;LN [B] LOAD ATN SIN $P[M]sTAB i>▘ INPUT [D]w/[A] OUT xa{▛&ATTR ▘H PLOT  kATN ACS  RESTORE  CLEAR  BRIGHT  COPY fVAL$ INT [G] /,>AT  DEF FN @4 INPUT  GO SUB 4[R]AT 4 GO SUB @ATTR  BORDER </ PRINT  STEP _[A][G]ni `LEN  LET PEEK [J] CLS 1Zg[Q] DIM y4[I]([H] BEEP {%b LOAD TCOS j[N] STEP  LIST [D]TAN <= COPY K OVER k AND  OR © CAT  PAUSE SCREEN$  NEXT CF▛ LET  STOP  CLOSE #bP[WPI NEW h|0RR CAT  OPEN #Y,e NEXT SGN "3 FOR <>HCOS  RANDOMIZE CHR$ <>= GO TO 2 GO SUB QB DEF FN USR (SGN  AND LEN  POKE znNOT VAL . GO TO jt STOP  CLS T GO SUB O▗M-L]▛cWo:NSGN utZs▞$[N]k©K9LEN  PRINT [U]>yS LET 9SCREEN$  FLASH ▘K NEXT &3 STOP [L] INPUT S▘[D]INKEY$#R▛PEEK S STOP 3FCOS B DEF FN  NEXT | CLOSE #f}J THEN  DEF FN  OR [B]u POKE [A] PRINT ]x; CLS ).▝i PRINT [R]q FOR ctX▚Q[E] INK  GO SUB [L] ERASE Hu RANDOMIZE [B]▝qi FLASH [O] RANDOMIZE  NEXT  NEXT +▛ LET  BRIGHT ACS <>a READ  BEEP EXP  CIRCLE t ERASE [H] RETURN %}▝ LLIST K[M]f2 LIST  PRINT  NEXT PI[A]KTAN [R] DATA USR ▞i CLOSE #▞ READ  NEXT 8v[C]LN ]#[H],5FN  THEN ▚V DATA 'hASN  NEXT ?4L AND m DIM  TO ;INT [S]ELEN A INVERSE  READ q▟n▗ LET qK GO TO [M]Q[1COS qE RANDOMIZE ASN fpSTR$  RESTORE 3<aSTR$ ^ CLOSE #COS s0 LET q▙d[R][E]▝CHR$ t CIRCLE  INPUT ▞SQR 9 OPEN # OR [A]7/I[H][I]ABS  LIST  CLOSE #w}I GO TO INKEY$6 LLIST U FOR  PRINT  DRAW [I]2 RUN B FLASH K CONTINUE LEN VAL  POKE [I]o] CIRCLE  OPEN # FLASH >=Y*SP BRIGHT Il[R]U[S]zLEN =LEN ] LIST /w[J]: FOR  MERGE STR$  THEN © i DATA C$SIN  LLIST I{▛OPOINT ATN yt, IF IPEEK INKEY$ RESTORE TAB  THEN _Ix CLS TAB `"+ PAPER <>VAL$ m▝`<=POINT jEXP RND[B]5++ RANDOMIZE ▘ BEEP  OPEN #y▞[D]0 MOVE W RANDOMIZE >=P LPRINT CPOINT  COPY [O]POINT 3LN ' LIST  MOVE Ka▞i7Y OVER [A]zc1<><=[J]VAL gD6p DRAW f'Ml▞ RANDOMIZE [P]SQR  LET [A]CODE 05▟ RANDOMIZE >=[J]u[L] FORMAT  LPRINT NOT RND▛ THEN [H]CHR$ SCREEN$  LOAD ▙ DIM  PAPER 2 LOAD q"pPILIx POKE ▚Ou NEXT 'nFo FOR  DIM %[K][F]a AND n ERASE  STOP vy RANDOMIZE ;L[C] POKE  INVERSE c[S]$ OVER InSTR$ ▜aLN  CIRCLE i9 MOVE >=[A]! AND /#oXUSIN q| DATA  DEF FN  LIST  INVERSE VAL  NEW [A]% CAT ^C^C# LPRINT  STEP O NEXT A THEN  GO SUB vI DEF FN n COPY X2POINT <> OUT  OVER  CLS Ka▝PEEK G[S][ MOVE NOT 9[T]P[B] BEEP  STEP <>[A] READ  POKE (PI INPUT  BEEP >=©d OVER ▙24=<=:P MOVE  MOVE d[O] DEF FN [[I] STOP  OPEN #ATTR ATTR LEN @STR$  AND  MOVE ] BEEP  LINE sR1c[D]ACS s PAUSE wVc TO USR BIN ▞ OPEN #[H] CAT  DRAW [F] OPEN #~TAB M MOVE  CLS  SAVE ')z RETURN PEEK + FOR LN  INPUT COS ]r FLASH ujE READ S BRIGHT  GO TO 99?PPBIN (G;>uu LINE ▘ABS RNDY▙RNDu<> AND Sz-ATTR sATN s[D]NOT [[F]Y LIST  OVER " DATA <><>z CLS [S] CIRCLE TL`z PAUSE [E]dPOINT INT  %`nH>= DRAW [I]K^Ot(ABS . BEEP l RESTORE  OPEN #CR OPEN #