5 DIM BUT(200):DIM SCN(10000)
        DIM Q1$(5,4):DIM Q2$(5,4):DIM Q3$(5,4)
        DIM A1$(5,4):DIM A2$(5,4):DIM A3$(5,4):DIM A4$(5,4):DIM A5$(5,4)
        DIM ANS(5,4)
        DIM WF%(255):DIM WS%(255)
        FOR I=255 TO 0 STEP -1
                WF%(I)=I-128
        NEXT I
        FOR I=0 TO 127
                WS%(I)=127
                WS%(255-I)=-128
        NEXT I
        MUS = 0
        OPEN "HIST:title" FOR INPUT AS #1
        IMAGO$=INPUT$(LOF(1),1)
        CLOSE #1

10 OPEN "HIST:Mr.C" FOR INPUT AS #1
        IMAGE$=INPUT$(LOF(1),1)
        PICTURE (40,30)-(455,269), IMAGE$
        CLOSE
11 WAVE 0,WF%
        WAVE 1,SIN
        WAVE 2 ,SIN
        WAVE 3,WS%

12 SOUND 784,4,,0
        SOUND WAIT
        SOUND 784,6,,0
        SOUND 880,2,,0
        SOUND 784,4,,0
        SOUND 262,4,,1
        SOUND 330,4,,1
        SOUND 392,4,,1
        SOUND 49,2,,3
        SOUND RESUME
        SOUND WAIT
        SOUND 659,4,,0
        SOUND 523,4,,0
        SOUND 659,4,,0
        SOUND 262,4,,1
        SOUND 330,4,,1
        SOUND 392,4,,1
        SOUND 65,2,,3
        SOUND RESUME
        SOUND WAIT
        SOUND 784,6,,0
        SOUND 880,2,,0
        SOUND 784,4,,0
        SOUND 262,4,,1
        SOUND 330,4,,1
        SOUND 392,4,,1
        SOUND 49,2,,3
        SOUND RESUME
        SOUND WAIT
        SOUND 659,7.5,,0