!AWJune92/Goodies/Drop/!Drop/!RunImage

Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199206b.adf » June92 » !AWJune92/Goodies/Drop/!Drop/!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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199206b.adf » June92
Filename:	!AWJune92/Goodies/Drop/!Drop/!RunImage
Read OK:	✔
File size:	29C1 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > $.!Drop.!RunImage
   20REM By H Burrows
   30REM LEN Archimedes World June '92
   40
   50*FX4,1
   60
   70DATA 101010101010101,242424242424242
   80DATA 010101110101110,224242224242222
   90DATA 101110101011101,242224242422242
  100DATA 011101010111010,222242424222422
  110DATA 101010111011101,242424222422242
  120DATA 010101010101010,111111111111111
  130
  140DATA 101010101010101,242424242424242
  150DATA 011101110111010,222242224222422
  160DATA 110110111010101,224224222424242
  170DATA 011011010101110,222422424242222
  180DATA 101110101110101,242224242224242
  190DATA 010101010101010,111111111111111
  200
  210DATA 101010101010101,242424242424242
  220DATA 011101110111110,222242224222222
  230DATA 110111011101011,224222422242422
  240DATA 011101110110110,222242224224222
  250DATA 101110111011101,242224222422242
  260DATA 010101010101010,111111111111111
  270
  280DATA 101010101010101,242424242424242
  290DATA 010101010101010,224242424242422
  300DATA 101010101010101,242424242424242
  310DATA 010101010101010,224242424242422
  320DATA 101010101010101,242424242424242
  330DATA 010101010101010,111111111111111
  340
  350DIM s%(14,11),b%(7),ll% 9,st%(3),len%(3),freq%(3),levb%(3)
  360
  370F%=OPENIN"<Drop$Dir>.AllCode":L%=EXT#F%:CLOSE#F%:DIM g% L%:OSCLI("LOAD <Drop$Dir>.AllCode "+STR$~g%)
  380MODE13
  390OFF
  400PROCvars
  410RESTORE420
  420DATA 0,468,7E15,3D4,46C,228D,69EE,AE0,26FD,4DC1,4F27,B88,74C2,22CB,7E15,150
  430FORj%=0TO3
  440 READst$,len$,freq$,levb$
  450 st%(j%)=EVAL("&"+st$)+samp%
  460 len%(j%)=EVAL("&"+len$)
  470 freq%(j%)=EVAL("&"+freq$)
  480 levb%(j%)=EVAL("&"+levb$)
  490NEXT
  500ON ERROR OFF
  510MODE12
  520OFF
  530COLOUR1,210,180,120
  540COLOUR2,180,220,140
  550COLOUR3,160,210,200
  560COLOUR4,220,120,140
  570COLOUR1
  580PROCc("Welcome to",1)
  590PROCc("DDD  RRR   OO  PPP ",4)
  600PROCc("D  D R  R O  O P  P",5)
  610PROCc("D  D RRR  O  O PPP ",6)
  620PROCc("D  D R R  O  O P   ",7)
  630PROCc("DDD  R  R  OO  P   ",8)
  640COLOUR2
  650PROCc("Instructions",11)
  660PROCc("~~~~~~~~~~~~",12)
  670COLOUR3
  680PROCc("The object of the game is to fill the eight holes at the bottom of the",13)
  690PROCc("screen with balls that are dropped from the top. Along the top of the",14)
  700PROCc("screen is a row of sliding doors. Move the ball left and right over them",15)
  710PROCc("using the arrow keys until you reach the door you wish to drop the ball",16)
  720PROCc("through. Then push the down arrow key and the ball will begin to fall.",17)
  730PROCc("When it hits a yellow spinner it will be deflected and the spinner will",18)
  740PROCc("rotate. If a ball ends up in a hole which already contains one, both",19)
  750PROCc("balls will disintegrate.",20)
  760PROCc("To make it more difficult you must always have more holes filled than",21)
  770PROCc("the number of balls shown in the box at the top of the screen.",22)
  780PROCc("For instance: at the start the box is empty so with the first ball you",23)
  790PROCc("must end up with at least one hole filled (which is inevitable). However,",24)
  800PROCc("the next ball must fall in a different hole, or else they will disintegrate",25)
  810PROCc("and no holes will be filled - game over. The number of balls in the box",26)
  820PROCc("increases as you play so be careful where you drop!",27)
  830COLOUR4
  840PROCc("Press SPACE to begin",30)
  850REPEATUNTILGET=32
  860CALL init%:REM Initialise sample player
  870ON ERROR PROCerror:CALLend%:GOTO 500
  880REPEAT
  890 level%=0
  900 MODE13
  910 OFF
  920 RESTORE
  930 dead%=0
  940 REPEAT
  950  FORy%=0TO11
  960   READs$
  970   FORx%=0TO14
  980    s%(x%,y%)=VAL(MID$(s$,x%+1,1))
  990   NEXT
 1000  NEXT
 1010  PROCdraw_screen
 1020  PROCrandomize
 1030  PROCnewball
 1040  done%=0
 1050  min%=0
 1060  REPEAT
 1070   PROCupdate
 1080   IFtop% THEN
 1090    IFINKEY-26  PROCmove_left
 1100    IFINKEY-122 PROCmove_right
 1110    IFINKEY-42  PROCmove_drop
 1120   ELSE
 1130    PROCfall
 1140   ENDIF
 1150  UNTILdone%=8 OR dead%
 1160  level%+=1
 1170 UNTILlevel%=4 OR dead%
 1180 MODE12
 1190 OFF
 1200 COLOUR1,210,180,120
 1210 COLOUR2,180,220,140
 1220 COLOUR3,160,210,200
 1230 IFlevel%=4 THEN
 1240  COLOUR1
 1250  PROCc("Congratulations!",6)
 1260  COLOUR2
 1270  PROCc("You've done all four screens..!",10)
 1280  PROCc("I'm impressed.",12)
 1290  COLOUR3
 1300  PROCc("Want to play again? (Y/N)",22)
 1310 ELSE
 1320  COLOUR2
 1330  PROCc("Bad luck... You've disintegrated too many.",8)
 1340  COLOUR3
 1350  PROCc("Want to try again? (Y/N)",22)
 1360 ENDIF
 1370 yn%=0
 1380 d%=1
 1390 t%=0
 1400 REPEAT
 1410  WAIT:WAIT
 1420  bc=(t%/16)
 1430  VDU19,0,24,bc*210,bc*180,bc*120
 1440  t%+=d%
 1450  IFt%=16ORt%=0 d%=-d%
 1460  IFINKEY-69 yn%=1
 1470  IFINKEY-86 yn%=2
 1480 UNTILyn%
 1490UNTILyn%=2
 1500PROCpause(0.3)
 1510MODE0
 1520*FX15
 1530CALL end%:REM Close down the sample player
 1540END
 1550
 1560DEFPROCc(x$,y%)
 1570PRINTTAB(40-LENx$/2,y%)x$
 1580ENDPROC
 1590
 1600DEFPROCdraw_screen
 1610CLS
 1620b%()=0
 1630yt%=12*64
 1640FORy%=0TO11
 1650 yb%=yt%-y%*64
 1660 REM Left edge
 1670 yy%=255-yb%DIV4
 1680 A%=!scrad%+yy%*320:B%=g%+levb%(level%):CALL leftblock%
 1690 REM Right edge
 1700 A%=!scrad%+(320-10)+yy%*320:B%=g%+levb%(level%):CALL rightblock%
 1710 FORx%=0TO14
 1720  c%=s%(x%,y%)
 1730  IFc%=0PROCdraw_drop
 1740  IFc%=1PROCdraw_block
 1750  IFc%=2PROCdraw_blank
 1760  IF(c%AND4)=4PROCdraw_door(c%AND3,x%,y%)
 1770 NEXT
 1780NEXT
 1790CALLlogo%
 1800CALLmachine%
 1810CALLmini%
 1820ENDPROC
 1830
 1840DEFPROCdraw_drop
 1850A%=!scrad%+((x%*20)+10)+yy%*320
 1860B%=g%+levb%(level%)+&54
 1870CALL block%
 1880IFy%=0 B%=g%+&3C6:CALL slider%
 1890ENDPROC
 1900
 1910DEFPROCdraw_block
 1920A%=!scrad%+((x%*20)+10)+yy%*320
 1930B%=g%+levb%(level%)
 1940CALL block%
 1950ENDPROC
 1960
 1970DEFPROCvars
 1980scrad%=g%+&BDC4
 1990SYS"OS_ReadVduVariables",scrad%,scrad%
 2000leftblock%=g%+&BE4C
 2010rightblock%=g%+&BEC4
 2020logo%=g%+&C040
 2030machine%=g%+&C154
 2040mini%=g%+&C248
 2050block%=g%+&BDD8
 2060slider%=g%+&BDCC
 2070door%=g%+&BD64
 2080slidergap%=g%+&BD9C
 2090ball%=g%+&BF48
 2100deleteball%=g%+&BFD0
 2110welld%=g%+&C0F0
 2120samp%=g%+&2254
 2130init%=g%+&BC40
 2140note%=g%+&BBE0
 2150end%=g%+&BD1C
 2160g%!&BD60=g%
 2170g%!&BF44=g%+&384
 2180g%!&C03C=g%+&47C
 2190g%!&C0EC=g%+&C30
 2200g%!&C14C=g%+&21DC
 2210g%!&C150=g%+&202C
 2220g%!&C244=g%+&21F0
 2230ENDPROC
 2240
 2250DEFPROCdraw_blank:ENDPROC
 2260
 2270DEFPROCdraw_door(C%,A%,B%):CALL door%:ENDPROC
 2280
 2290DEFPROCupdate
 2300WAIT:PROCdeleteball
 2310IF spin% PROCspin
 2320IF slide% PROCcloseslider
 2330A%=cx%:B%=cy%:C%=g%+&1F8+(ballt%DIV4)*&42:CALL ball%
 2340ox%=cx%:oy%=cy%:ENDPROC
 2350
 2360DEFPROCspin
 2370sval%-=1
 2380IFsval%<0 sval%=0:IFs%(spx%,spy%)=spinend% spin%=0:ENDPROC
 2390IF(sval%AND1)=1 ENDPROC
 2400c%=s%(spx%,spy%)AND3
 2410IFc%=1 PROCsound(0,0)
 2420c%=(c%+sdir%)AND3
 2430s%(spx%,spy%)=c%+4
 2440PROCdraw_door(c%,spx%,spy%)
 2450ENDPROC
 2460
 2470DEFPROCdeleteball:A%=ox%:B%=oy%:CALL deleteball%:ENDPROC
 2480
 2490DEFPROCdestroyball
 2500REM Disintegrate the ball
 2510PROCsound(3,3)
 2520ballt%=16
 2530PROCupdate
 2540PROCupdate
 2550ballt%=20
 2560PROCupdate
 2570PROCupdate
 2580PROCdeleteball
 2590PROCpause(0.4)
 2600ENDPROC
 2610
 2620DEFPROCnewball
 2630top%=TRUE
 2640ballt%=0
 2650spin%=0:REM  TRUE if a door is spinning
 2660slide%=0:REM TRUE if a slider is open
 2670PROCsound(0,1)
 2680REM Eject ball from the machine
 2690cx%=608
 2700cy%=876
 2710ox%=cx%:oy%=cy%
 2720A%=cx%:B%=cy%:C%=g%+&1F8:CALL ball%
 2730vx%=2
 2740vy%=3
 2750REPEAT
 2760 cx%+=vx%:cy%+=vy%
 2770 IFcy%<yt%+32 cy%=yt%+32:cx%=7*80+80
 2780 vy%-=1
 2790 WAIT
 2800 PROCdeleteball
 2810 A%=cx%:B%=cy%:C%=g%+&1F8:CALL ball%
 2820 ox%=cx%:oy%=cy%
 2830UNTILcy%=yt%+32
 2840ENDPROC
 2850
 2860DEFPROCmove_left
 2870IFcx%=160ENDPROC
 2880REPEAT
 2890 FORz%=0TO19
 2900  cx%-=8
 2910  ballt%=(ballt%-1)AND15
 2920  PROCupdate
 2930 NEXT
 2940UNTIL(NOTINKEY-26)ORcx%=160
 2950ENDPROC
 2960
 2970DEFPROCmove_right
 2980IFcx%=1120ENDPROC
 2990REPEAT
 3000 FORz%=0TO19
 3010  cx%+=8
 3020  ballt%=(ballt%+1)AND15
 3030  PROCupdate
 3040 NEXT
 3050UNTIL(NOTINKEY-122)ORcx%=1120
 3060ENDPROC
 3070
 3080DEFPROCmove_drop
 3090top%=0
 3100dir%=0:REM 1=right, -1=left, 0=dropping
 3110yv%=8
 3120REM Open the slider
 3130sx%=(cx%-40)DIV80
 3140A%=!scrad%+((sx%*20)+10)+63*320
 3150FORe%=0TO4
 3160 WAIT
 3170 WAIT
 3180 A%?(e%+10)=0
 3190 A%?(e%+10+320)=0
 3200 A%?(10-e%)=0
 3210 A%?(10-e%+320)=0
 3220NEXT
 3230slide%=TRUE
 3240slideval%=16
 3250slideadr%=A%
 3260ENDPROC
 3270
 3280DEFPROCcloseslider
 3290slideval%-=1
 3300IFslideval%>4 ENDPROC
 3310A%=slideadr%
 3320B%=g%+&3C6:CALL slider%
 3330IFslideval%=-1 slide%=0:ENDPROC
 3340B%=slideval%:CALLslidergap%:ENDPROC
 3350
 3360DEFPROCfall
 3370REM Look at square below this one
 3380sx%=(cx%-40)DIV80
 3390sy%=(yt%-cy%+32)DIV64
 3400mx%=(cx%-40)MOD80
 3410my%=(yt%-cy%+32)MOD64
 3420IF mx%=40 AND s%(sx%,sy%)<>1 AND dir%<>0 dir%=0:yv%=8
 3430IF sy%=11 PROCfallen:ENDPROC
 3440IF dir%=0 AND s%(sx%,sy%)=1 THEN
 3450 IFs%(sx%,sy%-1)=4 THEN
 3460  dir%=-1
 3470  IF sx%>0 AND sx%<14 spin%=TRUE:spx%=sx%:spy%=sy%-1:spinend%=6:sval%=16:sdir%=1
 3480 ELSE
 3490  dir%=1
 3500  IF sx%>0 AND sx%<14 spin%=TRUE:spx%=sx%:spy%=sy%-1:spinend%=4:sval%=16:sdir%=-1
 3510 ENDIF
 3520ENDIF
 3530IF sx%=14 AND mx%=40 AND dir%=1 dir%=-1
 3540IF sx%=0 AND mx%=40 AND dir%=-1 dir%=1
 3550IF dir%<>0 PROCroll:ENDPROC
 3560REM Drop!
 3570IF(64-my%)-yv%DIV4<0 AND s%(sx%,sy%+1)=1 yv%=(64-my%)*4
 3580IFmy%>24 AND(s%(sx%,sy%)AND4)=4 THEN
 3590 c%=s%(sx%,sy%)AND3
 3600 IFc%=0 cx%-=4
 3610 IFc%=2 cx%+=4
 3620ENDIF
 3630cy%-=yv%DIV4
 3640yv%+=2
 3650ENDPROC
 3660
 3670DEFPROCroll
 3680cx%+=4*dir%
 3690ballt%=(ballt%+dir%)AND15
 3700sx%=(cx%-40)DIV80
 3710sy%=(yt%-cy%-32)DIV64
 3720mx%=(cx%-40)MOD80
 3730my%=(yt%-cy%-32)MOD64
 3740IF(s%(sx%,sy%)AND4)=4 AND mx%=40 AND NOTspin% spin%=TRUE:spx%=sx%:spy%=sy%:spinend%=s%(sx%,sy%):sval%=16:sdir%=dir%
 3750ENDPROC
 3760
 3770DEFPROCfallen
 3780REM It's landed somewhere
 3790slot%=sx%DIV2
 3800IFb%(slot%) THEN b%(slot%)=0:PROCdestroyball:done%-=1 ELSE b%(slot%)=TRUE:done%+=1
 3810IFdone%=8PROCwinner:ENDPROC
 3820m%=done%DIV2
 3830IFm%>min% min%=m%:PROCnewmin
 3840IFdone%=min%PROCdie:ENDPROC
 3850PROCnewball
 3860ENDPROC
 3870
 3880DEFPROCnewmin
 3890A%=161*4+(min%-1)*10*4+5*4
 3900B%=1012-5*4
 3910C%=g%+&1F8+(RND(4)-1)*&42
 3920CALLball%
 3930ENDPROC
 3940
 3950DEFPROCsound(D%,sample%)
 3960A%=st%(sample%)
 3970B%=len%(sample%)
 3980C%=freq%(sample%)
 3990CALL note%
 4000ENDPROC
 4010
 4020DEFPROCrandomize
 4030REM Spin doors randomly
 4040LOCAL sx%(),sy%(),ns%(),dir%()
 4050DIM sx%(3),sy%(3),ns%(3),dir%(3)
 4060ns%()=0
 4070TIME=0
 4080stop%=0
 4090REPEAT
 4100 x%=RND(15)-1
 4110 y%=RND(12)-1
 4120 s%=s%(x%,y%)
 4130 num%=FNnews
 4140 IF(s%AND4)=4 ANDNOTFNalready(x%,y%) ANDnum%>=0 ANDNOTstop% THEN
 4150  REM Start this door spinning
 4160  ns%(num%)=RND(5)*4
 4170  dir%(num%)=RND(2):IFdir%(num%)=2 dir%(num%)=-1
 4180  sx%(num%)=x%:sy%(num%)=y%
 4190 ENDIF
 4200 REM Update spinning doors
 4210 WAIT
 4220 FOR num%=0 TO 3
 4230  IFns%(num%)>0 THEN
 4240   IF(ns%(num%)AND1)=0 THEN
 4250    s%=s%(sx%(num%),sy%(num%))
 4260    IF(s%AND3)=1 PROCsound(num%,0)
 4270    s%=(s%+dir%(num%))AND3
 4280    s%(sx%(num%),sy%(num%))=s%+4
 4290    PROCdraw_door(s%,sx%(num%),sy%(num%))
 4300   ENDIF
 4310   ns%(num%)-=1
 4320  ENDIF
 4330 NEXT
 4340 IF TIME>500 stop%=TRUE
 4350UNTIL stop% AND ns%(0)+ns%(1)+ns%(2)+ns%(3)=0
 4360ENDPROC
 4370
 4380DEFFNalready(x%,y%)
 4390IFsx%(0)=x%ANDsy%(0)=y% =TRUE
 4400IFsx%(1)=x%ANDsy%(1)=y% =TRUE
 4410IFsx%(2)=x%ANDsy%(2)=y% =TRUE
 4420=sx%(3)=x%ANDsy%(3)=y%
 4430
 4440DEFFNnews
 4450IFns%(0)=0 =0
 4460IFns%(1)=0 =1
 4470IFns%(2)=0 =2
 4480IFns%(3)=0 =3
 4490=-1
 4500
 4510DEFPROCerror
 4520IFERR=17 ENDPROC
 4530CLOSE#0
 4540CALL end%:REM Close down the sample player
 4550REPORT
 4560PRINT" at ";ERL
 4570END
 4580
 4590DEFPROCpause(X)
 4600TIME=0:REPEATUNTILTIME>X*100
 4610ENDPROC
 4620
 4630DEFPROCwinner
 4640WAIT
 4650CALL welld%
 4660PROCsound(0,2)
 4670PROCsound(1,2)
 4680GCOL0TINT0
 4690x%=0
 4700REPEAT
 4710 WAIT
 4720 IFx%<240 LINEx%,0,x%,1023:LINE1279-x%,0,1279-x%,1023
 4730 IFx%<384 LINE0,1023-x%,1279,1023-x%
 4740 LINE0,x%,1279,x%
 4750 x%+=4
 4760UNTILx%>432
 4770GCOL63TINT192
 4780FORloop%=0TO3
 4790 WAIT
 4800 RECTANGLE FILL 240,436,800,204
 4810 WAIT
 4820 CALL welld%
 4830NEXT
 4840GCOL0TINT0
 4850RECTANGLE FILL 240,436,800,204
 4860ENDPROC
 4870
 4880DEFPROCdie
 4890dead%=TRUE
 4900FORloop%=0TO3
 4910 PROCsound(0,3)
 4920 IF(loop%AND1)=1PROCsound(1,3)
 4930 IFloop%=3PROCsound(2,3):PROCsound(3,3)
 4940 PROCpause(0.5)
 4950NEXT
 4960c%=0
 4970FORy%=0TO11
 4980 FORx%=0TO14
 4990  s%=s%(x%,y%)
 5000  IF(s%AND4)=4 THEN
 5010   WAIT
 5020   WAIT
 5030   PROCdraw_door(3,x%,y%)
 5040   PROCsound(c%,0)
 5050   c%=(c%+1)AND3
 5060  ENDIF
 5070 NEXT
 5080NEXT
 5090PROCbig("GAME",800)
 5100PROCbig("OVER",512)
 5110PROCpause(2)
 5120ENDPROC
 5130
 5140DEFPROCbig(A$,Y%)
 5150X%=640-(LENA$)*128
 5160FORa%=1TOLENA$
 5170 REM Draw big letter at X%,Y%
 5180 ?ll%=ASC(MID$(A$,a%,1))
 5190 SYS"OS_Word",10,ll%
 5200 FORy%=1TO8
 5210  V%=ll%?y%
 5220  FORx%=0TO7
 5230   c%=V%AND(1<<(7-x%))
 5240   IFc%>0 A%=X%+x%*32:B%=Y%-y%*32:C%=g%+&1F8+(RND(4)-1)*&42:CALLball%
 5250  NEXT
 5260 NEXT
 5270 X%+=256
 5280NEXT
 5290ENDPROC


� > $.!Drop.!RunImage
� By H Burrows
!� � Archimedes World June '92
(
2
*FX4,1
<
F%� 101010101010101,242424242424242
P%� 010101110101110,224242224242222
Z%� 101110101011101,242224242422242
d%� 011101010111010,222242424222422
n%� 101010111011101,242424222422242
x%� 010101010101010,111111111111111
�
�%� 101010101010101,242424242424242
�%� 011101110111010,222242224222422
�%� 110110111010101,224224222424242
�%� 011011010101110,222422424242222
�%� 101110101110101,242224242224242
�%� 010101010101010,111111111111111
�
�%� 101010101010101,242424242424242
�%� 011101110111110,222242224222222
�%� 110111011101011,224222422242422
�%� 011101110110110,222242224224222
�%� 101110111011101,242224222422242
%� 010101010101010,111111111111111

%� 101010101010101,242424242424242
"%� 010101010101010,224242424242422
,%� 101010101010101,242424242424242
6%� 010101010101010,224242424242422
@%� 101010101010101,242424242424242
J%� 010101010101010,111111111111111
T
^<� s%(14,11),b%(7),ll% 9,st%(3),len%(3),freq%(3),levb%(3)
h
rTF%=�"<Drop$Dir>.AllCode":L%=�#F%:�#F%:� g% L%:�("LOAD <Drop$Dir>.AllCode "+�~g%)
|�13
��
�	�vars
�	��tdA
�L� 0,468,7E15,3D4,46C,228D,69EE,AE0,26FD,4DC1,4F27,B88,74C2,22CB,7E15,150
��j%=0�3
� �st$,len$,freq$,levb$
� st%(j%)=�("&"+st$)+samp%
� len%(j%)=�("&"+len$)
� freq%(j%)=�("&"+freq$)
� levb%(j%)=�("&"+levb$)
��
�	� � �
��12
�
�1,210,180,120
�2,180,220,140
&�3,160,210,200
0�4,220,120,140
:�1
D�c("Welcome to",1)
N�c("DDD  RRR   OO  PPP ",4)
X�c("D  D R  R O  O P  P",5)
b�c("D  D RRR  O  O PPP ",6)
l�c("D  D R R  O  O P   ",7)
v�c("DDD  R  R  OO  P   ",8)
��2
��c("Instructions",11)
��c("~~~~~~~~~~~~",12)
��3
�S�c("The object of the game is to fill the eight holes at the bottom of the",13)
�R�c("screen with balls that are dropped from the top. Along the top of the",14)
�U�c("screen is a row of sliding doors. Move the ball left and right over them",15)
�T�c("using the arrow keys until you reach the door you wish to drop the ball",16)
�S�c("through. Then push the down arrow key and the ball will begin to fall.",17)
�T�c("When it hits a yellow spinner it will be deflected and the spinner will",18)
�Q�c("rotate. If a ball ends up in a hole which already contains one, both",19)
�%�c("balls will disintegrate.",20)
�R�c("To make it more difficult you must always have more holes filled than",21)
K�c("the number of balls shown in the box at the top of the screen.",22)
S�c("For instance: at the start the box is empty so with the first ball you",23)
V�c("must end up with at least one hole filled (which is inevitable). However,",24)
 X�c("the next ball must fall in a different hole, or else they will disintegrate",25)
*T�c("and no holes will be filled - game over. The number of balls in the box",26)
4@�c("increases as you play so be careful where you drop!",27)
>�4
H!�c("Press SPACE to begin",30)
R
���=32
\&� init%:� Initialise sample player
f� � �error:�end%:� �dtA
p�
z
 level%=0
� �13
� �
� �
� dead%=0
� �
�  �y%=0�11
�
   �s$
�   �x%=0�14
�     s%(x%,y%)=�(�s$,x%+1,1))
�   �
�  �
�  �draw_screen
�  �randomize
  �newball

  done%=0
  min%=0
$  �
.   �update
8   �top% �
B    �-26  �move_left
L    �-122 �move_right
V    �-42  �move_drop
`   �
j
    �fall
t   �
~  �done%=8 � dead%
�  level%+=1
� �level%=4 � dead%
� �12
� �
� �1,210,180,120
� �2,180,220,140
� �3,160,210,200
� �level%=4 �
�  �1
�  �c("Congratulations!",6)
�  �2
�.  �c("You've done all four screens..!",10)
  �c("I'm impressed.",12)

  �3
(  �c("Want to play again? (Y/N)",22)
 �
(  �2
28  �c("Bad luck... You've disintegrated too many.",8)
<  �3
F'  �c("Want to try again? (Y/N)",22)
P �
Z
 yn%=0
d	 d%=1
n	 t%=0
x �
�  Ȗ:Ȗ
�  bc=(t%/16)
�#  �19,0,24,bc*210,bc*180,bc*120
�  t%+=d%
�  �t%=16�t%=0 d%=-d%
�  �-69 yn%=1
�  �-86 yn%=2
�	 �yn%
�
�yn%=2
��pause(0.3)
��0
�	*FX15
�)� end%:� Close down the sample player
�

��c(x$,y%)
"�40-�x$/2,y%)x$
,�
6
@��draw_screen
J�
T
b%()=0
^
yt%=12*64
h�y%=0�11
r yb%=yt%-y%*64
| � Left edge
� yy%=255-yb%�4
�8 A%=!scrad%+yy%*320:B%=g%+levb%(level%):� leftblock%
� � Right edge
�B A%=!scrad%+(320-10)+yy%*320:B%=g%+levb%(level%):� rightblock%
�
 �x%=0�14
�  c%=s%(x%,y%)
�  �c%=0�draw_drop
�  �c%=1�draw_block
�  �c%=2�draw_blank
�%  �(c%�4)=4�draw_door(c%�3,x%,y%)
� �
��
�
�logo%

�machine%

�mini%
�
&
0��draw_drop
:#A%=!scrad%+((x%*20)+10)+yy%*320
DB%=g%+levb%(level%)+&54
N� block%
X�y%=0 B%=g%+&3C6:� slider%
b�
l
v��draw_block
�#A%=!scrad%+((x%*20)+10)+yy%*320
�B%=g%+levb%(level%)
�� block%
��
�
�
��vars
�scrad%=g%+&BDC4
�)ș"OS_ReadVduVariables",scrad%,scrad%
�leftblock%=g%+&BE4C
�rightblock%=g%+&BEC4
�logo%=g%+&C040
�machine%=g%+&C154
�mini%=g%+&C248
block%=g%+&BDD8
slider%=g%+&BDCC
door%=g%+&BD64
 slidergap%=g%+&BD9C
*ball%=g%+&BF48
4deleteball%=g%+&BFD0
>welld%=g%+&C0F0
Hsamp%=g%+&2254
Rinit%=g%+&BC40
\note%=g%+&BBE0
fend%=g%+&BD1C
pg%!&BD60=g%
zg%!&BF44=g%+&384
�g%!&C03C=g%+&47C
�g%!&C0EC=g%+&C30
�g%!&C14C=g%+&21DC
�g%!&C150=g%+&202C
�g%!&C244=g%+&21F0
��
�
���draw_blank:�
�
�#��draw_door(C%,A%,B%):� door%:�
�
���update
�Ȗ:�deleteball
	� spin% �spin
	� slide% �closeslider
	3A%=cx%:B%=cy%:C%=g%+&1F8+(ballt%�4)*&42:� ball%
	$ox%=cx%:oy%=cy%:�
	.
	8
��spin
	Bsval%-=1
	L6�sval%<0 sval%=0:�s%(spx%,spy%)=spinend% spin%=0:�
	V�(sval%�1)=1 �
	`c%=s%(spx%,spy%)�3
	j�c%=1 �sound(0,0)
	tc%=(c%+sdir%)�3
	~s%(spx%,spy%)=c%+4
	��draw_door(c%,spx%,spy%)
	��
	�
	�.��deleteball:A%=ox%:B%=oy%:� deleteball%:�
	�
	���destroyball
	�� Disintegrate the ball
	��sound(3,3)
	�
ballt%=16
	��update
	��update
	�
ballt%=20
�update

�update
�deleteball
�pause(0.4)
(�
2
<
��newball
F
top%=�
Pballt%=0
Z)spin%=0:�  TRUE if a door is spinning
d'slide%=0:� TRUE if a slider is open
n�sound(0,1)
x!� Eject ball from the machine
�cx%=608
�cy%=876
�ox%=cx%:oy%=cy%
�$A%=cx%:B%=cy%:C%=g%+&1F8:� ball%
�	vx%=2
�	vy%=3
��
� cx%+=vx%:cy%+=vy%
�' �cy%<yt%+32 cy%=yt%+32:cx%=7*80+80
� vy%-=1
� Ȗ
� �deleteball
�% A%=cx%:B%=cy%:C%=g%+&1F8:� ball%
 ox%=cx%:oy%=cy%
�cy%=yt%+32
�
"
,��move_left
6
�cx%=160�
@�
J
 �z%=0�19
T  cx%-=8
^  ballt%=(ballt%-1)�15
h
  �update
r �
|�(��-26)�cx%=160
��
�
���move_right
��cx%=1120�
��
�
 �z%=0�19
�  cx%+=8
�  ballt%=(ballt%+1)�15
�
  �update
� �
��(��-122)�cx%=1120
��
�
��move_drop

top%=0
)dir%=0:� 1=right, -1=left, 0=dropping
&	yv%=8
0� Open the slider
:sx%=(cx%-40)�80
D#A%=!scrad%+((sx%*20)+10)+63*320
N�e%=0�4
X Ȗ
b Ȗ
l A%?(e%+10)=0
v A%?(e%+10+320)=0
� A%?(10-e%)=0
� A%?(10-e%+320)=0
��
�slide%=�
�slideval%=16
�slideadr%=A%
��
�
���closeslider
�slideval%-=1
��slideval%>4 �
�A%=slideadr%
�B%=g%+&3C6:� slider%

�slideval%=-1 slide%=0:�

B%=slideval%:�slidergap%:�



 
��fall

*#� Look at square below this one

4sx%=(cx%-40)�80

>sy%=(yt%-cy%+32)�64

Hmx%=(cx%-40)�80

Rmy%=(yt%-cy%+32)�64

\4� mx%=40 � s%(sx%,sy%)<>1 � dir%<>0 dir%=0:yv%=8

f� sy%=11 �fallen:�

p� dir%=0 � s%(sx%,sy%)=1 �

z �s%(sx%,sy%-1)=4 �

�
  dir%=-1

�N  � sx%>0 � sx%<14 spin%=�:spx%=sx%:spy%=sy%-1:spinend%=6:sval%=16:sdir%=1

� �

�  dir%=1

�O  � sx%>0 � sx%<14 spin%=�:spx%=sx%:spy%=sy%-1:spinend%=4:sval%=16:sdir%=-1

� �

��

�&� sx%=14 � mx%=40 � dir%=1 dir%=-1

�%� sx%=0 � mx%=40 � dir%=-1 dir%=1

�� dir%<>0 �roll:�

�� Drop!

�6�(64-my%)-yv%�4<0 � s%(sx%,sy%+1)=1 yv%=(64-my%)*4

� �my%>24 �(s%(sx%,sy%)�4)=4 �
 c%=s%(sx%,sy%)�3
 �c%=0 cx%-=4
 �c%=2 cx%+=4
$�
.cy%-=yv%�4
8
yv%+=2
B�
L
V
��roll
`cx%+=4*dir%
jballt%=(ballt%+dir%)�15
tsx%=(cx%-40)�80
~sy%=(yt%-cy%-32)�64
�mx%=(cx%-40)�80
�my%=(yt%-cy%-32)�64
�k�(s%(sx%,sy%)�4)=4 � mx%=40 � �spin% spin%=�:spx%=sx%:spy%=sy%:spinend%=s%(sx%,sy%):sval%=16:sdir%=dir%
��
�
���fallen
�� It's landed somewhere
�slot%=sx%�2
�I�b%(slot%) � b%(slot%)=0:�destroyball:done%-=1 � b%(slot%)=�:done%+=1
��done%=8�winner:�
�m%=done%�2
��m%>min% min%=m%:�newmin
�done%=min%�die:�

�newball
�

(��newmin
2A%=161*4+(min%-1)*10*4+5*4
<B%=1012-5*4
FC%=g%+&1F8+(�(4)-1)*&42
P
�ball%
Z�
d
n��sound(D%,sample%)
xA%=st%(sample%)
�B%=len%(sample%)
�C%=freq%(sample%)
�� note%
��
�
���randomize
�� Spin doors randomly
�� sx%(),sy%(),ns%(),dir%()
�"� sx%(3),sy%(3),ns%(3),dir%(3)
�ns%()=0
��=0
�stop%=0
��
 x%=�(15)-1
 y%=�(12)-1
 s%=s%(x%,y%)
" num%=�news
,3 �(s%�4)=4 ���already(x%,y%) �num%>=0 ��stop% �
6   � Start this door spinning
@  ns%(num%)=�(5)*4
J1  dir%(num%)=�(2):�dir%(num%)=2 dir%(num%)=-1
T  sx%(num%)=x%:sy%(num%)=y%
^ �
h � Update spinning doors
r Ȗ
| � num%=0 � 3
�  �ns%(num%)>0 �
�   �(ns%(num%)�1)=0 �
�"    s%=s%(sx%(num%),sy%(num%))
�     �(s%�3)=1 �sound(num%,0)
�    s%=(s%+dir%(num%))�3
�$    s%(sx%(num%),sy%(num%))=s%+4
�*    �draw_door(s%,sx%(num%),sy%(num%))
�   �
�   ns%(num%)-=1
�  �
� �
� � �>500 stop%=�
�+� stop% � ns%(0)+ns%(1)+ns%(2)+ns%(3)=0
�

ݤalready(x%,y%)
&�sx%(0)=x%�sy%(0)=y% =�
0�sx%(1)=x%�sy%(1)=y% =�
:�sx%(2)=x%�sy%(2)=y% =�
D=sx%(3)=x%�sy%(3)=y%
N
X
ݤnews
b�ns%(0)=0 =0
l�ns%(1)=0 =1
v�ns%(2)=0 =2
��ns%(3)=0 =3
�=-1
�
���error
��=17 �
��#0
�)� end%:� Close down the sample player
��
�
�" at ";�
��
�
���pause(X)
��=0:���>X*100
�

��winner
 Ȗ
*� welld%
4�sound(0,2)
>�sound(1,2)
H	�0Ȝ0
Rx%=0
\�
f Ȗ
p2 �x%<240 �x%,0,x%,1023:�1279-x%,0,1279-x%,1023
z$ �x%<384 �0,1023-x%,1279,1023-x%
� �0,x%,1279,x%
�
 x%+=4
��x%>432
��63Ȝ192
��loop%=0�3
� Ȗ
� ȓ Ȑ 240,436,800,204
� Ȗ
�
 � welld%
��
�	�0Ȝ0
�ȓ Ȑ 240,436,800,204
��

	��die
dead%=�
$�loop%=0�3
. �sound(0,3)
8 �(loop%�1)=1�sound(1,3)
B$ �loop%=3�sound(2,3):�sound(3,3)
L �pause(0.5)
V�
`c%=0
j�y%=0�11
t
 �x%=0�14
~  s%=s%(x%,y%)
�  �(s%�4)=4 �
�	   Ȗ
�	   Ȗ
�   �draw_door(3,x%,y%)
�   �sound(c%,0)
�   c%=(c%+1)�3
�  �
� �
��
��big("GAME",800)
��big("OVER",512)
�
�pause(2)
�


��big(A$,Y%)
X%=640-(�A$)*128
(
�a%=1��A$
2 � Draw big letter at X%,Y%
< ?ll%=�(�A$,a%,1))
F ș"OS_Word",10,ll%
P �y%=1�8
Z  V%=ll%?y%
d
  �x%=0�7
n   c%=V%�(1<<(7-x%))
xC   �c%>0 A%=X%+x%*32:B%=Y%-y%*32:C%=g%+&1F8+(�(4)-1)*&42:�ball%
�  �
� �
� X%+=256
��
��
�

00000000  0d 00 0a 19 f4 20 3e 20  24 2e 21 44 72 6f 70 2e  |..... > $.!Drop.|
00000010  21 52 75 6e 49 6d 61 67  65 0d 00 14 12 f4 20 42  |!RunImage..... B|
00000020  79 20 48 20 42 75 72 72  6f 77 73 0d 00 1e 21 f4  |y H Burrows...!.|
00000030  20 a9 20 41 72 63 68 69  6d 65 64 65 73 20 57 6f  | . Archimedes Wo|
00000040  72 6c 64 20 4a 75 6e 65  20 27 39 32 0d 00 28 04  |rld June '92..(.|
00000050  0d 00 32 0a 2a 46 58 34  2c 31 0d 00 3c 04 0d 00  |..2.*FX4,1..<...|
00000060  46 25 dc 20 31 30 31 30  31 30 31 30 31 30 31 30  |F%. 101010101010|
00000070  31 30 31 2c 32 34 32 34  32 34 32 34 32 34 32 34  |101,242424242424|
00000080  32 34 32 0d 00 50 25 dc  20 30 31 30 31 30 31 31  |242..P%. 0101011|
00000090  31 30 31 30 31 31 31 30  2c 32 32 34 32 34 32 32  |10101110,2242422|
000000a0  32 34 32 34 32 32 32 32  0d 00 5a 25 dc 20 31 30  |24242222..Z%. 10|
000000b0  31 31 31 30 31 30 31 30  31 31 31 30 31 2c 32 34  |1110101011101,24|
000000c0  32 32 32 34 32 34 32 34  32 32 32 34 32 0d 00 64  |2224242422242..d|
000000d0  25 dc 20 30 31 31 31 30  31 30 31 30 31 31 31 30  |%. 0111010101110|
000000e0  31 30 2c 32 32 32 32 34  32 34 32 34 32 32 32 34  |10,2222424242224|
000000f0  32 32 0d 00 6e 25 dc 20  31 30 31 30 31 30 31 31  |22..n%. 10101011|
00000100  31 30 31 31 31 30 31 2c  32 34 32 34 32 34 32 32  |1011101,24242422|
00000110  32 34 32 32 32 34 32 0d  00 78 25 dc 20 30 31 30  |2422242..x%. 010|
00000120  31 30 31 30 31 30 31 30  31 30 31 30 2c 31 31 31  |101010101010,111|
00000130  31 31 31 31 31 31 31 31  31 31 31 31 0d 00 82 04  |111111111111....|
00000140  0d 00 8c 25 dc 20 31 30  31 30 31 30 31 30 31 30  |...%. 1010101010|
00000150  31 30 31 30 31 2c 32 34  32 34 32 34 32 34 32 34  |10101,2424242424|
00000160  32 34 32 34 32 0d 00 96  25 dc 20 30 31 31 31 30  |24242...%. 01110|
00000170  31 31 31 30 31 31 31 30  31 30 2c 32 32 32 32 34  |1110111010,22224|
00000180  32 32 32 34 32 32 32 34  32 32 0d 00 a0 25 dc 20  |2224222422...%. |
00000190  31 31 30 31 31 30 31 31  31 30 31 30 31 30 31 2c  |110110111010101,|
000001a0  32 32 34 32 32 34 32 32  32 34 32 34 32 34 32 0d  |224224222424242.|
000001b0  00 aa 25 dc 20 30 31 31  30 31 31 30 31 30 31 30  |..%. 01101101010|
000001c0  31 31 31 30 2c 32 32 32  34 32 32 34 32 34 32 34  |1110,22242242424|
000001d0  32 32 32 32 0d 00 b4 25  dc 20 31 30 31 31 31 30  |2222...%. 101110|
000001e0  31 30 31 31 31 30 31 30  31 2c 32 34 32 32 32 34  |101110101,242224|
000001f0  32 34 32 32 32 34 32 34  32 0d 00 be 25 dc 20 30  |242224242...%. 0|
00000200  31 30 31 30 31 30 31 30  31 30 31 30 31 30 2c 31  |10101010101010,1|
00000210  31 31 31 31 31 31 31 31  31 31 31 31 31 31 0d 00  |11111111111111..|
00000220  c8 04 0d 00 d2 25 dc 20  31 30 31 30 31 30 31 30  |.....%. 10101010|
00000230  31 30 31 30 31 30 31 2c  32 34 32 34 32 34 32 34  |1010101,24242424|
00000240  32 34 32 34 32 34 32 0d  00 dc 25 dc 20 30 31 31  |2424242...%. 011|
00000250  31 30 31 31 31 30 31 31  31 31 31 30 2c 32 32 32  |101110111110,222|
00000260  32 34 32 32 32 34 32 32  32 32 32 32 0d 00 e6 25  |242224222222...%|
00000270  dc 20 31 31 30 31 31 31  30 31 31 31 30 31 30 31  |. 11011101110101|
00000280  31 2c 32 32 34 32 32 32  34 32 32 32 34 32 34 32  |1,22422242224242|
00000290  32 0d 00 f0 25 dc 20 30  31 31 31 30 31 31 31 30  |2...%. 011101110|
000002a0  31 31 30 31 31 30 2c 32  32 32 32 34 32 32 32 34  |110110,222242224|
000002b0  32 32 34 32 32 32 0d 00  fa 25 dc 20 31 30 31 31  |224222...%. 1011|
000002c0  31 30 31 31 31 30 31 31  31 30 31 2c 32 34 32 32  |10111011101,2422|
000002d0  32 34 32 32 32 34 32 32  32 34 32 0d 01 04 25 dc  |24222422242...%.|
000002e0  20 30 31 30 31 30 31 30  31 30 31 30 31 30 31 30  | 010101010101010|
000002f0  2c 31 31 31 31 31 31 31  31 31 31 31 31 31 31 31  |,111111111111111|
00000300  0d 01 0e 04 0d 01 18 25  dc 20 31 30 31 30 31 30  |.......%. 101010|
00000310  31 30 31 30 31 30 31 30  31 2c 32 34 32 34 32 34  |101010101,242424|
00000320  32 34 32 34 32 34 32 34  32 0d 01 22 25 dc 20 30  |242424242.."%. 0|
00000330  31 30 31 30 31 30 31 30  31 30 31 30 31 30 2c 32  |10101010101010,2|
00000340  32 34 32 34 32 34 32 34  32 34 32 34 32 32 0d 01  |24242424242422..|
00000350  2c 25 dc 20 31 30 31 30  31 30 31 30 31 30 31 30  |,%. 101010101010|
00000360  31 30 31 2c 32 34 32 34  32 34 32 34 32 34 32 34  |101,242424242424|
00000370  32 34 32 0d 01 36 25 dc  20 30 31 30 31 30 31 30  |242..6%. 0101010|
00000380  31 30 31 30 31 30 31 30  2c 32 32 34 32 34 32 34  |10101010,2242424|
00000390  32 34 32 34 32 34 32 32  0d 01 40 25 dc 20 31 30  |24242422..@%. 10|
000003a0  31 30 31 30 31 30 31 30  31 30 31 30 31 2c 32 34  |1010101010101,24|
000003b0  32 34 32 34 32 34 32 34  32 34 32 34 32 0d 01 4a  |2424242424242..J|
000003c0  25 dc 20 30 31 30 31 30  31 30 31 30 31 30 31 30  |%. 0101010101010|
000003d0  31 30 2c 31 31 31 31 31  31 31 31 31 31 31 31 31  |10,1111111111111|
000003e0  31 31 0d 01 54 04 0d 01  5e 3c de 20 73 25 28 31  |11..T...^<. s%(1|
000003f0  34 2c 31 31 29 2c 62 25  28 37 29 2c 6c 6c 25 20  |4,11),b%(7),ll% |
00000400  39 2c 73 74 25 28 33 29  2c 6c 65 6e 25 28 33 29  |9,st%(3),len%(3)|
00000410  2c 66 72 65 71 25 28 33  29 2c 6c 65 76 62 25 28  |,freq%(3),levb%(|
00000420  33 29 0d 01 68 04 0d 01  72 54 46 25 3d 8e 22 3c  |3)..h...rTF%=."<|
00000430  44 72 6f 70 24 44 69 72  3e 2e 41 6c 6c 43 6f 64  |Drop$Dir>.AllCod|
00000440  65 22 3a 4c 25 3d a2 23  46 25 3a d9 23 46 25 3a  |e":L%=.#F%:.#F%:|
00000450  de 20 67 25 20 4c 25 3a  ff 28 22 4c 4f 41 44 20  |. g% L%:.("LOAD |
00000460  3c 44 72 6f 70 24 44 69  72 3e 2e 41 6c 6c 43 6f  |<Drop$Dir>.AllCo|
00000470  64 65 20 22 2b c3 7e 67  25 29 0d 01 7c 07 eb 31  |de "+.~g%)..|..1|
00000480  33 0d 01 86 05 87 0d 01  90 09 f2 76 61 72 73 0d  |3..........vars.|
00000490  01 9a 09 f7 8d 74 64 41  0d 01 a4 4c dc 20 30 2c  |.....tdA...L. 0,|
000004a0  34 36 38 2c 37 45 31 35  2c 33 44 34 2c 34 36 43  |468,7E15,3D4,46C|
000004b0  2c 32 32 38 44 2c 36 39  45 45 2c 41 45 30 2c 32  |,228D,69EE,AE0,2|
000004c0  36 46 44 2c 34 44 43 31  2c 34 46 32 37 2c 42 38  |6FD,4DC1,4F27,B8|
000004d0  38 2c 37 34 43 32 2c 32  32 43 42 2c 37 45 31 35  |8,74C2,22CB,7E15|
000004e0  2c 31 35 30 0d 01 ae 0b  e3 6a 25 3d 30 b8 33 0d  |,150.....j%=0.3.|
000004f0  01 b8 1a 20 f3 73 74 24  2c 6c 65 6e 24 2c 66 72  |... .st$,len$,fr|
00000500  65 71 24 2c 6c 65 76 62  24 0d 01 c2 1d 20 73 74  |eq$,levb$.... st|
00000510  25 28 6a 25 29 3d a0 28  22 26 22 2b 73 74 24 29  |%(j%)=.("&"+st$)|
00000520  2b 73 61 6d 70 25 0d 01  cc 19 20 6c 65 6e 25 28  |+samp%.... len%(|
00000530  6a 25 29 3d a0 28 22 26  22 2b 6c 65 6e 24 29 0d  |j%)=.("&"+len$).|
00000540  01 d6 1b 20 66 72 65 71  25 28 6a 25 29 3d a0 28  |... freq%(j%)=.(|
00000550  22 26 22 2b 66 72 65 71  24 29 0d 01 e0 1b 20 6c  |"&"+freq$).... l|
00000560  65 76 62 25 28 6a 25 29  3d a0 28 22 26 22 2b 6c  |evb%(j%)=.("&"+l|
00000570  65 76 62 24 29 0d 01 ea  05 ed 0d 01 f4 09 ee 20  |evb$).......... |
00000580  85 20 87 0d 01 fe 07 eb  31 32 0d 02 08 05 87 0d  |. ......12......|
00000590  02 12 12 fb 31 2c 32 31  30 2c 31 38 30 2c 31 32  |....1,210,180,12|
000005a0  30 0d 02 1c 12 fb 32 2c  31 38 30 2c 32 32 30 2c  |0.....2,180,220,|
000005b0  31 34 30 0d 02 26 12 fb  33 2c 31 36 30 2c 32 31  |140..&..3,160,21|
000005c0  30 2c 32 30 30 0d 02 30  12 fb 34 2c 32 32 30 2c  |0,200..0..4,220,|
000005d0  31 32 30 2c 31 34 30 0d  02 3a 06 fb 31 0d 02 44  |120,140..:..1..D|
000005e0  16 f2 63 28 22 57 65 6c  63 6f 6d 65 20 74 6f 22  |..c("Welcome to"|
000005f0  2c 31 29 0d 02 4e 1f f2  63 28 22 44 44 44 20 20  |,1)..N..c("DDD  |
00000600  52 52 52 20 20 20 4f 4f  20 20 50 50 50 20 22 2c  |RRR   OO  PPP ",|
00000610  34 29 0d 02 58 1f f2 63  28 22 44 20 20 44 20 52  |4)..X..c("D  D R|
00000620  20 20 52 20 4f 20 20 4f  20 50 20 20 50 22 2c 35  |  R O  O P  P",5|
00000630  29 0d 02 62 1f f2 63 28  22 44 20 20 44 20 52 52  |)..b..c("D  D RR|
00000640  52 20 20 4f 20 20 4f 20  50 50 50 20 22 2c 36 29  |R  O  O PPP ",6)|
00000650  0d 02 6c 1f f2 63 28 22  44 20 20 44 20 52 20 52  |..l..c("D  D R R|
00000660  20 20 4f 20 20 4f 20 50  20 20 20 22 2c 37 29 0d  |  O  O P   ",7).|
00000670  02 76 1f f2 63 28 22 44  44 44 20 20 52 20 20 52  |.v..c("DDD  R  R|
00000680  20 20 4f 4f 20 20 50 20  20 20 22 2c 38 29 0d 02  |  OO  P   ",8)..|
00000690  80 06 fb 32 0d 02 8a 19  f2 63 28 22 49 6e 73 74  |...2.....c("Inst|
000006a0  72 75 63 74 69 6f 6e 73  22 2c 31 31 29 0d 02 94  |ructions",11)...|
000006b0  19 f2 63 28 22 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |..c("~~~~~~~~~~~|
000006c0  7e 22 2c 31 32 29 0d 02  9e 06 fb 33 0d 02 a8 53  |~",12).....3...S|
000006d0  f2 63 28 22 54 68 65 20  6f 62 6a 65 63 74 20 6f  |.c("The object o|
000006e0  66 20 74 68 65 20 67 61  6d 65 20 69 73 20 74 6f  |f the game is to|
000006f0  20 66 69 6c 6c 20 74 68  65 20 65 69 67 68 74 20  | fill the eight |
00000700  68 6f 6c 65 73 20 61 74  20 74 68 65 20 62 6f 74  |holes at the bot|
00000710  74 6f 6d 20 6f 66 20 74  68 65 22 2c 31 33 29 0d  |tom of the",13).|
00000720  02 b2 52 f2 63 28 22 73  63 72 65 65 6e 20 77 69  |..R.c("screen wi|
00000730  74 68 20 62 61 6c 6c 73  20 74 68 61 74 20 61 72  |th balls that ar|
00000740  65 20 64 72 6f 70 70 65  64 20 66 72 6f 6d 20 74  |e dropped from t|
00000750  68 65 20 74 6f 70 2e 20  41 6c 6f 6e 67 20 74 68  |he top. Along th|
00000760  65 20 74 6f 70 20 6f 66  20 74 68 65 22 2c 31 34  |e top of the",14|
00000770  29 0d 02 bc 55 f2 63 28  22 73 63 72 65 65 6e 20  |)...U.c("screen |
00000780  69 73 20 61 20 72 6f 77  20 6f 66 20 73 6c 69 64  |is a row of slid|
00000790  69 6e 67 20 64 6f 6f 72  73 2e 20 4d 6f 76 65 20  |ing doors. Move |
000007a0  74 68 65 20 62 61 6c 6c  20 6c 65 66 74 20 61 6e  |the ball left an|
000007b0  64 20 72 69 67 68 74 20  6f 76 65 72 20 74 68 65  |d right over the|
000007c0  6d 22 2c 31 35 29 0d 02  c6 54 f2 63 28 22 75 73  |m",15)...T.c("us|
000007d0  69 6e 67 20 74 68 65 20  61 72 72 6f 77 20 6b 65  |ing the arrow ke|
000007e0  79 73 20 75 6e 74 69 6c  20 79 6f 75 20 72 65 61  |ys until you rea|
000007f0  63 68 20 74 68 65 20 64  6f 6f 72 20 79 6f 75 20  |ch the door you |
00000800  77 69 73 68 20 74 6f 20  64 72 6f 70 20 74 68 65  |wish to drop the|
00000810  20 62 61 6c 6c 22 2c 31  36 29 0d 02 d0 53 f2 63  | ball",16)...S.c|
00000820  28 22 74 68 72 6f 75 67  68 2e 20 54 68 65 6e 20  |("through. Then |
00000830  70 75 73 68 20 74 68 65  20 64 6f 77 6e 20 61 72  |push the down ar|
00000840  72 6f 77 20 6b 65 79 20  61 6e 64 20 74 68 65 20  |row key and the |
00000850  62 61 6c 6c 20 77 69 6c  6c 20 62 65 67 69 6e 20  |ball will begin |
00000860  74 6f 20 66 61 6c 6c 2e  22 2c 31 37 29 0d 02 da  |to fall.",17)...|
00000870  54 f2 63 28 22 57 68 65  6e 20 69 74 20 68 69 74  |T.c("When it hit|
00000880  73 20 61 20 79 65 6c 6c  6f 77 20 73 70 69 6e 6e  |s a yellow spinn|
00000890  65 72 20 69 74 20 77 69  6c 6c 20 62 65 20 64 65  |er it will be de|
000008a0  66 6c 65 63 74 65 64 20  61 6e 64 20 74 68 65 20  |flected and the |
000008b0  73 70 69 6e 6e 65 72 20  77 69 6c 6c 22 2c 31 38  |spinner will",18|
000008c0  29 0d 02 e4 51 f2 63 28  22 72 6f 74 61 74 65 2e  |)...Q.c("rotate.|
000008d0  20 49 66 20 61 20 62 61  6c 6c 20 65 6e 64 73 20  | If a ball ends |
000008e0  75 70 20 69 6e 20 61 20  68 6f 6c 65 20 77 68 69  |up in a hole whi|
000008f0  63 68 20 61 6c 72 65 61  64 79 20 63 6f 6e 74 61  |ch already conta|
00000900  69 6e 73 20 6f 6e 65 2c  20 62 6f 74 68 22 2c 31  |ins one, both",1|
00000910  39 29 0d 02 ee 25 f2 63  28 22 62 61 6c 6c 73 20  |9)...%.c("balls |
00000920  77 69 6c 6c 20 64 69 73  69 6e 74 65 67 72 61 74  |will disintegrat|
00000930  65 2e 22 2c 32 30 29 0d  02 f8 52 f2 63 28 22 54  |e.",20)...R.c("T|
00000940  6f 20 6d 61 6b 65 20 69  74 20 6d 6f 72 65 20 64  |o make it more d|
00000950  69 66 66 69 63 75 6c 74  20 79 6f 75 20 6d 75 73  |ifficult you mus|
00000960  74 20 61 6c 77 61 79 73  20 68 61 76 65 20 6d 6f  |t always have mo|
00000970  72 65 20 68 6f 6c 65 73  20 66 69 6c 6c 65 64 20  |re holes filled |
00000980  74 68 61 6e 22 2c 32 31  29 0d 03 02 4b f2 63 28  |than",21)...K.c(|
00000990  22 74 68 65 20 6e 75 6d  62 65 72 20 6f 66 20 62  |"the number of b|
000009a0  61 6c 6c 73 20 73 68 6f  77 6e 20 69 6e 20 74 68  |alls shown in th|
000009b0  65 20 62 6f 78 20 61 74  20 74 68 65 20 74 6f 70  |e box at the top|
000009c0  20 6f 66 20 74 68 65 20  73 63 72 65 65 6e 2e 22  | of the screen."|
000009d0  2c 32 32 29 0d 03 0c 53  f2 63 28 22 46 6f 72 20  |,22)...S.c("For |
000009e0  69 6e 73 74 61 6e 63 65  3a 20 61 74 20 74 68 65  |instance: at the|
000009f0  20 73 74 61 72 74 20 74  68 65 20 62 6f 78 20 69  | start the box i|
00000a00  73 20 65 6d 70 74 79 20  73 6f 20 77 69 74 68 20  |s empty so with |
00000a10  74 68 65 20 66 69 72 73  74 20 62 61 6c 6c 20 79  |the first ball y|
00000a20  6f 75 22 2c 32 33 29 0d  03 16 56 f2 63 28 22 6d  |ou",23)...V.c("m|
00000a30  75 73 74 20 65 6e 64 20  75 70 20 77 69 74 68 20  |ust end up with |
00000a40  61 74 20 6c 65 61 73 74  20 6f 6e 65 20 68 6f 6c  |at least one hol|
00000a50  65 20 66 69 6c 6c 65 64  20 28 77 68 69 63 68 20  |e filled (which |
00000a60  69 73 20 69 6e 65 76 69  74 61 62 6c 65 29 2e 20  |is inevitable). |
00000a70  48 6f 77 65 76 65 72 2c  22 2c 32 34 29 0d 03 20  |However,",24).. |
00000a80  58 f2 63 28 22 74 68 65  20 6e 65 78 74 20 62 61  |X.c("the next ba|
00000a90  6c 6c 20 6d 75 73 74 20  66 61 6c 6c 20 69 6e 20  |ll must fall in |
00000aa0  61 20 64 69 66 66 65 72  65 6e 74 20 68 6f 6c 65  |a different hole|
00000ab0  2c 20 6f 72 20 65 6c 73  65 20 74 68 65 79 20 77  |, or else they w|
00000ac0  69 6c 6c 20 64 69 73 69  6e 74 65 67 72 61 74 65  |ill disintegrate|
00000ad0  22 2c 32 35 29 0d 03 2a  54 f2 63 28 22 61 6e 64  |",25)..*T.c("and|
00000ae0  20 6e 6f 20 68 6f 6c 65  73 20 77 69 6c 6c 20 62  | no holes will b|
00000af0  65 20 66 69 6c 6c 65 64  20 2d 20 67 61 6d 65 20  |e filled - game |
00000b00  6f 76 65 72 2e 20 54 68  65 20 6e 75 6d 62 65 72  |over. The number|
00000b10  20 6f 66 20 62 61 6c 6c  73 20 69 6e 20 74 68 65  | of balls in the|
00000b20  20 62 6f 78 22 2c 32 36  29 0d 03 34 40 f2 63 28  | box",26)..4@.c(|
00000b30  22 69 6e 63 72 65 61 73  65 73 20 61 73 20 79 6f  |"increases as yo|
00000b40  75 20 70 6c 61 79 20 73  6f 20 62 65 20 63 61 72  |u play so be car|
00000b50  65 66 75 6c 20 77 68 65  72 65 20 79 6f 75 20 64  |eful where you d|
00000b60  72 6f 70 21 22 2c 32 37  29 0d 03 3e 06 fb 34 0d  |rop!",27)..>..4.|
00000b70  03 48 21 f2 63 28 22 50  72 65 73 73 20 53 50 41  |.H!.c("Press SPA|
00000b80  43 45 20 74 6f 20 62 65  67 69 6e 22 2c 33 30 29  |CE to begin",30)|
00000b90  0d 03 52 0a f5 fd a5 3d  33 32 0d 03 5c 26 d6 20  |..R....=32..\&. |
00000ba0  69 6e 69 74 25 3a f4 20  49 6e 69 74 69 61 6c 69  |init%:. Initiali|
00000bb0  73 65 20 73 61 6d 70 6c  65 20 70 6c 61 79 65 72  |se sample player|
00000bc0  0d 03 66 1b ee 20 85 20  f2 65 72 72 6f 72 3a d6  |..f.. . .error:.|
00000bd0  65 6e 64 25 3a e5 20 8d  64 74 41 0d 03 70 05 f5  |end%:. .dtA..p..|
00000be0  0d 03 7a 0d 20 6c 65 76  65 6c 25 3d 30 0d 03 84  |..z. level%=0...|
00000bf0  08 20 eb 31 33 0d 03 8e  06 20 87 0d 03 98 06 20  |. .13.... ..... |
00000c00  f7 0d 03 a2 0c 20 64 65  61 64 25 3d 30 0d 03 ac  |..... dead%=0...|
00000c10  06 20 f5 0d 03 b6 0e 20  20 e3 79 25 3d 30 b8 31  |. .....  .y%=0.1|
00000c20  31 0d 03 c0 0a 20 20 20  f3 73 24 0d 03 ca 0f 20  |1....   .s$.... |
00000c30  20 20 e3 78 25 3d 30 b8  31 34 0d 03 d4 20 20 20  |  .x%=0.14...   |
00000c40  20 20 73 25 28 78 25 2c  79 25 29 3d bb 28 c1 73  |  s%(x%,y%)=.(.s|
00000c50  24 2c 78 25 2b 31 2c 31  29 29 0d 03 de 08 20 20  |$,x%+1,1))....  |
00000c60  20 ed 0d 03 e8 07 20 20  ed 0d 03 f2 12 20 20 f2  | .....  .....  .|
00000c70  64 72 61 77 5f 73 63 72  65 65 6e 0d 03 fc 10 20  |draw_screen.... |
00000c80  20 f2 72 61 6e 64 6f 6d  69 7a 65 0d 04 06 0e 20  | .randomize.... |
00000c90  20 f2 6e 65 77 62 61 6c  6c 0d 04 10 0d 20 20 64  | .newball....  d|
00000ca0  6f 6e 65 25 3d 30 0d 04  1a 0c 20 20 6d 69 6e 25  |one%=0....  min%|
00000cb0  3d 30 0d 04 24 07 20 20  f5 0d 04 2e 0e 20 20 20  |=0..$.  .....   |
00000cc0  f2 75 70 64 61 74 65 0d  04 38 0e 20 20 20 e7 74  |.update..8.   .t|
00000cd0  6f 70 25 20 8c 0d 04 42  19 20 20 20 20 e7 a6 2d  |op% ...B.    ..-|
00000ce0  32 36 20 20 f2 6d 6f 76  65 5f 6c 65 66 74 0d 04  |26  .move_left..|
00000cf0  4c 1a 20 20 20 20 e7 a6  2d 31 32 32 20 f2 6d 6f  |L.    ..-122 .mo|
00000d00  76 65 5f 72 69 67 68 74  0d 04 56 19 20 20 20 20  |ve_right..V.    |
00000d10  e7 a6 2d 34 32 20 20 f2  6d 6f 76 65 5f 64 72 6f  |..-42  .move_dro|
00000d20  70 0d 04 60 08 20 20 20  cc 0d 04 6a 0d 20 20 20  |p..`.   ...j.   |
00000d30  20 f2 66 61 6c 6c 0d 04  74 08 20 20 20 cd 0d 04  | .fall..t.   ...|
00000d40  7e 16 20 20 fd 64 6f 6e  65 25 3d 38 20 84 20 64  |~.  .done%=8 . d|
00000d50  65 61 64 25 0d 04 88 0f  20 20 6c 65 76 65 6c 25  |ead%....  level%|
00000d60  2b 3d 31 0d 04 92 16 20  fd 6c 65 76 65 6c 25 3d  |+=1.... .level%=|
00000d70  34 20 84 20 64 65 61 64  25 0d 04 9c 08 20 eb 31  |4 . dead%.... .1|
00000d80  32 0d 04 a6 06 20 87 0d  04 b0 13 20 fb 31 2c 32  |2.... ..... .1,2|
00000d90  31 30 2c 31 38 30 2c 31  32 30 0d 04 ba 13 20 fb  |10,180,120.... .|
00000da0  32 2c 31 38 30 2c 32 32  30 2c 31 34 30 0d 04 c4  |2,180,220,140...|
00000db0  13 20 fb 33 2c 31 36 30  2c 32 31 30 2c 32 30 30  |. .3,160,210,200|
00000dc0  0d 04 ce 10 20 e7 6c 65  76 65 6c 25 3d 34 20 8c  |.... .level%=4 .|
00000dd0  0d 04 d8 08 20 20 fb 31  0d 04 e2 1e 20 20 f2 63  |....  .1....  .c|
00000de0  28 22 43 6f 6e 67 72 61  74 75 6c 61 74 69 6f 6e  |("Congratulation|
00000df0  73 21 22 2c 36 29 0d 04  ec 08 20 20 fb 32 0d 04  |s!",6)....  .2..|
00000e00  f6 2e 20 20 f2 63 28 22  59 6f 75 27 76 65 20 64  |..  .c("You've d|
00000e10  6f 6e 65 20 61 6c 6c 20  66 6f 75 72 20 73 63 72  |one all four scr|
00000e20  65 65 6e 73 2e 2e 21 22  2c 31 30 29 0d 05 00 1d  |eens..!",10)....|
00000e30  20 20 f2 63 28 22 49 27  6d 20 69 6d 70 72 65 73  |  .c("I'm impres|
00000e40  73 65 64 2e 22 2c 31 32  29 0d 05 0a 08 20 20 fb  |sed.",12)....  .|
00000e50  33 0d 05 14 28 20 20 f2  63 28 22 57 61 6e 74 20  |3...(  .c("Want |
00000e60  74 6f 20 70 6c 61 79 20  61 67 61 69 6e 3f 20 28  |to play again? (|
00000e70  59 2f 4e 29 22 2c 32 32  29 0d 05 1e 06 20 cc 0d  |Y/N)",22).... ..|
00000e80  05 28 08 20 20 fb 32 0d  05 32 38 20 20 f2 63 28  |.(.  .2..28  .c(|
00000e90  22 42 61 64 20 6c 75 63  6b 2e 2e 2e 20 59 6f 75  |"Bad luck... You|
00000ea0  27 76 65 20 64 69 73 69  6e 74 65 67 72 61 74 65  |'ve disintegrate|
00000eb0  64 20 74 6f 6f 20 6d 61  6e 79 2e 22 2c 38 29 0d  |d too many.",8).|
00000ec0  05 3c 08 20 20 fb 33 0d  05 46 27 20 20 f2 63 28  |.<.  .3..F'  .c(|
00000ed0  22 57 61 6e 74 20 74 6f  20 74 72 79 20 61 67 61  |"Want to try aga|
00000ee0  69 6e 3f 20 28 59 2f 4e  29 22 2c 32 32 29 0d 05  |in? (Y/N)",22)..|
00000ef0  50 06 20 cd 0d 05 5a 0a  20 79 6e 25 3d 30 0d 05  |P. ...Z. yn%=0..|
00000f00  64 09 20 64 25 3d 31 0d  05 6e 09 20 74 25 3d 30  |d. d%=1..n. t%=0|
00000f10  0d 05 78 06 20 f5 0d 05  82 0b 20 20 c8 96 3a c8  |..x. .....  ..:.|
00000f20  96 0d 05 8c 10 20 20 62  63 3d 28 74 25 2f 31 36  |.....  bc=(t%/16|
00000f30  29 0d 05 96 23 20 20 ef  31 39 2c 30 2c 32 34 2c  |)...#  .19,0,24,|
00000f40  62 63 2a 32 31 30 2c 62  63 2a 31 38 30 2c 62 63  |bc*210,bc*180,bc|
00000f50  2a 31 32 30 0d 05 a0 0c  20 20 74 25 2b 3d 64 25  |*120....  t%+=d%|
00000f60  0d 05 aa 18 20 20 e7 74  25 3d 31 36 84 74 25 3d  |....  .t%=16.t%=|
00000f70  30 20 64 25 3d 2d 64 25  0d 05 b4 11 20 20 e7 a6  |0 d%=-d%....  ..|
00000f80  2d 36 39 20 79 6e 25 3d  31 0d 05 be 11 20 20 e7  |-69 yn%=1....  .|
00000f90  a6 2d 38 36 20 79 6e 25  3d 32 0d 05 c8 09 20 fd  |.-86 yn%=2.... .|
00000fa0  79 6e 25 0d 05 d2 0a fd  79 6e 25 3d 32 0d 05 dc  |yn%.....yn%=2...|
00000fb0  0f f2 70 61 75 73 65 28  30 2e 33 29 0d 05 e6 06  |..pause(0.3)....|
00000fc0  eb 30 0d 05 f0 09 2a 46  58 31 35 0d 05 fa 29 d6  |.0....*FX15...).|
00000fd0  20 65 6e 64 25 3a f4 20  43 6c 6f 73 65 20 64 6f  | end%:. Close do|
00000fe0  77 6e 20 74 68 65 20 73  61 6d 70 6c 65 20 70 6c  |wn the sample pl|
00000ff0  61 79 65 72 0d 06 04 05  e0 0d 06 0e 04 0d 06 18  |ayer............|
00001000  0e dd f2 63 28 78 24 2c  79 25 29 0d 06 22 14 f1  |...c(x$,y%).."..|
00001010  8a 34 30 2d a9 78 24 2f  32 2c 79 25 29 78 24 0d  |.40-.x$/2,y%)x$.|
00001020  06 2c 05 e1 0d 06 36 04  0d 06 40 11 dd f2 64 72  |.,....6...@...dr|
00001030  61 77 5f 73 63 72 65 65  6e 0d 06 4a 05 db 0d 06  |aw_screen..J....|
00001040  54 0a 62 25 28 29 3d 30  0d 06 5e 0d 79 74 25 3d  |T.b%()=0..^.yt%=|
00001050  31 32 2a 36 34 0d 06 68  0c e3 79 25 3d 30 b8 31  |12*64..h..y%=0.1|
00001060  31 0d 06 72 12 20 79 62  25 3d 79 74 25 2d 79 25  |1..r. yb%=yt%-y%|
00001070  2a 36 34 0d 06 7c 10 20  f4 20 4c 65 66 74 20 65  |*64..|. . Left e|
00001080  64 67 65 0d 06 86 12 20  79 79 25 3d 32 35 35 2d  |dge.... yy%=255-|
00001090  79 62 25 81 34 0d 06 90  38 20 41 25 3d 21 73 63  |yb%.4...8 A%=!sc|
000010a0  72 61 64 25 2b 79 79 25  2a 33 32 30 3a 42 25 3d  |rad%+yy%*320:B%=|
000010b0  67 25 2b 6c 65 76 62 25  28 6c 65 76 65 6c 25 29  |g%+levb%(level%)|
000010c0  3a d6 20 6c 65 66 74 62  6c 6f 63 6b 25 0d 06 9a  |:. leftblock%...|
000010d0  11 20 f4 20 52 69 67 68  74 20 65 64 67 65 0d 06  |. . Right edge..|
000010e0  a4 42 20 41 25 3d 21 73  63 72 61 64 25 2b 28 33  |.B A%=!scrad%+(3|
000010f0  32 30 2d 31 30 29 2b 79  79 25 2a 33 32 30 3a 42  |20-10)+yy%*320:B|
00001100  25 3d 67 25 2b 6c 65 76  62 25 28 6c 65 76 65 6c  |%=g%+levb%(level|
00001110  25 29 3a d6 20 72 69 67  68 74 62 6c 6f 63 6b 25  |%):. rightblock%|
00001120  0d 06 ae 0d 20 e3 78 25  3d 30 b8 31 34 0d 06 b8  |.... .x%=0.14...|
00001130  12 20 20 63 25 3d 73 25  28 78 25 2c 79 25 29 0d  |.  c%=s%(x%,y%).|
00001140  06 c2 15 20 20 e7 63 25  3d 30 f2 64 72 61 77 5f  |...  .c%=0.draw_|
00001150  64 72 6f 70 0d 06 cc 16  20 20 e7 63 25 3d 31 f2  |drop....  .c%=1.|
00001160  64 72 61 77 5f 62 6c 6f  63 6b 0d 06 d6 16 20 20  |draw_block....  |
00001170  e7 63 25 3d 32 f2 64 72  61 77 5f 62 6c 61 6e 6b  |.c%=2.draw_blank|
00001180  0d 06 e0 25 20 20 e7 28  63 25 80 34 29 3d 34 f2  |...%  .(c%.4)=4.|
00001190  64 72 61 77 5f 64 6f 6f  72 28 63 25 80 33 2c 78  |draw_door(c%.3,x|
000011a0  25 2c 79 25 29 0d 06 ea  06 20 ed 0d 06 f4 05 ed  |%,y%).... ......|
000011b0  0d 06 fe 0a d6 6c 6f 67  6f 25 0d 07 08 0d d6 6d  |.....logo%.....m|
000011c0  61 63 68 69 6e 65 25 0d  07 12 0a d6 6d 69 6e 69  |achine%.....mini|
000011d0  25 0d 07 1c 05 e1 0d 07  26 04 0d 07 30 0f dd f2  |%.......&...0...|
000011e0  64 72 61 77 5f 64 72 6f  70 0d 07 3a 23 41 25 3d  |draw_drop..:#A%=|
000011f0  21 73 63 72 61 64 25 2b  28 28 78 25 2a 32 30 29  |!scrad%+((x%*20)|
00001200  2b 31 30 29 2b 79 79 25  2a 33 32 30 0d 07 44 1b  |+10)+yy%*320..D.|
00001210  42 25 3d 67 25 2b 6c 65  76 62 25 28 6c 65 76 65  |B%=g%+levb%(leve|
00001220  6c 25 29 2b 26 35 34 0d  07 4e 0c d6 20 62 6c 6f  |l%)+&54..N.. blo|
00001230  63 6b 25 0d 07 58 1e e7  79 25 3d 30 20 42 25 3d  |ck%..X..y%=0 B%=|
00001240  67 25 2b 26 33 43 36 3a  d6 20 73 6c 69 64 65 72  |g%+&3C6:. slider|
00001250  25 0d 07 62 05 e1 0d 07  6c 04 0d 07 76 10 dd f2  |%..b....l...v...|
00001260  64 72 61 77 5f 62 6c 6f  63 6b 0d 07 80 23 41 25  |draw_block...#A%|
00001270  3d 21 73 63 72 61 64 25  2b 28 28 78 25 2a 32 30  |=!scrad%+((x%*20|
00001280  29 2b 31 30 29 2b 79 79  25 2a 33 32 30 0d 07 8a  |)+10)+yy%*320...|
00001290  17 42 25 3d 67 25 2b 6c  65 76 62 25 28 6c 65 76  |.B%=g%+levb%(lev|
000012a0  65 6c 25 29 0d 07 94 0c  d6 20 62 6c 6f 63 6b 25  |el%)..... block%|
000012b0  0d 07 9e 05 e1 0d 07 a8  04 0d 07 b2 0a dd f2 76  |...............v|
000012c0  61 72 73 0d 07 bc 13 73  63 72 61 64 25 3d 67 25  |ars....scrad%=g%|
000012d0  2b 26 42 44 43 34 0d 07  c6 29 c8 99 22 4f 53 5f  |+&BDC4...).."OS_|
000012e0  52 65 61 64 56 64 75 56  61 72 69 61 62 6c 65 73  |ReadVduVariables|
000012f0  22 2c 73 63 72 61 64 25  2c 73 63 72 61 64 25 0d  |",scrad%,scrad%.|
00001300  07 d0 17 6c 65 66 74 62  6c 6f 63 6b 25 3d 67 25  |...leftblock%=g%|
00001310  2b 26 42 45 34 43 0d 07  da 18 72 69 67 68 74 62  |+&BE4C....rightb|
00001320  6c 6f 63 6b 25 3d 67 25  2b 26 42 45 43 34 0d 07  |lock%=g%+&BEC4..|
00001330  e4 12 6c 6f 67 6f 25 3d  67 25 2b 26 43 30 34 30  |..logo%=g%+&C040|
00001340  0d 07 ee 15 6d 61 63 68  69 6e 65 25 3d 67 25 2b  |....machine%=g%+|
00001350  26 43 31 35 34 0d 07 f8  12 6d 69 6e 69 25 3d 67  |&C154....mini%=g|
00001360  25 2b 26 43 32 34 38 0d  08 02 13 62 6c 6f 63 6b  |%+&C248....block|
00001370  25 3d 67 25 2b 26 42 44  44 38 0d 08 0c 14 73 6c  |%=g%+&BDD8....sl|
00001380  69 64 65 72 25 3d 67 25  2b 26 42 44 43 43 0d 08  |ider%=g%+&BDCC..|
00001390  16 12 64 6f 6f 72 25 3d  67 25 2b 26 42 44 36 34  |..door%=g%+&BD64|
000013a0  0d 08 20 17 73 6c 69 64  65 72 67 61 70 25 3d 67  |.. .slidergap%=g|
000013b0  25 2b 26 42 44 39 43 0d  08 2a 12 62 61 6c 6c 25  |%+&BD9C..*.ball%|
000013c0  3d 67 25 2b 26 42 46 34  38 0d 08 34 18 64 65 6c  |=g%+&BF48..4.del|
000013d0  65 74 65 62 61 6c 6c 25  3d 67 25 2b 26 42 46 44  |eteball%=g%+&BFD|
000013e0  30 0d 08 3e 13 77 65 6c  6c 64 25 3d 67 25 2b 26  |0..>.welld%=g%+&|
000013f0  43 30 46 30 0d 08 48 12  73 61 6d 70 25 3d 67 25  |C0F0..H.samp%=g%|
00001400  2b 26 32 32 35 34 0d 08  52 12 69 6e 69 74 25 3d  |+&2254..R.init%=|
00001410  67 25 2b 26 42 43 34 30  0d 08 5c 12 6e 6f 74 65  |g%+&BC40..\.note|
00001420  25 3d 67 25 2b 26 42 42  45 30 0d 08 66 11 65 6e  |%=g%+&BBE0..f.en|
00001430  64 25 3d 67 25 2b 26 42  44 31 43 0d 08 70 0f 67  |d%=g%+&BD1C..p.g|
00001440  25 21 26 42 44 36 30 3d  67 25 0d 08 7a 14 67 25  |%!&BD60=g%..z.g%|
00001450  21 26 42 46 34 34 3d 67  25 2b 26 33 38 34 0d 08  |!&BF44=g%+&384..|
00001460  84 14 67 25 21 26 43 30  33 43 3d 67 25 2b 26 34  |..g%!&C03C=g%+&4|
00001470  37 43 0d 08 8e 14 67 25  21 26 43 30 45 43 3d 67  |7C....g%!&C0EC=g|
00001480  25 2b 26 43 33 30 0d 08  98 15 67 25 21 26 43 31  |%+&C30....g%!&C1|
00001490  34 43 3d 67 25 2b 26 32  31 44 43 0d 08 a2 15 67  |4C=g%+&21DC....g|
000014a0  25 21 26 43 31 35 30 3d  67 25 2b 26 32 30 32 43  |%!&C150=g%+&202C|
000014b0  0d 08 ac 15 67 25 21 26  43 32 34 34 3d 67 25 2b  |....g%!&C244=g%+|
000014c0  26 32 31 46 30 0d 08 b6  05 e1 0d 08 c0 04 0d 08  |&21F0...........|
000014d0  ca 12 dd f2 64 72 61 77  5f 62 6c 61 6e 6b 3a e1  |....draw_blank:.|
000014e0  0d 08 d4 04 0d 08 de 23  dd f2 64 72 61 77 5f 64  |.......#..draw_d|
000014f0  6f 6f 72 28 43 25 2c 41  25 2c 42 25 29 3a d6 20  |oor(C%,A%,B%):. |
00001500  64 6f 6f 72 25 3a e1 0d  08 e8 04 0d 08 f2 0c dd  |door%:..........|
00001510  f2 75 70 64 61 74 65 0d  08 fc 12 c8 96 3a f2 64  |.update......:.d|
00001520  65 6c 65 74 65 62 61 6c  6c 0d 09 06 11 e7 20 73  |eleteball..... s|
00001530  70 69 6e 25 20 f2 73 70  69 6e 0d 09 10 19 e7 20  |pin% .spin..... |
00001540  73 6c 69 64 65 25 20 f2  63 6c 6f 73 65 73 6c 69  |slide% .closesli|
00001550  64 65 72 0d 09 1a 33 41  25 3d 63 78 25 3a 42 25  |der...3A%=cx%:B%|
00001560  3d 63 79 25 3a 43 25 3d  67 25 2b 26 31 46 38 2b  |=cy%:C%=g%+&1F8+|
00001570  28 62 61 6c 6c 74 25 81  34 29 2a 26 34 32 3a d6  |(ballt%.4)*&42:.|
00001580  20 62 61 6c 6c 25 0d 09  24 15 6f 78 25 3d 63 78  | ball%..$.ox%=cx|
00001590  25 3a 6f 79 25 3d 63 79  25 3a e1 0d 09 2e 04 0d  |%:oy%=cy%:......|
000015a0  09 38 0a dd f2 73 70 69  6e 0d 09 42 0c 73 76 61  |.8...spin..B.sva|
000015b0  6c 25 2d 3d 31 0d 09 4c  36 e7 73 76 61 6c 25 3c  |l%-=1..L6.sval%<|
000015c0  30 20 73 76 61 6c 25 3d  30 3a e7 73 25 28 73 70  |0 sval%=0:.s%(sp|
000015d0  78 25 2c 73 70 79 25 29  3d 73 70 69 6e 65 6e 64  |x%,spy%)=spinend|
000015e0  25 20 73 70 69 6e 25 3d  30 3a e1 0d 09 56 12 e7  |% spin%=0:...V..|
000015f0  28 73 76 61 6c 25 80 31  29 3d 31 20 e1 0d 09 60  |(sval%.1)=1 ...`|
00001600  16 63 25 3d 73 25 28 73  70 78 25 2c 73 70 79 25  |.c%=s%(spx%,spy%|
00001610  29 80 33 0d 09 6a 15 e7  63 25 3d 31 20 f2 73 6f  |).3..j..c%=1 .so|
00001620  75 6e 64 28 30 2c 30 29  0d 09 74 13 63 25 3d 28  |und(0,0)..t.c%=(|
00001630  63 25 2b 73 64 69 72 25  29 80 33 0d 09 7e 16 73  |c%+sdir%).3..~.s|
00001640  25 28 73 70 78 25 2c 73  70 79 25 29 3d 63 25 2b  |%(spx%,spy%)=c%+|
00001650  34 0d 09 88 1c f2 64 72  61 77 5f 64 6f 6f 72 28  |4.....draw_door(|
00001660  63 25 2c 73 70 78 25 2c  73 70 79 25 29 0d 09 92  |c%,spx%,spy%)...|
00001670  05 e1 0d 09 9c 04 0d 09  a6 2e dd f2 64 65 6c 65  |............dele|
00001680  74 65 62 61 6c 6c 3a 41  25 3d 6f 78 25 3a 42 25  |teball:A%=ox%:B%|
00001690  3d 6f 79 25 3a d6 20 64  65 6c 65 74 65 62 61 6c  |=oy%:. deletebal|
000016a0  6c 25 3a e1 0d 09 b0 04  0d 09 ba 11 dd f2 64 65  |l%:...........de|
000016b0  73 74 72 6f 79 62 61 6c  6c 0d 09 c4 1b f4 20 44  |stroyball..... D|
000016c0  69 73 69 6e 74 65 67 72  61 74 65 20 74 68 65 20  |isintegrate the |
000016d0  62 61 6c 6c 0d 09 ce 0f  f2 73 6f 75 6e 64 28 33  |ball.....sound(3|
000016e0  2c 33 29 0d 09 d8 0d 62  61 6c 6c 74 25 3d 31 36  |,3)....ballt%=16|
000016f0  0d 09 e2 0b f2 75 70 64  61 74 65 0d 09 ec 0b f2  |.....update.....|
00001700  75 70 64 61 74 65 0d 09  f6 0d 62 61 6c 6c 74 25  |update....ballt%|
00001710  3d 32 30 0d 0a 00 0b f2  75 70 64 61 74 65 0d 0a  |=20.....update..|
00001720  0a 0b f2 75 70 64 61 74  65 0d 0a 14 0f f2 64 65  |...update.....de|
00001730  6c 65 74 65 62 61 6c 6c  0d 0a 1e 0f f2 70 61 75  |leteball.....pau|
00001740  73 65 28 30 2e 34 29 0d  0a 28 05 e1 0d 0a 32 04  |se(0.4)..(....2.|
00001750  0d 0a 3c 0d dd f2 6e 65  77 62 61 6c 6c 0d 0a 46  |..<...newball..F|
00001760  0a 74 6f 70 25 3d b9 0d  0a 50 0c 62 61 6c 6c 74  |.top%=...P.ballt|
00001770  25 3d 30 0d 0a 5a 29 73  70 69 6e 25 3d 30 3a f4  |%=0..Z)spin%=0:.|
00001780  20 20 54 52 55 45 20 69  66 20 61 20 64 6f 6f 72  |  TRUE if a door|
00001790  20 69 73 20 73 70 69 6e  6e 69 6e 67 0d 0a 64 27  | is spinning..d'|
000017a0  73 6c 69 64 65 25 3d 30  3a f4 20 54 52 55 45 20  |slide%=0:. TRUE |
000017b0  69 66 20 61 20 73 6c 69  64 65 72 20 69 73 20 6f  |if a slider is o|
000017c0  70 65 6e 0d 0a 6e 0f f2  73 6f 75 6e 64 28 30 2c  |pen..n..sound(0,|
000017d0  31 29 0d 0a 78 21 f4 20  45 6a 65 63 74 20 62 61  |1)..x!. Eject ba|
000017e0  6c 6c 20 66 72 6f 6d 20  74 68 65 20 6d 61 63 68  |ll from the mach|
000017f0  69 6e 65 0d 0a 82 0b 63  78 25 3d 36 30 38 0d 0a  |ine....cx%=608..|
00001800  8c 0b 63 79 25 3d 38 37  36 0d 0a 96 13 6f 78 25  |..cy%=876....ox%|
00001810  3d 63 78 25 3a 6f 79 25  3d 63 79 25 0d 0a a0 24  |=cx%:oy%=cy%...$|
00001820  41 25 3d 63 78 25 3a 42  25 3d 63 79 25 3a 43 25  |A%=cx%:B%=cy%:C%|
00001830  3d 67 25 2b 26 31 46 38  3a d6 20 62 61 6c 6c 25  |=g%+&1F8:. ball%|
00001840  0d 0a aa 09 76 78 25 3d  32 0d 0a b4 09 76 79 25  |....vx%=2....vy%|
00001850  3d 33 0d 0a be 05 f5 0d  0a c8 16 20 63 78 25 2b  |=3......... cx%+|
00001860  3d 76 78 25 3a 63 79 25  2b 3d 76 79 25 0d 0a d2  |=vx%:cy%+=vy%...|
00001870  27 20 e7 63 79 25 3c 79  74 25 2b 33 32 20 63 79  |' .cy%<yt%+32 cy|
00001880  25 3d 79 74 25 2b 33 32  3a 63 78 25 3d 37 2a 38  |%=yt%+32:cx%=7*8|
00001890  30 2b 38 30 0d 0a dc 0b  20 76 79 25 2d 3d 31 0d  |0+80.... vy%-=1.|
000018a0  0a e6 07 20 c8 96 0d 0a  f0 10 20 f2 64 65 6c 65  |... ...... .dele|
000018b0  74 65 62 61 6c 6c 0d 0a  fa 25 20 41 25 3d 63 78  |teball...% A%=cx|
000018c0  25 3a 42 25 3d 63 79 25  3a 43 25 3d 67 25 2b 26  |%:B%=cy%:C%=g%+&|
000018d0  31 46 38 3a d6 20 62 61  6c 6c 25 0d 0b 04 14 20  |1F8:. ball%.... |
000018e0  6f 78 25 3d 63 78 25 3a  6f 79 25 3d 63 79 25 0d  |ox%=cx%:oy%=cy%.|
000018f0  0b 0e 0f fd 63 79 25 3d  79 74 25 2b 33 32 0d 0b  |....cy%=yt%+32..|
00001900  18 05 e1 0d 0b 22 04 0d  0b 2c 0f dd f2 6d 6f 76  |....."...,...mov|
00001910  65 5f 6c 65 66 74 0d 0b  36 0d e7 63 78 25 3d 31  |e_left..6..cx%=1|
00001920  36 30 e1 0d 0b 40 05 f5  0d 0b 4a 0d 20 e3 7a 25  |60...@....J. .z%|
00001930  3d 30 b8 31 39 0d 0b 54  0c 20 20 63 78 25 2d 3d  |=0.19..T.  cx%-=|
00001940  38 0d 0b 5e 1a 20 20 62  61 6c 6c 74 25 3d 28 62  |8..^.  ballt%=(b|
00001950  61 6c 6c 74 25 2d 31 29  80 31 35 0d 0b 68 0d 20  |allt%-1).15..h. |
00001960  20 f2 75 70 64 61 74 65  0d 0b 72 06 20 ed 0d 0b  | .update..r. ...|
00001970  7c 14 fd 28 ac a6 2d 32  36 29 84 63 78 25 3d 31  ||..(..-26).cx%=1|
00001980  36 30 0d 0b 86 05 e1 0d  0b 90 04 0d 0b 9a 10 dd  |60..............|
00001990  f2 6d 6f 76 65 5f 72 69  67 68 74 0d 0b a4 0e e7  |.move_right.....|
000019a0  63 78 25 3d 31 31 32 30  e1 0d 0b ae 05 f5 0d 0b  |cx%=1120........|
000019b0  b8 0d 20 e3 7a 25 3d 30  b8 31 39 0d 0b c2 0c 20  |.. .z%=0.19.... |
000019c0  20 63 78 25 2b 3d 38 0d  0b cc 1a 20 20 62 61 6c  | cx%+=8....  bal|
000019d0  6c 74 25 3d 28 62 61 6c  6c 74 25 2b 31 29 80 31  |lt%=(ballt%+1).1|
000019e0  35 0d 0b d6 0d 20 20 f2  75 70 64 61 74 65 0d 0b  |5....  .update..|
000019f0  e0 06 20 ed 0d 0b ea 16  fd 28 ac a6 2d 31 32 32  |.. ......(..-122|
00001a00  29 84 63 78 25 3d 31 31  32 30 0d 0b f4 05 e1 0d  |).cx%=1120......|
00001a10  0b fe 04 0d 0c 08 0f dd  f2 6d 6f 76 65 5f 64 72  |.........move_dr|
00001a20  6f 70 0d 0c 12 0a 74 6f  70 25 3d 30 0d 0c 1c 29  |op....top%=0...)|
00001a30  64 69 72 25 3d 30 3a f4  20 31 3d 72 69 67 68 74  |dir%=0:. 1=right|
00001a40  2c 20 2d 31 3d 6c 65 66  74 2c 20 30 3d 64 72 6f  |, -1=left, 0=dro|
00001a50  70 70 69 6e 67 0d 0c 26  09 79 76 25 3d 38 0d 0c  |pping..&.yv%=8..|
00001a60  30 15 f4 20 4f 70 65 6e  20 74 68 65 20 73 6c 69  |0.. Open the sli|
00001a70  64 65 72 0d 0c 3a 13 73  78 25 3d 28 63 78 25 2d  |der..:.sx%=(cx%-|
00001a80  34 30 29 81 38 30 0d 0c  44 23 41 25 3d 21 73 63  |40).80..D#A%=!sc|
00001a90  72 61 64 25 2b 28 28 73  78 25 2a 32 30 29 2b 31  |rad%+((sx%*20)+1|
00001aa0  30 29 2b 36 33 2a 33 32  30 0d 0c 4e 0b e3 65 25  |0)+63*320..N..e%|
00001ab0  3d 30 b8 34 0d 0c 58 07  20 c8 96 0d 0c 62 07 20  |=0.4..X. ....b. |
00001ac0  c8 96 0d 0c 6c 11 20 41  25 3f 28 65 25 2b 31 30  |....l. A%?(e%+10|
00001ad0  29 3d 30 0d 0c 76 15 20  41 25 3f 28 65 25 2b 31  |)=0..v. A%?(e%+1|
00001ae0  30 2b 33 32 30 29 3d 30  0d 0c 80 11 20 41 25 3f  |0+320)=0.... A%?|
00001af0  28 31 30 2d 65 25 29 3d  30 0d 0c 8a 15 20 41 25  |(10-e%)=0.... A%|
00001b00  3f 28 31 30 2d 65 25 2b  33 32 30 29 3d 30 0d 0c  |?(10-e%+320)=0..|
00001b10  94 05 ed 0d 0c 9e 0c 73  6c 69 64 65 25 3d b9 0d  |.......slide%=..|
00001b20  0c a8 10 73 6c 69 64 65  76 61 6c 25 3d 31 36 0d  |...slideval%=16.|
00001b30  0c b2 10 73 6c 69 64 65  61 64 72 25 3d 41 25 0d  |...slideadr%=A%.|
00001b40  0c bc 05 e1 0d 0c c6 04  0d 0c d0 11 dd f2 63 6c  |..............cl|
00001b50  6f 73 65 73 6c 69 64 65  72 0d 0c da 10 73 6c 69  |oseslider....sli|
00001b60  64 65 76 61 6c 25 2d 3d  31 0d 0c e4 12 e7 73 6c  |deval%-=1.....sl|
00001b70  69 64 65 76 61 6c 25 3e  34 20 e1 0d 0c ee 10 41  |ideval%>4 .....A|
00001b80  25 3d 73 6c 69 64 65 61  64 72 25 0d 0c f8 18 42  |%=slideadr%....B|
00001b90  25 3d 67 25 2b 26 33 43  36 3a d6 20 73 6c 69 64  |%=g%+&3C6:. slid|
00001ba0  65 72 25 0d 0d 02 1c e7  73 6c 69 64 65 76 61 6c  |er%.....slideval|
00001bb0  25 3d 2d 31 20 73 6c 69  64 65 25 3d 30 3a e1 0d  |%=-1 slide%=0:..|
00001bc0  0d 0c 1e 42 25 3d 73 6c  69 64 65 76 61 6c 25 3a  |...B%=slideval%:|
00001bd0  d6 73 6c 69 64 65 72 67  61 70 25 3a e1 0d 0d 16  |.slidergap%:....|
00001be0  04 0d 0d 20 0a dd f2 66  61 6c 6c 0d 0d 2a 23 f4  |... ...fall..*#.|
00001bf0  20 4c 6f 6f 6b 20 61 74  20 73 71 75 61 72 65 20  | Look at square |
00001c00  62 65 6c 6f 77 20 74 68  69 73 20 6f 6e 65 0d 0d  |below this one..|
00001c10  34 13 73 78 25 3d 28 63  78 25 2d 34 30 29 81 38  |4.sx%=(cx%-40).8|
00001c20  30 0d 0d 3e 17 73 79 25  3d 28 79 74 25 2d 63 79  |0..>.sy%=(yt%-cy|
00001c30  25 2b 33 32 29 81 36 34  0d 0d 48 13 6d 78 25 3d  |%+32).64..H.mx%=|
00001c40  28 63 78 25 2d 34 30 29  83 38 30 0d 0d 52 17 6d  |(cx%-40).80..R.m|
00001c50  79 25 3d 28 79 74 25 2d  63 79 25 2b 33 32 29 83  |y%=(yt%-cy%+32).|
00001c60  36 34 0d 0d 5c 34 e7 20  6d 78 25 3d 34 30 20 80  |64..\4. mx%=40 .|
00001c70  20 73 25 28 73 78 25 2c  73 79 25 29 3c 3e 31 20  | s%(sx%,sy%)<>1 |
00001c80  80 20 64 69 72 25 3c 3e  30 20 64 69 72 25 3d 30  |. dir%<>0 dir%=0|
00001c90  3a 79 76 25 3d 38 0d 0d  66 16 e7 20 73 79 25 3d  |:yv%=8..f.. sy%=|
00001ca0  31 31 20 f2 66 61 6c 6c  65 6e 3a e1 0d 0d 70 1e  |11 .fallen:...p.|
00001cb0  e7 20 64 69 72 25 3d 30  20 80 20 73 25 28 73 78  |. dir%=0 . s%(sx|
00001cc0  25 2c 73 79 25 29 3d 31  20 8c 0d 0d 7a 17 20 e7  |%,sy%)=1 ...z. .|
00001cd0  73 25 28 73 78 25 2c 73  79 25 2d 31 29 3d 34 20  |s%(sx%,sy%-1)=4 |
00001ce0  8c 0d 0d 84 0d 20 20 64  69 72 25 3d 2d 31 0d 0d  |.....  dir%=-1..|
00001cf0  8e 4e 20 20 e7 20 73 78  25 3e 30 20 80 20 73 78  |.N  . sx%>0 . sx|
00001d00  25 3c 31 34 20 73 70 69  6e 25 3d b9 3a 73 70 78  |%<14 spin%=.:spx|
00001d10  25 3d 73 78 25 3a 73 70  79 25 3d 73 79 25 2d 31  |%=sx%:spy%=sy%-1|
00001d20  3a 73 70 69 6e 65 6e 64  25 3d 36 3a 73 76 61 6c  |:spinend%=6:sval|
00001d30  25 3d 31 36 3a 73 64 69  72 25 3d 31 0d 0d 98 06  |%=16:sdir%=1....|
00001d40  20 cc 0d 0d a2 0c 20 20  64 69 72 25 3d 31 0d 0d  | .....  dir%=1..|
00001d50  ac 4f 20 20 e7 20 73 78  25 3e 30 20 80 20 73 78  |.O  . sx%>0 . sx|
00001d60  25 3c 31 34 20 73 70 69  6e 25 3d b9 3a 73 70 78  |%<14 spin%=.:spx|
00001d70  25 3d 73 78 25 3a 73 70  79 25 3d 73 79 25 2d 31  |%=sx%:spy%=sy%-1|
00001d80  3a 73 70 69 6e 65 6e 64  25 3d 34 3a 73 76 61 6c  |:spinend%=4:sval|
00001d90  25 3d 31 36 3a 73 64 69  72 25 3d 2d 31 0d 0d b6  |%=16:sdir%=-1...|
00001da0  06 20 cd 0d 0d c0 05 cd  0d 0d ca 26 e7 20 73 78  |. .........&. sx|
00001db0  25 3d 31 34 20 80 20 6d  78 25 3d 34 30 20 80 20  |%=14 . mx%=40 . |
00001dc0  64 69 72 25 3d 31 20 64  69 72 25 3d 2d 31 0d 0d  |dir%=1 dir%=-1..|
00001dd0  d4 25 e7 20 73 78 25 3d  30 20 80 20 6d 78 25 3d  |.%. sx%=0 . mx%=|
00001de0  34 30 20 80 20 64 69 72  25 3d 2d 31 20 64 69 72  |40 . dir%=-1 dir|
00001df0  25 3d 31 0d 0d de 15 e7  20 64 69 72 25 3c 3e 30  |%=1..... dir%<>0|
00001e00  20 f2 72 6f 6c 6c 3a e1  0d 0d e8 0b f4 20 44 72  | .roll:...... Dr|
00001e10  6f 70 21 0d 0d f2 36 e7  28 36 34 2d 6d 79 25 29  |op!...6.(64-my%)|
00001e20  2d 79 76 25 81 34 3c 30  20 80 20 73 25 28 73 78  |-yv%.4<0 . s%(sx|
00001e30  25 2c 73 79 25 2b 31 29  3d 31 20 79 76 25 3d 28  |%,sy%+1)=1 yv%=(|
00001e40  36 34 2d 6d 79 25 29 2a  34 0d 0d fc 20 e7 6d 79  |64-my%)*4... .my|
00001e50  25 3e 32 34 20 80 28 73  25 28 73 78 25 2c 73 79  |%>24 .(s%(sx%,sy|
00001e60  25 29 80 34 29 3d 34 20  8c 0d 0e 06 15 20 63 25  |%).4)=4 ..... c%|
00001e70  3d 73 25 28 73 78 25 2c  73 79 25 29 80 33 0d 0e  |=s%(sx%,sy%).3..|
00001e80  10 11 20 e7 63 25 3d 30  20 63 78 25 2d 3d 34 0d  |.. .c%=0 cx%-=4.|
00001e90  0e 1a 11 20 e7 63 25 3d  32 20 63 78 25 2b 3d 34  |... .c%=2 cx%+=4|
00001ea0  0d 0e 24 05 cd 0d 0e 2e  0e 63 79 25 2d 3d 79 76  |..$......cy%-=yv|
00001eb0  25 81 34 0d 0e 38 0a 79  76 25 2b 3d 32 0d 0e 42  |%.4..8.yv%+=2..B|
00001ec0  05 e1 0d 0e 4c 04 0d 0e  56 0a dd f2 72 6f 6c 6c  |....L...V...roll|
00001ed0  0d 0e 60 0f 63 78 25 2b  3d 34 2a 64 69 72 25 0d  |..`.cx%+=4*dir%.|
00001ee0  0e 6a 1b 62 61 6c 6c 74  25 3d 28 62 61 6c 6c 74  |.j.ballt%=(ballt|
00001ef0  25 2b 64 69 72 25 29 80  31 35 0d 0e 74 13 73 78  |%+dir%).15..t.sx|
00001f00  25 3d 28 63 78 25 2d 34  30 29 81 38 30 0d 0e 7e  |%=(cx%-40).80..~|
00001f10  17 73 79 25 3d 28 79 74  25 2d 63 79 25 2d 33 32  |.sy%=(yt%-cy%-32|
00001f20  29 81 36 34 0d 0e 88 13  6d 78 25 3d 28 63 78 25  |).64....mx%=(cx%|
00001f30  2d 34 30 29 83 38 30 0d  0e 92 17 6d 79 25 3d 28  |-40).80....my%=(|
00001f40  79 74 25 2d 63 79 25 2d  33 32 29 83 36 34 0d 0e  |yt%-cy%-32).64..|
00001f50  9c 6b e7 28 73 25 28 73  78 25 2c 73 79 25 29 80  |.k.(s%(sx%,sy%).|
00001f60  34 29 3d 34 20 80 20 6d  78 25 3d 34 30 20 80 20  |4)=4 . mx%=40 . |
00001f70  ac 73 70 69 6e 25 20 73  70 69 6e 25 3d b9 3a 73  |.spin% spin%=.:s|
00001f80  70 78 25 3d 73 78 25 3a  73 70 79 25 3d 73 79 25  |px%=sx%:spy%=sy%|
00001f90  3a 73 70 69 6e 65 6e 64  25 3d 73 25 28 73 78 25  |:spinend%=s%(sx%|
00001fa0  2c 73 79 25 29 3a 73 76  61 6c 25 3d 31 36 3a 73  |,sy%):sval%=16:s|
00001fb0  64 69 72 25 3d 64 69 72  25 0d 0e a6 05 e1 0d 0e  |dir%=dir%.......|
00001fc0  b0 04 0d 0e ba 0c dd f2  66 61 6c 6c 65 6e 0d 0e  |........fallen..|
00001fd0  c4 1b f4 20 49 74 27 73  20 6c 61 6e 64 65 64 20  |... It's landed |
00001fe0  73 6f 6d 65 77 68 65 72  65 0d 0e ce 0f 73 6c 6f  |somewhere....slo|
00001ff0  74 25 3d 73 78 25 81 32  0d 0e d8 49 e7 62 25 28  |t%=sx%.2...I.b%(|
00002000  73 6c 6f 74 25 29 20 8c  20 62 25 28 73 6c 6f 74  |slot%) . b%(slot|
00002010  25 29 3d 30 3a f2 64 65  73 74 72 6f 79 62 61 6c  |%)=0:.destroybal|
00002020  6c 3a 64 6f 6e 65 25 2d  3d 31 20 8b 20 62 25 28  |l:done%-=1 . b%(|
00002030  73 6c 6f 74 25 29 3d b9  3a 64 6f 6e 65 25 2b 3d  |slot%)=.:done%+=|
00002040  31 0d 0e e2 15 e7 64 6f  6e 65 25 3d 38 f2 77 69  |1.....done%=8.wi|
00002050  6e 6e 65 72 3a e1 0d 0e  ec 0e 6d 25 3d 64 6f 6e  |nner:.....m%=don|
00002060  65 25 81 32 0d 0e f6 1c  e7 6d 25 3e 6d 69 6e 25  |e%.2.....m%>min%|
00002070  20 6d 69 6e 25 3d 6d 25  3a f2 6e 65 77 6d 69 6e  | min%=m%:.newmin|
00002080  0d 0f 00 15 e7 64 6f 6e  65 25 3d 6d 69 6e 25 f2  |.....done%=min%.|
00002090  64 69 65 3a e1 0d 0f 0a  0c f2 6e 65 77 62 61 6c  |die:......newbal|
000020a0  6c 0d 0f 14 05 e1 0d 0f  1e 04 0d 0f 28 0c dd f2  |l...........(...|
000020b0  6e 65 77 6d 69 6e 0d 0f  32 1e 41 25 3d 31 36 31  |newmin..2.A%=161|
000020c0  2a 34 2b 28 6d 69 6e 25  2d 31 29 2a 31 30 2a 34  |*4+(min%-1)*10*4|
000020d0  2b 35 2a 34 0d 0f 3c 0f  42 25 3d 31 30 31 32 2d  |+5*4..<.B%=1012-|
000020e0  35 2a 34 0d 0f 46 1b 43  25 3d 67 25 2b 26 31 46  |5*4..F.C%=g%+&1F|
000020f0  38 2b 28 b3 28 34 29 2d  31 29 2a 26 34 32 0d 0f  |8+(.(4)-1)*&42..|
00002100  50 0a d6 62 61 6c 6c 25  0d 0f 5a 05 e1 0d 0f 64  |P..ball%..Z....d|
00002110  04 0d 0f 6e 17 dd f2 73  6f 75 6e 64 28 44 25 2c  |...n...sound(D%,|
00002120  73 61 6d 70 6c 65 25 29  0d 0f 78 13 41 25 3d 73  |sample%)..x.A%=s|
00002130  74 25 28 73 61 6d 70 6c  65 25 29 0d 0f 82 14 42  |t%(sample%)....B|
00002140  25 3d 6c 65 6e 25 28 73  61 6d 70 6c 65 25 29 0d  |%=len%(sample%).|
00002150  0f 8c 15 43 25 3d 66 72  65 71 25 28 73 61 6d 70  |...C%=freq%(samp|
00002160  6c 65 25 29 0d 0f 96 0b  d6 20 6e 6f 74 65 25 0d  |le%)..... note%.|
00002170  0f a0 05 e1 0d 0f aa 04  0d 0f b4 0f dd f2 72 61  |..............ra|
00002180  6e 64 6f 6d 69 7a 65 0d  0f be 19 f4 20 53 70 69  |ndomize..... Spi|
00002190  6e 20 64 6f 6f 72 73 20  72 61 6e 64 6f 6d 6c 79  |n doors randomly|
000021a0  0d 0f c8 1e ea 20 73 78  25 28 29 2c 73 79 25 28  |..... sx%(),sy%(|
000021b0  29 2c 6e 73 25 28 29 2c  64 69 72 25 28 29 0d 0f  |),ns%(),dir%()..|
000021c0  d2 22 de 20 73 78 25 28  33 29 2c 73 79 25 28 33  |.". sx%(3),sy%(3|
000021d0  29 2c 6e 73 25 28 33 29  2c 64 69 72 25 28 33 29  |),ns%(3),dir%(3)|
000021e0  0d 0f dc 0b 6e 73 25 28  29 3d 30 0d 0f e6 07 d1  |....ns%()=0.....|
000021f0  3d 30 0d 0f f0 0b 73 74  6f 70 25 3d 30 0d 0f fa  |=0....stop%=0...|
00002200  05 f5 0d 10 04 0f 20 78  25 3d b3 28 31 35 29 2d  |...... x%=.(15)-|
00002210  31 0d 10 0e 0f 20 79 25  3d b3 28 31 32 29 2d 31  |1.... y%=.(12)-1|
00002220  0d 10 18 11 20 73 25 3d  73 25 28 78 25 2c 79 25  |.... s%=s%(x%,y%|
00002230  29 0d 10 22 0f 20 6e 75  6d 25 3d a4 6e 65 77 73  |)..". num%=.news|
00002240  0d 10 2c 33 20 e7 28 73  25 80 34 29 3d 34 20 80  |..,3 .(s%.4)=4 .|
00002250  ac a4 61 6c 72 65 61 64  79 28 78 25 2c 79 25 29  |..already(x%,y%)|
00002260  20 80 6e 75 6d 25 3e 3d  30 20 80 ac 73 74 6f 70  | .num%>=0 ..stop|
00002270  25 20 8c 0d 10 36 20 20  20 f4 20 53 74 61 72 74  |% ...6   . Start|
00002280  20 74 68 69 73 20 64 6f  6f 72 20 73 70 69 6e 6e  | this door spinn|
00002290  69 6e 67 0d 10 40 16 20  20 6e 73 25 28 6e 75 6d  |ing..@.  ns%(num|
000022a0  25 29 3d b3 28 35 29 2a  34 0d 10 4a 31 20 20 64  |%)=.(5)*4..J1  d|
000022b0  69 72 25 28 6e 75 6d 25  29 3d b3 28 32 29 3a e7  |ir%(num%)=.(2):.|
000022c0  64 69 72 25 28 6e 75 6d  25 29 3d 32 20 64 69 72  |dir%(num%)=2 dir|
000022d0  25 28 6e 75 6d 25 29 3d  2d 31 0d 10 54 1f 20 20  |%(num%)=-1..T.  |
000022e0  73 78 25 28 6e 75 6d 25  29 3d 78 25 3a 73 79 25  |sx%(num%)=x%:sy%|
000022f0  28 6e 75 6d 25 29 3d 79  25 0d 10 5e 06 20 cd 0d  |(num%)=y%..^. ..|
00002300  10 68 1c 20 f4 20 55 70  64 61 74 65 20 73 70 69  |.h. . Update spi|
00002310  6e 6e 69 6e 67 20 64 6f  6f 72 73 0d 10 72 07 20  |nning doors..r. |
00002320  c8 96 0d 10 7c 11 20 e3  20 6e 75 6d 25 3d 30 20  |....|. . num%=0 |
00002330  b8 20 33 0d 10 86 14 20  20 e7 6e 73 25 28 6e 75  |. 3....  .ns%(nu|
00002340  6d 25 29 3e 30 20 8c 0d  10 90 19 20 20 20 e7 28  |m%)>0 .....   .(|
00002350  6e 73 25 28 6e 75 6d 25  29 80 31 29 3d 30 20 8c  |ns%(num%).1)=0 .|
00002360  0d 10 9a 22 20 20 20 20  73 25 3d 73 25 28 73 78  |..."    s%=s%(sx|
00002370  25 28 6e 75 6d 25 29 2c  73 79 25 28 6e 75 6d 25  |%(num%),sy%(num%|
00002380  29 29 0d 10 a4 20 20 20  20 20 e7 28 73 25 80 33  |))...     .(s%.3|
00002390  29 3d 31 20 f2 73 6f 75  6e 64 28 6e 75 6d 25 2c  |)=1 .sound(num%,|
000023a0  30 29 0d 10 ae 1c 20 20  20 20 73 25 3d 28 73 25  |0)....    s%=(s%|
000023b0  2b 64 69 72 25 28 6e 75  6d 25 29 29 80 33 0d 10  |+dir%(num%)).3..|
000023c0  b8 24 20 20 20 20 73 25  28 73 78 25 28 6e 75 6d  |.$    s%(sx%(num|
000023d0  25 29 2c 73 79 25 28 6e  75 6d 25 29 29 3d 73 25  |%),sy%(num%))=s%|
000023e0  2b 34 0d 10 c2 2a 20 20  20 20 f2 64 72 61 77 5f  |+4...*    .draw_|
000023f0  64 6f 6f 72 28 73 25 2c  73 78 25 28 6e 75 6d 25  |door(s%,sx%(num%|
00002400  29 2c 73 79 25 28 6e 75  6d 25 29 29 0d 10 cc 08  |),sy%(num%))....|
00002410  20 20 20 cd 0d 10 d6 13  20 20 20 6e 73 25 28 6e  |   .....   ns%(n|
00002420  75 6d 25 29 2d 3d 31 0d  10 e0 07 20 20 cd 0d 10  |um%)-=1....  ...|
00002430  ea 06 20 ed 0d 10 f4 14  20 e7 20 91 3e 35 30 30  |.. ..... . .>500|
00002440  20 73 74 6f 70 25 3d b9  0d 10 fe 2b fd 20 73 74  | stop%=....+. st|
00002450  6f 70 25 20 80 20 6e 73  25 28 30 29 2b 6e 73 25  |op% . ns%(0)+ns%|
00002460  28 31 29 2b 6e 73 25 28  32 29 2b 6e 73 25 28 33  |(1)+ns%(2)+ns%(3|
00002470  29 3d 30 0d 11 08 05 e1  0d 11 12 04 0d 11 1c 14  |)=0.............|
00002480  dd a4 61 6c 72 65 61 64  79 28 78 25 2c 79 25 29  |..already(x%,y%)|
00002490  0d 11 26 1b e7 73 78 25  28 30 29 3d 78 25 80 73  |..&..sx%(0)=x%.s|
000024a0  79 25 28 30 29 3d 79 25  20 3d b9 0d 11 30 1b e7  |y%(0)=y% =...0..|
000024b0  73 78 25 28 31 29 3d 78  25 80 73 79 25 28 31 29  |sx%(1)=x%.sy%(1)|
000024c0  3d 79 25 20 3d b9 0d 11  3a 1b e7 73 78 25 28 32  |=y% =...:..sx%(2|
000024d0  29 3d 78 25 80 73 79 25  28 32 29 3d 79 25 20 3d  |)=x%.sy%(2)=y% =|
000024e0  b9 0d 11 44 18 3d 73 78  25 28 33 29 3d 78 25 80  |...D.=sx%(3)=x%.|
000024f0  73 79 25 28 33 29 3d 79  25 0d 11 4e 04 0d 11 58  |sy%(3)=y%..N...X|
00002500  0a dd a4 6e 65 77 73 0d  11 62 10 e7 6e 73 25 28  |...news..b..ns%(|
00002510  30 29 3d 30 20 3d 30 0d  11 6c 10 e7 6e 73 25 28  |0)=0 =0..l..ns%(|
00002520  31 29 3d 30 20 3d 31 0d  11 76 10 e7 6e 73 25 28  |1)=0 =1..v..ns%(|
00002530  32 29 3d 30 20 3d 32 0d  11 80 10 e7 6e 73 25 28  |2)=0 =2.....ns%(|
00002540  33 29 3d 30 20 3d 33 0d  11 8a 07 3d 2d 31 0d 11  |3)=0 =3....=-1..|
00002550  94 04 0d 11 9e 0b dd f2  65 72 72 6f 72 0d 11 a8  |........error...|
00002560  0b e7 9f 3d 31 37 20 e1  0d 11 b2 07 d9 23 30 0d  |...=17 ......#0.|
00002570  11 bc 29 d6 20 65 6e 64  25 3a f4 20 43 6c 6f 73  |..). end%:. Clos|
00002580  65 20 64 6f 77 6e 20 74  68 65 20 73 61 6d 70 6c  |e down the sampl|
00002590  65 20 70 6c 61 79 65 72  0d 11 c6 05 f6 0d 11 d0  |e player........|
000025a0  0d f1 22 20 61 74 20 22  3b 9e 0d 11 da 05 e0 0d  |.." at ";.......|
000025b0  11 e4 04 0d 11 ee 0e dd  f2 70 61 75 73 65 28 58  |.........pause(X|
000025c0  29 0d 11 f8 11 d1 3d 30  3a f5 fd 91 3e 58 2a 31  |).....=0:...>X*1|
000025d0  30 30 0d 12 02 05 e1 0d  12 0c 04 0d 12 16 0c dd  |00..............|
000025e0  f2 77 69 6e 6e 65 72 0d  12 20 06 c8 96 0d 12 2a  |.winner.. .....*|
000025f0  0c d6 20 77 65 6c 6c 64  25 0d 12 34 0f f2 73 6f  |.. welld%..4..so|
00002600  75 6e 64 28 30 2c 32 29  0d 12 3e 0f f2 73 6f 75  |und(0,2)..>..sou|
00002610  6e 64 28 31 2c 32 29 0d  12 48 09 e6 30 c8 9c 30  |nd(1,2)..H..0..0|
00002620  0d 12 52 08 78 25 3d 30  0d 12 5c 05 f5 0d 12 66  |..R.x%=0..\....f|
00002630  07 20 c8 96 0d 12 70 32  20 e7 78 25 3c 32 34 30  |. ....p2 .x%<240|
00002640  20 86 78 25 2c 30 2c 78  25 2c 31 30 32 33 3a 86  | .x%,0,x%,1023:.|
00002650  31 32 37 39 2d 78 25 2c  30 2c 31 32 37 39 2d 78  |1279-x%,0,1279-x|
00002660  25 2c 31 30 32 33 0d 12  7a 24 20 e7 78 25 3c 33  |%,1023..z$ .x%<3|
00002670  38 34 20 86 30 2c 31 30  32 33 2d 78 25 2c 31 32  |84 .0,1023-x%,12|
00002680  37 39 2c 31 30 32 33 2d  78 25 0d 12 84 12 20 86  |79,1023-x%.... .|
00002690  30 2c 78 25 2c 31 32 37  39 2c 78 25 0d 12 8e 0a  |0,x%,1279,x%....|
000026a0  20 78 25 2b 3d 34 0d 12  98 0b fd 78 25 3e 34 33  | x%+=4.....x%>43|
000026b0  32 0d 12 a2 0c e6 36 33  c8 9c 31 39 32 0d 12 ac  |2.....63..192...|
000026c0  0e e3 6c 6f 6f 70 25 3d  30 b8 33 0d 12 b6 07 20  |..loop%=0.3.... |
000026d0  c8 96 0d 12 c0 1a 20 c8  93 20 c8 90 20 32 34 30  |...... .. .. 240|
000026e0  2c 34 33 36 2c 38 30 30  2c 32 30 34 0d 12 ca 07  |,436,800,204....|
000026f0  20 c8 96 0d 12 d4 0d 20  d6 20 77 65 6c 6c 64 25  | ...... . welld%|
00002700  0d 12 de 05 ed 0d 12 e8  09 e6 30 c8 9c 30 0d 12  |..........0..0..|
00002710  f2 19 c8 93 20 c8 90 20  32 34 30 2c 34 33 36 2c  |.... .. 240,436,|
00002720  38 30 30 2c 32 30 34 0d  12 fc 05 e1 0d 13 06 04  |800,204.........|
00002730  0d 13 10 09 dd f2 64 69  65 0d 13 1a 0b 64 65 61  |......die....dea|
00002740  64 25 3d b9 0d 13 24 0e  e3 6c 6f 6f 70 25 3d 30  |d%=...$..loop%=0|
00002750  b8 33 0d 13 2e 10 20 f2  73 6f 75 6e 64 28 30 2c  |.3.... .sound(0,|
00002760  33 29 0d 13 38 1c 20 e7  28 6c 6f 6f 70 25 80 31  |3)..8. .(loop%.1|
00002770  29 3d 31 f2 73 6f 75 6e  64 28 31 2c 33 29 0d 13  |)=1.sound(1,3)..|
00002780  42 24 20 e7 6c 6f 6f 70  25 3d 33 f2 73 6f 75 6e  |B$ .loop%=3.soun|
00002790  64 28 32 2c 33 29 3a f2  73 6f 75 6e 64 28 33 2c  |d(2,3):.sound(3,|
000027a0  33 29 0d 13 4c 10 20 f2  70 61 75 73 65 28 30 2e  |3)..L. .pause(0.|
000027b0  35 29 0d 13 56 05 ed 0d  13 60 08 63 25 3d 30 0d  |5)..V....`.c%=0.|
000027c0  13 6a 0c e3 79 25 3d 30  b8 31 31 0d 13 74 0d 20  |.j..y%=0.11..t. |
000027d0  e3 78 25 3d 30 b8 31 34  0d 13 7e 12 20 20 73 25  |.x%=0.14..~.  s%|
000027e0  3d 73 25 28 78 25 2c 79  25 29 0d 13 88 11 20 20  |=s%(x%,y%)....  |
000027f0  e7 28 73 25 80 34 29 3d  34 20 8c 0d 13 92 09 20  |.(s%.4)=4 ..... |
00002800  20 20 c8 96 0d 13 9c 09  20 20 20 c8 96 0d 13 a6  |  ......   .....|
00002810  1a 20 20 20 f2 64 72 61  77 5f 64 6f 6f 72 28 33  |.   .draw_door(3|
00002820  2c 78 25 2c 79 25 29 0d  13 b0 13 20 20 20 f2 73  |,x%,y%)....   .s|
00002830  6f 75 6e 64 28 63 25 2c  30 29 0d 13 ba 12 20 20  |ound(c%,0)....  |
00002840  20 63 25 3d 28 63 25 2b  31 29 80 33 0d 13 c4 07  | c%=(c%+1).3....|
00002850  20 20 cd 0d 13 ce 06 20  ed 0d 13 d8 05 ed 0d 13  |  ..... ........|
00002860  e2 14 f2 62 69 67 28 22  47 41 4d 45 22 2c 38 30  |...big("GAME",80|
00002870  30 29 0d 13 ec 14 f2 62  69 67 28 22 4f 56 45 52  |0).....big("OVER|
00002880  22 2c 35 31 32 29 0d 13  f6 0d f2 70 61 75 73 65  |",512).....pause|
00002890  28 32 29 0d 14 00 05 e1  0d 14 0a 04 0d 14 14 10  |(2).............|
000028a0  dd f2 62 69 67 28 41 24  2c 59 25 29 0d 14 1e 14  |..big(A$,Y%)....|
000028b0  58 25 3d 36 34 30 2d 28  a9 41 24 29 2a 31 32 38  |X%=640-(.A$)*128|
000028c0  0d 14 28 0d e3 61 25 3d  31 b8 a9 41 24 0d 14 32  |..(..a%=1..A$..2|
000028d0  1f 20 f4 20 44 72 61 77  20 62 69 67 20 6c 65 74  |. . Draw big let|
000028e0  74 65 72 20 61 74 20 58  25 2c 59 25 0d 14 3c 16  |ter at X%,Y%..<.|
000028f0  20 3f 6c 6c 25 3d 97 28  c1 41 24 2c 61 25 2c 31  | ?ll%=.(.A$,a%,1|
00002900  29 29 0d 14 46 17 20 c8  99 22 4f 53 5f 57 6f 72  |))..F. .."OS_Wor|
00002910  64 22 2c 31 30 2c 6c 6c  25 0d 14 50 0c 20 e3 79  |d",10,ll%..P. .y|
00002920  25 3d 31 b8 38 0d 14 5a  0f 20 20 56 25 3d 6c 6c  |%=1.8..Z.  V%=ll|
00002930  25 3f 79 25 0d 14 64 0d  20 20 e3 78 25 3d 30 b8  |%?y%..d.  .x%=0.|
00002940  37 0d 14 6e 18 20 20 20  63 25 3d 56 25 80 28 31  |7..n.   c%=V%.(1|
00002950  3c 3c 28 37 2d 78 25 29  29 0d 14 78 43 20 20 20  |<<(7-x%))..xC   |
00002960  e7 63 25 3e 30 20 41 25  3d 58 25 2b 78 25 2a 33  |.c%>0 A%=X%+x%*3|
00002970  32 3a 42 25 3d 59 25 2d  79 25 2a 33 32 3a 43 25  |2:B%=Y%-y%*32:C%|
00002980  3d 67 25 2b 26 31 46 38  2b 28 b3 28 34 29 2d 31  |=g%+&1F8+(.(4)-1|
00002990  29 2a 26 34 32 3a d6 62  61 6c 6c 25 0d 14 82 07  |)*&42:.ball%....|
000029a0  20 20 ed 0d 14 8c 06 20  ed 0d 14 96 0c 20 58 25  |  ..... ..... X%|
000029b0  2b 3d 32 35 36 0d 14 a0  05 ed 0d 14 aa 05 e1 0d  |+=256...........|
000029c0  ff                                                |.|
000029c1

Our privacy policy is here.
Last updated: 10 Jun 2024, 13:20 UTC
Website designed by .