Match Day: Match Day.B

  0 POKE 236623,PEEK 236183: POKE 23663f,PEEK 236193: POKE 236643,PEEK 236213
  40073[H]SGN SQR STR$ SCREEN$ [Q]X▞U> READ  OPEN # POKE  MOVE ▞n[E]Z GO TO F[B][U]SQR  STOP 8 PLOT  l BRIGHT q[H][J]^ STOP iINKEY$6ECHR$ LN e- STEP ATN LN .o FOR  INPUT  INK [G]0BIN i_? PLOT   AND NOT ▙' INK NOT $N©NOT  DEF FN [E] CLS [F] THEN  INPUT / PLOT  0▚r_ CLEAR [O][K]@ FOR 1%▙;l DIM Nz INVERSE PEEK  PAPER   IF v CLOSE #.& INVERSE [O][K]@ LET  CLOSE #  READ $ CLOSE #N INVERSE PEEK  IF  COS N INVERSE ▖VAL$ TP COPY P.ABS [O] IF ▘.fABS [O] PAPER SQR . FLASH FN   CONTINUE i RETURN s?N{USR H8.~ABS [O] PAPER  LPRINT .N OPEN #FN  CLS USR [S]3 FLASH W6[G]V POKE Nx! GO SUB eTAB 36 CLOSE #>qp.6(N| INVERSE [O] PAPER USR hx. CLEAR PEEK  IF [Q]N CLOSE # STOP O CLS  INVERSE wJ0[Q] INPUT  RANDOMIZE  RESTORE *8L PLOT  ?©[T] INPUT STR$  CONTINUE  BEEP  INVERSE  INK  IF 10[A]ASN  INVERSE [E] FLASH cSLEN  BORDER  RANDOMIZE P[J]? PLOT  p_[P]EXP 0 NEXT FN [L]Q!"[A]v" MERGE *6?y LET   NEW  PRINT Q! INVERSE [A]vB MERGE *6?y MOVE   NEW  MOVE  INPUT "ATN [N]20ATN  CLEAR 2>=1 INVERSE  LOAD  BEEP [N]R LPRINT  INK 0! LOAD + STEP 10VAL dp INVERSE [S] FLASH  INVERSE  FORMAT [L] STEP 10Ppk INVERSE [S] FLASH  INVERSE VAL [L] STEP 1 LIST M FORMAT [M] INVERSE [J] PAPER  STEP Q PLOT   DRAW !I INVERSE  INK  IF *3 DRAW  INPUT pSIN 0[[M]aK1[N][Q] OPEN #0k1VAL -P PAPER 6r CLEAR [Q] LOAD p▟Q*l INVERSE F▛COS AT  LOAD mE@y[C] GO SUB W INVERSE bdS LPRINT R INK  INVERSE hSCREEN$  GO SUB bATTR  NEXT mww CLEAR ▗ CLEAR TAB 9 CLEAR b INVERSE T CLEAR AT wh CLEAR ib CLEAR c INK BUG THEN OFF THEN Y INK POINT YOUFN BIGPIWALLY INVERSE T CLEAR M GO SUB O INVERSE } CLEAR DhYo©mJ@ GO SUB VAL  CLEAR & REM HO INPUT ;;CMm GO SUB R CLEAR .`U GO SUB ^ INK RO] CLEAR  READ AND GO SUB j CLEAR T CLEAR ] FOR B~UP GO SUB RJ{YOURS_~D GO SUB WM LLIST R| CONTINUE  RESTORE  FOR  DATA 0 GO SUB _VAL$ w GO SUB [Q] LPRINT ;; CONTINUE ;; GO TO <=_@TAB O; MOVE  STOP VAL dSPEEDLOCK Protection System © DJL Software & D. Aubrey Jones 1984 - Tel:0793 724317 * Government Health Warning - Attempting to crack SPEEDLOCK can damage your sanity! * NEXT R CLEAR AT !O{b LPRINT  TO 1 DIM