Fairlight: 
FL128.B

  0 PAPER 0: INK 0: BORDER 0: CLS : RANDOMIZE USR (PEEK 23635+256*PEEK 23636+42): REM  NEXT  GO SUB V LLIST [T]! COPY  INPUT  GO SUB LN  MERGE <> MOVE  INK ![P]~ATTR SCREEN$ w#x INVERSE #LEN   POKE CHR$  CLOSE # PAUSE  TO L ERASE  BEEP TAB xy CLOSE #[U] LIST  NEXT  ▘[[C] STEP =EXP [D] GO TO [D]▜> PAPER  SAVE [K]#H[N]|<>E*<>=<> CLEAR <>=u!zCOS " INPUT  RETURN @ LINE = RETURN [F] DRAW B2[F]l GO TO D PAUSE aB FLASH o#w[N]|u! OUT !zCOS " RUN [U]@= RETURN [F] DRAW B2[F]l GO TO D PAUSE aB FLASH #TAB [N]1 COPY }TAB  LOAD {8 DRAW STR$ >=< LOAD {<>!xLEN " IF ▘[C]b STEP =EXP [D] GO TO [D]▜> PAPER  SAVE  DRAW |POINT FN u! OUT !zCOS " LET NOT  RANDOMIZE [T]8 OVER  READ  BORDER ACS TAN  COPY PIZPI RUN ▘[R]m[K][M] BORDER 1PEEK 1 STOP 1 LLIST ~1 STOP NOT [C]2 COPY  CIRCLE [O]TAB [G]LEN . RETURN ( GO SUB CKfRND LIST F INVERSE [D]▝[B]KLEN [D] STOP ▛f=v LLIST = PAUSE = RANDOMIZE [R]= PAUSE  PLOT  COS 1[K]O CLEAR STR$ ▖ READ ▗▞5[J]r BRIGHT  CLOSE # RANDOMIZE :[I]o[I] INK B^ABS TAB 8SQR CODE ABS EXP AT TAB EXP  LINE cACS TAB  PAPER ▟CODE {ATN  BRIGHT Z>= LINE :INKEY$IN  ERASE [E]TAN ▜[P]PIATTR ▛j LPRINT TAB gINT  SAVE RR?![U]2LEN p|VAL  BORDER  RUN VASN [A]~JJ DRAW & NEXT 1#>VAL$ ▙[P]▗[M]P NEW uK_a PAUSE  PAUSE  RETURN NOT ! PAUSE 9 SAVE ?![U]qQLN VAL ▞ OVER [O][N]COS 7bbLN  OPEN #▗<= LLIST =[P]2*PSCREEN$ : SAVE RR?![U] LPRINT CHR$ ` INK  BORDER  BEEP f+Vy""4N RETURN ▗"ASN 7LN  OPEN #▗$00?7ACS  MERGE BIN Z*wTAB ` SAVE RR?![U]6▛[D][U]lhPRSGN  DRAW & NEXT 1 OUT TAB e RANDOMIZE dEXP <=RNDNOT  LIST  CIRCLE S[M] CONTINUE ABS gh©CODE Y?A STEP >=IGATN rSGN w LOAD ▗[S]IN [Q]▟[R] LINE lL FORMAT W BRIGHT [Q] CAT AT  LET NOT &O PAPER RNDH|XzPI NEW ▛:6 MERGE ▘LEN [P] BORDER $bCHR$  PLOT   DEF FN [G][M] LIST  CLEAR ▗SIN SCREEN$ ECOS  POKE '▞ LLIST r^ TO RPOINT [Q] BRIGHT ^g OVER RNDJn[M]T[D] POKE @SGN zh PAPER %z{▟B1[O]▗ CLS INKEY$▗z_STR$ [F]▜©z{▟R1 AND G<%F CONTINUE k[M]AT S82 VERIFY 0 INVERSE [S]BIN ©ABS [S]4[F]UTAN [S]kINKEY$}.ZLN <=v RESTORE 9 LLIST ▞ PLOT  ?|▚CHR$ CHR$ NOT j[D]d{OK;USR FzSIN f BORDER  PRINT <> CLOSE #.yY+z|"BIN x.y8,1AT ▜ LLIST  LLIST VAL$ F NEW [G])▘^d6! LLIST , FLASH  LET  LOAD %AT [B] CLEAR S.~ OUT  LET  INVERSE $EXP  FOR SCREEN$ ][P] LIST UvW@ ERASE [E]▘$ DATA )]NOT w RETURN  OVER  CIRCLE  NEW h[O].8 CLS ▙YSGN ABS ABS [R]SGN [N]ABS D:S}COS [D] CONTINUE >=G* MOVE x] GO SUB BIN M LET  FLASH #6 RANDOMIZE O[! DEF FN !) OR M<=ASN QLEN [P] STOP  AND p▝xINKEY$COS [F]OAT ~ RANDOMIZE  THEN O IF 4 MERGE R^T MERGE CRSQR h"▟ASN  STEP POINT  CLEAR )EXP  PRINT O) INK OTAB POINT 3R INVERSE v INVERSE dZfI©;)[U] ERASE O NEXT NOT hN[T] OR ▛[K]ABS bp" GO SUB INKEY$[A LIST  NEXT PEEK Z[R]ACS N/Q_r▚U▘HF[Q]VAL  STOP  CLEAR [B]▟NkNOT A^ LPRINT  NEXT @ RESTORE  MERGE POINT ^ LLIST O[N]STR$ ▛SGN ©FABS  LET © CLS ATTR [N]<>[P][J] DIM  DIM  DEF FN X[N]QOBIN [J]POINT  OVER STR$ ATTR ~ CIRCLE TAB t[J] OPEN #-[I]LN U>=Z[C]X[N]VAL  PRINT  COPY  CIRCLE p[Q] CLEAR [C]x=u OR ! DRAW RND OR  INK  SAVE / LET } BORDER  INVERSE [R]! ERASE  INVERSE /[A]_▗ RANDOMIZE ?ABS /}V%▝SQR e! DRAW <}[N]|[M]| BRIGHT [M][M]ABS /} INVERSE [N]]SGN /}[M]SGN [N]][M] DIM 9EXP EXP ▟ABS ABS ABS ABS ABS IN LN IN  SAVE 7 COPY IN  SAVE 5 IF IN ABS ABS IN IN ABS :sqr PLOT  ABS qr~ DRAW qq??qq COPY PEEK 2LEN ~~2LEN 6qPEEK PEEK 99PEEK PEEK SIN 6LEN LEN ABS ~LEN LEN }PEEK spABS ABS sp PLOT  ABS qq PLOT   PLOT  qq RETURN  PLOT  q2>}q2>}q2IN ABS q2 COPY rPEEK PEEK qABS PEEK PEEK rrqqPEEK  PRINT q?W[D] VERIFY © JANUARY 1986, ANTONY DUNMORE, JAMES WOOD, JOHN BAYLIFFE