Home » Archimedes archive » Archimedes World » AW-1991-12.adf » December91 » !AWDec91/Goodies/SuperPool/!S_P_DEMO/snodgrass

!AWDec91/Goodies/SuperPool/!S_P_DEMO/snodgrass

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-1991-12.adf » December91
Filename: !AWDec91/Goodies/SuperPool/!S_P_DEMO/snodgrass
Read OK:
File size: 3466 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > !*.snodgrass
   20IFPAGE<>&3F300THENPAGE=&3F300:CHAIN"<Obey$Dir>.snodgrass"
   30*FX4,1
   40SYS26,64,64
   50PROCGORDON
   60gjkEY!1060=233
   70PROCGordoN
   80SYS"Hourglass_Smash"
   90MODE13:CALLEFkey
  100PROCGORDOn
  110END
  120DEFPROCGORDOn
  130*Fx229,1
  140LOCALX%,Y%,Z%,T%,f%,of%,b%,ob%,cary%,cx%,cy%,xa%,ya%,I%,otk%,AD%,Fta%
  150TIT%=0
  160otk%=tk%:A%=0:B%=0:CALLgjKEY:IFtk%tk%=1
  170ballf%()=0:ballf%(4)=1:CALLgJkEy
  180gjkEY!12=&80000008
  190PROCGORDon
  200END
  210DEFPROCgjkeytop
  220DIMsf 16:!sf=2:sf!4=1:sf!8=3:sf!12=1
  230GCOL0,1TINT64
  240ORIGIN0,194
  250WAIT
  260RECTANGLEFILL152,544,980,16
  270RECTANGLEFILL152,28,980,16
  280RECTANGLEFILL136,44,16,500
  290RECTANGLEFILL1132,44,16,500
  300GCOL8TINT128
  310RECTANGLE148,40,988,508
  320RECTANGLE152,44,980,500
  330GCOL8TINT64
  340RECTANGLE156,48,972,492
  350GCOL8TINT192
  360RECTANGLEFILL160,52,964,484
  370GCOL46TINT255
  380SYS&2e,&122,efkeY,"corner",140,508,8
  390SYS&2E,&12F,efkeY,"corner"
  400SYS&2E,&122,efkeY,"corner",1098,508,8
  410SYS&2E,&121,efkeY,"corner"
  420SYS&2E,&122,efkeY,"corner",1098,32,8
  430SYS&2E,&12F,efkeY,"corner"
  440SYS&2E,&122,efkeY,"corner",140,32,8
  450SYS&2E,&121,efkeY,"corner"
  460SYS&2E,&122,efkeY,"middle",608,540,8
  470SYS&2E,&121,efkeY,"middle"
  480SYS&2E,&122,efkeY,"middle",608,28,8
  490SYS&2E,&121,efkeY,"middle"
  500GCOL63TINT0:LINE361,52,361,536
  510MOVE361,292:MOVE361,392:PLOT&A5,361,100
  520PROCGORdon(CHR$18+CHR$0+"THE DEMO THAT YOU HAVE JUST TRIED CONTAINS LESS THAN",160,10)
  530PROCGORdon(CHR$18+CHR$0+"FIVE PERCENT OF "+CHR$18+CHR$16+"SUPER POOL "+CHR$18+CHR$0+"AND NOTHING OF"+CHR$18+CHR$16+" BREAK 147",160,12)
  540PROCGORdon(CHR$18+CHR$0+"A COMPLETE COPY CAN BE YOURS FOR ONLY    24.95",160,14)
  550GCOL0:SYS&2E,51,163,,916,352,,sf
  560PROCGORdon("AND CAN BE OBTAINED FROM ANY GOOD SOFTWARE SUPPLIER",160,16)
  570PROCGORdon("OR DIRECT FROM :-",90,19)
  580PROCGORdon("THE FOURTH DIMENSION",220,19)
  590PROCGORdon("DEPT. 4444",199,20)
  600PROCGORdon("1 PERCY STREET",206,21)
  610PROCGORdon("SHEFFIELD",196,22)
  620PROCGORdon("Tel {0742} 700661",90,22)
  630ENDPROC
  640DEFPROCGOrDON
  650*FX229,1
  660SYS6,251,0,255TOT%,S%
  670SYS6,112,S%:CALLEFkey
  680FORT%=1TO1000:A%=RND(340)-10:B%=RND(276)-10:C%=RND(27)+5:D%=RND(8):CALLefKEY:NEXT
  690PROCgjkeytop
  700END
  710*CHANNELVOICE 1 1
  720*RMKILL cusHION
  730*RMKILL Hitball
  740*RMKILL Hitcue
  750*RMKILL FASTDROPRM
  760*RMKILL SLOWDROPRM
  770*FX229
  780END
  790DEFPROCGOrdon(Q%)
  800oQ%=Q%:oX%=X%:oY%=Y%:oZ%=Z%:oR%=R%:oV%=V%
  810ENDPROC
  820DEFPROCGordon(Nom$,S%)
  830LOCALP%,I%,x%,y%,Or%
  840M%=gjkEY
  850REPEAT
  860IFZ%<>-70THEN
  870I%=(-70-Z%)OR2*-(Z%<>-92)
  880Z%+=(I%>>1)
  890ENDIF
  900x%=X%:y%=Y%
  910CASEW%OF
  920WHEN1:I%=(560-X%)OR2*-(X%<>560):X%+=(I%>>1):x%=560
  930WHEN2:I%=(-280-Y%)OR2*-(Y%<>-280):Y%+=(I%>>1):y%=-280
  940WHEN3:I%=(-560-X%)OR2*-(X%<>-560):X%+=(I%>>1):x%=-560
  950WHEN4:I%=(280-Y%)OR2*-(Y%<>280):Y%+=(I%>>1):y%=280
  960ENDCASE
  970P%=!GJKey:IFP%>&1800 P%+=((&3000-P%)DIV2)ELSE:P%-=(P%DIV2)
  980P%=P%MOD&3000:!GJKey=P%:U%=280
  990B%=X%:C%=Y%:D%=Z%:E%=SB%:H%=USRgjkey:CALLGJkeY,Nom$
 1000Or%=R%:R%=FNGOrDOn2
 1010UNTILZ%=-70ANDX%=x%ANDY%=y%AND(P%<3ORP%>&2FFD)ANDABS(Or%-R%)<2
 1020!GJKey=0:B%=X%:C%=Y%:D%=Z%:E%=SB%:H%=USRgjkey:CALLGJkeY,Nom$
 1030ENDPROC
 1040DEFPROCgordon(Pr%)
 1050LOCALi%
 1060i%=Ik%:Ik%=0
 1070IFi%=51ANDNOTDe%PROCgordON(X%,Y%,Z%,0):Nom$=" ":Ik%=0:ENDPROCELSEIFi%=51i%=82
 1080IFi%=82PROCgordON(X%,Y%,Z%,TRUE):Nom$=" ":Ik%=0:ENDPROC
 1090IFPr%ANDi%=53CALLGjKeY:gjkEY!36=0:!GJKEy=1:O%=1:REPEATUNTILNOTINKEY-54:PROCGordon(" ",FALSE):ENDPROC
 1100IFi%=35ANDTb%Ti%=12:REPEATUNTILNOTINKEY-36
 1110IFi%=55AND(Pr%ORPw%ORFta%):PROCgoRDON:M%!12=&80000008:Ik%=TRUE:ENDPROC
 1120ENDPROC
 1130DEFPROCgordoN(ti%)
 1140LOCALA%,B%,T%,E%,F%,G%,R%,V%
 1150TIME=0
 1160IFti%Nom$=FNdispscores
 1170!efkEY=560
 1180REPEAT:MOUSEA%,B%,T%
 1190IFti%THEN
 1200R%=0:V%=2265
 1210B%=-640:C%=0:D%=-188:E%=0:H%=USRgjkey:CALLGJkeY,Nom$:K%=0
 1220ENDIF
 1230UNTILT%ORINKEY(0)>0OR(ti%ANDTIME>500)
 1240!efkEY=!eFKEY
 1250ENDPROC
 1260DEFPROCGORdon(A$,h%,Y%)
 1270CALLGjKEY,A$,h%
 1280A$=CHR$31+CHR$h%+CHR$Y%+A$
 1290CALLGJkeY,A$
 1300ENDPROC
 1310DEFPROCgoRDON
 1320LOCALX%,Y%,Z%
 1330REPEAT:MOUSEX%,Y%,Z%:UNTILZ%=0
 1340ENDPROC
 1350DEFPROCGORDon
 1360LOCALT%,FB%,On%,Of%,shot%,shotscore%,foul%,redc%,sno%,bc%,Bk%,AFB%,fc%,b%():DIMb%(21)
 1370LOCALERROR:ONERRORLOCALPROCGOrDON
 1380*FX229
 1390PROCgoRDON:Bk%=TRUE
 1400MODE13:OFF
 1410Red%=15:O%=1:Pw%=FALSE
 1420!GJKEy=1:On%=1:Of%=TRUE
 1430PROCgorDOn
 1440CALLGJkey,Ti%,Ik%,O%,K%,tk%,R%,V%,M%,J%,S%
 1450PROCGordON(4)
 1460REPEAT
 1470M%=gjkEY
 1480IFM%!12<0PROCGOrdoN(TRUE,0):Bk%=FALSE
 1490REPEAT
 1500PROCGordon(" ",FALSE)
 1510shot%=0
 1520REPEAT
 1530MOUSEE%,F%,G%:MOUSETO0,0
 1540IFJ%=0 M%=gjkEY
 1550IFG%=4THEN
 1560O%=O%EOR1:PROCgORDON(4):!GJKEy=O%
 1570IFO%=0ANDMh%=0PROCgORDOnELSEO%=1:!GJKEy=1:!GJKey=0
 1580ENDIF
 1590IFO%PROCgORDonELSEPROCgORdon(FALSE)
 1600A%=1:B%=X%:C%=Y%:D%=Z%:E%=SB%:H%=USRgjkey
 1610IFIk%Pw%=TRUE:PROCgordon(TRUE):IFIk%UNTILTRUE:UNTILTRUE:UNTILFALSE
 1620UNTILshot%ANDM%!36<=0
 1630On%=!EFKey:IFRed%>0ANDOn%>1Of%=TRUEELSEOf%=0
 1640UNTILgjkEY!12<0ORK%<9
 1650UNTILK%<9
 1660PROCGOrDON
 1670ENDPROC
 1680DEFPROCgordON(X%,Y%,Z%,TV%)
 1690*FX229,1
 1700!GJKEy=1:O%=1
 1710CALLefkey:CALLGjKeY
 1720LOCALud%,co%,A$,B$,h%,Sk%,Tk%,Fl%
 1730IFoQ%ANDNOTTV%THEN
 1740LOCALR%,V%,SB%
 1750X%=oX%:Y%=oY%:Z%=oZ%:R%=oR%:V%=oV%:TV%=0:!efkEY=Sc%:SB%=0:Sk%=560
 1760M%=gjkEY:MOUSETO0,0
 1770ELSE
 1780Sk%=!efkEY
 1790ENDIF
 1800Tk%=tk%
 1810vx%=!gjkEY:vy%=gjkEY!4
 1820ud%=gjkEY!36:gjkEY!36=0
 1830PROCgoRDON
 1840IFTV%THEN
 1850LOCALX%,Y%,Z%,R%,V%,SB%
 1860X%=-640:Y%=0:Z%=-188:R%=0:V%=2265:SB%=0:Tk%=0
 1870M%=gjkEY:!efkEY=560:MOUSETO0,0
 1880ELSE
 1890PROCGordon(" ",FALSE)
 1900h%=160:A$=CHR$18+CHR$127+"ADJUST VIEW THEN CLICK 'SELECT'":CALLGjKEY,A$,h%
 1910A$=CHR$31+CHR$h%+CHR$1+A$
 1920REPEAT
 1930MOUSEE%,F%,G%:MOUSETO0,0
 1940PROCgORDon2
 1950B%=X%:C%=Y%:D%=Z%:E%=SB%:H%=USRgjkey
 1960CALLGJkeY,A$
 1970UNTIL(G%AND4)
 1980ENDIF
 1990*FX229
 2000LOCALERROR:ONERRORLOCAL!efkEY=Sk%:CALLEfkey:M%=gjkEY:OSCLI"FX229":ENDPROC
 2010h%=160:B$=CHR$18+CHR$251+"ACTION REPLAY":CALLGjKEY,B$,h%
 2020B$=CHR$31+CHR$h%+CHR$1+B$
 2030IFTV%FORT%=1TO20:B%=X%:C%=Y%:D%=Z%:E%=SB%:H%=USRgjkey:CALLGJkeY,B$:NEXT
 2040gjkEY!36=ud%
 2050REPEAT
 2060MOUSEE%,F%,G%:MOUSETO0,0
 2070IFNOTTV%:PROCgOrdonELSEIFINKEY-68:X%=-X%:R%=R%EOR&1800:REPEATUNTILNOTINKEY-68
 2080B%=X%:C%=Y%:D%=Z%:E%=SB%:H%=USRgjkey:CALLGJkeY,B$
 2090IFTk%R%=FNGOrDOn2
 2100UNTILJ%=0
 2110CALLEfkey
 2120M%=gjkEY:!efkEY=Sk%
 2130*FX229
 2140ENDPROC
 2150DEFPROCgoRDOn
 2160*fx229,1
 2170CALLgJkEy
 2180LOCALP%,t%,E%,F%,G%,Tk%
 2190P%=gjkEY+36:Tk%=tk%
 2200J%=0
 2210FORt%=1TO10
 2220B%=X%:C%=Y%:D%=Z%:H%=USRgjkey
 2230IFTk%R%=FNGOrDOn2
 2240IFH%ORJ%=0 t%=10
 2250NEXT
 2260IFH%PROCgoRDon2:Tk%=0
 2270MOUSETO0,0
 2280REPEAT
 2290REPEAT
 2300MOUSEE%,F%,G%:MOUSETO0,0
 2310B%=X%:C%=Y%:D%=Z%:H%=USRgjkey
 2320IFTk%ANDG%<>2R%=FNGOrDOn2ELSEPROCgOrdon
 2330IFIk%=53CALLGjKeY:gjkEY!36=0:OSCLI"FX229":CF%=FALSE:!GjkeY=98:!gJKey=0:UNTILTRUE:UNTILTRUE:ENDPROC
 2340UNTILH%ORJ%=0
 2350IFH%PROCgoRDon2:Tk%=0
 2360UNTILJ%=0
 2370B%=X%:C%=Y%:D%=Z%:H%=USRgjkey
 2380IFH%=8THEN:!P%=0
 2390CF%=FALSE
 2400!GjkeY=98
 2410*fx229
 2420!GJKey=0
 2430!gJKey=0
 2440ENDPROC
 2450DEFPROCliveball
 2460LOCALT%,b%,c%
 2470ballf%()=0
 2480b%=gjkEY+12
 2490IF!b%<0ballf%(4)=1
 2500b%+=40:c%=1
 2510FORT%=1TO7
 2520IF!b%<0ballf%(1)+=1
 2530b%+=40
 2540NEXT
 2550FORT%=8TO14
 2560IF!b%<0ballf%(2)+=1
 2570b%+=40
 2580NEXT
 2590IF!b%<0ballf%(3)=1
 2600ENDPROC
 2610DEFPROCGORDON
 2620PROCcode
 2630td=910/963
 2640DIMblock 16
 2650DIMd%(14),Count%(2)
 2660dp%=14:FORT%=1TO14:d%(T%)=T%:NEXT
 2670!efkeY=&10000:efkeY!8=16
 2680SYS&2E,&10A,efkeY,"<Obey$Dir>.machine3"
 2690RESTORE+1
 2700DIMballcols%9,ballf%(4)
 2710FORT%=1TO4:READballcols%?T%:NEXT
 2720DATA3,31,21,63
 2730ballf%()=1:ballf%(1)=7:ballf%(2)=7
 2740Ik%=0:Tb%=0:Ti%=0:sno%=0:Tba%=0:play%=1:tk%=FALSE:Pag%=0:score%=0:Vol%=127:Tour%=0:Quit%=0:Tv%=TRUE:side%=0:top%=0:Mh%=0:De%=0:PROCGOrdon(0)
 2750ENDPROC
 2760DEFPROCgoRdon
 2770ballf%()=1
 2780ballf%(1)=15
 2790FORT%=1TO4:PROCgorDon(T%,27):NEXT
 2800ENDPROC
 2810DEFPROCgorDOn
 2820M%=gjkEY
 2830CF%=0
 2840SB%=0
 2850X%=560
 2860Y%=0
 2870Z%=-160
 2880R%=0
 2890V%=2468
 2900r=1955.69594
 2910p=2*PI
 2920nt%=(PI/2)*r
 2930U%=280
 2940W%=1
 2950IR%=0:AR%=0
 2960DI%=1
 2970O%=1
 2980SA%=0
 2990ORIGIN640,512
 3000x%=0:Sy%=0:a=0:d%=0:f%=0
 3010ox%=0:oy%=0
 3020ENDPROC
 3030DEFPROCGordoN
 3040LOCALA%,B%
 3050CALLgjKEY
 3060VOICES4
 3070*CHANNELVOICE 4 Hitball
 3080*CHANNELVOICE 3 Hitball
 3090*CHANNELVOICE 2 cusHION
 3100MODE13
 3110PROCgorDOn
 3120OFF
 3130CALLGJkey,Ti%,Ik%,O%,K%,tk%,R%,V%,M%,J%,S%
 3140CALLGjkey
 3150ENDPROC
 3160DEFPROCgoRDon
 3170IFH%=8ENDPROC
 3180!gJKEY=0
 3190IFH%=1THEN
 3200Red%-=1
 3210ELSE
 3220IFRed%bc%+=1:b%(bc%)=H%
 3230ENDIF
 3240ENDPROC
 3250DEFPROCgoRDon2
 3260IFH%=8THEN:gjkEY!36=0
 3270bc%+=1:b%(bc%)=H%
 3280!gJKEY=0
 3290ENDPROC
 3300DEFPROCGordON(A%)
 3310?block=2
 3320block?1=A%
 3330block?2=A%
 3340SYS"OS_Word",21,block
 3350ENDPROC
 3360DEFPROCGOrdoN(P%,sst%)
 3370*FX229,1
 3380*CHANNELVOICE 4 1
 3390PROCgoRDON:PROCGordON(1)
 3400IFNOTsst%SOUND4,-15,60,3
 3410LOCALA%,B%,C%,E,F,k%,B,c,s,flag,x,y,A$,h%,T%
 3420A$=CHR$18+CHR$127+"POSITION BALL THEN CLICK 'SELECT' TO PLACE,  HOLD 'ADJUST' TO ALTER VIEW":h%=160:CALLGjKEY,A$,h%
 3430A$=CHR$31+CHR$h%+CHR$1+A$
 3440IFsst%R%=6139:V%=2585:X%=560:Y%=0:Z%=-70:W%=1:U%=280
 3450IFNOTPw%PROCGOrdON(x,y)ELSEx=!gjkEY:y=gjkEY!4
 3460gjkEY!12=8
 3470PROCGordon(A$,FALSE)
 3480Pw%=TRUE:A=2*PI-R%/r:c=-COSA:s=-SINA:MOUSETO0,0
 3490REPEAT
 3500MOUSEE,F,k%:MOUSETO0,0
 3510IFk%=2:R%=6139:V%=2585:X%=560:Y%=0:Z%=-70:W%=1:U%=280:A=2*PI-R%/r:c=-COSA:s=-SINA:PROCGordon(A$,FALSE)
 3520IFk%=1THEN
 3530E%=E:F%=F:G%=0
 3540PROCGordON(4)
 3550PROCgORDon
 3560PROCGordON(1)
 3570A=2*PI-R%/r:c=-COSA:s=-SINA
 3580ELSE
 3590B=E*c+F*s:F=E*-s+F*c
 3600A%=0:B%=x+F:C%=y-B
 3610IFP%flag=FNgJKEyA(B%,C%)ELSEflag=FNgJKEy(B%,C%)
 3620IFflag x=x+F:y=y-B:!gjkEY=B%:gjkEY!4=C%:gjkEY!16=B%<<16:gjkEY!20=C%<<16
 3630ENDIF
 3640A%=1:B%=X%:C%=Y%:D%=Z%:E%=SB%
 3650CALLgjkey
 3660CALLGJkeY,A$
 3670UNTILflagAND k%=4
 3680PROCGordON(4):M%=gjkEY:PROCgoRDON
 3690PROCGordon(" ",FALSE)
 3700MOUSETO0,0
 3710*FX229
 3720ENDPROC
 3730DEFPROCGORdON(ball%,x,y)
 3740PROCgoRDON:PROCGordON(1)
 3750LOCALA%,B%,C%,E,F,k%,B,c,s,flag,A$,h%
 3760A$=CHR$18+CHR$127+"POSITION BALL THEN CLICK 'SELECT' TO PLACE,  PRESS 'ADJUST' TO ALTER VIEW":h%=160:CALLGjKEY,A$,h%
 3770A$=CHR$31+CHR$h%+CHR$1+A$
 3780R%=6139:V%=2585:X%=560:Y%=0:Z%=-70
 3790A=R%/r
 3800c=-COSA:s=-SINA
 3810M%=gjkEY+40*ball%-40
 3820REPEAT
 3830MOUSEE,F,k%:MOUSETO0,0
 3840IFk%=1THEN
 3850E%=E:F%=F:G%=0
 3860PROCGordON(4)
 3870PROCgORDon
 3880PROCGordON(1)
 3890A=2*PI-R%/r:c=-COSA:s=-SINA
 3900ELSE
 3910B=E*c+F*s:F=E*-s+F*c
 3920A%=ball%-1:B%=x+F:C%=y-B
 3930flag=FNgJKEyA(B%,C%)
 3940IFflag x=x+F:y=y-B:!M%=B%:M%!4=C%:M%!16=B%<<16:M%!20=C%<<16
 3950ENDIF
 3960A%=1:B%=X%:C%=Y%:D%=Z%:E%=SB%
 3970CALLgjkey
 3980CALLGJkeY,A$
 3990UNTILflagAND k%=4
 4000PROCGordON(4)
 4010ENDPROC
 4020DEFFNgJKEy(B%,C%)
 4030LOCALX%
 4040IFB%>-270THEN=0
 4050X%=B%+270
 4060IFSQR(X%^2+C%^2)>100THEN=0
 4070=USRgJKEy
 4080DEFFNgJKEyA(B%,C%)
 4090IFB%>448ORB%<-448ORC%>219ORC%<-219THEN=0
 4100=USRgJKEy
 4110DEFPROCGOrdON(RETURNB%,RETURNC%)
 4120LOCALA%,R%,a%
 4130B%=-320:C%=0:A%=0
 4140REPEAT
 4150IFFNgJKEy(B%,C%):UNTILTRUE:PROCsetb(B%,C%):ENDPROC
 4160R%=RND(100):a%=RND(180)+180
 4170B%=R%*SINRADa%-270:C%=R%*COSRADa%
 4180UNTILFALSE
 4190ENDPROC
 4200DEFPROCsetb(B%,C%)
 4210!gjkEY=B%
 4220gjkEY!4=C%
 4230gjkEY!16=B%<<16
 4240gjkEY!20=C%<<16
 4250ENDPROC
 4260DEFPROCgORDOn
 4270!EFKEY=21
 4280!EFKEy=!gjkEY:EFKEy!4=gjkEY!4
 4290!GJKEY=0:!gjKEy=0
 4300!gjKey=768
 4310S%=0:!GJKey=0:L%=0
 4320SA%=R%-&1200
 4330IFSA%<0SA%+=&3000
 4340!gjkeY=TRUE
 4350foul%=0
 4360!EFKey=0
 4370bc%=0
 4380ENDPROC
 4390DEFPROCgORdon(Ro%)
 4400LOCALQ%
 4410IFOn%=TRUEF%=0
 4420IFG%<>2L%=!GJKey:L%=(L%+(E%>>4))MOD&3000
 4430IFL%<0L%+=&3000
 4440IFL%<&1800ANDL%>&100 L%=&100
 4450IFL%>&1800ANDL%<&2F00L%=&2F00
 4460!GJKey=L%
 4470Q%=!gjKey-F%
 4480!gjKey=Q%
 4490SB%=((SA%+L%)MOD&3000):!gJKey=SB%
 4500IFS%ANDgjkEY!36<=0THEN
 4510PROCshoot:!GJKEy=1:CC%=0:IFRo%:PROCgoRDOn2ELSEPROCgoRDOn
 4520ENDIF
 4530ENDPROC
 4540DEFFNautonom
 4550LOCALN%
 4560N%=Gr%(play%)
 4570IFN%=1ANDRed%=0THENN%=3
 4580IFN%=2ANDYell%=0THENN%=3
 4590IFfoul%<>0N%=4
 4600Nom$=FNnomstr(N%)
 4610=N%
 4620DEFFNnomstr(A%)
 4630LOCALA$,X%
 4640A$=CHR$18+CHR$127+"On ball = ":X%=286
 4650IFFta%A%=7
 4660CASEA%OF
 4670WHEN1:A$=A$+"RED"
 4680WHEN2:A$=A$+"YELLOW"
 4690WHEN3,5,6:A$=A$+"BLACK"
 4700WHEN0,4:A$=A$+"RED OR YELLOW":X%=266
 4710WHEN7:A$=A$+"FREE TABLE":X%=276
 4720ENDCASE
 4730A%=X%:CALLGjKEY,A$,A%
 4740=CHR$31+CHR$((A%DIV255)*255)+CHR$1+CHR$30+CHR$(A%MOD255)+A$
 4750DEFPROCshoot
 4760*CHANNELVOICE 4 Hitcue
 4770LOCALx%,y%,A,B%
 4780Count%(play%)+=1
 4790A=SB%/r
 4800B%=gjkEY+28
 4810!B%=&10000*COSA:B%!4=&10000*SINA
 4820IFF%>0 B%!8=F%^1.27ELSEB%!8=0
 4830A=!GJKEY
 4840IFA>0THEN
 4850A=(A/6000)*B%!8
 4860ELSE
 4870A=(A/3800)*B%!8
 4880ENDIF
 4890SCREW=A
 4900!GJKEY=A
 4910O%=1:!GJKEy=1
 4920F%=F%>>5
 4930IFF%<1F%=1
 4940IFF%>15F%=15
 4950SOUND4,-F%,&2000,1
 4960F%=0
 4970CF%=TRUE
 4980Pw%=FALSE
 4990shot%=TRUE
 5000Mx%=!gjkEY:My%=gjkEY!4:Msin%=gjkEY!28:Mcos%=gjkEY!32:Mp%=gjkEY!36:Ms%=!gjKEy:Mt%=!GJKEY
 5010ENDPROC
 5020DEFPROCgORDON(A%)
 5030LOCALX%,Y%
 5040REPEAT
 5050MOUSEX%,Y%,G%
 5060UNTIL(G%ANDA%)=0
 5070MOUSETO0,0
 5080ENDPROC
 5090DEFPROCgORDon
 5100CASEG%OF
 5110WHEN0:PROCgORdON
 5120WHEN1:PROCgoRdON
 5130WHEN2:PROCgOrdon
 5140ENDCASE
 5150ENDPROC
 5160DEFPROCgORDon2
 5170CASEG%OF
 5180WHEN0:PROCgORdON2
 5190WHEN1:PROCgoRdON
 5200WHEN2:PROCgOrdon
 5210ENDCASE
 5220ENDPROC
 5230DEFPROCgoRdON
 5240LOCALx%,y%
 5250x%=-!gjkEY:y%=-gjkEY!4
 5260U%-=F%:IFU%>960U%=960
 5270IFU%<100U%=100
 5280IFU%<400ANDZ%<-((U%-90)>>1)Z%=-(U%-70)
 5290E%=0
 5300CASEW%OF
 5310WHEN1:PROCGOrDON1
 5320WHEN2:PROCGOrDON2
 5330WHEN3:PROCGOrDON3
 5340WHEN4:PROCGOrDON4
 5350ENDCASE
 5360R%=FNGOrDOn2
 5370ox%=X%:oy%=Y%
 5380ENDPROC
 5390DEFPROCgORdON2
 5400IFABSE%<8ANDABSF%<8ENDPROC
 5410DEFPROCgORdON
 5420IFMh%>0Mh%-=1
 5430E%=E%DIV5+SGNE%
 5440IFJ%ANDF%=0 CF%=0
 5450IFNOTCF%Z%-=F%/8
 5460IFZ%>-16Z%=-16
 5470IFZ%<-210Z%=-210
 5480CASEW%OF
 5490WHEN1:PROCGOrDON1a:IFABS(Y%-oy%)>30ANDX%<800U%=U%+((280-U%)OR4*-(U%<>280))DIV4:X%=U%<<1
 5500WHEN2:PROCGOrDON2a:IFABS(X%-ox%)>30ANDY%>-400U%=U%+((280-U%)OR4*-(U%<>280))DIV4:Y%=-U%
 5510WHEN3:PROCGOrDON3a:IFABS(Y%-oy%)>30ANDX%>-800U%=U%+((280-U%)OR4*-(U%<>280))DIV4:X%=-U%<<1
 5520WHEN4:PROCGOrDON4a:IFABS(X%-ox%)>30ANDY%<400U%=U%+((280-U%)OR4*-(U%<>280))DIV4:Y%=U%
 5530ENDCASE
 5540R%=FNGOrDOn4
 5550ENDPROC
 5560DEFPROCGOrDON1
 5570Y%+=E%
 5580X%=U%*2:IFX%<x%-20 X%=x%-20:U%=X%>>1
 5590ENDPROC
 5600DEFPROCGOrDON2
 5610X%+=E%
 5620Y%=-U%:IFY%>y%+20Y%=y%+20:U%=-Y%
 5630ENDPROC
 5640DEFPROCGOrDON3
 5650Y%-=E%
 5660X%=-U%*2:IFX%>x%+20 X%=x%+20:U%=-X%>>1
 5670ENDPROC
 5680DEFPROCGOrDON4
 5690X%-=E%
 5700Y%=U%:IFY%<y%-20Y%=y%-20:U%=Y%
 5710ENDPROC
 5720DEFPROCGOrDON1a
 5730Y%+=E%
 5740IFE%>0ANDY%>=U%:W%=4:Y%=U%:PROCGOrDON4a:ENDPROC
 5750IFE%<0ANDY%<=-U%:W%=2:Y%=-U%:PROCGOrDON2a:ENDPROC
 5760ENDPROC
 5770DEFPROCGOrDON2a
 5780X%+=E%
 5790IFE%>0ANDX%>=U%*2:W%=1:X%=U%*2:PROCGOrDON1a:ENDPROC
 5800IFE%<0ANDX%<=-U%*2:W%=3:X%=-U%*2:PROCGOrDON3a:ENDPROC
 5810ENDPROC
 5820DEFPROCGOrDON3a
 5830Y%-=E%
 5840IFE%>0ANDY%<=-U%:W%=2:Y%=-U%:PROCGOrDON2a:ENDPROC
 5850IFE%<0ANDY%>=U%:W%=4:Y%=U%:PROCGOrDON4a:ENDPROC
 5860ENDPROC
 5870DEFPROCGOrDON4a
 5880X%-=E%
 5890IFE%>0ANDX%<=-U%*2:W%=3:X%=-U%*2:PROCGOrDON3a:ENDPROC
 5900IFE%<0ANDX%>=U%*2:W%=1:X%=U%*2:PROCGOrDON1a:ENDPROC
 5910ENDPROC
 5920DEFPROCgOrdon
 5930Mh%=2
 5940R%=(R%-E%)MOD&3000
 5950IFR%<0R%+=&3000
 5960IFW%=1THEN
 5970IFR%>&2400 R%=&2400
 5980IFR%<&C00 R%=&C00
 5990ENDIF
 6000IFW%=2THEN
 6010IFR%>&2400 R%=0
 6020IFR%>&1800 R%=&1800
 6030ENDIF
 6040IFW%=4THEN
 6050IFR%<&C00 R%=&2FFF
 6060IFR%<&1800 R%=&1800
 6070ENDIF
 6080IFW%=3THEN
 6090IFR%>&C00ANDR%<&1800 R%=&C00
 6100IFR%<&2400ANDR%>&1800 R%=&2400
 6110ENDIF
 6120V%=(V%-F%)
 6130IFV%<&900V%=&900
 6140IFV%>&C00V%=&C00
 6150ENDPROC
 6160DEFFNGOrDOn2
 6170LOCALO,x%,y%,a,a%,d%,v
 6180x%=!M%+X%:y%=M%!4+Y%
 6190O=-SQR(x%^2+y%^2)
 6200IFO<>0THEN
 6210a=(ACS(x%/O)):IFy%/O<0 a=p-a
 6220ELSE
 6230a=0
 6240ENDIF
 6250v=SQR(O^2+Z%^2)
 6260V%=V%+(ACS(-Z%/v)*r-V%)DIV2
 6270a%=a*r
 6280x%=a%-R%:d%=SGNx%
 6290IFx%>&1000 d%=-d%
 6300IFd%>0THEN
 6310y%=(a%+R%)DIV2
 6320ELSE
 6330y%=(a%-R%)DIV2
 6340IFABSy%>&C00 y%=-(&1800-y%)
 6350y%+=R%
 6360IFy%<0y%+=&3000
 6370ENDIF
 6380=y%
 6390DEFFNGOrDOn4
 6400LOCALO,a,a%,d%,v,x%,y%
 6410x%=!M%+X%:y%=M%!4+Y%
 6420O=-SQR(x%^2+y%^2)
 6430IFO=0THEN=0
 6440a=(ACS(x%/O)):IFy%/O<0 a=p-a
 6450v=SQR(O^2+Z%^2)
 6460V%=V%+(ACS(-Z%/v)*r-V%)
 6470=a*r
 6480DEFPROCcode
 6490*L. <Obey$Dir>.GOOK 9000
 6500v=&BD00
 6510GJKEY=!v:GJKEy=v!4:GJKey=v!8:GJkey=v!12:Gjkey=v!16:gjkey=v!20:gjkeY=v!24:gjkEY=v!28:gjKEY=v!32:gJKEY=v!36:gJKEy=v!40:gjKEy=v!44:gJKey=v!48:gjKey=v!60:GjkeY=v!64:GJkeY=v!68:GjKEY=v!72:GjKeY=v!76:gJkEy=v!80
 6520EFKEY=v!84:EFKEy=v!96:EFKey=v!100:EFkey=v!128:Efkey=v!172:efkey=v!176:efkeY=v!196:efkEY=v!204:efKEY=v!212:eFKEY=v!216
 6530ENDPROC

� > !*.snodgrass
/�<>&3F300��=&3F300:�"<Obey$Dir>.snodgrass"

*FX4,1
(ș26,64,64
2�GORDON
<gjkEY!1060=233
F�GordoN
Pș"Hourglass_Smash"
Z�13:�EFkey
d�GORDOn
n�
x��GORDOn
�*Fx229,1
�E�X%,Y%,Z%,T%,f%,of%,b%,ob%,cary%,cx%,cy%,xa%,ya%,I%,otk%,AD%,Fta%
�
TIT%=0
�'otk%=tk%:A%=0:B%=0:�gjKEY:�tk%tk%=1
�!ballf%()=0:ballf%(4)=1:�gJkEy
�gjkEY!12=&80000008
��GORDon
��
���gjkeytop
�&�sf 16:!sf=2:sf!4=1:sf!8=3:sf!12=1
��0,1Ȝ64
�ȑ0,194
�Ȗ
ȓȐ152,544,980,16
ȓȐ152,28,980,16
ȓȐ136,44,16,500
"ȓȐ1132,44,16,500
,�8Ȝ128
6ȓ148,40,988,508
@ȓ152,44,980,500
J
�8Ȝ64
Tȓ156,48,972,492
^�8Ȝ192
hȓȐ160,52,964,484
r�46Ȝ255
|'ș&2e,&122,efkeY,"corner",140,508,8
�ș&2E,&12F,efkeY,"corner"
�(ș&2E,&122,efkeY,"corner",1098,508,8
�ș&2E,&121,efkeY,"corner"
�'ș&2E,&122,efkeY,"corner",1098,32,8
�ș&2E,&12F,efkeY,"corner"
�&ș&2E,&122,efkeY,"corner",140,32,8
�ș&2E,&121,efkeY,"corner"
�'ș&2E,&122,efkeY,"middle",608,540,8
�ș&2E,&121,efkeY,"middle"
�&ș&2E,&122,efkeY,"middle",608,28,8
�ș&2E,&121,efkeY,"middle"
��63Ȝ0:�361,52,361,536
�"�361,292:�361,392:�&A5,361,100
Q�GORdon(�18+�0+"THE DEMO THAT YOU HAVE JUST TRIED CONTAINS LESS THAN",160,10)
p�GORdon(�18+�0+"FIVE PERCENT OF "+�18+�16+"SUPER POOL "+�18+�0+"AND NOTHING OF"+�18+�16+" BREAK 147",160,12)
K�GORdon(�18+�0+"A COMPLETE COPY CAN BE YOURS FOR ONLY    24.95",160,14)
& �0:ș&2E,51,163,,916,352,,sf
0I�GORdon("AND CAN BE OBTAINED FROM ANY GOOD SOFTWARE SUPPLIER",160,16)
:&�GORdon("OR DIRECT FROM :-",90,19)
D*�GORdon("THE FOURTH DIMENSION",220,19)
N �GORdon("DEPT. 4444",199,20)
X$�GORdon("1 PERCY STREET",206,21)
b�GORdon("SHEFFIELD",196,22)
l&�GORdon("Tel {0742} 700661",90,22)
v�
���GOrDON
�*FX229,1
�ș6,251,0,255�T%,S%
�ș6,112,S%:�EFkey
�D�T%=1�1000:A%=�(340)-10:B%=�(276)-10:C%=�(27)+5:D%=�(8):�efKEY:�
�
�gjkeytop
��
�*CHANNELVOICE 1 1
�*RMKILL cusHION
�*RMKILL Hitball
�*RMKILL Hitcue
�*RMKILL FASTDROPRM
�*RMKILL SLOWDROPRM

*FX229
�
��GOrdon(Q%)
 -oQ%=Q%:oX%=X%:oY%=Y%:oZ%=Z%:oR%=R%:oV%=V%
*�
4��Gordon(Nom$,S%)
>�P%,I%,x%,y%,Or%
HM%=gjkEY
R�
\
�Z%<>-70�
fI%=(-70-Z%)�2*-(Z%<>-92)
pZ%+=(I%>>1)
z�
�x%=X%:y%=Y%
�	ȎW%�
�2�1:I%=(560-X%)�2*-(X%<>560):X%+=(I%>>1):x%=560
�5�2:I%=(-280-Y%)�2*-(Y%<>-280):Y%+=(I%>>1):y%=-280
�5�3:I%=(-560-X%)�2*-(X%<>-560):X%+=(I%>>1):x%=-560
�2�4:I%=(280-Y%)�2*-(Y%<>280):Y%+=(I%>>1):y%=280
��
�6P%=!GJKey:�P%>&1800 P%+=((&3000-P%)�2)�:P%-=(P%�2)
� P%=P%�&3000:!GJKey=P%:U%=280
�2B%=X%:C%=Y%:D%=Z%:E%=SB%:H%=�gjkey:�GJkeY,Nom$
�Or%=R%:R%=�GOrDOn2
�3�Z%=-70�X%=x%�Y%=y%�(P%<3�P%>&2FFD)��(Or%-R%)<2
�;!GJKey=0:B%=X%:C%=Y%:D%=Z%:E%=SB%:H%=�gjkey:�GJkeY,Nom$
�
��gordon(Pr%)
�i%
$i%=Ik%:Ik%=0
.?�i%=51��De%�gordON(X%,Y%,Z%,0):Nom$=" ":Ik%=0:��i%=51i%=82
8.�i%=82�gordON(X%,Y%,Z%,�):Nom$=" ":Ik%=0:�
BF�Pr%�i%=53�GjKeY:gjkEY!36=0:!GJKEy=1:O%=1:����-54:�Gordon(" ",�):�
L�i%=35�Tb%Ti%=12:����-36
V9�i%=55�(Pr%�Pw%�Fta%):�goRDON:M%!12=&80000008:Ik%=�:�
`�
j��gordoN(ti%)
t�A%,B%,T%,E%,F%,G%,R%,V%
~�=0
��ti%Nom$=�dispscores
�!efkEY=560
��:ȗA%,B%,T%
�	�ti%�
�R%=0:V%=2265
�8B%=-640:C%=0:D%=-188:E%=0:H%=�gjkey:�GJkeY,Nom$:K%=0
��
��T%��(0)>0�(ti%��>500)
�!efkEY=!eFKEY
��
���GORdon(A$,h%,Y%)
��GjKEY,A$,h%
A$=�31+�h%+�Y%+A$


�GJkeY,A$
�
��goRDON
(
�X%,Y%,Z%
2�:ȗX%,Y%,Z%:�Z%=0
<�
F��GORDon
PS�T%,FB%,On%,Of%,shot%,shotscore%,foul%,redc%,sno%,bc%,Bk%,AFB%,fc%,b%():�b%(21)
Z�:���GOrDON
d
*FX229
n�goRDON:Bk%=�
x	�13:�
�Red%=15:O%=1:Pw%=�
�!GJKEy=1:On%=1:Of%=�
��gorDOn
�+�GJkey,Ti%,Ik%,O%,K%,tk%,R%,V%,M%,J%,S%
��GordON(4)
��
�M%=gjkEY
��M%!12<0�GOrdoN(�,0):Bk%=�
��
��Gordon(" ",�)
�shot%=0
��
�ȗE%,F%,G%:ȗ�0,0
�J%=0 M%=gjkEY

�G%=4�
 O%=O%�1:�gORDON(4):!GJKEy=O%
"-�O%=0�Mh%=0�gORDOn�O%=1:!GJKEy=1:!GJKey=0
,�
6�O%�gORDon��gORdon(�)
@+A%=1:B%=X%:C%=Y%:D%=Z%:E%=SB%:H%=�gjkey
J%�Ik%Pw%=�:�gordon(�):�Ik%��:��:��
T�shot%�M%!36<=0
^'On%=!EFKey:�Red%>0�On%>1Of%=��Of%=0
h�gjkEY!12<0�K%<9
r	�K%<9
|�GOrDON
��
���gordON(X%,Y%,Z%,TV%)
�*FX229,1
�!GJKEy=1:O%=1
��efkey:�GjKeY
�!�ud%,co%,A$,B$,h%,Sk%,Tk%,Fl%
��oQ%��TV%�
��R%,V%,SB%
�EX%=oX%:Y%=oY%:Z%=oZ%:R%=oR%:V%=oV%:TV%=0:!efkEY=Sc%:SB%=0:Sk%=560
�M%=gjkEY:ȗ�0,0
��
�Sk%=!efkEY
��
Tk%=tk%
vx%=!gjkEY:vy%=gjkEY!4
ud%=gjkEY!36:gjkEY!36=0
&�goRDON
0	�TV%�
:�X%,Y%,Z%,R%,V%,SB%
D1X%=-640:Y%=0:Z%=-188:R%=0:V%=2265:SB%=0:Tk%=0
NM%=gjkEY:!efkEY=560:ȗ�0,0
X�
b�Gordon(" ",�)
lEh%=160:A$=�18+�127+"ADJUST VIEW THEN CLICK 'SELECT'":�GjKEY,A$,h%
vA$=�31+�h%+�1+A$
��
�ȗE%,F%,G%:ȗ�0,0
��gORDon2
�&B%=X%:C%=Y%:D%=Z%:E%=SB%:H%=�gjkey
�
�GJkeY,A$
��(G%�4)
��
�
*FX229
�/�:��!efkEY=Sk%:�Efkey:M%=gjkEY:�"FX229":�
�3h%=160:B$=�18+�251+"ACTION REPLAY":�GjKEY,B$,h%
�B$=�31+�h%+�1+B$
�?�TV%�T%=1�20:B%=X%:C%=Y%:D%=Z%:E%=SB%:H%=�gjkey:�GJkeY,B$:�
�gjkEY!36=ud%
�
ȗE%,F%,G%:ȗ�0,0
2�TV%:�gOrdon��-68:X%=-X%:R%=R%�&1800:����-68
 0B%=X%:C%=Y%:D%=Z%:E%=SB%:H%=�gjkey:�GJkeY,B$
*�Tk%R%=�GOrDOn2
4	�J%=0
>
�Efkey
HM%=gjkEY:!efkEY=Sk%
R
*FX229
\�
f��goRDOn
p*fx229,1
z
�gJkEy
��P%,t%,E%,F%,G%,Tk%
�P%=gjkEY+36:Tk%=tk%
�J%=0
��t%=1�10
�B%=X%:C%=Y%:D%=Z%:H%=�gjkey
��Tk%R%=�GOrDOn2
��H%�J%=0 t%=10
��
��H%�goRDon2:Tk%=0
�
ȗ�0,0
��
��
�ȗE%,F%,G%:ȗ�0,0
	B%=X%:C%=Y%:D%=Z%:H%=�gjkey
	!�Tk%�G%<>2R%=�GOrDOn2��gOrdon
	F�Ik%=53�GjKeY:gjkEY!36=0:�"FX229":CF%=�:!GjkeY=98:!gJKey=0:��:��:�
	$�H%�J%=0
	.�H%�goRDon2:Tk%=0
	8	�J%=0
	BB%=X%:C%=Y%:D%=Z%:H%=�gjkey
	L�H%=8�:!P%=0
	V	CF%=�
	`
!GjkeY=98
	j
*fx229
	t!GJKey=0
	~!gJKey=0
	��
	���liveball
	�
�T%,b%,c%
	�ballf%()=0
	�b%=gjkEY+12
	��!b%<0ballf%(4)=1
	�b%+=40:c%=1
	��T%=1�7
	��!b%<0ballf%(1)+=1
	�
b%+=40
	��
	��T%=8�14
�!b%<0ballf%(2)+=1


b%+=40
�
�!b%<0ballf%(3)=1
(�
2��GORDON
<	�code
Ftd=910/963
P
�block 16
Z�d%(14),Count%(2)
ddp%=14:�T%=1�14:d%(T%)=T%:�
n!efkeY=&10000:efkeY!8=16
x*ș&2E,&10A,efkeY,"<Obey$Dir>.machine3"
��+1
��ballcols%9,ballf%(4)
��T%=1�4:�ballcols%?T%:�
��3,31,21,63
�&ballf%()=1:ballf%(1)=7:ballf%(2)=7
��Ik%=0:Tb%=0:Ti%=0:sno%=0:Tba%=0:play%=1:tk%=�:Pag%=0:score%=0:Vol%=127:Tour%=0:Quit%=0:Tv%=�:side%=0:top%=0:Mh%=0:De%=0:�GOrdon(0)
��
���goRdon
�ballf%()=1
�ballf%(1)=15
��T%=1�4:�gorDon(T%,27):�
��
���gorDOn
M%=gjkEY
	CF%=0
	SB%=0
"
X%=560
,Y%=0
6Z%=-160
@R%=0
JV%=2468
Tr=1955.69594
^	p=2*�
hnt%=(�/2)*r
r
U%=280
|W%=1
�IR%=0:AR%=0
�	DI%=1
�O%=1
�	SA%=0
�
ȑ640,512
�x%=0:Sy%=0:a=0:d%=0:f%=0
�ox%=0:oy%=0
��
���GordoN
�
�A%,B%
�
�gjKEY
�Ƞ4
�*CHANNELVOICE 4 Hitball
*CHANNELVOICE 3 Hitball
*CHANNELVOICE 2 cusHION
�13
&�gorDOn
0�
:+�GJkey,Ti%,Ik%,O%,K%,tk%,R%,V%,M%,J%,S%
D
�Gjkey
N�
X��goRDon
b
�H%=8�
l!gJKEY=0
v
�H%=1�
�Red%-=1
��
��Red%bc%+=1:b%(bc%)=H%
��
��
�
��goRDon2
��H%=8�:gjkEY!36=0
�bc%+=1:b%(bc%)=H%
�!gJKEY=0
��
���GordON(A%)
�?block=2
�block?1=A%

block?2=A%

ș"OS_Word",21,block

�

 ��GOrdoN(P%,sst%)

**FX229,1

4*CHANNELVOICE 4 1

>�goRDON:�GordON(1)

H�sst%�4,-15,60,3

R,�A%,B%,C%,E,F,k%,B,c,s,flag,x,y,A$,h%,T%

\nA$=�18+�127+"POSITION BALL THEN CLICK 'SELECT' TO PLACE,  HOLD 'ADJUST' TO ALTER VIEW":h%=160:�GjKEY,A$,h%

fA$=�31+�h%+�1+A$

p7�sst%R%=6139:V%=2585:X%=560:Y%=0:Z%=-70:W%=1:U%=280

z(�Pw%�GOrdON(x,y)�x=!gjkEY:y=gjkEY!4

�gjkEY!12=8

��Gordon(A$,�)

�'Pw%=�:A=2*�-R%/r:c=-�A:s=-�A:ȗ�0,0

��

�ȗE,F,k%:ȗ�0,0

�]�k%=2:R%=6139:V%=2585:X%=560:Y%=0:Z%=-70:W%=1:U%=280:A=2*�-R%/r:c=-�A:s=-�A:�Gordon(A$,�)

�
�k%=1�

�E%=E:F%=F:G%=0

��GordON(4)

��gORDon

��GordON(1)

�A=2*�-R%/r:c=-�A:s=-�A

��
B=E*c+F*s:F=E*-s+F*c
A%=0:B%=x+F:C%=y-B
-�P%flag=�gJKEyA(B%,C%)�flag=�gJKEy(B%,C%)
$J�flag x=x+F:y=y-B:!gjkEY=B%:gjkEY!4=C%:gjkEY!16=B%<<16:gjkEY!20=C%<<16
.�
8!A%=1:B%=X%:C%=Y%:D%=Z%:E%=SB%
B
�gjkey
L
�GJkeY,A$
V�flag� k%=4
`�GordON(4):M%=gjkEY:�goRDON
j�Gordon(" ",�)
t
ȗ�0,0
~
*FX229
��
���GORdON(ball%,x,y)
��goRDON:�GordON(1)
�%�A%,B%,C%,E,F,k%,B,c,s,flag,A$,h%
�oA$=�18+�127+"POSITION BALL THEN CLICK 'SELECT' TO PLACE,  PRESS 'ADJUST' TO ALTER VIEW":h%=160:�GjKEY,A$,h%
�A$=�31+�h%+�1+A$
�&R%=6139:V%=2585:X%=560:Y%=0:Z%=-70
�
A=R%/r
�c=-�A:s=-�A
�M%=gjkEY+40*ball%-40
��
�ȗE,F,k%:ȗ�0,0

�k%=1�

E%=E:F%=F:G%=0
�GordON(4)
�gORDon
(�GordON(1)
2A=2*�-R%/r:c=-�A:s=-�A
<�
FB=E*c+F*s:F=E*-s+F*c
PA%=ball%-1:B%=x+F:C%=y-B
Zflag=�gJKEyA(B%,C%)
d>�flag x=x+F:y=y-B:!M%=B%:M%!4=C%:M%!16=B%<<16:M%!20=C%<<16
n�
x!A%=1:B%=X%:C%=Y%:D%=Z%:E%=SB%
�
�gjkey
�
�GJkeY,A$
��flag� k%=4
��GordON(4)
��
�ݤgJKEy(B%,C%)
��X%
��B%>-270�=0
�
X%=B%+270
��(X%^2+C%^2)>100�=0
�=�gJKEy
�ݤgJKEyA(B%,C%)
�%�B%>448�B%<-448�C%>219�C%<-219�=0
=�gJKEy
��GOrdON(�B%,�C%)

�A%,R%,a%
"B%=-320:C%=0:A%=0
,�
6$�gJKEy(B%,C%):��:�setb(B%,C%):�
@R%=�(100):a%=�(180)+180
JB%=R%*��a%-270:C%=R%*��a%
T��
^�
h��setb(B%,C%)
r
!gjkEY=B%
|gjkEY!4=C%
�gjkEY!16=B%<<16
�gjkEY!20=C%<<16
��
���gORDOn
�
!EFKEY=21
�!!EFKEy=!gjkEY:EFKEy!4=gjkEY!4
�!GJKEY=0:!gjKEy=0
�!gjKey=768
�S%=0:!GJKey=0:L%=0
�SA%=R%-&1200
��SA%<0SA%+=&3000
�!gjkeY=�
�foul%=0
!EFKey=0
	bc%=0
�
&��gORdon(Ro%)
0�Q%
:�On%=�F%=0
D)�G%<>2L%=!GJKey:L%=(L%+(E%>>4))�&3000
N�L%<0L%+=&3000
X�L%<&1800�L%>&100 L%=&100
b�L%>&1800�L%<&2F00L%=&2F00
l
!GJKey=L%
vQ%=!gjKey-F%
�
!gjKey=Q%
�#SB%=((SA%+L%)�&3000):!gJKey=SB%
��S%�gjkEY!36<=0�
�/�shoot:!GJKEy=1:CC%=0:�Ro%:�goRDOn2��goRDOn
��
��
�
ݤautonom
��N%
�N%=Gr%(play%)
��N%=1�Red%=0�N%=3
��N%=2�Yell%=0�N%=3
��foul%<>0N%=4
�Nom$=�nomstr(N%)
=N%
ݤnomstr(A%)

�A$,X%
 #A$=�18+�127+"On ball = ":X%=286
*
�Fta%A%=7
4	ȎA%�
>�1:A$=A$+"RED"
H�2:A$=A$+"YELLOW"
R�3,5,6:A$=A$+"BLACK"
\%�0,4:A$=A$+"RED OR YELLOW":X%=266
f �7:A$=A$+"FREE TABLE":X%=276
p�
zA%=X%:�GjKEY,A$,A%
�,=�31+�((A%�255)*255)+�1+�30+�(A%�255)+A$
���shoot
�*CHANNELVOICE 4 Hitcue
��x%,y%,A,B%
�Count%(play%)+=1
�A=SB%/r
�B%=gjkEY+28
� !B%=&10000*�A:B%!4=&10000*�A
��F%>0 B%!8=F%^1.27�B%!8=0
�A=!GJKEY
�	�A>0�
�A=(A/6000)*B%!8
��
A=(A/3800)*B%!8
�
SCREW=A
$!GJKEY=A
.O%=1:!GJKEy=1
8F%=F%>>5
B
�F%<1F%=1
L�F%>15F%=15
V�4,-F%,&2000,1
`F%=0
j	CF%=�
t	Pw%=�
~shot%=�
�[Mx%=!gjkEY:My%=gjkEY!4:Msin%=gjkEY!28:Mcos%=gjkEY!32:Mp%=gjkEY!36:Ms%=!gjKEy:Mt%=!GJKEY
��
���gORDON(A%)
�
�X%,Y%
��
�ȗX%,Y%,G%
��(G%�A%)=0
�
ȗ�0,0
��
���gORDon
�	ȎG%�
��0:�gORdON
�1:�goRdON

�2:�gOrdon
�
�
(
��gORDon2
2	ȎG%�
<�0:�gORdON2
F�1:�goRdON
P�2:�gOrdon
Z�
d�
n��goRdON
x
�x%,y%
�x%=-!gjkEY:y%=-gjkEY!4
�U%-=F%:�U%>960U%=960
��U%<100U%=100
�'�U%<400�Z%<-((U%-90)>>1)Z%=-(U%-70)
�E%=0
�	ȎW%�
��1:�GOrDON1
��2:�GOrDON2
��3:�GOrDON3
��4:�GOrDON4
��
�R%=�GOrDOn2
�ox%=X%:oy%=Y%
�

��gORdON2
�E%<8��F%<8�
"��gORdON
,�Mh%>0Mh%-=1
6E%=E%�5+�E%
@�J%�F%=0 CF%=0
J�CF%Z%-=F%/8
T�Z%>-16Z%=-16
^�Z%<-210Z%=-210
h	ȎW%�
rM�1:�GOrDON1a:�(Y%-oy%)>30�X%<800U%=U%+((280-U%)�4*-(U%<>280))�4:X%=U%<<1
|L�2:�GOrDON2a:�(X%-ox%)>30�Y%>-400U%=U%+((280-U%)�4*-(U%<>280))�4:Y%=-U%
�O�3:�GOrDON3a:�(Y%-oy%)>30�X%>-800U%=U%+((280-U%)�4*-(U%<>280))�4:X%=-U%<<1
�J�4:�GOrDON4a:�(X%-ox%)>30�Y%<400U%=U%+((280-U%)�4*-(U%<>280))�4:Y%=U%
��
�R%=�GOrDOn4
��
�
��GOrDON1
�
Y%+=E%
�'X%=U%*2:�X%<x%-20 X%=x%-20:U%=X%>>1
��
�
��GOrDON2
�
X%+=E%
�#Y%=-U%:�Y%>y%+20Y%=y%+20:U%=-Y%
��

��GOrDON3

Y%-=E%
)X%=-U%*2:�X%>x%+20 X%=x%+20:U%=-X%>>1
&�
0
��GOrDON4
:
X%-=E%
D!Y%=U%:�Y%<y%-20Y%=y%-20:U%=Y%
N�
X��GOrDON1a
b
Y%+=E%
l'�E%>0�Y%>=U%:W%=4:Y%=U%:�GOrDON4a:�
v)�E%<0�Y%<=-U%:W%=2:Y%=-U%:�GOrDON2a:�
��
���GOrDON2a
�
X%+=E%
�+�E%>0�X%>=U%*2:W%=1:X%=U%*2:�GOrDON1a:�
�-�E%<0�X%<=-U%*2:W%=3:X%=-U%*2:�GOrDON3a:�
��
���GOrDON3a
�
Y%-=E%
�)�E%>0�Y%<=-U%:W%=2:Y%=-U%:�GOrDON2a:�
�'�E%<0�Y%>=U%:W%=4:Y%=U%:�GOrDON4a:�
��
���GOrDON4a
�
X%-=E%
-�E%>0�X%<=-U%*2:W%=3:X%=-U%*2:�GOrDON3a:�
+�E%<0�X%>=U%*2:W%=1:X%=U%*2:�GOrDON1a:�
�
 ��gOrdon
*	Mh%=2
4R%=(R%-E%)�&3000
>�R%<0R%+=&3000
H
�W%=1�
R�R%>&2400 R%=&2400
\�R%<&C00 R%=&C00
f�
p
�W%=2�
z�R%>&2400 R%=0
��R%>&1800 R%=&1800
��
�
�W%=4�
��R%<&C00 R%=&2FFF
��R%<&1800 R%=&1800
��
�
�W%=3�
��R%>&C00�R%<&1800 R%=&C00
��R%<&2400�R%>&1800 R%=&2400
��
�V%=(V%-F%)
��V%<&900V%=&900
��V%>&C00V%=&C00
�

ݤGOrDOn2
�O,x%,y%,a,a%,d%,v
$x%=!M%+X%:y%=M%!4+Y%
.O=-�(x%^2+y%^2)
8
�O<>0�
Ba=(�(x%/O)):�y%/O<0 a=p-a
L�
Va=0
`�
jv=�(O^2+Z%^2)
tV%=V%+(�(-Z%/v)*r-V%)�2
~
a%=a*r
�x%=a%-R%:d%=�x%
��x%>&1000 d%=-d%
�
�d%>0�
�y%=(a%+R%)�2
��
�y%=(a%-R%)�2
��y%>&C00 y%=-(&1800-y%)
�
y%+=R%
��y%<0y%+=&3000
��
�=y%
�
ݤGOrDOn4
�O,a,a%,d%,v,x%,y%

x%=!M%+X%:y%=M%!4+Y%
O=-�(x%^2+y%^2)
�O=0�=0
(a=(�(x%/O)):�y%/O<0 a=p-a
2v=�(O^2+Z%^2)
<V%=V%+(�(-Z%/v)*r-V%)
F=a*r
P
��code
Z*L. <Obey$Dir>.GOOK 9000
dv=&BD00
n�GJKEY=!v:GJKEy=v!4:GJKey=v!8:GJkey=v!12:Gjkey=v!16:gjkey=v!20:gjkeY=v!24:gjkEY=v!28:gjKEY=v!32:gJKEY=v!36:gJKEy=v!40:gjKEy=v!44:gJKey=v!48:gjKey=v!60:GjkeY=v!64:GJkeY=v!68:GjKEY=v!72:GjKeY=v!76:gJkEy=v!80
xyEFKEY=v!84:EFKEy=v!96:EFKey=v!100:EFkey=v!128:Efkey=v!172:efkey=v!176:efkeY=v!196:efkEY=v!204:efKEY=v!212:eFKEY=v!216
��
�
00000000  0d 00 0a 14 f4 20 3e 20  21 2a 2e 73 6e 6f 64 67  |..... > !*.snodg|
00000010  72 61 73 73 0d 00 14 2f  e7 90 3c 3e 26 33 46 33  |rass.../..<>&3F3|
00000020  30 30 8c d0 3d 26 33 46  33 30 30 3a d7 22 3c 4f  |00..=&3F300:."<O|
00000030  62 65 79 24 44 69 72 3e  2e 73 6e 6f 64 67 72 61  |bey$Dir>.snodgra|
00000040  73 73 22 0d 00 1e 0a 2a  46 58 34 2c 31 0d 00 28  |ss"....*FX4,1..(|
00000050  0e c8 99 32 36 2c 36 34  2c 36 34 0d 00 32 0b f2  |...26,64,64..2..|
00000060  47 4f 52 44 4f 4e 0d 00  3c 12 67 6a 6b 45 59 21  |GORDON..<.gjkEY!|
00000070  31 30 36 30 3d 32 33 33  0d 00 46 0b f2 47 6f 72  |1060=233..F..Gor|
00000080  64 6f 4e 0d 00 50 17 c8  99 22 48 6f 75 72 67 6c  |doN..P..."Hourgl|
00000090  61 73 73 5f 53 6d 61 73  68 22 0d 00 5a 0e eb 31  |ass_Smash"..Z..1|
000000a0  33 3a d6 45 46 6b 65 79  0d 00 64 0b f2 47 4f 52  |3:.EFkey..d..GOR|
000000b0  44 4f 6e 0d 00 6e 05 e0  0d 00 78 0c dd f2 47 4f  |DOn..n....x...GO|
000000c0  52 44 4f 6e 0d 00 82 0c  2a 46 78 32 32 39 2c 31  |RDOn....*Fx229,1|
000000d0  0d 00 8c 45 ea 58 25 2c  59 25 2c 5a 25 2c 54 25  |...E.X%,Y%,Z%,T%|
000000e0  2c 66 25 2c 6f 66 25 2c  62 25 2c 6f 62 25 2c 63  |,f%,of%,b%,ob%,c|
000000f0  61 72 79 25 2c 63 78 25  2c 63 79 25 2c 78 61 25  |ary%,cx%,cy%,xa%|
00000100  2c 79 61 25 2c 49 25 2c  6f 74 6b 25 2c 41 44 25  |,ya%,I%,otk%,AD%|
00000110  2c 46 74 61 25 0d 00 96  0a 54 49 54 25 3d 30 0d  |,Fta%....TIT%=0.|
00000120  00 a0 27 6f 74 6b 25 3d  74 6b 25 3a 41 25 3d 30  |..'otk%=tk%:A%=0|
00000130  3a 42 25 3d 30 3a d6 67  6a 4b 45 59 3a e7 74 6b  |:B%=0:.gjKEY:.tk|
00000140  25 74 6b 25 3d 31 0d 00  aa 21 62 61 6c 6c 66 25  |%tk%=1...!ballf%|
00000150  28 29 3d 30 3a 62 61 6c  6c 66 25 28 34 29 3d 31  |()=0:ballf%(4)=1|
00000160  3a d6 67 4a 6b 45 79 0d  00 b4 16 67 6a 6b 45 59  |:.gJkEy....gjkEY|
00000170  21 31 32 3d 26 38 30 30  30 30 30 30 38 0d 00 be  |!12=&80000008...|
00000180  0b f2 47 4f 52 44 6f 6e  0d 00 c8 05 e0 0d 00 d2  |..GORDon........|
00000190  0e dd f2 67 6a 6b 65 79  74 6f 70 0d 00 dc 26 de  |...gjkeytop...&.|
000001a0  73 66 20 31 36 3a 21 73  66 3d 32 3a 73 66 21 34  |sf 16:!sf=2:sf!4|
000001b0  3d 31 3a 73 66 21 38 3d  33 3a 73 66 21 31 32 3d  |=1:sf!8=3:sf!12=|
000001c0  31 0d 00 e6 0c e6 30 2c  31 c8 9c 36 34 0d 00 f0  |1.....0,1..64...|
000001d0  0b c8 91 30 2c 31 39 34  0d 00 fa 06 c8 96 0d 01  |...0,194........|
000001e0  04 16 c8 93 c8 90 31 35  32 2c 35 34 34 2c 39 38  |......152,544,98|
000001f0  30 2c 31 36 0d 01 0e 15  c8 93 c8 90 31 35 32 2c  |0,16........152,|
00000200  32 38 2c 39 38 30 2c 31  36 0d 01 18 15 c8 93 c8  |28,980,16.......|
00000210  90 31 33 36 2c 34 34 2c  31 36 2c 35 30 30 0d 01  |.136,44,16,500..|
00000220  22 16 c8 93 c8 90 31 31  33 32 2c 34 34 2c 31 36  |".....1132,44,16|
00000230  2c 35 30 30 0d 01 2c 0b  e6 38 c8 9c 31 32 38 0d  |,500..,..8..128.|
00000240  01 36 14 c8 93 31 34 38  2c 34 30 2c 39 38 38 2c  |.6...148,40,988,|
00000250  35 30 38 0d 01 40 14 c8  93 31 35 32 2c 34 34 2c  |508..@...152,44,|
00000260  39 38 30 2c 35 30 30 0d  01 4a 0a e6 38 c8 9c 36  |980,500..J..8..6|
00000270  34 0d 01 54 14 c8 93 31  35 36 2c 34 38 2c 39 37  |4..T...156,48,97|
00000280  32 2c 34 39 32 0d 01 5e  0b e6 38 c8 9c 31 39 32  |2,492..^..8..192|
00000290  0d 01 68 16 c8 93 c8 90  31 36 30 2c 35 32 2c 39  |..h.....160,52,9|
000002a0  36 34 2c 34 38 34 0d 01  72 0c e6 34 36 c8 9c 32  |64,484..r..46..2|
000002b0  35 35 0d 01 7c 27 c8 99  26 32 65 2c 26 31 32 32  |55..|'..&2e,&122|
000002c0  2c 65 66 6b 65 59 2c 22  63 6f 72 6e 65 72 22 2c  |,efkeY,"corner",|
000002d0  31 34 30 2c 35 30 38 2c  38 0d 01 86 1d c8 99 26  |140,508,8......&|
000002e0  32 45 2c 26 31 32 46 2c  65 66 6b 65 59 2c 22 63  |2E,&12F,efkeY,"c|
000002f0  6f 72 6e 65 72 22 0d 01  90 28 c8 99 26 32 45 2c  |orner"...(..&2E,|
00000300  26 31 32 32 2c 65 66 6b  65 59 2c 22 63 6f 72 6e  |&122,efkeY,"corn|
00000310  65 72 22 2c 31 30 39 38  2c 35 30 38 2c 38 0d 01  |er",1098,508,8..|
00000320  9a 1d c8 99 26 32 45 2c  26 31 32 31 2c 65 66 6b  |....&2E,&121,efk|
00000330  65 59 2c 22 63 6f 72 6e  65 72 22 0d 01 a4 27 c8  |eY,"corner"...'.|
00000340  99 26 32 45 2c 26 31 32  32 2c 65 66 6b 65 59 2c  |.&2E,&122,efkeY,|
00000350  22 63 6f 72 6e 65 72 22  2c 31 30 39 38 2c 33 32  |"corner",1098,32|
00000360  2c 38 0d 01 ae 1d c8 99  26 32 45 2c 26 31 32 46  |,8......&2E,&12F|
00000370  2c 65 66 6b 65 59 2c 22  63 6f 72 6e 65 72 22 0d  |,efkeY,"corner".|
00000380  01 b8 26 c8 99 26 32 45  2c 26 31 32 32 2c 65 66  |..&..&2E,&122,ef|
00000390  6b 65 59 2c 22 63 6f 72  6e 65 72 22 2c 31 34 30  |keY,"corner",140|
000003a0  2c 33 32 2c 38 0d 01 c2  1d c8 99 26 32 45 2c 26  |,32,8......&2E,&|
000003b0  31 32 31 2c 65 66 6b 65  59 2c 22 63 6f 72 6e 65  |121,efkeY,"corne|
000003c0  72 22 0d 01 cc 27 c8 99  26 32 45 2c 26 31 32 32  |r"...'..&2E,&122|
000003d0  2c 65 66 6b 65 59 2c 22  6d 69 64 64 6c 65 22 2c  |,efkeY,"middle",|
000003e0  36 30 38 2c 35 34 30 2c  38 0d 01 d6 1d c8 99 26  |608,540,8......&|
000003f0  32 45 2c 26 31 32 31 2c  65 66 6b 65 59 2c 22 6d  |2E,&121,efkeY,"m|
00000400  69 64 64 6c 65 22 0d 01  e0 26 c8 99 26 32 45 2c  |iddle"...&..&2E,|
00000410  26 31 32 32 2c 65 66 6b  65 59 2c 22 6d 69 64 64  |&122,efkeY,"midd|
00000420  6c 65 22 2c 36 30 38 2c  32 38 2c 38 0d 01 ea 1d  |le",608,28,8....|
00000430  c8 99 26 32 45 2c 26 31  32 31 2c 65 66 6b 65 59  |..&2E,&121,efkeY|
00000440  2c 22 6d 69 64 64 6c 65  22 0d 01 f4 1a e6 36 33  |,"middle".....63|
00000450  c8 9c 30 3a 86 33 36 31  2c 35 32 2c 33 36 31 2c  |..0:.361,52,361,|
00000460  35 33 36 0d 01 fe 22 ec  33 36 31 2c 32 39 32 3a  |536...".361,292:|
00000470  ec 33 36 31 2c 33 39 32  3a f0 26 41 35 2c 33 36  |.361,392:.&A5,36|
00000480  31 2c 31 30 30 0d 02 08  51 f2 47 4f 52 64 6f 6e  |1,100...Q.GORdon|
00000490  28 bd 31 38 2b bd 30 2b  22 54 48 45 20 44 45 4d  |(.18+.0+"THE DEM|
000004a0  4f 20 54 48 41 54 20 59  4f 55 20 48 41 56 45 20  |O THAT YOU HAVE |
000004b0  4a 55 53 54 20 54 52 49  45 44 20 43 4f 4e 54 41  |JUST TRIED CONTA|
000004c0  49 4e 53 20 4c 45 53 53  20 54 48 41 4e 22 2c 31  |INS LESS THAN",1|
000004d0  36 30 2c 31 30 29 0d 02  12 70 f2 47 4f 52 64 6f  |60,10)...p.GORdo|
000004e0  6e 28 bd 31 38 2b bd 30  2b 22 46 49 56 45 20 50  |n(.18+.0+"FIVE P|
000004f0  45 52 43 45 4e 54 20 4f  46 20 22 2b bd 31 38 2b  |ERCENT OF "+.18+|
00000500  bd 31 36 2b 22 53 55 50  45 52 20 50 4f 4f 4c 20  |.16+"SUPER POOL |
00000510  22 2b bd 31 38 2b bd 30  2b 22 41 4e 44 20 4e 4f  |"+.18+.0+"AND NO|
00000520  54 48 49 4e 47 20 4f 46  22 2b bd 31 38 2b bd 31  |THING OF"+.18+.1|
00000530  36 2b 22 20 42 52 45 41  4b 20 31 34 37 22 2c 31  |6+" BREAK 147",1|
00000540  36 30 2c 31 32 29 0d 02  1c 4b f2 47 4f 52 64 6f  |60,12)...K.GORdo|
00000550  6e 28 bd 31 38 2b bd 30  2b 22 41 20 43 4f 4d 50  |n(.18+.0+"A COMP|
00000560  4c 45 54 45 20 43 4f 50  59 20 43 41 4e 20 42 45  |LETE COPY CAN BE|
00000570  20 59 4f 55 52 53 20 46  4f 52 20 4f 4e 4c 59 20  | YOURS FOR ONLY |
00000580  20 20 20 32 34 2e 39 35  22 2c 31 36 30 2c 31 34  |   24.95",160,14|
00000590  29 0d 02 26 20 e6 30 3a  c8 99 26 32 45 2c 35 31  |)..& .0:..&2E,51|
000005a0  2c 31 36 33 2c 2c 39 31  36 2c 33 35 32 2c 2c 73  |,163,,916,352,,s|
000005b0  66 0d 02 30 49 f2 47 4f  52 64 6f 6e 28 22 41 4e  |f..0I.GORdon("AN|
000005c0  44 20 43 41 4e 20 42 45  20 4f 42 54 41 49 4e 45  |D CAN BE OBTAINE|
000005d0  44 20 46 52 4f 4d 20 41  4e 59 20 47 4f 4f 44 20  |D FROM ANY GOOD |
000005e0  53 4f 46 54 57 41 52 45  20 53 55 50 50 4c 49 45  |SOFTWARE SUPPLIE|
000005f0  52 22 2c 31 36 30 2c 31  36 29 0d 02 3a 26 f2 47  |R",160,16)..:&.G|
00000600  4f 52 64 6f 6e 28 22 4f  52 20 44 49 52 45 43 54  |ORdon("OR DIRECT|
00000610  20 46 52 4f 4d 20 3a 2d  22 2c 39 30 2c 31 39 29  | FROM :-",90,19)|
00000620  0d 02 44 2a f2 47 4f 52  64 6f 6e 28 22 54 48 45  |..D*.GORdon("THE|
00000630  20 46 4f 55 52 54 48 20  44 49 4d 45 4e 53 49 4f  | FOURTH DIMENSIO|
00000640  4e 22 2c 32 32 30 2c 31  39 29 0d 02 4e 20 f2 47  |N",220,19)..N .G|
00000650  4f 52 64 6f 6e 28 22 44  45 50 54 2e 20 34 34 34  |ORdon("DEPT. 444|
00000660  34 22 2c 31 39 39 2c 32  30 29 0d 02 58 24 f2 47  |4",199,20)..X$.G|
00000670  4f 52 64 6f 6e 28 22 31  20 50 45 52 43 59 20 53  |ORdon("1 PERCY S|
00000680  54 52 45 45 54 22 2c 32  30 36 2c 32 31 29 0d 02  |TREET",206,21)..|
00000690  62 1f f2 47 4f 52 64 6f  6e 28 22 53 48 45 46 46  |b..GORdon("SHEFF|
000006a0  49 45 4c 44 22 2c 31 39  36 2c 32 32 29 0d 02 6c  |IELD",196,22)..l|
000006b0  26 f2 47 4f 52 64 6f 6e  28 22 54 65 6c 20 7b 30  |&.GORdon("Tel {0|
000006c0  37 34 32 7d 20 37 30 30  36 36 31 22 2c 39 30 2c  |742} 700661",90,|
000006d0  32 32 29 0d 02 76 05 e1  0d 02 80 0c dd f2 47 4f  |22)..v........GO|
000006e0  72 44 4f 4e 0d 02 8a 0c  2a 46 58 32 32 39 2c 31  |rDON....*FX229,1|
000006f0  0d 02 94 17 c8 99 36 2c  32 35 31 2c 30 2c 32 35  |......6,251,0,25|
00000700  35 b8 54 25 2c 53 25 0d  02 9e 15 c8 99 36 2c 31  |5.T%,S%......6,1|
00000710  31 32 2c 53 25 3a d6 45  46 6b 65 79 0d 02 a8 44  |12,S%:.EFkey...D|
00000720  e3 54 25 3d 31 b8 31 30  30 30 3a 41 25 3d b3 28  |.T%=1.1000:A%=.(|
00000730  33 34 30 29 2d 31 30 3a  42 25 3d b3 28 32 37 36  |340)-10:B%=.(276|
00000740  29 2d 31 30 3a 43 25 3d  b3 28 32 37 29 2b 35 3a  |)-10:C%=.(27)+5:|
00000750  44 25 3d b3 28 38 29 3a  d6 65 66 4b 45 59 3a ed  |D%=.(8):.efKEY:.|
00000760  0d 02 b2 0d f2 67 6a 6b  65 79 74 6f 70 0d 02 bc  |.....gjkeytop...|
00000770  05 e0 0d 02 c6 15 2a 43  48 41 4e 4e 45 4c 56 4f  |......*CHANNELVO|
00000780  49 43 45 20 31 20 31 0d  02 d0 13 2a 52 4d 4b 49  |ICE 1 1....*RMKI|
00000790  4c 4c 20 63 75 73 48 49  4f 4e 0d 02 da 13 2a 52  |LL cusHION....*R|
000007a0  4d 4b 49 4c 4c 20 48 69  74 62 61 6c 6c 0d 02 e4  |MKILL Hitball...|
000007b0  12 2a 52 4d 4b 49 4c 4c  20 48 69 74 63 75 65 0d  |.*RMKILL Hitcue.|
000007c0  02 ee 16 2a 52 4d 4b 49  4c 4c 20 46 41 53 54 44  |...*RMKILL FASTD|
000007d0  52 4f 50 52 4d 0d 02 f8  16 2a 52 4d 4b 49 4c 4c  |ROPRM....*RMKILL|
000007e0  20 53 4c 4f 57 44 52 4f  50 52 4d 0d 03 02 0a 2a  | SLOWDROPRM....*|
000007f0  46 58 32 32 39 0d 03 0c  05 e0 0d 03 16 10 dd f2  |FX229...........|
00000800  47 4f 72 64 6f 6e 28 51  25 29 0d 03 20 2d 6f 51  |GOrdon(Q%).. -oQ|
00000810  25 3d 51 25 3a 6f 58 25  3d 58 25 3a 6f 59 25 3d  |%=Q%:oX%=X%:oY%=|
00000820  59 25 3a 6f 5a 25 3d 5a  25 3a 6f 52 25 3d 52 25  |Y%:oZ%=Z%:oR%=R%|
00000830  3a 6f 56 25 3d 56 25 0d  03 2a 05 e1 0d 03 34 15  |:oV%=V%..*....4.|
00000840  dd f2 47 6f 72 64 6f 6e  28 4e 6f 6d 24 2c 53 25  |..Gordon(Nom$,S%|
00000850  29 0d 03 3e 14 ea 50 25  2c 49 25 2c 78 25 2c 79  |)..>..P%,I%,x%,y|
00000860  25 2c 4f 72 25 0d 03 48  0c 4d 25 3d 67 6a 6b 45  |%,Or%..H.M%=gjkE|
00000870  59 0d 03 52 05 f5 0d 03  5c 0d e7 5a 25 3c 3e 2d  |Y..R....\..Z%<>-|
00000880  37 30 8c 0d 03 66 1c 49  25 3d 28 2d 37 30 2d 5a  |70...f.I%=(-70-Z|
00000890  25 29 84 32 2a 2d 28 5a  25 3c 3e 2d 39 32 29 0d  |%).2*-(Z%<>-92).|
000008a0  03 70 0f 5a 25 2b 3d 28  49 25 3e 3e 31 29 0d 03  |.p.Z%+=(I%>>1)..|
000008b0  7a 05 cd 0d 03 84 0f 78  25 3d 58 25 3a 79 25 3d  |z......x%=X%:y%=|
000008c0  59 25 0d 03 8e 09 c8 8e  57 25 ca 0d 03 98 32 c9  |Y%......W%....2.|
000008d0  31 3a 49 25 3d 28 35 36  30 2d 58 25 29 84 32 2a  |1:I%=(560-X%).2*|
000008e0  2d 28 58 25 3c 3e 35 36  30 29 3a 58 25 2b 3d 28  |-(X%<>560):X%+=(|
000008f0  49 25 3e 3e 31 29 3a 78  25 3d 35 36 30 0d 03 a2  |I%>>1):x%=560...|
00000900  35 c9 32 3a 49 25 3d 28  2d 32 38 30 2d 59 25 29  |5.2:I%=(-280-Y%)|
00000910  84 32 2a 2d 28 59 25 3c  3e 2d 32 38 30 29 3a 59  |.2*-(Y%<>-280):Y|
00000920  25 2b 3d 28 49 25 3e 3e  31 29 3a 79 25 3d 2d 32  |%+=(I%>>1):y%=-2|
00000930  38 30 0d 03 ac 35 c9 33  3a 49 25 3d 28 2d 35 36  |80...5.3:I%=(-56|
00000940  30 2d 58 25 29 84 32 2a  2d 28 58 25 3c 3e 2d 35  |0-X%).2*-(X%<>-5|
00000950  36 30 29 3a 58 25 2b 3d  28 49 25 3e 3e 31 29 3a  |60):X%+=(I%>>1):|
00000960  78 25 3d 2d 35 36 30 0d  03 b6 32 c9 34 3a 49 25  |x%=-560...2.4:I%|
00000970  3d 28 32 38 30 2d 59 25  29 84 32 2a 2d 28 59 25  |=(280-Y%).2*-(Y%|
00000980  3c 3e 32 38 30 29 3a 59  25 2b 3d 28 49 25 3e 3e  |<>280):Y%+=(I%>>|
00000990  31 29 3a 79 25 3d 32 38  30 0d 03 c0 05 cb 0d 03  |1):y%=280.......|
000009a0  ca 36 50 25 3d 21 47 4a  4b 65 79 3a e7 50 25 3e  |.6P%=!GJKey:.P%>|
000009b0  26 31 38 30 30 20 50 25  2b 3d 28 28 26 33 30 30  |&1800 P%+=((&300|
000009c0  30 2d 50 25 29 81 32 29  8b 3a 50 25 2d 3d 28 50  |0-P%).2).:P%-=(P|
000009d0  25 81 32 29 0d 03 d4 20  50 25 3d 50 25 83 26 33  |%.2)... P%=P%.&3|
000009e0  30 30 30 3a 21 47 4a 4b  65 79 3d 50 25 3a 55 25  |000:!GJKey=P%:U%|
000009f0  3d 32 38 30 0d 03 de 32  42 25 3d 58 25 3a 43 25  |=280...2B%=X%:C%|
00000a00  3d 59 25 3a 44 25 3d 5a  25 3a 45 25 3d 53 42 25  |=Y%:D%=Z%:E%=SB%|
00000a10  3a 48 25 3d ba 67 6a 6b  65 79 3a d6 47 4a 6b 65  |:H%=.gjkey:.GJke|
00000a20  59 2c 4e 6f 6d 24 0d 03  e8 16 4f 72 25 3d 52 25  |Y,Nom$....Or%=R%|
00000a30  3a 52 25 3d a4 47 4f 72  44 4f 6e 32 0d 03 f2 33  |:R%=.GOrDOn2...3|
00000a40  fd 5a 25 3d 2d 37 30 80  58 25 3d 78 25 80 59 25  |.Z%=-70.X%=x%.Y%|
00000a50  3d 79 25 80 28 50 25 3c  33 84 50 25 3e 26 32 46  |=y%.(P%<3.P%>&2F|
00000a60  46 44 29 80 94 28 4f 72  25 2d 52 25 29 3c 32 0d  |FD)..(Or%-R%)<2.|
00000a70  03 fc 3b 21 47 4a 4b 65  79 3d 30 3a 42 25 3d 58  |..;!GJKey=0:B%=X|
00000a80  25 3a 43 25 3d 59 25 3a  44 25 3d 5a 25 3a 45 25  |%:C%=Y%:D%=Z%:E%|
00000a90  3d 53 42 25 3a 48 25 3d  ba 67 6a 6b 65 79 3a d6  |=SB%:H%=.gjkey:.|
00000aa0  47 4a 6b 65 59 2c 4e 6f  6d 24 0d 04 06 05 e1 0d  |GJkeY,Nom$......|
00000ab0  04 10 11 dd f2 67 6f 72  64 6f 6e 28 50 72 25 29  |.....gordon(Pr%)|
00000ac0  0d 04 1a 07 ea 69 25 0d  04 24 10 69 25 3d 49 6b  |.....i%..$.i%=Ik|
00000ad0  25 3a 49 6b 25 3d 30 0d  04 2e 3f e7 69 25 3d 35  |%:Ik%=0...?.i%=5|
00000ae0  31 80 ac 44 65 25 f2 67  6f 72 64 4f 4e 28 58 25  |1..De%.gordON(X%|
00000af0  2c 59 25 2c 5a 25 2c 30  29 3a 4e 6f 6d 24 3d 22  |,Y%,Z%,0):Nom$="|
00000b00  20 22 3a 49 6b 25 3d 30  3a e1 8b e7 69 25 3d 35  | ":Ik%=0:...i%=5|
00000b10  31 69 25 3d 38 32 0d 04  38 2e e7 69 25 3d 38 32  |1i%=82..8..i%=82|
00000b20  f2 67 6f 72 64 4f 4e 28  58 25 2c 59 25 2c 5a 25  |.gordON(X%,Y%,Z%|
00000b30  2c b9 29 3a 4e 6f 6d 24  3d 22 20 22 3a 49 6b 25  |,.):Nom$=" ":Ik%|
00000b40  3d 30 3a e1 0d 04 42 46  e7 50 72 25 80 69 25 3d  |=0:...BF.Pr%.i%=|
00000b50  35 33 d6 47 6a 4b 65 59  3a 67 6a 6b 45 59 21 33  |53.GjKeY:gjkEY!3|
00000b60  36 3d 30 3a 21 47 4a 4b  45 79 3d 31 3a 4f 25 3d  |6=0:!GJKEy=1:O%=|
00000b70  31 3a f5 fd ac a6 2d 35  34 3a f2 47 6f 72 64 6f  |1:....-54:.Gordo|
00000b80  6e 28 22 20 22 2c a3 29  3a e1 0d 04 4c 1c e7 69  |n(" ",.):...L..i|
00000b90  25 3d 33 35 80 54 62 25  54 69 25 3d 31 32 3a f5  |%=35.Tb%Ti%=12:.|
00000ba0  fd ac a6 2d 33 36 0d 04  56 39 e7 69 25 3d 35 35  |...-36..V9.i%=55|
00000bb0  80 28 50 72 25 84 50 77  25 84 46 74 61 25 29 3a  |.(Pr%.Pw%.Fta%):|
00000bc0  f2 67 6f 52 44 4f 4e 3a  4d 25 21 31 32 3d 26 38  |.goRDON:M%!12=&8|
00000bd0  30 30 30 30 30 30 38 3a  49 6b 25 3d b9 3a e1 0d  |0000008:Ik%=.:..|
00000be0  04 60 05 e1 0d 04 6a 11  dd f2 67 6f 72 64 6f 4e  |.`....j...gordoN|
00000bf0  28 74 69 25 29 0d 04 74  1c ea 41 25 2c 42 25 2c  |(ti%)..t..A%,B%,|
00000c00  54 25 2c 45 25 2c 46 25  2c 47 25 2c 52 25 2c 56  |T%,E%,F%,G%,R%,V|
00000c10  25 0d 04 7e 07 d1 3d 30  0d 04 88 18 e7 74 69 25  |%..~..=0.....ti%|
00000c20  4e 6f 6d 24 3d a4 64 69  73 70 73 63 6f 72 65 73  |Nom$=.dispscores|
00000c30  0d 04 92 0e 21 65 66 6b  45 59 3d 35 36 30 0d 04  |....!efkEY=560..|
00000c40  9c 10 f5 3a c8 97 41 25  2c 42 25 2c 54 25 0d 04  |...:..A%,B%,T%..|
00000c50  a6 09 e7 74 69 25 8c 0d  04 b0 10 52 25 3d 30 3a  |...ti%.....R%=0:|
00000c60  56 25 3d 32 32 36 35 0d  04 ba 38 42 25 3d 2d 36  |V%=2265...8B%=-6|
00000c70  34 30 3a 43 25 3d 30 3a  44 25 3d 2d 31 38 38 3a  |40:C%=0:D%=-188:|
00000c80  45 25 3d 30 3a 48 25 3d  ba 67 6a 6b 65 79 3a d6  |E%=0:H%=.gjkey:.|
00000c90  47 4a 6b 65 59 2c 4e 6f  6d 24 3a 4b 25 3d 30 0d  |GJkeY,Nom$:K%=0.|
00000ca0  04 c4 05 cd 0d 04 ce 1a  fd 54 25 84 a6 28 30 29  |.........T%..(0)|
00000cb0  3e 30 84 28 74 69 25 80  91 3e 35 30 30 29 0d 04  |>0.(ti%..>500)..|
00000cc0  d8 11 21 65 66 6b 45 59  3d 21 65 46 4b 45 59 0d  |..!efkEY=!eFKEY.|
00000cd0  04 e2 05 e1 0d 04 ec 16  dd f2 47 4f 52 64 6f 6e  |..........GORdon|
00000ce0  28 41 24 2c 68 25 2c 59  25 29 0d 04 f6 10 d6 47  |(A$,h%,Y%).....G|
00000cf0  6a 4b 45 59 2c 41 24 2c  68 25 0d 05 00 15 41 24  |jKEY,A$,h%....A$|
00000d00  3d bd 33 31 2b bd 68 25  2b bd 59 25 2b 41 24 0d  |=.31+.h%+.Y%+A$.|
00000d10  05 0a 0d d6 47 4a 6b 65  59 2c 41 24 0d 05 14 05  |....GJkeY,A$....|
00000d20  e1 0d 05 1e 0c dd f2 67  6f 52 44 4f 4e 0d 05 28  |.......goRDON..(|
00000d30  0d ea 58 25 2c 59 25 2c  5a 25 0d 05 32 16 f5 3a  |..X%,Y%,Z%..2..:|
00000d40  c8 97 58 25 2c 59 25 2c  5a 25 3a fd 5a 25 3d 30  |..X%,Y%,Z%:.Z%=0|
00000d50  0d 05 3c 05 e1 0d 05 46  0c dd f2 47 4f 52 44 6f  |..<....F...GORDo|
00000d60  6e 0d 05 50 53 ea 54 25  2c 46 42 25 2c 4f 6e 25  |n..PS.T%,FB%,On%|
00000d70  2c 4f 66 25 2c 73 68 6f  74 25 2c 73 68 6f 74 73  |,Of%,shot%,shots|
00000d80  63 6f 72 65 25 2c 66 6f  75 6c 25 2c 72 65 64 63  |core%,foul%,redc|
00000d90  25 2c 73 6e 6f 25 2c 62  63 25 2c 42 6b 25 2c 41  |%,sno%,bc%,Bk%,A|
00000da0  46 42 25 2c 66 63 25 2c  62 25 28 29 3a de 62 25  |FB%,fc%,b%():.b%|
00000db0  28 32 31 29 0d 05 5a 11  ea 85 3a ee 85 ea f2 47  |(21)..Z...:....G|
00000dc0  4f 72 44 4f 4e 0d 05 64  0a 2a 46 58 32 32 39 0d  |OrDON..d.*FX229.|
00000dd0  05 6e 11 f2 67 6f 52 44  4f 4e 3a 42 6b 25 3d b9  |.n..goRDON:Bk%=.|
00000de0  0d 05 78 09 eb 31 33 3a  87 0d 05 82 16 52 65 64  |..x..13:.....Red|
00000df0  25 3d 31 35 3a 4f 25 3d  31 3a 50 77 25 3d a3 0d  |%=15:O%=1:Pw%=..|
00000e00  05 8c 18 21 47 4a 4b 45  79 3d 31 3a 4f 6e 25 3d  |...!GJKEy=1:On%=|
00000e10  31 3a 4f 66 25 3d b9 0d  05 96 0b f2 67 6f 72 44  |1:Of%=......gorD|
00000e20  4f 6e 0d 05 a0 2b d6 47  4a 6b 65 79 2c 54 69 25  |On...+.GJkey,Ti%|
00000e30  2c 49 6b 25 2c 4f 25 2c  4b 25 2c 74 6b 25 2c 52  |,Ik%,O%,K%,tk%,R|
00000e40  25 2c 56 25 2c 4d 25 2c  4a 25 2c 53 25 0d 05 aa  |%,V%,M%,J%,S%...|
00000e50  0e f2 47 6f 72 64 4f 4e  28 34 29 0d 05 b4 05 f5  |..GordON(4).....|
00000e60  0d 05 be 0c 4d 25 3d 67  6a 6b 45 59 0d 05 c8 1e  |....M%=gjkEY....|
00000e70  e7 4d 25 21 31 32 3c 30  f2 47 4f 72 64 6f 4e 28  |.M%!12<0.GOrdoN(|
00000e80  b9 2c 30 29 3a 42 6b 25  3d a3 0d 05 d2 05 f5 0d  |.,0):Bk%=.......|
00000e90  05 dc 12 f2 47 6f 72 64  6f 6e 28 22 20 22 2c a3  |....Gordon(" ",.|
00000ea0  29 0d 05 e6 0b 73 68 6f  74 25 3d 30 0d 05 f0 05  |)....shot%=0....|
00000eb0  f5 0d 05 fa 15 c8 97 45  25 2c 46 25 2c 47 25 3a  |.......E%,F%,G%:|
00000ec0  c8 97 b8 30 2c 30 0d 06  04 12 e7 4a 25 3d 30 20  |...0,0.....J%=0 |
00000ed0  4d 25 3d 67 6a 6b 45 59  0d 06 0e 0a e7 47 25 3d  |M%=gjkEY.....G%=|
00000ee0  34 8c 0d 06 18 20 4f 25  3d 4f 25 82 31 3a f2 67  |4.... O%=O%.1:.g|
00000ef0  4f 52 44 4f 4e 28 34 29  3a 21 47 4a 4b 45 79 3d  |ORDON(4):!GJKEy=|
00000f00  4f 25 0d 06 22 2d e7 4f  25 3d 30 80 4d 68 25 3d  |O%.."-.O%=0.Mh%=|
00000f10  30 f2 67 4f 52 44 4f 6e  8b 4f 25 3d 31 3a 21 47  |0.gORDOn.O%=1:!G|
00000f20  4a 4b 45 79 3d 31 3a 21  47 4a 4b 65 79 3d 30 0d  |JKEy=1:!GJKey=0.|
00000f30  06 2c 05 cd 0d 06 36 19  e7 4f 25 f2 67 4f 52 44  |.,....6..O%.gORD|
00000f40  6f 6e 8b f2 67 4f 52 64  6f 6e 28 a3 29 0d 06 40  |on..gORdon(.)..@|
00000f50  2b 41 25 3d 31 3a 42 25  3d 58 25 3a 43 25 3d 59  |+A%=1:B%=X%:C%=Y|
00000f60  25 3a 44 25 3d 5a 25 3a  45 25 3d 53 42 25 3a 48  |%:D%=Z%:E%=SB%:H|
00000f70  25 3d ba 67 6a 6b 65 79  0d 06 4a 25 e7 49 6b 25  |%=.gjkey..J%.Ik%|
00000f80  50 77 25 3d b9 3a f2 67  6f 72 64 6f 6e 28 b9 29  |Pw%=.:.gordon(.)|
00000f90  3a e7 49 6b 25 fd b9 3a  fd b9 3a fd a3 0d 06 54  |:.Ik%..:..:....T|
00000fa0  13 fd 73 68 6f 74 25 80  4d 25 21 33 36 3c 3d 30  |..shot%.M%!36<=0|
00000fb0  0d 06 5e 27 4f 6e 25 3d  21 45 46 4b 65 79 3a e7  |..^'On%=!EFKey:.|
00000fc0  52 65 64 25 3e 30 80 4f  6e 25 3e 31 4f 66 25 3d  |Red%>0.On%>1Of%=|
00000fd0  b9 8b 4f 66 25 3d 30 0d  06 68 14 fd 67 6a 6b 45  |..Of%=0..h..gjkE|
00000fe0  59 21 31 32 3c 30 84 4b  25 3c 39 0d 06 72 09 fd  |Y!12<0.K%<9..r..|
00000ff0  4b 25 3c 39 0d 06 7c 0b  f2 47 4f 72 44 4f 4e 0d  |K%<9..|..GOrDON.|
00001000  06 86 05 e1 0d 06 90 1a  dd f2 67 6f 72 64 4f 4e  |..........gordON|
00001010  28 58 25 2c 59 25 2c 5a  25 2c 54 56 25 29 0d 06  |(X%,Y%,Z%,TV%)..|
00001020  9a 0c 2a 46 58 32 32 39  2c 31 0d 06 a4 11 21 47  |..*FX229,1....!G|
00001030  4a 4b 45 79 3d 31 3a 4f  25 3d 31 0d 06 ae 11 d6  |JKEy=1:O%=1.....|
00001040  65 66 6b 65 79 3a d6 47  6a 4b 65 59 0d 06 b8 21  |efkey:.GjKeY...!|
00001050  ea 75 64 25 2c 63 6f 25  2c 41 24 2c 42 24 2c 68  |.ud%,co%,A$,B$,h|
00001060  25 2c 53 6b 25 2c 54 6b  25 2c 46 6c 25 0d 06 c2  |%,Sk%,Tk%,Fl%...|
00001070  0e e7 6f 51 25 80 ac 54  56 25 8c 0d 06 cc 0e ea  |..oQ%..TV%......|
00001080  52 25 2c 56 25 2c 53 42  25 0d 06 d6 45 58 25 3d  |R%,V%,SB%...EX%=|
00001090  6f 58 25 3a 59 25 3d 6f  59 25 3a 5a 25 3d 6f 5a  |oX%:Y%=oY%:Z%=oZ|
000010a0  25 3a 52 25 3d 6f 52 25  3a 56 25 3d 6f 56 25 3a  |%:R%=oR%:V%=oV%:|
000010b0  54 56 25 3d 30 3a 21 65  66 6b 45 59 3d 53 63 25  |TV%=0:!efkEY=Sc%|
000010c0  3a 53 42 25 3d 30 3a 53  6b 25 3d 35 36 30 0d 06  |:SB%=0:Sk%=560..|
000010d0  e0 13 4d 25 3d 67 6a 6b  45 59 3a c8 97 b8 30 2c  |..M%=gjkEY:...0,|
000010e0  30 0d 06 ea 05 cc 0d 06  f4 0e 53 6b 25 3d 21 65  |0.........Sk%=!e|
000010f0  66 6b 45 59 0d 06 fe 05  cd 0d 07 08 0b 54 6b 25  |fkEY.........Tk%|
00001100  3d 74 6b 25 0d 07 12 1a  76 78 25 3d 21 67 6a 6b  |=tk%....vx%=!gjk|
00001110  45 59 3a 76 79 25 3d 67  6a 6b 45 59 21 34 0d 07  |EY:vy%=gjkEY!4..|
00001120  1c 1b 75 64 25 3d 67 6a  6b 45 59 21 33 36 3a 67  |..ud%=gjkEY!36:g|
00001130  6a 6b 45 59 21 33 36 3d  30 0d 07 26 0b f2 67 6f  |jkEY!36=0..&..go|
00001140  52 44 4f 4e 0d 07 30 09  e7 54 56 25 8c 0d 07 3a  |RDON..0..TV%...:|
00001150  17 ea 58 25 2c 59 25 2c  5a 25 2c 52 25 2c 56 25  |..X%,Y%,Z%,R%,V%|
00001160  2c 53 42 25 0d 07 44 31  58 25 3d 2d 36 34 30 3a  |,SB%..D1X%=-640:|
00001170  59 25 3d 30 3a 5a 25 3d  2d 31 38 38 3a 52 25 3d  |Y%=0:Z%=-188:R%=|
00001180  30 3a 56 25 3d 32 32 36  35 3a 53 42 25 3d 30 3a  |0:V%=2265:SB%=0:|
00001190  54 6b 25 3d 30 0d 07 4e  1e 4d 25 3d 67 6a 6b 45  |Tk%=0..N.M%=gjkE|
000011a0  59 3a 21 65 66 6b 45 59  3d 35 36 30 3a c8 97 b8  |Y:!efkEY=560:...|
000011b0  30 2c 30 0d 07 58 05 cc  0d 07 62 12 f2 47 6f 72  |0,0..X....b..Gor|
000011c0  64 6f 6e 28 22 20 22 2c  a3 29 0d 07 6c 45 68 25  |don(" ",.)..lEh%|
000011d0  3d 31 36 30 3a 41 24 3d  bd 31 38 2b bd 31 32 37  |=160:A$=.18+.127|
000011e0  2b 22 41 44 4a 55 53 54  20 56 49 45 57 20 54 48  |+"ADJUST VIEW TH|
000011f0  45 4e 20 43 4c 49 43 4b  20 27 53 45 4c 45 43 54  |EN CLICK 'SELECT|
00001200  27 22 3a d6 47 6a 4b 45  59 2c 41 24 2c 68 25 0d  |'":.GjKEY,A$,h%.|
00001210  07 76 14 41 24 3d bd 33  31 2b bd 68 25 2b bd 31  |.v.A$=.31+.h%+.1|
00001220  2b 41 24 0d 07 80 05 f5  0d 07 8a 15 c8 97 45 25  |+A$...........E%|
00001230  2c 46 25 2c 47 25 3a c8  97 b8 30 2c 30 0d 07 94  |,F%,G%:...0,0...|
00001240  0c f2 67 4f 52 44 6f 6e  32 0d 07 9e 26 42 25 3d  |..gORDon2...&B%=|
00001250  58 25 3a 43 25 3d 59 25  3a 44 25 3d 5a 25 3a 45  |X%:C%=Y%:D%=Z%:E|
00001260  25 3d 53 42 25 3a 48 25  3d ba 67 6a 6b 65 79 0d  |%=SB%:H%=.gjkey.|
00001270  07 a8 0d d6 47 4a 6b 65  59 2c 41 24 0d 07 b2 0b  |....GJkeY,A$....|
00001280  fd 28 47 25 80 34 29 0d  07 bc 05 cd 0d 07 c6 0a  |.(G%.4).........|
00001290  2a 46 58 32 32 39 0d 07  d0 2f ea 85 3a ee 85 ea  |*FX229.../..:...|
000012a0  21 65 66 6b 45 59 3d 53  6b 25 3a d6 45 66 6b 65  |!efkEY=Sk%:.Efke|
000012b0  79 3a 4d 25 3d 67 6a 6b  45 59 3a ff 22 46 58 32  |y:M%=gjkEY:."FX2|
000012c0  32 39 22 3a e1 0d 07 da  33 68 25 3d 31 36 30 3a  |29":....3h%=160:|
000012d0  42 24 3d bd 31 38 2b bd  32 35 31 2b 22 41 43 54  |B$=.18+.251+"ACT|
000012e0  49 4f 4e 20 52 45 50 4c  41 59 22 3a d6 47 6a 4b  |ION REPLAY":.GjK|
000012f0  45 59 2c 42 24 2c 68 25  0d 07 e4 14 42 24 3d bd  |EY,B$,h%....B$=.|
00001300  33 31 2b bd 68 25 2b bd  31 2b 42 24 0d 07 ee 3f  |31+.h%+.1+B$...?|
00001310  e7 54 56 25 e3 54 25 3d  31 b8 32 30 3a 42 25 3d  |.TV%.T%=1.20:B%=|
00001320  58 25 3a 43 25 3d 59 25  3a 44 25 3d 5a 25 3a 45  |X%:C%=Y%:D%=Z%:E|
00001330  25 3d 53 42 25 3a 48 25  3d ba 67 6a 6b 65 79 3a  |%=SB%:H%=.gjkey:|
00001340  d6 47 4a 6b 65 59 2c 42  24 3a ed 0d 07 f8 10 67  |.GJkeY,B$:.....g|
00001350  6a 6b 45 59 21 33 36 3d  75 64 25 0d 08 02 05 f5  |jkEY!36=ud%.....|
00001360  0d 08 0c 15 c8 97 45 25  2c 46 25 2c 47 25 3a c8  |......E%,F%,G%:.|
00001370  97 b8 30 2c 30 0d 08 16  32 e7 ac 54 56 25 3a f2  |..0,0...2..TV%:.|
00001380  67 4f 72 64 6f 6e 8b e7  a6 2d 36 38 3a 58 25 3d  |gOrdon...-68:X%=|
00001390  2d 58 25 3a 52 25 3d 52  25 82 26 31 38 30 30 3a  |-X%:R%=R%.&1800:|
000013a0  f5 fd ac a6 2d 36 38 0d  08 20 30 42 25 3d 58 25  |....-68.. 0B%=X%|
000013b0  3a 43 25 3d 59 25 3a 44  25 3d 5a 25 3a 45 25 3d  |:C%=Y%:D%=Z%:E%=|
000013c0  53 42 25 3a 48 25 3d ba  67 6a 6b 65 79 3a d6 47  |SB%:H%=.gjkey:.G|
000013d0  4a 6b 65 59 2c 42 24 0d  08 2a 13 e7 54 6b 25 52  |JkeY,B$..*..Tk%R|
000013e0  25 3d a4 47 4f 72 44 4f  6e 32 0d 08 34 09 fd 4a  |%=.GOrDOn2..4..J|
000013f0  25 3d 30 0d 08 3e 0a d6  45 66 6b 65 79 0d 08 48  |%=0..>..Efkey..H|
00001400  17 4d 25 3d 67 6a 6b 45  59 3a 21 65 66 6b 45 59  |.M%=gjkEY:!efkEY|
00001410  3d 53 6b 25 0d 08 52 0a  2a 46 58 32 32 39 0d 08  |=Sk%..R.*FX229..|
00001420  5c 05 e1 0d 08 66 0c dd  f2 67 6f 52 44 4f 6e 0d  |\....f...goRDOn.|
00001430  08 70 0c 2a 66 78 32 32  39 2c 31 0d 08 7a 0a d6  |.p.*fx229,1..z..|
00001440  67 4a 6b 45 79 0d 08 84  17 ea 50 25 2c 74 25 2c  |gJkEy.....P%,t%,|
00001450  45 25 2c 46 25 2c 47 25  2c 54 6b 25 0d 08 8e 17  |E%,F%,G%,Tk%....|
00001460  50 25 3d 67 6a 6b 45 59  2b 33 36 3a 54 6b 25 3d  |P%=gjkEY+36:Tk%=|
00001470  74 6b 25 0d 08 98 08 4a  25 3d 30 0d 08 a2 0c e3  |tk%....J%=0.....|
00001480  74 25 3d 31 b8 31 30 0d  08 ac 1f 42 25 3d 58 25  |t%=1.10....B%=X%|
00001490  3a 43 25 3d 59 25 3a 44  25 3d 5a 25 3a 48 25 3d  |:C%=Y%:D%=Z%:H%=|
000014a0  ba 67 6a 6b 65 79 0d 08  b6 13 e7 54 6b 25 52 25  |.gjkey.....Tk%R%|
000014b0  3d a4 47 4f 72 44 4f 6e  32 0d 08 c0 12 e7 48 25  |=.GOrDOn2.....H%|
000014c0  84 4a 25 3d 30 20 74 25  3d 31 30 0d 08 ca 05 ed  |.J%=0 t%=10.....|
000014d0  0d 08 d4 15 e7 48 25 f2  67 6f 52 44 6f 6e 32 3a  |.....H%.goRDon2:|
000014e0  54 6b 25 3d 30 0d 08 de  0a c8 97 b8 30 2c 30 0d  |Tk%=0.......0,0.|
000014f0  08 e8 05 f5 0d 08 f2 05  f5 0d 08 fc 15 c8 97 45  |...............E|
00001500  25 2c 46 25 2c 47 25 3a  c8 97 b8 30 2c 30 0d 09  |%,F%,G%:...0,0..|
00001510  06 1f 42 25 3d 58 25 3a  43 25 3d 59 25 3a 44 25  |..B%=X%:C%=Y%:D%|
00001520  3d 5a 25 3a 48 25 3d ba  67 6a 6b 65 79 0d 09 10  |=Z%:H%=.gjkey...|
00001530  21 e7 54 6b 25 80 47 25  3c 3e 32 52 25 3d a4 47  |!.Tk%.G%<>2R%=.G|
00001540  4f 72 44 4f 6e 32 8b f2  67 4f 72 64 6f 6e 0d 09  |OrDOn2..gOrdon..|
00001550  1a 46 e7 49 6b 25 3d 35  33 d6 47 6a 4b 65 59 3a  |.F.Ik%=53.GjKeY:|
00001560  67 6a 6b 45 59 21 33 36  3d 30 3a ff 22 46 58 32  |gjkEY!36=0:."FX2|
00001570  32 39 22 3a 43 46 25 3d  a3 3a 21 47 6a 6b 65 59  |29":CF%=.:!GjkeY|
00001580  3d 39 38 3a 21 67 4a 4b  65 79 3d 30 3a fd b9 3a  |=98:!gJKey=0:..:|
00001590  fd b9 3a e1 0d 09 24 0c  fd 48 25 84 4a 25 3d 30  |..:...$..H%.J%=0|
000015a0  0d 09 2e 15 e7 48 25 f2  67 6f 52 44 6f 6e 32 3a  |.....H%.goRDon2:|
000015b0  54 6b 25 3d 30 0d 09 38  09 fd 4a 25 3d 30 0d 09  |Tk%=0..8..J%=0..|
000015c0  42 1f 42 25 3d 58 25 3a  43 25 3d 59 25 3a 44 25  |B.B%=X%:C%=Y%:D%|
000015d0  3d 5a 25 3a 48 25 3d ba  67 6a 6b 65 79 0d 09 4c  |=Z%:H%=.gjkey..L|
000015e0  10 e7 48 25 3d 38 8c 3a  21 50 25 3d 30 0d 09 56  |..H%=8.:!P%=0..V|
000015f0  09 43 46 25 3d a3 0d 09  60 0d 21 47 6a 6b 65 59  |.CF%=...`.!GjkeY|
00001600  3d 39 38 0d 09 6a 0a 2a  66 78 32 32 39 0d 09 74  |=98..j.*fx229..t|
00001610  0c 21 47 4a 4b 65 79 3d  30 0d 09 7e 0c 21 67 4a  |.!GJKey=0..~.!gJ|
00001620  4b 65 79 3d 30 0d 09 88  05 e1 0d 09 92 0e dd f2  |Key=0...........|
00001630  6c 69 76 65 62 61 6c 6c  0d 09 9c 0d ea 54 25 2c  |liveball.....T%,|
00001640  62 25 2c 63 25 0d 09 a6  0e 62 61 6c 6c 66 25 28  |b%,c%....ballf%(|
00001650  29 3d 30 0d 09 b0 0f 62  25 3d 67 6a 6b 45 59 2b  |)=0....b%=gjkEY+|
00001660  31 32 0d 09 ba 15 e7 21  62 25 3c 30 62 61 6c 6c  |12.....!b%<0ball|
00001670  66 25 28 34 29 3d 31 0d  09 c4 0f 62 25 2b 3d 34  |f%(4)=1....b%+=4|
00001680  30 3a 63 25 3d 31 0d 09  ce 0b e3 54 25 3d 31 b8  |0:c%=1.....T%=1.|
00001690  37 0d 09 d8 16 e7 21 62  25 3c 30 62 61 6c 6c 66  |7.....!b%<0ballf|
000016a0  25 28 31 29 2b 3d 31 0d  09 e2 0a 62 25 2b 3d 34  |%(1)+=1....b%+=4|
000016b0  30 0d 09 ec 05 ed 0d 09  f6 0c e3 54 25 3d 38 b8  |0..........T%=8.|
000016c0  31 34 0d 0a 00 16 e7 21  62 25 3c 30 62 61 6c 6c  |14.....!b%<0ball|
000016d0  66 25 28 32 29 2b 3d 31  0d 0a 0a 0a 62 25 2b 3d  |f%(2)+=1....b%+=|
000016e0  34 30 0d 0a 14 05 ed 0d  0a 1e 15 e7 21 62 25 3c  |40..........!b%<|
000016f0  30 62 61 6c 6c 66 25 28  33 29 3d 31 0d 0a 28 05  |0ballf%(3)=1..(.|
00001700  e1 0d 0a 32 0c dd f2 47  4f 52 44 4f 4e 0d 0a 3c  |...2...GORDON..<|
00001710  09 f2 63 6f 64 65 0d 0a  46 0e 74 64 3d 39 31 30  |..code..F.td=910|
00001720  2f 39 36 33 0d 0a 50 0d  de 62 6c 6f 63 6b 20 31  |/963..P..block 1|
00001730  36 0d 0a 5a 15 de 64 25  28 31 34 29 2c 43 6f 75  |6..Z..d%(14),Cou|
00001740  6e 74 25 28 32 29 0d 0a  64 1f 64 70 25 3d 31 34  |nt%(2)..d.dp%=14|
00001750  3a e3 54 25 3d 31 b8 31  34 3a 64 25 28 54 25 29  |:.T%=1.14:d%(T%)|
00001760  3d 54 25 3a ed 0d 0a 6e  1c 21 65 66 6b 65 59 3d  |=T%:...n.!efkeY=|
00001770  26 31 30 30 30 30 3a 65  66 6b 65 59 21 38 3d 31  |&10000:efkeY!8=1|
00001780  36 0d 0a 78 2a c8 99 26  32 45 2c 26 31 30 41 2c  |6..x*..&2E,&10A,|
00001790  65 66 6b 65 59 2c 22 3c  4f 62 65 79 24 44 69 72  |efkeY,"<Obey$Dir|
000017a0  3e 2e 6d 61 63 68 69 6e  65 33 22 0d 0a 82 07 f7  |>.machine3".....|
000017b0  2b 31 0d 0a 8c 19 de 62  61 6c 6c 63 6f 6c 73 25  |+1.....ballcols%|
000017c0  39 2c 62 61 6c 6c 66 25  28 34 29 0d 0a 96 1b e3  |9,ballf%(4).....|
000017d0  54 25 3d 31 b8 34 3a f3  62 61 6c 6c 63 6f 6c 73  |T%=1.4:.ballcols|
000017e0  25 3f 54 25 3a ed 0d 0a  a0 0f dc 33 2c 33 31 2c  |%?T%:......3,31,|
000017f0  32 31 2c 36 33 0d 0a aa  26 62 61 6c 6c 66 25 28  |21,63...&ballf%(|
00001800  29 3d 31 3a 62 61 6c 6c  66 25 28 31 29 3d 37 3a  |)=1:ballf%(1)=7:|
00001810  62 61 6c 6c 66 25 28 32  29 3d 37 0d 0a b4 86 49  |ballf%(2)=7....I|
00001820  6b 25 3d 30 3a 54 62 25  3d 30 3a 54 69 25 3d 30  |k%=0:Tb%=0:Ti%=0|
00001830  3a 73 6e 6f 25 3d 30 3a  54 62 61 25 3d 30 3a 70  |:sno%=0:Tba%=0:p|
00001840  6c 61 79 25 3d 31 3a 74  6b 25 3d a3 3a 50 61 67  |lay%=1:tk%=.:Pag|
00001850  25 3d 30 3a 73 63 6f 72  65 25 3d 30 3a 56 6f 6c  |%=0:score%=0:Vol|
00001860  25 3d 31 32 37 3a 54 6f  75 72 25 3d 30 3a 51 75  |%=127:Tour%=0:Qu|
00001870  69 74 25 3d 30 3a 54 76  25 3d b9 3a 73 69 64 65  |it%=0:Tv%=.:side|
00001880  25 3d 30 3a 74 6f 70 25  3d 30 3a 4d 68 25 3d 30  |%=0:top%=0:Mh%=0|
00001890  3a 44 65 25 3d 30 3a f2  47 4f 72 64 6f 6e 28 30  |:De%=0:.GOrdon(0|
000018a0  29 0d 0a be 05 e1 0d 0a  c8 0c dd f2 67 6f 52 64  |)...........goRd|
000018b0  6f 6e 0d 0a d2 0e 62 61  6c 6c 66 25 28 29 3d 31  |on....ballf%()=1|
000018c0  0d 0a dc 10 62 61 6c 6c  66 25 28 31 29 3d 31 35  |....ballf%(1)=15|
000018d0  0d 0a e6 1c e3 54 25 3d  31 b8 34 3a f2 67 6f 72  |.....T%=1.4:.gor|
000018e0  44 6f 6e 28 54 25 2c 32  37 29 3a ed 0d 0a f0 05  |Don(T%,27):.....|
000018f0  e1 0d 0a fa 0c dd f2 67  6f 72 44 4f 6e 0d 0b 04  |.......gorDOn...|
00001900  0c 4d 25 3d 67 6a 6b 45  59 0d 0b 0e 09 43 46 25  |.M%=gjkEY....CF%|
00001910  3d 30 0d 0b 18 09 53 42  25 3d 30 0d 0b 22 0a 58  |=0....SB%=0..".X|
00001920  25 3d 35 36 30 0d 0b 2c  08 59 25 3d 30 0d 0b 36  |%=560..,.Y%=0..6|
00001930  0b 5a 25 3d 2d 31 36 30  0d 0b 40 08 52 25 3d 30  |.Z%=-160..@.R%=0|
00001940  0d 0b 4a 0b 56 25 3d 32  34 36 38 0d 0b 54 10 72  |..J.V%=2468..T.r|
00001950  3d 31 39 35 35 2e 36 39  35 39 34 0d 0b 5e 09 70  |=1955.69594..^.p|
00001960  3d 32 2a af 0d 0b 68 0f  6e 74 25 3d 28 af 2f 32  |=2*...h.nt%=(./2|
00001970  29 2a 72 0d 0b 72 0a 55  25 3d 32 38 30 0d 0b 7c  |)*r..r.U%=280..||
00001980  08 57 25 3d 31 0d 0b 86  0f 49 52 25 3d 30 3a 41  |.W%=1....IR%=0:A|
00001990  52 25 3d 30 0d 0b 90 09  44 49 25 3d 31 0d 0b 9a  |R%=0....DI%=1...|
000019a0  08 4f 25 3d 31 0d 0b a4  09 53 41 25 3d 30 0d 0b  |.O%=1....SA%=0..|
000019b0  ae 0d c8 91 36 34 30 2c  35 31 32 0d 0b b8 1c 78  |....640,512....x|
000019c0  25 3d 30 3a 53 79 25 3d  30 3a 61 3d 30 3a 64 25  |%=0:Sy%=0:a=0:d%|
000019d0  3d 30 3a 66 25 3d 30 0d  0b c2 0f 6f 78 25 3d 30  |=0:f%=0....ox%=0|
000019e0  3a 6f 79 25 3d 30 0d 0b  cc 05 e1 0d 0b d6 0c dd  |:oy%=0..........|
000019f0  f2 47 6f 72 64 6f 4e 0d  0b e0 0a ea 41 25 2c 42  |.GordoN.....A%,B|
00001a00  25 0d 0b ea 0a d6 67 6a  4b 45 59 0d 0b f4 07 c8  |%.....gjKEY.....|
00001a10  a0 34 0d 0b fe 1b 2a 43  48 41 4e 4e 45 4c 56 4f  |.4....*CHANNELVO|
00001a20  49 43 45 20 34 20 48 69  74 62 61 6c 6c 0d 0c 08  |ICE 4 Hitball...|
00001a30  1b 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 33  |.*CHANNELVOICE 3|
00001a40  20 48 69 74 62 61 6c 6c  0d 0c 12 1b 2a 43 48 41  | Hitball....*CHA|
00001a50  4e 4e 45 4c 56 4f 49 43  45 20 32 20 63 75 73 48  |NNELVOICE 2 cusH|
00001a60  49 4f 4e 0d 0c 1c 07 eb  31 33 0d 0c 26 0b f2 67  |ION.....13..&..g|
00001a70  6f 72 44 4f 6e 0d 0c 30  05 87 0d 0c 3a 2b d6 47  |orDOn..0....:+.G|
00001a80  4a 6b 65 79 2c 54 69 25  2c 49 6b 25 2c 4f 25 2c  |Jkey,Ti%,Ik%,O%,|
00001a90  4b 25 2c 74 6b 25 2c 52  25 2c 56 25 2c 4d 25 2c  |K%,tk%,R%,V%,M%,|
00001aa0  4a 25 2c 53 25 0d 0c 44  0a d6 47 6a 6b 65 79 0d  |J%,S%..D..Gjkey.|
00001ab0  0c 4e 05 e1 0d 0c 58 0c  dd f2 67 6f 52 44 6f 6e  |.N....X...goRDon|
00001ac0  0d 0c 62 0a e7 48 25 3d  38 e1 0d 0c 6c 0c 21 67  |..b..H%=8...l.!g|
00001ad0  4a 4b 45 59 3d 30 0d 0c  76 0a e7 48 25 3d 31 8c  |JKEY=0..v..H%=1.|
00001ae0  0d 0c 80 0b 52 65 64 25  2d 3d 31 0d 0c 8a 05 cc  |....Red%-=1.....|
00001af0  0d 0c 94 1a e7 52 65 64  25 62 63 25 2b 3d 31 3a  |.....Red%bc%+=1:|
00001b00  62 25 28 62 63 25 29 3d  48 25 0d 0c 9e 05 cd 0d  |b%(bc%)=H%......|
00001b10  0c a8 05 e1 0d 0c b2 0d  dd f2 67 6f 52 44 6f 6e  |..........goRDon|
00001b20  32 0d 0c bc 15 e7 48 25  3d 38 8c 3a 67 6a 6b 45  |2.....H%=8.:gjkE|
00001b30  59 21 33 36 3d 30 0d 0c  c6 15 62 63 25 2b 3d 31  |Y!36=0....bc%+=1|
00001b40  3a 62 25 28 62 63 25 29  3d 48 25 0d 0c d0 0c 21  |:b%(bc%)=H%....!|
00001b50  67 4a 4b 45 59 3d 30 0d  0c da 05 e1 0d 0c e4 10  |gJKEY=0.........|
00001b60  dd f2 47 6f 72 64 4f 4e  28 41 25 29 0d 0c ee 0c  |..GordON(A%)....|
00001b70  3f 62 6c 6f 63 6b 3d 32  0d 0c f8 0e 62 6c 6f 63  |?block=2....bloc|
00001b80  6b 3f 31 3d 41 25 0d 0d  02 0e 62 6c 6f 63 6b 3f  |k?1=A%....block?|
00001b90  32 3d 41 25 0d 0d 0c 18  c8 99 22 4f 53 5f 57 6f  |2=A%......"OS_Wo|
00001ba0  72 64 22 2c 32 31 2c 62  6c 6f 63 6b 0d 0d 16 05  |rd",21,block....|
00001bb0  e1 0d 0d 20 15 dd f2 47  4f 72 64 6f 4e 28 50 25  |... ...GOrdoN(P%|
00001bc0  2c 73 73 74 25 29 0d 0d  2a 0c 2a 46 58 32 32 39  |,sst%)..*.*FX229|
00001bd0  2c 31 0d 0d 34 15 2a 43  48 41 4e 4e 45 4c 56 4f  |,1..4.*CHANNELVO|
00001be0  49 43 45 20 34 20 31 0d  0d 3e 16 f2 67 6f 52 44  |ICE 4 1..>..goRD|
00001bf0  4f 4e 3a f2 47 6f 72 64  4f 4e 28 31 29 0d 0d 48  |ON:.GordON(1)..H|
00001c00  15 e7 ac 73 73 74 25 d4  34 2c 2d 31 35 2c 36 30  |...sst%.4,-15,60|
00001c10  2c 33 0d 0d 52 2c ea 41  25 2c 42 25 2c 43 25 2c  |,3..R,.A%,B%,C%,|
00001c20  45 2c 46 2c 6b 25 2c 42  2c 63 2c 73 2c 66 6c 61  |E,F,k%,B,c,s,fla|
00001c30  67 2c 78 2c 79 2c 41 24  2c 68 25 2c 54 25 0d 0d  |g,x,y,A$,h%,T%..|
00001c40  5c 6e 41 24 3d bd 31 38  2b bd 31 32 37 2b 22 50  |\nA$=.18+.127+"P|
00001c50  4f 53 49 54 49 4f 4e 20  42 41 4c 4c 20 54 48 45  |OSITION BALL THE|
00001c60  4e 20 43 4c 49 43 4b 20  27 53 45 4c 45 43 54 27  |N CLICK 'SELECT'|
00001c70  20 54 4f 20 50 4c 41 43  45 2c 20 20 48 4f 4c 44  | TO PLACE,  HOLD|
00001c80  20 27 41 44 4a 55 53 54  27 20 54 4f 20 41 4c 54  | 'ADJUST' TO ALT|
00001c90  45 52 20 56 49 45 57 22  3a 68 25 3d 31 36 30 3a  |ER VIEW":h%=160:|
00001ca0  d6 47 6a 4b 45 59 2c 41  24 2c 68 25 0d 0d 66 14  |.GjKEY,A$,h%..f.|
00001cb0  41 24 3d bd 33 31 2b bd  68 25 2b bd 31 2b 41 24  |A$=.31+.h%+.1+A$|
00001cc0  0d 0d 70 37 e7 73 73 74  25 52 25 3d 36 31 33 39  |..p7.sst%R%=6139|
00001cd0  3a 56 25 3d 32 35 38 35  3a 58 25 3d 35 36 30 3a  |:V%=2585:X%=560:|
00001ce0  59 25 3d 30 3a 5a 25 3d  2d 37 30 3a 57 25 3d 31  |Y%=0:Z%=-70:W%=1|
00001cf0  3a 55 25 3d 32 38 30 0d  0d 7a 28 e7 ac 50 77 25  |:U%=280..z(..Pw%|
00001d00  f2 47 4f 72 64 4f 4e 28  78 2c 79 29 8b 78 3d 21  |.GOrdON(x,y).x=!|
00001d10  67 6a 6b 45 59 3a 79 3d  67 6a 6b 45 59 21 34 0d  |gjkEY:y=gjkEY!4.|
00001d20  0d 84 0e 67 6a 6b 45 59  21 31 32 3d 38 0d 0d 8e  |...gjkEY!12=8...|
00001d30  11 f2 47 6f 72 64 6f 6e  28 41 24 2c a3 29 0d 0d  |..Gordon(A$,.)..|
00001d40  98 27 50 77 25 3d b9 3a  41 3d 32 2a af 2d 52 25  |.'Pw%=.:A=2*.-R%|
00001d50  2f 72 3a 63 3d 2d 9b 41  3a 73 3d 2d b5 41 3a c8  |/r:c=-.A:s=-.A:.|
00001d60  97 b8 30 2c 30 0d 0d a2  05 f5 0d 0d ac 13 c8 97  |..0,0...........|
00001d70  45 2c 46 2c 6b 25 3a c8  97 b8 30 2c 30 0d 0d b6  |E,F,k%:...0,0...|
00001d80  5d e7 6b 25 3d 32 3a 52  25 3d 36 31 33 39 3a 56  |].k%=2:R%=6139:V|
00001d90  25 3d 32 35 38 35 3a 58  25 3d 35 36 30 3a 59 25  |%=2585:X%=560:Y%|
00001da0  3d 30 3a 5a 25 3d 2d 37  30 3a 57 25 3d 31 3a 55  |=0:Z%=-70:W%=1:U|
00001db0  25 3d 32 38 30 3a 41 3d  32 2a af 2d 52 25 2f 72  |%=280:A=2*.-R%/r|
00001dc0  3a 63 3d 2d 9b 41 3a 73  3d 2d b5 41 3a f2 47 6f  |:c=-.A:s=-.A:.Go|
00001dd0  72 64 6f 6e 28 41 24 2c  a3 29 0d 0d c0 0a e7 6b  |rdon(A$,.).....k|
00001de0  25 3d 31 8c 0d 0d ca 12  45 25 3d 45 3a 46 25 3d  |%=1.....E%=E:F%=|
00001df0  46 3a 47 25 3d 30 0d 0d  d4 0e f2 47 6f 72 64 4f  |F:G%=0.....GordO|
00001e00  4e 28 34 29 0d 0d de 0b  f2 67 4f 52 44 6f 6e 0d  |N(4).....gORDon.|
00001e10  0d e8 0e f2 47 6f 72 64  4f 4e 28 31 29 0d 0d f2  |....GordON(1)...|
00001e20  1a 41 3d 32 2a af 2d 52  25 2f 72 3a 63 3d 2d 9b  |.A=2*.-R%/r:c=-.|
00001e30  41 3a 73 3d 2d b5 41 0d  0d fc 05 cc 0d 0e 06 18  |A:s=-.A.........|
00001e40  42 3d 45 2a 63 2b 46 2a  73 3a 46 3d 45 2a 2d 73  |B=E*c+F*s:F=E*-s|
00001e50  2b 46 2a 63 0d 0e 10 16  41 25 3d 30 3a 42 25 3d  |+F*c....A%=0:B%=|
00001e60  78 2b 46 3a 43 25 3d 79  2d 42 0d 0e 1a 2d e7 50  |x+F:C%=y-B...-.P|
00001e70  25 66 6c 61 67 3d a4 67  4a 4b 45 79 41 28 42 25  |%flag=.gJKEyA(B%|
00001e80  2c 43 25 29 8b 66 6c 61  67 3d a4 67 4a 4b 45 79  |,C%).flag=.gJKEy|
00001e90  28 42 25 2c 43 25 29 0d  0e 24 4a e7 66 6c 61 67  |(B%,C%)..$J.flag|
00001ea0  20 78 3d 78 2b 46 3a 79  3d 79 2d 42 3a 21 67 6a  | x=x+F:y=y-B:!gj|
00001eb0  6b 45 59 3d 42 25 3a 67  6a 6b 45 59 21 34 3d 43  |kEY=B%:gjkEY!4=C|
00001ec0  25 3a 67 6a 6b 45 59 21  31 36 3d 42 25 3c 3c 31  |%:gjkEY!16=B%<<1|
00001ed0  36 3a 67 6a 6b 45 59 21  32 30 3d 43 25 3c 3c 31  |6:gjkEY!20=C%<<1|
00001ee0  36 0d 0e 2e 05 cd 0d 0e  38 21 41 25 3d 31 3a 42  |6.......8!A%=1:B|
00001ef0  25 3d 58 25 3a 43 25 3d  59 25 3a 44 25 3d 5a 25  |%=X%:C%=Y%:D%=Z%|
00001f00  3a 45 25 3d 53 42 25 0d  0e 42 0a d6 67 6a 6b 65  |:E%=SB%..B..gjke|
00001f10  79 0d 0e 4c 0d d6 47 4a  6b 65 59 2c 41 24 0d 0e  |y..L..GJkeY,A$..|
00001f20  56 0f fd 66 6c 61 67 80  20 6b 25 3d 34 0d 0e 60  |V..flag. k%=4..`|
00001f30  1f f2 47 6f 72 64 4f 4e  28 34 29 3a 4d 25 3d 67  |..GordON(4):M%=g|
00001f40  6a 6b 45 59 3a f2 67 6f  52 44 4f 4e 0d 0e 6a 12  |jkEY:.goRDON..j.|
00001f50  f2 47 6f 72 64 6f 6e 28  22 20 22 2c a3 29 0d 0e  |.Gordon(" ",.)..|
00001f60  74 0a c8 97 b8 30 2c 30  0d 0e 7e 0a 2a 46 58 32  |t....0,0..~.*FX2|
00001f70  32 39 0d 0e 88 05 e1 0d  0e 92 17 dd f2 47 4f 52  |29...........GOR|
00001f80  64 4f 4e 28 62 61 6c 6c  25 2c 78 2c 79 29 0d 0e  |dON(ball%,x,y)..|
00001f90  9c 16 f2 67 6f 52 44 4f  4e 3a f2 47 6f 72 64 4f  |...goRDON:.GordO|
00001fa0  4e 28 31 29 0d 0e a6 25  ea 41 25 2c 42 25 2c 43  |N(1)...%.A%,B%,C|
00001fb0  25 2c 45 2c 46 2c 6b 25  2c 42 2c 63 2c 73 2c 66  |%,E,F,k%,B,c,s,f|
00001fc0  6c 61 67 2c 41 24 2c 68  25 0d 0e b0 6f 41 24 3d  |lag,A$,h%...oA$=|
00001fd0  bd 31 38 2b bd 31 32 37  2b 22 50 4f 53 49 54 49  |.18+.127+"POSITI|
00001fe0  4f 4e 20 42 41 4c 4c 20  54 48 45 4e 20 43 4c 49  |ON BALL THEN CLI|
00001ff0  43 4b 20 27 53 45 4c 45  43 54 27 20 54 4f 20 50  |CK 'SELECT' TO P|
00002000  4c 41 43 45 2c 20 20 50  52 45 53 53 20 27 41 44  |LACE,  PRESS 'AD|
00002010  4a 55 53 54 27 20 54 4f  20 41 4c 54 45 52 20 56  |JUST' TO ALTER V|
00002020  49 45 57 22 3a 68 25 3d  31 36 30 3a d6 47 6a 4b  |IEW":h%=160:.GjK|
00002030  45 59 2c 41 24 2c 68 25  0d 0e ba 14 41 24 3d bd  |EY,A$,h%....A$=.|
00002040  33 31 2b bd 68 25 2b bd  31 2b 41 24 0d 0e c4 26  |31+.h%+.1+A$...&|
00002050  52 25 3d 36 31 33 39 3a  56 25 3d 32 35 38 35 3a  |R%=6139:V%=2585:|
00002060  58 25 3d 35 36 30 3a 59  25 3d 30 3a 5a 25 3d 2d  |X%=560:Y%=0:Z%=-|
00002070  37 30 0d 0e ce 0a 41 3d  52 25 2f 72 0d 0e d8 0f  |70....A=R%/r....|
00002080  63 3d 2d 9b 41 3a 73 3d  2d b5 41 0d 0e e2 18 4d  |c=-.A:s=-.A....M|
00002090  25 3d 67 6a 6b 45 59 2b  34 30 2a 62 61 6c 6c 25  |%=gjkEY+40*ball%|
000020a0  2d 34 30 0d 0e ec 05 f5  0d 0e f6 13 c8 97 45 2c  |-40...........E,|
000020b0  46 2c 6b 25 3a c8 97 b8  30 2c 30 0d 0f 00 0a e7  |F,k%:...0,0.....|
000020c0  6b 25 3d 31 8c 0d 0f 0a  12 45 25 3d 45 3a 46 25  |k%=1.....E%=E:F%|
000020d0  3d 46 3a 47 25 3d 30 0d  0f 14 0e f2 47 6f 72 64  |=F:G%=0.....Gord|
000020e0  4f 4e 28 34 29 0d 0f 1e  0b f2 67 4f 52 44 6f 6e  |ON(4).....gORDon|
000020f0  0d 0f 28 0e f2 47 6f 72  64 4f 4e 28 31 29 0d 0f  |..(..GordON(1)..|
00002100  32 1a 41 3d 32 2a af 2d  52 25 2f 72 3a 63 3d 2d  |2.A=2*.-R%/r:c=-|
00002110  9b 41 3a 73 3d 2d b5 41  0d 0f 3c 05 cc 0d 0f 46  |.A:s=-.A..<....F|
00002120  18 42 3d 45 2a 63 2b 46  2a 73 3a 46 3d 45 2a 2d  |.B=E*c+F*s:F=E*-|
00002130  73 2b 46 2a 63 0d 0f 50  1c 41 25 3d 62 61 6c 6c  |s+F*c..P.A%=ball|
00002140  25 2d 31 3a 42 25 3d 78  2b 46 3a 43 25 3d 79 2d  |%-1:B%=x+F:C%=y-|
00002150  42 0d 0f 5a 17 66 6c 61  67 3d a4 67 4a 4b 45 79  |B..Z.flag=.gJKEy|
00002160  41 28 42 25 2c 43 25 29  0d 0f 64 3e e7 66 6c 61  |A(B%,C%)..d>.fla|
00002170  67 20 78 3d 78 2b 46 3a  79 3d 79 2d 42 3a 21 4d  |g x=x+F:y=y-B:!M|
00002180  25 3d 42 25 3a 4d 25 21  34 3d 43 25 3a 4d 25 21  |%=B%:M%!4=C%:M%!|
00002190  31 36 3d 42 25 3c 3c 31  36 3a 4d 25 21 32 30 3d  |16=B%<<16:M%!20=|
000021a0  43 25 3c 3c 31 36 0d 0f  6e 05 cd 0d 0f 78 21 41  |C%<<16..n....x!A|
000021b0  25 3d 31 3a 42 25 3d 58  25 3a 43 25 3d 59 25 3a  |%=1:B%=X%:C%=Y%:|
000021c0  44 25 3d 5a 25 3a 45 25  3d 53 42 25 0d 0f 82 0a  |D%=Z%:E%=SB%....|
000021d0  d6 67 6a 6b 65 79 0d 0f  8c 0d d6 47 4a 6b 65 59  |.gjkey.....GJkeY|
000021e0  2c 41 24 0d 0f 96 0f fd  66 6c 61 67 80 20 6b 25  |,A$.....flag. k%|
000021f0  3d 34 0d 0f a0 0e f2 47  6f 72 64 4f 4e 28 34 29  |=4.....GordON(4)|
00002200  0d 0f aa 05 e1 0d 0f b4  12 dd a4 67 4a 4b 45 79  |...........gJKEy|
00002210  28 42 25 2c 43 25 29 0d  0f be 07 ea 58 25 0d 0f  |(B%,C%).....X%..|
00002220  c8 0f e7 42 25 3e 2d 32  37 30 8c 3d 30 0d 0f d2  |...B%>-270.=0...|
00002230  0d 58 25 3d 42 25 2b 32  37 30 0d 0f dc 18 e7 b6  |.X%=B%+270......|
00002240  28 58 25 5e 32 2b 43 25  5e 32 29 3e 31 30 30 8c  |(X%^2+C%^2)>100.|
00002250  3d 30 0d 0f e6 0b 3d ba  67 4a 4b 45 79 0d 0f f0  |=0....=.gJKEy...|
00002260  13 dd a4 67 4a 4b 45 79  41 28 42 25 2c 43 25 29  |...gJKEyA(B%,C%)|
00002270  0d 0f fa 25 e7 42 25 3e  34 34 38 84 42 25 3c 2d  |...%.B%>448.B%<-|
00002280  34 34 38 84 43 25 3e 32  31 39 84 43 25 3c 2d 32  |448.C%>219.C%<-2|
00002290  31 39 8c 3d 30 0d 10 04  0b 3d ba 67 4a 4b 45 79  |19.=0....=.gJKEy|
000022a0  0d 10 0e 15 dd f2 47 4f  72 64 4f 4e 28 f8 42 25  |......GOrdON(.B%|
000022b0  2c f8 43 25 29 0d 10 18  0d ea 41 25 2c 52 25 2c  |,.C%).....A%,R%,|
000022c0  61 25 0d 10 22 15 42 25  3d 2d 33 32 30 3a 43 25  |a%..".B%=-320:C%|
000022d0  3d 30 3a 41 25 3d 30 0d  10 2c 05 f5 0d 10 36 24  |=0:A%=0..,....6$|
000022e0  e7 a4 67 4a 4b 45 79 28  42 25 2c 43 25 29 3a fd  |..gJKEy(B%,C%):.|
000022f0  b9 3a f2 73 65 74 62 28  42 25 2c 43 25 29 3a e1  |.:.setb(B%,C%):.|
00002300  0d 10 40 1b 52 25 3d b3  28 31 30 30 29 3a 61 25  |..@.R%=.(100):a%|
00002310  3d b3 28 31 38 30 29 2b  31 38 30 0d 10 4a 1d 42  |=.(180)+180..J.B|
00002320  25 3d 52 25 2a b5 b2 61  25 2d 32 37 30 3a 43 25  |%=R%*..a%-270:C%|
00002330  3d 52 25 2a 9b b2 61 25  0d 10 54 06 fd a3 0d 10  |=R%*..a%..T.....|
00002340  5e 05 e1 0d 10 68 11 dd  f2 73 65 74 62 28 42 25  |^....h...setb(B%|
00002350  2c 43 25 29 0d 10 72 0d  21 67 6a 6b 45 59 3d 42  |,C%)..r.!gjkEY=B|
00002360  25 0d 10 7c 0e 67 6a 6b  45 59 21 34 3d 43 25 0d  |%..|.gjkEY!4=C%.|
00002370  10 86 13 67 6a 6b 45 59  21 31 36 3d 42 25 3c 3c  |...gjkEY!16=B%<<|
00002380  31 36 0d 10 90 13 67 6a  6b 45 59 21 32 30 3d 43  |16....gjkEY!20=C|
00002390  25 3c 3c 31 36 0d 10 9a  05 e1 0d 10 a4 0c dd f2  |%<<16...........|
000023a0  67 4f 52 44 4f 6e 0d 10  ae 0d 21 45 46 4b 45 59  |gORDOn....!EFKEY|
000023b0  3d 32 31 0d 10 b8 21 21  45 46 4b 45 79 3d 21 67  |=21...!!EFKEy=!g|
000023c0  6a 6b 45 59 3a 45 46 4b  45 79 21 34 3d 67 6a 6b  |jkEY:EFKEy!4=gjk|
000023d0  45 59 21 34 0d 10 c2 15  21 47 4a 4b 45 59 3d 30  |EY!4....!GJKEY=0|
000023e0  3a 21 67 6a 4b 45 79 3d  30 0d 10 cc 0e 21 67 6a  |:!gjKEy=0....!gj|
000023f0  4b 65 79 3d 37 36 38 0d  10 d6 16 53 25 3d 30 3a  |Key=768....S%=0:|
00002400  21 47 4a 4b 65 79 3d 30  3a 4c 25 3d 30 0d 10 e0  |!GJKey=0:L%=0...|
00002410  10 53 41 25 3d 52 25 2d  26 31 32 30 30 0d 10 ea  |.SA%=R%-&1200...|
00002420  14 e7 53 41 25 3c 30 53  41 25 2b 3d 26 33 30 30  |..SA%<0SA%+=&300|
00002430  30 0d 10 f4 0c 21 67 6a  6b 65 59 3d b9 0d 10 fe  |0....!gjkeY=....|
00002440  0b 66 6f 75 6c 25 3d 30  0d 11 08 0c 21 45 46 4b  |.foul%=0....!EFK|
00002450  65 79 3d 30 0d 11 12 09  62 63 25 3d 30 0d 11 1c  |ey=0....bc%=0...|
00002460  05 e1 0d 11 26 11 dd f2  67 4f 52 64 6f 6e 28 52  |....&...gORdon(R|
00002470  6f 25 29 0d 11 30 07 ea  51 25 0d 11 3a 0e e7 4f  |o%)..0..Q%..:..O|
00002480  6e 25 3d b9 46 25 3d 30  0d 11 44 29 e7 47 25 3c  |n%=.F%=0..D).G%<|
00002490  3e 32 4c 25 3d 21 47 4a  4b 65 79 3a 4c 25 3d 28  |>2L%=!GJKey:L%=(|
000024a0  4c 25 2b 28 45 25 3e 3e  34 29 29 83 26 33 30 30  |L%+(E%>>4)).&300|
000024b0  30 0d 11 4e 12 e7 4c 25  3c 30 4c 25 2b 3d 26 33  |0..N..L%<0L%+=&3|
000024c0  30 30 30 0d 11 58 1d e7  4c 25 3c 26 31 38 30 30  |000..X..L%<&1800|
000024d0  80 4c 25 3e 26 31 30 30  20 4c 25 3d 26 31 30 30  |.L%>&100 L%=&100|
000024e0  0d 11 62 1e e7 4c 25 3e  26 31 38 30 30 80 4c 25  |..b..L%>&1800.L%|
000024f0  3c 26 32 46 30 30 4c 25  3d 26 32 46 30 30 0d 11  |<&2F00L%=&2F00..|
00002500  6c 0d 21 47 4a 4b 65 79  3d 4c 25 0d 11 76 10 51  |l.!GJKey=L%..v.Q|
00002510  25 3d 21 67 6a 4b 65 79  2d 46 25 0d 11 80 0d 21  |%=!gjKey-F%....!|
00002520  67 6a 4b 65 79 3d 51 25  0d 11 8a 23 53 42 25 3d  |gjKey=Q%...#SB%=|
00002530  28 28 53 41 25 2b 4c 25  29 83 26 33 30 30 30 29  |((SA%+L%).&3000)|
00002540  3a 21 67 4a 4b 65 79 3d  53 42 25 0d 11 94 14 e7  |:!gJKey=SB%.....|
00002550  53 25 80 67 6a 6b 45 59  21 33 36 3c 3d 30 8c 0d  |S%.gjkEY!36<=0..|
00002560  11 9e 2f f2 73 68 6f 6f  74 3a 21 47 4a 4b 45 79  |../.shoot:!GJKEy|
00002570  3d 31 3a 43 43 25 3d 30  3a e7 52 6f 25 3a f2 67  |=1:CC%=0:.Ro%:.g|
00002580  6f 52 44 4f 6e 32 8b f2  67 6f 52 44 4f 6e 0d 11  |oRDOn2..goRDOn..|
00002590  a8 05 cd 0d 11 b2 05 e1  0d 11 bc 0d dd a4 61 75  |..............au|
000025a0  74 6f 6e 6f 6d 0d 11 c6  07 ea 4e 25 0d 11 d0 11  |tonom.....N%....|
000025b0  4e 25 3d 47 72 25 28 70  6c 61 79 25 29 0d 11 da  |N%=Gr%(play%)...|
000025c0  15 e7 4e 25 3d 31 80 52  65 64 25 3d 30 8c 4e 25  |..N%=1.Red%=0.N%|
000025d0  3d 33 0d 11 e4 16 e7 4e  25 3d 32 80 59 65 6c 6c  |=3.....N%=2.Yell|
000025e0  25 3d 30 8c 4e 25 3d 33  0d 11 ee 11 e7 66 6f 75  |%=0.N%=3.....fou|
000025f0  6c 25 3c 3e 30 4e 25 3d  34 0d 11 f8 14 4e 6f 6d  |l%<>0N%=4....Nom|
00002600  24 3d a4 6e 6f 6d 73 74  72 28 4e 25 29 0d 12 02  |$=.nomstr(N%)...|
00002610  07 3d 4e 25 0d 12 0c 10  dd a4 6e 6f 6d 73 74 72  |.=N%......nomstr|
00002620  28 41 25 29 0d 12 16 0a  ea 41 24 2c 58 25 0d 12  |(A%).....A$,X%..|
00002630  20 23 41 24 3d bd 31 38  2b bd 31 32 37 2b 22 4f  | #A$=.18+.127+"O|
00002640  6e 20 62 61 6c 6c 20 3d  20 22 3a 58 25 3d 32 38  |n ball = ":X%=28|
00002650  36 0d 12 2a 0d e7 46 74  61 25 41 25 3d 37 0d 12  |6..*..Fta%A%=7..|
00002660  34 09 c8 8e 41 25 ca 0d  12 3e 12 c9 31 3a 41 24  |4...A%...>..1:A$|
00002670  3d 41 24 2b 22 52 45 44  22 0d 12 48 15 c9 32 3a  |=A$+"RED"..H..2:|
00002680  41 24 3d 41 24 2b 22 59  45 4c 4c 4f 57 22 0d 12  |A$=A$+"YELLOW"..|
00002690  52 18 c9 33 2c 35 2c 36  3a 41 24 3d 41 24 2b 22  |R..3,5,6:A$=A$+"|
000026a0  42 4c 41 43 4b 22 0d 12  5c 25 c9 30 2c 34 3a 41  |BLACK"..\%.0,4:A|
000026b0  24 3d 41 24 2b 22 52 45  44 20 4f 52 20 59 45 4c  |$=A$+"RED OR YEL|
000026c0  4c 4f 57 22 3a 58 25 3d  32 36 36 0d 12 66 20 c9  |LOW":X%=266..f .|
000026d0  37 3a 41 24 3d 41 24 2b  22 46 52 45 45 20 54 41  |7:A$=A$+"FREE TA|
000026e0  42 4c 45 22 3a 58 25 3d  32 37 36 0d 12 70 05 cb  |BLE":X%=276..p..|
000026f0  0d 12 7a 16 41 25 3d 58  25 3a d6 47 6a 4b 45 59  |..z.A%=X%:.GjKEY|
00002700  2c 41 24 2c 41 25 0d 12  84 2c 3d bd 33 31 2b bd  |,A$,A%...,=.31+.|
00002710  28 28 41 25 81 32 35 35  29 2a 32 35 35 29 2b bd  |((A%.255)*255)+.|
00002720  31 2b bd 33 30 2b bd 28  41 25 83 32 35 35 29 2b  |1+.30+.(A%.255)+|
00002730  41 24 0d 12 8e 0b dd f2  73 68 6f 6f 74 0d 12 98  |A$......shoot...|
00002740  1a 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 34  |.*CHANNELVOICE 4|
00002750  20 48 69 74 63 75 65 0d  12 a2 0f ea 78 25 2c 79  | Hitcue.....x%,y|
00002760  25 2c 41 2c 42 25 0d 12  ac 14 43 6f 75 6e 74 25  |%,A,B%....Count%|
00002770  28 70 6c 61 79 25 29 2b  3d 31 0d 12 b6 0b 41 3d  |(play%)+=1....A=|
00002780  53 42 25 2f 72 0d 12 c0  0f 42 25 3d 67 6a 6b 45  |SB%/r....B%=gjkE|
00002790  59 2b 32 38 0d 12 ca 20  21 42 25 3d 26 31 30 30  |Y+28... !B%=&100|
000027a0  30 30 2a 9b 41 3a 42 25  21 34 3d 26 31 30 30 30  |00*.A:B%!4=&1000|
000027b0  30 2a b5 41 0d 12 d4 1d  e7 46 25 3e 30 20 42 25  |0*.A.....F%>0 B%|
000027c0  21 38 3d 46 25 5e 31 2e  32 37 8b 42 25 21 38 3d  |!8=F%^1.27.B%!8=|
000027d0  30 0d 12 de 0c 41 3d 21  47 4a 4b 45 59 0d 12 e8  |0....A=!GJKEY...|
000027e0  09 e7 41 3e 30 8c 0d 12  f2 13 41 3d 28 41 2f 36  |..A>0.....A=(A/6|
000027f0  30 30 30 29 2a 42 25 21  38 0d 12 fc 05 cc 0d 13  |000)*B%!8.......|
00002800  06 13 41 3d 28 41 2f 33  38 30 30 29 2a 42 25 21  |..A=(A/3800)*B%!|
00002810  38 0d 13 10 05 cd 0d 13  1a 0b 53 43 52 45 57 3d  |8.........SCREW=|
00002820  41 0d 13 24 0c 21 47 4a  4b 45 59 3d 41 0d 13 2e  |A..$.!GJKEY=A...|
00002830  11 4f 25 3d 31 3a 21 47  4a 4b 45 79 3d 31 0d 13  |.O%=1:!GJKEy=1..|
00002840  38 0c 46 25 3d 46 25 3e  3e 35 0d 13 42 0d e7 46  |8.F%=F%>>5..B..F|
00002850  25 3c 31 46 25 3d 31 0d  13 4c 0f e7 46 25 3e 31  |%<1F%=1..L..F%>1|
00002860  35 46 25 3d 31 35 0d 13  56 12 d4 34 2c 2d 46 25  |5F%=15..V..4,-F%|
00002870  2c 26 32 30 30 30 2c 31  0d 13 60 08 46 25 3d 30  |,&2000,1..`.F%=0|
00002880  0d 13 6a 09 43 46 25 3d  b9 0d 13 74 09 50 77 25  |..j.CF%=...t.Pw%|
00002890  3d a3 0d 13 7e 0b 73 68  6f 74 25 3d b9 0d 13 88  |=...~.shot%=....|
000028a0  5b 4d 78 25 3d 21 67 6a  6b 45 59 3a 4d 79 25 3d  |[Mx%=!gjkEY:My%=|
000028b0  67 6a 6b 45 59 21 34 3a  4d 73 69 6e 25 3d 67 6a  |gjkEY!4:Msin%=gj|
000028c0  6b 45 59 21 32 38 3a 4d  63 6f 73 25 3d 67 6a 6b  |kEY!28:Mcos%=gjk|
000028d0  45 59 21 33 32 3a 4d 70  25 3d 67 6a 6b 45 59 21  |EY!32:Mp%=gjkEY!|
000028e0  33 36 3a 4d 73 25 3d 21  67 6a 4b 45 79 3a 4d 74  |36:Ms%=!gjKEy:Mt|
000028f0  25 3d 21 47 4a 4b 45 59  0d 13 92 05 e1 0d 13 9c  |%=!GJKEY........|
00002900  10 dd f2 67 4f 52 44 4f  4e 28 41 25 29 0d 13 a6  |...gORDON(A%)...|
00002910  0a ea 58 25 2c 59 25 0d  13 b0 05 f5 0d 13 ba 0e  |..X%,Y%.........|
00002920  c8 97 58 25 2c 59 25 2c  47 25 0d 13 c4 0e fd 28  |..X%,Y%,G%.....(|
00002930  47 25 80 41 25 29 3d 30  0d 13 ce 0a c8 97 b8 30  |G%.A%)=0.......0|
00002940  2c 30 0d 13 d8 05 e1 0d  13 e2 0c dd f2 67 4f 52  |,0...........gOR|
00002950  44 6f 6e 0d 13 ec 09 c8  8e 47 25 ca 0d 13 f6 0e  |Don......G%.....|
00002960  c9 30 3a f2 67 4f 52 64  4f 4e 0d 14 00 0e c9 31  |.0:.gORdON.....1|
00002970  3a f2 67 6f 52 64 4f 4e  0d 14 0a 0e c9 32 3a f2  |:.goRdON.....2:.|
00002980  67 4f 72 64 6f 6e 0d 14  14 05 cb 0d 14 1e 05 e1  |gOrdon..........|
00002990  0d 14 28 0d dd f2 67 4f  52 44 6f 6e 32 0d 14 32  |..(...gORDon2..2|
000029a0  09 c8 8e 47 25 ca 0d 14  3c 0f c9 30 3a f2 67 4f  |...G%...<..0:.gO|
000029b0  52 64 4f 4e 32 0d 14 46  0e c9 31 3a f2 67 6f 52  |RdON2..F..1:.goR|
000029c0  64 4f 4e 0d 14 50 0e c9  32 3a f2 67 4f 72 64 6f  |dON..P..2:.gOrdo|
000029d0  6e 0d 14 5a 05 cb 0d 14  64 05 e1 0d 14 6e 0c dd  |n..Z....d....n..|
000029e0  f2 67 6f 52 64 4f 4e 0d  14 78 0a ea 78 25 2c 79  |.goRdON..x..x%,y|
000029f0  25 0d 14 82 1a 78 25 3d  2d 21 67 6a 6b 45 59 3a  |%....x%=-!gjkEY:|
00002a00  79 25 3d 2d 67 6a 6b 45  59 21 34 0d 14 8c 18 55  |y%=-gjkEY!4....U|
00002a10  25 2d 3d 46 25 3a e7 55  25 3e 39 36 30 55 25 3d  |%-=F%:.U%>960U%=|
00002a20  39 36 30 0d 14 96 11 e7  55 25 3c 31 30 30 55 25  |960.....U%<100U%|
00002a30  3d 31 30 30 0d 14 a0 27  e7 55 25 3c 34 30 30 80  |=100...'.U%<400.|
00002a40  5a 25 3c 2d 28 28 55 25  2d 39 30 29 3e 3e 31 29  |Z%<-((U%-90)>>1)|
00002a50  5a 25 3d 2d 28 55 25 2d  37 30 29 0d 14 aa 08 45  |Z%=-(U%-70)....E|
00002a60  25 3d 30 0d 14 b4 09 c8  8e 57 25 ca 0d 14 be 0f  |%=0......W%.....|
00002a70  c9 31 3a f2 47 4f 72 44  4f 4e 31 0d 14 c8 0f c9  |.1:.GOrDON1.....|
00002a80  32 3a f2 47 4f 72 44 4f  4e 32 0d 14 d2 0f c9 33  |2:.GOrDON2.....3|
00002a90  3a f2 47 4f 72 44 4f 4e  33 0d 14 dc 0f c9 34 3a  |:.GOrDON3.....4:|
00002aa0  f2 47 4f 72 44 4f 4e 34  0d 14 e6 05 cb 0d 14 f0  |.GOrDON4........|
00002ab0  0f 52 25 3d a4 47 4f 72  44 4f 6e 32 0d 14 fa 11  |.R%=.GOrDOn2....|
00002ac0  6f 78 25 3d 58 25 3a 6f  79 25 3d 59 25 0d 15 04  |ox%=X%:oy%=Y%...|
00002ad0  05 e1 0d 15 0e 0d dd f2  67 4f 52 64 4f 4e 32 0d  |........gORdON2.|
00002ae0  15 18 11 e7 94 45 25 3c  38 80 94 46 25 3c 38 e1  |.....E%<8..F%<8.|
00002af0  0d 15 22 0c dd f2 67 4f  52 64 4f 4e 0d 15 2c 10  |.."...gORdON..,.|
00002b00  e7 4d 68 25 3e 30 4d 68  25 2d 3d 31 0d 15 36 0f  |.Mh%>0Mh%-=1..6.|
00002b10  45 25 3d 45 25 81 35 2b  b4 45 25 0d 15 40 12 e7  |E%=E%.5+.E%..@..|
00002b20  4a 25 80 46 25 3d 30 20  43 46 25 3d 30 0d 15 4a  |J%.F%=0 CF%=0..J|
00002b30  11 e7 ac 43 46 25 5a 25  2d 3d 46 25 2f 38 0d 15  |...CF%Z%-=F%/8..|
00002b40  54 11 e7 5a 25 3e 2d 31  36 5a 25 3d 2d 31 36 0d  |T..Z%>-16Z%=-16.|
00002b50  15 5e 13 e7 5a 25 3c 2d  32 31 30 5a 25 3d 2d 32  |.^..Z%<-210Z%=-2|
00002b60  31 30 0d 15 68 09 c8 8e  57 25 ca 0d 15 72 4d c9  |10..h...W%...rM.|
00002b70  31 3a f2 47 4f 72 44 4f  4e 31 61 3a e7 94 28 59  |1:.GOrDON1a:..(Y|
00002b80  25 2d 6f 79 25 29 3e 33  30 80 58 25 3c 38 30 30  |%-oy%)>30.X%<800|
00002b90  55 25 3d 55 25 2b 28 28  32 38 30 2d 55 25 29 84  |U%=U%+((280-U%).|
00002ba0  34 2a 2d 28 55 25 3c 3e  32 38 30 29 29 81 34 3a  |4*-(U%<>280)).4:|
00002bb0  58 25 3d 55 25 3c 3c 31  0d 15 7c 4c c9 32 3a f2  |X%=U%<<1..|L.2:.|
00002bc0  47 4f 72 44 4f 4e 32 61  3a e7 94 28 58 25 2d 6f  |GOrDON2a:..(X%-o|
00002bd0  78 25 29 3e 33 30 80 59  25 3e 2d 34 30 30 55 25  |x%)>30.Y%>-400U%|
00002be0  3d 55 25 2b 28 28 32 38  30 2d 55 25 29 84 34 2a  |=U%+((280-U%).4*|
00002bf0  2d 28 55 25 3c 3e 32 38  30 29 29 81 34 3a 59 25  |-(U%<>280)).4:Y%|
00002c00  3d 2d 55 25 0d 15 86 4f  c9 33 3a f2 47 4f 72 44  |=-U%...O.3:.GOrD|
00002c10  4f 4e 33 61 3a e7 94 28  59 25 2d 6f 79 25 29 3e  |ON3a:..(Y%-oy%)>|
00002c20  33 30 80 58 25 3e 2d 38  30 30 55 25 3d 55 25 2b  |30.X%>-800U%=U%+|
00002c30  28 28 32 38 30 2d 55 25  29 84 34 2a 2d 28 55 25  |((280-U%).4*-(U%|
00002c40  3c 3e 32 38 30 29 29 81  34 3a 58 25 3d 2d 55 25  |<>280)).4:X%=-U%|
00002c50  3c 3c 31 0d 15 90 4a c9  34 3a f2 47 4f 72 44 4f  |<<1...J.4:.GOrDO|
00002c60  4e 34 61 3a e7 94 28 58  25 2d 6f 78 25 29 3e 33  |N4a:..(X%-ox%)>3|
00002c70  30 80 59 25 3c 34 30 30  55 25 3d 55 25 2b 28 28  |0.Y%<400U%=U%+((|
00002c80  32 38 30 2d 55 25 29 84  34 2a 2d 28 55 25 3c 3e  |280-U%).4*-(U%<>|
00002c90  32 38 30 29 29 81 34 3a  59 25 3d 55 25 0d 15 9a  |280)).4:Y%=U%...|
00002ca0  05 cb 0d 15 a4 0f 52 25  3d a4 47 4f 72 44 4f 6e  |......R%=.GOrDOn|
00002cb0  34 0d 15 ae 05 e1 0d 15  b8 0d dd f2 47 4f 72 44  |4...........GOrD|
00002cc0  4f 4e 31 0d 15 c2 0a 59  25 2b 3d 45 25 0d 15 cc  |ON1....Y%+=E%...|
00002cd0  27 58 25 3d 55 25 2a 32  3a e7 58 25 3c 78 25 2d  |'X%=U%*2:.X%<x%-|
00002ce0  32 30 20 58 25 3d 78 25  2d 32 30 3a 55 25 3d 58  |20 X%=x%-20:U%=X|
00002cf0  25 3e 3e 31 0d 15 d6 05  e1 0d 15 e0 0d dd f2 47  |%>>1...........G|
00002d00  4f 72 44 4f 4e 32 0d 15  ea 0a 58 25 2b 3d 45 25  |OrDON2....X%+=E%|
00002d10  0d 15 f4 23 59 25 3d 2d  55 25 3a e7 59 25 3e 79  |...#Y%=-U%:.Y%>y|
00002d20  25 2b 32 30 59 25 3d 79  25 2b 32 30 3a 55 25 3d  |%+20Y%=y%+20:U%=|
00002d30  2d 59 25 0d 15 fe 05 e1  0d 16 08 0d dd f2 47 4f  |-Y%...........GO|
00002d40  72 44 4f 4e 33 0d 16 12  0a 59 25 2d 3d 45 25 0d  |rDON3....Y%-=E%.|
00002d50  16 1c 29 58 25 3d 2d 55  25 2a 32 3a e7 58 25 3e  |..)X%=-U%*2:.X%>|
00002d60  78 25 2b 32 30 20 58 25  3d 78 25 2b 32 30 3a 55  |x%+20 X%=x%+20:U|
00002d70  25 3d 2d 58 25 3e 3e 31  0d 16 26 05 e1 0d 16 30  |%=-X%>>1..&....0|
00002d80  0d dd f2 47 4f 72 44 4f  4e 34 0d 16 3a 0a 58 25  |...GOrDON4..:.X%|
00002d90  2d 3d 45 25 0d 16 44 21  59 25 3d 55 25 3a e7 59  |-=E%..D!Y%=U%:.Y|
00002da0  25 3c 79 25 2d 32 30 59  25 3d 79 25 2d 32 30 3a  |%<y%-20Y%=y%-20:|
00002db0  55 25 3d 59 25 0d 16 4e  05 e1 0d 16 58 0e dd f2  |U%=Y%..N....X...|
00002dc0  47 4f 72 44 4f 4e 31 61  0d 16 62 0a 59 25 2b 3d  |GOrDON1a..b.Y%+=|
00002dd0  45 25 0d 16 6c 27 e7 45  25 3e 30 80 59 25 3e 3d  |E%..l'.E%>0.Y%>=|
00002de0  55 25 3a 57 25 3d 34 3a  59 25 3d 55 25 3a f2 47  |U%:W%=4:Y%=U%:.G|
00002df0  4f 72 44 4f 4e 34 61 3a  e1 0d 16 76 29 e7 45 25  |OrDON4a:...v).E%|
00002e00  3c 30 80 59 25 3c 3d 2d  55 25 3a 57 25 3d 32 3a  |<0.Y%<=-U%:W%=2:|
00002e10  59 25 3d 2d 55 25 3a f2  47 4f 72 44 4f 4e 32 61  |Y%=-U%:.GOrDON2a|
00002e20  3a e1 0d 16 80 05 e1 0d  16 8a 0e dd f2 47 4f 72  |:............GOr|
00002e30  44 4f 4e 32 61 0d 16 94  0a 58 25 2b 3d 45 25 0d  |DON2a....X%+=E%.|
00002e40  16 9e 2b e7 45 25 3e 30  80 58 25 3e 3d 55 25 2a  |..+.E%>0.X%>=U%*|
00002e50  32 3a 57 25 3d 31 3a 58  25 3d 55 25 2a 32 3a f2  |2:W%=1:X%=U%*2:.|
00002e60  47 4f 72 44 4f 4e 31 61  3a e1 0d 16 a8 2d e7 45  |GOrDON1a:....-.E|
00002e70  25 3c 30 80 58 25 3c 3d  2d 55 25 2a 32 3a 57 25  |%<0.X%<=-U%*2:W%|
00002e80  3d 33 3a 58 25 3d 2d 55  25 2a 32 3a f2 47 4f 72  |=3:X%=-U%*2:.GOr|
00002e90  44 4f 4e 33 61 3a e1 0d  16 b2 05 e1 0d 16 bc 0e  |DON3a:..........|
00002ea0  dd f2 47 4f 72 44 4f 4e  33 61 0d 16 c6 0a 59 25  |..GOrDON3a....Y%|
00002eb0  2d 3d 45 25 0d 16 d0 29  e7 45 25 3e 30 80 59 25  |-=E%...).E%>0.Y%|
00002ec0  3c 3d 2d 55 25 3a 57 25  3d 32 3a 59 25 3d 2d 55  |<=-U%:W%=2:Y%=-U|
00002ed0  25 3a f2 47 4f 72 44 4f  4e 32 61 3a e1 0d 16 da  |%:.GOrDON2a:....|
00002ee0  27 e7 45 25 3c 30 80 59  25 3e 3d 55 25 3a 57 25  |'.E%<0.Y%>=U%:W%|
00002ef0  3d 34 3a 59 25 3d 55 25  3a f2 47 4f 72 44 4f 4e  |=4:Y%=U%:.GOrDON|
00002f00  34 61 3a e1 0d 16 e4 05  e1 0d 16 ee 0e dd f2 47  |4a:............G|
00002f10  4f 72 44 4f 4e 34 61 0d  16 f8 0a 58 25 2d 3d 45  |OrDON4a....X%-=E|
00002f20  25 0d 17 02 2d e7 45 25  3e 30 80 58 25 3c 3d 2d  |%...-.E%>0.X%<=-|
00002f30  55 25 2a 32 3a 57 25 3d  33 3a 58 25 3d 2d 55 25  |U%*2:W%=3:X%=-U%|
00002f40  2a 32 3a f2 47 4f 72 44  4f 4e 33 61 3a e1 0d 17  |*2:.GOrDON3a:...|
00002f50  0c 2b e7 45 25 3c 30 80  58 25 3e 3d 55 25 2a 32  |.+.E%<0.X%>=U%*2|
00002f60  3a 57 25 3d 31 3a 58 25  3d 55 25 2a 32 3a f2 47  |:W%=1:X%=U%*2:.G|
00002f70  4f 72 44 4f 4e 31 61 3a  e1 0d 17 16 05 e1 0d 17  |OrDON1a:........|
00002f80  20 0c dd f2 67 4f 72 64  6f 6e 0d 17 2a 09 4d 68  | ...gOrdon..*.Mh|
00002f90  25 3d 32 0d 17 34 14 52  25 3d 28 52 25 2d 45 25  |%=2..4.R%=(R%-E%|
00002fa0  29 83 26 33 30 30 30 0d  17 3e 12 e7 52 25 3c 30  |).&3000..>..R%<0|
00002fb0  52 25 2b 3d 26 33 30 30  30 0d 17 48 0a e7 57 25  |R%+=&3000..H..W%|
00002fc0  3d 31 8c 0d 17 52 16 e7  52 25 3e 26 32 34 30 30  |=1...R..R%>&2400|
00002fd0  20 52 25 3d 26 32 34 30  30 0d 17 5c 14 e7 52 25  | R%=&2400..\..R%|
00002fe0  3c 26 43 30 30 20 52 25  3d 26 43 30 30 0d 17 66  |<&C00 R%=&C00..f|
00002ff0  05 cd 0d 17 70 0a e7 57  25 3d 32 8c 0d 17 7a 12  |....p..W%=2...z.|
00003000  e7 52 25 3e 26 32 34 30  30 20 52 25 3d 30 0d 17  |.R%>&2400 R%=0..|
00003010  84 16 e7 52 25 3e 26 31  38 30 30 20 52 25 3d 26  |...R%>&1800 R%=&|
00003020  31 38 30 30 0d 17 8e 05  cd 0d 17 98 0a e7 57 25  |1800..........W%|
00003030  3d 34 8c 0d 17 a2 15 e7  52 25 3c 26 43 30 30 20  |=4......R%<&C00 |
00003040  52 25 3d 26 32 46 46 46  0d 17 ac 16 e7 52 25 3c  |R%=&2FFF.....R%<|
00003050  26 31 38 30 30 20 52 25  3d 26 31 38 30 30 0d 17  |&1800 R%=&1800..|
00003060  b6 05 cd 0d 17 c0 0a e7  57 25 3d 33 8c 0d 17 ca  |........W%=3....|
00003070  1d e7 52 25 3e 26 43 30  30 80 52 25 3c 26 31 38  |..R%>&C00.R%<&18|
00003080  30 30 20 52 25 3d 26 43  30 30 0d 17 d4 1f e7 52  |00 R%=&C00.....R|
00003090  25 3c 26 32 34 30 30 80  52 25 3e 26 31 38 30 30  |%<&2400.R%>&1800|
000030a0  20 52 25 3d 26 32 34 30  30 0d 17 de 05 cd 0d 17  | R%=&2400.......|
000030b0  e8 0e 56 25 3d 28 56 25  2d 46 25 29 0d 17 f2 13  |..V%=(V%-F%)....|
000030c0  e7 56 25 3c 26 39 30 30  56 25 3d 26 39 30 30 0d  |.V%<&900V%=&900.|
000030d0  17 fc 13 e7 56 25 3e 26  43 30 30 56 25 3d 26 43  |....V%>&C00V%=&C|
000030e0  30 30 0d 18 06 05 e1 0d  18 10 0d dd a4 47 4f 72  |00...........GOr|
000030f0  44 4f 6e 32 0d 18 1a 16  ea 4f 2c 78 25 2c 79 25  |DOn2.....O,x%,y%|
00003100  2c 61 2c 61 25 2c 64 25  2c 76 0d 18 24 18 78 25  |,a,a%,d%,v..$.x%|
00003110  3d 21 4d 25 2b 58 25 3a  79 25 3d 4d 25 21 34 2b  |=!M%+X%:y%=M%!4+|
00003120  59 25 0d 18 2e 13 4f 3d  2d b6 28 78 25 5e 32 2b  |Y%....O=-.(x%^2+|
00003130  79 25 5e 32 29 0d 18 38  0a e7 4f 3c 3e 30 8c 0d  |y%^2)..8..O<>0..|
00003140  18 42 1d 61 3d 28 95 28  78 25 2f 4f 29 29 3a e7  |.B.a=(.(x%/O)):.|
00003150  79 25 2f 4f 3c 30 20 61  3d 70 2d 61 0d 18 4c 05  |y%/O<0 a=p-a..L.|
00003160  cc 0d 18 56 07 61 3d 30  0d 18 60 05 cd 0d 18 6a  |...V.a=0..`....j|
00003170  11 76 3d b6 28 4f 5e 32  2b 5a 25 5e 32 29 0d 18  |.v=.(O^2+Z%^2)..|
00003180  74 1b 56 25 3d 56 25 2b  28 95 28 2d 5a 25 2f 76  |t.V%=V%+(.(-Z%/v|
00003190  29 2a 72 2d 56 25 29 81  32 0d 18 7e 0a 61 25 3d  |)*r-V%).2..~.a%=|
000031a0  61 2a 72 0d 18 88 13 78  25 3d 61 25 2d 52 25 3a  |a*r....x%=a%-R%:|
000031b0  64 25 3d b4 78 25 0d 18  92 14 e7 78 25 3e 26 31  |d%=.x%.....x%>&1|
000031c0  30 30 30 20 64 25 3d 2d  64 25 0d 18 9c 0a e7 64  |000 d%=-d%.....d|
000031d0  25 3e 30 8c 0d 18 a6 10  79 25 3d 28 61 25 2b 52  |%>0.....y%=(a%+R|
000031e0  25 29 81 32 0d 18 b0 05  cc 0d 18 ba 10 79 25 3d  |%).2.........y%=|
000031f0  28 61 25 2d 52 25 29 81  32 0d 18 c4 1c e7 94 79  |(a%-R%).2......y|
00003200  25 3e 26 43 30 30 20 79  25 3d 2d 28 26 31 38 30  |%>&C00 y%=-(&180|
00003210  30 2d 79 25 29 0d 18 ce  0a 79 25 2b 3d 52 25 0d  |0-y%)....y%+=R%.|
00003220  18 d8 12 e7 79 25 3c 30  79 25 2b 3d 26 33 30 30  |....y%<0y%+=&300|
00003230  30 0d 18 e2 05 cd 0d 18  ec 07 3d 79 25 0d 18 f6  |0.........=y%...|
00003240  0d dd a4 47 4f 72 44 4f  6e 34 0d 19 00 16 ea 4f  |...GOrDOn4.....O|
00003250  2c 61 2c 61 25 2c 64 25  2c 76 2c 78 25 2c 79 25  |,a,a%,d%,v,x%,y%|
00003260  0d 19 0a 18 78 25 3d 21  4d 25 2b 58 25 3a 79 25  |....x%=!M%+X%:y%|
00003270  3d 4d 25 21 34 2b 59 25  0d 19 14 13 4f 3d 2d b6  |=M%!4+Y%....O=-.|
00003280  28 78 25 5e 32 2b 79 25  5e 32 29 0d 19 1e 0b e7  |(x%^2+y%^2).....|
00003290  4f 3d 30 8c 3d 30 0d 19  28 1d 61 3d 28 95 28 78  |O=0.=0..(.a=(.(x|
000032a0  25 2f 4f 29 29 3a e7 79  25 2f 4f 3c 30 20 61 3d  |%/O)):.y%/O<0 a=|
000032b0  70 2d 61 0d 19 32 11 76  3d b6 28 4f 5e 32 2b 5a  |p-a..2.v=.(O^2+Z|
000032c0  25 5e 32 29 0d 19 3c 19  56 25 3d 56 25 2b 28 95  |%^2)..<.V%=V%+(.|
000032d0  28 2d 5a 25 2f 76 29 2a  72 2d 56 25 29 0d 19 46  |(-Z%/v)*r-V%)..F|
000032e0  08 3d 61 2a 72 0d 19 50  0a dd f2 63 6f 64 65 0d  |.=a*r..P...code.|
000032f0  19 5a 1c 2a 4c 2e 20 3c  4f 62 65 79 24 44 69 72  |.Z.*L. <Obey$Dir|
00003300  3e 2e 47 4f 4f 4b 20 39  30 30 30 0d 19 64 0b 76  |>.GOOK 9000..d.v|
00003310  3d 26 42 44 30 30 0d 19  6e d0 47 4a 4b 45 59 3d  |=&BD00..n.GJKEY=|
00003320  21 76 3a 47 4a 4b 45 79  3d 76 21 34 3a 47 4a 4b  |!v:GJKEy=v!4:GJK|
00003330  65 79 3d 76 21 38 3a 47  4a 6b 65 79 3d 76 21 31  |ey=v!8:GJkey=v!1|
00003340  32 3a 47 6a 6b 65 79 3d  76 21 31 36 3a 67 6a 6b  |2:Gjkey=v!16:gjk|
00003350  65 79 3d 76 21 32 30 3a  67 6a 6b 65 59 3d 76 21  |ey=v!20:gjkeY=v!|
00003360  32 34 3a 67 6a 6b 45 59  3d 76 21 32 38 3a 67 6a  |24:gjkEY=v!28:gj|
00003370  4b 45 59 3d 76 21 33 32  3a 67 4a 4b 45 59 3d 76  |KEY=v!32:gJKEY=v|
00003380  21 33 36 3a 67 4a 4b 45  79 3d 76 21 34 30 3a 67  |!36:gJKEy=v!40:g|
00003390  6a 4b 45 79 3d 76 21 34  34 3a 67 4a 4b 65 79 3d  |jKEy=v!44:gJKey=|
000033a0  76 21 34 38 3a 67 6a 4b  65 79 3d 76 21 36 30 3a  |v!48:gjKey=v!60:|
000033b0  47 6a 6b 65 59 3d 76 21  36 34 3a 47 4a 6b 65 59  |GjkeY=v!64:GJkeY|
000033c0  3d 76 21 36 38 3a 47 6a  4b 45 59 3d 76 21 37 32  |=v!68:GjKEY=v!72|
000033d0  3a 47 6a 4b 65 59 3d 76  21 37 36 3a 67 4a 6b 45  |:GjKeY=v!76:gJkE|
000033e0  79 3d 76 21 38 30 0d 19  78 79 45 46 4b 45 59 3d  |y=v!80..xyEFKEY=|
000033f0  76 21 38 34 3a 45 46 4b  45 79 3d 76 21 39 36 3a  |v!84:EFKEy=v!96:|
00003400  45 46 4b 65 79 3d 76 21  31 30 30 3a 45 46 6b 65  |EFKey=v!100:EFke|
00003410  79 3d 76 21 31 32 38 3a  45 66 6b 65 79 3d 76 21  |y=v!128:Efkey=v!|
00003420  31 37 32 3a 65 66 6b 65  79 3d 76 21 31 37 36 3a  |172:efkey=v!176:|
00003430  65 66 6b 65 59 3d 76 21  31 39 36 3a 65 66 6b 45  |efkeY=v!196:efkE|
00003440  59 3d 76 21 32 30 34 3a  65 66 4b 45 59 3d 76 21  |Y=v!204:efKEY=v!|
00003450  32 31 32 3a 65 46 4b 45  59 3d 76 21 32 31 36 0d  |212:eFKEY=v!216.|
00003460  19 82 05 e1 0d ff                                 |......|
00003466