10 ' PYRAMIDC
20 MODE 1:BORDER 0:PAPER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"PyramidC.cmp"
60 FOR i=0 TO 3:INK i,0:NEXT i
70 POKE &A634,&C8:POKE &A635,0:POKE &A636,0:CALL &A60B
80 POKE &C7F1,&C9:CALL &C7D0
90 CALL &A60B

100 WINDOW #1,25,36,4,19
110 INK 0,0:INK 1,3:INK 2,15:INK 3,24
120 PEN #1,3:PRINT #1:PRINT #1,"Chamber":PRINT #1,"of":PRINT #1,"Lost":PRINT #1,"Songs:"
130 PRINT #1,"The peak":PRINT #1,"sings":PRINT #1,"under":PRINT #1,"ancient":PRINT #1,"tones."

140 LOCATE 13,20:PEN 2:PRINT "WHAT WILL YOU DO?"
150 PEN 3:LOCATE 4,22:PRINT " Press keys: 0-1-2-3-4-5-6-7"
160 PEN 2:LOCATE 4,24:PRINT " 8-Examine       9-Go down"

200 k$=INKEY$
205 IF k$="0" THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
210 IF k$="1" THEN SOUND 1,284,60:GOTO 300
220 IF k$="2" THEN SOUND 2,213,60:GOTO 200
230 IF k$="3" THEN SOUND 3,190,60:GOTO 200
240 IF k$="4" THEN SOUND 1,159,60:GOTO 200
250 IF k$="5" THEN SOUND 2,142,60:GOTO 200
260 IF k$="6" THEN SOUND 3,127,60:GOTO 200
270 IF k$="7" THEN SOUND 1,119,60:GOTO 200
285 IF k$="8" THEN GOTO 2000
286 IF k$="9" THEN RUN"PyramidA.bas"
290 IF k$<"0" OR k$>"9" THEN GOTO 200

300 k$=INKEY$
305 IF k$="0" THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
310 IF k$="1" THEN SOUND 1,284,60:GOTO 200
320 IF k$="2" THEN SOUND 2,213,60:GOTO 200
330 IF k$="3" THEN SOUND 3,190,60:GOTO 400
340 IF k$="4" THEN SOUND 1,159,60:GOTO 200
350 IF k$="5" THEN SOUND 2,142,60:GOTO 200
360 IF k$="6" THEN SOUND 3,127,60:GOTO 200
370 IF k$="7" THEN SOUND 1,119,60:GOTO 200
385 IF k$="8" THEN GOTO 2000
386 IF k$="9" THEN RUN"PyramidA.bas"
390 IF k$<"0" OR k$>"9" THEN GOTO 300

400 k$=INKEY$
405 IF k$="0" THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
410 IF k$="1" THEN SOUND 1,284,60:GOTO 200
420 IF k$="2" THEN SOUND 2,213,60:GOTO 500
430 IF k$="3" THEN SOUND 3,190,60:GOTO 200
440 IF k$="4" THEN SOUND 1,159,60:GOTO 200
450 IF k$="5" THEN SOUND 2,142,60:GOTO 200
460 IF k$="6" THEN SOUND 3,127,60:GOTO 200
470 IF k$="7" THEN SOUND 1,119,60:GOTO 200
485 IF k$="8" THEN GOTO 2000
486 IF k$="9" THEN RUN"PyramidA.bas"
490 IF k$<"0" OR k$>"9" THEN GOTO 400

500 k$=INKEY$
505 IF k$="0" THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
510 IF k$="1" THEN SOUND 1,284,60:GOTO 200
520 IF k$="2" THEN SOUND 2,213,60:GOTO 200
530 IF k$="3" THEN SOUND 3,190,60:GOTO 600
540 IF k$="4" THEN SOUND 1,159,60:GOTO 200
550 IF k$="5" THEN SOUND 2,142,60:GOTO 200
560 IF k$="6" THEN SOUND 3,127,60:GOTO 200
570 IF k$="7" THEN SOUND 1,119,60:GOTO 200
585 IF k$="8" THEN GOTO 2000
586 IF k$="9" THEN RUN"PyramidA.bas"
590 IF k$<"0" OR k$>"9" THEN GOTO 500

600 k$=INKEY$
605 IF k$="0" THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
610 IF k$="1" THEN SOUND 1,284,60:GOTO 200
620 IF k$="2" THEN SOUND 2,213,60:GOTO 200
630 IF k$="3" THEN SOUND 3,190,60:GOTO 200
640 IF k$="4" THEN SOUND 1,159,60:GOTO 700
650 IF k$="5" THEN SOUND 2,142,60:GOTO 200
660 IF k$="6" THEN SOUND 3,127,60:GOTO 200
670 IF k$="7" THEN SOUND 1,119,60:GOTO 200
685 IF k$="8" THEN GOTO 2000
686 IF k$="9" THEN RUN"PyramidA.bas"
690 IF k$<"0" OR k$>"9" THEN GOTO 600

700 k$=INKEY$
705 IF k$="0" THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
710 IF k$="1" THEN SOUND 1,284,60:GOTO 200
720 IF k$="2" THEN SOUND 2,213,60:GOTO 200
730 IF k$="3" THEN SOUND 3,190,60:GOTO 800
740 IF k$="4" THEN SOUND 1,159,60:GOTO 200
750 IF k$="5" THEN SOUND 2,142,60:GOTO 200
760 IF k$="6" THEN SOUND 3,127,60:GOTO 200
770 IF k$="7" THEN SOUND 1,119,60:GOTO 200
785 IF k$="8" THEN GOTO 2000
786 IF k$="9" THEN RUN"PyramidA.bas"
790 IF k$<"0" OR k$>"9" THEN GOTO 700

800 k$=INKEY$
805 IF k$="0" THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
810 IF k$="1" THEN SOUND 1,284,60:GOTO 200
820 IF k$="2" THEN SOUND 2,213,60:GOTO 200
830 IF k$="3" THEN SOUND 3,190,60:GOTO 200
840 IF k$="4" THEN SOUND 1,159,60:GOTO 200
850 IF k$="5" THEN SOUND 2,142,60:GOTO 200
860 IF k$="6" THEN SOUND 3,127,60:GOTO 200
870 IF k$="7" THEN SOUND 1,119,60:GOTO 900
885 IF k$="8" THEN GOTO 2000
886 IF k$="9" THEN RUN"PyramidA.bas"
890 IF k$<"0" OR k$>"9" THEN GOTO 800

900 k$=INKEY$
905 IF k$="0" THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
910 IF k$="1" THEN SOUND 1,284,60:GOTO 200
920 IF k$="2" THEN SOUND 2,213,60:GOTO 200
930 IF k$="3" THEN SOUND 3,190,60:GOTO 200
940 IF k$="4" THEN SOUND 1,159,60:GOTO 200
950 IF k$="5" THEN SOUND 2,142,60:GOTO 200
960 IF k$="6" THEN SOUND 3,127,60:GOTO 1000
970 IF k$="7" THEN SOUND 1,119,60:GOTO 200
985 IF k$="8" THEN GOTO 2000
986 IF k$="9" THEN RUN"PyramidA.bas"
990 IF k$<"0" OR k$>"9" THEN GOTO 900

1000 k$=INKEY$
1005 IF k$="0" THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
1010 IF k$="1" THEN SOUND 1,284,60:GOTO 200
1020 IF k$="2" THEN SOUND 2,213,60:GOTO 200
1030 IF k$="3" THEN SOUND 3,190,60:GOTO 200
1040 IF k$="4" THEN SOUND 1,159,60:GOTO 200
1050 IF k$="5" THEN SOUND 2,142,60:GOTO 1100
1060 IF k$="6" THEN SOUND 3,127,60:GOTO 200
1070 IF k$="7" THEN SOUND 1,119,60:GOTO 200
1085 IF k$="8" THEN GOTO 2000
1086 IF k$="9" THEN RUN"PyramidA.bas"
1090 IF k$<"0" OR k$>"9" THEN GOTO 1000

1100 k$=INKEY$
1105 IF k$="0" THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
1110 IF k$="1" THEN SOUND 1,284,60:GOTO 200
1120 IF k$="2" THEN SOUND 2,213,60:GOTO 200
1130 IF k$="3" THEN SOUND 3,190,60:GOTO 200
1140 IF k$="4" THEN SOUND 1,159,60:GOTO 1200
1150 IF k$="5" THEN SOUND 2,142,60:GOTO 200
1160 IF k$="6" THEN SOUND 3,127,60:GOTO 200
1170 IF k$="7" THEN SOUND 1,119,60:GOTO 200
1185 IF k$="8" THEN GOTO 2000
1186 IF k$="9" THEN RUN"PyramidA.bas"
1190 IF k$<"0" OR k$>"9" THEN GOTO 1100

1200 k$=INKEY$
1205 IF k$="0" THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
1210 IF k$="1" THEN SOUND 1,284,60:GOTO 200
1220 IF k$="2" THEN SOUND 2,213,60:GOTO 200
1230 IF k$="3" THEN SOUND 3,190,60:GOTO 200
1240 IF k$="4" THEN SOUND 1,159,60:GOTO 200
1250 IF k$="5" THEN SOUND 2,142,60:GOTO 1300
1260 IF k$="6" THEN SOUND 3,127,60:GOTO 200
1270 IF k$="7" THEN SOUND 1,119,60:GOTO 200
1285 IF k$="8" THEN GOTO 2000
1286 IF k$="9" THEN RUN"PyramidA.bas"
1290 IF k$<"0" OR k$>"9" THEN GOTO 1200

1300 k$=INKEY$
1305 IF k$="0" THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
1310 IF k$="1" THEN SOUND 1,284,60:GOTO 200
1320 IF k$="2" THEN SOUND 2,213,60:GOTO 200
1330 IF k$="3" THEN SOUND 3,190,60:GOTO 1400
1340 IF k$="4" THEN SOUND 1,159,60:GOTO 200
1350 IF k$="5" THEN SOUND 2,142,60:GOTO 200
1360 IF k$="6" THEN SOUND 3,127,60:GOTO 200
1370 IF k$="7" THEN SOUND 1,119,60:GOTO 200
1385 IF k$="8" THEN GOTO 2000
1386 IF k$="9" THEN RUN"PyramidA.bas"
1390 IF k$<"0" OR k$>"9" THEN GOTO 1300

1400 IF PEEK(&BE82)=0 THEN GOTO 1500
1410 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1420 PEN 3:PRINT "You replay the melody well.":PRINT "Yes, again..."
1430 PEN 2:PRINT:PRINT "Congrats, you might be the":PRINT "Beethoven of pyramids."
1440 PEN 3:PRINT:PRINT "Reminder: console is not a":PRINT "magic key dispenser!"
1450 PEN 1:PRINT:PRINT "A click rings, the trapdoor opens":PRINT "but sadly stays empty."
1460 PEN 3:PRINT:PRINT "Remember, you already took the":PRINT "Ankh-shaped key!"
1470 PEN 2:PRINT:PRINT "Apparently only your memory":PRINT "decided to take a key..."
1480 PEN 1:LOCATE 1,19:PRINT "Nice, huh?":PRINT "Of course, it's me!"
1490 PEN 3:LOCATE 15,25:INPUT " ENTER  ",en$
1495 GOTO 60

1500 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1510 PEN 3:PRINT "You press last note and":PRINT "miracle, the melody works!"
1520 PEN 2:PRINT:PRINT "Congrats, Beethoven, you proved":PRINT "playing three flute pieces in":PRINT "school was not totally useless."
1530 PEN 1:PRINT:PRINT "Console vibrates, click rings":PRINT "before trapdoor opens."
1540 PEN 3:PRINT:PRINT "An Ankh-shaped key falls":LOCATE 1,14:PRINT "gracefully, like a fat pigeon."
1550 PEN 2:PRINT:PRINT "You pick it up, add to inventory."
1560 PEN 3:PRINT:PRINT "Bravo, now explorer and musician."
1570 PEN 2:PRINT:PRINT "Even Indiana Jones could go back":PRINT"to bed."
1580 PEN 3:LOCATE 15,25:INPUT " ENTER  ",en$
1590 POKE &BE82,1:GOTO 60

2000 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
2010 PEN 3:PRINT "You climbed all the steps":PRINT "to the summit, the top":PRINT "room of the pyramid."
2020 PEN 1:PRINT:PRINT "And there...":PRINT "A strange console with":PRINT "buttons 0 to 7 awaits."
2025 PEN 3:LOCATE 9,7:PRINT "0":LOCATE 14,7:PRINT "7"
2030 PEN 2:PRINT:PRINT "Button 0 plays a full melody":LOCATE 8,9:PEN 3:PRINT "0":PEN 2:PRINT "familiar..."
2040 PEN 3:PRINT:PRINT "Others? Single notes, as if":PRINT "a musician struck mid-piece..."
2050 PEN 1:PRINT:PRINT "Having muscles is not enough," :PRINT "you also need an ear!"
2060 PEN 2:PRINT:PRINT "Good luck, maestro...":PEN 3:PRINT:PRINT "Banging drums won't help."
2080 PEN 3:LOCATE 15,25:INPUT " ENTER  ",en$
2090 GOTO 60
