Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199407.adf » 9407 » 10_10Frnch/!10_10Fren/25-01-1994/SixGames/Common

10_10Frnch/!10_10Fren/25-01-1994/SixGames/Common

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199407.adf » 9407
Filename: 10_10Frnch/!10_10Fren/25-01-1994/SixGames/Common
Read OK:
File size: 5C33 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM ><Disc1$Dir>.SixGames.Common
   20DEFPROChighscore
   30SYS"ABC_Blank",15
   40SYS"ABC_Colour",15
   50MOUSEOFF
   60SYS"ABC_UnpackSprite","mouse",j%,512,74
   70IFfor%PROCforeignhighELSEPROCenglishhigh
   80SYS"ABC_Palette"
   90REPEAT
  100UNTILFNleave
  110VDU7
  120ENDPROC
  130DEFPROCforeignhigh
  140t$="RESULTATS ELEVES"
  150tax%=9
  160tay%=2
  170syy%=13
  180VDU5
  190GCOL0,13
  200MOVEtax%*g%+48,tay%*g%+syy%*f%+48
  210PLOT0,LEN(t$)*g%,0
  220PLOT85,tax%*g%-12,tay%*g%+syy%*f%-g%
  230PLOT81,128+LEN(t$)*g%,0
  240GCOL0,0
  250MOVEtax%*g%-16,tay%*g%+syy%*f%-g%
  260PLOT1,f%,f%
  270PLOT1,LEN(t$)*g%+4,0
  280PLOT1,f%,-f%
  290MOVEtax%*g%+48,tay%*g%+syy%*f%+24
  300PRINTt$
  310FORJ%=1TO10
  320K%=876-(tay%*g%+J%*f%)
  330L%=K%+44
  340IFattend$=""THEN
  350GCOL0,8
  360ELSE
  370IFINSTR(high$(gme%,J%),attend$,27)>0GCOL0,11ELSEGCOL0,8
  380ENDIF
  390IFnuw%=J%:GCOL0,14
  400RECTANGLEFILL128,K%,896,f%
  410GCOL0,11
  420RECTANGLEFILL892,K%,128,f%
  430GCOL0,0
  440RECTANGLE128,K%,896,f%
  450RECTANGLE892,K%,130,f%
  460MOVEtax%*32-144,L%
  470PRINTSTR$(J%)
  480MOVEtax%*32-96,L%
  490a$=high$(gme%,J%)
  500b$=MID$(a$,4,3)
  510a$=LEFT$(a$,3)+"     "+MID$(a$,7)
  520CASEb$OF
  530WHEN"Jan":b$="Janv"
  540WHEN"Feb":b$="F�v"
  550WHEN"Mar":b$="Mars"
  560WHEN"Apr":b$="Avr"
  570WHEN"May":b$="Mai"
  580WHEN"Jun":b$="Juin"
  590WHEN"Jul":b$="Juill"
  600WHEN"Aug":b$="Ao�t"
  610WHEN"Sep":b$="Sept"
  620WHEN"Oct":b$="Oct"
  630WHEN"Nov":b$="Nov"
  640WHEN"Dec":b$="Dec"
  650ENDCASE
  660K%=INSTR(a$,"Grade")
  670a$=LEFT$(a$,K%-1)+"         "+MID$(a$,K%+5)
  680c$=FNforeignlevel(TRUE)
  690MID$(a$,K%)=c$
  700MID$(a$,4)=b$
  710IFNOTver%THEN
  720MID$(a$,K%+LEN(c$)+1)=MID$(a$,K%+10,1)
  730MID$(a$,K%+10)=" "
  740ENDIF
  750IFINSTR(a$,"Player")>0:MID$(a$,INSTR(a$,"Player"))="Joueur"
  760PRINTa$
  770MOVEtax%*32+642,L%
  780PRINTscores%(gme%,J%)
  790NEXT
  800VDU4
  810OFF
  820ENDPROC
  830DEFPROCenglishhigh
  840t$="HIGH SCORES"
  850tax%=13
  860tay%=2
  870syy%=13
  880VDU5
  890GCOL0,13
  900MOVEtax%*g%+112,tay%*g%+syy%*f%+48
  910PLOT0,LEN(t$)*g%,0
  920PLOT85,tax%*g%+52,tay%*g%+syy%*f%-g%
  930PLOT81,128+LEN(t$)*g%,0
  940GCOL0,0
  950MOVEtax%*g%+48,tay%*g%+syy%*f%-g%
  960PLOT1,f%,f%
  970PLOT1,LEN(t$)*g%+4,0
  980PLOT1,f%,-f%
  990MOVEtax%*g%+112,tay%*g%+syy%*f%+24
 1000PRINTt$
 1010FORJ%=1TO10
 1020K%=876-(tay%*g%+J%*f%)
 1030L%=K%+44
 1040IFattend$=""THEN
 1050GCOL0,8
 1060ELSE
 1070IFINSTR(high$(gme%,J%),attend$,27)>0GCOL0,11ELSEGCOL0,8
 1080ENDIF
 1090IFnuw%=J%:GCOL0,14
 1100RECTANGLEFILL256,K%,768,f%
 1110GCOL0,11
 1120RECTANGLEFILL892,K%,128,f%
 1130GCOL0,0
 1140RECTANGLE256,K%,768,f%
 1150RECTANGLE892,K%,130,f%
 1160MOVEtax%*32-144,L%
 1170PRINTSTR$(J%)
 1180MOVEtax%*32-96,L%
 1190a$=high$(gme%,J%)
 1200IFNOTver%:MID$(a$,INSTR(a$,"Grade"))=typ$
 1210PRINTa$
 1220MOVEtax%*32+514,L%
 1230PRINTscores%(gme%,J%)
 1240NEXT
 1250VDU4
 1260OFF
 1270ENDPROC
 1280DEFPROCsortscores
 1290a$=high$(gme%,11)
 1300IFa$>""THEN
 1310REPEAT
 1320srt%=TRUE
 1330FORJ%=1TO10
 1340IFscores%(gme%,J%)<scores%(gme%,J%+1)THEN
 1350tab%=TRUE
 1360srt%=FALSE
 1370SWAPscores%(gme%,J%),scores%(gme%,J%+1)
 1380SWAPhigh$(gme%,J%),high$(gme%,J%+1)
 1390ENDIF
 1400NEXT
 1410UNTILsrt%
 1420ENDIF
 1430nuw%=0
 1440FORJ%=1TO10
 1450IFhigh$(gme%,J%)=a$:nuw%=J%
 1460NEXT
 1470ENDPROC
 1480DEFPROCpause
 1490IFNOTINKEY-56:ENDPROC
 1500IFfor%PROCsame("pr�t")ELSEPROCsame("ready")
 1510REPEAT
 1520UNTILNOTINKEY-56
 1530ENDPROC
 1540DEFPROCerror
 1550VDU3,7
 1560*CLOSE
 1570SYS"ABC_Colour",15
 1580MOUSEOFF
 1590PROCmess("ERROR - INSERT DISC (NOT WRITE PROTECTED) INTO DRIVE AND PRESS RETURN",11)
 1600SYS"ABC_Palette"
 1610REPEAT
 1620UNTILFNleave
 1630PROCsavenewresults
 1640RUN
 1650ENDPROC
 1660DEFPROCdelay(del%)
 1670REPEAT
 1680WAIT
 1690del%-=1
 1700UNTILdel%<0
 1710ENDPROC
 1720DEFPROCtitle(z$,Y%,C%)
 1730IFfor%x$="Dix sur Dix Syst�mes Educatifs"ELSEx$="10 out of 10 Educational Systems"
 1740xsc%=320-LEN(x$)*8
 1750SYS"ABC_PryntString",x$,xsc%,Y%,1,7
 1760SYS"ABC_PryntString",x$,xsc%-2,Y%+1,1,C%
 1770Y%-=24
 1780IFfor%y$="Pr�sentent"ELSEy$="Presents"
 1790xsc%=320-LEN(y$)*8
 1800SYS"ABC_PryntString",y$,xsc%,Y%,1,7
 1810SYS"ABC_PryntString",y$,xsc%-2,Y%+1,1,C%
 1820Y%-=24
 1830xsc%=320-LEN(z$)*8
 1840SYS"ABC_PryntString",z$,xsc%,Y%,1,7
 1850SYS"ABC_PryntString",z$,xsc%-2,Y%+1,1,C%
 1860ENDPROC
 1870DEFPROCmess(t$,col%)
 1880GCOL0,col%
 1890VDU5
 1900WAIT
 1910RECTANGLEFILL0,0,1278,64
 1920GCOL0,0
 1930RECTANGLE0,0,1278,64
 1940MOVE640-LEN(t$)*8,44
 1950PRINTt$
 1960VDU4
 1970OFF
 1980ENDPROC
 1990DEFPROCpoint(a$,mos%)
 2000LOCALwre%,par%,dat%
 2010DIMwre%1088,par%20,dat%256
 2020h%=OPENIN(f$+a$)
 2030FORJ%=0TO32
 2040FORK%=0TO32
 2050wre%?(K%*32+J%)=BGET#h%
 2060NEXT
 2070NEXT
 2080CLOSE#h%
 2090!par%=&20080200
 2100par%?1=mos%
 2110par%!4=0
 2120par%!6=dat%
 2130mma%=dat%
 2140FORJ%=32TO1STEPTRUE
 2150FORK%=0TO7
 2160FORL%=3TO0STEPTRUE
 2170val%=wre%?(J%*32+K%*4+L%)
 2180IFval%=&FF:par%?4=K%*4+L%:par%?5=31-J%:val%=0
 2190?mma%=?mma%<<2
 2200?mma%+=val%
 2210NEXT
 2220mma%+=1
 2230NEXT
 2240NEXT
 2250SYS"OS_Word",21,par%
 2260ENDPROC
 2270DEFPROCwings(l$,x%,y%)
 2280IFfor%SYS"ABC_UnpackSprite","wingsfor",j%,x%,y%ELSESYS"ABC_UnpackSprite","wings",j%,x%,y%
 2290VDU5
 2300GCOL0,11
 2310MOVE(x%*2+298)-LEN(l$)*8,y%*4-40
 2320PRINTl$
 2330VDU4
 2340OFF
 2350ENDPROC
 2360DEFPROCnoise(s$,chn%,vol%,pit%,dur%)
 2370LOCALERROR
 2380ONERRORLOCAL:ENDPROC
 2390VOICEchn%,s$
 2400SOUNDchn%,vol%,pit%,dur%
 2410ENDPROC
 2420DEFPROCinput(tot%,tax%,tay%)
 2430*FX21 0
 2440cnt%=0
 2450i$=""
 2460REPEAT
 2470REPEAT
 2480REPEAT
 2490k%=INKEY(1)
 2500UNTILk%=13ORk%>31AND k%<128
 2510IFk%=127AND cnt%>0THEN
 2520cnt%-=1
 2530i$=LEFT$(i$,cnt%)
 2540PRINTTAB(tax%,tay%)i$;SPC(1)
 2550ENDIF
 2560UNTILk%<>127
 2570IFk%<>13AND cnt%<>tot%THEN
 2580IFcnt%=0THEN
 2590IFCHR$(k%)>="a"ANDCHR$(k%)<="z"i$=CHR$(k%-32)ELSEi$=CHR$(k%)
 2600ELSE
 2610IFCHR$(k%)>="A"ANDCHR$(k%)<="Z"i$+=CHR$(k%+32)ELSEi$+=CHR$(k%)
 2620ENDIF
 2630PRINTTAB(tax%,tay%)i$;SPC(1)
 2640cnt%+=1
 2650ENDIF
 2660IFk%<>13AND cnt%=tot%:VDU7
 2670UNTILk%=13
 2680ENDPROC
 2690DEFPROCinfocard(t$,tax%,tay%,sdx%,syy%)
 2700VDU5
 2710GCOL0,8
 2720RECTANGLEFILLtax%*g%,tay%*g%,sdx%*160+160,syy%*f%
 2730GCOL0,3
 2740RECTANGLEFILLtax%*g%+320,tay%*g%,sdx%*160-162,syy%*f%
 2750GCOL0,0
 2760IFsdx%*160+160>=1280 srx%=1278ELSEsrx%=sdx%*160+160
 2770RECTANGLEtax%*g%,tay%*g%,srx%,syy%*f%
 2780GCOL0,13
 2790MOVEtax%*g%+f%,tay%*g%+syy%*f%+f%
 2800PLOT0,LEN(t$)*g%,0
 2810PLOT85,tax%*g%,tay%*g%+syy%*f%
 2820PLOT81,128+LEN(t$)*g%,0
 2830GCOL0,0
 2840MOVEtax%*g%,tay%*g%+syy%*f%
 2850PLOT1,f%,f%
 2860PLOT1,LEN(t$)*g%,0
 2870PLOT1,f%,-f%
 2880MOVEtax%*g%+f%,tay%*g%+syy%*f%+44
 2890PRINTt$
 2900FORJ%=1TOsdx%
 2910MOVEtax%*g%+J%*160+160,tay%*g%
 2920PLOT1,0,syy%*f%
 2930NEXT
 2940FORJ%=1TOsyy%
 2950MOVEtax%*g%,tay%*g%+J%*f%
 2960PLOT1,sdx%*160+160,0
 2970NEXT
 2980VDU4
 2990OFF
 3000ENDPROC
 3010DEFPROCcent(t$,tay%)
 3020PRINTTAB(40-LEN(t$)DIV2,tay%)t$;
 3030ENDPROC
 3040DEFPROCsavenewresults
 3050IFattend$="":ENDPROC
 3060h%=OPENOUT(f$+"Achieve.Achieve"+STR$(cla%)+"."+attend$)
 3070FORL%=0TO4
 3080FORK%=1TO6
 3090FORJ%=1TO6
 3100PRINT#h%,att%(J%,K%,L%)
 3110NEXT
 3120NEXT
 3130NEXT
 3140CLOSE#h%
 3150h%=OPENOUT(f$+"Tables")
 3160FORK%=1TO6
 3170FORJ%=1TO10
 3180PRINT#h%,high$(K%,J%)
 3190PRINT#h%,scores%(K%,J%)
 3200NEXT
 3210NEXT
 3220CLOSE#h%
 3230ENDPROC
 3240DEFPROCmouse1
 3250MOUSECOLOUR1,255,255,0
 3260MOUSECOLOUR2,255,0,0
 3270MOUSECOLOUR3,192,192,192
 3280MOUSEON1
 3290ENDPROC
 3300DEFPROCsqr(wch%,col%)
 3310GCOL0,col%
 3320RECTANGLEFILL706,wch%*f%+164,156,58
 3330ENDPROC
 3340DEFPROCinsert(tay%,v$)
 3350MOVE728,tay%*32-20
 3360PRINTv$
 3370ENDPROC
 3380DEFPROCinformation
 3390MOUSERECTANGLE798,356,160,384
 3400MOUSETO858,356
 3410SYS"ABC_Blank",15
 3420SYS"ABC_Colour",15
 3430SYS"ABC_UnpackSprite","mouse",j%,512,182
 3440PROCinfocard("INFORMATION",20,22,3,7)
 3450PROCfillinformation(13,15)
 3460p$="X"
 3470cly%=0
 3480inz%=68
 3490oyy%=1
 3500SYS"ABC_Palette"
 3510PROCzeromouse
 3520REPEAT
 3530MOUSEmox%,moy%,but%
 3540IFmoy%>740 cly%=0ELSEcly%=(ABS(moy%-740)DIVf%)+1
 3550IFcly%>6:cly%=6
 3560IFcly%<>oyy%THEN
 3570VDU5
 3580GCOL0,8
 3590WAIT
 3600RECTANGLEFILL352,748-oyy%*64,272,32
 3610GCOL0,0
 3620MOVE352,782-oyy%*64
 3630PRINTLEFT$(info$(gme%,oyy%),16)
 3640oyy%=cly%
 3650VDU4
 3660OFF
 3670inz%=68
 3680tex%=LEN(info$(gme%,oyy%))
 3690p$=info$(gme%,oyy%)
 3700ENDIF
 3710IFtex%>16THEN
 3720par%=cly%*&1400
 3730CALLCarousel,par%
 3740IFinz%MOD4=0:PROCchar
 3750inz%+=1
 3760ENDIF
 3770UNTILFNleave
 3780VDU7
 3790ENDPROC
 3800DEFPROCchar
 3810IF(inz%>>2)>tex%+8:inz%=4
 3820IF(inz%>>2)>tex%:ENDPROC
 3830ysc%=(784-oyy%*64)>>2
 3840SYS"ABC_PryntString",MID$(p$,inz%>>2,1),304,ysc%,0,0
 3850ENDPROC
 3860DEFPROCloaddetails
 3870DIMatt%(6,6,4),info$(6,6),dat$(23),scores%(6,11),scr%(4),high$(6,11),name$(4),rat$(1,11),ncl$(6),mnu$(9),asm%256
 3880ncl$(1)="1"
 3890ncl$(2)="2/3"
 3900ncl$(3)="3/4"
 3910ncl$(4)="5/6"
 3920ncl$(5)="6/7"
 3930ncl$(6)="8/9/10"
 3940rat$(0,1)="pathetic"
 3950rat$(0,2)="poor"
 3960rat$(0,3)="could do better"
 3970rat$(0,4)="keep trying"
 3980rat$(0,5)="fair"
 3990rat$(0,6)="pretty clever"
 4000rat$(0,7)="not too bad"
 4010rat$(0,8)="nearly there"
 4020rat$(0,9)="good work"
 4030rat$(0,10)="genius"
 4040rat$(1,1)="lamentable"
 4050rat$(1,2)="faible"
 4060rat$(1,3)="pourrait mieux faire"
 4070rat$(1,4)="ne vous d�couragez pas"
 4080rat$(1,5)="assez bien"
 4090rat$(1,6)="super"
 4100rat$(1,7)="pas trop mal"
 4110rat$(1,8)="encore un effort"
 4120rat$(1,9)="tr�s bien"
 4130rat$(1,10)="un g�nie"
 4140rat$(0,0)=rat$(0,1)
 4150rat$(1,0)=rat$(1,1)
 4160rat$(0,11)=rat$(0,10)
 4170rat$(1,11)=rat$(1,10)
 4180SYS"ABC_VideoAddress"TOvid%
 4190FORA%=0TO2STEP2
 4200P%=asm%
 4210[OPTA%
 4220.Carousel
 4230MOV R0,#19:SWI "XOS_Byte":LDR R12,[R9]:LDR R0,[R12]:LDR R1,vid:ADD R0,R1,R0:MOV R2,#&44
 4240.rectangle
 4250LDRB R1,[R0,#&1]:STRB R1,[R0]:LDRB R1,[R0,#&141]:STRB R1,[R0,#&140]
 4260LDRB R1,[R0,#&281]:STRB R1,[R0,#&280]:LDRB R1,[R0,#&3C1]:STRB R1,[R0,#&3C0]
 4270LDRB R1,[R0,#&501]:STRB R1,[R0,#&500]:LDRB R1,[R0,#&641]:STRB R1,[R0,#&640]
 4280LDRB R1,[R0,#&781]:STRB R1,[R0,#&780]:LDRB R1,[R0,#&8C1]:STRB R1,[R0,#&8C0]
 4290LDRB R1,[R0,#&A01]:STRB R1,[R0,#&A00]
 4300ADD R0,R0,#&1:SUBS R2,R2,#&1:BNE rectangle:MOV R15,R14
 4310.MenuCarousel
 4320MOV R0,#19:SWI "XOS_Byte":LDR R12,[R9]:LDR R0,[R12]:LDR R1,men:ADD R0,R1,R0:MOV R2,#&48
 4330BAL rectangle
 4340.vid EQUD vid%+&4B58
 4350.men EQUD vid%+&4A24
 4360]
 4370NEXT
 4380box%=0
 4390e%=160
 4400f%=64
 4410g%=16
 4420fnc%=TRUE
 4430ply%=1
 4440rpy%=FALSE
 4450san%=0
 4460snd%=TRUE
 4470sub%=0
 4480sun%=0
 4490h%=OPENIN(f$+"Configure")
 4500INPUT#h%,rat%,nig%,sds%,ver%,grd%,cla%,typ$,hed%,fut%,pap%,pix%,frn%,attend$,cod%
 4510CLOSE#h%
 4520grd%=1
 4530h%=OPENIN(f$+"Tables")
 4540FORK%=1TO6
 4550FORJ%=1TO10
 4560INPUT#h%,high$(K%,J%),scores%(K%,J%)
 4570NEXT
 4580NEXT
 4590CLOSE#h%
 4600h%=OPENIN("ram:FactFile")
 4610FORJ%=1TO6
 4620FORK%=1TO6
 4630INPUT#h%,info$(J%,K%)
 4640IFnig%:info$(J%,K%)="LoA "+ncl$(K%)+" "+info$(J%,K%)
 4650NEXT
 4660NEXT
 4670CLOSE#h%
 4680IFattend$=""THEN
 4690att%()=0
 4700ELSE
 4710h%=OPENIN(f$+"Achieve.Achieve"+STR$(cla%)+"."+attend$)
 4720FORL%=0TO4
 4730FORK%=1TO6
 4740FORJ%=1TO6
 4750INPUT#h%,att%(J%,K%,L%)
 4760NEXT
 4770NEXT
 4780NEXT
 4790CLOSE#h%
 4800ENDIF
 4810ENDPROC
 4820DEFPROCsound
 4830IFNOTINKEY-2:fnc%=TRUE:ENDPROC
 4840IFNOTfnc%:ENDPROC
 4850IFINKEY-31THEN
 4860fnc%=FALSE
 4870snd%=NOTsnd%
 4880IFsnd%OSCLI"VOLUME "+STR$(M%)ELSEOSCLI"VOLUME 1"
 4890ENDIF
 4900ENDPROC
 4910DEFPROCflush
 4920*FX21 9
 4930ENDPROC
 4940DEFPROCnumbername
 4950MOUSEOFF
 4960IFNOTrpy%:VDU7:PROCenternames
 4970rpy%=TRUE
 4980ENDPROC
 4990DEFFNarea(x1%,y1%,x2%,y2%)
 5000IFmox%<x1%ORmox%>x2%:=FALSE
 5010IFmoy%<y1%ORmoy%>y2%:=FALSE
 5020=TRUE
 5030DEFPROCcard(t$,tax%,tay%,szx%,szy%)
 5040VDU5
 5050GCOL0,8
 5060RECTANGLEFILLtax%*g%,tay%*g%,szx%*e%+e%,szy%*f%
 5070GCOL0,11
 5080RECTANGLEFILLtax%*g%+320,tay%*g%,szx%*e%-162,szy%*f%
 5090GCOL0,0
 5100IFszx%*e%+e%>=1280 srx%=1278ELSEsrx%=szx%*e%+e%
 5110RECTANGLEtax%*g%,tay%*g%,srx%,szy%*f%
 5120GCOL0,13
 5130MOVEtax%*g%+f%,tay%*g%+szy%*f%+f%
 5140PLOT0,LEN(t$)*g%,0
 5150PLOT85,tax%*g%,tay%*g%+szy%*f%
 5160PLOT81,128+LEN(t$)*g%,0
 5170GCOL0,0
 5180MOVEtax%*g%,tay%*g%+szy%*f%
 5190PLOT1,f%,f%
 5200PLOT1,LEN(t$)*g%,0
 5210PLOT1,f%,-f%
 5220MOVEtax%*g%+f%,tay%*g%+szy%*f%+44
 5230PRINTt$
 5240FORJ%=1TOszx%
 5250MOVEtax%*g%+J%*e%+e%,tay%*g%
 5260PLOT1,0,szy%*f%
 5270NEXT
 5280FORJ%=1TOszy%
 5290MOVEtax%*g%,tay%*g%+J%*f%
 5300PLOT1,szx%*e%+e%,0
 5310NEXT
 5320VDU4
 5330OFF
 5340ENDPROC
 5350DEFPROCinstructions
 5360IFNOTINKEY-38:ENDPROC
 5370VDU7
 5380MOUSEOFF
 5390SYS"ABC_Blank",15
 5400SYS"ABC_Colour",15
 5410COLOUR136
 5420CLS
 5430GCOL0,5
 5440RECTANGLEFILL240,0,1040,1020
 5450GCOL0,0
 5460RECTANGLE0,0,1278,1020
 5470COLOUR0
 5480K%=0
 5490Y%=1
 5500FORJ%=1TO6
 5510COLOUR0
 5520COLOUR136
 5530PRINTTAB(1,Y%)typ$" "J%"     -"
 5540COLOUR133
 5550PRINTTAB(16,Y%)info$(gme%,J%)
 5560Y%+=1
 5570FORX%=1TO4
 5580COLOUR14
 5590COLOUR136
 5600PRINTTAB(1,Y%)"practice f"X%" -"
 5610COLOUR9
 5620COLOUR133
 5630PRINTTAB(16,Y%)dat$(K%)
 5640K%+=1
 5650Y%+=1
 5660NEXT
 5670NEXT
 5680GCOL0,0
 5690LINE240,0,240,1020
 5700SYS"ABC_Palette"
 5710REPEAT
 5720UNTILFNleave
 5730VDU7
 5740IFsun%>0 sun%-=1ELSEsun%=1
 5750PROCmenu
 5760ENDPROC
 5770DEFPROCamoun
 5780FORJ%=1TO4
 5790IFname$(J%)>""THEN
 5800SYS"ABC_PryntString",name$(J%),132,228-J%*18,1,7
 5810SYS"ABC_PryntString",name$(J%),134,229-J%*18,1,J%+7
 5820SYS"ABC_PryntString",":",312,228-J%*18,1,7
 5830SYS"ABC_PryntString",":",314,229-J%*18,1,J%+7
 5840SYS"ABC_PryntString",STR$(scr%(J%)),360,228-J%*18,1,7
 5850SYS"ABC_PryntString",STR$(scr%(J%)),362,229-J%*18,1,J%+7
 5860SYS"ABC_PryntString",STR$(Q%)+"%",470,228-J%*18,1,7
 5870SYS"ABC_PryntString",STR$(Q%)+"%",472,229-J%*18,1,J%+7
 5880ELSE
 5890SYS"ABC_PryntString",STRING$(8,"-"),132,228-J%*18,1,7
 5900SYS"ABC_PryntString",STRING$(8,"-"),134,229-J%*18,1,J%+7
 5910SYS"ABC_PryntString","-",312,228-J%*18,1,7
 5920SYS"ABC_PryntString","-",314,229-J%*18,1,J%+7
 5930SYS"ABC_PryntString","-",360,228-J%*18,1,7
 5940SYS"ABC_PryntString","-",362,229-J%*18,1,J%+7
 5950SYS"ABC_PryntString","-",470,228-J%*18,1,7
 5960SYS"ABC_PryntString","-",472,229-J%*18,1,J%+7
 5970ENDIF
 5980NEXT
 5990ENDPROC
 6000DEFPROCenternames
 6010name$()=""
 6020IFply%=1:name$(1)=attend$:ENDPROC
 6030SYS"ABC_Blank",3
 6040SYS"ABC_Colour",3
 6050GCOL0,12
 6060RECTANGLEFILL200,180,896,632
 6070GCOL0,7
 6080RECTANGLE200,180,896,632
 6090IFfor%PROCwings("ENTRER LES NOMS",172,188)ELSEPROCwings("ENTER NAMES",172,188)
 6100COLOUR140
 6110SYS"ABC_Palette"
 6120FORJ%=1TOply%
 6130COLOUR11
 6140IFfor%PRINTTAB(30,12+J%*2)"JOUEUR "J%" >"ELSEPRINTTAB(30,12+J%*2)"PLAYER "J%" >"
 6150COLOUR13
 6160PROCinput(8,42,12+J%*2)
 6170VDU7
 6180IFi$=""THEN
 6190IFfor%i$="Joueur "+STR$(J%)ELSEi$="Player "+STR$(J%)
 6200PRINTTAB(42,12+J%*2)i$
 6210ENDIF
 6220name$(J%)=i$
 6230NEXT
 6240PROCdelay(50)
 6250ENDPROC
 6260DEFFNinitialcompressed(s$)
 6270h%=OPENIN(f$+s$)
 6280len%=EXT#h%
 6290CLOSE#h%
 6300DIMz%len%
 6310OSCLI"LOAD "+f$+s$+" "+STR$~(z%)
 6320=z%
 6330DEFPROCupgrade
 6340rem%=att%(gme%,grd%,sub%)
 6350IFQ%>99ANDatt%(gme%,grd%,sub%)>2:att%(gme%,grd%,sub%)+=1
 6360IFQ%>99ANDatt%(gme%,grd%,sub%)<3:att%(gme%,grd%,sub%)=3
 6370IFQ%>49ANDatt%(gme%,grd%,sub%)<2:att%(gme%,grd%,sub%)=2
 6380IFatt%(gme%,grd%,sub%)=0:att%(gme%,grd%,sub%)=1
 6390ENDPROC
 6400DEFFNvalidatenumber(a$)
 6410IFa$="":=FALSE
 6420K%=TRUE
 6430FORJ%=1TOLEN(a$)
 6440IFMID$(a$,J%,1)<"0"ORMID$(a$,J%,1)>"9":K%=FALSE
 6450NEXT
 6460=K%
 6470DEFFNcount(a$,t$)
 6480ctr%=0
 6490FORW%=1TOLEN(a$)
 6500IFMID$(a$,W%,1)=t$:ctr%+=1
 6510NEXT
 6520=ctr%
 6530DEFFNextract(RETURNa$)
 6540z$=LEFT$(a$,INSTR(a$,",")-1)
 6550a$=MID$(a$,INSTR(a$,",")+1)
 6560=z$
 6570DEFPROCfireworks
 6580IFQ%<80:ENDPROC
 6590SYS"ABC_Blank",7
 6600SYS"ABC_Colour",7
 6610PROCnoise("End",4,&17F,&1000,&100)
 6620IFfor%PROCwings("FIN DE LA PARTIE",172,230)ELSEPROCwings("GAME OVER",172,230)
 6630SYS"ABC_Palette"
 6640PROCpattern
 6650ENDPROC
 6660DEFPROCgraphics(z$,bcl%)
 6670IFNOTINKEY-2:ENDPROC
 6680IFINKEY-23:PROCdisplay(23,1)
 6690IFINKEY-119:PROCdisplay(119,2)
 6700IFINKEY-120:PROCdisplay(120,3)
 6710ENDPROC
 6720DEFPROCreveal(bcl%,for%,mos%)
 6730IFNOTINKEY-52:ENDPROC
 6740MOUSEOFF
 6750VDU7
 6760SYS"ABC_Transfer",0,136,640,18
 6770t$=info$(gme%,grd%)
 6780IFNOTnig%:t$=MID$(t$,INSTR(t$," ")+1)
 6790VDU5
 6800GCOL0,bcl%
 6810WAIT
 6820RECTANGLEFILL0,476,1278,68
 6830GCOL0,for%
 6840RECTANGLE0,476,1278,68
 6850GCOL0,0
 6860MOVE640-LEN(t$)*8,524
 6870PRINTt$
 6880VDU4
 6890OFF
 6900REPEAT
 6910UNTILFNleave
 6920SYS"ABC_Restore"
 6930CASEmos%OF
 6940WHEN1:PROCmouse1
 6950WHEN2:PROCmouse2
 6960ENDCASE
 6970ENDPROC
 6980DEFPROCrec(bcl%,mcl%,ssx%,ssy%,xwd%,yht%)
 6990GCOL0,mcl%
 7000RECTANGLEFILLssx%,ssy%,xwd%,yht%
 7010FORJ%=0TO3
 7020GCOL0,bcl%
 7030RECTANGLEssx%+J%*4,ssy%+J%*4,xwd%,yht%
 7040RECTANGLEssx%+J%*4+2,ssy%+J%*4,xwd%-4,yht%
 7050xwd%-=8
 7060yht%-=8
 7070NEXT
 7080ENDPROC
 7090DEFPROCrandom
 7100MOUSEOFF
 7110SYS"ABC_Blank",3
 7120SYS"ABC_Colour",3
 7130GCOL0,12
 7140RECTANGLEFILL200,180,896,632
 7150GCOL0,7
 7160RECTANGLE200,180,896,632
 7170IFfor%PROCwings("ENTRER LE CHIFFRE",172,188)ELSEPROCwings("ENTER NUMBER",172,188)
 7180SYS"ABC_UnpackSprite","small",j%,440,96
 7190SYS"ABC_UnpackSprite","small",j%,120,96
 7200COLOUR140
 7210REPEAT
 7220COLOUR7
 7230IFfor%PROCcent("Entrer le chiffre entre 1 et 9999",14)ELSEPROCcent("Enter number between 1 and 9999",14)
 7240PROCcent(">      <",16)
 7250COLOUR10
 7260SYS"ABC_Palette"
 7270PROCinput(4,38,16)
 7280J%=FNvalidatenumber(i$)
 7290IFNOTJ%THEN
 7300VDU7
 7310COLOUR11
 7320IFfor%PROCcent("Ceci n'est pas un chiffre - recommencer",18)ELSEPROCcent("Not a number - try again",18)
 7330PROCdelay(100)
 7340PROCcent(STRING$(25," "),18)
 7350ENDIF
 7360UNTILJ%
 7370sed%=EVAL(i$)
 7380R%=RND(-sed%)
 7390ENDPROC
 7400DEFPROCspaceor
 7410IFfor%THEN
 7420a$="appuyer sur l'espace"
 7430b$="ou"
 7440c$="appuyer sur la souris"
 7450ELSE
 7460a$="press space"
 7470b$="or"
 7480c$="click mouse"
 7490ENDIF
 7500xsc%=320-LEN(a$)*8
 7510SYS"ABC_PryntString",a$,xsc%,67,1,7
 7520SYS"ABC_PryntString",a$,xsc%+2,68,1,5
 7530xsc%=320-LEN(b$)*8
 7540SYS"ABC_PryntString",b$,xsc%,49,1,7
 7550SYS"ABC_PryntString",b$,xsc%+2,50,1,5
 7560xsc%=320-LEN(c$)*8
 7570SYS"ABC_PryntString",c$,xsc%,31,1,7
 7580SYS"ABC_PryntString",c$,xsc%+2,32,1,5
 7590ENDPROC
 7600DEFPROCentry
 7610IFNOTtab%:ENDPROC
 7620IFfor%THEN
 7630a$="grille des resultats eleves change"
 7640SYS"ABC_PryntString",a$,50,84,1,7
 7650SYS"ABC_PryntString",a$,52,85,1,11
 7660ELSE
 7670a$="high score table changed"
 7680SYS"ABC_PryntString",a$,132,84,1,7
 7690SYS"ABC_PryntString",a$,134,85,1,11
 7700ENDIF
 7710ENDPROC
 7720DEFPROCfillmenu
 7730inj%=72
 7740omy%=1
 7750txt%=1
 7760d$=""
 7770VDU5
 7780GCOL0,0
 7790FORJ%=0TO7
 7800READs$
 7810MOVE400,780-J%*f%
 7820IFJ%=6THEN
 7830IFfor%THEN
 7840IFver%s$="Cat�gorie"ELSEs$="Niveau"
 7850ELSE
 7860s$=typ$
 7870ENDIF
 7880ENDIF
 7890PRINTLEFT$(s$,17)
 7900mnu$(J%)=s$
 7910NEXT
 7920GCOL0,14
 7930FORJ%=8TO9
 7940READs$
 7950MOVE400,780-J%*f%
 7960PRINTLEFT$(s$,17)
 7970mnu$(J%)=s$
 7980NEXT
 7990VDU4
 8000OFF
 8010FORJ%=0TO9
 8020PROCint(J%)
 8030NEXT
 8040ENDPROC
 8050DEFPROCreport
 8060MOUSEOFF
 8070PROCzeromouse
 8080PROCflush
 8090PROCanyprogress
 8100PROClimit
 8110PROCfireworks
 8120SYS"ABC_Blank",3
 8130SYS"ABC_Colour",3
 8140GCOL0,12
 8150IFfor%THEN
 8160RECTANGLEFILL72,0,1136,1020
 8170GCOL0,7
 8180RECTANGLE72,0,1136,1020
 8190SYS"ABC_UnpackSprite","small",j%,504,54
 8200SYS"ABC_UnpackSprite","small",j%,54,54
 8210ELSE
 8220RECTANGLEFILL200,0,896,1020
 8230GCOL0,7
 8240RECTANGLE200,0,896,1020
 8250SYS"ABC_UnpackSprite","small",j%,440,54
 8260SYS"ABC_UnpackSprite","small",j%,118,54
 8270ENDIF
 8280IFfor%PROCwings("FIN DE LA PARTIE",170,248)ELSEPROCwings("GAME OVER",170,248)
 8290PROCspaceor
 8300PROCextra
 8310PROCamoun
 8320PROCcolbox
 8330PROCrating
 8340PROCentry
 8350SYS"ABC_Palette"
 8360REPEAT
 8370UNTILFNleave
 8380ENDPROC
 8390DEFPROCzeromouse
 8400REPEAT
 8410MOUSEmox%,moy%,but%
 8420UNTILbut%=0
 8430ENDPROC
 8440DEFFNleave
 8450MOUSEmox%,moy%,but%
 8460IFINKEY-99ORINKEY-74ORbut%>0ELSE=FALSE
 8470REPEAT
 8480MOUSEmox%,moy%,but%
 8490UNTILNOTINKEY-99ANDNOTINKEY-74ANDbut%=0
 8500*FX21 9
 8510=TRUE
 8520DEFPROCquit
 8530MOUSEOFF
 8540SYS"Hourglass_On"
 8550MOUSERECTANGLE0,0,1280,1024
 8560SYS"ABC_Colour",15
 8570PROCsavenewresults
 8580CHAIN"ram:Menu"
 8590DEFPROCvolume
 8600M%=(M%+g%)AND&7F
 8610OSCLI"VOLUME "+STR$(M%)
 8620upd%=FALSE
 8630ENDPROC
 8640DEFPROCplayers
 8650ply%+=1
 8660IFply%>4:ply%=1
 8670rpy%=FALSE
 8680upd%=FALSE
 8690ENDPROC
 8700DEFPROCmenuclean
 8710IFupd%:PROCmenu
 8720PROCzeromouse
 8730WAIT
 8740PROCsqr(sun%,11)
 8750PROCsqr(box%,15)
 8760PROCint(sun%)
 8770PROCint(box%)
 8780sun%=box%
 8790ENDPROC
 8800DEFPROClimit
 8810bnd%=1
 8820FORJ%=1TO6
 8830IFatt%(gme%,J%,0)>1:bnd%=J%+1
 8840NEXT
 8850IFbnd%>6:bnd%=6
 8860ENDPROC
 8870DEFFNforeignlevel(cap%)
 8880IFver%THEN
 8890IFfor%z$="cat�gorie"ELSEz$="grade"
 8900ELSE
 8910IFfor%z$="niveau"ELSEz$="level"
 8920ENDIF
 8930IFcap%:LEFT$(z$,1)=CHR$(ASC(LEFT$(z$,1))-32)
 8940=z$
 8950DEFPROCforeign
 8960IFfrn%THEN
 8970for%=TRUE
 8980ELSE
 8990IFgrd%<4 for%=FALSEELSEfor%=TRUE
 9000ENDIF
 9010ENDPROC
 9020DEFPROCextra
 9030IFatt%(gme%,grd%,0)=1THEN
 9040IFfor%THEN
 9050a$="Appuyer sur les touches f1 � f4 pour un entrainement suppl�mentaire"
 9060xsc%=320-LEN(a$)*4
 9070SYS"ABC_PryntString",a$,xsc%,11,0,7
 9080SYS"ABC_PryntString",a$,xsc%+1,12,0,11
 9090ELSE
 9100a$="Then press keys f1 to f4 for extra practice"
 9110xsc%=320-LEN(a$)*4
 9120SYS"ABC_PryntString",a$,xsc%,11,0,7
 9130SYS"ABC_PryntString",a$,xsc%+1,12,0,11
 9140ENDIF
 9150ENDIF
 9160ENDPROC
 9170DEFPROCpractice
 9180IFINKEY-2:ENDPROC
 9190L%=0
 9200IFINKEY-114:L%=1
 9210IFINKEY-115:L%=2
 9220IFINKEY-116:L%=3
 9230IFINKEY-21:L%=4
 9240IFL%=0:ENDPROC
 9250VDU7
 9260sub%=L%
 9270WAIT
 9280IFbox%=3PROCsqr(3,15)ELSEPROCsqr(3,11)
 9290PROCint(3)
 9300REPEAT
 9310UNTILNOTINKEY-114ANDNOTINKEY-115ANDNOTINKEY-116ANDNOTINKEY-21
 9320ENDPROC
 9330DEFPROCcolour(val%)
 9340CASEval%OF
 9350WHEN0:GCOL0,7
 9360WHEN1:GCOL0,11
 9370WHEN2:GCOL0,14
 9380WHEN3,4,5,6,7,8,9,10,11:GCOL0,10
 9390OTHERWISE:GCOL0,15
 9400ENDCASE
 9410ENDPROC
 9420DEFPROClargeinput(tot%,tax%,tay%,col%)
 9430*FX21 0
 9440cnt%=0
 9450i$=""
 9460GCOL0,col%
 9470REPEAT
 9480REPEAT
 9490REPEAT
 9500k%=INKEY(1)
 9510UNTILk%=13ORk%>31AND k%<128
 9520IFk%=127AND cnt%>0THEN
 9530cnt%-=1
 9540i$=LEFT$(i$,cnt%)
 9550WAIT
 9560SYS"ABC_PryntString",i$,tax%,tay%,1,7
 9570SYS"ABC_PryntString",i$,tax%-2,tay%+1,1,9
 9580RECTANGLEFILLtax%*2+LEN(i$)*32,tay%*4-64,32,64
 9590ENDIF
 9600UNTILk%<>127
 9610IFk%<>13AND cnt%<>tot%THEN
 9620i$+=CHR$(k%)
 9630WAIT
 9640SYS"ABC_PryntString",i$,tax%,tay%,1,7
 9650SYS"ABC_PryntString",i$,tax%-2,tay%+1,1,9
 9660cnt%+=1
 9670ENDIF
 9680IFk%<>13AND cnt%=tot%:VDU7
 9690UNTILk%=13
 9700ENDPROC
 9710DEFPROCpattern
 9720TIME=0
 9730noi%=TRUE
 9740WHILETIME<500
 9750noi%=NOTnoi%
 9760IFnoi%:PROCnoise("Ping",2,&17F,&6000,&10)
 9770PROCexplode(RND(1280),RND(1024))
 9780ENDWHILE
 9790VDU29,0;0;
 9800ENDPROC
 9810DEFPROCexplode(xsc%,ysc%)
 9820VDU29,xsc%;ysc%;
 9830K%=50
 9840MOVEK%,0
 9850FORJ%=0TO1800STEP20
 9860GCOL0,RND(4)+7
 9870K%+=1
 9880DRAWK%*COSRAD(J%),K%*SINRAD(J%)
 9890NEXT
 9900ENDPROC
 9910DEFPROCdisplay(kee%,gra%)
 9920pix%=gra%
 9930MOUSEOFF
 9940VDU7
 9950SYS"ABC_Blank",bcl%
 9960SYS"ABC_Colour",bcl%
 9970COLOUR128+bcl%
 9980COLOUR0
 9990IFfor%PROCcent("Cet image est utilis� pour "+z$,10)ELSEPROCcent("This graphic used for the "+z$,10)
10000SYS"ABC_UnpackSprite","z"+STR$(pix%),z%,272,148
10010SYS"ABC_Palette"
10020REPEAT
10030UNTILNOTINKEY-kee%
10040IFsun%=0 sun%=1ELSEsun%-=1
10050PROCmenu
10060ENDPROC
10070DEFPROCdata
10080FORJ%=0TO23
10090READa$
10100dat$(J%)=a$
10110NEXT
10120ENDPROC
10130DEFFNexcise(RETURNa$,x$)
10140z$=LEFT$(a$,INSTR(a$,x$)-1)
10150a$=MID$(a$,INSTR(a$,x$)+1)
10160=z$
10170DEFFNsubnum(num%)
10180add%=z%+z%!(num%<<4)
10190=add%?13
10200DEFFNalias(num%)
10210add%=z%+z%!(num%<<4)
10220add%+=add%!8
10230a$=""
10240WHILE?add%>0
10250a$+=CHR$(?add%)
10260add%+=1
10270ENDWHILE
10280=a$
10290DEFFNname(num%)
10300add%=z%+z%!(num%<<4)
10310add%+=add%!4
10320a$=""
10330WHILE?add%>0
10340a$+=CHR$(?add%)
10350add%+=1
10360ENDWHILE
10370=a$
10380DEFFNlowercase(a$)
10390FORW%=1TOLEN(a$)
10400w$=MID$(a$,W%,1)
10410IFw$>="A"AND w$<="Z":MID$(a$,W%,1)=CHR$(ASC(w$)+32)
10420NEXT
10430=a$
10440DEFFNchoose
10450IFsub%=0THEN
10460REPEAT
10470IFser%THEN
10480X%=lnr%
10490lnr%+=1
10500IFlnr%>1500:lnr%=1
10510ELSE
10520X%=RND(1500)
10530ENDIF
10540UNTILwrd$(grd%,X%)>""AND X%<>pre%
10550ELSE
10560REPEAT
10570IFser%THEN
10580X%=lnr%
10590lnr%+=1
10600IFlnr%>1500:lnr%=1
10610ELSE
10620X%=RND(1500)
10630ENDIF
10640UNTILwrd$(grd%,X%)>""AND knd%(grd%,X%)=sub%AND X%<>pre%
10650ENDIF
10660=wrd$(grd%,X%)
10670DEFPROCstart
10680REPEAT
10690UNTILNOTINKEY-99
10700tim%=FALSE
10710san%=0
10720REPEAT
10730VDU7
10740SYS"ABC_Blank",3
10750SYS"ABC_Colour",3
10760a$="START NUMBER"
10770xsc%=320-LEN(a$)*8
10780SYS"ABC_PryntString",a$,xsc%,160,1,7
10790SYS"ABC_PryntString",a$,xsc%-2,161,1,11
10800SYS"ABC_Palette"
10810PROClargeinput(4,296,120,3)
10820fol%=VAL(i$)
10830IFfol%<1ORfol%>1500:VDU7
10840UNTILfol%>0AND fol%<1501ANDFNvalidatenumber(i$)
10850SYS"ABC_Colour",3
10860lnr%=fol%
10870ser%=TRUE
10880ENDPROC
10890DEFPROCsplitup(a$)
10900spt$()=""
10910J%=1
10920WHILEINSTR(a$," ")>0
10930prt$(J%)=" "+LEFT$(a$,INSTR(a$," ")-1)
10940a$=MID$(a$,INSTR(a$," ")+1)
10950J%+=1
10960ENDWHILE
10970prt$(J%)=" "+a$
10980L%=1
10990FORK%=1TOJ%
11000IFLEN(spt$(L%)+prt$(K%))<14THEN
11010IFspt$(L%)=""spt$(L%)=prt$(K%)ELSEspt$(L%)+=prt$(K%)
11020ELSE
11030L%+=1
11040spt$(L%)=prt$(K%)
11050ENDIF
11060NEXT
11070FORJ%=1TO3
11080WHILELEFT$(spt$(J%),1)=" "
11090spt$(J%)=MID$(spt$(J%),2)
11100ENDWHILE
11110NEXT
11120IFspt$(2)=""AND spt$(3)=""THEN
11130spt$(2)=spt$(1)
11140spt$(1)=""
11150spt$(3)=""
11160ENDIF
11170ENDPROC
11180DEFPROChighest
11190tab%=FALSE
11200FORent%=1TOply%
11210scores%(gme%,11)=scr%(ent%)
11220a$=MID$(TIME$,5,11)+" Grade "+STR$(grd%)+" "
11230IFply%>1 b$=STR$(Q%)+"%."ELSEb$=STR$(Q%)+"% "
11240IFLEN(b$)<5:b$=STRING$(5-LEN(b$)," ")+b$
11250high$(gme%,11)=a$+b$+" "+name$(ent%)
11260IFINSTR(high$(gme%,11),"Joueur")>0:MID$(INSTR(high$(gme%,11),"Joueur"))="Player"
11270PROCsortscores
11280NEXT
11290ENDPROC
11300DEFPROCrating
11310IFrat%:ENDPROC
11320IFfor%THEN
11330a$="Note : "+rat$(1,Q%DIV10)
11340SYS"ABC_PryntString",a$,66,106,1,7
11350SYS"ABC_PryntString",a$,68,107,1,8
11360ELSE
11370a$="Rating : "+rat$(0,Q%DIV10)
11380SYS"ABC_PryntString",a$,132,106,1,7
11390SYS"ABC_PryntString",a$,134,107,1,8
11400ENDIF
11410ENDPROC
11420DEFPROCcolbox
11430IFply%>1ORsub%>0ORattend$="":ENDPROC
11440IFQ%>99:now%=3
11450IFQ%>49ANDQ%<100:now%=2
11460IFQ%<50:now%=1
11470CASEnow%OF
11480WHEN1,2
11490IFfor%THEN
11500IFrem%<now%:a$="changement de couleur"
11510IFnow%=rem%:a$="pas de changement"
11520IFrem%>now%:a$="recommencer"
11530ELSE
11540IFrem%<now%:a$="colour changed"
11550IFnow%=rem%:a$="no change"
11560IFrem%>now%:a$="try again"
11570ENDIF
11580WHEN3
11590IFfor%THEN
11600IFrem%<3:a$="changement de couleur"
11610IFrem%>2ANDrem%<11:a$="essayer le bleu"
11620IFrem%>10:a$="bleu"
11630ELSE
11640IFrem%<3:a$="colour changed"
11650IFrem%>2ANDrem%<11:a$="try for blue"
11660IFrem%>10:a$="blue"
11670ENDIF
11680ENDCASE
11690IFfor%a$=FNforeignlevel(TRUE)+" "+STR$(grd%)+" "+a$ELSEa$=typ$+" "+STR$(grd%)+"   "+a$
11700IFfor%THEN
11710SYS"ABC_PryntString",a$,66,132,1,7
11720SYS"ABC_PryntString",a$,68,133,1,14
11730ELSE
11740SYS"ABC_PryntString",a$,132,132,1,7
11750SYS"ABC_PryntString",a$,134,133,1,14
11760ENDIF
11770ENDPROC
11780DEFPROClongmenu
11790IFbox%<>omy%THEN
11800VDU5
11810GCOL0,8
11820WAIT
11830RECTANGLEFILL400,172+omy%*64,288,32
11840IFomy%<2GCOL0,14ELSEGCOL0,0
11850MOVE400,204+omy%*64
11860PRINTLEFT$(mnu$(9-omy%),17)
11870omy%=box%
11880VDU4
11890OFF
11900inj%=72
11910txt%=LEN(mnu$(9-omy%))
11920d$=mnu$(9-omy%)
11930ENDIF
11940IFtxt%>17THEN
11950par%=(9-box%)*&1400
11960CALLMenuCarousel,par%
11970IFinj%MOD4=0:PROCmenuchar
11980inj%+=1
11990ENDIF
12000ENDPROC
12010DEFPROCmenuchar
12020IF(inj%>>2)>txt%+8:inj%=4
12030IF(inj%>>2)>txt%:ENDPROC
12040IFomy%<2 col%=14ELSEcol%=0
12050SYS"ABC_PryntString",MID$(d$,inj%>>2,1),336,52+omy%*16,0,col%
12060ENDPROC
12070DEFPROCfillinformation(tax%,tay%)
12080VDU5
12090GCOL0,0
12100MOVEtax%*32-f%,1024-(tay%*g%+4)
12110a$=FNforeignlevel(TRUE)
12120IFfor%THEN
12130PRINT"R�sultat            Couleur";
12140IFver%PLOT0,28,0ELSEPLOT0,48,0
12150PRINTa$
12160ELSE
12170PRINT"Attainment          Colour    "+a$
12180ENDIF
12190FORJ%=1TO6
12200PROCcolour(att%(gme%,J%,0))
12210RECTANGLEFILL642,740-J%*64,156,56
12220NEXT
12230FORJ%=1TO6
12240GCOL0,7
12250MOVEtax%*32+448,1024-(tay%*g%+J%*f%+4)
12260PRINTJ%
12270MOVEtax%*32+256,1024-(tay%*g%+J%*f%+4)
12280GCOL0,0
12290MOVEtax%*32-f%,1024-(tay%*g%+J%*f%+4)
12300PRINTLEFT$(info$(gme%,J%),16)
12310MOVEtax%*32+448,1024-(tay%*g%+J%*f%)
12320PRINTJ%
12330MOVEtax%*32+256,1024-(tay%*g%+J%*f%)
12340IFatt%(gme%,J%,0)<3THEN
12350xsc%=tax%*32+250
12360ysc%=984-(tay%*g%+J%*f%)
12370FORL%=1TO4
12380PROCcolour(att%(gme%,J%,L%))
12390RECTANGLEFILLxsc%,ysc%+4,18,40
12400GCOL0,7
12410MOVExsc%+2,ysc%+36
12420PRINTCHR$(96+L%)
12430GCOL0,0
12440MOVExsc%+2,ysc%+40
12450PRINTCHR$(96+L%)
12460xsc%+=28
12470NEXT
12480ENDIF
12490NEXT
12500VDU4
12510OFF
12520ENDPROC
12530DEFPROCtrap
12540MOUSEOFF
12550VDU26
12560*CLOSE
12570IFsun%=0 sun%=1ELSEsun%-=1
12580ENDPROC
12590DEFPROCloadwords
12600LOCALcod%,str%
12610h%=OPENIN(e$)
12620end%=EXT#h%
12630CLOSE#h%
12640DIMwrd$(6,1500),knd%(6,1500),cod%512,str%end%
12650FORA%=0TO2STEP2
12660P%=cod%
12670[OPTA%
12680LDR R0,addr:ADR R1,buff:MOV R2,#&0:LDR R3,addr+&4
12690.read
12700LDRB R4,[R0],#&1:CMP R4,#&20:BLT finish
12710STRB R4,[R1,R2]:ADD R2,R2,#&1:CMP R0,R3:BLT read
12720.finish
12730CMP R2,#&FF:MOVGE R2,#&FF:MOV R4,#&D
12740STRB R4,[R1,R2]:STR R0,addr:MOV R15,R14
12750.addr
12760EQUD str%
12770EQUD str%+end%
12780.buff
12790]
12800NEXT
12810OSCLI"LOAD "+e$+" "+STR$~(str%)
12820b$="GRADE"
12830c$="/"
12840d$="$"
12850end%+=str%
12860lvl%=1
12870que%=1
12880WHILEque%<1500AND!addr<end%
12890CALLcod%
12900a$=$buff
12910WHILELEFT$(a$,1)=" "
12920a$=MID$(a$,2)
12930ENDWHILE
12940WHILERIGHT$(a$)=" "
12950a$=LEFT$(a$)
12960ENDWHILE
12970IFINSTR(a$,b$)>0PROCexgradeELSEPROCwords
12980ENDWHILE
12990ENDPROC
13000DEFPROCexgrade
13010FORJ%=1TOLEN(a$)
13020IFMID$(a$,J%,1)>"0"ANDMID$(a$,J%,1)<"7":lvl%=ASC(MID$(a$,J%,1))-48
13030NEXT
13040que%=1
13050ENDPROC
13060DEFPROCwords
13070IFINSTR(a$,d$)>0ORa$="":ENDPROC
13080IFMID$(a$,2,1)=c$THEN
13090knd%(lvl%,que%)=ASC(a$)-48
13100IFknd%(lvl%,que%)<1ORknd%(lvl%,que%)>4:knd%(lvl%,que%)=1
13110wrd$(lvl%,que%)=MID$(a$,INSTR(a$,c$)+1)
13120ELSE
13130wrd$(lvl%,que%)=a$
13140ENDIF
13150que%+=1
13160ENDPROC
13170DEFPROCgrade
13180sub%=0
13190PROClimit
13200IFbnd%>1:grd%=grd%EOR&7
13210tem%=for%
13220PROCforeign
13230IFtem%<>for%upd%=TRUEELSEupd%=FALSE
13240ENDPROC

"� ><Disc1$Dir>.SixGames.Common
��highscore
ș"ABC_Blank",15
(ș"ABC_Colour",15
2ȗ�
<*ș"ABC_UnpackSprite","mouse",j%,512,74
F"�for%�foreignhigh��englishhigh
Pș"ABC_Palette"
Z�
d��leave
n�7
x�
���foreignhigh
�t$="RESULTATS ELEVES"
�
tax%=9
�
tay%=2
�syy%=13
��5
�	�0,13
�"�tax%*g%+48,tay%*g%+syy%*f%+48
��0,�(t$)*g%,0
�%�85,tax%*g%-12,tay%*g%+syy%*f%-g%
��81,128+�(t$)*g%,0
��0,0
�"�tax%*g%-16,tay%*g%+syy%*f%-g%
�1,f%,f%
�1,�(t$)*g%+4,0

�1,f%,-f%
""�tax%*g%+48,tay%*g%+syy%*f%+24
,�t$
6�J%=1�10
@K%=876-(tay%*g%+J%*f%)
JL%=K%+44
T�attend$=""�
^�0,8
h�
r,�high$(gme%,J%),attend$,27)>0�0,11��0,8
|�
��nuw%=J%:�0,14
�ȓȐ128,K%,896,f%
�	�0,11
�ȓȐ892,K%,128,f%
��0,0
�ȓ128,K%,896,f%
�ȓ892,K%,130,f%
��tax%*32-144,L%
�
��(J%)
��tax%*32-96,L%
�a$=high$(gme%,J%)
�b$=�a$,4,3)
�a$=�a$,3)+"     "+�a$,7)
	Ȏb$�
�"Jan":b$="Janv"
�"Feb":b$="F�v"
&�"Mar":b$="Mars"
0�"Apr":b$="Avr"
:�"May":b$="Mai"
D�"Jun":b$="Juin"
N�"Jul":b$="Juill"
X�"Aug":b$="Ao�t"
b�"Sep":b$="Sept"
l�"Oct":b$="Oct"
v�"Nov":b$="Nov"
��"Dec":b$="Dec"
��
�K%=�a$,"Grade")
�&a$=�a$,K%-1)+"         "+�a$,K%+5)
�c$=�foreignlevel(�)
��a$,K%)=c$
�
�a$,4)=b$
��ver%�
� �a$,K%+�(c$)+1)=�a$,K%+10,1)
��a$,K%+10)=" "
��
�0�a$,"Player")>0:�a$,�a$,"Player"))="Joueur"
��a$
�tax%*32+642,L%
�scores%(gme%,J%)
�
 �4
*�
4�
>��englishhigh
Ht$="HIGH SCORES"
Rtax%=13
\
tay%=2
fsyy%=13
p�5
z	�0,13
�#�tax%*g%+112,tay%*g%+syy%*f%+48
��0,�(t$)*g%,0
�%�85,tax%*g%+52,tay%*g%+syy%*f%-g%
��81,128+�(t$)*g%,0
��0,0
�"�tax%*g%+48,tay%*g%+syy%*f%-g%
��1,f%,f%
��1,�(t$)*g%+4,0
�
�1,f%,-f%
�#�tax%*g%+112,tay%*g%+syy%*f%+24
��t$
��J%=1�10
�K%=876-(tay%*g%+J%*f%)
L%=K%+44
�attend$=""�
�0,8
$�
.,�high$(gme%,J%),attend$,27)>0�0,11��0,8
8�
B�nuw%=J%:�0,14
LȓȐ256,K%,768,f%
V	�0,11
`ȓȐ892,K%,128,f%
j�0,0
tȓ256,K%,768,f%
~ȓ892,K%,130,f%
��tax%*32-144,L%
�
��(J%)
��tax%*32-96,L%
�a$=high$(gme%,J%)
�!�ver%:�a$,�a$,"Grade"))=typ$
��a$
��tax%*32+514,L%
��scores%(gme%,J%)
��
��4
��
��
��sortscores

a$=high$(gme%,11)
�a$>""�
�
(
srt%=�
2�J%=1�10
<)�scores%(gme%,J%)<scores%(gme%,J%+1)�
F
tab%=�
P
srt%=�
Z)Ȕscores%(gme%,J%),scores%(gme%,J%+1)
d%Ȕhigh$(gme%,J%),high$(gme%,J%+1)
n�
x�
�	�srt%
��
�
nuw%=0
��J%=1�10
��high$(gme%,J%)=a$:nuw%=J%
��
��
���pause
�符-56:�
�%�for%�same("pr�t")��same("ready")
��
�
���-56
��
��error
�3,7

*CLOSE
"ș"ABC_Colour",15
,ȗ�
6U�mess("ERROR - INSERT DISC (NOT WRITE PROTECTED) INTO DRIVE AND PRESS RETURN",11)
@ș"ABC_Palette"
J�
T��leave
^�savenewresults
h�
r�
|��delay(del%)
��
�Ȗ
�del%-=1
��del%<0
��
���title(z$,Y%,C%)
�R�for%x$="Dix sur Dix Syst�mes Educatifs"�x$="10 out of 10 Educational Systems"
�xsc%=320-�(x$)*8
�&ș"ABC_PryntString",x$,xsc%,Y%,1,7
�+ș"ABC_PryntString",x$,xsc%-2,Y%+1,1,C%
�
Y%-=24
�&�for%y$="Pr�sentent"�y$="Presents"
�xsc%=320-�(y$)*8
&ș"ABC_PryntString",y$,xsc%,Y%,1,7
+ș"ABC_PryntString",y$,xsc%-2,Y%+1,1,C%

Y%-=24
&xsc%=320-�(z$)*8
0&ș"ABC_PryntString",z$,xsc%,Y%,1,7
:+ș"ABC_PryntString",z$,xsc%-2,Y%+1,1,C%
D�
N��mess(t$,col%)
X�0,col%
b�5
lȖ
vȓȐ0,0,1278,64
��0,0
�ȓ0,0,1278,64
��640-�(t$)*8,44
��t$
��4
��
��
���point(a$,mos%)
��wre%,par%,dat%
��wre%1088,par%20,dat%256
�h%=�(f$+a$)
��J%=0�32
��K%=0�32
wre%?(K%*32+J%)=�#h%
�
�
 �#h%
*!par%=&20080200
4par%?1=mos%
>par%!4=0
Hpar%!6=dat%
R
mma%=dat%
\�J%=32�1��
f�K%=0�7
p
�L%=3�0��
zval%=wre%?(J%*32+K%*4+L%)
�0�val%=&FF:par%?4=K%*4+L%:par%?5=31-J%:val%=0
�?mma%=?mma%<<2
�?mma%+=val%
��
�mma%+=1
��
��
�ș"OS_Word",21,par%
��
���wings(l$,x%,y%)
�W�for%ș"ABC_UnpackSprite","wingsfor",j%,x%,y%�ș"ABC_UnpackSprite","wings",j%,x%,y%
��5
�	�0,11
	�(x%*2+298)-�(l$)*8,y%*4-40
	�l$
	�4
	$�
	.�
	8#��noise(s$,chn%,vol%,pit%,dur%)
	B�
	L	��:�
	V
ȡchn%,s$
	`�chn%,vol%,pit%,dur%
	j�
	t��input(tot%,tax%,tay%)
	~*FX21 0
	�
cnt%=0
	�	i$=""
	��
	��
	��
	�k%=�(1)
	��k%=13�k%>31� k%<128
	��k%=127� cnt%>0�
	�cnt%-=1
	�i$=�i$,cnt%)
	��tax%,tay%)i$;�(1)
	��
�k%<>127

�k%<>13� cnt%<>tot%�
�cnt%=0�
.�(k%)>="a"��(k%)<="z"i$=�(k%-32)�i$=�(k%)
(�
20�(k%)>="A"��(k%)<="Z"i$+=�(k%+32)�i$+=�(k%)
<�
F�tax%,tay%)i$;�(1)
Pcnt%+=1
Z�
d�k%<>13� cnt%=tot%:�7
n
�k%=13
x�
�&��infocard(t$,tax%,tay%,sdx%,syy%)
��5
��0,8
�,ȓȐtax%*g%,tay%*g%,sdx%*160+160,syy%*f%
��0,3
�0ȓȐtax%*g%+320,tay%*g%,sdx%*160-162,syy%*f%
��0,0
�3�sdx%*160+160>=1280 srx%=1278�srx%=sdx%*160+160
�"ȓtax%*g%,tay%*g%,srx%,syy%*f%
�	�0,13
�"�tax%*g%+f%,tay%*g%+syy%*f%+f%
��0,�(t$)*g%,0
��85,tax%*g%,tay%*g%+syy%*f%
�81,128+�(t$)*g%,0
�0,0
�tax%*g%,tay%*g%+syy%*f%
"�1,f%,f%
,�1,�(t$)*g%,0
6
�1,f%,-f%
@"�tax%*g%+f%,tay%*g%+syy%*f%+44
J�t$
T�J%=1�sdx%
^�tax%*g%+J%*160+160,tay%*g%
h�1,0,syy%*f%
r�
|�J%=1�syy%
��tax%*g%,tay%*g%+J%*f%
��1,sdx%*160+160,0
��
��4
��
��
���cent(t$,tay%)
��40-�(t$)�2,tay%)t$;
��
���savenewresults
��attend$="":�
�2h%=�(f$+"Achieve.Achieve"+�(cla%)+"."+attend$)
��L%=0�4
�K%=1�6
�J%=1�6
�#h%,att%(J%,K%,L%)
&�
0�
:�
D�#h%
Nh%=�(f$+"Tables")
X�K%=1�6
b�J%=1�10
l�#h%,high$(K%,J%)
v�#h%,scores%(K%,J%)
��
��
��#h%
��
���mouse1
�ȗ�1,255,255,0
�ȗ�2,255,0,0
�ȗ�3,192,192,192
�ȗ�1
��
���sqr(wch%,col%)
��0,col%
�ȓȐ706,wch%*f%+164,156,58

�

��insert(tay%,v$)

�728,tay%*32-20

 �v$

*�

4��information

>ȗȓ798,356,160,384

Hȗ�858,356

Rș"ABC_Blank",15

\ș"ABC_Colour",15

f+ș"ABC_UnpackSprite","mouse",j%,512,182

p&�infocard("INFORMATION",20,22,3,7)

z�fillinformation(13,15)

�
p$="X"

�
cly%=0

�inz%=68

�
oyy%=1

�ș"ABC_Palette"

��zeromouse

��

�ȗmox%,moy%,but%

�,�moy%>740 cly%=0�cly%=(�(moy%-740)�f%)+1

��cly%>6:cly%=6

��cly%<>oyy%�

��5

��0,8
Ȗ
ȓȐ352,748-oyy%*64,272,32
�0,0
$�352,782-oyy%*64
.�info$(gme%,oyy%),16)
8
oyy%=cly%
B�4
L�
Vinz%=68
`tex%=�(info$(gme%,oyy%))
jp$=info$(gme%,oyy%)
t�
~
�tex%>16�
�par%=cly%*&1400
��Carousel,par%
��inz%�4=0:�char
�inz%+=1
��
���leave
��7
��
�
��char
��(inz%>>2)>tex%+8:inz%=4
��(inz%>>2)>tex%:�
�ysc%=(784-oyy%*64)>>2
3ș"ABC_PryntString",�p$,inz%>>2,1),304,ysc%,0,0

�
��loaddetails
r�att%(6,6,4),info$(6,6),dat$(23),scores%(6,11),scr%(4),high$(6,11),name$(4),rat$(1,11),ncl$(6),mnu$(9),asm%256
(ncl$(1)="1"
2ncl$(2)="2/3"
<ncl$(3)="3/4"
Fncl$(4)="5/6"
Pncl$(5)="6/7"
Zncl$(6)="8/9/10"
drat$(0,1)="pathetic"
nrat$(0,2)="poor"
xrat$(0,3)="could do better"
�rat$(0,4)="keep trying"
�rat$(0,5)="fair"
�rat$(0,6)="pretty clever"
�rat$(0,7)="not too bad"
�rat$(0,8)="nearly there"
�rat$(0,9)="good work"
�rat$(0,10)="genius"
�rat$(1,1)="lamentable"
�rat$(1,2)="faible"
�$rat$(1,3)="pourrait mieux faire"
�&rat$(1,4)="ne vous d�couragez pas"
�rat$(1,5)="assez bien"
�rat$(1,6)="super"
rat$(1,7)="pas trop mal"
 rat$(1,8)="encore un effort"
rat$(1,9)="tr�s bien"
"rat$(1,10)="un g�nie"
,rat$(0,0)=rat$(0,1)
6rat$(1,0)=rat$(1,1)
@rat$(0,11)=rat$(0,10)
Jrat$(1,11)=rat$(1,10)
Tș"ABC_VideoAddress"�vid%
^
�A%=0�2�2
hP%=asm%
r
[OPTA%
|
.Carousel
�[MOV R0,#19:SWI "XOS_Byte":LDR R12,[R9]:LDR R0,[R12]:LDR R1,vid:ADD R0,R1,R0:MOV R2,#&44
�.rectangle
�GLDRB R1,[R0,#&1]:STRB R1,[R0]:LDRB R1,[R0,#&141]:STRB R1,[R0,#&140]
�OLDRB R1,[R0,#&281]:STRB R1,[R0,#&280]:LDRB R1,[R0,#&3C1]:STRB R1,[R0,#&3C0]
�OLDRB R1,[R0,#&501]:STRB R1,[R0,#&500]:LDRB R1,[R0,#&641]:STRB R1,[R0,#&640]
�OLDRB R1,[R0,#&781]:STRB R1,[R0,#&780]:LDRB R1,[R0,#&8C1]:STRB R1,[R0,#&8C0]
�)LDRB R1,[R0,#&A01]:STRB R1,[R0,#&A00]
�:ADD R0,R0,#&1:SUBS R2,R2,#&1:BNE rectangle:MOV R15,R14
�.MenuCarousel
�[MOV R0,#19:SWI "XOS_Byte":LDR R12,[R9]:LDR R0,[R12]:LDR R1,men:ADD R0,R1,R0:MOV R2,#&48
�BAL rectangle
�.vid EQUD vid%+&4B58
�.men EQUD vid%+&4A24
]
�

box%=0
&
e%=160
0	f%=64
:	g%=16
D
fnc%=�
N
ply%=1
X
rpy%=�
b
san%=0
l
snd%=�
v
sub%=0
�
sun%=0
�h%=�(f$+"Configure")
�Q�#h%,rat%,nig%,sds%,ver%,grd%,cla%,typ$,hed%,fut%,pap%,pix%,frn%,attend$,cod%
��#h%
�
grd%=1
�h%=�(f$+"Tables")
��K%=1�6
��J%=1�10
�$�#h%,high$(K%,J%),scores%(K%,J%)
��
��
��#h%
�h%=�("ram:FactFile")
�J%=1�6
�K%=1�6
�#h%,info$(J%,K%)
 7�nig%:info$(J%,K%)="LoA "+ncl$(K%)+" "+info$(J%,K%)
*�
4�
>�#h%
H�attend$=""�
Ratt%()=0
\�
f2h%=�(f$+"Achieve.Achieve"+�(cla%)+"."+attend$)
p�L%=0�4
z�K%=1�6
��J%=1�6
��#h%,att%(J%,K%,L%)
��
��
��
��#h%
��
��
���sound
�符-2:fnc%=�:�
��fnc%:�
�
�-31�
�
fnc%=�
snd%=�snd%
%�snd%�"VOLUME "+�(M%)��"VOLUME 1"
�
$�
.��flush
8*FX21 9
B�
L��numbername
Vȗ�
`�rpy%:�7:�enternames
j
rpy%=�
t�
~ݤarea(x1%,y1%,x2%,y2%)
��mox%<x1%�mox%>x2%:=�
��moy%<y1%�moy%>y2%:=�
�=�
�"��card(t$,tax%,tay%,szx%,szy%)
��5
��0,8
�*ȓȐtax%*g%,tay%*g%,szx%*e%+e%,szy%*f%
�	�0,11
�/ȓȐtax%*g%+320,tay%*g%,szx%*e%-162,szy%*f%
��0,0
�/�szx%*e%+e%>=1280 srx%=1278�srx%=szx%*e%+e%
�"ȓtax%*g%,tay%*g%,srx%,szy%*f%
	�0,13

"�tax%*g%+f%,tay%*g%+szy%*f%+f%
�0,�(t$)*g%,0
�85,tax%*g%,tay%*g%+szy%*f%
(�81,128+�(t$)*g%,0
2�0,0
<�tax%*g%,tay%*g%+szy%*f%
F�1,f%,f%
P�1,�(t$)*g%,0
Z
�1,f%,-f%
d"�tax%*g%+f%,tay%*g%+szy%*f%+44
n�t$
x�J%=1�szx%
��tax%*g%+J%*e%+e%,tay%*g%
��1,0,szy%*f%
��
��J%=1�szy%
��tax%*g%,tay%*g%+J%*f%
��1,szx%*e%+e%,0
��
��4
��
��
���instructions
�符-38:�
��7
ȗ�
ș"ABC_Blank",15
ș"ABC_Colour",15
"�136
,�
6�0,5
@ȓȐ240,0,1040,1020
J�0,0
Tȓ0,0,1278,1020
^�0
hK%=0
rY%=1
|�J%=1�6
��0
��136
��1,Y%)typ$" "J%"     -"
��133
��16,Y%)info$(gme%,J%)
�	Y%+=1
��X%=1�4
��14
��136
��1,Y%)"practice f"X%" -"
��9
��133
��16,Y%)dat$(K%)
	K%+=1
	Y%+=1
�
&�
0�0,0
:�240,0,240,1020
Dș"ABC_Palette"
N�
X��leave
b�7
l�sun%>0 sun%-=1�sun%=1
v	�menu
��
���amoun
��J%=1�4
��name$(J%)>""�
�3ș"ABC_PryntString",name$(J%),132,228-J%*18,1,7
�6ș"ABC_PryntString",name$(J%),134,229-J%*18,1,J%+7
�-ș"ABC_PryntString",":",312,228-J%*18,1,7
�0ș"ABC_PryntString",":",314,229-J%*18,1,J%+7
�5ș"ABC_PryntString",�(scr%(J%)),360,228-J%*18,1,7
�8ș"ABC_PryntString",�(scr%(J%)),362,229-J%*18,1,J%+7
�3ș"ABC_PryntString",�(Q%)+"%",470,228-J%*18,1,7
�6ș"ABC_PryntString",�(Q%)+"%",472,229-J%*18,1,J%+7
��
1ș"ABC_PryntString",�8,"-"),132,228-J%*18,1,7
4ș"ABC_PryntString",�8,"-"),134,229-J%*18,1,J%+7
-ș"ABC_PryntString","-",312,228-J%*18,1,7
 0ș"ABC_PryntString","-",314,229-J%*18,1,J%+7
*-ș"ABC_PryntString","-",360,228-J%*18,1,7
40ș"ABC_PryntString","-",362,229-J%*18,1,J%+7
>-ș"ABC_PryntString","-",470,228-J%*18,1,7
H0ș"ABC_PryntString","-",472,229-J%*18,1,J%+7
R�
\�
f�
p��enternames
zname$()=""
��ply%=1:name$(1)=attend$:�
�ș"ABC_Blank",3
�ș"ABC_Colour",3
�	�0,12
�ȓȐ200,180,896,632
��0,7
�ȓ200,180,896,632
�H�for%�wings("ENTRER LES NOMS",172,188)��wings("ENTER NAMES",172,188)
��140
�ș"ABC_Palette"
��J%=1�ply%
��11
�B�for%�30,12+J%*2)"JOUEUR "J%" >"��30,12+J%*2)"PLAYER "J%" >"
�13
�input(8,42,12+J%*2)
�7
$�i$=""�
..�for%i$="Joueur "+�(J%)�i$="Player "+�(J%)
8�42,12+J%*2)i$
B�
Lname$(J%)=i$
V�
`�delay(50)
j�
tݤinitialcompressed(s$)
~h%=�(f$+s$)
�
len%=�#h%
��#h%
��z%len%
��"LOAD "+f$+s$+" "+�~(z%)
�=z%
�
��upgrade
�rem%=att%(gme%,grd%,sub%)
�9�Q%>99�att%(gme%,grd%,sub%)>2:att%(gme%,grd%,sub%)+=1
�8�Q%>99�att%(gme%,grd%,sub%)<3:att%(gme%,grd%,sub%)=3
�8�Q%>49�att%(gme%,grd%,sub%)<2:att%(gme%,grd%,sub%)=2
�2�att%(gme%,grd%,sub%)=0:att%(gme%,grd%,sub%)=1
��
ݤvalidatenumber(a$)


�a$="":=�
K%=�
�J%=1��(a$)
(%�a$,J%,1)<"0"��a$,J%,1)>"9":K%=�
2�
<=K%
Fݤcount(a$,t$)
P
ctr%=0
Z�W%=1��(a$)
d�a$,W%,1)=t$:ctr%+=1
n�
x	=ctr%
�ݤextract(RETURNa$)
�z$=�a$,�a$,",")-1)
�a$=�a$,�a$,",")+1)
�=z$
���fireworks
��Q%<80:�
�ș"ABC_Blank",7
�ș"ABC_Colour",7
�#�noise("End",4,&17F,&1000,&100)
�G�for%�wings("FIN DE LA PARTIE",172,230)��wings("GAME OVER",172,230)
�ș"ABC_Palette"
��pattern
��
��graphics(z$,bcl%)
符-2:�
�-23:�display(23,1)
"�-119:�display(119,2)
,�-120:�display(120,3)
6�
@��reveal(bcl%,for%,mos%)
J符-52:�
Tȗ�
^�7
h!ș"ABC_Transfer",0,136,640,18
rt$=info$(gme%,grd%)
|�nig%:t$=�t$,�t$," ")+1)
��5
��0,bcl%
�Ȗ
�ȓȐ0,476,1278,68
��0,for%
�ȓ0,476,1278,68
��0,0
��640-�(t$)*8,524
��t$
��4
��
��
���leave
ș"ABC_Restore"
Ȏmos%�
�1:�mouse1
&�2:�mouse2
0�
:�
D(��rec(bcl%,mcl%,ssx%,ssy%,xwd%,yht%)
N�0,mcl%
XȓȐssx%,ssy%,xwd%,yht%
b�J%=0�3
l�0,bcl%
v#ȓssx%+J%*4,ssy%+J%*4,xwd%,yht%
�'ȓssx%+J%*4+2,ssy%+J%*4,xwd%-4,yht%
�xwd%-=8
�yht%-=8
��
��
���random
�ȗ�
�ș"ABC_Blank",3
�ș"ABC_Colour",3
�	�0,12
�ȓȐ200,180,896,632
��0,7
�ȓ200,180,896,632
K�for%�wings("ENTRER LE CHIFFRE",172,188)��wings("ENTER NUMBER",172,188)
*ș"ABC_UnpackSprite","small",j%,440,96
*ș"ABC_UnpackSprite","small",j%,120,96
 �140
*�
4�7
>b�for%�cent("Entrer le chiffre entre 1 et 9999",14)��cent("Enter number between 1 and 9999",14)
H�cent(">      <",16)
R�10
\ș"ABC_Palette"
f�input(4,38,16)
pJ%=�validatenumber(i$)
z	�J%�
��7
��11
�a�for%�cent("Ceci n'est pas un chiffre - recommencer",18)��cent("Not a number - try again",18)
��delay(100)
��cent(�25," "),18)
��
��J%
�sed%=�(i$)
�R%=�(-sed%)
��
�
��spaceor
�
�for%�
�a$="appuyer sur l'espace"
b$="ou"
c$="appuyer sur la souris"
�
$a$="press space"
.b$="or"
8c$="click mouse"
B�
Lxsc%=320-�(a$)*8
V&ș"ABC_PryntString",a$,xsc%,67,1,7
`(ș"ABC_PryntString",a$,xsc%+2,68,1,5
jxsc%=320-�(b$)*8
t&ș"ABC_PryntString",b$,xsc%,49,1,7
~(ș"ABC_PryntString",b$,xsc%+2,50,1,5
�xsc%=320-�(c$)*8
�&ș"ABC_PryntString",c$,xsc%,31,1,7
�(ș"ABC_PryntString",c$,xsc%+2,32,1,5
��
���entry
��tab%:�
�
�for%�
�+a$="grille des resultats eleves change"
�$ș"ABC_PryntString",a$,50,84,1,7
�%ș"ABC_PryntString",a$,52,85,1,11
��
�!a$="high score table changed"
%ș"ABC_PryntString",a$,132,84,1,7

&ș"ABC_PryntString",a$,134,85,1,11
�
�
(��fillmenu
2inj%=72
<
omy%=1
F
txt%=1
P	d$=""
Z�5
d�0,0
n�J%=0�7
x�s$
��400,780-J%*f%
�
�J%=6�
�
�for%�
�#�ver%s$="Cat�gorie"�s$="Niveau"
��
�s$=typ$
��
��
��s$,17)
�mnu$(J%)=s$
��
�	�0,14
��J%=8�9
�s$
�400,780-J%*f%
�s$,17)
"mnu$(J%)=s$
,�
6�4
@�
J�J%=0�9
T�int(J%)
^�
h�
r��report
|ȗ�
��zeromouse
�
�flush
��anyprogress
�
�limit
��fireworks
�ș"ABC_Blank",3
�ș"ABC_Colour",3
�	�0,12
�
�for%�
�ȓȐ72,0,1136,1020
��0,7
�ȓ72,0,1136,1020
�*ș"ABC_UnpackSprite","small",j%,504,54
 )ș"ABC_UnpackSprite","small",j%,54,54
 �
 ȓȐ200,0,896,1020
 &�0,7
 0ȓ200,0,896,1020
 :*ș"ABC_UnpackSprite","small",j%,440,54
 D*ș"ABC_UnpackSprite","small",j%,118,54
 N�
 XG�for%�wings("FIN DE LA PARTIE",170,248)��wings("GAME OVER",170,248)
 b�spaceor
 l
�extra
 v
�amoun
 ��colbox
 ��rating
 �
�entry
 �ș"ABC_Palette"
 ��
 ���leave
 ��
 ���zeromouse
 ��
 �ȗmox%,moy%,but%
 ��but%=0
 ��
 �ݤleave
!ȗmox%,moy%,but%
!�-99��-74�but%>0�=�
!�
! ȗmox%,moy%,but%
!*���-99���-74�but%=0
!4*FX21 9
!>=�
!H
��quit
!Rȗ�
!\ș"Hourglass_On"
!fȗȓ0,0,1280,1024
!pș"ABC_Colour",15
!z�savenewresults
!��"ram:Menu"
!���volume
!�M%=(M%+g%)�&7F
!��"VOLUME "+�(M%)
!�
upd%=�
!��
!�
��players
!�ply%+=1
!��ply%>4:ply%=1
!�
rpy%=�
!�
upd%=�
!��
!���menuclean
"�upd%:�menu
"�zeromouse
"Ȗ
"$�sqr(sun%,11)
".�sqr(box%,15)
"8�int(sun%)
"B�int(box%)
"L
sun%=box%
"V�
"`��limit
"j
bnd%=1
"t�J%=1�6
"~ �att%(gme%,J%,0)>1:bnd%=J%+1
"��
"��bnd%>6:bnd%=6
"��
"�ݤforeignlevel(cap%)
"�
�ver%�
"�"�for%z$="cat�gorie"�z$="grade"
"��
"��for%z$="niveau"�z$="level"
"��
"� �cap%:�z$,1)=�(�(�z$,1))-32)
"�=z$
"�
��foreign
#
�frn%�
#

for%=�
#�
#�grd%<4 for%=��for%=�
#(�
#2�
#<��extra
#F�att%(gme%,grd%,0)=1�
#P
�for%�
#ZLa$="Appuyer sur les touches f1 � f4 pour un entrainement suppl�mentaire"
#dxsc%=320-�(a$)*4
#n&ș"ABC_PryntString",a$,xsc%,11,0,7
#x)ș"ABC_PryntString",a$,xsc%+1,12,0,11
#��
#�4a$="Then press keys f1 to f4 for extra practice"
#�xsc%=320-�(a$)*4
#�&ș"ABC_PryntString",a$,xsc%,11,0,7
#�)ș"ABC_PryntString",a$,xsc%+1,12,0,11
#��
#��
#��
#���practice
#�
�-2:�
#�L%=0
#��-114:L%=1
#��-115:L%=2
$�-116:L%=3
$�-21:L%=4
$�L%=0:�
$"�7
$,sub%=L%
$6Ȗ
$@ �box%=3�sqr(3,15)��sqr(3,11)
$J�int(3)
$T�
$^���-114���-115���-116���-21
$h�
$r��colour(val%)
$|Ȏval%�
$��0:�0,7
$��1:�0,11
$��2:�0,14
$��3,4,5,6,7,8,9,10,11:�0,10
$�:�0,15
$��
$��
$�%��largeinput(tot%,tax%,tay%,col%)
$�*FX21 0
$�
cnt%=0
$�	i$=""
$��0,col%
$��
%�
%�
%k%=�(1)
%&�k%=13�k%>31� k%<128
%0�k%=127� cnt%>0�
%:cnt%-=1
%Di$=�i$,cnt%)
%NȖ
%X(ș"ABC_PryntString",i$,tax%,tay%,1,7
%b,ș"ABC_PryntString",i$,tax%-2,tay%+1,1,9
%l'ȓȐtax%*2+�(i$)*32,tay%*4-64,32,64
%v�
%��k%<>127
%��k%<>13� cnt%<>tot%�
%�
i$+=�(k%)
%�Ȗ
%�(ș"ABC_PryntString",i$,tax%,tay%,1,7
%�,ș"ABC_PryntString",i$,tax%-2,tay%+1,1,9
%�cnt%+=1
%��
%��k%<>13� cnt%=tot%:�7
%�
�k%=13
%��
%�
��pattern
%��=0
&
noi%=�
&ȕ�<500
&noi%=�noi%
& )�noi%:�noise("Ping",2,&17F,&6000,&10)
&*�explode(�(1280),�(1024))
&4�
&>�29,0;0;
&H�
&R��explode(xsc%,ysc%)
&\�29,xsc%;ysc%;
&f	K%=50
&p	�K%,0
&z�J%=0�1800�20
&�
�0,�(4)+7
&�	K%+=1
&��K%*��(J%),K%*��(J%)
&��
&��
&���display(kee%,gra%)
&�
pix%=gra%
&�ȗ�
&��7
&�ș"ABC_Blank",bcl%
&�ș"ABC_Colour",bcl%
&�
�128+bcl%
&��0
']�for%�cent("Cet image est utilis� pour "+z$,10)��cent("This graphic used for the "+z$,10)
'/ș"ABC_UnpackSprite","z"+�(pix%),z%,272,148
'ș"ABC_Palette"
'$�
'.���-kee%
'8�sun%=0 sun%=1�sun%-=1
'B	�menu
'L�
'V
��data
'`�J%=0�23
'j�a$
'tdat$(J%)=a$
'~�
'��
'�ݤexcise(�a$,x$)
'�z$=�a$,�a$,x$)-1)
'�a$=�a$,�a$,x$)+1)
'�=z$
'�ݤsubnum(num%)
'�add%=z%+z%!(num%<<4)
'�=add%?13
'�ݤalias(num%)
'�add%=z%+z%!(num%<<4)
'�add%+=add%!8
'�	a$=""
(
ȕ?add%>0
(
a$+=�(?add%)
(add%+=1
(�
((=a$
(2ݤname(num%)
(<add%=z%+z%!(num%<<4)
(Fadd%+=add%!4
(P	a$=""
(Z
ȕ?add%>0
(da$+=�(?add%)
(nadd%+=1
(x�
(�=a$
(�ݤlowercase(a$)
(��W%=1��(a$)
(�w$=�a$,W%,1)
(�+�w$>="A"� w$<="Z":�a$,W%,1)=�(�(w$)+32)
(��
(�=a$
(�ݤchoose
(��sub%=0�
(��
(�
�ser%�
(�X%=lnr%
(�lnr%+=1
)�lnr%>1500:lnr%=1
)�
)X%=�(1500)
)"�
),�wrd$(grd%,X%)>""� X%<>pre%
)6�
)@�
)J
�ser%�
)TX%=lnr%
)^lnr%+=1
)h�lnr%>1500:lnr%=1
)r�
)|X%=�(1500)
)��
)�3�wrd$(grd%,X%)>""� knd%(grd%,X%)=sub%� X%<>pre%
)��
)�=wrd$(grd%,X%)
)���start
)��
)�
���-99
)�
tim%=�
)�
san%=0
)��
)��7
)�ș"ABC_Blank",3
)�ș"ABC_Colour",3
*a$="START NUMBER"
*xsc%=320-�(a$)*8
*'ș"ABC_PryntString",a$,xsc%,160,1,7
*&*ș"ABC_PryntString",a$,xsc%-2,161,1,11
*0ș"ABC_Palette"
*:�largeinput(4,296,120,3)
*Dfol%=�(i$)
*N�fol%<1�fol%>1500:�7
*X*�fol%>0� fol%<1501��validatenumber(i$)
*bș"ABC_Colour",3
*l
lnr%=fol%
*v
ser%=�
*��
*���splitup(a$)
*�
spt$()=""
*�J%=1
*�ȕ�a$," ")>0
*� prt$(J%)=" "+�a$,�a$," ")-1)
*�a$=�a$,�a$," ")+1)
*�	J%+=1
*��
*�prt$(J%)=" "+a$
*�L%=1
*��K%=1�J%
*��(spt$(L%)+prt$(K%))<14�
+4�spt$(L%)=""spt$(L%)=prt$(K%)�spt$(L%)+=prt$(K%)
+�
+	L%+=1
+ spt$(L%)=prt$(K%)
+*�
+4�
+>�J%=1�3
+Hȕ�spt$(J%),1)=" "
+Rspt$(J%)=�spt$(J%),2)
+\�
+f�
+p�spt$(2)=""� spt$(3)=""�
+zspt$(2)=spt$(1)
+�spt$(1)=""
+�spt$(3)=""
+��
+��
+�
��highest
+�
tab%=�
+��ent%=1�ply%
+�scores%(gme%,11)=scr%(ent%)
+�&a$=��$,5,11)+" Grade "+�(grd%)+" "
+�'�ply%>1 b$=�(Q%)+"%."�b$=�(Q%)+"% "
+� �(b$)<5:b$=�5-�(b$)," ")+b$
+�(high$(gme%,11)=a$+b$+" "+name$(ent%)
+�E�high$(gme%,11),"Joueur")>0:��high$(gme%,11),"Joueur"))="Player"
,�sortscores
,�
,�
,$��rating
,.�rat%:�
,8
�for%�
,Ba$="Note : "+rat$(1,Q%�10)
,L%ș"ABC_PryntString",a$,66,106,1,7
,V%ș"ABC_PryntString",a$,68,107,1,8
,`�
,j a$="Rating : "+rat$(0,Q%�10)
,t&ș"ABC_PryntString",a$,132,106,1,7
,~&ș"ABC_PryntString",a$,134,107,1,8
,��
,��
,���colbox
,��ply%>1�sub%>0�attend$="":�
,��Q%>99:now%=3
,��Q%>49�Q%<100:now%=2
,��Q%<50:now%=1
,�Ȏnow%�
,��1,2
,�
�for%�
,�)�rem%<now%:a$="changement de couleur"
,�%�now%=rem%:a$="pas de changement"
-�rem%>now%:a$="recommencer"
-
�
-"�rem%<now%:a$="colour changed"
-�now%=rem%:a$="no change"
-(�rem%>now%:a$="try again"
-2�
-<�3
-F
�for%�
-P&�rem%<3:a$="changement de couleur"
-Z(�rem%>2�rem%<11:a$="essayer le bleu"
-d�rem%>10:a$="bleu"
-n�
-x�rem%<3:a$="colour changed"
-�%�rem%>2�rem%<11:a$="try for blue"
-��rem%>10:a$="blue"
-��
-��
-�L�for%a$=�foreignlevel(�)+" "+�(grd%)+" "+a$�a$=typ$+" "+�(grd%)+"   "+a$
-�
�for%�
-�%ș"ABC_PryntString",a$,66,132,1,7
-�&ș"ABC_PryntString",a$,68,133,1,14
-��
-�&ș"ABC_PryntString",a$,132,132,1,7
-�'ș"ABC_PryntString",a$,134,133,1,14
-��
-��
.��longmenu
.�box%<>omy%�
.�5
."�0,8
.,Ȗ
.6ȓȐ400,172+omy%*64,288,32
.@�omy%<2�0,14��0,0
.J�400,204+omy%*64
.T�mnu$(9-omy%),17)
.^
omy%=box%
.h�4
.r�
.|inj%=72
.�txt%=�(mnu$(9-omy%))
.�d$=mnu$(9-omy%)
.��
.�
�txt%>17�
.�par%=(9-box%)*&1400
.��MenuCarousel,par%
.��inj%�4=0:�menuchar
.�inj%+=1
.��
.��
.���menuchar
.��(inj%>>2)>txt%+8:inj%=4
.��(inj%>>2)>txt%:�
/�omy%<2 col%=14�col%=0
/<ș"ABC_PryntString",�d$,inj%>>2,1),336,52+omy%*16,0,col%
/�
/& ��fillinformation(tax%,tay%)
/0�5
/:�0,0
/D �tax%*32-f%,1024-(tay%*g%+4)
/Na$=�foreignlevel(�)
/X
�for%�
/b#�"R�sultat            Couleur";
/l�ver%�0,28,0��0,48,0
/v�a$
/��
/�(�"Attainment          Colour    "+a$
/��
/��J%=1�6
/��colour(att%(gme%,J%,0))
/�ȓȐ642,740-J%*64,156,56
/��
/��J%=1�6
/��0,7
/�'�tax%*32+448,1024-(tay%*g%+J%*f%+4)
/��J%
/�'�tax%*32+256,1024-(tay%*g%+J%*f%+4)
/��0,0
0&�tax%*32-f%,1024-(tay%*g%+J%*f%+4)
0�info$(gme%,J%),16)
0%�tax%*32+448,1024-(tay%*g%+J%*f%)
0 �J%
0*%�tax%*32+256,1024-(tay%*g%+J%*f%)
04�att%(gme%,J%,0)<3�
0>xsc%=tax%*32+250
0Hysc%=984-(tay%*g%+J%*f%)
0R�L%=1�4
0\�colour(att%(gme%,J%,L%))
0fȓȐxsc%,ysc%+4,18,40
0p�0,7
0z�xsc%+2,ysc%+36
0�
�(96+L%)
0��0,0
0��xsc%+2,ysc%+40
0�
�(96+L%)
0�xsc%+=28
0��
0��
0��
0��4
0��
0��
0�
��trap
0�ȗ�
1�26
1
*CLOSE
1�sun%=0 sun%=1�sun%-=1
1$�
1.��loadwords
18�cod%,str%
1Bh%=�(e$)
1L
end%=�#h%
1V�#h%
1`/�wrd$(6,1500),knd%(6,1500),cod%512,str%end%
1j
�A%=0�2�2
1tP%=cod%
1~
[OPTA%
1�5LDR R0,addr:ADR R1,buff:MOV R2,#&0:LDR R3,addr+&4
1�	.read
1�+LDRB R4,[R0],#&1:CMP R4,#&20:BLT finish
1�4STRB R4,[R1,R2]:ADD R2,R2,#&1:CMP R0,R3:BLT read
1�.finish
1�(CMP R2,#&FF:MOVGE R2,#&FF:MOV R4,#&D
1�+STRB R4,[R1,R2]:STR R0,addr:MOV R15,R14
1�	.addr
1�
EQUD str%
1�EQUD str%+end%
1�	.buff
1�]
2�
2
�"LOAD "+e$+" "+�~(str%)
2b$="GRADE"
2
c$="/"
2(
d$="$"
22end%+=str%
2<
lvl%=1
2F
que%=1
2Pȕque%<1500�!addr<end%
2Z	�cod%
2da$=$buff
2nȕ�a$,1)=" "
2x
a$=�a$,2)
2��
2�ȕ�a$)=" "
2�a$=�a$)
2��
2��a$,b$)>0�exgrade��words
2��
2��
2�
��exgrade
2��J%=1��(a$)
2�5�a$,J%,1)>"0"��a$,J%,1)<"7":lvl%=�(�a$,J%,1))-48
2��
2�
que%=1
2��
3��words
3�a$,d$)>0�a$="":�
3�a$,2,1)=c$�
3"knd%(lvl%,que%)=�(a$)-48
3,:�knd%(lvl%,que%)<1�knd%(lvl%,que%)>4:knd%(lvl%,que%)=1
36"wrd$(lvl%,que%)=�a$,�a$,c$)+1)
3@�
3Jwrd$(lvl%,que%)=a$
3T�
3^que%+=1
3h�
3r��grade
3|
sub%=0
3�
�limit
3��bnd%>1:grd%=grd%�&7
3�
tem%=for%
3��foreign
3��tem%<>for%upd%=��upd%=�
3��
�
00000000  0d 00 0a 22 f4 20 3e 3c  44 69 73 63 31 24 44 69  |...". ><Disc1$Di|
00000010  72 3e 2e 53 69 78 47 61  6d 65 73 2e 43 6f 6d 6d  |r>.SixGames.Comm|
00000020  6f 6e 0d 00 14 0f dd f2  68 69 67 68 73 63 6f 72  |on......highscor|
00000030  65 0d 00 1e 14 c8 99 22  41 42 43 5f 42 6c 61 6e  |e......"ABC_Blan|
00000040  6b 22 2c 31 35 0d 00 28  15 c8 99 22 41 42 43 5f  |k",15..(..."ABC_|
00000050  43 6f 6c 6f 75 72 22 2c  31 35 0d 00 32 07 c8 97  |Colour",15..2...|
00000060  87 0d 00 3c 2a c8 99 22  41 42 43 5f 55 6e 70 61  |...<*.."ABC_Unpa|
00000070  63 6b 53 70 72 69 74 65  22 2c 22 6d 6f 75 73 65  |ckSprite","mouse|
00000080  22 2c 6a 25 2c 35 31 32  2c 37 34 0d 00 46 22 e7  |",j%,512,74..F".|
00000090  66 6f 72 25 f2 66 6f 72  65 69 67 6e 68 69 67 68  |for%.foreignhigh|
000000a0  8b f2 65 6e 67 6c 69 73  68 68 69 67 68 0d 00 50  |..englishhigh..P|
000000b0  13 c8 99 22 41 42 43 5f  50 61 6c 65 74 74 65 22  |..."ABC_Palette"|
000000c0  0d 00 5a 05 f5 0d 00 64  0b fd a4 6c 65 61 76 65  |..Z....d...leave|
000000d0  0d 00 6e 06 ef 37 0d 00  78 05 e1 0d 00 82 11 dd  |..n..7..x.......|
000000e0  f2 66 6f 72 65 69 67 6e  68 69 67 68 0d 00 8c 19  |.foreignhigh....|
000000f0  74 24 3d 22 52 45 53 55  4c 54 41 54 53 20 45 4c  |t$="RESULTATS EL|
00000100  45 56 45 53 22 0d 00 96  0a 74 61 78 25 3d 39 0d  |EVES"....tax%=9.|
00000110  00 a0 0a 74 61 79 25 3d  32 0d 00 aa 0b 73 79 79  |...tay%=2....syy|
00000120  25 3d 31 33 0d 00 b4 06  ef 35 0d 00 be 09 e6 30  |%=13.....5.....0|
00000130  2c 31 33 0d 00 c8 22 ec  74 61 78 25 2a 67 25 2b  |,13...".tax%*g%+|
00000140  34 38 2c 74 61 79 25 2a  67 25 2b 73 79 79 25 2a  |48,tay%*g%+syy%*|
00000150  66 25 2b 34 38 0d 00 d2  11 f0 30 2c a9 28 74 24  |f%+48.....0,.(t$|
00000160  29 2a 67 25 2c 30 0d 00  dc 25 f0 38 35 2c 74 61  |)*g%,0...%.85,ta|
00000170  78 25 2a 67 25 2d 31 32  2c 74 61 79 25 2a 67 25  |x%*g%-12,tay%*g%|
00000180  2b 73 79 79 25 2a 66 25  2d 67 25 0d 00 e6 16 f0  |+syy%*f%-g%.....|
00000190  38 31 2c 31 32 38 2b a9  28 74 24 29 2a 67 25 2c  |81,128+.(t$)*g%,|
000001a0  30 0d 00 f0 08 e6 30 2c  30 0d 00 fa 22 ec 74 61  |0.....0,0...".ta|
000001b0  78 25 2a 67 25 2d 31 36  2c 74 61 79 25 2a 67 25  |x%*g%-16,tay%*g%|
000001c0  2b 73 79 79 25 2a 66 25  2d 67 25 0d 01 04 0c f0  |+syy%*f%-g%.....|
000001d0  31 2c 66 25 2c 66 25 0d  01 0e 13 f0 31 2c a9 28  |1,f%,f%.....1,.(|
000001e0  74 24 29 2a 67 25 2b 34  2c 30 0d 01 18 0d f0 31  |t$)*g%+4,0.....1|
000001f0  2c 66 25 2c 2d 66 25 0d  01 22 22 ec 74 61 78 25  |,f%,-f%.."".tax%|
00000200  2a 67 25 2b 34 38 2c 74  61 79 25 2a 67 25 2b 73  |*g%+48,tay%*g%+s|
00000210  79 79 25 2a 66 25 2b 32  34 0d 01 2c 07 f1 74 24  |yy%*f%+24..,..t$|
00000220  0d 01 36 0c e3 4a 25 3d  31 b8 31 30 0d 01 40 1a  |..6..J%=1.10..@.|
00000230  4b 25 3d 38 37 36 2d 28  74 61 79 25 2a 67 25 2b  |K%=876-(tay%*g%+|
00000240  4a 25 2a 66 25 29 0d 01  4a 0c 4c 25 3d 4b 25 2b  |J%*f%)..J.L%=K%+|
00000250  34 34 0d 01 54 10 e7 61  74 74 65 6e 64 24 3d 22  |44..T..attend$="|
00000260  22 8c 0d 01 5e 08 e6 30  2c 38 0d 01 68 05 cc 0d  |"...^..0,8..h...|
00000270  01 72 2c e7 a7 68 69 67  68 24 28 67 6d 65 25 2c  |.r,..high$(gme%,|
00000280  4a 25 29 2c 61 74 74 65  6e 64 24 2c 32 37 29 3e  |J%),attend$,27)>|
00000290  30 e6 30 2c 31 31 8b e6  30 2c 38 0d 01 7c 05 cd  |0.0,11..0,8..|..|
000002a0  0d 01 86 12 e7 6e 75 77  25 3d 4a 25 3a e6 30 2c  |.....nuw%=J%:.0,|
000002b0  31 34 0d 01 90 15 c8 93  c8 90 31 32 38 2c 4b 25  |14........128,K%|
000002c0  2c 38 39 36 2c 66 25 0d  01 9a 09 e6 30 2c 31 31  |,896,f%.....0,11|
000002d0  0d 01 a4 15 c8 93 c8 90  38 39 32 2c 4b 25 2c 31  |........892,K%,1|
000002e0  32 38 2c 66 25 0d 01 ae  08 e6 30 2c 30 0d 01 b8  |28,f%.....0,0...|
000002f0  13 c8 93 31 32 38 2c 4b  25 2c 38 39 36 2c 66 25  |...128,K%,896,f%|
00000300  0d 01 c2 13 c8 93 38 39  32 2c 4b 25 2c 31 33 30  |......892,K%,130|
00000310  2c 66 25 0d 01 cc 13 ec  74 61 78 25 2a 33 32 2d  |,f%.....tax%*32-|
00000320  31 34 34 2c 4c 25 0d 01  d6 0a f1 c3 28 4a 25 29  |144,L%......(J%)|
00000330  0d 01 e0 12 ec 74 61 78  25 2a 33 32 2d 39 36 2c  |.....tax%*32-96,|
00000340  4c 25 0d 01 ea 15 61 24  3d 68 69 67 68 24 28 67  |L%....a$=high$(g|
00000350  6d 65 25 2c 4a 25 29 0d  01 f4 0f 62 24 3d c1 61  |me%,J%)....b$=.a|
00000360  24 2c 34 2c 33 29 0d 01  fe 1c 61 24 3d c0 61 24  |$,4,3)....a$=.a$|
00000370  2c 33 29 2b 22 20 20 20  20 20 22 2b c1 61 24 2c  |,3)+"     "+.a$,|
00000380  37 29 0d 02 08 09 c8 8e  62 24 ca 0d 02 12 14 c9  |7)......b$......|
00000390  22 4a 61 6e 22 3a 62 24  3d 22 4a 61 6e 76 22 0d  |"Jan":b$="Janv".|
000003a0  02 1c 13 c9 22 46 65 62  22 3a 62 24 3d 22 46 e9  |...."Feb":b$="F.|
000003b0  76 22 0d 02 26 14 c9 22  4d 61 72 22 3a 62 24 3d  |v"..&.."Mar":b$=|
000003c0  22 4d 61 72 73 22 0d 02  30 13 c9 22 41 70 72 22  |"Mars"..0.."Apr"|
000003d0  3a 62 24 3d 22 41 76 72  22 0d 02 3a 13 c9 22 4d  |:b$="Avr"..:.."M|
000003e0  61 79 22 3a 62 24 3d 22  4d 61 69 22 0d 02 44 14  |ay":b$="Mai"..D.|
000003f0  c9 22 4a 75 6e 22 3a 62  24 3d 22 4a 75 69 6e 22  |."Jun":b$="Juin"|
00000400  0d 02 4e 15 c9 22 4a 75  6c 22 3a 62 24 3d 22 4a  |..N.."Jul":b$="J|
00000410  75 69 6c 6c 22 0d 02 58  14 c9 22 41 75 67 22 3a  |uill"..X.."Aug":|
00000420  62 24 3d 22 41 6f fb 74  22 0d 02 62 14 c9 22 53  |b$="Ao.t"..b.."S|
00000430  65 70 22 3a 62 24 3d 22  53 65 70 74 22 0d 02 6c  |ep":b$="Sept"..l|
00000440  13 c9 22 4f 63 74 22 3a  62 24 3d 22 4f 63 74 22  |.."Oct":b$="Oct"|
00000450  0d 02 76 13 c9 22 4e 6f  76 22 3a 62 24 3d 22 4e  |..v.."Nov":b$="N|
00000460  6f 76 22 0d 02 80 13 c9  22 44 65 63 22 3a 62 24  |ov"....."Dec":b$|
00000470  3d 22 44 65 63 22 0d 02  8a 05 cb 0d 02 94 13 4b  |="Dec".........K|
00000480  25 3d a7 61 24 2c 22 47  72 61 64 65 22 29 0d 02  |%=.a$,"Grade")..|
00000490  9e 26 61 24 3d c0 61 24  2c 4b 25 2d 31 29 2b 22  |.&a$=.a$,K%-1)+"|
000004a0  20 20 20 20 20 20 20 20  20 22 2b c1 61 24 2c 4b  |         "+.a$,K|
000004b0  25 2b 35 29 0d 02 a8 17  63 24 3d a4 66 6f 72 65  |%+5)....c$=.fore|
000004c0  69 67 6e 6c 65 76 65 6c  28 b9 29 0d 02 b2 0e c1  |ignlevel(.).....|
000004d0  61 24 2c 4b 25 29 3d 63  24 0d 02 bc 0d c1 61 24  |a$,K%)=c$.....a$|
000004e0  2c 34 29 3d 62 24 0d 02  c6 0b e7 ac 76 65 72 25  |,4)=b$......ver%|
000004f0  8c 0d 02 d0 20 c1 61 24  2c 4b 25 2b a9 28 63 24  |.... .a$,K%+.(c$|
00000500  29 2b 31 29 3d c1 61 24  2c 4b 25 2b 31 30 2c 31  |)+1)=.a$,K%+10,1|
00000510  29 0d 02 da 12 c1 61 24  2c 4b 25 2b 31 30 29 3d  |).....a$,K%+10)=|
00000520  22 20 22 0d 02 e4 05 cd  0d 02 ee 30 e7 a7 61 24  |" "........0..a$|
00000530  2c 22 50 6c 61 79 65 72  22 29 3e 30 3a c1 61 24  |,"Player")>0:.a$|
00000540  2c a7 61 24 2c 22 50 6c  61 79 65 72 22 29 29 3d  |,.a$,"Player"))=|
00000550  22 4a 6f 75 65 75 72 22  0d 02 f8 07 f1 61 24 0d  |"Joueur".....a$.|
00000560  03 02 13 ec 74 61 78 25  2a 33 32 2b 36 34 32 2c  |....tax%*32+642,|
00000570  4c 25 0d 03 0c 15 f1 73  63 6f 72 65 73 25 28 67  |L%.....scores%(g|
00000580  6d 65 25 2c 4a 25 29 0d  03 16 05 ed 0d 03 20 06  |me%,J%)....... .|
00000590  ef 34 0d 03 2a 05 87 0d  03 34 05 e1 0d 03 3e 11  |.4..*....4....>.|
000005a0  dd f2 65 6e 67 6c 69 73  68 68 69 67 68 0d 03 48  |..englishhigh..H|
000005b0  14 74 24 3d 22 48 49 47  48 20 53 43 4f 52 45 53  |.t$="HIGH SCORES|
000005c0  22 0d 03 52 0b 74 61 78  25 3d 31 33 0d 03 5c 0a  |"..R.tax%=13..\.|
000005d0  74 61 79 25 3d 32 0d 03  66 0b 73 79 79 25 3d 31  |tay%=2..f.syy%=1|
000005e0  33 0d 03 70 06 ef 35 0d  03 7a 09 e6 30 2c 31 33  |3..p..5..z..0,13|
000005f0  0d 03 84 23 ec 74 61 78  25 2a 67 25 2b 31 31 32  |...#.tax%*g%+112|
00000600  2c 74 61 79 25 2a 67 25  2b 73 79 79 25 2a 66 25  |,tay%*g%+syy%*f%|
00000610  2b 34 38 0d 03 8e 11 f0  30 2c a9 28 74 24 29 2a  |+48.....0,.(t$)*|
00000620  67 25 2c 30 0d 03 98 25  f0 38 35 2c 74 61 78 25  |g%,0...%.85,tax%|
00000630  2a 67 25 2b 35 32 2c 74  61 79 25 2a 67 25 2b 73  |*g%+52,tay%*g%+s|
00000640  79 79 25 2a 66 25 2d 67  25 0d 03 a2 16 f0 38 31  |yy%*f%-g%.....81|
00000650  2c 31 32 38 2b a9 28 74  24 29 2a 67 25 2c 30 0d  |,128+.(t$)*g%,0.|
00000660  03 ac 08 e6 30 2c 30 0d  03 b6 22 ec 74 61 78 25  |....0,0...".tax%|
00000670  2a 67 25 2b 34 38 2c 74  61 79 25 2a 67 25 2b 73  |*g%+48,tay%*g%+s|
00000680  79 79 25 2a 66 25 2d 67  25 0d 03 c0 0c f0 31 2c  |yy%*f%-g%.....1,|
00000690  66 25 2c 66 25 0d 03 ca  13 f0 31 2c a9 28 74 24  |f%,f%.....1,.(t$|
000006a0  29 2a 67 25 2b 34 2c 30  0d 03 d4 0d f0 31 2c 66  |)*g%+4,0.....1,f|
000006b0  25 2c 2d 66 25 0d 03 de  23 ec 74 61 78 25 2a 67  |%,-f%...#.tax%*g|
000006c0  25 2b 31 31 32 2c 74 61  79 25 2a 67 25 2b 73 79  |%+112,tay%*g%+sy|
000006d0  79 25 2a 66 25 2b 32 34  0d 03 e8 07 f1 74 24 0d  |y%*f%+24.....t$.|
000006e0  03 f2 0c e3 4a 25 3d 31  b8 31 30 0d 03 fc 1a 4b  |....J%=1.10....K|
000006f0  25 3d 38 37 36 2d 28 74  61 79 25 2a 67 25 2b 4a  |%=876-(tay%*g%+J|
00000700  25 2a 66 25 29 0d 04 06  0c 4c 25 3d 4b 25 2b 34  |%*f%)....L%=K%+4|
00000710  34 0d 04 10 10 e7 61 74  74 65 6e 64 24 3d 22 22  |4.....attend$=""|
00000720  8c 0d 04 1a 08 e6 30 2c  38 0d 04 24 05 cc 0d 04  |......0,8..$....|
00000730  2e 2c e7 a7 68 69 67 68  24 28 67 6d 65 25 2c 4a  |.,..high$(gme%,J|
00000740  25 29 2c 61 74 74 65 6e  64 24 2c 32 37 29 3e 30  |%),attend$,27)>0|
00000750  e6 30 2c 31 31 8b e6 30  2c 38 0d 04 38 05 cd 0d  |.0,11..0,8..8...|
00000760  04 42 12 e7 6e 75 77 25  3d 4a 25 3a e6 30 2c 31  |.B..nuw%=J%:.0,1|
00000770  34 0d 04 4c 15 c8 93 c8  90 32 35 36 2c 4b 25 2c  |4..L.....256,K%,|
00000780  37 36 38 2c 66 25 0d 04  56 09 e6 30 2c 31 31 0d  |768,f%..V..0,11.|
00000790  04 60 15 c8 93 c8 90 38  39 32 2c 4b 25 2c 31 32  |.`.....892,K%,12|
000007a0  38 2c 66 25 0d 04 6a 08  e6 30 2c 30 0d 04 74 13  |8,f%..j..0,0..t.|
000007b0  c8 93 32 35 36 2c 4b 25  2c 37 36 38 2c 66 25 0d  |..256,K%,768,f%.|
000007c0  04 7e 13 c8 93 38 39 32  2c 4b 25 2c 31 33 30 2c  |.~...892,K%,130,|
000007d0  66 25 0d 04 88 13 ec 74  61 78 25 2a 33 32 2d 31  |f%.....tax%*32-1|
000007e0  34 34 2c 4c 25 0d 04 92  0a f1 c3 28 4a 25 29 0d  |44,L%......(J%).|
000007f0  04 9c 12 ec 74 61 78 25  2a 33 32 2d 39 36 2c 4c  |....tax%*32-96,L|
00000800  25 0d 04 a6 15 61 24 3d  68 69 67 68 24 28 67 6d  |%....a$=high$(gm|
00000810  65 25 2c 4a 25 29 0d 04  b0 21 e7 ac 76 65 72 25  |e%,J%)...!..ver%|
00000820  3a c1 61 24 2c a7 61 24  2c 22 47 72 61 64 65 22  |:.a$,.a$,"Grade"|
00000830  29 29 3d 74 79 70 24 0d  04 ba 07 f1 61 24 0d 04  |))=typ$.....a$..|
00000840  c4 13 ec 74 61 78 25 2a  33 32 2b 35 31 34 2c 4c  |...tax%*32+514,L|
00000850  25 0d 04 ce 15 f1 73 63  6f 72 65 73 25 28 67 6d  |%.....scores%(gm|
00000860  65 25 2c 4a 25 29 0d 04  d8 05 ed 0d 04 e2 06 ef  |e%,J%)..........|
00000870  34 0d 04 ec 05 87 0d 04  f6 05 e1 0d 05 00 10 dd  |4...............|
00000880  f2 73 6f 72 74 73 63 6f  72 65 73 0d 05 0a 15 61  |.sortscores....a|
00000890  24 3d 68 69 67 68 24 28  67 6d 65 25 2c 31 31 29  |$=high$(gme%,11)|
000008a0  0d 05 14 0b e7 61 24 3e  22 22 8c 0d 05 1e 05 f5  |.....a$>""......|
000008b0  0d 05 28 0a 73 72 74 25  3d b9 0d 05 32 0c e3 4a  |..(.srt%=...2..J|
000008c0  25 3d 31 b8 31 30 0d 05  3c 29 e7 73 63 6f 72 65  |%=1.10..<).score|
000008d0  73 25 28 67 6d 65 25 2c  4a 25 29 3c 73 63 6f 72  |s%(gme%,J%)<scor|
000008e0  65 73 25 28 67 6d 65 25  2c 4a 25 2b 31 29 8c 0d  |es%(gme%,J%+1)..|
000008f0  05 46 0a 74 61 62 25 3d  b9 0d 05 50 0a 73 72 74  |.F.tab%=...P.srt|
00000900  25 3d a3 0d 05 5a 29 c8  94 73 63 6f 72 65 73 25  |%=...Z)..scores%|
00000910  28 67 6d 65 25 2c 4a 25  29 2c 73 63 6f 72 65 73  |(gme%,J%),scores|
00000920  25 28 67 6d 65 25 2c 4a  25 2b 31 29 0d 05 64 25  |%(gme%,J%+1)..d%|
00000930  c8 94 68 69 67 68 24 28  67 6d 65 25 2c 4a 25 29  |..high$(gme%,J%)|
00000940  2c 68 69 67 68 24 28 67  6d 65 25 2c 4a 25 2b 31  |,high$(gme%,J%+1|
00000950  29 0d 05 6e 05 cd 0d 05  78 05 ed 0d 05 82 09 fd  |)..n....x.......|
00000960  73 72 74 25 0d 05 8c 05  cd 0d 05 96 0a 6e 75 77  |srt%.........nuw|
00000970  25 3d 30 0d 05 a0 0c e3  4a 25 3d 31 b8 31 30 0d  |%=0.....J%=1.10.|
00000980  05 aa 1e e7 68 69 67 68  24 28 67 6d 65 25 2c 4a  |....high$(gme%,J|
00000990  25 29 3d 61 24 3a 6e 75  77 25 3d 4a 25 0d 05 b4  |%)=a$:nuw%=J%...|
000009a0  05 ed 0d 05 be 05 e1 0d  05 c8 0b dd f2 70 61 75  |.............pau|
000009b0  73 65 0d 05 d2 0c e7 ac  a6 2d 35 36 3a e1 0d 05  |se.......-56:...|
000009c0  dc 25 e7 66 6f 72 25 f2  73 61 6d 65 28 22 70 72  |.%.for%.same("pr|
000009d0  ea 74 22 29 8b f2 73 61  6d 65 28 22 72 65 61 64  |.t")..same("read|
000009e0  79 22 29 0d 05 e6 05 f5  0d 05 f0 0a fd ac a6 2d  |y")............-|
000009f0  35 36 0d 05 fa 05 e1 0d  06 04 0b dd f2 65 72 72  |56...........err|
00000a00  6f 72 0d 06 0e 08 ef 33  2c 37 0d 06 18 0a 2a 43  |or.....3,7....*C|
00000a10  4c 4f 53 45 0d 06 22 15  c8 99 22 41 42 43 5f 43  |LOSE.."..."ABC_C|
00000a20  6f 6c 6f 75 72 22 2c 31  35 0d 06 2c 07 c8 97 87  |olour",15..,....|
00000a30  0d 06 36 55 f2 6d 65 73  73 28 22 45 52 52 4f 52  |..6U.mess("ERROR|
00000a40  20 2d 20 49 4e 53 45 52  54 20 44 49 53 43 20 28  | - INSERT DISC (|
00000a50  4e 4f 54 20 57 52 49 54  45 20 50 52 4f 54 45 43  |NOT WRITE PROTEC|
00000a60  54 45 44 29 20 49 4e 54  4f 20 44 52 49 56 45 20  |TED) INTO DRIVE |
00000a70  41 4e 44 20 50 52 45 53  53 20 52 45 54 55 52 4e  |AND PRESS RETURN|
00000a80  22 2c 31 31 29 0d 06 40  13 c8 99 22 41 42 43 5f  |",11)..@..."ABC_|
00000a90  50 61 6c 65 74 74 65 22  0d 06 4a 05 f5 0d 06 54  |Palette"..J....T|
00000aa0  0b fd a4 6c 65 61 76 65  0d 06 5e 13 f2 73 61 76  |...leave..^..sav|
00000ab0  65 6e 65 77 72 65 73 75  6c 74 73 0d 06 68 05 f9  |enewresults..h..|
00000ac0  0d 06 72 05 e1 0d 06 7c  11 dd f2 64 65 6c 61 79  |..r....|...delay|
00000ad0  28 64 65 6c 25 29 0d 06  86 05 f5 0d 06 90 06 c8  |(del%)..........|
00000ae0  96 0d 06 9a 0b 64 65 6c  25 2d 3d 31 0d 06 a4 0b  |.....del%-=1....|
00000af0  fd 64 65 6c 25 3c 30 0d  06 ae 05 e1 0d 06 b8 15  |.del%<0.........|
00000b00  dd f2 74 69 74 6c 65 28  7a 24 2c 59 25 2c 43 25  |..title(z$,Y%,C%|
00000b10  29 0d 06 c2 52 e7 66 6f  72 25 78 24 3d 22 44 69  |)...R.for%x$="Di|
00000b20  78 20 73 75 72 20 44 69  78 20 53 79 73 74 e8 6d  |x sur Dix Syst.m|
00000b30  65 73 20 45 64 75 63 61  74 69 66 73 22 8b 78 24  |es Educatifs".x$|
00000b40  3d 22 31 30 20 6f 75 74  20 6f 66 20 31 30 20 45  |="10 out of 10 E|
00000b50  64 75 63 61 74 69 6f 6e  61 6c 20 53 79 73 74 65  |ducational Syste|
00000b60  6d 73 22 0d 06 cc 14 78  73 63 25 3d 33 32 30 2d  |ms"....xsc%=320-|
00000b70  a9 28 78 24 29 2a 38 0d  06 d6 26 c8 99 22 41 42  |.(x$)*8...&.."AB|
00000b80  43 5f 50 72 79 6e 74 53  74 72 69 6e 67 22 2c 78  |C_PryntString",x|
00000b90  24 2c 78 73 63 25 2c 59  25 2c 31 2c 37 0d 06 e0  |$,xsc%,Y%,1,7...|
00000ba0  2b c8 99 22 41 42 43 5f  50 72 79 6e 74 53 74 72  |+.."ABC_PryntStr|
00000bb0  69 6e 67 22 2c 78 24 2c  78 73 63 25 2d 32 2c 59  |ing",x$,xsc%-2,Y|
00000bc0  25 2b 31 2c 31 2c 43 25  0d 06 ea 0a 59 25 2d 3d  |%+1,1,C%....Y%-=|
00000bd0  32 34 0d 06 f4 26 e7 66  6f 72 25 79 24 3d 22 50  |24...&.for%y$="P|
00000be0  72 e9 73 65 6e 74 65 6e  74 22 8b 79 24 3d 22 50  |r.sentent".y$="P|
00000bf0  72 65 73 65 6e 74 73 22  0d 06 fe 14 78 73 63 25  |resents"....xsc%|
00000c00  3d 33 32 30 2d a9 28 79  24 29 2a 38 0d 07 08 26  |=320-.(y$)*8...&|
00000c10  c8 99 22 41 42 43 5f 50  72 79 6e 74 53 74 72 69  |.."ABC_PryntStri|
00000c20  6e 67 22 2c 79 24 2c 78  73 63 25 2c 59 25 2c 31  |ng",y$,xsc%,Y%,1|
00000c30  2c 37 0d 07 12 2b c8 99  22 41 42 43 5f 50 72 79  |,7...+.."ABC_Pry|
00000c40  6e 74 53 74 72 69 6e 67  22 2c 79 24 2c 78 73 63  |ntString",y$,xsc|
00000c50  25 2d 32 2c 59 25 2b 31  2c 31 2c 43 25 0d 07 1c  |%-2,Y%+1,1,C%...|
00000c60  0a 59 25 2d 3d 32 34 0d  07 26 14 78 73 63 25 3d  |.Y%-=24..&.xsc%=|
00000c70  33 32 30 2d a9 28 7a 24  29 2a 38 0d 07 30 26 c8  |320-.(z$)*8..0&.|
00000c80  99 22 41 42 43 5f 50 72  79 6e 74 53 74 72 69 6e  |."ABC_PryntStrin|
00000c90  67 22 2c 7a 24 2c 78 73  63 25 2c 59 25 2c 31 2c  |g",z$,xsc%,Y%,1,|
00000ca0  37 0d 07 3a 2b c8 99 22  41 42 43 5f 50 72 79 6e  |7..:+.."ABC_Pryn|
00000cb0  74 53 74 72 69 6e 67 22  2c 7a 24 2c 78 73 63 25  |tString",z$,xsc%|
00000cc0  2d 32 2c 59 25 2b 31 2c  31 2c 43 25 0d 07 44 05  |-2,Y%+1,1,C%..D.|
00000cd0  e1 0d 07 4e 13 dd f2 6d  65 73 73 28 74 24 2c 63  |...N...mess(t$,c|
00000ce0  6f 6c 25 29 0d 07 58 0b  e6 30 2c 63 6f 6c 25 0d  |ol%)..X..0,col%.|
00000cf0  07 62 06 ef 35 0d 07 6c  06 c8 96 0d 07 76 13 c8  |.b..5..l.....v..|
00000d00  93 c8 90 30 2c 30 2c 31  32 37 38 2c 36 34 0d 07  |...0,0,1278,64..|
00000d10  80 08 e6 30 2c 30 0d 07  8a 11 c8 93 30 2c 30 2c  |...0,0......0,0,|
00000d20  31 32 37 38 2c 36 34 0d  07 94 13 ec 36 34 30 2d  |1278,64.....640-|
00000d30  a9 28 74 24 29 2a 38 2c  34 34 0d 07 9e 07 f1 74  |.(t$)*8,44.....t|
00000d40  24 0d 07 a8 06 ef 34 0d  07 b2 05 87 0d 07 bc 05  |$.....4.........|
00000d50  e1 0d 07 c6 14 dd f2 70  6f 69 6e 74 28 61 24 2c  |.......point(a$,|
00000d60  6d 6f 73 25 29 0d 07 d0  13 ea 77 72 65 25 2c 70  |mos%).....wre%,p|
00000d70  61 72 25 2c 64 61 74 25  0d 07 da 1c de 77 72 65  |ar%,dat%.....wre|
00000d80  25 31 30 38 38 2c 70 61  72 25 32 30 2c 64 61 74  |%1088,par%20,dat|
00000d90  25 32 35 36 0d 07 e4 0f  68 25 3d 8e 28 66 24 2b  |%256....h%=.(f$+|
00000da0  61 24 29 0d 07 ee 0c e3  4a 25 3d 30 b8 33 32 0d  |a$).....J%=0.32.|
00000db0  07 f8 0c e3 4b 25 3d 30  b8 33 32 0d 08 02 18 77  |....K%=0.32....w|
00000dc0  72 65 25 3f 28 4b 25 2a  33 32 2b 4a 25 29 3d 9a  |re%?(K%*32+J%)=.|
00000dd0  23 68 25 0d 08 0c 05 ed  0d 08 16 05 ed 0d 08 20  |#h%............ |
00000de0  08 d9 23 68 25 0d 08 2a  13 21 70 61 72 25 3d 26  |..#h%..*.!par%=&|
00000df0  32 30 30 38 30 32 30 30  0d 08 34 0f 70 61 72 25  |20080200..4.par%|
00000e00  3f 31 3d 6d 6f 73 25 0d  08 3e 0c 70 61 72 25 21  |?1=mos%..>.par%!|
00000e10  34 3d 30 0d 08 48 0f 70  61 72 25 21 36 3d 64 61  |4=0..H.par%!6=da|
00000e20  74 25 0d 08 52 0d 6d 6d  61 25 3d 64 61 74 25 0d  |t%..R.mma%=dat%.|
00000e30  08 5c 0e e3 4a 25 3d 33  32 b8 31 88 b9 0d 08 66  |.\..J%=32.1....f|
00000e40  0b e3 4b 25 3d 30 b8 37  0d 08 70 0d e3 4c 25 3d  |..K%=0.7..p..L%=|
00000e50  33 b8 30 88 b9 0d 08 7a  1d 76 61 6c 25 3d 77 72  |3.0....z.val%=wr|
00000e60  65 25 3f 28 4a 25 2a 33  32 2b 4b 25 2a 34 2b 4c  |e%?(J%*32+K%*4+L|
00000e70  25 29 0d 08 84 30 e7 76  61 6c 25 3d 26 46 46 3a  |%)...0.val%=&FF:|
00000e80  70 61 72 25 3f 34 3d 4b  25 2a 34 2b 4c 25 3a 70  |par%?4=K%*4+L%:p|
00000e90  61 72 25 3f 35 3d 33 31  2d 4a 25 3a 76 61 6c 25  |ar%?5=31-J%:val%|
00000ea0  3d 30 0d 08 8e 12 3f 6d  6d 61 25 3d 3f 6d 6d 61  |=0....?mma%=?mma|
00000eb0  25 3c 3c 32 0d 08 98 0f  3f 6d 6d 61 25 2b 3d 76  |%<<2....?mma%+=v|
00000ec0  61 6c 25 0d 08 a2 05 ed  0d 08 ac 0b 6d 6d 61 25  |al%.........mma%|
00000ed0  2b 3d 31 0d 08 b6 05 ed  0d 08 c0 05 ed 0d 08 ca  |+=1.............|
00000ee0  17 c8 99 22 4f 53 5f 57  6f 72 64 22 2c 32 31 2c  |..."OS_Word",21,|
00000ef0  70 61 72 25 0d 08 d4 05  e1 0d 08 de 15 dd f2 77  |par%...........w|
00000f00  69 6e 67 73 28 6c 24 2c  78 25 2c 79 25 29 0d 08  |ings(l$,x%,y%)..|
00000f10  e8 57 e7 66 6f 72 25 c8  99 22 41 42 43 5f 55 6e  |.W.for%.."ABC_Un|
00000f20  70 61 63 6b 53 70 72 69  74 65 22 2c 22 77 69 6e  |packSprite","win|
00000f30  67 73 66 6f 72 22 2c 6a  25 2c 78 25 2c 79 25 8b  |gsfor",j%,x%,y%.|
00000f40  c8 99 22 41 42 43 5f 55  6e 70 61 63 6b 53 70 72  |.."ABC_UnpackSpr|
00000f50  69 74 65 22 2c 22 77 69  6e 67 73 22 2c 6a 25 2c  |ite","wings",j%,|
00000f60  78 25 2c 79 25 0d 08 f2  06 ef 35 0d 08 fc 09 e6  |x%,y%.....5.....|
00000f70  30 2c 31 31 0d 09 06 1f  ec 28 78 25 2a 32 2b 32  |0,11.....(x%*2+2|
00000f80  39 38 29 2d a9 28 6c 24  29 2a 38 2c 79 25 2a 34  |98)-.(l$)*8,y%*4|
00000f90  2d 34 30 0d 09 10 07 f1  6c 24 0d 09 1a 06 ef 34  |-40.....l$.....4|
00000fa0  0d 09 24 05 87 0d 09 2e  05 e1 0d 09 38 23 dd f2  |..$.........8#..|
00000fb0  6e 6f 69 73 65 28 73 24  2c 63 68 6e 25 2c 76 6f  |noise(s$,chn%,vo|
00000fc0  6c 25 2c 70 69 74 25 2c  64 75 72 25 29 0d 09 42  |l%,pit%,dur%)..B|
00000fd0  06 ea 85 0d 09 4c 09 ee  85 ea 3a e1 0d 09 56 0d  |.....L....:...V.|
00000fe0  c8 a1 63 68 6e 25 2c 73  24 0d 09 60 18 d4 63 68  |..chn%,s$..`..ch|
00000ff0  6e 25 2c 76 6f 6c 25 2c  70 69 74 25 2c 64 75 72  |n%,vol%,pit%,dur|
00001000  25 0d 09 6a 05 e1 0d 09  74 1b dd f2 69 6e 70 75  |%..j....t...inpu|
00001010  74 28 74 6f 74 25 2c 74  61 78 25 2c 74 61 79 25  |t(tot%,tax%,tay%|
00001020  29 0d 09 7e 0b 2a 46 58  32 31 20 30 0d 09 88 0a  |)..~.*FX21 0....|
00001030  63 6e 74 25 3d 30 0d 09  92 09 69 24 3d 22 22 0d  |cnt%=0....i$="".|
00001040  09 9c 05 f5 0d 09 a6 05  f5 0d 09 b0 05 f5 0d 09  |................|
00001050  ba 0b 6b 25 3d a6 28 31  29 0d 09 c4 18 fd 6b 25  |..k%=.(1).....k%|
00001060  3d 31 33 84 6b 25 3e 33  31 80 20 6b 25 3c 31 32  |=13.k%>31. k%<12|
00001070  38 0d 09 ce 14 e7 6b 25  3d 31 32 37 80 20 63 6e  |8.....k%=127. cn|
00001080  74 25 3e 30 8c 0d 09 d8  0b 63 6e 74 25 2d 3d 31  |t%>0.....cnt%-=1|
00001090  0d 09 e2 10 69 24 3d c0  69 24 2c 63 6e 74 25 29  |....i$=.i$,cnt%)|
000010a0  0d 09 ec 17 f1 8a 74 61  78 25 2c 74 61 79 25 29  |......tax%,tay%)|
000010b0  69 24 3b 89 28 31 29 0d  09 f6 05 cd 0d 0a 00 0c  |i$;.(1).........|
000010c0  fd 6b 25 3c 3e 31 32 37  0d 0a 0a 18 e7 6b 25 3c  |.k%<>127.....k%<|
000010d0  3e 31 33 80 20 63 6e 74  25 3c 3e 74 6f 74 25 8c  |>13. cnt%<>tot%.|
000010e0  0d 0a 14 0c e7 63 6e 74  25 3d 30 8c 0d 0a 1e 2e  |.....cnt%=0.....|
000010f0  e7 bd 28 6b 25 29 3e 3d  22 61 22 80 bd 28 6b 25  |..(k%)>="a"..(k%|
00001100  29 3c 3d 22 7a 22 69 24  3d bd 28 6b 25 2d 33 32  |)<="z"i$=.(k%-32|
00001110  29 8b 69 24 3d bd 28 6b  25 29 0d 0a 28 05 cc 0d  |).i$=.(k%)..(...|
00001120  0a 32 30 e7 bd 28 6b 25  29 3e 3d 22 41 22 80 bd  |.20..(k%)>="A"..|
00001130  28 6b 25 29 3c 3d 22 5a  22 69 24 2b 3d bd 28 6b  |(k%)<="Z"i$+=.(k|
00001140  25 2b 33 32 29 8b 69 24  2b 3d bd 28 6b 25 29 0d  |%+32).i$+=.(k%).|
00001150  0a 3c 05 cd 0d 0a 46 17  f1 8a 74 61 78 25 2c 74  |.<....F...tax%,t|
00001160  61 79 25 29 69 24 3b 89  28 31 29 0d 0a 50 0b 63  |ay%)i$;.(1)..P.c|
00001170  6e 74 25 2b 3d 31 0d 0a  5a 05 cd 0d 0a 64 19 e7  |nt%+=1..Z....d..|
00001180  6b 25 3c 3e 31 33 80 20  63 6e 74 25 3d 74 6f 74  |k%<>13. cnt%=tot|
00001190  25 3a ef 37 0d 0a 6e 0a  fd 6b 25 3d 31 33 0d 0a  |%:.7..n..k%=13..|
000011a0  78 05 e1 0d 0a 82 26 dd  f2 69 6e 66 6f 63 61 72  |x.....&..infocar|
000011b0  64 28 74 24 2c 74 61 78  25 2c 74 61 79 25 2c 73  |d(t$,tax%,tay%,s|
000011c0  64 78 25 2c 73 79 79 25  29 0d 0a 8c 06 ef 35 0d  |dx%,syy%).....5.|
000011d0  0a 96 08 e6 30 2c 38 0d  0a a0 2c c8 93 c8 90 74  |....0,8...,....t|
000011e0  61 78 25 2a 67 25 2c 74  61 79 25 2a 67 25 2c 73  |ax%*g%,tay%*g%,s|
000011f0  64 78 25 2a 31 36 30 2b  31 36 30 2c 73 79 79 25  |dx%*160+160,syy%|
00001200  2a 66 25 0d 0a aa 08 e6  30 2c 33 0d 0a b4 30 c8  |*f%.....0,3...0.|
00001210  93 c8 90 74 61 78 25 2a  67 25 2b 33 32 30 2c 74  |...tax%*g%+320,t|
00001220  61 79 25 2a 67 25 2c 73  64 78 25 2a 31 36 30 2d  |ay%*g%,sdx%*160-|
00001230  31 36 32 2c 73 79 79 25  2a 66 25 0d 0a be 08 e6  |162,syy%*f%.....|
00001240  30 2c 30 0d 0a c8 33 e7  73 64 78 25 2a 31 36 30  |0,0...3.sdx%*160|
00001250  2b 31 36 30 3e 3d 31 32  38 30 20 73 72 78 25 3d  |+160>=1280 srx%=|
00001260  31 32 37 38 8b 73 72 78  25 3d 73 64 78 25 2a 31  |1278.srx%=sdx%*1|
00001270  36 30 2b 31 36 30 0d 0a  d2 22 c8 93 74 61 78 25  |60+160..."..tax%|
00001280  2a 67 25 2c 74 61 79 25  2a 67 25 2c 73 72 78 25  |*g%,tay%*g%,srx%|
00001290  2c 73 79 79 25 2a 66 25  0d 0a dc 09 e6 30 2c 31  |,syy%*f%.....0,1|
000012a0  33 0d 0a e6 22 ec 74 61  78 25 2a 67 25 2b 66 25  |3...".tax%*g%+f%|
000012b0  2c 74 61 79 25 2a 67 25  2b 73 79 79 25 2a 66 25  |,tay%*g%+syy%*f%|
000012c0  2b 66 25 0d 0a f0 11 f0  30 2c a9 28 74 24 29 2a  |+f%.....0,.(t$)*|
000012d0  67 25 2c 30 0d 0a fa 1f  f0 38 35 2c 74 61 78 25  |g%,0.....85,tax%|
000012e0  2a 67 25 2c 74 61 79 25  2a 67 25 2b 73 79 79 25  |*g%,tay%*g%+syy%|
000012f0  2a 66 25 0d 0b 04 16 f0  38 31 2c 31 32 38 2b a9  |*f%.....81,128+.|
00001300  28 74 24 29 2a 67 25 2c  30 0d 0b 0e 08 e6 30 2c  |(t$)*g%,0.....0,|
00001310  30 0d 0b 18 1c ec 74 61  78 25 2a 67 25 2c 74 61  |0.....tax%*g%,ta|
00001320  79 25 2a 67 25 2b 73 79  79 25 2a 66 25 0d 0b 22  |y%*g%+syy%*f%.."|
00001330  0c f0 31 2c 66 25 2c 66  25 0d 0b 2c 11 f0 31 2c  |..1,f%,f%..,..1,|
00001340  a9 28 74 24 29 2a 67 25  2c 30 0d 0b 36 0d f0 31  |.(t$)*g%,0..6..1|
00001350  2c 66 25 2c 2d 66 25 0d  0b 40 22 ec 74 61 78 25  |,f%,-f%..@".tax%|
00001360  2a 67 25 2b 66 25 2c 74  61 79 25 2a 67 25 2b 73  |*g%+f%,tay%*g%+s|
00001370  79 79 25 2a 66 25 2b 34  34 0d 0b 4a 07 f1 74 24  |yy%*f%+44..J..t$|
00001380  0d 0b 54 0e e3 4a 25 3d  31 b8 73 64 78 25 0d 0b  |..T..J%=1.sdx%..|
00001390  5e 1f ec 74 61 78 25 2a  67 25 2b 4a 25 2a 31 36  |^..tax%*g%+J%*16|
000013a0  30 2b 31 36 30 2c 74 61  79 25 2a 67 25 0d 0b 68  |0+160,tay%*g%..h|
000013b0  10 f0 31 2c 30 2c 73 79  79 25 2a 66 25 0d 0b 72  |..1,0,syy%*f%..r|
000013c0  05 ed 0d 0b 7c 0e e3 4a  25 3d 31 b8 73 79 79 25  |....|..J%=1.syy%|
000013d0  0d 0b 86 1a ec 74 61 78  25 2a 67 25 2c 74 61 79  |.....tax%*g%,tay|
000013e0  25 2a 67 25 2b 4a 25 2a  66 25 0d 0b 90 15 f0 31  |%*g%+J%*f%.....1|
000013f0  2c 73 64 78 25 2a 31 36  30 2b 31 36 30 2c 30 0d  |,sdx%*160+160,0.|
00001400  0b 9a 05 ed 0d 0b a4 06  ef 34 0d 0b ae 05 87 0d  |.........4......|
00001410  0b b8 05 e1 0d 0b c2 13  dd f2 63 65 6e 74 28 74  |..........cent(t|
00001420  24 2c 74 61 79 25 29 0d  0b cc 19 f1 8a 34 30 2d  |$,tay%)......40-|
00001430  a9 28 74 24 29 81 32 2c  74 61 79 25 29 74 24 3b  |.(t$).2,tay%)t$;|
00001440  0d 0b d6 05 e1 0d 0b e0  14 dd f2 73 61 76 65 6e  |...........saven|
00001450  65 77 72 65 73 75 6c 74  73 0d 0b ea 11 e7 61 74  |ewresults.....at|
00001460  74 65 6e 64 24 3d 22 22  3a e1 0d 0b f4 32 68 25  |tend$="":....2h%|
00001470  3d ae 28 66 24 2b 22 41  63 68 69 65 76 65 2e 41  |=.(f$+"Achieve.A|
00001480  63 68 69 65 76 65 22 2b  c3 28 63 6c 61 25 29 2b  |chieve"+.(cla%)+|
00001490  22 2e 22 2b 61 74 74 65  6e 64 24 29 0d 0b fe 0b  |"."+attend$)....|
000014a0  e3 4c 25 3d 30 b8 34 0d  0c 08 0b e3 4b 25 3d 31  |.L%=0.4.....K%=1|
000014b0  b8 36 0d 0c 12 0b e3 4a  25 3d 31 b8 36 0d 0c 1c  |.6.....J%=1.6...|
000014c0  17 f1 23 68 25 2c 61 74  74 25 28 4a 25 2c 4b 25  |..#h%,att%(J%,K%|
000014d0  2c 4c 25 29 0d 0c 26 05  ed 0d 0c 30 05 ed 0d 0c  |,L%)..&....0....|
000014e0  3a 05 ed 0d 0c 44 08 d9  23 68 25 0d 0c 4e 15 68  |:....D..#h%..N.h|
000014f0  25 3d ae 28 66 24 2b 22  54 61 62 6c 65 73 22 29  |%=.(f$+"Tables")|
00001500  0d 0c 58 0b e3 4b 25 3d  31 b8 36 0d 0c 62 0c e3  |..X..K%=1.6..b..|
00001510  4a 25 3d 31 b8 31 30 0d  0c 6c 15 f1 23 68 25 2c  |J%=1.10..l..#h%,|
00001520  68 69 67 68 24 28 4b 25  2c 4a 25 29 0d 0c 76 17  |high$(K%,J%)..v.|
00001530  f1 23 68 25 2c 73 63 6f  72 65 73 25 28 4b 25 2c  |.#h%,scores%(K%,|
00001540  4a 25 29 0d 0c 80 05 ed  0d 0c 8a 05 ed 0d 0c 94  |J%).............|
00001550  08 d9 23 68 25 0d 0c 9e  05 e1 0d 0c a8 0c dd f2  |..#h%...........|
00001560  6d 6f 75 73 65 31 0d 0c  b2 12 c8 97 fb 31 2c 32  |mouse1.......1,2|
00001570  35 35 2c 32 35 35 2c 30  0d 0c bc 10 c8 97 fb 32  |55,255,0.......2|
00001580  2c 32 35 35 2c 30 2c 30  0d 0c c6 14 c8 97 fb 33  |,255,0,0.......3|
00001590  2c 31 39 32 2c 31 39 32  2c 31 39 32 0d 0c d0 08  |,192,192,192....|
000015a0  c8 97 ee 31 0d 0c da 05  e1 0d 0c e4 14 dd f2 73  |...1...........s|
000015b0  71 72 28 77 63 68 25 2c  63 6f 6c 25 29 0d 0c ee  |qr(wch%,col%)...|
000015c0  0b e6 30 2c 63 6f 6c 25  0d 0c f8 1e c8 93 c8 90  |..0,col%........|
000015d0  37 30 36 2c 77 63 68 25  2a 66 25 2b 31 36 34 2c  |706,wch%*f%+164,|
000015e0  31 35 36 2c 35 38 0d 0d  02 05 e1 0d 0d 0c 15 dd  |156,58..........|
000015f0  f2 69 6e 73 65 72 74 28  74 61 79 25 2c 76 24 29  |.insert(tay%,v$)|
00001600  0d 0d 16 13 ec 37 32 38  2c 74 61 79 25 2a 33 32  |.....728,tay%*32|
00001610  2d 32 30 0d 0d 20 07 f1  76 24 0d 0d 2a 05 e1 0d  |-20.. ..v$..*...|
00001620  0d 34 11 dd f2 69 6e 66  6f 72 6d 61 74 69 6f 6e  |.4...information|
00001630  0d 0d 3e 17 c8 97 c8 93  37 39 38 2c 33 35 36 2c  |..>.....798,356,|
00001640  31 36 30 2c 33 38 34 0d  0d 48 0e c8 97 b8 38 35  |160,384..H....85|
00001650  38 2c 33 35 36 0d 0d 52  14 c8 99 22 41 42 43 5f  |8,356..R..."ABC_|
00001660  42 6c 61 6e 6b 22 2c 31  35 0d 0d 5c 15 c8 99 22  |Blank",15..\..."|
00001670  41 42 43 5f 43 6f 6c 6f  75 72 22 2c 31 35 0d 0d  |ABC_Colour",15..|
00001680  66 2b c8 99 22 41 42 43  5f 55 6e 70 61 63 6b 53  |f+.."ABC_UnpackS|
00001690  70 72 69 74 65 22 2c 22  6d 6f 75 73 65 22 2c 6a  |prite","mouse",j|
000016a0  25 2c 35 31 32 2c 31 38  32 0d 0d 70 26 f2 69 6e  |%,512,182..p&.in|
000016b0  66 6f 63 61 72 64 28 22  49 4e 46 4f 52 4d 41 54  |focard("INFORMAT|
000016c0  49 4f 4e 22 2c 32 30 2c  32 32 2c 33 2c 37 29 0d  |ION",20,22,3,7).|
000016d0  0d 7a 1b f2 66 69 6c 6c  69 6e 66 6f 72 6d 61 74  |.z..fillinformat|
000016e0  69 6f 6e 28 31 33 2c 31  35 29 0d 0d 84 0a 70 24  |ion(13,15)....p$|
000016f0  3d 22 58 22 0d 0d 8e 0a  63 6c 79 25 3d 30 0d 0d  |="X"....cly%=0..|
00001700  98 0b 69 6e 7a 25 3d 36  38 0d 0d a2 0a 6f 79 79  |..inz%=68....oyy|
00001710  25 3d 31 0d 0d ac 13 c8  99 22 41 42 43 5f 50 61  |%=1......"ABC_Pa|
00001720  6c 65 74 74 65 22 0d 0d  b6 0e f2 7a 65 72 6f 6d  |lette".....zerom|
00001730  6f 75 73 65 0d 0d c0 05  f5 0d 0d ca 14 c8 97 6d  |ouse...........m|
00001740  6f 78 25 2c 6d 6f 79 25  2c 62 75 74 25 0d 0d d4  |ox%,moy%,but%...|
00001750  2c e7 6d 6f 79 25 3e 37  34 30 20 63 6c 79 25 3d  |,.moy%>740 cly%=|
00001760  30 8b 63 6c 79 25 3d 28  94 28 6d 6f 79 25 2d 37  |0.cly%=(.(moy%-7|
00001770  34 30 29 81 66 25 29 2b  31 0d 0d de 12 e7 63 6c  |40).f%)+1.....cl|
00001780  79 25 3e 36 3a 63 6c 79  25 3d 36 0d 0d e8 10 e7  |y%>6:cly%=6.....|
00001790  63 6c 79 25 3c 3e 6f 79  79 25 8c 0d 0d f2 06 ef  |cly%<>oyy%......|
000017a0  35 0d 0d fc 08 e6 30 2c  38 0d 0e 06 06 c8 96 0d  |5.....0,8.......|
000017b0  0e 10 1e c8 93 c8 90 33  35 32 2c 37 34 38 2d 6f  |.......352,748-o|
000017c0  79 79 25 2a 36 34 2c 32  37 32 2c 33 32 0d 0e 1a  |yy%*64,272,32...|
000017d0  08 e6 30 2c 30 0d 0e 24  14 ec 33 35 32 2c 37 38  |..0,0..$..352,78|
000017e0  32 2d 6f 79 79 25 2a 36  34 0d 0e 2e 1a f1 c0 69  |2-oyy%*64......i|
000017f0  6e 66 6f 24 28 67 6d 65  25 2c 6f 79 79 25 29 2c  |nfo$(gme%,oyy%),|
00001800  31 36 29 0d 0e 38 0d 6f  79 79 25 3d 63 6c 79 25  |16)..8.oyy%=cly%|
00001810  0d 0e 42 06 ef 34 0d 0e  4c 05 87 0d 0e 56 0b 69  |..B..4..L....V.i|
00001820  6e 7a 25 3d 36 38 0d 0e  60 1c 74 65 78 25 3d a9  |nz%=68..`.tex%=.|
00001830  28 69 6e 66 6f 24 28 67  6d 65 25 2c 6f 79 79 25  |(info$(gme%,oyy%|
00001840  29 29 0d 0e 6a 17 70 24  3d 69 6e 66 6f 24 28 67  |))..j.p$=info$(g|
00001850  6d 65 25 2c 6f 79 79 25  29 0d 0e 74 05 cd 0d 0e  |me%,oyy%)..t....|
00001860  7e 0d e7 74 65 78 25 3e  31 36 8c 0d 0e 88 13 70  |~..tex%>16.....p|
00001870  61 72 25 3d 63 6c 79 25  2a 26 31 34 30 30 0d 0e  |ar%=cly%*&1400..|
00001880  92 12 d6 43 61 72 6f 75  73 65 6c 2c 70 61 72 25  |...Carousel,par%|
00001890  0d 0e 9c 13 e7 69 6e 7a  25 83 34 3d 30 3a f2 63  |.....inz%.4=0:.c|
000018a0  68 61 72 0d 0e a6 0b 69  6e 7a 25 2b 3d 31 0d 0e  |har....inz%+=1..|
000018b0  b0 05 cd 0d 0e ba 0b fd  a4 6c 65 61 76 65 0d 0e  |.........leave..|
000018c0  c4 06 ef 37 0d 0e ce 05  e1 0d 0e d8 0a dd f2 63  |...7...........c|
000018d0  68 61 72 0d 0e e2 1c e7  28 69 6e 7a 25 3e 3e 32  |har.....(inz%>>2|
000018e0  29 3e 74 65 78 25 2b 38  3a 69 6e 7a 25 3d 34 0d  |)>tex%+8:inz%=4.|
000018f0  0e ec 15 e7 28 69 6e 7a  25 3e 3e 32 29 3e 74 65  |....(inz%>>2)>te|
00001900  78 25 3a e1 0d 0e f6 19  79 73 63 25 3d 28 37 38  |x%:.....ysc%=(78|
00001910  34 2d 6f 79 79 25 2a 36  34 29 3e 3e 32 0d 0f 00  |4-oyy%*64)>>2...|
00001920  33 c8 99 22 41 42 43 5f  50 72 79 6e 74 53 74 72  |3.."ABC_PryntStr|
00001930  69 6e 67 22 2c c1 70 24  2c 69 6e 7a 25 3e 3e 32  |ing",.p$,inz%>>2|
00001940  2c 31 29 2c 33 30 34 2c  79 73 63 25 2c 30 2c 30  |,1),304,ysc%,0,0|
00001950  0d 0f 0a 05 e1 0d 0f 14  11 dd f2 6c 6f 61 64 64  |...........loadd|
00001960  65 74 61 69 6c 73 0d 0f  1e 72 de 61 74 74 25 28  |etails...r.att%(|
00001970  36 2c 36 2c 34 29 2c 69  6e 66 6f 24 28 36 2c 36  |6,6,4),info$(6,6|
00001980  29 2c 64 61 74 24 28 32  33 29 2c 73 63 6f 72 65  |),dat$(23),score|
00001990  73 25 28 36 2c 31 31 29  2c 73 63 72 25 28 34 29  |s%(6,11),scr%(4)|
000019a0  2c 68 69 67 68 24 28 36  2c 31 31 29 2c 6e 61 6d  |,high$(6,11),nam|
000019b0  65 24 28 34 29 2c 72 61  74 24 28 31 2c 31 31 29  |e$(4),rat$(1,11)|
000019c0  2c 6e 63 6c 24 28 36 29  2c 6d 6e 75 24 28 39 29  |,ncl$(6),mnu$(9)|
000019d0  2c 61 73 6d 25 32 35 36  0d 0f 28 0f 6e 63 6c 24  |,asm%256..(.ncl$|
000019e0  28 31 29 3d 22 31 22 0d  0f 32 11 6e 63 6c 24 28  |(1)="1"..2.ncl$(|
000019f0  32 29 3d 22 32 2f 33 22  0d 0f 3c 11 6e 63 6c 24  |2)="2/3"..<.ncl$|
00001a00  28 33 29 3d 22 33 2f 34  22 0d 0f 46 11 6e 63 6c  |(3)="3/4"..F.ncl|
00001a10  24 28 34 29 3d 22 35 2f  36 22 0d 0f 50 11 6e 63  |$(4)="5/6"..P.nc|
00001a20  6c 24 28 35 29 3d 22 36  2f 37 22 0d 0f 5a 14 6e  |l$(5)="6/7"..Z.n|
00001a30  63 6c 24 28 36 29 3d 22  38 2f 39 2f 31 30 22 0d  |cl$(6)="8/9/10".|
00001a40  0f 64 18 72 61 74 24 28  30 2c 31 29 3d 22 70 61  |.d.rat$(0,1)="pa|
00001a50  74 68 65 74 69 63 22 0d  0f 6e 14 72 61 74 24 28  |thetic"..n.rat$(|
00001a60  30 2c 32 29 3d 22 70 6f  6f 72 22 0d 0f 78 1f 72  |0,2)="poor"..x.r|
00001a70  61 74 24 28 30 2c 33 29  3d 22 63 6f 75 6c 64 20  |at$(0,3)="could |
00001a80  64 6f 20 62 65 74 74 65  72 22 0d 0f 82 1b 72 61  |do better"....ra|
00001a90  74 24 28 30 2c 34 29 3d  22 6b 65 65 70 20 74 72  |t$(0,4)="keep tr|
00001aa0  79 69 6e 67 22 0d 0f 8c  14 72 61 74 24 28 30 2c  |ying"....rat$(0,|
00001ab0  35 29 3d 22 66 61 69 72  22 0d 0f 96 1d 72 61 74  |5)="fair"....rat|
00001ac0  24 28 30 2c 36 29 3d 22  70 72 65 74 74 79 20 63  |$(0,6)="pretty c|
00001ad0  6c 65 76 65 72 22 0d 0f  a0 1b 72 61 74 24 28 30  |lever"....rat$(0|
00001ae0  2c 37 29 3d 22 6e 6f 74  20 74 6f 6f 20 62 61 64  |,7)="not too bad|
00001af0  22 0d 0f aa 1c 72 61 74  24 28 30 2c 38 29 3d 22  |"....rat$(0,8)="|
00001b00  6e 65 61 72 6c 79 20 74  68 65 72 65 22 0d 0f b4  |nearly there"...|
00001b10  19 72 61 74 24 28 30 2c  39 29 3d 22 67 6f 6f 64  |.rat$(0,9)="good|
00001b20  20 77 6f 72 6b 22 0d 0f  be 17 72 61 74 24 28 30  | work"....rat$(0|
00001b30  2c 31 30 29 3d 22 67 65  6e 69 75 73 22 0d 0f c8  |,10)="genius"...|
00001b40  1a 72 61 74 24 28 31 2c  31 29 3d 22 6c 61 6d 65  |.rat$(1,1)="lame|
00001b50  6e 74 61 62 6c 65 22 0d  0f d2 16 72 61 74 24 28  |ntable"....rat$(|
00001b60  31 2c 32 29 3d 22 66 61  69 62 6c 65 22 0d 0f dc  |1,2)="faible"...|
00001b70  24 72 61 74 24 28 31 2c  33 29 3d 22 70 6f 75 72  |$rat$(1,3)="pour|
00001b80  72 61 69 74 20 6d 69 65  75 78 20 66 61 69 72 65  |rait mieux faire|
00001b90  22 0d 0f e6 26 72 61 74  24 28 31 2c 34 29 3d 22  |"...&rat$(1,4)="|
00001ba0  6e 65 20 76 6f 75 73 20  64 e8 63 6f 75 72 61 67  |ne vous d.courag|
00001bb0  65 7a 20 70 61 73 22 0d  0f f0 1a 72 61 74 24 28  |ez pas"....rat$(|
00001bc0  31 2c 35 29 3d 22 61 73  73 65 7a 20 62 69 65 6e  |1,5)="assez bien|
00001bd0  22 0d 0f fa 15 72 61 74  24 28 31 2c 36 29 3d 22  |"....rat$(1,6)="|
00001be0  73 75 70 65 72 22 0d 10  04 1c 72 61 74 24 28 31  |super"....rat$(1|
00001bf0  2c 37 29 3d 22 70 61 73  20 74 72 6f 70 20 6d 61  |,7)="pas trop ma|
00001c00  6c 22 0d 10 0e 20 72 61  74 24 28 31 2c 38 29 3d  |l"... rat$(1,8)=|
00001c10  22 65 6e 63 6f 72 65 20  75 6e 20 65 66 66 6f 72  |"encore un effor|
00001c20  74 22 0d 10 18 19 72 61  74 24 28 31 2c 39 29 3d  |t"....rat$(1,9)=|
00001c30  22 74 72 e8 73 20 62 69  65 6e 22 0d 10 22 19 72  |"tr.s bien"..".r|
00001c40  61 74 24 28 31 2c 31 30  29 3d 22 75 6e 20 67 e9  |at$(1,10)="un g.|
00001c50  6e 69 65 22 0d 10 2c 17  72 61 74 24 28 30 2c 30  |nie"..,.rat$(0,0|
00001c60  29 3d 72 61 74 24 28 30  2c 31 29 0d 10 36 17 72  |)=rat$(0,1)..6.r|
00001c70  61 74 24 28 31 2c 30 29  3d 72 61 74 24 28 31 2c  |at$(1,0)=rat$(1,|
00001c80  31 29 0d 10 40 19 72 61  74 24 28 30 2c 31 31 29  |1)..@.rat$(0,11)|
00001c90  3d 72 61 74 24 28 30 2c  31 30 29 0d 10 4a 19 72  |=rat$(0,10)..J.r|
00001ca0  61 74 24 28 31 2c 31 31  29 3d 72 61 74 24 28 31  |at$(1,11)=rat$(1|
00001cb0  2c 31 30 29 0d 10 54 1d  c8 99 22 41 42 43 5f 56  |,10)..T..."ABC_V|
00001cc0  69 64 65 6f 41 64 64 72  65 73 73 22 b8 76 69 64  |ideoAddress".vid|
00001cd0  25 0d 10 5e 0d e3 41 25  3d 30 b8 32 88 32 0d 10  |%..^..A%=0.2.2..|
00001ce0  68 0b 50 25 3d 61 73 6d  25 0d 10 72 0a 5b 4f 50  |h.P%=asm%..r.[OP|
00001cf0  54 41 25 0d 10 7c 0d 2e  43 61 72 6f 75 73 65 6c  |TA%..|..Carousel|
00001d00  0d 10 86 5b 4d 4f 56 20  52 30 2c 23 31 39 3a 53  |...[MOV R0,#19:S|
00001d10  57 49 20 22 58 4f 53 5f  42 79 74 65 22 3a 4c 44  |WI "XOS_Byte":LD|
00001d20  52 20 52 31 32 2c 5b 52  39 5d 3a 4c 44 52 20 52  |R R12,[R9]:LDR R|
00001d30  30 2c 5b 52 31 32 5d 3a  4c 44 52 20 52 31 2c 76  |0,[R12]:LDR R1,v|
00001d40  69 64 3a 41 44 44 20 52  30 2c 52 31 2c 52 30 3a  |id:ADD R0,R1,R0:|
00001d50  4d 4f 56 20 52 32 2c 23  26 34 34 0d 10 90 0e 2e  |MOV R2,#&44.....|
00001d60  72 65 63 74 61 6e 67 6c  65 0d 10 9a 47 4c 44 52  |rectangle...GLDR|
00001d70  42 20 52 31 2c 5b 52 30  2c 23 26 31 5d 3a 53 54  |B R1,[R0,#&1]:ST|
00001d80  52 42 20 52 31 2c 5b 52  30 5d 3a 4c 44 52 42 20  |RB R1,[R0]:LDRB |
00001d90  52 31 2c 5b 52 30 2c 23  26 31 34 31 5d 3a 53 54  |R1,[R0,#&141]:ST|
00001da0  52 42 20 52 31 2c 5b 52  30 2c 23 26 31 34 30 5d  |RB R1,[R0,#&140]|
00001db0  0d 10 a4 4f 4c 44 52 42  20 52 31 2c 5b 52 30 2c  |...OLDRB R1,[R0,|
00001dc0  23 26 32 38 31 5d 3a 53  54 52 42 20 52 31 2c 5b  |#&281]:STRB R1,[|
00001dd0  52 30 2c 23 26 32 38 30  5d 3a 4c 44 52 42 20 52  |R0,#&280]:LDRB R|
00001de0  31 2c 5b 52 30 2c 23 26  33 43 31 5d 3a 53 54 52  |1,[R0,#&3C1]:STR|
00001df0  42 20 52 31 2c 5b 52 30  2c 23 26 33 43 30 5d 0d  |B R1,[R0,#&3C0].|
00001e00  10 ae 4f 4c 44 52 42 20  52 31 2c 5b 52 30 2c 23  |..OLDRB R1,[R0,#|
00001e10  26 35 30 31 5d 3a 53 54  52 42 20 52 31 2c 5b 52  |&501]:STRB R1,[R|
00001e20  30 2c 23 26 35 30 30 5d  3a 4c 44 52 42 20 52 31  |0,#&500]:LDRB R1|
00001e30  2c 5b 52 30 2c 23 26 36  34 31 5d 3a 53 54 52 42  |,[R0,#&641]:STRB|
00001e40  20 52 31 2c 5b 52 30 2c  23 26 36 34 30 5d 0d 10  | R1,[R0,#&640]..|
00001e50  b8 4f 4c 44 52 42 20 52  31 2c 5b 52 30 2c 23 26  |.OLDRB R1,[R0,#&|
00001e60  37 38 31 5d 3a 53 54 52  42 20 52 31 2c 5b 52 30  |781]:STRB R1,[R0|
00001e70  2c 23 26 37 38 30 5d 3a  4c 44 52 42 20 52 31 2c  |,#&780]:LDRB R1,|
00001e80  5b 52 30 2c 23 26 38 43  31 5d 3a 53 54 52 42 20  |[R0,#&8C1]:STRB |
00001e90  52 31 2c 5b 52 30 2c 23  26 38 43 30 5d 0d 10 c2  |R1,[R0,#&8C0]...|
00001ea0  29 4c 44 52 42 20 52 31  2c 5b 52 30 2c 23 26 41  |)LDRB R1,[R0,#&A|
00001eb0  30 31 5d 3a 53 54 52 42  20 52 31 2c 5b 52 30 2c  |01]:STRB R1,[R0,|
00001ec0  23 26 41 30 30 5d 0d 10  cc 3a 41 44 44 20 52 30  |#&A00]...:ADD R0|
00001ed0  2c 52 30 2c 23 26 31 3a  53 55 42 53 20 52 32 2c  |,R0,#&1:SUBS R2,|
00001ee0  52 32 2c 23 26 31 3a 42  4e 45 20 72 65 63 74 61  |R2,#&1:BNE recta|
00001ef0  6e 67 6c 65 3a 4d 4f 56  20 52 31 35 2c 52 31 34  |ngle:MOV R15,R14|
00001f00  0d 10 d6 11 2e 4d 65 6e  75 43 61 72 6f 75 73 65  |.....MenuCarouse|
00001f10  6c 0d 10 e0 5b 4d 4f 56  20 52 30 2c 23 31 39 3a  |l...[MOV R0,#19:|
00001f20  53 57 49 20 22 58 4f 53  5f 42 79 74 65 22 3a 4c  |SWI "XOS_Byte":L|
00001f30  44 52 20 52 31 32 2c 5b  52 39 5d 3a 4c 44 52 20  |DR R12,[R9]:LDR |
00001f40  52 30 2c 5b 52 31 32 5d  3a 4c 44 52 20 52 31 2c  |R0,[R12]:LDR R1,|
00001f50  6d 65 6e 3a 41 44 44 20  52 30 2c 52 31 2c 52 30  |men:ADD R0,R1,R0|
00001f60  3a 4d 4f 56 20 52 32 2c  23 26 34 38 0d 10 ea 11  |:MOV R2,#&48....|
00001f70  42 41 4c 20 72 65 63 74  61 6e 67 6c 65 0d 10 f4  |BAL rectangle...|
00001f80  18 2e 76 69 64 20 45 51  55 44 20 76 69 64 25 2b  |..vid EQUD vid%+|
00001f90  26 34 42 35 38 0d 10 fe  18 2e 6d 65 6e 20 45 51  |&4B58.....men EQ|
00001fa0  55 44 20 76 69 64 25 2b  26 34 41 32 34 0d 11 08  |UD vid%+&4A24...|
00001fb0  05 5d 0d 11 12 05 ed 0d  11 1c 0a 62 6f 78 25 3d  |.].........box%=|
00001fc0  30 0d 11 26 0a 65 25 3d  31 36 30 0d 11 30 09 66  |0..&.e%=160..0.f|
00001fd0  25 3d 36 34 0d 11 3a 09  67 25 3d 31 36 0d 11 44  |%=64..:.g%=16..D|
00001fe0  0a 66 6e 63 25 3d b9 0d  11 4e 0a 70 6c 79 25 3d  |.fnc%=...N.ply%=|
00001ff0  31 0d 11 58 0a 72 70 79  25 3d a3 0d 11 62 0a 73  |1..X.rpy%=...b.s|
00002000  61 6e 25 3d 30 0d 11 6c  0a 73 6e 64 25 3d b9 0d  |an%=0..l.snd%=..|
00002010  11 76 0a 73 75 62 25 3d  30 0d 11 80 0a 73 75 6e  |.v.sub%=0....sun|
00002020  25 3d 30 0d 11 8a 18 68  25 3d 8e 28 66 24 2b 22  |%=0....h%=.(f$+"|
00002030  43 6f 6e 66 69 67 75 72  65 22 29 0d 11 94 51 e8  |Configure")...Q.|
00002040  23 68 25 2c 72 61 74 25  2c 6e 69 67 25 2c 73 64  |#h%,rat%,nig%,sd|
00002050  73 25 2c 76 65 72 25 2c  67 72 64 25 2c 63 6c 61  |s%,ver%,grd%,cla|
00002060  25 2c 74 79 70 24 2c 68  65 64 25 2c 66 75 74 25  |%,typ$,hed%,fut%|
00002070  2c 70 61 70 25 2c 70 69  78 25 2c 66 72 6e 25 2c  |,pap%,pix%,frn%,|
00002080  61 74 74 65 6e 64 24 2c  63 6f 64 25 0d 11 9e 08  |attend$,cod%....|
00002090  d9 23 68 25 0d 11 a8 0a  67 72 64 25 3d 31 0d 11  |.#h%....grd%=1..|
000020a0  b2 15 68 25 3d 8e 28 66  24 2b 22 54 61 62 6c 65  |..h%=.(f$+"Table|
000020b0  73 22 29 0d 11 bc 0b e3  4b 25 3d 31 b8 36 0d 11  |s").....K%=1.6..|
000020c0  c6 0c e3 4a 25 3d 31 b8  31 30 0d 11 d0 24 e8 23  |...J%=1.10...$.#|
000020d0  68 25 2c 68 69 67 68 24  28 4b 25 2c 4a 25 29 2c  |h%,high$(K%,J%),|
000020e0  73 63 6f 72 65 73 25 28  4b 25 2c 4a 25 29 0d 11  |scores%(K%,J%)..|
000020f0  da 05 ed 0d 11 e4 05 ed  0d 11 ee 08 d9 23 68 25  |.............#h%|
00002100  0d 11 f8 18 68 25 3d 8e  28 22 72 61 6d 3a 46 61  |....h%=.("ram:Fa|
00002110  63 74 46 69 6c 65 22 29  0d 12 02 0b e3 4a 25 3d  |ctFile").....J%=|
00002120  31 b8 36 0d 12 0c 0b e3  4b 25 3d 31 b8 36 0d 12  |1.6.....K%=1.6..|
00002130  16 15 e8 23 68 25 2c 69  6e 66 6f 24 28 4a 25 2c  |...#h%,info$(J%,|
00002140  4b 25 29 0d 12 20 37 e7  6e 69 67 25 3a 69 6e 66  |K%).. 7.nig%:inf|
00002150  6f 24 28 4a 25 2c 4b 25  29 3d 22 4c 6f 41 20 22  |o$(J%,K%)="LoA "|
00002160  2b 6e 63 6c 24 28 4b 25  29 2b 22 20 22 2b 69 6e  |+ncl$(K%)+" "+in|
00002170  66 6f 24 28 4a 25 2c 4b  25 29 0d 12 2a 05 ed 0d  |fo$(J%,K%)..*...|
00002180  12 34 05 ed 0d 12 3e 08  d9 23 68 25 0d 12 48 10  |.4....>..#h%..H.|
00002190  e7 61 74 74 65 6e 64 24  3d 22 22 8c 0d 12 52 0c  |.attend$=""...R.|
000021a0  61 74 74 25 28 29 3d 30  0d 12 5c 05 cc 0d 12 66  |att%()=0..\....f|
000021b0  32 68 25 3d 8e 28 66 24  2b 22 41 63 68 69 65 76  |2h%=.(f$+"Achiev|
000021c0  65 2e 41 63 68 69 65 76  65 22 2b c3 28 63 6c 61  |e.Achieve"+.(cla|
000021d0  25 29 2b 22 2e 22 2b 61  74 74 65 6e 64 24 29 0d  |%)+"."+attend$).|
000021e0  12 70 0b e3 4c 25 3d 30  b8 34 0d 12 7a 0b e3 4b  |.p..L%=0.4..z..K|
000021f0  25 3d 31 b8 36 0d 12 84  0b e3 4a 25 3d 31 b8 36  |%=1.6.....J%=1.6|
00002200  0d 12 8e 17 e8 23 68 25  2c 61 74 74 25 28 4a 25  |.....#h%,att%(J%|
00002210  2c 4b 25 2c 4c 25 29 0d  12 98 05 ed 0d 12 a2 05  |,K%,L%).........|
00002220  ed 0d 12 ac 05 ed 0d 12  b6 08 d9 23 68 25 0d 12  |...........#h%..|
00002230  c0 05 cd 0d 12 ca 05 e1  0d 12 d4 0b dd f2 73 6f  |..............so|
00002240  75 6e 64 0d 12 de 12 e7  ac a6 2d 32 3a 66 6e 63  |und.......-2:fnc|
00002250  25 3d b9 3a e1 0d 12 e8  0c e7 ac 66 6e 63 25 3a  |%=.:.......fnc%:|
00002260  e1 0d 12 f2 0a e7 a6 2d  33 31 8c 0d 12 fc 0a 66  |.......-31.....f|
00002270  6e 63 25 3d a3 0d 13 06  0e 73 6e 64 25 3d ac 73  |nc%=.....snd%=.s|
00002280  6e 64 25 0d 13 10 25 e7  73 6e 64 25 ff 22 56 4f  |nd%...%.snd%."VO|
00002290  4c 55 4d 45 20 22 2b c3  28 4d 25 29 8b ff 22 56  |LUME "+.(M%).."V|
000022a0  4f 4c 55 4d 45 20 31 22  0d 13 1a 05 cd 0d 13 24  |OLUME 1".......$|
000022b0  05 e1 0d 13 2e 0b dd f2  66 6c 75 73 68 0d 13 38  |........flush..8|
000022c0  0b 2a 46 58 32 31 20 39  0d 13 42 05 e1 0d 13 4c  |.*FX21 9..B....L|
000022d0  10 dd f2 6e 75 6d 62 65  72 6e 61 6d 65 0d 13 56  |...numbername..V|
000022e0  07 c8 97 87 0d 13 60 19  e7 ac 72 70 79 25 3a ef  |......`...rpy%:.|
000022f0  37 3a f2 65 6e 74 65 72  6e 61 6d 65 73 0d 13 6a  |7:.enternames..j|
00002300  0a 72 70 79 25 3d b9 0d  13 74 05 e1 0d 13 7e 1b  |.rpy%=...t....~.|
00002310  dd a4 61 72 65 61 28 78  31 25 2c 79 31 25 2c 78  |..area(x1%,y1%,x|
00002320  32 25 2c 79 32 25 29 0d  13 88 19 e7 6d 6f 78 25  |2%,y2%).....mox%|
00002330  3c 78 31 25 84 6d 6f 78  25 3e 78 32 25 3a 3d a3  |<x1%.mox%>x2%:=.|
00002340  0d 13 92 19 e7 6d 6f 79  25 3c 79 31 25 84 6d 6f  |.....moy%<y1%.mo|
00002350  79 25 3e 79 32 25 3a 3d  a3 0d 13 9c 06 3d b9 0d  |y%>y2%:=.....=..|
00002360  13 a6 22 dd f2 63 61 72  64 28 74 24 2c 74 61 78  |.."..card(t$,tax|
00002370  25 2c 74 61 79 25 2c 73  7a 78 25 2c 73 7a 79 25  |%,tay%,szx%,szy%|
00002380  29 0d 13 b0 06 ef 35 0d  13 ba 08 e6 30 2c 38 0d  |).....5.....0,8.|
00002390  13 c4 2a c8 93 c8 90 74  61 78 25 2a 67 25 2c 74  |..*....tax%*g%,t|
000023a0  61 79 25 2a 67 25 2c 73  7a 78 25 2a 65 25 2b 65  |ay%*g%,szx%*e%+e|
000023b0  25 2c 73 7a 79 25 2a 66  25 0d 13 ce 09 e6 30 2c  |%,szy%*f%.....0,|
000023c0  31 31 0d 13 d8 2f c8 93  c8 90 74 61 78 25 2a 67  |11.../....tax%*g|
000023d0  25 2b 33 32 30 2c 74 61  79 25 2a 67 25 2c 73 7a  |%+320,tay%*g%,sz|
000023e0  78 25 2a 65 25 2d 31 36  32 2c 73 7a 79 25 2a 66  |x%*e%-162,szy%*f|
000023f0  25 0d 13 e2 08 e6 30 2c  30 0d 13 ec 2f e7 73 7a  |%.....0,0.../.sz|
00002400  78 25 2a 65 25 2b 65 25  3e 3d 31 32 38 30 20 73  |x%*e%+e%>=1280 s|
00002410  72 78 25 3d 31 32 37 38  8b 73 72 78 25 3d 73 7a  |rx%=1278.srx%=sz|
00002420  78 25 2a 65 25 2b 65 25  0d 13 f6 22 c8 93 74 61  |x%*e%+e%..."..ta|
00002430  78 25 2a 67 25 2c 74 61  79 25 2a 67 25 2c 73 72  |x%*g%,tay%*g%,sr|
00002440  78 25 2c 73 7a 79 25 2a  66 25 0d 14 00 09 e6 30  |x%,szy%*f%.....0|
00002450  2c 31 33 0d 14 0a 22 ec  74 61 78 25 2a 67 25 2b  |,13...".tax%*g%+|
00002460  66 25 2c 74 61 79 25 2a  67 25 2b 73 7a 79 25 2a  |f%,tay%*g%+szy%*|
00002470  66 25 2b 66 25 0d 14 14  11 f0 30 2c a9 28 74 24  |f%+f%.....0,.(t$|
00002480  29 2a 67 25 2c 30 0d 14  1e 1f f0 38 35 2c 74 61  |)*g%,0.....85,ta|
00002490  78 25 2a 67 25 2c 74 61  79 25 2a 67 25 2b 73 7a  |x%*g%,tay%*g%+sz|
000024a0  79 25 2a 66 25 0d 14 28  16 f0 38 31 2c 31 32 38  |y%*f%..(..81,128|
000024b0  2b a9 28 74 24 29 2a 67  25 2c 30 0d 14 32 08 e6  |+.(t$)*g%,0..2..|
000024c0  30 2c 30 0d 14 3c 1c ec  74 61 78 25 2a 67 25 2c  |0,0..<..tax%*g%,|
000024d0  74 61 79 25 2a 67 25 2b  73 7a 79 25 2a 66 25 0d  |tay%*g%+szy%*f%.|
000024e0  14 46 0c f0 31 2c 66 25  2c 66 25 0d 14 50 11 f0  |.F..1,f%,f%..P..|
000024f0  31 2c a9 28 74 24 29 2a  67 25 2c 30 0d 14 5a 0d  |1,.(t$)*g%,0..Z.|
00002500  f0 31 2c 66 25 2c 2d 66  25 0d 14 64 22 ec 74 61  |.1,f%,-f%..d".ta|
00002510  78 25 2a 67 25 2b 66 25  2c 74 61 79 25 2a 67 25  |x%*g%+f%,tay%*g%|
00002520  2b 73 7a 79 25 2a 66 25  2b 34 34 0d 14 6e 07 f1  |+szy%*f%+44..n..|
00002530  74 24 0d 14 78 0e e3 4a  25 3d 31 b8 73 7a 78 25  |t$..x..J%=1.szx%|
00002540  0d 14 82 1d ec 74 61 78  25 2a 67 25 2b 4a 25 2a  |.....tax%*g%+J%*|
00002550  65 25 2b 65 25 2c 74 61  79 25 2a 67 25 0d 14 8c  |e%+e%,tay%*g%...|
00002560  10 f0 31 2c 30 2c 73 7a  79 25 2a 66 25 0d 14 96  |..1,0,szy%*f%...|
00002570  05 ed 0d 14 a0 0e e3 4a  25 3d 31 b8 73 7a 79 25  |.......J%=1.szy%|
00002580  0d 14 aa 1a ec 74 61 78  25 2a 67 25 2c 74 61 79  |.....tax%*g%,tay|
00002590  25 2a 67 25 2b 4a 25 2a  66 25 0d 14 b4 13 f0 31  |%*g%+J%*f%.....1|
000025a0  2c 73 7a 78 25 2a 65 25  2b 65 25 2c 30 0d 14 be  |,szx%*e%+e%,0...|
000025b0  05 ed 0d 14 c8 06 ef 34  0d 14 d2 05 87 0d 14 dc  |.......4........|
000025c0  05 e1 0d 14 e6 12 dd f2  69 6e 73 74 72 75 63 74  |........instruct|
000025d0  69 6f 6e 73 0d 14 f0 0c  e7 ac a6 2d 33 38 3a e1  |ions.......-38:.|
000025e0  0d 14 fa 06 ef 37 0d 15  04 07 c8 97 87 0d 15 0e  |.....7..........|
000025f0  14 c8 99 22 41 42 43 5f  42 6c 61 6e 6b 22 2c 31  |..."ABC_Blank",1|
00002600  35 0d 15 18 15 c8 99 22  41 42 43 5f 43 6f 6c 6f  |5......"ABC_Colo|
00002610  75 72 22 2c 31 35 0d 15  22 08 fb 31 33 36 0d 15  |ur",15.."..136..|
00002620  2c 05 db 0d 15 36 08 e6  30 2c 35 0d 15 40 17 c8  |,....6..0,5..@..|
00002630  93 c8 90 32 34 30 2c 30  2c 31 30 34 30 2c 31 30  |...240,0,1040,10|
00002640  32 30 0d 15 4a 08 e6 30  2c 30 0d 15 54 13 c8 93  |20..J..0,0..T...|
00002650  30 2c 30 2c 31 32 37 38  2c 31 30 32 30 0d 15 5e  |0,0,1278,1020..^|
00002660  06 fb 30 0d 15 68 08 4b  25 3d 30 0d 15 72 08 59  |..0..h.K%=0..r.Y|
00002670  25 3d 31 0d 15 7c 0b e3  4a 25 3d 31 b8 36 0d 15  |%=1..|..J%=1.6..|
00002680  86 06 fb 30 0d 15 90 08  fb 31 33 36 0d 15 9a 1c  |...0.....136....|
00002690  f1 8a 31 2c 59 25 29 74  79 70 24 22 20 22 4a 25  |..1,Y%)typ$" "J%|
000026a0  22 20 20 20 20 20 2d 22  0d 15 a4 08 fb 31 33 33  |"     -".....133|
000026b0  0d 15 ae 1a f1 8a 31 36  2c 59 25 29 69 6e 66 6f  |......16,Y%)info|
000026c0  24 28 67 6d 65 25 2c 4a  25 29 0d 15 b8 09 59 25  |$(gme%,J%)....Y%|
000026d0  2b 3d 31 0d 15 c2 0b e3  58 25 3d 31 b8 34 0d 15  |+=1.....X%=1.4..|
000026e0  cc 07 fb 31 34 0d 15 d6  08 fb 31 33 36 0d 15 e0  |...14.....136...|
000026f0  1d f1 8a 31 2c 59 25 29  22 70 72 61 63 74 69 63  |...1,Y%)"practic|
00002700  65 20 66 22 58 25 22 20  2d 22 0d 15 ea 06 fb 39  |e f"X%" -".....9|
00002710  0d 15 f4 08 fb 31 33 33  0d 15 fe 14 f1 8a 31 36  |.....133......16|
00002720  2c 59 25 29 64 61 74 24  28 4b 25 29 0d 16 08 09  |,Y%)dat$(K%)....|
00002730  4b 25 2b 3d 31 0d 16 12  09 59 25 2b 3d 31 0d 16  |K%+=1....Y%+=1..|
00002740  1c 05 ed 0d 16 26 05 ed  0d 16 30 08 e6 30 2c 30  |.....&....0..0,0|
00002750  0d 16 3a 13 86 32 34 30  2c 30 2c 32 34 30 2c 31  |..:..240,0,240,1|
00002760  30 32 30 0d 16 44 13 c8  99 22 41 42 43 5f 50 61  |020..D..."ABC_Pa|
00002770  6c 65 74 74 65 22 0d 16  4e 05 f5 0d 16 58 0b fd  |lette"..N....X..|
00002780  a4 6c 65 61 76 65 0d 16  62 06 ef 37 0d 16 6c 1a  |.leave..b..7..l.|
00002790  e7 73 75 6e 25 3e 30 20  73 75 6e 25 2d 3d 31 8b  |.sun%>0 sun%-=1.|
000027a0  73 75 6e 25 3d 31 0d 16  76 09 f2 6d 65 6e 75 0d  |sun%=1..v..menu.|
000027b0  16 80 05 e1 0d 16 8a 0b  dd f2 61 6d 6f 75 6e 0d  |..........amoun.|
000027c0  16 94 0b e3 4a 25 3d 31  b8 34 0d 16 9e 12 e7 6e  |....J%=1.4.....n|
000027d0  61 6d 65 24 28 4a 25 29  3e 22 22 8c 0d 16 a8 33  |ame$(J%)>""....3|
000027e0  c8 99 22 41 42 43 5f 50  72 79 6e 74 53 74 72 69  |.."ABC_PryntStri|
000027f0  6e 67 22 2c 6e 61 6d 65  24 28 4a 25 29 2c 31 33  |ng",name$(J%),13|
00002800  32 2c 32 32 38 2d 4a 25  2a 31 38 2c 31 2c 37 0d  |2,228-J%*18,1,7.|
00002810  16 b2 36 c8 99 22 41 42  43 5f 50 72 79 6e 74 53  |..6.."ABC_PryntS|
00002820  74 72 69 6e 67 22 2c 6e  61 6d 65 24 28 4a 25 29  |tring",name$(J%)|
00002830  2c 31 33 34 2c 32 32 39  2d 4a 25 2a 31 38 2c 31  |,134,229-J%*18,1|
00002840  2c 4a 25 2b 37 0d 16 bc  2d c8 99 22 41 42 43 5f  |,J%+7...-.."ABC_|
00002850  50 72 79 6e 74 53 74 72  69 6e 67 22 2c 22 3a 22  |PryntString",":"|
00002860  2c 33 31 32 2c 32 32 38  2d 4a 25 2a 31 38 2c 31  |,312,228-J%*18,1|
00002870  2c 37 0d 16 c6 30 c8 99  22 41 42 43 5f 50 72 79  |,7...0.."ABC_Pry|
00002880  6e 74 53 74 72 69 6e 67  22 2c 22 3a 22 2c 33 31  |ntString",":",31|
00002890  34 2c 32 32 39 2d 4a 25  2a 31 38 2c 31 2c 4a 25  |4,229-J%*18,1,J%|
000028a0  2b 37 0d 16 d0 35 c8 99  22 41 42 43 5f 50 72 79  |+7...5.."ABC_Pry|
000028b0  6e 74 53 74 72 69 6e 67  22 2c c3 28 73 63 72 25  |ntString",.(scr%|
000028c0  28 4a 25 29 29 2c 33 36  30 2c 32 32 38 2d 4a 25  |(J%)),360,228-J%|
000028d0  2a 31 38 2c 31 2c 37 0d  16 da 38 c8 99 22 41 42  |*18,1,7...8.."AB|
000028e0  43 5f 50 72 79 6e 74 53  74 72 69 6e 67 22 2c c3  |C_PryntString",.|
000028f0  28 73 63 72 25 28 4a 25  29 29 2c 33 36 32 2c 32  |(scr%(J%)),362,2|
00002900  32 39 2d 4a 25 2a 31 38  2c 31 2c 4a 25 2b 37 0d  |29-J%*18,1,J%+7.|
00002910  16 e4 33 c8 99 22 41 42  43 5f 50 72 79 6e 74 53  |..3.."ABC_PryntS|
00002920  74 72 69 6e 67 22 2c c3  28 51 25 29 2b 22 25 22  |tring",.(Q%)+"%"|
00002930  2c 34 37 30 2c 32 32 38  2d 4a 25 2a 31 38 2c 31  |,470,228-J%*18,1|
00002940  2c 37 0d 16 ee 36 c8 99  22 41 42 43 5f 50 72 79  |,7...6.."ABC_Pry|
00002950  6e 74 53 74 72 69 6e 67  22 2c c3 28 51 25 29 2b  |ntString",.(Q%)+|
00002960  22 25 22 2c 34 37 32 2c  32 32 39 2d 4a 25 2a 31  |"%",472,229-J%*1|
00002970  38 2c 31 2c 4a 25 2b 37  0d 16 f8 05 cc 0d 17 02  |8,1,J%+7........|
00002980  31 c8 99 22 41 42 43 5f  50 72 79 6e 74 53 74 72  |1.."ABC_PryntStr|
00002990  69 6e 67 22 2c c4 38 2c  22 2d 22 29 2c 31 33 32  |ing",.8,"-"),132|
000029a0  2c 32 32 38 2d 4a 25 2a  31 38 2c 31 2c 37 0d 17  |,228-J%*18,1,7..|
000029b0  0c 34 c8 99 22 41 42 43  5f 50 72 79 6e 74 53 74  |.4.."ABC_PryntSt|
000029c0  72 69 6e 67 22 2c c4 38  2c 22 2d 22 29 2c 31 33  |ring",.8,"-"),13|
000029d0  34 2c 32 32 39 2d 4a 25  2a 31 38 2c 31 2c 4a 25  |4,229-J%*18,1,J%|
000029e0  2b 37 0d 17 16 2d c8 99  22 41 42 43 5f 50 72 79  |+7...-.."ABC_Pry|
000029f0  6e 74 53 74 72 69 6e 67  22 2c 22 2d 22 2c 33 31  |ntString","-",31|
00002a00  32 2c 32 32 38 2d 4a 25  2a 31 38 2c 31 2c 37 0d  |2,228-J%*18,1,7.|
00002a10  17 20 30 c8 99 22 41 42  43 5f 50 72 79 6e 74 53  |. 0.."ABC_PryntS|
00002a20  74 72 69 6e 67 22 2c 22  2d 22 2c 33 31 34 2c 32  |tring","-",314,2|
00002a30  32 39 2d 4a 25 2a 31 38  2c 31 2c 4a 25 2b 37 0d  |29-J%*18,1,J%+7.|
00002a40  17 2a 2d c8 99 22 41 42  43 5f 50 72 79 6e 74 53  |.*-.."ABC_PryntS|
00002a50  74 72 69 6e 67 22 2c 22  2d 22 2c 33 36 30 2c 32  |tring","-",360,2|
00002a60  32 38 2d 4a 25 2a 31 38  2c 31 2c 37 0d 17 34 30  |28-J%*18,1,7..40|
00002a70  c8 99 22 41 42 43 5f 50  72 79 6e 74 53 74 72 69  |.."ABC_PryntStri|
00002a80  6e 67 22 2c 22 2d 22 2c  33 36 32 2c 32 32 39 2d  |ng","-",362,229-|
00002a90  4a 25 2a 31 38 2c 31 2c  4a 25 2b 37 0d 17 3e 2d  |J%*18,1,J%+7..>-|
00002aa0  c8 99 22 41 42 43 5f 50  72 79 6e 74 53 74 72 69  |.."ABC_PryntStri|
00002ab0  6e 67 22 2c 22 2d 22 2c  34 37 30 2c 32 32 38 2d  |ng","-",470,228-|
00002ac0  4a 25 2a 31 38 2c 31 2c  37 0d 17 48 30 c8 99 22  |J%*18,1,7..H0.."|
00002ad0  41 42 43 5f 50 72 79 6e  74 53 74 72 69 6e 67 22  |ABC_PryntString"|
00002ae0  2c 22 2d 22 2c 34 37 32  2c 32 32 39 2d 4a 25 2a  |,"-",472,229-J%*|
00002af0  31 38 2c 31 2c 4a 25 2b  37 0d 17 52 05 cd 0d 17  |18,1,J%+7..R....|
00002b00  5c 05 ed 0d 17 66 05 e1  0d 17 70 10 dd f2 65 6e  |\....f....p...en|
00002b10  74 65 72 6e 61 6d 65 73  0d 17 7a 0e 6e 61 6d 65  |ternames..z.name|
00002b20  24 28 29 3d 22 22 0d 17  84 1e e7 70 6c 79 25 3d  |$()="".....ply%=|
00002b30  31 3a 6e 61 6d 65 24 28  31 29 3d 61 74 74 65 6e  |1:name$(1)=atten|
00002b40  64 24 3a e1 0d 17 8e 13  c8 99 22 41 42 43 5f 42  |d$:......."ABC_B|
00002b50  6c 61 6e 6b 22 2c 33 0d  17 98 14 c8 99 22 41 42  |lank",3......"AB|
00002b60  43 5f 43 6f 6c 6f 75 72  22 2c 33 0d 17 a2 09 e6  |C_Colour",3.....|
00002b70  30 2c 31 32 0d 17 ac 17  c8 93 c8 90 32 30 30 2c  |0,12........200,|
00002b80  31 38 30 2c 38 39 36 2c  36 33 32 0d 17 b6 08 e6  |180,896,632.....|
00002b90  30 2c 37 0d 17 c0 15 c8  93 32 30 30 2c 31 38 30  |0,7......200,180|
00002ba0  2c 38 39 36 2c 36 33 32  0d 17 ca 48 e7 66 6f 72  |,896,632...H.for|
00002bb0  25 f2 77 69 6e 67 73 28  22 45 4e 54 52 45 52 20  |%.wings("ENTRER |
00002bc0  4c 45 53 20 4e 4f 4d 53  22 2c 31 37 32 2c 31 38  |LES NOMS",172,18|
00002bd0  38 29 8b f2 77 69 6e 67  73 28 22 45 4e 54 45 52  |8)..wings("ENTER|
00002be0  20 4e 41 4d 45 53 22 2c  31 37 32 2c 31 38 38 29  | NAMES",172,188)|
00002bf0  0d 17 d4 08 fb 31 34 30  0d 17 de 13 c8 99 22 41  |.....140......"A|
00002c00  42 43 5f 50 61 6c 65 74  74 65 22 0d 17 e8 0e e3  |BC_Palette".....|
00002c10  4a 25 3d 31 b8 70 6c 79  25 0d 17 f2 07 fb 31 31  |J%=1.ply%.....11|
00002c20  0d 17 fc 42 e7 66 6f 72  25 f1 8a 33 30 2c 31 32  |...B.for%..30,12|
00002c30  2b 4a 25 2a 32 29 22 4a  4f 55 45 55 52 20 22 4a  |+J%*2)"JOUEUR "J|
00002c40  25 22 20 3e 22 8b f1 8a  33 30 2c 31 32 2b 4a 25  |%" >"...30,12+J%|
00002c50  2a 32 29 22 50 4c 41 59  45 52 20 22 4a 25 22 20  |*2)"PLAYER "J%" |
00002c60  3e 22 0d 18 06 07 fb 31  33 0d 18 10 18 f2 69 6e  |>".....13.....in|
00002c70  70 75 74 28 38 2c 34 32  2c 31 32 2b 4a 25 2a 32  |put(8,42,12+J%*2|
00002c80  29 0d 18 1a 06 ef 37 0d  18 24 0b e7 69 24 3d 22  |).....7..$..i$="|
00002c90  22 8c 0d 18 2e 2e e7 66  6f 72 25 69 24 3d 22 4a  |"......for%i$="J|
00002ca0  6f 75 65 75 72 20 22 2b  c3 28 4a 25 29 8b 69 24  |oueur "+.(J%).i$|
00002cb0  3d 22 50 6c 61 79 65 72  20 22 2b c3 28 4a 25 29  |="Player "+.(J%)|
00002cc0  0d 18 38 13 f1 8a 34 32  2c 31 32 2b 4a 25 2a 32  |..8...42,12+J%*2|
00002cd0  29 69 24 0d 18 42 05 cd  0d 18 4c 10 6e 61 6d 65  |)i$..B....L.name|
00002ce0  24 28 4a 25 29 3d 69 24  0d 18 56 05 ed 0d 18 60  |$(J%)=i$..V....`|
00002cf0  0e f2 64 65 6c 61 79 28  35 30 29 0d 18 6a 05 e1  |..delay(50)..j..|
00002d00  0d 18 74 1b dd a4 69 6e  69 74 69 61 6c 63 6f 6d  |..t...initialcom|
00002d10  70 72 65 73 73 65 64 28  73 24 29 0d 18 7e 0f 68  |pressed(s$)..~.h|
00002d20  25 3d 8e 28 66 24 2b 73  24 29 0d 18 88 0d 6c 65  |%=.(f$+s$)....le|
00002d30  6e 25 3d a2 23 68 25 0d  18 92 08 d9 23 68 25 0d  |n%=.#h%.....#h%.|
00002d40  18 9c 0b de 7a 25 6c 65  6e 25 0d 18 a6 1d ff 22  |....z%len%....."|
00002d50  4c 4f 41 44 20 22 2b 66  24 2b 73 24 2b 22 20 22  |LOAD "+f$+s$+" "|
00002d60  2b c3 7e 28 7a 25 29 0d  18 b0 07 3d 7a 25 0d 18  |+.~(z%)....=z%..|
00002d70  ba 0d dd f2 75 70 67 72  61 64 65 0d 18 c4 1d 72  |....upgrade....r|
00002d80  65 6d 25 3d 61 74 74 25  28 67 6d 65 25 2c 67 72  |em%=att%(gme%,gr|
00002d90  64 25 2c 73 75 62 25 29  0d 18 ce 39 e7 51 25 3e  |d%,sub%)...9.Q%>|
00002da0  39 39 80 61 74 74 25 28  67 6d 65 25 2c 67 72 64  |99.att%(gme%,grd|
00002db0  25 2c 73 75 62 25 29 3e  32 3a 61 74 74 25 28 67  |%,sub%)>2:att%(g|
00002dc0  6d 65 25 2c 67 72 64 25  2c 73 75 62 25 29 2b 3d  |me%,grd%,sub%)+=|
00002dd0  31 0d 18 d8 38 e7 51 25  3e 39 39 80 61 74 74 25  |1...8.Q%>99.att%|
00002de0  28 67 6d 65 25 2c 67 72  64 25 2c 73 75 62 25 29  |(gme%,grd%,sub%)|
00002df0  3c 33 3a 61 74 74 25 28  67 6d 65 25 2c 67 72 64  |<3:att%(gme%,grd|
00002e00  25 2c 73 75 62 25 29 3d  33 0d 18 e2 38 e7 51 25  |%,sub%)=3...8.Q%|
00002e10  3e 34 39 80 61 74 74 25  28 67 6d 65 25 2c 67 72  |>49.att%(gme%,gr|
00002e20  64 25 2c 73 75 62 25 29  3c 32 3a 61 74 74 25 28  |d%,sub%)<2:att%(|
00002e30  67 6d 65 25 2c 67 72 64  25 2c 73 75 62 25 29 3d  |gme%,grd%,sub%)=|
00002e40  32 0d 18 ec 32 e7 61 74  74 25 28 67 6d 65 25 2c  |2...2.att%(gme%,|
00002e50  67 72 64 25 2c 73 75 62  25 29 3d 30 3a 61 74 74  |grd%,sub%)=0:att|
00002e60  25 28 67 6d 65 25 2c 67  72 64 25 2c 73 75 62 25  |%(gme%,grd%,sub%|
00002e70  29 3d 31 0d 18 f6 05 e1  0d 19 00 18 dd a4 76 61  |)=1...........va|
00002e80  6c 69 64 61 74 65 6e 75  6d 62 65 72 28 61 24 29  |lidatenumber(a$)|
00002e90  0d 19 0a 0d e7 61 24 3d  22 22 3a 3d a3 0d 19 14  |.....a$="":=....|
00002ea0  08 4b 25 3d b9 0d 19 1e  0f e3 4a 25 3d 31 b8 a9  |.K%=......J%=1..|
00002eb0  28 61 24 29 0d 19 28 25  e7 c1 61 24 2c 4a 25 2c  |(a$)..(%..a$,J%,|
00002ec0  31 29 3c 22 30 22 84 c1  61 24 2c 4a 25 2c 31 29  |1)<"0"..a$,J%,1)|
00002ed0  3e 22 39 22 3a 4b 25 3d  a3 0d 19 32 05 ed 0d 19  |>"9":K%=...2....|
00002ee0  3c 07 3d 4b 25 0d 19 46  12 dd a4 63 6f 75 6e 74  |<.=K%..F...count|
00002ef0  28 61 24 2c 74 24 29 0d  19 50 0a 63 74 72 25 3d  |(a$,t$)..P.ctr%=|
00002f00  30 0d 19 5a 0f e3 57 25  3d 31 b8 a9 28 61 24 29  |0..Z..W%=1..(a$)|
00002f10  0d 19 64 19 e7 c1 61 24  2c 57 25 2c 31 29 3d 74  |..d...a$,W%,1)=t|
00002f20  24 3a 63 74 72 25 2b 3d  31 0d 19 6e 05 ed 0d 19  |$:ctr%+=1..n....|
00002f30  78 09 3d 63 74 72 25 0d  19 82 17 dd a4 65 78 74  |x.=ctr%......ext|
00002f40  72 61 63 74 28 52 45 54  55 52 4e 61 24 29 0d 19  |ract(RETURNa$)..|
00002f50  8c 16 7a 24 3d c0 61 24  2c a7 61 24 2c 22 2c 22  |..z$=.a$,.a$,","|
00002f60  29 2d 31 29 0d 19 96 16  61 24 3d c1 61 24 2c a7  |)-1)....a$=.a$,.|
00002f70  61 24 2c 22 2c 22 29 2b  31 29 0d 19 a0 07 3d 7a  |a$,",")+1)....=z|
00002f80  24 0d 19 aa 0f dd f2 66  69 72 65 77 6f 72 6b 73  |$......fireworks|
00002f90  0d 19 b4 0c e7 51 25 3c  38 30 3a e1 0d 19 be 13  |.....Q%<80:.....|
00002fa0  c8 99 22 41 42 43 5f 42  6c 61 6e 6b 22 2c 37 0d  |.."ABC_Blank",7.|
00002fb0  19 c8 14 c8 99 22 41 42  43 5f 43 6f 6c 6f 75 72  |....."ABC_Colour|
00002fc0  22 2c 37 0d 19 d2 23 f2  6e 6f 69 73 65 28 22 45  |",7...#.noise("E|
00002fd0  6e 64 22 2c 34 2c 26 31  37 46 2c 26 31 30 30 30  |nd",4,&17F,&1000|
00002fe0  2c 26 31 30 30 29 0d 19  dc 47 e7 66 6f 72 25 f2  |,&100)...G.for%.|
00002ff0  77 69 6e 67 73 28 22 46  49 4e 20 44 45 20 4c 41  |wings("FIN DE LA|
00003000  20 50 41 52 54 49 45 22  2c 31 37 32 2c 32 33 30  | PARTIE",172,230|
00003010  29 8b f2 77 69 6e 67 73  28 22 47 41 4d 45 20 4f  |)..wings("GAME O|
00003020  56 45 52 22 2c 31 37 32  2c 32 33 30 29 0d 19 e6  |VER",172,230)...|
00003030  13 c8 99 22 41 42 43 5f  50 61 6c 65 74 74 65 22  |..."ABC_Palette"|
00003040  0d 19 f0 0c f2 70 61 74  74 65 72 6e 0d 19 fa 05  |.....pattern....|
00003050  e1 0d 1a 04 17 dd f2 67  72 61 70 68 69 63 73 28  |.......graphics(|
00003060  7a 24 2c 62 63 6c 25 29  0d 1a 0e 0b e7 ac a6 2d  |z$,bcl%).......-|
00003070  32 3a e1 0d 1a 18 18 e7  a6 2d 32 33 3a f2 64 69  |2:.......-23:.di|
00003080  73 70 6c 61 79 28 32 33  2c 31 29 0d 1a 22 1a e7  |splay(23,1).."..|
00003090  a6 2d 31 31 39 3a f2 64  69 73 70 6c 61 79 28 31  |.-119:.display(1|
000030a0  31 39 2c 32 29 0d 1a 2c  1a e7 a6 2d 31 32 30 3a  |19,2)..,...-120:|
000030b0  f2 64 69 73 70 6c 61 79  28 31 32 30 2c 33 29 0d  |.display(120,3).|
000030c0  1a 36 05 e1 0d 1a 40 1c  dd f2 72 65 76 65 61 6c  |.6....@...reveal|
000030d0  28 62 63 6c 25 2c 66 6f  72 25 2c 6d 6f 73 25 29  |(bcl%,for%,mos%)|
000030e0  0d 1a 4a 0c e7 ac a6 2d  35 32 3a e1 0d 1a 54 07  |..J....-52:...T.|
000030f0  c8 97 87 0d 1a 5e 06 ef  37 0d 1a 68 21 c8 99 22  |.....^..7..h!.."|
00003100  41 42 43 5f 54 72 61 6e  73 66 65 72 22 2c 30 2c  |ABC_Transfer",0,|
00003110  31 33 36 2c 36 34 30 2c  31 38 0d 1a 72 17 74 24  |136,640,18..r.t$|
00003120  3d 69 6e 66 6f 24 28 67  6d 65 25 2c 67 72 64 25  |=info$(gme%,grd%|
00003130  29 0d 1a 7c 1d e7 ac 6e  69 67 25 3a 74 24 3d c1  |)..|...nig%:t$=.|
00003140  74 24 2c a7 74 24 2c 22  20 22 29 2b 31 29 0d 1a  |t$,.t$," ")+1)..|
00003150  86 06 ef 35 0d 1a 90 0b  e6 30 2c 62 63 6c 25 0d  |...5.....0,bcl%.|
00003160  1a 9a 06 c8 96 0d 1a a4  15 c8 93 c8 90 30 2c 34  |.............0,4|
00003170  37 36 2c 31 32 37 38 2c  36 38 0d 1a ae 0b e6 30  |76,1278,68.....0|
00003180  2c 66 6f 72 25 0d 1a b8  13 c8 93 30 2c 34 37 36  |,for%......0,476|
00003190  2c 31 32 37 38 2c 36 38  0d 1a c2 08 e6 30 2c 30  |,1278,68.....0,0|
000031a0  0d 1a cc 14 ec 36 34 30  2d a9 28 74 24 29 2a 38  |.....640-.(t$)*8|
000031b0  2c 35 32 34 0d 1a d6 07  f1 74 24 0d 1a e0 06 ef  |,524.....t$.....|
000031c0  34 0d 1a ea 05 87 0d 1a  f4 05 f5 0d 1a fe 0b fd  |4...............|
000031d0  a4 6c 65 61 76 65 0d 1b  08 13 c8 99 22 41 42 43  |.leave......"ABC|
000031e0  5f 52 65 73 74 6f 72 65  22 0d 1b 12 0b c8 8e 6d  |_Restore"......m|
000031f0  6f 73 25 ca 0d 1b 1c 0e  c9 31 3a f2 6d 6f 75 73  |os%......1:.mous|
00003200  65 31 0d 1b 26 0e c9 32  3a f2 6d 6f 75 73 65 32  |e1..&..2:.mouse2|
00003210  0d 1b 30 05 cb 0d 1b 3a  05 e1 0d 1b 44 28 dd f2  |..0....:....D(..|
00003220  72 65 63 28 62 63 6c 25  2c 6d 63 6c 25 2c 73 73  |rec(bcl%,mcl%,ss|
00003230  78 25 2c 73 73 79 25 2c  78 77 64 25 2c 79 68 74  |x%,ssy%,xwd%,yht|
00003240  25 29 0d 1b 4e 0b e6 30  2c 6d 63 6c 25 0d 1b 58  |%)..N..0,mcl%..X|
00003250  1b c8 93 c8 90 73 73 78  25 2c 73 73 79 25 2c 78  |.....ssx%,ssy%,x|
00003260  77 64 25 2c 79 68 74 25  0d 1b 62 0b e3 4a 25 3d  |wd%,yht%..b..J%=|
00003270  30 b8 33 0d 1b 6c 0b e6  30 2c 62 63 6c 25 0d 1b  |0.3..l..0,bcl%..|
00003280  76 23 c8 93 73 73 78 25  2b 4a 25 2a 34 2c 73 73  |v#..ssx%+J%*4,ss|
00003290  79 25 2b 4a 25 2a 34 2c  78 77 64 25 2c 79 68 74  |y%+J%*4,xwd%,yht|
000032a0  25 0d 1b 80 27 c8 93 73  73 78 25 2b 4a 25 2a 34  |%...'..ssx%+J%*4|
000032b0  2b 32 2c 73 73 79 25 2b  4a 25 2a 34 2c 78 77 64  |+2,ssy%+J%*4,xwd|
000032c0  25 2d 34 2c 79 68 74 25  0d 1b 8a 0b 78 77 64 25  |%-4,yht%....xwd%|
000032d0  2d 3d 38 0d 1b 94 0b 79  68 74 25 2d 3d 38 0d 1b  |-=8....yht%-=8..|
000032e0  9e 05 ed 0d 1b a8 05 e1  0d 1b b2 0c dd f2 72 61  |..............ra|
000032f0  6e 64 6f 6d 0d 1b bc 07  c8 97 87 0d 1b c6 13 c8  |ndom............|
00003300  99 22 41 42 43 5f 42 6c  61 6e 6b 22 2c 33 0d 1b  |."ABC_Blank",3..|
00003310  d0 14 c8 99 22 41 42 43  5f 43 6f 6c 6f 75 72 22  |...."ABC_Colour"|
00003320  2c 33 0d 1b da 09 e6 30  2c 31 32 0d 1b e4 17 c8  |,3.....0,12.....|
00003330  93 c8 90 32 30 30 2c 31  38 30 2c 38 39 36 2c 36  |...200,180,896,6|
00003340  33 32 0d 1b ee 08 e6 30  2c 37 0d 1b f8 15 c8 93  |32.....0,7......|
00003350  32 30 30 2c 31 38 30 2c  38 39 36 2c 36 33 32 0d  |200,180,896,632.|
00003360  1c 02 4b e7 66 6f 72 25  f2 77 69 6e 67 73 28 22  |..K.for%.wings("|
00003370  45 4e 54 52 45 52 20 4c  45 20 43 48 49 46 46 52  |ENTRER LE CHIFFR|
00003380  45 22 2c 31 37 32 2c 31  38 38 29 8b f2 77 69 6e  |E",172,188)..win|
00003390  67 73 28 22 45 4e 54 45  52 20 4e 55 4d 42 45 52  |gs("ENTER NUMBER|
000033a0  22 2c 31 37 32 2c 31 38  38 29 0d 1c 0c 2a c8 99  |",172,188)...*..|
000033b0  22 41 42 43 5f 55 6e 70  61 63 6b 53 70 72 69 74  |"ABC_UnpackSprit|
000033c0  65 22 2c 22 73 6d 61 6c  6c 22 2c 6a 25 2c 34 34  |e","small",j%,44|
000033d0  30 2c 39 36 0d 1c 16 2a  c8 99 22 41 42 43 5f 55  |0,96...*.."ABC_U|
000033e0  6e 70 61 63 6b 53 70 72  69 74 65 22 2c 22 73 6d  |npackSprite","sm|
000033f0  61 6c 6c 22 2c 6a 25 2c  31 32 30 2c 39 36 0d 1c  |all",j%,120,96..|
00003400  20 08 fb 31 34 30 0d 1c  2a 05 f5 0d 1c 34 06 fb  | ..140..*....4..|
00003410  37 0d 1c 3e 62 e7 66 6f  72 25 f2 63 65 6e 74 28  |7..>b.for%.cent(|
00003420  22 45 6e 74 72 65 72 20  6c 65 20 63 68 69 66 66  |"Entrer le chiff|
00003430  72 65 20 65 6e 74 72 65  20 31 20 65 74 20 39 39  |re entre 1 et 99|
00003440  39 39 22 2c 31 34 29 8b  f2 63 65 6e 74 28 22 45  |99",14)..cent("E|
00003450  6e 74 65 72 20 6e 75 6d  62 65 72 20 62 65 74 77  |nter number betw|
00003460  65 65 6e 20 31 20 61 6e  64 20 39 39 39 39 22 2c  |een 1 and 9999",|
00003470  31 34 29 0d 1c 48 18 f2  63 65 6e 74 28 22 3e 20  |14)..H..cent("> |
00003480  20 20 20 20 20 3c 22 2c  31 36 29 0d 1c 52 07 fb  |     <",16)..R..|
00003490  31 30 0d 1c 5c 13 c8 99  22 41 42 43 5f 50 61 6c  |10..\..."ABC_Pal|
000034a0  65 74 74 65 22 0d 1c 66  13 f2 69 6e 70 75 74 28  |ette"..f..input(|
000034b0  34 2c 33 38 2c 31 36 29  0d 1c 70 1a 4a 25 3d a4  |4,38,16)..p.J%=.|
000034c0  76 61 6c 69 64 61 74 65  6e 75 6d 62 65 72 28 69  |validatenumber(i|
000034d0  24 29 0d 1c 7a 09 e7 ac  4a 25 8c 0d 1c 84 06 ef  |$)..z...J%......|
000034e0  37 0d 1c 8e 07 fb 31 31  0d 1c 98 61 e7 66 6f 72  |7.....11...a.for|
000034f0  25 f2 63 65 6e 74 28 22  43 65 63 69 20 6e 27 65  |%.cent("Ceci n'e|
00003500  73 74 20 70 61 73 20 75  6e 20 63 68 69 66 66 72  |st pas un chiffr|
00003510  65 20 2d 20 72 65 63 6f  6d 6d 65 6e 63 65 72 22  |e - recommencer"|
00003520  2c 31 38 29 8b f2 63 65  6e 74 28 22 4e 6f 74 20  |,18)..cent("Not |
00003530  61 20 6e 75 6d 62 65 72  20 2d 20 74 72 79 20 61  |a number - try a|
00003540  67 61 69 6e 22 2c 31 38  29 0d 1c a2 0f f2 64 65  |gain",18).....de|
00003550  6c 61 79 28 31 30 30 29  0d 1c ac 16 f2 63 65 6e  |lay(100).....cen|
00003560  74 28 c4 32 35 2c 22 20  22 29 2c 31 38 29 0d 1c  |t(.25," "),18)..|
00003570  b6 05 cd 0d 1c c0 07 fd  4a 25 0d 1c ca 0e 73 65  |........J%....se|
00003580  64 25 3d a0 28 69 24 29  0d 1c d4 0f 52 25 3d b3  |d%=.(i$)....R%=.|
00003590  28 2d 73 65 64 25 29 0d  1c de 05 e1 0d 1c e8 0d  |(-sed%).........|
000035a0  dd f2 73 70 61 63 65 6f  72 0d 1c f2 0a e7 66 6f  |..spaceor.....fo|
000035b0  72 25 8c 0d 1c fc 1d 61  24 3d 22 61 70 70 75 79  |r%.....a$="appuy|
000035c0  65 72 20 73 75 72 20 6c  27 65 73 70 61 63 65 22  |er sur l'espace"|
000035d0  0d 1d 06 0b 62 24 3d 22  6f 75 22 0d 1d 10 1e 63  |....b$="ou"....c|
000035e0  24 3d 22 61 70 70 75 79  65 72 20 73 75 72 20 6c  |$="appuyer sur l|
000035f0  61 20 73 6f 75 72 69 73  22 0d 1d 1a 05 cc 0d 1d  |a souris".......|
00003600  24 14 61 24 3d 22 70 72  65 73 73 20 73 70 61 63  |$.a$="press spac|
00003610  65 22 0d 1d 2e 0b 62 24  3d 22 6f 72 22 0d 1d 38  |e"....b$="or"..8|
00003620  14 63 24 3d 22 63 6c 69  63 6b 20 6d 6f 75 73 65  |.c$="click mouse|
00003630  22 0d 1d 42 05 cd 0d 1d  4c 14 78 73 63 25 3d 33  |"..B....L.xsc%=3|
00003640  32 30 2d a9 28 61 24 29  2a 38 0d 1d 56 26 c8 99  |20-.(a$)*8..V&..|
00003650  22 41 42 43 5f 50 72 79  6e 74 53 74 72 69 6e 67  |"ABC_PryntString|
00003660  22 2c 61 24 2c 78 73 63  25 2c 36 37 2c 31 2c 37  |",a$,xsc%,67,1,7|
00003670  0d 1d 60 28 c8 99 22 41  42 43 5f 50 72 79 6e 74  |..`(.."ABC_Prynt|
00003680  53 74 72 69 6e 67 22 2c  61 24 2c 78 73 63 25 2b  |String",a$,xsc%+|
00003690  32 2c 36 38 2c 31 2c 35  0d 1d 6a 14 78 73 63 25  |2,68,1,5..j.xsc%|
000036a0  3d 33 32 30 2d a9 28 62  24 29 2a 38 0d 1d 74 26  |=320-.(b$)*8..t&|
000036b0  c8 99 22 41 42 43 5f 50  72 79 6e 74 53 74 72 69  |.."ABC_PryntStri|
000036c0  6e 67 22 2c 62 24 2c 78  73 63 25 2c 34 39 2c 31  |ng",b$,xsc%,49,1|
000036d0  2c 37 0d 1d 7e 28 c8 99  22 41 42 43 5f 50 72 79  |,7..~(.."ABC_Pry|
000036e0  6e 74 53 74 72 69 6e 67  22 2c 62 24 2c 78 73 63  |ntString",b$,xsc|
000036f0  25 2b 32 2c 35 30 2c 31  2c 35 0d 1d 88 14 78 73  |%+2,50,1,5....xs|
00003700  63 25 3d 33 32 30 2d a9  28 63 24 29 2a 38 0d 1d  |c%=320-.(c$)*8..|
00003710  92 26 c8 99 22 41 42 43  5f 50 72 79 6e 74 53 74  |.&.."ABC_PryntSt|
00003720  72 69 6e 67 22 2c 63 24  2c 78 73 63 25 2c 33 31  |ring",c$,xsc%,31|
00003730  2c 31 2c 37 0d 1d 9c 28  c8 99 22 41 42 43 5f 50  |,1,7...(.."ABC_P|
00003740  72 79 6e 74 53 74 72 69  6e 67 22 2c 63 24 2c 78  |ryntString",c$,x|
00003750  73 63 25 2b 32 2c 33 32  2c 31 2c 35 0d 1d a6 05  |sc%+2,32,1,5....|
00003760  e1 0d 1d b0 0b dd f2 65  6e 74 72 79 0d 1d ba 0c  |.......entry....|
00003770  e7 ac 74 61 62 25 3a e1  0d 1d c4 0a e7 66 6f 72  |..tab%:......for|
00003780  25 8c 0d 1d ce 2b 61 24  3d 22 67 72 69 6c 6c 65  |%....+a$="grille|
00003790  20 64 65 73 20 72 65 73  75 6c 74 61 74 73 20 65  | des resultats e|
000037a0  6c 65 76 65 73 20 63 68  61 6e 67 65 22 0d 1d d8  |leves change"...|
000037b0  24 c8 99 22 41 42 43 5f  50 72 79 6e 74 53 74 72  |$.."ABC_PryntStr|
000037c0  69 6e 67 22 2c 61 24 2c  35 30 2c 38 34 2c 31 2c  |ing",a$,50,84,1,|
000037d0  37 0d 1d e2 25 c8 99 22  41 42 43 5f 50 72 79 6e  |7...%.."ABC_Pryn|
000037e0  74 53 74 72 69 6e 67 22  2c 61 24 2c 35 32 2c 38  |tString",a$,52,8|
000037f0  35 2c 31 2c 31 31 0d 1d  ec 05 cc 0d 1d f6 21 61  |5,1,11........!a|
00003800  24 3d 22 68 69 67 68 20  73 63 6f 72 65 20 74 61  |$="high score ta|
00003810  62 6c 65 20 63 68 61 6e  67 65 64 22 0d 1e 00 25  |ble changed"...%|
00003820  c8 99 22 41 42 43 5f 50  72 79 6e 74 53 74 72 69  |.."ABC_PryntStri|
00003830  6e 67 22 2c 61 24 2c 31  33 32 2c 38 34 2c 31 2c  |ng",a$,132,84,1,|
00003840  37 0d 1e 0a 26 c8 99 22  41 42 43 5f 50 72 79 6e  |7...&.."ABC_Pryn|
00003850  74 53 74 72 69 6e 67 22  2c 61 24 2c 31 33 34 2c  |tString",a$,134,|
00003860  38 35 2c 31 2c 31 31 0d  1e 14 05 cd 0d 1e 1e 05  |85,1,11.........|
00003870  e1 0d 1e 28 0e dd f2 66  69 6c 6c 6d 65 6e 75 0d  |...(...fillmenu.|
00003880  1e 32 0b 69 6e 6a 25 3d  37 32 0d 1e 3c 0a 6f 6d  |.2.inj%=72..<.om|
00003890  79 25 3d 31 0d 1e 46 0a  74 78 74 25 3d 31 0d 1e  |y%=1..F.txt%=1..|
000038a0  50 09 64 24 3d 22 22 0d  1e 5a 06 ef 35 0d 1e 64  |P.d$=""..Z..5..d|
000038b0  08 e6 30 2c 30 0d 1e 6e  0b e3 4a 25 3d 30 b8 37  |..0,0..n..J%=0.7|
000038c0  0d 1e 78 07 f3 73 24 0d  1e 82 12 ec 34 30 30 2c  |..x..s$.....400,|
000038d0  37 38 30 2d 4a 25 2a 66  25 0d 1e 8c 0a e7 4a 25  |780-J%*f%.....J%|
000038e0  3d 36 8c 0d 1e 96 0a e7  66 6f 72 25 8c 0d 1e a0  |=6......for%....|
000038f0  23 e7 76 65 72 25 73 24  3d 22 43 61 74 e9 67 6f  |#.ver%s$="Cat.go|
00003900  72 69 65 22 8b 73 24 3d  22 4e 69 76 65 61 75 22  |rie".s$="Niveau"|
00003910  0d 1e aa 05 cc 0d 1e b4  0b 73 24 3d 74 79 70 24  |.........s$=typ$|
00003920  0d 1e be 05 cd 0d 1e c8  05 cd 0d 1e d2 0c f1 c0  |................|
00003930  73 24 2c 31 37 29 0d 1e  dc 0f 6d 6e 75 24 28 4a  |s$,17)....mnu$(J|
00003940  25 29 3d 73 24 0d 1e e6  05 ed 0d 1e f0 09 e6 30  |%)=s$..........0|
00003950  2c 31 34 0d 1e fa 0b e3  4a 25 3d 38 b8 39 0d 1f  |,14.....J%=8.9..|
00003960  04 07 f3 73 24 0d 1f 0e  12 ec 34 30 30 2c 37 38  |...s$.....400,78|
00003970  30 2d 4a 25 2a 66 25 0d  1f 18 0c f1 c0 73 24 2c  |0-J%*f%......s$,|
00003980  31 37 29 0d 1f 22 0f 6d  6e 75 24 28 4a 25 29 3d  |17)..".mnu$(J%)=|
00003990  73 24 0d 1f 2c 05 ed 0d  1f 36 06 ef 34 0d 1f 40  |s$..,....6..4..@|
000039a0  05 87 0d 1f 4a 0b e3 4a  25 3d 30 b8 39 0d 1f 54  |....J..J%=0.9..T|
000039b0  0c f2 69 6e 74 28 4a 25  29 0d 1f 5e 05 ed 0d 1f  |..int(J%)..^....|
000039c0  68 05 e1 0d 1f 72 0c dd  f2 72 65 70 6f 72 74 0d  |h....r...report.|
000039d0  1f 7c 07 c8 97 87 0d 1f  86 0e f2 7a 65 72 6f 6d  |.|.........zerom|
000039e0  6f 75 73 65 0d 1f 90 0a  f2 66 6c 75 73 68 0d 1f  |ouse.....flush..|
000039f0  9a 10 f2 61 6e 79 70 72  6f 67 72 65 73 73 0d 1f  |...anyprogress..|
00003a00  a4 0a f2 6c 69 6d 69 74  0d 1f ae 0e f2 66 69 72  |...limit.....fir|
00003a10  65 77 6f 72 6b 73 0d 1f  b8 13 c8 99 22 41 42 43  |eworks......"ABC|
00003a20  5f 42 6c 61 6e 6b 22 2c  33 0d 1f c2 14 c8 99 22  |_Blank",3......"|
00003a30  41 42 43 5f 43 6f 6c 6f  75 72 22 2c 33 0d 1f cc  |ABC_Colour",3...|
00003a40  09 e6 30 2c 31 32 0d 1f  d6 0a e7 66 6f 72 25 8c  |..0,12.....for%.|
00003a50  0d 1f e0 16 c8 93 c8 90  37 32 2c 30 2c 31 31 33  |........72,0,113|
00003a60  36 2c 31 30 32 30 0d 1f  ea 08 e6 30 2c 37 0d 1f  |6,1020.....0,7..|
00003a70  f4 14 c8 93 37 32 2c 30  2c 31 31 33 36 2c 31 30  |....72,0,1136,10|
00003a80  32 30 0d 1f fe 2a c8 99  22 41 42 43 5f 55 6e 70  |20...*.."ABC_Unp|
00003a90  61 63 6b 53 70 72 69 74  65 22 2c 22 73 6d 61 6c  |ackSprite","smal|
00003aa0  6c 22 2c 6a 25 2c 35 30  34 2c 35 34 0d 20 08 29  |l",j%,504,54. .)|
00003ab0  c8 99 22 41 42 43 5f 55  6e 70 61 63 6b 53 70 72  |.."ABC_UnpackSpr|
00003ac0  69 74 65 22 2c 22 73 6d  61 6c 6c 22 2c 6a 25 2c  |ite","small",j%,|
00003ad0  35 34 2c 35 34 0d 20 12  05 cc 0d 20 1c 16 c8 93  |54,54. .... ....|
00003ae0  c8 90 32 30 30 2c 30 2c  38 39 36 2c 31 30 32 30  |..200,0,896,1020|
00003af0  0d 20 26 08 e6 30 2c 37  0d 20 30 14 c8 93 32 30  |. &..0,7. 0...20|
00003b00  30 2c 30 2c 38 39 36 2c  31 30 32 30 0d 20 3a 2a  |0,0,896,1020. :*|
00003b10  c8 99 22 41 42 43 5f 55  6e 70 61 63 6b 53 70 72  |.."ABC_UnpackSpr|
00003b20  69 74 65 22 2c 22 73 6d  61 6c 6c 22 2c 6a 25 2c  |ite","small",j%,|
00003b30  34 34 30 2c 35 34 0d 20  44 2a c8 99 22 41 42 43  |440,54. D*.."ABC|
00003b40  5f 55 6e 70 61 63 6b 53  70 72 69 74 65 22 2c 22  |_UnpackSprite","|
00003b50  73 6d 61 6c 6c 22 2c 6a  25 2c 31 31 38 2c 35 34  |small",j%,118,54|
00003b60  0d 20 4e 05 cd 0d 20 58  47 e7 66 6f 72 25 f2 77  |. N... XG.for%.w|
00003b70  69 6e 67 73 28 22 46 49  4e 20 44 45 20 4c 41 20  |ings("FIN DE LA |
00003b80  50 41 52 54 49 45 22 2c  31 37 30 2c 32 34 38 29  |PARTIE",170,248)|
00003b90  8b f2 77 69 6e 67 73 28  22 47 41 4d 45 20 4f 56  |..wings("GAME OV|
00003ba0  45 52 22 2c 31 37 30 2c  32 34 38 29 0d 20 62 0c  |ER",170,248). b.|
00003bb0  f2 73 70 61 63 65 6f 72  0d 20 6c 0a f2 65 78 74  |.spaceor. l..ext|
00003bc0  72 61 0d 20 76 0a f2 61  6d 6f 75 6e 0d 20 80 0b  |ra. v..amoun. ..|
00003bd0  f2 63 6f 6c 62 6f 78 0d  20 8a 0b f2 72 61 74 69  |.colbox. ...rati|
00003be0  6e 67 0d 20 94 0a f2 65  6e 74 72 79 0d 20 9e 13  |ng. ...entry. ..|
00003bf0  c8 99 22 41 42 43 5f 50  61 6c 65 74 74 65 22 0d  |.."ABC_Palette".|
00003c00  20 a8 05 f5 0d 20 b2 0b  fd a4 6c 65 61 76 65 0d  | .... ....leave.|
00003c10  20 bc 05 e1 0d 20 c6 0f  dd f2 7a 65 72 6f 6d 6f  | .... ....zeromo|
00003c20  75 73 65 0d 20 d0 05 f5  0d 20 da 14 c8 97 6d 6f  |use. .... ....mo|
00003c30  78 25 2c 6d 6f 79 25 2c  62 75 74 25 0d 20 e4 0b  |x%,moy%,but%. ..|
00003c40  fd 62 75 74 25 3d 30 0d  20 ee 05 e1 0d 20 f8 0b  |.but%=0. .... ..|
00003c50  dd a4 6c 65 61 76 65 0d  21 02 14 c8 97 6d 6f 78  |..leave.!....mox|
00003c60  25 2c 6d 6f 79 25 2c 62  75 74 25 0d 21 0c 18 e7  |%,moy%,but%.!...|
00003c70  a6 2d 39 39 84 a6 2d 37  34 84 62 75 74 25 3e 30  |.-99..-74.but%>0|
00003c80  8b 3d a3 0d 21 16 05 f5  0d 21 20 14 c8 97 6d 6f  |.=..!....! ...mo|
00003c90  78 25 2c 6d 6f 79 25 2c  62 75 74 25 0d 21 2a 17  |x%,moy%,but%.!*.|
00003ca0  fd ac a6 2d 39 39 80 ac  a6 2d 37 34 80 62 75 74  |...-99...-74.but|
00003cb0  25 3d 30 0d 21 34 0b 2a  46 58 32 31 20 39 0d 21  |%=0.!4.*FX21 9.!|
00003cc0  3e 06 3d b9 0d 21 48 0a  dd f2 71 75 69 74 0d 21  |>.=..!H...quit.!|
00003cd0  52 07 c8 97 87 0d 21 5c  14 c8 99 22 48 6f 75 72  |R.....!\..."Hour|
00003ce0  67 6c 61 73 73 5f 4f 6e  22 0d 21 66 15 c8 97 c8  |glass_On".!f....|
00003cf0  93 30 2c 30 2c 31 32 38  30 2c 31 30 32 34 0d 21  |.0,0,1280,1024.!|
00003d00  70 15 c8 99 22 41 42 43  5f 43 6f 6c 6f 75 72 22  |p..."ABC_Colour"|
00003d10  2c 31 35 0d 21 7a 13 f2  73 61 76 65 6e 65 77 72  |,15.!z..savenewr|
00003d20  65 73 75 6c 74 73 0d 21  84 0f d7 22 72 61 6d 3a  |esults.!..."ram:|
00003d30  4d 65 6e 75 22 0d 21 8e  0c dd f2 76 6f 6c 75 6d  |Menu".!....volum|
00003d40  65 0d 21 98 12 4d 25 3d  28 4d 25 2b 67 25 29 80  |e.!..M%=(M%+g%).|
00003d50  26 37 46 0d 21 a2 14 ff  22 56 4f 4c 55 4d 45 20  |&7F.!..."VOLUME |
00003d60  22 2b c3 28 4d 25 29 0d  21 ac 0a 75 70 64 25 3d  |"+.(M%).!..upd%=|
00003d70  a3 0d 21 b6 05 e1 0d 21  c0 0d dd f2 70 6c 61 79  |..!....!....play|
00003d80  65 72 73 0d 21 ca 0b 70  6c 79 25 2b 3d 31 0d 21  |ers.!..ply%+=1.!|
00003d90  d4 12 e7 70 6c 79 25 3e  34 3a 70 6c 79 25 3d 31  |...ply%>4:ply%=1|
00003da0  0d 21 de 0a 72 70 79 25  3d a3 0d 21 e8 0a 75 70  |.!..rpy%=..!..up|
00003db0  64 25 3d a3 0d 21 f2 05  e1 0d 21 fc 0f dd f2 6d  |d%=..!....!....m|
00003dc0  65 6e 75 63 6c 65 61 6e  0d 22 06 0f e7 75 70 64  |enuclean."...upd|
00003dd0  25 3a f2 6d 65 6e 75 0d  22 10 0e f2 7a 65 72 6f  |%:.menu."...zero|
00003de0  6d 6f 75 73 65 0d 22 1a  06 c8 96 0d 22 24 11 f2  |mouse."....."$..|
00003df0  73 71 72 28 73 75 6e 25  2c 31 31 29 0d 22 2e 11  |sqr(sun%,11)."..|
00003e00  f2 73 71 72 28 62 6f 78  25 2c 31 35 29 0d 22 38  |.sqr(box%,15)."8|
00003e10  0e f2 69 6e 74 28 73 75  6e 25 29 0d 22 42 0e f2  |..int(sun%)."B..|
00003e20  69 6e 74 28 62 6f 78 25  29 0d 22 4c 0d 73 75 6e  |int(box%)."L.sun|
00003e30  25 3d 62 6f 78 25 0d 22  56 05 e1 0d 22 60 0b dd  |%=box%."V..."`..|
00003e40  f2 6c 69 6d 69 74 0d 22  6a 0a 62 6e 64 25 3d 31  |.limit."j.bnd%=1|
00003e50  0d 22 74 0b e3 4a 25 3d  31 b8 36 0d 22 7e 20 e7  |."t..J%=1.6."~ .|
00003e60  61 74 74 25 28 67 6d 65  25 2c 4a 25 2c 30 29 3e  |att%(gme%,J%,0)>|
00003e70  31 3a 62 6e 64 25 3d 4a  25 2b 31 0d 22 88 05 ed  |1:bnd%=J%+1."...|
00003e80  0d 22 92 12 e7 62 6e 64  25 3e 36 3a 62 6e 64 25  |."...bnd%>6:bnd%|
00003e90  3d 36 0d 22 9c 05 e1 0d  22 a6 18 dd a4 66 6f 72  |=6."...."....for|
00003ea0  65 69 67 6e 6c 65 76 65  6c 28 63 61 70 25 29 0d  |eignlevel(cap%).|
00003eb0  22 b0 0a e7 76 65 72 25  8c 0d 22 ba 22 e7 66 6f  |"...ver%..".".fo|
00003ec0  72 25 7a 24 3d 22 63 61  74 e9 67 6f 72 69 65 22  |r%z$="cat.gorie"|
00003ed0  8b 7a 24 3d 22 67 72 61  64 65 22 0d 22 c4 05 cc  |.z$="grade"."...|
00003ee0  0d 22 ce 1f e7 66 6f 72  25 7a 24 3d 22 6e 69 76  |."...for%z$="niv|
00003ef0  65 61 75 22 8b 7a 24 3d  22 6c 65 76 65 6c 22 0d  |eau".z$="level".|
00003f00  22 d8 05 cd 0d 22 e2 20  e7 63 61 70 25 3a c0 7a  |"....". .cap%:.z|
00003f10  24 2c 31 29 3d bd 28 97  28 c0 7a 24 2c 31 29 29  |$,1)=.(.(.z$,1))|
00003f20  2d 33 32 29 0d 22 ec 07  3d 7a 24 0d 22 f6 0d dd  |-32)."..=z$."...|
00003f30  f2 66 6f 72 65 69 67 6e  0d 23 00 0a e7 66 72 6e  |.foreign.#...frn|
00003f40  25 8c 0d 23 0a 0a 66 6f  72 25 3d b9 0d 23 14 05  |%..#..for%=..#..|
00003f50  cc 0d 23 1e 19 e7 67 72  64 25 3c 34 20 66 6f 72  |..#...grd%<4 for|
00003f60  25 3d a3 8b 66 6f 72 25  3d b9 0d 23 28 05 cd 0d  |%=..for%=..#(...|
00003f70  23 32 05 e1 0d 23 3c 0b  dd f2 65 78 74 72 61 0d  |#2...#<...extra.|
00003f80  23 46 19 e7 61 74 74 25  28 67 6d 65 25 2c 67 72  |#F..att%(gme%,gr|
00003f90  64 25 2c 30 29 3d 31 8c  0d 23 50 0a e7 66 6f 72  |d%,0)=1..#P..for|
00003fa0  25 8c 0d 23 5a 4c 61 24  3d 22 41 70 70 75 79 65  |%..#ZLa$="Appuye|
00003fb0  72 20 73 75 72 20 6c 65  73 20 74 6f 75 63 68 65  |r sur les touche|
00003fc0  73 20 66 31 20 e0 20 66  34 20 70 6f 75 72 20 75  |s f1 . f4 pour u|
00003fd0  6e 20 65 6e 74 72 61 69  6e 65 6d 65 6e 74 20 73  |n entrainement s|
00003fe0  75 70 70 6c e9 6d 65 6e  74 61 69 72 65 22 0d 23  |uppl.mentaire".#|
00003ff0  64 14 78 73 63 25 3d 33  32 30 2d a9 28 61 24 29  |d.xsc%=320-.(a$)|
00004000  2a 34 0d 23 6e 26 c8 99  22 41 42 43 5f 50 72 79  |*4.#n&.."ABC_Pry|
00004010  6e 74 53 74 72 69 6e 67  22 2c 61 24 2c 78 73 63  |ntString",a$,xsc|
00004020  25 2c 31 31 2c 30 2c 37  0d 23 78 29 c8 99 22 41  |%,11,0,7.#x).."A|
00004030  42 43 5f 50 72 79 6e 74  53 74 72 69 6e 67 22 2c  |BC_PryntString",|
00004040  61 24 2c 78 73 63 25 2b  31 2c 31 32 2c 30 2c 31  |a$,xsc%+1,12,0,1|
00004050  31 0d 23 82 05 cc 0d 23  8c 34 61 24 3d 22 54 68  |1.#....#.4a$="Th|
00004060  65 6e 20 70 72 65 73 73  20 6b 65 79 73 20 66 31  |en press keys f1|
00004070  20 74 6f 20 66 34 20 66  6f 72 20 65 78 74 72 61  | to f4 for extra|
00004080  20 70 72 61 63 74 69 63  65 22 0d 23 96 14 78 73  | practice".#..xs|
00004090  63 25 3d 33 32 30 2d a9  28 61 24 29 2a 34 0d 23  |c%=320-.(a$)*4.#|
000040a0  a0 26 c8 99 22 41 42 43  5f 50 72 79 6e 74 53 74  |.&.."ABC_PryntSt|
000040b0  72 69 6e 67 22 2c 61 24  2c 78 73 63 25 2c 31 31  |ring",a$,xsc%,11|
000040c0  2c 30 2c 37 0d 23 aa 29  c8 99 22 41 42 43 5f 50  |,0,7.#.).."ABC_P|
000040d0  72 79 6e 74 53 74 72 69  6e 67 22 2c 61 24 2c 78  |ryntString",a$,x|
000040e0  73 63 25 2b 31 2c 31 32  2c 30 2c 31 31 0d 23 b4  |sc%+1,12,0,11.#.|
000040f0  05 cd 0d 23 be 05 cd 0d  23 c8 05 e1 0d 23 d2 0e  |...#....#....#..|
00004100  dd f2 70 72 61 63 74 69  63 65 0d 23 dc 0a e7 a6  |..practice.#....|
00004110  2d 32 3a e1 0d 23 e6 08  4c 25 3d 30 0d 23 f0 0f  |-2:..#..L%=0.#..|
00004120  e7 a6 2d 31 31 34 3a 4c  25 3d 31 0d 23 fa 0f e7  |..-114:L%=1.#...|
00004130  a6 2d 31 31 35 3a 4c 25  3d 32 0d 24 04 0f e7 a6  |.-115:L%=2.$....|
00004140  2d 31 31 36 3a 4c 25 3d  33 0d 24 0e 0e e7 a6 2d  |-116:L%=3.$....-|
00004150  32 31 3a 4c 25 3d 34 0d  24 18 0b e7 4c 25 3d 30  |21:L%=4.$...L%=0|
00004160  3a e1 0d 24 22 06 ef 37  0d 24 2c 0b 73 75 62 25  |:..$"..7.$,.sub%|
00004170  3d 4c 25 0d 24 36 06 c8  96 0d 24 40 20 e7 62 6f  |=L%.$6....$@ .bo|
00004180  78 25 3d 33 f2 73 71 72  28 33 2c 31 35 29 8b f2  |x%=3.sqr(3,15)..|
00004190  73 71 72 28 33 2c 31 31  29 0d 24 4a 0b f2 69 6e  |sqr(3,11).$J..in|
000041a0  74 28 33 29 0d 24 54 05  f5 0d 24 5e 1f fd ac a6  |t(3).$T...$^....|
000041b0  2d 31 31 34 80 ac a6 2d  31 31 35 80 ac a6 2d 31  |-114...-115...-1|
000041c0  31 36 80 ac a6 2d 32 31  0d 24 68 05 e1 0d 24 72  |16...-21.$h...$r|
000041d0  12 dd f2 63 6f 6c 6f 75  72 28 76 61 6c 25 29 0d  |...colour(val%).|
000041e0  24 7c 0b c8 8e 76 61 6c  25 ca 0d 24 86 0b c9 30  |$|...val%..$...0|
000041f0  3a e6 30 2c 37 0d 24 90  0c c9 31 3a e6 30 2c 31  |:.0,7.$...1:.0,1|
00004200  31 0d 24 9a 0c c9 32 3a  e6 30 2c 31 34 0d 24 a4  |1.$...2:.0,14.$.|
00004210  1e c9 33 2c 34 2c 35 2c  36 2c 37 2c 38 2c 39 2c  |..3,4,5,6,7,8,9,|
00004220  31 30 2c 31 31 3a e6 30  2c 31 30 0d 24 ae 0b 7f  |10,11:.0,10.$...|
00004230  3a e6 30 2c 31 35 0d 24  b8 05 cb 0d 24 c2 05 e1  |:.0,15.$....$...|
00004240  0d 24 cc 25 dd f2 6c 61  72 67 65 69 6e 70 75 74  |.$.%..largeinput|
00004250  28 74 6f 74 25 2c 74 61  78 25 2c 74 61 79 25 2c  |(tot%,tax%,tay%,|
00004260  63 6f 6c 25 29 0d 24 d6  0b 2a 46 58 32 31 20 30  |col%).$..*FX21 0|
00004270  0d 24 e0 0a 63 6e 74 25  3d 30 0d 24 ea 09 69 24  |.$..cnt%=0.$..i$|
00004280  3d 22 22 0d 24 f4 0b e6  30 2c 63 6f 6c 25 0d 24  |="".$...0,col%.$|
00004290  fe 05 f5 0d 25 08 05 f5  0d 25 12 05 f5 0d 25 1c  |....%....%....%.|
000042a0  0b 6b 25 3d a6 28 31 29  0d 25 26 18 fd 6b 25 3d  |.k%=.(1).%&..k%=|
000042b0  31 33 84 6b 25 3e 33 31  80 20 6b 25 3c 31 32 38  |13.k%>31. k%<128|
000042c0  0d 25 30 14 e7 6b 25 3d  31 32 37 80 20 63 6e 74  |.%0..k%=127. cnt|
000042d0  25 3e 30 8c 0d 25 3a 0b  63 6e 74 25 2d 3d 31 0d  |%>0..%:.cnt%-=1.|
000042e0  25 44 10 69 24 3d c0 69  24 2c 63 6e 74 25 29 0d  |%D.i$=.i$,cnt%).|
000042f0  25 4e 06 c8 96 0d 25 58  28 c8 99 22 41 42 43 5f  |%N....%X(.."ABC_|
00004300  50 72 79 6e 74 53 74 72  69 6e 67 22 2c 69 24 2c  |PryntString",i$,|
00004310  74 61 78 25 2c 74 61 79  25 2c 31 2c 37 0d 25 62  |tax%,tay%,1,7.%b|
00004320  2c c8 99 22 41 42 43 5f  50 72 79 6e 74 53 74 72  |,.."ABC_PryntStr|
00004330  69 6e 67 22 2c 69 24 2c  74 61 78 25 2d 32 2c 74  |ing",i$,tax%-2,t|
00004340  61 79 25 2b 31 2c 31 2c  39 0d 25 6c 27 c8 93 c8  |ay%+1,1,9.%l'...|
00004350  90 74 61 78 25 2a 32 2b  a9 28 69 24 29 2a 33 32  |.tax%*2+.(i$)*32|
00004360  2c 74 61 79 25 2a 34 2d  36 34 2c 33 32 2c 36 34  |,tay%*4-64,32,64|
00004370  0d 25 76 05 cd 0d 25 80  0c fd 6b 25 3c 3e 31 32  |.%v...%...k%<>12|
00004380  37 0d 25 8a 18 e7 6b 25  3c 3e 31 33 80 20 63 6e  |7.%...k%<>13. cn|
00004390  74 25 3c 3e 74 6f 74 25  8c 0d 25 94 0d 69 24 2b  |t%<>tot%..%..i$+|
000043a0  3d bd 28 6b 25 29 0d 25  9e 06 c8 96 0d 25 a8 28  |=.(k%).%.....%.(|
000043b0  c8 99 22 41 42 43 5f 50  72 79 6e 74 53 74 72 69  |.."ABC_PryntStri|
000043c0  6e 67 22 2c 69 24 2c 74  61 78 25 2c 74 61 79 25  |ng",i$,tax%,tay%|
000043d0  2c 31 2c 37 0d 25 b2 2c  c8 99 22 41 42 43 5f 50  |,1,7.%.,.."ABC_P|
000043e0  72 79 6e 74 53 74 72 69  6e 67 22 2c 69 24 2c 74  |ryntString",i$,t|
000043f0  61 78 25 2d 32 2c 74 61  79 25 2b 31 2c 31 2c 39  |ax%-2,tay%+1,1,9|
00004400  0d 25 bc 0b 63 6e 74 25  2b 3d 31 0d 25 c6 05 cd  |.%..cnt%+=1.%...|
00004410  0d 25 d0 19 e7 6b 25 3c  3e 31 33 80 20 63 6e 74  |.%...k%<>13. cnt|
00004420  25 3d 74 6f 74 25 3a ef  37 0d 25 da 0a fd 6b 25  |%=tot%:.7.%...k%|
00004430  3d 31 33 0d 25 e4 05 e1  0d 25 ee 0d dd f2 70 61  |=13.%....%....pa|
00004440  74 74 65 72 6e 0d 25 f8  07 d1 3d 30 0d 26 02 0a  |ttern.%...=0.&..|
00004450  6e 6f 69 25 3d b9 0d 26  0c 0b c8 95 91 3c 35 30  |noi%=..&.....<50|
00004460  30 0d 26 16 0e 6e 6f 69  25 3d ac 6e 6f 69 25 0d  |0.&..noi%=.noi%.|
00004470  26 20 29 e7 6e 6f 69 25  3a f2 6e 6f 69 73 65 28  |& ).noi%:.noise(|
00004480  22 50 69 6e 67 22 2c 32  2c 26 31 37 46 2c 26 36  |"Ping",2,&17F,&6|
00004490  30 30 30 2c 26 31 30 29  0d 26 2a 1d f2 65 78 70  |000,&10).&*..exp|
000044a0  6c 6f 64 65 28 b3 28 31  32 38 30 29 2c b3 28 31  |lode(.(1280),.(1|
000044b0  30 32 34 29 29 0d 26 34  05 ce 0d 26 3e 0c ef 32  |024)).&4...&>..2|
000044c0  39 2c 30 3b 30 3b 0d 26  48 05 e1 0d 26 52 18 dd  |9,0;0;.&H...&R..|
000044d0  f2 65 78 70 6c 6f 64 65  28 78 73 63 25 2c 79 73  |.explode(xsc%,ys|
000044e0  63 25 29 0d 26 5c 12 ef  32 39 2c 78 73 63 25 3b  |c%).&\..29,xsc%;|
000044f0  79 73 63 25 3b 0d 26 66  09 4b 25 3d 35 30 0d 26  |ysc%;.&f.K%=50.&|
00004500  70 09 ec 4b 25 2c 30 0d  26 7a 11 e3 4a 25 3d 30  |p..K%,0.&z..J%=0|
00004510  b8 31 38 30 30 88 32 30  0d 26 84 0d e6 30 2c b3  |.1800.20.&...0,.|
00004520  28 34 29 2b 37 0d 26 8e  09 4b 25 2b 3d 31 0d 26  |(4)+7.&..K%+=1.&|
00004530  98 18 df 4b 25 2a 9b b2  28 4a 25 29 2c 4b 25 2a  |...K%*..(J%),K%*|
00004540  b5 b2 28 4a 25 29 0d 26  a2 05 ed 0d 26 ac 05 e1  |..(J%).&....&...|
00004550  0d 26 b6 18 dd f2 64 69  73 70 6c 61 79 28 6b 65  |.&....display(ke|
00004560  65 25 2c 67 72 61 25 29  0d 26 c0 0d 70 69 78 25  |e%,gra%).&..pix%|
00004570  3d 67 72 61 25 0d 26 ca  07 c8 97 87 0d 26 d4 06  |=gra%.&......&..|
00004580  ef 37 0d 26 de 16 c8 99  22 41 42 43 5f 42 6c 61  |.7.&...."ABC_Bla|
00004590  6e 6b 22 2c 62 63 6c 25  0d 26 e8 17 c8 99 22 41  |nk",bcl%.&...."A|
000045a0  42 43 5f 43 6f 6c 6f 75  72 22 2c 62 63 6c 25 0d  |BC_Colour",bcl%.|
000045b0  26 f2 0d fb 31 32 38 2b  62 63 6c 25 0d 26 fc 06  |&...128+bcl%.&..|
000045c0  fb 30 0d 27 06 5d e7 66  6f 72 25 f2 63 65 6e 74  |.0.'.].for%.cent|
000045d0  28 22 43 65 74 20 69 6d  61 67 65 20 65 73 74 20  |("Cet image est |
000045e0  75 74 69 6c 69 73 e9 20  70 6f 75 72 20 22 2b 7a  |utilis. pour "+z|
000045f0  24 2c 31 30 29 8b f2 63  65 6e 74 28 22 54 68 69  |$,10)..cent("Thi|
00004600  73 20 67 72 61 70 68 69  63 20 75 73 65 64 20 66  |s graphic used f|
00004610  6f 72 20 74 68 65 20 22  2b 7a 24 2c 31 30 29 0d  |or the "+z$,10).|
00004620  27 10 2f c8 99 22 41 42  43 5f 55 6e 70 61 63 6b  |'./.."ABC_Unpack|
00004630  53 70 72 69 74 65 22 2c  22 7a 22 2b c3 28 70 69  |Sprite","z"+.(pi|
00004640  78 25 29 2c 7a 25 2c 32  37 32 2c 31 34 38 0d 27  |x%),z%,272,148.'|
00004650  1a 13 c8 99 22 41 42 43  5f 50 61 6c 65 74 74 65  |...."ABC_Palette|
00004660  22 0d 27 24 05 f5 0d 27  2e 0c fd ac a6 2d 6b 65  |".'$...'.....-ke|
00004670  65 25 0d 27 38 1a e7 73  75 6e 25 3d 30 20 73 75  |e%.'8..sun%=0 su|
00004680  6e 25 3d 31 8b 73 75 6e  25 2d 3d 31 0d 27 42 09  |n%=1.sun%-=1.'B.|
00004690  f2 6d 65 6e 75 0d 27 4c  05 e1 0d 27 56 0a dd f2  |.menu.'L...'V...|
000046a0  64 61 74 61 0d 27 60 0c  e3 4a 25 3d 30 b8 32 33  |data.'`..J%=0.23|
000046b0  0d 27 6a 07 f3 61 24 0d  27 74 0f 64 61 74 24 28  |.'j..a$.'t.dat$(|
000046c0  4a 25 29 3d 61 24 0d 27  7e 05 ed 0d 27 88 05 e1  |J%)=a$.'~...'...|
000046d0  0d 27 92 14 dd a4 65 78  63 69 73 65 28 f8 61 24  |.'....excise(.a$|
000046e0  2c 78 24 29 0d 27 9c 15  7a 24 3d c0 61 24 2c a7  |,x$).'..z$=.a$,.|
000046f0  61 24 2c 78 24 29 2d 31  29 0d 27 a6 15 61 24 3d  |a$,x$)-1).'..a$=|
00004700  c1 61 24 2c a7 61 24 2c  78 24 29 2b 31 29 0d 27  |.a$,.a$,x$)+1).'|
00004710  b0 07 3d 7a 24 0d 27 ba  12 dd a4 73 75 62 6e 75  |..=z$.'....subnu|
00004720  6d 28 6e 75 6d 25 29 0d  27 c4 18 61 64 64 25 3d  |m(num%).'..add%=|
00004730  7a 25 2b 7a 25 21 28 6e  75 6d 25 3c 3c 34 29 0d  |z%+z%!(num%<<4).|
00004740  27 ce 0c 3d 61 64 64 25  3f 31 33 0d 27 d8 11 dd  |'..=add%?13.'...|
00004750  a4 61 6c 69 61 73 28 6e  75 6d 25 29 0d 27 e2 18  |.alias(num%).'..|
00004760  61 64 64 25 3d 7a 25 2b  7a 25 21 28 6e 75 6d 25  |add%=z%+z%!(num%|
00004770  3c 3c 34 29 0d 27 ec 10  61 64 64 25 2b 3d 61 64  |<<4).'..add%+=ad|
00004780  64 25 21 38 0d 27 f6 09  61 24 3d 22 22 0d 28 00  |d%!8.'..a$="".(.|
00004790  0d c8 95 3f 61 64 64 25  3e 30 0d 28 0a 10 61 24  |...?add%>0.(..a$|
000047a0  2b 3d bd 28 3f 61 64 64  25 29 0d 28 14 0b 61 64  |+=.(?add%).(..ad|
000047b0  64 25 2b 3d 31 0d 28 1e  05 ce 0d 28 28 07 3d 61  |d%+=1.(....((.=a|
000047c0  24 0d 28 32 10 dd a4 6e  61 6d 65 28 6e 75 6d 25  |$.(2...name(num%|
000047d0  29 0d 28 3c 18 61 64 64  25 3d 7a 25 2b 7a 25 21  |).(<.add%=z%+z%!|
000047e0  28 6e 75 6d 25 3c 3c 34  29 0d 28 46 10 61 64 64  |(num%<<4).(F.add|
000047f0  25 2b 3d 61 64 64 25 21  34 0d 28 50 09 61 24 3d  |%+=add%!4.(P.a$=|
00004800  22 22 0d 28 5a 0d c8 95  3f 61 64 64 25 3e 30 0d  |"".(Z...?add%>0.|
00004810  28 64 10 61 24 2b 3d bd  28 3f 61 64 64 25 29 0d  |(d.a$+=.(?add%).|
00004820  28 6e 0b 61 64 64 25 2b  3d 31 0d 28 78 05 ce 0d  |(n.add%+=1.(x...|
00004830  28 82 07 3d 61 24 0d 28  8c 13 dd a4 6c 6f 77 65  |(..=a$.(....lowe|
00004840  72 63 61 73 65 28 61 24  29 0d 28 96 0f e3 57 25  |rcase(a$).(...W%|
00004850  3d 31 b8 a9 28 61 24 29  0d 28 a0 10 77 24 3d c1  |=1..(a$).(..w$=.|
00004860  61 24 2c 57 25 2c 31 29  0d 28 aa 2b e7 77 24 3e  |a$,W%,1).(.+.w$>|
00004870  3d 22 41 22 80 20 77 24  3c 3d 22 5a 22 3a c1 61  |="A". w$<="Z":.a|
00004880  24 2c 57 25 2c 31 29 3d  bd 28 97 28 77 24 29 2b  |$,W%,1)=.(.(w$)+|
00004890  33 32 29 0d 28 b4 05 ed  0d 28 be 07 3d 61 24 0d  |32).(....(..=a$.|
000048a0  28 c8 0c dd a4 63 68 6f  6f 73 65 0d 28 d2 0c e7  |(....choose.(...|
000048b0  73 75 62 25 3d 30 8c 0d  28 dc 05 f5 0d 28 e6 0a  |sub%=0..(....(..|
000048c0  e7 73 65 72 25 8c 0d 28  f0 0b 58 25 3d 6c 6e 72  |.ser%..(..X%=lnr|
000048d0  25 0d 28 fa 0b 6c 6e 72  25 2b 3d 31 0d 29 04 15  |%.(..lnr%+=1.)..|
000048e0  e7 6c 6e 72 25 3e 31 35  30 30 3a 6c 6e 72 25 3d  |.lnr%>1500:lnr%=|
000048f0  31 0d 29 0e 05 cc 0d 29  18 0e 58 25 3d b3 28 31  |1.)....)..X%=.(1|
00004900  35 30 30 29 0d 29 22 05  cd 0d 29 2c 1f fd 77 72  |500).)"...),..wr|
00004910  64 24 28 67 72 64 25 2c  58 25 29 3e 22 22 80 20  |d$(grd%,X%)>"". |
00004920  58 25 3c 3e 70 72 65 25  0d 29 36 05 cc 0d 29 40  |X%<>pre%.)6...)@|
00004930  05 f5 0d 29 4a 0a e7 73  65 72 25 8c 0d 29 54 0b  |...)J..ser%..)T.|
00004940  58 25 3d 6c 6e 72 25 0d  29 5e 0b 6c 6e 72 25 2b  |X%=lnr%.)^.lnr%+|
00004950  3d 31 0d 29 68 15 e7 6c  6e 72 25 3e 31 35 30 30  |=1.)h..lnr%>1500|
00004960  3a 6c 6e 72 25 3d 31 0d  29 72 05 cc 0d 29 7c 0e  |:lnr%=1.)r...)|.|
00004970  58 25 3d b3 28 31 35 30  30 29 0d 29 86 05 cd 0d  |X%=.(1500).)....|
00004980  29 90 33 fd 77 72 64 24  28 67 72 64 25 2c 58 25  |).3.wrd$(grd%,X%|
00004990  29 3e 22 22 80 20 6b 6e  64 25 28 67 72 64 25 2c  |)>"". knd%(grd%,|
000049a0  58 25 29 3d 73 75 62 25  80 20 58 25 3c 3e 70 72  |X%)=sub%. X%<>pr|
000049b0  65 25 0d 29 9a 05 cd 0d  29 a4 12 3d 77 72 64 24  |e%.)....)..=wrd$|
000049c0  28 67 72 64 25 2c 58 25  29 0d 29 ae 0b dd f2 73  |(grd%,X%).)....s|
000049d0  74 61 72 74 0d 29 b8 05  f5 0d 29 c2 0a fd ac a6  |tart.)....).....|
000049e0  2d 39 39 0d 29 cc 0a 74  69 6d 25 3d a3 0d 29 d6  |-99.)..tim%=..).|
000049f0  0a 73 61 6e 25 3d 30 0d  29 e0 05 f5 0d 29 ea 06  |.san%=0.)....)..|
00004a00  ef 37 0d 29 f4 13 c8 99  22 41 42 43 5f 42 6c 61  |.7.)...."ABC_Bla|
00004a10  6e 6b 22 2c 33 0d 29 fe  14 c8 99 22 41 42 43 5f  |nk",3.)...."ABC_|
00004a20  43 6f 6c 6f 75 72 22 2c  33 0d 2a 08 15 61 24 3d  |Colour",3.*..a$=|
00004a30  22 53 54 41 52 54 20 4e  55 4d 42 45 52 22 0d 2a  |"START NUMBER".*|
00004a40  12 14 78 73 63 25 3d 33  32 30 2d a9 28 61 24 29  |..xsc%=320-.(a$)|
00004a50  2a 38 0d 2a 1c 27 c8 99  22 41 42 43 5f 50 72 79  |*8.*.'.."ABC_Pry|
00004a60  6e 74 53 74 72 69 6e 67  22 2c 61 24 2c 78 73 63  |ntString",a$,xsc|
00004a70  25 2c 31 36 30 2c 31 2c  37 0d 2a 26 2a c8 99 22  |%,160,1,7.*&*.."|
00004a80  41 42 43 5f 50 72 79 6e  74 53 74 72 69 6e 67 22  |ABC_PryntString"|
00004a90  2c 61 24 2c 78 73 63 25  2d 32 2c 31 36 31 2c 31  |,a$,xsc%-2,161,1|
00004aa0  2c 31 31 0d 2a 30 13 c8  99 22 41 42 43 5f 50 61  |,11.*0..."ABC_Pa|
00004ab0  6c 65 74 74 65 22 0d 2a  3a 1c f2 6c 61 72 67 65  |lette".*:..large|
00004ac0  69 6e 70 75 74 28 34 2c  32 39 36 2c 31 32 30 2c  |input(4,296,120,|
00004ad0  33 29 0d 2a 44 0e 66 6f  6c 25 3d bb 28 69 24 29  |3).*D.fol%=.(i$)|
00004ae0  0d 2a 4e 18 e7 66 6f 6c  25 3c 31 84 66 6f 6c 25  |.*N..fol%<1.fol%|
00004af0  3e 31 35 30 30 3a ef 37  0d 2a 58 2a fd 66 6f 6c  |>1500:.7.*X*.fol|
00004b00  25 3e 30 80 20 66 6f 6c  25 3c 31 35 30 31 80 a4  |%>0. fol%<1501..|
00004b10  76 61 6c 69 64 61 74 65  6e 75 6d 62 65 72 28 69  |validatenumber(i|
00004b20  24 29 0d 2a 62 14 c8 99  22 41 42 43 5f 43 6f 6c  |$).*b..."ABC_Col|
00004b30  6f 75 72 22 2c 33 0d 2a  6c 0d 6c 6e 72 25 3d 66  |our",3.*l.lnr%=f|
00004b40  6f 6c 25 0d 2a 76 0a 73  65 72 25 3d b9 0d 2a 80  |ol%.*v.ser%=..*.|
00004b50  05 e1 0d 2a 8a 11 dd f2  73 70 6c 69 74 75 70 28  |...*....splitup(|
00004b60  61 24 29 0d 2a 94 0d 73  70 74 24 28 29 3d 22 22  |a$).*..spt$()=""|
00004b70  0d 2a 9e 08 4a 25 3d 31  0d 2a a8 10 c8 95 a7 61  |.*..J%=1.*.....a|
00004b80  24 2c 22 20 22 29 3e 30  0d 2a b2 20 70 72 74 24  |$," ")>0.*. prt$|
00004b90  28 4a 25 29 3d 22 20 22  2b c0 61 24 2c a7 61 24  |(J%)=" "+.a$,.a$|
00004ba0  2c 22 20 22 29 2d 31 29  0d 2a bc 16 61 24 3d c1  |," ")-1).*..a$=.|
00004bb0  61 24 2c a7 61 24 2c 22  20 22 29 2b 31 29 0d 2a  |a$,.a$," ")+1).*|
00004bc0  c6 09 4a 25 2b 3d 31 0d  2a d0 05 ce 0d 2a da 13  |..J%+=1.*....*..|
00004bd0  70 72 74 24 28 4a 25 29  3d 22 20 22 2b 61 24 0d  |prt$(J%)=" "+a$.|
00004be0  2a e4 08 4c 25 3d 31 0d  2a ee 0c e3 4b 25 3d 31  |*..L%=1.*...K%=1|
00004bf0  b8 4a 25 0d 2a f8 1d e7  a9 28 73 70 74 24 28 4c  |.J%.*....(spt$(L|
00004c00  25 29 2b 70 72 74 24 28  4b 25 29 29 3c 31 34 8c  |%)+prt$(K%))<14.|
00004c10  0d 2b 02 34 e7 73 70 74  24 28 4c 25 29 3d 22 22  |.+.4.spt$(L%)=""|
00004c20  73 70 74 24 28 4c 25 29  3d 70 72 74 24 28 4b 25  |spt$(L%)=prt$(K%|
00004c30  29 8b 73 70 74 24 28 4c  25 29 2b 3d 70 72 74 24  |).spt$(L%)+=prt$|
00004c40  28 4b 25 29 0d 2b 0c 05  cc 0d 2b 16 09 4c 25 2b  |(K%).+....+..L%+|
00004c50  3d 31 0d 2b 20 15 73 70  74 24 28 4c 25 29 3d 70  |=1.+ .spt$(L%)=p|
00004c60  72 74 24 28 4b 25 29 0d  2b 2a 05 cd 0d 2b 34 05  |rt$(K%).+*...+4.|
00004c70  ed 0d 2b 3e 0b e3 4a 25  3d 31 b8 33 0d 2b 48 16  |..+>..J%=1.3.+H.|
00004c80  c8 95 c0 73 70 74 24 28  4a 25 29 2c 31 29 3d 22  |...spt$(J%),1)="|
00004c90  20 22 0d 2b 52 19 73 70  74 24 28 4a 25 29 3d c1  | ".+R.spt$(J%)=.|
00004ca0  73 70 74 24 28 4a 25 29  2c 32 29 0d 2b 5c 05 ce  |spt$(J%),2).+\..|
00004cb0  0d 2b 66 05 ed 0d 2b 70  1c e7 73 70 74 24 28 32  |.+f...+p..spt$(2|
00004cc0  29 3d 22 22 80 20 73 70  74 24 28 33 29 3d 22 22  |)="". spt$(3)=""|
00004cd0  8c 0d 2b 7a 13 73 70 74  24 28 32 29 3d 73 70 74  |..+z.spt$(2)=spt|
00004ce0  24 28 31 29 0d 2b 84 0e  73 70 74 24 28 31 29 3d  |$(1).+..spt$(1)=|
00004cf0  22 22 0d 2b 8e 0e 73 70  74 24 28 33 29 3d 22 22  |"".+..spt$(3)=""|
00004d00  0d 2b 98 05 cd 0d 2b a2  05 e1 0d 2b ac 0d dd f2  |.+....+....+....|
00004d10  68 69 67 68 65 73 74 0d  2b b6 0a 74 61 62 25 3d  |highest.+..tab%=|
00004d20  a3 0d 2b c0 10 e3 65 6e  74 25 3d 31 b8 70 6c 79  |..+...ent%=1.ply|
00004d30  25 0d 2b ca 1f 73 63 6f  72 65 73 25 28 67 6d 65  |%.+..scores%(gme|
00004d40  25 2c 31 31 29 3d 73 63  72 25 28 65 6e 74 25 29  |%,11)=scr%(ent%)|
00004d50  0d 2b d4 26 61 24 3d c1  91 24 2c 35 2c 31 31 29  |.+.&a$=..$,5,11)|
00004d60  2b 22 20 47 72 61 64 65  20 22 2b c3 28 67 72 64  |+" Grade "+.(grd|
00004d70  25 29 2b 22 20 22 0d 2b  de 27 e7 70 6c 79 25 3e  |%)+" ".+.'.ply%>|
00004d80  31 20 62 24 3d c3 28 51  25 29 2b 22 25 2e 22 8b  |1 b$=.(Q%)+"%.".|
00004d90  62 24 3d c3 28 51 25 29  2b 22 25 20 22 0d 2b e8  |b$=.(Q%)+"% ".+.|
00004da0  20 e7 a9 28 62 24 29 3c  35 3a 62 24 3d c4 35 2d  | ..(b$)<5:b$=.5-|
00004db0  a9 28 62 24 29 2c 22 20  22 29 2b 62 24 0d 2b f2  |.(b$)," ")+b$.+.|
00004dc0  28 68 69 67 68 24 28 67  6d 65 25 2c 31 31 29 3d  |(high$(gme%,11)=|
00004dd0  61 24 2b 62 24 2b 22 20  22 2b 6e 61 6d 65 24 28  |a$+b$+" "+name$(|
00004de0  65 6e 74 25 29 0d 2b fc  45 e7 a7 68 69 67 68 24  |ent%).+.E..high$|
00004df0  28 67 6d 65 25 2c 31 31  29 2c 22 4a 6f 75 65 75  |(gme%,11),"Joueu|
00004e00  72 22 29 3e 30 3a c1 a7  68 69 67 68 24 28 67 6d  |r")>0:..high$(gm|
00004e10  65 25 2c 31 31 29 2c 22  4a 6f 75 65 75 72 22 29  |e%,11),"Joueur")|
00004e20  29 3d 22 50 6c 61 79 65  72 22 0d 2c 06 0f f2 73  |)="Player".,...s|
00004e30  6f 72 74 73 63 6f 72 65  73 0d 2c 10 05 ed 0d 2c  |ortscores.,....,|
00004e40  1a 05 e1 0d 2c 24 0c dd  f2 72 61 74 69 6e 67 0d  |....,$...rating.|
00004e50  2c 2e 0b e7 72 61 74 25  3a e1 0d 2c 38 0a e7 66  |,...rat%:..,8..f|
00004e60  6f 72 25 8c 0d 2c 42 1e  61 24 3d 22 4e 6f 74 65  |or%..,B.a$="Note|
00004e70  20 3a 20 22 2b 72 61 74  24 28 31 2c 51 25 81 31  | : "+rat$(1,Q%.1|
00004e80  30 29 0d 2c 4c 25 c8 99  22 41 42 43 5f 50 72 79  |0).,L%.."ABC_Pry|
00004e90  6e 74 53 74 72 69 6e 67  22 2c 61 24 2c 36 36 2c  |ntString",a$,66,|
00004ea0  31 30 36 2c 31 2c 37 0d  2c 56 25 c8 99 22 41 42  |106,1,7.,V%.."AB|
00004eb0  43 5f 50 72 79 6e 74 53  74 72 69 6e 67 22 2c 61  |C_PryntString",a|
00004ec0  24 2c 36 38 2c 31 30 37  2c 31 2c 38 0d 2c 60 05  |$,68,107,1,8.,`.|
00004ed0  cc 0d 2c 6a 20 61 24 3d  22 52 61 74 69 6e 67 20  |..,j a$="Rating |
00004ee0  3a 20 22 2b 72 61 74 24  28 30 2c 51 25 81 31 30  |: "+rat$(0,Q%.10|
00004ef0  29 0d 2c 74 26 c8 99 22  41 42 43 5f 50 72 79 6e  |).,t&.."ABC_Pryn|
00004f00  74 53 74 72 69 6e 67 22  2c 61 24 2c 31 33 32 2c  |tString",a$,132,|
00004f10  31 30 36 2c 31 2c 37 0d  2c 7e 26 c8 99 22 41 42  |106,1,7.,~&.."AB|
00004f20  43 5f 50 72 79 6e 74 53  74 72 69 6e 67 22 2c 61  |C_PryntString",a|
00004f30  24 2c 31 33 34 2c 31 30  37 2c 31 2c 38 0d 2c 88  |$,134,107,1,8.,.|
00004f40  05 cd 0d 2c 92 05 e1 0d  2c 9c 0c dd f2 63 6f 6c  |...,....,....col|
00004f50  62 6f 78 0d 2c a6 1f e7  70 6c 79 25 3e 31 84 73  |box.,...ply%>1.s|
00004f60  75 62 25 3e 30 84 61 74  74 65 6e 64 24 3d 22 22  |ub%>0.attend$=""|
00004f70  3a e1 0d 2c b0 11 e7 51  25 3e 39 39 3a 6e 6f 77  |:..,...Q%>99:now|
00004f80  25 3d 33 0d 2c ba 18 e7  51 25 3e 34 39 80 51 25  |%=3.,...Q%>49.Q%|
00004f90  3c 31 30 30 3a 6e 6f 77  25 3d 32 0d 2c c4 11 e7  |<100:now%=2.,...|
00004fa0  51 25 3c 35 30 3a 6e 6f  77 25 3d 31 0d 2c ce 0b  |Q%<50:now%=1.,..|
00004fb0  c8 8e 6e 6f 77 25 ca 0d  2c d8 08 c9 31 2c 32 0d  |..now%..,...1,2.|
00004fc0  2c e2 0a e7 66 6f 72 25  8c 0d 2c ec 29 e7 72 65  |,...for%..,.).re|
00004fd0  6d 25 3c 6e 6f 77 25 3a  61 24 3d 22 63 68 61 6e  |m%<now%:a$="chan|
00004fe0  67 65 6d 65 6e 74 20 64  65 20 63 6f 75 6c 65 75  |gement de couleu|
00004ff0  72 22 0d 2c f6 25 e7 6e  6f 77 25 3d 72 65 6d 25  |r".,.%.now%=rem%|
00005000  3a 61 24 3d 22 70 61 73  20 64 65 20 63 68 61 6e  |:a$="pas de chan|
00005010  67 65 6d 65 6e 74 22 0d  2d 00 1f e7 72 65 6d 25  |gement".-...rem%|
00005020  3e 6e 6f 77 25 3a 61 24  3d 22 72 65 63 6f 6d 6d  |>now%:a$="recomm|
00005030  65 6e 63 65 72 22 0d 2d  0a 05 cc 0d 2d 14 22 e7  |encer".-....-.".|
00005040  72 65 6d 25 3c 6e 6f 77  25 3a 61 24 3d 22 63 6f  |rem%<now%:a$="co|
00005050  6c 6f 75 72 20 63 68 61  6e 67 65 64 22 0d 2d 1e  |lour changed".-.|
00005060  1d e7 6e 6f 77 25 3d 72  65 6d 25 3a 61 24 3d 22  |..now%=rem%:a$="|
00005070  6e 6f 20 63 68 61 6e 67  65 22 0d 2d 28 1d e7 72  |no change".-(..r|
00005080  65 6d 25 3e 6e 6f 77 25  3a 61 24 3d 22 74 72 79  |em%>now%:a$="try|
00005090  20 61 67 61 69 6e 22 0d  2d 32 05 cd 0d 2d 3c 06  | again".-2...-<.|
000050a0  c9 33 0d 2d 46 0a e7 66  6f 72 25 8c 0d 2d 50 26  |.3.-F..for%..-P&|
000050b0  e7 72 65 6d 25 3c 33 3a  61 24 3d 22 63 68 61 6e  |.rem%<3:a$="chan|
000050c0  67 65 6d 65 6e 74 20 64  65 20 63 6f 75 6c 65 75  |gement de couleu|
000050d0  72 22 0d 2d 5a 28 e7 72  65 6d 25 3e 32 80 72 65  |r".-Z(.rem%>2.re|
000050e0  6d 25 3c 31 31 3a 61 24  3d 22 65 73 73 61 79 65  |m%<11:a$="essaye|
000050f0  72 20 6c 65 20 62 6c 65  75 22 0d 2d 64 16 e7 72  |r le bleu".-d..r|
00005100  65 6d 25 3e 31 30 3a 61  24 3d 22 62 6c 65 75 22  |em%>10:a$="bleu"|
00005110  0d 2d 6e 05 cc 0d 2d 78  1f e7 72 65 6d 25 3c 33  |.-n...-x..rem%<3|
00005120  3a 61 24 3d 22 63 6f 6c  6f 75 72 20 63 68 61 6e  |:a$="colour chan|
00005130  67 65 64 22 0d 2d 82 25  e7 72 65 6d 25 3e 32 80  |ged".-.%.rem%>2.|
00005140  72 65 6d 25 3c 31 31 3a  61 24 3d 22 74 72 79 20  |rem%<11:a$="try |
00005150  66 6f 72 20 62 6c 75 65  22 0d 2d 8c 16 e7 72 65  |for blue".-...re|
00005160  6d 25 3e 31 30 3a 61 24  3d 22 62 6c 75 65 22 0d  |m%>10:a$="blue".|
00005170  2d 96 05 cd 0d 2d a0 05  cb 0d 2d aa 4c e7 66 6f  |-....-....-.L.fo|
00005180  72 25 61 24 3d a4 66 6f  72 65 69 67 6e 6c 65 76  |r%a$=.foreignlev|
00005190  65 6c 28 b9 29 2b 22 20  22 2b c3 28 67 72 64 25  |el(.)+" "+.(grd%|
000051a0  29 2b 22 20 22 2b 61 24  8b 61 24 3d 74 79 70 24  |)+" "+a$.a$=typ$|
000051b0  2b 22 20 22 2b c3 28 67  72 64 25 29 2b 22 20 20  |+" "+.(grd%)+"  |
000051c0  20 22 2b 61 24 0d 2d b4  0a e7 66 6f 72 25 8c 0d  | "+a$.-...for%..|
000051d0  2d be 25 c8 99 22 41 42  43 5f 50 72 79 6e 74 53  |-.%.."ABC_PryntS|
000051e0  74 72 69 6e 67 22 2c 61  24 2c 36 36 2c 31 33 32  |tring",a$,66,132|
000051f0  2c 31 2c 37 0d 2d c8 26  c8 99 22 41 42 43 5f 50  |,1,7.-.&.."ABC_P|
00005200  72 79 6e 74 53 74 72 69  6e 67 22 2c 61 24 2c 36  |ryntString",a$,6|
00005210  38 2c 31 33 33 2c 31 2c  31 34 0d 2d d2 05 cc 0d  |8,133,1,14.-....|
00005220  2d dc 26 c8 99 22 41 42  43 5f 50 72 79 6e 74 53  |-.&.."ABC_PryntS|
00005230  74 72 69 6e 67 22 2c 61  24 2c 31 33 32 2c 31 33  |tring",a$,132,13|
00005240  32 2c 31 2c 37 0d 2d e6  27 c8 99 22 41 42 43 5f  |2,1,7.-.'.."ABC_|
00005250  50 72 79 6e 74 53 74 72  69 6e 67 22 2c 61 24 2c  |PryntString",a$,|
00005260  31 33 34 2c 31 33 33 2c  31 2c 31 34 0d 2d f0 05  |134,133,1,14.-..|
00005270  cd 0d 2d fa 05 e1 0d 2e  04 0e dd f2 6c 6f 6e 67  |..-.........long|
00005280  6d 65 6e 75 0d 2e 0e 10  e7 62 6f 78 25 3c 3e 6f  |menu.....box%<>o|
00005290  6d 79 25 8c 0d 2e 18 06  ef 35 0d 2e 22 08 e6 30  |my%......5.."..0|
000052a0  2c 38 0d 2e 2c 06 c8 96  0d 2e 36 1e c8 93 c8 90  |,8..,.....6.....|
000052b0  34 30 30 2c 31 37 32 2b  6f 6d 79 25 2a 36 34 2c  |400,172+omy%*64,|
000052c0  32 38 38 2c 33 32 0d 2e  40 15 e7 6f 6d 79 25 3c  |288,32..@..omy%<|
000052d0  32 e6 30 2c 31 34 8b e6  30 2c 30 0d 2e 4a 14 ec  |2.0,14..0,0..J..|
000052e0  34 30 30 2c 32 30 34 2b  6f 6d 79 25 2a 36 34 0d  |400,204+omy%*64.|
000052f0  2e 54 16 f1 c0 6d 6e 75  24 28 39 2d 6f 6d 79 25  |.T...mnu$(9-omy%|
00005300  29 2c 31 37 29 0d 2e 5e  0d 6f 6d 79 25 3d 62 6f  |),17)..^.omy%=bo|
00005310  78 25 0d 2e 68 06 ef 34  0d 2e 72 05 87 0d 2e 7c  |x%..h..4..r....||
00005320  0b 69 6e 6a 25 3d 37 32  0d 2e 86 18 74 78 74 25  |.inj%=72....txt%|
00005330  3d a9 28 6d 6e 75 24 28  39 2d 6f 6d 79 25 29 29  |=.(mnu$(9-omy%))|
00005340  0d 2e 90 13 64 24 3d 6d  6e 75 24 28 39 2d 6f 6d  |....d$=mnu$(9-om|
00005350  79 25 29 0d 2e 9a 05 cd  0d 2e a4 0d e7 74 78 74  |y%)..........txt|
00005360  25 3e 31 37 8c 0d 2e ae  17 70 61 72 25 3d 28 39  |%>17.....par%=(9|
00005370  2d 62 6f 78 25 29 2a 26  31 34 30 30 0d 2e b8 16  |-box%)*&1400....|
00005380  d6 4d 65 6e 75 43 61 72  6f 75 73 65 6c 2c 70 61  |.MenuCarousel,pa|
00005390  72 25 0d 2e c2 17 e7 69  6e 6a 25 83 34 3d 30 3a  |r%.....inj%.4=0:|
000053a0  f2 6d 65 6e 75 63 68 61  72 0d 2e cc 0b 69 6e 6a  |.menuchar....inj|
000053b0  25 2b 3d 31 0d 2e d6 05  cd 0d 2e e0 05 e1 0d 2e  |%+=1............|
000053c0  ea 0e dd f2 6d 65 6e 75  63 68 61 72 0d 2e f4 1c  |....menuchar....|
000053d0  e7 28 69 6e 6a 25 3e 3e  32 29 3e 74 78 74 25 2b  |.(inj%>>2)>txt%+|
000053e0  38 3a 69 6e 6a 25 3d 34  0d 2e fe 15 e7 28 69 6e  |8:inj%=4.....(in|
000053f0  6a 25 3e 3e 32 29 3e 74  78 74 25 3a e1 0d 2f 08  |j%>>2)>txt%:../.|
00005400  1a e7 6f 6d 79 25 3c 32  20 63 6f 6c 25 3d 31 34  |..omy%<2 col%=14|
00005410  8b 63 6f 6c 25 3d 30 0d  2f 12 3c c8 99 22 41 42  |.col%=0./.<.."AB|
00005420  43 5f 50 72 79 6e 74 53  74 72 69 6e 67 22 2c c1  |C_PryntString",.|
00005430  64 24 2c 69 6e 6a 25 3e  3e 32 2c 31 29 2c 33 33  |d$,inj%>>2,1),33|
00005440  36 2c 35 32 2b 6f 6d 79  25 2a 31 36 2c 30 2c 63  |6,52+omy%*16,0,c|
00005450  6f 6c 25 0d 2f 1c 05 e1  0d 2f 26 20 dd f2 66 69  |ol%./..../& ..fi|
00005460  6c 6c 69 6e 66 6f 72 6d  61 74 69 6f 6e 28 74 61  |llinformation(ta|
00005470  78 25 2c 74 61 79 25 29  0d 2f 30 06 ef 35 0d 2f  |x%,tay%)./0..5./|
00005480  3a 08 e6 30 2c 30 0d 2f  44 20 ec 74 61 78 25 2a  |:..0,0./D .tax%*|
00005490  33 32 2d 66 25 2c 31 30  32 34 2d 28 74 61 79 25  |32-f%,1024-(tay%|
000054a0  2a 67 25 2b 34 29 0d 2f  4e 17 61 24 3d a4 66 6f  |*g%+4)./N.a$=.fo|
000054b0  72 65 69 67 6e 6c 65 76  65 6c 28 b9 29 0d 2f 58  |reignlevel(.)./X|
000054c0  0a e7 66 6f 72 25 8c 0d  2f 62 23 f1 22 52 e9 73  |..for%../b#."R.s|
000054d0  75 6c 74 61 74 20 20 20  20 20 20 20 20 20 20 20  |ultat           |
000054e0  20 43 6f 75 6c 65 75 72  22 3b 0d 2f 6c 18 e7 76  | Couleur";./l..v|
000054f0  65 72 25 f0 30 2c 32 38  2c 30 8b f0 30 2c 34 38  |er%.0,28,0..0,48|
00005500  2c 30 0d 2f 76 07 f1 61  24 0d 2f 80 05 cc 0d 2f  |,0./v..a$./..../|
00005510  8a 28 f1 22 41 74 74 61  69 6e 6d 65 6e 74 20 20  |.(."Attainment  |
00005520  20 20 20 20 20 20 20 20  43 6f 6c 6f 75 72 20 20  |        Colour  |
00005530  20 20 22 2b 61 24 0d 2f  94 05 cd 0d 2f 9e 0b e3  |  "+a$./..../...|
00005540  4a 25 3d 31 b8 36 0d 2f  a8 1c f2 63 6f 6c 6f 75  |J%=1.6./...colou|
00005550  72 28 61 74 74 25 28 67  6d 65 25 2c 4a 25 2c 30  |r(att%(gme%,J%,0|
00005560  29 29 0d 2f b2 1c c8 93  c8 90 36 34 32 2c 37 34  |))./......642,74|
00005570  30 2d 4a 25 2a 36 34 2c  31 35 36 2c 35 36 0d 2f  |0-J%*64,156,56./|
00005580  bc 05 ed 0d 2f c6 0b e3  4a 25 3d 31 b8 36 0d 2f  |..../...J%=1.6./|
00005590  d0 08 e6 30 2c 37 0d 2f  da 27 ec 74 61 78 25 2a  |...0,7./.'.tax%*|
000055a0  33 32 2b 34 34 38 2c 31  30 32 34 2d 28 74 61 79  |32+448,1024-(tay|
000055b0  25 2a 67 25 2b 4a 25 2a  66 25 2b 34 29 0d 2f e4  |%*g%+J%*f%+4)./.|
000055c0  07 f1 4a 25 0d 2f ee 27  ec 74 61 78 25 2a 33 32  |..J%./.'.tax%*32|
000055d0  2b 32 35 36 2c 31 30 32  34 2d 28 74 61 79 25 2a  |+256,1024-(tay%*|
000055e0  67 25 2b 4a 25 2a 66 25  2b 34 29 0d 2f f8 08 e6  |g%+J%*f%+4)./...|
000055f0  30 2c 30 0d 30 02 26 ec  74 61 78 25 2a 33 32 2d  |0,0.0.&.tax%*32-|
00005600  66 25 2c 31 30 32 34 2d  28 74 61 79 25 2a 67 25  |f%,1024-(tay%*g%|
00005610  2b 4a 25 2a 66 25 2b 34  29 0d 30 0c 18 f1 c0 69  |+J%*f%+4).0....i|
00005620  6e 66 6f 24 28 67 6d 65  25 2c 4a 25 29 2c 31 36  |nfo$(gme%,J%),16|
00005630  29 0d 30 16 25 ec 74 61  78 25 2a 33 32 2b 34 34  |).0.%.tax%*32+44|
00005640  38 2c 31 30 32 34 2d 28  74 61 79 25 2a 67 25 2b  |8,1024-(tay%*g%+|
00005650  4a 25 2a 66 25 29 0d 30  20 07 f1 4a 25 0d 30 2a  |J%*f%).0 ..J%.0*|
00005660  25 ec 74 61 78 25 2a 33  32 2b 32 35 36 2c 31 30  |%.tax%*32+256,10|
00005670  32 34 2d 28 74 61 79 25  2a 67 25 2b 4a 25 2a 66  |24-(tay%*g%+J%*f|
00005680  25 29 0d 30 34 17 e7 61  74 74 25 28 67 6d 65 25  |%).04..att%(gme%|
00005690  2c 4a 25 2c 30 29 3c 33  8c 0d 30 3e 14 78 73 63  |,J%,0)<3..0>.xsc|
000056a0  25 3d 74 61 78 25 2a 33  32 2b 32 35 30 0d 30 48  |%=tax%*32+250.0H|
000056b0  1c 79 73 63 25 3d 39 38  34 2d 28 74 61 79 25 2a  |.ysc%=984-(tay%*|
000056c0  67 25 2b 4a 25 2a 66 25  29 0d 30 52 0b e3 4c 25  |g%+J%*f%).0R..L%|
000056d0  3d 31 b8 34 0d 30 5c 1d  f2 63 6f 6c 6f 75 72 28  |=1.4.0\..colour(|
000056e0  61 74 74 25 28 67 6d 65  25 2c 4a 25 2c 4c 25 29  |att%(gme%,J%,L%)|
000056f0  29 0d 30 66 19 c8 93 c8  90 78 73 63 25 2c 79 73  |).0f.....xsc%,ys|
00005700  63 25 2b 34 2c 31 38 2c  34 30 0d 30 70 08 e6 30  |c%+4,18,40.0p..0|
00005710  2c 37 0d 30 7a 13 ec 78  73 63 25 2b 32 2c 79 73  |,7.0z..xsc%+2,ys|
00005720  63 25 2b 33 36 0d 30 84  0d f1 bd 28 39 36 2b 4c  |c%+36.0....(96+L|
00005730  25 29 0d 30 8e 08 e6 30  2c 30 0d 30 98 13 ec 78  |%).0...0,0.0...x|
00005740  73 63 25 2b 32 2c 79 73  63 25 2b 34 30 0d 30 a2  |sc%+2,ysc%+40.0.|
00005750  0d f1 bd 28 39 36 2b 4c  25 29 0d 30 ac 0c 78 73  |...(96+L%).0..xs|
00005760  63 25 2b 3d 32 38 0d 30  b6 05 ed 0d 30 c0 05 cd  |c%+=28.0....0...|
00005770  0d 30 ca 05 ed 0d 30 d4  06 ef 34 0d 30 de 05 87  |.0....0...4.0...|
00005780  0d 30 e8 05 e1 0d 30 f2  0a dd f2 74 72 61 70 0d  |.0....0....trap.|
00005790  30 fc 07 c8 97 87 0d 31  06 07 ef 32 36 0d 31 10  |0......1...26.1.|
000057a0  0a 2a 43 4c 4f 53 45 0d  31 1a 1a e7 73 75 6e 25  |.*CLOSE.1...sun%|
000057b0  3d 30 20 73 75 6e 25 3d  31 8b 73 75 6e 25 2d 3d  |=0 sun%=1.sun%-=|
000057c0  31 0d 31 24 05 e1 0d 31  2e 0f dd f2 6c 6f 61 64  |1.1$...1....load|
000057d0  77 6f 72 64 73 0d 31 38  0e ea 63 6f 64 25 2c 73  |words.18..cod%,s|
000057e0  74 72 25 0d 31 42 0c 68  25 3d 8e 28 65 24 29 0d  |tr%.1B.h%=.(e$).|
000057f0  31 4c 0d 65 6e 64 25 3d  a2 23 68 25 0d 31 56 08  |1L.end%=.#h%.1V.|
00005800  d9 23 68 25 0d 31 60 2f  de 77 72 64 24 28 36 2c  |.#h%.1`/.wrd$(6,|
00005810  31 35 30 30 29 2c 6b 6e  64 25 28 36 2c 31 35 30  |1500),knd%(6,150|
00005820  30 29 2c 63 6f 64 25 35  31 32 2c 73 74 72 25 65  |0),cod%512,str%e|
00005830  6e 64 25 0d 31 6a 0d e3  41 25 3d 30 b8 32 88 32  |nd%.1j..A%=0.2.2|
00005840  0d 31 74 0b 50 25 3d 63  6f 64 25 0d 31 7e 0a 5b  |.1t.P%=cod%.1~.[|
00005850  4f 50 54 41 25 0d 31 88  35 4c 44 52 20 52 30 2c  |OPTA%.1.5LDR R0,|
00005860  61 64 64 72 3a 41 44 52  20 52 31 2c 62 75 66 66  |addr:ADR R1,buff|
00005870  3a 4d 4f 56 20 52 32 2c  23 26 30 3a 4c 44 52 20  |:MOV R2,#&0:LDR |
00005880  52 33 2c 61 64 64 72 2b  26 34 0d 31 92 09 2e 72  |R3,addr+&4.1...r|
00005890  65 61 64 0d 31 9c 2b 4c  44 52 42 20 52 34 2c 5b  |ead.1.+LDRB R4,[|
000058a0  52 30 5d 2c 23 26 31 3a  43 4d 50 20 52 34 2c 23  |R0],#&1:CMP R4,#|
000058b0  26 32 30 3a 42 4c 54 20  66 69 6e 69 73 68 0d 31  |&20:BLT finish.1|
000058c0  a6 34 53 54 52 42 20 52  34 2c 5b 52 31 2c 52 32  |.4STRB R4,[R1,R2|
000058d0  5d 3a 41 44 44 20 52 32  2c 52 32 2c 23 26 31 3a  |]:ADD R2,R2,#&1:|
000058e0  43 4d 50 20 52 30 2c 52  33 3a 42 4c 54 20 72 65  |CMP R0,R3:BLT re|
000058f0  61 64 0d 31 b0 0b 2e 66  69 6e 69 73 68 0d 31 ba  |ad.1...finish.1.|
00005900  28 43 4d 50 20 52 32 2c  23 26 46 46 3a 4d 4f 56  |(CMP R2,#&FF:MOV|
00005910  47 45 20 52 32 2c 23 26  46 46 3a 4d 4f 56 20 52  |GE R2,#&FF:MOV R|
00005920  34 2c 23 26 44 0d 31 c4  2b 53 54 52 42 20 52 34  |4,#&D.1.+STRB R4|
00005930  2c 5b 52 31 2c 52 32 5d  3a 53 54 52 20 52 30 2c  |,[R1,R2]:STR R0,|
00005940  61 64 64 72 3a 4d 4f 56  20 52 31 35 2c 52 31 34  |addr:MOV R15,R14|
00005950  0d 31 ce 09 2e 61 64 64  72 0d 31 d8 0d 45 51 55  |.1...addr.1..EQU|
00005960  44 20 73 74 72 25 0d 31  e2 12 45 51 55 44 20 73  |D str%.1..EQUD s|
00005970  74 72 25 2b 65 6e 64 25  0d 31 ec 09 2e 62 75 66  |tr%+end%.1...buf|
00005980  66 0d 31 f6 05 5d 0d 32  00 05 ed 0d 32 0a 1c ff  |f.1..].2....2...|
00005990  22 4c 4f 41 44 20 22 2b  65 24 2b 22 20 22 2b c3  |"LOAD "+e$+" "+.|
000059a0  7e 28 73 74 72 25 29 0d  32 14 0e 62 24 3d 22 47  |~(str%).2..b$="G|
000059b0  52 41 44 45 22 0d 32 1e  0a 63 24 3d 22 2f 22 0d  |RADE".2..c$="/".|
000059c0  32 28 0a 64 24 3d 22 24  22 0d 32 32 0e 65 6e 64  |2(.d$="$".22.end|
000059d0  25 2b 3d 73 74 72 25 0d  32 3c 0a 6c 76 6c 25 3d  |%+=str%.2<.lvl%=|
000059e0  31 0d 32 46 0a 71 75 65  25 3d 31 0d 32 50 1a c8  |1.2F.que%=1.2P..|
000059f0  95 71 75 65 25 3c 31 35  30 30 80 21 61 64 64 72  |.que%<1500.!addr|
00005a00  3c 65 6e 64 25 0d 32 5a  09 d6 63 6f 64 25 0d 32  |<end%.2Z..cod%.2|
00005a10  64 0c 61 24 3d 24 62 75  66 66 0d 32 6e 10 c8 95  |d.a$=$buff.2n...|
00005a20  c0 61 24 2c 31 29 3d 22  20 22 0d 32 78 0d 61 24  |.a$,1)=" ".2x.a$|
00005a30  3d c1 61 24 2c 32 29 0d  32 82 05 ce 0d 32 8c 0e  |=.a$,2).2....2..|
00005a40  c8 95 c2 61 24 29 3d 22  20 22 0d 32 96 0b 61 24  |...a$)=" ".2..a$|
00005a50  3d c0 61 24 29 0d 32 a0  05 ce 0d 32 aa 1d e7 a7  |=.a$).2....2....|
00005a60  61 24 2c 62 24 29 3e 30  f2 65 78 67 72 61 64 65  |a$,b$)>0.exgrade|
00005a70  8b f2 77 6f 72 64 73 0d  32 b4 05 ce 0d 32 be 05  |..words.2....2..|
00005a80  e1 0d 32 c8 0d dd f2 65  78 67 72 61 64 65 0d 32  |..2....exgrade.2|
00005a90  d2 0f e3 4a 25 3d 31 b8  a9 28 61 24 29 0d 32 dc  |...J%=1..(a$).2.|
00005aa0  35 e7 c1 61 24 2c 4a 25  2c 31 29 3e 22 30 22 80  |5..a$,J%,1)>"0".|
00005ab0  c1 61 24 2c 4a 25 2c 31  29 3c 22 37 22 3a 6c 76  |.a$,J%,1)<"7":lv|
00005ac0  6c 25 3d 97 28 c1 61 24  2c 4a 25 2c 31 29 29 2d  |l%=.(.a$,J%,1))-|
00005ad0  34 38 0d 32 e6 05 ed 0d  32 f0 0a 71 75 65 25 3d  |48.2....2..que%=|
00005ae0  31 0d 32 fa 05 e1 0d 33  04 0b dd f2 77 6f 72 64  |1.2....3....word|
00005af0  73 0d 33 0e 16 e7 a7 61  24 2c 64 24 29 3e 30 84  |s.3....a$,d$)>0.|
00005b00  61 24 3d 22 22 3a e1 0d  33 18 11 e7 c1 61 24 2c  |a$="":..3....a$,|
00005b10  32 2c 31 29 3d 63 24 8c  0d 33 22 1c 6b 6e 64 25  |2,1)=c$..3".knd%|
00005b20  28 6c 76 6c 25 2c 71 75  65 25 29 3d 97 28 61 24  |(lvl%,que%)=.(a$|
00005b30  29 2d 34 38 0d 33 2c 3a  e7 6b 6e 64 25 28 6c 76  |)-48.3,:.knd%(lv|
00005b40  6c 25 2c 71 75 65 25 29  3c 31 84 6b 6e 64 25 28  |l%,que%)<1.knd%(|
00005b50  6c 76 6c 25 2c 71 75 65  25 29 3e 34 3a 6b 6e 64  |lvl%,que%)>4:knd|
00005b60  25 28 6c 76 6c 25 2c 71  75 65 25 29 3d 31 0d 33  |%(lvl%,que%)=1.3|
00005b70  36 22 77 72 64 24 28 6c  76 6c 25 2c 71 75 65 25  |6"wrd$(lvl%,que%|
00005b80  29 3d c1 61 24 2c a7 61  24 2c 63 24 29 2b 31 29  |)=.a$,.a$,c$)+1)|
00005b90  0d 33 40 05 cc 0d 33 4a  16 77 72 64 24 28 6c 76  |.3@...3J.wrd$(lv|
00005ba0  6c 25 2c 71 75 65 25 29  3d 61 24 0d 33 54 05 cd  |l%,que%)=a$.3T..|
00005bb0  0d 33 5e 0b 71 75 65 25  2b 3d 31 0d 33 68 05 e1  |.3^.que%+=1.3h..|
00005bc0  0d 33 72 0b dd f2 67 72  61 64 65 0d 33 7c 0a 73  |.3r...grade.3|.s|
00005bd0  75 62 25 3d 30 0d 33 86  0a f2 6c 69 6d 69 74 0d  |ub%=0.3...limit.|
00005be0  33 90 18 e7 62 6e 64 25  3e 31 3a 67 72 64 25 3d  |3...bnd%>1:grd%=|
00005bf0  67 72 64 25 82 26 37 0d  33 9a 0d 74 65 6d 25 3d  |grd%.&7.3..tem%=|
00005c00  66 6f 72 25 0d 33 a4 0c  f2 66 6f 72 65 69 67 6e  |for%.3...foreign|
00005c10  0d 33 ae 1c e7 74 65 6d  25 3c 3e 66 6f 72 25 75  |.3...tem%<>for%u|
00005c20  70 64 25 3d b9 8b 75 70  64 25 3d a3 0d 33 b8 05  |pd%=..upd%=..3..|
00005c30  e1 0d ff                                          |...|
00005c33