10final=TRUE 20MODE1 30COLOUR130:COLOUR1:PRINTTAB(9,31)"Pr ess SPACE bar for Menu"; 40VDU20 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 100MOVE X%,-M%:DRAW -X%,M%:MOVE -M%,X% :DRAW M%,-X% 110IF INKEY(-99) THEN C%=3:X%=M% 120Z%=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 200PRINT TAB(7,16)"116 ESWYN RD TOOTIN G LONDON" 210COLOUR130:COLOUR0:PRINT TAB(10,2)"P ress SPACE for menu:":COLOUR3:COLOUR129 220 PRINT TAB(7,30)"(c) *AGOG PUBLICAT IONS 1989*" 230*FX21 240COLOUR128:PRINTTAB(0,31)SPC(39); 250REPEAT:Z$=GET$:UNTIL Z$=" " OR Z$=C HR$13 260VDU20,30 270*FX21 280IF final THEN OSCLI("DRIVE0"):CHAIN "!MENU"