Home » Archimedes archive » Archimedes World » AW-1993-11.adf » AWNov93 » !AWNov93/Goodies/Crusader/!Crusader/!RunImage

!AWNov93/Goodies/Crusader/!Crusader/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1993-11.adf » AWNov93
Filename: !AWNov93/Goodies/Crusader/!Crusader/!RunImage
Read OK:
File size: 7A08 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM >!RUNIMAGE
   20
   30REM Ace Crusader - sideways scrolling shoot 'em up
   40
   50REM By Steve O'Leary
   60
   70REM LEN Archimedes World 1993
   80
   90REM Controller Program
  100
  110REM Version : 1.1
  120
  130REM See '!Help' for more details
  140 PROCWimpInitialise
  150 REPEAT
  160   PROCWimpPoll
  170 UNTIL quit%=TRUE
  171 PROCWimpTidyUp
  180 SYS"Wimp_CloseDown"
  200 END
  210
  220DEF PROCRunGame
  230  IF NOT FNEnsureSounds THEN
  240     IF FNEnoughScreenMemory THEN
  250        PROCCrusaderGame
  260     ELSE
  270        PROCScreenMemoryError
  280     ENDIF
  290  ENDIF
  300ENDPROC
  310
  320DEF PROCCrusaderGame
  330   IF sound SYS"Sound_Enable",2 ELSE SYS"Sound_Enable",1
  340   SYS "OS_Byte",135 TO ,,mode
  350   SYS"Wimp_CommandWindow",app$
  360   *FX229,1
  370   PROCGameInitialise
  380   PROCStartUpMessages
  390   PROCDisplayGameScreen
  400   PROCClearRadar
  410   *FX15,1
  420   PROCWaiter
  430   PROCGameTidyUp
  440   SYS"Wimp_CommandWindow",0
  450   SYS"Wimp_SetMode",mode
  460   PROCCopyBest
  470   *FX229,0
  480   IF !soundadr=0 THEN
  490      sound=off
  500      PROCIconText(sounds%,8,"Game Sound is Off")
  510   ELSE
  520      sound=on
  530      PROCIconText(sounds%,8,"Game Sound is On")
  540   ENDIF
  550ENDPROC
  560
  570DEF PROCGameTidyUp
  580   *FX20,0
  590   VOICES channels
  600   OSCLI"CHANNELVOICE 1 "+STR$voice1
  610   OSCLI"CHANNELVOICE 2 "+STR$voice2
  620   OSCLI"CHANNELVOICE 3 "+STR$voice3
  630   OSCLI"CHANNELVOICE 4 "+STR$voice4
  640   SYS"Sound_Enable",2
  650ENDPROC
  660
  670DEF PROCWimpTidyUp
  671   ON ERROR END
  680   *RMKILL DRIP
  690   *RMKILL EXPLOSION
  700   *RMKILL HELPME
  710   *RMKILL LASER
  720   *RMKILL OPENFIRE
  730   *RMKILL PING
  740   *RMKILL HELP
  750   *RMKILL THANKYOU
  760   *RMKILL BLEEP
  770ENDPROC
  780
  790DEF PROCScreenMemoryError
  800   e$="I need 160K of screen memory to run. "
  810   e$=e$+"Change to a mode that uses more memory "
  820   e$=e$+"e.g. 15 or 36, or click on Acorn icon "
  830   e$=e$+"at right hand side of the Icon Bar, and "
  840   e$=e$+"drag 'Screen memory' bar to at least 160K."
  850   PROCInfo(e$)
  860ENDPROC
  870
  880DEF PROCGameInitialise
  890   SYS"Sound_AttachVoice",1,1 TO ,voice1
  900   SYS"Sound_AttachVoice",2,1 TO ,voice2
  910   SYS"Sound_AttachVoice",3,1 TO ,voice3
  920   SYS"Sound_AttachVoice",4,1 TO ,voice4
  930   SYS"Sound_Configure",0,0,0,0,0 TO channels
  940   MODE9
  950   PROCPalette
  960   VDU 19,0,24,0,0,0
  970   OFF
  980   VOICES 4
  990   PROCPrintMountains
 1000ENDPROC
 1010
 1020DEF PROCInitialise
 1030   PROCMemoryRequests
 1040   PROCConstants
 1050   IF FNEnsureSounds THEN
 1051      FOR l=1 TO 5
 1052         SYS "Wimp_Poll",0,block% TO reason%
 1053      NEXT l
 1054   ENDIF
 1060   OSCLI"LOAD <AceCrusader$Dir>.Ace_MC "+STR$~code%
 1070   OSCLI"LOAD <AceCrusader$Dir>.fx1 "+STR$~FX1%
 1080   OSCLI"LOAD <AceCrusader$Dir>.fx2 "+STR$~FX2%
 1090   OSCLI"LOAD <AceCrusader$Dir>.square "+STR$~font%
 1100   code%!36=baddie_id%
 1110   PROCSetUpScores
 1120   PROCRp
 1130   PROCReadPlanetData
 1140   message_y=0
 1150   sound=on
 1160ENDPROC
 1170
 1180DEF PROCGetW(RETURN r$)
 1190   r$=""
 1200   n=BGET# fi1
 1210   n=(n+15) DIV 2
 1220   WHILE (n<>&0A)
 1230      r$=r$+CHR$(n)
 1240      n=BGET# fi1
 1250      n=(n+15) DIV 2
 1260   ENDWHILE
 1270ENDPROC
 1280
 1290DEF PROCReadPlanetData
 1300   LOCAL l
 1310   fi1=OPENIN "<AceCrusader$Dir>.PlanetData"
 1320   FOR l=1 TO 100
 1330      PROCGetW(pl$(l))
 1340      PROCGetW(ir$(l))
 1350   NEXT l
 1360   CLOSE# fi1
 1370ENDPROC
 1380
 1390DEF PROCplot(n$,x,y)
 1400   MOVE x,y
 1410   SYS"OS_SpriteOp",&11C,sspace%,n$,0
 1420ENDPROC
 1430
 1440DEF PROCClearMessageWin
 1450   message_y=0
 1460   PROCScrollUp(40)
 1470ENDPROC
 1480
 1490DEF PROCSetUpScores
 1500   LOCAL l
 1510   RESTORE 1550
 1520   FOR l=1 TO 9
 1530      READ hi(l),hi$(l)
 1540   NEXT l
 1550   DATA 20000,Space Lord,10000,Admiral,8000,Commander,7000,Quadrant Leader,6000,Captain,5000,Group Leader,3000,Group Pilot,2000,Pilot,1000,StarTrooper
 1560ENDPROC
 1570
 1580DEF PROCSetFont(adr%)
 1590   FOR l=0 TO 909
 1600      VDU (adr%?l)
 1610   NEXT l
 1620ENDPROC
 1630
 1640DEF PROCMemoryRequests
 1650   DIM code% 65000
 1660   DIM baddie_id% 300
 1670   DIM FX1% 1600
 1680   DIM FX2% 300
 1690   DIM hi(9),hi$(9)
 1700   DIM bu% 30
 1710   DIM p$(273-173)
 1720   DIM pl$(100)
 1730   DIM ir$(100)
 1740   DIM font% 920
 1750ENDPROC
 1760
 1770DEF PROCSoundLoad
 1780   OSCLI"CHANNELVOICE 1 "+STR$voice1
 1790   serror=1
 1800   LOCAL ERROR
 1810   ON ERROR LOCAL RESTORE ERROR:PROCSoundError:ENDPROC
 1820   *RMLOAD <AceCrusader$Dir>.SOUNDS.DRIP
 1830   *RMLOAD <AceCrusader$Dir>.SOUNDS.HELP
 1840   *RMLOAD <AceCrusader$Dir>.SOUNDS.explosion
 1850   *RMLOAD <AceCrusader$Dir>.SOUNDS.laser
 1860   *RMLOAD <AceCrusader$Dir>.SOUNDS.Openfire
 1870   *RMLOAD <AceCrusader$Dir>.SOUNDS.ping
 1880   *RMLOAD <AceCrusader$Dir>.SOUNDS.Thankyou
 1890   *RMLOAD <AceCrusader$Dir>.SOUNDS.Helpme
 1900   *RMLOAD <AceCrusader$Dir>.SOUNDS.BLEEP
 1910   RESTORE ERROR
 1920ENDPROC
 1930
 1940DEF PROCSoundError
 1950   serror=2
 1960   e$="I cannot proceed without my sounds, please "
 1970   e$=e$+"increase the module area in the task manager, "
 1980   e$=e$+"and/or ensure my disk can be accessed"
 1990   PROCInfo(e$)
 2000   LOCAL ERROR
 2001   ON ERROR LOCAL RESTORE ERROR:ENDPROC
 2010   *RMKILL DRIP
 2011   RESTORE ERROR
 2030ENDPROC
 2040
 2050DEF PROCRp
 2060   fi1 = OPENIN "<AceCrusader$Dir>.SPRTDATA"
 2070   FOR l=500-ls TO ls-399
 2080      PROCGetp(p$(l))
 2090   NEXT l
 2100   CLOSE# fi1
 2110ENDPROC
 2120
 2130DEF FNEnsureSounds
 2140   serror=FALSE
 2150   LOCAL ERROR
 2160   ON ERROR LOCAL PROCSoundLoad
 2170   IF serror=FALSE THEN
 2180      SYS"Sound_AttachVoice",1,1 TO ,voice1
 2190      *CHANNELVOICE 1 DRIP
 2200      OSCLI"CHANNELVOICE 1 "+STR$voice1
 2210   ENDIF
 2220   IF serror=2 serror=TRUE
 2230   IF serror=1 serror=FALSE
 2240   RESTORE ERROR
 2250=serror
 2260
 2270DEF PROCGetp(RETURN r$)
 2280   r$=""
 2290   n=BGET# fi1
 2300   WHILE (n<>20)
 2310      n=(n+20)DIV 3
 2320      r$=r$+CHR$(n)
 2330      n=BGET# fi1
 2340   ENDWHILE
 2350ENDPROC
 2360
 2370DEF PROCConstants
 2380   initialise_code=code%+544
 2390   soft_start_code=code%+592
 2400   main_game_code=code%+616
 2410   eolb_game_code=code%+740
 2420   scroll_code=FX1%+260
 2430   game_over=1
 2440   all_baddies_shot=2
 2450   level_complete=3
 2460   user_pressed_escape=4
 2470   ls=499
 2480   up_code=FX2%+72
 2490   on=-1
 2500   off=0
 2510   soundadr=code%+52
 2520ENDPROC
 2530
 2540DEF PROCDisplayGameScreen
 2550   PROCDelay(50)
 2560   *CHANNELVOICE 1 EXPLOSION
 2570   FOR l=1023 TO 784 STEP -4
 2580      SOUND 1,-15,l-784,2
 2590      PROCDelay(3)
 2600      PROCplot("DISPLAY",0,l)
 2610   NEXT l
 2620   SOUND 1,-15,256,2
 2630   SOUND 1,-15,&1400,6
 2640   PROCDelay(8)
 2650   *CHANNELVOICE 1 EXPLOSION
 2660   FOR l=-256 TO 0 STEP 4
 2670      PROCplot("MOUNTAINS",0,l)
 2680      SOUND 1,-15,l+256,2
 2690      PROCDelay(3)
 2700   NEXT l
 2710   PROCStartMessage
 2720ENDPROC
 2730
 2740DEF PROCStartMessage
 2750   speed=FALSE
 2760   *FX15,0
 2770   PROCPrintLine("Zen 3000 Artificial Intelligence Computer activating. ^P75^",11)
 2780   PROCPrintLine("Checking Node address's ^P30^",15)
 2790   PROCPrintLine("Green OK ^P20^",10)
 2800   PROCPrintLine("Confirmed",14)
 2810   PROCPrintLine("Checking Server ^P30^",15)
 2820   PROCPrintLine("Server present ^P20^",10)
 2830   PROCPrintLine("Confirmed",14)
 2840   PROCPrintLine("Checking Boost ^P30^",15)
 2850   PROCPrintLine("Pressure Good ^P20^",10)
 2860   PROCPrintLine("Confirmed",14)
 2870   PROCPrintLine("All Systems GO",10)
 2880   PROCPrintLine(" ",10)
 2890   PROCPrintLine("Zen is ready",11)
 2900   PROCPrintLine(" ",10)
 2910   PROCPrintLine("Welcome Aboard Sir, It is a pleasure to be serving with you again. ^P50^Unfortunatly as you know Sir, our chances of survival this time are not good, but such is life ! ^P35^",15)
 2920   PROCPrintLine("Good Luck Sir ^P60^",14)
 2930   PROCPrintLine("LETS GO ! ^P40^",11)
 2940   PROCClearMessageWin
 2950ENDPROC
 2960
 2970DEF PROCScrollUp(c)
 2980   FX2%!0=48
 2990   FX2%!4=8
 3000   FX2%!8=64
 3010   FX2%!12=40
 3020   LOCAL l
 3030   FOR l=1 TO c
 3040      *FX19
 3050      CALL up_code
 3060   NEXT l
 3070ENDPROC
 3080
 3090DEF PROCMissionBrief
 3100   message_y=0
 3110   PROCClearRadar
 3120   speed=FALSE
 3130   *FX15,0
 3140   IF level<42 OR level>55 PROCPrintLine("Mission Brief",13)
 3150   PROCPrintLine("Sector : "+STR$level,15)
 3160   PROCPrintLine("Planet : "+pl$(level),9)
 3170   PROCDelay(50)
 3180   IF level<42 OR level>55 PROCPrintLine("Intelligence reports ...... ^P50^",13)
 3190   PROCPrintLine(ir$(level),15)
 3200   IF level<41 OR level>54 THEN
 3210      PROCDelay(50)
 3220      PROCPrintLine("Good Luck Sir ^P60^",14)
 3230      PROCPrintLine("LETS GO ! ^P50^",11)
 3240   ENDIF
 3250   PROCClearMessageWin
 3260   speed=FALSE
 3270ENDPROC
 3280
 3290DEF PROCMissionDebrief
 3300   speed=FALSE
 3310   PROCClearRadar
 3320   IF level<42 OR level>55 PROCPrintLine("Well Done Sir, We have survived again. ^P35^",15)
 3330   PROCPrintLine("Password for next sector : ^P40^",11)
 3340   PROCPrintLine(p$(level),14)
 3350   PROCDelay(50)
 3360   PROCPrintLine("Press Fire.",11)
 3370   *FX15,0
 3380   A=GET
 3390   PROCClearMessageWin
 3400ENDPROC
 3410
 3420DEF PROCSetUpLevel
 3430   PROCSetUpBaddies
 3440   code%!8=(level DIV 15)+10
 3450   code%!20=(level DIV 20):IF level >2 AND level <5 code%!20=1
 3460   code%!16=(level DIV 20):IF level>1 AND level <5 code%!16=1
 3470   code%!28=level MOD 10: IF code%!28=0 code%!28=10
 3480   code%!32=(level*2)+10
 3490   code%!12=(level DIV 2)+30:IF level>50 code%!12=level+30
 3500   code%!44=(level DIV 50)+1
 3510   code%!48=(level DIV 50)+1
 3520   IF (level AND 7)>0 code%!24=1 ELSE code%!24=3
 3530   PROCMissionBrief
 3540ENDPROC
 3550
 3560DEF PROCSetUpBaddies
 3570   IF level <5 THEN PROCGroupA
 3580   IF level >4 AND level <10 PROCGroupB
 3590   IF level >9 AND level <15 PROCGroupC
 3600   IF level >14 PROCGroupD
 3610ENDPROC
 3620
 3630DEF PROCGroupA
 3640   RESTORE 3690
 3650   FOR l=0 TO 63
 3660      READ d
 3670      baddie_id%?l=d
 3680   NEXT l
 3690   DATA 17,17,17,15,15,28,62,17,54,16,62,19,54,16,62,19,54,16,62,62,17,17,62,19,54,16,62,19,54,16,62,19,54,16,62,19,54,62,62,62,62,16,62,19,17,16,62,19,54,16,17,19,54,17,62,19,54,16,17,17,17,62,15,28
 3700
 3710   code%!40=63
 3720ENDPROC
 3730
 3740DEF PROCGroupB
 3750   RESTORE 3800
 3760   FOR l=0 TO 63
 3770      READ d
 3780      baddie_id%?l=d
 3790   NEXT l
 3800   DATA 17,17,17,15,15,28,66,49,50,18,62,19,54,16,62,19,54,16,62,62,17,17,62,19,54,16,62,19,54,16,62,19,54,16,62,19,54,62,62,62,62,16,62,19,17,16,62,19,54,16,17,19,54,17,62,19,54,16,17,17,17,62,15,28
 3810
 3820   code%!40=63
 3830ENDPROC
 3840
 3850DEF PROCGroupC
 3860   RESTORE 3910
 3870   FOR l=0 TO 63
 3880      READ d
 3890      baddie_id%?l=d
 3900   NEXT l
 3910   DATA 17,17,17,15,15,28,66,49,50,18,20,55,56,53,62,19,54,16,62,62,17,17,62,19,54,16,62,19,54,16,62,19,54,16,62,19,54,62,62,62,62,16,62,19,17,16,62,19,54,16,17,19,54,17,62,19,54,16,17,17,17,62,15,28
 3920
 3930   code%!40=63
 3940ENDPROC
 3950
 3960DEF PROCGroupD
 3970   RESTORE 4020
 3980   FOR l=0 TO 63
 3990      READ d
 4000      baddie_id%?l=d
 4010   NEXT l
 4020   DATA 17,17,17,15,15,28,66,49,50,18,20,55,56,53,57,59,58,52,62,62,17,17,62,19,54,48,62,19,54,16,62,19,54,16,62,19,54,62,62,62,62,16,62,19,17,16,62,19,54,16,17,19,54,17,62,19,54,16,17,17,17,62,15,28
 4030
 4040   code%!40=63
 4050ENDPROC
 4060
 4070DEF PROCSetUpEolb
 4080   code%!0=0
 4090   code%!24=31
 4091   IF level=100 code%!20=15:code%!16=15
 4100ENDPROC
 4110
 4120DEF PROCPlayGame
 4130   LOCAL ERROR
 4140   ON ERROR LOCAL RESTORE ERROR:ENDPROC
 4150   *FX112,2
 4160   PROCClearScr(0)
 4170   *FX112,1
 4180   CALL scroll_code
 4190   PROCHardReset
 4200   *FX229,1
 4210   *CHANNELVOICE 1 OPENFIRE
 4220   PROCDelay(25)
 4230   SOUND 1,-15,&1400,16
 4240   REPEAT
 4250      *FX229,1
 4260      CALL main_game_code
 4270      *FX15,0
 4280      *FX229,0
 4290      IF !code%=all_baddies_shot THEN
 4300         PROCSetUpEolb
 4310         *FX229,1
 4320         CALL eolb_game_code
 4330         *FX15,0
 4340         *FX229,0
 4350      ENDIF
 4360      *FX15,0
 4370      IF !code%=user_pressed_escape THEN Deliberate error
 4380      IF !code%=game_over THEN PROCShipLost
 4390      IF !code%=level_complete THEN
 4400         level+=1
 4410         IF level=101 THEN
 4420            !code%=game_over
 4430            PROCSuccess
 4440         ELSE
 4450            PROCSoftReset
 4460         ENDIF
 4470      ENDIF
 4480   UNTIL !code%=game_over
 4490   RESTORE ERROR
 4500ENDPROC
 4510
 4520DEF PROCSuccess
 4530   PROCMoveCannon(1216)
 4550   FOR L=1216 TO 1280 STEP 4
 4560      PROCDelay(5)
 4570      PROCplot("CANNON1",L,600)
 4580      SOUND 1,-15,L-1279,3
 4590   NEXTL
 4600   FOR L=0 TO 4
 4610      SYS"OS_SpriteOp",303,sspace%,"CANNON"+STR$L
 4620   NEXT L
 4630   PROCMoveCannon(0)
 4640   FOR L=0 TO -64 STEP -4
 4650      PROCDelay(5)
 4660      PROCplot("CANNON1",L,600)
 4670      SOUND 1,-15,L-1279,3
 4680   NEXTL
 4690   FOR L=0 TO 4
 4700      SYS"OS_SpriteOp",303,sspace%,"CANNON"+STR$L
 4710   NEXT L
 4720   PROCCongrats
 4730   PROCRotateStars
 4740ENDPROC
 4750
 4760DEF PROCCongrats
 4770   PROCCentre("Brilliant !!",9,9)
 4780   PROCCentre("What a hero !",11,10)
 4790   PROCCentre("You saved the day (and the galaxy)",13,10)
 4800   PROCCentre("You have been promoted to Commander in",15,10)
 4810   PROCCentre("Chief of all the Galaxies forces",17,10)
 4820   PROCCentre("I'll smoke you a kipper",19,10)
 4830   PROCCentre("You'll be back ...",21,10)
 4840   PROCCentre("... for breakfast !",23,10)
 4850ENDPROC
 4860
 4870DEF PROCMoveCannon(x)
 4880   *CHANNELVOICE 1 EXPLOSION
 4890   IF x=1216 THEN
 4900      FOR L=1280 TO x STEP -4
 4910         PROCDelay(5)
 4920         PROCplot("CANNON0",L,600)
 4930         SOUND 1,-15,L-1279,3
 4940      NEXTL
 4950   ELSE
 4960      FOR L=-64 TO x STEP 4
 4970         PROCDelay(5)
 4980         PROCplot("CANNON0",L,600)
 4990         SOUND 1,-15,L-1279,3
 5000      NEXTL
 5010   ENDIF
 5020   PROCDelay(40)
 5030   v=-15
 5040   FOR L=600 TO 256 STEP -4
 5050      v-=1
 5060      IF v=-1 v=-15
 5070      PROCDelay(1)
 5080      PROCplot("CANNON0",x,L)
 5090      SOUND 1,v,10,1
 5100   NEXT L
 5110   FOR L=1 TO 4
 5120      PROCDelay(13)
 5130      PROCplot("CANNON"+STR$L,x,256)
 5140      SOUND 1,-15,100,1
 5150   NEXT L
 5160   PROCDelay(25)
 5170   SOUND 1,-15,&1400,7
 5180   PROCplot("CANNON0",x,256)
 5190   PROCDelay(7)
 5200   SOUND 1,-15,&1400,7
 5210   IF x=1216 THEN
 5220      PROCFireStar(x-100,x-200,-8,286)
 5230   ELSE
 5240      PROCFireStar(x+100,x+200,8,286)
 5250   ENDIF
 5260   PROCDelay(40)
 5270   v=-15
 5280   FOR L=256 TO 600 STEP 4
 5290      v-=1
 5300      IF v=-1 v=-15
 5310      PROCDelay(1)
 5320      PROCplot("CANNON0",x,L)
 5330      SOUND 1,v,10,1
 5340   NEXT L
 5350   FOR L=1 TO 4
 5360      PROCDelay(13)
 5370      PROCplot("CANNON"+STR$L,x,600)
 5380      SOUND 1,-15,100,1
 5390   NEXT L
 5400   PROCDelay(25)
 5410   SOUND 1,-15,&1400,7
 5420   PROCplot("CANNON0",x,600)
 5430   PROCDelay(7)
 5440   SOUND 1,-15,&1400,7
 5450   IF x=1216 THEN
 5460      PROCFireStar(x-100,x-200,-8,630)
 5470   ELSE
 5480      PROCFireStar(x+100,x+200,8,630)
 5490   ENDIF
 5500ENDPROC
 5510
 5520DEF PROCFireStar(s,e,st,y)
 5530   FOR L=s TO e STEP st
 5540      *FX19
 5550      PROCplot("STAR4",L,y)
 5560   NEXT L
 5570ENDPROC
 5580
 5590DEF PROCShipLost
 5600   *FX112,2
 5610   PROCCentre("Sub Space Message",8,15)
 5620   PROCCentre("Pilot Sam Decker",14,14)
 5630   PROCCentre("Has unfortunatly been",16,14)
 5640   PROCCentre("killed in action.",18,14)
 5650   PROCCentre("The task of these missions",20,14)
 5660   PROCCentre("will now fall to other brave pilots",22,14)
 5670   *FX112,1
 5680   CALL scroll_code
 5690   PROCDelay(300)
 5700ENDPROC
 5710
 5720DEF FNEnoughScreenMemory
 5730   SYS "OS_ReadDynamicArea",2 TO ,M%
 5740   IF M%<163840 =FALSE ELSE =TRUE
 5750
 5760DEF PROCPrintMountains
 5770   RESTORE 4660
 5780   *FX112,3
 5790   FOR y=768 TO 0 STEP -256
 5800      READ x,x1
 5810      PROCplot("MOUNTAINS",x,y)
 5820      PROCplot("MOUNTAINS",x1,y)
 5830   NEXT
 5840   DATA 0,0,-4,1276,-8,1272,-12,1268
 5850   DATA -16,1264,-20,1260,-24,1256,-28,1252
 5860   *FX112,4
 5870   FOR y=768 TO 0 STEP -256
 5880      READ x,x1
 5890      PROCplot("MOUNTAINS",x,y)
 5900      PROCplot("MOUNTAINS",x1,y)
 5910   NEXT
 5920   *FX112,1
 5930ENDPROC
 5940
 5950DEF PROCStartUpMessages
 6110   *FX112,2
 6120   PROCClearScr(0)
 6130   PROCplot("LOGO",450,400)
 6140   *FX112,1
 6150   CALL scroll_code
 6160   A$=INKEY$(0):IF A$<>"" ENDPROC
 6170   *CHANNELVOICE 1 LASER
 6180   FOR l=-50 TO 260 STEP 4
 6190      *FX19
 6200      PROCplot("STEVE",284,l)
 6210      IF ((l+45) AND 31)=31 SOUND 1,-15,&1400,4
 6220      A$=INKEY$(0):IF A$<>"" l=261
 6230   NEXT l
 6240   IF A$<>"" ENDPROC
 6250   *CHANNELVOICE 2 EXPLOSION
 6260   SOUND 2,-15,&1400,26
 6270   FOR l=-50 TO 160 STEP 4
 6280      *FX19
 6290      PROCplot("TEZ",284,l)
 6300       IF ((l+45) AND 31)=31 SOUND 1,-15,&1400,4
 6310   A$=INKEY$(0):IF A$<>"" l=161
 6320   NEXT l
 6330   IF A$<>"" ENDPROC
 6340   *CHANNELVOICE 2 EXPLOSION
 6350   SOUND 2,-15,&1400,26
 6360   PROCDelay(30)
 6370   PROCCentre("Press space to continue",28,15)
 6380   *FX15,0
 6390   A=GET
 6400ENDPROC
 6410
 6420DEF PROCDelay(length)
 6430   LOCAL l
 6440   FOR l=1 TO length
 6450      *FX19
 6460   NEXT l
 6470ENDPROC
 6480
 6490DEF PROCWaiter
 6500  OFF
 6510  LOCAL ERROR
 6520  ON ERROR LOCAL RESTORE ERROR:PROCFin:ENDPROC
 6530  *FX15,0
 6540  *FX229,0
 6550  REPEAT
 6560     FOR A=1 TO 6
 6570        ON A PROCAknowledgements,PROCFlightKeys,PROCControlKeys,PROCAlienIds,PROCPoints,PROCDisplayHiScores
 6580        PROCkey
 6590     NEXT
 6600  UNTIL FALSE
 6610ENDPROC
 6620
 6630DEF PROCInstructions
 6640   OFF
 6650   PROCInstructions1
 6660   PROCDelay(350)
 6670   PROCInstructions2
 6680   PROCDelay(350)
 6690   PROCInstructions3
 6700   PROCDelay(400)
 6710   PROCInstructions4
 6720   PROCDelay(350)
 6730   PROCInstructions5
 6740   PROCDelay(350)
 6750   PROCInstructions6
 6760   PROCDelay(475)
 6770   PROCInstructions7
 6780   PROCDelay(475)
 6790ENDPROC
 6800
 6810DEF PROCAknowledgements
 6820   *FX112,2
 6830   PROCClearScr(0)
 6850   PROCplot("LOGO",430,350)
 6870   COLOUR 8
 6880   PRINT TAB(0,22)"Code :"
 6890   PRINT TAB(0,23)"Steve O'Leary"
 6900   PRINT TAB(32,22)"Grafix :"
 6910   PRINT TAB(29,23)"Tez O'Leary"
 6920   *FX112,1
 6930   CALL scroll_code
 6940ENDPROC
 6950
 6960DEF PROCFlightKeys
 6970   *FX112,2
 6980   PROCClearScr(0)
 6990   PROCCentre("Ace Crusader Flight Controls",8,8)
 7000   PROCCentre("Z/X .................. Left/Right",10,11)
 7010   PROCCentre("' ............................ Up",12,11)
 7020   PROCCentre("/ .......................... Down",14,11)
 7030   PROCCentre("Left Alt ............ Thrust Left",16,11)
 7040   PROCCentre("Right Alt .......... Thrust Right",18,11)
 7050   PROCCentre("Return ..................... Fire",20,11)
 7060   PROCCentre("Space ................ Smart Bomb",22,11)
 7070   *FX112,1
 7080   CALL scroll_code
 7090ENDPROC
 7100
 7110DEF PROCControlKeys
 7120   *FX112,2
 7130   PROCClearScr(0)
 7140   PROCCentre("Ace Crusader Game Controls",8,8)
 7150   PROCCentre("Space ...................... Start Game",10,11)
 7160   PROCCentre("I ........................ Instructions",12,11)
 7170   PROCCentre("P ........... Enter Password/Pause Game",14,11)
 7180   PROCCentre("Q + F12 ....... Quit Game While Playing",16,11)
 7190   PROCCentre("Esc ......................... Quit Game",18,11)
 7200   PROCCentre("Return .... Advance To next Info Screen",20,11)
 7210   *FX112,1
 7220   CALL scroll_code
 7230ENDPROC
 7240
 7250DEF PROCInstructions1
 7260   *FX112,2
 7270   PROCClearScr(0)
 7280   PROCCentre("Mission Brief - Page 1",8,9)
 7290   PROCCentre("Alien Forces have invaded a small pocket",10,12)
 7300   PROCCentre("of the galaxy.",12,12)
 7310   PROCCentre("Your mission, should you decide to",14,12)
 7320   PROCCentre("accept it, is to protect the defenceless",16,12)
 7330   PROCCentre("planets of the outer reaches of the",18,12)
 7340   PROCCentre("galaxy.",20,12)
 7350   *FX112,1
 7360   CALL scroll_code
 7370ENDPROC
 7380
 7390DEF PROCInstructions2
 7400   *FX112,2
 7410   PROCClearScr(0)
 7420   PROCCentre("Mission Brief - Page 2",8,9)
 7430   PROCCentre("The Alien Forces wish to kidnap stasis",10,12)
 7440   PROCCentre("pods in order to perform evil",12,12)
 7450   PROCCentre("experiments upon them. After this",14,12)
 7460   PROCCentre("they will use the human corpses as",16,12)
 7470   PROCCentre("hi-protien food. It is therefore",18,12)
 7480   PROCCentre("imperative that you save as many",20,12)
 7490   PROCCentre("of these pods as you can.",22,12)
 7500   *FX112,1
 7510   CALL scroll_code
 7520ENDPROC
 7530
 7540DEF PROCInstructions3
 7550   *FX112,2
 7560   PROCClearScr(0)
 7570   PROCCentre("Mission Brief - Page 3",8,9)
 7580   PROCCentre("If you succeed in destroying enough",10,12)
 7590   PROCCentre("aliens, then they will retreat and",12,12)
 7600   PROCCentre("call for the heavily armoured ship.",14,12)
 7610   PROCCentre("At this point all pods will be",16,12)
 7620   PROCCentre("removed from the planet surface by",18,12)
 7630   PROCCentre("tractor beam. They can only be",20,12)
 7640   PROCCentre("rescued by destroying this ship.",22,12)
 7650   *FX112,1
 7660   CALL scroll_code
 7670ENDPROC
 7680
 7690DEF PROCInstructions4
 7700   *FX112,2
 7710   PROCClearScr(0)
 7720   PROCCentre("Mission Brief - Page 4",8,9)
 7730   PROCCentre("If you stay alive (unlikely !) and",10,12)
 7740   PROCCentre("save this planet, then you will be",12,12)
 7750   PROCCentre("posted to the next planet in the",14,12)
 7760   PROCCentre("quadrant.",16,12)
 7770   PROCCentre("You have been allocated 100",18,12)
 7780   PROCCentre("planets to protect",20,12)
 7790   *FX112,1
 7800   CALL scroll_code
 7810ENDPROC
 7820
 7830DEF PROCInstructions5
 7840   *FX112,2
 7850   PROCClearScr(0)
 7860   PROCCentre("Mission Brief - Page 5 (Weaponry)",8,9)
 7870   PROCCentre("Your Phantom Mk2-B StarFighter",10,12)
 7880   PROCCentre("is equipped with a medium power",12,12)
 7890   PROCCentre("pulse laser.",14,12)
 7900   PROCCentre("Your ship can carry up to 3 smart",16,12)
 7910   PROCCentre("bombs, and you are equipped with",18,12)
 7920   PROCCentre("1 to start with.",20,12)
 7930   *FX112,1
 7940   CALL scroll_code
 7950ENDPROC
 7960
 7970DEF PROCInstructions6
 7980   *FX112,2
 7990   PROCClearScr(0)
 8000   PROCCentre("Mission Brief - Page 6",8,9)
 8010   PROCCentre("If a pod is kidnapped there will be",10,12)
 8020   PROCCentre("an audible distress message.",12,12)
 8030   PROCCentre("You should use your medium range",14,12)
 8040   PROCCentre("TI 99/4A radar to locate them",16,12)
 8050   PROCCentre("and destroy the kidnapper.",18,12)
 8060   PROCCentre("If you then pick up the pods before",20,12)
 8070   PROCCentre("they land, you gain extra points",22,12)
 8080   *FX112,1
 8090   CALL scroll_code
 8100ENDPROC
 8110
 8120DEF PROCInstructions7
 8130   *FX112,2
 8140   PROCClearScr(0)
 8150   PROCCentre("Mission Brief - Page 7",8,9)
 8160   PROCCentre("When an alien is destroyed they may",10,12)
 8170   PROCCentre("release a smart bomb or extra",12,12)
 8180   PROCCentre("energy unit, you are advised to",14,12)
 8190   PROCCentre("pick these up.",16,12)
 8200   PROCCentre("You may also find Super Shield and",18,12)
 8210   PROCCentre("Super Guns bonus's. Pick these up",20,12)
 8220   PROCCentre("For improved weapons and shields.",22,12)
 8230   *FX112,1
 8240   CALL scroll_code
 8250ENDPROC
 8260
 8270DEF PROCAlienIds
 8280   *FX112,2
 8290   PROCClearScr(0)
 8300   PROCCentre("Craft Identification",8,10)
 8310   PROCCentre("Stasis Pods                       ",10,13)
 8320   PROCplot("STASIS_POD",1000,672)
 8330   PROCCentre("Super Guns                        ",12,13)
 8340   PROCplot("GUNS",984,608)
 8350   PROCCentre("Super Shield                      ",14,13)
 8360   PROCplot("SHIELD",984,544)
 8370   PROCCentre("Extra Smart Bomb                  ",16,13)
 8380   PROCplot("SMARTBOMB",1000,480)
 8390   PROCCentre("Extra shield energy               ",18,13)
 8400   PROCplot("ENERGY",1000,416)
 8410   PROCCentre("All others are legitimate targets",23,11)
 8420   *FX112,1
 8430   CALL scroll_code
 8440ENDPROC
 8450
 8460DEF PROCPoints
 8470   *FX112,2
 8480   PROCClearScr(0)
 8490   PROCCentre("Points Scoring",8,9)
 8500   PROCCentre("Aliens  10 Pts",10,14)
 8510   PROCCentre("Shooting a Kidnapper  20 Pts",12,14)
 8520   PROCCentre("Rescuing a Stasis pod  50 Pts",14,14)
 8530   PROCCentre("Landing a Stasis pod  50 Pts",16,14)
 8540   PROCCentre("Losing/Shooting a Stasis pod -50 Pts",18,14)
 8550   PROCCentre("Missiles/bullets 5 Pts",20,14)
 8560   PROCCentre("Completion of level 500 Pts",22,14)
 8570   *FX112,1
 8580   CALL scroll_code
 8590ENDPROC
 8600
 8610DEF PROCkey
 8620   ldefault=1
 8630   key$=INKEY$(800)
 8640   IF key$=" " THEN PROCPlayGame:PROCClearRadar:PROCCheckScore
 8650   IF key$="p" OR key$="P" PROCe
 8660   IF key$="i" OR key$="I" PROCInstructions
 8670   *FX15,1
 8680   *FX229,0
 8690ENDPROC
 8700
 8710DEF PROCHardReset
 8720   code%!0=0
 8730   level=ldefault
 8740   PROCSetUpLevel
 8750   CALL initialise_code
 8760ENDPROC
 8770
 8780DEF PROCSoftReset
 8790   PROCMissionDebrief
 8800   PROCClearRadar
 8810   code%!0=0
 8820   PROCSetUpLevel
 8830   CALL soft_start_code
 8840   *CHANNELVOICE 1 OPENFIRE
 8850   SOUND 1,-15,&1400,16
 8860ENDPROC
 8870
 8880DEF PROCCentre(S$,Y,C)
 8890   l=LEN(S$)
 8900   VDU 5
 8910   l=l*32
 8920   l=l DIV 2
 8930   x=640-l
 8940   y=Y*32
 8950   y=ABS(y-1023)
 8960   MOVE x,y
 8970   GCOL0,C
 8980   PRINT S$
 8990   VDU4
 9000   OFF
 9010ENDPROC
 9020
 9030DEF PROCPalette
 9040   VDU19,1,24,119,119,119
 9050   RESTORE 9100
 9060   FOR l=0 TO 15
 9070      READ r,g,b
 9080      COLOUR l,r,g,b
 9090   NEXT l
 9100   DATA 0,0,0,221,221,221,187,187,187,153,153,153,119,119,119,85,85,85,51,51,51,255,255,255,0,68,153,238,238,0,0,204,0,221,0,0,238,238,187,85,136,0,255,187,0,0,187,255
 9110ENDPROC
 9120
 9130DEF PROCClearScr(col)
 9140   GCOL 0,col
 9150   RECTANGLE FILL 0,256,1280,528
 9160ENDPROC
 9170
 9180DEF PROCClearRadar
 9190   GCOL 0,0
 9200   RECTANGLE FILL 400,810,482,188
 9210        RECTANGLE FILL 388,818,502,172
 9220ENDPROC
 9230
 9240DEF PROCe
 9250   OFF
 9260   *FX112,2
 9270   PROCClearScr(0)
 9280   PROCCentre("Enter Password",8,10)
 9290   PROCplot("ENERGY",220,484)
 9300   PROCplot("ENERGY",1024,484)
 9310   *FX112,1
 9320   CALL scroll_code
 9330   COLOUR 128+0:COLOUR 14
 9340   PRINTTAB(8,16);
 9350   SYS"OS_ReadLine",bu%,24,32,126 TO ,l
 9360   p$=FNjoin(l)
 9370   p$=FNupcase(p$)
 9380   pw=FALSE
 9390   FOR ll= 1 TO 100
 9400     IF p$=p$(ll) pw=TRUE:ldefault=ll
 9410   NEXT ll
 9420   IF pw=TRUE THEN
 9430      LOCAL ERROR
 9440      ON ERROR LOCAL RESTORE ERROR:ENDPROC
 9450      PROCPlayGame:PROCCheckScore
 9460      RESTORE ERROR
 9470   ELSE
 9480      PROCCentre("P a s s w o r d   I n c o r r e c t",23,9):PROCDelay(35)
 9490   ENDIF
 9500   *FX15,1
 9510ENDPROC
 9520
 9530DEF PROCDisplayHiScores
 9540   *FX112,2
 9550   PROCClearScr(0)
 9560   PROCCentre("A c e    C r u s a d e r s",8,11)
 9570   VDU 5
 9580   OFF
 9590   FOR loop=1 TO 9
 9600      MOVE 64,754-(loop*50)
 9610      GCOL0,8
 9620      PROCcon_num(loop,2,n$)
 9630      PRINT n$"  ";
 9640      GCOL0,12
 9650      PROCcon_num(hi(loop),8,n$)
 9660      PRINT n$" .... ";
 9670      GCOL0,13
 9680      PRINT hi$(loop)
 9690   NEXTloop
 9700   VDU 4
 9710   OFF
 9720   *FX112,1
 9730   CALL scroll_code
 9740ENDPROC
 9750
 9760DEF PROCCheckScore
 9770   PROCIsItAHiScore
 9780   IF yes THEN
 9790      PROCre_shuffle_scores
 9800      PROCput_in_table
 9810      PROCDisplayHiScores
 9820      PROCenter_name
 9830      PROCDisplayHiScores
 9840      PROCDelay(100)
 9850   ENDIF
 9860ENDPROC
 9870
 9880DEF PROCIsItAHiScore
 9890   yes=FALSE
 9900   score=code%!4
 9910   FOR loop=9 TO 1 STEP-1
 9920      IF score>hi(loop) yes=TRUE:pos=loop
 9930   NEXT
 9940ENDPROC
 9950
 9960DEF PROCconvert_dig_to_string
 9970   time=code%!4
 9980   time$=STR$(time)
 9990   IF LEN(time$)=4 temptime$="    "+time$
10000   IF LEN(time$)=5 temptime$="   "+time$
10010   IF LEN(time$)=6 temptime$="  "+time$
10020   IF LEN(time$)=7 temptime$=" "+time$
10030   time$=LEFT$(temptime$,3)
10040   time$=time$+" "
10050   time$=time$+MID$(temptime$,5,2)
10060   time$=time$+" "
10070   time$=time$+RIGHT$(temptime$,1)
10080ENDPROC
10090
10100DEF PROCput_in_table
10110   hi(pos)=score
10120   hi$(pos)="                  "
10130ENDPROC
10140
10150DEF PROCre_shuffle_scores
10160   IF pos<>9 THEN
10170      FOR loop=8 TO pos STEP-1
10180         hi(loop+1)=hi(loop)
10190         hi$(loop+1)=hi$(loop)
10200      NEXT
10210   ENDIF
10220ENDPROC
10230
10240DEF PROCenter_name
10250   PROCPrintLine("Please enter your name below",10)
10260   COLOUR 128
10270   COLOUR 0
10280   GCOL0,10
10290   GCOL0,128
10300   VDU 5
10310   OFF
10320   MOVE 640,754-(pos*50)
10330   *FX15,1
10340   SYS"OS_ReadLine",bu%,20,32,126 TO ,l
10350   hi$(pos)=FNjoin(l)
10360   VDU4
10370   OFF
10380   *FX15,1
10390   REPEAT
10400      key$=INKEY$(0)
10410   UNTIL key$=""
10420   *FX15,1
10430   PROCClearRadar
10440ENDPROC
10450
10460DEF FNjoin(l)
10470   s$=""
10480   FOR ll=0 TO l-1
10490      s$=s$+CHR$?(bu%+ll)
10500   NEXT
10510=s$
10520
10530DEF FNupcase(s$)
10540   s2$=""
10550   FOR ll=1 TO LEN(s$)
10560      s3$=MID$(s$,ll,1)
10570      IF s3$>="a" AND s3$<="z" s3$=CHR$(ASC(s3$)-32)
10580      s2$=s2$+s3$
10590   NEXT
10600=s2$
10610
10620DEF PROCcon_num(int,chrs,RETURN ret$)
10630   ret$=STR$(int)
10640   WHILE LEN(ret$)<>chrs
10650     ret$=" "+ret$
10660   ENDWHILE
10670ENDPROC
10680
10690DEF PROCDecodeDelay(in$, RETURN p)
10700   LOCAL d$
10710   p+=1
10720   d$=""
10730   REPEAT
10740      d$=d$+MID$(in$,p,1)
10750      p+=1
10760   UNTIL MID$(in$,p,1)="^"
10770   p+=1
10780   IF NOT speed PROCDelay(VAL(d$))
10790ENDPROC
10800
10810DEF PROCDecode(in$,RETURN p)
10820   p+=1
10830   IF MID$(in$,p,1)="P" THEN PROCDecodeDelay(in$,p)
10840ENDPROC
10850
10860DEF PROCExtractWord(in$,RETURN p,RETURN w$)
10870   w$=""
10880   WHILE (MID$(in$,p,1)<>" ")  AND (p<=LEN(in$))
10890      IF MID$(in$,p,1)="^" THEN
10900         PROCDecode(in$,p)
10910      ELSE
10920         w$=w$+MID$(in$,p,1)
10930         p+=1
10940      ENDIF
10950   ENDWHILE
10960   IF MID$(in$,p,1)=" " THEN p+=1
10970ENDPROC
10980
10990DEF PROCPrintWord(pw$,RETURN lx)
11000   LOCAL l
11010   FOR l=1 TO LEN(pw$)
11020      A$=INKEY$(0):IF A$<>"" speed=TRUE
11030      IF NOT speed PROCDelay(RND(3)+2)
11040      SOUND 1,-15,&1400,1
11050      PRINTTAB(lx,message_y)MID$(pw$,l,1)
11060      lx+=1
11070   NEXT l
11080ENDPROC
11090
11100
11110DEF PROCPrintLine(l$,c)
11120   IF message_y<5 THEN
11130      message_y+=1
11140   ELSE
11150      PROCScrollUp(8)
11160   ENDIF
11170   COLOUR c
11180   *CHANNELVOICE 1 BLEEP
11190   LOCAL x,l,r,charpos,word$
11200   x=12
11210   charpos=1
11220   REPEAT
11230      PROCExtractWord(l$,charpos,word$)
11240      IF LEN(word$)+x<29 THEN
11250         PROCPrintWord(word$,x)
11260         IF x<28 THEN PROCPrintWord(" ",x)
11270      ELSE
11280         x=12
11290         IF message_y<5 THEN
11300            message_y+=1
11310         ELSE
11320            PROCScrollUp(8)
11330         ENDIF
11340         PROCPrintWord(word$,x)
11350         IF x<27 THEN PROCPrintWord(" ",x)
11360      ENDIF
11370   UNTIL charpos>LEN(l$)
11380ENDPROC
11390
11400DEF PROCRotateStars
11410   *FX15
11420   REPEAT
11430      FOR L=0 TO 7
11440         *FX19
11450         PROCplot("STAR"+STR$L,1016,630)
11460         PROCplot("STAR"+STR$L,1016,286)
11470         PROCplot("STAR"+STR$L,200,630)
11480         PROCplot("STAR"+STR$L,200,286)
11490         A$=INKEY$(0):IF A$<>"" L=8
11500      NEXT L
11510   UNTIL A$<>""
11520ENDPROC
11530
11540 DEF PROCFin
11550    *CHANNELVOICE 1 EXPLOSION
11560    FOR l=784 TO 1024 STEP 8
11570       SOUND 1,-15,l-784,2
11580       PROCDelay(1)
11590       PROCplot("DISPLAY",0,l)
11600    NEXT l
11610    FOR l=0 TO -256 STEP -8
11620       PROCplot("MOUNTAINS",0,l)
11630       SOUND 1,-15,l+256,2
11640       PROCDelay(1)
11650    NEXT l
11660    CLS
11670    PROCplot("LOGO",450,600)
11680    PROCCentre("Copyright � Archimedes World 1993",16,9)
11740   COLOUR 8
11750 ENDPROC
11760
11770DEF PROCWimpInitialise
11780  DIM block% 300
11790  DIM winb% 2600,menu% 147
11800  DIM ind1% 150,ind2% 150,ind3% 600,ind4% 20, name% 11
11810  fi1%=OPENIN"<AceCrusader$Dir>.grafix"
11820  size%=EXT#fi1%+4
11830  CLOSE# fi1%
11840  DIM sspace% size%
11850  !sspace%=size%
11860  sspace%!8=16
11870  SYS"OS_SpriteOp",&10A,sspace%,"<AceCrusader$Dir>.grafix"
11880  $name%="Info"
11890  quit%=FALSE:app$="Ace Crusader"
11900  SYS "Wimp_Initialise",200,&4B534154,app$
11910  !block%=-1
11920  block%!4=0
11930  block%!8=24
11940  block%!12=96
11950  block%!16=56
11960  block%!20=&3002
11970  $(block%+24)="!Crusader"
11980  SYS "Wimp_CreateIcon",,block%
11990  SYS "Wimp_OpenTemplate",,"<AceCrusader$Dir>.templates"
12000  SYS "Wimp_LoadTemplate",,winb%,ind1%,ind1%+150,-1,name%,0
12010  SYS "Wimp_CreateWindow",,winb% TO info%
12020  $name%="INITIALISE"
12030  SYS "Wimp_LoadTemplate",,winb%,ind2%,ind2%+150,-1,name%,0
12040  SYS "Wimp_CreateWindow",,winb% TO init%
12050  $name%="HI-SCORES"
12060  SYS "Wimp_LoadTemplate",,winb%,ind3%,ind3%+600,-1,name%,0
12070  winb%!64=sspace%
12080  SYS "Wimp_CreateWindow",,winb% TO hiscores%
12090  $name%="SOUNDCHECK"
12100  SYS "Wimp_LoadTemplate",,winb%,ind4%,ind4%+20,-1,name%,0
12110  winb%!64=1
12120  SYS "Wimp_CreateWindow",,winb% TO sounds%
12130  SYS "Wimp_CloseTemplate"
12140  !winb%=init%
12150  SYS "Wimp_GetWindowState",,winb%
12160  SYS "Wimp_OpenWindow",,winb%
12170  $menu%="Crusader"
12180  menu%!12=&70207
12190  menu%!16=160
12200  menu%!20=44
12210  menu%!24=0
12220  ptr%=menu%+28
12230  !ptr%=0
12240  ptr%!4=info%
12250  ptr%!8=&7000021
12260  $(ptr%+12)="Info"
12270  ptr%+=24
12280  !ptr%=0
12290  ptr%!4=-1
12300  ptr%!8=&7000021
12310  $(ptr%+12)="Play game"
12320  ptr%+=24
12330  !ptr%=0
12340  ptr%!4=-1
12350  ptr%!8=&7000021
12360  $(ptr%+12)="Hi scores"
12370  ptr%+=24
12380  !ptr%=0
12390  ptr%!4=-1
12400  ptr%!8=&7000021
12410  $(ptr%+12)="Sounds"
12420  ptr%+=24
12430  !ptr%=&80
12440  ptr%!4=-1
12450  ptr%!8=&7000021
12460  $(ptr%+12)="Quit"
12470  FOR l=1 TO 5
12480     SYS "Wimp_Poll",0,block% TO reason%
12490  NEXT l
12500  SYS"Hourglass_On"
12510  PROCInitialise
12520  PROCCopyBest
12530  !winb%=init%
12540  SYS "Wimp_CloseWindow",,winb%
12550  SYS"Hourglass_Off"
12560  PROCIconText(sounds%,8,"Game Sound is On")
12570ENDPROC
12580
12590DEF PROCCopyBest
12600  FOR l=1 TO 9
12610    PROCIconText(hiscores%,12+l,STR$(hi(l)))
12620    PROCIconText(hiscores%,21+l,hi$(l))
12630  NEXT l
12640ENDPROC
12650
12660DEF PROCIconText(handle%,icon%,s$)
12670  block%!0=handle%
12680  block%!4=icon%
12690  SYS"Wimp_GetIconState",,block%
12700  $(block%!28)=s$
12710  block%!8=0
12720  block%!12=0
12730  SYS"Wimp_SetIconState",,block%
12740ENDPROC
12750
12760DEF PROCWimpPoll
12770  SYS "Wimp_Poll",0,block% TO reason%
12780  CASE reason% OF
12790    WHEN 2 : SYS"Wimp_OpenWindow",,block%
12800    WHEN 3 : SYS"Wimp_CloseWindow",,block%
12810    WHEN 6 : PROCclick
12820    WHEN 9 : PROCMenuItem
12830    WHEN 17,18 : PROCMessageIn
12840  ENDCASE
12850ENDPROC
12860
12870DEF PROCMessageIn
12880   CASE block%!16 OF
12890      WHEN 0 : quit%=TRUE
12900   ENDCASE
12910ENDPROC
12920
12930DEF PROCclick
12940  CASE block%!8 OF
12950    WHEN 1,4 : PROCSelectAdjust
12960    WHEN 2   : PROCMenu
12970  ENDCASE
12980ENDPROC
12990
13000DEF PROCSelectAdjust
13010   CASE block%!12 OF
13020      WHEN -2 : PROCRunGame
13030      WHEN sounds% : PROCSounds
13040   ENDCASE
13050ENDPROC
13060
13070DEF PROCSounds
13080   icon%=block%!16
13090   IF icon%>=0 AND icon%<8 PROCPlaySound(icon%)
13100   IF icon%=8 THEN
13110      sound=NOT sound
13120      IF sound THEN
13130         PROCIconText(sounds%,icon%,"Game Sound is On")
13140         !soundadr=1
13150      ELSE
13160         PROCIconText(sounds%,icon%,"Game Sound is Off")
13170         !soundadr=0
13180      ENDIF
13190   ENDIF
13200ENDPROC
13210
13220DEF PROCPlaySound(n)
13230   IF FNEnsureSounds ENDPROC
13240   CASE n OF
13250      WHEN 0 : s$="DRIP":p=&1400:l=5
13260      WHEN 1 : s$="OPENFIRE":p=&1400:l=16
13270      WHEN 2 : s$="EXPLOSION":p=&1400:l=26
13280      WHEN 3 : s$="PING":p=&1400:l=6
13290      WHEN 4 : s$="HELPME":p=&1400:l=10
13300      WHEN 5 : s$="HELP":p=&1400:l=11
13310      WHEN 6 : s$="LASER":p=&1400:l=4
13320      WHEN 7 : s$="THANKYOU":p=&1400:l=6
13330   ENDCASE
13340   SYS"Sound_AttachVoice",1,1 TO ,voice1
13350   OSCLI"CHANNELVOICE 1 "+s$
13360   SOUND 1,-15,p,l
13370   PROCDelay(l*3)
13380   OSCLI"CHANNELVOICE 1 "+STR$voice1
13390ENDPROC
13400
13410DEF PROCMenu
13420   CASE block%!12 OF
13430     WHEN -2 : SYS "Wimp_CreateMenu",,menu%,!block%-64,316
13440   ENDCASE
13450ENDPROC
13460
13470DEF PROCMenuItem
13480  CASE !block% OF
13490    WHEN 1 : PROCRunGame
13500    WHEN 2 : PROCWindow(hiscores%)
13510    WHEN 3 : PROCWindow(sounds%)
13520    WHEN 4 : quit%=TRUE
13530  ENDCASE
13540  SYS "Wimp_GetPointerInfo",,block%
13550  IF block%!8=1 SYS"Wimp_CreateMenu",,menu%,0,0
13560ENDPROC
13570
13580DEF PROCWindow(handle%)
13590  !winb%=handle%
13600  SYS "Wimp_GetWindowState",,winb%
13615  winb%!28=-1
13610  SYS "Wimp_OpenWindow",,winb%
13620ENDPROC
13630
13640DEF PROCInfo(e$)
13650   block%!0=255
13660   $(block%+4)=e$+CHR$(0)
13670   SYS"Wimp_ReportError",block%,&11,"Information from "+app$
13680ENDPROC

� >!RUNIMAGE

4� Ace Crusader - sideways scrolling shoot 'em up
(
2� By Steve O'Leary
<
F� � Archimedes World 1993
P
Z� Controller Program
d
n� Version : 1.1
x
�"� See '!Help' for more details
� �WimpInitialise
� �
�   �WimpPoll
� � quit%=�
� �WimpTidyUp
� ș"Wimp_CloseDown"
� �
�
�� �RunGame
�  � � �EnsureSounds �
�      � �EnoughScreenMemory �
�        �CrusaderGame

     �
        �ScreenMemoryError

     �
"  �
,�
6
@� �CrusaderGame
J6   � sound ș"Sound_Enable",2 � ș"Sound_Enable",1
T    ș "OS_Byte",135 � ,,mode
^"   ș"Wimp_CommandWindow",app$
h   *FX229,1
r   �GameInitialise
|   �StartUpMessages
�   �DisplayGameScreen
�   �ClearRadar
�   *FX15,1
�   �Waiter
�   �GameTidyUp
�   ș"Wimp_CommandWindow",0
�   ș"Wimp_SetMode",mode
�   �CopyBest
�   *FX229,0
�   � !soundadr=0 �
�      sound=off
�2      �IconText(sounds%,8,"Game Sound is Off")
�   �
      sound=on
1      �IconText(sounds%,8,"Game Sound is On")
   �
&�
0
:� �GameTidyUp
D   *FX20,0
N   Ƞ channels
X!   �"CHANNELVOICE 1 "+�voice1
b!   �"CHANNELVOICE 2 "+�voice2
l!   �"CHANNELVOICE 3 "+�voice3
v!   �"CHANNELVOICE 4 "+�voice4
�   ș"Sound_Enable",2
��
�
�� �WimpTidyUp
�   � � �
�   *RMKILL DRIP
�   *RMKILL EXPLOSION
�   *RMKILL HELPME
�   *RMKILL LASER
�   *RMKILL OPENFIRE
�   *RMKILL PING
�   *RMKILL HELP
�   *RMKILL THANKYOU
�   *RMKILL BLEEP
�

� �ScreenMemoryError
 1   e$="I need 160K of screen memory to run. "
*6   e$=e$+"Change to a mode that uses more memory "
45   e$=e$+"e.g. 15 or 36, or click on Acorn icon "
>7   e$=e$+"at right hand side of the Icon Bar, and "
H9   e$=e$+"drag 'Screen memory' bar to at least 160K."
R   �Info(e$)
\�
f
p� �GameInitialise
z*   ș"Sound_AttachVoice",1,1 � ,voice1
�*   ș"Sound_AttachVoice",2,1 � ,voice2
�*   ș"Sound_AttachVoice",3,1 � ,voice3
�*   ș"Sound_AttachVoice",4,1 � ,voice4
�/   ș"Sound_Configure",0,0,0,0,0 � channels
�	   �9
�   �Palette
�   � 19,0,24,0,0,0
�   �
�   Ƞ 4
�   �PrintMountains
��
�
�� �Initialise
   �MemoryRequests
   �Constants
   � �EnsureSounds �
      � l=1 � 5
.         ș "Wimp_Poll",0,block% � reason%

      � l
   �
$0   �"LOAD <AceCrusader$Dir>.Ace_MC "+�~code%
.,   �"LOAD <AceCrusader$Dir>.fx1 "+�~FX1%
8,   �"LOAD <AceCrusader$Dir>.fx2 "+�~FX2%
B0   �"LOAD <AceCrusader$Dir>.square "+�~font%
L   code%!36=baddie_id%
V   �SetUpScores
`
   �Rp
j   �ReadPlanetData
t   message_y=0
~   sound=on
��
�
�� �GetW(� r$)
�   r$=""
�   n=�# fi1
�   n=(n+15) � 2
�   ȕ (n<>&0A)
�      r$=r$+�(n)
�      n=�# fi1
�      n=(n+15) � 2
�   �
��


� �ReadPlanetData

   � l
+   fi1=� "<AceCrusader$Dir>.PlanetData"
(   � l=1 � 100
2      �GetW(pl$(l))
<      �GetW(ir$(l))
F
   � l
P
   �# fi1
Z�
d
n� �plot(n$,x,y)
x   � x,y
�(   ș"OS_SpriteOp",&11C,sspace%,n$,0
��
�
�� �ClearMessageWin
�   message_y=0
�   �ScrollUp(40)
��
�
�� �SetUpScores
�
   � l
�
   � �TNF
�   � l=1 � 9
�      � hi(l),hi$(l)

   � l
�   � 20000,Space Lord,10000,Admiral,8000,Commander,7000,Quadrant Leader,6000,Captain,5000,Group Leader,3000,Group Pilot,2000,Pilot,1000,StarTrooper
�
"
,� �SetFont(adr%)
6   � l=0 � 909
@      � (adr%?l)
J
   � l
T�
^
h� �MemoryRequests
r   � code% 65000
|   � baddie_id% 300
�   � FX1% 1600
�   � FX2% 300
�   � hi(9),hi$(9)
�   � bu% 30
�   � p$(273-173)
�   � pl$(100)
�   � ir$(100)
�   � font% 920
��
�
�� �SoundLoad
�!   �"CHANNELVOICE 1 "+�voice1
�   serror=1

   � �
   � � � � �:�SoundError:�
,   *RMLOAD <AceCrusader$Dir>.SOUNDS.DRIP
&,   *RMLOAD <AceCrusader$Dir>.SOUNDS.HELP
01   *RMLOAD <AceCrusader$Dir>.SOUNDS.explosion
:-   *RMLOAD <AceCrusader$Dir>.SOUNDS.laser
D0   *RMLOAD <AceCrusader$Dir>.SOUNDS.Openfire
N,   *RMLOAD <AceCrusader$Dir>.SOUNDS.ping
X0   *RMLOAD <AceCrusader$Dir>.SOUNDS.Thankyou
b.   *RMLOAD <AceCrusader$Dir>.SOUNDS.Helpme
l-   *RMLOAD <AceCrusader$Dir>.SOUNDS.BLEEP
v
   � �
��
�
�� �SoundError
�   serror=2
�7   e$="I cannot proceed without my sounds, please "
�=   e$=e$+"increase the module area in the task manager, "
�4   e$=e$+"and/or ensure my disk can be accessed"
�   �Info(e$)
�
   � �
�   � � � � �:�
�   *RMKILL DRIP
�
   � �
��
�
	� �Rp
+   fi1 = � "<AceCrusader$Dir>.SPRTDATA"
   � l=500-ls � ls-399
       �Getp(p$(l))
*
   � l
4
   �# fi1
>�
H
R� �EnsureSounds
\   serror=�
f
   � �
p   � � � �SoundLoad
z   � serror=� �
�-      ș"Sound_AttachVoice",1,1 � ,voice1
�      *CHANNELVOICE 1 DRIP
�$      �"CHANNELVOICE 1 "+�voice1
�   �
�   � serror=2 serror=�
�   � serror=1 serror=�
�
   � �
�=serror
�
�� �Getp(� r$)
�   r$=""
�   n=�# fi1
�   ȕ (n<>20)
	      n=(n+20)� 3
	      r$=r$+�(n)
	      n=�# fi1
	$   �
	.�
	8
	B� �Constants
	L    initialise_code=code%+544
	V    soft_start_code=code%+592
	`   main_game_code=code%+616
	j   eolb_game_code=code%+740
	t   scroll_code=FX1%+260
	~   game_over=1
	�   all_baddies_shot=2
	�   level_complete=3
	�   user_pressed_escape=4
	�
   ls=499
	�   up_code=FX2%+72
	�   on=-1
	�   off=0
	�   soundadr=code%+52
	��
	�
	�� �DisplayGameScreen
	�   �Delay(50)
    *CHANNELVOICE 1 EXPLOSION

   � l=1023 � 784 � -4
      � 1,-15,l-784,2
      �Delay(3)
(      �plot("DISPLAY",0,l)
2
   � l
<   � 1,-15,256,2
F   � 1,-15,&1400,6
P   �Delay(8)
Z    *CHANNELVOICE 1 EXPLOSION
d   � l=-256 � 0 � 4
n       �plot("MOUNTAINS",0,l)
x      � 1,-15,l+256,2
�      �Delay(3)
�
   � l
�   �StartMessage
��
�
�� �StartMessage
�   speed=�
�   *FX15,0
�S   �PrintLine("Zen 3000 Artificial Intelligence Computer activating. ^P75^",11)
�5   �PrintLine("Checking Node address's ^P30^",15)
�&   �PrintLine("Green OK ^P20^",10)
�!   �PrintLine("Confirmed",14)
�-   �PrintLine("Checking Server ^P30^",15)
,   �PrintLine("Server present ^P20^",10)
!   �PrintLine("Confirmed",14)
,   �PrintLine("Checking Boost ^P30^",15)
"+   �PrintLine("Pressure Good ^P20^",10)
,!   �PrintLine("Confirmed",14)
6&   �PrintLine("All Systems GO",10)
@   �PrintLine(" ",10)
J$   �PrintLine("Zen is ready",11)
T   �PrintLine(" ",10)
^�   �PrintLine("Welcome Aboard Sir, It is a pleasure to be serving with you again. ^P50^Unfortunatly as you know Sir, our chances of survival this time are not good, but such is life ! ^P35^",15)
h+   �PrintLine("Good Luck Sir ^P60^",14)
r'   �PrintLine("LETS GO ! ^P40^",11)
|   �ClearMessageWin
��
�
�� �ScrollUp(c)
�   FX2%!0=48
�   FX2%!4=8
�   FX2%!8=64
�   FX2%!12=40
�
   � l
�   � l=1 � c
�      *FX19
�      � up_code
�
   � l
��

� �MissionBrief
   message_y=0
&   �ClearRadar
0   speed=�
:   *FX15,0
D;   � level<42 � level>55 �PrintLine("Mission Brief",13)
N(   �PrintLine("Sector : "+�level,15)
X+   �PrintLine("Planet : "+pl$(level),9)
b   �Delay(50)
lO   � level<42 � level>55 �PrintLine("Intelligence reports ...... ^P50^",13)
v    �PrintLine(ir$(level),15)
�   � level<41 � level>54 �
�      �Delay(50)
�.      �PrintLine("Good Luck Sir ^P60^",14)
�*      �PrintLine("LETS GO ! ^P50^",11)
�   �
�   �ClearMessageWin
�   speed=�
��
�
�� �MissionDebrief
�   speed=�
�   �ClearRadar
�Z   � level<42 � level>55 �PrintLine("Well Done Sir, We have survived again. ^P35^",15)

8   �PrintLine("Password for next sector : ^P40^",11)

   �PrintLine(p$(level),14)

   �Delay(50)

 #   �PrintLine("Press Fire.",11)

*   *FX15,0

4
   A=�

>   �ClearMessageWin

H�

R

\� �SetUpLevel

f   �SetUpBaddies

p   code%!8=(level � 15)+10

z=   code%!20=(level � 20):� level >2 � level <5 code%!20=1

�<   code%!16=(level � 20):� level>1 � level <5 code%!16=1

�4   code%!28=level � 10: � code%!28=0 code%!28=10

�   code%!32=(level*2)+10

�;   code%!12=(level � 2)+30:� level>50 code%!12=level+30

�   code%!44=(level � 50)+1

�   code%!48=(level � 50)+1

�.   � (level � 7)>0 code%!24=1 � code%!24=3

�   �MissionBrief

��

�

�� �SetUpBaddies

�   � level <5 � �GroupA

�%   � level >4 � level <10 �GroupB
%   � level >9 � level <15 �GroupC
   � level >14 �GroupD
�
$
.
� �GroupA
8
   � �DjN
B   � l=0 � 63
L
      � d
V      baddie_id%?l=d
`
   � l
j�   � 17,17,17,15,15,28,62,17,54,16,62,19,54,16,62,19,54,16,62,62,17,17,62,19,54,16,62,19,54,16,62,19,54,16,62,19,54,62,62,62,62,16,62,19,17,16,62,19,54,16,17,19,54,17,62,19,54,16,17,17,17,62,15,28
t
~   code%!40=63
��
�
�
� �GroupB
�
   � �dXN
�   � l=0 � 63
�
      � d
�      baddie_id%?l=d
�
   � l
��   � 17,17,17,15,15,28,66,49,50,18,62,19,54,16,62,19,54,16,62,62,17,17,62,19,54,16,62,19,54,16,62,19,54,16,62,19,54,62,62,62,62,16,62,19,17,16,62,19,54,16,17,19,54,17,62,19,54,16,17,17,17,62,15,28
�
�   code%!40=63
��



� �GroupC

   � �DFO
   � l=0 � 63
(
      � d
2      baddie_id%?l=d
<
   � l
F�   � 17,17,17,15,15,28,66,49,50,18,20,55,56,53,62,19,54,16,62,62,17,17,62,19,54,16,62,19,54,16,62,19,54,16,62,19,54,62,62,62,62,16,62,19,17,16,62,19,54,16,17,19,54,17,62,19,54,16,17,17,17,62,15,28
P
Z   code%!40=63
d�
n
x
� �GroupD
�
   � �ttO
�   � l=0 � 63
�
      � d
�      baddie_id%?l=d
�
   � l
��   � 17,17,17,15,15,28,66,49,50,18,20,55,56,53,57,59,58,52,62,62,17,17,62,19,54,48,62,19,54,16,62,19,54,16,62,19,54,62,62,62,62,16,62,19,17,16,62,19,54,16,17,19,54,17,62,19,54,16,17,17,17,62,15,28
�
�   code%!40=63
��
�
�� �SetUpEolb
�   code%!0=0
�   code%!24=31
�*   � level=100 code%!20=15:code%!16=15
�

� �PlayGame
"
   � �
,   � � � � �:�
6   *FX112,2
@   �ClearScr(0)
J   *FX112,1
T   � scroll_code
^   �HardReset
h   *FX229,1
r   *CHANNELVOICE 1 OPENFIRE
|   �Delay(25)
�   � 1,-15,&1400,16
�   �
�      *FX229,1
�      � main_game_code
�      *FX15,0
�      *FX229,0
�%      � !code%=all_baddies_shot �
�         �SetUpEolb
�         *FX229,1
�         � eolb_game_code
�         *FX15,0
�         *FX229,0
�      �
      *FX15,0
9      � !code%=user_pressed_escape � Deliberate error
(      � !code%=game_over � �ShipLost
&#      � !code%=level_complete �
0         level+=1
:         � level=101 �
D             !code%=game_over
N            �Success
X         �
b            �SoftReset
l         �
v      �
�   � !code%=game_over
�
   � �
��
�
�� �Success
�   �MoveCannon(1216)
�   � L=1216 � 1280 � 4
�      �Delay(5)
�       �plot("CANNON1",L,600)
�      � 1,-15,L-1279,3
�	   �L
�   � L=0 � 4
1      ș"OS_SpriteOp",303,sspace%,"CANNON"+�L

   � L
   �MoveCannon(0)
    � L=0 � -64 � -4
*      �Delay(5)
4       �plot("CANNON1",L,600)
>      � 1,-15,L-1279,3
H	   �L
R   � L=0 � 4
\1      ș"OS_SpriteOp",303,sspace%,"CANNON"+�L
f
   � L
p   �Congrats
z   �RotateStars
��
�
�� �Congrats
�"   �Centre("Brilliant !!",9,9)
�%   �Centre("What a hero !",11,10)
�:   �Centre("You saved the day (and the galaxy)",13,10)
�>   �Centre("You have been promoted to Commander in",15,10)
�8   �Centre("Chief of all the Galaxies forces",17,10)
�/   �Centre("I'll smoke you a kipper",19,10)
�*   �Centre("You'll be back ...",21,10)
�+   �Centre("... for breakfast !",23,10)
��
�
� �MoveCannon(x)
    *CHANNELVOICE 1 EXPLOSION
   � x=1216 �
$      � L=1280 � x � -4
.         �Delay(5)
8#         �plot("CANNON0",L,600)
B         � 1,-15,L-1279,3
L      �L
V   �
`      � L=-64 � x � 4
j         �Delay(5)
t#         �plot("CANNON0",L,600)
~         � 1,-15,L-1279,3
�      �L
�   �
�   �Delay(40)
�   v=-15
�   � L=600 � 256 � -4
�      v-=1
�      � v=-1 v=-15
�      �Delay(1)
�      �plot("CANNON0",x,L)
�      � 1,v,10,1
�
   � L
�   � L=1 � 4
      �Delay(13)

"      �plot("CANNON"+�L,x,256)
      � 1,-15,100,1

   � L
(   �Delay(25)
2   � 1,-15,&1400,7
<   �plot("CANNON0",x,256)
F   �Delay(7)
P   � 1,-15,&1400,7
Z   � x=1216 �
d'      �FireStar(x-100,x-200,-8,286)
n   �
x&      �FireStar(x+100,x+200,8,286)
�   �
�   �Delay(40)
�   v=-15
�   � L=256 � 600 � 4
�      v-=1
�      � v=-1 v=-15
�      �Delay(1)
�      �plot("CANNON0",x,L)
�      � 1,v,10,1
�
   � L
�   � L=1 � 4
�      �Delay(13)
�"      �plot("CANNON"+�L,x,600)
      � 1,-15,100,1

   � L
   �Delay(25)
"   � 1,-15,&1400,7
,   �plot("CANNON0",x,600)
6   �Delay(7)
@   � 1,-15,&1400,7
J   � x=1216 �
T'      �FireStar(x-100,x-200,-8,630)
^   �
h&      �FireStar(x+100,x+200,8,630)
r   �
|�
�
�� �FireStar(s,e,st,y)
�   � L=s � e � st
�      *FX19
�      �plot("STAR4",L,y)
�
   � L
��
�
�� �ShipLost
�   *FX112,2
�(   �Centre("Sub Space Message",8,15)
�(   �Centre("Pilot Sam Decker",14,14)
�-   �Centre("Has unfortunatly been",16,14)
)   �Centre("killed in action.",18,14)
2   �Centre("The task of these missions",20,14)
;   �Centre("will now fall to other brave pilots",22,14)
&   *FX112,1
0   � scroll_code
:   �Delay(300)
D�
N
X� �EnoughScreenMemory
b&   ș "OS_ReadDynamicArea",2 � ,M%
l   � M%<163840 =� � =�
v
�� �PrintMountains
�
   � �TtR
�   *FX112,3
�   � y=768 � 0 � -256
�      � x,x1
�       �plot("MOUNTAINS",x,y)
�!      �plot("MOUNTAINS",x1,y)
�   �
�%   � 0,0,-4,1276,-8,1272,-12,1268
�,   � -16,1264,-20,1260,-24,1256,-28,1252
�   *FX112,4
�   � y=768 � 0 � -256
�      � x,x1
       �plot("MOUNTAINS",x,y)
!      �plot("MOUNTAINS",x1,y)
   �
    *FX112,1
*�
4
>� �StartUpMessages
�   *FX112,2
�   �ClearScr(0)
�   �plot("LOGO",450,400)
�   *FX112,1
   � scroll_code
   A$=�(0):� A$<>"" �
   *CHANNELVOICE 1 LASER
$   � l=-50 � 260 � 4
.      *FX19
8      �plot("STEVE",284,l)
B,      � ((l+45) � 31)=31 � 1,-15,&1400,4
L       A$=�(0):� A$<>"" l=261
V
   � l
`   � A$<>"" �
j    *CHANNELVOICE 2 EXPLOSION
t   � 2,-15,&1400,26
~   � l=-50 � 160 � 4
�      *FX19
�      �plot("TEZ",284,l)
�-       � ((l+45) � 31)=31 � 1,-15,&1400,4
�   A$=�(0):� A$<>"" l=161
�
   � l
�   � A$<>"" �
�    *CHANNELVOICE 2 EXPLOSION
�   � 2,-15,&1400,26
�   �Delay(30)
�/   �Centre("Press space to continue",28,15)
�   *FX15,0
�
   A=�
�


� �Delay(length)

   � l
(   � l=1 � length
2      *FX19
<
   � l
F�
P
Z
� �Waiter
d  �
n	  � �
x  � � � � �:�Fin:�
�
  *FX15,0
�  *FX229,0
�  �
�     � A=1 � 6
�\        � A �Aknowledgements,�FlightKeys,�ControlKeys,�AlienIds,�Points,�DisplayHiScores
�        �key
�
     �
�	  � �
��
�
�� �Instructions
�   �
�   �Instructions1
   �Delay(350)
   �Instructions2
   �Delay(350)
"   �Instructions3
,   �Delay(400)
6   �Instructions4
@   �Delay(350)
J   �Instructions5
T   �Delay(350)
^   �Instructions6
h   �Delay(475)
r   �Instructions7
|   �Delay(475)
��
�
�� �Aknowledgements
�   *FX112,2
�   �ClearScr(0)
�   �plot("LOGO",430,350)
�
   � 8
�   � �0,22)"Code :"
�   � �0,23)"Steve O'Leary"
�   � �32,22)"Grafix :"
�   � �29,23)"Tez O'Leary"
   *FX112,1
   � scroll_code
�
&
0� �FlightKeys
:   *FX112,2
D   �ClearScr(0)
N2   �Centre("Ace Crusader Flight Controls",8,8)
X9   �Centre("Z/X .................. Left/Right",10,11)
b9   �Centre("' ............................ Up",12,11)
l9   �Centre("/ .......................... Down",14,11)
v9   �Centre("Left Alt ............ Thrust Left",16,11)
�9   �Centre("Right Alt .......... Thrust Right",18,11)
�9   �Centre("Return ..................... Fire",20,11)
�9   �Centre("Space ................ Smart Bomb",22,11)
�   *FX112,1
�   � scroll_code
��
�
�� �ControlKeys
�   *FX112,2
�   �ClearScr(0)
�0   �Centre("Ace Crusader Game Controls",8,8)
�?   �Centre("Space ...................... Start Game",10,11)
�?   �Centre("I ........................ Instructions",12,11)
?   �Centre("P ........... Enter Password/Pause Game",14,11)
?   �Centre("Q + F12 ....... Quit Game While Playing",16,11)
?   �Centre("Esc ......................... Quit Game",18,11)
 ?   �Centre("Return .... Advance To next Info Screen",20,11)
*   *FX112,1
4   � scroll_code
>�
H
R� �Instructions1
\   *FX112,2
f   �ClearScr(0)
p,   �Centre("Mission Brief - Page 1",8,9)
z@   �Centre("Alien Forces have invaded a small pocket",10,12)
�&   �Centre("of the galaxy.",12,12)
�:   �Centre("Your mission, should you decide to",14,12)
�@   �Centre("accept it, is to protect the defenceless",16,12)
�;   �Centre("planets of the outer reaches of the",18,12)
�   �Centre("galaxy.",20,12)
�   *FX112,1
�   � scroll_code
��
�
�� �Instructions2
�   *FX112,2
�   �ClearScr(0)
�,   �Centre("Mission Brief - Page 2",8,9)
>   �Centre("The Alien Forces wish to kidnap stasis",10,12)
5   �Centre("pods in order to perform evil",12,12)
9   �Centre("experiments upon them. After this",14,12)
$:   �Centre("they will use the human corpses as",16,12)
.8   �Centre("hi-protien food. It is therefore",18,12)
88   �Centre("imperative that you save as many",20,12)
B1   �Centre("of these pods as you can.",22,12)
L   *FX112,1
V   � scroll_code
`�
j
t� �Instructions3
~   *FX112,2
�   �ClearScr(0)
�,   �Centre("Mission Brief - Page 3",8,9)
�;   �Centre("If you succeed in destroying enough",10,12)
�:   �Centre("aliens, then they will retreat and",12,12)
�;   �Centre("call for the heavily armoured ship.",14,12)
�6   �Centre("At this point all pods will be",16,12)
�:   �Centre("removed from the planet surface by",18,12)
�6   �Centre("tractor beam. They can only be",20,12)
�8   �Centre("rescued by destroying this ship.",22,12)
�   *FX112,1
�   � scroll_code
��


� �Instructions4
   *FX112,2
   �ClearScr(0)
(,   �Centre("Mission Brief - Page 4",8,9)
2:   �Centre("If you stay alive (unlikely !) and",10,12)
<:   �Centre("save this planet, then you will be",12,12)
F8   �Centre("posted to the next planet in the",14,12)
P!   �Centre("quadrant.",16,12)
Z3   �Centre("You have been allocated 100",18,12)
d*   �Centre("planets to protect",20,12)
n   *FX112,1
x   � scroll_code
��
�
�� �Instructions5
�   *FX112,2
�   �ClearScr(0)
�7   �Centre("Mission Brief - Page 5 (Weaponry)",8,9)
�6   �Centre("Your Phantom Mk2-B StarFighter",10,12)
�7   �Centre("is equipped with a medium power",12,12)
�$   �Centre("pulse laser.",14,12)
�9   �Centre("Your ship can carry up to 3 smart",16,12)
�8   �Centre("bombs, and you are equipped with",18,12)
�(   �Centre("1 to start with.",20,12)
�   *FX112,1
   � scroll_code
�

"� �Instructions6
,   *FX112,2
6   �ClearScr(0)
@,   �Centre("Mission Brief - Page 6",8,9)
J;   �Centre("If a pod is kidnapped there will be",10,12)
T4   �Centre("an audible distress message.",12,12)
^8   �Centre("You should use your medium range",14,12)
h5   �Centre("TI 99/4A radar to locate them",16,12)
r2   �Centre("and destroy the kidnapper.",18,12)
|;   �Centre("If you then pick up the pods before",20,12)
�8   �Centre("they land, you gain extra points",22,12)
�   *FX112,1
�   � scroll_code
��
�
�� �Instructions7
�   *FX112,2
�   �ClearScr(0)
�,   �Centre("Mission Brief - Page 7",8,9)
�;   �Centre("When an alien is destroyed they may",10,12)
�5   �Centre("release a smart bomb or extra",12,12)
�7   �Centre("energy unit, you are advised to",14,12)
�&   �Centre("pick these up.",16,12)
 :   �Centre("You may also find Super Shield and",18,12)
 9   �Centre("Super Guns bonus's. Pick these up",20,12)
 9   �Centre("For improved weapons and shields.",22,12)
 &   *FX112,1
 0   � scroll_code
 :�
 D
 N� �AlienIds
 X   *FX112,2
 b   �ClearScr(0)
 l+   �Centre("Craft Identification",8,10)
 v:   �Centre("Stasis Pods                       ",10,13)
 �#   �plot("STASIS_POD",1000,672)
 �:   �Centre("Super Guns                        ",12,13)
 �   �plot("GUNS",984,608)
 �:   �Centre("Super Shield                      ",14,13)
 �   �plot("SHIELD",984,544)
 �:   �Centre("Extra Smart Bomb                  ",16,13)
 �"   �plot("SMARTBOMB",1000,480)
 �:   �Centre("Extra shield energy               ",18,13)
 �   �plot("ENERGY",1000,416)
 �9   �Centre("All others are legitimate targets",23,11)
 �   *FX112,1
 �   � scroll_code
 ��
!
!
� �Points
!   *FX112,2
!    �ClearScr(0)
!*$   �Centre("Points Scoring",8,9)
!4&   �Centre("Aliens  10 Pts",10,14)
!>4   �Centre("Shooting a Kidnapper  20 Pts",12,14)
!H5   �Centre("Rescuing a Stasis pod  50 Pts",14,14)
!R4   �Centre("Landing a Stasis pod  50 Pts",16,14)
!\<   �Centre("Losing/Shooting a Stasis pod -50 Pts",18,14)
!f.   �Centre("Missiles/bullets 5 Pts",20,14)
!p3   �Centre("Completion of level 500 Pts",22,14)
!z   *FX112,1
!�   � scroll_code
!��
!�
!�
� �key
!�   ldefault=1
!�   key$=�(800)
!�5   � key$=" " � �PlayGame:�ClearRadar:�CheckScore
!�   � key$="p" � key$="P" �e
!�*   � key$="i" � key$="I" �Instructions
!�   *FX15,1
!�   *FX229,0
!��
!�
"� �HardReset
"   code%!0=0
"   level=ldefault
"$   �SetUpLevel
".   � initialise_code
"8�
"B
"L� �SoftReset
"V   �MissionDebrief
"`   �ClearRadar
"j   code%!0=0
"t   �SetUpLevel
"~   � soft_start_code
"�   *CHANNELVOICE 1 OPENFIRE
"�   � 1,-15,&1400,16
"��
"�
"�� �Centre(S$,Y,C)
"�   l=�(S$)
"�
   � 5
"�
   l=l*32
"�   l=l � 2
"�   x=640-l
"�
   y=Y*32
"�   y=�(y-1023)
#   � x,y
#
   �0,C
#   � S$
#	   �4
#(   �
#2�
#<
#F� �Palette
#P   �19,1,24,119,119,119
#Z
   � �tLc
#d   � l=0 � 15
#n      � r,g,b
#x      � l,r,g,b
#�
   � l
#��   � 0,0,0,221,221,221,187,187,187,153,153,153,119,119,119,85,85,85,51,51,51,255,255,255,0,68,153,238,238,0,0,204,0,221,0,0,238,238,187,85,136,0,255,187,0,0,187,255
#��
#�
#�� �ClearScr(col)
#�   � 0,col
#�   ȓ Ȑ 0,256,1280,528
#��
#�
#�� �ClearRadar
#�   � 0,0
#�   ȓ Ȑ 400,810,482,188
#�!        ȓ Ȑ 388,818,502,172
$�
$
$� �e
$"   �
$,   *FX112,2
$6   �ClearScr(0)
$@%   �Centre("Enter Password",8,10)
$J   �plot("ENERGY",220,484)
$T   �plot("ENERGY",1024,484)
$^   *FX112,1
$h   � scroll_code
$r   � 128+0:� 14
$|   �8,16);
$�)   ș"OS_ReadLine",bu%,24,32,126 � ,l
$�   p$=�join(l)
$�   p$=�upcase(p$)
$�   pw=�
$�   � ll= 1 � 100
$�%     � p$=p$(ll) pw=�:ldefault=ll
$�   � ll
$�   � pw=� �
$�
      � �
$�      � � � � �:�
$�      �PlayGame:�CheckScore
$�
      � �
$�   �
%H      �Centre("P a s s w o r d   I n c o r r e c t",23,9):�Delay(35)
%   �
%   *FX15,1
%&�
%0
%:� �DisplayHiScores
%D   *FX112,2
%N   �ClearScr(0)
%X1   �Centre("A c e    C r u s a d e r s",8,11)
%b
   � 5
%l   �
%v   � loop=1 � 9
%�      � 64,754-(loop*50)
%�      �0,8
%�      �con_num(loop,2,n$)
%�      � n$"  ";
%�      �0,12
%�!      �con_num(hi(loop),8,n$)
%�      � n$" .... ";
%�      �0,13
%�      � hi$(loop)
%�   �loop
%�
   � 4
%�   �
%�   *FX112,1
&   � scroll_code
&�
&
& � �CheckScore
&*   �IsItAHiScore
&4   � yes �
&>      �re_shuffle_scores
&H      �put_in_table
&R      �DisplayHiScores
&\      �enter_name
&f      �DisplayHiScores
&p      �Delay(100)
&z   �
&��
&�
&�� �IsItAHiScore
&�   yes=�
&�   score=code%!4
&�   � loop=9 � 1 �-1
&�)      � score>hi(loop) yes=�:pos=loop
&�   �
&��
&�
&�� �convert_dig_to_string
&�   time=code%!4
&�   time$=�(time)
'*   � �(time$)=4 temptime$="    "+time$
')   � �(time$)=5 temptime$="   "+time$
'(   � �(time$)=6 temptime$="  "+time$
'$'   � �(time$)=7 temptime$=" "+time$
'.   time$=�temptime$,3)
'8   time$=time$+" "
'B"   time$=time$+�temptime$,5,2)
'L   time$=time$+" "
'V    time$=time$+�temptime$,1)
'`�
'j
't� �put_in_table
'~   hi(pos)=score
'�$   hi$(pos)="                  "
'��
'�
'�� �re_shuffle_scores
'�   � pos<>9 �
'�      � loop=8 � pos �-1
'�          hi(loop+1)=hi(loop)
'�"         hi$(loop+1)=hi$(loop)
'�      �
'�   �
'��
'�
(� �enter_name
(
4   �PrintLine("Please enter your name below",10)
(   � 128
(
   � 0
((   �0,10
(2
   �0,128
(<
   � 5
(F   �
(P   � 640,754-(pos*50)
(Z   *FX15,1
(d)   ș"OS_ReadLine",bu%,20,32,126 � ,l
(n   hi$(pos)=�join(l)
(x	   �4
(�   �
(�   *FX15,1
(�   �
(�      key$=�(0)
(�   � key$=""
(�   *FX15,1
(�   �ClearRadar
(��
(�
(�� �join(l)
(�   s$=""
(�   � ll=0 � l-1
(�      s$=s$+�?(bu%+ll)
)   �
)=s$
)
)"� �upcase(s$)
),
   s2$=""
)6   � ll=1 � �(s$)
)@      s3$=�s$,ll,1)
)J0      � s3$>="a" � s3$<="z" s3$=�(�(s3$)-32)
)T      s2$=s2$+s3$
)^   �
)h=s2$
)r
)|� �con_num(int,chrs,� ret$)
)�   ret$=�(int)
)�   ȕ �(ret$)<>chrs
)�     ret$=" "+ret$
)�   �
)��
)�
)�� �DecodeDelay(in$, � p)
)�   � d$
)�   p+=1
)�   d$=""
)�   �
)�      d$=d$+�in$,p,1)
)�      p+=1
*   � �in$,p,1)="^"
*   p+=1
*   � � speed �Delay(�(d$))
*&�
*0
*:� �Decode(in$,� p)
*D   p+=1
*N,   � �in$,p,1)="P" � �DecodeDelay(in$,p)
*X�
*b
*l � �ExtractWord(in$,� p,� w$)
*v   w$=""
*�)   ȕ (�in$,p,1)<>" ")  � (p<=�(in$))
*�      � �in$,p,1)="^" �
*�         �Decode(in$,p)
*�      �
*�         w$=w$+�in$,p,1)
*�         p+=1
*�      �
*�   �
*�   � �in$,p,1)=" " � p+=1
*��
*�
*�� �PrintWord(pw$,� lx)
*�
   � l
+   � l=1 � �(pw$)
+"      A$=�(0):� A$<>"" speed=�
+"      � � speed �Delay(�(3)+2)
+       � 1,-15,&1400,1
+*"      �lx,message_y)�pw$,l,1)
+4      lx+=1
+>
   � l
+H�
+R
+\
+f� �PrintLine(l$,c)
+p   � message_y<5 �
+z      message_y+=1
+�   �
+�      �ScrollUp(8)
+�   �
+�
   � c
+�   *CHANNELVOICE 1 BLEEP
+�   � x,l,r,charpos,word$
+�   x=12
+�   charpos=1
+�   �
+�(      �ExtractWord(l$,charpos,word$)
+�      � �(word$)+x<29 �
+�          �PrintWord(word$,x)
+�'         � x<28 � �PrintWord(" ",x)
,      �
,         x=12
,         � message_y<5 �
,$            message_y+=1
,.         �
,8            �ScrollUp(8)
,B         �
,L          �PrintWord(word$,x)
,V'         � x<27 � �PrintWord(" ",x)
,`      �
,j   � charpos>�(l$)
,t�
,~
,�� �RotateStars
,�   *FX15
,�   �
,�      � L=0 � 7
,�         *FX19
,�&         �plot("STAR"+�L,1016,630)
,�&         �plot("STAR"+�L,1016,286)
,�%         �plot("STAR"+�L,200,630)
,�%         �plot("STAR"+�L,200,286)
,�!         A$=�(0):� A$<>"" L=8
,�
      � L
,�   � A$<>""
-�
-

- � �Fin
-!    *CHANNELVOICE 1 EXPLOSION
-(    � l=784 � 1024 � 8
-2       � 1,-15,l-784,2
-<       �Delay(1)
-F       �plot("DISPLAY",0,l)
-P    � l
-Z    � l=0 � -256 � -8
-d!       �plot("MOUNTAINS",0,l)
-n       � 1,-15,l+256,2
-x       �Delay(1)
-�    � l
-�	    �
-�    �plot("LOGO",450,600)
-�9    �Centre("Copyright � Archimedes World 1993",16,9)
-�
   � 8
-� �
-�
-�� �WimpInitialise
.  � block% 300
.  � winb% 2600,menu% 147
.8  � ind1% 150,ind2% 150,ind3% 600,ind4% 20, name% 11
."&  fi1%=�"<AceCrusader$Dir>.grafix"
.,  size%=�#fi1%+4
.6
  �# fi1%
.@  � sspace% size%
.J  !sspace%=size%
.T  sspace%!8=16
.^=  ș"OS_SpriteOp",&10A,sspace%,"<AceCrusader$Dir>.grafix"
.h  $name%="Info"
.r!  quit%=�:app$="Ace Crusader"
.|-  ș "Wimp_Initialise",200,&4B534154,app$
.�  !block%=-1
.�  block%!4=0
.�  block%!8=24
.�  block%!12=96
.�  block%!16=56
.�  block%!20=&3002
.�  $(block%+24)="!Crusader"
.�"  ș "Wimp_CreateIcon",,block%
.�;  ș "Wimp_OpenTemplate",,"<AceCrusader$Dir>.templates"
.�>  ș "Wimp_LoadTemplate",,winb%,ind1%,ind1%+150,-1,name%,0
.�+  ș "Wimp_CreateWindow",,winb% � info%
.�  $name%="INITIALISE"
.�>  ș "Wimp_LoadTemplate",,winb%,ind2%,ind2%+150,-1,name%,0
/+  ș "Wimp_CreateWindow",,winb% � init%
/  $name%="HI-SCORES"
/>  ș "Wimp_LoadTemplate",,winb%,ind3%,ind3%+600,-1,name%,0
/&  winb%!64=sspace%
/0/  ș "Wimp_CreateWindow",,winb% � hiscores%
/:  $name%="SOUNDCHECK"
/D=  ș "Wimp_LoadTemplate",,winb%,ind4%,ind4%+20,-1,name%,0
/N  winb%!64=1
/X-  ș "Wimp_CreateWindow",,winb% � sounds%
/b  ș "Wimp_CloseTemplate"
/l  !winb%=init%
/v%  ș "Wimp_GetWindowState",,winb%
/�!  ș "Wimp_OpenWindow",,winb%
/�  $menu%="Crusader"
/�  menu%!12=&70207
/�  menu%!16=160
/�  menu%!20=44
/�  menu%!24=0
/�  ptr%=menu%+28
/�
  !ptr%=0
/�  ptr%!4=info%
/�  ptr%!8=&7000021
/�  $(ptr%+12)="Info"
/�  ptr%+=24
/�
  !ptr%=0
0  ptr%!4=-1
0  ptr%!8=&7000021
0  $(ptr%+12)="Play game"
0   ptr%+=24
0*
  !ptr%=0
04  ptr%!4=-1
0>  ptr%!8=&7000021
0H  $(ptr%+12)="Hi scores"
0R  ptr%+=24
0\
  !ptr%=0
0f  ptr%!4=-1
0p  ptr%!8=&7000021
0z  $(ptr%+12)="Sounds"
0�  ptr%+=24
0�  !ptr%=&80
0�  ptr%!4=-1
0�  ptr%!8=&7000021
0�  $(ptr%+12)="Quit"
0�  � l=1 � 5
0�*     ș "Wimp_Poll",0,block% � reason%
0�	  � l
0�  ș"Hourglass_On"
0�  �Initialise
0�  �CopyBest
0�  !winb%=init%
0�"  ș "Wimp_CloseWindow",,winb%
1  ș"Hourglass_Off"
1-  �IconText(sounds%,8,"Game Sound is On")
1�
1$
1.� �CopyBest
18  � l=1 � 9
1B*    �IconText(hiscores%,12+l,�(hi(l)))
1L(    �IconText(hiscores%,21+l,hi$(l))
1V	  � l
1`�
1j
1t!� �IconText(handle%,icon%,s$)
1~  block%!0=handle%
1�  block%!4=icon%
1�#  ș"Wimp_GetIconState",,block%
1�  $(block%!28)=s$
1�  block%!8=0
1�  block%!12=0
1�#  ș"Wimp_SetIconState",,block%
1��
1�
1�� �WimpPoll
1�'  ș "Wimp_Poll",0,block% � reason%
1�  Ȏ reason% �
1�)    � 2 : ș"Wimp_OpenWindow",,block%
2*    � 3 : ș"Wimp_CloseWindow",,block%
2
    � 6 : �click
2    � 9 : �MenuItem
2    � 17,18 : �MessageIn
2(  �
22�
2<
2F� �MessageIn
2P   Ȏ block%!16 �
2Z      � 0 : quit%=�
2d   �
2n�
2x
2�� �click
2�  Ȏ block%!8 �
2�    � 1,4 : �SelectAdjust
2�    � 2   : �Menu
2�  �
2��
2�
2�� �SelectAdjust
2�   Ȏ block%!12 �
2�      � -2 : �RunGame
2�      � sounds% : �Sounds
2�   �
2��
3
3
� �Sounds
3   icon%=block%!16
3"-   � icon%>=0 � icon%<8 �PlaySound(icon%)
3,   � icon%=8 �
36      sound=� sound
3@      � sound �
3J8         �IconText(sounds%,icon%,"Game Sound is On")
3T         !soundadr=1
3^      �
3h9         �IconText(sounds%,icon%,"Game Sound is Off")
3r         !soundadr=0
3|      �
3�   �
3��
3�
3�� �PlaySound(n)
3�   � �EnsureSounds �
3�
   Ȏ n �
3�%      � 0 : s$="DRIP":p=&1400:l=5
3�*      � 1 : s$="OPENFIRE":p=&1400:l=16
3�+      � 2 : s$="EXPLOSION":p=&1400:l=26
3�%      � 3 : s$="PING":p=&1400:l=6
3�(      � 4 : s$="HELPME":p=&1400:l=10
3�&      � 5 : s$="HELP":p=&1400:l=11
3�&      � 6 : s$="LASER":p=&1400:l=4
4)      � 7 : s$="THANKYOU":p=&1400:l=6
4   �
4*   ș"Sound_AttachVoice",1,1 � ,voice1
4&   �"CHANNELVOICE 1 "+s$
40   � 1,-15,p,l
4:   �Delay(l*3)
4D!   �"CHANNELVOICE 1 "+�voice1
4N�
4X
4b� �Menu
4l   Ȏ block%!12 �
4v:     � -2 : ș "Wimp_CreateMenu",,menu%,!block%-64,316
4�   �
4��
4�
4�� �MenuItem
4�  Ȏ !block% �
4�    � 1 : �RunGame
4�     � 2 : �Window(hiscores%)
4�    � 3 : �Window(sounds%)
4�    � 4 : quit%=�
4�  �
4�&  ș "Wimp_GetPointerInfo",,block%
4�1  � block%!8=1 ș"Wimp_CreateMenu",,menu%,0,0
4��
5
5� �Window(handle%)
5  !winb%=handle%
5 %  ș "Wimp_GetWindowState",,winb%
5/  winb%!28=-1
5*!  ș "Wimp_OpenWindow",,winb%
54�
5>
5H� �Info(e$)
5R   block%!0=255
5\   $(block%+4)=e$+�(0)
5f?   ș"Wimp_ReportError",block%,&11,"Information from "+app$
5p�
�
00000000  0d 00 0a 10 f4 20 3e 21  52 55 4e 49 4d 41 47 45  |..... >!RUNIMAGE|
00000010  0d 00 14 04 0d 00 1e 34  f4 20 41 63 65 20 43 72  |.......4. Ace Cr|
00000020  75 73 61 64 65 72 20 2d  20 73 69 64 65 77 61 79  |usader - sideway|
00000030  73 20 73 63 72 6f 6c 6c  69 6e 67 20 73 68 6f 6f  |s scrolling shoo|
00000040  74 20 27 65 6d 20 75 70  0d 00 28 04 0d 00 32 16  |t 'em up..(...2.|
00000050  f4 20 42 79 20 53 74 65  76 65 20 4f 27 4c 65 61  |. By Steve O'Lea|
00000060  72 79 0d 00 3c 04 0d 00  46 1d f4 20 a9 20 41 72  |ry..<...F.. . Ar|
00000070  63 68 69 6d 65 64 65 73  20 57 6f 72 6c 64 20 31  |chimedes World 1|
00000080  39 39 33 0d 00 50 04 0d  00 5a 18 f4 20 43 6f 6e  |993..P...Z.. Con|
00000090  74 72 6f 6c 6c 65 72 20  50 72 6f 67 72 61 6d 0d  |troller Program.|
000000a0  00 64 04 0d 00 6e 13 f4  20 56 65 72 73 69 6f 6e  |.d...n.. Version|
000000b0  20 3a 20 31 2e 31 0d 00  78 04 0d 00 82 22 f4 20  | : 1.1..x....". |
000000c0  53 65 65 20 27 21 48 65  6c 70 27 20 66 6f 72 20  |See '!Help' for |
000000d0  6d 6f 72 65 20 64 65 74  61 69 6c 73 0d 00 8c 14  |more details....|
000000e0  20 f2 57 69 6d 70 49 6e  69 74 69 61 6c 69 73 65  | .WimpInitialise|
000000f0  0d 00 96 06 20 f5 0d 00  a0 10 20 20 20 f2 57 69  |.... .....   .Wi|
00000100  6d 70 50 6f 6c 6c 0d 00  aa 0e 20 fd 20 71 75 69  |mpPoll.... . qui|
00000110  74 25 3d b9 0d 00 ab 10  20 f2 57 69 6d 70 54 69  |t%=..... .WimpTi|
00000120  64 79 55 70 0d 00 b4 17  20 c8 99 22 57 69 6d 70  |dyUp.... .."Wimp|
00000130  5f 43 6c 6f 73 65 44 6f  77 6e 22 0d 00 c8 06 20  |_CloseDown".... |
00000140  e0 0d 00 d2 04 0d 00 dc  0e dd 20 f2 52 75 6e 47  |.......... .RunG|
00000150  61 6d 65 0d 00 e6 19 20  20 e7 20 ac 20 a4 45 6e  |ame....  . . .En|
00000160  73 75 72 65 53 6f 75 6e  64 73 20 8c 0d 00 f0 20  |sureSounds .... |
00000170  20 20 20 20 20 e7 20 a4  45 6e 6f 75 67 68 53 63  |     . .EnoughSc|
00000180  72 65 65 6e 4d 65 6d 6f  72 79 20 8c 0d 00 fa 19  |reenMemory .....|
00000190  20 20 20 20 20 20 20 20  f2 43 72 75 73 61 64 65  |        .Crusade|
000001a0  72 47 61 6d 65 0d 01 04  0a 20 20 20 20 20 cc 0d  |rGame....     ..|
000001b0  01 0e 1e 20 20 20 20 20  20 20 20 f2 53 63 72 65  |...        .Scre|
000001c0  65 6e 4d 65 6d 6f 72 79  45 72 72 6f 72 0d 01 18  |enMemoryError...|
000001d0  0a 20 20 20 20 20 cd 0d  01 22 07 20 20 cd 0d 01  |.     ...".  ...|
000001e0  2c 05 e1 0d 01 36 04 0d  01 40 13 dd 20 f2 43 72  |,....6...@.. .Cr|
000001f0  75 73 61 64 65 72 47 61  6d 65 0d 01 4a 36 20 20  |usaderGame..J6  |
00000200  20 e7 20 73 6f 75 6e 64  20 c8 99 22 53 6f 75 6e  | . sound .."Soun|
00000210  64 5f 45 6e 61 62 6c 65  22 2c 32 20 8b 20 c8 99  |d_Enable",2 . ..|
00000220  22 53 6f 75 6e 64 5f 45  6e 61 62 6c 65 22 2c 31  |"Sound_Enable",1|
00000230  0d 01 54 20 20 20 20 c8  99 20 22 4f 53 5f 42 79  |..T    .. "OS_By|
00000240  74 65 22 2c 31 33 35 20  b8 20 2c 2c 6d 6f 64 65  |te",135 . ,,mode|
00000250  0d 01 5e 22 20 20 20 c8  99 22 57 69 6d 70 5f 43  |..^"   .."Wimp_C|
00000260  6f 6d 6d 61 6e 64 57 69  6e 64 6f 77 22 2c 61 70  |ommandWindow",ap|
00000270  70 24 0d 01 68 0f 20 20  20 2a 46 58 32 32 39 2c  |p$..h.   *FX229,|
00000280  31 0d 01 72 16 20 20 20  f2 47 61 6d 65 49 6e 69  |1..r.   .GameIni|
00000290  74 69 61 6c 69 73 65 0d  01 7c 17 20 20 20 f2 53  |tialise..|.   .S|
000002a0  74 61 72 74 55 70 4d 65  73 73 61 67 65 73 0d 01  |tartUpMessages..|
000002b0  86 19 20 20 20 f2 44 69  73 70 6c 61 79 47 61 6d  |..   .DisplayGam|
000002c0  65 53 63 72 65 65 6e 0d  01 90 12 20 20 20 f2 43  |eScreen....   .C|
000002d0  6c 65 61 72 52 61 64 61  72 0d 01 9a 0e 20 20 20  |learRadar....   |
000002e0  2a 46 58 31 35 2c 31 0d  01 a4 0e 20 20 20 f2 57  |*FX15,1....   .W|
000002f0  61 69 74 65 72 0d 01 ae  12 20 20 20 f2 47 61 6d  |aiter....   .Gam|
00000300  65 54 69 64 79 55 70 0d  01 b8 1f 20 20 20 c8 99  |eTidyUp....   ..|
00000310  22 57 69 6d 70 5f 43 6f  6d 6d 61 6e 64 57 69 6e  |"Wimp_CommandWin|
00000320  64 6f 77 22 2c 30 0d 01  c2 1c 20 20 20 c8 99 22  |dow",0....   .."|
00000330  57 69 6d 70 5f 53 65 74  4d 6f 64 65 22 2c 6d 6f  |Wimp_SetMode",mo|
00000340  64 65 0d 01 cc 10 20 20  20 f2 43 6f 70 79 42 65  |de....   .CopyBe|
00000350  73 74 0d 01 d6 0f 20 20  20 2a 46 58 32 32 39 2c  |st....   *FX229,|
00000360  30 0d 01 e0 16 20 20 20  e7 20 21 73 6f 75 6e 64  |0....   . !sound|
00000370  61 64 72 3d 30 20 8c 0d  01 ea 13 20 20 20 20 20  |adr=0 .....     |
00000380  20 73 6f 75 6e 64 3d 6f  66 66 0d 01 f4 32 20 20  | sound=off...2  |
00000390  20 20 20 20 f2 49 63 6f  6e 54 65 78 74 28 73 6f  |    .IconText(so|
000003a0  75 6e 64 73 25 2c 38 2c  22 47 61 6d 65 20 53 6f  |unds%,8,"Game So|
000003b0  75 6e 64 20 69 73 20 4f  66 66 22 29 0d 01 fe 08  |und is Off")....|
000003c0  20 20 20 cc 0d 02 08 12  20 20 20 20 20 20 73 6f  |   .....      so|
000003d0  75 6e 64 3d 6f 6e 0d 02  12 31 20 20 20 20 20 20  |und=on...1      |
000003e0  f2 49 63 6f 6e 54 65 78  74 28 73 6f 75 6e 64 73  |.IconText(sounds|
000003f0  25 2c 38 2c 22 47 61 6d  65 20 53 6f 75 6e 64 20  |%,8,"Game Sound |
00000400  69 73 20 4f 6e 22 29 0d  02 1c 08 20 20 20 cd 0d  |is On")....   ..|
00000410  02 26 05 e1 0d 02 30 04  0d 02 3a 11 dd 20 f2 47  |.&....0...:.. .G|
00000420  61 6d 65 54 69 64 79 55  70 0d 02 44 0e 20 20 20  |ameTidyUp..D.   |
00000430  2a 46 58 32 30 2c 30 0d  02 4e 12 20 20 20 c8 a0  |*FX20,0..N.   ..|
00000440  20 63 68 61 6e 6e 65 6c  73 0d 02 58 21 20 20 20  | channels..X!   |
00000450  ff 22 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 31  |."CHANNELVOICE 1|
00000460  20 22 2b c3 76 6f 69 63  65 31 0d 02 62 21 20 20  | "+.voice1..b!  |
00000470  20 ff 22 43 48 41 4e 4e  45 4c 56 4f 49 43 45 20  | ."CHANNELVOICE |
00000480  32 20 22 2b c3 76 6f 69  63 65 32 0d 02 6c 21 20  |2 "+.voice2..l! |
00000490  20 20 ff 22 43 48 41 4e  4e 45 4c 56 4f 49 43 45  |  ."CHANNELVOICE|
000004a0  20 33 20 22 2b c3 76 6f  69 63 65 33 0d 02 76 21  | 3 "+.voice3..v!|
000004b0  20 20 20 ff 22 43 48 41  4e 4e 45 4c 56 4f 49 43  |   ."CHANNELVOIC|
000004c0  45 20 34 20 22 2b c3 76  6f 69 63 65 34 0d 02 80  |E 4 "+.voice4...|
000004d0  19 20 20 20 c8 99 22 53  6f 75 6e 64 5f 45 6e 61  |.   .."Sound_Ena|
000004e0  62 6c 65 22 2c 32 0d 02  8a 05 e1 0d 02 94 04 0d  |ble",2..........|
000004f0  02 9e 11 dd 20 f2 57 69  6d 70 54 69 64 79 55 70  |.... .WimpTidyUp|
00000500  0d 02 9f 0c 20 20 20 ee  20 85 20 e0 0d 02 a8 13  |....   . . .....|
00000510  20 20 20 2a 52 4d 4b 49  4c 4c 20 44 52 49 50 0d  |   *RMKILL DRIP.|
00000520  02 b2 18 20 20 20 2a 52  4d 4b 49 4c 4c 20 45 58  |...   *RMKILL EX|
00000530  50 4c 4f 53 49 4f 4e 0d  02 bc 15 20 20 20 2a 52  |PLOSION....   *R|
00000540  4d 4b 49 4c 4c 20 48 45  4c 50 4d 45 0d 02 c6 14  |MKILL HELPME....|
00000550  20 20 20 2a 52 4d 4b 49  4c 4c 20 4c 41 53 45 52  |   *RMKILL LASER|
00000560  0d 02 d0 17 20 20 20 2a  52 4d 4b 49 4c 4c 20 4f  |....   *RMKILL O|
00000570  50 45 4e 46 49 52 45 0d  02 da 13 20 20 20 2a 52  |PENFIRE....   *R|
00000580  4d 4b 49 4c 4c 20 50 49  4e 47 0d 02 e4 13 20 20  |MKILL PING....  |
00000590  20 2a 52 4d 4b 49 4c 4c  20 48 45 4c 50 0d 02 ee  | *RMKILL HELP...|
000005a0  17 20 20 20 2a 52 4d 4b  49 4c 4c 20 54 48 41 4e  |.   *RMKILL THAN|
000005b0  4b 59 4f 55 0d 02 f8 14  20 20 20 2a 52 4d 4b 49  |KYOU....   *RMKI|
000005c0  4c 4c 20 42 4c 45 45 50  0d 03 02 05 e1 0d 03 0c  |LL BLEEP........|
000005d0  04 0d 03 16 18 dd 20 f2  53 63 72 65 65 6e 4d 65  |...... .ScreenMe|
000005e0  6d 6f 72 79 45 72 72 6f  72 0d 03 20 31 20 20 20  |moryError.. 1   |
000005f0  65 24 3d 22 49 20 6e 65  65 64 20 31 36 30 4b 20  |e$="I need 160K |
00000600  6f 66 20 73 63 72 65 65  6e 20 6d 65 6d 6f 72 79  |of screen memory|
00000610  20 74 6f 20 72 75 6e 2e  20 22 0d 03 2a 36 20 20  | to run. "..*6  |
00000620  20 65 24 3d 65 24 2b 22  43 68 61 6e 67 65 20 74  | e$=e$+"Change t|
00000630  6f 20 61 20 6d 6f 64 65  20 74 68 61 74 20 75 73  |o a mode that us|
00000640  65 73 20 6d 6f 72 65 20  6d 65 6d 6f 72 79 20 22  |es more memory "|
00000650  0d 03 34 35 20 20 20 65  24 3d 65 24 2b 22 65 2e  |..45   e$=e$+"e.|
00000660  67 2e 20 31 35 20 6f 72  20 33 36 2c 20 6f 72 20  |g. 15 or 36, or |
00000670  63 6c 69 63 6b 20 6f 6e  20 41 63 6f 72 6e 20 69  |click on Acorn i|
00000680  63 6f 6e 20 22 0d 03 3e  37 20 20 20 65 24 3d 65  |con "..>7   e$=e|
00000690  24 2b 22 61 74 20 72 69  67 68 74 20 68 61 6e 64  |$+"at right hand|
000006a0  20 73 69 64 65 20 6f 66  20 74 68 65 20 49 63 6f  | side of the Ico|
000006b0  6e 20 42 61 72 2c 20 61  6e 64 20 22 0d 03 48 39  |n Bar, and "..H9|
000006c0  20 20 20 65 24 3d 65 24  2b 22 64 72 61 67 20 27  |   e$=e$+"drag '|
000006d0  53 63 72 65 65 6e 20 6d  65 6d 6f 72 79 27 20 62  |Screen memory' b|
000006e0  61 72 20 74 6f 20 61 74  20 6c 65 61 73 74 20 31  |ar to at least 1|
000006f0  36 30 4b 2e 22 0d 03 52  10 20 20 20 f2 49 6e 66  |60K."..R.   .Inf|
00000700  6f 28 65 24 29 0d 03 5c  05 e1 0d 03 66 04 0d 03  |o(e$)..\....f...|
00000710  70 15 dd 20 f2 47 61 6d  65 49 6e 69 74 69 61 6c  |p.. .GameInitial|
00000720  69 73 65 0d 03 7a 2a 20  20 20 c8 99 22 53 6f 75  |ise..z*   .."Sou|
00000730  6e 64 5f 41 74 74 61 63  68 56 6f 69 63 65 22 2c  |nd_AttachVoice",|
00000740  31 2c 31 20 b8 20 2c 76  6f 69 63 65 31 0d 03 84  |1,1 . ,voice1...|
00000750  2a 20 20 20 c8 99 22 53  6f 75 6e 64 5f 41 74 74  |*   .."Sound_Att|
00000760  61 63 68 56 6f 69 63 65  22 2c 32 2c 31 20 b8 20  |achVoice",2,1 . |
00000770  2c 76 6f 69 63 65 32 0d  03 8e 2a 20 20 20 c8 99  |,voice2...*   ..|
00000780  22 53 6f 75 6e 64 5f 41  74 74 61 63 68 56 6f 69  |"Sound_AttachVoi|
00000790  63 65 22 2c 33 2c 31 20  b8 20 2c 76 6f 69 63 65  |ce",3,1 . ,voice|
000007a0  33 0d 03 98 2a 20 20 20  c8 99 22 53 6f 75 6e 64  |3...*   .."Sound|
000007b0  5f 41 74 74 61 63 68 56  6f 69 63 65 22 2c 34 2c  |_AttachVoice",4,|
000007c0  31 20 b8 20 2c 76 6f 69  63 65 34 0d 03 a2 2f 20  |1 . ,voice4.../ |
000007d0  20 20 c8 99 22 53 6f 75  6e 64 5f 43 6f 6e 66 69  |  .."Sound_Confi|
000007e0  67 75 72 65 22 2c 30 2c  30 2c 30 2c 30 2c 30 20  |gure",0,0,0,0,0 |
000007f0  b8 20 63 68 61 6e 6e 65  6c 73 0d 03 ac 09 20 20  |. channels....  |
00000800  20 eb 39 0d 03 b6 0f 20  20 20 f2 50 61 6c 65 74  | .9....   .Palet|
00000810  74 65 0d 03 c0 16 20 20  20 ef 20 31 39 2c 30 2c  |te....   . 19,0,|
00000820  32 34 2c 30 2c 30 2c 30  0d 03 ca 08 20 20 20 87  |24,0,0,0....   .|
00000830  0d 03 d4 0b 20 20 20 c8  a0 20 34 0d 03 de 16 20  |....   .. 4.... |
00000840  20 20 f2 50 72 69 6e 74  4d 6f 75 6e 74 61 69 6e  |  .PrintMountain|
00000850  73 0d 03 e8 05 e1 0d 03  f2 04 0d 03 fc 11 dd 20  |s.............. |
00000860  f2 49 6e 69 74 69 61 6c  69 73 65 0d 04 06 16 20  |.Initialise.... |
00000870  20 20 f2 4d 65 6d 6f 72  79 52 65 71 75 65 73 74  |  .MemoryRequest|
00000880  73 0d 04 10 11 20 20 20  f2 43 6f 6e 73 74 61 6e  |s....   .Constan|
00000890  74 73 0d 04 1a 18 20 20  20 e7 20 a4 45 6e 73 75  |ts....   . .Ensu|
000008a0  72 65 53 6f 75 6e 64 73  20 8c 0d 04 1b 13 20 20  |reSounds .....  |
000008b0  20 20 20 20 e3 20 6c 3d  31 20 b8 20 35 0d 04 1c  |    . l=1 . 5...|
000008c0  2e 20 20 20 20 20 20 20  20 20 c8 99 20 22 57 69  |.         .. "Wi|
000008d0  6d 70 5f 50 6f 6c 6c 22  2c 30 2c 62 6c 6f 63 6b  |mp_Poll",0,block|
000008e0  25 20 b8 20 72 65 61 73  6f 6e 25 0d 04 1d 0d 20  |% . reason%.... |
000008f0  20 20 20 20 20 ed 20 6c  0d 04 1e 08 20 20 20 cd  |     . l....   .|
00000900  0d 04 24 30 20 20 20 ff  22 4c 4f 41 44 20 3c 41  |..$0   ."LOAD <A|
00000910  63 65 43 72 75 73 61 64  65 72 24 44 69 72 3e 2e  |ceCrusader$Dir>.|
00000920  41 63 65 5f 4d 43 20 22  2b c3 7e 63 6f 64 65 25  |Ace_MC "+.~code%|
00000930  0d 04 2e 2c 20 20 20 ff  22 4c 4f 41 44 20 3c 41  |...,   ."LOAD <A|
00000940  63 65 43 72 75 73 61 64  65 72 24 44 69 72 3e 2e  |ceCrusader$Dir>.|
00000950  66 78 31 20 22 2b c3 7e  46 58 31 25 0d 04 38 2c  |fx1 "+.~FX1%..8,|
00000960  20 20 20 ff 22 4c 4f 41  44 20 3c 41 63 65 43 72  |   ."LOAD <AceCr|
00000970  75 73 61 64 65 72 24 44  69 72 3e 2e 66 78 32 20  |usader$Dir>.fx2 |
00000980  22 2b c3 7e 46 58 32 25  0d 04 42 30 20 20 20 ff  |"+.~FX2%..B0   .|
00000990  22 4c 4f 41 44 20 3c 41  63 65 43 72 75 73 61 64  |"LOAD <AceCrusad|
000009a0  65 72 24 44 69 72 3e 2e  73 71 75 61 72 65 20 22  |er$Dir>.square "|
000009b0  2b c3 7e 66 6f 6e 74 25  0d 04 4c 1a 20 20 20 63  |+.~font%..L.   c|
000009c0  6f 64 65 25 21 33 36 3d  62 61 64 64 69 65 5f 69  |ode%!36=baddie_i|
000009d0  64 25 0d 04 56 13 20 20  20 f2 53 65 74 55 70 53  |d%..V.   .SetUpS|
000009e0  63 6f 72 65 73 0d 04 60  0a 20 20 20 f2 52 70 0d  |cores..`.   .Rp.|
000009f0  04 6a 16 20 20 20 f2 52  65 61 64 50 6c 61 6e 65  |.j.   .ReadPlane|
00000a00  74 44 61 74 61 0d 04 74  12 20 20 20 6d 65 73 73  |tData..t.   mess|
00000a10  61 67 65 5f 79 3d 30 0d  04 7e 0f 20 20 20 73 6f  |age_y=0..~.   so|
00000a20  75 6e 64 3d 6f 6e 0d 04  88 05 e1 0d 04 92 04 0d  |und=on..........|
00000a30  04 9c 11 dd 20 f2 47 65  74 57 28 f8 20 72 24 29  |.... .GetW(. r$)|
00000a40  0d 04 a6 0c 20 20 20 72  24 3d 22 22 0d 04 b0 0f  |....   r$=""....|
00000a50  20 20 20 6e 3d 9a 23 20  66 69 31 0d 04 ba 13 20  |   n=.# fi1.... |
00000a60  20 20 6e 3d 28 6e 2b 31  35 29 20 81 20 32 0d 04  |  n=(n+15) . 2..|
00000a70  c4 12 20 20 20 c8 95 20  28 6e 3c 3e 26 30 41 29  |..   .. (n<>&0A)|
00000a80  0d 04 ce 14 20 20 20 20  20 20 72 24 3d 72 24 2b  |....      r$=r$+|
00000a90  bd 28 6e 29 0d 04 d8 12  20 20 20 20 20 20 6e 3d  |.(n)....      n=|
00000aa0  9a 23 20 66 69 31 0d 04  e2 16 20 20 20 20 20 20  |.# fi1....      |
00000ab0  6e 3d 28 6e 2b 31 35 29  20 81 20 32 0d 04 ec 08  |n=(n+15) . 2....|
00000ac0  20 20 20 ce 0d 04 f6 05  e1 0d 05 00 04 0d 05 0a  |   .............|
00000ad0  15 dd 20 f2 52 65 61 64  50 6c 61 6e 65 74 44 61  |.. .ReadPlanetDa|
00000ae0  74 61 0d 05 14 0a 20 20  20 ea 20 6c 0d 05 1e 2b  |ta....   . l...+|
00000af0  20 20 20 66 69 31 3d 8e  20 22 3c 41 63 65 43 72  |   fi1=. "<AceCr|
00000b00  75 73 61 64 65 72 24 44  69 72 3e 2e 50 6c 61 6e  |usader$Dir>.Plan|
00000b10  65 74 44 61 74 61 22 0d  05 28 12 20 20 20 e3 20  |etData"..(.   . |
00000b20  6c 3d 31 20 b8 20 31 30  30 0d 05 32 17 20 20 20  |l=1 . 100..2.   |
00000b30  20 20 20 f2 47 65 74 57  28 70 6c 24 28 6c 29 29  |   .GetW(pl$(l))|
00000b40  0d 05 3c 17 20 20 20 20  20 20 f2 47 65 74 57 28  |..<.      .GetW(|
00000b50  69 72 24 28 6c 29 29 0d  05 46 0a 20 20 20 ed 20  |ir$(l))..F.   . |
00000b60  6c 0d 05 50 0d 20 20 20  d9 23 20 66 69 31 0d 05  |l..P.   .# fi1..|
00000b70  5a 05 e1 0d 05 64 04 0d  05 6e 13 dd 20 f2 70 6c  |Z....d...n.. .pl|
00000b80  6f 74 28 6e 24 2c 78 2c  79 29 0d 05 78 0c 20 20  |ot(n$,x,y)..x.  |
00000b90  20 ec 20 78 2c 79 0d 05  82 28 20 20 20 c8 99 22  | . x,y...(   .."|
00000ba0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
00000bb0  43 2c 73 73 70 61 63 65  25 2c 6e 24 2c 30 0d 05  |C,sspace%,n$,0..|
00000bc0  8c 05 e1 0d 05 96 04 0d  05 a0 16 dd 20 f2 43 6c  |............ .Cl|
00000bd0  65 61 72 4d 65 73 73 61  67 65 57 69 6e 0d 05 aa  |earMessageWin...|
00000be0  12 20 20 20 6d 65 73 73  61 67 65 5f 79 3d 30 0d  |.   message_y=0.|
00000bf0  05 b4 14 20 20 20 f2 53  63 72 6f 6c 6c 55 70 28  |...   .ScrollUp(|
00000c00  34 30 29 0d 05 be 05 e1  0d 05 c8 04 0d 05 d2 12  |40).............|
00000c10  dd 20 f2 53 65 74 55 70  53 63 6f 72 65 73 0d 05  |. .SetUpScores..|
00000c20  dc 0a 20 20 20 ea 20 6c  0d 05 e6 0d 20 20 20 f7  |..   . l....   .|
00000c30  20 8d 54 4e 46 0d 05 f0  10 20 20 20 e3 20 6c 3d  | .TNF....   . l=|
00000c40  31 20 b8 20 39 0d 05 fa  18 20 20 20 20 20 20 f3  |1 . 9....      .|
00000c50  20 68 69 28 6c 29 2c 68  69 24 28 6c 29 0d 06 04  | hi(l),hi$(l)...|
00000c60  0a 20 20 20 ed 20 6c 0d  06 0e 97 20 20 20 dc 20  |.   . l....   . |
00000c70  32 30 30 30 30 2c 53 70  61 63 65 20 4c 6f 72 64  |20000,Space Lord|
00000c80  2c 31 30 30 30 30 2c 41  64 6d 69 72 61 6c 2c 38  |,10000,Admiral,8|
00000c90  30 30 30 2c 43 6f 6d 6d  61 6e 64 65 72 2c 37 30  |000,Commander,70|
00000ca0  30 30 2c 51 75 61 64 72  61 6e 74 20 4c 65 61 64  |00,Quadrant Lead|
00000cb0  65 72 2c 36 30 30 30 2c  43 61 70 74 61 69 6e 2c  |er,6000,Captain,|
00000cc0  35 30 30 30 2c 47 72 6f  75 70 20 4c 65 61 64 65  |5000,Group Leade|
00000cd0  72 2c 33 30 30 30 2c 47  72 6f 75 70 20 50 69 6c  |r,3000,Group Pil|
00000ce0  6f 74 2c 32 30 30 30 2c  50 69 6c 6f 74 2c 31 30  |ot,2000,Pilot,10|
00000cf0  30 30 2c 53 74 61 72 54  72 6f 6f 70 65 72 0d 06  |00,StarTrooper..|
00000d00  18 05 e1 0d 06 22 04 0d  06 2c 14 dd 20 f2 53 65  |....."...,.. .Se|
00000d10  74 46 6f 6e 74 28 61 64  72 25 29 0d 06 36 12 20  |tFont(adr%)..6. |
00000d20  20 20 e3 20 6c 3d 30 20  b8 20 39 30 39 0d 06 40  |  . l=0 . 909..@|
00000d30  14 20 20 20 20 20 20 ef  20 28 61 64 72 25 3f 6c  |.      . (adr%?l|
00000d40  29 0d 06 4a 0a 20 20 20  ed 20 6c 0d 06 54 05 e1  |)..J.   . l..T..|
00000d50  0d 06 5e 04 0d 06 68 15  dd 20 f2 4d 65 6d 6f 72  |..^...h.. .Memor|
00000d60  79 52 65 71 75 65 73 74  73 0d 06 72 14 20 20 20  |yRequests..r.   |
00000d70  de 20 63 6f 64 65 25 20  36 35 30 30 30 0d 06 7c  |. code% 65000..||
00000d80  17 20 20 20 de 20 62 61  64 64 69 65 5f 69 64 25  |.   . baddie_id%|
00000d90  20 33 30 30 0d 06 86 12  20 20 20 de 20 46 58 31  | 300....   . FX1|
00000da0  25 20 31 36 30 30 0d 06  90 11 20 20 20 de 20 46  |% 1600....   . F|
00000db0  58 32 25 20 33 30 30 0d  06 9a 15 20 20 20 de 20  |X2% 300....   . |
00000dc0  68 69 28 39 29 2c 68 69  24 28 39 29 0d 06 a4 0f  |hi(9),hi$(9)....|
00000dd0  20 20 20 de 20 62 75 25  20 33 30 0d 06 ae 14 20  |   . bu% 30.... |
00000de0  20 20 de 20 70 24 28 32  37 33 2d 31 37 33 29 0d  |  . p$(273-173).|
00000df0  06 b8 11 20 20 20 de 20  70 6c 24 28 31 30 30 29  |...   . pl$(100)|
00000e00  0d 06 c2 11 20 20 20 de  20 69 72 24 28 31 30 30  |....   . ir$(100|
00000e10  29 0d 06 cc 12 20 20 20  de 20 66 6f 6e 74 25 20  |)....   . font% |
00000e20  39 32 30 0d 06 d6 05 e1  0d 06 e0 04 0d 06 ea 10  |920.............|
00000e30  dd 20 f2 53 6f 75 6e 64  4c 6f 61 64 0d 06 f4 21  |. .SoundLoad...!|
00000e40  20 20 20 ff 22 43 48 41  4e 4e 45 4c 56 4f 49 43  |   ."CHANNELVOIC|
00000e50  45 20 31 20 22 2b c3 76  6f 69 63 65 31 0d 06 fe  |E 1 "+.voice1...|
00000e60  0f 20 20 20 73 65 72 72  6f 72 3d 31 0d 07 08 0a  |.   serror=1....|
00000e70  20 20 20 ea 20 85 0d 07  12 1e 20 20 20 ee 20 85  |   . .....   . .|
00000e80  20 ea 20 f7 20 85 3a f2  53 6f 75 6e 64 45 72 72  | . . .:.SoundErr|
00000e90  6f 72 3a e1 0d 07 1c 2c  20 20 20 2a 52 4d 4c 4f  |or:....,   *RMLO|
00000ea0  41 44 20 3c 41 63 65 43  72 75 73 61 64 65 72 24  |AD <AceCrusader$|
00000eb0  44 69 72 3e 2e 53 4f 55  4e 44 53 2e 44 52 49 50  |Dir>.SOUNDS.DRIP|
00000ec0  0d 07 26 2c 20 20 20 2a  52 4d 4c 4f 41 44 20 3c  |..&,   *RMLOAD <|
00000ed0  41 63 65 43 72 75 73 61  64 65 72 24 44 69 72 3e  |AceCrusader$Dir>|
00000ee0  2e 53 4f 55 4e 44 53 2e  48 45 4c 50 0d 07 30 31  |.SOUNDS.HELP..01|
00000ef0  20 20 20 2a 52 4d 4c 4f  41 44 20 3c 41 63 65 43  |   *RMLOAD <AceC|
00000f00  72 75 73 61 64 65 72 24  44 69 72 3e 2e 53 4f 55  |rusader$Dir>.SOU|
00000f10  4e 44 53 2e 65 78 70 6c  6f 73 69 6f 6e 0d 07 3a  |NDS.explosion..:|
00000f20  2d 20 20 20 2a 52 4d 4c  4f 41 44 20 3c 41 63 65  |-   *RMLOAD <Ace|
00000f30  43 72 75 73 61 64 65 72  24 44 69 72 3e 2e 53 4f  |Crusader$Dir>.SO|
00000f40  55 4e 44 53 2e 6c 61 73  65 72 0d 07 44 30 20 20  |UNDS.laser..D0  |
00000f50  20 2a 52 4d 4c 4f 41 44  20 3c 41 63 65 43 72 75  | *RMLOAD <AceCru|
00000f60  73 61 64 65 72 24 44 69  72 3e 2e 53 4f 55 4e 44  |sader$Dir>.SOUND|
00000f70  53 2e 4f 70 65 6e 66 69  72 65 0d 07 4e 2c 20 20  |S.Openfire..N,  |
00000f80  20 2a 52 4d 4c 4f 41 44  20 3c 41 63 65 43 72 75  | *RMLOAD <AceCru|
00000f90  73 61 64 65 72 24 44 69  72 3e 2e 53 4f 55 4e 44  |sader$Dir>.SOUND|
00000fa0  53 2e 70 69 6e 67 0d 07  58 30 20 20 20 2a 52 4d  |S.ping..X0   *RM|
00000fb0  4c 4f 41 44 20 3c 41 63  65 43 72 75 73 61 64 65  |LOAD <AceCrusade|
00000fc0  72 24 44 69 72 3e 2e 53  4f 55 4e 44 53 2e 54 68  |r$Dir>.SOUNDS.Th|
00000fd0  61 6e 6b 79 6f 75 0d 07  62 2e 20 20 20 2a 52 4d  |ankyou..b.   *RM|
00000fe0  4c 4f 41 44 20 3c 41 63  65 43 72 75 73 61 64 65  |LOAD <AceCrusade|
00000ff0  72 24 44 69 72 3e 2e 53  4f 55 4e 44 53 2e 48 65  |r$Dir>.SOUNDS.He|
00001000  6c 70 6d 65 0d 07 6c 2d  20 20 20 2a 52 4d 4c 4f  |lpme..l-   *RMLO|
00001010  41 44 20 3c 41 63 65 43  72 75 73 61 64 65 72 24  |AD <AceCrusader$|
00001020  44 69 72 3e 2e 53 4f 55  4e 44 53 2e 42 4c 45 45  |Dir>.SOUNDS.BLEE|
00001030  50 0d 07 76 0a 20 20 20  f7 20 85 0d 07 80 05 e1  |P..v.   . ......|
00001040  0d 07 8a 04 0d 07 94 11  dd 20 f2 53 6f 75 6e 64  |......... .Sound|
00001050  45 72 72 6f 72 0d 07 9e  0f 20 20 20 73 65 72 72  |Error....   serr|
00001060  6f 72 3d 32 0d 07 a8 37  20 20 20 65 24 3d 22 49  |or=2...7   e$="I|
00001070  20 63 61 6e 6e 6f 74 20  70 72 6f 63 65 65 64 20  | cannot proceed |
00001080  77 69 74 68 6f 75 74 20  6d 79 20 73 6f 75 6e 64  |without my sound|
00001090  73 2c 20 70 6c 65 61 73  65 20 22 0d 07 b2 3d 20  |s, please "...= |
000010a0  20 20 65 24 3d 65 24 2b  22 69 6e 63 72 65 61 73  |  e$=e$+"increas|
000010b0  65 20 74 68 65 20 6d 6f  64 75 6c 65 20 61 72 65  |e the module are|
000010c0  61 20 69 6e 20 74 68 65  20 74 61 73 6b 20 6d 61  |a in the task ma|
000010d0  6e 61 67 65 72 2c 20 22  0d 07 bc 34 20 20 20 65  |nager, "...4   e|
000010e0  24 3d 65 24 2b 22 61 6e  64 2f 6f 72 20 65 6e 73  |$=e$+"and/or ens|
000010f0  75 72 65 20 6d 79 20 64  69 73 6b 20 63 61 6e 20  |ure my disk can |
00001100  62 65 20 61 63 63 65 73  73 65 64 22 0d 07 c6 10  |be accessed"....|
00001110  20 20 20 f2 49 6e 66 6f  28 65 24 29 0d 07 d0 0a  |   .Info(e$)....|
00001120  20 20 20 ea 20 85 0d 07  d1 12 20 20 20 ee 20 85  |   . .....   . .|
00001130  20 ea 20 f7 20 85 3a e1  0d 07 da 13 20 20 20 2a  | . . .:.....   *|
00001140  52 4d 4b 49 4c 4c 20 44  52 49 50 0d 07 db 0a 20  |RMKILL DRIP.... |
00001150  20 20 f7 20 85 0d 07 ee  05 e1 0d 07 f8 04 0d 08  |  . ............|
00001160  02 09 dd 20 f2 52 70 0d  08 0c 2b 20 20 20 66 69  |... .Rp...+   fi|
00001170  31 20 3d 20 8e 20 22 3c  41 63 65 43 72 75 73 61  |1 = . "<AceCrusa|
00001180  64 65 72 24 44 69 72 3e  2e 53 50 52 54 44 41 54  |der$Dir>.SPRTDAT|
00001190  41 22 0d 08 16 1a 20 20  20 e3 20 6c 3d 35 30 30  |A"....   . l=500|
000011a0  2d 6c 73 20 b8 20 6c 73  2d 33 39 39 0d 08 20 16  |-ls . ls-399.. .|
000011b0  20 20 20 20 20 20 f2 47  65 74 70 28 70 24 28 6c  |      .Getp(p$(l|
000011c0  29 29 0d 08 2a 0a 20 20  20 ed 20 6c 0d 08 34 0d  |))..*.   . l..4.|
000011d0  20 20 20 d9 23 20 66 69  31 0d 08 3e 05 e1 0d 08  |   .# fi1..>....|
000011e0  48 04 0d 08 52 13 dd 20  a4 45 6e 73 75 72 65 53  |H...R.. .EnsureS|
000011f0  6f 75 6e 64 73 0d 08 5c  0f 20 20 20 73 65 72 72  |ounds..\.   serr|
00001200  6f 72 3d a3 0d 08 66 0a  20 20 20 ea 20 85 0d 08  |or=...f.   . ...|
00001210  70 17 20 20 20 ee 20 85  20 ea 20 f2 53 6f 75 6e  |p.   . . . .Soun|
00001220  64 4c 6f 61 64 0d 08 7a  13 20 20 20 e7 20 73 65  |dLoad..z.   . se|
00001230  72 72 6f 72 3d a3 20 8c  0d 08 84 2d 20 20 20 20  |rror=. ....-    |
00001240  20 20 c8 99 22 53 6f 75  6e 64 5f 41 74 74 61 63  |  .."Sound_Attac|
00001250  68 56 6f 69 63 65 22 2c  31 2c 31 20 b8 20 2c 76  |hVoice",1,1 . ,v|
00001260  6f 69 63 65 31 0d 08 8e  1e 20 20 20 20 20 20 2a  |oice1....      *|
00001270  43 48 41 4e 4e 45 4c 56  4f 49 43 45 20 31 20 44  |CHANNELVOICE 1 D|
00001280  52 49 50 0d 08 98 24 20  20 20 20 20 20 ff 22 43  |RIP...$      ."C|
00001290  48 41 4e 4e 45 4c 56 4f  49 43 45 20 31 20 22 2b  |HANNELVOICE 1 "+|
000012a0  c3 76 6f 69 63 65 31 0d  08 a2 08 20 20 20 cd 0d  |.voice1....   ..|
000012b0  08 ac 1a 20 20 20 e7 20  73 65 72 72 6f 72 3d 32  |...   . serror=2|
000012c0  20 73 65 72 72 6f 72 3d  b9 0d 08 b6 1a 20 20 20  | serror=.....   |
000012d0  e7 20 73 65 72 72 6f 72  3d 31 20 73 65 72 72 6f  |. serror=1 serro|
000012e0  72 3d a3 0d 08 c0 0a 20  20 20 f7 20 85 0d 08 ca  |r=.....   . ....|
000012f0  0b 3d 73 65 72 72 6f 72  0d 08 d4 04 0d 08 de 11  |.=serror........|
00001300  dd 20 f2 47 65 74 70 28  f8 20 72 24 29 0d 08 e8  |. .Getp(. r$)...|
00001310  0c 20 20 20 72 24 3d 22  22 0d 08 f2 0f 20 20 20  |.   r$=""....   |
00001320  6e 3d 9a 23 20 66 69 31  0d 08 fc 11 20 20 20 c8  |n=.# fi1....   .|
00001330  95 20 28 6e 3c 3e 32 30  29 0d 09 06 15 20 20 20  |. (n<>20)....   |
00001340  20 20 20 6e 3d 28 6e 2b  32 30 29 81 20 33 0d 09  |   n=(n+20). 3..|
00001350  10 14 20 20 20 20 20 20  72 24 3d 72 24 2b bd 28  |..      r$=r$+.(|
00001360  6e 29 0d 09 1a 12 20 20  20 20 20 20 6e 3d 9a 23  |n)....      n=.#|
00001370  20 66 69 31 0d 09 24 08  20 20 20 ce 0d 09 2e 05  | fi1..$.   .....|
00001380  e1 0d 09 38 04 0d 09 42  10 dd 20 f2 43 6f 6e 73  |...8...B.. .Cons|
00001390  74 61 6e 74 73 0d 09 4c  20 20 20 20 69 6e 69 74  |tants..L    init|
000013a0  69 61 6c 69 73 65 5f 63  6f 64 65 3d 63 6f 64 65  |ialise_code=code|
000013b0  25 2b 35 34 34 0d 09 56  20 20 20 20 73 6f 66 74  |%+544..V    soft|
000013c0  5f 73 74 61 72 74 5f 63  6f 64 65 3d 63 6f 64 65  |_start_code=code|
000013d0  25 2b 35 39 32 0d 09 60  1f 20 20 20 6d 61 69 6e  |%+592..`.   main|
000013e0  5f 67 61 6d 65 5f 63 6f  64 65 3d 63 6f 64 65 25  |_game_code=code%|
000013f0  2b 36 31 36 0d 09 6a 1f  20 20 20 65 6f 6c 62 5f  |+616..j.   eolb_|
00001400  67 61 6d 65 5f 63 6f 64  65 3d 63 6f 64 65 25 2b  |game_code=code%+|
00001410  37 34 30 0d 09 74 1b 20  20 20 73 63 72 6f 6c 6c  |740..t.   scroll|
00001420  5f 63 6f 64 65 3d 46 58  31 25 2b 32 36 30 0d 09  |_code=FX1%+260..|
00001430  7e 12 20 20 20 67 61 6d  65 5f 6f 76 65 72 3d 31  |~.   game_over=1|
00001440  0d 09 88 19 20 20 20 61  6c 6c 5f 62 61 64 64 69  |....   all_baddi|
00001450  65 73 5f 73 68 6f 74 3d  32 0d 09 92 17 20 20 20  |es_shot=2....   |
00001460  6c 65 76 65 6c 5f 63 6f  6d 70 6c 65 74 65 3d 33  |level_complete=3|
00001470  0d 09 9c 1c 20 20 20 75  73 65 72 5f 70 72 65 73  |....   user_pres|
00001480  73 65 64 5f 65 73 63 61  70 65 3d 34 0d 09 a6 0d  |sed_escape=4....|
00001490  20 20 20 6c 73 3d 34 39  39 0d 09 b0 16 20 20 20  |   ls=499....   |
000014a0  75 70 5f 63 6f 64 65 3d  46 58 32 25 2b 37 32 0d  |up_code=FX2%+72.|
000014b0  09 ba 0c 20 20 20 6f 6e  3d 2d 31 0d 09 c4 0c 20  |...   on=-1.... |
000014c0  20 20 6f 66 66 3d 30 0d  09 ce 18 20 20 20 73 6f  |  off=0....   so|
000014d0  75 6e 64 61 64 72 3d 63  6f 64 65 25 2b 35 32 0d  |undadr=code%+52.|
000014e0  09 d8 05 e1 0d 09 e2 04  0d 09 ec 18 dd 20 f2 44  |............. .D|
000014f0  69 73 70 6c 61 79 47 61  6d 65 53 63 72 65 65 6e  |isplayGameScreen|
00001500  0d 09 f6 11 20 20 20 f2  44 65 6c 61 79 28 35 30  |....   .Delay(50|
00001510  29 0d 0a 00 20 20 20 20  2a 43 48 41 4e 4e 45 4c  |)...    *CHANNEL|
00001520  56 4f 49 43 45 20 31 20  45 58 50 4c 4f 53 49 4f  |VOICE 1 EXPLOSIO|
00001530  4e 0d 0a 0a 1a 20 20 20  e3 20 6c 3d 31 30 32 33  |N....   . l=1023|
00001540  20 b8 20 37 38 34 20 88  20 2d 34 0d 0a 14 19 20  | . 784 . -4.... |
00001550  20 20 20 20 20 d4 20 31  2c 2d 31 35 2c 6c 2d 37  |     . 1,-15,l-7|
00001560  38 34 2c 32 0d 0a 1e 13  20 20 20 20 20 20 f2 44  |84,2....      .D|
00001570  65 6c 61 79 28 33 29 0d  0a 28 1e 20 20 20 20 20  |elay(3)..(.     |
00001580  20 f2 70 6c 6f 74 28 22  44 49 53 50 4c 41 59 22  | .plot("DISPLAY"|
00001590  2c 30 2c 6c 29 0d 0a 32  0a 20 20 20 ed 20 6c 0d  |,0,l)..2.   . l.|
000015a0  0a 3c 14 20 20 20 d4 20  31 2c 2d 31 35 2c 32 35  |.<.   . 1,-15,25|
000015b0  36 2c 32 0d 0a 46 16 20  20 20 d4 20 31 2c 2d 31  |6,2..F.   . 1,-1|
000015c0  35 2c 26 31 34 30 30 2c  36 0d 0a 50 10 20 20 20  |5,&1400,6..P.   |
000015d0  f2 44 65 6c 61 79 28 38  29 0d 0a 5a 20 20 20 20  |.Delay(8)..Z    |
000015e0  2a 43 48 41 4e 4e 45 4c  56 4f 49 43 45 20 31 20  |*CHANNELVOICE 1 |
000015f0  45 58 50 4c 4f 53 49 4f  4e 0d 0a 64 17 20 20 20  |EXPLOSION..d.   |
00001600  e3 20 6c 3d 2d 32 35 36  20 b8 20 30 20 88 20 34  |. l=-256 . 0 . 4|
00001610  0d 0a 6e 20 20 20 20 20  20 20 f2 70 6c 6f 74 28  |..n       .plot(|
00001620  22 4d 4f 55 4e 54 41 49  4e 53 22 2c 30 2c 6c 29  |"MOUNTAINS",0,l)|
00001630  0d 0a 78 19 20 20 20 20  20 20 d4 20 31 2c 2d 31  |..x.      . 1,-1|
00001640  35 2c 6c 2b 32 35 36 2c  32 0d 0a 82 13 20 20 20  |5,l+256,2....   |
00001650  20 20 20 f2 44 65 6c 61  79 28 33 29 0d 0a 8c 0a  |   .Delay(3)....|
00001660  20 20 20 ed 20 6c 0d 0a  96 14 20 20 20 f2 53 74  |   . l....   .St|
00001670  61 72 74 4d 65 73 73 61  67 65 0d 0a a0 05 e1 0d  |artMessage......|
00001680  0a aa 04 0d 0a b4 13 dd  20 f2 53 74 61 72 74 4d  |........ .StartM|
00001690  65 73 73 61 67 65 0d 0a  be 0e 20 20 20 73 70 65  |essage....   spe|
000016a0  65 64 3d a3 0d 0a c8 0e  20 20 20 2a 46 58 31 35  |ed=.....   *FX15|
000016b0  2c 30 0d 0a d2 53 20 20  20 f2 50 72 69 6e 74 4c  |,0...S   .PrintL|
000016c0  69 6e 65 28 22 5a 65 6e  20 33 30 30 30 20 41 72  |ine("Zen 3000 Ar|
000016d0  74 69 66 69 63 69 61 6c  20 49 6e 74 65 6c 6c 69  |tificial Intelli|
000016e0  67 65 6e 63 65 20 43 6f  6d 70 75 74 65 72 20 61  |gence Computer a|
000016f0  63 74 69 76 61 74 69 6e  67 2e 20 5e 50 37 35 5e  |ctivating. ^P75^|
00001700  22 2c 31 31 29 0d 0a dc  35 20 20 20 f2 50 72 69  |",11)...5   .Pri|
00001710  6e 74 4c 69 6e 65 28 22  43 68 65 63 6b 69 6e 67  |ntLine("Checking|
00001720  20 4e 6f 64 65 20 61 64  64 72 65 73 73 27 73 20  | Node address's |
00001730  5e 50 33 30 5e 22 2c 31  35 29 0d 0a e6 26 20 20  |^P30^",15)...&  |
00001740  20 f2 50 72 69 6e 74 4c  69 6e 65 28 22 47 72 65  | .PrintLine("Gre|
00001750  65 6e 20 4f 4b 20 5e 50  32 30 5e 22 2c 31 30 29  |en OK ^P20^",10)|
00001760  0d 0a f0 21 20 20 20 f2  50 72 69 6e 74 4c 69 6e  |...!   .PrintLin|
00001770  65 28 22 43 6f 6e 66 69  72 6d 65 64 22 2c 31 34  |e("Confirmed",14|
00001780  29 0d 0a fa 2d 20 20 20  f2 50 72 69 6e 74 4c 69  |)...-   .PrintLi|
00001790  6e 65 28 22 43 68 65 63  6b 69 6e 67 20 53 65 72  |ne("Checking Ser|
000017a0  76 65 72 20 5e 50 33 30  5e 22 2c 31 35 29 0d 0b  |ver ^P30^",15)..|
000017b0  04 2c 20 20 20 f2 50 72  69 6e 74 4c 69 6e 65 28  |.,   .PrintLine(|
000017c0  22 53 65 72 76 65 72 20  70 72 65 73 65 6e 74 20  |"Server present |
000017d0  5e 50 32 30 5e 22 2c 31  30 29 0d 0b 0e 21 20 20  |^P20^",10)...!  |
000017e0  20 f2 50 72 69 6e 74 4c  69 6e 65 28 22 43 6f 6e  | .PrintLine("Con|
000017f0  66 69 72 6d 65 64 22 2c  31 34 29 0d 0b 18 2c 20  |firmed",14)..., |
00001800  20 20 f2 50 72 69 6e 74  4c 69 6e 65 28 22 43 68  |  .PrintLine("Ch|
00001810  65 63 6b 69 6e 67 20 42  6f 6f 73 74 20 5e 50 33  |ecking Boost ^P3|
00001820  30 5e 22 2c 31 35 29 0d  0b 22 2b 20 20 20 f2 50  |0^",15).."+   .P|
00001830  72 69 6e 74 4c 69 6e 65  28 22 50 72 65 73 73 75  |rintLine("Pressu|
00001840  72 65 20 47 6f 6f 64 20  5e 50 32 30 5e 22 2c 31  |re Good ^P20^",1|
00001850  30 29 0d 0b 2c 21 20 20  20 f2 50 72 69 6e 74 4c  |0)..,!   .PrintL|
00001860  69 6e 65 28 22 43 6f 6e  66 69 72 6d 65 64 22 2c  |ine("Confirmed",|
00001870  31 34 29 0d 0b 36 26 20  20 20 f2 50 72 69 6e 74  |14)..6&   .Print|
00001880  4c 69 6e 65 28 22 41 6c  6c 20 53 79 73 74 65 6d  |Line("All System|
00001890  73 20 47 4f 22 2c 31 30  29 0d 0b 40 19 20 20 20  |s GO",10)..@.   |
000018a0  f2 50 72 69 6e 74 4c 69  6e 65 28 22 20 22 2c 31  |.PrintLine(" ",1|
000018b0  30 29 0d 0b 4a 24 20 20  20 f2 50 72 69 6e 74 4c  |0)..J$   .PrintL|
000018c0  69 6e 65 28 22 5a 65 6e  20 69 73 20 72 65 61 64  |ine("Zen is read|
000018d0  79 22 2c 31 31 29 0d 0b  54 19 20 20 20 f2 50 72  |y",11)..T.   .Pr|
000018e0  69 6e 74 4c 69 6e 65 28  22 20 22 2c 31 30 29 0d  |intLine(" ",10).|
000018f0  0b 5e c6 20 20 20 f2 50  72 69 6e 74 4c 69 6e 65  |.^.   .PrintLine|
00001900  28 22 57 65 6c 63 6f 6d  65 20 41 62 6f 61 72 64  |("Welcome Aboard|
00001910  20 53 69 72 2c 20 49 74  20 69 73 20 61 20 70 6c  | Sir, It is a pl|
00001920  65 61 73 75 72 65 20 74  6f 20 62 65 20 73 65 72  |easure to be ser|
00001930  76 69 6e 67 20 77 69 74  68 20 79 6f 75 20 61 67  |ving with you ag|
00001940  61 69 6e 2e 20 5e 50 35  30 5e 55 6e 66 6f 72 74  |ain. ^P50^Unfort|
00001950  75 6e 61 74 6c 79 20 61  73 20 79 6f 75 20 6b 6e  |unatly as you kn|
00001960  6f 77 20 53 69 72 2c 20  6f 75 72 20 63 68 61 6e  |ow Sir, our chan|
00001970  63 65 73 20 6f 66 20 73  75 72 76 69 76 61 6c 20  |ces of survival |
00001980  74 68 69 73 20 74 69 6d  65 20 61 72 65 20 6e 6f  |this time are no|
00001990  74 20 67 6f 6f 64 2c 20  62 75 74 20 73 75 63 68  |t good, but such|
000019a0  20 69 73 20 6c 69 66 65  20 21 20 5e 50 33 35 5e  | is life ! ^P35^|
000019b0  22 2c 31 35 29 0d 0b 68  2b 20 20 20 f2 50 72 69  |",15)..h+   .Pri|
000019c0  6e 74 4c 69 6e 65 28 22  47 6f 6f 64 20 4c 75 63  |ntLine("Good Luc|
000019d0  6b 20 53 69 72 20 5e 50  36 30 5e 22 2c 31 34 29  |k Sir ^P60^",14)|
000019e0  0d 0b 72 27 20 20 20 f2  50 72 69 6e 74 4c 69 6e  |..r'   .PrintLin|
000019f0  65 28 22 4c 45 54 53 20  47 4f 20 21 20 5e 50 34  |e("LETS GO ! ^P4|
00001a00  30 5e 22 2c 31 31 29 0d  0b 7c 17 20 20 20 f2 43  |0^",11)..|.   .C|
00001a10  6c 65 61 72 4d 65 73 73  61 67 65 57 69 6e 0d 0b  |learMessageWin..|
00001a20  86 05 e1 0d 0b 90 04 0d  0b 9a 12 dd 20 f2 53 63  |............ .Sc|
00001a30  72 6f 6c 6c 55 70 28 63  29 0d 0b a4 10 20 20 20  |rollUp(c)....   |
00001a40  46 58 32 25 21 30 3d 34  38 0d 0b ae 0f 20 20 20  |FX2%!0=48....   |
00001a50  46 58 32 25 21 34 3d 38  0d 0b b8 10 20 20 20 46  |FX2%!4=8....   F|
00001a60  58 32 25 21 38 3d 36 34  0d 0b c2 11 20 20 20 46  |X2%!8=64....   F|
00001a70  58 32 25 21 31 32 3d 34  30 0d 0b cc 0a 20 20 20  |X2%!12=40....   |
00001a80  ea 20 6c 0d 0b d6 10 20  20 20 e3 20 6c 3d 31 20  |. l....   . l=1 |
00001a90  b8 20 63 0d 0b e0 0f 20  20 20 20 20 20 2a 46 58  |. c....      *FX|
00001aa0  31 39 0d 0b ea 13 20 20  20 20 20 20 d6 20 75 70  |19....      . up|
00001ab0  5f 63 6f 64 65 0d 0b f4  0a 20 20 20 ed 20 6c 0d  |_code....   . l.|
00001ac0  0b fe 05 e1 0d 0c 08 04  0d 0c 12 13 dd 20 f2 4d  |............. .M|
00001ad0  69 73 73 69 6f 6e 42 72  69 65 66 0d 0c 1c 12 20  |issionBrief.... |
00001ae0  20 20 6d 65 73 73 61 67  65 5f 79 3d 30 0d 0c 26  |  message_y=0..&|
00001af0  12 20 20 20 f2 43 6c 65  61 72 52 61 64 61 72 0d  |.   .ClearRadar.|
00001b00  0c 30 0e 20 20 20 73 70  65 65 64 3d a3 0d 0c 3a  |.0.   speed=...:|
00001b10  0e 20 20 20 2a 46 58 31  35 2c 30 0d 0c 44 3b 20  |.   *FX15,0..D; |
00001b20  20 20 e7 20 6c 65 76 65  6c 3c 34 32 20 84 20 6c  |  . level<42 . l|
00001b30  65 76 65 6c 3e 35 35 20  f2 50 72 69 6e 74 4c 69  |evel>55 .PrintLi|
00001b40  6e 65 28 22 4d 69 73 73  69 6f 6e 20 42 72 69 65  |ne("Mission Brie|
00001b50  66 22 2c 31 33 29 0d 0c  4e 28 20 20 20 f2 50 72  |f",13)..N(   .Pr|
00001b60  69 6e 74 4c 69 6e 65 28  22 53 65 63 74 6f 72 20  |intLine("Sector |
00001b70  3a 20 22 2b c3 6c 65 76  65 6c 2c 31 35 29 0d 0c  |: "+.level,15)..|
00001b80  58 2b 20 20 20 f2 50 72  69 6e 74 4c 69 6e 65 28  |X+   .PrintLine(|
00001b90  22 50 6c 61 6e 65 74 20  3a 20 22 2b 70 6c 24 28  |"Planet : "+pl$(|
00001ba0  6c 65 76 65 6c 29 2c 39  29 0d 0c 62 11 20 20 20  |level),9)..b.   |
00001bb0  f2 44 65 6c 61 79 28 35  30 29 0d 0c 6c 4f 20 20  |.Delay(50)..lO  |
00001bc0  20 e7 20 6c 65 76 65 6c  3c 34 32 20 84 20 6c 65  | . level<42 . le|
00001bd0  76 65 6c 3e 35 35 20 f2  50 72 69 6e 74 4c 69 6e  |vel>55 .PrintLin|
00001be0  65 28 22 49 6e 74 65 6c  6c 69 67 65 6e 63 65 20  |e("Intelligence |
00001bf0  72 65 70 6f 72 74 73 20  2e 2e 2e 2e 2e 2e 20 5e  |reports ...... ^|
00001c00  50 35 30 5e 22 2c 31 33  29 0d 0c 76 20 20 20 20  |P50^",13)..v    |
00001c10  f2 50 72 69 6e 74 4c 69  6e 65 28 69 72 24 28 6c  |.PrintLine(ir$(l|
00001c20  65 76 65 6c 29 2c 31 35  29 0d 0c 80 1e 20 20 20  |evel),15)....   |
00001c30  e7 20 6c 65 76 65 6c 3c  34 31 20 84 20 6c 65 76  |. level<41 . lev|
00001c40  65 6c 3e 35 34 20 8c 0d  0c 8a 14 20 20 20 20 20  |el>54 .....     |
00001c50  20 f2 44 65 6c 61 79 28  35 30 29 0d 0c 94 2e 20  | .Delay(50).... |
00001c60  20 20 20 20 20 f2 50 72  69 6e 74 4c 69 6e 65 28  |     .PrintLine(|
00001c70  22 47 6f 6f 64 20 4c 75  63 6b 20 53 69 72 20 5e  |"Good Luck Sir ^|
00001c80  50 36 30 5e 22 2c 31 34  29 0d 0c 9e 2a 20 20 20  |P60^",14)...*   |
00001c90  20 20 20 f2 50 72 69 6e  74 4c 69 6e 65 28 22 4c  |   .PrintLine("L|
00001ca0  45 54 53 20 47 4f 20 21  20 5e 50 35 30 5e 22 2c  |ETS GO ! ^P50^",|
00001cb0  31 31 29 0d 0c a8 08 20  20 20 cd 0d 0c b2 17 20  |11)....   ..... |
00001cc0  20 20 f2 43 6c 65 61 72  4d 65 73 73 61 67 65 57  |  .ClearMessageW|
00001cd0  69 6e 0d 0c bc 0e 20 20  20 73 70 65 65 64 3d a3  |in....   speed=.|
00001ce0  0d 0c c6 05 e1 0d 0c d0  04 0d 0c da 15 dd 20 f2  |.............. .|
00001cf0  4d 69 73 73 69 6f 6e 44  65 62 72 69 65 66 0d 0c  |MissionDebrief..|
00001d00  e4 0e 20 20 20 73 70 65  65 64 3d a3 0d 0c ee 12  |..   speed=.....|
00001d10  20 20 20 f2 43 6c 65 61  72 52 61 64 61 72 0d 0c  |   .ClearRadar..|
00001d20  f8 5a 20 20 20 e7 20 6c  65 76 65 6c 3c 34 32 20  |.Z   . level<42 |
00001d30  84 20 6c 65 76 65 6c 3e  35 35 20 f2 50 72 69 6e  |. level>55 .Prin|
00001d40  74 4c 69 6e 65 28 22 57  65 6c 6c 20 44 6f 6e 65  |tLine("Well Done|
00001d50  20 53 69 72 2c 20 57 65  20 68 61 76 65 20 73 75  | Sir, We have su|
00001d60  72 76 69 76 65 64 20 61  67 61 69 6e 2e 20 5e 50  |rvived again. ^P|
00001d70  33 35 5e 22 2c 31 35 29  0d 0d 02 38 20 20 20 f2  |35^",15)...8   .|
00001d80  50 72 69 6e 74 4c 69 6e  65 28 22 50 61 73 73 77  |PrintLine("Passw|
00001d90  6f 72 64 20 66 6f 72 20  6e 65 78 74 20 73 65 63  |ord for next sec|
00001da0  74 6f 72 20 3a 20 5e 50  34 30 5e 22 2c 31 31 29  |tor : ^P40^",11)|
00001db0  0d 0d 0c 1f 20 20 20 f2  50 72 69 6e 74 4c 69 6e  |....   .PrintLin|
00001dc0  65 28 70 24 28 6c 65 76  65 6c 29 2c 31 34 29 0d  |e(p$(level),14).|
00001dd0  0d 16 11 20 20 20 f2 44  65 6c 61 79 28 35 30 29  |...   .Delay(50)|
00001de0  0d 0d 20 23 20 20 20 f2  50 72 69 6e 74 4c 69 6e  |.. #   .PrintLin|
00001df0  65 28 22 50 72 65 73 73  20 46 69 72 65 2e 22 2c  |e("Press Fire.",|
00001e00  31 31 29 0d 0d 2a 0e 20  20 20 2a 46 58 31 35 2c  |11)..*.   *FX15,|
00001e10  30 0d 0d 34 0a 20 20 20  41 3d a5 0d 0d 3e 17 20  |0..4.   A=...>. |
00001e20  20 20 f2 43 6c 65 61 72  4d 65 73 73 61 67 65 57  |  .ClearMessageW|
00001e30  69 6e 0d 0d 48 05 e1 0d  0d 52 04 0d 0d 5c 11 dd  |in..H....R...\..|
00001e40  20 f2 53 65 74 55 70 4c  65 76 65 6c 0d 0d 66 14  | .SetUpLevel..f.|
00001e50  20 20 20 f2 53 65 74 55  70 42 61 64 64 69 65 73  |   .SetUpBaddies|
00001e60  0d 0d 70 1e 20 20 20 63  6f 64 65 25 21 38 3d 28  |..p.   code%!8=(|
00001e70  6c 65 76 65 6c 20 81 20  31 35 29 2b 31 30 0d 0d  |level . 15)+10..|
00001e80  7a 3d 20 20 20 63 6f 64  65 25 21 32 30 3d 28 6c  |z=   code%!20=(l|
00001e90  65 76 65 6c 20 81 20 32  30 29 3a e7 20 6c 65 76  |evel . 20):. lev|
00001ea0  65 6c 20 3e 32 20 80 20  6c 65 76 65 6c 20 3c 35  |el >2 . level <5|
00001eb0  20 63 6f 64 65 25 21 32  30 3d 31 0d 0d 84 3c 20  | code%!20=1...< |
00001ec0  20 20 63 6f 64 65 25 21  31 36 3d 28 6c 65 76 65  |  code%!16=(leve|
00001ed0  6c 20 81 20 32 30 29 3a  e7 20 6c 65 76 65 6c 3e  |l . 20):. level>|
00001ee0  31 20 80 20 6c 65 76 65  6c 20 3c 35 20 63 6f 64  |1 . level <5 cod|
00001ef0  65 25 21 31 36 3d 31 0d  0d 8e 34 20 20 20 63 6f  |e%!16=1...4   co|
00001f00  64 65 25 21 32 38 3d 6c  65 76 65 6c 20 83 20 31  |de%!28=level . 1|
00001f10  30 3a 20 e7 20 63 6f 64  65 25 21 32 38 3d 30 20  |0: . code%!28=0 |
00001f20  63 6f 64 65 25 21 32 38  3d 31 30 0d 0d 98 1c 20  |code%!28=10.... |
00001f30  20 20 63 6f 64 65 25 21  33 32 3d 28 6c 65 76 65  |  code%!32=(leve|
00001f40  6c 2a 32 29 2b 31 30 0d  0d a2 3b 20 20 20 63 6f  |l*2)+10...;   co|
00001f50  64 65 25 21 31 32 3d 28  6c 65 76 65 6c 20 81 20  |de%!12=(level . |
00001f60  32 29 2b 33 30 3a e7 20  6c 65 76 65 6c 3e 35 30  |2)+30:. level>50|
00001f70  20 63 6f 64 65 25 21 31  32 3d 6c 65 76 65 6c 2b  | code%!12=level+|
00001f80  33 30 0d 0d ac 1e 20 20  20 63 6f 64 65 25 21 34  |30....   code%!4|
00001f90  34 3d 28 6c 65 76 65 6c  20 81 20 35 30 29 2b 31  |4=(level . 50)+1|
00001fa0  0d 0d b6 1e 20 20 20 63  6f 64 65 25 21 34 38 3d  |....   code%!48=|
00001fb0  28 6c 65 76 65 6c 20 81  20 35 30 29 2b 31 0d 0d  |(level . 50)+1..|
00001fc0  c0 2e 20 20 20 e7 20 28  6c 65 76 65 6c 20 80 20  |..   . (level . |
00001fd0  37 29 3e 30 20 63 6f 64  65 25 21 32 34 3d 31 20  |7)>0 code%!24=1 |
00001fe0  8b 20 63 6f 64 65 25 21  32 34 3d 33 0d 0d ca 14  |. code%!24=3....|
00001ff0  20 20 20 f2 4d 69 73 73  69 6f 6e 42 72 69 65 66  |   .MissionBrief|
00002000  0d 0d d4 05 e1 0d 0d de  04 0d 0d e8 13 dd 20 f2  |.............. .|
00002010  53 65 74 55 70 42 61 64  64 69 65 73 0d 0d f2 1b  |SetUpBaddies....|
00002020  20 20 20 e7 20 6c 65 76  65 6c 20 3c 35 20 8c 20  |   . level <5 . |
00002030  f2 47 72 6f 75 70 41 0d  0d fc 25 20 20 20 e7 20  |.GroupA...%   . |
00002040  6c 65 76 65 6c 20 3e 34  20 80 20 6c 65 76 65 6c  |level >4 . level|
00002050  20 3c 31 30 20 f2 47 72  6f 75 70 42 0d 0e 06 25  | <10 .GroupB...%|
00002060  20 20 20 e7 20 6c 65 76  65 6c 20 3e 39 20 80 20  |   . level >9 . |
00002070  6c 65 76 65 6c 20 3c 31  35 20 f2 47 72 6f 75 70  |level <15 .Group|
00002080  43 0d 0e 10 1a 20 20 20  e7 20 6c 65 76 65 6c 20  |C....   . level |
00002090  3e 31 34 20 f2 47 72 6f  75 70 44 0d 0e 1a 05 e1  |>14 .GroupD.....|
000020a0  0d 0e 24 04 0d 0e 2e 0d  dd 20 f2 47 72 6f 75 70  |..$...... .Group|
000020b0  41 0d 0e 38 0d 20 20 20  f7 20 8d 44 6a 4e 0d 0e  |A..8.   . .DjN..|
000020c0  42 11 20 20 20 e3 20 6c  3d 30 20 b8 20 36 33 0d  |B.   . l=0 . 63.|
000020d0  0e 4c 0d 20 20 20 20 20  20 f3 20 64 0d 0e 56 18  |.L.      . d..V.|
000020e0  20 20 20 20 20 20 62 61  64 64 69 65 5f 69 64 25  |      baddie_id%|
000020f0  3f 6c 3d 64 0d 0e 60 0a  20 20 20 ed 20 6c 0d 0e  |?l=d..`.   . l..|
00002100  6a c8 20 20 20 dc 20 31  37 2c 31 37 2c 31 37 2c  |j.   . 17,17,17,|
00002110  31 35 2c 31 35 2c 32 38  2c 36 32 2c 31 37 2c 35  |15,15,28,62,17,5|
00002120  34 2c 31 36 2c 36 32 2c  31 39 2c 35 34 2c 31 36  |4,16,62,19,54,16|
00002130  2c 36 32 2c 31 39 2c 35  34 2c 31 36 2c 36 32 2c  |,62,19,54,16,62,|
00002140  36 32 2c 31 37 2c 31 37  2c 36 32 2c 31 39 2c 35  |62,17,17,62,19,5|
00002150  34 2c 31 36 2c 36 32 2c  31 39 2c 35 34 2c 31 36  |4,16,62,19,54,16|
00002160  2c 36 32 2c 31 39 2c 35  34 2c 31 36 2c 36 32 2c  |,62,19,54,16,62,|
00002170  31 39 2c 35 34 2c 36 32  2c 36 32 2c 36 32 2c 36  |19,54,62,62,62,6|
00002180  32 2c 31 36 2c 36 32 2c  31 39 2c 31 37 2c 31 36  |2,16,62,19,17,16|
00002190  2c 36 32 2c 31 39 2c 35  34 2c 31 36 2c 31 37 2c  |,62,19,54,16,17,|
000021a0  31 39 2c 35 34 2c 31 37  2c 36 32 2c 31 39 2c 35  |19,54,17,62,19,5|
000021b0  34 2c 31 36 2c 31 37 2c  31 37 2c 31 37 2c 36 32  |4,16,17,17,17,62|
000021c0  2c 31 35 2c 32 38 0d 0e  74 04 0d 0e 7e 12 20 20  |,15,28..t...~.  |
000021d0  20 63 6f 64 65 25 21 34  30 3d 36 33 0d 0e 88 05  | code%!40=63....|
000021e0  e1 0d 0e 92 04 0d 0e 9c  0d dd 20 f2 47 72 6f 75  |.......... .Grou|
000021f0  70 42 0d 0e a6 0d 20 20  20 f7 20 8d 64 58 4e 0d  |pB....   . .dXN.|
00002200  0e b0 11 20 20 20 e3 20  6c 3d 30 20 b8 20 36 33  |...   . l=0 . 63|
00002210  0d 0e ba 0d 20 20 20 20  20 20 f3 20 64 0d 0e c4  |....      . d...|
00002220  18 20 20 20 20 20 20 62  61 64 64 69 65 5f 69 64  |.      baddie_id|
00002230  25 3f 6c 3d 64 0d 0e ce  0a 20 20 20 ed 20 6c 0d  |%?l=d....   . l.|
00002240  0e d8 c8 20 20 20 dc 20  31 37 2c 31 37 2c 31 37  |...   . 17,17,17|
00002250  2c 31 35 2c 31 35 2c 32  38 2c 36 36 2c 34 39 2c  |,15,15,28,66,49,|
00002260  35 30 2c 31 38 2c 36 32  2c 31 39 2c 35 34 2c 31  |50,18,62,19,54,1|
00002270  36 2c 36 32 2c 31 39 2c  35 34 2c 31 36 2c 36 32  |6,62,19,54,16,62|
00002280  2c 36 32 2c 31 37 2c 31  37 2c 36 32 2c 31 39 2c  |,62,17,17,62,19,|
00002290  35 34 2c 31 36 2c 36 32  2c 31 39 2c 35 34 2c 31  |54,16,62,19,54,1|
000022a0  36 2c 36 32 2c 31 39 2c  35 34 2c 31 36 2c 36 32  |6,62,19,54,16,62|
000022b0  2c 31 39 2c 35 34 2c 36  32 2c 36 32 2c 36 32 2c  |,19,54,62,62,62,|
000022c0  36 32 2c 31 36 2c 36 32  2c 31 39 2c 31 37 2c 31  |62,16,62,19,17,1|
000022d0  36 2c 36 32 2c 31 39 2c  35 34 2c 31 36 2c 31 37  |6,62,19,54,16,17|
000022e0  2c 31 39 2c 35 34 2c 31  37 2c 36 32 2c 31 39 2c  |,19,54,17,62,19,|
000022f0  35 34 2c 31 36 2c 31 37  2c 31 37 2c 31 37 2c 36  |54,16,17,17,17,6|
00002300  32 2c 31 35 2c 32 38 0d  0e e2 04 0d 0e ec 12 20  |2,15,28........ |
00002310  20 20 63 6f 64 65 25 21  34 30 3d 36 33 0d 0e f6  |  code%!40=63...|
00002320  05 e1 0d 0f 00 04 0d 0f  0a 0d dd 20 f2 47 72 6f  |........... .Gro|
00002330  75 70 43 0d 0f 14 0d 20  20 20 f7 20 8d 44 46 4f  |upC....   . .DFO|
00002340  0d 0f 1e 11 20 20 20 e3  20 6c 3d 30 20 b8 20 36  |....   . l=0 . 6|
00002350  33 0d 0f 28 0d 20 20 20  20 20 20 f3 20 64 0d 0f  |3..(.      . d..|
00002360  32 18 20 20 20 20 20 20  62 61 64 64 69 65 5f 69  |2.      baddie_i|
00002370  64 25 3f 6c 3d 64 0d 0f  3c 0a 20 20 20 ed 20 6c  |d%?l=d..<.   . l|
00002380  0d 0f 46 c8 20 20 20 dc  20 31 37 2c 31 37 2c 31  |..F.   . 17,17,1|
00002390  37 2c 31 35 2c 31 35 2c  32 38 2c 36 36 2c 34 39  |7,15,15,28,66,49|
000023a0  2c 35 30 2c 31 38 2c 32  30 2c 35 35 2c 35 36 2c  |,50,18,20,55,56,|
000023b0  35 33 2c 36 32 2c 31 39  2c 35 34 2c 31 36 2c 36  |53,62,19,54,16,6|
000023c0  32 2c 36 32 2c 31 37 2c  31 37 2c 36 32 2c 31 39  |2,62,17,17,62,19|
000023d0  2c 35 34 2c 31 36 2c 36  32 2c 31 39 2c 35 34 2c  |,54,16,62,19,54,|
000023e0  31 36 2c 36 32 2c 31 39  2c 35 34 2c 31 36 2c 36  |16,62,19,54,16,6|
000023f0  32 2c 31 39 2c 35 34 2c  36 32 2c 36 32 2c 36 32  |2,19,54,62,62,62|
00002400  2c 36 32 2c 31 36 2c 36  32 2c 31 39 2c 31 37 2c  |,62,16,62,19,17,|
00002410  31 36 2c 36 32 2c 31 39  2c 35 34 2c 31 36 2c 31  |16,62,19,54,16,1|
00002420  37 2c 31 39 2c 35 34 2c  31 37 2c 36 32 2c 31 39  |7,19,54,17,62,19|
00002430  2c 35 34 2c 31 36 2c 31  37 2c 31 37 2c 31 37 2c  |,54,16,17,17,17,|
00002440  36 32 2c 31 35 2c 32 38  0d 0f 50 04 0d 0f 5a 12  |62,15,28..P...Z.|
00002450  20 20 20 63 6f 64 65 25  21 34 30 3d 36 33 0d 0f  |   code%!40=63..|
00002460  64 05 e1 0d 0f 6e 04 0d  0f 78 0d dd 20 f2 47 72  |d....n...x.. .Gr|
00002470  6f 75 70 44 0d 0f 82 0d  20 20 20 f7 20 8d 74 74  |oupD....   . .tt|
00002480  4f 0d 0f 8c 11 20 20 20  e3 20 6c 3d 30 20 b8 20  |O....   . l=0 . |
00002490  36 33 0d 0f 96 0d 20 20  20 20 20 20 f3 20 64 0d  |63....      . d.|
000024a0  0f a0 18 20 20 20 20 20  20 62 61 64 64 69 65 5f  |...      baddie_|
000024b0  69 64 25 3f 6c 3d 64 0d  0f aa 0a 20 20 20 ed 20  |id%?l=d....   . |
000024c0  6c 0d 0f b4 c8 20 20 20  dc 20 31 37 2c 31 37 2c  |l....   . 17,17,|
000024d0  31 37 2c 31 35 2c 31 35  2c 32 38 2c 36 36 2c 34  |17,15,15,28,66,4|
000024e0  39 2c 35 30 2c 31 38 2c  32 30 2c 35 35 2c 35 36  |9,50,18,20,55,56|
000024f0  2c 35 33 2c 35 37 2c 35  39 2c 35 38 2c 35 32 2c  |,53,57,59,58,52,|
00002500  36 32 2c 36 32 2c 31 37  2c 31 37 2c 36 32 2c 31  |62,62,17,17,62,1|
00002510  39 2c 35 34 2c 34 38 2c  36 32 2c 31 39 2c 35 34  |9,54,48,62,19,54|
00002520  2c 31 36 2c 36 32 2c 31  39 2c 35 34 2c 31 36 2c  |,16,62,19,54,16,|
00002530  36 32 2c 31 39 2c 35 34  2c 36 32 2c 36 32 2c 36  |62,19,54,62,62,6|
00002540  32 2c 36 32 2c 31 36 2c  36 32 2c 31 39 2c 31 37  |2,62,16,62,19,17|
00002550  2c 31 36 2c 36 32 2c 31  39 2c 35 34 2c 31 36 2c  |,16,62,19,54,16,|
00002560  31 37 2c 31 39 2c 35 34  2c 31 37 2c 36 32 2c 31  |17,19,54,17,62,1|
00002570  39 2c 35 34 2c 31 36 2c  31 37 2c 31 37 2c 31 37  |9,54,16,17,17,17|
00002580  2c 36 32 2c 31 35 2c 32  38 0d 0f be 04 0d 0f c8  |,62,15,28.......|
00002590  12 20 20 20 63 6f 64 65  25 21 34 30 3d 36 33 0d  |.   code%!40=63.|
000025a0  0f d2 05 e1 0d 0f dc 04  0d 0f e6 10 dd 20 f2 53  |............. .S|
000025b0  65 74 55 70 45 6f 6c 62  0d 0f f0 10 20 20 20 63  |etUpEolb....   c|
000025c0  6f 64 65 25 21 30 3d 30  0d 0f fa 12 20 20 20 63  |ode%!0=0....   c|
000025d0  6f 64 65 25 21 32 34 3d  33 31 0d 0f fb 2a 20 20  |ode%!24=31...*  |
000025e0  20 e7 20 6c 65 76 65 6c  3d 31 30 30 20 63 6f 64  | . level=100 cod|
000025f0  65 25 21 32 30 3d 31 35  3a 63 6f 64 65 25 21 31  |e%!20=15:code%!1|
00002600  36 3d 31 35 0d 10 04 05  e1 0d 10 0e 04 0d 10 18  |6=15............|
00002610  0f dd 20 f2 50 6c 61 79  47 61 6d 65 0d 10 22 0a  |.. .PlayGame..".|
00002620  20 20 20 ea 20 85 0d 10  2c 12 20 20 20 ee 20 85  |   . ...,.   . .|
00002630  20 ea 20 f7 20 85 3a e1  0d 10 36 0f 20 20 20 2a  | . . .:...6.   *|
00002640  46 58 31 31 32 2c 32 0d  10 40 13 20 20 20 f2 43  |FX112,2..@.   .C|
00002650  6c 65 61 72 53 63 72 28  30 29 0d 10 4a 0f 20 20  |learScr(0)..J.  |
00002660  20 2a 46 58 31 31 32 2c  31 0d 10 54 14 20 20 20  | *FX112,1..T.   |
00002670  d6 20 73 63 72 6f 6c 6c  5f 63 6f 64 65 0d 10 5e  |. scroll_code..^|
00002680  11 20 20 20 f2 48 61 72  64 52 65 73 65 74 0d 10  |.   .HardReset..|
00002690  68 0f 20 20 20 2a 46 58  32 32 39 2c 31 0d 10 72  |h.   *FX229,1..r|
000026a0  1f 20 20 20 2a 43 48 41  4e 4e 45 4c 56 4f 49 43  |.   *CHANNELVOIC|
000026b0  45 20 31 20 4f 50 45 4e  46 49 52 45 0d 10 7c 11  |E 1 OPENFIRE..|.|
000026c0  20 20 20 f2 44 65 6c 61  79 28 32 35 29 0d 10 86  |   .Delay(25)...|
000026d0  17 20 20 20 d4 20 31 2c  2d 31 35 2c 26 31 34 30  |.   . 1,-15,&140|
000026e0  30 2c 31 36 0d 10 90 08  20 20 20 f5 0d 10 9a 12  |0,16....   .....|
000026f0  20 20 20 20 20 20 2a 46  58 32 32 39 2c 31 0d 10  |      *FX229,1..|
00002700  a4 1a 20 20 20 20 20 20  d6 20 6d 61 69 6e 5f 67  |..      . main_g|
00002710  61 6d 65 5f 63 6f 64 65  0d 10 ae 11 20 20 20 20  |ame_code....    |
00002720  20 20 2a 46 58 31 35 2c  30 0d 10 b8 12 20 20 20  |  *FX15,0....   |
00002730  20 20 20 2a 46 58 32 32  39 2c 30 0d 10 c2 25 20  |   *FX229,0...% |
00002740  20 20 20 20 20 e7 20 21  63 6f 64 65 25 3d 61 6c  |     . !code%=al|
00002750  6c 5f 62 61 64 64 69 65  73 5f 73 68 6f 74 20 8c  |l_baddies_shot .|
00002760  0d 10 cc 17 20 20 20 20  20 20 20 20 20 f2 53 65  |....         .Se|
00002770  74 55 70 45 6f 6c 62 0d  10 d6 15 20 20 20 20 20  |tUpEolb....     |
00002780  20 20 20 20 2a 46 58 32  32 39 2c 31 0d 10 e0 1d  |    *FX229,1....|
00002790  20 20 20 20 20 20 20 20  20 d6 20 65 6f 6c 62 5f  |         . eolb_|
000027a0  67 61 6d 65 5f 63 6f 64  65 0d 10 ea 14 20 20 20  |game_code....   |
000027b0  20 20 20 20 20 20 2a 46  58 31 35 2c 30 0d 10 f4  |      *FX15,0...|
000027c0  15 20 20 20 20 20 20 20  20 20 2a 46 58 32 32 39  |.         *FX229|
000027d0  2c 30 0d 10 fe 0b 20 20  20 20 20 20 cd 0d 11 08  |,0....      ....|
000027e0  11 20 20 20 20 20 20 2a  46 58 31 35 2c 30 0d 11  |.      *FX15,0..|
000027f0  12 39 20 20 20 20 20 20  e7 20 21 63 6f 64 65 25  |.9      . !code%|
00002800  3d 75 73 65 72 5f 70 72  65 73 73 65 64 5f 65 73  |=user_pressed_es|
00002810  63 61 70 65 20 8c 20 44  65 6c 69 62 65 72 61 74  |cape . Deliberat|
00002820  65 20 65 72 72 6f 72 0d  11 1c 28 20 20 20 20 20  |e error...(     |
00002830  20 e7 20 21 63 6f 64 65  25 3d 67 61 6d 65 5f 6f  | . !code%=game_o|
00002840  76 65 72 20 8c 20 f2 53  68 69 70 4c 6f 73 74 0d  |ver . .ShipLost.|
00002850  11 26 23 20 20 20 20 20  20 e7 20 21 63 6f 64 65  |.&#      . !code|
00002860  25 3d 6c 65 76 65 6c 5f  63 6f 6d 70 6c 65 74 65  |%=level_complete|
00002870  20 8c 0d 11 30 15 20 20  20 20 20 20 20 20 20 6c  | ...0.         l|
00002880  65 76 65 6c 2b 3d 31 0d  11 3a 1a 20 20 20 20 20  |evel+=1..:.     |
00002890  20 20 20 20 e7 20 6c 65  76 65 6c 3d 31 30 31 20  |    . level=101 |
000028a0  8c 0d 11 44 20 20 20 20  20 20 20 20 20 20 20 20  |...D            |
000028b0  20 21 63 6f 64 65 25 3d  67 61 6d 65 5f 6f 76 65  | !code%=game_ove|
000028c0  72 0d 11 4e 18 20 20 20  20 20 20 20 20 20 20 20  |r..N.           |
000028d0  20 f2 53 75 63 63 65 73  73 0d 11 58 0e 20 20 20  | .Success..X.   |
000028e0  20 20 20 20 20 20 cc 0d  11 62 1a 20 20 20 20 20  |      ...b.     |
000028f0  20 20 20 20 20 20 20 f2  53 6f 66 74 52 65 73 65  |       .SoftRese|
00002900  74 0d 11 6c 0e 20 20 20  20 20 20 20 20 20 cd 0d  |t..l.         ..|
00002910  11 76 0b 20 20 20 20 20  20 cd 0d 11 80 19 20 20  |.v.      .....  |
00002920  20 fd 20 21 63 6f 64 65  25 3d 67 61 6d 65 5f 6f  | . !code%=game_o|
00002930  76 65 72 0d 11 8a 0a 20  20 20 f7 20 85 0d 11 94  |ver....   . ....|
00002940  05 e1 0d 11 9e 04 0d 11  a8 0e dd 20 f2 53 75 63  |........... .Suc|
00002950  63 65 73 73 0d 11 b2 18  20 20 20 f2 4d 6f 76 65  |cess....   .Move|
00002960  43 61 6e 6e 6f 6e 28 31  32 31 36 29 0d 11 c6 1a  |Cannon(1216)....|
00002970  20 20 20 e3 20 4c 3d 31  32 31 36 20 b8 20 31 32  |   . L=1216 . 12|
00002980  38 30 20 88 20 34 0d 11  d0 13 20 20 20 20 20 20  |80 . 4....      |
00002990  f2 44 65 6c 61 79 28 35  29 0d 11 da 20 20 20 20  |.Delay(5)...    |
000029a0  20 20 20 f2 70 6c 6f 74  28 22 43 41 4e 4e 4f 4e  |   .plot("CANNON|
000029b0  31 22 2c 4c 2c 36 30 30  29 0d 11 e4 1a 20 20 20  |1",L,600)....   |
000029c0  20 20 20 d4 20 31 2c 2d  31 35 2c 4c 2d 31 32 37  |   . 1,-15,L-127|
000029d0  39 2c 33 0d 11 ee 09 20  20 20 ed 4c 0d 11 f8 10  |9,3....   .L....|
000029e0  20 20 20 e3 20 4c 3d 30  20 b8 20 34 0d 12 02 31  |   . L=0 . 4...1|
000029f0  20 20 20 20 20 20 c8 99  22 4f 53 5f 53 70 72 69  |      .."OS_Spri|
00002a00  74 65 4f 70 22 2c 33 30  33 2c 73 73 70 61 63 65  |teOp",303,sspace|
00002a10  25 2c 22 43 41 4e 4e 4f  4e 22 2b c3 4c 0d 12 0c  |%,"CANNON"+.L...|
00002a20  0a 20 20 20 ed 20 4c 0d  12 16 15 20 20 20 f2 4d  |.   . L....   .M|
00002a30  6f 76 65 43 61 6e 6e 6f  6e 28 30 29 0d 12 20 17  |oveCannon(0).. .|
00002a40  20 20 20 e3 20 4c 3d 30  20 b8 20 2d 36 34 20 88  |   . L=0 . -64 .|
00002a50  20 2d 34 0d 12 2a 13 20  20 20 20 20 20 f2 44 65  | -4..*.      .De|
00002a60  6c 61 79 28 35 29 0d 12  34 20 20 20 20 20 20 20  |lay(5)..4       |
00002a70  f2 70 6c 6f 74 28 22 43  41 4e 4e 4f 4e 31 22 2c  |.plot("CANNON1",|
00002a80  4c 2c 36 30 30 29 0d 12  3e 1a 20 20 20 20 20 20  |L,600)..>.      |
00002a90  d4 20 31 2c 2d 31 35 2c  4c 2d 31 32 37 39 2c 33  |. 1,-15,L-1279,3|
00002aa0  0d 12 48 09 20 20 20 ed  4c 0d 12 52 10 20 20 20  |..H.   .L..R.   |
00002ab0  e3 20 4c 3d 30 20 b8 20  34 0d 12 5c 31 20 20 20  |. L=0 . 4..\1   |
00002ac0  20 20 20 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |   .."OS_SpriteO|
00002ad0  70 22 2c 33 30 33 2c 73  73 70 61 63 65 25 2c 22  |p",303,sspace%,"|
00002ae0  43 41 4e 4e 4f 4e 22 2b  c3 4c 0d 12 66 0a 20 20  |CANNON"+.L..f.  |
00002af0  20 ed 20 4c 0d 12 70 10  20 20 20 f2 43 6f 6e 67  | . L..p.   .Cong|
00002b00  72 61 74 73 0d 12 7a 13  20 20 20 f2 52 6f 74 61  |rats..z.   .Rota|
00002b10  74 65 53 74 61 72 73 0d  12 84 05 e1 0d 12 8e 04  |teStars.........|
00002b20  0d 12 98 0f dd 20 f2 43  6f 6e 67 72 61 74 73 0d  |..... .Congrats.|
00002b30  12 a2 22 20 20 20 f2 43  65 6e 74 72 65 28 22 42  |.."   .Centre("B|
00002b40  72 69 6c 6c 69 61 6e 74  20 21 21 22 2c 39 2c 39  |rilliant !!",9,9|
00002b50  29 0d 12 ac 25 20 20 20  f2 43 65 6e 74 72 65 28  |)...%   .Centre(|
00002b60  22 57 68 61 74 20 61 20  68 65 72 6f 20 21 22 2c  |"What a hero !",|
00002b70  31 31 2c 31 30 29 0d 12  b6 3a 20 20 20 f2 43 65  |11,10)...:   .Ce|
00002b80  6e 74 72 65 28 22 59 6f  75 20 73 61 76 65 64 20  |ntre("You saved |
00002b90  74 68 65 20 64 61 79 20  28 61 6e 64 20 74 68 65  |the day (and the|
00002ba0  20 67 61 6c 61 78 79 29  22 2c 31 33 2c 31 30 29  | galaxy)",13,10)|
00002bb0  0d 12 c0 3e 20 20 20 f2  43 65 6e 74 72 65 28 22  |...>   .Centre("|
00002bc0  59 6f 75 20 68 61 76 65  20 62 65 65 6e 20 70 72  |You have been pr|
00002bd0  6f 6d 6f 74 65 64 20 74  6f 20 43 6f 6d 6d 61 6e  |omoted to Comman|
00002be0  64 65 72 20 69 6e 22 2c  31 35 2c 31 30 29 0d 12  |der in",15,10)..|
00002bf0  ca 38 20 20 20 f2 43 65  6e 74 72 65 28 22 43 68  |.8   .Centre("Ch|
00002c00  69 65 66 20 6f 66 20 61  6c 6c 20 74 68 65 20 47  |ief of all the G|
00002c10  61 6c 61 78 69 65 73 20  66 6f 72 63 65 73 22 2c  |alaxies forces",|
00002c20  31 37 2c 31 30 29 0d 12  d4 2f 20 20 20 f2 43 65  |17,10).../   .Ce|
00002c30  6e 74 72 65 28 22 49 27  6c 6c 20 73 6d 6f 6b 65  |ntre("I'll smoke|
00002c40  20 79 6f 75 20 61 20 6b  69 70 70 65 72 22 2c 31  | you a kipper",1|
00002c50  39 2c 31 30 29 0d 12 de  2a 20 20 20 f2 43 65 6e  |9,10)...*   .Cen|
00002c60  74 72 65 28 22 59 6f 75  27 6c 6c 20 62 65 20 62  |tre("You'll be b|
00002c70  61 63 6b 20 2e 2e 2e 22  2c 32 31 2c 31 30 29 0d  |ack ...",21,10).|
00002c80  12 e8 2b 20 20 20 f2 43  65 6e 74 72 65 28 22 2e  |..+   .Centre(".|
00002c90  2e 2e 20 66 6f 72 20 62  72 65 61 6b 66 61 73 74  |.. for breakfast|
00002ca0  20 21 22 2c 32 33 2c 31  30 29 0d 12 f2 05 e1 0d  | !",23,10)......|
00002cb0  12 fc 04 0d 13 06 14 dd  20 f2 4d 6f 76 65 43 61  |........ .MoveCa|
00002cc0  6e 6e 6f 6e 28 78 29 0d  13 10 20 20 20 20 2a 43  |nnon(x)...    *C|
00002cd0  48 41 4e 4e 45 4c 56 4f  49 43 45 20 31 20 45 58  |HANNELVOICE 1 EX|
00002ce0  50 4c 4f 53 49 4f 4e 0d  13 1a 11 20 20 20 e7 20  |PLOSION....   . |
00002cf0  78 3d 31 32 31 36 20 8c  0d 13 24 1b 20 20 20 20  |x=1216 ...$.    |
00002d00  20 20 e3 20 4c 3d 31 32  38 30 20 b8 20 78 20 88  |  . L=1280 . x .|
00002d10  20 2d 34 0d 13 2e 16 20  20 20 20 20 20 20 20 20  | -4....         |
00002d20  f2 44 65 6c 61 79 28 35  29 0d 13 38 23 20 20 20  |.Delay(5)..8#   |
00002d30  20 20 20 20 20 20 f2 70  6c 6f 74 28 22 43 41 4e  |      .plot("CAN|
00002d40  4e 4f 4e 30 22 2c 4c 2c  36 30 30 29 0d 13 42 1d  |NON0",L,600)..B.|
00002d50  20 20 20 20 20 20 20 20  20 d4 20 31 2c 2d 31 35  |         . 1,-15|
00002d60  2c 4c 2d 31 32 37 39 2c  33 0d 13 4c 0c 20 20 20  |,L-1279,3..L.   |
00002d70  20 20 20 ed 4c 0d 13 56  08 20 20 20 cc 0d 13 60  |   .L..V.   ...`|
00002d80  19 20 20 20 20 20 20 e3  20 4c 3d 2d 36 34 20 b8  |.      . L=-64 .|
00002d90  20 78 20 88 20 34 0d 13  6a 16 20 20 20 20 20 20  | x . 4..j.      |
00002da0  20 20 20 f2 44 65 6c 61  79 28 35 29 0d 13 74 23  |   .Delay(5)..t#|
00002db0  20 20 20 20 20 20 20 20  20 f2 70 6c 6f 74 28 22  |         .plot("|
00002dc0  43 41 4e 4e 4f 4e 30 22  2c 4c 2c 36 30 30 29 0d  |CANNON0",L,600).|
00002dd0  13 7e 1d 20 20 20 20 20  20 20 20 20 d4 20 31 2c  |.~.         . 1,|
00002de0  2d 31 35 2c 4c 2d 31 32  37 39 2c 33 0d 13 88 0c  |-15,L-1279,3....|
00002df0  20 20 20 20 20 20 ed 4c  0d 13 92 08 20 20 20 cd  |      .L....   .|
00002e00  0d 13 9c 11 20 20 20 f2  44 65 6c 61 79 28 34 30  |....   .Delay(40|
00002e10  29 0d 13 a6 0c 20 20 20  76 3d 2d 31 35 0d 13 b0  |)....   v=-15...|
00002e20  19 20 20 20 e3 20 4c 3d  36 30 30 20 b8 20 32 35  |.   . L=600 . 25|
00002e30  36 20 88 20 2d 34 0d 13  ba 0e 20 20 20 20 20 20  |6 . -4....      |
00002e40  76 2d 3d 31 0d 13 c4 16  20 20 20 20 20 20 e7 20  |v-=1....      . |
00002e50  76 3d 2d 31 20 76 3d 2d  31 35 0d 13 ce 13 20 20  |v=-1 v=-15....  |
00002e60  20 20 20 20 f2 44 65 6c  61 79 28 31 29 0d 13 d8  |    .Delay(1)...|
00002e70  1e 20 20 20 20 20 20 f2  70 6c 6f 74 28 22 43 41  |.      .plot("CA|
00002e80  4e 4e 4f 4e 30 22 2c 78  2c 4c 29 0d 13 e2 14 20  |NNON0",x,L).... |
00002e90  20 20 20 20 20 d4 20 31  2c 76 2c 31 30 2c 31 0d  |     . 1,v,10,1.|
00002ea0  13 ec 0a 20 20 20 ed 20  4c 0d 13 f6 10 20 20 20  |...   . L....   |
00002eb0  e3 20 4c 3d 31 20 b8 20  34 0d 14 00 14 20 20 20  |. L=1 . 4....   |
00002ec0  20 20 20 f2 44 65 6c 61  79 28 31 33 29 0d 14 0a  |   .Delay(13)...|
00002ed0  22 20 20 20 20 20 20 f2  70 6c 6f 74 28 22 43 41  |"      .plot("CA|
00002ee0  4e 4e 4f 4e 22 2b c3 4c  2c 78 2c 32 35 36 29 0d  |NNON"+.L,x,256).|
00002ef0  14 14 17 20 20 20 20 20  20 d4 20 31 2c 2d 31 35  |...      . 1,-15|
00002f00  2c 31 30 30 2c 31 0d 14  1e 0a 20 20 20 ed 20 4c  |,100,1....   . L|
00002f10  0d 14 28 11 20 20 20 f2  44 65 6c 61 79 28 32 35  |..(.   .Delay(25|
00002f20  29 0d 14 32 16 20 20 20  d4 20 31 2c 2d 31 35 2c  |)..2.   . 1,-15,|
00002f30  26 31 34 30 30 2c 37 0d  14 3c 1d 20 20 20 f2 70  |&1400,7..<.   .p|
00002f40  6c 6f 74 28 22 43 41 4e  4e 4f 4e 30 22 2c 78 2c  |lot("CANNON0",x,|
00002f50  32 35 36 29 0d 14 46 10  20 20 20 f2 44 65 6c 61  |256)..F.   .Dela|
00002f60  79 28 37 29 0d 14 50 16  20 20 20 d4 20 31 2c 2d  |y(7)..P.   . 1,-|
00002f70  31 35 2c 26 31 34 30 30  2c 37 0d 14 5a 11 20 20  |15,&1400,7..Z.  |
00002f80  20 e7 20 78 3d 31 32 31  36 20 8c 0d 14 64 27 20  | . x=1216 ...d' |
00002f90  20 20 20 20 20 f2 46 69  72 65 53 74 61 72 28 78  |     .FireStar(x|
00002fa0  2d 31 30 30 2c 78 2d 32  30 30 2c 2d 38 2c 32 38  |-100,x-200,-8,28|
00002fb0  36 29 0d 14 6e 08 20 20  20 cc 0d 14 78 26 20 20  |6)..n.   ...x&  |
00002fc0  20 20 20 20 f2 46 69 72  65 53 74 61 72 28 78 2b  |    .FireStar(x+|
00002fd0  31 30 30 2c 78 2b 32 30  30 2c 38 2c 32 38 36 29  |100,x+200,8,286)|
00002fe0  0d 14 82 08 20 20 20 cd  0d 14 8c 11 20 20 20 f2  |....   .....   .|
00002ff0  44 65 6c 61 79 28 34 30  29 0d 14 96 0c 20 20 20  |Delay(40)....   |
00003000  76 3d 2d 31 35 0d 14 a0  18 20 20 20 e3 20 4c 3d  |v=-15....   . L=|
00003010  32 35 36 20 b8 20 36 30  30 20 88 20 34 0d 14 aa  |256 . 600 . 4...|
00003020  0e 20 20 20 20 20 20 76  2d 3d 31 0d 14 b4 16 20  |.      v-=1.... |
00003030  20 20 20 20 20 e7 20 76  3d 2d 31 20 76 3d 2d 31  |     . v=-1 v=-1|
00003040  35 0d 14 be 13 20 20 20  20 20 20 f2 44 65 6c 61  |5....      .Dela|
00003050  79 28 31 29 0d 14 c8 1e  20 20 20 20 20 20 f2 70  |y(1)....      .p|
00003060  6c 6f 74 28 22 43 41 4e  4e 4f 4e 30 22 2c 78 2c  |lot("CANNON0",x,|
00003070  4c 29 0d 14 d2 14 20 20  20 20 20 20 d4 20 31 2c  |L)....      . 1,|
00003080  76 2c 31 30 2c 31 0d 14  dc 0a 20 20 20 ed 20 4c  |v,10,1....   . L|
00003090  0d 14 e6 10 20 20 20 e3  20 4c 3d 31 20 b8 20 34  |....   . L=1 . 4|
000030a0  0d 14 f0 14 20 20 20 20  20 20 f2 44 65 6c 61 79  |....      .Delay|
000030b0  28 31 33 29 0d 14 fa 22  20 20 20 20 20 20 f2 70  |(13)..."      .p|
000030c0  6c 6f 74 28 22 43 41 4e  4e 4f 4e 22 2b c3 4c 2c  |lot("CANNON"+.L,|
000030d0  78 2c 36 30 30 29 0d 15  04 17 20 20 20 20 20 20  |x,600)....      |
000030e0  d4 20 31 2c 2d 31 35 2c  31 30 30 2c 31 0d 15 0e  |. 1,-15,100,1...|
000030f0  0a 20 20 20 ed 20 4c 0d  15 18 11 20 20 20 f2 44  |.   . L....   .D|
00003100  65 6c 61 79 28 32 35 29  0d 15 22 16 20 20 20 d4  |elay(25)..".   .|
00003110  20 31 2c 2d 31 35 2c 26  31 34 30 30 2c 37 0d 15  | 1,-15,&1400,7..|
00003120  2c 1d 20 20 20 f2 70 6c  6f 74 28 22 43 41 4e 4e  |,.   .plot("CANN|
00003130  4f 4e 30 22 2c 78 2c 36  30 30 29 0d 15 36 10 20  |ON0",x,600)..6. |
00003140  20 20 f2 44 65 6c 61 79  28 37 29 0d 15 40 16 20  |  .Delay(7)..@. |
00003150  20 20 d4 20 31 2c 2d 31  35 2c 26 31 34 30 30 2c  |  . 1,-15,&1400,|
00003160  37 0d 15 4a 11 20 20 20  e7 20 78 3d 31 32 31 36  |7..J.   . x=1216|
00003170  20 8c 0d 15 54 27 20 20  20 20 20 20 f2 46 69 72  | ...T'      .Fir|
00003180  65 53 74 61 72 28 78 2d  31 30 30 2c 78 2d 32 30  |eStar(x-100,x-20|
00003190  30 2c 2d 38 2c 36 33 30  29 0d 15 5e 08 20 20 20  |0,-8,630)..^.   |
000031a0  cc 0d 15 68 26 20 20 20  20 20 20 f2 46 69 72 65  |...h&      .Fire|
000031b0  53 74 61 72 28 78 2b 31  30 30 2c 78 2b 32 30 30  |Star(x+100,x+200|
000031c0  2c 38 2c 36 33 30 29 0d  15 72 08 20 20 20 cd 0d  |,8,630)..r.   ..|
000031d0  15 7c 05 e1 0d 15 86 04  0d 15 90 19 dd 20 f2 46  |.|........... .F|
000031e0  69 72 65 53 74 61 72 28  73 2c 65 2c 73 74 2c 79  |ireStar(s,e,st,y|
000031f0  29 0d 15 9a 15 20 20 20  e3 20 4c 3d 73 20 b8 20  |)....   . L=s . |
00003200  65 20 88 20 73 74 0d 15  a4 0f 20 20 20 20 20 20  |e . st....      |
00003210  2a 46 58 31 39 0d 15 ae  1c 20 20 20 20 20 20 f2  |*FX19....      .|
00003220  70 6c 6f 74 28 22 53 54  41 52 34 22 2c 4c 2c 79  |plot("STAR4",L,y|
00003230  29 0d 15 b8 0a 20 20 20  ed 20 4c 0d 15 c2 05 e1  |)....   . L.....|
00003240  0d 15 cc 04 0d 15 d6 0f  dd 20 f2 53 68 69 70 4c  |......... .ShipL|
00003250  6f 73 74 0d 15 e0 0f 20  20 20 2a 46 58 31 31 32  |ost....   *FX112|
00003260  2c 32 0d 15 ea 28 20 20  20 f2 43 65 6e 74 72 65  |,2...(   .Centre|
00003270  28 22 53 75 62 20 53 70  61 63 65 20 4d 65 73 73  |("Sub Space Mess|
00003280  61 67 65 22 2c 38 2c 31  35 29 0d 15 f4 28 20 20  |age",8,15)...(  |
00003290  20 f2 43 65 6e 74 72 65  28 22 50 69 6c 6f 74 20  | .Centre("Pilot |
000032a0  53 61 6d 20 44 65 63 6b  65 72 22 2c 31 34 2c 31  |Sam Decker",14,1|
000032b0  34 29 0d 15 fe 2d 20 20  20 f2 43 65 6e 74 72 65  |4)...-   .Centre|
000032c0  28 22 48 61 73 20 75 6e  66 6f 72 74 75 6e 61 74  |("Has unfortunat|
000032d0  6c 79 20 62 65 65 6e 22  2c 31 36 2c 31 34 29 0d  |ly been",16,14).|
000032e0  16 08 29 20 20 20 f2 43  65 6e 74 72 65 28 22 6b  |..)   .Centre("k|
000032f0  69 6c 6c 65 64 20 69 6e  20 61 63 74 69 6f 6e 2e  |illed in action.|
00003300  22 2c 31 38 2c 31 34 29  0d 16 12 32 20 20 20 f2  |",18,14)...2   .|
00003310  43 65 6e 74 72 65 28 22  54 68 65 20 74 61 73 6b  |Centre("The task|
00003320  20 6f 66 20 74 68 65 73  65 20 6d 69 73 73 69 6f  | of these missio|
00003330  6e 73 22 2c 32 30 2c 31  34 29 0d 16 1c 3b 20 20  |ns",20,14)...;  |
00003340  20 f2 43 65 6e 74 72 65  28 22 77 69 6c 6c 20 6e  | .Centre("will n|
00003350  6f 77 20 66 61 6c 6c 20  74 6f 20 6f 74 68 65 72  |ow fall to other|
00003360  20 62 72 61 76 65 20 70  69 6c 6f 74 73 22 2c 32  | brave pilots",2|
00003370  32 2c 31 34 29 0d 16 26  0f 20 20 20 2a 46 58 31  |2,14)..&.   *FX1|
00003380  31 32 2c 31 0d 16 30 14  20 20 20 d6 20 73 63 72  |12,1..0.   . scr|
00003390  6f 6c 6c 5f 63 6f 64 65  0d 16 3a 12 20 20 20 f2  |oll_code..:.   .|
000033a0  44 65 6c 61 79 28 33 30  30 29 0d 16 44 05 e1 0d  |Delay(300)..D...|
000033b0  16 4e 04 0d 16 58 19 dd  20 a4 45 6e 6f 75 67 68  |.N...X.. .Enough|
000033c0  53 63 72 65 65 6e 4d 65  6d 6f 72 79 0d 16 62 26  |ScreenMemory..b&|
000033d0  20 20 20 c8 99 20 22 4f  53 5f 52 65 61 64 44 79  |   .. "OS_ReadDy|
000033e0  6e 61 6d 69 63 41 72 65  61 22 2c 32 20 b8 20 2c  |namicArea",2 . ,|
000033f0  4d 25 0d 16 6c 1a 20 20  20 e7 20 4d 25 3c 31 36  |M%..l.   . M%<16|
00003400  33 38 34 30 20 3d a3 20  8b 20 3d b9 0d 16 76 04  |3840 =. . =...v.|
00003410  0d 16 80 15 dd 20 f2 50  72 69 6e 74 4d 6f 75 6e  |..... .PrintMoun|
00003420  74 61 69 6e 73 0d 16 8a  0d 20 20 20 f7 20 8d 54  |tains....   . .T|
00003430  74 52 0d 16 94 0f 20 20  20 2a 46 58 31 31 32 2c  |tR....   *FX112,|
00003440  33 0d 16 9e 19 20 20 20  e3 20 79 3d 37 36 38 20  |3....   . y=768 |
00003450  b8 20 30 20 88 20 2d 32  35 36 0d 16 a8 10 20 20  |. 0 . -256....  |
00003460  20 20 20 20 f3 20 78 2c  78 31 0d 16 b2 20 20 20  |    . x,x1...   |
00003470  20 20 20 20 f2 70 6c 6f  74 28 22 4d 4f 55 4e 54  |    .plot("MOUNT|
00003480  41 49 4e 53 22 2c 78 2c  79 29 0d 16 bc 21 20 20  |AINS",x,y)...!  |
00003490  20 20 20 20 f2 70 6c 6f  74 28 22 4d 4f 55 4e 54  |    .plot("MOUNT|
000034a0  41 49 4e 53 22 2c 78 31  2c 79 29 0d 16 c6 08 20  |AINS",x1,y).... |
000034b0  20 20 ed 0d 16 d0 25 20  20 20 dc 20 30 2c 30 2c  |  ....%   . 0,0,|
000034c0  2d 34 2c 31 32 37 36 2c  2d 38 2c 31 32 37 32 2c  |-4,1276,-8,1272,|
000034d0  2d 31 32 2c 31 32 36 38  0d 16 da 2c 20 20 20 dc  |-12,1268...,   .|
000034e0  20 2d 31 36 2c 31 32 36  34 2c 2d 32 30 2c 31 32  | -16,1264,-20,12|
000034f0  36 30 2c 2d 32 34 2c 31  32 35 36 2c 2d 32 38 2c  |60,-24,1256,-28,|
00003500  31 32 35 32 0d 16 e4 0f  20 20 20 2a 46 58 31 31  |1252....   *FX11|
00003510  32 2c 34 0d 16 ee 19 20  20 20 e3 20 79 3d 37 36  |2,4....   . y=76|
00003520  38 20 b8 20 30 20 88 20  2d 32 35 36 0d 16 f8 10  |8 . 0 . -256....|
00003530  20 20 20 20 20 20 f3 20  78 2c 78 31 0d 17 02 20  |      . x,x1... |
00003540  20 20 20 20 20 20 f2 70  6c 6f 74 28 22 4d 4f 55  |      .plot("MOU|
00003550  4e 54 41 49 4e 53 22 2c  78 2c 79 29 0d 17 0c 21  |NTAINS",x,y)...!|
00003560  20 20 20 20 20 20 f2 70  6c 6f 74 28 22 4d 4f 55  |      .plot("MOU|
00003570  4e 54 41 49 4e 53 22 2c  78 31 2c 79 29 0d 17 16  |NTAINS",x1,y)...|
00003580  08 20 20 20 ed 0d 17 20  0f 20 20 20 2a 46 58 31  |.   ... .   *FX1|
00003590  31 32 2c 31 0d 17 2a 05  e1 0d 17 34 04 0d 17 3e  |12,1..*....4...>|
000035a0  16 dd 20 f2 53 74 61 72  74 55 70 4d 65 73 73 61  |.. .StartUpMessa|
000035b0  67 65 73 0d 17 de 0f 20  20 20 2a 46 58 31 31 32  |ges....   *FX112|
000035c0  2c 32 0d 17 e8 13 20 20  20 f2 43 6c 65 61 72 53  |,2....   .ClearS|
000035d0  63 72 28 30 29 0d 17 f2  1c 20 20 20 f2 70 6c 6f  |cr(0)....   .plo|
000035e0  74 28 22 4c 4f 47 4f 22  2c 34 35 30 2c 34 30 30  |t("LOGO",450,400|
000035f0  29 0d 17 fc 0f 20 20 20  2a 46 58 31 31 32 2c 31  |)....   *FX112,1|
00003600  0d 18 06 14 20 20 20 d6  20 73 63 72 6f 6c 6c 5f  |....   . scroll_|
00003610  63 6f 64 65 0d 18 10 19  20 20 20 41 24 3d bf 28  |code....   A$=.(|
00003620  30 29 3a e7 20 41 24 3c  3e 22 22 20 e1 0d 18 1a  |0):. A$<>"" ....|
00003630  1c 20 20 20 2a 43 48 41  4e 4e 45 4c 56 4f 49 43  |.   *CHANNELVOIC|
00003640  45 20 31 20 4c 41 53 45  52 0d 18 24 18 20 20 20  |E 1 LASER..$.   |
00003650  e3 20 6c 3d 2d 35 30 20  b8 20 32 36 30 20 88 20  |. l=-50 . 260 . |
00003660  34 0d 18 2e 0f 20 20 20  20 20 20 2a 46 58 31 39  |4....      *FX19|
00003670  0d 18 38 1e 20 20 20 20  20 20 f2 70 6c 6f 74 28  |..8.      .plot(|
00003680  22 53 54 45 56 45 22 2c  32 38 34 2c 6c 29 0d 18  |"STEVE",284,l)..|
00003690  42 2c 20 20 20 20 20 20  e7 20 28 28 6c 2b 34 35  |B,      . ((l+45|
000036a0  29 20 80 20 33 31 29 3d  33 31 20 d4 20 31 2c 2d  |) . 31)=31 . 1,-|
000036b0  31 35 2c 26 31 34 30 30  2c 34 0d 18 4c 20 20 20  |15,&1400,4..L   |
000036c0  20 20 20 20 41 24 3d bf  28 30 29 3a e7 20 41 24  |    A$=.(0):. A$|
000036d0  3c 3e 22 22 20 6c 3d 32  36 31 0d 18 56 0a 20 20  |<>"" l=261..V.  |
000036e0  20 ed 20 6c 0d 18 60 11  20 20 20 e7 20 41 24 3c  | . l..`.   . A$<|
000036f0  3e 22 22 20 e1 0d 18 6a  20 20 20 20 2a 43 48 41  |>"" ...j    *CHA|
00003700  4e 4e 45 4c 56 4f 49 43  45 20 32 20 45 58 50 4c  |NNELVOICE 2 EXPL|
00003710  4f 53 49 4f 4e 0d 18 74  17 20 20 20 d4 20 32 2c  |OSION..t.   . 2,|
00003720  2d 31 35 2c 26 31 34 30  30 2c 32 36 0d 18 7e 18  |-15,&1400,26..~.|
00003730  20 20 20 e3 20 6c 3d 2d  35 30 20 b8 20 31 36 30  |   . l=-50 . 160|
00003740  20 88 20 34 0d 18 88 0f  20 20 20 20 20 20 2a 46  | . 4....      *F|
00003750  58 31 39 0d 18 92 1c 20  20 20 20 20 20 f2 70 6c  |X19....      .pl|
00003760  6f 74 28 22 54 45 5a 22  2c 32 38 34 2c 6c 29 0d  |ot("TEZ",284,l).|
00003770  18 9c 2d 20 20 20 20 20  20 20 e7 20 28 28 6c 2b  |..-       . ((l+|
00003780  34 35 29 20 80 20 33 31  29 3d 33 31 20 d4 20 31  |45) . 31)=31 . 1|
00003790  2c 2d 31 35 2c 26 31 34  30 30 2c 34 0d 18 a6 1d  |,-15,&1400,4....|
000037a0  20 20 20 41 24 3d bf 28  30 29 3a e7 20 41 24 3c  |   A$=.(0):. A$<|
000037b0  3e 22 22 20 6c 3d 31 36  31 0d 18 b0 0a 20 20 20  |>"" l=161....   |
000037c0  ed 20 6c 0d 18 ba 11 20  20 20 e7 20 41 24 3c 3e  |. l....   . A$<>|
000037d0  22 22 20 e1 0d 18 c4 20  20 20 20 2a 43 48 41 4e  |"" ....    *CHAN|
000037e0  4e 45 4c 56 4f 49 43 45  20 32 20 45 58 50 4c 4f  |NELVOICE 2 EXPLO|
000037f0  53 49 4f 4e 0d 18 ce 17  20 20 20 d4 20 32 2c 2d  |SION....   . 2,-|
00003800  31 35 2c 26 31 34 30 30  2c 32 36 0d 18 d8 11 20  |15,&1400,26.... |
00003810  20 20 f2 44 65 6c 61 79  28 33 30 29 0d 18 e2 2f  |  .Delay(30).../|
00003820  20 20 20 f2 43 65 6e 74  72 65 28 22 50 72 65 73  |   .Centre("Pres|
00003830  73 20 73 70 61 63 65 20  74 6f 20 63 6f 6e 74 69  |s space to conti|
00003840  6e 75 65 22 2c 32 38 2c  31 35 29 0d 18 ec 0e 20  |nue",28,15).... |
00003850  20 20 2a 46 58 31 35 2c  30 0d 18 f6 0a 20 20 20  |  *FX15,0....   |
00003860  41 3d a5 0d 19 00 05 e1  0d 19 0a 04 0d 19 14 14  |A=..............|
00003870  dd 20 f2 44 65 6c 61 79  28 6c 65 6e 67 74 68 29  |. .Delay(length)|
00003880  0d 19 1e 0a 20 20 20 ea  20 6c 0d 19 28 15 20 20  |....   . l..(.  |
00003890  20 e3 20 6c 3d 31 20 b8  20 6c 65 6e 67 74 68 0d  | . l=1 . length.|
000038a0  19 32 0f 20 20 20 20 20  20 2a 46 58 31 39 0d 19  |.2.      *FX19..|
000038b0  3c 0a 20 20 20 ed 20 6c  0d 19 46 05 e1 0d 19 50  |<.   . l..F....P|
000038c0  04 0d 19 5a 0d dd 20 f2  57 61 69 74 65 72 0d 19  |...Z.. .Waiter..|
000038d0  64 07 20 20 87 0d 19 6e  09 20 20 ea 20 85 0d 19  |d.  ...n.  . ...|
000038e0  78 16 20 20 ee 20 85 20  ea 20 f7 20 85 3a f2 46  |x.  . . . . .:.F|
000038f0  69 6e 3a e1 0d 19 82 0d  20 20 2a 46 58 31 35 2c  |in:.....  *FX15,|
00003900  30 0d 19 8c 0e 20 20 2a  46 58 32 32 39 2c 30 0d  |0....  *FX229,0.|
00003910  19 96 07 20 20 f5 0d 19  a0 12 20 20 20 20 20 e3  |...  .....     .|
00003920  20 41 3d 31 20 b8 20 36  0d 19 aa 5c 20 20 20 20  | A=1 . 6...\    |
00003930  20 20 20 20 ee 20 41 20  f2 41 6b 6e 6f 77 6c 65  |    . A .Aknowle|
00003940  64 67 65 6d 65 6e 74 73  2c f2 46 6c 69 67 68 74  |dgements,.Flight|
00003950  4b 65 79 73 2c f2 43 6f  6e 74 72 6f 6c 4b 65 79  |Keys,.ControlKey|
00003960  73 2c f2 41 6c 69 65 6e  49 64 73 2c f2 50 6f 69  |s,.AlienIds,.Poi|
00003970  6e 74 73 2c f2 44 69 73  70 6c 61 79 48 69 53 63  |nts,.DisplayHiSc|
00003980  6f 72 65 73 0d 19 b4 10  20 20 20 20 20 20 20 20  |ores....        |
00003990  f2 6b 65 79 0d 19 be 0a  20 20 20 20 20 ed 0d 19  |.key....     ...|
000039a0  c8 09 20 20 fd 20 a3 0d  19 d2 05 e1 0d 19 dc 04  |..  . ..........|
000039b0  0d 19 e6 13 dd 20 f2 49  6e 73 74 72 75 63 74 69  |..... .Instructi|
000039c0  6f 6e 73 0d 19 f0 08 20  20 20 87 0d 19 fa 15 20  |ons....   ..... |
000039d0  20 20 f2 49 6e 73 74 72  75 63 74 69 6f 6e 73 31  |  .Instructions1|
000039e0  0d 1a 04 12 20 20 20 f2  44 65 6c 61 79 28 33 35  |....   .Delay(35|
000039f0  30 29 0d 1a 0e 15 20 20  20 f2 49 6e 73 74 72 75  |0)....   .Instru|
00003a00  63 74 69 6f 6e 73 32 0d  1a 18 12 20 20 20 f2 44  |ctions2....   .D|
00003a10  65 6c 61 79 28 33 35 30  29 0d 1a 22 15 20 20 20  |elay(350)..".   |
00003a20  f2 49 6e 73 74 72 75 63  74 69 6f 6e 73 33 0d 1a  |.Instructions3..|
00003a30  2c 12 20 20 20 f2 44 65  6c 61 79 28 34 30 30 29  |,.   .Delay(400)|
00003a40  0d 1a 36 15 20 20 20 f2  49 6e 73 74 72 75 63 74  |..6.   .Instruct|
00003a50  69 6f 6e 73 34 0d 1a 40  12 20 20 20 f2 44 65 6c  |ions4..@.   .Del|
00003a60  61 79 28 33 35 30 29 0d  1a 4a 15 20 20 20 f2 49  |ay(350)..J.   .I|
00003a70  6e 73 74 72 75 63 74 69  6f 6e 73 35 0d 1a 54 12  |nstructions5..T.|
00003a80  20 20 20 f2 44 65 6c 61  79 28 33 35 30 29 0d 1a  |   .Delay(350)..|
00003a90  5e 15 20 20 20 f2 49 6e  73 74 72 75 63 74 69 6f  |^.   .Instructio|
00003aa0  6e 73 36 0d 1a 68 12 20  20 20 f2 44 65 6c 61 79  |ns6..h.   .Delay|
00003ab0  28 34 37 35 29 0d 1a 72  15 20 20 20 f2 49 6e 73  |(475)..r.   .Ins|
00003ac0  74 72 75 63 74 69 6f 6e  73 37 0d 1a 7c 12 20 20  |tructions7..|.  |
00003ad0  20 f2 44 65 6c 61 79 28  34 37 35 29 0d 1a 86 05  | .Delay(475)....|
00003ae0  e1 0d 1a 90 04 0d 1a 9a  16 dd 20 f2 41 6b 6e 6f  |.......... .Akno|
00003af0  77 6c 65 64 67 65 6d 65  6e 74 73 0d 1a a4 0f 20  |wledgements.... |
00003b00  20 20 2a 46 58 31 31 32  2c 32 0d 1a ae 13 20 20  |  *FX112,2....  |
00003b10  20 f2 43 6c 65 61 72 53  63 72 28 30 29 0d 1a c2  | .ClearScr(0)...|
00003b20  1c 20 20 20 f2 70 6c 6f  74 28 22 4c 4f 47 4f 22  |.   .plot("LOGO"|
00003b30  2c 34 33 30 2c 33 35 30  29 0d 1a d6 0a 20 20 20  |,430,350)....   |
00003b40  fb 20 38 0d 1a e0 17 20  20 20 f1 20 8a 30 2c 32  |. 8....   . .0,2|
00003b50  32 29 22 43 6f 64 65 20  3a 22 0d 1a ea 1e 20 20  |2)"Code :"....  |
00003b60  20 f1 20 8a 30 2c 32 33  29 22 53 74 65 76 65 20  | . .0,23)"Steve |
00003b70  4f 27 4c 65 61 72 79 22  0d 1a f4 1a 20 20 20 f1  |O'Leary"....   .|
00003b80  20 8a 33 32 2c 32 32 29  22 47 72 61 66 69 78 20  | .32,22)"Grafix |
00003b90  3a 22 0d 1a fe 1d 20 20  20 f1 20 8a 32 39 2c 32  |:"....   . .29,2|
00003ba0  33 29 22 54 65 7a 20 4f  27 4c 65 61 72 79 22 0d  |3)"Tez O'Leary".|
00003bb0  1b 08 0f 20 20 20 2a 46  58 31 31 32 2c 31 0d 1b  |...   *FX112,1..|
00003bc0  12 14 20 20 20 d6 20 73  63 72 6f 6c 6c 5f 63 6f  |..   . scroll_co|
00003bd0  64 65 0d 1b 1c 05 e1 0d  1b 26 04 0d 1b 30 11 dd  |de.......&...0..|
00003be0  20 f2 46 6c 69 67 68 74  4b 65 79 73 0d 1b 3a 0f  | .FlightKeys..:.|
00003bf0  20 20 20 2a 46 58 31 31  32 2c 32 0d 1b 44 13 20  |   *FX112,2..D. |
00003c00  20 20 f2 43 6c 65 61 72  53 63 72 28 30 29 0d 1b  |  .ClearScr(0)..|
00003c10  4e 32 20 20 20 f2 43 65  6e 74 72 65 28 22 41 63  |N2   .Centre("Ac|
00003c20  65 20 43 72 75 73 61 64  65 72 20 46 6c 69 67 68  |e Crusader Fligh|
00003c30  74 20 43 6f 6e 74 72 6f  6c 73 22 2c 38 2c 38 29  |t Controls",8,8)|
00003c40  0d 1b 58 39 20 20 20 f2  43 65 6e 74 72 65 28 22  |..X9   .Centre("|
00003c50  5a 2f 58 20 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |Z/X ............|
00003c60  2e 2e 2e 2e 2e 2e 20 4c  65 66 74 2f 52 69 67 68  |...... Left/Righ|
00003c70  74 22 2c 31 30 2c 31 31  29 0d 1b 62 39 20 20 20  |t",10,11)..b9   |
00003c80  f2 43 65 6e 74 72 65 28  22 27 20 2e 2e 2e 2e 2e  |.Centre("' .....|
00003c90  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00003ca0  2e 2e 2e 2e 2e 2e 2e 20  55 70 22 2c 31 32 2c 31  |....... Up",12,1|
00003cb0  31 29 0d 1b 6c 39 20 20  20 f2 43 65 6e 74 72 65  |1)..l9   .Centre|
00003cc0  28 22 2f 20 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |("/ ............|
00003cd0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 20 44  |.............. D|
00003ce0  6f 77 6e 22 2c 31 34 2c  31 31 29 0d 1b 76 39 20  |own",14,11)..v9 |
00003cf0  20 20 f2 43 65 6e 74 72  65 28 22 4c 65 66 74 20  |  .Centre("Left |
00003d00  41 6c 74 20 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |Alt ............|
00003d10  20 54 68 72 75 73 74 20  4c 65 66 74 22 2c 31 36  | Thrust Left",16|
00003d20  2c 31 31 29 0d 1b 80 39  20 20 20 f2 43 65 6e 74  |,11)...9   .Cent|
00003d30  72 65 28 22 52 69 67 68  74 20 41 6c 74 20 2e 2e  |re("Right Alt ..|
00003d40  2e 2e 2e 2e 2e 2e 2e 2e  20 54 68 72 75 73 74 20  |........ Thrust |
00003d50  52 69 67 68 74 22 2c 31  38 2c 31 31 29 0d 1b 8a  |Right",18,11)...|
00003d60  39 20 20 20 f2 43 65 6e  74 72 65 28 22 52 65 74  |9   .Centre("Ret|
00003d70  75 72 6e 20 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |urn ............|
00003d80  2e 2e 2e 2e 2e 2e 2e 2e  2e 20 46 69 72 65 22 2c  |......... Fire",|
00003d90  32 30 2c 31 31 29 0d 1b  94 39 20 20 20 f2 43 65  |20,11)...9   .Ce|
00003da0  6e 74 72 65 28 22 53 70  61 63 65 20 2e 2e 2e 2e  |ntre("Space ....|
00003db0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 20 53 6d 61  |............ Sma|
00003dc0  72 74 20 42 6f 6d 62 22  2c 32 32 2c 31 31 29 0d  |rt Bomb",22,11).|
00003dd0  1b 9e 0f 20 20 20 2a 46  58 31 31 32 2c 31 0d 1b  |...   *FX112,1..|
00003de0  a8 14 20 20 20 d6 20 73  63 72 6f 6c 6c 5f 63 6f  |..   . scroll_co|
00003df0  64 65 0d 1b b2 05 e1 0d  1b bc 04 0d 1b c6 12 dd  |de..............|
00003e00  20 f2 43 6f 6e 74 72 6f  6c 4b 65 79 73 0d 1b d0  | .ControlKeys...|
00003e10  0f 20 20 20 2a 46 58 31  31 32 2c 32 0d 1b da 13  |.   *FX112,2....|
00003e20  20 20 20 f2 43 6c 65 61  72 53 63 72 28 30 29 0d  |   .ClearScr(0).|
00003e30  1b e4 30 20 20 20 f2 43  65 6e 74 72 65 28 22 41  |..0   .Centre("A|
00003e40  63 65 20 43 72 75 73 61  64 65 72 20 47 61 6d 65  |ce Crusader Game|
00003e50  20 43 6f 6e 74 72 6f 6c  73 22 2c 38 2c 38 29 0d  | Controls",8,8).|
00003e60  1b ee 3f 20 20 20 f2 43  65 6e 74 72 65 28 22 53  |..?   .Centre("S|
00003e70  70 61 63 65 20 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |pace ...........|
00003e80  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 20 53 74 61 72  |........... Star|
00003e90  74 20 47 61 6d 65 22 2c  31 30 2c 31 31 29 0d 1b  |t Game",10,11)..|
00003ea0  f8 3f 20 20 20 f2 43 65  6e 74 72 65 28 22 49 20  |.?   .Centre("I |
00003eb0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00003ec0  2e 2e 2e 2e 2e 2e 2e 2e  20 49 6e 73 74 72 75 63  |........ Instruc|
00003ed0  74 69 6f 6e 73 22 2c 31  32 2c 31 31 29 0d 1c 02  |tions",12,11)...|
00003ee0  3f 20 20 20 f2 43 65 6e  74 72 65 28 22 50 20 2e  |?   .Centre("P .|
00003ef0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 20 45 6e 74 65 72  |.......... Enter|
00003f00  20 50 61 73 73 77 6f 72  64 2f 50 61 75 73 65 20  | Password/Pause |
00003f10  47 61 6d 65 22 2c 31 34  2c 31 31 29 0d 1c 0c 3f  |Game",14,11)...?|
00003f20  20 20 20 f2 43 65 6e 74  72 65 28 22 51 20 2b 20  |   .Centre("Q + |
00003f30  46 31 32 20 2e 2e 2e 2e  2e 2e 2e 20 51 75 69 74  |F12 ....... Quit|
00003f40  20 47 61 6d 65 20 57 68  69 6c 65 20 50 6c 61 79  | Game While Play|
00003f50  69 6e 67 22 2c 31 36 2c  31 31 29 0d 1c 16 3f 20  |ing",16,11)...? |
00003f60  20 20 f2 43 65 6e 74 72  65 28 22 45 73 63 20 2e  |  .Centre("Esc .|
00003f70  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00003f80  2e 2e 2e 2e 2e 2e 2e 2e  20 51 75 69 74 20 47 61  |........ Quit Ga|
00003f90  6d 65 22 2c 31 38 2c 31  31 29 0d 1c 20 3f 20 20  |me",18,11).. ?  |
00003fa0  20 f2 43 65 6e 74 72 65  28 22 52 65 74 75 72 6e  | .Centre("Return|
00003fb0  20 2e 2e 2e 2e 20 41 64  76 61 6e 63 65 20 54 6f  | .... Advance To|
00003fc0  20 6e 65 78 74 20 49 6e  66 6f 20 53 63 72 65 65  | next Info Scree|
00003fd0  6e 22 2c 32 30 2c 31 31  29 0d 1c 2a 0f 20 20 20  |n",20,11)..*.   |
00003fe0  2a 46 58 31 31 32 2c 31  0d 1c 34 14 20 20 20 d6  |*FX112,1..4.   .|
00003ff0  20 73 63 72 6f 6c 6c 5f  63 6f 64 65 0d 1c 3e 05  | scroll_code..>.|
00004000  e1 0d 1c 48 04 0d 1c 52  14 dd 20 f2 49 6e 73 74  |...H...R.. .Inst|
00004010  72 75 63 74 69 6f 6e 73  31 0d 1c 5c 0f 20 20 20  |ructions1..\.   |
00004020  2a 46 58 31 31 32 2c 32  0d 1c 66 13 20 20 20 f2  |*FX112,2..f.   .|
00004030  43 6c 65 61 72 53 63 72  28 30 29 0d 1c 70 2c 20  |ClearScr(0)..p, |
00004040  20 20 f2 43 65 6e 74 72  65 28 22 4d 69 73 73 69  |  .Centre("Missi|
00004050  6f 6e 20 42 72 69 65 66  20 2d 20 50 61 67 65 20  |on Brief - Page |
00004060  31 22 2c 38 2c 39 29 0d  1c 7a 40 20 20 20 f2 43  |1",8,9)..z@   .C|
00004070  65 6e 74 72 65 28 22 41  6c 69 65 6e 20 46 6f 72  |entre("Alien For|
00004080  63 65 73 20 68 61 76 65  20 69 6e 76 61 64 65 64  |ces have invaded|
00004090  20 61 20 73 6d 61 6c 6c  20 70 6f 63 6b 65 74 22  | a small pocket"|
000040a0  2c 31 30 2c 31 32 29 0d  1c 84 26 20 20 20 f2 43  |,10,12)...&   .C|
000040b0  65 6e 74 72 65 28 22 6f  66 20 74 68 65 20 67 61  |entre("of the ga|
000040c0  6c 61 78 79 2e 22 2c 31  32 2c 31 32 29 0d 1c 8e  |laxy.",12,12)...|
000040d0  3a 20 20 20 f2 43 65 6e  74 72 65 28 22 59 6f 75  |:   .Centre("You|
000040e0  72 20 6d 69 73 73 69 6f  6e 2c 20 73 68 6f 75 6c  |r mission, shoul|
000040f0  64 20 79 6f 75 20 64 65  63 69 64 65 20 74 6f 22  |d you decide to"|
00004100  2c 31 34 2c 31 32 29 0d  1c 98 40 20 20 20 f2 43  |,14,12)...@   .C|
00004110  65 6e 74 72 65 28 22 61  63 63 65 70 74 20 69 74  |entre("accept it|
00004120  2c 20 69 73 20 74 6f 20  70 72 6f 74 65 63 74 20  |, is to protect |
00004130  74 68 65 20 64 65 66 65  6e 63 65 6c 65 73 73 22  |the defenceless"|
00004140  2c 31 36 2c 31 32 29 0d  1c a2 3b 20 20 20 f2 43  |,16,12)...;   .C|
00004150  65 6e 74 72 65 28 22 70  6c 61 6e 65 74 73 20 6f  |entre("planets o|
00004160  66 20 74 68 65 20 6f 75  74 65 72 20 72 65 61 63  |f the outer reac|
00004170  68 65 73 20 6f 66 20 74  68 65 22 2c 31 38 2c 31  |hes of the",18,1|
00004180  32 29 0d 1c ac 1f 20 20  20 f2 43 65 6e 74 72 65  |2)....   .Centre|
00004190  28 22 67 61 6c 61 78 79  2e 22 2c 32 30 2c 31 32  |("galaxy.",20,12|
000041a0  29 0d 1c b6 0f 20 20 20  2a 46 58 31 31 32 2c 31  |)....   *FX112,1|
000041b0  0d 1c c0 14 20 20 20 d6  20 73 63 72 6f 6c 6c 5f  |....   . scroll_|
000041c0  63 6f 64 65 0d 1c ca 05  e1 0d 1c d4 04 0d 1c de  |code............|
000041d0  14 dd 20 f2 49 6e 73 74  72 75 63 74 69 6f 6e 73  |.. .Instructions|
000041e0  32 0d 1c e8 0f 20 20 20  2a 46 58 31 31 32 2c 32  |2....   *FX112,2|
000041f0  0d 1c f2 13 20 20 20 f2  43 6c 65 61 72 53 63 72  |....   .ClearScr|
00004200  28 30 29 0d 1c fc 2c 20  20 20 f2 43 65 6e 74 72  |(0)...,   .Centr|
00004210  65 28 22 4d 69 73 73 69  6f 6e 20 42 72 69 65 66  |e("Mission Brief|
00004220  20 2d 20 50 61 67 65 20  32 22 2c 38 2c 39 29 0d  | - Page 2",8,9).|
00004230  1d 06 3e 20 20 20 f2 43  65 6e 74 72 65 28 22 54  |..>   .Centre("T|
00004240  68 65 20 41 6c 69 65 6e  20 46 6f 72 63 65 73 20  |he Alien Forces |
00004250  77 69 73 68 20 74 6f 20  6b 69 64 6e 61 70 20 73  |wish to kidnap s|
00004260  74 61 73 69 73 22 2c 31  30 2c 31 32 29 0d 1d 10  |tasis",10,12)...|
00004270  35 20 20 20 f2 43 65 6e  74 72 65 28 22 70 6f 64  |5   .Centre("pod|
00004280  73 20 69 6e 20 6f 72 64  65 72 20 74 6f 20 70 65  |s in order to pe|
00004290  72 66 6f 72 6d 20 65 76  69 6c 22 2c 31 32 2c 31  |rform evil",12,1|
000042a0  32 29 0d 1d 1a 39 20 20  20 f2 43 65 6e 74 72 65  |2)...9   .Centre|
000042b0  28 22 65 78 70 65 72 69  6d 65 6e 74 73 20 75 70  |("experiments up|
000042c0  6f 6e 20 74 68 65 6d 2e  20 41 66 74 65 72 20 74  |on them. After t|
000042d0  68 69 73 22 2c 31 34 2c  31 32 29 0d 1d 24 3a 20  |his",14,12)..$: |
000042e0  20 20 f2 43 65 6e 74 72  65 28 22 74 68 65 79 20  |  .Centre("they |
000042f0  77 69 6c 6c 20 75 73 65  20 74 68 65 20 68 75 6d  |will use the hum|
00004300  61 6e 20 63 6f 72 70 73  65 73 20 61 73 22 2c 31  |an corpses as",1|
00004310  36 2c 31 32 29 0d 1d 2e  38 20 20 20 f2 43 65 6e  |6,12)...8   .Cen|
00004320  74 72 65 28 22 68 69 2d  70 72 6f 74 69 65 6e 20  |tre("hi-protien |
00004330  66 6f 6f 64 2e 20 49 74  20 69 73 20 74 68 65 72  |food. It is ther|
00004340  65 66 6f 72 65 22 2c 31  38 2c 31 32 29 0d 1d 38  |efore",18,12)..8|
00004350  38 20 20 20 f2 43 65 6e  74 72 65 28 22 69 6d 70  |8   .Centre("imp|
00004360  65 72 61 74 69 76 65 20  74 68 61 74 20 79 6f 75  |erative that you|
00004370  20 73 61 76 65 20 61 73  20 6d 61 6e 79 22 2c 32  | save as many",2|
00004380  30 2c 31 32 29 0d 1d 42  31 20 20 20 f2 43 65 6e  |0,12)..B1   .Cen|
00004390  74 72 65 28 22 6f 66 20  74 68 65 73 65 20 70 6f  |tre("of these po|
000043a0  64 73 20 61 73 20 79 6f  75 20 63 61 6e 2e 22 2c  |ds as you can.",|
000043b0  32 32 2c 31 32 29 0d 1d  4c 0f 20 20 20 2a 46 58  |22,12)..L.   *FX|
000043c0  31 31 32 2c 31 0d 1d 56  14 20 20 20 d6 20 73 63  |112,1..V.   . sc|
000043d0  72 6f 6c 6c 5f 63 6f 64  65 0d 1d 60 05 e1 0d 1d  |roll_code..`....|
000043e0  6a 04 0d 1d 74 14 dd 20  f2 49 6e 73 74 72 75 63  |j...t.. .Instruc|
000043f0  74 69 6f 6e 73 33 0d 1d  7e 0f 20 20 20 2a 46 58  |tions3..~.   *FX|
00004400  31 31 32 2c 32 0d 1d 88  13 20 20 20 f2 43 6c 65  |112,2....   .Cle|
00004410  61 72 53 63 72 28 30 29  0d 1d 92 2c 20 20 20 f2  |arScr(0)...,   .|
00004420  43 65 6e 74 72 65 28 22  4d 69 73 73 69 6f 6e 20  |Centre("Mission |
00004430  42 72 69 65 66 20 2d 20  50 61 67 65 20 33 22 2c  |Brief - Page 3",|
00004440  38 2c 39 29 0d 1d 9c 3b  20 20 20 f2 43 65 6e 74  |8,9)...;   .Cent|
00004450  72 65 28 22 49 66 20 79  6f 75 20 73 75 63 63 65  |re("If you succe|
00004460  65 64 20 69 6e 20 64 65  73 74 72 6f 79 69 6e 67  |ed in destroying|
00004470  20 65 6e 6f 75 67 68 22  2c 31 30 2c 31 32 29 0d  | enough",10,12).|
00004480  1d a6 3a 20 20 20 f2 43  65 6e 74 72 65 28 22 61  |..:   .Centre("a|
00004490  6c 69 65 6e 73 2c 20 74  68 65 6e 20 74 68 65 79  |liens, then they|
000044a0  20 77 69 6c 6c 20 72 65  74 72 65 61 74 20 61 6e  | will retreat an|
000044b0  64 22 2c 31 32 2c 31 32  29 0d 1d b0 3b 20 20 20  |d",12,12)...;   |
000044c0  f2 43 65 6e 74 72 65 28  22 63 61 6c 6c 20 66 6f  |.Centre("call fo|
000044d0  72 20 74 68 65 20 68 65  61 76 69 6c 79 20 61 72  |r the heavily ar|
000044e0  6d 6f 75 72 65 64 20 73  68 69 70 2e 22 2c 31 34  |moured ship.",14|
000044f0  2c 31 32 29 0d 1d ba 36  20 20 20 f2 43 65 6e 74  |,12)...6   .Cent|
00004500  72 65 28 22 41 74 20 74  68 69 73 20 70 6f 69 6e  |re("At this poin|
00004510  74 20 61 6c 6c 20 70 6f  64 73 20 77 69 6c 6c 20  |t all pods will |
00004520  62 65 22 2c 31 36 2c 31  32 29 0d 1d c4 3a 20 20  |be",16,12)...:  |
00004530  20 f2 43 65 6e 74 72 65  28 22 72 65 6d 6f 76 65  | .Centre("remove|
00004540  64 20 66 72 6f 6d 20 74  68 65 20 70 6c 61 6e 65  |d from the plane|
00004550  74 20 73 75 72 66 61 63  65 20 62 79 22 2c 31 38  |t surface by",18|
00004560  2c 31 32 29 0d 1d ce 36  20 20 20 f2 43 65 6e 74  |,12)...6   .Cent|
00004570  72 65 28 22 74 72 61 63  74 6f 72 20 62 65 61 6d  |re("tractor beam|
00004580  2e 20 54 68 65 79 20 63  61 6e 20 6f 6e 6c 79 20  |. They can only |
00004590  62 65 22 2c 32 30 2c 31  32 29 0d 1d d8 38 20 20  |be",20,12)...8  |
000045a0  20 f2 43 65 6e 74 72 65  28 22 72 65 73 63 75 65  | .Centre("rescue|
000045b0  64 20 62 79 20 64 65 73  74 72 6f 79 69 6e 67 20  |d by destroying |
000045c0  74 68 69 73 20 73 68 69  70 2e 22 2c 32 32 2c 31  |this ship.",22,1|
000045d0  32 29 0d 1d e2 0f 20 20  20 2a 46 58 31 31 32 2c  |2)....   *FX112,|
000045e0  31 0d 1d ec 14 20 20 20  d6 20 73 63 72 6f 6c 6c  |1....   . scroll|
000045f0  5f 63 6f 64 65 0d 1d f6  05 e1 0d 1e 00 04 0d 1e  |_code...........|
00004600  0a 14 dd 20 f2 49 6e 73  74 72 75 63 74 69 6f 6e  |... .Instruction|
00004610  73 34 0d 1e 14 0f 20 20  20 2a 46 58 31 31 32 2c  |s4....   *FX112,|
00004620  32 0d 1e 1e 13 20 20 20  f2 43 6c 65 61 72 53 63  |2....   .ClearSc|
00004630  72 28 30 29 0d 1e 28 2c  20 20 20 f2 43 65 6e 74  |r(0)..(,   .Cent|
00004640  72 65 28 22 4d 69 73 73  69 6f 6e 20 42 72 69 65  |re("Mission Brie|
00004650  66 20 2d 20 50 61 67 65  20 34 22 2c 38 2c 39 29  |f - Page 4",8,9)|
00004660  0d 1e 32 3a 20 20 20 f2  43 65 6e 74 72 65 28 22  |..2:   .Centre("|
00004670  49 66 20 79 6f 75 20 73  74 61 79 20 61 6c 69 76  |If you stay aliv|
00004680  65 20 28 75 6e 6c 69 6b  65 6c 79 20 21 29 20 61  |e (unlikely !) a|
00004690  6e 64 22 2c 31 30 2c 31  32 29 0d 1e 3c 3a 20 20  |nd",10,12)..<:  |
000046a0  20 f2 43 65 6e 74 72 65  28 22 73 61 76 65 20 74  | .Centre("save t|
000046b0  68 69 73 20 70 6c 61 6e  65 74 2c 20 74 68 65 6e  |his planet, then|
000046c0  20 79 6f 75 20 77 69 6c  6c 20 62 65 22 2c 31 32  | you will be",12|
000046d0  2c 31 32 29 0d 1e 46 38  20 20 20 f2 43 65 6e 74  |,12)..F8   .Cent|
000046e0  72 65 28 22 70 6f 73 74  65 64 20 74 6f 20 74 68  |re("posted to th|
000046f0  65 20 6e 65 78 74 20 70  6c 61 6e 65 74 20 69 6e  |e next planet in|
00004700  20 74 68 65 22 2c 31 34  2c 31 32 29 0d 1e 50 21  | the",14,12)..P!|
00004710  20 20 20 f2 43 65 6e 74  72 65 28 22 71 75 61 64  |   .Centre("quad|
00004720  72 61 6e 74 2e 22 2c 31  36 2c 31 32 29 0d 1e 5a  |rant.",16,12)..Z|
00004730  33 20 20 20 f2 43 65 6e  74 72 65 28 22 59 6f 75  |3   .Centre("You|
00004740  20 68 61 76 65 20 62 65  65 6e 20 61 6c 6c 6f 63  | have been alloc|
00004750  61 74 65 64 20 31 30 30  22 2c 31 38 2c 31 32 29  |ated 100",18,12)|
00004760  0d 1e 64 2a 20 20 20 f2  43 65 6e 74 72 65 28 22  |..d*   .Centre("|
00004770  70 6c 61 6e 65 74 73 20  74 6f 20 70 72 6f 74 65  |planets to prote|
00004780  63 74 22 2c 32 30 2c 31  32 29 0d 1e 6e 0f 20 20  |ct",20,12)..n.  |
00004790  20 2a 46 58 31 31 32 2c  31 0d 1e 78 14 20 20 20  | *FX112,1..x.   |
000047a0  d6 20 73 63 72 6f 6c 6c  5f 63 6f 64 65 0d 1e 82  |. scroll_code...|
000047b0  05 e1 0d 1e 8c 04 0d 1e  96 14 dd 20 f2 49 6e 73  |........... .Ins|
000047c0  74 72 75 63 74 69 6f 6e  73 35 0d 1e a0 0f 20 20  |tructions5....  |
000047d0  20 2a 46 58 31 31 32 2c  32 0d 1e aa 13 20 20 20  | *FX112,2....   |
000047e0  f2 43 6c 65 61 72 53 63  72 28 30 29 0d 1e b4 37  |.ClearScr(0)...7|
000047f0  20 20 20 f2 43 65 6e 74  72 65 28 22 4d 69 73 73  |   .Centre("Miss|
00004800  69 6f 6e 20 42 72 69 65  66 20 2d 20 50 61 67 65  |ion Brief - Page|
00004810  20 35 20 28 57 65 61 70  6f 6e 72 79 29 22 2c 38  | 5 (Weaponry)",8|
00004820  2c 39 29 0d 1e be 36 20  20 20 f2 43 65 6e 74 72  |,9)...6   .Centr|
00004830  65 28 22 59 6f 75 72 20  50 68 61 6e 74 6f 6d 20  |e("Your Phantom |
00004840  4d 6b 32 2d 42 20 53 74  61 72 46 69 67 68 74 65  |Mk2-B StarFighte|
00004850  72 22 2c 31 30 2c 31 32  29 0d 1e c8 37 20 20 20  |r",10,12)...7   |
00004860  f2 43 65 6e 74 72 65 28  22 69 73 20 65 71 75 69  |.Centre("is equi|
00004870  70 70 65 64 20 77 69 74  68 20 61 20 6d 65 64 69  |pped with a medi|
00004880  75 6d 20 70 6f 77 65 72  22 2c 31 32 2c 31 32 29  |um power",12,12)|
00004890  0d 1e d2 24 20 20 20 f2  43 65 6e 74 72 65 28 22  |...$   .Centre("|
000048a0  70 75 6c 73 65 20 6c 61  73 65 72 2e 22 2c 31 34  |pulse laser.",14|
000048b0  2c 31 32 29 0d 1e dc 39  20 20 20 f2 43 65 6e 74  |,12)...9   .Cent|
000048c0  72 65 28 22 59 6f 75 72  20 73 68 69 70 20 63 61  |re("Your ship ca|
000048d0  6e 20 63 61 72 72 79 20  75 70 20 74 6f 20 33 20  |n carry up to 3 |
000048e0  73 6d 61 72 74 22 2c 31  36 2c 31 32 29 0d 1e e6  |smart",16,12)...|
000048f0  38 20 20 20 f2 43 65 6e  74 72 65 28 22 62 6f 6d  |8   .Centre("bom|
00004900  62 73 2c 20 61 6e 64 20  79 6f 75 20 61 72 65 20  |bs, and you are |
00004910  65 71 75 69 70 70 65 64  20 77 69 74 68 22 2c 31  |equipped with",1|
00004920  38 2c 31 32 29 0d 1e f0  28 20 20 20 f2 43 65 6e  |8,12)...(   .Cen|
00004930  74 72 65 28 22 31 20 74  6f 20 73 74 61 72 74 20  |tre("1 to start |
00004940  77 69 74 68 2e 22 2c 32  30 2c 31 32 29 0d 1e fa  |with.",20,12)...|
00004950  0f 20 20 20 2a 46 58 31  31 32 2c 31 0d 1f 04 14  |.   *FX112,1....|
00004960  20 20 20 d6 20 73 63 72  6f 6c 6c 5f 63 6f 64 65  |   . scroll_code|
00004970  0d 1f 0e 05 e1 0d 1f 18  04 0d 1f 22 14 dd 20 f2  |...........".. .|
00004980  49 6e 73 74 72 75 63 74  69 6f 6e 73 36 0d 1f 2c  |Instructions6..,|
00004990  0f 20 20 20 2a 46 58 31  31 32 2c 32 0d 1f 36 13  |.   *FX112,2..6.|
000049a0  20 20 20 f2 43 6c 65 61  72 53 63 72 28 30 29 0d  |   .ClearScr(0).|
000049b0  1f 40 2c 20 20 20 f2 43  65 6e 74 72 65 28 22 4d  |.@,   .Centre("M|
000049c0  69 73 73 69 6f 6e 20 42  72 69 65 66 20 2d 20 50  |ission Brief - P|
000049d0  61 67 65 20 36 22 2c 38  2c 39 29 0d 1f 4a 3b 20  |age 6",8,9)..J; |
000049e0  20 20 f2 43 65 6e 74 72  65 28 22 49 66 20 61 20  |  .Centre("If a |
000049f0  70 6f 64 20 69 73 20 6b  69 64 6e 61 70 70 65 64  |pod is kidnapped|
00004a00  20 74 68 65 72 65 20 77  69 6c 6c 20 62 65 22 2c  | there will be",|
00004a10  31 30 2c 31 32 29 0d 1f  54 34 20 20 20 f2 43 65  |10,12)..T4   .Ce|
00004a20  6e 74 72 65 28 22 61 6e  20 61 75 64 69 62 6c 65  |ntre("an audible|
00004a30  20 64 69 73 74 72 65 73  73 20 6d 65 73 73 61 67  | distress messag|
00004a40  65 2e 22 2c 31 32 2c 31  32 29 0d 1f 5e 38 20 20  |e.",12,12)..^8  |
00004a50  20 f2 43 65 6e 74 72 65  28 22 59 6f 75 20 73 68  | .Centre("You sh|
00004a60  6f 75 6c 64 20 75 73 65  20 79 6f 75 72 20 6d 65  |ould use your me|
00004a70  64 69 75 6d 20 72 61 6e  67 65 22 2c 31 34 2c 31  |dium range",14,1|
00004a80  32 29 0d 1f 68 35 20 20  20 f2 43 65 6e 74 72 65  |2)..h5   .Centre|
00004a90  28 22 54 49 20 39 39 2f  34 41 20 72 61 64 61 72  |("TI 99/4A radar|
00004aa0  20 74 6f 20 6c 6f 63 61  74 65 20 74 68 65 6d 22  | to locate them"|
00004ab0  2c 31 36 2c 31 32 29 0d  1f 72 32 20 20 20 f2 43  |,16,12)..r2   .C|
00004ac0  65 6e 74 72 65 28 22 61  6e 64 20 64 65 73 74 72  |entre("and destr|
00004ad0  6f 79 20 74 68 65 20 6b  69 64 6e 61 70 70 65 72  |oy the kidnapper|
00004ae0  2e 22 2c 31 38 2c 31 32  29 0d 1f 7c 3b 20 20 20  |.",18,12)..|;   |
00004af0  f2 43 65 6e 74 72 65 28  22 49 66 20 79 6f 75 20  |.Centre("If you |
00004b00  74 68 65 6e 20 70 69 63  6b 20 75 70 20 74 68 65  |then pick up the|
00004b10  20 70 6f 64 73 20 62 65  66 6f 72 65 22 2c 32 30  | pods before",20|
00004b20  2c 31 32 29 0d 1f 86 38  20 20 20 f2 43 65 6e 74  |,12)...8   .Cent|
00004b30  72 65 28 22 74 68 65 79  20 6c 61 6e 64 2c 20 79  |re("they land, y|
00004b40  6f 75 20 67 61 69 6e 20  65 78 74 72 61 20 70 6f  |ou gain extra po|
00004b50  69 6e 74 73 22 2c 32 32  2c 31 32 29 0d 1f 90 0f  |ints",22,12)....|
00004b60  20 20 20 2a 46 58 31 31  32 2c 31 0d 1f 9a 14 20  |   *FX112,1.... |
00004b70  20 20 d6 20 73 63 72 6f  6c 6c 5f 63 6f 64 65 0d  |  . scroll_code.|
00004b80  1f a4 05 e1 0d 1f ae 04  0d 1f b8 14 dd 20 f2 49  |............. .I|
00004b90  6e 73 74 72 75 63 74 69  6f 6e 73 37 0d 1f c2 0f  |nstructions7....|
00004ba0  20 20 20 2a 46 58 31 31  32 2c 32 0d 1f cc 13 20  |   *FX112,2.... |
00004bb0  20 20 f2 43 6c 65 61 72  53 63 72 28 30 29 0d 1f  |  .ClearScr(0)..|
00004bc0  d6 2c 20 20 20 f2 43 65  6e 74 72 65 28 22 4d 69  |.,   .Centre("Mi|
00004bd0  73 73 69 6f 6e 20 42 72  69 65 66 20 2d 20 50 61  |ssion Brief - Pa|
00004be0  67 65 20 37 22 2c 38 2c  39 29 0d 1f e0 3b 20 20  |ge 7",8,9)...;  |
00004bf0  20 f2 43 65 6e 74 72 65  28 22 57 68 65 6e 20 61  | .Centre("When a|
00004c00  6e 20 61 6c 69 65 6e 20  69 73 20 64 65 73 74 72  |n alien is destr|
00004c10  6f 79 65 64 20 74 68 65  79 20 6d 61 79 22 2c 31  |oyed they may",1|
00004c20  30 2c 31 32 29 0d 1f ea  35 20 20 20 f2 43 65 6e  |0,12)...5   .Cen|
00004c30  74 72 65 28 22 72 65 6c  65 61 73 65 20 61 20 73  |tre("release a s|
00004c40  6d 61 72 74 20 62 6f 6d  62 20 6f 72 20 65 78 74  |mart bomb or ext|
00004c50  72 61 22 2c 31 32 2c 31  32 29 0d 1f f4 37 20 20  |ra",12,12)...7  |
00004c60  20 f2 43 65 6e 74 72 65  28 22 65 6e 65 72 67 79  | .Centre("energy|
00004c70  20 75 6e 69 74 2c 20 79  6f 75 20 61 72 65 20 61  | unit, you are a|
00004c80  64 76 69 73 65 64 20 74  6f 22 2c 31 34 2c 31 32  |dvised to",14,12|
00004c90  29 0d 1f fe 26 20 20 20  f2 43 65 6e 74 72 65 28  |)...&   .Centre(|
00004ca0  22 70 69 63 6b 20 74 68  65 73 65 20 75 70 2e 22  |"pick these up."|
00004cb0  2c 31 36 2c 31 32 29 0d  20 08 3a 20 20 20 f2 43  |,16,12). .:   .C|
00004cc0  65 6e 74 72 65 28 22 59  6f 75 20 6d 61 79 20 61  |entre("You may a|
00004cd0  6c 73 6f 20 66 69 6e 64  20 53 75 70 65 72 20 53  |lso find Super S|
00004ce0  68 69 65 6c 64 20 61 6e  64 22 2c 31 38 2c 31 32  |hield and",18,12|
00004cf0  29 0d 20 12 39 20 20 20  f2 43 65 6e 74 72 65 28  |). .9   .Centre(|
00004d00  22 53 75 70 65 72 20 47  75 6e 73 20 62 6f 6e 75  |"Super Guns bonu|
00004d10  73 27 73 2e 20 50 69 63  6b 20 74 68 65 73 65 20  |s's. Pick these |
00004d20  75 70 22 2c 32 30 2c 31  32 29 0d 20 1c 39 20 20  |up",20,12). .9  |
00004d30  20 f2 43 65 6e 74 72 65  28 22 46 6f 72 20 69 6d  | .Centre("For im|
00004d40  70 72 6f 76 65 64 20 77  65 61 70 6f 6e 73 20 61  |proved weapons a|
00004d50  6e 64 20 73 68 69 65 6c  64 73 2e 22 2c 32 32 2c  |nd shields.",22,|
00004d60  31 32 29 0d 20 26 0f 20  20 20 2a 46 58 31 31 32  |12). &.   *FX112|
00004d70  2c 31 0d 20 30 14 20 20  20 d6 20 73 63 72 6f 6c  |,1. 0.   . scrol|
00004d80  6c 5f 63 6f 64 65 0d 20  3a 05 e1 0d 20 44 04 0d  |l_code. :... D..|
00004d90  20 4e 0f dd 20 f2 41 6c  69 65 6e 49 64 73 0d 20  | N.. .AlienIds. |
00004da0  58 0f 20 20 20 2a 46 58  31 31 32 2c 32 0d 20 62  |X.   *FX112,2. b|
00004db0  13 20 20 20 f2 43 6c 65  61 72 53 63 72 28 30 29  |.   .ClearScr(0)|
00004dc0  0d 20 6c 2b 20 20 20 f2  43 65 6e 74 72 65 28 22  |. l+   .Centre("|
00004dd0  43 72 61 66 74 20 49 64  65 6e 74 69 66 69 63 61  |Craft Identifica|
00004de0  74 69 6f 6e 22 2c 38 2c  31 30 29 0d 20 76 3a 20  |tion",8,10). v: |
00004df0  20 20 f2 43 65 6e 74 72  65 28 22 53 74 61 73 69  |  .Centre("Stasi|
00004e00  73 20 50 6f 64 73 20 20  20 20 20 20 20 20 20 20  |s Pods          |
00004e10  20 20 20 20 20 20 20 20  20 20 20 20 20 22 2c 31  |             ",1|
00004e20  30 2c 31 33 29 0d 20 80  23 20 20 20 f2 70 6c 6f  |0,13). .#   .plo|
00004e30  74 28 22 53 54 41 53 49  53 5f 50 4f 44 22 2c 31  |t("STASIS_POD",1|
00004e40  30 30 30 2c 36 37 32 29  0d 20 8a 3a 20 20 20 f2  |000,672). .:   .|
00004e50  43 65 6e 74 72 65 28 22  53 75 70 65 72 20 47 75  |Centre("Super Gu|
00004e60  6e 73 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |ns              |
00004e70  20 20 20 20 20 20 20 20  20 20 22 2c 31 32 2c 31  |          ",12,1|
00004e80  33 29 0d 20 94 1c 20 20  20 f2 70 6c 6f 74 28 22  |3). ..   .plot("|
00004e90  47 55 4e 53 22 2c 39 38  34 2c 36 30 38 29 0d 20  |GUNS",984,608). |
00004ea0  9e 3a 20 20 20 f2 43 65  6e 74 72 65 28 22 53 75  |.:   .Centre("Su|
00004eb0  70 65 72 20 53 68 69 65  6c 64 20 20 20 20 20 20  |per Shield      |
00004ec0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004ed0  22 2c 31 34 2c 31 33 29  0d 20 a8 1e 20 20 20 f2  |",14,13). ..   .|
00004ee0  70 6c 6f 74 28 22 53 48  49 45 4c 44 22 2c 39 38  |plot("SHIELD",98|
00004ef0  34 2c 35 34 34 29 0d 20  b2 3a 20 20 20 f2 43 65  |4,544). .:   .Ce|
00004f00  6e 74 72 65 28 22 45 78  74 72 61 20 53 6d 61 72  |ntre("Extra Smar|
00004f10  74 20 42 6f 6d 62 20 20  20 20 20 20 20 20 20 20  |t Bomb          |
00004f20  20 20 20 20 20 20 20 20  22 2c 31 36 2c 31 33 29  |        ",16,13)|
00004f30  0d 20 bc 22 20 20 20 f2  70 6c 6f 74 28 22 53 4d  |. ."   .plot("SM|
00004f40  41 52 54 42 4f 4d 42 22  2c 31 30 30 30 2c 34 38  |ARTBOMB",1000,48|
00004f50  30 29 0d 20 c6 3a 20 20  20 f2 43 65 6e 74 72 65  |0). .:   .Centre|
00004f60  28 22 45 78 74 72 61 20  73 68 69 65 6c 64 20 65  |("Extra shield e|
00004f70  6e 65 72 67 79 20 20 20  20 20 20 20 20 20 20 20  |nergy           |
00004f80  20 20 20 20 22 2c 31 38  2c 31 33 29 0d 20 d0 1f  |    ",18,13). ..|
00004f90  20 20 20 f2 70 6c 6f 74  28 22 45 4e 45 52 47 59  |   .plot("ENERGY|
00004fa0  22 2c 31 30 30 30 2c 34  31 36 29 0d 20 da 39 20  |",1000,416). .9 |
00004fb0  20 20 f2 43 65 6e 74 72  65 28 22 41 6c 6c 20 6f  |  .Centre("All o|
00004fc0  74 68 65 72 73 20 61 72  65 20 6c 65 67 69 74 69  |thers are legiti|
00004fd0  6d 61 74 65 20 74 61 72  67 65 74 73 22 2c 32 33  |mate targets",23|
00004fe0  2c 31 31 29 0d 20 e4 0f  20 20 20 2a 46 58 31 31  |,11). ..   *FX11|
00004ff0  32 2c 31 0d 20 ee 14 20  20 20 d6 20 73 63 72 6f  |2,1. ..   . scro|
00005000  6c 6c 5f 63 6f 64 65 0d  20 f8 05 e1 0d 21 02 04  |ll_code. ....!..|
00005010  0d 21 0c 0d dd 20 f2 50  6f 69 6e 74 73 0d 21 16  |.!... .Points.!.|
00005020  0f 20 20 20 2a 46 58 31  31 32 2c 32 0d 21 20 13  |.   *FX112,2.! .|
00005030  20 20 20 f2 43 6c 65 61  72 53 63 72 28 30 29 0d  |   .ClearScr(0).|
00005040  21 2a 24 20 20 20 f2 43  65 6e 74 72 65 28 22 50  |!*$   .Centre("P|
00005050  6f 69 6e 74 73 20 53 63  6f 72 69 6e 67 22 2c 38  |oints Scoring",8|
00005060  2c 39 29 0d 21 34 26 20  20 20 f2 43 65 6e 74 72  |,9).!4&   .Centr|
00005070  65 28 22 41 6c 69 65 6e  73 20 20 31 30 20 50 74  |e("Aliens  10 Pt|
00005080  73 22 2c 31 30 2c 31 34  29 0d 21 3e 34 20 20 20  |s",10,14).!>4   |
00005090  f2 43 65 6e 74 72 65 28  22 53 68 6f 6f 74 69 6e  |.Centre("Shootin|
000050a0  67 20 61 20 4b 69 64 6e  61 70 70 65 72 20 20 32  |g a Kidnapper  2|
000050b0  30 20 50 74 73 22 2c 31  32 2c 31 34 29 0d 21 48  |0 Pts",12,14).!H|
000050c0  35 20 20 20 f2 43 65 6e  74 72 65 28 22 52 65 73  |5   .Centre("Res|
000050d0  63 75 69 6e 67 20 61 20  53 74 61 73 69 73 20 70  |cuing a Stasis p|
000050e0  6f 64 20 20 35 30 20 50  74 73 22 2c 31 34 2c 31  |od  50 Pts",14,1|
000050f0  34 29 0d 21 52 34 20 20  20 f2 43 65 6e 74 72 65  |4).!R4   .Centre|
00005100  28 22 4c 61 6e 64 69 6e  67 20 61 20 53 74 61 73  |("Landing a Stas|
00005110  69 73 20 70 6f 64 20 20  35 30 20 50 74 73 22 2c  |is pod  50 Pts",|
00005120  31 36 2c 31 34 29 0d 21  5c 3c 20 20 20 f2 43 65  |16,14).!\<   .Ce|
00005130  6e 74 72 65 28 22 4c 6f  73 69 6e 67 2f 53 68 6f  |ntre("Losing/Sho|
00005140  6f 74 69 6e 67 20 61 20  53 74 61 73 69 73 20 70  |oting a Stasis p|
00005150  6f 64 20 2d 35 30 20 50  74 73 22 2c 31 38 2c 31  |od -50 Pts",18,1|
00005160  34 29 0d 21 66 2e 20 20  20 f2 43 65 6e 74 72 65  |4).!f.   .Centre|
00005170  28 22 4d 69 73 73 69 6c  65 73 2f 62 75 6c 6c 65  |("Missiles/bulle|
00005180  74 73 20 35 20 50 74 73  22 2c 32 30 2c 31 34 29  |ts 5 Pts",20,14)|
00005190  0d 21 70 33 20 20 20 f2  43 65 6e 74 72 65 28 22  |.!p3   .Centre("|
000051a0  43 6f 6d 70 6c 65 74 69  6f 6e 20 6f 66 20 6c 65  |Completion of le|
000051b0  76 65 6c 20 35 30 30 20  50 74 73 22 2c 32 32 2c  |vel 500 Pts",22,|
000051c0  31 34 29 0d 21 7a 0f 20  20 20 2a 46 58 31 31 32  |14).!z.   *FX112|
000051d0  2c 31 0d 21 84 14 20 20  20 d6 20 73 63 72 6f 6c  |,1.!..   . scrol|
000051e0  6c 5f 63 6f 64 65 0d 21  8e 05 e1 0d 21 98 04 0d  |l_code.!....!...|
000051f0  21 a2 0a dd 20 f2 6b 65  79 0d 21 ac 11 20 20 20  |!... .key.!..   |
00005200  6c 64 65 66 61 75 6c 74  3d 31 0d 21 b6 12 20 20  |ldefault=1.!..  |
00005210  20 6b 65 79 24 3d bf 28  38 30 30 29 0d 21 c0 35  | key$=.(800).!.5|
00005220  20 20 20 e7 20 6b 65 79  24 3d 22 20 22 20 8c 20  |   . key$=" " . |
00005230  f2 50 6c 61 79 47 61 6d  65 3a f2 43 6c 65 61 72  |.PlayGame:.Clear|
00005240  52 61 64 61 72 3a f2 43  68 65 63 6b 53 63 6f 72  |Radar:.CheckScor|
00005250  65 0d 21 ca 1f 20 20 20  e7 20 6b 65 79 24 3d 22  |e.!..   . key$="|
00005260  70 22 20 84 20 6b 65 79  24 3d 22 50 22 20 f2 65  |p" . key$="P" .e|
00005270  0d 21 d4 2a 20 20 20 e7  20 6b 65 79 24 3d 22 69  |.!.*   . key$="i|
00005280  22 20 84 20 6b 65 79 24  3d 22 49 22 20 f2 49 6e  |" . key$="I" .In|
00005290  73 74 72 75 63 74 69 6f  6e 73 0d 21 de 0e 20 20  |structions.!..  |
000052a0  20 2a 46 58 31 35 2c 31  0d 21 e8 0f 20 20 20 2a  | *FX15,1.!..   *|
000052b0  46 58 32 32 39 2c 30 0d  21 f2 05 e1 0d 21 fc 04  |FX229,0.!....!..|
000052c0  0d 22 06 10 dd 20 f2 48  61 72 64 52 65 73 65 74  |."... .HardReset|
000052d0  0d 22 10 10 20 20 20 63  6f 64 65 25 21 30 3d 30  |."..   code%!0=0|
000052e0  0d 22 1a 15 20 20 20 6c  65 76 65 6c 3d 6c 64 65  |."..   level=lde|
000052f0  66 61 75 6c 74 0d 22 24  12 20 20 20 f2 53 65 74  |fault."$.   .Set|
00005300  55 70 4c 65 76 65 6c 0d  22 2e 18 20 20 20 d6 20  |UpLevel."..   . |
00005310  69 6e 69 74 69 61 6c 69  73 65 5f 63 6f 64 65 0d  |initialise_code.|
00005320  22 38 05 e1 0d 22 42 04  0d 22 4c 10 dd 20 f2 53  |"8..."B.."L.. .S|
00005330  6f 66 74 52 65 73 65 74  0d 22 56 16 20 20 20 f2  |oftReset."V.   .|
00005340  4d 69 73 73 69 6f 6e 44  65 62 72 69 65 66 0d 22  |MissionDebrief."|
00005350  60 12 20 20 20 f2 43 6c  65 61 72 52 61 64 61 72  |`.   .ClearRadar|
00005360  0d 22 6a 10 20 20 20 63  6f 64 65 25 21 30 3d 30  |."j.   code%!0=0|
00005370  0d 22 74 12 20 20 20 f2  53 65 74 55 70 4c 65 76  |."t.   .SetUpLev|
00005380  65 6c 0d 22 7e 18 20 20  20 d6 20 73 6f 66 74 5f  |el."~.   . soft_|
00005390  73 74 61 72 74 5f 63 6f  64 65 0d 22 88 1f 20 20  |start_code."..  |
000053a0  20 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 31  | *CHANNELVOICE 1|
000053b0  20 4f 50 45 4e 46 49 52  45 0d 22 92 17 20 20 20  | OPENFIRE."..   |
000053c0  d4 20 31 2c 2d 31 35 2c  26 31 34 30 30 2c 31 36  |. 1,-15,&1400,16|
000053d0  0d 22 9c 05 e1 0d 22 a6  04 0d 22 b0 15 dd 20 f2  |."...."..."... .|
000053e0  43 65 6e 74 72 65 28 53  24 2c 59 2c 43 29 0d 22  |Centre(S$,Y,C)."|
000053f0  ba 0e 20 20 20 6c 3d a9  28 53 24 29 0d 22 c4 0a  |..   l=.(S$)."..|
00005400  20 20 20 ef 20 35 0d 22  ce 0d 20 20 20 6c 3d 6c  |   . 5."..   l=l|
00005410  2a 33 32 0d 22 d8 0e 20  20 20 6c 3d 6c 20 81 20  |*32."..   l=l . |
00005420  32 0d 22 e2 0e 20 20 20  78 3d 36 34 30 2d 6c 0d  |2."..   x=640-l.|
00005430  22 ec 0d 20 20 20 79 3d  59 2a 33 32 0d 22 f6 12  |"..   y=Y*32."..|
00005440  20 20 20 79 3d 94 28 79  2d 31 30 32 33 29 0d 23  |   y=.(y-1023).#|
00005450  00 0c 20 20 20 ec 20 78  2c 79 0d 23 0a 0b 20 20  |..   . x,y.#..  |
00005460  20 e6 30 2c 43 0d 23 14  0b 20 20 20 f1 20 53 24  | .0,C.#..   . S$|
00005470  0d 23 1e 09 20 20 20 ef  34 0d 23 28 08 20 20 20  |.#..   .4.#(.   |
00005480  87 0d 23 32 05 e1 0d 23  3c 04 0d 23 46 0e dd 20  |..#2...#<..#F.. |
00005490  f2 50 61 6c 65 74 74 65  0d 23 50 1b 20 20 20 ef  |.Palette.#P.   .|
000054a0  31 39 2c 31 2c 32 34 2c  31 31 39 2c 31 31 39 2c  |19,1,24,119,119,|
000054b0  31 31 39 0d 23 5a 0d 20  20 20 f7 20 8d 74 4c 63  |119.#Z.   . .tLc|
000054c0  0d 23 64 11 20 20 20 e3  20 6c 3d 30 20 b8 20 31  |.#d.   . l=0 . 1|
000054d0  35 0d 23 6e 11 20 20 20  20 20 20 f3 20 72 2c 67  |5.#n.      . r,g|
000054e0  2c 62 0d 23 78 13 20 20  20 20 20 20 fb 20 6c 2c  |,b.#x.      . l,|
000054f0  72 2c 67 2c 62 0d 23 82  0a 20 20 20 ed 20 6c 0d  |r,g,b.#..   . l.|
00005500  23 8c a8 20 20 20 dc 20  30 2c 30 2c 30 2c 32 32  |#..   . 0,0,0,22|
00005510  31 2c 32 32 31 2c 32 32  31 2c 31 38 37 2c 31 38  |1,221,221,187,18|
00005520  37 2c 31 38 37 2c 31 35  33 2c 31 35 33 2c 31 35  |7,187,153,153,15|
00005530  33 2c 31 31 39 2c 31 31  39 2c 31 31 39 2c 38 35  |3,119,119,119,85|
00005540  2c 38 35 2c 38 35 2c 35  31 2c 35 31 2c 35 31 2c  |,85,85,51,51,51,|
00005550  32 35 35 2c 32 35 35 2c  32 35 35 2c 30 2c 36 38  |255,255,255,0,68|
00005560  2c 31 35 33 2c 32 33 38  2c 32 33 38 2c 30 2c 30  |,153,238,238,0,0|
00005570  2c 32 30 34 2c 30 2c 32  32 31 2c 30 2c 30 2c 32  |,204,0,221,0,0,2|
00005580  33 38 2c 32 33 38 2c 31  38 37 2c 38 35 2c 31 33  |38,238,187,85,13|
00005590  36 2c 30 2c 32 35 35 2c  31 38 37 2c 30 2c 30 2c  |6,0,255,187,0,0,|
000055a0  31 38 37 2c 32 35 35 0d  23 96 05 e1 0d 23 a0 04  |187,255.#....#..|
000055b0  0d 23 aa 14 dd 20 f2 43  6c 65 61 72 53 63 72 28  |.#... .ClearScr(|
000055c0  63 6f 6c 29 0d 23 b4 0e  20 20 20 e6 20 30 2c 63  |col).#..   . 0,c|
000055d0  6f 6c 0d 23 be 1b 20 20  20 c8 93 20 c8 90 20 30  |ol.#..   .. .. 0|
000055e0  2c 32 35 36 2c 31 32 38  30 2c 35 32 38 0d 23 c8  |,256,1280,528.#.|
000055f0  05 e1 0d 23 d2 04 0d 23  dc 11 dd 20 f2 43 6c 65  |...#...#... .Cle|
00005600  61 72 52 61 64 61 72 0d  23 e6 0c 20 20 20 e6 20  |arRadar.#..   . |
00005610  30 2c 30 0d 23 f0 1c 20  20 20 c8 93 20 c8 90 20  |0,0.#..   .. .. |
00005620  34 30 30 2c 38 31 30 2c  34 38 32 2c 31 38 38 0d  |400,810,482,188.|
00005630  23 fa 21 20 20 20 20 20  20 20 20 c8 93 20 c8 90  |#.!        .. ..|
00005640  20 33 38 38 2c 38 31 38  2c 35 30 32 2c 31 37 32  | 388,818,502,172|
00005650  0d 24 04 05 e1 0d 24 0e  04 0d 24 18 08 dd 20 f2  |.$....$...$... .|
00005660  65 0d 24 22 08 20 20 20  87 0d 24 2c 0f 20 20 20  |e.$".   ..$,.   |
00005670  2a 46 58 31 31 32 2c 32  0d 24 36 13 20 20 20 f2  |*FX112,2.$6.   .|
00005680  43 6c 65 61 72 53 63 72  28 30 29 0d 24 40 25 20  |ClearScr(0).$@% |
00005690  20 20 f2 43 65 6e 74 72  65 28 22 45 6e 74 65 72  |  .Centre("Enter|
000056a0  20 50 61 73 73 77 6f 72  64 22 2c 38 2c 31 30 29  | Password",8,10)|
000056b0  0d 24 4a 1e 20 20 20 f2  70 6c 6f 74 28 22 45 4e  |.$J.   .plot("EN|
000056c0  45 52 47 59 22 2c 32 32  30 2c 34 38 34 29 0d 24  |ERGY",220,484).$|
000056d0  54 1f 20 20 20 f2 70 6c  6f 74 28 22 45 4e 45 52  |T.   .plot("ENER|
000056e0  47 59 22 2c 31 30 32 34  2c 34 38 34 29 0d 24 5e  |GY",1024,484).$^|
000056f0  0f 20 20 20 2a 46 58 31  31 32 2c 31 0d 24 68 14  |.   *FX112,1.$h.|
00005700  20 20 20 d6 20 73 63 72  6f 6c 6c 5f 63 6f 64 65  |   . scroll_code|
00005710  0d 24 72 13 20 20 20 fb  20 31 32 38 2b 30 3a fb  |.$r.   . 128+0:.|
00005720  20 31 34 0d 24 7c 0f 20  20 20 f1 8a 38 2c 31 36  | 14.$|.   ..8,16|
00005730  29 3b 0d 24 86 29 20 20  20 c8 99 22 4f 53 5f 52  |);.$.)   .."OS_R|
00005740  65 61 64 4c 69 6e 65 22  2c 62 75 25 2c 32 34 2c  |eadLine",bu%,24,|
00005750  33 32 2c 31 32 36 20 b8  20 2c 6c 0d 24 90 12 20  |32,126 . ,l.$.. |
00005760  20 20 70 24 3d a4 6a 6f  69 6e 28 6c 29 0d 24 9a  |  p$=.join(l).$.|
00005770  15 20 20 20 70 24 3d a4  75 70 63 61 73 65 28 70  |.   p$=.upcase(p|
00005780  24 29 0d 24 a4 0b 20 20  20 70 77 3d a3 0d 24 ae  |$).$..   pw=..$.|
00005790  14 20 20 20 e3 20 6c 6c  3d 20 31 20 b8 20 31 30  |.   . ll= 1 . 10|
000057a0  30 0d 24 b8 25 20 20 20  20 20 e7 20 70 24 3d 70  |0.$.%     . p$=p|
000057b0  24 28 6c 6c 29 20 70 77  3d b9 3a 6c 64 65 66 61  |$(ll) pw=.:ldefa|
000057c0  75 6c 74 3d 6c 6c 0d 24  c2 0b 20 20 20 ed 20 6c  |ult=ll.$..   . l|
000057d0  6c 0d 24 cc 0f 20 20 20  e7 20 70 77 3d b9 20 8c  |l.$..   . pw=. .|
000057e0  0d 24 d6 0d 20 20 20 20  20 20 ea 20 85 0d 24 e0  |.$..      . ..$.|
000057f0  15 20 20 20 20 20 20 ee  20 85 20 ea 20 f7 20 85  |.      . . . . .|
00005800  3a e1 0d 24 ea 1f 20 20  20 20 20 20 f2 50 6c 61  |:..$..      .Pla|
00005810  79 47 61 6d 65 3a f2 43  68 65 63 6b 53 63 6f 72  |yGame:.CheckScor|
00005820  65 0d 24 f4 0d 20 20 20  20 20 20 f7 20 85 0d 24  |e.$..      . ..$|
00005830  fe 08 20 20 20 cc 0d 25  08 48 20 20 20 20 20 20  |..   ..%.H      |
00005840  f2 43 65 6e 74 72 65 28  22 50 20 61 20 73 20 73  |.Centre("P a s s|
00005850  20 77 20 6f 20 72 20 64  20 20 20 49 20 6e 20 63  | w o r d   I n c|
00005860  20 6f 20 72 20 72 20 65  20 63 20 74 22 2c 32 33  | o r r e c t",23|
00005870  2c 39 29 3a f2 44 65 6c  61 79 28 33 35 29 0d 25  |,9):.Delay(35).%|
00005880  12 08 20 20 20 cd 0d 25  1c 0e 20 20 20 2a 46 58  |..   ..%..   *FX|
00005890  31 35 2c 31 0d 25 26 05  e1 0d 25 30 04 0d 25 3a  |15,1.%&...%0..%:|
000058a0  16 dd 20 f2 44 69 73 70  6c 61 79 48 69 53 63 6f  |.. .DisplayHiSco|
000058b0  72 65 73 0d 25 44 0f 20  20 20 2a 46 58 31 31 32  |res.%D.   *FX112|
000058c0  2c 32 0d 25 4e 13 20 20  20 f2 43 6c 65 61 72 53  |,2.%N.   .ClearS|
000058d0  63 72 28 30 29 0d 25 58  31 20 20 20 f2 43 65 6e  |cr(0).%X1   .Cen|
000058e0  74 72 65 28 22 41 20 63  20 65 20 20 20 20 43 20  |tre("A c e    C |
000058f0  72 20 75 20 73 20 61 20  64 20 65 20 72 20 73 22  |r u s a d e r s"|
00005900  2c 38 2c 31 31 29 0d 25  62 0a 20 20 20 ef 20 35  |,8,11).%b.   . 5|
00005910  0d 25 6c 08 20 20 20 87  0d 25 76 13 20 20 20 e3  |.%l.   ..%v.   .|
00005920  20 6c 6f 6f 70 3d 31 20  b8 20 39 0d 25 80 1c 20  | loop=1 . 9.%.. |
00005930  20 20 20 20 20 ec 20 36  34 2c 37 35 34 2d 28 6c  |     . 64,754-(l|
00005940  6f 6f 70 2a 35 30 29 0d  25 8a 0e 20 20 20 20 20  |oop*50).%..     |
00005950  20 e6 30 2c 38 0d 25 94  1d 20 20 20 20 20 20 f2  | .0,8.%..      .|
00005960  63 6f 6e 5f 6e 75 6d 28  6c 6f 6f 70 2c 32 2c 6e  |con_num(loop,2,n|
00005970  24 29 0d 25 9e 13 20 20  20 20 20 20 f1 20 6e 24  |$).%..      . n$|
00005980  22 20 20 22 3b 0d 25 a8  0f 20 20 20 20 20 20 e6  |"  ";.%..      .|
00005990  30 2c 31 32 0d 25 b2 21  20 20 20 20 20 20 f2 63  |0,12.%.!      .c|
000059a0  6f 6e 5f 6e 75 6d 28 68  69 28 6c 6f 6f 70 29 2c  |on_num(hi(loop),|
000059b0  38 2c 6e 24 29 0d 25 bc  17 20 20 20 20 20 20 f1  |8,n$).%..      .|
000059c0  20 6e 24 22 20 2e 2e 2e  2e 20 22 3b 0d 25 c6 0f  | n$" .... ";.%..|
000059d0  20 20 20 20 20 20 e6 30  2c 31 33 0d 25 d0 15 20  |      .0,13.%.. |
000059e0  20 20 20 20 20 f1 20 68  69 24 28 6c 6f 6f 70 29  |     . hi$(loop)|
000059f0  0d 25 da 0c 20 20 20 ed  6c 6f 6f 70 0d 25 e4 0a  |.%..   .loop.%..|
00005a00  20 20 20 ef 20 34 0d 25  ee 08 20 20 20 87 0d 25  |   . 4.%..   ..%|
00005a10  f8 0f 20 20 20 2a 46 58  31 31 32 2c 31 0d 26 02  |..   *FX112,1.&.|
00005a20  14 20 20 20 d6 20 73 63  72 6f 6c 6c 5f 63 6f 64  |.   . scroll_cod|
00005a30  65 0d 26 0c 05 e1 0d 26  16 04 0d 26 20 11 dd 20  |e.&....&...& .. |
00005a40  f2 43 68 65 63 6b 53 63  6f 72 65 0d 26 2a 14 20  |.CheckScore.&*. |
00005a50  20 20 f2 49 73 49 74 41  48 69 53 63 6f 72 65 0d  |  .IsItAHiScore.|
00005a60  26 34 0e 20 20 20 e7 20  79 65 73 20 8c 0d 26 3e  |&4.   . yes ..&>|
00005a70  1c 20 20 20 20 20 20 f2  72 65 5f 73 68 75 66 66  |.      .re_shuff|
00005a80  6c 65 5f 73 63 6f 72 65  73 0d 26 48 17 20 20 20  |le_scores.&H.   |
00005a90  20 20 20 f2 70 75 74 5f  69 6e 5f 74 61 62 6c 65  |   .put_in_table|
00005aa0  0d 26 52 1a 20 20 20 20  20 20 f2 44 69 73 70 6c  |.&R.      .Displ|
00005ab0  61 79 48 69 53 63 6f 72  65 73 0d 26 5c 15 20 20  |ayHiScores.&\.  |
00005ac0  20 20 20 20 f2 65 6e 74  65 72 5f 6e 61 6d 65 0d  |    .enter_name.|
00005ad0  26 66 1a 20 20 20 20 20  20 f2 44 69 73 70 6c 61  |&f.      .Displa|
00005ae0  79 48 69 53 63 6f 72 65  73 0d 26 70 15 20 20 20  |yHiScores.&p.   |
00005af0  20 20 20 f2 44 65 6c 61  79 28 31 30 30 29 0d 26  |   .Delay(100).&|
00005b00  7a 08 20 20 20 cd 0d 26  84 05 e1 0d 26 8e 04 0d  |z.   ..&....&...|
00005b10  26 98 13 dd 20 f2 49 73  49 74 41 48 69 53 63 6f  |&... .IsItAHiSco|
00005b20  72 65 0d 26 a2 0c 20 20  20 79 65 73 3d a3 0d 26  |re.&..   yes=..&|
00005b30  ac 14 20 20 20 73 63 6f  72 65 3d 63 6f 64 65 25  |..   score=code%|
00005b40  21 34 0d 26 b6 17 20 20  20 e3 20 6c 6f 6f 70 3d  |!4.&..   . loop=|
00005b50  39 20 b8 20 31 20 88 2d  31 0d 26 c0 29 20 20 20  |9 . 1 .-1.&.)   |
00005b60  20 20 20 e7 20 73 63 6f  72 65 3e 68 69 28 6c 6f  |   . score>hi(lo|
00005b70  6f 70 29 20 79 65 73 3d  b9 3a 70 6f 73 3d 6c 6f  |op) yes=.:pos=lo|
00005b80  6f 70 0d 26 ca 08 20 20  20 ed 0d 26 d4 05 e1 0d  |op.&..   ..&....|
00005b90  26 de 04 0d 26 e8 1c dd  20 f2 63 6f 6e 76 65 72  |&...&... .conver|
00005ba0  74 5f 64 69 67 5f 74 6f  5f 73 74 72 69 6e 67 0d  |t_dig_to_string.|
00005bb0  26 f2 13 20 20 20 74 69  6d 65 3d 63 6f 64 65 25  |&..   time=code%|
00005bc0  21 34 0d 26 fc 14 20 20  20 74 69 6d 65 24 3d c3  |!4.&..   time$=.|
00005bd0  28 74 69 6d 65 29 0d 27  06 2a 20 20 20 e7 20 a9  |(time).'.*   . .|
00005be0  28 74 69 6d 65 24 29 3d  34 20 74 65 6d 70 74 69  |(time$)=4 tempti|
00005bf0  6d 65 24 3d 22 20 20 20  20 22 2b 74 69 6d 65 24  |me$="    "+time$|
00005c00  0d 27 10 29 20 20 20 e7  20 a9 28 74 69 6d 65 24  |.'.)   . .(time$|
00005c10  29 3d 35 20 74 65 6d 70  74 69 6d 65 24 3d 22 20  |)=5 temptime$=" |
00005c20  20 20 22 2b 74 69 6d 65  24 0d 27 1a 28 20 20 20  |  "+time$.'.(   |
00005c30  e7 20 a9 28 74 69 6d 65  24 29 3d 36 20 74 65 6d  |. .(time$)=6 tem|
00005c40  70 74 69 6d 65 24 3d 22  20 20 22 2b 74 69 6d 65  |ptime$="  "+time|
00005c50  24 0d 27 24 27 20 20 20  e7 20 a9 28 74 69 6d 65  |$.'$'   . .(time|
00005c60  24 29 3d 37 20 74 65 6d  70 74 69 6d 65 24 3d 22  |$)=7 temptime$="|
00005c70  20 22 2b 74 69 6d 65 24  0d 27 2e 1a 20 20 20 74  | "+time$.'..   t|
00005c80  69 6d 65 24 3d c0 74 65  6d 70 74 69 6d 65 24 2c  |ime$=.temptime$,|
00005c90  33 29 0d 27 38 16 20 20  20 74 69 6d 65 24 3d 74  |3).'8.   time$=t|
00005ca0  69 6d 65 24 2b 22 20 22  0d 27 42 22 20 20 20 74  |ime$+" ".'B"   t|
00005cb0  69 6d 65 24 3d 74 69 6d  65 24 2b c1 74 65 6d 70  |ime$=time$+.temp|
00005cc0  74 69 6d 65 24 2c 35 2c  32 29 0d 27 4c 16 20 20  |time$,5,2).'L.  |
00005cd0  20 74 69 6d 65 24 3d 74  69 6d 65 24 2b 22 20 22  | time$=time$+" "|
00005ce0  0d 27 56 20 20 20 20 74  69 6d 65 24 3d 74 69 6d  |.'V    time$=tim|
00005cf0  65 24 2b c2 74 65 6d 70  74 69 6d 65 24 2c 31 29  |e$+.temptime$,1)|
00005d00  0d 27 60 05 e1 0d 27 6a  04 0d 27 74 13 dd 20 f2  |.'`...'j..'t.. .|
00005d10  70 75 74 5f 69 6e 5f 74  61 62 6c 65 0d 27 7e 14  |put_in_table.'~.|
00005d20  20 20 20 68 69 28 70 6f  73 29 3d 73 63 6f 72 65  |   hi(pos)=score|
00005d30  0d 27 88 24 20 20 20 68  69 24 28 70 6f 73 29 3d  |.'.$   hi$(pos)=|
00005d40  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00005d50  20 20 20 22 0d 27 92 05  e1 0d 27 9c 04 0d 27 a6  |   ".'....'...'.|
00005d60  18 dd 20 f2 72 65 5f 73  68 75 66 66 6c 65 5f 73  |.. .re_shuffle_s|
00005d70  63 6f 72 65 73 0d 27 b0  11 20 20 20 e7 20 70 6f  |cores.'..   . po|
00005d80  73 3c 3e 39 20 8c 0d 27  ba 1c 20 20 20 20 20 20  |s<>9 ..'..      |
00005d90  e3 20 6c 6f 6f 70 3d 38  20 b8 20 70 6f 73 20 88  |. loop=8 . pos .|
00005da0  2d 31 0d 27 c4 20 20 20  20 20 20 20 20 20 20 68  |-1.'.          h|
00005db0  69 28 6c 6f 6f 70 2b 31  29 3d 68 69 28 6c 6f 6f  |i(loop+1)=hi(loo|
00005dc0  70 29 0d 27 ce 22 20 20  20 20 20 20 20 20 20 68  |p).'."         h|
00005dd0  69 24 28 6c 6f 6f 70 2b  31 29 3d 68 69 24 28 6c  |i$(loop+1)=hi$(l|
00005de0  6f 6f 70 29 0d 27 d8 0b  20 20 20 20 20 20 ed 0d  |oop).'..      ..|
00005df0  27 e2 08 20 20 20 cd 0d  27 ec 05 e1 0d 27 f6 04  |'..   ..'....'..|
00005e00  0d 28 00 11 dd 20 f2 65  6e 74 65 72 5f 6e 61 6d  |.(... .enter_nam|
00005e10  65 0d 28 0a 34 20 20 20  f2 50 72 69 6e 74 4c 69  |e.(.4   .PrintLi|
00005e20  6e 65 28 22 50 6c 65 61  73 65 20 65 6e 74 65 72  |ne("Please enter|
00005e30  20 79 6f 75 72 20 6e 61  6d 65 20 62 65 6c 6f 77  | your name below|
00005e40  22 2c 31 30 29 0d 28 14  0c 20 20 20 fb 20 31 32  |",10).(..   . 12|
00005e50  38 0d 28 1e 0a 20 20 20  fb 20 30 0d 28 28 0c 20  |8.(..   . 0.((. |
00005e60  20 20 e6 30 2c 31 30 0d  28 32 0d 20 20 20 e6 30  |  .0,10.(2.   .0|
00005e70  2c 31 32 38 0d 28 3c 0a  20 20 20 ef 20 35 0d 28  |,128.(<.   . 5.(|
00005e80  46 08 20 20 20 87 0d 28  50 19 20 20 20 ec 20 36  |F.   ..(P.   . 6|
00005e90  34 30 2c 37 35 34 2d 28  70 6f 73 2a 35 30 29 0d  |40,754-(pos*50).|
00005ea0  28 5a 0e 20 20 20 2a 46  58 31 35 2c 31 0d 28 64  |(Z.   *FX15,1.(d|
00005eb0  29 20 20 20 c8 99 22 4f  53 5f 52 65 61 64 4c 69  |)   .."OS_ReadLi|
00005ec0  6e 65 22 2c 62 75 25 2c  32 30 2c 33 32 2c 31 32  |ne",bu%,20,32,12|
00005ed0  36 20 b8 20 2c 6c 0d 28  6e 18 20 20 20 68 69 24  |6 . ,l.(n.   hi$|
00005ee0  28 70 6f 73 29 3d a4 6a  6f 69 6e 28 6c 29 0d 28  |(pos)=.join(l).(|
00005ef0  78 09 20 20 20 ef 34 0d  28 82 08 20 20 20 87 0d  |x.   .4.(..   ..|
00005f00  28 8c 0e 20 20 20 2a 46  58 31 35 2c 31 0d 28 96  |(..   *FX15,1.(.|
00005f10  08 20 20 20 f5 0d 28 a0  13 20 20 20 20 20 20 6b  |.   ..(..      k|
00005f20  65 79 24 3d bf 28 30 29  0d 28 aa 10 20 20 20 fd  |ey$=.(0).(..   .|
00005f30  20 6b 65 79 24 3d 22 22  0d 28 b4 0e 20 20 20 2a  | key$="".(..   *|
00005f40  46 58 31 35 2c 31 0d 28  be 12 20 20 20 f2 43 6c  |FX15,1.(..   .Cl|
00005f50  65 61 72 52 61 64 61 72  0d 28 c8 05 e1 0d 28 d2  |earRadar.(....(.|
00005f60  04 0d 28 dc 0e dd 20 a4  6a 6f 69 6e 28 6c 29 0d  |..(... .join(l).|
00005f70  28 e6 0c 20 20 20 73 24  3d 22 22 0d 28 f0 13 20  |(..   s$="".(.. |
00005f80  20 20 e3 20 6c 6c 3d 30  20 b8 20 6c 2d 31 0d 28  |  . ll=0 . l-1.(|
00005f90  fa 1a 20 20 20 20 20 20  73 24 3d 73 24 2b bd 3f  |..      s$=s$+.?|
00005fa0  28 62 75 25 2b 6c 6c 29  0d 29 04 08 20 20 20 ed  |(bu%+ll).)..   .|
00005fb0  0d 29 0e 07 3d 73 24 0d  29 18 04 0d 29 22 11 dd  |.)..=s$.)...)"..|
00005fc0  20 a4 75 70 63 61 73 65  28 73 24 29 0d 29 2c 0d  | .upcase(s$).),.|
00005fd0  20 20 20 73 32 24 3d 22  22 0d 29 36 15 20 20 20  |   s2$="".)6.   |
00005fe0  e3 20 6c 6c 3d 31 20 b8  20 a9 28 73 24 29 0d 29  |. ll=1 . .(s$).)|
00005ff0  40 17 20 20 20 20 20 20  73 33 24 3d c1 73 24 2c  |@.      s3$=.s$,|
00006000  6c 6c 2c 31 29 0d 29 4a  30 20 20 20 20 20 20 e7  |ll,1).)J0      .|
00006010  20 73 33 24 3e 3d 22 61  22 20 80 20 73 33 24 3c  | s3$>="a" . s3$<|
00006020  3d 22 7a 22 20 73 33 24  3d bd 28 97 28 73 33 24  |="z" s3$=.(.(s3$|
00006030  29 2d 33 32 29 0d 29 54  15 20 20 20 20 20 20 73  |)-32).)T.      s|
00006040  32 24 3d 73 32 24 2b 73  33 24 0d 29 5e 08 20 20  |2$=s2$+s3$.)^.  |
00006050  20 ed 0d 29 68 08 3d 73  32 24 0d 29 72 04 0d 29  | ..)h.=s2$.)r..)|
00006060  7c 1f dd 20 f2 63 6f 6e  5f 6e 75 6d 28 69 6e 74  ||.. .con_num(int|
00006070  2c 63 68 72 73 2c f8 20  72 65 74 24 29 0d 29 86  |,chrs,. ret$).).|
00006080  12 20 20 20 72 65 74 24  3d c3 28 69 6e 74 29 0d  |.   ret$=.(int).|
00006090  29 90 17 20 20 20 c8 95  20 a9 28 72 65 74 24 29  |)..   .. .(ret$)|
000060a0  3c 3e 63 68 72 73 0d 29  9a 16 20 20 20 20 20 72  |<>chrs.)..     r|
000060b0  65 74 24 3d 22 20 22 2b  72 65 74 24 0d 29 a4 08  |et$=" "+ret$.)..|
000060c0  20 20 20 ce 0d 29 ae 05  e1 0d 29 b8 04 0d 29 c2  |   ..)....)...).|
000060d0  1c dd 20 f2 44 65 63 6f  64 65 44 65 6c 61 79 28  |.. .DecodeDelay(|
000060e0  69 6e 24 2c 20 f8 20 70  29 0d 29 cc 0b 20 20 20  |in$, . p).)..   |
000060f0  ea 20 64 24 0d 29 d6 0b  20 20 20 70 2b 3d 31 0d  |. d$.)..   p+=1.|
00006100  29 e0 0c 20 20 20 64 24  3d 22 22 0d 29 ea 08 20  |)..   d$="".).. |
00006110  20 20 f5 0d 29 f4 19 20  20 20 20 20 20 64 24 3d  |  ..)..      d$=|
00006120  64 24 2b c1 69 6e 24 2c  70 2c 31 29 0d 29 fe 0e  |d$+.in$,p,1).)..|
00006130  20 20 20 20 20 20 70 2b  3d 31 0d 2a 08 16 20 20  |      p+=1.*..  |
00006140  20 fd 20 c1 69 6e 24 2c  70 2c 31 29 3d 22 5e 22  | . .in$,p,1)="^"|
00006150  0d 2a 12 0b 20 20 20 70  2b 3d 31 0d 2a 1c 1e 20  |.*..   p+=1.*.. |
00006160  20 20 e7 20 ac 20 73 70  65 65 64 20 f2 44 65 6c  |  . . speed .Del|
00006170  61 79 28 bb 28 64 24 29  29 0d 2a 26 05 e1 0d 2a  |ay(.(d$)).*&...*|
00006180  30 04 0d 2a 3a 16 dd 20  f2 44 65 63 6f 64 65 28  |0..*:.. .Decode(|
00006190  69 6e 24 2c f8 20 70 29  0d 2a 44 0b 20 20 20 70  |in$,. p).*D.   p|
000061a0  2b 3d 31 0d 2a 4e 2c 20  20 20 e7 20 c1 69 6e 24  |+=1.*N,   . .in$|
000061b0  2c 70 2c 31 29 3d 22 50  22 20 8c 20 f2 44 65 63  |,p,1)="P" . .Dec|
000061c0  6f 64 65 44 65 6c 61 79  28 69 6e 24 2c 70 29 0d  |odeDelay(in$,p).|
000061d0  2a 58 05 e1 0d 2a 62 04  0d 2a 6c 20 dd 20 f2 45  |*X...*b..*l . .E|
000061e0  78 74 72 61 63 74 57 6f  72 64 28 69 6e 24 2c f8  |xtractWord(in$,.|
000061f0  20 70 2c f8 20 77 24 29  0d 2a 76 0c 20 20 20 77  | p,. w$).*v.   w|
00006200  24 3d 22 22 0d 2a 80 29  20 20 20 c8 95 20 28 c1  |$="".*.)   .. (.|
00006210  69 6e 24 2c 70 2c 31 29  3c 3e 22 20 22 29 20 20  |in$,p,1)<>" ")  |
00006220  80 20 28 70 3c 3d a9 28  69 6e 24 29 29 0d 2a 8a  |. (p<=.(in$)).*.|
00006230  1b 20 20 20 20 20 20 e7  20 c1 69 6e 24 2c 70 2c  |.      . .in$,p,|
00006240  31 29 3d 22 5e 22 20 8c  0d 2a 94 1b 20 20 20 20  |1)="^" ..*..    |
00006250  20 20 20 20 20 f2 44 65  63 6f 64 65 28 69 6e 24  |     .Decode(in$|
00006260  2c 70 29 0d 2a 9e 0b 20  20 20 20 20 20 cc 0d 2a  |,p).*..      ..*|
00006270  a8 1c 20 20 20 20 20 20  20 20 20 77 24 3d 77 24  |..         w$=w$|
00006280  2b c1 69 6e 24 2c 70 2c  31 29 0d 2a b2 11 20 20  |+.in$,p,1).*..  |
00006290  20 20 20 20 20 20 20 70  2b 3d 31 0d 2a bc 0b 20  |       p+=1.*.. |
000062a0  20 20 20 20 20 cd 0d 2a  c6 08 20 20 20 ce 0d 2a  |     ..*..   ..*|
000062b0  d0 1d 20 20 20 e7 20 c1  69 6e 24 2c 70 2c 31 29  |..   . .in$,p,1)|
000062c0  3d 22 20 22 20 8c 20 70  2b 3d 31 0d 2a da 05 e1  |=" " . p+=1.*...|
000062d0  0d 2a e4 04 0d 2a ee 1a  dd 20 f2 50 72 69 6e 74  |.*...*... .Print|
000062e0  57 6f 72 64 28 70 77 24  2c f8 20 6c 78 29 0d 2a  |Word(pw$,. lx).*|
000062f0  f8 0a 20 20 20 ea 20 6c  0d 2b 02 15 20 20 20 e3  |..   . l.+..   .|
00006300  20 6c 3d 31 20 b8 20 a9  28 70 77 24 29 0d 2b 0c  | l=1 . .(pw$).+.|
00006310  22 20 20 20 20 20 20 41  24 3d bf 28 30 29 3a e7  |"      A$=.(0):.|
00006320  20 41 24 3c 3e 22 22 20  73 70 65 65 64 3d b9 0d  | A$<>"" speed=..|
00006330  2b 16 22 20 20 20 20 20  20 e7 20 ac 20 73 70 65  |+."      . . spe|
00006340  65 64 20 f2 44 65 6c 61  79 28 b3 28 33 29 2b 32  |ed .Delay(.(3)+2|
00006350  29 0d 2b 20 19 20 20 20  20 20 20 d4 20 31 2c 2d  |).+ .      . 1,-|
00006360  31 35 2c 26 31 34 30 30  2c 31 0d 2b 2a 22 20 20  |15,&1400,1.+*"  |
00006370  20 20 20 20 f1 8a 6c 78  2c 6d 65 73 73 61 67 65  |    ..lx,message|
00006380  5f 79 29 c1 70 77 24 2c  6c 2c 31 29 0d 2b 34 0f  |_y).pw$,l,1).+4.|
00006390  20 20 20 20 20 20 6c 78  2b 3d 31 0d 2b 3e 0a 20  |      lx+=1.+>. |
000063a0  20 20 ed 20 6c 0d 2b 48  05 e1 0d 2b 52 04 0d 2b  |  . l.+H...+R..+|
000063b0  5c 04 0d 2b 66 16 dd 20  f2 50 72 69 6e 74 4c 69  |\..+f.. .PrintLi|
000063c0  6e 65 28 6c 24 2c 63 29  0d 2b 70 16 20 20 20 e7  |ne(l$,c).+p.   .|
000063d0  20 6d 65 73 73 61 67 65  5f 79 3c 35 20 8c 0d 2b  | message_y<5 ..+|
000063e0  7a 16 20 20 20 20 20 20  6d 65 73 73 61 67 65 5f  |z.      message_|
000063f0  79 2b 3d 31 0d 2b 84 08  20 20 20 cc 0d 2b 8e 16  |y+=1.+..   ..+..|
00006400  20 20 20 20 20 20 f2 53  63 72 6f 6c 6c 55 70 28  |      .ScrollUp(|
00006410  38 29 0d 2b 98 08 20 20  20 cd 0d 2b a2 0a 20 20  |8).+..   ..+..  |
00006420  20 fb 20 63 0d 2b ac 1c  20 20 20 2a 43 48 41 4e  | . c.+..   *CHAN|
00006430  4e 45 4c 56 4f 49 43 45  20 31 20 42 4c 45 45 50  |NELVOICE 1 BLEEP|
00006440  0d 2b b6 1c 20 20 20 ea  20 78 2c 6c 2c 72 2c 63  |.+..   . x,l,r,c|
00006450  68 61 72 70 6f 73 2c 77  6f 72 64 24 0d 2b c0 0b  |harpos,word$.+..|
00006460  20 20 20 78 3d 31 32 0d  2b ca 10 20 20 20 63 68  |   x=12.+..   ch|
00006470  61 72 70 6f 73 3d 31 0d  2b d4 08 20 20 20 f5 0d  |arpos=1.+..   ..|
00006480  2b de 28 20 20 20 20 20  20 f2 45 78 74 72 61 63  |+.(      .Extrac|
00006490  74 57 6f 72 64 28 6c 24  2c 63 68 61 72 70 6f 73  |tWord(l$,charpos|
000064a0  2c 77 6f 72 64 24 29 0d  2b e8 1b 20 20 20 20 20  |,word$).+..     |
000064b0  20 e7 20 a9 28 77 6f 72  64 24 29 2b 78 3c 32 39  | . .(word$)+x<29|
000064c0  20 8c 0d 2b f2 20 20 20  20 20 20 20 20 20 20 f2  | ..+.          .|
000064d0  50 72 69 6e 74 57 6f 72  64 28 77 6f 72 64 24 2c  |PrintWord(word$,|
000064e0  78 29 0d 2b fc 27 20 20  20 20 20 20 20 20 20 e7  |x).+.'         .|
000064f0  20 78 3c 32 38 20 8c 20  f2 50 72 69 6e 74 57 6f  | x<28 . .PrintWo|
00006500  72 64 28 22 20 22 2c 78  29 0d 2c 06 0b 20 20 20  |rd(" ",x).,..   |
00006510  20 20 20 cc 0d 2c 10 11  20 20 20 20 20 20 20 20  |   ..,..        |
00006520  20 78 3d 31 32 0d 2c 1a  1c 20 20 20 20 20 20 20  | x=12.,..       |
00006530  20 20 e7 20 6d 65 73 73  61 67 65 5f 79 3c 35 20  |  . message_y<5 |
00006540  8c 0d 2c 24 1c 20 20 20  20 20 20 20 20 20 20 20  |..,$.           |
00006550  20 6d 65 73 73 61 67 65  5f 79 2b 3d 31 0d 2c 2e  | message_y+=1.,.|
00006560  0e 20 20 20 20 20 20 20  20 20 cc 0d 2c 38 1c 20  |.         ..,8. |
00006570  20 20 20 20 20 20 20 20  20 20 20 f2 53 63 72 6f  |           .Scro|
00006580  6c 6c 55 70 28 38 29 0d  2c 42 0e 20 20 20 20 20  |llUp(8).,B.     |
00006590  20 20 20 20 cd 0d 2c 4c  20 20 20 20 20 20 20 20  |    ..,L        |
000065a0  20 20 f2 50 72 69 6e 74  57 6f 72 64 28 77 6f 72  |  .PrintWord(wor|
000065b0  64 24 2c 78 29 0d 2c 56  27 20 20 20 20 20 20 20  |d$,x).,V'       |
000065c0  20 20 e7 20 78 3c 32 37  20 8c 20 f2 50 72 69 6e  |  . x<27 . .Prin|
000065d0  74 57 6f 72 64 28 22 20  22 2c 78 29 0d 2c 60 0b  |tWord(" ",x).,`.|
000065e0  20 20 20 20 20 20 cd 0d  2c 6a 16 20 20 20 fd 20  |      ..,j.   . |
000065f0  63 68 61 72 70 6f 73 3e  a9 28 6c 24 29 0d 2c 74  |charpos>.(l$).,t|
00006600  05 e1 0d 2c 7e 04 0d 2c  88 12 dd 20 f2 52 6f 74  |...,~..,... .Rot|
00006610  61 74 65 53 74 61 72 73  0d 2c 92 0c 20 20 20 2a  |ateStars.,..   *|
00006620  46 58 31 35 0d 2c 9c 08  20 20 20 f5 0d 2c a6 13  |FX15.,..   ..,..|
00006630  20 20 20 20 20 20 e3 20  4c 3d 30 20 b8 20 37 0d  |      . L=0 . 7.|
00006640  2c b0 12 20 20 20 20 20  20 20 20 20 2a 46 58 31  |,..         *FX1|
00006650  39 0d 2c ba 26 20 20 20  20 20 20 20 20 20 f2 70  |9.,.&         .p|
00006660  6c 6f 74 28 22 53 54 41  52 22 2b c3 4c 2c 31 30  |lot("STAR"+.L,10|
00006670  31 36 2c 36 33 30 29 0d  2c c4 26 20 20 20 20 20  |16,630).,.&     |
00006680  20 20 20 20 f2 70 6c 6f  74 28 22 53 54 41 52 22  |    .plot("STAR"|
00006690  2b c3 4c 2c 31 30 31 36  2c 32 38 36 29 0d 2c ce  |+.L,1016,286).,.|
000066a0  25 20 20 20 20 20 20 20  20 20 f2 70 6c 6f 74 28  |%         .plot(|
000066b0  22 53 54 41 52 22 2b c3  4c 2c 32 30 30 2c 36 33  |"STAR"+.L,200,63|
000066c0  30 29 0d 2c d8 25 20 20  20 20 20 20 20 20 20 f2  |0).,.%         .|
000066d0  70 6c 6f 74 28 22 53 54  41 52 22 2b c3 4c 2c 32  |plot("STAR"+.L,2|
000066e0  30 30 2c 32 38 36 29 0d  2c e2 21 20 20 20 20 20  |00,286).,.!     |
000066f0  20 20 20 20 41 24 3d bf  28 30 29 3a e7 20 41 24  |    A$=.(0):. A$|
00006700  3c 3e 22 22 20 4c 3d 38  0d 2c ec 0d 20 20 20 20  |<>"" L=8.,..    |
00006710  20 20 ed 20 4c 0d 2c f6  0f 20 20 20 fd 20 41 24  |  . L.,..   . A$|
00006720  3c 3e 22 22 0d 2d 00 05  e1 0d 2d 0a 04 0d 2d 14  |<>"".-....-...-.|
00006730  0b 20 dd 20 f2 46 69 6e  0d 2d 1e 21 20 20 20 20  |. . .Fin.-.!    |
00006740  2a 43 48 41 4e 4e 45 4c  56 4f 49 43 45 20 31 20  |*CHANNELVOICE 1 |
00006750  45 58 50 4c 4f 53 49 4f  4e 0d 2d 28 1a 20 20 20  |EXPLOSION.-(.   |
00006760  20 e3 20 6c 3d 37 38 34  20 b8 20 31 30 32 34 20  | . l=784 . 1024 |
00006770  88 20 38 0d 2d 32 1a 20  20 20 20 20 20 20 d4 20  |. 8.-2.       . |
00006780  31 2c 2d 31 35 2c 6c 2d  37 38 34 2c 32 0d 2d 3c  |1,-15,l-784,2.-<|
00006790  14 20 20 20 20 20 20 20  f2 44 65 6c 61 79 28 31  |.       .Delay(1|
000067a0  29 0d 2d 46 1f 20 20 20  20 20 20 20 f2 70 6c 6f  |).-F.       .plo|
000067b0  74 28 22 44 49 53 50 4c  41 59 22 2c 30 2c 6c 29  |t("DISPLAY",0,l)|
000067c0  0d 2d 50 0b 20 20 20 20  ed 20 6c 0d 2d 5a 19 20  |.-P.    . l.-Z. |
000067d0  20 20 20 e3 20 6c 3d 30  20 b8 20 2d 32 35 36 20  |   . l=0 . -256 |
000067e0  88 20 2d 38 0d 2d 64 21  20 20 20 20 20 20 20 f2  |. -8.-d!       .|
000067f0  70 6c 6f 74 28 22 4d 4f  55 4e 54 41 49 4e 53 22  |plot("MOUNTAINS"|
00006800  2c 30 2c 6c 29 0d 2d 6e  1a 20 20 20 20 20 20 20  |,0,l).-n.       |
00006810  d4 20 31 2c 2d 31 35 2c  6c 2b 32 35 36 2c 32 0d  |. 1,-15,l+256,2.|
00006820  2d 78 14 20 20 20 20 20  20 20 f2 44 65 6c 61 79  |-x.       .Delay|
00006830  28 31 29 0d 2d 82 0b 20  20 20 20 ed 20 6c 0d 2d  |(1).-..    . l.-|
00006840  8c 09 20 20 20 20 db 0d  2d 96 1d 20 20 20 20 f2  |..    ..-..    .|
00006850  70 6c 6f 74 28 22 4c 4f  47 4f 22 2c 34 35 30 2c  |plot("LOGO",450,|
00006860  36 30 30 29 0d 2d a0 39  20 20 20 20 f2 43 65 6e  |600).-.9    .Cen|
00006870  74 72 65 28 22 43 6f 70  79 72 69 67 68 74 20 a9  |tre("Copyright .|
00006880  20 41 72 63 68 69 6d 65  64 65 73 20 57 6f 72 6c  | Archimedes Worl|
00006890  64 20 31 39 39 33 22 2c  31 36 2c 39 29 0d 2d dc  |d 1993",16,9).-.|
000068a0  0a 20 20 20 fb 20 38 0d  2d e6 06 20 e1 0d 2d f0  |.   . 8.-.. ..-.|
000068b0  04 0d 2d fa 15 dd 20 f2  57 69 6d 70 49 6e 69 74  |..-... .WimpInit|
000068c0  69 61 6c 69 73 65 0d 2e  04 12 20 20 de 20 62 6c  |ialise....  . bl|
000068d0  6f 63 6b 25 20 33 30 30  0d 2e 0e 1c 20 20 de 20  |ock% 300....  . |
000068e0  77 69 6e 62 25 20 32 36  30 30 2c 6d 65 6e 75 25  |winb% 2600,menu%|
000068f0  20 31 34 37 0d 2e 18 38  20 20 de 20 69 6e 64 31  | 147...8  . ind1|
00006900  25 20 31 35 30 2c 69 6e  64 32 25 20 31 35 30 2c  |% 150,ind2% 150,|
00006910  69 6e 64 33 25 20 36 30  30 2c 69 6e 64 34 25 20  |ind3% 600,ind4% |
00006920  32 30 2c 20 6e 61 6d 65  25 20 31 31 0d 2e 22 26  |20, name% 11.."&|
00006930  20 20 66 69 31 25 3d 8e  22 3c 41 63 65 43 72 75  |  fi1%=."<AceCru|
00006940  73 61 64 65 72 24 44 69  72 3e 2e 67 72 61 66 69  |sader$Dir>.grafi|
00006950  78 22 0d 2e 2c 14 20 20  73 69 7a 65 25 3d a2 23  |x"..,.  size%=.#|
00006960  66 69 31 25 2b 34 0d 2e  36 0d 20 20 d9 23 20 66  |fi1%+4..6.  .# f|
00006970  69 31 25 0d 2e 40 15 20  20 de 20 73 73 70 61 63  |i1%..@.  . sspac|
00006980  65 25 20 73 69 7a 65 25  0d 2e 4a 14 20 20 21 73  |e% size%..J.  !s|
00006990  73 70 61 63 65 25 3d 73  69 7a 65 25 0d 2e 54 12  |space%=size%..T.|
000069a0  20 20 73 73 70 61 63 65  25 21 38 3d 31 36 0d 2e  |  sspace%!8=16..|
000069b0  5e 3d 20 20 c8 99 22 4f  53 5f 53 70 72 69 74 65  |^=  .."OS_Sprite|
000069c0  4f 70 22 2c 26 31 30 41  2c 73 73 70 61 63 65 25  |Op",&10A,sspace%|
000069d0  2c 22 3c 41 63 65 43 72  75 73 61 64 65 72 24 44  |,"<AceCrusader$D|
000069e0  69 72 3e 2e 67 72 61 66  69 78 22 0d 2e 68 13 20  |ir>.grafix"..h. |
000069f0  20 24 6e 61 6d 65 25 3d  22 49 6e 66 6f 22 0d 2e  | $name%="Info"..|
00006a00  72 21 20 20 71 75 69 74  25 3d a3 3a 61 70 70 24  |r!  quit%=.:app$|
00006a10  3d 22 41 63 65 20 43 72  75 73 61 64 65 72 22 0d  |="Ace Crusader".|
00006a20  2e 7c 2d 20 20 c8 99 20  22 57 69 6d 70 5f 49 6e  |.|-  .. "Wimp_In|
00006a30  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 26 34  |itialise",200,&4|
00006a40  42 35 33 34 31 35 34 2c  61 70 70 24 0d 2e 86 10  |B534154,app$....|
00006a50  20 20 21 62 6c 6f 63 6b  25 3d 2d 31 0d 2e 90 10  |  !block%=-1....|
00006a60  20 20 62 6c 6f 63 6b 25  21 34 3d 30 0d 2e 9a 11  |  block%!4=0....|
00006a70  20 20 62 6c 6f 63 6b 25  21 38 3d 32 34 0d 2e a4  |  block%!8=24...|
00006a80  12 20 20 62 6c 6f 63 6b  25 21 31 32 3d 39 36 0d  |.  block%!12=96.|
00006a90  2e ae 12 20 20 62 6c 6f  63 6b 25 21 31 36 3d 35  |...  block%!16=5|
00006aa0  36 0d 2e b8 15 20 20 62  6c 6f 63 6b 25 21 32 30  |6....  block%!20|
00006ab0  3d 26 33 30 30 32 0d 2e  c2 1e 20 20 24 28 62 6c  |=&3002....  $(bl|
00006ac0  6f 63 6b 25 2b 32 34 29  3d 22 21 43 72 75 73 61  |ock%+24)="!Crusa|
00006ad0  64 65 72 22 0d 2e cc 22  20 20 c8 99 20 22 57 69  |der"..."  .. "Wi|
00006ae0  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
00006af0  62 6c 6f 63 6b 25 0d 2e  d6 3b 20 20 c8 99 20 22  |block%...;  .. "|
00006b00  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
00006b10  65 22 2c 2c 22 3c 41 63  65 43 72 75 73 61 64 65  |e",,"<AceCrusade|
00006b20  72 24 44 69 72 3e 2e 74  65 6d 70 6c 61 74 65 73  |r$Dir>.templates|
00006b30  22 0d 2e e0 3e 20 20 c8  99 20 22 57 69 6d 70 5f  |"...>  .. "Wimp_|
00006b40  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 77  |LoadTemplate",,w|
00006b50  69 6e 62 25 2c 69 6e 64  31 25 2c 69 6e 64 31 25  |inb%,ind1%,ind1%|
00006b60  2b 31 35 30 2c 2d 31 2c  6e 61 6d 65 25 2c 30 0d  |+150,-1,name%,0.|
00006b70  2e ea 2b 20 20 c8 99 20  22 57 69 6d 70 5f 43 72  |..+  .. "Wimp_Cr|
00006b80  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 77 69 6e  |eateWindow",,win|
00006b90  62 25 20 b8 20 69 6e 66  6f 25 0d 2e f4 19 20 20  |b% . info%....  |
00006ba0  24 6e 61 6d 65 25 3d 22  49 4e 49 54 49 41 4c 49  |$name%="INITIALI|
00006bb0  53 45 22 0d 2e fe 3e 20  20 c8 99 20 22 57 69 6d  |SE"...>  .. "Wim|
00006bc0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00006bd0  2c 77 69 6e 62 25 2c 69  6e 64 32 25 2c 69 6e 64  |,winb%,ind2%,ind|
00006be0  32 25 2b 31 35 30 2c 2d  31 2c 6e 61 6d 65 25 2c  |2%+150,-1,name%,|
00006bf0  30 0d 2f 08 2b 20 20 c8  99 20 22 57 69 6d 70 5f  |0./.+  .. "Wimp_|
00006c00  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 77  |CreateWindow",,w|
00006c10  69 6e 62 25 20 b8 20 69  6e 69 74 25 0d 2f 12 18  |inb% . init%./..|
00006c20  20 20 24 6e 61 6d 65 25  3d 22 48 49 2d 53 43 4f  |  $name%="HI-SCO|
00006c30  52 45 53 22 0d 2f 1c 3e  20 20 c8 99 20 22 57 69  |RES"./.>  .. "Wi|
00006c40  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00006c50  2c 2c 77 69 6e 62 25 2c  69 6e 64 33 25 2c 69 6e  |,,winb%,ind3%,in|
00006c60  64 33 25 2b 36 30 30 2c  2d 31 2c 6e 61 6d 65 25  |d3%+600,-1,name%|
00006c70  2c 30 0d 2f 26 16 20 20  77 69 6e 62 25 21 36 34  |,0./&.  winb%!64|
00006c80  3d 73 73 70 61 63 65 25  0d 2f 30 2f 20 20 c8 99  |=sspace%./0/  ..|
00006c90  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00006ca0  64 6f 77 22 2c 2c 77 69  6e 62 25 20 b8 20 68 69  |dow",,winb% . hi|
00006cb0  73 63 6f 72 65 73 25 0d  2f 3a 19 20 20 24 6e 61  |scores%./:.  $na|
00006cc0  6d 65 25 3d 22 53 4f 55  4e 44 43 48 45 43 4b 22  |me%="SOUNDCHECK"|
00006cd0  0d 2f 44 3d 20 20 c8 99  20 22 57 69 6d 70 5f 4c  |./D=  .. "Wimp_L|
00006ce0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 77 69  |oadTemplate",,wi|
00006cf0  6e 62 25 2c 69 6e 64 34  25 2c 69 6e 64 34 25 2b  |nb%,ind4%,ind4%+|
00006d00  32 30 2c 2d 31 2c 6e 61  6d 65 25 2c 30 0d 2f 4e  |20,-1,name%,0./N|
00006d10  10 20 20 77 69 6e 62 25  21 36 34 3d 31 0d 2f 58  |.  winb%!64=1./X|
00006d20  2d 20 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |-  .. "Wimp_Crea|
00006d30  74 65 57 69 6e 64 6f 77  22 2c 2c 77 69 6e 62 25  |teWindow",,winb%|
00006d40  20 b8 20 73 6f 75 6e 64  73 25 0d 2f 62 1d 20 20  | . sounds%./b.  |
00006d50  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |.. "Wimp_CloseTe|
00006d60  6d 70 6c 61 74 65 22 0d  2f 6c 12 20 20 21 77 69  |mplate"./l.  !wi|
00006d70  6e 62 25 3d 69 6e 69 74  25 0d 2f 76 25 20 20 c8  |nb%=init%./v%  .|
00006d80  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00006d90  77 53 74 61 74 65 22 2c  2c 77 69 6e 62 25 0d 2f  |wState",,winb%./|
00006da0  80 21 20 20 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |.!  .. "Wimp_Ope|
00006db0  6e 57 69 6e 64 6f 77 22  2c 2c 77 69 6e 62 25 0d  |nWindow",,winb%.|
00006dc0  2f 8a 17 20 20 24 6d 65  6e 75 25 3d 22 43 72 75  |/..  $menu%="Cru|
00006dd0  73 61 64 65 72 22 0d 2f  94 15 20 20 6d 65 6e 75  |sader"./..  menu|
00006de0  25 21 31 32 3d 26 37 30  32 30 37 0d 2f 9e 12 20  |%!12=&70207./.. |
00006df0  20 6d 65 6e 75 25 21 31  36 3d 31 36 30 0d 2f a8  | menu%!16=160./.|
00006e00  11 20 20 6d 65 6e 75 25  21 32 30 3d 34 34 0d 2f  |.  menu%!20=44./|
00006e10  b2 10 20 20 6d 65 6e 75  25 21 32 34 3d 30 0d 2f  |..  menu%!24=0./|
00006e20  bc 13 20 20 70 74 72 25  3d 6d 65 6e 75 25 2b 32  |..  ptr%=menu%+2|
00006e30  38 0d 2f c6 0d 20 20 21  70 74 72 25 3d 30 0d 2f  |8./..  !ptr%=0./|
00006e40  d0 12 20 20 70 74 72 25  21 34 3d 69 6e 66 6f 25  |..  ptr%!4=info%|
00006e50  0d 2f da 15 20 20 70 74  72 25 21 38 3d 26 37 30  |./..  ptr%!8=&70|
00006e60  30 30 30 32 31 0d 2f e4  17 20 20 24 28 70 74 72  |00021./..  $(ptr|
00006e70  25 2b 31 32 29 3d 22 49  6e 66 6f 22 0d 2f ee 0e  |%+12)="Info"./..|
00006e80  20 20 70 74 72 25 2b 3d  32 34 0d 2f f8 0d 20 20  |  ptr%+=24./..  |
00006e90  21 70 74 72 25 3d 30 0d  30 02 0f 20 20 70 74 72  |!ptr%=0.0..  ptr|
00006ea0  25 21 34 3d 2d 31 0d 30  0c 15 20 20 70 74 72 25  |%!4=-1.0..  ptr%|
00006eb0  21 38 3d 26 37 30 30 30  30 32 31 0d 30 16 1c 20  |!8=&7000021.0.. |
00006ec0  20 24 28 70 74 72 25 2b  31 32 29 3d 22 50 6c 61  | $(ptr%+12)="Pla|
00006ed0  79 20 67 61 6d 65 22 0d  30 20 0e 20 20 70 74 72  |y game".0 .  ptr|
00006ee0  25 2b 3d 32 34 0d 30 2a  0d 20 20 21 70 74 72 25  |%+=24.0*.  !ptr%|
00006ef0  3d 30 0d 30 34 0f 20 20  70 74 72 25 21 34 3d 2d  |=0.04.  ptr%!4=-|
00006f00  31 0d 30 3e 15 20 20 70  74 72 25 21 38 3d 26 37  |1.0>.  ptr%!8=&7|
00006f10  30 30 30 30 32 31 0d 30  48 1c 20 20 24 28 70 74  |000021.0H.  $(pt|
00006f20  72 25 2b 31 32 29 3d 22  48 69 20 73 63 6f 72 65  |r%+12)="Hi score|
00006f30  73 22 0d 30 52 0e 20 20  70 74 72 25 2b 3d 32 34  |s".0R.  ptr%+=24|
00006f40  0d 30 5c 0d 20 20 21 70  74 72 25 3d 30 0d 30 66  |.0\.  !ptr%=0.0f|
00006f50  0f 20 20 70 74 72 25 21  34 3d 2d 31 0d 30 70 15  |.  ptr%!4=-1.0p.|
00006f60  20 20 70 74 72 25 21 38  3d 26 37 30 30 30 30 32  |  ptr%!8=&700002|
00006f70  31 0d 30 7a 19 20 20 24  28 70 74 72 25 2b 31 32  |1.0z.  $(ptr%+12|
00006f80  29 3d 22 53 6f 75 6e 64  73 22 0d 30 84 0e 20 20  |)="Sounds".0..  |
00006f90  70 74 72 25 2b 3d 32 34  0d 30 8e 0f 20 20 21 70  |ptr%+=24.0..  !p|
00006fa0  74 72 25 3d 26 38 30 0d  30 98 0f 20 20 70 74 72  |tr%=&80.0..  ptr|
00006fb0  25 21 34 3d 2d 31 0d 30  a2 15 20 20 70 74 72 25  |%!4=-1.0..  ptr%|
00006fc0  21 38 3d 26 37 30 30 30  30 32 31 0d 30 ac 17 20  |!8=&7000021.0.. |
00006fd0  20 24 28 70 74 72 25 2b  31 32 29 3d 22 51 75 69  | $(ptr%+12)="Qui|
00006fe0  74 22 0d 30 b6 0f 20 20  e3 20 6c 3d 31 20 b8 20  |t".0..  . l=1 . |
00006ff0  35 0d 30 c0 2a 20 20 20  20 20 c8 99 20 22 57 69  |5.0.*     .. "Wi|
00007000  6d 70 5f 50 6f 6c 6c 22  2c 30 2c 62 6c 6f 63 6b  |mp_Poll",0,block|
00007010  25 20 b8 20 72 65 61 73  6f 6e 25 0d 30 ca 09 20  |% . reason%.0.. |
00007020  20 ed 20 6c 0d 30 d4 16  20 20 c8 99 22 48 6f 75  | . l.0..  .."Hou|
00007030  72 67 6c 61 73 73 5f 4f  6e 22 0d 30 de 11 20 20  |rglass_On".0..  |
00007040  f2 49 6e 69 74 69 61 6c  69 73 65 0d 30 e8 0f 20  |.Initialise.0.. |
00007050  20 f2 43 6f 70 79 42 65  73 74 0d 30 f2 12 20 20  | .CopyBest.0..  |
00007060  21 77 69 6e 62 25 3d 69  6e 69 74 25 0d 30 fc 22  |!winb%=init%.0."|
00007070  20 20 c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |  .. "Wimp_Close|
00007080  57 69 6e 64 6f 77 22 2c  2c 77 69 6e 62 25 0d 31  |Window",,winb%.1|
00007090  06 17 20 20 c8 99 22 48  6f 75 72 67 6c 61 73 73  |..  .."Hourglass|
000070a0  5f 4f 66 66 22 0d 31 10  2d 20 20 f2 49 63 6f 6e  |_Off".1.-  .Icon|
000070b0  54 65 78 74 28 73 6f 75  6e 64 73 25 2c 38 2c 22  |Text(sounds%,8,"|
000070c0  47 61 6d 65 20 53 6f 75  6e 64 20 69 73 20 4f 6e  |Game Sound is On|
000070d0  22 29 0d 31 1a 05 e1 0d  31 24 04 0d 31 2e 0f dd  |").1....1$..1...|
000070e0  20 f2 43 6f 70 79 42 65  73 74 0d 31 38 0f 20 20  | .CopyBest.18.  |
000070f0  e3 20 6c 3d 31 20 b8 20  39 0d 31 42 2a 20 20 20  |. l=1 . 9.1B*   |
00007100  20 f2 49 63 6f 6e 54 65  78 74 28 68 69 73 63 6f  | .IconText(hisco|
00007110  72 65 73 25 2c 31 32 2b  6c 2c c3 28 68 69 28 6c  |res%,12+l,.(hi(l|
00007120  29 29 29 0d 31 4c 28 20  20 20 20 f2 49 63 6f 6e  |))).1L(    .Icon|
00007130  54 65 78 74 28 68 69 73  63 6f 72 65 73 25 2c 32  |Text(hiscores%,2|
00007140  31 2b 6c 2c 68 69 24 28  6c 29 29 0d 31 56 09 20  |1+l,hi$(l)).1V. |
00007150  20 ed 20 6c 0d 31 60 05  e1 0d 31 6a 04 0d 31 74  | . l.1`...1j..1t|
00007160  21 dd 20 f2 49 63 6f 6e  54 65 78 74 28 68 61 6e  |!. .IconText(han|
00007170  64 6c 65 25 2c 69 63 6f  6e 25 2c 73 24 29 0d 31  |dle%,icon%,s$).1|
00007180  7e 16 20 20 62 6c 6f 63  6b 25 21 30 3d 68 61 6e  |~.  block%!0=han|
00007190  64 6c 65 25 0d 31 88 14  20 20 62 6c 6f 63 6b 25  |dle%.1..  block%|
000071a0  21 34 3d 69 63 6f 6e 25  0d 31 92 23 20 20 c8 99  |!4=icon%.1.#  ..|
000071b0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000071c0  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 31 9c 15 20  |te",,block%.1.. |
000071d0  20 24 28 62 6c 6f 63 6b  25 21 32 38 29 3d 73 24  | $(block%!28)=s$|
000071e0  0d 31 a6 10 20 20 62 6c  6f 63 6b 25 21 38 3d 30  |.1..  block%!8=0|
000071f0  0d 31 b0 11 20 20 62 6c  6f 63 6b 25 21 31 32 3d  |.1..  block%!12=|
00007200  30 0d 31 ba 23 20 20 c8  99 22 57 69 6d 70 5f 53  |0.1.#  .."Wimp_S|
00007210  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00007220  6f 63 6b 25 0d 31 c4 05  e1 0d 31 ce 04 0d 31 d8  |ock%.1....1...1.|
00007230  0f dd 20 f2 57 69 6d 70  50 6f 6c 6c 0d 31 e2 27  |.. .WimpPoll.1.'|
00007240  20 20 c8 99 20 22 57 69  6d 70 5f 50 6f 6c 6c 22  |  .. "Wimp_Poll"|
00007250  2c 30 2c 62 6c 6f 63 6b  25 20 b8 20 72 65 61 73  |,0,block% . reas|
00007260  6f 6e 25 0d 31 ec 12 20  20 c8 8e 20 72 65 61 73  |on%.1..  .. reas|
00007270  6f 6e 25 20 ca 0d 31 f6  29 20 20 20 20 c9 20 32  |on% ..1.)    . 2|
00007280  20 3a 20 c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  | : .."Wimp_OpenW|
00007290  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 32  |indow",,block%.2|
000072a0  00 2a 20 20 20 20 c9 20  33 20 3a 20 c8 99 22 57  |.*    . 3 : .."W|
000072b0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
000072c0  2c 2c 62 6c 6f 63 6b 25  0d 32 0a 14 20 20 20 20  |,,block%.2..    |
000072d0  c9 20 36 20 3a 20 f2 63  6c 69 63 6b 0d 32 14 17  |. 6 : .click.2..|
000072e0  20 20 20 20 c9 20 39 20  3a 20 f2 4d 65 6e 75 49  |    . 9 : .MenuI|
000072f0  74 65 6d 0d 32 1e 1c 20  20 20 20 c9 20 31 37 2c  |tem.2..    . 17,|
00007300  31 38 20 3a 20 f2 4d 65  73 73 61 67 65 49 6e 0d  |18 : .MessageIn.|
00007310  32 28 07 20 20 cb 0d 32  32 05 e1 0d 32 3c 04 0d  |2(.  ..22...2<..|
00007320  32 46 10 dd 20 f2 4d 65  73 73 61 67 65 49 6e 0d  |2F.. .MessageIn.|
00007330  32 50 15 20 20 20 c8 8e  20 62 6c 6f 63 6b 25 21  |2P.   .. block%!|
00007340  31 36 20 ca 0d 32 5a 17  20 20 20 20 20 20 c9 20  |16 ..2Z.      . |
00007350  30 20 3a 20 71 75 69 74  25 3d b9 0d 32 64 08 20  |0 : quit%=..2d. |
00007360  20 20 cb 0d 32 6e 05 e1  0d 32 78 04 0d 32 82 0c  |  ..2n...2x..2..|
00007370  dd 20 f2 63 6c 69 63 6b  0d 32 8c 13 20 20 c8 8e  |. .click.2..  ..|
00007380  20 62 6c 6f 63 6b 25 21  38 20 ca 0d 32 96 1d 20  | block%!8 ..2.. |
00007390  20 20 20 c9 20 31 2c 34  20 3a 20 f2 53 65 6c 65  |   . 1,4 : .Sele|
000073a0  63 74 41 64 6a 75 73 74  0d 32 a0 15 20 20 20 20  |ctAdjust.2..    |
000073b0  c9 20 32 20 20 20 3a 20  f2 4d 65 6e 75 0d 32 aa  |. 2   : .Menu.2.|
000073c0  07 20 20 cb 0d 32 b4 05  e1 0d 32 be 04 0d 32 c8  |.  ..2....2...2.|
000073d0  13 dd 20 f2 53 65 6c 65  63 74 41 64 6a 75 73 74  |.. .SelectAdjust|
000073e0  0d 32 d2 15 20 20 20 c8  8e 20 62 6c 6f 63 6b 25  |.2..   .. block%|
000073f0  21 31 32 20 ca 0d 32 dc  19 20 20 20 20 20 20 c9  |!12 ..2..      .|
00007400  20 2d 32 20 3a 20 f2 52  75 6e 47 61 6d 65 0d 32  | -2 : .RunGame.2|
00007410  e6 1d 20 20 20 20 20 20  c9 20 73 6f 75 6e 64 73  |..      . sounds|
00007420  25 20 3a 20 f2 53 6f 75  6e 64 73 0d 32 f0 08 20  |% : .Sounds.2.. |
00007430  20 20 cb 0d 32 fa 05 e1  0d 33 04 04 0d 33 0e 0d  |  ..2....3...3..|
00007440  dd 20 f2 53 6f 75 6e 64  73 0d 33 18 16 20 20 20  |. .Sounds.3..   |
00007450  69 63 6f 6e 25 3d 62 6c  6f 63 6b 25 21 31 36 0d  |icon%=block%!16.|
00007460  33 22 2d 20 20 20 e7 20  69 63 6f 6e 25 3e 3d 30  |3"-   . icon%>=0|
00007470  20 80 20 69 63 6f 6e 25  3c 38 20 f2 50 6c 61 79  | . icon%<8 .Play|
00007480  53 6f 75 6e 64 28 69 63  6f 6e 25 29 0d 33 2c 12  |Sound(icon%).3,.|
00007490  20 20 20 e7 20 69 63 6f  6e 25 3d 38 20 8c 0d 33  |   . icon%=8 ..3|
000074a0  36 17 20 20 20 20 20 20  73 6f 75 6e 64 3d ac 20  |6.      sound=. |
000074b0  73 6f 75 6e 64 0d 33 40  13 20 20 20 20 20 20 e7  |sound.3@.      .|
000074c0  20 73 6f 75 6e 64 20 8c  0d 33 4a 38 20 20 20 20  | sound ..3J8    |
000074d0  20 20 20 20 20 f2 49 63  6f 6e 54 65 78 74 28 73  |     .IconText(s|
000074e0  6f 75 6e 64 73 25 2c 69  63 6f 6e 25 2c 22 47 61  |ounds%,icon%,"Ga|
000074f0  6d 65 20 53 6f 75 6e 64  20 69 73 20 4f 6e 22 29  |me Sound is On")|
00007500  0d 33 54 18 20 20 20 20  20 20 20 20 20 21 73 6f  |.3T.         !so|
00007510  75 6e 64 61 64 72 3d 31  0d 33 5e 0b 20 20 20 20  |undadr=1.3^.    |
00007520  20 20 cc 0d 33 68 39 20  20 20 20 20 20 20 20 20  |  ..3h9         |
00007530  f2 49 63 6f 6e 54 65 78  74 28 73 6f 75 6e 64 73  |.IconText(sounds|
00007540  25 2c 69 63 6f 6e 25 2c  22 47 61 6d 65 20 53 6f  |%,icon%,"Game So|
00007550  75 6e 64 20 69 73 20 4f  66 66 22 29 0d 33 72 18  |und is Off").3r.|
00007560  20 20 20 20 20 20 20 20  20 21 73 6f 75 6e 64 61  |         !sounda|
00007570  64 72 3d 30 0d 33 7c 0b  20 20 20 20 20 20 cd 0d  |dr=0.3|.      ..|
00007580  33 86 08 20 20 20 cd 0d  33 90 05 e1 0d 33 9a 04  |3..   ..3....3..|
00007590  0d 33 a4 13 dd 20 f2 50  6c 61 79 53 6f 75 6e 64  |.3... .PlaySound|
000075a0  28 6e 29 0d 33 ae 18 20  20 20 e7 20 a4 45 6e 73  |(n).3..   . .Ens|
000075b0  75 72 65 53 6f 75 6e 64  73 20 e1 0d 33 b8 0d 20  |ureSounds ..3.. |
000075c0  20 20 c8 8e 20 6e 20 ca  0d 33 c2 25 20 20 20 20  |  .. n ..3.%    |
000075d0  20 20 c9 20 30 20 3a 20  73 24 3d 22 44 52 49 50  |  . 0 : s$="DRIP|
000075e0  22 3a 70 3d 26 31 34 30  30 3a 6c 3d 35 0d 33 cc  |":p=&1400:l=5.3.|
000075f0  2a 20 20 20 20 20 20 c9  20 31 20 3a 20 73 24 3d  |*      . 1 : s$=|
00007600  22 4f 50 45 4e 46 49 52  45 22 3a 70 3d 26 31 34  |"OPENFIRE":p=&14|
00007610  30 30 3a 6c 3d 31 36 0d  33 d6 2b 20 20 20 20 20  |00:l=16.3.+     |
00007620  20 c9 20 32 20 3a 20 73  24 3d 22 45 58 50 4c 4f  | . 2 : s$="EXPLO|
00007630  53 49 4f 4e 22 3a 70 3d  26 31 34 30 30 3a 6c 3d  |SION":p=&1400:l=|
00007640  32 36 0d 33 e0 25 20 20  20 20 20 20 c9 20 33 20  |26.3.%      . 3 |
00007650  3a 20 73 24 3d 22 50 49  4e 47 22 3a 70 3d 26 31  |: s$="PING":p=&1|
00007660  34 30 30 3a 6c 3d 36 0d  33 ea 28 20 20 20 20 20  |400:l=6.3.(     |
00007670  20 c9 20 34 20 3a 20 73  24 3d 22 48 45 4c 50 4d  | . 4 : s$="HELPM|
00007680  45 22 3a 70 3d 26 31 34  30 30 3a 6c 3d 31 30 0d  |E":p=&1400:l=10.|
00007690  33 f4 26 20 20 20 20 20  20 c9 20 35 20 3a 20 73  |3.&      . 5 : s|
000076a0  24 3d 22 48 45 4c 50 22  3a 70 3d 26 31 34 30 30  |$="HELP":p=&1400|
000076b0  3a 6c 3d 31 31 0d 33 fe  26 20 20 20 20 20 20 c9  |:l=11.3.&      .|
000076c0  20 36 20 3a 20 73 24 3d  22 4c 41 53 45 52 22 3a  | 6 : s$="LASER":|
000076d0  70 3d 26 31 34 30 30 3a  6c 3d 34 0d 34 08 29 20  |p=&1400:l=4.4.) |
000076e0  20 20 20 20 20 c9 20 37  20 3a 20 73 24 3d 22 54  |     . 7 : s$="T|
000076f0  48 41 4e 4b 59 4f 55 22  3a 70 3d 26 31 34 30 30  |HANKYOU":p=&1400|
00007700  3a 6c 3d 36 0d 34 12 08  20 20 20 cb 0d 34 1c 2a  |:l=6.4..   ..4.*|
00007710  20 20 20 c8 99 22 53 6f  75 6e 64 5f 41 74 74 61  |   .."Sound_Atta|
00007720  63 68 56 6f 69 63 65 22  2c 31 2c 31 20 b8 20 2c  |chVoice",1,1 . ,|
00007730  76 6f 69 63 65 31 0d 34  26 1c 20 20 20 ff 22 43  |voice1.4&.   ."C|
00007740  48 41 4e 4e 45 4c 56 4f  49 43 45 20 31 20 22 2b  |HANNELVOICE 1 "+|
00007750  73 24 0d 34 30 12 20 20  20 d4 20 31 2c 2d 31 35  |s$.40.   . 1,-15|
00007760  2c 70 2c 6c 0d 34 3a 12  20 20 20 f2 44 65 6c 61  |,p,l.4:.   .Dela|
00007770  79 28 6c 2a 33 29 0d 34  44 21 20 20 20 ff 22 43  |y(l*3).4D!   ."C|
00007780  48 41 4e 4e 45 4c 56 4f  49 43 45 20 31 20 22 2b  |HANNELVOICE 1 "+|
00007790  c3 76 6f 69 63 65 31 0d  34 4e 05 e1 0d 34 58 04  |.voice1.4N...4X.|
000077a0  0d 34 62 0b dd 20 f2 4d  65 6e 75 0d 34 6c 15 20  |.4b.. .Menu.4l. |
000077b0  20 20 c8 8e 20 62 6c 6f  63 6b 25 21 31 32 20 ca  |  .. block%!12 .|
000077c0  0d 34 76 3a 20 20 20 20  20 c9 20 2d 32 20 3a 20  |.4v:     . -2 : |
000077d0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
000077e0  65 6e 75 22 2c 2c 6d 65  6e 75 25 2c 21 62 6c 6f  |enu",,menu%,!blo|
000077f0  63 6b 25 2d 36 34 2c 33  31 36 0d 34 80 08 20 20  |ck%-64,316.4..  |
00007800  20 cb 0d 34 8a 05 e1 0d  34 94 04 0d 34 9e 0f dd  | ..4....4...4...|
00007810  20 f2 4d 65 6e 75 49 74  65 6d 0d 34 a8 12 20 20  | .MenuItem.4..  |
00007820  c8 8e 20 21 62 6c 6f 63  6b 25 20 ca 0d 34 b2 16  |.. !block% ..4..|
00007830  20 20 20 20 c9 20 31 20  3a 20 f2 52 75 6e 47 61  |    . 1 : .RunGa|
00007840  6d 65 0d 34 bc 20 20 20  20 20 c9 20 32 20 3a 20  |me.4.     . 2 : |
00007850  f2 57 69 6e 64 6f 77 28  68 69 73 63 6f 72 65 73  |.Window(hiscores|
00007860  25 29 0d 34 c6 1e 20 20  20 20 c9 20 33 20 3a 20  |%).4..    . 3 : |
00007870  f2 57 69 6e 64 6f 77 28  73 6f 75 6e 64 73 25 29  |.Window(sounds%)|
00007880  0d 34 d0 15 20 20 20 20  c9 20 34 20 3a 20 71 75  |.4..    . 4 : qu|
00007890  69 74 25 3d b9 0d 34 da  07 20 20 cb 0d 34 e4 26  |it%=..4..  ..4.&|
000078a0  20 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 50 6f  |  .. "Wimp_GetPo|
000078b0  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 62 6c 6f 63  |interInfo",,bloc|
000078c0  6b 25 0d 34 ee 31 20 20  e7 20 62 6c 6f 63 6b 25  |k%.4.1  . block%|
000078d0  21 38 3d 31 20 c8 99 22  57 69 6d 70 5f 43 72 65  |!8=1 .."Wimp_Cre|
000078e0  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
000078f0  30 2c 30 0d 34 f8 05 e1  0d 35 02 04 0d 35 0c 16  |0,0.4....5...5..|
00007900  dd 20 f2 57 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |. .Window(handle|
00007910  25 29 0d 35 16 14 20 20  21 77 69 6e 62 25 3d 68  |%).5..  !winb%=h|
00007920  61 6e 64 6c 65 25 0d 35  20 25 20 20 c8 99 20 22  |andle%.5 %  .. "|
00007930  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00007940  61 74 65 22 2c 2c 77 69  6e 62 25 0d 35 2f 11 20  |ate",,winb%.5/. |
00007950  20 77 69 6e 62 25 21 32  38 3d 2d 31 0d 35 2a 21  | winb%!28=-1.5*!|
00007960  20 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |  .. "Wimp_OpenW|
00007970  69 6e 64 6f 77 22 2c 2c  77 69 6e 62 25 0d 35 34  |indow",,winb%.54|
00007980  05 e1 0d 35 3e 04 0d 35  48 0f dd 20 f2 49 6e 66  |...5>..5H.. .Inf|
00007990  6f 28 65 24 29 0d 35 52  13 20 20 20 62 6c 6f 63  |o(e$).5R.   bloc|
000079a0  6b 25 21 30 3d 32 35 35  0d 35 5c 1a 20 20 20 24  |k%!0=255.5\.   $|
000079b0  28 62 6c 6f 63 6b 25 2b  34 29 3d 65 24 2b bd 28  |(block%+4)=e$+.(|
000079c0  30 29 0d 35 66 3f 20 20  20 c8 99 22 57 69 6d 70  |0).5f?   .."Wimp|
000079d0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 6c  |_ReportError",bl|
000079e0  6f 63 6b 25 2c 26 31 31  2c 22 49 6e 66 6f 72 6d  |ock%,&11,"Inform|
000079f0  61 74 69 6f 6e 20 66 72  6f 6d 20 22 2b 61 70 70  |ation from "+app|
00007a00  24 0d 35 70 05 e1 0d ff                           |$.5p....|
00007a08