Home » Archimedes archive » Archimedes World » AW-1994-08-Disc2.adf » Disk2Aug94 » !AWAug94/Goodies/MathsCard/!MathsCard/Sums/Resources/Data

!AWAug94/Goodies/MathsCard/!MathsCard/Sums/Resources/Data

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-1994-08-Disc2.adf » Disk2Aug94
Filename: !AWAug94/Goodies/MathsCard/!MathsCard/Sums/Resources/Data
Read OK:
File size: 1C13A bytes
Load address: 0000
Exec address: 0000
File contents
   20DEFFNstart_:PROCshut_:=FNwindow("Main")
   40DEFFNmainW_:=FNwindow("Main")
   70DEFFNdummy_:=TRUE
  110DEFFNm_:LOCALH$:H$=$mn%:CASEH$OF
  150WHEN"GrafIt":IFAnswer_%THENPROCpMI("GrafIt",0,"Answers off")ELSEPROCpMI("GrafIt",0,"Answers on")
  170ENDCASE:=TRUE
  200DEFFNsm_:LOCALH$:H$=$mn%:CASEH$OF
  240WHEN"CreChoices":IFChoices_%=1PROCtMIx("CreChoices",0)
  260IFChoices_%=2PROCtMIx("CreChoices",1)
  270IFChoices_%=3PROCtMIx("CreChoices",2)
  280ENDCASE:=TRUE
  310DEFFNsma_:=FALSE
  350DEFFNw_:CASE$wn%OF
  370WHEN"Main":PROCshut_:WindowMain_%=FNfWS("Main")
  380WHEN"GrafIt":GrafIt_%=FNfWS("GrafIt")
  390WHEN"TakeCards":PROCTakeCards
  400WHEN"AddCards":PROCAddCards
  410WHEN"TimesCards":PROCTimesCards
  420WHEN"DivCards":PROCDivCards
  430WHEN"Add":PROCAdd
  440WHEN"Subtract":PROCsubtract
  450WHEN"Multiply":PROCmultiply
  460WHEN"Divide":PROCDivide
  470WHEN"Madd":PROCMadd
  480WHEN"MetricSub":PROCMsub
  490WHEN"Magic":PROCMagic
  500WHEN"Sadd":PROCSadd
  510WHEN"Wadd":PROCWadd
  520WHEN"FrMD":PROCFrMD
  530WHEN"LongMul":PROCLongMulty
  540WHEN"LongDiv":PROCLongDivy
  550WHEN"MetricSub":PROCMsub
  560WHEN"MetricMul":PROCMmul
  570WHEN"MetDiv":PROCMdiv
  580WHEN"Choices":PROCchoices
  590ENDCASE:=TRUE
  640DEFFNb_:=TRUE
  680DEFFNe_:=TRUE
  710DEFFNpK_:=FALSE
  740DEFFNh_:CASE$wn%OF
  750WHEN"GrafIt":="This is the main window of the 'New_Appln' application."
  760ENDCASE:IF!h%=-2THEN="This is the 'New_Appln' icon.|MClick SELECT to open the main window."
  780=""
  800DEFFNrM_:=TRUE
  820DEFFNrB_:=TRUE
  850DEFFNpB_:=TRUE
  880DEFPROCiBasic_g:ENDPROC
  890DEFPROCiSprite_g:ENDPROC
  900DEFPROCiAnimate_g:ENDPROC
 1010DEFFNi_(A$,B%):LOCALA%,C$:many_=12:last_=12:quit_=FALSE:SecAns_%=TRUE:Lda_%=TRUE:Lma_%=TRUE:DIMqual_$(10),qual_(10),act_$(10),gc_%(12),scoot_(10):EqSign_=TRUE:EqEquals_=FALSE:DIMLineType_(3):LineType_(3)=TRUE:LineType_(2)=FALSE:LineType_(1)=FALSE:DIMfinder_%(12)
 1160maxsub=6:DIMsub_$(maxsub),sub_(maxsub):sub_$(1)="-":sub_(1)=TRUE:sub_$(2)="subtract":sub_(2)=FALSE:sub_$(3)="minus":sub_(3)=FALSE:sub_$(4)="take":sub_(4)=FALSE:sub_$(5)="take away":sub_(5)=FALSE:sub_$(6)="less":sub_(6)=FALSE
 1200Takemaxy_=20:Takeminny_=10:maxadd=4:DIMadd_$(maxadd),add_(maxadd):add_$(1)="+":add_(1)=TRUE:add_$(2)="add":add_(2)=FALSE:add_$(3)="plus":add_(3)=FALSE:add_$(4)="and":add_(4)=FALSE:Addmaxy_=10:Addminy_=1
 1280maxtimes=4:DIMtime_$(maxtimes),times_(maxtimes):time_$(1)="x":times_(1)=TRUE:time_$(2)="times":times_(2)=FALSE:time_$(3)="multiplied by":times_(3)=FALSE:maxtims=9:DIMtim_$(maxtims),tim_(maxtims)
 1310tim_$(1)="2":tim_$(2)="3":tim_$(3)="4":tim_$(4)="5":tim_$(5)="6":tim_$(6)="7":tim_$(7)="8":tim_$(8)="9":tim_$(9)="10":tim_(1)=TRUE:tim_(2)=FALSE:tim_(3)=FALSE:tim_(4)=FALSE:tim_(5)=FALSE:tim_(6)=FALSE:tim_(7)=FALSE:tim_(8)=FALSE:tim_(9)=FALSE
 1360maxdiv=3:DIMdive_$(maxdiv),dive_(maxdiv):DIMtempa_(10):dive_$(1)="�":dive_(1)=TRUE:dive_$(2)="shared by":dive_(2)=FALSE:dive_$(3)="divided by":dive_(3)=FALSE:maxdivs=9:DIMdiv_$(maxdivs),div_(maxdivs)
 1390div_$(1)="2":div_$(2)="3":div_$(3)="4":div_$(4)="5":div_$(5)="6":div_$(6)="7":div_$(7)="8":div_$(8)="9":div_$(9)="10":div_(1)=TRUE:div_(2)=FALSE:div_(3)=FALSE:div_(4)=FALSE:div_(5)=FALSE:div_(6)=FALSE:div_(7)=FALSE:div_(8)=FALSE:div_(9)=FALSE
 1440DIMaddy_(6):addy_(1)=TRUE:FORt_=2TO6:addy_(t_)=FALSE:NEXT:maxaddcarry_=3:DIMaddcarry_(maxaddcarry_):addcarry_(1)=FALSE:addcarry_(2)=FALSE:addcarry_(3)=TRUE:DIMaddytype_(6),lineaddy_(12):Anowts_%=FALSE:DIMsubby_(6):subby_(1)=TRUE:FORt_=2TO6:subby_(t_)=FALSE:NEXT
 1510maxsubcarry_=3:DIMsubcarry_(maxsubcarry_):subcarry_(1)=TRUE:subcarry_(2)=FALSE:subcarry_(3)=FALSE:DIMsubbytype_(6),linesubby_(12):nowts_%=FALSE:DIMmulty_(6):multy_(1)=TRUE:FORt_=2TO6:multy_(t_)=FALSE:NEXT:maxmults=9:DIMmult_$(maxmults),mult_(maxmults)
 1580FORt_=1TO9:mult_$(t_)=STR$(t_+1):NEXT:mult_(1)=TRUE:FORt_=2TO9:mult_(t_)=FALSE:NEXT:DIMmultytype_(6),linemulty_(12):Mnowts_%=FALSE:Remainder_$="Ran":DIMdvy_(5):dvy_(1)=TRUE:dvy_(2)=FALSE:dvy_(3)=FALSE:dvy_(4)=FALSE:dvy_(5)=FALSE:maxdvs=9:DIMdv_$(maxdvs),dv_(maxdvs)
 1660dv_$(1)="2":dv_$(2)="3":dv_$(3)="4":dv_$(4)="5":dv_$(5)="6":dv_$(6)="7":dv_$(7)="8":dv_$(8)="9":dv_$(9)="10":dv_(1)=TRUE:dv_(2)=FALSE:dv_(3)=FALSE:dv_(4)=FALSE:dv_(5)=FALSE:dv_(6)=FALSE:dv_(7)=FALSE:dv_(8)=FALSE:dv_(9)=FALSE
 1690DIMdvytype_(6),linedvy_(12):Dnowts_%=FALSE:DIMcz_$(12):Fracadd_=TRUE:Fractake_=FALSE:addoms_=FALSE:AddReps_=FALSE:subdoms_=FALSE:SubReps_=FALSE:maxfrac_=12:DIMf_(maxfrac_),frac_(maxfrac_):DIMFU1_(12),FD1_(12),FU2_(12),FD2_(12),FU3_(12),FD3_(12)
 1780f_(1)=TRUE:f_(2)=FALSE:f_(3)=TRUE:f_(4)=FALSE:f_(5)=FALSE:f_(6)=FALSE:f_(7)=TRUE:FORr_=8TO12:f_(r_)=FALSE:NEXT:FORr_=1TO9:frac_(r_)=r_+1:NEXT:frac_(10)=12:frac_(11)=15:frac_(12)=20:DIMSadcarry_(3):Sadcarry_(1)=FALSE:Sadcarry_(2)=FALSE:Sadcarry_(3)=TRUE:DIMFracsign_$(12)
 1850WFracadd_=TRUE:WFractake_=FALSE:Waddoms_=FALSE:WAddReps_=FALSE:Wsubdoms_=FALSE:WSubReps_=FALSE:Wmaxfrac_=12:DIMwf_(Wmaxfrac_),wfrac_(Wmaxfrac_):DIMWFU1_(12),WFD1_(12),WFU2_(12),WFD2_(12),WFU3_(12),WFD3_(12),Whole_(12,2)
 1900f_(1)=TRUE:wf_(2)=FALSE:wf_(3)=TRUE:wf_(4)=FALSE:wf_(5)=FALSE:wf_(6)=FALSE:wf_(7)=TRUE:FORr_=8TO12:wf_(r_)=FALSE:NEXT:FORr_=1TO9:wfrac_(r_)=r_+1:NEXT:wfrac_(10)=12:wfrac_(11)=15:wfrac_(12)=20:DIMWSadcarry_(3):WSadcarry_(1)=FALSE:WSadcarry_(2)=FALSE:WSadcarry_(3)=TRUE
 1940DIMWSTakecar_(3):WSTakecar_(1)=FALSE:WSTakecar_(2)=FALSE:WSTakecar_(3)=FALSE:Fracmult_=TRUE:Fracdiv_=FALSE:Frtdom_=FALSE:Frtrep_=FALSE:Frddom_=FALSE:Frdrep_=FALSE:DIMmf_(12),mfv_(12):FORr_=1TO9:mfv_(r_)=r_+1:NEXT:mfv_(10)=12:mfv_(11)=15:mfv_(12)=20
 2020mf_(1)=TRUE:mf_(2)=TRUE:FORr_=3TO12:mf_(r_)=FALSE:NEXT:Frmwhole_=FALSE:Frdwhole_=FALSE:DIMLongMul_(6):LongMul_(1)=TRUE:FORt_=2TO6:LongMul_(t_)=FALSE:NEXT:Longstyle_=1:DIMLongchoice_$(8),froc_(8):DIMLongDiv_(7):LongDiv_(1)=TRUE:FORt_=2TO7:LongDiv_(t_)=FALSE:NEXT:LRemainder_$="Ran"
 2170DIMmaddy_(6):maddy_(1)=TRUE:FORw_=2TO6:maddy_(w_)=FALSE:NEXT:maddcarry_$="Ran":DIMmt_(6):FORw_=1TO6:mt_(w_)=FALSE:NEXT:DIMthou_$(3),hun_$(3),top_$(12):DIMmsub_(6):msub_(1)=TRUE:FORw_=2TO6:msub_(w_)=FALSE:NEXT:msubcarry_$="Ran":DIMst_(6):FORw_=1TO6:st_(w_)=FALSE:NEXT
 2280DIMmmul_(6):mmul_(1)=TRUE:FORw_=2TO6:mmul_(w_)=FALSE:NEXT:DIMmmt_(6):FORw_=1TO6:mmt_(w_)=FALSE:NEXT:DIMMmult_$(9),Mmult_(9):FORt_=1TO9:Mmult_$(t_)=STR$(t_+1):NEXT:Mmult_(1)=TRUE:FORt_=2TO9:Mmult_(t_)=FALSE:NEXT:DIMmd_(6):md_(1)=TRUE:FORw_=2TO6:md_(w_)=FALSE:NEXT
 2360DIMmdt_(6):FORw_=1TO6:mdt_(w_)=FALSE:NEXT:DIMMdiv_$(9),Mdiv_(9):FORt_=1TO9:Mdiv_$(t_)=STR$(t_+1):NEXT:Mdiv_(1)=TRUE:FORt_=2TO9:Mdiv_(t_)=FALSE:NEXT:LineTypeards_%=FALSE:TakeCard_%=FALSE:DIMdunk_$(10):started_%=FALSE:twoxc=TRUE:threexc=FALSE:fourxc=FALSE:fivexc=FALSE:sixxc=FALSE
 2460sevenxc=FALSE:eightxc=FALSE:ninexc=FALSE:tenxc=FALSE:EqSign_=TRUE:EqEquals_=FALSE:Addadd=FALSE:Addplus=FALSE:Addsign=TRUE:DIMNa_%(12),Nb_%(12),Nc_%(12),linetype_(10),equal_$(10)
 2530save_%=OPENIN"<MathsSys$Path>Numbers":INPUT#save_%,rite_,StartY,Maintitle_$,Title_$,Choices_%,Sign_%,SecAns_%,Lda_%,Lma_%,direct_%,remmy_,pwon_:CLOSE#save_%:DefStartX=rite_:DefStartY=StartY:DefaultStartX=100:DefaultStartY=1240
 2570DIMa_(12),b_(12),c_(12),rem_(12),a_$(12),b_$(12),c_$(12),rem_$(12):DIMmagic_(9,9):MagRange_$="1 to 25":DIMbas_(9),baa_(9):DIMpat_$(9),pattern_(9),bas_$(9):Answer_%=FALSE:mult_=2:gap_=0:Clue_$="":Zero_$="Random":metric_$="�":PROCiRes(A$,B%)
 2690PROCiGraphics("",B%):=TRUE
 2770DEFPROCshut_:IFFNgWx("GrafIt"):PROCcloseW(GrafIt_%)
 2790IFFNfWS("TakeCards")PROCcloseW(TakeCard_%)
 2800IFFNfWS("AddCards")PROCcloseW(AddCard_%)
 2810IFFNfWS("TimesCards")PROCcloseW(TimesCard_%)
 2820IFFNfWS("DivCards")PROCcloseW(DivCard_%)
 2830IFFNfWS("Add")PROCcloseW(WAdd_%)
 2840IFFNfWS("Subtract")PROCcloseW(WSub_%)
 2850IFFNfWS("Multiply")PROCcloseW(WMult_%)
 2860IFFNfWS("Divide")PROCcloseW(WDiv_%)
 2870IFFNfWS("Magic")PROCcloseW(Magic_%)
 2880IFFNfWS("Sadd")PROCcloseW(Sad_%)
 2890IFFNfWS("Wadd")PROCcloseW(Wad_%)
 2900IFFNfWS("FrMD")PROCcloseW(FrMD_%)
 2910IFFNfWS("LongMul")PROCcloseW(LongMul_%)
 2920IFFNfWS("LongDiv")PROCcloseW(LongDiv_%)
 2930IFFNfWS("Madd")PROCcloseW(Madd_%)
 2940IFFNfWS("MetricSub")PROCcloseW(Msub_%)
 2950IFFNfWS("MetricMul")PROCcloseW(Mmul_%)
 2960IFFNfWS("MetDiv")PROCcloseW(Mdiv_%)
 2970IFFNfWS("Choices")PROCcloseW(Choice_%)
 2980AddCard_%=FALSE:TakeCard_%=FALSE:TimesCard_%=FALSE:DivCard_%=FALSE:started_%=FALSE:ENDPROC:IFFNgWx("GrafIt"):PROCcloseW(GrafIt_%)
 3020IFFNgWx("Add"):PROCcloseW(WAdd_%)
 3030IFFNgWx("Subtract"):PROCcloseW(WSub_%)
 3040IFFNgWx("Multiply"):PROCcloseW(WMult_%)
 3050IFFNgWx("Divide"):PROCcloseW(WDiv_%)
 3060IFFNgWx("Magic"):PROCcloseW(Magic_%)
 3070IFFNgWx("MetricAdd"):PROCcloseW(Madd_%)
 3080IFFNgWx("MetricSub"):PROCcloseW(Msub_%)
 3090IFFNgWx("MetricMul"):PROCcloseW(Mmul_%)
 3100IFFNgWx("LongMul"):PROCcloseW(LongMul_%)
 3110IFFNgWx("StartX"):PROCcloseW(Start_X%)
 3120IFFNgWx("AddCards"):PROCcloseW(AddCard_%)
 3130IFFNgWx("TakeCards"):PROCcloseW(TakeCard_%)
 3140IFFNgWx("TimesCards"):PROCcloseW(TimesCard_%)
 3150IFFNgWx("DivCards"):PROCcloseW(DivCard_%)
 3160AddCard_%=FALSE:TakeCard_%=FALSE:TimesCard_%=FALSE:DivCard_%=FALSE:started_%=FALSE:ENDPROC
 3200DEFFNChoices_:PROCusI(WindowMain_%,"Choices"):=FNwindow("Choices")
 3210DEFFNTakecards_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("TakeCards"):open2_%=FNwindow("GrafIt"):=TRUE
 3230DEFFNAddcards_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("AddCards"):open2_%=FNwindow("GrafIt"):=TRUE
 3250DEFFNTimesCards_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("TimesCards"):open2_%=FNwindow("GrafIt"):=TRUE
 3270DEFFNDivCards_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("DivCards"):open2_%=FNwindow("GrafIt"):=TRUE
 3290DEFFNAdd_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("Add"):open2_%=FNwindow("GrafIt"):=TRUE
 3310DEFFNSubtract_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("Subtract"):open2_%=FNwindow("GrafIt"):=TRUE
 3330DEFFNMultiply_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("Multiply"):open2_%=FNwindow("GrafIt"):=TRUE
 3350DEFFNDivide_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("Divide"):open2_%=FNwindow("GrafIt"):=TRUE
 3370DEFFNMagic_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("Magic"):open2_%=FNwindow("GrafIt"):=TRUE
 3390DEFFNSadd_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("Sadd"):open2_%=FNwindow("GrafIt"):=TRUE
 3410DEFFNWadd_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("Wadd"):open2_%=FNwindow("GrafIt"):=TRUE
 3430DEFFNFrMD_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("FrMD"):open2_%=FNwindow("GrafIt"):=TRUE
 3450DEFFNMadd_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("Madd"):open2_%=FNwindow("GrafIt"):=TRUE
 3470DEFFNMetricSub_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open_%=FNwindow("MetricSub"):open2_%=FNwindow("GrafIt"):=TRUE
 3490DEFFNMetricMul_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open_%=FNwindow("MetricMul"):open2_%=FNwindow("GrafIt"):=TRUE
 3510DEFFNMetricDiv_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open_%=FNwindow("MetDiv"):open2_%=FNwindow("GrafIt"):=TRUE
 3530DEFFNLongMul_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("LongMul"):open2_%=FNwindow("GrafIt"):=TRUE
 3560DEFFNLongDiv_:Clue_$="":PROCshut_:started_%=FALSE:PROCcloseW(WindowMain_%):open1_%=FNwindow("LongDiv"):open2_%=FNwindow("GrafIt"):=TRUE
 3620DEFPROCwhatqual:IFTakeCard_% tot_=maxsub:FORr_=1TOtot_:qual_$(r_)=sub_$(r_):qual_(r_)=sub_(r_):NEXT
 3640IFAddCard_% tot_=maxadd:FORr_=1TOtot_:qual_$(r_)=add_$(r_):qual_(r_)=add_(r_):NEXT
 3650IFTimesCard_% tot_=maxtimes:FORr_=1TOtot_:qual_$(r_)=time_$(r_):qual_(r_)=times_(r_):NEXT
 3660IFDivCard_% tot_=maxdiv:FORr_=1TOtot_:qual_$(r_)=dive_$(r_):qual_(r_)=dive_(r_):NEXT
 3670got_%=0:FORr_%=1TOtot_:IFqual_(r_%)=TRUEgot_%=got_%+1:gc_%(got_%)=r_%
 3690NEXT:PROCqual(got_%):ENDPROC
 3720DEFPROCqual(g_%):IFg_%=1THENFORtr_%=1TO10:act_$(tr_%)=qual_$(gc_%(g_%)):NEXT:ENDPROC
 3740needed_%=10DIVg_%:REPEAT:FORy_=1TOg_%:finder_%(y_)=0:NEXT:flag_=TRUE:FORtr_%=1TO10:REPEAT:flig_=TRUE:ran_=RND(g_%):act_$=qual_$(gc_%(ran_)):IFtr_%>1ANDact_$(tr_%-1)=act_$ flig_=FALSE
 3820UNTILflig_=TRUE:act_$(tr_%)=qual_$(gc_%(ran_)):finder_%(ran_)=finder_%(ran_)+1:NEXT:FORb_%=1TOg_%:IFfinder_%(b_%)<needed_% flag_=FALSE
 3860NEXT:UNTILflag_=TRUE:ENDPROC
 3880DEFPROCwhatlines_:got_%=0:FORr_%=1TO3:IFLineType_(r_%)=TRUEgot_%=got_%+1:gc_%(got_%)=r_%
 3900NEXT:IFgot_%=1THENFORtr_%=1TO10:linetype_(tr_%)=gc_%(got_%):NEXT:ENDPROC
 3920needed_%=10DIVgot_%:REPEAT:FORy_=1TOgot_%:finder_%(y_)=0:NEXT:flag_=TRUE:FORtr_%=1TO10:REPEAT:flig_=TRUE:ran_=RND(got_%):linetype_=gc_%(ran_):IFtr_%>1ANDlinetype_(tr_%-1)=linetype_ flig_=FALSE
 4000UNTILflig_=TRUE:linetype_(tr_%)=gc_%(ran_):finder_%(ran_)=finder_%(ran_)+1:NEXT:FORy_=1TOgot_%:IFfinder_%(y_)<needed_% flag_=FALSE
 4040NEXT:UNTILflag_=TRUE:ENDPROC
 4080DEFPROCwhatequals:IFEqSign_=TRUEANDEqEquals_=FALSEFORtr_%=1TO10:equal_$(tr_%)="=":NEXT:ENDPROC
 4100IFEqSign_=FALSEANDEqEquals_=TRUEFORtr_%=1TO10:equal_$(tr_%)="equals":NEXT:ENDPROC
 4110PROCtwo("equals","="):equal_$()=dunk_$():ENDPROC
 4130DEFPROCtwo(a_$,b_$):REPEAT:aa_=0:ap_=0:FORtr_%=1TO10:REPEAT:flug_=TRUE:r_=RND(2):IFr_=1 dunk_$=a_$ELSEdunk_$=b_$
 4180IFtr_%>1ANDdunk_$(tr_%-1)=dunk_$ flug_=FALSE
 4190UNTILflug_=TRUE:IFr_=1 dunk_$(tr_%)=a_$:aa_=aa_+1ELSEdunk_$(tr_%)=b_$:ap_=ap_+1
 4210NEXT:UNTILaa_>4ANDap_>4:ENDPROC
 4230DEFFNEqSign_:IFEqSign_=TRUEANDEqEquals_=FALSEEqSign_=TRUE:PROCselectEq:=TRUE
 4250IFEqSign_=TRUEEqSign_=FALSE:PROCUnselectEq:=TRUE
 4260IFEqSign_=FALSEEqSign_=TRUE:PROCselectEq:=TRUE
 4270
 4280DEFFNEqEquals_:IFEqEquals_=TRUEANDEqSign_=FALSEEqEquals_=TRUE:PROCselectEquals:=TRUE
 4300IFEqEquals_=TRUEEqEquals_=FALSE:PROCUnselectEquals:=TRUE
 4310IFEqEquals_=FALSEEqEquals_=TRUE:PROCselectEquals:=TRUE
 4320
 4330DEFPROCselectEq:IFAddCard_%PROCsI(AddCard_%,"EqSign")
 4350IFTakeCard_%PROCsI(TakeCard_%,"EqSign")
 4360IFTimesCard_%PROCsI(TimesCard_%,"EqSign")
 4370IFDivCard_%PROCsI(DivCard_%,"EqSign")
 4380ENDPROC
 4400DEFPROCUnselectEq:IFAddCard_%PROCusI(AddCard_%,"Eq")
 4420IFTakeCard_%PROCusI(TakeCard_%,"Eq")
 4430IFTimesCard_%PROCusI(TimesCard_%,"EqSign")
 4440IFDivCard_%PROCusI(DivCard_%,"EqSign")
 4450ENDPROC
 4470DEFPROCselectEquals:IFAddCard_%PROCsI(AddCard_%,"EqEquals")
 4490IFTakeCard_%PROCsI(TakeCard_%,"EqEquals")
 4500IFTimesCard_%PROCsI(TimesCard_%,"EqEquals")
 4510IFDivCard_%PROCsI(DivCard_%,"EqEquals")
 4520ENDPROC
 4540DEFPROCUnselectEquals:IFAddCard_%PROCusI(AddCard_%,"EqEquals")
 4560IFTakeCard_%PROCusI(TakeCard_%,"EqEquals")
 4570IFTimesCard_%PROCusI(TimesCard_%,"EqEquals")
 4580IFDivCard_%PROCusI(DivCard_%,"EqEquals")
 4590ENDPROC
 4610DEFFNLineType1_:IFLineType_(2)=FALSEANDLineType_(3)=FALSETHENLineType_(1)=TRUE:PROCselectline1:=TRUE
 4630IFLineType_(1)=FALSELineType_(1)=TRUE:PROCselectline1:=TRUE
 4640IFLineType_(1)=TRUELineType_(1)=FALSE:PROCUnselectline1:=TRUE
 4650DEFFNLineType2_:IFLineType_(1)=FALSEANDLineType_(3)=FALSETHENLineType_(2)=TRUE:PROCselectline2:=TRUE
 4670IFLineType_(2)=FALSELineType_(2)=TRUE:PROCselectline2:=TRUE
 4680IFLineType_(2)=TRUELineType_(2)=FALSE:PROCUnselectline2:=TRUE
 4690DEFFNLineType3_:IFLineType_(1)=FALSEANDLineType_(2)=FALSETHENLineType_(3)=TRUE:PROCselectline3:=TRUE
 4710IFLineType_(3)=FALSELineType_(3)=TRUE:PROCselectline3:=TRUE
 4720IFLineType_(3)=TRUELineType_(3)=FALSE:PROCUnselectline3:=TRUE
 4730
 4740DEFPROCselectline1:IFTakeCard_%PROCsI(TakeCard_%,"LineType1")
 4760IFAddCard_%PROCsI(AddCard_%,"LineType1")
 4770IFTimesCard_%PROCsI(TimesCard_%,"LineType1")
 4780IFDivCard_%PROCsI(DivCard_%,"LineType1")
 4790ENDPROC
 4800DEFPROCUnselectline1:IFTakeCard_%PROCusI(TakeCard_%,"LineType1")
 4820IFAddCard_%PROCusI(AddCard_%,"LineType1")
 4830IFTimesCard_%PROCusI(TimesCard_%,"LineType1")
 4840IFDivCard_%PROCusI(DivCard_%,"LineType1")
 4850ENDPROC
 4860DEFPROCselectline2:IFTakeCard_%PROCsI(TakeCard_%,"LineType2")
 4880IFAddCard_%PROCsI(AddCard_%,"LineType2")
 4890IFTimesCard_%PROCsI(TimesCard_%,"LineType2")
 4900IFDivCard_%PROCsI(DivCard_%,"LineType2")
 4910ENDPROC
 4920DEFPROCUnselectline2:IFTakeCard_%PROCusI(TakeCard_%,"LineType2")
 4940IFAddCard_%PROCusI(AddCard_%,"LineType2")
 4950IFTimesCard_%PROCusI(TimesCard_%,"LineType2")
 4960IFDivCard_%PROCusI(DivCard_%,"LineType2")
 4970ENDPROC
 4980DEFPROCselectline3:IFTakeCard_%PROCsI(TakeCard_%,"LineType3")
 5000IFAddCard_%PROCsI(AddCard_%,"LineType3")
 5010IFTimesCard_%PROCsI(TimesCard_%,"LineType3")
 5020IFDivCard_%PROCsI(DivCard_%,"LineType3")
 5030ENDPROC
 5040DEFPROCUnselectline3:IFTakeCard_%PROCusI(TakeCard_%,"LineType3")
 5060IFAddCard_%PROCusI(AddCard_%,"LineType3")
 5070IFTimesCard_%PROCusI(TimesCard_%,"LineType3")
 5080IFDivCard_%PROCusI(DivCard_%,"LineType3")
 5090ENDPROC
 5110DEFFNAnswers_:IFAnswer_%=FALSEAnswer_%=TRUE:PROCpMI("GrafIt",0,"Answers off")ELSEIFAnswer_%=TRUEAnswer_%=FALSE:PROCpMI("GrafIt",0,"Answers on")
 5130=FNsums
 5200DEFPROCAddCards:AddCard_%=FNfWS("AddCards"):$!Addmaxy_%=STR$(Addmaxy_):PROCrI(AddCard_%,"Addmaxy"):$!Addminy_%=STR$(Addminy_):PROCrI(AddCard_%,"Addminy"):IFLineType_(1)PROCsI(AddCard_%,"LineType1")
 5240IFLineType_(2)PROCsI(AddCard_%,"LineType2")
 5250IFLineType_(3)PROCsI(AddCard_%,"LineType3")
 5260IFEqSign_PROCsI(AddCard_%,"EqSign")
 5270IFEqEquals_PROCsI(AddCard_%,"EqEquals")
 5280IFadd_(1)PROCsI(AddCard_%,"add1")
 5290IFadd_(2)PROCsI(AddCard_%,"add2")
 5300IFadd_(3)PROCsI(AddCard_%,"add3")
 5310IFadd_(4)PROCsI(AddCard_%,"add4")
 5320ENDPROC
 5360DEFFNadd_:c_=0:FORh_=1TO4:IFadd_(h_)c_=c_+1
 5370NEXT:=c_
 5380DEFFNadd1_:IFadd_(1)ANDFNadd_=1 add_(1)=TRUE:PROCsI(AddCard_%,"add1"):=TRUE
 5390IFadd_(1)add_(1)=FALSEELSEadd_(1)=TRUE
 5400=TRUE
 5410DEFFNadd2_:IFadd_(2)ANDFNadd_=1 add_(2)=TRUE:PROCsI(AddCard_%,"add2"):=TRUE
 5420IFadd_(2)add_(2)=FALSEELSEadd_(2)=TRUE
 5430=TRUE
 5440DEFFNadd3_:IFadd_(3)ANDFNadd_=1 add_(3)=TRUE:PROCsI(AddCard_%,"add3"):=TRUE
 5450IFadd_(3)add_(3)=FALSEELSEadd_(3)=TRUE
 5460=TRUE
 5470DEFFNadd4_:IFadd_(4)ANDFNadd_=1 add_(4)=TRUE:PROCsI(AddCard_%,"add4"):=TRUE
 5480IFadd_(4)add_(4)=FALSEELSEadd_(4)=TRUE
 5490=TRUE
 5500DEFFNAddmaxy_:PROCgetaddmax:PROCsCI(!(AddCard_%+12),20):=TRUE
 5510DEFPROCgetaddmax:Addmaxy_=VAL($!Addmaxy_%):IFAddmaxy_<4 Addmaxy_=4
 5530IFAddmaxy_>500 Addmaxy_=500
 5540$!Addmaxy_%=STR$(Addmaxy_):PROCrI(AddCard_%,"Addmaxy"):ENDPROC
 5550DEFFNAddminy_:PROCgetaddmax:PROCgetaddmin:PROCsCI(!(AddCard_%+12),20):=TRUE
 5560DEFPROCgetaddmin:Addminy_=VAL($!Addminy_%):IFAddminy_<1 Addminy_=0
 5580IFAddminy_>Addmaxy_-4 Addminy_=Addmaxy_-4
 5590$!Addminy_%=STR$(Addminy_):PROCrI(AddCard_%,"Addminy"):ENDPROC
 5630DEFFNAddcGo_:PROCGetTitles:dummy_=RND(-TIME):PROCwhatlines_:PROCwhatqual:PROCwhatequals:PROCcalcadd:PROCusI(AddCard_%,"AddcGo"):last_=3:quit_=FALSE:Clue_$="CardsAdd":started_%=TRUE:=FNsums
 5690DEFPROCcalcadd:SYS"Hourglass_On":PROCgetaddmax:PROCgetaddmin:FORtr_%=1TO10:SYS"Hourglass_Percentage",tr_%/10*100:REPEAT:flag_=0:REPEAT:dif_%=Addmaxy_-Addminy_:wh_=RND(2):IFwh_=1THENdd_%=RND(dif_%):Na_%=Addminy_+dd_%:dd_%=RND(dif_%)-1:Nb_%=Addminy_+dd_%
 5760IFwh_=2THENdd_%=RND(dif_%)-1:Na_%=Addminy_+dd_%:dd_%=RND(dif_%)
 5770Nb_%=Addminy_+dd_%:UNTILNa_%>=Addminy_ANDNb_%>=Addminy_:IFtr_%>1THEN
 5810FORe_%=1TOtr_%-1:IFNa_%=Na_%(e_%)ANDNb_%=Nb_%(e_%)flag_=1
 5820NEXT
 5830ENDIF:UNTILflag_=0:Na_%(tr_%)=Na_%:Nb_%(tr_%)=Nb_%:Nc_%(tr_%)=Na_%(tr_%)+Nb_%(tr_%):NEXT:SYS"Hourglass_Off":ENDPROC
 5920DEFPROCTakeCards:TakeCard_%=FNfWS("TakeCards"):$!Takemaxy_%=STR$(Takemaxy_):PROCrI(TakeCard_%,"Takemaxy"):$!Takeminny_%=STR$(Takeminny_):PROCrI(TakeCard_%,"Takeminny"):IFLineType_(1)PROCsI(TakeCard_%,"LineType1")
 5960IFLineType_(2)PROCsI(TakeCard_%,"LineType2")
 5970IFLineType_(3)PROCsI(TakeCard_%,"LineType3")
 5980IFEqEquals_PROCsI(TakeCard_%,"EqEquals")
 5990IFEqSign_PROCsI(TakeCard_%,"EqSign")
 6000IFsub_(1)PROCsI(TakeCard_%,"sub1")
 6010IFsub_(2)PROCsI(TakeCard_%,"sub2")
 6020IFsub_(3)PROCsI(TakeCard_%,"sub3")
 6030IFsub_(4)PROCsI(TakeCard_%,"sub4")
 6040IFsub_(5)PROCsI(TakeCard_%,"sub5")
 6050IFsub_(6)PROCsI(TakeCard_%,"sub6")
 6060ENDPROC
 6100DEFFNsub_:c_=0:FORh_=1TO6:IFsub_(h_)c_=c_+1
 6110NEXT:=c_
 6120DEFFNsub1_:IFsub_(1)ANDFNsub_=1 sub_(1)=TRUE:PROCsI(TakeCard_%,"sub1"):=TRUE
 6130IFsub_(1)sub_(1)=FALSEELSEsub_(1)=TRUE
 6140=TRUE
 6150DEFFNsub2_:IFsub_(2)ANDFNsub_=1 sub_(2)=TRUE:PROCsI(TakeCard_%,"sub2"):=TRUE
 6160IFsub_(2)=TRUEsub_(2)=FALSEELSEsub_(2)=TRUE
 6170=TRUE
 6180DEFFNsub3_:IFsub_(3)ANDFNsub_=1 sub_(3)=TRUE:PROCsI(TakeCard_%,"sub3"):=TRUE
 6190IFsub_(3)=TRUEsub_(3)=FALSEELSEsub_(3)=TRUE
 6200=TRUE
 6210DEFFNsub4_:IFsub_(4)ANDFNsub_=1 sub_(4)=TRUE:PROCsI(TakeCard_%,"sub4"):=TRUE
 6220IFsub_(4)=TRUEsub_(4)=FALSEELSEsub_(4)=TRUE
 6230=TRUE
 6240DEFFNsub5_:IFsub_(5)ANDFNsub_=1 sub_(5)=TRUE:PROCsI(TakeCard_%,"sub5"):=TRUE
 6250IFsub_(5)=TRUEsub_(5)=FALSEELSEsub_(5)=TRUE
 6260=TRUE
 6270DEFFNsub6_:IFsub_(6)ANDFNsub_=1 sub_(6)=TRUE:PROCsI(TakeCard_%,"sub6"):=TRUE
 6280IFsub_(6)sub_(6)=FALSEELSEsub_(6)=TRUE
 6290=TRUE
 6310DEFFNTakemaxy_:PROCgettakemax:PROCsCI(!(TakeCard_%+12),19):=TRUE
 6320DEFPROCgettakemax:Takemaxy_=VAL($!Takemaxy_%):IFTakemaxy_<4 Takemaxy_=4
 6330$!Takemaxy_%=STR$(Takemaxy_):PROCrI(TakeCard_%,"Takemaxy"):ENDPROC
 6360DEFFNTakeminny_:PROCgettakemax:PROCgettakemin:PROCsCI(!(TakeCard_%+12),19):=TRUE
 6380DEFPROCgettakemin:Takeminny_=VAL($!Takeminny_%):IFTakeminny_<0 Takeminny_=0
 6400IFTakeminny_>Takemaxy_-4 Takeminny_=Takemaxy_-4
 6410$!Takeminny_%=STR$(Takeminny_):PROCrI(TakeCard_%,"Takeminny"):ENDPROC
 6460DEFFNTakecGo_:PROCGetTitles:dummy_=RND(-TIME):PROCwhatlines_:PROCwhatqual:PROCwhatequals:PROCcalctake:PROCusI(TakeCard_%,"TakecGo"):last_=3:quit_=FALSE:Clue_$="CardsTake":started_%=TRUE:=FNsums
 6520DEFPROCcalctake:SYS"Hourglass_On":PROCgettakemax:PROCgettakemin:many_=10:FORtr_%=1TO10:REPEAT:flag_=0:SYS"Hourglass_Percentage",tr_%/10*100:REPEAT:REPEAT:Na_%=RND(Takemaxy_):UNTILNa_%>=Takeminny_:REPEAT:Nb_%=RND(Takemaxy_+1):Nb_%=Nb_%-1:UNTILNb_%>=Takeminny_:UNTILNa_%-Nb_%>-1
 6600IFtr_%>1THEN
 6610FORe_%=1TOtr_%-1:IFNa_%=Na_%(e_%)ANDNb_%=Nb_%(e_%)flag_=1
 6620NEXT
 6630ENDIF:UNTILflag_=0:Na_%(tr_%)=Na_%:Nb_%(tr_%)=Nb_%:Nc_%(tr_%)=Na_%(tr_%)-Nb_%(tr_%):NEXT:SYS"Hourglass_Off":ENDPROC
 6730DEFPROCTimesCards:TimesCard_%=FNfWS("TimesCards"):IFtim_(1)PROCsI(TimesCard_%,"tim1")
 6750IFtim_(2)PROCsI(TimesCard_%,"tim2")
 6760IFtim_(3)PROCsI(TimesCard_%,"tim3")
 6770IFtim_(4)PROCsI(TimesCard_%,"tim4")
 6780IFtim_(5)PROCsI(TimesCard_%,"tim5")
 6790IFtim_(6)PROCsI(TimesCard_%,"tim6")
 6800IFtim_(7)PROCsI(TimesCard_%,"tim7")
 6810IFtim_(8)PROCsI(TimesCard_%,"tim8")
 6820IFtim_(9)PROCsI(TimesCard_%,"tim9")
 6830IFLineType_(1)PROCsI(TimesCard_%,"LineType1")
 6840IFLineType_(2)PROCsI(TimesCard_%,"LineType2")
 6850IFLineType_(3)PROCsI(TimesCard_%,"LineType3")
 6860IFEqSign_PROCsI(TimesCard_%,"EqSign")
 6870IFEqEquals_PROCsI(TimesCard_%,"EqEquals")
 6880IFtimes_(1)PROCsI(TimesCard_%,"times1")
 6890IFtimes_(2)PROCsI(TimesCard_%,"times2")
 6900IFtimes_(3)PROCsI(TimesCard_%,"times3")
 6910ENDPROC
 6950DEFFNtim_:c_=0:FORh_=1TO9:IFtim_(h_)c_=c_+1
 6960NEXT:=c_
 6970DEFFNtim1_:IFtim_(1)ANDFNtim_=1 tim_(1)=TRUE:PROCsI(TimesCard_%,"tim1"):=TRUE
 6980IFtim_(1)tim_(1)=FALSEELSEtim_(1)=TRUE
 6990=TRUE
 7000DEFFNtim2_:IFtim_(2)ANDFNtim_=1 tim_(2)=TRUE:PROCsI(TimesCard_%,"tim2"):=TRUE
 7010IFtim_(2)tim_(2)=FALSEELSEtim_(2)=TRUE
 7020=TRUE
 7030DEFFNtim3_:IFtim_(3)ANDFNtim_=1 tim_(3)=TRUE:PROCsI(TimesCard_%,"tim3"):=TRUE
 7040IFtim_(3)tim_(3)=FALSEELSEtim_(3)=TRUE
 7050=TRUE
 7060DEFFNtim4_:IFtim_(4)ANDFNtim_=1 tim_(4)=TRUE:PROCsI(TimesCard_%,"tim4"):=TRUE
 7070IFtim_(4)tim_(4)=FALSEELSEtim_(4)=TRUE
 7080=TRUE
 7090DEFFNtim5_:IFtim_(5)ANDFNtim_=1 tim_(5)=TRUE:PROCsI(TimesCard_%,"tim5"):=TRUE
 7100IFtim_(5)tim_(5)=FALSEELSEtim_(5)=TRUE
 7110=TRUE
 7120DEFFNtim6_:IFtim_(6)ANDFNtim_=1 tim_(6)=TRUE:PROCsI(TimesCard_%,"tim6"):=TRUE
 7130IFtim_(6)tim_(6)=FALSEELSEtim_(6)=TRUE
 7140=TRUE
 7150DEFFNtim7_:IFtim_(7)ANDFNtim_=1 tim_(7)=TRUE:PROCsI(TimesCard_%,"tim7"):=TRUE
 7160IFtim_(7)tim_(7)=FALSEELSEtim_(7)=TRUE
 7170=TRUE
 7180DEFFNtim8_:IFtim_(8)ANDFNtim_=1 tim_(8)=TRUE:PROCsI(TimesCard_%,"tim8"):=TRUE
 7190IFtim_(8)tim_(8)=FALSEELSEtim_(8)=TRUE
 7200=TRUE
 7210DEFFNtim9_:IFtim_(9)ANDFNtim_=1 tim_(9)=TRUE:PROCsI(TimesCard_%,"tim9"):=TRUE
 7220IFtim_(9)tim_(9)=FALSEELSEtim_(9)=TRUE
 7230=TRUE
 7250DEFFNtimes1_:IFtimes_(1)ANDtimes_(2)+times_(3)=FALSEtimes_(1)=TRUE:PROCsI(TimesCard_%,"times1"):=TRUE
 7260IFtimes_(1)times_(1)=FALSEELSEtimes_(1)=TRUE
 7270=TRUE
 7280DEFFNtimes2_:IFtimes_(2)ANDtimes_(1)+times_(3)=FALSEtimes_(2)=TRUE:PROCsI(TimesCard_%,"times2"):=TRUE
 7290IFtimes_(2)=TRUEtimes_(2)=FALSEELSEtimes_(2)=TRUE
 7300=TRUE
 7310DEFFNtimes3_:IFtimes_(3)ANDtimes_(1)+times_(2)=FALSEtimes_(3)=TRUE:PROCsI(TimesCard_%,"times3"):=TRUE
 7320IFtimes_(3)=TRUEtimes_(3)=FALSEELSEtimes_(3)=TRUE
 7330=TRUE
 7370DEFFNTimescGo_:PROCGetTitles:dummy_=RND(-TIME):PROCwhatlines_:PROCwhatqual:PROCwhatequals:PROCwhattimes:PROCcalctimes:last_=3:quit_=FALSE:Clue_$="CardsTimes":started_%=TRUE:PROCusI(TimesCard_%,"TimescGo"):=FNsums
 7440DEFPROCwhattimes:SYS"Hourglass_On":got_%=0:FORr_%=1TO9:IFtim_(r_%)=TRUETHENgot_%=got_%+1:gc_%(got_%)=r_%
 7460NEXT:IFgot_%=1PROConetimes:SYS"Hourglass_Off":ENDPROC
 7480IFgot_%>4PROCtimes(got_%,10):FORr_=1TO10:Nb_%(r_)=VAL(tim_$(finder_%(r_))):NEXT:SYS"Hourglass_Off":ENDPROC
 7490needed_%=10DIVgot_%:FORr_=1TO10:gc_%(r_)=0:NEXT:got_%=0:FORr_%=1TO9:IFtim_(r_%)=TRUETHENgot_%=got_%+1:gc_%(got_%)=r_%
 7520NEXT:REPEAT:flag_=TRUE:FORr_=1TO10:finder_%(r_)=0:NEXT:FORr_=1TO10:SYS"Hourglass_Percentage",r_/10*100:REPEAT:flig_=TRUE:ran_%=RND(got_%):IFr_>1ANDVAL(tim_$(gc_%(ran_%)))=Nb_%(r_-1)flig_=FALSE
 7600UNTILflig_=TRUE:Nb_%(r_)=VAL(tim_$(gc_%(ran_%))):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORt_=1TOgot_%:IFfinder_%(t_)<needed_% flag_=FALSE
 7630NEXT:UNTILflag_=TRUE:SYS"Hourglass_Off":ENDPROC
 7650DEFPROConetimes:FORr_%=1TO9:IFtim_(r_%)=TRUETHENFORtr_%=1TO10:Nb_%(tr_%)=VAL(tim_$(r_%)):NEXT
 7680NEXT:ENDPROC
 7700DEFPROCtimes(git_%,top_%):FORr_=1TOtop_%:finder_%(r_)=0:NEXT:FORh_=1TOgit_%:REPEAT:tf_=TRUE:h_%=gc_%(RND(git_%)):FORj_=1TOh_:IFfinder_%(j_)=h_% tf_=FALSE
 7770NEXT:UNTILtf_=TRUE:finder_%(h_)=h_%:NEXT:k_=git_%+1:FORh_=k_TOtop_%:REPEAT:tf_=TRUE:REPEAT:h_%=gc_%(RND(git_%)):UNTILh_%<>finder_%(h_-1):IFh_>k_THEN
 7860FORj_=k_TOh_:IFfinder_%(j_)=h_% tf_=FALSE
 7880NEXT
 7890ENDIF:UNTILtf_=TRUE:finder_%(h_)=h_%:NEXT:ENDPROC
 7950DEFPROCcalctimes:SYS"Hourglass_On":FORtr_%=1TO10:SYS"Hourglass_Percentage",tr_%/10*100:REPEAT:flag_=0:Na_%=RND(10):Nb_%=Nb_%(tr_%):IFtr_%>1THEN
 8020FORe_%=1TOtr_%-1:IFNa_%=Na_%(e_%)ANDNb_%=Nb_%(e_%)flag_=1
 8030NEXT
 8040ENDIF:UNTILflag_=0:Na_%(tr_%)=Na_%:Nb_%(tr_%)=Nb_%:Nc_%(tr_%)=Na_%(tr_%)*Nb_%(tr_%):NEXT:SYS"Hourglass_Off":ENDPROC
 8130DEFPROCDivCards:DivCard_%=FNfWS("DivCards"):IFdiv_(1)=TRUEPROCsI(DivCard_%,"div1")
 8150IFdiv_(2)=TRUEPROCsI(DivCard_%,"div2")
 8160IFdiv_(3)=TRUEPROCsI(DivCard_%,"div3")
 8170IFdiv_(4)=TRUEPROCsI(DivCard_%,"div4")
 8180IFdiv_(5)=TRUEPROCsI(DivCard_%,"div5")
 8190IFdiv_(6)=TRUEPROCsI(DivCard_%,"div6")
 8200IFdiv_(7)=TRUEPROCsI(DivCard_%,"div7")
 8210IFdiv_(8)=TRUEPROCsI(DivCard_%,"div8")
 8220IFdiv_(9)=TRUEPROCsI(DivCard_%,"div9")
 8230IFLineType_(1)=TRUEPROCsI(DivCard_%,"LineType1")
 8240IFLineType_(2)=TRUEPROCsI(DivCard_%,"LineType2")
 8250IFLineType_(3)=TRUEPROCsI(DivCard_%,"LineType3")
 8260IFEqSign_=TRUEPROCsI(DivCard_%,"EqSign")
 8270IFEqEquals_=TRUEPROCsI(DivCard_%,"EqEquals")
 8280IFdive_(1)=TRUEPROCsI(DivCard_%,"dive1")
 8290IFdive_(2)=TRUEPROCsI(DivCard_%,"dive2")
 8300IFdive_(3)=TRUEPROCsI(DivCard_%,"dive3")
 8310ENDPROC
 8350DEFFNdiv_:c_=0:FORh_=1TO9:IFdiv_(h_)c_=c_+1
 8360NEXT:=c_
 8370DEFFNdiv1_:IFdiv_(1)ANDFNdiv_=1 div_(1)=TRUE:PROCsI(DivCard_%,"div1"):=TRUE
 8380IFdiv_(1)div_(1)=FALSEELSEdiv_(1)=TRUE
 8390=TRUE
 8400DEFFNdiv2_:IFdiv_(2)ANDFNdiv_=1 div_(2)=TRUE:PROCsI(DivCard_%,"div2"):=TRUE
 8410IFdiv_(2)div_(2)=FALSEELSEdiv_(2)=TRUE
 8420=TRUE
 8430DEFFNdiv3_:IFdiv_(3)ANDFNdiv_=1 div_(3)=TRUE:PROCsI(DivCard_%,"div3"):=TRUE
 8440IFdiv_(3)div_(3)=FALSEELSEdiv_(3)=TRUE
 8450=TRUE
 8460DEFFNdiv4_:IFdiv_(4)ANDFNdiv_=1 div_(4)=TRUE:PROCsI(DivCard_%,"div4"):=TRUE
 8470IFdiv_(4)div_(4)=FALSEELSEdiv_(4)=TRUE
 8480=TRUE
 8490DEFFNdiv5_:IFdiv_(5)ANDFNdiv_=1 div_(5)=TRUE:PROCsI(DivCard_%,"div5"):=TRUE
 8500IFdiv_(5)div_(5)=FALSEELSEdiv_(5)=TRUE
 8510=TRUE
 8520DEFFNdiv6_:IFdiv_(6)ANDFNdiv_=1 div_(6)=TRUE:PROCsI(DivCard_%,"div6"):=TRUE
 8530IFdiv_(6)div_(6)=FALSEELSEdiv_(6)=TRUE
 8540=TRUE
 8550DEFFNdiv7_:IFdiv_(7)ANDFNdiv_=1 div_(7)=TRUE:PROCsI(DivCard_%,"div7"):=TRUE
 8560IFdiv_(7)div_(7)=FALSEELSEdiv_(7)=TRUE
 8570=TRUE
 8580DEFFNdiv8_:IFdiv_(8)ANDFNdiv_=1 div_(8)=TRUE:PROCsI(DivCard_%,"div8"):=TRUE
 8590IFdiv_(8)div_(8)=FALSEELSEdiv_(8)=TRUE
 8600=TRUE
 8610DEFFNdiv9_:IFdiv_(9)ANDFNdiv_=1 div_(9)=TRUE:PROCsI(DivCard_%,"div9"):=TRUE
 8620IFdiv_(9)div_(9)=FALSEELSEdiv_(9)=TRUE
 8630=TRUE
 8650DEFFNdive1_:IFdive_(1)ANDdive_(2)+dive_(3)=FALSEdive_(1)=TRUE:PROCsI(DivCard_%,"dive1"):=TRUE
 8660IFdive_(1)=TRUEdive_(1)=FALSEELSEdive_(1)=TRUE:PROCsI(DivCard_%,"dive1")
 8670=TRUE
 8680DEFFNdive2_:IFdive_(2)=TRUEANDdive_(1)+dive_(3)=FALSEdive_(2)=TRUE:PROCsI(DivCard_%,"dive2"):=TRUE
 8690IFdive_(2)=TRUEdive_(2)=FALSEELSEdive_(2)=TRUE:PROCsI(DivCard_%,"dive2")
 8700=TRUE
 8710DEFFNdive3_:IFdive_(3)=TRUEANDdive_(1)+dive_(2)=FALSEdive_(3)=TRUE:PROCsI(DivCard_%,"dive3"):=TRUE
 8720IFdive_(3)=TRUEdive_(3)=FALSEELSEdive_(3)=TRUE:PROCsI(DivCard_%,"dive3")
 8730=TRUE
 8770DEFFNDivcGo_:PROCGetTitles:dummy_=RND(-TIME):PROCwhatlines_:PROCwhatqual:PROCwhatequals:PROCwhatdiv:PROCcalcdiv:last_=3:quit_=FALSE:Clue_$="CardsDiv":started_%=TRUE:PROCusI(DivCard_%,"DivcGo"):=FNsums
 8840DEFPROCcalcdiv:SYS"Hourglass_On":FORtr_%=1TO10:REPEAT:flag_=0:SYS"Hourglass_Percentage",tr_%/10*100:Na_%=RND(10):Nb_%=Nb_%(tr_%):IFtr_%>1THEN
 8910FORe_%=1TOtr_%-1:IFNa_%=Na_%(e_%)ANDNb_%=Nb_%(e_%)flag_=1
 8920NEXT
 8930ENDIF:UNTILflag_=0:tempa_(tr_%)=Na_%:NEXT:FORr_=1TO10:Na_%(r_)=tempa_(r_)*Nb_%(r_):Nc_%(r_)=tempa_(r_):NEXT:SYS"Hourglass_Off":ENDPROC
 8980DEFPROCwhatdiv:SYS"Hourglass_On":got_%=0:FORr_%=1TO9:IFdiv_(r_%)=TRUETHENgot_%=got_%+1:gc_%(got_%)=r_%
 9000NEXT:IFgot_%=1PROConediv:SYS"Hourglass_Off":ENDPROC
 9020IFgot_%>4PROCtimes(got_%,10):FORr_=1TO10:Nb_%(r_)=VAL(div_$(finder_%(r_))):NEXT:SYS"Hourglass_Off":ENDPROC
 9030needed_%=10DIVgot_%:FORr_=1TO10:gc_%(r_)=0:NEXT:got_%=0:FORr_%=1TO9:IFdiv_(r_%)=TRUETHENgot_%=got_%+1:gc_%(got_%)=r_%
 9060NEXT:REPEAT:flag_=TRUE:FORr_=1TO10:finder_%(r_)=0:NEXT:FORr_=1TO10:SYS"Hourglass_Percentage",r_/10*100:ran_%=RND(got_%):Nb_%(r_)=VAL(div_$(gc_%(ran_%))):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORt_=1TOgot_%:IFfinder_%(t_)<needed_% flag_=FALSE
 9140NEXT:UNTILflag_=TRUE:SYS"Hourglass_Off":ENDPROC
 9160DEFPROConediv:FORr_%=1TO9:IFdiv_(r_%)=TRUETHENFORtr_%=1TO10:Nb_%(tr_%)=VAL(div_$(r_%)):NEXT
 9180NEXT:ENDPROC
 9240DEFPROCAdd:WAdd_%=FNfWS("Add"):IFaddy_(1)PROCsI(WAdd_%,"Add1")
 9260IFaddy_(2)PROCsI(WAdd_%,"Add2")
 9270IFaddy_(3)PROCsI(WAdd_%,"Add3")
 9280IFaddy_(4)PROCsI(WAdd_%,"Add4")
 9290IFaddy_(5)PROCsI(WAdd_%,"Add5")
 9300IFaddy_(6)PROCsI(WAdd_%,"Add6")
 9310IFaddcarry_(1)PROCsI(WAdd_%,"AddCarry1")
 9320IFaddcarry_(2)PROCsI(WAdd_%,"AddCarry2")
 9330IFaddcarry_(3)PROCsI(WAdd_%,"AddCarry3")
 9340IFAnowts_%PROCsI(WAdd_%,"Anowts")
 9350ENDPROC
 9390DEFFNAnowts_:IFaddcarry_(2)Anowts_%=FALSE:PROCusI(WAdd_%,"Anowts"):=TRUE
 9400IFAnowts_%=FALSEAnowts_%=TRUEELSEAnowts_%=FALSE
 9410PROCAcz:=TRUE
 9430DEFPROCAcz:IFaddy_(1)ANDFNaddy_=1 Anowts_%=FALSE:PROCusI(WAdd_%,"Anowts")
 9440ENDPROC
 9460DEFFNaddy_:c_=0:FORt_=1TO6:IFaddy_(t_)c_=c_+1
 9470NEXT:=c_
 9480DEFFNAdd1_:IFaddy_(1)ANDFNaddy_=1 addy_(1)=TRUE:PROCsI(WAdd_%,"Add1"):=TRUE
 9490IFaddy_(1)addy_(1)=FALSEELSEaddy_(1)=TRUE
 9500PROCAcz:=TRUE
 9510DEFFNAdd2_:IFaddy_(2)ANDFNaddy_=1 addy_(2)=TRUE:PROCsI(WAdd_%,"Add2"):=TRUE
 9520IFaddy_(2)addy_(2)=FALSEELSEaddy_(2)=TRUE
 9530PROCAcz:=TRUE
 9540DEFFNAdd3_:IFaddy_(3)ANDFNaddy_=1 addy_(3)=TRUE:PROCsI(WAdd_%,"Add3"):=TRUE
 9550IFaddy_(3)addy_(3)=FALSEELSEaddy_(3)=TRUE
 9560PROCAcz:=TRUE
 9570DEFFNAdd4_:IFaddy_(4)ANDFNaddy_=1 addy_(4)=TRUE:PROCsI(WAdd_%,"Add4"):=TRUE
 9580IFaddy_(4)addy_(4)=FALSEELSEaddy_(4)=TRUE
 9590PROCAcz:=TRUE
 9600DEFFNAdd5_:IFaddy_(5)ANDFNaddy_=1 addy_(5)=TRUE:PROCsI(WAdd_%,"Add5"):=TRUE
 9610IFaddy_(5)addy_(5)=FALSEELSEaddy_(5)=TRUE
 9620PROCAcz:=TRUE
 9630DEFFNAdd6_:IFaddy_(6)ANDFNaddy_=1 addy_(6)=TRUE:PROCsI(WAdd_%,"Add6"):=TRUE
 9640IFaddy_(6)addy_(6)=FALSEELSEaddy_(6)=TRUE
 9650PROCAcz:=TRUE
 9670DEFFNAddCarry1_:IFaddcarry_(1)ANDaddcarry_(2)+addcarry_(3)=FALSEaddcarry_(1)=TRUE:PROCsI(WAdd_%,"AddCarry1"):=TRUE
 9680IFaddcarry_(1)=FALSEaddcarry_(1)=TRUE:PROCsI(WAdd_%,"AddCarry1"):addcarry_(2)=FALSE:PROCusI(WAdd_%,"AddCarry2"):addcarry_(3)=FALSE:PROCusI(WAdd_%,"AddCarry3"):=TRUE
 9690DEFFNAddCarry2_:IFaddcarry_(2)ANDaddcarry_(1)+addcarry_(3)=FALSEaddcarry_(2)=TRUE:PROCsI(WAdd_%,"AddCarry2"):=TRUE
 9700IFaddcarry_(2)=FALSEaddcarry_(2)=TRUE:PROCsI(WAdd_%,"AddCarry2"):addcarry_(1)=FALSE:PROCusI(WAdd_%,"AddCarry1"):addcarry_(3)=FALSE:PROCusI(WAdd_%,"AddCarry3"):Anowts_%=FALSE:PROCusI(WAdd_%,"Anowts"):=TRUE
 9710DEFFNAddCarry3_:IFaddcarry_(3)ANDaddcarry_(1)+addcarry_(2)=FALSEaddcarry_(3)=TRUE:PROCsI(WAdd_%,"AddCarry3"):=TRUE
 9720IFaddcarry_(3)=FALSEaddcarry_(3)=TRUE:PROCsI(WAdd_%,"AddCarry3"):addcarry_(1)=FALSE:PROCusI(WAdd_%,"AddCarry1"):addcarry_(2)=FALSE:PROCusI(WAdd_%,"AddCarry2"):=TRUE
 9730
 9760DEFFNAddgo_:PROCGetTitles:many_=12:PROCwhatadds:PROCaddup:started_%=TRUE:PROCusI(WAdd_%,"Addgo"):SYS"Hourglass_Off":last_=3:quit_=FALSE:Clue_$="Add1a":=FNsums
 9810DEFPROCwhatadds:got_%=0:FORr_=1TO6:IFaddy_(r_)got_%=got_%+1:addytype_(got_%)=r_:gc_%(got_%)=r_
 9830NEXT:IFgot_%=1FORr_=1TO12:lineaddy_(r_)=addytype_(got_%):NEXT:ENDPROC
 9850IFgot_%=6PROCtimes(got_%,12):FORr_=1TO12:lineaddy_(r_)=gc_%(finder_%(r_)):NEXT:SYS"Hourglass_Off":ENDPROC
 9860needed_%=12DIVgot_%:SYS"Hourglass_On":REPEAT:FORr_=1TO12:finder_%(r_)=0:NEXT:flag_=TRUE:FORr_=1TO12:SYS"Hourglass_Percentage",r_/12*100:REPEAT:flig_=TRUE:ran_%=RND(got_%):IFr_>1ANDgc_%(ran_%)=lineaddy_(r_-1)flig_=FALSE
 9970UNTILflig_=TRUE:lineaddy_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORt_=1TOgot_%:IFfinder_%(t_)<needed_% flag_=FALSE
10000NEXT:UNTILflag_=TRUE:SYS"Hourglass_Off":ENDPROC
10030DEFPROCaddup:dummy_=RND(-TIME):FORt_=1TO12:a_(t_)=-1:b_(t_)=-1:NEXT:SYS"Hourglass_On":FORt_=1TO12:IFlineaddy_(t_)=1 ran_%=9
10080IFlineaddy_(t_)=2 ran_%=99
10090IFlineaddy_(t_)=3 ran_%=999
10100IFlineaddy_(t_)=4 ran_%=9999
10110IFlineaddy_(t_)=5 ran_%=99999
10120IFlineaddy_(t_)=6 ran_%=999999
10130SYS"Hourglass_Percentage",t_/10*100:REPEAT:flag_=0:a_=RND(ran_%):b_=RND(ran_%):IFAnowts_%PROCAnoughts
10150IFaddcarry_(1)PROCnoaddcarry
10170IFaddcarry_(2)PROCalladdcarry
10180IFt_>1THEN
10190FORe_=1TOt_-1:IFa_=a_(e_)ANDb_=b_(e_)flag_=1
10200NEXT
10210ENDIF:UNTILflag_=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_+b_:NEXT:ENDPROC
10270DEFPROCAnoughts:n_=RND(2):IFn_=1THEN
10300v_$=STR$(a_):FORw_=2TOLEN(v_$):rr_=RND(4):IFrr_=1ORrr_=2ORrr_=3THENMID$(v_$,w_,1)="0"
10320NEXT:a_=VAL(v_$)
10330ENDIF:IFn_=2THEN
10350v_$=STR$(b_):FORw_=2TOLEN(v_$):rr_=RND(4):IFrr_=1ORrr_=2ORrr_=3THENMID$(v_$,w_,1)="0"
10370NEXT:b_=VAL(v_$)
10380ENDIF:ENDPROC
10400DEFPROCnoaddcarry:a_$=STR$(a_):b_$=STR$(b_):la_=LEN(a_$):lb_=LEN(b_$):z_=la_:IFlb_<la_ z_=lb_
10420FORr_=z_TO1STEP-1:IFVAL(MID$(a_$,r_,1))+VAL(MID$(b_$,r_,1))>9 flag_=1
10440NEXT:ENDPROC
10460DEFPROCalladdcarry:a_$=STR$(a_):b_$=STR$(b_):la_=LEN(a_$):lb_=LEN(b_$):z_=la_:IFlb_>la_ z_=lb_
10480FORr_=z_TO1STEP-1:IFVAL(MID$(a_$,r_,1))+VAL(MID$(b_$,r_,1))<10 flag_=1
10490NEXT:ENDPROC
10550DEFPROCsubtract:WSub_%=FNfWS("Subtract"):IFsubby_(1)PROCsI(WSub_%,"Take1")
10570IFsubby_(2)PROCsI(WSub_%,"Take2")
10580IFsubby_(3)PROCsI(WSub_%,"Take3")
10590IFsubby_(4)PROCsI(WSub_%,"Take4")
10600IFsubby_(5)PROCsI(WSub_%,"Take5")
10610IFsubby_(6)PROCsI(WSub_%,"Take6")
10620IFsubcarry_(1)PROCsI(WSub_%,"SubCarry1")
10630IFsubcarry_(2)PROCsI(WSub_%,"SubCarry2")
10640IFsubcarry_(3)PROCsI(WSub_%,"SubCarry3")
10650IFnowts_%PROCsI(WSub_%,"nowts")
10660ENDPROC
10700DEFFNsubby_:c_=0:FORm_=1TO6:IFsubby_(m_)=TRUEc_=c_+1
10710NEXT:=c_
10720DEFFNTake1_:IFsubby_(1)ANDFNsubby_=1 subby_(1)=TRUE:PROCsI(WSub_%,"Take1"):PROCcz:=TRUE
10730IFsubby_(1)subby_(1)=FALSEELSEsubby_(1)=TRUE
10740PROCcz:=TRUE
10750DEFFNTake2_:IFsubby_(2)ANDFNsubby_=1 subby_(2)=TRUE:PROCsI(WSub_%,"Take2"):PROCcz:=TRUE
10760IFsubby_(2)subby_(2)=FALSEELSEsubby_(2)=TRUE
10770PROCcz:=TRUE
10780DEFFNTake3_:IFsubby_(3)ANDFNsubby_=1 subby_(3)=TRUE:PROCsI(WSub_%,"Take3"):PROCcz:=TRUE
10790IFsubby_(3)subby_(3)=FALSEELSEsubby_(3)=TRUE
10800PROCcz:=TRUE
10810DEFFNTake4_:IFsubby_(4)ANDFNsubby_=1 subby_(4)=TRUE:PROCsI(WSub_%,"Take4"):PROCcz:=TRUE
10820IFsubby_(4)subby_(4)=FALSEELSEsubby_(4)=TRUE
10830PROCcz:=TRUE
10840DEFFNTake5_:IFsubby_(5)ANDFNsubby_=1 subby_(5)=TRUE:PROCsI(WSub_%,"Take5"):PROCcz:=TRUE
10850IFsubby_(5)subby_(5)=FALSEELSEsubby_(5)=TRUE
10860PROCcz:=TRUE
10870DEFFNTake6_:IFsubby_(6)ANDFNsubby_=1 subby_(6)=TRUE:PROCsI(WSub_%,"Take6"):PROCcz:=TRUE
10880IFsubby_(6)subby_(6)=FALSEELSEsubby_(6)=TRUE
10890PROCcz:=TRUE
10910DEFFNSubCarry1_:IFsubcarry_(1)ANDsubcarry_(2)+subcarry_(3)=FALSEsubcarry_(1)=TRUE:PROCsI(WSub_%,"SubCarry1"):PROCcz:=TRUE
10920IFsubcarry_(1)=FALSEsubcarry_(1)=TRUE:PROCsI(WSub_%,"SubCarry1"):subcarry_(2)=FALSE:PROCusI(WSub_%,"SubCarry2"):subcarry_(3)=FALSE:PROCusI(WSub_%,"SubCarry3"):nowts_%=FALSE:PROCusI(WSub_%,"nowts"):PROCcz:=TRUE
10930DEFFNSubCarry2_:IFsubcarry_(2)ANDsubcarry_(1)+subcarry_(3)=FALSEsubcarry_(2)=TRUE:PROCsI(WSub_%,"SubCarry2"):PROCcz:=TRUE
10940IFsubcarry_(2)=FALSEsubcarry_(2)=TRUE:PROCsI(WSub_%,"SubCarry2"):subcarry_(1)=FALSE:PROCusI(WSub_%,"SubCarry1"):subcarry_(3)=FALSE:PROCusI(WSub_%,"SubCarry3"):PROCcz:=TRUE
10950DEFFNSubCarry3_:IFsubcarry_(3)ANDsubcarry_(2)+subcarry_(3)=FALSEsubcarry_(3)=TRUE:PROCsI(WSub_%,"SubCarry3"):PROCcz:=TRUE
10960IFsubcarry_(3)=FALSEsubcarry_(3)=TRUE:PROCsI(WSub_%,"SubCarry3"):subcarry_(1)=FALSE:PROCusI(WSub_%,"SubCarry1"):subcarry_(2)=FALSE:PROCusI(WSub_%,"SubCarry2"):PROCcz:=TRUE
10970
10980DEFFNnowts_:IFsubcarry_(1)nowts_%=FALSE:PROCusI(WSub_%,"nowts"):=FALSE
10990IFnowts_%=FALSEnowts_%=TRUE:PROCsI(WSub_%,"nowts")ELSEIFnowts_%=TRUEnowts_%=FALSE:PROCusI(WSub_%,"nowts")
11000PROCcz:=TRUE
11020DEFPROCcz:z_%=0:FORg_%=1TO6:IFsubby_(g_%)=TRUEz_%=z_%+1
11030NEXT:IFz_%=1ANDsubby_(1)=TRUEnowts_%=FALSE:PROCusI(WSub_%,"nowts"):subcarry_(1)=TRUE:PROCsI(WSub_%,"SubCarry1"):subcarry_(2)=FALSE:PROCusI(WSub_%,"SubCarry2"):subcarry_(3)=FALSE:PROCusI(WSub_%,"SubCarry3")
11040ENDPROC
11080DEFFNTakego_:PROCGetTitles:PROCwhattakes:PROCtakeup:last_=3:quit_=FALSE:Clue_$="Sub1a":started_%=TRUE:SYS"Hourglass_Off":PROCusI(WSub_%,"Takego"):=FNsums
11150DEFPROCwhattakes:got_%=0:FORr_=1TO6:IFsubby_(r_)got_%=got_%+1:subbytype_(got_%)=r_:gc_%(got_%)=r_
11170NEXT:IFgot_%=1FORr_=1TO12:linesubby_(r_)=subbytype_(got_%):NEXT:ENDPROC
11190IFgot_%=6PROCtimes(got_%,12):FORr_=1TO12:linesubby_(r_)=gc_%(finder_%(r_)):NEXT:SYS"Hourglass_Off":ENDPROC
11200needed_%=12DIVgot_%:REPEAT:FORr_=1TO12:finder_%(r_)=0:NEXT:flag_=TRUE:FORr_=1TO12:SYS"Hourglass_Percentage",r_/12*100:REPEAT:flig_=TRUE:ran_%=RND(got_%):IFr_>1ANDgc_%(ran_%)=linesubby_(r_-1)flig_=FALSE
11300UNTILflig_=TRUE:linesubby_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORt_=1TOgot_%:IFfinder_%(t_)<needed_% flag_=FALSE
11330NEXT:UNTILflag_=TRUE:SYS"Hourglass_Off":ENDPROC
11360DEFPROCtakeup:dummy_=RND(-TIME):FORt_=1TO12:a_(t_)=-1:b_(t_)=-1:NEXT:SYS"Hourglass_On":FORt_=1TO12:IFlinesubby_(t_)=1 ran_%=9
11410IFlinesubby_(t_)=2 ran_%=99
11420IFlinesubby_(t_)=3 ran_%=999
11430IFlinesubby_(t_)=4 ran_%=9999
11440IFlinesubby_(t_)=5 ran_%=99999
11450IFlinesubby_(t_)=6 ran_%=999999
11460SYS"Hourglass_Percentage",t_/10*100:REPEAT:flag_=0:REPEAT:a_=RND(ran_%):PROCnoughts:b_=RND(ran_%):UNTILa_>b_:IFsubcarry_(1)=TRUEPROCnosubcarry
11510IFsubcarry_(2)=TRUEPROCallsubcarry
11520IFt_>1THEN
11530FORe_=1TOt_-1:IFa_=a_(e_)ANDb_=b_(e_)flag_=1
11540NEXT
11550ENDIF:UNTILflag_=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_-b_:NEXT:ENDPROC
11610DEFPROCnosubcarry:a_$=STR$(a_):b_$=STR$(b_):FORr_=1TOLEN(a_$):PROCcheckvall:NEXT:ENDPROC
11650DEFPROCallsubcarry:a_$=STR$(a_):b_$=STR$(b_):zz_=LEN(a_$):FORr_=zz_TO1STEP-1:IFr_<>1PROCcheckval
11680NEXT:ENDPROC
11700DEFPROCcheckval:IFVAL(MID$(b_$,r_,1))<=VAL(MID$(a_$,r_,1))flag_=1
11710ENDPROC
11730DEFPROCcheckvall:IFVAL(MID$(a_$,r_,1))<=VAL(MID$(b_$,r_,1))flag_=1
11740ENDPROC
11760DEFPROCnoughts:IFnowts_%=FALSEENDPROC
11770v_$=STR$(a_):FORw_=2TOLEN(v_$):rr_=RND(4):IFrr_=1ORrr_=2ORrr_=3THENMID$(v_$,w_,1)="0"
11790NEXT:a_=VAL(v_$):ENDPROC
11850DEFPROCmultiply:WMult_%=FNfWS("Multiply"):IFmulty_(1)PROCsI(WMult_%,"Multy1")
11870IFmulty_(2)PROCsI(WMult_%,"Multy2")
11880IFmulty_(3)PROCsI(WMult_%,"Multy3")
11890IFmulty_(4)PROCsI(WMult_%,"Multy4")
11900IFmulty_(5)PROCsI(WMult_%,"Multy5")
11910IFmulty_(6)PROCsI(WMult_%,"Multy6")
11920IFmult_(1)PROCsI(WMult_%,"mult1")
11930IFmult_(2)PROCsI(WMult_%,"mult2")
11940IFmult_(3)PROCsI(WMult_%,"mult3")
11950IFmult_(4)PROCsI(WMult_%,"mult4")
11960IFmult_(5)PROCsI(WMult_%,"mult5")
11970IFmult_(6)PROCsI(WMult_%,"mult6")
11980IFmult_(7)PROCsI(WMult_%,"mult7")
11990IFmult_(8)PROCsI(WMult_%,"mult8")
12000IFmult_(9)PROCsI(WMult_%,"mult9")
12010IFMnowts_%PROCsI(WMult_%,"Mnowts")
12020ENDPROC
12060DEFFNMnowts_:IFMnowts_%=FALSEMnowts_%=TRUEELSEMnowts_%=FALSE
12070PROCMcz:=TRUE
12090DEFPROCMcz:IFmulty_(1)ANDFNmulty_=1 Mnowts_%=FALSE:PROCusI(WMult_%,"Mnowts")
12100ENDPROC
12120DEFFNmulty_:c_=0:FORm_=1TO6:IFmulty_(m_)=TRUEc_=c_+1
12130NEXT:=c_
12140DEFFNMulty1_:IFmulty_(1)ANDFNmulty_=1 multy_(1)=TRUE:PROCsI(WMult_%,"Multy1"):=TRUE
12150IFmulty_(1)multy_(1)=FALSEELSEmulty_(1)=TRUE
12160PROCMcz:=TRUE
12170DEFFNMulty2_:IFmulty_(2)ANDFNmulty_=1 multy_(2)=TRUE:PROCsI(WMult_%,"Multy2"):=TRUE
12180IFmulty_(2)multy_(2)=FALSEELSEmulty_(2)=TRUE
12190PROCMcz:=TRUE
12200DEFFNMulty3_:IFmulty_(3)ANDFNmulty_=1 multy_(3)=TRUE:PROCsI(WMult_%,"Multy3"):=TRUE
12210IFmulty_(3)multy_(3)=FALSEELSEmulty_(3)=TRUE
12220PROCMcz:=TRUE
12230DEFFNMulty4_:IFmulty_(4)ANDFNmulty_=1 multy_(4)=TRUE:PROCsI(WMult_%,"Multy4"):=TRUE
12240IFmulty_(4)multy_(4)=FALSEELSEmulty_(4)=TRUE
12250PROCMcz:=TRUE
12260DEFFNMulty5_:IFmulty_(5)ANDFNmulty_=1 multy_(5)=TRUE:PROCsI(WMult_%,"Multy5"):=TRUE
12270IFmulty_(5)multy_(5)=FALSEELSEmulty_(5)=TRUE
12280PROCMcz:=TRUE
12290DEFFNMulty6_:IFmulty_(6)ANDFNmulty_=1 multy_(6)=TRUE:PROCsI(WMult_%,"Multy6"):=TRUE
12300IFmulty_(6)multy_(6)=FALSEELSEmulty_(6)=TRUE
12310PROCMcz:=TRUE
12320DEFFNmult_:c_=0:FORm_=1TO9:IFmult_(m_)=TRUEc_=c_+1
12330NEXT:=c_
12340DEFFNmult1_:IFmult_(1)ANDFNmult_=1mult_(1)=TRUE:PROCsI(WMult_%,"mult1"):=TRUE
12350IFmult_(1)mult_(1)=FALSEELSEmult_(1)=TRUE
12360=TRUE
12370DEFFNmult2_:IFmult_(2)ANDFNmult_=1 mult_(2)=TRUE:PROCsI(WMult_%,"mult2"):=TRUE
12380IFmult_(2)mult_(2)=FALSEELSEmult_(2)=TRUE
12390=TRUE
12400DEFFNmult3_:IFmult_(3)ANDFNmult_=1 mult_(3)=TRUE:PROCsI(WMult_%,"mult3"):=TRUE
12410IFmult_(3)mult_(3)=FALSEELSEmult_(3)=TRUE
12420=TRUE
12430DEFFNmult4_:IFmult_(4)ANDFNmult_=1 mult_(4)=TRUE:PROCsI(WMult_%,"mult4"):=TRUE
12440IFmult_(4)mult_(4)=FALSEELSEmult_(4)=TRUE
12450=TRUE
12460DEFFNmult5_:IFmult_(5)ANDFNmult_=1 mult_(5)=TRUE:PROCsI(WMult_%,"mult5"):=TRUE
12470IFmult_(5)mult_(5)=FALSEELSEmult_(5)=TRUE
12480=TRUE
12490DEFFNmult6_:IFmult_(6)ANDFNmult_=1 mult_(6)=TRUE:PROCsI(WMult_%,"mult6"):=TRUE
12500IFmult_(6)mult_(6)=FALSEELSEmult_(6)=TRUE
12510=TRUE
12520DEFFNmult7_:IFmult_(7)ANDFNmult_=1 mult_(7)=TRUE:PROCsI(WMult_%,"mult7"):=TRUE
12530IFmult_(7)mult_(7)=FALSEELSEmult_(7)=TRUE
12540=TRUE
12550DEFFNmult8_:IFmult_(8)ANDFNmult_=1 mult_(8)=TRUE:PROCsI(WMult_%,"mult8"):=TRUE
12560IFmult_(8)mult_(8)=FALSEELSEmult_(8)=TRUE
12570=TRUE
12580DEFFNmult9_:IFmult_(9)ANDFNmult_=1 mult_(9)=TRUE:PROCsI(WMult_%,"mult9"):=TRUE
12590IFmult_(9)mult_(9)=FALSEELSEmult_(9)=TRUE
12600=TRUE
12640DEFFNMultygo_:PROCGetTitles:dummy_=RND(-TIME):PROCwhatmultlines:PROCwhatmult:PROCcalcmult:last_=3:quit_=FALSE:Clue_$="Multy":started_%=TRUE:PROCusI(WMult_%,"Multygo"):SYS"Hourglass_Off":=FNsums
12690DEFPROCwhatmultlines:got_%=0:FORr_=1TO6:IFmulty_(r_)got_%=got_%+1:multytype_(got_%)=r_:gc_%(got_%)=r_
12710NEXT:IFgot_%=1FORr_=1TO12:linemulty_(r_)=multytype_(got_%):NEXT:ENDPROC
12730IFgot_%=6PROCtimes(got_%,12):FORr_=1TO12:linemulty_(r_)=gc_%(finder_%(r_)):NEXT:SYS"Hourglass_Off":ENDPROC
12740needed_%=12DIVgot_%:SYS"Hourglass_On":REPEAT:FORr_=1TO12:finder_%(r_)=0:NEXT:flag_=TRUE:FORr_=1TO12:SYS"Hourglass_Percentage",r_/12*100:REPEAT:flig_=TRUE:ran_%=RND(got_%):IFr_>1ANDgc_%(ran_%)=linemulty_(r_-1)flig_=FALSE
12840UNTILflig_=TRUE:linemulty_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORt_=1TOgot_%:IFfinder_%(t_)<needed_% flag_=FALSE
12870NEXT:UNTILflag_=TRUE:SYS"Hourglass_Off":ENDPROC
12900DEFPROCcalcmult:IFFNmult_=1ANDFNmulty_=1ANDmulty_(1)many_=9ELSEmany_=12
12920SYS"Hourglass_On":FORt_=1TOmany_:IFlinemulty_(t_)=1 ran_%=9:rn_%=0
12950IFlinemulty_(t_)=2 ran_%=99:rn_%=9
12960IFlinemulty_(t_)=3 ran_%=999:rn_%=99
12970IFlinemulty_(t_)=4 ran_%=9999:rn_%=999
12980IFlinemulty_(t_)=5 ran_%=99999:rn_%=9999
12990IFlinemulty_(t_)=6 ran_%=999999:rn_%=99999
13000SYS"Hourglass_Percentage",t_/12*100:REPEAT:flag_=0:REPEAT:a_=RND(ran_%):UNTILa_>rn_%:b_=Nb_%(t_):IFt_>1THEN
13040FORe_=1TOt_-1:IFa_=a_(e_)ANDb_=b_(e_)flag_=1
13050NEXT
13060ENDIF:IFMnowts_%PROCMnoughts
13080UNTILflag_=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:NEXT:started_%=TRUE:SYS"Hourglass_Off":ENDPROC
13130DEFPROCMnoughts:v_$=STR$(a_):FORw_=2TOLEN(v_$):rr_=RND(4):IFrr_=1ORrr_=2ORrr_=3THENMID$(v_$,w_,1)="0"
13150NEXT:a_=VAL(v_$):ENDPROC
13170DEFPROConemult:FORr_%=1TO9:IFmult_(r_%)=TRUETHENFORtr_%=1TO12:Nb_%(tr_%)=VAL(mult_$(r_%)):NEXT
13180NEXT:ENDPROC
13200DEFPROCwhatmult:FORr_=1TO12:gc_%(r_)=0:NEXT:got_%=0:FORr_%=1TO9:IFmult_(r_%)=TRUEgot_%=got_%+1:gc_%(got_%)=r_%
13230NEXT:IFgot_%=1PROConemult:ENDPROC
13250IFgot_%>5PROCtimes(got_%,12):FORr_=1TO12:Nb_%(r_)=VAL(mult_$(finder_%(r_))):NEXT:ENDPROC
13260SYS"Hourglass_On":needed_%=12DIVgot_%:REPEAT:flag_=TRUE:FORr_=1TO12:finder_%(r_)=0:NEXT:FORr_=1TO12:SYS"Hourglass_Percentage",r_/12*100:ran_%=RND(got_%):Nb_%(r_)=VAL(mult_$(gc_%(ran_%))):finder_%(ran_%)=finder_%(ran_%)+1:NEXT
13340FORt_=1TOgot_%:IFfinder_%(t_)<needed_% flag_=FALSE
13350NEXT:UNTILflag_=TRUE:SYS"Hourglass_Off":ENDPROC
13410DEFPROCDivide:WDiv_%=FNfWS("Divide"):IFdvy_(1)PROCsI(WDiv_%,"Divy1")
13440IFdvy_(2)PROCsI(WDiv_%,"Divy2")
13450IFdvy_(3)PROCsI(WDiv_%,"Divy3")
13460IFdvy_(4)PROCsI(WDiv_%,"Divy4")
13470IFdvy_(5)PROCsI(WDiv_%,"Divy5")
13480IFdv_(1)PROCsI(WDiv_%,"dv1")
13490IFdv_(2)PROCsI(WDiv_%,"dv2")
13500IFdv_(3)PROCsI(WDiv_%,"dv3")
13510IFdv_(4)PROCsI(WDiv_%,"dv4")
13520IFdv_(5)PROCsI(WDiv_%,"dv5")
13530IFdv_(6)PROCsI(WDiv_%,"dv6")
13540IFdv_(7)PROCsI(WDiv_%,"dv7")
13550IFdv_(8)PROCsI(WDiv_%,"dv8")
13560IFdv_(9)PROCsI(WDiv_%,"dv9")
13570IFDnowts_%PROCsI(WDiv_%,"Dnowts")
13580PROCremainders:ENDPROC
13620DEFFNDnowts_:IFDnowts_%=FALSEDnowts_%=TRUEELSEDnowts_%=FALSE
13630PROCDcz:=TRUE
13650DEFPROCDcz:IFdvy_(1)ANDFNdvy=1 Dnowts_%=FALSE:PROCusI(WDiv_%,"Dnowts")
13660ENDPROC
13680DEFPROCremainders:IFRemainder_$="No"PROCsI(WDiv_%,"Drem1"):PROCusI(WDiv_%,"Drem2"):PROCusI(WDiv_%,"Drem3")
13700IFRemainder_$="All"PROCsI(WDiv_%,"Drem2"):PROCusI(WDiv_%,"Drem1"):PROCusI(WDiv_%,"Drem3")
13710IFRemainder_$="Ran"PROCsI(WDiv_%,"Drem3"):PROCusI(WDiv_%,"Drem1"):PROCusI(WDiv_%,"Drem2")
13720ENDPROC
13740DEFFNDrem1_:Remainder_$="No":PROCremainders:=TRUE
13750DEFFNDrem2_:Remainder_$="All":PROCremainders:=TRUE
13760DEFFNDrem3_:Remainder_$="Ran":PROCremainders:=TRUE
13780DEFFNdvy:c_=0:FORh_=1TO5:IFdvy_(h_)=TRUEc_=c_+1
13790NEXT:=c_
13800DEFFNDivy1_:IFdvy_(1)ANDFNdvy=1 dvy_(1)=TRUE:PROCsI(WDiv_%,"Divy1"):=TRUE
13820IFdvy_(1)dvy_(1)=FALSEELSEdvy_(1)=TRUE
13830PROCDcz:=TRUE
13840DEFFNDivy2_:IFdvy_(2)ANDFNdvy=1 dvy_(2)=TRUE:PROCsI(WDiv_%,"Divy2"):=TRUE
13860IFdvy_(2)dvy_(2)=FALSEELSEdvy_(2)=TRUE
13870PROCDcz:=TRUE
13880DEFFNDivy3_:IFdvy_(3)ANDFNdvy=1 dvy_(3)=TRUE:PROCsI(WDiv_%,"Divy3"):=TRUE
13900IFdvy_(3)dvy_(3)=FALSEELSEdvy_(3)=TRUE
13910PROCDcz:=TRUE
13920DEFFNDivy4_:IFdvy_(4)ANDFNdvy=1 dvy_(4)=TRUE:PROCsI(WDiv_%,"Divy4"):=TRUE
13940IFdvy_(4)dvy_(4)=FALSEELSEdvy_(4)=TRUE
13950PROCDcz:=TRUE
13960DEFFNDivy5_:IFdvy_(5)ANDFNdvy=1 dvy_(5)=TRUE:PROCsI(WDiv_%,"Divy5"):=TRUE
13980IFdvy_(5)dvy_(5)=FALSEELSEdvy_(5)=TRUE
13990PROCDcz:=TRUE
14000DEFFNdv:c_=0:FORh_=1TO9:IFdv_(h_)=TRUEc_=c_+1
14010NEXT:=c_
14020DEFFNdv1_:IFdv_(1)ANDFNdv=1 dv_(1)=TRUE:PROCsI(WDiv_%,"dv1"):=TRUE
14040IFdv_(1)dv_(1)=FALSEELSEdv_(1)=TRUE
14050=TRUE
14060DEFFNdv2_:IFdv_(2)ANDFNdv=1 dv_(2)=TRUE:PROCsI(WDiv_%,"dv2"):=TRUE
14080IFdv_(2)dv_(2)=FALSEELSEdv_(2)=TRUE
14090=TRUE
14100DEFFNdv3_:IFdv_(3)ANDFNdv=1 dv_(3)=TRUE:PROCsI(WDiv_%,"dv3"):=TRUE
14120IFdv_(3)dv_(3)=FALSEELSEdv_(3)=TRUE
14130=TRUE
14140DEFFNdv4_:IFdv_(4)ANDFNdv=1 dv_(4)=TRUE:PROCsI(WDiv_%,"dv4"):=TRUE
14160IFdv_(4)dv_(4)=FALSEELSEdv_(4)=TRUE
14170=TRUE
14180DEFFNdv5_:IFdv_(5)ANDFNdv=1 dv_(5)=TRUE:PROCsI(WDiv_%,"dv5"):=TRUE
14200IFdv_(5)dv_(5)=FALSEELSEdv_(5)=TRUE
14210=TRUE
14220DEFFNdv6_:IFdv_(6)ANDFNdv=1 dv_(6)=TRUE:PROCsI(WDiv_%,"dv6"):=TRUE
14240IFdv_(6)dv_(6)=FALSEELSEdv_(6)=TRUE
14250=TRUE
14260DEFFNdv7_:IFdv_(7)ANDFNdv=1 dv_(7)=TRUE:PROCsI(WDiv_%,"dv7"):=TRUE
14280IFdv_(7)dv_(7)=FALSEELSEdv_(7)=TRUE
14290=TRUE
14300DEFFNdv8_:IFdv_(8)ANDFNdv=1 dv_(8)=TRUE:PROCsI(WDiv_%,"dv8"):=TRUE
14320IFdv_(8)dv_(8)=FALSEELSEdv_(8)=TRUE
14330=TRUE
14340DEFFNdv9_:IFdv_(9)ANDFNdv=1 dv_(9)=TRUE:PROCsI(WDiv_%,"dv9"):=TRUE
14360IFdv_(9)dv_(9)=FALSEELSEdv_(9)=TRUE
14370=TRUE
14410DEFFNDivyGo_:PROCGetTitles:dummy_=RND(-TIME):PROCwhatdivline:PROCwhatdivy:PROCcalcdivy:last_=3:quit_=FALSE:Clue_$="Divy":started_%=TRUE:SYS"Hourglass_Off":PROCusI(WDiv_%,"DivyGo"):=FNsums
14460DEFFNsums:IFFNgWx("Choices")THENn_=FNwindow("GrafIt"):n_=FNwindow("Choices"):=TRUEELSE=FNwindow("GrafIt")
14470
14480DEFPROConedvy:FORr_%=1TO9:IFdv_(r_%)THENFORtr_%=1TO12:Nb_%(tr_%)=VAL(dv_$(r_%)):NEXT
14490NEXT:ENDPROC
14510DEFPROCwhatdivy:FORr_=1TO12:gc_%(r_)=0:NEXT:got_%=0:FORr_%=1TO9:IFdv_(r_%)=TRUEgot_%=got_%+1:gc_%(got_%)=r_%
14530NEXT:IFgot_%=1PROConedvy:ENDPROC
14550IFgot_%>5PROCtimes(got_%,12):FORr_=1TO12:Nb_%(r_)=VAL(dv_$(finder_%(r_))):NEXT:ENDPROC
14560SYS"Hourglass_On":needed_%=12DIVgot_%:REPEAT:FORr_=1TO12:finder_%(r_)=0:NEXT:flag_=TRUE:FORr_=1TO12:SYS"Hourglass_Percentage",r_/12*100:REPEAT:flig_=TRUE:ran_%=RND(got_%):Nb_%=VAL(dv_$(gc_%(ran_%))):IFr_>1THEN
14620IFNb_%=Nb_%(r_-1)flig_=FALSE
14630ENDIF:UNTILflig_=TRUE:Nb_%(r_)=VAL(dv_$(gc_%(ran_%))):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORt_=1TOgot_%:IFfinder_%(t_)<needed_% flag_=FALSE
14680NEXT:UNTILflag_=TRUE:SYS"Hourglass_Off":ENDPROC
14700DEFPROCwhatdivline:got_%=0:FORr_=1TO5:IFdvy_(r_)got_%=got_%+1:gc_%(got_%)=r_
14720NEXT:IFgot_%=1THENFORr_=1TO12:linedvy_(r_)=gc_%(got_%):NEXT:ENDPROC
14740needed_%=12DIVgot_%:REPEAT:flag_=TRUE:FORr_=1TO12:REPEAT:flig_=TRUE:ran_%=RND(got_%):linedvy_=gc_%(ran_%):IFr_>1THEN
14790IFlinedvy_=linedvy_(r_-1)flig_=FALSE
14800ENDIF:UNTILflig_=TRUE:linedvy_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORtr_=1TOgot_%:IFfinder_%(tr_)<needed_% flag_=FALSE
14850NEXT:UNTILflag_=TRUE:ENDPROC
14890DEFPROCDnoughts:v_$=STR$(a_):FORw_=2TOLEN(v_$):rr_=RND(4):IFrr_=1ORrr_=2ORrr_=3THENMID$(v_$,w_,1)="0"
14910NEXT:a_=VAL(v_$):ENDPROC
14930DEFPROCcalcdivy:many_=12:tr_=FALSE:IFFNdvy=1ANDFNdv=1ANDdvy_(1)ANDRemainder_$="No" tr_=TRUE
14950IFtr_ANDdv_(7)ORtr_ANDdv_(8)ORtr_ANDdv_(9)many_=9
14960SYS"Hourglass_On":FORt_=1TOmany_:IFlinedvy_(t_)=1 ran_%=99:rn_%=9
14980IFlinedvy_(t_)=2 ran_%=999:rn_%=99
14990IFlinedvy_(t_)=3 ran_%=9999:rn_%=999
15000IFlinedvy_(t_)=4 ran_%=99999:rn_%=9999
15010IFlinedvy_(t_)=5 ran_%=999999:rn_%=99999
15020SYS"Hourglass_Percentage",t_/12*100:REPEAT:flag_=0:IFRemainder_$="No"THEN
15050REPEAT:a_=RND(ran_%):b_=Nb_%(t_):IFDnowts_%PROCDnoughts
15070UNTILa_MODb_=0ANDa_>rn_%
15080ENDIF:IFRemainder_$="All"PROCremp
15100IFRemainder_$="Ran"THEN
15110randy_=RND(2):IFrandy_=1THEN
15130REPEAT:a_=RND(ran_%):b_=Nb_%(t_):IFDnowts_%PROCDnoughts
15150UNTILa_MODb_=0ANDa_>rn_%
15160ENDIF:IFrandy_=2PROCremp
15180ENDIF:IFt_>1THEN
15210FORe_=1TOt_-1:IFa_=a_(e_)ANDb_=b_(e_)flag_=1
15220NEXT
15230ENDIF:UNTILflag_=0:a_(t_)=a_:b_(t_)=b_:IFa_MODb_<>0 c_(t_)=a_DIVb_:rem_(t_)=a_MODb_ELSEc_(t_)=a_/b_:rem_(t_)=0
15270NEXT:started_%=TRUE:SYS"Hourglass_Off":ENDPROC
15290DEFPROCremp:REPEAT:remflag=TRUE:a_=RND(ran_%):b_=Nb_%(t_):IFDnowts_%PROCDnoughts
15330c_=a_/b_:poin_=0:c_$=STR$(c_):FORcc_=1TOLEN(c_$):IFMID$(c_$,cc_,1)="." poin_=cc_
15360NEXT:cz_$=MID$(c_$,poin_+1,LEN(c_$)-poin_+1):IFLEN(cz_$)>pwon_ANDMID$(cz_$,pwon_,1)="9"ANDVAL(MID$(cz_$,pwon_+1,1))>4 remflag=FALSE
15390UNTILa_MODb_<>0ANDa_>rn_%ANDremflag=TRUE:IFLEN(cz_$)>pwon_ANDVAL(MID$(cz_$,pwon_+1,1))>4THEN
15420d_=VAL(MID$(cz_$,pwon_,1)):d_=d_+1:d_$=STR$(d_):MID$(cz_$,pwon_,1)=d_$
15440ENDIF:IFLEN(cz_$)<pwon_ cz_$=cz_$+STRING$(pwon_-LEN(cz_$),"0")
15470cz_$(t_)=MID$(cz_$,1,pwon_):ENDPROC
15540DEFPROCMagic:Magic_%=FNfWS("Magic"):IFMagRange_$="1 to 25"PROCsI(Magic_%,"Range1")
15560IFMagRange_$="25 to 50"PROCsI(Magic_%,"Range2")
15570IFMagRange_$="50 to 100"PROCsI(Magic_%,"Range3")
15580IFMagRange_$="100 to 1000"PROCsI(Magic_%,"Range4")
15590ENDPROC
15630DEFFNRange1_:IFMagRange_$="1 to 25"PROCsI(Magic_%,"Range1"):=TRUE
15640MagRange_$="1 to 25":PROCusI(Magic_%,"Range2"):PROCusI(Magic_%,"Range3"):PROCusI(Magic_%,"Range4"):=TRUE
15670DEFFNRange2_:IFMagRange_$="25 to 50"PROCsI(Magic_%,"Range2"):=TRUE
15680MagRange_$="25 to 50":PROCusI(Magic_%,"Range1"):PROCusI(Magic_%,"Range3"):PROCusI(Magic_%,"Range4"):=TRUE
15710DEFFNRange3_:IFMagRange_$="50 to 100"PROCsI(Magic_%,"Range3"):=TRUE
15720MagRange_$="50 to 100":PROCusI(Magic_%,"Range1"):PROCusI(Magic_%,"Range2"):PROCusI(Magic_%,"Range4"):=TRUE
15750DEFFNRange4_:IFMagRange_$="100 to 1000"PROCsI(Magic_%,"Range4"):=TRUE
15760MagRange_$="100 to 1000":PROCusI(Magic_%,"Range1"):PROCusI(Magic_%,"Range2"):PROCusI(Magic_%,"Range3"):=TRUE
15820DEFFNMag1_:Mag_=FALSE:PROCusI(Magic_%,"Mag1"):last_=3:quit_=FALSE:Clue_$="Magic":started_%=TRUE:=FNsums
15870DEFPROCMag1:dummy_=RND(-TIME):IFMag_=FALSEPROCprepare
15890left_=X%+60:startleft_=left_:origleft_=left_:on_=90:down_=Y%-140:origdown_=down_:startdown_=down_:side_=75:s_=0:number_=0:FORqq_=1TO3:FORww_=1TO3:number_=number_+1:MOVEleft_-40,down_:PRINTSTR$(number_)+")":t_=0:PROCboxes:down_=startdown_
15980startleft_=startleft_+side_*3+on_:left_=startleft_:NEXT:startleft_=origleft_:left_=startleft_:startdown_=startdown_-side_*3-on_+70:down_=startdown_:NEXT:Mag_=TRUE:ENDPROC
16060DEFPROCboxes:s_=s_+1:FORq_=1TO3:FORw_=1TO3:t_=t_+1:MOVEleft_,down_:DRAWleft_+side_,down_:DRAWleft_+side_,down_-side_:DRAWleft_,down_-side_:DRAWleft_,down_:ins_=8:a_$=STR$(magic_(s_,t_)):IFAnswer_%=TRUEPROCmagicans
16150IFMID$(pat_$(pattern_(s_)),t_,1)="1"MOVEleft_+side_/2-LEN(a_$)/2*16,down_-side_/2+12:PRINTFNzero(a_$)
16160left_=left_+side_:NEXT:left_=startleft_:down_=down_-side_:NEXT:ENDPROC
16200DEFPROCmagicans:IFMID$(pat_$(pattern_(s_)),t_,1)="0"MOVEleft_+ins_,down_-ins_:DRAWleft_+side_-ins_,down_-ins_:DRAWleft_+side_-ins_,down_-side_+ins_:DRAWleft_+ins_,down_-side_+ins_:DRAWleft_+ins_,down_-ins_
16220IFMID$(pat_$(pattern_(s_)),t_,1)="0"MOVEleft_+side_/2-LEN(a_$)/2*16,down_-side_/2+12:PRINTFNzero(a_$)
16230ENDPROC
16250DEFPROCprepare:pat_$(1)="001011001":pat_$(2)="001010110":pat_$(3)="110100100":pat_$(4)="000010111":pat_$(5)="111000100":pat_$(6)="100010101":bas_$(1)="294753618":bas_$(2)="816357492":bas_$(3)="492357816"
16290bas_$(4)="618753294":bas_$(5)="294753618":bas_$(6)="816357492":bas_$(7)="492357816":bas_$(8)="618753294":bas_$(9)="294753618":FORf_=1TO9:pattern_(f_)=-1:NEXT:FORf_=1TO9:REPEAT:flag_=0:pattern_=RND(6):IFf_>1ANDf_<7THEN
16370FORj_=1TOf_:IFpattern_(j_)=pattern_ flag_=1
16380NEXT
16390ENDIF:UNTILflag_=0:pattern_(f_)=pattern_:NEXT:IFMagRange_$="1 to 25"THENtoprange_=25:botrange_=0
16440IFMagRange_$="25 to 50"THENtoprange_=50:botrange_=24
16450IFMagRange_$="50 to 100"THENtoprange_=100:botrange_=49
16460IFMagRange_$="100 to 1000"THENtoprange_=1000:botrange_=99
16470FORf_=1TO9:baa_(f_)=-1:NEXT:FORf_=1TO9:REPEAT:flag_=0:REPEAT:baa_=RND(toprange_)-9:UNTILbaa_>botrange_:FORj_=1TO9:IFbaa_(j_)=baa_ flag_=1
16550NEXT:UNTILflag_=0:baa_(f_)=baa_:NEXT:FORq_=1TO9:n_=0:FORw_=1TO9:n_=n_+1:FORy_=1TO9:bas_(y_)=VAL(MID$(bas_$(q_),y_,1))+baa_(q_)-1:NEXT:magic_(q_,w_)=bas_(n_):NEXT:NEXT:ENDPROC
16730DEFPROCSadd:Sad_%=FNfWS("Sadd"):IFf_(1)PROCsI(Sad_%,"F1")ELSEPROCusI(Sad_%,"F1")
16750IFf_(2)PROCsI(Sad_%,"F2")ELSEPROCusI(Sad_%,"F2")
16760IFf_(3)PROCsI(Sad_%,"F3")ELSEPROCusI(Sad_%,"F3")
16770IFf_(4)PROCsI(Sad_%,"F4")ELSEPROCusI(Sad_%,"F4")
16780IFf_(5)PROCsI(Sad_%,"F5")ELSEPROCusI(Sad_%,"F5")
16790IFf_(6)PROCsI(Sad_%,"F6")ELSEPROCusI(Sad_%,"F6")
16800IFf_(7)PROCsI(Sad_%,"F7")ELSEPROCusI(Sad_%,"F7")
16810IFf_(8)PROCsI(Sad_%,"F8")ELSEPROCusI(Sad_%,"F8")
16820IFf_(9)PROCsI(Sad_%,"F9")ELSEPROCusI(Sad_%,"F9")
16830IFf_(10)PROCsI(Sad_%,"F10")ELSEPROCusI(Sad_%,"F10")
16840IFf_(11)PROCsI(Sad_%,"F11")ELSEPROCusI(Sad_%,"F11")
16850IFf_(12)PROCsI(Sad_%,"F12")ELSEPROCusI(Sad_%,"F12")
16860IFSadcarry_(1)PROCsI(Sad_%,"SadCarry1")ELSEPROCusI(Sad_%,"SadCarry1")
16870IFSadcarry_(2)PROCsI(Sad_%,"SadCarry2")ELSEPROCusI(Sad_%,"SadCarry2")
16880IFSadcarry_(3)PROCsI(Sad_%,"SadCarry3")ELSEPROCusI(Sad_%,"SadCarry3")
16890IFFracadd_PROCsI(Sad_%,"Fracadd")ELSEPROCusI(Sad_%,"Fracadd")
16900IFFractake_PROCsI(Sad_%,"Fractake")ELSEPROCusI(Sad_%,"Fractake")
16910IFaddoms_PROCsI(Sad_%,"addoms")ELSEPROCusI(Sad_%,"addoms")
16920IFAddReps_PROCsI(Sad_%,"AddReps")ELSEPROCusI(Sad_%,"AddReps")
16930IFsubdoms_PROCsI(Sad_%,"subdoms")ELSEPROCusI(Sad_%,"subdoms")
16940IFSubReps_PROCsI(Sad_%,"SubReps")ELSEPROCusI(Sad_%,"SubReps")
16950ENDPROC
16990DEFFNFracadd_:IFFractake_=FALSETHENPROCsI(Sad_%,"Fracadd"):=FALSE
17000IFFracadd_THEN
17010Fracadd_=FALSE:PROCusI(Sad_%,"Fracadd"):addoms_=FALSE:PROCusI(Sad_%,"addoms"):Sadcarry_(1)=FALSE:PROCusI(Sad_%,"SadCarry1"):Sadcarry_(2)=FALSE:PROCusI(Sad_%,"SadCarry2"):Sadcarry_(3)=FALSE:PROCusI(Sad_%,"SadCarry3"):AddReps_=FALSE:PROCusI(Sad_%,"AddReps")
17070ELSE:Fracadd_=TRUE:PROCsI(Sad_%,"Fracadd"):addoms_=FALSE:PROCusI(Sad_%,"addoms"):Sadcarry_(1)=FALSE:PROCusI(Sad_%,"SadCarry1"):Sadcarry_(2)=FALSE:PROCusI(Sad_%,"SadCarry2"):Sadcarry_(3)=TRUE:PROCsI(Sad_%,"SadCarry3"):AddReps_=FALSE:PROCusI(Sad_%,"AddReps")
17140ENDIF:=TRUE
17170DEFFNFractake_:IFFracadd_=FALSETHENPROCsI(Sad_%,"Fractake"):=FALSE
17180IFFractake_THEN
17190Fractake_=FALSE:PROCusI(Sad_%,"Fractake")
17200ELSE:Fractake_=TRUE:PROCsI(Sad_%,"Fractake")
17220ENDIF:subdoms_=FALSE:PROCusI(Sad_%,"subdoms"):SubReps_=FALSE:PROCusI(Sad_%,"SubReps"):=TRUE
17270DEFFNaddoms_:IFFracadd_=FALSEaddoms_=FALSE:PROCusI(Sad_%,"addoms"):=FALSE
17280IFaddoms_=TRUEaddoms_=FALSE:PROCusI(Sad_%,"addoms")ELSEaddoms_=TRUE:PROCsI(Sad_%,"addoms")
17290=TRUE
17310DEFFNAddReps_:IFFracadd_=FALSEAddReps_=FALSE:PROCusI(Sad_%,"AddReps"):=FALSE
17320IFAddReps_=TRUEAddReps_=FALSE:PROCusI(Sad_%,"AddReps")ELSEAddReps_=TRUE:PROCsI(Sad_%,"AddReps")
17330=TRUE
17350DEFFNsubdoms_:IFFractake_=FALSEsubdoms_=FALSE:PROCusI(Sad_%,"subdoms"):=FALSE
17360IFsubdoms_=TRUEsubdoms_=FALSE:PROCusI(Sad_%,"subdoms")ELSEsubdoms_=TRUE:PROCsI(Sad_%,"subdoms")
17370=TRUE
17390DEFFNSubReps_:IFFractake_=FALSESubReps_=FALSE:PROCusI(Sad_%,"SubReps"):=TRUE
17400IFSubReps_=TRUESubReps_=FALSE:PROCusI(Sad_%,"SubReps")ELSESubReps_=TRUE:PROCsI(Sad_%,"SubReps")
17410=TRUE
17430DEFFNf_:c_=0:FORh_=1TO12:IFf_(h_)=TRUEc_=c_+1
17440NEXT:=c_
17450DEFFNF1_:IFf_(1)=TRUEANDFNf_=1 f_(1)=TRUE:PROCsI(Sad_%,"F1"):=FALSE
17460IFf_(1)=TRUEf_(1)=FALSEELSEf_(1)=TRUE
17470=TRUE
17480DEFFNF2_:IFf_(2)=TRUEANDFNf_=1 f_(2)=TRUE:PROCsI(Sad_%,"F2"):=FALSE
17490IFf_(2)=TRUEf_(2)=FALSEELSEf_(2)=TRUE
17500=TRUE
17510DEFFNF3_:IFf_(3)=TRUEANDFNf_=1 f_(3)=TRUE:PROCsI(Sad_%,"F3"):=FALSE
17520IFf_(3)=TRUEf_(3)=FALSEELSEf_(3)=TRUE
17530=TRUE
17540DEFFNF4_:IFf_(4)=TRUEANDFNf_=1 f_(4)=TRUE:PROCsI(Sad_%,"F4"):=FALSE
17550IFf_(4)=TRUEf_(4)=FALSEELSEf_(4)=TRUE
17560=TRUE
17570DEFFNF5_:IFf_(5)=TRUEANDFNf_=1 f_(5)=TRUE:PROCsI(Sad_%,"F5"):=FALSE
17580IFf_(5)=TRUEf_(5)=FALSEELSEf_(5)=TRUE
17590=TRUE
17600DEFFNF6_:IFf_(6)=TRUEANDFNf_=1 f_(6)=TRUE:PROCsI(Sad_%,"F6"):=FALSE
17610IFf_(6)=TRUEf_(6)=FALSEELSEf_(6)=TRUE
17620=TRUE
17630DEFFNF7_:IFf_(7)=TRUEANDFNf_=1 f_(7)=TRUE:PROCsI(Sad_%,"F7"):=FALSE
17640IFf_(7)=TRUEf_(7)=FALSEELSEf_(7)=TRUE
17650=TRUE
17660DEFFNF8_:IFf_(8)=TRUEANDFNf_=1 f_(8)=TRUE:PROCsI(Sad_%,"F8"):=FALSE
17670IFf_(8)=TRUEf_(8)=FALSEELSEf_(8)=TRUE
17680=TRUE
17690DEFFNF9_:IFf_(9)=TRUEANDFNf_=1 f_(9)=TRUE:PROCsI(Sad_%,"F9"):=FALSE
17700IFf_(9)=TRUEf_(9)=FALSEELSEf_(9)=TRUE
17710=TRUE
17720DEFFNF10_:IFf_(10)=TRUEANDFNf_=1 f_(10)=TRUE:PROCsI(Sad_%,"F10"):=FALSE
17730IFf_(10)=TRUEf_(10)=FALSEELSEf_(10)=TRUE
17740=TRUE
17750DEFFNF11_:IFf_(11)=TRUEANDFNf_=1 f_(11)=TRUE:PROCsI(Sad_%,"F11"):=FALSE
17760IFf_(11)=TRUEf_(11)=FALSEELSEf_(11)=TRUE
17770=TRUE
17780DEFFNF12_:IFf_(12)=TRUEANDFNf_=1 f_(12)=TRUE:PROCsI(Sad_%,"F12"):=FALSE
17790IFf_(12)=TRUEf_(12)=FALSEELSEf_(12)=TRUE
17800=TRUE
17820DEFFNSadCarry1_:IFFracadd_=FALSESadcarry_(1)=FALSE:PROCusI(Sad_%,"SadCarry1"):=FALSE
17830IFSadcarry_(1)=TRUEANDSadcarry_(2)+Sadcarry_(3)=FALSESadcarry_(1)=TRUE:PROCsI(Sad_%,"SadCarry1"):=TRUE
17840IFSadcarry_(1)=FALSESadcarry_(1)=TRUE:PROCsI(Sad_%,"SadCarry1"):Sadcarry_(2)=FALSE:PROCusI(Sad_%,"SadCarry2"):Sadcarry_(3)=FALSE:PROCusI(Sad_%,"SadCarry3"):=TRUE
17850
17860DEFFNSadCarry2_:IFFracadd_=FALSESadcarry_(2)=FALSE:PROCusI(Sad_%,"SadCarry2"):=FALSE
17870IFSadcarry_(2)=TRUEANDSadcarry_(1)+Sadcarry_(3)=FALSESadcarry_(2)=TRUE:PROCsI(Sad_%,"SadCarry2"):=TRUE
17880IFSadcarry_(2)=FALSESadcarry_(2)=TRUE:PROCsI(Sad_%,"SadCarry2"):Sadcarry_(1)=FALSE:PROCusI(Sad_%,"SadCarry1"):Sadcarry_(3)=FALSE:PROCusI(Sad_%,"SadCarry3"):=TRUE
17890
17900DEFFNSadCarry3_:IFFracadd_=FALSESadcarry_(3)=FALSE:PROCusI(Sad_%,"SadCarry3"):=FALSE
17910IFSadcarry_(3)=TRUEANDSadcarry_(1)+Sadcarry_(2)=FALSESadcarry_(3)=TRUE:PROCsI(Sad_%,"SadCarry3"):=TRUE
17920IFSadcarry_(3)=FALSESadcarry_(3)=TRUE:PROCsI(Sad_%,"SadCarry3"):Sadcarry_(1)=FALSE:PROCusI(Sad_%,"SadCarry1"):Sadcarry_(2)=FALSE:PROCusI(Sad_%,"SadCarry2"):=TRUE
17930
17960DEFFNFracGo_:PROCGetTitles:dummy_=RND(-TIME):quit_=FALSE:TIME=0:last_=12:FORg_=1TO12:FORgg_=0TO2:Whole_(g_,gg_)=0:NEXT:NEXT:PROCwhatfracsign:PROCwhatfracs:PROCcalcfracs:Clue_$="Sad":started_%=TRUE:PROCusI(Sad_%,"FracGo"):=FNsums
18020DEFPROCwhatfracsign:IFFracadd_=TRUEANDFractake_=FALSEFORg_=1TO12:Fracsign_$(g_)="+":NEXT:ENDPROC
18040IFFractake_=TRUEANDFracadd_=FALSEFORg_=1TO12:Fracsign_$(g_)="-":NEXT:ENDPROC
18050start_=RND(2):IFstart_=1THEN
18070FORg_=1TO12:IFg_MOD2=0 Fracsign_$(g_)="+"ELSEFracsign_$(g_)="-"
18080NEXT
18090ELSE:FORg_=1TO12:IFg_MOD2=1 Fracsign_$(g_)="+"ELSEFracsign_$(g_)="-"
18110NEXT
18120ENDIF:ENDPROC
18140DEFPROCwhatfracs:FORr_=1TO12:gc_%(r_)=0:NEXT:got_%=0:FORr_%=1TO12:IFf_(r_%)=TRUETHENgot_%=got_%+1:gc_%(got_%)=frac_(r_%)
18160NEXT:ENDPROC
18180DEFPROCfracadd:IFquit_=TRUEENDPROC
18190REPEAT:goodadd_=TRUE:IFgot_%=1 FD1_=gc_%(1)ELSEran_%=RND(got_%):FD1_=gc_%(ran_%)
18210IFaddoms_=TRUEFD2_=FD1_
18230IFaddoms_=FALSETHEN
18240IFgot_%=1 FD2_=gc_%(1)ELSEran_%=RND(got_%):FD2_=gc_%(ran_%)
18250ENDIF:REPEAT:flug_=0:REPEAT:FU1_=RND(FD1_):UNTILFU1_<FD1_:FORrt_=2TO10:IFFU1_MODrt_=0ANDFD1_MODrt_=0 flug_=1
18300NEXT:UNTILflug_=0:REPEAT:flug_=0:REPEAT:FU2_=RND(FD2_):UNTILFU2_<FD2_:FORrt_=2TO10:IFFU2_MODrt_=0ANDFD2_MODrt_=0 flug_=1
18350NEXT:UNTILflug_=0:IFSadcarry_(1)=TRUEANDFU2_/FD2_+FU1_/FD1_<1 goodadd_=FALSE
18380IFSadcarry_(2)=TRUEANDFU2_/FD2_+FU1_/FD1_>.9999 goodadd_=FALSE
18390IFr_>1ANDAddReps_=TRUETHEN
18400FORrtt_=1TOr_-1:IFFracsign_$(r_)="+"ANDFD1_=FD1_(rtt_)ANDFD2_=FD2_(rtt_)ANDFU1_=FU1_(rtt_)ANDFU2_=FU2_(rtt_)goodadd_=FALSE
18410NEXT
18420ENDIF:IFTIME>500 quit_=TRUE:VDU7:last_=r_-1:SYS"Hourglass_Off":ENDPROC
18440UNTILgoodadd_=TRUE:Fracsign_$(r_)="+":FD1_(r_)=FD1_:FD2_(r_)=FD2_:FU1_(r_)=FU1_:FU2_(r_)=FU2_:ENDPROC
18480DEFPROCfraktake:IFquit_=TRUEENDPROC
18490REPEAT:goodsub_=TRUE:IFgot_%=1 FD1_=gc_%(1)ELSEran_%=RND(got_%):FD1_=gc_%(ran_%)
18510IFsubdoms_=TRUEFD2_=FD1_
18520IFsubdoms_=FALSETHEN
18530IFgot_%=1 FD2_=gc_%(1)ELSEran_%=RND(got_%):FD2_=gc_%(ran_%)
18540ENDIF:REPEAT:flug_=0:REPEAT:FU1_=RND(FD1_):UNTILFU1_<FD1_:FORrt_=2TO10:IFFU1_MODrt_=0ANDFD1_MODrt_=0 flug_=1
18580NEXT:UNTILflug_=0:REPEAT:flug_=0:REPEAT:FU2_=RND(FD2_):UNTILFU2_<FD2_:FORrt_=2TO10:IFFU2_MODrt_=0ANDFD2_MODrt_=0 flug_=1
18620NEXT:UNTILflug_=0:IFr_>1ANDSubReps_=TRUETHEN
18640FORrtt_=1TOr_-1:IFFracsign_$(r_)="-"ANDFD1_=FD1_(rtt_)ANDFD2_=FD2_(rtt_)ANDFU1_=FU1_(rtt_)ANDFU2_=FU2_(rtt_)goodsub_=FALSE
18650NEXT
18660ENDIF:IFFU1_/FD1_<FU2_/FD2_ goodsub_=FALSE
18680IFTIME>500 quit_=TRUE:last_=r_-1:VDU7:SYS"Hourglass_Off":ENDPROC
18690UNTILgoodsub_=TRUE:Fracsign_$(r_)="-":FD1_(r_)=FD1_:FD2_(r_)=FD2_:FU1_(r_)=FU1_:FU2_(r_)=FU2_:ENDPROC
18730DEFPROCcalcfracs:SYS"Hourglass_On":FORr_=1TO12:SYS"Hourglass_Percentage",r_/12*100:IFquit_=TRUESYS"Hourglass_Off":ENDPROC
18760IFFracsign_$(r_)="+"PROCfracaddELSEPROCfraktake
18770IFquit_=TRUEr_=12
18780NEXT:FORr_=1TOlast_:a_=FU1_(r_):b_=FD1_(r_):c_=FU2_(r_):d_=FD2_(r_):IFb_=d_THEN
18840IFFracsign_$(r_)="+" f_=b_:f_$=STR$(f_):e_=a_+c_:e_$=STR$(e_)
18850IFFracsign_$(r_)="-" f_=b_:f_$=STR$(f_):e_=a_-c_:e_$=STR$(e_)
18860ELSE:x_=0:REPEAT:x_=x_+1:UNTILx_MODb_=0ANDx_MODd_=0:f_=x_:f_$=STR$(f_):IFFracsign_$(r_)="+" e_=f_/b_*a_+f_/d_*c_
18900IFFracsign_$(r_)="-" e_=f_/b_*a_-f_/d_*c_
18910ENDIF:whole_=0:IFe_>=f_ANDe_>0ANDf_>0 whole_=e_DIVf_:e_=e_MODf_
18940Whole_(r_,2)=Whole_(r_,0)+Whole_(r_,1):Whole_(r_,2)=Whole_(r_,2)+whole_:IFe_<>0PROCreduce
18970FU3_(r_)=e_:FD3_(r_)=f_:NEXT:SYS"Hourglass_Off":ENDPROC
19050DEFPROCWadd:Wad_%=FNfWS("Wadd"):IFwf_(1)PROCsI(Wad_%,"WF1")
19070IFwf_(2)PROCsI(Wad_%,"WF2")
19080IFwf_(3)PROCsI(Wad_%,"WF3")
19090IFwf_(4)PROCsI(Wad_%,"WF4")
19100IFwf_(5)PROCsI(Wad_%,"WF5")
19110IFwf_(6)PROCsI(Wad_%,"WF6")
19120IFwf_(7)PROCsI(Wad_%,"WF7")
19130IFwf_(8)PROCsI(Wad_%,"WF8")
19140IFwf_(9)PROCsI(Wad_%,"WF9")
19150IFwf_(10)PROCsI(Wad_%,"WF10")
19160IFwf_(11)PROCsI(Wad_%,"WF11")
19170IFwf_(12)PROCsI(Wad_%,"WF12")
19180IFWSadcarry_(1)PROCsI(Wad_%,"WSadCarry1")
19190IFWSadcarry_(2)PROCsI(Wad_%,"WSadCarry2")
19200IFWSadcarry_(3)PROCsI(Wad_%,"WSadCarry3")
19210IFWFracadd_PROCsI(Wad_%,"WFracadd")
19220IFWFractake_PROCsI(Wad_%,"WFractake")
19230IFWaddoms_PROCsI(Wad_%,"Waddoms")
19240IFWAddReps_PROCsI(Wad_%,"WAddReps")
19250IFWsubdoms_PROCsI(Wad_%,"Wsubdoms")
19260IFWSubReps_PROCsI(Wad_%,"WSubReps")
19270IFWSTakecar_(1)PROCsI(Wad_%,"WSTakeCar1")
19280IFWSTakecar_(2)PROCsI(Wad_%,"WSTakeCar2")
19290IFWSTakecar_(3)PROCsI(Wad_%,"WSTakeCar3")
19300ENDPROC
19340DEFFNWFracadd_:IFWFractake_=FALSETHENPROCsI(Wad_%,"WFracadd"):=FALSE
19350IFWFracadd_=TRUETHEN
19360WFracadd_=FALSE:PROCusI(Wad_%,"WFracadd"):Waddoms_=FALSE:PROCusI(Wad_%,"Waddoms"):WSadcarry_(1)=FALSE:PROCusI(Wad_%,"WSadCarry1"):WSadcarry_(2)=FALSE:PROCusI(Wad_%,"WSadCarry2"):WSadcarry_(3)=FALSE:PROCusI(Wad_%,"WSadCarry3"):WAddReps_=FALSE:PROCusI(Wad_%,"WAddReps")
19420ELSE:WFracadd_=TRUE:PROCsI(Wad_%,"WFracadd"):Waddoms_=FALSE:PROCusI(Wad_%,"Waddoms"):WSadcarry_(1)=FALSE:PROCusI(Wad_%,"WSadCarry1"):WSadcarry_(2)=FALSE:PROCusI(Wad_%,"WSadCarry2"):WSadcarry_(3)=TRUE:PROCsI(Wad_%,"WSadCarry3"):WAddReps_=FALSE:PROCusI(Wad_%,"WAddReps")
19490ENDIF:=TRUE
19520DEFFNWFractake_:IFWFracadd_=FALSETHENPROCsI(Wad_%,"WFractake"):=FALSE
19530IFWFractake_THEN
19540WFractake_=FALSE:PROCusI(Wad_%,"WFractake"):WSTakecar_(1)=FALSE:WSTakecar_(2)=FALSE:WSTakecar_(3)=FALSE:PROCusI(Wad_%,"WSTakeCar1"):PROCusI(Wad_%,"WSTakeCar2"):PROCusI(Wad_%,"WSTakeCar3")
19570ELSE:WFractake_=TRUE:PROCsI(Wad_%,"WFractake"):WSTakecar_(3)=TRUE:PROCsI(Wad_%,"WSTakeCar3")
19600ENDIF:Wsubdoms_=FALSE:PROCusI(Wad_%,"Wsubdoms"):WSubReps_=FALSE:PROCusI(Wad_%,"WSubReps"):=TRUE
19650DEFFNWaddoms_:IFWFracadd_=FALSEWaddoms_=FALSE:PROCusI(Wad_%,"Waddoms"):=FALSE
19660IFWaddoms_ Waddoms_=FALSE:PROCusI(Wad_%,"Waddoms")ELSEWaddoms_=TRUE:PROCsI(Wad_%,"Waddoms")
19670=TRUE
19690DEFFNWAddReps_:IFWFracadd_=FALSEWAddReps_=FALSE:PROCusI(Wad_%,"WAddReps"):=FALSE
19700IFWAddReps_ WAddReps_=FALSE:PROCusI(Wad_%,"WAddReps")ELSEWAddReps_=TRUE:PROCsI(Wad_%,"WAddReps")
19710=TRUE
19730DEFFNWsubdoms_:IFWFractake_=FALSEWsubdoms_=FALSE:PROCusI(Wad_%,"Wsubdoms"):=FALSE
19740IFWsubdoms_ Wsubdoms_=FALSE:PROCusI(Wad_%,"Wsubdoms")ELSEWsubdoms_=TRUE:PROCsI(Wad_%,"Wsubdoms")
19750=TRUE
19770DEFFNWSubReps_:IFWFractake_=FALSEWSubReps_=FALSE:PROCusI(Wad_%,"WSubReps"):=TRUE
19780IFWSubReps_=TRUEWSubReps_=FALSE:PROCusI(Wad_%,"WSubReps")ELSEWSubReps_=TRUE:PROCsI(Wad_%,"WSubReps")
19790=TRUE
19810DEFFNWSadCarry1_:IFWFracadd_=FALSEWSadcarry_(1)=FALSE:PROCusI(Wad_%,"WSadCarry1"):=FALSE
19820IFWSadcarry_(1)ANDWSadcarry_(2)+WSadcarry_(3)=FALSEWSadcarry_(1)=TRUE:PROCsI(Wad_%,"WSadCarry1"):=TRUE
19830IFWSadcarry_(1)=FALSEWSadcarry_(1)=TRUE:PROCsI(Wad_%,"WSadCarry1"):WSadcarry_(2)=FALSE:PROCusI(Wad_%,"WSadCarry2"):WSadcarry_(3)=FALSE:PROCusI(Wad_%,"WSadCarry3"):=TRUE
19840
19850DEFFNWSadCarry2_:IFWFracadd_=FALSEWSadcarry_(2)=FALSE:PROCusI(Wad_%,"WSadCarry2"):=FALSE
19860IFWSadcarry_(2)ANDWSadcarry_(1)+WSadcarry_(3)=FALSEWSadcarry_(2)=TRUE:PROCsI(Wad_%,"WSadCarry2"):=TRUE
19870IFWSadcarry_(2)=FALSEWSadcarry_(2)=TRUE:PROCsI(Wad_%,"WSadCarry2"):WSadcarry_(1)=FALSE:PROCusI(Wad_%,"WSadCarry1"):WSadcarry_(3)=FALSE:PROCusI(Wad_%,"WSadCarry3"):=TRUE
19880
19890DEFFNWSadCarry3_:IFWFracadd_=FALSEWSadcarry_(3)=FALSE:PROCusI(Wad_%,"WSadCarry3"):=FALSE
19900IFWSadcarry_(3)=TRUEANDWSadcarry_(1)+WSadcarry_(2)=FALSEWSadcarry_(3)=TRUE:PROCsI(Wad_%,"WSadCarry3"):=TRUE
19910IFWSadcarry_(3)=FALSEWSadcarry_(3)=TRUE:PROCsI(Wad_%,"WSadCarry3"):WSadcarry_(1)=FALSE:PROCusI(Wad_%,"WSadCarry1"):WSadcarry_(2)=FALSE:PROCusI(Wad_%,"WSadCarry2"):=TRUE
19920
19930DEFFNWSTakeCar1_:IFWFractake_=FALSEWSTakecar_(1)=FALSE:PROCusI(Wad_%,"WSTakeCar1"):=FALSE
19950IFWSTakecar_(1)ANDWSTakecar_(2)+WSTakecar_(3)=FALSEWSTakecar_(1)=TRUE:PROCsI(Wad_%,"WSTakeCar1"):=FALSE
19960IFWSTakecar_(1)=FALSEWSTakecar_(1)=TRUE:PROCsI(Wad_%,"WSTakeCar"):WSTakecar_(2)=FALSE:PROCusI(Wad_%,"WSTakeCar2"):WSTakecar_(3)=FALSE:PROCusI(Wad_%,"WSTakeCar3")ELSEWSTakecar_(1)=FALSE:PROCusI(Wad_%,"WSTakeCar1")
19970=TRUE
19990DEFFNWSTakeCar2_:IFWFractake_=FALSEWSTakecar_(2)=FALSE:PROCusI(Wad_%,"WSTakeCar2"):=FALSE
20010IFWSTakecar_(2)=TRUEANDWSTakecar_(1)+WSTakecar_(3)=FALSEWSTakecar_(2)=TRUE:PROCsI(Wad_%,"WSTakeCar2"):=FALSE
20020IFWSTakecar_(2)=FALSEWSTakecar_(2)=TRUE:PROCsI(Wad_%,"WSTakeCar"):WSTakecar_(1)=FALSE:PROCusI(Wad_%,"WSTakeCar1"):WSTakecar_(3)=FALSE:PROCusI(Wad_%,"WSTakeCar3")ELSEWSTakecar_(2)=FALSE:PROCusI(Wad_%,"WSTakeCar2")
20030=TRUE
20050DEFFNWSTakeCar3_:IFWFractake_=FALSEWSTakecar_(3)=FALSE:PROCusI(Wad_%,"WSTakeCar3"):=FALSE
20070IFWSTakecar_(3)ANDWSTakecar_(1)+WSTakecar_(2)=FALSEWSTakecar_(3)=TRUE:PROCsI(Wad_%,"WSTakeCar3"):=FALSE
20080IFWSTakecar_(3)=FALSEWSTakecar_(3)=TRUE:PROCsI(Wad_%,"WSTakeCar"):WSTakecar_(1)=FALSE:PROCusI(Wad_%,"WSTakeCar2"):WSTakecar_(2)=FALSE:PROCusI(Wad_%,"WSTakeCar1")ELSEWSTakecar_(3)=FALSE:PROCusI(Wad_%,"WSTakeCar3")
20090=TRUE
20110DEFFNwf_:c_=0:FORh_=1TO12:IFwf_(h_)c_=c_+1
20120NEXT:=c_
20130DEFFNWF1_:IFwf_(1)ANDFNwf_=1 wf_(1)=TRUE:PROCsI(Wad_%,"WF1"):=FALSE
20140IFwf_(1)wf_(1)=FALSEELSEwf_(1)=TRUE
20150=TRUE
20160DEFFNWF2_:IFwf_(2)ANDFNwf_=1 wf_(2)=TRUE:PROCsI(Wad_%,"WF2"):=FALSE
20170IFwf_(2)wf_(2)=FALSEELSEwf_(2)=TRUE
20180=TRUE
20190DEFFNWF3_:IFwf_(3)ANDFNwf_=1 wf_(3)=TRUE:PROCsI(Wad_%,"WF3"):=FALSE
20200IFwf_(3)wf_(3)=FALSEELSEwf_(3)=TRUE
20210=TRUE
20220DEFFNWF4_:IFwf_(4)ANDFNwf_=1 wf_(4)=TRUE:PROCsI(Wad_%,"WF4"):=FALSE
20230IFwf_(4)wf_(4)=FALSEELSEwf_(4)=TRUE
20240=TRUE
20250DEFFNWF5_:IFwf_(5)ANDFNwf_=1 wf_(5)=TRUE:PROCsI(Wad_%,"WF5"):=FALSE
20260IFwf_(5)wf_(5)=FALSEELSEwf_(5)=TRUE
20270=TRUE
20280DEFFNWF6_:IFwf_(6)ANDFNwf_=1 wf_(6)=TRUE:PROCsI(Wad_%,"WF6"):=FALSE
20290IFwf_(6)wf_(6)=FALSEELSEwf_(6)=TRUE
20300=TRUE
20310DEFFNWF7_:IFwf_(7)ANDFNwf_=1 wf_(7)=TRUE:PROCsI(Wad_%,"WF7"):=FALSE
20320IFwf_(7)wf_(7)=FALSEELSEwf_(7)=TRUE
20330=TRUE
20340DEFFNWF8_:IFwf_(8)ANDFNwf_=1 wf_(8)=TRUE:PROCsI(Wad_%,"WF8"):=FALSE
20350IFwf_(8)wf_(8)=FALSEELSEwf_(8)=TRUE
20360=TRUE
20370DEFFNWF9_:IFwf_(9)ANDFNwf_=1 wf_(9)=TRUE:PROCsI(Wad_%,"WF9"):=FALSE
20380IFwf_(9)wf_(9)=FALSEELSEwf_(9)=TRUE
20390=TRUE
20400DEFFNWF10_:IFwf_(10)ANDFNwf_=1 wf_(10)=TRUE:PROCsI(Wad_%,"WF10"):=FALSE
20410IFwf_(10)wf_(10)=FALSEELSEwf_(10)=TRUE
20420=TRUE
20430DEFFNWF11_:IFwf_(11)ANDFNwf_=1 wf_(11)=TRUE:PROCsI(Wad_%,"WF11"):=FALSE
20440IFwf_(11)wf_(11)=FALSEELSEwf_(11)=TRUE
20450=TRUE
20460DEFFNWF12_:IFwf_(12)ANDFNwf_=1 wf_(12)=TRUE:PROCsI(Wad_%,"WF12"):=FALSE
20470IFwf_(12)wf_(12)=FALSEELSEwf_(12)=TRUE
20480=TRUE
20520DEFFNWFracGo_:PROCGetTitles:dummy_=RND(-TIME):quit_=FALSE:TIME=0:last_=12:PROCwhatWfracsign:PROCwhatWfracs:PROCcalcWfracs:Clue_$="Wad":started_%=TRUE:PROCusI(Wad_%,"WFracGo"):=FNsums
20570DEFPROCwhatWfracsign:IFWFracadd_ANDWFractake_=FALSEFORg_=1TO12:Fracsign_$(g_)="+":NEXT:ENDPROC
20590IFWFractake_ANDWFracadd_=FALSEFORg_=1TO12:Fracsign_$(g_)="-":NEXT:ENDPROC
20600start_=RND(2):IFstart_=1THEN
20620FORg_=1TO12:IFg_MOD2=0 Fracsign_$(g_)="+"ELSEFracsign_$(g_)="-"
20630NEXT
20640ELSE:FORg_=1TO12:IFg_MOD2=1 Fracsign_$(g_)="+"ELSEFracsign_$(g_)="-"
20660NEXT
20670ENDIF:ENDPROC
20690DEFPROCwhatWfracs:got_%=0:FORr_%=1TO12:IFwf_(r_%)=TRUETHENgot_%=got_%+1:gc_%(got_%)=frac_(r_%)
20710NEXT:ENDPROC
20730DEFPROCfracWadd:IFquit_=TRUEENDPROC
20740REPEAT:goodadd_=TRUE:REPEAT:WholeA_=RND(9):WholeB_=RND(9):UNTILWholeA_+WholeB_<8:IFgot_%=1 FD1_=gc_%(1)ELSEran_%=RND(got_%):FD1_=gc_%(ran_%)
20790IFWaddoms_=TRUEFD2_=FD1_
20800IFWaddoms_=FALSETHEN
20820IFgot_%=1 FD2_=gc_%(1)ELSEran_%=RND(got_%):FD2_=gc_%(ran_%)
20830ENDIF:REPEAT:flug_=0:REPEAT:FU1_=RND(FD1_):UNTILFU1_<FD1_:FORrt_=2TO10:IFFU1_MODrt_=0ANDFD1_MODrt_=0 flug_=1
20880NEXT:UNTILflug_=0:REPEAT:flug_=0:REPEAT:FU2_=RND(FD2_):UNTILFU2_<FD2_:FORrt_=2TO10:IFFU2_MODrt_=0ANDFD2_MODrt_=0 flug_=1
20930NEXT:UNTILflug_=0:IFWSadcarry_(1)=TRUEANDFU2_/FD2_+FU1_/FD1_<1 goodadd_=FALSE
20960IFWSadcarry_(2)=TRUEANDFU2_/FD2_+FU1_/FD1_>.9999 goodadd_=FALSE
20980IFr_>1ANDWAddReps_=TRUETHEN
21000FORrtt_=1TOr_-1:IFFracsign_$(r_)="+"ANDFD1_=FD1_(rtt_)ANDFD2_=FD2_(rtt_)ANDFU1_=FU1_(rtt_)ANDFU2_=FU2_(rtt_)ANDWholeA_=Whole_(rtt_,0)ANDWholeB_=Whole_(rtt_,1)goodadd_=FALSE
21010NEXT
21020ENDIF:IFTIME>500 quit_=TRUE:VDU7:last_=r_-1:SYS"Hourglass_Off":ENDPROC
21040UNTILgoodadd_=TRUE:Fracsign_$(r_)="+":FD1_(r_)=FD1_:FD2_(r_)=FD2_:FU1_(r_)=FU1_:FU2_(r_)=FU2_:Whole_(r_,0)=WholeA_:Whole_(r_,1)=WholeB_:ENDPROC
21080DEFPROCfrakWtake:IFquit_=TRUEENDPROC
21090REPEAT:goodsub_=TRUE:REPEAT:WholeA_=RND(9):WholeB_=RND(9):UNTILWholeA_>WholeB_:IFgot_%=1 FD1_=gc_%(1)ELSEran_%=RND(got_%):FD1_=gc_%(ran_%)
21130IFWsubdoms_=TRUEFD2_=FD1_
21140IFWsubdoms_=FALSETHEN
21160IFgot_%=1 FD2_=gc_%(1)ELSEran_%=RND(got_%):FD2_=gc_%(ran_%)
21170ENDIF:REPEAT:flug_=0:REPEAT:FU1_=RND(FD1_):UNTILFU1_<FD1_:FORrt_=2TO10:IFFU1_MODrt_=0ANDFD1_MODrt_=0 flug_=1
21220NEXT:UNTILflug_=0:REPEAT:flug_=0:REPEAT:FU2_=RND(FD2_):UNTILFU2_<FD2_:FORrt_=2TO10:IFFU2_MODrt_=0ANDFD2_MODrt_=0 flug_=1
21270NEXT:UNTILflug_=0:IFWSTakecar_(1)=TRUEANDFU1_/FD1_>=FU2_/FD2_ goodsub_=FALSE
21300IFWSTakecar_(2)=TRUEANDFU1_/FD1_<FU2_/FD2_ goodsub_=FALSE
21320IFr_>1ANDWSubReps_=TRUETHEN
21340FORrtt_=1TOr_-1:IFFracsign_$(r_)="-"ANDFD1_=FD1_(rtt_)ANDFD2_=FD2_(rtt_)ANDFU1_=FU1_(rtt_)ANDFU2_=FU2_(rtt_)ANDWholeA_=Whole_(rtt_,0)ANDWholeB_=Whole_(rtt_,1)goodsub_=FALSE
21350NEXT
21360ENDIF:IFTIME>500 quit_=TRUE:SYS"Hourglass_Off":VDU7:last_=r_-1:ENDPROC
21380UNTILgoodsub_=TRUE:Fracsign_$(r_)="-":FD1_(r_)=FD1_:FD2_(r_)=FD2_:FU1_(r_)=FU1_:FU2_(r_)=FU2_:Whole_(r_,0)=WholeA_:Whole_(r_,1)=WholeB_:ENDPROC
21440DEFFNesc(out_$):quit_=FALSE:=quit_:esc_$="Escape "+out_$:in_=INKEY.001:IFin_=27PROCmoan(esc_$):quit_=TRUE:SYS"Hourglass_Off"
21470=quit_
21490DEFPROCcalcWfracs:SYS"Hourglass_On":FORr_=1TO12:SYS"Hourglass_Percentage",r_/12*100:IFFracsign_$(r_)="+"PROCfracWaddELSEPROCfrakWtake
21520IFquit_=TRUEr_=12
21530NEXT:FORr_=1TOlast_:a_=FU1_(r_):b_=FD1_(r_):c_=FU2_(r_):d_=FD2_(r_):IFFracsign_$(r_)="+"PROCaddfracsELSEPROCtakefracs
21590NEXT:SYS"Hourglass_Off":ENDPROC
21620DEFPROCaddfracs:IFb_=d_THEN
21640f_=b_:e_=a_+c_
21650ELSE:x_=0:REPEAT:x_=x_+1:UNTILx_MODb_=0ANDx_MODd_=0:f_=x_:e_=f_/b_*a_+f_/d_*c_
21690ENDIF:whole_=0:IFe_>=f_ANDe_>0ANDf_>0 whole_=e_DIVf_:e_=e_MODf_
21720Whole_(r_,2)=Whole_(r_,0)+Whole_(r_,1):Whole_(r_,2)=Whole_(r_,2)+whole_:IFe_<>0PROCreduce
21750FU3_(r_)=e_:FD3_(r_)=f_:ENDPROC
21780DEFPROCtakefracs:IFa_/b_<c_/d_THEN
21800IFb_=d_THEN
21810f_=b_:e_=a_-c_+b_
21820ELSE:x_=0:REPEAT:x_=x_+1:UNTILx_MODb_=0ANDx_MODd_=0:f_=x_:e_=f_/b_*a_-f_/d_*c_+f_
21860ENDIF
21870ENDIF:IFa_/b_>=c_/d_THEN
21900IFb_=d_THEN
21910f_=b_:e_=a_-c_
21920ELSE:x_=0:REPEAT:x_=x_+1:UNTILx_MODb_=0ANDx_MODd_=0:f_=x_:e_=f_/b_*a_-f_/d_*c_
21960ENDIF
21970ENDIF:Whole_(r_,2)=Whole_(r_,0)-Whole_(r_,1):IFe_<>0PROCreduce
22000FU3_(r_)=e_:FD3_(r_)=f_:IFa_/b_<c_/d_THENWhole_(r_,2)=Whole_(r_,2)-1
22020ENDPROC
22080DEFPROCFrMD:FrMD_%=FNfWS("FrMD"):IFFracmult_PROCsI(FrMD_%,"Fracmult")
22100IFFracdiv_PROCsI(FrMD_%,"Fracdiv")
22110IFFrtdom_PROCsI(FrMD_%,"Frtdom")
22120IFFrtrep_PROCsI(FrMD_%,"Frtrep")
22130IFFrddom_PROCsI(FrMD_%,"Frddom")
22140IFFrdrep_PROCsI(FrMD_%,"Frdrep")
22150IFmf_(1)PROCsI(FrMD_%,"MF1")
22160IFmf_(2)PROCsI(FrMD_%,"MF2")
22170IFmf_(3)PROCsI(FrMD_%,"MF3")
22180IFmf_(4)PROCsI(FrMD_%,"MF4")
22190IFmf_(5)PROCsI(FrMD_%,"MF5")
22200IFmf_(6)PROCsI(FrMD_%,"MF6")
22210IFmf_(7)PROCsI(FrMD_%,"MF7")
22220IFmf_(8)PROCsI(FrMD_%,"MF8")
22230IFmf_(9)PROCsI(FrMD_%,"MF9")
22240IFmf_(10)PROCsI(FrMD_%,"MF10")
22250IFmf_(11)PROCsI(FrMD_%,"MF11")
22260IFmf_(12)PROCsI(FrMD_%,"MF12")
22270IFFrmwhole_PROCsI(FrMD_%,"Frmwhole")
22280IFFrdwhole_PROCsI(FrMD_%,"Frdwhole")
22290ENDPROC
22330DEFFNmf_:c_=0:FORh_=1TO12:IFmf_(h_)c_=c_+1
22340NEXT:=c_
22350DEFFNMF1_:IFmf_(1)ANDFNmf_=1 mf_(1)=TRUE:PROCsI(FrMD_%,"MF1"):=FALSE
22360IFmf_(1)=TRUEmf_(1)=FALSEELSEmf_(1)=TRUE
22370=TRUE
22380DEFFNMF2_:IFmf_(2)ANDFNmf_=1 mf_(2)=TRUE:PROCsI(FrMD_%,"MF2"):=FALSE
22390IFmf_(2)=TRUEmf_(2)=FALSEELSEmf_(2)=TRUE
22400=TRUE
22410DEFFNMF3_:IFmf_(3)ANDFNmf_=1 mf_(3)=TRUE:PROCsI(FrMD_%,"MF3"):=FALSE
22420IFmf_(3)=TRUEmf_(3)=FALSEELSEmf_(3)=TRUE
22430=TRUE
22440DEFFNMF4_:IFmf_(4)ANDFNmf_=1 mf_(4)=TRUE:PROCsI(FrMD_%,"MF4"):=FALSE
22450IFmf_(4)=TRUEmf_(4)=FALSEELSEmf_(4)=TRUE
22460=TRUE
22470DEFFNMF5_:IFmf_(5)ANDFNmf_=1 mf_(5)=TRUE:PROCsI(FrMD_%,"MF5"):=FALSE
22480IFmf_(5)=TRUEmf_(5)=FALSEELSEmf_(5)=TRUE
22490=TRUE
22500DEFFNMF6_:IFmf_(6)ANDFNmf_=1 mf_(6)=TRUE:PROCsI(FrMD_%,"MF6"):=FALSE
22510IFmf_(6)=TRUEmf_(6)=FALSEELSEmf_(6)=TRUE
22520=TRUE
22530DEFFNMF7_:IFmf_(7)ANDFNmf_=1 mf_(7)=TRUE:PROCsI(FrMD_%,"MF7"):=FALSE
22540IFmf_(7)=TRUEmf_(7)=FALSEELSEmf_(7)=TRUE
22550=TRUE
22560DEFFNMF8_:IFmf_(8)ANDFNmf_=1 mf_(8)=TRUE:PROCsI(FrMD_%,"MF8"):=FALSE
22570IFmf_(8)=TRUEmf_(8)=FALSEELSEmf_(8)=TRUE
22580=TRUE
22590DEFFNMF9_:IFmf_(9)ANDFNmf_=1 mf_(9)=TRUE:PROCsI(FrMD_%,"MF9"):=FALSE
22600IFmf_(9)=TRUEmf_(9)=FALSEELSEmf_(9)=TRUE
22610=TRUE
22620DEFFNMF10_:IFmf_(10)ANDFNmf_=1 mf_(10)=TRUE:PROCsI(FrMD_%,"MF10"):=FALSE
22630IFmf_(10)=TRUEmf_(10)=FALSEELSEmf_(10)=TRUE
22640=TRUE
22650DEFFNMF11_:IFmf_(11)ANDFNmf_=1 mf_(11)=TRUE:PROCsI(FrMD_%,"MF11"):=FALSE
22660IFmf_(11)=TRUEmf_(11)=FALSEELSEmf_(11)=TRUE
22670=TRUE
22680DEFFNMF12_:IFmf_(12)ANDFNmf_=1 mf_(12)=TRUE:PROCsI(FrMD_%,"MF12"):=FALSE
22690IFmf_(12)=TRUEmf_(12)=FALSEELSEmf_(12)=TRUE
22700=TRUE
22710DEFFNFracmult_:IFFracdiv_=FALSEFracmult_=TRUE:PROCsI(FrMD_%,"Fracmult"):=FALSE
22720IFFracmult_=TRUETHEN
22730Fracmult_=FALSE:PROCusI(FrMD_%,"Fracmult"):Frtdom_=FALSE:PROCusI(FrMD_%,"Frtdom"):Frtrep_=FALSE:PROCusI(FrMD_%,"Frtrep"):Frmwhole_=FALSE:PROCusI(FrMD_%,"Frmwhole")
22740ELSEFracmult_=TRUE:PROCsI(FrMD_%,"Fracmult")
22750ENDIF:=TRUE
22760DEFFNFrtdom_:IFFracmult_=FALSEFrtdom_=FALSE:PROCusI(FrMD_%,"Frtdom"):=FALSE
22770IFFrtdom_=TRUEFrtdom_=FALSE:PROCusI(FrMD_%,"Frtdom")ELSEFrtdom_=TRUE:PROCsI(FrMD_%,"Frtdom")
22780=TRUE
22790DEFFNFrtrep_:IFFracmult_=FALSEFrtrep_=FALSE:PROCusI(FrMD_%,"Frtrep"):=FALSE
22800IFFrtrep_=TRUEFrtrep_=FALSE:PROCusI(FrMD_%,"Frtrep")ELSEFrtrep_=TRUE:PROCsI(FrMD_%,"Frtrep")
22810=TRUE
22820DEFFNFracdiv_:IFFracmult_=FALSEFracdiv_=TRUE:PROCsI(FrMD_%,"Fracdiv"):=FALSE
22830IFFracdiv_=TRUETHEN
22840Fracdiv_=FALSE:PROCusI(FrMD_%,"Fracdiv"):Frddom_=FALSE:PROCusI(FrMD_%,"Frddom"):Frdrep_=FALSE:PROCusI(FrMD_%,"Frdrep"):Frdwhole_=FALSE:PROCusI(FrMD_%,"Frdwhole")
22850ELSEFracdiv_=TRUE:PROCsI(FrMD_%,"Fracdiv")
22860ENDIF:=TRUE
22870DEFFNFrddom_:IFFracdiv_=FALSEFrddom_=FALSE:PROCusI(FrMD_%,"Frddom"):=FALSE
22880IFFrddom_=TRUEFrddom_=FALSE:PROCusI(FrMD_%,"Frddom")ELSEFrddom_=TRUE:PROCsI(FrMD_%,"Frddom")
22890=TRUE
22900DEFFNFrdrep_:IFFracdiv_=FALSEFrdrep_=FALSE:PROCusI(FrMD_%,"Frdrep"):=FALSE
22910IFFrdrep_=TRUEFrdrep_=FALSE:PROCusI(FrMD_%,"Frdrep")ELSEFrdrep_=TRUE:PROCsI(FrMD_%,"Frdrep")
22920=TRUE
22930DEFFNFrmwhole_:IFFracmult_=FALSEFrmwhole_=FALSE:PROCusI(FrMD_%,"Frmwhole"):=FALSE
22940IFFrmwhole_=TRUEFrmwhole_=FALSE:PROCusI(FrMD_%,"Frmwhole")ELSEFrmwhole_=TRUE:PROCsI(FrMD_%,"Frmwhole")
22950=TRUE
22960DEFFNFrdwhole_:IFFracdiv_=FALSEFrdwhole_=FALSE:PROCusI(FrMD_%,"Frdwhole"):=FALSE
22970IFFrdwhole_=TRUEFrdwhole_=FALSE:PROCusI(FrMD_%,"Frdwhole")ELSEFrdwhole_=TRUE:PROCsI(FrMD_%,"Frmdwhole")
22980=TRUE
22990DEFFNFrMDgo_:PROCGetTitles:dummy_=RND(-TIME):quit_=FALSE:TIME=0:last_=12:quit_=FALSE:start_%=FALSE:FORr_%=1TO12:IFmf_(r_%)=TRUETHENstart_%=TRUE
23010NEXT:IFstart_%=FALSETHENqueer_$="Choose a denominator":V_$=FNalert(queer_$,"","OK","","",0):PROCusI(FrMD_%,"FrMDgo"):=FALSE
23030FORr_=1TO12:FORrr_=0TO2:Whole_(r_,rr_)=0:NEXT:NEXT:PROCwhatMfracsign:PROCwhatMfracs:PROCcalcMfracs:Clue_$="FrMD":started_%=TRUE:PROCusI(FrMD_%,"FrMDgo"):=FNsums
23050DEFPROCwhatMfracsign:IFFracmult_=TRUEANDFracdiv_=FALSETHENFORg_=1TO12:Fracsign_$(g_)="x":NEXT:ENDPROC
23060IFFracdiv_=TRUEANDFracmult_=FALSEFORg_=1TO12:Fracsign_$(g_)="�":NEXT:ENDPROC
23070start_=RND(2):IFstart_=1THEN
23090FORg_=1TO12:IFg_MOD2=0 Fracsign_$(g_)="x"ELSEFracsign_$(g_)="�"
23100NEXT
23110ELSE:FORg_=1TO12:IFg_MOD2=1 Fracsign_$(g_)="x"ELSEFracsign_$(g_)="�"
23130NEXT
23140ENDIF:ENDPROC
23160DEFPROCwhatMfracs:FORr_=1TO12:gc_%(r_)=0:NEXT:got_%=0:FORr_%=1TO12:IFmf_(r_%)=TRUETHENgot_%=got_%+1:gc_%(got_%)=mfv_(r_%)
23170NEXT:ENDPROC
23180DEFPROCcalcMfracs:SYS"Hourglass_On":FORr_=1TO12:SYS"Hourglass_Percentage",r_/12*100:PROCfractimes:NEXT:FORr_=1TOlast_:a_=FU1_(r_):b_=FD1_(r_):c_=FU2_(r_):d_=FD2_(r_):PROCtimesfracs:NEXT:SYS"Hourglass_Off":ENDPROC
23190DEFPROCfractimes:IFquit_=TRUEENDPROC
23200REPEAT:ranflag_=TRUE:IFTIME>500 quit_=TRUE:VDU7:last_=r_-1:SYS"Hourglass_Off":ENDPROC
23210IFFracsign_$(r_)="x"ANDFrmwhole_=TRUETHEN
23220REPEAT:Whole_(r_,0)=RND(9):Whole_(r_,1)=RND(9):UNTILWhole_(r_,0)*Whole_(r_,1)<10
23230ENDIF:IFFracsign_$(r_)="�"ANDFrdwhole_=TRUETHEN
23240Whole_(r_,0)=RND(9):Whole_(r_,1)=RND(9)
23250ENDIF:IFgot_%=1 FD1_(r_)=gc_%(1)ELSEran_%=RND(got_%):FD1_(r_)=gc_%(ran_%)
23260REPEAT:flug_=0:REPEAT:FU1_(r_)=RND(FD1_(r_)):UNTILFU1_(r_)<FD1_(r_):FORrt_=2TO10:IFFU1_(r_)MODrt_=0ANDFD1_(r_)MODrt_=0 flug_=1
23270NEXT:UNTILflug_=0:IFgot_%=1 FD2_(r_)=gc_%(1)ELSEIFFrtdom_=TRUEFD2_(r_)=FD1_(r_)ELSEran_%=RND(got_%):FD2_(r_)=gc_%(ran_%)
23280REPEAT:flug_=0:REPEAT:FU2_(r_)=RND(FD2_(r_)):UNTILFU2_(r_)<FD2_(r_):FORrt_=2TO10:IFFU2_(r_)MODrt_=0ANDFD2_(r_)MODrt_=0 flug_=1
23290NEXT:UNTILflug_=0:IFr_>1ANDFrtrep_=TRUETHEN
23300FORrtt_=1TOr_-1:IFFracsign_$(r_)="x"ANDFD1_(r_)=FD1_(rtt_)ANDFD2_(r_)=FD2_(rtt_)ANDFU1_(r_)=FU1_(rtt_)ANDFU2_(r_)=FU2_(rtt_)ANDWhole_(r_,0)=Whole_(rtt_,0)ANDWhole_(r_,1)=Whole_(rtt_,1)ranflag_=FALSE
23310NEXT
23320ENDIF:IFr_>1ANDFrdrep_=TRUETHEN
23330FORrtt_=1TOr_-1:IFFracsign_$(r_)="�"ANDFD1_(r_)=FD1_(rtt_)ANDFD2_(r_)=FD2_(rtt_)ANDFU1_(r_)=FU1_(rtt_)ANDFU2_(r_)=FU2_(rtt_)ANDWhole_(r_,0)=Whole_(rtt_,0)ANDWhole_(r_,1)=Whole_(rtt_,1)ranflag_=FALSE
23340NEXT
23350ENDIF:UNTILranflag_=TRUE:ENDPROC
23360DEFPROCtimesfracs:IFFrmwhole_=TRUEORFrdwhole_=TRUETHEN
23370a_=Whole_(r_,0)*b_+a_:c_=Whole_(r_,1)*d_+c_
23380ENDIF:IFFracsign_$(r_)="x"THEN
23390e_=a_*c_:f_=b_*d_
23400ELSE:e_=a_*d_:f_=b_*c_
23410ENDIF:whole_=0:IFe_>=f_ whole_=e_DIVf_:e_=e_MODf_
23420Whole_(r_,2)=whole_:IFe_<>0PROCreduce
23430FU3_(r_)=e_:FD3_(r_)=f_:ENDPROC
23440DEFPROCreduce:FORtr_=10TO2STEP-1:IFe_MODtr_=0ANDf_MODtr_=0 e_=e_/tr_:f_=f_/tr_:e_$=STR$(e_):f_$=STR$(f_)
23450NEXT:ENDPROC
23530DEFPROCLongMulty:LongMul_%=FNfWS("LongMul"):IFLongMul_(1)=TRUE:PROCsI(LongMul_%,"LongMul1")
23550IFLongMul_(2)=TRUE:PROCsI(LongMul_%,"LongMul2")
23560IFLongMul_(3)=TRUE:PROCsI(LongMul_%,"LongMul3")
23570IFLongMul_(4)=TRUE:PROCsI(LongMul_%,"LongMul4")
23580IFLongMul_(5)=TRUE:PROCsI(LongMul_%,"LongMul5")
23590IFLongMul_(6)=TRUE:PROCsI(LongMul_%,"LongMul6")
23600IFLongstyle_=1PROCsI(LongMul_%,"LongStyleA")
23610IFLongstyle_=2PROCsI(LongMul_%,"LongStyleB")
23620ENDPROC
23660DEFFNlongmul_:c_=0:FORh_=1TO6:IFLongMul_(h_)c_=c_+1
23670NEXT:=c_
23680DEFFNLongMul1_:IFLongMul_(1)ANDFNlongmul_=1 LongMul_(1)=TRUE:PROCsI(LongMul_%,"LongMul1"):=FALSE
23690IFLongMul_(1)LongMul_(1)=FALSEELSELongMul_(1)=TRUE
23700=TRUE
23710DEFFNLongMul2_:IFLongMul_(2)ANDFNlongmul_=1 LongMul_(2)=TRUE:PROCsI(LongMul_%,"LongMul2"):=FALSE
23720IFLongMul_(2)LongMul_(2)=FALSEELSELongMul_(2)=TRUE
23730=TRUE
23740DEFFNLongMul3_:IFLongMul_(3)ANDFNlongmul_=1 LongMul_(3)=TRUE:PROCsI(LongMul_%,"LongMul3"):=FALSE
23750IFLongMul_(3)LongMul_(3)=FALSEELSELongMul_(3)=TRUE
23760=TRUE
23770DEFFNLongMul4_:IFLongMul_(4)ANDFNlongmul_=1 LongMul_(4)=TRUE:PROCsI(LongMul_%,"LongMul4"):=FALSE
23780IFLongMul_(4)LongMul_(4)=FALSEELSELongMul_(4)=TRUE
23790=TRUE
23800DEFFNLongMul5_:IFLongMul_(5)ANDFNlongmul_=1 LongMul_(5)=TRUE:PROCsI(LongMul_%,"LongMul5"):=FALSE
23810IFLongMul_(5)LongMul_(5)=FALSEELSELongMul_(5)=TRUE
23820=TRUE
23830DEFFNLongMul6_:IFLongMul_(6)ANDFNlongmul_=1 LongMul_(6)=TRUE:PROCsI(LongMul_%,"LongMul6"):=FALSE
23840IFLongMul_(6)LongMul_(6)=FALSEELSELongMul_(6)=TRUE
23850=TRUE
23870DEFFNLongStyleA_:Longstyle_=1:PROCsI(LongMul_%,"LongStyleA"):PROCusI(LongMul_%,"LongStyleB"):=TRUE
23890DEFFNLongStyleB_:Longstyle_=2:PROCsI(LongMul_%,"LongStyleB"):PROCusI(LongMul_%,"LongStyleA"):=TRUE
23940DEFFNLongMulgo_:PROCGetTitles:dummy_=RND(-TIME):flag_=FALSE:FORg_=1TO6:IFLongMul_(g_)=TRUEflag_=TRUE
23970NEXT:IFflag_=FALSETHENSYS"Hourglass_Off":V_$=FNalert("Choose a type","","OK","","",0):PROCusI(LongMul_%,"LongMulgo"):=FALSE
23980got_%=0:FORy_=1TO6:IFLongMul_(y_)=TRUEgot_%=got_%+1:gc_%(got_%)=y_
23990NEXT:IFgot_%=1THEN
24010FORh_=1TO8:froc_(h_)=gc_%(got_%):NEXT
24020ENDIF:IFgot_%>1THEN
24040REPEAT:flag_=TRUE:FORr_=1TO8:finder_%(r_)=0:NEXT:needed_%=8DIVgot_%:FORh_=1TO8:r_=RND(got_%):froc_(h_)=gc_%(r_):finder_%(r_)=finder_%(r_)+1:NEXT:FORr_=1TOgot_%:IFfinder_%(r_)<needed_% flag_=FALSE
24130NEXT:UNTILflag_=TRUE
24150ENDIF:FORt_=1TO8:IFfroc_(t_)=1PROCworklong1
24180IFfroc_(t_)=2PROCworklong2
24190IFfroc_(t_)=3PROCworklong3
24200IFfroc_(t_)=4PROCworklong4
24210IFfroc_(t_)=5PROCworklong5
24220IFfroc_(t_)=6PROCworklong6
24230NEXT:PROCusI(LongMul_%,"LongMulgo"):last_=3:quit_=FALSE:started_%=TRUE:=FNsums
24260DEFPROCworklong1:REPEAT:a_=RND(99):UNTILa_>20:REPEAT:b_=RND(90):UNTILb_MOD10=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:last_=3:quit_=FALSE:Longchoice_$(t_)="LongMul1":Clue_$=Longchoice_$(t_):ENDPROC
24320DEFPROCworklong2:REPEAT:a_=RND(99):UNTILa_>12ANDa_MOD10<>0:REPEAT:b_=RND(99):UNTILb_>12ANDb_MOD10<>0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:Longchoice_$(t_)="LongMul2":Clue_$=Longchoice_$(t_):ENDPROC
24380DEFPROCworklong3:REPEAT:a_=RND(999):UNTILa_>100ANDa_MOD10<>0:REPEAT:b_=RND(99):UNTILb_>12ANDb_MOD10=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:Longchoice_$(t_)="LongMul3":Clue_$=Longchoice_$(t_):ENDPROC
24440DEFPROCworklong4:REPEAT:a_=RND(999):UNTILa_>100ANDa_MOD10<>0:REPEAT:b_=RND(99):UNTILb_>12ANDb_MOD10<>0:FORg_=1TO8:IFa_=a_(g_)ANDb_=b_(g_)flag_=1
24480a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:Longchoice_$(t_)="LongMul4":Clue_$=Longchoice_$(t_):ENDPROC
24510DEFPROCworklong5:REPEAT:a_=RND(9999):UNTILa_>1000ANDa_MOD10<>0:REPEAT:b_=RND(99):UNTILb_>12ANDb_MOD10<>0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:Longchoice_$(t_)="LongMul5":Clue_$=Longchoice_$(t_):ENDPROC
24570DEFPROCworklong6:REPEAT:a_=RND(9999):UNTILa_>1000ANDa_MOD10<>0:REPEATno_=TRUE:REPEAT:b_=RND(999):UNTILb_>99ANDb_MOD10<>0:e_$=STR$(b_):FORe_=1TOLEN(e_$):IFVAL(MID$(e_$,e_,1))=0 no_=FALSE
24620NEXT:UNTILno_=TRUE:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:Longchoice_$(t_)="LongMul6":Clue_$=Longchoice_$(t_):ENDPROC
24660DEFPROCLongMul2:left_=X%+80:on_=230:end_=100:down_=Y%-140:r_=0:FORq_=1TO2:FORw_=1TO4:r_=r_+1:a_$=STR$(a_(r_)):a_=a_(r_):b_$=STR$(b_(r_)):b_=b_(r_):c_$=STR$(c_(r_)):MOVEleft_+end_-LEN(a_$)*16-50-LEN(STR$(r_))*16,down_-100:PRINTFNzero(STR$(r_));")"
24780PROCsplit_(a_,down_-100):IFSign_%=TRUEMOVEleft_+end_+15,down_-100:PRINT"x"
24800PROCsplit_(b_,down_-140):IFSign_%=FALSEMOVEleft_+end_-LEN(STR$(b_))*16-20,down_-135:PRINT"x"
24820anslen_=LEN(c_$):ext_=0:IFanslen_>6 ext_=ext_+gap_*2
24850IFanslen_>3ANDanslen_<7 ext_=ext_+gap_
24860MOVEleft_+end_-anslen_*16-ext_,down_-170:DRAWleft_+end_-anslen_*16+anslen_*16+ext_,down_-170:IFAnswer_%=TRUEPROCLongMulAns
24880left_=left_+on_:NEXT:left_=X%+80:down_=down_-290:NEXT:ENDPROC
24940DEFPROCLongMulAns:IFLma_%=TRUETHEN
24960IFLongchoice_$(r_)="LongMul2"ORLongchoice_$(r_)="LongMul4"ORLongchoice_$(r_)="LongMul5"THEN
24970IFLongstyle_=1THEN
24980d_=a_*VAL(MID$(b_$,1,1))*10:PROCsplit_(d_,down_-180):e_=a_*VAL(MID$(b_$,2,1)):PROCsplit_(e_,down_-220)
25000ENDIF:IFLongstyle_=2THEN
25020d_=a_*VAL(MID$(b_$,1,1))*10:PROCsplit_(d_,down_-220):e_=a_*VAL(MID$(b_$,2,1)):PROCsplit_(e_,down_-180)
25040ENDIF:MOVEleft_+end_-anslen_*16-10,down_-252:DRAWleft_+end_-anslen_*16+anslen_*16+gap_,down_-252:f_=d_+e_:PROCsplit_(f_,down_-260):IFSecAns_%=TRUEMOVEleft_+end_-anslen_*16-10,down_-290:DRAWleft_+end_-anslen_*16+anslen_*16+gap_,down_-290
25080ENDIF:IFLongchoice_$(r_)="LongMul3"ORLongchoice_$(r_)="LongMul1"THEN
25100d_=a_*VAL(MID$(b_$,1,1))*10:PROCsplit_(d_,down_-180):IFSecAns_%=TRUEMOVEleft_+end_-anslen_*16-10,down_-210:DRAWleft_+end_-anslen_*16+anslen_*16+gap_,down_-210
25120ENDIF:IFLongchoice_$(r_)="LongMul6"THEN
25140IFLongstyle_=1THEN
25150d_=a_*VAL(MID$(b_$,1,1))*100:PROCsplit_(d_,down_-180):e_=a_*VAL(MID$(b_$,2,1))*10:PROCsplit_(e_,down_-220):f_=a_*VAL(MID$(b_$,3,1)):PROCsplit_(f_,down_-260)
25180ENDIF:IFLongstyle_=2THEN
25200d_=a_*VAL(MID$(b_$,1,1))*100:PROCsplit_(d_,down_-260):e_=a_*VAL(MID$(b_$,2,1))*10:PROCsplit_(e_,down_-220):f_=a_*VAL(MID$(b_$,3,1)):PROCsplit_(f_,down_-180)
25230ENDIF:MOVEleft_+end_-anslen_*16-10,down_-292:DRAWleft_+end_-anslen_*16+anslen_*16+gap_,down_-292:g_=d_+e_+f_:PROCsplit_(g_,down_-300):IFSecAns_%=TRUEMOVEleft_+end_-anslen_*16-10,down_-332:DRAWleft_+end_-anslen_*16+anslen_*16+gap_,down_-332
25270ENDIF
25280ELSE:PROCsplit_(c_(r_),down_-180):IFSecAns_%=TRUEMOVEleft_+end_-anslen_*16-ext_,down_-210:DRAWleft_+end_-anslen_*16+anslen_*16+ext_,down_-210
25310ENDIF:ENDPROC
25340DEFPROCsplit_(a_,v_):gap_=6:a_$=FNzero(STR$(a_)):IFLEN(a_$)>6THEN
25370ra_$=MID$(a_$,LEN(a_$)-2,3):MOVEleft_+end_-LEN(ra_$)*16,v_:PRINTra_$:mid_$=MID$(a_$,LEN(a_$)-5,3):MOVEleft_+end_-LEN(ra_$)*16-LEN(mid_$)*16-gap_,v_:PRINTmid_$:la_$=MID$(a_$,1,LEN(a_$)-6):MOVEleft_+end_-LEN(ra_$)*16-LEN(mid_$)*16-gap_-LEN(la_$)*16-gap_,v_:PRINTla_$
25460ENDIF:IFLEN(a_$)>3ANDLEN(a_$)<7THEN
25480ra_$=MID$(a_$,LEN(a_$)-2,3):MOVEleft_+end_-LEN(ra_$)*16,v_:PRINTra_$:la_$=MID$(a_$,1,LEN(a_$)-3):MOVEleft_+end_-LEN(ra_$)*16-LEN(la_$)*16-gap_,v_:PRINTla_$
25540ENDIF:IFLEN(a_$)<4THEN
25560MOVEleft_+end_-LEN(a_$)*16,v_:PRINTa_$
25580ENDIF:ENDPROC
25650DEFPROCLongDivy:LongDiv_%=FNfWS("LongDiv"):IFLongDiv_(1)PROCsI(LongDiv_%,"LongDiv1")
25670IFLongDiv_(2)PROCsI(LongDiv_%,"LongDiv2")
25680IFLongDiv_(3)PROCsI(LongDiv_%,"LongDiv3")
25690IFLongDiv_(4)PROCsI(LongDiv_%,"LongDiv4")
25700IFLongDiv_(5)PROCsI(LongDiv_%,"LongDiv5")
25710IFLongDiv_(6)PROCsI(LongDiv_%,"LongDiv6")
25720IFLongDiv_(7)PROCsI(LongDiv_%,"LongDiv7")
25730PROCLremainders:ENDPROC
25760DEFPROCLremainders:IFLRemainder_$="No"PROCsI(LongDiv_%,"LDrem1"):PROCusI(LongDiv_%,"LDrem2"):PROCusI(LongDiv_%,"LDrem3")
25780IFLRemainder_$="All"PROCusI(LongDiv_%,"LDrem1"):PROCsI(LongDiv_%,"LDrem2"):PROCusI(LongDiv_%,"LDrem3")
25790IFLRemainder_$="Ran"PROCusI(LongDiv_%,"LDrem1"):PROCusI(LongDiv_%,"LDrem2"):PROCsI(LongDiv_%,"LDrem3")
25800ENDPROC
25840DEFFNLDrem1_:LRemainder_$="No":PROCLremainders:=TRUE
25850DEFFNLDrem2_:LRemainder_$="All":PROCLremainders:=TRUE
25860DEFFNLDrem3_:LRemainder_$="Ran":PROCLremainders:=TRUE
25870DEFFNLongdivv_:c_=0:FORh_=1TO7:IFLongDiv_(h_)c_=c_+1
25880NEXT:=c_
25890DEFFNLongDiv1_:IFLongDiv_(1)ANDFNLongdivv_=1 LongDiv_(1)=TRUE:PROCsI(LongDiv_%,"LongDiv1"):=FALSE
25900IFLongDiv_(1)LongDiv_(1)=FALSEELSELongDiv_(1)=TRUE
25910=TRUE
25920DEFFNLongDiv2_:IFLongDiv_(2)ANDFNLongdivv_=1 LongDiv_(2)=TRUE:PROCsI(LongDiv_%,"LongDiv2"):=FALSE
25930IFLongDiv_(2)LongDiv_(2)=FALSEELSELongDiv_(2)=TRUE
25940=TRUE
25950DEFFNLongDiv3_:IFLongDiv_(3)ANDFNLongdivv_=1 LongDiv_(3)=TRUE:PROCsI(LongDiv_%,"LongDiv3"):=FALSE
25960IFLongDiv_(3)LongDiv_(3)=FALSEELSELongDiv_(3)=TRUE
25970=TRUE
25980DEFFNLongDiv4_:IFLongDiv_(4)ANDFNLongdivv_=1 LongDiv_(4)=TRUE:PROCsI(LongDiv_%,"LongDiv4"):=FALSE
25990IFLongDiv_(4)LongDiv_(4)=FALSEELSELongDiv_(4)=TRUE
26000=TRUE
26010DEFFNLongDiv5_:IFLongDiv_(5)ANDFNLongdivv_=1 LongDiv_(5)=TRUE:PROCsI(LongDiv_%,"LongDiv5"):=FALSE
26020IFLongDiv_(5)LongDiv_(5)=FALSEELSELongDiv_(5)=TRUE
26030=TRUE
26040DEFFNLongDiv6_:IFLongDiv_(6)ANDFNLongdivv_=1 LongDiv_(6)=TRUE:PROCsI(LongDiv_%,"LongDiv6"):=FALSE
26050IFLongDiv_(6)LongDiv_(6)=FALSEELSELongDiv_(6)=TRUE
26060=TRUE
26070DEFFNLongDiv7_:IFLongDiv_(7)ANDFNLongdivv_=1 LongDiv_(7)=TRUE:PROCsI(LongDiv_%,"LongDiv7"):=FALSE
26080IFLongDiv_(7)LongDiv_(7)=FALSEELSELongDiv_(7)=TRUE
26090=TRUE
26130DEFFNLongDivgo_:PROCGetTitles:dummy_=RND(-TIME):SYS"Hourglass_On":flag_=FALSE:randi_%=RND(2):got_%=0:FORy_=1TO7:IFLongDiv_(y_)=TRUEgot_%=got_%+1:gc_%(got_%)=y_
26160NEXT:IFgot_%=1THEN
26180FORh_=1TO8:froc_(h_)=gc_%(got_%):NEXT
26190ENDIF:IFgot_%>1THEN
26210REPEAT:flag_=TRUE:FORr_=1TO8:finder_%(r_)=0:NEXT:needed_%=8DIVgot_%:FORh_=1TO8:r_=RND(got_%):froc_(h_)=gc_%(r_):finder_%(r_)=finder_%(r_)+1:NEXT:FORr_=1TOgot_%:IFfinder_%(r_)<needed_% flag_=FALSE
26300NEXT:UNTILflag_=TRUE
26320ENDIF:FORt_=1TO6:SYS"Hourglass_Percentage",t_/6*100:IFfroc_(t_)=1 max_=999:min_=100:div_=90:minn_=0:mod_=TRUE
26350IFfroc_(t_)=2 max_=999:min_=100:div_=99:minn_=10:mod_=FALSE
26360IFfroc_(t_)=3 max_=9999:min_=1000:div_=90:minn_=10:mod_=TRUE
26370IFfroc_(t_)=4 max_=9999:min_=1000:div_=99:minn_=10:mod_=FALSE
26380IFfroc_(t_)=5 max_=99999:min_=10000:div_=99:minn_=10:mod_=FALSE
26390IFfroc_(t_)=6 max_=999999:min_=100000:div_=99:minn_=10:mod_=FALSE
26400IFfroc_(t_)=7 max_=999999:min_=100000:div_=999:minn_=100:mod_=FALSE
26410PROCworklongD1:NEXT:SYS"Hourglass_Off":PROCusI(LongDiv_%,"LongDivgo"):started_%=TRUE:last_=3:quit_=FALSE:Clue_$="LDivy":=FNsums
26450DEFPROCLdups:IFt_>1THEN
26470FORgg_=1TOt_-1:IFb_=b_(gg_)flag_=FALSE
26480NEXT
26490ENDIF:ENDPROC
26510DEFPROCworklongD1:IFLRemainder_$="No"PROClde
26530IFLRemainder_$="All"PROCldf
26540IFLRemainder_$="Ran"THEN
26550randi_%=RND(2):IFrandi_%=1PROCldeELSEPROCldf
26570ENDIF:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_DIVb_:rem_(t_)=a_MODb_:ENDPROC
26610DEFPROClde:REPEAT:REPEAT:flag_=TRUE:REPEAT:a_=RND(max_):UNTILa_>min_:IFmod_=TRUEREPEATb_=RND(div_):UNTILb_MOD10=0ANDb_>minn_ELSEREPEATb_=RND(div_):UNTILb_MOD10<>0ANDb_>minn_
26660UNTILa_MODb_=0:PROCLdups:UNTILflag_=TRUE:ENDPROC
26710DEFPROCldf:REPEAT:REPEAT:flag_=TRUE:REPEAT:a_=RND(max_):UNTILa_>min_:IFmod_=TRUEREPEATb_=RND(div_):UNTILb_MOD10=0ANDb_>minn_ELSEREPEATb_=RND(div_):UNTILb_MOD10<>0ANDb_>minn_
26770c_=a_/b_:c_$=STR$(c_):FORcc_=1TOLEN(c_$):IFMID$(c_$,cc_,1)="." poin_=cc_
26790NEXT:cz_$=MID$(c_$,poin_+1,LEN(c_$)-poin_+1):IFLEN(cz_$)>pwon_ANDMID$(cz_$,pwon_,1)="9"ANDVAL(MID$(cz_$,pwon_+1,1))>4 flag_=FALSE
26820UNTILa_MODb_<>0ANDflag_=TRUE:IFLEN(cz_$)>pwon_ANDVAL(MID$(cz_$,pwon_+1,1))>4THEN
26850d_=VAL(MID$(cz_$,pwon_,1)):d_=d_+1:d_$=STR$(d_):MID$(cz_$,pwon_,1)=d_$
26870ENDIF:IFLEN(cz_$)<pwon_ cz_$=cz_$+STRING$(pwon_-LEN(cz_$),"0")
26890cz_$(t_)=MID$(cz_$,1,pwon_):PROCLdups:UNTILflag_=TRUE:ENDPROC
26980DEFPROCMadd:Madd_%=FNfWS("Madd"):IFmaddy_(1)PROCsI(Madd_%,"Madd1")
27000IFmaddy_(2)PROCsI(Madd_%,"Madd2")
27010IFmaddy_(3)PROCsI(Madd_%,"Madd3")
27020IFmaddy_(4)PROCsI(Madd_%,"Madd4")
27030IFmaddy_(5)PROCsI(Madd_%,"Madd5")
27040IFmaddy_(6)PROCsI(Madd_%,"Madd6")
27050IFmt_(1)PROCsI(Madd_%,"mt1")
27060IFmt_(2)PROCsI(Madd_%,"mt2")
27070IFmt_(3)PROCsI(Madd_%,"mt3")
27080IFmt_(4)PROCsI(Madd_%,"mt4")
27090IFmt_(5)PROCsI(Madd_%,"mt5")
27100IFmt_(6)PROCsI(Madd_%,"mt6")
27110PROCmadcarry:ENDPROC
27140DEFPROCmadcarry:IFmaddcarry_$="No"PROCsI(Madd_%,"mcarry1"):PROCusI(Madd_%,"mcarry2"):PROCusI(Madd_%,"mcarry3")
27160IFmaddcarry_$="All"PROCusI(Madd_%,"mcarry1"):PROCsI(Madd_%,"mcarry2"):PROCusI(Madd_%,"mcarry3")
27170IFmaddcarry_$="Ran"PROCusI(Madd_%,"mcarry1"):PROCusI(Madd_%,"mcarry2"):PROCsI(Madd_%,"mcarry3")
27180ENDPROC
27220DEFFNmaddy_:c_=0:FORh_=1TO6:IFmaddy_(h_)c_=c_+1
27230NEXT:=c_
27240DEFFNMadd1_:IFmaddy_(1)ANDFNmaddy_=1 maddy_(1)=TRUE:PROCsI(Madd_%,"Madd1"):=FALSE
27250IFmaddy_(1)maddy_(1)=FALSEELSEmaddy_(1)=TRUE
27260=TRUE
27270DEFFNMadd2_:IFmaddy_(2)ANDFNmaddy_=1 maddy_(2)=TRUE:PROCsI(Madd_%,"Madd2"):=FALSE
27280IFmaddy_(2)maddy_(2)=FALSEELSEmaddy_(2)=TRUE
27290=TRUE
27300DEFFNMadd3_:IFmaddy_(3)ANDFNmaddy_=1 maddy_(3)=TRUE:PROCsI(Madd_%,"Madd3"):=FALSE
27310IFmaddy_(3)maddy_(3)=FALSEELSEmaddy_(3)=TRUE
27320=TRUE
27330DEFFNMadd4_:IFmaddy_(4)ANDFNmaddy_=1 maddy_(4)=TRUE:PROCsI(Madd_%,"Madd4"):=FALSE
27340IFmaddy_(4)maddy_(4)=FALSEELSEmaddy_(4)=TRUE
27350=TRUE
27360DEFFNMadd5_:IFmaddy_(5)ANDFNmaddy_=1 maddy_(5)=TRUE:PROCsI(Madd_%,"Madd5"):=FALSE
27370IFmaddy_(5)maddy_(5)=FALSEELSEmaddy_(5)=TRUE
27380=TRUE
27390DEFFNMadd6_:IFmaddy_(6)ANDFNmaddy_=1 maddy_(6)=TRUE:PROCsI(Madd_%,"Madd6"):=FALSE
27400IFmaddy_(6)maddy_(6)=FALSEELSEmaddy_(6)=TRUE
27410=TRUE
27420DEFFNmt1_:IFmt_(1)mt_(1)=FALSE:PROCusI(Madd_%,"mt1")ELSEmt_(1)=TRUE:PROCsI(Madd_%,"mt1")
27430=TRUE
27440DEFFNmt2_:IFmt_(2)mt_(2)=FALSE:PROCusI(Madd_%,"mt2")ELSEmt_(2)=TRUE:PROCsI(Madd_%,"mt2")
27450=TRUE
27460DEFFNmt3_:IFmt_(3)mt_(3)=FALSE:PROCusI(Madd_%,"mt3")ELSEmt_(3)=TRUE:PROCsI(Madd_%,"mt3")
27470=TRUE
27480DEFFNmt4_:IFmt_(4)mt_(4)=FALSE:PROCusI(Madd_%,"mt4")ELSEmt_(4)=TRUE:PROCsI(Madd_%,"mt4")
27490=TRUE
27500DEFFNmt5_:IFmt_(5)mt_(5)=FALSE:PROCusI(Madd_%,"mt5")ELSEmt_(5)=TRUE:PROCsI(Madd_%,"mt5")
27510=TRUE
27520DEFFNmt6_:IFmt_(6)mt_(6)=FALSE:PROCusI(Madd_%,"mt6")ELSEmt_(6)=TRUE:PROCsI(Madd_%,"mt6")
27530=TRUE
27540DEFFNmcarry1_:maddcarry_$="No":PROCmadcarry:=TRUE
27550DEFFNmcarry2_:maddcarry_$="All":PROCmadcarry:=TRUE
27560DEFFNmcarry3_:maddcarry_$="Ran":PROCmadcarry:=TRUE
27600DEFFNMaddgo_:PROCGetTitles:many_=12:PROCSmadd_:PROCwhatmadds:PROCmaddup:started_%=TRUE:PROCusI(Madd_%,"Maddgo"):SYS"Hourglass_Off":last_=3:quit_=FALSE:Clue_$="Madd":=FNsums
27650DEFPROCSmadd_:IFNOTmaddy_(3)ANDNOTmaddy_(4)THENmt_(1)=FALSE:PROCusI(Madd_%,"mt1"):mt_(2)=FALSE:PROCusI(Madd_%,"mt2"):mt_(3)=FALSE:PROCusI(Madd_%,"mt3")
27660IFNOTmaddy_(5)ANDNOTmaddy_(6)THENmt_(4)=FALSE:PROCusI(Madd_%,"mt4"):mt_(5)=FALSE:PROCusI(Madd_%,"mt5"):mt_(6)=FALSE:PROCusI(Madd_%,"mt6")
27670ENDPROC
27680DEFPROCwhatmadds:SYS"Hourglass_On":thou_=0:hun_=0:IFmt_(1)hun_=hun_+1:hun_$(hun_)="�"
27710IFmt_(2)hun_=hun_+1:hun_$(hun_)="m"
27720IFmt_(3)hun_=hun_+1:hun_$(hun_)="cm"
27730IFmt_(4)thou_=thou_+1:thou_$(thou_)="kg"
27740IFmt_(5)thou_=thou_+1:thou_$(thou_)="km"
27750IFmt_(6)thou_=thou_+1:thou_$(thou_)="l"
27760got_%=0:FORr_%=1TO6:IFmaddy_(r_%)THENgot_%=got_%+1:gc_%(got_%)=r_%:addytype_(got_%)=r_%
27770NEXT:IFgot_%=1FORr_=1TO12:lineaddy_(r_)=gc_%(got_%):NEXT:ENDPROC
27790IFgot_%=6PROCtimes(got_%,12):FORr_=1TO12:lineaddy_(r_)=gc_%(finder_%(r_)):NEXT:SYS"Hourglass_Off":ENDPROC
27800needed_%=12DIVgot_%:REPEAT:FORr_=1TO12:finder_%(r_)=0:NEXT:flag_=TRUE:FORr_=1TO12:SYS"Hourglass_Percentage",r_/12*100:REPEAT:flig_=TRUE:ran_%=RND(got_%):IFr_>1ANDgc_%(ran_%)=lineaddy_(r_-1)flig_=FALSE
27900UNTILflig_=TRUE:lineaddy_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORt_=1TOgot_%:IFfinder_%(t_)<needed_% flag_=FALSE
27930NEXT:UNTILflag_=TRUE:SYS"Hourglass_Off":ENDPROC
27960DEFPROCmaddup:dummy_=RND(-TIME):FORt_=1TO12:a_(t_)=-1:b_(t_)=-1:NEXT:SYS"Hourglass_On":FORt_=1TO12:IFlineaddy_(t_)=1 ran_%=99:rin_%=9
28010IFlineaddy_(t_)=2 ran_%=999:rin_%=99
28020IFlineaddy_(t_)=3 ran_%=999:rin_%=99
28030IFlineaddy_(t_)=4 ran_%=9999:rin_%=999
28040IFlineaddy_(t_)=5 ran_%=9999:rin_%=999
28050IFlineaddy_(t_)=6 ran_%=99999:rin_%=9999
28060IFlineaddy_(t_)<3 top_$(t_)=""
28070IFlineaddy_(t_)=3ORlineaddy_(t_)=4THEN
28080IFhun_=0 top_$(t_)=""
28090IFhun_=1 top_$(t_)=hun_$(1)
28100IFhun_>1 top_=RND(hun_):top_$(t_)=hun_$(top_)
28110ENDIF:IFlineaddy_(t_)=5ORlineaddy_(t_)=6THEN
28130IFthou_=0 top_$(t_)=""
28140IFthou_=1 top_$(t_)=thou_$(1)
28150IFthou_>1 top_=RND(thou_):top_$(t_)=thou_$(top_)
28160ENDIF:SYS"Hourglass_Percentage",t_/12*100:REPEAT:flag_=0:REPEAT:a_=RND(ran_%):b_=RND(ran_%):UNTILa_MOD10<>0ANDb_MOD10<>0ANDa_>rin_%ANDb_>rin_%:IFmaddcarry_$="No"PROCnomaddcarry
28240IFmaddcarry_$="All"PROCallmaddcarry
28250IFt_>1THEN
28260FORe_=1TOt_-1:IFa_=a_(e_)ANDb_=b_(e_)flag_=1
28270NEXT
28280ENDIF:UNTILflag_=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_+b_:NEXT:SYS"Hourglass_Off":ENDPROC
28340DEFPROCnomaddcarry:a_$=STR$(a_):b_$=STR$(b_):la_=LEN(a_$):lb_=LEN(b_$):z_=la_:IFlb_<la_ z_=lb_
28360FORr_=z_TO1STEP-1:IFVAL(MID$(a_$,r_,1))+VAL(MID$(b_$,r_,1))>9 flag_=1
28380NEXT:ENDPROC
28400DEFPROCallmaddcarry:a_$=STR$(a_):b_$=STR$(b_):la_=LEN(a_$):lb_=LEN(b_$):z_=la_:IFlb_>la_ z_=lb_
28420FORr_=z_TO1STEP-1:IFVAL(MID$(a_$,r_,1))+VAL(MID$(b_$,r_,1))<10 flag_=1
28430NEXT:ENDPROC
28450DEFPROCMDiv:X%=X%+90:left_=X%+80:on_=270:end_=100:down_=Y%-110:r_=0:IFmany_=9FORq_=1TO3ELSEFORq_=1TO4
28510FORw_=1TO3:r_=r_+1:IFquit_=TRUEa_=0:b_=0:c_=0ELSEa_=a_(r_):b_=b_(r_):c_=c_(r_)
28530dunkleft_=left_:a_$=FNzero(STR$(a_)):b_$=FNzero(STR$(b_)):c_$=FNzero(STR$(c_)):anslen_=LEN(a_$):dunkleft_=left_:lon_=LEN(a_$):left_=left_+lon_/2*16:pt_=left_:IFlinedvy_(r_)=1PROCpppoint(1,1)
28600IFlinedvy_(r_)=2PROCpppoint(2,1)
28610IFlinedvy_(r_)=3PROCpppoint(1,2)
28620IFlinedvy_(r_)=4PROCpppoint(2,2)
28630IFlinedvy_(r_)=5PROCpppoint(1,3)
28640IFlinedvy_(r_)=6PROCpppoint(2,3)
28650IFlinedvy_(r_)=1ANDLEN(c_$)<2 c_$="O"+c_$
28670IFlinedvy_(r_)=1 left_$=LEFT$(c_$,1):right_$=RIGHT$(c_$,1)
28680IFlinedvy_(r_)=2 left_$=LEFT$(c_$,LEN(c_$)-1):right_$=RIGHT$(c_$,1)
28690IFlinedvy_(r_)=3ANDLEN(c_$)<3 c_$="O"+c_$
28700IFlinedvy_(r_)=3 left_$=LEFT$(c_$,1):right_$=RIGHT$(c_$,2)
28710IFlinedvy_(r_)=4 left_$=LEFT$(c_$,LEN(c_$)-2):right_$=RIGHT$(c_$,2)
28720IFlinedvy_(r_)=5ANDLEN(c_$)<4 c_$="O"+c_$
28730IFlinedvy_(r_)=5 left_$=LEFT$(c_$,1):right_$=RIGHT$(c_$,3)
28740IFlinedvy_(r_)=6 left_$=LEFT$(c_$,LEN(c_$)-3):right_$=RIGHT$(c_$,3)
28750left_=dunkleft_:left_=left_+on_:NEXT:left_=X%+80:down_=down_-180:NEXT:ENDPROC
28800DEFPROCpppoint(x_,y_):left_$=LEFT$(a_$,x_):right_$=RIGHT$(a_$,y_):al_=LEN(left_$)*16:ar_=LEN(right_$)*16:MOVEleft_+end_-ar_,down_-100:PRINTright_$:MOVEleft_+end_-ar_-20,down_-90:PRINT".":MOVEleft_+end_-ar_-al_-30,down_-100:PRINTleft_$
28860MOVEleft_+end_-ar_-30-LEN(top_$(r_))*16,down_-25:PRINTtop_$(r_):MOVEleft_+end_-ar_-al_-50,down_-100:PRINT")":MOVEleft_+end_-ar_-al_-50,down_-94:DRAWleft_+end_,down_-94:MOVEleft_+end_-ar_-al_-55-LEN(b_$)*16,down_-100:PRINTb_$
28900MOVEleft_+end_-ar_-al_-100-LEN(b_$)*16-LEN(STR$(r_))*16,down_-60:PRINTFNzero(STR$(r_));")":IFAnswer_%=TRUETHEN
28930left_$=LEFT$(c_$,LEN(c_$)-y_):right_$=RIGHT$(c_$,y_):IFleft_$="" left_$="O"
28950al_=LEN(left_$)*16:ar_=LEN(right_$)*16:MOVEleft_+end_-ar_,down_-60:PRINTright_$:MOVEleft_+end_-ar_-20,down_-50:PRINT".":MOVEleft_+end_-ar_-al_-30,down_-60:PRINTleft_$
28990ENDIF:ENDPROC
29010DEFPROCMmult_:X%=X%+70:left_=X%+80:on_=270:end_=100:down_=Y%-90:r_=0:FORq_=1TO4:FORw_=1TO3:r_=r_+1:IFquit_=TRUEa_=0:b_=0:c_=0ELSEa_=a_(r_):b_=b_(r_):c_=c_(r_)
29090dunkleft_=left_:a_$=FNzero(STR$(a_)):b_$=FNzero(STR$(b_)):c_$=FNzero(STR$(c_)):anslen_=LEN(c_$):dunkleft_=left_:lon_=LEN(a_$):left_=left_+lon_/2*16:pt_=left_:MOVEleft_+end_-LEN(STR$(a_))*16-80-LEN(STR$(r_))*16,down_-100:PRINTFNzero(STR$(r_));")"
29160IFlineaddy_(r_)=1PROCppoint(1,1)
29170IFlineaddy_(r_)=2PROCppoint(2,1)
29180IFlineaddy_(r_)=3PROCppoint(1,2)
29190IFlineaddy_(r_)=4PROCppoint(2,2)
29200IFlineaddy_(r_)=5PROCppoint(1,3)
29210IFlineaddy_(r_)=6PROCppoint(2,3)
29220MOVEleft_+end_-anslen_*16-30,down_-172:DRAWleft_+end_-anslen_*16+anslen_*16,down_-172:left_=dunkleft_:left_=left_+on_:NEXT:left_=X%+80:down_=down_-180:NEXT:ENDPROC
29280DEFPROCppoint(x_,y_):left_$=LEFT$(a_$,x_):right_$=RIGHT$(a_$,y_):al_=LEN(left_$)*16:ar_=LEN(right_$)*16:MOVEleft_+end_-ar_,down_-100:PRINTright_$:IFSign_%=TRUEMOVEleft_+end_+10,down_-100:PRINTsign_$
29330MOVEleft_+end_-ar_-20,down_-90:PRINT".":MOVEleft_+end_-ar_-al_-30,down_-100:PRINTleft_$:MOVEleft_+end_-ar_-30-LEN(top_$(r_))*16,down_-60:PRINTtop_$(r_):MOVEleft_+end_-ar_-30-LEN(b_$)*16,down_-140:PRINTb_$
29370IFSign_%=FALSEMOVEleft_+end_-ar_-30-LEN(b_$)*16-30,down_-140:PRINTsign_$
29380IFSecAns_%=TRUEMOVEleft_+end_-anslen_*16-30,down_-212:DRAWleft_+end_-anslen_*16+anslen_*16,down_-212
29390IFAnswer_%=TRUETHEN
29400left_$=LEFT$(c_$,LEN(c_$)-y_):right_$=RIGHT$(c_$,y_):IFleft_$="" left_$="O"
29420al_=LEN(left_$)*16:ar_=LEN(right_$)*16:MOVEleft_+end_-ar_,down_-180:PRINTright_$:MOVEleft_+end_-ar_-20,down_-170:PRINT".":MOVEleft_+end_-ar_-al_-30,down_-180:PRINTleft_$
29460ENDIF:ENDPROC
29480DEFPROCmadd:IFClue_$="Madd" sign_$="+"
29500IFClue_$="Msub" sign_$="-"
29510IFMID$(Clue_$,1,3)="Sub" sign_$="-"
29520IFMID$(Clue_$,1,3)="Mul" sign_$="x"
29530X%=X%+50:left_=X%+80:on_=270:end_=100:down_=Y%-90:r_=0:IFmany_=9FORq_=1TO3ELSEFORq_=1TO4
29580FORw_=1TO3:r_=r_+1:IFquit_=TRUEa_=0:b_=0:c_=0ELSEa_=a_(r_):b_=b_(r_):c_=c_(r_)
29600dunkleft_=left_:a_$=FNzero(STR$(a_)):b_$=FNzero(STR$(b_)):c_$=FNzero(STR$(c_)):IFLEN(b_$)>LEN(c_$)anslen_=LEN(b_$)ELSEanslen_=LEN(c_$)
29630dunkleft_=left_:lon_=LEN(a_$):IFLEN(b_$)>lon_ lon_=LEN(b_$)
29660IFLEN(c_$)>lon_ lon_=LEN(c_$)
29670left_=left_+lon_/2*16:MOVEleft_+end_-LEN(STR$(a_))*16-60-LEN(STR$(r_))*16,down_-100:PRINTFNzero(STR$(r_));")":IFr_=10MOVEleft_+end_-LEN(STR$(a_))*16-60-LEN(STR$(r_))*16,down_-100:PRINT"1O)"
29700IFlineaddy_(r_)=1PROCpoint(1,1)
29710IFlineaddy_(r_)=2PROCpoint(2,1)
29720IFlineaddy_(r_)=3PROCpoint(1,2)
29730IFlineaddy_(r_)=4PROCpoint(2,2)
29740IFlineaddy_(r_)=5PROCpoint(1,3)
29750IFlineaddy_(r_)=6PROCpoint(2,3)
29760MOVEleft_+end_-anslen_*16-30,down_-172:DRAWleft_+end_-anslen_*16+anslen_*16,down_-172:left_=dunkleft_:left_=left_+on_:NEXT:left_=X%+80:down_=down_-180:NEXT:ENDPROC
29820DEFPROCpoint(x_,y_):left_$=LEFT$(a_$,x_):right_$=RIGHT$(a_$,y_):al_=LEN(left_$)*16:ar_=LEN(right_$)*16:MOVEleft_+end_-ar_,down_-100:PRINTright_$:IFSign_%=TRUEMOVEleft_+end_+10,down_-100:PRINTsign_$
29870MOVEleft_+end_-ar_-20,down_-90:PRINT".":MOVEleft_+end_-ar_-al_-30,down_-100:PRINTleft_$:MOVEleft_+end_-ar_-30-LEN(top_$(r_))*16,down_-60:PRINTtop_$(r_):left_$=LEFT$(b_$,x_):right_$=RIGHT$(b_$,y_):al_=LEN(left_$)*16:ar_=LEN(right_$)*16
29920MOVEleft_+end_-ar_,down_-140:PRINTright_$:MOVEleft_+end_-ar_-20,down_-130:PRINT".":MOVEleft_+end_-ar_-al_-30,down_-140:PRINTleft_$:IFSign_%=FALSEMOVEleft_+end_-ar_-al_-50,down_-140:PRINTsign_$
29960IFSecAns_%=TRUEMOVEleft_+end_-anslen_*16-30,down_-212:DRAWleft_+end_-anslen_*16+anslen_*16,down_-212
29970IFAnswer_%=TRUETHEN
29980left_$=LEFT$(c_$,LEN(c_$)-y_):right_$=RIGHT$(c_$,y_):IFleft_$="" left_$="O"
30000al_=LEN(left_$)*16:ar_=LEN(right_$)*16:MOVEleft_+end_-ar_,down_-180:PRINTright_$:MOVEleft_+end_-ar_-20,down_-170:PRINT".":MOVEleft_+end_-ar_-al_-30,down_-180:PRINTleft_$
30040ENDIF:ENDPROC
30100DEFPROCMsub:Msub_%=FNfWS("MetricSub"):IFmsub_(1)PROCsI(Msub_%,"Msub1")
30120IFmsub_(2)PROCsI(Msub_%,"Msub2")
30130IFmsub_(3)PROCsI(Msub_%,"Msub3")
30140IFmsub_(4)PROCsI(Msub_%,"Msub4")
30150IFmsub_(5)PROCsI(Msub_%,"Msub5")
30160IFmsub_(6)PROCsI(Msub_%,"Msub6")
30170IFst_(1)PROCsI(Msub_%,"st1")
30180IFst_(2)PROCsI(Msub_%,"st2")
30190IFst_(3)PROCsI(Msub_%,"st3")
30200IFst_(4)PROCsI(Msub_%,"st4")
30210IFst_(5)PROCsI(Msub_%,"st5")
30220IFst_(6)PROCsI(Msub_%,"st6")
30230PROCmsubcarry:ENDPROC
30260DEFPROCmsubcarry:IFmsubcarry_$="No"PROCsI(Msub_%,"scarry1"):PROCusI(Msub_%,"scarry2"):PROCusI(Msub_%,"scarry3")
30280IFmsubcarry_$="All"PROCusI(Msub_%,"scarry1"):PROCsI(Msub_%,"scarry2"):PROCusI(Msub_%,"scarry3")
30290IFmsubcarry_$="Ran"PROCusI(Msub_%,"scarry1"):PROCusI(Msub_%,"scarry2"):PROCsI(Msub_%,"scarry3")
30300ENDPROC
30340DEFFNmsub_:c_=0:FORh_=1TO6:IFmsub_(h_)c_=c_+1
30350NEXT:=c_
30360DEFFNMsub1_:IFmsub_(1)ANDFNmsub_=1 msub_(1)=TRUE:PROCsI(Msub_%,"Msub1"):=FALSE
30370IFmsub_(1)msub_(1)=FALSEELSEmsub_(1)=TRUE
30380=TRUE
30390DEFFNMsub2_:IFmsub_(2)ANDFNmsub_=1 msub_(2)=TRUE:PROCsI(Msub_%,"Msub2"):=FALSE
30400IFmsub_(2)msub_(2)=FALSEELSEmsub_(2)=TRUE
30410=TRUE
30420DEFFNMsub3_:IFmsub_(3)ANDFNmsub_=1 msub_(3)=TRUE:PROCsI(Msub_%,"Msub3"):=FALSE
30430IFmsub_(3)msub_(3)=FALSEELSEmsub_(3)=TRUE
30440=TRUE
30450DEFFNMsub4_:IFmsub_(4)ANDFNmsub_=1 msub_(4)=TRUE:PROCsI(Msub_%,"Msub4"):=FALSE
30460IFmsub_(4)msub_(4)=FALSEELSEmsub_(4)=TRUE
30470=TRUE
30480DEFFNMsub5_:IFmsub_(5)ANDFNmsub_=1 msub_(5)=TRUE:PROCsI(Msub_%,"Msub5"):=FALSE
30490IFmsub_(5)msub_(5)=FALSEELSEmsub_(5)=TRUE
30500=TRUE
30510DEFFNMsub6_:IFmsub_(6)ANDFNmsub_=1 msub_(6)=TRUE:PROCsI(Msub_%,"Msub6"):=FALSE
30520IFmsub_(6)msub_(6)=FALSEELSEmsub_(6)=TRUE
30530=TRUE
30540DEFFNst1_:IFst_(1)st_(1)=FALSEELSEst_(1)=TRUE
30550=TRUE
30560DEFFNst2_:IFst_(2)st_(2)=FALSEELSEst_(2)=TRUE
30570=TRUE
30580DEFFNst3_:IFst_(3)st_(3)=FALSEELSEst_(3)=TRUE
30590=TRUE
30600DEFFNst4_:IFst_(4)st_(4)=FALSEELSEst_(4)=TRUE
30610=TRUE
30620DEFFNst5_:IFst_(5)st_(5)=FALSEELSEst_(5)=TRUE
30630=TRUE
30640DEFFNst6_:IFst_(6)st_(6)=FALSEELSEst_(6)=TRUE
30650=TRUE
30660DEFFNscarry1_:msubcarry_$="No":PROCmsubcarry:=TRUE
30670DEFFNscarry2_:msubcarry_$="All":PROCmsubcarry:=TRUE
30680DEFFNscarry3_:msubcarry_$="Ran":PROCmsubcarry:=TRUE
30720DEFFNMsubgo_:PROCGetTitles:PROCTsub_:PROCwhatsubs:PROCsaddup:started_%=TRUE:PROCusI(Msub_%,"Msubgo"):SYS"Hourglass_Off":last_=3:quit_=FALSE:Clue_$="Msub":=FNsums
30770DEFPROCTsub_:IFNOTmsub_(3)ANDNOTmsub_(4)THENst_(1)=FALSE:PROCusI(Msub_%,"st1"):st_(2)=FALSE:PROCusI(Msub_%,"st2"):st_(3)=FALSE:PROCusI(Msub_%,"st3")
30780IFNOTmsub_(5)ANDNOTmsub_(6)THENst_(4)=FALSE:PROCusI(Msub_%,"st4"):st_(5)=FALSE:PROCusI(Msub_%,"st5"):st_(6)=FALSE:PROCusI(Msub_%,"st6")
30790ENDPROC
30800DEFPROCwhatsubs:SYS"Hourglass_On":thou_=0:hun_=0:IFst_(1)hun_=hun_+1:hun_$(hun_)="�"
30830IFst_(2)hun_=hun_+1:hun_$(hun_)="m"
30840IFst_(3)hun_=hun_+1:hun_$(hun_)="cm"
30850IFst_(4)thou_=thou_+1:thou_$(thou_)="kg"
30860IFst_(5)thou_=thou_+1:thou_$(thou_)="km"
30870IFst_(6)thou_=thou_+1:thou_$(thou_)="l"
30880got_%=0:FORr_=1TO6:IFmsub_(r_)=TRUEgot_%=got_%+1:addytype_(got_%)=r_:gc_%(got_%)=r_
30890NEXT:IFgot_%=1FORr_=1TO12:lineaddy_(r_)=addytype_(got_%):NEXT:ENDPROC
30910IFgot_%=6PROCtimes(got_%,12):FORr_=1TO12:lineaddy_(r_)=gc_%(finder_%(r_)):NEXT:SYS"Hourglass_Off":ENDPROC
30920needed_%=12DIVgot_%:REPEAT:FORr_=1TO12:finder_%(r_)=0:NEXT:flag_=TRUE:FORr_=1TO12:SYS"Hourglass_Percentage",r_/12*100:REPEAT:flig_=TRUE:ran_%=RND(got_%):IFr_>1ANDgc_%(ran_%)=lineaddy_(r_-1)flig_=FALSE
31020UNTILflig_=TRUE:lineaddy_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORt_=1TOgot_%:IFfinder_%(t_)<needed_% flag_=FALSE
31050NEXT:UNTILflag_=TRUE:SYS"Hourglass_Off":ENDPROC
31080DEFPROCsaddup:dummy_=RND(-TIME):FORt_=1TO12:a_(t_)=-1:b_(t_)=-1:NEXT:SYS"Hourglass_On":FORt_=1TO12:IFlineaddy_(t_)=1 ran_%=99:rin_%=9
31130IFlineaddy_(t_)=2 ran_%=999:rin_%=99
31140IFlineaddy_(t_)=3 ran_%=999:rin_%=99
31150IFlineaddy_(t_)=4 ran_%=9999:rin_%=999
31160IFlineaddy_(t_)=5 ran_%=9999:rin_%=999
31170IFlineaddy_(t_)=6 ran_%=99999:rin_%=9999
31180IFlineaddy_(t_)<3 top_$(t_)=""
31190IFlineaddy_(t_)=3ORlineaddy_(t_)=4THEN
31200IFhun_=0 top_$(t_)=""
31210IFhun_=1 top_$(t_)=hun_$(1)
31220IFhun_>1 top_=RND(hun_):top_$(t_)=hun_$(top_)
31230ENDIF:IFlineaddy_(t_)=5ORlineaddy_(t_)=6THEN
31250IFthou_=0 top_$(t_)=""
31260IFthou_=1 top_$(t_)=thou_$(1)
31270IFthou_>1 top_=RND(thou_):top_$(t_)=thou_$(top_)
31280ENDIF:SYS"Hourglass_Percentage",t_/12*100:REPEAT:flag_=0:REPEAT:a_=RND(ran_%):b_=RND(ran_%):UNTILa_MOD10<>0ANDb_MOD10<>0ANDa_>rin_%ANDb_>rin_%ANDa_>b_:IFmsubcarry_$="No"PROCnosubcarry
31360IFmsubcarry_$="All"PROCallsubcarry
31370IFt_>1THEN
31380FORe_=1TOt_-1:IFa_=a_(e_)ANDb_=b_(e_)flag_=1
31390NEXT
31400ENDIF:UNTILflag_=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_-b_:NEXT:SYS"Hourglass_Off":ENDPROC
31500DEFPROCMmul:Mmul_%=FNfWS("MetricMul"):IFmmul_(1)PROCsI(Mmul_%,"Mmul1")
31530IFmmul_(2)PROCsI(Mmul_%,"Mmul2")
31540IFmmul_(3)PROCsI(Mmul_%,"Mmul3")
31550IFmmul_(4)PROCsI(Mmul_%,"Mmul4")
31560IFmmul_(5)PROCsI(Mmul_%,"Mmul5")
31570IFmmul_(6)PROCsI(Mmul_%,"Mmul6")
31580IFmmt_(1)PROCsI(Mmul_%,"mmt1")
31590IFmmt_(2)PROCsI(Mmul_%,"mmt2")
31600IFmmt_(3)PROCsI(Mmul_%,"mmt3")
31610IFmmt_(4)PROCsI(Mmul_%,"mmt4")
31620IFmmt_(5)PROCsI(Mmul_%,"mmt5")
31630IFmmt_(6)PROCsI(Mmul_%,"mmt6")
31640IFMmult_(1)PROCsI(Mmul_%,"mmult1")
31660IFMmult_(2)PROCsI(Mmul_%,"mmult2")
31670IFMmult_(3)PROCsI(Mmul_%,"mmult3")
31680IFMmult_(4)PROCsI(Mmul_%,"mmult4")
31690IFMmult_(5)PROCsI(Mmul_%,"mmult5")
31700IFMmult_(6)PROCsI(Mmul_%,"mmult6")
31710IFMmult_(7)PROCsI(Mmul_%,"mmult7")
31720IFMmult_(8)PROCsI(Mmul_%,"mmult8")
31730IFMmult_(9)PROCsI(Mmul_%,"mmult9")
31740ENDPROC
31780DEFFNMmul_:c_=0:FORh_=1TO6:IFmmul_(h_)c_=c_+1
31790NEXT:=c_
31800DEFFNMmul1_:IFmmul_(1)ANDFNMmul_=1 mmul_(1)=TRUE:PROCsI(Mmul_%,"Mmul1"):=TRUE
31810IFmmul_(1)mmul_(1)=FALSEELSEmmul_(1)=TRUE
31820=TRUE
31830DEFFNMmul2_:IFmmul_(2)ANDFNMmul_=1 mmul_(2)=TRUE:PROCsI(Mmul_%,"Mmul2"):=TRUE
31840IFmmul_(2)mmul_(2)=FALSEELSEmmul_(2)=TRUE
31850=TRUE
31860DEFFNMmul3_:IFmmul_(3)ANDFNMmul_=1 mmul_(3)=TRUE:PROCsI(Mmul_%,"Mmul3"):=TRUE
31870IFmmul_(3)mmul_(3)=FALSEELSEmmul_(3)=TRUE
31880=TRUE
31890DEFFNMmul4_:IFmmul_(4)ANDFNMmul_=1 mmul_(4)=TRUE:PROCsI(Mmul_%,"Mmul4"):=TRUE
31900IFmmul_(4)mmul_(4)=FALSEELSEmmul_(4)=TRUE
31910=TRUE
31920DEFFNMmul5_:IFmmul_(5)ANDFNMmul_=1 mmul_(5)=TRUE:PROCsI(Mmul_%,"Mmul5"):=TRUE
31930IFmmul_(5)mmul_(5)=FALSEELSEmmul_(5)=TRUE
31940=TRUE
31950DEFFNMmul6_:IFmmul_(6)ANDFNMmul_=1 mmul_(6)=TRUE:PROCsI(Mmul_%,"Mmul6"):=TRUE
31960IFmmul_(6)mmul_(6)=FALSEELSEmmul_(6)=TRUE
31970=TRUE
31980DEFFNmmt1_:IFmmt_(1)mmt_(1)=FALSEELSEmmt_(1)=TRUE
31990=TRUE
32000DEFFNmmt2_:IFmmt_(2)mmt_(2)=FALSEELSEmmt_(2)=TRUE
32010=TRUE
32020DEFFNmmt3_:IFmmt_(3)mmt_(3)=FALSEELSEmmt_(3)=TRUE
32030=TRUE
32040DEFFNmmt4_:IFmmt_(4)mmt_(4)=FALSEELSEmmt_(4)=TRUE
32050=TRUE
32060DEFFNmmt5_:IFmmt_(5)mmt_(5)=FALSEELSEmmt_(5)=TRUE
32070=TRUE
32080DEFFNmmt6_:IFmmt_(6)mmt_(6)=FALSEELSEmmt_(6)=TRUE
32090=TRUE
32100DEFFNMmult_:c_=0:FORh_=1TO9:IFMmult_(h_)c_=c_+1
32110NEXT:=c_
32120DEFFNmmult1_:IFMmult_(1)ANDFNMmult_=1 Mmult_(1)=TRUE:PROCsI(Mmul_%,"mmult1"):=FALSE
32130IFMmult_(1)Mmult_(1)=FALSEELSEMmult_(1)=TRUE
32140=TRUE
32150DEFFNmmult2_:IFMmult_(2)ANDFNMmult_=1 Mmult_(2)=TRUE:PROCsI(Mmul_%,"mmult2"):=FALSE
32160IFMmult_(2)Mmult_(2)=FALSEELSEMmult_(2)=TRUE
32170=TRUE
32180DEFFNmmult3_:IFMmult_(3)ANDFNMmult_=1 Mmult_(3)=TRUE:PROCsI(Mmul_%,"mmult3"):=FALSE
32190IFMmult_(3)Mmult_(3)=FALSEELSEMmult_(3)=TRUE
32200=TRUE
32210DEFFNmmult4_:IFMmult_(4)ANDFNMmult_=1 Mmult_(4)=TRUE:PROCsI(Mmul_%,"mmult4"):=FALSE
32220IFMmult_(4)Mmult_(4)=FALSEELSEMmult_(4)=TRUE
32230=TRUE
32240DEFFNmmult5_:IFMmult_(5)ANDFNMmult_=1 Mmult_(5)=TRUE:PROCsI(Mmul_%,"mmult5"):=FALSE
32250IFMmult_(5)Mmult_(5)=FALSEELSEMmult_(5)=TRUE
32260=TRUE
32270DEFFNmmult6_:IFMmult_(6)ANDFNMmult_=1 Mmult_(6)=TRUE:PROCsI(Mmul_%,"mmult6"):=FALSE
32280IFMmult_(6)Mmult_(6)=FALSEELSEMmult_(6)=TRUE
32290=TRUE
32300DEFFNmmult7_:IFMmult_(7)ANDFNMmult_=1 Mmult_(7)=TRUE:PROCsI(Mmul_%,"mmult7"):=FALSE
32310IFMmult_(7)Mmult_(7)=FALSEELSEMmult_(7)=TRUE
32320=TRUE
32330DEFFNmmult8_:IFMmult_(8)ANDFNMmult_=1 Mmult_(8)=TRUE:PROCsI(Mmul_%,"mmult8"):=FALSE
32340IFMmult_(8)Mmult_(8)=FALSEELSEMmult_(8)=TRUE
32350=TRUE
32360DEFFNmmult9_:IFMmult_(9)ANDFNMmult_=1 Mmult_(9)=TRUE:PROCsI(Mmul_%,"mmult9"):=FALSE
32370IFMmult_(9)Mmult_(9)=FALSEELSEMmult_(9)=TRUE
32380=TRUE
32420DEFFNMmulgo_:PROCGetTitles:flag_=TRUE:dummy_=RND(-TIME):PROCMMmul_:get_%=0:FORr_%=1TO9:IFMmult_(r_%)=TRUEget_%=get_%+1
32440NEXT:IFget_%=0 flag_=FALSE:complain_$="Select a multiplicand"
32450got_%=0:FORr_=1TO6:IFmmul_(r_)=TRUEgot_%=got_%+1:addytype_(got_%)=r_
32460NEXT:IFgot_%=0 flag_=FALSE:complain_$="Select a type"
32470IFflag_=FALSEV_$=FNalert(complain_$,"","OK","","",0):PROCusI(Mmul_%,"Mmulgo"):=FALSE
32480PROCwhatMmult:PROCwhatMmults:PROCMmultup:started_%=TRUE:PROCusI(Mmul_%,"Mmulgo"):SYS"Hourglass_Off":last_=3:quit_=FALSE:Clue_$="Mmul":sign_$="x":=FNsums
32530DEFPROCMMmul_:IFNOTmmul_(3)ANDNOTmmul_(4)THENmmt_(1)=FALSE:PROCusI(Mmul_%,"mmt1"):mmt_(2)=FALSE:PROCusI(Mmul_%,"mmt2"):mmt_(3)=FALSE:PROCusI(Mmul_%,"mmt3")
32540IFNOTmmul_(5)ANDNOTmmul_(6)THENmmt_(4)=FALSE:PROCusI(Mmul_%,"mmt4"):mmt_(5)=FALSE:PROCusI(Mmul_%,"mmt5"):mmt_(6)=FALSE:PROCusI(Mmul_%,"mmt6")
32550ENDPROC
32560DEFPROCwhatMmult:SYS"Hourglass_On":get_%=0:FORr_%=1TO9:IFMmult_(r_%)=TRUEget_%=get_%+1:gc_%(get_%)=r_%
32580NEXT:IFget_%=1FORtr_%=1TO12:Nb_%(tr_%)=VAL(Mmult_$(gc_%(1))):NEXT:SYS"Hourglass_Off":ENDPROC
32600needed_%=12DIVget_%:FORr_=1TO12:gc_%(r_)=0:NEXT:got_%=0:FORr_%=1TO9:IFMmult_(r_%)=TRUETHENgot_%=got_%+1:gc_%(got_%)=r_%
32630NEXT:REPEAT:flag_=TRUE:FORr_=1TO12:finder_%(r_)=0:NEXT:FORr_=1TO12:SYS"Hourglass_Percentage",r_/12*100:ran_%=RND(got_%):Nb_%(r_)=VAL(Mmult_$(gc_%(ran_%))):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORt_=1TOgot_%:IFfinder_%(t_)<needed_% flag_=FALSE
32720NEXT:UNTILflag_=TRUE:SYS"Hourglass_Off":ENDPROC
32740DEFPROCwhatMmults:SYS"Hourglass_On":thou_=0:hun_=0:IFmmt_(1)=TRUEhun_=hun_+1:hun_$(hun_)="�"
32770IFmmt_(2)=TRUEhun_=hun_+1:hun_$(hun_)="m"
32780IFmmt_(3)=TRUEhun_=hun_+1:hun_$(hun_)="cm"
32790IFmmt_(4)=TRUEthou_=thou_+1:thou_$(thou_)="kg"
32800IFmmt_(5)=TRUEthou_=thou_+1:thou_$(thou_)="km"
32810IFmmt_(6)=TRUEthou_=thou_+1:thou_$(thou_)="l"
32820got_%=0:FORr_=1TO6:IFmmul_(r_)=TRUEgot_%=got_%+1:addytype_(got_%)=r_:gc_%(got_%)=r_
32830NEXT:IFgot_%=1FORr_=1TO12:lineaddy_(r_)=addytype_(got_%):NEXT:ENDPROC
32850IFgot_%=6PROCtimes(got_%,12):FORr_=1TO12:lineaddy_(r_)=gc_%(finder_%(r_)):NEXT:SYS"Hourglass_Off":ENDPROC
32860needed_%=12DIVgot_%:REPEAT:FORr_=1TO12:finder_%(r_)=0:NEXT:flag_=TRUE:FORr_=1TO12:SYS"Hourglass_Percentage",r_/12*100:REPEAT:flig_=TRUE:ran_%=RND(got_%):IFr_>1ANDgc_%(ran_%)=lineaddy_(r_-1)flig_=FALSE
32950UNTILflig_=TRUE:lineaddy_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORt_=1TOgot_%:IFfinder_%(t_)<needed_% flag_=FALSE
32990NEXT:UNTILflag_=TRUE:SYS"Hourglass_Off":ENDPROC
33020DEFPROCMmultup:dummy_=RND(-TIME):FORt_=1TO12:a_(t_)=-1:b_(t_)=-1:NEXT:SYS"Hourglass_On":FORt_=1TO12:IFlineaddy_(t_)=1 ran_%=99:rin_%=9
33070IFlineaddy_(t_)=2 ran_%=999:rin_%=99
33080IFlineaddy_(t_)=3 ran_%=999:rin_%=99
33090IFlineaddy_(t_)=4 ran_%=9999:rin_%=999
33100IFlineaddy_(t_)=5 ran_%=9999:rin_%=999
33110IFlineaddy_(t_)=6 ran_%=99999:rin_%=9999
33120IFlineaddy_(t_)<3 top_$(t_)=""
33140IFlineaddy_(t_)=3ORlineaddy_(t_)=4THEN
33150IFhun_=0 top_$(t_)=""
33160IFhun_=1 top_$(t_)=hun_$(1)
33170IFhun_>1 top_=RND(hun_):top_$(t_)=hun_$(top_)
33180ENDIF:IFlineaddy_(t_)=5ORlineaddy_(t_)=6THEN
33200IFthou_=0 top_$(t_)=""
33210IFthou_=1 top_$(t_)=thou_$(1)
33220IFthou_>1 top_=RND(thou_):top_$(t_)=thou_$(top_)
33230ENDIF:SYS"Hourglass_Percentage",t_/12*100:REPEAT:flag_=0:REPEAT:a_=RND(ran_%):b_=Nb_%(t_):UNTILa_>rin_%:IFt_>1THEN
33340FORe_=1TOt_-1:IFa_=a_(e_)ANDb_=b_(e_)flag_=1
33350NEXT
33360ENDIF:UNTILflag_=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:NEXT:SYS"Hourglass_Off":ENDPROC
33460DEFPROCMdiv:Mdiv_%=FNfWS("MetDiv"):IFmd_(1)PROCsI(Mdiv_%,"Md1")
33480IFmd_(2)PROCsI(Mdiv_%,"Md2")
33490IFmd_(3)PROCsI(Mdiv_%,"Md3")
33500IFmd_(4)PROCsI(Mdiv_%,"Md4")
33510IFmd_(5)PROCsI(Mdiv_%,"Md5")
33520IFmd_(6)PROCsI(Mdiv_%,"Md6")
33530IFmdt_(1)PROCsI(Mdiv_%,"mdt1")
33540IFmdt_(2)PROCsI(Mdiv_%,"mdt2")
33550IFmdt_(3)PROCsI(Mdiv_%,"mdt3")
33560IFmdt_(4)PROCsI(Mdiv_%,"mdt4")
33570IFmdt_(5)PROCsI(Mdiv_%,"mdt5")
33580IFmdt_(6)PROCsI(Mdiv_%,"mdt6")
33590IFMdiv_(1)PROCsI(Mdiv_%,"mdiv1")
33600IFMdiv_(2)PROCsI(Mdiv_%,"mdiv2")
33610IFMdiv_(3)PROCsI(Mdiv_%,"mdiv3")
33620IFMdiv_(4)PROCsI(Mdiv_%,"mdiv4")
33630IFMdiv_(5)PROCsI(Mdiv_%,"mdiv5")
33640IFMdiv_(6)PROCsI(Mdiv_%,"mdiv6")
33650IFMdiv_(7)PROCsI(Mdiv_%,"mdiv7")
33660IFMdiv_(8)PROCsI(Mdiv_%,"mdiv8")
33670IFMdiv_(9)PROCsI(Mdiv_%,"mdiv9")
33680ENDPROC
33710DEFFNMd_:c_=0:FORh_=1TO6:IFmd_(h_)c_=c_+1
33720NEXT:=c_
33730DEFFNMd1_:IFmd_(1)ANDFNMd_=1 md_(1)=TRUE:PROCsI(Mdiv_%,"Md1"):=TRUE
33740IFmd_(1)md_(1)=FALSEELSEmd_(1)=TRUE
33750=TRUE
33760DEFFNMd2_:IFmd_(2)ANDFNMd_=1 md_(2)=TRUE:PROCsI(Mdiv_%,"Md2"):=TRUE
33770IFmd_(2)md_(2)=FALSEELSEmd_(2)=TRUE
33780=TRUE
33790DEFFNMd3_:IFmd_(3)ANDFNMd_=1 md_(3)=TRUE:PROCsI(Mdiv_%,"Md3"):=TRUE
33800IFmd_(3)md_(3)=FALSEELSEmd_(3)=TRUE
33810=TRUE
33820DEFFNMd4_:IFmd_(4)ANDFNMd_=1 md_(4)=TRUE:PROCsI(Mdiv_%,"Md4"):=TRUE
33830IFmd_(4)md_(4)=FALSEELSEmd_(4)=TRUE
33840=TRUE
33850DEFFNMd5_:IFmd_(5)ANDFNMd_=1 md_(5)=TRUE:PROCsI(Mdiv_%,"Md5"):=TRUE
33860IFmd_(5)md_(5)=FALSEELSEmd_(5)=TRUE
33870=TRUE
33880DEFFNMd6_:IFmd_(6)ANDFNMd_=1 md_(6)=TRUE:PROCsI(Mdiv_%,"Md6"):=TRUE
33890IFmd_(6)md_(6)=FALSEELSEmd_(6)=TRUE
33900=TRUE
33910DEFFNmdt1_:IFmdt_(1)mdt_(1)=FALSE:PROCusI(Mdiv_%,"mdt1")ELSEmdt_(1)=TRUE:PROCsI(Mdiv_%,"mdt1")
33920=TRUE
33930DEFFNmdt2_:IFmdt_(2)mdt_(2)=FALSE:PROCusI(Mdiv_%,"mdt2")ELSEmdt_(2)=TRUE:PROCsI(Mdiv_%,"mdt2")
33940=TRUE
33950DEFFNmdt3_:IFmdt_(3)mdt_(3)=FALSE:PROCusI(Mdiv_%,"mdt3")ELSEmdt_(3)=TRUE:PROCsI(Mdiv_%,"mdt3")
33960=TRUE
33970DEFFNmdt4_:IFmdt_(4)mdt_(4)=FALSE:PROCusI(Mdiv_%,"mdt4")ELSEmdt_(4)=TRUE:PROCsI(Mdiv_%,"mdt4")
33980=TRUE
33990DEFFNmdt5_:IFmdt_(5)mdt_(5)=FALSE:PROCusI(Mdiv_%,"mdt5")ELSEmdt_(5)=TRUE:PROCsI(Mdiv_%,"mdt5")
34000=TRUE
34010DEFFNmdt6_:IFmdt_(6)mdt_(6)=FALSE:PROCusI(Mdiv_%,"mdt6")ELSEmdt_(6)=TRUE:PROCsI(Mdiv_%,"mdt6")
34020=TRUE
34030DEFFNMdiv_:c_=0:FORh_=1TO9:IFMdiv_(h_)c_=c_+1
34040NEXT:=c_
34050DEFFNmdiv1_:IFMdiv_(1)ANDFNMdiv_=1 Mdiv_(1)=TRUE:PROCsI(Mdiv_%,"mdiv1"):=FALSE
34060IFMdiv_(1)Mdiv_(1)=FALSEELSEMdiv_(1)=TRUE
34070=TRUE
34080DEFFNmdiv2_:IFMdiv_(2)ANDFNMdiv_=1 Mdiv_(2)=TRUE:PROCsI(Mdiv_%,"mdiv2"):=FALSE
34090IFMdiv_(2)Mdiv_(2)=FALSEELSEMdiv_(2)=TRUE
34100=TRUE
34110DEFFNmdiv3_:IFMdiv_(3)ANDFNMdiv_=1 Mdiv_(3)=TRUE:PROCsI(Mdiv_%,"mdiv3"):=FALSE
34120IFMdiv_(3)Mdiv_(3)=FALSEELSEMdiv_(3)=TRUE
34130=TRUE
34140DEFFNmdiv4_:IFMdiv_(4)ANDFNMdiv_=1 Mdiv_(4)=TRUE:PROCsI(Mdiv_%,"mdiv4"):=FALSE
34150IFMdiv_(4)Mdiv_(4)=FALSEELSEMdiv_(4)=TRUE
34160=TRUE
34170DEFFNmdiv5_:IFMdiv_(5)ANDFNMdiv_=1 Mdiv_(5)=TRUE:PROCsI(Mdiv_%,"mdiv5"):=FALSE
34180IFMdiv_(5)Mdiv_(5)=FALSEELSEMdiv_(5)=TRUE
34190=TRUE
34200DEFFNmdiv6_:IFMdiv_(6)ANDFNMdiv_=1 Mdiv_(6)=TRUE:PROCsI(Mdiv_%,"mdiv6"):=FALSE
34210IFMdiv_(6)Mdiv_(6)=FALSEELSEMdiv_(6)=TRUE
34220=TRUE
34230DEFFNmdiv7_:IFMdiv_(7)ANDFNMdiv_=1 Mdiv_(7)=TRUE:PROCsI(Mdiv_%,"mdiv7"):=FALSE
34240IFMdiv_(7)Mdiv_(7)=FALSEELSEMdiv_(7)=TRUE
34250=TRUE
34260DEFFNmdiv8_:IFMdiv_(8)ANDFNMdiv_=1 Mdiv_(8)=TRUE:PROCsI(Mdiv_%,"mdiv8"):=FALSE
34270IFMdiv_(8)Mdiv_(8)=FALSEELSEMdiv_(8)=TRUE
34280=TRUE
34290DEFFNmdiv9_:IFMdiv_(9)ANDFNMdiv_=1 Mdiv_(9)=TRUE:PROCsI(Mdiv_%,"mdiv9"):=FALSE
34300IFMdiv_(9)Mdiv_(9)=FALSEELSEMdiv_(9)=TRUE
34310=TRUE
34330DEFFNMetDivgo_:PROCGetTitles:flag_=TRUE:PROCDmadd_:dummy_=RND(-TIME):PROCwhatMdivline:PROCwhatMdivy:PROCcalcMdivy:Clue_$="MDiv":last_=3:quit_=FALSE:started_%=TRUE:SYS"Hourglass_Off":PROCusI(Mdiv_%,"MetDivgo"):=FNsums
34340DEFPROCDmadd_:IFNOTmd_(3)ANDNOTmd_(4)THENmdt_(1)=FALSE:PROCusI(Mdiv_%,"mdt1"):mdt_(2)=FALSE:PROCusI(Mdiv_%,"mdt2"):mdt_(3)=FALSE:PROCusI(Mdiv_%,"mdt3")
34350IFNOTmd_(5)ANDNOTmd_(6)THENmdt_(4)=FALSE:PROCusI(Mdiv_%,"mdt4"):mdt_(5)=FALSE:PROCusI(Mdiv_%,"mdt5"):mdt_(6)=FALSE:PROCusI(Mdiv_%,"mdt6")
34360ENDPROC
34370DEFPROCi_:x_=OPENIN"<MathsSys$Path>Resources.Sprites":INPUT#x_,code_$,A$:CLOSE#x_:X$="":FORr=1TOLEN(code_$):X$=X$+CHR$((ASC(MID$(code_$,r,1)))-140):NEXT:code_$=X$:Z$="":FORr=1TOLEN(A$):Z$=Z$+CHR$((ASC(MID$(A$,r,1)))-141):NEXT:A$=Z$:Register_$=A$:Info$(1)=code_$
34490Info$(2)=Register_$:ENDPROC
34520DEFPROCwhatMdivy:thou_=0:hun_=0:IFmdt_(1)=TRUEhun_=hun_+1:hun_$(hun_)="�"
34550IFmdt_(2)=TRUEhun_=hun_+1:hun_$(hun_)="m"
34560IFmdt_(3)=TRUEhun_=hun_+1:hun_$(hun_)="cm"
34570IFmdt_(4)=TRUEthou_=thou_+1:thou_$(thou_)="kg"
34580IFmdt_(5)=TRUEthou_=thou_+1:thou_$(thou_)="km"
34590IFmdt_(6)=TRUEthou_=thou_+1:thou_$(thou_)="l"
34600get_%=0:FORr_%=1TO9:IFMdiv_(r_%)=TRUEget_%=get_%+1
34620NEXT:IFget_%=1THEN
34640FORr_%=1TO9:IFMdiv_(r_%)=TRUETHENFORtr_%=1TO12:Nb_%(tr_%)=VAL(Mdiv_$(r_%)):NEXT
34660NEXT:ENDPROC
34680ENDIF:needed_%=12DIVget_%:FORr_=1TO12:gc_%(r_)=0:NEXT:got_%=0:FORr_%=1TO9:IFMdiv_(r_%)=TRUETHENgot_%=got_%+1:gc_%(got_%)=r_%
34730NEXT:REPEAT:FORr_=1TO12:finder_%(r_)=0:NEXT:flag_=TRUE:FORr_=1TO12:REPEAT:flig_=TRUE:ran_%=RND(got_%):Nb_%=VAL(Mdiv_$(gc_%(ran_%))):IFr_>1THEN
34790IFNb_%=Nb_%(r_-1)flig_=FALSE
34800ENDIF:UNTILflig_=TRUE:Nb_%(r_)=VAL(Mdiv_$(gc_%(ran_%))):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORt_=1TOgot_%:IFfinder_%(t_)<needed_% flag_=FALSE
34850NEXT:UNTILflag_=TRUE:SYS"Hourglass_Off":ENDPROC
34870DEFPROCwhatMdivline:got_%=0:FORr_=1TO6:IFmd_(r_)=TRUEgot_%=got_%+1:gc_%(got_%)=r_
34890NEXT:IFgot_%=1THENFORr_=1TO12:linedvy_(r_)=gc_%(got_%):NEXT:ENDPROC
34910needed_%=12DIVgot_%:REPEAT:flag_=TRUE:FORr_=1TO12:REPEAT:flig_=TRUE:ran_%=RND(got_%):linedvy_=gc_%(ran_%):IFr_>1THEN
34960IFlinedvy_=linedvy_(r_-1)flig_=FALSE
34970ENDIF:UNTILflig_=TRUE:linedvy_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:NEXT:FORtr_=1TOgot_%:IFfinder_%(tr_)<needed_% flag_=FALSE
35020NEXT:UNTILflag_=TRUE:ENDPROC
35050DEFPROCcalcMdivy:many_=12:zer_=0:FORr_=1TO6:IFmd_(r_)=TRUEzer_=zer_+1
35080NEXT:trub_=TRUE:zer_=0:FORr_=1TO9:IFMdiv_(r_)=TRUEzer_=zer_+1
35100NEXT:IFzer_=1ANDMdiv_(8)=TRUEORzer_=1ANDMdiv_(9)=TRUEORzer_=1ANDMdiv_(7)=TRUEtrub_=FALSE
35120IFtrub_=FALSEANDzer_=1ANDmd_(1)=TRUEmany_=9
35130SYS"Hourglass_On":FORt_=1TOmany_:IFlinedvy_(t_)=1 ran_%=99:l_=9
35160IFlinedvy_(t_)=2 ran_%=999:l_=99
35170IFlinedvy_(t_)=3 ran_%=999:l_=99
35180IFlinedvy_(t_)=4 ran_%=9999:l_=999
35190IFlinedvy_(t_)=5 ran_%=9999:l_=999
35200IFlinedvy_(t_)=6 ran_%=99999:l_=9999
35210IFlinedvy_(t_)<3 top_$(t_)=""
35230IFlinedvy_(t_)=3ORlinedvy_(t_)=4THEN
35240IFhun_=0 top_$(t_)=""
35250IFhun_=1 top_$(t_)=hun_$(1)
35260IFhun_>1 top_=RND(hun_):top_$(t_)=hun_$(top_)
35270ENDIF:IFlinedvy_(t_)=5ORlinedvy_(t_)=6THEN
35290IFthou_=0 top_$(t_)=""
35300IFthou_=1 top_$(t_)=thou_$(1)
35310IFthou_>1 top_=RND(thou_):top_$(t_)=thou_$(top_)
35320ENDIF:SYS"Hourglass_Percentage",t_/12*100:REPEAT:flag_=0:REPEAT:a_=RND(ran_%):b_=Nb_%(t_):UNTILa_MODb_=0ANDa_>l_:IFt_>1THEN
35400FORe_=1TOt_-1:IFa_=a_(e_)ANDb_=b_(e_)flag_=1
35410NEXT
35420ENDIF:UNTILflag_=0:a_(t_)=a_:b_(t_)=b_:IFa_MODb_<>0 c_(t_)=a_DIVb_:rem_(t_)=a_MODb_ELSEc_(t_)=a_/b_:rem_(t_)=0
35460NEXT:started_%=TRUE:SYS"Hourglass_Off":ENDPROC
35500DEFFNTitle_:Title_$=$!Title_%:=TRUE
35510DEFFNMaintitle_:Maintitle_$=$!Maintitle_%:=TRUE
35530DEFFNzero(z_$):FORz_=1TOLEN(z_$):IFMID$(z_$,z_,1)="0"THENMID$(z_$,z_,1)="O"
35560NEXT:=z_$
35580DEFFNCreate_:PROCusI(GrafIt_%,"Create"):MOUSETO1000,530:v_%=FNwindow("Demo"):=TRUE:V_$=FNalert("Contact CCS for complete version of Maths Card","","OK","","",0):PROCusI(GrafIt_%,"Create"):MOUSETO1000,630:=TRUE
35680DEFPROCGetTitles:ENDPROC
35740DEFFNGrafIt_(X%,Y%):IFClue_$="CardsAdd"PROCType1cards
35790IFClue_$="CardsTake"PROCType1cards
35800IFClue_$="CardsTimes"PROCType1cards
35810IFClue_$="CardsDiv"PROCType1cards
35820IFClue_$="Add1a"ORClue_$="Sub1a"PROCAddA
35830IFClue_$="Multy"PROCAddA
35840IFClue_$="Divy"PROCDivA
35850IFClue_$="Sad"PROCF1
35860IFClue_$="Wad"PROCF1
35870IFClue_$="FrMD"PROCF1
35880IFClue_$="Magic"PROCMag1
35890IFLEFT$(Clue_$,4)="Long"PROCLongMul2
35900IFClue_$="LDivy"PROCLDivA
35910IFClue_$="Madd"ORClue_$="Msub"PROCmadd
35920IFClue_$="Mmul"PROCMmult_
35930IFClue_$="MDiv"PROCMDiv
35940=TRUE
35960DEFPROCType1cards:down_=Y%-150:left_=X%+120:long_=150:deep_=50:FORline_%=1TO10:MOVEleft_-20-LEN(STR$(line_%))*16,down_:PRINTFNzero(STR$(line_%))+")":left_=left_+20
36010IFlinetype_(line_%)=1PROCwriteline1ELSEIFlinetype_(line_%)=2PROCwriteline2ELSEIFlinetype_(line_%)=3PROCwriteline3
36020down_=down_-deep_-20:left_=X%+120:NEXT:ENDPROC
36050DEFPROCwriteline1:PROCblanks(Na_%(line_%)):left_=left_+long_:PROCqualword:left_=left_+long_:IFquit_=TRUEPROCrects("x")ELSEPROCrects(FNzero(STR$(Nb_%(line_%))))
36090left_=left_+long_:PROCequalword:left_=left_+long_:IFquit_=TRUEPROCrects("x")ELSEPROCrects(FNzero(STR$(Nc_%(line_%))))
36120left_=left_+long_:ENDPROC
36140DEFPROCwriteline2:IFquit_=TRUEPROCrects("x")ELSEPROCrects(FNzero(STR$(Na_%(line_%))))
36160left_=left_+long_:PROCqualword:left_=left_+long_:PROCblanks(Nb_%(line_%)):left_=left_+long_:PROCequalword:left_=left_+long_:IFquit_=TRUEPROCrects("x")ELSEPROCrects(FNzero(STR$(Nc_%(line_%))))
36220left_=left_+long_:ENDPROC
36250DEFPROCwriteline3:IFquit_=TRUEPROCrects("x")ELSEPROCrects(FNzero(STR$(Na_%(line_%))))
36270left_=left_+long_:PROCqualword:left_=left_+long_:IFquit_=TRUEPROCrects("x")ELSEPROCrects(FNzero(STR$(Nb_%(line_%))))
36300left_=left_+long_:PROCequalword:left_=left_+long_:PROCblanks(Nc_%(line_%)):left_=left_+long_:ENDPROC
36350DEFPROCblanks(num_):num_$=FNzero(STR$(num_)):remleft_=left_:remdown_=down_:left_=left_+long_/4:down_=down_+10:MOVEleft_,down_:DRAWleft_+long_/2,down_:DRAWleft_+long_/2,down_-deep_:DRAWleft_,down_-deep_:DRAWleft_,down_:IFAnswer_%=TRUETHEN
36400IFquit_=TRUEMOVEleft_+long_/4-LEN("x")/2*16,down_-10:PRINT"x"ELSEMOVEleft_+long_/4-LEN(num_$)/2*16,down_-10:PRINTnum_$
36410ENDIF:left_=remleft_:down_=remdown_:ENDPROC
36450DEFPROCrects(word_$):MOVEleft_+long_/2-LEN(word_$)/2*16,down_:PRINTword_$:ENDPROC
36490DEFPROCqualword:PROCrects(act_$(line_%)):ENDPROC
36530DEFPROCequalword:PROCrects(equal_$(line_%)):ENDPROC
36570DEFPROCAddA:IFMID$(Clue_$,1,3)="Add" sign_$="+"
36590IFMID$(Clue_$,1,3)="Sub" sign_$="-"
36600IFMID$(Clue_$,1,3)="Mul" sign_$="x"
36610left_=X%+80:on_=270:end_=100:down_=Y%-90:r_=0:IFmany_=9FORq_=1TO3ELSEFORq_=1TO4
36640FORw_=1TO3:r_=r_+1:IFquit_=TRUEa_=0:b_=0:c_=0ELSEa_=a_(r_):b_=b_(r_):c_=c_(r_)
36660b_$=STR$(b_):c_$=STR$(c_):dunkleft_=left_:lon_=LEN(STR$(a_)):IFLEN(STR$(b_))>lon_ lon_=LEN(STR$(b_))
36700IFLEN(STR$(c_))>lon_ lon_=LEN(STR$(c_))
36710left_=left_+lon_/2*16:IFr_<>10MOVEleft_+end_-LEN(STR$(a_))*16-40-LEN(STR$(r_))*16,down_-100:PRINTSTR$(r_);")"
36730IFr_=10MOVEleft_+end_-LEN(STR$(a_))*16-40-LEN(STR$(r_))*16,down_-100:PRINT"1O)"
36740PROCsplit_(a_,down_-100):PROCsplit_(b_,down_-140):sl_=0:IFLEN(b_$)>3 sl_=sl_+gap_:IFLEN(b_$)>7 sl_=sl_+gap_
36760IFSign_%=FALSEMOVEleft_+end_-LEN(b_$)*16-sl_-20,down_-140:PRINTsign_$
36770IFSign_%=TRUEMOVEleft_+end_+10,down_-100:PRINTsign_$
36800anslen_=LEN(STR$(c_)):IFanslen_<LEN(a_$)anslen_=LEN(a_$)
36820IFanslen_<LEN(b_$)anslen_=LEN(b_$)
36830IFAnswer_%=TRUEPROCsplit_(c_,down_-180)
36840MOVEleft_+end_-anslen_*16-5,down_-172:DRAWleft_+end_-anslen_*16+anslen_*16+gap_,down_-172:IFSecAns_%=TRUEMOVEleft_+end_-anslen_*16-5,down_-212:DRAWleft_+end_-anslen_*16+anslen_*16+gap_,down_-212
36860left_=dunkleft_:left_=left_+on_:NEXT:left_=X%+80:down_=down_-180:NEXT:ENDPROC
36890DEFPROCDivA:left_=X%+30:on_=280:end_=100:begleft_=left_:down_=Y%-120:r_=0:shift_=40:dshift_=150:SYS"Hourglass_On":IFmany_=12FORq_=1TO4ELSEFORq_=1TO3
36950FORw_=1TO3:r_=r_+1:SYS"Hourglass_Percentage",r_/12*100:a_=a_(r_):b_=b_(r_):c_=c_(r_):rem_=rem_(r_):lon_=LEN(STR$(a_)):dunkleft_=left_:left_=left_+lon_/2*16:b_$=FNzero(STR$(b_))
37020IFr_<>10MOVEleft_+end_-LEN(STR$(a_))*16-40-LEN(STR$(r_))*16+40,down_-100:PRINTSTR$(r_);")"
37030IFr_=10MOVEleft_+end_-LEN(STR$(a_))*16-40-LEN(STR$(r_))*16+40,down_-100:PRINT"1O)"
37040a_$=FNzero(STR$(a_)):rem_$=FNzero(STR$(rem_)):gap_=5:IFLEN(a_$)>3THEN
37080ra_$=MID$(a_$,LEN(a_$)-2,3):MOVEleft_+end_-LEN(ra_$)*16+shift_,down_-dshift_:PRINTra_$:la_$=MID$(a_$,1,LEN(a_$)-3):MOVEleft_+end_-LEN(ra_$)*16-LEN(la_$)*16-gap_+shift_,down_-dshift_:PRINTla_$:MOVEleft_+end_-LEN(ra_$)*16-LEN(la_$)*16-gap_+shift_-20,down_-dshift_
37150PRINT")":MOVEleft_+end_-LEN(ra_$)*16-LEN(la_$)*16-gap_-LEN(b_$)*16+16,down_-dshift_:PRINTb_$
37180ELSEMOVEleft_+end_-LEN(a_$)*16+shift_,down_-dshift_:PRINTa_$:MOVEleft_+end_-LEN(a_$)*16+shift_-20,down_-dshift_:PRINT")":MOVEleft_+end_-LEN(a_$)*16-gap_-LEN(b_$)*16+16,down_-dshift_:PRINTb_$
37240ENDIF:MOVEleft_+end_-LEN(a_$)*16-gap_+shift_-15,down_-dshift_+7:DRAWleft_+end_-LEN(a_$)*16-gap_+shift_-20+LEN(a_$)*16+gap_+20,down_-dshift_+7:anslen_=LEN(STR$(c_)):IFAnswer_%=TRUEPROCdvanswer
37300left_=dunkleft_:left_=left_+on_:NEXT:down_=down_-172:left_=begleft_:NEXT:SYS"Hourglass_Off":ENDPROC
37370DEFPROCdvanswer:c_$=FNzero(STR$(c_)):gap_=0:IFLEN(c_$)>3THEN
37400gap_=5:rc_$=MID$(c_$,LEN(c_$)-2,3):MOVEleft_+end_-LEN(rc_$)*16+shift_,down_-dshift_+40:PRINTrc_$:lc_$=MID$(c_$,1,LEN(c_$)-3):MOVEleft_+end_-LEN(rc_$)*16-LEN(lc_$)*16-gap_+shift_,down_-dshift_+40:PRINTlc_$
37470ELSEMOVEleft_+end_-LEN(c_$)*16+shift_,down_-dshift_+40:PRINTc_$
37490ENDIF:IFremmy_=1PROCrem
37510IFremmy_=2PROCdot
37520IFremmy_=3PROCfrac
37530ENDPROC
37550DEFPROCrem:IFrem_<>0MOVEleft_+end_+shift_+5,down_-dshift_+40:PRINT"r";rem_$
37560ENDPROC
37580DEFPROCfrac:IFrem_<>0THEN
37600rt_=rem_:rb_=b_:rt_$=STR$(rt_):rb_$=STR$(rb_):FORtr_=10TO2STEP-1:IFrt_MODtr_=0ANDrb_MODtr_=0 rt_=rt_/tr_:rb_=rb_/tr_
37640NEXT:rt_$=STR$(rt_):rb_$=STR$(rb_):MOVEleft_+end_+shift_+8,down_-dshift_+58:PRINTrt_$:MOVEleft_+end_+shift_+18,down_-dshift_+45:PRINT"/"rb_$
37690ENDIF:ENDPROC
37720DEFPROCdot:IFrem_<>0THEN
37740MOVEleft_+end_+shift_+3,down_-dshift_+50:PRINT".":MOVEleft_+end_+shift_+3+15,down_-dshift_+40:PRINTFNzero(cz_$(r_))
37770ENDIF:ENDPROC
37800DEFPROCLDivA:left_=X%+30:on_=280:end_=100:begleft_=left_:down_=Y%-120:r_=0:shift_=40:dshift_=150:SYS"Hourglass_On":FORqq_=1TO2:FORww_=1TO3:r_=r_+1:SYS"Hourglass_Percentage",r_/12*100:a_=a_(r_):b_=b_(r_):c_=c_(r_):rem_=rem_(r_)
37890a_$=FNzero(STR$(a_)):b_$=FNzero(STR$(b_)):c_$=FNzero(STR$(c_)):rem_$=FNzero(STR$(rem_)):lon_=LEN(STR$(a_)):dunkleft_=left_:left_=left_+lon_/2*16:MOVEleft_+end_-LEN(STR$(a_))*16-60-LEN(STR$(r_))*16+40,down_-80:PRINTSTR$(r_);")"
37940MOVEleft_+end_-LEN(a_$)*16,down_-dshift_:PRINTa_$:starthos_%=left_+end_-LEN(a_$)*16:drop_=40:MOVEleft_+end_-LEN(a_$)*16-15,down_-dshift_:PRINT")":MOVEleft_+end_-LEN(a_$)*16-20-LEN(b_$)*16,down_-dshift_:PRINTb_$:MOVEleft_+end_-LEN(a_$)*16-15,down_-dshift_+7
38000DRAWleft_+end_-LEN(a_$)*16+LEN(a_$)*16+15,down_-dshift_+7:IFAnswer_%=TRUEPROCldans
38020vert_%=down_-dshift_:left_=dunkleft_:left_=left_+on_:NEXT:down_=down_-300:left_=begleft_:NEXT:SYS"Hourglass_Off":ENDPROC
38120DEFPROCldans:MOVEleft_+end_-LEN(c_$)*16,down_-dshift_+40:PRINTc_$:IFrem_<>0THEN
38180IFremmy_=1THEN
38190MOVEleft_+end_-LEN(a_$)*16+LEN(a_$)*16+8,down_-dshift_+40:PRINT"r":MOVEleft_+end_-LEN(a_$)*16+LEN(a_$)*16+30,down_-dshift_+40:PRINTrem_$
38230ENDIF:IFremmy_=2THEN
38250MOVEleft_+end_-LEN(a_$)*16+LEN(a_$)*16+4,down_-dshift_+50:PRINT".":MOVEleft_+end_-LEN(a_$)*16+LEN(a_$)*16+20,down_-dshift_+40:PRINTFNzero(cz_$(r_))
38300ENDIF:IFremmy_=3THEN
38320rt_=rem_:rb_=b_:rt_$=STR$(rt_):rb_$=STR$(rb_):FORtr_=10TO2STEP-1:IFrt_MODtr_=0ANDrb_MODtr_=0 rt_=rt_/tr_:rb_=rb_/tr_
38360NEXT:rt_$=STR$(rt_):rb_$=STR$(rb_):MOVEleft_+end_-LEN(a_$)*16+LEN(a_$)*16+8,down_-dshift_+65:PRINTFNzero(rt_$):MOVEleft_+end_-LEN(a_$)*16+LEN(a_$)*16+LEN(rt_$)*16+20,down_-dshift_+40:PRINTFNzero(rb_$)
38420MOVEleft_+end_-LEN(a_$)*16+LEN(a_$)*16+LEN(rt_$)*16+5,down_-dshift_+50:PRINT"/"
38440ENDIF
38450ENDIF:ENDPROC
38470DEFPROCsumM:started_=FALSE:re_=0:q_=0:w_=1:final_$="":j_=0:REPEAT:PROCgetansS:UNTILj_=LEN(a_$):IFa_MODb_<>0ANDRIGHT$(c_$)<>"0"THEN
38540vert_%=vert_%-drop_:re_$=STR$(re_):hos_%=starthos_%+j_*16-LEN(re_$)*16:MOVEhos_%,vert_%:PRINTre_$
38580ENDIF:ENDPROC
38610DEFPROCgetansS:try_$="":re_$=STR$(re_):REPEAT:q_=q_+1:j_=j_+1:z_$=MID$(a_$,w_,q_):try_$=re_$+z_$:try_=VAL(try_$):IFtry_DIVb_<1 ans_=0
38680UNTILtry_DIVb_>0ORj_=LEN(a_$):ans_=try_DIVb_:re_=try_MODb_:IFstarted_=TRUETHEN
38710vert_%=vert_%-drop_:hos_%=starthos_%+j_*16-LEN(try_$)*16:MOVEhos_%,vert_%:PRINTtry_$
38740ENDIF:started_=TRUE:jog_=ans_*b_:jog_$=STR$(jog_):vert_%=vert_%-drop_:hos_%=starthos_%+j_*16-LEN(jog_$)*16:IFj_=LEN(a_$)ANDRIGHT$(c_$)="0"THEN
38800ed_=1
38810ELSE:MOVEhos_%,vert_%:PRINTjog_$:hos_%=starthos_%+j_*16-LEN(try_$)*16:MOVEhos_%,vert_%-30:DRAWhos_%+LEN(try_$)*16,vert_%-30
38850ENDIF:w_=j_+1:q_=0:ENDPROC
38890DEFPROCF1:IFlast_=1ENDPROC
38900mdivartleft_=X%+0:left_=mdivartleft_:on_=300:end_=100:down_=Y%-90:bot_=120:r_=0:FORq_=1TO4:FORw_=1TO3:r_=r_+1:IFlast_>r_-1THEN
38940dunkleft_=left_:a_$=STR$(FU1_(r_)):b_$=STR$(FD1_(r_)):c_$=STR$(FU2_(r_)):d_$=STR$(FD2_(r_)):e_$=STR$(FU3_(r_)):f_$=STR$(FD3_(r_)):spotn_=50:MOVEleft_+spotn_-LEN(STR$(r_))*16,down_-50:PRINTFNzero(STR$(r_));")":spota_=70:tdown_=down_:down_=down_-30
39010IFWhole_(r_,0)<>0 whole_$=STR$(Whole_(r_,0)):MOVEleft_+spota_-30-LEN(whole_$)/2*16,down_-100:PRINTFNzero(whole_$)
39020MOVEleft_+spota_-LEN(b_$)/2*16,down_-bot_:PRINTFNzero(b_$):MOVEleft_+spota_-LEN(b_$)/2*16,down_-bot_+8:DRAWleft_+spota_+LEN(b_$)/2*16,down_-bot_+8:MOVEleft_+spota_-LEN(a_$)/2*16,down_-bot_+40:PRINTFNzero(a_$):IFWhole_(r_,1)<>0 spotp_=100ELSEspotp_=110
39080MOVEleft_+spotp_,down_-100:PRINTFracsign_$(r_):spotb_=160:IFWhole_(r_,1)<>0 whole_$=STR$(Whole_(r_,1)):MOVEleft_+spotb_-30-LEN(whole_$)/2*16,down_-100:PRINTFNzero(whole_$)
39130spotb_=160:MOVEleft_+spotb_-LEN(d_$)/2*16,down_-bot_:PRINTFNzero(d_$):MOVEleft_+spotb_-LEN(d_$)/2*16,down_-bot_+8:DRAWleft_+spotb_+LEN(d_$)/2*16,down_-bot_+8:MOVEleft_+spotb_-LEN(c_$)/2*16,down_-bot_+40:PRINTFNzero(c_$)
39160spote_=190:MOVEleft_+spote_,down_-100:PRINT"=":IFAnswer_%=TRUETHEN
39180e_=VAL(e_$):f_=VAL(f_$):IFWhole_(r_,2)<>0ORWhole_(r_,2)=0ANDe_=0THEN
39200whole_$=STR$(Whole_(r_,2)):spotc_=230:MOVEleft_+spotc_-LEN(whole_$)/2*16,down_-100:PRINTFNzero(whole_$):ona_=40:IFe_<>0 spotc_=220+LEN(whole_$)/2*16:MOVEleft_+ona_+spotc_-LEN(f_$)/2*16,down_-bot_:PRINTFNzero(f_$)
39240IFe_<>0MOVEleft_+ona_+spotc_-LEN(f_$)/2*16,down_-bot_+8:DRAWleft_+ona_+spotc_+LEN(f_$)/2*16,down_-bot_+8
39250IFe_<>0MOVEleft_+ona_+spotc_-LEN(e_$)/2*16,down_-bot_+40:PRINTFNzero(e_$)
39260ELSE:spotc_=240:MOVEleft_+spotc_-LEN(f_$)/2*16,down_-bot_:PRINTFNzero(f_$):MOVEleft_+spotc_-LEN(f_$)/2*16,down_-bot_+8:DRAWleft_+spotc_+LEN(f_$)/2*16,down_-bot_+8:MOVEleft_+spotc_-LEN(e_$)/2*16,down_-bot_+40:PRINTFNzero(e_$)
39310ENDIF
39320ENDIF
39330ENDIF:left_=dunkleft_:left_=left_+on_:down_=tdown_:NEXT:left_=mdivartleft_:down_=down_-180:NEXT:ENDPROC
39450DEFPROCWF1:IFquit_=TRUETHEN
39470FORt_=1TO12:FU1_(t_)=0:FU2_(t_)=0:FD1_(t_)=0:FD2_(t_)=0:FU3_(t_)=0:FU3_(t_)=0:Whole_(t_,0)=0:Whole_(t_,1)=0:Whole_(t_,2)=0:NEXT
39500ENDIF:mdivartleft_=X%+0:left_=mdivartleft_:on_=300:end_=100:down_=Y%-90:bot_=120:r_=0:FORq_=1TO4:FORw_=1TO3:r_=r_+1:dunkleft_=left_:a_$=STR$(FU1_(r_)):b_$=STR$(FD1_(r_)):c_$=STR$(FU2_(r_)):d_$=STR$(FD2_(r_)):e_$=STR$(FU3_(r_)):f_$=STR$(FD3_(r_))
39600spotn_=50:MOVEleft_+spotn_-LEN(STR$(r_))*16,down_-50:PRINTFNzero(STR$(r_));")":spota_=70:tdown_=down_:down_=down_-30:IFWhole_(r_,0)<>0 whole_$=STR$(Whole_(r_,0)):MOVEleft_+spota_-30-LEN(whole_$)/2*16,down_-100:PRINTFNzero(whole_$)
39640MOVEleft_+spota_-LEN(b_$)/2*16,down_-bot_:PRINTFNzero(b_$):MOVEleft_+spota_-LEN(b_$)/2*16,down_-bot_+8:DRAWleft_+spota_+LEN(b_$)/2*16,down_-bot_+8:MOVEleft_+spota_-LEN(a_$)/2*16,down_-bot_+40:PRINTFNzero(a_$):IFWhole_(r_,1)<>0 spotp_=100ELSEspotp_=105
39700MOVEleft_+spotp_,down_-100:PRINTFracsign_$(r_):spotb_=160:IFWhole_(r_,1)<>0 whole_$=STR$(Whole_(r_,1)):MOVEleft_+spotb_-30-LEN(whole_$)/2*16,down_-100:PRINTFNzero(whole_$)
39740spotb_=160:MOVEleft_+spotb_-LEN(d_$)/2*16,down_-bot_:PRINTFNzero(d_$):MOVEleft_+spotb_-LEN(d_$)/2*16,down_-bot_+8:DRAWleft_+spotb_+LEN(d_$)/2*16,down_-bot_+8:MOVEleft_+spotb_-LEN(c_$)/2*16,down_-bot_+40:PRINTFNzero(c_$):IFAnswer_%=TRUETHEN
39780spote_=190:MOVEleft_+spote_,down_-100:PRINT"=":e_=VAL(e_$):f_=VAL(f_$):IFWhole_(r_,2)<>0ORWhole_(r_,2)=0ANDe_=0THEN
39810whole_$=STR$(Whole_(r_,2)):spotc_=230:MOVEleft_+spotc_-LEN(whole_$)/2*16,down_-100:PRINTFNzero(whole_$):ona_=30:IFe_<>0 spotc_=230:MOVEleft_+ona_+spotc_-LEN(f_$)/2*16,down_-bot_:PRINTFNzero(f_$)
39850IFe_<>0MOVEleft_+ona_+spotc_-LEN(f_$)/2*16,down_-bot_+8:DRAWleft_+ona_+spotc_+LEN(f_$)/2*16,down_-bot_+8
39860IFe_<>0MOVEleft_+ona_+spotc_-LEN(e_$)/2*16,down_-bot_+40:PRINTFNzero(e_$)
39870ELSE:spotc_=250:MOVEleft_+spotc_-LEN(f_$)/2*16,down_-bot_:PRINTFNzero(f_$):MOVEleft_+spotc_-LEN(f_$)/2*16,down_-bot_+8:DRAWleft_+spotc_+LEN(f_$)/2*16,down_-bot_+8:MOVEleft_+spotc_-LEN(e_$)/2*16,down_-bot_+40:PRINTFNzero(e_$)
39930ENDIF
39940ENDIF:left_=dunkleft_:left_=left_+on_:down_=tdown_:NEXT:left_=mdivartleft_:down_=down_-180:NEXT:ENDPROC
40060DEFPROCchoices:Choice_%=FNfWS("Choices"):$!StartX_%=STR$(rite_):$!pwon_%=STR$(pwon_):IFSign_%=TRUE:PROCsI(Choice_%,"signright"):PROCusI(Choice_%,"signleft")ELSEPROCusI(Choice_%,"signright"):PROCsI(Choice_%,"signleft")
40110IFSecAns_%=TRUEPROCsI(Choice_%,"SecAns")
40120IFLma_%=TRUEPROCsI(Choice_%,"Lma")
40130IFLda_%=TRUEPROCsI(Choice_%,"Lda")
40140IFdirect_%=TRUEPROCsI(Choice_%,"Direct")
40150IFremmy_=1PROCsI(Choice_%,"rem")
40160IFremmy_=2PROCsI(Choice_%,"dot")
40170IFremmy_=3PROCsI(Choice_%,"frac")
40180ENDPROC
40200DEFFNpwon_:IFremmy_<>2THEN=FALSE
40210pwon_$=$!pwon_%:pwon_=VAL(pwon_$):IFFNmouse=4ANDpwon_=3THEN=FALSE
40230IFFNmouse=4ANDpwon_<3THEN
40240pwon_=pwon_+1:$!pwon_%=STR$(pwon_):PROCrI(Choice_%,"pwon")
40270ENDIF:IFFNmouse=1ANDpwon_=1THEN=FALSE
40290IFFNmouse=1ANDpwon_>1THEN
40300pwon_=pwon_-1:$!pwon_%=STR$(pwon_):PROCrI(Choice_%,"pwon")
40330ENDIF:=FNredo
40360DEFFNredo:IFstarted_%=TRUEANDFNfWS("Divide")THEN=FNDivyGo_
40380IFstarted_%=TRUEANDFNfWS("LongDiv")THEN=FNLongDivgo_
40390=TRUE
40410DEFFNrem_:IFremmy_=1THENPROCsI(Choice_%,"rem"):=FALSE
40420remmy_=1:PROCsI(Choice_%,"rem"):PROCusI(Choice_%,"dot"):PROCusI(Choice_%,"frac"):=FNredo
40470DEFFNdot_:IFremmy_=2THENPROCsI(Choice_%,"dot"):=FALSE
40480remmy_=2:PROCsI(Choice_%,"dot"):PROCusI(Choice_%,"rem"):PROCusI(Choice_%,"frac"):=FNredo
40520DEFFNfrac_:IFremmy_=3THENPROCsI(Choice_%,"frac"):=FALSE
40530remmy_=3:PROCsI(Choice_%,"frac"):PROCusI(Choice_%,"rem"):PROCusI(Choice_%,"dot"):=FNredo
40570DEFFNDirect_:IFdirect_%=TRUEdirect_%=FALSEELSEdirect_%=TRUE
40590=TRUE
40610DEFPROCdo_:IFFNfWS("Add")ORFNfWS("Subtract")ORFNfWS("Multiply")ORFNfWS("LongMul")ORFNfWS("Madd")ORFNfWS("MetricSub")ORFNfWS("MetricMul")PROCdoo_
40620ENDPROC
40630DEFPROCdoo_:IFFNgWx("GrafIt")ANDstarted_%THENn_=FNwindow("GrafIt"):n_=FNwindow("Choices")
40640ENDPROC
40660DEFFNsignleft_:IFNOTSign_%PROCsI(Choice_%,"signleft"):=TRUE
40670Sign_%=FALSE:PROCsI(Choice_%,"signleft"):PROCusI(Choice_%,"signright"):PROCdo_:=TRUE
40680DEFFNsignright_:IFSign_%PROCsI(Choice_%,"signright"):=TRUE
40690Sign_%=TRUE:PROCsI(Choice_%,"signright"):PROCusI(Choice_%,"signleft"):PROCdo_:=TRUE
40720DEFFNStartY_:StartY$=$!StartY_%:StartY=VAL(StartY$):IFFNmouse=4ANDStartY<1300THEN
40750StartY=StartY+1:$!StartY_%=STR$(StartY):PROCrI(Choice_%,"StartY")
40780ENDIF:IFFNmouse=1ANDStartY>1110THEN
40800StartY=StartY-1:$!StartY_%=STR$(StartY):PROCrI(Choice_%,"StartY")
40830ENDIF:=TRUE
40860DEFFNStartX_:StartX$=$!StartX_%:rite_=VAL(StartX$):IFFNmouse=4ANDrite_<16THEN
40890rite_=rite_+1:$!StartX_%=STR$(rite_):PROCrI(Choice_%,"StartX")
40920ENDIF:IFFNmouse=1ANDrite_>0THEN
40940rite_=rite_-1:$!StartX_%=STR$(rite_):PROCrI(Choice_%,"StartX")
40970ENDIF:=TRUE
41000DEFFNSaveChoice_:LOCALERROR:ONERRORLOCAL:PROCmoan(REPORT$):PROCusI(Choice_%,"SaveChoice"):ONERROROFF:=FALSE
41030DefStartX=rite_:DefStartY=StartY:save_%=OPENOUT"<MathsSys$Path>Numbers":PROCGetTitles:PRINT#save_%,rite_,StartY,Maintitle_$,Title_$,Choices_%,Sign_%,SecAns_%,Lda_%,Lma_%,direct_%,remmy_,pwon_:CLOSE#save_%:PROCusI(Choice_%,"SaveChoice"):=TRUE
41100DEFFNExit_:PROCcloseW(Choice_%):MOUSETO600,500:=TRUE
41120DEFFNSecAns_:IFSecAns_%=TRUESecAns_%=FALSE:PROCusI(Choice_%,"SecAns")ELSESecAns_%=TRUE:PROCsI(Choice_%,"SecAns")
41130PROCdo_:=TRUE
41150DEFFNLda_:IFLda_%=TRUELda_%=FALSE:PROCusI(Choice_%,"Lda")ELSELda_%=TRUE:PROCsI(Choice_%,"Lda")
41170=TRUE
41190DEFFNLma_:IFLma_%=TRUELma_%=FALSE:PROCusI(Choice_%,"Lma")ELSELma_%=TRUE:PROCsI(Choice_%,"Lma")
41210IFFNgWx("GrafIt")ANDFNfWS("LongMul")THENn_=FNwindow("GrafIt"):n_=FNwindow("Choices"):=TRUEELSE=TRUE
41220
41230DEFFNBothsums_:Choices_%=1:PROCtMIx("CreChoices",0):=TRUE
41240DEFFNBothans_:Choices_%=2:PROCtMIx("CreChoices",1):=TRUE
41250DEFFNHalfhalf_:Choices_%=3:PROCtMIx("CreChoices",2):=TRUE
$ݤstart_:�shut_:=�window("Main")
(ݤmainW_:=�window("Main")
Fݤdummy_:=�
nݤm_:�H$:H$=$mn%:ȎH$�
�T�"GrafIt":�Answer_%��pMI("GrafIt",0,"Answers off")��pMI("GrafIt",0,"Answers on")
��:=�
�ݤsm_:�H$:H$=$mn%:ȎH$�
�3�"CreChoices":�Choices_%=1�tMIx("CreChoices",0)
%�Choices_%=2�tMIx("CreChoices",1)
%�Choices_%=3�tMIx("CreChoices",2)
�:=�
6
ݤsma_:=�
^ݤw_:Ȏ$wn%�
r,�"Main":�shut_:WindowMain_%=�fWS("Main")
|%�"GrafIt":GrafIt_%=�fWS("GrafIt")
��"TakeCards":�TakeCards
��"AddCards":�AddCards
��"TimesCards":�TimesCards
��"DivCards":�DivCards
��"Add":�Add
��"Subtract":�subtract
��"Multiply":�multiply
��"Divide":�Divide
��"Madd":�Madd
��"MetricSub":�Msub
��"Magic":�Magic
��"Sadd":�Sadd
��"Wadd":�Wadd
�"FrMD":�FrMD
�"LongMul":�LongMulty
�"LongDiv":�LongDivy
&�"MetricSub":�Msub
0�"MetricMul":�Mmul
:�"MetDiv":�Mdiv
D�"Choices":�choices
N�:=�
�ݤb_:=�
�ݤe_:=�
�ݤpK_:=�
�ݤh_:Ȏ$wn%�
�H�"GrafIt":="This is the main window of the 'New_Appln' application."
�U�:�!h%=-2�="This is the 'New_Appln' icon.|MClick SELECT to open the main window."
=""
 ݤrM_:=�
4ݤrB_:=�
RݤpB_:=�
p��iBasic_g:�
z��iSprite_g:�
���iAnimate_g:�
��ݤi_(A$,B%):�A%,C$:many_=12:last_=12:quit_=�:SecAns_%=�:Lda_%=�:Lma_%=�:�qual_$(10),qual_(10),act_$(10),gc_%(12),scoot_(10):EqSign_=�:EqEquals_=�:�LineType_(3):LineType_(3)=�:LineType_(2)=�:LineType_(1)=�:�finder_%(12)
��maxsub=6:�sub_$(maxsub),sub_(maxsub):sub_$(1)="-":sub_(1)=�:sub_$(2)="subtract":sub_(2)=�:sub_$(3)="minus":sub_(3)=�:sub_$(4)="take":sub_(4)=�:sub_$(5)="take away":sub_(5)=�:sub_$(6)="less":sub_(6)=�
��Takemaxy_=20:Takeminny_=10:maxadd=4:�add_$(maxadd),add_(maxadd):add_$(1)="+":add_(1)=�:add_$(2)="add":add_(2)=�:add_$(3)="plus":add_(3)=�:add_$(4)="and":add_(4)=�:Addmaxy_=10:Addminy_=1
�maxtimes=4:�time_$(maxtimes),times_(maxtimes):time_$(1)="x":times_(1)=�:time_$(2)="times":times_(2)=�:time_$(3)="multiplied by":times_(3)=�:maxtims=9:�tim_$(maxtims),tim_(maxtims)
�tim_$(1)="2":tim_$(2)="3":tim_$(3)="4":tim_$(4)="5":tim_$(5)="6":tim_$(6)="7":tim_$(7)="8":tim_$(8)="9":tim_$(9)="10":tim_(1)=�:tim_(2)=�:tim_(3)=�:tim_(4)=�:tim_(5)=�:tim_(6)=�:tim_(7)=�:tim_(8)=�:tim_(9)=�
P�maxdiv=3:�dive_$(maxdiv),dive_(maxdiv):�tempa_(10):dive_$(1)="�":dive_(1)=�:dive_$(2)="shared by":dive_(2)=�:dive_$(3)="divided by":dive_(3)=�:maxdivs=9:�div_$(maxdivs),div_(maxdivs)
n�div_$(1)="2":div_$(2)="3":div_$(3)="4":div_$(4)="5":div_$(5)="6":div_$(6)="7":div_$(7)="8":div_$(8)="9":div_$(9)="10":div_(1)=�:div_(2)=�:div_(3)=�:div_(4)=�:div_(5)=�:div_(6)=�:div_(7)=�:div_(8)=�:div_(9)=�
���addy_(6):addy_(1)=�:�t_=2�6:addy_(t_)=�:�:maxaddcarry_=3:�addcarry_(maxaddcarry_):addcarry_(1)=�:addcarry_(2)=�:addcarry_(3)=�:�addytype_(6),lineaddy_(12):Anowts_%=�:�subby_(6):subby_(1)=�:�t_=2�6:subby_(t_)=�:�
��maxsubcarry_=3:�subcarry_(maxsubcarry_):subcarry_(1)=�:subcarry_(2)=�:subcarry_(3)=�:�subbytype_(6),linesubby_(12):nowts_%=�:�multy_(6):multy_(1)=�:�t_=2�6:multy_(t_)=�:�:maxmults=9:�mult_$(maxmults),mult_(maxmults)
,��t_=1�9:mult_$(t_)=�(t_+1):�:mult_(1)=�:�t_=2�9:mult_(t_)=�:�:�multytype_(6),linemulty_(12):Mnowts_%=�:Remainder_$="Ran":�dvy_(5):dvy_(1)=�:dvy_(2)=�:dvy_(3)=�:dvy_(4)=�:dvy_(5)=�:maxdvs=9:�dv_$(maxdvs),dv_(maxdvs)
|�dv_$(1)="2":dv_$(2)="3":dv_$(3)="4":dv_$(4)="5":dv_$(5)="6":dv_$(6)="7":dv_$(7)="8":dv_$(8)="9":dv_$(9)="10":dv_(1)=�:dv_(2)=�:dv_(3)=�:dv_(4)=�:dv_(5)=�:dv_(6)=�:dv_(7)=�:dv_(8)=�:dv_(9)=�
���dvytype_(6),linedvy_(12):Dnowts_%=�:�cz_$(12):Fracadd_=�:Fractake_=�:addoms_=�:AddReps_=�:subdoms_=�:SubReps_=�:maxfrac_=12:�f_(maxfrac_),frac_(maxfrac_):�FU1_(12),FD1_(12),FU2_(12),FD2_(12),FU3_(12),FD3_(12)
��f_(1)=�:f_(2)=�:f_(3)=�:f_(4)=�:f_(5)=�:f_(6)=�:f_(7)=�:�r_=8�12:f_(r_)=�:�:�r_=1�9:frac_(r_)=r_+1:�:frac_(10)=12:frac_(11)=15:frac_(12)=20:�Sadcarry_(3):Sadcarry_(1)=�:Sadcarry_(2)=�:Sadcarry_(3)=�:�Fracsign_$(12)
:�WFracadd_=�:WFractake_=�:Waddoms_=�:WAddReps_=�:Wsubdoms_=�:WSubReps_=�:Wmaxfrac_=12:�wf_(Wmaxfrac_),wfrac_(Wmaxfrac_):�WFU1_(12),WFD1_(12),WFU2_(12),WFD2_(12),WFU3_(12),WFD3_(12),Whole_(12,2)
l�f_(1)=�:wf_(2)=�:wf_(3)=�:wf_(4)=�:wf_(5)=�:wf_(6)=�:wf_(7)=�:�r_=8�12:wf_(r_)=�:�:�r_=1�9:wfrac_(r_)=r_+1:�:wfrac_(10)=12:wfrac_(11)=15:wfrac_(12)=20:�WSadcarry_(3):WSadcarry_(1)=�:WSadcarry_(2)=�:WSadcarry_(3)=�
���WSTakecar_(3):WSTakecar_(1)=�:WSTakecar_(2)=�:WSTakecar_(3)=�:Fracmult_=�:Fracdiv_=�:Frtdom_=�:Frtrep_=�:Frddom_=�:Frdrep_=�:�mf_(12),mfv_(12):�r_=1�9:mfv_(r_)=r_+1:�:mfv_(10)=12:mfv_(11)=15:mfv_(12)=20
��mf_(1)=�:mf_(2)=�:�r_=3�12:mf_(r_)=�:�:Frmwhole_=�:Frdwhole_=�:�LongMul_(6):LongMul_(1)=�:�t_=2�6:LongMul_(t_)=�:�:Longstyle_=1:�Longchoice_$(8),froc_(8):�LongDiv_(7):LongDiv_(1)=�:�t_=2�7:LongDiv_(t_)=�:�:LRemainder_$="Ran"
z��maddy_(6):maddy_(1)=�:�w_=2�6:maddy_(w_)=�:�:maddcarry_$="Ran":�mt_(6):�w_=1�6:mt_(w_)=�:�:�thou_$(3),hun_$(3),top_$(12):�msub_(6):msub_(1)=�:�w_=2�6:msub_(w_)=�:�:msubcarry_$="Ran":�st_(6):�w_=1�6:st_(w_)=�:�
���mmul_(6):mmul_(1)=�:�w_=2�6:mmul_(w_)=�:�:�mmt_(6):�w_=1�6:mmt_(w_)=�:�:�Mmult_$(9),Mmult_(9):�t_=1�9:Mmult_$(t_)=�(t_+1):�:Mmult_(1)=�:�t_=2�9:Mmult_(t_)=�:�:�md_(6):md_(1)=�:�w_=2�6:md_(w_)=�:�
	8��mdt_(6):�w_=1�6:mdt_(w_)=�:�:�Mdiv_$(9),Mdiv_(9):�t_=1�9:Mdiv_$(t_)=�(t_+1):�:Mdiv_(1)=�:�t_=2�9:Mdiv_(t_)=�:�:LineTypeards_%=�:TakeCard_%=�:�dunk_$(10):started_%=�:twoxc=�:threexc=�:fourxc=�:fivexc=�:sixxc=�
	��sevenxc=�:eightxc=�:ninexc=�:tenxc=�:EqSign_=�:EqEquals_=�:Addadd=�:Addplus=�:Addsign=�:�Na_%(12),Nb_%(12),Nc_%(12),linetype_(10),equal_$(10)
	��save_%=�"<MathsSys$Path>Numbers":�#save_%,rite_,StartY,Maintitle_$,Title_$,Choices_%,Sign_%,SecAns_%,Lda_%,Lma_%,direct_%,remmy_,pwon_:�#save_%:DefStartX=rite_:DefStartY=StartY:DefaultStartX=100:DefaultStartY=1240

��a_(12),b_(12),c_(12),rem_(12),a_$(12),b_$(12),c_$(12),rem_$(12):�magic_(9,9):MagRange_$="1 to 25":�bas_(9),baa_(9):�pat_$(9),pattern_(9),bas_$(9):Answer_%=�:mult_=2:gap_=0:Clue_$="":Zero_$="Random":metric_$="�":�iRes(A$,B%)
��iGraphics("",B%):=�
�-��shut_:�gWx("GrafIt"):�closeW(GrafIt_%)
�)�fWS("TakeCards")�closeW(TakeCard_%)
�'�fWS("AddCards")�closeW(AddCard_%)
�+�fWS("TimesCards")�closeW(TimesCard_%)
'�fWS("DivCards")�closeW(DivCard_%)
�fWS("Add")�closeW(WAdd_%)
$�fWS("Subtract")�closeW(WSub_%)
"%�fWS("Multiply")�closeW(WMult_%)
,"�fWS("Divide")�closeW(WDiv_%)
6"�fWS("Magic")�closeW(Magic_%)
@�fWS("Sadd")�closeW(Sad_%)
J�fWS("Wadd")�closeW(Wad_%)
T �fWS("FrMD")�closeW(FrMD_%)
^&�fWS("LongMul")�closeW(LongMul_%)
h&�fWS("LongDiv")�closeW(LongDiv_%)
r �fWS("Madd")�closeW(Madd_%)
|%�fWS("MetricSub")�closeW(Msub_%)
�%�fWS("MetricMul")�closeW(Mmul_%)
�"�fWS("MetDiv")�closeW(Mdiv_%)
�%�fWS("Choices")�closeW(Choice_%)
�fAddCard_%=�:TakeCard_%=�:TimesCard_%=�:DivCard_%=�:started_%=�:�:�gWx("GrafIt"):�closeW(GrafIt_%)
� �gWx("Add"):�closeW(WAdd_%)
�%�gWx("Subtract"):�closeW(WSub_%)
�&�gWx("Multiply"):�closeW(WMult_%)
�#�gWx("Divide"):�closeW(WDiv_%)
�#�gWx("Magic"):�closeW(Magic_%)
�&�gWx("MetricAdd"):�closeW(Madd_%)
&�gWx("MetricSub"):�closeW(Msub_%)
&�gWx("MetricMul"):�closeW(Mmul_%)
'�gWx("LongMul"):�closeW(LongMul_%)
&%�gWx("StartX"):�closeW(Start_X%)
0(�gWx("AddCards"):�closeW(AddCard_%)
:*�gWx("TakeCards"):�closeW(TakeCard_%)
D,�gWx("TimesCards"):�closeW(TimesCard_%)
N(�gWx("DivCards"):�closeW(DivCard_%)
XDAddCard_%=�:TakeCard_%=�:TimesCard_%=�:DivCard_%=�:started_%=�:�
�?ݤChoices_:�usI(WindowMain_%,"Choices"):=�window("Choices")
�}ݤTakecards_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("TakeCards"):open2_%=�window("GrafIt"):=�
�{ݤAddcards_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("AddCards"):open2_%=�window("GrafIt"):=�
�ݤTimesCards_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("TimesCards"):open2_%=�window("GrafIt"):=�
�{ݤDivCards_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("DivCards"):open2_%=�window("GrafIt"):=�
�qݤAdd_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("Add"):open2_%=�window("GrafIt"):=�
�{ݤSubtract_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("Subtract"):open2_%=�window("GrafIt"):=�

{ݤMultiply_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("Multiply"):open2_%=�window("GrafIt"):=�

wݤDivide_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("Divide"):open2_%=�window("GrafIt"):=�

*uݤMagic_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("Magic"):open2_%=�window("GrafIt"):=�

>sݤSadd_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("Sadd"):open2_%=�window("GrafIt"):=�

RsݤWadd_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("Wadd"):open2_%=�window("GrafIt"):=�

fsݤFrMD_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("FrMD"):open2_%=�window("GrafIt"):=�

zsݤMadd_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("Madd"):open2_%=�window("GrafIt"):=�

�|ݤMetricSub_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open_%=�window("MetricSub"):open2_%=�window("GrafIt"):=�

�|ݤMetricMul_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open_%=�window("MetricMul"):open2_%=�window("GrafIt"):=�

�yݤMetricDiv_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open_%=�window("MetDiv"):open2_%=�window("GrafIt"):=�

�yݤLongMul_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("LongMul"):open2_%=�window("GrafIt"):=�

�yݤLongDiv_:Clue_$="":�shut_:started_%=�:�closeW(WindowMain_%):open1_%=�window("LongDiv"):open2_%=�window("GrafIt"):=�
$[��whatqual:�TakeCard_% tot_=maxsub:�r_=1�tot_:qual_$(r_)=sub_$(r_):qual_(r_)=sub_(r_):�
8O�AddCard_% tot_=maxadd:�r_=1�tot_:qual_$(r_)=add_$(r_):qual_(r_)=add_(r_):�
BV�TimesCard_% tot_=maxtimes:�r_=1�tot_:qual_$(r_)=time_$(r_):qual_(r_)=times_(r_):�
LQ�DivCard_% tot_=maxdiv:�r_=1�tot_:qual_$(r_)=dive_$(r_):qual_(r_)=dive_(r_):�
VBgot_%=0:�r_%=1�tot_:�qual_(r_%)=�got_%=got_%+1:gc_%(got_%)=r_%
j�:�qual(got_%):�
�C��qual(g_%):�g_%=1��tr_%=1�10:act_$(tr_%)=qual_$(gc_%(g_%)):�:�
��needed_%=10�g_%:�:�y_=1�g_%:finder_%(y_)=0:�:flag_=�:�tr_%=1�10:�:flig_=�:ran_=�(g_%):act_$=qual_$(gc_%(ran_)):�tr_%>1�act_$(tr_%-1)=act_$ flig_=�
�x�flig_=�:act_$(tr_%)=qual_$(gc_%(ran_)):finder_%(ran_)=finder_%(ran_)+1:�:�b_%=1�g_%:�finder_%(b_%)<needed_% flag_=�
�:�flag_=�:�
(P��whatlines_:got_%=0:�r_%=1�3:�LineType_(r_%)=�got_%=got_%+1:gc_%(got_%)=r_%
<9�:�got_%=1��tr_%=1�10:linetype_(tr_%)=gc_%(got_%):�:�
P�needed_%=10�got_%:�:�y_=1�got_%:finder_%(y_)=0:�:flag_=�:�tr_%=1�10:�:flig_=�:ran_=�(got_%):linetype_=gc_%(ran_):�tr_%>1�linetype_(tr_%-1)=linetype_ flig_=�
�t�flig_=�:linetype_(tr_%)=gc_%(ran_):finder_%(ran_)=finder_%(ran_)+1:�:�y_=1�got_%:�finder_%(y_)<needed_% flag_=�
��:�flag_=�:�
�G��whatequals:�EqSign_=��EqEquals_=��tr_%=1�10:equal_$(tr_%)="=":�:�
?�EqSign_=��EqEquals_=��tr_%=1�10:equal_$(tr_%)="equals":�:�
+�two("equals","="):equal_$()=dunk_$():�
"Y��two(a_$,b_$):�:aa_=0:ap_=0:�tr_%=1�10:�:flug_=�:r_=�(2):�r_=1 dunk_$=a_$�dunk_$=b_$
T)�tr_%>1�dunk_$(tr_%-1)=dunk_$ flug_=�
^H�flug_=�:�r_=1 dunk_$(tr_%)=a_$:aa_=aa_+1�dunk_$(tr_%)=b_$:ap_=ap_+1
r�:�aa_>4�ap_>4:�
�:ݤEqSign_:�EqSign_=��EqEquals_=�EqSign_=�:�selectEq:=�
�&�EqSign_=�EqSign_=�:�UnselectEq:=�
�$�EqSign_=�EqSign_=�:�selectEq:=�
�
�BݤEqEquals_:�EqEquals_=��EqSign_=�EqEquals_=�:�selectEquals:=�
�.�EqEquals_=�EqEquals_=�:�UnselectEquals:=�
�,�EqEquals_=�EqEquals_=�:�selectEquals:=�
�
�0��selectEq:�AddCard_%�sI(AddCard_%,"EqSign")
�'�TakeCard_%�sI(TakeCard_%,"EqSign")
)�TimesCard_%�sI(TimesCard_%,"EqSign")
%�DivCard_%�sI(DivCard_%,"EqSign")
�
0/��UnselectEq:�AddCard_%�usI(AddCard_%,"Eq")
D$�TakeCard_%�usI(TakeCard_%,"Eq")
N*�TimesCard_%�usI(TimesCard_%,"EqSign")
X&�DivCard_%�usI(DivCard_%,"EqSign")
b�
v6��selectEquals:�AddCard_%�sI(AddCard_%,"EqEquals")
�)�TakeCard_%�sI(TakeCard_%,"EqEquals")
�+�TimesCard_%�sI(TimesCard_%,"EqEquals")
�'�DivCard_%�sI(DivCard_%,"EqEquals")
��
�9��UnselectEquals:�AddCard_%�usI(AddCard_%,"EqEquals")
�*�TakeCard_%�usI(TakeCard_%,"EqEquals")
�,�TimesCard_%�usI(TimesCard_%,"EqEquals")
�(�DivCard_%�usI(DivCard_%,"EqEquals")
��
NݤLineType1_:�LineType_(2)=��LineType_(3)=��LineType_(1)=�:�selectline1:=�
1�LineType_(1)=�LineType_(1)=�:�selectline1:=�
 3�LineType_(1)=�LineType_(1)=�:�Unselectline1:=�
*NݤLineType2_:�LineType_(1)=��LineType_(3)=��LineType_(2)=�:�selectline2:=�
>1�LineType_(2)=�LineType_(2)=�:�selectline2:=�
H3�LineType_(2)=�LineType_(2)=�:�Unselectline2:=�
RNݤLineType3_:�LineType_(1)=��LineType_(2)=��LineType_(3)=�:�selectline3:=�
f1�LineType_(3)=�LineType_(3)=�:�selectline3:=�
p3�LineType_(3)=�LineType_(3)=�:�Unselectline3:=�
z
�8��selectline1:�TakeCard_%�sI(TakeCard_%,"LineType1")
�(�AddCard_%�sI(AddCard_%,"LineType1")
�,�TimesCard_%�sI(TimesCard_%,"LineType1")
�(�DivCard_%�sI(DivCard_%,"LineType1")
��
�;��Unselectline1:�TakeCard_%�usI(TakeCard_%,"LineType1")
�)�AddCard_%�usI(AddCard_%,"LineType1")
�-�TimesCard_%�usI(TimesCard_%,"LineType1")
�)�DivCard_%�usI(DivCard_%,"LineType1")
��
�8��selectline2:�TakeCard_%�sI(TakeCard_%,"LineType2")
(�AddCard_%�sI(AddCard_%,"LineType2")
,�TimesCard_%�sI(TimesCard_%,"LineType2")
$(�DivCard_%�sI(DivCard_%,"LineType2")
.�
8;��Unselectline2:�TakeCard_%�usI(TakeCard_%,"LineType2")
L)�AddCard_%�usI(AddCard_%,"LineType2")
V-�TimesCard_%�usI(TimesCard_%,"LineType2")
`)�DivCard_%�usI(DivCard_%,"LineType2")
j�
t8��selectline3:�TakeCard_%�sI(TakeCard_%,"LineType3")
�(�AddCard_%�sI(AddCard_%,"LineType3")
�,�TimesCard_%�sI(TimesCard_%,"LineType3")
�(�DivCard_%�sI(DivCard_%,"LineType3")
��
�;��Unselectline3:�TakeCard_%�usI(TakeCard_%,"LineType3")
�)�AddCard_%�usI(AddCard_%,"LineType3")
�-�TimesCard_%�usI(TimesCard_%,"LineType3")
�)�DivCard_%�usI(DivCard_%,"LineType3")
��
�wݤAnswers_:�Answer_%=�Answer_%=�:�pMI("GrafIt",0,"Answers off")��Answer_%=�Answer_%=�:�pMI("GrafIt",0,"Answers on")


=�sums
P���AddCards:AddCard_%=�fWS("AddCards"):$!Addmaxy_%=�(Addmaxy_):�rI(AddCard_%,"Addmaxy"):$!Addminy_%=�(Addminy_):�rI(AddCard_%,"Addminy"):�LineType_(1)�sI(AddCard_%,"LineType1")
x+�LineType_(2)�sI(AddCard_%,"LineType2")
�+�LineType_(3)�sI(AddCard_%,"LineType3")
�#�EqSign_�sI(AddCard_%,"EqSign")
�'�EqEquals_�sI(AddCard_%,"EqEquals")
�!�add_(1)�sI(AddCard_%,"add1")
�!�add_(2)�sI(AddCard_%,"add2")
�!�add_(3)�sI(AddCard_%,"add3")
�!�add_(4)�sI(AddCard_%,"add4")
��
�(ݤadd_:c_=0:�h_=1�4:�add_(h_)c_=c_+1
�	�:=c_
?ݤadd1_:�add_(1)��add_=1 add_(1)=�:�sI(AddCard_%,"add1"):=�
�add_(1)add_(1)=��add_(1)=�
=�
"?ݤadd2_:�add_(2)��add_=1 add_(2)=�:�sI(AddCard_%,"add2"):=�
,�add_(2)add_(2)=��add_(2)=�
6=�
@?ݤadd3_:�add_(3)��add_=1 add_(3)=�:�sI(AddCard_%,"add3"):=�
J�add_(3)add_(3)=��add_(3)=�
T=�
^?ݤadd4_:�add_(4)��add_=1 add_(4)=�:�sI(AddCard_%,"add4"):=�
h�add_(4)add_(4)=��add_(4)=�
r=�
|5ݤAddmaxy_:�getaddmax:�sCI(!(AddCard_%+12),20):=�
�>��getaddmax:Addmaxy_=�($!Addmaxy_%):�Addmaxy_<4 Addmaxy_=4
��Addmaxy_>500 Addmaxy_=500
�6$!Addmaxy_%=�(Addmaxy_):�rI(AddCard_%,"Addmaxy"):�
�@ݤAddminy_:�getaddmax:�getaddmin:�sCI(!(AddCard_%+12),20):=�
�>��getaddmin:Addminy_=�($!Addminy_%):�Addminy_<1 Addminy_=0
�,�Addminy_>Addmaxy_-4 Addminy_=Addmaxy_-4
�6$!Addminy_%=�(Addminy_):�rI(AddCard_%,"Addminy"):�
��ݤAddcGo_:�GetTitles:dummy_=�(-�):�whatlines_:�whatqual:�whatequals:�calcadd:�usI(AddCard_%,"AddcGo"):last_=3:quit_=�:Clue_$="CardsAdd":started_%=�:=�sums
:���calcadd:ș"Hourglass_On":�getaddmax:�getaddmin:�tr_%=1�10:ș"Hourglass_Percentage",tr_%/10*100:�:flag_=0:�:dif_%=Addmaxy_-Addminy_:wh_=�(2):�wh_=1�dd_%=�(dif_%):Na_%=Addminy_+dd_%:dd_%=�(dif_%)-1:Nb_%=Addminy_+dd_%
�;�wh_=2�dd_%=�(dif_%)-1:Na_%=Addminy_+dd_%:dd_%=�(dif_%)
�>Nb_%=Addminy_+dd_%:�Na_%>=Addminy_�Nb_%>=Addminy_:�tr_%>1�
�7�e_%=1�tr_%-1:�Na_%=Na_%(e_%)�Nb_%=Nb_%(e_%)flag_=1
��
�e�:�flag_=0:Na_%(tr_%)=Na_%:Nb_%(tr_%)=Nb_%:Nc_%(tr_%)=Na_%(tr_%)+Nb_%(tr_%):�:ș"Hourglass_Off":�
 ���TakeCards:TakeCard_%=�fWS("TakeCards"):$!Takemaxy_%=�(Takemaxy_):�rI(TakeCard_%,"Takemaxy"):$!Takeminny_%=�(Takeminny_):�rI(TakeCard_%,"Takeminny"):�LineType_(1)�sI(TakeCard_%,"LineType1")
H,�LineType_(2)�sI(TakeCard_%,"LineType2")
R,�LineType_(3)�sI(TakeCard_%,"LineType3")
\(�EqEquals_�sI(TakeCard_%,"EqEquals")
f$�EqSign_�sI(TakeCard_%,"EqSign")
p"�sub_(1)�sI(TakeCard_%,"sub1")
z"�sub_(2)�sI(TakeCard_%,"sub2")
�"�sub_(3)�sI(TakeCard_%,"sub3")
�"�sub_(4)�sI(TakeCard_%,"sub4")
�"�sub_(5)�sI(TakeCard_%,"sub5")
�"�sub_(6)�sI(TakeCard_%,"sub6")
��
�(ݤsub_:c_=0:�h_=1�6:�sub_(h_)c_=c_+1
�	�:=c_
�@ݤsub1_:�sub_(1)��sub_=1 sub_(1)=�:�sI(TakeCard_%,"sub1"):=�
��sub_(1)sub_(1)=��sub_(1)=�
�=�
@ݤsub2_:�sub_(2)��sub_=1 sub_(2)=�:�sI(TakeCard_%,"sub2"):=�
!�sub_(2)=�sub_(2)=��sub_(2)=�
=�
$@ݤsub3_:�sub_(3)��sub_=1 sub_(3)=�:�sI(TakeCard_%,"sub3"):=�
.!�sub_(3)=�sub_(3)=��sub_(3)=�
8=�
B@ݤsub4_:�sub_(4)��sub_=1 sub_(4)=�:�sI(TakeCard_%,"sub4"):=�
L!�sub_(4)=�sub_(4)=��sub_(4)=�
V=�
`@ݤsub5_:�sub_(5)��sub_=1 sub_(5)=�:�sI(TakeCard_%,"sub5"):=�
j!�sub_(5)=�sub_(5)=��sub_(5)=�
t=�
~@ݤsub6_:�sub_(6)��sub_=1 sub_(6)=�:�sI(TakeCard_%,"sub6"):=�
��sub_(6)sub_(6)=��sub_(6)=�
�=�
�8ݤTakemaxy_:�gettakemax:�sCI(!(TakeCard_%+12),19):=�
�C��gettakemax:Takemaxy_=�($!Takemaxy_%):�Takemaxy_<4 Takemaxy_=4
�:$!Takemaxy_%=�(Takemaxy_):�rI(TakeCard_%,"Takemaxy"):�
�EݤTakeminny_:�gettakemax:�gettakemin:�sCI(!(TakeCard_%+12),19):=�
�G��gettakemin:Takeminny_=�($!Takeminny_%):�Takeminny_<0 Takeminny_=0
2�Takeminny_>Takemaxy_-4 Takeminny_=Takemaxy_-4

=$!Takeminny_%=�(Takeminny_):�rI(TakeCard_%,"Takeminny"):�
<�ݤTakecGo_:�GetTitles:dummy_=�(-�):�whatlines_:�whatqual:�whatequals:�calctake:�usI(TakeCard_%,"TakecGo"):last_=3:quit_=�:Clue_$="CardsTake":started_%=�:=�sums
x���calctake:ș"Hourglass_On":�gettakemax:�gettakemin:many_=10:�tr_%=1�10:�:flag_=0:ș"Hourglass_Percentage",tr_%/10*100:�:�:Na_%=�(Takemaxy_):�Na_%>=Takeminny_:�:Nb_%=�(Takemaxy_+1):Nb_%=Nb_%-1:�Nb_%>=Takeminny_:�Na_%-Nb_%>-1
��tr_%>1�
�7�e_%=1�tr_%-1:�Na_%=Na_%(e_%)�Nb_%=Nb_%(e_%)flag_=1
��
�e�:�flag_=0:Na_%(tr_%)=Na_%:Nb_%(tr_%)=Nb_%:Nc_%(tr_%)=Na_%(tr_%)-Nb_%(tr_%):�:ș"Hourglass_Off":�
JO��TimesCards:TimesCard_%=�fWS("TimesCards"):�tim_(1)�sI(TimesCard_%,"tim1")
^#�tim_(2)�sI(TimesCard_%,"tim2")
h#�tim_(3)�sI(TimesCard_%,"tim3")
r#�tim_(4)�sI(TimesCard_%,"tim4")
|#�tim_(5)�sI(TimesCard_%,"tim5")
�#�tim_(6)�sI(TimesCard_%,"tim6")
�#�tim_(7)�sI(TimesCard_%,"tim7")
�#�tim_(8)�sI(TimesCard_%,"tim8")
�#�tim_(9)�sI(TimesCard_%,"tim9")
�-�LineType_(1)�sI(TimesCard_%,"LineType1")
�-�LineType_(2)�sI(TimesCard_%,"LineType2")
�-�LineType_(3)�sI(TimesCard_%,"LineType3")
�%�EqSign_�sI(TimesCard_%,"EqSign")
�)�EqEquals_�sI(TimesCard_%,"EqEquals")
�'�times_(1)�sI(TimesCard_%,"times1")
�'�times_(2)�sI(TimesCard_%,"times2")
�'�times_(3)�sI(TimesCard_%,"times3")
��
&(ݤtim_:c_=0:�h_=1�9:�tim_(h_)c_=c_+1
0	�:=c_
:Aݤtim1_:�tim_(1)��tim_=1 tim_(1)=�:�sI(TimesCard_%,"tim1"):=�
D�tim_(1)tim_(1)=��tim_(1)=�
N=�
XAݤtim2_:�tim_(2)��tim_=1 tim_(2)=�:�sI(TimesCard_%,"tim2"):=�
b�tim_(2)tim_(2)=��tim_(2)=�
l=�
vAݤtim3_:�tim_(3)��tim_=1 tim_(3)=�:�sI(TimesCard_%,"tim3"):=�
��tim_(3)tim_(3)=��tim_(3)=�
�=�
�Aݤtim4_:�tim_(4)��tim_=1 tim_(4)=�:�sI(TimesCard_%,"tim4"):=�
��tim_(4)tim_(4)=��tim_(4)=�
�=�
�Aݤtim5_:�tim_(5)��tim_=1 tim_(5)=�:�sI(TimesCard_%,"tim5"):=�
��tim_(5)tim_(5)=��tim_(5)=�
�=�
�Aݤtim6_:�tim_(6)��tim_=1 tim_(6)=�:�sI(TimesCard_%,"tim6"):=�
��tim_(6)tim_(6)=��tim_(6)=�
�=�
�Aݤtim7_:�tim_(7)��tim_=1 tim_(7)=�:�sI(TimesCard_%,"tim7"):=�
��tim_(7)tim_(7)=��tim_(7)=�
=�
Aݤtim8_:�tim_(8)��tim_=1 tim_(8)=�:�sI(TimesCard_%,"tim8"):=�
�tim_(8)tim_(8)=��tim_(8)=�
 =�
*Aݤtim9_:�tim_(9)��tim_=1 tim_(9)=�:�sI(TimesCard_%,"tim9"):=�
4�tim_(9)tim_(9)=��tim_(9)=�
>=�
RVݤtimes1_:�times_(1)�times_(2)+times_(3)=�times_(1)=�:�sI(TimesCard_%,"times1"):=�
\%�times_(1)times_(1)=��times_(1)=�
f=�
pVݤtimes2_:�times_(2)�times_(1)+times_(3)=�times_(2)=�:�sI(TimesCard_%,"times2"):=�
z'�times_(2)=�times_(2)=��times_(2)=�
�=�
�Vݤtimes3_:�times_(3)�times_(1)+times_(2)=�times_(3)=�:�sI(TimesCard_%,"times3"):=�
�'�times_(3)=�times_(3)=��times_(3)=�
�=�
ʳݤTimescGo_:�GetTitles:dummy_=�(-�):�whatlines_:�whatqual:�whatequals:�whattimes:�calctimes:last_=3:quit_=�:Clue_$="CardsTimes":started_%=�:�usI(TimesCard_%,"TimescGo"):=�sums
\��whattimes:ș"Hourglass_On":got_%=0:�r_%=1�9:�tim_(r_%)=��got_%=got_%+1:gc_%(got_%)=r_%
$+�:�got_%=1�onetimes:ș"Hourglass_Off":�
8[�got_%>4�times(got_%,10):�r_=1�10:Nb_%(r_)=�(tim_$(finder_%(r_))):�:ș"Hourglass_Off":�
Bgneeded_%=10�got_%:�r_=1�10:gc_%(r_)=0:�:got_%=0:�r_%=1�9:�tim_(r_%)=��got_%=got_%+1:gc_%(got_%)=r_%
`��:�:flag_=�:�r_=1�10:finder_%(r_)=0:�:�r_=1�10:ș"Hourglass_Percentage",r_/10*100:�:flig_=�:ran_%=�(got_%):�r_>1��(tim_$(gc_%(ran_%)))=Nb_%(r_-1)flig_=�
�z�flig_=�:Nb_%(r_)=�(tim_$(gc_%(ran_%))):finder_%(ran_%)=finder_%(ran_%)+1:�:�t_=1�got_%:�finder_%(t_)<needed_% flag_=�
�"�:�flag_=�:ș"Hourglass_Off":�
�J��onetimes:�r_%=1�9:�tim_(r_%)=���tr_%=1�10:Nb_%(tr_%)=�(tim_$(r_%)):�
�:�
}��times(git_%,top_%):�r_=1�top_%:finder_%(r_)=0:�:�h_=1�git_%:�:tf_=�:h_%=gc_%(�(git_%)):�j_=1�h_:�finder_%(j_)=h_% tf_=�
Zq�:�tf_=�:finder_%(h_)=h_%:�:k_=git_%+1:�h_=k_�top_%:�:tf_=�:�:h_%=gc_%(�(git_%)):�h_%<>finder_%(h_-1):�h_>k_�
�%�j_=k_�h_:�finder_%(j_)=h_% tf_=�
��
�!�:�tf_=�:finder_%(h_)=h_%:�:�
~��calctimes:ș"Hourglass_On":�tr_%=1�10:ș"Hourglass_Percentage",tr_%/10*100:�:flag_=0:Na_%=�(10):Nb_%=Nb_%(tr_%):�tr_%>1�
T7�e_%=1�tr_%-1:�Na_%=Na_%(e_%)�Nb_%=Nb_%(e_%)flag_=1
^�
he�:�flag_=0:Na_%(tr_%)=Na_%:Nb_%(tr_%)=Nb_%:Nc_%(tr_%)=Na_%(tr_%)*Nb_%(tr_%):�:ș"Hourglass_Off":�
�I��DivCards:DivCard_%=�fWS("DivCards"):�div_(1)=��sI(DivCard_%,"div1")
�#�div_(2)=��sI(DivCard_%,"div2")
�#�div_(3)=��sI(DivCard_%,"div3")
�#�div_(4)=��sI(DivCard_%,"div4")
�#�div_(5)=��sI(DivCard_%,"div5")
�#�div_(6)=��sI(DivCard_%,"div6")
 #�div_(7)=��sI(DivCard_%,"div7")
 #�div_(8)=��sI(DivCard_%,"div8")
 #�div_(9)=��sI(DivCard_%,"div9")
 &-�LineType_(1)=��sI(DivCard_%,"LineType1")
 0-�LineType_(2)=��sI(DivCard_%,"LineType2")
 :-�LineType_(3)=��sI(DivCard_%,"LineType3")
 D%�EqSign_=��sI(DivCard_%,"EqSign")
 N)�EqEquals_=��sI(DivCard_%,"EqEquals")
 X%�dive_(1)=��sI(DivCard_%,"dive1")
 b%�dive_(2)=��sI(DivCard_%,"dive2")
 l%�dive_(3)=��sI(DivCard_%,"dive3")
 v�
 �(ݤdiv_:c_=0:�h_=1�9:�div_(h_)c_=c_+1
 �	�:=c_
 �?ݤdiv1_:�div_(1)��div_=1 div_(1)=�:�sI(DivCard_%,"div1"):=�
 ��div_(1)div_(1)=��div_(1)=�
 �=�
 �?ݤdiv2_:�div_(2)��div_=1 div_(2)=�:�sI(DivCard_%,"div2"):=�
 ��div_(2)div_(2)=��div_(2)=�
 �=�
 �?ݤdiv3_:�div_(3)��div_=1 div_(3)=�:�sI(DivCard_%,"div3"):=�
 ��div_(3)div_(3)=��div_(3)=�
!=�
!?ݤdiv4_:�div_(4)��div_=1 div_(4)=�:�sI(DivCard_%,"div4"):=�
!�div_(4)div_(4)=��div_(4)=�
! =�
!*?ݤdiv5_:�div_(5)��div_=1 div_(5)=�:�sI(DivCard_%,"div5"):=�
!4�div_(5)div_(5)=��div_(5)=�
!>=�
!H?ݤdiv6_:�div_(6)��div_=1 div_(6)=�:�sI(DivCard_%,"div6"):=�
!R�div_(6)div_(6)=��div_(6)=�
!\=�
!f?ݤdiv7_:�div_(7)��div_=1 div_(7)=�:�sI(DivCard_%,"div7"):=�
!p�div_(7)div_(7)=��div_(7)=�
!z=�
!�?ݤdiv8_:�div_(8)��div_=1 div_(8)=�:�sI(DivCard_%,"div8"):=�
!��div_(8)div_(8)=��div_(8)=�
!�=�
!�?ݤdiv9_:�div_(9)��div_=1 div_(9)=�:�sI(DivCard_%,"div9"):=�
!��div_(9)div_(9)=��div_(9)=�
!�=�
!�Nݤdive1_:�dive_(1)�dive_(2)+dive_(3)=�dive_(1)=�:�sI(DivCard_%,"dive1"):=�
!�;�dive_(1)=�dive_(1)=��dive_(1)=�:�sI(DivCard_%,"dive1")
!�=�
!�Pݤdive2_:�dive_(2)=��dive_(1)+dive_(3)=�dive_(2)=�:�sI(DivCard_%,"dive2"):=�
!�;�dive_(2)=�dive_(2)=��dive_(2)=�:�sI(DivCard_%,"dive2")
!�=�
"Pݤdive3_:�dive_(3)=��dive_(1)+dive_(2)=�dive_(3)=�:�sI(DivCard_%,"dive3"):=�
";�dive_(3)=�dive_(3)=��dive_(3)=�:�sI(DivCard_%,"dive3")
"=�
"B�ݤDivcGo_:�GetTitles:dummy_=�(-�):�whatlines_:�whatqual:�whatequals:�whatdiv:�calcdiv:last_=3:quit_=�:Clue_$="CardsDiv":started_%=�:�usI(DivCard_%,"DivcGo"):=�sums
"�|��calcdiv:ș"Hourglass_On":�tr_%=1�10:�:flag_=0:ș"Hourglass_Percentage",tr_%/10*100:Na_%=�(10):Nb_%=Nb_%(tr_%):�tr_%>1�
"�7�e_%=1�tr_%-1:�Na_%=Na_%(e_%)�Nb_%=Nb_%(e_%)flag_=1
"��
"�r�:�flag_=0:tempa_(tr_%)=Na_%:�:�r_=1�10:Na_%(r_)=tempa_(r_)*Nb_%(r_):Nc_%(r_)=tempa_(r_):�:ș"Hourglass_Off":�
#Z��whatdiv:ș"Hourglass_On":got_%=0:�r_%=1�9:�div_(r_%)=��got_%=got_%+1:gc_%(got_%)=r_%
#()�:�got_%=1�onediv:ș"Hourglass_Off":�
#<[�got_%>4�times(got_%,10):�r_=1�10:Nb_%(r_)=�(div_$(finder_%(r_))):�:ș"Hourglass_Off":�
#Fgneeded_%=10�got_%:�r_=1�10:gc_%(r_)=0:�:got_%=0:�r_%=1�9:�div_(r_%)=��got_%=got_%+1:gc_%(got_%)=r_%
#d��:�:flag_=�:�r_=1�10:finder_%(r_)=0:�:�r_=1�10:ș"Hourglass_Percentage",r_/10*100:ran_%=�(got_%):Nb_%(r_)=�(div_$(gc_%(ran_%))):finder_%(ran_%)=finder_%(ran_%)+1:�:�t_=1�got_%:�finder_%(t_)<needed_% flag_=�
#�"�:�flag_=�:ș"Hourglass_Off":�
#�H��onediv:�r_%=1�9:�div_(r_%)=���tr_%=1�10:Nb_%(tr_%)=�(div_$(r_%)):�
#��:�
$8��Add:WAdd_%=�fWS("Add"):�addy_(1)�sI(WAdd_%,"Add1")
$,�addy_(2)�sI(WAdd_%,"Add2")
$6�addy_(3)�sI(WAdd_%,"Add3")
$@�addy_(4)�sI(WAdd_%,"Add4")
$J�addy_(5)�sI(WAdd_%,"Add5")
$T�addy_(6)�sI(WAdd_%,"Add6")
$^(�addcarry_(1)�sI(WAdd_%,"AddCarry1")
$h(�addcarry_(2)�sI(WAdd_%,"AddCarry2")
$r(�addcarry_(3)�sI(WAdd_%,"AddCarry3")
$|!�Anowts_%�sI(WAdd_%,"Anowts")
$��
$�>ݤAnowts_:�addcarry_(2)Anowts_%=�:�usI(WAdd_%,"Anowts"):=�
$�$�Anowts_%=�Anowts_%=��Anowts_%=�
$��Acz:=�
$�=��Acz:�addy_(1)��addy_=1 Anowts_%=�:�usI(WAdd_%,"Anowts")
$��
$�*ݤaddy_:c_=0:�t_=1�6:�addy_(t_)c_=c_+1
$�	�:=c_
%?ݤAdd1_:�addy_(1)��addy_=1 addy_(1)=�:�sI(WAdd_%,"Add1"):=�
%"�addy_(1)addy_(1)=��addy_(1)=�
%�Acz:=�
%&?ݤAdd2_:�addy_(2)��addy_=1 addy_(2)=�:�sI(WAdd_%,"Add2"):=�
%0"�addy_(2)addy_(2)=��addy_(2)=�
%:�Acz:=�
%D?ݤAdd3_:�addy_(3)��addy_=1 addy_(3)=�:�sI(WAdd_%,"Add3"):=�
%N"�addy_(3)addy_(3)=��addy_(3)=�
%X�Acz:=�
%b?ݤAdd4_:�addy_(4)��addy_=1 addy_(4)=�:�sI(WAdd_%,"Add4"):=�
%l"�addy_(4)addy_(4)=��addy_(4)=�
%v�Acz:=�
%�?ݤAdd5_:�addy_(5)��addy_=1 addy_(5)=�:�sI(WAdd_%,"Add5"):=�
%�"�addy_(5)addy_(5)=��addy_(5)=�
%��Acz:=�
%�?ݤAdd6_:�addy_(6)��addy_=1 addy_(6)=�:�sI(WAdd_%,"Add6"):=�
%�"�addy_(6)addy_(6)=��addy_(6)=�
%��Acz:=�
%�cݤAddCarry1_:�addcarry_(1)�addcarry_(2)+addcarry_(3)=�addcarry_(1)=�:�sI(WAdd_%,"AddCarry1"):=�
%Ќ�addcarry_(1)=�addcarry_(1)=�:�sI(WAdd_%,"AddCarry1"):addcarry_(2)=�:�usI(WAdd_%,"AddCarry2"):addcarry_(3)=�:�usI(WAdd_%,"AddCarry3"):=�
%�cݤAddCarry2_:�addcarry_(2)�addcarry_(1)+addcarry_(3)=�addcarry_(2)=�:�sI(WAdd_%,"AddCarry2"):=�
%��addcarry_(2)=�addcarry_(2)=�:�sI(WAdd_%,"AddCarry2"):addcarry_(1)=�:�usI(WAdd_%,"AddCarry1"):addcarry_(3)=�:�usI(WAdd_%,"AddCarry3"):Anowts_%=�:�usI(WAdd_%,"Anowts"):=�
%�cݤAddCarry3_:�addcarry_(3)�addcarry_(1)+addcarry_(2)=�addcarry_(3)=�:�sI(WAdd_%,"AddCarry3"):=�
%���addcarry_(3)=�addcarry_(3)=�:�sI(WAdd_%,"AddCarry3"):addcarry_(1)=�:�usI(WAdd_%,"AddCarry1"):addcarry_(2)=�:�usI(WAdd_%,"AddCarry2"):=�
&
& �ݤAddgo_:�GetTitles:many_=12:�whatadds:�addup:started_%=�:�usI(WAdd_%,"Addgo"):ș"Hourglass_Off":last_=3:quit_=�:Clue_$="Add1a":=�sums
&RY��whatadds:got_%=0:�r_=1�6:�addy_(r_)got_%=got_%+1:addytype_(got_%)=r_:gc_%(got_%)=r_
&f9�:�got_%=1�r_=1�12:lineaddy_(r_)=addytype_(got_%):�:�
&z\�got_%=6�times(got_%,12):�r_=1�12:lineaddy_(r_)=gc_%(finder_%(r_)):�:ș"Hourglass_Off":�
&��needed_%=12�got_%:ș"Hourglass_On":�:�r_=1�12:finder_%(r_)=0:�:flag_=�:�r_=1�12:ș"Hourglass_Percentage",r_/12*100:�:flig_=�:ran_%=�(got_%):�r_>1�gc_%(ran_%)=lineaddy_(r_-1)flig_=�
&�u�flig_=�:lineaddy_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:�:�t_=1�got_%:�finder_%(t_)<needed_% flag_=�
'"�:�flag_=�:ș"Hourglass_Off":�
'.j��addup:dummy_=�(-�):�t_=1�12:a_(t_)=-1:b_(t_)=-1:�:ș"Hourglass_On":�t_=1�12:�lineaddy_(t_)=1 ran_%=9
'`�lineaddy_(t_)=2 ran_%=99
'j�lineaddy_(t_)=3 ran_%=999
't�lineaddy_(t_)=4 ran_%=9999
'~ �lineaddy_(t_)=5 ran_%=99999
'�!�lineaddy_(t_)=6 ran_%=999999
'�[ș"Hourglass_Percentage",t_/10*100:�:flag_=0:a_=�(ran_%):b_=�(ran_%):�Anowts_%�Anoughts
'��addcarry_(1)�noaddcarry
'��addcarry_(2)�alladdcarry
'�
�t_>1�
'�*�e_=1�t_-1:�a_=a_(e_)�b_=b_(e_)flag_=1
'��
'�3�:�flag_=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_+b_:�:�
(��Anoughts:n_=�(2):�n_=1�
(<Ev_$=�(a_):�w_=2��(v_$):rr_=�(4):�rr_=1�rr_=2�rr_=3��v_$,w_,1)="0"
(P�:a_=�(v_$)
(Z�:�n_=2�
(nEv_$=�(b_):�w_=2��(v_$):rr_=�(4):�rr_=1�rr_=2�rr_=3��v_$,w_,1)="0"
(��:b_=�(v_$)
(��:�
(�Q��noaddcarry:a_$=�(a_):b_$=�(b_):la_=�(a_$):lb_=�(b_$):z_=la_:�lb_<la_ z_=lb_
(�6�r_=z_�1�-1:�(�a_$,r_,1))+�(�b_$,r_,1))>9 flag_=1
(��:�
(�R��alladdcarry:a_$=�(a_):b_$=�(b_):la_=�(a_$):lb_=�(b_$):z_=la_:�lb_>la_ z_=lb_
(�7�r_=z_�1�-1:�(�a_$,r_,1))+�(�b_$,r_,1))<10 flag_=1
(��:�
)6D��subtract:WSub_%=�fWS("Subtract"):�subby_(1)�sI(WSub_%,"Take1")
)J!�subby_(2)�sI(WSub_%,"Take2")
)T!�subby_(3)�sI(WSub_%,"Take3")
)^!�subby_(4)�sI(WSub_%,"Take4")
)h!�subby_(5)�sI(WSub_%,"Take5")
)r!�subby_(6)�sI(WSub_%,"Take6")
)|(�subcarry_(1)�sI(WSub_%,"SubCarry1")
)�(�subcarry_(2)�sI(WSub_%,"SubCarry2")
)�(�subcarry_(3)�sI(WSub_%,"SubCarry3")
)��nowts_%�sI(WSub_%,"nowts")
)��
)�.ݤsubby_:c_=0:�m_=1�6:�subby_(m_)=�c_=c_+1
)�	�:=c_
)�HݤTake1_:�subby_(1)��subby_=1 subby_(1)=�:�sI(WSub_%,"Take1"):�cz:=�
)�%�subby_(1)subby_(1)=��subby_(1)=�
)�
�cz:=�
)�HݤTake2_:�subby_(2)��subby_=1 subby_(2)=�:�sI(WSub_%,"Take2"):�cz:=�
*%�subby_(2)subby_(2)=��subby_(2)=�
*
�cz:=�
*HݤTake3_:�subby_(3)��subby_=1 subby_(3)=�:�sI(WSub_%,"Take3"):�cz:=�
*&%�subby_(3)subby_(3)=��subby_(3)=�
*0
�cz:=�
*:HݤTake4_:�subby_(4)��subby_=1 subby_(4)=�:�sI(WSub_%,"Take4"):�cz:=�
*D%�subby_(4)subby_(4)=��subby_(4)=�
*N
�cz:=�
*XHݤTake5_:�subby_(5)��subby_=1 subby_(5)=�:�sI(WSub_%,"Take5"):�cz:=�
*b%�subby_(5)subby_(5)=��subby_(5)=�
*l
�cz:=�
*vHݤTake6_:�subby_(6)��subby_=1 subby_(6)=�:�sI(WSub_%,"Take6"):�cz:=�
*�%�subby_(6)subby_(6)=��subby_(6)=�
*�
�cz:=�
*�gݤSubCarry1_:�subcarry_(1)�subcarry_(2)+subcarry_(3)=�subcarry_(1)=�:�sI(WSub_%,"SubCarry1"):�cz:=�
*���subcarry_(1)=�subcarry_(1)=�:�sI(WSub_%,"SubCarry1"):subcarry_(2)=�:�usI(WSub_%,"SubCarry2"):subcarry_(3)=�:�usI(WSub_%,"SubCarry3"):nowts_%=�:�usI(WSub_%,"nowts"):�cz:=�
*�gݤSubCarry2_:�subcarry_(2)�subcarry_(1)+subcarry_(3)=�subcarry_(2)=�:�sI(WSub_%,"SubCarry2"):�cz:=�
*���subcarry_(2)=�subcarry_(2)=�:�sI(WSub_%,"SubCarry2"):subcarry_(1)=�:�usI(WSub_%,"SubCarry1"):subcarry_(3)=�:�usI(WSub_%,"SubCarry3"):�cz:=�
*�gݤSubCarry3_:�subcarry_(3)�subcarry_(2)+subcarry_(3)=�subcarry_(3)=�:�sI(WSub_%,"SubCarry3"):�cz:=�
*А�subcarry_(3)=�subcarry_(3)=�:�sI(WSub_%,"SubCarry3"):subcarry_(1)=�:�usI(WSub_%,"SubCarry1"):subcarry_(2)=�:�usI(WSub_%,"SubCarry2"):�cz:=�
*�
*�;ݤnowts_:�subcarry_(1)nowts_%=�:�usI(WSub_%,"nowts"):=�
*�T�nowts_%=�nowts_%=�:�sI(WSub_%,"nowts")��nowts_%=�nowts_%=�:�usI(WSub_%,"nowts")
*�
�cz:=�
+/��cz:z_%=0:�g_%=1�6:�subby_(g_%)=�z_%=z_%+1
+��:�z_%=1�subby_(1)=�nowts_%=�:�usI(WSub_%,"nowts"):subcarry_(1)=�:�sI(WSub_%,"SubCarry1"):subcarry_(2)=�:�usI(WSub_%,"SubCarry2"):subcarry_(3)=�:�usI(WSub_%,"SubCarry3")
+ �
+H�ݤTakego_:�GetTitles:�whattakes:�takeup:last_=3:quit_=�:Clue_$="Sub1a":started_%=�:ș"Hourglass_Off":�usI(WSub_%,"Takego"):=�sums
+�\��whattakes:got_%=0:�r_=1�6:�subby_(r_)got_%=got_%+1:subbytype_(got_%)=r_:gc_%(got_%)=r_
+�;�:�got_%=1�r_=1�12:linesubby_(r_)=subbytype_(got_%):�:�
+�]�got_%=6�times(got_%,12):�r_=1�12:linesubby_(r_)=gc_%(finder_%(r_)):�:ș"Hourglass_Off":�
+��needed_%=12�got_%:�:�r_=1�12:finder_%(r_)=0:�:flag_=�:�r_=1�12:ș"Hourglass_Percentage",r_/12*100:�:flig_=�:ran_%=�(got_%):�r_>1�gc_%(ran_%)=linesubby_(r_-1)flig_=�
,$v�flig_=�:linesubby_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:�:�t_=1�got_%:�finder_%(t_)<needed_% flag_=�
,B"�:�flag_=�:ș"Hourglass_Off":�
,`l��takeup:dummy_=�(-�):�t_=1�12:a_(t_)=-1:b_(t_)=-1:�:ș"Hourglass_On":�t_=1�12:�linesubby_(t_)=1 ran_%=9
,��linesubby_(t_)=2 ran_%=99
,��linesubby_(t_)=3 ran_%=999
,� �linesubby_(t_)=4 ran_%=9999
,�!�linesubby_(t_)=5 ran_%=99999
,�"�linesubby_(t_)=6 ran_%=999999
,�uș"Hourglass_Percentage",t_/10*100:�:flag_=0:�:a_=�(ran_%):�noughts:b_=�(ran_%):�a_>b_:�subcarry_(1)=��nosubcarry
,��subcarry_(2)=��allsubcarry
-
�t_>1�
-
*�e_=1�t_-1:�a_=a_(e_)�b_=b_(e_)flag_=1
-�
-3�:�flag_=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_-b_:�:�
-Z@��nosubcarry:a_$=�(a_):b_$=�(b_):�r_=1��(a_$):�checkvall:�:�
-�M��allsubcarry:a_$=�(a_):b_$=�(b_):zz_=�(a_$):�r_=zz_�1�-1:�r_<>1�checkval
-��:�
-�3��checkval:�(�b_$,r_,1))<=�(�a_$,r_,1))flag_=1
-��
-�4��checkvall:�(�a_$,r_,1))<=�(�b_$,r_,1))flag_=1
-��
-���noughts:�nowts_%=��
-�Ev_$=�(a_):�w_=2��(v_$):rr_=�(4):�rr_=1�rr_=2�rr_=3��v_$,w_,1)="0"
.�:a_=�(v_$):�
.JG��multiply:WMult_%=�fWS("Multiply"):�multy_(1)�sI(WMult_%,"Multy1")
.^#�multy_(2)�sI(WMult_%,"Multy2")
.h#�multy_(3)�sI(WMult_%,"Multy3")
.r#�multy_(4)�sI(WMult_%,"Multy4")
.|#�multy_(5)�sI(WMult_%,"Multy5")
.�#�multy_(6)�sI(WMult_%,"Multy6")
.�!�mult_(1)�sI(WMult_%,"mult1")
.�!�mult_(2)�sI(WMult_%,"mult2")
.�!�mult_(3)�sI(WMult_%,"mult3")
.�!�mult_(4)�sI(WMult_%,"mult4")
.�!�mult_(5)�sI(WMult_%,"mult5")
.�!�mult_(6)�sI(WMult_%,"mult6")
.�!�mult_(7)�sI(WMult_%,"mult7")
.�!�mult_(8)�sI(WMult_%,"mult8")
.�!�mult_(9)�sI(WMult_%,"mult9")
.�"�Mnowts_%�sI(WMult_%,"Mnowts")
.��
/.ݤMnowts_:�Mnowts_%=�Mnowts_%=��Mnowts_%=�
/&�Mcz:=�
/:@��Mcz:�multy_(1)��multy_=1 Mnowts_%=�:�usI(WMult_%,"Mnowts")
/D�
/X.ݤmulty_:c_=0:�m_=1�6:�multy_(m_)=�c_=c_+1
/b	�:=c_
/lGݤMulty1_:�multy_(1)��multy_=1 multy_(1)=�:�sI(WMult_%,"Multy1"):=�
/v%�multy_(1)multy_(1)=��multy_(1)=�
/��Mcz:=�
/�GݤMulty2_:�multy_(2)��multy_=1 multy_(2)=�:�sI(WMult_%,"Multy2"):=�
/�%�multy_(2)multy_(2)=��multy_(2)=�
/��Mcz:=�
/�GݤMulty3_:�multy_(3)��multy_=1 multy_(3)=�:�sI(WMult_%,"Multy3"):=�
/�%�multy_(3)multy_(3)=��multy_(3)=�
/��Mcz:=�
/�GݤMulty4_:�multy_(4)��multy_=1 multy_(4)=�:�sI(WMult_%,"Multy4"):=�
/�%�multy_(4)multy_(4)=��multy_(4)=�
/��Mcz:=�
/�GݤMulty5_:�multy_(5)��multy_=1 multy_(5)=�:�sI(WMult_%,"Multy5"):=�
/�%�multy_(5)multy_(5)=��multy_(5)=�
/��Mcz:=�
0GݤMulty6_:�multy_(6)��multy_=1 multy_(6)=�:�sI(WMult_%,"Multy6"):=�
0%�multy_(6)multy_(6)=��multy_(6)=�
0�Mcz:=�
0 ,ݤmult_:c_=0:�m_=1�9:�mult_(m_)=�c_=c_+1
0*	�:=c_
04Aݤmult1_:�mult_(1)��mult_=1mult_(1)=�:�sI(WMult_%,"mult1"):=�
0>"�mult_(1)mult_(1)=��mult_(1)=�
0H=�
0RBݤmult2_:�mult_(2)��mult_=1 mult_(2)=�:�sI(WMult_%,"mult2"):=�
0\"�mult_(2)mult_(2)=��mult_(2)=�
0f=�
0pBݤmult3_:�mult_(3)��mult_=1 mult_(3)=�:�sI(WMult_%,"mult3"):=�
0z"�mult_(3)mult_(3)=��mult_(3)=�
0�=�
0�Bݤmult4_:�mult_(4)��mult_=1 mult_(4)=�:�sI(WMult_%,"mult4"):=�
0�"�mult_(4)mult_(4)=��mult_(4)=�
0�=�
0�Bݤmult5_:�mult_(5)��mult_=1 mult_(5)=�:�sI(WMult_%,"mult5"):=�
0�"�mult_(5)mult_(5)=��mult_(5)=�
0�=�
0�Bݤmult6_:�mult_(6)��mult_=1 mult_(6)=�:�sI(WMult_%,"mult6"):=�
0�"�mult_(6)mult_(6)=��mult_(6)=�
0�=�
0�Bݤmult7_:�mult_(7)��mult_=1 mult_(7)=�:�sI(WMult_%,"mult7"):=�
0�"�mult_(7)mult_(7)=��mult_(7)=�
0�=�
1Bݤmult8_:�mult_(8)��mult_=1 mult_(8)=�:�sI(WMult_%,"mult8"):=�
1"�mult_(8)mult_(8)=��mult_(8)=�
1=�
1$Bݤmult9_:�mult_(9)��mult_=1 mult_(9)=�:�sI(WMult_%,"mult9"):=�
1."�mult_(9)mult_(9)=��mult_(9)=�
18=�
1`�ݤMultygo_:�GetTitles:dummy_=�(-�):�whatmultlines:�whatmult:�calcmult:last_=3:quit_=�:Clue_$="Multy":started_%=�:�usI(WMult_%,"Multygo"):ș"Hourglass_Off":=�sums
1�`��whatmultlines:got_%=0:�r_=1�6:�multy_(r_)got_%=got_%+1:multytype_(got_%)=r_:gc_%(got_%)=r_
1�;�:�got_%=1�r_=1�12:linemulty_(r_)=multytype_(got_%):�:�
1�]�got_%=6�times(got_%,12):�r_=1�12:linemulty_(r_)=gc_%(finder_%(r_)):�:ș"Hourglass_Off":�
1Ĺneeded_%=12�got_%:ș"Hourglass_On":�:�r_=1�12:finder_%(r_)=0:�:flag_=�:�r_=1�12:ș"Hourglass_Percentage",r_/12*100:�:flig_=�:ran_%=�(got_%):�r_>1�gc_%(ran_%)=linemulty_(r_-1)flig_=�
2(v�flig_=�:linemulty_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:�:�t_=1�got_%:�finder_%(t_)<needed_% flag_=�
2F"�:�flag_=�:ș"Hourglass_Off":�
2d<��calcmult:�mult_=1��multy_=1�multy_(1)many_=9�many_=12
2xAș"Hourglass_On":�t_=1�many_:�linemulty_(t_)=1 ran_%=9:rn_%=0
2�%�linemulty_(t_)=2 ran_%=99:rn_%=9
2�'�linemulty_(t_)=3 ran_%=999:rn_%=99
2�)�linemulty_(t_)=4 ran_%=9999:rn_%=999
2�+�linemulty_(t_)=5 ran_%=99999:rn_%=9999
2�-�linemulty_(t_)=6 ran_%=999999:rn_%=99999
2�Zș"Hourglass_Percentage",t_/12*100:�:flag_=0:�:a_=�(ran_%):�a_>rn_%:b_=Nb_%(t_):�t_>1�
2�*�e_=1�t_-1:�a_=a_(e_)�b_=b_(e_)flag_=1
2��
3�:�Mnowts_%�Mnoughts
3O�flag_=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:�:started_%=�:ș"Hourglass_Off":�
3JP��Mnoughts:v_$=�(a_):�w_=2��(v_$):rr_=�(4):�rr_=1�rr_=2�rr_=3��v_$,w_,1)="0"
3^�:a_=�(v_$):�
3rK��onemult:�r_%=1�9:�mult_(r_%)=���tr_%=1�12:Nb_%(tr_%)=�(mult_$(r_%)):�
3|�:�
3�`��whatmult:�r_=1�12:gc_%(r_)=0:�:got_%=0:�r_%=1�9:�mult_(r_%)=�got_%=got_%+1:gc_%(got_%)=r_%
3��:�got_%=1�onemult:�
3�J�got_%>5�times(got_%,12):�r_=1�12:Nb_%(r_)=�(mult_$(finder_%(r_))):�:�
3��ș"Hourglass_On":needed_%=12�got_%:�:flag_=�:�r_=1�12:finder_%(r_)=0:�:�r_=1�12:ș"Hourglass_Percentage",r_/12*100:ran_%=�(got_%):Nb_%(r_)=�(mult_$(gc_%(ran_%))):finder_%(ran_%)=finder_%(ran_%)+1:�
4.�t_=1�got_%:�finder_%(t_)<needed_% flag_=�
4&"�:�flag_=�:ș"Hourglass_Off":�
4b>��Divide:WDiv_%=�fWS("Divide"):�dvy_(1)�sI(WDiv_%,"Divy1")
4��dvy_(2)�sI(WDiv_%,"Divy2")
4��dvy_(3)�sI(WDiv_%,"Divy3")
4��dvy_(4)�sI(WDiv_%,"Divy4")
4��dvy_(5)�sI(WDiv_%,"Divy5")
4��dv_(1)�sI(WDiv_%,"dv1")
4��dv_(2)�sI(WDiv_%,"dv2")
4��dv_(3)�sI(WDiv_%,"dv3")
4��dv_(4)�sI(WDiv_%,"dv4")
4��dv_(5)�sI(WDiv_%,"dv5")
4��dv_(6)�sI(WDiv_%,"dv6")
4��dv_(7)�sI(WDiv_%,"dv7")
4��dv_(8)�sI(WDiv_%,"dv8")
4��dv_(9)�sI(WDiv_%,"dv9")
5!�Dnowts_%�sI(WDiv_%,"Dnowts")
5�remainders:�
54.ݤDnowts_:�Dnowts_%=�Dnowts_%=��Dnowts_%=�
5>�Dcz:=�
5R:��Dcz:�dvy_(1)��dvy=1 Dnowts_%=�:�usI(WDiv_%,"Dnowts")
5\�
5p_��remainders:�Remainder_$="No"�sI(WDiv_%,"Drem1"):�usI(WDiv_%,"Drem2"):�usI(WDiv_%,"Drem3")
5�S�Remainder_$="All"�sI(WDiv_%,"Drem2"):�usI(WDiv_%,"Drem1"):�usI(WDiv_%,"Drem3")
5�S�Remainder_$="Ran"�sI(WDiv_%,"Drem3"):�usI(WDiv_%,"Drem1"):�usI(WDiv_%,"Drem2")
5��
5�,ݤDrem1_:Remainder_$="No":�remainders:=�
5�-ݤDrem2_:Remainder_$="All":�remainders:=�
5�-ݤDrem3_:Remainder_$="Ran":�remainders:=�
5�)ݤdvy:c_=0:�h_=1�5:�dvy_(h_)=�c_=c_+1
5�	�:=c_
5�=ݤDivy1_:�dvy_(1)��dvy=1 dvy_(1)=�:�sI(WDiv_%,"Divy1"):=�
5��dvy_(1)dvy_(1)=��dvy_(1)=�
6�Dcz:=�
6=ݤDivy2_:�dvy_(2)��dvy=1 dvy_(2)=�:�sI(WDiv_%,"Divy2"):=�
6$�dvy_(2)dvy_(2)=��dvy_(2)=�
6.�Dcz:=�
68=ݤDivy3_:�dvy_(3)��dvy=1 dvy_(3)=�:�sI(WDiv_%,"Divy3"):=�
6L�dvy_(3)dvy_(3)=��dvy_(3)=�
6V�Dcz:=�
6`=ݤDivy4_:�dvy_(4)��dvy=1 dvy_(4)=�:�sI(WDiv_%,"Divy4"):=�
6t�dvy_(4)dvy_(4)=��dvy_(4)=�
6~�Dcz:=�
6�=ݤDivy5_:�dvy_(5)��dvy=1 dvy_(5)=�:�sI(WDiv_%,"Divy5"):=�
6��dvy_(5)dvy_(5)=��dvy_(5)=�
6��Dcz:=�
6�'ݤdv:c_=0:�h_=1�9:�dv_(h_)=�c_=c_+1
6�	�:=c_
6�6ݤdv1_:�dv_(1)��dv=1 dv_(1)=�:�sI(WDiv_%,"dv1"):=�
6��dv_(1)dv_(1)=��dv_(1)=�
6�=�
6�6ݤdv2_:�dv_(2)��dv=1 dv_(2)=�:�sI(WDiv_%,"dv2"):=�
7�dv_(2)dv_(2)=��dv_(2)=�
7
=�
76ݤdv3_:�dv_(3)��dv=1 dv_(3)=�:�sI(WDiv_%,"dv3"):=�
7(�dv_(3)dv_(3)=��dv_(3)=�
72=�
7<6ݤdv4_:�dv_(4)��dv=1 dv_(4)=�:�sI(WDiv_%,"dv4"):=�
7P�dv_(4)dv_(4)=��dv_(4)=�
7Z=�
7d6ݤdv5_:�dv_(5)��dv=1 dv_(5)=�:�sI(WDiv_%,"dv5"):=�
7x�dv_(5)dv_(5)=��dv_(5)=�
7�=�
7�6ݤdv6_:�dv_(6)��dv=1 dv_(6)=�:�sI(WDiv_%,"dv6"):=�
7��dv_(6)dv_(6)=��dv_(6)=�
7�=�
7�6ݤdv7_:�dv_(7)��dv=1 dv_(7)=�:�sI(WDiv_%,"dv7"):=�
7��dv_(7)dv_(7)=��dv_(7)=�
7�=�
7�6ݤdv8_:�dv_(8)��dv=1 dv_(8)=�:�sI(WDiv_%,"dv8"):=�
7��dv_(8)dv_(8)=��dv_(8)=�
7�=�
86ݤdv9_:�dv_(9)��dv=1 dv_(9)=�:�sI(WDiv_%,"dv9"):=�
8�dv_(9)dv_(9)=��dv_(9)=�
8"=�
8J�ݤDivyGo_:�GetTitles:dummy_=�(-�):�whatdivline:�whatdivy:�calcdivy:last_=3:quit_=�:Clue_$="Divy":started_%=�:ș"Hourglass_Off":�usI(WDiv_%,"DivyGo"):=�sums
8|\ݤsums:�gWx("Choices")�n_=�window("GrafIt"):n_=�window("Choices"):=��=�window("GrafIt")
8�
8�D��onedvy:�r_%=1�9:�dv_(r_%)��tr_%=1�12:Nb_%(tr_%)=�(dv_$(r_%)):�
8��:�
8�^��whatdivy:�r_=1�12:gc_%(r_)=0:�:got_%=0:�r_%=1�9:�dv_(r_%)=�got_%=got_%+1:gc_%(got_%)=r_%
8��:�got_%=1�onedvy:�
8�H�got_%>5�times(got_%,12):�r_=1�12:Nb_%(r_)=�(dv_$(finder_%(r_))):�:�
8�ș"Hourglass_On":needed_%=12�got_%:�:�r_=1�12:finder_%(r_)=0:�:flag_=�:�r_=1�12:ș"Hourglass_Percentage",r_/12*100:�:flig_=�:ran_%=�(got_%):Nb_%=�(dv_$(gc_%(ran_%))):�r_>1�
9�Nb_%=Nb_%(r_-1)flig_=�
9&{�:�flig_=�:Nb_%(r_)=�(dv_$(gc_%(ran_%))):finder_%(ran_%)=finder_%(ran_%)+1:�:�t_=1�got_%:�finder_%(t_)<needed_% flag_=�
9X"�:�flag_=�:ș"Hourglass_Off":�
9lG��whatdivline:got_%=0:�r_=1�5:�dvy_(r_)got_%=got_%+1:gc_%(got_%)=r_
9�4�:�got_%=1��r_=1�12:linedvy_(r_)=gc_%(got_%):�:�
9�]needed_%=12�got_%:�:flag_=�:�r_=1�12:�:flig_=�:ran_%=�(got_%):linedvy_=gc_%(ran_%):�r_>1�
9�#�linedvy_=linedvy_(r_-1)flig_=�
9�x�:�flig_=�:linedvy_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:�:�tr_=1�got_%:�finder_%(tr_)<needed_% flag_=�
:�:�flag_=�:�
:*P��Dnoughts:v_$=�(a_):�w_=2��(v_$):rr_=�(4):�rr_=1�rr_=2�rr_=3��v_$,w_,1)="0"
:>�:a_=�(v_$):�
:RJ��calcdivy:many_=12:tr_=�:�dvy=1��dv=1�dvy_(1)�Remainder_$="No" tr_=�
:f,�tr_�dv_(7)�tr_�dv_(8)�tr_�dv_(9)many_=9
:p@ș"Hourglass_On":�t_=1�many_:�linedvy_(t_)=1 ran_%=99:rn_%=9
:�%�linedvy_(t_)=2 ran_%=999:rn_%=99
:�'�linedvy_(t_)=3 ran_%=9999:rn_%=999
:�)�linedvy_(t_)=4 ran_%=99999:rn_%=9999
:�+�linedvy_(t_)=5 ran_%=999999:rn_%=99999
:�Cș"Hourglass_Percentage",t_/12*100:�:flag_=0:�Remainder_$="No"�
:�0�:a_=�(ran_%):b_=Nb_%(t_):�Dnowts_%�Dnoughts
:��a_�b_=0�a_>rn_%
:��:�Remainder_$="All"�remp
:��Remainder_$="Ran"�
;randy_=�(2):�randy_=1�
;0�:a_=�(ran_%):b_=Nb_%(t_):�Dnowts_%�Dnoughts
;.�a_�b_=0�a_>rn_%
;8�:�randy_=2�remp
;L�:�t_>1�
;j*�e_=1�t_-1:�a_=a_(e_)�b_=b_(e_)flag_=1
;t�
;~`�:�flag_=0:a_(t_)=a_:b_(t_)=b_:�a_�b_<>0 c_(t_)=a_�b_:rem_(t_)=a_�b_�c_(t_)=a_/b_:rem_(t_)=0
;�%�:started_%=�:ș"Hourglass_Off":�
;�A��remp:�:remflag=�:a_=�(ran_%):b_=Nb_%(t_):�Dnowts_%�Dnoughts
;�Gc_=a_/b_:poin_=0:c_$=�(c_):�cc_=1��(c_$):�c_$,cc_,1)="." poin_=cc_
<i�:cz_$=�c_$,poin_+1,�(c_$)-poin_+1):�(cz_$)>pwon_��cz_$,pwon_,1)="9"��(�cz_$,pwon_+1,1))>4 remflag=�
<E�a_�b_<>0�a_>rn_%�remflag=�:�(cz_$)>pwon_��(�cz_$,pwon_+1,1))>4�
<<=d_=�(�cz_$,pwon_,1)):d_=d_+1:d_$=�(d_):�cz_$,pwon_,1)=d_$
<P2�:�(cz_$)<pwon_ cz_$=cz_$+�pwon_-�(cz_$),"0")
<ncz_$(t_)=�cz_$,1,pwon_):�
<�L��Magic:Magic_%=�fWS("Magic"):�MagRange_$="1 to 25"�sI(Magic_%,"Range1")
<�/�MagRange_$="25 to 50"�sI(Magic_%,"Range2")
<�0�MagRange_$="50 to 100"�sI(Magic_%,"Range3")
<�2�MagRange_$="100 to 1000"�sI(Magic_%,"Range4")
<��
=;ݤRange1_:�MagRange_$="1 to 25"�sI(Magic_%,"Range1"):=�
=`MagRange_$="1 to 25":�usI(Magic_%,"Range2"):�usI(Magic_%,"Range3"):�usI(Magic_%,"Range4"):=�
=6<ݤRange2_:�MagRange_$="25 to 50"�sI(Magic_%,"Range2"):=�
=@aMagRange_$="25 to 50":�usI(Magic_%,"Range1"):�usI(Magic_%,"Range3"):�usI(Magic_%,"Range4"):=�
=^=ݤRange3_:�MagRange_$="50 to 100"�sI(Magic_%,"Range3"):=�
=hbMagRange_$="50 to 100":�usI(Magic_%,"Range1"):�usI(Magic_%,"Range2"):�usI(Magic_%,"Range4"):=�
=�?ݤRange4_:�MagRange_$="100 to 1000"�sI(Magic_%,"Range4"):=�
=�dMagRange_$="100 to 1000":�usI(Magic_%,"Range1"):�usI(Magic_%,"Range2"):�usI(Magic_%,"Range3"):=�
=�YݤMag1_:Mag_=�:�usI(Magic_%,"Mag1"):last_=3:quit_=�:Clue_$="Magic":started_%=�:=�sums
=�'��Mag1:dummy_=�(-�):�Mag_=��prepare
>�left_=X%+60:startleft_=left_:origleft_=left_:on_=90:down_=Y%-140:origdown_=down_:startdown_=down_:side_=75:s_=0:number_=0:�qq_=1�3:�ww_=1�3:number_=number_+1:�left_-40,down_:��(number_)+")":t_=0:�boxes:down_=startdown_
>l�startleft_=startleft_+side_*3+on_:left_=startleft_:�:startleft_=origleft_:left_=startleft_:startdown_=startdown_-side_*3-on_+70:down_=startdown_:�:Mag_=�:�
>����boxes:s_=s_+1:�q_=1�3:�w_=1�3:t_=t_+1:�left_,down_:�left_+side_,down_:�left_+side_,down_-side_:�left_,down_-side_:�left_,down_:ins_=8:a_$=�(magic_(s_,t_)):�Answer_%=��magicans
?Z�pat_$(pattern_(s_)),t_,1)="1"�left_+side_/2-�(a_$)/2*16,down_-side_/2+12:�zero(a_$)
? >left_=left_+side_:�:left_=startleft_:down_=down_-side_:�:�
?H���magicans:�pat_$(pattern_(s_)),t_,1)="0"�left_+ins_,down_-ins_:�left_+side_-ins_,down_-ins_:�left_+side_-ins_,down_-side_+ins_:�left_+ins_,down_-side_+ins_:�left_+ins_,down_-ins_
?\Z�pat_$(pattern_(s_)),t_,1)="0"�left_+side_/2-�(a_$)/2*16,down_-side_/2+12:�zero(a_$)
?f�
?z���prepare:pat_$(1)="001011001":pat_$(2)="001010110":pat_$(3)="110100100":pat_$(4)="000010111":pat_$(5)="111000100":pat_$(6)="100010101":bas_$(1)="294753618":bas_$(2)="816357492":bas_$(3)="492357816"
?��bas_$(4)="618753294":bas_$(5)="294753618":bas_$(6)="816357492":bas_$(7)="492357816":bas_$(8)="618753294":bas_$(9)="294753618":�f_=1�9:pattern_(f_)=-1:�:�f_=1�9:�:flag_=0:pattern_=�(6):�f_>1�f_<7�
?�+�j_=1�f_:�pattern_(j_)=pattern_ flag_=1
?��
@U�:�flag_=0:pattern_(f_)=pattern_:�:�MagRange_$="1 to 25"�toprange_=25:botrange_=0
@84�MagRange_$="25 to 50"�toprange_=50:botrange_=24
@B6�MagRange_$="50 to 100"�toprange_=100:botrange_=49
@L9�MagRange_$="100 to 1000"�toprange_=1000:botrange_=99
@Vp�f_=1�9:baa_(f_)=-1:�:�f_=1�9:�:flag_=0:�:baa_=�(toprange_)-9:�baa_>botrange_:�j_=1�9:�baa_(j_)=baa_ flag_=1
@���:�flag_=0:baa_(f_)=baa_:�:�q_=1�9:n_=0:�w_=1�9:n_=n_+1:�y_=1�9:bas_(y_)=�(�bas_$(q_),y_,1))+baa_(q_)-1:�:magic_(q_,w_)=bas_(n_):�:�:�
AZD��Sadd:Sad_%=�fWS("Sadd"):�f_(1)�sI(Sad_%,"F1")��usI(Sad_%,"F1")
An*�f_(2)�sI(Sad_%,"F2")��usI(Sad_%,"F2")
Ax*�f_(3)�sI(Sad_%,"F3")��usI(Sad_%,"F3")
A�*�f_(4)�sI(Sad_%,"F4")��usI(Sad_%,"F4")
A�*�f_(5)�sI(Sad_%,"F5")��usI(Sad_%,"F5")
A�*�f_(6)�sI(Sad_%,"F6")��usI(Sad_%,"F6")
A�*�f_(7)�sI(Sad_%,"F7")��usI(Sad_%,"F7")
A�*�f_(8)�sI(Sad_%,"F8")��usI(Sad_%,"F8")
A�*�f_(9)�sI(Sad_%,"F9")��usI(Sad_%,"F9")
A�-�f_(10)�sI(Sad_%,"F10")��usI(Sad_%,"F10")
A�-�f_(11)�sI(Sad_%,"F11")��usI(Sad_%,"F11")
A�-�f_(12)�sI(Sad_%,"F12")��usI(Sad_%,"F12")
A�?�Sadcarry_(1)�sI(Sad_%,"SadCarry1")��usI(Sad_%,"SadCarry1")
A�?�Sadcarry_(2)�sI(Sad_%,"SadCarry2")��usI(Sad_%,"SadCarry2")
A�?�Sadcarry_(3)�sI(Sad_%,"SadCarry3")��usI(Sad_%,"SadCarry3")
A�7�Fracadd_�sI(Sad_%,"Fracadd")��usI(Sad_%,"Fracadd")
B:�Fractake_�sI(Sad_%,"Fractake")��usI(Sad_%,"Fractake")
B4�addoms_�sI(Sad_%,"addoms")��usI(Sad_%,"addoms")
B7�AddReps_�sI(Sad_%,"AddReps")��usI(Sad_%,"AddReps")
B"7�subdoms_�sI(Sad_%,"subdoms")��usI(Sad_%,"subdoms")
B,7�SubReps_�sI(Sad_%,"SubReps")��usI(Sad_%,"SubReps")
B6�
B^3ݤFracadd_:�Fractake_=���sI(Sad_%,"Fracadd"):=�
Bh�Fracadd_�
Br�Fracadd_=�:�usI(Sad_%,"Fracadd"):addoms_=�:�usI(Sad_%,"addoms"):Sadcarry_(1)=�:�usI(Sad_%,"SadCarry1"):Sadcarry_(2)=�:�usI(Sad_%,"SadCarry2"):Sadcarry_(3)=�:�usI(Sad_%,"SadCarry3"):AddReps_=�:�usI(Sad_%,"AddReps")
B���:Fracadd_=�:�sI(Sad_%,"Fracadd"):addoms_=�:�usI(Sad_%,"addoms"):Sadcarry_(1)=�:�usI(Sad_%,"SadCarry1"):Sadcarry_(2)=�:�usI(Sad_%,"SadCarry2"):Sadcarry_(3)=�:�sI(Sad_%,"SadCarry3"):AddReps_=�:�usI(Sad_%,"AddReps")
B��:=�
C4ݤFractake_:�Fracadd_=���sI(Sad_%,"Fractake"):=�
C�Fractake_�
C&&Fractake_=�:�usI(Sad_%,"Fractake")
C0'�:Fractake_=�:�sI(Sad_%,"Fractake")
CDJ�:subdoms_=�:�usI(Sad_%,"subdoms"):SubReps_=�:�usI(Sad_%,"SubReps"):=�
Cv:ݤaddoms_:�Fracadd_=�addoms_=�:�usI(Sad_%,"addoms"):=�
C�J�addoms_=�addoms_=�:�usI(Sad_%,"addoms")�addoms_=�:�sI(Sad_%,"addoms")
C�=�
C�=ݤAddReps_:�Fracadd_=�AddReps_=�:�usI(Sad_%,"AddReps"):=�
C�O�AddReps_=�AddReps_=�:�usI(Sad_%,"AddReps")�AddReps_=�:�sI(Sad_%,"AddReps")
C�=�
C�>ݤsubdoms_:�Fractake_=�subdoms_=�:�usI(Sad_%,"subdoms"):=�
C�O�subdoms_=�subdoms_=�:�usI(Sad_%,"subdoms")�subdoms_=�:�sI(Sad_%,"subdoms")
C�=�
C�>ݤSubReps_:�Fractake_=�SubReps_=�:�usI(Sad_%,"SubReps"):=�
C�O�SubReps_=�SubReps_=�:�usI(Sad_%,"SubReps")�SubReps_=�:�sI(Sad_%,"SubReps")
D=�
D'ݤf_:c_=0:�h_=1�12:�f_(h_)=�c_=c_+1
D 	�:=c_
D*3ݤF1_:�f_(1)=���f_=1 f_(1)=�:�sI(Sad_%,"F1"):=�
D4�f_(1)=�f_(1)=��f_(1)=�
D>=�
DH3ݤF2_:�f_(2)=���f_=1 f_(2)=�:�sI(Sad_%,"F2"):=�
DR�f_(2)=�f_(2)=��f_(2)=�
D\=�
Df3ݤF3_:�f_(3)=���f_=1 f_(3)=�:�sI(Sad_%,"F3"):=�
Dp�f_(3)=�f_(3)=��f_(3)=�
Dz=�
D�3ݤF4_:�f_(4)=���f_=1 f_(4)=�:�sI(Sad_%,"F4"):=�
D��f_(4)=�f_(4)=��f_(4)=�
D�=�
D�3ݤF5_:�f_(5)=���f_=1 f_(5)=�:�sI(Sad_%,"F5"):=�
D��f_(5)=�f_(5)=��f_(5)=�
D�=�
D�3ݤF6_:�f_(6)=���f_=1 f_(6)=�:�sI(Sad_%,"F6"):=�
D��f_(6)=�f_(6)=��f_(6)=�
D�=�
D�3ݤF7_:�f_(7)=���f_=1 f_(7)=�:�sI(Sad_%,"F7"):=�
D��f_(7)=�f_(7)=��f_(7)=�
D�=�
D�3ݤF8_:�f_(8)=���f_=1 f_(8)=�:�sI(Sad_%,"F8"):=�
E�f_(8)=�f_(8)=��f_(8)=�
E=�
E3ݤF9_:�f_(9)=���f_=1 f_(9)=�:�sI(Sad_%,"F9"):=�
E$�f_(9)=�f_(9)=��f_(9)=�
E.=�
E87ݤF10_:�f_(10)=���f_=1 f_(10)=�:�sI(Sad_%,"F10"):=�
EB�f_(10)=�f_(10)=��f_(10)=�
EL=�
EV7ݤF11_:�f_(11)=���f_=1 f_(11)=�:�sI(Sad_%,"F11"):=�
E`�f_(11)=�f_(11)=��f_(11)=�
Ej=�
Et7ݤF12_:�f_(12)=���f_=1 f_(12)=�:�sI(Sad_%,"F12"):=�
E~�f_(12)=�f_(12)=��f_(12)=�
E�=�
E�EݤSadCarry1_:�Fracadd_=�Sadcarry_(1)=�:�usI(Sad_%,"SadCarry1"):=�
E�W�Sadcarry_(1)=��Sadcarry_(2)+Sadcarry_(3)=�Sadcarry_(1)=�:�sI(Sad_%,"SadCarry1"):=�
E���Sadcarry_(1)=�Sadcarry_(1)=�:�sI(Sad_%,"SadCarry1"):Sadcarry_(2)=�:�usI(Sad_%,"SadCarry2"):Sadcarry_(3)=�:�usI(Sad_%,"SadCarry3"):=�
E�
E�EݤSadCarry2_:�Fracadd_=�Sadcarry_(2)=�:�usI(Sad_%,"SadCarry2"):=�
E�W�Sadcarry_(2)=��Sadcarry_(1)+Sadcarry_(3)=�Sadcarry_(2)=�:�sI(Sad_%,"SadCarry2"):=�
E؉�Sadcarry_(2)=�Sadcarry_(2)=�:�sI(Sad_%,"SadCarry2"):Sadcarry_(1)=�:�usI(Sad_%,"SadCarry1"):Sadcarry_(3)=�:�usI(Sad_%,"SadCarry3"):=�
E�
E�EݤSadCarry3_:�Fracadd_=�Sadcarry_(3)=�:�usI(Sad_%,"SadCarry3"):=�
E�W�Sadcarry_(3)=��Sadcarry_(1)+Sadcarry_(2)=�Sadcarry_(3)=�:�sI(Sad_%,"SadCarry3"):=�
F��Sadcarry_(3)=�Sadcarry_(3)=�:�sI(Sad_%,"SadCarry3"):Sadcarry_(1)=�:�usI(Sad_%,"SadCarry1"):Sadcarry_(2)=�:�usI(Sad_%,"SadCarry2"):=�
F

F(�ݤFracGo_:�GetTitles:dummy_=�(-�):quit_=�:�=0:last_=12:�g_=1�12:�gg_=0�2:Whole_(g_,gg_)=0:�:�:�whatfracsign:�whatfracs:�calcfracs:Clue_$="Sad":started_%=�:�usI(Sad_%,"FracGo"):=�sums
FdI��whatfracsign:�Fracadd_=��Fractake_=��g_=1�12:Fracsign_$(g_)="+":�:�
Fx:�Fractake_=��Fracadd_=��g_=1�12:Fracsign_$(g_)="-":�:�
F�start_=�(2):�start_=1�
F�:�g_=1�12:�g_�2=0 Fracsign_$(g_)="+"�Fracsign_$(g_)="-"
F��
F�<�:�g_=1�12:�g_�2=1 Fracsign_$(g_)="+"�Fracsign_$(g_)="-"
F��
F��:�
F�g��whatfracs:�r_=1�12:gc_%(r_)=0:�:got_%=0:�r_%=1�12:�f_(r_%)=��got_%=got_%+1:gc_%(got_%)=frac_(r_%)
F��:�
G��fracadd:�quit_=��
GF�:goodadd_=�:�got_%=1 FD1_=gc_%(1)�ran_%=�(got_%):FD1_=gc_%(ran_%)
G"�addoms_=�FD2_=FD1_
G6�addoms_=��
G@9�got_%=1 FD2_=gc_%(1)�ran_%=�(got_%):FD2_=gc_%(ran_%)
GJR�:�:flug_=0:�:FU1_=�(FD1_):�FU1_<FD1_:�rt_=2�10:�FU1_�rt_=0�FD1_�rt_=0 flug_=1
G|[�:�flug_=0:�:flug_=0:�:FU2_=�(FD2_):�FU2_<FD2_:�rt_=2�10:�FU2_�rt_=0�FD2_�rt_=0 flug_=1
G�?�:�flug_=0:�Sadcarry_(1)=��FU2_/FD2_+FU1_/FD1_<1 goodadd_=�
G�8�Sadcarry_(2)=��FU2_/FD2_+FU1_/FD1_>.9999 goodadd_=�
G��r_>1�AddReps_=��
G�n�rtt_=1�r_-1:�Fracsign_$(r_)="+"�FD1_=FD1_(rtt_)�FD2_=FD2_(rtt_)�FU1_=FU1_(rtt_)�FU2_=FU2_(rtt_)goodadd_=�
G��
G�6�:�>500 quit_=�:�7:last_=r_-1:ș"Hourglass_Off":�
H\�goodadd_=�:Fracsign_$(r_)="+":FD1_(r_)=FD1_:FD2_(r_)=FD2_:FU1_(r_)=FU1_:FU2_(r_)=FU2_:�
H0��fraktake:�quit_=��
H:F�:goodsub_=�:�got_%=1 FD1_=gc_%(1)�ran_%=�(got_%):FD1_=gc_%(ran_%)
HN�subdoms_=�FD2_=FD1_
HX�subdoms_=��
Hb9�got_%=1 FD2_=gc_%(1)�ran_%=�(got_%):FD2_=gc_%(ran_%)
HlR�:�:flug_=0:�:FU1_=�(FD1_):�FU1_<FD1_:�rt_=2�10:�FU1_�rt_=0�FD1_�rt_=0 flug_=1
H�[�:�flug_=0:�:flug_=0:�:FU2_=�(FD2_):�FU2_<FD2_:�rt_=2�10:�FU2_�rt_=0�FD2_�rt_=0 flug_=1
H� �:�flug_=0:�r_>1�SubReps_=��
H�n�rtt_=1�r_-1:�Fracsign_$(r_)="-"�FD1_=FD1_(rtt_)�FD2_=FD2_(rtt_)�FU1_=FU1_(rtt_)�FU2_=FU2_(rtt_)goodsub_=�
H��
H�%�:�FU1_/FD1_<FU2_/FD2_ goodsub_=�
H�4�>500 quit_=�:last_=r_-1:�7:ș"Hourglass_Off":�
I\�goodsub_=�:Fracsign_$(r_)="-":FD1_(r_)=FD1_:FD2_(r_)=FD2_:FU1_(r_)=FU1_:FU2_(r_)=FU2_:�
I*h��calcfracs:ș"Hourglass_On":�r_=1�12:ș"Hourglass_Percentage",r_/12*100:�quit_=�ș"Hourglass_Off":�
IH)�Fracsign_$(r_)="+"�fracadd��fraktake
IR�quit_=�r_=12
I\I�:�r_=1�last_:a_=FU1_(r_):b_=FD1_(r_):c_=FU2_(r_):d_=FD2_(r_):�b_=d_�
I�:�Fracsign_$(r_)="+" f_=b_:f_$=�(f_):e_=a_+c_:e_$=�(e_)
I�:�Fracsign_$(r_)="-" f_=b_:f_$=�(f_):e_=a_-c_:e_$=�(e_)
I�^�:x_=0:�:x_=x_+1:�x_�b_=0�x_�d_=0:f_=x_:f_$=�(f_):�Fracsign_$(r_)="+" e_=f_/b_*a_+f_/d_*c_
I�,�Fracsign_$(r_)="-" e_=f_/b_*a_-f_/d_*c_
I�6�:whole_=0:�e_>=f_�e_>0�f_>0 whole_=e_�f_:e_=e_�f_
I�YWhole_(r_,2)=Whole_(r_,0)+Whole_(r_,1):Whole_(r_,2)=Whole_(r_,2)+whole_:�e_<>0�reduce
J1FU3_(r_)=e_:FD3_(r_)=f_:�:ș"Hourglass_Off":�
Jj5��Wadd:Wad_%=�fWS("Wadd"):�wf_(1)�sI(Wad_%,"WF1")
J~�wf_(2)�sI(Wad_%,"WF2")
J��wf_(3)�sI(Wad_%,"WF3")
J��wf_(4)�sI(Wad_%,"WF4")
J��wf_(5)�sI(Wad_%,"WF5")
J��wf_(6)�sI(Wad_%,"WF6")
J��wf_(7)�sI(Wad_%,"WF7")
J��wf_(8)�sI(Wad_%,"WF8")
J��wf_(9)�sI(Wad_%,"WF9")
J��wf_(10)�sI(Wad_%,"WF10")
J��wf_(11)�sI(Wad_%,"WF11")
J��wf_(12)�sI(Wad_%,"WF12")
J�)�WSadcarry_(1)�sI(Wad_%,"WSadCarry1")
J�)�WSadcarry_(2)�sI(Wad_%,"WSadCarry2")
K)�WSadcarry_(3)�sI(Wad_%,"WSadCarry3")
K
#�WFracadd_�sI(Wad_%,"WFracadd")
K%�WFractake_�sI(Wad_%,"WFractake")
K!�Waddoms_�sI(Wad_%,"Waddoms")
K(#�WAddReps_�sI(Wad_%,"WAddReps")
K2#�Wsubdoms_�sI(Wad_%,"Wsubdoms")
K<#�WSubReps_�sI(Wad_%,"WSubReps")
KF)�WSTakecar_(1)�sI(Wad_%,"WSTakeCar1")
KP)�WSTakecar_(2)�sI(Wad_%,"WSTakeCar2")
KZ)�WSTakecar_(3)�sI(Wad_%,"WSTakeCar3")
Kd�
K�6ݤWFracadd_:�WFractake_=���sI(Wad_%,"WFracadd"):=�
K��WFracadd_=��
K��WFracadd_=�:�usI(Wad_%,"WFracadd"):Waddoms_=�:�usI(Wad_%,"Waddoms"):WSadcarry_(1)=�:�usI(Wad_%,"WSadCarry1"):WSadcarry_(2)=�:�usI(Wad_%,"WSadCarry2"):WSadcarry_(3)=�:�usI(Wad_%,"WSadCarry3"):WAddReps_=�:�usI(Wad_%,"WAddReps")
K���:WFracadd_=�:�sI(Wad_%,"WFracadd"):Waddoms_=�:�usI(Wad_%,"Waddoms"):WSadcarry_(1)=�:�usI(Wad_%,"WSadCarry1"):WSadcarry_(2)=�:�usI(Wad_%,"WSadCarry2"):WSadcarry_(3)=�:�sI(Wad_%,"WSadCarry3"):WAddReps_=�:�usI(Wad_%,"WAddReps")
L"�:=�
L@7ݤWFractake_:�WFracadd_=���sI(Wad_%,"WFractake"):=�
LJ�WFractake_�
LT�WFractake_=�:�usI(Wad_%,"WFractake"):WSTakecar_(1)=�:WSTakecar_(2)=�:WSTakecar_(3)=�:�usI(Wad_%,"WSTakeCar1"):�usI(Wad_%,"WSTakeCar2"):�usI(Wad_%,"WSTakeCar3")
LrQ�:WFractake_=�:�sI(Wad_%,"WFractake"):WSTakecar_(3)=�:�sI(Wad_%,"WSTakeCar3")
L�N�:Wsubdoms_=�:�usI(Wad_%,"Wsubdoms"):WSubReps_=�:�usI(Wad_%,"WSubReps"):=�
L�>ݤWaddoms_:�WFracadd_=�Waddoms_=�:�usI(Wad_%,"Waddoms"):=�
L�N�Waddoms_ Waddoms_=�:�usI(Wad_%,"Waddoms")�Waddoms_=�:�sI(Wad_%,"Waddoms")
L�=�
L�AݤWAddReps_:�WFracadd_=�WAddReps_=�:�usI(Wad_%,"WAddReps"):=�
L�S�WAddReps_ WAddReps_=�:�usI(Wad_%,"WAddReps")�WAddReps_=�:�sI(Wad_%,"WAddReps")
L�=�
MBݤWsubdoms_:�WFractake_=�Wsubdoms_=�:�usI(Wad_%,"Wsubdoms"):=�
MS�Wsubdoms_ Wsubdoms_=�:�usI(Wad_%,"Wsubdoms")�Wsubdoms_=�:�sI(Wad_%,"Wsubdoms")
M&=�
M:BݤWSubReps_:�WFractake_=�WSubReps_=�:�usI(Wad_%,"WSubReps"):=�
MDT�WSubReps_=�WSubReps_=�:�usI(Wad_%,"WSubReps")�WSubReps_=�:�sI(Wad_%,"WSubReps")
MN=�
MbIݤWSadCarry1_:�WFracadd_=�WSadcarry_(1)=�:�usI(Wad_%,"WSadCarry1"):=�
MlZ�WSadcarry_(1)�WSadcarry_(2)+WSadcarry_(3)=�WSadcarry_(1)=�:�sI(Wad_%,"WSadCarry1"):=�
Mv��WSadcarry_(1)=�WSadcarry_(1)=�:�sI(Wad_%,"WSadCarry1"):WSadcarry_(2)=�:�usI(Wad_%,"WSadCarry2"):WSadcarry_(3)=�:�usI(Wad_%,"WSadCarry3"):=�
M�
M�IݤWSadCarry2_:�WFracadd_=�WSadcarry_(2)=�:�usI(Wad_%,"WSadCarry2"):=�
M�Z�WSadcarry_(2)�WSadcarry_(1)+WSadcarry_(3)=�WSadcarry_(2)=�:�sI(Wad_%,"WSadCarry2"):=�
M���WSadcarry_(2)=�WSadcarry_(2)=�:�sI(Wad_%,"WSadCarry2"):WSadcarry_(1)=�:�usI(Wad_%,"WSadCarry1"):WSadcarry_(3)=�:�usI(Wad_%,"WSadCarry3"):=�
M�
M�IݤWSadCarry3_:�WFracadd_=�WSadcarry_(3)=�:�usI(Wad_%,"WSadCarry3"):=�
M�\�WSadcarry_(3)=��WSadcarry_(1)+WSadcarry_(2)=�WSadcarry_(3)=�:�sI(Wad_%,"WSadCarry3"):=�
MƐ�WSadcarry_(3)=�WSadcarry_(3)=�:�sI(Wad_%,"WSadCarry3"):WSadcarry_(1)=�:�usI(Wad_%,"WSadCarry1"):WSadcarry_(2)=�:�usI(Wad_%,"WSadCarry2"):=�
M�
M�JݤWSTakeCar1_:�WFractake_=�WSTakecar_(1)=�:�usI(Wad_%,"WSTakeCar1"):=�
M�Z�WSTakecar_(1)�WSTakecar_(2)+WSTakecar_(3)=�WSTakecar_(1)=�:�sI(Wad_%,"WSTakeCar1"):=�
M���WSTakecar_(1)=�WSTakecar_(1)=�:�sI(Wad_%,"WSTakeCar"):WSTakecar_(2)=�:�usI(Wad_%,"WSTakeCar2"):WSTakecar_(3)=�:�usI(Wad_%,"WSTakeCar3")�WSTakecar_(1)=�:�usI(Wad_%,"WSTakeCar1")
N=�
NJݤWSTakeCar2_:�WFractake_=�WSTakecar_(2)=�:�usI(Wad_%,"WSTakeCar2"):=�
N*\�WSTakecar_(2)=��WSTakecar_(1)+WSTakecar_(3)=�WSTakecar_(2)=�:�sI(Wad_%,"WSTakeCar2"):=�
N4��WSTakecar_(2)=�WSTakecar_(2)=�:�sI(Wad_%,"WSTakeCar"):WSTakecar_(1)=�:�usI(Wad_%,"WSTakeCar1"):WSTakecar_(3)=�:�usI(Wad_%,"WSTakeCar3")�WSTakecar_(2)=�:�usI(Wad_%,"WSTakeCar2")
N>=�
NRJݤWSTakeCar3_:�WFractake_=�WSTakecar_(3)=�:�usI(Wad_%,"WSTakeCar3"):=�
NfZ�WSTakecar_(3)�WSTakecar_(1)+WSTakecar_(2)=�WSTakecar_(3)=�:�sI(Wad_%,"WSTakeCar3"):=�
Np��WSTakecar_(3)=�WSTakecar_(3)=�:�sI(Wad_%,"WSTakeCar"):WSTakecar_(1)=�:�usI(Wad_%,"WSTakeCar2"):WSTakecar_(2)=�:�usI(Wad_%,"WSTakeCar1")�WSTakecar_(3)=�:�usI(Wad_%,"WSTakeCar3")
Nz=�
N�'ݤwf_:c_=0:�h_=1�12:�wf_(h_)c_=c_+1
N�	�:=c_
N�6ݤWF1_:�wf_(1)��wf_=1 wf_(1)=�:�sI(Wad_%,"WF1"):=�
N��wf_(1)wf_(1)=��wf_(1)=�
N�=�
N�6ݤWF2_:�wf_(2)��wf_=1 wf_(2)=�:�sI(Wad_%,"WF2"):=�
N��wf_(2)wf_(2)=��wf_(2)=�
N�=�
N�6ݤWF3_:�wf_(3)��wf_=1 wf_(3)=�:�sI(Wad_%,"WF3"):=�
N��wf_(3)wf_(3)=��wf_(3)=�
N�=�
N�6ݤWF4_:�wf_(4)��wf_=1 wf_(4)=�:�sI(Wad_%,"WF4"):=�
O�wf_(4)wf_(4)=��wf_(4)=�
O=�
O6ݤWF5_:�wf_(5)��wf_=1 wf_(5)=�:�sI(Wad_%,"WF5"):=�
O$�wf_(5)wf_(5)=��wf_(5)=�
O.=�
O86ݤWF6_:�wf_(6)��wf_=1 wf_(6)=�:�sI(Wad_%,"WF6"):=�
OB�wf_(6)wf_(6)=��wf_(6)=�
OL=�
OV6ݤWF7_:�wf_(7)��wf_=1 wf_(7)=�:�sI(Wad_%,"WF7"):=�
O`�wf_(7)wf_(7)=��wf_(7)=�
Oj=�
Ot6ݤWF8_:�wf_(8)��wf_=1 wf_(8)=�:�sI(Wad_%,"WF8"):=�
O~�wf_(8)wf_(8)=��wf_(8)=�
O�=�
O�6ݤWF9_:�wf_(9)��wf_=1 wf_(9)=�:�sI(Wad_%,"WF9"):=�
O��wf_(9)wf_(9)=��wf_(9)=�
O�=�
O�:ݤWF10_:�wf_(10)��wf_=1 wf_(10)=�:�sI(Wad_%,"WF10"):=�
O��wf_(10)wf_(10)=��wf_(10)=�
O�=�
O�:ݤWF11_:�wf_(11)��wf_=1 wf_(11)=�:�sI(Wad_%,"WF11"):=�
O��wf_(11)wf_(11)=��wf_(11)=�
O�=�
O�:ݤWF12_:�wf_(12)��wf_=1 wf_(12)=�:�sI(Wad_%,"WF12"):=�
O��wf_(12)wf_(12)=��wf_(12)=�
P=�
P(�ݤWFracGo_:�GetTitles:dummy_=�(-�):quit_=�:�=0:last_=12:�whatWfracsign:�whatWfracs:�calcWfracs:Clue_$="Wad":started_%=�:�usI(Wad_%,"WFracGo"):=�sums
PZJ��whatWfracsign:�WFracadd_�WFractake_=��g_=1�12:Fracsign_$(g_)="+":�:�
Pn:�WFractake_�WFracadd_=��g_=1�12:Fracsign_$(g_)="-":�:�
Pxstart_=�(2):�start_=1�
P�:�g_=1�12:�g_�2=0 Fracsign_$(g_)="+"�Fracsign_$(g_)="-"
P��
P�<�:�g_=1�12:�g_�2=1 Fracsign_$(g_)="+"�Fracsign_$(g_)="-"
P��
P��:�
P�S��whatWfracs:got_%=0:�r_%=1�12:�wf_(r_%)=��got_%=got_%+1:gc_%(got_%)=frac_(r_%)
P��:�
P���fracWadd:�quit_=��
Qu�:goodadd_=�:�:WholeA_=�(9):WholeB_=�(9):�WholeA_+WholeB_<8:�got_%=1 FD1_=gc_%(1)�ran_%=�(got_%):FD1_=gc_%(ran_%)
Q6�Waddoms_=�FD2_=FD1_
Q@�Waddoms_=��
QT9�got_%=1 FD2_=gc_%(1)�ran_%=�(got_%):FD2_=gc_%(ran_%)
Q^R�:�:flug_=0:�:FU1_=�(FD1_):�FU1_<FD1_:�rt_=2�10:�FU1_�rt_=0�FD1_�rt_=0 flug_=1
Q�[�:�flug_=0:�:flug_=0:�:FU2_=�(FD2_):�FU2_<FD2_:�rt_=2�10:�FU2_�rt_=0�FD2_�rt_=0 flug_=1
Q�@�:�flug_=0:�WSadcarry_(1)=��FU2_/FD2_+FU1_/FD1_<1 goodadd_=�
Q�9�WSadcarry_(2)=��FU2_/FD2_+FU1_/FD1_>.9999 goodadd_=�
Q��r_>1�WAddReps_=��
R��rtt_=1�r_-1:�Fracsign_$(r_)="+"�FD1_=FD1_(rtt_)�FD2_=FD2_(rtt_)�FU1_=FU1_(rtt_)�FU2_=FU2_(rtt_)�WholeA_=Whole_(rtt_,0)�WholeB_=Whole_(rtt_,1)goodadd_=�
R�
R6�:�>500 quit_=�:�7:last_=r_-1:ș"Hourglass_Off":�
R0��goodadd_=�:Fracsign_$(r_)="+":FD1_(r_)=FD1_:FD2_(r_)=FD2_:FU1_(r_)=FU1_:FU2_(r_)=FU2_:Whole_(r_,0)=WholeA_:Whole_(r_,1)=WholeB_:�
RX��frakWtake:�quit_=��
Rbs�:goodsub_=�:�:WholeA_=�(9):WholeB_=�(9):�WholeA_>WholeB_:�got_%=1 FD1_=gc_%(1)�ran_%=�(got_%):FD1_=gc_%(ran_%)
R��Wsubdoms_=�FD2_=FD1_
R��Wsubdoms_=��
R�9�got_%=1 FD2_=gc_%(1)�ran_%=�(got_%):FD2_=gc_%(ran_%)
R�R�:�:flug_=0:�:FU1_=�(FD1_):�FU1_<FD1_:�rt_=2�10:�FU1_�rt_=0�FD1_�rt_=0 flug_=1
R�[�:�flug_=0:�:flug_=0:�:FU2_=�(FD2_):�FU2_<FD2_:�rt_=2�10:�FU2_�rt_=0�FD2_�rt_=0 flug_=1
S?�:�flug_=0:�WSTakecar_(1)=��FU1_/FD1_>=FU2_/FD2_ goodsub_=�
S43�WSTakecar_(2)=��FU1_/FD1_<FU2_/FD2_ goodsub_=�
SH�r_>1�WSubReps_=��
S\��rtt_=1�r_-1:�Fracsign_$(r_)="-"�FD1_=FD1_(rtt_)�FD2_=FD2_(rtt_)�FU1_=FU1_(rtt_)�FU2_=FU2_(rtt_)�WholeA_=Whole_(rtt_,0)�WholeB_=Whole_(rtt_,1)goodsub_=�
Sf�
Sp6�:�>500 quit_=�:ș"Hourglass_Off":�7:last_=r_-1:�
S���goodsub_=�:Fracsign_$(r_)="-":FD1_(r_)=FD1_:FD2_(r_)=FD2_:FU1_(r_)=FU1_:FU2_(r_)=FU2_:Whole_(r_,0)=WholeA_:Whole_(r_,1)=WholeB_:�
S�mݤesc(out_$):quit_=�:=quit_:esc_$="Escape "+out_$:in_=�.001:�in_=27�moan(esc_$):quit_=�:ș"Hourglass_Off"
S�
=quit_
S�u��calcWfracs:ș"Hourglass_On":�r_=1�12:ș"Hourglass_Percentage",r_/12*100:�Fracsign_$(r_)="+"�fracWadd��frakWtake
T�quit_=�r_=12
Ti�:�r_=1�last_:a_=FU1_(r_):b_=FD1_(r_):c_=FU2_(r_):d_=FD2_(r_):�Fracsign_$(r_)="+"�addfracs��takefracs
TV�:ș"Hourglass_Off":�
Tt��addfracs:�b_=d_�
T�f_=b_:e_=a_+c_
T�@�:x_=0:�:x_=x_+1:�x_�b_=0�x_�d_=0:f_=x_:e_=f_/b_*a_+f_/d_*c_
T�6�:whole_=0:�e_>=f_�e_>0�f_>0 whole_=e_�f_:e_=e_�f_
T�YWhole_(r_,2)=Whole_(r_,0)+Whole_(r_,1):Whole_(r_,2)=Whole_(r_,2)+whole_:�e_<>0�reduce
T�FU3_(r_)=e_:FD3_(r_)=f_:�
U��takefracs:�a_/b_<c_/d_�
U(�b_=d_�
U2f_=b_:e_=a_-c_+b_
U<C�:x_=0:�:x_=x_+1:�x_�b_=0�x_�d_=0:f_=x_:e_=f_/b_*a_-f_/d_*c_+f_
Ud�
Un�:�a_/b_>=c_/d_�
U��b_=d_�
U�f_=b_:e_=a_-c_
U�@�:x_=0:�:x_=x_+1:�x_�b_=0�x_�d_=0:f_=x_:e_=f_/b_*a_-f_/d_*c_
U��
U�:�:Whole_(r_,2)=Whole_(r_,0)-Whole_(r_,1):�e_<>0�reduce
U�DFU3_(r_)=e_:FD3_(r_)=f_:�a_/b_<c_/d_�Whole_(r_,2)=Whole_(r_,2)-1
V�
V@?��FrMD:FrMD_%=�fWS("FrMD"):�Fracmult_�sI(FrMD_%,"Fracmult")
VT"�Fracdiv_�sI(FrMD_%,"Fracdiv")
V^ �Frtdom_�sI(FrMD_%,"Frtdom")
Vh �Frtrep_�sI(FrMD_%,"Frtrep")
Vr �Frddom_�sI(FrMD_%,"Frddom")
V| �Frdrep_�sI(FrMD_%,"Frdrep")
V��mf_(1)�sI(FrMD_%,"MF1")
V��mf_(2)�sI(FrMD_%,"MF2")
V��mf_(3)�sI(FrMD_%,"MF3")
V��mf_(4)�sI(FrMD_%,"MF4")
V��mf_(5)�sI(FrMD_%,"MF5")
V��mf_(6)�sI(FrMD_%,"MF6")
V��mf_(7)�sI(FrMD_%,"MF7")
V��mf_(8)�sI(FrMD_%,"MF8")
V��mf_(9)�sI(FrMD_%,"MF9")
V��mf_(10)�sI(FrMD_%,"MF10")
V��mf_(11)�sI(FrMD_%,"MF11")
V��mf_(12)�sI(FrMD_%,"MF12")
V�$�Frmwhole_�sI(FrMD_%,"Frmwhole")
W$�Frdwhole_�sI(FrMD_%,"Frdwhole")
W�
W:'ݤmf_:c_=0:�h_=1�12:�mf_(h_)c_=c_+1
WD	�:=c_
WN7ݤMF1_:�mf_(1)��mf_=1 mf_(1)=�:�sI(FrMD_%,"MF1"):=�
WX�mf_(1)=�mf_(1)=��mf_(1)=�
Wb=�
Wl7ݤMF2_:�mf_(2)��mf_=1 mf_(2)=�:�sI(FrMD_%,"MF2"):=�
Wv�mf_(2)=�mf_(2)=��mf_(2)=�
W�=�
W�7ݤMF3_:�mf_(3)��mf_=1 mf_(3)=�:�sI(FrMD_%,"MF3"):=�
W��mf_(3)=�mf_(3)=��mf_(3)=�
W�=�
W�7ݤMF4_:�mf_(4)��mf_=1 mf_(4)=�:�sI(FrMD_%,"MF4"):=�
W��mf_(4)=�mf_(4)=��mf_(4)=�
W�=�
W�7ݤMF5_:�mf_(5)��mf_=1 mf_(5)=�:�sI(FrMD_%,"MF5"):=�
W��mf_(5)=�mf_(5)=��mf_(5)=�
W�=�
W�7ݤMF6_:�mf_(6)��mf_=1 mf_(6)=�:�sI(FrMD_%,"MF6"):=�
W��mf_(6)=�mf_(6)=��mf_(6)=�
W�=�
X7ݤMF7_:�mf_(7)��mf_=1 mf_(7)=�:�sI(FrMD_%,"MF7"):=�
X�mf_(7)=�mf_(7)=��mf_(7)=�
X=�
X 7ݤMF8_:�mf_(8)��mf_=1 mf_(8)=�:�sI(FrMD_%,"MF8"):=�
X*�mf_(8)=�mf_(8)=��mf_(8)=�
X4=�
X>7ݤMF9_:�mf_(9)��mf_=1 mf_(9)=�:�sI(FrMD_%,"MF9"):=�
XH�mf_(9)=�mf_(9)=��mf_(9)=�
XR=�
X\;ݤMF10_:�mf_(10)��mf_=1 mf_(10)=�:�sI(FrMD_%,"MF10"):=�
Xf!�mf_(10)=�mf_(10)=��mf_(10)=�
Xp=�
Xz;ݤMF11_:�mf_(11)��mf_=1 mf_(11)=�:�sI(FrMD_%,"MF11"):=�
X�!�mf_(11)=�mf_(11)=��mf_(11)=�
X�=�
X�;ݤMF12_:�mf_(12)��mf_=1 mf_(12)=�:�sI(FrMD_%,"MF12"):=�
X�!�mf_(12)=�mf_(12)=��mf_(12)=�
X�=�
X�@ݤFracmult_:�Fracdiv_=�Fracmult_=�:�sI(FrMD_%,"Fracmult"):=�
X��Fracmult_=��
XʋFracmult_=�:�usI(FrMD_%,"Fracmult"):Frtdom_=�:�usI(FrMD_%,"Frtdom"):Frtrep_=�:�usI(FrMD_%,"Frtrep"):Frmwhole_=�:�usI(FrMD_%,"Frmwhole")
X�'�Fracmult_=�:�sI(FrMD_%,"Fracmult")
X��:=�
X�<ݤFrtdom_:�Fracmult_=�Frtdom_=�:�usI(FrMD_%,"Frtdom"):=�
X�L�Frtdom_=�Frtdom_=�:�usI(FrMD_%,"Frtdom")�Frtdom_=�:�sI(FrMD_%,"Frtdom")
X�=�
Y<ݤFrtrep_:�Fracmult_=�Frtrep_=�:�usI(FrMD_%,"Frtrep"):=�
YL�Frtrep_=�Frtrep_=�:�usI(FrMD_%,"Frtrep")�Frtrep_=�:�sI(FrMD_%,"Frtrep")
Y=�
Y$>ݤFracdiv_:�Fracmult_=�Fracdiv_=�:�sI(FrMD_%,"Fracdiv"):=�
Y.�Fracdiv_=��
Y8�Fracdiv_=�:�usI(FrMD_%,"Fracdiv"):Frddom_=�:�usI(FrMD_%,"Frddom"):Frdrep_=�:�usI(FrMD_%,"Frdrep"):Frdwhole_=�:�usI(FrMD_%,"Frdwhole")
YB%�Fracdiv_=�:�sI(FrMD_%,"Fracdiv")
YL�:=�
YV;ݤFrddom_:�Fracdiv_=�Frddom_=�:�usI(FrMD_%,"Frddom"):=�
Y`L�Frddom_=�Frddom_=�:�usI(FrMD_%,"Frddom")�Frddom_=�:�sI(FrMD_%,"Frddom")
Yj=�
Yt;ݤFrdrep_:�Fracdiv_=�Frdrep_=�:�usI(FrMD_%,"Frdrep"):=�
Y~L�Frdrep_=�Frdrep_=�:�usI(FrMD_%,"Frdrep")�Frdrep_=�:�sI(FrMD_%,"Frdrep")
Y�=�
Y�BݤFrmwhole_:�Fracmult_=�Frmwhole_=�:�usI(FrMD_%,"Frmwhole"):=�
Y�V�Frmwhole_=�Frmwhole_=�:�usI(FrMD_%,"Frmwhole")�Frmwhole_=�:�sI(FrMD_%,"Frmwhole")
Y�=�
Y�AݤFrdwhole_:�Fracdiv_=�Frdwhole_=�:�usI(FrMD_%,"Frdwhole"):=�
Y�W�Frdwhole_=�Frdwhole_=�:�usI(FrMD_%,"Frdwhole")�Frdwhole_=�:�sI(FrMD_%,"Frmdwhole")
Y�=�
Y�lݤFrMDgo_:�GetTitles:dummy_=�(-�):quit_=�:�=0:last_=12:quit_=�:start_%=�:�r_%=1�12:�mf_(r_%)=��start_%=�
Y�l�:�start_%=��queer_$="Choose a denominator":V_$=�alert(queer_$,"","OK","","",0):�usI(FrMD_%,"FrMDgo"):=�
Y���r_=1�12:�rr_=0�2:Whole_(r_,rr_)=0:�:�:�whatMfracsign:�whatMfracs:�calcMfracs:Clue_$="FrMD":started_%=�:�usI(FrMD_%,"FrMDgo"):=�sums
Z
K��whatMfracsign:�Fracmult_=��Fracdiv_=���g_=1�12:Fracsign_$(g_)="x":�:�
Z:�Fracdiv_=��Fracmult_=��g_=1�12:Fracsign_$(g_)="�":�:�
Zstart_=�(2):�start_=1�
Z2:�g_=1�12:�g_�2=0 Fracsign_$(g_)="x"�Fracsign_$(g_)="�"
Z<�
ZF<�:�g_=1�12:�g_�2=1 Fracsign_$(g_)="x"�Fracsign_$(g_)="�"
ZZ�
Zd�:�
Zxh��whatMfracs:�r_=1�12:gc_%(r_)=0:�:got_%=0:�r_%=1�12:�mf_(r_%)=��got_%=got_%+1:gc_%(got_%)=mfv_(r_%)
Z��:�
Z����calcMfracs:ș"Hourglass_On":�r_=1�12:ș"Hourglass_Percentage",r_/12*100:�fractimes:�:�r_=1�last_:a_=FU1_(r_):b_=FD1_(r_):c_=FU2_(r_):d_=FD2_(r_):�timesfracs:�:ș"Hourglass_Off":�
Z���fractimes:�quit_=��
Z�A�:ranflag_=�:�>500 quit_=�:�7:last_=r_-1:ș"Hourglass_Off":�
Z�$�Fracsign_$(r_)="x"�Frmwhole_=��
Z�G�:Whole_(r_,0)=�(9):Whole_(r_,1)=�(9):�Whole_(r_,0)*Whole_(r_,1)<10
Z�&�:�Fracsign_$(r_)="�"�Frdwhole_=��
Z�'Whole_(r_,0)=�(9):Whole_(r_,1)=�(9)
Z�C�:�got_%=1 FD1_(r_)=gc_%(1)�ran_%=�(got_%):FD1_(r_)=gc_%(ran_%)
Z�h�:flug_=0:�:FU1_(r_)=�(FD1_(r_)):�FU1_(r_)<FD1_(r_):�rt_=2�10:�FU1_(r_)�rt_=0�FD1_(r_)�rt_=0 flug_=1
Z�h�:�flug_=0:�got_%=1 FD2_(r_)=gc_%(1)��Frtdom_=�FD2_(r_)=FD1_(r_)�ran_%=�(got_%):FD2_(r_)=gc_%(ran_%)
Z�h�:flug_=0:�:FU2_(r_)=�(FD2_(r_)):�FU2_(r_)<FD2_(r_):�rt_=2�10:�FU2_(r_)�rt_=0�FD2_(r_)�rt_=0 flug_=1
Z��:�flug_=0:�r_>1�Frtrep_=��
[��rtt_=1�r_-1:�Fracsign_$(r_)="x"�FD1_(r_)=FD1_(rtt_)�FD2_(r_)=FD2_(rtt_)�FU1_(r_)=FU1_(rtt_)�FU2_(r_)=FU2_(rtt_)�Whole_(r_,0)=Whole_(rtt_,0)�Whole_(r_,1)=Whole_(rtt_,1)ranflag_=�
[�
[�:�r_>1�Frdrep_=��
["��rtt_=1�r_-1:�Fracsign_$(r_)="�"�FD1_(r_)=FD1_(rtt_)�FD2_(r_)=FD2_(rtt_)�FU1_(r_)=FU1_(rtt_)�FU2_(r_)=FU2_(rtt_)�Whole_(r_,0)=Whole_(rtt_,0)�Whole_(r_,1)=Whole_(rtt_,1)ranflag_=�
[,�
[6�:�ranflag_=�:�
[@*��timesfracs:�Frmwhole_=��Frdwhole_=��
[J/a_=Whole_(r_,0)*b_+a_:c_=Whole_(r_,1)*d_+c_
[T�:�Fracsign_$(r_)="x"�
[^e_=a_*c_:f_=b_*d_
[h�:e_=a_*d_:f_=b_*c_
[r,�:whole_=0:�e_>=f_ whole_=e_�f_:e_=e_�f_
[|%Whole_(r_,2)=whole_:�e_<>0�reduce
[�FU3_(r_)=e_:FD3_(r_)=f_:�
[�T��reduce:�tr_=10�2�-1:�e_�tr_=0�f_�tr_=0 e_=e_/tr_:f_=f_/tr_:e_$=�(e_):f_$=�(f_)
[��:�
[�R��LongMulty:LongMul_%=�fWS("LongMul"):�LongMul_(1)=�:�sI(LongMul_%,"LongMul1")
[�,�LongMul_(2)=�:�sI(LongMul_%,"LongMul2")
\,�LongMul_(3)=�:�sI(LongMul_%,"LongMul3")
\,�LongMul_(4)=�:�sI(LongMul_%,"LongMul4")
\,�LongMul_(5)=�:�sI(LongMul_%,"LongMul5")
\&,�LongMul_(6)=�:�sI(LongMul_%,"LongMul6")
\0,�Longstyle_=1�sI(LongMul_%,"LongStyleA")
\:,�Longstyle_=2�sI(LongMul_%,"LongStyleB")
\D�
\l0ݤlongmul_:c_=0:�h_=1�6:�LongMul_(h_)c_=c_+1
\v	�:=c_
\�SݤLongMul1_:�LongMul_(1)��longmul_=1 LongMul_(1)=�:�sI(LongMul_%,"LongMul1"):=�
\�+�LongMul_(1)LongMul_(1)=��LongMul_(1)=�
\�=�
\�SݤLongMul2_:�LongMul_(2)��longmul_=1 LongMul_(2)=�:�sI(LongMul_%,"LongMul2"):=�
\�+�LongMul_(2)LongMul_(2)=��LongMul_(2)=�
\�=�
\�SݤLongMul3_:�LongMul_(3)��longmul_=1 LongMul_(3)=�:�sI(LongMul_%,"LongMul3"):=�
\�+�LongMul_(3)LongMul_(3)=��LongMul_(3)=�
\�=�
\�SݤLongMul4_:�LongMul_(4)��longmul_=1 LongMul_(4)=�:�sI(LongMul_%,"LongMul4"):=�
\�+�LongMul_(4)LongMul_(4)=��LongMul_(4)=�
\�=�
\�SݤLongMul5_:�LongMul_(5)��longmul_=1 LongMul_(5)=�:�sI(LongMul_%,"LongMul5"):=�
]+�LongMul_(5)LongMul_(5)=��LongMul_(5)=�
]=�
]SݤLongMul6_:�LongMul_(6)��longmul_=1 LongMul_(6)=�:�sI(LongMul_%,"LongMul6"):=�
] +�LongMul_(6)LongMul_(6)=��LongMul_(6)=�
]*=�
]>ZݤLongStyleA_:Longstyle_=1:�sI(LongMul_%,"LongStyleA"):�usI(LongMul_%,"LongStyleB"):=�
]RZݤLongStyleB_:Longstyle_=2:�sI(LongMul_%,"LongStyleB"):�usI(LongMul_%,"LongStyleA"):=�
]�OݤLongMulgo_:�GetTitles:dummy_=�(-�):flag_=�:�g_=1�6:�LongMul_(g_)=�flag_=�
]�k�:�flag_=��ș"Hourglass_Off":V_$=�alert("Choose a type","","OK","","",0):�usI(LongMul_%,"LongMulgo"):=�
]�?got_%=0:�y_=1�6:�LongMul_(y_)=�got_%=got_%+1:gc_%(got_%)=y_
]��:�got_%=1�
]�#�h_=1�8:froc_(h_)=gc_%(got_%):�
]��:�got_%>1�
]�:flag_=�:�r_=1�8:finder_%(r_)=0:�:needed_%=8�got_%:�h_=1�8:r_=�(got_%):froc_(h_)=gc_%(r_):finder_%(r_)=finder_%(r_)+1:�:�r_=1�got_%:�finder_%(r_)<needed_% flag_=�
^B�:�flag_=�
^V$�:�t_=1�8:�froc_(t_)=1�worklong1
^t�froc_(t_)=2�worklong2
^~�froc_(t_)=3�worklong3
^��froc_(t_)=4�worklong4
^��froc_(t_)=5�worklong5
^��froc_(t_)=6�worklong6
^�D�:�usI(LongMul_%,"LongMulgo"):last_=3:quit_=�:started_%=�:=�sums
^Ĝ��worklong1:�:a_=�(99):�a_>20:�:b_=�(90):�b_�10=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:last_=3:quit_=�:Longchoice_$(t_)="LongMul1":Clue_$=Longchoice_$(t_):�
_���worklong2:�:a_=�(99):�a_>12�a_�10<>0:�:b_=�(99):�b_>12�b_�10<>0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:Longchoice_$(t_)="LongMul2":Clue_$=Longchoice_$(t_):�
_<���worklong3:�:a_=�(999):�a_>100�a_�10<>0:�:b_=�(99):�b_>12�b_�10=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:Longchoice_$(t_)="LongMul3":Clue_$=Longchoice_$(t_):�
_xk��worklong4:�:a_=�(999):�a_>100�a_�10<>0:�:b_=�(99):�b_>12�b_�10<>0:�g_=1�8:�a_=a_(g_)�b_=b_(g_)flag_=1
_�Za_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:Longchoice_$(t_)="LongMul4":Clue_$=Longchoice_$(t_):�
_����worklong5:�:a_=�(9999):�a_>1000�a_�10<>0:�:b_=�(99):�b_>12�b_�10<>0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:Longchoice_$(t_)="LongMul5":Clue_$=Longchoice_$(t_):�
_���worklong6:�:a_=�(9999):�a_>1000�a_�10<>0:�no_=�:�:b_=�(999):�b_>99�b_�10<>0:e_$=�(b_):�e_=1��(e_$):�(�e_$,e_,1))=0 no_=�
`,c�:�no_=�:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:Longchoice_$(t_)="LongMul6":Clue_$=Longchoice_$(t_):�
`T���LongMul2:left_=X%+80:on_=230:end_=100:down_=Y%-140:r_=0:�q_=1�2:�w_=1�4:r_=r_+1:a_$=�(a_(r_)):a_=a_(r_):b_$=�(b_(r_)):b_=b_(r_):c_$=�(c_(r_)):�left_+end_-�(a_$)*16-50-�(�(r_))*16,down_-100:�zero(�(r_));")"
`�@�split_(a_,down_-100):�Sign_%=��left_+end_+15,down_-100:�"x"
`�L�split_(b_,down_-140):�Sign_%=��left_+end_-�(�(b_))*16-20,down_-135:�"x"
`�5anslen_=�(c_$):ext_=0:�anslen_>6 ext_=ext_+gap_*2
a'�anslen_>3�anslen_<7 ext_=ext_+gap_
aq�left_+end_-anslen_*16-ext_,down_-170:�left_+end_-anslen_*16+anslen_*16+ext_,down_-170:�Answer_%=��LongMulAns
a05left_=left_+on_:�:left_=X%+80:down_=down_-290:�:�
al��LongMulAns:�Lma_%=��
a�Y�Longchoice_$(r_)="LongMul2"�Longchoice_$(r_)="LongMul4"�Longchoice_$(r_)="LongMul5"�
a��Longstyle_=1�
a�Xd_=a_*�(�b_$,1,1))*10:�split_(d_,down_-180):e_=a_*�(�b_$,2,1)):�split_(e_,down_-220)
a��:�Longstyle_=2�
a�Xd_=a_*�(�b_$,1,1))*10:�split_(d_,down_-220):e_=a_*�(�b_$,2,1)):�split_(e_,down_-180)
a���:�left_+end_-anslen_*16-10,down_-252:�left_+end_-anslen_*16+anslen_*16+gap_,down_-252:f_=d_+e_:�split_(f_,down_-260):�SecAns_%=��left_+end_-anslen_*16-10,down_-290:�left_+end_-anslen_*16+anslen_*16+gap_,down_-290
a�?�:�Longchoice_$(r_)="LongMul3"�Longchoice_$(r_)="LongMul1"�
b�d_=a_*�(�b_$,1,1))*10:�split_(d_,down_-180):�SecAns_%=��left_+end_-anslen_*16-10,down_-210:�left_+end_-anslen_*16+anslen_*16+gap_,down_-210
b #�:�Longchoice_$(r_)="LongMul6"�
b4�Longstyle_=1�
b>�d_=a_*�(�b_$,1,1))*100:�split_(d_,down_-180):e_=a_*�(�b_$,2,1))*10:�split_(e_,down_-220):f_=a_*�(�b_$,3,1)):�split_(f_,down_-260)
b\�:�Longstyle_=2�
bp�d_=a_*�(�b_$,1,1))*100:�split_(d_,down_-260):e_=a_*�(�b_$,2,1))*10:�split_(e_,down_-220):f_=a_*�(�b_$,3,1)):�split_(f_,down_-180)
b���:�left_+end_-anslen_*16-10,down_-292:�left_+end_-anslen_*16+anslen_*16+gap_,down_-292:g_=d_+e_+f_:�split_(g_,down_-300):�SecAns_%=��left_+end_-anslen_*16-10,down_-332:�left_+end_-anslen_*16+anslen_*16+gap_,down_-332
b��
b���:�split_(c_(r_),down_-180):�SecAns_%=��left_+end_-anslen_*16-ext_,down_-210:�left_+end_-anslen_*16+anslen_*16+ext_,down_-210
b��:�
b�6��split_(a_,v_):gap_=6:a_$=�zero(�(a_)):�(a_$)>6�
c�ra_$=�a_$,�(a_$)-2,3):�left_+end_-�(ra_$)*16,v_:�ra_$:mid_$=�a_$,�(a_$)-5,3):�left_+end_-�(ra_$)*16-�(mid_$)*16-gap_,v_:�mid_$:la_$=�a_$,1,�(a_$)-6):�left_+end_-�(ra_$)*16-�(mid_$)*16-gap_-�(la_$)*16-gap_,v_:�la_$
ct�:�(a_$)>3��(a_$)<7�
c�ra_$=�a_$,�(a_$)-2,3):�left_+end_-�(ra_$)*16,v_:�ra_$:la_$=�a_$,1,�(a_$)-3):�left_+end_-�(ra_$)*16-�(la_$)*16-gap_,v_:�la_$
c��:�(a_$)<4�
c�!�left_+end_-�(a_$)*16,v_:�a_$
c��:�
d2N��LongDivy:LongDiv_%=�fWS("LongDiv"):�LongDiv_(1)�sI(LongDiv_%,"LongDiv1")
dF)�LongDiv_(2)�sI(LongDiv_%,"LongDiv2")
dP)�LongDiv_(3)�sI(LongDiv_%,"LongDiv3")
dZ)�LongDiv_(4)�sI(LongDiv_%,"LongDiv4")
dd)�LongDiv_(5)�sI(LongDiv_%,"LongDiv5")
dn)�LongDiv_(6)�sI(LongDiv_%,"LongDiv6")
dx)�LongDiv_(7)�sI(LongDiv_%,"LongDiv7")
d��Lremainders:�
d�m��Lremainders:�LRemainder_$="No"�sI(LongDiv_%,"LDrem1"):�usI(LongDiv_%,"LDrem2"):�usI(LongDiv_%,"LDrem3")
d�`�LRemainder_$="All"�usI(LongDiv_%,"LDrem1"):�sI(LongDiv_%,"LDrem2"):�usI(LongDiv_%,"LDrem3")
d�`�LRemainder_$="Ran"�usI(LongDiv_%,"LDrem1"):�usI(LongDiv_%,"LDrem2"):�sI(LongDiv_%,"LDrem3")
d��
d�/ݤLDrem1_:LRemainder_$="No":�Lremainders:=�
d�0ݤLDrem2_:LRemainder_$="All":�Lremainders:=�
e0ݤLDrem3_:LRemainder_$="Ran":�Lremainders:=�
e1ݤLongdivv_:c_=0:�h_=1�7:�LongDiv_(h_)c_=c_+1
e	�:=c_
e"TݤLongDiv1_:�LongDiv_(1)��Longdivv_=1 LongDiv_(1)=�:�sI(LongDiv_%,"LongDiv1"):=�
e,+�LongDiv_(1)LongDiv_(1)=��LongDiv_(1)=�
e6=�
e@TݤLongDiv2_:�LongDiv_(2)��Longdivv_=1 LongDiv_(2)=�:�sI(LongDiv_%,"LongDiv2"):=�
eJ+�LongDiv_(2)LongDiv_(2)=��LongDiv_(2)=�
eT=�
e^TݤLongDiv3_:�LongDiv_(3)��Longdivv_=1 LongDiv_(3)=�:�sI(LongDiv_%,"LongDiv3"):=�
eh+�LongDiv_(3)LongDiv_(3)=��LongDiv_(3)=�
er=�
e|TݤLongDiv4_:�LongDiv_(4)��Longdivv_=1 LongDiv_(4)=�:�sI(LongDiv_%,"LongDiv4"):=�
e�+�LongDiv_(4)LongDiv_(4)=��LongDiv_(4)=�
e�=�
e�TݤLongDiv5_:�LongDiv_(5)��Longdivv_=1 LongDiv_(5)=�:�sI(LongDiv_%,"LongDiv5"):=�
e�+�LongDiv_(5)LongDiv_(5)=��LongDiv_(5)=�
e�=�
e�TݤLongDiv6_:�LongDiv_(6)��Longdivv_=1 LongDiv_(6)=�:�sI(LongDiv_%,"LongDiv6"):=�
e�+�LongDiv_(6)LongDiv_(6)=��LongDiv_(6)=�
e�=�
e�TݤLongDiv7_:�LongDiv_(7)��Longdivv_=1 LongDiv_(7)=�:�sI(LongDiv_%,"LongDiv7"):=�
e�+�LongDiv_(7)LongDiv_(7)=��LongDiv_(7)=�
e�=�
f�ݤLongDivgo_:�GetTitles:dummy_=�(-�):ș"Hourglass_On":flag_=�:randi_%=�(2):got_%=0:�y_=1�7:�LongDiv_(y_)=�got_%=got_%+1:gc_%(got_%)=y_
f0�:�got_%=1�
fD#�h_=1�8:froc_(h_)=gc_%(got_%):�
fN�:�got_%>1�
fb��:flag_=�:�r_=1�8:finder_%(r_)=0:�:needed_%=8�got_%:�h_=1�8:r_=�(got_%):froc_(h_)=gc_%(r_):finder_%(r_)=finder_%(r_)+1:�:�r_=1�got_%:�finder_%(r_)<needed_% flag_=�
f��:�flag_=�
f�e�:�t_=1�6:ș"Hourglass_Percentage",t_/6*100:�froc_(t_)=1 max_=999:min_=100:div_=90:minn_=0:mod_=�
f�:�froc_(t_)=2 max_=999:min_=100:div_=99:minn_=10:mod_=�
f�<�froc_(t_)=3 max_=9999:min_=1000:div_=90:minn_=10:mod_=�
g<�froc_(t_)=4 max_=9999:min_=1000:div_=99:minn_=10:mod_=�
g>�froc_(t_)=5 max_=99999:min_=10000:div_=99:minn_=10:mod_=�
g@�froc_(t_)=6 max_=999999:min_=100000:div_=99:minn_=10:mod_=�
g B�froc_(t_)=7 max_=999999:min_=100000:div_=999:minn_=100:mod_=�
g*q�worklongD1:�:ș"Hourglass_Off":�usI(LongDiv_%,"LongDivgo"):started_%=�:last_=3:quit_=�:Clue_$="LDivy":=�sums
gR��Ldups:�t_>1�
gf"�gg_=1�t_-1:�b_=b_(gg_)flag_=�
gp�
gz�:�
g�'��worklongD1:�LRemainder_$="No"�lde
g��LRemainder_$="All"�ldf
g��LRemainder_$="Ran"�
g�$randi_%=�(2):�randi_%=1�lde��ldf
g�7�:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_�b_:rem_(t_)=a_�b_:�
g�o��lde:�:�:flag_=�:�:a_=�(max_):�a_>min_:�mod_=��b_=�(div_):�b_�10=0�b_>minn_��b_=�(div_):�b_�10<>0�b_>minn_
h$�a_�b_=0:�Ldups:�flag_=�:�
hVo��ldf:�:�:flag_=�:�:a_=�(max_):�a_>min_:�mod_=��b_=�(div_):�b_�10=0�b_>minn_��b_=�(div_):�b_�10<>0�b_>minn_
h�?c_=a_/b_:c_$=�(c_):�cc_=1��(c_$):�c_$,cc_,1)="." poin_=cc_
h�g�:cz_$=�c_$,poin_+1,�(c_$)-poin_+1):�(cz_$)>pwon_��cz_$,pwon_,1)="9"��(�cz_$,pwon_+1,1))>4 flag_=�
h�;�a_�b_<>0�flag_=�:�(cz_$)>pwon_��(�cz_$,pwon_+1,1))>4�
h�=d_=�(�cz_$,pwon_,1)):d_=d_+1:d_$=�(d_):�cz_$,pwon_,1)=d_$
h�2�:�(cz_$)<pwon_ cz_$=cz_$+�pwon_-�(cz_$),"0")
i
-cz_$(t_)=�cz_$,1,pwon_):�Ldups:�flag_=�:�
id<��Madd:Madd_%=�fWS("Madd"):�maddy_(1)�sI(Madd_%,"Madd1")
ix!�maddy_(2)�sI(Madd_%,"Madd2")
i�!�maddy_(3)�sI(Madd_%,"Madd3")
i�!�maddy_(4)�sI(Madd_%,"Madd4")
i�!�maddy_(5)�sI(Madd_%,"Madd5")
i�!�maddy_(6)�sI(Madd_%,"Madd6")
i��mt_(1)�sI(Madd_%,"mt1")
i��mt_(2)�sI(Madd_%,"mt2")
i��mt_(3)�sI(Madd_%,"mt3")
i��mt_(4)�sI(Madd_%,"mt4")
i��mt_(5)�sI(Madd_%,"mt5")
i��mt_(6)�sI(Madd_%,"mt6")
i��madcarry:�
jc��madcarry:�maddcarry_$="No"�sI(Madd_%,"mcarry1"):�usI(Madd_%,"mcarry2"):�usI(Madd_%,"mcarry3")
jY�maddcarry_$="All"�usI(Madd_%,"mcarry1"):�sI(Madd_%,"mcarry2"):�usI(Madd_%,"mcarry3")
j"Y�maddcarry_$="Ran"�usI(Madd_%,"mcarry1"):�usI(Madd_%,"mcarry2"):�sI(Madd_%,"mcarry3")
j,�
jT,ݤmaddy_:c_=0:�h_=1�6:�maddy_(h_)c_=c_+1
j^	�:=c_
jhDݤMadd1_:�maddy_(1)��maddy_=1 maddy_(1)=�:�sI(Madd_%,"Madd1"):=�
jr%�maddy_(1)maddy_(1)=��maddy_(1)=�
j|=�
j�DݤMadd2_:�maddy_(2)��maddy_=1 maddy_(2)=�:�sI(Madd_%,"Madd2"):=�
j�%�maddy_(2)maddy_(2)=��maddy_(2)=�
j�=�
j�DݤMadd3_:�maddy_(3)��maddy_=1 maddy_(3)=�:�sI(Madd_%,"Madd3"):=�
j�%�maddy_(3)maddy_(3)=��maddy_(3)=�
j�=�
j�DݤMadd4_:�maddy_(4)��maddy_=1 maddy_(4)=�:�sI(Madd_%,"Madd4"):=�
j�%�maddy_(4)maddy_(4)=��maddy_(4)=�
j�=�
j�DݤMadd5_:�maddy_(5)��maddy_=1 maddy_(5)=�:�sI(Madd_%,"Madd5"):=�
j�%�maddy_(5)maddy_(5)=��maddy_(5)=�
j�=�
j�DݤMadd6_:�maddy_(6)��maddy_=1 maddy_(6)=�:�sI(Madd_%,"Madd6"):=�
k%�maddy_(6)maddy_(6)=��maddy_(6)=�
k=�
kHݤmt1_:�mt_(1)mt_(1)=�:�usI(Madd_%,"mt1")�mt_(1)=�:�sI(Madd_%,"mt1")
k&=�
k0Hݤmt2_:�mt_(2)mt_(2)=�:�usI(Madd_%,"mt2")�mt_(2)=�:�sI(Madd_%,"mt2")
k:=�
kDHݤmt3_:�mt_(3)mt_(3)=�:�usI(Madd_%,"mt3")�mt_(3)=�:�sI(Madd_%,"mt3")
kN=�
kXHݤmt4_:�mt_(4)mt_(4)=�:�usI(Madd_%,"mt4")�mt_(4)=�:�sI(Madd_%,"mt4")
kb=�
klHݤmt5_:�mt_(5)mt_(5)=�:�usI(Madd_%,"mt5")�mt_(5)=�:�sI(Madd_%,"mt5")
kv=�
k�Hݤmt6_:�mt_(6)mt_(6)=�:�usI(Madd_%,"mt6")�mt_(6)=�:�sI(Madd_%,"mt6")
k�=�
k�,ݤmcarry1_:maddcarry_$="No":�madcarry:=�
k�-ݤmcarry2_:maddcarry_$="All":�madcarry:=�
k�-ݤmcarry3_:maddcarry_$="Ran":�madcarry:=�
kЕݤMaddgo_:�GetTitles:many_=12:�Smadd_:�whatmadds:�maddup:started_%=�:�usI(Madd_%,"Maddgo"):ș"Hourglass_Off":last_=3:quit_=�:Clue_$="Madd":=�sums
lw��Smadd_:�maddy_(3)��maddy_(4)�mt_(1)=�:�usI(Madd_%,"mt1"):mt_(2)=�:�usI(Madd_%,"mt2"):mt_(3)=�:�usI(Madd_%,"mt3")
ln�maddy_(5)��maddy_(6)�mt_(4)=�:�usI(Madd_%,"mt4"):mt_(5)=�:�usI(Madd_%,"mt5"):mt_(6)=�:�usI(Madd_%,"mt6")
l�
l R��whatmadds:ș"Hourglass_On":thou_=0:hun_=0:�mt_(1)hun_=hun_+1:hun_$(hun_)="�"
l>&�mt_(2)hun_=hun_+1:hun_$(hun_)="m"
lH'�mt_(3)hun_=hun_+1:hun_$(hun_)="cm"
lR+�mt_(4)thou_=thou_+1:thou_$(thou_)="kg"
l\+�mt_(5)thou_=thou_+1:thou_$(thou_)="km"
lf*�mt_(6)thou_=thou_+1:thou_$(thou_)="l"
lpTgot_%=0:�r_%=1�6:�maddy_(r_%)�got_%=got_%+1:gc_%(got_%)=r_%:addytype_(got_%)=r_%
lz4�:�got_%=1�r_=1�12:lineaddy_(r_)=gc_%(got_%):�:�
l�\�got_%=6�times(got_%,12):�r_=1�12:lineaddy_(r_)=gc_%(finder_%(r_)):�:ș"Hourglass_Off":�
l��needed_%=12�got_%:�:�r_=1�12:finder_%(r_)=0:�:flag_=�:�r_=1�12:ș"Hourglass_Percentage",r_/12*100:�:flig_=�:ran_%=�(got_%):�r_>1�gc_%(ran_%)=lineaddy_(r_-1)flig_=�
l�u�flig_=�:lineaddy_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:�:�t_=1�got_%:�finder_%(t_)<needed_% flag_=�
m"�:�flag_=�:ș"Hourglass_Off":�
m8t��maddup:dummy_=�(-�):�t_=1�12:a_(t_)=-1:b_(t_)=-1:�:ș"Hourglass_On":�t_=1�12:�lineaddy_(t_)=1 ran_%=99:rin_%=9
mj'�lineaddy_(t_)=2 ran_%=999:rin_%=99
mt'�lineaddy_(t_)=3 ran_%=999:rin_%=99
m~)�lineaddy_(t_)=4 ran_%=9999:rin_%=999
m�)�lineaddy_(t_)=5 ran_%=9999:rin_%=999
m�+�lineaddy_(t_)=6 ran_%=99999:rin_%=9999
m�!�lineaddy_(t_)<3 top_$(t_)=""
m�%�lineaddy_(t_)=3�lineaddy_(t_)=4�
m��hun_=0 top_$(t_)=""
m��hun_=1 top_$(t_)=hun_$(1)
m�.�hun_>1 top_=�(hun_):top_$(t_)=hun_$(top_)
m�'�:�lineaddy_(t_)=5�lineaddy_(t_)=6�
m��thou_=0 top_$(t_)=""
m� �thou_=1 top_$(t_)=thou_$(1)
m�1�thou_>1 top_=�(thou_):top_$(t_)=thou_$(top_)
n��:ș"Hourglass_Percentage",t_/12*100:�:flag_=0:�:a_=�(ran_%):b_=�(ran_%):�a_�10<>0�b_�10<>0�a_>rin_%�b_>rin_%:�maddcarry_$="No"�nomaddcarry
nP#�maddcarry_$="All"�allmaddcarry
nZ
�t_>1�
nd*�e_=1�t_-1:�a_=a_(e_)�b_=b_(e_)flag_=1
nn�
nxE�:�flag_=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_+b_:�:ș"Hourglass_Off":�
n�R��nomaddcarry:a_$=�(a_):b_$=�(b_):la_=�(a_$):lb_=�(b_$):z_=la_:�lb_<la_ z_=lb_
n�6�r_=z_�1�-1:�(�a_$,r_,1))+�(�b_$,r_,1))>9 flag_=1
n��:�
n�S��allmaddcarry:a_$=�(a_):b_$=�(b_):la_=�(a_$):lb_=�(b_$):z_=la_:�lb_>la_ z_=lb_
o7�r_=z_�1�-1:�(�a_$,r_,1))+�(�b_$,r_,1))<10 flag_=1
o�:�
o"Z��MDiv:X%=X%+90:left_=X%+80:on_=270:end_=100:down_=Y%-110:r_=0:�many_=9�q_=1�3��q_=1�4
o^H�w_=1�3:r_=r_+1:�quit_=�a_=0:b_=0:c_=0�a_=a_(r_):b_=b_(r_):c_=c_(r_)
or�dunkleft_=left_:a_$=�zero(�(a_)):b_$=�zero(�(b_)):c_$=�zero(�(c_)):anslen_=�(a_$):dunkleft_=left_:lon_=�(a_$):left_=left_+lon_/2*16:pt_=left_:�linedvy_(r_)=1�pppoint(1,1)
o� �linedvy_(r_)=2�pppoint(2,1)
o� �linedvy_(r_)=3�pppoint(1,2)
o� �linedvy_(r_)=4�pppoint(2,2)
o� �linedvy_(r_)=5�pppoint(1,3)
o� �linedvy_(r_)=6�pppoint(2,3)
o�(�linedvy_(r_)=1��(c_$)<2 c_$="O"+c_$
o�2�linedvy_(r_)=1 left_$=�c_$,1):right_$=�c_$,1)
p9�linedvy_(r_)=2 left_$=�c_$,�(c_$)-1):right_$=�c_$,1)
p(�linedvy_(r_)=3��(c_$)<3 c_$="O"+c_$
p2�linedvy_(r_)=3 left_$=�c_$,1):right_$=�c_$,2)
p&9�linedvy_(r_)=4 left_$=�c_$,�(c_$)-2):right_$=�c_$,2)
p0(�linedvy_(r_)=5��(c_$)<4 c_$="O"+c_$
p:2�linedvy_(r_)=5 left_$=�c_$,1):right_$=�c_$,3)
pD9�linedvy_(r_)=6 left_$=�c_$,�(c_$)-3):right_$=�c_$,3)
pNEleft_=dunkleft_:left_=left_+on_:�:left_=X%+80:down_=down_-180:�:�
p����pppoint(x_,y_):left_$=�a_$,x_):right_$=�a_$,y_):al_=�(left_$)*16:ar_=�(right_$)*16:�left_+end_-ar_,down_-100:�right_$:�left_+end_-ar_-20,down_-90:�".":�left_+end_-ar_-al_-30,down_-100:�left_$
p���left_+end_-ar_-30-�(top_$(r_))*16,down_-25:�top_$(r_):�left_+end_-ar_-al_-50,down_-100:�")":�left_+end_-ar_-al_-50,down_-94:�left_+end_,down_-94:�left_+end_-ar_-al_-55-�(b_$)*16,down_-100:�b_$
p�Y�left_+end_-ar_-al_-100-�(b_$)*16-�(�(r_))*16,down_-60:�zero(�(r_));")":�Answer_%=��
qAleft_$=�c_$,�(c_$)-y_):right_$=�c_$,y_):�left_$="" left_$="O"
q�al_=�(left_$)*16:ar_=�(right_$)*16:�left_+end_-ar_,down_-60:�right_$:�left_+end_-ar_-20,down_-50:�".":�left_+end_-ar_-al_-30,down_-60:�left_$
q>�:�
qR���Mmult_:X%=X%+70:left_=X%+80:on_=270:end_=100:down_=Y%-90:r_=0:�q_=1�4:�w_=1�3:r_=r_+1:�quit_=�a_=0:b_=0:c_=0�a_=a_(r_):b_=b_(r_):c_=c_(r_)
q��dunkleft_=left_:a_$=�zero(�(a_)):b_$=�zero(�(b_)):c_$=�zero(�(c_)):anslen_=�(c_$):dunkleft_=left_:lon_=�(a_$):left_=left_+lon_/2*16:pt_=left_:�left_+end_-�(�(a_))*16-80-�(�(r_))*16,down_-100:�zero(�(r_));")"
q� �lineaddy_(r_)=1�ppoint(1,1)
q� �lineaddy_(r_)=2�ppoint(2,1)
q� �lineaddy_(r_)=3�ppoint(1,2)
r �lineaddy_(r_)=4�ppoint(2,2)
r �lineaddy_(r_)=5�ppoint(1,3)
r �lineaddy_(r_)=6�ppoint(2,3)
r$��left_+end_-anslen_*16-30,down_-172:�left_+end_-anslen_*16+anslen_*16,down_-172:left_=dunkleft_:left_=left_+on_:�:left_=X%+80:down_=down_-180:�:�
r`���ppoint(x_,y_):left_$=�a_$,x_):right_$=�a_$,y_):al_=�(left_$)*16:ar_=�(right_$)*16:�left_+end_-ar_,down_-100:�right_$:�Sign_%=��left_+end_+10,down_-100:�sign_$
r���left_+end_-ar_-20,down_-90:�".":�left_+end_-ar_-al_-30,down_-100:�left_$:�left_+end_-ar_-30-�(top_$(r_))*16,down_-60:�top_$(r_):�left_+end_-ar_-30-�(b_$)*16,down_-140:�b_$
r�>�Sign_%=��left_+end_-ar_-30-�(b_$)*16-30,down_-140:�sign_$
r�^�SecAns_%=��left_+end_-anslen_*16-30,down_-212:�left_+end_-anslen_*16+anslen_*16,down_-212
r��Answer_%=��
r�Aleft_$=�c_$,�(c_$)-y_):right_$=�c_$,y_):�left_$="" left_$="O"
r�al_=�(left_$)*16:ar_=�(right_$)*16:�left_+end_-ar_,down_-180:�right_$:�left_+end_-ar_-20,down_-170:�".":�left_+end_-ar_-al_-30,down_-180:�left_$
s�:�
s($��madd:�Clue_$="Madd" sign_$="+"
s<�Clue_$="Msub" sign_$="-"
sF"�Clue_$,1,3)="Sub" sign_$="-"
sP"�Clue_$,1,3)="Mul" sign_$="x"
sZRX%=X%+50:left_=X%+80:on_=270:end_=100:down_=Y%-90:r_=0:�many_=9�q_=1�3��q_=1�4
s�H�w_=1�3:r_=r_+1:�quit_=�a_=0:b_=0:c_=0�a_=a_(r_):b_=b_(r_):c_=c_(r_)
s�rdunkleft_=left_:a_$=�zero(�(a_)):b_$=�zero(�(b_)):c_$=�zero(�(c_)):�(b_$)>�(c_$)anslen_=�(b_$)�anslen_=�(c_$)
s�8dunkleft_=left_:lon_=�(a_$):�(b_$)>lon_ lon_=�(b_$)
s��(c_$)>lon_ lon_=�(c_$)
s�left_=left_+lon_/2*16:�left_+end_-�(�(a_))*16-60-�(�(r_))*16,down_-100:�zero(�(r_));")":�r_=10�left_+end_-�(�(a_))*16-60-�(�(r_))*16,down_-100:�"1O)"
t�lineaddy_(r_)=1�point(1,1)
t�lineaddy_(r_)=2�point(2,1)
t�lineaddy_(r_)=3�point(1,2)
t"�lineaddy_(r_)=4�point(2,2)
t,�lineaddy_(r_)=5�point(1,3)
t6�lineaddy_(r_)=6�point(2,3)
t@��left_+end_-anslen_*16-30,down_-172:�left_+end_-anslen_*16+anslen_*16,down_-172:left_=dunkleft_:left_=left_+on_:�:left_=X%+80:down_=down_-180:�:�
t|���point(x_,y_):left_$=�a_$,x_):right_$=�a_$,y_):al_=�(left_$)*16:ar_=�(right_$)*16:�left_+end_-ar_,down_-100:�right_$:�Sign_%=��left_+end_+10,down_-100:�sign_$
t���left_+end_-ar_-20,down_-90:�".":�left_+end_-ar_-al_-30,down_-100:�left_$:�left_+end_-ar_-30-�(top_$(r_))*16,down_-60:�top_$(r_):left_$=�b_$,x_):right_$=�b_$,y_):al_=�(left_$)*16:ar_=�(right_$)*16
t��left_+end_-ar_,down_-140:�right_$:�left_+end_-ar_-20,down_-130:�".":�left_+end_-ar_-al_-30,down_-140:�left_$:�Sign_%=��left_+end_-ar_-al_-50,down_-140:�sign_$
u^�SecAns_%=��left_+end_-anslen_*16-30,down_-212:�left_+end_-anslen_*16+anslen_*16,down_-212
u�Answer_%=��
uAleft_$=�c_$,�(c_$)-y_):right_$=�c_$,y_):�left_$="" left_$="O"
u0�al_=�(left_$)*16:ar_=�(right_$)*16:�left_+end_-ar_,down_-180:�right_$:�left_+end_-ar_-20,down_-170:�".":�left_+end_-ar_-al_-30,down_-180:�left_$
uX�:�
u�@��Msub:Msub_%=�fWS("MetricSub"):�msub_(1)�sI(Msub_%,"Msub1")
u� �msub_(2)�sI(Msub_%,"Msub2")
u� �msub_(3)�sI(Msub_%,"Msub3")
u� �msub_(4)�sI(Msub_%,"Msub4")
u� �msub_(5)�sI(Msub_%,"Msub5")
u� �msub_(6)�sI(Msub_%,"Msub6")
u��st_(1)�sI(Msub_%,"st1")
u��st_(2)�sI(Msub_%,"st2")
u��st_(3)�sI(Msub_%,"st3")
u��st_(4)�sI(Msub_%,"st4")
v�st_(5)�sI(Msub_%,"st5")
v�st_(6)�sI(Msub_%,"st6")
v�msubcarry:�
v4d��msubcarry:�msubcarry_$="No"�sI(Msub_%,"scarry1"):�usI(Msub_%,"scarry2"):�usI(Msub_%,"scarry3")
vHY�msubcarry_$="All"�usI(Msub_%,"scarry1"):�sI(Msub_%,"scarry2"):�usI(Msub_%,"scarry3")
vRY�msubcarry_$="Ran"�usI(Msub_%,"scarry1"):�usI(Msub_%,"scarry2"):�sI(Msub_%,"scarry3")
v\�
v�*ݤmsub_:c_=0:�h_=1�6:�msub_(h_)c_=c_+1
v�	�:=c_
v�AݤMsub1_:�msub_(1)��msub_=1 msub_(1)=�:�sI(Msub_%,"Msub1"):=�
v�"�msub_(1)msub_(1)=��msub_(1)=�
v�=�
v�AݤMsub2_:�msub_(2)��msub_=1 msub_(2)=�:�sI(Msub_%,"Msub2"):=�
v�"�msub_(2)msub_(2)=��msub_(2)=�
v�=�
v�AݤMsub3_:�msub_(3)��msub_=1 msub_(3)=�:�sI(Msub_%,"Msub3"):=�
v�"�msub_(3)msub_(3)=��msub_(3)=�
v�=�
v�AݤMsub4_:�msub_(4)��msub_=1 msub_(4)=�:�sI(Msub_%,"Msub4"):=�
v�"�msub_(4)msub_(4)=��msub_(4)=�
w=�
wAݤMsub5_:�msub_(5)��msub_=1 msub_(5)=�:�sI(Msub_%,"Msub5"):=�
w"�msub_(5)msub_(5)=��msub_(5)=�
w$=�
w.AݤMsub6_:�msub_(6)��msub_=1 msub_(6)=�:�sI(Msub_%,"Msub6"):=�
w8"�msub_(6)msub_(6)=��msub_(6)=�
wB=�
wL#ݤst1_:�st_(1)st_(1)=��st_(1)=�
wV=�
w`#ݤst2_:�st_(2)st_(2)=��st_(2)=�
wj=�
wt#ݤst3_:�st_(3)st_(3)=��st_(3)=�
w~=�
w�#ݤst4_:�st_(4)st_(4)=��st_(4)=�
w�=�
w�#ݤst5_:�st_(5)st_(5)=��st_(5)=�
w�=�
w�#ݤst6_:�st_(6)st_(6)=��st_(6)=�
w�=�
w�-ݤscarry1_:msubcarry_$="No":�msubcarry:=�
w�.ݤscarry2_:msubcarry_$="All":�msubcarry:=�
w�.ݤscarry3_:msubcarry_$="Ran":�msubcarry:=�
x�ݤMsubgo_:�GetTitles:�Tsub_:�whatsubs:�saddup:started_%=�:�usI(Msub_%,"Msubgo"):ș"Hourglass_Off":last_=3:quit_=�:Clue_$="Msub":=�sums
x2t��Tsub_:�msub_(3)��msub_(4)�st_(1)=�:�usI(Msub_%,"st1"):st_(2)=�:�usI(Msub_%,"st2"):st_(3)=�:�usI(Msub_%,"st3")
x<l�msub_(5)��msub_(6)�st_(4)=�:�usI(Msub_%,"st4"):st_(5)=�:�usI(Msub_%,"st5"):st_(6)=�:�usI(Msub_%,"st6")
xF�
xPQ��whatsubs:ș"Hourglass_On":thou_=0:hun_=0:�st_(1)hun_=hun_+1:hun_$(hun_)="�"
xn&�st_(2)hun_=hun_+1:hun_$(hun_)="m"
xx'�st_(3)hun_=hun_+1:hun_$(hun_)="cm"
x�+�st_(4)thou_=thou_+1:thou_$(thou_)="kg"
x�+�st_(5)thou_=thou_+1:thou_$(thou_)="km"
x�*�st_(6)thou_=thou_+1:thou_$(thou_)="l"
x�Pgot_%=0:�r_=1�6:�msub_(r_)=�got_%=got_%+1:addytype_(got_%)=r_:gc_%(got_%)=r_
x�9�:�got_%=1�r_=1�12:lineaddy_(r_)=addytype_(got_%):�:�
x�\�got_%=6�times(got_%,12):�r_=1�12:lineaddy_(r_)=gc_%(finder_%(r_)):�:ș"Hourglass_Off":�
xȧneeded_%=12�got_%:�:�r_=1�12:finder_%(r_)=0:�:flag_=�:�r_=1�12:ș"Hourglass_Percentage",r_/12*100:�:flig_=�:ran_%=�(got_%):�r_>1�gc_%(ran_%)=lineaddy_(r_-1)flig_=�
y,u�flig_=�:lineaddy_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:�:�t_=1�got_%:�finder_%(t_)<needed_% flag_=�
yJ"�:�flag_=�:ș"Hourglass_Off":�
yht��saddup:dummy_=�(-�):�t_=1�12:a_(t_)=-1:b_(t_)=-1:�:ș"Hourglass_On":�t_=1�12:�lineaddy_(t_)=1 ran_%=99:rin_%=9
y�'�lineaddy_(t_)=2 ran_%=999:rin_%=99
y�'�lineaddy_(t_)=3 ran_%=999:rin_%=99
y�)�lineaddy_(t_)=4 ran_%=9999:rin_%=999
y�)�lineaddy_(t_)=5 ran_%=9999:rin_%=999
y�+�lineaddy_(t_)=6 ran_%=99999:rin_%=9999
y�!�lineaddy_(t_)<3 top_$(t_)=""
y�%�lineaddy_(t_)=3�lineaddy_(t_)=4�
y��hun_=0 top_$(t_)=""
y��hun_=1 top_$(t_)=hun_$(1)
y�.�hun_>1 top_=�(hun_):top_$(t_)=hun_$(top_)
y�'�:�lineaddy_(t_)=5�lineaddy_(t_)=6�
z�thou_=0 top_$(t_)=""
z �thou_=1 top_$(t_)=thou_$(1)
z&1�thou_>1 top_=�(thou_):top_$(t_)=thou_$(top_)
z0��:ș"Hourglass_Percentage",t_/12*100:�:flag_=0:�:a_=�(ran_%):b_=�(ran_%):�a_�10<>0�b_�10<>0�a_>rin_%�b_>rin_%�a_>b_:�msubcarry_$="No"�nosubcarry
z�"�msubcarry_$="All"�allsubcarry
z�
�t_>1�
z�*�e_=1�t_-1:�a_=a_(e_)�b_=b_(e_)flag_=1
z��
z�E�:�flag_=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_-b_:�:ș"Hourglass_Off":�
{@��Mmul:Mmul_%=�fWS("MetricMul"):�mmul_(1)�sI(Mmul_%,"Mmul1")
{* �mmul_(2)�sI(Mmul_%,"Mmul2")
{4 �mmul_(3)�sI(Mmul_%,"Mmul3")
{> �mmul_(4)�sI(Mmul_%,"Mmul4")
{H �mmul_(5)�sI(Mmul_%,"Mmul5")
{R �mmul_(6)�sI(Mmul_%,"Mmul6")
{\�mmt_(1)�sI(Mmul_%,"mmt1")
{f�mmt_(2)�sI(Mmul_%,"mmt2")
{p�mmt_(3)�sI(Mmul_%,"mmt3")
{z�mmt_(4)�sI(Mmul_%,"mmt4")
{��mmt_(5)�sI(Mmul_%,"mmt5")
{��mmt_(6)�sI(Mmul_%,"mmt6")
{�"�Mmult_(1)�sI(Mmul_%,"mmult1")
{�"�Mmult_(2)�sI(Mmul_%,"mmult2")
{�"�Mmult_(3)�sI(Mmul_%,"mmult3")
{�"�Mmult_(4)�sI(Mmul_%,"mmult4")
{�"�Mmult_(5)�sI(Mmul_%,"mmult5")
{�"�Mmult_(6)�sI(Mmul_%,"mmult6")
{�"�Mmult_(7)�sI(Mmul_%,"mmult7")
{�"�Mmult_(8)�sI(Mmul_%,"mmult8")
{�"�Mmult_(9)�sI(Mmul_%,"mmult9")
{��
|$*ݤMmul_:c_=0:�h_=1�6:�mmul_(h_)c_=c_+1
|.	�:=c_
|8AݤMmul1_:�mmul_(1)��Mmul_=1 mmul_(1)=�:�sI(Mmul_%,"Mmul1"):=�
|B"�mmul_(1)mmul_(1)=��mmul_(1)=�
|L=�
|VAݤMmul2_:�mmul_(2)��Mmul_=1 mmul_(2)=�:�sI(Mmul_%,"Mmul2"):=�
|`"�mmul_(2)mmul_(2)=��mmul_(2)=�
|j=�
|tAݤMmul3_:�mmul_(3)��Mmul_=1 mmul_(3)=�:�sI(Mmul_%,"Mmul3"):=�
|~"�mmul_(3)mmul_(3)=��mmul_(3)=�
|�=�
|�AݤMmul4_:�mmul_(4)��Mmul_=1 mmul_(4)=�:�sI(Mmul_%,"Mmul4"):=�
|�"�mmul_(4)mmul_(4)=��mmul_(4)=�
|�=�
|�AݤMmul5_:�mmul_(5)��Mmul_=1 mmul_(5)=�:�sI(Mmul_%,"Mmul5"):=�
|�"�mmul_(5)mmul_(5)=��mmul_(5)=�
|�=�
|�AݤMmul6_:�mmul_(6)��Mmul_=1 mmul_(6)=�:�sI(Mmul_%,"Mmul6"):=�
|�"�mmul_(6)mmul_(6)=��mmul_(6)=�
|�=�
|�'ݤmmt1_:�mmt_(1)mmt_(1)=��mmt_(1)=�
|�=�
}'ݤmmt2_:�mmt_(2)mmt_(2)=��mmt_(2)=�
}
=�
}'ݤmmt3_:�mmt_(3)mmt_(3)=��mmt_(3)=�
}=�
}('ݤmmt4_:�mmt_(4)mmt_(4)=��mmt_(4)=�
}2=�
}<'ݤmmt5_:�mmt_(5)mmt_(5)=��mmt_(5)=�
}F=�
}P'ݤmmt6_:�mmt_(6)mmt_(6)=��mmt_(6)=�
}Z=�
}d,ݤMmult_:c_=0:�h_=1�9:�Mmult_(h_)c_=c_+1
}n	�:=c_
}xFݤmmult1_:�Mmult_(1)��Mmult_=1 Mmult_(1)=�:�sI(Mmul_%,"mmult1"):=�
}�%�Mmult_(1)Mmult_(1)=��Mmult_(1)=�
}�=�
}�Fݤmmult2_:�Mmult_(2)��Mmult_=1 Mmult_(2)=�:�sI(Mmul_%,"mmult2"):=�
}�%�Mmult_(2)Mmult_(2)=��Mmult_(2)=�
}�=�
}�Fݤmmult3_:�Mmult_(3)��Mmult_=1 Mmult_(3)=�:�sI(Mmul_%,"mmult3"):=�
}�%�Mmult_(3)Mmult_(3)=��Mmult_(3)=�
}�=�
}�Fݤmmult4_:�Mmult_(4)��Mmult_=1 Mmult_(4)=�:�sI(Mmul_%,"mmult4"):=�
}�%�Mmult_(4)Mmult_(4)=��Mmult_(4)=�
}�=�
}�Fݤmmult5_:�Mmult_(5)��Mmult_=1 Mmult_(5)=�:�sI(Mmul_%,"mmult5"):=�
}�%�Mmult_(5)Mmult_(5)=��Mmult_(5)=�
~=�
~Fݤmmult6_:�Mmult_(6)��Mmult_=1 Mmult_(6)=�:�sI(Mmul_%,"mmult6"):=�
~%�Mmult_(6)Mmult_(6)=��Mmult_(6)=�
~"=�
~,Fݤmmult7_:�Mmult_(7)��Mmult_=1 Mmult_(7)=�:�sI(Mmul_%,"mmult7"):=�
~6%�Mmult_(7)Mmult_(7)=��Mmult_(7)=�
~@=�
~JFݤmmult8_:�Mmult_(8)��Mmult_=1 Mmult_(8)=�:�sI(Mmul_%,"mmult8"):=�
~T%�Mmult_(8)Mmult_(8)=��Mmult_(8)=�
~^=�
~hFݤmmult9_:�Mmult_(9)��Mmult_=1 Mmult_(9)=�:�sI(Mmul_%,"mmult9"):=�
~r%�Mmult_(9)Mmult_(9)=��Mmult_(9)=�
~|=�
~�bݤMmulgo_:�GetTitles:flag_=�:dummy_=�(-�):�MMmul_:get_%=0:�r_%=1�9:�Mmult_(r_%)=�get_%=get_%+1
~�9�:�get_%=0 flag_=�:complain_$="Select a multiplicand"
~�Agot_%=0:�r_=1�6:�mmul_(r_)=�got_%=got_%+1:addytype_(got_%)=r_
~�1�:�got_%=0 flag_=�:complain_$="Select a type"
~�K�flag_=�V_$=�alert(complain_$,"","OK","","",0):�usI(Mmul_%,"Mmulgo"):=�
~��whatMmult:�whatMmults:�Mmultup:started_%=�:�usI(Mmul_%,"Mmulgo"):ș"Hourglass_Off":last_=3:quit_=�:Clue_$="Mmul":sign_$="x":=�sums
{��MMmul_:�mmul_(3)��mmul_(4)�mmt_(1)=�:�usI(Mmul_%,"mmt1"):mmt_(2)=�:�usI(Mmul_%,"mmt2"):mmt_(3)=�:�usI(Mmul_%,"mmt3")
r�mmul_(5)��mmul_(6)�mmt_(4)=�:�usI(Mmul_%,"mmt4"):mmt_(5)=�:�usI(Mmul_%,"mmt5"):mmt_(6)=�:�usI(Mmul_%,"mmt6")
&�
0]��whatMmult:ș"Hourglass_On":get_%=0:�r_%=1�9:�Mmult_(r_%)=�get_%=get_%+1:gc_%(get_%)=r_%
DM�:�get_%=1�tr_%=1�12:Nb_%(tr_%)=�(Mmult_$(gc_%(1))):�:ș"Hourglass_Off":�
Xineeded_%=12�get_%:�r_=1�12:gc_%(r_)=0:�:got_%=0:�r_%=1�9:�Mmult_(r_%)=��got_%=got_%+1:gc_%(got_%)=r_%
v��:�:flag_=�:�r_=1�12:finder_%(r_)=0:�:�r_=1�12:ș"Hourglass_Percentage",r_/12*100:ran_%=�(got_%):Nb_%(r_)=�(Mmult_$(gc_%(ran_%))):finder_%(ran_%)=finder_%(ran_%)+1:�:�t_=1�got_%:�finder_%(t_)<needed_% flag_=�
�"�:�flag_=�:ș"Hourglass_Off":�
�V��whatMmults:ș"Hourglass_On":thou_=0:hun_=0:�mmt_(1)=�hun_=hun_+1:hun_$(hun_)="�"
�)�mmt_(2)=�hun_=hun_+1:hun_$(hun_)="m"
�*�mmt_(3)=�hun_=hun_+1:hun_$(hun_)="cm"
�.�mmt_(4)=�thou_=thou_+1:thou_$(thou_)="kg"
� .�mmt_(5)=�thou_=thou_+1:thou_$(thou_)="km"
�*-�mmt_(6)=�thou_=thou_+1:thou_$(thou_)="l"
�4Pgot_%=0:�r_=1�6:�mmul_(r_)=�got_%=got_%+1:addytype_(got_%)=r_:gc_%(got_%)=r_
�>9�:�got_%=1�r_=1�12:lineaddy_(r_)=addytype_(got_%):�:�
�R\�got_%=6�times(got_%,12):�r_=1�12:lineaddy_(r_)=gc_%(finder_%(r_)):�:ș"Hourglass_Off":�
�\�needed_%=12�got_%:�:�r_=1�12:finder_%(r_)=0:�:flag_=�:�r_=1�12:ș"Hourglass_Percentage",r_/12*100:�:flig_=�:ran_%=�(got_%):�r_>1�gc_%(ran_%)=lineaddy_(r_-1)flig_=�
��u�flig_=�:lineaddy_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:�:�t_=1�got_%:�finder_%(t_)<needed_% flag_=�
��"�:�flag_=�:ș"Hourglass_Off":�
��u��Mmultup:dummy_=�(-�):�t_=1�12:a_(t_)=-1:b_(t_)=-1:�:ș"Hourglass_On":�t_=1�12:�lineaddy_(t_)=1 ran_%=99:rin_%=9
�.'�lineaddy_(t_)=2 ran_%=999:rin_%=99
�8'�lineaddy_(t_)=3 ran_%=999:rin_%=99
�B)�lineaddy_(t_)=4 ran_%=9999:rin_%=999
�L)�lineaddy_(t_)=5 ran_%=9999:rin_%=999
�V+�lineaddy_(t_)=6 ran_%=99999:rin_%=9999
�`!�lineaddy_(t_)<3 top_$(t_)=""
�t%�lineaddy_(t_)=3�lineaddy_(t_)=4�
�~�hun_=0 top_$(t_)=""
���hun_=1 top_$(t_)=hun_$(1)
��.�hun_>1 top_=�(hun_):top_$(t_)=hun_$(top_)
��'�:�lineaddy_(t_)=5�lineaddy_(t_)=6�
���thou_=0 top_$(t_)=""
�� �thou_=1 top_$(t_)=thou_$(1)
��1�thou_>1 top_=�(thou_):top_$(t_)=thou_$(top_)
��]�:ș"Hourglass_Percentage",t_/12*100:�:flag_=0:�:a_=�(ran_%):b_=Nb_%(t_):�a_>rin_%:�t_>1�
�<*�e_=1�t_-1:�a_=a_(e_)�b_=b_(e_)flag_=1
�F�
�PE�:�flag_=0:a_(t_)=a_:b_(t_)=b_:c_(t_)=a_*b_:�:ș"Hourglass_Off":�
��9��Mdiv:Mdiv_%=�fWS("MetDiv"):�md_(1)�sI(Mdiv_%,"Md1")
���md_(2)�sI(Mdiv_%,"Md2")
���md_(3)�sI(Mdiv_%,"Md3")
���md_(4)�sI(Mdiv_%,"Md4")
���md_(5)�sI(Mdiv_%,"Md5")
���md_(6)�sI(Mdiv_%,"Md6")
���mdt_(1)�sI(Mdiv_%,"mdt1")
��mdt_(2)�sI(Mdiv_%,"mdt2")
��mdt_(3)�sI(Mdiv_%,"mdt3")
��mdt_(4)�sI(Mdiv_%,"mdt4")
�"�mdt_(5)�sI(Mdiv_%,"mdt5")
�,�mdt_(6)�sI(Mdiv_%,"mdt6")
�6 �Mdiv_(1)�sI(Mdiv_%,"mdiv1")
�@ �Mdiv_(2)�sI(Mdiv_%,"mdiv2")
�J �Mdiv_(3)�sI(Mdiv_%,"mdiv3")
�T �Mdiv_(4)�sI(Mdiv_%,"mdiv4")
�^ �Mdiv_(5)�sI(Mdiv_%,"mdiv5")
�h �Mdiv_(6)�sI(Mdiv_%,"mdiv6")
�r �Mdiv_(7)�sI(Mdiv_%,"mdiv7")
�| �Mdiv_(8)�sI(Mdiv_%,"mdiv8")
�� �Mdiv_(9)�sI(Mdiv_%,"mdiv9")
���
��&ݤMd_:c_=0:�h_=1�6:�md_(h_)c_=c_+1
��	�:=c_
��7ݤMd1_:�md_(1)��Md_=1 md_(1)=�:�sI(Mdiv_%,"Md1"):=�
���md_(1)md_(1)=��md_(1)=�
��=�
��7ݤMd2_:�md_(2)��Md_=1 md_(2)=�:�sI(Mdiv_%,"Md2"):=�
���md_(2)md_(2)=��md_(2)=�
��=�
��7ݤMd3_:�md_(3)��Md_=1 md_(3)=�:�sI(Mdiv_%,"Md3"):=�
��md_(3)md_(3)=��md_(3)=�
�=�
�7ݤMd4_:�md_(4)��Md_=1 md_(4)=�:�sI(Mdiv_%,"Md4"):=�
�&�md_(4)md_(4)=��md_(4)=�
�0=�
�:7ݤMd5_:�md_(5)��Md_=1 md_(5)=�:�sI(Mdiv_%,"Md5"):=�
�D�md_(5)md_(5)=��md_(5)=�
�N=�
�X7ݤMd6_:�md_(6)��Md_=1 md_(6)=�:�sI(Mdiv_%,"Md6"):=�
�b�md_(6)md_(6)=��md_(6)=�
�l=�
�vNݤmdt1_:�mdt_(1)mdt_(1)=�:�usI(Mdiv_%,"mdt1")�mdt_(1)=�:�sI(Mdiv_%,"mdt1")
��=�
��Nݤmdt2_:�mdt_(2)mdt_(2)=�:�usI(Mdiv_%,"mdt2")�mdt_(2)=�:�sI(Mdiv_%,"mdt2")
��=�
��Nݤmdt3_:�mdt_(3)mdt_(3)=�:�usI(Mdiv_%,"mdt3")�mdt_(3)=�:�sI(Mdiv_%,"mdt3")
��=�
��Nݤmdt4_:�mdt_(4)mdt_(4)=�:�usI(Mdiv_%,"mdt4")�mdt_(4)=�:�sI(Mdiv_%,"mdt4")
��=�
��Nݤmdt5_:�mdt_(5)mdt_(5)=�:�usI(Mdiv_%,"mdt5")�mdt_(5)=�:�sI(Mdiv_%,"mdt5")
��=�
��Nݤmdt6_:�mdt_(6)mdt_(6)=�:�usI(Mdiv_%,"mdt6")�mdt_(6)=�:�sI(Mdiv_%,"mdt6")
��=�
��*ݤMdiv_:c_=0:�h_=1�9:�Mdiv_(h_)c_=c_+1
��	�:=c_
�Aݤmdiv1_:�Mdiv_(1)��Mdiv_=1 Mdiv_(1)=�:�sI(Mdiv_%,"mdiv1"):=�
�"�Mdiv_(1)Mdiv_(1)=��Mdiv_(1)=�
�=�
� Aݤmdiv2_:�Mdiv_(2)��Mdiv_=1 Mdiv_(2)=�:�sI(Mdiv_%,"mdiv2"):=�
�*"�Mdiv_(2)Mdiv_(2)=��Mdiv_(2)=�
�4=�
�>Aݤmdiv3_:�Mdiv_(3)��Mdiv_=1 Mdiv_(3)=�:�sI(Mdiv_%,"mdiv3"):=�
�H"�Mdiv_(3)Mdiv_(3)=��Mdiv_(3)=�
�R=�
�\Aݤmdiv4_:�Mdiv_(4)��Mdiv_=1 Mdiv_(4)=�:�sI(Mdiv_%,"mdiv4"):=�
�f"�Mdiv_(4)Mdiv_(4)=��Mdiv_(4)=�
�p=�
�zAݤmdiv5_:�Mdiv_(5)��Mdiv_=1 Mdiv_(5)=�:�sI(Mdiv_%,"mdiv5"):=�
��"�Mdiv_(5)Mdiv_(5)=��Mdiv_(5)=�
��=�
��Aݤmdiv6_:�Mdiv_(6)��Mdiv_=1 Mdiv_(6)=�:�sI(Mdiv_%,"mdiv6"):=�
��"�Mdiv_(6)Mdiv_(6)=��Mdiv_(6)=�
��=�
��Aݤmdiv7_:�Mdiv_(7)��Mdiv_=1 Mdiv_(7)=�:�sI(Mdiv_%,"mdiv7"):=�
��"�Mdiv_(7)Mdiv_(7)=��Mdiv_(7)=�
��=�
��Aݤmdiv8_:�Mdiv_(8)��Mdiv_=1 Mdiv_(8)=�:�sI(Mdiv_%,"mdiv8"):=�
��"�Mdiv_(8)Mdiv_(8)=��Mdiv_(8)=�
��=�
��Aݤmdiv9_:�Mdiv_(9)��Mdiv_=1 Mdiv_(9)=�:�sI(Mdiv_%,"mdiv9"):=�
��"�Mdiv_(9)Mdiv_(9)=��Mdiv_(9)=�
�=�
��ݤMetDivgo_:�GetTitles:flag_=�:�Dmadd_:dummy_=�(-�):�whatMdivline:�whatMdivy:�calcMdivy:Clue_$="MDiv":last_=3:quit_=�:started_%=�:ș"Hourglass_Off":�usI(Mdiv_%,"MetDivgo"):=�sums
�$w��Dmadd_:�md_(3)��md_(4)�mdt_(1)=�:�usI(Mdiv_%,"mdt1"):mdt_(2)=�:�usI(Mdiv_%,"mdt2"):mdt_(3)=�:�usI(Mdiv_%,"mdt3")
�.n�md_(5)��md_(6)�mdt_(4)=�:�usI(Mdiv_%,"mdt4"):mdt_(5)=�:�usI(Mdiv_%,"mdt5"):mdt_(6)=�:�usI(Mdiv_%,"mdt6")
�8�
�B���i_:x_=�"<MathsSys$Path>Resources.Sprites":�#x_,code_$,A$:�#x_:X$="":�r=1��(code_$):X$=X$+�((�(�code_$,r,1)))-140):�:code_$=X$:Z$="":�r=1��(A$):Z$=Z$+�((�(�A$,r,1)))-141):�:A$=Z$:Register_$=A$:Info$(1)=code_$
��Info$(2)=Register_$:�
��D��whatMdivy:thou_=0:hun_=0:�mdt_(1)=�hun_=hun_+1:hun_$(hun_)="�"
��)�mdt_(2)=�hun_=hun_+1:hun_$(hun_)="m"
�*�mdt_(3)=�hun_=hun_+1:hun_$(hun_)="cm"
�
.�mdt_(4)=�thou_=thou_+1:thou_$(thou_)="kg"
�.�mdt_(5)=�thou_=thou_+1:thou_$(thou_)="km"
�-�mdt_(6)=�thou_=thou_+1:thou_$(thou_)="l"
�(/get_%=0:�r_%=1�9:�Mdiv_(r_%)=�get_%=get_%+1
�<�:�get_%=1�
�PA�r_%=1�9:�Mdiv_(r_%)=���tr_%=1�12:Nb_%(tr_%)=�(Mdiv_$(r_%)):�
�d�:�
�xj�:needed_%=12�get_%:�r_=1�12:gc_%(r_)=0:�:got_%=0:�r_%=1�9:�Mdiv_(r_%)=��got_%=got_%+1:gc_%(got_%)=r_%
��n�:�:�r_=1�12:finder_%(r_)=0:�:flag_=�:�r_=1�12:�:flig_=�:ran_%=�(got_%):Nb_%=�(Mdiv_$(gc_%(ran_%))):�r_>1�
���Nb_%=Nb_%(r_-1)flig_=�
��}�:�flig_=�:Nb_%(r_)=�(Mdiv_$(gc_%(ran_%))):finder_%(ran_%)=finder_%(ran_%)+1:�:�t_=1�got_%:�finder_%(t_)<needed_% flag_=�
�""�:�flag_=�:ș"Hourglass_Off":�
�6I��whatMdivline:got_%=0:�r_=1�6:�md_(r_)=�got_%=got_%+1:gc_%(got_%)=r_
�J4�:�got_%=1��r_=1�12:linedvy_(r_)=gc_%(got_%):�:�
�^]needed_%=12�got_%:�:flag_=�:�r_=1�12:�:flig_=�:ran_%=�(got_%):linedvy_=gc_%(ran_%):�r_>1�
��#�linedvy_=linedvy_(r_-1)flig_=�
��x�:�flig_=�:linedvy_(r_)=gc_%(ran_%):finder_%(ran_%)=finder_%(ran_%)+1:�:�tr_=1�got_%:�finder_%(tr_)<needed_% flag_=�
���:�flag_=�:�
��=��calcMdivy:many_=12:zer_=0:�r_=1�6:�md_(r_)=�zer_=zer_+1
�4�:trub_=�:zer_=0:�r_=1�9:�Mdiv_(r_)=�zer_=zer_+1
�C�:�zer_=1�Mdiv_(8)=��zer_=1�Mdiv_(9)=��zer_=1�Mdiv_(7)=�trub_=�
�0#�trub_=��zer_=1�md_(1)=�many_=9
�:>ș"Hourglass_On":�t_=1�many_:�linedvy_(t_)=1 ran_%=99:l_=9
�X#�linedvy_(t_)=2 ran_%=999:l_=99
�b#�linedvy_(t_)=3 ran_%=999:l_=99
�l%�linedvy_(t_)=4 ran_%=9999:l_=999
�v%�linedvy_(t_)=5 ran_%=9999:l_=999
��'�linedvy_(t_)=6 ran_%=99999:l_=9999
�� �linedvy_(t_)<3 top_$(t_)=""
��#�linedvy_(t_)=3�linedvy_(t_)=4�
���hun_=0 top_$(t_)=""
���hun_=1 top_$(t_)=hun_$(1)
��.�hun_>1 top_=�(hun_):top_$(t_)=hun_$(top_)
��%�:�linedvy_(t_)=5�linedvy_(t_)=6�
���thou_=0 top_$(t_)=""
�� �thou_=1 top_$(t_)=thou_$(1)
��1�thou_>1 top_=�(thou_):top_$(t_)=thou_$(top_)
��b�:ș"Hourglass_Percentage",t_/12*100:�:flag_=0:�:a_=�(ran_%):b_=Nb_%(t_):�a_�b_=0�a_>l_:�t_>1�
�H*�e_=1�t_-1:�a_=a_(e_)�b_=b_(e_)flag_=1
�R�
�\`�:�flag_=0:a_(t_)=a_:b_(t_)=b_:�a_�b_<>0 c_(t_)=a_�b_:rem_(t_)=a_�b_�c_(t_)=a_/b_:rem_(t_)=0
��%�:started_%=�:ș"Hourglass_Off":�
��!ݤTitle_:Title_$=$!Title_%:=�
��-ݤMaintitle_:Maintitle_$=$!Maintitle_%:=�
��;ݤzero(z_$):�z_=1��(z_$):�z_$,z_,1)="0"��z_$,z_,1)="O"
��
�:=z_$
���ݤCreate_:�usI(GrafIt_%,"Create"):ȗ�1000,530:v_%=�window("Demo"):=�:V_$=�alert("Contact CCS for complete version of Maths Card","","OK","","",0):�usI(GrafIt_%,"Create"):ȗ�1000,630:=�
�`��GetTitles:�
��2ݤGrafIt_(X%,Y%):�Clue_$="CardsAdd"�Type1cards
��"�Clue_$="CardsTake"�Type1cards
��#�Clue_$="CardsTimes"�Type1cards
��!�Clue_$="CardsDiv"�Type1cards
��'�Clue_$="Add1a"�Clue_$="Sub1a"�AddA
���Clue_$="Multy"�AddA
��Clue_$="Divy"�DivA
�
�Clue_$="Sad"�F1
��Clue_$="Wad"�F1
��Clue_$="FrMD"�F1
�(�Clue_$="Magic"�Mag1
�2�Clue_$,4)="Long"�LongMul2
�<�Clue_$="LDivy"�LDivA
�F%�Clue_$="Madd"�Clue_$="Msub"�madd
�P�Clue_$="Mmul"�Mmult_
�Z�Clue_$="MDiv"�MDiv
�d=�
�x���Type1cards:down_=Y%-150:left_=X%+120:long_=150:deep_=50:�line_%=1�10:�left_-20-�(�(line_%))*16,down_:�zero(�(line_%))+")":left_=left_+20
��c�linetype_(line_%)=1�writeline1��linetype_(line_%)=2�writeline2��linetype_(line_%)=3�writeline3
��)down_=down_-deep_-20:left_=X%+120:�:�
�҇��writeline1:�blanks(Na_%(line_%)):left_=left_+long_:�qualword:left_=left_+long_:�quit_=��rects("x")��rects(�zero(�(Nb_%(line_%))))
��eleft_=left_+long_:�equalword:left_=left_+long_:�quit_=��rects("x")��rects(�zero(�(Nc_%(line_%))))
�left_=left_+long_:�
�,C��writeline2:�quit_=��rects("x")��rects(�zero(�(Na_%(line_%))))
�@�left_=left_+long_:�qualword:left_=left_+long_:�blanks(Nb_%(line_%)):left_=left_+long_:�equalword:left_=left_+long_:�quit_=��rects("x")��rects(�zero(�(Nc_%(line_%))))
�|left_=left_+long_:�
��C��writeline3:�quit_=��rects("x")��rects(�zero(�(Na_%(line_%))))
��dleft_=left_+long_:�qualword:left_=left_+long_:�quit_=��rects("x")��rects(�zero(�(Nb_%(line_%))))
��\left_=left_+long_:�equalword:left_=left_+long_:�blanks(Nc_%(line_%)):left_=left_+long_:�
�����blanks(num_):num_$=�zero(�(num_)):remleft_=left_:remdown_=down_:left_=left_+long_/4:down_=down_+10:�left_,down_:�left_+long_/2,down_:�left_+long_/2,down_-deep_:�left_,down_-deep_:�left_,down_:�Answer_%=��
�0a�quit_=��left_+long_/4-�("x")/2*16,down_-10:�"x"��left_+long_/4-�(num_$)/2*16,down_-10:�num_$
�:%�:left_=remleft_:down_=remdown_:�
�bA��rects(word_$):�left_+long_/2-�(word_$)/2*16,down_:�word_$:�
��&��qualword:�rects(act_$(line_%)):�
��)��equalword:�rects(equal_$(line_%)):�
��)��AddA:�Clue_$,1,3)="Add" sign_$="+"
��"�Clue_$,1,3)="Sub" sign_$="-"
��"�Clue_$,1,3)="Mul" sign_$="x"
�Ileft_=X%+80:on_=270:end_=100:down_=Y%-90:r_=0:�many_=9�q_=1�3��q_=1�4
� H�w_=1�3:r_=r_+1:�quit_=�a_=0:b_=0:c_=0�a_=a_(r_):b_=b_(r_):c_=c_(r_)
�4Rb_$=�(b_):c_$=�(c_):dunkleft_=left_:lon_=�(�(a_)):�(�(b_))>lon_ lon_=�(�(b_))
�\ �(�(c_))>lon_ lon_=�(�(c_))
�f\left_=left_+lon_/2*16:�r_<>10�left_+end_-�(�(a_))*16-40-�(�(r_))*16,down_-100:��(r_);")"
�zA�r_=10�left_+end_-�(�(a_))*16-40-�(�(r_))*16,down_-100:�"1O)"
��c�split_(a_,down_-100):�split_(b_,down_-140):sl_=0:�(b_$)>3 sl_=sl_+gap_:�(b_$)>7 sl_=sl_+gap_
��;�Sign_%=��left_+end_-�(b_$)*16-sl_-20,down_-140:�sign_$
��-�Sign_%=��left_+end_+10,down_-100:�sign_$
��2anslen_=�(�(c_)):�anslen_<�(a_$)anslen_=�(a_$)
��!�anslen_<�(b_$)anslen_=�(b_$)
��$�Answer_%=��split_(c_,down_-180)
���left_+end_-anslen_*16-5,down_-172:�left_+end_-anslen_*16+anslen_*16+gap_,down_-172:�SecAns_%=��left_+end_-anslen_*16-5,down_-212:�left_+end_-anslen_*16+anslen_*16+gap_,down_-212
��Eleft_=dunkleft_:left_=left_+on_:�:left_=X%+80:down_=down_-180:�:�
����DivA:left_=X%+30:on_=280:end_=100:begleft_=left_:down_=Y%-120:r_=0:shift_=40:dshift_=150:ș"Hourglass_On":�many_=12�q_=1�4��q_=1�3
�V��w_=1�3:r_=r_+1:ș"Hourglass_Percentage",r_/12*100:a_=a_(r_):b_=b_(r_):c_=c_(r_):rem_=rem_(r_):lon_=�(�(a_)):dunkleft_=left_:left_=left_+lon_/2*16:b_$=�zero(�(b_))
��I�r_<>10�left_+end_-�(�(a_))*16-40-�(�(r_))*16+40,down_-100:��(r_);")"
��D�r_=10�left_+end_-�(�(a_))*16-40-�(�(r_))*16+40,down_-100:�"1O)"
��;a_$=�zero(�(a_)):rem_$=�zero(�(rem_)):gap_=5:�(a_$)>3�
���ra_$=�a_$,�(a_$)-2,3):�left_+end_-�(ra_$)*16+shift_,down_-dshift_:�ra_$:la_$=�a_$,1,�(a_$)-3):�left_+end_-�(ra_$)*16-�(la_$)*16-gap_+shift_,down_-dshift_:�la_$:�left_+end_-�(ra_$)*16-�(la_$)*16-gap_+shift_-20,down_-dshift_
�O�")":�left_+end_-�(ra_$)*16-�(la_$)*16-gap_-�(b_$)*16+16,down_-dshift_:�b_$
�<���left_+end_-�(a_$)*16+shift_,down_-dshift_:�a_$:�left_+end_-�(a_$)*16+shift_-20,down_-dshift_:�")":�left_+end_-�(a_$)*16-gap_-�(b_$)*16+16,down_-dshift_:�b_$
�x��:�left_+end_-�(a_$)*16-gap_+shift_-15,down_-dshift_+7:�left_+end_-�(a_$)*16-gap_+shift_-20+�(a_$)*16+gap_+20,down_-dshift_+7:anslen_=�(�(c_)):�Answer_%=��dvanswer
��Zleft_=dunkleft_:left_=left_+on_:�:down_=down_-172:left_=begleft_:�:ș"Hourglass_Off":�
��1��dvanswer:c_$=�zero(�(c_)):gap_=0:�(c_$)>3�
��gap_=5:rc_$=�c_$,�(c_$)-2,3):�left_+end_-�(rc_$)*16+shift_,down_-dshift_+40:�rc_$:lc_$=�c_$,1,�(c_$)-3):�left_+end_-�(rc_$)*16-�(lc_$)*16-gap_+shift_,down_-dshift_+40:�lc_$
�^7��left_+end_-�(c_$)*16+shift_,down_-dshift_+40:�c_$
�r�:�remmy_=1�rem
���remmy_=2�dot
���remmy_=3�frac
���
��B��rem:�rem_<>0�left_+end_+shift_+5,down_-dshift_+40:�"r";rem_$
���
����frac:�rem_<>0�
��ert_=rem_:rb_=b_:rt_$=�(rt_):rb_$=�(rb_):�tr_=10�2�-1:�rt_�tr_=0�rb_�tr_=0 rt_=rt_/tr_:rb_=rb_/tr_
�y�:rt_$=�(rt_):rb_$=�(rb_):�left_+end_+shift_+8,down_-dshift_+58:�rt_$:�left_+end_+shift_+18,down_-dshift_+45:�"/"rb_$
�:�:�
�X��dot:�rem_<>0�
�lh�left_+end_+shift_+3,down_-dshift_+50:�".":�left_+end_+shift_+3+15,down_-dshift_+40:�zero(cz_$(r_))
���:�
�����LDivA:left_=X%+30:on_=280:end_=100:begleft_=left_:down_=Y%-120:r_=0:shift_=40:dshift_=150:ș"Hourglass_On":�qq_=1�2:�ww_=1�3:r_=r_+1:ș"Hourglass_Percentage",r_/12*100:a_=a_(r_):b_=b_(r_):c_=c_(r_):rem_=rem_(r_)
��a_$=�zero(�(a_)):b_$=�zero(�(b_)):c_$=�zero(�(c_)):rem_$=�zero(�(rem_)):lon_=�(�(a_)):dunkleft_=left_:left_=left_+lon_/2*16:�left_+end_-�(�(a_))*16-60-�(�(r_))*16+40,down_-80:��(r_);")"
�4��left_+end_-�(a_$)*16,down_-dshift_:�a_$:starthos_%=left_+end_-�(a_$)*16:drop_=40:�left_+end_-�(a_$)*16-15,down_-dshift_:�")":�left_+end_-�(a_$)*16-20-�(b_$)*16,down_-dshift_:�b_$:�left_+end_-�(a_$)*16-15,down_-dshift_+7
�pH�left_+end_-�(a_$)*16+�(a_$)*16+15,down_-dshift_+7:�Answer_%=��ldans
��overt_%=down_-dshift_:left_=dunkleft_:left_=left_+on_:�:down_=down_-300:left_=begleft_:�:ș"Hourglass_Off":�
��A��ldans:�left_+end_-�(c_$)*16,down_-dshift_+40:�c_$:�rem_<>0�
�$�remmy_=1�
�.v�left_+end_-�(a_$)*16+�(a_$)*16+8,down_-dshift_+40:�"r":�left_+end_-�(a_$)*16+�(a_$)*16+30,down_-dshift_+40:�rem_$
�V�:�remmy_=2�
�j��left_+end_-�(a_$)*16+�(a_$)*16+4,down_-dshift_+50:�".":�left_+end_-�(a_$)*16+�(a_$)*16+20,down_-dshift_+40:�zero(cz_$(r_))
���:�remmy_=3�
��ert_=rem_:rb_=b_:rt_$=�(rt_):rb_$=�(rb_):�tr_=10�2�-1:�rt_�tr_=0�rb_�tr_=0 rt_=rt_/tr_:rb_=rb_/tr_
�ة�:rt_$=�(rt_):rb_$=�(rb_):�left_+end_-�(a_$)*16+�(a_$)*16+8,down_-dshift_+65:�zero(rt_$):�left_+end_-�(a_$)*16+�(a_$)*16+�(rt_$)*16+20,down_-dshift_+40:�zero(rb_$)
�F�left_+end_-�(a_$)*16+�(a_$)*16+�(rt_$)*16+5,down_-dshift_+50:�"/"
�(�
�2�:�
�Fa��sumM:started_=�:re_=0:q_=0:w_=1:final_$="":j_=0:�:�getansS:�j_=�(a_$):�a_�b_<>0��c_$)<>"0"�
��Yvert_%=vert_%-drop_:re_$=�(re_):hos_%=starthos_%+j_*16-�(re_$)*16:�hos_%,vert_%:�re_$
���:�
��s��getansS:try_$="":re_$=�(re_):�:q_=q_+1:j_=j_+1:z_$=�a_$,w_,q_):try_$=re_$+z_$:try_=�(try_$):�try_�b_<1 ans_=0
�>�try_�b_>0�j_=�(a_$):ans_=try_�b_:re_=try_�b_:�started_=��
�6Overt_%=vert_%-drop_:hos_%=starthos_%+j_*16-�(try_$)*16:�hos_%,vert_%:�try_$
�Tx�:started_=�:jog_=ans_*b_:jog_$=�(jog_):vert_%=vert_%-drop_:hos_%=starthos_%+j_*16-�(jog_$)*16:�j_=�(a_$)��c_$)="0"�
��	ed_=1
��k�:�hos_%,vert_%:�jog_$:hos_%=starthos_%+j_*16-�(try_$)*16:�hos_%,vert_%-30:�hos_%+�(try_$)*16,vert_%-30
���:w_=j_+1:q_=0:�
����F1:�last_=1�
��xmdivartleft_=X%+0:left_=mdivartleft_:on_=300:end_=100:down_=Y%-90:bot_=120:r_=0:�q_=1�4:�w_=1�3:r_=r_+1:�last_>r_-1�
��dunkleft_=left_:a_$=�(FU1_(r_)):b_$=�(FD1_(r_)):c_$=�(FU2_(r_)):d_$=�(FD2_(r_)):e_$=�(FU3_(r_)):f_$=�(FD3_(r_)):spotn_=50:�left_+spotn_-�(�(r_))*16,down_-50:�zero(�(r_));")":spota_=70:tdown_=down_:down_=down_-30
�bg�Whole_(r_,0)<>0 whole_$=�(Whole_(r_,0)):�left_+spota_-30-�(whole_$)/2*16,down_-100:�zero(whole_$)
�l��left_+spota_-�(b_$)/2*16,down_-bot_:�zero(b_$):�left_+spota_-�(b_$)/2*16,down_-bot_+8:�left_+spota_+�(b_$)/2*16,down_-bot_+8:�left_+spota_-�(a_$)/2*16,down_-bot_+40:�zero(a_$):�Whole_(r_,1)<>0 spotp_=100�spotp_=110
����left_+spotp_,down_-100:�Fracsign_$(r_):spotb_=160:�Whole_(r_,1)<>0 whole_$=�(Whole_(r_,1)):�left_+spotb_-30-�(whole_$)/2*16,down_-100:�zero(whole_$)
��spotb_=160:�left_+spotb_-�(d_$)/2*16,down_-bot_:�zero(d_$):�left_+spotb_-�(d_$)/2*16,down_-bot_+8:�left_+spotb_+�(d_$)/2*16,down_-bot_+8:�left_+spotb_-�(c_$)/2*16,down_-bot_+40:�zero(c_$)
��8spote_=190:�left_+spote_,down_-100:�"=":�Answer_%=��
�=e_=�(e_$):f_=�(f_$):�Whole_(r_,2)<>0�Whole_(r_,2)=0�e_=0�
� �whole_$=�(Whole_(r_,2)):spotc_=230:�left_+spotc_-�(whole_$)/2*16,down_-100:�zero(whole_$):ona_=40:�e_<>0 spotc_=220+�(whole_$)/2*16:�left_+ona_+spotc_-�(f_$)/2*16,down_-bot_:�zero(f_$)
�Ha�e_<>0�left_+ona_+spotc_-�(f_$)/2*16,down_-bot_+8:�left_+ona_+spotc_+�(f_$)/2*16,down_-bot_+8
�RB�e_<>0�left_+ona_+spotc_-�(e_$)/2*16,down_-bot_+40:�zero(e_$)
�\��:spotc_=240:�left_+spotc_-�(f_$)/2*16,down_-bot_:�zero(f_$):�left_+spotc_-�(f_$)/2*16,down_-bot_+8:�left_+spotc_+�(f_$)/2*16,down_-bot_+8:�left_+spotc_-�(e_$)/2*16,down_-bot_+40:�zero(e_$)
���
���
��[�:left_=dunkleft_:left_=left_+on_:down_=tdown_:�:left_=mdivartleft_:down_=down_-180:�:�
���WF1:�quit_=��
�.}�t_=1�12:FU1_(t_)=0:FU2_(t_)=0:FD1_(t_)=0:FD2_(t_)=0:FU3_(t_)=0:FU3_(t_)=0:Whole_(t_,0)=0:Whole_(t_,1)=0:Whole_(t_,2)=0:�
�L��:mdivartleft_=X%+0:left_=mdivartleft_:on_=300:end_=100:down_=Y%-90:bot_=120:r_=0:�q_=1�4:�w_=1�3:r_=r_+1:dunkleft_=left_:a_$=�(FU1_(r_)):b_$=�(FD1_(r_)):c_$=�(FU2_(r_)):d_$=�(FD2_(r_)):e_$=�(FU3_(r_)):f_$=�(FD3_(r_))
���spotn_=50:�left_+spotn_-�(�(r_))*16,down_-50:�zero(�(r_));")":spota_=70:tdown_=down_:down_=down_-30:�Whole_(r_,0)<>0 whole_$=�(Whole_(r_,0)):�left_+spota_-30-�(whole_$)/2*16,down_-100:�zero(whole_$)
����left_+spota_-�(b_$)/2*16,down_-bot_:�zero(b_$):�left_+spota_-�(b_$)/2*16,down_-bot_+8:�left_+spota_+�(b_$)/2*16,down_-bot_+8:�left_+spota_-�(a_$)/2*16,down_-bot_+40:�zero(a_$):�Whole_(r_,1)<>0 spotp_=100�spotp_=105
���left_+spotp_,down_-100:�Fracsign_$(r_):spotb_=160:�Whole_(r_,1)<>0 whole_$=�(Whole_(r_,1)):�left_+spotb_-30-�(whole_$)/2*16,down_-100:�zero(whole_$)
�<�spotb_=160:�left_+spotb_-�(d_$)/2*16,down_-bot_:�zero(d_$):�left_+spotb_-�(d_$)/2*16,down_-bot_+8:�left_+spotb_+�(d_$)/2*16,down_-bot_+8:�left_+spotb_-�(c_$)/2*16,down_-bot_+40:�zero(c_$):�Answer_%=��
�despote_=190:�left_+spote_,down_-100:�"=":e_=�(e_$):f_=�(f_$):�Whole_(r_,2)<>0�Whole_(r_,2)=0�e_=0�
���whole_$=�(Whole_(r_,2)):spotc_=230:�left_+spotc_-�(whole_$)/2*16,down_-100:�zero(whole_$):ona_=30:�e_<>0 spotc_=230:�left_+ona_+spotc_-�(f_$)/2*16,down_-bot_:�zero(f_$)
��a�e_<>0�left_+ona_+spotc_-�(f_$)/2*16,down_-bot_+8:�left_+ona_+spotc_+�(f_$)/2*16,down_-bot_+8
��B�e_<>0�left_+ona_+spotc_-�(e_$)/2*16,down_-bot_+40:�zero(e_$)
����:spotc_=250:�left_+spotc_-�(f_$)/2*16,down_-bot_:�zero(f_$):�left_+spotc_-�(f_$)/2*16,down_-bot_+8:�left_+spotc_+�(f_$)/2*16,down_-bot_+8:�left_+spotc_-�(e_$)/2*16,down_-bot_+40:�zero(e_$)
���
�[�:left_=dunkleft_:left_=left_+on_:down_=tdown_:�:left_=mdivartleft_:down_=down_-180:�:�
�|���choices:Choice_%=�fWS("Choices"):$!StartX_%=�(rite_):$!pwon_%=�(pwon_):�Sign_%=�:�sI(Choice_%,"signright"):�usI(Choice_%,"signleft")��usI(Choice_%,"signright"):�sI(Choice_%,"signleft")
��%�SecAns_%=��sI(Choice_%,"SecAns")
���Lma_%=��sI(Choice_%,"Lma")
���Lda_%=��sI(Choice_%,"Lda")
��%�direct_%=��sI(Choice_%,"Direct")
�� �remmy_=1�sI(Choice_%,"rem")
�� �remmy_=2�sI(Choice_%,"dot")
��!�remmy_=3�sI(Choice_%,"frac")
���
�ݤpwon_:�remmy_<>2�=�
�8pwon_$=$!pwon_%:pwon_=�(pwon_$):�mouse=4�pwon_=3�=�
�&�mouse=4�pwon_<3�
�08pwon_=pwon_+1:$!pwon_%=�(pwon_):�rI(Choice_%,"pwon")
�N�:�mouse=1�pwon_=1�=�
�b�mouse=1�pwon_>1�
�l8pwon_=pwon_-1:$!pwon_%=�(pwon_):�rI(Choice_%,"pwon")
���:=�redo
��0ݤredo:�started_%=���fWS("Divide")�=�DivyGo_
��-�started_%=���fWS("LongDiv")�=�LongDivgo_
��=�
��+ݤrem_:�remmy_=1��sI(Choice_%,"rem"):=�
��Rremmy_=1:�sI(Choice_%,"rem"):�usI(Choice_%,"dot"):�usI(Choice_%,"frac"):=�redo
�+ݤdot_:�remmy_=2��sI(Choice_%,"dot"):=�
� Rremmy_=2:�sI(Choice_%,"dot"):�usI(Choice_%,"rem"):�usI(Choice_%,"frac"):=�redo
�H-ݤfrac_:�remmy_=3��sI(Choice_%,"frac"):=�
�RRremmy_=3:�sI(Choice_%,"frac"):�usI(Choice_%,"rem"):�usI(Choice_%,"dot"):=�redo
�z.ݤDirect_:�direct_%=�direct_%=��direct_%=�
��=�
��~��do_:�fWS("Add")��fWS("Subtract")��fWS("Multiply")��fWS("LongMul")��fWS("Madd")��fWS("MetricSub")��fWS("MetricMul")�doo_
���
��O��doo_:�gWx("GrafIt")�started_%�n_=�window("GrafIt"):n_=�window("Choices")
���
��3ݤsignleft_:�Sign_%�sI(Choice_%,"signleft"):=�
��HSign_%=�:�sI(Choice_%,"signleft"):�usI(Choice_%,"signright"):�do_:=�
��4ݤsignright_:�Sign_%�sI(Choice_%,"signright"):=�
��HSign_%=�:�sI(Choice_%,"signright"):�usI(Choice_%,"signleft"):�do_:=�
�IݤStartY_:StartY$=$!StartY_%:StartY=�(StartY$):�mouse=4�StartY<1300�
�.?StartY=StartY+1:$!StartY_%=�(StartY):�rI(Choice_%,"StartY")
�L�:�mouse=1�StartY>1110�
�`?StartY=StartY-1:$!StartY_%=�(StartY):�rI(Choice_%,"StartY")
�~�:=�
��EݤStartX_:StartX$=$!StartX_%:rite_=�(StartX$):�mouse=4�rite_<16�
��<rite_=rite_+1:$!StartX_%=�(rite_):�rI(Choice_%,"StartX")
���:�mouse=1�rite_>0�
��<rite_=rite_-1:$!StartX_%=�(rite_):�rI(Choice_%,"StartX")
�
�:=�
�(EݤSaveChoice_:�:��:�moan(�$):�usI(Choice_%,"SaveChoice")::=�
�F�DefStartX=rite_:DefStartY=StartY:save_%=�"<MathsSys$Path>Numbers":�GetTitles:�#save_%,rite_,StartY,Maintitle_$,Title_$,Choices_%,Sign_%,SecAns_%,Lda_%,Lma_%,direct_%,remmy_,pwon_:�#save_%:�usI(Choice_%,"SaveChoice"):=�
��+ݤExit_:�closeW(Choice_%):ȗ�600,500:=�
��]ݤSecAns_:�SecAns_%=�SecAns_%=�:�usI(Choice_%,"SecAns")�SecAns_%=�:�sI(Choice_%,"SecAns")
���do_:=�
��KݤLda_:�Lda_%=�Lda_%=�:�usI(Choice_%,"Lda")�Lda_%=�:�sI(Choice_%,"Lda")
��=�
��KݤLma_:�Lma_%=�Lma_%=�:�usI(Choice_%,"Lma")�Lma_%=�:�sI(Choice_%,"Lma")
��T�gWx("GrafIt")��fWS("LongMul")�n_=�window("GrafIt"):n_=�window("Choices"):=��=�
�
�4ݤBothsums_:Choices_%=1:�tMIx("CreChoices",0):=�
�3ݤBothans_:Choices_%=2:�tMIx("CreChoices",1):=�
�"4ݤHalfhalf_:Choices_%=3:�tMIx("CreChoices",2):=�
�
00000000  0d 00 14 24 dd a4 73 74  61 72 74 5f 3a f2 73 68  |...$..start_:.sh|
00000010  75 74 5f 3a 3d a4 77 69  6e 64 6f 77 28 22 4d 61  |ut_:=.window("Ma|
00000020  69 6e 22 29 0d 00 28 1d  dd a4 6d 61 69 6e 57 5f  |in")..(...mainW_|
00000030  3a 3d a4 77 69 6e 64 6f  77 28 22 4d 61 69 6e 22  |:=.window("Main"|
00000040  29 0d 00 46 0f dd a4 64  75 6d 6d 79 5f 3a 3d b9  |)..F...dummy_:=.|
00000050  0d 00 6e 1a dd a4 6d 5f  3a ea 48 24 3a 48 24 3d  |..n...m_:.H$:H$=|
00000060  24 6d 6e 25 3a c8 8e 48  24 ca 0d 00 96 54 c9 22  |$mn%:..H$....T."|
00000070  47 72 61 66 49 74 22 3a  e7 41 6e 73 77 65 72 5f  |GrafIt":.Answer_|
00000080  25 8c f2 70 4d 49 28 22  47 72 61 66 49 74 22 2c  |%..pMI("GrafIt",|
00000090  30 2c 22 41 6e 73 77 65  72 73 20 6f 66 66 22 29  |0,"Answers off")|
000000a0  8b f2 70 4d 49 28 22 47  72 61 66 49 74 22 2c 30  |..pMI("GrafIt",0|
000000b0  2c 22 41 6e 73 77 65 72  73 20 6f 6e 22 29 0d 00  |,"Answers on")..|
000000c0  aa 08 cb 3a 3d b9 0d 00  c8 1b dd a4 73 6d 5f 3a  |...:=.......sm_:|
000000d0  ea 48 24 3a 48 24 3d 24  6d 6e 25 3a c8 8e 48 24  |.H$:H$=$mn%:..H$|
000000e0  ca 0d 00 f0 33 c9 22 43  72 65 43 68 6f 69 63 65  |....3."CreChoice|
000000f0  73 22 3a e7 43 68 6f 69  63 65 73 5f 25 3d 31 f2  |s":.Choices_%=1.|
00000100  74 4d 49 78 28 22 43 72  65 43 68 6f 69 63 65 73  |tMIx("CreChoices|
00000110  22 2c 30 29 0d 01 04 25  e7 43 68 6f 69 63 65 73  |",0)...%.Choices|
00000120  5f 25 3d 32 f2 74 4d 49  78 28 22 43 72 65 43 68  |_%=2.tMIx("CreCh|
00000130  6f 69 63 65 73 22 2c 31  29 0d 01 0e 25 e7 43 68  |oices",1)...%.Ch|
00000140  6f 69 63 65 73 5f 25 3d  33 f2 74 4d 49 78 28 22  |oices_%=3.tMIx("|
00000150  43 72 65 43 68 6f 69 63  65 73 22 2c 32 29 0d 01  |CreChoices",2)..|
00000160  18 08 cb 3a 3d b9 0d 01  36 0d dd a4 73 6d 61 5f  |...:=...6...sma_|
00000170  3a 3d a3 0d 01 5e 10 dd  a4 77 5f 3a c8 8e 24 77  |:=...^...w_:..$w|
00000180  6e 25 ca 0d 01 72 2c c9  22 4d 61 69 6e 22 3a f2  |n%...r,."Main":.|
00000190  73 68 75 74 5f 3a 57 69  6e 64 6f 77 4d 61 69 6e  |shut_:WindowMain|
000001a0  5f 25 3d a4 66 57 53 28  22 4d 61 69 6e 22 29 0d  |_%=.fWS("Main").|
000001b0  01 7c 25 c9 22 47 72 61  66 49 74 22 3a 47 72 61  |.|%."GrafIt":Gra|
000001c0  66 49 74 5f 25 3d a4 66  57 53 28 22 47 72 61 66  |fIt_%=.fWS("Graf|
000001d0  49 74 22 29 0d 01 86 1b  c9 22 54 61 6b 65 43 61  |It")....."TakeCa|
000001e0  72 64 73 22 3a f2 54 61  6b 65 43 61 72 64 73 0d  |rds":.TakeCards.|
000001f0  01 90 19 c9 22 41 64 64  43 61 72 64 73 22 3a f2  |...."AddCards":.|
00000200  41 64 64 43 61 72 64 73  0d 01 9a 1d c9 22 54 69  |AddCards....."Ti|
00000210  6d 65 73 43 61 72 64 73  22 3a f2 54 69 6d 65 73  |mesCards":.Times|
00000220  43 61 72 64 73 0d 01 a4  19 c9 22 44 69 76 43 61  |Cards....."DivCa|
00000230  72 64 73 22 3a f2 44 69  76 43 61 72 64 73 0d 01  |rds":.DivCards..|
00000240  ae 0f c9 22 41 64 64 22  3a f2 41 64 64 0d 01 b8  |..."Add":.Add...|
00000250  19 c9 22 53 75 62 74 72  61 63 74 22 3a f2 73 75  |.."Subtract":.su|
00000260  62 74 72 61 63 74 0d 01  c2 19 c9 22 4d 75 6c 74  |btract....."Mult|
00000270  69 70 6c 79 22 3a f2 6d  75 6c 74 69 70 6c 79 0d  |iply":.multiply.|
00000280  01 cc 15 c9 22 44 69 76  69 64 65 22 3a f2 44 69  |...."Divide":.Di|
00000290  76 69 64 65 0d 01 d6 11  c9 22 4d 61 64 64 22 3a  |vide....."Madd":|
000002a0  f2 4d 61 64 64 0d 01 e0  16 c9 22 4d 65 74 72 69  |.Madd....."Metri|
000002b0  63 53 75 62 22 3a f2 4d  73 75 62 0d 01 ea 13 c9  |cSub":.Msub.....|
000002c0  22 4d 61 67 69 63 22 3a  f2 4d 61 67 69 63 0d 01  |"Magic":.Magic..|
000002d0  f4 11 c9 22 53 61 64 64  22 3a f2 53 61 64 64 0d  |..."Sadd":.Sadd.|
000002e0  01 fe 11 c9 22 57 61 64  64 22 3a f2 57 61 64 64  |...."Wadd":.Wadd|
000002f0  0d 02 08 11 c9 22 46 72  4d 44 22 3a f2 46 72 4d  |....."FrMD":.FrM|
00000300  44 0d 02 12 19 c9 22 4c  6f 6e 67 4d 75 6c 22 3a  |D....."LongMul":|
00000310  f2 4c 6f 6e 67 4d 75 6c  74 79 0d 02 1c 18 c9 22  |.LongMulty....."|
00000320  4c 6f 6e 67 44 69 76 22  3a f2 4c 6f 6e 67 44 69  |LongDiv":.LongDi|
00000330  76 79 0d 02 26 16 c9 22  4d 65 74 72 69 63 53 75  |vy..&.."MetricSu|
00000340  62 22 3a f2 4d 73 75 62  0d 02 30 16 c9 22 4d 65  |b":.Msub..0.."Me|
00000350  74 72 69 63 4d 75 6c 22  3a f2 4d 6d 75 6c 0d 02  |tricMul":.Mmul..|
00000360  3a 13 c9 22 4d 65 74 44  69 76 22 3a f2 4d 64 69  |:.."MetDiv":.Mdi|
00000370  76 0d 02 44 17 c9 22 43  68 6f 69 63 65 73 22 3a  |v..D.."Choices":|
00000380  f2 63 68 6f 69 63 65 73  0d 02 4e 08 cb 3a 3d b9  |.choices..N..:=.|
00000390  0d 02 80 0b dd a4 62 5f  3a 3d b9 0d 02 a8 0b dd  |......b_:=......|
000003a0  a4 65 5f 3a 3d b9 0d 02  c6 0c dd a4 70 4b 5f 3a  |.e_:=.......pK_:|
000003b0  3d a3 0d 02 e4 10 dd a4  68 5f 3a c8 8e 24 77 6e  |=.......h_:..$wn|
000003c0  25 ca 0d 02 ee 48 c9 22  47 72 61 66 49 74 22 3a  |%....H."GrafIt":|
000003d0  3d 22 54 68 69 73 20 69  73 20 74 68 65 20 6d 61  |="This is the ma|
000003e0  69 6e 20 77 69 6e 64 6f  77 20 6f 66 20 74 68 65  |in window of the|
000003f0  20 27 4e 65 77 5f 41 70  70 6c 6e 27 20 61 70 70  | 'New_Appln' app|
00000400  6c 69 63 61 74 69 6f 6e  2e 22 0d 02 f8 55 cb 3a  |lication."...U.:|
00000410  e7 21 68 25 3d 2d 32 8c  3d 22 54 68 69 73 20 69  |.!h%=-2.="This i|
00000420  73 20 74 68 65 20 27 4e  65 77 5f 41 70 70 6c 6e  |s the 'New_Appln|
00000430  27 20 69 63 6f 6e 2e 7c  4d 43 6c 69 63 6b 20 53  |' icon.|MClick S|
00000440  45 4c 45 43 54 20 74 6f  20 6f 70 65 6e 20 74 68  |ELECT to open th|
00000450  65 20 6d 61 69 6e 20 77  69 6e 64 6f 77 2e 22 0d  |e main window.".|
00000460  03 0c 07 3d 22 22 0d 03  20 0c dd a4 72 4d 5f 3a  |...="".. ...rM_:|
00000470  3d b9 0d 03 34 0c dd a4  72 42 5f 3a 3d b9 0d 03  |=...4...rB_:=...|
00000480  52 0c dd a4 70 42 5f 3a  3d b9 0d 03 70 10 dd f2  |R...pB_:=...p...|
00000490  69 42 61 73 69 63 5f 67  3a e1 0d 03 7a 11 dd f2  |iBasic_g:...z...|
000004a0  69 53 70 72 69 74 65 5f  67 3a e1 0d 03 84 12 dd  |iSprite_g:......|
000004b0  f2 69 41 6e 69 6d 61 74  65 5f 67 3a e1 0d 03 f2  |.iAnimate_g:....|
000004c0  de dd a4 69 5f 28 41 24  2c 42 25 29 3a ea 41 25  |...i_(A$,B%):.A%|
000004d0  2c 43 24 3a 6d 61 6e 79  5f 3d 31 32 3a 6c 61 73  |,C$:many_=12:las|
000004e0  74 5f 3d 31 32 3a 71 75  69 74 5f 3d a3 3a 53 65  |t_=12:quit_=.:Se|
000004f0  63 41 6e 73 5f 25 3d b9  3a 4c 64 61 5f 25 3d b9  |cAns_%=.:Lda_%=.|
00000500  3a 4c 6d 61 5f 25 3d b9  3a de 71 75 61 6c 5f 24  |:Lma_%=.:.qual_$|
00000510  28 31 30 29 2c 71 75 61  6c 5f 28 31 30 29 2c 61  |(10),qual_(10),a|
00000520  63 74 5f 24 28 31 30 29  2c 67 63 5f 25 28 31 32  |ct_$(10),gc_%(12|
00000530  29 2c 73 63 6f 6f 74 5f  28 31 30 29 3a 45 71 53  |),scoot_(10):EqS|
00000540  69 67 6e 5f 3d b9 3a 45  71 45 71 75 61 6c 73 5f  |ign_=.:EqEquals_|
00000550  3d a3 3a de 4c 69 6e 65  54 79 70 65 5f 28 33 29  |=.:.LineType_(3)|
00000560  3a 4c 69 6e 65 54 79 70  65 5f 28 33 29 3d b9 3a  |:LineType_(3)=.:|
00000570  4c 69 6e 65 54 79 70 65  5f 28 32 29 3d a3 3a 4c  |LineType_(2)=.:L|
00000580  69 6e 65 54 79 70 65 5f  28 31 29 3d a3 3a de 66  |ineType_(1)=.:.f|
00000590  69 6e 64 65 72 5f 25 28  31 32 29 0d 04 88 cb 6d  |inder_%(12)....m|
000005a0  61 78 73 75 62 3d 36 3a  de 73 75 62 5f 24 28 6d  |axsub=6:.sub_$(m|
000005b0  61 78 73 75 62 29 2c 73  75 62 5f 28 6d 61 78 73  |axsub),sub_(maxs|
000005c0  75 62 29 3a 73 75 62 5f  24 28 31 29 3d 22 2d 22  |ub):sub_$(1)="-"|
000005d0  3a 73 75 62 5f 28 31 29  3d b9 3a 73 75 62 5f 24  |:sub_(1)=.:sub_$|
000005e0  28 32 29 3d 22 73 75 62  74 72 61 63 74 22 3a 73  |(2)="subtract":s|
000005f0  75 62 5f 28 32 29 3d a3  3a 73 75 62 5f 24 28 33  |ub_(2)=.:sub_$(3|
00000600  29 3d 22 6d 69 6e 75 73  22 3a 73 75 62 5f 28 33  |)="minus":sub_(3|
00000610  29 3d a3 3a 73 75 62 5f  24 28 34 29 3d 22 74 61  |)=.:sub_$(4)="ta|
00000620  6b 65 22 3a 73 75 62 5f  28 34 29 3d a3 3a 73 75  |ke":sub_(4)=.:su|
00000630  62 5f 24 28 35 29 3d 22  74 61 6b 65 20 61 77 61  |b_$(5)="take awa|
00000640  79 22 3a 73 75 62 5f 28  35 29 3d a3 3a 73 75 62  |y":sub_(5)=.:sub|
00000650  5f 24 28 36 29 3d 22 6c  65 73 73 22 3a 73 75 62  |_$(6)="less":sub|
00000660  5f 28 36 29 3d a3 0d 04  b0 bd 54 61 6b 65 6d 61  |_(6)=.....Takema|
00000670  78 79 5f 3d 32 30 3a 54  61 6b 65 6d 69 6e 6e 79  |xy_=20:Takeminny|
00000680  5f 3d 31 30 3a 6d 61 78  61 64 64 3d 34 3a de 61  |_=10:maxadd=4:.a|
00000690  64 64 5f 24 28 6d 61 78  61 64 64 29 2c 61 64 64  |dd_$(maxadd),add|
000006a0  5f 28 6d 61 78 61 64 64  29 3a 61 64 64 5f 24 28  |_(maxadd):add_$(|
000006b0  31 29 3d 22 2b 22 3a 61  64 64 5f 28 31 29 3d b9  |1)="+":add_(1)=.|
000006c0  3a 61 64 64 5f 24 28 32  29 3d 22 61 64 64 22 3a  |:add_$(2)="add":|
000006d0  61 64 64 5f 28 32 29 3d  a3 3a 61 64 64 5f 24 28  |add_(2)=.:add_$(|
000006e0  33 29 3d 22 70 6c 75 73  22 3a 61 64 64 5f 28 33  |3)="plus":add_(3|
000006f0  29 3d a3 3a 61 64 64 5f  24 28 34 29 3d 22 61 6e  |)=.:add_$(4)="an|
00000700  64 22 3a 61 64 64 5f 28  34 29 3d a3 3a 41 64 64  |d":add_(4)=.:Add|
00000710  6d 61 78 79 5f 3d 31 30  3a 41 64 64 6d 69 6e 79  |maxy_=10:Addminy|
00000720  5f 3d 31 0d 05 00 b7 6d  61 78 74 69 6d 65 73 3d  |_=1....maxtimes=|
00000730  34 3a de 74 69 6d 65 5f  24 28 6d 61 78 74 69 6d  |4:.time_$(maxtim|
00000740  65 73 29 2c 74 69 6d 65  73 5f 28 6d 61 78 74 69  |es),times_(maxti|
00000750  6d 65 73 29 3a 74 69 6d  65 5f 24 28 31 29 3d 22  |mes):time_$(1)="|
00000760  78 22 3a 74 69 6d 65 73  5f 28 31 29 3d b9 3a 74  |x":times_(1)=.:t|
00000770  69 6d 65 5f 24 28 32 29  3d 22 74 69 6d 65 73 22  |ime_$(2)="times"|
00000780  3a 74 69 6d 65 73 5f 28  32 29 3d a3 3a 74 69 6d  |:times_(2)=.:tim|
00000790  65 5f 24 28 33 29 3d 22  6d 75 6c 74 69 70 6c 69  |e_$(3)="multipli|
000007a0  65 64 20 62 79 22 3a 74  69 6d 65 73 5f 28 33 29  |ed by":times_(3)|
000007b0  3d a3 3a 6d 61 78 74 69  6d 73 3d 39 3a de 74 69  |=.:maxtims=9:.ti|
000007c0  6d 5f 24 28 6d 61 78 74  69 6d 73 29 2c 74 69 6d  |m_$(maxtims),tim|
000007d0  5f 28 6d 61 78 74 69 6d  73 29 0d 05 1e d3 74 69  |_(maxtims)....ti|
000007e0  6d 5f 24 28 31 29 3d 22  32 22 3a 74 69 6d 5f 24  |m_$(1)="2":tim_$|
000007f0  28 32 29 3d 22 33 22 3a  74 69 6d 5f 24 28 33 29  |(2)="3":tim_$(3)|
00000800  3d 22 34 22 3a 74 69 6d  5f 24 28 34 29 3d 22 35  |="4":tim_$(4)="5|
00000810  22 3a 74 69 6d 5f 24 28  35 29 3d 22 36 22 3a 74  |":tim_$(5)="6":t|
00000820  69 6d 5f 24 28 36 29 3d  22 37 22 3a 74 69 6d 5f  |im_$(6)="7":tim_|
00000830  24 28 37 29 3d 22 38 22  3a 74 69 6d 5f 24 28 38  |$(7)="8":tim_$(8|
00000840  29 3d 22 39 22 3a 74 69  6d 5f 24 28 39 29 3d 22  |)="9":tim_$(9)="|
00000850  31 30 22 3a 74 69 6d 5f  28 31 29 3d b9 3a 74 69  |10":tim_(1)=.:ti|
00000860  6d 5f 28 32 29 3d a3 3a  74 69 6d 5f 28 33 29 3d  |m_(2)=.:tim_(3)=|
00000870  a3 3a 74 69 6d 5f 28 34  29 3d a3 3a 74 69 6d 5f  |.:tim_(4)=.:tim_|
00000880  28 35 29 3d a3 3a 74 69  6d 5f 28 36 29 3d a3 3a  |(5)=.:tim_(6)=.:|
00000890  74 69 6d 5f 28 37 29 3d  a3 3a 74 69 6d 5f 28 38  |tim_(7)=.:tim_(8|
000008a0  29 3d a3 3a 74 69 6d 5f  28 39 29 3d a3 0d 05 50  |)=.:tim_(9)=...P|
000008b0  ba 6d 61 78 64 69 76 3d  33 3a de 64 69 76 65 5f  |.maxdiv=3:.dive_|
000008c0  24 28 6d 61 78 64 69 76  29 2c 64 69 76 65 5f 28  |$(maxdiv),dive_(|
000008d0  6d 61 78 64 69 76 29 3a  de 74 65 6d 70 61 5f 28  |maxdiv):.tempa_(|
000008e0  31 30 29 3a 64 69 76 65  5f 24 28 31 29 3d 22 f7  |10):dive_$(1)=".|
000008f0  22 3a 64 69 76 65 5f 28  31 29 3d b9 3a 64 69 76  |":dive_(1)=.:div|
00000900  65 5f 24 28 32 29 3d 22  73 68 61 72 65 64 20 62  |e_$(2)="shared b|
00000910  79 22 3a 64 69 76 65 5f  28 32 29 3d a3 3a 64 69  |y":dive_(2)=.:di|
00000920  76 65 5f 24 28 33 29 3d  22 64 69 76 69 64 65 64  |ve_$(3)="divided|
00000930  20 62 79 22 3a 64 69 76  65 5f 28 33 29 3d a3 3a  | by":dive_(3)=.:|
00000940  6d 61 78 64 69 76 73 3d  39 3a de 64 69 76 5f 24  |maxdivs=9:.div_$|
00000950  28 6d 61 78 64 69 76 73  29 2c 64 69 76 5f 28 6d  |(maxdivs),div_(m|
00000960  61 78 64 69 76 73 29 0d  05 6e d3 64 69 76 5f 24  |axdivs)..n.div_$|
00000970  28 31 29 3d 22 32 22 3a  64 69 76 5f 24 28 32 29  |(1)="2":div_$(2)|
00000980  3d 22 33 22 3a 64 69 76  5f 24 28 33 29 3d 22 34  |="3":div_$(3)="4|
00000990  22 3a 64 69 76 5f 24 28  34 29 3d 22 35 22 3a 64  |":div_$(4)="5":d|
000009a0  69 76 5f 24 28 35 29 3d  22 36 22 3a 64 69 76 5f  |iv_$(5)="6":div_|
000009b0  24 28 36 29 3d 22 37 22  3a 64 69 76 5f 24 28 37  |$(6)="7":div_$(7|
000009c0  29 3d 22 38 22 3a 64 69  76 5f 24 28 38 29 3d 22  |)="8":div_$(8)="|
000009d0  39 22 3a 64 69 76 5f 24  28 39 29 3d 22 31 30 22  |9":div_$(9)="10"|
000009e0  3a 64 69 76 5f 28 31 29  3d b9 3a 64 69 76 5f 28  |:div_(1)=.:div_(|
000009f0  32 29 3d a3 3a 64 69 76  5f 28 33 29 3d a3 3a 64  |2)=.:div_(3)=.:d|
00000a00  69 76 5f 28 34 29 3d a3  3a 64 69 76 5f 28 35 29  |iv_(4)=.:div_(5)|
00000a10  3d a3 3a 64 69 76 5f 28  36 29 3d a3 3a 64 69 76  |=.:div_(6)=.:div|
00000a20  5f 28 37 29 3d a3 3a 64  69 76 5f 28 38 29 3d a3  |_(7)=.:div_(8)=.|
00000a30  3a 64 69 76 5f 28 39 29  3d a3 0d 05 a0 d8 de 61  |:div_(9)=......a|
00000a40  64 64 79 5f 28 36 29 3a  61 64 64 79 5f 28 31 29  |ddy_(6):addy_(1)|
00000a50  3d b9 3a e3 74 5f 3d 32  b8 36 3a 61 64 64 79 5f  |=.:.t_=2.6:addy_|
00000a60  28 74 5f 29 3d a3 3a ed  3a 6d 61 78 61 64 64 63  |(t_)=.:.:maxaddc|
00000a70  61 72 72 79 5f 3d 33 3a  de 61 64 64 63 61 72 72  |arry_=3:.addcarr|
00000a80  79 5f 28 6d 61 78 61 64  64 63 61 72 72 79 5f 29  |y_(maxaddcarry_)|
00000a90  3a 61 64 64 63 61 72 72  79 5f 28 31 29 3d a3 3a  |:addcarry_(1)=.:|
00000aa0  61 64 64 63 61 72 72 79  5f 28 32 29 3d a3 3a 61  |addcarry_(2)=.:a|
00000ab0  64 64 63 61 72 72 79 5f  28 33 29 3d b9 3a de 61  |ddcarry_(3)=.:.a|
00000ac0  64 64 79 74 79 70 65 5f  28 36 29 2c 6c 69 6e 65  |ddytype_(6),line|
00000ad0  61 64 64 79 5f 28 31 32  29 3a 41 6e 6f 77 74 73  |addy_(12):Anowts|
00000ae0  5f 25 3d a3 3a de 73 75  62 62 79 5f 28 36 29 3a  |_%=.:.subby_(6):|
00000af0  73 75 62 62 79 5f 28 31  29 3d b9 3a e3 74 5f 3d  |subby_(1)=.:.t_=|
00000b00  32 b8 36 3a 73 75 62 62  79 5f 28 74 5f 29 3d a3  |2.6:subby_(t_)=.|
00000b10  3a ed 0d 05 e6 db 6d 61  78 73 75 62 63 61 72 72  |:.....maxsubcarr|
00000b20  79 5f 3d 33 3a de 73 75  62 63 61 72 72 79 5f 28  |y_=3:.subcarry_(|
00000b30  6d 61 78 73 75 62 63 61  72 72 79 5f 29 3a 73 75  |maxsubcarry_):su|
00000b40  62 63 61 72 72 79 5f 28  31 29 3d b9 3a 73 75 62  |bcarry_(1)=.:sub|
00000b50  63 61 72 72 79 5f 28 32  29 3d a3 3a 73 75 62 63  |carry_(2)=.:subc|
00000b60  61 72 72 79 5f 28 33 29  3d a3 3a de 73 75 62 62  |arry_(3)=.:.subb|
00000b70  79 74 79 70 65 5f 28 36  29 2c 6c 69 6e 65 73 75  |ytype_(6),linesu|
00000b80  62 62 79 5f 28 31 32 29  3a 6e 6f 77 74 73 5f 25  |bby_(12):nowts_%|
00000b90  3d a3 3a de 6d 75 6c 74  79 5f 28 36 29 3a 6d 75  |=.:.multy_(6):mu|
00000ba0  6c 74 79 5f 28 31 29 3d  b9 3a e3 74 5f 3d 32 b8  |lty_(1)=.:.t_=2.|
00000bb0  36 3a 6d 75 6c 74 79 5f  28 74 5f 29 3d a3 3a ed  |6:multy_(t_)=.:.|
00000bc0  3a 6d 61 78 6d 75 6c 74  73 3d 39 3a de 6d 75 6c  |:maxmults=9:.mul|
00000bd0  74 5f 24 28 6d 61 78 6d  75 6c 74 73 29 2c 6d 75  |t_$(maxmults),mu|
00000be0  6c 74 5f 28 6d 61 78 6d  75 6c 74 73 29 0d 06 2c  |lt_(maxmults)..,|
00000bf0  da e3 74 5f 3d 31 b8 39  3a 6d 75 6c 74 5f 24 28  |..t_=1.9:mult_$(|
00000c00  74 5f 29 3d c3 28 74 5f  2b 31 29 3a ed 3a 6d 75  |t_)=.(t_+1):.:mu|
00000c10  6c 74 5f 28 31 29 3d b9  3a e3 74 5f 3d 32 b8 39  |lt_(1)=.:.t_=2.9|
00000c20  3a 6d 75 6c 74 5f 28 74  5f 29 3d a3 3a ed 3a de  |:mult_(t_)=.:.:.|
00000c30  6d 75 6c 74 79 74 79 70  65 5f 28 36 29 2c 6c 69  |multytype_(6),li|
00000c40  6e 65 6d 75 6c 74 79 5f  28 31 32 29 3a 4d 6e 6f  |nemulty_(12):Mno|
00000c50  77 74 73 5f 25 3d a3 3a  52 65 6d 61 69 6e 64 65  |wts_%=.:Remainde|
00000c60  72 5f 24 3d 22 52 61 6e  22 3a de 64 76 79 5f 28  |r_$="Ran":.dvy_(|
00000c70  35 29 3a 64 76 79 5f 28  31 29 3d b9 3a 64 76 79  |5):dvy_(1)=.:dvy|
00000c80  5f 28 32 29 3d a3 3a 64  76 79 5f 28 33 29 3d a3  |_(2)=.:dvy_(3)=.|
00000c90  3a 64 76 79 5f 28 34 29  3d a3 3a 64 76 79 5f 28  |:dvy_(4)=.:dvy_(|
00000ca0  35 29 3d a3 3a 6d 61 78  64 76 73 3d 39 3a de 64  |5)=.:maxdvs=9:.d|
00000cb0  76 5f 24 28 6d 61 78 64  76 73 29 2c 64 76 5f 28  |v_$(maxdvs),dv_(|
00000cc0  6d 61 78 64 76 73 29 0d  06 7c c1 64 76 5f 24 28  |maxdvs)..|.dv_$(|
00000cd0  31 29 3d 22 32 22 3a 64  76 5f 24 28 32 29 3d 22  |1)="2":dv_$(2)="|
00000ce0  33 22 3a 64 76 5f 24 28  33 29 3d 22 34 22 3a 64  |3":dv_$(3)="4":d|
00000cf0  76 5f 24 28 34 29 3d 22  35 22 3a 64 76 5f 24 28  |v_$(4)="5":dv_$(|
00000d00  35 29 3d 22 36 22 3a 64  76 5f 24 28 36 29 3d 22  |5)="6":dv_$(6)="|
00000d10  37 22 3a 64 76 5f 24 28  37 29 3d 22 38 22 3a 64  |7":dv_$(7)="8":d|
00000d20  76 5f 24 28 38 29 3d 22  39 22 3a 64 76 5f 24 28  |v_$(8)="9":dv_$(|
00000d30  39 29 3d 22 31 30 22 3a  64 76 5f 28 31 29 3d b9  |9)="10":dv_(1)=.|
00000d40  3a 64 76 5f 28 32 29 3d  a3 3a 64 76 5f 28 33 29  |:dv_(2)=.:dv_(3)|
00000d50  3d a3 3a 64 76 5f 28 34  29 3d a3 3a 64 76 5f 28  |=.:dv_(4)=.:dv_(|
00000d60  35 29 3d a3 3a 64 76 5f  28 36 29 3d a3 3a 64 76  |5)=.:dv_(6)=.:dv|
00000d70  5f 28 37 29 3d a3 3a 64  76 5f 28 38 29 3d a3 3a  |_(7)=.:dv_(8)=.:|
00000d80  64 76 5f 28 39 29 3d a3  0d 06 9a d5 de 64 76 79  |dv_(9)=......dvy|
00000d90  74 79 70 65 5f 28 36 29  2c 6c 69 6e 65 64 76 79  |type_(6),linedvy|
00000da0  5f 28 31 32 29 3a 44 6e  6f 77 74 73 5f 25 3d a3  |_(12):Dnowts_%=.|
00000db0  3a de 63 7a 5f 24 28 31  32 29 3a 46 72 61 63 61  |:.cz_$(12):Fraca|
00000dc0  64 64 5f 3d b9 3a 46 72  61 63 74 61 6b 65 5f 3d  |dd_=.:Fractake_=|
00000dd0  a3 3a 61 64 64 6f 6d 73  5f 3d a3 3a 41 64 64 52  |.:addoms_=.:AddR|
00000de0  65 70 73 5f 3d a3 3a 73  75 62 64 6f 6d 73 5f 3d  |eps_=.:subdoms_=|
00000df0  a3 3a 53 75 62 52 65 70  73 5f 3d a3 3a 6d 61 78  |.:SubReps_=.:max|
00000e00  66 72 61 63 5f 3d 31 32  3a de 66 5f 28 6d 61 78  |frac_=12:.f_(max|
00000e10  66 72 61 63 5f 29 2c 66  72 61 63 5f 28 6d 61 78  |frac_),frac_(max|
00000e20  66 72 61 63 5f 29 3a de  46 55 31 5f 28 31 32 29  |frac_):.FU1_(12)|
00000e30  2c 46 44 31 5f 28 31 32  29 2c 46 55 32 5f 28 31  |,FD1_(12),FU2_(1|
00000e40  32 29 2c 46 44 32 5f 28  31 32 29 2c 46 55 33 5f  |2),FD2_(12),FU3_|
00000e50  28 31 32 29 2c 46 44 33  5f 28 31 32 29 0d 06 f4  |(12),FD3_(12)...|
00000e60  da 66 5f 28 31 29 3d b9  3a 66 5f 28 32 29 3d a3  |.f_(1)=.:f_(2)=.|
00000e70  3a 66 5f 28 33 29 3d b9  3a 66 5f 28 34 29 3d a3  |:f_(3)=.:f_(4)=.|
00000e80  3a 66 5f 28 35 29 3d a3  3a 66 5f 28 36 29 3d a3  |:f_(5)=.:f_(6)=.|
00000e90  3a 66 5f 28 37 29 3d b9  3a e3 72 5f 3d 38 b8 31  |:f_(7)=.:.r_=8.1|
00000ea0  32 3a 66 5f 28 72 5f 29  3d a3 3a ed 3a e3 72 5f  |2:f_(r_)=.:.:.r_|
00000eb0  3d 31 b8 39 3a 66 72 61  63 5f 28 72 5f 29 3d 72  |=1.9:frac_(r_)=r|
00000ec0  5f 2b 31 3a ed 3a 66 72  61 63 5f 28 31 30 29 3d  |_+1:.:frac_(10)=|
00000ed0  31 32 3a 66 72 61 63 5f  28 31 31 29 3d 31 35 3a  |12:frac_(11)=15:|
00000ee0  66 72 61 63 5f 28 31 32  29 3d 32 30 3a de 53 61  |frac_(12)=20:.Sa|
00000ef0  64 63 61 72 72 79 5f 28  33 29 3a 53 61 64 63 61  |dcarry_(3):Sadca|
00000f00  72 72 79 5f 28 31 29 3d  a3 3a 53 61 64 63 61 72  |rry_(1)=.:Sadcar|
00000f10  72 79 5f 28 32 29 3d a3  3a 53 61 64 63 61 72 72  |ry_(2)=.:Sadcarr|
00000f20  79 5f 28 33 29 3d b9 3a  de 46 72 61 63 73 69 67  |y_(3)=.:.Fracsig|
00000f30  6e 5f 24 28 31 32 29 0d  07 3a c4 57 46 72 61 63  |n_$(12)..:.WFrac|
00000f40  61 64 64 5f 3d b9 3a 57  46 72 61 63 74 61 6b 65  |add_=.:WFractake|
00000f50  5f 3d a3 3a 57 61 64 64  6f 6d 73 5f 3d a3 3a 57  |_=.:Waddoms_=.:W|
00000f60  41 64 64 52 65 70 73 5f  3d a3 3a 57 73 75 62 64  |AddReps_=.:Wsubd|
00000f70  6f 6d 73 5f 3d a3 3a 57  53 75 62 52 65 70 73 5f  |oms_=.:WSubReps_|
00000f80  3d a3 3a 57 6d 61 78 66  72 61 63 5f 3d 31 32 3a  |=.:Wmaxfrac_=12:|
00000f90  de 77 66 5f 28 57 6d 61  78 66 72 61 63 5f 29 2c  |.wf_(Wmaxfrac_),|
00000fa0  77 66 72 61 63 5f 28 57  6d 61 78 66 72 61 63 5f  |wfrac_(Wmaxfrac_|
00000fb0  29 3a de 57 46 55 31 5f  28 31 32 29 2c 57 46 44  |):.WFU1_(12),WFD|
00000fc0  31 5f 28 31 32 29 2c 57  46 55 32 5f 28 31 32 29  |1_(12),WFU2_(12)|
00000fd0  2c 57 46 44 32 5f 28 31  32 29 2c 57 46 55 33 5f  |,WFD2_(12),WFU3_|
00000fe0  28 31 32 29 2c 57 46 44  33 5f 28 31 32 29 2c 57  |(12),WFD3_(12),W|
00000ff0  68 6f 6c 65 5f 28 31 32  2c 32 29 0d 07 6c d9 66  |hole_(12,2)..l.f|
00001000  5f 28 31 29 3d b9 3a 77  66 5f 28 32 29 3d a3 3a  |_(1)=.:wf_(2)=.:|
00001010  77 66 5f 28 33 29 3d b9  3a 77 66 5f 28 34 29 3d  |wf_(3)=.:wf_(4)=|
00001020  a3 3a 77 66 5f 28 35 29  3d a3 3a 77 66 5f 28 36  |.:wf_(5)=.:wf_(6|
00001030  29 3d a3 3a 77 66 5f 28  37 29 3d b9 3a e3 72 5f  |)=.:wf_(7)=.:.r_|
00001040  3d 38 b8 31 32 3a 77 66  5f 28 72 5f 29 3d a3 3a  |=8.12:wf_(r_)=.:|
00001050  ed 3a e3 72 5f 3d 31 b8  39 3a 77 66 72 61 63 5f  |.:.r_=1.9:wfrac_|
00001060  28 72 5f 29 3d 72 5f 2b  31 3a ed 3a 77 66 72 61  |(r_)=r_+1:.:wfra|
00001070  63 5f 28 31 30 29 3d 31  32 3a 77 66 72 61 63 5f  |c_(10)=12:wfrac_|
00001080  28 31 31 29 3d 31 35 3a  77 66 72 61 63 5f 28 31  |(11)=15:wfrac_(1|
00001090  32 29 3d 32 30 3a de 57  53 61 64 63 61 72 72 79  |2)=20:.WSadcarry|
000010a0  5f 28 33 29 3a 57 53 61  64 63 61 72 72 79 5f 28  |_(3):WSadcarry_(|
000010b0  31 29 3d a3 3a 57 53 61  64 63 61 72 72 79 5f 28  |1)=.:WSadcarry_(|
000010c0  32 29 3d a3 3a 57 53 61  64 63 61 72 72 79 5f 28  |2)=.:WSadcarry_(|
000010d0  33 29 3d b9 0d 07 94 cf  de 57 53 54 61 6b 65 63  |3)=......WSTakec|
000010e0  61 72 5f 28 33 29 3a 57  53 54 61 6b 65 63 61 72  |ar_(3):WSTakecar|
000010f0  5f 28 31 29 3d a3 3a 57  53 54 61 6b 65 63 61 72  |_(1)=.:WSTakecar|
00001100  5f 28 32 29 3d a3 3a 57  53 54 61 6b 65 63 61 72  |_(2)=.:WSTakecar|
00001110  5f 28 33 29 3d a3 3a 46  72 61 63 6d 75 6c 74 5f  |_(3)=.:Fracmult_|
00001120  3d b9 3a 46 72 61 63 64  69 76 5f 3d a3 3a 46 72  |=.:Fracdiv_=.:Fr|
00001130  74 64 6f 6d 5f 3d a3 3a  46 72 74 72 65 70 5f 3d  |tdom_=.:Frtrep_=|
00001140  a3 3a 46 72 64 64 6f 6d  5f 3d a3 3a 46 72 64 72  |.:Frddom_=.:Frdr|
00001150  65 70 5f 3d a3 3a de 6d  66 5f 28 31 32 29 2c 6d  |ep_=.:.mf_(12),m|
00001160  66 76 5f 28 31 32 29 3a  e3 72 5f 3d 31 b8 39 3a  |fv_(12):.r_=1.9:|
00001170  6d 66 76 5f 28 72 5f 29  3d 72 5f 2b 31 3a ed 3a  |mfv_(r_)=r_+1:.:|
00001180  6d 66 76 5f 28 31 30 29  3d 31 32 3a 6d 66 76 5f  |mfv_(10)=12:mfv_|
00001190  28 31 31 29 3d 31 35 3a  6d 66 76 5f 28 31 32 29  |(11)=15:mfv_(12)|
000011a0  3d 32 30 0d 07 e4 e4 6d  66 5f 28 31 29 3d b9 3a  |=20....mf_(1)=.:|
000011b0  6d 66 5f 28 32 29 3d b9  3a e3 72 5f 3d 33 b8 31  |mf_(2)=.:.r_=3.1|
000011c0  32 3a 6d 66 5f 28 72 5f  29 3d a3 3a ed 3a 46 72  |2:mf_(r_)=.:.:Fr|
000011d0  6d 77 68 6f 6c 65 5f 3d  a3 3a 46 72 64 77 68 6f  |mwhole_=.:Frdwho|
000011e0  6c 65 5f 3d a3 3a de 4c  6f 6e 67 4d 75 6c 5f 28  |le_=.:.LongMul_(|
000011f0  36 29 3a 4c 6f 6e 67 4d  75 6c 5f 28 31 29 3d b9  |6):LongMul_(1)=.|
00001200  3a e3 74 5f 3d 32 b8 36  3a 4c 6f 6e 67 4d 75 6c  |:.t_=2.6:LongMul|
00001210  5f 28 74 5f 29 3d a3 3a  ed 3a 4c 6f 6e 67 73 74  |_(t_)=.:.:Longst|
00001220  79 6c 65 5f 3d 31 3a de  4c 6f 6e 67 63 68 6f 69  |yle_=1:.Longchoi|
00001230  63 65 5f 24 28 38 29 2c  66 72 6f 63 5f 28 38 29  |ce_$(8),froc_(8)|
00001240  3a de 4c 6f 6e 67 44 69  76 5f 28 37 29 3a 4c 6f  |:.LongDiv_(7):Lo|
00001250  6e 67 44 69 76 5f 28 31  29 3d b9 3a e3 74 5f 3d  |ngDiv_(1)=.:.t_=|
00001260  32 b8 37 3a 4c 6f 6e 67  44 69 76 5f 28 74 5f 29  |2.7:LongDiv_(t_)|
00001270  3d a3 3a ed 3a 4c 52 65  6d 61 69 6e 64 65 72 5f  |=.:.:LRemainder_|
00001280  24 3d 22 52 61 6e 22 0d  08 7a d6 de 6d 61 64 64  |$="Ran"..z..madd|
00001290  79 5f 28 36 29 3a 6d 61  64 64 79 5f 28 31 29 3d  |y_(6):maddy_(1)=|
000012a0  b9 3a e3 77 5f 3d 32 b8  36 3a 6d 61 64 64 79 5f  |.:.w_=2.6:maddy_|
000012b0  28 77 5f 29 3d a3 3a ed  3a 6d 61 64 64 63 61 72  |(w_)=.:.:maddcar|
000012c0  72 79 5f 24 3d 22 52 61  6e 22 3a de 6d 74 5f 28  |ry_$="Ran":.mt_(|
000012d0  36 29 3a e3 77 5f 3d 31  b8 36 3a 6d 74 5f 28 77  |6):.w_=1.6:mt_(w|
000012e0  5f 29 3d a3 3a ed 3a de  74 68 6f 75 5f 24 28 33  |_)=.:.:.thou_$(3|
000012f0  29 2c 68 75 6e 5f 24 28  33 29 2c 74 6f 70 5f 24  |),hun_$(3),top_$|
00001300  28 31 32 29 3a de 6d 73  75 62 5f 28 36 29 3a 6d  |(12):.msub_(6):m|
00001310  73 75 62 5f 28 31 29 3d  b9 3a e3 77 5f 3d 32 b8  |sub_(1)=.:.w_=2.|
00001320  36 3a 6d 73 75 62 5f 28  77 5f 29 3d a3 3a ed 3a  |6:msub_(w_)=.:.:|
00001330  6d 73 75 62 63 61 72 72  79 5f 24 3d 22 52 61 6e  |msubcarry_$="Ran|
00001340  22 3a de 73 74 5f 28 36  29 3a e3 77 5f 3d 31 b8  |":.st_(6):.w_=1.|
00001350  36 3a 73 74 5f 28 77 5f  29 3d a3 3a ed 0d 08 e8  |6:st_(w_)=.:....|
00001360  c8 de 6d 6d 75 6c 5f 28  36 29 3a 6d 6d 75 6c 5f  |..mmul_(6):mmul_|
00001370  28 31 29 3d b9 3a e3 77  5f 3d 32 b8 36 3a 6d 6d  |(1)=.:.w_=2.6:mm|
00001380  75 6c 5f 28 77 5f 29 3d  a3 3a ed 3a de 6d 6d 74  |ul_(w_)=.:.:.mmt|
00001390  5f 28 36 29 3a e3 77 5f  3d 31 b8 36 3a 6d 6d 74  |_(6):.w_=1.6:mmt|
000013a0  5f 28 77 5f 29 3d a3 3a  ed 3a de 4d 6d 75 6c 74  |_(w_)=.:.:.Mmult|
000013b0  5f 24 28 39 29 2c 4d 6d  75 6c 74 5f 28 39 29 3a  |_$(9),Mmult_(9):|
000013c0  e3 74 5f 3d 31 b8 39 3a  4d 6d 75 6c 74 5f 24 28  |.t_=1.9:Mmult_$(|
000013d0  74 5f 29 3d c3 28 74 5f  2b 31 29 3a ed 3a 4d 6d  |t_)=.(t_+1):.:Mm|
000013e0  75 6c 74 5f 28 31 29 3d  b9 3a e3 74 5f 3d 32 b8  |ult_(1)=.:.t_=2.|
000013f0  39 3a 4d 6d 75 6c 74 5f  28 74 5f 29 3d a3 3a ed  |9:Mmult_(t_)=.:.|
00001400  3a de 6d 64 5f 28 36 29  3a 6d 64 5f 28 31 29 3d  |:.md_(6):md_(1)=|
00001410  b9 3a e3 77 5f 3d 32 b8  36 3a 6d 64 5f 28 77 5f  |.:.w_=2.6:md_(w_|
00001420  29 3d a3 3a ed 0d 09 38  d5 de 6d 64 74 5f 28 36  |)=.:...8..mdt_(6|
00001430  29 3a e3 77 5f 3d 31 b8  36 3a 6d 64 74 5f 28 77  |):.w_=1.6:mdt_(w|
00001440  5f 29 3d a3 3a ed 3a de  4d 64 69 76 5f 24 28 39  |_)=.:.:.Mdiv_$(9|
00001450  29 2c 4d 64 69 76 5f 28  39 29 3a e3 74 5f 3d 31  |),Mdiv_(9):.t_=1|
00001460  b8 39 3a 4d 64 69 76 5f  24 28 74 5f 29 3d c3 28  |.9:Mdiv_$(t_)=.(|
00001470  74 5f 2b 31 29 3a ed 3a  4d 64 69 76 5f 28 31 29  |t_+1):.:Mdiv_(1)|
00001480  3d b9 3a e3 74 5f 3d 32  b8 39 3a 4d 64 69 76 5f  |=.:.t_=2.9:Mdiv_|
00001490  28 74 5f 29 3d a3 3a ed  3a 4c 69 6e 65 54 79 70  |(t_)=.:.:LineTyp|
000014a0  65 61 72 64 73 5f 25 3d  a3 3a 54 61 6b 65 43 61  |eards_%=.:TakeCa|
000014b0  72 64 5f 25 3d a3 3a de  64 75 6e 6b 5f 24 28 31  |rd_%=.:.dunk_$(1|
000014c0  30 29 3a 73 74 61 72 74  65 64 5f 25 3d a3 3a 74  |0):started_%=.:t|
000014d0  77 6f 78 63 3d b9 3a 74  68 72 65 65 78 63 3d a3  |woxc=.:threexc=.|
000014e0  3a 66 6f 75 72 78 63 3d  a3 3a 66 69 76 65 78 63  |:fourxc=.:fivexc|
000014f0  3d a3 3a 73 69 78 78 63  3d a3 0d 09 9c 91 73 65  |=.:sixxc=.....se|
00001500  76 65 6e 78 63 3d a3 3a  65 69 67 68 74 78 63 3d  |venxc=.:eightxc=|
00001510  a3 3a 6e 69 6e 65 78 63  3d a3 3a 74 65 6e 78 63  |.:ninexc=.:tenxc|
00001520  3d a3 3a 45 71 53 69 67  6e 5f 3d b9 3a 45 71 45  |=.:EqSign_=.:EqE|
00001530  71 75 61 6c 73 5f 3d a3  3a 41 64 64 61 64 64 3d  |quals_=.:Addadd=|
00001540  a3 3a 41 64 64 70 6c 75  73 3d a3 3a 41 64 64 73  |.:Addplus=.:Adds|
00001550  69 67 6e 3d b9 3a de 4e  61 5f 25 28 31 32 29 2c  |ign=.:.Na_%(12),|
00001560  4e 62 5f 25 28 31 32 29  2c 4e 63 5f 25 28 31 32  |Nb_%(12),Nc_%(12|
00001570  29 2c 6c 69 6e 65 74 79  70 65 5f 28 31 30 29 2c  |),linetype_(10),|
00001580  65 71 75 61 6c 5f 24 28  31 30 29 0d 09 e2 d9 73  |equal_$(10)....s|
00001590  61 76 65 5f 25 3d 8e 22  3c 4d 61 74 68 73 53 79  |ave_%=."<MathsSy|
000015a0  73 24 50 61 74 68 3e 4e  75 6d 62 65 72 73 22 3a  |s$Path>Numbers":|
000015b0  e8 23 73 61 76 65 5f 25  2c 72 69 74 65 5f 2c 53  |.#save_%,rite_,S|
000015c0  74 61 72 74 59 2c 4d 61  69 6e 74 69 74 6c 65 5f  |tartY,Maintitle_|
000015d0  24 2c 54 69 74 6c 65 5f  24 2c 43 68 6f 69 63 65  |$,Title_$,Choice|
000015e0  73 5f 25 2c 53 69 67 6e  5f 25 2c 53 65 63 41 6e  |s_%,Sign_%,SecAn|
000015f0  73 5f 25 2c 4c 64 61 5f  25 2c 4c 6d 61 5f 25 2c  |s_%,Lda_%,Lma_%,|
00001600  64 69 72 65 63 74 5f 25  2c 72 65 6d 6d 79 5f 2c  |direct_%,remmy_,|
00001610  70 77 6f 6e 5f 3a d9 23  73 61 76 65 5f 25 3a 44  |pwon_:.#save_%:D|
00001620  65 66 53 74 61 72 74 58  3d 72 69 74 65 5f 3a 44  |efStartX=rite_:D|
00001630  65 66 53 74 61 72 74 59  3d 53 74 61 72 74 59 3a  |efStartY=StartY:|
00001640  44 65 66 61 75 6c 74 53  74 61 72 74 58 3d 31 30  |DefaultStartX=10|
00001650  30 3a 44 65 66 61 75 6c  74 53 74 61 72 74 59 3d  |0:DefaultStartY=|
00001660  31 32 34 30 0d 0a 0a e4  de 61 5f 28 31 32 29 2c  |1240.....a_(12),|
00001670  62 5f 28 31 32 29 2c 63  5f 28 31 32 29 2c 72 65  |b_(12),c_(12),re|
00001680  6d 5f 28 31 32 29 2c 61  5f 24 28 31 32 29 2c 62  |m_(12),a_$(12),b|
00001690  5f 24 28 31 32 29 2c 63  5f 24 28 31 32 29 2c 72  |_$(12),c_$(12),r|
000016a0  65 6d 5f 24 28 31 32 29  3a de 6d 61 67 69 63 5f  |em_$(12):.magic_|
000016b0  28 39 2c 39 29 3a 4d 61  67 52 61 6e 67 65 5f 24  |(9,9):MagRange_$|
000016c0  3d 22 31 20 74 6f 20 32  35 22 3a de 62 61 73 5f  |="1 to 25":.bas_|
000016d0  28 39 29 2c 62 61 61 5f  28 39 29 3a de 70 61 74  |(9),baa_(9):.pat|
000016e0  5f 24 28 39 29 2c 70 61  74 74 65 72 6e 5f 28 39  |_$(9),pattern_(9|
000016f0  29 2c 62 61 73 5f 24 28  39 29 3a 41 6e 73 77 65  |),bas_$(9):Answe|
00001700  72 5f 25 3d a3 3a 6d 75  6c 74 5f 3d 32 3a 67 61  |r_%=.:mult_=2:ga|
00001710  70 5f 3d 30 3a 43 6c 75  65 5f 24 3d 22 22 3a 5a  |p_=0:Clue_$="":Z|
00001720  65 72 6f 5f 24 3d 22 52  61 6e 64 6f 6d 22 3a 6d  |ero_$="Random":m|
00001730  65 74 72 69 63 5f 24 3d  22 a3 22 3a f2 69 52 65  |etric_$=".":.iRe|
00001740  73 28 41 24 2c 42 25 29  0d 0a 82 18 f2 69 47 72  |s(A$,B%).....iGr|
00001750  61 70 68 69 63 73 28 22  22 2c 42 25 29 3a 3d b9  |aphics("",B%):=.|
00001760  0d 0a d2 2d dd f2 73 68  75 74 5f 3a e7 a4 67 57  |...-..shut_:..gW|
00001770  78 28 22 47 72 61 66 49  74 22 29 3a f2 63 6c 6f  |x("GrafIt"):.clo|
00001780  73 65 57 28 47 72 61 66  49 74 5f 25 29 0d 0a e6  |seW(GrafIt_%)...|
00001790  29 e7 a4 66 57 53 28 22  54 61 6b 65 43 61 72 64  |)..fWS("TakeCard|
000017a0  73 22 29 f2 63 6c 6f 73  65 57 28 54 61 6b 65 43  |s").closeW(TakeC|
000017b0  61 72 64 5f 25 29 0d 0a  f0 27 e7 a4 66 57 53 28  |ard_%)...'..fWS(|
000017c0  22 41 64 64 43 61 72 64  73 22 29 f2 63 6c 6f 73  |"AddCards").clos|
000017d0  65 57 28 41 64 64 43 61  72 64 5f 25 29 0d 0a fa  |eW(AddCard_%)...|
000017e0  2b e7 a4 66 57 53 28 22  54 69 6d 65 73 43 61 72  |+..fWS("TimesCar|
000017f0  64 73 22 29 f2 63 6c 6f  73 65 57 28 54 69 6d 65  |ds").closeW(Time|
00001800  73 43 61 72 64 5f 25 29  0d 0b 04 27 e7 a4 66 57  |sCard_%)...'..fW|
00001810  53 28 22 44 69 76 43 61  72 64 73 22 29 f2 63 6c  |S("DivCards").cl|
00001820  6f 73 65 57 28 44 69 76  43 61 72 64 5f 25 29 0d  |oseW(DivCard_%).|
00001830  0b 0e 1f e7 a4 66 57 53  28 22 41 64 64 22 29 f2  |.....fWS("Add").|
00001840  63 6c 6f 73 65 57 28 57  41 64 64 5f 25 29 0d 0b  |closeW(WAdd_%)..|
00001850  18 24 e7 a4 66 57 53 28  22 53 75 62 74 72 61 63  |.$..fWS("Subtrac|
00001860  74 22 29 f2 63 6c 6f 73  65 57 28 57 53 75 62 5f  |t").closeW(WSub_|
00001870  25 29 0d 0b 22 25 e7 a4  66 57 53 28 22 4d 75 6c  |%).."%..fWS("Mul|
00001880  74 69 70 6c 79 22 29 f2  63 6c 6f 73 65 57 28 57  |tiply").closeW(W|
00001890  4d 75 6c 74 5f 25 29 0d  0b 2c 22 e7 a4 66 57 53  |Mult_%)..,"..fWS|
000018a0  28 22 44 69 76 69 64 65  22 29 f2 63 6c 6f 73 65  |("Divide").close|
000018b0  57 28 57 44 69 76 5f 25  29 0d 0b 36 22 e7 a4 66  |W(WDiv_%)..6"..f|
000018c0  57 53 28 22 4d 61 67 69  63 22 29 f2 63 6c 6f 73  |WS("Magic").clos|
000018d0  65 57 28 4d 61 67 69 63  5f 25 29 0d 0b 40 1f e7  |eW(Magic_%)..@..|
000018e0  a4 66 57 53 28 22 53 61  64 64 22 29 f2 63 6c 6f  |.fWS("Sadd").clo|
000018f0  73 65 57 28 53 61 64 5f  25 29 0d 0b 4a 1f e7 a4  |seW(Sad_%)..J...|
00001900  66 57 53 28 22 57 61 64  64 22 29 f2 63 6c 6f 73  |fWS("Wadd").clos|
00001910  65 57 28 57 61 64 5f 25  29 0d 0b 54 20 e7 a4 66  |eW(Wad_%)..T ..f|
00001920  57 53 28 22 46 72 4d 44  22 29 f2 63 6c 6f 73 65  |WS("FrMD").close|
00001930  57 28 46 72 4d 44 5f 25  29 0d 0b 5e 26 e7 a4 66  |W(FrMD_%)..^&..f|
00001940  57 53 28 22 4c 6f 6e 67  4d 75 6c 22 29 f2 63 6c  |WS("LongMul").cl|
00001950  6f 73 65 57 28 4c 6f 6e  67 4d 75 6c 5f 25 29 0d  |oseW(LongMul_%).|
00001960  0b 68 26 e7 a4 66 57 53  28 22 4c 6f 6e 67 44 69  |.h&..fWS("LongDi|
00001970  76 22 29 f2 63 6c 6f 73  65 57 28 4c 6f 6e 67 44  |v").closeW(LongD|
00001980  69 76 5f 25 29 0d 0b 72  20 e7 a4 66 57 53 28 22  |iv_%)..r ..fWS("|
00001990  4d 61 64 64 22 29 f2 63  6c 6f 73 65 57 28 4d 61  |Madd").closeW(Ma|
000019a0  64 64 5f 25 29 0d 0b 7c  25 e7 a4 66 57 53 28 22  |dd_%)..|%..fWS("|
000019b0  4d 65 74 72 69 63 53 75  62 22 29 f2 63 6c 6f 73  |MetricSub").clos|
000019c0  65 57 28 4d 73 75 62 5f  25 29 0d 0b 86 25 e7 a4  |eW(Msub_%)...%..|
000019d0  66 57 53 28 22 4d 65 74  72 69 63 4d 75 6c 22 29  |fWS("MetricMul")|
000019e0  f2 63 6c 6f 73 65 57 28  4d 6d 75 6c 5f 25 29 0d  |.closeW(Mmul_%).|
000019f0  0b 90 22 e7 a4 66 57 53  28 22 4d 65 74 44 69 76  |.."..fWS("MetDiv|
00001a00  22 29 f2 63 6c 6f 73 65  57 28 4d 64 69 76 5f 25  |").closeW(Mdiv_%|
00001a10  29 0d 0b 9a 25 e7 a4 66  57 53 28 22 43 68 6f 69  |)...%..fWS("Choi|
00001a20  63 65 73 22 29 f2 63 6c  6f 73 65 57 28 43 68 6f  |ces").closeW(Cho|
00001a30  69 63 65 5f 25 29 0d 0b  a4 66 41 64 64 43 61 72  |ice_%)...fAddCar|
00001a40  64 5f 25 3d a3 3a 54 61  6b 65 43 61 72 64 5f 25  |d_%=.:TakeCard_%|
00001a50  3d a3 3a 54 69 6d 65 73  43 61 72 64 5f 25 3d a3  |=.:TimesCard_%=.|
00001a60  3a 44 69 76 43 61 72 64  5f 25 3d a3 3a 73 74 61  |:DivCard_%=.:sta|
00001a70  72 74 65 64 5f 25 3d a3  3a e1 3a e7 a4 67 57 78  |rted_%=.:.:..gWx|
00001a80  28 22 47 72 61 66 49 74  22 29 3a f2 63 6c 6f 73  |("GrafIt"):.clos|
00001a90  65 57 28 47 72 61 66 49  74 5f 25 29 0d 0b cc 20  |eW(GrafIt_%)... |
00001aa0  e7 a4 67 57 78 28 22 41  64 64 22 29 3a f2 63 6c  |..gWx("Add"):.cl|
00001ab0  6f 73 65 57 28 57 41 64  64 5f 25 29 0d 0b d6 25  |oseW(WAdd_%)...%|
00001ac0  e7 a4 67 57 78 28 22 53  75 62 74 72 61 63 74 22  |..gWx("Subtract"|
00001ad0  29 3a f2 63 6c 6f 73 65  57 28 57 53 75 62 5f 25  |):.closeW(WSub_%|
00001ae0  29 0d 0b e0 26 e7 a4 67  57 78 28 22 4d 75 6c 74  |)...&..gWx("Mult|
00001af0  69 70 6c 79 22 29 3a f2  63 6c 6f 73 65 57 28 57  |iply"):.closeW(W|
00001b00  4d 75 6c 74 5f 25 29 0d  0b ea 23 e7 a4 67 57 78  |Mult_%)...#..gWx|
00001b10  28 22 44 69 76 69 64 65  22 29 3a f2 63 6c 6f 73  |("Divide"):.clos|
00001b20  65 57 28 57 44 69 76 5f  25 29 0d 0b f4 23 e7 a4  |eW(WDiv_%)...#..|
00001b30  67 57 78 28 22 4d 61 67  69 63 22 29 3a f2 63 6c  |gWx("Magic"):.cl|
00001b40  6f 73 65 57 28 4d 61 67  69 63 5f 25 29 0d 0b fe  |oseW(Magic_%)...|
00001b50  26 e7 a4 67 57 78 28 22  4d 65 74 72 69 63 41 64  |&..gWx("MetricAd|
00001b60  64 22 29 3a f2 63 6c 6f  73 65 57 28 4d 61 64 64  |d"):.closeW(Madd|
00001b70  5f 25 29 0d 0c 08 26 e7  a4 67 57 78 28 22 4d 65  |_%)...&..gWx("Me|
00001b80  74 72 69 63 53 75 62 22  29 3a f2 63 6c 6f 73 65  |tricSub"):.close|
00001b90  57 28 4d 73 75 62 5f 25  29 0d 0c 12 26 e7 a4 67  |W(Msub_%)...&..g|
00001ba0  57 78 28 22 4d 65 74 72  69 63 4d 75 6c 22 29 3a  |Wx("MetricMul"):|
00001bb0  f2 63 6c 6f 73 65 57 28  4d 6d 75 6c 5f 25 29 0d  |.closeW(Mmul_%).|
00001bc0  0c 1c 27 e7 a4 67 57 78  28 22 4c 6f 6e 67 4d 75  |..'..gWx("LongMu|
00001bd0  6c 22 29 3a f2 63 6c 6f  73 65 57 28 4c 6f 6e 67  |l"):.closeW(Long|
00001be0  4d 75 6c 5f 25 29 0d 0c  26 25 e7 a4 67 57 78 28  |Mul_%)..&%..gWx(|
00001bf0  22 53 74 61 72 74 58 22  29 3a f2 63 6c 6f 73 65  |"StartX"):.close|
00001c00  57 28 53 74 61 72 74 5f  58 25 29 0d 0c 30 28 e7  |W(Start_X%)..0(.|
00001c10  a4 67 57 78 28 22 41 64  64 43 61 72 64 73 22 29  |.gWx("AddCards")|
00001c20  3a f2 63 6c 6f 73 65 57  28 41 64 64 43 61 72 64  |:.closeW(AddCard|
00001c30  5f 25 29 0d 0c 3a 2a e7  a4 67 57 78 28 22 54 61  |_%)..:*..gWx("Ta|
00001c40  6b 65 43 61 72 64 73 22  29 3a f2 63 6c 6f 73 65  |keCards"):.close|
00001c50  57 28 54 61 6b 65 43 61  72 64 5f 25 29 0d 0c 44  |W(TakeCard_%)..D|
00001c60  2c e7 a4 67 57 78 28 22  54 69 6d 65 73 43 61 72  |,..gWx("TimesCar|
00001c70  64 73 22 29 3a f2 63 6c  6f 73 65 57 28 54 69 6d  |ds"):.closeW(Tim|
00001c80  65 73 43 61 72 64 5f 25  29 0d 0c 4e 28 e7 a4 67  |esCard_%)..N(..g|
00001c90  57 78 28 22 44 69 76 43  61 72 64 73 22 29 3a f2  |Wx("DivCards"):.|
00001ca0  63 6c 6f 73 65 57 28 44  69 76 43 61 72 64 5f 25  |closeW(DivCard_%|
00001cb0  29 0d 0c 58 44 41 64 64  43 61 72 64 5f 25 3d a3  |)..XDAddCard_%=.|
00001cc0  3a 54 61 6b 65 43 61 72  64 5f 25 3d a3 3a 54 69  |:TakeCard_%=.:Ti|
00001cd0  6d 65 73 43 61 72 64 5f  25 3d a3 3a 44 69 76 43  |mesCard_%=.:DivC|
00001ce0  61 72 64 5f 25 3d a3 3a  73 74 61 72 74 65 64 5f  |ard_%=.:started_|
00001cf0  25 3d a3 3a e1 0d 0c 80  3f dd a4 43 68 6f 69 63  |%=.:....?..Choic|
00001d00  65 73 5f 3a f2 75 73 49  28 57 69 6e 64 6f 77 4d  |es_:.usI(WindowM|
00001d10  61 69 6e 5f 25 2c 22 43  68 6f 69 63 65 73 22 29  |ain_%,"Choices")|
00001d20  3a 3d a4 77 69 6e 64 6f  77 28 22 43 68 6f 69 63  |:=.window("Choic|
00001d30  65 73 22 29 0d 0c 8a 7d  dd a4 54 61 6b 65 63 61  |es")...}..Takeca|
00001d40  72 64 73 5f 3a 43 6c 75  65 5f 24 3d 22 22 3a f2  |rds_:Clue_$="":.|
00001d50  73 68 75 74 5f 3a 73 74  61 72 74 65 64 5f 25 3d  |shut_:started_%=|
00001d60  a3 3a f2 63 6c 6f 73 65  57 28 57 69 6e 64 6f 77  |.:.closeW(Window|
00001d70  4d 61 69 6e 5f 25 29 3a  6f 70 65 6e 31 5f 25 3d  |Main_%):open1_%=|
00001d80  a4 77 69 6e 64 6f 77 28  22 54 61 6b 65 43 61 72  |.window("TakeCar|
00001d90  64 73 22 29 3a 6f 70 65  6e 32 5f 25 3d a4 77 69  |ds"):open2_%=.wi|
00001da0  6e 64 6f 77 28 22 47 72  61 66 49 74 22 29 3a 3d  |ndow("GrafIt"):=|
00001db0  b9 0d 0c 9e 7b dd a4 41  64 64 63 61 72 64 73 5f  |....{..Addcards_|
00001dc0  3a 43 6c 75 65 5f 24 3d  22 22 3a f2 73 68 75 74  |:Clue_$="":.shut|
00001dd0  5f 3a 73 74 61 72 74 65  64 5f 25 3d a3 3a f2 63  |_:started_%=.:.c|
00001de0  6c 6f 73 65 57 28 57 69  6e 64 6f 77 4d 61 69 6e  |loseW(WindowMain|
00001df0  5f 25 29 3a 6f 70 65 6e  31 5f 25 3d a4 77 69 6e  |_%):open1_%=.win|
00001e00  64 6f 77 28 22 41 64 64  43 61 72 64 73 22 29 3a  |dow("AddCards"):|
00001e10  6f 70 65 6e 32 5f 25 3d  a4 77 69 6e 64 6f 77 28  |open2_%=.window(|
00001e20  22 47 72 61 66 49 74 22  29 3a 3d b9 0d 0c b2 7f  |"GrafIt"):=.....|
00001e30  dd a4 54 69 6d 65 73 43  61 72 64 73 5f 3a 43 6c  |..TimesCards_:Cl|
00001e40  75 65 5f 24 3d 22 22 3a  f2 73 68 75 74 5f 3a 73  |ue_$="":.shut_:s|
00001e50  74 61 72 74 65 64 5f 25  3d a3 3a f2 63 6c 6f 73  |tarted_%=.:.clos|
00001e60  65 57 28 57 69 6e 64 6f  77 4d 61 69 6e 5f 25 29  |eW(WindowMain_%)|
00001e70  3a 6f 70 65 6e 31 5f 25  3d a4 77 69 6e 64 6f 77  |:open1_%=.window|
00001e80  28 22 54 69 6d 65 73 43  61 72 64 73 22 29 3a 6f  |("TimesCards"):o|
00001e90  70 65 6e 32 5f 25 3d a4  77 69 6e 64 6f 77 28 22  |pen2_%=.window("|
00001ea0  47 72 61 66 49 74 22 29  3a 3d b9 0d 0c c6 7b dd  |GrafIt"):=....{.|
00001eb0  a4 44 69 76 43 61 72 64  73 5f 3a 43 6c 75 65 5f  |.DivCards_:Clue_|
00001ec0  24 3d 22 22 3a f2 73 68  75 74 5f 3a 73 74 61 72  |$="":.shut_:star|
00001ed0  74 65 64 5f 25 3d a3 3a  f2 63 6c 6f 73 65 57 28  |ted_%=.:.closeW(|
00001ee0  57 69 6e 64 6f 77 4d 61  69 6e 5f 25 29 3a 6f 70  |WindowMain_%):op|
00001ef0  65 6e 31 5f 25 3d a4 77  69 6e 64 6f 77 28 22 44  |en1_%=.window("D|
00001f00  69 76 43 61 72 64 73 22  29 3a 6f 70 65 6e 32 5f  |ivCards"):open2_|
00001f10  25 3d a4 77 69 6e 64 6f  77 28 22 47 72 61 66 49  |%=.window("GrafI|
00001f20  74 22 29 3a 3d b9 0d 0c  da 71 dd a4 41 64 64 5f  |t"):=....q..Add_|
00001f30  3a 43 6c 75 65 5f 24 3d  22 22 3a f2 73 68 75 74  |:Clue_$="":.shut|
00001f40  5f 3a 73 74 61 72 74 65  64 5f 25 3d a3 3a f2 63  |_:started_%=.:.c|
00001f50  6c 6f 73 65 57 28 57 69  6e 64 6f 77 4d 61 69 6e  |loseW(WindowMain|
00001f60  5f 25 29 3a 6f 70 65 6e  31 5f 25 3d a4 77 69 6e  |_%):open1_%=.win|
00001f70  64 6f 77 28 22 41 64 64  22 29 3a 6f 70 65 6e 32  |dow("Add"):open2|
00001f80  5f 25 3d a4 77 69 6e 64  6f 77 28 22 47 72 61 66  |_%=.window("Graf|
00001f90  49 74 22 29 3a 3d b9 0d  0c ee 7b dd a4 53 75 62  |It"):=....{..Sub|
00001fa0  74 72 61 63 74 5f 3a 43  6c 75 65 5f 24 3d 22 22  |tract_:Clue_$=""|
00001fb0  3a f2 73 68 75 74 5f 3a  73 74 61 72 74 65 64 5f  |:.shut_:started_|
00001fc0  25 3d a3 3a f2 63 6c 6f  73 65 57 28 57 69 6e 64  |%=.:.closeW(Wind|
00001fd0  6f 77 4d 61 69 6e 5f 25  29 3a 6f 70 65 6e 31 5f  |owMain_%):open1_|
00001fe0  25 3d a4 77 69 6e 64 6f  77 28 22 53 75 62 74 72  |%=.window("Subtr|
00001ff0  61 63 74 22 29 3a 6f 70  65 6e 32 5f 25 3d a4 77  |act"):open2_%=.w|
00002000  69 6e 64 6f 77 28 22 47  72 61 66 49 74 22 29 3a  |indow("GrafIt"):|
00002010  3d b9 0d 0d 02 7b dd a4  4d 75 6c 74 69 70 6c 79  |=....{..Multiply|
00002020  5f 3a 43 6c 75 65 5f 24  3d 22 22 3a f2 73 68 75  |_:Clue_$="":.shu|
00002030  74 5f 3a 73 74 61 72 74  65 64 5f 25 3d a3 3a f2  |t_:started_%=.:.|
00002040  63 6c 6f 73 65 57 28 57  69 6e 64 6f 77 4d 61 69  |closeW(WindowMai|
00002050  6e 5f 25 29 3a 6f 70 65  6e 31 5f 25 3d a4 77 69  |n_%):open1_%=.wi|
00002060  6e 64 6f 77 28 22 4d 75  6c 74 69 70 6c 79 22 29  |ndow("Multiply")|
00002070  3a 6f 70 65 6e 32 5f 25  3d a4 77 69 6e 64 6f 77  |:open2_%=.window|
00002080  28 22 47 72 61 66 49 74  22 29 3a 3d b9 0d 0d 16  |("GrafIt"):=....|
00002090  77 dd a4 44 69 76 69 64  65 5f 3a 43 6c 75 65 5f  |w..Divide_:Clue_|
000020a0  24 3d 22 22 3a f2 73 68  75 74 5f 3a 73 74 61 72  |$="":.shut_:star|
000020b0  74 65 64 5f 25 3d a3 3a  f2 63 6c 6f 73 65 57 28  |ted_%=.:.closeW(|
000020c0  57 69 6e 64 6f 77 4d 61  69 6e 5f 25 29 3a 6f 70  |WindowMain_%):op|
000020d0  65 6e 31 5f 25 3d a4 77  69 6e 64 6f 77 28 22 44  |en1_%=.window("D|
000020e0  69 76 69 64 65 22 29 3a  6f 70 65 6e 32 5f 25 3d  |ivide"):open2_%=|
000020f0  a4 77 69 6e 64 6f 77 28  22 47 72 61 66 49 74 22  |.window("GrafIt"|
00002100  29 3a 3d b9 0d 0d 2a 75  dd a4 4d 61 67 69 63 5f  |):=...*u..Magic_|
00002110  3a 43 6c 75 65 5f 24 3d  22 22 3a f2 73 68 75 74  |:Clue_$="":.shut|
00002120  5f 3a 73 74 61 72 74 65  64 5f 25 3d a3 3a f2 63  |_:started_%=.:.c|
00002130  6c 6f 73 65 57 28 57 69  6e 64 6f 77 4d 61 69 6e  |loseW(WindowMain|
00002140  5f 25 29 3a 6f 70 65 6e  31 5f 25 3d a4 77 69 6e  |_%):open1_%=.win|
00002150  64 6f 77 28 22 4d 61 67  69 63 22 29 3a 6f 70 65  |dow("Magic"):ope|
00002160  6e 32 5f 25 3d a4 77 69  6e 64 6f 77 28 22 47 72  |n2_%=.window("Gr|
00002170  61 66 49 74 22 29 3a 3d  b9 0d 0d 3e 73 dd a4 53  |afIt"):=...>s..S|
00002180  61 64 64 5f 3a 43 6c 75  65 5f 24 3d 22 22 3a f2  |add_:Clue_$="":.|
00002190  73 68 75 74 5f 3a 73 74  61 72 74 65 64 5f 25 3d  |shut_:started_%=|
000021a0  a3 3a f2 63 6c 6f 73 65  57 28 57 69 6e 64 6f 77  |.:.closeW(Window|
000021b0  4d 61 69 6e 5f 25 29 3a  6f 70 65 6e 31 5f 25 3d  |Main_%):open1_%=|
000021c0  a4 77 69 6e 64 6f 77 28  22 53 61 64 64 22 29 3a  |.window("Sadd"):|
000021d0  6f 70 65 6e 32 5f 25 3d  a4 77 69 6e 64 6f 77 28  |open2_%=.window(|
000021e0  22 47 72 61 66 49 74 22  29 3a 3d b9 0d 0d 52 73  |"GrafIt"):=...Rs|
000021f0  dd a4 57 61 64 64 5f 3a  43 6c 75 65 5f 24 3d 22  |..Wadd_:Clue_$="|
00002200  22 3a f2 73 68 75 74 5f  3a 73 74 61 72 74 65 64  |":.shut_:started|
00002210  5f 25 3d a3 3a f2 63 6c  6f 73 65 57 28 57 69 6e  |_%=.:.closeW(Win|
00002220  64 6f 77 4d 61 69 6e 5f  25 29 3a 6f 70 65 6e 31  |dowMain_%):open1|
00002230  5f 25 3d a4 77 69 6e 64  6f 77 28 22 57 61 64 64  |_%=.window("Wadd|
00002240  22 29 3a 6f 70 65 6e 32  5f 25 3d a4 77 69 6e 64  |"):open2_%=.wind|
00002250  6f 77 28 22 47 72 61 66  49 74 22 29 3a 3d b9 0d  |ow("GrafIt"):=..|
00002260  0d 66 73 dd a4 46 72 4d  44 5f 3a 43 6c 75 65 5f  |.fs..FrMD_:Clue_|
00002270  24 3d 22 22 3a f2 73 68  75 74 5f 3a 73 74 61 72  |$="":.shut_:star|
00002280  74 65 64 5f 25 3d a3 3a  f2 63 6c 6f 73 65 57 28  |ted_%=.:.closeW(|
00002290  57 69 6e 64 6f 77 4d 61  69 6e 5f 25 29 3a 6f 70  |WindowMain_%):op|
000022a0  65 6e 31 5f 25 3d a4 77  69 6e 64 6f 77 28 22 46  |en1_%=.window("F|
000022b0  72 4d 44 22 29 3a 6f 70  65 6e 32 5f 25 3d a4 77  |rMD"):open2_%=.w|
000022c0  69 6e 64 6f 77 28 22 47  72 61 66 49 74 22 29 3a  |indow("GrafIt"):|
000022d0  3d b9 0d 0d 7a 73 dd a4  4d 61 64 64 5f 3a 43 6c  |=...zs..Madd_:Cl|
000022e0  75 65 5f 24 3d 22 22 3a  f2 73 68 75 74 5f 3a 73  |ue_$="":.shut_:s|
000022f0  74 61 72 74 65 64 5f 25  3d a3 3a f2 63 6c 6f 73  |tarted_%=.:.clos|
00002300  65 57 28 57 69 6e 64 6f  77 4d 61 69 6e 5f 25 29  |eW(WindowMain_%)|
00002310  3a 6f 70 65 6e 31 5f 25  3d a4 77 69 6e 64 6f 77  |:open1_%=.window|
00002320  28 22 4d 61 64 64 22 29  3a 6f 70 65 6e 32 5f 25  |("Madd"):open2_%|
00002330  3d a4 77 69 6e 64 6f 77  28 22 47 72 61 66 49 74  |=.window("GrafIt|
00002340  22 29 3a 3d b9 0d 0d 8e  7c dd a4 4d 65 74 72 69  |"):=....|..Metri|
00002350  63 53 75 62 5f 3a 43 6c  75 65 5f 24 3d 22 22 3a  |cSub_:Clue_$="":|
00002360  f2 73 68 75 74 5f 3a 73  74 61 72 74 65 64 5f 25  |.shut_:started_%|
00002370  3d a3 3a f2 63 6c 6f 73  65 57 28 57 69 6e 64 6f  |=.:.closeW(Windo|
00002380  77 4d 61 69 6e 5f 25 29  3a 6f 70 65 6e 5f 25 3d  |wMain_%):open_%=|
00002390  a4 77 69 6e 64 6f 77 28  22 4d 65 74 72 69 63 53  |.window("MetricS|
000023a0  75 62 22 29 3a 6f 70 65  6e 32 5f 25 3d a4 77 69  |ub"):open2_%=.wi|
000023b0  6e 64 6f 77 28 22 47 72  61 66 49 74 22 29 3a 3d  |ndow("GrafIt"):=|
000023c0  b9 0d 0d a2 7c dd a4 4d  65 74 72 69 63 4d 75 6c  |....|..MetricMul|
000023d0  5f 3a 43 6c 75 65 5f 24  3d 22 22 3a f2 73 68 75  |_:Clue_$="":.shu|
000023e0  74 5f 3a 73 74 61 72 74  65 64 5f 25 3d a3 3a f2  |t_:started_%=.:.|
000023f0  63 6c 6f 73 65 57 28 57  69 6e 64 6f 77 4d 61 69  |closeW(WindowMai|
00002400  6e 5f 25 29 3a 6f 70 65  6e 5f 25 3d a4 77 69 6e  |n_%):open_%=.win|
00002410  64 6f 77 28 22 4d 65 74  72 69 63 4d 75 6c 22 29  |dow("MetricMul")|
00002420  3a 6f 70 65 6e 32 5f 25  3d a4 77 69 6e 64 6f 77  |:open2_%=.window|
00002430  28 22 47 72 61 66 49 74  22 29 3a 3d b9 0d 0d b6  |("GrafIt"):=....|
00002440  79 dd a4 4d 65 74 72 69  63 44 69 76 5f 3a 43 6c  |y..MetricDiv_:Cl|
00002450  75 65 5f 24 3d 22 22 3a  f2 73 68 75 74 5f 3a 73  |ue_$="":.shut_:s|
00002460  74 61 72 74 65 64 5f 25  3d a3 3a f2 63 6c 6f 73  |tarted_%=.:.clos|
00002470  65 57 28 57 69 6e 64 6f  77 4d 61 69 6e 5f 25 29  |eW(WindowMain_%)|
00002480  3a 6f 70 65 6e 5f 25 3d  a4 77 69 6e 64 6f 77 28  |:open_%=.window(|
00002490  22 4d 65 74 44 69 76 22  29 3a 6f 70 65 6e 32 5f  |"MetDiv"):open2_|
000024a0  25 3d a4 77 69 6e 64 6f  77 28 22 47 72 61 66 49  |%=.window("GrafI|
000024b0  74 22 29 3a 3d b9 0d 0d  ca 79 dd a4 4c 6f 6e 67  |t"):=....y..Long|
000024c0  4d 75 6c 5f 3a 43 6c 75  65 5f 24 3d 22 22 3a f2  |Mul_:Clue_$="":.|
000024d0  73 68 75 74 5f 3a 73 74  61 72 74 65 64 5f 25 3d  |shut_:started_%=|
000024e0  a3 3a f2 63 6c 6f 73 65  57 28 57 69 6e 64 6f 77  |.:.closeW(Window|
000024f0  4d 61 69 6e 5f 25 29 3a  6f 70 65 6e 31 5f 25 3d  |Main_%):open1_%=|
00002500  a4 77 69 6e 64 6f 77 28  22 4c 6f 6e 67 4d 75 6c  |.window("LongMul|
00002510  22 29 3a 6f 70 65 6e 32  5f 25 3d a4 77 69 6e 64  |"):open2_%=.wind|
00002520  6f 77 28 22 47 72 61 66  49 74 22 29 3a 3d b9 0d  |ow("GrafIt"):=..|
00002530  0d e8 79 dd a4 4c 6f 6e  67 44 69 76 5f 3a 43 6c  |..y..LongDiv_:Cl|
00002540  75 65 5f 24 3d 22 22 3a  f2 73 68 75 74 5f 3a 73  |ue_$="":.shut_:s|
00002550  74 61 72 74 65 64 5f 25  3d a3 3a f2 63 6c 6f 73  |tarted_%=.:.clos|
00002560  65 57 28 57 69 6e 64 6f  77 4d 61 69 6e 5f 25 29  |eW(WindowMain_%)|
00002570  3a 6f 70 65 6e 31 5f 25  3d a4 77 69 6e 64 6f 77  |:open1_%=.window|
00002580  28 22 4c 6f 6e 67 44 69  76 22 29 3a 6f 70 65 6e  |("LongDiv"):open|
00002590  32 5f 25 3d a4 77 69 6e  64 6f 77 28 22 47 72 61  |2_%=.window("Gra|
000025a0  66 49 74 22 29 3a 3d b9  0d 0e 24 5b dd f2 77 68  |fIt"):=...$[..wh|
000025b0  61 74 71 75 61 6c 3a e7  54 61 6b 65 43 61 72 64  |atqual:.TakeCard|
000025c0  5f 25 20 74 6f 74 5f 3d  6d 61 78 73 75 62 3a e3  |_% tot_=maxsub:.|
000025d0  72 5f 3d 31 b8 74 6f 74  5f 3a 71 75 61 6c 5f 24  |r_=1.tot_:qual_$|
000025e0  28 72 5f 29 3d 73 75 62  5f 24 28 72 5f 29 3a 71  |(r_)=sub_$(r_):q|
000025f0  75 61 6c 5f 28 72 5f 29  3d 73 75 62 5f 28 72 5f  |ual_(r_)=sub_(r_|
00002600  29 3a ed 0d 0e 38 4f e7  41 64 64 43 61 72 64 5f  |):...8O.AddCard_|
00002610  25 20 74 6f 74 5f 3d 6d  61 78 61 64 64 3a e3 72  |% tot_=maxadd:.r|
00002620  5f 3d 31 b8 74 6f 74 5f  3a 71 75 61 6c 5f 24 28  |_=1.tot_:qual_$(|
00002630  72 5f 29 3d 61 64 64 5f  24 28 72 5f 29 3a 71 75  |r_)=add_$(r_):qu|
00002640  61 6c 5f 28 72 5f 29 3d  61 64 64 5f 28 72 5f 29  |al_(r_)=add_(r_)|
00002650  3a ed 0d 0e 42 56 e7 54  69 6d 65 73 43 61 72 64  |:...BV.TimesCard|
00002660  5f 25 20 74 6f 74 5f 3d  6d 61 78 74 69 6d 65 73  |_% tot_=maxtimes|
00002670  3a e3 72 5f 3d 31 b8 74  6f 74 5f 3a 71 75 61 6c  |:.r_=1.tot_:qual|
00002680  5f 24 28 72 5f 29 3d 74  69 6d 65 5f 24 28 72 5f  |_$(r_)=time_$(r_|
00002690  29 3a 71 75 61 6c 5f 28  72 5f 29 3d 74 69 6d 65  |):qual_(r_)=time|
000026a0  73 5f 28 72 5f 29 3a ed  0d 0e 4c 51 e7 44 69 76  |s_(r_):...LQ.Div|
000026b0  43 61 72 64 5f 25 20 74  6f 74 5f 3d 6d 61 78 64  |Card_% tot_=maxd|
000026c0  69 76 3a e3 72 5f 3d 31  b8 74 6f 74 5f 3a 71 75  |iv:.r_=1.tot_:qu|
000026d0  61 6c 5f 24 28 72 5f 29  3d 64 69 76 65 5f 24 28  |al_$(r_)=dive_$(|
000026e0  72 5f 29 3a 71 75 61 6c  5f 28 72 5f 29 3d 64 69  |r_):qual_(r_)=di|
000026f0  76 65 5f 28 72 5f 29 3a  ed 0d 0e 56 42 67 6f 74  |ve_(r_):...VBgot|
00002700  5f 25 3d 30 3a e3 72 5f  25 3d 31 b8 74 6f 74 5f  |_%=0:.r_%=1.tot_|
00002710  3a e7 71 75 61 6c 5f 28  72 5f 25 29 3d b9 67 6f  |:.qual_(r_%)=.go|
00002720  74 5f 25 3d 67 6f 74 5f  25 2b 31 3a 67 63 5f 25  |t_%=got_%+1:gc_%|
00002730  28 67 6f 74 5f 25 29 3d  72 5f 25 0d 0e 6a 14 ed  |(got_%)=r_%..j..|
00002740  3a f2 71 75 61 6c 28 67  6f 74 5f 25 29 3a e1 0d  |:.qual(got_%):..|
00002750  0e 88 43 dd f2 71 75 61  6c 28 67 5f 25 29 3a e7  |..C..qual(g_%):.|
00002760  67 5f 25 3d 31 8c e3 74  72 5f 25 3d 31 b8 31 30  |g_%=1..tr_%=1.10|
00002770  3a 61 63 74 5f 24 28 74  72 5f 25 29 3d 71 75 61  |:act_$(tr_%)=qua|
00002780  6c 5f 24 28 67 63 5f 25  28 67 5f 25 29 29 3a ed  |l_$(gc_%(g_%)):.|
00002790  3a e1 0d 0e 9c 96 6e 65  65 64 65 64 5f 25 3d 31  |:.....needed_%=1|
000027a0  30 81 67 5f 25 3a f5 3a  e3 79 5f 3d 31 b8 67 5f  |0.g_%:.:.y_=1.g_|
000027b0  25 3a 66 69 6e 64 65 72  5f 25 28 79 5f 29 3d 30  |%:finder_%(y_)=0|
000027c0  3a ed 3a 66 6c 61 67 5f  3d b9 3a e3 74 72 5f 25  |:.:flag_=.:.tr_%|
000027d0  3d 31 b8 31 30 3a f5 3a  66 6c 69 67 5f 3d b9 3a  |=1.10:.:flig_=.:|
000027e0  72 61 6e 5f 3d b3 28 67  5f 25 29 3a 61 63 74 5f  |ran_=.(g_%):act_|
000027f0  24 3d 71 75 61 6c 5f 24  28 67 63 5f 25 28 72 61  |$=qual_$(gc_%(ra|
00002800  6e 5f 29 29 3a e7 74 72  5f 25 3e 31 80 61 63 74  |n_)):.tr_%>1.act|
00002810  5f 24 28 74 72 5f 25 2d  31 29 3d 61 63 74 5f 24  |_$(tr_%-1)=act_$|
00002820  20 66 6c 69 67 5f 3d a3  0d 0e ec 78 fd 66 6c 69  | flig_=....x.fli|
00002830  67 5f 3d b9 3a 61 63 74  5f 24 28 74 72 5f 25 29  |g_=.:act_$(tr_%)|
00002840  3d 71 75 61 6c 5f 24 28  67 63 5f 25 28 72 61 6e  |=qual_$(gc_%(ran|
00002850  5f 29 29 3a 66 69 6e 64  65 72 5f 25 28 72 61 6e  |_)):finder_%(ran|
00002860  5f 29 3d 66 69 6e 64 65  72 5f 25 28 72 61 6e 5f  |_)=finder_%(ran_|
00002870  29 2b 31 3a ed 3a e3 62  5f 25 3d 31 b8 67 5f 25  |)+1:.:.b_%=1.g_%|
00002880  3a e7 66 69 6e 64 65 72  5f 25 28 62 5f 25 29 3c  |:.finder_%(b_%)<|
00002890  6e 65 65 64 65 64 5f 25  20 66 6c 61 67 5f 3d a3  |needed_% flag_=.|
000028a0  0d 0f 14 10 ed 3a fd 66  6c 61 67 5f 3d b9 3a e1  |.....:.flag_=.:.|
000028b0  0d 0f 28 50 dd f2 77 68  61 74 6c 69 6e 65 73 5f  |..(P..whatlines_|
000028c0  3a 67 6f 74 5f 25 3d 30  3a e3 72 5f 25 3d 31 b8  |:got_%=0:.r_%=1.|
000028d0  33 3a e7 4c 69 6e 65 54  79 70 65 5f 28 72 5f 25  |3:.LineType_(r_%|
000028e0  29 3d b9 67 6f 74 5f 25  3d 67 6f 74 5f 25 2b 31  |)=.got_%=got_%+1|
000028f0  3a 67 63 5f 25 28 67 6f  74 5f 25 29 3d 72 5f 25  |:gc_%(got_%)=r_%|
00002900  0d 0f 3c 39 ed 3a e7 67  6f 74 5f 25 3d 31 8c e3  |..<9.:.got_%=1..|
00002910  74 72 5f 25 3d 31 b8 31  30 3a 6c 69 6e 65 74 79  |tr_%=1.10:linety|
00002920  70 65 5f 28 74 72 5f 25  29 3d 67 63 5f 25 28 67  |pe_(tr_%)=gc_%(g|
00002930  6f 74 5f 25 29 3a ed 3a  e1 0d 0f 50 a0 6e 65 65  |ot_%):.:...P.nee|
00002940  64 65 64 5f 25 3d 31 30  81 67 6f 74 5f 25 3a f5  |ded_%=10.got_%:.|
00002950  3a e3 79 5f 3d 31 b8 67  6f 74 5f 25 3a 66 69 6e  |:.y_=1.got_%:fin|
00002960  64 65 72 5f 25 28 79 5f  29 3d 30 3a ed 3a 66 6c  |der_%(y_)=0:.:fl|
00002970  61 67 5f 3d b9 3a e3 74  72 5f 25 3d 31 b8 31 30  |ag_=.:.tr_%=1.10|
00002980  3a f5 3a 66 6c 69 67 5f  3d b9 3a 72 61 6e 5f 3d  |:.:flig_=.:ran_=|
00002990  b3 28 67 6f 74 5f 25 29  3a 6c 69 6e 65 74 79 70  |.(got_%):linetyp|
000029a0  65 5f 3d 67 63 5f 25 28  72 61 6e 5f 29 3a e7 74  |e_=gc_%(ran_):.t|
000029b0  72 5f 25 3e 31 80 6c 69  6e 65 74 79 70 65 5f 28  |r_%>1.linetype_(|
000029c0  74 72 5f 25 2d 31 29 3d  6c 69 6e 65 74 79 70 65  |tr_%-1)=linetype|
000029d0  5f 20 66 6c 69 67 5f 3d  a3 0d 0f a0 74 fd 66 6c  |_ flig_=....t.fl|
000029e0  69 67 5f 3d b9 3a 6c 69  6e 65 74 79 70 65 5f 28  |ig_=.:linetype_(|
000029f0  74 72 5f 25 29 3d 67 63  5f 25 28 72 61 6e 5f 29  |tr_%)=gc_%(ran_)|
00002a00  3a 66 69 6e 64 65 72 5f  25 28 72 61 6e 5f 29 3d  |:finder_%(ran_)=|
00002a10  66 69 6e 64 65 72 5f 25  28 72 61 6e 5f 29 2b 31  |finder_%(ran_)+1|
00002a20  3a ed 3a e3 79 5f 3d 31  b8 67 6f 74 5f 25 3a e7  |:.:.y_=1.got_%:.|
00002a30  66 69 6e 64 65 72 5f 25  28 79 5f 29 3c 6e 65 65  |finder_%(y_)<nee|
00002a40  64 65 64 5f 25 20 66 6c  61 67 5f 3d a3 0d 0f c8  |ded_% flag_=....|
00002a50  10 ed 3a fd 66 6c 61 67  5f 3d b9 3a e1 0d 0f f0  |..:.flag_=.:....|
00002a60  47 dd f2 77 68 61 74 65  71 75 61 6c 73 3a e7 45  |G..whatequals:.E|
00002a70  71 53 69 67 6e 5f 3d b9  80 45 71 45 71 75 61 6c  |qSign_=..EqEqual|
00002a80  73 5f 3d a3 e3 74 72 5f  25 3d 31 b8 31 30 3a 65  |s_=..tr_%=1.10:e|
00002a90  71 75 61 6c 5f 24 28 74  72 5f 25 29 3d 22 3d 22  |qual_$(tr_%)="="|
00002aa0  3a ed 3a e1 0d 10 04 3f  e7 45 71 53 69 67 6e 5f  |:.:....?.EqSign_|
00002ab0  3d a3 80 45 71 45 71 75  61 6c 73 5f 3d b9 e3 74  |=..EqEquals_=..t|
00002ac0  72 5f 25 3d 31 b8 31 30  3a 65 71 75 61 6c 5f 24  |r_%=1.10:equal_$|
00002ad0  28 74 72 5f 25 29 3d 22  65 71 75 61 6c 73 22 3a  |(tr_%)="equals":|
00002ae0  ed 3a e1 0d 10 0e 2b f2  74 77 6f 28 22 65 71 75  |.:....+.two("equ|
00002af0  61 6c 73 22 2c 22 3d 22  29 3a 65 71 75 61 6c 5f  |als","="):equal_|
00002b00  24 28 29 3d 64 75 6e 6b  5f 24 28 29 3a e1 0d 10  |$()=dunk_$():...|
00002b10  22 59 dd f2 74 77 6f 28  61 5f 24 2c 62 5f 24 29  |"Y..two(a_$,b_$)|
00002b20  3a f5 3a 61 61 5f 3d 30  3a 61 70 5f 3d 30 3a e3  |:.:aa_=0:ap_=0:.|
00002b30  74 72 5f 25 3d 31 b8 31  30 3a f5 3a 66 6c 75 67  |tr_%=1.10:.:flug|
00002b40  5f 3d b9 3a 72 5f 3d b3  28 32 29 3a e7 72 5f 3d  |_=.:r_=.(2):.r_=|
00002b50  31 20 64 75 6e 6b 5f 24  3d 61 5f 24 8b 64 75 6e  |1 dunk_$=a_$.dun|
00002b60  6b 5f 24 3d 62 5f 24 0d  10 54 29 e7 74 72 5f 25  |k_$=b_$..T).tr_%|
00002b70  3e 31 80 64 75 6e 6b 5f  24 28 74 72 5f 25 2d 31  |>1.dunk_$(tr_%-1|
00002b80  29 3d 64 75 6e 6b 5f 24  20 66 6c 75 67 5f 3d a3  |)=dunk_$ flug_=.|
00002b90  0d 10 5e 48 fd 66 6c 75  67 5f 3d b9 3a e7 72 5f  |..^H.flug_=.:.r_|
00002ba0  3d 31 20 64 75 6e 6b 5f  24 28 74 72 5f 25 29 3d  |=1 dunk_$(tr_%)=|
00002bb0  61 5f 24 3a 61 61 5f 3d  61 61 5f 2b 31 8b 64 75  |a_$:aa_=aa_+1.du|
00002bc0  6e 6b 5f 24 28 74 72 5f  25 29 3d 62 5f 24 3a 61  |nk_$(tr_%)=b_$:a|
00002bd0  70 5f 3d 61 70 5f 2b 31  0d 10 72 14 ed 3a fd 61  |p_=ap_+1..r..:.a|
00002be0  61 5f 3e 34 80 61 70 5f  3e 34 3a e1 0d 10 86 3a  |a_>4.ap_>4:....:|
00002bf0  dd a4 45 71 53 69 67 6e  5f 3a e7 45 71 53 69 67  |..EqSign_:.EqSig|
00002c00  6e 5f 3d b9 80 45 71 45  71 75 61 6c 73 5f 3d a3  |n_=..EqEquals_=.|
00002c10  45 71 53 69 67 6e 5f 3d  b9 3a f2 73 65 6c 65 63  |EqSign_=.:.selec|
00002c20  74 45 71 3a 3d b9 0d 10  9a 26 e7 45 71 53 69 67  |tEq:=....&.EqSig|
00002c30  6e 5f 3d b9 45 71 53 69  67 6e 5f 3d a3 3a f2 55  |n_=.EqSign_=.:.U|
00002c40  6e 73 65 6c 65 63 74 45  71 3a 3d b9 0d 10 a4 24  |nselectEq:=....$|
00002c50  e7 45 71 53 69 67 6e 5f  3d a3 45 71 53 69 67 6e  |.EqSign_=.EqSign|
00002c60  5f 3d b9 3a f2 73 65 6c  65 63 74 45 71 3a 3d b9  |_=.:.selectEq:=.|
00002c70  0d 10 ae 04 0d 10 b8 42  dd a4 45 71 45 71 75 61  |.......B..EqEqua|
00002c80  6c 73 5f 3a e7 45 71 45  71 75 61 6c 73 5f 3d b9  |ls_:.EqEquals_=.|
00002c90  80 45 71 53 69 67 6e 5f  3d a3 45 71 45 71 75 61  |.EqSign_=.EqEqua|
00002ca0  6c 73 5f 3d b9 3a f2 73  65 6c 65 63 74 45 71 75  |ls_=.:.selectEqu|
00002cb0  61 6c 73 3a 3d b9 0d 10  cc 2e e7 45 71 45 71 75  |als:=......EqEqu|
00002cc0  61 6c 73 5f 3d b9 45 71  45 71 75 61 6c 73 5f 3d  |als_=.EqEquals_=|
00002cd0  a3 3a f2 55 6e 73 65 6c  65 63 74 45 71 75 61 6c  |.:.UnselectEqual|
00002ce0  73 3a 3d b9 0d 10 d6 2c  e7 45 71 45 71 75 61 6c  |s:=....,.EqEqual|
00002cf0  73 5f 3d a3 45 71 45 71  75 61 6c 73 5f 3d b9 3a  |s_=.EqEquals_=.:|
00002d00  f2 73 65 6c 65 63 74 45  71 75 61 6c 73 3a 3d b9  |.selectEquals:=.|
00002d10  0d 10 e0 04 0d 10 ea 30  dd f2 73 65 6c 65 63 74  |.......0..select|
00002d20  45 71 3a e7 41 64 64 43  61 72 64 5f 25 f2 73 49  |Eq:.AddCard_%.sI|
00002d30  28 41 64 64 43 61 72 64  5f 25 2c 22 45 71 53 69  |(AddCard_%,"EqSi|
00002d40  67 6e 22 29 0d 10 fe 27  e7 54 61 6b 65 43 61 72  |gn")...'.TakeCar|
00002d50  64 5f 25 f2 73 49 28 54  61 6b 65 43 61 72 64 5f  |d_%.sI(TakeCard_|
00002d60  25 2c 22 45 71 53 69 67  6e 22 29 0d 11 08 29 e7  |%,"EqSign")...).|
00002d70  54 69 6d 65 73 43 61 72  64 5f 25 f2 73 49 28 54  |TimesCard_%.sI(T|
00002d80  69 6d 65 73 43 61 72 64  5f 25 2c 22 45 71 53 69  |imesCard_%,"EqSi|
00002d90  67 6e 22 29 0d 11 12 25  e7 44 69 76 43 61 72 64  |gn")...%.DivCard|
00002da0  5f 25 f2 73 49 28 44 69  76 43 61 72 64 5f 25 2c  |_%.sI(DivCard_%,|
00002db0  22 45 71 53 69 67 6e 22  29 0d 11 1c 05 e1 0d 11  |"EqSign").......|
00002dc0  30 2f dd f2 55 6e 73 65  6c 65 63 74 45 71 3a e7  |0/..UnselectEq:.|
00002dd0  41 64 64 43 61 72 64 5f  25 f2 75 73 49 28 41 64  |AddCard_%.usI(Ad|
00002de0  64 43 61 72 64 5f 25 2c  22 45 71 22 29 0d 11 44  |dCard_%,"Eq")..D|
00002df0  24 e7 54 61 6b 65 43 61  72 64 5f 25 f2 75 73 49  |$.TakeCard_%.usI|
00002e00  28 54 61 6b 65 43 61 72  64 5f 25 2c 22 45 71 22  |(TakeCard_%,"Eq"|
00002e10  29 0d 11 4e 2a e7 54 69  6d 65 73 43 61 72 64 5f  |)..N*.TimesCard_|
00002e20  25 f2 75 73 49 28 54 69  6d 65 73 43 61 72 64 5f  |%.usI(TimesCard_|
00002e30  25 2c 22 45 71 53 69 67  6e 22 29 0d 11 58 26 e7  |%,"EqSign")..X&.|
00002e40  44 69 76 43 61 72 64 5f  25 f2 75 73 49 28 44 69  |DivCard_%.usI(Di|
00002e50  76 43 61 72 64 5f 25 2c  22 45 71 53 69 67 6e 22  |vCard_%,"EqSign"|
00002e60  29 0d 11 62 05 e1 0d 11  76 36 dd f2 73 65 6c 65  |)..b....v6..sele|
00002e70  63 74 45 71 75 61 6c 73  3a e7 41 64 64 43 61 72  |ctEquals:.AddCar|
00002e80  64 5f 25 f2 73 49 28 41  64 64 43 61 72 64 5f 25  |d_%.sI(AddCard_%|
00002e90  2c 22 45 71 45 71 75 61  6c 73 22 29 0d 11 8a 29  |,"EqEquals")...)|
00002ea0  e7 54 61 6b 65 43 61 72  64 5f 25 f2 73 49 28 54  |.TakeCard_%.sI(T|
00002eb0  61 6b 65 43 61 72 64 5f  25 2c 22 45 71 45 71 75  |akeCard_%,"EqEqu|
00002ec0  61 6c 73 22 29 0d 11 94  2b e7 54 69 6d 65 73 43  |als")...+.TimesC|
00002ed0  61 72 64 5f 25 f2 73 49  28 54 69 6d 65 73 43 61  |ard_%.sI(TimesCa|
00002ee0  72 64 5f 25 2c 22 45 71  45 71 75 61 6c 73 22 29  |rd_%,"EqEquals")|
00002ef0  0d 11 9e 27 e7 44 69 76  43 61 72 64 5f 25 f2 73  |...'.DivCard_%.s|
00002f00  49 28 44 69 76 43 61 72  64 5f 25 2c 22 45 71 45  |I(DivCard_%,"EqE|
00002f10  71 75 61 6c 73 22 29 0d  11 a8 05 e1 0d 11 bc 39  |quals")........9|
00002f20  dd f2 55 6e 73 65 6c 65  63 74 45 71 75 61 6c 73  |..UnselectEquals|
00002f30  3a e7 41 64 64 43 61 72  64 5f 25 f2 75 73 49 28  |:.AddCard_%.usI(|
00002f40  41 64 64 43 61 72 64 5f  25 2c 22 45 71 45 71 75  |AddCard_%,"EqEqu|
00002f50  61 6c 73 22 29 0d 11 d0  2a e7 54 61 6b 65 43 61  |als")...*.TakeCa|
00002f60  72 64 5f 25 f2 75 73 49  28 54 61 6b 65 43 61 72  |rd_%.usI(TakeCar|
00002f70  64 5f 25 2c 22 45 71 45  71 75 61 6c 73 22 29 0d  |d_%,"EqEquals").|
00002f80  11 da 2c e7 54 69 6d 65  73 43 61 72 64 5f 25 f2  |..,.TimesCard_%.|
00002f90  75 73 49 28 54 69 6d 65  73 43 61 72 64 5f 25 2c  |usI(TimesCard_%,|
00002fa0  22 45 71 45 71 75 61 6c  73 22 29 0d 11 e4 28 e7  |"EqEquals")...(.|
00002fb0  44 69 76 43 61 72 64 5f  25 f2 75 73 49 28 44 69  |DivCard_%.usI(Di|
00002fc0  76 43 61 72 64 5f 25 2c  22 45 71 45 71 75 61 6c  |vCard_%,"EqEqual|
00002fd0  73 22 29 0d 11 ee 05 e1  0d 12 02 4e dd a4 4c 69  |s")........N..Li|
00002fe0  6e 65 54 79 70 65 31 5f  3a e7 4c 69 6e 65 54 79  |neType1_:.LineTy|
00002ff0  70 65 5f 28 32 29 3d a3  80 4c 69 6e 65 54 79 70  |pe_(2)=..LineTyp|
00003000  65 5f 28 33 29 3d a3 8c  4c 69 6e 65 54 79 70 65  |e_(3)=..LineType|
00003010  5f 28 31 29 3d b9 3a f2  73 65 6c 65 63 74 6c 69  |_(1)=.:.selectli|
00003020  6e 65 31 3a 3d b9 0d 12  16 31 e7 4c 69 6e 65 54  |ne1:=....1.LineT|
00003030  79 70 65 5f 28 31 29 3d  a3 4c 69 6e 65 54 79 70  |ype_(1)=.LineTyp|
00003040  65 5f 28 31 29 3d b9 3a  f2 73 65 6c 65 63 74 6c  |e_(1)=.:.selectl|
00003050  69 6e 65 31 3a 3d b9 0d  12 20 33 e7 4c 69 6e 65  |ine1:=... 3.Line|
00003060  54 79 70 65 5f 28 31 29  3d b9 4c 69 6e 65 54 79  |Type_(1)=.LineTy|
00003070  70 65 5f 28 31 29 3d a3  3a f2 55 6e 73 65 6c 65  |pe_(1)=.:.Unsele|
00003080  63 74 6c 69 6e 65 31 3a  3d b9 0d 12 2a 4e dd a4  |ctline1:=...*N..|
00003090  4c 69 6e 65 54 79 70 65  32 5f 3a e7 4c 69 6e 65  |LineType2_:.Line|
000030a0  54 79 70 65 5f 28 31 29  3d a3 80 4c 69 6e 65 54  |Type_(1)=..LineT|
000030b0  79 70 65 5f 28 33 29 3d  a3 8c 4c 69 6e 65 54 79  |ype_(3)=..LineTy|
000030c0  70 65 5f 28 32 29 3d b9  3a f2 73 65 6c 65 63 74  |pe_(2)=.:.select|
000030d0  6c 69 6e 65 32 3a 3d b9  0d 12 3e 31 e7 4c 69 6e  |line2:=...>1.Lin|
000030e0  65 54 79 70 65 5f 28 32  29 3d a3 4c 69 6e 65 54  |eType_(2)=.LineT|
000030f0  79 70 65 5f 28 32 29 3d  b9 3a f2 73 65 6c 65 63  |ype_(2)=.:.selec|
00003100  74 6c 69 6e 65 32 3a 3d  b9 0d 12 48 33 e7 4c 69  |tline2:=...H3.Li|
00003110  6e 65 54 79 70 65 5f 28  32 29 3d b9 4c 69 6e 65  |neType_(2)=.Line|
00003120  54 79 70 65 5f 28 32 29  3d a3 3a f2 55 6e 73 65  |Type_(2)=.:.Unse|
00003130  6c 65 63 74 6c 69 6e 65  32 3a 3d b9 0d 12 52 4e  |lectline2:=...RN|
00003140  dd a4 4c 69 6e 65 54 79  70 65 33 5f 3a e7 4c 69  |..LineType3_:.Li|
00003150  6e 65 54 79 70 65 5f 28  31 29 3d a3 80 4c 69 6e  |neType_(1)=..Lin|
00003160  65 54 79 70 65 5f 28 32  29 3d a3 8c 4c 69 6e 65  |eType_(2)=..Line|
00003170  54 79 70 65 5f 28 33 29  3d b9 3a f2 73 65 6c 65  |Type_(3)=.:.sele|
00003180  63 74 6c 69 6e 65 33 3a  3d b9 0d 12 66 31 e7 4c  |ctline3:=...f1.L|
00003190  69 6e 65 54 79 70 65 5f  28 33 29 3d a3 4c 69 6e  |ineType_(3)=.Lin|
000031a0  65 54 79 70 65 5f 28 33  29 3d b9 3a f2 73 65 6c  |eType_(3)=.:.sel|
000031b0  65 63 74 6c 69 6e 65 33  3a 3d b9 0d 12 70 33 e7  |ectline3:=...p3.|
000031c0  4c 69 6e 65 54 79 70 65  5f 28 33 29 3d b9 4c 69  |LineType_(3)=.Li|
000031d0  6e 65 54 79 70 65 5f 28  33 29 3d a3 3a f2 55 6e  |neType_(3)=.:.Un|
000031e0  73 65 6c 65 63 74 6c 69  6e 65 33 3a 3d b9 0d 12  |selectline3:=...|
000031f0  7a 04 0d 12 84 38 dd f2  73 65 6c 65 63 74 6c 69  |z....8..selectli|
00003200  6e 65 31 3a e7 54 61 6b  65 43 61 72 64 5f 25 f2  |ne1:.TakeCard_%.|
00003210  73 49 28 54 61 6b 65 43  61 72 64 5f 25 2c 22 4c  |sI(TakeCard_%,"L|
00003220  69 6e 65 54 79 70 65 31  22 29 0d 12 98 28 e7 41  |ineType1")...(.A|
00003230  64 64 43 61 72 64 5f 25  f2 73 49 28 41 64 64 43  |ddCard_%.sI(AddC|
00003240  61 72 64 5f 25 2c 22 4c  69 6e 65 54 79 70 65 31  |ard_%,"LineType1|
00003250  22 29 0d 12 a2 2c e7 54  69 6d 65 73 43 61 72 64  |")...,.TimesCard|
00003260  5f 25 f2 73 49 28 54 69  6d 65 73 43 61 72 64 5f  |_%.sI(TimesCard_|
00003270  25 2c 22 4c 69 6e 65 54  79 70 65 31 22 29 0d 12  |%,"LineType1")..|
00003280  ac 28 e7 44 69 76 43 61  72 64 5f 25 f2 73 49 28  |.(.DivCard_%.sI(|
00003290  44 69 76 43 61 72 64 5f  25 2c 22 4c 69 6e 65 54  |DivCard_%,"LineT|
000032a0  79 70 65 31 22 29 0d 12  b6 05 e1 0d 12 c0 3b dd  |ype1")........;.|
000032b0  f2 55 6e 73 65 6c 65 63  74 6c 69 6e 65 31 3a e7  |.Unselectline1:.|
000032c0  54 61 6b 65 43 61 72 64  5f 25 f2 75 73 49 28 54  |TakeCard_%.usI(T|
000032d0  61 6b 65 43 61 72 64 5f  25 2c 22 4c 69 6e 65 54  |akeCard_%,"LineT|
000032e0  79 70 65 31 22 29 0d 12  d4 29 e7 41 64 64 43 61  |ype1")...).AddCa|
000032f0  72 64 5f 25 f2 75 73 49  28 41 64 64 43 61 72 64  |rd_%.usI(AddCard|
00003300  5f 25 2c 22 4c 69 6e 65  54 79 70 65 31 22 29 0d  |_%,"LineType1").|
00003310  12 de 2d e7 54 69 6d 65  73 43 61 72 64 5f 25 f2  |..-.TimesCard_%.|
00003320  75 73 49 28 54 69 6d 65  73 43 61 72 64 5f 25 2c  |usI(TimesCard_%,|
00003330  22 4c 69 6e 65 54 79 70  65 31 22 29 0d 12 e8 29  |"LineType1")...)|
00003340  e7 44 69 76 43 61 72 64  5f 25 f2 75 73 49 28 44  |.DivCard_%.usI(D|
00003350  69 76 43 61 72 64 5f 25  2c 22 4c 69 6e 65 54 79  |ivCard_%,"LineTy|
00003360  70 65 31 22 29 0d 12 f2  05 e1 0d 12 fc 38 dd f2  |pe1")........8..|
00003370  73 65 6c 65 63 74 6c 69  6e 65 32 3a e7 54 61 6b  |selectline2:.Tak|
00003380  65 43 61 72 64 5f 25 f2  73 49 28 54 61 6b 65 43  |eCard_%.sI(TakeC|
00003390  61 72 64 5f 25 2c 22 4c  69 6e 65 54 79 70 65 32  |ard_%,"LineType2|
000033a0  22 29 0d 13 10 28 e7 41  64 64 43 61 72 64 5f 25  |")...(.AddCard_%|
000033b0  f2 73 49 28 41 64 64 43  61 72 64 5f 25 2c 22 4c  |.sI(AddCard_%,"L|
000033c0  69 6e 65 54 79 70 65 32  22 29 0d 13 1a 2c e7 54  |ineType2")...,.T|
000033d0  69 6d 65 73 43 61 72 64  5f 25 f2 73 49 28 54 69  |imesCard_%.sI(Ti|
000033e0  6d 65 73 43 61 72 64 5f  25 2c 22 4c 69 6e 65 54  |mesCard_%,"LineT|
000033f0  79 70 65 32 22 29 0d 13  24 28 e7 44 69 76 43 61  |ype2")..$(.DivCa|
00003400  72 64 5f 25 f2 73 49 28  44 69 76 43 61 72 64 5f  |rd_%.sI(DivCard_|
00003410  25 2c 22 4c 69 6e 65 54  79 70 65 32 22 29 0d 13  |%,"LineType2")..|
00003420  2e 05 e1 0d 13 38 3b dd  f2 55 6e 73 65 6c 65 63  |.....8;..Unselec|
00003430  74 6c 69 6e 65 32 3a e7  54 61 6b 65 43 61 72 64  |tline2:.TakeCard|
00003440  5f 25 f2 75 73 49 28 54  61 6b 65 43 61 72 64 5f  |_%.usI(TakeCard_|
00003450  25 2c 22 4c 69 6e 65 54  79 70 65 32 22 29 0d 13  |%,"LineType2")..|
00003460  4c 29 e7 41 64 64 43 61  72 64 5f 25 f2 75 73 49  |L).AddCard_%.usI|
00003470  28 41 64 64 43 61 72 64  5f 25 2c 22 4c 69 6e 65  |(AddCard_%,"Line|
00003480  54 79 70 65 32 22 29 0d  13 56 2d e7 54 69 6d 65  |Type2")..V-.Time|
00003490  73 43 61 72 64 5f 25 f2  75 73 49 28 54 69 6d 65  |sCard_%.usI(Time|
000034a0  73 43 61 72 64 5f 25 2c  22 4c 69 6e 65 54 79 70  |sCard_%,"LineTyp|
000034b0  65 32 22 29 0d 13 60 29  e7 44 69 76 43 61 72 64  |e2")..`).DivCard|
000034c0  5f 25 f2 75 73 49 28 44  69 76 43 61 72 64 5f 25  |_%.usI(DivCard_%|
000034d0  2c 22 4c 69 6e 65 54 79  70 65 32 22 29 0d 13 6a  |,"LineType2")..j|
000034e0  05 e1 0d 13 74 38 dd f2  73 65 6c 65 63 74 6c 69  |....t8..selectli|
000034f0  6e 65 33 3a e7 54 61 6b  65 43 61 72 64 5f 25 f2  |ne3:.TakeCard_%.|
00003500  73 49 28 54 61 6b 65 43  61 72 64 5f 25 2c 22 4c  |sI(TakeCard_%,"L|
00003510  69 6e 65 54 79 70 65 33  22 29 0d 13 88 28 e7 41  |ineType3")...(.A|
00003520  64 64 43 61 72 64 5f 25  f2 73 49 28 41 64 64 43  |ddCard_%.sI(AddC|
00003530  61 72 64 5f 25 2c 22 4c  69 6e 65 54 79 70 65 33  |ard_%,"LineType3|
00003540  22 29 0d 13 92 2c e7 54  69 6d 65 73 43 61 72 64  |")...,.TimesCard|
00003550  5f 25 f2 73 49 28 54 69  6d 65 73 43 61 72 64 5f  |_%.sI(TimesCard_|
00003560  25 2c 22 4c 69 6e 65 54  79 70 65 33 22 29 0d 13  |%,"LineType3")..|
00003570  9c 28 e7 44 69 76 43 61  72 64 5f 25 f2 73 49 28  |.(.DivCard_%.sI(|
00003580  44 69 76 43 61 72 64 5f  25 2c 22 4c 69 6e 65 54  |DivCard_%,"LineT|
00003590  79 70 65 33 22 29 0d 13  a6 05 e1 0d 13 b0 3b dd  |ype3")........;.|
000035a0  f2 55 6e 73 65 6c 65 63  74 6c 69 6e 65 33 3a e7  |.Unselectline3:.|
000035b0  54 61 6b 65 43 61 72 64  5f 25 f2 75 73 49 28 54  |TakeCard_%.usI(T|
000035c0  61 6b 65 43 61 72 64 5f  25 2c 22 4c 69 6e 65 54  |akeCard_%,"LineT|
000035d0  79 70 65 33 22 29 0d 13  c4 29 e7 41 64 64 43 61  |ype3")...).AddCa|
000035e0  72 64 5f 25 f2 75 73 49  28 41 64 64 43 61 72 64  |rd_%.usI(AddCard|
000035f0  5f 25 2c 22 4c 69 6e 65  54 79 70 65 33 22 29 0d  |_%,"LineType3").|
00003600  13 ce 2d e7 54 69 6d 65  73 43 61 72 64 5f 25 f2  |..-.TimesCard_%.|
00003610  75 73 49 28 54 69 6d 65  73 43 61 72 64 5f 25 2c  |usI(TimesCard_%,|
00003620  22 4c 69 6e 65 54 79 70  65 33 22 29 0d 13 d8 29  |"LineType3")...)|
00003630  e7 44 69 76 43 61 72 64  5f 25 f2 75 73 49 28 44  |.DivCard_%.usI(D|
00003640  69 76 43 61 72 64 5f 25  2c 22 4c 69 6e 65 54 79  |ivCard_%,"LineTy|
00003650  70 65 33 22 29 0d 13 e2  05 e1 0d 13 f6 77 dd a4  |pe3")........w..|
00003660  41 6e 73 77 65 72 73 5f  3a e7 41 6e 73 77 65 72  |Answers_:.Answer|
00003670  5f 25 3d a3 41 6e 73 77  65 72 5f 25 3d b9 3a f2  |_%=.Answer_%=.:.|
00003680  70 4d 49 28 22 47 72 61  66 49 74 22 2c 30 2c 22  |pMI("GrafIt",0,"|
00003690  41 6e 73 77 65 72 73 20  6f 66 66 22 29 8b e7 41  |Answers off")..A|
000036a0  6e 73 77 65 72 5f 25 3d  b9 41 6e 73 77 65 72 5f  |nswer_%=.Answer_|
000036b0  25 3d a3 3a f2 70 4d 49  28 22 47 72 61 66 49 74  |%=.:.pMI("GrafIt|
000036c0  22 2c 30 2c 22 41 6e 73  77 65 72 73 20 6f 6e 22  |",0,"Answers on"|
000036d0  29 0d 14 0a 0a 3d a4 73  75 6d 73 0d 14 50 b3 dd  |)....=.sums..P..|
000036e0  f2 41 64 64 43 61 72 64  73 3a 41 64 64 43 61 72  |.AddCards:AddCar|
000036f0  64 5f 25 3d a4 66 57 53  28 22 41 64 64 43 61 72  |d_%=.fWS("AddCar|
00003700  64 73 22 29 3a 24 21 41  64 64 6d 61 78 79 5f 25  |ds"):$!Addmaxy_%|
00003710  3d c3 28 41 64 64 6d 61  78 79 5f 29 3a f2 72 49  |=.(Addmaxy_):.rI|
00003720  28 41 64 64 43 61 72 64  5f 25 2c 22 41 64 64 6d  |(AddCard_%,"Addm|
00003730  61 78 79 22 29 3a 24 21  41 64 64 6d 69 6e 79 5f  |axy"):$!Addminy_|
00003740  25 3d c3 28 41 64 64 6d  69 6e 79 5f 29 3a f2 72  |%=.(Addminy_):.r|
00003750  49 28 41 64 64 43 61 72  64 5f 25 2c 22 41 64 64  |I(AddCard_%,"Add|
00003760  6d 69 6e 79 22 29 3a e7  4c 69 6e 65 54 79 70 65  |miny"):.LineType|
00003770  5f 28 31 29 f2 73 49 28  41 64 64 43 61 72 64 5f  |_(1).sI(AddCard_|
00003780  25 2c 22 4c 69 6e 65 54  79 70 65 31 22 29 0d 14  |%,"LineType1")..|
00003790  78 2b e7 4c 69 6e 65 54  79 70 65 5f 28 32 29 f2  |x+.LineType_(2).|
000037a0  73 49 28 41 64 64 43 61  72 64 5f 25 2c 22 4c 69  |sI(AddCard_%,"Li|
000037b0  6e 65 54 79 70 65 32 22  29 0d 14 82 2b e7 4c 69  |neType2")...+.Li|
000037c0  6e 65 54 79 70 65 5f 28  33 29 f2 73 49 28 41 64  |neType_(3).sI(Ad|
000037d0  64 43 61 72 64 5f 25 2c  22 4c 69 6e 65 54 79 70  |dCard_%,"LineTyp|
000037e0  65 33 22 29 0d 14 8c 23  e7 45 71 53 69 67 6e 5f  |e3")...#.EqSign_|
000037f0  f2 73 49 28 41 64 64 43  61 72 64 5f 25 2c 22 45  |.sI(AddCard_%,"E|
00003800  71 53 69 67 6e 22 29 0d  14 96 27 e7 45 71 45 71  |qSign")...'.EqEq|
00003810  75 61 6c 73 5f f2 73 49  28 41 64 64 43 61 72 64  |uals_.sI(AddCard|
00003820  5f 25 2c 22 45 71 45 71  75 61 6c 73 22 29 0d 14  |_%,"EqEquals")..|
00003830  a0 21 e7 61 64 64 5f 28  31 29 f2 73 49 28 41 64  |.!.add_(1).sI(Ad|
00003840  64 43 61 72 64 5f 25 2c  22 61 64 64 31 22 29 0d  |dCard_%,"add1").|
00003850  14 aa 21 e7 61 64 64 5f  28 32 29 f2 73 49 28 41  |..!.add_(2).sI(A|
00003860  64 64 43 61 72 64 5f 25  2c 22 61 64 64 32 22 29  |ddCard_%,"add2")|
00003870  0d 14 b4 21 e7 61 64 64  5f 28 33 29 f2 73 49 28  |...!.add_(3).sI(|
00003880  41 64 64 43 61 72 64 5f  25 2c 22 61 64 64 33 22  |AddCard_%,"add3"|
00003890  29 0d 14 be 21 e7 61 64  64 5f 28 34 29 f2 73 49  |)...!.add_(4).sI|
000038a0  28 41 64 64 43 61 72 64  5f 25 2c 22 61 64 64 34  |(AddCard_%,"add4|
000038b0  22 29 0d 14 c8 05 e1 0d  14 f0 28 dd a4 61 64 64  |")........(..add|
000038c0  5f 3a 63 5f 3d 30 3a e3  68 5f 3d 31 b8 34 3a e7  |_:c_=0:.h_=1.4:.|
000038d0  61 64 64 5f 28 68 5f 29  63 5f 3d 63 5f 2b 31 0d  |add_(h_)c_=c_+1.|
000038e0  14 fa 09 ed 3a 3d 63 5f  0d 15 04 3f dd a4 61 64  |....:=c_...?..ad|
000038f0  64 31 5f 3a e7 61 64 64  5f 28 31 29 80 a4 61 64  |d1_:.add_(1)..ad|
00003900  64 5f 3d 31 20 61 64 64  5f 28 31 29 3d b9 3a f2  |d_=1 add_(1)=.:.|
00003910  73 49 28 41 64 64 43 61  72 64 5f 25 2c 22 61 64  |sI(AddCard_%,"ad|
00003920  64 31 22 29 3a 3d b9 0d  15 0e 1f e7 61 64 64 5f  |d1"):=......add_|
00003930  28 31 29 61 64 64 5f 28  31 29 3d a3 8b 61 64 64  |(1)add_(1)=..add|
00003940  5f 28 31 29 3d b9 0d 15  18 06 3d b9 0d 15 22 3f  |_(1)=.....=..."?|
00003950  dd a4 61 64 64 32 5f 3a  e7 61 64 64 5f 28 32 29  |..add2_:.add_(2)|
00003960  80 a4 61 64 64 5f 3d 31  20 61 64 64 5f 28 32 29  |..add_=1 add_(2)|
00003970  3d b9 3a f2 73 49 28 41  64 64 43 61 72 64 5f 25  |=.:.sI(AddCard_%|
00003980  2c 22 61 64 64 32 22 29  3a 3d b9 0d 15 2c 1f e7  |,"add2"):=...,..|
00003990  61 64 64 5f 28 32 29 61  64 64 5f 28 32 29 3d a3  |add_(2)add_(2)=.|
000039a0  8b 61 64 64 5f 28 32 29  3d b9 0d 15 36 06 3d b9  |.add_(2)=...6.=.|
000039b0  0d 15 40 3f dd a4 61 64  64 33 5f 3a e7 61 64 64  |..@?..add3_:.add|
000039c0  5f 28 33 29 80 a4 61 64  64 5f 3d 31 20 61 64 64  |_(3)..add_=1 add|
000039d0  5f 28 33 29 3d b9 3a f2  73 49 28 41 64 64 43 61  |_(3)=.:.sI(AddCa|
000039e0  72 64 5f 25 2c 22 61 64  64 33 22 29 3a 3d b9 0d  |rd_%,"add3"):=..|
000039f0  15 4a 1f e7 61 64 64 5f  28 33 29 61 64 64 5f 28  |.J..add_(3)add_(|
00003a00  33 29 3d a3 8b 61 64 64  5f 28 33 29 3d b9 0d 15  |3)=..add_(3)=...|
00003a10  54 06 3d b9 0d 15 5e 3f  dd a4 61 64 64 34 5f 3a  |T.=...^?..add4_:|
00003a20  e7 61 64 64 5f 28 34 29  80 a4 61 64 64 5f 3d 31  |.add_(4)..add_=1|
00003a30  20 61 64 64 5f 28 34 29  3d b9 3a f2 73 49 28 41  | add_(4)=.:.sI(A|
00003a40  64 64 43 61 72 64 5f 25  2c 22 61 64 64 34 22 29  |ddCard_%,"add4")|
00003a50  3a 3d b9 0d 15 68 1f e7  61 64 64 5f 28 34 29 61  |:=...h..add_(4)a|
00003a60  64 64 5f 28 34 29 3d a3  8b 61 64 64 5f 28 34 29  |dd_(4)=..add_(4)|
00003a70  3d b9 0d 15 72 06 3d b9  0d 15 7c 35 dd a4 41 64  |=...r.=...|5..Ad|
00003a80  64 6d 61 78 79 5f 3a f2  67 65 74 61 64 64 6d 61  |dmaxy_:.getaddma|
00003a90  78 3a f2 73 43 49 28 21  28 41 64 64 43 61 72 64  |x:.sCI(!(AddCard|
00003aa0  5f 25 2b 31 32 29 2c 32  30 29 3a 3d b9 0d 15 86  |_%+12),20):=....|
00003ab0  3e dd f2 67 65 74 61 64  64 6d 61 78 3a 41 64 64  |>..getaddmax:Add|
00003ac0  6d 61 78 79 5f 3d bb 28  24 21 41 64 64 6d 61 78  |maxy_=.($!Addmax|
00003ad0  79 5f 25 29 3a e7 41 64  64 6d 61 78 79 5f 3c 34  |y_%):.Addmaxy_<4|
00003ae0  20 41 64 64 6d 61 78 79  5f 3d 34 0d 15 9a 1e e7  | Addmaxy_=4.....|
00003af0  41 64 64 6d 61 78 79 5f  3e 35 30 30 20 41 64 64  |Addmaxy_>500 Add|
00003b00  6d 61 78 79 5f 3d 35 30  30 0d 15 a4 36 24 21 41  |maxy_=500...6$!A|
00003b10  64 64 6d 61 78 79 5f 25  3d c3 28 41 64 64 6d 61  |ddmaxy_%=.(Addma|
00003b20  78 79 5f 29 3a f2 72 49  28 41 64 64 43 61 72 64  |xy_):.rI(AddCard|
00003b30  5f 25 2c 22 41 64 64 6d  61 78 79 22 29 3a e1 0d  |_%,"Addmaxy"):..|
00003b40  15 ae 40 dd a4 41 64 64  6d 69 6e 79 5f 3a f2 67  |..@..Addminy_:.g|
00003b50  65 74 61 64 64 6d 61 78  3a f2 67 65 74 61 64 64  |etaddmax:.getadd|
00003b60  6d 69 6e 3a f2 73 43 49  28 21 28 41 64 64 43 61  |min:.sCI(!(AddCa|
00003b70  72 64 5f 25 2b 31 32 29  2c 32 30 29 3a 3d b9 0d  |rd_%+12),20):=..|
00003b80  15 b8 3e dd f2 67 65 74  61 64 64 6d 69 6e 3a 41  |..>..getaddmin:A|
00003b90  64 64 6d 69 6e 79 5f 3d  bb 28 24 21 41 64 64 6d  |ddminy_=.($!Addm|
00003ba0  69 6e 79 5f 25 29 3a e7  41 64 64 6d 69 6e 79 5f  |iny_%):.Addminy_|
00003bb0  3c 31 20 41 64 64 6d 69  6e 79 5f 3d 30 0d 15 cc  |<1 Addminy_=0...|
00003bc0  2c e7 41 64 64 6d 69 6e  79 5f 3e 41 64 64 6d 61  |,.Addminy_>Addma|
00003bd0  78 79 5f 2d 34 20 41 64  64 6d 69 6e 79 5f 3d 41  |xy_-4 Addminy_=A|
00003be0  64 64 6d 61 78 79 5f 2d  34 0d 15 d6 36 24 21 41  |ddmaxy_-4...6$!A|
00003bf0  64 64 6d 69 6e 79 5f 25  3d c3 28 41 64 64 6d 69  |ddminy_%=.(Addmi|
00003c00  6e 79 5f 29 3a f2 72 49  28 41 64 64 43 61 72 64  |ny_):.rI(AddCard|
00003c10  5f 25 2c 22 41 64 64 6d  69 6e 79 22 29 3a e1 0d  |_%,"Addminy"):..|
00003c20  15 fe 9e dd a4 41 64 64  63 47 6f 5f 3a f2 47 65  |.....AddcGo_:.Ge|
00003c30  74 54 69 74 6c 65 73 3a  64 75 6d 6d 79 5f 3d b3  |tTitles:dummy_=.|
00003c40  28 2d 91 29 3a f2 77 68  61 74 6c 69 6e 65 73 5f  |(-.):.whatlines_|
00003c50  3a f2 77 68 61 74 71 75  61 6c 3a f2 77 68 61 74  |:.whatqual:.what|
00003c60  65 71 75 61 6c 73 3a f2  63 61 6c 63 61 64 64 3a  |equals:.calcadd:|
00003c70  f2 75 73 49 28 41 64 64  43 61 72 64 5f 25 2c 22  |.usI(AddCard_%,"|
00003c80  41 64 64 63 47 6f 22 29  3a 6c 61 73 74 5f 3d 33  |AddcGo"):last_=3|
00003c90  3a 71 75 69 74 5f 3d a3  3a 43 6c 75 65 5f 24 3d  |:quit_=.:Clue_$=|
00003ca0  22 43 61 72 64 73 41 64  64 22 3a 73 74 61 72 74  |"CardsAdd":start|
00003cb0  65 64 5f 25 3d b9 3a 3d  a4 73 75 6d 73 0d 16 3a  |ed_%=.:=.sums..:|
00003cc0  dc dd f2 63 61 6c 63 61  64 64 3a c8 99 22 48 6f  |...calcadd:.."Ho|
00003cd0  75 72 67 6c 61 73 73 5f  4f 6e 22 3a f2 67 65 74  |urglass_On":.get|
00003ce0  61 64 64 6d 61 78 3a f2  67 65 74 61 64 64 6d 69  |addmax:.getaddmi|
00003cf0  6e 3a e3 74 72 5f 25 3d  31 b8 31 30 3a c8 99 22  |n:.tr_%=1.10:.."|
00003d00  48 6f 75 72 67 6c 61 73  73 5f 50 65 72 63 65 6e  |Hourglass_Percen|
00003d10  74 61 67 65 22 2c 74 72  5f 25 2f 31 30 2a 31 30  |tage",tr_%/10*10|
00003d20  30 3a f5 3a 66 6c 61 67  5f 3d 30 3a f5 3a 64 69  |0:.:flag_=0:.:di|
00003d30  66 5f 25 3d 41 64 64 6d  61 78 79 5f 2d 41 64 64  |f_%=Addmaxy_-Add|
00003d40  6d 69 6e 79 5f 3a 77 68  5f 3d b3 28 32 29 3a e7  |miny_:wh_=.(2):.|
00003d50  77 68 5f 3d 31 8c 64 64  5f 25 3d b3 28 64 69 66  |wh_=1.dd_%=.(dif|
00003d60  5f 25 29 3a 4e 61 5f 25  3d 41 64 64 6d 69 6e 79  |_%):Na_%=Addminy|
00003d70  5f 2b 64 64 5f 25 3a 64  64 5f 25 3d b3 28 64 69  |_+dd_%:dd_%=.(di|
00003d80  66 5f 25 29 2d 31 3a 4e  62 5f 25 3d 41 64 64 6d  |f_%)-1:Nb_%=Addm|
00003d90  69 6e 79 5f 2b 64 64 5f  25 0d 16 80 3b e7 77 68  |iny_+dd_%...;.wh|
00003da0  5f 3d 32 8c 64 64 5f 25  3d b3 28 64 69 66 5f 25  |_=2.dd_%=.(dif_%|
00003db0  29 2d 31 3a 4e 61 5f 25  3d 41 64 64 6d 69 6e 79  |)-1:Na_%=Addminy|
00003dc0  5f 2b 64 64 5f 25 3a 64  64 5f 25 3d b3 28 64 69  |_+dd_%:dd_%=.(di|
00003dd0  66 5f 25 29 0d 16 8a 3e  4e 62 5f 25 3d 41 64 64  |f_%)...>Nb_%=Add|
00003de0  6d 69 6e 79 5f 2b 64 64  5f 25 3a fd 4e 61 5f 25  |miny_+dd_%:.Na_%|
00003df0  3e 3d 41 64 64 6d 69 6e  79 5f 80 4e 62 5f 25 3e  |>=Addminy_.Nb_%>|
00003e00  3d 41 64 64 6d 69 6e 79  5f 3a e7 74 72 5f 25 3e  |=Addminy_:.tr_%>|
00003e10  31 8c 0d 16 b2 37 e3 65  5f 25 3d 31 b8 74 72 5f  |1....7.e_%=1.tr_|
00003e20  25 2d 31 3a e7 4e 61 5f  25 3d 4e 61 5f 25 28 65  |%-1:.Na_%=Na_%(e|
00003e30  5f 25 29 80 4e 62 5f 25  3d 4e 62 5f 25 28 65 5f  |_%).Nb_%=Nb_%(e_|
00003e40  25 29 66 6c 61 67 5f 3d  31 0d 16 bc 05 ed 0d 16  |%)flag_=1.......|
00003e50  c6 65 cd 3a fd 66 6c 61  67 5f 3d 30 3a 4e 61 5f  |.e.:.flag_=0:Na_|
00003e60  25 28 74 72 5f 25 29 3d  4e 61 5f 25 3a 4e 62 5f  |%(tr_%)=Na_%:Nb_|
00003e70  25 28 74 72 5f 25 29 3d  4e 62 5f 25 3a 4e 63 5f  |%(tr_%)=Nb_%:Nc_|
00003e80  25 28 74 72 5f 25 29 3d  4e 61 5f 25 28 74 72 5f  |%(tr_%)=Na_%(tr_|
00003e90  25 29 2b 4e 62 5f 25 28  74 72 5f 25 29 3a ed 3a  |%)+Nb_%(tr_%):.:|
00003ea0  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |.."Hourglass_Off|
00003eb0  22 3a e1 0d 17 20 c2 dd  f2 54 61 6b 65 43 61 72  |":... ...TakeCar|
00003ec0  64 73 3a 54 61 6b 65 43  61 72 64 5f 25 3d a4 66  |ds:TakeCard_%=.f|
00003ed0  57 53 28 22 54 61 6b 65  43 61 72 64 73 22 29 3a  |WS("TakeCards"):|
00003ee0  24 21 54 61 6b 65 6d 61  78 79 5f 25 3d c3 28 54  |$!Takemaxy_%=.(T|
00003ef0  61 6b 65 6d 61 78 79 5f  29 3a f2 72 49 28 54 61  |akemaxy_):.rI(Ta|
00003f00  6b 65 43 61 72 64 5f 25  2c 22 54 61 6b 65 6d 61  |keCard_%,"Takema|
00003f10  78 79 22 29 3a 24 21 54  61 6b 65 6d 69 6e 6e 79  |xy"):$!Takeminny|
00003f20  5f 25 3d c3 28 54 61 6b  65 6d 69 6e 6e 79 5f 29  |_%=.(Takeminny_)|
00003f30  3a f2 72 49 28 54 61 6b  65 43 61 72 64 5f 25 2c  |:.rI(TakeCard_%,|
00003f40  22 54 61 6b 65 6d 69 6e  6e 79 22 29 3a e7 4c 69  |"Takeminny"):.Li|
00003f50  6e 65 54 79 70 65 5f 28  31 29 f2 73 49 28 54 61  |neType_(1).sI(Ta|
00003f60  6b 65 43 61 72 64 5f 25  2c 22 4c 69 6e 65 54 79  |keCard_%,"LineTy|
00003f70  70 65 31 22 29 0d 17 48  2c e7 4c 69 6e 65 54 79  |pe1")..H,.LineTy|
00003f80  70 65 5f 28 32 29 f2 73  49 28 54 61 6b 65 43 61  |pe_(2).sI(TakeCa|
00003f90  72 64 5f 25 2c 22 4c 69  6e 65 54 79 70 65 32 22  |rd_%,"LineType2"|
00003fa0  29 0d 17 52 2c e7 4c 69  6e 65 54 79 70 65 5f 28  |)..R,.LineType_(|
00003fb0  33 29 f2 73 49 28 54 61  6b 65 43 61 72 64 5f 25  |3).sI(TakeCard_%|
00003fc0  2c 22 4c 69 6e 65 54 79  70 65 33 22 29 0d 17 5c  |,"LineType3")..\|
00003fd0  28 e7 45 71 45 71 75 61  6c 73 5f f2 73 49 28 54  |(.EqEquals_.sI(T|
00003fe0  61 6b 65 43 61 72 64 5f  25 2c 22 45 71 45 71 75  |akeCard_%,"EqEqu|
00003ff0  61 6c 73 22 29 0d 17 66  24 e7 45 71 53 69 67 6e  |als")..f$.EqSign|
00004000  5f f2 73 49 28 54 61 6b  65 43 61 72 64 5f 25 2c  |_.sI(TakeCard_%,|
00004010  22 45 71 53 69 67 6e 22  29 0d 17 70 22 e7 73 75  |"EqSign")..p".su|
00004020  62 5f 28 31 29 f2 73 49  28 54 61 6b 65 43 61 72  |b_(1).sI(TakeCar|
00004030  64 5f 25 2c 22 73 75 62  31 22 29 0d 17 7a 22 e7  |d_%,"sub1")..z".|
00004040  73 75 62 5f 28 32 29 f2  73 49 28 54 61 6b 65 43  |sub_(2).sI(TakeC|
00004050  61 72 64 5f 25 2c 22 73  75 62 32 22 29 0d 17 84  |ard_%,"sub2")...|
00004060  22 e7 73 75 62 5f 28 33  29 f2 73 49 28 54 61 6b  |".sub_(3).sI(Tak|
00004070  65 43 61 72 64 5f 25 2c  22 73 75 62 33 22 29 0d  |eCard_%,"sub3").|
00004080  17 8e 22 e7 73 75 62 5f  28 34 29 f2 73 49 28 54  |..".sub_(4).sI(T|
00004090  61 6b 65 43 61 72 64 5f  25 2c 22 73 75 62 34 22  |akeCard_%,"sub4"|
000040a0  29 0d 17 98 22 e7 73 75  62 5f 28 35 29 f2 73 49  |)...".sub_(5).sI|
000040b0  28 54 61 6b 65 43 61 72  64 5f 25 2c 22 73 75 62  |(TakeCard_%,"sub|
000040c0  35 22 29 0d 17 a2 22 e7  73 75 62 5f 28 36 29 f2  |5")...".sub_(6).|
000040d0  73 49 28 54 61 6b 65 43  61 72 64 5f 25 2c 22 73  |sI(TakeCard_%,"s|
000040e0  75 62 36 22 29 0d 17 ac  05 e1 0d 17 d4 28 dd a4  |ub6")........(..|
000040f0  73 75 62 5f 3a 63 5f 3d  30 3a e3 68 5f 3d 31 b8  |sub_:c_=0:.h_=1.|
00004100  36 3a e7 73 75 62 5f 28  68 5f 29 63 5f 3d 63 5f  |6:.sub_(h_)c_=c_|
00004110  2b 31 0d 17 de 09 ed 3a  3d 63 5f 0d 17 e8 40 dd  |+1.....:=c_...@.|
00004120  a4 73 75 62 31 5f 3a e7  73 75 62 5f 28 31 29 80  |.sub1_:.sub_(1).|
00004130  a4 73 75 62 5f 3d 31 20  73 75 62 5f 28 31 29 3d  |.sub_=1 sub_(1)=|
00004140  b9 3a f2 73 49 28 54 61  6b 65 43 61 72 64 5f 25  |.:.sI(TakeCard_%|
00004150  2c 22 73 75 62 31 22 29  3a 3d b9 0d 17 f2 1f e7  |,"sub1"):=......|
00004160  73 75 62 5f 28 31 29 73  75 62 5f 28 31 29 3d a3  |sub_(1)sub_(1)=.|
00004170  8b 73 75 62 5f 28 31 29  3d b9 0d 17 fc 06 3d b9  |.sub_(1)=.....=.|
00004180  0d 18 06 40 dd a4 73 75  62 32 5f 3a e7 73 75 62  |...@..sub2_:.sub|
00004190  5f 28 32 29 80 a4 73 75  62 5f 3d 31 20 73 75 62  |_(2)..sub_=1 sub|
000041a0  5f 28 32 29 3d b9 3a f2  73 49 28 54 61 6b 65 43  |_(2)=.:.sI(TakeC|
000041b0  61 72 64 5f 25 2c 22 73  75 62 32 22 29 3a 3d b9  |ard_%,"sub2"):=.|
000041c0  0d 18 10 21 e7 73 75 62  5f 28 32 29 3d b9 73 75  |...!.sub_(2)=.su|
000041d0  62 5f 28 32 29 3d a3 8b  73 75 62 5f 28 32 29 3d  |b_(2)=..sub_(2)=|
000041e0  b9 0d 18 1a 06 3d b9 0d  18 24 40 dd a4 73 75 62  |.....=...$@..sub|
000041f0  33 5f 3a e7 73 75 62 5f  28 33 29 80 a4 73 75 62  |3_:.sub_(3)..sub|
00004200  5f 3d 31 20 73 75 62 5f  28 33 29 3d b9 3a f2 73  |_=1 sub_(3)=.:.s|
00004210  49 28 54 61 6b 65 43 61  72 64 5f 25 2c 22 73 75  |I(TakeCard_%,"su|
00004220  62 33 22 29 3a 3d b9 0d  18 2e 21 e7 73 75 62 5f  |b3"):=....!.sub_|
00004230  28 33 29 3d b9 73 75 62  5f 28 33 29 3d a3 8b 73  |(3)=.sub_(3)=..s|
00004240  75 62 5f 28 33 29 3d b9  0d 18 38 06 3d b9 0d 18  |ub_(3)=...8.=...|
00004250  42 40 dd a4 73 75 62 34  5f 3a e7 73 75 62 5f 28  |B@..sub4_:.sub_(|
00004260  34 29 80 a4 73 75 62 5f  3d 31 20 73 75 62 5f 28  |4)..sub_=1 sub_(|
00004270  34 29 3d b9 3a f2 73 49  28 54 61 6b 65 43 61 72  |4)=.:.sI(TakeCar|
00004280  64 5f 25 2c 22 73 75 62  34 22 29 3a 3d b9 0d 18  |d_%,"sub4"):=...|
00004290  4c 21 e7 73 75 62 5f 28  34 29 3d b9 73 75 62 5f  |L!.sub_(4)=.sub_|
000042a0  28 34 29 3d a3 8b 73 75  62 5f 28 34 29 3d b9 0d  |(4)=..sub_(4)=..|
000042b0  18 56 06 3d b9 0d 18 60  40 dd a4 73 75 62 35 5f  |.V.=...`@..sub5_|
000042c0  3a e7 73 75 62 5f 28 35  29 80 a4 73 75 62 5f 3d  |:.sub_(5)..sub_=|
000042d0  31 20 73 75 62 5f 28 35  29 3d b9 3a f2 73 49 28  |1 sub_(5)=.:.sI(|
000042e0  54 61 6b 65 43 61 72 64  5f 25 2c 22 73 75 62 35  |TakeCard_%,"sub5|
000042f0  22 29 3a 3d b9 0d 18 6a  21 e7 73 75 62 5f 28 35  |"):=...j!.sub_(5|
00004300  29 3d b9 73 75 62 5f 28  35 29 3d a3 8b 73 75 62  |)=.sub_(5)=..sub|
00004310  5f 28 35 29 3d b9 0d 18  74 06 3d b9 0d 18 7e 40  |_(5)=...t.=...~@|
00004320  dd a4 73 75 62 36 5f 3a  e7 73 75 62 5f 28 36 29  |..sub6_:.sub_(6)|
00004330  80 a4 73 75 62 5f 3d 31  20 73 75 62 5f 28 36 29  |..sub_=1 sub_(6)|
00004340  3d b9 3a f2 73 49 28 54  61 6b 65 43 61 72 64 5f  |=.:.sI(TakeCard_|
00004350  25 2c 22 73 75 62 36 22  29 3a 3d b9 0d 18 88 1f  |%,"sub6"):=.....|
00004360  e7 73 75 62 5f 28 36 29  73 75 62 5f 28 36 29 3d  |.sub_(6)sub_(6)=|
00004370  a3 8b 73 75 62 5f 28 36  29 3d b9 0d 18 92 06 3d  |..sub_(6)=.....=|
00004380  b9 0d 18 a6 38 dd a4 54  61 6b 65 6d 61 78 79 5f  |....8..Takemaxy_|
00004390  3a f2 67 65 74 74 61 6b  65 6d 61 78 3a f2 73 43  |:.gettakemax:.sC|
000043a0  49 28 21 28 54 61 6b 65  43 61 72 64 5f 25 2b 31  |I(!(TakeCard_%+1|
000043b0  32 29 2c 31 39 29 3a 3d  b9 0d 18 b0 43 dd f2 67  |2),19):=....C..g|
000043c0  65 74 74 61 6b 65 6d 61  78 3a 54 61 6b 65 6d 61  |ettakemax:Takema|
000043d0  78 79 5f 3d bb 28 24 21  54 61 6b 65 6d 61 78 79  |xy_=.($!Takemaxy|
000043e0  5f 25 29 3a e7 54 61 6b  65 6d 61 78 79 5f 3c 34  |_%):.Takemaxy_<4|
000043f0  20 54 61 6b 65 6d 61 78  79 5f 3d 34 0d 18 ba 3a  | Takemaxy_=4...:|
00004400  24 21 54 61 6b 65 6d 61  78 79 5f 25 3d c3 28 54  |$!Takemaxy_%=.(T|
00004410  61 6b 65 6d 61 78 79 5f  29 3a f2 72 49 28 54 61  |akemaxy_):.rI(Ta|
00004420  6b 65 43 61 72 64 5f 25  2c 22 54 61 6b 65 6d 61  |keCard_%,"Takema|
00004430  78 79 22 29 3a e1 0d 18  d8 45 dd a4 54 61 6b 65  |xy"):....E..Take|
00004440  6d 69 6e 6e 79 5f 3a f2  67 65 74 74 61 6b 65 6d  |minny_:.gettakem|
00004450  61 78 3a f2 67 65 74 74  61 6b 65 6d 69 6e 3a f2  |ax:.gettakemin:.|
00004460  73 43 49 28 21 28 54 61  6b 65 43 61 72 64 5f 25  |sCI(!(TakeCard_%|
00004470  2b 31 32 29 2c 31 39 29  3a 3d b9 0d 18 ec 47 dd  |+12),19):=....G.|
00004480  f2 67 65 74 74 61 6b 65  6d 69 6e 3a 54 61 6b 65  |.gettakemin:Take|
00004490  6d 69 6e 6e 79 5f 3d bb  28 24 21 54 61 6b 65 6d  |minny_=.($!Takem|
000044a0  69 6e 6e 79 5f 25 29 3a  e7 54 61 6b 65 6d 69 6e  |inny_%):.Takemin|
000044b0  6e 79 5f 3c 30 20 54 61  6b 65 6d 69 6e 6e 79 5f  |ny_<0 Takeminny_|
000044c0  3d 30 0d 19 00 32 e7 54  61 6b 65 6d 69 6e 6e 79  |=0...2.Takeminny|
000044d0  5f 3e 54 61 6b 65 6d 61  78 79 5f 2d 34 20 54 61  |_>Takemaxy_-4 Ta|
000044e0  6b 65 6d 69 6e 6e 79 5f  3d 54 61 6b 65 6d 61 78  |keminny_=Takemax|
000044f0  79 5f 2d 34 0d 19 0a 3d  24 21 54 61 6b 65 6d 69  |y_-4...=$!Takemi|
00004500  6e 6e 79 5f 25 3d c3 28  54 61 6b 65 6d 69 6e 6e  |nny_%=.(Takeminn|
00004510  79 5f 29 3a f2 72 49 28  54 61 6b 65 43 61 72 64  |y_):.rI(TakeCard|
00004520  5f 25 2c 22 54 61 6b 65  6d 69 6e 6e 79 22 29 3a  |_%,"Takeminny"):|
00004530  e1 0d 19 3c a3 dd a4 54  61 6b 65 63 47 6f 5f 3a  |...<...TakecGo_:|
00004540  f2 47 65 74 54 69 74 6c  65 73 3a 64 75 6d 6d 79  |.GetTitles:dummy|
00004550  5f 3d b3 28 2d 91 29 3a  f2 77 68 61 74 6c 69 6e  |_=.(-.):.whatlin|
00004560  65 73 5f 3a f2 77 68 61  74 71 75 61 6c 3a f2 77  |es_:.whatqual:.w|
00004570  68 61 74 65 71 75 61 6c  73 3a f2 63 61 6c 63 74  |hatequals:.calct|
00004580  61 6b 65 3a f2 75 73 49  28 54 61 6b 65 43 61 72  |ake:.usI(TakeCar|
00004590  64 5f 25 2c 22 54 61 6b  65 63 47 6f 22 29 3a 6c  |d_%,"TakecGo"):l|
000045a0  61 73 74 5f 3d 33 3a 71  75 69 74 5f 3d a3 3a 43  |ast_=3:quit_=.:C|
000045b0  6c 75 65 5f 24 3d 22 43  61 72 64 73 54 61 6b 65  |lue_$="CardsTake|
000045c0  22 3a 73 74 61 72 74 65  64 5f 25 3d b9 3a 3d a4  |":started_%=.:=.|
000045d0  73 75 6d 73 0d 19 78 e4  dd f2 63 61 6c 63 74 61  |sums..x...calcta|
000045e0  6b 65 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |ke:.."Hourglass_|
000045f0  4f 6e 22 3a f2 67 65 74  74 61 6b 65 6d 61 78 3a  |On":.gettakemax:|
00004600  f2 67 65 74 74 61 6b 65  6d 69 6e 3a 6d 61 6e 79  |.gettakemin:many|
00004610  5f 3d 31 30 3a e3 74 72  5f 25 3d 31 b8 31 30 3a  |_=10:.tr_%=1.10:|
00004620  f5 3a 66 6c 61 67 5f 3d  30 3a c8 99 22 48 6f 75  |.:flag_=0:.."Hou|
00004630  72 67 6c 61 73 73 5f 50  65 72 63 65 6e 74 61 67  |rglass_Percentag|
00004640  65 22 2c 74 72 5f 25 2f  31 30 2a 31 30 30 3a f5  |e",tr_%/10*100:.|
00004650  3a f5 3a 4e 61 5f 25 3d  b3 28 54 61 6b 65 6d 61  |:.:Na_%=.(Takema|
00004660  78 79 5f 29 3a fd 4e 61  5f 25 3e 3d 54 61 6b 65  |xy_):.Na_%>=Take|
00004670  6d 69 6e 6e 79 5f 3a f5  3a 4e 62 5f 25 3d b3 28  |minny_:.:Nb_%=.(|
00004680  54 61 6b 65 6d 61 78 79  5f 2b 31 29 3a 4e 62 5f  |Takemaxy_+1):Nb_|
00004690  25 3d 4e 62 5f 25 2d 31  3a fd 4e 62 5f 25 3e 3d  |%=Nb_%-1:.Nb_%>=|
000046a0  54 61 6b 65 6d 69 6e 6e  79 5f 3a fd 4e 61 5f 25  |Takeminny_:.Na_%|
000046b0  2d 4e 62 5f 25 3e 2d 31  0d 19 c8 0c e7 74 72 5f  |-Nb_%>-1.....tr_|
000046c0  25 3e 31 8c 0d 19 d2 37  e3 65 5f 25 3d 31 b8 74  |%>1....7.e_%=1.t|
000046d0  72 5f 25 2d 31 3a e7 4e  61 5f 25 3d 4e 61 5f 25  |r_%-1:.Na_%=Na_%|
000046e0  28 65 5f 25 29 80 4e 62  5f 25 3d 4e 62 5f 25 28  |(e_%).Nb_%=Nb_%(|
000046f0  65 5f 25 29 66 6c 61 67  5f 3d 31 0d 19 dc 05 ed  |e_%)flag_=1.....|
00004700  0d 19 e6 65 cd 3a fd 66  6c 61 67 5f 3d 30 3a 4e  |...e.:.flag_=0:N|
00004710  61 5f 25 28 74 72 5f 25  29 3d 4e 61 5f 25 3a 4e  |a_%(tr_%)=Na_%:N|
00004720  62 5f 25 28 74 72 5f 25  29 3d 4e 62 5f 25 3a 4e  |b_%(tr_%)=Nb_%:N|
00004730  63 5f 25 28 74 72 5f 25  29 3d 4e 61 5f 25 28 74  |c_%(tr_%)=Na_%(t|
00004740  72 5f 25 29 2d 4e 62 5f  25 28 74 72 5f 25 29 3a  |r_%)-Nb_%(tr_%):|
00004750  ed 3a c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |.:.."Hourglass_O|
00004760  66 66 22 3a e1 0d 1a 4a  4f dd f2 54 69 6d 65 73  |ff":...JO..Times|
00004770  43 61 72 64 73 3a 54 69  6d 65 73 43 61 72 64 5f  |Cards:TimesCard_|
00004780  25 3d a4 66 57 53 28 22  54 69 6d 65 73 43 61 72  |%=.fWS("TimesCar|
00004790  64 73 22 29 3a e7 74 69  6d 5f 28 31 29 f2 73 49  |ds"):.tim_(1).sI|
000047a0  28 54 69 6d 65 73 43 61  72 64 5f 25 2c 22 74 69  |(TimesCard_%,"ti|
000047b0  6d 31 22 29 0d 1a 5e 23  e7 74 69 6d 5f 28 32 29  |m1")..^#.tim_(2)|
000047c0  f2 73 49 28 54 69 6d 65  73 43 61 72 64 5f 25 2c  |.sI(TimesCard_%,|
000047d0  22 74 69 6d 32 22 29 0d  1a 68 23 e7 74 69 6d 5f  |"tim2")..h#.tim_|
000047e0  28 33 29 f2 73 49 28 54  69 6d 65 73 43 61 72 64  |(3).sI(TimesCard|
000047f0  5f 25 2c 22 74 69 6d 33  22 29 0d 1a 72 23 e7 74  |_%,"tim3")..r#.t|
00004800  69 6d 5f 28 34 29 f2 73  49 28 54 69 6d 65 73 43  |im_(4).sI(TimesC|
00004810  61 72 64 5f 25 2c 22 74  69 6d 34 22 29 0d 1a 7c  |ard_%,"tim4")..||
00004820  23 e7 74 69 6d 5f 28 35  29 f2 73 49 28 54 69 6d  |#.tim_(5).sI(Tim|
00004830  65 73 43 61 72 64 5f 25  2c 22 74 69 6d 35 22 29  |esCard_%,"tim5")|
00004840  0d 1a 86 23 e7 74 69 6d  5f 28 36 29 f2 73 49 28  |...#.tim_(6).sI(|
00004850  54 69 6d 65 73 43 61 72  64 5f 25 2c 22 74 69 6d  |TimesCard_%,"tim|
00004860  36 22 29 0d 1a 90 23 e7  74 69 6d 5f 28 37 29 f2  |6")...#.tim_(7).|
00004870  73 49 28 54 69 6d 65 73  43 61 72 64 5f 25 2c 22  |sI(TimesCard_%,"|
00004880  74 69 6d 37 22 29 0d 1a  9a 23 e7 74 69 6d 5f 28  |tim7")...#.tim_(|
00004890  38 29 f2 73 49 28 54 69  6d 65 73 43 61 72 64 5f  |8).sI(TimesCard_|
000048a0  25 2c 22 74 69 6d 38 22  29 0d 1a a4 23 e7 74 69  |%,"tim8")...#.ti|
000048b0  6d 5f 28 39 29 f2 73 49  28 54 69 6d 65 73 43 61  |m_(9).sI(TimesCa|
000048c0  72 64 5f 25 2c 22 74 69  6d 39 22 29 0d 1a ae 2d  |rd_%,"tim9")...-|
000048d0  e7 4c 69 6e 65 54 79 70  65 5f 28 31 29 f2 73 49  |.LineType_(1).sI|
000048e0  28 54 69 6d 65 73 43 61  72 64 5f 25 2c 22 4c 69  |(TimesCard_%,"Li|
000048f0  6e 65 54 79 70 65 31 22  29 0d 1a b8 2d e7 4c 69  |neType1")...-.Li|
00004900  6e 65 54 79 70 65 5f 28  32 29 f2 73 49 28 54 69  |neType_(2).sI(Ti|
00004910  6d 65 73 43 61 72 64 5f  25 2c 22 4c 69 6e 65 54  |mesCard_%,"LineT|
00004920  79 70 65 32 22 29 0d 1a  c2 2d e7 4c 69 6e 65 54  |ype2")...-.LineT|
00004930  79 70 65 5f 28 33 29 f2  73 49 28 54 69 6d 65 73  |ype_(3).sI(Times|
00004940  43 61 72 64 5f 25 2c 22  4c 69 6e 65 54 79 70 65  |Card_%,"LineType|
00004950  33 22 29 0d 1a cc 25 e7  45 71 53 69 67 6e 5f f2  |3")...%.EqSign_.|
00004960  73 49 28 54 69 6d 65 73  43 61 72 64 5f 25 2c 22  |sI(TimesCard_%,"|
00004970  45 71 53 69 67 6e 22 29  0d 1a d6 29 e7 45 71 45  |EqSign")...).EqE|
00004980  71 75 61 6c 73 5f f2 73  49 28 54 69 6d 65 73 43  |quals_.sI(TimesC|
00004990  61 72 64 5f 25 2c 22 45  71 45 71 75 61 6c 73 22  |ard_%,"EqEquals"|
000049a0  29 0d 1a e0 27 e7 74 69  6d 65 73 5f 28 31 29 f2  |)...'.times_(1).|
000049b0  73 49 28 54 69 6d 65 73  43 61 72 64 5f 25 2c 22  |sI(TimesCard_%,"|
000049c0  74 69 6d 65 73 31 22 29  0d 1a ea 27 e7 74 69 6d  |times1")...'.tim|
000049d0  65 73 5f 28 32 29 f2 73  49 28 54 69 6d 65 73 43  |es_(2).sI(TimesC|
000049e0  61 72 64 5f 25 2c 22 74  69 6d 65 73 32 22 29 0d  |ard_%,"times2").|
000049f0  1a f4 27 e7 74 69 6d 65  73 5f 28 33 29 f2 73 49  |..'.times_(3).sI|
00004a00  28 54 69 6d 65 73 43 61  72 64 5f 25 2c 22 74 69  |(TimesCard_%,"ti|
00004a10  6d 65 73 33 22 29 0d 1a  fe 05 e1 0d 1b 26 28 dd  |mes3").......&(.|
00004a20  a4 74 69 6d 5f 3a 63 5f  3d 30 3a e3 68 5f 3d 31  |.tim_:c_=0:.h_=1|
00004a30  b8 39 3a e7 74 69 6d 5f  28 68 5f 29 63 5f 3d 63  |.9:.tim_(h_)c_=c|
00004a40  5f 2b 31 0d 1b 30 09 ed  3a 3d 63 5f 0d 1b 3a 41  |_+1..0..:=c_..:A|
00004a50  dd a4 74 69 6d 31 5f 3a  e7 74 69 6d 5f 28 31 29  |..tim1_:.tim_(1)|
00004a60  80 a4 74 69 6d 5f 3d 31  20 74 69 6d 5f 28 31 29  |..tim_=1 tim_(1)|
00004a70  3d b9 3a f2 73 49 28 54  69 6d 65 73 43 61 72 64  |=.:.sI(TimesCard|
00004a80  5f 25 2c 22 74 69 6d 31  22 29 3a 3d b9 0d 1b 44  |_%,"tim1"):=...D|
00004a90  1f e7 74 69 6d 5f 28 31  29 74 69 6d 5f 28 31 29  |..tim_(1)tim_(1)|
00004aa0  3d a3 8b 74 69 6d 5f 28  31 29 3d b9 0d 1b 4e 06  |=..tim_(1)=...N.|
00004ab0  3d b9 0d 1b 58 41 dd a4  74 69 6d 32 5f 3a e7 74  |=...XA..tim2_:.t|
00004ac0  69 6d 5f 28 32 29 80 a4  74 69 6d 5f 3d 31 20 74  |im_(2)..tim_=1 t|
00004ad0  69 6d 5f 28 32 29 3d b9  3a f2 73 49 28 54 69 6d  |im_(2)=.:.sI(Tim|
00004ae0  65 73 43 61 72 64 5f 25  2c 22 74 69 6d 32 22 29  |esCard_%,"tim2")|
00004af0  3a 3d b9 0d 1b 62 1f e7  74 69 6d 5f 28 32 29 74  |:=...b..tim_(2)t|
00004b00  69 6d 5f 28 32 29 3d a3  8b 74 69 6d 5f 28 32 29  |im_(2)=..tim_(2)|
00004b10  3d b9 0d 1b 6c 06 3d b9  0d 1b 76 41 dd a4 74 69  |=...l.=...vA..ti|
00004b20  6d 33 5f 3a e7 74 69 6d  5f 28 33 29 80 a4 74 69  |m3_:.tim_(3)..ti|
00004b30  6d 5f 3d 31 20 74 69 6d  5f 28 33 29 3d b9 3a f2  |m_=1 tim_(3)=.:.|
00004b40  73 49 28 54 69 6d 65 73  43 61 72 64 5f 25 2c 22  |sI(TimesCard_%,"|
00004b50  74 69 6d 33 22 29 3a 3d  b9 0d 1b 80 1f e7 74 69  |tim3"):=......ti|
00004b60  6d 5f 28 33 29 74 69 6d  5f 28 33 29 3d a3 8b 74  |m_(3)tim_(3)=..t|
00004b70  69 6d 5f 28 33 29 3d b9  0d 1b 8a 06 3d b9 0d 1b  |im_(3)=.....=...|
00004b80  94 41 dd a4 74 69 6d 34  5f 3a e7 74 69 6d 5f 28  |.A..tim4_:.tim_(|
00004b90  34 29 80 a4 74 69 6d 5f  3d 31 20 74 69 6d 5f 28  |4)..tim_=1 tim_(|
00004ba0  34 29 3d b9 3a f2 73 49  28 54 69 6d 65 73 43 61  |4)=.:.sI(TimesCa|
00004bb0  72 64 5f 25 2c 22 74 69  6d 34 22 29 3a 3d b9 0d  |rd_%,"tim4"):=..|
00004bc0  1b 9e 1f e7 74 69 6d 5f  28 34 29 74 69 6d 5f 28  |....tim_(4)tim_(|
00004bd0  34 29 3d a3 8b 74 69 6d  5f 28 34 29 3d b9 0d 1b  |4)=..tim_(4)=...|
00004be0  a8 06 3d b9 0d 1b b2 41  dd a4 74 69 6d 35 5f 3a  |..=....A..tim5_:|
00004bf0  e7 74 69 6d 5f 28 35 29  80 a4 74 69 6d 5f 3d 31  |.tim_(5)..tim_=1|
00004c00  20 74 69 6d 5f 28 35 29  3d b9 3a f2 73 49 28 54  | tim_(5)=.:.sI(T|
00004c10  69 6d 65 73 43 61 72 64  5f 25 2c 22 74 69 6d 35  |imesCard_%,"tim5|
00004c20  22 29 3a 3d b9 0d 1b bc  1f e7 74 69 6d 5f 28 35  |"):=......tim_(5|
00004c30  29 74 69 6d 5f 28 35 29  3d a3 8b 74 69 6d 5f 28  |)tim_(5)=..tim_(|
00004c40  35 29 3d b9 0d 1b c6 06  3d b9 0d 1b d0 41 dd a4  |5)=.....=....A..|
00004c50  74 69 6d 36 5f 3a e7 74  69 6d 5f 28 36 29 80 a4  |tim6_:.tim_(6)..|
00004c60  74 69 6d 5f 3d 31 20 74  69 6d 5f 28 36 29 3d b9  |tim_=1 tim_(6)=.|
00004c70  3a f2 73 49 28 54 69 6d  65 73 43 61 72 64 5f 25  |:.sI(TimesCard_%|
00004c80  2c 22 74 69 6d 36 22 29  3a 3d b9 0d 1b da 1f e7  |,"tim6"):=......|
00004c90  74 69 6d 5f 28 36 29 74  69 6d 5f 28 36 29 3d a3  |tim_(6)tim_(6)=.|
00004ca0  8b 74 69 6d 5f 28 36 29  3d b9 0d 1b e4 06 3d b9  |.tim_(6)=.....=.|
00004cb0  0d 1b ee 41 dd a4 74 69  6d 37 5f 3a e7 74 69 6d  |...A..tim7_:.tim|
00004cc0  5f 28 37 29 80 a4 74 69  6d 5f 3d 31 20 74 69 6d  |_(7)..tim_=1 tim|
00004cd0  5f 28 37 29 3d b9 3a f2  73 49 28 54 69 6d 65 73  |_(7)=.:.sI(Times|
00004ce0  43 61 72 64 5f 25 2c 22  74 69 6d 37 22 29 3a 3d  |Card_%,"tim7"):=|
00004cf0  b9 0d 1b f8 1f e7 74 69  6d 5f 28 37 29 74 69 6d  |......tim_(7)tim|
00004d00  5f 28 37 29 3d a3 8b 74  69 6d 5f 28 37 29 3d b9  |_(7)=..tim_(7)=.|
00004d10  0d 1c 02 06 3d b9 0d 1c  0c 41 dd a4 74 69 6d 38  |....=....A..tim8|
00004d20  5f 3a e7 74 69 6d 5f 28  38 29 80 a4 74 69 6d 5f  |_:.tim_(8)..tim_|
00004d30  3d 31 20 74 69 6d 5f 28  38 29 3d b9 3a f2 73 49  |=1 tim_(8)=.:.sI|
00004d40  28 54 69 6d 65 73 43 61  72 64 5f 25 2c 22 74 69  |(TimesCard_%,"ti|
00004d50  6d 38 22 29 3a 3d b9 0d  1c 16 1f e7 74 69 6d 5f  |m8"):=......tim_|
00004d60  28 38 29 74 69 6d 5f 28  38 29 3d a3 8b 74 69 6d  |(8)tim_(8)=..tim|
00004d70  5f 28 38 29 3d b9 0d 1c  20 06 3d b9 0d 1c 2a 41  |_(8)=... .=...*A|
00004d80  dd a4 74 69 6d 39 5f 3a  e7 74 69 6d 5f 28 39 29  |..tim9_:.tim_(9)|
00004d90  80 a4 74 69 6d 5f 3d 31  20 74 69 6d 5f 28 39 29  |..tim_=1 tim_(9)|
00004da0  3d b9 3a f2 73 49 28 54  69 6d 65 73 43 61 72 64  |=.:.sI(TimesCard|
00004db0  5f 25 2c 22 74 69 6d 39  22 29 3a 3d b9 0d 1c 34  |_%,"tim9"):=...4|
00004dc0  1f e7 74 69 6d 5f 28 39  29 74 69 6d 5f 28 39 29  |..tim_(9)tim_(9)|
00004dd0  3d a3 8b 74 69 6d 5f 28  39 29 3d b9 0d 1c 3e 06  |=..tim_(9)=...>.|
00004de0  3d b9 0d 1c 52 56 dd a4  74 69 6d 65 73 31 5f 3a  |=...RV..times1_:|
00004df0  e7 74 69 6d 65 73 5f 28  31 29 80 74 69 6d 65 73  |.times_(1).times|
00004e00  5f 28 32 29 2b 74 69 6d  65 73 5f 28 33 29 3d a3  |_(2)+times_(3)=.|
00004e10  74 69 6d 65 73 5f 28 31  29 3d b9 3a f2 73 49 28  |times_(1)=.:.sI(|
00004e20  54 69 6d 65 73 43 61 72  64 5f 25 2c 22 74 69 6d  |TimesCard_%,"tim|
00004e30  65 73 31 22 29 3a 3d b9  0d 1c 5c 25 e7 74 69 6d  |es1"):=...\%.tim|
00004e40  65 73 5f 28 31 29 74 69  6d 65 73 5f 28 31 29 3d  |es_(1)times_(1)=|
00004e50  a3 8b 74 69 6d 65 73 5f  28 31 29 3d b9 0d 1c 66  |..times_(1)=...f|
00004e60  06 3d b9 0d 1c 70 56 dd  a4 74 69 6d 65 73 32 5f  |.=...pV..times2_|
00004e70  3a e7 74 69 6d 65 73 5f  28 32 29 80 74 69 6d 65  |:.times_(2).time|
00004e80  73 5f 28 31 29 2b 74 69  6d 65 73 5f 28 33 29 3d  |s_(1)+times_(3)=|
00004e90  a3 74 69 6d 65 73 5f 28  32 29 3d b9 3a f2 73 49  |.times_(2)=.:.sI|
00004ea0  28 54 69 6d 65 73 43 61  72 64 5f 25 2c 22 74 69  |(TimesCard_%,"ti|
00004eb0  6d 65 73 32 22 29 3a 3d  b9 0d 1c 7a 27 e7 74 69  |mes2"):=...z'.ti|
00004ec0  6d 65 73 5f 28 32 29 3d  b9 74 69 6d 65 73 5f 28  |mes_(2)=.times_(|
00004ed0  32 29 3d a3 8b 74 69 6d  65 73 5f 28 32 29 3d b9  |2)=..times_(2)=.|
00004ee0  0d 1c 84 06 3d b9 0d 1c  8e 56 dd a4 74 69 6d 65  |....=....V..time|
00004ef0  73 33 5f 3a e7 74 69 6d  65 73 5f 28 33 29 80 74  |s3_:.times_(3).t|
00004f00  69 6d 65 73 5f 28 31 29  2b 74 69 6d 65 73 5f 28  |imes_(1)+times_(|
00004f10  32 29 3d a3 74 69 6d 65  73 5f 28 33 29 3d b9 3a  |2)=.times_(3)=.:|
00004f20  f2 73 49 28 54 69 6d 65  73 43 61 72 64 5f 25 2c  |.sI(TimesCard_%,|
00004f30  22 74 69 6d 65 73 33 22  29 3a 3d b9 0d 1c 98 27  |"times3"):=....'|
00004f40  e7 74 69 6d 65 73 5f 28  33 29 3d b9 74 69 6d 65  |.times_(3)=.time|
00004f50  73 5f 28 33 29 3d a3 8b  74 69 6d 65 73 5f 28 33  |s_(3)=..times_(3|
00004f60  29 3d b9 0d 1c a2 06 3d  b9 0d 1c ca b3 dd a4 54  |)=.....=.......T|
00004f70  69 6d 65 73 63 47 6f 5f  3a f2 47 65 74 54 69 74  |imescGo_:.GetTit|
00004f80  6c 65 73 3a 64 75 6d 6d  79 5f 3d b3 28 2d 91 29  |les:dummy_=.(-.)|
00004f90  3a f2 77 68 61 74 6c 69  6e 65 73 5f 3a f2 77 68  |:.whatlines_:.wh|
00004fa0  61 74 71 75 61 6c 3a f2  77 68 61 74 65 71 75 61  |atqual:.whatequa|
00004fb0  6c 73 3a f2 77 68 61 74  74 69 6d 65 73 3a f2 63  |ls:.whattimes:.c|
00004fc0  61 6c 63 74 69 6d 65 73  3a 6c 61 73 74 5f 3d 33  |alctimes:last_=3|
00004fd0  3a 71 75 69 74 5f 3d a3  3a 43 6c 75 65 5f 24 3d  |:quit_=.:Clue_$=|
00004fe0  22 43 61 72 64 73 54 69  6d 65 73 22 3a 73 74 61  |"CardsTimes":sta|
00004ff0  72 74 65 64 5f 25 3d b9  3a f2 75 73 49 28 54 69  |rted_%=.:.usI(Ti|
00005000  6d 65 73 43 61 72 64 5f  25 2c 22 54 69 6d 65 73  |mesCard_%,"Times|
00005010  63 47 6f 22 29 3a 3d a4  73 75 6d 73 0d 1d 10 5c  |cGo"):=.sums...\|
00005020  dd f2 77 68 61 74 74 69  6d 65 73 3a c8 99 22 48  |..whattimes:.."H|
00005030  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 3a 67 6f 74  |ourglass_On":got|
00005040  5f 25 3d 30 3a e3 72 5f  25 3d 31 b8 39 3a e7 74  |_%=0:.r_%=1.9:.t|
00005050  69 6d 5f 28 72 5f 25 29  3d b9 8c 67 6f 74 5f 25  |im_(r_%)=..got_%|
00005060  3d 67 6f 74 5f 25 2b 31  3a 67 63 5f 25 28 67 6f  |=got_%+1:gc_%(go|
00005070  74 5f 25 29 3d 72 5f 25  0d 1d 24 2b ed 3a e7 67  |t_%)=r_%..$+.:.g|
00005080  6f 74 5f 25 3d 31 f2 6f  6e 65 74 69 6d 65 73 3a  |ot_%=1.onetimes:|
00005090  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |.."Hourglass_Off|
000050a0  22 3a e1 0d 1d 38 5b e7  67 6f 74 5f 25 3e 34 f2  |":...8[.got_%>4.|
000050b0  74 69 6d 65 73 28 67 6f  74 5f 25 2c 31 30 29 3a  |times(got_%,10):|
000050c0  e3 72 5f 3d 31 b8 31 30  3a 4e 62 5f 25 28 72 5f  |.r_=1.10:Nb_%(r_|
000050d0  29 3d bb 28 74 69 6d 5f  24 28 66 69 6e 64 65 72  |)=.(tim_$(finder|
000050e0  5f 25 28 72 5f 29 29 29  3a ed 3a c8 99 22 48 6f  |_%(r_))):.:.."Ho|
000050f0  75 72 67 6c 61 73 73 5f  4f 66 66 22 3a e1 0d 1d  |urglass_Off":...|
00005100  42 67 6e 65 65 64 65 64  5f 25 3d 31 30 81 67 6f  |Bgneeded_%=10.go|
00005110  74 5f 25 3a e3 72 5f 3d  31 b8 31 30 3a 67 63 5f  |t_%:.r_=1.10:gc_|
00005120  25 28 72 5f 29 3d 30 3a  ed 3a 67 6f 74 5f 25 3d  |%(r_)=0:.:got_%=|
00005130  30 3a e3 72 5f 25 3d 31  b8 39 3a e7 74 69 6d 5f  |0:.r_%=1.9:.tim_|
00005140  28 72 5f 25 29 3d b9 8c  67 6f 74 5f 25 3d 67 6f  |(r_%)=..got_%=go|
00005150  74 5f 25 2b 31 3a 67 63  5f 25 28 67 6f 74 5f 25  |t_%+1:gc_%(got_%|
00005160  29 3d 72 5f 25 0d 1d 60  9c ed 3a f5 3a 66 6c 61  |)=r_%..`..:.:fla|
00005170  67 5f 3d b9 3a e3 72 5f  3d 31 b8 31 30 3a 66 69  |g_=.:.r_=1.10:fi|
00005180  6e 64 65 72 5f 25 28 72  5f 29 3d 30 3a ed 3a e3  |nder_%(r_)=0:.:.|
00005190  72 5f 3d 31 b8 31 30 3a  c8 99 22 48 6f 75 72 67  |r_=1.10:.."Hourg|
000051a0  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
000051b0  2c 72 5f 2f 31 30 2a 31  30 30 3a f5 3a 66 6c 69  |,r_/10*100:.:fli|
000051c0  67 5f 3d b9 3a 72 61 6e  5f 25 3d b3 28 67 6f 74  |g_=.:ran_%=.(got|
000051d0  5f 25 29 3a e7 72 5f 3e  31 80 bb 28 74 69 6d 5f  |_%):.r_>1..(tim_|
000051e0  24 28 67 63 5f 25 28 72  61 6e 5f 25 29 29 29 3d  |$(gc_%(ran_%)))=|
000051f0  4e 62 5f 25 28 72 5f 2d  31 29 66 6c 69 67 5f 3d  |Nb_%(r_-1)flig_=|
00005200  a3 0d 1d b0 7a fd 66 6c  69 67 5f 3d b9 3a 4e 62  |....z.flig_=.:Nb|
00005210  5f 25 28 72 5f 29 3d bb  28 74 69 6d 5f 24 28 67  |_%(r_)=.(tim_$(g|
00005220  63 5f 25 28 72 61 6e 5f  25 29 29 29 3a 66 69 6e  |c_%(ran_%))):fin|
00005230  64 65 72 5f 25 28 72 61  6e 5f 25 29 3d 66 69 6e  |der_%(ran_%)=fin|
00005240  64 65 72 5f 25 28 72 61  6e 5f 25 29 2b 31 3a ed  |der_%(ran_%)+1:.|
00005250  3a e3 74 5f 3d 31 b8 67  6f 74 5f 25 3a e7 66 69  |:.t_=1.got_%:.fi|
00005260  6e 64 65 72 5f 25 28 74  5f 29 3c 6e 65 65 64 65  |nder_%(t_)<neede|
00005270  64 5f 25 20 66 6c 61 67  5f 3d a3 0d 1d ce 22 ed  |d_% flag_=....".|
00005280  3a fd 66 6c 61 67 5f 3d  b9 3a c8 99 22 48 6f 75  |:.flag_=.:.."Hou|
00005290  72 67 6c 61 73 73 5f 4f  66 66 22 3a e1 0d 1d e2  |rglass_Off":....|
000052a0  4a dd f2 6f 6e 65 74 69  6d 65 73 3a e3 72 5f 25  |J..onetimes:.r_%|
000052b0  3d 31 b8 39 3a e7 74 69  6d 5f 28 72 5f 25 29 3d  |=1.9:.tim_(r_%)=|
000052c0  b9 8c e3 74 72 5f 25 3d  31 b8 31 30 3a 4e 62 5f  |...tr_%=1.10:Nb_|
000052d0  25 28 74 72 5f 25 29 3d  bb 28 74 69 6d 5f 24 28  |%(tr_%)=.(tim_$(|
000052e0  72 5f 25 29 29 3a ed 0d  1e 00 07 ed 3a e1 0d 1e  |r_%)):......:...|
000052f0  14 7d dd f2 74 69 6d 65  73 28 67 69 74 5f 25 2c  |.}..times(git_%,|
00005300  74 6f 70 5f 25 29 3a e3  72 5f 3d 31 b8 74 6f 70  |top_%):.r_=1.top|
00005310  5f 25 3a 66 69 6e 64 65  72 5f 25 28 72 5f 29 3d  |_%:finder_%(r_)=|
00005320  30 3a ed 3a e3 68 5f 3d  31 b8 67 69 74 5f 25 3a  |0:.:.h_=1.git_%:|
00005330  f5 3a 74 66 5f 3d b9 3a  68 5f 25 3d 67 63 5f 25  |.:tf_=.:h_%=gc_%|
00005340  28 b3 28 67 69 74 5f 25  29 29 3a e3 6a 5f 3d 31  |(.(git_%)):.j_=1|
00005350  b8 68 5f 3a e7 66 69 6e  64 65 72 5f 25 28 6a 5f  |.h_:.finder_%(j_|
00005360  29 3d 68 5f 25 20 74 66  5f 3d a3 0d 1e 5a 71 ed  |)=h_% tf_=...Zq.|
00005370  3a fd 74 66 5f 3d b9 3a  66 69 6e 64 65 72 5f 25  |:.tf_=.:finder_%|
00005380  28 68 5f 29 3d 68 5f 25  3a ed 3a 6b 5f 3d 67 69  |(h_)=h_%:.:k_=gi|
00005390  74 5f 25 2b 31 3a e3 68  5f 3d 6b 5f b8 74 6f 70  |t_%+1:.h_=k_.top|
000053a0  5f 25 3a f5 3a 74 66 5f  3d b9 3a f5 3a 68 5f 25  |_%:.:tf_=.:.:h_%|
000053b0  3d 67 63 5f 25 28 b3 28  67 69 74 5f 25 29 29 3a  |=gc_%(.(git_%)):|
000053c0  fd 68 5f 25 3c 3e 66 69  6e 64 65 72 5f 25 28 68  |.h_%<>finder_%(h|
000053d0  5f 2d 31 29 3a e7 68 5f  3e 6b 5f 8c 0d 1e b4 25  |_-1):.h_>k_....%|
000053e0  e3 6a 5f 3d 6b 5f b8 68  5f 3a e7 66 69 6e 64 65  |.j_=k_.h_:.finde|
000053f0  72 5f 25 28 6a 5f 29 3d  68 5f 25 20 74 66 5f 3d  |r_%(j_)=h_% tf_=|
00005400  a3 0d 1e c8 05 ed 0d 1e  d2 21 cd 3a fd 74 66 5f  |.........!.:.tf_|
00005410  3d b9 3a 66 69 6e 64 65  72 5f 25 28 68 5f 29 3d  |=.:finder_%(h_)=|
00005420  68 5f 25 3a ed 3a e1 0d  1f 0e 7e dd f2 63 61 6c  |h_%:.:....~..cal|
00005430  63 74 69 6d 65 73 3a c8  99 22 48 6f 75 72 67 6c  |ctimes:.."Hourgl|
00005440  61 73 73 5f 4f 6e 22 3a  e3 74 72 5f 25 3d 31 b8  |ass_On":.tr_%=1.|
00005450  31 30 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |10:.."Hourglass_|
00005460  50 65 72 63 65 6e 74 61  67 65 22 2c 74 72 5f 25  |Percentage",tr_%|
00005470  2f 31 30 2a 31 30 30 3a  f5 3a 66 6c 61 67 5f 3d  |/10*100:.:flag_=|
00005480  30 3a 4e 61 5f 25 3d b3  28 31 30 29 3a 4e 62 5f  |0:Na_%=.(10):Nb_|
00005490  25 3d 4e 62 5f 25 28 74  72 5f 25 29 3a e7 74 72  |%=Nb_%(tr_%):.tr|
000054a0  5f 25 3e 31 8c 0d 1f 54  37 e3 65 5f 25 3d 31 b8  |_%>1...T7.e_%=1.|
000054b0  74 72 5f 25 2d 31 3a e7  4e 61 5f 25 3d 4e 61 5f  |tr_%-1:.Na_%=Na_|
000054c0  25 28 65 5f 25 29 80 4e  62 5f 25 3d 4e 62 5f 25  |%(e_%).Nb_%=Nb_%|
000054d0  28 65 5f 25 29 66 6c 61  67 5f 3d 31 0d 1f 5e 05  |(e_%)flag_=1..^.|
000054e0  ed 0d 1f 68 65 cd 3a fd  66 6c 61 67 5f 3d 30 3a  |...he.:.flag_=0:|
000054f0  4e 61 5f 25 28 74 72 5f  25 29 3d 4e 61 5f 25 3a  |Na_%(tr_%)=Na_%:|
00005500  4e 62 5f 25 28 74 72 5f  25 29 3d 4e 62 5f 25 3a  |Nb_%(tr_%)=Nb_%:|
00005510  4e 63 5f 25 28 74 72 5f  25 29 3d 4e 61 5f 25 28  |Nc_%(tr_%)=Na_%(|
00005520  74 72 5f 25 29 2a 4e 62  5f 25 28 74 72 5f 25 29  |tr_%)*Nb_%(tr_%)|
00005530  3a ed 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |:.:.."Hourglass_|
00005540  4f 66 66 22 3a e1 0d 1f  c2 49 dd f2 44 69 76 43  |Off":....I..DivC|
00005550  61 72 64 73 3a 44 69 76  43 61 72 64 5f 25 3d a4  |ards:DivCard_%=.|
00005560  66 57 53 28 22 44 69 76  43 61 72 64 73 22 29 3a  |fWS("DivCards"):|
00005570  e7 64 69 76 5f 28 31 29  3d b9 f2 73 49 28 44 69  |.div_(1)=..sI(Di|
00005580  76 43 61 72 64 5f 25 2c  22 64 69 76 31 22 29 0d  |vCard_%,"div1").|
00005590  1f d6 23 e7 64 69 76 5f  28 32 29 3d b9 f2 73 49  |..#.div_(2)=..sI|
000055a0  28 44 69 76 43 61 72 64  5f 25 2c 22 64 69 76 32  |(DivCard_%,"div2|
000055b0  22 29 0d 1f e0 23 e7 64  69 76 5f 28 33 29 3d b9  |")...#.div_(3)=.|
000055c0  f2 73 49 28 44 69 76 43  61 72 64 5f 25 2c 22 64  |.sI(DivCard_%,"d|
000055d0  69 76 33 22 29 0d 1f ea  23 e7 64 69 76 5f 28 34  |iv3")...#.div_(4|
000055e0  29 3d b9 f2 73 49 28 44  69 76 43 61 72 64 5f 25  |)=..sI(DivCard_%|
000055f0  2c 22 64 69 76 34 22 29  0d 1f f4 23 e7 64 69 76  |,"div4")...#.div|
00005600  5f 28 35 29 3d b9 f2 73  49 28 44 69 76 43 61 72  |_(5)=..sI(DivCar|
00005610  64 5f 25 2c 22 64 69 76  35 22 29 0d 1f fe 23 e7  |d_%,"div5")...#.|
00005620  64 69 76 5f 28 36 29 3d  b9 f2 73 49 28 44 69 76  |div_(6)=..sI(Div|
00005630  43 61 72 64 5f 25 2c 22  64 69 76 36 22 29 0d 20  |Card_%,"div6"). |
00005640  08 23 e7 64 69 76 5f 28  37 29 3d b9 f2 73 49 28  |.#.div_(7)=..sI(|
00005650  44 69 76 43 61 72 64 5f  25 2c 22 64 69 76 37 22  |DivCard_%,"div7"|
00005660  29 0d 20 12 23 e7 64 69  76 5f 28 38 29 3d b9 f2  |). .#.div_(8)=..|
00005670  73 49 28 44 69 76 43 61  72 64 5f 25 2c 22 64 69  |sI(DivCard_%,"di|
00005680  76 38 22 29 0d 20 1c 23  e7 64 69 76 5f 28 39 29  |v8"). .#.div_(9)|
00005690  3d b9 f2 73 49 28 44 69  76 43 61 72 64 5f 25 2c  |=..sI(DivCard_%,|
000056a0  22 64 69 76 39 22 29 0d  20 26 2d e7 4c 69 6e 65  |"div9"). &-.Line|
000056b0  54 79 70 65 5f 28 31 29  3d b9 f2 73 49 28 44 69  |Type_(1)=..sI(Di|
000056c0  76 43 61 72 64 5f 25 2c  22 4c 69 6e 65 54 79 70  |vCard_%,"LineTyp|
000056d0  65 31 22 29 0d 20 30 2d  e7 4c 69 6e 65 54 79 70  |e1"). 0-.LineTyp|
000056e0  65 5f 28 32 29 3d b9 f2  73 49 28 44 69 76 43 61  |e_(2)=..sI(DivCa|
000056f0  72 64 5f 25 2c 22 4c 69  6e 65 54 79 70 65 32 22  |rd_%,"LineType2"|
00005700  29 0d 20 3a 2d e7 4c 69  6e 65 54 79 70 65 5f 28  |). :-.LineType_(|
00005710  33 29 3d b9 f2 73 49 28  44 69 76 43 61 72 64 5f  |3)=..sI(DivCard_|
00005720  25 2c 22 4c 69 6e 65 54  79 70 65 33 22 29 0d 20  |%,"LineType3"). |
00005730  44 25 e7 45 71 53 69 67  6e 5f 3d b9 f2 73 49 28  |D%.EqSign_=..sI(|
00005740  44 69 76 43 61 72 64 5f  25 2c 22 45 71 53 69 67  |DivCard_%,"EqSig|
00005750  6e 22 29 0d 20 4e 29 e7  45 71 45 71 75 61 6c 73  |n"). N).EqEquals|
00005760  5f 3d b9 f2 73 49 28 44  69 76 43 61 72 64 5f 25  |_=..sI(DivCard_%|
00005770  2c 22 45 71 45 71 75 61  6c 73 22 29 0d 20 58 25  |,"EqEquals"). X%|
00005780  e7 64 69 76 65 5f 28 31  29 3d b9 f2 73 49 28 44  |.dive_(1)=..sI(D|
00005790  69 76 43 61 72 64 5f 25  2c 22 64 69 76 65 31 22  |ivCard_%,"dive1"|
000057a0  29 0d 20 62 25 e7 64 69  76 65 5f 28 32 29 3d b9  |). b%.dive_(2)=.|
000057b0  f2 73 49 28 44 69 76 43  61 72 64 5f 25 2c 22 64  |.sI(DivCard_%,"d|
000057c0  69 76 65 32 22 29 0d 20  6c 25 e7 64 69 76 65 5f  |ive2"). l%.dive_|
000057d0  28 33 29 3d b9 f2 73 49  28 44 69 76 43 61 72 64  |(3)=..sI(DivCard|
000057e0  5f 25 2c 22 64 69 76 65  33 22 29 0d 20 76 05 e1  |_%,"dive3"). v..|
000057f0  0d 20 9e 28 dd a4 64 69  76 5f 3a 63 5f 3d 30 3a  |. .(..div_:c_=0:|
00005800  e3 68 5f 3d 31 b8 39 3a  e7 64 69 76 5f 28 68 5f  |.h_=1.9:.div_(h_|
00005810  29 63 5f 3d 63 5f 2b 31  0d 20 a8 09 ed 3a 3d 63  |)c_=c_+1. ...:=c|
00005820  5f 0d 20 b2 3f dd a4 64  69 76 31 5f 3a e7 64 69  |_. .?..div1_:.di|
00005830  76 5f 28 31 29 80 a4 64  69 76 5f 3d 31 20 64 69  |v_(1)..div_=1 di|
00005840  76 5f 28 31 29 3d b9 3a  f2 73 49 28 44 69 76 43  |v_(1)=.:.sI(DivC|
00005850  61 72 64 5f 25 2c 22 64  69 76 31 22 29 3a 3d b9  |ard_%,"div1"):=.|
00005860  0d 20 bc 1f e7 64 69 76  5f 28 31 29 64 69 76 5f  |. ...div_(1)div_|
00005870  28 31 29 3d a3 8b 64 69  76 5f 28 31 29 3d b9 0d  |(1)=..div_(1)=..|
00005880  20 c6 06 3d b9 0d 20 d0  3f dd a4 64 69 76 32 5f  | ..=.. .?..div2_|
00005890  3a e7 64 69 76 5f 28 32  29 80 a4 64 69 76 5f 3d  |:.div_(2)..div_=|
000058a0  31 20 64 69 76 5f 28 32  29 3d b9 3a f2 73 49 28  |1 div_(2)=.:.sI(|
000058b0  44 69 76 43 61 72 64 5f  25 2c 22 64 69 76 32 22  |DivCard_%,"div2"|
000058c0  29 3a 3d b9 0d 20 da 1f  e7 64 69 76 5f 28 32 29  |):=.. ...div_(2)|
000058d0  64 69 76 5f 28 32 29 3d  a3 8b 64 69 76 5f 28 32  |div_(2)=..div_(2|
000058e0  29 3d b9 0d 20 e4 06 3d  b9 0d 20 ee 3f dd a4 64  |)=.. ..=.. .?..d|
000058f0  69 76 33 5f 3a e7 64 69  76 5f 28 33 29 80 a4 64  |iv3_:.div_(3)..d|
00005900  69 76 5f 3d 31 20 64 69  76 5f 28 33 29 3d b9 3a  |iv_=1 div_(3)=.:|
00005910  f2 73 49 28 44 69 76 43  61 72 64 5f 25 2c 22 64  |.sI(DivCard_%,"d|
00005920  69 76 33 22 29 3a 3d b9  0d 20 f8 1f e7 64 69 76  |iv3"):=.. ...div|
00005930  5f 28 33 29 64 69 76 5f  28 33 29 3d a3 8b 64 69  |_(3)div_(3)=..di|
00005940  76 5f 28 33 29 3d b9 0d  21 02 06 3d b9 0d 21 0c  |v_(3)=..!..=..!.|
00005950  3f dd a4 64 69 76 34 5f  3a e7 64 69 76 5f 28 34  |?..div4_:.div_(4|
00005960  29 80 a4 64 69 76 5f 3d  31 20 64 69 76 5f 28 34  |)..div_=1 div_(4|
00005970  29 3d b9 3a f2 73 49 28  44 69 76 43 61 72 64 5f  |)=.:.sI(DivCard_|
00005980  25 2c 22 64 69 76 34 22  29 3a 3d b9 0d 21 16 1f  |%,"div4"):=..!..|
00005990  e7 64 69 76 5f 28 34 29  64 69 76 5f 28 34 29 3d  |.div_(4)div_(4)=|
000059a0  a3 8b 64 69 76 5f 28 34  29 3d b9 0d 21 20 06 3d  |..div_(4)=..! .=|
000059b0  b9 0d 21 2a 3f dd a4 64  69 76 35 5f 3a e7 64 69  |..!*?..div5_:.di|
000059c0  76 5f 28 35 29 80 a4 64  69 76 5f 3d 31 20 64 69  |v_(5)..div_=1 di|
000059d0  76 5f 28 35 29 3d b9 3a  f2 73 49 28 44 69 76 43  |v_(5)=.:.sI(DivC|
000059e0  61 72 64 5f 25 2c 22 64  69 76 35 22 29 3a 3d b9  |ard_%,"div5"):=.|
000059f0  0d 21 34 1f e7 64 69 76  5f 28 35 29 64 69 76 5f  |.!4..div_(5)div_|
00005a00  28 35 29 3d a3 8b 64 69  76 5f 28 35 29 3d b9 0d  |(5)=..div_(5)=..|
00005a10  21 3e 06 3d b9 0d 21 48  3f dd a4 64 69 76 36 5f  |!>.=..!H?..div6_|
00005a20  3a e7 64 69 76 5f 28 36  29 80 a4 64 69 76 5f 3d  |:.div_(6)..div_=|
00005a30  31 20 64 69 76 5f 28 36  29 3d b9 3a f2 73 49 28  |1 div_(6)=.:.sI(|
00005a40  44 69 76 43 61 72 64 5f  25 2c 22 64 69 76 36 22  |DivCard_%,"div6"|
00005a50  29 3a 3d b9 0d 21 52 1f  e7 64 69 76 5f 28 36 29  |):=..!R..div_(6)|
00005a60  64 69 76 5f 28 36 29 3d  a3 8b 64 69 76 5f 28 36  |div_(6)=..div_(6|
00005a70  29 3d b9 0d 21 5c 06 3d  b9 0d 21 66 3f dd a4 64  |)=..!\.=..!f?..d|
00005a80  69 76 37 5f 3a e7 64 69  76 5f 28 37 29 80 a4 64  |iv7_:.div_(7)..d|
00005a90  69 76 5f 3d 31 20 64 69  76 5f 28 37 29 3d b9 3a  |iv_=1 div_(7)=.:|
00005aa0  f2 73 49 28 44 69 76 43  61 72 64 5f 25 2c 22 64  |.sI(DivCard_%,"d|
00005ab0  69 76 37 22 29 3a 3d b9  0d 21 70 1f e7 64 69 76  |iv7"):=..!p..div|
00005ac0  5f 28 37 29 64 69 76 5f  28 37 29 3d a3 8b 64 69  |_(7)div_(7)=..di|
00005ad0  76 5f 28 37 29 3d b9 0d  21 7a 06 3d b9 0d 21 84  |v_(7)=..!z.=..!.|
00005ae0  3f dd a4 64 69 76 38 5f  3a e7 64 69 76 5f 28 38  |?..div8_:.div_(8|
00005af0  29 80 a4 64 69 76 5f 3d  31 20 64 69 76 5f 28 38  |)..div_=1 div_(8|
00005b00  29 3d b9 3a f2 73 49 28  44 69 76 43 61 72 64 5f  |)=.:.sI(DivCard_|
00005b10  25 2c 22 64 69 76 38 22  29 3a 3d b9 0d 21 8e 1f  |%,"div8"):=..!..|
00005b20  e7 64 69 76 5f 28 38 29  64 69 76 5f 28 38 29 3d  |.div_(8)div_(8)=|
00005b30  a3 8b 64 69 76 5f 28 38  29 3d b9 0d 21 98 06 3d  |..div_(8)=..!..=|
00005b40  b9 0d 21 a2 3f dd a4 64  69 76 39 5f 3a e7 64 69  |..!.?..div9_:.di|
00005b50  76 5f 28 39 29 80 a4 64  69 76 5f 3d 31 20 64 69  |v_(9)..div_=1 di|
00005b60  76 5f 28 39 29 3d b9 3a  f2 73 49 28 44 69 76 43  |v_(9)=.:.sI(DivC|
00005b70  61 72 64 5f 25 2c 22 64  69 76 39 22 29 3a 3d b9  |ard_%,"div9"):=.|
00005b80  0d 21 ac 1f e7 64 69 76  5f 28 39 29 64 69 76 5f  |.!...div_(9)div_|
00005b90  28 39 29 3d a3 8b 64 69  76 5f 28 39 29 3d b9 0d  |(9)=..div_(9)=..|
00005ba0  21 b6 06 3d b9 0d 21 ca  4e dd a4 64 69 76 65 31  |!..=..!.N..dive1|
00005bb0  5f 3a e7 64 69 76 65 5f  28 31 29 80 64 69 76 65  |_:.dive_(1).dive|
00005bc0  5f 28 32 29 2b 64 69 76  65 5f 28 33 29 3d a3 64  |_(2)+dive_(3)=.d|
00005bd0  69 76 65 5f 28 31 29 3d  b9 3a f2 73 49 28 44 69  |ive_(1)=.:.sI(Di|
00005be0  76 43 61 72 64 5f 25 2c  22 64 69 76 65 31 22 29  |vCard_%,"dive1")|
00005bf0  3a 3d b9 0d 21 d4 3b e7  64 69 76 65 5f 28 31 29  |:=..!.;.dive_(1)|
00005c00  3d b9 64 69 76 65 5f 28  31 29 3d a3 8b 64 69 76  |=.dive_(1)=..div|
00005c10  65 5f 28 31 29 3d b9 3a  f2 73 49 28 44 69 76 43  |e_(1)=.:.sI(DivC|
00005c20  61 72 64 5f 25 2c 22 64  69 76 65 31 22 29 0d 21  |ard_%,"dive1").!|
00005c30  de 06 3d b9 0d 21 e8 50  dd a4 64 69 76 65 32 5f  |..=..!.P..dive2_|
00005c40  3a e7 64 69 76 65 5f 28  32 29 3d b9 80 64 69 76  |:.dive_(2)=..div|
00005c50  65 5f 28 31 29 2b 64 69  76 65 5f 28 33 29 3d a3  |e_(1)+dive_(3)=.|
00005c60  64 69 76 65 5f 28 32 29  3d b9 3a f2 73 49 28 44  |dive_(2)=.:.sI(D|
00005c70  69 76 43 61 72 64 5f 25  2c 22 64 69 76 65 32 22  |ivCard_%,"dive2"|
00005c80  29 3a 3d b9 0d 21 f2 3b  e7 64 69 76 65 5f 28 32  |):=..!.;.dive_(2|
00005c90  29 3d b9 64 69 76 65 5f  28 32 29 3d a3 8b 64 69  |)=.dive_(2)=..di|
00005ca0  76 65 5f 28 32 29 3d b9  3a f2 73 49 28 44 69 76  |ve_(2)=.:.sI(Div|
00005cb0  43 61 72 64 5f 25 2c 22  64 69 76 65 32 22 29 0d  |Card_%,"dive2").|
00005cc0  21 fc 06 3d b9 0d 22 06  50 dd a4 64 69 76 65 33  |!..=..".P..dive3|
00005cd0  5f 3a e7 64 69 76 65 5f  28 33 29 3d b9 80 64 69  |_:.dive_(3)=..di|
00005ce0  76 65 5f 28 31 29 2b 64  69 76 65 5f 28 32 29 3d  |ve_(1)+dive_(2)=|
00005cf0  a3 64 69 76 65 5f 28 33  29 3d b9 3a f2 73 49 28  |.dive_(3)=.:.sI(|
00005d00  44 69 76 43 61 72 64 5f  25 2c 22 64 69 76 65 33  |DivCard_%,"dive3|
00005d10  22 29 3a 3d b9 0d 22 10  3b e7 64 69 76 65 5f 28  |"):=..".;.dive_(|
00005d20  33 29 3d b9 64 69 76 65  5f 28 33 29 3d a3 8b 64  |3)=.dive_(3)=..d|
00005d30  69 76 65 5f 28 33 29 3d  b9 3a f2 73 49 28 44 69  |ive_(3)=.:.sI(Di|
00005d40  76 43 61 72 64 5f 25 2c  22 64 69 76 65 33 22 29  |vCard_%,"dive3")|
00005d50  0d 22 1a 06 3d b9 0d 22  42 a7 dd a4 44 69 76 63  |."..=.."B...Divc|
00005d60  47 6f 5f 3a f2 47 65 74  54 69 74 6c 65 73 3a 64  |Go_:.GetTitles:d|
00005d70  75 6d 6d 79 5f 3d b3 28  2d 91 29 3a f2 77 68 61  |ummy_=.(-.):.wha|
00005d80  74 6c 69 6e 65 73 5f 3a  f2 77 68 61 74 71 75 61  |tlines_:.whatqua|
00005d90  6c 3a f2 77 68 61 74 65  71 75 61 6c 73 3a f2 77  |l:.whatequals:.w|
00005da0  68 61 74 64 69 76 3a f2  63 61 6c 63 64 69 76 3a  |hatdiv:.calcdiv:|
00005db0  6c 61 73 74 5f 3d 33 3a  71 75 69 74 5f 3d a3 3a  |last_=3:quit_=.:|
00005dc0  43 6c 75 65 5f 24 3d 22  43 61 72 64 73 44 69 76  |Clue_$="CardsDiv|
00005dd0  22 3a 73 74 61 72 74 65  64 5f 25 3d b9 3a f2 75  |":started_%=.:.u|
00005de0  73 49 28 44 69 76 43 61  72 64 5f 25 2c 22 44 69  |sI(DivCard_%,"Di|
00005df0  76 63 47 6f 22 29 3a 3d  a4 73 75 6d 73 0d 22 88  |vcGo"):=.sums.".|
00005e00  7c dd f2 63 61 6c 63 64  69 76 3a c8 99 22 48 6f  ||..calcdiv:.."Ho|
00005e10  75 72 67 6c 61 73 73 5f  4f 6e 22 3a e3 74 72 5f  |urglass_On":.tr_|
00005e20  25 3d 31 b8 31 30 3a f5  3a 66 6c 61 67 5f 3d 30  |%=1.10:.:flag_=0|
00005e30  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 50 65  |:.."Hourglass_Pe|
00005e40  72 63 65 6e 74 61 67 65  22 2c 74 72 5f 25 2f 31  |rcentage",tr_%/1|
00005e50  30 2a 31 30 30 3a 4e 61  5f 25 3d b3 28 31 30 29  |0*100:Na_%=.(10)|
00005e60  3a 4e 62 5f 25 3d 4e 62  5f 25 28 74 72 5f 25 29  |:Nb_%=Nb_%(tr_%)|
00005e70  3a e7 74 72 5f 25 3e 31  8c 0d 22 ce 37 e3 65 5f  |:.tr_%>1..".7.e_|
00005e80  25 3d 31 b8 74 72 5f 25  2d 31 3a e7 4e 61 5f 25  |%=1.tr_%-1:.Na_%|
00005e90  3d 4e 61 5f 25 28 65 5f  25 29 80 4e 62 5f 25 3d  |=Na_%(e_%).Nb_%=|
00005ea0  4e 62 5f 25 28 65 5f 25  29 66 6c 61 67 5f 3d 31  |Nb_%(e_%)flag_=1|
00005eb0  0d 22 d8 05 ed 0d 22 e2  72 cd 3a fd 66 6c 61 67  |."....".r.:.flag|
00005ec0  5f 3d 30 3a 74 65 6d 70  61 5f 28 74 72 5f 25 29  |_=0:tempa_(tr_%)|
00005ed0  3d 4e 61 5f 25 3a ed 3a  e3 72 5f 3d 31 b8 31 30  |=Na_%:.:.r_=1.10|
00005ee0  3a 4e 61 5f 25 28 72 5f  29 3d 74 65 6d 70 61 5f  |:Na_%(r_)=tempa_|
00005ef0  28 72 5f 29 2a 4e 62 5f  25 28 72 5f 29 3a 4e 63  |(r_)*Nb_%(r_):Nc|
00005f00  5f 25 28 72 5f 29 3d 74  65 6d 70 61 5f 28 72 5f  |_%(r_)=tempa_(r_|
00005f10  29 3a ed 3a c8 99 22 48  6f 75 72 67 6c 61 73 73  |):.:.."Hourglass|
00005f20  5f 4f 66 66 22 3a e1 0d  23 14 5a dd f2 77 68 61  |_Off":..#.Z..wha|
00005f30  74 64 69 76 3a c8 99 22  48 6f 75 72 67 6c 61 73  |tdiv:.."Hourglas|
00005f40  73 5f 4f 6e 22 3a 67 6f  74 5f 25 3d 30 3a e3 72  |s_On":got_%=0:.r|
00005f50  5f 25 3d 31 b8 39 3a e7  64 69 76 5f 28 72 5f 25  |_%=1.9:.div_(r_%|
00005f60  29 3d b9 8c 67 6f 74 5f  25 3d 67 6f 74 5f 25 2b  |)=..got_%=got_%+|
00005f70  31 3a 67 63 5f 25 28 67  6f 74 5f 25 29 3d 72 5f  |1:gc_%(got_%)=r_|
00005f80  25 0d 23 28 29 ed 3a e7  67 6f 74 5f 25 3d 31 f2  |%.#().:.got_%=1.|
00005f90  6f 6e 65 64 69 76 3a c8  99 22 48 6f 75 72 67 6c  |onediv:.."Hourgl|
00005fa0  61 73 73 5f 4f 66 66 22  3a e1 0d 23 3c 5b e7 67  |ass_Off":..#<[.g|
00005fb0  6f 74 5f 25 3e 34 f2 74  69 6d 65 73 28 67 6f 74  |ot_%>4.times(got|
00005fc0  5f 25 2c 31 30 29 3a e3  72 5f 3d 31 b8 31 30 3a  |_%,10):.r_=1.10:|
00005fd0  4e 62 5f 25 28 72 5f 29  3d bb 28 64 69 76 5f 24  |Nb_%(r_)=.(div_$|
00005fe0  28 66 69 6e 64 65 72 5f  25 28 72 5f 29 29 29 3a  |(finder_%(r_))):|
00005ff0  ed 3a c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |.:.."Hourglass_O|
00006000  66 66 22 3a e1 0d 23 46  67 6e 65 65 64 65 64 5f  |ff":..#Fgneeded_|
00006010  25 3d 31 30 81 67 6f 74  5f 25 3a e3 72 5f 3d 31  |%=10.got_%:.r_=1|
00006020  b8 31 30 3a 67 63 5f 25  28 72 5f 29 3d 30 3a ed  |.10:gc_%(r_)=0:.|
00006030  3a 67 6f 74 5f 25 3d 30  3a e3 72 5f 25 3d 31 b8  |:got_%=0:.r_%=1.|
00006040  39 3a e7 64 69 76 5f 28  72 5f 25 29 3d b9 8c 67  |9:.div_(r_%)=..g|
00006050  6f 74 5f 25 3d 67 6f 74  5f 25 2b 31 3a 67 63 5f  |ot_%=got_%+1:gc_|
00006060  25 28 67 6f 74 5f 25 29  3d 72 5f 25 0d 23 64 d2  |%(got_%)=r_%.#d.|
00006070  ed 3a f5 3a 66 6c 61 67  5f 3d b9 3a e3 72 5f 3d  |.:.:flag_=.:.r_=|
00006080  31 b8 31 30 3a 66 69 6e  64 65 72 5f 25 28 72 5f  |1.10:finder_%(r_|
00006090  29 3d 30 3a ed 3a e3 72  5f 3d 31 b8 31 30 3a c8  |)=0:.:.r_=1.10:.|
000060a0  99 22 48 6f 75 72 67 6c  61 73 73 5f 50 65 72 63  |."Hourglass_Perc|
000060b0  65 6e 74 61 67 65 22 2c  72 5f 2f 31 30 2a 31 30  |entage",r_/10*10|
000060c0  30 3a 72 61 6e 5f 25 3d  b3 28 67 6f 74 5f 25 29  |0:ran_%=.(got_%)|
000060d0  3a 4e 62 5f 25 28 72 5f  29 3d bb 28 64 69 76 5f  |:Nb_%(r_)=.(div_|
000060e0  24 28 67 63 5f 25 28 72  61 6e 5f 25 29 29 29 3a  |$(gc_%(ran_%))):|
000060f0  66 69 6e 64 65 72 5f 25  28 72 61 6e 5f 25 29 3d  |finder_%(ran_%)=|
00006100  66 69 6e 64 65 72 5f 25  28 72 61 6e 5f 25 29 2b  |finder_%(ran_%)+|
00006110  31 3a ed 3a e3 74 5f 3d  31 b8 67 6f 74 5f 25 3a  |1:.:.t_=1.got_%:|
00006120  e7 66 69 6e 64 65 72 5f  25 28 74 5f 29 3c 6e 65  |.finder_%(t_)<ne|
00006130  65 64 65 64 5f 25 20 66  6c 61 67 5f 3d a3 0d 23  |eded_% flag_=..#|
00006140  b4 22 ed 3a fd 66 6c 61  67 5f 3d b9 3a c8 99 22  |.".:.flag_=.:.."|
00006150  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 3a e1  |Hourglass_Off":.|
00006160  0d 23 c8 48 dd f2 6f 6e  65 64 69 76 3a e3 72 5f  |.#.H..onediv:.r_|
00006170  25 3d 31 b8 39 3a e7 64  69 76 5f 28 72 5f 25 29  |%=1.9:.div_(r_%)|
00006180  3d b9 8c e3 74 72 5f 25  3d 31 b8 31 30 3a 4e 62  |=...tr_%=1.10:Nb|
00006190  5f 25 28 74 72 5f 25 29  3d bb 28 64 69 76 5f 24  |_%(tr_%)=.(div_$|
000061a0  28 72 5f 25 29 29 3a ed  0d 23 dc 07 ed 3a e1 0d  |(r_%)):..#...:..|
000061b0  24 18 38 dd f2 41 64 64  3a 57 41 64 64 5f 25 3d  |$.8..Add:WAdd_%=|
000061c0  a4 66 57 53 28 22 41 64  64 22 29 3a e7 61 64 64  |.fWS("Add"):.add|
000061d0  79 5f 28 31 29 f2 73 49  28 57 41 64 64 5f 25 2c  |y_(1).sI(WAdd_%,|
000061e0  22 41 64 64 31 22 29 0d  24 2c 1f e7 61 64 64 79  |"Add1").$,..addy|
000061f0  5f 28 32 29 f2 73 49 28  57 41 64 64 5f 25 2c 22  |_(2).sI(WAdd_%,"|
00006200  41 64 64 32 22 29 0d 24  36 1f e7 61 64 64 79 5f  |Add2").$6..addy_|
00006210  28 33 29 f2 73 49 28 57  41 64 64 5f 25 2c 22 41  |(3).sI(WAdd_%,"A|
00006220  64 64 33 22 29 0d 24 40  1f e7 61 64 64 79 5f 28  |dd3").$@..addy_(|
00006230  34 29 f2 73 49 28 57 41  64 64 5f 25 2c 22 41 64  |4).sI(WAdd_%,"Ad|
00006240  64 34 22 29 0d 24 4a 1f  e7 61 64 64 79 5f 28 35  |d4").$J..addy_(5|
00006250  29 f2 73 49 28 57 41 64  64 5f 25 2c 22 41 64 64  |).sI(WAdd_%,"Add|
00006260  35 22 29 0d 24 54 1f e7  61 64 64 79 5f 28 36 29  |5").$T..addy_(6)|
00006270  f2 73 49 28 57 41 64 64  5f 25 2c 22 41 64 64 36  |.sI(WAdd_%,"Add6|
00006280  22 29 0d 24 5e 28 e7 61  64 64 63 61 72 72 79 5f  |").$^(.addcarry_|
00006290  28 31 29 f2 73 49 28 57  41 64 64 5f 25 2c 22 41  |(1).sI(WAdd_%,"A|
000062a0  64 64 43 61 72 72 79 31  22 29 0d 24 68 28 e7 61  |ddCarry1").$h(.a|
000062b0  64 64 63 61 72 72 79 5f  28 32 29 f2 73 49 28 57  |ddcarry_(2).sI(W|
000062c0  41 64 64 5f 25 2c 22 41  64 64 43 61 72 72 79 32  |Add_%,"AddCarry2|
000062d0  22 29 0d 24 72 28 e7 61  64 64 63 61 72 72 79 5f  |").$r(.addcarry_|
000062e0  28 33 29 f2 73 49 28 57  41 64 64 5f 25 2c 22 41  |(3).sI(WAdd_%,"A|
000062f0  64 64 43 61 72 72 79 33  22 29 0d 24 7c 21 e7 41  |ddCarry3").$|!.A|
00006300  6e 6f 77 74 73 5f 25 f2  73 49 28 57 41 64 64 5f  |nowts_%.sI(WAdd_|
00006310  25 2c 22 41 6e 6f 77 74  73 22 29 0d 24 86 05 e1  |%,"Anowts").$...|
00006320  0d 24 ae 3e dd a4 41 6e  6f 77 74 73 5f 3a e7 61  |.$.>..Anowts_:.a|
00006330  64 64 63 61 72 72 79 5f  28 32 29 41 6e 6f 77 74  |ddcarry_(2)Anowt|
00006340  73 5f 25 3d a3 3a f2 75  73 49 28 57 41 64 64 5f  |s_%=.:.usI(WAdd_|
00006350  25 2c 22 41 6e 6f 77 74  73 22 29 3a 3d b9 0d 24  |%,"Anowts"):=..$|
00006360  b8 24 e7 41 6e 6f 77 74  73 5f 25 3d a3 41 6e 6f  |.$.Anowts_%=.Ano|
00006370  77 74 73 5f 25 3d b9 8b  41 6e 6f 77 74 73 5f 25  |wts_%=..Anowts_%|
00006380  3d a3 0d 24 c2 0b f2 41  63 7a 3a 3d b9 0d 24 d6  |=..$...Acz:=..$.|
00006390  3d dd f2 41 63 7a 3a e7  61 64 64 79 5f 28 31 29  |=..Acz:.addy_(1)|
000063a0  80 a4 61 64 64 79 5f 3d  31 20 41 6e 6f 77 74 73  |..addy_=1 Anowts|
000063b0  5f 25 3d a3 3a f2 75 73  49 28 57 41 64 64 5f 25  |_%=.:.usI(WAdd_%|
000063c0  2c 22 41 6e 6f 77 74 73  22 29 0d 24 e0 05 e1 0d  |,"Anowts").$....|
000063d0  24 f4 2a dd a4 61 64 64  79 5f 3a 63 5f 3d 30 3a  |$.*..addy_:c_=0:|
000063e0  e3 74 5f 3d 31 b8 36 3a  e7 61 64 64 79 5f 28 74  |.t_=1.6:.addy_(t|
000063f0  5f 29 63 5f 3d 63 5f 2b  31 0d 24 fe 09 ed 3a 3d  |_)c_=c_+1.$...:=|
00006400  63 5f 0d 25 08 3f dd a4  41 64 64 31 5f 3a e7 61  |c_.%.?..Add1_:.a|
00006410  64 64 79 5f 28 31 29 80  a4 61 64 64 79 5f 3d 31  |ddy_(1)..addy_=1|
00006420  20 61 64 64 79 5f 28 31  29 3d b9 3a f2 73 49 28  | addy_(1)=.:.sI(|
00006430  57 41 64 64 5f 25 2c 22  41 64 64 31 22 29 3a 3d  |WAdd_%,"Add1"):=|
00006440  b9 0d 25 12 22 e7 61 64  64 79 5f 28 31 29 61 64  |..%.".addy_(1)ad|
00006450  64 79 5f 28 31 29 3d a3  8b 61 64 64 79 5f 28 31  |dy_(1)=..addy_(1|
00006460  29 3d b9 0d 25 1c 0b f2  41 63 7a 3a 3d b9 0d 25  |)=..%...Acz:=..%|
00006470  26 3f dd a4 41 64 64 32  5f 3a e7 61 64 64 79 5f  |&?..Add2_:.addy_|
00006480  28 32 29 80 a4 61 64 64  79 5f 3d 31 20 61 64 64  |(2)..addy_=1 add|
00006490  79 5f 28 32 29 3d b9 3a  f2 73 49 28 57 41 64 64  |y_(2)=.:.sI(WAdd|
000064a0  5f 25 2c 22 41 64 64 32  22 29 3a 3d b9 0d 25 30  |_%,"Add2"):=..%0|
000064b0  22 e7 61 64 64 79 5f 28  32 29 61 64 64 79 5f 28  |".addy_(2)addy_(|
000064c0  32 29 3d a3 8b 61 64 64  79 5f 28 32 29 3d b9 0d  |2)=..addy_(2)=..|
000064d0  25 3a 0b f2 41 63 7a 3a  3d b9 0d 25 44 3f dd a4  |%:..Acz:=..%D?..|
000064e0  41 64 64 33 5f 3a e7 61  64 64 79 5f 28 33 29 80  |Add3_:.addy_(3).|
000064f0  a4 61 64 64 79 5f 3d 31  20 61 64 64 79 5f 28 33  |.addy_=1 addy_(3|
00006500  29 3d b9 3a f2 73 49 28  57 41 64 64 5f 25 2c 22  |)=.:.sI(WAdd_%,"|
00006510  41 64 64 33 22 29 3a 3d  b9 0d 25 4e 22 e7 61 64  |Add3"):=..%N".ad|
00006520  64 79 5f 28 33 29 61 64  64 79 5f 28 33 29 3d a3  |dy_(3)addy_(3)=.|
00006530  8b 61 64 64 79 5f 28 33  29 3d b9 0d 25 58 0b f2  |.addy_(3)=..%X..|
00006540  41 63 7a 3a 3d b9 0d 25  62 3f dd a4 41 64 64 34  |Acz:=..%b?..Add4|
00006550  5f 3a e7 61 64 64 79 5f  28 34 29 80 a4 61 64 64  |_:.addy_(4)..add|
00006560  79 5f 3d 31 20 61 64 64  79 5f 28 34 29 3d b9 3a  |y_=1 addy_(4)=.:|
00006570  f2 73 49 28 57 41 64 64  5f 25 2c 22 41 64 64 34  |.sI(WAdd_%,"Add4|
00006580  22 29 3a 3d b9 0d 25 6c  22 e7 61 64 64 79 5f 28  |"):=..%l".addy_(|
00006590  34 29 61 64 64 79 5f 28  34 29 3d a3 8b 61 64 64  |4)addy_(4)=..add|
000065a0  79 5f 28 34 29 3d b9 0d  25 76 0b f2 41 63 7a 3a  |y_(4)=..%v..Acz:|
000065b0  3d b9 0d 25 80 3f dd a4  41 64 64 35 5f 3a e7 61  |=..%.?..Add5_:.a|
000065c0  64 64 79 5f 28 35 29 80  a4 61 64 64 79 5f 3d 31  |ddy_(5)..addy_=1|
000065d0  20 61 64 64 79 5f 28 35  29 3d b9 3a f2 73 49 28  | addy_(5)=.:.sI(|
000065e0  57 41 64 64 5f 25 2c 22  41 64 64 35 22 29 3a 3d  |WAdd_%,"Add5"):=|
000065f0  b9 0d 25 8a 22 e7 61 64  64 79 5f 28 35 29 61 64  |..%.".addy_(5)ad|
00006600  64 79 5f 28 35 29 3d a3  8b 61 64 64 79 5f 28 35  |dy_(5)=..addy_(5|
00006610  29 3d b9 0d 25 94 0b f2  41 63 7a 3a 3d b9 0d 25  |)=..%...Acz:=..%|
00006620  9e 3f dd a4 41 64 64 36  5f 3a e7 61 64 64 79 5f  |.?..Add6_:.addy_|
00006630  28 36 29 80 a4 61 64 64  79 5f 3d 31 20 61 64 64  |(6)..addy_=1 add|
00006640  79 5f 28 36 29 3d b9 3a  f2 73 49 28 57 41 64 64  |y_(6)=.:.sI(WAdd|
00006650  5f 25 2c 22 41 64 64 36  22 29 3a 3d b9 0d 25 a8  |_%,"Add6"):=..%.|
00006660  22 e7 61 64 64 79 5f 28  36 29 61 64 64 79 5f 28  |".addy_(6)addy_(|
00006670  36 29 3d a3 8b 61 64 64  79 5f 28 36 29 3d b9 0d  |6)=..addy_(6)=..|
00006680  25 b2 0b f2 41 63 7a 3a  3d b9 0d 25 c6 63 dd a4  |%...Acz:=..%.c..|
00006690  41 64 64 43 61 72 72 79  31 5f 3a e7 61 64 64 63  |AddCarry1_:.addc|
000066a0  61 72 72 79 5f 28 31 29  80 61 64 64 63 61 72 72  |arry_(1).addcarr|
000066b0  79 5f 28 32 29 2b 61 64  64 63 61 72 72 79 5f 28  |y_(2)+addcarry_(|
000066c0  33 29 3d a3 61 64 64 63  61 72 72 79 5f 28 31 29  |3)=.addcarry_(1)|
000066d0  3d b9 3a f2 73 49 28 57  41 64 64 5f 25 2c 22 41  |=.:.sI(WAdd_%,"A|
000066e0  64 64 43 61 72 72 79 31  22 29 3a 3d b9 0d 25 d0  |ddCarry1"):=..%.|
000066f0  8c e7 61 64 64 63 61 72  72 79 5f 28 31 29 3d a3  |..addcarry_(1)=.|
00006700  61 64 64 63 61 72 72 79  5f 28 31 29 3d b9 3a f2  |addcarry_(1)=.:.|
00006710  73 49 28 57 41 64 64 5f  25 2c 22 41 64 64 43 61  |sI(WAdd_%,"AddCa|
00006720  72 72 79 31 22 29 3a 61  64 64 63 61 72 72 79 5f  |rry1"):addcarry_|
00006730  28 32 29 3d a3 3a f2 75  73 49 28 57 41 64 64 5f  |(2)=.:.usI(WAdd_|
00006740  25 2c 22 41 64 64 43 61  72 72 79 32 22 29 3a 61  |%,"AddCarry2"):a|
00006750  64 64 63 61 72 72 79 5f  28 33 29 3d a3 3a f2 75  |ddcarry_(3)=.:.u|
00006760  73 49 28 57 41 64 64 5f  25 2c 22 41 64 64 43 61  |sI(WAdd_%,"AddCa|
00006770  72 72 79 33 22 29 3a 3d  b9 0d 25 da 63 dd a4 41  |rry3"):=..%.c..A|
00006780  64 64 43 61 72 72 79 32  5f 3a e7 61 64 64 63 61  |ddCarry2_:.addca|
00006790  72 72 79 5f 28 32 29 80  61 64 64 63 61 72 72 79  |rry_(2).addcarry|
000067a0  5f 28 31 29 2b 61 64 64  63 61 72 72 79 5f 28 33  |_(1)+addcarry_(3|
000067b0  29 3d a3 61 64 64 63 61  72 72 79 5f 28 32 29 3d  |)=.addcarry_(2)=|
000067c0  b9 3a f2 73 49 28 57 41  64 64 5f 25 2c 22 41 64  |.:.sI(WAdd_%,"Ad|
000067d0  64 43 61 72 72 79 32 22  29 3a 3d b9 0d 25 e4 ad  |dCarry2"):=..%..|
000067e0  e7 61 64 64 63 61 72 72  79 5f 28 32 29 3d a3 61  |.addcarry_(2)=.a|
000067f0  64 64 63 61 72 72 79 5f  28 32 29 3d b9 3a f2 73  |ddcarry_(2)=.:.s|
00006800  49 28 57 41 64 64 5f 25  2c 22 41 64 64 43 61 72  |I(WAdd_%,"AddCar|
00006810  72 79 32 22 29 3a 61 64  64 63 61 72 72 79 5f 28  |ry2"):addcarry_(|
00006820  31 29 3d a3 3a f2 75 73  49 28 57 41 64 64 5f 25  |1)=.:.usI(WAdd_%|
00006830  2c 22 41 64 64 43 61 72  72 79 31 22 29 3a 61 64  |,"AddCarry1"):ad|
00006840  64 63 61 72 72 79 5f 28  33 29 3d a3 3a f2 75 73  |dcarry_(3)=.:.us|
00006850  49 28 57 41 64 64 5f 25  2c 22 41 64 64 43 61 72  |I(WAdd_%,"AddCar|
00006860  72 79 33 22 29 3a 41 6e  6f 77 74 73 5f 25 3d a3  |ry3"):Anowts_%=.|
00006870  3a f2 75 73 49 28 57 41  64 64 5f 25 2c 22 41 6e  |:.usI(WAdd_%,"An|
00006880  6f 77 74 73 22 29 3a 3d  b9 0d 25 ee 63 dd a4 41  |owts"):=..%.c..A|
00006890  64 64 43 61 72 72 79 33  5f 3a e7 61 64 64 63 61  |ddCarry3_:.addca|
000068a0  72 72 79 5f 28 33 29 80  61 64 64 63 61 72 72 79  |rry_(3).addcarry|
000068b0  5f 28 31 29 2b 61 64 64  63 61 72 72 79 5f 28 32  |_(1)+addcarry_(2|
000068c0  29 3d a3 61 64 64 63 61  72 72 79 5f 28 33 29 3d  |)=.addcarry_(3)=|
000068d0  b9 3a f2 73 49 28 57 41  64 64 5f 25 2c 22 41 64  |.:.sI(WAdd_%,"Ad|
000068e0  64 43 61 72 72 79 33 22  29 3a 3d b9 0d 25 f8 8c  |dCarry3"):=..%..|
000068f0  e7 61 64 64 63 61 72 72  79 5f 28 33 29 3d a3 61  |.addcarry_(3)=.a|
00006900  64 64 63 61 72 72 79 5f  28 33 29 3d b9 3a f2 73  |ddcarry_(3)=.:.s|
00006910  49 28 57 41 64 64 5f 25  2c 22 41 64 64 43 61 72  |I(WAdd_%,"AddCar|
00006920  72 79 33 22 29 3a 61 64  64 63 61 72 72 79 5f 28  |ry3"):addcarry_(|
00006930  31 29 3d a3 3a f2 75 73  49 28 57 41 64 64 5f 25  |1)=.:.usI(WAdd_%|
00006940  2c 22 41 64 64 43 61 72  72 79 31 22 29 3a 61 64  |,"AddCarry1"):ad|
00006950  64 63 61 72 72 79 5f 28  32 29 3d a3 3a f2 75 73  |dcarry_(2)=.:.us|
00006960  49 28 57 41 64 64 5f 25  2c 22 41 64 64 43 61 72  |I(WAdd_%,"AddCar|
00006970  72 79 32 22 29 3a 3d b9  0d 26 02 04 0d 26 20 8a  |ry2"):=..&...& .|
00006980  dd a4 41 64 64 67 6f 5f  3a f2 47 65 74 54 69 74  |..Addgo_:.GetTit|
00006990  6c 65 73 3a 6d 61 6e 79  5f 3d 31 32 3a f2 77 68  |les:many_=12:.wh|
000069a0  61 74 61 64 64 73 3a f2  61 64 64 75 70 3a 73 74  |atadds:.addup:st|
000069b0  61 72 74 65 64 5f 25 3d  b9 3a f2 75 73 49 28 57  |arted_%=.:.usI(W|
000069c0  41 64 64 5f 25 2c 22 41  64 64 67 6f 22 29 3a c8  |Add_%,"Addgo"):.|
000069d0  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  |."Hourglass_Off"|
000069e0  3a 6c 61 73 74 5f 3d 33  3a 71 75 69 74 5f 3d a3  |:last_=3:quit_=.|
000069f0  3a 43 6c 75 65 5f 24 3d  22 41 64 64 31 61 22 3a  |:Clue_$="Add1a":|
00006a00  3d a4 73 75 6d 73 0d 26  52 59 dd f2 77 68 61 74  |=.sums.&RY..what|
00006a10  61 64 64 73 3a 67 6f 74  5f 25 3d 30 3a e3 72 5f  |adds:got_%=0:.r_|
00006a20  3d 31 b8 36 3a e7 61 64  64 79 5f 28 72 5f 29 67  |=1.6:.addy_(r_)g|
00006a30  6f 74 5f 25 3d 67 6f 74  5f 25 2b 31 3a 61 64 64  |ot_%=got_%+1:add|
00006a40  79 74 79 70 65 5f 28 67  6f 74 5f 25 29 3d 72 5f  |ytype_(got_%)=r_|
00006a50  3a 67 63 5f 25 28 67 6f  74 5f 25 29 3d 72 5f 0d  |:gc_%(got_%)=r_.|
00006a60  26 66 39 ed 3a e7 67 6f  74 5f 25 3d 31 e3 72 5f  |&f9.:.got_%=1.r_|
00006a70  3d 31 b8 31 32 3a 6c 69  6e 65 61 64 64 79 5f 28  |=1.12:lineaddy_(|
00006a80  72 5f 29 3d 61 64 64 79  74 79 70 65 5f 28 67 6f  |r_)=addytype_(go|
00006a90  74 5f 25 29 3a ed 3a e1  0d 26 7a 5c e7 67 6f 74  |t_%):.:..&z\.got|
00006aa0  5f 25 3d 36 f2 74 69 6d  65 73 28 67 6f 74 5f 25  |_%=6.times(got_%|
00006ab0  2c 31 32 29 3a e3 72 5f  3d 31 b8 31 32 3a 6c 69  |,12):.r_=1.12:li|
00006ac0  6e 65 61 64 64 79 5f 28  72 5f 29 3d 67 63 5f 25  |neaddy_(r_)=gc_%|
00006ad0  28 66 69 6e 64 65 72 5f  25 28 72 5f 29 29 3a ed  |(finder_%(r_)):.|
00006ae0  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |:.."Hourglass_Of|
00006af0  66 22 3a e1 0d 26 84 b8  6e 65 65 64 65 64 5f 25  |f":..&..needed_%|
00006b00  3d 31 32 81 67 6f 74 5f  25 3a c8 99 22 48 6f 75  |=12.got_%:.."Hou|
00006b10  72 67 6c 61 73 73 5f 4f  6e 22 3a f5 3a e3 72 5f  |rglass_On":.:.r_|
00006b20  3d 31 b8 31 32 3a 66 69  6e 64 65 72 5f 25 28 72  |=1.12:finder_%(r|
00006b30  5f 29 3d 30 3a ed 3a 66  6c 61 67 5f 3d b9 3a e3  |_)=0:.:flag_=.:.|
00006b40  72 5f 3d 31 b8 31 32 3a  c8 99 22 48 6f 75 72 67  |r_=1.12:.."Hourg|
00006b50  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
00006b60  2c 72 5f 2f 31 32 2a 31  30 30 3a f5 3a 66 6c 69  |,r_/12*100:.:fli|
00006b70  67 5f 3d b9 3a 72 61 6e  5f 25 3d b3 28 67 6f 74  |g_=.:ran_%=.(got|
00006b80  5f 25 29 3a e7 72 5f 3e  31 80 67 63 5f 25 28 72  |_%):.r_>1.gc_%(r|
00006b90  61 6e 5f 25 29 3d 6c 69  6e 65 61 64 64 79 5f 28  |an_%)=lineaddy_(|
00006ba0  72 5f 2d 31 29 66 6c 69  67 5f 3d a3 0d 26 f2 75  |r_-1)flig_=..&.u|
00006bb0  fd 66 6c 69 67 5f 3d b9  3a 6c 69 6e 65 61 64 64  |.flig_=.:lineadd|
00006bc0  79 5f 28 72 5f 29 3d 67  63 5f 25 28 72 61 6e 5f  |y_(r_)=gc_%(ran_|
00006bd0  25 29 3a 66 69 6e 64 65  72 5f 25 28 72 61 6e 5f  |%):finder_%(ran_|
00006be0  25 29 3d 66 69 6e 64 65  72 5f 25 28 72 61 6e 5f  |%)=finder_%(ran_|
00006bf0  25 29 2b 31 3a ed 3a e3  74 5f 3d 31 b8 67 6f 74  |%)+1:.:.t_=1.got|
00006c00  5f 25 3a e7 66 69 6e 64  65 72 5f 25 28 74 5f 29  |_%:.finder_%(t_)|
00006c10  3c 6e 65 65 64 65 64 5f  25 20 66 6c 61 67 5f 3d  |<needed_% flag_=|
00006c20  a3 0d 27 10 22 ed 3a fd  66 6c 61 67 5f 3d b9 3a  |..'.".:.flag_=.:|
00006c30  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |.."Hourglass_Off|
00006c40  22 3a e1 0d 27 2e 6a dd  f2 61 64 64 75 70 3a 64  |":..'.j..addup:d|
00006c50  75 6d 6d 79 5f 3d b3 28  2d 91 29 3a e3 74 5f 3d  |ummy_=.(-.):.t_=|
00006c60  31 b8 31 32 3a 61 5f 28  74 5f 29 3d 2d 31 3a 62  |1.12:a_(t_)=-1:b|
00006c70  5f 28 74 5f 29 3d 2d 31  3a ed 3a c8 99 22 48 6f  |_(t_)=-1:.:.."Ho|
00006c80  75 72 67 6c 61 73 73 5f  4f 6e 22 3a e3 74 5f 3d  |urglass_On":.t_=|
00006c90  31 b8 31 32 3a e7 6c 69  6e 65 61 64 64 79 5f 28  |1.12:.lineaddy_(|
00006ca0  74 5f 29 3d 31 20 72 61  6e 5f 25 3d 39 0d 27 60  |t_)=1 ran_%=9.'`|
00006cb0  1d e7 6c 69 6e 65 61 64  64 79 5f 28 74 5f 29 3d  |..lineaddy_(t_)=|
00006cc0  32 20 72 61 6e 5f 25 3d  39 39 0d 27 6a 1e e7 6c  |2 ran_%=99.'j..l|
00006cd0  69 6e 65 61 64 64 79 5f  28 74 5f 29 3d 33 20 72  |ineaddy_(t_)=3 r|
00006ce0  61 6e 5f 25 3d 39 39 39  0d 27 74 1f e7 6c 69 6e  |an_%=999.'t..lin|
00006cf0  65 61 64 64 79 5f 28 74  5f 29 3d 34 20 72 61 6e  |eaddy_(t_)=4 ran|
00006d00  5f 25 3d 39 39 39 39 0d  27 7e 20 e7 6c 69 6e 65  |_%=9999.'~ .line|
00006d10  61 64 64 79 5f 28 74 5f  29 3d 35 20 72 61 6e 5f  |addy_(t_)=5 ran_|
00006d20  25 3d 39 39 39 39 39 0d  27 88 21 e7 6c 69 6e 65  |%=99999.'.!.line|
00006d30  61 64 64 79 5f 28 74 5f  29 3d 36 20 72 61 6e 5f  |addy_(t_)=6 ran_|
00006d40  25 3d 39 39 39 39 39 39  0d 27 92 5b c8 99 22 48  |%=999999.'.[.."H|
00006d50  6f 75 72 67 6c 61 73 73  5f 50 65 72 63 65 6e 74  |ourglass_Percent|
00006d60  61 67 65 22 2c 74 5f 2f  31 30 2a 31 30 30 3a f5  |age",t_/10*100:.|
00006d70  3a 66 6c 61 67 5f 3d 30  3a 61 5f 3d b3 28 72 61  |:flag_=0:a_=.(ra|
00006d80  6e 5f 25 29 3a 62 5f 3d  b3 28 72 61 6e 5f 25 29  |n_%):b_=.(ran_%)|
00006d90  3a e7 41 6e 6f 77 74 73  5f 25 f2 41 6e 6f 75 67  |:.Anowts_%.Anoug|
00006da0  68 74 73 0d 27 a6 1c e7  61 64 64 63 61 72 72 79  |hts.'...addcarry|
00006db0  5f 28 31 29 f2 6e 6f 61  64 64 63 61 72 72 79 0d  |_(1).noaddcarry.|
00006dc0  27 ba 1d e7 61 64 64 63  61 72 72 79 5f 28 32 29  |'...addcarry_(2)|
00006dd0  f2 61 6c 6c 61 64 64 63  61 72 72 79 0d 27 c4 0a  |.alladdcarry.'..|
00006de0  e7 74 5f 3e 31 8c 0d 27  ce 2a e3 65 5f 3d 31 b8  |.t_>1..'.*.e_=1.|
00006df0  74 5f 2d 31 3a e7 61 5f  3d 61 5f 28 65 5f 29 80  |t_-1:.a_=a_(e_).|
00006e00  62 5f 3d 62 5f 28 65 5f  29 66 6c 61 67 5f 3d 31  |b_=b_(e_)flag_=1|
00006e10  0d 27 d8 05 ed 0d 27 e2  33 cd 3a fd 66 6c 61 67  |.'....'.3.:.flag|
00006e20  5f 3d 30 3a 61 5f 28 74  5f 29 3d 61 5f 3a 62 5f  |_=0:a_(t_)=a_:b_|
00006e30  28 74 5f 29 3d 62 5f 3a  63 5f 28 74 5f 29 3d 61  |(t_)=b_:c_(t_)=a|
00006e40  5f 2b 62 5f 3a ed 3a e1  0d 28 1e 1d dd f2 41 6e  |_+b_:.:..(....An|
00006e50  6f 75 67 68 74 73 3a 6e  5f 3d b3 28 32 29 3a e7  |oughts:n_=.(2):.|
00006e60  6e 5f 3d 31 8c 0d 28 3c  45 76 5f 24 3d c3 28 61  |n_=1..(<Ev_$=.(a|
00006e70  5f 29 3a e3 77 5f 3d 32  b8 a9 28 76 5f 24 29 3a  |_):.w_=2..(v_$):|
00006e80  72 72 5f 3d b3 28 34 29  3a e7 72 72 5f 3d 31 84  |rr_=.(4):.rr_=1.|
00006e90  72 72 5f 3d 32 84 72 72  5f 3d 33 8c c1 76 5f 24  |rr_=2.rr_=3..v_$|
00006ea0  2c 77 5f 2c 31 29 3d 22  30 22 0d 28 50 0f ed 3a  |,w_,1)="0".(P..:|
00006eb0  61 5f 3d bb 28 76 5f 24  29 0d 28 5a 0c cd 3a e7  |a_=.(v_$).(Z..:.|
00006ec0  6e 5f 3d 32 8c 0d 28 6e  45 76 5f 24 3d c3 28 62  |n_=2..(nEv_$=.(b|
00006ed0  5f 29 3a e3 77 5f 3d 32  b8 a9 28 76 5f 24 29 3a  |_):.w_=2..(v_$):|
00006ee0  72 72 5f 3d b3 28 34 29  3a e7 72 72 5f 3d 31 84  |rr_=.(4):.rr_=1.|
00006ef0  72 72 5f 3d 32 84 72 72  5f 3d 33 8c c1 76 5f 24  |rr_=2.rr_=3..v_$|
00006f00  2c 77 5f 2c 31 29 3d 22  30 22 0d 28 82 0f ed 3a  |,w_,1)="0".(...:|
00006f10  62 5f 3d bb 28 76 5f 24  29 0d 28 8c 07 cd 3a e1  |b_=.(v_$).(...:.|
00006f20  0d 28 a0 51 dd f2 6e 6f  61 64 64 63 61 72 72 79  |.(.Q..noaddcarry|
00006f30  3a 61 5f 24 3d c3 28 61  5f 29 3a 62 5f 24 3d c3  |:a_$=.(a_):b_$=.|
00006f40  28 62 5f 29 3a 6c 61 5f  3d a9 28 61 5f 24 29 3a  |(b_):la_=.(a_$):|
00006f50  6c 62 5f 3d a9 28 62 5f  24 29 3a 7a 5f 3d 6c 61  |lb_=.(b_$):z_=la|
00006f60  5f 3a e7 6c 62 5f 3c 6c  61 5f 20 7a 5f 3d 6c 62  |_:.lb_<la_ z_=lb|
00006f70  5f 0d 28 b4 36 e3 72 5f  3d 7a 5f b8 31 88 2d 31  |_.(.6.r_=z_.1.-1|
00006f80  3a e7 bb 28 c1 61 5f 24  2c 72 5f 2c 31 29 29 2b  |:..(.a_$,r_,1))+|
00006f90  bb 28 c1 62 5f 24 2c 72  5f 2c 31 29 29 3e 39 20  |.(.b_$,r_,1))>9 |
00006fa0  66 6c 61 67 5f 3d 31 0d  28 c8 07 ed 3a e1 0d 28  |flag_=1.(...:..(|
00006fb0  dc 52 dd f2 61 6c 6c 61  64 64 63 61 72 72 79 3a  |.R..alladdcarry:|
00006fc0  61 5f 24 3d c3 28 61 5f  29 3a 62 5f 24 3d c3 28  |a_$=.(a_):b_$=.(|
00006fd0  62 5f 29 3a 6c 61 5f 3d  a9 28 61 5f 24 29 3a 6c  |b_):la_=.(a_$):l|
00006fe0  62 5f 3d a9 28 62 5f 24  29 3a 7a 5f 3d 6c 61 5f  |b_=.(b_$):z_=la_|
00006ff0  3a e7 6c 62 5f 3e 6c 61  5f 20 7a 5f 3d 6c 62 5f  |:.lb_>la_ z_=lb_|
00007000  0d 28 f0 37 e3 72 5f 3d  7a 5f b8 31 88 2d 31 3a  |.(.7.r_=z_.1.-1:|
00007010  e7 bb 28 c1 61 5f 24 2c  72 5f 2c 31 29 29 2b bb  |..(.a_$,r_,1))+.|
00007020  28 c1 62 5f 24 2c 72 5f  2c 31 29 29 3c 31 30 20  |(.b_$,r_,1))<10 |
00007030  66 6c 61 67 5f 3d 31 0d  28 fa 07 ed 3a e1 0d 29  |flag_=1.(...:..)|
00007040  36 44 dd f2 73 75 62 74  72 61 63 74 3a 57 53 75  |6D..subtract:WSu|
00007050  62 5f 25 3d a4 66 57 53  28 22 53 75 62 74 72 61  |b_%=.fWS("Subtra|
00007060  63 74 22 29 3a e7 73 75  62 62 79 5f 28 31 29 f2  |ct"):.subby_(1).|
00007070  73 49 28 57 53 75 62 5f  25 2c 22 54 61 6b 65 31  |sI(WSub_%,"Take1|
00007080  22 29 0d 29 4a 21 e7 73  75 62 62 79 5f 28 32 29  |").)J!.subby_(2)|
00007090  f2 73 49 28 57 53 75 62  5f 25 2c 22 54 61 6b 65  |.sI(WSub_%,"Take|
000070a0  32 22 29 0d 29 54 21 e7  73 75 62 62 79 5f 28 33  |2").)T!.subby_(3|
000070b0  29 f2 73 49 28 57 53 75  62 5f 25 2c 22 54 61 6b  |).sI(WSub_%,"Tak|
000070c0  65 33 22 29 0d 29 5e 21  e7 73 75 62 62 79 5f 28  |e3").)^!.subby_(|
000070d0  34 29 f2 73 49 28 57 53  75 62 5f 25 2c 22 54 61  |4).sI(WSub_%,"Ta|
000070e0  6b 65 34 22 29 0d 29 68  21 e7 73 75 62 62 79 5f  |ke4").)h!.subby_|
000070f0  28 35 29 f2 73 49 28 57  53 75 62 5f 25 2c 22 54  |(5).sI(WSub_%,"T|
00007100  61 6b 65 35 22 29 0d 29  72 21 e7 73 75 62 62 79  |ake5").)r!.subby|
00007110  5f 28 36 29 f2 73 49 28  57 53 75 62 5f 25 2c 22  |_(6).sI(WSub_%,"|
00007120  54 61 6b 65 36 22 29 0d  29 7c 28 e7 73 75 62 63  |Take6").)|(.subc|
00007130  61 72 72 79 5f 28 31 29  f2 73 49 28 57 53 75 62  |arry_(1).sI(WSub|
00007140  5f 25 2c 22 53 75 62 43  61 72 72 79 31 22 29 0d  |_%,"SubCarry1").|
00007150  29 86 28 e7 73 75 62 63  61 72 72 79 5f 28 32 29  |).(.subcarry_(2)|
00007160  f2 73 49 28 57 53 75 62  5f 25 2c 22 53 75 62 43  |.sI(WSub_%,"SubC|
00007170  61 72 72 79 32 22 29 0d  29 90 28 e7 73 75 62 63  |arry2").).(.subc|
00007180  61 72 72 79 5f 28 33 29  f2 73 49 28 57 53 75 62  |arry_(3).sI(WSub|
00007190  5f 25 2c 22 53 75 62 43  61 72 72 79 33 22 29 0d  |_%,"SubCarry3").|
000071a0  29 9a 1f e7 6e 6f 77 74  73 5f 25 f2 73 49 28 57  |)...nowts_%.sI(W|
000071b0  53 75 62 5f 25 2c 22 6e  6f 77 74 73 22 29 0d 29  |Sub_%,"nowts").)|
000071c0  a4 05 e1 0d 29 cc 2e dd  a4 73 75 62 62 79 5f 3a  |....)....subby_:|
000071d0  63 5f 3d 30 3a e3 6d 5f  3d 31 b8 36 3a e7 73 75  |c_=0:.m_=1.6:.su|
000071e0  62 62 79 5f 28 6d 5f 29  3d b9 63 5f 3d 63 5f 2b  |bby_(m_)=.c_=c_+|
000071f0  31 0d 29 d6 09 ed 3a 3d  63 5f 0d 29 e0 48 dd a4  |1.)...:=c_.).H..|
00007200  54 61 6b 65 31 5f 3a e7  73 75 62 62 79 5f 28 31  |Take1_:.subby_(1|
00007210  29 80 a4 73 75 62 62 79  5f 3d 31 20 73 75 62 62  |)..subby_=1 subb|
00007220  79 5f 28 31 29 3d b9 3a  f2 73 49 28 57 53 75 62  |y_(1)=.:.sI(WSub|
00007230  5f 25 2c 22 54 61 6b 65  31 22 29 3a f2 63 7a 3a  |_%,"Take1"):.cz:|
00007240  3d b9 0d 29 ea 25 e7 73  75 62 62 79 5f 28 31 29  |=..).%.subby_(1)|
00007250  73 75 62 62 79 5f 28 31  29 3d a3 8b 73 75 62 62  |subby_(1)=..subb|
00007260  79 5f 28 31 29 3d b9 0d  29 f4 0a f2 63 7a 3a 3d  |y_(1)=..)...cz:=|
00007270  b9 0d 29 fe 48 dd a4 54  61 6b 65 32 5f 3a e7 73  |..).H..Take2_:.s|
00007280  75 62 62 79 5f 28 32 29  80 a4 73 75 62 62 79 5f  |ubby_(2)..subby_|
00007290  3d 31 20 73 75 62 62 79  5f 28 32 29 3d b9 3a f2  |=1 subby_(2)=.:.|
000072a0  73 49 28 57 53 75 62 5f  25 2c 22 54 61 6b 65 32  |sI(WSub_%,"Take2|
000072b0  22 29 3a f2 63 7a 3a 3d  b9 0d 2a 08 25 e7 73 75  |"):.cz:=..*.%.su|
000072c0  62 62 79 5f 28 32 29 73  75 62 62 79 5f 28 32 29  |bby_(2)subby_(2)|
000072d0  3d a3 8b 73 75 62 62 79  5f 28 32 29 3d b9 0d 2a  |=..subby_(2)=..*|
000072e0  12 0a f2 63 7a 3a 3d b9  0d 2a 1c 48 dd a4 54 61  |...cz:=..*.H..Ta|
000072f0  6b 65 33 5f 3a e7 73 75  62 62 79 5f 28 33 29 80  |ke3_:.subby_(3).|
00007300  a4 73 75 62 62 79 5f 3d  31 20 73 75 62 62 79 5f  |.subby_=1 subby_|
00007310  28 33 29 3d b9 3a f2 73  49 28 57 53 75 62 5f 25  |(3)=.:.sI(WSub_%|
00007320  2c 22 54 61 6b 65 33 22  29 3a f2 63 7a 3a 3d b9  |,"Take3"):.cz:=.|
00007330  0d 2a 26 25 e7 73 75 62  62 79 5f 28 33 29 73 75  |.*&%.subby_(3)su|
00007340  62 62 79 5f 28 33 29 3d  a3 8b 73 75 62 62 79 5f  |bby_(3)=..subby_|
00007350  28 33 29 3d b9 0d 2a 30  0a f2 63 7a 3a 3d b9 0d  |(3)=..*0..cz:=..|
00007360  2a 3a 48 dd a4 54 61 6b  65 34 5f 3a e7 73 75 62  |*:H..Take4_:.sub|
00007370  62 79 5f 28 34 29 80 a4  73 75 62 62 79 5f 3d 31  |by_(4)..subby_=1|
00007380  20 73 75 62 62 79 5f 28  34 29 3d b9 3a f2 73 49  | subby_(4)=.:.sI|
00007390  28 57 53 75 62 5f 25 2c  22 54 61 6b 65 34 22 29  |(WSub_%,"Take4")|
000073a0  3a f2 63 7a 3a 3d b9 0d  2a 44 25 e7 73 75 62 62  |:.cz:=..*D%.subb|
000073b0  79 5f 28 34 29 73 75 62  62 79 5f 28 34 29 3d a3  |y_(4)subby_(4)=.|
000073c0  8b 73 75 62 62 79 5f 28  34 29 3d b9 0d 2a 4e 0a  |.subby_(4)=..*N.|
000073d0  f2 63 7a 3a 3d b9 0d 2a  58 48 dd a4 54 61 6b 65  |.cz:=..*XH..Take|
000073e0  35 5f 3a e7 73 75 62 62  79 5f 28 35 29 80 a4 73  |5_:.subby_(5)..s|
000073f0  75 62 62 79 5f 3d 31 20  73 75 62 62 79 5f 28 35  |ubby_=1 subby_(5|
00007400  29 3d b9 3a f2 73 49 28  57 53 75 62 5f 25 2c 22  |)=.:.sI(WSub_%,"|
00007410  54 61 6b 65 35 22 29 3a  f2 63 7a 3a 3d b9 0d 2a  |Take5"):.cz:=..*|
00007420  62 25 e7 73 75 62 62 79  5f 28 35 29 73 75 62 62  |b%.subby_(5)subb|
00007430  79 5f 28 35 29 3d a3 8b  73 75 62 62 79 5f 28 35  |y_(5)=..subby_(5|
00007440  29 3d b9 0d 2a 6c 0a f2  63 7a 3a 3d b9 0d 2a 76  |)=..*l..cz:=..*v|
00007450  48 dd a4 54 61 6b 65 36  5f 3a e7 73 75 62 62 79  |H..Take6_:.subby|
00007460  5f 28 36 29 80 a4 73 75  62 62 79 5f 3d 31 20 73  |_(6)..subby_=1 s|
00007470  75 62 62 79 5f 28 36 29  3d b9 3a f2 73 49 28 57  |ubby_(6)=.:.sI(W|
00007480  53 75 62 5f 25 2c 22 54  61 6b 65 36 22 29 3a f2  |Sub_%,"Take6"):.|
00007490  63 7a 3a 3d b9 0d 2a 80  25 e7 73 75 62 62 79 5f  |cz:=..*.%.subby_|
000074a0  28 36 29 73 75 62 62 79  5f 28 36 29 3d a3 8b 73  |(6)subby_(6)=..s|
000074b0  75 62 62 79 5f 28 36 29  3d b9 0d 2a 8a 0a f2 63  |ubby_(6)=..*...c|
000074c0  7a 3a 3d b9 0d 2a 9e 67  dd a4 53 75 62 43 61 72  |z:=..*.g..SubCar|
000074d0  72 79 31 5f 3a e7 73 75  62 63 61 72 72 79 5f 28  |ry1_:.subcarry_(|
000074e0  31 29 80 73 75 62 63 61  72 72 79 5f 28 32 29 2b  |1).subcarry_(2)+|
000074f0  73 75 62 63 61 72 72 79  5f 28 33 29 3d a3 73 75  |subcarry_(3)=.su|
00007500  62 63 61 72 72 79 5f 28  31 29 3d b9 3a f2 73 49  |bcarry_(1)=.:.sI|
00007510  28 57 53 75 62 5f 25 2c  22 53 75 62 43 61 72 72  |(WSub_%,"SubCarr|
00007520  79 31 22 29 3a f2 63 7a  3a 3d b9 0d 2a a8 af e7  |y1"):.cz:=..*...|
00007530  73 75 62 63 61 72 72 79  5f 28 31 29 3d a3 73 75  |subcarry_(1)=.su|
00007540  62 63 61 72 72 79 5f 28  31 29 3d b9 3a f2 73 49  |bcarry_(1)=.:.sI|
00007550  28 57 53 75 62 5f 25 2c  22 53 75 62 43 61 72 72  |(WSub_%,"SubCarr|
00007560  79 31 22 29 3a 73 75 62  63 61 72 72 79 5f 28 32  |y1"):subcarry_(2|
00007570  29 3d a3 3a f2 75 73 49  28 57 53 75 62 5f 25 2c  |)=.:.usI(WSub_%,|
00007580  22 53 75 62 43 61 72 72  79 32 22 29 3a 73 75 62  |"SubCarry2"):sub|
00007590  63 61 72 72 79 5f 28 33  29 3d a3 3a f2 75 73 49  |carry_(3)=.:.usI|
000075a0  28 57 53 75 62 5f 25 2c  22 53 75 62 43 61 72 72  |(WSub_%,"SubCarr|
000075b0  79 33 22 29 3a 6e 6f 77  74 73 5f 25 3d a3 3a f2  |y3"):nowts_%=.:.|
000075c0  75 73 49 28 57 53 75 62  5f 25 2c 22 6e 6f 77 74  |usI(WSub_%,"nowt|
000075d0  73 22 29 3a f2 63 7a 3a  3d b9 0d 2a b2 67 dd a4  |s"):.cz:=..*.g..|
000075e0  53 75 62 43 61 72 72 79  32 5f 3a e7 73 75 62 63  |SubCarry2_:.subc|
000075f0  61 72 72 79 5f 28 32 29  80 73 75 62 63 61 72 72  |arry_(2).subcarr|
00007600  79 5f 28 31 29 2b 73 75  62 63 61 72 72 79 5f 28  |y_(1)+subcarry_(|
00007610  33 29 3d a3 73 75 62 63  61 72 72 79 5f 28 32 29  |3)=.subcarry_(2)|
00007620  3d b9 3a f2 73 49 28 57  53 75 62 5f 25 2c 22 53  |=.:.sI(WSub_%,"S|
00007630  75 62 43 61 72 72 79 32  22 29 3a f2 63 7a 3a 3d  |ubCarry2"):.cz:=|
00007640  b9 0d 2a bc 90 e7 73 75  62 63 61 72 72 79 5f 28  |..*...subcarry_(|
00007650  32 29 3d a3 73 75 62 63  61 72 72 79 5f 28 32 29  |2)=.subcarry_(2)|
00007660  3d b9 3a f2 73 49 28 57  53 75 62 5f 25 2c 22 53  |=.:.sI(WSub_%,"S|
00007670  75 62 43 61 72 72 79 32  22 29 3a 73 75 62 63 61  |ubCarry2"):subca|
00007680  72 72 79 5f 28 31 29 3d  a3 3a f2 75 73 49 28 57  |rry_(1)=.:.usI(W|
00007690  53 75 62 5f 25 2c 22 53  75 62 43 61 72 72 79 31  |Sub_%,"SubCarry1|
000076a0  22 29 3a 73 75 62 63 61  72 72 79 5f 28 33 29 3d  |"):subcarry_(3)=|
000076b0  a3 3a f2 75 73 49 28 57  53 75 62 5f 25 2c 22 53  |.:.usI(WSub_%,"S|
000076c0  75 62 43 61 72 72 79 33  22 29 3a f2 63 7a 3a 3d  |ubCarry3"):.cz:=|
000076d0  b9 0d 2a c6 67 dd a4 53  75 62 43 61 72 72 79 33  |..*.g..SubCarry3|
000076e0  5f 3a e7 73 75 62 63 61  72 72 79 5f 28 33 29 80  |_:.subcarry_(3).|
000076f0  73 75 62 63 61 72 72 79  5f 28 32 29 2b 73 75 62  |subcarry_(2)+sub|
00007700  63 61 72 72 79 5f 28 33  29 3d a3 73 75 62 63 61  |carry_(3)=.subca|
00007710  72 72 79 5f 28 33 29 3d  b9 3a f2 73 49 28 57 53  |rry_(3)=.:.sI(WS|
00007720  75 62 5f 25 2c 22 53 75  62 43 61 72 72 79 33 22  |ub_%,"SubCarry3"|
00007730  29 3a f2 63 7a 3a 3d b9  0d 2a d0 90 e7 73 75 62  |):.cz:=..*...sub|
00007740  63 61 72 72 79 5f 28 33  29 3d a3 73 75 62 63 61  |carry_(3)=.subca|
00007750  72 72 79 5f 28 33 29 3d  b9 3a f2 73 49 28 57 53  |rry_(3)=.:.sI(WS|
00007760  75 62 5f 25 2c 22 53 75  62 43 61 72 72 79 33 22  |ub_%,"SubCarry3"|
00007770  29 3a 73 75 62 63 61 72  72 79 5f 28 31 29 3d a3  |):subcarry_(1)=.|
00007780  3a f2 75 73 49 28 57 53  75 62 5f 25 2c 22 53 75  |:.usI(WSub_%,"Su|
00007790  62 43 61 72 72 79 31 22  29 3a 73 75 62 63 61 72  |bCarry1"):subcar|
000077a0  72 79 5f 28 32 29 3d a3  3a f2 75 73 49 28 57 53  |ry_(2)=.:.usI(WS|
000077b0  75 62 5f 25 2c 22 53 75  62 43 61 72 72 79 32 22  |ub_%,"SubCarry2"|
000077c0  29 3a f2 63 7a 3a 3d b9  0d 2a da 04 0d 2a e4 3b  |):.cz:=..*...*.;|
000077d0  dd a4 6e 6f 77 74 73 5f  3a e7 73 75 62 63 61 72  |..nowts_:.subcar|
000077e0  72 79 5f 28 31 29 6e 6f  77 74 73 5f 25 3d a3 3a  |ry_(1)nowts_%=.:|
000077f0  f2 75 73 49 28 57 53 75  62 5f 25 2c 22 6e 6f 77  |.usI(WSub_%,"now|
00007800  74 73 22 29 3a 3d a3 0d  2a ee 54 e7 6e 6f 77 74  |ts"):=..*.T.nowt|
00007810  73 5f 25 3d a3 6e 6f 77  74 73 5f 25 3d b9 3a f2  |s_%=.nowts_%=.:.|
00007820  73 49 28 57 53 75 62 5f  25 2c 22 6e 6f 77 74 73  |sI(WSub_%,"nowts|
00007830  22 29 8b e7 6e 6f 77 74  73 5f 25 3d b9 6e 6f 77  |")..nowts_%=.now|
00007840  74 73 5f 25 3d a3 3a f2  75 73 49 28 57 53 75 62  |ts_%=.:.usI(WSub|
00007850  5f 25 2c 22 6e 6f 77 74  73 22 29 0d 2a f8 0a f2  |_%,"nowts").*...|
00007860  63 7a 3a 3d b9 0d 2b 0c  2f dd f2 63 7a 3a 7a 5f  |cz:=..+./..cz:z_|
00007870  25 3d 30 3a e3 67 5f 25  3d 31 b8 36 3a e7 73 75  |%=0:.g_%=1.6:.su|
00007880  62 62 79 5f 28 67 5f 25  29 3d b9 7a 5f 25 3d 7a  |bby_(g_%)=.z_%=z|
00007890  5f 25 2b 31 0d 2b 16 ad  ed 3a e7 7a 5f 25 3d 31  |_%+1.+...:.z_%=1|
000078a0  80 73 75 62 62 79 5f 28  31 29 3d b9 6e 6f 77 74  |.subby_(1)=.nowt|
000078b0  73 5f 25 3d a3 3a f2 75  73 49 28 57 53 75 62 5f  |s_%=.:.usI(WSub_|
000078c0  25 2c 22 6e 6f 77 74 73  22 29 3a 73 75 62 63 61  |%,"nowts"):subca|
000078d0  72 72 79 5f 28 31 29 3d  b9 3a f2 73 49 28 57 53  |rry_(1)=.:.sI(WS|
000078e0  75 62 5f 25 2c 22 53 75  62 43 61 72 72 79 31 22  |ub_%,"SubCarry1"|
000078f0  29 3a 73 75 62 63 61 72  72 79 5f 28 32 29 3d a3  |):subcarry_(2)=.|
00007900  3a f2 75 73 49 28 57 53  75 62 5f 25 2c 22 53 75  |:.usI(WSub_%,"Su|
00007910  62 43 61 72 72 79 32 22  29 3a 73 75 62 63 61 72  |bCarry2"):subcar|
00007920  72 79 5f 28 33 29 3d a3  3a f2 75 73 49 28 57 53  |ry_(3)=.:.usI(WS|
00007930  75 62 5f 25 2c 22 53 75  62 43 61 72 72 79 33 22  |ub_%,"SubCarry3"|
00007940  29 0d 2b 20 05 e1 0d 2b  48 85 dd a4 54 61 6b 65  |).+ ...+H...Take|
00007950  67 6f 5f 3a f2 47 65 74  54 69 74 6c 65 73 3a f2  |go_:.GetTitles:.|
00007960  77 68 61 74 74 61 6b 65  73 3a f2 74 61 6b 65 75  |whattakes:.takeu|
00007970  70 3a 6c 61 73 74 5f 3d  33 3a 71 75 69 74 5f 3d  |p:last_=3:quit_=|
00007980  a3 3a 43 6c 75 65 5f 24  3d 22 53 75 62 31 61 22  |.:Clue_$="Sub1a"|
00007990  3a 73 74 61 72 74 65 64  5f 25 3d b9 3a c8 99 22  |:started_%=.:.."|
000079a0  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 3a f2  |Hourglass_Off":.|
000079b0  75 73 49 28 57 53 75 62  5f 25 2c 22 54 61 6b 65  |usI(WSub_%,"Take|
000079c0  67 6f 22 29 3a 3d a4 73  75 6d 73 0d 2b 8e 5c dd  |go"):=.sums.+.\.|
000079d0  f2 77 68 61 74 74 61 6b  65 73 3a 67 6f 74 5f 25  |.whattakes:got_%|
000079e0  3d 30 3a e3 72 5f 3d 31  b8 36 3a e7 73 75 62 62  |=0:.r_=1.6:.subb|
000079f0  79 5f 28 72 5f 29 67 6f  74 5f 25 3d 67 6f 74 5f  |y_(r_)got_%=got_|
00007a00  25 2b 31 3a 73 75 62 62  79 74 79 70 65 5f 28 67  |%+1:subbytype_(g|
00007a10  6f 74 5f 25 29 3d 72 5f  3a 67 63 5f 25 28 67 6f  |ot_%)=r_:gc_%(go|
00007a20  74 5f 25 29 3d 72 5f 0d  2b a2 3b ed 3a e7 67 6f  |t_%)=r_.+.;.:.go|
00007a30  74 5f 25 3d 31 e3 72 5f  3d 31 b8 31 32 3a 6c 69  |t_%=1.r_=1.12:li|
00007a40  6e 65 73 75 62 62 79 5f  28 72 5f 29 3d 73 75 62  |nesubby_(r_)=sub|
00007a50  62 79 74 79 70 65 5f 28  67 6f 74 5f 25 29 3a ed  |bytype_(got_%):.|
00007a60  3a e1 0d 2b b6 5d e7 67  6f 74 5f 25 3d 36 f2 74  |:..+.].got_%=6.t|
00007a70  69 6d 65 73 28 67 6f 74  5f 25 2c 31 32 29 3a e3  |imes(got_%,12):.|
00007a80  72 5f 3d 31 b8 31 32 3a  6c 69 6e 65 73 75 62 62  |r_=1.12:linesubb|
00007a90  79 5f 28 72 5f 29 3d 67  63 5f 25 28 66 69 6e 64  |y_(r_)=gc_%(find|
00007aa0  65 72 5f 25 28 72 5f 29  29 3a ed 3a c8 99 22 48  |er_%(r_)):.:.."H|
00007ab0  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 3a e1 0d  |ourglass_Off":..|
00007ac0  2b c0 a8 6e 65 65 64 65  64 5f 25 3d 31 32 81 67  |+..needed_%=12.g|
00007ad0  6f 74 5f 25 3a f5 3a e3  72 5f 3d 31 b8 31 32 3a  |ot_%:.:.r_=1.12:|
00007ae0  66 69 6e 64 65 72 5f 25  28 72 5f 29 3d 30 3a ed  |finder_%(r_)=0:.|
00007af0  3a 66 6c 61 67 5f 3d b9  3a e3 72 5f 3d 31 b8 31  |:flag_=.:.r_=1.1|
00007b00  32 3a c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 50  |2:.."Hourglass_P|
00007b10  65 72 63 65 6e 74 61 67  65 22 2c 72 5f 2f 31 32  |ercentage",r_/12|
00007b20  2a 31 30 30 3a f5 3a 66  6c 69 67 5f 3d b9 3a 72  |*100:.:flig_=.:r|
00007b30  61 6e 5f 25 3d b3 28 67  6f 74 5f 25 29 3a e7 72  |an_%=.(got_%):.r|
00007b40  5f 3e 31 80 67 63 5f 25  28 72 61 6e 5f 25 29 3d  |_>1.gc_%(ran_%)=|
00007b50  6c 69 6e 65 73 75 62 62  79 5f 28 72 5f 2d 31 29  |linesubby_(r_-1)|
00007b60  66 6c 69 67 5f 3d a3 0d  2c 24 76 fd 66 6c 69 67  |flig_=..,$v.flig|
00007b70  5f 3d b9 3a 6c 69 6e 65  73 75 62 62 79 5f 28 72  |_=.:linesubby_(r|
00007b80  5f 29 3d 67 63 5f 25 28  72 61 6e 5f 25 29 3a 66  |_)=gc_%(ran_%):f|
00007b90  69 6e 64 65 72 5f 25 28  72 61 6e 5f 25 29 3d 66  |inder_%(ran_%)=f|
00007ba0  69 6e 64 65 72 5f 25 28  72 61 6e 5f 25 29 2b 31  |inder_%(ran_%)+1|
00007bb0  3a ed 3a e3 74 5f 3d 31  b8 67 6f 74 5f 25 3a e7  |:.:.t_=1.got_%:.|
00007bc0  66 69 6e 64 65 72 5f 25  28 74 5f 29 3c 6e 65 65  |finder_%(t_)<nee|
00007bd0  64 65 64 5f 25 20 66 6c  61 67 5f 3d a3 0d 2c 42  |ded_% flag_=..,B|
00007be0  22 ed 3a fd 66 6c 61 67  5f 3d b9 3a c8 99 22 48  |".:.flag_=.:.."H|
00007bf0  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 3a e1 0d  |ourglass_Off":..|
00007c00  2c 60 6c dd f2 74 61 6b  65 75 70 3a 64 75 6d 6d  |,`l..takeup:dumm|
00007c10  79 5f 3d b3 28 2d 91 29  3a e3 74 5f 3d 31 b8 31  |y_=.(-.):.t_=1.1|
00007c20  32 3a 61 5f 28 74 5f 29  3d 2d 31 3a 62 5f 28 74  |2:a_(t_)=-1:b_(t|
00007c30  5f 29 3d 2d 31 3a ed 3a  c8 99 22 48 6f 75 72 67  |_)=-1:.:.."Hourg|
00007c40  6c 61 73 73 5f 4f 6e 22  3a e3 74 5f 3d 31 b8 31  |lass_On":.t_=1.1|
00007c50  32 3a e7 6c 69 6e 65 73  75 62 62 79 5f 28 74 5f  |2:.linesubby_(t_|
00007c60  29 3d 31 20 72 61 6e 5f  25 3d 39 0d 2c 92 1e e7  |)=1 ran_%=9.,...|
00007c70  6c 69 6e 65 73 75 62 62  79 5f 28 74 5f 29 3d 32  |linesubby_(t_)=2|
00007c80  20 72 61 6e 5f 25 3d 39  39 0d 2c 9c 1f e7 6c 69  | ran_%=99.,...li|
00007c90  6e 65 73 75 62 62 79 5f  28 74 5f 29 3d 33 20 72  |nesubby_(t_)=3 r|
00007ca0  61 6e 5f 25 3d 39 39 39  0d 2c a6 20 e7 6c 69 6e  |an_%=999.,. .lin|
00007cb0  65 73 75 62 62 79 5f 28  74 5f 29 3d 34 20 72 61  |esubby_(t_)=4 ra|
00007cc0  6e 5f 25 3d 39 39 39 39  0d 2c b0 21 e7 6c 69 6e  |n_%=9999.,.!.lin|
00007cd0  65 73 75 62 62 79 5f 28  74 5f 29 3d 35 20 72 61  |esubby_(t_)=5 ra|
00007ce0  6e 5f 25 3d 39 39 39 39  39 0d 2c ba 22 e7 6c 69  |n_%=99999.,.".li|
00007cf0  6e 65 73 75 62 62 79 5f  28 74 5f 29 3d 36 20 72  |nesubby_(t_)=6 r|
00007d00  61 6e 5f 25 3d 39 39 39  39 39 39 0d 2c c4 75 c8  |an_%=999999.,.u.|
00007d10  99 22 48 6f 75 72 67 6c  61 73 73 5f 50 65 72 63  |."Hourglass_Perc|
00007d20  65 6e 74 61 67 65 22 2c  74 5f 2f 31 30 2a 31 30  |entage",t_/10*10|
00007d30  30 3a f5 3a 66 6c 61 67  5f 3d 30 3a f5 3a 61 5f  |0:.:flag_=0:.:a_|
00007d40  3d b3 28 72 61 6e 5f 25  29 3a f2 6e 6f 75 67 68  |=.(ran_%):.nough|
00007d50  74 73 3a 62 5f 3d b3 28  72 61 6e 5f 25 29 3a fd  |ts:b_=.(ran_%):.|
00007d60  61 5f 3e 62 5f 3a e7 73  75 62 63 61 72 72 79 5f  |a_>b_:.subcarry_|
00007d70  28 31 29 3d b9 f2 6e 6f  73 75 62 63 61 72 72 79  |(1)=..nosubcarry|
00007d80  0d 2c f6 1f e7 73 75 62  63 61 72 72 79 5f 28 32  |.,...subcarry_(2|
00007d90  29 3d b9 f2 61 6c 6c 73  75 62 63 61 72 72 79 0d  |)=..allsubcarry.|
00007da0  2d 00 0a e7 74 5f 3e 31  8c 0d 2d 0a 2a e3 65 5f  |-...t_>1..-.*.e_|
00007db0  3d 31 b8 74 5f 2d 31 3a  e7 61 5f 3d 61 5f 28 65  |=1.t_-1:.a_=a_(e|
00007dc0  5f 29 80 62 5f 3d 62 5f  28 65 5f 29 66 6c 61 67  |_).b_=b_(e_)flag|
00007dd0  5f 3d 31 0d 2d 14 05 ed  0d 2d 1e 33 cd 3a fd 66  |_=1.-....-.3.:.f|
00007de0  6c 61 67 5f 3d 30 3a 61  5f 28 74 5f 29 3d 61 5f  |lag_=0:a_(t_)=a_|
00007df0  3a 62 5f 28 74 5f 29 3d  62 5f 3a 63 5f 28 74 5f  |:b_(t_)=b_:c_(t_|
00007e00  29 3d 61 5f 2d 62 5f 3a  ed 3a e1 0d 2d 5a 40 dd  |)=a_-b_:.:..-Z@.|
00007e10  f2 6e 6f 73 75 62 63 61  72 72 79 3a 61 5f 24 3d  |.nosubcarry:a_$=|
00007e20  c3 28 61 5f 29 3a 62 5f  24 3d c3 28 62 5f 29 3a  |.(a_):b_$=.(b_):|
00007e30  e3 72 5f 3d 31 b8 a9 28  61 5f 24 29 3a f2 63 68  |.r_=1..(a_$):.ch|
00007e40  65 63 6b 76 61 6c 6c 3a  ed 3a e1 0d 2d 82 4d dd  |eckvall:.:..-.M.|
00007e50  f2 61 6c 6c 73 75 62 63  61 72 72 79 3a 61 5f 24  |.allsubcarry:a_$|
00007e60  3d c3 28 61 5f 29 3a 62  5f 24 3d c3 28 62 5f 29  |=.(a_):b_$=.(b_)|
00007e70  3a 7a 7a 5f 3d a9 28 61  5f 24 29 3a e3 72 5f 3d  |:zz_=.(a_$):.r_=|
00007e80  7a 7a 5f b8 31 88 2d 31  3a e7 72 5f 3c 3e 31 f2  |zz_.1.-1:.r_<>1.|
00007e90  63 68 65 63 6b 76 61 6c  0d 2d a0 07 ed 3a e1 0d  |checkval.-...:..|
00007ea0  2d b4 33 dd f2 63 68 65  63 6b 76 61 6c 3a e7 bb  |-.3..checkval:..|
00007eb0  28 c1 62 5f 24 2c 72 5f  2c 31 29 29 3c 3d bb 28  |(.b_$,r_,1))<=.(|
00007ec0  c1 61 5f 24 2c 72 5f 2c  31 29 29 66 6c 61 67 5f  |.a_$,r_,1))flag_|
00007ed0  3d 31 0d 2d be 05 e1 0d  2d d2 34 dd f2 63 68 65  |=1.-....-.4..che|
00007ee0  63 6b 76 61 6c 6c 3a e7  bb 28 c1 61 5f 24 2c 72  |ckvall:..(.a_$,r|
00007ef0  5f 2c 31 29 29 3c 3d bb  28 c1 62 5f 24 2c 72 5f  |_,1))<=.(.b_$,r_|
00007f00  2c 31 29 29 66 6c 61 67  5f 3d 31 0d 2d dc 05 e1  |,1))flag_=1.-...|
00007f10  0d 2d f0 19 dd f2 6e 6f  75 67 68 74 73 3a e7 6e  |.-....noughts:.n|
00007f20  6f 77 74 73 5f 25 3d a3  e1 0d 2d fa 45 76 5f 24  |owts_%=...-.Ev_$|
00007f30  3d c3 28 61 5f 29 3a e3  77 5f 3d 32 b8 a9 28 76  |=.(a_):.w_=2..(v|
00007f40  5f 24 29 3a 72 72 5f 3d  b3 28 34 29 3a e7 72 72  |_$):rr_=.(4):.rr|
00007f50  5f 3d 31 84 72 72 5f 3d  32 84 72 72 5f 3d 33 8c  |_=1.rr_=2.rr_=3.|
00007f60  c1 76 5f 24 2c 77 5f 2c  31 29 3d 22 30 22 0d 2e  |.v_$,w_,1)="0"..|
00007f70  0e 11 ed 3a 61 5f 3d bb  28 76 5f 24 29 3a e1 0d  |...:a_=.(v_$):..|
00007f80  2e 4a 47 dd f2 6d 75 6c  74 69 70 6c 79 3a 57 4d  |.JG..multiply:WM|
00007f90  75 6c 74 5f 25 3d a4 66  57 53 28 22 4d 75 6c 74  |ult_%=.fWS("Mult|
00007fa0  69 70 6c 79 22 29 3a e7  6d 75 6c 74 79 5f 28 31  |iply"):.multy_(1|
00007fb0  29 f2 73 49 28 57 4d 75  6c 74 5f 25 2c 22 4d 75  |).sI(WMult_%,"Mu|
00007fc0  6c 74 79 31 22 29 0d 2e  5e 23 e7 6d 75 6c 74 79  |lty1")..^#.multy|
00007fd0  5f 28 32 29 f2 73 49 28  57 4d 75 6c 74 5f 25 2c  |_(2).sI(WMult_%,|
00007fe0  22 4d 75 6c 74 79 32 22  29 0d 2e 68 23 e7 6d 75  |"Multy2")..h#.mu|
00007ff0  6c 74 79 5f 28 33 29 f2  73 49 28 57 4d 75 6c 74  |lty_(3).sI(WMult|
00008000  5f 25 2c 22 4d 75 6c 74  79 33 22 29 0d 2e 72 23  |_%,"Multy3")..r#|
00008010  e7 6d 75 6c 74 79 5f 28  34 29 f2 73 49 28 57 4d  |.multy_(4).sI(WM|
00008020  75 6c 74 5f 25 2c 22 4d  75 6c 74 79 34 22 29 0d  |ult_%,"Multy4").|
00008030  2e 7c 23 e7 6d 75 6c 74  79 5f 28 35 29 f2 73 49  |.|#.multy_(5).sI|
00008040  28 57 4d 75 6c 74 5f 25  2c 22 4d 75 6c 74 79 35  |(WMult_%,"Multy5|
00008050  22 29 0d 2e 86 23 e7 6d  75 6c 74 79 5f 28 36 29  |")...#.multy_(6)|
00008060  f2 73 49 28 57 4d 75 6c  74 5f 25 2c 22 4d 75 6c  |.sI(WMult_%,"Mul|
00008070  74 79 36 22 29 0d 2e 90  21 e7 6d 75 6c 74 5f 28  |ty6")...!.mult_(|
00008080  31 29 f2 73 49 28 57 4d  75 6c 74 5f 25 2c 22 6d  |1).sI(WMult_%,"m|
00008090  75 6c 74 31 22 29 0d 2e  9a 21 e7 6d 75 6c 74 5f  |ult1")...!.mult_|
000080a0  28 32 29 f2 73 49 28 57  4d 75 6c 74 5f 25 2c 22  |(2).sI(WMult_%,"|
000080b0  6d 75 6c 74 32 22 29 0d  2e a4 21 e7 6d 75 6c 74  |mult2")...!.mult|
000080c0  5f 28 33 29 f2 73 49 28  57 4d 75 6c 74 5f 25 2c  |_(3).sI(WMult_%,|
000080d0  22 6d 75 6c 74 33 22 29  0d 2e ae 21 e7 6d 75 6c  |"mult3")...!.mul|
000080e0  74 5f 28 34 29 f2 73 49  28 57 4d 75 6c 74 5f 25  |t_(4).sI(WMult_%|
000080f0  2c 22 6d 75 6c 74 34 22  29 0d 2e b8 21 e7 6d 75  |,"mult4")...!.mu|
00008100  6c 74 5f 28 35 29 f2 73  49 28 57 4d 75 6c 74 5f  |lt_(5).sI(WMult_|
00008110  25 2c 22 6d 75 6c 74 35  22 29 0d 2e c2 21 e7 6d  |%,"mult5")...!.m|
00008120  75 6c 74 5f 28 36 29 f2  73 49 28 57 4d 75 6c 74  |ult_(6).sI(WMult|
00008130  5f 25 2c 22 6d 75 6c 74  36 22 29 0d 2e cc 21 e7  |_%,"mult6")...!.|
00008140  6d 75 6c 74 5f 28 37 29  f2 73 49 28 57 4d 75 6c  |mult_(7).sI(WMul|
00008150  74 5f 25 2c 22 6d 75 6c  74 37 22 29 0d 2e d6 21  |t_%,"mult7")...!|
00008160  e7 6d 75 6c 74 5f 28 38  29 f2 73 49 28 57 4d 75  |.mult_(8).sI(WMu|
00008170  6c 74 5f 25 2c 22 6d 75  6c 74 38 22 29 0d 2e e0  |lt_%,"mult8")...|
00008180  21 e7 6d 75 6c 74 5f 28  39 29 f2 73 49 28 57 4d  |!.mult_(9).sI(WM|
00008190  75 6c 74 5f 25 2c 22 6d  75 6c 74 39 22 29 0d 2e  |ult_%,"mult9")..|
000081a0  ea 22 e7 4d 6e 6f 77 74  73 5f 25 f2 73 49 28 57  |.".Mnowts_%.sI(W|
000081b0  4d 75 6c 74 5f 25 2c 22  4d 6e 6f 77 74 73 22 29  |Mult_%,"Mnowts")|
000081c0  0d 2e f4 05 e1 0d 2f 1c  2e dd a4 4d 6e 6f 77 74  |....../....Mnowt|
000081d0  73 5f 3a e7 4d 6e 6f 77  74 73 5f 25 3d a3 4d 6e  |s_:.Mnowts_%=.Mn|
000081e0  6f 77 74 73 5f 25 3d b9  8b 4d 6e 6f 77 74 73 5f  |owts_%=..Mnowts_|
000081f0  25 3d a3 0d 2f 26 0b f2  4d 63 7a 3a 3d b9 0d 2f  |%=../&..Mcz:=../|
00008200  3a 40 dd f2 4d 63 7a 3a  e7 6d 75 6c 74 79 5f 28  |:@..Mcz:.multy_(|
00008210  31 29 80 a4 6d 75 6c 74  79 5f 3d 31 20 4d 6e 6f  |1)..multy_=1 Mno|
00008220  77 74 73 5f 25 3d a3 3a  f2 75 73 49 28 57 4d 75  |wts_%=.:.usI(WMu|
00008230  6c 74 5f 25 2c 22 4d 6e  6f 77 74 73 22 29 0d 2f  |lt_%,"Mnowts")./|
00008240  44 05 e1 0d 2f 58 2e dd  a4 6d 75 6c 74 79 5f 3a  |D.../X...multy_:|
00008250  63 5f 3d 30 3a e3 6d 5f  3d 31 b8 36 3a e7 6d 75  |c_=0:.m_=1.6:.mu|
00008260  6c 74 79 5f 28 6d 5f 29  3d b9 63 5f 3d 63 5f 2b  |lty_(m_)=.c_=c_+|
00008270  31 0d 2f 62 09 ed 3a 3d  63 5f 0d 2f 6c 47 dd a4  |1./b..:=c_./lG..|
00008280  4d 75 6c 74 79 31 5f 3a  e7 6d 75 6c 74 79 5f 28  |Multy1_:.multy_(|
00008290  31 29 80 a4 6d 75 6c 74  79 5f 3d 31 20 6d 75 6c  |1)..multy_=1 mul|
000082a0  74 79 5f 28 31 29 3d b9  3a f2 73 49 28 57 4d 75  |ty_(1)=.:.sI(WMu|
000082b0  6c 74 5f 25 2c 22 4d 75  6c 74 79 31 22 29 3a 3d  |lt_%,"Multy1"):=|
000082c0  b9 0d 2f 76 25 e7 6d 75  6c 74 79 5f 28 31 29 6d  |../v%.multy_(1)m|
000082d0  75 6c 74 79 5f 28 31 29  3d a3 8b 6d 75 6c 74 79  |ulty_(1)=..multy|
000082e0  5f 28 31 29 3d b9 0d 2f  80 0b f2 4d 63 7a 3a 3d  |_(1)=../...Mcz:=|
000082f0  b9 0d 2f 8a 47 dd a4 4d  75 6c 74 79 32 5f 3a e7  |../.G..Multy2_:.|
00008300  6d 75 6c 74 79 5f 28 32  29 80 a4 6d 75 6c 74 79  |multy_(2)..multy|
00008310  5f 3d 31 20 6d 75 6c 74  79 5f 28 32 29 3d b9 3a  |_=1 multy_(2)=.:|
00008320  f2 73 49 28 57 4d 75 6c  74 5f 25 2c 22 4d 75 6c  |.sI(WMult_%,"Mul|
00008330  74 79 32 22 29 3a 3d b9  0d 2f 94 25 e7 6d 75 6c  |ty2"):=../.%.mul|
00008340  74 79 5f 28 32 29 6d 75  6c 74 79 5f 28 32 29 3d  |ty_(2)multy_(2)=|
00008350  a3 8b 6d 75 6c 74 79 5f  28 32 29 3d b9 0d 2f 9e  |..multy_(2)=../.|
00008360  0b f2 4d 63 7a 3a 3d b9  0d 2f a8 47 dd a4 4d 75  |..Mcz:=../.G..Mu|
00008370  6c 74 79 33 5f 3a e7 6d  75 6c 74 79 5f 28 33 29  |lty3_:.multy_(3)|
00008380  80 a4 6d 75 6c 74 79 5f  3d 31 20 6d 75 6c 74 79  |..multy_=1 multy|
00008390  5f 28 33 29 3d b9 3a f2  73 49 28 57 4d 75 6c 74  |_(3)=.:.sI(WMult|
000083a0  5f 25 2c 22 4d 75 6c 74  79 33 22 29 3a 3d b9 0d  |_%,"Multy3"):=..|
000083b0  2f b2 25 e7 6d 75 6c 74  79 5f 28 33 29 6d 75 6c  |/.%.multy_(3)mul|
000083c0  74 79 5f 28 33 29 3d a3  8b 6d 75 6c 74 79 5f 28  |ty_(3)=..multy_(|
000083d0  33 29 3d b9 0d 2f bc 0b  f2 4d 63 7a 3a 3d b9 0d  |3)=../...Mcz:=..|
000083e0  2f c6 47 dd a4 4d 75 6c  74 79 34 5f 3a e7 6d 75  |/.G..Multy4_:.mu|
000083f0  6c 74 79 5f 28 34 29 80  a4 6d 75 6c 74 79 5f 3d  |lty_(4)..multy_=|
00008400  31 20 6d 75 6c 74 79 5f  28 34 29 3d b9 3a f2 73  |1 multy_(4)=.:.s|
00008410  49 28 57 4d 75 6c 74 5f  25 2c 22 4d 75 6c 74 79  |I(WMult_%,"Multy|
00008420  34 22 29 3a 3d b9 0d 2f  d0 25 e7 6d 75 6c 74 79  |4"):=../.%.multy|
00008430  5f 28 34 29 6d 75 6c 74  79 5f 28 34 29 3d a3 8b  |_(4)multy_(4)=..|
00008440  6d 75 6c 74 79 5f 28 34  29 3d b9 0d 2f da 0b f2  |multy_(4)=../...|
00008450  4d 63 7a 3a 3d b9 0d 2f  e4 47 dd a4 4d 75 6c 74  |Mcz:=../.G..Mult|
00008460  79 35 5f 3a e7 6d 75 6c  74 79 5f 28 35 29 80 a4  |y5_:.multy_(5)..|
00008470  6d 75 6c 74 79 5f 3d 31  20 6d 75 6c 74 79 5f 28  |multy_=1 multy_(|
00008480  35 29 3d b9 3a f2 73 49  28 57 4d 75 6c 74 5f 25  |5)=.:.sI(WMult_%|
00008490  2c 22 4d 75 6c 74 79 35  22 29 3a 3d b9 0d 2f ee  |,"Multy5"):=../.|
000084a0  25 e7 6d 75 6c 74 79 5f  28 35 29 6d 75 6c 74 79  |%.multy_(5)multy|
000084b0  5f 28 35 29 3d a3 8b 6d  75 6c 74 79 5f 28 35 29  |_(5)=..multy_(5)|
000084c0  3d b9 0d 2f f8 0b f2 4d  63 7a 3a 3d b9 0d 30 02  |=../...Mcz:=..0.|
000084d0  47 dd a4 4d 75 6c 74 79  36 5f 3a e7 6d 75 6c 74  |G..Multy6_:.mult|
000084e0  79 5f 28 36 29 80 a4 6d  75 6c 74 79 5f 3d 31 20  |y_(6)..multy_=1 |
000084f0  6d 75 6c 74 79 5f 28 36  29 3d b9 3a f2 73 49 28  |multy_(6)=.:.sI(|
00008500  57 4d 75 6c 74 5f 25 2c  22 4d 75 6c 74 79 36 22  |WMult_%,"Multy6"|
00008510  29 3a 3d b9 0d 30 0c 25  e7 6d 75 6c 74 79 5f 28  |):=..0.%.multy_(|
00008520  36 29 6d 75 6c 74 79 5f  28 36 29 3d a3 8b 6d 75  |6)multy_(6)=..mu|
00008530  6c 74 79 5f 28 36 29 3d  b9 0d 30 16 0b f2 4d 63  |lty_(6)=..0...Mc|
00008540  7a 3a 3d b9 0d 30 20 2c  dd a4 6d 75 6c 74 5f 3a  |z:=..0 ,..mult_:|
00008550  63 5f 3d 30 3a e3 6d 5f  3d 31 b8 39 3a e7 6d 75  |c_=0:.m_=1.9:.mu|
00008560  6c 74 5f 28 6d 5f 29 3d  b9 63 5f 3d 63 5f 2b 31  |lt_(m_)=.c_=c_+1|
00008570  0d 30 2a 09 ed 3a 3d 63  5f 0d 30 34 41 dd a4 6d  |.0*..:=c_.04A..m|
00008580  75 6c 74 31 5f 3a e7 6d  75 6c 74 5f 28 31 29 80  |ult1_:.mult_(1).|
00008590  a4 6d 75 6c 74 5f 3d 31  6d 75 6c 74 5f 28 31 29  |.mult_=1mult_(1)|
000085a0  3d b9 3a f2 73 49 28 57  4d 75 6c 74 5f 25 2c 22  |=.:.sI(WMult_%,"|
000085b0  6d 75 6c 74 31 22 29 3a  3d b9 0d 30 3e 22 e7 6d  |mult1"):=..0>".m|
000085c0  75 6c 74 5f 28 31 29 6d  75 6c 74 5f 28 31 29 3d  |ult_(1)mult_(1)=|
000085d0  a3 8b 6d 75 6c 74 5f 28  31 29 3d b9 0d 30 48 06  |..mult_(1)=..0H.|
000085e0  3d b9 0d 30 52 42 dd a4  6d 75 6c 74 32 5f 3a e7  |=..0RB..mult2_:.|
000085f0  6d 75 6c 74 5f 28 32 29  80 a4 6d 75 6c 74 5f 3d  |mult_(2)..mult_=|
00008600  31 20 6d 75 6c 74 5f 28  32 29 3d b9 3a f2 73 49  |1 mult_(2)=.:.sI|
00008610  28 57 4d 75 6c 74 5f 25  2c 22 6d 75 6c 74 32 22  |(WMult_%,"mult2"|
00008620  29 3a 3d b9 0d 30 5c 22  e7 6d 75 6c 74 5f 28 32  |):=..0\".mult_(2|
00008630  29 6d 75 6c 74 5f 28 32  29 3d a3 8b 6d 75 6c 74  |)mult_(2)=..mult|
00008640  5f 28 32 29 3d b9 0d 30  66 06 3d b9 0d 30 70 42  |_(2)=..0f.=..0pB|
00008650  dd a4 6d 75 6c 74 33 5f  3a e7 6d 75 6c 74 5f 28  |..mult3_:.mult_(|
00008660  33 29 80 a4 6d 75 6c 74  5f 3d 31 20 6d 75 6c 74  |3)..mult_=1 mult|
00008670  5f 28 33 29 3d b9 3a f2  73 49 28 57 4d 75 6c 74  |_(3)=.:.sI(WMult|
00008680  5f 25 2c 22 6d 75 6c 74  33 22 29 3a 3d b9 0d 30  |_%,"mult3"):=..0|
00008690  7a 22 e7 6d 75 6c 74 5f  28 33 29 6d 75 6c 74 5f  |z".mult_(3)mult_|
000086a0  28 33 29 3d a3 8b 6d 75  6c 74 5f 28 33 29 3d b9  |(3)=..mult_(3)=.|
000086b0  0d 30 84 06 3d b9 0d 30  8e 42 dd a4 6d 75 6c 74  |.0..=..0.B..mult|
000086c0  34 5f 3a e7 6d 75 6c 74  5f 28 34 29 80 a4 6d 75  |4_:.mult_(4)..mu|
000086d0  6c 74 5f 3d 31 20 6d 75  6c 74 5f 28 34 29 3d b9  |lt_=1 mult_(4)=.|
000086e0  3a f2 73 49 28 57 4d 75  6c 74 5f 25 2c 22 6d 75  |:.sI(WMult_%,"mu|
000086f0  6c 74 34 22 29 3a 3d b9  0d 30 98 22 e7 6d 75 6c  |lt4"):=..0.".mul|
00008700  74 5f 28 34 29 6d 75 6c  74 5f 28 34 29 3d a3 8b  |t_(4)mult_(4)=..|
00008710  6d 75 6c 74 5f 28 34 29  3d b9 0d 30 a2 06 3d b9  |mult_(4)=..0..=.|
00008720  0d 30 ac 42 dd a4 6d 75  6c 74 35 5f 3a e7 6d 75  |.0.B..mult5_:.mu|
00008730  6c 74 5f 28 35 29 80 a4  6d 75 6c 74 5f 3d 31 20  |lt_(5)..mult_=1 |
00008740  6d 75 6c 74 5f 28 35 29  3d b9 3a f2 73 49 28 57  |mult_(5)=.:.sI(W|
00008750  4d 75 6c 74 5f 25 2c 22  6d 75 6c 74 35 22 29 3a  |Mult_%,"mult5"):|
00008760  3d b9 0d 30 b6 22 e7 6d  75 6c 74 5f 28 35 29 6d  |=..0.".mult_(5)m|
00008770  75 6c 74 5f 28 35 29 3d  a3 8b 6d 75 6c 74 5f 28  |ult_(5)=..mult_(|
00008780  35 29 3d b9 0d 30 c0 06  3d b9 0d 30 ca 42 dd a4  |5)=..0..=..0.B..|
00008790  6d 75 6c 74 36 5f 3a e7  6d 75 6c 74 5f 28 36 29  |mult6_:.mult_(6)|
000087a0  80 a4 6d 75 6c 74 5f 3d  31 20 6d 75 6c 74 5f 28  |..mult_=1 mult_(|
000087b0  36 29 3d b9 3a f2 73 49  28 57 4d 75 6c 74 5f 25  |6)=.:.sI(WMult_%|
000087c0  2c 22 6d 75 6c 74 36 22  29 3a 3d b9 0d 30 d4 22  |,"mult6"):=..0."|
000087d0  e7 6d 75 6c 74 5f 28 36  29 6d 75 6c 74 5f 28 36  |.mult_(6)mult_(6|
000087e0  29 3d a3 8b 6d 75 6c 74  5f 28 36 29 3d b9 0d 30  |)=..mult_(6)=..0|
000087f0  de 06 3d b9 0d 30 e8 42  dd a4 6d 75 6c 74 37 5f  |..=..0.B..mult7_|
00008800  3a e7 6d 75 6c 74 5f 28  37 29 80 a4 6d 75 6c 74  |:.mult_(7)..mult|
00008810  5f 3d 31 20 6d 75 6c 74  5f 28 37 29 3d b9 3a f2  |_=1 mult_(7)=.:.|
00008820  73 49 28 57 4d 75 6c 74  5f 25 2c 22 6d 75 6c 74  |sI(WMult_%,"mult|
00008830  37 22 29 3a 3d b9 0d 30  f2 22 e7 6d 75 6c 74 5f  |7"):=..0.".mult_|
00008840  28 37 29 6d 75 6c 74 5f  28 37 29 3d a3 8b 6d 75  |(7)mult_(7)=..mu|
00008850  6c 74 5f 28 37 29 3d b9  0d 30 fc 06 3d b9 0d 31  |lt_(7)=..0..=..1|
00008860  06 42 dd a4 6d 75 6c 74  38 5f 3a e7 6d 75 6c 74  |.B..mult8_:.mult|
00008870  5f 28 38 29 80 a4 6d 75  6c 74 5f 3d 31 20 6d 75  |_(8)..mult_=1 mu|
00008880  6c 74 5f 28 38 29 3d b9  3a f2 73 49 28 57 4d 75  |lt_(8)=.:.sI(WMu|
00008890  6c 74 5f 25 2c 22 6d 75  6c 74 38 22 29 3a 3d b9  |lt_%,"mult8"):=.|
000088a0  0d 31 10 22 e7 6d 75 6c  74 5f 28 38 29 6d 75 6c  |.1.".mult_(8)mul|
000088b0  74 5f 28 38 29 3d a3 8b  6d 75 6c 74 5f 28 38 29  |t_(8)=..mult_(8)|
000088c0  3d b9 0d 31 1a 06 3d b9  0d 31 24 42 dd a4 6d 75  |=..1..=..1$B..mu|
000088d0  6c 74 39 5f 3a e7 6d 75  6c 74 5f 28 39 29 80 a4  |lt9_:.mult_(9)..|
000088e0  6d 75 6c 74 5f 3d 31 20  6d 75 6c 74 5f 28 39 29  |mult_=1 mult_(9)|
000088f0  3d b9 3a f2 73 49 28 57  4d 75 6c 74 5f 25 2c 22  |=.:.sI(WMult_%,"|
00008900  6d 75 6c 74 39 22 29 3a  3d b9 0d 31 2e 22 e7 6d  |mult9"):=..1.".m|
00008910  75 6c 74 5f 28 39 29 6d  75 6c 74 5f 28 39 29 3d  |ult_(9)mult_(9)=|
00008920  a3 8b 6d 75 6c 74 5f 28  39 29 3d b9 0d 31 38 06  |..mult_(9)=..18.|
00008930  3d b9 0d 31 60 a5 dd a4  4d 75 6c 74 79 67 6f 5f  |=..1`...Multygo_|
00008940  3a f2 47 65 74 54 69 74  6c 65 73 3a 64 75 6d 6d  |:.GetTitles:dumm|
00008950  79 5f 3d b3 28 2d 91 29  3a f2 77 68 61 74 6d 75  |y_=.(-.):.whatmu|
00008960  6c 74 6c 69 6e 65 73 3a  f2 77 68 61 74 6d 75 6c  |ltlines:.whatmul|
00008970  74 3a f2 63 61 6c 63 6d  75 6c 74 3a 6c 61 73 74  |t:.calcmult:last|
00008980  5f 3d 33 3a 71 75 69 74  5f 3d a3 3a 43 6c 75 65  |_=3:quit_=.:Clue|
00008990  5f 24 3d 22 4d 75 6c 74  79 22 3a 73 74 61 72 74  |_$="Multy":start|
000089a0  65 64 5f 25 3d b9 3a f2  75 73 49 28 57 4d 75 6c  |ed_%=.:.usI(WMul|
000089b0  74 5f 25 2c 22 4d 75 6c  74 79 67 6f 22 29 3a c8  |t_%,"Multygo"):.|
000089c0  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  |."Hourglass_Off"|
000089d0  3a 3d a4 73 75 6d 73 0d  31 92 60 dd f2 77 68 61  |:=.sums.1.`..wha|
000089e0  74 6d 75 6c 74 6c 69 6e  65 73 3a 67 6f 74 5f 25  |tmultlines:got_%|
000089f0  3d 30 3a e3 72 5f 3d 31  b8 36 3a e7 6d 75 6c 74  |=0:.r_=1.6:.mult|
00008a00  79 5f 28 72 5f 29 67 6f  74 5f 25 3d 67 6f 74 5f  |y_(r_)got_%=got_|
00008a10  25 2b 31 3a 6d 75 6c 74  79 74 79 70 65 5f 28 67  |%+1:multytype_(g|
00008a20  6f 74 5f 25 29 3d 72 5f  3a 67 63 5f 25 28 67 6f  |ot_%)=r_:gc_%(go|
00008a30  74 5f 25 29 3d 72 5f 0d  31 a6 3b ed 3a e7 67 6f  |t_%)=r_.1.;.:.go|
00008a40  74 5f 25 3d 31 e3 72 5f  3d 31 b8 31 32 3a 6c 69  |t_%=1.r_=1.12:li|
00008a50  6e 65 6d 75 6c 74 79 5f  28 72 5f 29 3d 6d 75 6c  |nemulty_(r_)=mul|
00008a60  74 79 74 79 70 65 5f 28  67 6f 74 5f 25 29 3a ed  |tytype_(got_%):.|
00008a70  3a e1 0d 31 ba 5d e7 67  6f 74 5f 25 3d 36 f2 74  |:..1.].got_%=6.t|
00008a80  69 6d 65 73 28 67 6f 74  5f 25 2c 31 32 29 3a e3  |imes(got_%,12):.|
00008a90  72 5f 3d 31 b8 31 32 3a  6c 69 6e 65 6d 75 6c 74  |r_=1.12:linemult|
00008aa0  79 5f 28 72 5f 29 3d 67  63 5f 25 28 66 69 6e 64  |y_(r_)=gc_%(find|
00008ab0  65 72 5f 25 28 72 5f 29  29 3a ed 3a c8 99 22 48  |er_%(r_)):.:.."H|
00008ac0  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 3a e1 0d  |ourglass_Off":..|
00008ad0  31 c4 b9 6e 65 65 64 65  64 5f 25 3d 31 32 81 67  |1..needed_%=12.g|
00008ae0  6f 74 5f 25 3a c8 99 22  48 6f 75 72 67 6c 61 73  |ot_%:.."Hourglas|
00008af0  73 5f 4f 6e 22 3a f5 3a  e3 72 5f 3d 31 b8 31 32  |s_On":.:.r_=1.12|
00008b00  3a 66 69 6e 64 65 72 5f  25 28 72 5f 29 3d 30 3a  |:finder_%(r_)=0:|
00008b10  ed 3a 66 6c 61 67 5f 3d  b9 3a e3 72 5f 3d 31 b8  |.:flag_=.:.r_=1.|
00008b20  31 32 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |12:.."Hourglass_|
00008b30  50 65 72 63 65 6e 74 61  67 65 22 2c 72 5f 2f 31  |Percentage",r_/1|
00008b40  32 2a 31 30 30 3a f5 3a  66 6c 69 67 5f 3d b9 3a  |2*100:.:flig_=.:|
00008b50  72 61 6e 5f 25 3d b3 28  67 6f 74 5f 25 29 3a e7  |ran_%=.(got_%):.|
00008b60  72 5f 3e 31 80 67 63 5f  25 28 72 61 6e 5f 25 29  |r_>1.gc_%(ran_%)|
00008b70  3d 6c 69 6e 65 6d 75 6c  74 79 5f 28 72 5f 2d 31  |=linemulty_(r_-1|
00008b80  29 66 6c 69 67 5f 3d a3  0d 32 28 76 fd 66 6c 69  |)flig_=..2(v.fli|
00008b90  67 5f 3d b9 3a 6c 69 6e  65 6d 75 6c 74 79 5f 28  |g_=.:linemulty_(|
00008ba0  72 5f 29 3d 67 63 5f 25  28 72 61 6e 5f 25 29 3a  |r_)=gc_%(ran_%):|
00008bb0  66 69 6e 64 65 72 5f 25  28 72 61 6e 5f 25 29 3d  |finder_%(ran_%)=|
00008bc0  66 69 6e 64 65 72 5f 25  28 72 61 6e 5f 25 29 2b  |finder_%(ran_%)+|
00008bd0  31 3a ed 3a e3 74 5f 3d  31 b8 67 6f 74 5f 25 3a  |1:.:.t_=1.got_%:|
00008be0  e7 66 69 6e 64 65 72 5f  25 28 74 5f 29 3c 6e 65  |.finder_%(t_)<ne|
00008bf0  65 64 65 64 5f 25 20 66  6c 61 67 5f 3d a3 0d 32  |eded_% flag_=..2|
00008c00  46 22 ed 3a fd 66 6c 61  67 5f 3d b9 3a c8 99 22  |F".:.flag_=.:.."|
00008c10  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 3a e1  |Hourglass_Off":.|
00008c20  0d 32 64 3c dd f2 63 61  6c 63 6d 75 6c 74 3a e7  |.2d<..calcmult:.|
00008c30  a4 6d 75 6c 74 5f 3d 31  80 a4 6d 75 6c 74 79 5f  |.mult_=1..multy_|
00008c40  3d 31 80 6d 75 6c 74 79  5f 28 31 29 6d 61 6e 79  |=1.multy_(1)many|
00008c50  5f 3d 39 8b 6d 61 6e 79  5f 3d 31 32 0d 32 78 41  |_=9.many_=12.2xA|
00008c60  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |.."Hourglass_On"|
00008c70  3a e3 74 5f 3d 31 b8 6d  61 6e 79 5f 3a e7 6c 69  |:.t_=1.many_:.li|
00008c80  6e 65 6d 75 6c 74 79 5f  28 74 5f 29 3d 31 20 72  |nemulty_(t_)=1 r|
00008c90  61 6e 5f 25 3d 39 3a 72  6e 5f 25 3d 30 0d 32 96  |an_%=9:rn_%=0.2.|
00008ca0  25 e7 6c 69 6e 65 6d 75  6c 74 79 5f 28 74 5f 29  |%.linemulty_(t_)|
00008cb0  3d 32 20 72 61 6e 5f 25  3d 39 39 3a 72 6e 5f 25  |=2 ran_%=99:rn_%|
00008cc0  3d 39 0d 32 a0 27 e7 6c  69 6e 65 6d 75 6c 74 79  |=9.2.'.linemulty|
00008cd0  5f 28 74 5f 29 3d 33 20  72 61 6e 5f 25 3d 39 39  |_(t_)=3 ran_%=99|
00008ce0  39 3a 72 6e 5f 25 3d 39  39 0d 32 aa 29 e7 6c 69  |9:rn_%=99.2.).li|
00008cf0  6e 65 6d 75 6c 74 79 5f  28 74 5f 29 3d 34 20 72  |nemulty_(t_)=4 r|
00008d00  61 6e 5f 25 3d 39 39 39  39 3a 72 6e 5f 25 3d 39  |an_%=9999:rn_%=9|
00008d10  39 39 0d 32 b4 2b e7 6c  69 6e 65 6d 75 6c 74 79  |99.2.+.linemulty|
00008d20  5f 28 74 5f 29 3d 35 20  72 61 6e 5f 25 3d 39 39  |_(t_)=5 ran_%=99|
00008d30  39 39 39 3a 72 6e 5f 25  3d 39 39 39 39 0d 32 be  |999:rn_%=9999.2.|
00008d40  2d e7 6c 69 6e 65 6d 75  6c 74 79 5f 28 74 5f 29  |-.linemulty_(t_)|
00008d50  3d 36 20 72 61 6e 5f 25  3d 39 39 39 39 39 39 3a  |=6 ran_%=999999:|
00008d60  72 6e 5f 25 3d 39 39 39  39 39 0d 32 c8 5a c8 99  |rn_%=99999.2.Z..|
00008d70  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
00008d80  6e 74 61 67 65 22 2c 74  5f 2f 31 32 2a 31 30 30  |ntage",t_/12*100|
00008d90  3a f5 3a 66 6c 61 67 5f  3d 30 3a f5 3a 61 5f 3d  |:.:flag_=0:.:a_=|
00008da0  b3 28 72 61 6e 5f 25 29  3a fd 61 5f 3e 72 6e 5f  |.(ran_%):.a_>rn_|
00008db0  25 3a 62 5f 3d 4e 62 5f  25 28 74 5f 29 3a e7 74  |%:b_=Nb_%(t_):.t|
00008dc0  5f 3e 31 8c 0d 32 f0 2a  e3 65 5f 3d 31 b8 74 5f  |_>1..2.*.e_=1.t_|
00008dd0  2d 31 3a e7 61 5f 3d 61  5f 28 65 5f 29 80 62 5f  |-1:.a_=a_(e_).b_|
00008de0  3d 62 5f 28 65 5f 29 66  6c 61 67 5f 3d 31 0d 32  |=b_(e_)flag_=1.2|
00008df0  fa 05 ed 0d 33 04 18 cd  3a e7 4d 6e 6f 77 74 73  |....3...:.Mnowts|
00008e00  5f 25 f2 4d 6e 6f 75 67  68 74 73 0d 33 18 4f fd  |_%.Mnoughts.3.O.|
00008e10  66 6c 61 67 5f 3d 30 3a  61 5f 28 74 5f 29 3d 61  |flag_=0:a_(t_)=a|
00008e20  5f 3a 62 5f 28 74 5f 29  3d 62 5f 3a 63 5f 28 74  |_:b_(t_)=b_:c_(t|
00008e30  5f 29 3d 61 5f 2a 62 5f  3a ed 3a 73 74 61 72 74  |_)=a_*b_:.:start|
00008e40  65 64 5f 25 3d b9 3a c8  99 22 48 6f 75 72 67 6c  |ed_%=.:.."Hourgl|
00008e50  61 73 73 5f 4f 66 66 22  3a e1 0d 33 4a 50 dd f2  |ass_Off":..3JP..|
00008e60  4d 6e 6f 75 67 68 74 73  3a 76 5f 24 3d c3 28 61  |Mnoughts:v_$=.(a|
00008e70  5f 29 3a e3 77 5f 3d 32  b8 a9 28 76 5f 24 29 3a  |_):.w_=2..(v_$):|
00008e80  72 72 5f 3d b3 28 34 29  3a e7 72 72 5f 3d 31 84  |rr_=.(4):.rr_=1.|
00008e90  72 72 5f 3d 32 84 72 72  5f 3d 33 8c c1 76 5f 24  |rr_=2.rr_=3..v_$|
00008ea0  2c 77 5f 2c 31 29 3d 22  30 22 0d 33 5e 11 ed 3a  |,w_,1)="0".3^..:|
00008eb0  61 5f 3d bb 28 76 5f 24  29 3a e1 0d 33 72 4b dd  |a_=.(v_$):..3rK.|
00008ec0  f2 6f 6e 65 6d 75 6c 74  3a e3 72 5f 25 3d 31 b8  |.onemult:.r_%=1.|
00008ed0  39 3a e7 6d 75 6c 74 5f  28 72 5f 25 29 3d b9 8c  |9:.mult_(r_%)=..|
00008ee0  e3 74 72 5f 25 3d 31 b8  31 32 3a 4e 62 5f 25 28  |.tr_%=1.12:Nb_%(|
00008ef0  74 72 5f 25 29 3d bb 28  6d 75 6c 74 5f 24 28 72  |tr_%)=.(mult_$(r|
00008f00  5f 25 29 29 3a ed 0d 33  7c 07 ed 3a e1 0d 33 90  |_%)):..3|..:..3.|
00008f10  60 dd f2 77 68 61 74 6d  75 6c 74 3a e3 72 5f 3d  |`..whatmult:.r_=|
00008f20  31 b8 31 32 3a 67 63 5f  25 28 72 5f 29 3d 30 3a  |1.12:gc_%(r_)=0:|
00008f30  ed 3a 67 6f 74 5f 25 3d  30 3a e3 72 5f 25 3d 31  |.:got_%=0:.r_%=1|
00008f40  b8 39 3a e7 6d 75 6c 74  5f 28 72 5f 25 29 3d b9  |.9:.mult_(r_%)=.|
00008f50  67 6f 74 5f 25 3d 67 6f  74 5f 25 2b 31 3a 67 63  |got_%=got_%+1:gc|
00008f60  5f 25 28 67 6f 74 5f 25  29 3d 72 5f 25 0d 33 ae  |_%(got_%)=r_%.3.|
00008f70  18 ed 3a e7 67 6f 74 5f  25 3d 31 f2 6f 6e 65 6d  |..:.got_%=1.onem|
00008f80  75 6c 74 3a e1 0d 33 c2  4a e7 67 6f 74 5f 25 3e  |ult:..3.J.got_%>|
00008f90  35 f2 74 69 6d 65 73 28  67 6f 74 5f 25 2c 31 32  |5.times(got_%,12|
00008fa0  29 3a e3 72 5f 3d 31 b8  31 32 3a 4e 62 5f 25 28  |):.r_=1.12:Nb_%(|
00008fb0  72 5f 29 3d bb 28 6d 75  6c 74 5f 24 28 66 69 6e  |r_)=.(mult_$(fin|
00008fc0  64 65 72 5f 25 28 72 5f  29 29 29 3a ed 3a e1 0d  |der_%(r_))):.:..|
00008fd0  33 cc c9 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |3...."Hourglass_|
00008fe0  4f 6e 22 3a 6e 65 65 64  65 64 5f 25 3d 31 32 81  |On":needed_%=12.|
00008ff0  67 6f 74 5f 25 3a f5 3a  66 6c 61 67 5f 3d b9 3a  |got_%:.:flag_=.:|
00009000  e3 72 5f 3d 31 b8 31 32  3a 66 69 6e 64 65 72 5f  |.r_=1.12:finder_|
00009010  25 28 72 5f 29 3d 30 3a  ed 3a e3 72 5f 3d 31 b8  |%(r_)=0:.:.r_=1.|
00009020  31 32 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |12:.."Hourglass_|
00009030  50 65 72 63 65 6e 74 61  67 65 22 2c 72 5f 2f 31  |Percentage",r_/1|
00009040  32 2a 31 30 30 3a 72 61  6e 5f 25 3d b3 28 67 6f  |2*100:ran_%=.(go|
00009050  74 5f 25 29 3a 4e 62 5f  25 28 72 5f 29 3d bb 28  |t_%):Nb_%(r_)=.(|
00009060  6d 75 6c 74 5f 24 28 67  63 5f 25 28 72 61 6e 5f  |mult_$(gc_%(ran_|
00009070  25 29 29 29 3a 66 69 6e  64 65 72 5f 25 28 72 61  |%))):finder_%(ra|
00009080  6e 5f 25 29 3d 66 69 6e  64 65 72 5f 25 28 72 61  |n_%)=finder_%(ra|
00009090  6e 5f 25 29 2b 31 3a ed  0d 34 1c 2e e3 74 5f 3d  |n_%)+1:..4...t_=|
000090a0  31 b8 67 6f 74 5f 25 3a  e7 66 69 6e 64 65 72 5f  |1.got_%:.finder_|
000090b0  25 28 74 5f 29 3c 6e 65  65 64 65 64 5f 25 20 66  |%(t_)<needed_% f|
000090c0  6c 61 67 5f 3d a3 0d 34  26 22 ed 3a fd 66 6c 61  |lag_=..4&".:.fla|
000090d0  67 5f 3d b9 3a c8 99 22  48 6f 75 72 67 6c 61 73  |g_=.:.."Hourglas|
000090e0  73 5f 4f 66 66 22 3a e1  0d 34 62 3e dd f2 44 69  |s_Off":..4b>..Di|
000090f0  76 69 64 65 3a 57 44 69  76 5f 25 3d a4 66 57 53  |vide:WDiv_%=.fWS|
00009100  28 22 44 69 76 69 64 65  22 29 3a e7 64 76 79 5f  |("Divide"):.dvy_|
00009110  28 31 29 f2 73 49 28 57  44 69 76 5f 25 2c 22 44  |(1).sI(WDiv_%,"D|
00009120  69 76 79 31 22 29 0d 34  80 1f e7 64 76 79 5f 28  |ivy1").4...dvy_(|
00009130  32 29 f2 73 49 28 57 44  69 76 5f 25 2c 22 44 69  |2).sI(WDiv_%,"Di|
00009140  76 79 32 22 29 0d 34 8a  1f e7 64 76 79 5f 28 33  |vy2").4...dvy_(3|
00009150  29 f2 73 49 28 57 44 69  76 5f 25 2c 22 44 69 76  |).sI(WDiv_%,"Div|
00009160  79 33 22 29 0d 34 94 1f  e7 64 76 79 5f 28 34 29  |y3").4...dvy_(4)|
00009170  f2 73 49 28 57 44 69 76  5f 25 2c 22 44 69 76 79  |.sI(WDiv_%,"Divy|
00009180  34 22 29 0d 34 9e 1f e7  64 76 79 5f 28 35 29 f2  |4").4...dvy_(5).|
00009190  73 49 28 57 44 69 76 5f  25 2c 22 44 69 76 79 35  |sI(WDiv_%,"Divy5|
000091a0  22 29 0d 34 a8 1c e7 64  76 5f 28 31 29 f2 73 49  |").4...dv_(1).sI|
000091b0  28 57 44 69 76 5f 25 2c  22 64 76 31 22 29 0d 34  |(WDiv_%,"dv1").4|
000091c0  b2 1c e7 64 76 5f 28 32  29 f2 73 49 28 57 44 69  |...dv_(2).sI(WDi|
000091d0  76 5f 25 2c 22 64 76 32  22 29 0d 34 bc 1c e7 64  |v_%,"dv2").4...d|
000091e0  76 5f 28 33 29 f2 73 49  28 57 44 69 76 5f 25 2c  |v_(3).sI(WDiv_%,|
000091f0  22 64 76 33 22 29 0d 34  c6 1c e7 64 76 5f 28 34  |"dv3").4...dv_(4|
00009200  29 f2 73 49 28 57 44 69  76 5f 25 2c 22 64 76 34  |).sI(WDiv_%,"dv4|
00009210  22 29 0d 34 d0 1c e7 64  76 5f 28 35 29 f2 73 49  |").4...dv_(5).sI|
00009220  28 57 44 69 76 5f 25 2c  22 64 76 35 22 29 0d 34  |(WDiv_%,"dv5").4|
00009230  da 1c e7 64 76 5f 28 36  29 f2 73 49 28 57 44 69  |...dv_(6).sI(WDi|
00009240  76 5f 25 2c 22 64 76 36  22 29 0d 34 e4 1c e7 64  |v_%,"dv6").4...d|
00009250  76 5f 28 37 29 f2 73 49  28 57 44 69 76 5f 25 2c  |v_(7).sI(WDiv_%,|
00009260  22 64 76 37 22 29 0d 34  ee 1c e7 64 76 5f 28 38  |"dv7").4...dv_(8|
00009270  29 f2 73 49 28 57 44 69  76 5f 25 2c 22 64 76 38  |).sI(WDiv_%,"dv8|
00009280  22 29 0d 34 f8 1c e7 64  76 5f 28 39 29 f2 73 49  |").4...dv_(9).sI|
00009290  28 57 44 69 76 5f 25 2c  22 64 76 39 22 29 0d 35  |(WDiv_%,"dv9").5|
000092a0  02 21 e7 44 6e 6f 77 74  73 5f 25 f2 73 49 28 57  |.!.Dnowts_%.sI(W|
000092b0  44 69 76 5f 25 2c 22 44  6e 6f 77 74 73 22 29 0d  |Div_%,"Dnowts").|
000092c0  35 0c 11 f2 72 65 6d 61  69 6e 64 65 72 73 3a e1  |5...remainders:.|
000092d0  0d 35 34 2e dd a4 44 6e  6f 77 74 73 5f 3a e7 44  |.54...Dnowts_:.D|
000092e0  6e 6f 77 74 73 5f 25 3d  a3 44 6e 6f 77 74 73 5f  |nowts_%=.Dnowts_|
000092f0  25 3d b9 8b 44 6e 6f 77  74 73 5f 25 3d a3 0d 35  |%=..Dnowts_%=..5|
00009300  3e 0b f2 44 63 7a 3a 3d  b9 0d 35 52 3a dd f2 44  |>..Dcz:=..5R:..D|
00009310  63 7a 3a e7 64 76 79 5f  28 31 29 80 a4 64 76 79  |cz:.dvy_(1)..dvy|
00009320  3d 31 20 44 6e 6f 77 74  73 5f 25 3d a3 3a f2 75  |=1 Dnowts_%=.:.u|
00009330  73 49 28 57 44 69 76 5f  25 2c 22 44 6e 6f 77 74  |sI(WDiv_%,"Dnowt|
00009340  73 22 29 0d 35 5c 05 e1  0d 35 70 5f dd f2 72 65  |s").5\...5p_..re|
00009350  6d 61 69 6e 64 65 72 73  3a e7 52 65 6d 61 69 6e  |mainders:.Remain|
00009360  64 65 72 5f 24 3d 22 4e  6f 22 f2 73 49 28 57 44  |der_$="No".sI(WD|
00009370  69 76 5f 25 2c 22 44 72  65 6d 31 22 29 3a f2 75  |iv_%,"Drem1"):.u|
00009380  73 49 28 57 44 69 76 5f  25 2c 22 44 72 65 6d 32  |sI(WDiv_%,"Drem2|
00009390  22 29 3a f2 75 73 49 28  57 44 69 76 5f 25 2c 22  |"):.usI(WDiv_%,"|
000093a0  44 72 65 6d 33 22 29 0d  35 84 53 e7 52 65 6d 61  |Drem3").5.S.Rema|
000093b0  69 6e 64 65 72 5f 24 3d  22 41 6c 6c 22 f2 73 49  |inder_$="All".sI|
000093c0  28 57 44 69 76 5f 25 2c  22 44 72 65 6d 32 22 29  |(WDiv_%,"Drem2")|
000093d0  3a f2 75 73 49 28 57 44  69 76 5f 25 2c 22 44 72  |:.usI(WDiv_%,"Dr|
000093e0  65 6d 31 22 29 3a f2 75  73 49 28 57 44 69 76 5f  |em1"):.usI(WDiv_|
000093f0  25 2c 22 44 72 65 6d 33  22 29 0d 35 8e 53 e7 52  |%,"Drem3").5.S.R|
00009400  65 6d 61 69 6e 64 65 72  5f 24 3d 22 52 61 6e 22  |emainder_$="Ran"|
00009410  f2 73 49 28 57 44 69 76  5f 25 2c 22 44 72 65 6d  |.sI(WDiv_%,"Drem|
00009420  33 22 29 3a f2 75 73 49  28 57 44 69 76 5f 25 2c  |3"):.usI(WDiv_%,|
00009430  22 44 72 65 6d 31 22 29  3a f2 75 73 49 28 57 44  |"Drem1"):.usI(WD|
00009440  69 76 5f 25 2c 22 44 72  65 6d 32 22 29 0d 35 98  |iv_%,"Drem2").5.|
00009450  05 e1 0d 35 ac 2c dd a4  44 72 65 6d 31 5f 3a 52  |...5.,..Drem1_:R|
00009460  65 6d 61 69 6e 64 65 72  5f 24 3d 22 4e 6f 22 3a  |emainder_$="No":|
00009470  f2 72 65 6d 61 69 6e 64  65 72 73 3a 3d b9 0d 35  |.remainders:=..5|
00009480  b6 2d dd a4 44 72 65 6d  32 5f 3a 52 65 6d 61 69  |.-..Drem2_:Remai|
00009490  6e 64 65 72 5f 24 3d 22  41 6c 6c 22 3a f2 72 65  |nder_$="All":.re|
000094a0  6d 61 69 6e 64 65 72 73  3a 3d b9 0d 35 c0 2d dd  |mainders:=..5.-.|
000094b0  a4 44 72 65 6d 33 5f 3a  52 65 6d 61 69 6e 64 65  |.Drem3_:Remainde|
000094c0  72 5f 24 3d 22 52 61 6e  22 3a f2 72 65 6d 61 69  |r_$="Ran":.remai|
000094d0  6e 64 65 72 73 3a 3d b9  0d 35 d4 29 dd a4 64 76  |nders:=..5.)..dv|
000094e0  79 3a 63 5f 3d 30 3a e3  68 5f 3d 31 b8 35 3a e7  |y:c_=0:.h_=1.5:.|
000094f0  64 76 79 5f 28 68 5f 29  3d b9 63 5f 3d 63 5f 2b  |dvy_(h_)=.c_=c_+|
00009500  31 0d 35 de 09 ed 3a 3d  63 5f 0d 35 e8 3d dd a4  |1.5...:=c_.5.=..|
00009510  44 69 76 79 31 5f 3a e7  64 76 79 5f 28 31 29 80  |Divy1_:.dvy_(1).|
00009520  a4 64 76 79 3d 31 20 64  76 79 5f 28 31 29 3d b9  |.dvy=1 dvy_(1)=.|
00009530  3a f2 73 49 28 57 44 69  76 5f 25 2c 22 44 69 76  |:.sI(WDiv_%,"Div|
00009540  79 31 22 29 3a 3d b9 0d  35 fc 1f e7 64 76 79 5f  |y1"):=..5...dvy_|
00009550  28 31 29 64 76 79 5f 28  31 29 3d a3 8b 64 76 79  |(1)dvy_(1)=..dvy|
00009560  5f 28 31 29 3d b9 0d 36  06 0b f2 44 63 7a 3a 3d  |_(1)=..6...Dcz:=|
00009570  b9 0d 36 10 3d dd a4 44  69 76 79 32 5f 3a e7 64  |..6.=..Divy2_:.d|
00009580  76 79 5f 28 32 29 80 a4  64 76 79 3d 31 20 64 76  |vy_(2)..dvy=1 dv|
00009590  79 5f 28 32 29 3d b9 3a  f2 73 49 28 57 44 69 76  |y_(2)=.:.sI(WDiv|
000095a0  5f 25 2c 22 44 69 76 79  32 22 29 3a 3d b9 0d 36  |_%,"Divy2"):=..6|
000095b0  24 1f e7 64 76 79 5f 28  32 29 64 76 79 5f 28 32  |$..dvy_(2)dvy_(2|
000095c0  29 3d a3 8b 64 76 79 5f  28 32 29 3d b9 0d 36 2e  |)=..dvy_(2)=..6.|
000095d0  0b f2 44 63 7a 3a 3d b9  0d 36 38 3d dd a4 44 69  |..Dcz:=..68=..Di|
000095e0  76 79 33 5f 3a e7 64 76  79 5f 28 33 29 80 a4 64  |vy3_:.dvy_(3)..d|
000095f0  76 79 3d 31 20 64 76 79  5f 28 33 29 3d b9 3a f2  |vy=1 dvy_(3)=.:.|
00009600  73 49 28 57 44 69 76 5f  25 2c 22 44 69 76 79 33  |sI(WDiv_%,"Divy3|
00009610  22 29 3a 3d b9 0d 36 4c  1f e7 64 76 79 5f 28 33  |"):=..6L..dvy_(3|
00009620  29 64 76 79 5f 28 33 29  3d a3 8b 64 76 79 5f 28  |)dvy_(3)=..dvy_(|
00009630  33 29 3d b9 0d 36 56 0b  f2 44 63 7a 3a 3d b9 0d  |3)=..6V..Dcz:=..|
00009640  36 60 3d dd a4 44 69 76  79 34 5f 3a e7 64 76 79  |6`=..Divy4_:.dvy|
00009650  5f 28 34 29 80 a4 64 76  79 3d 31 20 64 76 79 5f  |_(4)..dvy=1 dvy_|
00009660  28 34 29 3d b9 3a f2 73  49 28 57 44 69 76 5f 25  |(4)=.:.sI(WDiv_%|
00009670  2c 22 44 69 76 79 34 22  29 3a 3d b9 0d 36 74 1f  |,"Divy4"):=..6t.|
00009680  e7 64 76 79 5f 28 34 29  64 76 79 5f 28 34 29 3d  |.dvy_(4)dvy_(4)=|
00009690  a3 8b 64 76 79 5f 28 34  29 3d b9 0d 36 7e 0b f2  |..dvy_(4)=..6~..|
000096a0  44 63 7a 3a 3d b9 0d 36  88 3d dd a4 44 69 76 79  |Dcz:=..6.=..Divy|
000096b0  35 5f 3a e7 64 76 79 5f  28 35 29 80 a4 64 76 79  |5_:.dvy_(5)..dvy|
000096c0  3d 31 20 64 76 79 5f 28  35 29 3d b9 3a f2 73 49  |=1 dvy_(5)=.:.sI|
000096d0  28 57 44 69 76 5f 25 2c  22 44 69 76 79 35 22 29  |(WDiv_%,"Divy5")|
000096e0  3a 3d b9 0d 36 9c 1f e7  64 76 79 5f 28 35 29 64  |:=..6...dvy_(5)d|
000096f0  76 79 5f 28 35 29 3d a3  8b 64 76 79 5f 28 35 29  |vy_(5)=..dvy_(5)|
00009700  3d b9 0d 36 a6 0b f2 44  63 7a 3a 3d b9 0d 36 b0  |=..6...Dcz:=..6.|
00009710  27 dd a4 64 76 3a 63 5f  3d 30 3a e3 68 5f 3d 31  |'..dv:c_=0:.h_=1|
00009720  b8 39 3a e7 64 76 5f 28  68 5f 29 3d b9 63 5f 3d  |.9:.dv_(h_)=.c_=|
00009730  63 5f 2b 31 0d 36 ba 09  ed 3a 3d 63 5f 0d 36 c4  |c_+1.6...:=c_.6.|
00009740  36 dd a4 64 76 31 5f 3a  e7 64 76 5f 28 31 29 80  |6..dv1_:.dv_(1).|
00009750  a4 64 76 3d 31 20 64 76  5f 28 31 29 3d b9 3a f2  |.dv=1 dv_(1)=.:.|
00009760  73 49 28 57 44 69 76 5f  25 2c 22 64 76 31 22 29  |sI(WDiv_%,"dv1")|
00009770  3a 3d b9 0d 36 d8 1c e7  64 76 5f 28 31 29 64 76  |:=..6...dv_(1)dv|
00009780  5f 28 31 29 3d a3 8b 64  76 5f 28 31 29 3d b9 0d  |_(1)=..dv_(1)=..|
00009790  36 e2 06 3d b9 0d 36 ec  36 dd a4 64 76 32 5f 3a  |6..=..6.6..dv2_:|
000097a0  e7 64 76 5f 28 32 29 80  a4 64 76 3d 31 20 64 76  |.dv_(2)..dv=1 dv|
000097b0  5f 28 32 29 3d b9 3a f2  73 49 28 57 44 69 76 5f  |_(2)=.:.sI(WDiv_|
000097c0  25 2c 22 64 76 32 22 29  3a 3d b9 0d 37 00 1c e7  |%,"dv2"):=..7...|
000097d0  64 76 5f 28 32 29 64 76  5f 28 32 29 3d a3 8b 64  |dv_(2)dv_(2)=..d|
000097e0  76 5f 28 32 29 3d b9 0d  37 0a 06 3d b9 0d 37 14  |v_(2)=..7..=..7.|
000097f0  36 dd a4 64 76 33 5f 3a  e7 64 76 5f 28 33 29 80  |6..dv3_:.dv_(3).|
00009800  a4 64 76 3d 31 20 64 76  5f 28 33 29 3d b9 3a f2  |.dv=1 dv_(3)=.:.|
00009810  73 49 28 57 44 69 76 5f  25 2c 22 64 76 33 22 29  |sI(WDiv_%,"dv3")|
00009820  3a 3d b9 0d 37 28 1c e7  64 76 5f 28 33 29 64 76  |:=..7(..dv_(3)dv|
00009830  5f 28 33 29 3d a3 8b 64  76 5f 28 33 29 3d b9 0d  |_(3)=..dv_(3)=..|
00009840  37 32 06 3d b9 0d 37 3c  36 dd a4 64 76 34 5f 3a  |72.=..7<6..dv4_:|
00009850  e7 64 76 5f 28 34 29 80  a4 64 76 3d 31 20 64 76  |.dv_(4)..dv=1 dv|
00009860  5f 28 34 29 3d b9 3a f2  73 49 28 57 44 69 76 5f  |_(4)=.:.sI(WDiv_|
00009870  25 2c 22 64 76 34 22 29  3a 3d b9 0d 37 50 1c e7  |%,"dv4"):=..7P..|
00009880  64 76 5f 28 34 29 64 76  5f 28 34 29 3d a3 8b 64  |dv_(4)dv_(4)=..d|
00009890  76 5f 28 34 29 3d b9 0d  37 5a 06 3d b9 0d 37 64  |v_(4)=..7Z.=..7d|
000098a0  36 dd a4 64 76 35 5f 3a  e7 64 76 5f 28 35 29 80  |6..dv5_:.dv_(5).|
000098b0  a4 64 76 3d 31 20 64 76  5f 28 35 29 3d b9 3a f2  |.dv=1 dv_(5)=.:.|
000098c0  73 49 28 57 44 69 76 5f  25 2c 22 64 76 35 22 29  |sI(WDiv_%,"dv5")|
000098d0  3a 3d b9 0d 37 78 1c e7  64 76 5f 28 35 29 64 76  |:=..7x..dv_(5)dv|
000098e0  5f 28 35 29 3d a3 8b 64  76 5f 28 35 29 3d b9 0d  |_(5)=..dv_(5)=..|
000098f0  37 82 06 3d b9 0d 37 8c  36 dd a4 64 76 36 5f 3a  |7..=..7.6..dv6_:|
00009900  e7 64 76 5f 28 36 29 80  a4 64 76 3d 31 20 64 76  |.dv_(6)..dv=1 dv|
00009910  5f 28 36 29 3d b9 3a f2  73 49 28 57 44 69 76 5f  |_(6)=.:.sI(WDiv_|
00009920  25 2c 22 64 76 36 22 29  3a 3d b9 0d 37 a0 1c e7  |%,"dv6"):=..7...|
00009930  64 76 5f 28 36 29 64 76  5f 28 36 29 3d a3 8b 64  |dv_(6)dv_(6)=..d|
00009940  76 5f 28 36 29 3d b9 0d  37 aa 06 3d b9 0d 37 b4  |v_(6)=..7..=..7.|
00009950  36 dd a4 64 76 37 5f 3a  e7 64 76 5f 28 37 29 80  |6..dv7_:.dv_(7).|
00009960  a4 64 76 3d 31 20 64 76  5f 28 37 29 3d b9 3a f2  |.dv=1 dv_(7)=.:.|
00009970  73 49 28 57 44 69 76 5f  25 2c 22 64 76 37 22 29  |sI(WDiv_%,"dv7")|
00009980  3a 3d b9 0d 37 c8 1c e7  64 76 5f 28 37 29 64 76  |:=..7...dv_(7)dv|
00009990  5f 28 37 29 3d a3 8b 64  76 5f 28 37 29 3d b9 0d  |_(7)=..dv_(7)=..|
000099a0  37 d2 06 3d b9 0d 37 dc  36 dd a4 64 76 38 5f 3a  |7..=..7.6..dv8_:|
000099b0  e7 64 76 5f 28 38 29 80  a4 64 76 3d 31 20 64 76  |.dv_(8)..dv=1 dv|
000099c0  5f 28 38 29 3d b9 3a f2  73 49 28 57 44 69 76 5f  |_(8)=.:.sI(WDiv_|
000099d0  25 2c 22 64 76 38 22 29  3a 3d b9 0d 37 f0 1c e7  |%,"dv8"):=..7...|
000099e0  64 76 5f 28 38 29 64 76  5f 28 38 29 3d a3 8b 64  |dv_(8)dv_(8)=..d|
000099f0  76 5f 28 38 29 3d b9 0d  37 fa 06 3d b9 0d 38 04  |v_(8)=..7..=..8.|
00009a00  36 dd a4 64 76 39 5f 3a  e7 64 76 5f 28 39 29 80  |6..dv9_:.dv_(9).|
00009a10  a4 64 76 3d 31 20 64 76  5f 28 39 29 3d b9 3a f2  |.dv=1 dv_(9)=.:.|
00009a20  73 49 28 57 44 69 76 5f  25 2c 22 64 76 39 22 29  |sI(WDiv_%,"dv9")|
00009a30  3a 3d b9 0d 38 18 1c e7  64 76 5f 28 39 29 64 76  |:=..8...dv_(9)dv|
00009a40  5f 28 39 29 3d a3 8b 64  76 5f 28 39 29 3d b9 0d  |_(9)=..dv_(9)=..|
00009a50  38 22 06 3d b9 0d 38 4a  9f dd a4 44 69 76 79 47  |8".=..8J...DivyG|
00009a60  6f 5f 3a f2 47 65 74 54  69 74 6c 65 73 3a 64 75  |o_:.GetTitles:du|
00009a70  6d 6d 79 5f 3d b3 28 2d  91 29 3a f2 77 68 61 74  |mmy_=.(-.):.what|
00009a80  64 69 76 6c 69 6e 65 3a  f2 77 68 61 74 64 69 76  |divline:.whatdiv|
00009a90  79 3a f2 63 61 6c 63 64  69 76 79 3a 6c 61 73 74  |y:.calcdivy:last|
00009aa0  5f 3d 33 3a 71 75 69 74  5f 3d a3 3a 43 6c 75 65  |_=3:quit_=.:Clue|
00009ab0  5f 24 3d 22 44 69 76 79  22 3a 73 74 61 72 74 65  |_$="Divy":starte|
00009ac0  64 5f 25 3d b9 3a c8 99  22 48 6f 75 72 67 6c 61  |d_%=.:.."Hourgla|
00009ad0  73 73 5f 4f 66 66 22 3a  f2 75 73 49 28 57 44 69  |ss_Off":.usI(WDi|
00009ae0  76 5f 25 2c 22 44 69 76  79 47 6f 22 29 3a 3d a4  |v_%,"DivyGo"):=.|
00009af0  73 75 6d 73 0d 38 7c 5c  dd a4 73 75 6d 73 3a e7  |sums.8|\..sums:.|
00009b00  a4 67 57 78 28 22 43 68  6f 69 63 65 73 22 29 8c  |.gWx("Choices").|
00009b10  6e 5f 3d a4 77 69 6e 64  6f 77 28 22 47 72 61 66  |n_=.window("Graf|
00009b20  49 74 22 29 3a 6e 5f 3d  a4 77 69 6e 64 6f 77 28  |It"):n_=.window(|
00009b30  22 43 68 6f 69 63 65 73  22 29 3a 3d b9 8b 3d a4  |"Choices"):=..=.|
00009b40  77 69 6e 64 6f 77 28 22  47 72 61 66 49 74 22 29  |window("GrafIt")|
00009b50  0d 38 86 04 0d 38 90 44  dd f2 6f 6e 65 64 76 79  |.8...8.D..onedvy|
00009b60  3a e3 72 5f 25 3d 31 b8  39 3a e7 64 76 5f 28 72  |:.r_%=1.9:.dv_(r|
00009b70  5f 25 29 8c e3 74 72 5f  25 3d 31 b8 31 32 3a 4e  |_%)..tr_%=1.12:N|
00009b80  62 5f 25 28 74 72 5f 25  29 3d bb 28 64 76 5f 24  |b_%(tr_%)=.(dv_$|
00009b90  28 72 5f 25 29 29 3a ed  0d 38 9a 07 ed 3a e1 0d  |(r_%)):..8...:..|
00009ba0  38 ae 5e dd f2 77 68 61  74 64 69 76 79 3a e3 72  |8.^..whatdivy:.r|
00009bb0  5f 3d 31 b8 31 32 3a 67  63 5f 25 28 72 5f 29 3d  |_=1.12:gc_%(r_)=|
00009bc0  30 3a ed 3a 67 6f 74 5f  25 3d 30 3a e3 72 5f 25  |0:.:got_%=0:.r_%|
00009bd0  3d 31 b8 39 3a e7 64 76  5f 28 72 5f 25 29 3d b9  |=1.9:.dv_(r_%)=.|
00009be0  67 6f 74 5f 25 3d 67 6f  74 5f 25 2b 31 3a 67 63  |got_%=got_%+1:gc|
00009bf0  5f 25 28 67 6f 74 5f 25  29 3d 72 5f 25 0d 38 c2  |_%(got_%)=r_%.8.|
00009c00  17 ed 3a e7 67 6f 74 5f  25 3d 31 f2 6f 6e 65 64  |..:.got_%=1.oned|
00009c10  76 79 3a e1 0d 38 d6 48  e7 67 6f 74 5f 25 3e 35  |vy:..8.H.got_%>5|
00009c20  f2 74 69 6d 65 73 28 67  6f 74 5f 25 2c 31 32 29  |.times(got_%,12)|
00009c30  3a e3 72 5f 3d 31 b8 31  32 3a 4e 62 5f 25 28 72  |:.r_=1.12:Nb_%(r|
00009c40  5f 29 3d bb 28 64 76 5f  24 28 66 69 6e 64 65 72  |_)=.(dv_$(finder|
00009c50  5f 25 28 72 5f 29 29 29  3a ed 3a e1 0d 38 e0 b0  |_%(r_))):.:..8..|
00009c60  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |.."Hourglass_On"|
00009c70  3a 6e 65 65 64 65 64 5f  25 3d 31 32 81 67 6f 74  |:needed_%=12.got|
00009c80  5f 25 3a f5 3a e3 72 5f  3d 31 b8 31 32 3a 66 69  |_%:.:.r_=1.12:fi|
00009c90  6e 64 65 72 5f 25 28 72  5f 29 3d 30 3a ed 3a 66  |nder_%(r_)=0:.:f|
00009ca0  6c 61 67 5f 3d b9 3a e3  72 5f 3d 31 b8 31 32 3a  |lag_=.:.r_=1.12:|
00009cb0  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 50 65 72  |.."Hourglass_Per|
00009cc0  63 65 6e 74 61 67 65 22  2c 72 5f 2f 31 32 2a 31  |centage",r_/12*1|
00009cd0  30 30 3a f5 3a 66 6c 69  67 5f 3d b9 3a 72 61 6e  |00:.:flig_=.:ran|
00009ce0  5f 25 3d b3 28 67 6f 74  5f 25 29 3a 4e 62 5f 25  |_%=.(got_%):Nb_%|
00009cf0  3d bb 28 64 76 5f 24 28  67 63 5f 25 28 72 61 6e  |=.(dv_$(gc_%(ran|
00009d00  5f 25 29 29 29 3a e7 72  5f 3e 31 8c 0d 39 1c 1b  |_%))):.r_>1..9..|
00009d10  e7 4e 62 5f 25 3d 4e 62  5f 25 28 72 5f 2d 31 29  |.Nb_%=Nb_%(r_-1)|
00009d20  66 6c 69 67 5f 3d a3 0d  39 26 7b cd 3a fd 66 6c  |flig_=..9&{.:.fl|
00009d30  69 67 5f 3d b9 3a 4e 62  5f 25 28 72 5f 29 3d bb  |ig_=.:Nb_%(r_)=.|
00009d40  28 64 76 5f 24 28 67 63  5f 25 28 72 61 6e 5f 25  |(dv_$(gc_%(ran_%|
00009d50  29 29 29 3a 66 69 6e 64  65 72 5f 25 28 72 61 6e  |))):finder_%(ran|
00009d60  5f 25 29 3d 66 69 6e 64  65 72 5f 25 28 72 61 6e  |_%)=finder_%(ran|
00009d70  5f 25 29 2b 31 3a ed 3a  e3 74 5f 3d 31 b8 67 6f  |_%)+1:.:.t_=1.go|
00009d80  74 5f 25 3a e7 66 69 6e  64 65 72 5f 25 28 74 5f  |t_%:.finder_%(t_|
00009d90  29 3c 6e 65 65 64 65 64  5f 25 20 66 6c 61 67 5f  |)<needed_% flag_|
00009da0  3d a3 0d 39 58 22 ed 3a  fd 66 6c 61 67 5f 3d b9  |=..9X".:.flag_=.|
00009db0  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |:.."Hourglass_Of|
00009dc0  66 22 3a e1 0d 39 6c 47  dd f2 77 68 61 74 64 69  |f":..9lG..whatdi|
00009dd0  76 6c 69 6e 65 3a 67 6f  74 5f 25 3d 30 3a e3 72  |vline:got_%=0:.r|
00009de0  5f 3d 31 b8 35 3a e7 64  76 79 5f 28 72 5f 29 67  |_=1.5:.dvy_(r_)g|
00009df0  6f 74 5f 25 3d 67 6f 74  5f 25 2b 31 3a 67 63 5f  |ot_%=got_%+1:gc_|
00009e00  25 28 67 6f 74 5f 25 29  3d 72 5f 0d 39 80 34 ed  |%(got_%)=r_.9.4.|
00009e10  3a e7 67 6f 74 5f 25 3d  31 8c e3 72 5f 3d 31 b8  |:.got_%=1..r_=1.|
00009e20  31 32 3a 6c 69 6e 65 64  76 79 5f 28 72 5f 29 3d  |12:linedvy_(r_)=|
00009e30  67 63 5f 25 28 67 6f 74  5f 25 29 3a ed 3a e1 0d  |gc_%(got_%):.:..|
00009e40  39 94 5d 6e 65 65 64 65  64 5f 25 3d 31 32 81 67  |9.]needed_%=12.g|
00009e50  6f 74 5f 25 3a f5 3a 66  6c 61 67 5f 3d b9 3a e3  |ot_%:.:flag_=.:.|
00009e60  72 5f 3d 31 b8 31 32 3a  f5 3a 66 6c 69 67 5f 3d  |r_=1.12:.:flig_=|
00009e70  b9 3a 72 61 6e 5f 25 3d  b3 28 67 6f 74 5f 25 29  |.:ran_%=.(got_%)|
00009e80  3a 6c 69 6e 65 64 76 79  5f 3d 67 63 5f 25 28 72  |:linedvy_=gc_%(r|
00009e90  61 6e 5f 25 29 3a e7 72  5f 3e 31 8c 0d 39 c6 23  |an_%):.r_>1..9.#|
00009ea0  e7 6c 69 6e 65 64 76 79  5f 3d 6c 69 6e 65 64 76  |.linedvy_=linedv|
00009eb0  79 5f 28 72 5f 2d 31 29  66 6c 69 67 5f 3d a3 0d  |y_(r_-1)flig_=..|
00009ec0  39 d0 78 cd 3a fd 66 6c  69 67 5f 3d b9 3a 6c 69  |9.x.:.flig_=.:li|
00009ed0  6e 65 64 76 79 5f 28 72  5f 29 3d 67 63 5f 25 28  |nedvy_(r_)=gc_%(|
00009ee0  72 61 6e 5f 25 29 3a 66  69 6e 64 65 72 5f 25 28  |ran_%):finder_%(|
00009ef0  72 61 6e 5f 25 29 3d 66  69 6e 64 65 72 5f 25 28  |ran_%)=finder_%(|
00009f00  72 61 6e 5f 25 29 2b 31  3a ed 3a e3 74 72 5f 3d  |ran_%)+1:.:.tr_=|
00009f10  31 b8 67 6f 74 5f 25 3a  e7 66 69 6e 64 65 72 5f  |1.got_%:.finder_|
00009f20  25 28 74 72 5f 29 3c 6e  65 65 64 65 64 5f 25 20  |%(tr_)<needed_% |
00009f30  66 6c 61 67 5f 3d a3 0d  3a 02 10 ed 3a fd 66 6c  |flag_=..:...:.fl|
00009f40  61 67 5f 3d b9 3a e1 0d  3a 2a 50 dd f2 44 6e 6f  |ag_=.:..:*P..Dno|
00009f50  75 67 68 74 73 3a 76 5f  24 3d c3 28 61 5f 29 3a  |ughts:v_$=.(a_):|
00009f60  e3 77 5f 3d 32 b8 a9 28  76 5f 24 29 3a 72 72 5f  |.w_=2..(v_$):rr_|
00009f70  3d b3 28 34 29 3a e7 72  72 5f 3d 31 84 72 72 5f  |=.(4):.rr_=1.rr_|
00009f80  3d 32 84 72 72 5f 3d 33  8c c1 76 5f 24 2c 77 5f  |=2.rr_=3..v_$,w_|
00009f90  2c 31 29 3d 22 30 22 0d  3a 3e 11 ed 3a 61 5f 3d  |,1)="0".:>..:a_=|
00009fa0  bb 28 76 5f 24 29 3a e1  0d 3a 52 4a dd f2 63 61  |.(v_$):..:RJ..ca|
00009fb0  6c 63 64 69 76 79 3a 6d  61 6e 79 5f 3d 31 32 3a  |lcdivy:many_=12:|
00009fc0  74 72 5f 3d a3 3a e7 a4  64 76 79 3d 31 80 a4 64  |tr_=.:..dvy=1..d|
00009fd0  76 3d 31 80 64 76 79 5f  28 31 29 80 52 65 6d 61  |v=1.dvy_(1).Rema|
00009fe0  69 6e 64 65 72 5f 24 3d  22 4e 6f 22 20 74 72 5f  |inder_$="No" tr_|
00009ff0  3d b9 0d 3a 66 2c e7 74  72 5f 80 64 76 5f 28 37  |=..:f,.tr_.dv_(7|
0000a000  29 84 74 72 5f 80 64 76  5f 28 38 29 84 74 72 5f  |).tr_.dv_(8).tr_|
0000a010  80 64 76 5f 28 39 29 6d  61 6e 79 5f 3d 39 0d 3a  |.dv_(9)many_=9.:|
0000a020  70 40 c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |p@.."Hourglass_O|
0000a030  6e 22 3a e3 74 5f 3d 31  b8 6d 61 6e 79 5f 3a e7  |n":.t_=1.many_:.|
0000a040  6c 69 6e 65 64 76 79 5f  28 74 5f 29 3d 31 20 72  |linedvy_(t_)=1 r|
0000a050  61 6e 5f 25 3d 39 39 3a  72 6e 5f 25 3d 39 0d 3a  |an_%=99:rn_%=9.:|
0000a060  84 25 e7 6c 69 6e 65 64  76 79 5f 28 74 5f 29 3d  |.%.linedvy_(t_)=|
0000a070  32 20 72 61 6e 5f 25 3d  39 39 39 3a 72 6e 5f 25  |2 ran_%=999:rn_%|
0000a080  3d 39 39 0d 3a 8e 27 e7  6c 69 6e 65 64 76 79 5f  |=99.:.'.linedvy_|
0000a090  28 74 5f 29 3d 33 20 72  61 6e 5f 25 3d 39 39 39  |(t_)=3 ran_%=999|
0000a0a0  39 3a 72 6e 5f 25 3d 39  39 39 0d 3a 98 29 e7 6c  |9:rn_%=999.:.).l|
0000a0b0  69 6e 65 64 76 79 5f 28  74 5f 29 3d 34 20 72 61  |inedvy_(t_)=4 ra|
0000a0c0  6e 5f 25 3d 39 39 39 39  39 3a 72 6e 5f 25 3d 39  |n_%=99999:rn_%=9|
0000a0d0  39 39 39 0d 3a a2 2b e7  6c 69 6e 65 64 76 79 5f  |999.:.+.linedvy_|
0000a0e0  28 74 5f 29 3d 35 20 72  61 6e 5f 25 3d 39 39 39  |(t_)=5 ran_%=999|
0000a0f0  39 39 39 3a 72 6e 5f 25  3d 39 39 39 39 39 0d 3a  |999:rn_%=99999.:|
0000a100  ac 43 c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 50  |.C.."Hourglass_P|
0000a110  65 72 63 65 6e 74 61 67  65 22 2c 74 5f 2f 31 32  |ercentage",t_/12|
0000a120  2a 31 30 30 3a f5 3a 66  6c 61 67 5f 3d 30 3a e7  |*100:.:flag_=0:.|
0000a130  52 65 6d 61 69 6e 64 65  72 5f 24 3d 22 4e 6f 22  |Remainder_$="No"|
0000a140  8c 0d 3a ca 30 f5 3a 61  5f 3d b3 28 72 61 6e 5f  |..:.0.:a_=.(ran_|
0000a150  25 29 3a 62 5f 3d 4e 62  5f 25 28 74 5f 29 3a e7  |%):b_=Nb_%(t_):.|
0000a160  44 6e 6f 77 74 73 5f 25  f2 44 6e 6f 75 67 68 74  |Dnowts_%.Dnought|
0000a170  73 0d 3a de 14 fd 61 5f  83 62 5f 3d 30 80 61 5f  |s.:...a_.b_=0.a_|
0000a180  3e 72 6e 5f 25 0d 3a e8  1d cd 3a e7 52 65 6d 61  |>rn_%.:...:.Rema|
0000a190  69 6e 64 65 72 5f 24 3d  22 41 6c 6c 22 f2 72 65  |inder_$="All".re|
0000a1a0  6d 70 0d 3a fc 17 e7 52  65 6d 61 69 6e 64 65 72  |mp.:...Remainder|
0000a1b0  5f 24 3d 22 52 61 6e 22  8c 0d 3b 06 1a 72 61 6e  |_$="Ran"..;..ran|
0000a1c0  64 79 5f 3d b3 28 32 29  3a e7 72 61 6e 64 79 5f  |dy_=.(2):.randy_|
0000a1d0  3d 31 8c 0d 3b 1a 30 f5  3a 61 5f 3d b3 28 72 61  |=1..;.0.:a_=.(ra|
0000a1e0  6e 5f 25 29 3a 62 5f 3d  4e 62 5f 25 28 74 5f 29  |n_%):b_=Nb_%(t_)|
0000a1f0  3a e7 44 6e 6f 77 74 73  5f 25 f2 44 6e 6f 75 67  |:.Dnowts_%.Dnoug|
0000a200  68 74 73 0d 3b 2e 14 fd  61 5f 83 62 5f 3d 30 80  |hts.;...a_.b_=0.|
0000a210  61 5f 3e 72 6e 5f 25 0d  3b 38 14 cd 3a e7 72 61  |a_>rn_%.;8..:.ra|
0000a220  6e 64 79 5f 3d 32 f2 72  65 6d 70 0d 3b 4c 0c cd  |ndy_=2.remp.;L..|
0000a230  3a e7 74 5f 3e 31 8c 0d  3b 6a 2a e3 65 5f 3d 31  |:.t_>1..;j*.e_=1|
0000a240  b8 74 5f 2d 31 3a e7 61  5f 3d 61 5f 28 65 5f 29  |.t_-1:.a_=a_(e_)|
0000a250  80 62 5f 3d 62 5f 28 65  5f 29 66 6c 61 67 5f 3d  |.b_=b_(e_)flag_=|
0000a260  31 0d 3b 74 05 ed 0d 3b  7e 60 cd 3a fd 66 6c 61  |1.;t...;~`.:.fla|
0000a270  67 5f 3d 30 3a 61 5f 28  74 5f 29 3d 61 5f 3a 62  |g_=0:a_(t_)=a_:b|
0000a280  5f 28 74 5f 29 3d 62 5f  3a e7 61 5f 83 62 5f 3c  |_(t_)=b_:.a_.b_<|
0000a290  3e 30 20 63 5f 28 74 5f  29 3d 61 5f 81 62 5f 3a  |>0 c_(t_)=a_.b_:|
0000a2a0  72 65 6d 5f 28 74 5f 29  3d 61 5f 83 62 5f 8b 63  |rem_(t_)=a_.b_.c|
0000a2b0  5f 28 74 5f 29 3d 61 5f  2f 62 5f 3a 72 65 6d 5f  |_(t_)=a_/b_:rem_|
0000a2c0  28 74 5f 29 3d 30 0d 3b  a6 25 ed 3a 73 74 61 72  |(t_)=0.;.%.:star|
0000a2d0  74 65 64 5f 25 3d b9 3a  c8 99 22 48 6f 75 72 67  |ted_%=.:.."Hourg|
0000a2e0  6c 61 73 73 5f 4f 66 66  22 3a e1 0d 3b ba 41 dd  |lass_Off":..;.A.|
0000a2f0  f2 72 65 6d 70 3a f5 3a  72 65 6d 66 6c 61 67 3d  |.remp:.:remflag=|
0000a300  b9 3a 61 5f 3d b3 28 72  61 6e 5f 25 29 3a 62 5f  |.:a_=.(ran_%):b_|
0000a310  3d 4e 62 5f 25 28 74 5f  29 3a e7 44 6e 6f 77 74  |=Nb_%(t_):.Dnowt|
0000a320  73 5f 25 f2 44 6e 6f 75  67 68 74 73 0d 3b e2 47  |s_%.Dnoughts.;.G|
0000a330  63 5f 3d 61 5f 2f 62 5f  3a 70 6f 69 6e 5f 3d 30  |c_=a_/b_:poin_=0|
0000a340  3a 63 5f 24 3d c3 28 63  5f 29 3a e3 63 63 5f 3d  |:c_$=.(c_):.cc_=|
0000a350  31 b8 a9 28 63 5f 24 29  3a e7 c1 63 5f 24 2c 63  |1..(c_$):..c_$,c|
0000a360  63 5f 2c 31 29 3d 22 2e  22 20 70 6f 69 6e 5f 3d  |c_,1)="." poin_=|
0000a370  63 63 5f 0d 3c 00 69 ed  3a 63 7a 5f 24 3d c1 63  |cc_.<.i.:cz_$=.c|
0000a380  5f 24 2c 70 6f 69 6e 5f  2b 31 2c a9 28 63 5f 24  |_$,poin_+1,.(c_$|
0000a390  29 2d 70 6f 69 6e 5f 2b  31 29 3a e7 a9 28 63 7a  |)-poin_+1):..(cz|
0000a3a0  5f 24 29 3e 70 77 6f 6e  5f 80 c1 63 7a 5f 24 2c  |_$)>pwon_..cz_$,|
0000a3b0  70 77 6f 6e 5f 2c 31 29  3d 22 39 22 80 bb 28 c1  |pwon_,1)="9"..(.|
0000a3c0  63 7a 5f 24 2c 70 77 6f  6e 5f 2b 31 2c 31 29 29  |cz_$,pwon_+1,1))|
0000a3d0  3e 34 20 72 65 6d 66 6c  61 67 3d a3 0d 3c 1e 45  |>4 remflag=..<.E|
0000a3e0  fd 61 5f 83 62 5f 3c 3e  30 80 61 5f 3e 72 6e 5f  |.a_.b_<>0.a_>rn_|
0000a3f0  25 80 72 65 6d 66 6c 61  67 3d b9 3a e7 a9 28 63  |%.remflag=.:..(c|
0000a400  7a 5f 24 29 3e 70 77 6f  6e 5f 80 bb 28 c1 63 7a  |z_$)>pwon_..(.cz|
0000a410  5f 24 2c 70 77 6f 6e 5f  2b 31 2c 31 29 29 3e 34  |_$,pwon_+1,1))>4|
0000a420  8c 0d 3c 3c 3d 64 5f 3d  bb 28 c1 63 7a 5f 24 2c  |..<<=d_=.(.cz_$,|
0000a430  70 77 6f 6e 5f 2c 31 29  29 3a 64 5f 3d 64 5f 2b  |pwon_,1)):d_=d_+|
0000a440  31 3a 64 5f 24 3d c3 28  64 5f 29 3a c1 63 7a 5f  |1:d_$=.(d_):.cz_|
0000a450  24 2c 70 77 6f 6e 5f 2c  31 29 3d 64 5f 24 0d 3c  |$,pwon_,1)=d_$.<|
0000a460  50 32 cd 3a e7 a9 28 63  7a 5f 24 29 3c 70 77 6f  |P2.:..(cz_$)<pwo|
0000a470  6e 5f 20 63 7a 5f 24 3d  63 7a 5f 24 2b c4 70 77  |n_ cz_$=cz_$+.pw|
0000a480  6f 6e 5f 2d a9 28 63 7a  5f 24 29 2c 22 30 22 29  |on_-.(cz_$),"0")|
0000a490  0d 3c 6e 1d 63 7a 5f 24  28 74 5f 29 3d c1 63 7a  |.<n.cz_$(t_)=.cz|
0000a4a0  5f 24 2c 31 2c 70 77 6f  6e 5f 29 3a e1 0d 3c b4  |_$,1,pwon_):..<.|
0000a4b0  4c dd f2 4d 61 67 69 63  3a 4d 61 67 69 63 5f 25  |L..Magic:Magic_%|
0000a4c0  3d a4 66 57 53 28 22 4d  61 67 69 63 22 29 3a e7  |=.fWS("Magic"):.|
0000a4d0  4d 61 67 52 61 6e 67 65  5f 24 3d 22 31 20 74 6f  |MagRange_$="1 to|
0000a4e0  20 32 35 22 f2 73 49 28  4d 61 67 69 63 5f 25 2c  | 25".sI(Magic_%,|
0000a4f0  22 52 61 6e 67 65 31 22  29 0d 3c c8 2f e7 4d 61  |"Range1").<./.Ma|
0000a500  67 52 61 6e 67 65 5f 24  3d 22 32 35 20 74 6f 20  |gRange_$="25 to |
0000a510  35 30 22 f2 73 49 28 4d  61 67 69 63 5f 25 2c 22  |50".sI(Magic_%,"|
0000a520  52 61 6e 67 65 32 22 29  0d 3c d2 30 e7 4d 61 67  |Range2").<.0.Mag|
0000a530  52 61 6e 67 65 5f 24 3d  22 35 30 20 74 6f 20 31  |Range_$="50 to 1|
0000a540  30 30 22 f2 73 49 28 4d  61 67 69 63 5f 25 2c 22  |00".sI(Magic_%,"|
0000a550  52 61 6e 67 65 33 22 29  0d 3c dc 32 e7 4d 61 67  |Range3").<.2.Mag|
0000a560  52 61 6e 67 65 5f 24 3d  22 31 30 30 20 74 6f 20  |Range_$="100 to |
0000a570  31 30 30 30 22 f2 73 49  28 4d 61 67 69 63 5f 25  |1000".sI(Magic_%|
0000a580  2c 22 52 61 6e 67 65 34  22 29 0d 3c e6 05 e1 0d  |,"Range4").<....|
0000a590  3d 0e 3b dd a4 52 61 6e  67 65 31 5f 3a e7 4d 61  |=.;..Range1_:.Ma|
0000a5a0  67 52 61 6e 67 65 5f 24  3d 22 31 20 74 6f 20 32  |gRange_$="1 to 2|
0000a5b0  35 22 f2 73 49 28 4d 61  67 69 63 5f 25 2c 22 52  |5".sI(Magic_%,"R|
0000a5c0  61 6e 67 65 31 22 29 3a  3d b9 0d 3d 18 60 4d 61  |ange1"):=..=.`Ma|
0000a5d0  67 52 61 6e 67 65 5f 24  3d 22 31 20 74 6f 20 32  |gRange_$="1 to 2|
0000a5e0  35 22 3a f2 75 73 49 28  4d 61 67 69 63 5f 25 2c  |5":.usI(Magic_%,|
0000a5f0  22 52 61 6e 67 65 32 22  29 3a f2 75 73 49 28 4d  |"Range2"):.usI(M|
0000a600  61 67 69 63 5f 25 2c 22  52 61 6e 67 65 33 22 29  |agic_%,"Range3")|
0000a610  3a f2 75 73 49 28 4d 61  67 69 63 5f 25 2c 22 52  |:.usI(Magic_%,"R|
0000a620  61 6e 67 65 34 22 29 3a  3d b9 0d 3d 36 3c dd a4  |ange4"):=..=6<..|
0000a630  52 61 6e 67 65 32 5f 3a  e7 4d 61 67 52 61 6e 67  |Range2_:.MagRang|
0000a640  65 5f 24 3d 22 32 35 20  74 6f 20 35 30 22 f2 73  |e_$="25 to 50".s|
0000a650  49 28 4d 61 67 69 63 5f  25 2c 22 52 61 6e 67 65  |I(Magic_%,"Range|
0000a660  32 22 29 3a 3d b9 0d 3d  40 61 4d 61 67 52 61 6e  |2"):=..=@aMagRan|
0000a670  67 65 5f 24 3d 22 32 35  20 74 6f 20 35 30 22 3a  |ge_$="25 to 50":|
0000a680  f2 75 73 49 28 4d 61 67  69 63 5f 25 2c 22 52 61  |.usI(Magic_%,"Ra|
0000a690  6e 67 65 31 22 29 3a f2  75 73 49 28 4d 61 67 69  |nge1"):.usI(Magi|
0000a6a0  63 5f 25 2c 22 52 61 6e  67 65 33 22 29 3a f2 75  |c_%,"Range3"):.u|
0000a6b0  73 49 28 4d 61 67 69 63  5f 25 2c 22 52 61 6e 67  |sI(Magic_%,"Rang|
0000a6c0  65 34 22 29 3a 3d b9 0d  3d 5e 3d dd a4 52 61 6e  |e4"):=..=^=..Ran|
0000a6d0  67 65 33 5f 3a e7 4d 61  67 52 61 6e 67 65 5f 24  |ge3_:.MagRange_$|
0000a6e0  3d 22 35 30 20 74 6f 20  31 30 30 22 f2 73 49 28  |="50 to 100".sI(|
0000a6f0  4d 61 67 69 63 5f 25 2c  22 52 61 6e 67 65 33 22  |Magic_%,"Range3"|
0000a700  29 3a 3d b9 0d 3d 68 62  4d 61 67 52 61 6e 67 65  |):=..=hbMagRange|
0000a710  5f 24 3d 22 35 30 20 74  6f 20 31 30 30 22 3a f2  |_$="50 to 100":.|
0000a720  75 73 49 28 4d 61 67 69  63 5f 25 2c 22 52 61 6e  |usI(Magic_%,"Ran|
0000a730  67 65 31 22 29 3a f2 75  73 49 28 4d 61 67 69 63  |ge1"):.usI(Magic|
0000a740  5f 25 2c 22 52 61 6e 67  65 32 22 29 3a f2 75 73  |_%,"Range2"):.us|
0000a750  49 28 4d 61 67 69 63 5f  25 2c 22 52 61 6e 67 65  |I(Magic_%,"Range|
0000a760  34 22 29 3a 3d b9 0d 3d  86 3f dd a4 52 61 6e 67  |4"):=..=.?..Rang|
0000a770  65 34 5f 3a e7 4d 61 67  52 61 6e 67 65 5f 24 3d  |e4_:.MagRange_$=|
0000a780  22 31 30 30 20 74 6f 20  31 30 30 30 22 f2 73 49  |"100 to 1000".sI|
0000a790  28 4d 61 67 69 63 5f 25  2c 22 52 61 6e 67 65 34  |(Magic_%,"Range4|
0000a7a0  22 29 3a 3d b9 0d 3d 90  64 4d 61 67 52 61 6e 67  |"):=..=.dMagRang|
0000a7b0  65 5f 24 3d 22 31 30 30  20 74 6f 20 31 30 30 30  |e_$="100 to 1000|
0000a7c0  22 3a f2 75 73 49 28 4d  61 67 69 63 5f 25 2c 22  |":.usI(Magic_%,"|
0000a7d0  52 61 6e 67 65 31 22 29  3a f2 75 73 49 28 4d 61  |Range1"):.usI(Ma|
0000a7e0  67 69 63 5f 25 2c 22 52  61 6e 67 65 32 22 29 3a  |gic_%,"Range2"):|
0000a7f0  f2 75 73 49 28 4d 61 67  69 63 5f 25 2c 22 52 61  |.usI(Magic_%,"Ra|
0000a800  6e 67 65 33 22 29 3a 3d  b9 0d 3d cc 59 dd a4 4d  |nge3"):=..=.Y..M|
0000a810  61 67 31 5f 3a 4d 61 67  5f 3d a3 3a f2 75 73 49  |ag1_:Mag_=.:.usI|
0000a820  28 4d 61 67 69 63 5f 25  2c 22 4d 61 67 31 22 29  |(Magic_%,"Mag1")|
0000a830  3a 6c 61 73 74 5f 3d 33  3a 71 75 69 74 5f 3d a3  |:last_=3:quit_=.|
0000a840  3a 43 6c 75 65 5f 24 3d  22 4d 61 67 69 63 22 3a  |:Clue_$="Magic":|
0000a850  73 74 61 72 74 65 64 5f  25 3d b9 3a 3d a4 73 75  |started_%=.:=.su|
0000a860  6d 73 0d 3d fe 27 dd f2  4d 61 67 31 3a 64 75 6d  |ms.=.'..Mag1:dum|
0000a870  6d 79 5f 3d b3 28 2d 91  29 3a e7 4d 61 67 5f 3d  |my_=.(-.):.Mag_=|
0000a880  a3 f2 70 72 65 70 61 72  65 0d 3e 12 de 6c 65 66  |..prepare.>..lef|
0000a890  74 5f 3d 58 25 2b 36 30  3a 73 74 61 72 74 6c 65  |t_=X%+60:startle|
0000a8a0  66 74 5f 3d 6c 65 66 74  5f 3a 6f 72 69 67 6c 65  |ft_=left_:origle|
0000a8b0  66 74 5f 3d 6c 65 66 74  5f 3a 6f 6e 5f 3d 39 30  |ft_=left_:on_=90|
0000a8c0  3a 64 6f 77 6e 5f 3d 59  25 2d 31 34 30 3a 6f 72  |:down_=Y%-140:or|
0000a8d0  69 67 64 6f 77 6e 5f 3d  64 6f 77 6e 5f 3a 73 74  |igdown_=down_:st|
0000a8e0  61 72 74 64 6f 77 6e 5f  3d 64 6f 77 6e 5f 3a 73  |artdown_=down_:s|
0000a8f0  69 64 65 5f 3d 37 35 3a  73 5f 3d 30 3a 6e 75 6d  |ide_=75:s_=0:num|
0000a900  62 65 72 5f 3d 30 3a e3  71 71 5f 3d 31 b8 33 3a  |ber_=0:.qq_=1.3:|
0000a910  e3 77 77 5f 3d 31 b8 33  3a 6e 75 6d 62 65 72 5f  |.ww_=1.3:number_|
0000a920  3d 6e 75 6d 62 65 72 5f  2b 31 3a ec 6c 65 66 74  |=number_+1:.left|
0000a930  5f 2d 34 30 2c 64 6f 77  6e 5f 3a f1 c3 28 6e 75  |_-40,down_:..(nu|
0000a940  6d 62 65 72 5f 29 2b 22  29 22 3a 74 5f 3d 30 3a  |mber_)+")":t_=0:|
0000a950  f2 62 6f 78 65 73 3a 64  6f 77 6e 5f 3d 73 74 61  |.boxes:down_=sta|
0000a960  72 74 64 6f 77 6e 5f 0d  3e 6c 9f 73 74 61 72 74  |rtdown_.>l.start|
0000a970  6c 65 66 74 5f 3d 73 74  61 72 74 6c 65 66 74 5f  |left_=startleft_|
0000a980  2b 73 69 64 65 5f 2a 33  2b 6f 6e 5f 3a 6c 65 66  |+side_*3+on_:lef|
0000a990  74 5f 3d 73 74 61 72 74  6c 65 66 74 5f 3a ed 3a  |t_=startleft_:.:|
0000a9a0  73 74 61 72 74 6c 65 66  74 5f 3d 6f 72 69 67 6c  |startleft_=origl|
0000a9b0  65 66 74 5f 3a 6c 65 66  74 5f 3d 73 74 61 72 74  |eft_:left_=start|
0000a9c0  6c 65 66 74 5f 3a 73 74  61 72 74 64 6f 77 6e 5f  |left_:startdown_|
0000a9d0  3d 73 74 61 72 74 64 6f  77 6e 5f 2d 73 69 64 65  |=startdown_-side|
0000a9e0  5f 2a 33 2d 6f 6e 5f 2b  37 30 3a 64 6f 77 6e 5f  |_*3-on_+70:down_|
0000a9f0  3d 73 74 61 72 74 64 6f  77 6e 5f 3a ed 3a 4d 61  |=startdown_:.:Ma|
0000aa00  67 5f 3d b9 3a e1 0d 3e  bc b5 dd f2 62 6f 78 65  |g_=.:..>....boxe|
0000aa10  73 3a 73 5f 3d 73 5f 2b  31 3a e3 71 5f 3d 31 b8  |s:s_=s_+1:.q_=1.|
0000aa20  33 3a e3 77 5f 3d 31 b8  33 3a 74 5f 3d 74 5f 2b  |3:.w_=1.3:t_=t_+|
0000aa30  31 3a ec 6c 65 66 74 5f  2c 64 6f 77 6e 5f 3a df  |1:.left_,down_:.|
0000aa40  6c 65 66 74 5f 2b 73 69  64 65 5f 2c 64 6f 77 6e  |left_+side_,down|
0000aa50  5f 3a df 6c 65 66 74 5f  2b 73 69 64 65 5f 2c 64  |_:.left_+side_,d|
0000aa60  6f 77 6e 5f 2d 73 69 64  65 5f 3a df 6c 65 66 74  |own_-side_:.left|
0000aa70  5f 2c 64 6f 77 6e 5f 2d  73 69 64 65 5f 3a df 6c  |_,down_-side_:.l|
0000aa80  65 66 74 5f 2c 64 6f 77  6e 5f 3a 69 6e 73 5f 3d  |eft_,down_:ins_=|
0000aa90  38 3a 61 5f 24 3d c3 28  6d 61 67 69 63 5f 28 73  |8:a_$=.(magic_(s|
0000aaa0  5f 2c 74 5f 29 29 3a e7  41 6e 73 77 65 72 5f 25  |_,t_)):.Answer_%|
0000aab0  3d b9 f2 6d 61 67 69 63  61 6e 73 0d 3f 16 5a e7  |=..magicans.?.Z.|
0000aac0  c1 70 61 74 5f 24 28 70  61 74 74 65 72 6e 5f 28  |.pat_$(pattern_(|
0000aad0  73 5f 29 29 2c 74 5f 2c  31 29 3d 22 31 22 ec 6c  |s_)),t_,1)="1".l|
0000aae0  65 66 74 5f 2b 73 69 64  65 5f 2f 32 2d a9 28 61  |eft_+side_/2-.(a|
0000aaf0  5f 24 29 2f 32 2a 31 36  2c 64 6f 77 6e 5f 2d 73  |_$)/2*16,down_-s|
0000ab00  69 64 65 5f 2f 32 2b 31  32 3a f1 a4 7a 65 72 6f  |ide_/2+12:..zero|
0000ab10  28 61 5f 24 29 0d 3f 20  3e 6c 65 66 74 5f 3d 6c  |(a_$).? >left_=l|
0000ab20  65 66 74 5f 2b 73 69 64  65 5f 3a ed 3a 6c 65 66  |eft_+side_:.:lef|
0000ab30  74 5f 3d 73 74 61 72 74  6c 65 66 74 5f 3a 64 6f  |t_=startleft_:do|
0000ab40  77 6e 5f 3d 64 6f 77 6e  5f 2d 73 69 64 65 5f 3a  |wn_=down_-side_:|
0000ab50  ed 3a e1 0d 3f 48 b8 dd  f2 6d 61 67 69 63 61 6e  |.:..?H...magican|
0000ab60  73 3a e7 c1 70 61 74 5f  24 28 70 61 74 74 65 72  |s:..pat_$(patter|
0000ab70  6e 5f 28 73 5f 29 29 2c  74 5f 2c 31 29 3d 22 30  |n_(s_)),t_,1)="0|
0000ab80  22 ec 6c 65 66 74 5f 2b  69 6e 73 5f 2c 64 6f 77  |".left_+ins_,dow|
0000ab90  6e 5f 2d 69 6e 73 5f 3a  df 6c 65 66 74 5f 2b 73  |n_-ins_:.left_+s|
0000aba0  69 64 65 5f 2d 69 6e 73  5f 2c 64 6f 77 6e 5f 2d  |ide_-ins_,down_-|
0000abb0  69 6e 73 5f 3a df 6c 65  66 74 5f 2b 73 69 64 65  |ins_:.left_+side|
0000abc0  5f 2d 69 6e 73 5f 2c 64  6f 77 6e 5f 2d 73 69 64  |_-ins_,down_-sid|
0000abd0  65 5f 2b 69 6e 73 5f 3a  df 6c 65 66 74 5f 2b 69  |e_+ins_:.left_+i|
0000abe0  6e 73 5f 2c 64 6f 77 6e  5f 2d 73 69 64 65 5f 2b  |ns_,down_-side_+|
0000abf0  69 6e 73 5f 3a df 6c 65  66 74 5f 2b 69 6e 73 5f  |ins_:.left_+ins_|
0000ac00  2c 64 6f 77 6e 5f 2d 69  6e 73 5f 0d 3f 5c 5a e7  |,down_-ins_.?\Z.|
0000ac10  c1 70 61 74 5f 24 28 70  61 74 74 65 72 6e 5f 28  |.pat_$(pattern_(|
0000ac20  73 5f 29 29 2c 74 5f 2c  31 29 3d 22 30 22 ec 6c  |s_)),t_,1)="0".l|
0000ac30  65 66 74 5f 2b 73 69 64  65 5f 2f 32 2d a9 28 61  |eft_+side_/2-.(a|
0000ac40  5f 24 29 2f 32 2a 31 36  2c 64 6f 77 6e 5f 2d 73  |_$)/2*16,down_-s|
0000ac50  69 64 65 5f 2f 32 2b 31  32 3a f1 a4 7a 65 72 6f  |ide_/2+12:..zero|
0000ac60  28 61 5f 24 29 0d 3f 66  05 e1 0d 3f 7a ca dd f2  |(a_$).?f...?z...|
0000ac70  70 72 65 70 61 72 65 3a  70 61 74 5f 24 28 31 29  |prepare:pat_$(1)|
0000ac80  3d 22 30 30 31 30 31 31  30 30 31 22 3a 70 61 74  |="001011001":pat|
0000ac90  5f 24 28 32 29 3d 22 30  30 31 30 31 30 31 31 30  |_$(2)="001010110|
0000aca0  22 3a 70 61 74 5f 24 28  33 29 3d 22 31 31 30 31  |":pat_$(3)="1101|
0000acb0  30 30 31 30 30 22 3a 70  61 74 5f 24 28 34 29 3d  |00100":pat_$(4)=|
0000acc0  22 30 30 30 30 31 30 31  31 31 22 3a 70 61 74 5f  |"000010111":pat_|
0000acd0  24 28 35 29 3d 22 31 31  31 30 30 30 31 30 30 22  |$(5)="111000100"|
0000ace0  3a 70 61 74 5f 24 28 36  29 3d 22 31 30 30 30 31  |:pat_$(6)="10001|
0000acf0  30 31 30 31 22 3a 62 61  73 5f 24 28 31 29 3d 22  |0101":bas_$(1)="|
0000ad00  32 39 34 37 35 33 36 31  38 22 3a 62 61 73 5f 24  |294753618":bas_$|
0000ad10  28 32 29 3d 22 38 31 36  33 35 37 34 39 32 22 3a  |(2)="816357492":|
0000ad20  62 61 73 5f 24 28 33 29  3d 22 34 39 32 33 35 37  |bas_$(3)="492357|
0000ad30  38 31 36 22 0d 3f a2 c7  62 61 73 5f 24 28 34 29  |816".?..bas_$(4)|
0000ad40  3d 22 36 31 38 37 35 33  32 39 34 22 3a 62 61 73  |="618753294":bas|
0000ad50  5f 24 28 35 29 3d 22 32  39 34 37 35 33 36 31 38  |_$(5)="294753618|
0000ad60  22 3a 62 61 73 5f 24 28  36 29 3d 22 38 31 36 33  |":bas_$(6)="8163|
0000ad70  35 37 34 39 32 22 3a 62  61 73 5f 24 28 37 29 3d  |57492":bas_$(7)=|
0000ad80  22 34 39 32 33 35 37 38  31 36 22 3a 62 61 73 5f  |"492357816":bas_|
0000ad90  24 28 38 29 3d 22 36 31  38 37 35 33 32 39 34 22  |$(8)="618753294"|
0000ada0  3a 62 61 73 5f 24 28 39  29 3d 22 32 39 34 37 35  |:bas_$(9)="29475|
0000adb0  33 36 31 38 22 3a e3 66  5f 3d 31 b8 39 3a 70 61  |3618":.f_=1.9:pa|
0000adc0  74 74 65 72 6e 5f 28 66  5f 29 3d 2d 31 3a ed 3a  |ttern_(f_)=-1:.:|
0000add0  e3 66 5f 3d 31 b8 39 3a  f5 3a 66 6c 61 67 5f 3d  |.f_=1.9:.:flag_=|
0000ade0  30 3a 70 61 74 74 65 72  6e 5f 3d b3 28 36 29 3a  |0:pattern_=.(6):|
0000adf0  e7 66 5f 3e 31 80 66 5f  3c 37 8c 0d 3f f2 2b e3  |.f_>1.f_<7..?.+.|
0000ae00  6a 5f 3d 31 b8 66 5f 3a  e7 70 61 74 74 65 72 6e  |j_=1.f_:.pattern|
0000ae10  5f 28 6a 5f 29 3d 70 61  74 74 65 72 6e 5f 20 66  |_(j_)=pattern_ f|
0000ae20  6c 61 67 5f 3d 31 0d 3f  fc 05 ed 0d 40 06 55 cd  |lag_=1.?....@.U.|
0000ae30  3a fd 66 6c 61 67 5f 3d  30 3a 70 61 74 74 65 72  |:.flag_=0:patter|
0000ae40  6e 5f 28 66 5f 29 3d 70  61 74 74 65 72 6e 5f 3a  |n_(f_)=pattern_:|
0000ae50  ed 3a e7 4d 61 67 52 61  6e 67 65 5f 24 3d 22 31  |.:.MagRange_$="1|
0000ae60  20 74 6f 20 32 35 22 8c  74 6f 70 72 61 6e 67 65  | to 25".toprange|
0000ae70  5f 3d 32 35 3a 62 6f 74  72 61 6e 67 65 5f 3d 30  |_=25:botrange_=0|
0000ae80  0d 40 38 34 e7 4d 61 67  52 61 6e 67 65 5f 24 3d  |.@84.MagRange_$=|
0000ae90  22 32 35 20 74 6f 20 35  30 22 8c 74 6f 70 72 61  |"25 to 50".topra|
0000aea0  6e 67 65 5f 3d 35 30 3a  62 6f 74 72 61 6e 67 65  |nge_=50:botrange|
0000aeb0  5f 3d 32 34 0d 40 42 36  e7 4d 61 67 52 61 6e 67  |_=24.@B6.MagRang|
0000aec0  65 5f 24 3d 22 35 30 20  74 6f 20 31 30 30 22 8c  |e_$="50 to 100".|
0000aed0  74 6f 70 72 61 6e 67 65  5f 3d 31 30 30 3a 62 6f  |toprange_=100:bo|
0000aee0  74 72 61 6e 67 65 5f 3d  34 39 0d 40 4c 39 e7 4d  |trange_=49.@L9.M|
0000aef0  61 67 52 61 6e 67 65 5f  24 3d 22 31 30 30 20 74  |agRange_$="100 t|
0000af00  6f 20 31 30 30 30 22 8c  74 6f 70 72 61 6e 67 65  |o 1000".toprange|
0000af10  5f 3d 31 30 30 30 3a 62  6f 74 72 61 6e 67 65 5f  |_=1000:botrange_|
0000af20  3d 39 39 0d 40 56 70 e3  66 5f 3d 31 b8 39 3a 62  |=99.@Vp.f_=1.9:b|
0000af30  61 61 5f 28 66 5f 29 3d  2d 31 3a ed 3a e3 66 5f  |aa_(f_)=-1:.:.f_|
0000af40  3d 31 b8 39 3a f5 3a 66  6c 61 67 5f 3d 30 3a f5  |=1.9:.:flag_=0:.|
0000af50  3a 62 61 61 5f 3d b3 28  74 6f 70 72 61 6e 67 65  |:baa_=.(toprange|
0000af60  5f 29 2d 39 3a fd 62 61  61 5f 3e 62 6f 74 72 61  |_)-9:.baa_>botra|
0000af70  6e 67 65 5f 3a e3 6a 5f  3d 31 b8 39 3a e7 62 61  |nge_:.j_=1.9:.ba|
0000af80  61 5f 28 6a 5f 29 3d 62  61 61 5f 20 66 6c 61 67  |a_(j_)=baa_ flag|
0000af90  5f 3d 31 0d 40 a6 8a ed  3a fd 66 6c 61 67 5f 3d  |_=1.@...:.flag_=|
0000afa0  30 3a 62 61 61 5f 28 66  5f 29 3d 62 61 61 5f 3a  |0:baa_(f_)=baa_:|
0000afb0  ed 3a e3 71 5f 3d 31 b8  39 3a 6e 5f 3d 30 3a e3  |.:.q_=1.9:n_=0:.|
0000afc0  77 5f 3d 31 b8 39 3a 6e  5f 3d 6e 5f 2b 31 3a e3  |w_=1.9:n_=n_+1:.|
0000afd0  79 5f 3d 31 b8 39 3a 62  61 73 5f 28 79 5f 29 3d  |y_=1.9:bas_(y_)=|
0000afe0  bb 28 c1 62 61 73 5f 24  28 71 5f 29 2c 79 5f 2c  |.(.bas_$(q_),y_,|
0000aff0  31 29 29 2b 62 61 61 5f  28 71 5f 29 2d 31 3a ed  |1))+baa_(q_)-1:.|
0000b000  3a 6d 61 67 69 63 5f 28  71 5f 2c 77 5f 29 3d 62  |:magic_(q_,w_)=b|
0000b010  61 73 5f 28 6e 5f 29 3a  ed 3a ed 3a e1 0d 41 5a  |as_(n_):.:.:..AZ|
0000b020  44 dd f2 53 61 64 64 3a  53 61 64 5f 25 3d a4 66  |D..Sadd:Sad_%=.f|
0000b030  57 53 28 22 53 61 64 64  22 29 3a e7 66 5f 28 31  |WS("Sadd"):.f_(1|
0000b040  29 f2 73 49 28 53 61 64  5f 25 2c 22 46 31 22 29  |).sI(Sad_%,"F1")|
0000b050  8b f2 75 73 49 28 53 61  64 5f 25 2c 22 46 31 22  |..usI(Sad_%,"F1"|
0000b060  29 0d 41 6e 2a e7 66 5f  28 32 29 f2 73 49 28 53  |).An*.f_(2).sI(S|
0000b070  61 64 5f 25 2c 22 46 32  22 29 8b f2 75 73 49 28  |ad_%,"F2")..usI(|
0000b080  53 61 64 5f 25 2c 22 46  32 22 29 0d 41 78 2a e7  |Sad_%,"F2").Ax*.|
0000b090  66 5f 28 33 29 f2 73 49  28 53 61 64 5f 25 2c 22  |f_(3).sI(Sad_%,"|
0000b0a0  46 33 22 29 8b f2 75 73  49 28 53 61 64 5f 25 2c  |F3")..usI(Sad_%,|
0000b0b0  22 46 33 22 29 0d 41 82  2a e7 66 5f 28 34 29 f2  |"F3").A.*.f_(4).|
0000b0c0  73 49 28 53 61 64 5f 25  2c 22 46 34 22 29 8b f2  |sI(Sad_%,"F4")..|
0000b0d0  75 73 49 28 53 61 64 5f  25 2c 22 46 34 22 29 0d  |usI(Sad_%,"F4").|
0000b0e0  41 8c 2a e7 66 5f 28 35  29 f2 73 49 28 53 61 64  |A.*.f_(5).sI(Sad|
0000b0f0  5f 25 2c 22 46 35 22 29  8b f2 75 73 49 28 53 61  |_%,"F5")..usI(Sa|
0000b100  64 5f 25 2c 22 46 35 22  29 0d 41 96 2a e7 66 5f  |d_%,"F5").A.*.f_|
0000b110  28 36 29 f2 73 49 28 53  61 64 5f 25 2c 22 46 36  |(6).sI(Sad_%,"F6|
0000b120  22 29 8b f2 75 73 49 28  53 61 64 5f 25 2c 22 46  |")..usI(Sad_%,"F|
0000b130  36 22 29 0d 41 a0 2a e7  66 5f 28 37 29 f2 73 49  |6").A.*.f_(7).sI|
0000b140  28 53 61 64 5f 25 2c 22  46 37 22 29 8b f2 75 73  |(Sad_%,"F7")..us|
0000b150  49 28 53 61 64 5f 25 2c  22 46 37 22 29 0d 41 aa  |I(Sad_%,"F7").A.|
0000b160  2a e7 66 5f 28 38 29 f2  73 49 28 53 61 64 5f 25  |*.f_(8).sI(Sad_%|
0000b170  2c 22 46 38 22 29 8b f2  75 73 49 28 53 61 64 5f  |,"F8")..usI(Sad_|
0000b180  25 2c 22 46 38 22 29 0d  41 b4 2a e7 66 5f 28 39  |%,"F8").A.*.f_(9|
0000b190  29 f2 73 49 28 53 61 64  5f 25 2c 22 46 39 22 29  |).sI(Sad_%,"F9")|
0000b1a0  8b f2 75 73 49 28 53 61  64 5f 25 2c 22 46 39 22  |..usI(Sad_%,"F9"|
0000b1b0  29 0d 41 be 2d e7 66 5f  28 31 30 29 f2 73 49 28  |).A.-.f_(10).sI(|
0000b1c0  53 61 64 5f 25 2c 22 46  31 30 22 29 8b f2 75 73  |Sad_%,"F10")..us|
0000b1d0  49 28 53 61 64 5f 25 2c  22 46 31 30 22 29 0d 41  |I(Sad_%,"F10").A|
0000b1e0  c8 2d e7 66 5f 28 31 31  29 f2 73 49 28 53 61 64  |.-.f_(11).sI(Sad|
0000b1f0  5f 25 2c 22 46 31 31 22  29 8b f2 75 73 49 28 53  |_%,"F11")..usI(S|
0000b200  61 64 5f 25 2c 22 46 31  31 22 29 0d 41 d2 2d e7  |ad_%,"F11").A.-.|
0000b210  66 5f 28 31 32 29 f2 73  49 28 53 61 64 5f 25 2c  |f_(12).sI(Sad_%,|
0000b220  22 46 31 32 22 29 8b f2  75 73 49 28 53 61 64 5f  |"F12")..usI(Sad_|
0000b230  25 2c 22 46 31 32 22 29  0d 41 dc 3f e7 53 61 64  |%,"F12").A.?.Sad|
0000b240  63 61 72 72 79 5f 28 31  29 f2 73 49 28 53 61 64  |carry_(1).sI(Sad|
0000b250  5f 25 2c 22 53 61 64 43  61 72 72 79 31 22 29 8b  |_%,"SadCarry1").|
0000b260  f2 75 73 49 28 53 61 64  5f 25 2c 22 53 61 64 43  |.usI(Sad_%,"SadC|
0000b270  61 72 72 79 31 22 29 0d  41 e6 3f e7 53 61 64 63  |arry1").A.?.Sadc|
0000b280  61 72 72 79 5f 28 32 29  f2 73 49 28 53 61 64 5f  |arry_(2).sI(Sad_|
0000b290  25 2c 22 53 61 64 43 61  72 72 79 32 22 29 8b f2  |%,"SadCarry2")..|
0000b2a0  75 73 49 28 53 61 64 5f  25 2c 22 53 61 64 43 61  |usI(Sad_%,"SadCa|
0000b2b0  72 72 79 32 22 29 0d 41  f0 3f e7 53 61 64 63 61  |rry2").A.?.Sadca|
0000b2c0  72 72 79 5f 28 33 29 f2  73 49 28 53 61 64 5f 25  |rry_(3).sI(Sad_%|
0000b2d0  2c 22 53 61 64 43 61 72  72 79 33 22 29 8b f2 75  |,"SadCarry3")..u|
0000b2e0  73 49 28 53 61 64 5f 25  2c 22 53 61 64 43 61 72  |sI(Sad_%,"SadCar|
0000b2f0  72 79 33 22 29 0d 41 fa  37 e7 46 72 61 63 61 64  |ry3").A.7.Fracad|
0000b300  64 5f f2 73 49 28 53 61  64 5f 25 2c 22 46 72 61  |d_.sI(Sad_%,"Fra|
0000b310  63 61 64 64 22 29 8b f2  75 73 49 28 53 61 64 5f  |cadd")..usI(Sad_|
0000b320  25 2c 22 46 72 61 63 61  64 64 22 29 0d 42 04 3a  |%,"Fracadd").B.:|
0000b330  e7 46 72 61 63 74 61 6b  65 5f f2 73 49 28 53 61  |.Fractake_.sI(Sa|
0000b340  64 5f 25 2c 22 46 72 61  63 74 61 6b 65 22 29 8b  |d_%,"Fractake").|
0000b350  f2 75 73 49 28 53 61 64  5f 25 2c 22 46 72 61 63  |.usI(Sad_%,"Frac|
0000b360  74 61 6b 65 22 29 0d 42  0e 34 e7 61 64 64 6f 6d  |take").B.4.addom|
0000b370  73 5f f2 73 49 28 53 61  64 5f 25 2c 22 61 64 64  |s_.sI(Sad_%,"add|
0000b380  6f 6d 73 22 29 8b f2 75  73 49 28 53 61 64 5f 25  |oms")..usI(Sad_%|
0000b390  2c 22 61 64 64 6f 6d 73  22 29 0d 42 18 37 e7 41  |,"addoms").B.7.A|
0000b3a0  64 64 52 65 70 73 5f f2  73 49 28 53 61 64 5f 25  |ddReps_.sI(Sad_%|
0000b3b0  2c 22 41 64 64 52 65 70  73 22 29 8b f2 75 73 49  |,"AddReps")..usI|
0000b3c0  28 53 61 64 5f 25 2c 22  41 64 64 52 65 70 73 22  |(Sad_%,"AddReps"|
0000b3d0  29 0d 42 22 37 e7 73 75  62 64 6f 6d 73 5f f2 73  |).B"7.subdoms_.s|
0000b3e0  49 28 53 61 64 5f 25 2c  22 73 75 62 64 6f 6d 73  |I(Sad_%,"subdoms|
0000b3f0  22 29 8b f2 75 73 49 28  53 61 64 5f 25 2c 22 73  |")..usI(Sad_%,"s|
0000b400  75 62 64 6f 6d 73 22 29  0d 42 2c 37 e7 53 75 62  |ubdoms").B,7.Sub|
0000b410  52 65 70 73 5f f2 73 49  28 53 61 64 5f 25 2c 22  |Reps_.sI(Sad_%,"|
0000b420  53 75 62 52 65 70 73 22  29 8b f2 75 73 49 28 53  |SubReps")..usI(S|
0000b430  61 64 5f 25 2c 22 53 75  62 52 65 70 73 22 29 0d  |ad_%,"SubReps").|
0000b440  42 36 05 e1 0d 42 5e 33  dd a4 46 72 61 63 61 64  |B6...B^3..Fracad|
0000b450  64 5f 3a e7 46 72 61 63  74 61 6b 65 5f 3d a3 8c  |d_:.Fractake_=..|
0000b460  f2 73 49 28 53 61 64 5f  25 2c 22 46 72 61 63 61  |.sI(Sad_%,"Fraca|
0000b470  64 64 22 29 3a 3d a3 0d  42 68 0e e7 46 72 61 63  |dd"):=..Bh..Frac|
0000b480  61 64 64 5f 8c 0d 42 72  d9 46 72 61 63 61 64 64  |add_..Br.Fracadd|
0000b490  5f 3d a3 3a f2 75 73 49  28 53 61 64 5f 25 2c 22  |_=.:.usI(Sad_%,"|
0000b4a0  46 72 61 63 61 64 64 22  29 3a 61 64 64 6f 6d 73  |Fracadd"):addoms|
0000b4b0  5f 3d a3 3a f2 75 73 49  28 53 61 64 5f 25 2c 22  |_=.:.usI(Sad_%,"|
0000b4c0  61 64 64 6f 6d 73 22 29  3a 53 61 64 63 61 72 72  |addoms"):Sadcarr|
0000b4d0  79 5f 28 31 29 3d a3 3a  f2 75 73 49 28 53 61 64  |y_(1)=.:.usI(Sad|
0000b4e0  5f 25 2c 22 53 61 64 43  61 72 72 79 31 22 29 3a  |_%,"SadCarry1"):|
0000b4f0  53 61 64 63 61 72 72 79  5f 28 32 29 3d a3 3a f2  |Sadcarry_(2)=.:.|
0000b500  75 73 49 28 53 61 64 5f  25 2c 22 53 61 64 43 61  |usI(Sad_%,"SadCa|
0000b510  72 72 79 32 22 29 3a 53  61 64 63 61 72 72 79 5f  |rry2"):Sadcarry_|
0000b520  28 33 29 3d a3 3a f2 75  73 49 28 53 61 64 5f 25  |(3)=.:.usI(Sad_%|
0000b530  2c 22 53 61 64 43 61 72  72 79 33 22 29 3a 41 64  |,"SadCarry3"):Ad|
0000b540  64 52 65 70 73 5f 3d a3  3a f2 75 73 49 28 53 61  |dReps_=.:.usI(Sa|
0000b550  64 5f 25 2c 22 41 64 64  52 65 70 73 22 29 0d 42  |d_%,"AddReps").B|
0000b560  ae d9 cc 3a 46 72 61 63  61 64 64 5f 3d b9 3a f2  |...:Fracadd_=.:.|
0000b570  73 49 28 53 61 64 5f 25  2c 22 46 72 61 63 61 64  |sI(Sad_%,"Fracad|
0000b580  64 22 29 3a 61 64 64 6f  6d 73 5f 3d a3 3a f2 75  |d"):addoms_=.:.u|
0000b590  73 49 28 53 61 64 5f 25  2c 22 61 64 64 6f 6d 73  |sI(Sad_%,"addoms|
0000b5a0  22 29 3a 53 61 64 63 61  72 72 79 5f 28 31 29 3d  |"):Sadcarry_(1)=|
0000b5b0  a3 3a f2 75 73 49 28 53  61 64 5f 25 2c 22 53 61  |.:.usI(Sad_%,"Sa|
0000b5c0  64 43 61 72 72 79 31 22  29 3a 53 61 64 63 61 72  |dCarry1"):Sadcar|
0000b5d0  72 79 5f 28 32 29 3d a3  3a f2 75 73 49 28 53 61  |ry_(2)=.:.usI(Sa|
0000b5e0  64 5f 25 2c 22 53 61 64  43 61 72 72 79 32 22 29  |d_%,"SadCarry2")|
0000b5f0  3a 53 61 64 63 61 72 72  79 5f 28 33 29 3d b9 3a  |:Sadcarry_(3)=.:|
0000b600  f2 73 49 28 53 61 64 5f  25 2c 22 53 61 64 43 61  |.sI(Sad_%,"SadCa|
0000b610  72 72 79 33 22 29 3a 41  64 64 52 65 70 73 5f 3d  |rry3"):AddReps_=|
0000b620  a3 3a f2 75 73 49 28 53  61 64 5f 25 2c 22 41 64  |.:.usI(Sad_%,"Ad|
0000b630  64 52 65 70 73 22 29 0d  42 f4 08 cd 3a 3d b9 0d  |dReps").B...:=..|
0000b640  43 12 34 dd a4 46 72 61  63 74 61 6b 65 5f 3a e7  |C.4..Fractake_:.|
0000b650  46 72 61 63 61 64 64 5f  3d a3 8c f2 73 49 28 53  |Fracadd_=...sI(S|
0000b660  61 64 5f 25 2c 22 46 72  61 63 74 61 6b 65 22 29  |ad_%,"Fractake")|
0000b670  3a 3d a3 0d 43 1c 0f e7  46 72 61 63 74 61 6b 65  |:=..C...Fractake|
0000b680  5f 8c 0d 43 26 26 46 72  61 63 74 61 6b 65 5f 3d  |_..C&&Fractake_=|
0000b690  a3 3a f2 75 73 49 28 53  61 64 5f 25 2c 22 46 72  |.:.usI(Sad_%,"Fr|
0000b6a0  61 63 74 61 6b 65 22 29  0d 43 30 27 cc 3a 46 72  |actake").C0'.:Fr|
0000b6b0  61 63 74 61 6b 65 5f 3d  b9 3a f2 73 49 28 53 61  |actake_=.:.sI(Sa|
0000b6c0  64 5f 25 2c 22 46 72 61  63 74 61 6b 65 22 29 0d  |d_%,"Fractake").|
0000b6d0  43 44 4a cd 3a 73 75 62  64 6f 6d 73 5f 3d a3 3a  |CDJ.:subdoms_=.:|
0000b6e0  f2 75 73 49 28 53 61 64  5f 25 2c 22 73 75 62 64  |.usI(Sad_%,"subd|
0000b6f0  6f 6d 73 22 29 3a 53 75  62 52 65 70 73 5f 3d a3  |oms"):SubReps_=.|
0000b700  3a f2 75 73 49 28 53 61  64 5f 25 2c 22 53 75 62  |:.usI(Sad_%,"Sub|
0000b710  52 65 70 73 22 29 3a 3d  b9 0d 43 76 3a dd a4 61  |Reps"):=..Cv:..a|
0000b720  64 64 6f 6d 73 5f 3a e7  46 72 61 63 61 64 64 5f  |ddoms_:.Fracadd_|
0000b730  3d a3 61 64 64 6f 6d 73  5f 3d a3 3a f2 75 73 49  |=.addoms_=.:.usI|
0000b740  28 53 61 64 5f 25 2c 22  61 64 64 6f 6d 73 22 29  |(Sad_%,"addoms")|
0000b750  3a 3d a3 0d 43 80 4a e7  61 64 64 6f 6d 73 5f 3d  |:=..C.J.addoms_=|
0000b760  b9 61 64 64 6f 6d 73 5f  3d a3 3a f2 75 73 49 28  |.addoms_=.:.usI(|
0000b770  53 61 64 5f 25 2c 22 61  64 64 6f 6d 73 22 29 8b  |Sad_%,"addoms").|
0000b780  61 64 64 6f 6d 73 5f 3d  b9 3a f2 73 49 28 53 61  |addoms_=.:.sI(Sa|
0000b790  64 5f 25 2c 22 61 64 64  6f 6d 73 22 29 0d 43 8a  |d_%,"addoms").C.|
0000b7a0  06 3d b9 0d 43 9e 3d dd  a4 41 64 64 52 65 70 73  |.=..C.=..AddReps|
0000b7b0  5f 3a e7 46 72 61 63 61  64 64 5f 3d a3 41 64 64  |_:.Fracadd_=.Add|
0000b7c0  52 65 70 73 5f 3d a3 3a  f2 75 73 49 28 53 61 64  |Reps_=.:.usI(Sad|
0000b7d0  5f 25 2c 22 41 64 64 52  65 70 73 22 29 3a 3d a3  |_%,"AddReps"):=.|
0000b7e0  0d 43 a8 4f e7 41 64 64  52 65 70 73 5f 3d b9 41  |.C.O.AddReps_=.A|
0000b7f0  64 64 52 65 70 73 5f 3d  a3 3a f2 75 73 49 28 53  |ddReps_=.:.usI(S|
0000b800  61 64 5f 25 2c 22 41 64  64 52 65 70 73 22 29 8b  |ad_%,"AddReps").|
0000b810  41 64 64 52 65 70 73 5f  3d b9 3a f2 73 49 28 53  |AddReps_=.:.sI(S|
0000b820  61 64 5f 25 2c 22 41 64  64 52 65 70 73 22 29 0d  |ad_%,"AddReps").|
0000b830  43 b2 06 3d b9 0d 43 c6  3e dd a4 73 75 62 64 6f  |C..=..C.>..subdo|
0000b840  6d 73 5f 3a e7 46 72 61  63 74 61 6b 65 5f 3d a3  |ms_:.Fractake_=.|
0000b850  73 75 62 64 6f 6d 73 5f  3d a3 3a f2 75 73 49 28  |subdoms_=.:.usI(|
0000b860  53 61 64 5f 25 2c 22 73  75 62 64 6f 6d 73 22 29  |Sad_%,"subdoms")|
0000b870  3a 3d a3 0d 43 d0 4f e7  73 75 62 64 6f 6d 73 5f  |:=..C.O.subdoms_|
0000b880  3d b9 73 75 62 64 6f 6d  73 5f 3d a3 3a f2 75 73  |=.subdoms_=.:.us|
0000b890  49 28 53 61 64 5f 25 2c  22 73 75 62 64 6f 6d 73  |I(Sad_%,"subdoms|
0000b8a0  22 29 8b 73 75 62 64 6f  6d 73 5f 3d b9 3a f2 73  |").subdoms_=.:.s|
0000b8b0  49 28 53 61 64 5f 25 2c  22 73 75 62 64 6f 6d 73  |I(Sad_%,"subdoms|
0000b8c0  22 29 0d 43 da 06 3d b9  0d 43 ee 3e dd a4 53 75  |").C..=..C.>..Su|
0000b8d0  62 52 65 70 73 5f 3a e7  46 72 61 63 74 61 6b 65  |bReps_:.Fractake|
0000b8e0  5f 3d a3 53 75 62 52 65  70 73 5f 3d a3 3a f2 75  |_=.SubReps_=.:.u|
0000b8f0  73 49 28 53 61 64 5f 25  2c 22 53 75 62 52 65 70  |sI(Sad_%,"SubRep|
0000b900  73 22 29 3a 3d b9 0d 43  f8 4f e7 53 75 62 52 65  |s"):=..C.O.SubRe|
0000b910  70 73 5f 3d b9 53 75 62  52 65 70 73 5f 3d a3 3a  |ps_=.SubReps_=.:|
0000b920  f2 75 73 49 28 53 61 64  5f 25 2c 22 53 75 62 52  |.usI(Sad_%,"SubR|
0000b930  65 70 73 22 29 8b 53 75  62 52 65 70 73 5f 3d b9  |eps").SubReps_=.|
0000b940  3a f2 73 49 28 53 61 64  5f 25 2c 22 53 75 62 52  |:.sI(Sad_%,"SubR|
0000b950  65 70 73 22 29 0d 44 02  06 3d b9 0d 44 16 27 dd  |eps").D..=..D.'.|
0000b960  a4 66 5f 3a 63 5f 3d 30  3a e3 68 5f 3d 31 b8 31  |.f_:c_=0:.h_=1.1|
0000b970  32 3a e7 66 5f 28 68 5f  29 3d b9 63 5f 3d 63 5f  |2:.f_(h_)=.c_=c_|
0000b980  2b 31 0d 44 20 09 ed 3a  3d 63 5f 0d 44 2a 33 dd  |+1.D ..:=c_.D*3.|
0000b990  a4 46 31 5f 3a e7 66 5f  28 31 29 3d b9 80 a4 66  |.F1_:.f_(1)=...f|
0000b9a0  5f 3d 31 20 66 5f 28 31  29 3d b9 3a f2 73 49 28  |_=1 f_(1)=.:.sI(|
0000b9b0  53 61 64 5f 25 2c 22 46  31 22 29 3a 3d a3 0d 44  |Sad_%,"F1"):=..D|
0000b9c0  34 1b e7 66 5f 28 31 29  3d b9 66 5f 28 31 29 3d  |4..f_(1)=.f_(1)=|
0000b9d0  a3 8b 66 5f 28 31 29 3d  b9 0d 44 3e 06 3d b9 0d  |..f_(1)=..D>.=..|
0000b9e0  44 48 33 dd a4 46 32 5f  3a e7 66 5f 28 32 29 3d  |DH3..F2_:.f_(2)=|
0000b9f0  b9 80 a4 66 5f 3d 31 20  66 5f 28 32 29 3d b9 3a  |...f_=1 f_(2)=.:|
0000ba00  f2 73 49 28 53 61 64 5f  25 2c 22 46 32 22 29 3a  |.sI(Sad_%,"F2"):|
0000ba10  3d a3 0d 44 52 1b e7 66  5f 28 32 29 3d b9 66 5f  |=..DR..f_(2)=.f_|
0000ba20  28 32 29 3d a3 8b 66 5f  28 32 29 3d b9 0d 44 5c  |(2)=..f_(2)=..D\|
0000ba30  06 3d b9 0d 44 66 33 dd  a4 46 33 5f 3a e7 66 5f  |.=..Df3..F3_:.f_|
0000ba40  28 33 29 3d b9 80 a4 66  5f 3d 31 20 66 5f 28 33  |(3)=...f_=1 f_(3|
0000ba50  29 3d b9 3a f2 73 49 28  53 61 64 5f 25 2c 22 46  |)=.:.sI(Sad_%,"F|
0000ba60  33 22 29 3a 3d a3 0d 44  70 1b e7 66 5f 28 33 29  |3"):=..Dp..f_(3)|
0000ba70  3d b9 66 5f 28 33 29 3d  a3 8b 66 5f 28 33 29 3d  |=.f_(3)=..f_(3)=|
0000ba80  b9 0d 44 7a 06 3d b9 0d  44 84 33 dd a4 46 34 5f  |..Dz.=..D.3..F4_|
0000ba90  3a e7 66 5f 28 34 29 3d  b9 80 a4 66 5f 3d 31 20  |:.f_(4)=...f_=1 |
0000baa0  66 5f 28 34 29 3d b9 3a  f2 73 49 28 53 61 64 5f  |f_(4)=.:.sI(Sad_|
0000bab0  25 2c 22 46 34 22 29 3a  3d a3 0d 44 8e 1b e7 66  |%,"F4"):=..D...f|
0000bac0  5f 28 34 29 3d b9 66 5f  28 34 29 3d a3 8b 66 5f  |_(4)=.f_(4)=..f_|
0000bad0  28 34 29 3d b9 0d 44 98  06 3d b9 0d 44 a2 33 dd  |(4)=..D..=..D.3.|
0000bae0  a4 46 35 5f 3a e7 66 5f  28 35 29 3d b9 80 a4 66  |.F5_:.f_(5)=...f|
0000baf0  5f 3d 31 20 66 5f 28 35  29 3d b9 3a f2 73 49 28  |_=1 f_(5)=.:.sI(|
0000bb00  53 61 64 5f 25 2c 22 46  35 22 29 3a 3d a3 0d 44  |Sad_%,"F5"):=..D|
0000bb10  ac 1b e7 66 5f 28 35 29  3d b9 66 5f 28 35 29 3d  |...f_(5)=.f_(5)=|
0000bb20  a3 8b 66 5f 28 35 29 3d  b9 0d 44 b6 06 3d b9 0d  |..f_(5)=..D..=..|
0000bb30  44 c0 33 dd a4 46 36 5f  3a e7 66 5f 28 36 29 3d  |D.3..F6_:.f_(6)=|
0000bb40  b9 80 a4 66 5f 3d 31 20  66 5f 28 36 29 3d b9 3a  |...f_=1 f_(6)=.:|
0000bb50  f2 73 49 28 53 61 64 5f  25 2c 22 46 36 22 29 3a  |.sI(Sad_%,"F6"):|
0000bb60  3d a3 0d 44 ca 1b e7 66  5f 28 36 29 3d b9 66 5f  |=..D...f_(6)=.f_|
0000bb70  28 36 29 3d a3 8b 66 5f  28 36 29 3d b9 0d 44 d4  |(6)=..f_(6)=..D.|
0000bb80  06 3d b9 0d 44 de 33 dd  a4 46 37 5f 3a e7 66 5f  |.=..D.3..F7_:.f_|
0000bb90  28 37 29 3d b9 80 a4 66  5f 3d 31 20 66 5f 28 37  |(7)=...f_=1 f_(7|
0000bba0  29 3d b9 3a f2 73 49 28  53 61 64 5f 25 2c 22 46  |)=.:.sI(Sad_%,"F|
0000bbb0  37 22 29 3a 3d a3 0d 44  e8 1b e7 66 5f 28 37 29  |7"):=..D...f_(7)|
0000bbc0  3d b9 66 5f 28 37 29 3d  a3 8b 66 5f 28 37 29 3d  |=.f_(7)=..f_(7)=|
0000bbd0  b9 0d 44 f2 06 3d b9 0d  44 fc 33 dd a4 46 38 5f  |..D..=..D.3..F8_|
0000bbe0  3a e7 66 5f 28 38 29 3d  b9 80 a4 66 5f 3d 31 20  |:.f_(8)=...f_=1 |
0000bbf0  66 5f 28 38 29 3d b9 3a  f2 73 49 28 53 61 64 5f  |f_(8)=.:.sI(Sad_|
0000bc00  25 2c 22 46 38 22 29 3a  3d a3 0d 45 06 1b e7 66  |%,"F8"):=..E...f|
0000bc10  5f 28 38 29 3d b9 66 5f  28 38 29 3d a3 8b 66 5f  |_(8)=.f_(8)=..f_|
0000bc20  28 38 29 3d b9 0d 45 10  06 3d b9 0d 45 1a 33 dd  |(8)=..E..=..E.3.|
0000bc30  a4 46 39 5f 3a e7 66 5f  28 39 29 3d b9 80 a4 66  |.F9_:.f_(9)=...f|
0000bc40  5f 3d 31 20 66 5f 28 39  29 3d b9 3a f2 73 49 28  |_=1 f_(9)=.:.sI(|
0000bc50  53 61 64 5f 25 2c 22 46  39 22 29 3a 3d a3 0d 45  |Sad_%,"F9"):=..E|
0000bc60  24 1b e7 66 5f 28 39 29  3d b9 66 5f 28 39 29 3d  |$..f_(9)=.f_(9)=|
0000bc70  a3 8b 66 5f 28 39 29 3d  b9 0d 45 2e 06 3d b9 0d  |..f_(9)=..E..=..|
0000bc80  45 38 37 dd a4 46 31 30  5f 3a e7 66 5f 28 31 30  |E87..F10_:.f_(10|
0000bc90  29 3d b9 80 a4 66 5f 3d  31 20 66 5f 28 31 30 29  |)=...f_=1 f_(10)|
0000bca0  3d b9 3a f2 73 49 28 53  61 64 5f 25 2c 22 46 31  |=.:.sI(Sad_%,"F1|
0000bcb0  30 22 29 3a 3d a3 0d 45  42 1e e7 66 5f 28 31 30  |0"):=..EB..f_(10|
0000bcc0  29 3d b9 66 5f 28 31 30  29 3d a3 8b 66 5f 28 31  |)=.f_(10)=..f_(1|
0000bcd0  30 29 3d b9 0d 45 4c 06  3d b9 0d 45 56 37 dd a4  |0)=..EL.=..EV7..|
0000bce0  46 31 31 5f 3a e7 66 5f  28 31 31 29 3d b9 80 a4  |F11_:.f_(11)=...|
0000bcf0  66 5f 3d 31 20 66 5f 28  31 31 29 3d b9 3a f2 73  |f_=1 f_(11)=.:.s|
0000bd00  49 28 53 61 64 5f 25 2c  22 46 31 31 22 29 3a 3d  |I(Sad_%,"F11"):=|
0000bd10  a3 0d 45 60 1e e7 66 5f  28 31 31 29 3d b9 66 5f  |..E`..f_(11)=.f_|
0000bd20  28 31 31 29 3d a3 8b 66  5f 28 31 31 29 3d b9 0d  |(11)=..f_(11)=..|
0000bd30  45 6a 06 3d b9 0d 45 74  37 dd a4 46 31 32 5f 3a  |Ej.=..Et7..F12_:|
0000bd40  e7 66 5f 28 31 32 29 3d  b9 80 a4 66 5f 3d 31 20  |.f_(12)=...f_=1 |
0000bd50  66 5f 28 31 32 29 3d b9  3a f2 73 49 28 53 61 64  |f_(12)=.:.sI(Sad|
0000bd60  5f 25 2c 22 46 31 32 22  29 3a 3d a3 0d 45 7e 1e  |_%,"F12"):=..E~.|
0000bd70  e7 66 5f 28 31 32 29 3d  b9 66 5f 28 31 32 29 3d  |.f_(12)=.f_(12)=|
0000bd80  a3 8b 66 5f 28 31 32 29  3d b9 0d 45 88 06 3d b9  |..f_(12)=..E..=.|
0000bd90  0d 45 9c 45 dd a4 53 61  64 43 61 72 72 79 31 5f  |.E.E..SadCarry1_|
0000bda0  3a e7 46 72 61 63 61 64  64 5f 3d a3 53 61 64 63  |:.Fracadd_=.Sadc|
0000bdb0  61 72 72 79 5f 28 31 29  3d a3 3a f2 75 73 49 28  |arry_(1)=.:.usI(|
0000bdc0  53 61 64 5f 25 2c 22 53  61 64 43 61 72 72 79 31  |Sad_%,"SadCarry1|
0000bdd0  22 29 3a 3d a3 0d 45 a6  57 e7 53 61 64 63 61 72  |"):=..E.W.Sadcar|
0000bde0  72 79 5f 28 31 29 3d b9  80 53 61 64 63 61 72 72  |ry_(1)=..Sadcarr|
0000bdf0  79 5f 28 32 29 2b 53 61  64 63 61 72 72 79 5f 28  |y_(2)+Sadcarry_(|
0000be00  33 29 3d a3 53 61 64 63  61 72 72 79 5f 28 31 29  |3)=.Sadcarry_(1)|
0000be10  3d b9 3a f2 73 49 28 53  61 64 5f 25 2c 22 53 61  |=.:.sI(Sad_%,"Sa|
0000be20  64 43 61 72 72 79 31 22  29 3a 3d b9 0d 45 b0 89  |dCarry1"):=..E..|
0000be30  e7 53 61 64 63 61 72 72  79 5f 28 31 29 3d a3 53  |.Sadcarry_(1)=.S|
0000be40  61 64 63 61 72 72 79 5f  28 31 29 3d b9 3a f2 73  |adcarry_(1)=.:.s|
0000be50  49 28 53 61 64 5f 25 2c  22 53 61 64 43 61 72 72  |I(Sad_%,"SadCarr|
0000be60  79 31 22 29 3a 53 61 64  63 61 72 72 79 5f 28 32  |y1"):Sadcarry_(2|
0000be70  29 3d a3 3a f2 75 73 49  28 53 61 64 5f 25 2c 22  |)=.:.usI(Sad_%,"|
0000be80  53 61 64 43 61 72 72 79  32 22 29 3a 53 61 64 63  |SadCarry2"):Sadc|
0000be90  61 72 72 79 5f 28 33 29  3d a3 3a f2 75 73 49 28  |arry_(3)=.:.usI(|
0000bea0  53 61 64 5f 25 2c 22 53  61 64 43 61 72 72 79 33  |Sad_%,"SadCarry3|
0000beb0  22 29 3a 3d b9 0d 45 ba  04 0d 45 c4 45 dd a4 53  |"):=..E...E.E..S|
0000bec0  61 64 43 61 72 72 79 32  5f 3a e7 46 72 61 63 61  |adCarry2_:.Fraca|
0000bed0  64 64 5f 3d a3 53 61 64  63 61 72 72 79 5f 28 32  |dd_=.Sadcarry_(2|
0000bee0  29 3d a3 3a f2 75 73 49  28 53 61 64 5f 25 2c 22  |)=.:.usI(Sad_%,"|
0000bef0  53 61 64 43 61 72 72 79  32 22 29 3a 3d a3 0d 45  |SadCarry2"):=..E|
0000bf00  ce 57 e7 53 61 64 63 61  72 72 79 5f 28 32 29 3d  |.W.Sadcarry_(2)=|
0000bf10  b9 80 53 61 64 63 61 72  72 79 5f 28 31 29 2b 53  |..Sadcarry_(1)+S|
0000bf20  61 64 63 61 72 72 79 5f  28 33 29 3d a3 53 61 64  |adcarry_(3)=.Sad|
0000bf30  63 61 72 72 79 5f 28 32  29 3d b9 3a f2 73 49 28  |carry_(2)=.:.sI(|
0000bf40  53 61 64 5f 25 2c 22 53  61 64 43 61 72 72 79 32  |Sad_%,"SadCarry2|
0000bf50  22 29 3a 3d b9 0d 45 d8  89 e7 53 61 64 63 61 72  |"):=..E...Sadcar|
0000bf60  72 79 5f 28 32 29 3d a3  53 61 64 63 61 72 72 79  |ry_(2)=.Sadcarry|
0000bf70  5f 28 32 29 3d b9 3a f2  73 49 28 53 61 64 5f 25  |_(2)=.:.sI(Sad_%|
0000bf80  2c 22 53 61 64 43 61 72  72 79 32 22 29 3a 53 61  |,"SadCarry2"):Sa|
0000bf90  64 63 61 72 72 79 5f 28  31 29 3d a3 3a f2 75 73  |dcarry_(1)=.:.us|
0000bfa0  49 28 53 61 64 5f 25 2c  22 53 61 64 43 61 72 72  |I(Sad_%,"SadCarr|
0000bfb0  79 31 22 29 3a 53 61 64  63 61 72 72 79 5f 28 33  |y1"):Sadcarry_(3|
0000bfc0  29 3d a3 3a f2 75 73 49  28 53 61 64 5f 25 2c 22  |)=.:.usI(Sad_%,"|
0000bfd0  53 61 64 43 61 72 72 79  33 22 29 3a 3d b9 0d 45  |SadCarry3"):=..E|
0000bfe0  e2 04 0d 45 ec 45 dd a4  53 61 64 43 61 72 72 79  |...E.E..SadCarry|
0000bff0  33 5f 3a e7 46 72 61 63  61 64 64 5f 3d a3 53 61  |3_:.Fracadd_=.Sa|
0000c000  64 63 61 72 72 79 5f 28  33 29 3d a3 3a f2 75 73  |dcarry_(3)=.:.us|
0000c010  49 28 53 61 64 5f 25 2c  22 53 61 64 43 61 72 72  |I(Sad_%,"SadCarr|
0000c020  79 33 22 29 3a 3d a3 0d  45 f6 57 e7 53 61 64 63  |y3"):=..E.W.Sadc|
0000c030  61 72 72 79 5f 28 33 29  3d b9 80 53 61 64 63 61  |arry_(3)=..Sadca|
0000c040  72 72 79 5f 28 31 29 2b  53 61 64 63 61 72 72 79  |rry_(1)+Sadcarry|
0000c050  5f 28 32 29 3d a3 53 61  64 63 61 72 72 79 5f 28  |_(2)=.Sadcarry_(|
0000c060  33 29 3d b9 3a f2 73 49  28 53 61 64 5f 25 2c 22  |3)=.:.sI(Sad_%,"|
0000c070  53 61 64 43 61 72 72 79  33 22 29 3a 3d b9 0d 46  |SadCarry3"):=..F|
0000c080  00 89 e7 53 61 64 63 61  72 72 79 5f 28 33 29 3d  |...Sadcarry_(3)=|
0000c090  a3 53 61 64 63 61 72 72  79 5f 28 33 29 3d b9 3a  |.Sadcarry_(3)=.:|
0000c0a0  f2 73 49 28 53 61 64 5f  25 2c 22 53 61 64 43 61  |.sI(Sad_%,"SadCa|
0000c0b0  72 72 79 33 22 29 3a 53  61 64 63 61 72 72 79 5f  |rry3"):Sadcarry_|
0000c0c0  28 31 29 3d a3 3a f2 75  73 49 28 53 61 64 5f 25  |(1)=.:.usI(Sad_%|
0000c0d0  2c 22 53 61 64 43 61 72  72 79 31 22 29 3a 53 61  |,"SadCarry1"):Sa|
0000c0e0  64 63 61 72 72 79 5f 28  32 29 3d a3 3a f2 75 73  |dcarry_(2)=.:.us|
0000c0f0  49 28 53 61 64 5f 25 2c  22 53 61 64 43 61 72 72  |I(Sad_%,"SadCarr|
0000c100  79 32 22 29 3a 3d b9 0d  46 0a 04 0d 46 28 ba dd  |y2"):=..F...F(..|
0000c110  a4 46 72 61 63 47 6f 5f  3a f2 47 65 74 54 69 74  |.FracGo_:.GetTit|
0000c120  6c 65 73 3a 64 75 6d 6d  79 5f 3d b3 28 2d 91 29  |les:dummy_=.(-.)|
0000c130  3a 71 75 69 74 5f 3d a3  3a d1 3d 30 3a 6c 61 73  |:quit_=.:.=0:las|
0000c140  74 5f 3d 31 32 3a e3 67  5f 3d 31 b8 31 32 3a e3  |t_=12:.g_=1.12:.|
0000c150  67 67 5f 3d 30 b8 32 3a  57 68 6f 6c 65 5f 28 67  |gg_=0.2:Whole_(g|
0000c160  5f 2c 67 67 5f 29 3d 30  3a ed 3a ed 3a f2 77 68  |_,gg_)=0:.:.:.wh|
0000c170  61 74 66 72 61 63 73 69  67 6e 3a f2 77 68 61 74  |atfracsign:.what|
0000c180  66 72 61 63 73 3a f2 63  61 6c 63 66 72 61 63 73  |fracs:.calcfracs|
0000c190  3a 43 6c 75 65 5f 24 3d  22 53 61 64 22 3a 73 74  |:Clue_$="Sad":st|
0000c1a0  61 72 74 65 64 5f 25 3d  b9 3a f2 75 73 49 28 53  |arted_%=.:.usI(S|
0000c1b0  61 64 5f 25 2c 22 46 72  61 63 47 6f 22 29 3a 3d  |ad_%,"FracGo"):=|
0000c1c0  a4 73 75 6d 73 0d 46 64  49 dd f2 77 68 61 74 66  |.sums.FdI..whatf|
0000c1d0  72 61 63 73 69 67 6e 3a  e7 46 72 61 63 61 64 64  |racsign:.Fracadd|
0000c1e0  5f 3d b9 80 46 72 61 63  74 61 6b 65 5f 3d a3 e3  |_=..Fractake_=..|
0000c1f0  67 5f 3d 31 b8 31 32 3a  46 72 61 63 73 69 67 6e  |g_=1.12:Fracsign|
0000c200  5f 24 28 67 5f 29 3d 22  2b 22 3a ed 3a e1 0d 46  |_$(g_)="+":.:..F|
0000c210  78 3a e7 46 72 61 63 74  61 6b 65 5f 3d b9 80 46  |x:.Fractake_=..F|
0000c220  72 61 63 61 64 64 5f 3d  a3 e3 67 5f 3d 31 b8 31  |racadd_=..g_=1.1|
0000c230  32 3a 46 72 61 63 73 69  67 6e 5f 24 28 67 5f 29  |2:Fracsign_$(g_)|
0000c240  3d 22 2d 22 3a ed 3a e1  0d 46 82 1a 73 74 61 72  |="-":.:..F..star|
0000c250  74 5f 3d b3 28 32 29 3a  e7 73 74 61 72 74 5f 3d  |t_=.(2):.start_=|
0000c260  31 8c 0d 46 96 3a e3 67  5f 3d 31 b8 31 32 3a e7  |1..F.:.g_=1.12:.|
0000c270  67 5f 83 32 3d 30 20 46  72 61 63 73 69 67 6e 5f  |g_.2=0 Fracsign_|
0000c280  24 28 67 5f 29 3d 22 2b  22 8b 46 72 61 63 73 69  |$(g_)="+".Fracsi|
0000c290  67 6e 5f 24 28 67 5f 29  3d 22 2d 22 0d 46 a0 05  |gn_$(g_)="-".F..|
0000c2a0  ed 0d 46 aa 3c cc 3a e3  67 5f 3d 31 b8 31 32 3a  |..F.<.:.g_=1.12:|
0000c2b0  e7 67 5f 83 32 3d 31 20  46 72 61 63 73 69 67 6e  |.g_.2=1 Fracsign|
0000c2c0  5f 24 28 67 5f 29 3d 22  2b 22 8b 46 72 61 63 73  |_$(g_)="+".Fracs|
0000c2d0  69 67 6e 5f 24 28 67 5f  29 3d 22 2d 22 0d 46 be  |ign_$(g_)="-".F.|
0000c2e0  05 ed 0d 46 c8 07 cd 3a  e1 0d 46 dc 67 dd f2 77  |...F...:..F.g..w|
0000c2f0  68 61 74 66 72 61 63 73  3a e3 72 5f 3d 31 b8 31  |hatfracs:.r_=1.1|
0000c300  32 3a 67 63 5f 25 28 72  5f 29 3d 30 3a ed 3a 67  |2:gc_%(r_)=0:.:g|
0000c310  6f 74 5f 25 3d 30 3a e3  72 5f 25 3d 31 b8 31 32  |ot_%=0:.r_%=1.12|
0000c320  3a e7 66 5f 28 72 5f 25  29 3d b9 8c 67 6f 74 5f  |:.f_(r_%)=..got_|
0000c330  25 3d 67 6f 74 5f 25 2b  31 3a 67 63 5f 25 28 67  |%=got_%+1:gc_%(g|
0000c340  6f 74 5f 25 29 3d 66 72  61 63 5f 28 72 5f 25 29  |ot_%)=frac_(r_%)|
0000c350  0d 46 f0 07 ed 3a e1 0d  47 04 17 dd f2 66 72 61  |.F...:..G....fra|
0000c360  63 61 64 64 3a e7 71 75  69 74 5f 3d b9 e1 0d 47  |cadd:.quit_=...G|
0000c370  0e 46 f5 3a 67 6f 6f 64  61 64 64 5f 3d b9 3a e7  |.F.:goodadd_=.:.|
0000c380  67 6f 74 5f 25 3d 31 20  46 44 31 5f 3d 67 63 5f  |got_%=1 FD1_=gc_|
0000c390  25 28 31 29 8b 72 61 6e  5f 25 3d b3 28 67 6f 74  |%(1).ran_%=.(got|
0000c3a0  5f 25 29 3a 46 44 31 5f  3d 67 63 5f 25 28 72 61  |_%):FD1_=gc_%(ra|
0000c3b0  6e 5f 25 29 0d 47 22 17  e7 61 64 64 6f 6d 73 5f  |n_%).G"..addoms_|
0000c3c0  3d b9 46 44 32 5f 3d 46  44 31 5f 0d 47 36 0f e7  |=.FD2_=FD1_.G6..|
0000c3d0  61 64 64 6f 6d 73 5f 3d  a3 8c 0d 47 40 39 e7 67  |addoms_=...G@9.g|
0000c3e0  6f 74 5f 25 3d 31 20 46  44 32 5f 3d 67 63 5f 25  |ot_%=1 FD2_=gc_%|
0000c3f0  28 31 29 8b 72 61 6e 5f  25 3d b3 28 67 6f 74 5f  |(1).ran_%=.(got_|
0000c400  25 29 3a 46 44 32 5f 3d  67 63 5f 25 28 72 61 6e  |%):FD2_=gc_%(ran|
0000c410  5f 25 29 0d 47 4a 52 cd  3a f5 3a 66 6c 75 67 5f  |_%).GJR.:.:flug_|
0000c420  3d 30 3a f5 3a 46 55 31  5f 3d b3 28 46 44 31 5f  |=0:.:FU1_=.(FD1_|
0000c430  29 3a fd 46 55 31 5f 3c  46 44 31 5f 3a e3 72 74  |):.FU1_<FD1_:.rt|
0000c440  5f 3d 32 b8 31 30 3a e7  46 55 31 5f 83 72 74 5f  |_=2.10:.FU1_.rt_|
0000c450  3d 30 80 46 44 31 5f 83  72 74 5f 3d 30 20 66 6c  |=0.FD1_.rt_=0 fl|
0000c460  75 67 5f 3d 31 0d 47 7c  5b ed 3a fd 66 6c 75 67  |ug_=1.G|[.:.flug|
0000c470  5f 3d 30 3a f5 3a 66 6c  75 67 5f 3d 30 3a f5 3a  |_=0:.:flug_=0:.:|
0000c480  46 55 32 5f 3d b3 28 46  44 32 5f 29 3a fd 46 55  |FU2_=.(FD2_):.FU|
0000c490  32 5f 3c 46 44 32 5f 3a  e3 72 74 5f 3d 32 b8 31  |2_<FD2_:.rt_=2.1|
0000c4a0  30 3a e7 46 55 32 5f 83  72 74 5f 3d 30 80 46 44  |0:.FU2_.rt_=0.FD|
0000c4b0  32 5f 83 72 74 5f 3d 30  20 66 6c 75 67 5f 3d 31  |2_.rt_=0 flug_=1|
0000c4c0  0d 47 ae 3f ed 3a fd 66  6c 75 67 5f 3d 30 3a e7  |.G.?.:.flug_=0:.|
0000c4d0  53 61 64 63 61 72 72 79  5f 28 31 29 3d b9 80 46  |Sadcarry_(1)=..F|
0000c4e0  55 32 5f 2f 46 44 32 5f  2b 46 55 31 5f 2f 46 44  |U2_/FD2_+FU1_/FD|
0000c4f0  31 5f 3c 31 20 67 6f 6f  64 61 64 64 5f 3d a3 0d  |1_<1 goodadd_=..|
0000c500  47 cc 38 e7 53 61 64 63  61 72 72 79 5f 28 32 29  |G.8.Sadcarry_(2)|
0000c510  3d b9 80 46 55 32 5f 2f  46 44 32 5f 2b 46 55 31  |=..FU2_/FD2_+FU1|
0000c520  5f 2f 46 44 31 5f 3e 2e  39 39 39 39 20 67 6f 6f  |_/FD1_>.9999 goo|
0000c530  64 61 64 64 5f 3d a3 0d  47 d6 15 e7 72 5f 3e 31  |dadd_=..G...r_>1|
0000c540  80 41 64 64 52 65 70 73  5f 3d b9 8c 0d 47 e0 6e  |.AddReps_=...G.n|
0000c550  e3 72 74 74 5f 3d 31 b8  72 5f 2d 31 3a e7 46 72  |.rtt_=1.r_-1:.Fr|
0000c560  61 63 73 69 67 6e 5f 24  28 72 5f 29 3d 22 2b 22  |acsign_$(r_)="+"|
0000c570  80 46 44 31 5f 3d 46 44  31 5f 28 72 74 74 5f 29  |.FD1_=FD1_(rtt_)|
0000c580  80 46 44 32 5f 3d 46 44  32 5f 28 72 74 74 5f 29  |.FD2_=FD2_(rtt_)|
0000c590  80 46 55 31 5f 3d 46 55  31 5f 28 72 74 74 5f 29  |.FU1_=FU1_(rtt_)|
0000c5a0  80 46 55 32 5f 3d 46 55  32 5f 28 72 74 74 5f 29  |.FU2_=FU2_(rtt_)|
0000c5b0  67 6f 6f 64 61 64 64 5f  3d a3 0d 47 ea 05 ed 0d  |goodadd_=..G....|
0000c5c0  47 f4 36 cd 3a e7 91 3e  35 30 30 20 71 75 69 74  |G.6.:..>500 quit|
0000c5d0  5f 3d b9 3a ef 37 3a 6c  61 73 74 5f 3d 72 5f 2d  |_=.:.7:last_=r_-|
0000c5e0  31 3a c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |1:.."Hourglass_O|
0000c5f0  66 66 22 3a e1 0d 48 08  5c fd 67 6f 6f 64 61 64  |ff":..H.\.goodad|
0000c600  64 5f 3d b9 3a 46 72 61  63 73 69 67 6e 5f 24 28  |d_=.:Fracsign_$(|
0000c610  72 5f 29 3d 22 2b 22 3a  46 44 31 5f 28 72 5f 29  |r_)="+":FD1_(r_)|
0000c620  3d 46 44 31 5f 3a 46 44  32 5f 28 72 5f 29 3d 46  |=FD1_:FD2_(r_)=F|
0000c630  44 32 5f 3a 46 55 31 5f  28 72 5f 29 3d 46 55 31  |D2_:FU1_(r_)=FU1|
0000c640  5f 3a 46 55 32 5f 28 72  5f 29 3d 46 55 32 5f 3a  |_:FU2_(r_)=FU2_:|
0000c650  e1 0d 48 30 18 dd f2 66  72 61 6b 74 61 6b 65 3a  |..H0...fraktake:|
0000c660  e7 71 75 69 74 5f 3d b9  e1 0d 48 3a 46 f5 3a 67  |.quit_=...H:F.:g|
0000c670  6f 6f 64 73 75 62 5f 3d  b9 3a e7 67 6f 74 5f 25  |oodsub_=.:.got_%|
0000c680  3d 31 20 46 44 31 5f 3d  67 63 5f 25 28 31 29 8b  |=1 FD1_=gc_%(1).|
0000c690  72 61 6e 5f 25 3d b3 28  67 6f 74 5f 25 29 3a 46  |ran_%=.(got_%):F|
0000c6a0  44 31 5f 3d 67 63 5f 25  28 72 61 6e 5f 25 29 0d  |D1_=gc_%(ran_%).|
0000c6b0  48 4e 18 e7 73 75 62 64  6f 6d 73 5f 3d b9 46 44  |HN..subdoms_=.FD|
0000c6c0  32 5f 3d 46 44 31 5f 0d  48 58 10 e7 73 75 62 64  |2_=FD1_.HX..subd|
0000c6d0  6f 6d 73 5f 3d a3 8c 0d  48 62 39 e7 67 6f 74 5f  |oms_=...Hb9.got_|
0000c6e0  25 3d 31 20 46 44 32 5f  3d 67 63 5f 25 28 31 29  |%=1 FD2_=gc_%(1)|
0000c6f0  8b 72 61 6e 5f 25 3d b3  28 67 6f 74 5f 25 29 3a  |.ran_%=.(got_%):|
0000c700  46 44 32 5f 3d 67 63 5f  25 28 72 61 6e 5f 25 29  |FD2_=gc_%(ran_%)|
0000c710  0d 48 6c 52 cd 3a f5 3a  66 6c 75 67 5f 3d 30 3a  |.HlR.:.:flug_=0:|
0000c720  f5 3a 46 55 31 5f 3d b3  28 46 44 31 5f 29 3a fd  |.:FU1_=.(FD1_):.|
0000c730  46 55 31 5f 3c 46 44 31  5f 3a e3 72 74 5f 3d 32  |FU1_<FD1_:.rt_=2|
0000c740  b8 31 30 3a e7 46 55 31  5f 83 72 74 5f 3d 30 80  |.10:.FU1_.rt_=0.|
0000c750  46 44 31 5f 83 72 74 5f  3d 30 20 66 6c 75 67 5f  |FD1_.rt_=0 flug_|
0000c760  3d 31 0d 48 94 5b ed 3a  fd 66 6c 75 67 5f 3d 30  |=1.H.[.:.flug_=0|
0000c770  3a f5 3a 66 6c 75 67 5f  3d 30 3a f5 3a 46 55 32  |:.:flug_=0:.:FU2|
0000c780  5f 3d b3 28 46 44 32 5f  29 3a fd 46 55 32 5f 3c  |_=.(FD2_):.FU2_<|
0000c790  46 44 32 5f 3a e3 72 74  5f 3d 32 b8 31 30 3a e7  |FD2_:.rt_=2.10:.|
0000c7a0  46 55 32 5f 83 72 74 5f  3d 30 80 46 44 32 5f 83  |FU2_.rt_=0.FD2_.|
0000c7b0  72 74 5f 3d 30 20 66 6c  75 67 5f 3d 31 0d 48 bc  |rt_=0 flug_=1.H.|
0000c7c0  20 ed 3a fd 66 6c 75 67  5f 3d 30 3a e7 72 5f 3e  | .:.flug_=0:.r_>|
0000c7d0  31 80 53 75 62 52 65 70  73 5f 3d b9 8c 0d 48 d0  |1.SubReps_=...H.|
0000c7e0  6e e3 72 74 74 5f 3d 31  b8 72 5f 2d 31 3a e7 46  |n.rtt_=1.r_-1:.F|
0000c7f0  72 61 63 73 69 67 6e 5f  24 28 72 5f 29 3d 22 2d  |racsign_$(r_)="-|
0000c800  22 80 46 44 31 5f 3d 46  44 31 5f 28 72 74 74 5f  |".FD1_=FD1_(rtt_|
0000c810  29 80 46 44 32 5f 3d 46  44 32 5f 28 72 74 74 5f  |).FD2_=FD2_(rtt_|
0000c820  29 80 46 55 31 5f 3d 46  55 31 5f 28 72 74 74 5f  |).FU1_=FU1_(rtt_|
0000c830  29 80 46 55 32 5f 3d 46  55 32 5f 28 72 74 74 5f  |).FU2_=FU2_(rtt_|
0000c840  29 67 6f 6f 64 73 75 62  5f 3d a3 0d 48 da 05 ed  |)goodsub_=..H...|
0000c850  0d 48 e4 25 cd 3a e7 46  55 31 5f 2f 46 44 31 5f  |.H.%.:.FU1_/FD1_|
0000c860  3c 46 55 32 5f 2f 46 44  32 5f 20 67 6f 6f 64 73  |<FU2_/FD2_ goods|
0000c870  75 62 5f 3d a3 0d 48 f8  34 e7 91 3e 35 30 30 20  |ub_=..H.4..>500 |
0000c880  71 75 69 74 5f 3d b9 3a  6c 61 73 74 5f 3d 72 5f  |quit_=.:last_=r_|
0000c890  2d 31 3a ef 37 3a c8 99  22 48 6f 75 72 67 6c 61  |-1:.7:.."Hourgla|
0000c8a0  73 73 5f 4f 66 66 22 3a  e1 0d 49 02 5c fd 67 6f  |ss_Off":..I.\.go|
0000c8b0  6f 64 73 75 62 5f 3d b9  3a 46 72 61 63 73 69 67  |odsub_=.:Fracsig|
0000c8c0  6e 5f 24 28 72 5f 29 3d  22 2d 22 3a 46 44 31 5f  |n_$(r_)="-":FD1_|
0000c8d0  28 72 5f 29 3d 46 44 31  5f 3a 46 44 32 5f 28 72  |(r_)=FD1_:FD2_(r|
0000c8e0  5f 29 3d 46 44 32 5f 3a  46 55 31 5f 28 72 5f 29  |_)=FD2_:FU1_(r_)|
0000c8f0  3d 46 55 31 5f 3a 46 55  32 5f 28 72 5f 29 3d 46  |=FU1_:FU2_(r_)=F|
0000c900  55 32 5f 3a e1 0d 49 2a  68 dd f2 63 61 6c 63 66  |U2_:..I*h..calcf|
0000c910  72 61 63 73 3a c8 99 22  48 6f 75 72 67 6c 61 73  |racs:.."Hourglas|
0000c920  73 5f 4f 6e 22 3a e3 72  5f 3d 31 b8 31 32 3a c8  |s_On":.r_=1.12:.|
0000c930  99 22 48 6f 75 72 67 6c  61 73 73 5f 50 65 72 63  |."Hourglass_Perc|
0000c940  65 6e 74 61 67 65 22 2c  72 5f 2f 31 32 2a 31 30  |entage",r_/12*10|
0000c950  30 3a e7 71 75 69 74 5f  3d b9 c8 99 22 48 6f 75  |0:.quit_=..."Hou|
0000c960  72 67 6c 61 73 73 5f 4f  66 66 22 3a e1 0d 49 48  |rglass_Off":..IH|
0000c970  29 e7 46 72 61 63 73 69  67 6e 5f 24 28 72 5f 29  |).Fracsign_$(r_)|
0000c980  3d 22 2b 22 f2 66 72 61  63 61 64 64 8b f2 66 72  |="+".fracadd..fr|
0000c990  61 6b 74 61 6b 65 0d 49  52 11 e7 71 75 69 74 5f  |aktake.IR..quit_|
0000c9a0  3d b9 72 5f 3d 31 32 0d  49 5c 49 ed 3a e3 72 5f  |=.r_=12.I\I.:.r_|
0000c9b0  3d 31 b8 6c 61 73 74 5f  3a 61 5f 3d 46 55 31 5f  |=1.last_:a_=FU1_|
0000c9c0  28 72 5f 29 3a 62 5f 3d  46 44 31 5f 28 72 5f 29  |(r_):b_=FD1_(r_)|
0000c9d0  3a 63 5f 3d 46 55 32 5f  28 72 5f 29 3a 64 5f 3d  |:c_=FU2_(r_):d_=|
0000c9e0  46 44 32 5f 28 72 5f 29  3a e7 62 5f 3d 64 5f 8c  |FD2_(r_):.b_=d_.|
0000c9f0  0d 49 98 3a e7 46 72 61  63 73 69 67 6e 5f 24 28  |.I.:.Fracsign_$(|
0000ca00  72 5f 29 3d 22 2b 22 20  66 5f 3d 62 5f 3a 66 5f  |r_)="+" f_=b_:f_|
0000ca10  24 3d c3 28 66 5f 29 3a  65 5f 3d 61 5f 2b 63 5f  |$=.(f_):e_=a_+c_|
0000ca20  3a 65 5f 24 3d c3 28 65  5f 29 0d 49 a2 3a e7 46  |:e_$=.(e_).I.:.F|
0000ca30  72 61 63 73 69 67 6e 5f  24 28 72 5f 29 3d 22 2d  |racsign_$(r_)="-|
0000ca40  22 20 66 5f 3d 62 5f 3a  66 5f 24 3d c3 28 66 5f  |" f_=b_:f_$=.(f_|
0000ca50  29 3a 65 5f 3d 61 5f 2d  63 5f 3a 65 5f 24 3d c3  |):e_=a_-c_:e_$=.|
0000ca60  28 65 5f 29 0d 49 ac 5e  cc 3a 78 5f 3d 30 3a f5  |(e_).I.^.:x_=0:.|
0000ca70  3a 78 5f 3d 78 5f 2b 31  3a fd 78 5f 83 62 5f 3d  |:x_=x_+1:.x_.b_=|
0000ca80  30 80 78 5f 83 64 5f 3d  30 3a 66 5f 3d 78 5f 3a  |0.x_.d_=0:f_=x_:|
0000ca90  66 5f 24 3d c3 28 66 5f  29 3a e7 46 72 61 63 73  |f_$=.(f_):.Fracs|
0000caa0  69 67 6e 5f 24 28 72 5f  29 3d 22 2b 22 20 65 5f  |ign_$(r_)="+" e_|
0000cab0  3d 66 5f 2f 62 5f 2a 61  5f 2b 66 5f 2f 64 5f 2a  |=f_/b_*a_+f_/d_*|
0000cac0  63 5f 0d 49 d4 2c e7 46  72 61 63 73 69 67 6e 5f  |c_.I.,.Fracsign_|
0000cad0  24 28 72 5f 29 3d 22 2d  22 20 65 5f 3d 66 5f 2f  |$(r_)="-" e_=f_/|
0000cae0  62 5f 2a 61 5f 2d 66 5f  2f 64 5f 2a 63 5f 0d 49  |b_*a_-f_/d_*c_.I|
0000caf0  de 36 cd 3a 77 68 6f 6c  65 5f 3d 30 3a e7 65 5f  |.6.:whole_=0:.e_|
0000cb00  3e 3d 66 5f 80 65 5f 3e  30 80 66 5f 3e 30 20 77  |>=f_.e_>0.f_>0 w|
0000cb10  68 6f 6c 65 5f 3d 65 5f  81 66 5f 3a 65 5f 3d 65  |hole_=e_.f_:e_=e|
0000cb20  5f 83 66 5f 0d 49 fc 59  57 68 6f 6c 65 5f 28 72  |_.f_.I.YWhole_(r|
0000cb30  5f 2c 32 29 3d 57 68 6f  6c 65 5f 28 72 5f 2c 30  |_,2)=Whole_(r_,0|
0000cb40  29 2b 57 68 6f 6c 65 5f  28 72 5f 2c 31 29 3a 57  |)+Whole_(r_,1):W|
0000cb50  68 6f 6c 65 5f 28 72 5f  2c 32 29 3d 57 68 6f 6c  |hole_(r_,2)=Whol|
0000cb60  65 5f 28 72 5f 2c 32 29  2b 77 68 6f 6c 65 5f 3a  |e_(r_,2)+whole_:|
0000cb70  e7 65 5f 3c 3e 30 f2 72  65 64 75 63 65 0d 4a 1a  |.e_<>0.reduce.J.|
0000cb80  31 46 55 33 5f 28 72 5f  29 3d 65 5f 3a 46 44 33  |1FU3_(r_)=e_:FD3|
0000cb90  5f 28 72 5f 29 3d 66 5f  3a ed 3a c8 99 22 48 6f  |_(r_)=f_:.:.."Ho|
0000cba0  75 72 67 6c 61 73 73 5f  4f 66 66 22 3a e1 0d 4a  |urglass_Off":..J|
0000cbb0  6a 35 dd f2 57 61 64 64  3a 57 61 64 5f 25 3d a4  |j5..Wadd:Wad_%=.|
0000cbc0  66 57 53 28 22 57 61 64  64 22 29 3a e7 77 66 5f  |fWS("Wadd"):.wf_|
0000cbd0  28 31 29 f2 73 49 28 57  61 64 5f 25 2c 22 57 46  |(1).sI(Wad_%,"WF|
0000cbe0  31 22 29 0d 4a 7e 1b e7  77 66 5f 28 32 29 f2 73  |1").J~..wf_(2).s|
0000cbf0  49 28 57 61 64 5f 25 2c  22 57 46 32 22 29 0d 4a  |I(Wad_%,"WF2").J|
0000cc00  88 1b e7 77 66 5f 28 33  29 f2 73 49 28 57 61 64  |...wf_(3).sI(Wad|
0000cc10  5f 25 2c 22 57 46 33 22  29 0d 4a 92 1b e7 77 66  |_%,"WF3").J...wf|
0000cc20  5f 28 34 29 f2 73 49 28  57 61 64 5f 25 2c 22 57  |_(4).sI(Wad_%,"W|
0000cc30  46 34 22 29 0d 4a 9c 1b  e7 77 66 5f 28 35 29 f2  |F4").J...wf_(5).|
0000cc40  73 49 28 57 61 64 5f 25  2c 22 57 46 35 22 29 0d  |sI(Wad_%,"WF5").|
0000cc50  4a a6 1b e7 77 66 5f 28  36 29 f2 73 49 28 57 61  |J...wf_(6).sI(Wa|
0000cc60  64 5f 25 2c 22 57 46 36  22 29 0d 4a b0 1b e7 77  |d_%,"WF6").J...w|
0000cc70  66 5f 28 37 29 f2 73 49  28 57 61 64 5f 25 2c 22  |f_(7).sI(Wad_%,"|
0000cc80  57 46 37 22 29 0d 4a ba  1b e7 77 66 5f 28 38 29  |WF7").J...wf_(8)|
0000cc90  f2 73 49 28 57 61 64 5f  25 2c 22 57 46 38 22 29  |.sI(Wad_%,"WF8")|
0000cca0  0d 4a c4 1b e7 77 66 5f  28 39 29 f2 73 49 28 57  |.J...wf_(9).sI(W|
0000ccb0  61 64 5f 25 2c 22 57 46  39 22 29 0d 4a ce 1d e7  |ad_%,"WF9").J...|
0000ccc0  77 66 5f 28 31 30 29 f2  73 49 28 57 61 64 5f 25  |wf_(10).sI(Wad_%|
0000ccd0  2c 22 57 46 31 30 22 29  0d 4a d8 1d e7 77 66 5f  |,"WF10").J...wf_|
0000cce0  28 31 31 29 f2 73 49 28  57 61 64 5f 25 2c 22 57  |(11).sI(Wad_%,"W|
0000ccf0  46 31 31 22 29 0d 4a e2  1d e7 77 66 5f 28 31 32  |F11").J...wf_(12|
0000cd00  29 f2 73 49 28 57 61 64  5f 25 2c 22 57 46 31 32  |).sI(Wad_%,"WF12|
0000cd10  22 29 0d 4a ec 29 e7 57  53 61 64 63 61 72 72 79  |").J.).WSadcarry|
0000cd20  5f 28 31 29 f2 73 49 28  57 61 64 5f 25 2c 22 57  |_(1).sI(Wad_%,"W|
0000cd30  53 61 64 43 61 72 72 79  31 22 29 0d 4a f6 29 e7  |SadCarry1").J.).|
0000cd40  57 53 61 64 63 61 72 72  79 5f 28 32 29 f2 73 49  |WSadcarry_(2).sI|
0000cd50  28 57 61 64 5f 25 2c 22  57 53 61 64 43 61 72 72  |(Wad_%,"WSadCarr|
0000cd60  79 32 22 29 0d 4b 00 29  e7 57 53 61 64 63 61 72  |y2").K.).WSadcar|
0000cd70  72 79 5f 28 33 29 f2 73  49 28 57 61 64 5f 25 2c  |ry_(3).sI(Wad_%,|
0000cd80  22 57 53 61 64 43 61 72  72 79 33 22 29 0d 4b 0a  |"WSadCarry3").K.|
0000cd90  23 e7 57 46 72 61 63 61  64 64 5f f2 73 49 28 57  |#.WFracadd_.sI(W|
0000cda0  61 64 5f 25 2c 22 57 46  72 61 63 61 64 64 22 29  |ad_%,"WFracadd")|
0000cdb0  0d 4b 14 25 e7 57 46 72  61 63 74 61 6b 65 5f f2  |.K.%.WFractake_.|
0000cdc0  73 49 28 57 61 64 5f 25  2c 22 57 46 72 61 63 74  |sI(Wad_%,"WFract|
0000cdd0  61 6b 65 22 29 0d 4b 1e  21 e7 57 61 64 64 6f 6d  |ake").K.!.Waddom|
0000cde0  73 5f f2 73 49 28 57 61  64 5f 25 2c 22 57 61 64  |s_.sI(Wad_%,"Wad|
0000cdf0  64 6f 6d 73 22 29 0d 4b  28 23 e7 57 41 64 64 52  |doms").K(#.WAddR|
0000ce00  65 70 73 5f f2 73 49 28  57 61 64 5f 25 2c 22 57  |eps_.sI(Wad_%,"W|
0000ce10  41 64 64 52 65 70 73 22  29 0d 4b 32 23 e7 57 73  |AddReps").K2#.Ws|
0000ce20  75 62 64 6f 6d 73 5f f2  73 49 28 57 61 64 5f 25  |ubdoms_.sI(Wad_%|
0000ce30  2c 22 57 73 75 62 64 6f  6d 73 22 29 0d 4b 3c 23  |,"Wsubdoms").K<#|
0000ce40  e7 57 53 75 62 52 65 70  73 5f f2 73 49 28 57 61  |.WSubReps_.sI(Wa|
0000ce50  64 5f 25 2c 22 57 53 75  62 52 65 70 73 22 29 0d  |d_%,"WSubReps").|
0000ce60  4b 46 29 e7 57 53 54 61  6b 65 63 61 72 5f 28 31  |KF).WSTakecar_(1|
0000ce70  29 f2 73 49 28 57 61 64  5f 25 2c 22 57 53 54 61  |).sI(Wad_%,"WSTa|
0000ce80  6b 65 43 61 72 31 22 29  0d 4b 50 29 e7 57 53 54  |keCar1").KP).WST|
0000ce90  61 6b 65 63 61 72 5f 28  32 29 f2 73 49 28 57 61  |akecar_(2).sI(Wa|
0000cea0  64 5f 25 2c 22 57 53 54  61 6b 65 43 61 72 32 22  |d_%,"WSTakeCar2"|
0000ceb0  29 0d 4b 5a 29 e7 57 53  54 61 6b 65 63 61 72 5f  |).KZ).WSTakecar_|
0000cec0  28 33 29 f2 73 49 28 57  61 64 5f 25 2c 22 57 53  |(3).sI(Wad_%,"WS|
0000ced0  54 61 6b 65 43 61 72 33  22 29 0d 4b 64 05 e1 0d  |TakeCar3").Kd...|
0000cee0  4b 8c 36 dd a4 57 46 72  61 63 61 64 64 5f 3a e7  |K.6..WFracadd_:.|
0000cef0  57 46 72 61 63 74 61 6b  65 5f 3d a3 8c f2 73 49  |WFractake_=...sI|
0000cf00  28 57 61 64 5f 25 2c 22  57 46 72 61 63 61 64 64  |(Wad_%,"WFracadd|
0000cf10  22 29 3a 3d a3 0d 4b 96  11 e7 57 46 72 61 63 61  |"):=..K...WFraca|
0000cf20  64 64 5f 3d b9 8c 0d 4b  a0 e5 57 46 72 61 63 61  |dd_=...K..WFraca|
0000cf30  64 64 5f 3d a3 3a f2 75  73 49 28 57 61 64 5f 25  |dd_=.:.usI(Wad_%|
0000cf40  2c 22 57 46 72 61 63 61  64 64 22 29 3a 57 61 64  |,"WFracadd"):Wad|
0000cf50  64 6f 6d 73 5f 3d a3 3a  f2 75 73 49 28 57 61 64  |doms_=.:.usI(Wad|
0000cf60  5f 25 2c 22 57 61 64 64  6f 6d 73 22 29 3a 57 53  |_%,"Waddoms"):WS|
0000cf70  61 64 63 61 72 72 79 5f  28 31 29 3d a3 3a f2 75  |adcarry_(1)=.:.u|
0000cf80  73 49 28 57 61 64 5f 25  2c 22 57 53 61 64 43 61  |sI(Wad_%,"WSadCa|
0000cf90  72 72 79 31 22 29 3a 57  53 61 64 63 61 72 72 79  |rry1"):WSadcarry|
0000cfa0  5f 28 32 29 3d a3 3a f2  75 73 49 28 57 61 64 5f  |_(2)=.:.usI(Wad_|
0000cfb0  25 2c 22 57 53 61 64 43  61 72 72 79 32 22 29 3a  |%,"WSadCarry2"):|
0000cfc0  57 53 61 64 63 61 72 72  79 5f 28 33 29 3d a3 3a  |WSadcarry_(3)=.:|
0000cfd0  f2 75 73 49 28 57 61 64  5f 25 2c 22 57 53 61 64  |.usI(Wad_%,"WSad|
0000cfe0  43 61 72 72 79 33 22 29  3a 57 41 64 64 52 65 70  |Carry3"):WAddRep|
0000cff0  73 5f 3d a3 3a f2 75 73  49 28 57 61 64 5f 25 2c  |s_=.:.usI(Wad_%,|
0000d000  22 57 41 64 64 52 65 70  73 22 29 0d 4b dc e5 cc  |"WAddReps").K...|
0000d010  3a 57 46 72 61 63 61 64  64 5f 3d b9 3a f2 73 49  |:WFracadd_=.:.sI|
0000d020  28 57 61 64 5f 25 2c 22  57 46 72 61 63 61 64 64  |(Wad_%,"WFracadd|
0000d030  22 29 3a 57 61 64 64 6f  6d 73 5f 3d a3 3a f2 75  |"):Waddoms_=.:.u|
0000d040  73 49 28 57 61 64 5f 25  2c 22 57 61 64 64 6f 6d  |sI(Wad_%,"Waddom|
0000d050  73 22 29 3a 57 53 61 64  63 61 72 72 79 5f 28 31  |s"):WSadcarry_(1|
0000d060  29 3d a3 3a f2 75 73 49  28 57 61 64 5f 25 2c 22  |)=.:.usI(Wad_%,"|
0000d070  57 53 61 64 43 61 72 72  79 31 22 29 3a 57 53 61  |WSadCarry1"):WSa|
0000d080  64 63 61 72 72 79 5f 28  32 29 3d a3 3a f2 75 73  |dcarry_(2)=.:.us|
0000d090  49 28 57 61 64 5f 25 2c  22 57 53 61 64 43 61 72  |I(Wad_%,"WSadCar|
0000d0a0  72 79 32 22 29 3a 57 53  61 64 63 61 72 72 79 5f  |ry2"):WSadcarry_|
0000d0b0  28 33 29 3d b9 3a f2 73  49 28 57 61 64 5f 25 2c  |(3)=.:.sI(Wad_%,|
0000d0c0  22 57 53 61 64 43 61 72  72 79 33 22 29 3a 57 41  |"WSadCarry3"):WA|
0000d0d0  64 64 52 65 70 73 5f 3d  a3 3a f2 75 73 49 28 57  |ddReps_=.:.usI(W|
0000d0e0  61 64 5f 25 2c 22 57 41  64 64 52 65 70 73 22 29  |ad_%,"WAddReps")|
0000d0f0  0d 4c 22 08 cd 3a 3d b9  0d 4c 40 37 dd a4 57 46  |.L"..:=..L@7..WF|
0000d100  72 61 63 74 61 6b 65 5f  3a e7 57 46 72 61 63 61  |ractake_:.WFraca|
0000d110  64 64 5f 3d a3 8c f2 73  49 28 57 61 64 5f 25 2c  |dd_=...sI(Wad_%,|
0000d120  22 57 46 72 61 63 74 61  6b 65 22 29 3a 3d a3 0d  |"WFractake"):=..|
0000d130  4c 4a 10 e7 57 46 72 61  63 74 61 6b 65 5f 8c 0d  |LJ..WFractake_..|
0000d140  4c 54 a3 57 46 72 61 63  74 61 6b 65 5f 3d a3 3a  |LT.WFractake_=.:|
0000d150  f2 75 73 49 28 57 61 64  5f 25 2c 22 57 46 72 61  |.usI(Wad_%,"WFra|
0000d160  63 74 61 6b 65 22 29 3a  57 53 54 61 6b 65 63 61  |ctake"):WSTakeca|
0000d170  72 5f 28 31 29 3d a3 3a  57 53 54 61 6b 65 63 61  |r_(1)=.:WSTakeca|
0000d180  72 5f 28 32 29 3d a3 3a  57 53 54 61 6b 65 63 61  |r_(2)=.:WSTakeca|
0000d190  72 5f 28 33 29 3d a3 3a  f2 75 73 49 28 57 61 64  |r_(3)=.:.usI(Wad|
0000d1a0  5f 25 2c 22 57 53 54 61  6b 65 43 61 72 31 22 29  |_%,"WSTakeCar1")|
0000d1b0  3a f2 75 73 49 28 57 61  64 5f 25 2c 22 57 53 54  |:.usI(Wad_%,"WST|
0000d1c0  61 6b 65 43 61 72 32 22  29 3a f2 75 73 49 28 57  |akeCar2"):.usI(W|
0000d1d0  61 64 5f 25 2c 22 57 53  54 61 6b 65 43 61 72 33  |ad_%,"WSTakeCar3|
0000d1e0  22 29 0d 4c 72 51 cc 3a  57 46 72 61 63 74 61 6b  |").LrQ.:WFractak|
0000d1f0  65 5f 3d b9 3a f2 73 49  28 57 61 64 5f 25 2c 22  |e_=.:.sI(Wad_%,"|
0000d200  57 46 72 61 63 74 61 6b  65 22 29 3a 57 53 54 61  |WFractake"):WSTa|
0000d210  6b 65 63 61 72 5f 28 33  29 3d b9 3a f2 73 49 28  |kecar_(3)=.:.sI(|
0000d220  57 61 64 5f 25 2c 22 57  53 54 61 6b 65 43 61 72  |Wad_%,"WSTakeCar|
0000d230  33 22 29 0d 4c 90 4e cd  3a 57 73 75 62 64 6f 6d  |3").L.N.:Wsubdom|
0000d240  73 5f 3d a3 3a f2 75 73  49 28 57 61 64 5f 25 2c  |s_=.:.usI(Wad_%,|
0000d250  22 57 73 75 62 64 6f 6d  73 22 29 3a 57 53 75 62  |"Wsubdoms"):WSub|
0000d260  52 65 70 73 5f 3d a3 3a  f2 75 73 49 28 57 61 64  |Reps_=.:.usI(Wad|
0000d270  5f 25 2c 22 57 53 75 62  52 65 70 73 22 29 3a 3d  |_%,"WSubReps"):=|
0000d280  b9 0d 4c c2 3e dd a4 57  61 64 64 6f 6d 73 5f 3a  |..L.>..Waddoms_:|
0000d290  e7 57 46 72 61 63 61 64  64 5f 3d a3 57 61 64 64  |.WFracadd_=.Wadd|
0000d2a0  6f 6d 73 5f 3d a3 3a f2  75 73 49 28 57 61 64 5f  |oms_=.:.usI(Wad_|
0000d2b0  25 2c 22 57 61 64 64 6f  6d 73 22 29 3a 3d a3 0d  |%,"Waddoms"):=..|
0000d2c0  4c cc 4e e7 57 61 64 64  6f 6d 73 5f 20 57 61 64  |L.N.Waddoms_ Wad|
0000d2d0  64 6f 6d 73 5f 3d a3 3a  f2 75 73 49 28 57 61 64  |doms_=.:.usI(Wad|
0000d2e0  5f 25 2c 22 57 61 64 64  6f 6d 73 22 29 8b 57 61  |_%,"Waddoms").Wa|
0000d2f0  64 64 6f 6d 73 5f 3d b9  3a f2 73 49 28 57 61 64  |ddoms_=.:.sI(Wad|
0000d300  5f 25 2c 22 57 61 64 64  6f 6d 73 22 29 0d 4c d6  |_%,"Waddoms").L.|
0000d310  06 3d b9 0d 4c ea 41 dd  a4 57 41 64 64 52 65 70  |.=..L.A..WAddRep|
0000d320  73 5f 3a e7 57 46 72 61  63 61 64 64 5f 3d a3 57  |s_:.WFracadd_=.W|
0000d330  41 64 64 52 65 70 73 5f  3d a3 3a f2 75 73 49 28  |AddReps_=.:.usI(|
0000d340  57 61 64 5f 25 2c 22 57  41 64 64 52 65 70 73 22  |Wad_%,"WAddReps"|
0000d350  29 3a 3d a3 0d 4c f4 53  e7 57 41 64 64 52 65 70  |):=..L.S.WAddRep|
0000d360  73 5f 20 57 41 64 64 52  65 70 73 5f 3d a3 3a f2  |s_ WAddReps_=.:.|
0000d370  75 73 49 28 57 61 64 5f  25 2c 22 57 41 64 64 52  |usI(Wad_%,"WAddR|
0000d380  65 70 73 22 29 8b 57 41  64 64 52 65 70 73 5f 3d  |eps").WAddReps_=|
0000d390  b9 3a f2 73 49 28 57 61  64 5f 25 2c 22 57 41 64  |.:.sI(Wad_%,"WAd|
0000d3a0  64 52 65 70 73 22 29 0d  4c fe 06 3d b9 0d 4d 12  |dReps").L..=..M.|
0000d3b0  42 dd a4 57 73 75 62 64  6f 6d 73 5f 3a e7 57 46  |B..Wsubdoms_:.WF|
0000d3c0  72 61 63 74 61 6b 65 5f  3d a3 57 73 75 62 64 6f  |ractake_=.Wsubdo|
0000d3d0  6d 73 5f 3d a3 3a f2 75  73 49 28 57 61 64 5f 25  |ms_=.:.usI(Wad_%|
0000d3e0  2c 22 57 73 75 62 64 6f  6d 73 22 29 3a 3d a3 0d  |,"Wsubdoms"):=..|
0000d3f0  4d 1c 53 e7 57 73 75 62  64 6f 6d 73 5f 20 57 73  |M.S.Wsubdoms_ Ws|
0000d400  75 62 64 6f 6d 73 5f 3d  a3 3a f2 75 73 49 28 57  |ubdoms_=.:.usI(W|
0000d410  61 64 5f 25 2c 22 57 73  75 62 64 6f 6d 73 22 29  |ad_%,"Wsubdoms")|
0000d420  8b 57 73 75 62 64 6f 6d  73 5f 3d b9 3a f2 73 49  |.Wsubdoms_=.:.sI|
0000d430  28 57 61 64 5f 25 2c 22  57 73 75 62 64 6f 6d 73  |(Wad_%,"Wsubdoms|
0000d440  22 29 0d 4d 26 06 3d b9  0d 4d 3a 42 dd a4 57 53  |").M&.=..M:B..WS|
0000d450  75 62 52 65 70 73 5f 3a  e7 57 46 72 61 63 74 61  |ubReps_:.WFracta|
0000d460  6b 65 5f 3d a3 57 53 75  62 52 65 70 73 5f 3d a3  |ke_=.WSubReps_=.|
0000d470  3a f2 75 73 49 28 57 61  64 5f 25 2c 22 57 53 75  |:.usI(Wad_%,"WSu|
0000d480  62 52 65 70 73 22 29 3a  3d b9 0d 4d 44 54 e7 57  |bReps"):=..MDT.W|
0000d490  53 75 62 52 65 70 73 5f  3d b9 57 53 75 62 52 65  |SubReps_=.WSubRe|
0000d4a0  70 73 5f 3d a3 3a f2 75  73 49 28 57 61 64 5f 25  |ps_=.:.usI(Wad_%|
0000d4b0  2c 22 57 53 75 62 52 65  70 73 22 29 8b 57 53 75  |,"WSubReps").WSu|
0000d4c0  62 52 65 70 73 5f 3d b9  3a f2 73 49 28 57 61 64  |bReps_=.:.sI(Wad|
0000d4d0  5f 25 2c 22 57 53 75 62  52 65 70 73 22 29 0d 4d  |_%,"WSubReps").M|
0000d4e0  4e 06 3d b9 0d 4d 62 49  dd a4 57 53 61 64 43 61  |N.=..MbI..WSadCa|
0000d4f0  72 72 79 31 5f 3a e7 57  46 72 61 63 61 64 64 5f  |rry1_:.WFracadd_|
0000d500  3d a3 57 53 61 64 63 61  72 72 79 5f 28 31 29 3d  |=.WSadcarry_(1)=|
0000d510  a3 3a f2 75 73 49 28 57  61 64 5f 25 2c 22 57 53  |.:.usI(Wad_%,"WS|
0000d520  61 64 43 61 72 72 79 31  22 29 3a 3d a3 0d 4d 6c  |adCarry1"):=..Ml|
0000d530  5a e7 57 53 61 64 63 61  72 72 79 5f 28 31 29 80  |Z.WSadcarry_(1).|
0000d540  57 53 61 64 63 61 72 72  79 5f 28 32 29 2b 57 53  |WSadcarry_(2)+WS|
0000d550  61 64 63 61 72 72 79 5f  28 33 29 3d a3 57 53 61  |adcarry_(3)=.WSa|
0000d560  64 63 61 72 72 79 5f 28  31 29 3d b9 3a f2 73 49  |dcarry_(1)=.:.sI|
0000d570  28 57 61 64 5f 25 2c 22  57 53 61 64 43 61 72 72  |(Wad_%,"WSadCarr|
0000d580  79 31 22 29 3a 3d b9 0d  4d 76 90 e7 57 53 61 64  |y1"):=..Mv..WSad|
0000d590  63 61 72 72 79 5f 28 31  29 3d a3 57 53 61 64 63  |carry_(1)=.WSadc|
0000d5a0  61 72 72 79 5f 28 31 29  3d b9 3a f2 73 49 28 57  |arry_(1)=.:.sI(W|
0000d5b0  61 64 5f 25 2c 22 57 53  61 64 43 61 72 72 79 31  |ad_%,"WSadCarry1|
0000d5c0  22 29 3a 57 53 61 64 63  61 72 72 79 5f 28 32 29  |"):WSadcarry_(2)|
0000d5d0  3d a3 3a f2 75 73 49 28  57 61 64 5f 25 2c 22 57  |=.:.usI(Wad_%,"W|
0000d5e0  53 61 64 43 61 72 72 79  32 22 29 3a 57 53 61 64  |SadCarry2"):WSad|
0000d5f0  63 61 72 72 79 5f 28 33  29 3d a3 3a f2 75 73 49  |carry_(3)=.:.usI|
0000d600  28 57 61 64 5f 25 2c 22  57 53 61 64 43 61 72 72  |(Wad_%,"WSadCarr|
0000d610  79 33 22 29 3a 3d b9 0d  4d 80 04 0d 4d 8a 49 dd  |y3"):=..M...M.I.|
0000d620  a4 57 53 61 64 43 61 72  72 79 32 5f 3a e7 57 46  |.WSadCarry2_:.WF|
0000d630  72 61 63 61 64 64 5f 3d  a3 57 53 61 64 63 61 72  |racadd_=.WSadcar|
0000d640  72 79 5f 28 32 29 3d a3  3a f2 75 73 49 28 57 61  |ry_(2)=.:.usI(Wa|
0000d650  64 5f 25 2c 22 57 53 61  64 43 61 72 72 79 32 22  |d_%,"WSadCarry2"|
0000d660  29 3a 3d a3 0d 4d 94 5a  e7 57 53 61 64 63 61 72  |):=..M.Z.WSadcar|
0000d670  72 79 5f 28 32 29 80 57  53 61 64 63 61 72 72 79  |ry_(2).WSadcarry|
0000d680  5f 28 31 29 2b 57 53 61  64 63 61 72 72 79 5f 28  |_(1)+WSadcarry_(|
0000d690  33 29 3d a3 57 53 61 64  63 61 72 72 79 5f 28 32  |3)=.WSadcarry_(2|
0000d6a0  29 3d b9 3a f2 73 49 28  57 61 64 5f 25 2c 22 57  |)=.:.sI(Wad_%,"W|
0000d6b0  53 61 64 43 61 72 72 79  32 22 29 3a 3d b9 0d 4d  |SadCarry2"):=..M|
0000d6c0  9e 90 e7 57 53 61 64 63  61 72 72 79 5f 28 32 29  |...WSadcarry_(2)|
0000d6d0  3d a3 57 53 61 64 63 61  72 72 79 5f 28 32 29 3d  |=.WSadcarry_(2)=|
0000d6e0  b9 3a f2 73 49 28 57 61  64 5f 25 2c 22 57 53 61  |.:.sI(Wad_%,"WSa|
0000d6f0  64 43 61 72 72 79 32 22  29 3a 57 53 61 64 63 61  |dCarry2"):WSadca|
0000d700  72 72 79 5f 28 31 29 3d  a3 3a f2 75 73 49 28 57  |rry_(1)=.:.usI(W|
0000d710  61 64 5f 25 2c 22 57 53  61 64 43 61 72 72 79 31  |ad_%,"WSadCarry1|
0000d720  22 29 3a 57 53 61 64 63  61 72 72 79 5f 28 33 29  |"):WSadcarry_(3)|
0000d730  3d a3 3a f2 75 73 49 28  57 61 64 5f 25 2c 22 57  |=.:.usI(Wad_%,"W|
0000d740  53 61 64 43 61 72 72 79  33 22 29 3a 3d b9 0d 4d  |SadCarry3"):=..M|
0000d750  a8 04 0d 4d b2 49 dd a4  57 53 61 64 43 61 72 72  |...M.I..WSadCarr|
0000d760  79 33 5f 3a e7 57 46 72  61 63 61 64 64 5f 3d a3  |y3_:.WFracadd_=.|
0000d770  57 53 61 64 63 61 72 72  79 5f 28 33 29 3d a3 3a  |WSadcarry_(3)=.:|
0000d780  f2 75 73 49 28 57 61 64  5f 25 2c 22 57 53 61 64  |.usI(Wad_%,"WSad|
0000d790  43 61 72 72 79 33 22 29  3a 3d a3 0d 4d bc 5c e7  |Carry3"):=..M.\.|
0000d7a0  57 53 61 64 63 61 72 72  79 5f 28 33 29 3d b9 80  |WSadcarry_(3)=..|
0000d7b0  57 53 61 64 63 61 72 72  79 5f 28 31 29 2b 57 53  |WSadcarry_(1)+WS|
0000d7c0  61 64 63 61 72 72 79 5f  28 32 29 3d a3 57 53 61  |adcarry_(2)=.WSa|
0000d7d0  64 63 61 72 72 79 5f 28  33 29 3d b9 3a f2 73 49  |dcarry_(3)=.:.sI|
0000d7e0  28 57 61 64 5f 25 2c 22  57 53 61 64 43 61 72 72  |(Wad_%,"WSadCarr|
0000d7f0  79 33 22 29 3a 3d b9 0d  4d c6 90 e7 57 53 61 64  |y3"):=..M...WSad|
0000d800  63 61 72 72 79 5f 28 33  29 3d a3 57 53 61 64 63  |carry_(3)=.WSadc|
0000d810  61 72 72 79 5f 28 33 29  3d b9 3a f2 73 49 28 57  |arry_(3)=.:.sI(W|
0000d820  61 64 5f 25 2c 22 57 53  61 64 43 61 72 72 79 33  |ad_%,"WSadCarry3|
0000d830  22 29 3a 57 53 61 64 63  61 72 72 79 5f 28 31 29  |"):WSadcarry_(1)|
0000d840  3d a3 3a f2 75 73 49 28  57 61 64 5f 25 2c 22 57  |=.:.usI(Wad_%,"W|
0000d850  53 61 64 43 61 72 72 79  31 22 29 3a 57 53 61 64  |SadCarry1"):WSad|
0000d860  63 61 72 72 79 5f 28 32  29 3d a3 3a f2 75 73 49  |carry_(2)=.:.usI|
0000d870  28 57 61 64 5f 25 2c 22  57 53 61 64 43 61 72 72  |(Wad_%,"WSadCarr|
0000d880  79 32 22 29 3a 3d b9 0d  4d d0 04 0d 4d da 4a dd  |y2"):=..M...M.J.|
0000d890  a4 57 53 54 61 6b 65 43  61 72 31 5f 3a e7 57 46  |.WSTakeCar1_:.WF|
0000d8a0  72 61 63 74 61 6b 65 5f  3d a3 57 53 54 61 6b 65  |ractake_=.WSTake|
0000d8b0  63 61 72 5f 28 31 29 3d  a3 3a f2 75 73 49 28 57  |car_(1)=.:.usI(W|
0000d8c0  61 64 5f 25 2c 22 57 53  54 61 6b 65 43 61 72 31  |ad_%,"WSTakeCar1|
0000d8d0  22 29 3a 3d a3 0d 4d ee  5a e7 57 53 54 61 6b 65  |"):=..M.Z.WSTake|
0000d8e0  63 61 72 5f 28 31 29 80  57 53 54 61 6b 65 63 61  |car_(1).WSTakeca|
0000d8f0  72 5f 28 32 29 2b 57 53  54 61 6b 65 63 61 72 5f  |r_(2)+WSTakecar_|
0000d900  28 33 29 3d a3 57 53 54  61 6b 65 63 61 72 5f 28  |(3)=.WSTakecar_(|
0000d910  31 29 3d b9 3a f2 73 49  28 57 61 64 5f 25 2c 22  |1)=.:.sI(Wad_%,"|
0000d920  57 53 54 61 6b 65 43 61  72 31 22 29 3a 3d a3 0d  |WSTakeCar1"):=..|
0000d930  4d f8 b5 e7 57 53 54 61  6b 65 63 61 72 5f 28 31  |M...WSTakecar_(1|
0000d940  29 3d a3 57 53 54 61 6b  65 63 61 72 5f 28 31 29  |)=.WSTakecar_(1)|
0000d950  3d b9 3a f2 73 49 28 57  61 64 5f 25 2c 22 57 53  |=.:.sI(Wad_%,"WS|
0000d960  54 61 6b 65 43 61 72 22  29 3a 57 53 54 61 6b 65  |TakeCar"):WSTake|
0000d970  63 61 72 5f 28 32 29 3d  a3 3a f2 75 73 49 28 57  |car_(2)=.:.usI(W|
0000d980  61 64 5f 25 2c 22 57 53  54 61 6b 65 43 61 72 32  |ad_%,"WSTakeCar2|
0000d990  22 29 3a 57 53 54 61 6b  65 63 61 72 5f 28 33 29  |"):WSTakecar_(3)|
0000d9a0  3d a3 3a f2 75 73 49 28  57 61 64 5f 25 2c 22 57  |=.:.usI(Wad_%,"W|
0000d9b0  53 54 61 6b 65 43 61 72  33 22 29 8b 57 53 54 61  |STakeCar3").WSTa|
0000d9c0  6b 65 63 61 72 5f 28 31  29 3d a3 3a f2 75 73 49  |kecar_(1)=.:.usI|
0000d9d0  28 57 61 64 5f 25 2c 22  57 53 54 61 6b 65 43 61  |(Wad_%,"WSTakeCa|
0000d9e0  72 31 22 29 0d 4e 02 06  3d b9 0d 4e 16 4a dd a4  |r1").N..=..N.J..|
0000d9f0  57 53 54 61 6b 65 43 61  72 32 5f 3a e7 57 46 72  |WSTakeCar2_:.WFr|
0000da00  61 63 74 61 6b 65 5f 3d  a3 57 53 54 61 6b 65 63  |actake_=.WSTakec|
0000da10  61 72 5f 28 32 29 3d a3  3a f2 75 73 49 28 57 61  |ar_(2)=.:.usI(Wa|
0000da20  64 5f 25 2c 22 57 53 54  61 6b 65 43 61 72 32 22  |d_%,"WSTakeCar2"|
0000da30  29 3a 3d a3 0d 4e 2a 5c  e7 57 53 54 61 6b 65 63  |):=..N*\.WSTakec|
0000da40  61 72 5f 28 32 29 3d b9  80 57 53 54 61 6b 65 63  |ar_(2)=..WSTakec|
0000da50  61 72 5f 28 31 29 2b 57  53 54 61 6b 65 63 61 72  |ar_(1)+WSTakecar|
0000da60  5f 28 33 29 3d a3 57 53  54 61 6b 65 63 61 72 5f  |_(3)=.WSTakecar_|
0000da70  28 32 29 3d b9 3a f2 73  49 28 57 61 64 5f 25 2c  |(2)=.:.sI(Wad_%,|
0000da80  22 57 53 54 61 6b 65 43  61 72 32 22 29 3a 3d a3  |"WSTakeCar2"):=.|
0000da90  0d 4e 34 b5 e7 57 53 54  61 6b 65 63 61 72 5f 28  |.N4..WSTakecar_(|
0000daa0  32 29 3d a3 57 53 54 61  6b 65 63 61 72 5f 28 32  |2)=.WSTakecar_(2|
0000dab0  29 3d b9 3a f2 73 49 28  57 61 64 5f 25 2c 22 57  |)=.:.sI(Wad_%,"W|
0000dac0  53 54 61 6b 65 43 61 72  22 29 3a 57 53 54 61 6b  |STakeCar"):WSTak|
0000dad0  65 63 61 72 5f 28 31 29  3d a3 3a f2 75 73 49 28  |ecar_(1)=.:.usI(|
0000dae0  57 61 64 5f 25 2c 22 57  53 54 61 6b 65 43 61 72  |Wad_%,"WSTakeCar|
0000daf0  31 22 29 3a 57 53 54 61  6b 65 63 61 72 5f 28 33  |1"):WSTakecar_(3|
0000db00  29 3d a3 3a f2 75 73 49  28 57 61 64 5f 25 2c 22  |)=.:.usI(Wad_%,"|
0000db10  57 53 54 61 6b 65 43 61  72 33 22 29 8b 57 53 54  |WSTakeCar3").WST|
0000db20  61 6b 65 63 61 72 5f 28  32 29 3d a3 3a f2 75 73  |akecar_(2)=.:.us|
0000db30  49 28 57 61 64 5f 25 2c  22 57 53 54 61 6b 65 43  |I(Wad_%,"WSTakeC|
0000db40  61 72 32 22 29 0d 4e 3e  06 3d b9 0d 4e 52 4a dd  |ar2").N>.=..NRJ.|
0000db50  a4 57 53 54 61 6b 65 43  61 72 33 5f 3a e7 57 46  |.WSTakeCar3_:.WF|
0000db60  72 61 63 74 61 6b 65 5f  3d a3 57 53 54 61 6b 65  |ractake_=.WSTake|
0000db70  63 61 72 5f 28 33 29 3d  a3 3a f2 75 73 49 28 57  |car_(3)=.:.usI(W|
0000db80  61 64 5f 25 2c 22 57 53  54 61 6b 65 43 61 72 33  |ad_%,"WSTakeCar3|
0000db90  22 29 3a 3d a3 0d 4e 66  5a e7 57 53 54 61 6b 65  |"):=..NfZ.WSTake|
0000dba0  63 61 72 5f 28 33 29 80  57 53 54 61 6b 65 63 61  |car_(3).WSTakeca|
0000dbb0  72 5f 28 31 29 2b 57 53  54 61 6b 65 63 61 72 5f  |r_(1)+WSTakecar_|
0000dbc0  28 32 29 3d a3 57 53 54  61 6b 65 63 61 72 5f 28  |(2)=.WSTakecar_(|
0000dbd0  33 29 3d b9 3a f2 73 49  28 57 61 64 5f 25 2c 22  |3)=.:.sI(Wad_%,"|
0000dbe0  57 53 54 61 6b 65 43 61  72 33 22 29 3a 3d a3 0d  |WSTakeCar3"):=..|
0000dbf0  4e 70 b5 e7 57 53 54 61  6b 65 63 61 72 5f 28 33  |Np..WSTakecar_(3|
0000dc00  29 3d a3 57 53 54 61 6b  65 63 61 72 5f 28 33 29  |)=.WSTakecar_(3)|
0000dc10  3d b9 3a f2 73 49 28 57  61 64 5f 25 2c 22 57 53  |=.:.sI(Wad_%,"WS|
0000dc20  54 61 6b 65 43 61 72 22  29 3a 57 53 54 61 6b 65  |TakeCar"):WSTake|
0000dc30  63 61 72 5f 28 31 29 3d  a3 3a f2 75 73 49 28 57  |car_(1)=.:.usI(W|
0000dc40  61 64 5f 25 2c 22 57 53  54 61 6b 65 43 61 72 32  |ad_%,"WSTakeCar2|
0000dc50  22 29 3a 57 53 54 61 6b  65 63 61 72 5f 28 32 29  |"):WSTakecar_(2)|
0000dc60  3d a3 3a f2 75 73 49 28  57 61 64 5f 25 2c 22 57  |=.:.usI(Wad_%,"W|
0000dc70  53 54 61 6b 65 43 61 72  31 22 29 8b 57 53 54 61  |STakeCar1").WSTa|
0000dc80  6b 65 63 61 72 5f 28 33  29 3d a3 3a f2 75 73 49  |kecar_(3)=.:.usI|
0000dc90  28 57 61 64 5f 25 2c 22  57 53 54 61 6b 65 43 61  |(Wad_%,"WSTakeCa|
0000dca0  72 33 22 29 0d 4e 7a 06  3d b9 0d 4e 8e 27 dd a4  |r3").Nz.=..N.'..|
0000dcb0  77 66 5f 3a 63 5f 3d 30  3a e3 68 5f 3d 31 b8 31  |wf_:c_=0:.h_=1.1|
0000dcc0  32 3a e7 77 66 5f 28 68  5f 29 63 5f 3d 63 5f 2b  |2:.wf_(h_)c_=c_+|
0000dcd0  31 0d 4e 98 09 ed 3a 3d  63 5f 0d 4e a2 36 dd a4  |1.N...:=c_.N.6..|
0000dce0  57 46 31 5f 3a e7 77 66  5f 28 31 29 80 a4 77 66  |WF1_:.wf_(1)..wf|
0000dcf0  5f 3d 31 20 77 66 5f 28  31 29 3d b9 3a f2 73 49  |_=1 wf_(1)=.:.sI|
0000dd00  28 57 61 64 5f 25 2c 22  57 46 31 22 29 3a 3d a3  |(Wad_%,"WF1"):=.|
0000dd10  0d 4e ac 1c e7 77 66 5f  28 31 29 77 66 5f 28 31  |.N...wf_(1)wf_(1|
0000dd20  29 3d a3 8b 77 66 5f 28  31 29 3d b9 0d 4e b6 06  |)=..wf_(1)=..N..|
0000dd30  3d b9 0d 4e c0 36 dd a4  57 46 32 5f 3a e7 77 66  |=..N.6..WF2_:.wf|
0000dd40  5f 28 32 29 80 a4 77 66  5f 3d 31 20 77 66 5f 28  |_(2)..wf_=1 wf_(|
0000dd50  32 29 3d b9 3a f2 73 49  28 57 61 64 5f 25 2c 22  |2)=.:.sI(Wad_%,"|
0000dd60  57 46 32 22 29 3a 3d a3  0d 4e ca 1c e7 77 66 5f  |WF2"):=..N...wf_|
0000dd70  28 32 29 77 66 5f 28 32  29 3d a3 8b 77 66 5f 28  |(2)wf_(2)=..wf_(|
0000dd80  32 29 3d b9 0d 4e d4 06  3d b9 0d 4e de 36 dd a4  |2)=..N..=..N.6..|
0000dd90  57 46 33 5f 3a e7 77 66  5f 28 33 29 80 a4 77 66  |WF3_:.wf_(3)..wf|
0000dda0  5f 3d 31 20 77 66 5f 28  33 29 3d b9 3a f2 73 49  |_=1 wf_(3)=.:.sI|
0000ddb0  28 57 61 64 5f 25 2c 22  57 46 33 22 29 3a 3d a3  |(Wad_%,"WF3"):=.|
0000ddc0  0d 4e e8 1c e7 77 66 5f  28 33 29 77 66 5f 28 33  |.N...wf_(3)wf_(3|
0000ddd0  29 3d a3 8b 77 66 5f 28  33 29 3d b9 0d 4e f2 06  |)=..wf_(3)=..N..|
0000dde0  3d b9 0d 4e fc 36 dd a4  57 46 34 5f 3a e7 77 66  |=..N.6..WF4_:.wf|
0000ddf0  5f 28 34 29 80 a4 77 66  5f 3d 31 20 77 66 5f 28  |_(4)..wf_=1 wf_(|
0000de00  34 29 3d b9 3a f2 73 49  28 57 61 64 5f 25 2c 22  |4)=.:.sI(Wad_%,"|
0000de10  57 46 34 22 29 3a 3d a3  0d 4f 06 1c e7 77 66 5f  |WF4"):=..O...wf_|
0000de20  28 34 29 77 66 5f 28 34  29 3d a3 8b 77 66 5f 28  |(4)wf_(4)=..wf_(|
0000de30  34 29 3d b9 0d 4f 10 06  3d b9 0d 4f 1a 36 dd a4  |4)=..O..=..O.6..|
0000de40  57 46 35 5f 3a e7 77 66  5f 28 35 29 80 a4 77 66  |WF5_:.wf_(5)..wf|
0000de50  5f 3d 31 20 77 66 5f 28  35 29 3d b9 3a f2 73 49  |_=1 wf_(5)=.:.sI|
0000de60  28 57 61 64 5f 25 2c 22  57 46 35 22 29 3a 3d a3  |(Wad_%,"WF5"):=.|
0000de70  0d 4f 24 1c e7 77 66 5f  28 35 29 77 66 5f 28 35  |.O$..wf_(5)wf_(5|
0000de80  29 3d a3 8b 77 66 5f 28  35 29 3d b9 0d 4f 2e 06  |)=..wf_(5)=..O..|
0000de90  3d b9 0d 4f 38 36 dd a4  57 46 36 5f 3a e7 77 66  |=..O86..WF6_:.wf|
0000dea0  5f 28 36 29 80 a4 77 66  5f 3d 31 20 77 66 5f 28  |_(6)..wf_=1 wf_(|
0000deb0  36 29 3d b9 3a f2 73 49  28 57 61 64 5f 25 2c 22  |6)=.:.sI(Wad_%,"|
0000dec0  57 46 36 22 29 3a 3d a3  0d 4f 42 1c e7 77 66 5f  |WF6"):=..OB..wf_|
0000ded0  28 36 29 77 66 5f 28 36  29 3d a3 8b 77 66 5f 28  |(6)wf_(6)=..wf_(|
0000dee0  36 29 3d b9 0d 4f 4c 06  3d b9 0d 4f 56 36 dd a4  |6)=..OL.=..OV6..|
0000def0  57 46 37 5f 3a e7 77 66  5f 28 37 29 80 a4 77 66  |WF7_:.wf_(7)..wf|
0000df00  5f 3d 31 20 77 66 5f 28  37 29 3d b9 3a f2 73 49  |_=1 wf_(7)=.:.sI|
0000df10  28 57 61 64 5f 25 2c 22  57 46 37 22 29 3a 3d a3  |(Wad_%,"WF7"):=.|
0000df20  0d 4f 60 1c e7 77 66 5f  28 37 29 77 66 5f 28 37  |.O`..wf_(7)wf_(7|
0000df30  29 3d a3 8b 77 66 5f 28  37 29 3d b9 0d 4f 6a 06  |)=..wf_(7)=..Oj.|
0000df40  3d b9 0d 4f 74 36 dd a4  57 46 38 5f 3a e7 77 66  |=..Ot6..WF8_:.wf|
0000df50  5f 28 38 29 80 a4 77 66  5f 3d 31 20 77 66 5f 28  |_(8)..wf_=1 wf_(|
0000df60  38 29 3d b9 3a f2 73 49  28 57 61 64 5f 25 2c 22  |8)=.:.sI(Wad_%,"|
0000df70  57 46 38 22 29 3a 3d a3  0d 4f 7e 1c e7 77 66 5f  |WF8"):=..O~..wf_|
0000df80  28 38 29 77 66 5f 28 38  29 3d a3 8b 77 66 5f 28  |(8)wf_(8)=..wf_(|
0000df90  38 29 3d b9 0d 4f 88 06  3d b9 0d 4f 92 36 dd a4  |8)=..O..=..O.6..|
0000dfa0  57 46 39 5f 3a e7 77 66  5f 28 39 29 80 a4 77 66  |WF9_:.wf_(9)..wf|
0000dfb0  5f 3d 31 20 77 66 5f 28  39 29 3d b9 3a f2 73 49  |_=1 wf_(9)=.:.sI|
0000dfc0  28 57 61 64 5f 25 2c 22  57 46 39 22 29 3a 3d a3  |(Wad_%,"WF9"):=.|
0000dfd0  0d 4f 9c 1c e7 77 66 5f  28 39 29 77 66 5f 28 39  |.O...wf_(9)wf_(9|
0000dfe0  29 3d a3 8b 77 66 5f 28  39 29 3d b9 0d 4f a6 06  |)=..wf_(9)=..O..|
0000dff0  3d b9 0d 4f b0 3a dd a4  57 46 31 30 5f 3a e7 77  |=..O.:..WF10_:.w|
0000e000  66 5f 28 31 30 29 80 a4  77 66 5f 3d 31 20 77 66  |f_(10)..wf_=1 wf|
0000e010  5f 28 31 30 29 3d b9 3a  f2 73 49 28 57 61 64 5f  |_(10)=.:.sI(Wad_|
0000e020  25 2c 22 57 46 31 30 22  29 3a 3d a3 0d 4f ba 1f  |%,"WF10"):=..O..|
0000e030  e7 77 66 5f 28 31 30 29  77 66 5f 28 31 30 29 3d  |.wf_(10)wf_(10)=|
0000e040  a3 8b 77 66 5f 28 31 30  29 3d b9 0d 4f c4 06 3d  |..wf_(10)=..O..=|
0000e050  b9 0d 4f ce 3a dd a4 57  46 31 31 5f 3a e7 77 66  |..O.:..WF11_:.wf|
0000e060  5f 28 31 31 29 80 a4 77  66 5f 3d 31 20 77 66 5f  |_(11)..wf_=1 wf_|
0000e070  28 31 31 29 3d b9 3a f2  73 49 28 57 61 64 5f 25  |(11)=.:.sI(Wad_%|
0000e080  2c 22 57 46 31 31 22 29  3a 3d a3 0d 4f d8 1f e7  |,"WF11"):=..O...|
0000e090  77 66 5f 28 31 31 29 77  66 5f 28 31 31 29 3d a3  |wf_(11)wf_(11)=.|
0000e0a0  8b 77 66 5f 28 31 31 29  3d b9 0d 4f e2 06 3d b9  |.wf_(11)=..O..=.|
0000e0b0  0d 4f ec 3a dd a4 57 46  31 32 5f 3a e7 77 66 5f  |.O.:..WF12_:.wf_|
0000e0c0  28 31 32 29 80 a4 77 66  5f 3d 31 20 77 66 5f 28  |(12)..wf_=1 wf_(|
0000e0d0  31 32 29 3d b9 3a f2 73  49 28 57 61 64 5f 25 2c  |12)=.:.sI(Wad_%,|
0000e0e0  22 57 46 31 32 22 29 3a  3d a3 0d 4f f6 1f e7 77  |"WF12"):=..O...w|
0000e0f0  66 5f 28 31 32 29 77 66  5f 28 31 32 29 3d a3 8b  |f_(12)wf_(12)=..|
0000e100  77 66 5f 28 31 32 29 3d  b9 0d 50 00 06 3d b9 0d  |wf_(12)=..P..=..|
0000e110  50 28 98 dd a4 57 46 72  61 63 47 6f 5f 3a f2 47  |P(...WFracGo_:.G|
0000e120  65 74 54 69 74 6c 65 73  3a 64 75 6d 6d 79 5f 3d  |etTitles:dummy_=|
0000e130  b3 28 2d 91 29 3a 71 75  69 74 5f 3d a3 3a d1 3d  |.(-.):quit_=.:.=|
0000e140  30 3a 6c 61 73 74 5f 3d  31 32 3a f2 77 68 61 74  |0:last_=12:.what|
0000e150  57 66 72 61 63 73 69 67  6e 3a f2 77 68 61 74 57  |Wfracsign:.whatW|
0000e160  66 72 61 63 73 3a f2 63  61 6c 63 57 66 72 61 63  |fracs:.calcWfrac|
0000e170  73 3a 43 6c 75 65 5f 24  3d 22 57 61 64 22 3a 73  |s:Clue_$="Wad":s|
0000e180  74 61 72 74 65 64 5f 25  3d b9 3a f2 75 73 49 28  |tarted_%=.:.usI(|
0000e190  57 61 64 5f 25 2c 22 57  46 72 61 63 47 6f 22 29  |Wad_%,"WFracGo")|
0000e1a0  3a 3d a4 73 75 6d 73 0d  50 5a 4a dd f2 77 68 61  |:=.sums.PZJ..wha|
0000e1b0  74 57 66 72 61 63 73 69  67 6e 3a e7 57 46 72 61  |tWfracsign:.WFra|
0000e1c0  63 61 64 64 5f 80 57 46  72 61 63 74 61 6b 65 5f  |cadd_.WFractake_|
0000e1d0  3d a3 e3 67 5f 3d 31 b8  31 32 3a 46 72 61 63 73  |=..g_=1.12:Fracs|
0000e1e0  69 67 6e 5f 24 28 67 5f  29 3d 22 2b 22 3a ed 3a  |ign_$(g_)="+":.:|
0000e1f0  e1 0d 50 6e 3a e7 57 46  72 61 63 74 61 6b 65 5f  |..Pn:.WFractake_|
0000e200  80 57 46 72 61 63 61 64  64 5f 3d a3 e3 67 5f 3d  |.WFracadd_=..g_=|
0000e210  31 b8 31 32 3a 46 72 61  63 73 69 67 6e 5f 24 28  |1.12:Fracsign_$(|
0000e220  67 5f 29 3d 22 2d 22 3a  ed 3a e1 0d 50 78 1a 73  |g_)="-":.:..Px.s|
0000e230  74 61 72 74 5f 3d b3 28  32 29 3a e7 73 74 61 72  |tart_=.(2):.star|
0000e240  74 5f 3d 31 8c 0d 50 8c  3a e3 67 5f 3d 31 b8 31  |t_=1..P.:.g_=1.1|
0000e250  32 3a e7 67 5f 83 32 3d  30 20 46 72 61 63 73 69  |2:.g_.2=0 Fracsi|
0000e260  67 6e 5f 24 28 67 5f 29  3d 22 2b 22 8b 46 72 61  |gn_$(g_)="+".Fra|
0000e270  63 73 69 67 6e 5f 24 28  67 5f 29 3d 22 2d 22 0d  |csign_$(g_)="-".|
0000e280  50 96 05 ed 0d 50 a0 3c  cc 3a e3 67 5f 3d 31 b8  |P....P.<.:.g_=1.|
0000e290  31 32 3a e7 67 5f 83 32  3d 31 20 46 72 61 63 73  |12:.g_.2=1 Fracs|
0000e2a0  69 67 6e 5f 24 28 67 5f  29 3d 22 2b 22 8b 46 72  |ign_$(g_)="+".Fr|
0000e2b0  61 63 73 69 67 6e 5f 24  28 67 5f 29 3d 22 2d 22  |acsign_$(g_)="-"|
0000e2c0  0d 50 b4 05 ed 0d 50 be  07 cd 3a e1 0d 50 d2 53  |.P....P...:..P.S|
0000e2d0  dd f2 77 68 61 74 57 66  72 61 63 73 3a 67 6f 74  |..whatWfracs:got|
0000e2e0  5f 25 3d 30 3a e3 72 5f  25 3d 31 b8 31 32 3a e7  |_%=0:.r_%=1.12:.|
0000e2f0  77 66 5f 28 72 5f 25 29  3d b9 8c 67 6f 74 5f 25  |wf_(r_%)=..got_%|
0000e300  3d 67 6f 74 5f 25 2b 31  3a 67 63 5f 25 28 67 6f  |=got_%+1:gc_%(go|
0000e310  74 5f 25 29 3d 66 72 61  63 5f 28 72 5f 25 29 0d  |t_%)=frac_(r_%).|
0000e320  50 e6 07 ed 3a e1 0d 50  fa 18 dd f2 66 72 61 63  |P...:..P....frac|
0000e330  57 61 64 64 3a e7 71 75  69 74 5f 3d b9 e1 0d 51  |Wadd:.quit_=...Q|
0000e340  04 75 f5 3a 67 6f 6f 64  61 64 64 5f 3d b9 3a f5  |.u.:goodadd_=.:.|
0000e350  3a 57 68 6f 6c 65 41 5f  3d b3 28 39 29 3a 57 68  |:WholeA_=.(9):Wh|
0000e360  6f 6c 65 42 5f 3d b3 28  39 29 3a fd 57 68 6f 6c  |oleB_=.(9):.Whol|
0000e370  65 41 5f 2b 57 68 6f 6c  65 42 5f 3c 38 3a e7 67  |eA_+WholeB_<8:.g|
0000e380  6f 74 5f 25 3d 31 20 46  44 31 5f 3d 67 63 5f 25  |ot_%=1 FD1_=gc_%|
0000e390  28 31 29 8b 72 61 6e 5f  25 3d b3 28 67 6f 74 5f  |(1).ran_%=.(got_|
0000e3a0  25 29 3a 46 44 31 5f 3d  67 63 5f 25 28 72 61 6e  |%):FD1_=gc_%(ran|
0000e3b0  5f 25 29 0d 51 36 18 e7  57 61 64 64 6f 6d 73 5f  |_%).Q6..Waddoms_|
0000e3c0  3d b9 46 44 32 5f 3d 46  44 31 5f 0d 51 40 10 e7  |=.FD2_=FD1_.Q@..|
0000e3d0  57 61 64 64 6f 6d 73 5f  3d a3 8c 0d 51 54 39 e7  |Waddoms_=...QT9.|
0000e3e0  67 6f 74 5f 25 3d 31 20  46 44 32 5f 3d 67 63 5f  |got_%=1 FD2_=gc_|
0000e3f0  25 28 31 29 8b 72 61 6e  5f 25 3d b3 28 67 6f 74  |%(1).ran_%=.(got|
0000e400  5f 25 29 3a 46 44 32 5f  3d 67 63 5f 25 28 72 61  |_%):FD2_=gc_%(ra|
0000e410  6e 5f 25 29 0d 51 5e 52  cd 3a f5 3a 66 6c 75 67  |n_%).Q^R.:.:flug|
0000e420  5f 3d 30 3a f5 3a 46 55  31 5f 3d b3 28 46 44 31  |_=0:.:FU1_=.(FD1|
0000e430  5f 29 3a fd 46 55 31 5f  3c 46 44 31 5f 3a e3 72  |_):.FU1_<FD1_:.r|
0000e440  74 5f 3d 32 b8 31 30 3a  e7 46 55 31 5f 83 72 74  |t_=2.10:.FU1_.rt|
0000e450  5f 3d 30 80 46 44 31 5f  83 72 74 5f 3d 30 20 66  |_=0.FD1_.rt_=0 f|
0000e460  6c 75 67 5f 3d 31 0d 51  90 5b ed 3a fd 66 6c 75  |lug_=1.Q.[.:.flu|
0000e470  67 5f 3d 30 3a f5 3a 66  6c 75 67 5f 3d 30 3a f5  |g_=0:.:flug_=0:.|
0000e480  3a 46 55 32 5f 3d b3 28  46 44 32 5f 29 3a fd 46  |:FU2_=.(FD2_):.F|
0000e490  55 32 5f 3c 46 44 32 5f  3a e3 72 74 5f 3d 32 b8  |U2_<FD2_:.rt_=2.|
0000e4a0  31 30 3a e7 46 55 32 5f  83 72 74 5f 3d 30 80 46  |10:.FU2_.rt_=0.F|
0000e4b0  44 32 5f 83 72 74 5f 3d  30 20 66 6c 75 67 5f 3d  |D2_.rt_=0 flug_=|
0000e4c0  31 0d 51 c2 40 ed 3a fd  66 6c 75 67 5f 3d 30 3a  |1.Q.@.:.flug_=0:|
0000e4d0  e7 57 53 61 64 63 61 72  72 79 5f 28 31 29 3d b9  |.WSadcarry_(1)=.|
0000e4e0  80 46 55 32 5f 2f 46 44  32 5f 2b 46 55 31 5f 2f  |.FU2_/FD2_+FU1_/|
0000e4f0  46 44 31 5f 3c 31 20 67  6f 6f 64 61 64 64 5f 3d  |FD1_<1 goodadd_=|
0000e500  a3 0d 51 e0 39 e7 57 53  61 64 63 61 72 72 79 5f  |..Q.9.WSadcarry_|
0000e510  28 32 29 3d b9 80 46 55  32 5f 2f 46 44 32 5f 2b  |(2)=..FU2_/FD2_+|
0000e520  46 55 31 5f 2f 46 44 31  5f 3e 2e 39 39 39 39 20  |FU1_/FD1_>.9999 |
0000e530  67 6f 6f 64 61 64 64 5f  3d a3 0d 51 f4 16 e7 72  |goodadd_=..Q...r|
0000e540  5f 3e 31 80 57 41 64 64  52 65 70 73 5f 3d b9 8c  |_>1.WAddReps_=..|
0000e550  0d 52 08 9c e3 72 74 74  5f 3d 31 b8 72 5f 2d 31  |.R...rtt_=1.r_-1|
0000e560  3a e7 46 72 61 63 73 69  67 6e 5f 24 28 72 5f 29  |:.Fracsign_$(r_)|
0000e570  3d 22 2b 22 80 46 44 31  5f 3d 46 44 31 5f 28 72  |="+".FD1_=FD1_(r|
0000e580  74 74 5f 29 80 46 44 32  5f 3d 46 44 32 5f 28 72  |tt_).FD2_=FD2_(r|
0000e590  74 74 5f 29 80 46 55 31  5f 3d 46 55 31 5f 28 72  |tt_).FU1_=FU1_(r|
0000e5a0  74 74 5f 29 80 46 55 32  5f 3d 46 55 32 5f 28 72  |tt_).FU2_=FU2_(r|
0000e5b0  74 74 5f 29 80 57 68 6f  6c 65 41 5f 3d 57 68 6f  |tt_).WholeA_=Who|
0000e5c0  6c 65 5f 28 72 74 74 5f  2c 30 29 80 57 68 6f 6c  |le_(rtt_,0).Whol|
0000e5d0  65 42 5f 3d 57 68 6f 6c  65 5f 28 72 74 74 5f 2c  |eB_=Whole_(rtt_,|
0000e5e0  31 29 67 6f 6f 64 61 64  64 5f 3d a3 0d 52 12 05  |1)goodadd_=..R..|
0000e5f0  ed 0d 52 1c 36 cd 3a e7  91 3e 35 30 30 20 71 75  |..R.6.:..>500 qu|
0000e600  69 74 5f 3d b9 3a ef 37  3a 6c 61 73 74 5f 3d 72  |it_=.:.7:last_=r|
0000e610  5f 2d 31 3a c8 99 22 48  6f 75 72 67 6c 61 73 73  |_-1:.."Hourglass|
0000e620  5f 4f 66 66 22 3a e1 0d  52 30 86 fd 67 6f 6f 64  |_Off":..R0..good|
0000e630  61 64 64 5f 3d b9 3a 46  72 61 63 73 69 67 6e 5f  |add_=.:Fracsign_|
0000e640  24 28 72 5f 29 3d 22 2b  22 3a 46 44 31 5f 28 72  |$(r_)="+":FD1_(r|
0000e650  5f 29 3d 46 44 31 5f 3a  46 44 32 5f 28 72 5f 29  |_)=FD1_:FD2_(r_)|
0000e660  3d 46 44 32 5f 3a 46 55  31 5f 28 72 5f 29 3d 46  |=FD2_:FU1_(r_)=F|
0000e670  55 31 5f 3a 46 55 32 5f  28 72 5f 29 3d 46 55 32  |U1_:FU2_(r_)=FU2|
0000e680  5f 3a 57 68 6f 6c 65 5f  28 72 5f 2c 30 29 3d 57  |_:Whole_(r_,0)=W|
0000e690  68 6f 6c 65 41 5f 3a 57  68 6f 6c 65 5f 28 72 5f  |holeA_:Whole_(r_|
0000e6a0  2c 31 29 3d 57 68 6f 6c  65 42 5f 3a e1 0d 52 58  |,1)=WholeB_:..RX|
0000e6b0  19 dd f2 66 72 61 6b 57  74 61 6b 65 3a e7 71 75  |...frakWtake:.qu|
0000e6c0  69 74 5f 3d b9 e1 0d 52  62 73 f5 3a 67 6f 6f 64  |it_=...Rbs.:good|
0000e6d0  73 75 62 5f 3d b9 3a f5  3a 57 68 6f 6c 65 41 5f  |sub_=.:.:WholeA_|
0000e6e0  3d b3 28 39 29 3a 57 68  6f 6c 65 42 5f 3d b3 28  |=.(9):WholeB_=.(|
0000e6f0  39 29 3a fd 57 68 6f 6c  65 41 5f 3e 57 68 6f 6c  |9):.WholeA_>Whol|
0000e700  65 42 5f 3a e7 67 6f 74  5f 25 3d 31 20 46 44 31  |eB_:.got_%=1 FD1|
0000e710  5f 3d 67 63 5f 25 28 31  29 8b 72 61 6e 5f 25 3d  |_=gc_%(1).ran_%=|
0000e720  b3 28 67 6f 74 5f 25 29  3a 46 44 31 5f 3d 67 63  |.(got_%):FD1_=gc|
0000e730  5f 25 28 72 61 6e 5f 25  29 0d 52 8a 19 e7 57 73  |_%(ran_%).R...Ws|
0000e740  75 62 64 6f 6d 73 5f 3d  b9 46 44 32 5f 3d 46 44  |ubdoms_=.FD2_=FD|
0000e750  31 5f 0d 52 94 11 e7 57  73 75 62 64 6f 6d 73 5f  |1_.R...Wsubdoms_|
0000e760  3d a3 8c 0d 52 a8 39 e7  67 6f 74 5f 25 3d 31 20  |=...R.9.got_%=1 |
0000e770  46 44 32 5f 3d 67 63 5f  25 28 31 29 8b 72 61 6e  |FD2_=gc_%(1).ran|
0000e780  5f 25 3d b3 28 67 6f 74  5f 25 29 3a 46 44 32 5f  |_%=.(got_%):FD2_|
0000e790  3d 67 63 5f 25 28 72 61  6e 5f 25 29 0d 52 b2 52  |=gc_%(ran_%).R.R|
0000e7a0  cd 3a f5 3a 66 6c 75 67  5f 3d 30 3a f5 3a 46 55  |.:.:flug_=0:.:FU|
0000e7b0  31 5f 3d b3 28 46 44 31  5f 29 3a fd 46 55 31 5f  |1_=.(FD1_):.FU1_|
0000e7c0  3c 46 44 31 5f 3a e3 72  74 5f 3d 32 b8 31 30 3a  |<FD1_:.rt_=2.10:|
0000e7d0  e7 46 55 31 5f 83 72 74  5f 3d 30 80 46 44 31 5f  |.FU1_.rt_=0.FD1_|
0000e7e0  83 72 74 5f 3d 30 20 66  6c 75 67 5f 3d 31 0d 52  |.rt_=0 flug_=1.R|
0000e7f0  e4 5b ed 3a fd 66 6c 75  67 5f 3d 30 3a f5 3a 66  |.[.:.flug_=0:.:f|
0000e800  6c 75 67 5f 3d 30 3a f5  3a 46 55 32 5f 3d b3 28  |lug_=0:.:FU2_=.(|
0000e810  46 44 32 5f 29 3a fd 46  55 32 5f 3c 46 44 32 5f  |FD2_):.FU2_<FD2_|
0000e820  3a e3 72 74 5f 3d 32 b8  31 30 3a e7 46 55 32 5f  |:.rt_=2.10:.FU2_|
0000e830  83 72 74 5f 3d 30 80 46  44 32 5f 83 72 74 5f 3d  |.rt_=0.FD2_.rt_=|
0000e840  30 20 66 6c 75 67 5f 3d  31 0d 53 16 3f ed 3a fd  |0 flug_=1.S.?.:.|
0000e850  66 6c 75 67 5f 3d 30 3a  e7 57 53 54 61 6b 65 63  |flug_=0:.WSTakec|
0000e860  61 72 5f 28 31 29 3d b9  80 46 55 31 5f 2f 46 44  |ar_(1)=..FU1_/FD|
0000e870  31 5f 3e 3d 46 55 32 5f  2f 46 44 32 5f 20 67 6f  |1_>=FU2_/FD2_ go|
0000e880  6f 64 73 75 62 5f 3d a3  0d 53 34 33 e7 57 53 54  |odsub_=..S43.WST|
0000e890  61 6b 65 63 61 72 5f 28  32 29 3d b9 80 46 55 31  |akecar_(2)=..FU1|
0000e8a0  5f 2f 46 44 31 5f 3c 46  55 32 5f 2f 46 44 32 5f  |_/FD1_<FU2_/FD2_|
0000e8b0  20 67 6f 6f 64 73 75 62  5f 3d a3 0d 53 48 16 e7  | goodsub_=..SH..|
0000e8c0  72 5f 3e 31 80 57 53 75  62 52 65 70 73 5f 3d b9  |r_>1.WSubReps_=.|
0000e8d0  8c 0d 53 5c 9c e3 72 74  74 5f 3d 31 b8 72 5f 2d  |..S\..rtt_=1.r_-|
0000e8e0  31 3a e7 46 72 61 63 73  69 67 6e 5f 24 28 72 5f  |1:.Fracsign_$(r_|
0000e8f0  29 3d 22 2d 22 80 46 44  31 5f 3d 46 44 31 5f 28  |)="-".FD1_=FD1_(|
0000e900  72 74 74 5f 29 80 46 44  32 5f 3d 46 44 32 5f 28  |rtt_).FD2_=FD2_(|
0000e910  72 74 74 5f 29 80 46 55  31 5f 3d 46 55 31 5f 28  |rtt_).FU1_=FU1_(|
0000e920  72 74 74 5f 29 80 46 55  32 5f 3d 46 55 32 5f 28  |rtt_).FU2_=FU2_(|
0000e930  72 74 74 5f 29 80 57 68  6f 6c 65 41 5f 3d 57 68  |rtt_).WholeA_=Wh|
0000e940  6f 6c 65 5f 28 72 74 74  5f 2c 30 29 80 57 68 6f  |ole_(rtt_,0).Who|
0000e950  6c 65 42 5f 3d 57 68 6f  6c 65 5f 28 72 74 74 5f  |leB_=Whole_(rtt_|
0000e960  2c 31 29 67 6f 6f 64 73  75 62 5f 3d a3 0d 53 66  |,1)goodsub_=..Sf|
0000e970  05 ed 0d 53 70 36 cd 3a  e7 91 3e 35 30 30 20 71  |...Sp6.:..>500 q|
0000e980  75 69 74 5f 3d b9 3a c8  99 22 48 6f 75 72 67 6c  |uit_=.:.."Hourgl|
0000e990  61 73 73 5f 4f 66 66 22  3a ef 37 3a 6c 61 73 74  |ass_Off":.7:last|
0000e9a0  5f 3d 72 5f 2d 31 3a e1  0d 53 84 86 fd 67 6f 6f  |_=r_-1:..S...goo|
0000e9b0  64 73 75 62 5f 3d b9 3a  46 72 61 63 73 69 67 6e  |dsub_=.:Fracsign|
0000e9c0  5f 24 28 72 5f 29 3d 22  2d 22 3a 46 44 31 5f 28  |_$(r_)="-":FD1_(|
0000e9d0  72 5f 29 3d 46 44 31 5f  3a 46 44 32 5f 28 72 5f  |r_)=FD1_:FD2_(r_|
0000e9e0  29 3d 46 44 32 5f 3a 46  55 31 5f 28 72 5f 29 3d  |)=FD2_:FU1_(r_)=|
0000e9f0  46 55 31 5f 3a 46 55 32  5f 28 72 5f 29 3d 46 55  |FU1_:FU2_(r_)=FU|
0000ea00  32 5f 3a 57 68 6f 6c 65  5f 28 72 5f 2c 30 29 3d  |2_:Whole_(r_,0)=|
0000ea10  57 68 6f 6c 65 41 5f 3a  57 68 6f 6c 65 5f 28 72  |WholeA_:Whole_(r|
0000ea20  5f 2c 31 29 3d 57 68 6f  6c 65 42 5f 3a e1 0d 53  |_,1)=WholeB_:..S|
0000ea30  c0 6d dd a4 65 73 63 28  6f 75 74 5f 24 29 3a 71  |.m..esc(out_$):q|
0000ea40  75 69 74 5f 3d a3 3a 3d  71 75 69 74 5f 3a 65 73  |uit_=.:=quit_:es|
0000ea50  63 5f 24 3d 22 45 73 63  61 70 65 20 22 2b 6f 75  |c_$="Escape "+ou|
0000ea60  74 5f 24 3a 69 6e 5f 3d  a6 2e 30 30 31 3a e7 69  |t_$:in_=..001:.i|
0000ea70  6e 5f 3d 32 37 f2 6d 6f  61 6e 28 65 73 63 5f 24  |n_=27.moan(esc_$|
0000ea80  29 3a 71 75 69 74 5f 3d  b9 3a c8 99 22 48 6f 75  |):quit_=.:.."Hou|
0000ea90  72 67 6c 61 73 73 5f 4f  66 66 22 0d 53 de 0a 3d  |rglass_Off".S..=|
0000eaa0  71 75 69 74 5f 0d 53 f2  75 dd f2 63 61 6c 63 57  |quit_.S.u..calcW|
0000eab0  66 72 61 63 73 3a c8 99  22 48 6f 75 72 67 6c 61  |fracs:.."Hourgla|
0000eac0  73 73 5f 4f 6e 22 3a e3  72 5f 3d 31 b8 31 32 3a  |ss_On":.r_=1.12:|
0000ead0  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 50 65 72  |.."Hourglass_Per|
0000eae0  63 65 6e 74 61 67 65 22  2c 72 5f 2f 31 32 2a 31  |centage",r_/12*1|
0000eaf0  30 30 3a e7 46 72 61 63  73 69 67 6e 5f 24 28 72  |00:.Fracsign_$(r|
0000eb00  5f 29 3d 22 2b 22 f2 66  72 61 63 57 61 64 64 8b  |_)="+".fracWadd.|
0000eb10  f2 66 72 61 6b 57 74 61  6b 65 0d 54 10 11 e7 71  |.frakWtake.T...q|
0000eb20  75 69 74 5f 3d b9 72 5f  3d 31 32 0d 54 1a 69 ed  |uit_=.r_=12.T.i.|
0000eb30  3a e3 72 5f 3d 31 b8 6c  61 73 74 5f 3a 61 5f 3d  |:.r_=1.last_:a_=|
0000eb40  46 55 31 5f 28 72 5f 29  3a 62 5f 3d 46 44 31 5f  |FU1_(r_):b_=FD1_|
0000eb50  28 72 5f 29 3a 63 5f 3d  46 55 32 5f 28 72 5f 29  |(r_):c_=FU2_(r_)|
0000eb60  3a 64 5f 3d 46 44 32 5f  28 72 5f 29 3a e7 46 72  |:d_=FD2_(r_):.Fr|
0000eb70  61 63 73 69 67 6e 5f 24  28 72 5f 29 3d 22 2b 22  |acsign_$(r_)="+"|
0000eb80  f2 61 64 64 66 72 61 63  73 8b f2 74 61 6b 65 66  |.addfracs..takef|
0000eb90  72 61 63 73 0d 54 56 19  ed 3a c8 99 22 48 6f 75  |racs.TV..:.."Hou|
0000eba0  72 67 6c 61 73 73 5f 4f  66 66 22 3a e1 0d 54 74  |rglass_Off":..Tt|
0000ebb0  16 dd f2 61 64 64 66 72  61 63 73 3a e7 62 5f 3d  |...addfracs:.b_=|
0000ebc0  64 5f 8c 0d 54 88 12 66  5f 3d 62 5f 3a 65 5f 3d  |d_..T..f_=b_:e_=|
0000ebd0  61 5f 2b 63 5f 0d 54 92  40 cc 3a 78 5f 3d 30 3a  |a_+c_.T.@.:x_=0:|
0000ebe0  f5 3a 78 5f 3d 78 5f 2b  31 3a fd 78 5f 83 62 5f  |.:x_=x_+1:.x_.b_|
0000ebf0  3d 30 80 78 5f 83 64 5f  3d 30 3a 66 5f 3d 78 5f  |=0.x_.d_=0:f_=x_|
0000ec00  3a 65 5f 3d 66 5f 2f 62  5f 2a 61 5f 2b 66 5f 2f  |:e_=f_/b_*a_+f_/|
0000ec10  64 5f 2a 63 5f 0d 54 ba  36 cd 3a 77 68 6f 6c 65  |d_*c_.T.6.:whole|
0000ec20  5f 3d 30 3a e7 65 5f 3e  3d 66 5f 80 65 5f 3e 30  |_=0:.e_>=f_.e_>0|
0000ec30  80 66 5f 3e 30 20 77 68  6f 6c 65 5f 3d 65 5f 81  |.f_>0 whole_=e_.|
0000ec40  66 5f 3a 65 5f 3d 65 5f  83 66 5f 0d 54 d8 59 57  |f_:e_=e_.f_.T.YW|
0000ec50  68 6f 6c 65 5f 28 72 5f  2c 32 29 3d 57 68 6f 6c  |hole_(r_,2)=Whol|
0000ec60  65 5f 28 72 5f 2c 30 29  2b 57 68 6f 6c 65 5f 28  |e_(r_,0)+Whole_(|
0000ec70  72 5f 2c 31 29 3a 57 68  6f 6c 65 5f 28 72 5f 2c  |r_,1):Whole_(r_,|
0000ec80  32 29 3d 57 68 6f 6c 65  5f 28 72 5f 2c 32 29 2b  |2)=Whole_(r_,2)+|
0000ec90  77 68 6f 6c 65 5f 3a e7  65 5f 3c 3e 30 f2 72 65  |whole_:.e_<>0.re|
0000eca0  64 75 63 65 0d 54 f6 1d  46 55 33 5f 28 72 5f 29  |duce.T..FU3_(r_)|
0000ecb0  3d 65 5f 3a 46 44 33 5f  28 72 5f 29 3d 66 5f 3a  |=e_:FD3_(r_)=f_:|
0000ecc0  e1 0d 55 14 1d dd f2 74  61 6b 65 66 72 61 63 73  |..U....takefracs|
0000ecd0  3a e7 61 5f 2f 62 5f 3c  63 5f 2f 64 5f 8c 0d 55  |:.a_/b_<c_/d_..U|
0000ece0  28 0b e7 62 5f 3d 64 5f  8c 0d 55 32 15 66 5f 3d  |(..b_=d_..U2.f_=|
0000ecf0  62 5f 3a 65 5f 3d 61 5f  2d 63 5f 2b 62 5f 0d 55  |b_:e_=a_-c_+b_.U|
0000ed00  3c 43 cc 3a 78 5f 3d 30  3a f5 3a 78 5f 3d 78 5f  |<C.:x_=0:.:x_=x_|
0000ed10  2b 31 3a fd 78 5f 83 62  5f 3d 30 80 78 5f 83 64  |+1:.x_.b_=0.x_.d|
0000ed20  5f 3d 30 3a 66 5f 3d 78  5f 3a 65 5f 3d 66 5f 2f  |_=0:f_=x_:e_=f_/|
0000ed30  62 5f 2a 61 5f 2d 66 5f  2f 64 5f 2a 63 5f 2b 66  |b_*a_-f_/d_*c_+f|
0000ed40  5f 0d 55 64 05 cd 0d 55  6e 14 cd 3a e7 61 5f 2f  |_.Ud...Un..:.a_/|
0000ed50  62 5f 3e 3d 63 5f 2f 64  5f 8c 0d 55 8c 0b e7 62  |b_>=c_/d_..U...b|
0000ed60  5f 3d 64 5f 8c 0d 55 96  12 66 5f 3d 62 5f 3a 65  |_=d_..U..f_=b_:e|
0000ed70  5f 3d 61 5f 2d 63 5f 0d  55 a0 40 cc 3a 78 5f 3d  |_=a_-c_.U.@.:x_=|
0000ed80  30 3a f5 3a 78 5f 3d 78  5f 2b 31 3a fd 78 5f 83  |0:.:x_=x_+1:.x_.|
0000ed90  62 5f 3d 30 80 78 5f 83  64 5f 3d 30 3a 66 5f 3d  |b_=0.x_.d_=0:f_=|
0000eda0  78 5f 3a 65 5f 3d 66 5f  2f 62 5f 2a 61 5f 2d 66  |x_:e_=f_/b_*a_-f|
0000edb0  5f 2f 64 5f 2a 63 5f 0d  55 c8 05 cd 0d 55 d2 3a  |_/d_*c_.U....U.:|
0000edc0  cd 3a 57 68 6f 6c 65 5f  28 72 5f 2c 32 29 3d 57  |.:Whole_(r_,2)=W|
0000edd0  68 6f 6c 65 5f 28 72 5f  2c 30 29 2d 57 68 6f 6c  |hole_(r_,0)-Whol|
0000ede0  65 5f 28 72 5f 2c 31 29  3a e7 65 5f 3c 3e 30 f2  |e_(r_,1):.e_<>0.|
0000edf0  72 65 64 75 63 65 0d 55  f0 44 46 55 33 5f 28 72  |reduce.U.DFU3_(r|
0000ee00  5f 29 3d 65 5f 3a 46 44  33 5f 28 72 5f 29 3d 66  |_)=e_:FD3_(r_)=f|
0000ee10  5f 3a e7 61 5f 2f 62 5f  3c 63 5f 2f 64 5f 8c 57  |_:.a_/b_<c_/d_.W|
0000ee20  68 6f 6c 65 5f 28 72 5f  2c 32 29 3d 57 68 6f 6c  |hole_(r_,2)=Whol|
0000ee30  65 5f 28 72 5f 2c 32 29  2d 31 0d 56 04 05 e1 0d  |e_(r_,2)-1.V....|
0000ee40  56 40 3f dd f2 46 72 4d  44 3a 46 72 4d 44 5f 25  |V@?..FrMD:FrMD_%|
0000ee50  3d a4 66 57 53 28 22 46  72 4d 44 22 29 3a e7 46  |=.fWS("FrMD"):.F|
0000ee60  72 61 63 6d 75 6c 74 5f  f2 73 49 28 46 72 4d 44  |racmult_.sI(FrMD|
0000ee70  5f 25 2c 22 46 72 61 63  6d 75 6c 74 22 29 0d 56  |_%,"Fracmult").V|
0000ee80  54 22 e7 46 72 61 63 64  69 76 5f f2 73 49 28 46  |T".Fracdiv_.sI(F|
0000ee90  72 4d 44 5f 25 2c 22 46  72 61 63 64 69 76 22 29  |rMD_%,"Fracdiv")|
0000eea0  0d 56 5e 20 e7 46 72 74  64 6f 6d 5f f2 73 49 28  |.V^ .Frtdom_.sI(|
0000eeb0  46 72 4d 44 5f 25 2c 22  46 72 74 64 6f 6d 22 29  |FrMD_%,"Frtdom")|
0000eec0  0d 56 68 20 e7 46 72 74  72 65 70 5f f2 73 49 28  |.Vh .Frtrep_.sI(|
0000eed0  46 72 4d 44 5f 25 2c 22  46 72 74 72 65 70 22 29  |FrMD_%,"Frtrep")|
0000eee0  0d 56 72 20 e7 46 72 64  64 6f 6d 5f f2 73 49 28  |.Vr .Frddom_.sI(|
0000eef0  46 72 4d 44 5f 25 2c 22  46 72 64 64 6f 6d 22 29  |FrMD_%,"Frddom")|
0000ef00  0d 56 7c 20 e7 46 72 64  72 65 70 5f f2 73 49 28  |.V| .Frdrep_.sI(|
0000ef10  46 72 4d 44 5f 25 2c 22  46 72 64 72 65 70 22 29  |FrMD_%,"Frdrep")|
0000ef20  0d 56 86 1c e7 6d 66 5f  28 31 29 f2 73 49 28 46  |.V...mf_(1).sI(F|
0000ef30  72 4d 44 5f 25 2c 22 4d  46 31 22 29 0d 56 90 1c  |rMD_%,"MF1").V..|
0000ef40  e7 6d 66 5f 28 32 29 f2  73 49 28 46 72 4d 44 5f  |.mf_(2).sI(FrMD_|
0000ef50  25 2c 22 4d 46 32 22 29  0d 56 9a 1c e7 6d 66 5f  |%,"MF2").V...mf_|
0000ef60  28 33 29 f2 73 49 28 46  72 4d 44 5f 25 2c 22 4d  |(3).sI(FrMD_%,"M|
0000ef70  46 33 22 29 0d 56 a4 1c  e7 6d 66 5f 28 34 29 f2  |F3").V...mf_(4).|
0000ef80  73 49 28 46 72 4d 44 5f  25 2c 22 4d 46 34 22 29  |sI(FrMD_%,"MF4")|
0000ef90  0d 56 ae 1c e7 6d 66 5f  28 35 29 f2 73 49 28 46  |.V...mf_(5).sI(F|
0000efa0  72 4d 44 5f 25 2c 22 4d  46 35 22 29 0d 56 b8 1c  |rMD_%,"MF5").V..|
0000efb0  e7 6d 66 5f 28 36 29 f2  73 49 28 46 72 4d 44 5f  |.mf_(6).sI(FrMD_|
0000efc0  25 2c 22 4d 46 36 22 29  0d 56 c2 1c e7 6d 66 5f  |%,"MF6").V...mf_|
0000efd0  28 37 29 f2 73 49 28 46  72 4d 44 5f 25 2c 22 4d  |(7).sI(FrMD_%,"M|
0000efe0  46 37 22 29 0d 56 cc 1c  e7 6d 66 5f 28 38 29 f2  |F7").V...mf_(8).|
0000eff0  73 49 28 46 72 4d 44 5f  25 2c 22 4d 46 38 22 29  |sI(FrMD_%,"MF8")|
0000f000  0d 56 d6 1c e7 6d 66 5f  28 39 29 f2 73 49 28 46  |.V...mf_(9).sI(F|
0000f010  72 4d 44 5f 25 2c 22 4d  46 39 22 29 0d 56 e0 1e  |rMD_%,"MF9").V..|
0000f020  e7 6d 66 5f 28 31 30 29  f2 73 49 28 46 72 4d 44  |.mf_(10).sI(FrMD|
0000f030  5f 25 2c 22 4d 46 31 30  22 29 0d 56 ea 1e e7 6d  |_%,"MF10").V...m|
0000f040  66 5f 28 31 31 29 f2 73  49 28 46 72 4d 44 5f 25  |f_(11).sI(FrMD_%|
0000f050  2c 22 4d 46 31 31 22 29  0d 56 f4 1e e7 6d 66 5f  |,"MF11").V...mf_|
0000f060  28 31 32 29 f2 73 49 28  46 72 4d 44 5f 25 2c 22  |(12).sI(FrMD_%,"|
0000f070  4d 46 31 32 22 29 0d 56  fe 24 e7 46 72 6d 77 68  |MF12").V.$.Frmwh|
0000f080  6f 6c 65 5f f2 73 49 28  46 72 4d 44 5f 25 2c 22  |ole_.sI(FrMD_%,"|
0000f090  46 72 6d 77 68 6f 6c 65  22 29 0d 57 08 24 e7 46  |Frmwhole").W.$.F|
0000f0a0  72 64 77 68 6f 6c 65 5f  f2 73 49 28 46 72 4d 44  |rdwhole_.sI(FrMD|
0000f0b0  5f 25 2c 22 46 72 64 77  68 6f 6c 65 22 29 0d 57  |_%,"Frdwhole").W|
0000f0c0  12 05 e1 0d 57 3a 27 dd  a4 6d 66 5f 3a 63 5f 3d  |....W:'..mf_:c_=|
0000f0d0  30 3a e3 68 5f 3d 31 b8  31 32 3a e7 6d 66 5f 28  |0:.h_=1.12:.mf_(|
0000f0e0  68 5f 29 63 5f 3d 63 5f  2b 31 0d 57 44 09 ed 3a  |h_)c_=c_+1.WD..:|
0000f0f0  3d 63 5f 0d 57 4e 37 dd  a4 4d 46 31 5f 3a e7 6d  |=c_.WN7..MF1_:.m|
0000f100  66 5f 28 31 29 80 a4 6d  66 5f 3d 31 20 6d 66 5f  |f_(1)..mf_=1 mf_|
0000f110  28 31 29 3d b9 3a f2 73  49 28 46 72 4d 44 5f 25  |(1)=.:.sI(FrMD_%|
0000f120  2c 22 4d 46 31 22 29 3a  3d a3 0d 57 58 1e e7 6d  |,"MF1"):=..WX..m|
0000f130  66 5f 28 31 29 3d b9 6d  66 5f 28 31 29 3d a3 8b  |f_(1)=.mf_(1)=..|
0000f140  6d 66 5f 28 31 29 3d b9  0d 57 62 06 3d b9 0d 57  |mf_(1)=..Wb.=..W|
0000f150  6c 37 dd a4 4d 46 32 5f  3a e7 6d 66 5f 28 32 29  |l7..MF2_:.mf_(2)|
0000f160  80 a4 6d 66 5f 3d 31 20  6d 66 5f 28 32 29 3d b9  |..mf_=1 mf_(2)=.|
0000f170  3a f2 73 49 28 46 72 4d  44 5f 25 2c 22 4d 46 32  |:.sI(FrMD_%,"MF2|
0000f180  22 29 3a 3d a3 0d 57 76  1e e7 6d 66 5f 28 32 29  |"):=..Wv..mf_(2)|
0000f190  3d b9 6d 66 5f 28 32 29  3d a3 8b 6d 66 5f 28 32  |=.mf_(2)=..mf_(2|
0000f1a0  29 3d b9 0d 57 80 06 3d  b9 0d 57 8a 37 dd a4 4d  |)=..W..=..W.7..M|
0000f1b0  46 33 5f 3a e7 6d 66 5f  28 33 29 80 a4 6d 66 5f  |F3_:.mf_(3)..mf_|
0000f1c0  3d 31 20 6d 66 5f 28 33  29 3d b9 3a f2 73 49 28  |=1 mf_(3)=.:.sI(|
0000f1d0  46 72 4d 44 5f 25 2c 22  4d 46 33 22 29 3a 3d a3  |FrMD_%,"MF3"):=.|
0000f1e0  0d 57 94 1e e7 6d 66 5f  28 33 29 3d b9 6d 66 5f  |.W...mf_(3)=.mf_|
0000f1f0  28 33 29 3d a3 8b 6d 66  5f 28 33 29 3d b9 0d 57  |(3)=..mf_(3)=..W|
0000f200  9e 06 3d b9 0d 57 a8 37  dd a4 4d 46 34 5f 3a e7  |..=..W.7..MF4_:.|
0000f210  6d 66 5f 28 34 29 80 a4  6d 66 5f 3d 31 20 6d 66  |mf_(4)..mf_=1 mf|
0000f220  5f 28 34 29 3d b9 3a f2  73 49 28 46 72 4d 44 5f  |_(4)=.:.sI(FrMD_|
0000f230  25 2c 22 4d 46 34 22 29  3a 3d a3 0d 57 b2 1e e7  |%,"MF4"):=..W...|
0000f240  6d 66 5f 28 34 29 3d b9  6d 66 5f 28 34 29 3d a3  |mf_(4)=.mf_(4)=.|
0000f250  8b 6d 66 5f 28 34 29 3d  b9 0d 57 bc 06 3d b9 0d  |.mf_(4)=..W..=..|
0000f260  57 c6 37 dd a4 4d 46 35  5f 3a e7 6d 66 5f 28 35  |W.7..MF5_:.mf_(5|
0000f270  29 80 a4 6d 66 5f 3d 31  20 6d 66 5f 28 35 29 3d  |)..mf_=1 mf_(5)=|
0000f280  b9 3a f2 73 49 28 46 72  4d 44 5f 25 2c 22 4d 46  |.:.sI(FrMD_%,"MF|
0000f290  35 22 29 3a 3d a3 0d 57  d0 1e e7 6d 66 5f 28 35  |5"):=..W...mf_(5|
0000f2a0  29 3d b9 6d 66 5f 28 35  29 3d a3 8b 6d 66 5f 28  |)=.mf_(5)=..mf_(|
0000f2b0  35 29 3d b9 0d 57 da 06  3d b9 0d 57 e4 37 dd a4  |5)=..W..=..W.7..|
0000f2c0  4d 46 36 5f 3a e7 6d 66  5f 28 36 29 80 a4 6d 66  |MF6_:.mf_(6)..mf|
0000f2d0  5f 3d 31 20 6d 66 5f 28  36 29 3d b9 3a f2 73 49  |_=1 mf_(6)=.:.sI|
0000f2e0  28 46 72 4d 44 5f 25 2c  22 4d 46 36 22 29 3a 3d  |(FrMD_%,"MF6"):=|
0000f2f0  a3 0d 57 ee 1e e7 6d 66  5f 28 36 29 3d b9 6d 66  |..W...mf_(6)=.mf|
0000f300  5f 28 36 29 3d a3 8b 6d  66 5f 28 36 29 3d b9 0d  |_(6)=..mf_(6)=..|
0000f310  57 f8 06 3d b9 0d 58 02  37 dd a4 4d 46 37 5f 3a  |W..=..X.7..MF7_:|
0000f320  e7 6d 66 5f 28 37 29 80  a4 6d 66 5f 3d 31 20 6d  |.mf_(7)..mf_=1 m|
0000f330  66 5f 28 37 29 3d b9 3a  f2 73 49 28 46 72 4d 44  |f_(7)=.:.sI(FrMD|
0000f340  5f 25 2c 22 4d 46 37 22  29 3a 3d a3 0d 58 0c 1e  |_%,"MF7"):=..X..|
0000f350  e7 6d 66 5f 28 37 29 3d  b9 6d 66 5f 28 37 29 3d  |.mf_(7)=.mf_(7)=|
0000f360  a3 8b 6d 66 5f 28 37 29  3d b9 0d 58 16 06 3d b9  |..mf_(7)=..X..=.|
0000f370  0d 58 20 37 dd a4 4d 46  38 5f 3a e7 6d 66 5f 28  |.X 7..MF8_:.mf_(|
0000f380  38 29 80 a4 6d 66 5f 3d  31 20 6d 66 5f 28 38 29  |8)..mf_=1 mf_(8)|
0000f390  3d b9 3a f2 73 49 28 46  72 4d 44 5f 25 2c 22 4d  |=.:.sI(FrMD_%,"M|
0000f3a0  46 38 22 29 3a 3d a3 0d  58 2a 1e e7 6d 66 5f 28  |F8"):=..X*..mf_(|
0000f3b0  38 29 3d b9 6d 66 5f 28  38 29 3d a3 8b 6d 66 5f  |8)=.mf_(8)=..mf_|
0000f3c0  28 38 29 3d b9 0d 58 34  06 3d b9 0d 58 3e 37 dd  |(8)=..X4.=..X>7.|
0000f3d0  a4 4d 46 39 5f 3a e7 6d  66 5f 28 39 29 80 a4 6d  |.MF9_:.mf_(9)..m|
0000f3e0  66 5f 3d 31 20 6d 66 5f  28 39 29 3d b9 3a f2 73  |f_=1 mf_(9)=.:.s|
0000f3f0  49 28 46 72 4d 44 5f 25  2c 22 4d 46 39 22 29 3a  |I(FrMD_%,"MF9"):|
0000f400  3d a3 0d 58 48 1e e7 6d  66 5f 28 39 29 3d b9 6d  |=..XH..mf_(9)=.m|
0000f410  66 5f 28 39 29 3d a3 8b  6d 66 5f 28 39 29 3d b9  |f_(9)=..mf_(9)=.|
0000f420  0d 58 52 06 3d b9 0d 58  5c 3b dd a4 4d 46 31 30  |.XR.=..X\;..MF10|
0000f430  5f 3a e7 6d 66 5f 28 31  30 29 80 a4 6d 66 5f 3d  |_:.mf_(10)..mf_=|
0000f440  31 20 6d 66 5f 28 31 30  29 3d b9 3a f2 73 49 28  |1 mf_(10)=.:.sI(|
0000f450  46 72 4d 44 5f 25 2c 22  4d 46 31 30 22 29 3a 3d  |FrMD_%,"MF10"):=|
0000f460  a3 0d 58 66 21 e7 6d 66  5f 28 31 30 29 3d b9 6d  |..Xf!.mf_(10)=.m|
0000f470  66 5f 28 31 30 29 3d a3  8b 6d 66 5f 28 31 30 29  |f_(10)=..mf_(10)|
0000f480  3d b9 0d 58 70 06 3d b9  0d 58 7a 3b dd a4 4d 46  |=..Xp.=..Xz;..MF|
0000f490  31 31 5f 3a e7 6d 66 5f  28 31 31 29 80 a4 6d 66  |11_:.mf_(11)..mf|
0000f4a0  5f 3d 31 20 6d 66 5f 28  31 31 29 3d b9 3a f2 73  |_=1 mf_(11)=.:.s|
0000f4b0  49 28 46 72 4d 44 5f 25  2c 22 4d 46 31 31 22 29  |I(FrMD_%,"MF11")|
0000f4c0  3a 3d a3 0d 58 84 21 e7  6d 66 5f 28 31 31 29 3d  |:=..X.!.mf_(11)=|
0000f4d0  b9 6d 66 5f 28 31 31 29  3d a3 8b 6d 66 5f 28 31  |.mf_(11)=..mf_(1|
0000f4e0  31 29 3d b9 0d 58 8e 06  3d b9 0d 58 98 3b dd a4  |1)=..X..=..X.;..|
0000f4f0  4d 46 31 32 5f 3a e7 6d  66 5f 28 31 32 29 80 a4  |MF12_:.mf_(12)..|
0000f500  6d 66 5f 3d 31 20 6d 66  5f 28 31 32 29 3d b9 3a  |mf_=1 mf_(12)=.:|
0000f510  f2 73 49 28 46 72 4d 44  5f 25 2c 22 4d 46 31 32  |.sI(FrMD_%,"MF12|
0000f520  22 29 3a 3d a3 0d 58 a2  21 e7 6d 66 5f 28 31 32  |"):=..X.!.mf_(12|
0000f530  29 3d b9 6d 66 5f 28 31  32 29 3d a3 8b 6d 66 5f  |)=.mf_(12)=..mf_|
0000f540  28 31 32 29 3d b9 0d 58  ac 06 3d b9 0d 58 b6 40  |(12)=..X..=..X.@|
0000f550  dd a4 46 72 61 63 6d 75  6c 74 5f 3a e7 46 72 61  |..Fracmult_:.Fra|
0000f560  63 64 69 76 5f 3d a3 46  72 61 63 6d 75 6c 74 5f  |cdiv_=.Fracmult_|
0000f570  3d b9 3a f2 73 49 28 46  72 4d 44 5f 25 2c 22 46  |=.:.sI(FrMD_%,"F|
0000f580  72 61 63 6d 75 6c 74 22  29 3a 3d a3 0d 58 c0 11  |racmult"):=..X..|
0000f590  e7 46 72 61 63 6d 75 6c  74 5f 3d b9 8c 0d 58 ca  |.Fracmult_=...X.|
0000f5a0  8b 46 72 61 63 6d 75 6c  74 5f 3d a3 3a f2 75 73  |.Fracmult_=.:.us|
0000f5b0  49 28 46 72 4d 44 5f 25  2c 22 46 72 61 63 6d 75  |I(FrMD_%,"Fracmu|
0000f5c0  6c 74 22 29 3a 46 72 74  64 6f 6d 5f 3d a3 3a f2  |lt"):Frtdom_=.:.|
0000f5d0  75 73 49 28 46 72 4d 44  5f 25 2c 22 46 72 74 64  |usI(FrMD_%,"Frtd|
0000f5e0  6f 6d 22 29 3a 46 72 74  72 65 70 5f 3d a3 3a f2  |om"):Frtrep_=.:.|
0000f5f0  75 73 49 28 46 72 4d 44  5f 25 2c 22 46 72 74 72  |usI(FrMD_%,"Frtr|
0000f600  65 70 22 29 3a 46 72 6d  77 68 6f 6c 65 5f 3d a3  |ep"):Frmwhole_=.|
0000f610  3a f2 75 73 49 28 46 72  4d 44 5f 25 2c 22 46 72  |:.usI(FrMD_%,"Fr|
0000f620  6d 77 68 6f 6c 65 22 29  0d 58 d4 27 cc 46 72 61  |mwhole").X.'.Fra|
0000f630  63 6d 75 6c 74 5f 3d b9  3a f2 73 49 28 46 72 4d  |cmult_=.:.sI(FrM|
0000f640  44 5f 25 2c 22 46 72 61  63 6d 75 6c 74 22 29 0d  |D_%,"Fracmult").|
0000f650  58 de 08 cd 3a 3d b9 0d  58 e8 3c dd a4 46 72 74  |X...:=..X.<..Frt|
0000f660  64 6f 6d 5f 3a e7 46 72  61 63 6d 75 6c 74 5f 3d  |dom_:.Fracmult_=|
0000f670  a3 46 72 74 64 6f 6d 5f  3d a3 3a f2 75 73 49 28  |.Frtdom_=.:.usI(|
0000f680  46 72 4d 44 5f 25 2c 22  46 72 74 64 6f 6d 22 29  |FrMD_%,"Frtdom")|
0000f690  3a 3d a3 0d 58 f2 4c e7  46 72 74 64 6f 6d 5f 3d  |:=..X.L.Frtdom_=|
0000f6a0  b9 46 72 74 64 6f 6d 5f  3d a3 3a f2 75 73 49 28  |.Frtdom_=.:.usI(|
0000f6b0  46 72 4d 44 5f 25 2c 22  46 72 74 64 6f 6d 22 29  |FrMD_%,"Frtdom")|
0000f6c0  8b 46 72 74 64 6f 6d 5f  3d b9 3a f2 73 49 28 46  |.Frtdom_=.:.sI(F|
0000f6d0  72 4d 44 5f 25 2c 22 46  72 74 64 6f 6d 22 29 0d  |rMD_%,"Frtdom").|
0000f6e0  58 fc 06 3d b9 0d 59 06  3c dd a4 46 72 74 72 65  |X..=..Y.<..Frtre|
0000f6f0  70 5f 3a e7 46 72 61 63  6d 75 6c 74 5f 3d a3 46  |p_:.Fracmult_=.F|
0000f700  72 74 72 65 70 5f 3d a3  3a f2 75 73 49 28 46 72  |rtrep_=.:.usI(Fr|
0000f710  4d 44 5f 25 2c 22 46 72  74 72 65 70 22 29 3a 3d  |MD_%,"Frtrep"):=|
0000f720  a3 0d 59 10 4c e7 46 72  74 72 65 70 5f 3d b9 46  |..Y.L.Frtrep_=.F|
0000f730  72 74 72 65 70 5f 3d a3  3a f2 75 73 49 28 46 72  |rtrep_=.:.usI(Fr|
0000f740  4d 44 5f 25 2c 22 46 72  74 72 65 70 22 29 8b 46  |MD_%,"Frtrep").F|
0000f750  72 74 72 65 70 5f 3d b9  3a f2 73 49 28 46 72 4d  |rtrep_=.:.sI(FrM|
0000f760  44 5f 25 2c 22 46 72 74  72 65 70 22 29 0d 59 1a  |D_%,"Frtrep").Y.|
0000f770  06 3d b9 0d 59 24 3e dd  a4 46 72 61 63 64 69 76  |.=..Y$>..Fracdiv|
0000f780  5f 3a e7 46 72 61 63 6d  75 6c 74 5f 3d a3 46 72  |_:.Fracmult_=.Fr|
0000f790  61 63 64 69 76 5f 3d b9  3a f2 73 49 28 46 72 4d  |acdiv_=.:.sI(FrM|
0000f7a0  44 5f 25 2c 22 46 72 61  63 64 69 76 22 29 3a 3d  |D_%,"Fracdiv"):=|
0000f7b0  a3 0d 59 2e 10 e7 46 72  61 63 64 69 76 5f 3d b9  |..Y...Fracdiv_=.|
0000f7c0  8c 0d 59 38 89 46 72 61  63 64 69 76 5f 3d a3 3a  |..Y8.Fracdiv_=.:|
0000f7d0  f2 75 73 49 28 46 72 4d  44 5f 25 2c 22 46 72 61  |.usI(FrMD_%,"Fra|
0000f7e0  63 64 69 76 22 29 3a 46  72 64 64 6f 6d 5f 3d a3  |cdiv"):Frddom_=.|
0000f7f0  3a f2 75 73 49 28 46 72  4d 44 5f 25 2c 22 46 72  |:.usI(FrMD_%,"Fr|
0000f800  64 64 6f 6d 22 29 3a 46  72 64 72 65 70 5f 3d a3  |ddom"):Frdrep_=.|
0000f810  3a f2 75 73 49 28 46 72  4d 44 5f 25 2c 22 46 72  |:.usI(FrMD_%,"Fr|
0000f820  64 72 65 70 22 29 3a 46  72 64 77 68 6f 6c 65 5f  |drep"):Frdwhole_|
0000f830  3d a3 3a f2 75 73 49 28  46 72 4d 44 5f 25 2c 22  |=.:.usI(FrMD_%,"|
0000f840  46 72 64 77 68 6f 6c 65  22 29 0d 59 42 25 cc 46  |Frdwhole").YB%.F|
0000f850  72 61 63 64 69 76 5f 3d  b9 3a f2 73 49 28 46 72  |racdiv_=.:.sI(Fr|
0000f860  4d 44 5f 25 2c 22 46 72  61 63 64 69 76 22 29 0d  |MD_%,"Fracdiv").|
0000f870  59 4c 08 cd 3a 3d b9 0d  59 56 3b dd a4 46 72 64  |YL..:=..YV;..Frd|
0000f880  64 6f 6d 5f 3a e7 46 72  61 63 64 69 76 5f 3d a3  |dom_:.Fracdiv_=.|
0000f890  46 72 64 64 6f 6d 5f 3d  a3 3a f2 75 73 49 28 46  |Frddom_=.:.usI(F|
0000f8a0  72 4d 44 5f 25 2c 22 46  72 64 64 6f 6d 22 29 3a  |rMD_%,"Frddom"):|
0000f8b0  3d a3 0d 59 60 4c e7 46  72 64 64 6f 6d 5f 3d b9  |=..Y`L.Frddom_=.|
0000f8c0  46 72 64 64 6f 6d 5f 3d  a3 3a f2 75 73 49 28 46  |Frddom_=.:.usI(F|
0000f8d0  72 4d 44 5f 25 2c 22 46  72 64 64 6f 6d 22 29 8b  |rMD_%,"Frddom").|
0000f8e0  46 72 64 64 6f 6d 5f 3d  b9 3a f2 73 49 28 46 72  |Frddom_=.:.sI(Fr|
0000f8f0  4d 44 5f 25 2c 22 46 72  64 64 6f 6d 22 29 0d 59  |MD_%,"Frddom").Y|
0000f900  6a 06 3d b9 0d 59 74 3b  dd a4 46 72 64 72 65 70  |j.=..Yt;..Frdrep|
0000f910  5f 3a e7 46 72 61 63 64  69 76 5f 3d a3 46 72 64  |_:.Fracdiv_=.Frd|
0000f920  72 65 70 5f 3d a3 3a f2  75 73 49 28 46 72 4d 44  |rep_=.:.usI(FrMD|
0000f930  5f 25 2c 22 46 72 64 72  65 70 22 29 3a 3d a3 0d  |_%,"Frdrep"):=..|
0000f940  59 7e 4c e7 46 72 64 72  65 70 5f 3d b9 46 72 64  |Y~L.Frdrep_=.Frd|
0000f950  72 65 70 5f 3d a3 3a f2  75 73 49 28 46 72 4d 44  |rep_=.:.usI(FrMD|
0000f960  5f 25 2c 22 46 72 64 72  65 70 22 29 8b 46 72 64  |_%,"Frdrep").Frd|
0000f970  72 65 70 5f 3d b9 3a f2  73 49 28 46 72 4d 44 5f  |rep_=.:.sI(FrMD_|
0000f980  25 2c 22 46 72 64 72 65  70 22 29 0d 59 88 06 3d  |%,"Frdrep").Y..=|
0000f990  b9 0d 59 92 42 dd a4 46  72 6d 77 68 6f 6c 65 5f  |..Y.B..Frmwhole_|
0000f9a0  3a e7 46 72 61 63 6d 75  6c 74 5f 3d a3 46 72 6d  |:.Fracmult_=.Frm|
0000f9b0  77 68 6f 6c 65 5f 3d a3  3a f2 75 73 49 28 46 72  |whole_=.:.usI(Fr|
0000f9c0  4d 44 5f 25 2c 22 46 72  6d 77 68 6f 6c 65 22 29  |MD_%,"Frmwhole")|
0000f9d0  3a 3d a3 0d 59 9c 56 e7  46 72 6d 77 68 6f 6c 65  |:=..Y.V.Frmwhole|
0000f9e0  5f 3d b9 46 72 6d 77 68  6f 6c 65 5f 3d a3 3a f2  |_=.Frmwhole_=.:.|
0000f9f0  75 73 49 28 46 72 4d 44  5f 25 2c 22 46 72 6d 77  |usI(FrMD_%,"Frmw|
0000fa00  68 6f 6c 65 22 29 8b 46  72 6d 77 68 6f 6c 65 5f  |hole").Frmwhole_|
0000fa10  3d b9 3a f2 73 49 28 46  72 4d 44 5f 25 2c 22 46  |=.:.sI(FrMD_%,"F|
0000fa20  72 6d 77 68 6f 6c 65 22  29 0d 59 a6 06 3d b9 0d  |rmwhole").Y..=..|
0000fa30  59 b0 41 dd a4 46 72 64  77 68 6f 6c 65 5f 3a e7  |Y.A..Frdwhole_:.|
0000fa40  46 72 61 63 64 69 76 5f  3d a3 46 72 64 77 68 6f  |Fracdiv_=.Frdwho|
0000fa50  6c 65 5f 3d a3 3a f2 75  73 49 28 46 72 4d 44 5f  |le_=.:.usI(FrMD_|
0000fa60  25 2c 22 46 72 64 77 68  6f 6c 65 22 29 3a 3d a3  |%,"Frdwhole"):=.|
0000fa70  0d 59 ba 57 e7 46 72 64  77 68 6f 6c 65 5f 3d b9  |.Y.W.Frdwhole_=.|
0000fa80  46 72 64 77 68 6f 6c 65  5f 3d a3 3a f2 75 73 49  |Frdwhole_=.:.usI|
0000fa90  28 46 72 4d 44 5f 25 2c  22 46 72 64 77 68 6f 6c  |(FrMD_%,"Frdwhol|
0000faa0  65 22 29 8b 46 72 64 77  68 6f 6c 65 5f 3d b9 3a  |e").Frdwhole_=.:|
0000fab0  f2 73 49 28 46 72 4d 44  5f 25 2c 22 46 72 6d 64  |.sI(FrMD_%,"Frmd|
0000fac0  77 68 6f 6c 65 22 29 0d  59 c4 06 3d b9 0d 59 ce  |whole").Y..=..Y.|
0000fad0  6c dd a4 46 72 4d 44 67  6f 5f 3a f2 47 65 74 54  |l..FrMDgo_:.GetT|
0000fae0  69 74 6c 65 73 3a 64 75  6d 6d 79 5f 3d b3 28 2d  |itles:dummy_=.(-|
0000faf0  91 29 3a 71 75 69 74 5f  3d a3 3a d1 3d 30 3a 6c  |.):quit_=.:.=0:l|
0000fb00  61 73 74 5f 3d 31 32 3a  71 75 69 74 5f 3d a3 3a  |ast_=12:quit_=.:|
0000fb10  73 74 61 72 74 5f 25 3d  a3 3a e3 72 5f 25 3d 31  |start_%=.:.r_%=1|
0000fb20  b8 31 32 3a e7 6d 66 5f  28 72 5f 25 29 3d b9 8c  |.12:.mf_(r_%)=..|
0000fb30  73 74 61 72 74 5f 25 3d  b9 0d 59 e2 6c ed 3a e7  |start_%=..Y.l.:.|
0000fb40  73 74 61 72 74 5f 25 3d  a3 8c 71 75 65 65 72 5f  |start_%=..queer_|
0000fb50  24 3d 22 43 68 6f 6f 73  65 20 61 20 64 65 6e 6f  |$="Choose a deno|
0000fb60  6d 69 6e 61 74 6f 72 22  3a 56 5f 24 3d a4 61 6c  |minator":V_$=.al|
0000fb70  65 72 74 28 71 75 65 65  72 5f 24 2c 22 22 2c 22  |ert(queer_$,"","|
0000fb80  4f 4b 22 2c 22 22 2c 22  22 2c 30 29 3a f2 75 73  |OK","","",0):.us|
0000fb90  49 28 46 72 4d 44 5f 25  2c 22 46 72 4d 44 67 6f  |I(FrMD_%,"FrMDgo|
0000fba0  22 29 3a 3d a3 0d 59 f6  88 e3 72 5f 3d 31 b8 31  |"):=..Y...r_=1.1|
0000fbb0  32 3a e3 72 72 5f 3d 30  b8 32 3a 57 68 6f 6c 65  |2:.rr_=0.2:Whole|
0000fbc0  5f 28 72 5f 2c 72 72 5f  29 3d 30 3a ed 3a ed 3a  |_(r_,rr_)=0:.:.:|
0000fbd0  f2 77 68 61 74 4d 66 72  61 63 73 69 67 6e 3a f2  |.whatMfracsign:.|
0000fbe0  77 68 61 74 4d 66 72 61  63 73 3a f2 63 61 6c 63  |whatMfracs:.calc|
0000fbf0  4d 66 72 61 63 73 3a 43  6c 75 65 5f 24 3d 22 46  |Mfracs:Clue_$="F|
0000fc00  72 4d 44 22 3a 73 74 61  72 74 65 64 5f 25 3d b9  |rMD":started_%=.|
0000fc10  3a f2 75 73 49 28 46 72  4d 44 5f 25 2c 22 46 72  |:.usI(FrMD_%,"Fr|
0000fc20  4d 44 67 6f 22 29 3a 3d  a4 73 75 6d 73 0d 5a 0a  |MDgo"):=.sums.Z.|
0000fc30  4b dd f2 77 68 61 74 4d  66 72 61 63 73 69 67 6e  |K..whatMfracsign|
0000fc40  3a e7 46 72 61 63 6d 75  6c 74 5f 3d b9 80 46 72  |:.Fracmult_=..Fr|
0000fc50  61 63 64 69 76 5f 3d a3  8c e3 67 5f 3d 31 b8 31  |acdiv_=...g_=1.1|
0000fc60  32 3a 46 72 61 63 73 69  67 6e 5f 24 28 67 5f 29  |2:Fracsign_$(g_)|
0000fc70  3d 22 78 22 3a ed 3a e1  0d 5a 14 3a e7 46 72 61  |="x":.:..Z.:.Fra|
0000fc80  63 64 69 76 5f 3d b9 80  46 72 61 63 6d 75 6c 74  |cdiv_=..Fracmult|
0000fc90  5f 3d a3 e3 67 5f 3d 31  b8 31 32 3a 46 72 61 63  |_=..g_=1.12:Frac|
0000fca0  73 69 67 6e 5f 24 28 67  5f 29 3d 22 f7 22 3a ed  |sign_$(g_)=".":.|
0000fcb0  3a e1 0d 5a 1e 1a 73 74  61 72 74 5f 3d b3 28 32  |:..Z..start_=.(2|
0000fcc0  29 3a e7 73 74 61 72 74  5f 3d 31 8c 0d 5a 32 3a  |):.start_=1..Z2:|
0000fcd0  e3 67 5f 3d 31 b8 31 32  3a e7 67 5f 83 32 3d 30  |.g_=1.12:.g_.2=0|
0000fce0  20 46 72 61 63 73 69 67  6e 5f 24 28 67 5f 29 3d  | Fracsign_$(g_)=|
0000fcf0  22 78 22 8b 46 72 61 63  73 69 67 6e 5f 24 28 67  |"x".Fracsign_$(g|
0000fd00  5f 29 3d 22 f7 22 0d 5a  3c 05 ed 0d 5a 46 3c cc  |_)=".".Z<...ZF<.|
0000fd10  3a e3 67 5f 3d 31 b8 31  32 3a e7 67 5f 83 32 3d  |:.g_=1.12:.g_.2=|
0000fd20  31 20 46 72 61 63 73 69  67 6e 5f 24 28 67 5f 29  |1 Fracsign_$(g_)|
0000fd30  3d 22 78 22 8b 46 72 61  63 73 69 67 6e 5f 24 28  |="x".Fracsign_$(|
0000fd40  67 5f 29 3d 22 f7 22 0d  5a 5a 05 ed 0d 5a 64 07  |g_)=".".ZZ...Zd.|
0000fd50  cd 3a e1 0d 5a 78 68 dd  f2 77 68 61 74 4d 66 72  |.:..Zxh..whatMfr|
0000fd60  61 63 73 3a e3 72 5f 3d  31 b8 31 32 3a 67 63 5f  |acs:.r_=1.12:gc_|
0000fd70  25 28 72 5f 29 3d 30 3a  ed 3a 67 6f 74 5f 25 3d  |%(r_)=0:.:got_%=|
0000fd80  30 3a e3 72 5f 25 3d 31  b8 31 32 3a e7 6d 66 5f  |0:.r_%=1.12:.mf_|
0000fd90  28 72 5f 25 29 3d b9 8c  67 6f 74 5f 25 3d 67 6f  |(r_%)=..got_%=go|
0000fda0  74 5f 25 2b 31 3a 67 63  5f 25 28 67 6f 74 5f 25  |t_%+1:gc_%(got_%|
0000fdb0  29 3d 6d 66 76 5f 28 72  5f 25 29 0d 5a 82 07 ed  |)=mfv_(r_%).Z...|
0000fdc0  3a e1 0d 5a 8c b8 dd f2  63 61 6c 63 4d 66 72 61  |:..Z....calcMfra|
0000fdd0  63 73 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |cs:.."Hourglass_|
0000fde0  4f 6e 22 3a e3 72 5f 3d  31 b8 31 32 3a c8 99 22  |On":.r_=1.12:.."|
0000fdf0  48 6f 75 72 67 6c 61 73  73 5f 50 65 72 63 65 6e  |Hourglass_Percen|
0000fe00  74 61 67 65 22 2c 72 5f  2f 31 32 2a 31 30 30 3a  |tage",r_/12*100:|
0000fe10  f2 66 72 61 63 74 69 6d  65 73 3a ed 3a e3 72 5f  |.fractimes:.:.r_|
0000fe20  3d 31 b8 6c 61 73 74 5f  3a 61 5f 3d 46 55 31 5f  |=1.last_:a_=FU1_|
0000fe30  28 72 5f 29 3a 62 5f 3d  46 44 31 5f 28 72 5f 29  |(r_):b_=FD1_(r_)|
0000fe40  3a 63 5f 3d 46 55 32 5f  28 72 5f 29 3a 64 5f 3d  |:c_=FU2_(r_):d_=|
0000fe50  46 44 32 5f 28 72 5f 29  3a f2 74 69 6d 65 73 66  |FD2_(r_):.timesf|
0000fe60  72 61 63 73 3a ed 3a c8  99 22 48 6f 75 72 67 6c  |racs:.:.."Hourgl|
0000fe70  61 73 73 5f 4f 66 66 22  3a e1 0d 5a 96 19 dd f2  |ass_Off":..Z....|
0000fe80  66 72 61 63 74 69 6d 65  73 3a e7 71 75 69 74 5f  |fractimes:.quit_|
0000fe90  3d b9 e1 0d 5a a0 41 f5  3a 72 61 6e 66 6c 61 67  |=...Z.A.:ranflag|
0000fea0  5f 3d b9 3a e7 91 3e 35  30 30 20 71 75 69 74 5f  |_=.:..>500 quit_|
0000feb0  3d b9 3a ef 37 3a 6c 61  73 74 5f 3d 72 5f 2d 31  |=.:.7:last_=r_-1|
0000fec0  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |:.."Hourglass_Of|
0000fed0  66 22 3a e1 0d 5a aa 24  e7 46 72 61 63 73 69 67  |f":..Z.$.Fracsig|
0000fee0  6e 5f 24 28 72 5f 29 3d  22 78 22 80 46 72 6d 77  |n_$(r_)="x".Frmw|
0000fef0  68 6f 6c 65 5f 3d b9 8c  0d 5a b4 47 f5 3a 57 68  |hole_=...Z.G.:Wh|
0000ff00  6f 6c 65 5f 28 72 5f 2c  30 29 3d b3 28 39 29 3a  |ole_(r_,0)=.(9):|
0000ff10  57 68 6f 6c 65 5f 28 72  5f 2c 31 29 3d b3 28 39  |Whole_(r_,1)=.(9|
0000ff20  29 3a fd 57 68 6f 6c 65  5f 28 72 5f 2c 30 29 2a  |):.Whole_(r_,0)*|
0000ff30  57 68 6f 6c 65 5f 28 72  5f 2c 31 29 3c 31 30 0d  |Whole_(r_,1)<10.|
0000ff40  5a be 26 cd 3a e7 46 72  61 63 73 69 67 6e 5f 24  |Z.&.:.Fracsign_$|
0000ff50  28 72 5f 29 3d 22 f7 22  80 46 72 64 77 68 6f 6c  |(r_)=".".Frdwhol|
0000ff60  65 5f 3d b9 8c 0d 5a c8  27 57 68 6f 6c 65 5f 28  |e_=...Z.'Whole_(|
0000ff70  72 5f 2c 30 29 3d b3 28  39 29 3a 57 68 6f 6c 65  |r_,0)=.(9):Whole|
0000ff80  5f 28 72 5f 2c 31 29 3d  b3 28 39 29 0d 5a d2 43  |_(r_,1)=.(9).Z.C|
0000ff90  cd 3a e7 67 6f 74 5f 25  3d 31 20 46 44 31 5f 28  |.:.got_%=1 FD1_(|
0000ffa0  72 5f 29 3d 67 63 5f 25  28 31 29 8b 72 61 6e 5f  |r_)=gc_%(1).ran_|
0000ffb0  25 3d b3 28 67 6f 74 5f  25 29 3a 46 44 31 5f 28  |%=.(got_%):FD1_(|
0000ffc0  72 5f 29 3d 67 63 5f 25  28 72 61 6e 5f 25 29 0d  |r_)=gc_%(ran_%).|
0000ffd0  5a dc 68 f5 3a 66 6c 75  67 5f 3d 30 3a f5 3a 46  |Z.h.:flug_=0:.:F|
0000ffe0  55 31 5f 28 72 5f 29 3d  b3 28 46 44 31 5f 28 72  |U1_(r_)=.(FD1_(r|
0000fff0  5f 29 29 3a fd 46 55 31  5f 28 72 5f 29 3c 46 44  |_)):.FU1_(r_)<FD|
00010000  31 5f 28 72 5f 29 3a e3  72 74 5f 3d 32 b8 31 30  |1_(r_):.rt_=2.10|
00010010  3a e7 46 55 31 5f 28 72  5f 29 83 72 74 5f 3d 30  |:.FU1_(r_).rt_=0|
00010020  80 46 44 31 5f 28 72 5f  29 83 72 74 5f 3d 30 20  |.FD1_(r_).rt_=0 |
00010030  66 6c 75 67 5f 3d 31 0d  5a e6 68 ed 3a fd 66 6c  |flug_=1.Z.h.:.fl|
00010040  75 67 5f 3d 30 3a e7 67  6f 74 5f 25 3d 31 20 46  |ug_=0:.got_%=1 F|
00010050  44 32 5f 28 72 5f 29 3d  67 63 5f 25 28 31 29 8b  |D2_(r_)=gc_%(1).|
00010060  e7 46 72 74 64 6f 6d 5f  3d b9 46 44 32 5f 28 72  |.Frtdom_=.FD2_(r|
00010070  5f 29 3d 46 44 31 5f 28  72 5f 29 8b 72 61 6e 5f  |_)=FD1_(r_).ran_|
00010080  25 3d b3 28 67 6f 74 5f  25 29 3a 46 44 32 5f 28  |%=.(got_%):FD2_(|
00010090  72 5f 29 3d 67 63 5f 25  28 72 61 6e 5f 25 29 0d  |r_)=gc_%(ran_%).|
000100a0  5a f0 68 f5 3a 66 6c 75  67 5f 3d 30 3a f5 3a 46  |Z.h.:flug_=0:.:F|
000100b0  55 32 5f 28 72 5f 29 3d  b3 28 46 44 32 5f 28 72  |U2_(r_)=.(FD2_(r|
000100c0  5f 29 29 3a fd 46 55 32  5f 28 72 5f 29 3c 46 44  |_)):.FU2_(r_)<FD|
000100d0  32 5f 28 72 5f 29 3a e3  72 74 5f 3d 32 b8 31 30  |2_(r_):.rt_=2.10|
000100e0  3a e7 46 55 32 5f 28 72  5f 29 83 72 74 5f 3d 30  |:.FU2_(r_).rt_=0|
000100f0  80 46 44 32 5f 28 72 5f  29 83 72 74 5f 3d 30 20  |.FD2_(r_).rt_=0 |
00010100  66 6c 75 67 5f 3d 31 0d  5a fa 1f ed 3a fd 66 6c  |flug_=1.Z...:.fl|
00010110  75 67 5f 3d 30 3a e7 72  5f 3e 31 80 46 72 74 72  |ug_=0:.r_>1.Frtr|
00010120  65 70 5f 3d b9 8c 0d 5b  04 b6 e3 72 74 74 5f 3d  |ep_=...[...rtt_=|
00010130  31 b8 72 5f 2d 31 3a e7  46 72 61 63 73 69 67 6e  |1.r_-1:.Fracsign|
00010140  5f 24 28 72 5f 29 3d 22  78 22 80 46 44 31 5f 28  |_$(r_)="x".FD1_(|
00010150  72 5f 29 3d 46 44 31 5f  28 72 74 74 5f 29 80 46  |r_)=FD1_(rtt_).F|
00010160  44 32 5f 28 72 5f 29 3d  46 44 32 5f 28 72 74 74  |D2_(r_)=FD2_(rtt|
00010170  5f 29 80 46 55 31 5f 28  72 5f 29 3d 46 55 31 5f  |_).FU1_(r_)=FU1_|
00010180  28 72 74 74 5f 29 80 46  55 32 5f 28 72 5f 29 3d  |(rtt_).FU2_(r_)=|
00010190  46 55 32 5f 28 72 74 74  5f 29 80 57 68 6f 6c 65  |FU2_(rtt_).Whole|
000101a0  5f 28 72 5f 2c 30 29 3d  57 68 6f 6c 65 5f 28 72  |_(r_,0)=Whole_(r|
000101b0  74 74 5f 2c 30 29 80 57  68 6f 6c 65 5f 28 72 5f  |tt_,0).Whole_(r_|
000101c0  2c 31 29 3d 57 68 6f 6c  65 5f 28 72 74 74 5f 2c  |,1)=Whole_(rtt_,|
000101d0  31 29 72 61 6e 66 6c 61  67 5f 3d a3 0d 5b 0e 05  |1)ranflag_=..[..|
000101e0  ed 0d 5b 18 16 cd 3a e7  72 5f 3e 31 80 46 72 64  |..[...:.r_>1.Frd|
000101f0  72 65 70 5f 3d b9 8c 0d  5b 22 b6 e3 72 74 74 5f  |rep_=...["..rtt_|
00010200  3d 31 b8 72 5f 2d 31 3a  e7 46 72 61 63 73 69 67  |=1.r_-1:.Fracsig|
00010210  6e 5f 24 28 72 5f 29 3d  22 f7 22 80 46 44 31 5f  |n_$(r_)=".".FD1_|
00010220  28 72 5f 29 3d 46 44 31  5f 28 72 74 74 5f 29 80  |(r_)=FD1_(rtt_).|
00010230  46 44 32 5f 28 72 5f 29  3d 46 44 32 5f 28 72 74  |FD2_(r_)=FD2_(rt|
00010240  74 5f 29 80 46 55 31 5f  28 72 5f 29 3d 46 55 31  |t_).FU1_(r_)=FU1|
00010250  5f 28 72 74 74 5f 29 80  46 55 32 5f 28 72 5f 29  |_(rtt_).FU2_(r_)|
00010260  3d 46 55 32 5f 28 72 74  74 5f 29 80 57 68 6f 6c  |=FU2_(rtt_).Whol|
00010270  65 5f 28 72 5f 2c 30 29  3d 57 68 6f 6c 65 5f 28  |e_(r_,0)=Whole_(|
00010280  72 74 74 5f 2c 30 29 80  57 68 6f 6c 65 5f 28 72  |rtt_,0).Whole_(r|
00010290  5f 2c 31 29 3d 57 68 6f  6c 65 5f 28 72 74 74 5f  |_,1)=Whole_(rtt_|
000102a0  2c 31 29 72 61 6e 66 6c  61 67 5f 3d a3 0d 5b 2c  |,1)ranflag_=..[,|
000102b0  05 ed 0d 5b 36 13 cd 3a  fd 72 61 6e 66 6c 61 67  |...[6..:.ranflag|
000102c0  5f 3d b9 3a e1 0d 5b 40  2a dd f2 74 69 6d 65 73  |_=.:..[@*..times|
000102d0  66 72 61 63 73 3a e7 46  72 6d 77 68 6f 6c 65 5f  |fracs:.Frmwhole_|
000102e0  3d b9 84 46 72 64 77 68  6f 6c 65 5f 3d b9 8c 0d  |=..Frdwhole_=...|
000102f0  5b 4a 2f 61 5f 3d 57 68  6f 6c 65 5f 28 72 5f 2c  |[J/a_=Whole_(r_,|
00010300  30 29 2a 62 5f 2b 61 5f  3a 63 5f 3d 57 68 6f 6c  |0)*b_+a_:c_=Whol|
00010310  65 5f 28 72 5f 2c 31 29  2a 64 5f 2b 63 5f 0d 5b  |e_(r_,1)*d_+c_.[|
00010320  54 1a cd 3a e7 46 72 61  63 73 69 67 6e 5f 24 28  |T..:.Fracsign_$(|
00010330  72 5f 29 3d 22 78 22 8c  0d 5b 5e 15 65 5f 3d 61  |r_)="x"..[^.e_=a|
00010340  5f 2a 63 5f 3a 66 5f 3d  62 5f 2a 64 5f 0d 5b 68  |_*c_:f_=b_*d_.[h|
00010350  17 cc 3a 65 5f 3d 61 5f  2a 64 5f 3a 66 5f 3d 62  |..:e_=a_*d_:f_=b|
00010360  5f 2a 63 5f 0d 5b 72 2c  cd 3a 77 68 6f 6c 65 5f  |_*c_.[r,.:whole_|
00010370  3d 30 3a e7 65 5f 3e 3d  66 5f 20 77 68 6f 6c 65  |=0:.e_>=f_ whole|
00010380  5f 3d 65 5f 81 66 5f 3a  65 5f 3d 65 5f 83 66 5f  |_=e_.f_:e_=e_.f_|
00010390  0d 5b 7c 25 57 68 6f 6c  65 5f 28 72 5f 2c 32 29  |.[|%Whole_(r_,2)|
000103a0  3d 77 68 6f 6c 65 5f 3a  e7 65 5f 3c 3e 30 f2 72  |=whole_:.e_<>0.r|
000103b0  65 64 75 63 65 0d 5b 86  1d 46 55 33 5f 28 72 5f  |educe.[..FU3_(r_|
000103c0  29 3d 65 5f 3a 46 44 33  5f 28 72 5f 29 3d 66 5f  |)=e_:FD3_(r_)=f_|
000103d0  3a e1 0d 5b 90 54 dd f2  72 65 64 75 63 65 3a e3  |:..[.T..reduce:.|
000103e0  74 72 5f 3d 31 30 b8 32  88 2d 31 3a e7 65 5f 83  |tr_=10.2.-1:.e_.|
000103f0  74 72 5f 3d 30 80 66 5f  83 74 72 5f 3d 30 20 65  |tr_=0.f_.tr_=0 e|
00010400  5f 3d 65 5f 2f 74 72 5f  3a 66 5f 3d 66 5f 2f 74  |_=e_/tr_:f_=f_/t|
00010410  72 5f 3a 65 5f 24 3d c3  28 65 5f 29 3a 66 5f 24  |r_:e_$=.(e_):f_$|
00010420  3d c3 28 66 5f 29 0d 5b  9a 07 ed 3a e1 0d 5b ea  |=.(f_).[...:..[.|
00010430  52 dd f2 4c 6f 6e 67 4d  75 6c 74 79 3a 4c 6f 6e  |R..LongMulty:Lon|
00010440  67 4d 75 6c 5f 25 3d a4  66 57 53 28 22 4c 6f 6e  |gMul_%=.fWS("Lon|
00010450  67 4d 75 6c 22 29 3a e7  4c 6f 6e 67 4d 75 6c 5f  |gMul"):.LongMul_|
00010460  28 31 29 3d b9 3a f2 73  49 28 4c 6f 6e 67 4d 75  |(1)=.:.sI(LongMu|
00010470  6c 5f 25 2c 22 4c 6f 6e  67 4d 75 6c 31 22 29 0d  |l_%,"LongMul1").|
00010480  5b fe 2c e7 4c 6f 6e 67  4d 75 6c 5f 28 32 29 3d  |[.,.LongMul_(2)=|
00010490  b9 3a f2 73 49 28 4c 6f  6e 67 4d 75 6c 5f 25 2c  |.:.sI(LongMul_%,|
000104a0  22 4c 6f 6e 67 4d 75 6c  32 22 29 0d 5c 08 2c e7  |"LongMul2").\.,.|
000104b0  4c 6f 6e 67 4d 75 6c 5f  28 33 29 3d b9 3a f2 73  |LongMul_(3)=.:.s|
000104c0  49 28 4c 6f 6e 67 4d 75  6c 5f 25 2c 22 4c 6f 6e  |I(LongMul_%,"Lon|
000104d0  67 4d 75 6c 33 22 29 0d  5c 12 2c e7 4c 6f 6e 67  |gMul3").\.,.Long|
000104e0  4d 75 6c 5f 28 34 29 3d  b9 3a f2 73 49 28 4c 6f  |Mul_(4)=.:.sI(Lo|
000104f0  6e 67 4d 75 6c 5f 25 2c  22 4c 6f 6e 67 4d 75 6c  |ngMul_%,"LongMul|
00010500  34 22 29 0d 5c 1c 2c e7  4c 6f 6e 67 4d 75 6c 5f  |4").\.,.LongMul_|
00010510  28 35 29 3d b9 3a f2 73  49 28 4c 6f 6e 67 4d 75  |(5)=.:.sI(LongMu|
00010520  6c 5f 25 2c 22 4c 6f 6e  67 4d 75 6c 35 22 29 0d  |l_%,"LongMul5").|
00010530  5c 26 2c e7 4c 6f 6e 67  4d 75 6c 5f 28 36 29 3d  |\&,.LongMul_(6)=|
00010540  b9 3a f2 73 49 28 4c 6f  6e 67 4d 75 6c 5f 25 2c  |.:.sI(LongMul_%,|
00010550  22 4c 6f 6e 67 4d 75 6c  36 22 29 0d 5c 30 2c e7  |"LongMul6").\0,.|
00010560  4c 6f 6e 67 73 74 79 6c  65 5f 3d 31 f2 73 49 28  |Longstyle_=1.sI(|
00010570  4c 6f 6e 67 4d 75 6c 5f  25 2c 22 4c 6f 6e 67 53  |LongMul_%,"LongS|
00010580  74 79 6c 65 41 22 29 0d  5c 3a 2c e7 4c 6f 6e 67  |tyleA").\:,.Long|
00010590  73 74 79 6c 65 5f 3d 32  f2 73 49 28 4c 6f 6e 67  |style_=2.sI(Long|
000105a0  4d 75 6c 5f 25 2c 22 4c  6f 6e 67 53 74 79 6c 65  |Mul_%,"LongStyle|
000105b0  42 22 29 0d 5c 44 05 e1  0d 5c 6c 30 dd a4 6c 6f  |B").\D...\l0..lo|
000105c0  6e 67 6d 75 6c 5f 3a 63  5f 3d 30 3a e3 68 5f 3d  |ngmul_:c_=0:.h_=|
000105d0  31 b8 36 3a e7 4c 6f 6e  67 4d 75 6c 5f 28 68 5f  |1.6:.LongMul_(h_|
000105e0  29 63 5f 3d 63 5f 2b 31  0d 5c 76 09 ed 3a 3d 63  |)c_=c_+1.\v..:=c|
000105f0  5f 0d 5c 80 53 dd a4 4c  6f 6e 67 4d 75 6c 31 5f  |_.\.S..LongMul1_|
00010600  3a e7 4c 6f 6e 67 4d 75  6c 5f 28 31 29 80 a4 6c  |:.LongMul_(1)..l|
00010610  6f 6e 67 6d 75 6c 5f 3d  31 20 4c 6f 6e 67 4d 75  |ongmul_=1 LongMu|
00010620  6c 5f 28 31 29 3d b9 3a  f2 73 49 28 4c 6f 6e 67  |l_(1)=.:.sI(Long|
00010630  4d 75 6c 5f 25 2c 22 4c  6f 6e 67 4d 75 6c 31 22  |Mul_%,"LongMul1"|
00010640  29 3a 3d a3 0d 5c 8a 2b  e7 4c 6f 6e 67 4d 75 6c  |):=..\.+.LongMul|
00010650  5f 28 31 29 4c 6f 6e 67  4d 75 6c 5f 28 31 29 3d  |_(1)LongMul_(1)=|
00010660  a3 8b 4c 6f 6e 67 4d 75  6c 5f 28 31 29 3d b9 0d  |..LongMul_(1)=..|
00010670  5c 94 06 3d b9 0d 5c 9e  53 dd a4 4c 6f 6e 67 4d  |\..=..\.S..LongM|
00010680  75 6c 32 5f 3a e7 4c 6f  6e 67 4d 75 6c 5f 28 32  |ul2_:.LongMul_(2|
00010690  29 80 a4 6c 6f 6e 67 6d  75 6c 5f 3d 31 20 4c 6f  |)..longmul_=1 Lo|
000106a0  6e 67 4d 75 6c 5f 28 32  29 3d b9 3a f2 73 49 28  |ngMul_(2)=.:.sI(|
000106b0  4c 6f 6e 67 4d 75 6c 5f  25 2c 22 4c 6f 6e 67 4d  |LongMul_%,"LongM|
000106c0  75 6c 32 22 29 3a 3d a3  0d 5c a8 2b e7 4c 6f 6e  |ul2"):=..\.+.Lon|
000106d0  67 4d 75 6c 5f 28 32 29  4c 6f 6e 67 4d 75 6c 5f  |gMul_(2)LongMul_|
000106e0  28 32 29 3d a3 8b 4c 6f  6e 67 4d 75 6c 5f 28 32  |(2)=..LongMul_(2|
000106f0  29 3d b9 0d 5c b2 06 3d  b9 0d 5c bc 53 dd a4 4c  |)=..\..=..\.S..L|
00010700  6f 6e 67 4d 75 6c 33 5f  3a e7 4c 6f 6e 67 4d 75  |ongMul3_:.LongMu|
00010710  6c 5f 28 33 29 80 a4 6c  6f 6e 67 6d 75 6c 5f 3d  |l_(3)..longmul_=|
00010720  31 20 4c 6f 6e 67 4d 75  6c 5f 28 33 29 3d b9 3a  |1 LongMul_(3)=.:|
00010730  f2 73 49 28 4c 6f 6e 67  4d 75 6c 5f 25 2c 22 4c  |.sI(LongMul_%,"L|
00010740  6f 6e 67 4d 75 6c 33 22  29 3a 3d a3 0d 5c c6 2b  |ongMul3"):=..\.+|
00010750  e7 4c 6f 6e 67 4d 75 6c  5f 28 33 29 4c 6f 6e 67  |.LongMul_(3)Long|
00010760  4d 75 6c 5f 28 33 29 3d  a3 8b 4c 6f 6e 67 4d 75  |Mul_(3)=..LongMu|
00010770  6c 5f 28 33 29 3d b9 0d  5c d0 06 3d b9 0d 5c da  |l_(3)=..\..=..\.|
00010780  53 dd a4 4c 6f 6e 67 4d  75 6c 34 5f 3a e7 4c 6f  |S..LongMul4_:.Lo|
00010790  6e 67 4d 75 6c 5f 28 34  29 80 a4 6c 6f 6e 67 6d  |ngMul_(4)..longm|
000107a0  75 6c 5f 3d 31 20 4c 6f  6e 67 4d 75 6c 5f 28 34  |ul_=1 LongMul_(4|
000107b0  29 3d b9 3a f2 73 49 28  4c 6f 6e 67 4d 75 6c 5f  |)=.:.sI(LongMul_|
000107c0  25 2c 22 4c 6f 6e 67 4d  75 6c 34 22 29 3a 3d a3  |%,"LongMul4"):=.|
000107d0  0d 5c e4 2b e7 4c 6f 6e  67 4d 75 6c 5f 28 34 29  |.\.+.LongMul_(4)|
000107e0  4c 6f 6e 67 4d 75 6c 5f  28 34 29 3d a3 8b 4c 6f  |LongMul_(4)=..Lo|
000107f0  6e 67 4d 75 6c 5f 28 34  29 3d b9 0d 5c ee 06 3d  |ngMul_(4)=..\..=|
00010800  b9 0d 5c f8 53 dd a4 4c  6f 6e 67 4d 75 6c 35 5f  |..\.S..LongMul5_|
00010810  3a e7 4c 6f 6e 67 4d 75  6c 5f 28 35 29 80 a4 6c  |:.LongMul_(5)..l|
00010820  6f 6e 67 6d 75 6c 5f 3d  31 20 4c 6f 6e 67 4d 75  |ongmul_=1 LongMu|
00010830  6c 5f 28 35 29 3d b9 3a  f2 73 49 28 4c 6f 6e 67  |l_(5)=.:.sI(Long|
00010840  4d 75 6c 5f 25 2c 22 4c  6f 6e 67 4d 75 6c 35 22  |Mul_%,"LongMul5"|
00010850  29 3a 3d a3 0d 5d 02 2b  e7 4c 6f 6e 67 4d 75 6c  |):=..].+.LongMul|
00010860  5f 28 35 29 4c 6f 6e 67  4d 75 6c 5f 28 35 29 3d  |_(5)LongMul_(5)=|
00010870  a3 8b 4c 6f 6e 67 4d 75  6c 5f 28 35 29 3d b9 0d  |..LongMul_(5)=..|
00010880  5d 0c 06 3d b9 0d 5d 16  53 dd a4 4c 6f 6e 67 4d  |]..=..].S..LongM|
00010890  75 6c 36 5f 3a e7 4c 6f  6e 67 4d 75 6c 5f 28 36  |ul6_:.LongMul_(6|
000108a0  29 80 a4 6c 6f 6e 67 6d  75 6c 5f 3d 31 20 4c 6f  |)..longmul_=1 Lo|
000108b0  6e 67 4d 75 6c 5f 28 36  29 3d b9 3a f2 73 49 28  |ngMul_(6)=.:.sI(|
000108c0  4c 6f 6e 67 4d 75 6c 5f  25 2c 22 4c 6f 6e 67 4d  |LongMul_%,"LongM|
000108d0  75 6c 36 22 29 3a 3d a3  0d 5d 20 2b e7 4c 6f 6e  |ul6"):=..] +.Lon|
000108e0  67 4d 75 6c 5f 28 36 29  4c 6f 6e 67 4d 75 6c 5f  |gMul_(6)LongMul_|
000108f0  28 36 29 3d a3 8b 4c 6f  6e 67 4d 75 6c 5f 28 36  |(6)=..LongMul_(6|
00010900  29 3d b9 0d 5d 2a 06 3d  b9 0d 5d 3e 5a dd a4 4c  |)=..]*.=..]>Z..L|
00010910  6f 6e 67 53 74 79 6c 65  41 5f 3a 4c 6f 6e 67 73  |ongStyleA_:Longs|
00010920  74 79 6c 65 5f 3d 31 3a  f2 73 49 28 4c 6f 6e 67  |tyle_=1:.sI(Long|
00010930  4d 75 6c 5f 25 2c 22 4c  6f 6e 67 53 74 79 6c 65  |Mul_%,"LongStyle|
00010940  41 22 29 3a f2 75 73 49  28 4c 6f 6e 67 4d 75 6c  |A"):.usI(LongMul|
00010950  5f 25 2c 22 4c 6f 6e 67  53 74 79 6c 65 42 22 29  |_%,"LongStyleB")|
00010960  3a 3d b9 0d 5d 52 5a dd  a4 4c 6f 6e 67 53 74 79  |:=..]RZ..LongSty|
00010970  6c 65 42 5f 3a 4c 6f 6e  67 73 74 79 6c 65 5f 3d  |leB_:Longstyle_=|
00010980  32 3a f2 73 49 28 4c 6f  6e 67 4d 75 6c 5f 25 2c  |2:.sI(LongMul_%,|
00010990  22 4c 6f 6e 67 53 74 79  6c 65 42 22 29 3a f2 75  |"LongStyleB"):.u|
000109a0  73 49 28 4c 6f 6e 67 4d  75 6c 5f 25 2c 22 4c 6f  |sI(LongMul_%,"Lo|
000109b0  6e 67 53 74 79 6c 65 41  22 29 3a 3d b9 0d 5d 84  |ngStyleA"):=..].|
000109c0  4f dd a4 4c 6f 6e 67 4d  75 6c 67 6f 5f 3a f2 47  |O..LongMulgo_:.G|
000109d0  65 74 54 69 74 6c 65 73  3a 64 75 6d 6d 79 5f 3d  |etTitles:dummy_=|
000109e0  b3 28 2d 91 29 3a 66 6c  61 67 5f 3d a3 3a e3 67  |.(-.):flag_=.:.g|
000109f0  5f 3d 31 b8 36 3a e7 4c  6f 6e 67 4d 75 6c 5f 28  |_=1.6:.LongMul_(|
00010a00  67 5f 29 3d b9 66 6c 61  67 5f 3d b9 0d 5d a2 6b  |g_)=.flag_=..].k|
00010a10  ed 3a e7 66 6c 61 67 5f  3d a3 8c c8 99 22 48 6f  |.:.flag_=...."Ho|
00010a20  75 72 67 6c 61 73 73 5f  4f 66 66 22 3a 56 5f 24  |urglass_Off":V_$|
00010a30  3d a4 61 6c 65 72 74 28  22 43 68 6f 6f 73 65 20  |=.alert("Choose |
00010a40  61 20 74 79 70 65 22 2c  22 22 2c 22 4f 4b 22 2c  |a type","","OK",|
00010a50  22 22 2c 22 22 2c 30 29  3a f2 75 73 49 28 4c 6f  |"","",0):.usI(Lo|
00010a60  6e 67 4d 75 6c 5f 25 2c  22 4c 6f 6e 67 4d 75 6c  |ngMul_%,"LongMul|
00010a70  67 6f 22 29 3a 3d a3 0d  5d ac 3f 67 6f 74 5f 25  |go"):=..].?got_%|
00010a80  3d 30 3a e3 79 5f 3d 31  b8 36 3a e7 4c 6f 6e 67  |=0:.y_=1.6:.Long|
00010a90  4d 75 6c 5f 28 79 5f 29  3d b9 67 6f 74 5f 25 3d  |Mul_(y_)=.got_%=|
00010aa0  67 6f 74 5f 25 2b 31 3a  67 63 5f 25 28 67 6f 74  |got_%+1:gc_%(got|
00010ab0  5f 25 29 3d 79 5f 0d 5d  b6 0f ed 3a e7 67 6f 74  |_%)=y_.]...:.got|
00010ac0  5f 25 3d 31 8c 0d 5d ca  23 e3 68 5f 3d 31 b8 38  |_%=1..].#.h_=1.8|
00010ad0  3a 66 72 6f 63 5f 28 68  5f 29 3d 67 63 5f 25 28  |:froc_(h_)=gc_%(|
00010ae0  67 6f 74 5f 25 29 3a ed  0d 5d d4 0f cd 3a e7 67  |got_%):..]...:.g|
00010af0  6f 74 5f 25 3e 31 8c 0d  5d e8 a7 f5 3a 66 6c 61  |ot_%>1..]...:fla|
00010b00  67 5f 3d b9 3a e3 72 5f  3d 31 b8 38 3a 66 69 6e  |g_=.:.r_=1.8:fin|
00010b10  64 65 72 5f 25 28 72 5f  29 3d 30 3a ed 3a 6e 65  |der_%(r_)=0:.:ne|
00010b20  65 64 65 64 5f 25 3d 38  81 67 6f 74 5f 25 3a e3  |eded_%=8.got_%:.|
00010b30  68 5f 3d 31 b8 38 3a 72  5f 3d b3 28 67 6f 74 5f  |h_=1.8:r_=.(got_|
00010b40  25 29 3a 66 72 6f 63 5f  28 68 5f 29 3d 67 63 5f  |%):froc_(h_)=gc_|
00010b50  25 28 72 5f 29 3a 66 69  6e 64 65 72 5f 25 28 72  |%(r_):finder_%(r|
00010b60  5f 29 3d 66 69 6e 64 65  72 5f 25 28 72 5f 29 2b  |_)=finder_%(r_)+|
00010b70  31 3a ed 3a e3 72 5f 3d  31 b8 67 6f 74 5f 25 3a  |1:.:.r_=1.got_%:|
00010b80  e7 66 69 6e 64 65 72 5f  25 28 72 5f 29 3c 6e 65  |.finder_%(r_)<ne|
00010b90  65 64 65 64 5f 25 20 66  6c 61 67 5f 3d a3 0d 5e  |eded_% flag_=..^|
00010ba0  42 0e ed 3a fd 66 6c 61  67 5f 3d b9 0d 5e 56 24  |B..:.flag_=..^V$|
00010bb0  cd 3a e3 74 5f 3d 31 b8  38 3a e7 66 72 6f 63 5f  |.:.t_=1.8:.froc_|
00010bc0  28 74 5f 29 3d 31 f2 77  6f 72 6b 6c 6f 6e 67 31  |(t_)=1.worklong1|
00010bd0  0d 5e 74 1a e7 66 72 6f  63 5f 28 74 5f 29 3d 32  |.^t..froc_(t_)=2|
00010be0  f2 77 6f 72 6b 6c 6f 6e  67 32 0d 5e 7e 1a e7 66  |.worklong2.^~..f|
00010bf0  72 6f 63 5f 28 74 5f 29  3d 33 f2 77 6f 72 6b 6c  |roc_(t_)=3.workl|
00010c00  6f 6e 67 33 0d 5e 88 1a  e7 66 72 6f 63 5f 28 74  |ong3.^...froc_(t|
00010c10  5f 29 3d 34 f2 77 6f 72  6b 6c 6f 6e 67 34 0d 5e  |_)=4.worklong4.^|
00010c20  92 1a e7 66 72 6f 63 5f  28 74 5f 29 3d 35 f2 77  |...froc_(t_)=5.w|
00010c30  6f 72 6b 6c 6f 6e 67 35  0d 5e 9c 1a e7 66 72 6f  |orklong5.^...fro|
00010c40  63 5f 28 74 5f 29 3d 36  f2 77 6f 72 6b 6c 6f 6e  |c_(t_)=6.worklon|
00010c50  67 36 0d 5e a6 44 ed 3a  f2 75 73 49 28 4c 6f 6e  |g6.^.D.:.usI(Lon|
00010c60  67 4d 75 6c 5f 25 2c 22  4c 6f 6e 67 4d 75 6c 67  |gMul_%,"LongMulg|
00010c70  6f 22 29 3a 6c 61 73 74  5f 3d 33 3a 71 75 69 74  |o"):last_=3:quit|
00010c80  5f 3d a3 3a 73 74 61 72  74 65 64 5f 25 3d b9 3a  |_=.:started_%=.:|
00010c90  3d a4 73 75 6d 73 0d 5e  c4 9c dd f2 77 6f 72 6b  |=.sums.^....work|
00010ca0  6c 6f 6e 67 31 3a f5 3a  61 5f 3d b3 28 39 39 29  |long1:.:a_=.(99)|
00010cb0  3a fd 61 5f 3e 32 30 3a  f5 3a 62 5f 3d b3 28 39  |:.a_>20:.:b_=.(9|
00010cc0  30 29 3a fd 62 5f 83 31  30 3d 30 3a 61 5f 28 74  |0):.b_.10=0:a_(t|
00010cd0  5f 29 3d 61 5f 3a 62 5f  28 74 5f 29 3d 62 5f 3a  |_)=a_:b_(t_)=b_:|
00010ce0  63 5f 28 74 5f 29 3d 61  5f 2a 62 5f 3a 6c 61 73  |c_(t_)=a_*b_:las|
00010cf0  74 5f 3d 33 3a 71 75 69  74 5f 3d a3 3a 4c 6f 6e  |t_=3:quit_=.:Lon|
00010d00  67 63 68 6f 69 63 65 5f  24 28 74 5f 29 3d 22 4c  |gchoice_$(t_)="L|
00010d10  6f 6e 67 4d 75 6c 31 22  3a 43 6c 75 65 5f 24 3d  |ongMul1":Clue_$=|
00010d20  4c 6f 6e 67 63 68 6f 69  63 65 5f 24 28 74 5f 29  |Longchoice_$(t_)|
00010d30  3a e1 0d 5f 00 9c dd f2  77 6f 72 6b 6c 6f 6e 67  |:.._....worklong|
00010d40  32 3a f5 3a 61 5f 3d b3  28 39 39 29 3a fd 61 5f  |2:.:a_=.(99):.a_|
00010d50  3e 31 32 80 61 5f 83 31  30 3c 3e 30 3a f5 3a 62  |>12.a_.10<>0:.:b|
00010d60  5f 3d b3 28 39 39 29 3a  fd 62 5f 3e 31 32 80 62  |_=.(99):.b_>12.b|
00010d70  5f 83 31 30 3c 3e 30 3a  61 5f 28 74 5f 29 3d 61  |_.10<>0:a_(t_)=a|
00010d80  5f 3a 62 5f 28 74 5f 29  3d 62 5f 3a 63 5f 28 74  |_:b_(t_)=b_:c_(t|
00010d90  5f 29 3d 61 5f 2a 62 5f  3a 4c 6f 6e 67 63 68 6f  |_)=a_*b_:Longcho|
00010da0  69 63 65 5f 24 28 74 5f  29 3d 22 4c 6f 6e 67 4d  |ice_$(t_)="LongM|
00010db0  75 6c 32 22 3a 43 6c 75  65 5f 24 3d 4c 6f 6e 67  |ul2":Clue_$=Long|
00010dc0  63 68 6f 69 63 65 5f 24  28 74 5f 29 3a e1 0d 5f  |choice_$(t_):.._|
00010dd0  3c 9d dd f2 77 6f 72 6b  6c 6f 6e 67 33 3a f5 3a  |<...worklong3:.:|
00010de0  61 5f 3d b3 28 39 39 39  29 3a fd 61 5f 3e 31 30  |a_=.(999):.a_>10|
00010df0  30 80 61 5f 83 31 30 3c  3e 30 3a f5 3a 62 5f 3d  |0.a_.10<>0:.:b_=|
00010e00  b3 28 39 39 29 3a fd 62  5f 3e 31 32 80 62 5f 83  |.(99):.b_>12.b_.|
00010e10  31 30 3d 30 3a 61 5f 28  74 5f 29 3d 61 5f 3a 62  |10=0:a_(t_)=a_:b|
00010e20  5f 28 74 5f 29 3d 62 5f  3a 63 5f 28 74 5f 29 3d  |_(t_)=b_:c_(t_)=|
00010e30  61 5f 2a 62 5f 3a 4c 6f  6e 67 63 68 6f 69 63 65  |a_*b_:Longchoice|
00010e40  5f 24 28 74 5f 29 3d 22  4c 6f 6e 67 4d 75 6c 33  |_$(t_)="LongMul3|
00010e50  22 3a 43 6c 75 65 5f 24  3d 4c 6f 6e 67 63 68 6f  |":Clue_$=Longcho|
00010e60  69 63 65 5f 24 28 74 5f  29 3a e1 0d 5f 78 6b dd  |ice_$(t_):.._xk.|
00010e70  f2 77 6f 72 6b 6c 6f 6e  67 34 3a f5 3a 61 5f 3d  |.worklong4:.:a_=|
00010e80  b3 28 39 39 39 29 3a fd  61 5f 3e 31 30 30 80 61  |.(999):.a_>100.a|
00010e90  5f 83 31 30 3c 3e 30 3a  f5 3a 62 5f 3d b3 28 39  |_.10<>0:.:b_=.(9|
00010ea0  39 29 3a fd 62 5f 3e 31  32 80 62 5f 83 31 30 3c  |9):.b_>12.b_.10<|
00010eb0  3e 30 3a e3 67 5f 3d 31  b8 38 3a e7 61 5f 3d 61  |>0:.g_=1.8:.a_=a|
00010ec0  5f 28 67 5f 29 80 62 5f  3d 62 5f 28 67 5f 29 66  |_(g_).b_=b_(g_)f|
00010ed0  6c 61 67 5f 3d 31 0d 5f  a0 5a 61 5f 28 74 5f 29  |lag_=1._.Za_(t_)|
00010ee0  3d 61 5f 3a 62 5f 28 74  5f 29 3d 62 5f 3a 63 5f  |=a_:b_(t_)=b_:c_|
00010ef0  28 74 5f 29 3d 61 5f 2a  62 5f 3a 4c 6f 6e 67 63  |(t_)=a_*b_:Longc|
00010f00  68 6f 69 63 65 5f 24 28  74 5f 29 3d 22 4c 6f 6e  |hoice_$(t_)="Lon|
00010f10  67 4d 75 6c 34 22 3a 43  6c 75 65 5f 24 3d 4c 6f  |gMul4":Clue_$=Lo|
00010f20  6e 67 63 68 6f 69 63 65  5f 24 28 74 5f 29 3a e1  |ngchoice_$(t_):.|
00010f30  0d 5f be a0 dd f2 77 6f  72 6b 6c 6f 6e 67 35 3a  |._....worklong5:|
00010f40  f5 3a 61 5f 3d b3 28 39  39 39 39 29 3a fd 61 5f  |.:a_=.(9999):.a_|
00010f50  3e 31 30 30 30 80 61 5f  83 31 30 3c 3e 30 3a f5  |>1000.a_.10<>0:.|
00010f60  3a 62 5f 3d b3 28 39 39  29 3a fd 62 5f 3e 31 32  |:b_=.(99):.b_>12|
00010f70  80 62 5f 83 31 30 3c 3e  30 3a 61 5f 28 74 5f 29  |.b_.10<>0:a_(t_)|
00010f80  3d 61 5f 3a 62 5f 28 74  5f 29 3d 62 5f 3a 63 5f  |=a_:b_(t_)=b_:c_|
00010f90  28 74 5f 29 3d 61 5f 2a  62 5f 3a 4c 6f 6e 67 63  |(t_)=a_*b_:Longc|
00010fa0  68 6f 69 63 65 5f 24 28  74 5f 29 3d 22 4c 6f 6e  |hoice_$(t_)="Lon|
00010fb0  67 4d 75 6c 35 22 3a 43  6c 75 65 5f 24 3d 4c 6f  |gMul5":Clue_$=Lo|
00010fc0  6e 67 63 68 6f 69 63 65  5f 24 28 74 5f 29 3a e1  |ngchoice_$(t_):.|
00010fd0  0d 5f fa 7f dd f2 77 6f  72 6b 6c 6f 6e 67 36 3a  |._....worklong6:|
00010fe0  f5 3a 61 5f 3d b3 28 39  39 39 39 29 3a fd 61 5f  |.:a_=.(9999):.a_|
00010ff0  3e 31 30 30 30 80 61 5f  83 31 30 3c 3e 30 3a f5  |>1000.a_.10<>0:.|
00011000  6e 6f 5f 3d b9 3a f5 3a  62 5f 3d b3 28 39 39 39  |no_=.:.:b_=.(999|
00011010  29 3a fd 62 5f 3e 39 39  80 62 5f 83 31 30 3c 3e  |):.b_>99.b_.10<>|
00011020  30 3a 65 5f 24 3d c3 28  62 5f 29 3a e3 65 5f 3d  |0:e_$=.(b_):.e_=|
00011030  31 b8 a9 28 65 5f 24 29  3a e7 bb 28 c1 65 5f 24  |1..(e_$):..(.e_$|
00011040  2c 65 5f 2c 31 29 29 3d  30 20 6e 6f 5f 3d a3 0d  |,e_,1))=0 no_=..|
00011050  60 2c 63 ed 3a fd 6e 6f  5f 3d b9 3a 61 5f 28 74  |`,c.:.no_=.:a_(t|
00011060  5f 29 3d 61 5f 3a 62 5f  28 74 5f 29 3d 62 5f 3a  |_)=a_:b_(t_)=b_:|
00011070  63 5f 28 74 5f 29 3d 61  5f 2a 62 5f 3a 4c 6f 6e  |c_(t_)=a_*b_:Lon|
00011080  67 63 68 6f 69 63 65 5f  24 28 74 5f 29 3d 22 4c  |gchoice_$(t_)="L|
00011090  6f 6e 67 4d 75 6c 36 22  3a 43 6c 75 65 5f 24 3d  |ongMul6":Clue_$=|
000110a0  4c 6f 6e 67 63 68 6f 69  63 65 5f 24 28 74 5f 29  |Longchoice_$(t_)|
000110b0  3a e1 0d 60 54 d4 dd f2  4c 6f 6e 67 4d 75 6c 32  |:..`T...LongMul2|
000110c0  3a 6c 65 66 74 5f 3d 58  25 2b 38 30 3a 6f 6e 5f  |:left_=X%+80:on_|
000110d0  3d 32 33 30 3a 65 6e 64  5f 3d 31 30 30 3a 64 6f  |=230:end_=100:do|
000110e0  77 6e 5f 3d 59 25 2d 31  34 30 3a 72 5f 3d 30 3a  |wn_=Y%-140:r_=0:|
000110f0  e3 71 5f 3d 31 b8 32 3a  e3 77 5f 3d 31 b8 34 3a  |.q_=1.2:.w_=1.4:|
00011100  72 5f 3d 72 5f 2b 31 3a  61 5f 24 3d c3 28 61 5f  |r_=r_+1:a_$=.(a_|
00011110  28 72 5f 29 29 3a 61 5f  3d 61 5f 28 72 5f 29 3a  |(r_)):a_=a_(r_):|
00011120  62 5f 24 3d c3 28 62 5f  28 72 5f 29 29 3a 62 5f  |b_$=.(b_(r_)):b_|
00011130  3d 62 5f 28 72 5f 29 3a  63 5f 24 3d c3 28 63 5f  |=b_(r_):c_$=.(c_|
00011140  28 72 5f 29 29 3a ec 6c  65 66 74 5f 2b 65 6e 64  |(r_)):.left_+end|
00011150  5f 2d a9 28 61 5f 24 29  2a 31 36 2d 35 30 2d a9  |_-.(a_$)*16-50-.|
00011160  28 c3 28 72 5f 29 29 2a  31 36 2c 64 6f 77 6e 5f  |(.(r_))*16,down_|
00011170  2d 31 30 30 3a f1 a4 7a  65 72 6f 28 c3 28 72 5f  |-100:..zero(.(r_|
00011180  29 29 3b 22 29 22 0d 60  cc 40 f2 73 70 6c 69 74  |));")".`.@.split|
00011190  5f 28 61 5f 2c 64 6f 77  6e 5f 2d 31 30 30 29 3a  |_(a_,down_-100):|
000111a0  e7 53 69 67 6e 5f 25 3d  b9 ec 6c 65 66 74 5f 2b  |.Sign_%=..left_+|
000111b0  65 6e 64 5f 2b 31 35 2c  64 6f 77 6e 5f 2d 31 30  |end_+15,down_-10|
000111c0  30 3a f1 22 78 22 0d 60  e0 4c f2 73 70 6c 69 74  |0:."x".`.L.split|
000111d0  5f 28 62 5f 2c 64 6f 77  6e 5f 2d 31 34 30 29 3a  |_(b_,down_-140):|
000111e0  e7 53 69 67 6e 5f 25 3d  a3 ec 6c 65 66 74 5f 2b  |.Sign_%=..left_+|
000111f0  65 6e 64 5f 2d a9 28 c3  28 62 5f 29 29 2a 31 36  |end_-.(.(b_))*16|
00011200  2d 32 30 2c 64 6f 77 6e  5f 2d 31 33 35 3a f1 22  |-20,down_-135:."|
00011210  78 22 0d 60 f4 35 61 6e  73 6c 65 6e 5f 3d a9 28  |x".`.5anslen_=.(|
00011220  63 5f 24 29 3a 65 78 74  5f 3d 30 3a e7 61 6e 73  |c_$):ext_=0:.ans|
00011230  6c 65 6e 5f 3e 36 20 65  78 74 5f 3d 65 78 74 5f  |len_>6 ext_=ext_|
00011240  2b 67 61 70 5f 2a 32 0d  61 12 27 e7 61 6e 73 6c  |+gap_*2.a.'.ansl|
00011250  65 6e 5f 3e 33 80 61 6e  73 6c 65 6e 5f 3c 37 20  |en_>3.anslen_<7 |
00011260  65 78 74 5f 3d 65 78 74  5f 2b 67 61 70 5f 0d 61  |ext_=ext_+gap_.a|
00011270  1c 71 ec 6c 65 66 74 5f  2b 65 6e 64 5f 2d 61 6e  |.q.left_+end_-an|
00011280  73 6c 65 6e 5f 2a 31 36  2d 65 78 74 5f 2c 64 6f  |slen_*16-ext_,do|
00011290  77 6e 5f 2d 31 37 30 3a  df 6c 65 66 74 5f 2b 65  |wn_-170:.left_+e|
000112a0  6e 64 5f 2d 61 6e 73 6c  65 6e 5f 2a 31 36 2b 61  |nd_-anslen_*16+a|
000112b0  6e 73 6c 65 6e 5f 2a 31  36 2b 65 78 74 5f 2c 64  |nslen_*16+ext_,d|
000112c0  6f 77 6e 5f 2d 31 37 30  3a e7 41 6e 73 77 65 72  |own_-170:.Answer|
000112d0  5f 25 3d b9 f2 4c 6f 6e  67 4d 75 6c 41 6e 73 0d  |_%=..LongMulAns.|
000112e0  61 30 35 6c 65 66 74 5f  3d 6c 65 66 74 5f 2b 6f  |a05left_=left_+o|
000112f0  6e 5f 3a ed 3a 6c 65 66  74 5f 3d 58 25 2b 38 30  |n_:.:left_=X%+80|
00011300  3a 64 6f 77 6e 5f 3d 64  6f 77 6e 5f 2d 32 39 30  |:down_=down_-290|
00011310  3a ed 3a e1 0d 61 6c 1a  dd f2 4c 6f 6e 67 4d 75  |:.:..al...LongMu|
00011320  6c 41 6e 73 3a e7 4c 6d  61 5f 25 3d b9 8c 0d 61  |lAns:.Lma_%=...a|
00011330  80 59 e7 4c 6f 6e 67 63  68 6f 69 63 65 5f 24 28  |.Y.Longchoice_$(|
00011340  72 5f 29 3d 22 4c 6f 6e  67 4d 75 6c 32 22 84 4c  |r_)="LongMul2".L|
00011350  6f 6e 67 63 68 6f 69 63  65 5f 24 28 72 5f 29 3d  |ongchoice_$(r_)=|
00011360  22 4c 6f 6e 67 4d 75 6c  34 22 84 4c 6f 6e 67 63  |"LongMul4".Longc|
00011370  68 6f 69 63 65 5f 24 28  72 5f 29 3d 22 4c 6f 6e  |hoice_$(r_)="Lon|
00011380  67 4d 75 6c 35 22 8c 0d  61 8a 12 e7 4c 6f 6e 67  |gMul5"..a...Long|
00011390  73 74 79 6c 65 5f 3d 31  8c 0d 61 94 58 64 5f 3d  |style_=1..a.Xd_=|
000113a0  61 5f 2a bb 28 c1 62 5f  24 2c 31 2c 31 29 29 2a  |a_*.(.b_$,1,1))*|
000113b0  31 30 3a f2 73 70 6c 69  74 5f 28 64 5f 2c 64 6f  |10:.split_(d_,do|
000113c0  77 6e 5f 2d 31 38 30 29  3a 65 5f 3d 61 5f 2a bb  |wn_-180):e_=a_*.|
000113d0  28 c1 62 5f 24 2c 32 2c  31 29 29 3a f2 73 70 6c  |(.b_$,2,1)):.spl|
000113e0  69 74 5f 28 65 5f 2c 64  6f 77 6e 5f 2d 32 32 30  |it_(e_,down_-220|
000113f0  29 0d 61 a8 14 cd 3a e7  4c 6f 6e 67 73 74 79 6c  |).a...:.Longstyl|
00011400  65 5f 3d 32 8c 0d 61 bc  58 64 5f 3d 61 5f 2a bb  |e_=2..a.Xd_=a_*.|
00011410  28 c1 62 5f 24 2c 31 2c  31 29 29 2a 31 30 3a f2  |(.b_$,1,1))*10:.|
00011420  73 70 6c 69 74 5f 28 64  5f 2c 64 6f 77 6e 5f 2d  |split_(d_,down_-|
00011430  32 32 30 29 3a 65 5f 3d  61 5f 2a bb 28 c1 62 5f  |220):e_=a_*.(.b_|
00011440  24 2c 32 2c 31 29 29 3a  f2 73 70 6c 69 74 5f 28  |$,2,1)):.split_(|
00011450  65 5f 2c 64 6f 77 6e 5f  2d 31 38 30 29 0d 61 d0  |e_,down_-180).a.|
00011460  d9 cd 3a ec 6c 65 66 74  5f 2b 65 6e 64 5f 2d 61  |..:.left_+end_-a|
00011470  6e 73 6c 65 6e 5f 2a 31  36 2d 31 30 2c 64 6f 77  |nslen_*16-10,dow|
00011480  6e 5f 2d 32 35 32 3a df  6c 65 66 74 5f 2b 65 6e  |n_-252:.left_+en|
00011490  64 5f 2d 61 6e 73 6c 65  6e 5f 2a 31 36 2b 61 6e  |d_-anslen_*16+an|
000114a0  73 6c 65 6e 5f 2a 31 36  2b 67 61 70 5f 2c 64 6f  |slen_*16+gap_,do|
000114b0  77 6e 5f 2d 32 35 32 3a  66 5f 3d 64 5f 2b 65 5f  |wn_-252:f_=d_+e_|
000114c0  3a f2 73 70 6c 69 74 5f  28 66 5f 2c 64 6f 77 6e  |:.split_(f_,down|
000114d0  5f 2d 32 36 30 29 3a e7  53 65 63 41 6e 73 5f 25  |_-260):.SecAns_%|
000114e0  3d b9 ec 6c 65 66 74 5f  2b 65 6e 64 5f 2d 61 6e  |=..left_+end_-an|
000114f0  73 6c 65 6e 5f 2a 31 36  2d 31 30 2c 64 6f 77 6e  |slen_*16-10,down|
00011500  5f 2d 32 39 30 3a df 6c  65 66 74 5f 2b 65 6e 64  |_-290:.left_+end|
00011510  5f 2d 61 6e 73 6c 65 6e  5f 2a 31 36 2b 61 6e 73  |_-anslen_*16+ans|
00011520  6c 65 6e 5f 2a 31 36 2b  67 61 70 5f 2c 64 6f 77  |len_*16+gap_,dow|
00011530  6e 5f 2d 32 39 30 0d 61  f8 3f cd 3a e7 4c 6f 6e  |n_-290.a.?.:.Lon|
00011540  67 63 68 6f 69 63 65 5f  24 28 72 5f 29 3d 22 4c  |gchoice_$(r_)="L|
00011550  6f 6e 67 4d 75 6c 33 22  84 4c 6f 6e 67 63 68 6f  |ongMul3".Longcho|
00011560  69 63 65 5f 24 28 72 5f  29 3d 22 4c 6f 6e 67 4d  |ice_$(r_)="LongM|
00011570  75 6c 31 22 8c 0d 62 0c  8f 64 5f 3d 61 5f 2a bb  |ul1"..b..d_=a_*.|
00011580  28 c1 62 5f 24 2c 31 2c  31 29 29 2a 31 30 3a f2  |(.b_$,1,1))*10:.|
00011590  73 70 6c 69 74 5f 28 64  5f 2c 64 6f 77 6e 5f 2d  |split_(d_,down_-|
000115a0  31 38 30 29 3a e7 53 65  63 41 6e 73 5f 25 3d b9  |180):.SecAns_%=.|
000115b0  ec 6c 65 66 74 5f 2b 65  6e 64 5f 2d 61 6e 73 6c  |.left_+end_-ansl|
000115c0  65 6e 5f 2a 31 36 2d 31  30 2c 64 6f 77 6e 5f 2d  |en_*16-10,down_-|
000115d0  32 31 30 3a df 6c 65 66  74 5f 2b 65 6e 64 5f 2d  |210:.left_+end_-|
000115e0  61 6e 73 6c 65 6e 5f 2a  31 36 2b 61 6e 73 6c 65  |anslen_*16+ansle|
000115f0  6e 5f 2a 31 36 2b 67 61  70 5f 2c 64 6f 77 6e 5f  |n_*16+gap_,down_|
00011600  2d 32 31 30 0d 62 20 23  cd 3a e7 4c 6f 6e 67 63  |-210.b #.:.Longc|
00011610  68 6f 69 63 65 5f 24 28  72 5f 29 3d 22 4c 6f 6e  |hoice_$(r_)="Lon|
00011620  67 4d 75 6c 36 22 8c 0d  62 34 12 e7 4c 6f 6e 67  |gMul6"..b4..Long|
00011630  73 74 79 6c 65 5f 3d 31  8c 0d 62 3e 85 64 5f 3d  |style_=1..b>.d_=|
00011640  61 5f 2a bb 28 c1 62 5f  24 2c 31 2c 31 29 29 2a  |a_*.(.b_$,1,1))*|
00011650  31 30 30 3a f2 73 70 6c  69 74 5f 28 64 5f 2c 64  |100:.split_(d_,d|
00011660  6f 77 6e 5f 2d 31 38 30  29 3a 65 5f 3d 61 5f 2a  |own_-180):e_=a_*|
00011670  bb 28 c1 62 5f 24 2c 32  2c 31 29 29 2a 31 30 3a  |.(.b_$,2,1))*10:|
00011680  f2 73 70 6c 69 74 5f 28  65 5f 2c 64 6f 77 6e 5f  |.split_(e_,down_|
00011690  2d 32 32 30 29 3a 66 5f  3d 61 5f 2a bb 28 c1 62  |-220):f_=a_*.(.b|
000116a0  5f 24 2c 33 2c 31 29 29  3a f2 73 70 6c 69 74 5f  |_$,3,1)):.split_|
000116b0  28 66 5f 2c 64 6f 77 6e  5f 2d 32 36 30 29 0d 62  |(f_,down_-260).b|
000116c0  5c 14 cd 3a e7 4c 6f 6e  67 73 74 79 6c 65 5f 3d  |\..:.Longstyle_=|
000116d0  32 8c 0d 62 70 85 64 5f  3d 61 5f 2a bb 28 c1 62  |2..bp.d_=a_*.(.b|
000116e0  5f 24 2c 31 2c 31 29 29  2a 31 30 30 3a f2 73 70  |_$,1,1))*100:.sp|
000116f0  6c 69 74 5f 28 64 5f 2c  64 6f 77 6e 5f 2d 32 36  |lit_(d_,down_-26|
00011700  30 29 3a 65 5f 3d 61 5f  2a bb 28 c1 62 5f 24 2c  |0):e_=a_*.(.b_$,|
00011710  32 2c 31 29 29 2a 31 30  3a f2 73 70 6c 69 74 5f  |2,1))*10:.split_|
00011720  28 65 5f 2c 64 6f 77 6e  5f 2d 32 32 30 29 3a 66  |(e_,down_-220):f|
00011730  5f 3d 61 5f 2a bb 28 c1  62 5f 24 2c 33 2c 31 29  |_=a_*.(.b_$,3,1)|
00011740  29 3a f2 73 70 6c 69 74  5f 28 66 5f 2c 64 6f 77  |):.split_(f_,dow|
00011750  6e 5f 2d 31 38 30 29 0d  62 8e dc cd 3a ec 6c 65  |n_-180).b...:.le|
00011760  66 74 5f 2b 65 6e 64 5f  2d 61 6e 73 6c 65 6e 5f  |ft_+end_-anslen_|
00011770  2a 31 36 2d 31 30 2c 64  6f 77 6e 5f 2d 32 39 32  |*16-10,down_-292|
00011780  3a df 6c 65 66 74 5f 2b  65 6e 64 5f 2d 61 6e 73  |:.left_+end_-ans|
00011790  6c 65 6e 5f 2a 31 36 2b  61 6e 73 6c 65 6e 5f 2a  |len_*16+anslen_*|
000117a0  31 36 2b 67 61 70 5f 2c  64 6f 77 6e 5f 2d 32 39  |16+gap_,down_-29|
000117b0  32 3a 67 5f 3d 64 5f 2b  65 5f 2b 66 5f 3a f2 73  |2:g_=d_+e_+f_:.s|
000117c0  70 6c 69 74 5f 28 67 5f  2c 64 6f 77 6e 5f 2d 33  |plit_(g_,down_-3|
000117d0  30 30 29 3a e7 53 65 63  41 6e 73 5f 25 3d b9 ec  |00):.SecAns_%=..|
000117e0  6c 65 66 74 5f 2b 65 6e  64 5f 2d 61 6e 73 6c 65  |left_+end_-ansle|
000117f0  6e 5f 2a 31 36 2d 31 30  2c 64 6f 77 6e 5f 2d 33  |n_*16-10,down_-3|
00011800  33 32 3a df 6c 65 66 74  5f 2b 65 6e 64 5f 2d 61  |32:.left_+end_-a|
00011810  6e 73 6c 65 6e 5f 2a 31  36 2b 61 6e 73 6c 65 6e  |nslen_*16+anslen|
00011820  5f 2a 31 36 2b 67 61 70  5f 2c 64 6f 77 6e 5f 2d  |_*16+gap_,down_-|
00011830  33 33 32 0d 62 b6 05 cd  0d 62 c0 81 cc 3a f2 73  |332.b....b...:.s|
00011840  70 6c 69 74 5f 28 63 5f  28 72 5f 29 2c 64 6f 77  |plit_(c_(r_),dow|
00011850  6e 5f 2d 31 38 30 29 3a  e7 53 65 63 41 6e 73 5f  |n_-180):.SecAns_|
00011860  25 3d b9 ec 6c 65 66 74  5f 2b 65 6e 64 5f 2d 61  |%=..left_+end_-a|
00011870  6e 73 6c 65 6e 5f 2a 31  36 2d 65 78 74 5f 2c 64  |nslen_*16-ext_,d|
00011880  6f 77 6e 5f 2d 32 31 30  3a df 6c 65 66 74 5f 2b  |own_-210:.left_+|
00011890  65 6e 64 5f 2d 61 6e 73  6c 65 6e 5f 2a 31 36 2b  |end_-anslen_*16+|
000118a0  61 6e 73 6c 65 6e 5f 2a  31 36 2b 65 78 74 5f 2c  |anslen_*16+ext_,|
000118b0  64 6f 77 6e 5f 2d 32 31  30 0d 62 de 07 cd 3a e1  |down_-210.b...:.|
000118c0  0d 62 fc 36 dd f2 73 70  6c 69 74 5f 28 61 5f 2c  |.b.6..split_(a_,|
000118d0  76 5f 29 3a 67 61 70 5f  3d 36 3a 61 5f 24 3d a4  |v_):gap_=6:a_$=.|
000118e0  7a 65 72 6f 28 c3 28 61  5f 29 29 3a e7 a9 28 61  |zero(.(a_)):..(a|
000118f0  5f 24 29 3e 36 8c 0d 63  1a d9 72 61 5f 24 3d c1  |_$)>6..c..ra_$=.|
00011900  61 5f 24 2c a9 28 61 5f  24 29 2d 32 2c 33 29 3a  |a_$,.(a_$)-2,3):|
00011910  ec 6c 65 66 74 5f 2b 65  6e 64 5f 2d a9 28 72 61  |.left_+end_-.(ra|
00011920  5f 24 29 2a 31 36 2c 76  5f 3a f1 72 61 5f 24 3a  |_$)*16,v_:.ra_$:|
00011930  6d 69 64 5f 24 3d c1 61  5f 24 2c a9 28 61 5f 24  |mid_$=.a_$,.(a_$|
00011940  29 2d 35 2c 33 29 3a ec  6c 65 66 74 5f 2b 65 6e  |)-5,3):.left_+en|
00011950  64 5f 2d a9 28 72 61 5f  24 29 2a 31 36 2d a9 28  |d_-.(ra_$)*16-.(|
00011960  6d 69 64 5f 24 29 2a 31  36 2d 67 61 70 5f 2c 76  |mid_$)*16-gap_,v|
00011970  5f 3a f1 6d 69 64 5f 24  3a 6c 61 5f 24 3d c1 61  |_:.mid_$:la_$=.a|
00011980  5f 24 2c 31 2c a9 28 61  5f 24 29 2d 36 29 3a ec  |_$,1,.(a_$)-6):.|
00011990  6c 65 66 74 5f 2b 65 6e  64 5f 2d a9 28 72 61 5f  |left_+end_-.(ra_|
000119a0  24 29 2a 31 36 2d a9 28  6d 69 64 5f 24 29 2a 31  |$)*16-.(mid_$)*1|
000119b0  36 2d 67 61 70 5f 2d a9  28 6c 61 5f 24 29 2a 31  |6-gap_-.(la_$)*1|
000119c0  36 2d 67 61 70 5f 2c 76  5f 3a f1 6c 61 5f 24 0d  |6-gap_,v_:.la_$.|
000119d0  63 74 19 cd 3a e7 a9 28  61 5f 24 29 3e 33 80 a9  |ct..:..(a_$)>3..|
000119e0  28 61 5f 24 29 3c 37 8c  0d 63 88 7f 72 61 5f 24  |(a_$)<7..c..ra_$|
000119f0  3d c1 61 5f 24 2c a9 28  61 5f 24 29 2d 32 2c 33  |=.a_$,.(a_$)-2,3|
00011a00  29 3a ec 6c 65 66 74 5f  2b 65 6e 64 5f 2d a9 28  |):.left_+end_-.(|
00011a10  72 61 5f 24 29 2a 31 36  2c 76 5f 3a f1 72 61 5f  |ra_$)*16,v_:.ra_|
00011a20  24 3a 6c 61 5f 24 3d c1  61 5f 24 2c 31 2c a9 28  |$:la_$=.a_$,1,.(|
00011a30  61 5f 24 29 2d 33 29 3a  ec 6c 65 66 74 5f 2b 65  |a_$)-3):.left_+e|
00011a40  6e 64 5f 2d a9 28 72 61  5f 24 29 2a 31 36 2d a9  |nd_-.(ra_$)*16-.|
00011a50  28 6c 61 5f 24 29 2a 31  36 2d 67 61 70 5f 2c 76  |(la_$)*16-gap_,v|
00011a60  5f 3a f1 6c 61 5f 24 0d  63 c4 10 cd 3a e7 a9 28  |_:.la_$.c...:..(|
00011a70  61 5f 24 29 3c 34 8c 0d  63 d8 21 ec 6c 65 66 74  |a_$)<4..c.!.left|
00011a80  5f 2b 65 6e 64 5f 2d a9  28 61 5f 24 29 2a 31 36  |_+end_-.(a_$)*16|
00011a90  2c 76 5f 3a f1 61 5f 24  0d 63 ec 07 cd 3a e1 0d  |,v_:.a_$.c...:..|
00011aa0  64 32 4e dd f2 4c 6f 6e  67 44 69 76 79 3a 4c 6f  |d2N..LongDivy:Lo|
00011ab0  6e 67 44 69 76 5f 25 3d  a4 66 57 53 28 22 4c 6f  |ngDiv_%=.fWS("Lo|
00011ac0  6e 67 44 69 76 22 29 3a  e7 4c 6f 6e 67 44 69 76  |ngDiv"):.LongDiv|
00011ad0  5f 28 31 29 f2 73 49 28  4c 6f 6e 67 44 69 76 5f  |_(1).sI(LongDiv_|
00011ae0  25 2c 22 4c 6f 6e 67 44  69 76 31 22 29 0d 64 46  |%,"LongDiv1").dF|
00011af0  29 e7 4c 6f 6e 67 44 69  76 5f 28 32 29 f2 73 49  |).LongDiv_(2).sI|
00011b00  28 4c 6f 6e 67 44 69 76  5f 25 2c 22 4c 6f 6e 67  |(LongDiv_%,"Long|
00011b10  44 69 76 32 22 29 0d 64  50 29 e7 4c 6f 6e 67 44  |Div2").dP).LongD|
00011b20  69 76 5f 28 33 29 f2 73  49 28 4c 6f 6e 67 44 69  |iv_(3).sI(LongDi|
00011b30  76 5f 25 2c 22 4c 6f 6e  67 44 69 76 33 22 29 0d  |v_%,"LongDiv3").|
00011b40  64 5a 29 e7 4c 6f 6e 67  44 69 76 5f 28 34 29 f2  |dZ).LongDiv_(4).|
00011b50  73 49 28 4c 6f 6e 67 44  69 76 5f 25 2c 22 4c 6f  |sI(LongDiv_%,"Lo|
00011b60  6e 67 44 69 76 34 22 29  0d 64 64 29 e7 4c 6f 6e  |ngDiv4").dd).Lon|
00011b70  67 44 69 76 5f 28 35 29  f2 73 49 28 4c 6f 6e 67  |gDiv_(5).sI(Long|
00011b80  44 69 76 5f 25 2c 22 4c  6f 6e 67 44 69 76 35 22  |Div_%,"LongDiv5"|
00011b90  29 0d 64 6e 29 e7 4c 6f  6e 67 44 69 76 5f 28 36  |).dn).LongDiv_(6|
00011ba0  29 f2 73 49 28 4c 6f 6e  67 44 69 76 5f 25 2c 22  |).sI(LongDiv_%,"|
00011bb0  4c 6f 6e 67 44 69 76 36  22 29 0d 64 78 29 e7 4c  |LongDiv6").dx).L|
00011bc0  6f 6e 67 44 69 76 5f 28  37 29 f2 73 49 28 4c 6f  |ongDiv_(7).sI(Lo|
00011bd0  6e 67 44 69 76 5f 25 2c  22 4c 6f 6e 67 44 69 76  |ngDiv_%,"LongDiv|
00011be0  37 22 29 0d 64 82 12 f2  4c 72 65 6d 61 69 6e 64  |7").d...Lremaind|
00011bf0  65 72 73 3a e1 0d 64 a0  6d dd f2 4c 72 65 6d 61  |ers:..d.m..Lrema|
00011c00  69 6e 64 65 72 73 3a e7  4c 52 65 6d 61 69 6e 64  |inders:.LRemaind|
00011c10  65 72 5f 24 3d 22 4e 6f  22 f2 73 49 28 4c 6f 6e  |er_$="No".sI(Lon|
00011c20  67 44 69 76 5f 25 2c 22  4c 44 72 65 6d 31 22 29  |gDiv_%,"LDrem1")|
00011c30  3a f2 75 73 49 28 4c 6f  6e 67 44 69 76 5f 25 2c  |:.usI(LongDiv_%,|
00011c40  22 4c 44 72 65 6d 32 22  29 3a f2 75 73 49 28 4c  |"LDrem2"):.usI(L|
00011c50  6f 6e 67 44 69 76 5f 25  2c 22 4c 44 72 65 6d 33  |ongDiv_%,"LDrem3|
00011c60  22 29 0d 64 b4 60 e7 4c  52 65 6d 61 69 6e 64 65  |").d.`.LRemainde|
00011c70  72 5f 24 3d 22 41 6c 6c  22 f2 75 73 49 28 4c 6f  |r_$="All".usI(Lo|
00011c80  6e 67 44 69 76 5f 25 2c  22 4c 44 72 65 6d 31 22  |ngDiv_%,"LDrem1"|
00011c90  29 3a f2 73 49 28 4c 6f  6e 67 44 69 76 5f 25 2c  |):.sI(LongDiv_%,|
00011ca0  22 4c 44 72 65 6d 32 22  29 3a f2 75 73 49 28 4c  |"LDrem2"):.usI(L|
00011cb0  6f 6e 67 44 69 76 5f 25  2c 22 4c 44 72 65 6d 33  |ongDiv_%,"LDrem3|
00011cc0  22 29 0d 64 be 60 e7 4c  52 65 6d 61 69 6e 64 65  |").d.`.LRemainde|
00011cd0  72 5f 24 3d 22 52 61 6e  22 f2 75 73 49 28 4c 6f  |r_$="Ran".usI(Lo|
00011ce0  6e 67 44 69 76 5f 25 2c  22 4c 44 72 65 6d 31 22  |ngDiv_%,"LDrem1"|
00011cf0  29 3a f2 75 73 49 28 4c  6f 6e 67 44 69 76 5f 25  |):.usI(LongDiv_%|
00011d00  2c 22 4c 44 72 65 6d 32  22 29 3a f2 73 49 28 4c  |,"LDrem2"):.sI(L|
00011d10  6f 6e 67 44 69 76 5f 25  2c 22 4c 44 72 65 6d 33  |ongDiv_%,"LDrem3|
00011d20  22 29 0d 64 c8 05 e1 0d  64 f0 2f dd a4 4c 44 72  |").d....d./..LDr|
00011d30  65 6d 31 5f 3a 4c 52 65  6d 61 69 6e 64 65 72 5f  |em1_:LRemainder_|
00011d40  24 3d 22 4e 6f 22 3a f2  4c 72 65 6d 61 69 6e 64  |$="No":.Lremaind|
00011d50  65 72 73 3a 3d b9 0d 64  fa 30 dd a4 4c 44 72 65  |ers:=..d.0..LDre|
00011d60  6d 32 5f 3a 4c 52 65 6d  61 69 6e 64 65 72 5f 24  |m2_:LRemainder_$|
00011d70  3d 22 41 6c 6c 22 3a f2  4c 72 65 6d 61 69 6e 64  |="All":.Lremaind|
00011d80  65 72 73 3a 3d b9 0d 65  04 30 dd a4 4c 44 72 65  |ers:=..e.0..LDre|
00011d90  6d 33 5f 3a 4c 52 65 6d  61 69 6e 64 65 72 5f 24  |m3_:LRemainder_$|
00011da0  3d 22 52 61 6e 22 3a f2  4c 72 65 6d 61 69 6e 64  |="Ran":.Lremaind|
00011db0  65 72 73 3a 3d b9 0d 65  0e 31 dd a4 4c 6f 6e 67  |ers:=..e.1..Long|
00011dc0  64 69 76 76 5f 3a 63 5f  3d 30 3a e3 68 5f 3d 31  |divv_:c_=0:.h_=1|
00011dd0  b8 37 3a e7 4c 6f 6e 67  44 69 76 5f 28 68 5f 29  |.7:.LongDiv_(h_)|
00011de0  63 5f 3d 63 5f 2b 31 0d  65 18 09 ed 3a 3d 63 5f  |c_=c_+1.e...:=c_|
00011df0  0d 65 22 54 dd a4 4c 6f  6e 67 44 69 76 31 5f 3a  |.e"T..LongDiv1_:|
00011e00  e7 4c 6f 6e 67 44 69 76  5f 28 31 29 80 a4 4c 6f  |.LongDiv_(1)..Lo|
00011e10  6e 67 64 69 76 76 5f 3d  31 20 4c 6f 6e 67 44 69  |ngdivv_=1 LongDi|
00011e20  76 5f 28 31 29 3d b9 3a  f2 73 49 28 4c 6f 6e 67  |v_(1)=.:.sI(Long|
00011e30  44 69 76 5f 25 2c 22 4c  6f 6e 67 44 69 76 31 22  |Div_%,"LongDiv1"|
00011e40  29 3a 3d a3 0d 65 2c 2b  e7 4c 6f 6e 67 44 69 76  |):=..e,+.LongDiv|
00011e50  5f 28 31 29 4c 6f 6e 67  44 69 76 5f 28 31 29 3d  |_(1)LongDiv_(1)=|
00011e60  a3 8b 4c 6f 6e 67 44 69  76 5f 28 31 29 3d b9 0d  |..LongDiv_(1)=..|
00011e70  65 36 06 3d b9 0d 65 40  54 dd a4 4c 6f 6e 67 44  |e6.=..e@T..LongD|
00011e80  69 76 32 5f 3a e7 4c 6f  6e 67 44 69 76 5f 28 32  |iv2_:.LongDiv_(2|
00011e90  29 80 a4 4c 6f 6e 67 64  69 76 76 5f 3d 31 20 4c  |)..Longdivv_=1 L|
00011ea0  6f 6e 67 44 69 76 5f 28  32 29 3d b9 3a f2 73 49  |ongDiv_(2)=.:.sI|
00011eb0  28 4c 6f 6e 67 44 69 76  5f 25 2c 22 4c 6f 6e 67  |(LongDiv_%,"Long|
00011ec0  44 69 76 32 22 29 3a 3d  a3 0d 65 4a 2b e7 4c 6f  |Div2"):=..eJ+.Lo|
00011ed0  6e 67 44 69 76 5f 28 32  29 4c 6f 6e 67 44 69 76  |ngDiv_(2)LongDiv|
00011ee0  5f 28 32 29 3d a3 8b 4c  6f 6e 67 44 69 76 5f 28  |_(2)=..LongDiv_(|
00011ef0  32 29 3d b9 0d 65 54 06  3d b9 0d 65 5e 54 dd a4  |2)=..eT.=..e^T..|
00011f00  4c 6f 6e 67 44 69 76 33  5f 3a e7 4c 6f 6e 67 44  |LongDiv3_:.LongD|
00011f10  69 76 5f 28 33 29 80 a4  4c 6f 6e 67 64 69 76 76  |iv_(3)..Longdivv|
00011f20  5f 3d 31 20 4c 6f 6e 67  44 69 76 5f 28 33 29 3d  |_=1 LongDiv_(3)=|
00011f30  b9 3a f2 73 49 28 4c 6f  6e 67 44 69 76 5f 25 2c  |.:.sI(LongDiv_%,|
00011f40  22 4c 6f 6e 67 44 69 76  33 22 29 3a 3d a3 0d 65  |"LongDiv3"):=..e|
00011f50  68 2b e7 4c 6f 6e 67 44  69 76 5f 28 33 29 4c 6f  |h+.LongDiv_(3)Lo|
00011f60  6e 67 44 69 76 5f 28 33  29 3d a3 8b 4c 6f 6e 67  |ngDiv_(3)=..Long|
00011f70  44 69 76 5f 28 33 29 3d  b9 0d 65 72 06 3d b9 0d  |Div_(3)=..er.=..|
00011f80  65 7c 54 dd a4 4c 6f 6e  67 44 69 76 34 5f 3a e7  |e|T..LongDiv4_:.|
00011f90  4c 6f 6e 67 44 69 76 5f  28 34 29 80 a4 4c 6f 6e  |LongDiv_(4)..Lon|
00011fa0  67 64 69 76 76 5f 3d 31  20 4c 6f 6e 67 44 69 76  |gdivv_=1 LongDiv|
00011fb0  5f 28 34 29 3d b9 3a f2  73 49 28 4c 6f 6e 67 44  |_(4)=.:.sI(LongD|
00011fc0  69 76 5f 25 2c 22 4c 6f  6e 67 44 69 76 34 22 29  |iv_%,"LongDiv4")|
00011fd0  3a 3d a3 0d 65 86 2b e7  4c 6f 6e 67 44 69 76 5f  |:=..e.+.LongDiv_|
00011fe0  28 34 29 4c 6f 6e 67 44  69 76 5f 28 34 29 3d a3  |(4)LongDiv_(4)=.|
00011ff0  8b 4c 6f 6e 67 44 69 76  5f 28 34 29 3d b9 0d 65  |.LongDiv_(4)=..e|
00012000  90 06 3d b9 0d 65 9a 54  dd a4 4c 6f 6e 67 44 69  |..=..e.T..LongDi|
00012010  76 35 5f 3a e7 4c 6f 6e  67 44 69 76 5f 28 35 29  |v5_:.LongDiv_(5)|
00012020  80 a4 4c 6f 6e 67 64 69  76 76 5f 3d 31 20 4c 6f  |..Longdivv_=1 Lo|
00012030  6e 67 44 69 76 5f 28 35  29 3d b9 3a f2 73 49 28  |ngDiv_(5)=.:.sI(|
00012040  4c 6f 6e 67 44 69 76 5f  25 2c 22 4c 6f 6e 67 44  |LongDiv_%,"LongD|
00012050  69 76 35 22 29 3a 3d a3  0d 65 a4 2b e7 4c 6f 6e  |iv5"):=..e.+.Lon|
00012060  67 44 69 76 5f 28 35 29  4c 6f 6e 67 44 69 76 5f  |gDiv_(5)LongDiv_|
00012070  28 35 29 3d a3 8b 4c 6f  6e 67 44 69 76 5f 28 35  |(5)=..LongDiv_(5|
00012080  29 3d b9 0d 65 ae 06 3d  b9 0d 65 b8 54 dd a4 4c  |)=..e..=..e.T..L|
00012090  6f 6e 67 44 69 76 36 5f  3a e7 4c 6f 6e 67 44 69  |ongDiv6_:.LongDi|
000120a0  76 5f 28 36 29 80 a4 4c  6f 6e 67 64 69 76 76 5f  |v_(6)..Longdivv_|
000120b0  3d 31 20 4c 6f 6e 67 44  69 76 5f 28 36 29 3d b9  |=1 LongDiv_(6)=.|
000120c0  3a f2 73 49 28 4c 6f 6e  67 44 69 76 5f 25 2c 22  |:.sI(LongDiv_%,"|
000120d0  4c 6f 6e 67 44 69 76 36  22 29 3a 3d a3 0d 65 c2  |LongDiv6"):=..e.|
000120e0  2b e7 4c 6f 6e 67 44 69  76 5f 28 36 29 4c 6f 6e  |+.LongDiv_(6)Lon|
000120f0  67 44 69 76 5f 28 36 29  3d a3 8b 4c 6f 6e 67 44  |gDiv_(6)=..LongD|
00012100  69 76 5f 28 36 29 3d b9  0d 65 cc 06 3d b9 0d 65  |iv_(6)=..e..=..e|
00012110  d6 54 dd a4 4c 6f 6e 67  44 69 76 37 5f 3a e7 4c  |.T..LongDiv7_:.L|
00012120  6f 6e 67 44 69 76 5f 28  37 29 80 a4 4c 6f 6e 67  |ongDiv_(7)..Long|
00012130  64 69 76 76 5f 3d 31 20  4c 6f 6e 67 44 69 76 5f  |divv_=1 LongDiv_|
00012140  28 37 29 3d b9 3a f2 73  49 28 4c 6f 6e 67 44 69  |(7)=.:.sI(LongDi|
00012150  76 5f 25 2c 22 4c 6f 6e  67 44 69 76 37 22 29 3a  |v_%,"LongDiv7"):|
00012160  3d a3 0d 65 e0 2b e7 4c  6f 6e 67 44 69 76 5f 28  |=..e.+.LongDiv_(|
00012170  37 29 4c 6f 6e 67 44 69  76 5f 28 37 29 3d a3 8b  |7)LongDiv_(7)=..|
00012180  4c 6f 6e 67 44 69 76 5f  28 37 29 3d b9 0d 65 ea  |LongDiv_(7)=..e.|
00012190  06 3d b9 0d 66 12 8a dd  a4 4c 6f 6e 67 44 69 76  |.=..f....LongDiv|
000121a0  67 6f 5f 3a f2 47 65 74  54 69 74 6c 65 73 3a 64  |go_:.GetTitles:d|
000121b0  75 6d 6d 79 5f 3d b3 28  2d 91 29 3a c8 99 22 48  |ummy_=.(-.):.."H|
000121c0  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 3a 66 6c 61  |ourglass_On":fla|
000121d0  67 5f 3d a3 3a 72 61 6e  64 69 5f 25 3d b3 28 32  |g_=.:randi_%=.(2|
000121e0  29 3a 67 6f 74 5f 25 3d  30 3a e3 79 5f 3d 31 b8  |):got_%=0:.y_=1.|
000121f0  37 3a e7 4c 6f 6e 67 44  69 76 5f 28 79 5f 29 3d  |7:.LongDiv_(y_)=|
00012200  b9 67 6f 74 5f 25 3d 67  6f 74 5f 25 2b 31 3a 67  |.got_%=got_%+1:g|
00012210  63 5f 25 28 67 6f 74 5f  25 29 3d 79 5f 0d 66 30  |c_%(got_%)=y_.f0|
00012220  0f ed 3a e7 67 6f 74 5f  25 3d 31 8c 0d 66 44 23  |..:.got_%=1..fD#|
00012230  e3 68 5f 3d 31 b8 38 3a  66 72 6f 63 5f 28 68 5f  |.h_=1.8:froc_(h_|
00012240  29 3d 67 63 5f 25 28 67  6f 74 5f 25 29 3a ed 0d  |)=gc_%(got_%):..|
00012250  66 4e 0f cd 3a e7 67 6f  74 5f 25 3e 31 8c 0d 66  |fN..:.got_%>1..f|
00012260  62 a7 f5 3a 66 6c 61 67  5f 3d b9 3a e3 72 5f 3d  |b..:flag_=.:.r_=|
00012270  31 b8 38 3a 66 69 6e 64  65 72 5f 25 28 72 5f 29  |1.8:finder_%(r_)|
00012280  3d 30 3a ed 3a 6e 65 65  64 65 64 5f 25 3d 38 81  |=0:.:needed_%=8.|
00012290  67 6f 74 5f 25 3a e3 68  5f 3d 31 b8 38 3a 72 5f  |got_%:.h_=1.8:r_|
000122a0  3d b3 28 67 6f 74 5f 25  29 3a 66 72 6f 63 5f 28  |=.(got_%):froc_(|
000122b0  68 5f 29 3d 67 63 5f 25  28 72 5f 29 3a 66 69 6e  |h_)=gc_%(r_):fin|
000122c0  64 65 72 5f 25 28 72 5f  29 3d 66 69 6e 64 65 72  |der_%(r_)=finder|
000122d0  5f 25 28 72 5f 29 2b 31  3a ed 3a e3 72 5f 3d 31  |_%(r_)+1:.:.r_=1|
000122e0  b8 67 6f 74 5f 25 3a e7  66 69 6e 64 65 72 5f 25  |.got_%:.finder_%|
000122f0  28 72 5f 29 3c 6e 65 65  64 65 64 5f 25 20 66 6c  |(r_)<needed_% fl|
00012300  61 67 5f 3d a3 0d 66 bc  0e ed 3a fd 66 6c 61 67  |ag_=..f...:.flag|
00012310  5f 3d b9 0d 66 d0 65 cd  3a e3 74 5f 3d 31 b8 36  |_=..f.e.:.t_=1.6|
00012320  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 50 65  |:.."Hourglass_Pe|
00012330  72 63 65 6e 74 61 67 65  22 2c 74 5f 2f 36 2a 31  |rcentage",t_/6*1|
00012340  30 30 3a e7 66 72 6f 63  5f 28 74 5f 29 3d 31 20  |00:.froc_(t_)=1 |
00012350  6d 61 78 5f 3d 39 39 39  3a 6d 69 6e 5f 3d 31 30  |max_=999:min_=10|
00012360  30 3a 64 69 76 5f 3d 39  30 3a 6d 69 6e 6e 5f 3d  |0:div_=90:minn_=|
00012370  30 3a 6d 6f 64 5f 3d b9  0d 66 ee 3a e7 66 72 6f  |0:mod_=..f.:.fro|
00012380  63 5f 28 74 5f 29 3d 32  20 6d 61 78 5f 3d 39 39  |c_(t_)=2 max_=99|
00012390  39 3a 6d 69 6e 5f 3d 31  30 30 3a 64 69 76 5f 3d  |9:min_=100:div_=|
000123a0  39 39 3a 6d 69 6e 6e 5f  3d 31 30 3a 6d 6f 64 5f  |99:minn_=10:mod_|
000123b0  3d a3 0d 66 f8 3c e7 66  72 6f 63 5f 28 74 5f 29  |=..f.<.froc_(t_)|
000123c0  3d 33 20 6d 61 78 5f 3d  39 39 39 39 3a 6d 69 6e  |=3 max_=9999:min|
000123d0  5f 3d 31 30 30 30 3a 64  69 76 5f 3d 39 30 3a 6d  |_=1000:div_=90:m|
000123e0  69 6e 6e 5f 3d 31 30 3a  6d 6f 64 5f 3d b9 0d 67  |inn_=10:mod_=..g|
000123f0  02 3c e7 66 72 6f 63 5f  28 74 5f 29 3d 34 20 6d  |.<.froc_(t_)=4 m|
00012400  61 78 5f 3d 39 39 39 39  3a 6d 69 6e 5f 3d 31 30  |ax_=9999:min_=10|
00012410  30 30 3a 64 69 76 5f 3d  39 39 3a 6d 69 6e 6e 5f  |00:div_=99:minn_|
00012420  3d 31 30 3a 6d 6f 64 5f  3d a3 0d 67 0c 3e e7 66  |=10:mod_=..g.>.f|
00012430  72 6f 63 5f 28 74 5f 29  3d 35 20 6d 61 78 5f 3d  |roc_(t_)=5 max_=|
00012440  39 39 39 39 39 3a 6d 69  6e 5f 3d 31 30 30 30 30  |99999:min_=10000|
00012450  3a 64 69 76 5f 3d 39 39  3a 6d 69 6e 6e 5f 3d 31  |:div_=99:minn_=1|
00012460  30 3a 6d 6f 64 5f 3d a3  0d 67 16 40 e7 66 72 6f  |0:mod_=..g.@.fro|
00012470  63 5f 28 74 5f 29 3d 36  20 6d 61 78 5f 3d 39 39  |c_(t_)=6 max_=99|
00012480  39 39 39 39 3a 6d 69 6e  5f 3d 31 30 30 30 30 30  |9999:min_=100000|
00012490  3a 64 69 76 5f 3d 39 39  3a 6d 69 6e 6e 5f 3d 31  |:div_=99:minn_=1|
000124a0  30 3a 6d 6f 64 5f 3d a3  0d 67 20 42 e7 66 72 6f  |0:mod_=..g B.fro|
000124b0  63 5f 28 74 5f 29 3d 37  20 6d 61 78 5f 3d 39 39  |c_(t_)=7 max_=99|
000124c0  39 39 39 39 3a 6d 69 6e  5f 3d 31 30 30 30 30 30  |9999:min_=100000|
000124d0  3a 64 69 76 5f 3d 39 39  39 3a 6d 69 6e 6e 5f 3d  |:div_=999:minn_=|
000124e0  31 30 30 3a 6d 6f 64 5f  3d a3 0d 67 2a 71 f2 77  |100:mod_=..g*q.w|
000124f0  6f 72 6b 6c 6f 6e 67 44  31 3a ed 3a c8 99 22 48  |orklongD1:.:.."H|
00012500  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 3a f2 75  |ourglass_Off":.u|
00012510  73 49 28 4c 6f 6e 67 44  69 76 5f 25 2c 22 4c 6f  |sI(LongDiv_%,"Lo|
00012520  6e 67 44 69 76 67 6f 22  29 3a 73 74 61 72 74 65  |ngDivgo"):starte|
00012530  64 5f 25 3d b9 3a 6c 61  73 74 5f 3d 33 3a 71 75  |d_%=.:last_=3:qu|
00012540  69 74 5f 3d a3 3a 43 6c  75 65 5f 24 3d 22 4c 44  |it_=.:Clue_$="LD|
00012550  69 76 79 22 3a 3d a4 73  75 6d 73 0d 67 52 12 dd  |ivy":=.sums.gR..|
00012560  f2 4c 64 75 70 73 3a e7  74 5f 3e 31 8c 0d 67 66  |.Ldups:.t_>1..gf|
00012570  22 e3 67 67 5f 3d 31 b8  74 5f 2d 31 3a e7 62 5f  |".gg_=1.t_-1:.b_|
00012580  3d 62 5f 28 67 67 5f 29  66 6c 61 67 5f 3d a3 0d  |=b_(gg_)flag_=..|
00012590  67 70 05 ed 0d 67 7a 07  cd 3a e1 0d 67 8e 27 dd  |gp...gz..:..g.'.|
000125a0  f2 77 6f 72 6b 6c 6f 6e  67 44 31 3a e7 4c 52 65  |.worklongD1:.LRe|
000125b0  6d 61 69 6e 64 65 72 5f  24 3d 22 4e 6f 22 f2 6c  |mainder_$="No".l|
000125c0  64 65 0d 67 a2 1b e7 4c  52 65 6d 61 69 6e 64 65  |de.g...LRemainde|
000125d0  72 5f 24 3d 22 41 6c 6c  22 f2 6c 64 66 0d 67 ac  |r_$="All".ldf.g.|
000125e0  18 e7 4c 52 65 6d 61 69  6e 64 65 72 5f 24 3d 22  |..LRemainder_$="|
000125f0  52 61 6e 22 8c 0d 67 b6  24 72 61 6e 64 69 5f 25  |Ran"..g.$randi_%|
00012600  3d b3 28 32 29 3a e7 72  61 6e 64 69 5f 25 3d 31  |=.(2):.randi_%=1|
00012610  f2 6c 64 65 8b f2 6c 64  66 0d 67 ca 37 cd 3a 61  |.lde..ldf.g.7.:a|
00012620  5f 28 74 5f 29 3d 61 5f  3a 62 5f 28 74 5f 29 3d  |_(t_)=a_:b_(t_)=|
00012630  62 5f 3a 63 5f 28 74 5f  29 3d 61 5f 81 62 5f 3a  |b_:c_(t_)=a_.b_:|
00012640  72 65 6d 5f 28 74 5f 29  3d 61 5f 83 62 5f 3a e1  |rem_(t_)=a_.b_:.|
00012650  0d 67 f2 6f dd f2 6c 64  65 3a f5 3a f5 3a 66 6c  |.g.o..lde:.:.:fl|
00012660  61 67 5f 3d b9 3a f5 3a  61 5f 3d b3 28 6d 61 78  |ag_=.:.:a_=.(max|
00012670  5f 29 3a fd 61 5f 3e 6d  69 6e 5f 3a e7 6d 6f 64  |_):.a_>min_:.mod|
00012680  5f 3d b9 f5 62 5f 3d b3  28 64 69 76 5f 29 3a fd  |_=..b_=.(div_):.|
00012690  62 5f 83 31 30 3d 30 80  62 5f 3e 6d 69 6e 6e 5f  |b_.10=0.b_>minn_|
000126a0  8b f5 62 5f 3d b3 28 64  69 76 5f 29 3a fd 62 5f  |..b_=.(div_):.b_|
000126b0  83 31 30 3c 3e 30 80 62  5f 3e 6d 69 6e 6e 5f 0d  |.10<>0.b_>minn_.|
000126c0  68 24 1e fd 61 5f 83 62  5f 3d 30 3a f2 4c 64 75  |h$..a_.b_=0:.Ldu|
000126d0  70 73 3a fd 66 6c 61 67  5f 3d b9 3a e1 0d 68 56  |ps:.flag_=.:..hV|
000126e0  6f dd f2 6c 64 66 3a f5  3a f5 3a 66 6c 61 67 5f  |o..ldf:.:.:flag_|
000126f0  3d b9 3a f5 3a 61 5f 3d  b3 28 6d 61 78 5f 29 3a  |=.:.:a_=.(max_):|
00012700  fd 61 5f 3e 6d 69 6e 5f  3a e7 6d 6f 64 5f 3d b9  |.a_>min_:.mod_=.|
00012710  f5 62 5f 3d b3 28 64 69  76 5f 29 3a fd 62 5f 83  |.b_=.(div_):.b_.|
00012720  31 30 3d 30 80 62 5f 3e  6d 69 6e 6e 5f 8b f5 62  |10=0.b_>minn_..b|
00012730  5f 3d b3 28 64 69 76 5f  29 3a fd 62 5f 83 31 30  |_=.(div_):.b_.10|
00012740  3c 3e 30 80 62 5f 3e 6d  69 6e 6e 5f 0d 68 92 3f  |<>0.b_>minn_.h.?|
00012750  63 5f 3d 61 5f 2f 62 5f  3a 63 5f 24 3d c3 28 63  |c_=a_/b_:c_$=.(c|
00012760  5f 29 3a e3 63 63 5f 3d  31 b8 a9 28 63 5f 24 29  |_):.cc_=1..(c_$)|
00012770  3a e7 c1 63 5f 24 2c 63  63 5f 2c 31 29 3d 22 2e  |:..c_$,cc_,1)=".|
00012780  22 20 70 6f 69 6e 5f 3d  63 63 5f 0d 68 a6 67 ed  |" poin_=cc_.h.g.|
00012790  3a 63 7a 5f 24 3d c1 63  5f 24 2c 70 6f 69 6e 5f  |:cz_$=.c_$,poin_|
000127a0  2b 31 2c a9 28 63 5f 24  29 2d 70 6f 69 6e 5f 2b  |+1,.(c_$)-poin_+|
000127b0  31 29 3a e7 a9 28 63 7a  5f 24 29 3e 70 77 6f 6e  |1):..(cz_$)>pwon|
000127c0  5f 80 c1 63 7a 5f 24 2c  70 77 6f 6e 5f 2c 31 29  |_..cz_$,pwon_,1)|
000127d0  3d 22 39 22 80 bb 28 c1  63 7a 5f 24 2c 70 77 6f  |="9"..(.cz_$,pwo|
000127e0  6e 5f 2b 31 2c 31 29 29  3e 34 20 66 6c 61 67 5f  |n_+1,1))>4 flag_|
000127f0  3d a3 0d 68 c4 3b fd 61  5f 83 62 5f 3c 3e 30 80  |=..h.;.a_.b_<>0.|
00012800  66 6c 61 67 5f 3d b9 3a  e7 a9 28 63 7a 5f 24 29  |flag_=.:..(cz_$)|
00012810  3e 70 77 6f 6e 5f 80 bb  28 c1 63 7a 5f 24 2c 70  |>pwon_..(.cz_$,p|
00012820  77 6f 6e 5f 2b 31 2c 31  29 29 3e 34 8c 0d 68 e2  |won_+1,1))>4..h.|
00012830  3d 64 5f 3d bb 28 c1 63  7a 5f 24 2c 70 77 6f 6e  |=d_=.(.cz_$,pwon|
00012840  5f 2c 31 29 29 3a 64 5f  3d 64 5f 2b 31 3a 64 5f  |_,1)):d_=d_+1:d_|
00012850  24 3d c3 28 64 5f 29 3a  c1 63 7a 5f 24 2c 70 77  |$=.(d_):.cz_$,pw|
00012860  6f 6e 5f 2c 31 29 3d 64  5f 24 0d 68 f6 32 cd 3a  |on_,1)=d_$.h.2.:|
00012870  e7 a9 28 63 7a 5f 24 29  3c 70 77 6f 6e 5f 20 63  |..(cz_$)<pwon_ c|
00012880  7a 5f 24 3d 63 7a 5f 24  2b c4 70 77 6f 6e 5f 2d  |z_$=cz_$+.pwon_-|
00012890  a9 28 63 7a 5f 24 29 2c  22 30 22 29 0d 69 0a 2d  |.(cz_$),"0").i.-|
000128a0  63 7a 5f 24 28 74 5f 29  3d c1 63 7a 5f 24 2c 31  |cz_$(t_)=.cz_$,1|
000128b0  2c 70 77 6f 6e 5f 29 3a  f2 4c 64 75 70 73 3a fd  |,pwon_):.Ldups:.|
000128c0  66 6c 61 67 5f 3d b9 3a  e1 0d 69 64 3c dd f2 4d  |flag_=.:..id<..M|
000128d0  61 64 64 3a 4d 61 64 64  5f 25 3d a4 66 57 53 28  |add:Madd_%=.fWS(|
000128e0  22 4d 61 64 64 22 29 3a  e7 6d 61 64 64 79 5f 28  |"Madd"):.maddy_(|
000128f0  31 29 f2 73 49 28 4d 61  64 64 5f 25 2c 22 4d 61  |1).sI(Madd_%,"Ma|
00012900  64 64 31 22 29 0d 69 78  21 e7 6d 61 64 64 79 5f  |dd1").ix!.maddy_|
00012910  28 32 29 f2 73 49 28 4d  61 64 64 5f 25 2c 22 4d  |(2).sI(Madd_%,"M|
00012920  61 64 64 32 22 29 0d 69  82 21 e7 6d 61 64 64 79  |add2").i.!.maddy|
00012930  5f 28 33 29 f2 73 49 28  4d 61 64 64 5f 25 2c 22  |_(3).sI(Madd_%,"|
00012940  4d 61 64 64 33 22 29 0d  69 8c 21 e7 6d 61 64 64  |Madd3").i.!.madd|
00012950  79 5f 28 34 29 f2 73 49  28 4d 61 64 64 5f 25 2c  |y_(4).sI(Madd_%,|
00012960  22 4d 61 64 64 34 22 29  0d 69 96 21 e7 6d 61 64  |"Madd4").i.!.mad|
00012970  64 79 5f 28 35 29 f2 73  49 28 4d 61 64 64 5f 25  |dy_(5).sI(Madd_%|
00012980  2c 22 4d 61 64 64 35 22  29 0d 69 a0 21 e7 6d 61  |,"Madd5").i.!.ma|
00012990  64 64 79 5f 28 36 29 f2  73 49 28 4d 61 64 64 5f  |ddy_(6).sI(Madd_|
000129a0  25 2c 22 4d 61 64 64 36  22 29 0d 69 aa 1c e7 6d  |%,"Madd6").i...m|
000129b0  74 5f 28 31 29 f2 73 49  28 4d 61 64 64 5f 25 2c  |t_(1).sI(Madd_%,|
000129c0  22 6d 74 31 22 29 0d 69  b4 1c e7 6d 74 5f 28 32  |"mt1").i...mt_(2|
000129d0  29 f2 73 49 28 4d 61 64  64 5f 25 2c 22 6d 74 32  |).sI(Madd_%,"mt2|
000129e0  22 29 0d 69 be 1c e7 6d  74 5f 28 33 29 f2 73 49  |").i...mt_(3).sI|
000129f0  28 4d 61 64 64 5f 25 2c  22 6d 74 33 22 29 0d 69  |(Madd_%,"mt3").i|
00012a00  c8 1c e7 6d 74 5f 28 34  29 f2 73 49 28 4d 61 64  |...mt_(4).sI(Mad|
00012a10  64 5f 25 2c 22 6d 74 34  22 29 0d 69 d2 1c e7 6d  |d_%,"mt4").i...m|
00012a20  74 5f 28 35 29 f2 73 49  28 4d 61 64 64 5f 25 2c  |t_(5).sI(Madd_%,|
00012a30  22 6d 74 35 22 29 0d 69  dc 1c e7 6d 74 5f 28 36  |"mt5").i...mt_(6|
00012a40  29 f2 73 49 28 4d 61 64  64 5f 25 2c 22 6d 74 36  |).sI(Madd_%,"mt6|
00012a50  22 29 0d 69 e6 0f f2 6d  61 64 63 61 72 72 79 3a  |").i...madcarry:|
00012a60  e1 0d 6a 04 63 dd f2 6d  61 64 63 61 72 72 79 3a  |..j.c..madcarry:|
00012a70  e7 6d 61 64 64 63 61 72  72 79 5f 24 3d 22 4e 6f  |.maddcarry_$="No|
00012a80  22 f2 73 49 28 4d 61 64  64 5f 25 2c 22 6d 63 61  |".sI(Madd_%,"mca|
00012a90  72 72 79 31 22 29 3a f2  75 73 49 28 4d 61 64 64  |rry1"):.usI(Madd|
00012aa0  5f 25 2c 22 6d 63 61 72  72 79 32 22 29 3a f2 75  |_%,"mcarry2"):.u|
00012ab0  73 49 28 4d 61 64 64 5f  25 2c 22 6d 63 61 72 72  |sI(Madd_%,"mcarr|
00012ac0  79 33 22 29 0d 6a 18 59  e7 6d 61 64 64 63 61 72  |y3").j.Y.maddcar|
00012ad0  72 79 5f 24 3d 22 41 6c  6c 22 f2 75 73 49 28 4d  |ry_$="All".usI(M|
00012ae0  61 64 64 5f 25 2c 22 6d  63 61 72 72 79 31 22 29  |add_%,"mcarry1")|
00012af0  3a f2 73 49 28 4d 61 64  64 5f 25 2c 22 6d 63 61  |:.sI(Madd_%,"mca|
00012b00  72 72 79 32 22 29 3a f2  75 73 49 28 4d 61 64 64  |rry2"):.usI(Madd|
00012b10  5f 25 2c 22 6d 63 61 72  72 79 33 22 29 0d 6a 22  |_%,"mcarry3").j"|
00012b20  59 e7 6d 61 64 64 63 61  72 72 79 5f 24 3d 22 52  |Y.maddcarry_$="R|
00012b30  61 6e 22 f2 75 73 49 28  4d 61 64 64 5f 25 2c 22  |an".usI(Madd_%,"|
00012b40  6d 63 61 72 72 79 31 22  29 3a f2 75 73 49 28 4d  |mcarry1"):.usI(M|
00012b50  61 64 64 5f 25 2c 22 6d  63 61 72 72 79 32 22 29  |add_%,"mcarry2")|
00012b60  3a f2 73 49 28 4d 61 64  64 5f 25 2c 22 6d 63 61  |:.sI(Madd_%,"mca|
00012b70  72 72 79 33 22 29 0d 6a  2c 05 e1 0d 6a 54 2c dd  |rry3").j,...jT,.|
00012b80  a4 6d 61 64 64 79 5f 3a  63 5f 3d 30 3a e3 68 5f  |.maddy_:c_=0:.h_|
00012b90  3d 31 b8 36 3a e7 6d 61  64 64 79 5f 28 68 5f 29  |=1.6:.maddy_(h_)|
00012ba0  63 5f 3d 63 5f 2b 31 0d  6a 5e 09 ed 3a 3d 63 5f  |c_=c_+1.j^..:=c_|
00012bb0  0d 6a 68 44 dd a4 4d 61  64 64 31 5f 3a e7 6d 61  |.jhD..Madd1_:.ma|
00012bc0  64 64 79 5f 28 31 29 80  a4 6d 61 64 64 79 5f 3d  |ddy_(1)..maddy_=|
00012bd0  31 20 6d 61 64 64 79 5f  28 31 29 3d b9 3a f2 73  |1 maddy_(1)=.:.s|
00012be0  49 28 4d 61 64 64 5f 25  2c 22 4d 61 64 64 31 22  |I(Madd_%,"Madd1"|
00012bf0  29 3a 3d a3 0d 6a 72 25  e7 6d 61 64 64 79 5f 28  |):=..jr%.maddy_(|
00012c00  31 29 6d 61 64 64 79 5f  28 31 29 3d a3 8b 6d 61  |1)maddy_(1)=..ma|
00012c10  64 64 79 5f 28 31 29 3d  b9 0d 6a 7c 06 3d b9 0d  |ddy_(1)=..j|.=..|
00012c20  6a 86 44 dd a4 4d 61 64  64 32 5f 3a e7 6d 61 64  |j.D..Madd2_:.mad|
00012c30  64 79 5f 28 32 29 80 a4  6d 61 64 64 79 5f 3d 31  |dy_(2)..maddy_=1|
00012c40  20 6d 61 64 64 79 5f 28  32 29 3d b9 3a f2 73 49  | maddy_(2)=.:.sI|
00012c50  28 4d 61 64 64 5f 25 2c  22 4d 61 64 64 32 22 29  |(Madd_%,"Madd2")|
00012c60  3a 3d a3 0d 6a 90 25 e7  6d 61 64 64 79 5f 28 32  |:=..j.%.maddy_(2|
00012c70  29 6d 61 64 64 79 5f 28  32 29 3d a3 8b 6d 61 64  |)maddy_(2)=..mad|
00012c80  64 79 5f 28 32 29 3d b9  0d 6a 9a 06 3d b9 0d 6a  |dy_(2)=..j..=..j|
00012c90  a4 44 dd a4 4d 61 64 64  33 5f 3a e7 6d 61 64 64  |.D..Madd3_:.madd|
00012ca0  79 5f 28 33 29 80 a4 6d  61 64 64 79 5f 3d 31 20  |y_(3)..maddy_=1 |
00012cb0  6d 61 64 64 79 5f 28 33  29 3d b9 3a f2 73 49 28  |maddy_(3)=.:.sI(|
00012cc0  4d 61 64 64 5f 25 2c 22  4d 61 64 64 33 22 29 3a  |Madd_%,"Madd3"):|
00012cd0  3d a3 0d 6a ae 25 e7 6d  61 64 64 79 5f 28 33 29  |=..j.%.maddy_(3)|
00012ce0  6d 61 64 64 79 5f 28 33  29 3d a3 8b 6d 61 64 64  |maddy_(3)=..madd|
00012cf0  79 5f 28 33 29 3d b9 0d  6a b8 06 3d b9 0d 6a c2  |y_(3)=..j..=..j.|
00012d00  44 dd a4 4d 61 64 64 34  5f 3a e7 6d 61 64 64 79  |D..Madd4_:.maddy|
00012d10  5f 28 34 29 80 a4 6d 61  64 64 79 5f 3d 31 20 6d  |_(4)..maddy_=1 m|
00012d20  61 64 64 79 5f 28 34 29  3d b9 3a f2 73 49 28 4d  |addy_(4)=.:.sI(M|
00012d30  61 64 64 5f 25 2c 22 4d  61 64 64 34 22 29 3a 3d  |add_%,"Madd4"):=|
00012d40  a3 0d 6a cc 25 e7 6d 61  64 64 79 5f 28 34 29 6d  |..j.%.maddy_(4)m|
00012d50  61 64 64 79 5f 28 34 29  3d a3 8b 6d 61 64 64 79  |addy_(4)=..maddy|
00012d60  5f 28 34 29 3d b9 0d 6a  d6 06 3d b9 0d 6a e0 44  |_(4)=..j..=..j.D|
00012d70  dd a4 4d 61 64 64 35 5f  3a e7 6d 61 64 64 79 5f  |..Madd5_:.maddy_|
00012d80  28 35 29 80 a4 6d 61 64  64 79 5f 3d 31 20 6d 61  |(5)..maddy_=1 ma|
00012d90  64 64 79 5f 28 35 29 3d  b9 3a f2 73 49 28 4d 61  |ddy_(5)=.:.sI(Ma|
00012da0  64 64 5f 25 2c 22 4d 61  64 64 35 22 29 3a 3d a3  |dd_%,"Madd5"):=.|
00012db0  0d 6a ea 25 e7 6d 61 64  64 79 5f 28 35 29 6d 61  |.j.%.maddy_(5)ma|
00012dc0  64 64 79 5f 28 35 29 3d  a3 8b 6d 61 64 64 79 5f  |ddy_(5)=..maddy_|
00012dd0  28 35 29 3d b9 0d 6a f4  06 3d b9 0d 6a fe 44 dd  |(5)=..j..=..j.D.|
00012de0  a4 4d 61 64 64 36 5f 3a  e7 6d 61 64 64 79 5f 28  |.Madd6_:.maddy_(|
00012df0  36 29 80 a4 6d 61 64 64  79 5f 3d 31 20 6d 61 64  |6)..maddy_=1 mad|
00012e00  64 79 5f 28 36 29 3d b9  3a f2 73 49 28 4d 61 64  |dy_(6)=.:.sI(Mad|
00012e10  64 5f 25 2c 22 4d 61 64  64 36 22 29 3a 3d a3 0d  |d_%,"Madd6"):=..|
00012e20  6b 08 25 e7 6d 61 64 64  79 5f 28 36 29 6d 61 64  |k.%.maddy_(6)mad|
00012e30  64 79 5f 28 36 29 3d a3  8b 6d 61 64 64 79 5f 28  |dy_(6)=..maddy_(|
00012e40  36 29 3d b9 0d 6b 12 06  3d b9 0d 6b 1c 48 dd a4  |6)=..k..=..k.H..|
00012e50  6d 74 31 5f 3a e7 6d 74  5f 28 31 29 6d 74 5f 28  |mt1_:.mt_(1)mt_(|
00012e60  31 29 3d a3 3a f2 75 73  49 28 4d 61 64 64 5f 25  |1)=.:.usI(Madd_%|
00012e70  2c 22 6d 74 31 22 29 8b  6d 74 5f 28 31 29 3d b9  |,"mt1").mt_(1)=.|
00012e80  3a f2 73 49 28 4d 61 64  64 5f 25 2c 22 6d 74 31  |:.sI(Madd_%,"mt1|
00012e90  22 29 0d 6b 26 06 3d b9  0d 6b 30 48 dd a4 6d 74  |").k&.=..k0H..mt|
00012ea0  32 5f 3a e7 6d 74 5f 28  32 29 6d 74 5f 28 32 29  |2_:.mt_(2)mt_(2)|
00012eb0  3d a3 3a f2 75 73 49 28  4d 61 64 64 5f 25 2c 22  |=.:.usI(Madd_%,"|
00012ec0  6d 74 32 22 29 8b 6d 74  5f 28 32 29 3d b9 3a f2  |mt2").mt_(2)=.:.|
00012ed0  73 49 28 4d 61 64 64 5f  25 2c 22 6d 74 32 22 29  |sI(Madd_%,"mt2")|
00012ee0  0d 6b 3a 06 3d b9 0d 6b  44 48 dd a4 6d 74 33 5f  |.k:.=..kDH..mt3_|
00012ef0  3a e7 6d 74 5f 28 33 29  6d 74 5f 28 33 29 3d a3  |:.mt_(3)mt_(3)=.|
00012f00  3a f2 75 73 49 28 4d 61  64 64 5f 25 2c 22 6d 74  |:.usI(Madd_%,"mt|
00012f10  33 22 29 8b 6d 74 5f 28  33 29 3d b9 3a f2 73 49  |3").mt_(3)=.:.sI|
00012f20  28 4d 61 64 64 5f 25 2c  22 6d 74 33 22 29 0d 6b  |(Madd_%,"mt3").k|
00012f30  4e 06 3d b9 0d 6b 58 48  dd a4 6d 74 34 5f 3a e7  |N.=..kXH..mt4_:.|
00012f40  6d 74 5f 28 34 29 6d 74  5f 28 34 29 3d a3 3a f2  |mt_(4)mt_(4)=.:.|
00012f50  75 73 49 28 4d 61 64 64  5f 25 2c 22 6d 74 34 22  |usI(Madd_%,"mt4"|
00012f60  29 8b 6d 74 5f 28 34 29  3d b9 3a f2 73 49 28 4d  |).mt_(4)=.:.sI(M|
00012f70  61 64 64 5f 25 2c 22 6d  74 34 22 29 0d 6b 62 06  |add_%,"mt4").kb.|
00012f80  3d b9 0d 6b 6c 48 dd a4  6d 74 35 5f 3a e7 6d 74  |=..klH..mt5_:.mt|
00012f90  5f 28 35 29 6d 74 5f 28  35 29 3d a3 3a f2 75 73  |_(5)mt_(5)=.:.us|
00012fa0  49 28 4d 61 64 64 5f 25  2c 22 6d 74 35 22 29 8b  |I(Madd_%,"mt5").|
00012fb0  6d 74 5f 28 35 29 3d b9  3a f2 73 49 28 4d 61 64  |mt_(5)=.:.sI(Mad|
00012fc0  64 5f 25 2c 22 6d 74 35  22 29 0d 6b 76 06 3d b9  |d_%,"mt5").kv.=.|
00012fd0  0d 6b 80 48 dd a4 6d 74  36 5f 3a e7 6d 74 5f 28  |.k.H..mt6_:.mt_(|
00012fe0  36 29 6d 74 5f 28 36 29  3d a3 3a f2 75 73 49 28  |6)mt_(6)=.:.usI(|
00012ff0  4d 61 64 64 5f 25 2c 22  6d 74 36 22 29 8b 6d 74  |Madd_%,"mt6").mt|
00013000  5f 28 36 29 3d b9 3a f2  73 49 28 4d 61 64 64 5f  |_(6)=.:.sI(Madd_|
00013010  25 2c 22 6d 74 36 22 29  0d 6b 8a 06 3d b9 0d 6b  |%,"mt6").k..=..k|
00013020  94 2c dd a4 6d 63 61 72  72 79 31 5f 3a 6d 61 64  |.,..mcarry1_:mad|
00013030  64 63 61 72 72 79 5f 24  3d 22 4e 6f 22 3a f2 6d  |dcarry_$="No":.m|
00013040  61 64 63 61 72 72 79 3a  3d b9 0d 6b 9e 2d dd a4  |adcarry:=..k.-..|
00013050  6d 63 61 72 72 79 32 5f  3a 6d 61 64 64 63 61 72  |mcarry2_:maddcar|
00013060  72 79 5f 24 3d 22 41 6c  6c 22 3a f2 6d 61 64 63  |ry_$="All":.madc|
00013070  61 72 72 79 3a 3d b9 0d  6b a8 2d dd a4 6d 63 61  |arry:=..k.-..mca|
00013080  72 72 79 33 5f 3a 6d 61  64 64 63 61 72 72 79 5f  |rry3_:maddcarry_|
00013090  24 3d 22 52 61 6e 22 3a  f2 6d 61 64 63 61 72 72  |$="Ran":.madcarr|
000130a0  79 3a 3d b9 0d 6b d0 95  dd a4 4d 61 64 64 67 6f  |y:=..k....Maddgo|
000130b0  5f 3a f2 47 65 74 54 69  74 6c 65 73 3a 6d 61 6e  |_:.GetTitles:man|
000130c0  79 5f 3d 31 32 3a f2 53  6d 61 64 64 5f 3a f2 77  |y_=12:.Smadd_:.w|
000130d0  68 61 74 6d 61 64 64 73  3a f2 6d 61 64 64 75 70  |hatmadds:.maddup|
000130e0  3a 73 74 61 72 74 65 64  5f 25 3d b9 3a f2 75 73  |:started_%=.:.us|
000130f0  49 28 4d 61 64 64 5f 25  2c 22 4d 61 64 64 67 6f  |I(Madd_%,"Maddgo|
00013100  22 29 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |"):.."Hourglass_|
00013110  4f 66 66 22 3a 6c 61 73  74 5f 3d 33 3a 71 75 69  |Off":last_=3:qui|
00013120  74 5f 3d a3 3a 43 6c 75  65 5f 24 3d 22 4d 61 64  |t_=.:Clue_$="Mad|
00013130  64 22 3a 3d a4 73 75 6d  73 0d 6c 02 77 dd f2 53  |d":=.sums.l.w..S|
00013140  6d 61 64 64 5f 3a e7 ac  6d 61 64 64 79 5f 28 33  |madd_:..maddy_(3|
00013150  29 80 ac 6d 61 64 64 79  5f 28 34 29 8c 6d 74 5f  |)..maddy_(4).mt_|
00013160  28 31 29 3d a3 3a f2 75  73 49 28 4d 61 64 64 5f  |(1)=.:.usI(Madd_|
00013170  25 2c 22 6d 74 31 22 29  3a 6d 74 5f 28 32 29 3d  |%,"mt1"):mt_(2)=|
00013180  a3 3a f2 75 73 49 28 4d  61 64 64 5f 25 2c 22 6d  |.:.usI(Madd_%,"m|
00013190  74 32 22 29 3a 6d 74 5f  28 33 29 3d a3 3a f2 75  |t2"):mt_(3)=.:.u|
000131a0  73 49 28 4d 61 64 64 5f  25 2c 22 6d 74 33 22 29  |sI(Madd_%,"mt3")|
000131b0  0d 6c 0c 6e e7 ac 6d 61  64 64 79 5f 28 35 29 80  |.l.n..maddy_(5).|
000131c0  ac 6d 61 64 64 79 5f 28  36 29 8c 6d 74 5f 28 34  |.maddy_(6).mt_(4|
000131d0  29 3d a3 3a f2 75 73 49  28 4d 61 64 64 5f 25 2c  |)=.:.usI(Madd_%,|
000131e0  22 6d 74 34 22 29 3a 6d  74 5f 28 35 29 3d a3 3a  |"mt4"):mt_(5)=.:|
000131f0  f2 75 73 49 28 4d 61 64  64 5f 25 2c 22 6d 74 35  |.usI(Madd_%,"mt5|
00013200  22 29 3a 6d 74 5f 28 36  29 3d a3 3a f2 75 73 49  |"):mt_(6)=.:.usI|
00013210  28 4d 61 64 64 5f 25 2c  22 6d 74 36 22 29 0d 6c  |(Madd_%,"mt6").l|
00013220  16 05 e1 0d 6c 20 52 dd  f2 77 68 61 74 6d 61 64  |....l R..whatmad|
00013230  64 73 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |ds:.."Hourglass_|
00013240  4f 6e 22 3a 74 68 6f 75  5f 3d 30 3a 68 75 6e 5f  |On":thou_=0:hun_|
00013250  3d 30 3a e7 6d 74 5f 28  31 29 68 75 6e 5f 3d 68  |=0:.mt_(1)hun_=h|
00013260  75 6e 5f 2b 31 3a 68 75  6e 5f 24 28 68 75 6e 5f  |un_+1:hun_$(hun_|
00013270  29 3d 22 a3 22 0d 6c 3e  26 e7 6d 74 5f 28 32 29  |)=".".l>&.mt_(2)|
00013280  68 75 6e 5f 3d 68 75 6e  5f 2b 31 3a 68 75 6e 5f  |hun_=hun_+1:hun_|
00013290  24 28 68 75 6e 5f 29 3d  22 6d 22 0d 6c 48 27 e7  |$(hun_)="m".lH'.|
000132a0  6d 74 5f 28 33 29 68 75  6e 5f 3d 68 75 6e 5f 2b  |mt_(3)hun_=hun_+|
000132b0  31 3a 68 75 6e 5f 24 28  68 75 6e 5f 29 3d 22 63  |1:hun_$(hun_)="c|
000132c0  6d 22 0d 6c 52 2b e7 6d  74 5f 28 34 29 74 68 6f  |m".lR+.mt_(4)tho|
000132d0  75 5f 3d 74 68 6f 75 5f  2b 31 3a 74 68 6f 75 5f  |u_=thou_+1:thou_|
000132e0  24 28 74 68 6f 75 5f 29  3d 22 6b 67 22 0d 6c 5c  |$(thou_)="kg".l\|
000132f0  2b e7 6d 74 5f 28 35 29  74 68 6f 75 5f 3d 74 68  |+.mt_(5)thou_=th|
00013300  6f 75 5f 2b 31 3a 74 68  6f 75 5f 24 28 74 68 6f  |ou_+1:thou_$(tho|
00013310  75 5f 29 3d 22 6b 6d 22  0d 6c 66 2a e7 6d 74 5f  |u_)="km".lf*.mt_|
00013320  28 36 29 74 68 6f 75 5f  3d 74 68 6f 75 5f 2b 31  |(6)thou_=thou_+1|
00013330  3a 74 68 6f 75 5f 24 28  74 68 6f 75 5f 29 3d 22  |:thou_$(thou_)="|
00013340  6c 22 0d 6c 70 54 67 6f  74 5f 25 3d 30 3a e3 72  |l".lpTgot_%=0:.r|
00013350  5f 25 3d 31 b8 36 3a e7  6d 61 64 64 79 5f 28 72  |_%=1.6:.maddy_(r|
00013360  5f 25 29 8c 67 6f 74 5f  25 3d 67 6f 74 5f 25 2b  |_%).got_%=got_%+|
00013370  31 3a 67 63 5f 25 28 67  6f 74 5f 25 29 3d 72 5f  |1:gc_%(got_%)=r_|
00013380  25 3a 61 64 64 79 74 79  70 65 5f 28 67 6f 74 5f  |%:addytype_(got_|
00013390  25 29 3d 72 5f 25 0d 6c  7a 34 ed 3a e7 67 6f 74  |%)=r_%.lz4.:.got|
000133a0  5f 25 3d 31 e3 72 5f 3d  31 b8 31 32 3a 6c 69 6e  |_%=1.r_=1.12:lin|
000133b0  65 61 64 64 79 5f 28 72  5f 29 3d 67 63 5f 25 28  |eaddy_(r_)=gc_%(|
000133c0  67 6f 74 5f 25 29 3a ed  3a e1 0d 6c 8e 5c e7 67  |got_%):.:..l.\.g|
000133d0  6f 74 5f 25 3d 36 f2 74  69 6d 65 73 28 67 6f 74  |ot_%=6.times(got|
000133e0  5f 25 2c 31 32 29 3a e3  72 5f 3d 31 b8 31 32 3a  |_%,12):.r_=1.12:|
000133f0  6c 69 6e 65 61 64 64 79  5f 28 72 5f 29 3d 67 63  |lineaddy_(r_)=gc|
00013400  5f 25 28 66 69 6e 64 65  72 5f 25 28 72 5f 29 29  |_%(finder_%(r_))|
00013410  3a ed 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |:.:.."Hourglass_|
00013420  4f 66 66 22 3a e1 0d 6c  98 a7 6e 65 65 64 65 64  |Off":..l..needed|
00013430  5f 25 3d 31 32 81 67 6f  74 5f 25 3a f5 3a e3 72  |_%=12.got_%:.:.r|
00013440  5f 3d 31 b8 31 32 3a 66  69 6e 64 65 72 5f 25 28  |_=1.12:finder_%(|
00013450  72 5f 29 3d 30 3a ed 3a  66 6c 61 67 5f 3d b9 3a  |r_)=0:.:flag_=.:|
00013460  e3 72 5f 3d 31 b8 31 32  3a c8 99 22 48 6f 75 72  |.r_=1.12:.."Hour|
00013470  67 6c 61 73 73 5f 50 65  72 63 65 6e 74 61 67 65  |glass_Percentage|
00013480  22 2c 72 5f 2f 31 32 2a  31 30 30 3a f5 3a 66 6c  |",r_/12*100:.:fl|
00013490  69 67 5f 3d b9 3a 72 61  6e 5f 25 3d b3 28 67 6f  |ig_=.:ran_%=.(go|
000134a0  74 5f 25 29 3a e7 72 5f  3e 31 80 67 63 5f 25 28  |t_%):.r_>1.gc_%(|
000134b0  72 61 6e 5f 25 29 3d 6c  69 6e 65 61 64 64 79 5f  |ran_%)=lineaddy_|
000134c0  28 72 5f 2d 31 29 66 6c  69 67 5f 3d a3 0d 6c fc  |(r_-1)flig_=..l.|
000134d0  75 fd 66 6c 69 67 5f 3d  b9 3a 6c 69 6e 65 61 64  |u.flig_=.:linead|
000134e0  64 79 5f 28 72 5f 29 3d  67 63 5f 25 28 72 61 6e  |dy_(r_)=gc_%(ran|
000134f0  5f 25 29 3a 66 69 6e 64  65 72 5f 25 28 72 61 6e  |_%):finder_%(ran|
00013500  5f 25 29 3d 66 69 6e 64  65 72 5f 25 28 72 61 6e  |_%)=finder_%(ran|
00013510  5f 25 29 2b 31 3a ed 3a  e3 74 5f 3d 31 b8 67 6f  |_%)+1:.:.t_=1.go|
00013520  74 5f 25 3a e7 66 69 6e  64 65 72 5f 25 28 74 5f  |t_%:.finder_%(t_|
00013530  29 3c 6e 65 65 64 65 64  5f 25 20 66 6c 61 67 5f  |)<needed_% flag_|
00013540  3d a3 0d 6d 1a 22 ed 3a  fd 66 6c 61 67 5f 3d b9  |=..m.".:.flag_=.|
00013550  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |:.."Hourglass_Of|
00013560  66 22 3a e1 0d 6d 38 74  dd f2 6d 61 64 64 75 70  |f":..m8t..maddup|
00013570  3a 64 75 6d 6d 79 5f 3d  b3 28 2d 91 29 3a e3 74  |:dummy_=.(-.):.t|
00013580  5f 3d 31 b8 31 32 3a 61  5f 28 74 5f 29 3d 2d 31  |_=1.12:a_(t_)=-1|
00013590  3a 62 5f 28 74 5f 29 3d  2d 31 3a ed 3a c8 99 22  |:b_(t_)=-1:.:.."|
000135a0  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 3a e3 74  |Hourglass_On":.t|
000135b0  5f 3d 31 b8 31 32 3a e7  6c 69 6e 65 61 64 64 79  |_=1.12:.lineaddy|
000135c0  5f 28 74 5f 29 3d 31 20  72 61 6e 5f 25 3d 39 39  |_(t_)=1 ran_%=99|
000135d0  3a 72 69 6e 5f 25 3d 39  0d 6d 6a 27 e7 6c 69 6e  |:rin_%=9.mj'.lin|
000135e0  65 61 64 64 79 5f 28 74  5f 29 3d 32 20 72 61 6e  |eaddy_(t_)=2 ran|
000135f0  5f 25 3d 39 39 39 3a 72  69 6e 5f 25 3d 39 39 0d  |_%=999:rin_%=99.|
00013600  6d 74 27 e7 6c 69 6e 65  61 64 64 79 5f 28 74 5f  |mt'.lineaddy_(t_|
00013610  29 3d 33 20 72 61 6e 5f  25 3d 39 39 39 3a 72 69  |)=3 ran_%=999:ri|
00013620  6e 5f 25 3d 39 39 0d 6d  7e 29 e7 6c 69 6e 65 61  |n_%=99.m~).linea|
00013630  64 64 79 5f 28 74 5f 29  3d 34 20 72 61 6e 5f 25  |ddy_(t_)=4 ran_%|
00013640  3d 39 39 39 39 3a 72 69  6e 5f 25 3d 39 39 39 0d  |=9999:rin_%=999.|
00013650  6d 88 29 e7 6c 69 6e 65  61 64 64 79 5f 28 74 5f  |m.).lineaddy_(t_|
00013660  29 3d 35 20 72 61 6e 5f  25 3d 39 39 39 39 3a 72  |)=5 ran_%=9999:r|
00013670  69 6e 5f 25 3d 39 39 39  0d 6d 92 2b e7 6c 69 6e  |in_%=999.m.+.lin|
00013680  65 61 64 64 79 5f 28 74  5f 29 3d 36 20 72 61 6e  |eaddy_(t_)=6 ran|
00013690  5f 25 3d 39 39 39 39 39  3a 72 69 6e 5f 25 3d 39  |_%=99999:rin_%=9|
000136a0  39 39 39 0d 6d 9c 21 e7  6c 69 6e 65 61 64 64 79  |999.m.!.lineaddy|
000136b0  5f 28 74 5f 29 3c 33 20  74 6f 70 5f 24 28 74 5f  |_(t_)<3 top_$(t_|
000136c0  29 3d 22 22 0d 6d a6 25  e7 6c 69 6e 65 61 64 64  |)="".m.%.lineadd|
000136d0  79 5f 28 74 5f 29 3d 33  84 6c 69 6e 65 61 64 64  |y_(t_)=3.lineadd|
000136e0  79 5f 28 74 5f 29 3d 34  8c 0d 6d b0 18 e7 68 75  |y_(t_)=4..m...hu|
000136f0  6e 5f 3d 30 20 74 6f 70  5f 24 28 74 5f 29 3d 22  |n_=0 top_$(t_)="|
00013700  22 0d 6d ba 1e e7 68 75  6e 5f 3d 31 20 74 6f 70  |".m...hun_=1 top|
00013710  5f 24 28 74 5f 29 3d 68  75 6e 5f 24 28 31 29 0d  |_$(t_)=hun_$(1).|
00013720  6d c4 2e e7 68 75 6e 5f  3e 31 20 74 6f 70 5f 3d  |m...hun_>1 top_=|
00013730  b3 28 68 75 6e 5f 29 3a  74 6f 70 5f 24 28 74 5f  |.(hun_):top_$(t_|
00013740  29 3d 68 75 6e 5f 24 28  74 6f 70 5f 29 0d 6d ce  |)=hun_$(top_).m.|
00013750  27 cd 3a e7 6c 69 6e 65  61 64 64 79 5f 28 74 5f  |'.:.lineaddy_(t_|
00013760  29 3d 35 84 6c 69 6e 65  61 64 64 79 5f 28 74 5f  |)=5.lineaddy_(t_|
00013770  29 3d 36 8c 0d 6d e2 19  e7 74 68 6f 75 5f 3d 30  |)=6..m...thou_=0|
00013780  20 74 6f 70 5f 24 28 74  5f 29 3d 22 22 0d 6d ec  | top_$(t_)="".m.|
00013790  20 e7 74 68 6f 75 5f 3d  31 20 74 6f 70 5f 24 28  | .thou_=1 top_$(|
000137a0  74 5f 29 3d 74 68 6f 75  5f 24 28 31 29 0d 6d f6  |t_)=thou_$(1).m.|
000137b0  31 e7 74 68 6f 75 5f 3e  31 20 74 6f 70 5f 3d b3  |1.thou_>1 top_=.|
000137c0  28 74 68 6f 75 5f 29 3a  74 6f 70 5f 24 28 74 5f  |(thou_):top_$(t_|
000137d0  29 3d 74 68 6f 75 5f 24  28 74 6f 70 5f 29 0d 6e  |)=thou_$(top_).n|
000137e0  00 8f cd 3a c8 99 22 48  6f 75 72 67 6c 61 73 73  |...:.."Hourglass|
000137f0  5f 50 65 72 63 65 6e 74  61 67 65 22 2c 74 5f 2f  |_Percentage",t_/|
00013800  31 32 2a 31 30 30 3a f5  3a 66 6c 61 67 5f 3d 30  |12*100:.:flag_=0|
00013810  3a f5 3a 61 5f 3d b3 28  72 61 6e 5f 25 29 3a 62  |:.:a_=.(ran_%):b|
00013820  5f 3d b3 28 72 61 6e 5f  25 29 3a fd 61 5f 83 31  |_=.(ran_%):.a_.1|
00013830  30 3c 3e 30 80 62 5f 83  31 30 3c 3e 30 80 61 5f  |0<>0.b_.10<>0.a_|
00013840  3e 72 69 6e 5f 25 80 62  5f 3e 72 69 6e 5f 25 3a  |>rin_%.b_>rin_%:|
00013850  e7 6d 61 64 64 63 61 72  72 79 5f 24 3d 22 4e 6f  |.maddcarry_$="No|
00013860  22 f2 6e 6f 6d 61 64 64  63 61 72 72 79 0d 6e 50  |".nomaddcarry.nP|
00013870  23 e7 6d 61 64 64 63 61  72 72 79 5f 24 3d 22 41  |#.maddcarry_$="A|
00013880  6c 6c 22 f2 61 6c 6c 6d  61 64 64 63 61 72 72 79  |ll".allmaddcarry|
00013890  0d 6e 5a 0a e7 74 5f 3e  31 8c 0d 6e 64 2a e3 65  |.nZ..t_>1..nd*.e|
000138a0  5f 3d 31 b8 74 5f 2d 31  3a e7 61 5f 3d 61 5f 28  |_=1.t_-1:.a_=a_(|
000138b0  65 5f 29 80 62 5f 3d 62  5f 28 65 5f 29 66 6c 61  |e_).b_=b_(e_)fla|
000138c0  67 5f 3d 31 0d 6e 6e 05  ed 0d 6e 78 45 cd 3a fd  |g_=1.nn...nxE.:.|
000138d0  66 6c 61 67 5f 3d 30 3a  61 5f 28 74 5f 29 3d 61  |flag_=0:a_(t_)=a|
000138e0  5f 3a 62 5f 28 74 5f 29  3d 62 5f 3a 63 5f 28 74  |_:b_(t_)=b_:c_(t|
000138f0  5f 29 3d 61 5f 2b 62 5f  3a ed 3a c8 99 22 48 6f  |_)=a_+b_:.:.."Ho|
00013900  75 72 67 6c 61 73 73 5f  4f 66 66 22 3a e1 0d 6e  |urglass_Off":..n|
00013910  b4 52 dd f2 6e 6f 6d 61  64 64 63 61 72 72 79 3a  |.R..nomaddcarry:|
00013920  61 5f 24 3d c3 28 61 5f  29 3a 62 5f 24 3d c3 28  |a_$=.(a_):b_$=.(|
00013930  62 5f 29 3a 6c 61 5f 3d  a9 28 61 5f 24 29 3a 6c  |b_):la_=.(a_$):l|
00013940  62 5f 3d a9 28 62 5f 24  29 3a 7a 5f 3d 6c 61 5f  |b_=.(b_$):z_=la_|
00013950  3a e7 6c 62 5f 3c 6c 61  5f 20 7a 5f 3d 6c 62 5f  |:.lb_<la_ z_=lb_|
00013960  0d 6e c8 36 e3 72 5f 3d  7a 5f b8 31 88 2d 31 3a  |.n.6.r_=z_.1.-1:|
00013970  e7 bb 28 c1 61 5f 24 2c  72 5f 2c 31 29 29 2b bb  |..(.a_$,r_,1))+.|
00013980  28 c1 62 5f 24 2c 72 5f  2c 31 29 29 3e 39 20 66  |(.b_$,r_,1))>9 f|
00013990  6c 61 67 5f 3d 31 0d 6e  dc 07 ed 3a e1 0d 6e f0  |lag_=1.n...:..n.|
000139a0  53 dd f2 61 6c 6c 6d 61  64 64 63 61 72 72 79 3a  |S..allmaddcarry:|
000139b0  61 5f 24 3d c3 28 61 5f  29 3a 62 5f 24 3d c3 28  |a_$=.(a_):b_$=.(|
000139c0  62 5f 29 3a 6c 61 5f 3d  a9 28 61 5f 24 29 3a 6c  |b_):la_=.(a_$):l|
000139d0  62 5f 3d a9 28 62 5f 24  29 3a 7a 5f 3d 6c 61 5f  |b_=.(b_$):z_=la_|
000139e0  3a e7 6c 62 5f 3e 6c 61  5f 20 7a 5f 3d 6c 62 5f  |:.lb_>la_ z_=lb_|
000139f0  0d 6f 04 37 e3 72 5f 3d  7a 5f b8 31 88 2d 31 3a  |.o.7.r_=z_.1.-1:|
00013a00  e7 bb 28 c1 61 5f 24 2c  72 5f 2c 31 29 29 2b bb  |..(.a_$,r_,1))+.|
00013a10  28 c1 62 5f 24 2c 72 5f  2c 31 29 29 3c 31 30 20  |(.b_$,r_,1))<10 |
00013a20  66 6c 61 67 5f 3d 31 0d  6f 0e 07 ed 3a e1 0d 6f  |flag_=1.o...:..o|
00013a30  22 5a dd f2 4d 44 69 76  3a 58 25 3d 58 25 2b 39  |"Z..MDiv:X%=X%+9|
00013a40  30 3a 6c 65 66 74 5f 3d  58 25 2b 38 30 3a 6f 6e  |0:left_=X%+80:on|
00013a50  5f 3d 32 37 30 3a 65 6e  64 5f 3d 31 30 30 3a 64  |_=270:end_=100:d|
00013a60  6f 77 6e 5f 3d 59 25 2d  31 31 30 3a 72 5f 3d 30  |own_=Y%-110:r_=0|
00013a70  3a e7 6d 61 6e 79 5f 3d  39 e3 71 5f 3d 31 b8 33  |:.many_=9.q_=1.3|
00013a80  8b e3 71 5f 3d 31 b8 34  0d 6f 5e 48 e3 77 5f 3d  |..q_=1.4.o^H.w_=|
00013a90  31 b8 33 3a 72 5f 3d 72  5f 2b 31 3a e7 71 75 69  |1.3:r_=r_+1:.qui|
00013aa0  74 5f 3d b9 61 5f 3d 30  3a 62 5f 3d 30 3a 63 5f  |t_=.a_=0:b_=0:c_|
00013ab0  3d 30 8b 61 5f 3d 61 5f  28 72 5f 29 3a 62 5f 3d  |=0.a_=a_(r_):b_=|
00013ac0  62 5f 28 72 5f 29 3a 63  5f 3d 63 5f 28 72 5f 29  |b_(r_):c_=c_(r_)|
00013ad0  0d 6f 72 ae 64 75 6e 6b  6c 65 66 74 5f 3d 6c 65  |.or.dunkleft_=le|
00013ae0  66 74 5f 3a 61 5f 24 3d  a4 7a 65 72 6f 28 c3 28  |ft_:a_$=.zero(.(|
00013af0  61 5f 29 29 3a 62 5f 24  3d a4 7a 65 72 6f 28 c3  |a_)):b_$=.zero(.|
00013b00  28 62 5f 29 29 3a 63 5f  24 3d a4 7a 65 72 6f 28  |(b_)):c_$=.zero(|
00013b10  c3 28 63 5f 29 29 3a 61  6e 73 6c 65 6e 5f 3d a9  |.(c_)):anslen_=.|
00013b20  28 61 5f 24 29 3a 64 75  6e 6b 6c 65 66 74 5f 3d  |(a_$):dunkleft_=|
00013b30  6c 65 66 74 5f 3a 6c 6f  6e 5f 3d a9 28 61 5f 24  |left_:lon_=.(a_$|
00013b40  29 3a 6c 65 66 74 5f 3d  6c 65 66 74 5f 2b 6c 6f  |):left_=left_+lo|
00013b50  6e 5f 2f 32 2a 31 36 3a  70 74 5f 3d 6c 65 66 74  |n_/2*16:pt_=left|
00013b60  5f 3a e7 6c 69 6e 65 64  76 79 5f 28 72 5f 29 3d  |_:.linedvy_(r_)=|
00013b70  31 f2 70 70 70 6f 69 6e  74 28 31 2c 31 29 0d 6f  |1.pppoint(1,1).o|
00013b80  b8 20 e7 6c 69 6e 65 64  76 79 5f 28 72 5f 29 3d  |. .linedvy_(r_)=|
00013b90  32 f2 70 70 70 6f 69 6e  74 28 32 2c 31 29 0d 6f  |2.pppoint(2,1).o|
00013ba0  c2 20 e7 6c 69 6e 65 64  76 79 5f 28 72 5f 29 3d  |. .linedvy_(r_)=|
00013bb0  33 f2 70 70 70 6f 69 6e  74 28 31 2c 32 29 0d 6f  |3.pppoint(1,2).o|
00013bc0  cc 20 e7 6c 69 6e 65 64  76 79 5f 28 72 5f 29 3d  |. .linedvy_(r_)=|
00013bd0  34 f2 70 70 70 6f 69 6e  74 28 32 2c 32 29 0d 6f  |4.pppoint(2,2).o|
00013be0  d6 20 e7 6c 69 6e 65 64  76 79 5f 28 72 5f 29 3d  |. .linedvy_(r_)=|
00013bf0  35 f2 70 70 70 6f 69 6e  74 28 31 2c 33 29 0d 6f  |5.pppoint(1,3).o|
00013c00  e0 20 e7 6c 69 6e 65 64  76 79 5f 28 72 5f 29 3d  |. .linedvy_(r_)=|
00013c10  36 f2 70 70 70 6f 69 6e  74 28 32 2c 33 29 0d 6f  |6.pppoint(2,3).o|
00013c20  ea 28 e7 6c 69 6e 65 64  76 79 5f 28 72 5f 29 3d  |.(.linedvy_(r_)=|
00013c30  31 80 a9 28 63 5f 24 29  3c 32 20 63 5f 24 3d 22  |1..(c_$)<2 c_$="|
00013c40  4f 22 2b 63 5f 24 0d 6f  fe 32 e7 6c 69 6e 65 64  |O"+c_$.o.2.lined|
00013c50  76 79 5f 28 72 5f 29 3d  31 20 6c 65 66 74 5f 24  |vy_(r_)=1 left_$|
00013c60  3d c0 63 5f 24 2c 31 29  3a 72 69 67 68 74 5f 24  |=.c_$,1):right_$|
00013c70  3d c2 63 5f 24 2c 31 29  0d 70 08 39 e7 6c 69 6e  |=.c_$,1).p.9.lin|
00013c80  65 64 76 79 5f 28 72 5f  29 3d 32 20 6c 65 66 74  |edvy_(r_)=2 left|
00013c90  5f 24 3d c0 63 5f 24 2c  a9 28 63 5f 24 29 2d 31  |_$=.c_$,.(c_$)-1|
00013ca0  29 3a 72 69 67 68 74 5f  24 3d c2 63 5f 24 2c 31  |):right_$=.c_$,1|
00013cb0  29 0d 70 12 28 e7 6c 69  6e 65 64 76 79 5f 28 72  |).p.(.linedvy_(r|
00013cc0  5f 29 3d 33 80 a9 28 63  5f 24 29 3c 33 20 63 5f  |_)=3..(c_$)<3 c_|
00013cd0  24 3d 22 4f 22 2b 63 5f  24 0d 70 1c 32 e7 6c 69  |$="O"+c_$.p.2.li|
00013ce0  6e 65 64 76 79 5f 28 72  5f 29 3d 33 20 6c 65 66  |nedvy_(r_)=3 lef|
00013cf0  74 5f 24 3d c0 63 5f 24  2c 31 29 3a 72 69 67 68  |t_$=.c_$,1):righ|
00013d00  74 5f 24 3d c2 63 5f 24  2c 32 29 0d 70 26 39 e7  |t_$=.c_$,2).p&9.|
00013d10  6c 69 6e 65 64 76 79 5f  28 72 5f 29 3d 34 20 6c  |linedvy_(r_)=4 l|
00013d20  65 66 74 5f 24 3d c0 63  5f 24 2c a9 28 63 5f 24  |eft_$=.c_$,.(c_$|
00013d30  29 2d 32 29 3a 72 69 67  68 74 5f 24 3d c2 63 5f  |)-2):right_$=.c_|
00013d40  24 2c 32 29 0d 70 30 28  e7 6c 69 6e 65 64 76 79  |$,2).p0(.linedvy|
00013d50  5f 28 72 5f 29 3d 35 80  a9 28 63 5f 24 29 3c 34  |_(r_)=5..(c_$)<4|
00013d60  20 63 5f 24 3d 22 4f 22  2b 63 5f 24 0d 70 3a 32  | c_$="O"+c_$.p:2|
00013d70  e7 6c 69 6e 65 64 76 79  5f 28 72 5f 29 3d 35 20  |.linedvy_(r_)=5 |
00013d80  6c 65 66 74 5f 24 3d c0  63 5f 24 2c 31 29 3a 72  |left_$=.c_$,1):r|
00013d90  69 67 68 74 5f 24 3d c2  63 5f 24 2c 33 29 0d 70  |ight_$=.c_$,3).p|
00013da0  44 39 e7 6c 69 6e 65 64  76 79 5f 28 72 5f 29 3d  |D9.linedvy_(r_)=|
00013db0  36 20 6c 65 66 74 5f 24  3d c0 63 5f 24 2c a9 28  |6 left_$=.c_$,.(|
00013dc0  63 5f 24 29 2d 33 29 3a  72 69 67 68 74 5f 24 3d  |c_$)-3):right_$=|
00013dd0  c2 63 5f 24 2c 33 29 0d  70 4e 45 6c 65 66 74 5f  |.c_$,3).pNEleft_|
00013de0  3d 64 75 6e 6b 6c 65 66  74 5f 3a 6c 65 66 74 5f  |=dunkleft_:left_|
00013df0  3d 6c 65 66 74 5f 2b 6f  6e 5f 3a ed 3a 6c 65 66  |=left_+on_:.:lef|
00013e00  74 5f 3d 58 25 2b 38 30  3a 64 6f 77 6e 5f 3d 64  |t_=X%+80:down_=d|
00013e10  6f 77 6e 5f 2d 31 38 30  3a ed 3a e1 0d 70 80 c5  |own_-180:.:..p..|
00013e20  dd f2 70 70 70 6f 69 6e  74 28 78 5f 2c 79 5f 29  |..pppoint(x_,y_)|
00013e30  3a 6c 65 66 74 5f 24 3d  c0 61 5f 24 2c 78 5f 29  |:left_$=.a_$,x_)|
00013e40  3a 72 69 67 68 74 5f 24  3d c2 61 5f 24 2c 79 5f  |:right_$=.a_$,y_|
00013e50  29 3a 61 6c 5f 3d a9 28  6c 65 66 74 5f 24 29 2a  |):al_=.(left_$)*|
00013e60  31 36 3a 61 72 5f 3d a9  28 72 69 67 68 74 5f 24  |16:ar_=.(right_$|
00013e70  29 2a 31 36 3a ec 6c 65  66 74 5f 2b 65 6e 64 5f  |)*16:.left_+end_|
00013e80  2d 61 72 5f 2c 64 6f 77  6e 5f 2d 31 30 30 3a f1  |-ar_,down_-100:.|
00013e90  72 69 67 68 74 5f 24 3a  ec 6c 65 66 74 5f 2b 65  |right_$:.left_+e|
00013ea0  6e 64 5f 2d 61 72 5f 2d  32 30 2c 64 6f 77 6e 5f  |nd_-ar_-20,down_|
00013eb0  2d 39 30 3a f1 22 2e 22  3a ec 6c 65 66 74 5f 2b  |-90:.".":.left_+|
00013ec0  65 6e 64 5f 2d 61 72 5f  2d 61 6c 5f 2d 33 30 2c  |end_-ar_-al_-30,|
00013ed0  64 6f 77 6e 5f 2d 31 30  30 3a f1 6c 65 66 74 5f  |down_-100:.left_|
00013ee0  24 0d 70 bc c5 ec 6c 65  66 74 5f 2b 65 6e 64 5f  |$.p...left_+end_|
00013ef0  2d 61 72 5f 2d 33 30 2d  a9 28 74 6f 70 5f 24 28  |-ar_-30-.(top_$(|
00013f00  72 5f 29 29 2a 31 36 2c  64 6f 77 6e 5f 2d 32 35  |r_))*16,down_-25|
00013f10  3a f1 74 6f 70 5f 24 28  72 5f 29 3a ec 6c 65 66  |:.top_$(r_):.lef|
00013f20  74 5f 2b 65 6e 64 5f 2d  61 72 5f 2d 61 6c 5f 2d  |t_+end_-ar_-al_-|
00013f30  35 30 2c 64 6f 77 6e 5f  2d 31 30 30 3a f1 22 29  |50,down_-100:.")|
00013f40  22 3a ec 6c 65 66 74 5f  2b 65 6e 64 5f 2d 61 72  |":.left_+end_-ar|
00013f50  5f 2d 61 6c 5f 2d 35 30  2c 64 6f 77 6e 5f 2d 39  |_-al_-50,down_-9|
00013f60  34 3a df 6c 65 66 74 5f  2b 65 6e 64 5f 2c 64 6f  |4:.left_+end_,do|
00013f70  77 6e 5f 2d 39 34 3a ec  6c 65 66 74 5f 2b 65 6e  |wn_-94:.left_+en|
00013f80  64 5f 2d 61 72 5f 2d 61  6c 5f 2d 35 35 2d a9 28  |d_-ar_-al_-55-.(|
00013f90  62 5f 24 29 2a 31 36 2c  64 6f 77 6e 5f 2d 31 30  |b_$)*16,down_-10|
00013fa0  30 3a f1 62 5f 24 0d 70  e4 59 ec 6c 65 66 74 5f  |0:.b_$.p.Y.left_|
00013fb0  2b 65 6e 64 5f 2d 61 72  5f 2d 61 6c 5f 2d 31 30  |+end_-ar_-al_-10|
00013fc0  30 2d a9 28 62 5f 24 29  2a 31 36 2d a9 28 c3 28  |0-.(b_$)*16-.(.(|
00013fd0  72 5f 29 29 2a 31 36 2c  64 6f 77 6e 5f 2d 36 30  |r_))*16,down_-60|
00013fe0  3a f1 a4 7a 65 72 6f 28  c3 28 72 5f 29 29 3b 22  |:..zero(.(r_));"|
00013ff0  29 22 3a e7 41 6e 73 77  65 72 5f 25 3d b9 8c 0d  |)":.Answer_%=...|
00014000  71 02 41 6c 65 66 74 5f  24 3d c0 63 5f 24 2c a9  |q.Aleft_$=.c_$,.|
00014010  28 63 5f 24 29 2d 79 5f  29 3a 72 69 67 68 74 5f  |(c_$)-y_):right_|
00014020  24 3d c2 63 5f 24 2c 79  5f 29 3a e7 6c 65 66 74  |$=.c_$,y_):.left|
00014030  5f 24 3d 22 22 20 6c 65  66 74 5f 24 3d 22 4f 22  |_$="" left_$="O"|
00014040  0d 71 16 91 61 6c 5f 3d  a9 28 6c 65 66 74 5f 24  |.q..al_=.(left_$|
00014050  29 2a 31 36 3a 61 72 5f  3d a9 28 72 69 67 68 74  |)*16:ar_=.(right|
00014060  5f 24 29 2a 31 36 3a ec  6c 65 66 74 5f 2b 65 6e  |_$)*16:.left_+en|
00014070  64 5f 2d 61 72 5f 2c 64  6f 77 6e 5f 2d 36 30 3a  |d_-ar_,down_-60:|
00014080  f1 72 69 67 68 74 5f 24  3a ec 6c 65 66 74 5f 2b  |.right_$:.left_+|
00014090  65 6e 64 5f 2d 61 72 5f  2d 32 30 2c 64 6f 77 6e  |end_-ar_-20,down|
000140a0  5f 2d 35 30 3a f1 22 2e  22 3a ec 6c 65 66 74 5f  |_-50:.".":.left_|
000140b0  2b 65 6e 64 5f 2d 61 72  5f 2d 61 6c 5f 2d 33 30  |+end_-ar_-al_-30|
000140c0  2c 64 6f 77 6e 5f 2d 36  30 3a f1 6c 65 66 74 5f  |,down_-60:.left_|
000140d0  24 0d 71 3e 07 cd 3a e1  0d 71 52 90 dd f2 4d 6d  |$.q>..:..qR...Mm|
000140e0  75 6c 74 5f 3a 58 25 3d  58 25 2b 37 30 3a 6c 65  |ult_:X%=X%+70:le|
000140f0  66 74 5f 3d 58 25 2b 38  30 3a 6f 6e 5f 3d 32 37  |ft_=X%+80:on_=27|
00014100  30 3a 65 6e 64 5f 3d 31  30 30 3a 64 6f 77 6e 5f  |0:end_=100:down_|
00014110  3d 59 25 2d 39 30 3a 72  5f 3d 30 3a e3 71 5f 3d  |=Y%-90:r_=0:.q_=|
00014120  31 b8 34 3a e3 77 5f 3d  31 b8 33 3a 72 5f 3d 72  |1.4:.w_=1.3:r_=r|
00014130  5f 2b 31 3a e7 71 75 69  74 5f 3d b9 61 5f 3d 30  |_+1:.quit_=.a_=0|
00014140  3a 62 5f 3d 30 3a 63 5f  3d 30 8b 61 5f 3d 61 5f  |:b_=0:c_=0.a_=a_|
00014150  28 72 5f 29 3a 62 5f 3d  62 5f 28 72 5f 29 3a 63  |(r_):b_=b_(r_):c|
00014160  5f 3d 63 5f 28 72 5f 29  0d 71 a2 d4 64 75 6e 6b  |_=c_(r_).q..dunk|
00014170  6c 65 66 74 5f 3d 6c 65  66 74 5f 3a 61 5f 24 3d  |left_=left_:a_$=|
00014180  a4 7a 65 72 6f 28 c3 28  61 5f 29 29 3a 62 5f 24  |.zero(.(a_)):b_$|
00014190  3d a4 7a 65 72 6f 28 c3  28 62 5f 29 29 3a 63 5f  |=.zero(.(b_)):c_|
000141a0  24 3d a4 7a 65 72 6f 28  c3 28 63 5f 29 29 3a 61  |$=.zero(.(c_)):a|
000141b0  6e 73 6c 65 6e 5f 3d a9  28 63 5f 24 29 3a 64 75  |nslen_=.(c_$):du|
000141c0  6e 6b 6c 65 66 74 5f 3d  6c 65 66 74 5f 3a 6c 6f  |nkleft_=left_:lo|
000141d0  6e 5f 3d a9 28 61 5f 24  29 3a 6c 65 66 74 5f 3d  |n_=.(a_$):left_=|
000141e0  6c 65 66 74 5f 2b 6c 6f  6e 5f 2f 32 2a 31 36 3a  |left_+lon_/2*16:|
000141f0  70 74 5f 3d 6c 65 66 74  5f 3a ec 6c 65 66 74 5f  |pt_=left_:.left_|
00014200  2b 65 6e 64 5f 2d a9 28  c3 28 61 5f 29 29 2a 31  |+end_-.(.(a_))*1|
00014210  36 2d 38 30 2d a9 28 c3  28 72 5f 29 29 2a 31 36  |6-80-.(.(r_))*16|
00014220  2c 64 6f 77 6e 5f 2d 31  30 30 3a f1 a4 7a 65 72  |,down_-100:..zer|
00014230  6f 28 c3 28 72 5f 29 29  3b 22 29 22 0d 71 e8 20  |o(.(r_));")".q. |
00014240  e7 6c 69 6e 65 61 64 64  79 5f 28 72 5f 29 3d 31  |.lineaddy_(r_)=1|
00014250  f2 70 70 6f 69 6e 74 28  31 2c 31 29 0d 71 f2 20  |.ppoint(1,1).q. |
00014260  e7 6c 69 6e 65 61 64 64  79 5f 28 72 5f 29 3d 32  |.lineaddy_(r_)=2|
00014270  f2 70 70 6f 69 6e 74 28  32 2c 31 29 0d 71 fc 20  |.ppoint(2,1).q. |
00014280  e7 6c 69 6e 65 61 64 64  79 5f 28 72 5f 29 3d 33  |.lineaddy_(r_)=3|
00014290  f2 70 70 6f 69 6e 74 28  31 2c 32 29 0d 72 06 20  |.ppoint(1,2).r. |
000142a0  e7 6c 69 6e 65 61 64 64  79 5f 28 72 5f 29 3d 34  |.lineaddy_(r_)=4|
000142b0  f2 70 70 6f 69 6e 74 28  32 2c 32 29 0d 72 10 20  |.ppoint(2,2).r. |
000142c0  e7 6c 69 6e 65 61 64 64  79 5f 28 72 5f 29 3d 35  |.lineaddy_(r_)=5|
000142d0  f2 70 70 6f 69 6e 74 28  31 2c 33 29 0d 72 1a 20  |.ppoint(1,3).r. |
000142e0  e7 6c 69 6e 65 61 64 64  79 5f 28 72 5f 29 3d 36  |.lineaddy_(r_)=6|
000142f0  f2 70 70 6f 69 6e 74 28  32 2c 33 29 0d 72 24 95  |.ppoint(2,3).r$.|
00014300  ec 6c 65 66 74 5f 2b 65  6e 64 5f 2d 61 6e 73 6c  |.left_+end_-ansl|
00014310  65 6e 5f 2a 31 36 2d 33  30 2c 64 6f 77 6e 5f 2d  |en_*16-30,down_-|
00014320  31 37 32 3a df 6c 65 66  74 5f 2b 65 6e 64 5f 2d  |172:.left_+end_-|
00014330  61 6e 73 6c 65 6e 5f 2a  31 36 2b 61 6e 73 6c 65  |anslen_*16+ansle|
00014340  6e 5f 2a 31 36 2c 64 6f  77 6e 5f 2d 31 37 32 3a  |n_*16,down_-172:|
00014350  6c 65 66 74 5f 3d 64 75  6e 6b 6c 65 66 74 5f 3a  |left_=dunkleft_:|
00014360  6c 65 66 74 5f 3d 6c 65  66 74 5f 2b 6f 6e 5f 3a  |left_=left_+on_:|
00014370  ed 3a 6c 65 66 74 5f 3d  58 25 2b 38 30 3a 64 6f  |.:left_=X%+80:do|
00014380  77 6e 5f 3d 64 6f 77 6e  5f 2d 31 38 30 3a ed 3a  |wn_=down_-180:.:|
00014390  e1 0d 72 60 a4 dd f2 70  70 6f 69 6e 74 28 78 5f  |..r`...ppoint(x_|
000143a0  2c 79 5f 29 3a 6c 65 66  74 5f 24 3d c0 61 5f 24  |,y_):left_$=.a_$|
000143b0  2c 78 5f 29 3a 72 69 67  68 74 5f 24 3d c2 61 5f  |,x_):right_$=.a_|
000143c0  24 2c 79 5f 29 3a 61 6c  5f 3d a9 28 6c 65 66 74  |$,y_):al_=.(left|
000143d0  5f 24 29 2a 31 36 3a 61  72 5f 3d a9 28 72 69 67  |_$)*16:ar_=.(rig|
000143e0  68 74 5f 24 29 2a 31 36  3a ec 6c 65 66 74 5f 2b  |ht_$)*16:.left_+|
000143f0  65 6e 64 5f 2d 61 72 5f  2c 64 6f 77 6e 5f 2d 31  |end_-ar_,down_-1|
00014400  30 30 3a f1 72 69 67 68  74 5f 24 3a e7 53 69 67  |00:.right_$:.Sig|
00014410  6e 5f 25 3d b9 ec 6c 65  66 74 5f 2b 65 6e 64 5f  |n_%=..left_+end_|
00014420  2b 31 30 2c 64 6f 77 6e  5f 2d 31 30 30 3a f1 73  |+10,down_-100:.s|
00014430  69 67 6e 5f 24 0d 72 92  b0 ec 6c 65 66 74 5f 2b  |ign_$.r...left_+|
00014440  65 6e 64 5f 2d 61 72 5f  2d 32 30 2c 64 6f 77 6e  |end_-ar_-20,down|
00014450  5f 2d 39 30 3a f1 22 2e  22 3a ec 6c 65 66 74 5f  |_-90:.".":.left_|
00014460  2b 65 6e 64 5f 2d 61 72  5f 2d 61 6c 5f 2d 33 30  |+end_-ar_-al_-30|
00014470  2c 64 6f 77 6e 5f 2d 31  30 30 3a f1 6c 65 66 74  |,down_-100:.left|
00014480  5f 24 3a ec 6c 65 66 74  5f 2b 65 6e 64 5f 2d 61  |_$:.left_+end_-a|
00014490  72 5f 2d 33 30 2d a9 28  74 6f 70 5f 24 28 72 5f  |r_-30-.(top_$(r_|
000144a0  29 29 2a 31 36 2c 64 6f  77 6e 5f 2d 36 30 3a f1  |))*16,down_-60:.|
000144b0  74 6f 70 5f 24 28 72 5f  29 3a ec 6c 65 66 74 5f  |top_$(r_):.left_|
000144c0  2b 65 6e 64 5f 2d 61 72  5f 2d 33 30 2d a9 28 62  |+end_-ar_-30-.(b|
000144d0  5f 24 29 2a 31 36 2c 64  6f 77 6e 5f 2d 31 34 30  |_$)*16,down_-140|
000144e0  3a f1 62 5f 24 0d 72 ba  3e e7 53 69 67 6e 5f 25  |:.b_$.r.>.Sign_%|
000144f0  3d a3 ec 6c 65 66 74 5f  2b 65 6e 64 5f 2d 61 72  |=..left_+end_-ar|
00014500  5f 2d 33 30 2d a9 28 62  5f 24 29 2a 31 36 2d 33  |_-30-.(b_$)*16-3|
00014510  30 2c 64 6f 77 6e 5f 2d  31 34 30 3a f1 73 69 67  |0,down_-140:.sig|
00014520  6e 5f 24 0d 72 c4 5e e7  53 65 63 41 6e 73 5f 25  |n_$.r.^.SecAns_%|
00014530  3d b9 ec 6c 65 66 74 5f  2b 65 6e 64 5f 2d 61 6e  |=..left_+end_-an|
00014540  73 6c 65 6e 5f 2a 31 36  2d 33 30 2c 64 6f 77 6e  |slen_*16-30,down|
00014550  5f 2d 32 31 32 3a df 6c  65 66 74 5f 2b 65 6e 64  |_-212:.left_+end|
00014560  5f 2d 61 6e 73 6c 65 6e  5f 2a 31 36 2b 61 6e 73  |_-anslen_*16+ans|
00014570  6c 65 6e 5f 2a 31 36 2c  64 6f 77 6e 5f 2d 32 31  |len_*16,down_-21|
00014580  32 0d 72 ce 10 e7 41 6e  73 77 65 72 5f 25 3d b9  |2.r...Answer_%=.|
00014590  8c 0d 72 d8 41 6c 65 66  74 5f 24 3d c0 63 5f 24  |..r.Aleft_$=.c_$|
000145a0  2c a9 28 63 5f 24 29 2d  79 5f 29 3a 72 69 67 68  |,.(c_$)-y_):righ|
000145b0  74 5f 24 3d c2 63 5f 24  2c 79 5f 29 3a e7 6c 65  |t_$=.c_$,y_):.le|
000145c0  66 74 5f 24 3d 22 22 20  6c 65 66 74 5f 24 3d 22  |ft_$="" left_$="|
000145d0  4f 22 0d 72 ec 94 61 6c  5f 3d a9 28 6c 65 66 74  |O".r..al_=.(left|
000145e0  5f 24 29 2a 31 36 3a 61  72 5f 3d a9 28 72 69 67  |_$)*16:ar_=.(rig|
000145f0  68 74 5f 24 29 2a 31 36  3a ec 6c 65 66 74 5f 2b  |ht_$)*16:.left_+|
00014600  65 6e 64 5f 2d 61 72 5f  2c 64 6f 77 6e 5f 2d 31  |end_-ar_,down_-1|
00014610  38 30 3a f1 72 69 67 68  74 5f 24 3a ec 6c 65 66  |80:.right_$:.lef|
00014620  74 5f 2b 65 6e 64 5f 2d  61 72 5f 2d 32 30 2c 64  |t_+end_-ar_-20,d|
00014630  6f 77 6e 5f 2d 31 37 30  3a f1 22 2e 22 3a ec 6c  |own_-170:.".":.l|
00014640  65 66 74 5f 2b 65 6e 64  5f 2d 61 72 5f 2d 61 6c  |eft_+end_-ar_-al|
00014650  5f 2d 33 30 2c 64 6f 77  6e 5f 2d 31 38 30 3a f1  |_-30,down_-180:.|
00014660  6c 65 66 74 5f 24 0d 73  14 07 cd 3a e1 0d 73 28  |left_$.s...:..s(|
00014670  24 dd f2 6d 61 64 64 3a  e7 43 6c 75 65 5f 24 3d  |$..madd:.Clue_$=|
00014680  22 4d 61 64 64 22 20 73  69 67 6e 5f 24 3d 22 2b  |"Madd" sign_$="+|
00014690  22 0d 73 3c 1d e7 43 6c  75 65 5f 24 3d 22 4d 73  |".s<..Clue_$="Ms|
000146a0  75 62 22 20 73 69 67 6e  5f 24 3d 22 2d 22 0d 73  |ub" sign_$="-".s|
000146b0  46 22 e7 c1 43 6c 75 65  5f 24 2c 31 2c 33 29 3d  |F"..Clue_$,1,3)=|
000146c0  22 53 75 62 22 20 73 69  67 6e 5f 24 3d 22 2d 22  |"Sub" sign_$="-"|
000146d0  0d 73 50 22 e7 c1 43 6c  75 65 5f 24 2c 31 2c 33  |.sP"..Clue_$,1,3|
000146e0  29 3d 22 4d 75 6c 22 20  73 69 67 6e 5f 24 3d 22  |)="Mul" sign_$="|
000146f0  78 22 0d 73 5a 52 58 25  3d 58 25 2b 35 30 3a 6c  |x".sZRX%=X%+50:l|
00014700  65 66 74 5f 3d 58 25 2b  38 30 3a 6f 6e 5f 3d 32  |eft_=X%+80:on_=2|
00014710  37 30 3a 65 6e 64 5f 3d  31 30 30 3a 64 6f 77 6e  |70:end_=100:down|
00014720  5f 3d 59 25 2d 39 30 3a  72 5f 3d 30 3a e7 6d 61  |_=Y%-90:r_=0:.ma|
00014730  6e 79 5f 3d 39 e3 71 5f  3d 31 b8 33 8b e3 71 5f  |ny_=9.q_=1.3..q_|
00014740  3d 31 b8 34 0d 73 8c 48  e3 77 5f 3d 31 b8 33 3a  |=1.4.s.H.w_=1.3:|
00014750  72 5f 3d 72 5f 2b 31 3a  e7 71 75 69 74 5f 3d b9  |r_=r_+1:.quit_=.|
00014760  61 5f 3d 30 3a 62 5f 3d  30 3a 63 5f 3d 30 8b 61  |a_=0:b_=0:c_=0.a|
00014770  5f 3d 61 5f 28 72 5f 29  3a 62 5f 3d 62 5f 28 72  |_=a_(r_):b_=b_(r|
00014780  5f 29 3a 63 5f 3d 63 5f  28 72 5f 29 0d 73 a0 72  |_):c_=c_(r_).s.r|
00014790  64 75 6e 6b 6c 65 66 74  5f 3d 6c 65 66 74 5f 3a  |dunkleft_=left_:|
000147a0  61 5f 24 3d a4 7a 65 72  6f 28 c3 28 61 5f 29 29  |a_$=.zero(.(a_))|
000147b0  3a 62 5f 24 3d a4 7a 65  72 6f 28 c3 28 62 5f 29  |:b_$=.zero(.(b_)|
000147c0  29 3a 63 5f 24 3d a4 7a  65 72 6f 28 c3 28 63 5f  |):c_$=.zero(.(c_|
000147d0  29 29 3a e7 a9 28 62 5f  24 29 3e a9 28 63 5f 24  |)):..(b_$)>.(c_$|
000147e0  29 61 6e 73 6c 65 6e 5f  3d a9 28 62 5f 24 29 8b  |)anslen_=.(b_$).|
000147f0  61 6e 73 6c 65 6e 5f 3d  a9 28 63 5f 24 29 0d 73  |anslen_=.(c_$).s|
00014800  be 38 64 75 6e 6b 6c 65  66 74 5f 3d 6c 65 66 74  |.8dunkleft_=left|
00014810  5f 3a 6c 6f 6e 5f 3d a9  28 61 5f 24 29 3a e7 a9  |_:lon_=.(a_$):..|
00014820  28 62 5f 24 29 3e 6c 6f  6e 5f 20 6c 6f 6e 5f 3d  |(b_$)>lon_ lon_=|
00014830  a9 28 62 5f 24 29 0d 73  dc 1c e7 a9 28 63 5f 24  |.(b_$).s....(c_$|
00014840  29 3e 6c 6f 6e 5f 20 6c  6f 6e 5f 3d a9 28 63 5f  |)>lon_ lon_=.(c_|
00014850  24 29 0d 73 e6 9a 6c 65  66 74 5f 3d 6c 65 66 74  |$).s..left_=left|
00014860  5f 2b 6c 6f 6e 5f 2f 32  2a 31 36 3a ec 6c 65 66  |_+lon_/2*16:.lef|
00014870  74 5f 2b 65 6e 64 5f 2d  a9 28 c3 28 61 5f 29 29  |t_+end_-.(.(a_))|
00014880  2a 31 36 2d 36 30 2d a9  28 c3 28 72 5f 29 29 2a  |*16-60-.(.(r_))*|
00014890  31 36 2c 64 6f 77 6e 5f  2d 31 30 30 3a f1 a4 7a  |16,down_-100:..z|
000148a0  65 72 6f 28 c3 28 72 5f  29 29 3b 22 29 22 3a e7  |ero(.(r_));")":.|
000148b0  72 5f 3d 31 30 ec 6c 65  66 74 5f 2b 65 6e 64 5f  |r_=10.left_+end_|
000148c0  2d a9 28 c3 28 61 5f 29  29 2a 31 36 2d 36 30 2d  |-.(.(a_))*16-60-|
000148d0  a9 28 c3 28 72 5f 29 29  2a 31 36 2c 64 6f 77 6e  |.(.(r_))*16,down|
000148e0  5f 2d 31 30 30 3a f1 22  31 4f 29 22 0d 74 04 1f  |_-100:."1O)".t..|
000148f0  e7 6c 69 6e 65 61 64 64  79 5f 28 72 5f 29 3d 31  |.lineaddy_(r_)=1|
00014900  f2 70 6f 69 6e 74 28 31  2c 31 29 0d 74 0e 1f e7  |.point(1,1).t...|
00014910  6c 69 6e 65 61 64 64 79  5f 28 72 5f 29 3d 32 f2  |lineaddy_(r_)=2.|
00014920  70 6f 69 6e 74 28 32 2c  31 29 0d 74 18 1f e7 6c  |point(2,1).t...l|
00014930  69 6e 65 61 64 64 79 5f  28 72 5f 29 3d 33 f2 70  |ineaddy_(r_)=3.p|
00014940  6f 69 6e 74 28 31 2c 32  29 0d 74 22 1f e7 6c 69  |oint(1,2).t"..li|
00014950  6e 65 61 64 64 79 5f 28  72 5f 29 3d 34 f2 70 6f  |neaddy_(r_)=4.po|
00014960  69 6e 74 28 32 2c 32 29  0d 74 2c 1f e7 6c 69 6e  |int(2,2).t,..lin|
00014970  65 61 64 64 79 5f 28 72  5f 29 3d 35 f2 70 6f 69  |eaddy_(r_)=5.poi|
00014980  6e 74 28 31 2c 33 29 0d  74 36 1f e7 6c 69 6e 65  |nt(1,3).t6..line|
00014990  61 64 64 79 5f 28 72 5f  29 3d 36 f2 70 6f 69 6e  |addy_(r_)=6.poin|
000149a0  74 28 32 2c 33 29 0d 74  40 95 ec 6c 65 66 74 5f  |t(2,3).t@..left_|
000149b0  2b 65 6e 64 5f 2d 61 6e  73 6c 65 6e 5f 2a 31 36  |+end_-anslen_*16|
000149c0  2d 33 30 2c 64 6f 77 6e  5f 2d 31 37 32 3a df 6c  |-30,down_-172:.l|
000149d0  65 66 74 5f 2b 65 6e 64  5f 2d 61 6e 73 6c 65 6e  |eft_+end_-anslen|
000149e0  5f 2a 31 36 2b 61 6e 73  6c 65 6e 5f 2a 31 36 2c  |_*16+anslen_*16,|
000149f0  64 6f 77 6e 5f 2d 31 37  32 3a 6c 65 66 74 5f 3d  |down_-172:left_=|
00014a00  64 75 6e 6b 6c 65 66 74  5f 3a 6c 65 66 74 5f 3d  |dunkleft_:left_=|
00014a10  6c 65 66 74 5f 2b 6f 6e  5f 3a ed 3a 6c 65 66 74  |left_+on_:.:left|
00014a20  5f 3d 58 25 2b 38 30 3a  64 6f 77 6e 5f 3d 64 6f  |_=X%+80:down_=do|
00014a30  77 6e 5f 2d 31 38 30 3a  ed 3a e1 0d 74 7c a3 dd  |wn_-180:.:..t|..|
00014a40  f2 70 6f 69 6e 74 28 78  5f 2c 79 5f 29 3a 6c 65  |.point(x_,y_):le|
00014a50  66 74 5f 24 3d c0 61 5f  24 2c 78 5f 29 3a 72 69  |ft_$=.a_$,x_):ri|
00014a60  67 68 74 5f 24 3d c2 61  5f 24 2c 79 5f 29 3a 61  |ght_$=.a_$,y_):a|
00014a70  6c 5f 3d a9 28 6c 65 66  74 5f 24 29 2a 31 36 3a  |l_=.(left_$)*16:|
00014a80  61 72 5f 3d a9 28 72 69  67 68 74 5f 24 29 2a 31  |ar_=.(right_$)*1|
00014a90  36 3a ec 6c 65 66 74 5f  2b 65 6e 64 5f 2d 61 72  |6:.left_+end_-ar|
00014aa0  5f 2c 64 6f 77 6e 5f 2d  31 30 30 3a f1 72 69 67  |_,down_-100:.rig|
00014ab0  68 74 5f 24 3a e7 53 69  67 6e 5f 25 3d b9 ec 6c  |ht_$:.Sign_%=..l|
00014ac0  65 66 74 5f 2b 65 6e 64  5f 2b 31 30 2c 64 6f 77  |eft_+end_+10,dow|
00014ad0  6e 5f 2d 31 30 30 3a f1  73 69 67 6e 5f 24 0d 74  |n_-100:.sign_$.t|
00014ae0  ae c8 ec 6c 65 66 74 5f  2b 65 6e 64 5f 2d 61 72  |...left_+end_-ar|
00014af0  5f 2d 32 30 2c 64 6f 77  6e 5f 2d 39 30 3a f1 22  |_-20,down_-90:."|
00014b00  2e 22 3a ec 6c 65 66 74  5f 2b 65 6e 64 5f 2d 61  |.":.left_+end_-a|
00014b10  72 5f 2d 61 6c 5f 2d 33  30 2c 64 6f 77 6e 5f 2d  |r_-al_-30,down_-|
00014b20  31 30 30 3a f1 6c 65 66  74 5f 24 3a ec 6c 65 66  |100:.left_$:.lef|
00014b30  74 5f 2b 65 6e 64 5f 2d  61 72 5f 2d 33 30 2d a9  |t_+end_-ar_-30-.|
00014b40  28 74 6f 70 5f 24 28 72  5f 29 29 2a 31 36 2c 64  |(top_$(r_))*16,d|
00014b50  6f 77 6e 5f 2d 36 30 3a  f1 74 6f 70 5f 24 28 72  |own_-60:.top_$(r|
00014b60  5f 29 3a 6c 65 66 74 5f  24 3d c0 62 5f 24 2c 78  |_):left_$=.b_$,x|
00014b70  5f 29 3a 72 69 67 68 74  5f 24 3d c2 62 5f 24 2c  |_):right_$=.b_$,|
00014b80  79 5f 29 3a 61 6c 5f 3d  a9 28 6c 65 66 74 5f 24  |y_):al_=.(left_$|
00014b90  29 2a 31 36 3a 61 72 5f  3d a9 28 72 69 67 68 74  |)*16:ar_=.(right|
00014ba0  5f 24 29 2a 31 36 0d 74  e0 a3 ec 6c 65 66 74 5f  |_$)*16.t...left_|
00014bb0  2b 65 6e 64 5f 2d 61 72  5f 2c 64 6f 77 6e 5f 2d  |+end_-ar_,down_-|
00014bc0  31 34 30 3a f1 72 69 67  68 74 5f 24 3a ec 6c 65  |140:.right_$:.le|
00014bd0  66 74 5f 2b 65 6e 64 5f  2d 61 72 5f 2d 32 30 2c  |ft_+end_-ar_-20,|
00014be0  64 6f 77 6e 5f 2d 31 33  30 3a f1 22 2e 22 3a ec  |down_-130:.".":.|
00014bf0  6c 65 66 74 5f 2b 65 6e  64 5f 2d 61 72 5f 2d 61  |left_+end_-ar_-a|
00014c00  6c 5f 2d 33 30 2c 64 6f  77 6e 5f 2d 31 34 30 3a  |l_-30,down_-140:|
00014c10  f1 6c 65 66 74 5f 24 3a  e7 53 69 67 6e 5f 25 3d  |.left_$:.Sign_%=|
00014c20  a3 ec 6c 65 66 74 5f 2b  65 6e 64 5f 2d 61 72 5f  |..left_+end_-ar_|
00014c30  2d 61 6c 5f 2d 35 30 2c  64 6f 77 6e 5f 2d 31 34  |-al_-50,down_-14|
00014c40  30 3a f1 73 69 67 6e 5f  24 0d 75 08 5e e7 53 65  |0:.sign_$.u.^.Se|
00014c50  63 41 6e 73 5f 25 3d b9  ec 6c 65 66 74 5f 2b 65  |cAns_%=..left_+e|
00014c60  6e 64 5f 2d 61 6e 73 6c  65 6e 5f 2a 31 36 2d 33  |nd_-anslen_*16-3|
00014c70  30 2c 64 6f 77 6e 5f 2d  32 31 32 3a df 6c 65 66  |0,down_-212:.lef|
00014c80  74 5f 2b 65 6e 64 5f 2d  61 6e 73 6c 65 6e 5f 2a  |t_+end_-anslen_*|
00014c90  31 36 2b 61 6e 73 6c 65  6e 5f 2a 31 36 2c 64 6f  |16+anslen_*16,do|
00014ca0  77 6e 5f 2d 32 31 32 0d  75 12 10 e7 41 6e 73 77  |wn_-212.u...Answ|
00014cb0  65 72 5f 25 3d b9 8c 0d  75 1c 41 6c 65 66 74 5f  |er_%=...u.Aleft_|
00014cc0  24 3d c0 63 5f 24 2c a9  28 63 5f 24 29 2d 79 5f  |$=.c_$,.(c_$)-y_|
00014cd0  29 3a 72 69 67 68 74 5f  24 3d c2 63 5f 24 2c 79  |):right_$=.c_$,y|
00014ce0  5f 29 3a e7 6c 65 66 74  5f 24 3d 22 22 20 6c 65  |_):.left_$="" le|
00014cf0  66 74 5f 24 3d 22 4f 22  0d 75 30 94 61 6c 5f 3d  |ft_$="O".u0.al_=|
00014d00  a9 28 6c 65 66 74 5f 24  29 2a 31 36 3a 61 72 5f  |.(left_$)*16:ar_|
00014d10  3d a9 28 72 69 67 68 74  5f 24 29 2a 31 36 3a ec  |=.(right_$)*16:.|
00014d20  6c 65 66 74 5f 2b 65 6e  64 5f 2d 61 72 5f 2c 64  |left_+end_-ar_,d|
00014d30  6f 77 6e 5f 2d 31 38 30  3a f1 72 69 67 68 74 5f  |own_-180:.right_|
00014d40  24 3a ec 6c 65 66 74 5f  2b 65 6e 64 5f 2d 61 72  |$:.left_+end_-ar|
00014d50  5f 2d 32 30 2c 64 6f 77  6e 5f 2d 31 37 30 3a f1  |_-20,down_-170:.|
00014d60  22 2e 22 3a ec 6c 65 66  74 5f 2b 65 6e 64 5f 2d  |".":.left_+end_-|
00014d70  61 72 5f 2d 61 6c 5f 2d  33 30 2c 64 6f 77 6e 5f  |ar_-al_-30,down_|
00014d80  2d 31 38 30 3a f1 6c 65  66 74 5f 24 0d 75 58 07  |-180:.left_$.uX.|
00014d90  cd 3a e1 0d 75 94 40 dd  f2 4d 73 75 62 3a 4d 73  |.:..u.@..Msub:Ms|
00014da0  75 62 5f 25 3d a4 66 57  53 28 22 4d 65 74 72 69  |ub_%=.fWS("Metri|
00014db0  63 53 75 62 22 29 3a e7  6d 73 75 62 5f 28 31 29  |cSub"):.msub_(1)|
00014dc0  f2 73 49 28 4d 73 75 62  5f 25 2c 22 4d 73 75 62  |.sI(Msub_%,"Msub|
00014dd0  31 22 29 0d 75 a8 20 e7  6d 73 75 62 5f 28 32 29  |1").u. .msub_(2)|
00014de0  f2 73 49 28 4d 73 75 62  5f 25 2c 22 4d 73 75 62  |.sI(Msub_%,"Msub|
00014df0  32 22 29 0d 75 b2 20 e7  6d 73 75 62 5f 28 33 29  |2").u. .msub_(3)|
00014e00  f2 73 49 28 4d 73 75 62  5f 25 2c 22 4d 73 75 62  |.sI(Msub_%,"Msub|
00014e10  33 22 29 0d 75 bc 20 e7  6d 73 75 62 5f 28 34 29  |3").u. .msub_(4)|
00014e20  f2 73 49 28 4d 73 75 62  5f 25 2c 22 4d 73 75 62  |.sI(Msub_%,"Msub|
00014e30  34 22 29 0d 75 c6 20 e7  6d 73 75 62 5f 28 35 29  |4").u. .msub_(5)|
00014e40  f2 73 49 28 4d 73 75 62  5f 25 2c 22 4d 73 75 62  |.sI(Msub_%,"Msub|
00014e50  35 22 29 0d 75 d0 20 e7  6d 73 75 62 5f 28 36 29  |5").u. .msub_(6)|
00014e60  f2 73 49 28 4d 73 75 62  5f 25 2c 22 4d 73 75 62  |.sI(Msub_%,"Msub|
00014e70  36 22 29 0d 75 da 1c e7  73 74 5f 28 31 29 f2 73  |6").u...st_(1).s|
00014e80  49 28 4d 73 75 62 5f 25  2c 22 73 74 31 22 29 0d  |I(Msub_%,"st1").|
00014e90  75 e4 1c e7 73 74 5f 28  32 29 f2 73 49 28 4d 73  |u...st_(2).sI(Ms|
00014ea0  75 62 5f 25 2c 22 73 74  32 22 29 0d 75 ee 1c e7  |ub_%,"st2").u...|
00014eb0  73 74 5f 28 33 29 f2 73  49 28 4d 73 75 62 5f 25  |st_(3).sI(Msub_%|
00014ec0  2c 22 73 74 33 22 29 0d  75 f8 1c e7 73 74 5f 28  |,"st3").u...st_(|
00014ed0  34 29 f2 73 49 28 4d 73  75 62 5f 25 2c 22 73 74  |4).sI(Msub_%,"st|
00014ee0  34 22 29 0d 76 02 1c e7  73 74 5f 28 35 29 f2 73  |4").v...st_(5).s|
00014ef0  49 28 4d 73 75 62 5f 25  2c 22 73 74 35 22 29 0d  |I(Msub_%,"st5").|
00014f00  76 0c 1c e7 73 74 5f 28  36 29 f2 73 49 28 4d 73  |v...st_(6).sI(Ms|
00014f10  75 62 5f 25 2c 22 73 74  36 22 29 0d 76 16 10 f2  |ub_%,"st6").v...|
00014f20  6d 73 75 62 63 61 72 72  79 3a e1 0d 76 34 64 dd  |msubcarry:..v4d.|
00014f30  f2 6d 73 75 62 63 61 72  72 79 3a e7 6d 73 75 62  |.msubcarry:.msub|
00014f40  63 61 72 72 79 5f 24 3d  22 4e 6f 22 f2 73 49 28  |carry_$="No".sI(|
00014f50  4d 73 75 62 5f 25 2c 22  73 63 61 72 72 79 31 22  |Msub_%,"scarry1"|
00014f60  29 3a f2 75 73 49 28 4d  73 75 62 5f 25 2c 22 73  |):.usI(Msub_%,"s|
00014f70  63 61 72 72 79 32 22 29  3a f2 75 73 49 28 4d 73  |carry2"):.usI(Ms|
00014f80  75 62 5f 25 2c 22 73 63  61 72 72 79 33 22 29 0d  |ub_%,"scarry3").|
00014f90  76 48 59 e7 6d 73 75 62  63 61 72 72 79 5f 24 3d  |vHY.msubcarry_$=|
00014fa0  22 41 6c 6c 22 f2 75 73  49 28 4d 73 75 62 5f 25  |"All".usI(Msub_%|
00014fb0  2c 22 73 63 61 72 72 79  31 22 29 3a f2 73 49 28  |,"scarry1"):.sI(|
00014fc0  4d 73 75 62 5f 25 2c 22  73 63 61 72 72 79 32 22  |Msub_%,"scarry2"|
00014fd0  29 3a f2 75 73 49 28 4d  73 75 62 5f 25 2c 22 73  |):.usI(Msub_%,"s|
00014fe0  63 61 72 72 79 33 22 29  0d 76 52 59 e7 6d 73 75  |carry3").vRY.msu|
00014ff0  62 63 61 72 72 79 5f 24  3d 22 52 61 6e 22 f2 75  |bcarry_$="Ran".u|
00015000  73 49 28 4d 73 75 62 5f  25 2c 22 73 63 61 72 72  |sI(Msub_%,"scarr|
00015010  79 31 22 29 3a f2 75 73  49 28 4d 73 75 62 5f 25  |y1"):.usI(Msub_%|
00015020  2c 22 73 63 61 72 72 79  32 22 29 3a f2 73 49 28  |,"scarry2"):.sI(|
00015030  4d 73 75 62 5f 25 2c 22  73 63 61 72 72 79 33 22  |Msub_%,"scarry3"|
00015040  29 0d 76 5c 05 e1 0d 76  84 2a dd a4 6d 73 75 62  |).v\...v.*..msub|
00015050  5f 3a 63 5f 3d 30 3a e3  68 5f 3d 31 b8 36 3a e7  |_:c_=0:.h_=1.6:.|
00015060  6d 73 75 62 5f 28 68 5f  29 63 5f 3d 63 5f 2b 31  |msub_(h_)c_=c_+1|
00015070  0d 76 8e 09 ed 3a 3d 63  5f 0d 76 98 41 dd a4 4d  |.v...:=c_.v.A..M|
00015080  73 75 62 31 5f 3a e7 6d  73 75 62 5f 28 31 29 80  |sub1_:.msub_(1).|
00015090  a4 6d 73 75 62 5f 3d 31  20 6d 73 75 62 5f 28 31  |.msub_=1 msub_(1|
000150a0  29 3d b9 3a f2 73 49 28  4d 73 75 62 5f 25 2c 22  |)=.:.sI(Msub_%,"|
000150b0  4d 73 75 62 31 22 29 3a  3d a3 0d 76 a2 22 e7 6d  |Msub1"):=..v.".m|
000150c0  73 75 62 5f 28 31 29 6d  73 75 62 5f 28 31 29 3d  |sub_(1)msub_(1)=|
000150d0  a3 8b 6d 73 75 62 5f 28  31 29 3d b9 0d 76 ac 06  |..msub_(1)=..v..|
000150e0  3d b9 0d 76 b6 41 dd a4  4d 73 75 62 32 5f 3a e7  |=..v.A..Msub2_:.|
000150f0  6d 73 75 62 5f 28 32 29  80 a4 6d 73 75 62 5f 3d  |msub_(2)..msub_=|
00015100  31 20 6d 73 75 62 5f 28  32 29 3d b9 3a f2 73 49  |1 msub_(2)=.:.sI|
00015110  28 4d 73 75 62 5f 25 2c  22 4d 73 75 62 32 22 29  |(Msub_%,"Msub2")|
00015120  3a 3d a3 0d 76 c0 22 e7  6d 73 75 62 5f 28 32 29  |:=..v.".msub_(2)|
00015130  6d 73 75 62 5f 28 32 29  3d a3 8b 6d 73 75 62 5f  |msub_(2)=..msub_|
00015140  28 32 29 3d b9 0d 76 ca  06 3d b9 0d 76 d4 41 dd  |(2)=..v..=..v.A.|
00015150  a4 4d 73 75 62 33 5f 3a  e7 6d 73 75 62 5f 28 33  |.Msub3_:.msub_(3|
00015160  29 80 a4 6d 73 75 62 5f  3d 31 20 6d 73 75 62 5f  |)..msub_=1 msub_|
00015170  28 33 29 3d b9 3a f2 73  49 28 4d 73 75 62 5f 25  |(3)=.:.sI(Msub_%|
00015180  2c 22 4d 73 75 62 33 22  29 3a 3d a3 0d 76 de 22  |,"Msub3"):=..v."|
00015190  e7 6d 73 75 62 5f 28 33  29 6d 73 75 62 5f 28 33  |.msub_(3)msub_(3|
000151a0  29 3d a3 8b 6d 73 75 62  5f 28 33 29 3d b9 0d 76  |)=..msub_(3)=..v|
000151b0  e8 06 3d b9 0d 76 f2 41  dd a4 4d 73 75 62 34 5f  |..=..v.A..Msub4_|
000151c0  3a e7 6d 73 75 62 5f 28  34 29 80 a4 6d 73 75 62  |:.msub_(4)..msub|
000151d0  5f 3d 31 20 6d 73 75 62  5f 28 34 29 3d b9 3a f2  |_=1 msub_(4)=.:.|
000151e0  73 49 28 4d 73 75 62 5f  25 2c 22 4d 73 75 62 34  |sI(Msub_%,"Msub4|
000151f0  22 29 3a 3d a3 0d 76 fc  22 e7 6d 73 75 62 5f 28  |"):=..v.".msub_(|
00015200  34 29 6d 73 75 62 5f 28  34 29 3d a3 8b 6d 73 75  |4)msub_(4)=..msu|
00015210  62 5f 28 34 29 3d b9 0d  77 06 06 3d b9 0d 77 10  |b_(4)=..w..=..w.|
00015220  41 dd a4 4d 73 75 62 35  5f 3a e7 6d 73 75 62 5f  |A..Msub5_:.msub_|
00015230  28 35 29 80 a4 6d 73 75  62 5f 3d 31 20 6d 73 75  |(5)..msub_=1 msu|
00015240  62 5f 28 35 29 3d b9 3a  f2 73 49 28 4d 73 75 62  |b_(5)=.:.sI(Msub|
00015250  5f 25 2c 22 4d 73 75 62  35 22 29 3a 3d a3 0d 77  |_%,"Msub5"):=..w|
00015260  1a 22 e7 6d 73 75 62 5f  28 35 29 6d 73 75 62 5f  |.".msub_(5)msub_|
00015270  28 35 29 3d a3 8b 6d 73  75 62 5f 28 35 29 3d b9  |(5)=..msub_(5)=.|
00015280  0d 77 24 06 3d b9 0d 77  2e 41 dd a4 4d 73 75 62  |.w$.=..w.A..Msub|
00015290  36 5f 3a e7 6d 73 75 62  5f 28 36 29 80 a4 6d 73  |6_:.msub_(6)..ms|
000152a0  75 62 5f 3d 31 20 6d 73  75 62 5f 28 36 29 3d b9  |ub_=1 msub_(6)=.|
000152b0  3a f2 73 49 28 4d 73 75  62 5f 25 2c 22 4d 73 75  |:.sI(Msub_%,"Msu|
000152c0  62 36 22 29 3a 3d a3 0d  77 38 22 e7 6d 73 75 62  |b6"):=..w8".msub|
000152d0  5f 28 36 29 6d 73 75 62  5f 28 36 29 3d a3 8b 6d  |_(6)msub_(6)=..m|
000152e0  73 75 62 5f 28 36 29 3d  b9 0d 77 42 06 3d b9 0d  |sub_(6)=..wB.=..|
000152f0  77 4c 23 dd a4 73 74 31  5f 3a e7 73 74 5f 28 31  |wL#..st1_:.st_(1|
00015300  29 73 74 5f 28 31 29 3d  a3 8b 73 74 5f 28 31 29  |)st_(1)=..st_(1)|
00015310  3d b9 0d 77 56 06 3d b9  0d 77 60 23 dd a4 73 74  |=..wV.=..w`#..st|
00015320  32 5f 3a e7 73 74 5f 28  32 29 73 74 5f 28 32 29  |2_:.st_(2)st_(2)|
00015330  3d a3 8b 73 74 5f 28 32  29 3d b9 0d 77 6a 06 3d  |=..st_(2)=..wj.=|
00015340  b9 0d 77 74 23 dd a4 73  74 33 5f 3a e7 73 74 5f  |..wt#..st3_:.st_|
00015350  28 33 29 73 74 5f 28 33  29 3d a3 8b 73 74 5f 28  |(3)st_(3)=..st_(|
00015360  33 29 3d b9 0d 77 7e 06  3d b9 0d 77 88 23 dd a4  |3)=..w~.=..w.#..|
00015370  73 74 34 5f 3a e7 73 74  5f 28 34 29 73 74 5f 28  |st4_:.st_(4)st_(|
00015380  34 29 3d a3 8b 73 74 5f  28 34 29 3d b9 0d 77 92  |4)=..st_(4)=..w.|
00015390  06 3d b9 0d 77 9c 23 dd  a4 73 74 35 5f 3a e7 73  |.=..w.#..st5_:.s|
000153a0  74 5f 28 35 29 73 74 5f  28 35 29 3d a3 8b 73 74  |t_(5)st_(5)=..st|
000153b0  5f 28 35 29 3d b9 0d 77  a6 06 3d b9 0d 77 b0 23  |_(5)=..w..=..w.#|
000153c0  dd a4 73 74 36 5f 3a e7  73 74 5f 28 36 29 73 74  |..st6_:.st_(6)st|
000153d0  5f 28 36 29 3d a3 8b 73  74 5f 28 36 29 3d b9 0d  |_(6)=..st_(6)=..|
000153e0  77 ba 06 3d b9 0d 77 c4  2d dd a4 73 63 61 72 72  |w..=..w.-..scarr|
000153f0  79 31 5f 3a 6d 73 75 62  63 61 72 72 79 5f 24 3d  |y1_:msubcarry_$=|
00015400  22 4e 6f 22 3a f2 6d 73  75 62 63 61 72 72 79 3a  |"No":.msubcarry:|
00015410  3d b9 0d 77 ce 2e dd a4  73 63 61 72 72 79 32 5f  |=..w....scarry2_|
00015420  3a 6d 73 75 62 63 61 72  72 79 5f 24 3d 22 41 6c  |:msubcarry_$="Al|
00015430  6c 22 3a f2 6d 73 75 62  63 61 72 72 79 3a 3d b9  |l":.msubcarry:=.|
00015440  0d 77 d8 2e dd a4 73 63  61 72 72 79 33 5f 3a 6d  |.w....scarry3_:m|
00015450  73 75 62 63 61 72 72 79  5f 24 3d 22 52 61 6e 22  |subcarry_$="Ran"|
00015460  3a f2 6d 73 75 62 63 61  72 72 79 3a 3d b9 0d 78  |:.msubcarry:=..x|
00015470  00 8a dd a4 4d 73 75 62  67 6f 5f 3a f2 47 65 74  |....Msubgo_:.Get|
00015480  54 69 74 6c 65 73 3a f2  54 73 75 62 5f 3a f2 77  |Titles:.Tsub_:.w|
00015490  68 61 74 73 75 62 73 3a  f2 73 61 64 64 75 70 3a  |hatsubs:.saddup:|
000154a0  73 74 61 72 74 65 64 5f  25 3d b9 3a f2 75 73 49  |started_%=.:.usI|
000154b0  28 4d 73 75 62 5f 25 2c  22 4d 73 75 62 67 6f 22  |(Msub_%,"Msubgo"|
000154c0  29 3a c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |):.."Hourglass_O|
000154d0  66 66 22 3a 6c 61 73 74  5f 3d 33 3a 71 75 69 74  |ff":last_=3:quit|
000154e0  5f 3d a3 3a 43 6c 75 65  5f 24 3d 22 4d 73 75 62  |_=.:Clue_$="Msub|
000154f0  22 3a 3d a4 73 75 6d 73  0d 78 32 74 dd f2 54 73  |":=.sums.x2t..Ts|
00015500  75 62 5f 3a e7 ac 6d 73  75 62 5f 28 33 29 80 ac  |ub_:..msub_(3)..|
00015510  6d 73 75 62 5f 28 34 29  8c 73 74 5f 28 31 29 3d  |msub_(4).st_(1)=|
00015520  a3 3a f2 75 73 49 28 4d  73 75 62 5f 25 2c 22 73  |.:.usI(Msub_%,"s|
00015530  74 31 22 29 3a 73 74 5f  28 32 29 3d a3 3a f2 75  |t1"):st_(2)=.:.u|
00015540  73 49 28 4d 73 75 62 5f  25 2c 22 73 74 32 22 29  |sI(Msub_%,"st2")|
00015550  3a 73 74 5f 28 33 29 3d  a3 3a f2 75 73 49 28 4d  |:st_(3)=.:.usI(M|
00015560  73 75 62 5f 25 2c 22 73  74 33 22 29 0d 78 3c 6c  |sub_%,"st3").x<l|
00015570  e7 ac 6d 73 75 62 5f 28  35 29 80 ac 6d 73 75 62  |..msub_(5)..msub|
00015580  5f 28 36 29 8c 73 74 5f  28 34 29 3d a3 3a f2 75  |_(6).st_(4)=.:.u|
00015590  73 49 28 4d 73 75 62 5f  25 2c 22 73 74 34 22 29  |sI(Msub_%,"st4")|
000155a0  3a 73 74 5f 28 35 29 3d  a3 3a f2 75 73 49 28 4d  |:st_(5)=.:.usI(M|
000155b0  73 75 62 5f 25 2c 22 73  74 35 22 29 3a 73 74 5f  |sub_%,"st5"):st_|
000155c0  28 36 29 3d a3 3a f2 75  73 49 28 4d 73 75 62 5f  |(6)=.:.usI(Msub_|
000155d0  25 2c 22 73 74 36 22 29  0d 78 46 05 e1 0d 78 50  |%,"st6").xF...xP|
000155e0  51 dd f2 77 68 61 74 73  75 62 73 3a c8 99 22 48  |Q..whatsubs:.."H|
000155f0  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 3a 74 68 6f  |ourglass_On":tho|
00015600  75 5f 3d 30 3a 68 75 6e  5f 3d 30 3a e7 73 74 5f  |u_=0:hun_=0:.st_|
00015610  28 31 29 68 75 6e 5f 3d  68 75 6e 5f 2b 31 3a 68  |(1)hun_=hun_+1:h|
00015620  75 6e 5f 24 28 68 75 6e  5f 29 3d 22 a3 22 0d 78  |un_$(hun_)=".".x|
00015630  6e 26 e7 73 74 5f 28 32  29 68 75 6e 5f 3d 68 75  |n&.st_(2)hun_=hu|
00015640  6e 5f 2b 31 3a 68 75 6e  5f 24 28 68 75 6e 5f 29  |n_+1:hun_$(hun_)|
00015650  3d 22 6d 22 0d 78 78 27  e7 73 74 5f 28 33 29 68  |="m".xx'.st_(3)h|
00015660  75 6e 5f 3d 68 75 6e 5f  2b 31 3a 68 75 6e 5f 24  |un_=hun_+1:hun_$|
00015670  28 68 75 6e 5f 29 3d 22  63 6d 22 0d 78 82 2b e7  |(hun_)="cm".x.+.|
00015680  73 74 5f 28 34 29 74 68  6f 75 5f 3d 74 68 6f 75  |st_(4)thou_=thou|
00015690  5f 2b 31 3a 74 68 6f 75  5f 24 28 74 68 6f 75 5f  |_+1:thou_$(thou_|
000156a0  29 3d 22 6b 67 22 0d 78  8c 2b e7 73 74 5f 28 35  |)="kg".x.+.st_(5|
000156b0  29 74 68 6f 75 5f 3d 74  68 6f 75 5f 2b 31 3a 74  |)thou_=thou_+1:t|
000156c0  68 6f 75 5f 24 28 74 68  6f 75 5f 29 3d 22 6b 6d  |hou_$(thou_)="km|
000156d0  22 0d 78 96 2a e7 73 74  5f 28 36 29 74 68 6f 75  |".x.*.st_(6)thou|
000156e0  5f 3d 74 68 6f 75 5f 2b  31 3a 74 68 6f 75 5f 24  |_=thou_+1:thou_$|
000156f0  28 74 68 6f 75 5f 29 3d  22 6c 22 0d 78 a0 50 67  |(thou_)="l".x.Pg|
00015700  6f 74 5f 25 3d 30 3a e3  72 5f 3d 31 b8 36 3a e7  |ot_%=0:.r_=1.6:.|
00015710  6d 73 75 62 5f 28 72 5f  29 3d b9 67 6f 74 5f 25  |msub_(r_)=.got_%|
00015720  3d 67 6f 74 5f 25 2b 31  3a 61 64 64 79 74 79 70  |=got_%+1:addytyp|
00015730  65 5f 28 67 6f 74 5f 25  29 3d 72 5f 3a 67 63 5f  |e_(got_%)=r_:gc_|
00015740  25 28 67 6f 74 5f 25 29  3d 72 5f 0d 78 aa 39 ed  |%(got_%)=r_.x.9.|
00015750  3a e7 67 6f 74 5f 25 3d  31 e3 72 5f 3d 31 b8 31  |:.got_%=1.r_=1.1|
00015760  32 3a 6c 69 6e 65 61 64  64 79 5f 28 72 5f 29 3d  |2:lineaddy_(r_)=|
00015770  61 64 64 79 74 79 70 65  5f 28 67 6f 74 5f 25 29  |addytype_(got_%)|
00015780  3a ed 3a e1 0d 78 be 5c  e7 67 6f 74 5f 25 3d 36  |:.:..x.\.got_%=6|
00015790  f2 74 69 6d 65 73 28 67  6f 74 5f 25 2c 31 32 29  |.times(got_%,12)|
000157a0  3a e3 72 5f 3d 31 b8 31  32 3a 6c 69 6e 65 61 64  |:.r_=1.12:linead|
000157b0  64 79 5f 28 72 5f 29 3d  67 63 5f 25 28 66 69 6e  |dy_(r_)=gc_%(fin|
000157c0  64 65 72 5f 25 28 72 5f  29 29 3a ed 3a c8 99 22  |der_%(r_)):.:.."|
000157d0  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 3a e1  |Hourglass_Off":.|
000157e0  0d 78 c8 a7 6e 65 65 64  65 64 5f 25 3d 31 32 81  |.x..needed_%=12.|
000157f0  67 6f 74 5f 25 3a f5 3a  e3 72 5f 3d 31 b8 31 32  |got_%:.:.r_=1.12|
00015800  3a 66 69 6e 64 65 72 5f  25 28 72 5f 29 3d 30 3a  |:finder_%(r_)=0:|
00015810  ed 3a 66 6c 61 67 5f 3d  b9 3a e3 72 5f 3d 31 b8  |.:flag_=.:.r_=1.|
00015820  31 32 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |12:.."Hourglass_|
00015830  50 65 72 63 65 6e 74 61  67 65 22 2c 72 5f 2f 31  |Percentage",r_/1|
00015840  32 2a 31 30 30 3a f5 3a  66 6c 69 67 5f 3d b9 3a  |2*100:.:flig_=.:|
00015850  72 61 6e 5f 25 3d b3 28  67 6f 74 5f 25 29 3a e7  |ran_%=.(got_%):.|
00015860  72 5f 3e 31 80 67 63 5f  25 28 72 61 6e 5f 25 29  |r_>1.gc_%(ran_%)|
00015870  3d 6c 69 6e 65 61 64 64  79 5f 28 72 5f 2d 31 29  |=lineaddy_(r_-1)|
00015880  66 6c 69 67 5f 3d a3 0d  79 2c 75 fd 66 6c 69 67  |flig_=..y,u.flig|
00015890  5f 3d b9 3a 6c 69 6e 65  61 64 64 79 5f 28 72 5f  |_=.:lineaddy_(r_|
000158a0  29 3d 67 63 5f 25 28 72  61 6e 5f 25 29 3a 66 69  |)=gc_%(ran_%):fi|
000158b0  6e 64 65 72 5f 25 28 72  61 6e 5f 25 29 3d 66 69  |nder_%(ran_%)=fi|
000158c0  6e 64 65 72 5f 25 28 72  61 6e 5f 25 29 2b 31 3a  |nder_%(ran_%)+1:|
000158d0  ed 3a e3 74 5f 3d 31 b8  67 6f 74 5f 25 3a e7 66  |.:.t_=1.got_%:.f|
000158e0  69 6e 64 65 72 5f 25 28  74 5f 29 3c 6e 65 65 64  |inder_%(t_)<need|
000158f0  65 64 5f 25 20 66 6c 61  67 5f 3d a3 0d 79 4a 22  |ed_% flag_=..yJ"|
00015900  ed 3a fd 66 6c 61 67 5f  3d b9 3a c8 99 22 48 6f  |.:.flag_=.:.."Ho|
00015910  75 72 67 6c 61 73 73 5f  4f 66 66 22 3a e1 0d 79  |urglass_Off":..y|
00015920  68 74 dd f2 73 61 64 64  75 70 3a 64 75 6d 6d 79  |ht..saddup:dummy|
00015930  5f 3d b3 28 2d 91 29 3a  e3 74 5f 3d 31 b8 31 32  |_=.(-.):.t_=1.12|
00015940  3a 61 5f 28 74 5f 29 3d  2d 31 3a 62 5f 28 74 5f  |:a_(t_)=-1:b_(t_|
00015950  29 3d 2d 31 3a ed 3a c8  99 22 48 6f 75 72 67 6c  |)=-1:.:.."Hourgl|
00015960  61 73 73 5f 4f 6e 22 3a  e3 74 5f 3d 31 b8 31 32  |ass_On":.t_=1.12|
00015970  3a e7 6c 69 6e 65 61 64  64 79 5f 28 74 5f 29 3d  |:.lineaddy_(t_)=|
00015980  31 20 72 61 6e 5f 25 3d  39 39 3a 72 69 6e 5f 25  |1 ran_%=99:rin_%|
00015990  3d 39 0d 79 9a 27 e7 6c  69 6e 65 61 64 64 79 5f  |=9.y.'.lineaddy_|
000159a0  28 74 5f 29 3d 32 20 72  61 6e 5f 25 3d 39 39 39  |(t_)=2 ran_%=999|
000159b0  3a 72 69 6e 5f 25 3d 39  39 0d 79 a4 27 e7 6c 69  |:rin_%=99.y.'.li|
000159c0  6e 65 61 64 64 79 5f 28  74 5f 29 3d 33 20 72 61  |neaddy_(t_)=3 ra|
000159d0  6e 5f 25 3d 39 39 39 3a  72 69 6e 5f 25 3d 39 39  |n_%=999:rin_%=99|
000159e0  0d 79 ae 29 e7 6c 69 6e  65 61 64 64 79 5f 28 74  |.y.).lineaddy_(t|
000159f0  5f 29 3d 34 20 72 61 6e  5f 25 3d 39 39 39 39 3a  |_)=4 ran_%=9999:|
00015a00  72 69 6e 5f 25 3d 39 39  39 0d 79 b8 29 e7 6c 69  |rin_%=999.y.).li|
00015a10  6e 65 61 64 64 79 5f 28  74 5f 29 3d 35 20 72 61  |neaddy_(t_)=5 ra|
00015a20  6e 5f 25 3d 39 39 39 39  3a 72 69 6e 5f 25 3d 39  |n_%=9999:rin_%=9|
00015a30  39 39 0d 79 c2 2b e7 6c  69 6e 65 61 64 64 79 5f  |99.y.+.lineaddy_|
00015a40  28 74 5f 29 3d 36 20 72  61 6e 5f 25 3d 39 39 39  |(t_)=6 ran_%=999|
00015a50  39 39 3a 72 69 6e 5f 25  3d 39 39 39 39 0d 79 cc  |99:rin_%=9999.y.|
00015a60  21 e7 6c 69 6e 65 61 64  64 79 5f 28 74 5f 29 3c  |!.lineaddy_(t_)<|
00015a70  33 20 74 6f 70 5f 24 28  74 5f 29 3d 22 22 0d 79  |3 top_$(t_)="".y|
00015a80  d6 25 e7 6c 69 6e 65 61  64 64 79 5f 28 74 5f 29  |.%.lineaddy_(t_)|
00015a90  3d 33 84 6c 69 6e 65 61  64 64 79 5f 28 74 5f 29  |=3.lineaddy_(t_)|
00015aa0  3d 34 8c 0d 79 e0 18 e7  68 75 6e 5f 3d 30 20 74  |=4..y...hun_=0 t|
00015ab0  6f 70 5f 24 28 74 5f 29  3d 22 22 0d 79 ea 1e e7  |op_$(t_)="".y...|
00015ac0  68 75 6e 5f 3d 31 20 74  6f 70 5f 24 28 74 5f 29  |hun_=1 top_$(t_)|
00015ad0  3d 68 75 6e 5f 24 28 31  29 0d 79 f4 2e e7 68 75  |=hun_$(1).y...hu|
00015ae0  6e 5f 3e 31 20 74 6f 70  5f 3d b3 28 68 75 6e 5f  |n_>1 top_=.(hun_|
00015af0  29 3a 74 6f 70 5f 24 28  74 5f 29 3d 68 75 6e 5f  |):top_$(t_)=hun_|
00015b00  24 28 74 6f 70 5f 29 0d  79 fe 27 cd 3a e7 6c 69  |$(top_).y.'.:.li|
00015b10  6e 65 61 64 64 79 5f 28  74 5f 29 3d 35 84 6c 69  |neaddy_(t_)=5.li|
00015b20  6e 65 61 64 64 79 5f 28  74 5f 29 3d 36 8c 0d 7a  |neaddy_(t_)=6..z|
00015b30  12 19 e7 74 68 6f 75 5f  3d 30 20 74 6f 70 5f 24  |...thou_=0 top_$|
00015b40  28 74 5f 29 3d 22 22 0d  7a 1c 20 e7 74 68 6f 75  |(t_)="".z. .thou|
00015b50  5f 3d 31 20 74 6f 70 5f  24 28 74 5f 29 3d 74 68  |_=1 top_$(t_)=th|
00015b60  6f 75 5f 24 28 31 29 0d  7a 26 31 e7 74 68 6f 75  |ou_$(1).z&1.thou|
00015b70  5f 3e 31 20 74 6f 70 5f  3d b3 28 74 68 6f 75 5f  |_>1 top_=.(thou_|
00015b80  29 3a 74 6f 70 5f 24 28  74 5f 29 3d 74 68 6f 75  |):top_$(t_)=thou|
00015b90  5f 24 28 74 6f 70 5f 29  0d 7a 30 94 cd 3a c8 99  |_$(top_).z0..:..|
00015ba0  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
00015bb0  6e 74 61 67 65 22 2c 74  5f 2f 31 32 2a 31 30 30  |ntage",t_/12*100|
00015bc0  3a f5 3a 66 6c 61 67 5f  3d 30 3a f5 3a 61 5f 3d  |:.:flag_=0:.:a_=|
00015bd0  b3 28 72 61 6e 5f 25 29  3a 62 5f 3d b3 28 72 61  |.(ran_%):b_=.(ra|
00015be0  6e 5f 25 29 3a fd 61 5f  83 31 30 3c 3e 30 80 62  |n_%):.a_.10<>0.b|
00015bf0  5f 83 31 30 3c 3e 30 80  61 5f 3e 72 69 6e 5f 25  |_.10<>0.a_>rin_%|
00015c00  80 62 5f 3e 72 69 6e 5f  25 80 61 5f 3e 62 5f 3a  |.b_>rin_%.a_>b_:|
00015c10  e7 6d 73 75 62 63 61 72  72 79 5f 24 3d 22 4e 6f  |.msubcarry_$="No|
00015c20  22 f2 6e 6f 73 75 62 63  61 72 72 79 0d 7a 80 22  |".nosubcarry.z."|
00015c30  e7 6d 73 75 62 63 61 72  72 79 5f 24 3d 22 41 6c  |.msubcarry_$="Al|
00015c40  6c 22 f2 61 6c 6c 73 75  62 63 61 72 72 79 0d 7a  |l".allsubcarry.z|
00015c50  8a 0a e7 74 5f 3e 31 8c  0d 7a 94 2a e3 65 5f 3d  |...t_>1..z.*.e_=|
00015c60  31 b8 74 5f 2d 31 3a e7  61 5f 3d 61 5f 28 65 5f  |1.t_-1:.a_=a_(e_|
00015c70  29 80 62 5f 3d 62 5f 28  65 5f 29 66 6c 61 67 5f  |).b_=b_(e_)flag_|
00015c80  3d 31 0d 7a 9e 05 ed 0d  7a a8 45 cd 3a fd 66 6c  |=1.z....z.E.:.fl|
00015c90  61 67 5f 3d 30 3a 61 5f  28 74 5f 29 3d 61 5f 3a  |ag_=0:a_(t_)=a_:|
00015ca0  62 5f 28 74 5f 29 3d 62  5f 3a 63 5f 28 74 5f 29  |b_(t_)=b_:c_(t_)|
00015cb0  3d 61 5f 2d 62 5f 3a ed  3a c8 99 22 48 6f 75 72  |=a_-b_:.:.."Hour|
00015cc0  67 6c 61 73 73 5f 4f 66  66 22 3a e1 0d 7b 0c 40  |glass_Off":..{.@|
00015cd0  dd f2 4d 6d 75 6c 3a 4d  6d 75 6c 5f 25 3d a4 66  |..Mmul:Mmul_%=.f|
00015ce0  57 53 28 22 4d 65 74 72  69 63 4d 75 6c 22 29 3a  |WS("MetricMul"):|
00015cf0  e7 6d 6d 75 6c 5f 28 31  29 f2 73 49 28 4d 6d 75  |.mmul_(1).sI(Mmu|
00015d00  6c 5f 25 2c 22 4d 6d 75  6c 31 22 29 0d 7b 2a 20  |l_%,"Mmul1").{* |
00015d10  e7 6d 6d 75 6c 5f 28 32  29 f2 73 49 28 4d 6d 75  |.mmul_(2).sI(Mmu|
00015d20  6c 5f 25 2c 22 4d 6d 75  6c 32 22 29 0d 7b 34 20  |l_%,"Mmul2").{4 |
00015d30  e7 6d 6d 75 6c 5f 28 33  29 f2 73 49 28 4d 6d 75  |.mmul_(3).sI(Mmu|
00015d40  6c 5f 25 2c 22 4d 6d 75  6c 33 22 29 0d 7b 3e 20  |l_%,"Mmul3").{> |
00015d50  e7 6d 6d 75 6c 5f 28 34  29 f2 73 49 28 4d 6d 75  |.mmul_(4).sI(Mmu|
00015d60  6c 5f 25 2c 22 4d 6d 75  6c 34 22 29 0d 7b 48 20  |l_%,"Mmul4").{H |
00015d70  e7 6d 6d 75 6c 5f 28 35  29 f2 73 49 28 4d 6d 75  |.mmul_(5).sI(Mmu|
00015d80  6c 5f 25 2c 22 4d 6d 75  6c 35 22 29 0d 7b 52 20  |l_%,"Mmul5").{R |
00015d90  e7 6d 6d 75 6c 5f 28 36  29 f2 73 49 28 4d 6d 75  |.mmul_(6).sI(Mmu|
00015da0  6c 5f 25 2c 22 4d 6d 75  6c 36 22 29 0d 7b 5c 1e  |l_%,"Mmul6").{\.|
00015db0  e7 6d 6d 74 5f 28 31 29  f2 73 49 28 4d 6d 75 6c  |.mmt_(1).sI(Mmul|
00015dc0  5f 25 2c 22 6d 6d 74 31  22 29 0d 7b 66 1e e7 6d  |_%,"mmt1").{f..m|
00015dd0  6d 74 5f 28 32 29 f2 73  49 28 4d 6d 75 6c 5f 25  |mt_(2).sI(Mmul_%|
00015de0  2c 22 6d 6d 74 32 22 29  0d 7b 70 1e e7 6d 6d 74  |,"mmt2").{p..mmt|
00015df0  5f 28 33 29 f2 73 49 28  4d 6d 75 6c 5f 25 2c 22  |_(3).sI(Mmul_%,"|
00015e00  6d 6d 74 33 22 29 0d 7b  7a 1e e7 6d 6d 74 5f 28  |mmt3").{z..mmt_(|
00015e10  34 29 f2 73 49 28 4d 6d  75 6c 5f 25 2c 22 6d 6d  |4).sI(Mmul_%,"mm|
00015e20  74 34 22 29 0d 7b 84 1e  e7 6d 6d 74 5f 28 35 29  |t4").{...mmt_(5)|
00015e30  f2 73 49 28 4d 6d 75 6c  5f 25 2c 22 6d 6d 74 35  |.sI(Mmul_%,"mmt5|
00015e40  22 29 0d 7b 8e 1e e7 6d  6d 74 5f 28 36 29 f2 73  |").{...mmt_(6).s|
00015e50  49 28 4d 6d 75 6c 5f 25  2c 22 6d 6d 74 36 22 29  |I(Mmul_%,"mmt6")|
00015e60  0d 7b 98 22 e7 4d 6d 75  6c 74 5f 28 31 29 f2 73  |.{.".Mmult_(1).s|
00015e70  49 28 4d 6d 75 6c 5f 25  2c 22 6d 6d 75 6c 74 31  |I(Mmul_%,"mmult1|
00015e80  22 29 0d 7b ac 22 e7 4d  6d 75 6c 74 5f 28 32 29  |").{.".Mmult_(2)|
00015e90  f2 73 49 28 4d 6d 75 6c  5f 25 2c 22 6d 6d 75 6c  |.sI(Mmul_%,"mmul|
00015ea0  74 32 22 29 0d 7b b6 22  e7 4d 6d 75 6c 74 5f 28  |t2").{.".Mmult_(|
00015eb0  33 29 f2 73 49 28 4d 6d  75 6c 5f 25 2c 22 6d 6d  |3).sI(Mmul_%,"mm|
00015ec0  75 6c 74 33 22 29 0d 7b  c0 22 e7 4d 6d 75 6c 74  |ult3").{.".Mmult|
00015ed0  5f 28 34 29 f2 73 49 28  4d 6d 75 6c 5f 25 2c 22  |_(4).sI(Mmul_%,"|
00015ee0  6d 6d 75 6c 74 34 22 29  0d 7b ca 22 e7 4d 6d 75  |mmult4").{.".Mmu|
00015ef0  6c 74 5f 28 35 29 f2 73  49 28 4d 6d 75 6c 5f 25  |lt_(5).sI(Mmul_%|
00015f00  2c 22 6d 6d 75 6c 74 35  22 29 0d 7b d4 22 e7 4d  |,"mmult5").{.".M|
00015f10  6d 75 6c 74 5f 28 36 29  f2 73 49 28 4d 6d 75 6c  |mult_(6).sI(Mmul|
00015f20  5f 25 2c 22 6d 6d 75 6c  74 36 22 29 0d 7b de 22  |_%,"mmult6").{."|
00015f30  e7 4d 6d 75 6c 74 5f 28  37 29 f2 73 49 28 4d 6d  |.Mmult_(7).sI(Mm|
00015f40  75 6c 5f 25 2c 22 6d 6d  75 6c 74 37 22 29 0d 7b  |ul_%,"mmult7").{|
00015f50  e8 22 e7 4d 6d 75 6c 74  5f 28 38 29 f2 73 49 28  |.".Mmult_(8).sI(|
00015f60  4d 6d 75 6c 5f 25 2c 22  6d 6d 75 6c 74 38 22 29  |Mmul_%,"mmult8")|
00015f70  0d 7b f2 22 e7 4d 6d 75  6c 74 5f 28 39 29 f2 73  |.{.".Mmult_(9).s|
00015f80  49 28 4d 6d 75 6c 5f 25  2c 22 6d 6d 75 6c 74 39  |I(Mmul_%,"mmult9|
00015f90  22 29 0d 7b fc 05 e1 0d  7c 24 2a dd a4 4d 6d 75  |").{....|$*..Mmu|
00015fa0  6c 5f 3a 63 5f 3d 30 3a  e3 68 5f 3d 31 b8 36 3a  |l_:c_=0:.h_=1.6:|
00015fb0  e7 6d 6d 75 6c 5f 28 68  5f 29 63 5f 3d 63 5f 2b  |.mmul_(h_)c_=c_+|
00015fc0  31 0d 7c 2e 09 ed 3a 3d  63 5f 0d 7c 38 41 dd a4  |1.|...:=c_.|8A..|
00015fd0  4d 6d 75 6c 31 5f 3a e7  6d 6d 75 6c 5f 28 31 29  |Mmul1_:.mmul_(1)|
00015fe0  80 a4 4d 6d 75 6c 5f 3d  31 20 6d 6d 75 6c 5f 28  |..Mmul_=1 mmul_(|
00015ff0  31 29 3d b9 3a f2 73 49  28 4d 6d 75 6c 5f 25 2c  |1)=.:.sI(Mmul_%,|
00016000  22 4d 6d 75 6c 31 22 29  3a 3d b9 0d 7c 42 22 e7  |"Mmul1"):=..|B".|
00016010  6d 6d 75 6c 5f 28 31 29  6d 6d 75 6c 5f 28 31 29  |mmul_(1)mmul_(1)|
00016020  3d a3 8b 6d 6d 75 6c 5f  28 31 29 3d b9 0d 7c 4c  |=..mmul_(1)=..|L|
00016030  06 3d b9 0d 7c 56 41 dd  a4 4d 6d 75 6c 32 5f 3a  |.=..|VA..Mmul2_:|
00016040  e7 6d 6d 75 6c 5f 28 32  29 80 a4 4d 6d 75 6c 5f  |.mmul_(2)..Mmul_|
00016050  3d 31 20 6d 6d 75 6c 5f  28 32 29 3d b9 3a f2 73  |=1 mmul_(2)=.:.s|
00016060  49 28 4d 6d 75 6c 5f 25  2c 22 4d 6d 75 6c 32 22  |I(Mmul_%,"Mmul2"|
00016070  29 3a 3d b9 0d 7c 60 22  e7 6d 6d 75 6c 5f 28 32  |):=..|`".mmul_(2|
00016080  29 6d 6d 75 6c 5f 28 32  29 3d a3 8b 6d 6d 75 6c  |)mmul_(2)=..mmul|
00016090  5f 28 32 29 3d b9 0d 7c  6a 06 3d b9 0d 7c 74 41  |_(2)=..|j.=..|tA|
000160a0  dd a4 4d 6d 75 6c 33 5f  3a e7 6d 6d 75 6c 5f 28  |..Mmul3_:.mmul_(|
000160b0  33 29 80 a4 4d 6d 75 6c  5f 3d 31 20 6d 6d 75 6c  |3)..Mmul_=1 mmul|
000160c0  5f 28 33 29 3d b9 3a f2  73 49 28 4d 6d 75 6c 5f  |_(3)=.:.sI(Mmul_|
000160d0  25 2c 22 4d 6d 75 6c 33  22 29 3a 3d b9 0d 7c 7e  |%,"Mmul3"):=..|~|
000160e0  22 e7 6d 6d 75 6c 5f 28  33 29 6d 6d 75 6c 5f 28  |".mmul_(3)mmul_(|
000160f0  33 29 3d a3 8b 6d 6d 75  6c 5f 28 33 29 3d b9 0d  |3)=..mmul_(3)=..|
00016100  7c 88 06 3d b9 0d 7c 92  41 dd a4 4d 6d 75 6c 34  ||..=..|.A..Mmul4|
00016110  5f 3a e7 6d 6d 75 6c 5f  28 34 29 80 a4 4d 6d 75  |_:.mmul_(4)..Mmu|
00016120  6c 5f 3d 31 20 6d 6d 75  6c 5f 28 34 29 3d b9 3a  |l_=1 mmul_(4)=.:|
00016130  f2 73 49 28 4d 6d 75 6c  5f 25 2c 22 4d 6d 75 6c  |.sI(Mmul_%,"Mmul|
00016140  34 22 29 3a 3d b9 0d 7c  9c 22 e7 6d 6d 75 6c 5f  |4"):=..|.".mmul_|
00016150  28 34 29 6d 6d 75 6c 5f  28 34 29 3d a3 8b 6d 6d  |(4)mmul_(4)=..mm|
00016160  75 6c 5f 28 34 29 3d b9  0d 7c a6 06 3d b9 0d 7c  |ul_(4)=..|..=..||
00016170  b0 41 dd a4 4d 6d 75 6c  35 5f 3a e7 6d 6d 75 6c  |.A..Mmul5_:.mmul|
00016180  5f 28 35 29 80 a4 4d 6d  75 6c 5f 3d 31 20 6d 6d  |_(5)..Mmul_=1 mm|
00016190  75 6c 5f 28 35 29 3d b9  3a f2 73 49 28 4d 6d 75  |ul_(5)=.:.sI(Mmu|
000161a0  6c 5f 25 2c 22 4d 6d 75  6c 35 22 29 3a 3d b9 0d  |l_%,"Mmul5"):=..|
000161b0  7c ba 22 e7 6d 6d 75 6c  5f 28 35 29 6d 6d 75 6c  ||.".mmul_(5)mmul|
000161c0  5f 28 35 29 3d a3 8b 6d  6d 75 6c 5f 28 35 29 3d  |_(5)=..mmul_(5)=|
000161d0  b9 0d 7c c4 06 3d b9 0d  7c ce 41 dd a4 4d 6d 75  |..|..=..|.A..Mmu|
000161e0  6c 36 5f 3a e7 6d 6d 75  6c 5f 28 36 29 80 a4 4d  |l6_:.mmul_(6)..M|
000161f0  6d 75 6c 5f 3d 31 20 6d  6d 75 6c 5f 28 36 29 3d  |mul_=1 mmul_(6)=|
00016200  b9 3a f2 73 49 28 4d 6d  75 6c 5f 25 2c 22 4d 6d  |.:.sI(Mmul_%,"Mm|
00016210  75 6c 36 22 29 3a 3d b9  0d 7c d8 22 e7 6d 6d 75  |ul6"):=..|.".mmu|
00016220  6c 5f 28 36 29 6d 6d 75  6c 5f 28 36 29 3d a3 8b  |l_(6)mmul_(6)=..|
00016230  6d 6d 75 6c 5f 28 36 29  3d b9 0d 7c e2 06 3d b9  |mmul_(6)=..|..=.|
00016240  0d 7c ec 27 dd a4 6d 6d  74 31 5f 3a e7 6d 6d 74  |.|.'..mmt1_:.mmt|
00016250  5f 28 31 29 6d 6d 74 5f  28 31 29 3d a3 8b 6d 6d  |_(1)mmt_(1)=..mm|
00016260  74 5f 28 31 29 3d b9 0d  7c f6 06 3d b9 0d 7d 00  |t_(1)=..|..=..}.|
00016270  27 dd a4 6d 6d 74 32 5f  3a e7 6d 6d 74 5f 28 32  |'..mmt2_:.mmt_(2|
00016280  29 6d 6d 74 5f 28 32 29  3d a3 8b 6d 6d 74 5f 28  |)mmt_(2)=..mmt_(|
00016290  32 29 3d b9 0d 7d 0a 06  3d b9 0d 7d 14 27 dd a4  |2)=..}..=..}.'..|
000162a0  6d 6d 74 33 5f 3a e7 6d  6d 74 5f 28 33 29 6d 6d  |mmt3_:.mmt_(3)mm|
000162b0  74 5f 28 33 29 3d a3 8b  6d 6d 74 5f 28 33 29 3d  |t_(3)=..mmt_(3)=|
000162c0  b9 0d 7d 1e 06 3d b9 0d  7d 28 27 dd a4 6d 6d 74  |..}..=..}('..mmt|
000162d0  34 5f 3a e7 6d 6d 74 5f  28 34 29 6d 6d 74 5f 28  |4_:.mmt_(4)mmt_(|
000162e0  34 29 3d a3 8b 6d 6d 74  5f 28 34 29 3d b9 0d 7d  |4)=..mmt_(4)=..}|
000162f0  32 06 3d b9 0d 7d 3c 27  dd a4 6d 6d 74 35 5f 3a  |2.=..}<'..mmt5_:|
00016300  e7 6d 6d 74 5f 28 35 29  6d 6d 74 5f 28 35 29 3d  |.mmt_(5)mmt_(5)=|
00016310  a3 8b 6d 6d 74 5f 28 35  29 3d b9 0d 7d 46 06 3d  |..mmt_(5)=..}F.=|
00016320  b9 0d 7d 50 27 dd a4 6d  6d 74 36 5f 3a e7 6d 6d  |..}P'..mmt6_:.mm|
00016330  74 5f 28 36 29 6d 6d 74  5f 28 36 29 3d a3 8b 6d  |t_(6)mmt_(6)=..m|
00016340  6d 74 5f 28 36 29 3d b9  0d 7d 5a 06 3d b9 0d 7d  |mt_(6)=..}Z.=..}|
00016350  64 2c dd a4 4d 6d 75 6c  74 5f 3a 63 5f 3d 30 3a  |d,..Mmult_:c_=0:|
00016360  e3 68 5f 3d 31 b8 39 3a  e7 4d 6d 75 6c 74 5f 28  |.h_=1.9:.Mmult_(|
00016370  68 5f 29 63 5f 3d 63 5f  2b 31 0d 7d 6e 09 ed 3a  |h_)c_=c_+1.}n..:|
00016380  3d 63 5f 0d 7d 78 46 dd  a4 6d 6d 75 6c 74 31 5f  |=c_.}xF..mmult1_|
00016390  3a e7 4d 6d 75 6c 74 5f  28 31 29 80 a4 4d 6d 75  |:.Mmult_(1)..Mmu|
000163a0  6c 74 5f 3d 31 20 4d 6d  75 6c 74 5f 28 31 29 3d  |lt_=1 Mmult_(1)=|
000163b0  b9 3a f2 73 49 28 4d 6d  75 6c 5f 25 2c 22 6d 6d  |.:.sI(Mmul_%,"mm|
000163c0  75 6c 74 31 22 29 3a 3d  a3 0d 7d 82 25 e7 4d 6d  |ult1"):=..}.%.Mm|
000163d0  75 6c 74 5f 28 31 29 4d  6d 75 6c 74 5f 28 31 29  |ult_(1)Mmult_(1)|
000163e0  3d a3 8b 4d 6d 75 6c 74  5f 28 31 29 3d b9 0d 7d  |=..Mmult_(1)=..}|
000163f0  8c 06 3d b9 0d 7d 96 46  dd a4 6d 6d 75 6c 74 32  |..=..}.F..mmult2|
00016400  5f 3a e7 4d 6d 75 6c 74  5f 28 32 29 80 a4 4d 6d  |_:.Mmult_(2)..Mm|
00016410  75 6c 74 5f 3d 31 20 4d  6d 75 6c 74 5f 28 32 29  |ult_=1 Mmult_(2)|
00016420  3d b9 3a f2 73 49 28 4d  6d 75 6c 5f 25 2c 22 6d  |=.:.sI(Mmul_%,"m|
00016430  6d 75 6c 74 32 22 29 3a  3d a3 0d 7d a0 25 e7 4d  |mult2"):=..}.%.M|
00016440  6d 75 6c 74 5f 28 32 29  4d 6d 75 6c 74 5f 28 32  |mult_(2)Mmult_(2|
00016450  29 3d a3 8b 4d 6d 75 6c  74 5f 28 32 29 3d b9 0d  |)=..Mmult_(2)=..|
00016460  7d aa 06 3d b9 0d 7d b4  46 dd a4 6d 6d 75 6c 74  |}..=..}.F..mmult|
00016470  33 5f 3a e7 4d 6d 75 6c  74 5f 28 33 29 80 a4 4d  |3_:.Mmult_(3)..M|
00016480  6d 75 6c 74 5f 3d 31 20  4d 6d 75 6c 74 5f 28 33  |mult_=1 Mmult_(3|
00016490  29 3d b9 3a f2 73 49 28  4d 6d 75 6c 5f 25 2c 22  |)=.:.sI(Mmul_%,"|
000164a0  6d 6d 75 6c 74 33 22 29  3a 3d a3 0d 7d be 25 e7  |mmult3"):=..}.%.|
000164b0  4d 6d 75 6c 74 5f 28 33  29 4d 6d 75 6c 74 5f 28  |Mmult_(3)Mmult_(|
000164c0  33 29 3d a3 8b 4d 6d 75  6c 74 5f 28 33 29 3d b9  |3)=..Mmult_(3)=.|
000164d0  0d 7d c8 06 3d b9 0d 7d  d2 46 dd a4 6d 6d 75 6c  |.}..=..}.F..mmul|
000164e0  74 34 5f 3a e7 4d 6d 75  6c 74 5f 28 34 29 80 a4  |t4_:.Mmult_(4)..|
000164f0  4d 6d 75 6c 74 5f 3d 31  20 4d 6d 75 6c 74 5f 28  |Mmult_=1 Mmult_(|
00016500  34 29 3d b9 3a f2 73 49  28 4d 6d 75 6c 5f 25 2c  |4)=.:.sI(Mmul_%,|
00016510  22 6d 6d 75 6c 74 34 22  29 3a 3d a3 0d 7d dc 25  |"mmult4"):=..}.%|
00016520  e7 4d 6d 75 6c 74 5f 28  34 29 4d 6d 75 6c 74 5f  |.Mmult_(4)Mmult_|
00016530  28 34 29 3d a3 8b 4d 6d  75 6c 74 5f 28 34 29 3d  |(4)=..Mmult_(4)=|
00016540  b9 0d 7d e6 06 3d b9 0d  7d f0 46 dd a4 6d 6d 75  |..}..=..}.F..mmu|
00016550  6c 74 35 5f 3a e7 4d 6d  75 6c 74 5f 28 35 29 80  |lt5_:.Mmult_(5).|
00016560  a4 4d 6d 75 6c 74 5f 3d  31 20 4d 6d 75 6c 74 5f  |.Mmult_=1 Mmult_|
00016570  28 35 29 3d b9 3a f2 73  49 28 4d 6d 75 6c 5f 25  |(5)=.:.sI(Mmul_%|
00016580  2c 22 6d 6d 75 6c 74 35  22 29 3a 3d a3 0d 7d fa  |,"mmult5"):=..}.|
00016590  25 e7 4d 6d 75 6c 74 5f  28 35 29 4d 6d 75 6c 74  |%.Mmult_(5)Mmult|
000165a0  5f 28 35 29 3d a3 8b 4d  6d 75 6c 74 5f 28 35 29  |_(5)=..Mmult_(5)|
000165b0  3d b9 0d 7e 04 06 3d b9  0d 7e 0e 46 dd a4 6d 6d  |=..~..=..~.F..mm|
000165c0  75 6c 74 36 5f 3a e7 4d  6d 75 6c 74 5f 28 36 29  |ult6_:.Mmult_(6)|
000165d0  80 a4 4d 6d 75 6c 74 5f  3d 31 20 4d 6d 75 6c 74  |..Mmult_=1 Mmult|
000165e0  5f 28 36 29 3d b9 3a f2  73 49 28 4d 6d 75 6c 5f  |_(6)=.:.sI(Mmul_|
000165f0  25 2c 22 6d 6d 75 6c 74  36 22 29 3a 3d a3 0d 7e  |%,"mmult6"):=..~|
00016600  18 25 e7 4d 6d 75 6c 74  5f 28 36 29 4d 6d 75 6c  |.%.Mmult_(6)Mmul|
00016610  74 5f 28 36 29 3d a3 8b  4d 6d 75 6c 74 5f 28 36  |t_(6)=..Mmult_(6|
00016620  29 3d b9 0d 7e 22 06 3d  b9 0d 7e 2c 46 dd a4 6d  |)=..~".=..~,F..m|
00016630  6d 75 6c 74 37 5f 3a e7  4d 6d 75 6c 74 5f 28 37  |mult7_:.Mmult_(7|
00016640  29 80 a4 4d 6d 75 6c 74  5f 3d 31 20 4d 6d 75 6c  |)..Mmult_=1 Mmul|
00016650  74 5f 28 37 29 3d b9 3a  f2 73 49 28 4d 6d 75 6c  |t_(7)=.:.sI(Mmul|
00016660  5f 25 2c 22 6d 6d 75 6c  74 37 22 29 3a 3d a3 0d  |_%,"mmult7"):=..|
00016670  7e 36 25 e7 4d 6d 75 6c  74 5f 28 37 29 4d 6d 75  |~6%.Mmult_(7)Mmu|
00016680  6c 74 5f 28 37 29 3d a3  8b 4d 6d 75 6c 74 5f 28  |lt_(7)=..Mmult_(|
00016690  37 29 3d b9 0d 7e 40 06  3d b9 0d 7e 4a 46 dd a4  |7)=..~@.=..~JF..|
000166a0  6d 6d 75 6c 74 38 5f 3a  e7 4d 6d 75 6c 74 5f 28  |mmult8_:.Mmult_(|
000166b0  38 29 80 a4 4d 6d 75 6c  74 5f 3d 31 20 4d 6d 75  |8)..Mmult_=1 Mmu|
000166c0  6c 74 5f 28 38 29 3d b9  3a f2 73 49 28 4d 6d 75  |lt_(8)=.:.sI(Mmu|
000166d0  6c 5f 25 2c 22 6d 6d 75  6c 74 38 22 29 3a 3d a3  |l_%,"mmult8"):=.|
000166e0  0d 7e 54 25 e7 4d 6d 75  6c 74 5f 28 38 29 4d 6d  |.~T%.Mmult_(8)Mm|
000166f0  75 6c 74 5f 28 38 29 3d  a3 8b 4d 6d 75 6c 74 5f  |ult_(8)=..Mmult_|
00016700  28 38 29 3d b9 0d 7e 5e  06 3d b9 0d 7e 68 46 dd  |(8)=..~^.=..~hF.|
00016710  a4 6d 6d 75 6c 74 39 5f  3a e7 4d 6d 75 6c 74 5f  |.mmult9_:.Mmult_|
00016720  28 39 29 80 a4 4d 6d 75  6c 74 5f 3d 31 20 4d 6d  |(9)..Mmult_=1 Mm|
00016730  75 6c 74 5f 28 39 29 3d  b9 3a f2 73 49 28 4d 6d  |ult_(9)=.:.sI(Mm|
00016740  75 6c 5f 25 2c 22 6d 6d  75 6c 74 39 22 29 3a 3d  |ul_%,"mmult9"):=|
00016750  a3 0d 7e 72 25 e7 4d 6d  75 6c 74 5f 28 39 29 4d  |..~r%.Mmult_(9)M|
00016760  6d 75 6c 74 5f 28 39 29  3d a3 8b 4d 6d 75 6c 74  |mult_(9)=..Mmult|
00016770  5f 28 39 29 3d b9 0d 7e  7c 06 3d b9 0d 7e a4 62  |_(9)=..~|.=..~.b|
00016780  dd a4 4d 6d 75 6c 67 6f  5f 3a f2 47 65 74 54 69  |..Mmulgo_:.GetTi|
00016790  74 6c 65 73 3a 66 6c 61  67 5f 3d b9 3a 64 75 6d  |tles:flag_=.:dum|
000167a0  6d 79 5f 3d b3 28 2d 91  29 3a f2 4d 4d 6d 75 6c  |my_=.(-.):.MMmul|
000167b0  5f 3a 67 65 74 5f 25 3d  30 3a e3 72 5f 25 3d 31  |_:get_%=0:.r_%=1|
000167c0  b8 39 3a e7 4d 6d 75 6c  74 5f 28 72 5f 25 29 3d  |.9:.Mmult_(r_%)=|
000167d0  b9 67 65 74 5f 25 3d 67  65 74 5f 25 2b 31 0d 7e  |.get_%=get_%+1.~|
000167e0  b8 39 ed 3a e7 67 65 74  5f 25 3d 30 20 66 6c 61  |.9.:.get_%=0 fla|
000167f0  67 5f 3d a3 3a 63 6f 6d  70 6c 61 69 6e 5f 24 3d  |g_=.:complain_$=|
00016800  22 53 65 6c 65 63 74 20  61 20 6d 75 6c 74 69 70  |"Select a multip|
00016810  6c 69 63 61 6e 64 22 0d  7e c2 41 67 6f 74 5f 25  |licand".~.Agot_%|
00016820  3d 30 3a e3 72 5f 3d 31  b8 36 3a e7 6d 6d 75 6c  |=0:.r_=1.6:.mmul|
00016830  5f 28 72 5f 29 3d b9 67  6f 74 5f 25 3d 67 6f 74  |_(r_)=.got_%=got|
00016840  5f 25 2b 31 3a 61 64 64  79 74 79 70 65 5f 28 67  |_%+1:addytype_(g|
00016850  6f 74 5f 25 29 3d 72 5f  0d 7e cc 31 ed 3a e7 67  |ot_%)=r_.~.1.:.g|
00016860  6f 74 5f 25 3d 30 20 66  6c 61 67 5f 3d a3 3a 63  |ot_%=0 flag_=.:c|
00016870  6f 6d 70 6c 61 69 6e 5f  24 3d 22 53 65 6c 65 63  |omplain_$="Selec|
00016880  74 20 61 20 74 79 70 65  22 0d 7e d6 4b e7 66 6c  |t a type".~.K.fl|
00016890  61 67 5f 3d a3 56 5f 24  3d a4 61 6c 65 72 74 28  |ag_=.V_$=.alert(|
000168a0  63 6f 6d 70 6c 61 69 6e  5f 24 2c 22 22 2c 22 4f  |complain_$,"","O|
000168b0  4b 22 2c 22 22 2c 22 22  2c 30 29 3a f2 75 73 49  |K","","",0):.usI|
000168c0  28 4d 6d 75 6c 5f 25 2c  22 4d 6d 75 6c 67 6f 22  |(Mmul_%,"Mmulgo"|
000168d0  29 3a 3d a3 0d 7e e0 87  f2 77 68 61 74 4d 6d 75  |):=..~...whatMmu|
000168e0  6c 74 3a f2 77 68 61 74  4d 6d 75 6c 74 73 3a f2  |lt:.whatMmults:.|
000168f0  4d 6d 75 6c 74 75 70 3a  73 74 61 72 74 65 64 5f  |Mmultup:started_|
00016900  25 3d b9 3a f2 75 73 49  28 4d 6d 75 6c 5f 25 2c  |%=.:.usI(Mmul_%,|
00016910  22 4d 6d 75 6c 67 6f 22  29 3a c8 99 22 48 6f 75  |"Mmulgo"):.."Hou|
00016920  72 67 6c 61 73 73 5f 4f  66 66 22 3a 6c 61 73 74  |rglass_Off":last|
00016930  5f 3d 33 3a 71 75 69 74  5f 3d a3 3a 43 6c 75 65  |_=3:quit_=.:Clue|
00016940  5f 24 3d 22 4d 6d 75 6c  22 3a 73 69 67 6e 5f 24  |_$="Mmul":sign_$|
00016950  3d 22 78 22 3a 3d a4 73  75 6d 73 0d 7f 12 7b dd  |="x":=.sums...{.|
00016960  f2 4d 4d 6d 75 6c 5f 3a  e7 ac 6d 6d 75 6c 5f 28  |.MMmul_:..mmul_(|
00016970  33 29 80 ac 6d 6d 75 6c  5f 28 34 29 8c 6d 6d 74  |3)..mmul_(4).mmt|
00016980  5f 28 31 29 3d a3 3a f2  75 73 49 28 4d 6d 75 6c  |_(1)=.:.usI(Mmul|
00016990  5f 25 2c 22 6d 6d 74 31  22 29 3a 6d 6d 74 5f 28  |_%,"mmt1"):mmt_(|
000169a0  32 29 3d a3 3a f2 75 73  49 28 4d 6d 75 6c 5f 25  |2)=.:.usI(Mmul_%|
000169b0  2c 22 6d 6d 74 32 22 29  3a 6d 6d 74 5f 28 33 29  |,"mmt2"):mmt_(3)|
000169c0  3d a3 3a f2 75 73 49 28  4d 6d 75 6c 5f 25 2c 22  |=.:.usI(Mmul_%,"|
000169d0  6d 6d 74 33 22 29 0d 7f  1c 72 e7 ac 6d 6d 75 6c  |mmt3")...r..mmul|
000169e0  5f 28 35 29 80 ac 6d 6d  75 6c 5f 28 36 29 8c 6d  |_(5)..mmul_(6).m|
000169f0  6d 74 5f 28 34 29 3d a3  3a f2 75 73 49 28 4d 6d  |mt_(4)=.:.usI(Mm|
00016a00  75 6c 5f 25 2c 22 6d 6d  74 34 22 29 3a 6d 6d 74  |ul_%,"mmt4"):mmt|
00016a10  5f 28 35 29 3d a3 3a f2  75 73 49 28 4d 6d 75 6c  |_(5)=.:.usI(Mmul|
00016a20  5f 25 2c 22 6d 6d 74 35  22 29 3a 6d 6d 74 5f 28  |_%,"mmt5"):mmt_(|
00016a30  36 29 3d a3 3a f2 75 73  49 28 4d 6d 75 6c 5f 25  |6)=.:.usI(Mmul_%|
00016a40  2c 22 6d 6d 74 36 22 29  0d 7f 26 05 e1 0d 7f 30  |,"mmt6")..&....0|
00016a50  5d dd f2 77 68 61 74 4d  6d 75 6c 74 3a c8 99 22  |]..whatMmult:.."|
00016a60  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 3a 67 65  |Hourglass_On":ge|
00016a70  74 5f 25 3d 30 3a e3 72  5f 25 3d 31 b8 39 3a e7  |t_%=0:.r_%=1.9:.|
00016a80  4d 6d 75 6c 74 5f 28 72  5f 25 29 3d b9 67 65 74  |Mmult_(r_%)=.get|
00016a90  5f 25 3d 67 65 74 5f 25  2b 31 3a 67 63 5f 25 28  |_%=get_%+1:gc_%(|
00016aa0  67 65 74 5f 25 29 3d 72  5f 25 0d 7f 44 4d ed 3a  |get_%)=r_%..DM.:|
00016ab0  e7 67 65 74 5f 25 3d 31  e3 74 72 5f 25 3d 31 b8  |.get_%=1.tr_%=1.|
00016ac0  31 32 3a 4e 62 5f 25 28  74 72 5f 25 29 3d bb 28  |12:Nb_%(tr_%)=.(|
00016ad0  4d 6d 75 6c 74 5f 24 28  67 63 5f 25 28 31 29 29  |Mmult_$(gc_%(1))|
00016ae0  29 3a ed 3a c8 99 22 48  6f 75 72 67 6c 61 73 73  |):.:.."Hourglass|
00016af0  5f 4f 66 66 22 3a e1 0d  7f 58 69 6e 65 65 64 65  |_Off":...Xineede|
00016b00  64 5f 25 3d 31 32 81 67  65 74 5f 25 3a e3 72 5f  |d_%=12.get_%:.r_|
00016b10  3d 31 b8 31 32 3a 67 63  5f 25 28 72 5f 29 3d 30  |=1.12:gc_%(r_)=0|
00016b20  3a ed 3a 67 6f 74 5f 25  3d 30 3a e3 72 5f 25 3d  |:.:got_%=0:.r_%=|
00016b30  31 b8 39 3a e7 4d 6d 75  6c 74 5f 28 72 5f 25 29  |1.9:.Mmult_(r_%)|
00016b40  3d b9 8c 67 6f 74 5f 25  3d 67 6f 74 5f 25 2b 31  |=..got_%=got_%+1|
00016b50  3a 67 63 5f 25 28 67 6f  74 5f 25 29 3d 72 5f 25  |:gc_%(got_%)=r_%|
00016b60  0d 7f 76 d4 ed 3a f5 3a  66 6c 61 67 5f 3d b9 3a  |..v..:.:flag_=.:|
00016b70  e3 72 5f 3d 31 b8 31 32  3a 66 69 6e 64 65 72 5f  |.r_=1.12:finder_|
00016b80  25 28 72 5f 29 3d 30 3a  ed 3a e3 72 5f 3d 31 b8  |%(r_)=0:.:.r_=1.|
00016b90  31 32 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |12:.."Hourglass_|
00016ba0  50 65 72 63 65 6e 74 61  67 65 22 2c 72 5f 2f 31  |Percentage",r_/1|
00016bb0  32 2a 31 30 30 3a 72 61  6e 5f 25 3d b3 28 67 6f  |2*100:ran_%=.(go|
00016bc0  74 5f 25 29 3a 4e 62 5f  25 28 72 5f 29 3d bb 28  |t_%):Nb_%(r_)=.(|
00016bd0  4d 6d 75 6c 74 5f 24 28  67 63 5f 25 28 72 61 6e  |Mmult_$(gc_%(ran|
00016be0  5f 25 29 29 29 3a 66 69  6e 64 65 72 5f 25 28 72  |_%))):finder_%(r|
00016bf0  61 6e 5f 25 29 3d 66 69  6e 64 65 72 5f 25 28 72  |an_%)=finder_%(r|
00016c00  61 6e 5f 25 29 2b 31 3a  ed 3a e3 74 5f 3d 31 b8  |an_%)+1:.:.t_=1.|
00016c10  67 6f 74 5f 25 3a e7 66  69 6e 64 65 72 5f 25 28  |got_%:.finder_%(|
00016c20  74 5f 29 3c 6e 65 65 64  65 64 5f 25 20 66 6c 61  |t_)<needed_% fla|
00016c30  67 5f 3d a3 0d 7f d0 22  ed 3a fd 66 6c 61 67 5f  |g_=....".:.flag_|
00016c40  3d b9 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |=.:.."Hourglass_|
00016c50  4f 66 66 22 3a e1 0d 7f  e4 56 dd f2 77 68 61 74  |Off":....V..what|
00016c60  4d 6d 75 6c 74 73 3a c8  99 22 48 6f 75 72 67 6c  |Mmults:.."Hourgl|
00016c70  61 73 73 5f 4f 6e 22 3a  74 68 6f 75 5f 3d 30 3a  |ass_On":thou_=0:|
00016c80  68 75 6e 5f 3d 30 3a e7  6d 6d 74 5f 28 31 29 3d  |hun_=0:.mmt_(1)=|
00016c90  b9 68 75 6e 5f 3d 68 75  6e 5f 2b 31 3a 68 75 6e  |.hun_=hun_+1:hun|
00016ca0  5f 24 28 68 75 6e 5f 29  3d 22 a3 22 0d 80 02 29  |_$(hun_)="."...)|
00016cb0  e7 6d 6d 74 5f 28 32 29  3d b9 68 75 6e 5f 3d 68  |.mmt_(2)=.hun_=h|
00016cc0  75 6e 5f 2b 31 3a 68 75  6e 5f 24 28 68 75 6e 5f  |un_+1:hun_$(hun_|
00016cd0  29 3d 22 6d 22 0d 80 0c  2a e7 6d 6d 74 5f 28 33  |)="m"...*.mmt_(3|
00016ce0  29 3d b9 68 75 6e 5f 3d  68 75 6e 5f 2b 31 3a 68  |)=.hun_=hun_+1:h|
00016cf0  75 6e 5f 24 28 68 75 6e  5f 29 3d 22 63 6d 22 0d  |un_$(hun_)="cm".|
00016d00  80 16 2e e7 6d 6d 74 5f  28 34 29 3d b9 74 68 6f  |....mmt_(4)=.tho|
00016d10  75 5f 3d 74 68 6f 75 5f  2b 31 3a 74 68 6f 75 5f  |u_=thou_+1:thou_|
00016d20  24 28 74 68 6f 75 5f 29  3d 22 6b 67 22 0d 80 20  |$(thou_)="kg".. |
00016d30  2e e7 6d 6d 74 5f 28 35  29 3d b9 74 68 6f 75 5f  |..mmt_(5)=.thou_|
00016d40  3d 74 68 6f 75 5f 2b 31  3a 74 68 6f 75 5f 24 28  |=thou_+1:thou_$(|
00016d50  74 68 6f 75 5f 29 3d 22  6b 6d 22 0d 80 2a 2d e7  |thou_)="km"..*-.|
00016d60  6d 6d 74 5f 28 36 29 3d  b9 74 68 6f 75 5f 3d 74  |mmt_(6)=.thou_=t|
00016d70  68 6f 75 5f 2b 31 3a 74  68 6f 75 5f 24 28 74 68  |hou_+1:thou_$(th|
00016d80  6f 75 5f 29 3d 22 6c 22  0d 80 34 50 67 6f 74 5f  |ou_)="l"..4Pgot_|
00016d90  25 3d 30 3a e3 72 5f 3d  31 b8 36 3a e7 6d 6d 75  |%=0:.r_=1.6:.mmu|
00016da0  6c 5f 28 72 5f 29 3d b9  67 6f 74 5f 25 3d 67 6f  |l_(r_)=.got_%=go|
00016db0  74 5f 25 2b 31 3a 61 64  64 79 74 79 70 65 5f 28  |t_%+1:addytype_(|
00016dc0  67 6f 74 5f 25 29 3d 72  5f 3a 67 63 5f 25 28 67  |got_%)=r_:gc_%(g|
00016dd0  6f 74 5f 25 29 3d 72 5f  0d 80 3e 39 ed 3a e7 67  |ot_%)=r_..>9.:.g|
00016de0  6f 74 5f 25 3d 31 e3 72  5f 3d 31 b8 31 32 3a 6c  |ot_%=1.r_=1.12:l|
00016df0  69 6e 65 61 64 64 79 5f  28 72 5f 29 3d 61 64 64  |ineaddy_(r_)=add|
00016e00  79 74 79 70 65 5f 28 67  6f 74 5f 25 29 3a ed 3a  |ytype_(got_%):.:|
00016e10  e1 0d 80 52 5c e7 67 6f  74 5f 25 3d 36 f2 74 69  |...R\.got_%=6.ti|
00016e20  6d 65 73 28 67 6f 74 5f  25 2c 31 32 29 3a e3 72  |mes(got_%,12):.r|
00016e30  5f 3d 31 b8 31 32 3a 6c  69 6e 65 61 64 64 79 5f  |_=1.12:lineaddy_|
00016e40  28 72 5f 29 3d 67 63 5f  25 28 66 69 6e 64 65 72  |(r_)=gc_%(finder|
00016e50  5f 25 28 72 5f 29 29 3a  ed 3a c8 99 22 48 6f 75  |_%(r_)):.:.."Hou|
00016e60  72 67 6c 61 73 73 5f 4f  66 66 22 3a e1 0d 80 5c  |rglass_Off":...\|
00016e70  a7 6e 65 65 64 65 64 5f  25 3d 31 32 81 67 6f 74  |.needed_%=12.got|
00016e80  5f 25 3a f5 3a e3 72 5f  3d 31 b8 31 32 3a 66 69  |_%:.:.r_=1.12:fi|
00016e90  6e 64 65 72 5f 25 28 72  5f 29 3d 30 3a ed 3a 66  |nder_%(r_)=0:.:f|
00016ea0  6c 61 67 5f 3d b9 3a e3  72 5f 3d 31 b8 31 32 3a  |lag_=.:.r_=1.12:|
00016eb0  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 50 65 72  |.."Hourglass_Per|
00016ec0  63 65 6e 74 61 67 65 22  2c 72 5f 2f 31 32 2a 31  |centage",r_/12*1|
00016ed0  30 30 3a f5 3a 66 6c 69  67 5f 3d b9 3a 72 61 6e  |00:.:flig_=.:ran|
00016ee0  5f 25 3d b3 28 67 6f 74  5f 25 29 3a e7 72 5f 3e  |_%=.(got_%):.r_>|
00016ef0  31 80 67 63 5f 25 28 72  61 6e 5f 25 29 3d 6c 69  |1.gc_%(ran_%)=li|
00016f00  6e 65 61 64 64 79 5f 28  72 5f 2d 31 29 66 6c 69  |neaddy_(r_-1)fli|
00016f10  67 5f 3d a3 0d 80 b6 75  fd 66 6c 69 67 5f 3d b9  |g_=....u.flig_=.|
00016f20  3a 6c 69 6e 65 61 64 64  79 5f 28 72 5f 29 3d 67  |:lineaddy_(r_)=g|
00016f30  63 5f 25 28 72 61 6e 5f  25 29 3a 66 69 6e 64 65  |c_%(ran_%):finde|
00016f40  72 5f 25 28 72 61 6e 5f  25 29 3d 66 69 6e 64 65  |r_%(ran_%)=finde|
00016f50  72 5f 25 28 72 61 6e 5f  25 29 2b 31 3a ed 3a e3  |r_%(ran_%)+1:.:.|
00016f60  74 5f 3d 31 b8 67 6f 74  5f 25 3a e7 66 69 6e 64  |t_=1.got_%:.find|
00016f70  65 72 5f 25 28 74 5f 29  3c 6e 65 65 64 65 64 5f  |er_%(t_)<needed_|
00016f80  25 20 66 6c 61 67 5f 3d  a3 0d 80 de 22 ed 3a fd  |% flag_=....".:.|
00016f90  66 6c 61 67 5f 3d b9 3a  c8 99 22 48 6f 75 72 67  |flag_=.:.."Hourg|
00016fa0  6c 61 73 73 5f 4f 66 66  22 3a e1 0d 80 fc 75 dd  |lass_Off":....u.|
00016fb0  f2 4d 6d 75 6c 74 75 70  3a 64 75 6d 6d 79 5f 3d  |.Mmultup:dummy_=|
00016fc0  b3 28 2d 91 29 3a e3 74  5f 3d 31 b8 31 32 3a 61  |.(-.):.t_=1.12:a|
00016fd0  5f 28 74 5f 29 3d 2d 31  3a 62 5f 28 74 5f 29 3d  |_(t_)=-1:b_(t_)=|
00016fe0  2d 31 3a ed 3a c8 99 22  48 6f 75 72 67 6c 61 73  |-1:.:.."Hourglas|
00016ff0  73 5f 4f 6e 22 3a e3 74  5f 3d 31 b8 31 32 3a e7  |s_On":.t_=1.12:.|
00017000  6c 69 6e 65 61 64 64 79  5f 28 74 5f 29 3d 31 20  |lineaddy_(t_)=1 |
00017010  72 61 6e 5f 25 3d 39 39  3a 72 69 6e 5f 25 3d 39  |ran_%=99:rin_%=9|
00017020  0d 81 2e 27 e7 6c 69 6e  65 61 64 64 79 5f 28 74  |...'.lineaddy_(t|
00017030  5f 29 3d 32 20 72 61 6e  5f 25 3d 39 39 39 3a 72  |_)=2 ran_%=999:r|
00017040  69 6e 5f 25 3d 39 39 0d  81 38 27 e7 6c 69 6e 65  |in_%=99..8'.line|
00017050  61 64 64 79 5f 28 74 5f  29 3d 33 20 72 61 6e 5f  |addy_(t_)=3 ran_|
00017060  25 3d 39 39 39 3a 72 69  6e 5f 25 3d 39 39 0d 81  |%=999:rin_%=99..|
00017070  42 29 e7 6c 69 6e 65 61  64 64 79 5f 28 74 5f 29  |B).lineaddy_(t_)|
00017080  3d 34 20 72 61 6e 5f 25  3d 39 39 39 39 3a 72 69  |=4 ran_%=9999:ri|
00017090  6e 5f 25 3d 39 39 39 0d  81 4c 29 e7 6c 69 6e 65  |n_%=999..L).line|
000170a0  61 64 64 79 5f 28 74 5f  29 3d 35 20 72 61 6e 5f  |addy_(t_)=5 ran_|
000170b0  25 3d 39 39 39 39 3a 72  69 6e 5f 25 3d 39 39 39  |%=9999:rin_%=999|
000170c0  0d 81 56 2b e7 6c 69 6e  65 61 64 64 79 5f 28 74  |..V+.lineaddy_(t|
000170d0  5f 29 3d 36 20 72 61 6e  5f 25 3d 39 39 39 39 39  |_)=6 ran_%=99999|
000170e0  3a 72 69 6e 5f 25 3d 39  39 39 39 0d 81 60 21 e7  |:rin_%=9999..`!.|
000170f0  6c 69 6e 65 61 64 64 79  5f 28 74 5f 29 3c 33 20  |lineaddy_(t_)<3 |
00017100  74 6f 70 5f 24 28 74 5f  29 3d 22 22 0d 81 74 25  |top_$(t_)=""..t%|
00017110  e7 6c 69 6e 65 61 64 64  79 5f 28 74 5f 29 3d 33  |.lineaddy_(t_)=3|
00017120  84 6c 69 6e 65 61 64 64  79 5f 28 74 5f 29 3d 34  |.lineaddy_(t_)=4|
00017130  8c 0d 81 7e 18 e7 68 75  6e 5f 3d 30 20 74 6f 70  |...~..hun_=0 top|
00017140  5f 24 28 74 5f 29 3d 22  22 0d 81 88 1e e7 68 75  |_$(t_)="".....hu|
00017150  6e 5f 3d 31 20 74 6f 70  5f 24 28 74 5f 29 3d 68  |n_=1 top_$(t_)=h|
00017160  75 6e 5f 24 28 31 29 0d  81 92 2e e7 68 75 6e 5f  |un_$(1).....hun_|
00017170  3e 31 20 74 6f 70 5f 3d  b3 28 68 75 6e 5f 29 3a  |>1 top_=.(hun_):|
00017180  74 6f 70 5f 24 28 74 5f  29 3d 68 75 6e 5f 24 28  |top_$(t_)=hun_$(|
00017190  74 6f 70 5f 29 0d 81 9c  27 cd 3a e7 6c 69 6e 65  |top_)...'.:.line|
000171a0  61 64 64 79 5f 28 74 5f  29 3d 35 84 6c 69 6e 65  |addy_(t_)=5.line|
000171b0  61 64 64 79 5f 28 74 5f  29 3d 36 8c 0d 81 b0 19  |addy_(t_)=6.....|
000171c0  e7 74 68 6f 75 5f 3d 30  20 74 6f 70 5f 24 28 74  |.thou_=0 top_$(t|
000171d0  5f 29 3d 22 22 0d 81 ba  20 e7 74 68 6f 75 5f 3d  |_)=""... .thou_=|
000171e0  31 20 74 6f 70 5f 24 28  74 5f 29 3d 74 68 6f 75  |1 top_$(t_)=thou|
000171f0  5f 24 28 31 29 0d 81 c4  31 e7 74 68 6f 75 5f 3e  |_$(1)...1.thou_>|
00017200  31 20 74 6f 70 5f 3d b3  28 74 68 6f 75 5f 29 3a  |1 top_=.(thou_):|
00017210  74 6f 70 5f 24 28 74 5f  29 3d 74 68 6f 75 5f 24  |top_$(t_)=thou_$|
00017220  28 74 6f 70 5f 29 0d 81  ce 5d cd 3a c8 99 22 48  |(top_)...].:.."H|
00017230  6f 75 72 67 6c 61 73 73  5f 50 65 72 63 65 6e 74  |ourglass_Percent|
00017240  61 67 65 22 2c 74 5f 2f  31 32 2a 31 30 30 3a f5  |age",t_/12*100:.|
00017250  3a 66 6c 61 67 5f 3d 30  3a f5 3a 61 5f 3d b3 28  |:flag_=0:.:a_=.(|
00017260  72 61 6e 5f 25 29 3a 62  5f 3d 4e 62 5f 25 28 74  |ran_%):b_=Nb_%(t|
00017270  5f 29 3a fd 61 5f 3e 72  69 6e 5f 25 3a e7 74 5f  |_):.a_>rin_%:.t_|
00017280  3e 31 8c 0d 82 3c 2a e3  65 5f 3d 31 b8 74 5f 2d  |>1...<*.e_=1.t_-|
00017290  31 3a e7 61 5f 3d 61 5f  28 65 5f 29 80 62 5f 3d  |1:.a_=a_(e_).b_=|
000172a0  62 5f 28 65 5f 29 66 6c  61 67 5f 3d 31 0d 82 46  |b_(e_)flag_=1..F|
000172b0  05 ed 0d 82 50 45 cd 3a  fd 66 6c 61 67 5f 3d 30  |....PE.:.flag_=0|
000172c0  3a 61 5f 28 74 5f 29 3d  61 5f 3a 62 5f 28 74 5f  |:a_(t_)=a_:b_(t_|
000172d0  29 3d 62 5f 3a 63 5f 28  74 5f 29 3d 61 5f 2a 62  |)=b_:c_(t_)=a_*b|
000172e0  5f 3a ed 3a c8 99 22 48  6f 75 72 67 6c 61 73 73  |_:.:.."Hourglass|
000172f0  5f 4f 66 66 22 3a e1 0d  82 b4 39 dd f2 4d 64 69  |_Off":....9..Mdi|
00017300  76 3a 4d 64 69 76 5f 25  3d a4 66 57 53 28 22 4d  |v:Mdiv_%=.fWS("M|
00017310  65 74 44 69 76 22 29 3a  e7 6d 64 5f 28 31 29 f2  |etDiv"):.md_(1).|
00017320  73 49 28 4d 64 69 76 5f  25 2c 22 4d 64 31 22 29  |sI(Mdiv_%,"Md1")|
00017330  0d 82 c8 1c e7 6d 64 5f  28 32 29 f2 73 49 28 4d  |.....md_(2).sI(M|
00017340  64 69 76 5f 25 2c 22 4d  64 32 22 29 0d 82 d2 1c  |div_%,"Md2")....|
00017350  e7 6d 64 5f 28 33 29 f2  73 49 28 4d 64 69 76 5f  |.md_(3).sI(Mdiv_|
00017360  25 2c 22 4d 64 33 22 29  0d 82 dc 1c e7 6d 64 5f  |%,"Md3").....md_|
00017370  28 34 29 f2 73 49 28 4d  64 69 76 5f 25 2c 22 4d  |(4).sI(Mdiv_%,"M|
00017380  64 34 22 29 0d 82 e6 1c  e7 6d 64 5f 28 35 29 f2  |d4").....md_(5).|
00017390  73 49 28 4d 64 69 76 5f  25 2c 22 4d 64 35 22 29  |sI(Mdiv_%,"Md5")|
000173a0  0d 82 f0 1c e7 6d 64 5f  28 36 29 f2 73 49 28 4d  |.....md_(6).sI(M|
000173b0  64 69 76 5f 25 2c 22 4d  64 36 22 29 0d 82 fa 1e  |div_%,"Md6")....|
000173c0  e7 6d 64 74 5f 28 31 29  f2 73 49 28 4d 64 69 76  |.mdt_(1).sI(Mdiv|
000173d0  5f 25 2c 22 6d 64 74 31  22 29 0d 83 04 1e e7 6d  |_%,"mdt1").....m|
000173e0  64 74 5f 28 32 29 f2 73  49 28 4d 64 69 76 5f 25  |dt_(2).sI(Mdiv_%|
000173f0  2c 22 6d 64 74 32 22 29  0d 83 0e 1e e7 6d 64 74  |,"mdt2").....mdt|
00017400  5f 28 33 29 f2 73 49 28  4d 64 69 76 5f 25 2c 22  |_(3).sI(Mdiv_%,"|
00017410  6d 64 74 33 22 29 0d 83  18 1e e7 6d 64 74 5f 28  |mdt3").....mdt_(|
00017420  34 29 f2 73 49 28 4d 64  69 76 5f 25 2c 22 6d 64  |4).sI(Mdiv_%,"md|
00017430  74 34 22 29 0d 83 22 1e  e7 6d 64 74 5f 28 35 29  |t4").."..mdt_(5)|
00017440  f2 73 49 28 4d 64 69 76  5f 25 2c 22 6d 64 74 35  |.sI(Mdiv_%,"mdt5|
00017450  22 29 0d 83 2c 1e e7 6d  64 74 5f 28 36 29 f2 73  |")..,..mdt_(6).s|
00017460  49 28 4d 64 69 76 5f 25  2c 22 6d 64 74 36 22 29  |I(Mdiv_%,"mdt6")|
00017470  0d 83 36 20 e7 4d 64 69  76 5f 28 31 29 f2 73 49  |..6 .Mdiv_(1).sI|
00017480  28 4d 64 69 76 5f 25 2c  22 6d 64 69 76 31 22 29  |(Mdiv_%,"mdiv1")|
00017490  0d 83 40 20 e7 4d 64 69  76 5f 28 32 29 f2 73 49  |..@ .Mdiv_(2).sI|
000174a0  28 4d 64 69 76 5f 25 2c  22 6d 64 69 76 32 22 29  |(Mdiv_%,"mdiv2")|
000174b0  0d 83 4a 20 e7 4d 64 69  76 5f 28 33 29 f2 73 49  |..J .Mdiv_(3).sI|
000174c0  28 4d 64 69 76 5f 25 2c  22 6d 64 69 76 33 22 29  |(Mdiv_%,"mdiv3")|
000174d0  0d 83 54 20 e7 4d 64 69  76 5f 28 34 29 f2 73 49  |..T .Mdiv_(4).sI|
000174e0  28 4d 64 69 76 5f 25 2c  22 6d 64 69 76 34 22 29  |(Mdiv_%,"mdiv4")|
000174f0  0d 83 5e 20 e7 4d 64 69  76 5f 28 35 29 f2 73 49  |..^ .Mdiv_(5).sI|
00017500  28 4d 64 69 76 5f 25 2c  22 6d 64 69 76 35 22 29  |(Mdiv_%,"mdiv5")|
00017510  0d 83 68 20 e7 4d 64 69  76 5f 28 36 29 f2 73 49  |..h .Mdiv_(6).sI|
00017520  28 4d 64 69 76 5f 25 2c  22 6d 64 69 76 36 22 29  |(Mdiv_%,"mdiv6")|
00017530  0d 83 72 20 e7 4d 64 69  76 5f 28 37 29 f2 73 49  |..r .Mdiv_(7).sI|
00017540  28 4d 64 69 76 5f 25 2c  22 6d 64 69 76 37 22 29  |(Mdiv_%,"mdiv7")|
00017550  0d 83 7c 20 e7 4d 64 69  76 5f 28 38 29 f2 73 49  |..| .Mdiv_(8).sI|
00017560  28 4d 64 69 76 5f 25 2c  22 6d 64 69 76 38 22 29  |(Mdiv_%,"mdiv8")|
00017570  0d 83 86 20 e7 4d 64 69  76 5f 28 39 29 f2 73 49  |... .Mdiv_(9).sI|
00017580  28 4d 64 69 76 5f 25 2c  22 6d 64 69 76 39 22 29  |(Mdiv_%,"mdiv9")|
00017590  0d 83 90 05 e1 0d 83 ae  26 dd a4 4d 64 5f 3a 63  |........&..Md_:c|
000175a0  5f 3d 30 3a e3 68 5f 3d  31 b8 36 3a e7 6d 64 5f  |_=0:.h_=1.6:.md_|
000175b0  28 68 5f 29 63 5f 3d 63  5f 2b 31 0d 83 b8 09 ed  |(h_)c_=c_+1.....|
000175c0  3a 3d 63 5f 0d 83 c2 37  dd a4 4d 64 31 5f 3a e7  |:=c_...7..Md1_:.|
000175d0  6d 64 5f 28 31 29 80 a4  4d 64 5f 3d 31 20 6d 64  |md_(1)..Md_=1 md|
000175e0  5f 28 31 29 3d b9 3a f2  73 49 28 4d 64 69 76 5f  |_(1)=.:.sI(Mdiv_|
000175f0  25 2c 22 4d 64 31 22 29  3a 3d b9 0d 83 cc 1c e7  |%,"Md1"):=......|
00017600  6d 64 5f 28 31 29 6d 64  5f 28 31 29 3d a3 8b 6d  |md_(1)md_(1)=..m|
00017610  64 5f 28 31 29 3d b9 0d  83 d6 06 3d b9 0d 83 e0  |d_(1)=.....=....|
00017620  37 dd a4 4d 64 32 5f 3a  e7 6d 64 5f 28 32 29 80  |7..Md2_:.md_(2).|
00017630  a4 4d 64 5f 3d 31 20 6d  64 5f 28 32 29 3d b9 3a  |.Md_=1 md_(2)=.:|
00017640  f2 73 49 28 4d 64 69 76  5f 25 2c 22 4d 64 32 22  |.sI(Mdiv_%,"Md2"|
00017650  29 3a 3d b9 0d 83 ea 1c  e7 6d 64 5f 28 32 29 6d  |):=......md_(2)m|
00017660  64 5f 28 32 29 3d a3 8b  6d 64 5f 28 32 29 3d b9  |d_(2)=..md_(2)=.|
00017670  0d 83 f4 06 3d b9 0d 83  fe 37 dd a4 4d 64 33 5f  |....=....7..Md3_|
00017680  3a e7 6d 64 5f 28 33 29  80 a4 4d 64 5f 3d 31 20  |:.md_(3)..Md_=1 |
00017690  6d 64 5f 28 33 29 3d b9  3a f2 73 49 28 4d 64 69  |md_(3)=.:.sI(Mdi|
000176a0  76 5f 25 2c 22 4d 64 33  22 29 3a 3d b9 0d 84 08  |v_%,"Md3"):=....|
000176b0  1c e7 6d 64 5f 28 33 29  6d 64 5f 28 33 29 3d a3  |..md_(3)md_(3)=.|
000176c0  8b 6d 64 5f 28 33 29 3d  b9 0d 84 12 06 3d b9 0d  |.md_(3)=.....=..|
000176d0  84 1c 37 dd a4 4d 64 34  5f 3a e7 6d 64 5f 28 34  |..7..Md4_:.md_(4|
000176e0  29 80 a4 4d 64 5f 3d 31  20 6d 64 5f 28 34 29 3d  |)..Md_=1 md_(4)=|
000176f0  b9 3a f2 73 49 28 4d 64  69 76 5f 25 2c 22 4d 64  |.:.sI(Mdiv_%,"Md|
00017700  34 22 29 3a 3d b9 0d 84  26 1c e7 6d 64 5f 28 34  |4"):=...&..md_(4|
00017710  29 6d 64 5f 28 34 29 3d  a3 8b 6d 64 5f 28 34 29  |)md_(4)=..md_(4)|
00017720  3d b9 0d 84 30 06 3d b9  0d 84 3a 37 dd a4 4d 64  |=...0.=...:7..Md|
00017730  35 5f 3a e7 6d 64 5f 28  35 29 80 a4 4d 64 5f 3d  |5_:.md_(5)..Md_=|
00017740  31 20 6d 64 5f 28 35 29  3d b9 3a f2 73 49 28 4d  |1 md_(5)=.:.sI(M|
00017750  64 69 76 5f 25 2c 22 4d  64 35 22 29 3a 3d b9 0d  |div_%,"Md5"):=..|
00017760  84 44 1c e7 6d 64 5f 28  35 29 6d 64 5f 28 35 29  |.D..md_(5)md_(5)|
00017770  3d a3 8b 6d 64 5f 28 35  29 3d b9 0d 84 4e 06 3d  |=..md_(5)=...N.=|
00017780  b9 0d 84 58 37 dd a4 4d  64 36 5f 3a e7 6d 64 5f  |...X7..Md6_:.md_|
00017790  28 36 29 80 a4 4d 64 5f  3d 31 20 6d 64 5f 28 36  |(6)..Md_=1 md_(6|
000177a0  29 3d b9 3a f2 73 49 28  4d 64 69 76 5f 25 2c 22  |)=.:.sI(Mdiv_%,"|
000177b0  4d 64 36 22 29 3a 3d b9  0d 84 62 1c e7 6d 64 5f  |Md6"):=...b..md_|
000177c0  28 36 29 6d 64 5f 28 36  29 3d a3 8b 6d 64 5f 28  |(6)md_(6)=..md_(|
000177d0  36 29 3d b9 0d 84 6c 06  3d b9 0d 84 76 4e dd a4  |6)=...l.=...vN..|
000177e0  6d 64 74 31 5f 3a e7 6d  64 74 5f 28 31 29 6d 64  |mdt1_:.mdt_(1)md|
000177f0  74 5f 28 31 29 3d a3 3a  f2 75 73 49 28 4d 64 69  |t_(1)=.:.usI(Mdi|
00017800  76 5f 25 2c 22 6d 64 74  31 22 29 8b 6d 64 74 5f  |v_%,"mdt1").mdt_|
00017810  28 31 29 3d b9 3a f2 73  49 28 4d 64 69 76 5f 25  |(1)=.:.sI(Mdiv_%|
00017820  2c 22 6d 64 74 31 22 29  0d 84 80 06 3d b9 0d 84  |,"mdt1")....=...|
00017830  8a 4e dd a4 6d 64 74 32  5f 3a e7 6d 64 74 5f 28  |.N..mdt2_:.mdt_(|
00017840  32 29 6d 64 74 5f 28 32  29 3d a3 3a f2 75 73 49  |2)mdt_(2)=.:.usI|
00017850  28 4d 64 69 76 5f 25 2c  22 6d 64 74 32 22 29 8b  |(Mdiv_%,"mdt2").|
00017860  6d 64 74 5f 28 32 29 3d  b9 3a f2 73 49 28 4d 64  |mdt_(2)=.:.sI(Md|
00017870  69 76 5f 25 2c 22 6d 64  74 32 22 29 0d 84 94 06  |iv_%,"mdt2")....|
00017880  3d b9 0d 84 9e 4e dd a4  6d 64 74 33 5f 3a e7 6d  |=....N..mdt3_:.m|
00017890  64 74 5f 28 33 29 6d 64  74 5f 28 33 29 3d a3 3a  |dt_(3)mdt_(3)=.:|
000178a0  f2 75 73 49 28 4d 64 69  76 5f 25 2c 22 6d 64 74  |.usI(Mdiv_%,"mdt|
000178b0  33 22 29 8b 6d 64 74 5f  28 33 29 3d b9 3a f2 73  |3").mdt_(3)=.:.s|
000178c0  49 28 4d 64 69 76 5f 25  2c 22 6d 64 74 33 22 29  |I(Mdiv_%,"mdt3")|
000178d0  0d 84 a8 06 3d b9 0d 84  b2 4e dd a4 6d 64 74 34  |....=....N..mdt4|
000178e0  5f 3a e7 6d 64 74 5f 28  34 29 6d 64 74 5f 28 34  |_:.mdt_(4)mdt_(4|
000178f0  29 3d a3 3a f2 75 73 49  28 4d 64 69 76 5f 25 2c  |)=.:.usI(Mdiv_%,|
00017900  22 6d 64 74 34 22 29 8b  6d 64 74 5f 28 34 29 3d  |"mdt4").mdt_(4)=|
00017910  b9 3a f2 73 49 28 4d 64  69 76 5f 25 2c 22 6d 64  |.:.sI(Mdiv_%,"md|
00017920  74 34 22 29 0d 84 bc 06  3d b9 0d 84 c6 4e dd a4  |t4")....=....N..|
00017930  6d 64 74 35 5f 3a e7 6d  64 74 5f 28 35 29 6d 64  |mdt5_:.mdt_(5)md|
00017940  74 5f 28 35 29 3d a3 3a  f2 75 73 49 28 4d 64 69  |t_(5)=.:.usI(Mdi|
00017950  76 5f 25 2c 22 6d 64 74  35 22 29 8b 6d 64 74 5f  |v_%,"mdt5").mdt_|
00017960  28 35 29 3d b9 3a f2 73  49 28 4d 64 69 76 5f 25  |(5)=.:.sI(Mdiv_%|
00017970  2c 22 6d 64 74 35 22 29  0d 84 d0 06 3d b9 0d 84  |,"mdt5")....=...|
00017980  da 4e dd a4 6d 64 74 36  5f 3a e7 6d 64 74 5f 28  |.N..mdt6_:.mdt_(|
00017990  36 29 6d 64 74 5f 28 36  29 3d a3 3a f2 75 73 49  |6)mdt_(6)=.:.usI|
000179a0  28 4d 64 69 76 5f 25 2c  22 6d 64 74 36 22 29 8b  |(Mdiv_%,"mdt6").|
000179b0  6d 64 74 5f 28 36 29 3d  b9 3a f2 73 49 28 4d 64  |mdt_(6)=.:.sI(Md|
000179c0  69 76 5f 25 2c 22 6d 64  74 36 22 29 0d 84 e4 06  |iv_%,"mdt6")....|
000179d0  3d b9 0d 84 ee 2a dd a4  4d 64 69 76 5f 3a 63 5f  |=....*..Mdiv_:c_|
000179e0  3d 30 3a e3 68 5f 3d 31  b8 39 3a e7 4d 64 69 76  |=0:.h_=1.9:.Mdiv|
000179f0  5f 28 68 5f 29 63 5f 3d  63 5f 2b 31 0d 84 f8 09  |_(h_)c_=c_+1....|
00017a00  ed 3a 3d 63 5f 0d 85 02  41 dd a4 6d 64 69 76 31  |.:=c_...A..mdiv1|
00017a10  5f 3a e7 4d 64 69 76 5f  28 31 29 80 a4 4d 64 69  |_:.Mdiv_(1)..Mdi|
00017a20  76 5f 3d 31 20 4d 64 69  76 5f 28 31 29 3d b9 3a  |v_=1 Mdiv_(1)=.:|
00017a30  f2 73 49 28 4d 64 69 76  5f 25 2c 22 6d 64 69 76  |.sI(Mdiv_%,"mdiv|
00017a40  31 22 29 3a 3d a3 0d 85  0c 22 e7 4d 64 69 76 5f  |1"):=....".Mdiv_|
00017a50  28 31 29 4d 64 69 76 5f  28 31 29 3d a3 8b 4d 64  |(1)Mdiv_(1)=..Md|
00017a60  69 76 5f 28 31 29 3d b9  0d 85 16 06 3d b9 0d 85  |iv_(1)=.....=...|
00017a70  20 41 dd a4 6d 64 69 76  32 5f 3a e7 4d 64 69 76  | A..mdiv2_:.Mdiv|
00017a80  5f 28 32 29 80 a4 4d 64  69 76 5f 3d 31 20 4d 64  |_(2)..Mdiv_=1 Md|
00017a90  69 76 5f 28 32 29 3d b9  3a f2 73 49 28 4d 64 69  |iv_(2)=.:.sI(Mdi|
00017aa0  76 5f 25 2c 22 6d 64 69  76 32 22 29 3a 3d a3 0d  |v_%,"mdiv2"):=..|
00017ab0  85 2a 22 e7 4d 64 69 76  5f 28 32 29 4d 64 69 76  |.*".Mdiv_(2)Mdiv|
00017ac0  5f 28 32 29 3d a3 8b 4d  64 69 76 5f 28 32 29 3d  |_(2)=..Mdiv_(2)=|
00017ad0  b9 0d 85 34 06 3d b9 0d  85 3e 41 dd a4 6d 64 69  |...4.=...>A..mdi|
00017ae0  76 33 5f 3a e7 4d 64 69  76 5f 28 33 29 80 a4 4d  |v3_:.Mdiv_(3)..M|
00017af0  64 69 76 5f 3d 31 20 4d  64 69 76 5f 28 33 29 3d  |div_=1 Mdiv_(3)=|
00017b00  b9 3a f2 73 49 28 4d 64  69 76 5f 25 2c 22 6d 64  |.:.sI(Mdiv_%,"md|
00017b10  69 76 33 22 29 3a 3d a3  0d 85 48 22 e7 4d 64 69  |iv3"):=...H".Mdi|
00017b20  76 5f 28 33 29 4d 64 69  76 5f 28 33 29 3d a3 8b  |v_(3)Mdiv_(3)=..|
00017b30  4d 64 69 76 5f 28 33 29  3d b9 0d 85 52 06 3d b9  |Mdiv_(3)=...R.=.|
00017b40  0d 85 5c 41 dd a4 6d 64  69 76 34 5f 3a e7 4d 64  |..\A..mdiv4_:.Md|
00017b50  69 76 5f 28 34 29 80 a4  4d 64 69 76 5f 3d 31 20  |iv_(4)..Mdiv_=1 |
00017b60  4d 64 69 76 5f 28 34 29  3d b9 3a f2 73 49 28 4d  |Mdiv_(4)=.:.sI(M|
00017b70  64 69 76 5f 25 2c 22 6d  64 69 76 34 22 29 3a 3d  |div_%,"mdiv4"):=|
00017b80  a3 0d 85 66 22 e7 4d 64  69 76 5f 28 34 29 4d 64  |...f".Mdiv_(4)Md|
00017b90  69 76 5f 28 34 29 3d a3  8b 4d 64 69 76 5f 28 34  |iv_(4)=..Mdiv_(4|
00017ba0  29 3d b9 0d 85 70 06 3d  b9 0d 85 7a 41 dd a4 6d  |)=...p.=...zA..m|
00017bb0  64 69 76 35 5f 3a e7 4d  64 69 76 5f 28 35 29 80  |div5_:.Mdiv_(5).|
00017bc0  a4 4d 64 69 76 5f 3d 31  20 4d 64 69 76 5f 28 35  |.Mdiv_=1 Mdiv_(5|
00017bd0  29 3d b9 3a f2 73 49 28  4d 64 69 76 5f 25 2c 22  |)=.:.sI(Mdiv_%,"|
00017be0  6d 64 69 76 35 22 29 3a  3d a3 0d 85 84 22 e7 4d  |mdiv5"):=....".M|
00017bf0  64 69 76 5f 28 35 29 4d  64 69 76 5f 28 35 29 3d  |div_(5)Mdiv_(5)=|
00017c00  a3 8b 4d 64 69 76 5f 28  35 29 3d b9 0d 85 8e 06  |..Mdiv_(5)=.....|
00017c10  3d b9 0d 85 98 41 dd a4  6d 64 69 76 36 5f 3a e7  |=....A..mdiv6_:.|
00017c20  4d 64 69 76 5f 28 36 29  80 a4 4d 64 69 76 5f 3d  |Mdiv_(6)..Mdiv_=|
00017c30  31 20 4d 64 69 76 5f 28  36 29 3d b9 3a f2 73 49  |1 Mdiv_(6)=.:.sI|
00017c40  28 4d 64 69 76 5f 25 2c  22 6d 64 69 76 36 22 29  |(Mdiv_%,"mdiv6")|
00017c50  3a 3d a3 0d 85 a2 22 e7  4d 64 69 76 5f 28 36 29  |:=....".Mdiv_(6)|
00017c60  4d 64 69 76 5f 28 36 29  3d a3 8b 4d 64 69 76 5f  |Mdiv_(6)=..Mdiv_|
00017c70  28 36 29 3d b9 0d 85 ac  06 3d b9 0d 85 b6 41 dd  |(6)=.....=....A.|
00017c80  a4 6d 64 69 76 37 5f 3a  e7 4d 64 69 76 5f 28 37  |.mdiv7_:.Mdiv_(7|
00017c90  29 80 a4 4d 64 69 76 5f  3d 31 20 4d 64 69 76 5f  |)..Mdiv_=1 Mdiv_|
00017ca0  28 37 29 3d b9 3a f2 73  49 28 4d 64 69 76 5f 25  |(7)=.:.sI(Mdiv_%|
00017cb0  2c 22 6d 64 69 76 37 22  29 3a 3d a3 0d 85 c0 22  |,"mdiv7"):=...."|
00017cc0  e7 4d 64 69 76 5f 28 37  29 4d 64 69 76 5f 28 37  |.Mdiv_(7)Mdiv_(7|
00017cd0  29 3d a3 8b 4d 64 69 76  5f 28 37 29 3d b9 0d 85  |)=..Mdiv_(7)=...|
00017ce0  ca 06 3d b9 0d 85 d4 41  dd a4 6d 64 69 76 38 5f  |..=....A..mdiv8_|
00017cf0  3a e7 4d 64 69 76 5f 28  38 29 80 a4 4d 64 69 76  |:.Mdiv_(8)..Mdiv|
00017d00  5f 3d 31 20 4d 64 69 76  5f 28 38 29 3d b9 3a f2  |_=1 Mdiv_(8)=.:.|
00017d10  73 49 28 4d 64 69 76 5f  25 2c 22 6d 64 69 76 38  |sI(Mdiv_%,"mdiv8|
00017d20  22 29 3a 3d a3 0d 85 de  22 e7 4d 64 69 76 5f 28  |"):=....".Mdiv_(|
00017d30  38 29 4d 64 69 76 5f 28  38 29 3d a3 8b 4d 64 69  |8)Mdiv_(8)=..Mdi|
00017d40  76 5f 28 38 29 3d b9 0d  85 e8 06 3d b9 0d 85 f2  |v_(8)=.....=....|
00017d50  41 dd a4 6d 64 69 76 39  5f 3a e7 4d 64 69 76 5f  |A..mdiv9_:.Mdiv_|
00017d60  28 39 29 80 a4 4d 64 69  76 5f 3d 31 20 4d 64 69  |(9)..Mdiv_=1 Mdi|
00017d70  76 5f 28 39 29 3d b9 3a  f2 73 49 28 4d 64 69 76  |v_(9)=.:.sI(Mdiv|
00017d80  5f 25 2c 22 6d 64 69 76  39 22 29 3a 3d a3 0d 85  |_%,"mdiv9"):=...|
00017d90  fc 22 e7 4d 64 69 76 5f  28 39 29 4d 64 69 76 5f  |.".Mdiv_(9)Mdiv_|
00017da0  28 39 29 3d a3 8b 4d 64  69 76 5f 28 39 29 3d b9  |(9)=..Mdiv_(9)=.|
00017db0  0d 86 06 06 3d b9 0d 86  1a b6 dd a4 4d 65 74 44  |....=.......MetD|
00017dc0  69 76 67 6f 5f 3a f2 47  65 74 54 69 74 6c 65 73  |ivgo_:.GetTitles|
00017dd0  3a 66 6c 61 67 5f 3d b9  3a f2 44 6d 61 64 64 5f  |:flag_=.:.Dmadd_|
00017de0  3a 64 75 6d 6d 79 5f 3d  b3 28 2d 91 29 3a f2 77  |:dummy_=.(-.):.w|
00017df0  68 61 74 4d 64 69 76 6c  69 6e 65 3a f2 77 68 61  |hatMdivline:.wha|
00017e00  74 4d 64 69 76 79 3a f2  63 61 6c 63 4d 64 69 76  |tMdivy:.calcMdiv|
00017e10  79 3a 43 6c 75 65 5f 24  3d 22 4d 44 69 76 22 3a  |y:Clue_$="MDiv":|
00017e20  6c 61 73 74 5f 3d 33 3a  71 75 69 74 5f 3d a3 3a  |last_=3:quit_=.:|
00017e30  73 74 61 72 74 65 64 5f  25 3d b9 3a c8 99 22 48  |started_%=.:.."H|
00017e40  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 3a f2 75  |ourglass_Off":.u|
00017e50  73 49 28 4d 64 69 76 5f  25 2c 22 4d 65 74 44 69  |sI(Mdiv_%,"MetDi|
00017e60  76 67 6f 22 29 3a 3d a4  73 75 6d 73 0d 86 24 77  |vgo"):=.sums..$w|
00017e70  dd f2 44 6d 61 64 64 5f  3a e7 ac 6d 64 5f 28 33  |..Dmadd_:..md_(3|
00017e80  29 80 ac 6d 64 5f 28 34  29 8c 6d 64 74 5f 28 31  |)..md_(4).mdt_(1|
00017e90  29 3d a3 3a f2 75 73 49  28 4d 64 69 76 5f 25 2c  |)=.:.usI(Mdiv_%,|
00017ea0  22 6d 64 74 31 22 29 3a  6d 64 74 5f 28 32 29 3d  |"mdt1"):mdt_(2)=|
00017eb0  a3 3a f2 75 73 49 28 4d  64 69 76 5f 25 2c 22 6d  |.:.usI(Mdiv_%,"m|
00017ec0  64 74 32 22 29 3a 6d 64  74 5f 28 33 29 3d a3 3a  |dt2"):mdt_(3)=.:|
00017ed0  f2 75 73 49 28 4d 64 69  76 5f 25 2c 22 6d 64 74  |.usI(Mdiv_%,"mdt|
00017ee0  33 22 29 0d 86 2e 6e e7  ac 6d 64 5f 28 35 29 80  |3")...n..md_(5).|
00017ef0  ac 6d 64 5f 28 36 29 8c  6d 64 74 5f 28 34 29 3d  |.md_(6).mdt_(4)=|
00017f00  a3 3a f2 75 73 49 28 4d  64 69 76 5f 25 2c 22 6d  |.:.usI(Mdiv_%,"m|
00017f10  64 74 34 22 29 3a 6d 64  74 5f 28 35 29 3d a3 3a  |dt4"):mdt_(5)=.:|
00017f20  f2 75 73 49 28 4d 64 69  76 5f 25 2c 22 6d 64 74  |.usI(Mdiv_%,"mdt|
00017f30  35 22 29 3a 6d 64 74 5f  28 36 29 3d a3 3a f2 75  |5"):mdt_(6)=.:.u|
00017f40  73 49 28 4d 64 69 76 5f  25 2c 22 6d 64 74 36 22  |sI(Mdiv_%,"mdt6"|
00017f50  29 0d 86 38 05 e1 0d 86  42 d5 dd f2 69 5f 3a 78  |)..8....B...i_:x|
00017f60  5f 3d 8e 22 3c 4d 61 74  68 73 53 79 73 24 50 61  |_=."<MathsSys$Pa|
00017f70  74 68 3e 52 65 73 6f 75  72 63 65 73 2e 53 70 72  |th>Resources.Spr|
00017f80  69 74 65 73 22 3a e8 23  78 5f 2c 63 6f 64 65 5f  |ites":.#x_,code_|
00017f90  24 2c 41 24 3a d9 23 78  5f 3a 58 24 3d 22 22 3a  |$,A$:.#x_:X$="":|
00017fa0  e3 72 3d 31 b8 a9 28 63  6f 64 65 5f 24 29 3a 58  |.r=1..(code_$):X|
00017fb0  24 3d 58 24 2b bd 28 28  97 28 c1 63 6f 64 65 5f  |$=X$+.((.(.code_|
00017fc0  24 2c 72 2c 31 29 29 29  2d 31 34 30 29 3a ed 3a  |$,r,1)))-140):.:|
00017fd0  63 6f 64 65 5f 24 3d 58  24 3a 5a 24 3d 22 22 3a  |code_$=X$:Z$="":|
00017fe0  e3 72 3d 31 b8 a9 28 41  24 29 3a 5a 24 3d 5a 24  |.r=1..(A$):Z$=Z$|
00017ff0  2b bd 28 28 97 28 c1 41  24 2c 72 2c 31 29 29 29  |+.((.(.A$,r,1)))|
00018000  2d 31 34 31 29 3a ed 3a  41 24 3d 5a 24 3a 52 65  |-141):.:A$=Z$:Re|
00018010  67 69 73 74 65 72 5f 24  3d 41 24 3a 49 6e 66 6f  |gister_$=A$:Info|
00018020  24 28 31 29 3d 63 6f 64  65 5f 24 0d 86 ba 19 49  |$(1)=code_$....I|
00018030  6e 66 6f 24 28 32 29 3d  52 65 67 69 73 74 65 72  |nfo$(2)=Register|
00018040  5f 24 3a e1 0d 86 d8 44  dd f2 77 68 61 74 4d 64  |_$:....D..whatMd|
00018050  69 76 79 3a 74 68 6f 75  5f 3d 30 3a 68 75 6e 5f  |ivy:thou_=0:hun_|
00018060  3d 30 3a e7 6d 64 74 5f  28 31 29 3d b9 68 75 6e  |=0:.mdt_(1)=.hun|
00018070  5f 3d 68 75 6e 5f 2b 31  3a 68 75 6e 5f 24 28 68  |_=hun_+1:hun_$(h|
00018080  75 6e 5f 29 3d 22 a3 22  0d 86 f6 29 e7 6d 64 74  |un_)="."...).mdt|
00018090  5f 28 32 29 3d b9 68 75  6e 5f 3d 68 75 6e 5f 2b  |_(2)=.hun_=hun_+|
000180a0  31 3a 68 75 6e 5f 24 28  68 75 6e 5f 29 3d 22 6d  |1:hun_$(hun_)="m|
000180b0  22 0d 87 00 2a e7 6d 64  74 5f 28 33 29 3d b9 68  |"...*.mdt_(3)=.h|
000180c0  75 6e 5f 3d 68 75 6e 5f  2b 31 3a 68 75 6e 5f 24  |un_=hun_+1:hun_$|
000180d0  28 68 75 6e 5f 29 3d 22  63 6d 22 0d 87 0a 2e e7  |(hun_)="cm".....|
000180e0  6d 64 74 5f 28 34 29 3d  b9 74 68 6f 75 5f 3d 74  |mdt_(4)=.thou_=t|
000180f0  68 6f 75 5f 2b 31 3a 74  68 6f 75 5f 24 28 74 68  |hou_+1:thou_$(th|
00018100  6f 75 5f 29 3d 22 6b 67  22 0d 87 14 2e e7 6d 64  |ou_)="kg".....md|
00018110  74 5f 28 35 29 3d b9 74  68 6f 75 5f 3d 74 68 6f  |t_(5)=.thou_=tho|
00018120  75 5f 2b 31 3a 74 68 6f  75 5f 24 28 74 68 6f 75  |u_+1:thou_$(thou|
00018130  5f 29 3d 22 6b 6d 22 0d  87 1e 2d e7 6d 64 74 5f  |_)="km"...-.mdt_|
00018140  28 36 29 3d b9 74 68 6f  75 5f 3d 74 68 6f 75 5f  |(6)=.thou_=thou_|
00018150  2b 31 3a 74 68 6f 75 5f  24 28 74 68 6f 75 5f 29  |+1:thou_$(thou_)|
00018160  3d 22 6c 22 0d 87 28 2f  67 65 74 5f 25 3d 30 3a  |="l"..(/get_%=0:|
00018170  e3 72 5f 25 3d 31 b8 39  3a e7 4d 64 69 76 5f 28  |.r_%=1.9:.Mdiv_(|
00018180  72 5f 25 29 3d b9 67 65  74 5f 25 3d 67 65 74 5f  |r_%)=.get_%=get_|
00018190  25 2b 31 0d 87 3c 0f ed  3a e7 67 65 74 5f 25 3d  |%+1..<..:.get_%=|
000181a0  31 8c 0d 87 50 41 e3 72  5f 25 3d 31 b8 39 3a e7  |1...PA.r_%=1.9:.|
000181b0  4d 64 69 76 5f 28 72 5f  25 29 3d b9 8c e3 74 72  |Mdiv_(r_%)=...tr|
000181c0  5f 25 3d 31 b8 31 32 3a  4e 62 5f 25 28 74 72 5f  |_%=1.12:Nb_%(tr_|
000181d0  25 29 3d bb 28 4d 64 69  76 5f 24 28 72 5f 25 29  |%)=.(Mdiv_$(r_%)|
000181e0  29 3a ed 0d 87 64 07 ed  3a e1 0d 87 78 6a cd 3a  |):...d..:...xj.:|
000181f0  6e 65 65 64 65 64 5f 25  3d 31 32 81 67 65 74 5f  |needed_%=12.get_|
00018200  25 3a e3 72 5f 3d 31 b8  31 32 3a 67 63 5f 25 28  |%:.r_=1.12:gc_%(|
00018210  72 5f 29 3d 30 3a ed 3a  67 6f 74 5f 25 3d 30 3a  |r_)=0:.:got_%=0:|
00018220  e3 72 5f 25 3d 31 b8 39  3a e7 4d 64 69 76 5f 28  |.r_%=1.9:.Mdiv_(|
00018230  72 5f 25 29 3d b9 8c 67  6f 74 5f 25 3d 67 6f 74  |r_%)=..got_%=got|
00018240  5f 25 2b 31 3a 67 63 5f  25 28 67 6f 74 5f 25 29  |_%+1:gc_%(got_%)|
00018250  3d 72 5f 25 0d 87 aa 6e  ed 3a f5 3a e3 72 5f 3d  |=r_%...n.:.:.r_=|
00018260  31 b8 31 32 3a 66 69 6e  64 65 72 5f 25 28 72 5f  |1.12:finder_%(r_|
00018270  29 3d 30 3a ed 3a 66 6c  61 67 5f 3d b9 3a e3 72  |)=0:.:flag_=.:.r|
00018280  5f 3d 31 b8 31 32 3a f5  3a 66 6c 69 67 5f 3d b9  |_=1.12:.:flig_=.|
00018290  3a 72 61 6e 5f 25 3d b3  28 67 6f 74 5f 25 29 3a  |:ran_%=.(got_%):|
000182a0  4e 62 5f 25 3d bb 28 4d  64 69 76 5f 24 28 67 63  |Nb_%=.(Mdiv_$(gc|
000182b0  5f 25 28 72 61 6e 5f 25  29 29 29 3a e7 72 5f 3e  |_%(ran_%))):.r_>|
000182c0  31 8c 0d 87 e6 1b e7 4e  62 5f 25 3d 4e 62 5f 25  |1......Nb_%=Nb_%|
000182d0  28 72 5f 2d 31 29 66 6c  69 67 5f 3d a3 0d 87 f0  |(r_-1)flig_=....|
000182e0  7d cd 3a fd 66 6c 69 67  5f 3d b9 3a 4e 62 5f 25  |}.:.flig_=.:Nb_%|
000182f0  28 72 5f 29 3d bb 28 4d  64 69 76 5f 24 28 67 63  |(r_)=.(Mdiv_$(gc|
00018300  5f 25 28 72 61 6e 5f 25  29 29 29 3a 66 69 6e 64  |_%(ran_%))):find|
00018310  65 72 5f 25 28 72 61 6e  5f 25 29 3d 66 69 6e 64  |er_%(ran_%)=find|
00018320  65 72 5f 25 28 72 61 6e  5f 25 29 2b 31 3a ed 3a  |er_%(ran_%)+1:.:|
00018330  e3 74 5f 3d 31 b8 67 6f  74 5f 25 3a e7 66 69 6e  |.t_=1.got_%:.fin|
00018340  64 65 72 5f 25 28 74 5f  29 3c 6e 65 65 64 65 64  |der_%(t_)<needed|
00018350  5f 25 20 66 6c 61 67 5f  3d a3 0d 88 22 22 ed 3a  |_% flag_=..."".:|
00018360  fd 66 6c 61 67 5f 3d b9  3a c8 99 22 48 6f 75 72  |.flag_=.:.."Hour|
00018370  67 6c 61 73 73 5f 4f 66  66 22 3a e1 0d 88 36 49  |glass_Off":...6I|
00018380  dd f2 77 68 61 74 4d 64  69 76 6c 69 6e 65 3a 67  |..whatMdivline:g|
00018390  6f 74 5f 25 3d 30 3a e3  72 5f 3d 31 b8 36 3a e7  |ot_%=0:.r_=1.6:.|
000183a0  6d 64 5f 28 72 5f 29 3d  b9 67 6f 74 5f 25 3d 67  |md_(r_)=.got_%=g|
000183b0  6f 74 5f 25 2b 31 3a 67  63 5f 25 28 67 6f 74 5f  |ot_%+1:gc_%(got_|
000183c0  25 29 3d 72 5f 0d 88 4a  34 ed 3a e7 67 6f 74 5f  |%)=r_..J4.:.got_|
000183d0  25 3d 31 8c e3 72 5f 3d  31 b8 31 32 3a 6c 69 6e  |%=1..r_=1.12:lin|
000183e0  65 64 76 79 5f 28 72 5f  29 3d 67 63 5f 25 28 67  |edvy_(r_)=gc_%(g|
000183f0  6f 74 5f 25 29 3a ed 3a  e1 0d 88 5e 5d 6e 65 65  |ot_%):.:...^]nee|
00018400  64 65 64 5f 25 3d 31 32  81 67 6f 74 5f 25 3a f5  |ded_%=12.got_%:.|
00018410  3a 66 6c 61 67 5f 3d b9  3a e3 72 5f 3d 31 b8 31  |:flag_=.:.r_=1.1|
00018420  32 3a f5 3a 66 6c 69 67  5f 3d b9 3a 72 61 6e 5f  |2:.:flig_=.:ran_|
00018430  25 3d b3 28 67 6f 74 5f  25 29 3a 6c 69 6e 65 64  |%=.(got_%):lined|
00018440  76 79 5f 3d 67 63 5f 25  28 72 61 6e 5f 25 29 3a  |vy_=gc_%(ran_%):|
00018450  e7 72 5f 3e 31 8c 0d 88  90 23 e7 6c 69 6e 65 64  |.r_>1....#.lined|
00018460  76 79 5f 3d 6c 69 6e 65  64 76 79 5f 28 72 5f 2d  |vy_=linedvy_(r_-|
00018470  31 29 66 6c 69 67 5f 3d  a3 0d 88 9a 78 cd 3a fd  |1)flig_=....x.:.|
00018480  66 6c 69 67 5f 3d b9 3a  6c 69 6e 65 64 76 79 5f  |flig_=.:linedvy_|
00018490  28 72 5f 29 3d 67 63 5f  25 28 72 61 6e 5f 25 29  |(r_)=gc_%(ran_%)|
000184a0  3a 66 69 6e 64 65 72 5f  25 28 72 61 6e 5f 25 29  |:finder_%(ran_%)|
000184b0  3d 66 69 6e 64 65 72 5f  25 28 72 61 6e 5f 25 29  |=finder_%(ran_%)|
000184c0  2b 31 3a ed 3a e3 74 72  5f 3d 31 b8 67 6f 74 5f  |+1:.:.tr_=1.got_|
000184d0  25 3a e7 66 69 6e 64 65  72 5f 25 28 74 72 5f 29  |%:.finder_%(tr_)|
000184e0  3c 6e 65 65 64 65 64 5f  25 20 66 6c 61 67 5f 3d  |<needed_% flag_=|
000184f0  a3 0d 88 cc 10 ed 3a fd  66 6c 61 67 5f 3d b9 3a  |......:.flag_=.:|
00018500  e1 0d 88 ea 3d dd f2 63  61 6c 63 4d 64 69 76 79  |....=..calcMdivy|
00018510  3a 6d 61 6e 79 5f 3d 31  32 3a 7a 65 72 5f 3d 30  |:many_=12:zer_=0|
00018520  3a e3 72 5f 3d 31 b8 36  3a e7 6d 64 5f 28 72 5f  |:.r_=1.6:.md_(r_|
00018530  29 3d b9 7a 65 72 5f 3d  7a 65 72 5f 2b 31 0d 89  |)=.zer_=zer_+1..|
00018540  08 34 ed 3a 74 72 75 62  5f 3d b9 3a 7a 65 72 5f  |.4.:trub_=.:zer_|
00018550  3d 30 3a e3 72 5f 3d 31  b8 39 3a e7 4d 64 69 76  |=0:.r_=1.9:.Mdiv|
00018560  5f 28 72 5f 29 3d b9 7a  65 72 5f 3d 7a 65 72 5f  |_(r_)=.zer_=zer_|
00018570  2b 31 0d 89 1c 43 ed 3a  e7 7a 65 72 5f 3d 31 80  |+1...C.:.zer_=1.|
00018580  4d 64 69 76 5f 28 38 29  3d b9 84 7a 65 72 5f 3d  |Mdiv_(8)=..zer_=|
00018590  31 80 4d 64 69 76 5f 28  39 29 3d b9 84 7a 65 72  |1.Mdiv_(9)=..zer|
000185a0  5f 3d 31 80 4d 64 69 76  5f 28 37 29 3d b9 74 72  |_=1.Mdiv_(7)=.tr|
000185b0  75 62 5f 3d a3 0d 89 30  23 e7 74 72 75 62 5f 3d  |ub_=...0#.trub_=|
000185c0  a3 80 7a 65 72 5f 3d 31  80 6d 64 5f 28 31 29 3d  |..zer_=1.md_(1)=|
000185d0  b9 6d 61 6e 79 5f 3d 39  0d 89 3a 3e c8 99 22 48  |.many_=9..:>.."H|
000185e0  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 3a e3 74 5f  |ourglass_On":.t_|
000185f0  3d 31 b8 6d 61 6e 79 5f  3a e7 6c 69 6e 65 64 76  |=1.many_:.linedv|
00018600  79 5f 28 74 5f 29 3d 31  20 72 61 6e 5f 25 3d 39  |y_(t_)=1 ran_%=9|
00018610  39 3a 6c 5f 3d 39 0d 89  58 23 e7 6c 69 6e 65 64  |9:l_=9..X#.lined|
00018620  76 79 5f 28 74 5f 29 3d  32 20 72 61 6e 5f 25 3d  |vy_(t_)=2 ran_%=|
00018630  39 39 39 3a 6c 5f 3d 39  39 0d 89 62 23 e7 6c 69  |999:l_=99..b#.li|
00018640  6e 65 64 76 79 5f 28 74  5f 29 3d 33 20 72 61 6e  |nedvy_(t_)=3 ran|
00018650  5f 25 3d 39 39 39 3a 6c  5f 3d 39 39 0d 89 6c 25  |_%=999:l_=99..l%|
00018660  e7 6c 69 6e 65 64 76 79  5f 28 74 5f 29 3d 34 20  |.linedvy_(t_)=4 |
00018670  72 61 6e 5f 25 3d 39 39  39 39 3a 6c 5f 3d 39 39  |ran_%=9999:l_=99|
00018680  39 0d 89 76 25 e7 6c 69  6e 65 64 76 79 5f 28 74  |9..v%.linedvy_(t|
00018690  5f 29 3d 35 20 72 61 6e  5f 25 3d 39 39 39 39 3a  |_)=5 ran_%=9999:|
000186a0  6c 5f 3d 39 39 39 0d 89  80 27 e7 6c 69 6e 65 64  |l_=999...'.lined|
000186b0  76 79 5f 28 74 5f 29 3d  36 20 72 61 6e 5f 25 3d  |vy_(t_)=6 ran_%=|
000186c0  39 39 39 39 39 3a 6c 5f  3d 39 39 39 39 0d 89 8a  |99999:l_=9999...|
000186d0  20 e7 6c 69 6e 65 64 76  79 5f 28 74 5f 29 3c 33  | .linedvy_(t_)<3|
000186e0  20 74 6f 70 5f 24 28 74  5f 29 3d 22 22 0d 89 9e  | top_$(t_)=""...|
000186f0  23 e7 6c 69 6e 65 64 76  79 5f 28 74 5f 29 3d 33  |#.linedvy_(t_)=3|
00018700  84 6c 69 6e 65 64 76 79  5f 28 74 5f 29 3d 34 8c  |.linedvy_(t_)=4.|
00018710  0d 89 a8 18 e7 68 75 6e  5f 3d 30 20 74 6f 70 5f  |.....hun_=0 top_|
00018720  24 28 74 5f 29 3d 22 22  0d 89 b2 1e e7 68 75 6e  |$(t_)="".....hun|
00018730  5f 3d 31 20 74 6f 70 5f  24 28 74 5f 29 3d 68 75  |_=1 top_$(t_)=hu|
00018740  6e 5f 24 28 31 29 0d 89  bc 2e e7 68 75 6e 5f 3e  |n_$(1).....hun_>|
00018750  31 20 74 6f 70 5f 3d b3  28 68 75 6e 5f 29 3a 74  |1 top_=.(hun_):t|
00018760  6f 70 5f 24 28 74 5f 29  3d 68 75 6e 5f 24 28 74  |op_$(t_)=hun_$(t|
00018770  6f 70 5f 29 0d 89 c6 25  cd 3a e7 6c 69 6e 65 64  |op_)...%.:.lined|
00018780  76 79 5f 28 74 5f 29 3d  35 84 6c 69 6e 65 64 76  |vy_(t_)=5.linedv|
00018790  79 5f 28 74 5f 29 3d 36  8c 0d 89 da 19 e7 74 68  |y_(t_)=6......th|
000187a0  6f 75 5f 3d 30 20 74 6f  70 5f 24 28 74 5f 29 3d  |ou_=0 top_$(t_)=|
000187b0  22 22 0d 89 e4 20 e7 74  68 6f 75 5f 3d 31 20 74  |""... .thou_=1 t|
000187c0  6f 70 5f 24 28 74 5f 29  3d 74 68 6f 75 5f 24 28  |op_$(t_)=thou_$(|
000187d0  31 29 0d 89 ee 31 e7 74  68 6f 75 5f 3e 31 20 74  |1)...1.thou_>1 t|
000187e0  6f 70 5f 3d b3 28 74 68  6f 75 5f 29 3a 74 6f 70  |op_=.(thou_):top|
000187f0  5f 24 28 74 5f 29 3d 74  68 6f 75 5f 24 28 74 6f  |_$(t_)=thou_$(to|
00018800  70 5f 29 0d 89 f8 62 cd  3a c8 99 22 48 6f 75 72  |p_)...b.:.."Hour|
00018810  67 6c 61 73 73 5f 50 65  72 63 65 6e 74 61 67 65  |glass_Percentage|
00018820  22 2c 74 5f 2f 31 32 2a  31 30 30 3a f5 3a 66 6c  |",t_/12*100:.:fl|
00018830  61 67 5f 3d 30 3a f5 3a  61 5f 3d b3 28 72 61 6e  |ag_=0:.:a_=.(ran|
00018840  5f 25 29 3a 62 5f 3d 4e  62 5f 25 28 74 5f 29 3a  |_%):b_=Nb_%(t_):|
00018850  fd 61 5f 83 62 5f 3d 30  80 61 5f 3e 6c 5f 3a e7  |.a_.b_=0.a_>l_:.|
00018860  74 5f 3e 31 8c 0d 8a 48  2a e3 65 5f 3d 31 b8 74  |t_>1...H*.e_=1.t|
00018870  5f 2d 31 3a e7 61 5f 3d  61 5f 28 65 5f 29 80 62  |_-1:.a_=a_(e_).b|
00018880  5f 3d 62 5f 28 65 5f 29  66 6c 61 67 5f 3d 31 0d  |_=b_(e_)flag_=1.|
00018890  8a 52 05 ed 0d 8a 5c 60  cd 3a fd 66 6c 61 67 5f  |.R....\`.:.flag_|
000188a0  3d 30 3a 61 5f 28 74 5f  29 3d 61 5f 3a 62 5f 28  |=0:a_(t_)=a_:b_(|
000188b0  74 5f 29 3d 62 5f 3a e7  61 5f 83 62 5f 3c 3e 30  |t_)=b_:.a_.b_<>0|
000188c0  20 63 5f 28 74 5f 29 3d  61 5f 81 62 5f 3a 72 65  | c_(t_)=a_.b_:re|
000188d0  6d 5f 28 74 5f 29 3d 61  5f 83 62 5f 8b 63 5f 28  |m_(t_)=a_.b_.c_(|
000188e0  74 5f 29 3d 61 5f 2f 62  5f 3a 72 65 6d 5f 28 74  |t_)=a_/b_:rem_(t|
000188f0  5f 29 3d 30 0d 8a 84 25  ed 3a 73 74 61 72 74 65  |_)=0...%.:starte|
00018900  64 5f 25 3d b9 3a c8 99  22 48 6f 75 72 67 6c 61  |d_%=.:.."Hourgla|
00018910  73 73 5f 4f 66 66 22 3a  e1 0d 8a ac 21 dd a4 54  |ss_Off":....!..T|
00018920  69 74 6c 65 5f 3a 54 69  74 6c 65 5f 24 3d 24 21  |itle_:Title_$=$!|
00018930  54 69 74 6c 65 5f 25 3a  3d b9 0d 8a b6 2d dd a4  |Title_%:=....-..|
00018940  4d 61 69 6e 74 69 74 6c  65 5f 3a 4d 61 69 6e 74  |Maintitle_:Maint|
00018950  69 74 6c 65 5f 24 3d 24  21 4d 61 69 6e 74 69 74  |itle_$=$!Maintit|
00018960  6c 65 5f 25 3a 3d b9 0d  8a ca 3b dd a4 7a 65 72  |le_%:=....;..zer|
00018970  6f 28 7a 5f 24 29 3a e3  7a 5f 3d 31 b8 a9 28 7a  |o(z_$):.z_=1..(z|
00018980  5f 24 29 3a e7 c1 7a 5f  24 2c 7a 5f 2c 31 29 3d  |_$):..z_$,z_,1)=|
00018990  22 30 22 8c c1 7a 5f 24  2c 7a 5f 2c 31 29 3d 22  |"0"..z_$,z_,1)="|
000189a0  4f 22 0d 8a e8 0a ed 3a  3d 7a 5f 24 0d 8a fc bc  |O".....:=z_$....|
000189b0  dd a4 43 72 65 61 74 65  5f 3a f2 75 73 49 28 47  |..Create_:.usI(G|
000189c0  72 61 66 49 74 5f 25 2c  22 43 72 65 61 74 65 22  |rafIt_%,"Create"|
000189d0  29 3a c8 97 b8 31 30 30  30 2c 35 33 30 3a 76 5f  |):...1000,530:v_|
000189e0  25 3d a4 77 69 6e 64 6f  77 28 22 44 65 6d 6f 22  |%=.window("Demo"|
000189f0  29 3a 3d b9 3a 56 5f 24  3d a4 61 6c 65 72 74 28  |):=.:V_$=.alert(|
00018a00  22 43 6f 6e 74 61 63 74  20 43 43 53 20 66 6f 72  |"Contact CCS for|
00018a10  20 63 6f 6d 70 6c 65 74  65 20 76 65 72 73 69 6f  | complete versio|
00018a20  6e 20 6f 66 20 4d 61 74  68 73 20 43 61 72 64 22  |n of Maths Card"|
00018a30  2c 22 22 2c 22 4f 4b 22  2c 22 22 2c 22 22 2c 30  |,"","OK","","",0|
00018a40  29 3a f2 75 73 49 28 47  72 61 66 49 74 5f 25 2c  |):.usI(GrafIt_%,|
00018a50  22 43 72 65 61 74 65 22  29 3a c8 97 b8 31 30 30  |"Create"):...100|
00018a60  30 2c 36 33 30 3a 3d b9  0d 8b 60 11 dd f2 47 65  |0,630:=...`...Ge|
00018a70  74 54 69 74 6c 65 73 3a  e1 0d 8b 9c 32 dd a4 47  |tTitles:....2..G|
00018a80  72 61 66 49 74 5f 28 58  25 2c 59 25 29 3a e7 43  |rafIt_(X%,Y%):.C|
00018a90  6c 75 65 5f 24 3d 22 43  61 72 64 73 41 64 64 22  |lue_$="CardsAdd"|
00018aa0  f2 54 79 70 65 31 63 61  72 64 73 0d 8b ce 22 e7  |.Type1cards...".|
00018ab0  43 6c 75 65 5f 24 3d 22  43 61 72 64 73 54 61 6b  |Clue_$="CardsTak|
00018ac0  65 22 f2 54 79 70 65 31  63 61 72 64 73 0d 8b d8  |e".Type1cards...|
00018ad0  23 e7 43 6c 75 65 5f 24  3d 22 43 61 72 64 73 54  |#.Clue_$="CardsT|
00018ae0  69 6d 65 73 22 f2 54 79  70 65 31 63 61 72 64 73  |imes".Type1cards|
00018af0  0d 8b e2 21 e7 43 6c 75  65 5f 24 3d 22 43 61 72  |...!.Clue_$="Car|
00018b00  64 73 44 69 76 22 f2 54  79 70 65 31 63 61 72 64  |dsDiv".Type1card|
00018b10  73 0d 8b ec 27 e7 43 6c  75 65 5f 24 3d 22 41 64  |s...'.Clue_$="Ad|
00018b20  64 31 61 22 84 43 6c 75  65 5f 24 3d 22 53 75 62  |d1a".Clue_$="Sub|
00018b30  31 61 22 f2 41 64 64 41  0d 8b f6 18 e7 43 6c 75  |1a".AddA.....Clu|
00018b40  65 5f 24 3d 22 4d 75 6c  74 79 22 f2 41 64 64 41  |e_$="Multy".AddA|
00018b50  0d 8c 00 17 e7 43 6c 75  65 5f 24 3d 22 44 69 76  |.....Clue_$="Div|
00018b60  79 22 f2 44 69 76 41 0d  8c 0a 14 e7 43 6c 75 65  |y".DivA.....Clue|
00018b70  5f 24 3d 22 53 61 64 22  f2 46 31 0d 8c 14 14 e7  |_$="Sad".F1.....|
00018b80  43 6c 75 65 5f 24 3d 22  57 61 64 22 f2 46 31 0d  |Clue_$="Wad".F1.|
00018b90  8c 1e 15 e7 43 6c 75 65  5f 24 3d 22 46 72 4d 44  |....Clue_$="FrMD|
00018ba0  22 f2 46 31 0d 8c 28 18  e7 43 6c 75 65 5f 24 3d  |".F1..(..Clue_$=|
00018bb0  22 4d 61 67 69 63 22 f2  4d 61 67 31 0d 8c 32 1f  |"Magic".Mag1..2.|
00018bc0  e7 c0 43 6c 75 65 5f 24  2c 34 29 3d 22 4c 6f 6e  |..Clue_$,4)="Lon|
00018bd0  67 22 f2 4c 6f 6e 67 4d  75 6c 32 0d 8c 3c 19 e7  |g".LongMul2..<..|
00018be0  43 6c 75 65 5f 24 3d 22  4c 44 69 76 79 22 f2 4c  |Clue_$="LDivy".L|
00018bf0  44 69 76 41 0d 8c 46 25  e7 43 6c 75 65 5f 24 3d  |DivA..F%.Clue_$=|
00018c00  22 4d 61 64 64 22 84 43  6c 75 65 5f 24 3d 22 4d  |"Madd".Clue_$="M|
00018c10  73 75 62 22 f2 6d 61 64  64 0d 8c 50 19 e7 43 6c  |sub".madd..P..Cl|
00018c20  75 65 5f 24 3d 22 4d 6d  75 6c 22 f2 4d 6d 75 6c  |ue_$="Mmul".Mmul|
00018c30  74 5f 0d 8c 5a 17 e7 43  6c 75 65 5f 24 3d 22 4d  |t_..Z..Clue_$="M|
00018c40  44 69 76 22 f2 4d 44 69  76 0d 8c 64 06 3d b9 0d  |Div".MDiv..d.=..|
00018c50  8c 78 8f dd f2 54 79 70  65 31 63 61 72 64 73 3a  |.x...Type1cards:|
00018c60  64 6f 77 6e 5f 3d 59 25  2d 31 35 30 3a 6c 65 66  |down_=Y%-150:lef|
00018c70  74 5f 3d 58 25 2b 31 32  30 3a 6c 6f 6e 67 5f 3d  |t_=X%+120:long_=|
00018c80  31 35 30 3a 64 65 65 70  5f 3d 35 30 3a e3 6c 69  |150:deep_=50:.li|
00018c90  6e 65 5f 25 3d 31 b8 31  30 3a ec 6c 65 66 74 5f  |ne_%=1.10:.left_|
00018ca0  2d 32 30 2d a9 28 c3 28  6c 69 6e 65 5f 25 29 29  |-20-.(.(line_%))|
00018cb0  2a 31 36 2c 64 6f 77 6e  5f 3a f1 a4 7a 65 72 6f  |*16,down_:..zero|
00018cc0  28 c3 28 6c 69 6e 65 5f  25 29 29 2b 22 29 22 3a  |(.(line_%))+")":|
00018cd0  6c 65 66 74 5f 3d 6c 65  66 74 5f 2b 32 30 0d 8c  |left_=left_+20..|
00018ce0  aa 63 e7 6c 69 6e 65 74  79 70 65 5f 28 6c 69 6e  |.c.linetype_(lin|
00018cf0  65 5f 25 29 3d 31 f2 77  72 69 74 65 6c 69 6e 65  |e_%)=1.writeline|
00018d00  31 8b e7 6c 69 6e 65 74  79 70 65 5f 28 6c 69 6e  |1..linetype_(lin|
00018d10  65 5f 25 29 3d 32 f2 77  72 69 74 65 6c 69 6e 65  |e_%)=2.writeline|
00018d20  32 8b e7 6c 69 6e 65 74  79 70 65 5f 28 6c 69 6e  |2..linetype_(lin|
00018d30  65 5f 25 29 3d 33 f2 77  72 69 74 65 6c 69 6e 65  |e_%)=3.writeline|
00018d40  33 0d 8c b4 29 64 6f 77  6e 5f 3d 64 6f 77 6e 5f  |3...)down_=down_|
00018d50  2d 64 65 65 70 5f 2d 32  30 3a 6c 65 66 74 5f 3d  |-deep_-20:left_=|
00018d60  58 25 2b 31 32 30 3a ed  3a e1 0d 8c d2 87 dd f2  |X%+120:.:.......|
00018d70  77 72 69 74 65 6c 69 6e  65 31 3a f2 62 6c 61 6e  |writeline1:.blan|
00018d80  6b 73 28 4e 61 5f 25 28  6c 69 6e 65 5f 25 29 29  |ks(Na_%(line_%))|
00018d90  3a 6c 65 66 74 5f 3d 6c  65 66 74 5f 2b 6c 6f 6e  |:left_=left_+lon|
00018da0  67 5f 3a f2 71 75 61 6c  77 6f 72 64 3a 6c 65 66  |g_:.qualword:lef|
00018db0  74 5f 3d 6c 65 66 74 5f  2b 6c 6f 6e 67 5f 3a e7  |t_=left_+long_:.|
00018dc0  71 75 69 74 5f 3d b9 f2  72 65 63 74 73 28 22 78  |quit_=..rects("x|
00018dd0  22 29 8b f2 72 65 63 74  73 28 a4 7a 65 72 6f 28  |")..rects(.zero(|
00018de0  c3 28 4e 62 5f 25 28 6c  69 6e 65 5f 25 29 29 29  |.(Nb_%(line_%)))|
00018df0  29 0d 8c fa 65 6c 65 66  74 5f 3d 6c 65 66 74 5f  |)...eleft_=left_|
00018e00  2b 6c 6f 6e 67 5f 3a f2  65 71 75 61 6c 77 6f 72  |+long_:.equalwor|
00018e10  64 3a 6c 65 66 74 5f 3d  6c 65 66 74 5f 2b 6c 6f  |d:left_=left_+lo|
00018e20  6e 67 5f 3a e7 71 75 69  74 5f 3d b9 f2 72 65 63  |ng_:.quit_=..rec|
00018e30  74 73 28 22 78 22 29 8b  f2 72 65 63 74 73 28 a4  |ts("x")..rects(.|
00018e40  7a 65 72 6f 28 c3 28 4e  63 5f 25 28 6c 69 6e 65  |zero(.(Nc_%(line|
00018e50  5f 25 29 29 29 29 0d 8d  18 17 6c 65 66 74 5f 3d  |_%))))....left_=|
00018e60  6c 65 66 74 5f 2b 6c 6f  6e 67 5f 3a e1 0d 8d 2c  |left_+long_:...,|
00018e70  43 dd f2 77 72 69 74 65  6c 69 6e 65 32 3a e7 71  |C..writeline2:.q|
00018e80  75 69 74 5f 3d b9 f2 72  65 63 74 73 28 22 78 22  |uit_=..rects("x"|
00018e90  29 8b f2 72 65 63 74 73  28 a4 7a 65 72 6f 28 c3  |)..rects(.zero(.|
00018ea0  28 4e 61 5f 25 28 6c 69  6e 65 5f 25 29 29 29 29  |(Na_%(line_%))))|
00018eb0  0d 8d 40 a9 6c 65 66 74  5f 3d 6c 65 66 74 5f 2b  |..@.left_=left_+|
00018ec0  6c 6f 6e 67 5f 3a f2 71  75 61 6c 77 6f 72 64 3a  |long_:.qualword:|
00018ed0  6c 65 66 74 5f 3d 6c 65  66 74 5f 2b 6c 6f 6e 67  |left_=left_+long|
00018ee0  5f 3a f2 62 6c 61 6e 6b  73 28 4e 62 5f 25 28 6c  |_:.blanks(Nb_%(l|
00018ef0  69 6e 65 5f 25 29 29 3a  6c 65 66 74 5f 3d 6c 65  |ine_%)):left_=le|
00018f00  66 74 5f 2b 6c 6f 6e 67  5f 3a f2 65 71 75 61 6c  |ft_+long_:.equal|
00018f10  77 6f 72 64 3a 6c 65 66  74 5f 3d 6c 65 66 74 5f  |word:left_=left_|
00018f20  2b 6c 6f 6e 67 5f 3a e7  71 75 69 74 5f 3d b9 f2  |+long_:.quit_=..|
00018f30  72 65 63 74 73 28 22 78  22 29 8b f2 72 65 63 74  |rects("x")..rect|
00018f40  73 28 a4 7a 65 72 6f 28  c3 28 4e 63 5f 25 28 6c  |s(.zero(.(Nc_%(l|
00018f50  69 6e 65 5f 25 29 29 29  29 0d 8d 7c 17 6c 65 66  |ine_%))))..|.lef|
00018f60  74 5f 3d 6c 65 66 74 5f  2b 6c 6f 6e 67 5f 3a e1  |t_=left_+long_:.|
00018f70  0d 8d 9a 43 dd f2 77 72  69 74 65 6c 69 6e 65 33  |...C..writeline3|
00018f80  3a e7 71 75 69 74 5f 3d  b9 f2 72 65 63 74 73 28  |:.quit_=..rects(|
00018f90  22 78 22 29 8b f2 72 65  63 74 73 28 a4 7a 65 72  |"x")..rects(.zer|
00018fa0  6f 28 c3 28 4e 61 5f 25  28 6c 69 6e 65 5f 25 29  |o(.(Na_%(line_%)|
00018fb0  29 29 29 0d 8d ae 64 6c  65 66 74 5f 3d 6c 65 66  |)))...dleft_=lef|
00018fc0  74 5f 2b 6c 6f 6e 67 5f  3a f2 71 75 61 6c 77 6f  |t_+long_:.qualwo|
00018fd0  72 64 3a 6c 65 66 74 5f  3d 6c 65 66 74 5f 2b 6c  |rd:left_=left_+l|
00018fe0  6f 6e 67 5f 3a e7 71 75  69 74 5f 3d b9 f2 72 65  |ong_:.quit_=..re|
00018ff0  63 74 73 28 22 78 22 29  8b f2 72 65 63 74 73 28  |cts("x")..rects(|
00019000  a4 7a 65 72 6f 28 c3 28  4e 62 5f 25 28 6c 69 6e  |.zero(.(Nb_%(lin|
00019010  65 5f 25 29 29 29 29 0d  8d cc 5c 6c 65 66 74 5f  |e_%))))...\left_|
00019020  3d 6c 65 66 74 5f 2b 6c  6f 6e 67 5f 3a f2 65 71  |=left_+long_:.eq|
00019030  75 61 6c 77 6f 72 64 3a  6c 65 66 74 5f 3d 6c 65  |ualword:left_=le|
00019040  66 74 5f 2b 6c 6f 6e 67  5f 3a f2 62 6c 61 6e 6b  |ft_+long_:.blank|
00019050  73 28 4e 63 5f 25 28 6c  69 6e 65 5f 25 29 29 3a  |s(Nc_%(line_%)):|
00019060  6c 65 66 74 5f 3d 6c 65  66 74 5f 2b 6c 6f 6e 67  |left_=left_+long|
00019070  5f 3a e1 0d 8d fe d2 dd  f2 62 6c 61 6e 6b 73 28  |_:.......blanks(|
00019080  6e 75 6d 5f 29 3a 6e 75  6d 5f 24 3d a4 7a 65 72  |num_):num_$=.zer|
00019090  6f 28 c3 28 6e 75 6d 5f  29 29 3a 72 65 6d 6c 65  |o(.(num_)):remle|
000190a0  66 74 5f 3d 6c 65 66 74  5f 3a 72 65 6d 64 6f 77  |ft_=left_:remdow|
000190b0  6e 5f 3d 64 6f 77 6e 5f  3a 6c 65 66 74 5f 3d 6c  |n_=down_:left_=l|
000190c0  65 66 74 5f 2b 6c 6f 6e  67 5f 2f 34 3a 64 6f 77  |eft_+long_/4:dow|
000190d0  6e 5f 3d 64 6f 77 6e 5f  2b 31 30 3a ec 6c 65 66  |n_=down_+10:.lef|
000190e0  74 5f 2c 64 6f 77 6e 5f  3a df 6c 65 66 74 5f 2b  |t_,down_:.left_+|
000190f0  6c 6f 6e 67 5f 2f 32 2c  64 6f 77 6e 5f 3a df 6c  |long_/2,down_:.l|
00019100  65 66 74 5f 2b 6c 6f 6e  67 5f 2f 32 2c 64 6f 77  |eft_+long_/2,dow|
00019110  6e 5f 2d 64 65 65 70 5f  3a df 6c 65 66 74 5f 2c  |n_-deep_:.left_,|
00019120  64 6f 77 6e 5f 2d 64 65  65 70 5f 3a df 6c 65 66  |down_-deep_:.lef|
00019130  74 5f 2c 64 6f 77 6e 5f  3a e7 41 6e 73 77 65 72  |t_,down_:.Answer|
00019140  5f 25 3d b9 8c 0d 8e 30  61 e7 71 75 69 74 5f 3d  |_%=....0a.quit_=|
00019150  b9 ec 6c 65 66 74 5f 2b  6c 6f 6e 67 5f 2f 34 2d  |..left_+long_/4-|
00019160  a9 28 22 78 22 29 2f 32  2a 31 36 2c 64 6f 77 6e  |.("x")/2*16,down|
00019170  5f 2d 31 30 3a f1 22 78  22 8b ec 6c 65 66 74 5f  |_-10:."x"..left_|
00019180  2b 6c 6f 6e 67 5f 2f 34  2d a9 28 6e 75 6d 5f 24  |+long_/4-.(num_$|
00019190  29 2f 32 2a 31 36 2c 64  6f 77 6e 5f 2d 31 30 3a  |)/2*16,down_-10:|
000191a0  f1 6e 75 6d 5f 24 0d 8e  3a 25 cd 3a 6c 65 66 74  |.num_$..:%.:left|
000191b0  5f 3d 72 65 6d 6c 65 66  74 5f 3a 64 6f 77 6e 5f  |_=remleft_:down_|
000191c0  3d 72 65 6d 64 6f 77 6e  5f 3a e1 0d 8e 62 41 dd  |=remdown_:...bA.|
000191d0  f2 72 65 63 74 73 28 77  6f 72 64 5f 24 29 3a ec  |.rects(word_$):.|
000191e0  6c 65 66 74 5f 2b 6c 6f  6e 67 5f 2f 32 2d a9 28  |left_+long_/2-.(|
000191f0  77 6f 72 64 5f 24 29 2f  32 2a 31 36 2c 64 6f 77  |word_$)/2*16,dow|
00019200  6e 5f 3a f1 77 6f 72 64  5f 24 3a e1 0d 8e 8a 26  |n_:.word_$:....&|
00019210  dd f2 71 75 61 6c 77 6f  72 64 3a f2 72 65 63 74  |..qualword:.rect|
00019220  73 28 61 63 74 5f 24 28  6c 69 6e 65 5f 25 29 29  |s(act_$(line_%))|
00019230  3a e1 0d 8e b2 29 dd f2  65 71 75 61 6c 77 6f 72  |:....)..equalwor|
00019240  64 3a f2 72 65 63 74 73  28 65 71 75 61 6c 5f 24  |d:.rects(equal_$|
00019250  28 6c 69 6e 65 5f 25 29  29 3a e1 0d 8e da 29 dd  |(line_%)):....).|
00019260  f2 41 64 64 41 3a e7 c1  43 6c 75 65 5f 24 2c 31  |.AddA:..Clue_$,1|
00019270  2c 33 29 3d 22 41 64 64  22 20 73 69 67 6e 5f 24  |,3)="Add" sign_$|
00019280  3d 22 2b 22 0d 8e ee 22  e7 c1 43 6c 75 65 5f 24  |="+"..."..Clue_$|
00019290  2c 31 2c 33 29 3d 22 53  75 62 22 20 73 69 67 6e  |,1,3)="Sub" sign|
000192a0  5f 24 3d 22 2d 22 0d 8e  f8 22 e7 c1 43 6c 75 65  |_$="-"..."..Clue|
000192b0  5f 24 2c 31 2c 33 29 3d  22 4d 75 6c 22 20 73 69  |_$,1,3)="Mul" si|
000192c0  67 6e 5f 24 3d 22 78 22  0d 8f 02 49 6c 65 66 74  |gn_$="x"...Ileft|
000192d0  5f 3d 58 25 2b 38 30 3a  6f 6e 5f 3d 32 37 30 3a  |_=X%+80:on_=270:|
000192e0  65 6e 64 5f 3d 31 30 30  3a 64 6f 77 6e 5f 3d 59  |end_=100:down_=Y|
000192f0  25 2d 39 30 3a 72 5f 3d  30 3a e7 6d 61 6e 79 5f  |%-90:r_=0:.many_|
00019300  3d 39 e3 71 5f 3d 31 b8  33 8b e3 71 5f 3d 31 b8  |=9.q_=1.3..q_=1.|
00019310  34 0d 8f 20 48 e3 77 5f  3d 31 b8 33 3a 72 5f 3d  |4.. H.w_=1.3:r_=|
00019320  72 5f 2b 31 3a e7 71 75  69 74 5f 3d b9 61 5f 3d  |r_+1:.quit_=.a_=|
00019330  30 3a 62 5f 3d 30 3a 63  5f 3d 30 8b 61 5f 3d 61  |0:b_=0:c_=0.a_=a|
00019340  5f 28 72 5f 29 3a 62 5f  3d 62 5f 28 72 5f 29 3a  |_(r_):b_=b_(r_):|
00019350  63 5f 3d 63 5f 28 72 5f  29 0d 8f 34 52 62 5f 24  |c_=c_(r_)..4Rb_$|
00019360  3d c3 28 62 5f 29 3a 63  5f 24 3d c3 28 63 5f 29  |=.(b_):c_$=.(c_)|
00019370  3a 64 75 6e 6b 6c 65 66  74 5f 3d 6c 65 66 74 5f  |:dunkleft_=left_|
00019380  3a 6c 6f 6e 5f 3d a9 28  c3 28 61 5f 29 29 3a e7  |:lon_=.(.(a_)):.|
00019390  a9 28 c3 28 62 5f 29 29  3e 6c 6f 6e 5f 20 6c 6f  |.(.(b_))>lon_ lo|
000193a0  6e 5f 3d a9 28 c3 28 62  5f 29 29 0d 8f 5c 20 e7  |n_=.(.(b_))..\ .|
000193b0  a9 28 c3 28 63 5f 29 29  3e 6c 6f 6e 5f 20 6c 6f  |.(.(c_))>lon_ lo|
000193c0  6e 5f 3d a9 28 c3 28 63  5f 29 29 0d 8f 66 5c 6c  |n_=.(.(c_))..f\l|
000193d0  65 66 74 5f 3d 6c 65 66  74 5f 2b 6c 6f 6e 5f 2f  |eft_=left_+lon_/|
000193e0  32 2a 31 36 3a e7 72 5f  3c 3e 31 30 ec 6c 65 66  |2*16:.r_<>10.lef|
000193f0  74 5f 2b 65 6e 64 5f 2d  a9 28 c3 28 61 5f 29 29  |t_+end_-.(.(a_))|
00019400  2a 31 36 2d 34 30 2d a9  28 c3 28 72 5f 29 29 2a  |*16-40-.(.(r_))*|
00019410  31 36 2c 64 6f 77 6e 5f  2d 31 30 30 3a f1 c3 28  |16,down_-100:..(|
00019420  72 5f 29 3b 22 29 22 0d  8f 7a 41 e7 72 5f 3d 31  |r_);")"..zA.r_=1|
00019430  30 ec 6c 65 66 74 5f 2b  65 6e 64 5f 2d a9 28 c3  |0.left_+end_-.(.|
00019440  28 61 5f 29 29 2a 31 36  2d 34 30 2d a9 28 c3 28  |(a_))*16-40-.(.(|
00019450  72 5f 29 29 2a 31 36 2c  64 6f 77 6e 5f 2d 31 30  |r_))*16,down_-10|
00019460  30 3a f1 22 31 4f 29 22  0d 8f 84 63 f2 73 70 6c  |0:."1O)"...c.spl|
00019470  69 74 5f 28 61 5f 2c 64  6f 77 6e 5f 2d 31 30 30  |it_(a_,down_-100|
00019480  29 3a f2 73 70 6c 69 74  5f 28 62 5f 2c 64 6f 77  |):.split_(b_,dow|
00019490  6e 5f 2d 31 34 30 29 3a  73 6c 5f 3d 30 3a e7 a9  |n_-140):sl_=0:..|
000194a0  28 62 5f 24 29 3e 33 20  73 6c 5f 3d 73 6c 5f 2b  |(b_$)>3 sl_=sl_+|
000194b0  67 61 70 5f 3a e7 a9 28  62 5f 24 29 3e 37 20 73  |gap_:..(b_$)>7 s|
000194c0  6c 5f 3d 73 6c 5f 2b 67  61 70 5f 0d 8f 98 3b e7  |l_=sl_+gap_...;.|
000194d0  53 69 67 6e 5f 25 3d a3  ec 6c 65 66 74 5f 2b 65  |Sign_%=..left_+e|
000194e0  6e 64 5f 2d a9 28 62 5f  24 29 2a 31 36 2d 73 6c  |nd_-.(b_$)*16-sl|
000194f0  5f 2d 32 30 2c 64 6f 77  6e 5f 2d 31 34 30 3a f1  |_-20,down_-140:.|
00019500  73 69 67 6e 5f 24 0d 8f  a2 2d e7 53 69 67 6e 5f  |sign_$...-.Sign_|
00019510  25 3d b9 ec 6c 65 66 74  5f 2b 65 6e 64 5f 2b 31  |%=..left_+end_+1|
00019520  30 2c 64 6f 77 6e 5f 2d  31 30 30 3a f1 73 69 67  |0,down_-100:.sig|
00019530  6e 5f 24 0d 8f c0 32 61  6e 73 6c 65 6e 5f 3d a9  |n_$...2anslen_=.|
00019540  28 c3 28 63 5f 29 29 3a  e7 61 6e 73 6c 65 6e 5f  |(.(c_)):.anslen_|
00019550  3c a9 28 61 5f 24 29 61  6e 73 6c 65 6e 5f 3d a9  |<.(a_$)anslen_=.|
00019560  28 61 5f 24 29 0d 8f d4  21 e7 61 6e 73 6c 65 6e  |(a_$)...!.anslen|
00019570  5f 3c a9 28 62 5f 24 29  61 6e 73 6c 65 6e 5f 3d  |_<.(b_$)anslen_=|
00019580  a9 28 62 5f 24 29 0d 8f  de 24 e7 41 6e 73 77 65  |.(b_$)...$.Answe|
00019590  72 5f 25 3d b9 f2 73 70  6c 69 74 5f 28 63 5f 2c  |r_%=..split_(c_,|
000195a0  64 6f 77 6e 5f 2d 31 38  30 29 0d 8f e8 b6 ec 6c  |down_-180).....l|
000195b0  65 66 74 5f 2b 65 6e 64  5f 2d 61 6e 73 6c 65 6e  |eft_+end_-anslen|
000195c0  5f 2a 31 36 2d 35 2c 64  6f 77 6e 5f 2d 31 37 32  |_*16-5,down_-172|
000195d0  3a df 6c 65 66 74 5f 2b  65 6e 64 5f 2d 61 6e 73  |:.left_+end_-ans|
000195e0  6c 65 6e 5f 2a 31 36 2b  61 6e 73 6c 65 6e 5f 2a  |len_*16+anslen_*|
000195f0  31 36 2b 67 61 70 5f 2c  64 6f 77 6e 5f 2d 31 37  |16+gap_,down_-17|
00019600  32 3a e7 53 65 63 41 6e  73 5f 25 3d b9 ec 6c 65  |2:.SecAns_%=..le|
00019610  66 74 5f 2b 65 6e 64 5f  2d 61 6e 73 6c 65 6e 5f  |ft_+end_-anslen_|
00019620  2a 31 36 2d 35 2c 64 6f  77 6e 5f 2d 32 31 32 3a  |*16-5,down_-212:|
00019630  df 6c 65 66 74 5f 2b 65  6e 64 5f 2d 61 6e 73 6c  |.left_+end_-ansl|
00019640  65 6e 5f 2a 31 36 2b 61  6e 73 6c 65 6e 5f 2a 31  |en_*16+anslen_*1|
00019650  36 2b 67 61 70 5f 2c 64  6f 77 6e 5f 2d 32 31 32  |6+gap_,down_-212|
00019660  0d 8f fc 45 6c 65 66 74  5f 3d 64 75 6e 6b 6c 65  |...Eleft_=dunkle|
00019670  66 74 5f 3a 6c 65 66 74  5f 3d 6c 65 66 74 5f 2b  |ft_:left_=left_+|
00019680  6f 6e 5f 3a ed 3a 6c 65  66 74 5f 3d 58 25 2b 38  |on_:.:left_=X%+8|
00019690  30 3a 64 6f 77 6e 5f 3d  64 6f 77 6e 5f 2d 31 38  |0:down_=down_-18|
000196a0  30 3a ed 3a e1 0d 90 1a  88 dd f2 44 69 76 41 3a  |0:.:.......DivA:|
000196b0  6c 65 66 74 5f 3d 58 25  2b 33 30 3a 6f 6e 5f 3d  |left_=X%+30:on_=|
000196c0  32 38 30 3a 65 6e 64 5f  3d 31 30 30 3a 62 65 67  |280:end_=100:beg|
000196d0  6c 65 66 74 5f 3d 6c 65  66 74 5f 3a 64 6f 77 6e  |left_=left_:down|
000196e0  5f 3d 59 25 2d 31 32 30  3a 72 5f 3d 30 3a 73 68  |_=Y%-120:r_=0:sh|
000196f0  69 66 74 5f 3d 34 30 3a  64 73 68 69 66 74 5f 3d  |ift_=40:dshift_=|
00019700  31 35 30 3a c8 99 22 48  6f 75 72 67 6c 61 73 73  |150:.."Hourglass|
00019710  5f 4f 6e 22 3a e7 6d 61  6e 79 5f 3d 31 32 e3 71  |_On":.many_=12.q|
00019720  5f 3d 31 b8 34 8b e3 71  5f 3d 31 b8 33 0d 90 56  |_=1.4..q_=1.3..V|
00019730  a7 e3 77 5f 3d 31 b8 33  3a 72 5f 3d 72 5f 2b 31  |..w_=1.3:r_=r_+1|
00019740  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 50 65  |:.."Hourglass_Pe|
00019750  72 63 65 6e 74 61 67 65  22 2c 72 5f 2f 31 32 2a  |rcentage",r_/12*|
00019760  31 30 30 3a 61 5f 3d 61  5f 28 72 5f 29 3a 62 5f  |100:a_=a_(r_):b_|
00019770  3d 62 5f 28 72 5f 29 3a  63 5f 3d 63 5f 28 72 5f  |=b_(r_):c_=c_(r_|
00019780  29 3a 72 65 6d 5f 3d 72  65 6d 5f 28 72 5f 29 3a  |):rem_=rem_(r_):|
00019790  6c 6f 6e 5f 3d a9 28 c3  28 61 5f 29 29 3a 64 75  |lon_=.(.(a_)):du|
000197a0  6e 6b 6c 65 66 74 5f 3d  6c 65 66 74 5f 3a 6c 65  |nkleft_=left_:le|
000197b0  66 74 5f 3d 6c 65 66 74  5f 2b 6c 6f 6e 5f 2f 32  |ft_=left_+lon_/2|
000197c0  2a 31 36 3a 62 5f 24 3d  a4 7a 65 72 6f 28 c3 28  |*16:b_$=.zero(.(|
000197d0  62 5f 29 29 0d 90 9c 49  e7 72 5f 3c 3e 31 30 ec  |b_))...I.r_<>10.|
000197e0  6c 65 66 74 5f 2b 65 6e  64 5f 2d a9 28 c3 28 61  |left_+end_-.(.(a|
000197f0  5f 29 29 2a 31 36 2d 34  30 2d a9 28 c3 28 72 5f  |_))*16-40-.(.(r_|
00019800  29 29 2a 31 36 2b 34 30  2c 64 6f 77 6e 5f 2d 31  |))*16+40,down_-1|
00019810  30 30 3a f1 c3 28 72 5f  29 3b 22 29 22 0d 90 a6  |00:..(r_);")"...|
00019820  44 e7 72 5f 3d 31 30 ec  6c 65 66 74 5f 2b 65 6e  |D.r_=10.left_+en|
00019830  64 5f 2d a9 28 c3 28 61  5f 29 29 2a 31 36 2d 34  |d_-.(.(a_))*16-4|
00019840  30 2d a9 28 c3 28 72 5f  29 29 2a 31 36 2b 34 30  |0-.(.(r_))*16+40|
00019850  2c 64 6f 77 6e 5f 2d 31  30 30 3a f1 22 31 4f 29  |,down_-100:."1O)|
00019860  22 0d 90 b0 3b 61 5f 24  3d a4 7a 65 72 6f 28 c3  |"...;a_$=.zero(.|
00019870  28 61 5f 29 29 3a 72 65  6d 5f 24 3d a4 7a 65 72  |(a_)):rem_$=.zer|
00019880  6f 28 c3 28 72 65 6d 5f  29 29 3a 67 61 70 5f 3d  |o(.(rem_)):gap_=|
00019890  35 3a e7 a9 28 61 5f 24  29 3e 33 8c 0d 90 d8 e2  |5:..(a_$)>3.....|
000198a0  72 61 5f 24 3d c1 61 5f  24 2c a9 28 61 5f 24 29  |ra_$=.a_$,.(a_$)|
000198b0  2d 32 2c 33 29 3a ec 6c  65 66 74 5f 2b 65 6e 64  |-2,3):.left_+end|
000198c0  5f 2d a9 28 72 61 5f 24  29 2a 31 36 2b 73 68 69  |_-.(ra_$)*16+shi|
000198d0  66 74 5f 2c 64 6f 77 6e  5f 2d 64 73 68 69 66 74  |ft_,down_-dshift|
000198e0  5f 3a f1 72 61 5f 24 3a  6c 61 5f 24 3d c1 61 5f  |_:.ra_$:la_$=.a_|
000198f0  24 2c 31 2c a9 28 61 5f  24 29 2d 33 29 3a ec 6c  |$,1,.(a_$)-3):.l|
00019900  65 66 74 5f 2b 65 6e 64  5f 2d a9 28 72 61 5f 24  |eft_+end_-.(ra_$|
00019910  29 2a 31 36 2d a9 28 6c  61 5f 24 29 2a 31 36 2d  |)*16-.(la_$)*16-|
00019920  67 61 70 5f 2b 73 68 69  66 74 5f 2c 64 6f 77 6e  |gap_+shift_,down|
00019930  5f 2d 64 73 68 69 66 74  5f 3a f1 6c 61 5f 24 3a  |_-dshift_:.la_$:|
00019940  ec 6c 65 66 74 5f 2b 65  6e 64 5f 2d a9 28 72 61  |.left_+end_-.(ra|
00019950  5f 24 29 2a 31 36 2d a9  28 6c 61 5f 24 29 2a 31  |_$)*16-.(la_$)*1|
00019960  36 2d 67 61 70 5f 2b 73  68 69 66 74 5f 2d 32 30  |6-gap_+shift_-20|
00019970  2c 64 6f 77 6e 5f 2d 64  73 68 69 66 74 5f 0d 91  |,down_-dshift_..|
00019980  1e 4f f1 22 29 22 3a ec  6c 65 66 74 5f 2b 65 6e  |.O.")":.left_+en|
00019990  64 5f 2d a9 28 72 61 5f  24 29 2a 31 36 2d a9 28  |d_-.(ra_$)*16-.(|
000199a0  6c 61 5f 24 29 2a 31 36  2d 67 61 70 5f 2d a9 28  |la_$)*16-gap_-.(|
000199b0  62 5f 24 29 2a 31 36 2b  31 36 2c 64 6f 77 6e 5f  |b_$)*16+16,down_|
000199c0  2d 64 73 68 69 66 74 5f  3a f1 62 5f 24 0d 91 3c  |-dshift_:.b_$..<|
000199d0  a2 cc ec 6c 65 66 74 5f  2b 65 6e 64 5f 2d a9 28  |...left_+end_-.(|
000199e0  61 5f 24 29 2a 31 36 2b  73 68 69 66 74 5f 2c 64  |a_$)*16+shift_,d|
000199f0  6f 77 6e 5f 2d 64 73 68  69 66 74 5f 3a f1 61 5f  |own_-dshift_:.a_|
00019a00  24 3a ec 6c 65 66 74 5f  2b 65 6e 64 5f 2d a9 28  |$:.left_+end_-.(|
00019a10  61 5f 24 29 2a 31 36 2b  73 68 69 66 74 5f 2d 32  |a_$)*16+shift_-2|
00019a20  30 2c 64 6f 77 6e 5f 2d  64 73 68 69 66 74 5f 3a  |0,down_-dshift_:|
00019a30  f1 22 29 22 3a ec 6c 65  66 74 5f 2b 65 6e 64 5f  |.")":.left_+end_|
00019a40  2d a9 28 61 5f 24 29 2a  31 36 2d 67 61 70 5f 2d  |-.(a_$)*16-gap_-|
00019a50  a9 28 62 5f 24 29 2a 31  36 2b 31 36 2c 64 6f 77  |.(b_$)*16+16,dow|
00019a60  6e 5f 2d 64 73 68 69 66  74 5f 3a f1 62 5f 24 0d  |n_-dshift_:.b_$.|
00019a70  91 78 a7 cd 3a ec 6c 65  66 74 5f 2b 65 6e 64 5f  |.x..:.left_+end_|
00019a80  2d a9 28 61 5f 24 29 2a  31 36 2d 67 61 70 5f 2b  |-.(a_$)*16-gap_+|
00019a90  73 68 69 66 74 5f 2d 31  35 2c 64 6f 77 6e 5f 2d  |shift_-15,down_-|
00019aa0  64 73 68 69 66 74 5f 2b  37 3a df 6c 65 66 74 5f  |dshift_+7:.left_|
00019ab0  2b 65 6e 64 5f 2d a9 28  61 5f 24 29 2a 31 36 2d  |+end_-.(a_$)*16-|
00019ac0  67 61 70 5f 2b 73 68 69  66 74 5f 2d 32 30 2b a9  |gap_+shift_-20+.|
00019ad0  28 61 5f 24 29 2a 31 36  2b 67 61 70 5f 2b 32 30  |(a_$)*16+gap_+20|
00019ae0  2c 64 6f 77 6e 5f 2d 64  73 68 69 66 74 5f 2b 37  |,down_-dshift_+7|
00019af0  3a 61 6e 73 6c 65 6e 5f  3d a9 28 c3 28 63 5f 29  |:anslen_=.(.(c_)|
00019b00  29 3a e7 41 6e 73 77 65  72 5f 25 3d b9 f2 64 76  |):.Answer_%=..dv|
00019b10  61 6e 73 77 65 72 0d 91  b4 5a 6c 65 66 74 5f 3d  |answer...Zleft_=|
00019b20  64 75 6e 6b 6c 65 66 74  5f 3a 6c 65 66 74 5f 3d  |dunkleft_:left_=|
00019b30  6c 65 66 74 5f 2b 6f 6e  5f 3a ed 3a 64 6f 77 6e  |left_+on_:.:down|
00019b40  5f 3d 64 6f 77 6e 5f 2d  31 37 32 3a 6c 65 66 74  |_=down_-172:left|
00019b50  5f 3d 62 65 67 6c 65 66  74 5f 3a ed 3a c8 99 22  |_=begleft_:.:.."|
00019b60  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 3a e1  |Hourglass_Off":.|
00019b70  0d 91 fa 31 dd f2 64 76  61 6e 73 77 65 72 3a 63  |...1..dvanswer:c|
00019b80  5f 24 3d a4 7a 65 72 6f  28 c3 28 63 5f 29 29 3a  |_$=.zero(.(c_)):|
00019b90  67 61 70 5f 3d 30 3a e7  a9 28 63 5f 24 29 3e 33  |gap_=0:..(c_$)>3|
00019ba0  8c 0d 92 18 b0 67 61 70  5f 3d 35 3a 72 63 5f 24  |.....gap_=5:rc_$|
00019bb0  3d c1 63 5f 24 2c a9 28  63 5f 24 29 2d 32 2c 33  |=.c_$,.(c_$)-2,3|
00019bc0  29 3a ec 6c 65 66 74 5f  2b 65 6e 64 5f 2d a9 28  |):.left_+end_-.(|
00019bd0  72 63 5f 24 29 2a 31 36  2b 73 68 69 66 74 5f 2c  |rc_$)*16+shift_,|
00019be0  64 6f 77 6e 5f 2d 64 73  68 69 66 74 5f 2b 34 30  |down_-dshift_+40|
00019bf0  3a f1 72 63 5f 24 3a 6c  63 5f 24 3d c1 63 5f 24  |:.rc_$:lc_$=.c_$|
00019c00  2c 31 2c a9 28 63 5f 24  29 2d 33 29 3a ec 6c 65  |,1,.(c_$)-3):.le|
00019c10  66 74 5f 2b 65 6e 64 5f  2d a9 28 72 63 5f 24 29  |ft_+end_-.(rc_$)|
00019c20  2a 31 36 2d a9 28 6c 63  5f 24 29 2a 31 36 2d 67  |*16-.(lc_$)*16-g|
00019c30  61 70 5f 2b 73 68 69 66  74 5f 2c 64 6f 77 6e 5f  |ap_+shift_,down_|
00019c40  2d 64 73 68 69 66 74 5f  2b 34 30 3a f1 6c 63 5f  |-dshift_+40:.lc_|
00019c50  24 0d 92 5e 37 cc ec 6c  65 66 74 5f 2b 65 6e 64  |$..^7..left_+end|
00019c60  5f 2d a9 28 63 5f 24 29  2a 31 36 2b 73 68 69 66  |_-.(c_$)*16+shif|
00019c70  74 5f 2c 64 6f 77 6e 5f  2d 64 73 68 69 66 74 5f  |t_,down_-dshift_|
00019c80  2b 34 30 3a f1 63 5f 24  0d 92 72 13 cd 3a e7 72  |+40:.c_$..r..:.r|
00019c90  65 6d 6d 79 5f 3d 31 f2  72 65 6d 0d 92 86 11 e7  |emmy_=1.rem.....|
00019ca0  72 65 6d 6d 79 5f 3d 32  f2 64 6f 74 0d 92 90 12  |remmy_=2.dot....|
00019cb0  e7 72 65 6d 6d 79 5f 3d  33 f2 66 72 61 63 0d 92  |.remmy_=3.frac..|
00019cc0  9a 05 e1 0d 92 ae 42 dd  f2 72 65 6d 3a e7 72 65  |......B..rem:.re|
00019cd0  6d 5f 3c 3e 30 ec 6c 65  66 74 5f 2b 65 6e 64 5f  |m_<>0.left_+end_|
00019ce0  2b 73 68 69 66 74 5f 2b  35 2c 64 6f 77 6e 5f 2d  |+shift_+5,down_-|
00019cf0  64 73 68 69 66 74 5f 2b  34 30 3a f1 22 72 22 3b  |dshift_+40:."r";|
00019d00  72 65 6d 5f 24 0d 92 b8  05 e1 0d 92 cc 14 dd f2  |rem_$...........|
00019d10  66 72 61 63 3a e7 72 65  6d 5f 3c 3e 30 8c 0d 92  |frac:.rem_<>0...|
00019d20  e0 65 72 74 5f 3d 72 65  6d 5f 3a 72 62 5f 3d 62  |.ert_=rem_:rb_=b|
00019d30  5f 3a 72 74 5f 24 3d c3  28 72 74 5f 29 3a 72 62  |_:rt_$=.(rt_):rb|
00019d40  5f 24 3d c3 28 72 62 5f  29 3a e3 74 72 5f 3d 31  |_$=.(rb_):.tr_=1|
00019d50  30 b8 32 88 2d 31 3a e7  72 74 5f 83 74 72 5f 3d  |0.2.-1:.rt_.tr_=|
00019d60  30 80 72 62 5f 83 74 72  5f 3d 30 20 72 74 5f 3d  |0.rb_.tr_=0 rt_=|
00019d70  72 74 5f 2f 74 72 5f 3a  72 62 5f 3d 72 62 5f 2f  |rt_/tr_:rb_=rb_/|
00019d80  74 72 5f 0d 93 08 79 ed  3a 72 74 5f 24 3d c3 28  |tr_...y.:rt_$=.(|
00019d90  72 74 5f 29 3a 72 62 5f  24 3d c3 28 72 62 5f 29  |rt_):rb_$=.(rb_)|
00019da0  3a ec 6c 65 66 74 5f 2b  65 6e 64 5f 2b 73 68 69  |:.left_+end_+shi|
00019db0  66 74 5f 2b 38 2c 64 6f  77 6e 5f 2d 64 73 68 69  |ft_+8,down_-dshi|
00019dc0  66 74 5f 2b 35 38 3a f1  72 74 5f 24 3a ec 6c 65  |ft_+58:.rt_$:.le|
00019dd0  66 74 5f 2b 65 6e 64 5f  2b 73 68 69 66 74 5f 2b  |ft_+end_+shift_+|
00019de0  31 38 2c 64 6f 77 6e 5f  2d 64 73 68 69 66 74 5f  |18,down_-dshift_|
00019df0  2b 34 35 3a f1 22 2f 22  72 62 5f 24 0d 93 3a 07  |+45:."/"rb_$..:.|
00019e00  cd 3a e1 0d 93 58 13 dd  f2 64 6f 74 3a e7 72 65  |.:...X...dot:.re|
00019e10  6d 5f 3c 3e 30 8c 0d 93  6c 68 ec 6c 65 66 74 5f  |m_<>0...lh.left_|
00019e20  2b 65 6e 64 5f 2b 73 68  69 66 74 5f 2b 33 2c 64  |+end_+shift_+3,d|
00019e30  6f 77 6e 5f 2d 64 73 68  69 66 74 5f 2b 35 30 3a  |own_-dshift_+50:|
00019e40  f1 22 2e 22 3a ec 6c 65  66 74 5f 2b 65 6e 64 5f  |.".":.left_+end_|
00019e50  2b 73 68 69 66 74 5f 2b  33 2b 31 35 2c 64 6f 77  |+shift_+3+15,dow|
00019e60  6e 5f 2d 64 73 68 69 66  74 5f 2b 34 30 3a f1 a4  |n_-dshift_+40:..|
00019e70  7a 65 72 6f 28 63 7a 5f  24 28 72 5f 29 29 0d 93  |zero(cz_$(r_))..|
00019e80  8a 07 cd 3a e1 0d 93 a8  d9 dd f2 4c 44 69 76 41  |...:.......LDivA|
00019e90  3a 6c 65 66 74 5f 3d 58  25 2b 33 30 3a 6f 6e 5f  |:left_=X%+30:on_|
00019ea0  3d 32 38 30 3a 65 6e 64  5f 3d 31 30 30 3a 62 65  |=280:end_=100:be|
00019eb0  67 6c 65 66 74 5f 3d 6c  65 66 74 5f 3a 64 6f 77  |gleft_=left_:dow|
00019ec0  6e 5f 3d 59 25 2d 31 32  30 3a 72 5f 3d 30 3a 73  |n_=Y%-120:r_=0:s|
00019ed0  68 69 66 74 5f 3d 34 30  3a 64 73 68 69 66 74 5f  |hift_=40:dshift_|
00019ee0  3d 31 35 30 3a c8 99 22  48 6f 75 72 67 6c 61 73  |=150:.."Hourglas|
00019ef0  73 5f 4f 6e 22 3a e3 71  71 5f 3d 31 b8 32 3a e3  |s_On":.qq_=1.2:.|
00019f00  77 77 5f 3d 31 b8 33 3a  72 5f 3d 72 5f 2b 31 3a  |ww_=1.3:r_=r_+1:|
00019f10  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 50 65 72  |.."Hourglass_Per|
00019f20  63 65 6e 74 61 67 65 22  2c 72 5f 2f 31 32 2a 31  |centage",r_/12*1|
00019f30  30 30 3a 61 5f 3d 61 5f  28 72 5f 29 3a 62 5f 3d  |00:a_=a_(r_):b_=|
00019f40  62 5f 28 72 5f 29 3a 63  5f 3d 63 5f 28 72 5f 29  |b_(r_):c_=c_(r_)|
00019f50  3a 72 65 6d 5f 3d 72 65  6d 5f 28 72 5f 29 0d 94  |:rem_=rem_(r_)..|
00019f60  02 bd 61 5f 24 3d a4 7a  65 72 6f 28 c3 28 61 5f  |..a_$=.zero(.(a_|
00019f70  29 29 3a 62 5f 24 3d a4  7a 65 72 6f 28 c3 28 62  |)):b_$=.zero(.(b|
00019f80  5f 29 29 3a 63 5f 24 3d  a4 7a 65 72 6f 28 c3 28  |_)):c_$=.zero(.(|
00019f90  63 5f 29 29 3a 72 65 6d  5f 24 3d a4 7a 65 72 6f  |c_)):rem_$=.zero|
00019fa0  28 c3 28 72 65 6d 5f 29  29 3a 6c 6f 6e 5f 3d a9  |(.(rem_)):lon_=.|
00019fb0  28 c3 28 61 5f 29 29 3a  64 75 6e 6b 6c 65 66 74  |(.(a_)):dunkleft|
00019fc0  5f 3d 6c 65 66 74 5f 3a  6c 65 66 74 5f 3d 6c 65  |_=left_:left_=le|
00019fd0  66 74 5f 2b 6c 6f 6e 5f  2f 32 2a 31 36 3a ec 6c  |ft_+lon_/2*16:.l|
00019fe0  65 66 74 5f 2b 65 6e 64  5f 2d a9 28 c3 28 61 5f  |eft_+end_-.(.(a_|
00019ff0  29 29 2a 31 36 2d 36 30  2d a9 28 c3 28 72 5f 29  |))*16-60-.(.(r_)|
0001a000  29 2a 31 36 2b 34 30 2c  64 6f 77 6e 5f 2d 38 30  |)*16+40,down_-80|
0001a010  3a f1 c3 28 72 5f 29 3b  22 29 22 0d 94 34 e0 ec  |:..(r_);")"..4..|
0001a020  6c 65 66 74 5f 2b 65 6e  64 5f 2d a9 28 61 5f 24  |left_+end_-.(a_$|
0001a030  29 2a 31 36 2c 64 6f 77  6e 5f 2d 64 73 68 69 66  |)*16,down_-dshif|
0001a040  74 5f 3a f1 61 5f 24 3a  73 74 61 72 74 68 6f 73  |t_:.a_$:starthos|
0001a050  5f 25 3d 6c 65 66 74 5f  2b 65 6e 64 5f 2d a9 28  |_%=left_+end_-.(|
0001a060  61 5f 24 29 2a 31 36 3a  64 72 6f 70 5f 3d 34 30  |a_$)*16:drop_=40|
0001a070  3a ec 6c 65 66 74 5f 2b  65 6e 64 5f 2d a9 28 61  |:.left_+end_-.(a|
0001a080  5f 24 29 2a 31 36 2d 31  35 2c 64 6f 77 6e 5f 2d  |_$)*16-15,down_-|
0001a090  64 73 68 69 66 74 5f 3a  f1 22 29 22 3a ec 6c 65  |dshift_:.")":.le|
0001a0a0  66 74 5f 2b 65 6e 64 5f  2d a9 28 61 5f 24 29 2a  |ft_+end_-.(a_$)*|
0001a0b0  31 36 2d 32 30 2d a9 28  62 5f 24 29 2a 31 36 2c  |16-20-.(b_$)*16,|
0001a0c0  64 6f 77 6e 5f 2d 64 73  68 69 66 74 5f 3a f1 62  |down_-dshift_:.b|
0001a0d0  5f 24 3a ec 6c 65 66 74  5f 2b 65 6e 64 5f 2d a9  |_$:.left_+end_-.|
0001a0e0  28 61 5f 24 29 2a 31 36  2d 31 35 2c 64 6f 77 6e  |(a_$)*16-15,down|
0001a0f0  5f 2d 64 73 68 69 66 74  5f 2b 37 0d 94 70 48 df  |_-dshift_+7..pH.|
0001a100  6c 65 66 74 5f 2b 65 6e  64 5f 2d a9 28 61 5f 24  |left_+end_-.(a_$|
0001a110  29 2a 31 36 2b a9 28 61  5f 24 29 2a 31 36 2b 31  |)*16+.(a_$)*16+1|
0001a120  35 2c 64 6f 77 6e 5f 2d  64 73 68 69 66 74 5f 2b  |5,down_-dshift_+|
0001a130  37 3a e7 41 6e 73 77 65  72 5f 25 3d b9 f2 6c 64  |7:.Answer_%=..ld|
0001a140  61 6e 73 0d 94 84 6f 76  65 72 74 5f 25 3d 64 6f  |ans...overt_%=do|
0001a150  77 6e 5f 2d 64 73 68 69  66 74 5f 3a 6c 65 66 74  |wn_-dshift_:left|
0001a160  5f 3d 64 75 6e 6b 6c 65  66 74 5f 3a 6c 65 66 74  |_=dunkleft_:left|
0001a170  5f 3d 6c 65 66 74 5f 2b  6f 6e 5f 3a ed 3a 64 6f  |_=left_+on_:.:do|
0001a180  77 6e 5f 3d 64 6f 77 6e  5f 2d 33 30 30 3a 6c 65  |wn_=down_-300:le|
0001a190  66 74 5f 3d 62 65 67 6c  65 66 74 5f 3a ed 3a c8  |ft_=begleft_:.:.|
0001a1a0  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  |."Hourglass_Off"|
0001a1b0  3a e1 0d 94 e8 41 dd f2  6c 64 61 6e 73 3a ec 6c  |:....A..ldans:.l|
0001a1c0  65 66 74 5f 2b 65 6e 64  5f 2d a9 28 63 5f 24 29  |eft_+end_-.(c_$)|
0001a1d0  2a 31 36 2c 64 6f 77 6e  5f 2d 64 73 68 69 66 74  |*16,down_-dshift|
0001a1e0  5f 2b 34 30 3a f1 63 5f  24 3a e7 72 65 6d 5f 3c  |_+40:.c_$:.rem_<|
0001a1f0  3e 30 8c 0d 95 24 0e e7  72 65 6d 6d 79 5f 3d 31  |>0...$..remmy_=1|
0001a200  8c 0d 95 2e 76 ec 6c 65  66 74 5f 2b 65 6e 64 5f  |....v.left_+end_|
0001a210  2d a9 28 61 5f 24 29 2a  31 36 2b a9 28 61 5f 24  |-.(a_$)*16+.(a_$|
0001a220  29 2a 31 36 2b 38 2c 64  6f 77 6e 5f 2d 64 73 68  |)*16+8,down_-dsh|
0001a230  69 66 74 5f 2b 34 30 3a  f1 22 72 22 3a ec 6c 65  |ift_+40:."r":.le|
0001a240  66 74 5f 2b 65 6e 64 5f  2d a9 28 61 5f 24 29 2a  |ft_+end_-.(a_$)*|
0001a250  31 36 2b a9 28 61 5f 24  29 2a 31 36 2b 33 30 2c  |16+.(a_$)*16+30,|
0001a260  64 6f 77 6e 5f 2d 64 73  68 69 66 74 5f 2b 34 30  |down_-dshift_+40|
0001a270  3a f1 72 65 6d 5f 24 0d  95 56 10 cd 3a e7 72 65  |:.rem_$..V..:.re|
0001a280  6d 6d 79 5f 3d 32 8c 0d  95 6a 80 ec 6c 65 66 74  |mmy_=2...j..left|
0001a290  5f 2b 65 6e 64 5f 2d a9  28 61 5f 24 29 2a 31 36  |_+end_-.(a_$)*16|
0001a2a0  2b a9 28 61 5f 24 29 2a  31 36 2b 34 2c 64 6f 77  |+.(a_$)*16+4,dow|
0001a2b0  6e 5f 2d 64 73 68 69 66  74 5f 2b 35 30 3a f1 22  |n_-dshift_+50:."|
0001a2c0  2e 22 3a ec 6c 65 66 74  5f 2b 65 6e 64 5f 2d a9  |.":.left_+end_-.|
0001a2d0  28 61 5f 24 29 2a 31 36  2b a9 28 61 5f 24 29 2a  |(a_$)*16+.(a_$)*|
0001a2e0  31 36 2b 32 30 2c 64 6f  77 6e 5f 2d 64 73 68 69  |16+20,down_-dshi|
0001a2f0  66 74 5f 2b 34 30 3a f1  a4 7a 65 72 6f 28 63 7a  |ft_+40:..zero(cz|
0001a300  5f 24 28 72 5f 29 29 0d  95 9c 10 cd 3a e7 72 65  |_$(r_)).....:.re|
0001a310  6d 6d 79 5f 3d 33 8c 0d  95 b0 65 72 74 5f 3d 72  |mmy_=3....ert_=r|
0001a320  65 6d 5f 3a 72 62 5f 3d  62 5f 3a 72 74 5f 24 3d  |em_:rb_=b_:rt_$=|
0001a330  c3 28 72 74 5f 29 3a 72  62 5f 24 3d c3 28 72 62  |.(rt_):rb_$=.(rb|
0001a340  5f 29 3a e3 74 72 5f 3d  31 30 b8 32 88 2d 31 3a  |_):.tr_=10.2.-1:|
0001a350  e7 72 74 5f 83 74 72 5f  3d 30 80 72 62 5f 83 74  |.rt_.tr_=0.rb_.t|
0001a360  72 5f 3d 30 20 72 74 5f  3d 72 74 5f 2f 74 72 5f  |r_=0 rt_=rt_/tr_|
0001a370  3a 72 62 5f 3d 72 62 5f  2f 74 72 5f 0d 95 d8 a9  |:rb_=rb_/tr_....|
0001a380  ed 3a 72 74 5f 24 3d c3  28 72 74 5f 29 3a 72 62  |.:rt_$=.(rt_):rb|
0001a390  5f 24 3d c3 28 72 62 5f  29 3a ec 6c 65 66 74 5f  |_$=.(rb_):.left_|
0001a3a0  2b 65 6e 64 5f 2d a9 28  61 5f 24 29 2a 31 36 2b  |+end_-.(a_$)*16+|
0001a3b0  a9 28 61 5f 24 29 2a 31  36 2b 38 2c 64 6f 77 6e  |.(a_$)*16+8,down|
0001a3c0  5f 2d 64 73 68 69 66 74  5f 2b 36 35 3a f1 a4 7a  |_-dshift_+65:..z|
0001a3d0  65 72 6f 28 72 74 5f 24  29 3a ec 6c 65 66 74 5f  |ero(rt_$):.left_|
0001a3e0  2b 65 6e 64 5f 2d a9 28  61 5f 24 29 2a 31 36 2b  |+end_-.(a_$)*16+|
0001a3f0  a9 28 61 5f 24 29 2a 31  36 2b a9 28 72 74 5f 24  |.(a_$)*16+.(rt_$|
0001a400  29 2a 31 36 2b 32 30 2c  64 6f 77 6e 5f 2d 64 73  |)*16+20,down_-ds|
0001a410  68 69 66 74 5f 2b 34 30  3a f1 a4 7a 65 72 6f 28  |hift_+40:..zero(|
0001a420  72 62 5f 24 29 0d 96 14  46 ec 6c 65 66 74 5f 2b  |rb_$)...F.left_+|
0001a430  65 6e 64 5f 2d a9 28 61  5f 24 29 2a 31 36 2b a9  |end_-.(a_$)*16+.|
0001a440  28 61 5f 24 29 2a 31 36  2b a9 28 72 74 5f 24 29  |(a_$)*16+.(rt_$)|
0001a450  2a 31 36 2b 35 2c 64 6f  77 6e 5f 2d 64 73 68 69  |*16+5,down_-dshi|
0001a460  66 74 5f 2b 35 30 3a f1  22 2f 22 0d 96 28 05 cd  |ft_+50:."/"..(..|
0001a470  0d 96 32 07 cd 3a e1 0d  96 46 61 dd f2 73 75 6d  |..2..:...Fa..sum|
0001a480  4d 3a 73 74 61 72 74 65  64 5f 3d a3 3a 72 65 5f  |M:started_=.:re_|
0001a490  3d 30 3a 71 5f 3d 30 3a  77 5f 3d 31 3a 66 69 6e  |=0:q_=0:w_=1:fin|
0001a4a0  61 6c 5f 24 3d 22 22 3a  6a 5f 3d 30 3a f5 3a f2  |al_$="":j_=0:.:.|
0001a4b0  67 65 74 61 6e 73 53 3a  fd 6a 5f 3d a9 28 61 5f  |getansS:.j_=.(a_|
0001a4c0  24 29 3a e7 61 5f 83 62  5f 3c 3e 30 80 c2 63 5f  |$):.a_.b_<>0..c_|
0001a4d0  24 29 3c 3e 22 30 22 8c  0d 96 8c 59 76 65 72 74  |$)<>"0"....Yvert|
0001a4e0  5f 25 3d 76 65 72 74 5f  25 2d 64 72 6f 70 5f 3a  |_%=vert_%-drop_:|
0001a4f0  72 65 5f 24 3d c3 28 72  65 5f 29 3a 68 6f 73 5f  |re_$=.(re_):hos_|
0001a500  25 3d 73 74 61 72 74 68  6f 73 5f 25 2b 6a 5f 2a  |%=starthos_%+j_*|
0001a510  31 36 2d a9 28 72 65 5f  24 29 2a 31 36 3a ec 68  |16-.(re_$)*16:.h|
0001a520  6f 73 5f 25 2c 76 65 72  74 5f 25 3a f1 72 65 5f  |os_%,vert_%:.re_|
0001a530  24 0d 96 b4 07 cd 3a e1  0d 96 d2 73 dd f2 67 65  |$.....:....s..ge|
0001a540  74 61 6e 73 53 3a 74 72  79 5f 24 3d 22 22 3a 72  |tansS:try_$="":r|
0001a550  65 5f 24 3d c3 28 72 65  5f 29 3a f5 3a 71 5f 3d  |e_$=.(re_):.:q_=|
0001a560  71 5f 2b 31 3a 6a 5f 3d  6a 5f 2b 31 3a 7a 5f 24  |q_+1:j_=j_+1:z_$|
0001a570  3d c1 61 5f 24 2c 77 5f  2c 71 5f 29 3a 74 72 79  |=.a_$,w_,q_):try|
0001a580  5f 24 3d 72 65 5f 24 2b  7a 5f 24 3a 74 72 79 5f  |_$=re_$+z_$:try_|
0001a590  3d bb 28 74 72 79 5f 24  29 3a e7 74 72 79 5f 81  |=.(try_$):.try_.|
0001a5a0  62 5f 3c 31 20 61 6e 73  5f 3d 30 0d 97 18 3e fd  |b_<1 ans_=0...>.|
0001a5b0  74 72 79 5f 81 62 5f 3e  30 84 6a 5f 3d a9 28 61  |try_.b_>0.j_=.(a|
0001a5c0  5f 24 29 3a 61 6e 73 5f  3d 74 72 79 5f 81 62 5f  |_$):ans_=try_.b_|
0001a5d0  3a 72 65 5f 3d 74 72 79  5f 83 62 5f 3a e7 73 74  |:re_=try_.b_:.st|
0001a5e0  61 72 74 65 64 5f 3d b9  8c 0d 97 36 4f 76 65 72  |arted_=....6Over|
0001a5f0  74 5f 25 3d 76 65 72 74  5f 25 2d 64 72 6f 70 5f  |t_%=vert_%-drop_|
0001a600  3a 68 6f 73 5f 25 3d 73  74 61 72 74 68 6f 73 5f  |:hos_%=starthos_|
0001a610  25 2b 6a 5f 2a 31 36 2d  a9 28 74 72 79 5f 24 29  |%+j_*16-.(try_$)|
0001a620  2a 31 36 3a ec 68 6f 73  5f 25 2c 76 65 72 74 5f  |*16:.hos_%,vert_|
0001a630  25 3a f1 74 72 79 5f 24  0d 97 54 78 cd 3a 73 74  |%:.try_$..Tx.:st|
0001a640  61 72 74 65 64 5f 3d b9  3a 6a 6f 67 5f 3d 61 6e  |arted_=.:jog_=an|
0001a650  73 5f 2a 62 5f 3a 6a 6f  67 5f 24 3d c3 28 6a 6f  |s_*b_:jog_$=.(jo|
0001a660  67 5f 29 3a 76 65 72 74  5f 25 3d 76 65 72 74 5f  |g_):vert_%=vert_|
0001a670  25 2d 64 72 6f 70 5f 3a  68 6f 73 5f 25 3d 73 74  |%-drop_:hos_%=st|
0001a680  61 72 74 68 6f 73 5f 25  2b 6a 5f 2a 31 36 2d a9  |arthos_%+j_*16-.|
0001a690  28 6a 6f 67 5f 24 29 2a  31 36 3a e7 6a 5f 3d a9  |(jog_$)*16:.j_=.|
0001a6a0  28 61 5f 24 29 80 c2 63  5f 24 29 3d 22 30 22 8c  |(a_$)..c_$)="0".|
0001a6b0  0d 97 90 09 65 64 5f 3d  31 0d 97 9a 6b cc 3a ec  |....ed_=1...k.:.|
0001a6c0  68 6f 73 5f 25 2c 76 65  72 74 5f 25 3a f1 6a 6f  |hos_%,vert_%:.jo|
0001a6d0  67 5f 24 3a 68 6f 73 5f  25 3d 73 74 61 72 74 68  |g_$:hos_%=starth|
0001a6e0  6f 73 5f 25 2b 6a 5f 2a  31 36 2d a9 28 74 72 79  |os_%+j_*16-.(try|
0001a6f0  5f 24 29 2a 31 36 3a ec  68 6f 73 5f 25 2c 76 65  |_$)*16:.hos_%,ve|
0001a700  72 74 5f 25 2d 33 30 3a  df 68 6f 73 5f 25 2b a9  |rt_%-30:.hos_%+.|
0001a710  28 74 72 79 5f 24 29 2a  31 36 2c 76 65 72 74 5f  |(try_$)*16,vert_|
0001a720  25 2d 33 30 0d 97 c2 14  cd 3a 77 5f 3d 6a 5f 2b  |%-30.....:w_=j_+|
0001a730  31 3a 71 5f 3d 30 3a e1  0d 97 ea 12 dd f2 46 31  |1:q_=0:.......F1|
0001a740  3a e7 6c 61 73 74 5f 3d  31 e1 0d 97 f4 78 6d 64  |:.last_=1....xmd|
0001a750  69 76 61 72 74 6c 65 66  74 5f 3d 58 25 2b 30 3a  |ivartleft_=X%+0:|
0001a760  6c 65 66 74 5f 3d 6d 64  69 76 61 72 74 6c 65 66  |left_=mdivartlef|
0001a770  74 5f 3a 6f 6e 5f 3d 33  30 30 3a 65 6e 64 5f 3d  |t_:on_=300:end_=|
0001a780  31 30 30 3a 64 6f 77 6e  5f 3d 59 25 2d 39 30 3a  |100:down_=Y%-90:|
0001a790  62 6f 74 5f 3d 31 32 30  3a 72 5f 3d 30 3a e3 71  |bot_=120:r_=0:.q|
0001a7a0  5f 3d 31 b8 34 3a e3 77  5f 3d 31 b8 33 3a 72 5f  |_=1.4:.w_=1.3:r_|
0001a7b0  3d 72 5f 2b 31 3a e7 6c  61 73 74 5f 3e 72 5f 2d  |=r_+1:.last_>r_-|
0001a7c0  31 8c 0d 98 1c d8 64 75  6e 6b 6c 65 66 74 5f 3d  |1.....dunkleft_=|
0001a7d0  6c 65 66 74 5f 3a 61 5f  24 3d c3 28 46 55 31 5f  |left_:a_$=.(FU1_|
0001a7e0  28 72 5f 29 29 3a 62 5f  24 3d c3 28 46 44 31 5f  |(r_)):b_$=.(FD1_|
0001a7f0  28 72 5f 29 29 3a 63 5f  24 3d c3 28 46 55 32 5f  |(r_)):c_$=.(FU2_|
0001a800  28 72 5f 29 29 3a 64 5f  24 3d c3 28 46 44 32 5f  |(r_)):d_$=.(FD2_|
0001a810  28 72 5f 29 29 3a 65 5f  24 3d c3 28 46 55 33 5f  |(r_)):e_$=.(FU3_|
0001a820  28 72 5f 29 29 3a 66 5f  24 3d c3 28 46 44 33 5f  |(r_)):f_$=.(FD3_|
0001a830  28 72 5f 29 29 3a 73 70  6f 74 6e 5f 3d 35 30 3a  |(r_)):spotn_=50:|
0001a840  ec 6c 65 66 74 5f 2b 73  70 6f 74 6e 5f 2d a9 28  |.left_+spotn_-.(|
0001a850  c3 28 72 5f 29 29 2a 31  36 2c 64 6f 77 6e 5f 2d  |.(r_))*16,down_-|
0001a860  35 30 3a f1 a4 7a 65 72  6f 28 c3 28 72 5f 29 29  |50:..zero(.(r_))|
0001a870  3b 22 29 22 3a 73 70 6f  74 61 5f 3d 37 30 3a 74  |;")":spota_=70:t|
0001a880  64 6f 77 6e 5f 3d 64 6f  77 6e 5f 3a 64 6f 77 6e  |down_=down_:down|
0001a890  5f 3d 64 6f 77 6e 5f 2d  33 30 0d 98 62 67 e7 57  |_=down_-30..bg.W|
0001a8a0  68 6f 6c 65 5f 28 72 5f  2c 30 29 3c 3e 30 20 77  |hole_(r_,0)<>0 w|
0001a8b0  68 6f 6c 65 5f 24 3d c3  28 57 68 6f 6c 65 5f 28  |hole_$=.(Whole_(|
0001a8c0  72 5f 2c 30 29 29 3a ec  6c 65 66 74 5f 2b 73 70  |r_,0)):.left_+sp|
0001a8d0  6f 74 61 5f 2d 33 30 2d  a9 28 77 68 6f 6c 65 5f  |ota_-30-.(whole_|
0001a8e0  24 29 2f 32 2a 31 36 2c  64 6f 77 6e 5f 2d 31 30  |$)/2*16,down_-10|
0001a8f0  30 3a f1 a4 7a 65 72 6f  28 77 68 6f 6c 65 5f 24  |0:..zero(whole_$|
0001a900  29 0d 98 6c dd ec 6c 65  66 74 5f 2b 73 70 6f 74  |)..l..left_+spot|
0001a910  61 5f 2d a9 28 62 5f 24  29 2f 32 2a 31 36 2c 64  |a_-.(b_$)/2*16,d|
0001a920  6f 77 6e 5f 2d 62 6f 74  5f 3a f1 a4 7a 65 72 6f  |own_-bot_:..zero|
0001a930  28 62 5f 24 29 3a ec 6c  65 66 74 5f 2b 73 70 6f  |(b_$):.left_+spo|
0001a940  74 61 5f 2d a9 28 62 5f  24 29 2f 32 2a 31 36 2c  |ta_-.(b_$)/2*16,|
0001a950  64 6f 77 6e 5f 2d 62 6f  74 5f 2b 38 3a df 6c 65  |down_-bot_+8:.le|
0001a960  66 74 5f 2b 73 70 6f 74  61 5f 2b a9 28 62 5f 24  |ft_+spota_+.(b_$|
0001a970  29 2f 32 2a 31 36 2c 64  6f 77 6e 5f 2d 62 6f 74  |)/2*16,down_-bot|
0001a980  5f 2b 38 3a ec 6c 65 66  74 5f 2b 73 70 6f 74 61  |_+8:.left_+spota|
0001a990  5f 2d a9 28 61 5f 24 29  2f 32 2a 31 36 2c 64 6f  |_-.(a_$)/2*16,do|
0001a9a0  77 6e 5f 2d 62 6f 74 5f  2b 34 30 3a f1 a4 7a 65  |wn_-bot_+40:..ze|
0001a9b0  72 6f 28 61 5f 24 29 3a  e7 57 68 6f 6c 65 5f 28  |ro(a_$):.Whole_(|
0001a9c0  72 5f 2c 31 29 3c 3e 30  20 73 70 6f 74 70 5f 3d  |r_,1)<>0 spotp_=|
0001a9d0  31 30 30 8b 73 70 6f 74  70 5f 3d 31 31 30 0d 98  |100.spotp_=110..|
0001a9e0  a8 9a ec 6c 65 66 74 5f  2b 73 70 6f 74 70 5f 2c  |...left_+spotp_,|
0001a9f0  64 6f 77 6e 5f 2d 31 30  30 3a f1 46 72 61 63 73  |down_-100:.Fracs|
0001aa00  69 67 6e 5f 24 28 72 5f  29 3a 73 70 6f 74 62 5f  |ign_$(r_):spotb_|
0001aa10  3d 31 36 30 3a e7 57 68  6f 6c 65 5f 28 72 5f 2c  |=160:.Whole_(r_,|
0001aa20  31 29 3c 3e 30 20 77 68  6f 6c 65 5f 24 3d c3 28  |1)<>0 whole_$=.(|
0001aa30  57 68 6f 6c 65 5f 28 72  5f 2c 31 29 29 3a ec 6c  |Whole_(r_,1)):.l|
0001aa40  65 66 74 5f 2b 73 70 6f  74 62 5f 2d 33 30 2d a9  |eft_+spotb_-30-.|
0001aa50  28 77 68 6f 6c 65 5f 24  29 2f 32 2a 31 36 2c 64  |(whole_$)/2*16,d|
0001aa60  6f 77 6e 5f 2d 31 30 30  3a f1 a4 7a 65 72 6f 28  |own_-100:..zero(|
0001aa70  77 68 6f 6c 65 5f 24 29  0d 98 da c1 73 70 6f 74  |whole_$)....spot|
0001aa80  62 5f 3d 31 36 30 3a ec  6c 65 66 74 5f 2b 73 70  |b_=160:.left_+sp|
0001aa90  6f 74 62 5f 2d a9 28 64  5f 24 29 2f 32 2a 31 36  |otb_-.(d_$)/2*16|
0001aaa0  2c 64 6f 77 6e 5f 2d 62  6f 74 5f 3a f1 a4 7a 65  |,down_-bot_:..ze|
0001aab0  72 6f 28 64 5f 24 29 3a  ec 6c 65 66 74 5f 2b 73  |ro(d_$):.left_+s|
0001aac0  70 6f 74 62 5f 2d a9 28  64 5f 24 29 2f 32 2a 31  |potb_-.(d_$)/2*1|
0001aad0  36 2c 64 6f 77 6e 5f 2d  62 6f 74 5f 2b 38 3a df  |6,down_-bot_+8:.|
0001aae0  6c 65 66 74 5f 2b 73 70  6f 74 62 5f 2b a9 28 64  |left_+spotb_+.(d|
0001aaf0  5f 24 29 2f 32 2a 31 36  2c 64 6f 77 6e 5f 2d 62  |_$)/2*16,down_-b|
0001ab00  6f 74 5f 2b 38 3a ec 6c  65 66 74 5f 2b 73 70 6f  |ot_+8:.left_+spo|
0001ab10  74 62 5f 2d a9 28 63 5f  24 29 2f 32 2a 31 36 2c  |tb_-.(c_$)/2*16,|
0001ab20  64 6f 77 6e 5f 2d 62 6f  74 5f 2b 34 30 3a f1 a4  |down_-bot_+40:..|
0001ab30  7a 65 72 6f 28 63 5f 24  29 0d 98 f8 38 73 70 6f  |zero(c_$)...8spo|
0001ab40  74 65 5f 3d 31 39 30 3a  ec 6c 65 66 74 5f 2b 73  |te_=190:.left_+s|
0001ab50  70 6f 74 65 5f 2c 64 6f  77 6e 5f 2d 31 30 30 3a  |pote_,down_-100:|
0001ab60  f1 22 3d 22 3a e7 41 6e  73 77 65 72 5f 25 3d b9  |."=":.Answer_%=.|
0001ab70  8c 0d 99 0c 3d 65 5f 3d  bb 28 65 5f 24 29 3a 66  |....=e_=.(e_$):f|
0001ab80  5f 3d bb 28 66 5f 24 29  3a e7 57 68 6f 6c 65 5f  |_=.(f_$):.Whole_|
0001ab90  28 72 5f 2c 32 29 3c 3e  30 84 57 68 6f 6c 65 5f  |(r_,2)<>0.Whole_|
0001aba0  28 72 5f 2c 32 29 3d 30  80 65 5f 3d 30 8c 0d 99  |(r_,2)=0.e_=0...|
0001abb0  20 be 77 68 6f 6c 65 5f  24 3d c3 28 57 68 6f 6c  | .whole_$=.(Whol|
0001abc0  65 5f 28 72 5f 2c 32 29  29 3a 73 70 6f 74 63 5f  |e_(r_,2)):spotc_|
0001abd0  3d 32 33 30 3a ec 6c 65  66 74 5f 2b 73 70 6f 74  |=230:.left_+spot|
0001abe0  63 5f 2d a9 28 77 68 6f  6c 65 5f 24 29 2f 32 2a  |c_-.(whole_$)/2*|
0001abf0  31 36 2c 64 6f 77 6e 5f  2d 31 30 30 3a f1 a4 7a  |16,down_-100:..z|
0001ac00  65 72 6f 28 77 68 6f 6c  65 5f 24 29 3a 6f 6e 61  |ero(whole_$):ona|
0001ac10  5f 3d 34 30 3a e7 65 5f  3c 3e 30 20 73 70 6f 74  |_=40:.e_<>0 spot|
0001ac20  63 5f 3d 32 32 30 2b a9  28 77 68 6f 6c 65 5f 24  |c_=220+.(whole_$|
0001ac30  29 2f 32 2a 31 36 3a ec  6c 65 66 74 5f 2b 6f 6e  |)/2*16:.left_+on|
0001ac40  61 5f 2b 73 70 6f 74 63  5f 2d a9 28 66 5f 24 29  |a_+spotc_-.(f_$)|
0001ac50  2f 32 2a 31 36 2c 64 6f  77 6e 5f 2d 62 6f 74 5f  |/2*16,down_-bot_|
0001ac60  3a f1 a4 7a 65 72 6f 28  66 5f 24 29 0d 99 48 61  |:..zero(f_$)..Ha|
0001ac70  e7 65 5f 3c 3e 30 ec 6c  65 66 74 5f 2b 6f 6e 61  |.e_<>0.left_+ona|
0001ac80  5f 2b 73 70 6f 74 63 5f  2d a9 28 66 5f 24 29 2f  |_+spotc_-.(f_$)/|
0001ac90  32 2a 31 36 2c 64 6f 77  6e 5f 2d 62 6f 74 5f 2b  |2*16,down_-bot_+|
0001aca0  38 3a df 6c 65 66 74 5f  2b 6f 6e 61 5f 2b 73 70  |8:.left_+ona_+sp|
0001acb0  6f 74 63 5f 2b a9 28 66  5f 24 29 2f 32 2a 31 36  |otc_+.(f_$)/2*16|
0001acc0  2c 64 6f 77 6e 5f 2d 62  6f 74 5f 2b 38 0d 99 52  |,down_-bot_+8..R|
0001acd0  42 e7 65 5f 3c 3e 30 ec  6c 65 66 74 5f 2b 6f 6e  |B.e_<>0.left_+on|
0001ace0  61 5f 2b 73 70 6f 74 63  5f 2d a9 28 65 5f 24 29  |a_+spotc_-.(e_$)|
0001acf0  2f 32 2a 31 36 2c 64 6f  77 6e 5f 2d 62 6f 74 5f  |/2*16,down_-bot_|
0001ad00  2b 34 30 3a f1 a4 7a 65  72 6f 28 65 5f 24 29 0d  |+40:..zero(e_$).|
0001ad10  99 5c c3 cc 3a 73 70 6f  74 63 5f 3d 32 34 30 3a  |.\..:spotc_=240:|
0001ad20  ec 6c 65 66 74 5f 2b 73  70 6f 74 63 5f 2d a9 28  |.left_+spotc_-.(|
0001ad30  66 5f 24 29 2f 32 2a 31  36 2c 64 6f 77 6e 5f 2d  |f_$)/2*16,down_-|
0001ad40  62 6f 74 5f 3a f1 a4 7a  65 72 6f 28 66 5f 24 29  |bot_:..zero(f_$)|
0001ad50  3a ec 6c 65 66 74 5f 2b  73 70 6f 74 63 5f 2d a9  |:.left_+spotc_-.|
0001ad60  28 66 5f 24 29 2f 32 2a  31 36 2c 64 6f 77 6e 5f  |(f_$)/2*16,down_|
0001ad70  2d 62 6f 74 5f 2b 38 3a  df 6c 65 66 74 5f 2b 73  |-bot_+8:.left_+s|
0001ad80  70 6f 74 63 5f 2b a9 28  66 5f 24 29 2f 32 2a 31  |potc_+.(f_$)/2*1|
0001ad90  36 2c 64 6f 77 6e 5f 2d  62 6f 74 5f 2b 38 3a ec  |6,down_-bot_+8:.|
0001ada0  6c 65 66 74 5f 2b 73 70  6f 74 63 5f 2d a9 28 65  |left_+spotc_-.(e|
0001adb0  5f 24 29 2f 32 2a 31 36  2c 64 6f 77 6e 5f 2d 62  |_$)/2*16,down_-b|
0001adc0  6f 74 5f 2b 34 30 3a f1  a4 7a 65 72 6f 28 65 5f  |ot_+40:..zero(e_|
0001add0  24 29 0d 99 8e 05 cd 0d  99 98 05 cd 0d 99 a2 5b  |$).............[|
0001ade0  cd 3a 6c 65 66 74 5f 3d  64 75 6e 6b 6c 65 66 74  |.:left_=dunkleft|
0001adf0  5f 3a 6c 65 66 74 5f 3d  6c 65 66 74 5f 2b 6f 6e  |_:left_=left_+on|
0001ae00  5f 3a 64 6f 77 6e 5f 3d  74 64 6f 77 6e 5f 3a ed  |_:down_=tdown_:.|
0001ae10  3a 6c 65 66 74 5f 3d 6d  64 69 76 61 72 74 6c 65  |:left_=mdivartle|
0001ae20  66 74 5f 3a 64 6f 77 6e  5f 3d 64 6f 77 6e 5f 2d  |ft_:down_=down_-|
0001ae30  31 38 30 3a ed 3a e1 0d  9a 1a 13 dd f2 57 46 31  |180:.:.......WF1|
0001ae40  3a e7 71 75 69 74 5f 3d  b9 8c 0d 9a 2e 7d e3 74  |:.quit_=.....}.t|
0001ae50  5f 3d 31 b8 31 32 3a 46  55 31 5f 28 74 5f 29 3d  |_=1.12:FU1_(t_)=|
0001ae60  30 3a 46 55 32 5f 28 74  5f 29 3d 30 3a 46 44 31  |0:FU2_(t_)=0:FD1|
0001ae70  5f 28 74 5f 29 3d 30 3a  46 44 32 5f 28 74 5f 29  |_(t_)=0:FD2_(t_)|
0001ae80  3d 30 3a 46 55 33 5f 28  74 5f 29 3d 30 3a 46 55  |=0:FU3_(t_)=0:FU|
0001ae90  33 5f 28 74 5f 29 3d 30  3a 57 68 6f 6c 65 5f 28  |3_(t_)=0:Whole_(|
0001aea0  74 5f 2c 30 29 3d 30 3a  57 68 6f 6c 65 5f 28 74  |t_,0)=0:Whole_(t|
0001aeb0  5f 2c 31 29 3d 30 3a 57  68 6f 6c 65 5f 28 74 5f  |_,1)=0:Whole_(t_|
0001aec0  2c 32 29 3d 30 3a ed 0d  9a 4c dd cd 3a 6d 64 69  |,2)=0:...L..:mdi|
0001aed0  76 61 72 74 6c 65 66 74  5f 3d 58 25 2b 30 3a 6c  |vartleft_=X%+0:l|
0001aee0  65 66 74 5f 3d 6d 64 69  76 61 72 74 6c 65 66 74  |eft_=mdivartleft|
0001aef0  5f 3a 6f 6e 5f 3d 33 30  30 3a 65 6e 64 5f 3d 31  |_:on_=300:end_=1|
0001af00  30 30 3a 64 6f 77 6e 5f  3d 59 25 2d 39 30 3a 62  |00:down_=Y%-90:b|
0001af10  6f 74 5f 3d 31 32 30 3a  72 5f 3d 30 3a e3 71 5f  |ot_=120:r_=0:.q_|
0001af20  3d 31 b8 34 3a e3 77 5f  3d 31 b8 33 3a 72 5f 3d  |=1.4:.w_=1.3:r_=|
0001af30  72 5f 2b 31 3a 64 75 6e  6b 6c 65 66 74 5f 3d 6c  |r_+1:dunkleft_=l|
0001af40  65 66 74 5f 3a 61 5f 24  3d c3 28 46 55 31 5f 28  |eft_:a_$=.(FU1_(|
0001af50  72 5f 29 29 3a 62 5f 24  3d c3 28 46 44 31 5f 28  |r_)):b_$=.(FD1_(|
0001af60  72 5f 29 29 3a 63 5f 24  3d c3 28 46 55 32 5f 28  |r_)):c_$=.(FU2_(|
0001af70  72 5f 29 29 3a 64 5f 24  3d c3 28 46 44 32 5f 28  |r_)):d_$=.(FD2_(|
0001af80  72 5f 29 29 3a 65 5f 24  3d c3 28 46 55 33 5f 28  |r_)):e_$=.(FU3_(|
0001af90  72 5f 29 29 3a 66 5f 24  3d c3 28 46 44 33 5f 28  |r_)):f_$=.(FD3_(|
0001afa0  72 5f 29 29 0d 9a b0 cc  73 70 6f 74 6e 5f 3d 35  |r_))....spotn_=5|
0001afb0  30 3a ec 6c 65 66 74 5f  2b 73 70 6f 74 6e 5f 2d  |0:.left_+spotn_-|
0001afc0  a9 28 c3 28 72 5f 29 29  2a 31 36 2c 64 6f 77 6e  |.(.(r_))*16,down|
0001afd0  5f 2d 35 30 3a f1 a4 7a  65 72 6f 28 c3 28 72 5f  |_-50:..zero(.(r_|
0001afe0  29 29 3b 22 29 22 3a 73  70 6f 74 61 5f 3d 37 30  |));")":spota_=70|
0001aff0  3a 74 64 6f 77 6e 5f 3d  64 6f 77 6e 5f 3a 64 6f  |:tdown_=down_:do|
0001b000  77 6e 5f 3d 64 6f 77 6e  5f 2d 33 30 3a e7 57 68  |wn_=down_-30:.Wh|
0001b010  6f 6c 65 5f 28 72 5f 2c  30 29 3c 3e 30 20 77 68  |ole_(r_,0)<>0 wh|
0001b020  6f 6c 65 5f 24 3d c3 28  57 68 6f 6c 65 5f 28 72  |ole_$=.(Whole_(r|
0001b030  5f 2c 30 29 29 3a ec 6c  65 66 74 5f 2b 73 70 6f  |_,0)):.left_+spo|
0001b040  74 61 5f 2d 33 30 2d a9  28 77 68 6f 6c 65 5f 24  |ta_-30-.(whole_$|
0001b050  29 2f 32 2a 31 36 2c 64  6f 77 6e 5f 2d 31 30 30  |)/2*16,down_-100|
0001b060  3a f1 a4 7a 65 72 6f 28  77 68 6f 6c 65 5f 24 29  |:..zero(whole_$)|
0001b070  0d 9a d8 dd ec 6c 65 66  74 5f 2b 73 70 6f 74 61  |.....left_+spota|
0001b080  5f 2d a9 28 62 5f 24 29  2f 32 2a 31 36 2c 64 6f  |_-.(b_$)/2*16,do|
0001b090  77 6e 5f 2d 62 6f 74 5f  3a f1 a4 7a 65 72 6f 28  |wn_-bot_:..zero(|
0001b0a0  62 5f 24 29 3a ec 6c 65  66 74 5f 2b 73 70 6f 74  |b_$):.left_+spot|
0001b0b0  61 5f 2d a9 28 62 5f 24  29 2f 32 2a 31 36 2c 64  |a_-.(b_$)/2*16,d|
0001b0c0  6f 77 6e 5f 2d 62 6f 74  5f 2b 38 3a df 6c 65 66  |own_-bot_+8:.lef|
0001b0d0  74 5f 2b 73 70 6f 74 61  5f 2b a9 28 62 5f 24 29  |t_+spota_+.(b_$)|
0001b0e0  2f 32 2a 31 36 2c 64 6f  77 6e 5f 2d 62 6f 74 5f  |/2*16,down_-bot_|
0001b0f0  2b 38 3a ec 6c 65 66 74  5f 2b 73 70 6f 74 61 5f  |+8:.left_+spota_|
0001b100  2d a9 28 61 5f 24 29 2f  32 2a 31 36 2c 64 6f 77  |-.(a_$)/2*16,dow|
0001b110  6e 5f 2d 62 6f 74 5f 2b  34 30 3a f1 a4 7a 65 72  |n_-bot_+40:..zer|
0001b120  6f 28 61 5f 24 29 3a e7  57 68 6f 6c 65 5f 28 72  |o(a_$):.Whole_(r|
0001b130  5f 2c 31 29 3c 3e 30 20  73 70 6f 74 70 5f 3d 31  |_,1)<>0 spotp_=1|
0001b140  30 30 8b 73 70 6f 74 70  5f 3d 31 30 35 0d 9b 14  |00.spotp_=105...|
0001b150  9a ec 6c 65 66 74 5f 2b  73 70 6f 74 70 5f 2c 64  |..left_+spotp_,d|
0001b160  6f 77 6e 5f 2d 31 30 30  3a f1 46 72 61 63 73 69  |own_-100:.Fracsi|
0001b170  67 6e 5f 24 28 72 5f 29  3a 73 70 6f 74 62 5f 3d  |gn_$(r_):spotb_=|
0001b180  31 36 30 3a e7 57 68 6f  6c 65 5f 28 72 5f 2c 31  |160:.Whole_(r_,1|
0001b190  29 3c 3e 30 20 77 68 6f  6c 65 5f 24 3d c3 28 57  |)<>0 whole_$=.(W|
0001b1a0  68 6f 6c 65 5f 28 72 5f  2c 31 29 29 3a ec 6c 65  |hole_(r_,1)):.le|
0001b1b0  66 74 5f 2b 73 70 6f 74  62 5f 2d 33 30 2d a9 28  |ft_+spotb_-30-.(|
0001b1c0  77 68 6f 6c 65 5f 24 29  2f 32 2a 31 36 2c 64 6f  |whole_$)/2*16,do|
0001b1d0  77 6e 5f 2d 31 30 30 3a  f1 a4 7a 65 72 6f 28 77  |wn_-100:..zero(w|
0001b1e0  68 6f 6c 65 5f 24 29 0d  9b 3c ce 73 70 6f 74 62  |hole_$)..<.spotb|
0001b1f0  5f 3d 31 36 30 3a ec 6c  65 66 74 5f 2b 73 70 6f  |_=160:.left_+spo|
0001b200  74 62 5f 2d a9 28 64 5f  24 29 2f 32 2a 31 36 2c  |tb_-.(d_$)/2*16,|
0001b210  64 6f 77 6e 5f 2d 62 6f  74 5f 3a f1 a4 7a 65 72  |down_-bot_:..zer|
0001b220  6f 28 64 5f 24 29 3a ec  6c 65 66 74 5f 2b 73 70  |o(d_$):.left_+sp|
0001b230  6f 74 62 5f 2d a9 28 64  5f 24 29 2f 32 2a 31 36  |otb_-.(d_$)/2*16|
0001b240  2c 64 6f 77 6e 5f 2d 62  6f 74 5f 2b 38 3a df 6c  |,down_-bot_+8:.l|
0001b250  65 66 74 5f 2b 73 70 6f  74 62 5f 2b a9 28 64 5f  |eft_+spotb_+.(d_|
0001b260  24 29 2f 32 2a 31 36 2c  64 6f 77 6e 5f 2d 62 6f  |$)/2*16,down_-bo|
0001b270  74 5f 2b 38 3a ec 6c 65  66 74 5f 2b 73 70 6f 74  |t_+8:.left_+spot|
0001b280  62 5f 2d a9 28 63 5f 24  29 2f 32 2a 31 36 2c 64  |b_-.(c_$)/2*16,d|
0001b290  6f 77 6e 5f 2d 62 6f 74  5f 2b 34 30 3a f1 a4 7a  |own_-bot_+40:..z|
0001b2a0  65 72 6f 28 63 5f 24 29  3a e7 41 6e 73 77 65 72  |ero(c_$):.Answer|
0001b2b0  5f 25 3d b9 8c 0d 9b 64  65 73 70 6f 74 65 5f 3d  |_%=....despote_=|
0001b2c0  31 39 30 3a ec 6c 65 66  74 5f 2b 73 70 6f 74 65  |190:.left_+spote|
0001b2d0  5f 2c 64 6f 77 6e 5f 2d  31 30 30 3a f1 22 3d 22  |_,down_-100:."="|
0001b2e0  3a 65 5f 3d bb 28 65 5f  24 29 3a 66 5f 3d bb 28  |:e_=.(e_$):f_=.(|
0001b2f0  66 5f 24 29 3a e7 57 68  6f 6c 65 5f 28 72 5f 2c  |f_$):.Whole_(r_,|
0001b300  32 29 3c 3e 30 84 57 68  6f 6c 65 5f 28 72 5f 2c  |2)<>0.Whole_(r_,|
0001b310  32 29 3d 30 80 65 5f 3d  30 8c 0d 9b 82 ae 77 68  |2)=0.e_=0.....wh|
0001b320  6f 6c 65 5f 24 3d c3 28  57 68 6f 6c 65 5f 28 72  |ole_$=.(Whole_(r|
0001b330  5f 2c 32 29 29 3a 73 70  6f 74 63 5f 3d 32 33 30  |_,2)):spotc_=230|
0001b340  3a ec 6c 65 66 74 5f 2b  73 70 6f 74 63 5f 2d a9  |:.left_+spotc_-.|
0001b350  28 77 68 6f 6c 65 5f 24  29 2f 32 2a 31 36 2c 64  |(whole_$)/2*16,d|
0001b360  6f 77 6e 5f 2d 31 30 30  3a f1 a4 7a 65 72 6f 28  |own_-100:..zero(|
0001b370  77 68 6f 6c 65 5f 24 29  3a 6f 6e 61 5f 3d 33 30  |whole_$):ona_=30|
0001b380  3a e7 65 5f 3c 3e 30 20  73 70 6f 74 63 5f 3d 32  |:.e_<>0 spotc_=2|
0001b390  33 30 3a ec 6c 65 66 74  5f 2b 6f 6e 61 5f 2b 73  |30:.left_+ona_+s|
0001b3a0  70 6f 74 63 5f 2d a9 28  66 5f 24 29 2f 32 2a 31  |potc_-.(f_$)/2*1|
0001b3b0  36 2c 64 6f 77 6e 5f 2d  62 6f 74 5f 3a f1 a4 7a  |6,down_-bot_:..z|
0001b3c0  65 72 6f 28 66 5f 24 29  0d 9b aa 61 e7 65 5f 3c  |ero(f_$)...a.e_<|
0001b3d0  3e 30 ec 6c 65 66 74 5f  2b 6f 6e 61 5f 2b 73 70  |>0.left_+ona_+sp|
0001b3e0  6f 74 63 5f 2d a9 28 66  5f 24 29 2f 32 2a 31 36  |otc_-.(f_$)/2*16|
0001b3f0  2c 64 6f 77 6e 5f 2d 62  6f 74 5f 2b 38 3a df 6c  |,down_-bot_+8:.l|
0001b400  65 66 74 5f 2b 6f 6e 61  5f 2b 73 70 6f 74 63 5f  |eft_+ona_+spotc_|
0001b410  2b a9 28 66 5f 24 29 2f  32 2a 31 36 2c 64 6f 77  |+.(f_$)/2*16,dow|
0001b420  6e 5f 2d 62 6f 74 5f 2b  38 0d 9b b4 42 e7 65 5f  |n_-bot_+8...B.e_|
0001b430  3c 3e 30 ec 6c 65 66 74  5f 2b 6f 6e 61 5f 2b 73  |<>0.left_+ona_+s|
0001b440  70 6f 74 63 5f 2d a9 28  65 5f 24 29 2f 32 2a 31  |potc_-.(e_$)/2*1|
0001b450  36 2c 64 6f 77 6e 5f 2d  62 6f 74 5f 2b 34 30 3a  |6,down_-bot_+40:|
0001b460  f1 a4 7a 65 72 6f 28 65  5f 24 29 0d 9b be c3 cc  |..zero(e_$).....|
0001b470  3a 73 70 6f 74 63 5f 3d  32 35 30 3a ec 6c 65 66  |:spotc_=250:.lef|
0001b480  74 5f 2b 73 70 6f 74 63  5f 2d a9 28 66 5f 24 29  |t_+spotc_-.(f_$)|
0001b490  2f 32 2a 31 36 2c 64 6f  77 6e 5f 2d 62 6f 74 5f  |/2*16,down_-bot_|
0001b4a0  3a f1 a4 7a 65 72 6f 28  66 5f 24 29 3a ec 6c 65  |:..zero(f_$):.le|
0001b4b0  66 74 5f 2b 73 70 6f 74  63 5f 2d a9 28 66 5f 24  |ft_+spotc_-.(f_$|
0001b4c0  29 2f 32 2a 31 36 2c 64  6f 77 6e 5f 2d 62 6f 74  |)/2*16,down_-bot|
0001b4d0  5f 2b 38 3a df 6c 65 66  74 5f 2b 73 70 6f 74 63  |_+8:.left_+spotc|
0001b4e0  5f 2b a9 28 66 5f 24 29  2f 32 2a 31 36 2c 64 6f  |_+.(f_$)/2*16,do|
0001b4f0  77 6e 5f 2d 62 6f 74 5f  2b 38 3a ec 6c 65 66 74  |wn_-bot_+8:.left|
0001b500  5f 2b 73 70 6f 74 63 5f  2d a9 28 65 5f 24 29 2f  |_+spotc_-.(e_$)/|
0001b510  32 2a 31 36 2c 64 6f 77  6e 5f 2d 62 6f 74 5f 2b  |2*16,down_-bot_+|
0001b520  34 30 3a f1 a4 7a 65 72  6f 28 65 5f 24 29 0d 9b  |40:..zero(e_$)..|
0001b530  fa 05 cd 0d 9c 04 5b cd  3a 6c 65 66 74 5f 3d 64  |......[.:left_=d|
0001b540  75 6e 6b 6c 65 66 74 5f  3a 6c 65 66 74 5f 3d 6c  |unkleft_:left_=l|
0001b550  65 66 74 5f 2b 6f 6e 5f  3a 64 6f 77 6e 5f 3d 74  |eft_+on_:down_=t|
0001b560  64 6f 77 6e 5f 3a ed 3a  6c 65 66 74 5f 3d 6d 64  |down_:.:left_=md|
0001b570  69 76 61 72 74 6c 65 66  74 5f 3a 64 6f 77 6e 5f  |ivartleft_:down_|
0001b580  3d 64 6f 77 6e 5f 2d 31  38 30 3a ed 3a e1 0d 9c  |=down_-180:.:...|
0001b590  7c be dd f2 63 68 6f 69  63 65 73 3a 43 68 6f 69  ||...choices:Choi|
0001b5a0  63 65 5f 25 3d a4 66 57  53 28 22 43 68 6f 69 63  |ce_%=.fWS("Choic|
0001b5b0  65 73 22 29 3a 24 21 53  74 61 72 74 58 5f 25 3d  |es"):$!StartX_%=|
0001b5c0  c3 28 72 69 74 65 5f 29  3a 24 21 70 77 6f 6e 5f  |.(rite_):$!pwon_|
0001b5d0  25 3d c3 28 70 77 6f 6e  5f 29 3a e7 53 69 67 6e  |%=.(pwon_):.Sign|
0001b5e0  5f 25 3d b9 3a f2 73 49  28 43 68 6f 69 63 65 5f  |_%=.:.sI(Choice_|
0001b5f0  25 2c 22 73 69 67 6e 72  69 67 68 74 22 29 3a f2  |%,"signright"):.|
0001b600  75 73 49 28 43 68 6f 69  63 65 5f 25 2c 22 73 69  |usI(Choice_%,"si|
0001b610  67 6e 6c 65 66 74 22 29  8b f2 75 73 49 28 43 68  |gnleft")..usI(Ch|
0001b620  6f 69 63 65 5f 25 2c 22  73 69 67 6e 72 69 67 68  |oice_%,"signrigh|
0001b630  74 22 29 3a f2 73 49 28  43 68 6f 69 63 65 5f 25  |t"):.sI(Choice_%|
0001b640  2c 22 73 69 67 6e 6c 65  66 74 22 29 0d 9c ae 25  |,"signleft")...%|
0001b650  e7 53 65 63 41 6e 73 5f  25 3d b9 f2 73 49 28 43  |.SecAns_%=..sI(C|
0001b660  68 6f 69 63 65 5f 25 2c  22 53 65 63 41 6e 73 22  |hoice_%,"SecAns"|
0001b670  29 0d 9c b8 1f e7 4c 6d  61 5f 25 3d b9 f2 73 49  |).....Lma_%=..sI|
0001b680  28 43 68 6f 69 63 65 5f  25 2c 22 4c 6d 61 22 29  |(Choice_%,"Lma")|
0001b690  0d 9c c2 1f e7 4c 64 61  5f 25 3d b9 f2 73 49 28  |.....Lda_%=..sI(|
0001b6a0  43 68 6f 69 63 65 5f 25  2c 22 4c 64 61 22 29 0d  |Choice_%,"Lda").|
0001b6b0  9c cc 25 e7 64 69 72 65  63 74 5f 25 3d b9 f2 73  |..%.direct_%=..s|
0001b6c0  49 28 43 68 6f 69 63 65  5f 25 2c 22 44 69 72 65  |I(Choice_%,"Dire|
0001b6d0  63 74 22 29 0d 9c d6 20  e7 72 65 6d 6d 79 5f 3d  |ct")... .remmy_=|
0001b6e0  31 f2 73 49 28 43 68 6f  69 63 65 5f 25 2c 22 72  |1.sI(Choice_%,"r|
0001b6f0  65 6d 22 29 0d 9c e0 20  e7 72 65 6d 6d 79 5f 3d  |em")... .remmy_=|
0001b700  32 f2 73 49 28 43 68 6f  69 63 65 5f 25 2c 22 64  |2.sI(Choice_%,"d|
0001b710  6f 74 22 29 0d 9c ea 21  e7 72 65 6d 6d 79 5f 3d  |ot")...!.remmy_=|
0001b720  33 f2 73 49 28 43 68 6f  69 63 65 5f 25 2c 22 66  |3.sI(Choice_%,"f|
0001b730  72 61 63 22 29 0d 9c f4  05 e1 0d 9d 08 19 dd a4  |rac")...........|
0001b740  70 77 6f 6e 5f 3a e7 72  65 6d 6d 79 5f 3c 3e 32  |pwon_:.remmy_<>2|
0001b750  8c 3d a3 0d 9d 12 38 70  77 6f 6e 5f 24 3d 24 21  |.=....8pwon_$=$!|
0001b760  70 77 6f 6e 5f 25 3a 70  77 6f 6e 5f 3d bb 28 70  |pwon_%:pwon_=.(p|
0001b770  77 6f 6e 5f 24 29 3a e7  a4 6d 6f 75 73 65 3d 34  |won_$):..mouse=4|
0001b780  80 70 77 6f 6e 5f 3d 33  8c 3d a3 0d 9d 26 16 e7  |.pwon_=3.=...&..|
0001b790  a4 6d 6f 75 73 65 3d 34  80 70 77 6f 6e 5f 3c 33  |.mouse=4.pwon_<3|
0001b7a0  8c 0d 9d 30 38 70 77 6f  6e 5f 3d 70 77 6f 6e 5f  |...08pwon_=pwon_|
0001b7b0  2b 31 3a 24 21 70 77 6f  6e 5f 25 3d c3 28 70 77  |+1:$!pwon_%=.(pw|
0001b7c0  6f 6e 5f 29 3a f2 72 49  28 43 68 6f 69 63 65 5f  |on_):.rI(Choice_|
0001b7d0  25 2c 22 70 77 6f 6e 22  29 0d 9d 4e 1a cd 3a e7  |%,"pwon")..N..:.|
0001b7e0  a4 6d 6f 75 73 65 3d 31  80 70 77 6f 6e 5f 3d 31  |.mouse=1.pwon_=1|
0001b7f0  8c 3d a3 0d 9d 62 16 e7  a4 6d 6f 75 73 65 3d 31  |.=...b...mouse=1|
0001b800  80 70 77 6f 6e 5f 3e 31  8c 0d 9d 6c 38 70 77 6f  |.pwon_>1...l8pwo|
0001b810  6e 5f 3d 70 77 6f 6e 5f  2d 31 3a 24 21 70 77 6f  |n_=pwon_-1:$!pwo|
0001b820  6e 5f 25 3d c3 28 70 77  6f 6e 5f 29 3a f2 72 49  |n_%=.(pwon_):.rI|
0001b830  28 43 68 6f 69 63 65 5f  25 2c 22 70 77 6f 6e 22  |(Choice_%,"pwon"|
0001b840  29 0d 9d 8a 0c cd 3a 3d  a4 72 65 64 6f 0d 9d a8  |).....:=.redo...|
0001b850  30 dd a4 72 65 64 6f 3a  e7 73 74 61 72 74 65 64  |0..redo:.started|
0001b860  5f 25 3d b9 80 a4 66 57  53 28 22 44 69 76 69 64  |_%=...fWS("Divid|
0001b870  65 22 29 8c 3d a4 44 69  76 79 47 6f 5f 0d 9d bc  |e").=.DivyGo_...|
0001b880  2d e7 73 74 61 72 74 65  64 5f 25 3d b9 80 a4 66  |-.started_%=...f|
0001b890  57 53 28 22 4c 6f 6e 67  44 69 76 22 29 8c 3d a4  |WS("LongDiv").=.|
0001b8a0  4c 6f 6e 67 44 69 76 67  6f 5f 0d 9d c6 06 3d b9  |LongDivgo_....=.|
0001b8b0  0d 9d da 2b dd a4 72 65  6d 5f 3a e7 72 65 6d 6d  |...+..rem_:.remm|
0001b8c0  79 5f 3d 31 8c f2 73 49  28 43 68 6f 69 63 65 5f  |y_=1..sI(Choice_|
0001b8d0  25 2c 22 72 65 6d 22 29  3a 3d a3 0d 9d e4 52 72  |%,"rem"):=....Rr|
0001b8e0  65 6d 6d 79 5f 3d 31 3a  f2 73 49 28 43 68 6f 69  |emmy_=1:.sI(Choi|
0001b8f0  63 65 5f 25 2c 22 72 65  6d 22 29 3a f2 75 73 49  |ce_%,"rem"):.usI|
0001b900  28 43 68 6f 69 63 65 5f  25 2c 22 64 6f 74 22 29  |(Choice_%,"dot")|
0001b910  3a f2 75 73 49 28 43 68  6f 69 63 65 5f 25 2c 22  |:.usI(Choice_%,"|
0001b920  66 72 61 63 22 29 3a 3d  a4 72 65 64 6f 0d 9e 16  |frac"):=.redo...|
0001b930  2b dd a4 64 6f 74 5f 3a  e7 72 65 6d 6d 79 5f 3d  |+..dot_:.remmy_=|
0001b940  32 8c f2 73 49 28 43 68  6f 69 63 65 5f 25 2c 22  |2..sI(Choice_%,"|
0001b950  64 6f 74 22 29 3a 3d a3  0d 9e 20 52 72 65 6d 6d  |dot"):=... Rremm|
0001b960  79 5f 3d 32 3a f2 73 49  28 43 68 6f 69 63 65 5f  |y_=2:.sI(Choice_|
0001b970  25 2c 22 64 6f 74 22 29  3a f2 75 73 49 28 43 68  |%,"dot"):.usI(Ch|
0001b980  6f 69 63 65 5f 25 2c 22  72 65 6d 22 29 3a f2 75  |oice_%,"rem"):.u|
0001b990  73 49 28 43 68 6f 69 63  65 5f 25 2c 22 66 72 61  |sI(Choice_%,"fra|
0001b9a0  63 22 29 3a 3d a4 72 65  64 6f 0d 9e 48 2d dd a4  |c"):=.redo..H-..|
0001b9b0  66 72 61 63 5f 3a e7 72  65 6d 6d 79 5f 3d 33 8c  |frac_:.remmy_=3.|
0001b9c0  f2 73 49 28 43 68 6f 69  63 65 5f 25 2c 22 66 72  |.sI(Choice_%,"fr|
0001b9d0  61 63 22 29 3a 3d a3 0d  9e 52 52 72 65 6d 6d 79  |ac"):=...RRremmy|
0001b9e0  5f 3d 33 3a f2 73 49 28  43 68 6f 69 63 65 5f 25  |_=3:.sI(Choice_%|
0001b9f0  2c 22 66 72 61 63 22 29  3a f2 75 73 49 28 43 68  |,"frac"):.usI(Ch|
0001ba00  6f 69 63 65 5f 25 2c 22  72 65 6d 22 29 3a f2 75  |oice_%,"rem"):.u|
0001ba10  73 49 28 43 68 6f 69 63  65 5f 25 2c 22 64 6f 74  |sI(Choice_%,"dot|
0001ba20  22 29 3a 3d a4 72 65 64  6f 0d 9e 7a 2e dd a4 44  |"):=.redo..z...D|
0001ba30  69 72 65 63 74 5f 3a e7  64 69 72 65 63 74 5f 25  |irect_:.direct_%|
0001ba40  3d b9 64 69 72 65 63 74  5f 25 3d a3 8b 64 69 72  |=.direct_%=..dir|
0001ba50  65 63 74 5f 25 3d b9 0d  9e 8e 06 3d b9 0d 9e a2  |ect_%=.....=....|
0001ba60  7e dd f2 64 6f 5f 3a e7  a4 66 57 53 28 22 41 64  |~..do_:..fWS("Ad|
0001ba70  64 22 29 84 a4 66 57 53  28 22 53 75 62 74 72 61  |d")..fWS("Subtra|
0001ba80  63 74 22 29 84 a4 66 57  53 28 22 4d 75 6c 74 69  |ct")..fWS("Multi|
0001ba90  70 6c 79 22 29 84 a4 66  57 53 28 22 4c 6f 6e 67  |ply")..fWS("Long|
0001baa0  4d 75 6c 22 29 84 a4 66  57 53 28 22 4d 61 64 64  |Mul")..fWS("Madd|
0001bab0  22 29 84 a4 66 57 53 28  22 4d 65 74 72 69 63 53  |")..fWS("MetricS|
0001bac0  75 62 22 29 84 a4 66 57  53 28 22 4d 65 74 72 69  |ub")..fWS("Metri|
0001bad0  63 4d 75 6c 22 29 f2 64  6f 6f 5f 0d 9e ac 05 e1  |cMul").doo_.....|
0001bae0  0d 9e b6 4f dd f2 64 6f  6f 5f 3a e7 a4 67 57 78  |...O..doo_:..gWx|
0001baf0  28 22 47 72 61 66 49 74  22 29 80 73 74 61 72 74  |("GrafIt").start|
0001bb00  65 64 5f 25 8c 6e 5f 3d  a4 77 69 6e 64 6f 77 28  |ed_%.n_=.window(|
0001bb10  22 47 72 61 66 49 74 22  29 3a 6e 5f 3d a4 77 69  |"GrafIt"):n_=.wi|
0001bb20  6e 64 6f 77 28 22 43 68  6f 69 63 65 73 22 29 0d  |ndow("Choices").|
0001bb30  9e c0 05 e1 0d 9e d4 33  dd a4 73 69 67 6e 6c 65  |.......3..signle|
0001bb40  66 74 5f 3a e7 ac 53 69  67 6e 5f 25 f2 73 49 28  |ft_:..Sign_%.sI(|
0001bb50  43 68 6f 69 63 65 5f 25  2c 22 73 69 67 6e 6c 65  |Choice_%,"signle|
0001bb60  66 74 22 29 3a 3d b9 0d  9e de 48 53 69 67 6e 5f  |ft"):=....HSign_|
0001bb70  25 3d a3 3a f2 73 49 28  43 68 6f 69 63 65 5f 25  |%=.:.sI(Choice_%|
0001bb80  2c 22 73 69 67 6e 6c 65  66 74 22 29 3a f2 75 73  |,"signleft"):.us|
0001bb90  49 28 43 68 6f 69 63 65  5f 25 2c 22 73 69 67 6e  |I(Choice_%,"sign|
0001bba0  72 69 67 68 74 22 29 3a  f2 64 6f 5f 3a 3d b9 0d  |right"):.do_:=..|
0001bbb0  9e e8 34 dd a4 73 69 67  6e 72 69 67 68 74 5f 3a  |..4..signright_:|
0001bbc0  e7 53 69 67 6e 5f 25 f2  73 49 28 43 68 6f 69 63  |.Sign_%.sI(Choic|
0001bbd0  65 5f 25 2c 22 73 69 67  6e 72 69 67 68 74 22 29  |e_%,"signright")|
0001bbe0  3a 3d b9 0d 9e f2 48 53  69 67 6e 5f 25 3d b9 3a  |:=....HSign_%=.:|
0001bbf0  f2 73 49 28 43 68 6f 69  63 65 5f 25 2c 22 73 69  |.sI(Choice_%,"si|
0001bc00  67 6e 72 69 67 68 74 22  29 3a f2 75 73 49 28 43  |gnright"):.usI(C|
0001bc10  68 6f 69 63 65 5f 25 2c  22 73 69 67 6e 6c 65 66  |hoice_%,"signlef|
0001bc20  74 22 29 3a f2 64 6f 5f  3a 3d b9 0d 9f 10 49 dd  |t"):.do_:=....I.|
0001bc30  a4 53 74 61 72 74 59 5f  3a 53 74 61 72 74 59 24  |.StartY_:StartY$|
0001bc40  3d 24 21 53 74 61 72 74  59 5f 25 3a 53 74 61 72  |=$!StartY_%:Star|
0001bc50  74 59 3d bb 28 53 74 61  72 74 59 24 29 3a e7 a4  |tY=.(StartY$):..|
0001bc60  6d 6f 75 73 65 3d 34 80  53 74 61 72 74 59 3c 31  |mouse=4.StartY<1|
0001bc70  33 30 30 8c 0d 9f 2e 3f  53 74 61 72 74 59 3d 53  |300....?StartY=S|
0001bc80  74 61 72 74 59 2b 31 3a  24 21 53 74 61 72 74 59  |tartY+1:$!StartY|
0001bc90  5f 25 3d c3 28 53 74 61  72 74 59 29 3a f2 72 49  |_%=.(StartY):.rI|
0001bca0  28 43 68 6f 69 63 65 5f  25 2c 22 53 74 61 72 74  |(Choice_%,"Start|
0001bcb0  59 22 29 0d 9f 4c 1c cd  3a e7 a4 6d 6f 75 73 65  |Y")..L..:..mouse|
0001bcc0  3d 31 80 53 74 61 72 74  59 3e 31 31 31 30 8c 0d  |=1.StartY>1110..|
0001bcd0  9f 60 3f 53 74 61 72 74  59 3d 53 74 61 72 74 59  |.`?StartY=StartY|
0001bce0  2d 31 3a 24 21 53 74 61  72 74 59 5f 25 3d c3 28  |-1:$!StartY_%=.(|
0001bcf0  53 74 61 72 74 59 29 3a  f2 72 49 28 43 68 6f 69  |StartY):.rI(Choi|
0001bd00  63 65 5f 25 2c 22 53 74  61 72 74 59 22 29 0d 9f  |ce_%,"StartY")..|
0001bd10  7e 08 cd 3a 3d b9 0d 9f  9c 45 dd a4 53 74 61 72  |~..:=....E..Star|
0001bd20  74 58 5f 3a 53 74 61 72  74 58 24 3d 24 21 53 74  |tX_:StartX$=$!St|
0001bd30  61 72 74 58 5f 25 3a 72  69 74 65 5f 3d bb 28 53  |artX_%:rite_=.(S|
0001bd40  74 61 72 74 58 24 29 3a  e7 a4 6d 6f 75 73 65 3d  |tartX$):..mouse=|
0001bd50  34 80 72 69 74 65 5f 3c  31 36 8c 0d 9f ba 3c 72  |4.rite_<16....<r|
0001bd60  69 74 65 5f 3d 72 69 74  65 5f 2b 31 3a 24 21 53  |ite_=rite_+1:$!S|
0001bd70  74 61 72 74 58 5f 25 3d  c3 28 72 69 74 65 5f 29  |tartX_%=.(rite_)|
0001bd80  3a f2 72 49 28 43 68 6f  69 63 65 5f 25 2c 22 53  |:.rI(Choice_%,"S|
0001bd90  74 61 72 74 58 22 29 0d  9f d8 18 cd 3a e7 a4 6d  |tartX").....:..m|
0001bda0  6f 75 73 65 3d 31 80 72  69 74 65 5f 3e 30 8c 0d  |ouse=1.rite_>0..|
0001bdb0  9f ec 3c 72 69 74 65 5f  3d 72 69 74 65 5f 2d 31  |..<rite_=rite_-1|
0001bdc0  3a 24 21 53 74 61 72 74  58 5f 25 3d c3 28 72 69  |:$!StartX_%=.(ri|
0001bdd0  74 65 5f 29 3a f2 72 49  28 43 68 6f 69 63 65 5f  |te_):.rI(Choice_|
0001bde0  25 2c 22 53 74 61 72 74  58 22 29 0d a0 0a 08 cd  |%,"StartX").....|
0001bdf0  3a 3d b9 0d a0 28 45 dd  a4 53 61 76 65 43 68 6f  |:=...(E..SaveCho|
0001be00  69 63 65 5f 3a ea 85 3a  ee 85 ea 3a f2 6d 6f 61  |ice_:..:...:.moa|
0001be10  6e 28 f6 24 29 3a f2 75  73 49 28 43 68 6f 69 63  |n(.$):.usI(Choic|
0001be20  65 5f 25 2c 22 53 61 76  65 43 68 6f 69 63 65 22  |e_%,"SaveChoice"|
0001be30  29 3a ee 85 87 3a 3d a3  0d a0 46 de 44 65 66 53  |):...:=...F.DefS|
0001be40  74 61 72 74 58 3d 72 69  74 65 5f 3a 44 65 66 53  |tartX=rite_:DefS|
0001be50  74 61 72 74 59 3d 53 74  61 72 74 59 3a 73 61 76  |tartY=StartY:sav|
0001be60  65 5f 25 3d ae 22 3c 4d  61 74 68 73 53 79 73 24  |e_%=."<MathsSys$|
0001be70  50 61 74 68 3e 4e 75 6d  62 65 72 73 22 3a f2 47  |Path>Numbers":.G|
0001be80  65 74 54 69 74 6c 65 73  3a f1 23 73 61 76 65 5f  |etTitles:.#save_|
0001be90  25 2c 72 69 74 65 5f 2c  53 74 61 72 74 59 2c 4d  |%,rite_,StartY,M|
0001bea0  61 69 6e 74 69 74 6c 65  5f 24 2c 54 69 74 6c 65  |aintitle_$,Title|
0001beb0  5f 24 2c 43 68 6f 69 63  65 73 5f 25 2c 53 69 67  |_$,Choices_%,Sig|
0001bec0  6e 5f 25 2c 53 65 63 41  6e 73 5f 25 2c 4c 64 61  |n_%,SecAns_%,Lda|
0001bed0  5f 25 2c 4c 6d 61 5f 25  2c 64 69 72 65 63 74 5f  |_%,Lma_%,direct_|
0001bee0  25 2c 72 65 6d 6d 79 5f  2c 70 77 6f 6e 5f 3a d9  |%,remmy_,pwon_:.|
0001bef0  23 73 61 76 65 5f 25 3a  f2 75 73 49 28 43 68 6f  |#save_%:.usI(Cho|
0001bf00  69 63 65 5f 25 2c 22 53  61 76 65 43 68 6f 69 63  |ice_%,"SaveChoic|
0001bf10  65 22 29 3a 3d b9 0d a0  8c 2b dd a4 45 78 69 74  |e"):=....+..Exit|
0001bf20  5f 3a f2 63 6c 6f 73 65  57 28 43 68 6f 69 63 65  |_:.closeW(Choice|
0001bf30  5f 25 29 3a c8 97 b8 36  30 30 2c 35 30 30 3a 3d  |_%):...600,500:=|
0001bf40  b9 0d a0 a0 5d dd a4 53  65 63 41 6e 73 5f 3a e7  |....]..SecAns_:.|
0001bf50  53 65 63 41 6e 73 5f 25  3d b9 53 65 63 41 6e 73  |SecAns_%=.SecAns|
0001bf60  5f 25 3d a3 3a f2 75 73  49 28 43 68 6f 69 63 65  |_%=.:.usI(Choice|
0001bf70  5f 25 2c 22 53 65 63 41  6e 73 22 29 8b 53 65 63  |_%,"SecAns").Sec|
0001bf80  41 6e 73 5f 25 3d b9 3a  f2 73 49 28 43 68 6f 69  |Ans_%=.:.sI(Choi|
0001bf90  63 65 5f 25 2c 22 53 65  63 41 6e 73 22 29 0d a0  |ce_%,"SecAns")..|
0001bfa0  aa 0b f2 64 6f 5f 3a 3d  b9 0d a0 be 4b dd a4 4c  |...do_:=....K..L|
0001bfb0  64 61 5f 3a e7 4c 64 61  5f 25 3d b9 4c 64 61 5f  |da_:.Lda_%=.Lda_|
0001bfc0  25 3d a3 3a f2 75 73 49  28 43 68 6f 69 63 65 5f  |%=.:.usI(Choice_|
0001bfd0  25 2c 22 4c 64 61 22 29  8b 4c 64 61 5f 25 3d b9  |%,"Lda").Lda_%=.|
0001bfe0  3a f2 73 49 28 43 68 6f  69 63 65 5f 25 2c 22 4c  |:.sI(Choice_%,"L|
0001bff0  64 61 22 29 0d a0 d2 06  3d b9 0d a0 e6 4b dd a4  |da")....=....K..|
0001c000  4c 6d 61 5f 3a e7 4c 6d  61 5f 25 3d b9 4c 6d 61  |Lma_:.Lma_%=.Lma|
0001c010  5f 25 3d a3 3a f2 75 73  49 28 43 68 6f 69 63 65  |_%=.:.usI(Choice|
0001c020  5f 25 2c 22 4c 6d 61 22  29 8b 4c 6d 61 5f 25 3d  |_%,"Lma").Lma_%=|
0001c030  b9 3a f2 73 49 28 43 68  6f 69 63 65 5f 25 2c 22  |.:.sI(Choice_%,"|
0001c040  4c 6d 61 22 29 0d a0 fa  54 e7 a4 67 57 78 28 22  |Lma")...T..gWx("|
0001c050  47 72 61 66 49 74 22 29  80 a4 66 57 53 28 22 4c  |GrafIt")..fWS("L|
0001c060  6f 6e 67 4d 75 6c 22 29  8c 6e 5f 3d a4 77 69 6e  |ongMul").n_=.win|
0001c070  64 6f 77 28 22 47 72 61  66 49 74 22 29 3a 6e 5f  |dow("GrafIt"):n_|
0001c080  3d a4 77 69 6e 64 6f 77  28 22 43 68 6f 69 63 65  |=.window("Choice|
0001c090  73 22 29 3a 3d b9 8b 3d  b9 0d a1 04 04 0d a1 0e  |s"):=..=........|
0001c0a0  34 dd a4 42 6f 74 68 73  75 6d 73 5f 3a 43 68 6f  |4..Bothsums_:Cho|
0001c0b0  69 63 65 73 5f 25 3d 31  3a f2 74 4d 49 78 28 22  |ices_%=1:.tMIx("|
0001c0c0  43 72 65 43 68 6f 69 63  65 73 22 2c 30 29 3a 3d  |CreChoices",0):=|
0001c0d0  b9 0d a1 18 33 dd a4 42  6f 74 68 61 6e 73 5f 3a  |....3..Bothans_:|
0001c0e0  43 68 6f 69 63 65 73 5f  25 3d 32 3a f2 74 4d 49  |Choices_%=2:.tMI|
0001c0f0  78 28 22 43 72 65 43 68  6f 69 63 65 73 22 2c 31  |x("CreChoices",1|
0001c100  29 3a 3d b9 0d a1 22 34  dd a4 48 61 6c 66 68 61  |):=..."4..Halfha|
0001c110  6c 66 5f 3a 43 68 6f 69  63 65 73 5f 25 3d 33 3a  |lf_:Choices_%=3:|
0001c120  f2 74 4d 49 78 28 22 43  72 65 43 68 6f 69 63 65  |.tMIx("CreChoice|
0001c130  73 22 2c 32 29 3a 3d b9  0d ff                    |s",2):=...|
0001c13a