10IF PAGE>&E00 THEN PAGE=&E00:CHAIN " Archery" 20VDU 23,42,255,255,255,255,255,255,2 55,255 30sc=0 40ONERROR MODE1:PROCend 50REM Archery 60REM by David Bradforth (Age 14) 70REM (c) March 1993 80MODE 1:VDU 23;8202;0;0;0; 90COLOUR 1 100PRINTTAB(0,2)"Archery" 110COLOUR 2 120PRINTTAB(0,3)"by David Bradforth 19 93" 130COLOUR 3:PRINT 140PRINT "This game shows how simple i deas can be used to create GREAT games o n an 8-bit computer." 150PRINT 160COLOUR1 170PRINT "The Keys:" 180COLOUR 2 190PRINT "=========" 200COLOUR 3:PRINT 210PRINT "Use the number keys detailed inside" 220PRINT "the archery board to shoot!! !" 230PRINT "Press <Escape> To Finish!!!" 240COLOUR 1 250PRINTTAB(0,28)"Press Space to start playing Archery." 260PROCboard 270OSCLI"FX21":A$=GET$ 280IFA$<>" "THEN GOTO 270 290CLS:VDU5:GCOL 0,1 300MOVE 640,512 310PLOT 154,300,300 320MOVE 230,512 330PRINT "1" 340MOVE 640,512 350PLOT 154,250,250 360MOVE 310,512 370PRINT "2" 380MOVE 640,512 390PLOT 154,200,200 400MOVE 370,512 410PRINT "3" 420MOVE 640,512 430PLOT 154,150,150 440MOVE 450,512 450PRINT "4" 460MOVE 640,512 470PLOT 154,100,100 480MOVE 640,512 490PRINT "5" 500MOVE 50,50 510GCOL 0,1 520PRINT "Score: "sc 530GCOL 0,2 540MOVE 60,60 550PRINT "Score: "sc 560VDU 4 570PRINT "Please press a number for yo ur aim." 575*FX21 580Z$=GET$ 590aim=RND(5) 600IF Z$="1" AND aim=1 THEN PROCgotone 610IF Z$="2" AND aim=2 THEN PROCgottwo 620IF Z$="3" AND aim=3 THEN PROCgotthr ee 630IF Z$="4" AND aim=4 THEN PROCgotfou r 640IF Z$="5" AND aim=5 THEN PROCgotfiv e 650IF Z$="1" AND aim<>1 THEN PROCgotno ne 660IF Z$="2" AND aim<>2 THEN PROCgotno ne 670IF Z$="3" AND aim<>3 THEN PROCgotno ne 680IF Z$="4" AND aim<>4 THEN PROCgotno ne 690IF Z$="5" AND aim<>5 THEN PROCgotno ne 700MODE1:VDU 23;8202;0;0;0; 710GOTO 290 720END 730: 740DEFPROCgotone 750CLS 760PROCboard 770VDU 5 780GCOL 0,2 790MOVE 230,512 800PRINT "X" 810VDU 4 820sc=sc+1 830PROCrip 840PROCboom 850ENDPROC 860: 870DEFPROCgottwo 880CLS 890PROCboard 900VDU 5 910GCOL 0,2 920MOVE 310,512 930PRINT "X" 940VDU4 950sc=sc+1 960PROCrip 970PROCboom 980ENDPROC 990: 1000DEFPROCgotthree 1010CLS 1020PROCboard 1030VDU 5 1040GCOL 0,2 1050MOVE 370,512 1060PRINT "X" 1070VDU 4 1080sc=sc+1 1090PROCrip 1100PROCboom 1110ENDPROC 1120: 1130DEFPROCgotfour 1140CLS 1150PROCboard 1160VDU 5 1170GCOL 0,2 1180MOVE 450,512 1190PRINT "X" 1200VDU 4 1210sc=sc+1 1220PROCrip 1230PROCboom 1240ENDPROC 1250: 1260DEFPROCgotfive 1270CLS 1280PROCboard 1290VDU 5 1300GCOL 0,2 1310MOVE 640,512 1320PRINT "X" 1330VDU 4 1340sc=sc+1 1350PROCrip 1360PROCboom 1370ENDPROC 1380: 1390DEFPROCgotnone 1400CLS 1410PROCboard 1420X=RND(1500) 1430Y=RND(1500) 1440VDU 5 1450GCOL 0,2 1460MOVE X,Y 1470PRINT "X" 1480MOVE 100,1000 1490GCOL 0,1 1500PROCrandommes 1510MOVE 110,1100 1520GCOL 0,2 1530PRINT "Foul Shot" 1540VDU4 1550TIME=0:REPEAT UNTIL TIME=200 1560ENDPROC 1570: 1580DEFPROCend 1590CLS 1600MOVE 100,100 1610VDU 5 1620GCOL 0,1 1630PRINT "Archery (c) David Bradforth 1993" 1640MOVE 110,110 1650GCOL 0,2 1660PRINT "Archery (c) David Bradforth 1993" 1670VDU 4 1680PRINT 1690PRINT "Archery:" 1700PRINT 1710PRINT " When you quit, you had a f inal score" 1720PRINT " of "; 1730PRINT sc; 1740PRINT "." 1750PRINT 1760PRINT " Shall I save this to disc? " 1770PRINT " (Y/N)" 1780yn$=GET$ 1790IF yn$="Y" THEN OSCLI "*SAVE HScore FF3000+5000" 1800PRINT " Another go? (Y/N)" 1810ynb$=GET$ 1820IF ynb$="Y" THEN RUN 1830END 1840ENDPROC 1850: 1860DEFPROCboard 1870MOVE 640,512 1880PLOT 154,300,300 1890MOVE 640,512 1900PLOT 154,250,250 1910MOVE 640,512 1920PLOT 154,200,200 1930MOVE 640,512 1940PLOT 154,150,150 1950MOVE 640,512 1960PLOT 154,100,100 1970VDU 5 1980GCOL 0,1 1990MOVE 50,50 2000PRINT "Archery (c) David Bradforth 1993" 2010GCOL 0,2:MOVE 60,60 2020PRINT "Archery (c) David Bradforth 1993" 2030VDU 4 2040ENDPROC 2050: 2060DEFPROCboom 2070VDU 22,2 2080VDU 23;8202;0;0;0; 2090TIME=0 2100REPEAT 2110X=RND(1500) 2120Y=RND(1500) 2130dia=RND(200) 2140col=RND(7) 2150IF col=1 THEN GOTO 2140 2160GCOL 0,col 2170MOVE X,Y 2180PLOT 153,dia,dia 2190UNTIL TIME>=400 2200ENDPROC 2210: 2220DEFPROCrandommes 2230VDU 5 2240COLOUR 1 2250A=RND(5) 2260IFA=1 THEN PRINTTAB(0,0)"Who Was Da t???" 2270IFA=2 THEN PRINTTAB(0,0)"Missed Aga in???" 2280IFA=3 THEN PRINTTAB(0,0)"You Missed !!" 2290IFA=4 THEN PRINTTAB(0,0)"Who Dunnit ???" 2300IFA=5 THEN PRINTTAB(0,0)"You hit it . NOT!!!" 2310ENDPROC 2320: 2330DEFPROCrip:TIME=0:REPEAT UNTIL TIME =200 2340VDU 22,1 2350VDU 23;8202;0;0;0; 2360COLOUR1:PRINT:PRINT "Re-Birth Certi ficate Required" 2370COLOUR2:PRINT:PRINT "Name: Aunty Be eb" 2380PRINT "Reason: Some Sick Person Sho t an arrow at me during a game of Arche ry!!!" 2390COLOUR1 2400PRINT 2410PRINT "Authorisation for Re-Birth b y" 2420PRINT " David Bradforth" 2430PRINT " B.A.S.ick Doctor " 2440VDU 5 2450GCOL 0,1 2460MOVE 150,150 2470PRINT "Argghhh! You Got Me!!!" 2480MOVE 170,170 2490GCOL 0,2 2500PRINT "Argghhh! You Got Me!!!" 2510MOVE 100,100 2520GCOL 0,1 2530PRINT "I've got a ROUND feeling com ing on!" 2540MOVE 120,120 2550GCOL 0,2 2560PRINT "I've got a ROUND feeling com ing on!" 2570PROCboard 2580TIME=0:REPEAT UNTIL TIME=200 2590ENDPROC