!Aargh!Rpc/!RunImage

Home » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_4_scp.adf » Aaaghs » !Aargh!Rpc/!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 » archimedes_world_volume_15_issue_4_scp.adf » Aaaghs
Filename:	!Aargh!Rpc/!RunImage
Read OK:	✔
File size:	4E59 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM>!Aargh!.!RunImage
   20REM LEN 1992 Cheap 'N' Arsty Software
   30REM This program is PD, but is not to be spread around in any edited
   40REM form without my consent!
   50REM So There !
   60REM LORIS
   70REM NOTE [it may, however be archived using SPARK, ArcFS etc.]
   80REM updated RiscPC compatable version 1996 by  and Loris
   90ON ERROR PROCerror
  100MODE12
  110MOUSE STEP 1
  120COLOUR128+7
  130COLOUR0
  140CLS
  150OFF
  160PROCPalette
  170DIMstars%(42,5)
  180DIMspikes%(9,5)
  190DIMmouse%(2)
  200DIM icicles%(5,1)
  210DIM ricicles%(5)
  220DIM drips%(5)
  230DIM motes%(100,1)
  240whichblack%=3
  270PROClevel1
  280PROClevel2
  290PROClevel3
  300PROClevel4
  310PROClevel5
  320IF n%=121 GOTO 240
  330*DeskTop
  340END
  350DEFPROCerror
  360ON ERROR OFF
  370IF ERR=17 THEN
  380CLS
  390PRINTTAB(30,10)"Fine! Be like that!"
  400*POINTER 0
  410END
  420ENDIF
  430CLS
  440PRINTTAB(5,5)"Oh no! A bug!"
  450REPORT:PRINT;" at line ";ERL
  460PRINT'"Please contact me -LORIS- at 65 Davenport Ave,Hessle,N.Humberside,HU13 ORN"
  470PRINT"or (01482) 640558 and tell me what happened! Thanks!"
  480END
  490DEFPROClevel1
  500REPEAT
  510PRINTTAB(35,15)"Get Ready"
  520COLOUR1,0,0,0
  530*ScreenLoad <Obey$Dir>.Level1
  540PROCPalette
  550PROClocate(60,60)
  560MOUSE COLOUR 2,255,255,255
  570DX%=0:DY%=0
  580blobX%=1100:blobY%=300
  590missileX%=-100:missileY%=0
  600missileDX%=0:missileDY%=0
  610s0%=0:s1%=0:s2%=0
  620trap%=380
  630X%=60:Y%=60
  640nomorebombs=FALSE
  650FOR spikes%=0 TO 9
  660spikes%(spikes%,0)=spikes%*42+RND(42)+480
  670spikes%(spikes%,1)=382
  680spikes%(spikes%,2)=0
  690spikes%(spikes%,3)=0
  700spikes%(spikes%,4)=spikes%(spikes%,0)-RND(200)
  710spikes%(spikes%,5)=50+RND(50)
  720NEXT
  730FOR stars%=0 TO 42
  740FOR n%=0 TO 3
  750stars%(stars%,n%)=0
  760NEXT:NEXT
  770GCOL128+7
  780across=0
  790REPEAT
  800across+=0.2
  810COLOUR whichblack%,0,0,0
  820whichblack%+=1
  830IF whichblack%=7 whichblack%=2
  840COLOUR whichblack%,255,255,0
  850GCOL7
  860MOVE 1200,100
  870MOVE 1200,90
  875WAIT
  880PLOT&55,1200+DX%*3,100+DY%*3
  890CIRCLE FILL blobX%,blobY%,32
  900DX%+=RND(11)-6
  910DY%+=RND(11)-6
  920IF DX%>20 DX%=20
  930IF DX%<-20 DX%=-20
  940IF DY%>20 DY%=20
  950IF DY%<-20 DY%=-20
  960blobX%+=DX%
  970blobY%+=DY%
  980blobY%-=8
  990IF blobX%<992 blobX%=992
 1000IF blobX%>1232 blobX%=1232
 1010IF blobY%<40 blobY%=40
 1020IF blobY%>380 blobY%=380
 1030GCOL9
 1040MOVE 1200,100
 1050MOVE 1200,90
 1060PLOT&55,1200+DX%*3,100+DY%*3
 1070GCOL10
 1080CIRCLE FILL blobX%,blobY%,32
 1090IF X%>950 AND Y%<420 MOUSE TO X%+DX%,Y%+DY%
 1100IF missileX%=-100 AND X%>852 AND Y%<838 AND Y%>474 AND nomorebombs=FALSE THEN missileX%=900:missileY%=800:missileDX%=2:missileDY%=-4
 1110IF missileX%>0 THEN
 1120GCOL7
 1130CIRCLE FILL missileX%,missileY%,8
 1140missileX%+=missileDX%
 1150missileY%+=missileDY%
 1160missileDX%=missileDX%/1.1+(X%-missileX%)/20
 1170missileDY%=missileDY%/1.1+(Y%-missileY%)/20
 1180IF missileDX%>32 missileDX%=32
 1190IF missileDX%<-32 missileDX%=-32
 1200IF missileDY%>32 missileDY%=32
 1210IF missileDY%<-32 missileDY%=-32
 1220IF missileY%>826 OR missileY%<480 THEN missileX%=-100
 1230IF missileX%<874 AND missileX%>0  RECTANGLE FILL 824,476,42,362:missileX%=-50:GCOL12:MOVE 800,472:MOVE 890,472:PLOT&55,840,500:nomorebombs=TRUE
 1240IF POINT(missileX%,missileY%)<>7 missileX%=-100
 1250GCOL11
 1260CIRCLE FILL missileX%,missileY%,8
 1270IF missileX%>X%-32 AND missileX%<X%+32 AND missileY%>Y%-32 AND missileY%<Y%+32 CIRCLE FILL missileX%,missileY%,100
 1280ENDIF
 1285WAIT
 1290FOR stars%=0 TO 42
 1300IF stars%(stars%,0)=0 THEN
 1310stars%(stars%,2)=RND(15)-8
 1320stars%(stars%,3)=RND(13)-8
 1330IF stars%(stars%,2)<-2 AND stars%(stars%,2)>2 AND stars%(stars%,3)<-2 AND stars%(stars%,3)>2 GOTO 1310
 1340IF stars%(stars%,2)=0 OR stars%(stars%,3)=0 GOTO 1310
 1350stars%(stars%,0)=566+stars%(stars%,2)*2
 1360stars%(stars%,1)=668+stars%(stars%,3)*2
 1370ENDIF
 1380GCOL7
 1390CIRCLE FILL stars%(stars%,0),stars%(stars%,1),4
 1400stars%(stars%,0)+=stars%(stars%,2)
 1410stars%(stars%,1)+=stars%(stars%,3)
 1420IF POINT(stars%(stars%,0)+stars%(stars%,2)*3,stars%(stars%,1)+stars%(stars%,3)*3)<>7 stars%(stars%,0)=0:stars%(stars%,1)=0
 1430GCOL14
 1440CIRCLE FILL stars%(stars%,0),stars%(stars%,1),4
 1450NEXT
 1460GCOL8
 1480WAIT:WAIT
 1490RECTANGLE FILL 4,515,260,252
 1500GCOL7
 1510FOR a=0 TO 1 STEP 0.2
 1520MOVE SIN(a+across)*80+120,515+a*208
 1530MOVE SIN(a+across)*80+160,515+a*208
 1540PLOT&75,SIN(a+across+0.2)*80+160,556+a*208
 1550NEXT
 1560GCOL7
 1570RECTANGLE FILL 5,100,436,280
 1580GCOL13
 1590FOR a=0 TO 1 STEP 0.2
 1600MOVE a*352,SIN(a+across)*100+280
 1610MOVE a*352,SIN(a+across)*100+200
 1620PLOT&75,a*352+88,SIN(a+across+0.2)*100+200
 1630NEXT
 1640IF X%<264 AND Y%>791 THEN s1%+=8
 1650GCOL15
 1660RECTANGLE FILL 264,791,-s1%,48
 1670IF s1%>264 AND s1%<300 RECTANGLE FILL 36,842,34,s1%-264
 1680IF X%>550 AND X%<838 AND Y%>910 AND Y%<978 THEN s2%+=4
 1690RECTANGLE FILL 550,977,290,-s2%
 1700RECTANGLE FILL 550,913,290,s2%
 1710IF Y%<400 OR trap%>80 THEN
 1715WAIT
 1720FOR spikes%=0 TO 9
 1725IF spikes%=5 WAIT
 1730GCOL7
 1740MOVE spikes%(spikes%,0),spikes%(spikes%,1)
 1750MOVE spikes%(spikes%,0)+20,spikes%(spikes%,1)
 1760PLOT&55,spikes%(spikes%,0)+10,spikes%(spikes%,1)-spikes%(spikes%,5)
 1770IF X%>spikes%(spikes%,4) spikes%(spikes%,3)=1
 1780IF spikes%(spikes%,3)=1 spikes%(spikes%,2)+=1
 1790spikes%(spikes%,1)-=spikes%(spikes%,2)
 1800IF spikes%(spikes%,1)<spikes%(spikes%,5)/2+64 spikes%(spikes%,1)=spikes%(spikes%,5)/2+64
 1810GCOL15
 1820MOVE spikes%(spikes%,0),spikes%(spikes%,1)
 1830MOVE spikes%(spikes%,0)+20,spikes%(spikes%,1)
 1840PLOT&55,spikes%(spikes%,0)+10,spikes%(spikes%,1)-spikes%(spikes%,5)
 1850NEXT
 1860IF spikes%(8,1)<spikes%(8,5)+64 AND spikes%(9,1)<spikes%(9,5)+64 s0%=16
 1870trap%-=s0%
 1880IF trap%<80 s0%=0
 1890RECTANGLE FILL 480,trap%,444,52 TO 480,trap%-s0%
 1900ENDIF
 1910PROCmouse
 1920UNTIL POINT(X%+4,Y%-4)=0 OR POINT(X%+4,Y%-4)=whichblack% OR POINT(X%+4,Y%-4)>7 OR X%<0 OR X%>1280 OR Y%>1024 OR Y%<0 OR X%>1070 AND Y%>870
 1930IF X%>1070 AND Y%>870 UNTIL 1 ELSE PROCexplosion:UNTIL0
 1940FOR across=X% TO 1300 STEP 2
 1950COLOUR1,128+RND(127),128+RND(127),128+RND(127)
 1960MOUSE RECTANGLE across,Y%,0,0
 1970WAIT
 1980NEXT
 1990FOR down=Y% TO -20 STEP -4
 2000COLOUR1,128+RND(127),128+RND(127),128+RND(127)
 2010MOUSE RECTANGLE 1300,down,0,0
 2020WAIT
 2030NEXT
 2040COLOUR1,0,0,0
 2050ENDPROC
 2060DEFPROClevel2
 2070CLS
 2080REPEAT
 2090*ScreenLoad <Obey$Dir>.Level2
 2100PROCPalette
 2110PROClocate(590,680)
 2120MOUSE COLOUR 2,255,255,255
 2130MOUSEX%,X%,Z
 2140a%=0:s0%=0:s1%=0:s2%=0
 2150door1%=58:door2%=58:door3%=30:door4%=30
 2160sec%=75-VAL(RIGHT$(TIME$,2))
 2170min%=60-VAL(MID$(TIME$,20,2))
 2180hour%=12-VAL(MID$(TIME$,17,2))-min%/60
 2190FOR icicle%=0 TO 5
 2200icicles%(icicle%,0)=850+RND(30)+icicle%*30
 2210icicles%(icicle%,1)=RND(10)
 2220drips%(icicle%)=RND(400)+66
 2230ricicles%(icicle%)=RND(8)
 2240NEXT
 2250REPEAT
 2260WAIT:WAIT:WAIT:WAIT:WAIT
 2270COLOURwhichblack%,0,0,0
 2280whichblack%+=1
 2290IF whichblack%=7 whichblack%=2
 2300COLOUR whichblack%,255,128,0
 2310GCOL7
 2320CIRCLE FILL 590+(COSRAD(a%)*40),684+(SINRAD(a%)*80),16
 2330CIRCLE FILL 590+(COSRAD(a%)*80),684+(SINRAD(a%)*40),16
 2340a%+=16
 2350GCOL11
 2360CIRCLE FILL 590+(COSRAD(a%)*40),684+(SINRAD(a%)*80),16
 2370CIRCLE FILL 590+(COSRAD(a%)*80),684+(SINRAD(a%)*40),16
 2380IF X%>554 AND Y%<896 AND X%<622 AND Y%>840 s0%+=8
 2390GCOL9
 2400IF s0%>0 RECTANGLE FILL 554,840,68,s0%
 2410IF X%<418 AND Y%<536 s1%-=4
 2420IF s1%<0 AND s1%>-62 RECTANGLE FILL 420,480,s1%,52
 2430IF s1%<-62 s1%-=12
 2440IF s1%<-60 AND s1%>-432 RECTANGLE FILL 420,436,s1%+58,46
 2450IF s1%<-426 AND s1%>-790 s1%-=12
 2460IF s1%<-426 AND s1%>-790 RECTANGLE FILL 56,434,60,s1%+426
 2470IF s1%<-790 AND s2%<136 s2%+=8
 2480IF s2%>0 RECTANGLE 116,60+s2%,300,20 TO 116,68+s2%
 2490IF s2%>0 RECTANGLE 116,364-s2%,300,20 TO 116,356-s2%
 2500GCOL7
 2510RECTANGLE FILL 642,66,100,door1%
 2520IF X%>476 AND Y%>200 door1%-=4
 2530IF door1%<0 door1%=0
 2540IF Y%<200 door1%+=14
 2550IF door1%>60 door1%=60
 2560RECTANGLE FILL 646,200,96,60
 2570CIRCLE FILL 688,370,door3%
 2580IF X%<488 door2%-=4
 2590IF door2%<0 door2%=0
 2600IF X%>488 door2%+=12
 2610IF door2%>60 door2%=60
 2620IF Y%<300 door3%-=4
 2630IF door3%<0 door3%=0
 2640IF Y%>300 door3%+=12
 2650IF door3%>40 door3%=40
 2660IF X%>600 AND Y%>460 AND Y%<580 door4%-=2 ELSE door4%+=10
 2670IF door4%<0 door4%=0
 2680IF door4%>32 door4%=32
 2690RECTANGLE FILL 646,474,98,64
 2700GCOL15
 2710RECTANGLE FILL 646,66,90,door1%
 2720MOVE 650,200
 2730MOVE 650,200+door2%
 2740PLOT&55,670+door2%,200
 2750MOVE 730,260
 2760MOVE 730,260-door2%
 2770PLOT&55,708-door2%,260
 2780CIRCLE FILL 688,370,door3%
 2790RECTANGLE FILL 678-door4%,504-door4%,door4%*2+24,door4%*2
 2800FOR icicle%=0 TO 5
 2810GCOL0
 2820RECTANGLE FILL 835,0,250,60
 2830IF drips%(icicle%)<60+ricicles%(icicle%) AND drips%(icicle%)>0 drips%(icicle%)=0:ricicles%(icicle%)+=6
 2840IF drips%(icicle%)>0 GCOL7:CIRCLE FILL icicles%(icicle%,0)+10,drips%(icicle%),4:drips%(icicle%)-=12:GCOL15:CIRCLE FILL icicles%(icicle%,0)+10,drips%(icicle%),4
 2850IF drips%(icicle%)=0 AND RND(20)=1 icicles%(icicle%,1)+=8:drips%(icicle%)=460-icicles%(icicle%,1)
 2860IF icicles%(icicle%,1)>300 icicles%(icicle%,1)=300
 2870IF ricicles%(icicle%)>200 ricicles%(icicle%)=200
 2880GCOL8
 2890MOVE icicles%(icicle%,0)-icicles%(icicle%,1)/10,460
 2900MOVE icicles%(icicle%,0)+20+icicles%(icicle%,1)/10,460
 2910PLOT&55,icicles%(icicle%,0)+10,460-icicles%(icicle%,1)
 2920MOVE icicles%(icicle%,0)-ricicles%(icicle%)/2+10,66
 2930MOVE icicles%(icicle%,0)+ricicles%(icicle%)/2+10,66
 2940PLOT&55,icicles%(icicle%,0)+10,66+ricicles%(icicle%)
 2950NEXT
 2960GCOL7
 2970LINE 1024,676,1024+(COSRAD((sec%)*6)*150),676+(SINRAD((sec%)*6)*150)
 2980IF sec%>74 THEN
 2990MOVE 1024+COSRAD(min%*6)*16,676+SINRAD(min%*6)*16
 3000MOVE 1024-COSRAD(min%*6)*16,676-SINRAD(min%*6)*16
 3010PLOT&55,1024+(COSRAD((min%*6)+90)*150),676+(SINRAD((min%*6)+90)*150)
 3020MOVE 1024+COSRAD(hour%*30)*24,676+SINRAD(hour%*30)*24
 3030MOVE 1024-COSRAD(hour%*30)*24,676-SINRAD(hour%*30)*24
 3040PLOT&55,1024+(COSRAD((hour%*30)+90)*120),676+(SINRAD((hour%*30)+90)*120)
 3050min%=60-VAL(MID$(TIME$,20,2))
 3060IF min%<60 AND min%>29 THEN demi=0.5 ELSE demi%=0
 3070hour%=12-VAL(MID$(TIME$,17,2))-min%/60
 3080ENDIF
 3090sec%=75-VAL(RIGHT$(TIME$,2))
 3100GCOL11
 3110MOVE 1024+COSRAD(hour%*30)*24,676+SINRAD(hour%*30)*24
 3120MOVE 1024-COSRAD(hour%*30)*24,676-SINRAD(hour%*30)*24
 3130PLOT&55,1024+(COSRAD((hour%*30)+90)*120),676+(SINRAD((hour%*30)+90)*120)
 3140GCOL14
 3150MOVE 1024+COSRAD(min%*6)*16,676+SINRAD(min%*6)*16
 3160MOVE 1024-COSRAD(min%*6)*16,676-SINRAD(min%*6)*16
 3170PLOT&55,1024+(COSRAD((min%*6)+90)*150),676+(SINRAD((min%*6)+90)*150)
 3180GCOL9
 3190LINE 1024,676,1024+(COSRAD((sec%)*6)*150),676+(SINRAD((sec%)*6)*150)
 3200PROCmouse
 3210UNTIL POINT(X%+4,Y%-4)=0 OR POINT(X%+4,Y%-4)=whichblack% OR POINT(X%+4,Y%-4)>7 OR X%<0 OR X%>1280 OR Y%>1024 OR Y%<0 OR X%>1200 AND Y%>354 AND Y%<466
 3220IF X%>1200 AND Y%>354 AND Y%<466 UNTIL1 ELSE PROCexplosion:UNTIL0
 3230FOR across=X% TO 1300 STEP 2
 3240COLOUR1,RND(128)+128,RND(128)+128,RND(128)+128
 3250MOUSE RECTANGLE across,Y%,0,0
 3260WAIT
 3270NEXT
 3280FOR up=Y% TO 1100 STEP 4
 3290COLOUR1,RND(128)+128,RND(128)+128,RND(128)+128
 3300MOUSE RECTANGLE 1300,up,0,0
 3310WAIT
 3320NEXT
 3330COLOUR1,0,0,0
 3340ENDPROC
 3350DEFPROCexplosion
 3360*POINTER 0
 3370FOR explosion=0 TO 50
 3380GCOL(POINT(X%+4,Y%-4))
 3390CIRCLE FILL X%,Y%,explosion
 3400GCOL0
 3410CIRCLE X%,Y%,explosion+8
 3420WAIT
 3430NEXT
 3440CLS
 3450ENDPROC
 3460DEFPROCmouse
 3470FOR colour%=0 TO 2
 3480mouse%(colour%)+=RND(33)-17
 3490IF mouse%(colour%)>255 mouse%(colour%)=255
 3500IF mouse%(colour%)<128 mouse%(colour%)=128
 3510NEXT
 3520MOUSE COLOUR 1,mouse%(0),mouse%(1),mouse%(2)
 3530MOUSEX%,Y%,Z%
 3540MOUSE RECTANGLE X%-50,Y%-50,100,100
 3550IF Z% THEN MOUSE RECTANGLE X%,Y%,0,0
 3560ENDPROC
 3570DEFPROClevel3
 3580CLS
 3590REPEAT
 3600X%=0
 3610*SCREENLOAD <Obey$Dir>.Level3
 3620PROCPalette
 3630PROClocate(80,980)
 3640a%=0:b%=0:c%=4:d%=600:e%=114:lastdrop%=0:drips%(0)=0:drips%(1)=0
 3650door1%=0:f%=2:s0%=0
 3660MOUSE COLOUR 2,255,255,255
 3670REPEAT
 3680GCOL7
 3700WAIT:WAIT:WAIT
 3710ELLIPSE FILL 268,430,230,50,RAD(a%)
 3720ELLIPSE FILL 268,430,230,50,RAD(a%+90)
 3730a%-=12
 3740GCOL10
 3750ELLIPSE FILL 268,430,230,50,RAD(a%)
 3760ELLIPSE FILL 268,430,230,50,RAD(a%+90)
 3765WAIT
 3770GCOL7
 3780ELLIPSE FILL 300,938,100,b%
 3790b%+=c%
 3800IF b%>78 OR b%<-78 c%=-c%
 3810GCOL9.5+SGN(b%)/2
 3820ELLIPSE FILL 300,938,80,b%
 3830lastdrop%+=1
 3840IF lastdrop%=16 AND e%<350 drips%(1)=340:d%-=4
 3850IF lastdrop%=32 AND e%<350 drips%(0)=340:d%-=4:lastdrop%=0
 3860FOR drip%=0 TO 1
 3870IF drips%(drip%)>0 GCOL7:CIRCLE FILL 1104,drips%(drip%),8:drips%(drip%)-=8:GCOL14:CIRCLE FILL 1104,drips%(drip%),8
 3880IF drips%(drip%)>0 AND drips%(drip%)<e%-8 e%+=4:GCOL14:RECTANGLE FILL 1096,e%-16,16,12:drips%(drip%)=0
 3890NEXT
 3900GCOL128+14
 3910GCOL7
 3920PLOT77,1100,d%
 3930GCOL128+7
 3940GCOL14
 3950PLOT77,1100,e%
 3960IF X%>565 AND Y%<666 AND s0%=0 THEN s0%=4
 3970IF s0%>0 AND s0%<330 THEN
 3980s0%+=8
 3990GCOL0
 4000MOVE565,666
 4010MOVE565+s0%+12,666
 4020PLOT&55,565,666-s0%*2+32
 4030MOVE908,32
 4040MOVE908-s0%-12,32
 4050PLOT&55,908,32+s0%*2-32
 4060ENDIF
 4070GCOL7
 4080RECTANGLE FILL444,908,120,56
 4090door1%+=f%
 4100IF door1%>28 OR door1%<2 f%=-f%
 4110GCOL15
 4120RECTANGLE FILL 444,904,120,door1%
 4130RECTANGLE FILL 444,964,120,-door1%
 4140RECTANGLE0,738,8,60 TO 1272,738
 4150RECTANGLE0,738,1280,60 TO -8,738
 4160PROCmouse
 4170IF X%>564 AND X%<1100 AND Y%>850 THEN MOUSE TO X%,Y%-(X%-564)/64
 4180UNTIL POINT(X%+4,Y%-4)=0 OR POINT(X%+4,Y%-4)>7 OR X%<0 OR X%>1280 OR Y%>1024 OR Y%<0 OR X%>1216 AND Y%>240 AND Y%<274
 4190IF X%>1216 AND Y%>240 AND Y%<274 UNTIL 1 ELSE PROCexplosion:UNTIL0
 4200FOR across=X% TO 1300 STEP 2
 4210COLOUR1,128+RND(127),128+RND(127),128+RND(127)
 4220MOUSE RECTANGLE across,Y%,0,0
 4230WAIT
 4240NEXT
 4250FOR up=Y% TO 1100 STEP 4
 4260COLOUR1,128+RND(127),128+RND(127),128+RND(127)
 4270MOUSE RECTANGLE 1300,up,0,0
 4280WAIT
 4290NEXT
 4300COLOUR1,0,0,0
 4310ENDPROC
 4320DEFPROClevel4
 4330REPEAT
 4340a%=50:b%=5
 4350c%=0:d%=0
 4360e%=930
 4370f%=0:g%=0
 4380h%=730:m%=0
 4390FOR smoke%=0 TO 100
 4400motes%(smoke%,0)=RND(40)+40
 4410motes%(smoke%,1)=950+RND(20)
 4420NEXT
 4430whichblack2%=whichblack%-1
 4440IF whichblack2%=1 whichblack2%=6
 4450*ScreenLoad <Obey$Dir>.Level4
 4460PROCPalette
 4470COLOUR8,0,0,240
 4480PROClocate(1160,924):REM1160,924
 4490MOUSE COLOUR 2,255,255,255
 4500REPEAT
 4510WAIT:WAIT:WAIT:WAIT
 4520COLOURwhichblack%,0,0,0
 4530COLOURwhichblack2%,0,0,0
 4540whichblack%+=1:whichblack2%+=1
 4550IF whichblack%=7 whichblack%=2
 4560IF whichblack2%=7 whichblack2%=2
 4570COLOUR whichblack%,0,255,0
 4580COLOUR whichblack2%,0,128,128
 4590GCOL7
 4600ELLIPSE FILL 840,916,a%,100-a%
 4610a%+=b%
 4620IF a%>70 OR a%<25 b%=-b%
 4630GCOL14
 4640ELLIPSE FILL 840,916,a%,100-a%
 4650GCOL7
 4660CIRCLE FILL 460+COSRAD(c%)*200,916+SINRAD(d%)*50,24
 4670c%+=5:d%+=10
 4680GCOL9
 4690CIRCLE FILL 460+COSRAD(c%)*200,916+SINRAD(d%)*50,24
 4700GCOL7
 4710CIRCLE FILL 58,e%,20
 4720e%-=3
 4730REM DIE IF e%<390
 4740GCOL0
 4750CIRCLE FILL 58,e%,8+RND(12)
 4760FOR smoke%=0 TO 100
 4770IF motes%(smoke%,0)=0 THEN motes%(smoke%,0)=40+RND(36):motes%(smoke%,1)=e%+24
 4780R%=RND(17)-9
 4790GCOL7
 4800PLOT69,motes%(smoke%,0),motes%(smoke%,1)
 4810IF POINT(motes%(smoke%,0)+R%,motes%(smoke%,1)+4)<>7 OR motes%(smoke%,1)>e%+100 AND RND(20)=1 motes%(smoke%,0)=0 ELSE motes%(smoke%,0)+=R%:motes%(smoke%,1)+=4
 4820GCOL 0
 4830PLOT69,motes%(smoke%,0),motes%(smoke%,1)
 4840NEXT
 4850m%+=1
 4860GCOL7
 4870CIRCLE FILL 1224,h%,32
 4880h%-=m%
 4890IF h%<64 h%=64:m%=-36
 4900GCOL13
 4910CIRCLE FILL 1224,h%,32
 4920GCOL7
 4930CIRCLE FILL 504+(X%-504)/32,714+(Y%-714)/32,24
 4940CIRCLE FILL 644+(X%-644)/32,714+(Y%-714)/32,24
 4950PROCmouse
 4960GCOL8
 4970CIRCLE FILL 504+(X%-504)/32,714+(Y%-714)/32,24
 4980CIRCLE FILL 644+(X%-644)/32,714+(Y%-714)/32,24
 4990UNTIL POINT(X%+4,Y%-4)=0 OR POINT(X%+4,Y%-4)=whichblack% OR POINT(X%+4,Y%-4)=whichblack2% OR POINT(X%+4,Y%-4)>7 OR X%<0 OR X%>1280 OR Y%>1024 OR e%<390 OR X%<50 AND Y%>15 AND Y%<150
 5000IF e%<390 THEN
 5010FOR fade%=255 TO 0 STEP-1
 5020WAIT
 5030FOR colour%=1 TO 15
 5040COLOURcolour%,fade%,fade%,fade%
 5050NEXT
 5060*POINTER 0
 5070NEXT
 5080CLS
 5090PROCPalette
 5100COLOUR1,0,0,0
 5110*POINTER 1
 5120ENDIF
 5130IF X%<50 AND Y%>15 AND Y%<150 UNTIL1 ELSE IF e%<390 UNTIL 0 ELSE PROCexplosion:UNTIL0
 5140FOR across=X% TO 16 STEP-1
 5150GCOL8
 5160CIRCLE FILL 504+(across-504)/32,714+(Y%-714)/32,24
 5170CIRCLE FILL 644+(across-644)/32,714+(Y%-714)/32,24
 5180COLOUR1,RND(128)+128,RND(128)+128,RND(128)+128
 5190MOUSE RECTANGLE across,Y%,0,0
 5200GCOL7
 5210WAIT
 5220CIRCLE FILL 504+(across-504)/32,714+(Y%-714)/32,24
 5230CIRCLE FILL 644+(across-644)/32,714+(Y%-714)/32,24
 5240NEXT
 5250FOR across=0 TO 48 STEP1
 5260GCOL7
 5270IF across=20 THEN LINE 0,50,0,1024
 5280GCOL8
 5290CIRCLE FILL 504+across*2-(500)/32,714+(Y%-714)/32,24
 5300CIRCLE FILL 644+across*2-(640)/32,714+(Y%-714)/32,24
 5310COLOUR1,RND(128)+128,RND(128)+128,RND(128)+128
 5320RECTANGLE 0,0,1276,1022 TO 2,0
 5330GCOL7
 5340WAIT
 5350CIRCLE FILL 504+across*2-(504)/32,714+(Y%-714)/32,24
 5360CIRCLE FILL 644+across*2-(644)/32,714+(Y%-714)/32,24
 5370NEXT
 5380FOR up=Y% TO 1100 STEP4
 5390GCOL8
 5400CIRCLE FILL 488+100,714+(up-714)/32,24
 5410CIRCLE FILL 624+100,714+(up-714)/32,24
 5420COLOUR1,RND(128)+128,RND(128)+128,RND(128)+128
 5430MOUSE RECTANGLE 16,up,0,0
 5440GCOL7
 5450WAIT
 5460CIRCLE FILL 488+100,714+(up-714)/32,24
 5470CIRCLE FILL 624+100,714+(up-714)/32,24
 5480NEXT
 5490COLOUR1,0,0,0
 5500ENDPROC
 5510DEFPROClocate(ox%,oy%)
 5520*POINTER 1
 5530MOUSE RECTANGLE ox%,oy%,0,0
 5540MOUSE RECTANGLE ox%-4,oy%-4,8,8
 5550SYS"Wimp_SpriteOp",36,,"u_r_here",%1100001
 5560MOUSE COLOUR 1,0,0,255
 5570MOUSE COLOUR 2,0,0,128
 5580MOUSE COLOUR 3,255,0,0
 5590REPEAT:MOUSEx%,y%,z%:UNTIL ox%<>x% OR oy%<>y%
 5600SYS"Wimp_SpriteOp",36,,"gamepointer",%1100001
 5610ENDPROC
 5620DEFPROClevel5
 5630CLS
 5640REPEAT
 5650*ScreenLoad <Obey$Dir>.Level5
 5660PROCPalette
 5670PROClocate(320,400):REM320,400
 5680MOUSE COLOUR 2,255,255,255
 5690satX%=1000:satY%=220:satA%=0:satDX%=0:satDY%=0
 5700a%=0:b%=10:c%=-10:d%=0:e%=0:i%=0:j%=0:k%=0:l%=6:t%=0:X%=320
 5710FOR m=0 TO 9
 5720FOR c=0 TO 5
 5730spikes%(m,c)=0
 5740NEXT:NEXT
 5750FOR m=0 TO 5
 5760stars%(0,m)=1130+m*16+RND(16)
 5770stars%(1,m)=650+RND(100)
 5780stars%(2,m)=0
 5790stars%(3,m)=RND(32)-16
 5800stars%(4,m)=0
 5810NEXT
 5820motes%(0,0)=0:motes%(0,1)=0
 5830motes%(1,0)=0:motes%(1,1)=0
 5840motes%(2,0)=2:motes%(2,1)=0
 5850REPEAT
 5860ax%=0:ay%=0
 5870IF X%>204 AND Y%>164 AND X%<450 AND Y%<432 THEN
 5880MOUSE RECTANGLE X%-50,Y%-80,100,100
 5890ay%=-t%
 5900IF t%<100 t%+=1
 5910ENDIF
 5920IF X%<640 AND Y%>524 AND Y%<854 THEN
 5930ax%+=SINRAD(satA%)*8:ay%+=COSRAD(satA%)*8
 5940ENDIF
 5950WAIT
 5951IF X%>700 AND motes%(2,1)=0 THEN motes%(2,1)=1
 5952IF motes%(2,1)>0 AND motes%(2,1)<32 THEN motes%(2,1)+=4
 5952IF motes%(0,0)<101 THEN
 5953GCOL 7
 5954RECTANGLE FILL 750,20,80,52
 5955GCOL0
 5956RECTANGLE FILL 750,52-motes%(2,1),80,20
 5957ENDIF
 5959WAIT
 5960IF X%<120 AND Y%<670 AND motes%(0,0)=0 THEN motes%(0,0)=1
 5970IF motes%(0,0)>0 THEN
 5980motes%(0,0)+=1
 5990IF motes%(0,0)<72 THEN
 6000IF motes%(0,0)<23 THEN
 6010motes%(1,0)+=1
 6040motes%(2,0)+=1
 6020motes%(motes%(2,0),0)=16
 6030motes%(motes%(2,0),1)=motes%(1,1)
 6050ELSE motes%(1,0)-=1:REM CHANGE dy
 6060ENDIF
 6070RECTANGLE 28,motes%(1,1)+20,68,36 TO 28,motes%(1,1)+motes%(1,0)+20
 6080GCOL7
 6090IF motes%(1,0)>0 RECTANGLE FILL 28,motes%(1,1)+16,68,motes%(1,0)
 6100IF motes%(1,0)<0 RECTANGLE FILL 28,motes%(1,1)+60,68,motes%(1,0)
 6110motes%(1,1)+=motes%(1,0):REM CHANGE y
 6120IF motes%(0,0)<71 THEN
 6130GCOL7
 6140FOR m=3 TO motes%(2,0)
 6150CIRCLE FILL 38,motes%(m,1),motes%(m,0)
 6160CIRCLE FILL 62,motes%(m,1),motes%(m,0)
 6170CIRCLE FILL 86,motes%(m,1),motes%(m,0)
 6180motes%(m,1)-=8:motes%(m,0)-=1
 6190NEXT
 6200GCOL0
 6210FOR m=3 TO motes%(2,0)
 6220CIRCLE FILL 38,motes%(m,1),motes%(m,0)
 6230CIRCLE FILL 62,motes%(m,1),motes%(m,0)
 6240CIRCLE FILL 86,motes%(m,1),motes%(m,0)
 6250NEXT
 6260RECTANGLE FILL 0,0,110,18
 6270ENDIF
 6280ENDIF
 6290IF motes%(0,0)>71 AND motes%(0,0)<120 THEN
 6300GCOL14:CIRCLE FILL (motes%(0,0)-71)*25+RND(10),50,50
 6310CIRCLE FILL 40+RND(10),(motes%(0,0)-71)*12+RND(10),80
 6320GCOL11:CIRCLE FILL (motes%(0,0)-71)*25+RND(20),RND(80),50
 6330CIRCLE FILL RND(80)+10,(motes%(0,0)-71)*12+RND(20),80
 6340ENDIF
 6350ENDIF
 6360WAIT
 6370GCOL7
 6380MOVE satX%+(SINRAD(satA%)*32),satY%+(COSRAD(satA%)*32)
 6390MOVE satX%+(SINRAD(satA%+100)*48),satY%+(COSRAD(satA%+100)*48)
 6400PLOT85,satX%+(SINRAD(satA%+260)*40),satY%+(COSRAD(satA%+260)*40)
 6410satA%+=4
 6420IF X%>908 AND Y%>150 AND Y%<528 THEN
 6430satX%+=satDX%
 6440IF satX%<954 satX%=954
 6450IF satX%>1212 satX%=1212
 6460satY%+=satDY%
 6470IF satY%<204 satY%=204
 6480IF satY%>474 satY%=474
 6490ax%-=satDX%*1.5:ay%-=satDY%*1.5
 6500satDX%=satDX%/1.1+(X%-satX%)/48
 6510satDY%=satDY%/1.1+(Y%-satY%)/48
 6520ENDIF
 6530GCOL11
 6540MOVE satX%+(SINRAD(satA%)*32),satY%+(COSRAD(satA%)*32)
 6550MOVE satX%+(SINRAD(satA%+100)*48),satY%+(COSRAD(satA%+100)*48)
 6560PLOT85,satX%+(SINRAD(satA%+260)*40),satY%+(COSRAD(satA%+260)*40)
 6570IF d%=0 AND X%>900 AND X%<1100 AND Y%>910 THEN
 6580e%=1
 6590GCOLRND(8)+7
 6600RECTANGLE 900,918,20,80
 6610GCOLRND(8)+7
 6620RECTANGLE 904,926,12,64
 6630ax%-=24
 6640ENDIF
 6650IF e%=1 AND X%>1100 THEN d%=1:GCOL7:RECTANGLE FILL 900,918,20,80:e%=0
 6660IF d%=1 AND X%>600 AND X%<800 AND Y%>910 THEN
 6670e%=2
 6680GCOLRND(8)+7
 6690RECTANGLE 600,918,20,80
 6700GCOLRND(8)+7
 6710RECTANGLE 604,926,12,64
 6720ax%-=48
 6730ENDIF
 6740IF e%=2 AND X%>800 THEN d%=2:GCOL7:RECTANGLE FILL 600,918,20,80:e%=0
 6750IF d%=2 AND X%<500 AND Y%>910 OR e%=3 THEN
 6760e%=3
 6770GCOLRND(8)+7
 6780RECTANGLE 600,918,20,80
 6790GCOLRND(8)+7
 6800RECTANGLE 604,926,12,64
 6810ax%+=48
 6820ENDIF
 6830IF e%=3 AND X%<300 THEN d%=3:GCOL7:RECTANGLE FILL 600,918,20,80:e%=0
 6840GCOL7
 6850WAIT
 6860RECTANGLE FILL644,154,196,366
 6870b%+=c%
 6880a%+=b%
 6890c%-=SGN(b%)
 6900GCOL0
 6910MOVE 730,520:MOVE 770,520
 6920PLOT&75,770+(SINRAD(a%/36-168)*350),520+(COSRAD(a%/36-168)*330)
 6930GCOL14
 6940CIRCLE FILL 750+(SINRAD(a%/36-168)*350),520+(COSRAD(a%/36-168)*330),32
 6950j%=(j%+1)MOD6
 6960IF j%=5 k%=(k%+1)MOD10
 6970IF X%>640 AND Y%<840 AND X%<1032 AND Y%>590 AND spikes%(k%,0)=0 THEN
 6980spikes%(k%,0)=1
 6990spikes%(k%,1)=850
 7000spikes%(k%,2)=840
 7010spikes%(k%,3)=(X%-850)/5
 7020spikes%(k%,4)=(Y%-840)/5
 7030ENDIF
 7040FOR i%=0 TO 9
 7050IF spikes%(i%,0)=1 THEN
 7060GCOL7
 7070CIRCLE FILL spikes%(i%,1),spikes%(i%,2),8
 7080IF spikes%(i%,1)+spikes%(i%,3)<652 OR spikes%(i%,1)+spikes%(i%,3)>1016 spikes%(i%,3)=-spikes%(i%,3)/4*3
 7090IF spikes%(i%,2)+spikes%(i%,4)<596 OR spikes%(i%,2)+spikes%(i%,4)>840 spikes%(i%,4)=-spikes%(i%,4)/4*3
 7100spikes%(i%,1)+=spikes%(i%,3)
 7110spikes%(i%,2)+=spikes%(i%,4)
 7120GCOL13
 7130CIRCLE FILL spikes%(i%,1),spikes%(i%,2),8
 7140IF spikes%(i%,3)>-6 AND spikes%(i%,3)<6 AND spikes%(i%,4)>-6 AND spikes%(i%,4)<6 GCOL7:CIRCLE FILL spikes%(i%,1),spikes%(i%,2),8:spikes%(i%,0)=0
 7150ENDIF
 7160NEXT
 7170WAIT
 7180FOR f%=0 TO 5
 7190IF stars%(4,f%)=1 GOTO 7300
 7200GCOL7
 7210CIRCLE FILL stars%(0,f%),stars%(1,f%),16
 7220IF stars%(2,f%)<20 stars%(1,f%)+=SGN(stars%(3,f%))
 7230stars%(3,f%)=((stars%(3,f%)+17)MOD33)-16
 7240IF X%+50>stars%(0,f%) AND X%-50<stars%(0,f%) AND Y%+50>stars%(1,f%) AND Y%-50<stars%(1,f%) AND stars%(2,f%)=0 THEN stars%(2,f%)=1
 7250IF stars%(2,f%)>0 stars%(2,f%)+=1
 7260IF stars%(2,f%)=0 GCOL9 ELSE IF stars%(2,f%)<16 GCOL14 ELSE GCOL11
 7270CIRCLE FILL stars%(0,f%),stars%(1,f%),16
 7280IF stars%(2,f%)>20 AND stars%(2,f%)<22 CIRCLE FILL stars%(0,f%),stars%(1,f%),100
 7290IF stars%(2,f%)=22 GCOL7:CIRCLE FILL stars%(0,f%),stars%(1,f%),100:stars%(4,f%)=1:l%-=1
 7300NEXT
 7310IF l%=0 GCOL7:RECTANGLE FILL 1164,848,98,60:l%=1
 7320PROCmouse
 7330X%+=ax%:Y%+=ay%
 7340MOUSE TO X%,Y%
 7350IF e%=1 AND d%=0 AND X%<924 THEN UNTIL1:GOTO300
 7360IF e%=2 AND d%=1 AND X%<624 THEN UNTIL1:GOTO290
 7370IF e%=3 AND d%=2 AND X%>596 THEN UNTIL1:GOTO280
 7380UNTIL POINT(X%+4,Y%-4)<>7 OR X%<60 AND Y%<944 AND Y%>880
 7390IF X%<60 AND Y%<944 AND Y%>880 UNTIL1 ELSE PROCexplosion:UNTIL0
 7400FOR across=X% TO -20 STEP-1
 7410COLOUR1,RND(128)+128,RND(128)+128,RND(128)+128
 7420MOUSE RECTANGLE across,Y%,0,0
 7430WAIT
 7440NEXT
 7450CLS
 7460MOUSE RECTANGLE 200,200,880,724
 7470PRINTTAB(35,15)"Well Done."
 7480PRINTTAB(24,17)"You have Completed all 5 levels."
 7490PRINTTAB(27,19)"Do you want to play again?"
 7500SYS"OS_Confirm" TO n%
 7510ENDPROC
 7520:
 7530DEFPROCPalette
 7540COLOUR 0,240,240,240
 7550COLOUR 1,0,0,0
 7560COLOUR 2,0,0,0
 7570COLOUR 3,0,0,0
 7580COLOUR 4,0,0,0
 7590COLOUR 5,0,0,0
 7600COLOUR 6,0,0,0
 7610COLOUR 7,0,0,0
 7620COLOUR 8,0,64,144
 7630COLOUR 9,224,224,0
 7640COLOUR 10,0,240,0
 7650COLOUR 11,208,0,0
 7660COLOUR 12,224,224,176
 7670COLOUR 13,224,96,208
 7680COLOUR 14,240,128,0
 7690COLOUR 15,0,176,240
 7700*POINTER 1
 7710ENDPROC


�>!Aargh!.!RunImage
%� � 1992 Cheap 'N' Arsty Software
F� This program is PD, but is not to be spread around in any edited
(� form without my consent!
2� So There !
<� LORIS
F@� NOTE [it may, however be archived using SPARK, ArcFS etc.]
P:� updated RiscPC compatable version 1996 by  and Loris
Z� � �error
d�12
n
ȗ � 1
x
�128+7
��0
��
��
��Palette
��stars%(42,5)
��spikes%(9,5)
��mouse%(2)
�� icicles%(5,1)
�� ricicles%(5)
�� drips%(5)
�� motes%(100,1)
�whichblack%=3
�level1
�level2
"�level3
,�level4
6�level5
@� n%=121 � �dp@
J*DeskTop
T�
^��error
h	� � �
r� �=17 �
|�
�!�30,10)"Fine! Be like that!"
�*POINTER 0
��
��
��
��5,5)"Oh no! A bug!"
��:�;" at line ";�
�R�'"Please contact me -LORIS- at 65 Davenport Ave,Hessle,N.Humberside,HU13 ORN"
�;�"or (01482) 640558 and tell me what happened! Thanks!"
��
���level1
��
��35,15)"Get Ready"
�1,0,0,0
!*ScreenLoad <Obey$Dir>.Level1
�Palette
&�locate(60,60)
0ȗ � 2,255,255,255
:DX%=0:DY%=0
DblobX%=1100:blobY%=300
NmissileX%=-100:missileY%=0
XmissileDX%=0:missileDY%=0
bs0%=0:s1%=0:s2%=0
l
trap%=380
vX%=60:Y%=60
�nomorebombs=�
�� spikes%=0 � 9
�+spikes%(spikes%,0)=spikes%*42+�(42)+480
�spikes%(spikes%,1)=382
�spikes%(spikes%,2)=0
�spikes%(spikes%,3)=0
�0spikes%(spikes%,4)=spikes%(spikes%,0)-�(200)
�spikes%(spikes%,5)=50+�(50)
��
�� stars%=0 � 42
�� n%=0 � 3
�stars%(stars%,n%)=0
��:�
�128+7
across=0
�
 across+=0.2
*� whichblack%,0,0,0
4whichblack%+=1
>!� whichblack%=7 whichblack%=2
H� whichblack%,255,255,0
R�7
\� 1200,100
f
� 1200,90
kȖ
p�&55,1200+DX%*3,100+DY%*3
zȏ Ȑ blobX%,blobY%,32
�DX%+=�(11)-6
�DY%+=�(11)-6
�� DX%>20 DX%=20
�� DX%<-20 DX%=-20
�� DY%>20 DY%=20
�� DY%<-20 DY%=-20
�blobX%+=DX%
�blobY%+=DY%
�
blobY%-=8
�� blobX%<992 blobX%=992
�� blobX%>1232 blobX%=1232
�� blobY%<40 blobY%=40
�� blobY%>380 blobY%=380
�9
� 1200,100

� 1200,90
$�&55,1200+DX%*3,100+DY%*3
.�10
8ȏ Ȑ blobX%,blobY%,32
B(� X%>950 � Y%<420 ȗ � X%+DX%,Y%+DY%
Lx� missileX%=-100 � X%>852 � Y%<838 � Y%>474 � nomorebombs=� � missileX%=900:missileY%=800:missileDX%=2:missileDY%=-4
V� missileX%>0 �
`�7
jȏ Ȑ missileX%,missileY%,8
tmissileX%+=missileDX%
~missileY%+=missileDY%
�/missileDX%=missileDX%/1.1+(X%-missileX%)/20
�/missileDY%=missileDY%/1.1+(Y%-missileY%)/20
�!� missileDX%>32 missileDX%=32
�#� missileDX%<-32 missileDX%=-32
�!� missileDY%>32 missileDY%=32
�#� missileDY%<-32 missileDY%=-32
�4� missileY%>826 � missileY%<480 � missileX%=-100
�x� missileX%<874 � missileX%>0  ȓ Ȑ 824,476,42,362:missileX%=-50:�12:� 800,472:� 890,472:�&55,840,500:nomorebombs=�
�-� �missileX%,missileY%)<>7 missileX%=-100
��11
�ȏ Ȑ missileX%,missileY%,8
�i� missileX%>X%-32 � missileX%<X%+32 � missileY%>Y%-32 � missileY%<Y%+32 ȏ Ȑ missileX%,missileY%,100
�
Ȗ

� stars%=0 � 42
� stars%(stars%,0)=0 �
stars%(stars%,2)=�(15)-8
(stars%(stars%,3)=�(13)-8
2`� stars%(stars%,2)<-2 � stars%(stars%,2)>2 � stars%(stars%,3)<-2 � stars%(stars%,3)>2 � �T^E
<4� stars%(stars%,2)=0 � stars%(stars%,3)=0 � �T^E
F+stars%(stars%,0)=566+stars%(stars%,2)*2
P+stars%(stars%,1)=668+stars%(stars%,3)*2
Z�
d�7
n-ȏ Ȑ stars%(stars%,0),stars%(stars%,1),4
x&stars%(stars%,0)+=stars%(stars%,2)
�&stars%(stars%,1)+=stars%(stars%,3)
�x� �stars%(stars%,0)+stars%(stars%,2)*3,stars%(stars%,1)+stars%(stars%,3)*3)<>7 stars%(stars%,0)=0:stars%(stars%,1)=0
��14
�-ȏ Ȑ stars%(stars%,0),stars%(stars%,1),4
��
��8
�	Ȗ:Ȗ
�ȓ Ȑ 4,515,260,252
��7
�� a=0 � 1 � 0.2
�"� �(a+across)*80+120,515+a*208
�"� �(a+across)*80+160,515+a*208
)�&75,�(a+across+0.2)*80+160,556+a*208
�
�7
"ȓ Ȑ 5,100,436,280
,�13
6� a=0 � 1 � 0.2
@� a*352,�(a+across)*100+280
J� a*352,�(a+across)*100+200
T)�&75,a*352+88,�(a+across+0.2)*100+200
^�
h� X%<264 � Y%>791 � s1%+=8
r�15
|ȓ Ȑ 264,791,-s1%,48
�/� s1%>264 � s1%<300 ȓ Ȑ 36,842,34,s1%-264
�0� X%>550 � X%<838 � Y%>910 � Y%<978 � s2%+=4
�ȓ Ȑ 550,977,290,-s2%
�ȓ Ȑ 550,913,290,s2%
�� Y%<400 � trap%>80 �
�Ȗ
�� spikes%=0 � 9
�� spikes%=5 Ȗ
��7
�+� spikes%(spikes%,0),spikes%(spikes%,1)
�.� spikes%(spikes%,0)+20,spikes%(spikes%,1)
�D�&55,spikes%(spikes%,0)+10,spikes%(spikes%,1)-spikes%(spikes%,5)
�0� X%>spikes%(spikes%,4) spikes%(spikes%,3)=1
�0� spikes%(spikes%,3)=1 spikes%(spikes%,2)+=1
�*spikes%(spikes%,1)-=spikes%(spikes%,2)
[� spikes%(spikes%,1)<spikes%(spikes%,5)/2+64 spikes%(spikes%,1)=spikes%(spikes%,5)/2+64
�15
+� spikes%(spikes%,0),spikes%(spikes%,1)
&.� spikes%(spikes%,0)+20,spikes%(spikes%,1)
0D�&55,spikes%(spikes%,0)+10,spikes%(spikes%,1)-spikes%(spikes%,5)
:�
DH� spikes%(8,1)<spikes%(8,5)+64 � spikes%(9,1)<spikes%(9,5)+64 s0%=16
Ntrap%-=s0%
X� trap%<80 s0%=0
b*ȓ Ȑ 480,trap%,444,52 � 480,trap%-s0%
l�
v
�mouse
�r� �X%+4,Y%-4)=0 � �X%+4,Y%-4)=whichblack% � �X%+4,Y%-4)>7 � X%<0 � X%>1280 � Y%>1024 � Y%<0 � X%>1070 � Y%>870
�*� X%>1070 � Y%>870 � 1 � �explosion:�0
�� across=X% � 1300 � 2
�'�1,128+�(127),128+�(127),128+�(127)
�ȗ ȓ across,Y%,0,0
�Ȗ
��
�� down=Y% � -20 � -4
�'�1,128+�(127),128+�(127),128+�(127)
�ȗ ȓ 1300,down,0,0
�Ȗ
��
��1,0,0,0
�
��level2
�
 �
*!*ScreenLoad <Obey$Dir>.Level2
4�Palette
>�locate(590,680)
Hȗ � 2,255,255,255
R
ȗX%,X%,Z
\a%=0:s0%=0:s1%=0:s2%=0
f+door1%=58:door2%=58:door3%=30:door4%=30
psec%=75-�($,2))
zmin%=60-�(��$,20,2))
�!hour%=12-�(��$,17,2))-min%/60
�� icicle%=0 � 5
�,icicles%(icicle%,0)=850+�(30)+icicle%*30
�icicles%(icicle%,1)=�(10)
�drips%(icicle%)=�(400)+66
�ricicles%(icicle%)=�(8)
��
��
�Ȗ:Ȗ:Ȗ:Ȗ:Ȗ
��whichblack%,0,0,0
�whichblack%+=1
�!� whichblack%=7 whichblack%=2
�� whichblack%,255,128,0
	�7
	,ȏ Ȑ 590+(��(a%)*40),684+(��(a%)*80),16
	,ȏ Ȑ 590+(��(a%)*80),684+(��(a%)*40),16
	$
a%+=16
	.�11
	8,ȏ Ȑ 590+(��(a%)*40),684+(��(a%)*80),16
	B,ȏ Ȑ 590+(��(a%)*80),684+(��(a%)*40),16
	L.� X%>554 � Y%<896 � X%<622 � Y%>840 s0%+=8
	V�9
	` � s0%>0 ȓ Ȑ 554,840,68,s0%
	j� X%<418 � Y%<536 s1%-=4
	t*� s1%<0 � s1%>-62 ȓ Ȑ 420,480,s1%,52
	~� s1%<-62 s1%-=12
	�0� s1%<-60 � s1%>-432 ȓ Ȑ 420,436,s1%+58,46
	�!� s1%<-426 � s1%>-790 s1%-=12
	�1� s1%<-426 � s1%>-790 ȓ Ȑ 56,434,60,s1%+426
	�� s1%<-790 � s2%<136 s2%+=8
	�-� s2%>0 ȓ 116,60+s2%,300,20 � 116,68+s2%
	�/� s2%>0 ȓ 116,364-s2%,300,20 � 116,356-s2%
	��7
	�ȓ Ȑ 642,66,100,door1%
	�� X%>476 � Y%>200 door1%-=4
	�� door1%<0 door1%=0
	�� Y%<200 door1%+=14
	�� door1%>60 door1%=60
ȓ Ȑ 646,200,96,60

ȏ Ȑ 688,370,door3%
� X%<488 door2%-=4
� door2%<0 door2%=0
(� X%>488 door2%+=12
2� door2%>60 door2%=60
<� Y%<300 door3%-=4
F� door3%<0 door3%=0
P� Y%>300 door3%+=12
Z� door3%>40 door3%=40
d5� X%>600 � Y%>460 � Y%<580 door4%-=2 � door4%+=10
n� door4%<0 door4%=0
x� door4%>32 door4%=32
�ȓ Ȑ 646,474,98,64
��15
�ȓ Ȑ 646,66,90,door1%
�
� 650,200
�� 650,200+door2%
��&55,670+door2%,200
�
� 730,260
�� 730,260-door2%
��&55,708-door2%,260
�ȏ Ȑ 688,370,door3%
�4ȓ Ȑ 678-door4%,504-door4%,door4%*2+24,door4%*2
�� icicle%=0 � 5
��0
ȓ Ȑ 835,0,250,60
g� drips%(icicle%)<60+ricicles%(icicle%) � drips%(icicle%)>0 drips%(icicle%)=0:ricicles%(icicle%)+=6
�� drips%(icicle%)>0 �7:ȏ Ȑ icicles%(icicle%,0)+10,drips%(icicle%),4:drips%(icicle%)-=12:�15:ȏ Ȑ icicles%(icicle%,0)+10,drips%(icicle%),4
"`� drips%(icicle%)=0 � �(20)=1 icicles%(icicle%,1)+=8:drips%(icicle%)=460-icicles%(icicle%,1)
,5� icicles%(icicle%,1)>300 icicles%(icicle%,1)=300
63� ricicles%(icicle%)>200 ricicles%(icicle%)=200
@�8
J4� icicles%(icicle%,0)-icicles%(icicle%,1)/10,460
T7� icicles%(icicle%,0)+20+icicles%(icicle%,1)/10,460
^7�&55,icicles%(icicle%,0)+10,460-icicles%(icicle%,1)
h4� icicles%(icicle%,0)-ricicles%(icicle%)/2+10,66
r4� icicles%(icicle%,0)+ricicles%(icicle%)/2+10,66
|5�&55,icicles%(icicle%,0)+10,66+ricicles%(icicle%)
��
��7
�=� 1024,676,1024+(��((sec%)*6)*150),676+(��((sec%)*6)*150)
�� sec%>74 �
�*� 1024+��(min%*6)*16,676+��(min%*6)*16
�*� 1024-��(min%*6)*16,676-��(min%*6)*16
�=�&55,1024+(��((min%*6)+90)*150),676+(��((min%*6)+90)*150)
�.� 1024+��(hour%*30)*24,676+��(hour%*30)*24
�.� 1024-��(hour%*30)*24,676-��(hour%*30)*24
�A�&55,1024+(��((hour%*30)+90)*120),676+(��((hour%*30)+90)*120)
�min%=60-�(��$,20,2))
�,� min%<60 � min%>29 � demi=0.5 � demi%=0
�!hour%=12-�(��$,17,2))-min%/60
�
sec%=75-�($,2))
�11
&.� 1024+��(hour%*30)*24,676+��(hour%*30)*24
0.� 1024-��(hour%*30)*24,676-��(hour%*30)*24
:A�&55,1024+(��((hour%*30)+90)*120),676+(��((hour%*30)+90)*120)
D�14
N*� 1024+��(min%*6)*16,676+��(min%*6)*16
X*� 1024-��(min%*6)*16,676-��(min%*6)*16
b=�&55,1024+(��((min%*6)+90)*150),676+(��((min%*6)+90)*150)
l�9
v=� 1024,676,1024+(��((sec%)*6)*150),676+(��((sec%)*6)*150)
�
�mouse
�{� �X%+4,Y%-4)=0 � �X%+4,Y%-4)=whichblack% � �X%+4,Y%-4)>7 � X%<0 � X%>1280 � Y%>1024 � Y%<0 � X%>1200 � Y%>354 � Y%<466
�2� X%>1200 � Y%>354 � Y%<466 �1 � �explosion:�0
�� across=X% � 1300 � 2
�'�1,�(128)+128,�(128)+128,�(128)+128
�ȗ ȓ across,Y%,0,0
�Ȗ
��
�� up=Y% � 1100 � 4
�'�1,�(128)+128,�(128)+128,�(128)+128
�ȗ ȓ 1300,up,0,0
�Ȗ
��

�1,0,0,0

�

��explosion

 *POINTER 0

*� explosion=0 � 50

4�(�X%+4,Y%-4))

>ȏ Ȑ X%,Y%,explosion

H�0

Rȏ X%,Y%,explosion+8

\Ȗ

f�

p�

z�

���mouse

�� colour%=0 � 2

�mouse%(colour%)+=�(33)-17

�-� mouse%(colour%)>255 mouse%(colour%)=255

�-� mouse%(colour%)<128 mouse%(colour%)=128

��

�(ȗ � 1,mouse%(0),mouse%(1),mouse%(2)

�ȗX%,Y%,Z%

�ȗ ȓ X%-50,Y%-50,100,100

�� Z% � ȗ ȓ X%,Y%,0,0

��

���level3

��
�
X%=0
!*SCREENLOAD <Obey$Dir>.Level3
$�Palette
.�locate(80,980)
8Da%=0:b%=0:c%=4:d%=600:e%=114:lastdrop%=0:drips%(0)=0:drips%(1)=0
Bdoor1%=0:f%=2:s0%=0
Lȗ � 2,255,255,255
V�
`�7
tȖ:Ȗ:Ȗ
~ȝ Ȑ 268,430,230,50,�(a%)
�!ȝ Ȑ 268,430,230,50,�(a%+90)
�
a%-=12
��10
�ȝ Ȑ 268,430,230,50,�(a%)
�!ȝ Ȑ 268,430,230,50,�(a%+90)
�Ȗ
��7
�ȝ Ȑ 300,938,100,b%
�
b%+=c%
�� b%>78 � b%<-78 c%=-c%
��9.5+�(b%)/2
�ȝ Ȑ 300,938,80,b%
�lastdrop%+=1
/� lastdrop%=16 � e%<350 drips%(1)=340:d%-=4

;� lastdrop%=32 � e%<350 drips%(0)=340:d%-=4:lastdrop%=0
� drip%=0 � 1
c� drips%(drip%)>0 �7:ȏ Ȑ 1104,drips%(drip%),8:drips%(drip%)-=8:�14:ȏ Ȑ 1104,drips%(drip%),8
([� drips%(drip%)>0 � drips%(drip%)<e%-8 e%+=4:�14:ȓ Ȑ 1096,e%-16,16,12:drips%(drip%)=0
2�
<�128+14
F�7
P�77,1100,d%
Z
�128+7
d�14
n�77,1100,e%
x%� X%>565 � Y%<666 � s0%=0 � s0%=4
�� s0%>0 � s0%<330 �
�
s0%+=8
��0
��565,666
��565+s0%+12,666
��&55,565,666-s0%*2+32
��908,32
��908-s0%-12,32
��&55,908,32+s0%*2-32
��
��7
�ȓ Ȑ444,908,120,56
�door1%+=f%
!� door1%>28 � door1%<2 f%=-f%
�15
ȓ Ȑ 444,904,120,door1%
"ȓ Ȑ 444,964,120,-door1%
,ȓ0,738,8,60 � 1272,738
6ȓ0,738,1280,60 � -8,738
@
�mouse
J8� X%>564 � X%<1100 � Y%>850 � ȗ � X%,Y%-(X%-564)/64
Ta� �X%+4,Y%-4)=0 � �X%+4,Y%-4)>7 � X%<0 � X%>1280 � Y%>1024 � Y%<0 � X%>1216 � Y%>240 � Y%<274
^3� X%>1216 � Y%>240 � Y%<274 � 1 � �explosion:�0
h� across=X% � 1300 � 2
r'�1,128+�(127),128+�(127),128+�(127)
|ȗ ȓ across,Y%,0,0
�Ȗ
��
�� up=Y% � 1100 � 4
�'�1,128+�(127),128+�(127),128+�(127)
�ȗ ȓ 1300,up,0,0
�Ȗ
��
��1,0,0,0
��
���level4
��
�a%=50:b%=5
�
c%=0:d%=0

e%=930

f%=0:g%=0
h%=730:m%=0
&� smoke%=0 � 100
0motes%(smoke%,0)=�(40)+40
:motes%(smoke%,1)=950+�(20)
D�
Nwhichblack2%=whichblack%-1
X#� whichblack2%=1 whichblack2%=6
b!*ScreenLoad <Obey$Dir>.Level4
l�Palette
v�8,0,0,240
��locate(1160,924):�1160,924
�ȗ � 2,255,255,255
��
�Ȗ:Ȗ:Ȗ:Ȗ
��whichblack%,0,0,0
��whichblack2%,0,0,0
�"whichblack%+=1:whichblack2%+=1
�!� whichblack%=7 whichblack%=2
�#� whichblack2%=7 whichblack2%=2
�� whichblack%,0,255,0
�� whichblack2%,0,128,128
��7
�ȝ Ȑ 840,916,a%,100-a%

a%+=b%
� a%>70 � a%<25 b%=-b%
�14
 ȝ Ȑ 840,916,a%,100-a%
*�7
4)ȏ Ȑ 460+��(c%)*200,916+��(d%)*50,24
>c%+=5:d%+=10
H�9
R)ȏ Ȑ 460+��(c%)*200,916+��(d%)*50,24
\�7
fȏ Ȑ 58,e%,20
p	e%-=3
z� DIE IF e%<390
��0
�ȏ Ȑ 58,e%,8+�(12)
�� smoke%=0 � 100
�K� motes%(smoke%,0)=0 � motes%(smoke%,0)=40+�(36):motes%(smoke%,1)=e%+24
�R%=�(17)-9
��7
�)�69,motes%(smoke%,0),motes%(smoke%,1)
ʓ� �motes%(smoke%,0)+R%,motes%(smoke%,1)+4)<>7 � motes%(smoke%,1)>e%+100 � �(20)=1 motes%(smoke%,0)=0 � motes%(smoke%,0)+=R%:motes%(smoke%,1)+=4
�� 0
�)�69,motes%(smoke%,0),motes%(smoke%,1)
��
�	m%+=1
��7
ȏ Ȑ 1224,h%,32

h%-=m%
� h%<64 h%=64:m%=-36
$�13
.ȏ Ȑ 1224,h%,32
8�7
B,ȏ Ȑ 504+(X%-504)/32,714+(Y%-714)/32,24
L,ȏ Ȑ 644+(X%-644)/32,714+(Y%-714)/32,24
V
�mouse
`�8
j,ȏ Ȑ 504+(X%-504)/32,714+(Y%-714)/32,24
t,ȏ Ȑ 644+(X%-644)/32,714+(Y%-714)/32,24
~�� �X%+4,Y%-4)=0 � �X%+4,Y%-4)=whichblack% � �X%+4,Y%-4)=whichblack2% � �X%+4,Y%-4)>7 � X%<0 � X%>1280 � Y%>1024 � e%<390 � X%<50 � Y%>15 � Y%<150
�� e%<390 �
�� fade%=255 � 0 �-1
�Ȗ
�� colour%=1 � 15
��colour%,fade%,fade%,fade%
��
�*POINTER 0
��
��
��Palette
��1,0,0,0
�*POINTER 1
�

>� X%<50 � Y%>15 � Y%<150 �1 � � e%<390 � 0 � �explosion:�0
� across=X% � 16 �-1
�8
(0ȏ Ȑ 504+(across-504)/32,714+(Y%-714)/32,24
20ȏ Ȑ 644+(across-644)/32,714+(Y%-714)/32,24
<'�1,�(128)+128,�(128)+128,�(128)+128
Fȗ ȓ across,Y%,0,0
P�7
ZȖ
d0ȏ Ȑ 504+(across-504)/32,714+(Y%-714)/32,24
n0ȏ Ȑ 644+(across-644)/32,714+(Y%-714)/32,24
x�
�� across=0 � 48 �1
��7
�� across=20 � � 0,50,0,1024
��8
�2ȏ Ȑ 504+across*2-(500)/32,714+(Y%-714)/32,24
�2ȏ Ȑ 644+across*2-(640)/32,714+(Y%-714)/32,24
�'�1,�(128)+128,�(128)+128,�(128)+128
�ȓ 0,0,1276,1022 � 2,0
��7
�Ȗ
�2ȏ Ȑ 504+across*2-(504)/32,714+(Y%-714)/32,24
�2ȏ Ȑ 644+across*2-(644)/32,714+(Y%-714)/32,24
��
� up=Y% � 1100 �4
�8
$ȏ Ȑ 488+100,714+(up-714)/32,24
"$ȏ Ȑ 624+100,714+(up-714)/32,24
,'�1,�(128)+128,�(128)+128,�(128)+128
6ȗ ȓ 16,up,0,0
@�7
JȖ
T$ȏ Ȑ 488+100,714+(up-714)/32,24
^$ȏ Ȑ 624+100,714+(up-714)/32,24
h�
r�1,0,0,0
|�
���locate(ox%,oy%)
�*POINTER 1
�ȗ ȓ ox%,oy%,0,0
�ȗ ȓ ox%-4,oy%-4,8,8
�-ș"Wimp_SpriteOp",36,,"u_r_here",%1100001
�ȗ � 1,0,0,255
�ȗ � 2,0,0,128
�ȗ � 3,255,0,0
�$�:ȗx%,y%,z%:� ox%<>x% � oy%<>y%
�0ș"Wimp_SpriteOp",36,,"gamepointer",%1100001
��
���level5
��
�
!*ScreenLoad <Obey$Dir>.Level5
�Palette
&�locate(320,400):�320,400
0ȗ � 2,255,255,255
:2satX%=1000:satY%=220:satA%=0:satDX%=0:satDY%=0
D?a%=0:b%=10:c%=-10:d%=0:e%=0:i%=0:j%=0:k%=0:l%=6:t%=0:X%=320
N
� m=0 � 9
X
� c=0 � 5
bspikes%(m,c)=0
l�:�
v
� m=0 � 5
�stars%(0,m)=1130+m*16+�(16)
�stars%(1,m)=650+�(100)
�stars%(2,m)=0
�stars%(3,m)=�(32)-16
�stars%(4,m)=0
��
�motes%(0,0)=0:motes%(0,1)=0
�motes%(1,0)=0:motes%(1,1)=0
�motes%(2,0)=2:motes%(2,1)=0
��
�ax%=0:ay%=0
�)� X%>204 � Y%>164 � X%<450 � Y%<432 �
�ȗ ȓ X%-50,Y%-80,100,100
ay%=-t%
� t%<100 t%+=1
�
  � X%<640 � Y%>524 � Y%<854 �
*%ax%+=��(satA%)*8:ay%+=��(satA%)*8
4�
>Ȗ
?,� X%>700 � motes%(2,1)=0 � motes%(2,1)=1
@5� motes%(2,1)>0 � motes%(2,1)<32 � motes%(2,1)+=4
@� motes%(0,0)<101 �
A� 7
Bȓ Ȑ 750,20,80,52
C�0
D"ȓ Ȑ 750,52-motes%(2,1),80,20
E�
GȖ
H5� X%<120 � Y%<670 � motes%(0,0)=0 � motes%(0,0)=1
R� motes%(0,0)>0 �
\motes%(0,0)+=1
f� motes%(0,0)<72 �
p� motes%(0,0)<23 �
zmotes%(1,0)+=1
�motes%(2,0)+=1
�motes%(motes%(2,0),0)=16
�%motes%(motes%(2,0),1)=motes%(1,1)
� � motes%(1,0)-=1:� CHANGE dy
��
�>ȓ 28,motes%(1,1)+20,68,36 � 28,motes%(1,1)+motes%(1,0)+20
��7
�:� motes%(1,0)>0 ȓ Ȑ 28,motes%(1,1)+16,68,motes%(1,0)
�:� motes%(1,0)<0 ȓ Ȑ 28,motes%(1,1)+60,68,motes%(1,0)
�'motes%(1,1)+=motes%(1,0):� CHANGE y
�� motes%(0,0)<71 �
��7
�� m=3 � motes%(2,0)
$ȏ Ȑ 38,motes%(m,1),motes%(m,0)
$ȏ Ȑ 62,motes%(m,1),motes%(m,0)
$ȏ Ȑ 86,motes%(m,1),motes%(m,0)
$!motes%(m,1)-=8:motes%(m,0)-=1
.�
8�0
B� m=3 � motes%(2,0)
L$ȏ Ȑ 38,motes%(m,1),motes%(m,0)
V$ȏ Ȑ 62,motes%(m,1),motes%(m,0)
`$ȏ Ȑ 86,motes%(m,1),motes%(m,0)
j�
tȓ Ȑ 0,0,110,18
~�
��
�(� motes%(0,0)>71 � motes%(0,0)<120 �
�-�14:ȏ Ȑ (motes%(0,0)-71)*25+�(10),50,50
�/ȏ Ȑ 40+�(10),(motes%(0,0)-71)*12+�(10),80
�0�11:ȏ Ȑ (motes%(0,0)-71)*25+�(20),�(80),50
�/ȏ Ȑ �(80)+10,(motes%(0,0)-71)*12+�(20),80
��
��
�Ȗ
��7
�/� satX%+(��(satA%)*32),satY%+(��(satA%)*32)
�7� satX%+(��(satA%+100)*48),satY%+(��(satA%+100)*48)
9�85,satX%+(��(satA%+260)*40),satY%+(��(satA%+260)*40)

satA%+=4
 � X%>908 � Y%>150 � Y%<528 �
satX%+=satDX%
(� satX%<954 satX%=954
2� satX%>1212 satX%=1212
<satY%+=satDY%
F� satY%<204 satY%=204
P� satY%>474 satY%=474
Z#ax%-=satDX%*1.5:ay%-=satDY%*1.5
d#satDX%=satDX%/1.1+(X%-satX%)/48
n#satDY%=satDY%/1.1+(Y%-satY%)/48
x�
��11
�/� satX%+(��(satA%)*32),satY%+(��(satA%)*32)
�7� satX%+(��(satA%+100)*48),satY%+(��(satA%+100)*48)
�9�85,satX%+(��(satA%+260)*40),satY%+(��(satA%+260)*40)
�(� d%=0 � X%>900 � X%<1100 � Y%>910 �
�e%=1
��(8)+7
�ȓ 900,918,20,80
��(8)+7
�ȓ 904,926,12,64
�ax%-=24
��
�7� e%=1 � X%>1100 � d%=1:�7:ȓ Ȑ 900,918,20,80:e%=0
'� d%=1 � X%>600 � X%<800 � Y%>910 �
e%=2
�(8)+7
"ȓ 600,918,20,80
,�(8)+7
6ȓ 604,926,12,64
@ax%-=48
J�
T6� e%=2 � X%>800 � d%=2:�7:ȓ Ȑ 600,918,20,80:e%=0
^%� d%=2 � X%<500 � Y%>910 � e%=3 �
he%=3
r�(8)+7
|ȓ 600,918,20,80
��(8)+7
�ȓ 604,926,12,64
�ax%+=48
��
�6� e%=3 � X%<300 � d%=3:�7:ȓ Ȑ 600,918,20,80:e%=0
��7
�Ȗ
�ȓ Ȑ644,154,196,366
�
b%+=c%
�
a%+=b%
�
c%-=�(b%)
��0
�� 730,520:� 770,520
8�&75,770+(��(a%/36-168)*350),520+(��(a%/36-168)*330)
�14
<ȏ Ȑ 750+(��(a%/36-168)*350),520+(��(a%/36-168)*330),32
&j%=(j%+1)�6
0� j%=5 k%=(k%+1)�10
:<� X%>640 � Y%<840 � X%<1032 � Y%>590 � spikes%(k%,0)=0 �
Dspikes%(k%,0)=1
Nspikes%(k%,1)=850
Xspikes%(k%,2)=840
bspikes%(k%,3)=(X%-850)/5
lspikes%(k%,4)=(Y%-840)/5
v�
�� i%=0 � 9
�� spikes%(i%,0)=1 �
��7
�'ȏ Ȑ spikes%(i%,1),spikes%(i%,2),8
�i� spikes%(i%,1)+spikes%(i%,3)<652 � spikes%(i%,1)+spikes%(i%,3)>1016 spikes%(i%,3)=-spikes%(i%,3)/4*3
�h� spikes%(i%,2)+spikes%(i%,4)<596 � spikes%(i%,2)+spikes%(i%,4)>840 spikes%(i%,4)=-spikes%(i%,4)/4*3
� spikes%(i%,1)+=spikes%(i%,3)
� spikes%(i%,2)+=spikes%(i%,4)
��13
�'ȏ Ȑ spikes%(i%,1),spikes%(i%,2),8
�� spikes%(i%,3)>-6 � spikes%(i%,3)<6 � spikes%(i%,4)>-6 � spikes%(i%,4)<6 �7:ȏ Ȑ spikes%(i%,1),spikes%(i%,2),8:spikes%(i%,0)=0
��
��
Ȗ
� f%=0 � 5
� stars%(4,f%)=1 � �tD\
 �7
*&ȏ Ȑ stars%(0,f%),stars%(1,f%),16
43� stars%(2,f%)<20 stars%(1,f%)+=�(stars%(3,f%))
>*stars%(3,f%)=((stars%(3,f%)+17)�33)-16
Hy� X%+50>stars%(0,f%) � X%-50<stars%(0,f%) � Y%+50>stars%(1,f%) � Y%-50<stars%(1,f%) � stars%(2,f%)=0 � stars%(2,f%)=1
R$� stars%(2,f%)>0 stars%(2,f%)+=1
\5� stars%(2,f%)=0 �9 � � stars%(2,f%)<16 �14 � �11
f&ȏ Ȑ stars%(0,f%),stars%(1,f%),16
pK� stars%(2,f%)>20 � stars%(2,f%)<22 ȏ Ȑ stars%(0,f%),stars%(1,f%),100
zQ� stars%(2,f%)=22 �7:ȏ Ȑ stars%(0,f%),stars%(1,f%),100:stars%(4,f%)=1:l%-=1
��
�'� l%=0 �7:ȓ Ȑ 1164,848,98,60:l%=1
�
�mouse
�X%+=ax%:Y%+=ay%
�ȗ � X%,Y%
�%� e%=1 � d%=0 � X%<924 � �1:�TlA
�%� e%=2 � d%=1 � X%<624 � �1:�TbA
�%� e%=3 � d%=2 � X%>596 � �1:�TXA
�.� �X%+4,Y%-4)<>7 � X%<60 � Y%<944 � Y%>880
�0� X%<60 � Y%<944 � Y%>880 �1 � �explosion:�0
�� across=X% � -20 �-1
�'�1,�(128)+128,�(128)+128,�(128)+128
�ȗ ȓ across,Y%,0,0
Ȗ
�
�
$ȗ ȓ 200,200,880,724
.�35,15)"Well Done."
8.�24,17)"You have Completed all 5 levels."
B(�27,19)"Do you want to play again?"
Lș"OS_Confirm" � n%
V�
`:
j
��Palette
t� 0,240,240,240
~
� 1,0,0,0
�
� 2,0,0,0
�
� 3,0,0,0
�
� 4,0,0,0
�
� 5,0,0,0
�
� 6,0,0,0
�
� 7,0,0,0
�� 8,0,64,144
�� 9,224,224,0
�� 10,0,240,0
�� 11,208,0,0
�� 12,224,224,176
�� 13,224,96,208
� 14,240,128,0

� 15,0,176,240
*POINTER 1
�
�

00000000  0d 00 0a 17 f4 3e 21 41  61 72 67 68 21 2e 21 52  |.....>!Aargh!.!R|
00000010  75 6e 49 6d 61 67 65 0d  00 14 25 f4 20 a9 20 31  |unImage...%. . 1|
00000020  39 39 32 20 43 68 65 61  70 20 27 4e 27 20 41 72  |992 Cheap 'N' Ar|
00000030  73 74 79 20 53 6f 66 74  77 61 72 65 0d 00 1e 46  |sty Software...F|
00000040  f4 20 54 68 69 73 20 70  72 6f 67 72 61 6d 20 69  |. This program i|
00000050  73 20 50 44 2c 20 62 75  74 20 69 73 20 6e 6f 74  |s PD, but is not|
00000060  20 74 6f 20 62 65 20 73  70 72 65 61 64 20 61 72  | to be spread ar|
00000070  6f 75 6e 64 20 69 6e 20  61 6e 79 20 65 64 69 74  |ound in any edit|
00000080  65 64 0d 00 28 1e f4 20  66 6f 72 6d 20 77 69 74  |ed..(.. form wit|
00000090  68 6f 75 74 20 6d 79 20  63 6f 6e 73 65 6e 74 21  |hout my consent!|
000000a0  0d 00 32 10 f4 20 53 6f  20 54 68 65 72 65 20 21  |..2.. So There !|
000000b0  0d 00 3c 0b f4 20 4c 4f  52 49 53 0d 00 46 40 f4  |..<.. LORIS..F@.|
000000c0  20 4e 4f 54 45 20 5b 69  74 20 6d 61 79 2c 20 68  | NOTE [it may, h|
000000d0  6f 77 65 76 65 72 20 62  65 20 61 72 63 68 69 76  |owever be archiv|
000000e0  65 64 20 75 73 69 6e 67  20 53 50 41 52 4b 2c 20  |ed using SPARK, |
000000f0  41 72 63 46 53 20 65 74  63 2e 5d 0d 00 50 3a f4  |ArcFS etc.]..P:.|
00000100  20 75 70 64 61 74 65 64  20 52 69 73 63 50 43 20  | updated RiscPC |
00000110  63 6f 6d 70 61 74 61 62  6c 65 20 76 65 72 73 69  |compatable versi|
00000120  6f 6e 20 31 39 39 36 20  62 79 20 20 61 6e 64 20  |on 1996 by  and |
00000130  4c 6f 72 69 73 0d 00 5a  0e ee 20 85 20 f2 65 72  |Loris..Z.. . .er|
00000140  72 6f 72 0d 00 64 07 eb  31 32 0d 00 6e 0a c8 97  |ror..d..12..n...|
00000150  20 88 20 31 0d 00 78 0a  fb 31 32 38 2b 37 0d 00  | . 1..x..128+7..|
00000160  82 06 fb 30 0d 00 8c 05  db 0d 00 96 05 87 0d 00  |...0............|
00000170  a0 0c f2 50 61 6c 65 74  74 65 0d 00 aa 11 de 73  |...Palette.....s|
00000180  74 61 72 73 25 28 34 32  2c 35 29 0d 00 b4 11 de  |tars%(42,5).....|
00000190  73 70 69 6b 65 73 25 28  39 2c 35 29 0d 00 be 0e  |spikes%(9,5)....|
000001a0  de 6d 6f 75 73 65 25 28  32 29 0d 00 c8 13 de 20  |.mouse%(2)..... |
000001b0  69 63 69 63 6c 65 73 25  28 35 2c 31 29 0d 00 d2  |icicles%(5,1)...|
000001c0  12 de 20 72 69 63 69 63  6c 65 73 25 28 35 29 0d  |.. ricicles%(5).|
000001d0  00 dc 0f de 20 64 72 69  70 73 25 28 35 29 0d 00  |.... drips%(5)..|
000001e0  e6 13 de 20 6d 6f 74 65  73 25 28 31 30 30 2c 31  |... motes%(100,1|
000001f0  29 0d 00 f0 11 77 68 69  63 68 62 6c 61 63 6b 25  |)....whichblack%|
00000200  3d 33 0d 01 0e 0b f2 6c  65 76 65 6c 31 0d 01 18  |=3.....level1...|
00000210  0b f2 6c 65 76 65 6c 32  0d 01 22 0b f2 6c 65 76  |..level2.."..lev|
00000220  65 6c 33 0d 01 2c 0b f2  6c 65 76 65 6c 34 0d 01  |el3..,..level4..|
00000230  36 0b f2 6c 65 76 65 6c  35 0d 01 40 13 e7 20 6e  |6..level5..@.. n|
00000240  25 3d 31 32 31 20 e5 20  8d 64 70 40 0d 01 4a 0c  |%=121 . .dp@..J.|
00000250  2a 44 65 73 6b 54 6f 70  0d 01 54 05 e0 0d 01 5e  |*DeskTop..T....^|
00000260  0b dd f2 65 72 72 6f 72  0d 01 68 09 ee 20 85 20  |...error..h.. . |
00000270  87 0d 01 72 0c e7 20 9f  3d 31 37 20 8c 0d 01 7c  |...r.. .=17 ...||
00000280  05 db 0d 01 86 21 f1 8a  33 30 2c 31 30 29 22 46  |.....!..30,10)"F|
00000290  69 6e 65 21 20 42 65 20  6c 69 6b 65 20 74 68 61  |ine! Be like tha|
000002a0  74 21 22 0d 01 90 0e 2a  50 4f 49 4e 54 45 52 20  |t!"....*POINTER |
000002b0  30 0d 01 9a 05 e0 0d 01  a4 05 cd 0d 01 ae 05 db  |0...............|
000002c0  0d 01 b8 19 f1 8a 35 2c  35 29 22 4f 68 20 6e 6f  |......5,5)"Oh no|
000002d0  21 20 41 20 62 75 67 21  22 0d 01 c2 15 f6 3a f1  |! A bug!".....:.|
000002e0  3b 22 20 61 74 20 6c 69  6e 65 20 22 3b 9e 0d 01  |;" at line ";...|
000002f0  cc 52 f1 27 22 50 6c 65  61 73 65 20 63 6f 6e 74  |.R.'"Please cont|
00000300  61 63 74 20 6d 65 20 2d  4c 4f 52 49 53 2d 20 61  |act me -LORIS- a|
00000310  74 20 36 35 20 44 61 76  65 6e 70 6f 72 74 20 41  |t 65 Davenport A|
00000320  76 65 2c 48 65 73 73 6c  65 2c 4e 2e 48 75 6d 62  |ve,Hessle,N.Humb|
00000330  65 72 73 69 64 65 2c 48  55 31 33 20 4f 52 4e 22  |erside,HU13 ORN"|
00000340  0d 01 d6 3b f1 22 6f 72  20 28 30 31 34 38 32 29  |...;."or (01482)|
00000350  20 36 34 30 35 35 38 20  61 6e 64 20 74 65 6c 6c  | 640558 and tell|
00000360  20 6d 65 20 77 68 61 74  20 68 61 70 70 65 6e 65  | me what happene|
00000370  64 21 20 54 68 61 6e 6b  73 21 22 0d 01 e0 05 e0  |d! Thanks!".....|
00000380  0d 01 ea 0c dd f2 6c 65  76 65 6c 31 0d 01 f4 05  |......level1....|
00000390  f5 0d 01 fe 17 f1 8a 33  35 2c 31 35 29 22 47 65  |.......35,15)"Ge|
000003a0  74 20 52 65 61 64 79 22  0d 02 08 0c fb 31 2c 30  |t Ready".....1,0|
000003b0  2c 30 2c 30 0d 02 12 21  2a 53 63 72 65 65 6e 4c  |,0,0...!*ScreenL|
000003c0  6f 61 64 20 3c 4f 62 65  79 24 44 69 72 3e 2e 4c  |oad <Obey$Dir>.L|
000003d0  65 76 65 6c 31 0d 02 1c  0c f2 50 61 6c 65 74 74  |evel1.....Palett|
000003e0  65 0d 02 26 12 f2 6c 6f  63 61 74 65 28 36 30 2c  |e..&..locate(60,|
000003f0  36 30 29 0d 02 30 16 c8  97 20 fb 20 32 2c 32 35  |60)..0... . 2,25|
00000400  35 2c 32 35 35 2c 32 35  35 0d 02 3a 0f 44 58 25  |5,255,255..:.DX%|
00000410  3d 30 3a 44 59 25 3d 30  0d 02 44 1a 62 6c 6f 62  |=0:DY%=0..D.blob|
00000420  58 25 3d 31 31 30 30 3a  62 6c 6f 62 59 25 3d 33  |X%=1100:blobY%=3|
00000430  30 30 0d 02 4e 1e 6d 69  73 73 69 6c 65 58 25 3d  |00..N.missileX%=|
00000440  2d 31 30 30 3a 6d 69 73  73 69 6c 65 59 25 3d 30  |-100:missileY%=0|
00000450  0d 02 58 1d 6d 69 73 73  69 6c 65 44 58 25 3d 30  |..X.missileDX%=0|
00000460  3a 6d 69 73 73 69 6c 65  44 59 25 3d 30 0d 02 62  |:missileDY%=0..b|
00000470  15 73 30 25 3d 30 3a 73  31 25 3d 30 3a 73 32 25  |.s0%=0:s1%=0:s2%|
00000480  3d 30 0d 02 6c 0d 74 72  61 70 25 3d 33 38 30 0d  |=0..l.trap%=380.|
00000490  02 76 0f 58 25 3d 36 30  3a 59 25 3d 36 30 0d 02  |.v.X%=60:Y%=60..|
000004a0  80 11 6e 6f 6d 6f 72 65  62 6f 6d 62 73 3d a3 0d  |..nomorebombs=..|
000004b0  02 8a 13 e3 20 73 70 69  6b 65 73 25 3d 30 20 b8  |.... spikes%=0 .|
000004c0  20 39 0d 02 94 2b 73 70  69 6b 65 73 25 28 73 70  | 9...+spikes%(sp|
000004d0  69 6b 65 73 25 2c 30 29  3d 73 70 69 6b 65 73 25  |ikes%,0)=spikes%|
000004e0  2a 34 32 2b b3 28 34 32  29 2b 34 38 30 0d 02 9e  |*42+.(42)+480...|
000004f0  1a 73 70 69 6b 65 73 25  28 73 70 69 6b 65 73 25  |.spikes%(spikes%|
00000500  2c 31 29 3d 33 38 32 0d  02 a8 18 73 70 69 6b 65  |,1)=382....spike|
00000510  73 25 28 73 70 69 6b 65  73 25 2c 32 29 3d 30 0d  |s%(spikes%,2)=0.|
00000520  02 b2 18 73 70 69 6b 65  73 25 28 73 70 69 6b 65  |...spikes%(spike|
00000530  73 25 2c 33 29 3d 30 0d  02 bc 30 73 70 69 6b 65  |s%,3)=0...0spike|
00000540  73 25 28 73 70 69 6b 65  73 25 2c 34 29 3d 73 70  |s%(spikes%,4)=sp|
00000550  69 6b 65 73 25 28 73 70  69 6b 65 73 25 2c 30 29  |ikes%(spikes%,0)|
00000560  2d b3 28 32 30 30 29 0d  02 c6 1f 73 70 69 6b 65  |-.(200)....spike|
00000570  73 25 28 73 70 69 6b 65  73 25 2c 35 29 3d 35 30  |s%(spikes%,5)=50|
00000580  2b b3 28 35 30 29 0d 02  d0 05 ed 0d 02 da 13 e3  |+.(50)..........|
00000590  20 73 74 61 72 73 25 3d  30 20 b8 20 34 32 0d 02  | stars%=0 . 42..|
000005a0  e4 0e e3 20 6e 25 3d 30  20 b8 20 33 0d 02 ee 17  |... n%=0 . 3....|
000005b0  73 74 61 72 73 25 28 73  74 61 72 73 25 2c 6e 25  |stars%(stars%,n%|
000005c0  29 3d 30 0d 02 f8 07 ed  3a ed 0d 03 02 0a e6 31  |)=0.....:......1|
000005d0  32 38 2b 37 0d 03 0c 0c  61 63 72 6f 73 73 3d 30  |28+7....across=0|
000005e0  0d 03 16 05 f5 0d 03 20  0f 61 63 72 6f 73 73 2b  |....... .across+|
000005f0  3d 30 2e 32 0d 03 2a 17  fb 20 77 68 69 63 68 62  |=0.2..*.. whichb|
00000600  6c 61 63 6b 25 2c 30 2c  30 2c 30 0d 03 34 12 77  |lack%,0,0,0..4.w|
00000610  68 69 63 68 62 6c 61 63  6b 25 2b 3d 31 0d 03 3e  |hichblack%+=1..>|
00000620  21 e7 20 77 68 69 63 68  62 6c 61 63 6b 25 3d 37  |!. whichblack%=7|
00000630  20 77 68 69 63 68 62 6c  61 63 6b 25 3d 32 0d 03  | whichblack%=2..|
00000640  48 1b fb 20 77 68 69 63  68 62 6c 61 63 6b 25 2c  |H.. whichblack%,|
00000650  32 35 35 2c 32 35 35 2c  30 0d 03 52 06 e6 37 0d  |255,255,0..R..7.|
00000660  03 5c 0e ec 20 31 32 30  30 2c 31 30 30 0d 03 66  |.\.. 1200,100..f|
00000670  0d ec 20 31 32 30 30 2c  39 30 0d 03 6b 06 c8 96  |.. 1200,90..k...|
00000680  0d 03 70 1d f0 26 35 35  2c 31 32 30 30 2b 44 58  |..p..&55,1200+DX|
00000690  25 2a 33 2c 31 30 30 2b  44 59 25 2a 33 0d 03 7a  |%*3,100+DY%*3..z|
000006a0  1a c8 8f 20 c8 90 20 62  6c 6f 62 58 25 2c 62 6c  |... .. blobX%,bl|
000006b0  6f 62 59 25 2c 33 32 0d  03 84 10 44 58 25 2b 3d  |obY%,32....DX%+=|
000006c0  b3 28 31 31 29 2d 36 0d  03 8e 10 44 59 25 2b 3d  |.(11)-6....DY%+=|
000006d0  b3 28 31 31 29 2d 36 0d  03 98 13 e7 20 44 58 25  |.(11)-6..... DX%|
000006e0  3e 32 30 20 44 58 25 3d  32 30 0d 03 a2 15 e7 20  |>20 DX%=20..... |
000006f0  44 58 25 3c 2d 32 30 20  44 58 25 3d 2d 32 30 0d  |DX%<-20 DX%=-20.|
00000700  03 ac 13 e7 20 44 59 25  3e 32 30 20 44 59 25 3d  |.... DY%>20 DY%=|
00000710  32 30 0d 03 b6 15 e7 20  44 59 25 3c 2d 32 30 20  |20..... DY%<-20 |
00000720  44 59 25 3d 2d 32 30 0d  03 c0 0f 62 6c 6f 62 58  |DY%=-20....blobX|
00000730  25 2b 3d 44 58 25 0d 03  ca 0f 62 6c 6f 62 59 25  |%+=DX%....blobY%|
00000740  2b 3d 44 59 25 0d 03 d4  0d 62 6c 6f 62 59 25 2d  |+=DY%....blobY%-|
00000750  3d 38 0d 03 de 1b e7 20  62 6c 6f 62 58 25 3c 39  |=8..... blobX%<9|
00000760  39 32 20 62 6c 6f 62 58  25 3d 39 39 32 0d 03 e8  |92 blobX%=992...|
00000770  1d e7 20 62 6c 6f 62 58  25 3e 31 32 33 32 20 62  |.. blobX%>1232 b|
00000780  6c 6f 62 58 25 3d 31 32  33 32 0d 03 f2 19 e7 20  |lobX%=1232..... |
00000790  62 6c 6f 62 59 25 3c 34  30 20 62 6c 6f 62 59 25  |blobY%<40 blobY%|
000007a0  3d 34 30 0d 03 fc 1b e7  20 62 6c 6f 62 59 25 3e  |=40..... blobY%>|
000007b0  33 38 30 20 62 6c 6f 62  59 25 3d 33 38 30 0d 04  |380 blobY%=380..|
000007c0  06 06 e6 39 0d 04 10 0e  ec 20 31 32 30 30 2c 31  |...9..... 1200,1|
000007d0  30 30 0d 04 1a 0d ec 20  31 32 30 30 2c 39 30 0d  |00..... 1200,90.|
000007e0  04 24 1d f0 26 35 35 2c  31 32 30 30 2b 44 58 25  |.$..&55,1200+DX%|
000007f0  2a 33 2c 31 30 30 2b 44  59 25 2a 33 0d 04 2e 07  |*3,100+DY%*3....|
00000800  e6 31 30 0d 04 38 1a c8  8f 20 c8 90 20 62 6c 6f  |.10..8... .. blo|
00000810  62 58 25 2c 62 6c 6f 62  59 25 2c 33 32 0d 04 42  |bX%,blobY%,32..B|
00000820  28 e7 20 58 25 3e 39 35  30 20 80 20 59 25 3c 34  |(. X%>950 . Y%<4|
00000830  32 30 20 c8 97 20 b8 20  58 25 2b 44 58 25 2c 59  |20 .. . X%+DX%,Y|
00000840  25 2b 44 59 25 0d 04 4c  78 e7 20 6d 69 73 73 69  |%+DY%..Lx. missi|
00000850  6c 65 58 25 3d 2d 31 30  30 20 80 20 58 25 3e 38  |leX%=-100 . X%>8|
00000860  35 32 20 80 20 59 25 3c  38 33 38 20 80 20 59 25  |52 . Y%<838 . Y%|
00000870  3e 34 37 34 20 80 20 6e  6f 6d 6f 72 65 62 6f 6d  |>474 . nomorebom|
00000880  62 73 3d a3 20 8c 20 6d  69 73 73 69 6c 65 58 25  |bs=. . missileX%|
00000890  3d 39 30 30 3a 6d 69 73  73 69 6c 65 59 25 3d 38  |=900:missileY%=8|
000008a0  30 30 3a 6d 69 73 73 69  6c 65 44 58 25 3d 32 3a  |00:missileDX%=2:|
000008b0  6d 69 73 73 69 6c 65 44  59 25 3d 2d 34 0d 04 56  |missileDY%=-4..V|
000008c0  13 e7 20 6d 69 73 73 69  6c 65 58 25 3e 30 20 8c  |.. missileX%>0 .|
000008d0  0d 04 60 06 e6 37 0d 04  6a 1f c8 8f 20 c8 90 20  |..`..7..j... .. |
000008e0  6d 69 73 73 69 6c 65 58  25 2c 6d 69 73 73 69 6c  |missileX%,missil|
000008f0  65 59 25 2c 38 0d 04 74  19 6d 69 73 73 69 6c 65  |eY%,8..t.missile|
00000900  58 25 2b 3d 6d 69 73 73  69 6c 65 44 58 25 0d 04  |X%+=missileDX%..|
00000910  7e 19 6d 69 73 73 69 6c  65 59 25 2b 3d 6d 69 73  |~.missileY%+=mis|
00000920  73 69 6c 65 44 59 25 0d  04 88 2f 6d 69 73 73 69  |sileDY%.../missi|
00000930  6c 65 44 58 25 3d 6d 69  73 73 69 6c 65 44 58 25  |leDX%=missileDX%|
00000940  2f 31 2e 31 2b 28 58 25  2d 6d 69 73 73 69 6c 65  |/1.1+(X%-missile|
00000950  58 25 29 2f 32 30 0d 04  92 2f 6d 69 73 73 69 6c  |X%)/20.../missil|
00000960  65 44 59 25 3d 6d 69 73  73 69 6c 65 44 59 25 2f  |eDY%=missileDY%/|
00000970  31 2e 31 2b 28 59 25 2d  6d 69 73 73 69 6c 65 59  |1.1+(Y%-missileY|
00000980  25 29 2f 32 30 0d 04 9c  21 e7 20 6d 69 73 73 69  |%)/20...!. missi|
00000990  6c 65 44 58 25 3e 33 32  20 6d 69 73 73 69 6c 65  |leDX%>32 missile|
000009a0  44 58 25 3d 33 32 0d 04  a6 23 e7 20 6d 69 73 73  |DX%=32...#. miss|
000009b0  69 6c 65 44 58 25 3c 2d  33 32 20 6d 69 73 73 69  |ileDX%<-32 missi|
000009c0  6c 65 44 58 25 3d 2d 33  32 0d 04 b0 21 e7 20 6d  |leDX%=-32...!. m|
000009d0  69 73 73 69 6c 65 44 59  25 3e 33 32 20 6d 69 73  |issileDY%>32 mis|
000009e0  73 69 6c 65 44 59 25 3d  33 32 0d 04 ba 23 e7 20  |sileDY%=32...#. |
000009f0  6d 69 73 73 69 6c 65 44  59 25 3c 2d 33 32 20 6d  |missileDY%<-32 m|
00000a00  69 73 73 69 6c 65 44 59  25 3d 2d 33 32 0d 04 c4  |issileDY%=-32...|
00000a10  34 e7 20 6d 69 73 73 69  6c 65 59 25 3e 38 32 36  |4. missileY%>826|
00000a20  20 84 20 6d 69 73 73 69  6c 65 59 25 3c 34 38 30  | . missileY%<480|
00000a30  20 8c 20 6d 69 73 73 69  6c 65 58 25 3d 2d 31 30  | . missileX%=-10|
00000a40  30 0d 04 ce 78 e7 20 6d  69 73 73 69 6c 65 58 25  |0...x. missileX%|
00000a50  3c 38 37 34 20 80 20 6d  69 73 73 69 6c 65 58 25  |<874 . missileX%|
00000a60  3e 30 20 20 c8 93 20 c8  90 20 38 32 34 2c 34 37  |>0  .. .. 824,47|
00000a70  36 2c 34 32 2c 33 36 32  3a 6d 69 73 73 69 6c 65  |6,42,362:missile|
00000a80  58 25 3d 2d 35 30 3a e6  31 32 3a ec 20 38 30 30  |X%=-50:.12:. 800|
00000a90  2c 34 37 32 3a ec 20 38  39 30 2c 34 37 32 3a f0  |,472:. 890,472:.|
00000aa0  26 35 35 2c 38 34 30 2c  35 30 30 3a 6e 6f 6d 6f  |&55,840,500:nomo|
00000ab0  72 65 62 6f 6d 62 73 3d  b9 0d 04 d8 2d e7 20 b0  |rebombs=....-. .|
00000ac0  6d 69 73 73 69 6c 65 58  25 2c 6d 69 73 73 69 6c  |missileX%,missil|
00000ad0  65 59 25 29 3c 3e 37 20  6d 69 73 73 69 6c 65 58  |eY%)<>7 missileX|
00000ae0  25 3d 2d 31 30 30 0d 04  e2 07 e6 31 31 0d 04 ec  |%=-100.....11...|
00000af0  1f c8 8f 20 c8 90 20 6d  69 73 73 69 6c 65 58 25  |... .. missileX%|
00000b00  2c 6d 69 73 73 69 6c 65  59 25 2c 38 0d 04 f6 69  |,missileY%,8...i|
00000b10  e7 20 6d 69 73 73 69 6c  65 58 25 3e 58 25 2d 33  |. missileX%>X%-3|
00000b20  32 20 80 20 6d 69 73 73  69 6c 65 58 25 3c 58 25  |2 . missileX%<X%|
00000b30  2b 33 32 20 80 20 6d 69  73 73 69 6c 65 59 25 3e  |+32 . missileY%>|
00000b40  59 25 2d 33 32 20 80 20  6d 69 73 73 69 6c 65 59  |Y%-32 . missileY|
00000b50  25 3c 59 25 2b 33 32 20  c8 8f 20 c8 90 20 6d 69  |%<Y%+32 .. .. mi|
00000b60  73 73 69 6c 65 58 25 2c  6d 69 73 73 69 6c 65 59  |ssileX%,missileY|
00000b70  25 2c 31 30 30 0d 05 00  05 cd 0d 05 05 06 c8 96  |%,100...........|
00000b80  0d 05 0a 13 e3 20 73 74  61 72 73 25 3d 30 20 b8  |..... stars%=0 .|
00000b90  20 34 32 0d 05 14 1a e7  20 73 74 61 72 73 25 28  | 42..... stars%(|
00000ba0  73 74 61 72 73 25 2c 30  29 3d 30 20 8c 0d 05 1e  |stars%,0)=0 ....|
00000bb0  1c 73 74 61 72 73 25 28  73 74 61 72 73 25 2c 32  |.stars%(stars%,2|
00000bc0  29 3d b3 28 31 35 29 2d  38 0d 05 28 1c 73 74 61  |)=.(15)-8..(.sta|
00000bd0  72 73 25 28 73 74 61 72  73 25 2c 33 29 3d b3 28  |rs%(stars%,3)=.(|
00000be0  31 33 29 2d 38 0d 05 32  60 e7 20 73 74 61 72 73  |13)-8..2`. stars|
00000bf0  25 28 73 74 61 72 73 25  2c 32 29 3c 2d 32 20 80  |%(stars%,2)<-2 .|
00000c00  20 73 74 61 72 73 25 28  73 74 61 72 73 25 2c 32  | stars%(stars%,2|
00000c10  29 3e 32 20 80 20 73 74  61 72 73 25 28 73 74 61  |)>2 . stars%(sta|
00000c20  72 73 25 2c 33 29 3c 2d  32 20 80 20 73 74 61 72  |rs%,3)<-2 . star|
00000c30  73 25 28 73 74 61 72 73  25 2c 33 29 3e 32 20 e5  |s%(stars%,3)>2 .|
00000c40  20 8d 54 5e 45 0d 05 3c  34 e7 20 73 74 61 72 73  | .T^E..<4. stars|
00000c50  25 28 73 74 61 72 73 25  2c 32 29 3d 30 20 84 20  |%(stars%,2)=0 . |
00000c60  73 74 61 72 73 25 28 73  74 61 72 73 25 2c 33 29  |stars%(stars%,3)|
00000c70  3d 30 20 e5 20 8d 54 5e  45 0d 05 46 2b 73 74 61  |=0 . .T^E..F+sta|
00000c80  72 73 25 28 73 74 61 72  73 25 2c 30 29 3d 35 36  |rs%(stars%,0)=56|
00000c90  36 2b 73 74 61 72 73 25  28 73 74 61 72 73 25 2c  |6+stars%(stars%,|
00000ca0  32 29 2a 32 0d 05 50 2b  73 74 61 72 73 25 28 73  |2)*2..P+stars%(s|
00000cb0  74 61 72 73 25 2c 31 29  3d 36 36 38 2b 73 74 61  |tars%,1)=668+sta|
00000cc0  72 73 25 28 73 74 61 72  73 25 2c 33 29 2a 32 0d  |rs%(stars%,3)*2.|
00000cd0  05 5a 05 cd 0d 05 64 06  e6 37 0d 05 6e 2d c8 8f  |.Z....d..7..n-..|
00000ce0  20 c8 90 20 73 74 61 72  73 25 28 73 74 61 72 73  | .. stars%(stars|
00000cf0  25 2c 30 29 2c 73 74 61  72 73 25 28 73 74 61 72  |%,0),stars%(star|
00000d00  73 25 2c 31 29 2c 34 0d  05 78 26 73 74 61 72 73  |s%,1),4..x&stars|
00000d10  25 28 73 74 61 72 73 25  2c 30 29 2b 3d 73 74 61  |%(stars%,0)+=sta|
00000d20  72 73 25 28 73 74 61 72  73 25 2c 32 29 0d 05 82  |rs%(stars%,2)...|
00000d30  26 73 74 61 72 73 25 28  73 74 61 72 73 25 2c 31  |&stars%(stars%,1|
00000d40  29 2b 3d 73 74 61 72 73  25 28 73 74 61 72 73 25  |)+=stars%(stars%|
00000d50  2c 33 29 0d 05 8c 78 e7  20 b0 73 74 61 72 73 25  |,3)...x. .stars%|
00000d60  28 73 74 61 72 73 25 2c  30 29 2b 73 74 61 72 73  |(stars%,0)+stars|
00000d70  25 28 73 74 61 72 73 25  2c 32 29 2a 33 2c 73 74  |%(stars%,2)*3,st|
00000d80  61 72 73 25 28 73 74 61  72 73 25 2c 31 29 2b 73  |ars%(stars%,1)+s|
00000d90  74 61 72 73 25 28 73 74  61 72 73 25 2c 33 29 2a  |tars%(stars%,3)*|
00000da0  33 29 3c 3e 37 20 73 74  61 72 73 25 28 73 74 61  |3)<>7 stars%(sta|
00000db0  72 73 25 2c 30 29 3d 30  3a 73 74 61 72 73 25 28  |rs%,0)=0:stars%(|
00000dc0  73 74 61 72 73 25 2c 31  29 3d 30 0d 05 96 07 e6  |stars%,1)=0.....|
00000dd0  31 34 0d 05 a0 2d c8 8f  20 c8 90 20 73 74 61 72  |14...-.. .. star|
00000de0  73 25 28 73 74 61 72 73  25 2c 30 29 2c 73 74 61  |s%(stars%,0),sta|
00000df0  72 73 25 28 73 74 61 72  73 25 2c 31 29 2c 34 0d  |rs%(stars%,1),4.|
00000e00  05 aa 05 ed 0d 05 b4 06  e6 38 0d 05 c8 09 c8 96  |.........8......|
00000e10  3a c8 96 0d 05 d2 17 c8  93 20 c8 90 20 34 2c 35  |:........ .. 4,5|
00000e20  31 35 2c 32 36 30 2c 32  35 32 0d 05 dc 06 e6 37  |15,260,252.....7|
00000e30  0d 05 e6 13 e3 20 61 3d  30 20 b8 20 31 20 88 20  |..... a=0 . 1 . |
00000e40  30 2e 32 0d 05 f0 22 ec  20 b5 28 61 2b 61 63 72  |0.2...". .(a+acr|
00000e50  6f 73 73 29 2a 38 30 2b  31 32 30 2c 35 31 35 2b  |oss)*80+120,515+|
00000e60  61 2a 32 30 38 0d 05 fa  22 ec 20 b5 28 61 2b 61  |a*208...". .(a+a|
00000e70  63 72 6f 73 73 29 2a 38  30 2b 31 36 30 2c 35 31  |cross)*80+160,51|
00000e80  35 2b 61 2a 32 30 38 0d  06 04 29 f0 26 37 35 2c  |5+a*208...).&75,|
00000e90  b5 28 61 2b 61 63 72 6f  73 73 2b 30 2e 32 29 2a  |.(a+across+0.2)*|
00000ea0  38 30 2b 31 36 30 2c 35  35 36 2b 61 2a 32 30 38  |80+160,556+a*208|
00000eb0  0d 06 0e 05 ed 0d 06 18  06 e6 37 0d 06 22 17 c8  |..........7.."..|
00000ec0  93 20 c8 90 20 35 2c 31  30 30 2c 34 33 36 2c 32  |. .. 5,100,436,2|
00000ed0  38 30 0d 06 2c 07 e6 31  33 0d 06 36 13 e3 20 61  |80..,..13..6.. a|
00000ee0  3d 30 20 b8 20 31 20 88  20 30 2e 32 0d 06 40 1f  |=0 . 1 . 0.2..@.|
00000ef0  ec 20 61 2a 33 35 32 2c  b5 28 61 2b 61 63 72 6f  |. a*352,.(a+acro|
00000f00  73 73 29 2a 31 30 30 2b  32 38 30 0d 06 4a 1f ec  |ss)*100+280..J..|
00000f10  20 61 2a 33 35 32 2c b5  28 61 2b 61 63 72 6f 73  | a*352,.(a+acros|
00000f20  73 29 2a 31 30 30 2b 32  30 30 0d 06 54 29 f0 26  |s)*100+200..T).&|
00000f30  37 35 2c 61 2a 33 35 32  2b 38 38 2c b5 28 61 2b  |75,a*352+88,.(a+|
00000f40  61 63 72 6f 73 73 2b 30  2e 32 29 2a 31 30 30 2b  |across+0.2)*100+|
00000f50  32 30 30 0d 06 5e 05 ed  0d 06 68 1e e7 20 58 25  |200..^....h.. X%|
00000f60  3c 32 36 34 20 80 20 59  25 3e 37 39 31 20 8c 20  |<264 . Y%>791 . |
00000f70  73 31 25 2b 3d 38 0d 06  72 07 e6 31 35 0d 06 7c  |s1%+=8..r..15..||
00000f80  19 c8 93 20 c8 90 20 32  36 34 2c 37 39 31 2c 2d  |... .. 264,791,-|
00000f90  73 31 25 2c 34 38 0d 06  86 2f e7 20 73 31 25 3e  |s1%,48.../. s1%>|
00000fa0  32 36 34 20 80 20 73 31  25 3c 33 30 30 20 c8 93  |264 . s1%<300 ..|
00000fb0  20 c8 90 20 33 36 2c 38  34 32 2c 33 34 2c 73 31  | .. 36,842,34,s1|
00000fc0  25 2d 32 36 34 0d 06 90  30 e7 20 58 25 3e 35 35  |%-264...0. X%>55|
00000fd0  30 20 80 20 58 25 3c 38  33 38 20 80 20 59 25 3e  |0 . X%<838 . Y%>|
00000fe0  39 31 30 20 80 20 59 25  3c 39 37 38 20 8c 20 73  |910 . Y%<978 . s|
00000ff0  32 25 2b 3d 34 0d 06 9a  1a c8 93 20 c8 90 20 35  |2%+=4...... .. 5|
00001000  35 30 2c 39 37 37 2c 32  39 30 2c 2d 73 32 25 0d  |50,977,290,-s2%.|
00001010  06 a4 19 c8 93 20 c8 90  20 35 35 30 2c 39 31 33  |..... .. 550,913|
00001020  2c 32 39 30 2c 73 32 25  0d 06 ae 19 e7 20 59 25  |,290,s2%..... Y%|
00001030  3c 34 30 30 20 84 20 74  72 61 70 25 3e 38 30 20  |<400 . trap%>80 |
00001040  8c 0d 06 b3 06 c8 96 0d  06 b8 13 e3 20 73 70 69  |............ spi|
00001050  6b 65 73 25 3d 30 20 b8  20 39 0d 06 bd 12 e7 20  |kes%=0 . 9..... |
00001060  73 70 69 6b 65 73 25 3d  35 20 c8 96 0d 06 c2 06  |spikes%=5 ......|
00001070  e6 37 0d 06 cc 2b ec 20  73 70 69 6b 65 73 25 28  |.7...+. spikes%(|
00001080  73 70 69 6b 65 73 25 2c  30 29 2c 73 70 69 6b 65  |spikes%,0),spike|
00001090  73 25 28 73 70 69 6b 65  73 25 2c 31 29 0d 06 d6  |s%(spikes%,1)...|
000010a0  2e ec 20 73 70 69 6b 65  73 25 28 73 70 69 6b 65  |.. spikes%(spike|
000010b0  73 25 2c 30 29 2b 32 30  2c 73 70 69 6b 65 73 25  |s%,0)+20,spikes%|
000010c0  28 73 70 69 6b 65 73 25  2c 31 29 0d 06 e0 44 f0  |(spikes%,1)...D.|
000010d0  26 35 35 2c 73 70 69 6b  65 73 25 28 73 70 69 6b  |&55,spikes%(spik|
000010e0  65 73 25 2c 30 29 2b 31  30 2c 73 70 69 6b 65 73  |es%,0)+10,spikes|
000010f0  25 28 73 70 69 6b 65 73  25 2c 31 29 2d 73 70 69  |%(spikes%,1)-spi|
00001100  6b 65 73 25 28 73 70 69  6b 65 73 25 2c 35 29 0d  |kes%(spikes%,5).|
00001110  06 ea 30 e7 20 58 25 3e  73 70 69 6b 65 73 25 28  |..0. X%>spikes%(|
00001120  73 70 69 6b 65 73 25 2c  34 29 20 73 70 69 6b 65  |spikes%,4) spike|
00001130  73 25 28 73 70 69 6b 65  73 25 2c 33 29 3d 31 0d  |s%(spikes%,3)=1.|
00001140  06 f4 30 e7 20 73 70 69  6b 65 73 25 28 73 70 69  |..0. spikes%(spi|
00001150  6b 65 73 25 2c 33 29 3d  31 20 73 70 69 6b 65 73  |kes%,3)=1 spikes|
00001160  25 28 73 70 69 6b 65 73  25 2c 32 29 2b 3d 31 0d  |%(spikes%,2)+=1.|
00001170  06 fe 2a 73 70 69 6b 65  73 25 28 73 70 69 6b 65  |..*spikes%(spike|
00001180  73 25 2c 31 29 2d 3d 73  70 69 6b 65 73 25 28 73  |s%,1)-=spikes%(s|
00001190  70 69 6b 65 73 25 2c 32  29 0d 07 08 5b e7 20 73  |pikes%,2)...[. s|
000011a0  70 69 6b 65 73 25 28 73  70 69 6b 65 73 25 2c 31  |pikes%(spikes%,1|
000011b0  29 3c 73 70 69 6b 65 73  25 28 73 70 69 6b 65 73  |)<spikes%(spikes|
000011c0  25 2c 35 29 2f 32 2b 36  34 20 73 70 69 6b 65 73  |%,5)/2+64 spikes|
000011d0  25 28 73 70 69 6b 65 73  25 2c 31 29 3d 73 70 69  |%(spikes%,1)=spi|
000011e0  6b 65 73 25 28 73 70 69  6b 65 73 25 2c 35 29 2f  |kes%(spikes%,5)/|
000011f0  32 2b 36 34 0d 07 12 07  e6 31 35 0d 07 1c 2b ec  |2+64.....15...+.|
00001200  20 73 70 69 6b 65 73 25  28 73 70 69 6b 65 73 25  | spikes%(spikes%|
00001210  2c 30 29 2c 73 70 69 6b  65 73 25 28 73 70 69 6b  |,0),spikes%(spik|
00001220  65 73 25 2c 31 29 0d 07  26 2e ec 20 73 70 69 6b  |es%,1)..&.. spik|
00001230  65 73 25 28 73 70 69 6b  65 73 25 2c 30 29 2b 32  |es%(spikes%,0)+2|
00001240  30 2c 73 70 69 6b 65 73  25 28 73 70 69 6b 65 73  |0,spikes%(spikes|
00001250  25 2c 31 29 0d 07 30 44  f0 26 35 35 2c 73 70 69  |%,1)..0D.&55,spi|
00001260  6b 65 73 25 28 73 70 69  6b 65 73 25 2c 30 29 2b  |kes%(spikes%,0)+|
00001270  31 30 2c 73 70 69 6b 65  73 25 28 73 70 69 6b 65  |10,spikes%(spike|
00001280  73 25 2c 31 29 2d 73 70  69 6b 65 73 25 28 73 70  |s%,1)-spikes%(sp|
00001290  69 6b 65 73 25 2c 35 29  0d 07 3a 05 ed 0d 07 44  |ikes%,5)..:....D|
000012a0  48 e7 20 73 70 69 6b 65  73 25 28 38 2c 31 29 3c  |H. spikes%(8,1)<|
000012b0  73 70 69 6b 65 73 25 28  38 2c 35 29 2b 36 34 20  |spikes%(8,5)+64 |
000012c0  80 20 73 70 69 6b 65 73  25 28 39 2c 31 29 3c 73  |. spikes%(9,1)<s|
000012d0  70 69 6b 65 73 25 28 39  2c 35 29 2b 36 34 20 73  |pikes%(9,5)+64 s|
000012e0  30 25 3d 31 36 0d 07 4e  0e 74 72 61 70 25 2d 3d  |0%=16..N.trap%-=|
000012f0  73 30 25 0d 07 58 14 e7  20 74 72 61 70 25 3c 38  |s0%..X.. trap%<8|
00001300  30 20 73 30 25 3d 30 0d  07 62 2a c8 93 20 c8 90  |0 s0%=0..b*.. ..|
00001310  20 34 38 30 2c 74 72 61  70 25 2c 34 34 34 2c 35  | 480,trap%,444,5|
00001320  32 20 b8 20 34 38 30 2c  74 72 61 70 25 2d 73 30  |2 . 480,trap%-s0|
00001330  25 0d 07 6c 05 cd 0d 07  76 0a f2 6d 6f 75 73 65  |%..l....v..mouse|
00001340  0d 07 80 72 fd 20 b0 58  25 2b 34 2c 59 25 2d 34  |...r. .X%+4,Y%-4|
00001350  29 3d 30 20 84 20 b0 58  25 2b 34 2c 59 25 2d 34  |)=0 . .X%+4,Y%-4|
00001360  29 3d 77 68 69 63 68 62  6c 61 63 6b 25 20 84 20  |)=whichblack% . |
00001370  b0 58 25 2b 34 2c 59 25  2d 34 29 3e 37 20 84 20  |.X%+4,Y%-4)>7 . |
00001380  58 25 3c 30 20 84 20 58  25 3e 31 32 38 30 20 84  |X%<0 . X%>1280 .|
00001390  20 59 25 3e 31 30 32 34  20 84 20 59 25 3c 30 20  | Y%>1024 . Y%<0 |
000013a0  84 20 58 25 3e 31 30 37  30 20 80 20 59 25 3e 38  |. X%>1070 . Y%>8|
000013b0  37 30 0d 07 8a 2a e7 20  58 25 3e 31 30 37 30 20  |70...*. X%>1070 |
000013c0  80 20 59 25 3e 38 37 30  20 fd 20 31 20 8b 20 f2  |. Y%>870 . 1 . .|
000013d0  65 78 70 6c 6f 73 69 6f  6e 3a fd 30 0d 07 94 1a  |explosion:.0....|
000013e0  e3 20 61 63 72 6f 73 73  3d 58 25 20 b8 20 31 33  |. across=X% . 13|
000013f0  30 30 20 88 20 32 0d 07  9e 27 fb 31 2c 31 32 38  |00 . 2...'.1,128|
00001400  2b b3 28 31 32 37 29 2c  31 32 38 2b b3 28 31 32  |+.(127),128+.(12|
00001410  37 29 2c 31 32 38 2b b3  28 31 32 37 29 0d 07 a8  |7),128+.(127)...|
00001420  17 c8 97 20 c8 93 20 61  63 72 6f 73 73 2c 59 25  |... .. across,Y%|
00001430  2c 30 2c 30 0d 07 b2 06  c8 96 0d 07 bc 05 ed 0d  |,0,0............|
00001440  07 c6 18 e3 20 64 6f 77  6e 3d 59 25 20 b8 20 2d  |.... down=Y% . -|
00001450  32 30 20 88 20 2d 34 0d  07 d0 27 fb 31 2c 31 32  |20 . -4...'.1,12|
00001460  38 2b b3 28 31 32 37 29  2c 31 32 38 2b b3 28 31  |8+.(127),128+.(1|
00001470  32 37 29 2c 31 32 38 2b  b3 28 31 32 37 29 0d 07  |27),128+.(127)..|
00001480  da 17 c8 97 20 c8 93 20  31 33 30 30 2c 64 6f 77  |.... .. 1300,dow|
00001490  6e 2c 30 2c 30 0d 07 e4  06 c8 96 0d 07 ee 05 ed  |n,0,0...........|
000014a0  0d 07 f8 0c fb 31 2c 30  2c 30 2c 30 0d 08 02 05  |.....1,0,0,0....|
000014b0  e1 0d 08 0c 0c dd f2 6c  65 76 65 6c 32 0d 08 16  |.......level2...|
000014c0  05 db 0d 08 20 05 f5 0d  08 2a 21 2a 53 63 72 65  |.... ....*!*Scre|
000014d0  65 6e 4c 6f 61 64 20 3c  4f 62 65 79 24 44 69 72  |enLoad <Obey$Dir|
000014e0  3e 2e 4c 65 76 65 6c 32  0d 08 34 0c f2 50 61 6c  |>.Level2..4..Pal|
000014f0  65 74 74 65 0d 08 3e 14  f2 6c 6f 63 61 74 65 28  |ette..>..locate(|
00001500  35 39 30 2c 36 38 30 29  0d 08 48 16 c8 97 20 fb  |590,680)..H... .|
00001510  20 32 2c 32 35 35 2c 32  35 35 2c 32 35 35 0d 08  | 2,255,255,255..|
00001520  52 0d c8 97 58 25 2c 58  25 2c 5a 0d 08 5c 1a 61  |R...X%,X%,Z..\.a|
00001530  25 3d 30 3a 73 30 25 3d  30 3a 73 31 25 3d 30 3a  |%=0:s0%=0:s1%=0:|
00001540  73 32 25 3d 30 0d 08 66  2b 64 6f 6f 72 31 25 3d  |s2%=0..f+door1%=|
00001550  35 38 3a 64 6f 6f 72 32  25 3d 35 38 3a 64 6f 6f  |58:door2%=58:doo|
00001560  72 33 25 3d 33 30 3a 64  6f 6f 72 34 25 3d 33 30  |r3%=30:door4%=30|
00001570  0d 08 70 15 73 65 63 25  3d 37 35 2d bb 28 c2 91  |..p.sec%=75-.(..|
00001580  24 2c 32 29 29 0d 08 7a  18 6d 69 6e 25 3d 36 30  |$,2))..z.min%=60|
00001590  2d bb 28 c1 91 24 2c 32  30 2c 32 29 29 0d 08 84  |-.(..$,20,2))...|
000015a0  21 68 6f 75 72 25 3d 31  32 2d bb 28 c1 91 24 2c  |!hour%=12-.(..$,|
000015b0  31 37 2c 32 29 29 2d 6d  69 6e 25 2f 36 30 0d 08  |17,2))-min%/60..|
000015c0  8e 13 e3 20 69 63 69 63  6c 65 25 3d 30 20 b8 20  |... icicle%=0 . |
000015d0  35 0d 08 98 2c 69 63 69  63 6c 65 73 25 28 69 63  |5...,icicles%(ic|
000015e0  69 63 6c 65 25 2c 30 29  3d 38 35 30 2b b3 28 33  |icle%,0)=850+.(3|
000015f0  30 29 2b 69 63 69 63 6c  65 25 2a 33 30 0d 08 a2  |0)+icicle%*30...|
00001600  1d 69 63 69 63 6c 65 73  25 28 69 63 69 63 6c 65  |.icicles%(icicle|
00001610  25 2c 31 29 3d b3 28 31  30 29 0d 08 ac 1d 64 72  |%,1)=.(10)....dr|
00001620  69 70 73 25 28 69 63 69  63 6c 65 25 29 3d b3 28  |ips%(icicle%)=.(|
00001630  34 30 30 29 2b 36 36 0d  08 b6 1b 72 69 63 69 63  |400)+66....ricic|
00001640  6c 65 73 25 28 69 63 69  63 6c 65 25 29 3d b3 28  |les%(icicle%)=.(|
00001650  38 29 0d 08 c0 05 ed 0d  08 ca 05 f5 0d 08 d4 12  |8)..............|
00001660  c8 96 3a c8 96 3a c8 96  3a c8 96 3a c8 96 0d 08  |..:..:..:..:....|
00001670  de 16 fb 77 68 69 63 68  62 6c 61 63 6b 25 2c 30  |...whichblack%,0|
00001680  2c 30 2c 30 0d 08 e8 12  77 68 69 63 68 62 6c 61  |,0,0....whichbla|
00001690  63 6b 25 2b 3d 31 0d 08  f2 21 e7 20 77 68 69 63  |ck%+=1...!. whic|
000016a0  68 62 6c 61 63 6b 25 3d  37 20 77 68 69 63 68 62  |hblack%=7 whichb|
000016b0  6c 61 63 6b 25 3d 32 0d  08 fc 1b fb 20 77 68 69  |lack%=2..... whi|
000016c0  63 68 62 6c 61 63 6b 25  2c 32 35 35 2c 31 32 38  |chblack%,255,128|
000016d0  2c 30 0d 09 06 06 e6 37  0d 09 10 2c c8 8f 20 c8  |,0.....7...,.. .|
000016e0  90 20 35 39 30 2b 28 9b  b2 28 61 25 29 2a 34 30  |. 590+(..(a%)*40|
000016f0  29 2c 36 38 34 2b 28 b5  b2 28 61 25 29 2a 38 30  |),684+(..(a%)*80|
00001700  29 2c 31 36 0d 09 1a 2c  c8 8f 20 c8 90 20 35 39  |),16...,.. .. 59|
00001710  30 2b 28 9b b2 28 61 25  29 2a 38 30 29 2c 36 38  |0+(..(a%)*80),68|
00001720  34 2b 28 b5 b2 28 61 25  29 2a 34 30 29 2c 31 36  |4+(..(a%)*40),16|
00001730  0d 09 24 0a 61 25 2b 3d  31 36 0d 09 2e 07 e6 31  |..$.a%+=16.....1|
00001740  31 0d 09 38 2c c8 8f 20  c8 90 20 35 39 30 2b 28  |1..8,.. .. 590+(|
00001750  9b b2 28 61 25 29 2a 34  30 29 2c 36 38 34 2b 28  |..(a%)*40),684+(|
00001760  b5 b2 28 61 25 29 2a 38  30 29 2c 31 36 0d 09 42  |..(a%)*80),16..B|
00001770  2c c8 8f 20 c8 90 20 35  39 30 2b 28 9b b2 28 61  |,.. .. 590+(..(a|
00001780  25 29 2a 38 30 29 2c 36  38 34 2b 28 b5 b2 28 61  |%)*80),684+(..(a|
00001790  25 29 2a 34 30 29 2c 31  36 0d 09 4c 2e e7 20 58  |%)*40),16..L.. X|
000017a0  25 3e 35 35 34 20 80 20  59 25 3c 38 39 36 20 80  |%>554 . Y%<896 .|
000017b0  20 58 25 3c 36 32 32 20  80 20 59 25 3e 38 34 30  | X%<622 . Y%>840|
000017c0  20 73 30 25 2b 3d 38 0d  09 56 06 e6 39 0d 09 60  | s0%+=8..V..9..`|
000017d0  20 e7 20 73 30 25 3e 30  20 c8 93 20 c8 90 20 35  | . s0%>0 .. .. 5|
000017e0  35 34 2c 38 34 30 2c 36  38 2c 73 30 25 0d 09 6a  |54,840,68,s0%..j|
000017f0  1c e7 20 58 25 3c 34 31  38 20 80 20 59 25 3c 35  |.. X%<418 . Y%<5|
00001800  33 36 20 73 31 25 2d 3d  34 0d 09 74 2a e7 20 73  |36 s1%-=4..t*. s|
00001810  31 25 3c 30 20 80 20 73  31 25 3e 2d 36 32 20 c8  |1%<0 . s1%>-62 .|
00001820  93 20 c8 90 20 34 32 30  2c 34 38 30 2c 73 31 25  |. .. 420,480,s1%|
00001830  2c 35 32 0d 09 7e 15 e7  20 73 31 25 3c 2d 36 32  |,52..~.. s1%<-62|
00001840  20 73 31 25 2d 3d 31 32  0d 09 88 30 e7 20 73 31  | s1%-=12...0. s1|
00001850  25 3c 2d 36 30 20 80 20  73 31 25 3e 2d 34 33 32  |%<-60 . s1%>-432|
00001860  20 c8 93 20 c8 90 20 34  32 30 2c 34 33 36 2c 73  | .. .. 420,436,s|
00001870  31 25 2b 35 38 2c 34 36  0d 09 92 21 e7 20 73 31  |1%+58,46...!. s1|
00001880  25 3c 2d 34 32 36 20 80  20 73 31 25 3e 2d 37 39  |%<-426 . s1%>-79|
00001890  30 20 73 31 25 2d 3d 31  32 0d 09 9c 31 e7 20 73  |0 s1%-=12...1. s|
000018a0  31 25 3c 2d 34 32 36 20  80 20 73 31 25 3e 2d 37  |1%<-426 . s1%>-7|
000018b0  39 30 20 c8 93 20 c8 90  20 35 36 2c 34 33 34 2c  |90 .. .. 56,434,|
000018c0  36 30 2c 73 31 25 2b 34  32 36 0d 09 a6 1f e7 20  |60,s1%+426..... |
000018d0  73 31 25 3c 2d 37 39 30  20 80 20 73 32 25 3c 31  |s1%<-790 . s2%<1|
000018e0  33 36 20 73 32 25 2b 3d  38 0d 09 b0 2d e7 20 73  |36 s2%+=8...-. s|
000018f0  32 25 3e 30 20 c8 93 20  31 31 36 2c 36 30 2b 73  |2%>0 .. 116,60+s|
00001900  32 25 2c 33 30 30 2c 32  30 20 b8 20 31 31 36 2c  |2%,300,20 . 116,|
00001910  36 38 2b 73 32 25 0d 09  ba 2f e7 20 73 32 25 3e  |68+s2%.../. s2%>|
00001920  30 20 c8 93 20 31 31 36  2c 33 36 34 2d 73 32 25  |0 .. 116,364-s2%|
00001930  2c 33 30 30 2c 32 30 20  b8 20 31 31 36 2c 33 35  |,300,20 . 116,35|
00001940  36 2d 73 32 25 0d 09 c4  06 e6 37 0d 09 ce 1b c8  |6-s2%.....7.....|
00001950  93 20 c8 90 20 36 34 32  2c 36 36 2c 31 30 30 2c  |. .. 642,66,100,|
00001960  64 6f 6f 72 31 25 0d 09  d8 1f e7 20 58 25 3e 34  |door1%..... X%>4|
00001970  37 36 20 80 20 59 25 3e  32 30 30 20 64 6f 6f 72  |76 . Y%>200 door|
00001980  31 25 2d 3d 34 0d 09 e2  17 e7 20 64 6f 6f 72 31  |1%-=4..... door1|
00001990  25 3c 30 20 64 6f 6f 72  31 25 3d 30 0d 09 ec 17  |%<0 door1%=0....|
000019a0  e7 20 59 25 3c 32 30 30  20 64 6f 6f 72 31 25 2b  |. Y%<200 door1%+|
000019b0  3d 31 34 0d 09 f6 19 e7  20 64 6f 6f 72 31 25 3e  |=14..... door1%>|
000019c0  36 30 20 64 6f 6f 72 31  25 3d 36 30 0d 0a 00 17  |60 door1%=60....|
000019d0  c8 93 20 c8 90 20 36 34  36 2c 32 30 30 2c 39 36  |.. .. 646,200,96|
000019e0  2c 36 30 0d 0a 0a 18 c8  8f 20 c8 90 20 36 38 38  |,60...... .. 688|
000019f0  2c 33 37 30 2c 64 6f 6f  72 33 25 0d 0a 14 16 e7  |,370,door3%.....|
00001a00  20 58 25 3c 34 38 38 20  64 6f 6f 72 32 25 2d 3d  | X%<488 door2%-=|
00001a10  34 0d 0a 1e 17 e7 20 64  6f 6f 72 32 25 3c 30 20  |4..... door2%<0 |
00001a20  64 6f 6f 72 32 25 3d 30  0d 0a 28 17 e7 20 58 25  |door2%=0..(.. X%|
00001a30  3e 34 38 38 20 64 6f 6f  72 32 25 2b 3d 31 32 0d  |>488 door2%+=12.|
00001a40  0a 32 19 e7 20 64 6f 6f  72 32 25 3e 36 30 20 64  |.2.. door2%>60 d|
00001a50  6f 6f 72 32 25 3d 36 30  0d 0a 3c 16 e7 20 59 25  |oor2%=60..<.. Y%|
00001a60  3c 33 30 30 20 64 6f 6f  72 33 25 2d 3d 34 0d 0a  |<300 door3%-=4..|
00001a70  46 17 e7 20 64 6f 6f 72  33 25 3c 30 20 64 6f 6f  |F.. door3%<0 doo|
00001a80  72 33 25 3d 30 0d 0a 50  17 e7 20 59 25 3e 33 30  |r3%=0..P.. Y%>30|
00001a90  30 20 64 6f 6f 72 33 25  2b 3d 31 32 0d 0a 5a 19  |0 door3%+=12..Z.|
00001aa0  e7 20 64 6f 6f 72 33 25  3e 34 30 20 64 6f 6f 72  |. door3%>40 door|
00001ab0  33 25 3d 34 30 0d 0a 64  35 e7 20 58 25 3e 36 30  |3%=40..d5. X%>60|
00001ac0  30 20 80 20 59 25 3e 34  36 30 20 80 20 59 25 3c  |0 . Y%>460 . Y%<|
00001ad0  35 38 30 20 64 6f 6f 72  34 25 2d 3d 32 20 8b 20  |580 door4%-=2 . |
00001ae0  64 6f 6f 72 34 25 2b 3d  31 30 0d 0a 6e 17 e7 20  |door4%+=10..n.. |
00001af0  64 6f 6f 72 34 25 3c 30  20 64 6f 6f 72 34 25 3d  |door4%<0 door4%=|
00001b00  30 0d 0a 78 19 e7 20 64  6f 6f 72 34 25 3e 33 32  |0..x.. door4%>32|
00001b10  20 64 6f 6f 72 34 25 3d  33 32 0d 0a 82 17 c8 93  | door4%=32......|
00001b20  20 c8 90 20 36 34 36 2c  34 37 34 2c 39 38 2c 36  | .. 646,474,98,6|
00001b30  34 0d 0a 8c 07 e6 31 35  0d 0a 96 1a c8 93 20 c8  |4.....15...... .|
00001b40  90 20 36 34 36 2c 36 36  2c 39 30 2c 64 6f 6f 72  |. 646,66,90,door|
00001b50  31 25 0d 0a a0 0d ec 20  36 35 30 2c 32 30 30 0d  |1%..... 650,200.|
00001b60  0a aa 14 ec 20 36 35 30  2c 32 30 30 2b 64 6f 6f  |.... 650,200+doo|
00001b70  72 32 25 0d 0a b4 17 f0  26 35 35 2c 36 37 30 2b  |r2%.....&55,670+|
00001b80  64 6f 6f 72 32 25 2c 32  30 30 0d 0a be 0d ec 20  |door2%,200..... |
00001b90  37 33 30 2c 32 36 30 0d  0a c8 14 ec 20 37 33 30  |730,260..... 730|
00001ba0  2c 32 36 30 2d 64 6f 6f  72 32 25 0d 0a d2 17 f0  |,260-door2%.....|
00001bb0  26 35 35 2c 37 30 38 2d  64 6f 6f 72 32 25 2c 32  |&55,708-door2%,2|
00001bc0  36 30 0d 0a dc 18 c8 8f  20 c8 90 20 36 38 38 2c  |60...... .. 688,|
00001bd0  33 37 30 2c 64 6f 6f 72  33 25 0d 0a e6 34 c8 93  |370,door3%...4..|
00001be0  20 c8 90 20 36 37 38 2d  64 6f 6f 72 34 25 2c 35  | .. 678-door4%,5|
00001bf0  30 34 2d 64 6f 6f 72 34  25 2c 64 6f 6f 72 34 25  |04-door4%,door4%|
00001c00  2a 32 2b 32 34 2c 64 6f  6f 72 34 25 2a 32 0d 0a  |*2+24,door4%*2..|
00001c10  f0 13 e3 20 69 63 69 63  6c 65 25 3d 30 20 b8 20  |... icicle%=0 . |
00001c20  35 0d 0a fa 06 e6 30 0d  0b 04 16 c8 93 20 c8 90  |5.....0...... ..|
00001c30  20 38 33 35 2c 30 2c 32  35 30 2c 36 30 0d 0b 0e  | 835,0,250,60...|
00001c40  67 e7 20 64 72 69 70 73  25 28 69 63 69 63 6c 65  |g. drips%(icicle|
00001c50  25 29 3c 36 30 2b 72 69  63 69 63 6c 65 73 25 28  |%)<60+ricicles%(|
00001c60  69 63 69 63 6c 65 25 29  20 80 20 64 72 69 70 73  |icicle%) . drips|
00001c70  25 28 69 63 69 63 6c 65  25 29 3e 30 20 64 72 69  |%(icicle%)>0 dri|
00001c80  70 73 25 28 69 63 69 63  6c 65 25 29 3d 30 3a 72  |ps%(icicle%)=0:r|
00001c90  69 63 69 63 6c 65 73 25  28 69 63 69 63 6c 65 25  |icicles%(icicle%|
00001ca0  29 2b 3d 36 0d 0b 18 90  e7 20 64 72 69 70 73 25  |)+=6..... drips%|
00001cb0  28 69 63 69 63 6c 65 25  29 3e 30 20 e6 37 3a c8  |(icicle%)>0 .7:.|
00001cc0  8f 20 c8 90 20 69 63 69  63 6c 65 73 25 28 69 63  |. .. icicles%(ic|
00001cd0  69 63 6c 65 25 2c 30 29  2b 31 30 2c 64 72 69 70  |icle%,0)+10,drip|
00001ce0  73 25 28 69 63 69 63 6c  65 25 29 2c 34 3a 64 72  |s%(icicle%),4:dr|
00001cf0  69 70 73 25 28 69 63 69  63 6c 65 25 29 2d 3d 31  |ips%(icicle%)-=1|
00001d00  32 3a e6 31 35 3a c8 8f  20 c8 90 20 69 63 69 63  |2:.15:.. .. icic|
00001d10  6c 65 73 25 28 69 63 69  63 6c 65 25 2c 30 29 2b  |les%(icicle%,0)+|
00001d20  31 30 2c 64 72 69 70 73  25 28 69 63 69 63 6c 65  |10,drips%(icicle|
00001d30  25 29 2c 34 0d 0b 22 60  e7 20 64 72 69 70 73 25  |%),4.."`. drips%|
00001d40  28 69 63 69 63 6c 65 25  29 3d 30 20 80 20 b3 28  |(icicle%)=0 . .(|
00001d50  32 30 29 3d 31 20 69 63  69 63 6c 65 73 25 28 69  |20)=1 icicles%(i|
00001d60  63 69 63 6c 65 25 2c 31  29 2b 3d 38 3a 64 72 69  |cicle%,1)+=8:dri|
00001d70  70 73 25 28 69 63 69 63  6c 65 25 29 3d 34 36 30  |ps%(icicle%)=460|
00001d80  2d 69 63 69 63 6c 65 73  25 28 69 63 69 63 6c 65  |-icicles%(icicle|
00001d90  25 2c 31 29 0d 0b 2c 35  e7 20 69 63 69 63 6c 65  |%,1)..,5. icicle|
00001da0  73 25 28 69 63 69 63 6c  65 25 2c 31 29 3e 33 30  |s%(icicle%,1)>30|
00001db0  30 20 69 63 69 63 6c 65  73 25 28 69 63 69 63 6c  |0 icicles%(icicl|
00001dc0  65 25 2c 31 29 3d 33 30  30 0d 0b 36 33 e7 20 72  |e%,1)=300..63. r|
00001dd0  69 63 69 63 6c 65 73 25  28 69 63 69 63 6c 65 25  |icicles%(icicle%|
00001de0  29 3e 32 30 30 20 72 69  63 69 63 6c 65 73 25 28  |)>200 ricicles%(|
00001df0  69 63 69 63 6c 65 25 29  3d 32 30 30 0d 0b 40 06  |icicle%)=200..@.|
00001e00  e6 38 0d 0b 4a 34 ec 20  69 63 69 63 6c 65 73 25  |.8..J4. icicles%|
00001e10  28 69 63 69 63 6c 65 25  2c 30 29 2d 69 63 69 63  |(icicle%,0)-icic|
00001e20  6c 65 73 25 28 69 63 69  63 6c 65 25 2c 31 29 2f  |les%(icicle%,1)/|
00001e30  31 30 2c 34 36 30 0d 0b  54 37 ec 20 69 63 69 63  |10,460..T7. icic|
00001e40  6c 65 73 25 28 69 63 69  63 6c 65 25 2c 30 29 2b  |les%(icicle%,0)+|
00001e50  32 30 2b 69 63 69 63 6c  65 73 25 28 69 63 69 63  |20+icicles%(icic|
00001e60  6c 65 25 2c 31 29 2f 31  30 2c 34 36 30 0d 0b 5e  |le%,1)/10,460..^|
00001e70  37 f0 26 35 35 2c 69 63  69 63 6c 65 73 25 28 69  |7.&55,icicles%(i|
00001e80  63 69 63 6c 65 25 2c 30  29 2b 31 30 2c 34 36 30  |cicle%,0)+10,460|
00001e90  2d 69 63 69 63 6c 65 73  25 28 69 63 69 63 6c 65  |-icicles%(icicle|
00001ea0  25 2c 31 29 0d 0b 68 34  ec 20 69 63 69 63 6c 65  |%,1)..h4. icicle|
00001eb0  73 25 28 69 63 69 63 6c  65 25 2c 30 29 2d 72 69  |s%(icicle%,0)-ri|
00001ec0  63 69 63 6c 65 73 25 28  69 63 69 63 6c 65 25 29  |cicles%(icicle%)|
00001ed0  2f 32 2b 31 30 2c 36 36  0d 0b 72 34 ec 20 69 63  |/2+10,66..r4. ic|
00001ee0  69 63 6c 65 73 25 28 69  63 69 63 6c 65 25 2c 30  |icles%(icicle%,0|
00001ef0  29 2b 72 69 63 69 63 6c  65 73 25 28 69 63 69 63  |)+ricicles%(icic|
00001f00  6c 65 25 29 2f 32 2b 31  30 2c 36 36 0d 0b 7c 35  |le%)/2+10,66..|5|
00001f10  f0 26 35 35 2c 69 63 69  63 6c 65 73 25 28 69 63  |.&55,icicles%(ic|
00001f20  69 63 6c 65 25 2c 30 29  2b 31 30 2c 36 36 2b 72  |icle%,0)+10,66+r|
00001f30  69 63 69 63 6c 65 73 25  28 69 63 69 63 6c 65 25  |icicles%(icicle%|
00001f40  29 0d 0b 86 05 ed 0d 0b  90 06 e6 37 0d 0b 9a 3d  |)..........7...=|
00001f50  86 20 31 30 32 34 2c 36  37 36 2c 31 30 32 34 2b  |. 1024,676,1024+|
00001f60  28 9b b2 28 28 73 65 63  25 29 2a 36 29 2a 31 35  |(..((sec%)*6)*15|
00001f70  30 29 2c 36 37 36 2b 28  b5 b2 28 28 73 65 63 25  |0),676+(..((sec%|
00001f80  29 2a 36 29 2a 31 35 30  29 0d 0b a4 0f e7 20 73  |)*6)*150)..... s|
00001f90  65 63 25 3e 37 34 20 8c  0d 0b ae 2a ec 20 31 30  |ec%>74 ....*. 10|
00001fa0  32 34 2b 9b b2 28 6d 69  6e 25 2a 36 29 2a 31 36  |24+..(min%*6)*16|
00001fb0  2c 36 37 36 2b b5 b2 28  6d 69 6e 25 2a 36 29 2a  |,676+..(min%*6)*|
00001fc0  31 36 0d 0b b8 2a ec 20  31 30 32 34 2d 9b b2 28  |16...*. 1024-..(|
00001fd0  6d 69 6e 25 2a 36 29 2a  31 36 2c 36 37 36 2d b5  |min%*6)*16,676-.|
00001fe0  b2 28 6d 69 6e 25 2a 36  29 2a 31 36 0d 0b c2 3d  |.(min%*6)*16...=|
00001ff0  f0 26 35 35 2c 31 30 32  34 2b 28 9b b2 28 28 6d  |.&55,1024+(..((m|
00002000  69 6e 25 2a 36 29 2b 39  30 29 2a 31 35 30 29 2c  |in%*6)+90)*150),|
00002010  36 37 36 2b 28 b5 b2 28  28 6d 69 6e 25 2a 36 29  |676+(..((min%*6)|
00002020  2b 39 30 29 2a 31 35 30  29 0d 0b cc 2e ec 20 31  |+90)*150)..... 1|
00002030  30 32 34 2b 9b b2 28 68  6f 75 72 25 2a 33 30 29  |024+..(hour%*30)|
00002040  2a 32 34 2c 36 37 36 2b  b5 b2 28 68 6f 75 72 25  |*24,676+..(hour%|
00002050  2a 33 30 29 2a 32 34 0d  0b d6 2e ec 20 31 30 32  |*30)*24..... 102|
00002060  34 2d 9b b2 28 68 6f 75  72 25 2a 33 30 29 2a 32  |4-..(hour%*30)*2|
00002070  34 2c 36 37 36 2d b5 b2  28 68 6f 75 72 25 2a 33  |4,676-..(hour%*3|
00002080  30 29 2a 32 34 0d 0b e0  41 f0 26 35 35 2c 31 30  |0)*24...A.&55,10|
00002090  32 34 2b 28 9b b2 28 28  68 6f 75 72 25 2a 33 30  |24+(..((hour%*30|
000020a0  29 2b 39 30 29 2a 31 32  30 29 2c 36 37 36 2b 28  |)+90)*120),676+(|
000020b0  b5 b2 28 28 68 6f 75 72  25 2a 33 30 29 2b 39 30  |..((hour%*30)+90|
000020c0  29 2a 31 32 30 29 0d 0b  ea 18 6d 69 6e 25 3d 36  |)*120)....min%=6|
000020d0  30 2d bb 28 c1 91 24 2c  32 30 2c 32 29 29 0d 0b  |0-.(..$,20,2))..|
000020e0  f4 2c e7 20 6d 69 6e 25  3c 36 30 20 80 20 6d 69  |.,. min%<60 . mi|
000020f0  6e 25 3e 32 39 20 8c 20  64 65 6d 69 3d 30 2e 35  |n%>29 . demi=0.5|
00002100  20 8b 20 64 65 6d 69 25  3d 30 0d 0b fe 21 68 6f  | . demi%=0...!ho|
00002110  75 72 25 3d 31 32 2d bb  28 c1 91 24 2c 31 37 2c  |ur%=12-.(..$,17,|
00002120  32 29 29 2d 6d 69 6e 25  2f 36 30 0d 0c 08 05 cd  |2))-min%/60.....|
00002130  0d 0c 12 15 73 65 63 25  3d 37 35 2d bb 28 c2 91  |....sec%=75-.(..|
00002140  24 2c 32 29 29 0d 0c 1c  07 e6 31 31 0d 0c 26 2e  |$,2)).....11..&.|
00002150  ec 20 31 30 32 34 2b 9b  b2 28 68 6f 75 72 25 2a  |. 1024+..(hour%*|
00002160  33 30 29 2a 32 34 2c 36  37 36 2b b5 b2 28 68 6f  |30)*24,676+..(ho|
00002170  75 72 25 2a 33 30 29 2a  32 34 0d 0c 30 2e ec 20  |ur%*30)*24..0.. |
00002180  31 30 32 34 2d 9b b2 28  68 6f 75 72 25 2a 33 30  |1024-..(hour%*30|
00002190  29 2a 32 34 2c 36 37 36  2d b5 b2 28 68 6f 75 72  |)*24,676-..(hour|
000021a0  25 2a 33 30 29 2a 32 34  0d 0c 3a 41 f0 26 35 35  |%*30)*24..:A.&55|
000021b0  2c 31 30 32 34 2b 28 9b  b2 28 28 68 6f 75 72 25  |,1024+(..((hour%|
000021c0  2a 33 30 29 2b 39 30 29  2a 31 32 30 29 2c 36 37  |*30)+90)*120),67|
000021d0  36 2b 28 b5 b2 28 28 68  6f 75 72 25 2a 33 30 29  |6+(..((hour%*30)|
000021e0  2b 39 30 29 2a 31 32 30  29 0d 0c 44 07 e6 31 34  |+90)*120)..D..14|
000021f0  0d 0c 4e 2a ec 20 31 30  32 34 2b 9b b2 28 6d 69  |..N*. 1024+..(mi|
00002200  6e 25 2a 36 29 2a 31 36  2c 36 37 36 2b b5 b2 28  |n%*6)*16,676+..(|
00002210  6d 69 6e 25 2a 36 29 2a  31 36 0d 0c 58 2a ec 20  |min%*6)*16..X*. |
00002220  31 30 32 34 2d 9b b2 28  6d 69 6e 25 2a 36 29 2a  |1024-..(min%*6)*|
00002230  31 36 2c 36 37 36 2d b5  b2 28 6d 69 6e 25 2a 36  |16,676-..(min%*6|
00002240  29 2a 31 36 0d 0c 62 3d  f0 26 35 35 2c 31 30 32  |)*16..b=.&55,102|
00002250  34 2b 28 9b b2 28 28 6d  69 6e 25 2a 36 29 2b 39  |4+(..((min%*6)+9|
00002260  30 29 2a 31 35 30 29 2c  36 37 36 2b 28 b5 b2 28  |0)*150),676+(..(|
00002270  28 6d 69 6e 25 2a 36 29  2b 39 30 29 2a 31 35 30  |(min%*6)+90)*150|
00002280  29 0d 0c 6c 06 e6 39 0d  0c 76 3d 86 20 31 30 32  |)..l..9..v=. 102|
00002290  34 2c 36 37 36 2c 31 30  32 34 2b 28 9b b2 28 28  |4,676,1024+(..((|
000022a0  73 65 63 25 29 2a 36 29  2a 31 35 30 29 2c 36 37  |sec%)*6)*150),67|
000022b0  36 2b 28 b5 b2 28 28 73  65 63 25 29 2a 36 29 2a  |6+(..((sec%)*6)*|
000022c0  31 35 30 29 0d 0c 80 0a  f2 6d 6f 75 73 65 0d 0c  |150).....mouse..|
000022d0  8a 7b fd 20 b0 58 25 2b  34 2c 59 25 2d 34 29 3d  |.{. .X%+4,Y%-4)=|
000022e0  30 20 84 20 b0 58 25 2b  34 2c 59 25 2d 34 29 3d  |0 . .X%+4,Y%-4)=|
000022f0  77 68 69 63 68 62 6c 61  63 6b 25 20 84 20 b0 58  |whichblack% . .X|
00002300  25 2b 34 2c 59 25 2d 34  29 3e 37 20 84 20 58 25  |%+4,Y%-4)>7 . X%|
00002310  3c 30 20 84 20 58 25 3e  31 32 38 30 20 84 20 59  |<0 . X%>1280 . Y|
00002320  25 3e 31 30 32 34 20 84  20 59 25 3c 30 20 84 20  |%>1024 . Y%<0 . |
00002330  58 25 3e 31 32 30 30 20  80 20 59 25 3e 33 35 34  |X%>1200 . Y%>354|
00002340  20 80 20 59 25 3c 34 36  36 0d 0c 94 32 e7 20 58  | . Y%<466...2. X|
00002350  25 3e 31 32 30 30 20 80  20 59 25 3e 33 35 34 20  |%>1200 . Y%>354 |
00002360  80 20 59 25 3c 34 36 36  20 fd 31 20 8b 20 f2 65  |. Y%<466 .1 . .e|
00002370  78 70 6c 6f 73 69 6f 6e  3a fd 30 0d 0c 9e 1a e3  |xplosion:.0.....|
00002380  20 61 63 72 6f 73 73 3d  58 25 20 b8 20 31 33 30  | across=X% . 130|
00002390  30 20 88 20 32 0d 0c a8  27 fb 31 2c b3 28 31 32  |0 . 2...'.1,.(12|
000023a0  38 29 2b 31 32 38 2c b3  28 31 32 38 29 2b 31 32  |8)+128,.(128)+12|
000023b0  38 2c b3 28 31 32 38 29  2b 31 32 38 0d 0c b2 17  |8,.(128)+128....|
000023c0  c8 97 20 c8 93 20 61 63  72 6f 73 73 2c 59 25 2c  |.. .. across,Y%,|
000023d0  30 2c 30 0d 0c bc 06 c8  96 0d 0c c6 05 ed 0d 0c  |0,0.............|
000023e0  d0 16 e3 20 75 70 3d 59  25 20 b8 20 31 31 30 30  |... up=Y% . 1100|
000023f0  20 88 20 34 0d 0c da 27  fb 31 2c b3 28 31 32 38  | . 4...'.1,.(128|
00002400  29 2b 31 32 38 2c b3 28  31 32 38 29 2b 31 32 38  |)+128,.(128)+128|
00002410  2c b3 28 31 32 38 29 2b  31 32 38 0d 0c e4 15 c8  |,.(128)+128.....|
00002420  97 20 c8 93 20 31 33 30  30 2c 75 70 2c 30 2c 30  |. .. 1300,up,0,0|
00002430  0d 0c ee 06 c8 96 0d 0c  f8 05 ed 0d 0d 02 0c fb  |................|
00002440  31 2c 30 2c 30 2c 30 0d  0d 0c 05 e1 0d 0d 16 0f  |1,0,0,0.........|
00002450  dd f2 65 78 70 6c 6f 73  69 6f 6e 0d 0d 20 0e 2a  |..explosion.. .*|
00002460  50 4f 49 4e 54 45 52 20  30 0d 0d 2a 16 e3 20 65  |POINTER 0..*.. e|
00002470  78 70 6c 6f 73 69 6f 6e  3d 30 20 b8 20 35 30 0d  |xplosion=0 . 50.|
00002480  0d 34 12 e6 28 b0 58 25  2b 34 2c 59 25 2d 34 29  |.4..(.X%+4,Y%-4)|
00002490  29 0d 0d 3e 19 c8 8f 20  c8 90 20 58 25 2c 59 25  |)..>... .. X%,Y%|
000024a0  2c 65 78 70 6c 6f 73 69  6f 6e 0d 0d 48 06 e6 30  |,explosion..H..0|
000024b0  0d 0d 52 18 c8 8f 20 58  25 2c 59 25 2c 65 78 70  |..R... X%,Y%,exp|
000024c0  6c 6f 73 69 6f 6e 2b 38  0d 0d 5c 06 c8 96 0d 0d  |losion+8..\.....|
000024d0  66 05 ed 0d 0d 70 05 db  0d 0d 7a 05 e1 0d 0d 84  |f....p....z.....|
000024e0  0b dd f2 6d 6f 75 73 65  0d 0d 8e 13 e3 20 63 6f  |...mouse..... co|
000024f0  6c 6f 75 72 25 3d 30 20  b8 20 32 0d 0d 98 1d 6d  |lour%=0 . 2....m|
00002500  6f 75 73 65 25 28 63 6f  6c 6f 75 72 25 29 2b 3d  |ouse%(colour%)+=|
00002510  b3 28 33 33 29 2d 31 37  0d 0d a2 2d e7 20 6d 6f  |.(33)-17...-. mo|
00002520  75 73 65 25 28 63 6f 6c  6f 75 72 25 29 3e 32 35  |use%(colour%)>25|
00002530  35 20 6d 6f 75 73 65 25  28 63 6f 6c 6f 75 72 25  |5 mouse%(colour%|
00002540  29 3d 32 35 35 0d 0d ac  2d e7 20 6d 6f 75 73 65  |)=255...-. mouse|
00002550  25 28 63 6f 6c 6f 75 72  25 29 3c 31 32 38 20 6d  |%(colour%)<128 m|
00002560  6f 75 73 65 25 28 63 6f  6c 6f 75 72 25 29 3d 31  |ouse%(colour%)=1|
00002570  32 38 0d 0d b6 05 ed 0d  0d c0 28 c8 97 20 fb 20  |28........(.. . |
00002580  31 2c 6d 6f 75 73 65 25  28 30 29 2c 6d 6f 75 73  |1,mouse%(0),mous|
00002590  65 25 28 31 29 2c 6d 6f  75 73 65 25 28 32 29 0d  |e%(1),mouse%(2).|
000025a0  0d ca 0e c8 97 58 25 2c  59 25 2c 5a 25 0d 0d d4  |.....X%,Y%,Z%...|
000025b0  1d c8 97 20 c8 93 20 58  25 2d 35 30 2c 59 25 2d  |... .. X%-50,Y%-|
000025c0  35 30 2c 31 30 30 2c 31  30 30 0d 0d de 1a e7 20  |50,100,100..... |
000025d0  5a 25 20 8c 20 c8 97 20  c8 93 20 58 25 2c 59 25  |Z% . .. .. X%,Y%|
000025e0  2c 30 2c 30 0d 0d e8 05  e1 0d 0d f2 0c dd f2 6c  |,0,0...........l|
000025f0  65 76 65 6c 33 0d 0d fc  05 db 0d 0e 06 05 f5 0d  |evel3...........|
00002600  0e 10 08 58 25 3d 30 0d  0e 1a 21 2a 53 43 52 45  |...X%=0...!*SCRE|
00002610  45 4e 4c 4f 41 44 20 3c  4f 62 65 79 24 44 69 72  |ENLOAD <Obey$Dir|
00002620  3e 2e 4c 65 76 65 6c 33  0d 0e 24 0c f2 50 61 6c  |>.Level3..$..Pal|
00002630  65 74 74 65 0d 0e 2e 13  f2 6c 6f 63 61 74 65 28  |ette.....locate(|
00002640  38 30 2c 39 38 30 29 0d  0e 38 44 61 25 3d 30 3a  |80,980)..8Da%=0:|
00002650  62 25 3d 30 3a 63 25 3d  34 3a 64 25 3d 36 30 30  |b%=0:c%=4:d%=600|
00002660  3a 65 25 3d 31 31 34 3a  6c 61 73 74 64 72 6f 70  |:e%=114:lastdrop|
00002670  25 3d 30 3a 64 72 69 70  73 25 28 30 29 3d 30 3a  |%=0:drips%(0)=0:|
00002680  64 72 69 70 73 25 28 31  29 3d 30 0d 0e 42 17 64  |drips%(1)=0..B.d|
00002690  6f 6f 72 31 25 3d 30 3a  66 25 3d 32 3a 73 30 25  |oor1%=0:f%=2:s0%|
000026a0  3d 30 0d 0e 4c 16 c8 97  20 fb 20 32 2c 32 35 35  |=0..L... . 2,255|
000026b0  2c 32 35 35 2c 32 35 35  0d 0e 56 05 f5 0d 0e 60  |,255,255..V....`|
000026c0  06 e6 37 0d 0e 74 0c c8  96 3a c8 96 3a c8 96 0d  |..7..t...:..:...|
000026d0  0e 7e 1e c8 9d 20 c8 90  20 32 36 38 2c 34 33 30  |.~... .. 268,430|
000026e0  2c 32 33 30 2c 35 30 2c  b2 28 61 25 29 0d 0e 88  |,230,50,.(a%)...|
000026f0  21 c8 9d 20 c8 90 20 32  36 38 2c 34 33 30 2c 32  |!.. .. 268,430,2|
00002700  33 30 2c 35 30 2c b2 28  61 25 2b 39 30 29 0d 0e  |30,50,.(a%+90)..|
00002710  92 0a 61 25 2d 3d 31 32  0d 0e 9c 07 e6 31 30 0d  |..a%-=12.....10.|
00002720  0e a6 1e c8 9d 20 c8 90  20 32 36 38 2c 34 33 30  |..... .. 268,430|
00002730  2c 32 33 30 2c 35 30 2c  b2 28 61 25 29 0d 0e b0  |,230,50,.(a%)...|
00002740  21 c8 9d 20 c8 90 20 32  36 38 2c 34 33 30 2c 32  |!.. .. 268,430,2|
00002750  33 30 2c 35 30 2c b2 28  61 25 2b 39 30 29 0d 0e  |30,50,.(a%+90)..|
00002760  b5 06 c8 96 0d 0e ba 06  e6 37 0d 0e c4 18 c8 9d  |.........7......|
00002770  20 c8 90 20 33 30 30 2c  39 33 38 2c 31 30 30 2c  | .. 300,938,100,|
00002780  62 25 0d 0e ce 0a 62 25  2b 3d 63 25 0d 0e d8 1b  |b%....b%+=c%....|
00002790  e7 20 62 25 3e 37 38 20  84 20 62 25 3c 2d 37 38  |. b%>78 . b%<-78|
000027a0  20 63 25 3d 2d 63 25 0d  0e e2 10 e6 39 2e 35 2b  | c%=-c%.....9.5+|
000027b0  b4 28 62 25 29 2f 32 0d  0e ec 17 c8 9d 20 c8 90  |.(b%)/2...... ..|
000027c0  20 33 30 30 2c 39 33 38  2c 38 30 2c 62 25 0d 0e  | 300,938,80,b%..|
000027d0  f6 10 6c 61 73 74 64 72  6f 70 25 2b 3d 31 0d 0f  |..lastdrop%+=1..|
000027e0  00 2f e7 20 6c 61 73 74  64 72 6f 70 25 3d 31 36  |./. lastdrop%=16|
000027f0  20 80 20 65 25 3c 33 35  30 20 64 72 69 70 73 25  | . e%<350 drips%|
00002800  28 31 29 3d 33 34 30 3a  64 25 2d 3d 34 0d 0f 0a  |(1)=340:d%-=4...|
00002810  3b e7 20 6c 61 73 74 64  72 6f 70 25 3d 33 32 20  |;. lastdrop%=32 |
00002820  80 20 65 25 3c 33 35 30  20 64 72 69 70 73 25 28  |. e%<350 drips%(|
00002830  30 29 3d 33 34 30 3a 64  25 2d 3d 34 3a 6c 61 73  |0)=340:d%-=4:las|
00002840  74 64 72 6f 70 25 3d 30  0d 0f 14 11 e3 20 64 72  |tdrop%=0..... dr|
00002850  69 70 25 3d 30 20 b8 20  31 0d 0f 1e 63 e7 20 64  |ip%=0 . 1...c. d|
00002860  72 69 70 73 25 28 64 72  69 70 25 29 3e 30 20 e6  |rips%(drip%)>0 .|
00002870  37 3a c8 8f 20 c8 90 20  31 31 30 34 2c 64 72 69  |7:.. .. 1104,dri|
00002880  70 73 25 28 64 72 69 70  25 29 2c 38 3a 64 72 69  |ps%(drip%),8:dri|
00002890  70 73 25 28 64 72 69 70  25 29 2d 3d 38 3a e6 31  |ps%(drip%)-=8:.1|
000028a0  34 3a c8 8f 20 c8 90 20  31 31 30 34 2c 64 72 69  |4:.. .. 1104,dri|
000028b0  70 73 25 28 64 72 69 70  25 29 2c 38 0d 0f 28 5b  |ps%(drip%),8..([|
000028c0  e7 20 64 72 69 70 73 25  28 64 72 69 70 25 29 3e  |. drips%(drip%)>|
000028d0  30 20 80 20 64 72 69 70  73 25 28 64 72 69 70 25  |0 . drips%(drip%|
000028e0  29 3c 65 25 2d 38 20 65  25 2b 3d 34 3a e6 31 34  |)<e%-8 e%+=4:.14|
000028f0  3a c8 93 20 c8 90 20 31  30 39 36 2c 65 25 2d 31  |:.. .. 1096,e%-1|
00002900  36 2c 31 36 2c 31 32 3a  64 72 69 70 73 25 28 64  |6,16,12:drips%(d|
00002910  72 69 70 25 29 3d 30 0d  0f 32 05 ed 0d 0f 3c 0b  |rip%)=0..2....<.|
00002920  e6 31 32 38 2b 31 34 0d  0f 46 06 e6 37 0d 0f 50  |.128+14..F..7..P|
00002930  0f f0 37 37 2c 31 31 30  30 2c 64 25 0d 0f 5a 0a  |..77,1100,d%..Z.|
00002940  e6 31 32 38 2b 37 0d 0f  64 07 e6 31 34 0d 0f 6e  |.128+7..d..14..n|
00002950  0f f0 37 37 2c 31 31 30  30 2c 65 25 0d 0f 78 25  |..77,1100,e%..x%|
00002960  e7 20 58 25 3e 35 36 35  20 80 20 59 25 3c 36 36  |. X%>565 . Y%<66|
00002970  36 20 80 20 73 30 25 3d  30 20 8c 20 73 30 25 3d  |6 . s0%=0 . s0%=|
00002980  34 0d 0f 82 17 e7 20 73  30 25 3e 30 20 80 20 73  |4..... s0%>0 . s|
00002990  30 25 3c 33 33 30 20 8c  0d 0f 8c 0a 73 30 25 2b  |0%<330 .....s0%+|
000029a0  3d 38 0d 0f 96 06 e6 30  0d 0f a0 0c ec 35 36 35  |=8.....0.....565|
000029b0  2c 36 36 36 0d 0f aa 13  ec 35 36 35 2b 73 30 25  |,666.....565+s0%|
000029c0  2b 31 32 2c 36 36 36 0d  0f b4 19 f0 26 35 35 2c  |+12,666.....&55,|
000029d0  35 36 35 2c 36 36 36 2d  73 30 25 2a 32 2b 33 32  |565,666-s0%*2+32|
000029e0  0d 0f be 0b ec 39 30 38  2c 33 32 0d 0f c8 12 ec  |.....908,32.....|
000029f0  39 30 38 2d 73 30 25 2d  31 32 2c 33 32 0d 0f d2  |908-s0%-12,32...|
00002a00  18 f0 26 35 35 2c 39 30  38 2c 33 32 2b 73 30 25  |..&55,908,32+s0%|
00002a10  2a 32 2d 33 32 0d 0f dc  05 cd 0d 0f e6 06 e6 37  |*2-32..........7|
00002a20  0d 0f f0 17 c8 93 20 c8  90 34 34 34 2c 39 30 38  |...... ..444,908|
00002a30  2c 31 32 30 2c 35 36 0d  0f fa 0e 64 6f 6f 72 31  |,120,56....door1|
00002a40  25 2b 3d 66 25 0d 10 04  21 e7 20 64 6f 6f 72 31  |%+=f%...!. door1|
00002a50  25 3e 32 38 20 84 20 64  6f 6f 72 31 25 3c 32 20  |%>28 . door1%<2 |
00002a60  66 25 3d 2d 66 25 0d 10  0e 07 e6 31 35 0d 10 18  |f%=-f%.....15...|
00002a70  1c c8 93 20 c8 90 20 34  34 34 2c 39 30 34 2c 31  |... .. 444,904,1|
00002a80  32 30 2c 64 6f 6f 72 31  25 0d 10 22 1d c8 93 20  |20,door1%.."... |
00002a90  c8 90 20 34 34 34 2c 39  36 34 2c 31 32 30 2c 2d  |.. 444,964,120,-|
00002aa0  64 6f 6f 72 31 25 0d 10  2c 1b c8 93 30 2c 37 33  |door1%..,...0,73|
00002ab0  38 2c 38 2c 36 30 20 b8  20 31 32 37 32 2c 37 33  |8,8,60 . 1272,73|
00002ac0  38 0d 10 36 1c c8 93 30  2c 37 33 38 2c 31 32 38  |8..6...0,738,128|
00002ad0  30 2c 36 30 20 b8 20 2d  38 2c 37 33 38 0d 10 40  |0,60 . -8,738..@|
00002ae0  0a f2 6d 6f 75 73 65 0d  10 4a 38 e7 20 58 25 3e  |..mouse..J8. X%>|
00002af0  35 36 34 20 80 20 58 25  3c 31 31 30 30 20 80 20  |564 . X%<1100 . |
00002b00  59 25 3e 38 35 30 20 8c  20 c8 97 20 b8 20 58 25  |Y%>850 . .. . X%|
00002b10  2c 59 25 2d 28 58 25 2d  35 36 34 29 2f 36 34 0d  |,Y%-(X%-564)/64.|
00002b20  10 54 61 fd 20 b0 58 25  2b 34 2c 59 25 2d 34 29  |.Ta. .X%+4,Y%-4)|
00002b30  3d 30 20 84 20 b0 58 25  2b 34 2c 59 25 2d 34 29  |=0 . .X%+4,Y%-4)|
00002b40  3e 37 20 84 20 58 25 3c  30 20 84 20 58 25 3e 31  |>7 . X%<0 . X%>1|
00002b50  32 38 30 20 84 20 59 25  3e 31 30 32 34 20 84 20  |280 . Y%>1024 . |
00002b60  59 25 3c 30 20 84 20 58  25 3e 31 32 31 36 20 80  |Y%<0 . X%>1216 .|
00002b70  20 59 25 3e 32 34 30 20  80 20 59 25 3c 32 37 34  | Y%>240 . Y%<274|
00002b80  0d 10 5e 33 e7 20 58 25  3e 31 32 31 36 20 80 20  |..^3. X%>1216 . |
00002b90  59 25 3e 32 34 30 20 80  20 59 25 3c 32 37 34 20  |Y%>240 . Y%<274 |
00002ba0  fd 20 31 20 8b 20 f2 65  78 70 6c 6f 73 69 6f 6e  |. 1 . .explosion|
00002bb0  3a fd 30 0d 10 68 1a e3  20 61 63 72 6f 73 73 3d  |:.0..h.. across=|
00002bc0  58 25 20 b8 20 31 33 30  30 20 88 20 32 0d 10 72  |X% . 1300 . 2..r|
00002bd0  27 fb 31 2c 31 32 38 2b  b3 28 31 32 37 29 2c 31  |'.1,128+.(127),1|
00002be0  32 38 2b b3 28 31 32 37  29 2c 31 32 38 2b b3 28  |28+.(127),128+.(|
00002bf0  31 32 37 29 0d 10 7c 17  c8 97 20 c8 93 20 61 63  |127)..|... .. ac|
00002c00  72 6f 73 73 2c 59 25 2c  30 2c 30 0d 10 86 06 c8  |ross,Y%,0,0.....|
00002c10  96 0d 10 90 05 ed 0d 10  9a 16 e3 20 75 70 3d 59  |........... up=Y|
00002c20  25 20 b8 20 31 31 30 30  20 88 20 34 0d 10 a4 27  |% . 1100 . 4...'|
00002c30  fb 31 2c 31 32 38 2b b3  28 31 32 37 29 2c 31 32  |.1,128+.(127),12|
00002c40  38 2b b3 28 31 32 37 29  2c 31 32 38 2b b3 28 31  |8+.(127),128+.(1|
00002c50  32 37 29 0d 10 ae 15 c8  97 20 c8 93 20 31 33 30  |27)...... .. 130|
00002c60  30 2c 75 70 2c 30 2c 30  0d 10 b8 06 c8 96 0d 10  |0,up,0,0........|
00002c70  c2 05 ed 0d 10 cc 0c fb  31 2c 30 2c 30 2c 30 0d  |........1,0,0,0.|
00002c80  10 d6 05 e1 0d 10 e0 0c  dd f2 6c 65 76 65 6c 34  |..........level4|
00002c90  0d 10 ea 05 f5 0d 10 f4  0e 61 25 3d 35 30 3a 62  |.........a%=50:b|
00002ca0  25 3d 35 0d 10 fe 0d 63  25 3d 30 3a 64 25 3d 30  |%=5....c%=0:d%=0|
00002cb0  0d 11 08 0a 65 25 3d 39  33 30 0d 11 12 0d 66 25  |....e%=930....f%|
00002cc0  3d 30 3a 67 25 3d 30 0d  11 1c 0f 68 25 3d 37 33  |=0:g%=0....h%=73|
00002cd0  30 3a 6d 25 3d 30 0d 11  26 14 e3 20 73 6d 6f 6b  |0:m%=0..&.. smok|
00002ce0  65 25 3d 30 20 b8 20 31  30 30 0d 11 30 1d 6d 6f  |e%=0 . 100..0.mo|
00002cf0  74 65 73 25 28 73 6d 6f  6b 65 25 2c 30 29 3d b3  |tes%(smoke%,0)=.|
00002d00  28 34 30 29 2b 34 30 0d  11 3a 1e 6d 6f 74 65 73  |(40)+40..:.motes|
00002d10  25 28 73 6d 6f 6b 65 25  2c 31 29 3d 39 35 30 2b  |%(smoke%,1)=950+|
00002d20  b3 28 32 30 29 0d 11 44  05 ed 0d 11 4e 1e 77 68  |.(20)..D....N.wh|
00002d30  69 63 68 62 6c 61 63 6b  32 25 3d 77 68 69 63 68  |ichblack2%=which|
00002d40  62 6c 61 63 6b 25 2d 31  0d 11 58 23 e7 20 77 68  |black%-1..X#. wh|
00002d50  69 63 68 62 6c 61 63 6b  32 25 3d 31 20 77 68 69  |ichblack2%=1 whi|
00002d60  63 68 62 6c 61 63 6b 32  25 3d 36 0d 11 62 21 2a  |chblack2%=6..b!*|
00002d70  53 63 72 65 65 6e 4c 6f  61 64 20 3c 4f 62 65 79  |ScreenLoad <Obey|
00002d80  24 44 69 72 3e 2e 4c 65  76 65 6c 34 0d 11 6c 0c  |$Dir>.Level4..l.|
00002d90  f2 50 61 6c 65 74 74 65  0d 11 76 0e fb 38 2c 30  |.Palette..v..8,0|
00002da0  2c 30 2c 32 34 30 0d 11  80 1f f2 6c 6f 63 61 74  |,0,240.....locat|
00002db0  65 28 31 31 36 30 2c 39  32 34 29 3a f4 31 31 36  |e(1160,924):.116|
00002dc0  30 2c 39 32 34 0d 11 8a  16 c8 97 20 fb 20 32 2c  |0,924...... . 2,|
00002dd0  32 35 35 2c 32 35 35 2c  32 35 35 0d 11 94 05 f5  |255,255,255.....|
00002de0  0d 11 9e 0f c8 96 3a c8  96 3a c8 96 3a c8 96 0d  |......:..:..:...|
00002df0  11 a8 16 fb 77 68 69 63  68 62 6c 61 63 6b 25 2c  |....whichblack%,|
00002e00  30 2c 30 2c 30 0d 11 b2  17 fb 77 68 69 63 68 62  |0,0,0.....whichb|
00002e10  6c 61 63 6b 32 25 2c 30  2c 30 2c 30 0d 11 bc 22  |lack2%,0,0,0..."|
00002e20  77 68 69 63 68 62 6c 61  63 6b 25 2b 3d 31 3a 77  |whichblack%+=1:w|
00002e30  68 69 63 68 62 6c 61 63  6b 32 25 2b 3d 31 0d 11  |hichblack2%+=1..|
00002e40  c6 21 e7 20 77 68 69 63  68 62 6c 61 63 6b 25 3d  |.!. whichblack%=|
00002e50  37 20 77 68 69 63 68 62  6c 61 63 6b 25 3d 32 0d  |7 whichblack%=2.|
00002e60  11 d0 23 e7 20 77 68 69  63 68 62 6c 61 63 6b 32  |..#. whichblack2|
00002e70  25 3d 37 20 77 68 69 63  68 62 6c 61 63 6b 32 25  |%=7 whichblack2%|
00002e80  3d 32 0d 11 da 19 fb 20  77 68 69 63 68 62 6c 61  |=2..... whichbla|
00002e90  63 6b 25 2c 30 2c 32 35  35 2c 30 0d 11 e4 1c fb  |ck%,0,255,0.....|
00002ea0  20 77 68 69 63 68 62 6c  61 63 6b 32 25 2c 30 2c  | whichblack2%,0,|
00002eb0  31 32 38 2c 31 32 38 0d  11 ee 06 e6 37 0d 11 f8  |128,128.....7...|
00002ec0  1b c8 9d 20 c8 90 20 38  34 30 2c 39 31 36 2c 61  |... .. 840,916,a|
00002ed0  25 2c 31 30 30 2d 61 25  0d 12 02 0a 61 25 2b 3d  |%,100-a%....a%+=|
00002ee0  62 25 0d 12 0c 1a e7 20  61 25 3e 37 30 20 84 20  |b%..... a%>70 . |
00002ef0  61 25 3c 32 35 20 62 25  3d 2d 62 25 0d 12 16 07  |a%<25 b%=-b%....|
00002f00  e6 31 34 0d 12 20 1b c8  9d 20 c8 90 20 38 34 30  |.14.. ... .. 840|
00002f10  2c 39 31 36 2c 61 25 2c  31 30 30 2d 61 25 0d 12  |,916,a%,100-a%..|
00002f20  2a 06 e6 37 0d 12 34 29  c8 8f 20 c8 90 20 34 36  |*..7..4).. .. 46|
00002f30  30 2b 9b b2 28 63 25 29  2a 32 30 30 2c 39 31 36  |0+..(c%)*200,916|
00002f40  2b b5 b2 28 64 25 29 2a  35 30 2c 32 34 0d 12 3e  |+..(d%)*50,24..>|
00002f50  10 63 25 2b 3d 35 3a 64  25 2b 3d 31 30 0d 12 48  |.c%+=5:d%+=10..H|
00002f60  06 e6 39 0d 12 52 29 c8  8f 20 c8 90 20 34 36 30  |..9..R).. .. 460|
00002f70  2b 9b b2 28 63 25 29 2a  32 30 30 2c 39 31 36 2b  |+..(c%)*200,916+|
00002f80  b5 b2 28 64 25 29 2a 35  30 2c 32 34 0d 12 5c 06  |..(d%)*50,24..\.|
00002f90  e6 37 0d 12 66 12 c8 8f  20 c8 90 20 35 38 2c 65  |.7..f... .. 58,e|
00002fa0  25 2c 32 30 0d 12 70 09  65 25 2d 3d 33 0d 12 7a  |%,20..p.e%-=3..z|
00002fb0  13 f4 20 44 49 45 20 49  46 20 65 25 3c 33 39 30  |.. DIE IF e%<390|
00002fc0  0d 12 84 06 e6 30 0d 12  8e 17 c8 8f 20 c8 90 20  |.....0...... .. |
00002fd0  35 38 2c 65 25 2c 38 2b  b3 28 31 32 29 0d 12 98  |58,e%,8+.(12)...|
00002fe0  14 e3 20 73 6d 6f 6b 65  25 3d 30 20 b8 20 31 30  |.. smoke%=0 . 10|
00002ff0  30 0d 12 a2 4b e7 20 6d  6f 74 65 73 25 28 73 6d  |0...K. motes%(sm|
00003000  6f 6b 65 25 2c 30 29 3d  30 20 8c 20 6d 6f 74 65  |oke%,0)=0 . mote|
00003010  73 25 28 73 6d 6f 6b 65  25 2c 30 29 3d 34 30 2b  |s%(smoke%,0)=40+|
00003020  b3 28 33 36 29 3a 6d 6f  74 65 73 25 28 73 6d 6f  |.(36):motes%(smo|
00003030  6b 65 25 2c 31 29 3d 65  25 2b 32 34 0d 12 ac 0e  |ke%,1)=e%+24....|
00003040  52 25 3d b3 28 31 37 29  2d 39 0d 12 b6 06 e6 37  |R%=.(17)-9.....7|
00003050  0d 12 c0 29 f0 36 39 2c  6d 6f 74 65 73 25 28 73  |...).69,motes%(s|
00003060  6d 6f 6b 65 25 2c 30 29  2c 6d 6f 74 65 73 25 28  |moke%,0),motes%(|
00003070  73 6d 6f 6b 65 25 2c 31  29 0d 12 ca 93 e7 20 b0  |smoke%,1)..... .|
00003080  6d 6f 74 65 73 25 28 73  6d 6f 6b 65 25 2c 30 29  |motes%(smoke%,0)|
00003090  2b 52 25 2c 6d 6f 74 65  73 25 28 73 6d 6f 6b 65  |+R%,motes%(smoke|
000030a0  25 2c 31 29 2b 34 29 3c  3e 37 20 84 20 6d 6f 74  |%,1)+4)<>7 . mot|
000030b0  65 73 25 28 73 6d 6f 6b  65 25 2c 31 29 3e 65 25  |es%(smoke%,1)>e%|
000030c0  2b 31 30 30 20 80 20 b3  28 32 30 29 3d 31 20 6d  |+100 . .(20)=1 m|
000030d0  6f 74 65 73 25 28 73 6d  6f 6b 65 25 2c 30 29 3d  |otes%(smoke%,0)=|
000030e0  30 20 8b 20 6d 6f 74 65  73 25 28 73 6d 6f 6b 65  |0 . motes%(smoke|
000030f0  25 2c 30 29 2b 3d 52 25  3a 6d 6f 74 65 73 25 28  |%,0)+=R%:motes%(|
00003100  73 6d 6f 6b 65 25 2c 31  29 2b 3d 34 0d 12 d4 07  |smoke%,1)+=4....|
00003110  e6 20 30 0d 12 de 29 f0  36 39 2c 6d 6f 74 65 73  |. 0...).69,motes|
00003120  25 28 73 6d 6f 6b 65 25  2c 30 29 2c 6d 6f 74 65  |%(smoke%,0),mote|
00003130  73 25 28 73 6d 6f 6b 65  25 2c 31 29 0d 12 e8 05  |s%(smoke%,1)....|
00003140  ed 0d 12 f2 09 6d 25 2b  3d 31 0d 12 fc 06 e6 37  |.....m%+=1.....7|
00003150  0d 13 06 14 c8 8f 20 c8  90 20 31 32 32 34 2c 68  |...... .. 1224,h|
00003160  25 2c 33 32 0d 13 10 0a  68 25 2d 3d 6d 25 0d 13  |%,32....h%-=m%..|
00003170  1a 18 e7 20 68 25 3c 36  34 20 68 25 3d 36 34 3a  |... h%<64 h%=64:|
00003180  6d 25 3d 2d 33 36 0d 13  24 07 e6 31 33 0d 13 2e  |m%=-36..$..13...|
00003190  14 c8 8f 20 c8 90 20 31  32 32 34 2c 68 25 2c 33  |... .. 1224,h%,3|
000031a0  32 0d 13 38 06 e6 37 0d  13 42 2c c8 8f 20 c8 90  |2..8..7..B,.. ..|
000031b0  20 35 30 34 2b 28 58 25  2d 35 30 34 29 2f 33 32  | 504+(X%-504)/32|
000031c0  2c 37 31 34 2b 28 59 25  2d 37 31 34 29 2f 33 32  |,714+(Y%-714)/32|
000031d0  2c 32 34 0d 13 4c 2c c8  8f 20 c8 90 20 36 34 34  |,24..L,.. .. 644|
000031e0  2b 28 58 25 2d 36 34 34  29 2f 33 32 2c 37 31 34  |+(X%-644)/32,714|
000031f0  2b 28 59 25 2d 37 31 34  29 2f 33 32 2c 32 34 0d  |+(Y%-714)/32,24.|
00003200  13 56 0a f2 6d 6f 75 73  65 0d 13 60 06 e6 38 0d  |.V..mouse..`..8.|
00003210  13 6a 2c c8 8f 20 c8 90  20 35 30 34 2b 28 58 25  |.j,.. .. 504+(X%|
00003220  2d 35 30 34 29 2f 33 32  2c 37 31 34 2b 28 59 25  |-504)/32,714+(Y%|
00003230  2d 37 31 34 29 2f 33 32  2c 32 34 0d 13 74 2c c8  |-714)/32,24..t,.|
00003240  8f 20 c8 90 20 36 34 34  2b 28 58 25 2d 36 34 34  |. .. 644+(X%-644|
00003250  29 2f 33 32 2c 37 31 34  2b 28 59 25 2d 37 31 34  |)/32,714+(Y%-714|
00003260  29 2f 33 32 2c 32 34 0d  13 7e 95 fd 20 b0 58 25  |)/32,24..~.. .X%|
00003270  2b 34 2c 59 25 2d 34 29  3d 30 20 84 20 b0 58 25  |+4,Y%-4)=0 . .X%|
00003280  2b 34 2c 59 25 2d 34 29  3d 77 68 69 63 68 62 6c  |+4,Y%-4)=whichbl|
00003290  61 63 6b 25 20 84 20 b0  58 25 2b 34 2c 59 25 2d  |ack% . .X%+4,Y%-|
000032a0  34 29 3d 77 68 69 63 68  62 6c 61 63 6b 32 25 20  |4)=whichblack2% |
000032b0  84 20 b0 58 25 2b 34 2c  59 25 2d 34 29 3e 37 20  |. .X%+4,Y%-4)>7 |
000032c0  84 20 58 25 3c 30 20 84  20 58 25 3e 31 32 38 30  |. X%<0 . X%>1280|
000032d0  20 84 20 59 25 3e 31 30  32 34 20 84 20 65 25 3c  | . Y%>1024 . e%<|
000032e0  33 39 30 20 84 20 58 25  3c 35 30 20 80 20 59 25  |390 . X%<50 . Y%|
000032f0  3e 31 35 20 80 20 59 25  3c 31 35 30 0d 13 88 0e  |>15 . Y%<150....|
00003300  e7 20 65 25 3c 33 39 30  20 8c 0d 13 92 17 e3 20  |. e%<390 ...... |
00003310  66 61 64 65 25 3d 32 35  35 20 b8 20 30 20 88 2d  |fade%=255 . 0 .-|
00003320  31 0d 13 9c 06 c8 96 0d  13 a6 14 e3 20 63 6f 6c  |1........... col|
00003330  6f 75 72 25 3d 31 20 b8  20 31 35 0d 13 b0 1e fb  |our%=1 . 15.....|
00003340  63 6f 6c 6f 75 72 25 2c  66 61 64 65 25 2c 66 61  |colour%,fade%,fa|
00003350  64 65 25 2c 66 61 64 65  25 0d 13 ba 05 ed 0d 13  |de%,fade%.......|
00003360  c4 0e 2a 50 4f 49 4e 54  45 52 20 30 0d 13 ce 05  |..*POINTER 0....|
00003370  ed 0d 13 d8 05 db 0d 13  e2 0c f2 50 61 6c 65 74  |...........Palet|
00003380  74 65 0d 13 ec 0c fb 31  2c 30 2c 30 2c 30 0d 13  |te.....1,0,0,0..|
00003390  f6 0e 2a 50 4f 49 4e 54  45 52 20 31 0d 14 00 05  |..*POINTER 1....|
000033a0  cd 0d 14 0a 3e e7 20 58  25 3c 35 30 20 80 20 59  |....>. X%<50 . Y|
000033b0  25 3e 31 35 20 80 20 59  25 3c 31 35 30 20 fd 31  |%>15 . Y%<150 .1|
000033c0  20 8b 20 e7 20 65 25 3c  33 39 30 20 fd 20 30 20  | . . e%<390 . 0 |
000033d0  8b 20 f2 65 78 70 6c 6f  73 69 6f 6e 3a fd 30 0d  |. .explosion:.0.|
000033e0  14 14 18 e3 20 61 63 72  6f 73 73 3d 58 25 20 b8  |.... across=X% .|
000033f0  20 31 36 20 88 2d 31 0d  14 1e 06 e6 38 0d 14 28  | 16 .-1.....8..(|
00003400  30 c8 8f 20 c8 90 20 35  30 34 2b 28 61 63 72 6f  |0.. .. 504+(acro|
00003410  73 73 2d 35 30 34 29 2f  33 32 2c 37 31 34 2b 28  |ss-504)/32,714+(|
00003420  59 25 2d 37 31 34 29 2f  33 32 2c 32 34 0d 14 32  |Y%-714)/32,24..2|
00003430  30 c8 8f 20 c8 90 20 36  34 34 2b 28 61 63 72 6f  |0.. .. 644+(acro|
00003440  73 73 2d 36 34 34 29 2f  33 32 2c 37 31 34 2b 28  |ss-644)/32,714+(|
00003450  59 25 2d 37 31 34 29 2f  33 32 2c 32 34 0d 14 3c  |Y%-714)/32,24..<|
00003460  27 fb 31 2c b3 28 31 32  38 29 2b 31 32 38 2c b3  |'.1,.(128)+128,.|
00003470  28 31 32 38 29 2b 31 32  38 2c b3 28 31 32 38 29  |(128)+128,.(128)|
00003480  2b 31 32 38 0d 14 46 17  c8 97 20 c8 93 20 61 63  |+128..F... .. ac|
00003490  72 6f 73 73 2c 59 25 2c  30 2c 30 0d 14 50 06 e6  |ross,Y%,0,0..P..|
000034a0  37 0d 14 5a 06 c8 96 0d  14 64 30 c8 8f 20 c8 90  |7..Z.....d0.. ..|
000034b0  20 35 30 34 2b 28 61 63  72 6f 73 73 2d 35 30 34  | 504+(across-504|
000034c0  29 2f 33 32 2c 37 31 34  2b 28 59 25 2d 37 31 34  |)/32,714+(Y%-714|
000034d0  29 2f 33 32 2c 32 34 0d  14 6e 30 c8 8f 20 c8 90  |)/32,24..n0.. ..|
000034e0  20 36 34 34 2b 28 61 63  72 6f 73 73 2d 36 34 34  | 644+(across-644|
000034f0  29 2f 33 32 2c 37 31 34  2b 28 59 25 2d 37 31 34  |)/32,714+(Y%-714|
00003500  29 2f 33 32 2c 32 34 0d  14 78 05 ed 0d 14 82 16  |)/32,24..x......|
00003510  e3 20 61 63 72 6f 73 73  3d 30 20 b8 20 34 38 20  |. across=0 . 48 |
00003520  88 31 0d 14 8c 06 e6 37  0d 14 96 1f e7 20 61 63  |.1.....7..... ac|
00003530  72 6f 73 73 3d 32 30 20  8c 20 86 20 30 2c 35 30  |ross=20 . . 0,50|
00003540  2c 30 2c 31 30 32 34 0d  14 a0 06 e6 38 0d 14 aa  |,0,1024.....8...|
00003550  32 c8 8f 20 c8 90 20 35  30 34 2b 61 63 72 6f 73  |2.. .. 504+acros|
00003560  73 2a 32 2d 28 35 30 30  29 2f 33 32 2c 37 31 34  |s*2-(500)/32,714|
00003570  2b 28 59 25 2d 37 31 34  29 2f 33 32 2c 32 34 0d  |+(Y%-714)/32,24.|
00003580  14 b4 32 c8 8f 20 c8 90  20 36 34 34 2b 61 63 72  |..2.. .. 644+acr|
00003590  6f 73 73 2a 32 2d 28 36  34 30 29 2f 33 32 2c 37  |oss*2-(640)/32,7|
000035a0  31 34 2b 28 59 25 2d 37  31 34 29 2f 33 32 2c 32  |14+(Y%-714)/32,2|
000035b0  34 0d 14 be 27 fb 31 2c  b3 28 31 32 38 29 2b 31  |4...'.1,.(128)+1|
000035c0  32 38 2c b3 28 31 32 38  29 2b 31 32 38 2c b3 28  |28,.(128)+128,.(|
000035d0  31 32 38 29 2b 31 32 38  0d 14 c8 1a c8 93 20 30  |128)+128...... 0|
000035e0  2c 30 2c 31 32 37 36 2c  31 30 32 32 20 b8 20 32  |,0,1276,1022 . 2|
000035f0  2c 30 0d 14 d2 06 e6 37  0d 14 dc 06 c8 96 0d 14  |,0.....7........|
00003600  e6 32 c8 8f 20 c8 90 20  35 30 34 2b 61 63 72 6f  |.2.. .. 504+acro|
00003610  73 73 2a 32 2d 28 35 30  34 29 2f 33 32 2c 37 31  |ss*2-(504)/32,71|
00003620  34 2b 28 59 25 2d 37 31  34 29 2f 33 32 2c 32 34  |4+(Y%-714)/32,24|
00003630  0d 14 f0 32 c8 8f 20 c8  90 20 36 34 34 2b 61 63  |...2.. .. 644+ac|
00003640  72 6f 73 73 2a 32 2d 28  36 34 34 29 2f 33 32 2c  |ross*2-(644)/32,|
00003650  37 31 34 2b 28 59 25 2d  37 31 34 29 2f 33 32 2c  |714+(Y%-714)/32,|
00003660  32 34 0d 14 fa 05 ed 0d  15 04 15 e3 20 75 70 3d  |24.......... up=|
00003670  59 25 20 b8 20 31 31 30  30 20 88 34 0d 15 0e 06  |Y% . 1100 .4....|
00003680  e6 38 0d 15 18 24 c8 8f  20 c8 90 20 34 38 38 2b  |.8...$.. .. 488+|
00003690  31 30 30 2c 37 31 34 2b  28 75 70 2d 37 31 34 29  |100,714+(up-714)|
000036a0  2f 33 32 2c 32 34 0d 15  22 24 c8 8f 20 c8 90 20  |/32,24.."$.. .. |
000036b0  36 32 34 2b 31 30 30 2c  37 31 34 2b 28 75 70 2d  |624+100,714+(up-|
000036c0  37 31 34 29 2f 33 32 2c  32 34 0d 15 2c 27 fb 31  |714)/32,24..,'.1|
000036d0  2c b3 28 31 32 38 29 2b  31 32 38 2c b3 28 31 32  |,.(128)+128,.(12|
000036e0  38 29 2b 31 32 38 2c b3  28 31 32 38 29 2b 31 32  |8)+128,.(128)+12|
000036f0  38 0d 15 36 13 c8 97 20  c8 93 20 31 36 2c 75 70  |8..6... .. 16,up|
00003700  2c 30 2c 30 0d 15 40 06  e6 37 0d 15 4a 06 c8 96  |,0,0..@..7..J...|
00003710  0d 15 54 24 c8 8f 20 c8  90 20 34 38 38 2b 31 30  |..T$.. .. 488+10|
00003720  30 2c 37 31 34 2b 28 75  70 2d 37 31 34 29 2f 33  |0,714+(up-714)/3|
00003730  32 2c 32 34 0d 15 5e 24  c8 8f 20 c8 90 20 36 32  |2,24..^$.. .. 62|
00003740  34 2b 31 30 30 2c 37 31  34 2b 28 75 70 2d 37 31  |4+100,714+(up-71|
00003750  34 29 2f 33 32 2c 32 34  0d 15 68 05 ed 0d 15 72  |4)/32,24..h....r|
00003760  0c fb 31 2c 30 2c 30 2c  30 0d 15 7c 05 e1 0d 15  |..1,0,0,0..|....|
00003770  86 15 dd f2 6c 6f 63 61  74 65 28 6f 78 25 2c 6f  |....locate(ox%,o|
00003780  79 25 29 0d 15 90 0e 2a  50 4f 49 4e 54 45 52 20  |y%)....*POINTER |
00003790  31 0d 15 9a 15 c8 97 20  c8 93 20 6f 78 25 2c 6f  |1...... .. ox%,o|
000037a0  79 25 2c 30 2c 30 0d 15  a4 19 c8 97 20 c8 93 20  |y%,0,0...... .. |
000037b0  6f 78 25 2d 34 2c 6f 79  25 2d 34 2c 38 2c 38 0d  |ox%-4,oy%-4,8,8.|
000037c0  15 ae 2d c8 99 22 57 69  6d 70 5f 53 70 72 69 74  |..-.."Wimp_Sprit|
000037d0  65 4f 70 22 2c 33 36 2c  2c 22 75 5f 72 5f 68 65  |eOp",36,,"u_r_he|
000037e0  72 65 22 2c 25 31 31 30  30 30 30 31 0d 15 b8 12  |re",%1100001....|
000037f0  c8 97 20 fb 20 31 2c 30  2c 30 2c 32 35 35 0d 15  |.. . 1,0,0,255..|
00003800  c2 12 c8 97 20 fb 20 32  2c 30 2c 30 2c 31 32 38  |.... . 2,0,0,128|
00003810  0d 15 cc 12 c8 97 20 fb  20 33 2c 32 35 35 2c 30  |...... . 3,255,0|
00003820  2c 30 0d 15 d6 24 f5 3a  c8 97 78 25 2c 79 25 2c  |,0...$.:..x%,y%,|
00003830  7a 25 3a fd 20 6f 78 25  3c 3e 78 25 20 84 20 6f  |z%:. ox%<>x% . o|
00003840  79 25 3c 3e 79 25 0d 15  e0 30 c8 99 22 57 69 6d  |y%<>y%...0.."Wim|
00003850  70 5f 53 70 72 69 74 65  4f 70 22 2c 33 36 2c 2c  |p_SpriteOp",36,,|
00003860  22 67 61 6d 65 70 6f 69  6e 74 65 72 22 2c 25 31  |"gamepointer",%1|
00003870  31 30 30 30 30 31 0d 15  ea 05 e1 0d 15 f4 0c dd  |100001..........|
00003880  f2 6c 65 76 65 6c 35 0d  15 fe 05 db 0d 16 08 05  |.level5.........|
00003890  f5 0d 16 12 21 2a 53 63  72 65 65 6e 4c 6f 61 64  |....!*ScreenLoad|
000038a0  20 3c 4f 62 65 79 24 44  69 72 3e 2e 4c 65 76 65  | <Obey$Dir>.Leve|
000038b0  6c 35 0d 16 1c 0c f2 50  61 6c 65 74 74 65 0d 16  |l5.....Palette..|
000038c0  26 1d f2 6c 6f 63 61 74  65 28 33 32 30 2c 34 30  |&..locate(320,40|
000038d0  30 29 3a f4 33 32 30 2c  34 30 30 0d 16 30 16 c8  |0):.320,400..0..|
000038e0  97 20 fb 20 32 2c 32 35  35 2c 32 35 35 2c 32 35  |. . 2,255,255,25|
000038f0  35 0d 16 3a 32 73 61 74  58 25 3d 31 30 30 30 3a  |5..:2satX%=1000:|
00003900  73 61 74 59 25 3d 32 32  30 3a 73 61 74 41 25 3d  |satY%=220:satA%=|
00003910  30 3a 73 61 74 44 58 25  3d 30 3a 73 61 74 44 59  |0:satDX%=0:satDY|
00003920  25 3d 30 0d 16 44 3f 61  25 3d 30 3a 62 25 3d 31  |%=0..D?a%=0:b%=1|
00003930  30 3a 63 25 3d 2d 31 30  3a 64 25 3d 30 3a 65 25  |0:c%=-10:d%=0:e%|
00003940  3d 30 3a 69 25 3d 30 3a  6a 25 3d 30 3a 6b 25 3d  |=0:i%=0:j%=0:k%=|
00003950  30 3a 6c 25 3d 36 3a 74  25 3d 30 3a 58 25 3d 33  |0:l%=6:t%=0:X%=3|
00003960  32 30 0d 16 4e 0d e3 20  6d 3d 30 20 b8 20 39 0d  |20..N.. m=0 . 9.|
00003970  16 58 0d e3 20 63 3d 30  20 b8 20 35 0d 16 62 12  |.X.. c=0 . 5..b.|
00003980  73 70 69 6b 65 73 25 28  6d 2c 63 29 3d 30 0d 16  |spikes%(m,c)=0..|
00003990  6c 07 ed 3a ed 0d 16 76  0d e3 20 6d 3d 30 20 b8  |l..:...v.. m=0 .|
000039a0  20 35 0d 16 80 1f 73 74  61 72 73 25 28 30 2c 6d  | 5....stars%(0,m|
000039b0  29 3d 31 31 33 30 2b 6d  2a 31 36 2b b3 28 31 36  |)=1130+m*16+.(16|
000039c0  29 0d 16 8a 1a 73 74 61  72 73 25 28 31 2c 6d 29  |)....stars%(1,m)|
000039d0  3d 36 35 30 2b b3 28 31  30 30 29 0d 16 94 11 73  |=650+.(100)....s|
000039e0  74 61 72 73 25 28 32 2c  6d 29 3d 30 0d 16 9e 18  |tars%(2,m)=0....|
000039f0  73 74 61 72 73 25 28 33  2c 6d 29 3d b3 28 33 32  |stars%(3,m)=.(32|
00003a00  29 2d 31 36 0d 16 a8 11  73 74 61 72 73 25 28 34  |)-16....stars%(4|
00003a10  2c 6d 29 3d 30 0d 16 b2  05 ed 0d 16 bc 1f 6d 6f  |,m)=0.........mo|
00003a20  74 65 73 25 28 30 2c 30  29 3d 30 3a 6d 6f 74 65  |tes%(0,0)=0:mote|
00003a30  73 25 28 30 2c 31 29 3d  30 0d 16 c6 1f 6d 6f 74  |s%(0,1)=0....mot|
00003a40  65 73 25 28 31 2c 30 29  3d 30 3a 6d 6f 74 65 73  |es%(1,0)=0:motes|
00003a50  25 28 31 2c 31 29 3d 30  0d 16 d0 1f 6d 6f 74 65  |%(1,1)=0....mote|
00003a60  73 25 28 32 2c 30 29 3d  32 3a 6d 6f 74 65 73 25  |s%(2,0)=2:motes%|
00003a70  28 32 2c 31 29 3d 30 0d  16 da 05 f5 0d 16 e4 0f  |(2,1)=0.........|
00003a80  61 78 25 3d 30 3a 61 79  25 3d 30 0d 16 ee 29 e7  |ax%=0:ay%=0...).|
00003a90  20 58 25 3e 32 30 34 20  80 20 59 25 3e 31 36 34  | X%>204 . Y%>164|
00003aa0  20 80 20 58 25 3c 34 35  30 20 80 20 59 25 3c 34  | . X%<450 . Y%<4|
00003ab0  33 32 20 8c 0d 16 f8 1d  c8 97 20 c8 93 20 58 25  |32 ....... .. X%|
00003ac0  2d 35 30 2c 59 25 2d 38  30 2c 31 30 30 2c 31 30  |-50,Y%-80,100,10|
00003ad0  30 0d 17 02 0b 61 79 25  3d 2d 74 25 0d 17 0c 12  |0....ay%=-t%....|
00003ae0  e7 20 74 25 3c 31 30 30  20 74 25 2b 3d 31 0d 17  |. t%<100 t%+=1..|
00003af0  16 05 cd 0d 17 20 20 e7  20 58 25 3c 36 34 30 20  |.....  . X%<640 |
00003b00  80 20 59 25 3e 35 32 34  20 80 20 59 25 3c 38 35  |. Y%>524 . Y%<85|
00003b10  34 20 8c 0d 17 2a 25 61  78 25 2b 3d b5 b2 28 73  |4 ...*%ax%+=..(s|
00003b20  61 74 41 25 29 2a 38 3a  61 79 25 2b 3d 9b b2 28  |atA%)*8:ay%+=..(|
00003b30  73 61 74 41 25 29 2a 38  0d 17 34 05 cd 0d 17 3e  |satA%)*8..4....>|
00003b40  06 c8 96 0d 17 3f 2c e7  20 58 25 3e 37 30 30 20  |.....?,. X%>700 |
00003b50  80 20 6d 6f 74 65 73 25  28 32 2c 31 29 3d 30 20  |. motes%(2,1)=0 |
00003b60  8c 20 6d 6f 74 65 73 25  28 32 2c 31 29 3d 31 0d  |. motes%(2,1)=1.|
00003b70  17 40 35 e7 20 6d 6f 74  65 73 25 28 32 2c 31 29  |.@5. motes%(2,1)|
00003b80  3e 30 20 80 20 6d 6f 74  65 73 25 28 32 2c 31 29  |>0 . motes%(2,1)|
00003b90  3c 33 32 20 8c 20 6d 6f  74 65 73 25 28 32 2c 31  |<32 . motes%(2,1|
00003ba0  29 2b 3d 34 0d 17 40 17  e7 20 6d 6f 74 65 73 25  |)+=4..@.. motes%|
00003bb0  28 30 2c 30 29 3c 31 30  31 20 8c 0d 17 41 07 e6  |(0,0)<101 ...A..|
00003bc0  20 37 0d 17 42 16 c8 93  20 c8 90 20 37 35 30 2c  | 7..B... .. 750,|
00003bd0  32 30 2c 38 30 2c 35 32  0d 17 43 06 e6 30 0d 17  |20,80,52..C..0..|
00003be0  44 22 c8 93 20 c8 90 20  37 35 30 2c 35 32 2d 6d  |D".. .. 750,52-m|
00003bf0  6f 74 65 73 25 28 32 2c  31 29 2c 38 30 2c 32 30  |otes%(2,1),80,20|
00003c00  0d 17 45 05 cd 0d 17 47  06 c8 96 0d 17 48 35 e7  |..E....G.....H5.|
00003c10  20 58 25 3c 31 32 30 20  80 20 59 25 3c 36 37 30  | X%<120 . Y%<670|
00003c20  20 80 20 6d 6f 74 65 73  25 28 30 2c 30 29 3d 30  | . motes%(0,0)=0|
00003c30  20 8c 20 6d 6f 74 65 73  25 28 30 2c 30 29 3d 31  | . motes%(0,0)=1|
00003c40  0d 17 52 15 e7 20 6d 6f  74 65 73 25 28 30 2c 30  |..R.. motes%(0,0|
00003c50  29 3e 30 20 8c 0d 17 5c  12 6d 6f 74 65 73 25 28  |)>0 ...\.motes%(|
00003c60  30 2c 30 29 2b 3d 31 0d  17 66 16 e7 20 6d 6f 74  |0,0)+=1..f.. mot|
00003c70  65 73 25 28 30 2c 30 29  3c 37 32 20 8c 0d 17 70  |es%(0,0)<72 ...p|
00003c80  16 e7 20 6d 6f 74 65 73  25 28 30 2c 30 29 3c 32  |.. motes%(0,0)<2|
00003c90  33 20 8c 0d 17 7a 12 6d  6f 74 65 73 25 28 31 2c  |3 ...z.motes%(1,|
00003ca0  30 29 2b 3d 31 0d 17 98  12 6d 6f 74 65 73 25 28  |0)+=1....motes%(|
00003cb0  32 2c 30 29 2b 3d 31 0d  17 84 1c 6d 6f 74 65 73  |2,0)+=1....motes|
00003cc0  25 28 6d 6f 74 65 73 25  28 32 2c 30 29 2c 30 29  |%(motes%(2,0),0)|
00003cd0  3d 31 36 0d 17 8e 25 6d  6f 74 65 73 25 28 6d 6f  |=16...%motes%(mo|
00003ce0  74 65 73 25 28 32 2c 30  29 2c 31 29 3d 6d 6f 74  |tes%(2,0),1)=mot|
00003cf0  65 73 25 28 31 2c 31 29  0d 17 a2 20 cc 20 6d 6f  |es%(1,1)... . mo|
00003d00  74 65 73 25 28 31 2c 30  29 2d 3d 31 3a f4 20 43  |tes%(1,0)-=1:. C|
00003d10  48 41 4e 47 45 20 64 79  0d 17 ac 05 cd 0d 17 b6  |HANGE dy........|
00003d20  3e c8 93 20 32 38 2c 6d  6f 74 65 73 25 28 31 2c  |>.. 28,motes%(1,|
00003d30  31 29 2b 32 30 2c 36 38  2c 33 36 20 b8 20 32 38  |1)+20,68,36 . 28|
00003d40  2c 6d 6f 74 65 73 25 28  31 2c 31 29 2b 6d 6f 74  |,motes%(1,1)+mot|
00003d50  65 73 25 28 31 2c 30 29  2b 32 30 0d 17 c0 06 e6  |es%(1,0)+20.....|
00003d60  37 0d 17 ca 3a e7 20 6d  6f 74 65 73 25 28 31 2c  |7...:. motes%(1,|
00003d70  30 29 3e 30 20 c8 93 20  c8 90 20 32 38 2c 6d 6f  |0)>0 .. .. 28,mo|
00003d80  74 65 73 25 28 31 2c 31  29 2b 31 36 2c 36 38 2c  |tes%(1,1)+16,68,|
00003d90  6d 6f 74 65 73 25 28 31  2c 30 29 0d 17 d4 3a e7  |motes%(1,0)...:.|
00003da0  20 6d 6f 74 65 73 25 28  31 2c 30 29 3c 30 20 c8  | motes%(1,0)<0 .|
00003db0  93 20 c8 90 20 32 38 2c  6d 6f 74 65 73 25 28 31  |. .. 28,motes%(1|
00003dc0  2c 31 29 2b 36 30 2c 36  38 2c 6d 6f 74 65 73 25  |,1)+60,68,motes%|
00003dd0  28 31 2c 30 29 0d 17 de  27 6d 6f 74 65 73 25 28  |(1,0)...'motes%(|
00003de0  31 2c 31 29 2b 3d 6d 6f  74 65 73 25 28 31 2c 30  |1,1)+=motes%(1,0|
00003df0  29 3a f4 20 43 48 41 4e  47 45 20 79 0d 17 e8 16  |):. CHANGE y....|
00003e00  e7 20 6d 6f 74 65 73 25  28 30 2c 30 29 3c 37 31  |. motes%(0,0)<71|
00003e10  20 8c 0d 17 f2 06 e6 37  0d 17 fc 17 e3 20 6d 3d  | ......7..... m=|
00003e20  33 20 b8 20 6d 6f 74 65  73 25 28 32 2c 30 29 0d  |3 . motes%(2,0).|
00003e30  18 06 24 c8 8f 20 c8 90  20 33 38 2c 6d 6f 74 65  |..$.. .. 38,mote|
00003e40  73 25 28 6d 2c 31 29 2c  6d 6f 74 65 73 25 28 6d  |s%(m,1),motes%(m|
00003e50  2c 30 29 0d 18 10 24 c8  8f 20 c8 90 20 36 32 2c  |,0)...$.. .. 62,|
00003e60  6d 6f 74 65 73 25 28 6d  2c 31 29 2c 6d 6f 74 65  |motes%(m,1),mote|
00003e70  73 25 28 6d 2c 30 29 0d  18 1a 24 c8 8f 20 c8 90  |s%(m,0)...$.. ..|
00003e80  20 38 36 2c 6d 6f 74 65  73 25 28 6d 2c 31 29 2c  | 86,motes%(m,1),|
00003e90  6d 6f 74 65 73 25 28 6d  2c 30 29 0d 18 24 21 6d  |motes%(m,0)..$!m|
00003ea0  6f 74 65 73 25 28 6d 2c  31 29 2d 3d 38 3a 6d 6f  |otes%(m,1)-=8:mo|
00003eb0  74 65 73 25 28 6d 2c 30  29 2d 3d 31 0d 18 2e 05  |tes%(m,0)-=1....|
00003ec0  ed 0d 18 38 06 e6 30 0d  18 42 17 e3 20 6d 3d 33  |...8..0..B.. m=3|
00003ed0  20 b8 20 6d 6f 74 65 73  25 28 32 2c 30 29 0d 18  | . motes%(2,0)..|
00003ee0  4c 24 c8 8f 20 c8 90 20  33 38 2c 6d 6f 74 65 73  |L$.. .. 38,motes|
00003ef0  25 28 6d 2c 31 29 2c 6d  6f 74 65 73 25 28 6d 2c  |%(m,1),motes%(m,|
00003f00  30 29 0d 18 56 24 c8 8f  20 c8 90 20 36 32 2c 6d  |0)..V$.. .. 62,m|
00003f10  6f 74 65 73 25 28 6d 2c  31 29 2c 6d 6f 74 65 73  |otes%(m,1),motes|
00003f20  25 28 6d 2c 30 29 0d 18  60 24 c8 8f 20 c8 90 20  |%(m,0)..`$.. .. |
00003f30  38 36 2c 6d 6f 74 65 73  25 28 6d 2c 31 29 2c 6d  |86,motes%(m,1),m|
00003f40  6f 74 65 73 25 28 6d 2c  30 29 0d 18 6a 05 ed 0d  |otes%(m,0)..j...|
00003f50  18 74 14 c8 93 20 c8 90  20 30 2c 30 2c 31 31 30  |.t... .. 0,0,110|
00003f60  2c 31 38 0d 18 7e 05 cd  0d 18 88 05 cd 0d 18 92  |,18..~..........|
00003f70  28 e7 20 6d 6f 74 65 73  25 28 30 2c 30 29 3e 37  |(. motes%(0,0)>7|
00003f80  31 20 80 20 6d 6f 74 65  73 25 28 30 2c 30 29 3c  |1 . motes%(0,0)<|
00003f90  31 32 30 20 8c 0d 18 9c  2d e6 31 34 3a c8 8f 20  |120 ....-.14:.. |
00003fa0  c8 90 20 28 6d 6f 74 65  73 25 28 30 2c 30 29 2d  |.. (motes%(0,0)-|
00003fb0  37 31 29 2a 32 35 2b b3  28 31 30 29 2c 35 30 2c  |71)*25+.(10),50,|
00003fc0  35 30 0d 18 a6 2f c8 8f  20 c8 90 20 34 30 2b b3  |50.../.. .. 40+.|
00003fd0  28 31 30 29 2c 28 6d 6f  74 65 73 25 28 30 2c 30  |(10),(motes%(0,0|
00003fe0  29 2d 37 31 29 2a 31 32  2b b3 28 31 30 29 2c 38  |)-71)*12+.(10),8|
00003ff0  30 0d 18 b0 30 e6 31 31  3a c8 8f 20 c8 90 20 28  |0...0.11:.. .. (|
00004000  6d 6f 74 65 73 25 28 30  2c 30 29 2d 37 31 29 2a  |motes%(0,0)-71)*|
00004010  32 35 2b b3 28 32 30 29  2c b3 28 38 30 29 2c 35  |25+.(20),.(80),5|
00004020  30 0d 18 ba 2f c8 8f 20  c8 90 20 b3 28 38 30 29  |0.../.. .. .(80)|
00004030  2b 31 30 2c 28 6d 6f 74  65 73 25 28 30 2c 30 29  |+10,(motes%(0,0)|
00004040  2d 37 31 29 2a 31 32 2b  b3 28 32 30 29 2c 38 30  |-71)*12+.(20),80|
00004050  0d 18 c4 05 cd 0d 18 ce  05 cd 0d 18 d8 06 c8 96  |................|
00004060  0d 18 e2 06 e6 37 0d 18  ec 2f ec 20 73 61 74 58  |.....7.../. satX|
00004070  25 2b 28 b5 b2 28 73 61  74 41 25 29 2a 33 32 29  |%+(..(satA%)*32)|
00004080  2c 73 61 74 59 25 2b 28  9b b2 28 73 61 74 41 25  |,satY%+(..(satA%|
00004090  29 2a 33 32 29 0d 18 f6  37 ec 20 73 61 74 58 25  |)*32)...7. satX%|
000040a0  2b 28 b5 b2 28 73 61 74  41 25 2b 31 30 30 29 2a  |+(..(satA%+100)*|
000040b0  34 38 29 2c 73 61 74 59  25 2b 28 9b b2 28 73 61  |48),satY%+(..(sa|
000040c0  74 41 25 2b 31 30 30 29  2a 34 38 29 0d 19 00 39  |tA%+100)*48)...9|
000040d0  f0 38 35 2c 73 61 74 58  25 2b 28 b5 b2 28 73 61  |.85,satX%+(..(sa|
000040e0  74 41 25 2b 32 36 30 29  2a 34 30 29 2c 73 61 74  |tA%+260)*40),sat|
000040f0  59 25 2b 28 9b b2 28 73  61 74 41 25 2b 32 36 30  |Y%+(..(satA%+260|
00004100  29 2a 34 30 29 0d 19 0a  0c 73 61 74 41 25 2b 3d  |)*40)....satA%+=|
00004110  34 0d 19 14 20 e7 20 58  25 3e 39 30 38 20 80 20  |4... . X%>908 . |
00004120  59 25 3e 31 35 30 20 80  20 59 25 3c 35 32 38 20  |Y%>150 . Y%<528 |
00004130  8c 0d 19 1e 11 73 61 74  58 25 2b 3d 73 61 74 44  |.....satX%+=satD|
00004140  58 25 0d 19 28 19 e7 20  73 61 74 58 25 3c 39 35  |X%..(.. satX%<95|
00004150  34 20 73 61 74 58 25 3d  39 35 34 0d 19 32 1b e7  |4 satX%=954..2..|
00004160  20 73 61 74 58 25 3e 31  32 31 32 20 73 61 74 58  | satX%>1212 satX|
00004170  25 3d 31 32 31 32 0d 19  3c 11 73 61 74 59 25 2b  |%=1212..<.satY%+|
00004180  3d 73 61 74 44 59 25 0d  19 46 19 e7 20 73 61 74  |=satDY%..F.. sat|
00004190  59 25 3c 32 30 34 20 73  61 74 59 25 3d 32 30 34  |Y%<204 satY%=204|
000041a0  0d 19 50 19 e7 20 73 61  74 59 25 3e 34 37 34 20  |..P.. satY%>474 |
000041b0  73 61 74 59 25 3d 34 37  34 0d 19 5a 23 61 78 25  |satY%=474..Z#ax%|
000041c0  2d 3d 73 61 74 44 58 25  2a 31 2e 35 3a 61 79 25  |-=satDX%*1.5:ay%|
000041d0  2d 3d 73 61 74 44 59 25  2a 31 2e 35 0d 19 64 23  |-=satDY%*1.5..d#|
000041e0  73 61 74 44 58 25 3d 73  61 74 44 58 25 2f 31 2e  |satDX%=satDX%/1.|
000041f0  31 2b 28 58 25 2d 73 61  74 58 25 29 2f 34 38 0d  |1+(X%-satX%)/48.|
00004200  19 6e 23 73 61 74 44 59  25 3d 73 61 74 44 59 25  |.n#satDY%=satDY%|
00004210  2f 31 2e 31 2b 28 59 25  2d 73 61 74 59 25 29 2f  |/1.1+(Y%-satY%)/|
00004220  34 38 0d 19 78 05 cd 0d  19 82 07 e6 31 31 0d 19  |48..x.......11..|
00004230  8c 2f ec 20 73 61 74 58  25 2b 28 b5 b2 28 73 61  |./. satX%+(..(sa|
00004240  74 41 25 29 2a 33 32 29  2c 73 61 74 59 25 2b 28  |tA%)*32),satY%+(|
00004250  9b b2 28 73 61 74 41 25  29 2a 33 32 29 0d 19 96  |..(satA%)*32)...|
00004260  37 ec 20 73 61 74 58 25  2b 28 b5 b2 28 73 61 74  |7. satX%+(..(sat|
00004270  41 25 2b 31 30 30 29 2a  34 38 29 2c 73 61 74 59  |A%+100)*48),satY|
00004280  25 2b 28 9b b2 28 73 61  74 41 25 2b 31 30 30 29  |%+(..(satA%+100)|
00004290  2a 34 38 29 0d 19 a0 39  f0 38 35 2c 73 61 74 58  |*48)...9.85,satX|
000042a0  25 2b 28 b5 b2 28 73 61  74 41 25 2b 32 36 30 29  |%+(..(satA%+260)|
000042b0  2a 34 30 29 2c 73 61 74  59 25 2b 28 9b b2 28 73  |*40),satY%+(..(s|
000042c0  61 74 41 25 2b 32 36 30  29 2a 34 30 29 0d 19 aa  |atA%+260)*40)...|
000042d0  28 e7 20 64 25 3d 30 20  80 20 58 25 3e 39 30 30  |(. d%=0 . X%>900|
000042e0  20 80 20 58 25 3c 31 31  30 30 20 80 20 59 25 3e  | . X%<1100 . Y%>|
000042f0  39 31 30 20 8c 0d 19 b4  08 65 25 3d 31 0d 19 be  |910 .....e%=1...|
00004300  0b e6 b3 28 38 29 2b 37  0d 19 c8 14 c8 93 20 39  |...(8)+7...... 9|
00004310  30 30 2c 39 31 38 2c 32  30 2c 38 30 0d 19 d2 0b  |00,918,20,80....|
00004320  e6 b3 28 38 29 2b 37 0d  19 dc 14 c8 93 20 39 30  |..(8)+7...... 90|
00004330  34 2c 39 32 36 2c 31 32  2c 36 34 0d 19 e6 0b 61  |4,926,12,64....a|
00004340  78 25 2d 3d 32 34 0d 19  f0 05 cd 0d 19 fa 37 e7  |x%-=24........7.|
00004350  20 65 25 3d 31 20 80 20  58 25 3e 31 31 30 30 20  | e%=1 . X%>1100 |
00004360  8c 20 64 25 3d 31 3a e6  37 3a c8 93 20 c8 90 20  |. d%=1:.7:.. .. |
00004370  39 30 30 2c 39 31 38 2c  32 30 2c 38 30 3a 65 25  |900,918,20,80:e%|
00004380  3d 30 0d 1a 04 27 e7 20  64 25 3d 31 20 80 20 58  |=0...'. d%=1 . X|
00004390  25 3e 36 30 30 20 80 20  58 25 3c 38 30 30 20 80  |%>600 . X%<800 .|
000043a0  20 59 25 3e 39 31 30 20  8c 0d 1a 0e 08 65 25 3d  | Y%>910 .....e%=|
000043b0  32 0d 1a 18 0b e6 b3 28  38 29 2b 37 0d 1a 22 14  |2......(8)+7..".|
000043c0  c8 93 20 36 30 30 2c 39  31 38 2c 32 30 2c 38 30  |.. 600,918,20,80|
000043d0  0d 1a 2c 0b e6 b3 28 38  29 2b 37 0d 1a 36 14 c8  |..,...(8)+7..6..|
000043e0  93 20 36 30 34 2c 39 32  36 2c 31 32 2c 36 34 0d  |. 604,926,12,64.|
000043f0  1a 40 0b 61 78 25 2d 3d  34 38 0d 1a 4a 05 cd 0d  |.@.ax%-=48..J...|
00004400  1a 54 36 e7 20 65 25 3d  32 20 80 20 58 25 3e 38  |.T6. e%=2 . X%>8|
00004410  30 30 20 8c 20 64 25 3d  32 3a e6 37 3a c8 93 20  |00 . d%=2:.7:.. |
00004420  c8 90 20 36 30 30 2c 39  31 38 2c 32 30 2c 38 30  |.. 600,918,20,80|
00004430  3a 65 25 3d 30 0d 1a 5e  25 e7 20 64 25 3d 32 20  |:e%=0..^%. d%=2 |
00004440  80 20 58 25 3c 35 30 30  20 80 20 59 25 3e 39 31  |. X%<500 . Y%>91|
00004450  30 20 84 20 65 25 3d 33  20 8c 0d 1a 68 08 65 25  |0 . e%=3 ...h.e%|
00004460  3d 33 0d 1a 72 0b e6 b3  28 38 29 2b 37 0d 1a 7c  |=3..r...(8)+7..||
00004470  14 c8 93 20 36 30 30 2c  39 31 38 2c 32 30 2c 38  |... 600,918,20,8|
00004480  30 0d 1a 86 0b e6 b3 28  38 29 2b 37 0d 1a 90 14  |0......(8)+7....|
00004490  c8 93 20 36 30 34 2c 39  32 36 2c 31 32 2c 36 34  |.. 604,926,12,64|
000044a0  0d 1a 9a 0b 61 78 25 2b  3d 34 38 0d 1a a4 05 cd  |....ax%+=48.....|
000044b0  0d 1a ae 36 e7 20 65 25  3d 33 20 80 20 58 25 3c  |...6. e%=3 . X%<|
000044c0  33 30 30 20 8c 20 64 25  3d 33 3a e6 37 3a c8 93  |300 . d%=3:.7:..|
000044d0  20 c8 90 20 36 30 30 2c  39 31 38 2c 32 30 2c 38  | .. 600,918,20,8|
000044e0  30 3a 65 25 3d 30 0d 1a  b8 06 e6 37 0d 1a c2 06  |0:e%=0.....7....|
000044f0  c8 96 0d 1a cc 18 c8 93  20 c8 90 36 34 34 2c 31  |........ ..644,1|
00004500  35 34 2c 31 39 36 2c 33  36 36 0d 1a d6 0a 62 25  |54,196,366....b%|
00004510  2b 3d 63 25 0d 1a e0 0a  61 25 2b 3d 62 25 0d 1a  |+=c%....a%+=b%..|
00004520  ea 0d 63 25 2d 3d b4 28  62 25 29 0d 1a f4 06 e6  |..c%-=.(b%).....|
00004530  30 0d 1a fe 17 ec 20 37  33 30 2c 35 32 30 3a ec  |0..... 730,520:.|
00004540  20 37 37 30 2c 35 32 30  0d 1b 08 38 f0 26 37 35  | 770,520...8.&75|
00004550  2c 37 37 30 2b 28 b5 b2  28 61 25 2f 33 36 2d 31  |,770+(..(a%/36-1|
00004560  36 38 29 2a 33 35 30 29  2c 35 32 30 2b 28 9b b2  |68)*350),520+(..|
00004570  28 61 25 2f 33 36 2d 31  36 38 29 2a 33 33 30 29  |(a%/36-168)*330)|
00004580  0d 1b 12 07 e6 31 34 0d  1b 1c 3c c8 8f 20 c8 90  |.....14...<.. ..|
00004590  20 37 35 30 2b 28 b5 b2  28 61 25 2f 33 36 2d 31  | 750+(..(a%/36-1|
000045a0  36 38 29 2a 33 35 30 29  2c 35 32 30 2b 28 9b b2  |68)*350),520+(..|
000045b0  28 61 25 2f 33 36 2d 31  36 38 29 2a 33 33 30 29  |(a%/36-168)*330)|
000045c0  2c 33 32 0d 1b 26 0f 6a  25 3d 28 6a 25 2b 31 29  |,32..&.j%=(j%+1)|
000045d0  83 36 0d 1b 30 17 e7 20  6a 25 3d 35 20 6b 25 3d  |.6..0.. j%=5 k%=|
000045e0  28 6b 25 2b 31 29 83 31  30 0d 1b 3a 3c e7 20 58  |(k%+1).10..:<. X|
000045f0  25 3e 36 34 30 20 80 20  59 25 3c 38 34 30 20 80  |%>640 . Y%<840 .|
00004600  20 58 25 3c 31 30 33 32  20 80 20 59 25 3e 35 39  | X%<1032 . Y%>59|
00004610  30 20 80 20 73 70 69 6b  65 73 25 28 6b 25 2c 30  |0 . spikes%(k%,0|
00004620  29 3d 30 20 8c 0d 1b 44  13 73 70 69 6b 65 73 25  |)=0 ...D.spikes%|
00004630  28 6b 25 2c 30 29 3d 31  0d 1b 4e 15 73 70 69 6b  |(k%,0)=1..N.spik|
00004640  65 73 25 28 6b 25 2c 31  29 3d 38 35 30 0d 1b 58  |es%(k%,1)=850..X|
00004650  15 73 70 69 6b 65 73 25  28 6b 25 2c 32 29 3d 38  |.spikes%(k%,2)=8|
00004660  34 30 0d 1b 62 1c 73 70  69 6b 65 73 25 28 6b 25  |40..b.spikes%(k%|
00004670  2c 33 29 3d 28 58 25 2d  38 35 30 29 2f 35 0d 1b  |,3)=(X%-850)/5..|
00004680  6c 1c 73 70 69 6b 65 73  25 28 6b 25 2c 34 29 3d  |l.spikes%(k%,4)=|
00004690  28 59 25 2d 38 34 30 29  2f 35 0d 1b 76 05 cd 0d  |(Y%-840)/5..v...|
000046a0  1b 80 0e e3 20 69 25 3d  30 20 b8 20 39 0d 1b 8a  |.... i%=0 . 9...|
000046b0  17 e7 20 73 70 69 6b 65  73 25 28 69 25 2c 30 29  |.. spikes%(i%,0)|
000046c0  3d 31 20 8c 0d 1b 94 06  e6 37 0d 1b 9e 27 c8 8f  |=1 ......7...'..|
000046d0  20 c8 90 20 73 70 69 6b  65 73 25 28 69 25 2c 31  | .. spikes%(i%,1|
000046e0  29 2c 73 70 69 6b 65 73  25 28 69 25 2c 32 29 2c  |),spikes%(i%,2),|
000046f0  38 0d 1b a8 69 e7 20 73  70 69 6b 65 73 25 28 69  |8...i. spikes%(i|
00004700  25 2c 31 29 2b 73 70 69  6b 65 73 25 28 69 25 2c  |%,1)+spikes%(i%,|
00004710  33 29 3c 36 35 32 20 84  20 73 70 69 6b 65 73 25  |3)<652 . spikes%|
00004720  28 69 25 2c 31 29 2b 73  70 69 6b 65 73 25 28 69  |(i%,1)+spikes%(i|
00004730  25 2c 33 29 3e 31 30 31  36 20 73 70 69 6b 65 73  |%,3)>1016 spikes|
00004740  25 28 69 25 2c 33 29 3d  2d 73 70 69 6b 65 73 25  |%(i%,3)=-spikes%|
00004750  28 69 25 2c 33 29 2f 34  2a 33 0d 1b b2 68 e7 20  |(i%,3)/4*3...h. |
00004760  73 70 69 6b 65 73 25 28  69 25 2c 32 29 2b 73 70  |spikes%(i%,2)+sp|
00004770  69 6b 65 73 25 28 69 25  2c 34 29 3c 35 39 36 20  |ikes%(i%,4)<596 |
00004780  84 20 73 70 69 6b 65 73  25 28 69 25 2c 32 29 2b  |. spikes%(i%,2)+|
00004790  73 70 69 6b 65 73 25 28  69 25 2c 34 29 3e 38 34  |spikes%(i%,4)>84|
000047a0  30 20 73 70 69 6b 65 73  25 28 69 25 2c 34 29 3d  |0 spikes%(i%,4)=|
000047b0  2d 73 70 69 6b 65 73 25  28 69 25 2c 34 29 2f 34  |-spikes%(i%,4)/4|
000047c0  2a 33 0d 1b bc 20 73 70  69 6b 65 73 25 28 69 25  |*3... spikes%(i%|
000047d0  2c 31 29 2b 3d 73 70 69  6b 65 73 25 28 69 25 2c  |,1)+=spikes%(i%,|
000047e0  33 29 0d 1b c6 20 73 70  69 6b 65 73 25 28 69 25  |3)... spikes%(i%|
000047f0  2c 32 29 2b 3d 73 70 69  6b 65 73 25 28 69 25 2c  |,2)+=spikes%(i%,|
00004800  34 29 0d 1b d0 07 e6 31  33 0d 1b da 27 c8 8f 20  |4).....13...'.. |
00004810  c8 90 20 73 70 69 6b 65  73 25 28 69 25 2c 31 29  |.. spikes%(i%,1)|
00004820  2c 73 70 69 6b 65 73 25  28 69 25 2c 32 29 2c 38  |,spikes%(i%,2),8|
00004830  0d 1b e4 84 e7 20 73 70  69 6b 65 73 25 28 69 25  |..... spikes%(i%|
00004840  2c 33 29 3e 2d 36 20 80  20 73 70 69 6b 65 73 25  |,3)>-6 . spikes%|
00004850  28 69 25 2c 33 29 3c 36  20 80 20 73 70 69 6b 65  |(i%,3)<6 . spike|
00004860  73 25 28 69 25 2c 34 29  3e 2d 36 20 80 20 73 70  |s%(i%,4)>-6 . sp|
00004870  69 6b 65 73 25 28 69 25  2c 34 29 3c 36 20 e6 37  |ikes%(i%,4)<6 .7|
00004880  3a c8 8f 20 c8 90 20 73  70 69 6b 65 73 25 28 69  |:.. .. spikes%(i|
00004890  25 2c 31 29 2c 73 70 69  6b 65 73 25 28 69 25 2c  |%,1),spikes%(i%,|
000048a0  32 29 2c 38 3a 73 70 69  6b 65 73 25 28 69 25 2c  |2),8:spikes%(i%,|
000048b0  30 29 3d 30 0d 1b ee 05  cd 0d 1b f8 05 ed 0d 1c  |0)=0............|
000048c0  02 06 c8 96 0d 1c 0c 0e  e3 20 66 25 3d 30 20 b8  |......... f%=0 .|
000048d0  20 35 0d 1c 16 1b e7 20  73 74 61 72 73 25 28 34  | 5..... stars%(4|
000048e0  2c 66 25 29 3d 31 20 e5  20 8d 74 44 5c 0d 1c 20  |,f%)=1 . .tD\.. |
000048f0  06 e6 37 0d 1c 2a 26 c8  8f 20 c8 90 20 73 74 61  |..7..*&.. .. sta|
00004900  72 73 25 28 30 2c 66 25  29 2c 73 74 61 72 73 25  |rs%(0,f%),stars%|
00004910  28 31 2c 66 25 29 2c 31  36 0d 1c 34 33 e7 20 73  |(1,f%),16..43. s|
00004920  74 61 72 73 25 28 32 2c  66 25 29 3c 32 30 20 73  |tars%(2,f%)<20 s|
00004930  74 61 72 73 25 28 31 2c  66 25 29 2b 3d b4 28 73  |tars%(1,f%)+=.(s|
00004940  74 61 72 73 25 28 33 2c  66 25 29 29 0d 1c 3e 2a  |tars%(3,f%))..>*|
00004950  73 74 61 72 73 25 28 33  2c 66 25 29 3d 28 28 73  |stars%(3,f%)=((s|
00004960  74 61 72 73 25 28 33 2c  66 25 29 2b 31 37 29 83  |tars%(3,f%)+17).|
00004970  33 33 29 2d 31 36 0d 1c  48 79 e7 20 58 25 2b 35  |33)-16..Hy. X%+5|
00004980  30 3e 73 74 61 72 73 25  28 30 2c 66 25 29 20 80  |0>stars%(0,f%) .|
00004990  20 58 25 2d 35 30 3c 73  74 61 72 73 25 28 30 2c  | X%-50<stars%(0,|
000049a0  66 25 29 20 80 20 59 25  2b 35 30 3e 73 74 61 72  |f%) . Y%+50>star|
000049b0  73 25 28 31 2c 66 25 29  20 80 20 59 25 2d 35 30  |s%(1,f%) . Y%-50|
000049c0  3c 73 74 61 72 73 25 28  31 2c 66 25 29 20 80 20  |<stars%(1,f%) . |
000049d0  73 74 61 72 73 25 28 32  2c 66 25 29 3d 30 20 8c  |stars%(2,f%)=0 .|
000049e0  20 73 74 61 72 73 25 28  32 2c 66 25 29 3d 31 0d  | stars%(2,f%)=1.|
000049f0  1c 52 24 e7 20 73 74 61  72 73 25 28 32 2c 66 25  |.R$. stars%(2,f%|
00004a00  29 3e 30 20 73 74 61 72  73 25 28 32 2c 66 25 29  |)>0 stars%(2,f%)|
00004a10  2b 3d 31 0d 1c 5c 35 e7  20 73 74 61 72 73 25 28  |+=1..\5. stars%(|
00004a20  32 2c 66 25 29 3d 30 20  e6 39 20 8b 20 e7 20 73  |2,f%)=0 .9 . . s|
00004a30  74 61 72 73 25 28 32 2c  66 25 29 3c 31 36 20 e6  |tars%(2,f%)<16 .|
00004a40  31 34 20 8b 20 e6 31 31  0d 1c 66 26 c8 8f 20 c8  |14 . .11..f&.. .|
00004a50  90 20 73 74 61 72 73 25  28 30 2c 66 25 29 2c 73  |. stars%(0,f%),s|
00004a60  74 61 72 73 25 28 31 2c  66 25 29 2c 31 36 0d 1c  |tars%(1,f%),16..|
00004a70  70 4b e7 20 73 74 61 72  73 25 28 32 2c 66 25 29  |pK. stars%(2,f%)|
00004a80  3e 32 30 20 80 20 73 74  61 72 73 25 28 32 2c 66  |>20 . stars%(2,f|
00004a90  25 29 3c 32 32 20 c8 8f  20 c8 90 20 73 74 61 72  |%)<22 .. .. star|
00004aa0  73 25 28 30 2c 66 25 29  2c 73 74 61 72 73 25 28  |s%(0,f%),stars%(|
00004ab0  31 2c 66 25 29 2c 31 30  30 0d 1c 7a 51 e7 20 73  |1,f%),100..zQ. s|
00004ac0  74 61 72 73 25 28 32 2c  66 25 29 3d 32 32 20 e6  |tars%(2,f%)=22 .|
00004ad0  37 3a c8 8f 20 c8 90 20  73 74 61 72 73 25 28 30  |7:.. .. stars%(0|
00004ae0  2c 66 25 29 2c 73 74 61  72 73 25 28 31 2c 66 25  |,f%),stars%(1,f%|
00004af0  29 2c 31 30 30 3a 73 74  61 72 73 25 28 34 2c 66  |),100:stars%(4,f|
00004b00  25 29 3d 31 3a 6c 25 2d  3d 31 0d 1c 84 05 ed 0d  |%)=1:l%-=1......|
00004b10  1c 8e 27 e7 20 6c 25 3d  30 20 e6 37 3a c8 93 20  |..'. l%=0 .7:.. |
00004b20  c8 90 20 31 31 36 34 2c  38 34 38 2c 39 38 2c 36  |.. 1164,848,98,6|
00004b30  30 3a 6c 25 3d 31 0d 1c  98 0a f2 6d 6f 75 73 65  |0:l%=1.....mouse|
00004b40  0d 1c a2 13 58 25 2b 3d  61 78 25 3a 59 25 2b 3d  |....X%+=ax%:Y%+=|
00004b50  61 79 25 0d 1c ac 0e c8  97 20 b8 20 58 25 2c 59  |ay%...... . X%,Y|
00004b60  25 0d 1c b6 25 e7 20 65  25 3d 31 20 80 20 64 25  |%...%. e%=1 . d%|
00004b70  3d 30 20 80 20 58 25 3c  39 32 34 20 8c 20 fd 31  |=0 . X%<924 . .1|
00004b80  3a e5 8d 54 6c 41 0d 1c  c0 25 e7 20 65 25 3d 32  |:..TlA...%. e%=2|
00004b90  20 80 20 64 25 3d 31 20  80 20 58 25 3c 36 32 34  | . d%=1 . X%<624|
00004ba0  20 8c 20 fd 31 3a e5 8d  54 62 41 0d 1c ca 25 e7  | . .1:..TbA...%.|
00004bb0  20 65 25 3d 33 20 80 20  64 25 3d 32 20 80 20 58  | e%=3 . d%=2 . X|
00004bc0  25 3e 35 39 36 20 8c 20  fd 31 3a e5 8d 54 58 41  |%>596 . .1:..TXA|
00004bd0  0d 1c d4 2e fd 20 b0 58  25 2b 34 2c 59 25 2d 34  |..... .X%+4,Y%-4|
00004be0  29 3c 3e 37 20 84 20 58  25 3c 36 30 20 80 20 59  |)<>7 . X%<60 . Y|
00004bf0  25 3c 39 34 34 20 80 20  59 25 3e 38 38 30 0d 1c  |%<944 . Y%>880..|
00004c00  de 30 e7 20 58 25 3c 36  30 20 80 20 59 25 3c 39  |.0. X%<60 . Y%<9|
00004c10  34 34 20 80 20 59 25 3e  38 38 30 20 fd 31 20 8b  |44 . Y%>880 .1 .|
00004c20  20 f2 65 78 70 6c 6f 73  69 6f 6e 3a fd 30 0d 1c  | .explosion:.0..|
00004c30  e8 19 e3 20 61 63 72 6f  73 73 3d 58 25 20 b8 20  |... across=X% . |
00004c40  2d 32 30 20 88 2d 31 0d  1c f2 27 fb 31 2c b3 28  |-20 .-1...'.1,.(|
00004c50  31 32 38 29 2b 31 32 38  2c b3 28 31 32 38 29 2b  |128)+128,.(128)+|
00004c60  31 32 38 2c b3 28 31 32  38 29 2b 31 32 38 0d 1c  |128,.(128)+128..|
00004c70  fc 17 c8 97 20 c8 93 20  61 63 72 6f 73 73 2c 59  |.... .. across,Y|
00004c80  25 2c 30 2c 30 0d 1d 06  06 c8 96 0d 1d 10 05 ed  |%,0,0...........|
00004c90  0d 1d 1a 05 db 0d 1d 24  19 c8 97 20 c8 93 20 32  |.......$... .. 2|
00004ca0  30 30 2c 32 30 30 2c 38  38 30 2c 37 32 34 0d 1d  |00,200,880,724..|
00004cb0  2e 18 f1 8a 33 35 2c 31  35 29 22 57 65 6c 6c 20  |....35,15)"Well |
00004cc0  44 6f 6e 65 2e 22 0d 1d  38 2e f1 8a 32 34 2c 31  |Done."..8...24,1|
00004cd0  37 29 22 59 6f 75 20 68  61 76 65 20 43 6f 6d 70  |7)"You have Comp|
00004ce0  6c 65 74 65 64 20 61 6c  6c 20 35 20 6c 65 76 65  |leted all 5 leve|
00004cf0  6c 73 2e 22 0d 1d 42 28  f1 8a 32 37 2c 31 39 29  |ls."..B(..27,19)|
00004d00  22 44 6f 20 79 6f 75 20  77 61 6e 74 20 74 6f 20  |"Do you want to |
00004d10  70 6c 61 79 20 61 67 61  69 6e 3f 22 0d 1d 4c 17  |play again?"..L.|
00004d20  c8 99 22 4f 53 5f 43 6f  6e 66 69 72 6d 22 20 b8  |.."OS_Confirm" .|
00004d30  20 6e 25 0d 1d 56 05 e1  0d 1d 60 05 3a 0d 1d 6a  | n%..V....`.:..j|
00004d40  0d dd f2 50 61 6c 65 74  74 65 0d 1d 74 13 fb 20  |...Palette..t.. |
00004d50  30 2c 32 34 30 2c 32 34  30 2c 32 34 30 0d 1d 7e  |0,240,240,240..~|
00004d60  0d fb 20 31 2c 30 2c 30  2c 30 0d 1d 88 0d fb 20  |.. 1,0,0,0..... |
00004d70  32 2c 30 2c 30 2c 30 0d  1d 92 0d fb 20 33 2c 30  |2,0,0,0..... 3,0|
00004d80  2c 30 2c 30 0d 1d 9c 0d  fb 20 34 2c 30 2c 30 2c  |,0,0..... 4,0,0,|
00004d90  30 0d 1d a6 0d fb 20 35  2c 30 2c 30 2c 30 0d 1d  |0..... 5,0,0,0..|
00004da0  b0 0d fb 20 36 2c 30 2c  30 2c 30 0d 1d ba 0d fb  |... 6,0,0,0.....|
00004db0  20 37 2c 30 2c 30 2c 30  0d 1d c4 10 fb 20 38 2c  | 7,0,0,0..... 8,|
00004dc0  30 2c 36 34 2c 31 34 34  0d 1d ce 11 fb 20 39 2c  |0,64,144..... 9,|
00004dd0  32 32 34 2c 32 32 34 2c  30 0d 1d d8 10 fb 20 31  |224,224,0..... 1|
00004de0  30 2c 30 2c 32 34 30 2c  30 0d 1d e2 10 fb 20 31  |0,0,240,0..... 1|
00004df0  31 2c 32 30 38 2c 30 2c  30 0d 1d ec 14 fb 20 31  |1,208,0,0..... 1|
00004e00  32 2c 32 32 34 2c 32 32  34 2c 31 37 36 0d 1d f6  |2,224,224,176...|
00004e10  13 fb 20 31 33 2c 32 32  34 2c 39 36 2c 32 30 38  |.. 13,224,96,208|
00004e20  0d 1e 00 12 fb 20 31 34  2c 32 34 30 2c 31 32 38  |..... 14,240,128|
00004e30  2c 30 0d 1e 0a 12 fb 20  31 35 2c 30 2c 31 37 36  |,0..... 15,0,176|
00004e40  2c 32 34 30 0d 1e 14 0e  2a 50 4f 49 4e 54 45 52  |,240....*POINTER|
00004e50  20 31 0d 1e 1e 05 e1 0d  ff                       | 1.......|
00004e59

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .