mirror of
https://github.com/stevemac321/MrCBASIC.git
synced 2024-06-02 07:41:35 +00:00
1 line
7.6 KiB
Plaintext
1 line
7.6 KiB
Plaintext
|
3 DIM WF%(256)
FOR I=0 TO 127
WF%(I)= 127
WF%(255-I)=-128
NEXT I
10 CLS:CALL TEXTFONT(3)
20 DIM NOMEN$(30):DIM CARDS(3000):DIM SCORE(30):DIM INTCDS(3000):DIM BOX(100)
21 DIM X(30):DIM Y(30):DIM A$(10):DIM B$(10):DIM C$(10):DIM D$(10):DIM E$(10):DIM F$(10):DIM G$(10):DIM H$(10)
22 DIM I$(10):DIM J$(10):DIM K$(10):DIM L$(10):DIM M$(10):DIM N$(10):DIM O$(10):DIM P$(10):DIM Q$(10):DIM R$(10)
23 DIM S$(10):DIM T$(10):DIM U$(10):DIM X$(10):DIM Y$(10):DIM Z$(10)
24 DIM CA(10):DIM CB(10):DIM CC(10):DIM CD(10):DIM CE(10):DIM CF(10):DIM CG(10):DIM CH(10):DIM CI(10):DIM CJ(10)
25 DIM CK(10):DIM CL(10):DIM CN(10):DIM CM(10):DIM CO(10):DIM CP(10):DIM CQ(10):DIM CR(10):DIM CS(10):DIM CT(10)
26 DIM CU(10):DIM CX(10):DIM CY(10):DIM CZ(10)
30 BOBO=0:TRY =0:GAME = 1
50 WAVE 0, WF%
51 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3
52 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6
53 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5:FHT = 1397
55 SOUND CM,3:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND CM,3:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,8
56 SOUND C,3:SOUND 0,1:SOUND BB,4:SOUND 0,1:SOUND C,3:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND C,4:SOUND 0,8
57 SOUND CM,4:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND CM,2:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND DHM,4:SOUND 0,1:SOUND EM,6
160 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121)
161 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115)
162 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118)
163 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116)
164 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121)
165 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126)
166 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127)
167 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130)
168 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133)
169 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139)
170 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146)
171 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143)
172 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(
|