home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mega CD-ROM 1
/
megacd_rom_1.zip
/
megacd_rom_1
/
HANDICAP
/
SIGN51_1.ZIP
/
TDAY.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-11-11
|
3KB
|
82 lines
10 KEY OFF:CLS:SCREEN 1:COLOR 1,7
12 IF XX = 3 THEN 110
13 GOSUB 8500
14 A = 0:FOR T = 0 TO 9:CLS:DRAW "S14"
15 RANDOMIZE TIMER:L=INT(RND*7)+1:IF L=SV THEN 15
16 TR=0
18 GOSUB 150
20 ON L GOSUB 170,190,230,260,290,330,370
21 GOSUB 4000
22 K3$=INKEY$:IF K3$="" THEN 20
24 IF ASC(K3$)=27 THEN CHAIN "TEST1",,ALL
26 G=ASC(K3$)-48:IF G>7 OR G<0 THEN 20
30 IF L=G THEN A= A +1:LOCATE 6,25:PRINT"CORRECT!":ON XX GOSUB 6050:FOR X= 0 TO 2000:NEXT:GOTO 50
35 TR=TR+1:IF TR=1 THEN LOCATE 5,10: PRINT"TRY AGAIN.":GOSUB 9000:GOTO 20
40 LOCATE 5,25:PRINT"NO, IT'S "; L :ON XX GOSUB 6080
45 FR$(T)=LS$(L):FOR X =1 TO 2000:NEXT:GOTO 50
50 SV=L:NEXT
60 CLS:PRINT TAB(10)"YOUR SCORE = ";A " OUT OF 10.":IF A <>10 THEN PRINT:PRINT TAB(10)"MISSED WERE:"
61 PRINT
65 FOR I=0 TO 9:PRINT TAB(10) FR$(I):NEXT
66 PRINT
70 LOCATE 16,10:INPUT "PLAY AGAIN (Y/N)";AN$
80 IF AN$="Y" THEN 14
90 IF AN$="N" THEN CHAIN "TEST1",,ALL
100 GOTO 70
110 CLS:GOSUB 150 'display menu
112 K3$=INKEY$:IF K3$="" THEN 112
114 IF ASC(K3$)=27 THEN CHAIN "TEST1",,ALL
116 G=ASC(K3$)-48:IF G>7 OR G<0 THEN 112
120 L=G:DRAW "S14"
130 ON L GOSUB 170,190,230,260,290,330,370
135 GOSUB 4000
140 GOTO 110
150 LOCATE 22,20:PRINT"PRESS A NUMBER <ESC> FOR MENU"
152 LOCATE 1,9:PRINT"1=MON:2=TUE:3=WED:4=THU:
153 LOCATE 3,12:PRINT"5=FRI:6=SAT:7=SUN:
170 M1$="U3H3U6E1R2L1 H1R2D1D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
172 M2$="U5E1R1F1D4G1L1H1F1R1E1U3R2F2D3G2D2G3D3
175 A$=M1$+M2$
180 DRAW "C3": :RETURN
190 T1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4 E1R2D5G1L1H1F1R1E1"
200 T2$="U4H2R2D1 E1R1F1D3G1L1H1F1R1E1U1F2 D5G3D4"
210 A$=T1$+T2$
220 DRAW "C3": :RETURN
230 W1$="U2 H3U5r2f2g1l1h1f1r1e1h2 E1H4U1E1R1F4U5E1R1F1D5E5R1F1D1G5 F1 l3g1d1f1r2l2h1u1e1r4f1d5g2d2
240 A$=W1$
250 DRAW "C3": :RETURN
260 H$="U3H3R2E1U1L3D2U2R3E1U2L5D1F2H1R2L2U1U1L5H1U1R8L7H1U1E1R11F5G1L5G1D2F1R2L2H1U2E1R5E1F2D3G2D2
270 A$=H$
280 DRAW "C3": :RETURN
290 F1$="U1H1U3H4U2E2R1D1G1D1F1U2E2R1D1G1D2F1U3E3R1D2G1D2F1E3R2F2D1L3G1D2F1R1"
300 F2$="E1U2R2D3G3L1G2
310 A$=F1$+F2$
320 DRAW "C3": :RETURN
330 S1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
340 S2$="U4E1R1F1D3G1L1H1F1R1E1U1F2L7F2R1L1H2R7D4G3D3"
350 A$=S1$+S2$
360 DRAW "C3": :RETURN
370 N5$="U2H2U3 h3u2e1r1d1f3u1h2u4e1r1f1d2f2U9E1R1F1D7f1e1U8E1R1F1D11f2r2e1r3d1g4l2d1g2d2
380 A$=N5$
390 DRAW "C3": :RETURN
4000 IF ZZ=0 THEN ZZ=300
4002 KK=6000/ZZ:X=130:Y=100
4005 R=15:FOR I=R TO -R STEP-5
4010 TU = SQR((R*R)-(I*I))
4020 X=X +I:Y=Y +TU:DRAW "C0M=X;,=Y;":DRAW "C3":DRAW A$:DRAW "C0M=X;,=Y;":DRAW A$
4030 NEXT
4040 FOR I=-R TO R STEP 5
4050 TU = SQR((R*R)-(I*I))
4060 X=X +I:Y=Y -TU:DRAW "C0M=X;,=Y;":DRAW "C3":DRAW A$:DRAW "C0M=X;,=Y;":DRAW A$
4070 NEXT
4071 IF ZZ=300 THEN ZZ=0
4072 RETURN
6050 PLAY "L64O3CDEFGAB>C"
6070 RETURN
6080 FOR X=130 TO 115 STEP -5
6090 SOUND X,2:NEXT:RETURN
8000 DATA MONDAY,TUESDAY, WEDNESDAY, THURSDAY,FRIDAY,SATURDAY,SUNDAY
8500 FOR I=1 TO 7:READ LS$(I):NEXT
8550 FOR T=0 TO 9:FR$(T)="":NEXT:RETURN
9000 FOR DL=0 TO 1500+ZZ:NEXT:RETURN