1 line
1.3 KiB
Plaintext
1 line
1.3 KiB
Plaintext
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
|