10 PROCinit 20 MODE7:PROCoff 30 PROCrig 40 PROCnoise:PROCwait(2) 50 MODE2:PROCoff 60 PROCquad:PROCyn 70 IF ans$="Y" MODE1:PROCoff:PROCinst 80 MODE4:PROCoff:PROCsound 90 MODE7:PROCoff 100 PROCrig:PROCwait(1) 110 VDU28,25,18,36,15 130 CHAIN"OILRIG2" 140 ***** 150 DEFPROCinit 160 VDU23,227,255,129,129,129,129,129,129,255,23,255,255,255,255,255,255,255,255,255:ENVELOPE1,2,0,0,0,1,1,1,127,-5,-1,-1,126,126 170 ENDPROC 180 ***** 190 DEFPROCwait(time) 200 ti=TIME+time*100:REPEAT:UNTILti