1 line
4.2 KiB
Plaintext
1 line
4.2 KiB
Plaintext
3 DIM MAP(9000):DIM BUT(200):DIM DET(9000)
|
|
DIM QMRK(200):DIM QSHD(200):DIM ANSM(200):DIM ASHD(200)
|
|
DIM MAGG(200):DIM MSHD(200):DIM DEMK(200):DIM DESH(200)
|
|
DIM RARR(200):DIM RSHD(200):DIM LARR(200):DIM LSHD(200)
|
|
DIM UARR(200):DIM USHD(200):DIM DARR(200):DIM DSHD(200)
|
|
DIM UNDO(200)
|
|
DIM Wf%(255):DIM Wg%(255)
|
|
FOR I=0 TO 127
|
|
Wf%(I)=127
|
|
Wf%(255-I)=-128
|
|
NEXT I
|
|
|
|
FOR I=255 TO 0 STEP -1
|
|
Wg%(I)=I-128
|
|
NEXT I
|
|
Q1=1:Q2=1:Q3=1:Q4=1:Q5=1:Q6=1:Q7=1:Q8=1:Q9=1:Q10=1:Q11=1:Q12=1:Q13=1:Q14=1
|
|
WAVE 0,Wf%
|
|
WAVE 1,Wg%
|
|
WAVE 2,Wg%
|
|
WAVE 3,Wg%
|
|
GOTO 19
|
|
|
|
4 OPEN "Mr.C" FOR INPUT AS #1
|
|
MUS = 0
|
|
CALL TEXTSIZE(24)
|
|
5 SOUND WAIT
|
|
SOUND 698,12,,0
|
|
SOUND (8/5)*698,12,,1
|
|
SOUND (8/7)*698,12,,2
|
|
SOUND 2*698,12,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 698,12,,0
|
|
SOUND (4/3)*698,12,,1
|
|
SOUND 2*698,12,,2
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 698,12,,0
|
|
SOUND (8/5)*698,12,,1
|
|
SOUND (8/7)*698,12,,2
|
|
SOUND 2*698,12,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 587,6,,0
|
|
SOUND (8/5)*587,6,,1
|
|
SOUND (8/7)*587,6,,2
|
|
SOUND 2*587,6,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 523,6,,0
|
|
SOUND (8/5)*523,6,,1
|
|
SOUND (8/7)*523,6,,2
|
|
SOUND 2*523,6,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 587,12,,0
|
|
SOUND (4/3)*587,12,,1
|
|
SOUND 2*587,12,,2
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 523,6,,0
|
|
SOUND (8/7)*523,6,,1
|
|
SOUND (8/5)*523,6,,2
|
|
SOUND 2*523,6,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 445,6,,0
|
|
SOUND (8/7)*445,6,,1
|
|
SOUND (8/5)*445,6,,2
|
|
SOUND 2*445,6,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 445,16,,0
|
|
SOUND (8/7)*445,16,,1
|
|
SOUND (4/3)*445,16,,2
|
|
SOUND 2*445,16,,3
|
|
SOUND RESUME
|
|
IF MUS=1 THEN 7
|
|
6 IMAGE$=INPUT$(LOF(1),1)
|
|
PICTURE (40,30), IMAGE$
|
|
CLOSE
|
|
SOUND WAIT
|
|
SOUND 587,12,,0
|
|
SOUND (8/7)*587,12,,1
|
|
SOUND (8/5)*587,12,,2
|
|
SOUND 2*587,12,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 587,12,,0
|
|
SOUND (4/3)*587,12,,1
|
|
SOUND 2*587,12,,2
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 587,12,,0
|
|
SOUND (8/7)*587,12,,1
|
|
SOUND (8/5)*587,12,,2
|
|
SOUND 2*587,12,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 523,6,,0
|
|
SOUND (8/7)*523,6,,1
|
|
SOUND (8/5)*523,6,,2
|
|
SOUND 2*523,6,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 445,6,,0
|
|
SOUND (8/7)*445,6,,1
|
|
SOUND (5/7)*445,6,,2
|
|
SOUND 2*445,6,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 523,6,,0
|
|
SOUND (8/7)*523,6,,1
|
|
SOUND (8/5)*523,6,,2
|
|
SOUND 2*523,6,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 445,6,,0
|
|
SOUND (8/7)*445,6,,1
|
|
SOUND (8/5)*445,6,,2
|
|
SOUND 2*445,6,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 392,6,,0
|
|
SOUND (8/7)*392,6,,1
|
|
SOUND (8/5)*392,6,,2
|
|
SOUND 2*392,6,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 392,16,,0
|
|
SOUND 400,16,,1
|
|
SOUND (4/3)*392,16,,2
|
|
SOUND 2*396,16,,3
|
|
SOUND RESUME
|
|
MUS=1:GOTO 5
|
|
7 SOUND WAIT
|
|
SOUND 392,12,,0
|
|
SOUND (16/12)*392,12,,1
|
|
SOUND (19/12)*392,12,,2
|
|
SOUND 2*392,12,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 587,12,,0
|
|
SOUND (16/12)*587,12,,1
|
|
SOUND (19/12)*587,12,,2
|
|
SOUND 2*587,12,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 445,12,,0
|
|
SOUND (16/12)*445,12,,1
|
|
SOUND (19/12)*445,12,,2
|
|
SOUND 2*445,12,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 392,12,,0
|
|
SOUND (16/12)*392,12,,1
|
|
SOUND (19/12)*392,12,,2
|
|
SOUND 2*392,12,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 445,12,,0
|
|
SOUND (16/12)*445,12,,1
|
|
SOUND (19/12)*445,12,,2
|
|
SOUND 2*445,12,,3
|
|
SOUND RESUME
|
|
SOUND WAIT
|
|
SOUND 349,12,,0
|
|
SOUND (16/12)*349,12,,1
|