Home » Archimedes archive » Archimedes World » AW-1992-08.adf » AWaug92 » !AWaug92/Goodies/DreamQuest/!Dream/!RunImage
!AWaug92/Goodies/DreamQuest/!Dream/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1992-08.adf » AWaug92 |
| Filename: | !AWaug92/Goodies/DreamQuest/!Dream/!RunImage |
| Read OK: | ✔ |
| File size: | 3B8B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > <Dream$dir>.!RunImage
20REM by Mike Goldberg March-May 1992
30ON ERROR GOTO 7300
40MODE13
50OFF
60
70PROCinit
80PROCdims
90PROCinit2
100PROCsounds
110PROCinittable
120PROCgrab
130PROCloadem
140
150REPEAT
160PROCsprites
170PROCscreen
180REPEAT
190REPEAT
200Z%=3-Z%:SYS6,112,Z%
210B%-=4
220CASE scr% OF
230WHEN 0:SYS O$,256+34,g%,g$,A%,B%,0
240WHEN 1:VDU26:SYS O$,&122,g%,g$,A%,B%,0:PROCfixit
250ENDCASE
260IFB%=0PROCnext
270CASE Q% OF
280WHEN 0:PROCkeys:SYS O$,&222,S%,Y%(D%,wy%),X%,Y%,8:wz%=(wz%+1)MOD3:IFwz%=0wy%=1-wy%
290WHEN 1:PROCkillyou1
300WHEN 2:PROCkillyou2
310WHEN 3:PROCkeys:SYS O$,&222,S%,Y%(D%,wy%),X%,Y%,12:wz%=(wz%+1)MOD3:IFwz%=0wy%=1-wy%
320iv%+=1:IFiv%>30Q%=0
330ENDCASE
340PROCmissile
350PROCbad
360PRINTTAB(23-ln%,2);SC%
370SYS6,113,Z%
380UNTILli%=0ORO%=swap%ORlev%=end%ORQ%=4
390IFO%=swap%PROCswap:O%=0
400UNTILli%=0ORlev%=end%ORQ%=4
410IFlev%=end%PROCoutro:PROChiscore
420IFQ%=4PROCgameover:PROChiscore
430COLOUR63:COLOUR149
440VDU26:PRINTTAB(9,24)" Press SPACE bar "
450REPEATUNTILGET=32:CLS
460PROCinit
470PROCinit2
480UNTIL0
490END
500
510DEFPROCinit
520O%=0
530lev%=0
540swap%=34
550end%=3
560bonus%=0
570wp%=0
580wm%=0
590nm%=3
600ns%=37-1
610 n%=5-1
620 c%=6-1
630 m%=4-1
640 y%=4-1
650scr%=0
660wy%=0
670wz%=0:wx%=0
680wt%=0
690wyx%=0
700exp%=5
710O$="OS_SpriteOp"
720col%=21
730tint%=3*64
740Z%=1
750X%=576
760Y%=256
770A%=128
780B%=128
790D%=0
800M%=24
810N%=M%
820nbx%=6-1
830F%=0
840u%=128
850v%=0
860z0%=0:z1%=0:z2%=0
870z3%=0:z4%=0
880w0%=0:w1%=0:w2%=0
890w3%=0:d%=2
900o%=0:i%=0
910fi%=0:wh%=0
920Q%=3
930rs%=16
940rc%=0
950rr%=32
960f%=8
970fl%=1152
980fs%=0
990wB%=0
1000SC%=0
1010t%=0
1020hb%=0:hr%=16
1030k2%=0
1040iv%=0
1050b1%=0
1060li%=3
1070lx%=0:ly%=128
1080fc%=0
1090ft%=96
1100fol%=0
1110q%=8
1120ENDPROC
1130DEFPROCdims
1140DIMS%(ns%),Y%(y%,1),M%(nm%),Ma%(nm%),Mb%(nm%),B0%(1),B1%(1),b1%(1),B2%(3),b2%(3),B3%(3,1),B3a%(3,1),B3b%(3,1),B4%(3),B0a%(1),B1a%(1),b1a%(1),B2a%(3),b2a%(3),B0b%(1),B1b%(1),b1b%(1),B2b%(3),b2b%(3)
1150DIMHS%(7),HS$(7),U%(n%),V%(n%),s%(n%),T%(2),C%(c%),SC%(n%),b%(n%),E%(exp%),P%(m%),Q%(m%),MD%(m%),p%(m%),q%(m%),XB%(nbx%)
1160DIMpour%(3)
1170ENDPROC
1180DEFPROCinit2
1190b%()=0:U%(0)=0:V%(0)=512:U%(1)=640:V%(1)=896:U%(4)=RND(8)*128:V%(4)=896:U%(2)=RND(6)*128+128:V%(2)=896:U%(3)=RND(8)*128:V%(3)=896:s%()=0:P%()=0:Q%()=0:MD%()=-1:p%()=0:q%()=0
1200SC%()=500
1210SC%(0)=100:SC%(1)=200:SC%(2)=500:SC%(3)=1000:SC%(4)=0
1220ENDPROC
1230DEFPROCkeys
1240IFINKEY-98D%=3:X%-=M%:IFX%<128X%+=M%
1250IFINKEY-67D%=1:X%+=M%:IFX%>1024X%-=M%
1260IFINKEY-80D%=0:Y%+=N%:IFY%>768Y%-=N%
1270IFINKEY-105D%=2:Y%-=N%:IFY%<128Y%+=N%
1280IFINKEY-74PROCfire
1290IFINKEY-56THEN
1300SYS6,112,3-Z%:REPEAT:PROCpause:UNTILINKEY-55ORINKEY-74ORINKEY-99:SYS6,112,3-Z%
1310ENDIF
1320ENDPROC
1330DEFPROCpause
1340SYS O$,&222,S%,pour%(wp%),X%,Y%,0
1350wp%=(wp%+1)MOD4
1360TIME=0:REPEATUNTILTIME>3
1370ENDPROC
1380
1390DEFPROCscreen
1400COLOURcol%+128:TINT1,tint%
1410VDU24,128;128;1148;892;
1420SYS6,112,2:CLS:PROCscore(0):PROClives
1430SYS6,112,1:CLS:PROCscore(0):PROClives
1440SYS6,113,2
1450RESTORE5240
1460FORJ%=128TO768STEP128
1470FORI%=128TO1024STEP128
1480READW%
1490SYS O$,&222,S%,S%(W%),I%,J%,0
1500NEXT
1510NEXT
1520PROCnext
1530SYS6,113,1
1540TIME=0:REPEATUNTILTIME>30
1550PROCintro
1560ENDPROC
1570
1580DEFPROCscore(sc%)
1590IFsc%=0COLOUR11:PRINTTAB(17,1)"SCORE"TAB(16,2)"0000000"
1600SC%+=sc%:S$=STR$(SC%):ln%=LENS$
1610IFSC%>=250000ANDbonus%=0li%+=1:SOUND7,-15,-120,30:FORI%=1TO2:PROClives:Z%=3-Z%:SYS6,112,Z%:NEXT:bonus%=1
1620ENDPROC
1630
1640DEFPROCloadem
1650s$="<Dream$dir>.DreamFILE5"
1660file%=OPENIN(s$)
1670L%=EXT#file%+64
1680CLOSE#file%
1690DIM S% L%
1700S%!0=L%
1710SYS "OS_SpriteOp",256+9,S%
1720SYS "OS_SpriteOp",256+10,S%,s$
1730ENDPROC
1740DEFPROCsprites
1750FORI%=0TOns%
1760PROCsetSprite("SQUARE"+STR$I%,S%(I%),a%,b%)
1770NEXT
1780FORI%=0TO1
1790PROCsetSprite("MANHOLE"+STR$I%,B0%(I%),a%,b%)
1800PROCsetSprite("ICON"+STR$I%,B0a%(I%),a%,b%)
1810PROCsetSprite("QUEEN"+STR$I%,B0b%(I%),a%,b%)
1820NEXT
1830FORI%=0TO1
1840PROCsetSprite("JCB"+STR$(I%),B1%(I%),a%,b%)
1850PROCsetSprite("JCB"+STR$(I%+2),b1%(I%),a%,b%)
1860PROCsetSprite("ICON"+STR$(I%+2),B1a%(I%),a%,b%)
1870PROCsetSprite("DOUBLE"+STR$(I%+2),b1a%(I%),a%,b%)
1880PROCsetSprite("BAT"+STR$(I%),B1b%(I%),a%,b%):PROCsetSprite("BAT"+STR$(I%+2),b1b%(I%),a%,b%)
1890NEXT
1900FORI%=0TO3
1910PROCsetSprite("RAT"+STR$(I%),B2%(I%),a%,b%)
1920PROCsetSprite("ICON"+STR$(I%+12),b2%(I%),a%,b%)
1930PROCsetSprite("PAINT"+STR$(I%),b2a%(I%),a%,b%)
1940PROCsetSprite("ICON"+STR$(I%+4),B2a%(I%),a%,b%)
1950PROCsetSprite("DOOR"+STR$(I%),B2b%(I%),a%,b%)
1960PROCsetSprite("MAN"+STR$(I%),b2b%(I%),a%,b%)
1970NEXT
1980FORI%=0TO3
1990PROCsetSprite("ICON"+STR$(I%)+"A",B3%(I%,0),a%,b%)
2000PROCsetSprite("ICON"+STR$(I%)+"B",B3%(I%,1),a%,b%)
2010PROCsetSprite("ARTIST"+STR$(I%)+"A",B3a%(I%,0),a%,b%)
2020PROCsetSprite("ARTIST"+STR$(I%)+"B",B3a%(I%,1),a%,b%)
2030PROCsetSprite("PUPPET"+STR$(I%)+"A",B3b%(I%,0),a%,b%)
2040PROCsetSprite("PUPPET"+STR$(I%)+"B",B3b%(I%,1),a%,b%)
2050NEXT
2060FORI%=0TO3
2070PROCsetSprite("ICON"+STR$(I%+8),B4%(I%),a%,b%)
2080NEXT
2090FORI%=0TOy%
2100PROCsetSprite("YOU"+STR$I%+"A",Y%(I%,0),a%,b%)
2110PROCsetSprite("YOU"+STR$I%+"B",Y%(I%,1),a%,b%)
2120NEXT
2130FORI%=0TOc%
2140PROCsetSprite("CRATER"+STR$I%,C%(I%),a%,b%)
2150NEXT
2160FORI%=0TO3
2170PROCsetSprite("POUR"+STR$I%,pour%(I%),a%,b%)
2180NEXT
2190FORI%=0TOnm%
2200PROCsetSprite("MISSILE"+STR$I%,M%(I%),a%,b%)
2210PROCsetSprite("CHEESE"+STR$I%,Ma%(I%),a%,b%)
2220PROCsetSprite("CHOC"+STR$I%,Mb%(I%),a%,b%)
2230NEXT
2240FORI%=0TOexp%
2250PROCsetSprite("EXPLODE"+STR$I%,E%(I%),a%,b%)
2260NEXT
2270FORI%=0TOnbx%
2280PROCsetSprite("XBLIMP"+STR$I%,XB%(I%),a%,b%)
2290NEXT
2300FORI%=0TO2
2310PROCsetSprite("TREASURE"+STR$I%,T%(I%),a%,b%)
2320NEXT
2330PROCsetSprite("LIVES",lives%,a%,b%)
2340PROCsetSprite("GAMEOVER",gameover%,a%,b%)
2350ENDPROC
2360DEFPROCsetSprite(s$,RETURN A%,RETURN W%,RETURN H%)
2370SYS "OS_SpriteOp",256+24,S%,s$ TO ,,A%
2380SYS "OS_SpriteOp",256+40,S%,s$ TO ,,,W%,H%
2390W%=W%*4:H%=H%*4
2400ENDPROC
2410
2420DEFPROCgrab
2430g$="grab"
2440DIM g% 64000
2450g%!0=64000
2460g%!8=16
2470SYS "OS_SpriteOp",256+9,g%
2480ENDPROC
2490
2500DEFPROCnext
2510B%=128
2520VDU26
2530FORI%=128TO1024STEP128
2540READW%
2550SYS O$,&222,S%,S%(W%),I%,896,0
2560NEXT
2570SYS O$,256+16,g%,g$,0,128,128,1148,1020
2580VDU28,0,3,39,0
2590COLOURcol%+128:TINT1,tint%:CLS:PROCscore(0)
2600VDU24,128;128;1148;892;
2610O%+=1
2620ENDPROC
2630
2640DEFPROCfixit
2650IFa%>=128ANDa%<1020:SYS O$,&222,S%,C%(3),a%,b%,8
2660SYS O$,&110,g%,g$,0,A%,B%,1148,1020-(128-B%)
2670GCOLcol%:TINT2,tint%
2680RECTANGLE FILL 128,896,1020,128:PROCscore(0)
2690RECTANGLE FILL 128,0,1020,124
2700VDU24,128;128;1148;892;
2710scr%=0
2720ENDPROC
2730
2740DEFPROCbad
2750FORI%=0TOn%
2760CASE s%(I%) OF
2770WHEN 0:PROCselectbaddy(I%)
2780WHEN 1:PROCmovebaddy(I%)
2790WHEN 2:PROCkillbaddy(I%)
2800WHEN 3:PROCrestorebadxy(I%)
2810WHEN 5:PROCexBLIMP
2820ENDCASE
2830NEXT
2840ENDPROC
2850
2860DEFPROCselectbaddy(bad%)
2870CASE bad% OF
2880WHEN 0:IFRND(50)=1s%(0)=1
2890WHEN 1:s%(1)=1
2900WHEN 2:IFs%(4)=0ANDB%=128s%(2)=1
2910WHEN 3:s%(3)=1
2920WHEN 4:IFs%(2)=0ANDRND(32)=1s%(4)=1
2930ENDCASE
2940ENDPROC
2950DEFPROCmovebaddy(bad%)
2960CASE bad% OF
2970WHEN 0:PROCfollow
2980WHEN 1:PROCdowner
2990WHEN 2:PROCsitter
3000WHEN 3:PROCrover
3010WHEN 4:PROCblimp
3020ENDCASE
3030ENDPROC
3040
3050DEFPROCfollow
3060CASE fol% OF
3070WHEN 0:fc%+=1
3080 IFV%(0)-Y%<>0 THEN
3090 IFV%(0)>Y%V%(0)-=q%
3100 IFV%(0)<Y%V%(0)+=(q%/2)
3110 ENDIF
3120 IFU%(0)-X%<>0 THEN
3130 IFU%(0)>X%U%(0)-=q%
3140 IFU%(0)<X%U%(0)+=q%
3150 ENDIF
3160WHEN 1:U%(0)+=f%*4
3170ENDCASE
3180IFQ%=1fol%=1:fc%=0
3190IFfc%>=ft% THEN
3200IFf%=-8:IFU%(0)<X%fol%=1:fc%=0
3210IFf%= 8:IFU%(0)>X%fol%=1:fc%=0
3220ENDIF
3230SYS O$,&222,S%,B0%(z0%),U%(0),V%(0),8
3240IFU%(0)<0ORU%(0)>1152s%(0)=3
3250IFw0%=0z0%=1-z0%
3260w0%=(w0%+1)MOD4
3270IFFNcol(0,64,128)=1ANDQ%=0SOUND4,-15,-150,15:PROCkillyou1
3280ENDPROC
3290
3300DEFPROCdowner
3310V%(1)-=24
3320U%(1)+=b1%
3330SYS O$,&222,S%,B1%(z1%),U%(1),V%(1),8
3340IFV%(1)<=0s%(1)=3
3350IFw1%=0z1%=1-z1%
3360w1%=(w1%+1)MOD4
3370CASE wB% OF
3380WHEN 0:IFFNcol(1,96,128)=1ANDQ%=0SOUND4,-15,-140,15:PROCkillyou1
3390WHEN 1:U%(1)+=128:IFFNcol(1,96,128)=1ANDQ%=0SOUND4,-15,-130,15:PROCkillyou1
3400U%(1)-=128
3410ENDCASE
3420ENDPROC
3430
3440DEFPROCsitter
3450V%(2)-=4
3460SYS O$,&222,S%,B2%(z2%),U%(2),V%(2),8
3470IFV%(2)=0s%(2)=3
3480w2%=(w2%+1)MOD2:IFw2%=0z2%=(z2%+1)MOD4
3490IFk2%=1:IFFNcol(2,96,128)=1ANDQ%=0PROCkillyou2
3500ENDPROC
3510
3520DEFPROCrover
3530SYS O$,&222,S%,B3%(d%,z3%),U%(3),V%(3),8
3540
3550CASE d% OF
3560WHEN 0:V%(3)+=rs%:IFV%(3)>892s%(3)=3
3570WHEN 1:U%(3)+=rs%:IFU%(3)>1148s%(3)=3
3580WHEN 2:V%(3)-=rs%:IFV%(3)<0s%(3)=3
3590WHEN 3:U%(3)-=rs%:IFU%(3)<0s%(3)=3
3600ENDCASE
3610
3620rc%+=1
3630IFrc%=rr%d%=RND(4)-1:rc%=0:rr%=RND(8)+8
3640w3%=(w3%+1)MOD2:IFw3%=0z3%=1-z3%
3650IFFNcol(3,96,96)=1ANDQ%=0PROCkillyou2
3660ENDPROC
3670
3680DEFPROCblimp
3690CASE t% OF
3700WHEN 0:U%(4)+=(RND(2)-1)*8-4:V%(4)-=8:SYS O$,&222,S%,B4%(z4%),U%(4),V%(4),8:z4%=(z4%+1)MOD4:IFV%(4)<=-128s%(4)=3
3710IFFNcol(4,96,96)=1ANDQ%=0PROCkillyou2
3720WHEN 1:V%(4)-=4:SYS O$,&222,S%,T%(wt%),U%(4),V%(4),8
3730IFV%(4)<=-128s%(4)=3:t%=2
3740IFFNcol(4,64,64)=1ANDQ%=0VDU7:SOUND6,-14,-30,20:PROCscore(50000):t%=2:s%(4)=3
3750ENDCASE
3760ENDPROC
3770DEFPROCfire
3780F%=-1
3790FORI%=0TOm%
3800IFMD%(I%)=-1F%=I%
3810NEXT
3820IFF%=-1ENDPROC
3830SOUND1,-10,0,1
3840CASE D% OF
3850WHEN 0:P%(F%)=X%+40:Q%(F%)=Y%+128-u%:p%(F%)=v%:q%(F%)=u%
3860WHEN 1:P%(F%)=X%+128-u%:Q%(F%)=Y%+40:p%(F%)=u%:q%(F%)=v%
3870WHEN 2:P%(F%)=X%+40:Q%(F%)=Y%-32+u%:p%(F%)=v%:q%(F%)=-u%
3880WHEN 3:P%(F%)=X%-32+u%:Q%(F%)=Y%+40:p%(F%)=-u%:q%(F%)=v%
3890ENDCASE
3900MD%(F%)=D%
3910ENDPROC
3920DEFPROCmissile
3930FORJ%=0TOm%
3940IFMD%(J%)>-1PROCmissmove(J%)
3950NEXT
3960wm%=(wm%+1)MOD4
3970ENDPROC
3980
3990DEFPROCmissmove(J%)
4000P%(J%)+=p%(J%):Q%(J%)+=q%(J%)
4010SYS O$,&222,S%,M%(wm%),P%(J%),Q%(J%),8
4020
4030CASE MD%(J%) OF
4040WHEN 0:IFQ%(J%)>896MD%(J%)=-1
4050WHEN 2:IFQ%(J%)<128MD%(J%)=-1
4060WHEN 1:IFP%(J%)>1152MD%(J%)=-1
4070WHEN 3:IFP%(J%)<128MD%(J%)=-1
4080ENDCASE
4090IFMD%(J%)>-1:IFFNmis(J%,32,32)=1MD%(J%)=-1:PROCscore(SC%(wh%))
4100ENDPROC
4110DEFFNcol(j%,k%,l%)
4120h%=0
4130IFQ%=3:=h%
4140IFU%(j%)-X%>-k%ANDU%(j%)-X%<k%ANDV%(j%)-Y%>-l%ANDV%(j%)-Y%<l%h%=1
4150=h%
4160
4170DEFFNmis(j%,k%,l%)
4180h%=0
4190FORI%=1TOn%
4200IFs%(I%)=1:IFP%(J%)-U%(I%)>-k%ANDP%(J%)-U%(I%)<(160-k%)ANDQ%(J%)-V%(I%)>-l%ANDQ%(J%)-V%(I%)<(128-l%)h%=1:s%(I%)=2:wh%=I%
4210NEXT
4220IFk2%=1ANDs%(2)=2s%(2)=1:=0
4230=h%
4240
4250DEFPROCkillbaddy(bad%)
4260IFbad%=4hb%+=1:PROCblimp
4270SYS O$,&222,S%,C%(b%(bad%)),U%(I%),V%(I%),8
4280SOUND2,-10,8,10
4290b%(bad%)+=1
4300a%=-128:b%=-128
4310IFb%(bad%)=3b%(bad%)=0:s%(bad%)=3:a%=U%(bad%):b%=V%(bad%):IFbad%<>4scr%=1
4320IFbad%=4THEN
4330IFhb%<hr%s%(4)=1
4340IFhb%=hr%s%(4)=5
4350ENDIF
4360ENDPROC
4370DEFPROCrestorebadxy(bad%)
4380s%(bad%)=0
4390CASE bad% OF
4400WHEN 0:V%(0)=RND(192)*4+128:fol%=0:fc%=0
4410 CASE f% OF
4420 WHEN 8:f%=-8:fl%=0:fs%=1152:U%(0)=fs%
4430 WHEN -8:f%=8:fl%=1152:fs%=0:U%(0)=fs%
4440 ENDCASE
4450WHEN 1:U%(1)=RND(224)*4+128:V%(1)=896:SWAPB1%(),b1%():wB%=1-wB%
4460 b1%=(RND(3)-1)*16-16
4470 SYS O$,&22F,S%,B1%(0):SYS O$,&22F,S%,B1%(1)
4480WHEN 2:U%(2)=RND(6)*128+128:V%(2)=896
4490 SWAPB2%(),b2%():k2%=1-k2%
4500WHEN 3:rc%=0:rr%=32:R%=RND(4)
4510 CASE R% OF
4520 WHEN 1:d%=0:V%(3)=0:U%(3)=RND(256)*4+128
4530 WHEN 2:d%=1:U%(3)=0:V%(3)=RND(192)*4+128
4540 WHEN 3:d%=2:V%(3)=896:U%(3)=RND(256)*4+128
4550 WHEN 4:d%=3:U%(3)=1148:V%(3)=RND(192)*4+128
4560 ENDCASE
4570WHEN 4:hb%=0:U%(4)=RND(224)*4+128:V%(4)=896:t%=0
4580ENDCASE
4590ENDPROC
4600
4610DEFPROCexBLIMP
4620SOUND3,-15,30,25
4630SYS O$,&222,S%,XB%(wx%),U%(4),V%(4),8
4640wx%+=1
4650IFwx%=nbx%+1wx%=0:s%(4)=1:t%=1
4660ENDPROC
4670
4680DEFPROCkillyou1
4690Q%=1
4700o%=(o%+1)MOD4
4710SYS O$,&222,S%,Y%(o%,0),X%,Y%,8
4720i%+=1:IFi%>24Q%=0:o%=0:i%=0
4730ENDPROC
4740X%+=(RND(2)-1)*32-16
4750Y%+=(RND(2)-1)*32-16
4760ENDPROC
4770
4780DEFPROCkillyou2
4790Q%=2:SOUND5,-13,30,25
4800CASE wyx% OF
4810WHEN0,1,2,3,4:SYS O$,&222,S%,E%(wyx%),X%,Y%,8:wyx%+=1:TIME=0:REPEATUNTILTIME>3
4820WHEN5:SYS O$,&222,S%,E%(wyx%),X%-48,Y%-48,8:wyx%+=1
4830WHEN6:Q%=3:iv%=0:D%=0:wy%=0:KX%=X%:KY%=Y%:X%=576:Y%=128:wyx%=0:li%-=1:IFli%>0TIME=0:REPEATUNTILTIME>150:FORI%=1TO2:PROClives:Z%=3-Z%:SYS6,112,Z%:NEXT
4840IFli%=0Q%=4
4850ENDCASE
4860ENDPROC
4870
4880DEFPROClives
4890GCOLcol%+128:TINT3,tint%
4900VDU24,0;128;124;892;:CLG
4910IFli%<=1VDU24,128;128;1148;892;:ENDPROC
4920FORT%=0TOli%-2
4930SYS O$,&222,S%,lives%,lx%,ly%+(T%*96),8
4940NEXT
4950VDU24,128;128;1148;892;
4960ENDPROC
4970
4980DEFPROCswap
4990CASE lev% OF
5000WHEN 0:REMORSURREAL
5010SWAPB0%(),B0a%()
5020IFwB%=1SWAPB1%(),b1%():wB%=0
5030SWAPB1%(),B1a%():SWAPb1%(),b1a%()
5040IFk2%=1SWAPB2%(),b2%():k2%=0
5050SWAPB2%(),B2a%():SWAPb2%(),b2a%()
5060SWAPB3%(),B3a%()
5070SWAPM%(),Ma%()
5080SWAPC%(3),C%(4)
5090
5100WHEN 1:REM"�CHESS
5110SWAPB0%(),B0b%()
5120IFwB%=1SWAPB1%(),b1%():wB%=0
5130SWAPB1%(),B1b%():SWAPb1%(),b1b%()
5140SWAPM%(),Mb%()
5150IFk2%=1SWAPB2%(),b2%():k2%=0
5160SWAPB2%(),B2b%():SWAPb2%(),b2b%()
5170SWAPB3%(),B3b%()
5180SWAPC%(3),C%(5)
5190ENDCASE
5200wt%+=1
5210lev%+=1
5220ENDPROC
5230REM"�STONE SCREEN
5240DATA16,16,16,16,10,16,16,16
5250DATA16,16,16,32,33,16,16,16
5260DATA16,16,16,16,16,16,9,16
5270DATA16,16,16,16,16,16,16,16
5280DATA12,16,15,16,16,16,16,16
5290DATA16,16,15,9,10,10,16,16
5300DATA10,9,8,8,16,16,15,14
5310DATA11,14,15,10,12,8,16,10
5320DATA11,12,11,12,13,13,13,14
5330DATA8,12,14,13,9,10,10,9
5340DATA10,14,8,9,11,10,14,14
5350DATA9,12,12,12,8,11,9,15
5360DATA11,11,8,13,14,9,12,15
5370DATA8,9,8,11,15,12,14,12
5380DATA8,8,11,9,10,15,12,13
5390DATA9,9,14,12,13,13,10,15
5400DATA15,14,10,14,11,9,10,8
5410DATA11,10,15,15,15,15,10,10
5420DATA8,14,15,5,5,15,8,12
5430DATA8,12,15,5,6,15,13,13
5440DATA14,11,15,15,15,15,9,8
5450DATA11,11,9,10,9,13,13,13
5460DATA10,10,9,15,14,25,13,8
5470DATA13,13,8,11,11,9,15,14
5480DATA11,12,14,13,13,11,14,12
5490DATA11,12,12,13,14,11,13,12
5500DATA13,13,14,11,12,12,11,14
5510DATA14,13,12,26,11,12,13,12
5520DATA8,11,9,13,9,14,13,12
5530DATA8,11,9,9,9,13,8,8
5540DATA15,27,13,12,11,10,9,8
5550DATA8,9,10,11,12,13,15,15
5560DATA10,10,10,10,10,9,15,8
5570DATA11,14,11,14,11,13,10,10
5580DATA5,10,5,10,5,10,5,10
5590REM"�SURREAL SCREEN
5600DATA5,5,5,5,5,7,5,5
5610DATA5,5,5,5,5,5,5,5
5620DATA5,5,5,5,5,5,5,5
5630DATA5,5,5,6,5,5,5,5
5640DATA5,6,5,5,5,5,6,5
5650DATA5,6,5,5,1,5,6,1
5660DATA1,5,5,5,5,1,5,1
5670DATA6,5,5,5,6,6,25,5
5680DATA0,0,0,0,25,0,25,25
5690DATA0,29,0,1,0,25,25,25
5700DATA0,1,4,1,0,5,1,25
5710DATA0,2,4,2,24,0,1,0
5720DATA0,0,0,0,2,2,0,0
5730DATA0,2,2,0,0,0,0,0
5740DATA25,25,2,25,25,25,25,0
5750DATA25,0,25,25,2,25,25,25
5760DATA2,25,25,0,25,0,25,25
5770DATA2,25,25,0,25,25,25,2
5780DATA5,1,3,3,3,4,0,0
5790DATA5,2,3,1,3,4,1,1
5800DATA5,4,1,1,1,1,1,1
5810DATA5,5,1,5,5,5,5,5
5820DATA4,5,4,24,5,4,5,4
5830DATA2,2,2,2,2,2,2,2
5840DATA2,2,28,2,2,2,28,2
5850DATA28,2,28,2,28,28,28,2
5860DATA28,2,2,2,2,28,2,2
5870DATA2,2,2,2,28,2,2,2
5880DATA2,28,28,28,2,28,28,2
5890DATA2,2,28,2,2,2,28,28
5900DATA2,2,2,2,2,2,2,2
5910DATA0,0,0,0,0,0,0,0
5920DATA0,0,0,1,0,2,2,0
5930DATA0,16,7,16,2,16,2,16
5940REM"�CHESS SCREEN
5950DATA16,17,16,17,16,17,16,17
5960DATA17,16,17,16,17,16,17,16
5970DATA16,17,16,17,16,17,16,17
5980DATA17,16,17,18,17,16,17,16
5990DATA16,17,16,17,16,17,16,17
6000DATA17,16,17,16,30,16,21,16
6010DATA22,17,18,17,16,17,16,17
6020DATA17,16,17,16,23,16,17,16
6030DATA16,17,16,17,16,17,16,17
6040DATA17,16,17,16,17,16,17,16
6050DATA16,17,16,23,16,17,31,17
6060DATA17,16,21,16,21,16,17,16
6070DATA18,17,16,17,16,23,16,17
6080DATA17,16,17,16,21,20,17,16
6090DATA20,21,20,21,30,17,20,17
6100DATA17,30,30,16,17,16,30,18
6110DATA30,30,30,30,30,30,30,30
6120DATA30,30,30,30,30,30,30,30
6130DATA30,30,30,30,30,30,30,30
6140DATA30,30,30,30,30,30,30,30
6150DATA18,30,30,30,30,30,16,17
6160DATA21,16,21,16,30,16,30,30
6170DATA16,17,16,17,16,17,16,17
6180DATA17,16,27,18,27,16,17,18
6190DATA16,17,16,27,16,17,16,27
6200DATA27,27,27,18,27,27,17,16
6210DATA16,17,16,27,27,27,27,27
6220DATA27,16,27,16,27,27,17,27
6230DATA16,27,16,27,27,17,16,17
6240DATA17,16,27,27,17,16,27,16
6250DATA16,17,16,17,16,27,27,17
6260DATA17,16,17,18,17,16,17,18
6270DATA16,17,16,17,20,21,22,23
6280DATA17,16,17,18,19,20,21,22
6290DATA16,17,16,17,10,21,10,10
6300REMERROREND SCREEN
6310DATA34,16,17,16,17,16,17,34
6320DATA34,17,36,17,16,17,16,34
6330DATA34,34,34,34,34,35,34,34
6340DATA8,8,8,8,8,8,8,8
6350
6360
6370DEFPROChiscore
6380PROCtable
6390VDU26
6400IFSC%<HS%(7)ENDPROC
6410J%=-1:REPEAT:J%+=1:UNTILSC%>HS%(J%)
6420FORI%=7TOJ%+1STEP-1:HS%(I%)=HS%(I%-1):HS$(I%)=HS$(I%-1):NEXT:HS%(J%)=SC%
6430*FX15
6440*FX21
6450*FX15
6460COLOUR3:COLOUR148
6470PRINTTAB(9,24)SPC22TAB(9,24)"Enter name:";
6480HS$(J%)="":XX=0
6490REPEAT
6500n$=GET$:asc%=ASCn$
6510CASE asc% OF
6520WHEN8,127:IFXX>0XX-=1:PRINT;n$;:HS$(J%)=LEFT$(HS$(J%))
6530OTHERWISE HS$(J%)+=n$:XX+=1:PRINT;n$;
6540ENDCASE
6550UNTILLENHS$(J%)=11ORASCn$=13
6560PROCtable
6570ENDPROC
6580DEFPROCtable
6590VDU26
6600COLOUR63:COLOUR149
6610PRINTTAB(9,6)" DreamQuest Hiscores! "
6620COLOUR186:COLOUR1
6630PRINTTAB(9,7)STRING$(22," ")
6640FORI%=0TO7
6650ls%=LENSTR$HS%(I%)
6660PRINTTAB(9,I%*2+8)STRING$(20,".")TAB(9,I%*2+9)STRING$(22," ")TAB(9,(I%*2)+8)HS$(I%)TAB(31-ls%,I%*2+8);HS%(I%)
6670NEXT
6680VDU28,0,3,39,0
6690VDU24,128;128;1148;892;
6700ENDPROC
6710
6720DEFPROCinittable
6730RESTORE6810
6740FORI%=0TO7
6750HS%(I%)=(7-I%)*100000+100000
6760READname$
6770HS$(I%)=name$
6780NEXT
6790ENDPROC
6800
6810DATAMAG and CAT!
6820DATAEVELYN TENT
6830DATASONIA FOOT
6840DATAW.A.SHERMAN
6850DATAThe Duckage
6860DATALEAKUL
6870DATAOh Pussycat
6880DATAMABELNORT
6890
6900DEFPROCintro
6910FORJ%=0TO4
6920FORI%=0TO1
6930TIME=0:REPEATUNTILTIME>10
6940SYS O$,&222,S%,Y%(0,J%MOD2),X%,Y%,12
6950NEXT
6960NEXT
6970ENDPROC
6980
6990DEFPROCoutro
7000SYS O$,&222,S%,S%(32),X%-64,Y%,8
7010SYS O$,&222,S%,S%(33),X%+64,Y%,8
7020PROCintro
7030TIME=0:REPEATUNTILTIME>200
7040ENDPROC
7050
7060DEFPROCgameover
7070FORI%=892TOKY%STEP-24
7080Z%=3-Z%:SYS6,112,Z%
7090SYS O$,256+34,g%,g$,A%,B%,0
7100SYS O$,&222,S%,gameover%,KX%,I%,8
7110SYS6,113,Z%
7120NEXT
7130SOUND2,-15,90,30
7140TIME=0:REPEATUNTILTIME>200
7150ENDPROC
7160
7170DEFPROCsounds
7180VOICES 8
7190*CHANNELVOICE 1 6
7200*CHANNELVOICE 2 8
7210*CHANNELVOICE 3 9
7220*CHANNELVOICE 4 2
7230*CHANNELVOICE 5 7
7240*CHANNELVOICE 6 5
7250*CHANNELVOICE 7 4
7260*CHANNELVOICE 8 3
7270ENDPROC
7280
7290REMERRORERROR
7300MODE0
7310*FX15
7320*FX21
7330REPORT
7340PRINTERL
� > <Dream$dir>.!RunImage
%� by Mike Goldberg March-May 1992
� � � �tD\
(�13
2�
<
F �init
P �dims
Z
�init2
d �sounds
n�inittable
x �grab
� �loadem
�
��
� �sprites
� �screen
��
��
�Z%=3-Z%:ș6,112,Z%
� B%-=4
�
Ȏ scr% �
�"� 0:ș O$,256+34,g%,g$,A%,B%,0
�+� 1:�26:ș O$,&122,g%,g$,A%,B%,0:�fixit
��
�B%=0�next
Ȏ Q% �
L� 0:�keys:ș O$,&222,S%,Y%(D%,wy%),X%,Y%,8:wz%=(wz%+1)�3:�wz%=0wy%=1-wy%
"� 1:�killyou1
,� 2:�killyou2
6M� 3:�keys:ș O$,&222,S%,Y%(D%,wy%),X%,Y%,12:wz%=(wz%+1)�3:�wz%=0wy%=1-wy%
@iv%+=1:�iv%>30Q%=0
J�
T �missile
^�bad
h�23-ln%,2);SC%
rș6,113,Z%
|"�li%=0�O%=swap%�lev%=end%�Q%=4
��O%=swap%�swap:O%=0
��li%=0�lev%=end%�Q%=4
� �lev%=end%�outro:�hiscore
��Q%=4�gameover:�hiscore
� �63:�149
�'�26:�9,24)" Press SPACE bar "
� ���=32:�
� �init
�
�init2
��0
��
�
�
��init
O%=0
lev%=0
swap%=34
&
end%=3
0 bonus%=0
: wp%=0
D wm%=0
N nm%=3
X ns%=37-1
b n%=5-1
l c%=6-1
v m%=4-1
� y%=4-1
�
scr%=0
� wy%=0
�wz%=0:wx%=0
� wt%=0
�
wyx%=0
�
exp%=5
�O$="OS_SpriteOp"
� col%=21
�tint%=3*64
�Z%=1
�
X%=576
�
Y%=256
A%=128
B%=128
D%=0
M%=24
* N%=M%
4 nbx%=6-1
>F%=0
H
u%=128
Rv%=0
\z0%=0:z1%=0:z2%=0
fz3%=0:z4%=0
pw0%=0:w1%=0:w2%=0
zw3%=0:d%=2
�
o%=0:i%=0
�fi%=0:wh%=0
�Q%=3
�
rs%=16
� rc%=0
�
rr%=32
�f%=8
� fl%=1152
� fs%=0
� wB%=0
� SC%=0
�t%=0
�hb%=0:hr%=16
k2%=0
iv%=0
b1%=0
$ li%=3
.lx%=0:ly%=128
8 fc%=0
B
ft%=96
L
fol%=0
Vq%=8
`�
j
��dims
t��S%(ns%),Y%(y%,1),M%(nm%),Ma%(nm%),Mb%(nm%),B0%(1),B1%(1),b1%(1),B2%(3),b2%(3),B3%(3,1),B3a%(3,1),B3b%(3,1),B4%(3),B0a%(1),B1a%(1),b1a%(1),B2a%(3),b2a%(3),B0b%(1),B1b%(1),b1b%(1),B2b%(3),b2b%(3)
~z�HS%(7),HS$(7),U%(n%),V%(n%),s%(n%),T%(2),C%(c%),SC%(n%),b%(n%),E%(exp%),P%(m%),Q%(m%),MD%(m%),p%(m%),q%(m%),XB%(nbx%)
�
�pour%(3)
��
� ��init2
��b%()=0:U%(0)=0:V%(0)=512:U%(1)=640:V%(1)=896:U%(4)=�(8)*128:V%(4)=896:U%(2)=�(6)*128+128:V%(2)=896:U%(3)=�(8)*128:V%(3)=896:s%()=0:P%()=0:Q%()=0:MD%()=-1:p%()=0:q%()=0
�
SC%()=500
�9SC%(0)=100:SC%(1)=200:SC%(2)=500:SC%(3)=1000:SC%(4)=0
��
�
��keys
�"�-98D%=3:X%-=M%:�X%<128X%+=M%
�#�-67D%=1:X%+=M%:�X%>1024X%-=M%
�"�-80D%=0:Y%+=N%:�Y%>768Y%-=N%
�#�-105D%=2:Y%-=N%:�Y%<128Y%+=N%
�-74�fire
�-56�
6ș6,112,3-Z%:�:�pause:��-55��-74��-99:ș6,112,3-Z%
�
(�
2 ��pause
<$ș O$,&222,S%,pour%(wp%),X%,Y%,0
Fwp%=(wp%+1)�4
P
�=0:���>3
Z�
d
n ��screen
x�col%+128:Ȝ1,tint%
��24,128;128;1148;892;
� ș6,112,2:�:�score(0):�lives
� ș6,112,1:�:�score(0):�lives
�
ș6,113,2
� ��DxT
��J%=128�768�128
��I%=128�1024�128
��W%
� ș O$,&222,S%,S%(W%),I%,J%,0
��
��
� �next
�
ș6,113,1
�=0:���>30
�intro
�
"
,��score(sc%)
6+�sc%=0�11:�17,1)"SCORE"�16,2)"0000000"
@ SC%+=sc%:S$=�(SC%):ln%=�S$
J[�SC%>=250000�bonus%=0li%+=1:�7,-15,-120,30:�I%=1�2:�lives:Z%=3-Z%:ș6,112,Z%:�:bonus%=1
T�
^
h ��loadem
r s$="<Dream$dir>.DreamFILE5"
|file%=�(s$)
�L%=�#file%+64
� �#file%
� � S% L%
� S%!0=L%
� ș "OS_SpriteOp",256+9,S%
�!ș "OS_SpriteOp",256+10,S%,s$
��
�
��sprites
�
�I%=0�ns%
�)�setSprite("SQUARE"+�I%,S%(I%),a%,b%)
��
� �I%=0�1
�+�setSprite("MANHOLE"+�I%,B0%(I%),a%,b%)
)�setSprite("ICON"+�I%,B0a%(I%),a%,b%)
*�setSprite("QUEEN"+�I%,B0b%(I%),a%,b%)
�
& �I%=0�1
0)�setSprite("JCB"+�(I%),B1%(I%),a%,b%)
:+�setSprite("JCB"+�(I%+2),b1%(I%),a%,b%)
D-�setSprite("ICON"+�(I%+2),B1a%(I%),a%,b%)
N/�setSprite("DOUBLE"+�(I%+2),b1a%(I%),a%,b%)
XS�setSprite("BAT"+�(I%),B1b%(I%),a%,b%):�setSprite("BAT"+�(I%+2),b1b%(I%),a%,b%)
b�
l �I%=0�3
v)�setSprite("RAT"+�(I%),B2%(I%),a%,b%)
�-�setSprite("ICON"+�(I%+12),b2%(I%),a%,b%)
�,�setSprite("PAINT"+�(I%),b2a%(I%),a%,b%)
�-�setSprite("ICON"+�(I%+4),B2a%(I%),a%,b%)
�+�setSprite("DOOR"+�(I%),B2b%(I%),a%,b%)
�*�setSprite("MAN"+�(I%),b2b%(I%),a%,b%)
��
� �I%=0�3
�0�setSprite("ICON"+�(I%)+"A",B3%(I%,0),a%,b%)
�0�setSprite("ICON"+�(I%)+"B",B3%(I%,1),a%,b%)
�3�setSprite("ARTIST"+�(I%)+"A",B3a%(I%,0),a%,b%)
�3�setSprite("ARTIST"+�(I%)+"B",B3a%(I%,1),a%,b%)
�3�setSprite("PUPPET"+�(I%)+"A",B3b%(I%,0),a%,b%)
�3�setSprite("PUPPET"+�(I%)+"B",B3b%(I%,1),a%,b%)
�
�I%=0�3
,�setSprite("ICON"+�(I%+8),B4%(I%),a%,b%)
�
* �I%=0�y%
4,�setSprite("YOU"+�I%+"A",Y%(I%,0),a%,b%)
>,�setSprite("YOU"+�I%+"B",Y%(I%,1),a%,b%)
H�
R �I%=0�c%
\)�setSprite("CRATER"+�I%,C%(I%),a%,b%)
f�
p �I%=0�3
z*�setSprite("POUR"+�I%,pour%(I%),a%,b%)
��
�
�I%=0�nm%
�*�setSprite("MISSILE"+�I%,M%(I%),a%,b%)
�*�setSprite("CHEESE"+�I%,Ma%(I%),a%,b%)
�(�setSprite("CHOC"+�I%,Mb%(I%),a%,b%)
��
��I%=0�exp%
�*�setSprite("EXPLODE"+�I%,E%(I%),a%,b%)
��
��I%=0�nbx%
�*�setSprite("XBLIMP"+�I%,XB%(I%),a%,b%)
��
� �I%=0�2
+�setSprite("TREASURE"+�I%,T%(I%),a%,b%)
�
$�setSprite("LIVES",lives%,a%,b%)
$*�setSprite("GAMEOVER",gameover%,a%,b%)
.�
8"��setSprite(s$,� A%,� W%,� H%)
B(ș "OS_SpriteOp",256+24,S%,s$ � ,,A%
L,ș "OS_SpriteOp",256+40,S%,s$ � ,,,W%,H%
VW%=W%*4:H%=H%*4
`�
j
t
��grab
~
g$="grab"
�� g% 64000
�g%!0=64000
� g%!8=16
� ș "OS_SpriteOp",256+9,g%
��
�
�
��next
�
B%=128
��26
��I%=128�1024�128
��W%
�!ș O$,&222,S%,S%(W%),I%,896,0
�
*ș O$,256+16,g%,g$,0,128,128,1148,1020
�28,0,3,39,0
#�col%+128:Ȝ1,tint%:�:�score(0)
(�24,128;128;1148;892;
2 O%+=1
<�
F
P ��fixit
Z0�a%>=128�a%<1020:ș O$,&222,S%,C%(3),a%,b%,8
d/ș O$,&110,g%,g$,0,A%,B%,1148,1020-(128-B%)
n�col%:Ȝ2,tint%
x$ȓ Ȑ 128,896,1020,128:�score(0)
�ȓ Ȑ 128,0,1020,124
��24,128;128;1148;892;
�
scr%=0
��
�
� ��bad
� �I%=0�n%
�Ȏ s%(I%) �
�� 0:�selectbaddy(I%)
�� 1:�movebaddy(I%)
�� 2:�killbaddy(I%)
�� 3:�restorebadxy(I%)
�� 5:�exBLIMP
�
�
�
"
,��selectbaddy(bad%)
6
Ȏ bad% �
@� 0:�(50)=1s%(0)=1
J� 1:s%(1)=1
T � 2:�s%(4)=0�B%=128s%(2)=1
^� 3:s%(3)=1
h � 4:�s%(2)=0��(32)=1s%(4)=1
r�
|�
���movebaddy(bad%)
�
Ȏ bad% �
�� 0:�follow
�� 1:�downer
�� 2:�sitter
�� 3:�rover
�� 4:�blimp
��
��
�
� ��follow
�
Ȏ fol% �
�� 0:fc%+=1
�V%(0)-Y%<>0 �
�V%(0)>Y%V%(0)-=q%
�V%(0)<Y%V%(0)+=(q%/2)
& �
0 �U%(0)-X%<>0 �
: �U%(0)>X%U%(0)-=q%
D �U%(0)<X%U%(0)+=q%
N �
X� 1:U%(0)+=f%*4
b�
l�Q%=1fol%=1:fc%=0
v�fc%>=ft% �
� �f%=-8:�U%(0)<X%fol%=1:fc%=0
� �f%= 8:�U%(0)>X%fol%=1:fc%=0
��
�(ș O$,&222,S%,B0%(z0%),U%(0),V%(0),8
� �U%(0)<0�U%(0)>1152s%(0)=3
��w0%=0z0%=1-z0%
�w0%=(w0%+1)�4
�2�col(0,64,128)=1�Q%=0�4,-15,-150,15:�killyou1
��
�
� ��downer
�
V%(1)-=24
�U%(1)+=b1%
(ș O$,&222,S%,B1%(z1%),U%(1),V%(1),8
�V%(1)<=0s%(1)=3
�w1%=0z1%=1-z1%
w1%=(w1%+1)�4
* Ȏ wB% �
46� 0:�col(1,96,128)=1�Q%=0�4,-15,-140,15:�killyou1
>A� 1:U%(1)+=128:�col(1,96,128)=1�Q%=0�4,-15,-130,15:�killyou1
HU%(1)-=128
R�
\�
f
p ��sitter
z V%(2)-=4
�(ș O$,&222,S%,B2%(z2%),U%(2),V%(2),8
��V%(2)=0s%(2)=3
�%w2%=(w2%+1)�2:�w2%=0z2%=(z2%+1)�4
�*�k2%=1:�col(2,96,128)=1�Q%=0�killyou2
��
�
� ��rover
�+ș O$,&222,S%,B3%(d%,z3%),U%(3),V%(3),8
�
� Ȏ d% �
�$� 0:V%(3)+=rs%:�V%(3)>892s%(3)=3
�%� 1:U%(3)+=rs%:�U%(3)>1148s%(3)=3
�"� 2:V%(3)-=rs%:�V%(3)<0s%(3)=3
"� 3:U%(3)-=rs%:�U%(3)<0s%(3)=3
�
$
rc%+=1
.&�rc%=rr%d%=�(4)-1:rc%=0:rr%=�(8)+8
8!w3%=(w3%+1)�2:�w3%=0z3%=1-z3%
B"�col(3,96,96)=1�Q%=0�killyou2
L�
V
` ��blimp
j Ȏ t% �
tk� 0:U%(4)+=(�(2)-1)*8-4:V%(4)-=8:ș O$,&222,S%,B4%(z4%),U%(4),V%(4),8:z4%=(z4%+1)�4:�V%(4)<=-128s%(4)=3
~"�col(4,96,96)=1�Q%=0�killyou2
�4� 1:V%(4)-=4:ș O$,&222,S%,T%(wt%),U%(4),V%(4),8
� �V%(4)<=-128s%(4)=3:t%=2
�D�col(4,64,64)=1�Q%=0�7:�6,-14,-30,20:�score(50000):t%=2:s%(4)=3
��
��
�
��fire
� F%=-1
� �I%=0�m%
��MD%(I%)=-1F%=I%
��
� �F%=-1�
��1,-10,0,1
Ȏ D% �
9� 0:P%(F%)=X%+40:Q%(F%)=Y%+128-u%:p%(F%)=v%:q%(F%)=u%
9� 1:P%(F%)=X%+128-u%:Q%(F%)=Y%+40:p%(F%)=u%:q%(F%)=v%
9� 2:P%(F%)=X%+40:Q%(F%)=Y%-32+u%:p%(F%)=v%:q%(F%)=-u%
(9� 3:P%(F%)=X%-32+u%:Q%(F%)=Y%+40:p%(F%)=-u%:q%(F%)=v%
2�
<MD%(F%)=D%
F�
P
��missile
Z �J%=0�m%
d �MD%(J%)>-1�missmove(J%)
n�
xwm%=(wm%+1)�4
��
�
���missmove(J%)
�!P%(J%)+=p%(J%):Q%(J%)+=q%(J%)
�)ș O$,&222,S%,M%(wm%),P%(J%),Q%(J%),8
�
�Ȏ MD%(J%) �
� � 0:�Q%(J%)>896MD%(J%)=-1
� � 2:�Q%(J%)<128MD%(J%)=-1
� � 1:�P%(J%)>1152MD%(J%)=-1
� � 3:�P%(J%)<128MD%(J%)=-1
��
�<�MD%(J%)>-1:�mis(J%,32,32)=1MD%(J%)=-1:�score(SC%(wh%))
�
ݤcol(j%,k%,l%)
h%=0
"
�Q%=3:=h%
,>�U%(j%)-X%>-k%�U%(j%)-X%<k%�V%(j%)-Y%>-l%�V%(j%)-Y%<l%h%=1
6=h%
@
Jݤmis(j%,k%,l%)
Th%=0
^ �I%=1�n%
ht�s%(I%)=1:�P%(J%)-U%(I%)>-k%�P%(J%)-U%(I%)<(160-k%)�Q%(J%)-V%(I%)>-l%�Q%(J%)-V%(I%)<(128-l%)h%=1:s%(I%)=2:wh%=I%
r�
| �k2%=1�s%(2)=2s%(2)=1:=0
�=h%
�
���killbaddy(bad%)
��bad%=4hb%+=1:�blimp
�.ș O$,&222,S%,C%(b%(bad%)),U%(I%),V%(I%),8
��2,-10,8,10
�b%(bad%)+=1
�a%=-128:b%=-128
�K�b%(bad%)=3b%(bad%)=0:s%(bad%)=3:a%=U%(bad%):b%=V%(bad%):�bad%<>4scr%=1
� �bad%=4�
��hb%<hr%s%(4)=1
��hb%=hr%s%(4)=5
��
�
��restorebadxy(bad%)
s%(bad%)=0
&
Ȏ bad% �
0'� 0:V%(0)=�(192)*4+128:fol%=0:fc%=0
: Ȏ f% �
D' � 8:f%=-8:fl%=0:fs%=1152:U%(0)=fs%
N' � -8:f%=8:fl%=1152:fs%=0:U%(0)=fs%
X �
b<� 1:U%(1)=�(224)*4+128:V%(1)=896:ȔB1%(),b1%():wB%=1-wB%
l b1%=(�(3)-1)*16-16
v. ș O$,&22F,S%,B1%(0):ș O$,&22F,S%,B1%(1)
�$� 2:U%(2)=�(6)*128+128:V%(2)=896
� ȔB2%(),b2%():k2%=1-k2%
� � 3:rc%=0:rr%=32:R%=�(4)
� Ȏ R% �
�( � 1:d%=0:V%(3)=0:U%(3)=�(256)*4+128
�( � 2:d%=1:U%(3)=0:V%(3)=�(192)*4+128
�* � 3:d%=2:V%(3)=896:U%(3)=�(256)*4+128
�+ � 4:d%=3:U%(3)=1148:V%(3)=�(192)*4+128
� �
�/� 4:hb%=0:U%(4)=�(224)*4+128:V%(4)=896:t%=0
��
��
�
��exBLIMP
�3,-15,30,25
(ș O$,&222,S%,XB%(wx%),U%(4),V%(4),8
wx%+=1
*!�wx%=nbx%+1wx%=0:s%(4)=1:t%=1
4�
>
H��killyou1
RQ%=1
\o%=(o%+1)�4
f"ș O$,&222,S%,Y%(o%,0),X%,Y%,8
p i%+=1:�i%>24Q%=0:o%=0:i%=0
z�
�X%+=(�(2)-1)*32-16
�Y%+=(�(2)-1)*32-16
��
�
���killyou2
�Q%=2:�5,-13,30,25
�
Ȏ wyx% �
�?�0,1,2,3,4:ș O$,&222,S%,E%(wyx%),X%,Y%,8:wyx%+=1:�=0:���>3
�3�5:ș O$,&222,S%,E%(wyx%),X%-48,Y%-48,8:wyx%+=1
�|�6:Q%=3:iv%=0:D%=0:wy%=0:KX%=X%:KY%=Y%:X%=576:Y%=128:wyx%=0:li%-=1:�li%>0�=0:���>150:�I%=1�2:�lives:Z%=3-Z%:ș6,112,Z%:�
��li%=0Q%=4
��
��
��lives
�col%+128:Ȝ3,tint%
$�24,0;128;124;892;:�
."�li%<=1�24,128;128;1148;892;:�
8�T%=0�li%-2
B*ș O$,&222,S%,lives%,lx%,ly%+(T%*96),8
L�
V�24,128;128;1148;892;
`�
j
t
��swap
~
Ȏ lev% �
�� 0:�SURREAL
�ȔB0%(),B0a%()
� �wB%=1ȔB1%(),b1%():wB%=0
�!ȔB1%(),B1a%():Ȕb1%(),b1a%()
� �k2%=1ȔB2%(),b2%():k2%=0
�!ȔB2%(),B2a%():Ȕb2%(),b2a%()
�ȔB3%(),B3a%()
�ȔM%(),Ma%()
�ȔC%(3),C%(4)
�
�� 1:�"�CHESS
�ȔB0%(),B0b%()
�wB%=1ȔB1%(),b1%():wB%=0
!ȔB1%(),B1b%():Ȕb1%(),b1b%()
ȔM%(),Mb%()
�k2%=1ȔB2%(),b2%():k2%=0
(!ȔB2%(),B2b%():Ȕb2%(),b2b%()
2ȔB3%(),B3b%()
<ȔC%(3),C%(5)
F�
P
wt%+=1
Z lev%+=1
d�
n�"�STONE SCREEN
x �16,16,16,16,10,16,16,16
� �16,16,16,32,33,16,16,16
��16,16,16,16,16,16,9,16
� �16,16,16,16,16,16,16,16
� �12,16,15,16,16,16,16,16
��16,16,15,9,10,10,16,16
��10,9,8,8,16,16,15,14
��11,14,15,10,12,8,16,10
� �11,12,11,12,13,13,13,14
��8,12,14,13,9,10,10,9
��10,14,8,9,11,10,14,14
��9,12,12,12,8,11,9,15
��11,11,8,13,14,9,12,15
��8,9,8,11,15,12,14,12
�8,8,11,9,10,15,12,13
�9,9,14,12,13,13,10,15
�15,14,10,14,11,9,10,8
" �11,10,15,15,15,15,10,10
,�8,14,15,5,5,15,8,12
6�8,12,15,5,6,15,13,13
@�14,11,15,15,15,15,9,8
J�11,11,9,10,9,13,13,13
T�10,10,9,15,14,25,13,8
^�13,13,8,11,11,9,15,14
h �11,12,14,13,13,11,14,12
r �11,12,12,13,14,11,13,12
| �13,13,14,11,12,12,11,14
� �14,13,12,26,11,12,13,12
��8,11,9,13,9,14,13,12
��8,11,9,9,9,13,8,8
��15,27,13,12,11,10,9,8
��8,9,10,11,12,13,15,15
��10,10,10,10,10,9,15,8
� �11,14,11,14,11,13,10,10
��5,10,5,10,5,10,5,10
��"�SURREAL SCREEN
��5,5,5,5,5,7,5,5
��5,5,5,5,5,5,5,5
��5,5,5,5,5,5,5,5
��5,5,5,6,5,5,5,5
�5,6,5,5,5,5,6,5
�5,6,5,5,1,5,6,1
�1,5,5,5,5,1,5,1
&�6,5,5,5,6,6,25,5
0�0,0,0,0,25,0,25,25
:�0,29,0,1,0,25,25,25
D�0,1,4,1,0,5,1,25
N�0,2,4,2,24,0,1,0
X�0,0,0,0,2,2,0,0
b�0,2,2,0,0,0,0,0
l�25,25,2,25,25,25,25,0
v�25,0,25,25,2,25,25,25
��2,25,25,0,25,0,25,25
��2,25,25,0,25,25,25,2
��5,1,3,3,3,4,0,0
��5,2,3,1,3,4,1,1
��5,4,1,1,1,1,1,1
��5,5,1,5,5,5,5,5
��4,5,4,24,5,4,5,4
��2,2,2,2,2,2,2,2
��2,2,28,2,2,2,28,2
��28,2,28,2,28,28,28,2
��28,2,2,2,2,28,2,2
��2,2,2,2,28,2,2,2
��2,28,28,28,2,28,28,2
�2,2,28,2,2,2,28,28
�2,2,2,2,2,2,2,2
�0,0,0,0,0,0,0,0
�0,0,0,1,0,2,2,0
*�0,16,7,16,2,16,2,16
4�"�CHESS SCREEN
> �16,17,16,17,16,17,16,17
H �17,16,17,16,17,16,17,16
R �16,17,16,17,16,17,16,17
\ �17,16,17,18,17,16,17,16
f �16,17,16,17,16,17,16,17
p �17,16,17,16,30,16,21,16
z �22,17,18,17,16,17,16,17
� �17,16,17,16,23,16,17,16
� �16,17,16,17,16,17,16,17
� �17,16,17,16,17,16,17,16
� �16,17,16,23,16,17,31,17
� �17,16,21,16,21,16,17,16
� �18,17,16,17,16,23,16,17
� �17,16,17,16,21,20,17,16
� �20,21,20,21,30,17,20,17
� �17,30,30,16,17,16,30,18
� �30,30,30,30,30,30,30,30
� �30,30,30,30,30,30,30,30
� �30,30,30,30,30,30,30,30
� �30,30,30,30,30,30,30,30
�18,30,30,30,30,30,16,17
�21,16,21,16,30,16,30,30
�16,17,16,17,16,17,16,17
$ �17,16,27,18,27,16,17,18
. �16,17,16,27,16,17,16,27
8 �27,27,27,18,27,27,17,16
B �16,17,16,27,27,27,27,27
L �27,16,27,16,27,27,17,27
V �16,27,16,27,27,17,16,17
` �17,16,27,27,17,16,27,16
j �16,17,16,17,16,27,27,17
t �17,16,17,18,17,16,17,18
~ �16,17,16,17,20,21,22,23
� �17,16,17,18,19,20,21,22
� �16,17,16,17,10,21,10,10
��END SCREEN
� �34,16,17,16,17,16,17,34
� �34,17,36,17,16,17,16,34
� �34,34,34,34,34,35,34,34
��8,8,8,8,8,8,8,8
�
�
�
��hiscore
�
�table
��26
�SC%<HS%(7)�
J%=-1:�:J%+=1:�SC%>HS%(J%)
C�I%=7�J%+1�-1:HS%(I%)=HS%(I%-1):HS$(I%)=HS$(I%-1):�:HS%(J%)=SC%
*FX15
( *FX21
2 *FX15
< �3:�148
F"�9,24)�22�9,24)"Enter name:";
PHS$(J%)="":XX=0
Z�
dn$=�:asc%=�n$
n
Ȏ asc% �
x-�8,127:�XX>0XX-=1:�;n$;:HS$(J%)=�HS$(J%))
� HS$(J%)+=n$:XX+=1:�;n$;
��
���HS$(J%)=11��n$=13
�
�table
��
� ��table
��26
� �63:�149
�"�9,6)" DreamQuest Hiscores! "
� �186:�1
��9,7)�22," ")
� �I%=0�7
�ls%=��HS%(I%)
S�9,I%*2+8)�20,".")�9,I%*2+9)�22," ")�9,(I%*2)+8)HS$(I%)�31-ls%,I%*2+8);HS%(I%)
�
�28,0,3,39,0
"�24,128;128;1148;892;
,�
6
@��inittable
J ��tZZ
T �I%=0�7
^ HS%(I%)=(7-I%)*100000+100000
h
�name$
rHS$(I%)=name$
|�
��
�
��MAG and CAT!
��EVELYN TENT
��SONIA FOOT
��W.A.SHERMAN
��The Duckage
� �LEAKUL
��Oh Pussycat
��MABELNORT
�
� ��intro
� �J%=0�4
�I%=0�1
�=0:���>10
%ș O$,&222,S%,Y%(0,J%�2),X%,Y%,12
&�
0�
:�
D
N ��outro
X#ș O$,&222,S%,S%(32),X%-64,Y%,8
b#ș O$,&222,S%,S%(33),X%+64,Y%,8
l
�intro
v�=0:���>200
��
�
���gameover
��I%=892�KY%�-24
�Z%=3-Z%:ș6,112,Z%
� ș O$,256+34,g%,g$,A%,B%,0
�$ș O$,&222,S%,gameover%,KX%,I%,8
�ș6,113,Z%
��
��2,-15,90,30
��=0:���>200
��
�
��sounds
Ƞ 8
*CHANNELVOICE 1 6
*CHANNELVOICE 2 8
**CHANNELVOICE 3 9
4*CHANNELVOICE 4 2
>*CHANNELVOICE 5 7
H*CHANNELVOICE 6 5
R*CHANNELVOICE 7 4
\*CHANNELVOICE 8 3
f�
p
z �ERROR
��0
� *FX15
� *FX21
��
��
� 00000000 0d 00 0a 1d f4 20 3e 20 3c 44 72 65 61 6d 24 64 |..... > <Dream$d|
00000010 69 72 3e 2e 21 52 75 6e 49 6d 61 67 65 0d 00 14 |ir>.!RunImage...|
00000020 25 f4 20 62 79 20 4d 69 6b 65 20 47 6f 6c 64 62 |%. by Mike Goldb|
00000030 65 72 67 20 4d 61 72 63 68 2d 4d 61 79 20 31 39 |erg March-May 19|
00000040 39 32 0d 00 1e 0e ee 20 85 20 e5 20 8d 74 44 5c |92..... . . .tD\|
00000050 0d 00 28 07 eb 31 33 0d 00 32 05 87 0d 00 3c 05 |..(..13..2....<.|
00000060 20 0d 00 46 09 f2 69 6e 69 74 0d 00 50 09 f2 64 | ..F..init..P..d|
00000070 69 6d 73 0d 00 5a 0a f2 69 6e 69 74 32 0d 00 64 |ims..Z..init2..d|
00000080 0b f2 73 6f 75 6e 64 73 0d 00 6e 0e f2 69 6e 69 |..sounds..n..ini|
00000090 74 74 61 62 6c 65 0d 00 78 09 f2 67 72 61 62 0d |ttable..x..grab.|
000000a0 00 82 0b f2 6c 6f 61 64 65 6d 0d 00 8c 05 20 0d |....loadem.... .|
000000b0 00 96 05 f5 0d 00 a0 0c f2 73 70 72 69 74 65 73 |.........sprites|
000000c0 0d 00 aa 0b f2 73 63 72 65 65 6e 0d 00 b4 05 f5 |.....screen.....|
000000d0 0d 00 be 05 f5 0d 00 c8 16 5a 25 3d 33 2d 5a 25 |.........Z%=3-Z%|
000000e0 3a c8 99 36 2c 31 31 32 2c 5a 25 0d 00 d2 09 42 |:..6,112,Z%....B|
000000f0 25 2d 3d 34 0d 00 dc 0d c8 8e 20 73 63 72 25 20 |%-=4...... scr% |
00000100 ca 0d 00 e6 22 c9 20 30 3a c8 99 20 4f 24 2c 32 |....". 0:.. O$,2|
00000110 35 36 2b 33 34 2c 67 25 2c 67 24 2c 41 25 2c 42 |56+34,g%,g$,A%,B|
00000120 25 2c 30 0d 00 f0 2b c9 20 31 3a ef 32 36 3a c8 |%,0...+. 1:.26:.|
00000130 99 20 4f 24 2c 26 31 32 32 2c 67 25 2c 67 24 2c |. O$,&122,g%,g$,|
00000140 41 25 2c 42 25 2c 30 3a f2 66 69 78 69 74 0d 00 |A%,B%,0:.fixit..|
00000150 fa 05 cb 0d 01 04 0e e7 42 25 3d 30 f2 6e 65 78 |........B%=0.nex|
00000160 74 0d 01 0e 0b c8 8e 20 51 25 20 ca 0d 01 18 4c |t...... Q% ....L|
00000170 c9 20 30 3a f2 6b 65 79 73 3a c8 99 20 4f 24 2c |. 0:.keys:.. O$,|
00000180 26 32 32 32 2c 53 25 2c 59 25 28 44 25 2c 77 79 |&222,S%,Y%(D%,wy|
00000190 25 29 2c 58 25 2c 59 25 2c 38 3a 77 7a 25 3d 28 |%),X%,Y%,8:wz%=(|
000001a0 77 7a 25 2b 31 29 83 33 3a e7 77 7a 25 3d 30 77 |wz%+1).3:.wz%=0w|
000001b0 79 25 3d 31 2d 77 79 25 0d 01 22 11 c9 20 31 3a |y%=1-wy%..".. 1:|
000001c0 f2 6b 69 6c 6c 79 6f 75 31 0d 01 2c 11 c9 20 32 |.killyou1..,.. 2|
000001d0 3a f2 6b 69 6c 6c 79 6f 75 32 0d 01 36 4d c9 20 |:.killyou2..6M. |
000001e0 33 3a f2 6b 65 79 73 3a c8 99 20 4f 24 2c 26 32 |3:.keys:.. O$,&2|
000001f0 32 32 2c 53 25 2c 59 25 28 44 25 2c 77 79 25 29 |22,S%,Y%(D%,wy%)|
00000200 2c 58 25 2c 59 25 2c 31 32 3a 77 7a 25 3d 28 77 |,X%,Y%,12:wz%=(w|
00000210 7a 25 2b 31 29 83 33 3a e7 77 7a 25 3d 30 77 79 |z%+1).3:.wz%=0wy|
00000220 25 3d 31 2d 77 79 25 0d 01 40 16 69 76 25 2b 3d |%=1-wy%..@.iv%+=|
00000230 31 3a e7 69 76 25 3e 33 30 51 25 3d 30 0d 01 4a |1:.iv%>30Q%=0..J|
00000240 05 cb 0d 01 54 0c f2 6d 69 73 73 69 6c 65 0d 01 |....T..missile..|
00000250 5e 08 f2 62 61 64 0d 01 68 13 f1 8a 32 33 2d 6c |^..bad..h...23-l|
00000260 6e 25 2c 32 29 3b 53 43 25 0d 01 72 0e c8 99 36 |n%,2);SC%..r...6|
00000270 2c 31 31 33 2c 5a 25 0d 01 7c 22 fd 6c 69 25 3d |,113,Z%..|".li%=|
00000280 30 84 4f 25 3d 73 77 61 70 25 84 6c 65 76 25 3d |0.O%=swap%.lev%=|
00000290 65 6e 64 25 84 51 25 3d 34 0d 01 86 17 e7 4f 25 |end%.Q%=4.....O%|
000002a0 3d 73 77 61 70 25 f2 73 77 61 70 3a 4f 25 3d 30 |=swap%.swap:O%=0|
000002b0 0d 01 90 19 fd 6c 69 25 3d 30 84 6c 65 76 25 3d |.....li%=0.lev%=|
000002c0 65 6e 64 25 84 51 25 3d 34 0d 01 9a 1d e7 6c 65 |end%.Q%=4.....le|
000002d0 76 25 3d 65 6e 64 25 f2 6f 75 74 72 6f 3a f2 68 |v%=end%.outro:.h|
000002e0 69 73 63 6f 72 65 0d 01 a4 1b e7 51 25 3d 34 f2 |iscore.....Q%=4.|
000002f0 67 61 6d 65 6f 76 65 72 3a f2 68 69 73 63 6f 72 |gameover:.hiscor|
00000300 65 0d 01 ae 0c fb 36 33 3a fb 31 34 39 0d 01 b8 |e.....63:.149...|
00000310 27 ef 32 36 3a f1 8a 39 2c 32 34 29 22 20 20 20 |'.26:..9,24)" |
00000320 50 72 65 73 73 20 53 50 41 43 45 20 62 61 72 20 |Press SPACE bar |
00000330 20 20 20 22 0d 01 c2 0c f5 fd a5 3d 33 32 3a db | ".......=32:.|
00000340 0d 01 cc 09 f2 69 6e 69 74 0d 01 d6 0a f2 69 6e |.....init.....in|
00000350 69 74 32 0d 01 e0 06 fd 30 0d 01 ea 05 e0 0d 01 |it2.....0.......|
00000360 f4 05 20 0d 01 fe 0a dd f2 69 6e 69 74 0d 02 08 |.. ......init...|
00000370 08 4f 25 3d 30 0d 02 12 0a 6c 65 76 25 3d 30 0d |.O%=0....lev%=0.|
00000380 02 1c 0c 73 77 61 70 25 3d 33 34 0d 02 26 0a 65 |...swap%=34..&.e|
00000390 6e 64 25 3d 33 0d 02 30 0c 62 6f 6e 75 73 25 3d |nd%=3..0.bonus%=|
000003a0 30 0d 02 3a 09 77 70 25 3d 30 0d 02 44 09 77 6d |0..:.wp%=0..D.wm|
000003b0 25 3d 30 0d 02 4e 09 6e 6d 25 3d 33 0d 02 58 0c |%=0..N.nm%=3..X.|
000003c0 6e 73 25 3d 33 37 2d 31 0d 02 62 0b 20 6e 25 3d |ns%=37-1..b. n%=|
000003d0 35 2d 31 0d 02 6c 0b 20 63 25 3d 36 2d 31 0d 02 |5-1..l. c%=6-1..|
000003e0 76 0b 20 6d 25 3d 34 2d 31 0d 02 80 0b 20 79 25 |v. m%=4-1.... y%|
000003f0 3d 34 2d 31 0d 02 8a 0a 73 63 72 25 3d 30 0d 02 |=4-1....scr%=0..|
00000400 94 09 77 79 25 3d 30 0d 02 9e 0f 77 7a 25 3d 30 |..wy%=0....wz%=0|
00000410 3a 77 78 25 3d 30 0d 02 a8 09 77 74 25 3d 30 0d |:wx%=0....wt%=0.|
00000420 02 b2 0a 77 79 78 25 3d 30 0d 02 bc 0a 65 78 70 |...wyx%=0....exp|
00000430 25 3d 35 0d 02 c6 14 4f 24 3d 22 4f 53 5f 53 70 |%=5....O$="OS_Sp|
00000440 72 69 74 65 4f 70 22 0d 02 d0 0b 63 6f 6c 25 3d |riteOp"....col%=|
00000450 32 31 0d 02 da 0e 74 69 6e 74 25 3d 33 2a 36 34 |21....tint%=3*64|
00000460 0d 02 e4 08 5a 25 3d 31 0d 02 ee 0a 58 25 3d 35 |....Z%=1....X%=5|
00000470 37 36 0d 02 f8 0a 59 25 3d 32 35 36 0d 03 02 0a |76....Y%=256....|
00000480 41 25 3d 31 32 38 0d 03 0c 0a 42 25 3d 31 32 38 |A%=128....B%=128|
00000490 0d 03 16 08 44 25 3d 30 0d 03 20 09 4d 25 3d 32 |....D%=0.. .M%=2|
000004a0 34 0d 03 2a 09 4e 25 3d 4d 25 0d 03 34 0c 6e 62 |4..*.N%=M%..4.nb|
000004b0 78 25 3d 36 2d 31 0d 03 3e 08 46 25 3d 30 0d 03 |x%=6-1..>.F%=0..|
000004c0 48 0a 75 25 3d 31 32 38 0d 03 52 08 76 25 3d 30 |H.u%=128..R.v%=0|
000004d0 0d 03 5c 15 7a 30 25 3d 30 3a 7a 31 25 3d 30 3a |..\.z0%=0:z1%=0:|
000004e0 7a 32 25 3d 30 0d 03 66 0f 7a 33 25 3d 30 3a 7a |z2%=0..f.z3%=0:z|
000004f0 34 25 3d 30 0d 03 70 15 77 30 25 3d 30 3a 77 31 |4%=0..p.w0%=0:w1|
00000500 25 3d 30 3a 77 32 25 3d 30 0d 03 7a 0e 77 33 25 |%=0:w2%=0..z.w3%|
00000510 3d 30 3a 64 25 3d 32 0d 03 84 0d 6f 25 3d 30 3a |=0:d%=2....o%=0:|
00000520 69 25 3d 30 0d 03 8e 0f 66 69 25 3d 30 3a 77 68 |i%=0....fi%=0:wh|
00000530 25 3d 30 0d 03 98 08 51 25 3d 33 0d 03 a2 0a 72 |%=0....Q%=3....r|
00000540 73 25 3d 31 36 0d 03 ac 09 72 63 25 3d 30 0d 03 |s%=16....rc%=0..|
00000550 b6 0a 72 72 25 3d 33 32 0d 03 c0 08 66 25 3d 38 |..rr%=32....f%=8|
00000560 0d 03 ca 0c 66 6c 25 3d 31 31 35 32 0d 03 d4 09 |....fl%=1152....|
00000570 66 73 25 3d 30 0d 03 de 09 77 42 25 3d 30 0d 03 |fs%=0....wB%=0..|
00000580 e8 09 53 43 25 3d 30 0d 03 f2 08 74 25 3d 30 0d |..SC%=0....t%=0.|
00000590 03 fc 10 68 62 25 3d 30 3a 68 72 25 3d 31 36 0d |...hb%=0:hr%=16.|
000005a0 04 06 09 6b 32 25 3d 30 0d 04 10 09 69 76 25 3d |...k2%=0....iv%=|
000005b0 30 0d 04 1a 09 62 31 25 3d 30 0d 04 24 09 6c 69 |0....b1%=0..$.li|
000005c0 25 3d 33 0d 04 2e 11 6c 78 25 3d 30 3a 6c 79 25 |%=3....lx%=0:ly%|
000005d0 3d 31 32 38 0d 04 38 09 66 63 25 3d 30 0d 04 42 |=128..8.fc%=0..B|
000005e0 0a 66 74 25 3d 39 36 0d 04 4c 0a 66 6f 6c 25 3d |.ft%=96..L.fol%=|
000005f0 30 0d 04 56 08 71 25 3d 38 0d 04 60 05 e1 0d 04 |0..V.q%=8..`....|
00000600 6a 0a dd f2 64 69 6d 73 0d 04 74 c6 de 53 25 28 |j...dims..t..S%(|
00000610 6e 73 25 29 2c 59 25 28 79 25 2c 31 29 2c 4d 25 |ns%),Y%(y%,1),M%|
00000620 28 6e 6d 25 29 2c 4d 61 25 28 6e 6d 25 29 2c 4d |(nm%),Ma%(nm%),M|
00000630 62 25 28 6e 6d 25 29 2c 42 30 25 28 31 29 2c 42 |b%(nm%),B0%(1),B|
00000640 31 25 28 31 29 2c 62 31 25 28 31 29 2c 42 32 25 |1%(1),b1%(1),B2%|
00000650 28 33 29 2c 62 32 25 28 33 29 2c 42 33 25 28 33 |(3),b2%(3),B3%(3|
00000660 2c 31 29 2c 42 33 61 25 28 33 2c 31 29 2c 42 33 |,1),B3a%(3,1),B3|
00000670 62 25 28 33 2c 31 29 2c 42 34 25 28 33 29 2c 42 |b%(3,1),B4%(3),B|
00000680 30 61 25 28 31 29 2c 42 31 61 25 28 31 29 2c 62 |0a%(1),B1a%(1),b|
00000690 31 61 25 28 31 29 2c 42 32 61 25 28 33 29 2c 62 |1a%(1),B2a%(3),b|
000006a0 32 61 25 28 33 29 2c 42 30 62 25 28 31 29 2c 42 |2a%(3),B0b%(1),B|
000006b0 31 62 25 28 31 29 2c 62 31 62 25 28 31 29 2c 42 |1b%(1),b1b%(1),B|
000006c0 32 62 25 28 33 29 2c 62 32 62 25 28 33 29 0d 04 |2b%(3),b2b%(3)..|
000006d0 7e 7a de 48 53 25 28 37 29 2c 48 53 24 28 37 29 |~z.HS%(7),HS$(7)|
000006e0 2c 55 25 28 6e 25 29 2c 56 25 28 6e 25 29 2c 73 |,U%(n%),V%(n%),s|
000006f0 25 28 6e 25 29 2c 54 25 28 32 29 2c 43 25 28 63 |%(n%),T%(2),C%(c|
00000700 25 29 2c 53 43 25 28 6e 25 29 2c 62 25 28 6e 25 |%),SC%(n%),b%(n%|
00000710 29 2c 45 25 28 65 78 70 25 29 2c 50 25 28 6d 25 |),E%(exp%),P%(m%|
00000720 29 2c 51 25 28 6d 25 29 2c 4d 44 25 28 6d 25 29 |),Q%(m%),MD%(m%)|
00000730 2c 70 25 28 6d 25 29 2c 71 25 28 6d 25 29 2c 58 |,p%(m%),q%(m%),X|
00000740 42 25 28 6e 62 78 25 29 0d 04 88 0d de 70 6f 75 |B%(nbx%).....pou|
00000750 72 25 28 33 29 0d 04 92 05 e1 0d 04 9c 0b dd f2 |r%(3)...........|
00000760 69 6e 69 74 32 0d 04 a6 ab 62 25 28 29 3d 30 3a |init2....b%()=0:|
00000770 55 25 28 30 29 3d 30 3a 56 25 28 30 29 3d 35 31 |U%(0)=0:V%(0)=51|
00000780 32 3a 55 25 28 31 29 3d 36 34 30 3a 56 25 28 31 |2:U%(1)=640:V%(1|
00000790 29 3d 38 39 36 3a 55 25 28 34 29 3d b3 28 38 29 |)=896:U%(4)=.(8)|
000007a0 2a 31 32 38 3a 56 25 28 34 29 3d 38 39 36 3a 55 |*128:V%(4)=896:U|
000007b0 25 28 32 29 3d b3 28 36 29 2a 31 32 38 2b 31 32 |%(2)=.(6)*128+12|
000007c0 38 3a 56 25 28 32 29 3d 38 39 36 3a 55 25 28 33 |8:V%(2)=896:U%(3|
000007d0 29 3d b3 28 38 29 2a 31 32 38 3a 56 25 28 33 29 |)=.(8)*128:V%(3)|
000007e0 3d 38 39 36 3a 73 25 28 29 3d 30 3a 50 25 28 29 |=896:s%()=0:P%()|
000007f0 3d 30 3a 51 25 28 29 3d 30 3a 4d 44 25 28 29 3d |=0:Q%()=0:MD%()=|
00000800 2d 31 3a 70 25 28 29 3d 30 3a 71 25 28 29 3d 30 |-1:p%()=0:q%()=0|
00000810 0d 04 b0 0d 53 43 25 28 29 3d 35 30 30 0d 04 ba |....SC%()=500...|
00000820 39 53 43 25 28 30 29 3d 31 30 30 3a 53 43 25 28 |9SC%(0)=100:SC%(|
00000830 31 29 3d 32 30 30 3a 53 43 25 28 32 29 3d 35 30 |1)=200:SC%(2)=50|
00000840 30 3a 53 43 25 28 33 29 3d 31 30 30 30 3a 53 43 |0:SC%(3)=1000:SC|
00000850 25 28 34 29 3d 30 0d 04 c4 05 e1 0d 04 ce 0a dd |%(4)=0..........|
00000860 f2 6b 65 79 73 0d 04 d8 22 e7 a6 2d 39 38 44 25 |.keys..."..-98D%|
00000870 3d 33 3a 58 25 2d 3d 4d 25 3a e7 58 25 3c 31 32 |=3:X%-=M%:.X%<12|
00000880 38 58 25 2b 3d 4d 25 0d 04 e2 23 e7 a6 2d 36 37 |8X%+=M%...#..-67|
00000890 44 25 3d 31 3a 58 25 2b 3d 4d 25 3a e7 58 25 3e |D%=1:X%+=M%:.X%>|
000008a0 31 30 32 34 58 25 2d 3d 4d 25 0d 04 ec 22 e7 a6 |1024X%-=M%..."..|
000008b0 2d 38 30 44 25 3d 30 3a 59 25 2b 3d 4e 25 3a e7 |-80D%=0:Y%+=N%:.|
000008c0 59 25 3e 37 36 38 59 25 2d 3d 4e 25 0d 04 f6 23 |Y%>768Y%-=N%...#|
000008d0 e7 a6 2d 31 30 35 44 25 3d 32 3a 59 25 2d 3d 4e |..-105D%=2:Y%-=N|
000008e0 25 3a e7 59 25 3c 31 32 38 59 25 2b 3d 4e 25 0d |%:.Y%<128Y%+=N%.|
000008f0 05 00 0e e7 a6 2d 37 34 f2 66 69 72 65 0d 05 0a |.....-74.fire...|
00000900 0a e7 a6 2d 35 36 8c 0d 05 14 36 c8 99 36 2c 31 |...-56....6..6,1|
00000910 31 32 2c 33 2d 5a 25 3a f5 3a f2 70 61 75 73 65 |12,3-Z%:.:.pause|
00000920 3a fd a6 2d 35 35 84 a6 2d 37 34 84 a6 2d 39 39 |:..-55..-74..-99|
00000930 3a c8 99 36 2c 31 31 32 2c 33 2d 5a 25 0d 05 1e |:..6,112,3-Z%...|
00000940 05 cd 0d 05 28 05 e1 0d 05 32 0b dd f2 70 61 75 |....(....2...pau|
00000950 73 65 0d 05 3c 24 c8 99 20 4f 24 2c 26 32 32 32 |se..<$.. O$,&222|
00000960 2c 53 25 2c 70 6f 75 72 25 28 77 70 25 29 2c 58 |,S%,pour%(wp%),X|
00000970 25 2c 59 25 2c 30 0d 05 46 11 77 70 25 3d 28 77 |%,Y%,0..F.wp%=(w|
00000980 70 25 2b 31 29 83 34 0d 05 50 0d d1 3d 30 3a f5 |p%+1).4..P..=0:.|
00000990 fd 91 3e 33 0d 05 5a 05 e1 0d 05 64 05 20 0d 05 |..>3..Z....d. ..|
000009a0 6e 0c dd f2 73 63 72 65 65 6e 0d 05 78 17 fb 63 |n...screen..x..c|
000009b0 6f 6c 25 2b 31 32 38 3a c8 9c 31 2c 74 69 6e 74 |ol%+128:..1,tint|
000009c0 25 0d 05 82 19 ef 32 34 2c 31 32 38 3b 31 32 38 |%.....24,128;128|
000009d0 3b 31 31 34 38 3b 38 39 32 3b 0d 05 8c 20 c8 99 |;1148;892;... ..|
000009e0 36 2c 31 31 32 2c 32 3a db 3a f2 73 63 6f 72 65 |6,112,2:.:.score|
000009f0 28 30 29 3a f2 6c 69 76 65 73 0d 05 96 20 c8 99 |(0):.lives... ..|
00000a00 36 2c 31 31 32 2c 31 3a db 3a f2 73 63 6f 72 65 |6,112,1:.:.score|
00000a10 28 30 29 3a f2 6c 69 76 65 73 0d 05 a0 0d c8 99 |(0):.lives......|
00000a20 36 2c 31 31 33 2c 32 0d 05 aa 09 f7 8d 44 78 54 |6,113,2......DxT|
00000a30 0d 05 b4 13 e3 4a 25 3d 31 32 38 b8 37 36 38 88 |.....J%=128.768.|
00000a40 31 32 38 0d 05 be 14 e3 49 25 3d 31 32 38 b8 31 |128.....I%=128.1|
00000a50 30 32 34 88 31 32 38 0d 05 c8 07 f3 57 25 0d 05 |024.128.....W%..|
00000a60 d2 20 c8 99 20 4f 24 2c 26 32 32 32 2c 53 25 2c |. .. O$,&222,S%,|
00000a70 53 25 28 57 25 29 2c 49 25 2c 4a 25 2c 30 0d 05 |S%(W%),I%,J%,0..|
00000a80 dc 05 ed 0d 05 e6 05 ed 0d 05 f0 09 f2 6e 65 78 |.............nex|
00000a90 74 0d 05 fa 0d c8 99 36 2c 31 31 33 2c 31 0d 06 |t......6,113,1..|
00000aa0 04 0e d1 3d 30 3a f5 fd 91 3e 33 30 0d 06 0e 0a |...=0:...>30....|
00000ab0 f2 69 6e 74 72 6f 0d 06 18 05 e1 0d 06 22 05 20 |.intro.......". |
00000ac0 0d 06 2c 10 dd f2 73 63 6f 72 65 28 73 63 25 29 |..,...score(sc%)|
00000ad0 0d 06 36 2b e7 73 63 25 3d 30 fb 31 31 3a f1 8a |..6+.sc%=0.11:..|
00000ae0 31 37 2c 31 29 22 53 43 4f 52 45 22 8a 31 36 2c |17,1)"SCORE".16,|
00000af0 32 29 22 30 30 30 30 30 30 30 22 0d 06 40 1e 53 |2)"0000000"..@.S|
00000b00 43 25 2b 3d 73 63 25 3a 53 24 3d c3 28 53 43 25 |C%+=sc%:S$=.(SC%|
00000b10 29 3a 6c 6e 25 3d a9 53 24 0d 06 4a 5b e7 53 43 |):ln%=.S$..J[.SC|
00000b20 25 3e 3d 32 35 30 30 30 30 80 62 6f 6e 75 73 25 |%>=250000.bonus%|
00000b30 3d 30 6c 69 25 2b 3d 31 3a d4 37 2c 2d 31 35 2c |=0li%+=1:.7,-15,|
00000b40 2d 31 32 30 2c 33 30 3a e3 49 25 3d 31 b8 32 3a |-120,30:.I%=1.2:|
00000b50 f2 6c 69 76 65 73 3a 5a 25 3d 33 2d 5a 25 3a c8 |.lives:Z%=3-Z%:.|
00000b60 99 36 2c 31 31 32 2c 5a 25 3a ed 3a 62 6f 6e 75 |.6,112,Z%:.:bonu|
00000b70 73 25 3d 31 0d 06 54 05 e1 0d 06 5e 05 20 0d 06 |s%=1..T....^. ..|
00000b80 68 0c dd f2 6c 6f 61 64 65 6d 0d 06 72 1f 73 24 |h...loadem..r.s$|
00000b90 3d 22 3c 44 72 65 61 6d 24 64 69 72 3e 2e 44 72 |="<Dream$dir>.Dr|
00000ba0 65 61 6d 46 49 4c 45 35 22 0d 06 7c 0f 66 69 6c |eamFILE5"..|.fil|
00000bb0 65 25 3d 8e 28 73 24 29 0d 06 86 11 4c 25 3d a2 |e%=.(s$)....L%=.|
00000bc0 23 66 69 6c 65 25 2b 36 34 0d 06 90 0b d9 23 66 |#file%+64.....#f|
00000bd0 69 6c 65 25 0d 06 9a 0b de 20 53 25 20 4c 25 0d |ile%..... S% L%.|
00000be0 06 a4 0b 53 25 21 30 3d 4c 25 0d 06 ae 1d c8 99 |...S%!0=L%......|
00000bf0 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 | "OS_SpriteOp",2|
00000c00 35 36 2b 39 2c 53 25 0d 06 b8 21 c8 99 20 22 4f |56+9,S%...!.. "O|
00000c10 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 35 36 2b |S_SpriteOp",256+|
00000c20 31 30 2c 53 25 2c 73 24 0d 06 c2 05 e1 0d 06 cc |10,S%,s$........|
00000c30 0d dd f2 73 70 72 69 74 65 73 0d 06 d6 0d e3 49 |...sprites.....I|
00000c40 25 3d 30 b8 6e 73 25 0d 06 e0 29 f2 73 65 74 53 |%=0.ns%...).setS|
00000c50 70 72 69 74 65 28 22 53 51 55 41 52 45 22 2b c3 |prite("SQUARE"+.|
00000c60 49 25 2c 53 25 28 49 25 29 2c 61 25 2c 62 25 29 |I%,S%(I%),a%,b%)|
00000c70 0d 06 ea 05 ed 0d 06 f4 0b e3 49 25 3d 30 b8 31 |..........I%=0.1|
00000c80 0d 06 fe 2b f2 73 65 74 53 70 72 69 74 65 28 22 |...+.setSprite("|
00000c90 4d 41 4e 48 4f 4c 45 22 2b c3 49 25 2c 42 30 25 |MANHOLE"+.I%,B0%|
00000ca0 28 49 25 29 2c 61 25 2c 62 25 29 0d 07 08 29 f2 |(I%),a%,b%)...).|
00000cb0 73 65 74 53 70 72 69 74 65 28 22 49 43 4f 4e 22 |setSprite("ICON"|
00000cc0 2b c3 49 25 2c 42 30 61 25 28 49 25 29 2c 61 25 |+.I%,B0a%(I%),a%|
00000cd0 2c 62 25 29 0d 07 12 2a f2 73 65 74 53 70 72 69 |,b%)...*.setSpri|
00000ce0 74 65 28 22 51 55 45 45 4e 22 2b c3 49 25 2c 42 |te("QUEEN"+.I%,B|
00000cf0 30 62 25 28 49 25 29 2c 61 25 2c 62 25 29 0d 07 |0b%(I%),a%,b%)..|
00000d00 1c 05 ed 0d 07 26 0b e3 49 25 3d 30 b8 31 0d 07 |.....&..I%=0.1..|
00000d10 30 29 f2 73 65 74 53 70 72 69 74 65 28 22 4a 43 |0).setSprite("JC|
00000d20 42 22 2b c3 28 49 25 29 2c 42 31 25 28 49 25 29 |B"+.(I%),B1%(I%)|
00000d30 2c 61 25 2c 62 25 29 0d 07 3a 2b f2 73 65 74 53 |,a%,b%)..:+.setS|
00000d40 70 72 69 74 65 28 22 4a 43 42 22 2b c3 28 49 25 |prite("JCB"+.(I%|
00000d50 2b 32 29 2c 62 31 25 28 49 25 29 2c 61 25 2c 62 |+2),b1%(I%),a%,b|
00000d60 25 29 0d 07 44 2d f2 73 65 74 53 70 72 69 74 65 |%)..D-.setSprite|
00000d70 28 22 49 43 4f 4e 22 2b c3 28 49 25 2b 32 29 2c |("ICON"+.(I%+2),|
00000d80 42 31 61 25 28 49 25 29 2c 61 25 2c 62 25 29 0d |B1a%(I%),a%,b%).|
00000d90 07 4e 2f f2 73 65 74 53 70 72 69 74 65 28 22 44 |.N/.setSprite("D|
00000da0 4f 55 42 4c 45 22 2b c3 28 49 25 2b 32 29 2c 62 |OUBLE"+.(I%+2),b|
00000db0 31 61 25 28 49 25 29 2c 61 25 2c 62 25 29 0d 07 |1a%(I%),a%,b%)..|
00000dc0 58 53 f2 73 65 74 53 70 72 69 74 65 28 22 42 41 |XS.setSprite("BA|
00000dd0 54 22 2b c3 28 49 25 29 2c 42 31 62 25 28 49 25 |T"+.(I%),B1b%(I%|
00000de0 29 2c 61 25 2c 62 25 29 3a f2 73 65 74 53 70 72 |),a%,b%):.setSpr|
00000df0 69 74 65 28 22 42 41 54 22 2b c3 28 49 25 2b 32 |ite("BAT"+.(I%+2|
00000e00 29 2c 62 31 62 25 28 49 25 29 2c 61 25 2c 62 25 |),b1b%(I%),a%,b%|
00000e10 29 0d 07 62 05 ed 0d 07 6c 0b e3 49 25 3d 30 b8 |)..b....l..I%=0.|
00000e20 33 0d 07 76 29 f2 73 65 74 53 70 72 69 74 65 28 |3..v).setSprite(|
00000e30 22 52 41 54 22 2b c3 28 49 25 29 2c 42 32 25 28 |"RAT"+.(I%),B2%(|
00000e40 49 25 29 2c 61 25 2c 62 25 29 0d 07 80 2d f2 73 |I%),a%,b%)...-.s|
00000e50 65 74 53 70 72 69 74 65 28 22 49 43 4f 4e 22 2b |etSprite("ICON"+|
00000e60 c3 28 49 25 2b 31 32 29 2c 62 32 25 28 49 25 29 |.(I%+12),b2%(I%)|
00000e70 2c 61 25 2c 62 25 29 0d 07 8a 2c f2 73 65 74 53 |,a%,b%)...,.setS|
00000e80 70 72 69 74 65 28 22 50 41 49 4e 54 22 2b c3 28 |prite("PAINT"+.(|
00000e90 49 25 29 2c 62 32 61 25 28 49 25 29 2c 61 25 2c |I%),b2a%(I%),a%,|
00000ea0 62 25 29 0d 07 94 2d f2 73 65 74 53 70 72 69 74 |b%)...-.setSprit|
00000eb0 65 28 22 49 43 4f 4e 22 2b c3 28 49 25 2b 34 29 |e("ICON"+.(I%+4)|
00000ec0 2c 42 32 61 25 28 49 25 29 2c 61 25 2c 62 25 29 |,B2a%(I%),a%,b%)|
00000ed0 0d 07 9e 2b f2 73 65 74 53 70 72 69 74 65 28 22 |...+.setSprite("|
00000ee0 44 4f 4f 52 22 2b c3 28 49 25 29 2c 42 32 62 25 |DOOR"+.(I%),B2b%|
00000ef0 28 49 25 29 2c 61 25 2c 62 25 29 0d 07 a8 2a f2 |(I%),a%,b%)...*.|
00000f00 73 65 74 53 70 72 69 74 65 28 22 4d 41 4e 22 2b |setSprite("MAN"+|
00000f10 c3 28 49 25 29 2c 62 32 62 25 28 49 25 29 2c 61 |.(I%),b2b%(I%),a|
00000f20 25 2c 62 25 29 0d 07 b2 05 ed 0d 07 bc 0b e3 49 |%,b%)..........I|
00000f30 25 3d 30 b8 33 0d 07 c6 30 f2 73 65 74 53 70 72 |%=0.3...0.setSpr|
00000f40 69 74 65 28 22 49 43 4f 4e 22 2b c3 28 49 25 29 |ite("ICON"+.(I%)|
00000f50 2b 22 41 22 2c 42 33 25 28 49 25 2c 30 29 2c 61 |+"A",B3%(I%,0),a|
00000f60 25 2c 62 25 29 0d 07 d0 30 f2 73 65 74 53 70 72 |%,b%)...0.setSpr|
00000f70 69 74 65 28 22 49 43 4f 4e 22 2b c3 28 49 25 29 |ite("ICON"+.(I%)|
00000f80 2b 22 42 22 2c 42 33 25 28 49 25 2c 31 29 2c 61 |+"B",B3%(I%,1),a|
00000f90 25 2c 62 25 29 0d 07 da 33 f2 73 65 74 53 70 72 |%,b%)...3.setSpr|
00000fa0 69 74 65 28 22 41 52 54 49 53 54 22 2b c3 28 49 |ite("ARTIST"+.(I|
00000fb0 25 29 2b 22 41 22 2c 42 33 61 25 28 49 25 2c 30 |%)+"A",B3a%(I%,0|
00000fc0 29 2c 61 25 2c 62 25 29 0d 07 e4 33 f2 73 65 74 |),a%,b%)...3.set|
00000fd0 53 70 72 69 74 65 28 22 41 52 54 49 53 54 22 2b |Sprite("ARTIST"+|
00000fe0 c3 28 49 25 29 2b 22 42 22 2c 42 33 61 25 28 49 |.(I%)+"B",B3a%(I|
00000ff0 25 2c 31 29 2c 61 25 2c 62 25 29 0d 07 ee 33 f2 |%,1),a%,b%)...3.|
00001000 73 65 74 53 70 72 69 74 65 28 22 50 55 50 50 45 |setSprite("PUPPE|
00001010 54 22 2b c3 28 49 25 29 2b 22 41 22 2c 42 33 62 |T"+.(I%)+"A",B3b|
00001020 25 28 49 25 2c 30 29 2c 61 25 2c 62 25 29 0d 07 |%(I%,0),a%,b%)..|
00001030 f8 33 f2 73 65 74 53 70 72 69 74 65 28 22 50 55 |.3.setSprite("PU|
00001040 50 50 45 54 22 2b c3 28 49 25 29 2b 22 42 22 2c |PPET"+.(I%)+"B",|
00001050 42 33 62 25 28 49 25 2c 31 29 2c 61 25 2c 62 25 |B3b%(I%,1),a%,b%|
00001060 29 0d 08 02 05 ed 0d 08 0c 0b e3 49 25 3d 30 b8 |)..........I%=0.|
00001070 33 0d 08 16 2c f2 73 65 74 53 70 72 69 74 65 28 |3...,.setSprite(|
00001080 22 49 43 4f 4e 22 2b c3 28 49 25 2b 38 29 2c 42 |"ICON"+.(I%+8),B|
00001090 34 25 28 49 25 29 2c 61 25 2c 62 25 29 0d 08 20 |4%(I%),a%,b%).. |
000010a0 05 ed 0d 08 2a 0c e3 49 25 3d 30 b8 79 25 0d 08 |....*..I%=0.y%..|
000010b0 34 2c f2 73 65 74 53 70 72 69 74 65 28 22 59 4f |4,.setSprite("YO|
000010c0 55 22 2b c3 49 25 2b 22 41 22 2c 59 25 28 49 25 |U"+.I%+"A",Y%(I%|
000010d0 2c 30 29 2c 61 25 2c 62 25 29 0d 08 3e 2c f2 73 |,0),a%,b%)..>,.s|
000010e0 65 74 53 70 72 69 74 65 28 22 59 4f 55 22 2b c3 |etSprite("YOU"+.|
000010f0 49 25 2b 22 42 22 2c 59 25 28 49 25 2c 31 29 2c |I%+"B",Y%(I%,1),|
00001100 61 25 2c 62 25 29 0d 08 48 05 ed 0d 08 52 0c e3 |a%,b%)..H....R..|
00001110 49 25 3d 30 b8 63 25 0d 08 5c 29 f2 73 65 74 53 |I%=0.c%..\).setS|
00001120 70 72 69 74 65 28 22 43 52 41 54 45 52 22 2b c3 |prite("CRATER"+.|
00001130 49 25 2c 43 25 28 49 25 29 2c 61 25 2c 62 25 29 |I%,C%(I%),a%,b%)|
00001140 0d 08 66 05 ed 0d 08 70 0b e3 49 25 3d 30 b8 33 |..f....p..I%=0.3|
00001150 0d 08 7a 2a f2 73 65 74 53 70 72 69 74 65 28 22 |..z*.setSprite("|
00001160 50 4f 55 52 22 2b c3 49 25 2c 70 6f 75 72 25 28 |POUR"+.I%,pour%(|
00001170 49 25 29 2c 61 25 2c 62 25 29 0d 08 84 05 ed 0d |I%),a%,b%)......|
00001180 08 8e 0d e3 49 25 3d 30 b8 6e 6d 25 0d 08 98 2a |....I%=0.nm%...*|
00001190 f2 73 65 74 53 70 72 69 74 65 28 22 4d 49 53 53 |.setSprite("MISS|
000011a0 49 4c 45 22 2b c3 49 25 2c 4d 25 28 49 25 29 2c |ILE"+.I%,M%(I%),|
000011b0 61 25 2c 62 25 29 0d 08 a2 2a f2 73 65 74 53 70 |a%,b%)...*.setSp|
000011c0 72 69 74 65 28 22 43 48 45 45 53 45 22 2b c3 49 |rite("CHEESE"+.I|
000011d0 25 2c 4d 61 25 28 49 25 29 2c 61 25 2c 62 25 29 |%,Ma%(I%),a%,b%)|
000011e0 0d 08 ac 28 f2 73 65 74 53 70 72 69 74 65 28 22 |...(.setSprite("|
000011f0 43 48 4f 43 22 2b c3 49 25 2c 4d 62 25 28 49 25 |CHOC"+.I%,Mb%(I%|
00001200 29 2c 61 25 2c 62 25 29 0d 08 b6 05 ed 0d 08 c0 |),a%,b%)........|
00001210 0e e3 49 25 3d 30 b8 65 78 70 25 0d 08 ca 2a f2 |..I%=0.exp%...*.|
00001220 73 65 74 53 70 72 69 74 65 28 22 45 58 50 4c 4f |setSprite("EXPLO|
00001230 44 45 22 2b c3 49 25 2c 45 25 28 49 25 29 2c 61 |DE"+.I%,E%(I%),a|
00001240 25 2c 62 25 29 0d 08 d4 05 ed 0d 08 de 0e e3 49 |%,b%)..........I|
00001250 25 3d 30 b8 6e 62 78 25 0d 08 e8 2a f2 73 65 74 |%=0.nbx%...*.set|
00001260 53 70 72 69 74 65 28 22 58 42 4c 49 4d 50 22 2b |Sprite("XBLIMP"+|
00001270 c3 49 25 2c 58 42 25 28 49 25 29 2c 61 25 2c 62 |.I%,XB%(I%),a%,b|
00001280 25 29 0d 08 f2 05 ed 0d 08 fc 0b e3 49 25 3d 30 |%)..........I%=0|
00001290 b8 32 0d 09 06 2b f2 73 65 74 53 70 72 69 74 65 |.2...+.setSprite|
000012a0 28 22 54 52 45 41 53 55 52 45 22 2b c3 49 25 2c |("TREASURE"+.I%,|
000012b0 54 25 28 49 25 29 2c 61 25 2c 62 25 29 0d 09 10 |T%(I%),a%,b%)...|
000012c0 05 ed 0d 09 1a 24 f2 73 65 74 53 70 72 69 74 65 |.....$.setSprite|
000012d0 28 22 4c 49 56 45 53 22 2c 6c 69 76 65 73 25 2c |("LIVES",lives%,|
000012e0 61 25 2c 62 25 29 0d 09 24 2a f2 73 65 74 53 70 |a%,b%)..$*.setSp|
000012f0 72 69 74 65 28 22 47 41 4d 45 4f 56 45 52 22 2c |rite("GAMEOVER",|
00001300 67 61 6d 65 6f 76 65 72 25 2c 61 25 2c 62 25 29 |gameover%,a%,b%)|
00001310 0d 09 2e 05 e1 0d 09 38 22 dd f2 73 65 74 53 70 |.......8"..setSp|
00001320 72 69 74 65 28 73 24 2c f8 20 41 25 2c f8 20 57 |rite(s$,. A%,. W|
00001330 25 2c f8 20 48 25 29 0d 09 42 28 c8 99 20 22 4f |%,. H%)..B(.. "O|
00001340 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 35 36 2b |S_SpriteOp",256+|
00001350 32 34 2c 53 25 2c 73 24 20 b8 20 2c 2c 41 25 0d |24,S%,s$ . ,,A%.|
00001360 09 4c 2c c8 99 20 22 4f 53 5f 53 70 72 69 74 65 |.L,.. "OS_Sprite|
00001370 4f 70 22 2c 32 35 36 2b 34 30 2c 53 25 2c 73 24 |Op",256+40,S%,s$|
00001380 20 b8 20 2c 2c 2c 57 25 2c 48 25 0d 09 56 13 57 | . ,,,W%,H%..V.W|
00001390 25 3d 57 25 2a 34 3a 48 25 3d 48 25 2a 34 0d 09 |%=W%*4:H%=H%*4..|
000013a0 60 05 e1 0d 09 6a 05 20 0d 09 74 0a dd f2 67 72 |`....j. ..t...gr|
000013b0 61 62 0d 09 7e 0d 67 24 3d 22 67 72 61 62 22 0d |ab..~.g$="grab".|
000013c0 09 88 0e de 20 67 25 20 36 34 30 30 30 0d 09 92 |.... g% 64000...|
000013d0 0e 67 25 21 30 3d 36 34 30 30 30 0d 09 9c 0b 67 |.g%!0=64000....g|
000013e0 25 21 38 3d 31 36 0d 09 a6 1d c8 99 20 22 4f 53 |%!8=16...... "OS|
000013f0 5f 53 70 72 69 74 65 4f 70 22 2c 32 35 36 2b 39 |_SpriteOp",256+9|
00001400 2c 67 25 0d 09 b0 05 e1 0d 09 ba 05 20 0d 09 c4 |,g%......... ...|
00001410 0a dd f2 6e 65 78 74 0d 09 ce 0a 42 25 3d 31 32 |...next....B%=12|
00001420 38 0d 09 d8 07 ef 32 36 0d 09 e2 14 e3 49 25 3d |8.....26.....I%=|
00001430 31 32 38 b8 31 30 32 34 88 31 32 38 0d 09 ec 07 |128.1024.128....|
00001440 f3 57 25 0d 09 f6 21 c8 99 20 4f 24 2c 26 32 32 |.W%...!.. O$,&22|
00001450 32 2c 53 25 2c 53 25 28 57 25 29 2c 49 25 2c 38 |2,S%,S%(W%),I%,8|
00001460 39 36 2c 30 0d 0a 00 05 ed 0d 0a 0a 2a c8 99 20 |96,0........*.. |
00001470 4f 24 2c 32 35 36 2b 31 36 2c 67 25 2c 67 24 2c |O$,256+16,g%,g$,|
00001480 30 2c 31 32 38 2c 31 32 38 2c 31 31 34 38 2c 31 |0,128,128,1148,1|
00001490 30 32 30 0d 0a 14 10 ef 32 38 2c 30 2c 33 2c 33 |020.....28,0,3,3|
000014a0 39 2c 30 0d 0a 1e 23 fb 63 6f 6c 25 2b 31 32 38 |9,0...#.col%+128|
000014b0 3a c8 9c 31 2c 74 69 6e 74 25 3a db 3a f2 73 63 |:..1,tint%:.:.sc|
000014c0 6f 72 65 28 30 29 0d 0a 28 19 ef 32 34 2c 31 32 |ore(0)..(..24,12|
000014d0 38 3b 31 32 38 3b 31 31 34 38 3b 38 39 32 3b 0d |8;128;1148;892;.|
000014e0 0a 32 09 4f 25 2b 3d 31 0d 0a 3c 05 e1 0d 0a 46 |.2.O%+=1..<....F|
000014f0 05 20 0d 0a 50 0b dd f2 66 69 78 69 74 0d 0a 5a |. ..P...fixit..Z|
00001500 30 e7 61 25 3e 3d 31 32 38 80 61 25 3c 31 30 32 |0.a%>=128.a%<102|
00001510 30 3a c8 99 20 4f 24 2c 26 32 32 32 2c 53 25 2c |0:.. O$,&222,S%,|
00001520 43 25 28 33 29 2c 61 25 2c 62 25 2c 38 0d 0a 64 |C%(3),a%,b%,8..d|
00001530 2f c8 99 20 4f 24 2c 26 31 31 30 2c 67 25 2c 67 |/.. O$,&110,g%,g|
00001540 24 2c 30 2c 41 25 2c 42 25 2c 31 31 34 38 2c 31 |$,0,A%,B%,1148,1|
00001550 30 32 30 2d 28 31 32 38 2d 42 25 29 0d 0a 6e 13 |020-(128-B%)..n.|
00001560 e6 63 6f 6c 25 3a c8 9c 32 2c 74 69 6e 74 25 0d |.col%:..2,tint%.|
00001570 0a 78 24 c8 93 20 c8 90 20 31 32 38 2c 38 39 36 |.x$.. .. 128,896|
00001580 2c 31 30 32 30 2c 31 32 38 3a f2 73 63 6f 72 65 |,1020,128:.score|
00001590 28 30 29 0d 0a 82 18 c8 93 20 c8 90 20 31 32 38 |(0)...... .. 128|
000015a0 2c 30 2c 31 30 32 30 2c 31 32 34 0d 0a 8c 19 ef |,0,1020,124.....|
000015b0 32 34 2c 31 32 38 3b 31 32 38 3b 31 31 34 38 3b |24,128;128;1148;|
000015c0 38 39 32 3b 0d 0a 96 0a 73 63 72 25 3d 30 0d 0a |892;....scr%=0..|
000015d0 a0 05 e1 0d 0a aa 05 20 0d 0a b4 09 dd f2 62 61 |....... ......ba|
000015e0 64 0d 0a be 0c e3 49 25 3d 30 b8 6e 25 0d 0a c8 |d.....I%=0.n%...|
000015f0 0f c8 8e 20 73 25 28 49 25 29 20 ca 0d 0a d2 18 |... s%(I%) .....|
00001600 c9 20 30 3a f2 73 65 6c 65 63 74 62 61 64 64 79 |. 0:.selectbaddy|
00001610 28 49 25 29 0d 0a dc 16 c9 20 31 3a f2 6d 6f 76 |(I%)..... 1:.mov|
00001620 65 62 61 64 64 79 28 49 25 29 0d 0a e6 16 c9 20 |ebaddy(I%)..... |
00001630 32 3a f2 6b 69 6c 6c 62 61 64 64 79 28 49 25 29 |2:.killbaddy(I%)|
00001640 0d 0a f0 19 c9 20 33 3a f2 72 65 73 74 6f 72 65 |..... 3:.restore|
00001650 62 61 64 78 79 28 49 25 29 0d 0a fa 10 c9 20 35 |badxy(I%)..... 5|
00001660 3a f2 65 78 42 4c 49 4d 50 0d 0b 04 05 cb 0d 0b |:.exBLIMP.......|
00001670 0e 05 ed 0d 0b 18 05 e1 0d 0b 22 05 20 0d 0b 2c |..........". ..,|
00001680 17 dd f2 73 65 6c 65 63 74 62 61 64 64 79 28 62 |...selectbaddy(b|
00001690 61 64 25 29 0d 0b 36 0d c8 8e 20 62 61 64 25 20 |ad%)..6... bad% |
000016a0 ca 0d 0b 40 17 c9 20 30 3a e7 b3 28 35 30 29 3d |...@.. 0:..(50)=|
000016b0 31 73 25 28 30 29 3d 31 0d 0b 4a 0f c9 20 31 3a |1s%(0)=1..J.. 1:|
000016c0 73 25 28 31 29 3d 31 0d 0b 54 1e c9 20 32 3a e7 |s%(1)=1..T.. 2:.|
000016d0 73 25 28 34 29 3d 30 80 42 25 3d 31 32 38 73 25 |s%(4)=0.B%=128s%|
000016e0 28 32 29 3d 31 0d 0b 5e 0f c9 20 33 3a 73 25 28 |(2)=1..^.. 3:s%(|
000016f0 33 29 3d 31 0d 0b 68 1f c9 20 34 3a e7 73 25 28 |3)=1..h.. 4:.s%(|
00001700 32 29 3d 30 80 b3 28 33 32 29 3d 31 73 25 28 34 |2)=0..(32)=1s%(4|
00001710 29 3d 31 0d 0b 72 05 cb 0d 0b 7c 05 e1 0d 0b 86 |)=1..r....|.....|
00001720 15 dd f2 6d 6f 76 65 62 61 64 64 79 28 62 61 64 |...movebaddy(bad|
00001730 25 29 0d 0b 90 0d c8 8e 20 62 61 64 25 20 ca 0d |%)...... bad% ..|
00001740 0b 9a 0f c9 20 30 3a f2 66 6f 6c 6c 6f 77 0d 0b |.... 0:.follow..|
00001750 a4 0f c9 20 31 3a f2 64 6f 77 6e 65 72 0d 0b ae |... 1:.downer...|
00001760 0f c9 20 32 3a f2 73 69 74 74 65 72 0d 0b b8 0e |.. 2:.sitter....|
00001770 c9 20 33 3a f2 72 6f 76 65 72 0d 0b c2 0e c9 20 |. 3:.rover..... |
00001780 34 3a f2 62 6c 69 6d 70 0d 0b cc 05 cb 0d 0b d6 |4:.blimp........|
00001790 05 e1 0d 0b e0 05 20 0d 0b ea 0c dd f2 66 6f 6c |...... ......fol|
000017a0 6c 6f 77 0d 0b f4 0d c8 8e 20 66 6f 6c 25 20 ca |low...... fol% .|
000017b0 0d 0b fe 0e c9 20 30 3a 66 63 25 2b 3d 31 0d 0c |..... 0:fc%+=1..|
000017c0 08 13 20 e7 56 25 28 30 29 2d 59 25 3c 3e 30 20 |.. .V%(0)-Y%<>0 |
000017d0 8c 0d 0c 12 18 20 20 e7 56 25 28 30 29 3e 59 25 |..... .V%(0)>Y%|
000017e0 56 25 28 30 29 2d 3d 71 25 0d 0c 1c 1c 20 20 e7 |V%(0)-=q%.... .|
000017f0 56 25 28 30 29 3c 59 25 56 25 28 30 29 2b 3d 28 |V%(0)<Y%V%(0)+=(|
00001800 71 25 2f 32 29 0d 0c 26 06 20 cd 0d 0c 30 13 20 |q%/2)..&. ...0. |
00001810 e7 55 25 28 30 29 2d 58 25 3c 3e 30 20 8c 0d 0c |.U%(0)-X%<>0 ...|
00001820 3a 18 20 20 e7 55 25 28 30 29 3e 58 25 55 25 28 |:. .U%(0)>X%U%(|
00001830 30 29 2d 3d 71 25 0d 0c 44 18 20 20 e7 55 25 28 |0)-=q%..D. .U%(|
00001840 30 29 3c 58 25 55 25 28 30 29 2b 3d 71 25 0d 0c |0)<X%U%(0)+=q%..|
00001850 4e 06 20 cd 0d 0c 58 13 c9 20 31 3a 55 25 28 30 |N. ...X.. 1:U%(0|
00001860 29 2b 3d 66 25 2a 34 0d 0c 62 05 cb 0d 0c 6c 15 |)+=f%*4..b....l.|
00001870 e7 51 25 3d 31 66 6f 6c 25 3d 31 3a 66 63 25 3d |.Q%=1fol%=1:fc%=|
00001880 30 0d 0c 76 0f e7 66 63 25 3e 3d 66 74 25 20 8c |0..v..fc%>=ft% .|
00001890 0d 0c 80 20 e7 66 25 3d 2d 38 3a e7 55 25 28 30 |... .f%=-8:.U%(0|
000018a0 29 3c 58 25 66 6f 6c 25 3d 31 3a 66 63 25 3d 30 |)<X%fol%=1:fc%=0|
000018b0 0d 0c 8a 20 e7 66 25 3d 20 38 3a e7 55 25 28 30 |... .f%= 8:.U%(0|
000018c0 29 3e 58 25 66 6f 6c 25 3d 31 3a 66 63 25 3d 30 |)>X%fol%=1:fc%=0|
000018d0 0d 0c 94 05 cd 0d 0c 9e 28 c8 99 20 4f 24 2c 26 |........(.. O$,&|
000018e0 32 32 32 2c 53 25 2c 42 30 25 28 7a 30 25 29 2c |222,S%,B0%(z0%),|
000018f0 55 25 28 30 29 2c 56 25 28 30 29 2c 38 0d 0c a8 |U%(0),V%(0),8...|
00001900 1e e7 55 25 28 30 29 3c 30 84 55 25 28 30 29 3e |..U%(0)<0.U%(0)>|
00001910 31 31 35 32 73 25 28 30 29 3d 33 0d 0c b2 13 e7 |1152s%(0)=3.....|
00001920 77 30 25 3d 30 7a 30 25 3d 31 2d 7a 30 25 0d 0c |w0%=0z0%=1-z0%..|
00001930 bc 11 77 30 25 3d 28 77 30 25 2b 31 29 83 34 0d |..w0%=(w0%+1).4.|
00001940 0c c6 32 e7 a4 63 6f 6c 28 30 2c 36 34 2c 31 32 |..2..col(0,64,12|
00001950 38 29 3d 31 80 51 25 3d 30 d4 34 2c 2d 31 35 2c |8)=1.Q%=0.4,-15,|
00001960 2d 31 35 30 2c 31 35 3a f2 6b 69 6c 6c 79 6f 75 |-150,15:.killyou|
00001970 31 0d 0c d0 05 e1 0d 0c da 05 20 0d 0c e4 0c dd |1......... .....|
00001980 f2 64 6f 77 6e 65 72 0d 0c ee 0d 56 25 28 31 29 |.downer....V%(1)|
00001990 2d 3d 32 34 0d 0c f8 0e 55 25 28 31 29 2b 3d 62 |-=24....U%(1)+=b|
000019a0 31 25 0d 0d 02 28 c8 99 20 4f 24 2c 26 32 32 32 |1%...(.. O$,&222|
000019b0 2c 53 25 2c 42 31 25 28 7a 31 25 29 2c 55 25 28 |,S%,B1%(z1%),U%(|
000019c0 31 29 2c 56 25 28 31 29 2c 38 0d 0d 0c 14 e7 56 |1),V%(1),8.....V|
000019d0 25 28 31 29 3c 3d 30 73 25 28 31 29 3d 33 0d 0d |%(1)<=0s%(1)=3..|
000019e0 16 13 e7 77 31 25 3d 30 7a 31 25 3d 31 2d 7a 31 |...w1%=0z1%=1-z1|
000019f0 25 0d 0d 20 11 77 31 25 3d 28 77 31 25 2b 31 29 |%.. .w1%=(w1%+1)|
00001a00 83 34 0d 0d 2a 0c c8 8e 20 77 42 25 20 ca 0d 0d |.4..*... wB% ...|
00001a10 34 36 c9 20 30 3a e7 a4 63 6f 6c 28 31 2c 39 36 |46. 0:..col(1,96|
00001a20 2c 31 32 38 29 3d 31 80 51 25 3d 30 d4 34 2c 2d |,128)=1.Q%=0.4,-|
00001a30 31 35 2c 2d 31 34 30 2c 31 35 3a f2 6b 69 6c 6c |15,-140,15:.kill|
00001a40 79 6f 75 31 0d 0d 3e 41 c9 20 31 3a 55 25 28 31 |you1..>A. 1:U%(1|
00001a50 29 2b 3d 31 32 38 3a e7 a4 63 6f 6c 28 31 2c 39 |)+=128:..col(1,9|
00001a60 36 2c 31 32 38 29 3d 31 80 51 25 3d 30 d4 34 2c |6,128)=1.Q%=0.4,|
00001a70 2d 31 35 2c 2d 31 33 30 2c 31 35 3a f2 6b 69 6c |-15,-130,15:.kil|
00001a80 6c 79 6f 75 31 0d 0d 48 0e 55 25 28 31 29 2d 3d |lyou1..H.U%(1)-=|
00001a90 31 32 38 0d 0d 52 05 cb 0d 0d 5c 05 e1 0d 0d 66 |128..R....\....f|
00001aa0 05 20 0d 0d 70 0c dd f2 73 69 74 74 65 72 0d 0d |. ..p...sitter..|
00001ab0 7a 0c 56 25 28 32 29 2d 3d 34 0d 0d 84 28 c8 99 |z.V%(2)-=4...(..|
00001ac0 20 4f 24 2c 26 32 32 32 2c 53 25 2c 42 32 25 28 | O$,&222,S%,B2%(|
00001ad0 7a 32 25 29 2c 55 25 28 32 29 2c 56 25 28 32 29 |z2%),U%(2),V%(2)|
00001ae0 2c 38 0d 0d 8e 13 e7 56 25 28 32 29 3d 30 73 25 |,8.....V%(2)=0s%|
00001af0 28 32 29 3d 33 0d 0d 98 25 77 32 25 3d 28 77 32 |(2)=3...%w2%=(w2|
00001b00 25 2b 31 29 83 32 3a e7 77 32 25 3d 30 7a 32 25 |%+1).2:.w2%=0z2%|
00001b10 3d 28 7a 32 25 2b 31 29 83 34 0d 0d a2 2a e7 6b |=(z2%+1).4...*.k|
00001b20 32 25 3d 31 3a e7 a4 63 6f 6c 28 32 2c 39 36 2c |2%=1:..col(2,96,|
00001b30 31 32 38 29 3d 31 80 51 25 3d 30 f2 6b 69 6c 6c |128)=1.Q%=0.kill|
00001b40 79 6f 75 32 0d 0d ac 05 e1 0d 0d b6 05 20 0d 0d |you2......... ..|
00001b50 c0 0b dd f2 72 6f 76 65 72 0d 0d ca 2b c8 99 20 |....rover...+.. |
00001b60 4f 24 2c 26 32 32 32 2c 53 25 2c 42 33 25 28 64 |O$,&222,S%,B3%(d|
00001b70 25 2c 7a 33 25 29 2c 55 25 28 33 29 2c 56 25 28 |%,z3%),U%(3),V%(|
00001b80 33 29 2c 38 0d 0d d4 05 20 0d 0d de 0b c8 8e 20 |3),8.... ...... |
00001b90 64 25 20 ca 0d 0d e8 24 c9 20 30 3a 56 25 28 33 |d% ....$. 0:V%(3|
00001ba0 29 2b 3d 72 73 25 3a e7 56 25 28 33 29 3e 38 39 |)+=rs%:.V%(3)>89|
00001bb0 32 73 25 28 33 29 3d 33 0d 0d f2 25 c9 20 31 3a |2s%(3)=3...%. 1:|
00001bc0 55 25 28 33 29 2b 3d 72 73 25 3a e7 55 25 28 33 |U%(3)+=rs%:.U%(3|
00001bd0 29 3e 31 31 34 38 73 25 28 33 29 3d 33 0d 0d fc |)>1148s%(3)=3...|
00001be0 22 c9 20 32 3a 56 25 28 33 29 2d 3d 72 73 25 3a |". 2:V%(3)-=rs%:|
00001bf0 e7 56 25 28 33 29 3c 30 73 25 28 33 29 3d 33 0d |.V%(3)<0s%(3)=3.|
00001c00 0e 06 22 c9 20 33 3a 55 25 28 33 29 2d 3d 72 73 |..". 3:U%(3)-=rs|
00001c10 25 3a e7 55 25 28 33 29 3c 30 73 25 28 33 29 3d |%:.U%(3)<0s%(3)=|
00001c20 33 0d 0e 10 05 cb 0d 0e 1a 05 20 0d 0e 24 0a 72 |3......... ..$.r|
00001c30 63 25 2b 3d 31 0d 0e 2e 26 e7 72 63 25 3d 72 72 |c%+=1...&.rc%=rr|
00001c40 25 64 25 3d b3 28 34 29 2d 31 3a 72 63 25 3d 30 |%d%=.(4)-1:rc%=0|
00001c50 3a 72 72 25 3d b3 28 38 29 2b 38 0d 0e 38 21 77 |:rr%=.(8)+8..8!w|
00001c60 33 25 3d 28 77 33 25 2b 31 29 83 32 3a e7 77 33 |3%=(w3%+1).2:.w3|
00001c70 25 3d 30 7a 33 25 3d 31 2d 7a 33 25 0d 0e 42 22 |%=0z3%=1-z3%..B"|
00001c80 e7 a4 63 6f 6c 28 33 2c 39 36 2c 39 36 29 3d 31 |..col(3,96,96)=1|
00001c90 80 51 25 3d 30 f2 6b 69 6c 6c 79 6f 75 32 0d 0e |.Q%=0.killyou2..|
00001ca0 4c 05 e1 0d 0e 56 05 20 0d 0e 60 0b dd f2 62 6c |L....V. ..`...bl|
00001cb0 69 6d 70 0d 0e 6a 0b c8 8e 20 74 25 20 ca 0d 0e |imp..j... t% ...|
00001cc0 74 6b c9 20 30 3a 55 25 28 34 29 2b 3d 28 b3 28 |tk. 0:U%(4)+=(.(|
00001cd0 32 29 2d 31 29 2a 38 2d 34 3a 56 25 28 34 29 2d |2)-1)*8-4:V%(4)-|
00001ce0 3d 38 3a c8 99 20 4f 24 2c 26 32 32 32 2c 53 25 |=8:.. O$,&222,S%|
00001cf0 2c 42 34 25 28 7a 34 25 29 2c 55 25 28 34 29 2c |,B4%(z4%),U%(4),|
00001d00 56 25 28 34 29 2c 38 3a 7a 34 25 3d 28 7a 34 25 |V%(4),8:z4%=(z4%|
00001d10 2b 31 29 83 34 3a e7 56 25 28 34 29 3c 3d 2d 31 |+1).4:.V%(4)<=-1|
00001d20 32 38 73 25 28 34 29 3d 33 0d 0e 7e 22 e7 a4 63 |28s%(4)=3..~"..c|
00001d30 6f 6c 28 34 2c 39 36 2c 39 36 29 3d 31 80 51 25 |ol(4,96,96)=1.Q%|
00001d40 3d 30 f2 6b 69 6c 6c 79 6f 75 32 0d 0e 88 34 c9 |=0.killyou2...4.|
00001d50 20 31 3a 56 25 28 34 29 2d 3d 34 3a c8 99 20 4f | 1:V%(4)-=4:.. O|
00001d60 24 2c 26 32 32 32 2c 53 25 2c 54 25 28 77 74 25 |$,&222,S%,T%(wt%|
00001d70 29 2c 55 25 28 34 29 2c 56 25 28 34 29 2c 38 0d |),U%(4),V%(4),8.|
00001d80 0e 92 1c e7 56 25 28 34 29 3c 3d 2d 31 32 38 73 |....V%(4)<=-128s|
00001d90 25 28 34 29 3d 33 3a 74 25 3d 32 0d 0e 9c 44 e7 |%(4)=3:t%=2...D.|
00001da0 a4 63 6f 6c 28 34 2c 36 34 2c 36 34 29 3d 31 80 |.col(4,64,64)=1.|
00001db0 51 25 3d 30 ef 37 3a d4 36 2c 2d 31 34 2c 2d 33 |Q%=0.7:.6,-14,-3|
00001dc0 30 2c 32 30 3a f2 73 63 6f 72 65 28 35 30 30 30 |0,20:.score(5000|
00001dd0 30 29 3a 74 25 3d 32 3a 73 25 28 34 29 3d 33 0d |0):t%=2:s%(4)=3.|
00001de0 0e a6 05 cb 0d 0e b0 05 e1 0d 0e ba 0a dd f2 66 |...............f|
00001df0 69 72 65 0d 0e c4 09 46 25 3d 2d 31 0d 0e ce 0c |ire....F%=-1....|
00001e00 e3 49 25 3d 30 b8 6d 25 0d 0e d8 14 e7 4d 44 25 |.I%=0.m%.....MD%|
00001e10 28 49 25 29 3d 2d 31 46 25 3d 49 25 0d 0e e2 05 |(I%)=-1F%=I%....|
00001e20 ed 0d 0e ec 0b e7 46 25 3d 2d 31 e1 0d 0e f6 0e |......F%=-1.....|
00001e30 d4 31 2c 2d 31 30 2c 30 2c 31 0d 0f 00 0b c8 8e |.1,-10,0,1......|
00001e40 20 44 25 20 ca 0d 0f 0a 39 c9 20 30 3a 50 25 28 | D% ....9. 0:P%(|
00001e50 46 25 29 3d 58 25 2b 34 30 3a 51 25 28 46 25 29 |F%)=X%+40:Q%(F%)|
00001e60 3d 59 25 2b 31 32 38 2d 75 25 3a 70 25 28 46 25 |=Y%+128-u%:p%(F%|
00001e70 29 3d 76 25 3a 71 25 28 46 25 29 3d 75 25 0d 0f |)=v%:q%(F%)=u%..|
00001e80 14 39 c9 20 31 3a 50 25 28 46 25 29 3d 58 25 2b |.9. 1:P%(F%)=X%+|
00001e90 31 32 38 2d 75 25 3a 51 25 28 46 25 29 3d 59 25 |128-u%:Q%(F%)=Y%|
00001ea0 2b 34 30 3a 70 25 28 46 25 29 3d 75 25 3a 71 25 |+40:p%(F%)=u%:q%|
00001eb0 28 46 25 29 3d 76 25 0d 0f 1e 39 c9 20 32 3a 50 |(F%)=v%...9. 2:P|
00001ec0 25 28 46 25 29 3d 58 25 2b 34 30 3a 51 25 28 46 |%(F%)=X%+40:Q%(F|
00001ed0 25 29 3d 59 25 2d 33 32 2b 75 25 3a 70 25 28 46 |%)=Y%-32+u%:p%(F|
00001ee0 25 29 3d 76 25 3a 71 25 28 46 25 29 3d 2d 75 25 |%)=v%:q%(F%)=-u%|
00001ef0 0d 0f 28 39 c9 20 33 3a 50 25 28 46 25 29 3d 58 |..(9. 3:P%(F%)=X|
00001f00 25 2d 33 32 2b 75 25 3a 51 25 28 46 25 29 3d 59 |%-32+u%:Q%(F%)=Y|
00001f10 25 2b 34 30 3a 70 25 28 46 25 29 3d 2d 75 25 3a |%+40:p%(F%)=-u%:|
00001f20 71 25 28 46 25 29 3d 76 25 0d 0f 32 05 cb 0d 0f |q%(F%)=v%..2....|
00001f30 3c 0e 4d 44 25 28 46 25 29 3d 44 25 0d 0f 46 05 |<.MD%(F%)=D%..F.|
00001f40 e1 0d 0f 50 0d dd f2 6d 69 73 73 69 6c 65 0d 0f |...P...missile..|
00001f50 5a 0c e3 4a 25 3d 30 b8 6d 25 0d 0f 64 1c e7 4d |Z..J%=0.m%..d..M|
00001f60 44 25 28 4a 25 29 3e 2d 31 f2 6d 69 73 73 6d 6f |D%(J%)>-1.missmo|
00001f70 76 65 28 4a 25 29 0d 0f 6e 05 ed 0d 0f 78 11 77 |ve(J%)..n....x.w|
00001f80 6d 25 3d 28 77 6d 25 2b 31 29 83 34 0d 0f 82 05 |m%=(wm%+1).4....|
00001f90 e1 0d 0f 8c 05 20 0d 0f 96 12 dd f2 6d 69 73 73 |..... ......miss|
00001fa0 6d 6f 76 65 28 4a 25 29 0d 0f a0 21 50 25 28 4a |move(J%)...!P%(J|
00001fb0 25 29 2b 3d 70 25 28 4a 25 29 3a 51 25 28 4a 25 |%)+=p%(J%):Q%(J%|
00001fc0 29 2b 3d 71 25 28 4a 25 29 0d 0f aa 29 c8 99 20 |)+=q%(J%)...).. |
00001fd0 4f 24 2c 26 32 32 32 2c 53 25 2c 4d 25 28 77 6d |O$,&222,S%,M%(wm|
00001fe0 25 29 2c 50 25 28 4a 25 29 2c 51 25 28 4a 25 29 |%),P%(J%),Q%(J%)|
00001ff0 2c 38 0d 0f b4 05 20 0d 0f be 10 c8 8e 20 4d 44 |,8.... ...... MD|
00002000 25 28 4a 25 29 20 ca 0d 0f c8 1d c9 20 30 3a e7 |%(J%) ...... 0:.|
00002010 51 25 28 4a 25 29 3e 38 39 36 4d 44 25 28 4a 25 |Q%(J%)>896MD%(J%|
00002020 29 3d 2d 31 0d 0f d2 1d c9 20 32 3a e7 51 25 28 |)=-1..... 2:.Q%(|
00002030 4a 25 29 3c 31 32 38 4d 44 25 28 4a 25 29 3d 2d |J%)<128MD%(J%)=-|
00002040 31 0d 0f dc 1e c9 20 31 3a e7 50 25 28 4a 25 29 |1..... 1:.P%(J%)|
00002050 3e 31 31 35 32 4d 44 25 28 4a 25 29 3d 2d 31 0d |>1152MD%(J%)=-1.|
00002060 0f e6 1d c9 20 33 3a e7 50 25 28 4a 25 29 3c 31 |.... 3:.P%(J%)<1|
00002070 32 38 4d 44 25 28 4a 25 29 3d 2d 31 0d 0f f0 05 |28MD%(J%)=-1....|
00002080 cb 0d 0f fa 3c e7 4d 44 25 28 4a 25 29 3e 2d 31 |....<.MD%(J%)>-1|
00002090 3a e7 a4 6d 69 73 28 4a 25 2c 33 32 2c 33 32 29 |:..mis(J%,32,32)|
000020a0 3d 31 4d 44 25 28 4a 25 29 3d 2d 31 3a f2 73 63 |=1MD%(J%)=-1:.sc|
000020b0 6f 72 65 28 53 43 25 28 77 68 25 29 29 0d 10 04 |ore(SC%(wh%))...|
000020c0 05 e1 0d 10 0e 13 dd a4 63 6f 6c 28 6a 25 2c 6b |........col(j%,k|
000020d0 25 2c 6c 25 29 0d 10 18 08 68 25 3d 30 0d 10 22 |%,l%)....h%=0.."|
000020e0 0d e7 51 25 3d 33 3a 3d 68 25 0d 10 2c 3e e7 55 |..Q%=3:=h%..,>.U|
000020f0 25 28 6a 25 29 2d 58 25 3e 2d 6b 25 80 55 25 28 |%(j%)-X%>-k%.U%(|
00002100 6a 25 29 2d 58 25 3c 6b 25 80 56 25 28 6a 25 29 |j%)-X%<k%.V%(j%)|
00002110 2d 59 25 3e 2d 6c 25 80 56 25 28 6a 25 29 2d 59 |-Y%>-l%.V%(j%)-Y|
00002120 25 3c 6c 25 68 25 3d 31 0d 10 36 07 3d 68 25 0d |%<l%h%=1..6.=h%.|
00002130 10 40 05 20 0d 10 4a 13 dd a4 6d 69 73 28 6a 25 |.@. ..J...mis(j%|
00002140 2c 6b 25 2c 6c 25 29 0d 10 54 08 68 25 3d 30 0d |,k%,l%)..T.h%=0.|
00002150 10 5e 0c e3 49 25 3d 31 b8 6e 25 0d 10 68 74 e7 |.^..I%=1.n%..ht.|
00002160 73 25 28 49 25 29 3d 31 3a e7 50 25 28 4a 25 29 |s%(I%)=1:.P%(J%)|
00002170 2d 55 25 28 49 25 29 3e 2d 6b 25 80 50 25 28 4a |-U%(I%)>-k%.P%(J|
00002180 25 29 2d 55 25 28 49 25 29 3c 28 31 36 30 2d 6b |%)-U%(I%)<(160-k|
00002190 25 29 80 51 25 28 4a 25 29 2d 56 25 28 49 25 29 |%).Q%(J%)-V%(I%)|
000021a0 3e 2d 6c 25 80 51 25 28 4a 25 29 2d 56 25 28 49 |>-l%.Q%(J%)-V%(I|
000021b0 25 29 3c 28 31 32 38 2d 6c 25 29 68 25 3d 31 3a |%)<(128-l%)h%=1:|
000021c0 73 25 28 49 25 29 3d 32 3a 77 68 25 3d 49 25 0d |s%(I%)=2:wh%=I%.|
000021d0 10 72 05 ed 0d 10 7c 1c e7 6b 32 25 3d 31 80 73 |.r....|..k2%=1.s|
000021e0 25 28 32 29 3d 32 73 25 28 32 29 3d 31 3a 3d 30 |%(2)=2s%(2)=1:=0|
000021f0 0d 10 86 07 3d 68 25 0d 10 90 05 20 0d 10 9a 15 |....=h%.... ....|
00002200 dd f2 6b 69 6c 6c 62 61 64 64 79 28 62 61 64 25 |..killbaddy(bad%|
00002210 29 0d 10 a4 18 e7 62 61 64 25 3d 34 68 62 25 2b |).....bad%=4hb%+|
00002220 3d 31 3a f2 62 6c 69 6d 70 0d 10 ae 2e c8 99 20 |=1:.blimp...... |
00002230 4f 24 2c 26 32 32 32 2c 53 25 2c 43 25 28 62 25 |O$,&222,S%,C%(b%|
00002240 28 62 61 64 25 29 29 2c 55 25 28 49 25 29 2c 56 |(bad%)),U%(I%),V|
00002250 25 28 49 25 29 2c 38 0d 10 b8 0f d4 32 2c 2d 31 |%(I%),8.....2,-1|
00002260 30 2c 38 2c 31 30 0d 10 c2 0f 62 25 28 62 61 64 |0,8,10....b%(bad|
00002270 25 29 2b 3d 31 0d 10 cc 13 61 25 3d 2d 31 32 38 |%)+=1....a%=-128|
00002280 3a 62 25 3d 2d 31 32 38 0d 10 d6 4b e7 62 25 28 |:b%=-128...K.b%(|
00002290 62 61 64 25 29 3d 33 62 25 28 62 61 64 25 29 3d |bad%)=3b%(bad%)=|
000022a0 30 3a 73 25 28 62 61 64 25 29 3d 33 3a 61 25 3d |0:s%(bad%)=3:a%=|
000022b0 55 25 28 62 61 64 25 29 3a 62 25 3d 56 25 28 62 |U%(bad%):b%=V%(b|
000022c0 61 64 25 29 3a e7 62 61 64 25 3c 3e 34 73 63 72 |ad%):.bad%<>4scr|
000022d0 25 3d 31 0d 10 e0 0c e7 62 61 64 25 3d 34 8c 0d |%=1.....bad%=4..|
000022e0 10 ea 13 e7 68 62 25 3c 68 72 25 73 25 28 34 29 |....hb%<hr%s%(4)|
000022f0 3d 31 0d 10 f4 13 e7 68 62 25 3d 68 72 25 73 25 |=1.....hb%=hr%s%|
00002300 28 34 29 3d 35 0d 10 fe 05 cd 0d 11 08 05 e1 0d |(4)=5...........|
00002310 11 12 18 dd f2 72 65 73 74 6f 72 65 62 61 64 78 |.....restorebadx|
00002320 79 28 62 61 64 25 29 0d 11 1c 0e 73 25 28 62 61 |y(bad%)....s%(ba|
00002330 64 25 29 3d 30 0d 11 26 0d c8 8e 20 62 61 64 25 |d%)=0..&... bad%|
00002340 20 ca 0d 11 30 27 c9 20 30 3a 56 25 28 30 29 3d | ...0'. 0:V%(0)=|
00002350 b3 28 31 39 32 29 2a 34 2b 31 32 38 3a 66 6f 6c |.(192)*4+128:fol|
00002360 25 3d 30 3a 66 63 25 3d 30 0d 11 3a 0c 20 c8 8e |%=0:fc%=0..:. ..|
00002370 20 66 25 20 ca 0d 11 44 27 20 c9 20 38 3a 66 25 | f% ...D' . 8:f%|
00002380 3d 2d 38 3a 66 6c 25 3d 30 3a 66 73 25 3d 31 31 |=-8:fl%=0:fs%=11|
00002390 35 32 3a 55 25 28 30 29 3d 66 73 25 0d 11 4e 27 |52:U%(0)=fs%..N'|
000023a0 20 c9 20 2d 38 3a 66 25 3d 38 3a 66 6c 25 3d 31 | . -8:f%=8:fl%=1|
000023b0 31 35 32 3a 66 73 25 3d 30 3a 55 25 28 30 29 3d |152:fs%=0:U%(0)=|
000023c0 66 73 25 0d 11 58 06 20 cb 0d 11 62 3c c9 20 31 |fs%..X. ...b<. 1|
000023d0 3a 55 25 28 31 29 3d b3 28 32 32 34 29 2a 34 2b |:U%(1)=.(224)*4+|
000023e0 31 32 38 3a 56 25 28 31 29 3d 38 39 36 3a c8 94 |128:V%(1)=896:..|
000023f0 42 31 25 28 29 2c 62 31 25 28 29 3a 77 42 25 3d |B1%(),b1%():wB%=|
00002400 31 2d 77 42 25 0d 11 6c 17 20 62 31 25 3d 28 b3 |1-wB%..l. b1%=(.|
00002410 28 33 29 2d 31 29 2a 31 36 2d 31 36 0d 11 76 2e |(3)-1)*16-16..v.|
00002420 20 c8 99 20 4f 24 2c 26 32 32 46 2c 53 25 2c 42 | .. O$,&22F,S%,B|
00002430 31 25 28 30 29 3a c8 99 20 4f 24 2c 26 32 32 46 |1%(0):.. O$,&22F|
00002440 2c 53 25 2c 42 31 25 28 31 29 0d 11 80 24 c9 20 |,S%,B1%(1)...$. |
00002450 32 3a 55 25 28 32 29 3d b3 28 36 29 2a 31 32 38 |2:U%(2)=.(6)*128|
00002460 2b 31 32 38 3a 56 25 28 32 29 3d 38 39 36 0d 11 |+128:V%(2)=896..|
00002470 8a 1c 20 c8 94 42 32 25 28 29 2c 62 32 25 28 29 |.. ..B2%(),b2%()|
00002480 3a 6b 32 25 3d 31 2d 6b 32 25 0d 11 94 1c c9 20 |:k2%=1-k2%..... |
00002490 33 3a 72 63 25 3d 30 3a 72 72 25 3d 33 32 3a 52 |3:rc%=0:rr%=32:R|
000024a0 25 3d b3 28 34 29 0d 11 9e 0c 20 c8 8e 20 52 25 |%=.(4).... .. R%|
000024b0 20 ca 0d 11 a8 28 20 c9 20 31 3a 64 25 3d 30 3a | ....( . 1:d%=0:|
000024c0 56 25 28 33 29 3d 30 3a 55 25 28 33 29 3d b3 28 |V%(3)=0:U%(3)=.(|
000024d0 32 35 36 29 2a 34 2b 31 32 38 0d 11 b2 28 20 c9 |256)*4+128...( .|
000024e0 20 32 3a 64 25 3d 31 3a 55 25 28 33 29 3d 30 3a | 2:d%=1:U%(3)=0:|
000024f0 56 25 28 33 29 3d b3 28 31 39 32 29 2a 34 2b 31 |V%(3)=.(192)*4+1|
00002500 32 38 0d 11 bc 2a 20 c9 20 33 3a 64 25 3d 32 3a |28...* . 3:d%=2:|
00002510 56 25 28 33 29 3d 38 39 36 3a 55 25 28 33 29 3d |V%(3)=896:U%(3)=|
00002520 b3 28 32 35 36 29 2a 34 2b 31 32 38 0d 11 c6 2b |.(256)*4+128...+|
00002530 20 c9 20 34 3a 64 25 3d 33 3a 55 25 28 33 29 3d | . 4:d%=3:U%(3)=|
00002540 31 31 34 38 3a 56 25 28 33 29 3d b3 28 31 39 32 |1148:V%(3)=.(192|
00002550 29 2a 34 2b 31 32 38 0d 11 d0 06 20 cb 0d 11 da |)*4+128.... ....|
00002560 2f c9 20 34 3a 68 62 25 3d 30 3a 55 25 28 34 29 |/. 4:hb%=0:U%(4)|
00002570 3d b3 28 32 32 34 29 2a 34 2b 31 32 38 3a 56 25 |=.(224)*4+128:V%|
00002580 28 34 29 3d 38 39 36 3a 74 25 3d 30 0d 11 e4 05 |(4)=896:t%=0....|
00002590 cb 0d 11 ee 05 e1 0d 11 f8 05 20 0d 12 02 0d dd |.......... .....|
000025a0 f2 65 78 42 4c 49 4d 50 0d 12 0c 10 d4 33 2c 2d |.exBLIMP.....3,-|
000025b0 31 35 2c 33 30 2c 32 35 0d 12 16 28 c8 99 20 4f |15,30,25...(.. O|
000025c0 24 2c 26 32 32 32 2c 53 25 2c 58 42 25 28 77 78 |$,&222,S%,XB%(wx|
000025d0 25 29 2c 55 25 28 34 29 2c 56 25 28 34 29 2c 38 |%),U%(4),V%(4),8|
000025e0 0d 12 20 0a 77 78 25 2b 3d 31 0d 12 2a 21 e7 77 |.. .wx%+=1..*!.w|
000025f0 78 25 3d 6e 62 78 25 2b 31 77 78 25 3d 30 3a 73 |x%=nbx%+1wx%=0:s|
00002600 25 28 34 29 3d 31 3a 74 25 3d 31 0d 12 34 05 e1 |%(4)=1:t%=1..4..|
00002610 0d 12 3e 05 20 0d 12 48 0e dd f2 6b 69 6c 6c 79 |..>. ..H...killy|
00002620 6f 75 31 0d 12 52 08 51 25 3d 31 0d 12 5c 0f 6f |ou1..R.Q%=1..\.o|
00002630 25 3d 28 6f 25 2b 31 29 83 34 0d 12 66 22 c8 99 |%=(o%+1).4..f"..|
00002640 20 4f 24 2c 26 32 32 32 2c 53 25 2c 59 25 28 6f | O$,&222,S%,Y%(o|
00002650 25 2c 30 29 2c 58 25 2c 59 25 2c 38 0d 12 70 1e |%,0),X%,Y%,8..p.|
00002660 69 25 2b 3d 31 3a e7 69 25 3e 32 34 51 25 3d 30 |i%+=1:.i%>24Q%=0|
00002670 3a 6f 25 3d 30 3a 69 25 3d 30 0d 12 7a 05 e1 0d |:o%=0:i%=0..z...|
00002680 12 84 16 58 25 2b 3d 28 b3 28 32 29 2d 31 29 2a |...X%+=(.(2)-1)*|
00002690 33 32 2d 31 36 0d 12 8e 16 59 25 2b 3d 28 b3 28 |32-16....Y%+=(.(|
000026a0 32 29 2d 31 29 2a 33 32 2d 31 36 0d 12 98 05 e1 |2)-1)*32-16.....|
000026b0 0d 12 a2 05 20 0d 12 ac 0e dd f2 6b 69 6c 6c 79 |.... ......killy|
000026c0 6f 75 32 0d 12 b6 15 51 25 3d 32 3a d4 35 2c 2d |ou2....Q%=2:.5,-|
000026d0 31 33 2c 33 30 2c 32 35 0d 12 c0 0d c8 8e 20 77 |13,30,25...... w|
000026e0 79 78 25 20 ca 0d 12 ca 3f c9 30 2c 31 2c 32 2c |yx% ....?.0,1,2,|
000026f0 33 2c 34 3a c8 99 20 4f 24 2c 26 32 32 32 2c 53 |3,4:.. O$,&222,S|
00002700 25 2c 45 25 28 77 79 78 25 29 2c 58 25 2c 59 25 |%,E%(wyx%),X%,Y%|
00002710 2c 38 3a 77 79 78 25 2b 3d 31 3a d1 3d 30 3a f5 |,8:wyx%+=1:.=0:.|
00002720 fd 91 3e 33 0d 12 d4 33 c9 35 3a c8 99 20 4f 24 |..>3...3.5:.. O$|
00002730 2c 26 32 32 32 2c 53 25 2c 45 25 28 77 79 78 25 |,&222,S%,E%(wyx%|
00002740 29 2c 58 25 2d 34 38 2c 59 25 2d 34 38 2c 38 3a |),X%-48,Y%-48,8:|
00002750 77 79 78 25 2b 3d 31 0d 12 de 7c c9 36 3a 51 25 |wyx%+=1...|.6:Q%|
00002760 3d 33 3a 69 76 25 3d 30 3a 44 25 3d 30 3a 77 79 |=3:iv%=0:D%=0:wy|
00002770 25 3d 30 3a 4b 58 25 3d 58 25 3a 4b 59 25 3d 59 |%=0:KX%=X%:KY%=Y|
00002780 25 3a 58 25 3d 35 37 36 3a 59 25 3d 31 32 38 3a |%:X%=576:Y%=128:|
00002790 77 79 78 25 3d 30 3a 6c 69 25 2d 3d 31 3a e7 6c |wyx%=0:li%-=1:.l|
000027a0 69 25 3e 30 91 3d 30 3a f5 fd 91 3e 31 35 30 3a |i%>0.=0:...>150:|
000027b0 e3 49 25 3d 31 b8 32 3a f2 6c 69 76 65 73 3a 5a |.I%=1.2:.lives:Z|
000027c0 25 3d 33 2d 5a 25 3a c8 99 36 2c 31 31 32 2c 5a |%=3-Z%:..6,112,Z|
000027d0 25 3a ed 0d 12 e8 0e e7 6c 69 25 3d 30 51 25 3d |%:......li%=0Q%=|
000027e0 34 0d 12 f2 05 cb 0d 12 fc 05 e1 0d 13 06 05 20 |4.............. |
000027f0 0d 13 10 0b dd f2 6c 69 76 65 73 0d 13 1a 17 e6 |......lives.....|
00002800 63 6f 6c 25 2b 31 32 38 3a c8 9c 33 2c 74 69 6e |col%+128:..3,tin|
00002810 74 25 0d 13 24 18 ef 32 34 2c 30 3b 31 32 38 3b |t%..$..24,0;128;|
00002820 31 32 34 3b 38 39 32 3b 3a da 0d 13 2e 22 e7 6c |124;892;:....".l|
00002830 69 25 3c 3d 31 ef 32 34 2c 31 32 38 3b 31 32 38 |i%<=1.24,128;128|
00002840 3b 31 31 34 38 3b 38 39 32 3b 3a e1 0d 13 38 0f |;1148;892;:...8.|
00002850 e3 54 25 3d 30 b8 6c 69 25 2d 32 0d 13 42 2a c8 |.T%=0.li%-2..B*.|
00002860 99 20 4f 24 2c 26 32 32 32 2c 53 25 2c 6c 69 76 |. O$,&222,S%,liv|
00002870 65 73 25 2c 6c 78 25 2c 6c 79 25 2b 28 54 25 2a |es%,lx%,ly%+(T%*|
00002880 39 36 29 2c 38 0d 13 4c 05 ed 0d 13 56 19 ef 32 |96),8..L....V..2|
00002890 34 2c 31 32 38 3b 31 32 38 3b 31 31 34 38 3b 38 |4,128;128;1148;8|
000028a0 39 32 3b 0d 13 60 05 e1 0d 13 6a 05 20 0d 13 74 |92;..`....j. ..t|
000028b0 0a dd f2 73 77 61 70 0d 13 7e 0d c8 8e 20 6c 65 |...swap..~... le|
000028c0 76 25 20 ca 0d 13 88 11 c9 20 30 3a f4 84 53 55 |v% ...... 0:..SU|
000028d0 52 52 45 41 4c 0d 13 92 12 c8 94 42 30 25 28 29 |RREAL......B0%()|
000028e0 2c 42 30 61 25 28 29 0d 13 9c 1d e7 77 42 25 3d |,B0a%().....wB%=|
000028f0 31 c8 94 42 31 25 28 29 2c 62 31 25 28 29 3a 77 |1..B1%(),b1%():w|
00002900 42 25 3d 30 0d 13 a6 21 c8 94 42 31 25 28 29 2c |B%=0...!..B1%(),|
00002910 42 31 61 25 28 29 3a c8 94 62 31 25 28 29 2c 62 |B1a%():..b1%(),b|
00002920 31 61 25 28 29 0d 13 b0 1d e7 6b 32 25 3d 31 c8 |1a%().....k2%=1.|
00002930 94 42 32 25 28 29 2c 62 32 25 28 29 3a 6b 32 25 |.B2%(),b2%():k2%|
00002940 3d 30 0d 13 ba 21 c8 94 42 32 25 28 29 2c 42 32 |=0...!..B2%(),B2|
00002950 61 25 28 29 3a c8 94 62 32 25 28 29 2c 62 32 61 |a%():..b2%(),b2a|
00002960 25 28 29 0d 13 c4 12 c8 94 42 33 25 28 29 2c 42 |%()......B3%(),B|
00002970 33 61 25 28 29 0d 13 ce 10 c8 94 4d 25 28 29 2c |3a%()......M%(),|
00002980 4d 61 25 28 29 0d 13 d8 11 c8 94 43 25 28 33 29 |Ma%()......C%(3)|
00002990 2c 43 25 28 34 29 0d 13 e2 05 20 0d 13 ec 10 c9 |,C%(4).... .....|
000029a0 20 31 3a f4 22 82 43 48 45 53 53 0d 13 f6 12 c8 | 1:.".CHESS.....|
000029b0 94 42 30 25 28 29 2c 42 30 62 25 28 29 0d 14 00 |.B0%(),B0b%()...|
000029c0 1d e7 77 42 25 3d 31 c8 94 42 31 25 28 29 2c 62 |..wB%=1..B1%(),b|
000029d0 31 25 28 29 3a 77 42 25 3d 30 0d 14 0a 21 c8 94 |1%():wB%=0...!..|
000029e0 42 31 25 28 29 2c 42 31 62 25 28 29 3a c8 94 62 |B1%(),B1b%():..b|
000029f0 31 25 28 29 2c 62 31 62 25 28 29 0d 14 14 10 c8 |1%(),b1b%().....|
00002a00 94 4d 25 28 29 2c 4d 62 25 28 29 0d 14 1e 1d e7 |.M%(),Mb%().....|
00002a10 6b 32 25 3d 31 c8 94 42 32 25 28 29 2c 62 32 25 |k2%=1..B2%(),b2%|
00002a20 28 29 3a 6b 32 25 3d 30 0d 14 28 21 c8 94 42 32 |():k2%=0..(!..B2|
00002a30 25 28 29 2c 42 32 62 25 28 29 3a c8 94 62 32 25 |%(),B2b%():..b2%|
00002a40 28 29 2c 62 32 62 25 28 29 0d 14 32 12 c8 94 42 |(),b2b%()..2...B|
00002a50 33 25 28 29 2c 42 33 62 25 28 29 0d 14 3c 11 c8 |3%(),B3b%()..<..|
00002a60 94 43 25 28 33 29 2c 43 25 28 35 29 0d 14 46 05 |.C%(3),C%(5)..F.|
00002a70 cb 0d 14 50 0a 77 74 25 2b 3d 31 0d 14 5a 0b 6c |...P.wt%+=1..Z.l|
00002a80 65 76 25 2b 3d 31 0d 14 64 05 e1 0d 14 6e 13 f4 |ev%+=1..d....n..|
00002a90 22 81 53 54 4f 4e 45 20 53 43 52 45 45 4e 0d 14 |".STONE SCREEN..|
00002aa0 78 1c dc 31 36 2c 31 36 2c 31 36 2c 31 36 2c 31 |x..16,16,16,16,1|
00002ab0 30 2c 31 36 2c 31 36 2c 31 36 0d 14 82 1c dc 31 |0,16,16,16.....1|
00002ac0 36 2c 31 36 2c 31 36 2c 33 32 2c 33 33 2c 31 36 |6,16,16,32,33,16|
00002ad0 2c 31 36 2c 31 36 0d 14 8c 1b dc 31 36 2c 31 36 |,16,16.....16,16|
00002ae0 2c 31 36 2c 31 36 2c 31 36 2c 31 36 2c 39 2c 31 |,16,16,16,16,9,1|
00002af0 36 0d 14 96 1c dc 31 36 2c 31 36 2c 31 36 2c 31 |6.....16,16,16,1|
00002b00 36 2c 31 36 2c 31 36 2c 31 36 2c 31 36 0d 14 a0 |6,16,16,16,16...|
00002b10 1c dc 31 32 2c 31 36 2c 31 35 2c 31 36 2c 31 36 |..12,16,15,16,16|
00002b20 2c 31 36 2c 31 36 2c 31 36 0d 14 aa 1b dc 31 36 |,16,16,16.....16|
00002b30 2c 31 36 2c 31 35 2c 39 2c 31 30 2c 31 30 2c 31 |,16,15,9,10,10,1|
00002b40 36 2c 31 36 0d 14 b4 19 dc 31 30 2c 39 2c 38 2c |6,16.....10,9,8,|
00002b50 38 2c 31 36 2c 31 36 2c 31 35 2c 31 34 0d 14 be |8,16,16,15,14...|
00002b60 1b dc 31 31 2c 31 34 2c 31 35 2c 31 30 2c 31 32 |..11,14,15,10,12|
00002b70 2c 38 2c 31 36 2c 31 30 0d 14 c8 1c dc 31 31 2c |,8,16,10.....11,|
00002b80 31 32 2c 31 31 2c 31 32 2c 31 33 2c 31 33 2c 31 |12,11,12,13,13,1|
00002b90 33 2c 31 34 0d 14 d2 19 dc 38 2c 31 32 2c 31 34 |3,14.....8,12,14|
00002ba0 2c 31 33 2c 39 2c 31 30 2c 31 30 2c 39 0d 14 dc |,13,9,10,10,9...|
00002bb0 1a dc 31 30 2c 31 34 2c 38 2c 39 2c 31 31 2c 31 |..10,14,8,9,11,1|
00002bc0 30 2c 31 34 2c 31 34 0d 14 e6 19 dc 39 2c 31 32 |0,14,14.....9,12|
00002bd0 2c 31 32 2c 31 32 2c 38 2c 31 31 2c 39 2c 31 35 |,12,12,8,11,9,15|
00002be0 0d 14 f0 1a dc 31 31 2c 31 31 2c 38 2c 31 33 2c |.....11,11,8,13,|
00002bf0 31 34 2c 39 2c 31 32 2c 31 35 0d 14 fa 19 dc 38 |14,9,12,15.....8|
00002c00 2c 39 2c 38 2c 31 31 2c 31 35 2c 31 32 2c 31 34 |,9,8,11,15,12,14|
00002c10 2c 31 32 0d 15 04 19 dc 38 2c 38 2c 31 31 2c 39 |,12.....8,8,11,9|
00002c20 2c 31 30 2c 31 35 2c 31 32 2c 31 33 0d 15 0e 1a |,10,15,12,13....|
00002c30 dc 39 2c 39 2c 31 34 2c 31 32 2c 31 33 2c 31 33 |.9,9,14,12,13,13|
00002c40 2c 31 30 2c 31 35 0d 15 18 1a dc 31 35 2c 31 34 |,10,15.....15,14|
00002c50 2c 31 30 2c 31 34 2c 31 31 2c 39 2c 31 30 2c 38 |,10,14,11,9,10,8|
00002c60 0d 15 22 1c dc 31 31 2c 31 30 2c 31 35 2c 31 35 |.."..11,10,15,15|
00002c70 2c 31 35 2c 31 35 2c 31 30 2c 31 30 0d 15 2c 18 |,15,15,10,10..,.|
00002c80 dc 38 2c 31 34 2c 31 35 2c 35 2c 35 2c 31 35 2c |.8,14,15,5,5,15,|
00002c90 38 2c 31 32 0d 15 36 19 dc 38 2c 31 32 2c 31 35 |8,12..6..8,12,15|
00002ca0 2c 35 2c 36 2c 31 35 2c 31 33 2c 31 33 0d 15 40 |,5,6,15,13,13..@|
00002cb0 1a dc 31 34 2c 31 31 2c 31 35 2c 31 35 2c 31 35 |..14,11,15,15,15|
00002cc0 2c 31 35 2c 39 2c 38 0d 15 4a 1a dc 31 31 2c 31 |,15,9,8..J..11,1|
00002cd0 31 2c 39 2c 31 30 2c 39 2c 31 33 2c 31 33 2c 31 |1,9,10,9,13,13,1|
00002ce0 33 0d 15 54 1a dc 31 30 2c 31 30 2c 39 2c 31 35 |3..T..10,10,9,15|
00002cf0 2c 31 34 2c 32 35 2c 31 33 2c 38 0d 15 5e 1a dc |,14,25,13,8..^..|
00002d00 31 33 2c 31 33 2c 38 2c 31 31 2c 31 31 2c 39 2c |13,13,8,11,11,9,|
00002d10 31 35 2c 31 34 0d 15 68 1c dc 31 31 2c 31 32 2c |15,14..h..11,12,|
00002d20 31 34 2c 31 33 2c 31 33 2c 31 31 2c 31 34 2c 31 |14,13,13,11,14,1|
00002d30 32 0d 15 72 1c dc 31 31 2c 31 32 2c 31 32 2c 31 |2..r..11,12,12,1|
00002d40 33 2c 31 34 2c 31 31 2c 31 33 2c 31 32 0d 15 7c |3,14,11,13,12..||
00002d50 1c dc 31 33 2c 31 33 2c 31 34 2c 31 31 2c 31 32 |..13,13,14,11,12|
00002d60 2c 31 32 2c 31 31 2c 31 34 0d 15 86 1c dc 31 34 |,12,11,14.....14|
00002d70 2c 31 33 2c 31 32 2c 32 36 2c 31 31 2c 31 32 2c |,13,12,26,11,12,|
00002d80 31 33 2c 31 32 0d 15 90 19 dc 38 2c 31 31 2c 39 |13,12.....8,11,9|
00002d90 2c 31 33 2c 39 2c 31 34 2c 31 33 2c 31 32 0d 15 |,13,9,14,13,12..|
00002da0 9a 16 dc 38 2c 31 31 2c 39 2c 39 2c 39 2c 31 33 |...8,11,9,9,9,13|
00002db0 2c 38 2c 38 0d 15 a4 1a dc 31 35 2c 32 37 2c 31 |,8,8.....15,27,1|
00002dc0 33 2c 31 32 2c 31 31 2c 31 30 2c 39 2c 38 0d 15 |3,12,11,10,9,8..|
00002dd0 ae 1a dc 38 2c 39 2c 31 30 2c 31 31 2c 31 32 2c |...8,9,10,11,12,|
00002de0 31 33 2c 31 35 2c 31 35 0d 15 b8 1a dc 31 30 2c |13,15,15.....10,|
00002df0 31 30 2c 31 30 2c 31 30 2c 31 30 2c 39 2c 31 35 |10,10,10,10,9,15|
00002e00 2c 38 0d 15 c2 1c dc 31 31 2c 31 34 2c 31 31 2c |,8.....11,14,11,|
00002e10 31 34 2c 31 31 2c 31 33 2c 31 30 2c 31 30 0d 15 |14,11,13,10,10..|
00002e20 cc 18 dc 35 2c 31 30 2c 35 2c 31 30 2c 35 2c 31 |...5,10,5,10,5,1|
00002e30 30 2c 35 2c 31 30 0d 15 d6 15 f4 22 84 53 55 52 |0,5,10.....".SUR|
00002e40 52 45 41 4c 20 53 43 52 45 45 4e 0d 15 e0 14 dc |REAL SCREEN.....|
00002e50 35 2c 35 2c 35 2c 35 2c 35 2c 37 2c 35 2c 35 0d |5,5,5,5,5,7,5,5.|
00002e60 15 ea 14 dc 35 2c 35 2c 35 2c 35 2c 35 2c 35 2c |....5,5,5,5,5,5,|
00002e70 35 2c 35 0d 15 f4 14 dc 35 2c 35 2c 35 2c 35 2c |5,5.....5,5,5,5,|
00002e80 35 2c 35 2c 35 2c 35 0d 15 fe 14 dc 35 2c 35 2c |5,5,5,5.....5,5,|
00002e90 35 2c 36 2c 35 2c 35 2c 35 2c 35 0d 16 08 14 dc |5,6,5,5,5,5.....|
00002ea0 35 2c 36 2c 35 2c 35 2c 35 2c 35 2c 36 2c 35 0d |5,6,5,5,5,5,6,5.|
00002eb0 16 12 14 dc 35 2c 36 2c 35 2c 35 2c 31 2c 35 2c |....5,6,5,5,1,5,|
00002ec0 36 2c 31 0d 16 1c 14 dc 31 2c 35 2c 35 2c 35 2c |6,1.....1,5,5,5,|
00002ed0 35 2c 31 2c 35 2c 31 0d 16 26 15 dc 36 2c 35 2c |5,1,5,1..&..6,5,|
00002ee0 35 2c 35 2c 36 2c 36 2c 32 35 2c 35 0d 16 30 17 |5,5,6,6,25,5..0.|
00002ef0 dc 30 2c 30 2c 30 2c 30 2c 32 35 2c 30 2c 32 35 |.0,0,0,0,25,0,25|
00002f00 2c 32 35 0d 16 3a 18 dc 30 2c 32 39 2c 30 2c 31 |,25..:..0,29,0,1|
00002f10 2c 30 2c 32 35 2c 32 35 2c 32 35 0d 16 44 15 dc |,0,25,25,25..D..|
00002f20 30 2c 31 2c 34 2c 31 2c 30 2c 35 2c 31 2c 32 35 |0,1,4,1,0,5,1,25|
00002f30 0d 16 4e 15 dc 30 2c 32 2c 34 2c 32 2c 32 34 2c |..N..0,2,4,2,24,|
00002f40 30 2c 31 2c 30 0d 16 58 14 dc 30 2c 30 2c 30 2c |0,1,0..X..0,0,0,|
00002f50 30 2c 32 2c 32 2c 30 2c 30 0d 16 62 14 dc 30 2c |0,2,2,0,0..b..0,|
00002f60 32 2c 32 2c 30 2c 30 2c 30 2c 30 2c 30 0d 16 6c |2,2,0,0,0,0,0..l|
00002f70 1a dc 32 35 2c 32 35 2c 32 2c 32 35 2c 32 35 2c |..25,25,2,25,25,|
00002f80 32 35 2c 32 35 2c 30 0d 16 76 1a dc 32 35 2c 30 |25,25,0..v..25,0|
00002f90 2c 32 35 2c 32 35 2c 32 2c 32 35 2c 32 35 2c 32 |,25,25,2,25,25,2|
00002fa0 35 0d 16 80 19 dc 32 2c 32 35 2c 32 35 2c 30 2c |5.....2,25,25,0,|
00002fb0 32 35 2c 30 2c 32 35 2c 32 35 0d 16 8a 19 dc 32 |25,0,25,25.....2|
00002fc0 2c 32 35 2c 32 35 2c 30 2c 32 35 2c 32 35 2c 32 |,25,25,0,25,25,2|
00002fd0 35 2c 32 0d 16 94 14 dc 35 2c 31 2c 33 2c 33 2c |5,2.....5,1,3,3,|
00002fe0 33 2c 34 2c 30 2c 30 0d 16 9e 14 dc 35 2c 32 2c |3,4,0,0.....5,2,|
00002ff0 33 2c 31 2c 33 2c 34 2c 31 2c 31 0d 16 a8 14 dc |3,1,3,4,1,1.....|
00003000 35 2c 34 2c 31 2c 31 2c 31 2c 31 2c 31 2c 31 0d |5,4,1,1,1,1,1,1.|
00003010 16 b2 14 dc 35 2c 35 2c 31 2c 35 2c 35 2c 35 2c |....5,5,1,5,5,5,|
00003020 35 2c 35 0d 16 bc 15 dc 34 2c 35 2c 34 2c 32 34 |5,5.....4,5,4,24|
00003030 2c 35 2c 34 2c 35 2c 34 0d 16 c6 14 dc 32 2c 32 |,5,4,5,4.....2,2|
00003040 2c 32 2c 32 2c 32 2c 32 2c 32 2c 32 0d 16 d0 16 |,2,2,2,2,2,2....|
00003050 dc 32 2c 32 2c 32 38 2c 32 2c 32 2c 32 2c 32 38 |.2,2,28,2,2,2,28|
00003060 2c 32 0d 16 da 19 dc 32 38 2c 32 2c 32 38 2c 32 |,2.....28,2,28,2|
00003070 2c 32 38 2c 32 38 2c 32 38 2c 32 0d 16 e4 16 dc |,28,28,28,2.....|
00003080 32 38 2c 32 2c 32 2c 32 2c 32 2c 32 38 2c 32 2c |28,2,2,2,2,28,2,|
00003090 32 0d 16 ee 15 dc 32 2c 32 2c 32 2c 32 2c 32 38 |2.....2,2,2,2,28|
000030a0 2c 32 2c 32 2c 32 0d 16 f8 19 dc 32 2c 32 38 2c |,2,2,2.....2,28,|
000030b0 32 38 2c 32 38 2c 32 2c 32 38 2c 32 38 2c 32 0d |28,28,2,28,28,2.|
000030c0 17 02 17 dc 32 2c 32 2c 32 38 2c 32 2c 32 2c 32 |....2,2,28,2,2,2|
000030d0 2c 32 38 2c 32 38 0d 17 0c 14 dc 32 2c 32 2c 32 |,28,28.....2,2,2|
000030e0 2c 32 2c 32 2c 32 2c 32 2c 32 0d 17 16 14 dc 30 |,2,2,2,2,2.....0|
000030f0 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 17 |,0,0,0,0,0,0,0..|
00003100 20 14 dc 30 2c 30 2c 30 2c 31 2c 30 2c 32 2c 32 | ..0,0,0,1,0,2,2|
00003110 2c 30 0d 17 2a 18 dc 30 2c 31 36 2c 37 2c 31 36 |,0..*..0,16,7,16|
00003120 2c 32 2c 31 36 2c 32 2c 31 36 0d 17 34 13 f4 22 |,2,16,2,16..4.."|
00003130 83 43 48 45 53 53 20 53 43 52 45 45 4e 0d 17 3e |.CHESS SCREEN..>|
00003140 1c dc 31 36 2c 31 37 2c 31 36 2c 31 37 2c 31 36 |..16,17,16,17,16|
00003150 2c 31 37 2c 31 36 2c 31 37 0d 17 48 1c dc 31 37 |,17,16,17..H..17|
00003160 2c 31 36 2c 31 37 2c 31 36 2c 31 37 2c 31 36 2c |,16,17,16,17,16,|
00003170 31 37 2c 31 36 0d 17 52 1c dc 31 36 2c 31 37 2c |17,16..R..16,17,|
00003180 31 36 2c 31 37 2c 31 36 2c 31 37 2c 31 36 2c 31 |16,17,16,17,16,1|
00003190 37 0d 17 5c 1c dc 31 37 2c 31 36 2c 31 37 2c 31 |7..\..17,16,17,1|
000031a0 38 2c 31 37 2c 31 36 2c 31 37 2c 31 36 0d 17 66 |8,17,16,17,16..f|
000031b0 1c dc 31 36 2c 31 37 2c 31 36 2c 31 37 2c 31 36 |..16,17,16,17,16|
000031c0 2c 31 37 2c 31 36 2c 31 37 0d 17 70 1c dc 31 37 |,17,16,17..p..17|
000031d0 2c 31 36 2c 31 37 2c 31 36 2c 33 30 2c 31 36 2c |,16,17,16,30,16,|
000031e0 32 31 2c 31 36 0d 17 7a 1c dc 32 32 2c 31 37 2c |21,16..z..22,17,|
000031f0 31 38 2c 31 37 2c 31 36 2c 31 37 2c 31 36 2c 31 |18,17,16,17,16,1|
00003200 37 0d 17 84 1c dc 31 37 2c 31 36 2c 31 37 2c 31 |7.....17,16,17,1|
00003210 36 2c 32 33 2c 31 36 2c 31 37 2c 31 36 0d 17 8e |6,23,16,17,16...|
00003220 1c dc 31 36 2c 31 37 2c 31 36 2c 31 37 2c 31 36 |..16,17,16,17,16|
00003230 2c 31 37 2c 31 36 2c 31 37 0d 17 98 1c dc 31 37 |,17,16,17.....17|
00003240 2c 31 36 2c 31 37 2c 31 36 2c 31 37 2c 31 36 2c |,16,17,16,17,16,|
00003250 31 37 2c 31 36 0d 17 a2 1c dc 31 36 2c 31 37 2c |17,16.....16,17,|
00003260 31 36 2c 32 33 2c 31 36 2c 31 37 2c 33 31 2c 31 |16,23,16,17,31,1|
00003270 37 0d 17 ac 1c dc 31 37 2c 31 36 2c 32 31 2c 31 |7.....17,16,21,1|
00003280 36 2c 32 31 2c 31 36 2c 31 37 2c 31 36 0d 17 b6 |6,21,16,17,16...|
00003290 1c dc 31 38 2c 31 37 2c 31 36 2c 31 37 2c 31 36 |..18,17,16,17,16|
000032a0 2c 32 33 2c 31 36 2c 31 37 0d 17 c0 1c dc 31 37 |,23,16,17.....17|
000032b0 2c 31 36 2c 31 37 2c 31 36 2c 32 31 2c 32 30 2c |,16,17,16,21,20,|
000032c0 31 37 2c 31 36 0d 17 ca 1c dc 32 30 2c 32 31 2c |17,16.....20,21,|
000032d0 32 30 2c 32 31 2c 33 30 2c 31 37 2c 32 30 2c 31 |20,21,30,17,20,1|
000032e0 37 0d 17 d4 1c dc 31 37 2c 33 30 2c 33 30 2c 31 |7.....17,30,30,1|
000032f0 36 2c 31 37 2c 31 36 2c 33 30 2c 31 38 0d 17 de |6,17,16,30,18...|
00003300 1c dc 33 30 2c 33 30 2c 33 30 2c 33 30 2c 33 30 |..30,30,30,30,30|
00003310 2c 33 30 2c 33 30 2c 33 30 0d 17 e8 1c dc 33 30 |,30,30,30.....30|
00003320 2c 33 30 2c 33 30 2c 33 30 2c 33 30 2c 33 30 2c |,30,30,30,30,30,|
00003330 33 30 2c 33 30 0d 17 f2 1c dc 33 30 2c 33 30 2c |30,30.....30,30,|
00003340 33 30 2c 33 30 2c 33 30 2c 33 30 2c 33 30 2c 33 |30,30,30,30,30,3|
00003350 30 0d 17 fc 1c dc 33 30 2c 33 30 2c 33 30 2c 33 |0.....30,30,30,3|
00003360 30 2c 33 30 2c 33 30 2c 33 30 2c 33 30 0d 18 06 |0,30,30,30,30...|
00003370 1c dc 31 38 2c 33 30 2c 33 30 2c 33 30 2c 33 30 |..18,30,30,30,30|
00003380 2c 33 30 2c 31 36 2c 31 37 0d 18 10 1c dc 32 31 |,30,16,17.....21|
00003390 2c 31 36 2c 32 31 2c 31 36 2c 33 30 2c 31 36 2c |,16,21,16,30,16,|
000033a0 33 30 2c 33 30 0d 18 1a 1c dc 31 36 2c 31 37 2c |30,30.....16,17,|
000033b0 31 36 2c 31 37 2c 31 36 2c 31 37 2c 31 36 2c 31 |16,17,16,17,16,1|
000033c0 37 0d 18 24 1c dc 31 37 2c 31 36 2c 32 37 2c 31 |7..$..17,16,27,1|
000033d0 38 2c 32 37 2c 31 36 2c 31 37 2c 31 38 0d 18 2e |8,27,16,17,18...|
000033e0 1c dc 31 36 2c 31 37 2c 31 36 2c 32 37 2c 31 36 |..16,17,16,27,16|
000033f0 2c 31 37 2c 31 36 2c 32 37 0d 18 38 1c dc 32 37 |,17,16,27..8..27|
00003400 2c 32 37 2c 32 37 2c 31 38 2c 32 37 2c 32 37 2c |,27,27,18,27,27,|
00003410 31 37 2c 31 36 0d 18 42 1c dc 31 36 2c 31 37 2c |17,16..B..16,17,|
00003420 31 36 2c 32 37 2c 32 37 2c 32 37 2c 32 37 2c 32 |16,27,27,27,27,2|
00003430 37 0d 18 4c 1c dc 32 37 2c 31 36 2c 32 37 2c 31 |7..L..27,16,27,1|
00003440 36 2c 32 37 2c 32 37 2c 31 37 2c 32 37 0d 18 56 |6,27,27,17,27..V|
00003450 1c dc 31 36 2c 32 37 2c 31 36 2c 32 37 2c 32 37 |..16,27,16,27,27|
00003460 2c 31 37 2c 31 36 2c 31 37 0d 18 60 1c dc 31 37 |,17,16,17..`..17|
00003470 2c 31 36 2c 32 37 2c 32 37 2c 31 37 2c 31 36 2c |,16,27,27,17,16,|
00003480 32 37 2c 31 36 0d 18 6a 1c dc 31 36 2c 31 37 2c |27,16..j..16,17,|
00003490 31 36 2c 31 37 2c 31 36 2c 32 37 2c 32 37 2c 31 |16,17,16,27,27,1|
000034a0 37 0d 18 74 1c dc 31 37 2c 31 36 2c 31 37 2c 31 |7..t..17,16,17,1|
000034b0 38 2c 31 37 2c 31 36 2c 31 37 2c 31 38 0d 18 7e |8,17,16,17,18..~|
000034c0 1c dc 31 36 2c 31 37 2c 31 36 2c 31 37 2c 32 30 |..16,17,16,17,20|
000034d0 2c 32 31 2c 32 32 2c 32 33 0d 18 88 1c dc 31 37 |,21,22,23.....17|
000034e0 2c 31 36 2c 31 37 2c 31 38 2c 31 39 2c 32 30 2c |,16,17,18,19,20,|
000034f0 32 31 2c 32 32 0d 18 92 1c dc 31 36 2c 31 37 2c |21,22.....16,17,|
00003500 31 36 2c 31 37 2c 31 30 2c 32 31 2c 31 30 2c 31 |16,17,10,21,10,1|
00003510 30 0d 18 9c 10 f4 85 45 4e 44 20 53 43 52 45 45 |0......END SCREE|
00003520 4e 0d 18 a6 1c dc 33 34 2c 31 36 2c 31 37 2c 31 |N.....34,16,17,1|
00003530 36 2c 31 37 2c 31 36 2c 31 37 2c 33 34 0d 18 b0 |6,17,16,17,34...|
00003540 1c dc 33 34 2c 31 37 2c 33 36 2c 31 37 2c 31 36 |..34,17,36,17,16|
00003550 2c 31 37 2c 31 36 2c 33 34 0d 18 ba 1c dc 33 34 |,17,16,34.....34|
00003560 2c 33 34 2c 33 34 2c 33 34 2c 33 34 2c 33 35 2c |,34,34,34,34,35,|
00003570 33 34 2c 33 34 0d 18 c4 14 dc 38 2c 38 2c 38 2c |34,34.....8,8,8,|
00003580 38 2c 38 2c 38 2c 38 2c 38 0d 18 ce 05 20 0d 18 |8,8,8,8,8.... ..|
00003590 d8 05 20 0d 18 e2 0d dd f2 68 69 73 63 6f 72 65 |.. ......hiscore|
000035a0 0d 18 ec 0a f2 74 61 62 6c 65 0d 18 f6 07 ef 32 |.....table.....2|
000035b0 36 0d 19 00 10 e7 53 43 25 3c 48 53 25 28 37 29 |6.....SC%<HS%(7)|
000035c0 e1 0d 19 0a 1e 4a 25 3d 2d 31 3a f5 3a 4a 25 2b |.....J%=-1:.:J%+|
000035d0 3d 31 3a fd 53 43 25 3e 48 53 25 28 4a 25 29 0d |=1:.SC%>HS%(J%).|
000035e0 19 14 43 e3 49 25 3d 37 b8 4a 25 2b 31 88 2d 31 |..C.I%=7.J%+1.-1|
000035f0 3a 48 53 25 28 49 25 29 3d 48 53 25 28 49 25 2d |:HS%(I%)=HS%(I%-|
00003600 31 29 3a 48 53 24 28 49 25 29 3d 48 53 24 28 49 |1):HS$(I%)=HS$(I|
00003610 25 2d 31 29 3a ed 3a 48 53 25 28 4a 25 29 3d 53 |%-1):.:HS%(J%)=S|
00003620 43 25 0d 19 1e 09 2a 46 58 31 35 0d 19 28 09 2a |C%....*FX15..(.*|
00003630 46 58 32 31 0d 19 32 09 2a 46 58 31 35 0d 19 3c |FX21..2.*FX15..<|
00003640 0b fb 33 3a fb 31 34 38 0d 19 46 22 f1 8a 39 2c |..3:.148..F"..9,|
00003650 32 34 29 89 32 32 8a 39 2c 32 34 29 22 45 6e 74 |24).22.9,24)"Ent|
00003660 65 72 20 6e 61 6d 65 3a 22 3b 0d 19 50 13 48 53 |er name:";..P.HS|
00003670 24 28 4a 25 29 3d 22 22 3a 58 58 3d 30 0d 19 5a |$(J%)="":XX=0..Z|
00003680 05 f5 0d 19 64 11 6e 24 3d be 3a 61 73 63 25 3d |....d.n$=.:asc%=|
00003690 97 6e 24 0d 19 6e 0d c8 8e 20 61 73 63 25 20 ca |.n$..n... asc% .|
000036a0 0d 19 78 2d c9 38 2c 31 32 37 3a e7 58 58 3e 30 |..x-.8,127:.XX>0|
000036b0 58 58 2d 3d 31 3a f1 3b 6e 24 3b 3a 48 53 24 28 |XX-=1:.;n$;:HS$(|
000036c0 4a 25 29 3d c0 48 53 24 28 4a 25 29 29 0d 19 82 |J%)=.HS$(J%))...|
000036d0 1d 7f 20 48 53 24 28 4a 25 29 2b 3d 6e 24 3a 58 |.. HS$(J%)+=n$:X|
000036e0 58 2b 3d 31 3a f1 3b 6e 24 3b 0d 19 8c 05 cb 0d |X+=1:.;n$;......|
000036f0 19 96 17 fd a9 48 53 24 28 4a 25 29 3d 31 31 84 |.....HS$(J%)=11.|
00003700 97 6e 24 3d 31 33 0d 19 a0 0a f2 74 61 62 6c 65 |.n$=13.....table|
00003710 0d 19 aa 05 e1 0d 19 b4 0b dd f2 74 61 62 6c 65 |...........table|
00003720 0d 19 be 07 ef 32 36 0d 19 c8 0c fb 36 33 3a fb |.....26.....63:.|
00003730 31 34 39 0d 19 d2 22 f1 8a 39 2c 36 29 22 20 44 |149..."..9,6)" D|
00003740 72 65 61 6d 51 75 65 73 74 20 48 69 73 63 6f 72 |reamQuest Hiscor|
00003750 65 73 21 20 22 0d 19 dc 0b fb 31 38 36 3a fb 31 |es! ".....186:.1|
00003760 0d 19 e6 12 f1 8a 39 2c 37 29 c4 32 32 2c 22 20 |......9,7).22," |
00003770 22 29 0d 19 f0 0b e3 49 25 3d 30 b8 37 0d 19 fa |").....I%=0.7...|
00003780 11 6c 73 25 3d a9 c3 48 53 25 28 49 25 29 0d 1a |.ls%=..HS%(I%)..|
00003790 04 53 f1 8a 39 2c 49 25 2a 32 2b 38 29 c4 32 30 |.S..9,I%*2+8).20|
000037a0 2c 22 2e 22 29 8a 39 2c 49 25 2a 32 2b 39 29 c4 |,".").9,I%*2+9).|
000037b0 32 32 2c 22 20 22 29 8a 39 2c 28 49 25 2a 32 29 |22," ").9,(I%*2)|
000037c0 2b 38 29 48 53 24 28 49 25 29 8a 33 31 2d 6c 73 |+8)HS$(I%).31-ls|
000037d0 25 2c 49 25 2a 32 2b 38 29 3b 48 53 25 28 49 25 |%,I%*2+8);HS%(I%|
000037e0 29 0d 1a 0e 05 ed 0d 1a 18 10 ef 32 38 2c 30 2c |)..........28,0,|
000037f0 33 2c 33 39 2c 30 0d 1a 22 19 ef 32 34 2c 31 32 |3,39,0.."..24,12|
00003800 38 3b 31 32 38 3b 31 31 34 38 3b 38 39 32 3b 0d |8;128;1148;892;.|
00003810 1a 2c 05 e1 0d 1a 36 05 20 0d 1a 40 0f dd f2 69 |.,....6. ..@...i|
00003820 6e 69 74 74 61 62 6c 65 0d 1a 4a 09 f7 8d 74 5a |nittable..J...tZ|
00003830 5a 0d 1a 54 0b e3 49 25 3d 30 b8 37 0d 1a 5e 20 |Z..T..I%=0.7..^ |
00003840 48 53 25 28 49 25 29 3d 28 37 2d 49 25 29 2a 31 |HS%(I%)=(7-I%)*1|
00003850 30 30 30 30 30 2b 31 30 30 30 30 30 0d 1a 68 0a |00000+100000..h.|
00003860 f3 6e 61 6d 65 24 0d 1a 72 11 48 53 24 28 49 25 |.name$..r.HS$(I%|
00003870 29 3d 6e 61 6d 65 24 0d 1a 7c 05 ed 0d 1a 86 05 |)=name$..|......|
00003880 e1 0d 1a 90 05 20 0d 1a 9a 11 dc 4d 41 47 20 61 |..... .....MAG a|
00003890 6e 64 20 43 41 54 21 0d 1a a4 10 dc 45 56 45 4c |nd CAT!.....EVEL|
000038a0 59 4e 20 54 45 4e 54 0d 1a ae 0f dc 53 4f 4e 49 |YN TENT.....SONI|
000038b0 41 20 46 4f 4f 54 0d 1a b8 10 dc 57 2e 41 2e 53 |A FOOT.....W.A.S|
000038c0 48 45 52 4d 41 4e 0d 1a c2 10 dc 54 68 65 20 44 |HERMAN.....The D|
000038d0 75 63 6b 61 67 65 0d 1a cc 0b dc 4c 45 41 4b 55 |uckage.....LEAKU|
000038e0 4c 0d 1a d6 10 dc 4f 68 20 50 75 73 73 79 63 61 |L.....Oh Pussyca|
000038f0 74 0d 1a e0 0e dc 4d 41 42 45 4c 4e 4f 52 54 0d |t.....MABELNORT.|
00003900 1a ea 05 20 0d 1a f4 0b dd f2 69 6e 74 72 6f 0d |... ......intro.|
00003910 1a fe 0b e3 4a 25 3d 30 b8 34 0d 1b 08 0b e3 49 |....J%=0.4.....I|
00003920 25 3d 30 b8 31 0d 1b 12 0e d1 3d 30 3a f5 fd 91 |%=0.1.....=0:...|
00003930 3e 31 30 0d 1b 1c 25 c8 99 20 4f 24 2c 26 32 32 |>10...%.. O$,&22|
00003940 32 2c 53 25 2c 59 25 28 30 2c 4a 25 83 32 29 2c |2,S%,Y%(0,J%.2),|
00003950 58 25 2c 59 25 2c 31 32 0d 1b 26 05 ed 0d 1b 30 |X%,Y%,12..&....0|
00003960 05 ed 0d 1b 3a 05 e1 0d 1b 44 05 20 0d 1b 4e 0b |....:....D. ..N.|
00003970 dd f2 6f 75 74 72 6f 0d 1b 58 23 c8 99 20 4f 24 |..outro..X#.. O$|
00003980 2c 26 32 32 32 2c 53 25 2c 53 25 28 33 32 29 2c |,&222,S%,S%(32),|
00003990 58 25 2d 36 34 2c 59 25 2c 38 0d 1b 62 23 c8 99 |X%-64,Y%,8..b#..|
000039a0 20 4f 24 2c 26 32 32 32 2c 53 25 2c 53 25 28 33 | O$,&222,S%,S%(3|
000039b0 33 29 2c 58 25 2b 36 34 2c 59 25 2c 38 0d 1b 6c |3),X%+64,Y%,8..l|
000039c0 0a f2 69 6e 74 72 6f 0d 1b 76 0f d1 3d 30 3a f5 |..intro..v..=0:.|
000039d0 fd 91 3e 32 30 30 0d 1b 80 05 e1 0d 1b 8a 05 20 |..>200......... |
000039e0 0d 1b 94 0e dd f2 67 61 6d 65 6f 76 65 72 0d 1b |......gameover..|
000039f0 9e 13 e3 49 25 3d 38 39 32 b8 4b 59 25 88 2d 32 |...I%=892.KY%.-2|
00003a00 34 0d 1b a8 16 5a 25 3d 33 2d 5a 25 3a c8 99 36 |4....Z%=3-Z%:..6|
00003a10 2c 31 31 32 2c 5a 25 0d 1b b2 1e c8 99 20 4f 24 |,112,Z%...... O$|
00003a20 2c 32 35 36 2b 33 34 2c 67 25 2c 67 24 2c 41 25 |,256+34,g%,g$,A%|
00003a30 2c 42 25 2c 30 0d 1b bc 24 c8 99 20 4f 24 2c 26 |,B%,0...$.. O$,&|
00003a40 32 32 32 2c 53 25 2c 67 61 6d 65 6f 76 65 72 25 |222,S%,gameover%|
00003a50 2c 4b 58 25 2c 49 25 2c 38 0d 1b c6 0e c8 99 36 |,KX%,I%,8......6|
00003a60 2c 31 31 33 2c 5a 25 0d 1b d0 05 ed 0d 1b da 10 |,113,Z%.........|
00003a70 d4 32 2c 2d 31 35 2c 39 30 2c 33 30 0d 1b e4 0f |.2,-15,90,30....|
00003a80 d1 3d 30 3a f5 fd 91 3e 32 30 30 0d 1b ee 05 e1 |.=0:...>200.....|
00003a90 0d 1b f8 05 20 0d 1c 02 0c dd f2 73 6f 75 6e 64 |.... ......sound|
00003aa0 73 0d 1c 0c 08 c8 a0 20 38 0d 1c 16 15 2a 43 48 |s...... 8....*CH|
00003ab0 41 4e 4e 45 4c 56 4f 49 43 45 20 31 20 36 0d 1c |ANNELVOICE 1 6..|
00003ac0 20 15 2a 43 48 41 4e 4e 45 4c 56 4f 49 43 45 20 | .*CHANNELVOICE |
00003ad0 32 20 38 0d 1c 2a 15 2a 43 48 41 4e 4e 45 4c 56 |2 8..*.*CHANNELV|
00003ae0 4f 49 43 45 20 33 20 39 0d 1c 34 15 2a 43 48 41 |OICE 3 9..4.*CHA|
00003af0 4e 4e 45 4c 56 4f 49 43 45 20 34 20 32 0d 1c 3e |NNELVOICE 4 2..>|
00003b00 15 2a 43 48 41 4e 4e 45 4c 56 4f 49 43 45 20 35 |.*CHANNELVOICE 5|
00003b10 20 37 0d 1c 48 15 2a 43 48 41 4e 4e 45 4c 56 4f | 7..H.*CHANNELVO|
00003b20 49 43 45 20 36 20 35 0d 1c 52 15 2a 43 48 41 4e |ICE 6 5..R.*CHAN|
00003b30 4e 45 4c 56 4f 49 43 45 20 37 20 34 0d 1c 5c 15 |NELVOICE 7 4..\.|
00003b40 2a 43 48 41 4e 4e 45 4c 56 4f 49 43 45 20 38 20 |*CHANNELVOICE 8 |
00003b50 33 0d 1c 66 05 e1 0d 1c 70 05 20 0d 1c 7a 0b f4 |3..f....p. ..z..|
00003b60 85 45 52 52 4f 52 0d 1c 84 06 eb 30 0d 1c 8e 09 |.ERROR.....0....|
00003b70 2a 46 58 31 35 0d 1c 98 09 2a 46 58 32 31 0d 1c |*FX15....*FX21..|
00003b80 a2 05 f6 0d 1c ac 06 f1 9e 0d ff |...........|
00003b8b 
.