G/UNO

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.ADF » G/UNO

G/UNO

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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.ADF
Filename:	G/UNO
Read OK:	✔
File size:	1788 bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

File contents

    5IF PAGE>&E00 OSCLI"KEY0 P%=PA.|MFORI=0 TO (TOP-PAGE)STEP4:I!&E00=I!P%:NEXT|MPA.=&E00|MO.|MRUN|M":OSCLI"FX138,0,128":END
   10*FX200 3
   20DATARed,Green,Yellow,Blue
   30PROCa
   40MODE6:PROCb:MODE2:REPEATPROCc:d%=e%:PROCf:e%=e%EOR1:UNTILg%:PROCh("Another game?"):REPEATOSCLI"FX21,0":A$=GET$:UNTILINSTR("YN",A$):IFA$="Y"CLEAR:GOTO40
   50REPEATUNTIL0
   60DEFPROCi(j%):LOCALR%,I%,T%:R%=RND(-TIME):FORI%=1TOj%:R%=RND(j%):T%=k%?R%:k%?R%=k%?I%:k%?I%=T%:NEXT:ENDPROC
   70DEFPROCl:LOCALm:I=1:FORm=1TO4:A%=m*16
   80PROCk(A%):FORJ=1TO10:PROCk(A%+J):PROCk(A%+J):NEXT:FORJ=1TO4:PROCk(A%+11):NEXT:NEXT:FORJ=1TO4:PROCk(12):PROCk(13):NEXT:?k%=I-1:?n%=0:ENDPROC
   90DEFPROCk(A%):k%?I=A%:I=I+1:ENDPROC
  100DEFPROCo(A%,p%,q%):GCOL0,(A%DIV16):MOVEp%,q%:MOVEp%,q%-186:PLOT85,p%+124,q%:PLOT85,p%+124,q%-186:GCOL0,7:MOVEp%,q%:DRAWp%,q%-186:DRAWp%+124,q%-186:DRAWp%+124,q%:DRAWp%,q%:IFA%DIV16PROCr(7)ELSEPROCr(0)
  110IF(A%DIV16)=0A%=A%OR&70
  120GCOL0,0:MOVEp%+30,q%-77:VDU5,(A%MOD16)+144:MOVEp%+46,q%-77:VDU(A%MOD16)+144:MOVEp%+38,q%-73:VDU(A%MOD16)+144:MOVEp%+38,q%-81:VDU(A%MOD16)+144:MOVEp%+38,q%-77:GCOL0,(A%DIV16):VDU(A%MOD16)+144:GCOL0,7:MOVEp%+16,q%-8:PRINTCHR$((A%MOD16)+128):MOVEp%+116-32,q%-8:PRINTCHR$((A%MOD16)+128)
  130MOVEp%+116-32,q%-178+32:PRINTCHR$((A%MOD16)+128):MOVEp%+16,q%-178+32:PRINTCHR$((A%MOD16)+128):ENDPROC
  140DEFPROCr(I):LOCALs%,J:s%=11:MOVEp%+8,q%-138:IFIGCOL0,IELSEGCOL0,2
  150MOVEp%+8,q%-93:PLOT85,p%+62,q%-138:PLOT85,p%+62,q%-93:IFIGCOL0,IELSEGCOL0,4
  160MOVEp%+116,q%-48:MOVEp%+116,q%-93:PLOT85,p%+62,q%-48:PLOT85,p%+62,q%-93:IFIGCOL0,IELSEGCOL0,1
  170FORJ=45TO(89-s%)STEPs%:MOVEp%+62+(54*t(J)),q%-93+(45*u(J))
  180MOVEp%+62,q%-93:PLOT85,p%+62+(54*t(J+s%)),q%-93+(45*u(J+s%))
  190NEXT:IFIGCOL0,IELSEGCOL0,3
  200FORJ=0TO(44-s%)STEPs%:MOVEp%+70+(46*t(J)),q%-93+(45*u(J))
  210MOVEp%+70,q%-93:PLOT85,p%+70+(46*t(J+s%)),q%-93+(45*u(J+s%))
  220NEXT:GCOL0,I:MOVEp%+62,q%-48:DRAWp%+62,q%-138:MOVEp%+8,q%-93:DRAWp%+116,q%-93:ENDPROC
  230DEFPROCv:DIMt(90),u(90):FORI=45TO89:t(I)=SIN(RAD(I*2+180))
  240u(I)=COS(RAD(I*2+180))
  250NEXT:FORI=0TO44:u(I)=t(45+I):t(I)=u(45+I):NEXT:ENDPROC
  260DEFPROCa:*FX20,0
  280ENDPROC
  290DEFFNw:LOCALx%:IF?k%=0FORI=0TO?n%-1:k%?I=n%?I:NEXT:n%?1=n%?(?n%):?n%=1:PROCi(?k%)
  300x%=k%?(?k%):?k%=?k%-1:=x%
  310DEFPROCc:LOCALI:?y%=7:?z%=7:PROCl:PROCi(108):?n%=0:aa%=0:ba%=0:FORI=1TO7:y%?I=FNw:z%?I=FNw:NEXT
  320ca%=FNw:?n%=?n%+1:n%?1=ca%:IF(ca%DIV16)da%=ca%DIV16
  330IFe%=1GOTO350
  340IFca%MOD16=&B ba%=-1ELSEIFca%MOD16=&A ba%=2ELSEIFca%=&CGOTO320
  350IFe%=0ENDPROC
  360IFca%MOD16=&B aa%=-1ELSEIFca%MOD16=&A aa%=2ELSEIFca%=&CGOTO320
  370ENDPROC
  380DEFPROCea:LOCALI,p%,q%,u%:IF?y%>24PROCfa!!!
  390VDU24,0;32;1279;618;:CLG:FORI=0TO?y%-1:p%=(IMOD8)*160
  400q%=618-((IDIV8)*200)
  410u%=y%?(I+1):PROCo(u%,p%,q%):NEXT:VDU24,0;0;1279;1023;:ENDPROC
  420DEFFNga(ha%):LOCALx%,I:x%=y%?ha%:FORI=ha%+1TO?y%:y%?(I-1)=y%?I:NEXT:?y%=?y%-1:=x%
  430DEFPROCia(ha%):?y%=?y%+1:y%?(?y%)=ha%:PROCo(ha%,((?y%-1)MOD8)*160,618-(((?y%-1)DIV8)*200))
  440ENDPROC
  450DEFFNja:LOCALka%,p%,q%:ka%=1:GCOL3,7:p%=0:REPEATUNTILNOTINKEY-74:REPEATIFINKEY-122ANDka%<?y%ka%=ka%+1:REPEATUNTILNOTINKEY-122
  460IFINKEY-26ANDka%>1ka%=ka%-1:REPEATUNTILNOTINKEY-26
  470IFINKEY-42ANDka%<(?y%-7)ka%=ka%+8:REPEATUNTILNOTINKEY-42
  480IFINKEY-58ANDka%>8ka%=ka%-8:REPEATUNTILNOTINKEY-58
  490p%=(((ka%-1)MOD8)*160)+132
  500q%=541-(((ka%-1)DIV8)*200)
  510IFp%<>0MOVEp%,q%:*FX19
  520VDU142:MOVEp%,q%:*FX19
  530VDU142:UNTILINKEY-74ORINKEY-56:IFINKEY-56THEN=0ELSE=ka%
  540DEFPROCh(A$):PRINTCHR$4;CHR$12TAB((20-LEN(A$))/2,0);A$;CHR$5;:ENDPROC
  550DEFPROCla:CLS:VDU28,0,0,19,0,17,129:PROCh("    HeadFirst 1991"):VDU28,0,31,19,31,17,129:PROCh("PLEASE WAIT"):GCOL0,7:MOVE0,650:DRAW1279,650:PROCo(ca%,574,850):GCOL0,7:MOVE540,960:PROCma("UNO"):MOVE548,956:PROCma("UNO"):GCOL0,1:MOVE532,964:PROCma("UNO")
  560GCOL0,3:MOVE64,952:PRINT"You":MOVE1055,952:PRINT"Me":GCOL0,1:MOVE0,888:PRINT"Score":MOVE959,888:PRINT"Score":MOVE959,792:PRINT"Cards":MOVE0,792:PRINT"Cards":GCOL3,7:MOVE1023,744:PRINT;?z%:na%=?z%:MOVE64,744:PRINT;?y%:oa%=?y%:MOVE64,840:PRINT;pa%(1):MOVE1023,840:PRINT;pa%(0):PROCea:PROCh(""):ENDPROC
  570DEFFNqa(ha%):IF(ha%DIV16)=(ca%DIV16)=TRUE
  580IF(ha%MOD16)=(ca%MOD16)=TRUE
  590IF(ha%DIV16)=da%THEN=TRUE
  600IFha%=&DTHEN=TRUE
  610IFha%=&CTHEN=FNra
  620=FALSE
  630DEFFNra:LOCALm%,sa%,I:m%=da%:sa%=TRUE:FORI=1TO?y%:IF((y%?I)DIV16)=m%THENsa%=FALSE
  640NEXT:=sa%
  650DEFFNta:LOCALm%,sa%,I:m%=da%:sa%=TRUE:FORI=1TO?z%:IF((z%?I)DIV16)=m%THENsa%=FALSE
  660NEXT:=sa%
  670DEFPROCua:LOCALI,p%,q%,u%:IF?z%>24PROCfa!!!
  680VDU24,0;32;1279;618;:CLG:FORI=0TO?z%-1:p%=(IMOD8)*160
  690q%=618-((IDIV8)*200)
  700u%=z%?(I+1):PROCo(u%,p%,q%):NEXT:VDU24,0;0;1279;1023;:ENDPROC
  710DEFFNva(ha%):LOCALx%:x%=z%?ha%:FORI=ha%+1TO?z%:z%?(I-1)=z%?I:NEXT:?z%=?z%-1:=x%
  720DEFPROCwa(ha%):?z%=?z%+1:z%?(?z%)=ha%:ENDPROC
  730DEFFNxa(ha%):IF(ha%DIV16)=0THEN=50
  740IF(ha%MOD16)<10THEN=ha%MOD16
  750=20
  760DEFFNya(ha%):LOCALza%,ya%:za%=z%?ha%:ya%=FNxa(za%):IF(za%MOD16)=&DAND?y%>2ya%=ya%+25
  770IF(za%MOD16)=&A ya%=ya%+2
  780=ABS(FNab(za%))*(ya%+1)
  790DEFPROCb:DIMk%108,n%108:PROCv:DIMy%24,z%24,m%4:DIMpa%(1):e%=RND(2)-1:g%=0:DIMbb$(4):FORI=1TO4:READbb$(I):NEXT:ENDPROC
  800DEFFNcb:LOCALdb%,I:db%=0:FORI=1TO?z%:IFFNya(I)>50ANDdb%>0AND?y%>3NEXT:=db%
  810IFFNya(I)>db%db%=I
  820NEXT:=db%
  830DEFFNab(ha%):IF(ha%DIV16)=(ca%DIV16)=TRUE
  840IF(ha%MOD16)=(ca%MOD16)=TRUE
  850IF(ha%DIV16)=da%=TRUE
  860IFha%=&DTHEN=TRUE
  870IFha%=&C=FNta
  880=FALSE
  890DEFFNeb(d%):IFd%=0THEN=FNfb
  900IFd%=1THEN=FNgb
  910DEFFNfb:LOCALI,db%:FORI=1TO4:m%?I=0:NEXT:FORI=1TO?z%:m%?(z%?IDIV16)=m%?(z%?IDIV16)+FNxa(z%?I)+1:NEXT:db%=0:FORI=1TO4:IFm%?I>db%db%=I
  920NEXT:IFdb%=0db%=RND(4)
  930PROCh("Colour:"+bb$(db%)):=db%
  940DEFFNgb:PROCh("Choose colour..."):REPEATOSCLI"FX21,0":A$=GET$:UNTILINSTR("RGYB",A$):=INSTR("RGYB",A$)
  950DEFPROCf:PROCla:IFca%<&10da%=FNeb(d%)
  960REPEAThb%=FNib(d%):IFhb%PROCo(ca%,574,850):?n%=?n%+1:n%?(?n%)=ca%
  970IFd%=1PROCh(""):MOVE64,744:GCOL3,7:PRINT;oa%:MOVE64,744:PRINT;?y%:oa%=?y%:IFhb%AND?y%<>0PROCea
  980IFd%=0MOVE1023,744:GCOL3,7:PRINT;na%:MOVE1023,744:PRINT;?z%:na%=?z%
  990d%=d%EOR1:UNTIL(?y%=0OR?z%=0)ANDaa%=0ANDba%=0:IF?y%=0PROCh("You Won")ELSEPROCh("I Won")
 1000IF?y%=0PROCua:GCOL3,7:MOVE64,840:PRINT;pa%(1):pa%(1)=pa%(1)+FNjb(1):MOVE64,840:PRINT;pa%(1)
 1010IF?z%=0GCOL3,7:MOVE1023,840:PRINT;pa%(0):pa%(0)=pa%(0)+FNjb(0):MOVE1023,840:PRINT;pa%(0)
 1020IFpa%(0)>499ORpa%(1)>499PROCkb:g%=TRUE
 1030ENDPROC
 1040DEFFNib(d%):IFd%=0=FNz
 1050IFd%=1=FNy
 1060DEFFNz:LOCALx%:IFba%>0FORI=1TOba%:PROCwa(FNw):NEXT:ba%=0:=0
 1070IFba%<0ba%=0:=0
 1080x%=FNcb:IFx%=0PROCwa(FNw):IFFNab(z%?(?z%))ca%=FNva(?z%):GOTO1110
 1090IFx%=0:=0
 1100ca%=FNva(x%)
 1110IFca%<&10da%=FNfbELSEda%=(ca%DIV16)
 1120IFca%=&C aa%=4ELSEIF(ca%MOD16)=&A aa%=2ELSEaa%=0
 1130IF(ca%MOD16)=&B aa%=-1
 1140=-1
 1150DEFFNy:LOCALx%:IFaa%>0FORI=1TOaa%:PROCia(FNw):NEXT:aa%=0:=0
 1160IFaa%<0aa%=0:=0
 1170REPEATSOUND1,-15,200,1:x%=FNja::IFy%?x%=&CANDFNqa(y%?x%)=0PROCh("Penalty: 4 cards"):VDU7:FORI=1TO4:PROCia(FNw):NEXT:UNTIL1:PROCh(""):=0
 1180UNTILFNqa(y%?x%)ORx%=0:IFx%=0PROCia(FNw):MOVE(((?y%-1)MOD8)*160)+132,541-(((?y%-1)DIV8)*200):GCOL3,7:VDU142:REPEATOSCLI"FX21,0":A$=GET$:UNTILINSTR("P"+CHR$13,A$):MOVE(((?y%-1)MOD8)*160)+132,541-(((?y%-1)DIV8)*200):VDU142
 1190IFx%=0ANDA$="P"=0ELSEIFx%=0x%=?y%:IFy%?x%=&CANDFNqa(y%?x%)=0PROCh("Penalty: 4 cards"):VDU7:FORI=1TO4:PROCia(FNw):NEXT:UNTIL1:PROCh(""):=0
 1200IFFNqa(y%?x%)=0:=0
 1210ca%=FNga(x%):IFca%<&10da%=FNgbELSEda%=ca%DIV16
 1220IFca%=&C ba%=4ELSEIF(ca%MOD16)=&A ba%=2ELSEba%=0
 1230IF(ca%MOD16)=&B ba%=-1
 1240=-1
 1250DEFFNlb:LOCALI,ya%:ya%=0:FORI=1TO?y%:ya%=ya%+FNxa(y%?I):NEXT:=ya%
 1260DEFFNmb:LOCALI,ya%:ya%=0:FORI=1TO?z%:ya%=ya%+FNxa(z%?I):NEXT:=ya%
 1270DEFFNjb(d%):IFd%=0=FNlb
 1280IFd%=1=FNmb
 1290DEFPROCkb:LOCALnb%,ob,pb:RESTORE1310:nb%=6:FORI=1TO7:READob,pb:SOUND1,-15,ob,pb*nb%
 1300SOUND1,0,0,0:NEXT:ENDPROC
 1310DATA52,2,52,0.5,52,0.5,60,1,52,1,60,1,68,3
 1320DEFPROCma(B$):FORK=1TOLEN(B$):A$=MID$(B$,K,1):A%=&A:X%=&70:Y%=0:?&70=ASC(A$):CALL&FFF1:VDU23,254:FORI=&71TO&74:VDU?I,?I:NEXT:VDU23,255:FORI=&75TO&78:VDU?I,?I:NEXT:VDU254,10,8,255,11:NEXT:ENDPROC

m� �>&E00 �"KEY0 P%=PA.|MFORI=0 TO (TOP-PAGE)STEP4:I!&E00=I!P%:NEXT|MPA.=&E00|MO.|MRUN|M":�"FX138,0,128":�

*FX200 3
�Red,Green,Yellow,Blue
�a
(c�6:�b:�2:��c:d%=e%:�f:e%=e%�1:�g%:�h("Another game?"):��"FX21,0":A$=�:��"YN",A$):�A$="Y"�:�Th@
2��0
<R��i(j%):�R%,I%,T%:R%=�(-�):�I%=1�j%:R%=�(j%):T%=k%?R%:k%?R%=k%?I%:k%?I%=T%:�:�
F��l:�m:I=1:�m=1�4:A%=m*16
Pb�k(A%):�J=1�10:�k(A%+J):�k(A%+J):�:�J=1�4:�k(A%+11):�:�:�J=1�4:�k(12):�k(13):�:?k%=I-1:?n%=0:�
Z��k(A%):k%?I=A%:I=I+1:�
d���o(A%,p%,q%):�0,(A%�16):�p%,q%:�p%,q%-186:�85,p%+124,q%:�85,p%+124,q%-186:�0,7:�p%,q%:�p%,q%-186:�p%+124,q%-186:�p%+124,q%:�p%,q%:�A%�16�r(7)��r(0)
n�(A%�16)=0A%=A%�&70
x��0,0:�p%+30,q%-77:�5,(A%�16)+144:�p%+46,q%-77:�(A%�16)+144:�p%+38,q%-73:�(A%�16)+144:�p%+38,q%-81:�(A%�16)+144:�p%+38,q%-77:�0,(A%�16):�(A%�16)+144:�0,7:�p%+16,q%-8:�((A%�16)+128):�p%+116-32,q%-8:�((A%�16)+128)
�K�p%+116-32,q%-178+32:�((A%�16)+128):�p%+16,q%-178+32:�((A%�16)+128):�
�/��r(I):�s%,J:s%=11:�p%+8,q%-138:�I�0,I��0,2
�<�p%+8,q%-93:�85,p%+62,q%-138:�85,p%+62,q%-93:�I�0,I��0,4
�K�p%+116,q%-48:�p%+116,q%-93:�85,p%+62,q%-48:�85,p%+62,q%-93:�I�0,I��0,1
�5�J=45�(89-s%)�s%:�p%+62+(54*t(J)),q%-93+(45*u(J))
�:�p%+62,q%-93:�85,p%+62+(54*t(J+s%)),q%-93+(45*u(J+s%))
��:�I�0,I��0,3
�4�J=0�(44-s%)�s%:�p%+70+(46*t(J)),q%-93+(45*u(J))
�:�p%+70,q%-93:�85,p%+70+(46*t(J+s%)),q%-93+(45*u(J+s%))
�A�:�0,I:�p%+62,q%-48:�p%+62,q%-138:�p%+8,q%-93:�p%+116,q%-93:�
�0��v:�t(90),u(90):�I=45�89:t(I)=�(�(I*2+180))
�u(I)=�(�(I*2+180))
�+�:�I=0�44:u(I)=t(45+I):t(I)=u(45+I):�:�
��a:*FX20,0
�
"Dݤw:�x%:�?k%=0�I=0�?n%-1:k%?I=n%?I:�:n%?1=n%?(?n%):?n%=1:�i(?k%)
,x%=k%?(?k%):?k%=?k%-1:=x%
6L��c:�I:?y%=7:?z%=7:�l:�i(108):?n%=0:aa%=0:ba%=0:�I=1�7:y%?I=�w:z%?I=�w:�
@1ca%=�w:?n%=?n%+1:n%?1=ca%:�(ca%�16)da%=ca%�16
J�e%=1�D^A
T3�ca%�16=&B ba%=-1��ca%�16=&A ba%=2��ca%=&C�D@A
^
�e%=0�
h3�ca%�16=&B aa%=-1��ca%�16=&A aa%=2��ca%=&C�D@A
r�
|"��ea:�I,p%,q%,u%:�?y%>24�fa!!!
�0�24,0;32;1279;618;:�:�I=0�?y%-1:p%=(I�8)*160
�q%=618-((I�8)*200)
�3u%=y%?(I+1):�o(u%,p%,q%):�:�24,0;0;1279;1023;:�
�Hݤga(ha%):�x%,I:x%=y%?ha%:�I=ha%+1�?y%:y%?(I-1)=y%?I:�:?y%=?y%-1:=x%
�R��ia(ha%):?y%=?y%+1:y%?(?y%)=ha%:�o(ha%,((?y%-1)�8)*160,618-(((?y%-1)�8)*200))
��
�Mݤja:�ka%,p%,q%:ka%=1:�3,7:p%=0:����-74:��-122�ka%<?y%ka%=ka%+1:����-122
� �-26�ka%>1ka%=ka%-1:����-26
�&�-42�ka%<(?y%-7)ka%=ka%+8:����-42
� �-58�ka%>8ka%=ka%-8:����-58
�p%=(((ka%-1)�8)*160)+132
�q%=541-(((ka%-1)�8)*200)
��p%<>0�p%,q%:*FX19
�142:�p%,q%:*FX19
!�142:��-74��-56:�-56�=0�=ka%
,��h(A$):�4;�12�(20-�(A$))/2,0);A$;�5;:�
&���la:�:�28,0,0,19,0,17,129:�h("    HeadFirst 1991"):�28,0,31,19,31,17,129:�h("PLEASE WAIT"):�0,7:�0,650:�1279,650:�o(ca%,574,850):�0,7:�540,960:�ma("UNO"):�548,956:�ma("UNO"):�0,1:�532,964:�ma("UNO")
0��0,3:�64,952:�"You":�1055,952:�"Me":�0,1:�0,888:�"Score":�959,888:�"Score":�959,792:�"Cards":�0,792:�"Cards":�3,7:�1023,744:�;?z%:na%=?z%:�64,744:�;?y%:oa%=?y%:�64,840:�;pa%(1):�1023,840:�;pa%(0):�ea:�h(""):�
:"ݤqa(ha%):�(ha%�16)=(ca%�16)=�
D�(ha%�16)=(ca%�16)=�
N�(ha%�16)=da%�=�
X�ha%=&D�=�
b�ha%=&C�=�ra
l=�
v>ݤra:�m%,sa%,I:m%=da%:sa%=�:�I=1�?y%:�((y%?I)�16)=m%�sa%=�
�
�:=sa%
�>ݤta:�m%,sa%,I:m%=da%:sa%=�:�I=1�?z%:�((z%?I)�16)=m%�sa%=�
�
�:=sa%
�"��ua:�I,p%,q%,u%:�?z%>24�fa!!!
�0�24,0;32;1279;618;:�:�I=0�?z%-1:p%=(I�8)*160
�q%=618-((I�8)*200)
�3u%=z%?(I+1):�o(u%,p%,q%):�:�24,0;0;1279;1023;:�
�Fݤva(ha%):�x%:x%=z%?ha%:�I=ha%+1�?z%:z%?(I-1)=z%?I:�:?z%=?z%-1:=x%
�&��wa(ha%):?z%=?z%+1:z%?(?z%)=ha%:�
�ݤxa(ha%):�(ha%�16)=0�=50
��(ha%�16)<10�=ha%�16
�=20
�Kݤya(ha%):�za%,ya%:za%=z%?ha%:ya%=�xa(za%):�(za%�16)=&D�?y%>2ya%=ya%+25
�(za%�16)=&A ya%=ya%+2
=�(�ab(za%))*(ya%+1)
X��b:�k%108,n%108:�v:�y%24,z%24,m%4:�pa%(1):e%=�(2)-1:g%=0:�bb$(4):�I=1�4:�bb$(I):�:�
 ;ݤcb:�db%,I:db%=0:�I=1�?z%:�ya(I)>50�db%>0�?y%>3�:=db%
*�ya(I)>db%db%=I
4
�:=db%
>"ݤab(ha%):�(ha%�16)=(ca%�16)=�
H�(ha%�16)=(ca%�16)=�
R�(ha%�16)=da%=�
\�ha%=&D�=�
f�ha%=&C=�ta
p=�
zݤeb(d%):�d%=0�=�fb
��d%=1�=�gb
�lݤfb:�I,db%:�I=1�4:m%?I=0:�:�I=1�?z%:m%?(z%?I�16)=m%?(z%?I�16)+�xa(z%?I)+1:�:db%=0:�I=1�4:�m%?I>db%db%=I
��:�db%=0db%=�(4)
��h("Colour:"+bb$(db%)):=db%
�Iݤgb:�h("Choose colour..."):��"FX21,0":A$=�:��"RGYB",A$):=�"RGYB",A$)
���f:�la:�ca%<&10da%=�eb(d%)
�;�hb%=�ib(d%):�hb%�o(ca%,574,850):?n%=?n%+1:n%?(?n%)=ca%
�G�d%=1�h(""):�64,744:�3,7:�;oa%:�64,744:�;?y%:oa%=?y%:�hb%�?y%<>0�ea
�5�d%=0�1023,744:�3,7:�;na%:�1023,744:�;?z%:na%=?z%
�Fd%=d%�1:�(?y%=0�?z%=0)�aa%=0�ba%=0:�?y%=0�h("You Won")��h("I Won")
�I�?y%=0�ua:�3,7:�64,840:�;pa%(1):pa%(1)=pa%(1)+�jb(1):�64,840:�;pa%(1)
�I�?z%=0�3,7:�1023,840:�;pa%(0):pa%(0)=pa%(0)+�jb(0):�1023,840:�;pa%(0)
�"�pa%(0)>499�pa%(1)>499�kb:g%=�
�
ݤib(d%):�d%=0=�z
�d%=1=�y
$-ݤz:�x%:�ba%>0�I=1�ba%:�wa(�w):�:ba%=0:=0
.�ba%<0ba%=0:=0
88x%=�cb:�x%=0�wa(�w):�ab(z%?(?z%))ca%=�va(?z%):�DVD
B�x%=0:=0
Lca%=�va(x%)
V �ca%<&10da%=�fb�da%=(ca%�16)
`*�ca%=&C aa%=4��(ca%�16)=&A aa%=2�aa%=0
j�(ca%�16)=&B aa%=-1
t=-1
~-ݤy:�x%:�aa%>0�I=1�aa%:�ia(�w):�:aa%=0:=0
��aa%<0aa%=0:=0
�g��1,-15,200,1:x%=�ja::�y%?x%=&C��qa(y%?x%)=0�h("Penalty: 4 cards"):�7:�I=1�4:�ia(�w):�:�1:�h(""):=0
����qa(y%?x%)�x%=0:�x%=0�ia(�w):�(((?y%-1)�8)*160)+132,541-(((?y%-1)�8)*200):�3,7:�142:��"FX21,0":A$=�:��"P"+�13,A$):�(((?y%-1)�8)*160)+132,541-(((?y%-1)�8)*200):�142
�l�x%=0�A$="P"=0��x%=0x%=?y%:�y%?x%=&C��qa(y%?x%)=0�h("Penalty: 4 cards"):�7:�I=1�4:�ia(�w):�:�1:�h(""):=0
��qa(y%?x%)=0:=0
�*ca%=�ga(x%):�ca%<&10da%=�gb�da%=ca%�16
�*�ca%=&C ba%=4��(ca%�16)=&A ba%=2�ba%=0
��(ca%�16)=&B ba%=-1
�=-1
�7ݤlb:�I,ya%:ya%=0:�I=1�?y%:ya%=ya%+�xa(y%?I):�:=ya%
�7ݤmb:�I,ya%:ya%=0:�I=1�?z%:ya%=ya%+�xa(z%?I):�:=ya%
�ݤjb(d%):�d%=0=�lb

�d%=1=�mb

>��kb:�nb%,ob,pb:��T^E:nb%=6:�I=1�7:�ob,pb:�1,-15,ob,pb*nb%
�1,0,0,0:�:�
+�52,2,52,0.5,52,0.5,60,1,52,1,60,1,68,3
(���ma(B$):�K=1��(B$):A$=�B$,K,1):A%=&A:X%=&70:Y%=0:?&70=�(A$):�&FFF1:�23,254:�I=&71�&74:�?I,?I:�:�23,255:�I=&75�&78:�?I,?I:�:�254,10,8,255,11:�:�
�

00000000  0d 00 05 6d e7 20 90 3e  26 45 30 30 20 ff 22 4b  |...m. .>&E00 ."K|
00000010  45 59 30 20 50 25 3d 50  41 2e 7c 4d 46 4f 52 49  |EY0 P%=PA.|MFORI|
00000020  3d 30 20 54 4f 20 28 54  4f 50 2d 50 41 47 45 29  |=0 TO (TOP-PAGE)|
00000030  53 54 45 50 34 3a 49 21  26 45 30 30 3d 49 21 50  |STEP4:I!&E00=I!P|
00000040  25 3a 4e 45 58 54 7c 4d  50 41 2e 3d 26 45 30 30  |%:NEXT|MPA.=&E00|
00000050  7c 4d 4f 2e 7c 4d 52 55  4e 7c 4d 22 3a ff 22 46  ||MO.|MRUN|M":."F|
00000060  58 31 33 38 2c 30 2c 31  32 38 22 3a e0 0d 00 0a  |X138,0,128":....|
00000070  0c 2a 46 58 32 30 30 20  33 0d 00 14 1a dc 52 65  |.*FX200 3.....Re|
00000080  64 2c 47 72 65 65 6e 2c  59 65 6c 6c 6f 77 2c 42  |d,Green,Yellow,B|
00000090  6c 75 65 0d 00 1e 06 f2  61 0d 00 28 63 eb 36 3a  |lue.....a..(c.6:|
000000a0  f2 62 3a eb 32 3a f5 f2  63 3a 64 25 3d 65 25 3a  |.b:.2:..c:d%=e%:|
000000b0  f2 66 3a 65 25 3d 65 25  82 31 3a fd 67 25 3a f2  |.f:e%=e%.1:.g%:.|
000000c0  68 28 22 41 6e 6f 74 68  65 72 20 67 61 6d 65 3f  |h("Another game?|
000000d0  22 29 3a f5 ff 22 46 58  32 31 2c 30 22 3a 41 24  |"):.."FX21,0":A$|
000000e0  3d be 3a fd a7 22 59 4e  22 2c 41 24 29 3a e7 41  |=.:.."YN",A$):.A|
000000f0  24 3d 22 59 22 d8 3a e5  8d 54 68 40 0d 00 32 07  |$="Y".:..Th@..2.|
00000100  f5 fd 30 0d 00 3c 52 dd  f2 69 28 6a 25 29 3a ea  |..0..<R..i(j%):.|
00000110  52 25 2c 49 25 2c 54 25  3a 52 25 3d b3 28 2d 91  |R%,I%,T%:R%=.(-.|
00000120  29 3a e3 49 25 3d 31 b8  6a 25 3a 52 25 3d b3 28  |):.I%=1.j%:R%=.(|
00000130  6a 25 29 3a 54 25 3d 6b  25 3f 52 25 3a 6b 25 3f  |j%):T%=k%?R%:k%?|
00000140  52 25 3d 6b 25 3f 49 25  3a 6b 25 3f 49 25 3d 54  |R%=k%?I%:k%?I%=T|
00000150  25 3a ed 3a e1 0d 00 46  1d dd f2 6c 3a ea 6d 3a  |%:.:...F...l:.m:|
00000160  49 3d 31 3a e3 6d 3d 31  b8 34 3a 41 25 3d 6d 2a  |I=1:.m=1.4:A%=m*|
00000170  31 36 0d 00 50 62 f2 6b  28 41 25 29 3a e3 4a 3d  |16..Pb.k(A%):.J=|
00000180  31 b8 31 30 3a f2 6b 28  41 25 2b 4a 29 3a f2 6b  |1.10:.k(A%+J):.k|
00000190  28 41 25 2b 4a 29 3a ed  3a e3 4a 3d 31 b8 34 3a  |(A%+J):.:.J=1.4:|
000001a0  f2 6b 28 41 25 2b 31 31  29 3a ed 3a ed 3a e3 4a  |.k(A%+11):.:.:.J|
000001b0  3d 31 b8 34 3a f2 6b 28  31 32 29 3a f2 6b 28 31  |=1.4:.k(12):.k(1|
000001c0  33 29 3a ed 3a 3f 6b 25  3d 49 2d 31 3a 3f 6e 25  |3):.:?k%=I-1:?n%|
000001d0  3d 30 3a e1 0d 00 5a 1b  dd f2 6b 28 41 25 29 3a  |=0:...Z...k(A%):|
000001e0  6b 25 3f 49 3d 41 25 3a  49 3d 49 2b 31 3a e1 0d  |k%?I=A%:I=I+1:..|
000001f0  00 64 98 dd f2 6f 28 41  25 2c 70 25 2c 71 25 29  |.d...o(A%,p%,q%)|
00000200  3a e6 30 2c 28 41 25 81  31 36 29 3a ec 70 25 2c  |:.0,(A%.16):.p%,|
00000210  71 25 3a ec 70 25 2c 71  25 2d 31 38 36 3a f0 38  |q%:.p%,q%-186:.8|
00000220  35 2c 70 25 2b 31 32 34  2c 71 25 3a f0 38 35 2c  |5,p%+124,q%:.85,|
00000230  70 25 2b 31 32 34 2c 71  25 2d 31 38 36 3a e6 30  |p%+124,q%-186:.0|
00000240  2c 37 3a ec 70 25 2c 71  25 3a df 70 25 2c 71 25  |,7:.p%,q%:.p%,q%|
00000250  2d 31 38 36 3a df 70 25  2b 31 32 34 2c 71 25 2d  |-186:.p%+124,q%-|
00000260  31 38 36 3a df 70 25 2b  31 32 34 2c 71 25 3a df  |186:.p%+124,q%:.|
00000270  70 25 2c 71 25 3a e7 41  25 81 31 36 f2 72 28 37  |p%,q%:.A%.16.r(7|
00000280  29 8b f2 72 28 30 29 0d  00 6e 17 e7 28 41 25 81  |)..r(0)..n..(A%.|
00000290  31 36 29 3d 30 41 25 3d  41 25 84 26 37 30 0d 00  |16)=0A%=A%.&70..|
000002a0  78 d8 e6 30 2c 30 3a ec  70 25 2b 33 30 2c 71 25  |x..0,0:.p%+30,q%|
000002b0  2d 37 37 3a ef 35 2c 28  41 25 83 31 36 29 2b 31  |-77:.5,(A%.16)+1|
000002c0  34 34 3a ec 70 25 2b 34  36 2c 71 25 2d 37 37 3a  |44:.p%+46,q%-77:|
000002d0  ef 28 41 25 83 31 36 29  2b 31 34 34 3a ec 70 25  |.(A%.16)+144:.p%|
000002e0  2b 33 38 2c 71 25 2d 37  33 3a ef 28 41 25 83 31  |+38,q%-73:.(A%.1|
000002f0  36 29 2b 31 34 34 3a ec  70 25 2b 33 38 2c 71 25  |6)+144:.p%+38,q%|
00000300  2d 38 31 3a ef 28 41 25  83 31 36 29 2b 31 34 34  |-81:.(A%.16)+144|
00000310  3a ec 70 25 2b 33 38 2c  71 25 2d 37 37 3a e6 30  |:.p%+38,q%-77:.0|
00000320  2c 28 41 25 81 31 36 29  3a ef 28 41 25 83 31 36  |,(A%.16):.(A%.16|
00000330  29 2b 31 34 34 3a e6 30  2c 37 3a ec 70 25 2b 31  |)+144:.0,7:.p%+1|
00000340  36 2c 71 25 2d 38 3a f1  bd 28 28 41 25 83 31 36  |6,q%-8:..((A%.16|
00000350  29 2b 31 32 38 29 3a ec  70 25 2b 31 31 36 2d 33  |)+128):.p%+116-3|
00000360  32 2c 71 25 2d 38 3a f1  bd 28 28 41 25 83 31 36  |2,q%-8:..((A%.16|
00000370  29 2b 31 32 38 29 0d 00  82 4b ec 70 25 2b 31 31  |)+128)...K.p%+11|
00000380  36 2d 33 32 2c 71 25 2d  31 37 38 2b 33 32 3a f1  |6-32,q%-178+32:.|
00000390  bd 28 28 41 25 83 31 36  29 2b 31 32 38 29 3a ec  |.((A%.16)+128):.|
000003a0  70 25 2b 31 36 2c 71 25  2d 31 37 38 2b 33 32 3a  |p%+16,q%-178+32:|
000003b0  f1 bd 28 28 41 25 83 31  36 29 2b 31 32 38 29 3a  |..((A%.16)+128):|
000003c0  e1 0d 00 8c 2f dd f2 72  28 49 29 3a ea 73 25 2c  |..../..r(I):.s%,|
000003d0  4a 3a 73 25 3d 31 31 3a  ec 70 25 2b 38 2c 71 25  |J:s%=11:.p%+8,q%|
000003e0  2d 31 33 38 3a e7 49 e6  30 2c 49 8b e6 30 2c 32  |-138:.I.0,I..0,2|
000003f0  0d 00 96 3c ec 70 25 2b  38 2c 71 25 2d 39 33 3a  |...<.p%+8,q%-93:|
00000400  f0 38 35 2c 70 25 2b 36  32 2c 71 25 2d 31 33 38  |.85,p%+62,q%-138|
00000410  3a f0 38 35 2c 70 25 2b  36 32 2c 71 25 2d 39 33  |:.85,p%+62,q%-93|
00000420  3a e7 49 e6 30 2c 49 8b  e6 30 2c 34 0d 00 a0 4b  |:.I.0,I..0,4...K|
00000430  ec 70 25 2b 31 31 36 2c  71 25 2d 34 38 3a ec 70  |.p%+116,q%-48:.p|
00000440  25 2b 31 31 36 2c 71 25  2d 39 33 3a f0 38 35 2c  |%+116,q%-93:.85,|
00000450  70 25 2b 36 32 2c 71 25  2d 34 38 3a f0 38 35 2c  |p%+62,q%-48:.85,|
00000460  70 25 2b 36 32 2c 71 25  2d 39 33 3a e7 49 e6 30  |p%+62,q%-93:.I.0|
00000470  2c 49 8b e6 30 2c 31 0d  00 aa 35 e3 4a 3d 34 35  |,I..0,1...5.J=45|
00000480  b8 28 38 39 2d 73 25 29  88 73 25 3a ec 70 25 2b  |.(89-s%).s%:.p%+|
00000490  36 32 2b 28 35 34 2a 74  28 4a 29 29 2c 71 25 2d  |62+(54*t(J)),q%-|
000004a0  39 33 2b 28 34 35 2a 75  28 4a 29 29 0d 00 b4 3a  |93+(45*u(J))...:|
000004b0  ec 70 25 2b 36 32 2c 71  25 2d 39 33 3a f0 38 35  |.p%+62,q%-93:.85|
000004c0  2c 70 25 2b 36 32 2b 28  35 34 2a 74 28 4a 2b 73  |,p%+62+(54*t(J+s|
000004d0  25 29 29 2c 71 25 2d 39  33 2b 28 34 35 2a 75 28  |%)),q%-93+(45*u(|
000004e0  4a 2b 73 25 29 29 0d 00  be 11 ed 3a e7 49 e6 30  |J+s%)).....:.I.0|
000004f0  2c 49 8b e6 30 2c 33 0d  00 c8 34 e3 4a 3d 30 b8  |,I..0,3...4.J=0.|
00000500  28 34 34 2d 73 25 29 88  73 25 3a ec 70 25 2b 37  |(44-s%).s%:.p%+7|
00000510  30 2b 28 34 36 2a 74 28  4a 29 29 2c 71 25 2d 39  |0+(46*t(J)),q%-9|
00000520  33 2b 28 34 35 2a 75 28  4a 29 29 0d 00 d2 3a ec  |3+(45*u(J))...:.|
00000530  70 25 2b 37 30 2c 71 25  2d 39 33 3a f0 38 35 2c  |p%+70,q%-93:.85,|
00000540  70 25 2b 37 30 2b 28 34  36 2a 74 28 4a 2b 73 25  |p%+70+(46*t(J+s%|
00000550  29 29 2c 71 25 2d 39 33  2b 28 34 35 2a 75 28 4a  |)),q%-93+(45*u(J|
00000560  2b 73 25 29 29 0d 00 dc  41 ed 3a e6 30 2c 49 3a  |+s%))...A.:.0,I:|
00000570  ec 70 25 2b 36 32 2c 71  25 2d 34 38 3a df 70 25  |.p%+62,q%-48:.p%|
00000580  2b 36 32 2c 71 25 2d 31  33 38 3a ec 70 25 2b 38  |+62,q%-138:.p%+8|
00000590  2c 71 25 2d 39 33 3a df  70 25 2b 31 31 36 2c 71  |,q%-93:.p%+116,q|
000005a0  25 2d 39 33 3a e1 0d 00  e6 30 dd f2 76 3a de 74  |%-93:....0..v:.t|
000005b0  28 39 30 29 2c 75 28 39  30 29 3a e3 49 3d 34 35  |(90),u(90):.I=45|
000005c0  b8 38 39 3a 74 28 49 29  3d b5 28 b2 28 49 2a 32  |.89:t(I)=.(.(I*2|
000005d0  2b 31 38 30 29 29 0d 00  f0 16 75 28 49 29 3d 9b  |+180))....u(I)=.|
000005e0  28 b2 28 49 2a 32 2b 31  38 30 29 29 0d 00 fa 2b  |(.(I*2+180))...+|
000005f0  ed 3a e3 49 3d 30 b8 34  34 3a 75 28 49 29 3d 74  |.:.I=0.44:u(I)=t|
00000600  28 34 35 2b 49 29 3a 74  28 49 29 3d 75 28 34 35  |(45+I):t(I)=u(45|
00000610  2b 49 29 3a ed 3a e1 0d  01 04 0f dd f2 61 3a 2a  |+I):.:.......a:*|
00000620  46 58 32 30 2c 30 0d 01  18 05 e1 0d 01 22 44 dd  |FX20,0......."D.|
00000630  a4 77 3a ea 78 25 3a e7  3f 6b 25 3d 30 e3 49 3d  |.w:.x%:.?k%=0.I=|
00000640  30 b8 3f 6e 25 2d 31 3a  6b 25 3f 49 3d 6e 25 3f  |0.?n%-1:k%?I=n%?|
00000650  49 3a ed 3a 6e 25 3f 31  3d 6e 25 3f 28 3f 6e 25  |I:.:n%?1=n%?(?n%|
00000660  29 3a 3f 6e 25 3d 31 3a  f2 69 28 3f 6b 25 29 0d  |):?n%=1:.i(?k%).|
00000670  01 2c 1d 78 25 3d 6b 25  3f 28 3f 6b 25 29 3a 3f  |.,.x%=k%?(?k%):?|
00000680  6b 25 3d 3f 6b 25 2d 31  3a 3d 78 25 0d 01 36 4c  |k%=?k%-1:=x%..6L|
00000690  dd f2 63 3a ea 49 3a 3f  79 25 3d 37 3a 3f 7a 25  |..c:.I:?y%=7:?z%|
000006a0  3d 37 3a f2 6c 3a f2 69  28 31 30 38 29 3a 3f 6e  |=7:.l:.i(108):?n|
000006b0  25 3d 30 3a 61 61 25 3d  30 3a 62 61 25 3d 30 3a  |%=0:aa%=0:ba%=0:|
000006c0  e3 49 3d 31 b8 37 3a 79  25 3f 49 3d a4 77 3a 7a  |.I=1.7:y%?I=.w:z|
000006d0  25 3f 49 3d a4 77 3a ed  0d 01 40 31 63 61 25 3d  |%?I=.w:...@1ca%=|
000006e0  a4 77 3a 3f 6e 25 3d 3f  6e 25 2b 31 3a 6e 25 3f  |.w:?n%=?n%+1:n%?|
000006f0  31 3d 63 61 25 3a e7 28  63 61 25 81 31 36 29 64  |1=ca%:.(ca%.16)d|
00000700  61 25 3d 63 61 25 81 31  36 0d 01 4a 0e e7 65 25  |a%=ca%.16..J..e%|
00000710  3d 31 e5 8d 44 5e 41 0d  01 54 33 e7 63 61 25 83  |=1..D^A..T3.ca%.|
00000720  31 36 3d 26 42 20 62 61  25 3d 2d 31 8b e7 63 61  |16=&B ba%=-1..ca|
00000730  25 83 31 36 3d 26 41 20  62 61 25 3d 32 8b e7 63  |%.16=&A ba%=2..c|
00000740  61 25 3d 26 43 e5 8d 44  40 41 0d 01 5e 0a e7 65  |a%=&C..D@A..^..e|
00000750  25 3d 30 e1 0d 01 68 33  e7 63 61 25 83 31 36 3d  |%=0...h3.ca%.16=|
00000760  26 42 20 61 61 25 3d 2d  31 8b e7 63 61 25 83 31  |&B aa%=-1..ca%.1|
00000770  36 3d 26 41 20 61 61 25  3d 32 8b e7 63 61 25 3d  |6=&A aa%=2..ca%=|
00000780  26 43 e5 8d 44 40 41 0d  01 72 05 e1 0d 01 7c 22  |&C..D@A..r....|"|
00000790  dd f2 65 61 3a ea 49 2c  70 25 2c 71 25 2c 75 25  |..ea:.I,p%,q%,u%|
000007a0  3a e7 3f 79 25 3e 32 34  f2 66 61 21 21 21 0d 01  |:.?y%>24.fa!!!..|
000007b0  86 30 ef 32 34 2c 30 3b  33 32 3b 31 32 37 39 3b  |.0.24,0;32;1279;|
000007c0  36 31 38 3b 3a da 3a e3  49 3d 30 b8 3f 79 25 2d  |618;:.:.I=0.?y%-|
000007d0  31 3a 70 25 3d 28 49 83  38 29 2a 31 36 30 0d 01  |1:p%=(I.8)*160..|
000007e0  90 16 71 25 3d 36 31 38  2d 28 28 49 81 38 29 2a  |..q%=618-((I.8)*|
000007f0  32 30 30 29 0d 01 9a 33  75 25 3d 79 25 3f 28 49  |200)...3u%=y%?(I|
00000800  2b 31 29 3a f2 6f 28 75  25 2c 70 25 2c 71 25 29  |+1):.o(u%,p%,q%)|
00000810  3a ed 3a ef 32 34 2c 30  3b 30 3b 31 32 37 39 3b  |:.:.24,0;0;1279;|
00000820  31 30 32 33 3b 3a e1 0d  01 a4 48 dd a4 67 61 28  |1023;:....H..ga(|
00000830  68 61 25 29 3a ea 78 25  2c 49 3a 78 25 3d 79 25  |ha%):.x%,I:x%=y%|
00000840  3f 68 61 25 3a e3 49 3d  68 61 25 2b 31 b8 3f 79  |?ha%:.I=ha%+1.?y|
00000850  25 3a 79 25 3f 28 49 2d  31 29 3d 79 25 3f 49 3a  |%:y%?(I-1)=y%?I:|
00000860  ed 3a 3f 79 25 3d 3f 79  25 2d 31 3a 3d 78 25 0d  |.:?y%=?y%-1:=x%.|
00000870  01 ae 52 dd f2 69 61 28  68 61 25 29 3a 3f 79 25  |..R..ia(ha%):?y%|
00000880  3d 3f 79 25 2b 31 3a 79  25 3f 28 3f 79 25 29 3d  |=?y%+1:y%?(?y%)=|
00000890  68 61 25 3a f2 6f 28 68  61 25 2c 28 28 3f 79 25  |ha%:.o(ha%,((?y%|
000008a0  2d 31 29 83 38 29 2a 31  36 30 2c 36 31 38 2d 28  |-1).8)*160,618-(|
000008b0  28 28 3f 79 25 2d 31 29  81 38 29 2a 32 30 30 29  |((?y%-1).8)*200)|
000008c0  29 0d 01 b8 05 e1 0d 01  c2 4d dd a4 6a 61 3a ea  |)........M..ja:.|
000008d0  6b 61 25 2c 70 25 2c 71  25 3a 6b 61 25 3d 31 3a  |ka%,p%,q%:ka%=1:|
000008e0  e6 33 2c 37 3a 70 25 3d  30 3a f5 fd ac a6 2d 37  |.3,7:p%=0:....-7|
000008f0  34 3a f5 e7 a6 2d 31 32  32 80 6b 61 25 3c 3f 79  |4:...-122.ka%<?y|
00000900  25 6b 61 25 3d 6b 61 25  2b 31 3a f5 fd ac a6 2d  |%ka%=ka%+1:....-|
00000910  31 32 32 0d 01 cc 20 e7  a6 2d 32 36 80 6b 61 25  |122... ..-26.ka%|
00000920  3e 31 6b 61 25 3d 6b 61  25 2d 31 3a f5 fd ac a6  |>1ka%=ka%-1:....|
00000930  2d 32 36 0d 01 d6 26 e7  a6 2d 34 32 80 6b 61 25  |-26...&..-42.ka%|
00000940  3c 28 3f 79 25 2d 37 29  6b 61 25 3d 6b 61 25 2b  |<(?y%-7)ka%=ka%+|
00000950  38 3a f5 fd ac a6 2d 34  32 0d 01 e0 20 e7 a6 2d  |8:....-42... ..-|
00000960  35 38 80 6b 61 25 3e 38  6b 61 25 3d 6b 61 25 2d  |58.ka%>8ka%=ka%-|
00000970  38 3a f5 fd ac a6 2d 35  38 0d 01 ea 1c 70 25 3d  |8:....-58....p%=|
00000980  28 28 28 6b 61 25 2d 31  29 83 38 29 2a 31 36 30  |(((ka%-1).8)*160|
00000990  29 2b 31 33 32 0d 01 f4  1c 71 25 3d 35 34 31 2d  |)+132....q%=541-|
000009a0  28 28 28 6b 61 25 2d 31  29 81 38 29 2a 32 30 30  |(((ka%-1).8)*200|
000009b0  29 0d 01 fe 16 e7 70 25  3c 3e 30 ec 70 25 2c 71  |).....p%<>0.p%,q|
000009c0  25 3a 2a 46 58 31 39 0d  02 08 15 ef 31 34 32 3a  |%:*FX19.....142:|
000009d0  ec 70 25 2c 71 25 3a 2a  46 58 31 39 0d 02 12 21  |.p%,q%:*FX19...!|
000009e0  ef 31 34 32 3a fd a6 2d  37 34 84 a6 2d 35 36 3a  |.142:..-74..-56:|
000009f0  e7 a6 2d 35 36 8c 3d 30  8b 3d 6b 61 25 0d 02 1c  |..-56.=0.=ka%...|
00000a00  2c dd f2 68 28 41 24 29  3a f1 bd 34 3b bd 31 32  |,..h(A$):..4;.12|
00000a10  8a 28 32 30 2d a9 28 41  24 29 29 2f 32 2c 30 29  |.(20-.(A$))/2,0)|
00000a20  3b 41 24 3b bd 35 3b 3a  e1 0d 02 26 cb dd f2 6c  |;A$;.5;:...&...l|
00000a30  61 3a db 3a ef 32 38 2c  30 2c 30 2c 31 39 2c 30  |a:.:.28,0,0,19,0|
00000a40  2c 31 37 2c 31 32 39 3a  f2 68 28 22 20 20 20 20  |,17,129:.h("    |
00000a50  48 65 61 64 46 69 72 73  74 20 31 39 39 31 22 29  |HeadFirst 1991")|
00000a60  3a ef 32 38 2c 30 2c 33  31 2c 31 39 2c 33 31 2c  |:.28,0,31,19,31,|
00000a70  31 37 2c 31 32 39 3a f2  68 28 22 50 4c 45 41 53  |17,129:.h("PLEAS|
00000a80  45 20 57 41 49 54 22 29  3a e6 30 2c 37 3a ec 30  |E WAIT"):.0,7:.0|
00000a90  2c 36 35 30 3a df 31 32  37 39 2c 36 35 30 3a f2  |,650:.1279,650:.|
00000aa0  6f 28 63 61 25 2c 35 37  34 2c 38 35 30 29 3a e6  |o(ca%,574,850):.|
00000ab0  30 2c 37 3a ec 35 34 30  2c 39 36 30 3a f2 6d 61  |0,7:.540,960:.ma|
00000ac0  28 22 55 4e 4f 22 29 3a  ec 35 34 38 2c 39 35 36  |("UNO"):.548,956|
00000ad0  3a f2 6d 61 28 22 55 4e  4f 22 29 3a e6 30 2c 31  |:.ma("UNO"):.0,1|
00000ae0  3a ec 35 33 32 2c 39 36  34 3a f2 6d 61 28 22 55  |:.532,964:.ma("U|
00000af0  4e 4f 22 29 0d 02 30 d4  e6 30 2c 33 3a ec 36 34  |NO")..0..0,3:.64|
00000b00  2c 39 35 32 3a f1 22 59  6f 75 22 3a ec 31 30 35  |,952:."You":.105|
00000b10  35 2c 39 35 32 3a f1 22  4d 65 22 3a e6 30 2c 31  |5,952:."Me":.0,1|
00000b20  3a ec 30 2c 38 38 38 3a  f1 22 53 63 6f 72 65 22  |:.0,888:."Score"|
00000b30  3a ec 39 35 39 2c 38 38  38 3a f1 22 53 63 6f 72  |:.959,888:."Scor|
00000b40  65 22 3a ec 39 35 39 2c  37 39 32 3a f1 22 43 61  |e":.959,792:."Ca|
00000b50  72 64 73 22 3a ec 30 2c  37 39 32 3a f1 22 43 61  |rds":.0,792:."Ca|
00000b60  72 64 73 22 3a e6 33 2c  37 3a ec 31 30 32 33 2c  |rds":.3,7:.1023,|
00000b70  37 34 34 3a f1 3b 3f 7a  25 3a 6e 61 25 3d 3f 7a  |744:.;?z%:na%=?z|
00000b80  25 3a ec 36 34 2c 37 34  34 3a f1 3b 3f 79 25 3a  |%:.64,744:.;?y%:|
00000b90  6f 61 25 3d 3f 79 25 3a  ec 36 34 2c 38 34 30 3a  |oa%=?y%:.64,840:|
00000ba0  f1 3b 70 61 25 28 31 29  3a ec 31 30 32 33 2c 38  |.;pa%(1):.1023,8|
00000bb0  34 30 3a f1 3b 70 61 25  28 30 29 3a f2 65 61 3a  |40:.;pa%(0):.ea:|
00000bc0  f2 68 28 22 22 29 3a e1  0d 02 3a 22 dd a4 71 61  |.h(""):...:"..qa|
00000bd0  28 68 61 25 29 3a e7 28  68 61 25 81 31 36 29 3d  |(ha%):.(ha%.16)=|
00000be0  28 63 61 25 81 31 36 29  3d b9 0d 02 44 18 e7 28  |(ca%.16)=...D..(|
00000bf0  68 61 25 83 31 36 29 3d  28 63 61 25 83 31 36 29  |ha%.16)=(ca%.16)|
00000c00  3d b9 0d 02 4e 14 e7 28  68 61 25 81 31 36 29 3d  |=...N..(ha%.16)=|
00000c10  64 61 25 8c 3d b9 0d 02  58 0e e7 68 61 25 3d 26  |da%.=...X..ha%=&|
00000c20  44 8c 3d b9 0d 02 62 10  e7 68 61 25 3d 26 43 8c  |D.=...b..ha%=&C.|
00000c30  3d a4 72 61 0d 02 6c 06  3d a3 0d 02 76 3e dd a4  |=.ra..l.=...v>..|
00000c40  72 61 3a ea 6d 25 2c 73  61 25 2c 49 3a 6d 25 3d  |ra:.m%,sa%,I:m%=|
00000c50  64 61 25 3a 73 61 25 3d  b9 3a e3 49 3d 31 b8 3f  |da%:sa%=.:.I=1.?|
00000c60  79 25 3a e7 28 28 79 25  3f 49 29 81 31 36 29 3d  |y%:.((y%?I).16)=|
00000c70  6d 25 8c 73 61 25 3d a3  0d 02 80 0a ed 3a 3d 73  |m%.sa%=......:=s|
00000c80  61 25 0d 02 8a 3e dd a4  74 61 3a ea 6d 25 2c 73  |a%...>..ta:.m%,s|
00000c90  61 25 2c 49 3a 6d 25 3d  64 61 25 3a 73 61 25 3d  |a%,I:m%=da%:sa%=|
00000ca0  b9 3a e3 49 3d 31 b8 3f  7a 25 3a e7 28 28 7a 25  |.:.I=1.?z%:.((z%|
00000cb0  3f 49 29 81 31 36 29 3d  6d 25 8c 73 61 25 3d a3  |?I).16)=m%.sa%=.|
00000cc0  0d 02 94 0a ed 3a 3d 73  61 25 0d 02 9e 22 dd f2  |.....:=sa%..."..|
00000cd0  75 61 3a ea 49 2c 70 25  2c 71 25 2c 75 25 3a e7  |ua:.I,p%,q%,u%:.|
00000ce0  3f 7a 25 3e 32 34 f2 66  61 21 21 21 0d 02 a8 30  |?z%>24.fa!!!...0|
00000cf0  ef 32 34 2c 30 3b 33 32  3b 31 32 37 39 3b 36 31  |.24,0;32;1279;61|
00000d00  38 3b 3a da 3a e3 49 3d  30 b8 3f 7a 25 2d 31 3a  |8;:.:.I=0.?z%-1:|
00000d10  70 25 3d 28 49 83 38 29  2a 31 36 30 0d 02 b2 16  |p%=(I.8)*160....|
00000d20  71 25 3d 36 31 38 2d 28  28 49 81 38 29 2a 32 30  |q%=618-((I.8)*20|
00000d30  30 29 0d 02 bc 33 75 25  3d 7a 25 3f 28 49 2b 31  |0)...3u%=z%?(I+1|
00000d40  29 3a f2 6f 28 75 25 2c  70 25 2c 71 25 29 3a ed  |):.o(u%,p%,q%):.|
00000d50  3a ef 32 34 2c 30 3b 30  3b 31 32 37 39 3b 31 30  |:.24,0;0;1279;10|
00000d60  32 33 3b 3a e1 0d 02 c6  46 dd a4 76 61 28 68 61  |23;:....F..va(ha|
00000d70  25 29 3a ea 78 25 3a 78  25 3d 7a 25 3f 68 61 25  |%):.x%:x%=z%?ha%|
00000d80  3a e3 49 3d 68 61 25 2b  31 b8 3f 7a 25 3a 7a 25  |:.I=ha%+1.?z%:z%|
00000d90  3f 28 49 2d 31 29 3d 7a  25 3f 49 3a ed 3a 3f 7a  |?(I-1)=z%?I:.:?z|
00000da0  25 3d 3f 7a 25 2d 31 3a  3d 78 25 0d 02 d0 26 dd  |%=?z%-1:=x%...&.|
00000db0  f2 77 61 28 68 61 25 29  3a 3f 7a 25 3d 3f 7a 25  |.wa(ha%):?z%=?z%|
00000dc0  2b 31 3a 7a 25 3f 28 3f  7a 25 29 3d 68 61 25 3a  |+1:z%?(?z%)=ha%:|
00000dd0  e1 0d 02 da 1d dd a4 78  61 28 68 61 25 29 3a e7  |.......xa(ha%):.|
00000de0  28 68 61 25 81 31 36 29  3d 30 8c 3d 35 30 0d 02  |(ha%.16)=0.=50..|
00000df0  e4 18 e7 28 68 61 25 83  31 36 29 3c 31 30 8c 3d  |...(ha%.16)<10.=|
00000e00  68 61 25 83 31 36 0d 02  ee 07 3d 32 30 0d 02 f8  |ha%.16....=20...|
00000e10  4b dd a4 79 61 28 68 61  25 29 3a ea 7a 61 25 2c  |K..ya(ha%):.za%,|
00000e20  79 61 25 3a 7a 61 25 3d  7a 25 3f 68 61 25 3a 79  |ya%:za%=z%?ha%:y|
00000e30  61 25 3d a4 78 61 28 7a  61 25 29 3a e7 28 7a 61  |a%=.xa(za%):.(za|
00000e40  25 83 31 36 29 3d 26 44  80 3f 79 25 3e 32 79 61  |%.16)=&D.?y%>2ya|
00000e50  25 3d 79 61 25 2b 32 35  0d 03 02 1a e7 28 7a 61  |%=ya%+25.....(za|
00000e60  25 83 31 36 29 3d 26 41  20 79 61 25 3d 79 61 25  |%.16)=&A ya%=ya%|
00000e70  2b 32 0d 03 0c 18 3d 94  28 a4 61 62 28 7a 61 25  |+2....=.(.ab(za%|
00000e80  29 29 2a 28 79 61 25 2b  31 29 0d 03 16 58 dd f2  |))*(ya%+1)...X..|
00000e90  62 3a de 6b 25 31 30 38  2c 6e 25 31 30 38 3a f2  |b:.k%108,n%108:.|
00000ea0  76 3a de 79 25 32 34 2c  7a 25 32 34 2c 6d 25 34  |v:.y%24,z%24,m%4|
00000eb0  3a de 70 61 25 28 31 29  3a 65 25 3d b3 28 32 29  |:.pa%(1):e%=.(2)|
00000ec0  2d 31 3a 67 25 3d 30 3a  de 62 62 24 28 34 29 3a  |-1:g%=0:.bb$(4):|
00000ed0  e3 49 3d 31 b8 34 3a f3  62 62 24 28 49 29 3a ed  |.I=1.4:.bb$(I):.|
00000ee0  3a e1 0d 03 20 3b dd a4  63 62 3a ea 64 62 25 2c  |:... ;..cb:.db%,|
00000ef0  49 3a 64 62 25 3d 30 3a  e3 49 3d 31 b8 3f 7a 25  |I:db%=0:.I=1.?z%|
00000f00  3a e7 a4 79 61 28 49 29  3e 35 30 80 64 62 25 3e  |:..ya(I)>50.db%>|
00000f10  30 80 3f 79 25 3e 33 ed  3a 3d 64 62 25 0d 03 2a  |0.?y%>3.:=db%..*|
00000f20  14 e7 a4 79 61 28 49 29  3e 64 62 25 64 62 25 3d  |...ya(I)>db%db%=|
00000f30  49 0d 03 34 0a ed 3a 3d  64 62 25 0d 03 3e 22 dd  |I..4..:=db%..>".|
00000f40  a4 61 62 28 68 61 25 29  3a e7 28 68 61 25 81 31  |.ab(ha%):.(ha%.1|
00000f50  36 29 3d 28 63 61 25 81  31 36 29 3d b9 0d 03 48  |6)=(ca%.16)=...H|
00000f60  18 e7 28 68 61 25 83 31  36 29 3d 28 63 61 25 83  |..(ha%.16)=(ca%.|
00000f70  31 36 29 3d b9 0d 03 52  13 e7 28 68 61 25 81 31  |16)=...R..(ha%.1|
00000f80  36 29 3d 64 61 25 3d b9  0d 03 5c 0e e7 68 61 25  |6)=da%=...\..ha%|
00000f90  3d 26 44 8c 3d b9 0d 03  66 0f e7 68 61 25 3d 26  |=&D.=...f..ha%=&|
00000fa0  43 3d a4 74 61 0d 03 70  06 3d a3 0d 03 7a 17 dd  |C=.ta..p.=...z..|
00000fb0  a4 65 62 28 64 25 29 3a  e7 64 25 3d 30 8c 3d a4  |.eb(d%):.d%=0.=.|
00000fc0  66 62 0d 03 84 0e e7 64  25 3d 31 8c 3d a4 67 62  |fb.....d%=1.=.gb|
00000fd0  0d 03 8e 6c dd a4 66 62  3a ea 49 2c 64 62 25 3a  |...l..fb:.I,db%:|
00000fe0  e3 49 3d 31 b8 34 3a 6d  25 3f 49 3d 30 3a ed 3a  |.I=1.4:m%?I=0:.:|
00000ff0  e3 49 3d 31 b8 3f 7a 25  3a 6d 25 3f 28 7a 25 3f  |.I=1.?z%:m%?(z%?|
00001000  49 81 31 36 29 3d 6d 25  3f 28 7a 25 3f 49 81 31  |I.16)=m%?(z%?I.1|
00001010  36 29 2b a4 78 61 28 7a  25 3f 49 29 2b 31 3a ed  |6)+.xa(z%?I)+1:.|
00001020  3a 64 62 25 3d 30 3a e3  49 3d 31 b8 34 3a e7 6d  |:db%=0:.I=1.4:.m|
00001030  25 3f 49 3e 64 62 25 64  62 25 3d 49 0d 03 98 14  |%?I>db%db%=I....|
00001040  ed 3a e7 64 62 25 3d 30  64 62 25 3d b3 28 34 29  |.:.db%=0db%=.(4)|
00001050  0d 03 a2 1f f2 68 28 22  43 6f 6c 6f 75 72 3a 22  |.....h("Colour:"|
00001060  2b 62 62 24 28 64 62 25  29 29 3a 3d 64 62 25 0d  |+bb$(db%)):=db%.|
00001070  03 ac 49 dd a4 67 62 3a  f2 68 28 22 43 68 6f 6f  |..I..gb:.h("Choo|
00001080  73 65 20 63 6f 6c 6f 75  72 2e 2e 2e 22 29 3a f5  |se colour..."):.|
00001090  ff 22 46 58 32 31 2c 30  22 3a 41 24 3d be 3a fd  |."FX21,0":A$=.:.|
000010a0  a7 22 52 47 59 42 22 2c  41 24 29 3a 3d a7 22 52  |."RGYB",A$):=."R|
000010b0  47 59 42 22 2c 41 24 29  0d 03 b6 1f dd f2 66 3a  |GYB",A$)......f:|
000010c0  f2 6c 61 3a e7 63 61 25  3c 26 31 30 64 61 25 3d  |.la:.ca%<&10da%=|
000010d0  a4 65 62 28 64 25 29 0d  03 c0 3b f5 68 62 25 3d  |.eb(d%)...;.hb%=|
000010e0  a4 69 62 28 64 25 29 3a  e7 68 62 25 f2 6f 28 63  |.ib(d%):.hb%.o(c|
000010f0  61 25 2c 35 37 34 2c 38  35 30 29 3a 3f 6e 25 3d  |a%,574,850):?n%=|
00001100  3f 6e 25 2b 31 3a 6e 25  3f 28 3f 6e 25 29 3d 63  |?n%+1:n%?(?n%)=c|
00001110  61 25 0d 03 ca 47 e7 64  25 3d 31 f2 68 28 22 22  |a%...G.d%=1.h(""|
00001120  29 3a ec 36 34 2c 37 34  34 3a e6 33 2c 37 3a f1  |):.64,744:.3,7:.|
00001130  3b 6f 61 25 3a ec 36 34  2c 37 34 34 3a f1 3b 3f  |;oa%:.64,744:.;?|
00001140  79 25 3a 6f 61 25 3d 3f  79 25 3a e7 68 62 25 80  |y%:oa%=?y%:.hb%.|
00001150  3f 79 25 3c 3e 30 f2 65  61 0d 03 d4 35 e7 64 25  |?y%<>0.ea...5.d%|
00001160  3d 30 ec 31 30 32 33 2c  37 34 34 3a e6 33 2c 37  |=0.1023,744:.3,7|
00001170  3a f1 3b 6e 61 25 3a ec  31 30 32 33 2c 37 34 34  |:.;na%:.1023,744|
00001180  3a f1 3b 3f 7a 25 3a 6e  61 25 3d 3f 7a 25 0d 03  |:.;?z%:na%=?z%..|
00001190  de 46 64 25 3d 64 25 82  31 3a fd 28 3f 79 25 3d  |.Fd%=d%.1:.(?y%=|
000011a0  30 84 3f 7a 25 3d 30 29  80 61 61 25 3d 30 80 62  |0.?z%=0).aa%=0.b|
000011b0  61 25 3d 30 3a e7 3f 79  25 3d 30 f2 68 28 22 59  |a%=0:.?y%=0.h("Y|
000011c0  6f 75 20 57 6f 6e 22 29  8b f2 68 28 22 49 20 57  |ou Won")..h("I W|
000011d0  6f 6e 22 29 0d 03 e8 49  e7 3f 79 25 3d 30 f2 75  |on")...I.?y%=0.u|
000011e0  61 3a e6 33 2c 37 3a ec  36 34 2c 38 34 30 3a f1  |a:.3,7:.64,840:.|
000011f0  3b 70 61 25 28 31 29 3a  70 61 25 28 31 29 3d 70  |;pa%(1):pa%(1)=p|
00001200  61 25 28 31 29 2b a4 6a  62 28 31 29 3a ec 36 34  |a%(1)+.jb(1):.64|
00001210  2c 38 34 30 3a f1 3b 70  61 25 28 31 29 0d 03 f2  |,840:.;pa%(1)...|
00001220  49 e7 3f 7a 25 3d 30 e6  33 2c 37 3a ec 31 30 32  |I.?z%=0.3,7:.102|
00001230  33 2c 38 34 30 3a f1 3b  70 61 25 28 30 29 3a 70  |3,840:.;pa%(0):p|
00001240  61 25 28 30 29 3d 70 61  25 28 30 29 2b a4 6a 62  |a%(0)=pa%(0)+.jb|
00001250  28 30 29 3a ec 31 30 32  33 2c 38 34 30 3a f1 3b  |(0):.1023,840:.;|
00001260  70 61 25 28 30 29 0d 03  fc 22 e7 70 61 25 28 30  |pa%(0)...".pa%(0|
00001270  29 3e 34 39 39 84 70 61  25 28 31 29 3e 34 39 39  |)>499.pa%(1)>499|
00001280  f2 6b 62 3a 67 25 3d b9  0d 04 06 05 e1 0d 04 10  |.kb:g%=.........|
00001290  15 dd a4 69 62 28 64 25  29 3a e7 64 25 3d 30 3d  |...ib(d%):.d%=0=|
000012a0  a4 7a 0d 04 1a 0c e7 64  25 3d 31 3d a4 79 0d 04  |.z.....d%=1=.y..|
000012b0  24 2d dd a4 7a 3a ea 78  25 3a e7 62 61 25 3e 30  |$-..z:.x%:.ba%>0|
000012c0  e3 49 3d 31 b8 62 61 25  3a f2 77 61 28 a4 77 29  |.I=1.ba%:.wa(.w)|
000012d0  3a ed 3a 62 61 25 3d 30  3a 3d 30 0d 04 2e 12 e7  |:.:ba%=0:=0.....|
000012e0  62 61 25 3c 30 62 61 25  3d 30 3a 3d 30 0d 04 38  |ba%<0ba%=0:=0..8|
000012f0  38 78 25 3d a4 63 62 3a  e7 78 25 3d 30 f2 77 61  |8x%=.cb:.x%=0.wa|
00001300  28 a4 77 29 3a e7 a4 61  62 28 7a 25 3f 28 3f 7a  |(.w):..ab(z%?(?z|
00001310  25 29 29 63 61 25 3d a4  76 61 28 3f 7a 25 29 3a  |%))ca%=.va(?z%):|
00001320  e5 8d 44 56 44 0d 04 42  0c e7 78 25 3d 30 3a 3d  |..DVD..B..x%=0:=|
00001330  30 0d 04 4c 0f 63 61 25  3d a4 76 61 28 78 25 29  |0..L.ca%=.va(x%)|
00001340  0d 04 56 20 e7 63 61 25  3c 26 31 30 64 61 25 3d  |..V .ca%<&10da%=|
00001350  a4 66 62 8b 64 61 25 3d  28 63 61 25 81 31 36 29  |.fb.da%=(ca%.16)|
00001360  0d 04 60 2a e7 63 61 25  3d 26 43 20 61 61 25 3d  |..`*.ca%=&C aa%=|
00001370  34 8b e7 28 63 61 25 83  31 36 29 3d 26 41 20 61  |4..(ca%.16)=&A a|
00001380  61 25 3d 32 8b 61 61 25  3d 30 0d 04 6a 17 e7 28  |a%=2.aa%=0..j..(|
00001390  63 61 25 83 31 36 29 3d  26 42 20 61 61 25 3d 2d  |ca%.16)=&B aa%=-|
000013a0  31 0d 04 74 07 3d 2d 31  0d 04 7e 2d dd a4 79 3a  |1..t.=-1..~-..y:|
000013b0  ea 78 25 3a e7 61 61 25  3e 30 e3 49 3d 31 b8 61  |.x%:.aa%>0.I=1.a|
000013c0  61 25 3a f2 69 61 28 a4  77 29 3a ed 3a 61 61 25  |a%:.ia(.w):.:aa%|
000013d0  3d 30 3a 3d 30 0d 04 88  12 e7 61 61 25 3c 30 61  |=0:=0.....aa%<0a|
000013e0  61 25 3d 30 3a 3d 30 0d  04 92 67 f5 d4 31 2c 2d  |a%=0:=0...g..1,-|
000013f0  31 35 2c 32 30 30 2c 31  3a 78 25 3d a4 6a 61 3a  |15,200,1:x%=.ja:|
00001400  3a e7 79 25 3f 78 25 3d  26 43 80 a4 71 61 28 79  |:.y%?x%=&C..qa(y|
00001410  25 3f 78 25 29 3d 30 f2  68 28 22 50 65 6e 61 6c  |%?x%)=0.h("Penal|
00001420  74 79 3a 20 34 20 63 61  72 64 73 22 29 3a ef 37  |ty: 4 cards"):.7|
00001430  3a e3 49 3d 31 b8 34 3a  f2 69 61 28 a4 77 29 3a  |:.I=1.4:.ia(.w):|
00001440  ed 3a fd 31 3a f2 68 28  22 22 29 3a 3d 30 0d 04  |.:.1:.h(""):=0..|
00001450  9c a8 fd a4 71 61 28 79  25 3f 78 25 29 84 78 25  |....qa(y%?x%).x%|
00001460  3d 30 3a e7 78 25 3d 30  f2 69 61 28 a4 77 29 3a  |=0:.x%=0.ia(.w):|
00001470  ec 28 28 28 3f 79 25 2d  31 29 83 38 29 2a 31 36  |.(((?y%-1).8)*16|
00001480  30 29 2b 31 33 32 2c 35  34 31 2d 28 28 28 3f 79  |0)+132,541-(((?y|
00001490  25 2d 31 29 81 38 29 2a  32 30 30 29 3a e6 33 2c  |%-1).8)*200):.3,|
000014a0  37 3a ef 31 34 32 3a f5  ff 22 46 58 32 31 2c 30  |7:.142:.."FX21,0|
000014b0  22 3a 41 24 3d be 3a fd  a7 22 50 22 2b bd 31 33  |":A$=.:.."P"+.13|
000014c0  2c 41 24 29 3a ec 28 28  28 3f 79 25 2d 31 29 83  |,A$):.(((?y%-1).|
000014d0  38 29 2a 31 36 30 29 2b  31 33 32 2c 35 34 31 2d  |8)*160)+132,541-|
000014e0  28 28 28 3f 79 25 2d 31  29 81 38 29 2a 32 30 30  |(((?y%-1).8)*200|
000014f0  29 3a ef 31 34 32 0d 04  a6 6c e7 78 25 3d 30 80  |):.142...l.x%=0.|
00001500  41 24 3d 22 50 22 3d 30  8b e7 78 25 3d 30 78 25  |A$="P"=0..x%=0x%|
00001510  3d 3f 79 25 3a e7 79 25  3f 78 25 3d 26 43 80 a4  |=?y%:.y%?x%=&C..|
00001520  71 61 28 79 25 3f 78 25  29 3d 30 f2 68 28 22 50  |qa(y%?x%)=0.h("P|
00001530  65 6e 61 6c 74 79 3a 20  34 20 63 61 72 64 73 22  |enalty: 4 cards"|
00001540  29 3a ef 37 3a e3 49 3d  31 b8 34 3a f2 69 61 28  |):.7:.I=1.4:.ia(|
00001550  a4 77 29 3a ed 3a fd 31  3a f2 68 28 22 22 29 3a  |.w):.:.1:.h(""):|
00001560  3d 30 0d 04 b0 14 e7 a4  71 61 28 79 25 3f 78 25  |=0......qa(y%?x%|
00001570  29 3d 30 3a 3d 30 0d 04  ba 2a 63 61 25 3d a4 67  |)=0:=0...*ca%=.g|
00001580  61 28 78 25 29 3a e7 63  61 25 3c 26 31 30 64 61  |a(x%):.ca%<&10da|
00001590  25 3d a4 67 62 8b 64 61  25 3d 63 61 25 81 31 36  |%=.gb.da%=ca%.16|
000015a0  0d 04 c4 2a e7 63 61 25  3d 26 43 20 62 61 25 3d  |...*.ca%=&C ba%=|
000015b0  34 8b e7 28 63 61 25 83  31 36 29 3d 26 41 20 62  |4..(ca%.16)=&A b|
000015c0  61 25 3d 32 8b 62 61 25  3d 30 0d 04 ce 17 e7 28  |a%=2.ba%=0.....(|
000015d0  63 61 25 83 31 36 29 3d  26 42 20 62 61 25 3d 2d  |ca%.16)=&B ba%=-|
000015e0  31 0d 04 d8 07 3d 2d 31  0d 04 e2 37 dd a4 6c 62  |1....=-1...7..lb|
000015f0  3a ea 49 2c 79 61 25 3a  79 61 25 3d 30 3a e3 49  |:.I,ya%:ya%=0:.I|
00001600  3d 31 b8 3f 79 25 3a 79  61 25 3d 79 61 25 2b a4  |=1.?y%:ya%=ya%+.|
00001610  78 61 28 79 25 3f 49 29  3a ed 3a 3d 79 61 25 0d  |xa(y%?I):.:=ya%.|
00001620  04 ec 37 dd a4 6d 62 3a  ea 49 2c 79 61 25 3a 79  |..7..mb:.I,ya%:y|
00001630  61 25 3d 30 3a e3 49 3d  31 b8 3f 7a 25 3a 79 61  |a%=0:.I=1.?z%:ya|
00001640  25 3d 79 61 25 2b a4 78  61 28 7a 25 3f 49 29 3a  |%=ya%+.xa(z%?I):|
00001650  ed 3a 3d 79 61 25 0d 04  f6 16 dd a4 6a 62 28 64  |.:=ya%......jb(d|
00001660  25 29 3a e7 64 25 3d 30  3d a4 6c 62 0d 05 00 0d  |%):.d%=0=.lb....|
00001670  e7 64 25 3d 31 3d a4 6d  62 0d 05 0a 3e dd f2 6b  |.d%=1=.mb...>..k|
00001680  62 3a ea 6e 62 25 2c 6f  62 2c 70 62 3a f7 8d 54  |b:.nb%,ob,pb:..T|
00001690  5e 45 3a 6e 62 25 3d 36  3a e3 49 3d 31 b8 37 3a  |^E:nb%=6:.I=1.7:|
000016a0  f3 6f 62 2c 70 62 3a d4  31 2c 2d 31 35 2c 6f 62  |.ob,pb:.1,-15,ob|
000016b0  2c 70 62 2a 6e 62 25 0d  05 14 10 d4 31 2c 30 2c  |,pb*nb%.....1,0,|
000016c0  30 2c 30 3a ed 3a e1 0d  05 1e 2b dc 35 32 2c 32  |0,0:.:....+.52,2|
000016d0  2c 35 32 2c 30 2e 35 2c  35 32 2c 30 2e 35 2c 36  |,52,0.5,52,0.5,6|
000016e0  30 2c 31 2c 35 32 2c 31  2c 36 30 2c 31 2c 36 38  |0,1,52,1,60,1,68|
000016f0  2c 33 0d 05 28 94 dd f2  6d 61 28 42 24 29 3a e3  |,3..(...ma(B$):.|
00001700  4b 3d 31 b8 a9 28 42 24  29 3a 41 24 3d c1 42 24  |K=1..(B$):A$=.B$|
00001710  2c 4b 2c 31 29 3a 41 25  3d 26 41 3a 58 25 3d 26  |,K,1):A%=&A:X%=&|
00001720  37 30 3a 59 25 3d 30 3a  3f 26 37 30 3d 97 28 41  |70:Y%=0:?&70=.(A|
00001730  24 29 3a d6 26 46 46 46  31 3a ef 32 33 2c 32 35  |$):.&FFF1:.23,25|
00001740  34 3a e3 49 3d 26 37 31  b8 26 37 34 3a ef 3f 49  |4:.I=&71.&74:.?I|
00001750  2c 3f 49 3a ed 3a ef 32  33 2c 32 35 35 3a e3 49  |,?I:.:.23,255:.I|
00001760  3d 26 37 35 b8 26 37 38  3a ef 3f 49 2c 3f 49 3a  |=&75.&78:.?I,?I:|
00001770  ed 3a ef 32 35 34 2c 31  30 2c 38 2c 32 35 35 2c  |.:.254,10,8,255,|
00001780  31 31 3a ed 3a e1 0d ff                           |11:.:...|
00001788

G/UNO.m0

G/UNO.m1

G/UNO.m2

G/UNO.m4

G/UNO.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .