10MODE7:VDU23;8202;0;0;0;:PROCbeep 20VDU132,157:PRINT" BBC DBASE by A.S. SHAKOOR ";CHR$(156) 30VDU28,1,24,39,3 40VDU14 50 *TYPE HELP 60 PRINT'" PRESS ANY KEY TO CONTINUE" :G$=GET$ 70VDU26:CLS 80CHAIN"DBASE" 90 END 100DEFPROCbeep:ENVELOPE1,1,0,0,0,0,0,0 ,-126,-2,0,-1,126,80:OSCLI"FX211,1":OSCL I"FX212,0":OSCLI"FX213,180":OSCLI"FX214, 1":ENDPROC