10 final=TRUE
   20 MODE1
   30 COLOUR130:COLOUR1:PRINTTAB(9,31)"Press SPACE bar for Menu";
   40 VDU20
   50  VDU 29,656;528;
   60  FOR C%=1 TO 3
   70  GCOL 3,(C%+1) MOD 3+1
   80  M%=496-C%*4
   90  FOR X%=-M% TO M% STEP 4
  100 MOVE X%,-M%:DRAW -X%,M%:MOVE -M%,X%:DRAW M%,-X%
  110 IF INKEY(-99) THEN C%=3:X%=M%
  120 Z%=ABS(X%)DIV6:SOUND&11+Z%MOD3,-15,Z%+(C%-1)*82,1
  130  NEXT:NEXT
  140  VDU 28,12,15,30,10
  150  COLOUR 133
  160  PRINT TAB(2,2)"             "
  170  PRINT TAB(2,3)"*Agog ago go*"
  180  PRINT TAB(2,4)"             "
  190  VDU26
  200 PRINT TAB(7,16)"116 ESWYN RD TOOTING LONDON"
  210 COLOUR130:COLOUR0:PRINT TAB(10,2)"Press SPACE for menu:":COLOUR3:COLOUR129
  220  PRINT TAB(7,30)"(c) *AGOG PUBLICATIONS 1989*"
  230 *FX21
  240 COLOUR128:PRINTTAB(0,31)SPC(39);
  250 REPEAT:Z$=GET$:UNTIL Z$=" " OR Z$=CHR$13
  260 VDU20,30
  270 *FX21
  280 IF final THEN OSCLI("DRIVE0"):CHAIN"!MENU"