0 'PETREV.BA - BY JANET GOLDENBERG
1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:CALL17001:PRINT@13," PET REVEILLE ":CALL17006:'TRANSCRIBED BY J. GOLDENBERG
3 PRINT "Play this tune in any of 9 octaves,":PRINT"each octave higher than the other.":PRINT "   1-5 = HUMANS      6 = YOU AND DOG":PRINT "   7-8 = DOGS, CATS  9 = BATS, NATO":PRINT:PRINT"Pick your octive (1-9)";
4 R$=INKEY$:IFR$=""THEN4ELSER=VAL(R$)
5 IF R=1 THEN X=1:GOTO15
6 IF R=2 THEN X=2:GOTO15
7 IF R=3 THEN X=4:GOTO15
8 IF R=4 THEN X=8:GOTO15
9 IF R=5 THEN X=16:GOTO15
10 IF R=6 THEN X=32:GOTO15
11 IF R=7 THEN X=64:GOTO15
12 IF R=8 THEN X=128:GOTO15
13 IF R=9 THEN X=256:GOTO15
14 GOTO4
15 CLS:PRINT:PRINT:PRINT:PRINT"   This is playing at level";R:G=12538/X:C=9394/X:E=7456/X:GP=6269/X:GOSUB 21:SOUND C,8:SOUND E,16:SOUND C,8:GOSUB 21:SOUND G,8:SOUND C,24:FOR J=1 TO 5:SOUND E,8:NEXT J:SOUND GP,16:SOUND E,8:SOUND C,8
16 SOUND E,8:SOUND C,8:SOUND E,8:SOUND C,8:SOUND E,16:SOUND C,8:FOR J=1 TO 5:SOUND E,8:NEXT J:SOUND GP,16:SOUND E,8:SOUND C,8:SOUND G,8:SOUND G,4:SOUND G,4:SOUND G,8:SOUND G,8:SOUND C,24:CLS:PRINT:PRINT:PRINT:PRINT"   Would you like an encore? (Y/N)"
17 E$=INKEY$:IFE$=""THEN17
18 IF (E$="Y") OR (E$="y") THEN 2
19 IF (E$="N") OR (E$="n") THEN MENU
20 GOTO17
21 SOUND G,8:FOR I=1 TO 2:SOUND C,8:SOUND E,4:SOUND C,4:SOUND G,8:SOUND E,8:NEXT I:SOUND C,8:SOUND E,4:SOUND C,4:SOUND G,8:RETURN