mirror of
https://github.com/stevemac321/MrCBASIC.git
synced 2024-06-11 18:29:32 +00:00
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,1
|