MrCBASIC/AUTHORS/athrs.TXT

5 DIM SCN(8000):DIM BUT(300):DIM BTN(300)
        DIM Wf%(255):DIM Wg%(255):DIM Wa%(255)
        FOR I=0 TO 127
        Wf%(I)=127
        Wf%(255-I)=-128
        NEXT I
        FOR I=127 TO 0 STEP -1
        I2=I+2
        Wg%(I)=I2-128
        Wg%(255-I)=I2-128
        NEXT I
        FOR I=255 TO 0 STEP -1
        Wa%(I)=I-128
        NEXT I
        GOTO 10
6 WAVE 0,Wa%
        WAVE 1,SIN
        WAVE 2,SIN
        WAVE 3,SIN
        MUS=0
7 MUS=MUS+1
        SOUND WAIT
        SOUND 1175,3.5,,0
        SOUND 0,.5,,0
        SOUND 1175,1.8,,0
        SOUND 0,.2,,0
        SOUND 1175,2,,0
        SOUND 880,4,,0
        SOUND 740,4,,0
        SOUND 440,8,,1
        SOUND 370,8,,1
        SOUND 294,16,,2
        SOUND RESUME
        SOUND WAIT
        SOUND 784,4,,0
        SOUND 988,4,,0
        SOUND 880,8,,0
        SOUND 494,4,,1
        SOUND 392,4,,1
        SOUND 370,8,,1
        SOUND 294,16,,2
        SOUND RESUME
        SOUND WAIT
        SOUND 1174,3.5,,0
        SOUND 0,.5,,0
        SOUND 1174,4,,0
        SOUND 880,4,,0
        SOUND 740,4,,0
        SOUND 440,8,,1
        SOUND 370,8,,1
        SOUND 294,16,,2
        SOUND RESUME
        SOUND WAIT
        SOUND 698,4,,0
        SOUND 740,4,,0
        SOUND 587,8,,0
        SOUND 440,8,,1
        SOUND 370,8,,1
        SOUND 277,8,,2
        SOUND 294,8,,2
        SOUND RESUME
        IF MUS<2 THEN 7
        RETURN
8 MUS=MUS+1
        SOUND WAIT
        SOUND 698,4,,0
        SOUND 740,4,,0
        SOUND 659,2,,0
        SOUND 587,2,,0
        SOUND 494,4,,0
        SOUND 0,1,,1
        SOUND 440,7,,1
        SOUND 0,1,,1
        SOUND 392,7,,1
        SOUND 0,1,,2
        SOUND 294,7,,2
        SOUND 0,1,,2
        SOUND 294,7,,2
        SOUND RESUME
        SOUND WAIT
        SOUND 698,2,,0
        SOUND 740,3.8,,0
        SOUND 0,.2,,0
        SOUND 740,2,,0
        SOUND 440,8,,0
        SOUND 0,.2,,1
        SOUND 440,3.8,,1
        SOUND 0,4,,1
        SOUND 370,8,,1
        SOUND 0,.2,,2
        SOUND 294,3.8,,2
        SOUND 0,4,,2
        SOUND 294,8,,2
        SOUND RESUME
9 SOUND WAIT
        SOUND 698,4,,0
        SOUND 740,4,,0
        SOUND 659,2,,0
        SOUND 587,2,,0
        SOUND 494,4,,0
        SOUND 0,1,,1
        SOUND 440,7,,1
        SOUND 0,1,,1
        SOUND 392,7,,1
        SOUND 0,1,,2
        SOUND 294,7,,2
        SOUND 0,1,,2
        SOUND 294,7,,2
        SOUND RESUME
        SOUND WAIT
        SOUND 440,5,,0
        SOUND 494,5,,0
        SOUND 587,12,,0
        SOUND 370,5,,1
        SOUND 392,5,,1
        SOUND 370,12,,1
        SOUND 0,5,,2
        SOUND 330,5,,2
        SOUND 294,12,,2
        SOUND RESUME
        RETURN
        

10 OPEN "Mr.C" FOR INPUT AS #1
        IMAGE$=INPUT$(LOF(1),1)
        PICTURE (40,30)-(455,269), IMAGE$
        CLOSE
        GOSUB 6
        FOR DLY=1 TO 1000:NEXT DLY
        CLS
15 CALL TEXTFONT(0):CALL TEXTSIZE(72)
        CALL MOVETO(100,70):PRINT "Author"
        CALL MOVETO(200,180):PRINT"Author"
        CALL TEXTFONT(3):CALL TEXTSIZE(12)
        GOSUB 8
        FOR DLY=1 TO 3000: NEXT DLY
16 PRINT,"THE GAME DISPLAYS A SCREEN WITH THE NAME OF AN AUTHOR AND"
        PRINT,"THE NAMES OF TWO OF HIS BOOKS."
        PRINT""
        PRINT,"THE GOAL IS TO FIND THE LOCATION IN COLUMN ONE OF THE NAME"
        PRINT,"OF THE FIRST BOOK  - - AND - -"
        PRINT,"THEN TO FIND THE NAME OF THE SECOND BOOK AT THE SAME TIME."
        PRINT""
        PRINT,"IF ONE FINDS ONLY THE FIRST ONE, THAT DOES NOT COUNT, "
        PRINT,"BOTH NAMES HAVE TO SHOW AT THE SAME TIME FOR A PLAYER"
        PRINT,"TO GET THE SCORE POINT."
        PRINT""
        INPUT "PRESS THE 'RETURN' KEY.", V
        
20 OPEN "scrn" FOR INPUT AS #1
        IMAGE$=INPUT$(LOF(1),1)
        PICTURE (0,0)-(496,310), IMAGE$
        CLOSE
        GET (0,0)-(496,310), SCN
        CLS
25 CALL MOVETO(50,50)
        INPUT"NAME OF PLAYER #1-- ", NOMEN1$
        IF NOMEN1$="" THEN BEEP:GOTO 25
26 CALL MOVETO(50,100)
        INPUT "NAME OF PLAYER #2-- ", NOMEN2$
        IF NOMEN2$="" THEN BEEP:GOTO 26
        CALL MOVETO(50,150)
        PRI