mirror of
https://github.com/stevemac321/MrCBASIC.git
synced 2024-06-11 03:29:29 +00:00
1 line
5.1 KiB
Plaintext
1 line
5.1 KiB
Plaintext
|
10 CLS
DIM S(25)
FOR N=1 TO 20
S(N)=0
NEXT N
20 SCORE=0:TRY=0:COR=0:ITEM=-1:N=0
25 PRINT"":PRINT"":PRINT" Please type in and ENTER your name."
27 PRINT"":INPUT; NOMEN$
30 IF NOMEN$ = "" THEN PRINT"YOUR NAME DID NOT REGISTER":BEEP:PRINT"CLICK ON THE CURSOR AND TRY AGAIN.":GOTO 25
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 C,4:SOUND 0,1:SOUND C,4:SOUND 0,2:SOUND C,3:SOUND 0,1:SOUND C,4:SOUND 0,2:SOUND C,3:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND D,8:SOUND 0,1:SOUND C,12:SOUND 0,1
211 SOUND F,4:SOUND 0,1:SOUND G,4:SOUND 0,2:SOUND G,3:SOUND 0,1:SOUND G,4:SOUND 0,2:SOUND G,3:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND G,12:SOUND 0,1
212 SOUND F,4:SOUND 0,1:SOUND G,4:SOUND 0,2:SOUND G,3:SOUND 0,1:SOUND G,4:SOUND 0,2:SOUND G,3:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND G,12:SOUND 0,1
213 SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND D,8:SOUND 0,1:SOUND C,12
214 GOTO 280
240 IF BOBO = 1 THEN BOBO = 0:GOTO 250
241 SOUND E,6:SOUND 0,1:SOUND D,3:SOUND 0,1:SOUND C,2:SOUND 0,1:SOUND C,6
242 BOBO = 1:RETURN
250 SOUND GB,6:SOUND 0,1:SOUND AB,3:SOUND 0,1:SOUND C,2:SOUND 0,1:SOUND C,6
251 BOBO=0:RETURN
270 SOUND AB,8:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND D,12:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,20:SOUND 0,1
271 SOUND DM,4:SOUND 0,1:SOUND CHM,4:SOUND 0,1:SOUND B,20:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND A,20:SOUND 0,1
272 SOUND A,8:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,12:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND D,20:SOUND 0,1
273 SOUND E,8:SOUND 0,1:SOUND FH,20:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,20:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND FH,20:SOUND 0,1
274 SOUND E,8:SOUND 0,1:SOUND E,8:SOUND 0,1:SOUND D,20
275 RETURN
280 CLS
PRINT""
PRINT" WHICH SET OF WORDS WOULD YOU LIKE TO STUDY?"
PRINT""
PRINT" 1. Pages 2 and 4"
PRINT" 2. Pages 6 and 12"
INPUT CHC
285 IF CHC>2 THEN BEEP:GOTO 280
IF CHC=1 THEN RESTORE 500:GOTO 290
IF CHC=2 THEN RESTORE 506:GOTO 290
290 N=N+1
S(N)=CHC
300 CLS
305 ITEM = ITEM +1
310 LINE(10,20)-(470,50),,BF:LINE(12,22)-(468,48),30,BF:LINE(300,22)-(302,48),,BF
312 CALL MOVETO(15,40):PRINT NOMEN$
315 CALL MOVETO(307,40):PRINT"SCORE = "SCORE" %"
320 READ LW$,LG$,GEN$
321 IF LW$ = "CHOICE" THEN 450
322 IF LW$ = "END" THEN 475
325 CALL MOVETO(20,100):PRINT" What is the gender of " LW$" - "LG$" ?"
330 LINE(75,125)-(150,200),,B:LINE(77,127)-(148,198),,B:LINE(100,175)-(100,150):LINE-(113,163):LINE-(125,150):LINE-(125,175)
331 CIRCLE(250,163),38:CIRCLE(250,163),35:LINE(238,175)-(238,150):LINE-(263,150):LINE(238,163)-(250,163)
332 LINE(387,125)-(350,163):LINE-(387,200):LINE-(425,163):LINE-(387,125):LINE(387,127)-(352,163):LINE-(387,198):LINE-(423,163):LINE-(387,127):LINE(375,175)-(375,150):LINE-(400,175):LINE-(400,150)
335 CALL MOVETO(20,250):PRINT"CLICK ON YOUR CHOICE WITH MOUSE ARROW."
336 LINE (420,220)-(470,240),,BF:CALL MOVETO (426,235):PRINT" QUIT "
340 BM=0
341 BM=MOUSE(0)
342 IF BM <>-1 THEN 340
343 X=MOUSE(1)
344 Y=MOUSE(2)
345 IF Y>125 AND Y< 200 THEN 346 ELSE 351
346 IF X>75 AND X<150 THEN GDR$ = "M":GOTO 370
348 IF X>200 AND X<275 THEN GDR$ = "F":GOTO 370
350 IF X>350 AND X<4
|