MrCBASIC/VOC7/VOC7.TXT

10 CLS
20 DIM SCR(5000):DIM SCN(5000)

30 SCORE = 0:NUM = 0:CYC=0:SECTION=1

190 GOTO 300
200 WAVE 0, SIN
201 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3
202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6
203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5
210 SOUND G,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND AH,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND AH,8:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,18:SOUND 0,1
211 RETURN
212 SOUND D,4:SOUND 0,1:SOUND F,18:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND AH,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND AH,8:SOUND 0,1:SOUND CM,4:SOUND 0,1
213 RETURN
214 SOUND DM,12:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND DM,12:SOUND 0,1:SOUND AH,2:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND DM,8:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND CM,8:SOUND 0,1
215 RETURN
216 SOUND CM,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND AH,8:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND A,4:SOUND 0,1
217 RETURN
218 SOUND AH,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND DM,10:SOUND 0,1:SOUND CM,10:SOUND 0,1:SOUND AH,10:SOUND 0,1:SOUND A,10:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND G,18
221 RETURN

230 SOUND GH,4:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND GH,2:SOUND 0,1:SOUND AH,6:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND AH,6:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND GH,8:SOUND 0,1:SOUND F,10
231 SOUND 0,4:SOUND F,4:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND AH,6:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND GH,4:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND GH,2:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND DH,18:SOUND 0,4
232 SOUND GH,4:SOUND 0,1:SOUND AH,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND GH,2:SOUND 0,1:SOUND AH,6:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND AH,6:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND GH,8:SOUND 0,1
233 SOUND F,10:SOUND 0,4:SOUND F,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND DH,8:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND GH,4:SOUND 0,1:SOUND AH,2:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND DH,2:SOUND 0,1:SOUND GH,12
238 RETURN

250 SOUND G,2:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND EM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND CM,8:SOUND 0,1
251 SOUND A,4:SOUND 0,1:SOUND DM,10:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND DM,10:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND EM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1
252 SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND E,2:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND D,8:SOUND 0,1
253 SOUND E,4:SOUND 0,1:SOUND C,6:SOUND 0,1:SOUND CM,1:SOUND 0,1:SOUND CM,2:SOUND 0,3:SOUND E,4:SOUND 0,1:SOUND D,6:SOUND 0,1:SOUND B,1:SOUND 0,1:SOUND B,2:SOUND 0,3:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1
254 SOUND E,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND EM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND C,6:SOUND 0,1:SOUND CM,1:SOUND 0,1:SOUND CM,2:SOUND 0,2
255 SOUND E,4:SOUND 0,1:SOUND D,6:SOUND 0,1:SOUND B,1:SOUND 0,1:SOUND B,2:SOUND 0,3:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND EM,16:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND DM,3:SOUND 0,1:SOUND CM,6
259 RETURN

270 IF CYC = 1 THEN 274
271 SOUND CM,5:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND F,5:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND AH,3:SOUND 0,1:SOUND AH,3
272 CYC=1
273 RETURN
274 SOUND AH,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,3:SOUND 0,1:SOUND A,3:SOUND 0,1:SOUND A,6
275 CYC = 0
276 RETURN