WEC Le Mans: WLM.128.B

  1 CLOSE #USR 0:    *J*M*S* PROTECTION SYSTEM    COPY " NEXT 1 LIST IN  GO SUB ^ INVERSE !SQR ]>A GO SUB O1@!ppu GO SUB VAL  DRAW IN  GO SUB _AT FN TAB POINT  INVERSE AT ATTR  INVERSE TAB SCREEN$  CLEAR g INVERSE ~ CLEAR AT  INVERSE w INVERSE # RESTORE xLEN  9 RANDOMIZE [TAN e CONTINUE FN  RUN  DRAW [M]SIN a FOR RNDB: THEN  CLOSE #hx<=[M]"▛CODE  IF  BRIGHT  DRAW  INK  LOAD )[▖k DIM ]N▘ RANDOMIZE TAB  STEP [R] NEXT ATN [E]TAN  CLS )U LET  READ <L▝1[R]▗▜PI6 RUN ATTR VVAL$ CHR$ >`[P] GO TO [H]SGN  FLASH IJxf):=|D/BC OVER cov REM y▗CODE ()COS 0 CLEAR zPOINT  COPY  ERASE  o4%Ek@O{c/V NEXT  FLASH Ay1Of.Rr[M]<>[D]m8▗[I]▟IVAL$ ><2]969CHR$ [J]▝EXP .ATN -snPEEK W PAPER DP IF 5A OVER CHR$ 9>`ACS [F]INT  CONTINUE [L]TAN  TO 0 STEP INT  OVER  GO SUB K DIM ]ACS  SAVE ▟IRND[E] BRIGHT  DRAW P© TO &cPEEK INKEY$5p]▛!TAB  PAPER  NEXT LEN MFN  VERIFY ▞RND[C]SQR  COPY fJ[P]O COPY INT T^LN ASN :F BORDER a> RESTORE Ob CAT  LLIST Sv CLOSE #=xSQR INT -D[N]SIN  OPEN # THEN [P]L#'p▜▜)[U]SCREEN$ ▛ MERGE  LET ▙STR$ =[S]<e4:s7POINT  OPEN # STOP  CLEAR  CIRCLE | |4 CLOSE #▝ PLOT  BIN  TO $n BRIGHT  DIM  LLIST TAB  ERASE & READ EXP [P]X[R][N]SQR ▛ MERGE  READ  RESTORE `[U]BIN LEN  CLEAR CHR$ ▗ FOR AT [K][F] PAUSE ABS  NEXT  DRAW  OPEN #- RETURN c[M] IF ASN  ERASE  INVERSE K[E] NEXT  MOVE ATTR COS :a[R]STR$ >▜[E][D] CLEAR CHR$ [D] GO TO  DEF FN TAN ^ INPUT  RETURN JCODE 9▞z~[R]MNOT  PLOT  b^*.]▝} PAUSE  THEN D~[S]} Y~^/P SCREEN$ [I]▚ SAVE RNDABS [N]"[R]LEN [U]A[P] VERIFY  DEF FN ABS Q▚SCREEN$ SGN _© OPEN # PLOT   OVER [A] CLOSE #o DEF FN ABS VAL$  BRIGHT [T]I[N] RUN ABS s COPY CODE SIN ?[O]G LIST hLEN  PAPER IN O[A]t[L][E]-SGN pK[A]^ GO SUB ACS TAN |EXP SCREEN$  MERGE  BEEP $K[E]tn PRINT  TO ▜ CLS  CLOSE #6▙F GO TO RNDLN 6 TO SGN  LOAD ▛CHR$ <=LATTR  INK SCREEN$ zAT  CONTINUE  RANDOMIZE  PRINT l[R] DATA LN  RANDOMIZE  INVERSE  MERGE 2[I]fSCREEN$ z[K][I]CODE z LINE BIN [H] MERGE  REM ASN 1▙[P]F IF {▚l CIRCLE  POKE MTAN ACS  LINE  OUT [F]W FLASH {[N]ATTR [U]-[S]USR I PAUSE SIN [E][U] CAT i[F] RESTORE + LPRINT { CIRCLE [P][C]ASN pSTR$ 3 RANDOMIZE k▛' IF EXP Ku OUT [F][L]ABS G DATA mRND LINE BIN [H] CLOSE #j PRINT 1GFN  POKE ▛[B]ICOS I▚L[I] ERASE FN ASN  REM [U] BORDER  OR  LINE ASN Q[O]IN i6 PRINT SCREEN$ h>=[L]g FORMAT 1 CONTINUE K DIM NyL[O] OUT  OPEN #▞l( RUN ESCREEN$  INPUT &USR H NEXT COS &VAL$ FXATTR %ACS  NEXT ▚hIN  READ INKEY$ MERGE  FOR [U] DEF FN  MERGE  REM  RESTORE  GO TO VAL fATN [Q] INK INKEY$▟ INPUT fTAN @[F]7U▘ FLASH ▗ VERIFY ATTR / STEP yZ-;:VAL$ z LINE N▜U CLOSE #7 DRAW y+g[H]e▗ LET  COPY > CIRCLE K<=[H]} DEF FN [E] REM  DATA  PLOT  BIN TAN VAL$ ▗ LINE ▗▚ CLOSE # REM  POKE  DEF FN [E]SCREEN$ [U]V$