10GOTO 70
20DEF PROCWIN
30SOUND 1,-15,53,5
40SOUND 1,-15,69,5
50SOUND 1,-15,81,5
60ENDPROC
70ON ERROR GOTO 1670
80REM REACTIONS
90REM DAVID ECKFORD
100LET Z=0
110LET HI=0
120MODE4:PROCSTARS
130PRINT'''" REACTIONS"
140PRINT'" BY DAVID ECKFORD"
150PRINT'" COPYRIGHT 1987"
160PRINT'" INSTRUCTIONS?":*FX15,0
170INPUT" ",C$
180IF C$<>"Y" THEN 330
190CLS:PROCSTARS
200PRINT'" IN THE FIRST STAGE,YOU MUST
PRESS THE NUMBER CORRESPONDING TO THE
COLOUR WITH THE MOST BOXES WHEN THEY HA
VE STOPPED APPEARING (1 RED 2 YELLOW 3
WHITE 4 BLACK) SO IF YELLOW HAD THE
MOST BOXES"
210PRINT" YOU WOULD HAVE TO PRESS 2 IN
HALF A SEC TO GET A POINT"
220PRINT'" IF YOU GET ONE WRONG, YOU P
ROCEED TO THE NEXT STAGE. YOU MUST PR
ESS THE NUMBER GIVEN IN THREE-QUART
ERS OF A SECOND, OR YOU GO ON TO THE
NEXT STAGE!"
230A=GET:CLG:CLS:PROCSTARS
240PRINT'" IN THE THIRD SECTION, YOU W
ILL BE ASKED TO MEMORISE AN 8- OR 9-DIGI
T NUMBER,AND THEN REPEAT IT !"
250PRINT'" IN THE FOURTH SECTION, A BO
X WILL FLASH UP ON A 12-BY-10 GRID. YOU
MUST NAME BOTH X AND Y COORDINATES"
260A=GET:CLS:PROCSTARS
270PRINT'" THE FIFTH STAGE IS A SERIES
OF SUMS - YOU HAVE FIVE SECONDS TO AN
SWER THE TIMES AND DIVIDE SUMS, AND
TEN TO GO FOR THE TAKE AND PLUS."
280PRINT'" TAKE NOTE - THE MAX. NUMBER
OF POINTS YOU MAY GET ON ANY LEVEL IS
15, EXCEPT ON THIS LEVEL WHERE YOU CAN
GET 20."
290A=GET:CLS:PROCSTARS
300PRINT'" IN THE SIXTH STAGE YOU WILL
BE GIVEN A SERIES OF FOOTBALL TEAMS AN
D HOW MANY GOALS THEY SCORED IN THE LA
ST SEASON. YOU MUST THEN GIVE THE TEAM
S BACK, REARRANGED IN THE ORDER OF
MOST GOALS FIRST."
310PRINT'" IF YOU MUCK THIS UP, THE GA
ME WILL END AND YOUR FINAL SCORE DISPLA
YED."
320A=GET
330CLS:PROCSTARS:PRINT'''''''''''" GOO
D LUCK !"
340PRINT'" PRESS A KEY"
350*FX 15,0
360A=GET
370S=0:MODE5
380LET S=0
390CLS:CLG
400N=100:O=0:GCOL 0,1
410MOVE O,N+50:DRAW O+100,N+50:MOVE O+
50,N:DRAW O+50,N+100
420IF O=0 THEN N=N+100:IF N=900 THEN O
=100:N=900:GOTO 410
430IF N=900 AND O>0 THEN O=O+100:IF O=
1300 THEN O=1200:N=900:GOTO 410
440IF O=1100 THEN N=N-100:IF N=-100 TH
EN N=0:O=1000:GOTO 410
450IF N=0 THEN O=O-100:IF O=0 THEN 470
460GOTO 410
470VDU 24,0;0;1279;1023;
480VDU 28,4,20,14,11
490T=TIME
500IF TIME-T=100 THEN 510 ELSE 500
510GCOL 0,5
520MOVE 200,200
530DRAW 200,800
540DRAW 1000,800
550DRAW 1000,200
560DRAW 200,200
570LET A=RND(5)+4
580LET B=RND(5)+4
590LET C=RND(5)+4
600LET D=RND(5)+4
610IF A>B AND A>C AND A>D THEN E=2:GOT
O 660
620IF B>A AND B>C AND B>D THEN E=1:GOT
O 660
630IF C>A AND C>B AND C>D THEN E=3:GOT
O 660
640IF D>A AND D>B AND D>C THEN E=4:GOT
O 660
650GOTO 570
660LET X=0:LET Y=400
670FORR=1 TO A
680IF Y=100 LET X=X+100:GOTO 710
690LET Y=Y-100
700LET F=2
710PROCBLOCK
720NEXT R
730LET X=0:LET Y=600
740FORR=1 TO B
750IF Y=1000 LET X=X+100:GOTO 770
760LET Y=Y+100
770LET F=1
780PROCBLOCK
790NEXT R
800LET X=600:LET Y=1000
810FORR=1 TO C
820 IF X=1100 LET Y=Y-100:GOTO 840
830LET X=X+100
840LET F=3
850PROCBLOCK
860NEXT R
870LET X=1100:LET Y=500
880FORR=1 TO D
890IF Y=100 LET X=X-100:GOTO 910
900LET Y=Y-100
910LET F=4
920PROCBLOCK
930NEXT R
940*FX 15,1
950A=INKEY(50)
960IF A=49 AND E=1 THEN 1010
970IF A=50 AND E=2 THEN 1010
980IF A=51 AND E=3 THEN 1010
990IF A=52 AND E=4 THEN 1010
1000PROCLOSE
1010S=S+1:COLOUR 129:CLS:SOUND 1,-15,53
,5:SOUND 2,-15,69,5:SOUND 3,-15,81,5:IF
S=15 PROCLOSE
1020GOTO 390
1030DEF PROCBLOCK
1040GCOL 0,F
1050MOVE X,Y-100
1060MOVE X,Y
1070PLOT 85,X+100,Y-100
1080PLOT 85, X+100,Y
1090GCOL 0,0
1100MOVE X,Y
1110DRAW X+100,Y
1120DRAW X+100,Y-100
1130DRAW X,Y-100
1140DRAW X,Y
1150ENDPROC
1160DEF PROCLOSE
1170COLOUR129
1180CLS
1190PRINT'" STAGE"
1200PRINT" OVER"
1210PRINT'" PRESS"
1220PRINT" A KEY"
1230A=GET
1240CLS
1250PRINT'" YOU"
1260PRINT" GOT "
1270PRINT" ";S" POINTS"
1280A=GET:GOTO 1350
1290DEF PROCSTARS
1300FORR=1 TO 100
1310LET X=RND(1279):LET Y=RND(1024)
1320GCOL 0,7:PLOT 69,X,Y
1330NEXT R
1340ENDPROC
1350CLG:CLS:PROCSTARS
1360C=0
1370U=RND(10)-1
1380PRINT'" PRESS...":FORR=1 TO 1000:NE
XT R
1390PRINT'" ";U
1400*FX 15,0
1410A=INKEY(75)
1420IF A-48=U THEN 1440
1430CLS:GOTO 1450
1440CLS:S=S+1:C=C+1:IF C=15 THEN 1430 E
LSE 1370
1450PRINT'" STAGE 2"
1460LET C=0
1470PRINT" OVER"
1480PRINT'" SCORE:";S
1490*FX15,0
1500A=GET:*FX 15,0
1510A=GET:CLS
1520LET U=RND(99999999)
1530IF U<10000000 THEN 1520
1540PRINT'" REMEMBER ..."
1550PRINT'"";U
1560T=TIME
1570IF TIME-T>500 THEN 1580 ELSE 1570
1580CLS
1590PRINT'" WELL ?"
1600INPUT" ",A
1610IF A=U THEN 1630
1620IF A<>U THEN 1750
1630LET S=S+1:PROCWIN:LET C=C+1:CLS:LET
U=RND(999999999):IF U<100000000 THEN 16
50:IF C=15 THEN 1750
1640GOTO 1540
1650LET U=RND(999999999):IF U<100000000
THEN 1650
1660GOTO 1540
1670CLS
1680PRINT'" GAME "
1690PRINT" OVER"
1700PRINT'" SCORE=";S
1710IF S>HI LET HI=S
1720PRINT'" HIGH SCORE=";HI
1730*FX15,0
1740A=GET:GOTO 380
1750COLOUR128
1760CLS
1770PRINT'" STAGE 3"
1780PRINT" OVER"
1790PRINT'" SCORE:";S
1800LET C=0
1810*FX15,0
1820A=GET
1830COLOUR128
1840CLS
1850MOVE 0,0
1860LET X=0:LET Y=0
1870DRAW X,1000
1880MOVE X+100,0
1890LET X=X+100:IF X=1300 THEN 1910
1900GOTO 1870
1910MOVE 0,Y
1920DRAW 1200,Y
1930LET Y=Y+100:IF Y=1100 THEN 1950
1940GOTO 1910
1950A=RND(12)
1960IF A=1 THEN X=0
1970IF A=2 THEN X=100
1980IF A=3 THEN X=200
1990IF A=4 THEN X=300
2000 IF A=5 THEN X=400
2010IF A=6 THEN X=500
2020IF A=7 THEN X=600
2030IF A=8 THEN X=700
2040IF A=9 THEN X=800
2050IF A=10 THEN X=900
2060IF A=11 THEN X=1000
2070IF A=12 THEN X=1100
2080 A=RND(10)
2090IF A=1 THEN Y=0
2100IF A=2 THEN Y=100
2110IF A=3 THEN Y=200
2120IF A=4 THEN Y=300
2130IF A=5 THEN Y=400
2140IF A=6 THEN Y=500
2150IF A=7 THEN Y=600
2160IF A=8 THEN Y=700
2170IF A=9 THEN Y=800
2180IF A=10 THEN Y=900
2190MOVE X,Y
2200MOVE X+100,Y
2210PLOT 85,X,Y+100
2220PLOT 85,X+100,Y+100
2230T=TIME
2240IF TIME-T=1 THEN 2250 ELSE 2240
2250CLG:CLS
2260VDU 28,4,20,14,11
2270COLOUR129:CLS
2280PRINT'" X AND Y"
2290PRINT" CO-ORDS."
2300PRINT" PLEASE"
2310PRINT'"X"
2320*FX15,0
2330INPUT" ",A
2340IF A*100=X THEN 2360
2350GOTO 2410
2360PRINT'"Y"
2370*FX15,0
2380INPUT" ",A
2390IF A*100=Y THEN 2400 ELSE 2410
2400S=S+2:PROCWIN:C=C+1:IF C<10 THEN 18
30
2410COLOUR 129:CLS:PROCSTARS
2420PRINT'" STAGE "
2430C=0
2440PRINT" FOUR"
2450PRINT" OVER"
2460PRINT'" SCORE:";S
2470*FX15,0
2480A=GET
2490CLS
2500X=RND(10)+5:IF X=10 THEN 2500
2510Y=RND(10)+5:IF Y=10 THEN 2500
2520PRINT'" WHAT IS "
2530PRINT'"";X"*";Y
2540T=TIME
2550*FX15,0
2560INPUT" ",A
2570IF TIME-T>500 THEN PRINT'" TOO LATE
":A=GET:GOTO 2940
2580IF A=X*Y THEN 2600
2590GOTO 2940
2600PROCWIN:LET S=S+1:CLS
2610X=RND(10)+5:IF X=10 THEN 2500
2620Y=RND(44)+5:IF Y=10 OR Y=20 OR Y<X
THEN 2620
2630PRINT'" WHAT IS "
2640 PRINT'"";X*Y"/";X
2650T=TIME
2660*FX15,0
2670INPUT" ",A
2680IF TIME-T>500 THEN PRINT'" TOO LATE
":A=GET:GOTO 2940
2690IF A=Y THEN 2710
2700GOTO 2940
2710PROCWIN:LET S=S+1:CLS
2720X=RND(8999)+1000
2730Y=RND(8999)+1000
2740PRINT'" WHAT IS"
2750PRINT'"";X"+";Y
2760T=TIME
2770*FX15,0
2780INPUT" ",A
2790IF TIME-T>1000 THEN PRINT'" TOO LAT
E":A=GET:GOTO 2940
2800IF A=X+Y THEN 2820
2810GOTO 2940
2820PROCWIN:LET S=S+1:CLS
2830X=RND(8999)+1000
2840Y=RND(8999)+1000:IF X-Y<100 THEN 28
30
2850PRINT'" WHAT IS"
2860PRINT'"";X"-";Y
2870T=TIME
2880*FX15,0
2890INPUT" ",A
2900IF TIME-T>1500 THEN PRINT'" TOO LAT
E":A=GET:GOTO 2940
2910IF A=X-Y THEN 2930
2920GOTO 2940
2930LET S=S+1:PROCWIN:CLS:IF C<20 THEN
2490 ELSE 2940
2940LET C=0:CLS
2950J=100:K=100:L=100:M=100:N=100:O=100
:A=0:GOTO 2980
2960LET C=0:LET S=S+5:CLS:PROCWIN:PROCW
IN:PROCWIN:LET A=A+1:IF A=4 THEN 1670
2970J=100:K=100:L=100:M=100:N=100:O=100
2980LET D=RND(20)+40
2990LET E=RND(20)+40:IF E=D THEN 2990
3000LET F=RND(20)+40:IF F=D OR F=E THEN
3000
3010LET G=RND(20)+40:IF G=D OR G=E OR G
=F THEN 3010
3020H=RND(20)+40:IF H=D OR H=E OR H=F O
R H=G THEN 3020
3030I=RND(20)+40:IF I=D OR I=E OR I=F O
R I=G OR I=H THEN 3030
3040PRINT'" TEAM A SCORED ";D" GOALS":T
=TIME
3050IF TIME-T=500 THEN 3060 ELSE 3050
3060CLS:PRINT'" TEAM B SCORED ";E" GOAL
S":T=TIME
3070IF TIME-T=500 THEN 3080 ELSE 3070
3080CLS:PRINT'" TEAM C SCORED ";F" GOAL
S":T=TIME
3090IF TIME-T=500 THEN 3100 ELSE 3090
3100CLS:PRINT'" TEAM D SCORED ";G" GOAL
S":T=TIME
3110IF TIME-T=500 THEN 3120 ELSE 3110
3120CLS:PRINT'" TEAM E SCORED ";H" GOAL
S":T=TIME
3130IF TIME-T=500 THEN 3140 ELSE 3130
3140CLS:PRINT'" TEAM F SCORED ";I" GOAL
S":T=TIME
3150IF TIME-T=500 THEN 3160 ELSE 3150
3160CLS:Z=0
3170PRINT'" HIGHEST"
3180PRINT" SCORER:"
3190INPUT'" ",C$
3200LET Z=Z+1:IF Z=6 THEN 2960
3210IF C$="A" THEN 3220 ELSE 3250
3220IF D>E AND D>F AND D>G AND D>H AND
D>I AND D<J AND D<K AND D<L AND D<M AND
D<N AND D<O THEN 3240
3230GOTO 1670
3240J=D:D=0:C=C+1:IF C=6 THEN 2960 ELSE
3190
3250IF C$="B" THEN 3260 ELSE 3290
3260IF E>D AND E>F AND E>G AND E>H AND
E>I AND E<J AND E<K AND E<L AND E<M AND
E<N AND E<O THEN 3280
3270GOTO 1670
3280K=E:E=0:C=C+1:IF C=6 THEN 2960 ELSE
3190
3290IF C$="C" THEN 3300 ELSE 3330
3300IF F>D AND F>E AND F>G AND F>H AND
F>I AND F<J AND F<K AND F<L AND F<M AND
F<N AND F<O THEN 3320
3310GOTO 1670
3320L=F:F=0:C=C+1:IF C=6 THEN 2960 ELSE
3190
3330IF C$="D" THEN 3340 ELSE 3370
3340IF G>D AND G>E AND G>F AND G>H AND
G>I AND G<J AND G<K AND G<L AND G<M AND
G<N AND G<O THEN 3360
3350GOTO 1670
3360M=G:G=0:C=C+1:IF C=6 THEN 2960 ELSE
3190
3370IF C$="E" THEN 3380 ELSE 3410
3380IF H>D AND H>E AND H>F AND H>G AND
H>I AND H<J AND H<K AND H<L AND H<M AND
H<N AND H<O THEN 3400
3390GOTO 1670
3400N=H:H=0:C=C+1:IF C=6 THEN 2960 ELSE
3190
3410IF C$="F" THEN 3420 ELSE 1670
3420IF I>D AND I>E AND I>F AND I>G AND
I>H AND I<J AND I<K AND I<L AND I<M AND
I<N AND I<O THEN 3440
3430GOTO 1670
3440O=I:I=0:C=C+1:IF C=6 THEN 2960 ELSE
3190
3450END