Macintosh-SW
/
MrCBASIC
mirror of https://github.com/stevemac321/MrCBASIC.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
MrCBASIC/VOC7/VOC7.TXT

1 line
7.8 KiB
Plaintext
Raw Blame History

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
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 200:GOSUB 330
312 X=100:Y=225:N=2:GOSUB 212:GOSUB 330
315 X=250:Y=162:N=0:GOSUB 214:GOSUB 330
317 X=400:Y=110:N=3:GOSUB 216:GOSUB 330
319 X=400:Y=225:N=4:GOSUB 218:GOSUB 330
322 GET (10,10)-(480,280),SCR
325 CLS
327 GOTO 350
330 LINE(X-50,Y-50)-(X+50,Y+50),,BF
331 FOR R=0 TO 46:CIRCLE(X,Y),R,30:NEXT R
333 CALL MOVETO (X-4,Y+35):PRINT N
335 RETURN
350 PRINT"":PRINT"":PRINT" IF YOUR NAME DOES NOT REGISTER, CLICK ON THE CURSOR."
351 PRINT"":INPUT" Please type in your name and press the ENTER key."; NOMEN$
352 IF NOMEN$="" THEN BEEP:CLS:GOTO 350
PRINT"":PRINT
PRINT"WHICH SET WOULD YOU LIKE TO DO?"
INPUT"ANY NUMBER FROM 1 THROUGH 10"; SET
353 GOTO 450
400 CLS:PRINT"":PRINT"":GOSUB 230
401 PRINT" You now have three choices:"
403 PRINT""
404 PRINT,"1. QUIT"
405 PRINT,"2. START OVER"
406 PRINT,"3. CONTINUE"
407 PRINT"":PRINT" Press the number key of your choice."
410 W$ = ""
411 W$ = INKEY$
413 IF W$ = "1" THEN 950
414 IF W$ = "2" THEN RESTORE: NUM=0:ITEM=0:GOTO 500
415 IF W$ = "3" THEN SECTION=SECTION+1:GOTO 500
420 GOTO 410
425 CLS:PRINT"":PRINT"":GOSUB 250
430 PRINT" That is all the material there is. At this time then, you may:"
435 PRINT""
436 PRINT,"1. QUIT"
437 PRINT,"2. START OVER"
438 PRINT"":PRINT" Press the number key of your choice."
440 GOTO 410
450 ON SET GOTO 451,452,453,454,455,456,457,458,459,460
451 RESTORE 1000: GOTO 500
452 RESTORE 1006: GOTO 500
453 RESTORE 1011: GOTO 500
454 RESTORE 1016: GOTO 500
455 RESTORE 1021: GOTO 500
456 RESTORE 1026: GOTO 500
457 RESTORE 1031: GOTO 500
458 RESTORE 1036: GOTO 500
459 RESTORE 1041: GOTO 500
460 RESTORE 1046: GOTO 500
500 CLS:READ L$,E1$,E2$,E3$,E4$,ANS
505 BOOP = 0
510 IF L$ = "CHOICE" THEN GOTO 400
511 IF L$ = "END" THEN GOTO 425
520 PUT (10,10),SCR
522 NUM = NUM +1
525 CALL MOVETO (35,42):PRINT NOMEN$" SECTION "SECTION
527 CALL MOVETO (370,42):PRINT SCORE
528 CALL MOVETO (200,250):PRINT"TO QUIT, PRESS 9"
530 CALL MOVETO (210,160):PRINT L$
533 CALL MOVETO (60,108):PRINT E1$
535 CALL MOVETO (60,223):PRINT E2$
537 CALL MOVETO (360,108):PRINT E3$
539 CALL MOVETO (360,223):PRINT E4$
540 SCORE = SCORE +5
545 GET (10,10)-(480,300),SCN
550 A$ = ""
551 A$ = INKEY$
552 IF A$ = "9" THEN 950
555 IF A$ = "1" OR A$ = "2" OR A$ = "3" OR A$ = "4" THEN 560
556 GOTO 550
560 IF VAL(A$) = ANS THEN BOOP =BOOP +1:GOTO 600
562 SCORE = SCORE -2:SOUND CM,5:BOOP = -5
563 CALL MOVETO (20,290):PRINT "THAT IS NOT CORRECT, TRY AGAIN"
564 FOR DLAY = 1 TO 1000:NEXT DLAY:CLS:PUT (10,10), SCN
567 GOTO 550
600 CLS:GOSUB 270
605 PRINT"":PRINT""
606 PRINT" That is correct !
607 IF BOOP = 1 THEN 610 ELSE 615
610 PRINT" Very good."
611 PRINT"":PRINT"":PRINT"":PRINT" CONGRATULATIONS ! ! !"
612 PRINT"":PRINT"":PRINT" YAY ! ! WOW ! ! ETC. ! ! "
615 FOR DLAY = 1 TO 1000:NEXT DLAY
618 GOTO 500
950 CLS
951 PRINT"":PRINT""
955 PRINT" "NOMEN$" did "NUM" items "
956 PRINT""
957 PRINT" and attained a score of " SCORE
958 PRINT"":PERC = INT((SCORE/(NUM * 5))* 100)
959 PRINT " which is "PERC" %."
960 PRINT"":PRINT"":GOSUB 250
965 PRINT" You may go get the teacher to see this score and you might get"
966 PRINT" some points. When you have finished, press the RETURN key."
968 PRINT" Please close the disc and return it to the files."
970 INPUT V
980 END
1000 DATA TERRA,TRY,GIRL,SAILOR,LAND,4,PORTA,PORT,CARRY,GATE,WALL,3,NAUTA,NOT,SAILOR,SOLDIER,FOREST,2,SILVA,SYLVIA,TREE,FOREST,SILLY,3,GLORIA,GLORIA,FAME,PORTALS,MASS,2
1002 DATA ORAT,HE PRAYS,HE PRAISE,THEY PRAY,MOUTH,1,VIDENT,HE SEES,HE SEIZE,THEY SEE,WIDE,3,NON,NEVER,NONE,NINE,NOT,4,LAUDAT,HE SHOUTS,THEY SHOUT,HE PRAISES,LOUD,3,PROVINCIA,STATE,PROVINCE,PROVINCIAL,PROVENAL,2
Reference in New Issue View Git Blame Copy Permalink