GfABASIC&&&FRRRJ!@5666666667 7777BSCR_MEMNUMEGGBOYXBOYYPLAYLEVEL TOTAL_EGGS EGGS_AVAIBLELIVESEXTRA BONUS_LEVELDANCEDEADSCOREHI_SCOREMXMYBTNSTEADYOBJY TEMP_SCOREEXSPEEDXNUMEEGQWBOYSPLANE1PLANE2PLANE3PLANE4KOLSTATENO_EGG PLAYFIELDNO_TOKENTOKENTALKEGGXEGGYEGG_OFSSPEEDPALOBJEGGEGGTYPEREOPENOBJ_DATAEGG KOLOR_DATA IN_HI_SCOREASSIGN_OBJECTSNEW_EGG TALK_SCREENDO_COLORTALKSCREENSCOREHEALSMAINWALK EGG_CLEAREGG_DROP DIFFICULTYSTABBEDEXPLODE NEW_SCREENKILL_MANLEV1LEV2LEV3LEV4LEV5LEV6LEV7LEV8LEV9LEV10LEV11LEV12LEV13KNIFEGRENADEANGLEWIGGLEERR FIX_COLORS(------------------------------------ BARRAGE "By Steven Evermann & Paul Prat "(c)1988, Antic Publishing Inc.  c$ Ò FCHECK RESOLUTION J)!6 | B A R R A G E | | REQUIRES LOW RESOLUTION!!SORRY!FqF! F!,E4  F Get address of screen memory J* !@@ !  !  !  !  F*  !pp FM$ F!FMF MF tEGFM F Initialize eggs NF MFOpening screen *E``FgInitialize boy's position E&&FgEF"Key=&HFFFC02 pause removed MF&MF&EFEFEFEppF2 EF EF Score=0  EF ŦFFScore=Temp_score MFe EFEF EFFEMF=MF=M F= ŘFEF FEMFF2F žFEF FE6!`!`!`Fo7R!M! HI_SCORE.EGGFuM!F8MFM$ FFqF4------------------------------------------------- + F-M F F- "!!F-M F Ɣ F-EFM FMF FM F ƶ F- EFMF  F(  F-For smooth movement -EF!! !FF z!!!F EF FE4F!TF!.F<--------------------------------------------------------- + F-  F- ǒ FEF ǜFEF FE!! !F!! !FFEFz! !`!F- &F4{FSmooth movement so eggs drop at constant speed  FF.FF8---------------------------------------------------- -+F-6!FEG@HF-!! !F!! F{F!! !FY!@ "B` F { F ȈFF!! !F!! !F&Y# ! " F { F6!F.F!H=========================== EGG ROUTINES ============================ + F=NThis routine draws # of eggs that are falling and checks each for collision EFStart with egg #0 FE4 ! !!F Put blank space where egg was *0 ! F Move position of egg down e.  ! ! !`Fedraw egg F.0 ! FIf horizontal motion add that  :    @@ F .check if boy is under egg. if so catch egg    F ! !!FgM FEgg caught 0!DFc(Level+1)*9.6 iM FD* F If boy caught a knife, kill him MFF F F (  ; F,Egg splat i ̚  F ! !!F `  F !=! !F ̂F! !=! !F F M FM F F *MFF If grenade was dropped, kill boy  F F Z F Z F4FZ F.F<-------------------------------------------------------- + F-5F-&'z!!% FChange score 8 F Have enough eggs fallen? If so add another ,EppFMore eggs fall each level $4Fp Make more eggs fall at once h M F < Fm If finished dropping 3 eggs at once inc level M F EFEFEF4FF$Y! "{Bravo}F J%;;  F44 F%If need life and have 12000 points since... c&4 F last extra life, give new life MF MF $Y! "{EXTRA}FMF$Y! "{LIFE!}F F  ϾPFEFF0 !PFTells user round 1 is 14,after finished all 13 levels o0!FMFF F  FMFF F.F6-------------------------------------------------- d+F-!! !F$ ! ! !`F-ЀEIFy!p!!! F XF {F y!!!FMF.F8---------------------------------------------------- a+F->EGF-6! V !V  !F$y!p!`!!@@F F {PF y!!!FY! "B` F6!FMF.F@------------------------------------------------------------ e+F-5 F-M F-2 \ F- If game not over because lives left - ,F if not first level 5F FEFEppFiEF EFMF rFEF Game over o FE.FE>----------------------------------------------------------- +F-YFF-MF-'z!!% FEF   F# `!@!!F5FF .F8---------------------------------------------------- -+F-!F(@!!!F-'Z!!F'.!! F-.F@------------------------------------------------------------- + F-4EGF ! !!F- M F  F.F@------------------------------------------------------------- + F-NThis routine sets up the properties a new egg,grenade,or knife will have... Luntil it hits the ground or is caught. These properties stored in arrays .. E@FhAlways set to top of screen eB EV   F Set Random X start position i. EFBegin egg with no horiz. movement o*EV  FUsed to change settings e0 E FMake object egg then change at lev . routines, if needed. e> E@F Set this egg to descend 6 pixels at a time. i,wL!!!!!!!!!!!!F  @F!MFM F 0 !F F.F:------------------------------------------------------- +F-M F-.F :------------------------------------------------------- +F-M!F-.F!:------------------------------------------------------- +F-M F-M!F-.F!:------------------------------------------------------- +F- EV F.F:------------------------------------------------------- +F-M F- EV F.F:------------------------------------------------------- +F-  E#V  F- EV FM!FEM FE.F :------------------------------------------------------- +F-M F-MF-.F:------------------------------------------------------- +F-M!F-MF-.F:------------------------------------------------------- +F-M F-MF-M!F-.F!:------------------------------------------------------- +F- EV FMFE.F:------------------------------------------------------- +F-M F- EV FMFE.F:------------------------------------------------------- +F-  E#V  F- EV FM!FEM FEMFE.F:------------------------------------------------------- +F-  E FMFE.F<-------------------------------------------------------- .+F-  F-& E FObject is a knife - F.F:------------------------------------------------------- + F- ܔ`F-" E FObject is a grenade - F.F:------------------------------------------------------- +!F- $@F-Egg offsets -$ EU33336FEEgg moves right - LFU$ E#U33336 FEgg moves left  F.FF================== HOUSEKEEPING ROUTINES ====================== H--------------------------------------------------------------------- +F-YF!F $!!!F # F-!F! !FF-$!!!F #F!! !(FEFFE`!@!!F4F` `F!(!!!`F*'p!!ROUND LEVEL SCOREFFGET COPY OF SCREEN MF.F:------------------------------------------------------ 2+$# F Saves & restores your desktop colors. ߼EGpF- ߢ#F" E`!!  F- ߲F# 6! F F$ lF`.FJ----------------------------------------------------------------------- +F-$Create the opening dialog screen -!FEG`Fd(!!!Fo*'`!! B A R R A G EF LF$!!!F#F$ !,! !,F #F$ ! ! ! F ( !!!FD'!D!.PRATT & EVERMANN (c)1988 ANTIC PUBLISHINGF%!!F$!6!H! FN%!!F$ !.!L!FN$!"! !<FN$!"! !<FN(`!!!@F"'D!@! HIGH SCOREF"'D!l! YOUR SCOREF%!!F$ ! ! !:FN$! ! !:FN(`!!!0F'!2!P L A YF'!2!E X I TFFYF.F@------------------------------------------------------------ S+F-$Create the opening dialog window -  F "!!FpF!!F } FpEFE``Fp6!F(!!!`Fi6!FF,' #6A%   !X!% F,' #6A%   !!% FF "!!FM"F Print At(2,12);Mx,My JFi F;EF FEYFE2"$F;Boy falls to bottom of screen -!! !F0!F!! !F{FF!E&&FY! "B` F6!F.F!F------------------------------------------------------------------- +"F-!! !F-FEV F-!! !FF{V F!! !FF{V F.F&----------------------------------- +F-:Save the high score to a file. Create a file if needed vL#Fh|FF7R!M! HI_SCORE.EGGF8:M!F if Hi_score file exists, open and get hi score B` F8MF.F.------------------------------------------ t+#F-:uM!F- if no file, create new file with "0" as hi score 8MFFF.FJ---------------------------------------------------------------------- +F-BThis procedure physically pokes the objects into screen memory -8then uses the GET command to put them into an array. e!!p!p! F!!p!`!F !!0!@!FEGpF:6!FBLACKOUT SCREEN SO SCREEN POKING IS HIDDEN FRFEGFEGpFUQ!! !!F"poke object into screen memory  !F !F ! F @!!F F put object into array !!!p! Fy F !!0!@!FRFEFFEEFFEQ!! !!F"poke object into screen memory  !F !F ! F @!!F4F2F!!!`! Fy4F( FYF.F8----------------------------------------------------- +F-SET SCREEN COLORS -RFEGpFOQ"F6!"F FG.F|FF16,1792,1284,1312,7,116,5,1365,546,102,68,1859,1911,1360,1586,1840 -2----------------------------------------------- |F- stand boy 8192,8192,0,8192 -12290,12290,0,12290 12294,12294,0,12294 12294,6,12288,6 29670,992,28678,28672 30263,2032,29127,455 29847,1712,29543,29344 -30711,2032,28679,996 430711,1904,28679,6007 31183,992,31279,13280 14350,2032,14798,2046 14798,1584,14798,4080 6604,1584,6604,5808 7148,1584,7148,1724 6152,2032,6152,6128 2920,1168,2056,2040 2920,1168,2056,4080 2056,2032,2056,2040 2056,2032,2056,4080 0,4088,0,4088 0,4088,0,4088 0,3960,0,3960 0,3960,0,3960 0,3960,0,3960 0,3960,0,3960 0,3960,0,3960 0,3960,0,3960 3960,0,0,3960 3960,0,0,3960 1584,1584,0,1584 81584,1584,0,1584 8 * 1 by 32 words leftboy 0,0,0,0 16384,16384,0,16384 24576,24576,0,24576 24580,24580,0,24580 24588,12,24576,12 59340,1996,57344,57356 -60524,4064,58252,896 659694,3424,59086,58702 -61422,4064,57358,1984 61422,3808,57358,12008 -62366,1984,62558,26560 -28700,4064,29596,4092 29596,3168,29596,8160 13208,3168,13208,11616 -14296,3168,14296,3448 12304,4064,12304,12256 -5840,2336,4112,4080 5840,2336,4112,8160 4112,4064,4112,4080 4112,4064,4112,8160 16,8160,16,8176 0,16368,0,16368 0,16120,0,16120 0,15480,0,15480 0,14396,0,14396 0,14396,0,14396 0,14366,0,14366 14350,0,0,14350 14350,0,0,14350 12294,12294,0,12294 12294,12294,0,12294  * 1 by 32 words  rightboy 0,0,0,0 2,2,0,2 6,6,0,6 8198,8198,0,8198 12294,12288,6,12288 13287,13280,7,12295 13879,2032,12743,448 629847,1712,29543,29351 -30711,2032,28679,992 130711,1904,28679,6004 31183,992,31279,998 14350,2032,14798,16368 -14798,1584,14798,2040 6604,1584,6604,1716 7148,1584,7148,7856 2060,2032,2060,2036 2920,1168,2056,4080 2920,1168,2056,2040 2056,2032,2056,4080 2056,2032,2056,2040 2048,2040,2048,4088 0,4092,0,4092 0,8060,0,8060 0,7740,0,7740 0,15388,0,15388 0,15388,0,15388 0,30748,0,30748 28700,0,0,28700 28700,0,0,28700 24588,24588,0,24588 24588,24588,0,24588 |F8 0,0,0,0 128,256,0,384 448,512,0,960 256,512,192,960 0,512,448,960 0,512,448,960 320,512,128,960 128,256,0,384  splategg 8 0,0,0,0 0,0,0,0 0,0,0,0 0,0,0,0 1792,1792,1792,1792 4064,4064,16352,16352 6072,6072,65532,65532 28,28,31,31 grenade 896,0,896,896 1280,0,1280,1280 5896,128,512,512 1984,1600,0,0 1984,1152,0,0 1984,1024,0,0 1984,1344,0,0 896,640,0,0 knife 896,896,896,896 768,768,768,768 4032,4032,4032,4032 768,128,0,896 256,640,0,896 256,512,0,768 256,512,0,768 256,0,0,256 &P̀xlfbhL`ɨ8ҺhײZظ<ٌ2ڐ~V2&