MrCBASIC/VOC6/VOC6.TXT

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

30 SCORE = 0:NUM = 0
31 PRINT"":PRINT""
32 PRINT"  WHICH DO YOU WANT TO DO?"
33 PRINT"       1. CHOICE OF ENGLISH FOR A LATIN WORD, OR"
35 PRINT"       2. CHOICE OF LATIN FOR AN ENGLISH WORD."
37 PRINT"":PRINT"  PRESS THE NUMBER FOR YOUR CHOICE."
39 CHC$=""
40 CHC$=INKEY$
41 IF CHC$="1" THEN CLS:GOTO 198
42 IF CHC$="2" THEN RUN "VOC6E"
45 GOTO 39

198 PRINT"":PRINT"":PRINT"   THE TUNE IS 'LILI MARLENE'"
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 E,6:SOUND 0,1:SOUND E,2:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND F,2:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND E,8:SOUND 0,1:SOUND F,6:SOUND 0,1:SOUND F,2:SOUND 0,1:SOUND F,6:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND B,16:SOUND 0,1
211 GOTO 300
212 SOUND D,6:SOUND 0,1:SOUND D,2:SOUND 0,1:SOUND D,6:SOUND 0,1:SOUND E,2:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND F,6:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND B,6:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND F,4:SOUND 0,1
213 RETURN
214 SOUND E,12:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND B,6:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND B,8:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND B,12:SOUND 0,1:SOUND A,4:SOUND 0,1
215 RETURN
216 SOUND G,8:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND A,12:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND E,8:SOUND 0,1:SOUND G,12:SOUND 0,1
217 RETURN
218 SOUND E,4:SOUND 0,1:SOUND G,12:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND F,8:SOUND 0,1
219 RETURN
220 SOUND DM,8:SOUND 0,1:SOUND CM,16:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND E,8:SOUND 0,1:SOUND G,12:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND BB,8:SOUND 0,1:SOUND C,12
221 RETURN

230 SOUND G,8:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND G,2.6:SOUND 0,1:SOUND F,2.6:SOUND 0,1:SOUND G,2.6:SOUND 0,1:SOUND GH,8:SOUND 0,1:SOUND GH,8:SOUND 0,8
231 SOUND F,6:SOUND 0,1:SOUND F,2:SOUND 0,1:SOUND AH,12:SOUND 0,1:SOUND GH,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND AH,8:SOUND 0,8
232 SOUND G,8:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND G,2.6:SOUND 0,1:SOUND F,2.6:SOUND 0,1:SOUND G,2.6:SOUND 0,1:SOUND GH,8:SOUND 0,1:SOUND GH,8:SOUND 0,8
233 SOUND AHB,4:SOUND 0,1:SOUND AHB,4:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND DH,16
238 RETURN

250 SOUND B,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1
251 SOUND B,6:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,4:SOUND 0,1
252 SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,6:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND G,8:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND G,4:SOUND 0,1
253 SOUND A,4:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1
254 SOUND A,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1
255 SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,6:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND G,12
252 RETURN

270 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
271 RETURN

300 LINE(25,25)-(460,50),,BF:LINE(30,30)-(455,45),30,BF:LINE(300,30)-(320,45),,BF
305 CALL MOVETO (325,42):PRINT "SCORE"
310 X=100:Y=110:N=1:GOSUB 212:GOSUB 330
312 X=100:Y=225:N=2:GOSUB 214:GOSUB