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

10_10Frnch/!10_10Fren/25-01-1994/Menu

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/Menu
Read OK:
File size: 86C0 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM ><Disc1$Dir>.Menu
   20ONERROR:IFERR=17 PROCtrap:GOTO60 ELSEPROCerror
   30IFMODE<>12:MODE12:OFF
   40PROCinitial
   50PROCassemble
   60PROCmenu
   70REPEAT
   80PROCmouseilluminate
   90PROCselect
  100PROCaccess
  110PROCconfigure
  120UNTIL FALSE
  130DEFPROCinitial
  140SYS"ABC_VideoAddress"
  150SYS"Hourglass_On"
  160MOUSE RECTANGLE 0,0,1280,1024
  170DIM att%(6,6,4),new%(6,6,4),info$(6,6),sub$(6,6,4),filename$(64),six$(6)
  180DIM ncl$(6),mnu$(11),directory%(64),files%(64),cat% &400
  190h%=OPENIN("ram:FactFile")
  200FORJ%=1TO6
  210FORK%=1TO6
  220INPUT#h%,info$(J%,K%)
  230NEXT
  240NEXT
  250CLOSE#h%
  260@%  =0
  270box%=0
  280g%  =16
  290pre%=-1
  300sun%=0
  310f$  ="<Disc1$Dir>.SixGames."
  320j%  =FNinitialcompressed("Numbers")
  330PROCloaddetails
  340RESTORE 530
  350FORJ%=1TO6
  360FORK%=1TO6
  370FORL%=1TO4
  380READ a$
  390sub$(J%,K%,L%)=a$
  400NEXT
  410NEXT
  420NEXT
  430FORJ%=1TO6
  440READ a$
  450ncl$(J%)=a$
  460NEXT
  470SYS"Hourglass_Smash"
  480PROCpoint("Ten",1)
  490VOICES 4
  500VOICE 1,"StringLib-Pluck"
  510PROCflush
  520ENDPROC
  530DATA fruit/veg,drinks and baker's,delicatessan,general
  540DATA in grocer's,in grocer's,in delicatessan,general
  550DATA food shopping,restaurant/cafe,clothes shopping,present shopping
  560DATA "avoir, �tre present tense",regular 'er' verb aimer,vouloirs,regular 're' 'ir' verbs vendre and finir
  570DATA food/dishes,shops and services,food items,restaurants
  580DATA apologising and excuses,"complaints, problems and disapproval","likes, dislikes, voicing anger and exasperation","inviting, refusing and forbidding"
  590DATA sports,sports,music,hobbies
  600DATA sports,music,pastimes,going out
  610DATA sports,music,pastimes,going out
  620DATA "faire, aller","pouvoir, devoir",regular 'er',reflexives
  630DATA direct object pronouns,indirect object pronouns,'y' and 'en',emphatic pronouns
  640DATA perfect tense,imperfect tense,pluperfect tense,past historic tense
  650DATA female relatives,male relatives,pets,colours
  660DATA parts of the body,features/face,illness/health,special occasions
  670DATA physical description,personality,family status and religion,nationality
  680DATA family and special occasions,"illness, health and diet",finding opposites,finding opposites
  690DATA adjectives,adjectives,adverbs,adverbs
  700DATA find the noun,find the verb,find the adjective,find the past participle
  710DATA places in town,places in town,furniture,shops
  720DATA "whole hours, half hours and quarter past",all times,24 hour clock,24 hour clock
  730DATA giving directions,giving directions,station signs,weather
  740DATA geography of France,geography of France,geography of France,geography of France
  750DATA regular verbs,irregular verbs,irregular verbs,irregular verbs
  760DATA slang,slang,idioms,idioms
  770DATA school subjects,classroom objects,school facilities,classroom objects
  780DATA school subjects - le la l' les,classroom objects - un une des,school facilities - le la l' les,classroom objects - un une des
  790DATA mon ma mes,ton ta tes,son sa ses,notre nos
  800DATA school subjects/rooms,jobs and careers,classroom objects,jobs and careers
  810DATA future plans,future plans,future plans (infinitives),future plans (infinitives)
  820DATA infinitives,relative pronouns qui que,negatives,after having ...
  830DATA days,months,numbers 1-20,numbers in tens 0-100
  840DATA countries,accommodation,transport,holiday items
  850DATA weather,hotel,campsite,tourist office
  860DATA perfect tense with 'avoir' regular,perfect tense with 'avoir' irregular,"perfect tense with '�tre'",perfect tense with reflexive verbs
  870DATA holidays past,holidays past,post cards,plans for future holidays
  880DATA tourist office,booking accomodation,holiday complaints,lost property
  890DATA 1,2/3,3/4,5/6,6/7,8/9/10
  900DEFPROCmouse1
  910MOUSE COLOUR 1,255,255,0
  920MOUSE COLOUR 2,255,0,0
  930MOUSE COLOUR 3,192,192,192
  940MOUSE ON 1
  950ENDPROC
  960DEFFNarea(x1%,y1%,x2%,y2%)
  970IFmox%<x1% OR mox%>x2%:=FALSE
  980IFmoy%<y1% OR moy%>y2%:=FALSE
  990=TRUE
 1000DEFPROCmouseilluminate
 1010MOUSE mox%,moy%,but%
 1020box%=(moy%-100)>>6
 1030IFbox%<0:box%=0
 1040IFbox%>11:box%=11
 1050IFbox%<>sun%:WAIT:PROCsqr(sun%,11):PROCsqr(box%,15):sun%=box%
 1060IFNOTFNarea(704,104,864,868) THEN
 1070PROCsqr(box%,11)
 1080IFbox%<5 THEN
 1090box%=11:sun%=10
 1100ELSE
 1110box%=0:sun%=1
 1120ENDIF
 1130PROCtidy
 1140ELSE
 1150IFfrn%:PROClongmenu
 1160ENDIF
 1170IFbut%=0 OR NOTFNarea(704,104,864,868):ENDPROC
 1180VDU 7
 1190CASE box% OF
 1200WHEN 0 :PROCdesktop
 1210WHEN 1 :PROCprintcertificate
 1220WHEN 2 :PROCdelete
 1230WHEN 3 :PROCcreate
 1240WHEN 4 :PROCload
 1250WHEN 5 :PROCviewachieve
 1260WHEN 6 :PROCrun("Stones")
 1270WHEN 7 :PROCrun("Rescue")
 1280WHEN 8 :PROCrun("LinkUp")
 1290WHEN 9 :PROCrun("WordSearch")
 1300WHEN 10:PROCrun("Tower")
 1310WHEN 11:PROCrun("TheCop")
 1320ENDCASE
 1330IFsun%<11 sun%=11 ELSEsun%=0
 1340PROCzeromouse
 1350PROCmenu
 1360ENDPROC
 1370DEFPROCrun(game$)
 1380MOUSE OFF
 1390SYS"Hourglass_On"
 1400SYS"ABC_Blank",15
 1410SYS"ABC_Colour",15
 1420PROCconfilesave
 1430CHAIN f$+game$
 1440ENDPROC
 1450DEFPROCsqr(wch%,col%)
 1460GCOL 0,col%
 1470RECTANGLEFILL 706,wch%*64+100,156,58
 1480ENDPROC
 1490DEFPROCmenu
 1500MOUSE OFF
 1510MOUSE TO 640,512
 1520SYS"ABC_Blank",15
 1530SYS"ABC_Colour",15
 1540inj%=72
 1550omy%=1
 1560txt%=1
 1570d$=""
 1580IFfrn% PROCcard("FRANCAIS MENU",24,6,2,12) ELSEPROCcard("FRENCH MENU",24,6,2,12)
 1590PROCfillmenu
 1600PROCcurrent
 1610PROCrectangles
 1620PROCcontents
 1630SYS"ABC_Palette"
 1640MOUSE RECTANGLE 0,0,1280,1024
 1650MOUSE TO 640,512
 1660PROCmouse1
 1670ENDPROC
 1680DEFPROCfillmenu
 1690VDU 5
 1700GCOL 0,0
 1710IFfrn% RESTORE 1910 ELSERESTORE 1880
 1720FORJ%=0TO5
 1730READ s$
 1740MOVE 400,844-J%*64
 1750IFfrn% PRINTLEFT$(s$,17) ELSEPRINTs$
 1760mnu$(J%)=s$
 1770NEXT
 1780GCOL 0,14
 1790FORJ%=6TO11
 1800READ s$
 1810MOVE 400,844-J%*64
 1820IFfrn% PRINTLEFT$(s$,17) ELSEPRINTs$
 1830mnu$(J%)=s$
 1840NEXT
 1850VDU 4
 1860OFF
 1870ENDPROC
 1880DATA The Cop,Tower,Word Search,Link Up,Rescue,Stones
 1890DATA Player information,Change player,New player,Remove player
 1900DATA Print certificate,Quit
 1910DATA Le Flic,La Tour,Le Puzzle,Le Jumelage,"La Fus�e",La Bonne Route
 1920DATA Information pour les joueur,Changement de joueur,Nouveau joueur,Effacer le joueur
 1930DATA Imprimer le certificat,Quitter
 1940DEFPROCachievecard
 1950MOUSE OFF
 1960SYS"ABC_Blank",15
 1970SYS"ABC_Colour",15
 1980a$=FNstrip(attend$)
 1990IFa$="" THEN
 2000IFfrn% a$="Vide" ELSEa$="Empty"
 2010ENDIF
 2020IFfrn% PROCnewcard(a$+" : Grille d'Evaluation 10/10 Fran�ais",8,13) ELSEPROCnewcard(a$+" : Achievement Record 10/10 French",8,13)
 2030PROCfillachieve
 2040MOUSE TO 640,512
 2050SYS"ABC_Palette"
 2060PROCmouse1
 2070p$="X"
 2080oxx%=0
 2090oyy%=0
 2100ozz%=0
 2110*FX21 0
 2120ENDPROC
 2130DEFPROCviewachieve
 2140MOUSE RECTANGLE 128,116,1150,764
 2150PROCachievecard
 2160REPEAT
 2170MOUSE mox%,moy%,but%
 2180cxx%=(mox%-128)/192+1
 2190cyy%=(moy%-116)/128+1
 2200czz%=0
 2210xsc%=cxx%*192-30
 2220ysc%=cyy%*128
 2230cyy%=7-cyy%
 2240IFFNarea(xsc%,ysc%,xsc%+126,ysc%+40) AND att%(cxx%,cyy%,0)<3:czz%=(mox%-xsc%)/32+1
 2250IFcxx%<>oxx% OR cyy%<>oyy% OR czz%<>ozz%:PROCinformation(info$(cxx%,cyy%),sub$(cxx%,cyy%,czz%))
 2260PROCachievediscdump
 2270PROCachieveprintdump
 2280PROCallachieveprintdump
 2290UNTIL FNleave
 2300ENDPROC
 2310DEFPROCinformation(t$,u$)
 2320IFu$>"":t$+=" ("+u$+")"
 2330IFnig%:t$="LoA "+ncl$(cyy%)+" "+t$
 2340oxx%=cxx%
 2350oyy%=cyy%
 2360ozz%=czz%
 2370IFp$=t$:ENDPROC
 2380p$=t$
 2390PROCmess(t$,11)
 2400ENDPROC
 2410DEFPROCcard(t$,tax%,tay%,sdx%,sdy%)
 2420VDU 5
 2430GCOL 0,8
 2440RECTANGLEFILL tax%*g%,tay%*g%,sdx%*160+160,sdy%*64
 2450GCOL 0,11
 2460RECTANGLEFILL tax%*g%+320,tay%*g%,sdx%*160-162,sdy%*64
 2470GCOL 0,0
 2480IFsdx%*160+160>1279 sxe%=1278 ELSEsxe%=sdx%*160+160
 2490RECTANGLE tax%*g%,tay%*g%,sxe%,sdy%*64
 2500GCOL 0,13
 2510MOVE tax%*g%+64,tay%*g%+sdy%*64+64
 2520PLOT 0,LEN(t$)*g%,0
 2530PLOT 85,tax%*g%,tay%*g%+sdy%*64
 2540PLOT 81,128+LEN(t$)*g%,0
 2550GCOL 0,0
 2560MOVE tax%*g%,tay%*g%+sdy%*64
 2570PLOT 1,64,64
 2580PLOT 1,LEN(t$)*g%,0
 2590PLOT 1,64,-64
 2600MOVE tax%*g%+64,tay%*g%+sdy%*64+44
 2610PRINTt$
 2620FORJ%=1TO sdx%
 2630MOVE tax%*g%+J%*160+160,tay%*g%
 2640PLOT 1,0,sdy%*64
 2650NEXT
 2660FORJ%=1TO sdy%
 2670MOVE tax%*g%,tay%*g%+J%*64
 2680PLOT 1,sdx%*160+160,0
 2690NEXT
 2700VDU 4
 2710OFF
 2720ENDPROC
 2730DEFPROCcent(t$,tay%)
 2740PRINTTAB(41-LEN(t$)DIV2,tay%)t$;
 2750ENDPROC
 2760DEFPROCmess(t$,col%)
 2770GCOL 0,col%
 2780VDU 5
 2790WAIT
 2800RECTANGLEFILL 0,0,1278,64
 2810GCOL 0,0
 2820RECTANGLE 0,0,1278,64
 2830MOVE 640-LEN(t$)*8,44
 2840PRINTt$
 2850VDU 4
 2860OFF
 2870ENDPROC
 2880DEFPROCprintcertificate
 2890SYS"ABC_Colour",15
 2900MOUSE OFF
 2910ach%=TRUE
 2920FORJ%=1TO6
 2930FORK%=1TO6
 2940IFatt%(K%,J%,0)>2:ach%=FALSE
 2950NEXT
 2960NEXT
 2970IFach% THEN
 2980IFfrn% PROCmess("Aucune r�ussite pour l'instant - retourner au menu",11) ELSEPROCmess("Nothing achieved at present - return to menu",11)
 2990PROCzeromouse
 3000REPEAT
 3010UNTIL FNleave
 3020ELSE
 3030PROCbusy
 3040REPEAT
 3050UNTIL FNleave
 3060ENDIF
 3070ENDPROC
 3080DEFPROCbusy
 3090IFfrn% PROCforeign ELSEPROCenglish
 3100ENDPROC
 3110DEFPROCenglish
 3120PROCmess("Screen/Printer/Disc (S/P/D)",11)
 3130*FX21 0
 3140REPEAT
 3150k%=INKEY(0)
 3160IFk%>=ASC("a"):k%-=32
 3170UNTIL k%=ASC("S") OR k%=ASC("P") OR k%=ASC("D") OR INKEY-113
 3180IFINKEY-113:PROCflush:ENDPROC
 3190VDU 7
 3200IFk%<>ASC("P") THEN
 3210PROCmess("Text/Graphics (T/G)",11)
 3220REPEAT
 3230t%=INKEY(0)
 3240IFt%>=ASC("a"):t%-=32
 3250UNTIL t%=ASC("T") OR t%=ASC("G") OR INKEY-113
 3260ELSE
 3270t%=ASC("T")
 3280ENDIF
 3290IFINKEY-113:PROCflush:ENDPROC
 3300IFt%=ASC("T") PROCachieve_text ELSEPROCachieve_graphics
 3310IFk%=ASC("D"):PROCdiscdump
 3320IFk%=ASC("P"):PROCprinter_dump
 3330ENDPROC
 3340DEFPROCforeign
 3350PROCmess("Ecran/Imprimante/Disquette (E/I/D)",11)
 3360*FX21 0
 3370REPEAT
 3380k%=INKEY(0)
 3390IFk%>=ASC("a"):k%-=32
 3400UNTIL k%=ASC("E") OR k%=ASC("I") OR k%=ASC("D") OR INKEY-113
 3410IFINKEY-113:PROCflush:ENDPROC
 3420VDU 7
 3430IFk%<>ASC("I") THEN
 3440PROCmess("Texte/iMages (T/M)",11)
 3450REPEAT
 3460t%=INKEY(0)
 3470IFt%>=ASC("a"):t%-=32
 3480UNTIL t%=ASC("T") OR t%=ASC("M") OR INKEY-113
 3490ELSE
 3500t%=ASC("T")
 3510ENDIF
 3520IFINKEY-113:PROCflush:ENDPROC
 3530IFt%=ASC("T") PROCachieve_text ELSEPROCachieve_graphics
 3540IFk%=ASC("D"):PROCdiscdump
 3550IFk%=ASC("I"):PROCprinter_dump
 3560ENDPROC
 3570DEFPROCachieve_graphics
 3580SYS"ABC_Blank",3
 3590SYS"ABC_Colour",3
 3600GCOL 0,12
 3610RECTANGLEFILL 184,64,942,932
 3620GCOL 0,7
 3630RECTANGLE 184,64,942,932
 3640COLOUR 0
 3650COLOUR 140
 3660SYS"ABC_UnpackSprite","wax",j%,444,70
 3670SYS"ABC_UnpackSprite","small",j%,120,64
 3680PROCwords(TRUE)
 3690SYS"ABC_Palette"
 3700ENDPROC
 3710DEFPROCachieve_text
 3720SYS"ABC_Blank",12
 3730SYS"ABC_Colour",12
 3740COLOUR 7
 3750COLOUR 140
 3760PROCcent(STRING$(67,"*"),0)
 3770FORJ%=1TO29
 3780PRINTTAB(8,J%)"*"TAB(74,J%)"*"
 3790NEXT
 3800PROCcent(STRING$(67,"*"),30)
 3810PROCwords(FALSE)
 3820SYS"ABC_Palette"
 3830ENDPROC
 3840DEFPROCwords(fan%)
 3850IFfan% THEN
 3860IFfrn% a$="CECI CERTIFIE QUE" ELSEa$="THIS IS TO CERTIFY THAT"
 3870xsc%=320-LEN(a$)*8
 3880SYS"ABC_PryntString",a$,xsc%,240,1,7
 3890SYS"ABC_PryntString",a$,xsc%-2,242,1,11
 3900PROCwings(FNstrip(attend$),168,222)
 3910ELSE
 3920COLOUR 7
 3930COLOUR 140
 3940IFfrn% PROCcent("CECI CERTIFIE QUE ",2) ELSEPROCcent("THIS IS TO CERTIFY THAT ",2)
 3950a$=FNstrip(attend$)
 3960PROCcent(a$,4)
 3970ENDIF
 3980COLOUR 7
 3990COLOUR 140
 4000IFfrn% THEN
 4010IFver% a$="cat�gories" ELSEa$="niveaux"
 4020PROCcent("a jou� aux jeux Dix sur Dix Fran�ais",9)
 4030PROCcent("et a obtenu 100% aux jeux suivants "+a$,10)
 4040PROCcent("Certificat d�livr� par",27)
 4050PROCcent("Systemes Educatifs 10/10",28)
 4060ELSE
 4070IFver% a$="grades" ELSEa$="levels"
 4080PROCcent("has played the Ten out of Ten French games",9)
 4090PROCcent("and has achieved 100% at the following "+a$,10)
 4100PROCcent("Certificate from",27)
 4110PROCcent("10/10 Educational Systems",28)
 4120ENDIF
 4130PROCcent(FNdate,25)
 4140tay%=0
 4150FORJ%=1TO6
 4160K%=1
 4170fnd%=FALSE
 4180WHILE K%<7 AND NOTfnd%
 4190IFatt%(K%,J%,0)>2 AND LEFT$(info$(K%,J%),4)<>"":tay%+=1:fnd%=TRUE
 4200K%+=1
 4210ENDWHILE
 4220NEXT
 4230tay%=18-tay%DIV2
 4240IFfrn% RESTORE 1910 ELSERESTORE 1880
 4250FORJ%=1TO6
 4260READ b$
 4270six$()=""
 4280FORK%=1TO6
 4290IFatt%(J%,K%,0)>2:six$(K%)=STR$(K%)
 4300NEXT
 4310REPEAT
 4320srt%=TRUE
 4330FORK%=1TO5
 4340IFsix$(K%)<six$(K%+1):SWAP six$(K%),six$(K%+1):srt%=FALSE
 4350NEXT
 4360UNTIL srt%
 4370a$=""
 4380FORK%=1TO6
 4390IFsix$(K%)<>"":a$+=six$(K%)+","
 4400NEXT
 4410IFRIGHT$(a$)=",":a$=LEFT$(a$)
 4420IFa$<>"" THEN
 4430PRINTTAB(18,tay%)b$TAB(36,tay%)"..."TAB(40,tay%)a$
 4440tay%+=1
 4450ENDIF
 4460NEXT
 4470ENDPROC
 4480DEFPROCdiscdump
 4490VDU 7
 4500MOUSE OFF
 4510LOCAL ERROR
 4520SYS"ABC_Transfer",0,16,640,17
 4530PROCinput(32,"adfs::0.$."+attend$,FALSE,TRUE)
 4540SYS"ABC_Restore"
 4550IFesc% OR i$="":ENDPROC
 4560SYS"Hourglass_On"
 4570OSCLI"SCREENSAVE "+i$
 4580SYS"Hourglass_Smash"
 4590ON ERROR LOCAL:PROCfrang
 4600*DIR <Disc1$Dir>.SixGames
 4610SYS"ABC_Restore"
 4620MOUSE TO 640,512
 4630PROCmouse1
 4640ENDPROC
 4650DEFPROCfrang
 4660VDU 7
 4670IFfrn% a$="INTRODUIRE LA DISQUETTE DANS LE LECTEUR ET APPUYER SUR RETOUR" ELSEa$="PLEASE INSERT DISC INTO DRIVE AND PRESS RETURN"
 4680PROCmess(a$,8)
 4690REPEAT
 4700UNTIL INKEY-74
 4710ENDPROC
 4720DEFPROCprinter_dump
 4730VDU 2
 4740FORJ%=0TO30
 4750FORK%=0TO79
 4760VDU 31,K%,J%
 4770SYS"OS_Byte",135 TO ,res%
 4780VDU res%
 4790NEXT
 4800IFJ%<30:VDU 13,10
 4810NEXT
 4820VDU 3
 4830ENDPROC
 4840DEFPROCload
 4850PROClegal
 4860IFbad% OR esc%:ENDPROC
 4870PROCgridcheck
 4880IFa$="" OR k%:ENDPROC
 4890VDU 7
 4900h%=OPENIN("<Disc1$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)+"."+a$)
 4910SYS"Hourglass_On"
 4920FORL%=0TO4
 4930FORK%=1TO6
 4940FORJ%=1TO6
 4950INPUT#h%,att%(J%,K%,L%)
 4960NEXT
 4970NEXT
 4980NEXT
 4990CLOSE#h%
 5000attend$=a$
 5010PROCconfilesave
 5020SYS"Hourglass_Smash"
 5030ENDPROC
 5040DEFPROCsmall(wch%,col%)
 5050GCOL 0,col%
 5060RECTANGLEFILL (wch%>>4)*256+354,964-((wch%AND&F)<<6),26,32
 5070ENDPROC
 5080DEFPROCcreate
 5090PROClegal
 5100IFbad% OR esc%:ENDPROC
 5110MOUSE OFF
 5120SYS"ABC_Colour",15
 5130IFfrn% PROCmess("Nom du nouveau joueur",11) ELSEPROCmess("New player name",11)
 5140PROCdelay(50)
 5150PROCinput(8,"",TRUE,FALSE)
 5160WHILE INSTR(i$," ")>0
 5170MID$(i$,INSTR(i$," "))="_"
 5180ENDWHILE
 5190IFesc%:ENDPROC
 5200OSCLI"DIR <Disc1$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)
 5210SYS"OS_GBPB",8,,cat%,&40,0 TO ,,,d%
 5220*DIR <Disc1$Dir>.SixGames
 5230a%=0
 5240c%=0
 5250d%=64-d%
 5260st%=cat%
 5270dup%=FALSE
 5280WHILE c%<d% AND NOTdup%
 5290t%=st%?((?st%)+1)
 5300st%?((?st%)+1)=&D
 5310a$=$(st%+1)
 5320st%+=1+(?st%)
 5330?st%=t%
 5340IFa$=i$:dup%=TRUE
 5350a%+=1
 5360c%+=1
 5370ENDWHILE
 5380k%=TRUE
 5390IFdup% THEN
 5400GCOL 0,10
 5410VDU 5
 5420RECTANGLEFILL 0,0,1278,64
 5430GCOL 0,0
 5440RECTANGLE 0,0,1278,64
 5450IFfrn% t$="Joueur "+i$+" existe d�j� - Effacer?" ELSEt$="Player "+i$+" already exists - Erase?"
 5460MOVE 860-LEN(t$)*g%,44
 5470PRINTt$
 5480VDU 4
 5490OFF
 5500k%=FNyesno
 5510ENDIF
 5520IFNOTk%:PROCmouse1:ENDPROC
 5530att%()=0
 5540h%=OPENOUT("<Disc1$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)+"."+i$)
 5550FORL%=0TO4
 5560FORK%=1TO6
 5570FORJ%=1TO6
 5580PRINT#h%,att%(J%,K%,L%)
 5590NEXT
 5600NEXT
 5610NEXT
 5620CLOSE#h%
 5630attend$=i$
 5640PROCconfilesave
 5650SYS"ABC_Colour",15
 5660PROCmouse1
 5670ENDPROC
 5680DEFPROCdelete
 5690PROClegal
 5700IFbad% OR esc%:ENDPROC
 5710PROCgridcheck
 5720IFa$="" OR k%:ENDPROC
 5730SYS"ABC_Colour",15
 5740GCOL 0,10
 5750VDU 5
 5760RECTANGLEFILL 0,0,1278,64
 5770GCOL 0,0
 5780RECTANGLE 0,0,1278,64
 5790IFfrn% t$="Joueur "+a$+" - Effacer?" ELSEt$="Player "+a$+" - Erase?"
 5800MOVE 860-LEN(t$)*g%,44
 5810PRINTt$
 5820VDU 4
 5830OFF
 5840k%=FNyesno
 5850IFNOTk%:PROCmouse1:ENDPROC
 5860OSCLI"DELETE <Disc1$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)+"."+a$
 5870IFa$=attend$:PROCsetempty
 5880ENDPROC
 5890DEFPROCdelay(del%)
 5900REPEAT
 5910WAIT
 5920del%-=1
 5930UNTIL del%<0
 5940ENDPROC
 5950DEFPROCconfileload
 5960h%=OPENIN(f$+"Configure")
 5970INPUT#h%,rat%,nig%,sds%,ver%,grd%,cla%,typ$,hed%,fut%,pap%,pix%,frn%,attend$,cod%
 5980CLOSE#h%
 5990ENDPROC
 6000DEFPROCconfilesave
 6010h%=OPENOUT(f$+"Configure")
 6020PRINT#h%,rat%,nig%,sds%,ver%,grd%,cla%,typ$,hed%,fut%,pap%,pix%,frn%,attend$,cod%
 6030CLOSE#h%
 6040ENDPROC
 6050DEFPROCloaddetails
 6060PROCconfileload
 6070IFsds% OSCLI"SPEAKER ON" ELSEOSCLI"SPEAKER OFF"
 6080IFattend$="" THEN
 6090att%()=0
 6100ELSE
 6110h%=OPENIN("<Disc1$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)+"."+attend$)
 6120FORL%=0TO4
 6130FORK%=1TO6
 6140FORJ%=1TO6
 6150INPUT#h%,att%(J%,K%,L%)
 6160NEXT
 6170NEXT
 6180NEXT
 6190CLOSE#h%
 6200ENDIF
 6210ENDPROC
 6220DEFFNyesno
 6230PROCzeromouse
 6240MOUSE RECTANGLE 959,12,240,46
 6250PROCmouse1
 6260MOUSE TO 1160,32
 6270VDU 5
 6280GCOL 0,0
 6290MOVE 896,44
 6300IFfrn% PRINT"Oui        Non" ELSEPRINT"Yes        No"
 6310REPEAT
 6320MOUSE mox%,moy%,but%
 6330IFmox%<1072 THEN
 6340GCOL 0,11
 6350RECTANGLEFILL 960,12,80,40
 6360GCOL 0,7
 6370RECTANGLEFILL 1120,12,80,40
 6380ELSE
 6390GCOL 0,7
 6400RECTANGLEFILL 960,12,80,40
 6410GCOL 0,11
 6420RECTANGLEFILL 1120,12,80,40
 6430ENDIF
 6440UNTIL but%>0 AND POINT(mox%,moy%)=11
 6450VDU 4
 6460OFF
 6470IFmox%<1072 =TRUE ELSE=FALSE
 6480DEFFNyesnodesk
 6490PROCzeromouse
 6500MOUSE RECTANGLE 959,12,240,46
 6510PROCmouse1
 6520MOUSE TO 1160,32
 6530VDU 5
 6540GCOL 0,0
 6550MOVE 896,44
 6560PRINT"Yes        No"
 6570REPEAT
 6580MOUSE mox%,moy%,but%
 6590IFmox%<1072 THEN
 6600GCOL 0,11
 6610RECTANGLEFILL 960,12,80,40
 6620GCOL 0,7
 6630RECTANGLEFILL 1120,12,80,40
 6640ELSE
 6650GCOL 0,7
 6660RECTANGLEFILL 960,12,80,40
 6670GCOL 0,11
 6680RECTANGLEFILL 1120,12,80,40
 6690ENDIF
 6700UNTIL but%>0 AND POINT(mox%,moy%)=11
 6710VDU 4
 6720OFF
 6730IFmox%<1072 =TRUE ELSE=FALSE
 6740DEFPROCdisplaydirectory
 6750SYS"ABC_Blank",15
 6760SYS"ABC_Colour",15
 6770OSCLI"DIR <Disc1$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)
 6780SYS"OS_GBPB",8,,cat%,&40,0 TO ,,,d%
 6790*DIR <Disc1$Dir>.SixGames
 6800VDU 5
 6810FORa%=0TO63
 6820x%=(a%>>4)*256+128
 6830y%=(a%AND&F)<<6
 6840GCOL 0,8
 6850RECTANGLEFILL x%,y%,224,40
 6860GCOL 0,11
 6870RECTANGLEFILL x%+224,y%,30,40
 6880GCOL 0,0
 6890RECTANGLE x%+224,y%,30,40
 6900NEXT
 6910a%=0
 6920c%=0
 6930d%=64-d%
 6940st%=cat%
 6950filename$()=""
 6960GCOL 0,0
 6970WHILE c%<d%
 6980t%=st%?((?st%)+1)
 6990st%?((?st%)+1)=&D
 7000a$=$(st%+1)
 7010st%+=1+(?st%)
 7020?st%=t%
 7030MOVE (a%>>4)*256+144,992-((a%AND&F)<<6)
 7040filename$(a%)=a$
 7050a$=FNstrip(a$)
 7060PRINT a$
 7070a%+=1
 7080c%+=1
 7090ENDWHILE
 7100VDU 4
 7110OFF
 7120SYS"ABC_Palette"
 7130ENDPROC
 7140DEFPROCgridcheck
 7150PROCdisplaydirectory
 7160lst%=0
 7170REPEAT
 7180MOUSE mox%,moy%,but%
 7190sqx%=(mox%-128)>>8
 7200IFsqx%>3:sqx%=3
 7210IFsqx%<0:sqx%=0
 7220sqy%=(1024-moy%)>>6
 7230IFsqy%>15:sqy%=15
 7240inx%=sqy%+sqx%*g%
 7250IFinx%>63:inx%=63
 7260IFinx%<>lst% THEN
 7270WAIT
 7280PROCsmall(lst%,11)
 7290PROCsmall(inx%,15)
 7300lst%=inx%
 7310ENDIF
 7320IFINKEY-113 k%=TRUE ELSEk%=FALSE
 7330UNTIL but%>0 OR k%
 7340a$=filename$(lst%)
 7350ENDPROC
 7360DEFPROCcurrent
 7370VDU 5
 7380GCOL 0,8
 7390RECTANGLEFILL 384,16,480,64
 7400GCOL 0,0
 7410RECTANGLE 384,16,480,64
 7420GCOL 0,14
 7430MOVE 400,60
 7440IFfrn% PRINT"Joueur actuel : "; ELSEPRINT"Current player : ";
 7450GCOL 0,0
 7460a$=FNstrip(attend$)
 7470IFfrn% THEN
 7480IFa$="" PRINT"Vide" ELSEPRINTa$
 7490ELSE
 7500IFa$="" PRINT"Empty" ELSEPRINTa$
 7510ENDIF
 7520VDU 4
 7530OFF
 7540ENDPROC
 7550DEFPROCaccess
 7560IFNOTINKEY-2 OR NOTINKEY-31:ENDPROC
 7570MOUSE OFF
 7580VDU 7
 7590SYS"ABC_Colour",15
 7600tru%=TRUE
 7610IFfrn% PROCforeignaccess ELSEPROCenglishaccess
 7620IFesc% OR NOTtru%:ENDPROC
 7630PROCconfilesave
 7640PROCback
 7650ENDPROC
 7660DEFPROCforeignaccess
 7670PROCmess("ENTRER L'ANCIEN NUMERO DE CODE D'ACCES",8)
 7680PROCinvis
 7690IFesc%:PROCback:ENDPROC
 7700J%=FNvalidatenumber(i$)
 7710IFNOTJ%:PROCwrong("CHIFFRES UNIQUEMENT"):tru%=FALSE:ENDPROC
 7720IFcod%<>VAL(i$):PROCwrong("FAUX CODE D'ACCES"):tru%=FALSE:ENDPROC
 7730PROCmess("INTRODUIRE LE NOUVEAU NUMERO DE CODE D'ACCES",8)
 7740PROCinvis
 7750IFesc%:PROCback:ENDPROC
 7760J%=FNvalidatenumber(i$)
 7770IFNOTJ%:PROCwrong("CHIFFRES UNIQUEMENT"):tru%=FALSE:ENDPROC
 7780first%=VAL(i$)
 7790PROCmess("ENTRER DE NOUVEAU POUR CONFIRMATION",8)
 7800PROCinvis
 7810IFesc%:PROCback:ENDPROC
 7820J%=FNvalidatenumber(i$)
 7830IFNOTJ%:PROCwrong("CHIFFRES UNIQUEMENT"):tru%=FALSE:ENDPROC
 7840second%=VAL(i$)
 7850IFfirst%<>second%:PROCwrong("CHIFFRES DIFFERENTS - RECOMMENCER"):tru%=FALSE:ENDPROC
 7860cod%=VALi$
 7870PROCmess("LE NUMERO DE CODE D'ACCES ACCEPTE",8)
 7880ENDPROC
 7890DEFPROCenglishaccess
 7900PROCmess("ENTER OLD ACCESS CODE NUMBER",8)
 7910PROCinvis
 7920IFesc%:PROCback:ENDPROC
 7930J%=FNvalidatenumber(i$)
 7940IFNOTJ%:PROCwrong("NUMBERS ONLY PLEASE"):tru%=FALSE:ENDPROC
 7950IFcod%<>VAL(i$):PROCwrong("INVALID ACCESS CODE"):tru%=FALSE:ENDPROC
 7960PROCmess("ENTER NEW ACCESS CODE NUMBER",8)
 7970PROCinvis
 7980IFesc%:PROCback:ENDPROC
 7990J%=FNvalidatenumber(i$)
 8000IFNOTJ%:PROCwrong("NUMBERS ONLY PLEASE"):tru%=FALSE:ENDPROC
 8010first%=VAL(i$)
 8020PROCmess("ENTER AGAIN TO CONFIRM",8)
 8030PROCinvis
 8040IFesc%:PROCback:ENDPROC
 8050J%=FNvalidatenumber(i$)
 8060IFNOTJ%:PROCwrong("NUMBERS ONLY PLEASE"):tru%=FALSE:ENDPROC
 8070second%=VAL(i$)
 8080IFfirst%<>second%:PROCwrong("DIFFERENT NUMBERS - TRY AGAIN"):tru%=FALSE:ENDPROC
 8090cod%=VALi$
 8100PROCmess("NEW ACCESS CODE NUMBER ACCEPTED",8)
 8110ENDPROC
 8120DEFPROCback
 8130IFsun%<11 sun%=11 ELSEsun%=0
 8140PROCmenu
 8150PROCmouse1
 8160ENDPROC
 8170DEFPROCwrong(a$)
 8180VDU 7
 8190PROCmess(a$,11)
 8200PROCdelay(150)
 8210PROCback
 8220ENDPROC
 8230DEFFNvalidatenumber(a$)
 8240IFa$="":=FALSE
 8250K%=TRUE
 8260FORJ%=1TO LEN(a$)
 8270IFMID$(a$,J%,1)<"0" OR MID$(a$,J%,1)>"9":K%=FALSE
 8280NEXT
 8290=K%
 8300DEFPROCinvis
 8310*FX21 0
 8320esc%=FALSE
 8330cnt%=0
 8340i$=""
 8350REPEAT
 8360REPEAT
 8370REPEAT
 8380k%=INKEY(1)
 8390UNTIL k%>0 AND k%<128
 8400IFk%=127 AND cnt%>0 THEN
 8410cnt%-=1
 8420i$=LEFT$(i$,cnt%)
 8430PROCmess(">"+STRING$(LEN(i$),"*")+"<",10)
 8440ENDIF
 8450UNTIL k%<>127
 8460IFk%<>13 AND cnt%<>4 THEN
 8470i$+=CHR$k%
 8480PROCmess(">"+STRING$(LEN(i$),"*")+"<",10)
 8490cnt%+=1
 8500ENDIF
 8510UNTIL k%=13 OR cnt%=4
 8520ENDPROC
 8530DEFPROClegal
 8540IFcod%=0:bad%=FALSE:esc%=FALSE:ENDPROC
 8550MOUSE OFF
 8560SYS"ABC_Colour",15
 8570IFfrn% PROCmess("ENTRER NUMERO DE CODE D'ACCES",11) ELSEPROCmess("ENTER ACCESS CODE NUMBER",11)
 8580PROCfrput
 8590IFcod%=VAL(i$) THEN
 8600IFfrn% PROCmess("LE NUMERO DE CODE D'ACCES ACCEPTE",8) ELSEPROCmess("ACCESS CODE NUMBER ACCEPTED",8)
 8610PROCdelay(100)
 8620bad%=FALSE
 8630ELSE
 8640bad%=TRUE
 8650ENDIF
 8660PROCmouse1
 8670ENDPROC
 8680DEFPROCfrput
 8690*FX21 0
 8700esc%=FALSE
 8710cnt%=0
 8720tot%=4
 8730i$=""
 8740REPEAT
 8750REPEAT
 8760REPEAT
 8770k%=INKEY(1)
 8780UNTIL k%=13 OR k%>31 AND k%<128
 8790IFk%=127 AND cnt%>0 THEN
 8800cnt%-=1
 8810i$=LEFT$(i$,cnt%)
 8820PROCmess(">"+STRING$(LEN(i$),"*")+"<",8)
 8830ENDIF
 8840UNTIL k%<>127
 8850IFk%<>13 AND cnt%<>tot% THEN
 8860IFcnt%=0 THEN
 8870IFCHR$(k%)>="a" AND CHR$(k%)<="z" i$=CHR$(k%-32) ELSEi$=CHR$(k%)
 8880ELSE
 8890IFCHR$(k%)>="A" AND CHR$(k%)<="Z" i$+=CHR$(k%+32) ELSEi$+=CHR$(k%)
 8900ENDIF
 8910PROCmess(">"+STRING$(LEN(i$),"*")+"<",8)
 8920cnt%+=1
 8930ENDIF
 8940UNTIL k%=13 OR cnt%=tot%
 8950ENDPROC
 8960DEFPROCpoint(a$,mos%)
 8970LOCAL wir%,par%,dat%
 8980DIM wir% 1088,par% 20,dat% 256
 8990h%=OPENIN(f$+a$)
 9000FORJ%=0TO32
 9010FORK%=0TO32
 9020wir%?(K%*32+J%)=BGET#h%
 9030NEXT
 9040NEXT
 9050CLOSE#h%
 9060!par%=&20080200
 9070par%?1=mos%
 9080par%!4=0
 9090par%!6=dat%
 9100mmo%=dat%
 9110FORJ%=32TO1STEPTRUE
 9120FORK%=0TO7
 9130FORL%=3TO0STEPTRUE
 9140val%=wir%?(J%*32+K%*4+L%)
 9150IFval%=&FF:par%?4=K%*4+L%:par%?5=31-J%:val%=0
 9160?mmo%=?mmo%<<2
 9170?mmo%+=val%
 9180NEXT
 9190mmo%+=1
 9200NEXT
 9210NEXT
 9220SYS"OS_Word",21,par%
 9230ENDPROC
 9240DEFPROCdesktop
 9250MOUSE OFF
 9260SYS"ABC_Blank",11
 9270PROCexitmessage
 9280PROCmess("Return to Desktop?",8)
 9290SYS"ABC_Palette"
 9300PROCmouse1
 9310k%=FNyesnodesk
 9320SYS"ABC_Colour",15
 9330sun%=10
 9340IFNOTk%:ENDPROC
 9350*FX20
 9360*CHANNELVOICE 1 WaveSynth-Beep
 9370*CHANNELVOICE 2 WaveSynth-Beep
 9380*CHANNELVOICE 3 WaveSynth-Beep
 9390*CHANNELVOICE 4 WaveSynth-Beep
 9400*WIPE ram:* ~C~V
 9410*RMKILL ABC
 9420*RMKILL Synsmajs
 9430*RMKILL Timer
 9440*RMKILL 10/10SoundGenerator
 9450*POINTER 1
 9460*SPEAKER ON
 9470VDU 20
 9480*DESKTOP
 9490DEFPROCwings(l$,x%,y%)
 9500SYS"ABC_UnpackSprite","wings",j%,x%,y%
 9510VDU 5
 9520GCOL 0,11
 9530MOVE (x%*2+298)-LEN(l$)*8,y%*4-40
 9540PRINTl$
 9550VDU 4
 9560OFF
 9570ENDPROC
 9580DEFPROCselect
 9590IFNOTFNarea(80,18,336,840) AND NOTFNarea(912,18,1168,840) THEN
 9600pre%=-1
 9610sly%=-1
 9620PROCrectangles
 9630ELSE
 9640sly%=(moy%-18)DIV280
 9650IFFNarea(912,18,1168,840):sly%+=3
 9660IFsly%<>pre% THEN
 9670PROCrectangles
 9680pre%=sly%
 9690GCOL 0,11
 9700WAIT
 9710IFsly%<3 RECTANGLE 80,sly%*280+16,256,256 ELSERECTANGLE 912,(sly%-3)*280+16,256,256
 9720ENDIF
 9730ENDIF
 9740IFbut%=0:ENDPROC
 9750CASE sly% OF
 9760WHEN 0:PROCrun("WordSearch")
 9770WHEN 1:PROCrun("Tower")
 9780WHEN 2:PROCrun("TheCop")
 9790WHEN 3:PROCrun("Stones")
 9800WHEN 4:PROCrun("Rescue")
 9810WHEN 5:PROCrun("LinkUp")
 9820ENDCASE
 9830PROCzeromouse
 9840IFsly%>-1:PROCmenu
 9850PROCmouse1
 9860ENDPROC
 9870DEFPROCcontents
 9880VDU 5
 9890FORJ%=1TO3
 9900SYS"ABC_UnpackSprite","intro"+STR$(J%),j%,48,274-J%*70
 9910SYS"ABC_UnpackSprite","intro"+STR$(J%+3),j%,464,274-J%*70
 9920NEXT
 9930IFfrn% RESTORE 10110 ELSERESTORE 10100
 9940FORJ%=1TO3
 9950READ a$,b$
 9960GCOL 0,7
 9970MOVE 96,J%*280-232
 9980PRINTa$
 9990MOVE 928,J%*280-232
10000PRINTb$
10010GCOL 0,0
10020MOVE 102,J%*280-228
10030PRINTa$
10040MOVE 934,J%*280-228
10050PRINTb$
10060NEXT
10070VDU 4
10080OFF
10090ENDPROC
10100DATA Word Search,Stones,Tower,Rescue,The Cop,Link Up
10110DATA Le Puzzle,La Bonne Route,La Tour,"La Fus�e",Le Flic,Le Jumelage
10120DEFPROCrectangles
10130GCOL 0,0
10140FORJ%=1TO3
10150RECTANGLE 80,J%*280-264,256,256
10160RECTANGLE 912,J%*280-264,256,256
10170NEXT
10180ENDPROC
10190DEFPROCachievediscdump
10200IFNOTINKEY-2:ENDPROC
10210IFNOTINKEY-82:ENDPROC
10220VDU 7
10230MOUSE OFF
10240LOCAL ERROR
10250SYS"ABC_Transfer",0,16,640,17
10260PROCinput(32,"adfs::0.$.AchieveSpr",FALSE,TRUE)
10270SYS"ABC_Restore"
10280IFesc% OR i$="":ENDPROC
10290VDU 24,0;112;1278;1008;
10300SYS"Hourglass_On"
10310OSCLI"SCREENSAVE "+i$
10320VDU 26
10330SYS"Hourglass_Smash"
10340ON ERROR LOCAL:PROCmistake
10350*DIR <Disc1$Dir>.SixGames
10360SYS"ABC_Restore"
10370MOUSE TO 640,512
10380PROCmouse1
10390ENDPROC
10400DEFPROCmistake
10410VDU 7
10420PROCmess("PLEASE INSERT DISC 2 INTO DRIVE AND PRESS RETURN",8)
10430REPEAT
10440UNTIL INKEY-74
10450ENDPROC
10460DEFPROCachieveprintdump
10470IFNOTINKEY-2:ENDPROC
10480IFNOTINKEY-56:ENDPROC
10490VDU 7
10500SYS"Hourglass_On"
10510RESTORE 1880
10520new%()=att%()
10530PROCprintpage(attend$)
10540PROCflush
10550SYS"Hourglass_Smash"
10560PROCmouse1
10570ENDPROC
10580DEFPROCallachieveprintdump
10590IFNOTINKEY-2:ENDPROC
10600IFNOTINKEY-102:ENDPROC
10610VDU 7
10620SYS"Hourglass_On"
10630PROCdisplaydirectory
10640PROCflush
10650SYS"Hourglass_Smash"
10660PROCmouse1
10670MOUSE RECTANGLE 0,0,1280,1024
10680files%()=FALSE
10690lst%=0
10700REPEAT
10710MOUSE mox%,moy%,but%
10720sqx%=(mox%-128)>>8
10730IFsqx%>3:sqx%=3
10740IFsqx%<0:sqx%=0
10750sqy%=(1024-moy%)>>6
10760IFsqy%>15:sqy%=15
10770inx%=sqy%+sqx%*g%
10780IFinx%>63:inx%=63
10790IFinx%<>lst% THEN
10800IFfiles%(lst%) PROCsmall(lst%,14) ELSEPROCsmall(lst%,11)
10810IFfiles%(inx%) PROCsmall(inx%,14) ELSEPROCsmall(inx%,15)
10820lst%=inx%
10830ENDIF
10840IFbut%=1 AND filename$(lst%)>"" THEN
10850files%(lst%)=NOTfiles%(lst%)
10860IFfiles%(lst%) PROCsmall(lst%,14) ELSEPROCsmall(lst%,11)
10870PROCzeromouse
10880ENDIF
10890IFINKEY-113 k%=TRUE ELSEk%=FALSE
10900UNTIL but%=4 OR k%
10910a$=filename$(lst%)
10920IFNOTk% THEN
10930SYS"Hourglass_On"
10940SYS"ABC_Colour",15
10950X%=0
10960esc%=FALSE
10970WHILE X%<64 AND NOTesc%
10980IFfiles%(X%) THEN
10990h%=OPENIN("<Disc1$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)+"."+filename$(X%))
11000FORL%=0TO4
11010FORK%=1TO6
11020FORJ%=1TO6
11030INPUT#h%,new%(J%,K%,L%)
11040NEXT
11050NEXT
11060NEXT
11070CLOSE#h%
11080PROCprintpage(filename$(X%))
11090ENDIF
11100X%+=1
11110ENDWHILE
11120SYS"Hourglass_Smash"
11130ENDIF
11140MOUSE RECTANGLE 128,116,1150,764
11150PROCachievecard
11160PROCzeromouse
11170ENDPROC
11180DEFPROCprintpage(name$)
11190LOCAL ERROR
11200ON ERROR LOCAL:VDU 6,3,7:esc%=TRUE:ENDPROC
11210VDU 2,21
11220PROCheader
11230a$=FNstrip(name$)
11240IFa$="":a$="Empty"
11250IFfrn% THEN
11260PROCprinter("Les r�sultats de "+a$)
11270PROCprinter("qui joue aux Jeux Dix sur Dix Fran�ais")
11280ELSE
11290PROCprinter("The achievements of "+a$)
11300PROCprinter("playing the 10 out of 10 French games")
11310ENDIF
11320PROCprinter("")
11330PROCprinter(FNdate)
11340PROCprinter("")
11350IFfrn% THEN
11360IFver% THEN
11370PROCprinter("Cat�gories Trait�"+STRING$(51," ")+"R�sultant")
11380ELSE
11390PROCprinter("Niveaux   Trait�"+STRING$(52," ")+"R�sultant")
11400ENDIF
11410PROCprinter("")
11420PROCprinter("LE FLIC")
11430PROCgamedetails(1)
11440PROCprinter("LA TOUR")
11450PROCgamedetails(2)
11460PROCprinter("LE PUZZLE")
11470PROCgamedetails(3)
11480PROCprinter("LE JUMELAGE")
11490PROCgamedetails(4)
11500PROCprinter("LA FUSEE")
11510PROCgamedetails(5)
11520PROCprinter("LA BONNE ROUTE")
11530PROCgamedetails(6)
11540PROCprinter("LEGENDE DES COULEURS DE REUSSITE:")
11550PROCprinter("")
11560PROCprinter("BLEU   = 100% (10 fois VERT)")
11570PROCprinter("VERT   = 100% (10 sur 10!)")
11580PROCprinter("JAUNE  = 50% ou plus")
11590PROCprinter("ROUGE  = Moins de 50%")
11600PROCprinter("-      = signifie que la cat�gorie n'a pas �t� trait�e")
11610ELSE
11620PROCprinter(typ$+"     Covering"+STRING$(50," ")+"Achievement")
11630PROCprinter("")
11640PROCprinter("THE COP")
11650PROCgamedetails(1)
11660PROCprinter("TOWER")
11670PROCgamedetails(2)
11680PROCprinter("WORD SEARCH")
11690PROCgamedetails(3)
11700PROCprinter("LINK UP")
11710PROCgamedetails(4)
11720PROCprinter("RESCUE")
11730PROCgamedetails(5)
11740PROCprinter("STONES")
11750PROCgamedetails(6)
11760PROCprinter("KEY TO ACHIEVEMENT COLOURS:")
11770PROCprinter("")
11780PROCprinter("BLUE   = 100% (10 times GREEN)")
11790PROCprinter("GREEN  = 100% (10 out of 10!)")
11800PROCprinter("YELLOW = 50% or over")
11810PROCprinter("RED    = Under 50%")
11820PROCprinter("-      = means the grade has not been tried")
11830ENDIF
11840WHILE pnt%<pap%
11850PRINT
11860pnt%+=1
11870ENDWHILE
11880PROCfooter
11890VDU 6,3
11900ENDPROC
11910DEFPROCgamedetails(num%)
11920FORJ%=1TO6
11930b$=info$(num%,J%)
11940IFnig% a$=b$ ELSEa$=MID$(b$,INSTR(b$," ")+1)
11950a$=STR$(J%)+" "+a$
11960a$+=STRING$(68-LEN(a$)," ")
11970IFfrn% THEN
11980CASE new%(num%,J%,0) OF
11990WHEN 0:a$+="-"
12000WHEN 1:a$+="ROUGE"
12010WHEN 2:a$+="JAUNE"
12020WHEN 3,4,5,6,7,8,9,10,11:a$+="VERT"
12030OTHERWISE:a$+="BLEU"
12040ENDCASE
12050ELSE
12060CASE new%(num%,J%,0) OF
12070WHEN 0:a$+="-"
12080WHEN 1:a$+="RED"
12090WHEN 2:a$+="YELLOW"
12100WHEN 3,4,5,6,7,8,9,10,11:a$+="GREEN"
12110OTHERWISE:a$+="BLUE"
12120ENDCASE
12130ENDIF
12140PROCprinter(a$)
12150NEXT
12160PROCprinter("")
12170ENDPROC
12180DEFPROCheader
12190pnt%=0
12200IFhed%=0:ENDPROC
12210FORW%=1TO hed%
12220PRINT
12230NEXT
12240ENDPROC
12250DEFPROCfooter
12260IFfut%=0:ENDPROC
12270FORW%=1TO fut%
12280PRINT
12290NEXT
12300ENDPROC
12310DEFPROCprinter(j$)
12320PRINTj$
12330pnt%+=1
12340IFpnt%=pap% THEN
12350PROCfooter
12360PROCheader
12370ENDIF
12380ENDPROC
12390DEFFNdate
12400IFfrn% RESTORE 12500 ELSERESTORE 12480
12410fnd%=FALSE
12420WHILE NOTfnd%
12430READ p$,n$
12440IFINSTR(TIME$,p$):fnd%=TRUE
12450ENDWHILE
12460z$="Date: "
12470=z$+MID$(TIME$,5,3)+n$+MID$(TIME$,11,5)
12480DATA Jan,January,Feb,February,Mar,March,Apr,April,May,May,Jun,June,Jul
12490DATA July,Aug,August,Sep,September,Oct,October,Nov,November,Dec,December
12500DATA Jan,Janvier,Feb,"F�vrier",Mar,Mars,Apr,Avril,May,Mai,Jun,Juin,Jul
12510DATA Juillet,Aug,"Ao�t",Sep,Septembre,Oct,Octobre,Nov,Novembre,Dec,"D�cembre"
12520DEFPROCflush
12530*FX21 9
12540ENDPROC
12550DEFFNstrip(str$)
12560WHILE INSTR(str$,"_")>0
12570MID$(str$,INSTR(str$,"_"))=" "
12580ENDWHILE
12590=str$
12600DEFPROCinput(tot%,x$,cap%,fil%)
12610*FX21 0
12620esc%=FALSE
12630cnt%=LEN(x$)
12640i$=x$
12650IFfil% AND NOTfrn%:y$="filename: >" ELSEy$=">"
12660IFfil% AND frn%:y$="titre du dossier: >" ELSEy$=">"
12670PROCmess(y$+i$+"<",8)
12680REPEAT
12690REPEAT
12700REPEAT
12710k%=INKEY(1)
12720UNTIL k%=13 OR k%>31 AND k%<128
12730IFk%=127 AND cnt%>0 THEN
12740cnt%-=1
12750i$=LEFT$(i$,cnt%)
12760PROCmess(y$+i$+"<",8)
12770ENDIF
12780UNTIL k%<>127
12790IFk%<>13 AND cnt%<>tot% THEN
12800IFcap% THEN
12810IFcnt%=0 THEN
12820IFCHR$(k%)>="a" AND CHR$(k%)<="z" i$=CHR$(k%-32) ELSEi$=CHR$(k%)
12830ELSE
12840IFCHR$(k%)>="A" AND CHR$(k%)<="Z" i$+=CHR$(k%+32) ELSEi$+=CHR$(k%)
12850ENDIF
12860ELSE
12870i$+=CHR$(k%)
12880ENDIF
12890PROCmess(y$+i$+"<",8)
12900cnt%+=1
12910ENDIF
12920IFk%<>13 AND cnt%=tot%:VDU7
12930UNTIL k%=13
12940ENDPROC
12950DEFPROCexitmessage
12960SYS"ABC_Colour",11
12970RESTORE 13070
12980READ a$
12990Y%=240
13000WHILE a$<>"end"
13010SYS"ABC_PryntString",a$,34,Y%,1,7
13020SYS"ABC_PryntString",a$,32,Y%+1,1,0
13030IFa$>"" Y%-=18 ELSEY%-=12
13040READ a$
13050ENDWHILE
13060ENDPROC
13070DATA Also available or coming soon
13080DATA "for Acorn 32-bit, IBM PC/compatibles"
13090DATA and Commodore Amiga ...
13100DATA
13110DATA English            French
13120DATA German             Dinosaurs
13130DATA Astronomy          Maths (Statistics)
13140DATA Maths (Number)     Maths (Algebra)
13150DATA Early Essentials   Junior Essentials
13160DATA
13170DATA Contact your dealer or
13180DATA ring (0742) 780370 for details
13190DATA end
13200DEFFNinitialcompressed(s$)
13210h%=OPENIN(f$+s$)
13220len%=EXT#h%
13230CLOSE#h%
13240DIM z% len%
13250OSCLI"LOAD "+f$+s$+" "+STR$~(z%)
13260=z%
13270DEFPROCconfigure
13280IFNOTINKEY-2 OR NOTINKEY-1 OR NOTINKEY-83:ENDPROC
13290MOUSE OFF
13300SYS"ABC_Blank",3
13310SYS"ABC_Colour",3
13320PROCvaliddirectories
13330SYS"ABC_UnpackSprite","bar",j%,180,242
13340SYS"ABC_UnpackSprite","exit",j%,454,18
13350COLOUR 11
13360COLOUR 130
13370PRINTTAB(25,2)"10 out of 10 CUSTOMISATION"
13380COLOUR 7
13390old%=cla%
13400RESTORE 15340
13410READ a$,K%
13420J%=0
13430WHILE a$<>"end"
13440SYS"ABC_UnpackSprite","bar",j%,180,226-J%*16
13450PRINTTAB(25,J%*2+4)a$
13460IFK%=-1 THEN
13470SYS"ABC_UnpackSprite","arup",j%,482,226-J%*16
13480SYS"ABC_UnpackSprite","ardn",j%,510,226-J%*16
13490ENDIF
13500IFK%=-2 SYS"ABC_UnpackSprite","default",j%,454,226-J%*16 ELSEPROCbuttonstatus(J%,226-J%*16)
13510J%+=1
13520READ a$,K%
13530ENDWHILE
13540SYS"ABC_Palette"
13550MOUSE RECTANGLE 904,32,160,874
13560PROCmouse1
13570end%=FALSE
13580WHILE NOTend%
13590REPEAT
13600MOUSE mox%,moy%,but%
13610UNTIL but%>0
13620IFbut%=4 AND POINT(mox%,moy%)<>3:PROCaction
13630ENDWHILE
13640PROCsavenewconfigure
13650IFold%<>cla%:PROCsetempty
13660IFsun%<11 sun%=11 ELSEsun%=0
13670PROCmenu
13680ENDPROC
13690DEFPROCaction
13700noy%=(906-moy%)>>6
13710nox%=(mox%-906)DIV56
13720CASE noy% OF
13730WHEN 0
13740frn%=NOTfrn%
13750PROCbuttonstatus(noy%,226-noy%*16)
13760VDU 7
13770WHEN 1
13780rat%=NOTrat%
13790PROCbuttonstatus(noy%,226-noy%*16)
13800VDU 7
13810WHEN 2
13820IFver% THEN
13830nig%=NOTnig%
13840PROCbuttonstatus(noy%,226-noy%*16)
13850VDU 7
13860ENDIF
13870WHEN 3
13880sds%=NOTsds%
13890PROCbuttonstatus(noy%,226-noy%*16)
13900IFsds% OSCLI"SPEAKER ON" ELSEOSCLI"SPEAKER OFF"
13910VDU 7
13920WHEN 4
13930IFver% THEN
13940ver%=FALSE
13950nig%=FALSE
13960PROCbuttonstatus(noy%-2,226-noy%*16+32)
13970PROCbuttonstatus(noy%,226-noy%*16)
13980PROCbuttonstatus(noy%+1,226-noy%*16-16)
13990VDU 7
14000ENDIF
14010WHEN 5
14020IFNOTver% THEN
14030ver%=TRUE
14040nig%=TRUE
14050PROCbuttonstatus(noy%-3,226-noy%*16+48)
14060PROCbuttonstatus(noy%,226-noy%*16)
14070PROCbuttonstatus(noy%-1,226-noy%*16+16)
14080VDU 7
14090ENDIF
14100WHEN 6
14110IFnox%=1 THEN
14120grd%+=1
14130IFgrd%=7:grd%=1
14140PROCbuttonstatus(noy%,226-noy%*16)
14150VDU 7
14160ENDIF
14170IFnox%=2 THEN
14180grd%-=1
14190IFgrd%=0:grd%=6
14200PROCbuttonstatus(noy%,226-noy%*16)
14210VDU 7
14220ENDIF
14230WHEN 7
14240IFnox%=1 THEN
14250cla%+=1
14260IFcla%=65:cla%=1
14270PROCbuttonstatus(noy%,226-noy%*16)
14280VDU 7
14290ENDIF
14300IFnox%=2 THEN
14310cla%-=1
14320IFcla%=0:cla%=64
14330PROCbuttonstatus(noy%,226-noy%*16)
14340VDU 7
14350ENDIF
14360WHEN 8
14370IFnox%=1 THEN
14380hed%+=1
14390IFhed%=8:hed%=0
14400PROCbuttonstatus(noy%,226-noy%*16)
14410VDU 7
14420ENDIF
14430IFnox%=2 THEN
14440hed%-=1
14450IFhed%<0:hed%=7
14460PROCbuttonstatus(noy%,226-noy%*16)
14470VDU 7
14480ENDIF
14490WHEN 9
14500IFnox%=1 THEN
14510fut%+=1
14520IFfut%=8:fut%=0
14530PROCbuttonstatus(noy%,226-noy%*16)
14540VDU 7
14550ENDIF
14560IFnox%=2 THEN
14570fut%-=1
14580IFfut%<0:fut%=7
14590PROCbuttonstatus(noy%,226-noy%*16)
14600VDU 7
14610ENDIF
14620WHEN 10
14630IFnox%=1 THEN
14640pap%+=1
14650IFpap%=81:pap%=16
14660PROCbuttonstatus(noy%,226-noy%*16)
14670VDU 7
14680ENDIF
14690IFnox%=2 THEN
14700pap%-=1
14710IFpap%=15:pap%=80
14720PROCbuttonstatus(noy%,226-noy%*16)
14730VDU 7
14740ENDIF
14750WHEN 11
14760pix%+=1
14770IFpix%=4:pix%=0
14780PROCbuttonstatus(noy%,226-noy%*16)
14790VDU 7
14800WHEN 12
14810SYS"ABC_Blank",3
14820*SPEAKER ON
14830VDU 7
14840rat%=FALSE
14850nig%=TRUE
14860sds%=TRUE
14870ver%=TRUE
14880grd%=1
14890cla%=1
14900hed%=1
14910fut%=1
14920pap%=64
14930pix%=0
14940frn%=FALSE
14950FORJ%=0TO11
14960PROCbuttonstatus(J%,226-J%*16)
14970NEXT
14980SYS"ABC_Palette"
14990WHEN 13:end%=TRUE
15000ENDCASE
15010PROCzeromouse
15020ENDPROC
15030DEFPROCsavenewconfigure
15040MOUSE OFF
15050SYS"ABC_Blank",3
15060SYS"ABC_Colour",3
15070IFNOTdirectory%(cla%):PROCcreatedirectory
15080OSCLI"DIR <Disc1$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)
15090IFver% typ$="Grade" ELSEtyp$="Level"
15100PROCconfilesave
15110*DIR <Disc1$Dir>.SixGames
15120ENDPROC
15130DEFPROCbuttonstatus(num%,ysc%)
15140yyy%=ysc%-2
15150WAIT
15160IFnum%=4 OR num%=5 SYS"ABC_UnpackSprite","radiooff",j%,454,ysc% ELSESYS"ABC_UnpackSprite","optoff",j%,454,ysc%
15170CASE num% OF
15180WHEN 0:IFfrn%:SYS"ABC_UnpackSprite","opton",j%,454,ysc%
15190WHEN 1:IFrat%:SYS"ABC_UnpackSprite","opton",j%,454,ysc%
15200WHEN 2:IFnig%:SYS"ABC_UnpackSprite","opton",j%,454,ysc%
15210WHEN 3:IFsds%:SYS"ABC_UnpackSprite","opton",j%,454,ysc%
15220WHEN 4:IFNOTver%:SYS"ABC_UnpackSprite","radioon",j%,454,ysc%
15230WHEN 5:IFver%:SYS"ABC_UnpackSprite","radioon",j%,454,ysc%
15240WHEN 6:SYS"ABC_PryntString",STR$(grd%),462,yyy%,0,9
15250WHEN 7
15260IFdirectory%(cla%) cul%=13 ELSEcul%=11
15270IFcla%>9 SYS"ABC_PryntString",STR$(cla%),458,yyy%,0,cul% ELSESYS"ABC_PryntString",STR$(cla%),462,yyy%,0,cul%
15280WHEN 8:SYS"ABC_PryntString",STR$(hed%),462,yyy%,0,11
15290WHEN 9:SYS"ABC_PryntString",STR$(fut%),462,yyy%,0,11
15300WHEN 10:SYS"ABC_PryntString",STR$(pap%),458,yyy%,0,11
15310WHEN 11:IFpix%=0 SYS"ABC_PryntString","A",462,yyy%,0,11 ELSESYS"ABC_PryntString",STR$(pix%),462,yyy%,0,6
15320ENDCASE
15330ENDPROC
15340DATA French Environment,0,Ratings suppressed,0
15350DATA National curriculum numbers,0,Sound,0
15360DATA Level,0,Grade,0,Overall skill,-1,Class number,-1,Top space,-1
15370DATA Bottom space,-1,Paper length,-1,Graphics selection,0,Default,-2
15380DATA end,0
15390DEFPROCvaliddirectories
15400OSCLI"DIR <Disc1$Dir>.SixGames.Achieve"
15410SYS"OS_GBPB",8,,cat%,&40,0 TO ,,,d%
15420*DIR <Disc1$Dir>.SixGames
15430c%=0
15440d%=64-d%
15450st%=cat%
15460directory%()=FALSE
15470WHILE c%<d%
15480t%=st%?((?st%)+1)
15490st%?((?st%)+1)=&D
15500a$=$(st%+1)
15510st%+=1+(?st%)
15520?st%=t%
15530directory%(VAL(MID$(a$,8)))=TRUE
15540c%+=1
15550ENDWHILE
15560ENDPROC
15570DEFPROCcreatedirectory
15580OSCLI"CDIR <Disc1$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)
15590PROCsetempty
15600ENDPROC
15610DEFPROCsetempty
15620attend$=""
15630PROCconfilesave
15640att%()=0
15650ENDPROC
15660DEFFNleave
15670MOUSE mox%,moy%,but%
15680IFINKEY-113 OR INKEY-99 OR INKEY-74 OR but%>0 ELSE=FALSE
15690REPEAT
15700MOUSE mox%,moy%,but%
15710UNTIL NOTINKEY-113 AND NOTINKEY-99 AND NOTINKEY-74 AND but%=0
15720*FX21 9
15730=TRUE
15740DEFPROCnewcard(t$,sdx%,sdy%)
15750VDU 5
15760GCOL 0,5
15770RECTANGLEFILL 0,112,128,sdy%*64-64
15780RECTANGLEFILL 128,112+sdy%*64-64,sdx%*192-192,64
15790GCOL 0,8
15800RECTANGLEFILL 0,112+sdy%*64-64,128,64
15810GCOL 0,0
15820IFsdx%*160+160>1279 sxe%=1278 ELSEsxe%=sdx%*160+160
15830RECTANGLE 0,112,sxe%,sdy%*64
15840GCOL 0,13
15850MOVE 64,112+sdy%*64+64
15860PLOT 0,LEN(t$)*g%,0
15870PLOT 85,0,112+sdy%*64
15880PLOT 81,128+LEN(t$)*g%,0
15890GCOL 0,0
15900MOVE 0,112+sdy%*64
15910PLOT 1,64,64
15920PLOT 1,LEN(t$)*g%,0
15930PLOT 1,64,-64
15940PLOT 1,-LEN(t$)*g%-128,0
15950MOVE 64,112+sdy%*64+44
15960PRINTt$
15970FORJ%=0TO sdx%-1
15980MOVE J%*192+128,112
15990PLOT 1,0,sdy%*64
16000NEXT
16010FORJ%=0TO sdy%-1 STEP2
16020MOVE 0,112+J%*64
16030PLOT 1,sdx%*192+192,0
16040NEXT
16050VDU 4
16060OFF
16070ENDPROC
16080DEFPROCfillachieve
16090VDU 5
16100IFfrn% RESTORE 16620 ELSERESTORE 16610
16110FORK%=0TO5
16120READ t$
16130MOVE (K%*192+224)-LEN(t$)*8,924
16140PRINTt$
16150NEXT
16160FORK%=1TO6
16170SYS"ABC_UnpackSprite",STR$(K%),j%,24,244-K%*32
16180FORJ%=1TO6
16190fax%=J%*192-62
16200fay%=884-K%*128
16210PROCcolour(att%(J%,K%,0))
16220IFJ%=6 RECTANGLEFILL fax%,fay%,186,120 ELSERECTANGLEFILL fax%,fay%,188,120
16230IFnig% THEN
16240a$="LoA "+ncl$(K%)
16250xsc%=fax%+96-LEN(a$)*8
16260GCOL 0,7
16270MOVE xsc%,fay%+92
16280PRINTa$
16290GCOL 0,0
16300MOVE xsc%,fay%+96
16310PRINTa$
16320ENDIF
16330IFatt%(J%,K%,0)<3 THEN
16340xsc%=fax%+40
16350FORL%=1TO4
16360PROCcolour(att%(J%,K%,L%))
16370RECTANGLEFILL xsc%-6,fay%+8,30,40
16380GCOL 0,7
16390MOVE xsc%,fay%+36
16400PRINTCHR$(96+L%)
16410GCOL 0,0
16420MOVE xsc%,fay%+40
16430PRINTCHR$(96+L%)
16440xsc%+=32
16450NEXT
16460ENDIF
16470NEXT
16480NEXT
16490VDU 4
16500OFF
16510ENDPROC
16520DEFPROCcolour(val%)
16530CASE val% OF
16540WHEN 0:GCOL 0,7
16550WHEN 1:GCOL 0,11
16560WHEN 2:GCOL 0,14
16570WHEN 3,4,5,6,7,8,9,10,11:GCOL 0,10
16580OTHERWISE:GCOL 0,15
16590ENDCASE
16600ENDPROC
16610DATA The Cop,Tower,Word Search,Link Up,Rescue,Stones
16620DATA Le Flic,La Tour,Le Puzzle,Le Jumelage,"La Fus�e",Bonne Route
16630DEFPROCzeromouse
16640REPEAT
16650MOUSE mox%,moy%,but%
16660UNTIL but%=0
16670ENDPROC
16680DEFPROCerror
16690LOCAL ERROR
16700VDU 3,26,7
16710*CLOSE
16720SYS"Hourglass_Smash"
16730MOUSE OFF
16740SYS"ABC_Colour",15
16750SYS"ABC_Palette"
16760IFERR>&107FF AND ERR<&10900 THEN
16770PROCmess("FILING SYSTEM REPORTS ERROR : "+REPORT$,11)
16780PROCdelay(150)
16790VDU 7
16800PROCmess("PLEASE CHECK DISC IN DRIVE AND NOT WRITE PROTECTED THEN PRESS RETURN",11)
16810REPEAT
16820UNTIL INKEY-74
16830ENDIF
16840ON ERROR LOCAL GOTO 16700
16850PROCconfilesave
16860*DIR <Disc1$Dir>.SixGames
16870RESTORE ERROR
16880SYS"ABC_Colour",15
16890RUN
16900ENDPROC
16910DEFPROCassemble
16920DIM asm% 160
16930SYS"ABC_VideoAddress" TO vid%
16940FORA%=0TO2STEP2
16950P%=asm%
16960[OPTA%
16970.Carousel
16980MOV R0,#19:SWI "XOS_Byte":LDR R12,[R9]:LDR R0,[R12]:LDR R1,men:ADD R0,R1,R0:MOV R2,#&48
16990.rectangle
17000LDRB R1,[R0,#&1]:STRB R1,[R0]:LDRB R1,[R0,#&141]:STRB R1,[R0,#&140]
17010LDRB R1,[R0,#&281]:STRB R1,[R0,#&280]:LDRB R1,[R0,#&3C1]:STRB R1,[R0,#&3C0]
17020LDRB R1,[R0,#&501]:STRB R1,[R0,#&500]:LDRB R1,[R0,#&641]:STRB R1,[R0,#&640]
17030LDRB R1,[R0,#&781]:STRB R1,[R0,#&780]:LDRB R1,[R0,#&8C1]:STRB R1,[R0,#&8C0]
17040LDRB R1,[R0,#&A01]:STRB R1,[R0,#&A00]
17050ADD R0,R0,#&1:SUBS R2,R2,#&1:BNE rectangle:MOV R15,R14
17060.men EQUD vid%+&3624
17070]
17080NEXT
17090ENDPROC
17100DEFPROClongmenu
17110IFbox%<>omy% THEN
17120VDU 5
17130GCOL 0,8
17140WAIT
17150RECTANGLEFILL 400,112+omy%*64,288,32
17160IFomy%<6 GCOL 0,14 ELSEGCOL 0,0
17170MOVE 400,140+omy%*64
17180PRINTLEFT$(mnu$(11-omy%),17)
17190omy%=box%
17200VDU 4
17210OFF
17220inj%=72
17230txt%=LEN(mnu$(11-omy%))
17240d$=mnu$(11-omy%)
17250ENDIF
17260IFtxt%>17 THEN
17270par%=(11-box%)*&1400
17280CALL Carousel,par%
17290IFinj%MOD4=0:PROCmenuchar
17300inj%+=1
17310ENDIF
17320ENDPROC
17330DEFPROCmenuchar
17340IF(inj%>>2)>txt%+8:inj%=4
17350IF(inj%>>2)>txt%:ENDPROC
17360IFomy%<6 col%=14 ELSEcol%=0
17370SYS"ABC_PryntString",MID$(d$,inj%>>2,1),336,36+omy%*16,0,col%
17380ENDPROC
17390DEFPROCtidy
17400IFbox%=omy%:ENDPROC
17410VDU 5
17420GCOL 0,8
17430WAIT
17440RECTANGLEFILL 400,112+omy%*64,288,32
17450IFomy%<6 GCOL 0,14 ELSEGCOL 0,0
17460MOVE 400,140+omy%*64
17470PRINTLEFT$(mnu$(11-omy%),17)
17480omy%=box%
17490VDU 4
17500OFF
17510ENDPROC
17520DEFPROCtrap
17530MOUSEOFF
17540VDU26
17550*CLOSE
17560ENDPROC

� ><Disc1$Dir>.Menu
 �:�=17 �trap:�T|@ ��error
��<>12:�12:�
(�initial
2
�assemble
<	�menu
F�
P�mouseilluminate
Z�select
d�access
n�configure
x� �
�
��initial
�ș"ABC_VideoAddress"
�ș"Hourglass_On"
�ȗ ȓ 0,0,1280,1024
�J� att%(6,6,4),new%(6,6,4),info$(6,6),sub$(6,6,4),filename$(64),six$(6)
�:� ncl$(6),mnu$(11),directory%(64),files%(64),cat% &400
�h%=�("ram:FactFile")
��J%=1�6
��K%=1�6
��#h%,info$(J%,K%)
��
��
��#h%

@%  =0

box%=0
g%  =16
"pre%=-1
,
sun%=0
6 f$  ="<Disc1$Dir>.SixGames."
@&j%  =�initialcompressed("Numbers")
J�loaddetails
T
� �TRB
^�J%=1�6
h�K%=1�6
r�L%=1�4
|� a$
�sub$(J%,K%,L%)=a$
��
��
��
��J%=1�6
�� a$
�ncl$(J%)=a$
��
�ș"Hourglass_Smash"
��point("Ten",1)
�Ƞ 4
�ȡ 1,"StringLib-Pluck"
�
�flush
�
7� fruit/veg,drinks and baker's,delicatessan,general
5� in grocer's,in grocer's,in delicatessan,general
&E� food shopping,restaurant/cafe,clothes shopping,present shopping
0k� "avoir, �tre present tense",regular 'er' verb aimer,vouloirs,regular 're' 'ir' verbs vendre and finir
:;� food/dishes,shops and services,food items,restaurants
D�� apologising and excuses,"complaints, problems and disapproval","likes, dislikes, voicing anger and exasperation","inviting, refusing and forbidding"
N!� sports,sports,music,hobbies
X%� sports,music,pastimes,going out
b%� sports,music,pastimes,going out
l>� "faire, aller","pouvoir, devoir",regular 'er',reflexives
vT� direct object pronouns,indirect object pronouns,'y' and 'en',emphatic pronouns
�H� perfect tense,imperfect tense,pluperfect tense,past historic tense
�2� female relatives,male relatives,pets,colours
�F� parts of the body,features/face,illness/health,special occasions
�M� physical description,personality,family status and religion,nationality
�a� family and special occasions,"illness, health and diet",finding opposites,finding opposites
�+� adjectives,adjectives,adverbs,adverbs
�M� find the noun,find the verb,find the adjective,find the past participle
�3� places in town,places in town,furniture,shops
�V� "whole hours, half hours and quarter past",all times,24 hour clock,24 hour clock
�?� giving directions,giving directions,station signs,weather
�U� geography of France,geography of France,geography of France,geography of France
�C� regular verbs,irregular verbs,irregular verbs,irregular verbs
�� slang,slang,idioms,idioms
K� school subjects,classroom objects,school facilities,classroom objects
�� school subjects - le la l' les,classroom objects - un une des,school facilities - le la l' les,classroom objects - un une des
0� mon ma mes,ton ta tes,son sa ses,notre nos
 O� school subjects/rooms,jobs and careers,classroom objects,jobs and careers
*U� future plans,future plans,future plans (infinitives),future plans (infinitives)
4F� infinitives,relative pronouns qui que,negatives,after having ...
>4� days,months,numbers 1-20,numbers in tens 0-100
H5� countries,accommodation,transport,holiday items
R+� weather,hotel,campsite,tourist office
\�� perfect tense with 'avoir' regular,perfect tense with 'avoir' irregular,"perfect tense with '�tre'",perfect tense with reflexive verbs
fF� holidays past,holidays past,post cards,plans for future holidays
pJ� tourist office,booking accomodation,holiday complaints,lost property
z� 1,2/3,3/4,5/6,6/7,8/9/10
���mouse1
�ȗ � 1,255,255,0
�ȗ � 2,255,0,0
�ȗ � 3,192,192,192
�
ȗ � 1
��
�ݤarea(x1%,y1%,x2%,y2%)
��mox%<x1% � mox%>x2%:=�
��moy%<y1% � moy%>y2%:=�
�=�
���mouseilluminate
�ȗ mox%,moy%,but%
�box%=(moy%-100)>>6
�box%<0:box%=0
�box%>11:box%=11
8�box%<>sun%:Ȗ:�sqr(sun%,11):�sqr(box%,15):sun%=box%
$笤area(704,104,864,868) �
.�sqr(box%,11)
8
�box%<5 �
Bbox%=11:sun%=10
L�
Vbox%=0:sun%=1
`�
j	�tidy
t�
~�frn%:�longmenu
��
�'�but%=0 � ��area(704,104,864,868):�
�� 7
�
Ȏ box% �
�� 0 :�desktop
�� 1 :�printcertificate
�� 2 :�delete
�� 3 :�create
�� 4 :�load
�� 5 :�viewachieve
�� 6 :�run("Stones")
�� 7 :�run("Rescue")
� 8 :�run("LinkUp")

� 9 :�run("WordSearch")
� 10:�run("Tower")
� 11:�run("TheCop")
(�
2�sun%<11 sun%=11 �sun%=0
<�zeromouse
F	�menu
P�
Z��run(game$)
dȗ �
nș"Hourglass_On"
xș"ABC_Blank",15
�ș"ABC_Colour",15
��confilesave
�� f$+game$
��
���sqr(wch%,col%)
�� 0,col%
�ȓȐ 706,wch%*64+100,156,58
��
�
��menu
�ȗ �
�ȗ � 640,512
�ș"ABC_Blank",15
�ș"ABC_Colour",15
inj%=72

omy%=1

txt%=1
"	d$=""
,J�frn% �card("FRANCAIS MENU",24,6,2,12) ��card("FRENCH MENU",24,6,2,12)
6
�fillmenu
@�current
J�rectangles
T
�contents
^ș"ABC_Palette"
hȗ ȓ 0,0,1280,1024
rȗ � 640,512
|�mouse1
��
���fillmenu
�� 5
�	� 0,0
��frn% � �DvG �� �DXG
��J%=0�5
�� s$
�� 400,844-J%*64
��frn% �s$,17) ��s$
�mnu$(J%)=s$
��
�
� 0,14
��J%=6�11
� s$
� 400,844-J%*64
�frn% �s$,17) ��s$
&mnu$(J%)=s$
0�
:� 4
D�
N�
X5� The Cop,Tower,Word Search,Link Up,Rescue,Stones
b?� Player information,Change player,New player,Remove player
l� Print certificate,Quit
vE� Le Flic,La Tour,Le Puzzle,Le Jumelage,"La Fus�e",La Bonne Route
�W� Information pour les joueur,Changement de joueur,Nouveau joueur,Effacer le joueur
�$� Imprimer le certificat,Quitter
���achievecard
�ȗ �
�ș"ABC_Blank",15
�ș"ABC_Colour",15
�a$=�strip(attend$)
��a$="" �
��frn% a$="Vide" �a$="Empty"
��
�{�frn% �newcard(a$+" : Grille d'Evaluation 10/10 Fran�ais",8,13) ��newcard(a$+" : Achievement Record 10/10 French",8,13)
��fillachieve
�ȗ � 640,512
ș"ABC_Palette"
�mouse1

p$="X"
 
oxx%=0
*
oyy%=0
4
ozz%=0
>*FX21 0
H�
R��viewachieve
\ȗ ȓ 128,116,1150,764
f�achievecard
p�
zȗ mox%,moy%,but%
�cxx%=(mox%-128)/192+1
�cyy%=(moy%-116)/128+1
�
czz%=0
�xsc%=cxx%*192-30
�ysc%=cyy%*128
�cyy%=7-cyy%
�R�area(xsc%,ysc%,xsc%+126,ysc%+40) � att%(cxx%,cyy%,0)<3:czz%=(mox%-xsc%)/32+1
�]�cxx%<>oxx% � cyy%<>oyy% � czz%<>ozz%:�information(info$(cxx%,cyy%),sub$(cxx%,cyy%,czz%))
��achievediscdump
��achieveprintdump
��allachieveprintdump
�� �leave
��
	��information(t$,u$)
	�u$>"":t$+=" ("+u$+")"
	%�nig%:t$="LoA "+ncl$(cyy%)+" "+t$
	$
oxx%=cxx%
	.
oyy%=cyy%
	8
ozz%=czz%
	B�p$=t$:�
	L	p$=t$
	V�mess(t$,11)
	`�
	j"��card(t$,tax%,tay%,sdx%,sdy%)
	t� 5
	~	� 0,8
	�-ȓȐ tax%*g%,tay%*g%,sdx%*160+160,sdy%*64
	�
� 0,11
	�1ȓȐ tax%*g%+320,tay%*g%,sdx%*160-162,sdy%*64
	�	� 0,0
	�3�sdx%*160+160>1279 sxe%=1278 �sxe%=sdx%*160+160
	�#ȓ tax%*g%,tay%*g%,sxe%,sdy%*64
	�
� 0,13
	�#� tax%*g%+64,tay%*g%+sdy%*64+64
	�� 0,�(t$)*g%,0
	� � 85,tax%*g%,tay%*g%+sdy%*64
	�� 81,128+�(t$)*g%,0
	�	� 0,0
� tax%*g%,tay%*g%+sdy%*64


� 1,64,64
� 1,�(t$)*g%,0
� 1,64,-64
(#� tax%*g%+64,tay%*g%+sdy%*64+44
2�t$
<�J%=1� sdx%
F � tax%*g%+J%*160+160,tay%*g%
P� 1,0,sdy%*64
Z�
d�J%=1� sdy%
n� tax%*g%,tay%*g%+J%*64
x� 1,sdx%*160+160,0
��
�� 4
��
��
���cent(t$,tay%)
��41-�(t$)�2,tay%)t$;
��
���mess(t$,col%)
�� 0,col%
�� 5
�Ȗ
�ȓȐ 0,0,1278,64
�	� 0,0
ȓ 0,0,1278,64
� 640-�(t$)*8,44
�t$
"� 4
,�
6�
@��printcertificate
Jș"ABC_Colour",15
Tȗ �
^
ach%=�
h�J%=1�6
r�K%=1�6
|�att%(K%,J%,0)>2:ach%=�
��
��
��ach% �
���frn% �mess("Aucune r�ussite pour l'instant - retourner au menu",11) ��mess("Nothing achieved at present - return to menu",11)
��zeromouse
��
�� �leave
��
�	�busy
��
�� �leave
��
��

��busy
�frn% �foreign ��english
�
&
��english
0+�mess("Screen/Printer/Disc (S/P/D)",11)
:*FX21 0
D�
Nk%=�(0)
X�k%>=�("a"):k%-=32
b/� k%=�("S") � k%=�("P") � k%=�("D") � �-113
l�-113:�flush:�
v� 7
��k%<>�("P") �
�#�mess("Text/Graphics (T/G)",11)
��
�t%=�(0)
��t%>=�("a"):t%-=32
�#� t%=�("T") � t%=�("G") � �-113
��
�
t%=�("T")
��
��-113:�flush:�
�/�t%=�("T") �achieve_text ��achieve_graphics
��k%=�("D"):�discdump
��k%=�("P"):�printer_dump

�


��foreign

2�mess("Ecran/Imprimante/Disquette (E/I/D)",11)

 *FX21 0

*�

4k%=�(0)

>�k%>=�("a"):k%-=32

H/� k%=�("E") � k%=�("I") � k%=�("D") � �-113

R�-113:�flush:�

\� 7

f�k%<>�("I") �

p"�mess("Texte/iMages (T/M)",11)

z�

�t%=�(0)

��t%>=�("a"):t%-=32

�#� t%=�("T") � t%=�("M") � �-113

��

�
t%=�("T")

��

��-113:�flush:�

�/�t%=�("T") �achieve_text ��achieve_graphics

��k%=�("D"):�discdump

��k%=�("I"):�printer_dump

��

���achieve_graphics

�ș"ABC_Blank",3
ș"ABC_Colour",3

� 0,12
ȓȐ 184,64,942,932
$	� 0,7
.ȓ 184,64,942,932
8� 0
B	� 140
L(ș"ABC_UnpackSprite","wax",j%,444,70
V*ș"ABC_UnpackSprite","small",j%,120,64
`
�words(�)
jș"ABC_Palette"
t�
~��achieve_text
�ș"ABC_Blank",12
�ș"ABC_Colour",12
�� 7
�	� 140
��cent(�67,"*"),0)
��J%=1�29
��8,J%)"*"�74,J%)"*"
��
��cent(�67,"*"),30)
�
�words(�)
�ș"ABC_Palette"
��
��words(fan%)

�fan% �
>�frn% a$="CECI CERTIFIE QUE" �a$="THIS IS TO CERTIFY THAT"
xsc%=320-�(a$)*8
('ș"ABC_PryntString",a$,xsc%,240,1,7
2*ș"ABC_PryntString",a$,xsc%-2,242,1,11
<#�wings(�strip(attend$),168,222)
F�
P� 7
Z	� 140
dL�frn% �cent("CECI CERTIFIE QUE ",2) ��cent("THIS IS TO CERTIFY THAT ",2)
na$=�strip(attend$)
x�cent(a$,4)
��
�� 7
�	� 140
��frn% �
�'�ver% a$="cat�gories" �a$="niveaux"
�3�cent("a jou� aux jeux Dix sur Dix Fran�ais",9)
�6�cent("et a obtenu 100% aux jeux suivants "+a$,10)
�&�cent("Certificat d�livr� par",27)
�(�cent("Systemes Educatifs 10/10",28)
��
�"�ver% a$="grades" �a$="levels"
�9�cent("has played the Ten out of Ten French games",9)
�:�cent("and has achieved 100% at the following "+a$,10)
 �cent("Certificate from",27)
)�cent("10/10 Educational Systems",28)
�
"�cent(�date,25)
,
tay%=0
6�J%=1�6
@K%=1
J
fnd%=�
Tȕ K%<7 � �fnd%
^:�att%(K%,J%,0)>2 � �info$(K%,J%),4)<>"":tay%+=1:fnd%=�
h	K%+=1
r�
|�
�tay%=18-tay%�2
��frn% � �DvG �� �DXG
��J%=1�6
�� b$
�
six$()=""
��K%=1�6
�#�att%(J%,K%,0)>2:six$(K%)=�(K%)
��
��
�
srt%=�
��K%=1�5
�6�six$(K%)<six$(K%+1):Ȕ six$(K%),six$(K%+1):srt%=�
��

� srt%
	a$=""
�K%=1�6
&"�six$(K%)<>"":a$+=six$(K%)+","
0�
:��a$)=",":a$=�a$)
D
�a$<>"" �
N)�18,tay%)b$�36,tay%)"..."�40,tay%)a$
Xtay%+=1
b�
l�
v�
���discdump
�� 7
�ȗ �
�� �
� ș"ABC_Transfer",0,16,640,17
�'�input(32,"adfs::0.$."+attend$,�,�)
�ș"ABC_Restore"
��esc% � i$="":�
�ș"Hourglass_On"
��"SCREENSAVE "+i$
�ș"Hourglass_Smash"
�� � �:�frang
�*DIR <Disc1$Dir>.SixGames
ș"ABC_Restore"
ȗ � 640,512
�mouse1
 �
*��frang
4� 7
>��frn% a$="INTRODUIRE LA DISQUETTE DANS LE LECTEUR ET APPUYER SUR RETOUR" �a$="PLEASE INSERT DISC INTO DRIVE AND PRESS RETURN"
H�mess(a$,8)
R�
\
� �-74
f�
p��printer_dump
z� 2
��J%=0�30
��K%=0�79
�� 31,K%,J%
�ș"OS_Byte",135 � ,res%
�
� res%
��
��J%<30:� 13,10
��
�� 3
��
�
��load
�
�legal
��bad% � esc%:�
�gridcheck
�a$="" � k%:�
� 7
$?h%=�("<Disc1$Dir>.SixGames.Achieve.Achieve"+�(cla%)+"."+a$)
.ș"Hourglass_On"
8�L%=0�4
B�K%=1�6
L�J%=1�6
V�#h%,att%(J%,K%,L%)
`�
j�
t�
~�#h%
�attend$=a$
��confilesave
�ș"Hourglass_Smash"
��
���small(wch%,col%)
�� 0,col%
�3ȓȐ (wch%>>4)*256+354,964-((wch%�&F)<<6),26,32
��
���create
�
�legal
��bad% � esc%:�
�ȗ �
ș"ABC_Colour",15

H�frn% �mess("Nom du nouveau joueur",11) ��mess("New player name",11)
�delay(50)
�input(8,"",�,�)
(ȕ �i$," ")>0
2�i$,�i$," "))="_"
<�
F�esc%:�
P7�"DIR <Disc1$Dir>.SixGames.Achieve.Achieve"+�(cla%)
Z%ș"OS_GBPB",8,,cat%,&40,0 � ,,,d%
d*DIR <Disc1$Dir>.SixGames
na%=0
xc%=0
�d%=64-d%
�st%=cat%
�
dup%=�
�ȕ c%<d% � �dup%
�t%=st%?((?st%)+1)
�st%?((?st%)+1)=&D
�a$=$(st%+1)
�st%+=1+(?st%)
�?st%=t%
��a$=i$:dup%=�
�	a%+=1
�	c%+=1
��
k%=�
�dup% �

� 0,10
"� 5
,ȓȐ 0,0,1278,64
6	� 0,0
@ȓ 0,0,1278,64
J_�frn% t$="Joueur "+i$+" existe d�j� - Effacer?" �t$="Player "+i$+" already exists - Erase?"
T� 860-�(t$)*g%,44
^�t$
h� 4
r�
|
k%=�yesno
��
��k%:�mouse1:�
�att%()=0
�?h%=�("<Disc1$Dir>.SixGames.Achieve.Achieve"+�(cla%)+"."+i$)
��L%=0�4
��K%=1�6
��J%=1�6
��#h%,att%(J%,K%,L%)
��
��
��
��#h%
�attend$=i$
�confilesave
ș"ABC_Colour",15
�mouse1
&�
0��delete
:
�legal
D�bad% � esc%:�
N�gridcheck
X�a$="" � k%:�
bș"ABC_Colour",15
l
� 0,10
v� 5
�ȓȐ 0,0,1278,64
�	� 0,0
�ȓ 0,0,1278,64
�D�frn% t$="Joueur "+a$+" - Effacer?" �t$="Player "+a$+" - Erase?"
�� 860-�(t$)*g%,44
��t$
�� 4
��
�
k%=�yesno
��k%:�mouse1:�
�A�"DELETE <Disc1$Dir>.SixGames.Achieve.Achieve"+�(cla%)+"."+a$
��a$=attend$:�setempty
��
��delay(del%)
�
Ȗ
 del%-=1
*� del%<0
4�
>��confileload
Hh%=�(f$+"Configure")
RQ�#h%,rat%,nig%,sds%,ver%,grd%,cla%,typ$,hed%,fut%,pap%,pix%,frn%,attend$,cod%
\�#h%
f�
p��confilesave
zh%=�(f$+"Configure")
�Q�#h%,rat%,nig%,sds%,ver%,grd%,cla%,typ$,hed%,fut%,pap%,pix%,frn%,attend$,cod%
��#h%
��
���loaddetails
��confileload
�'�sds% �"SPEAKER ON" ��"SPEAKER OFF"
��attend$="" �
�att%()=0
��
�Dh%=�("<Disc1$Dir>.SixGames.Achieve.Achieve"+�(cla%)+"."+attend$)
��L%=0�4
��K%=1�6
��J%=1�6
�#h%,att%(J%,K%,L%)
�
�
$�
.�#h%
8�
B�
Lݤyesno
V�zeromouse
`ȗ ȓ 959,12,240,46
j�mouse1
tȗ � 1160,32
~� 5
�	� 0,0
�� 896,44
�-�frn% �"Oui        Non" ��"Yes        No"
��
�ȗ mox%,moy%,but%
��mox%<1072 �
�
� 0,11
�ȓȐ 960,12,80,40
�	� 0,7
�ȓȐ 1120,12,80,40
��
�	� 0,7
ȓȐ 960,12,80,40


� 0,11
ȓȐ 1120,12,80,40
�
(� but%>0 � �mox%,moy%)=11
2� 4
<�
F�mox%<1072 =� �=�
Pݤyesnodesk
Z�zeromouse
dȗ ȓ 959,12,240,46
n�mouse1
xȗ � 1160,32
�� 5
�	� 0,0
�� 896,44
��"Yes        No"
��
�ȗ mox%,moy%,but%
��mox%<1072 �
�
� 0,11
�ȓȐ 960,12,80,40
�	� 0,7
�ȓȐ 1120,12,80,40
��
�	� 0,7
ȓȐ 960,12,80,40

� 0,11
ȓȐ 1120,12,80,40
"�
,� but%>0 � �mox%,moy%)=11
6� 4
@�
J�mox%<1072 =� �=�
T��displaydirectory
^ș"ABC_Blank",15
hș"ABC_Colour",15
r7�"DIR <Disc1$Dir>.SixGames.Achieve.Achieve"+�(cla%)
|%ș"OS_GBPB",8,,cat%,&40,0 � ,,,d%
�*DIR <Disc1$Dir>.SixGames
�� 5
��a%=0�63
�x%=(a%>>4)*256+128
�y%=(a%�&F)<<6
�	� 0,8
�ȓȐ x%,y%,224,40
�
� 0,11
�ȓȐ x%+224,y%,30,40
�	� 0,0
�ȓ x%+224,y%,30,40
��
�a%=0
c%=0
d%=64-d%
st%=cat%
&filename$()=""
0	� 0,0
:ȕ c%<d%
Dt%=st%?((?st%)+1)
Nst%?((?st%)+1)=&D
Xa$=$(st%+1)
bst%+=1+(?st%)
l?st%=t%
v&� (a%>>4)*256+144,992-((a%�&F)<<6)
�filename$(a%)=a$
�a$=�strip(a$)
�� a$
�	a%+=1
�	c%+=1
��
�� 4
��
�ș"ABC_Palette"
��
���gridcheck
��displaydirectory
�
lst%=0
�
ȗ mox%,moy%,but%
sqx%=(mox%-128)>>8
 �sqx%>3:sqx%=3
*�sqx%<0:sqx%=0
4sqy%=(1024-moy%)>>6
>�sqy%>15:sqy%=15
Hinx%=sqy%+sqx%*g%
R�inx%>63:inx%=63
\�inx%<>lst% �
fȖ
p�small(lst%,11)
z�small(inx%,15)
�
lst%=inx%
��
��-113 k%=� �k%=�
�� but%>0 � k%
�a$=filename$(lst%)
��
�
��current
�� 5
�	� 0,8
�ȓȐ 384,16,480,64
�	� 0,0
�ȓ 384,16,480,64
�
� 0,14
� 400,60
5�frn% �"Joueur actuel : "; ��"Current player : ";
	� 0,0
$a$=�strip(attend$)
.�frn% �
8�a$="" �"Vide" ��a$
B�
L�a$="" �"Empty" ��a$
V�
`� 4
j�
t�
~��access
�符-2 � ��-31:�
�ȗ �
�� 7
�ș"ABC_Colour",15
�
tru%=�
�(�frn% �foreignaccess ��englishaccess
��esc% � �tru%:�
��confilesave
�	�back
��
���foreignaccess
�5�mess("ENTRER L'ANCIEN NUMERO DE CODE D'ACCES",8)

�invis

�esc%:�back:�
J%=�validatenumber(i$)
/�J%:�wrong("CHIFFRES UNIQUEMENT"):tru%=�:�
(5�cod%<>�(i$):�wrong("FAUX CODE D'ACCES"):tru%=�:�
2;�mess("INTRODUIRE LE NOUVEAU NUMERO DE CODE D'ACCES",8)
<
�invis
F�esc%:�back:�
PJ%=�validatenumber(i$)
Z/�J%:�wrong("CHIFFRES UNIQUEMENT"):tru%=�:�
dfirst%=�(i$)
n2�mess("ENTRER DE NOUVEAU POUR CONFIRMATION",8)
x
�invis
��esc%:�back:�
�J%=�validatenumber(i$)
�/�J%:�wrong("CHIFFRES UNIQUEMENT"):tru%=�:�
�second%=�(i$)
�I�first%<>second%:�wrong("CHIFFRES DIFFERENTS - RECOMMENCER"):tru%=�:�
�cod%=�i$
�0�mess("LE NUMERO DE CODE D'ACCES ACCEPTE",8)
��
���englishaccess
�+�mess("ENTER OLD ACCESS CODE NUMBER",8)
�
�invis
��esc%:�back:�
�J%=�validatenumber(i$)
/�J%:�wrong("NUMBERS ONLY PLEASE"):tru%=�:�
7�cod%<>�(i$):�wrong("INVALID ACCESS CODE"):tru%=�:�
+�mess("ENTER NEW ACCESS CODE NUMBER",8)
"
�invis
,�esc%:�back:�
6J%=�validatenumber(i$)
@/�J%:�wrong("NUMBERS ONLY PLEASE"):tru%=�:�
Jfirst%=�(i$)
T%�mess("ENTER AGAIN TO CONFIRM",8)
^
�invis
h�esc%:�back:�
rJ%=�validatenumber(i$)
|/�J%:�wrong("NUMBERS ONLY PLEASE"):tru%=�:�
�second%=�(i$)
�E�first%<>second%:�wrong("DIFFERENT NUMBERS - TRY AGAIN"):tru%=�:�
�cod%=�i$
�.�mess("NEW ACCESS CODE NUMBER ACCEPTED",8)
��
�
��back
��sun%<11 sun%=11 �sun%=0
�	�menu
��mouse1
��
���wrong(a$)
�� 7
��mess(a$,11)
 �delay(150)
 	�back
 �
 &ݤvalidatenumber(a$)
 0
�a$="":=�
 :K%=�
 D�J%=1� �(a$)
 N'�a$,J%,1)<"0" � �a$,J%,1)>"9":K%=�
 X�
 b=K%
 l��invis
 v*FX21 0
 �
esc%=�
 �
cnt%=0
 �	i$=""
 ��
 ��
 ��
 �k%=�(1)
 �� k%>0 � k%<128
 ��k%=127 � cnt%>0 �
 �cnt%-=1
 �i$=�i$,cnt%)
 �!�mess(">"+ĩ(i$),"*")+"<",10)
 ��
!
� k%<>127
!�k%<>13 � cnt%<>4 �
!i$+=�k%
! !�mess(">"+ĩ(i$),"*")+"<",10)
!*cnt%+=1
!4�
!>� k%=13 � cnt%=4
!H�
!R��legal
!\�cod%=0:bad%=�:esc%=�:�
!fȗ �
!pș"ABC_Colour",15
!zY�frn% �mess("ENTRER NUMERO DE CODE D'ACCES",11) ��mess("ENTER ACCESS CODE NUMBER",11)
!�
�frput
!��cod%=�(i$) �
!�^�frn% �mess("LE NUMERO DE CODE D'ACCES ACCEPTE",8) ��mess("ACCESS CODE NUMBER ACCEPTED",8)
!��delay(100)
!�
bad%=�
!��
!�
bad%=�
!��
!��mouse1
!��
!���frput
!�*FX21 0
!�
esc%=�
"
cnt%=0
"
tot%=4
"	i$=""
"$�
".�
"8�
"Bk%=�(1)
"L� k%=13 � k%>31 � k%<128
"V�k%=127 � cnt%>0 �
"`cnt%-=1
"ji$=�i$,cnt%)
"t �mess(">"+ĩ(i$),"*")+"<",8)
"~�
"�
� k%<>127
"��k%<>13 � cnt%<>tot% �
"�
�cnt%=0 �
"�2�(k%)>="a" � �(k%)<="z" i$=�(k%-32) �i$=�(k%)
"��
"�4�(k%)>="A" � �(k%)<="Z" i$+=�(k%+32) �i$+=�(k%)
"��
"� �mess(">"+ĩ(i$),"*")+"<",8)
"�cnt%+=1
"��
"�� k%=13 � cnt%=tot%
"��
#��point(a$,mos%)
#
� wir%,par%,dat%
# � wir% 1088,par% 20,dat% 256
#h%=�(f$+a$)
#(�J%=0�32
#2�K%=0�32
#<wir%?(K%*32+J%)=�#h%
#F�
#P�
#Z�#h%
#d!par%=&20080200
#npar%?1=mos%
#xpar%!4=0
#�par%!6=dat%
#�
mmo%=dat%
#��J%=32�1��
#��K%=0�7
#�
�L%=3�0��
#�val%=wir%?(J%*32+K%*4+L%)
#�0�val%=&FF:par%?4=K%*4+L%:par%?5=31-J%:val%=0
#�?mmo%=?mmo%<<2
#�?mmo%+=val%
#��
#�mmo%+=1
#��
#��
$ș"OS_Word",21,par%
$�
$
��desktop
$"ȗ �
$,ș"ABC_Blank",11
$6�exitmessage
$@!�mess("Return to Desktop?",8)
$Jș"ABC_Palette"
$T�mouse1
$^k%=�yesnodesk
$hș"ABC_Colour",15
$rsun%=10
$|
�k%:�
$�	*FX20
$�"*CHANNELVOICE 1 WaveSynth-Beep
$�"*CHANNELVOICE 2 WaveSynth-Beep
$�"*CHANNELVOICE 3 WaveSynth-Beep
$�"*CHANNELVOICE 4 WaveSynth-Beep
$�*WIPE ram:* ~C~V
$�*RMKILL ABC
$�*RMKILL Synsmajs
$�*RMKILL Timer
$�*RMKILL 10/10SoundGenerator
$�*POINTER 1
$�*SPEAKER ON
$�� 20
%*DESKTOP
%��wings(l$,x%,y%)
%)ș"ABC_UnpackSprite","wings",j%,x%,y%
%&� 5
%0
� 0,11
%: � (x%*2+298)-�(l$)*8,y%*4-40
%D�l$
%N� 4
%X�
%b�
%l��select
%v6笤area(80,18,336,840) � ��area(912,18,1168,840) �
%�pre%=-1
%�sly%=-1
%��rectangles
%��
%�sly%=(moy%-18)�280
%�#�area(912,18,1168,840):sly%+=3
%��sly%<>pre% �
%��rectangles
%�
pre%=sly%
%�
� 0,11
%�Ȗ
%�E�sly%<3 ȓ 80,sly%*280+16,256,256 �ȓ 912,(sly%-3)*280+16,256,256
%��
&�
&
�but%=0:�
&
Ȏ sly% �
& � 0:�run("WordSearch")
&*� 1:�run("Tower")
&4� 2:�run("TheCop")
&>� 3:�run("Stones")
&H� 4:�run("Rescue")
&R� 5:�run("LinkUp")
&\�
&f�zeromouse
&p�sly%>-1:�menu
&z�mouse1
&��
&���contents
&�� 5
&��J%=1�3
&�6ș"ABC_UnpackSprite","intro"+�(J%),j%,48,274-J%*70
&�9ș"ABC_UnpackSprite","intro"+�(J%+3),j%,464,274-J%*70
&��
&��frn% � �D~g �� �Dtg
&��J%=1�3
&�� a$,b$
&�	� 0,7
&�� 96,J%*280-232
&��a$
'� 928,J%*280-232
'�b$
'	� 0,0
'$� 102,J%*280-228
'.�a$
'8� 934,J%*280-228
'B�b$
'L�
'V� 4
'`�
'j�
't5� Word Search,Stones,Tower,Rescue,The Cop,Link Up
'~E� Le Puzzle,La Bonne Route,La Tour,"La Fus�e",Le Flic,Le Jumelage
'���rectangles
'�	� 0,0
'��J%=1�3
'�ȓ 80,J%*280-264,256,256
'�ȓ 912,J%*280-264,256,256
'��
'��
'���achievediscdump
'�符-2:�
'�符-82:�
'�� 7
'�ȗ �
(� �
(
 ș"ABC_Transfer",0,16,640,17
()�input(32,"adfs::0.$.AchieveSpr",�,�)
(ș"ABC_Restore"
((�esc% � i$="":�
(2� 24,0;112;1278;1008;
(<ș"Hourglass_On"
(F�"SCREENSAVE "+i$
(P� 26
(Zș"Hourglass_Smash"
(d� � �:�mistake
(n*DIR <Disc1$Dir>.SixGames
(xș"ABC_Restore"
(�ȗ � 640,512
(��mouse1
(��
(�
��mistake
(�� 7
(�?�mess("PLEASE INSERT DISC 2 INTO DRIVE AND PRESS RETURN",8)
(��
(�
� �-74
(��
(���achieveprintdump
(�符-2:�
(�符-56:�
(�� 7
)ș"Hourglass_On"
)
� �DXG
)new%()=att%()
)"�printpage(attend$)
),
�flush
)6ș"Hourglass_Smash"
)@�mouse1
)J�
)T��allachieveprintdump
)^符-2:�
)h
符-102:�
)r� 7
)|ș"Hourglass_On"
)��displaydirectory
)�
�flush
)�ș"Hourglass_Smash"
)��mouse1
)�ȗ ȓ 0,0,1280,1024
)�files%()=�
)�
lst%=0
)��
)�ȗ mox%,moy%,but%
)�sqx%=(mox%-128)>>8
)��sqx%>3:sqx%=3
)��sqx%<0:sqx%=0
)�sqy%=(1024-moy%)>>6
*�sqy%>15:sqy%=15
*inx%=sqy%+sqx%*g%
*�inx%>63:inx%=63
*&�inx%<>lst% �
*02�files%(lst%) �small(lst%,14) ��small(lst%,11)
*:2�files%(inx%) �small(inx%,14) ��small(inx%,15)
*D
lst%=inx%
*N�
*X"�but%=1 � filename$(lst%)>"" �
*bfiles%(lst%)=�files%(lst%)
*l2�files%(lst%) �small(lst%,14) ��small(lst%,11)
*v�zeromouse
*��
*��-113 k%=� �k%=�
*�� but%=4 � k%
*�a$=filename$(lst%)
*�
�k% �
*�ș"Hourglass_On"
*�ș"ABC_Colour",15
*�X%=0
*�
esc%=�
*�ȕ X%<64 � �esc%
*��files%(X%) �
*�Jh%=�("<Disc1$Dir>.SixGames.Achieve.Achieve"+�(cla%)+"."+filename$(X%))
*��L%=0�4
+�K%=1�6
+�J%=1�6
+�#h%,new%(J%,K%,L%)
+ �
+*�
+4�
+>�#h%
+H�printpage(filename$(X%))
+R�
+\	X%+=1
+f�
+pș"Hourglass_Smash"
+z�
+�ȗ ȓ 128,116,1150,764
+��achievecard
+��zeromouse
+��
+���printpage(name$)
+�� �
+�� � �:� 6,3,7:esc%=�:�
+�
� 2,21
+��header
+�a$=�strip(name$)
+��a$="":a$="Empty"
+��frn% �
+�$�printer("Les r�sultats de "+a$)
,6�printer("qui joue aux Jeux Dix sur Dix Fran�ais")
,�
,'�printer("The achievements of "+a$)
,$5�printer("playing the 10 out of 10 French games")
,.�
,8�printer("")
,B�printer(�date)
,L�printer("")
,V�frn% �
,`�ver% �
,j6�printer("Cat�gories Trait�"+�51," ")+"R�sultant")
,t�
,~5�printer("Niveaux   Trait�"+�52," ")+"R�sultant")
,��
,��printer("")
,��printer("LE FLIC")
,��gamedetails(1)
,��printer("LA TOUR")
,��gamedetails(2)
,��printer("LE PUZZLE")
,��gamedetails(3)
,��printer("LE JUMELAGE")
,��gamedetails(4)
,��printer("LA FUSEE")
,��gamedetails(5)
-�printer("LA BONNE ROUTE")
-
�gamedetails(6)
-1�printer("LEGENDE DES COULEURS DE REUSSITE:")
-�printer("")
-(,�printer("BLEU   = 100% (10 fois VERT)")
-2*�printer("VERT   = 100% (10 sur 10!)")
-<$�printer("JAUNE  = 50% ou plus")
-F%�printer("ROUGE  = Moins de 50%")
-PF�printer("-      = signifie que la cat�gorie n'a pas �t� trait�e")
-Z�
-d9�printer(typ$+"     Covering"+�50," ")+"Achievement")
-n�printer("")
-x�printer("THE COP")
-��gamedetails(1)
-��printer("TOWER")
-��gamedetails(2)
-��printer("WORD SEARCH")
-��gamedetails(3)
-��printer("LINK UP")
-��gamedetails(4)
-��printer("RESCUE")
-��gamedetails(5)
-��printer("STONES")
-��gamedetails(6)
-�+�printer("KEY TO ACHIEVEMENT COLOURS:")
-��printer("")
..�printer("BLUE   = 100% (10 times GREEN)")
.-�printer("GREEN  = 100% (10 out of 10!)")
.$�printer("YELLOW = 50% or over")
.""�printer("RED    = Under 50%")
.,;�printer("-      = means the grade has not been tried")
.6�
.@ȕ pnt%<pap%
.J�
.Tpnt%+=1
.^�
.h�footer
.r	� 6,3
.|�
.���gamedetails(num%)
.��J%=1�6
.�b$=info$(num%,J%)
.�#�nig% a$=b$ �a$=�b$,�b$," ")+1)
.�a$=�(J%)+" "+a$
.�a$+=�68-�(a$)," ")
.��frn% �
.�Ȏ new%(num%,J%,0) �
.�� 0:a$+="-"
.�� 1:a$+="ROUGE"
.�� 2:a$+="JAUNE"
.�$� 3,4,5,6,7,8,9,10,11:a$+="VERT"
.�:a$+="BLEU"
/�
/�
/Ȏ new%(num%,J%,0) �
/&� 0:a$+="-"
/0� 1:a$+="RED"
/:� 2:a$+="YELLOW"
/D%� 3,4,5,6,7,8,9,10,11:a$+="GREEN"
/N:a$+="BLUE"
/X�
/b�
/l�printer(a$)
/v�
/��printer("")
/��
/���header
/�
pnt%=0
/�
�hed%=0:�
/��W%=1� hed%
/��
/��
/��
/���footer
/�
�fut%=0:�
/��W%=1� fut%
/��
0�
0�
0��printer(j$)
0 �j$
0*pnt%+=1
04�pnt%=pap% �
0>�footer
0H�header
0R�
0\�
0f
ݤdate
0p�frn% � �dTp �� �d@p
0z
fnd%=�
0�ȕ �fnd%
0�� p$,n$
0�科$,p$):fnd%=�
0��
0�z$="Date: "
0�=z$+��$,5,3)+n$+��$,11,5)
0�G� Jan,January,Feb,February,Mar,March,Apr,April,May,May,Jun,June,Jul
0�I� July,Aug,August,Sep,September,Oct,October,Nov,November,Dec,December
0�G� Jan,Janvier,Feb,"F�vrier",Mar,Mars,Apr,Avril,May,Mai,Jun,Juin,Jul
0�N� Juillet,Aug,"Ao�t",Sep,Septembre,Oct,Octobre,Nov,Novembre,Dec,"D�cembre"
0���flush
0�*FX21 9
0��
1ݤstrip(str$)
1ȕ �str$,"_")>0
1�str$,�str$,"_"))=" "
1$�
1.	=str$
18��input(tot%,x$,cap%,fil%)
1B*FX21 0
1L
esc%=�
1Vcnt%=�(x$)
1`	i$=x$
1j*�fil% � �frn%:y$="filename: >" �y$=">"
1t1�fil% � frn%:y$="titre du dossier: >" �y$=">"
1~�mess(y$+i$+"<",8)
1��
1��
1��
1�k%=�(1)
1�� k%=13 � k%>31 � k%<128
1��k%=127 � cnt%>0 �
1�cnt%-=1
1�i$=�i$,cnt%)
1��mess(y$+i$+"<",8)
1��
1�
� k%<>127
1��k%<>13 � cnt%<>tot% �
2�cap% �
2

�cnt%=0 �
22�(k%)>="a" � �(k%)<="z" i$=�(k%-32) �i$=�(k%)
2�
2(4�(k%)>="A" � �(k%)<="Z" i$+=�(k%+32) �i$+=�(k%)
22�
2<�
2F
i$+=�(k%)
2P�
2Z�mess(y$+i$+"<",8)
2dcnt%+=1
2n�
2x�k%<>13 � cnt%=tot%:�7
2�� k%=13
2��
2���exitmessage
2�ș"ABC_Colour",11
2�
� �TNs
2�� a$
2�
Y%=240
2�ȕ a$<>"end"
2�$ș"ABC_PryntString",a$,34,Y%,1,7
2�&ș"ABC_PryntString",a$,32,Y%+1,1,0
2��a$>"" Y%-=18 �Y%-=12
2�� a$
2��
3�
3#� Also available or coming soon
3,� "for Acorn 32-bit, IBM PC/compatibles"
3"� and Commodore Amiga ...
3,�
36� English            French
3@"� German             Dinosaurs
3J+� Astronomy          Maths (Statistics)
3T(� Maths (Number)     Maths (Algebra)
3^*� Early Essentials   Junior Essentials
3h�
3r� Contact your dealer or
3|$� ring (0742) 780370 for details
3�	� end
3�ݤinitialcompressed(s$)
3�h%=�(f$+s$)
3�
len%=�#h%
3��#h%
3�
� z% len%
3��"LOAD "+f$+s$+" "+�~(z%)
3�=z%
3���configure
3�符-2 � ��-1 � ��-83:�
3�ȗ �
3�ș"ABC_Blank",3
3�ș"ABC_Colour",3
4�validdirectories
4)ș"ABC_UnpackSprite","bar",j%,180,242
4)ș"ABC_UnpackSprite","exit",j%,454,18
4&� 11
40	� 130
4:'�25,2)"10 out of 10 CUSTOMISATION"
4D� 7
4N
old%=cla%
4X
� �dl{
4b� a$,K%
4lJ%=0
4vȕ a$<>"end"
4�/ș"ABC_UnpackSprite","bar",j%,180,226-J%*16
4��25,J%*2+4)a$
4��K%=-1 �
4�0ș"ABC_UnpackSprite","arup",j%,482,226-J%*16
4�0ș"ABC_UnpackSprite","ardn",j%,510,226-J%*16
4��
4�W�K%=-2 ș"ABC_UnpackSprite","default",j%,454,226-J%*16 ��buttonstatus(J%,226-J%*16)
4�	J%+=1
4�� a$,K%
4��
4�ș"ABC_Palette"
4�ȗ ȓ 904,32,160,874
4��mouse1
5
end%=�
5ȕ �end%
5�
5 ȗ mox%,moy%,but%
5*� but%>0
54$�but%=4 � �mox%,moy%)<>3:�action
5>�
5H�savenewconfigure
5R�old%<>cla%:�setempty
5\�sun%<11 sun%=11 �sun%=0
5f	�menu
5p�
5z��action
5�noy%=(906-moy%)>>6
5�nox%=(mox%-906)�56
5�
Ȏ noy% �
5�� 0
5�frn%=�frn%
5�#�buttonstatus(noy%,226-noy%*16)
5�� 7
5�� 1
5�rat%=�rat%
5�#�buttonstatus(noy%,226-noy%*16)
5�� 7
5�� 2
5��ver% �
6nig%=�nig%
6#�buttonstatus(noy%,226-noy%*16)
6� 7
6$�
6.� 3
68sds%=�sds%
6B#�buttonstatus(noy%,226-noy%*16)
6L'�sds% �"SPEAKER ON" ��"SPEAKER OFF"
6V� 7
6`� 4
6j�ver% �
6t
ver%=�
6~
nig%=�
6�(�buttonstatus(noy%-2,226-noy%*16+32)
6�#�buttonstatus(noy%,226-noy%*16)
6�(�buttonstatus(noy%+1,226-noy%*16-16)
6�� 7
6��
6�� 5
6��ver% �
6�
ver%=�
6�
nig%=�
6�(�buttonstatus(noy%-3,226-noy%*16+48)
6�#�buttonstatus(noy%,226-noy%*16)
6�(�buttonstatus(noy%-1,226-noy%*16+16)
7� 7
7
�
7� 6
7
�nox%=1 �
7(grd%+=1
72�grd%=7:grd%=1
7<#�buttonstatus(noy%,226-noy%*16)
7F� 7
7P�
7Z
�nox%=2 �
7dgrd%-=1
7n�grd%=0:grd%=6
7x#�buttonstatus(noy%,226-noy%*16)
7�� 7
7��
7�� 7
7�
�nox%=1 �
7�cla%+=1
7��cla%=65:cla%=1
7�#�buttonstatus(noy%,226-noy%*16)
7�� 7
7��
7�
�nox%=2 �
7�cla%-=1
7��cla%=0:cla%=64
7�#�buttonstatus(noy%,226-noy%*16)
8� 7
8�
8� 8
8"
�nox%=1 �
8,hed%+=1
86�hed%=8:hed%=0
8@#�buttonstatus(noy%,226-noy%*16)
8J� 7
8T�
8^
�nox%=2 �
8hhed%-=1
8r�hed%<0:hed%=7
8|#�buttonstatus(noy%,226-noy%*16)
8�� 7
8��
8�� 9
8�
�nox%=1 �
8�fut%+=1
8��fut%=8:fut%=0
8�#�buttonstatus(noy%,226-noy%*16)
8�� 7
8��
8�
�nox%=2 �
8�fut%-=1
8��fut%<0:fut%=7
8�#�buttonstatus(noy%,226-noy%*16)
9� 7
9�
9� 10
9&
�nox%=1 �
90pap%+=1
9:�pap%=81:pap%=16
9D#�buttonstatus(noy%,226-noy%*16)
9N� 7
9X�
9b
�nox%=2 �
9lpap%-=1
9v�pap%=15:pap%=80
9�#�buttonstatus(noy%,226-noy%*16)
9�� 7
9��
9�� 11
9�pix%+=1
9��pix%=4:pix%=0
9�#�buttonstatus(noy%,226-noy%*16)
9�� 7
9�� 12
9�ș"ABC_Blank",3
9�*SPEAKER ON
9�� 7
9�
rat%=�
:
nig%=�
:
sds%=�
:
ver%=�
: 
grd%=1
:*
cla%=1
:4
hed%=1
:>
fut%=1
:Hpap%=64
:R
pix%=0
:\
frn%=�
:f�J%=0�11
:p�buttonstatus(J%,226-J%*16)
:z�
:�ș"ABC_Palette"
:�� 13:end%=�
:��
:��zeromouse
:��
:���savenewconfigure
:�ȗ �
:�ș"ABC_Blank",3
:�ș"ABC_Colour",3
:�'�directory%(cla%):�createdirectory
:�7�"DIR <Disc1$Dir>.SixGames.Achieve.Achieve"+�(cla%)
:�$�ver% typ$="Grade" �typ$="Level"
:��confilesave
;*DIR <Disc1$Dir>.SixGames
;�
;��buttonstatus(num%,ysc%)
;$yyy%=ysc%-2
;.Ȗ
;8k�num%=4 � num%=5 ș"ABC_UnpackSprite","radiooff",j%,454,ysc% �ș"ABC_UnpackSprite","optoff",j%,454,ysc%
;B
Ȏ num% �
;L6� 0:�frn%:ș"ABC_UnpackSprite","opton",j%,454,ysc%
;V6� 1:�rat%:ș"ABC_UnpackSprite","opton",j%,454,ysc%
;`6� 2:�nig%:ș"ABC_UnpackSprite","opton",j%,454,ysc%
;j6� 3:�sds%:ș"ABC_UnpackSprite","opton",j%,454,ysc%
;t9� 4:�ver%:ș"ABC_UnpackSprite","radioon",j%,454,ysc%
;~8� 5:�ver%:ș"ABC_UnpackSprite","radioon",j%,454,ysc%
;�0� 6:ș"ABC_PryntString",�(grd%),462,yyy%,0,9
;�� 7
;�&�directory%(cla%) cul%=13 �cul%=11
;�d�cla%>9 ș"ABC_PryntString",�(cla%),458,yyy%,0,cul% �ș"ABC_PryntString",�(cla%),462,yyy%,0,cul%
;�1� 8:ș"ABC_PryntString",�(hed%),462,yyy%,0,11
;�1� 9:ș"ABC_PryntString",�(fut%),462,yyy%,0,11
;�2� 10:ș"ABC_PryntString",�(pap%),458,yyy%,0,11
;�`� 11:�pix%=0 ș"ABC_PryntString","A",462,yyy%,0,11 �ș"ABC_PryntString",�(pix%),462,yyy%,0,6
;��
;��
;�/� French Environment,0,Ratings suppressed,0
;�+� National curriculum numbers,0,Sound,0
<C� Level,0,Grade,0,Overall skill,-1,Class number,-1,Top space,-1
<
E� Bottom space,-1,Paper length,-1,Graphics selection,0,Default,-2
<� end,0
<��validdirectories
<('�"DIR <Disc1$Dir>.SixGames.Achieve"
<2%ș"OS_GBPB",8,,cat%,&40,0 � ,,,d%
<<*DIR <Disc1$Dir>.SixGames
<Fc%=0
<Pd%=64-d%
<Zst%=cat%
<ddirectory%()=�
<nȕ c%<d%
<xt%=st%?((?st%)+1)
<�st%?((?st%)+1)=&D
<�a$=$(st%+1)
<�st%+=1+(?st%)
<�?st%=t%
<�directory%(�(�a$,8)))=�
<�	c%+=1
<��
<��
<���createdirectory
<�8�"CDIR <Disc1$Dir>.SixGames.Achieve.Achieve"+�(cla%)
<�
�setempty
<��
<���setempty
=attend$=""
=�confilesave
=att%()=0
="�
=,ݤleave
=6ȗ mox%,moy%,but%
=@%�-113 � �-99 � �-74 � but%>0 �=�
=J�
=Tȗ mox%,moy%,but%
=^%� ��-113 � ��-99 � ��-74 � but%=0
=h*FX21 9
=r=�
=|��newcard(t$,sdx%,sdy%)
=�� 5
=�	� 0,5
=�ȓȐ 0,112,128,sdy%*64-64
=�+ȓȐ 128,112+sdy%*64-64,sdx%*192-192,64
=�	� 0,8
=� ȓȐ 0,112+sdy%*64-64,128,64
=�	� 0,0
=�3�sdx%*160+160>1279 sxe%=1278 �sxe%=sdx%*160+160
=�ȓ 0,112,sxe%,sdy%*64
=�
� 0,13
=�� 64,112+sdy%*64+64
=�� 0,�(t$)*g%,0
=�� 85,0,112+sdy%*64
>� 81,128+�(t$)*g%,0
>	� 0,0
>� 0,112+sdy%*64
>&
� 1,64,64
>0� 1,�(t$)*g%,0
>:� 1,64,-64
>D� 1,-�(t$)*g%-128,0
>N� 64,112+sdy%*64+44
>X�t$
>b�J%=0� sdx%-1
>l� J%*192+128,112
>v� 1,0,sdy%*64
>��
>��J%=0� sdy%-1 �2
>�� 0,112+J%*64
>�� 1,sdx%*192+192,0
>��
>�� 4
>��
>��
>���fillachieve
>�� 5
>��frn% � �`l@ �� �`b@
>��K%=0�5
>�� t$
?� (K%*192+224)-�(t$)*8,924
?�t$
?�
? �K%=1�6
?*.ș"ABC_UnpackSprite",�(K%),j%,24,244-K%*32
?4�J%=1�6
?>fax%=J%*192-62
?Hfay%=884-K%*128
?R�colour(att%(J%,K%,0))
?\8�J%=6 ȓȐ fax%,fay%,186,120 �ȓȐ fax%,fay%,188,120
?f�nig% �
?pa$="LoA "+ncl$(K%)
?zxsc%=fax%+96-�(a$)*8
?�	� 0,7
?�� xsc%,fay%+92
?��a$
?�	� 0,0
?�� xsc%,fay%+96
?��a$
?��
?��att%(J%,K%,0)<3 �
?�xsc%=fax%+40
?��L%=1�4
?��colour(att%(J%,K%,L%))
?�ȓȐ xsc%-6,fay%+8,30,40
?�	� 0,7
@� xsc%,fay%+36
@
�(96+L%)
@	� 0,0
@$� xsc%,fay%+40
@.
�(96+L%)
@8xsc%+=32
@B�
@L�
@V�
@`�
@j� 4
@t�
@~�
@���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
@��
@��
@�5� The Cop,Tower,Word Search,Link Up,Rescue,Stones
@�B� Le Flic,La Tour,Le Puzzle,Le Jumelage,"La Fus�e",Bonne Route
@���zeromouse
A�
A
ȗ mox%,moy%,but%
A� but%=0
A�
A(��error
A2� �
A<� 3,26,7
AF
*CLOSE
APș"Hourglass_Smash"
AZȗ �
Adș"ABC_Colour",15
Anș"ABC_Palette"
Ax�>&107FF � �<&10900 �
A�1�mess("FILING SYSTEM REPORTS ERROR : "+�$,11)
A��delay(150)
A�� 7
A�T�mess("PLEASE CHECK DISC IN DRIVE AND NOT WRITE PROTECTED THEN PRESS RETURN",11)
A��
A�
� �-74
A��
A�� � � � �P|A
A��confilesave
A�*DIR <Disc1$Dir>.SixGames
A�� �
A�ș"ABC_Colour",15
A��
B�
B��assemble
B� asm% 160
B"ș"ABC_VideoAddress" � vid%
B,
�A%=0�2�2
B6P%=asm%
B@
[OPTA%
BJ
.Carousel
BT[MOV R0,#19:SWI "XOS_Byte":LDR R12,[R9]:LDR R0,[R12]:LDR R1,men:ADD R0,R1,R0:MOV R2,#&48
B^.rectangle
BhGLDRB R1,[R0,#&1]:STRB R1,[R0]:LDRB R1,[R0,#&141]:STRB R1,[R0,#&140]
BrOLDRB R1,[R0,#&281]:STRB R1,[R0,#&280]:LDRB R1,[R0,#&3C1]:STRB R1,[R0,#&3C0]
B|OLDRB R1,[R0,#&501]:STRB R1,[R0,#&500]:LDRB R1,[R0,#&641]:STRB R1,[R0,#&640]
B�OLDRB R1,[R0,#&781]:STRB R1,[R0,#&780]:LDRB R1,[R0,#&8C1]:STRB R1,[R0,#&8C0]
B�)LDRB R1,[R0,#&A01]:STRB R1,[R0,#&A00]
B�:ADD R0,R0,#&1:SUBS R2,R2,#&1:BNE rectangle:MOV R15,R14
B�.men EQUD vid%+&3624
B�]
B��
B��
B���longmenu
B��box%<>omy% �
B�� 5
B�	� 0,8
B�Ȗ
B�ȓȐ 400,112+omy%*64,288,32
C�omy%<6 � 0,14 �� 0,0
C� 400,140+omy%*64
C�mnu$(11-omy%),17)
C&
omy%=box%
C0� 4
C:�
CDinj%=72
CNtxt%=�(mnu$(11-omy%))
CXd$=mnu$(11-omy%)
Cb�
Cl�txt%>17 �
Cvpar%=(11-box%)*&1400
C�� Carousel,par%
C��inj%�4=0:�menuchar
C�inj%+=1
C��
C��
C���menuchar
C��(inj%>>2)>txt%+8:inj%=4
C��(inj%>>2)>txt%:�
C��omy%<6 col%=14 �col%=0
C�<ș"ABC_PryntString",�d$,inj%>>2,1),336,36+omy%*16,0,col%
C��
C�
��tidy
C��box%=omy%:�
D� 5
D	� 0,8
DȖ
D ȓȐ 400,112+omy%*64,288,32
D*�omy%<6 � 0,14 �� 0,0
D4� 400,140+omy%*64
D>�mnu$(11-omy%),17)
DH
omy%=box%
DR� 4
D\�
Df�
Dp
��trap
Dzȗ�
D��26
D�
*CLOSE
D��
�
00000000  0d 00 0a 17 f4 20 3e 3c  44 69 73 63 31 24 44 69  |..... ><Disc1$Di|
00000010  72 3e 2e 4d 65 6e 75 0d  00 14 20 ee 85 3a e7 9f  |r>.Menu... ..:..|
00000020  3d 31 37 20 f2 74 72 61  70 3a e5 8d 54 7c 40 20  |=17 .trap:..T|@ |
00000030  8b f2 65 72 72 6f 72 0d  00 1e 10 e7 eb 3c 3e 31  |..error......<>1|
00000040  32 3a eb 31 32 3a 87 0d  00 28 0c f2 69 6e 69 74  |2:.12:...(..init|
00000050  69 61 6c 0d 00 32 0d f2  61 73 73 65 6d 62 6c 65  |ial..2..assemble|
00000060  0d 00 3c 09 f2 6d 65 6e  75 0d 00 46 05 f5 0d 00  |..<..menu..F....|
00000070  50 14 f2 6d 6f 75 73 65  69 6c 6c 75 6d 69 6e 61  |P..mouseillumina|
00000080  74 65 0d 00 5a 0b f2 73  65 6c 65 63 74 0d 00 64  |te..Z..select..d|
00000090  0b f2 61 63 63 65 73 73  0d 00 6e 0e f2 63 6f 6e  |..access..n..con|
000000a0  66 69 67 75 72 65 0d 00  78 07 fd 20 a3 0d 00 82  |figure..x.. ....|
000000b0  0d dd f2 69 6e 69 74 69  61 6c 0d 00 8c 18 c8 99  |...initial......|
000000c0  22 41 42 43 5f 56 69 64  65 6f 41 64 64 72 65 73  |"ABC_VideoAddres|
000000d0  73 22 0d 00 96 14 c8 99  22 48 6f 75 72 67 6c 61  |s"......"Hourgla|
000000e0  73 73 5f 4f 6e 22 0d 00  a0 17 c8 97 20 c8 93 20  |ss_On"...... .. |
000000f0  30 2c 30 2c 31 32 38 30  2c 31 30 32 34 0d 00 aa  |0,0,1280,1024...|
00000100  4a de 20 61 74 74 25 28  36 2c 36 2c 34 29 2c 6e  |J. att%(6,6,4),n|
00000110  65 77 25 28 36 2c 36 2c  34 29 2c 69 6e 66 6f 24  |ew%(6,6,4),info$|
00000120  28 36 2c 36 29 2c 73 75  62 24 28 36 2c 36 2c 34  |(6,6),sub$(6,6,4|
00000130  29 2c 66 69 6c 65 6e 61  6d 65 24 28 36 34 29 2c  |),filename$(64),|
00000140  73 69 78 24 28 36 29 0d  00 b4 3a de 20 6e 63 6c  |six$(6)...:. ncl|
00000150  24 28 36 29 2c 6d 6e 75  24 28 31 31 29 2c 64 69  |$(6),mnu$(11),di|
00000160  72 65 63 74 6f 72 79 25  28 36 34 29 2c 66 69 6c  |rectory%(64),fil|
00000170  65 73 25 28 36 34 29 2c  63 61 74 25 20 26 34 30  |es%(64),cat% &40|
00000180  30 0d 00 be 18 68 25 3d  8e 28 22 72 61 6d 3a 46  |0....h%=.("ram:F|
00000190  61 63 74 46 69 6c 65 22  29 0d 00 c8 0b e3 4a 25  |actFile").....J%|
000001a0  3d 31 b8 36 0d 00 d2 0b  e3 4b 25 3d 31 b8 36 0d  |=1.6.....K%=1.6.|
000001b0  00 dc 15 e8 23 68 25 2c  69 6e 66 6f 24 28 4a 25  |....#h%,info$(J%|
000001c0  2c 4b 25 29 0d 00 e6 05  ed 0d 00 f0 05 ed 0d 00  |,K%)............|
000001d0  fa 08 d9 23 68 25 0d 01  04 0a 40 25 20 20 3d 30  |...#h%....@%  =0|
000001e0  0d 01 0e 0a 62 6f 78 25  3d 30 0d 01 18 0b 67 25  |....box%=0....g%|
000001f0  20 20 3d 31 36 0d 01 22  0b 70 72 65 25 3d 2d 31  |  =16..".pre%=-1|
00000200  0d 01 2c 0a 73 75 6e 25  3d 30 0d 01 36 20 66 24  |..,.sun%=0..6 f$|
00000210  20 20 3d 22 3c 44 69 73  63 31 24 44 69 72 3e 2e  |  ="<Disc1$Dir>.|
00000220  53 69 78 47 61 6d 65 73  2e 22 0d 01 40 26 6a 25  |SixGames."..@&j%|
00000230  20 20 3d a4 69 6e 69 74  69 61 6c 63 6f 6d 70 72  |  =.initialcompr|
00000240  65 73 73 65 64 28 22 4e  75 6d 62 65 72 73 22 29  |essed("Numbers")|
00000250  0d 01 4a 10 f2 6c 6f 61  64 64 65 74 61 69 6c 73  |..J..loaddetails|
00000260  0d 01 54 0a f7 20 8d 54  52 42 0d 01 5e 0b e3 4a  |..T.. .TRB..^..J|
00000270  25 3d 31 b8 36 0d 01 68  0b e3 4b 25 3d 31 b8 36  |%=1.6..h..K%=1.6|
00000280  0d 01 72 0b e3 4c 25 3d  31 b8 34 0d 01 7c 08 f3  |..r..L%=1.4..|..|
00000290  20 61 24 0d 01 86 15 73  75 62 24 28 4a 25 2c 4b  | a$....sub$(J%,K|
000002a0  25 2c 4c 25 29 3d 61 24  0d 01 90 05 ed 0d 01 9a  |%,L%)=a$........|
000002b0  05 ed 0d 01 a4 05 ed 0d  01 ae 0b e3 4a 25 3d 31  |............J%=1|
000002c0  b8 36 0d 01 b8 08 f3 20  61 24 0d 01 c2 0f 6e 63  |.6..... a$....nc|
000002d0  6c 24 28 4a 25 29 3d 61  24 0d 01 cc 05 ed 0d 01  |l$(J%)=a$.......|
000002e0  d6 17 c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 53  |...."Hourglass_S|
000002f0  6d 61 73 68 22 0d 01 e0  13 f2 70 6f 69 6e 74 28  |mash".....point(|
00000300  22 54 65 6e 22 2c 31 29  0d 01 ea 08 c8 a0 20 34  |"Ten",1)...... 4|
00000310  0d 01 f4 1a c8 a1 20 31  2c 22 53 74 72 69 6e 67  |...... 1,"String|
00000320  4c 69 62 2d 50 6c 75 63  6b 22 0d 01 fe 0a f2 66  |Lib-Pluck".....f|
00000330  6c 75 73 68 0d 02 08 05  e1 0d 02 12 37 dc 20 66  |lush........7. f|
00000340  72 75 69 74 2f 76 65 67  2c 64 72 69 6e 6b 73 20  |ruit/veg,drinks |
00000350  61 6e 64 20 62 61 6b 65  72 27 73 2c 64 65 6c 69  |and baker's,deli|
00000360  63 61 74 65 73 73 61 6e  2c 67 65 6e 65 72 61 6c  |catessan,general|
00000370  0d 02 1c 35 dc 20 69 6e  20 67 72 6f 63 65 72 27  |...5. in grocer'|
00000380  73 2c 69 6e 20 67 72 6f  63 65 72 27 73 2c 69 6e  |s,in grocer's,in|
00000390  20 64 65 6c 69 63 61 74  65 73 73 61 6e 2c 67 65  | delicatessan,ge|
000003a0  6e 65 72 61 6c 0d 02 26  45 dc 20 66 6f 6f 64 20  |neral..&E. food |
000003b0  73 68 6f 70 70 69 6e 67  2c 72 65 73 74 61 75 72  |shopping,restaur|
000003c0  61 6e 74 2f 63 61 66 65  2c 63 6c 6f 74 68 65 73  |ant/cafe,clothes|
000003d0  20 73 68 6f 70 70 69 6e  67 2c 70 72 65 73 65 6e  | shopping,presen|
000003e0  74 20 73 68 6f 70 70 69  6e 67 0d 02 30 6b dc 20  |t shopping..0k. |
000003f0  22 61 76 6f 69 72 2c 20  ea 74 72 65 20 70 72 65  |"avoir, .tre pre|
00000400  73 65 6e 74 20 74 65 6e  73 65 22 2c 72 65 67 75  |sent tense",regu|
00000410  6c 61 72 20 27 65 72 27  20 76 65 72 62 20 61 69  |lar 'er' verb ai|
00000420  6d 65 72 2c 76 6f 75 6c  6f 69 72 73 2c 72 65 67  |mer,vouloirs,reg|
00000430  75 6c 61 72 20 27 72 65  27 20 27 69 72 27 20 76  |ular 're' 'ir' v|
00000440  65 72 62 73 20 76 65 6e  64 72 65 20 61 6e 64 20  |erbs vendre and |
00000450  66 69 6e 69 72 0d 02 3a  3b dc 20 66 6f 6f 64 2f  |finir..:;. food/|
00000460  64 69 73 68 65 73 2c 73  68 6f 70 73 20 61 6e 64  |dishes,shops and|
00000470  20 73 65 72 76 69 63 65  73 2c 66 6f 6f 64 20 69  | services,food i|
00000480  74 65 6d 73 2c 72 65 73  74 61 75 72 61 6e 74 73  |tems,restaurants|
00000490  0d 02 44 9a dc 20 61 70  6f 6c 6f 67 69 73 69 6e  |..D.. apologisin|
000004a0  67 20 61 6e 64 20 65 78  63 75 73 65 73 2c 22 63  |g and excuses,"c|
000004b0  6f 6d 70 6c 61 69 6e 74  73 2c 20 70 72 6f 62 6c  |omplaints, probl|
000004c0  65 6d 73 20 61 6e 64 20  64 69 73 61 70 70 72 6f  |ems and disappro|
000004d0  76 61 6c 22 2c 22 6c 69  6b 65 73 2c 20 64 69 73  |val","likes, dis|
000004e0  6c 69 6b 65 73 2c 20 76  6f 69 63 69 6e 67 20 61  |likes, voicing a|
000004f0  6e 67 65 72 20 61 6e 64  20 65 78 61 73 70 65 72  |nger and exasper|
00000500  61 74 69 6f 6e 22 2c 22  69 6e 76 69 74 69 6e 67  |ation","inviting|
00000510  2c 20 72 65 66 75 73 69  6e 67 20 61 6e 64 20 66  |, refusing and f|
00000520  6f 72 62 69 64 64 69 6e  67 22 0d 02 4e 21 dc 20  |orbidding"..N!. |
00000530  73 70 6f 72 74 73 2c 73  70 6f 72 74 73 2c 6d 75  |sports,sports,mu|
00000540  73 69 63 2c 68 6f 62 62  69 65 73 0d 02 58 25 dc  |sic,hobbies..X%.|
00000550  20 73 70 6f 72 74 73 2c  6d 75 73 69 63 2c 70 61  | sports,music,pa|
00000560  73 74 69 6d 65 73 2c 67  6f 69 6e 67 20 6f 75 74  |stimes,going out|
00000570  0d 02 62 25 dc 20 73 70  6f 72 74 73 2c 6d 75 73  |..b%. sports,mus|
00000580  69 63 2c 70 61 73 74 69  6d 65 73 2c 67 6f 69 6e  |ic,pastimes,goin|
00000590  67 20 6f 75 74 0d 02 6c  3e dc 20 22 66 61 69 72  |g out..l>. "fair|
000005a0  65 2c 20 61 6c 6c 65 72  22 2c 22 70 6f 75 76 6f  |e, aller","pouvo|
000005b0  69 72 2c 20 64 65 76 6f  69 72 22 2c 72 65 67 75  |ir, devoir",regu|
000005c0  6c 61 72 20 27 65 72 27  2c 72 65 66 6c 65 78 69  |lar 'er',reflexi|
000005d0  76 65 73 0d 02 76 54 dc  20 64 69 72 65 63 74 20  |ves..vT. direct |
000005e0  6f 62 6a 65 63 74 20 70  72 6f 6e 6f 75 6e 73 2c  |object pronouns,|
000005f0  69 6e 64 69 72 65 63 74  20 6f 62 6a 65 63 74 20  |indirect object |
00000600  70 72 6f 6e 6f 75 6e 73  2c 27 79 27 20 61 6e 64  |pronouns,'y' and|
00000610  20 27 65 6e 27 2c 65 6d  70 68 61 74 69 63 20 70  | 'en',emphatic p|
00000620  72 6f 6e 6f 75 6e 73 0d  02 80 48 dc 20 70 65 72  |ronouns...H. per|
00000630  66 65 63 74 20 74 65 6e  73 65 2c 69 6d 70 65 72  |fect tense,imper|
00000640  66 65 63 74 20 74 65 6e  73 65 2c 70 6c 75 70 65  |fect tense,plupe|
00000650  72 66 65 63 74 20 74 65  6e 73 65 2c 70 61 73 74  |rfect tense,past|
00000660  20 68 69 73 74 6f 72 69  63 20 74 65 6e 73 65 0d  | historic tense.|
00000670  02 8a 32 dc 20 66 65 6d  61 6c 65 20 72 65 6c 61  |..2. female rela|
00000680  74 69 76 65 73 2c 6d 61  6c 65 20 72 65 6c 61 74  |tives,male relat|
00000690  69 76 65 73 2c 70 65 74  73 2c 63 6f 6c 6f 75 72  |ives,pets,colour|
000006a0  73 0d 02 94 46 dc 20 70  61 72 74 73 20 6f 66 20  |s...F. parts of |
000006b0  74 68 65 20 62 6f 64 79  2c 66 65 61 74 75 72 65  |the body,feature|
000006c0  73 2f 66 61 63 65 2c 69  6c 6c 6e 65 73 73 2f 68  |s/face,illness/h|
000006d0  65 61 6c 74 68 2c 73 70  65 63 69 61 6c 20 6f 63  |ealth,special oc|
000006e0  63 61 73 69 6f 6e 73 0d  02 9e 4d dc 20 70 68 79  |casions...M. phy|
000006f0  73 69 63 61 6c 20 64 65  73 63 72 69 70 74 69 6f  |sical descriptio|
00000700  6e 2c 70 65 72 73 6f 6e  61 6c 69 74 79 2c 66 61  |n,personality,fa|
00000710  6d 69 6c 79 20 73 74 61  74 75 73 20 61 6e 64 20  |mily status and |
00000720  72 65 6c 69 67 69 6f 6e  2c 6e 61 74 69 6f 6e 61  |religion,nationa|
00000730  6c 69 74 79 0d 02 a8 61  dc 20 66 61 6d 69 6c 79  |lity...a. family|
00000740  20 61 6e 64 20 73 70 65  63 69 61 6c 20 6f 63 63  | and special occ|
00000750  61 73 69 6f 6e 73 2c 22  69 6c 6c 6e 65 73 73 2c  |asions,"illness,|
00000760  20 68 65 61 6c 74 68 20  61 6e 64 20 64 69 65 74  | health and diet|
00000770  22 2c 66 69 6e 64 69 6e  67 20 6f 70 70 6f 73 69  |",finding opposi|
00000780  74 65 73 2c 66 69 6e 64  69 6e 67 20 6f 70 70 6f  |tes,finding oppo|
00000790  73 69 74 65 73 0d 02 b2  2b dc 20 61 64 6a 65 63  |sites...+. adjec|
000007a0  74 69 76 65 73 2c 61 64  6a 65 63 74 69 76 65 73  |tives,adjectives|
000007b0  2c 61 64 76 65 72 62 73  2c 61 64 76 65 72 62 73  |,adverbs,adverbs|
000007c0  0d 02 bc 4d dc 20 66 69  6e 64 20 74 68 65 20 6e  |...M. find the n|
000007d0  6f 75 6e 2c 66 69 6e 64  20 74 68 65 20 76 65 72  |oun,find the ver|
000007e0  62 2c 66 69 6e 64 20 74  68 65 20 61 64 6a 65 63  |b,find the adjec|
000007f0  74 69 76 65 2c 66 69 6e  64 20 74 68 65 20 70 61  |tive,find the pa|
00000800  73 74 20 70 61 72 74 69  63 69 70 6c 65 0d 02 c6  |st participle...|
00000810  33 dc 20 70 6c 61 63 65  73 20 69 6e 20 74 6f 77  |3. places in tow|
00000820  6e 2c 70 6c 61 63 65 73  20 69 6e 20 74 6f 77 6e  |n,places in town|
00000830  2c 66 75 72 6e 69 74 75  72 65 2c 73 68 6f 70 73  |,furniture,shops|
00000840  0d 02 d0 56 dc 20 22 77  68 6f 6c 65 20 68 6f 75  |...V. "whole hou|
00000850  72 73 2c 20 68 61 6c 66  20 68 6f 75 72 73 20 61  |rs, half hours a|
00000860  6e 64 20 71 75 61 72 74  65 72 20 70 61 73 74 22  |nd quarter past"|
00000870  2c 61 6c 6c 20 74 69 6d  65 73 2c 32 34 20 68 6f  |,all times,24 ho|
00000880  75 72 20 63 6c 6f 63 6b  2c 32 34 20 68 6f 75 72  |ur clock,24 hour|
00000890  20 63 6c 6f 63 6b 0d 02  da 3f dc 20 67 69 76 69  | clock...?. givi|
000008a0  6e 67 20 64 69 72 65 63  74 69 6f 6e 73 2c 67 69  |ng directions,gi|
000008b0  76 69 6e 67 20 64 69 72  65 63 74 69 6f 6e 73 2c  |ving directions,|
000008c0  73 74 61 74 69 6f 6e 20  73 69 67 6e 73 2c 77 65  |station signs,we|
000008d0  61 74 68 65 72 0d 02 e4  55 dc 20 67 65 6f 67 72  |ather...U. geogr|
000008e0  61 70 68 79 20 6f 66 20  46 72 61 6e 63 65 2c 67  |aphy of France,g|
000008f0  65 6f 67 72 61 70 68 79  20 6f 66 20 46 72 61 6e  |eography of Fran|
00000900  63 65 2c 67 65 6f 67 72  61 70 68 79 20 6f 66 20  |ce,geography of |
00000910  46 72 61 6e 63 65 2c 67  65 6f 67 72 61 70 68 79  |France,geography|
00000920  20 6f 66 20 46 72 61 6e  63 65 0d 02 ee 43 dc 20  | of France...C. |
00000930  72 65 67 75 6c 61 72 20  76 65 72 62 73 2c 69 72  |regular verbs,ir|
*
00000960  72 65 67 75 6c 61 72 20  76 65 72 62 73 0d 02 f8  |regular verbs...|
00000970  1f dc 20 73 6c 61 6e 67  2c 73 6c 61 6e 67 2c 69  |.. slang,slang,i|
00000980  64 69 6f 6d 73 2c 69 64  69 6f 6d 73 0d 03 02 4b  |dioms,idioms...K|
00000990  dc 20 73 63 68 6f 6f 6c  20 73 75 62 6a 65 63 74  |. school subject|
000009a0  73 2c 63 6c 61 73 73 72  6f 6f 6d 20 6f 62 6a 65  |s,classroom obje|
000009b0  63 74 73 2c 73 63 68 6f  6f 6c 20 66 61 63 69 6c  |cts,school facil|
000009c0  69 74 69 65 73 2c 63 6c  61 73 73 72 6f 6f 6d 20  |ities,classroom |
000009d0  6f 62 6a 65 63 74 73 0d  03 0c 83 dc 20 73 63 68  |objects..... sch|
000009e0  6f 6f 6c 20 73 75 62 6a  65 63 74 73 20 2d 20 6c  |ool subjects - l|
000009f0  65 20 6c 61 20 6c 27 20  6c 65 73 2c 63 6c 61 73  |e la l' les,clas|
00000a00  73 72 6f 6f 6d 20 6f 62  6a 65 63 74 73 20 2d 20  |sroom objects - |
00000a10  75 6e 20 75 6e 65 20 64  65 73 2c 73 63 68 6f 6f  |un une des,schoo|
00000a20  6c 20 66 61 63 69 6c 69  74 69 65 73 20 2d 20 6c  |l facilities - l|
00000a30  65 20 6c 61 20 6c 27 20  6c 65 73 2c 63 6c 61 73  |e la l' les,clas|
00000a40  73 72 6f 6f 6d 20 6f 62  6a 65 63 74 73 20 2d 20  |sroom objects - |
00000a50  75 6e 20 75 6e 65 20 64  65 73 0d 03 16 30 dc 20  |un une des...0. |
00000a60  6d 6f 6e 20 6d 61 20 6d  65 73 2c 74 6f 6e 20 74  |mon ma mes,ton t|
00000a70  61 20 74 65 73 2c 73 6f  6e 20 73 61 20 73 65 73  |a tes,son sa ses|
00000a80  2c 6e 6f 74 72 65 20 6e  6f 73 0d 03 20 4f dc 20  |,notre nos.. O. |
00000a90  73 63 68 6f 6f 6c 20 73  75 62 6a 65 63 74 73 2f  |school subjects/|
00000aa0  72 6f 6f 6d 73 2c 6a 6f  62 73 20 61 6e 64 20 63  |rooms,jobs and c|
00000ab0  61 72 65 65 72 73 2c 63  6c 61 73 73 72 6f 6f 6d  |areers,classroom|
00000ac0  20 6f 62 6a 65 63 74 73  2c 6a 6f 62 73 20 61 6e  | objects,jobs an|
00000ad0  64 20 63 61 72 65 65 72  73 0d 03 2a 55 dc 20 66  |d careers..*U. f|
00000ae0  75 74 75 72 65 20 70 6c  61 6e 73 2c 66 75 74 75  |uture plans,futu|
00000af0  72 65 20 70 6c 61 6e 73  2c 66 75 74 75 72 65 20  |re plans,future |
00000b00  70 6c 61 6e 73 20 28 69  6e 66 69 6e 69 74 69 76  |plans (infinitiv|
00000b10  65 73 29 2c 66 75 74 75  72 65 20 70 6c 61 6e 73  |es),future plans|
00000b20  20 28 69 6e 66 69 6e 69  74 69 76 65 73 29 0d 03  | (infinitives)..|
00000b30  34 46 dc 20 69 6e 66 69  6e 69 74 69 76 65 73 2c  |4F. infinitives,|
00000b40  72 65 6c 61 74 69 76 65  20 70 72 6f 6e 6f 75 6e  |relative pronoun|
00000b50  73 20 71 75 69 20 71 75  65 2c 6e 65 67 61 74 69  |s qui que,negati|
00000b60  76 65 73 2c 61 66 74 65  72 20 68 61 76 69 6e 67  |ves,after having|
00000b70  20 2e 2e 2e 0d 03 3e 34  dc 20 64 61 79 73 2c 6d  | .....>4. days,m|
00000b80  6f 6e 74 68 73 2c 6e 75  6d 62 65 72 73 20 31 2d  |onths,numbers 1-|
00000b90  32 30 2c 6e 75 6d 62 65  72 73 20 69 6e 20 74 65  |20,numbers in te|
00000ba0  6e 73 20 30 2d 31 30 30  0d 03 48 35 dc 20 63 6f  |ns 0-100..H5. co|
00000bb0  75 6e 74 72 69 65 73 2c  61 63 63 6f 6d 6d 6f 64  |untries,accommod|
00000bc0  61 74 69 6f 6e 2c 74 72  61 6e 73 70 6f 72 74 2c  |ation,transport,|
00000bd0  68 6f 6c 69 64 61 79 20  69 74 65 6d 73 0d 03 52  |holiday items..R|
00000be0  2b dc 20 77 65 61 74 68  65 72 2c 68 6f 74 65 6c  |+. weather,hotel|
00000bf0  2c 63 61 6d 70 73 69 74  65 2c 74 6f 75 72 69 73  |,campsite,touris|
00000c00  74 20 6f 66 66 69 63 65  0d 03 5c 8c dc 20 70 65  |t office..\.. pe|
00000c10  72 66 65 63 74 20 74 65  6e 73 65 20 77 69 74 68  |rfect tense with|
00000c20  20 27 61 76 6f 69 72 27  20 72 65 67 75 6c 61 72  | 'avoir' regular|
00000c30  2c 70 65 72 66 65 63 74  20 74 65 6e 73 65 20 77  |,perfect tense w|
00000c40  69 74 68 20 27 61 76 6f  69 72 27 20 69 72 72 65  |ith 'avoir' irre|
00000c50  67 75 6c 61 72 2c 22 70  65 72 66 65 63 74 20 74  |gular,"perfect t|
00000c60  65 6e 73 65 20 77 69 74  68 20 27 ea 74 72 65 27  |ense with '.tre'|
00000c70  22 2c 70 65 72 66 65 63  74 20 74 65 6e 73 65 20  |",perfect tense |
00000c80  77 69 74 68 20 72 65 66  6c 65 78 69 76 65 20 76  |with reflexive v|
00000c90  65 72 62 73 0d 03 66 46  dc 20 68 6f 6c 69 64 61  |erbs..fF. holida|
00000ca0  79 73 20 70 61 73 74 2c  68 6f 6c 69 64 61 79 73  |ys past,holidays|
00000cb0  20 70 61 73 74 2c 70 6f  73 74 20 63 61 72 64 73  | past,post cards|
00000cc0  2c 70 6c 61 6e 73 20 66  6f 72 20 66 75 74 75 72  |,plans for futur|
00000cd0  65 20 68 6f 6c 69 64 61  79 73 0d 03 70 4a dc 20  |e holidays..pJ. |
00000ce0  74 6f 75 72 69 73 74 20  6f 66 66 69 63 65 2c 62  |tourist office,b|
00000cf0  6f 6f 6b 69 6e 67 20 61  63 63 6f 6d 6f 64 61 74  |ooking accomodat|
00000d00  69 6f 6e 2c 68 6f 6c 69  64 61 79 20 63 6f 6d 70  |ion,holiday comp|
00000d10  6c 61 69 6e 74 73 2c 6c  6f 73 74 20 70 72 6f 70  |laints,lost prop|
00000d20  65 72 74 79 0d 03 7a 1e  dc 20 31 2c 32 2f 33 2c  |erty..z.. 1,2/3,|
00000d30  33 2f 34 2c 35 2f 36 2c  36 2f 37 2c 38 2f 39 2f  |3/4,5/6,6/7,8/9/|
00000d40  31 30 0d 03 84 0c dd f2  6d 6f 75 73 65 31 0d 03  |10......mouse1..|
00000d50  8e 14 c8 97 20 fb 20 31  2c 32 35 35 2c 32 35 35  |.... . 1,255,255|
00000d60  2c 30 0d 03 98 12 c8 97  20 fb 20 32 2c 32 35 35  |,0...... . 2,255|
00000d70  2c 30 2c 30 0d 03 a2 16  c8 97 20 fb 20 33 2c 31  |,0,0...... . 3,1|
00000d80  39 32 2c 31 39 32 2c 31  39 32 0d 03 ac 0a c8 97  |92,192,192......|
00000d90  20 ee 20 31 0d 03 b6 05  e1 0d 03 c0 1b dd a4 61  | . 1...........a|
00000da0  72 65 61 28 78 31 25 2c  79 31 25 2c 78 32 25 2c  |rea(x1%,y1%,x2%,|
00000db0  79 32 25 29 0d 03 ca 1b  e7 6d 6f 78 25 3c 78 31  |y2%).....mox%<x1|
00000dc0  25 20 84 20 6d 6f 78 25  3e 78 32 25 3a 3d a3 0d  |% . mox%>x2%:=..|
00000dd0  03 d4 1b e7 6d 6f 79 25  3c 79 31 25 20 84 20 6d  |....moy%<y1% . m|
00000de0  6f 79 25 3e 79 32 25 3a  3d a3 0d 03 de 06 3d b9  |oy%>y2%:=.....=.|
00000df0  0d 03 e8 15 dd f2 6d 6f  75 73 65 69 6c 6c 75 6d  |......mouseillum|
00000e00  69 6e 61 74 65 0d 03 f2  15 c8 97 20 6d 6f 78 25  |inate...... mox%|
00000e10  2c 6d 6f 79 25 2c 62 75  74 25 0d 03 fc 16 62 6f  |,moy%,but%....bo|
00000e20  78 25 3d 28 6d 6f 79 25  2d 31 30 30 29 3e 3e 36  |x%=(moy%-100)>>6|
00000e30  0d 04 06 12 e7 62 6f 78  25 3c 30 3a 62 6f 78 25  |.....box%<0:box%|
00000e40  3d 30 0d 04 10 14 e7 62  6f 78 25 3e 31 31 3a 62  |=0.....box%>11:b|
00000e50  6f 78 25 3d 31 31 0d 04  1a 38 e7 62 6f 78 25 3c  |ox%=11...8.box%<|
00000e60  3e 73 75 6e 25 3a c8 96  3a f2 73 71 72 28 73 75  |>sun%:..:.sqr(su|
00000e70  6e 25 2c 31 31 29 3a f2  73 71 72 28 62 6f 78 25  |n%,11):.sqr(box%|
00000e80  2c 31 35 29 3a 73 75 6e  25 3d 62 6f 78 25 0d 04  |,15):sun%=box%..|
00000e90  24 1e e7 ac a4 61 72 65  61 28 37 30 34 2c 31 30  |$....area(704,10|
00000ea0  34 2c 38 36 34 2c 38 36  38 29 20 8c 0d 04 2e 11  |4,864,868) .....|
00000eb0  f2 73 71 72 28 62 6f 78  25 2c 31 31 29 0d 04 38  |.sqr(box%,11)..8|
00000ec0  0d e7 62 6f 78 25 3c 35  20 8c 0d 04 42 13 62 6f  |..box%<5 ...B.bo|
00000ed0  78 25 3d 31 31 3a 73 75  6e 25 3d 31 30 0d 04 4c  |x%=11:sun%=10..L|
00000ee0  05 cc 0d 04 56 11 62 6f  78 25 3d 30 3a 73 75 6e  |....V.box%=0:sun|
00000ef0  25 3d 31 0d 04 60 05 cd  0d 04 6a 09 f2 74 69 64  |%=1..`....j..tid|
00000f00  79 0d 04 74 05 cc 0d 04  7e 13 e7 66 72 6e 25 3a  |y..t....~..frn%:|
00000f10  f2 6c 6f 6e 67 6d 65 6e  75 0d 04 88 05 cd 0d 04  |.longmenu.......|
00000f20  92 27 e7 62 75 74 25 3d  30 20 84 20 ac a4 61 72  |.'.but%=0 . ..ar|
00000f30  65 61 28 37 30 34 2c 31  30 34 2c 38 36 34 2c 38  |ea(704,104,864,8|
00000f40  36 38 29 3a e1 0d 04 9c  07 ef 20 37 0d 04 a6 0d  |68):...... 7....|
00000f50  c8 8e 20 62 6f 78 25 20  ca 0d 04 b0 11 c9 20 30  |.. box% ...... 0|
00000f60  20 3a f2 64 65 73 6b 74  6f 70 0d 04 ba 1a c9 20  | :.desktop..... |
00000f70  31 20 3a f2 70 72 69 6e  74 63 65 72 74 69 66 69  |1 :.printcertifi|
00000f80  63 61 74 65 0d 04 c4 10  c9 20 32 20 3a f2 64 65  |cate..... 2 :.de|
00000f90  6c 65 74 65 0d 04 ce 10  c9 20 33 20 3a f2 63 72  |lete..... 3 :.cr|
00000fa0  65 61 74 65 0d 04 d8 0e  c9 20 34 20 3a f2 6c 6f  |eate..... 4 :.lo|
00000fb0  61 64 0d 04 e2 15 c9 20  35 20 3a f2 76 69 65 77  |ad..... 5 :.view|
00000fc0  61 63 68 69 65 76 65 0d  04 ec 17 c9 20 36 20 3a  |achieve..... 6 :|
00000fd0  f2 72 75 6e 28 22 53 74  6f 6e 65 73 22 29 0d 04  |.run("Stones")..|
00000fe0  f6 17 c9 20 37 20 3a f2  72 75 6e 28 22 52 65 73  |... 7 :.run("Res|
00000ff0  63 75 65 22 29 0d 05 00  17 c9 20 38 20 3a f2 72  |cue")..... 8 :.r|
00001000  75 6e 28 22 4c 69 6e 6b  55 70 22 29 0d 05 0a 1b  |un("LinkUp")....|
00001010  c9 20 39 20 3a f2 72 75  6e 28 22 57 6f 72 64 53  |. 9 :.run("WordS|
00001020  65 61 72 63 68 22 29 0d  05 14 16 c9 20 31 30 3a  |earch")..... 10:|
00001030  f2 72 75 6e 28 22 54 6f  77 65 72 22 29 0d 05 1e  |.run("Tower")...|
00001040  17 c9 20 31 31 3a f2 72  75 6e 28 22 54 68 65 43  |.. 11:.run("TheC|
00001050  6f 70 22 29 0d 05 28 05  cb 0d 05 32 1c e7 73 75  |op")..(....2..su|
00001060  6e 25 3c 31 31 20 73 75  6e 25 3d 31 31 20 8b 73  |n%<11 sun%=11 .s|
00001070  75 6e 25 3d 30 0d 05 3c  0e f2 7a 65 72 6f 6d 6f  |un%=0..<..zeromo|
00001080  75 73 65 0d 05 46 09 f2  6d 65 6e 75 0d 05 50 05  |use..F..menu..P.|
00001090  e1 0d 05 5a 10 dd f2 72  75 6e 28 67 61 6d 65 24  |...Z...run(game$|
000010a0  29 0d 05 64 08 c8 97 20  87 0d 05 6e 14 c8 99 22  |)..d... ...n..."|
000010b0  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 0d 05 78  |Hourglass_On"..x|
000010c0  14 c8 99 22 41 42 43 5f  42 6c 61 6e 6b 22 2c 31  |..."ABC_Blank",1|
000010d0  35 0d 05 82 15 c8 99 22  41 42 43 5f 43 6f 6c 6f  |5......"ABC_Colo|
000010e0  75 72 22 2c 31 35 0d 05  8c 10 f2 63 6f 6e 66 69  |ur",15.....confi|
000010f0  6c 65 73 61 76 65 0d 05  96 0e d7 20 66 24 2b 67  |lesave..... f$+g|
00001100  61 6d 65 24 0d 05 a0 05  e1 0d 05 aa 14 dd f2 73  |ame$...........s|
00001110  71 72 28 77 63 68 25 2c  63 6f 6c 25 29 0d 05 b4  |qr(wch%,col%)...|
00001120  0c e6 20 30 2c 63 6f 6c  25 0d 05 be 1f c8 93 c8  |.. 0,col%.......|
00001130  90 20 37 30 36 2c 77 63  68 25 2a 36 34 2b 31 30  |. 706,wch%*64+10|
00001140  30 2c 31 35 36 2c 35 38  0d 05 c8 05 e1 0d 05 d2  |0,156,58........|
00001150  0a dd f2 6d 65 6e 75 0d  05 dc 08 c8 97 20 87 0d  |...menu...... ..|
00001160  05 e6 10 c8 97 20 b8 20  36 34 30 2c 35 31 32 0d  |..... . 640,512.|
00001170  05 f0 14 c8 99 22 41 42  43 5f 42 6c 61 6e 6b 22  |....."ABC_Blank"|
00001180  2c 31 35 0d 05 fa 15 c8  99 22 41 42 43 5f 43 6f  |,15......"ABC_Co|
00001190  6c 6f 75 72 22 2c 31 35  0d 06 04 0b 69 6e 6a 25  |lour",15....inj%|
000011a0  3d 37 32 0d 06 0e 0a 6f  6d 79 25 3d 31 0d 06 18  |=72....omy%=1...|
000011b0  0a 74 78 74 25 3d 31 0d  06 22 09 64 24 3d 22 22  |.txt%=1..".d$=""|
000011c0  0d 06 2c 4a e7 66 72 6e  25 20 f2 63 61 72 64 28  |..,J.frn% .card(|
000011d0  22 46 52 41 4e 43 41 49  53 20 4d 45 4e 55 22 2c  |"FRANCAIS MENU",|
000011e0  32 34 2c 36 2c 32 2c 31  32 29 20 8b f2 63 61 72  |24,6,2,12) ..car|
000011f0  64 28 22 46 52 45 4e 43  48 20 4d 45 4e 55 22 2c  |d("FRENCH MENU",|
00001200  32 34 2c 36 2c 32 2c 31  32 29 0d 06 36 0d f2 66  |24,6,2,12)..6..f|
00001210  69 6c 6c 6d 65 6e 75 0d  06 40 0c f2 63 75 72 72  |illmenu..@..curr|
00001220  65 6e 74 0d 06 4a 0f f2  72 65 63 74 61 6e 67 6c  |ent..J..rectangl|
00001230  65 73 0d 06 54 0d f2 63  6f 6e 74 65 6e 74 73 0d  |es..T..contents.|
00001240  06 5e 13 c8 99 22 41 42  43 5f 50 61 6c 65 74 74  |.^..."ABC_Palett|
00001250  65 22 0d 06 68 17 c8 97  20 c8 93 20 30 2c 30 2c  |e"..h... .. 0,0,|
00001260  31 32 38 30 2c 31 30 32  34 0d 06 72 10 c8 97 20  |1280,1024..r... |
00001270  b8 20 36 34 30 2c 35 31  32 0d 06 7c 0b f2 6d 6f  |. 640,512..|..mo|
00001280  75 73 65 31 0d 06 86 05  e1 0d 06 90 0e dd f2 66  |use1...........f|
00001290  69 6c 6c 6d 65 6e 75 0d  06 9a 07 ef 20 35 0d 06  |illmenu..... 5..|
000012a0  a4 09 e6 20 30 2c 30 0d  06 ae 18 e7 66 72 6e 25  |... 0,0.....frn%|
000012b0  20 f7 20 8d 44 76 47 20  8b f7 20 8d 44 58 47 0d  | . .DvG .. .DXG.|
000012c0  06 b8 0b e3 4a 25 3d 30  b8 35 0d 06 c2 08 f3 20  |....J%=0.5..... |
000012d0  73 24 0d 06 cc 13 ec 20  34 30 30 2c 38 34 34 2d  |s$..... 400,844-|
000012e0  4a 25 2a 36 34 0d 06 d6  17 e7 66 72 6e 25 20 f1  |J%*64.....frn% .|
000012f0  c0 73 24 2c 31 37 29 20  8b f1 73 24 0d 06 e0 0f  |.s$,17) ..s$....|
00001300  6d 6e 75 24 28 4a 25 29  3d 73 24 0d 06 ea 05 ed  |mnu$(J%)=s$.....|
00001310  0d 06 f4 0a e6 20 30 2c  31 34 0d 06 fe 0c e3 4a  |..... 0,14.....J|
00001320  25 3d 36 b8 31 31 0d 07  08 08 f3 20 73 24 0d 07  |%=6.11..... s$..|
00001330  12 13 ec 20 34 30 30 2c  38 34 34 2d 4a 25 2a 36  |... 400,844-J%*6|
00001340  34 0d 07 1c 17 e7 66 72  6e 25 20 f1 c0 73 24 2c  |4.....frn% ..s$,|
00001350  31 37 29 20 8b f1 73 24  0d 07 26 0f 6d 6e 75 24  |17) ..s$..&.mnu$|
00001360  28 4a 25 29 3d 73 24 0d  07 30 05 ed 0d 07 3a 07  |(J%)=s$..0....:.|
00001370  ef 20 34 0d 07 44 05 87  0d 07 4e 05 e1 0d 07 58  |. 4..D....N....X|
00001380  35 dc 20 54 68 65 20 43  6f 70 2c 54 6f 77 65 72  |5. The Cop,Tower|
00001390  2c 57 6f 72 64 20 53 65  61 72 63 68 2c 4c 69 6e  |,Word Search,Lin|
000013a0  6b 20 55 70 2c 52 65 73  63 75 65 2c 53 74 6f 6e  |k Up,Rescue,Ston|
000013b0  65 73 0d 07 62 3f dc 20  50 6c 61 79 65 72 20 69  |es..b?. Player i|
000013c0  6e 66 6f 72 6d 61 74 69  6f 6e 2c 43 68 61 6e 67  |nformation,Chang|
000013d0  65 20 70 6c 61 79 65 72  2c 4e 65 77 20 70 6c 61  |e player,New pla|
000013e0  79 65 72 2c 52 65 6d 6f  76 65 20 70 6c 61 79 65  |yer,Remove playe|
000013f0  72 0d 07 6c 1c dc 20 50  72 69 6e 74 20 63 65 72  |r..l.. Print cer|
00001400  74 69 66 69 63 61 74 65  2c 51 75 69 74 0d 07 76  |tificate,Quit..v|
00001410  45 dc 20 4c 65 20 46 6c  69 63 2c 4c 61 20 54 6f  |E. Le Flic,La To|
00001420  75 72 2c 4c 65 20 50 75  7a 7a 6c 65 2c 4c 65 20  |ur,Le Puzzle,Le |
00001430  4a 75 6d 65 6c 61 67 65  2c 22 4c 61 20 46 75 73  |Jumelage,"La Fus|
00001440  e9 65 22 2c 4c 61 20 42  6f 6e 6e 65 20 52 6f 75  |.e",La Bonne Rou|
00001450  74 65 0d 07 80 57 dc 20  49 6e 66 6f 72 6d 61 74  |te...W. Informat|
00001460  69 6f 6e 20 70 6f 75 72  20 6c 65 73 20 6a 6f 75  |ion pour les jou|
00001470  65 75 72 2c 43 68 61 6e  67 65 6d 65 6e 74 20 64  |eur,Changement d|
00001480  65 20 6a 6f 75 65 75 72  2c 4e 6f 75 76 65 61 75  |e joueur,Nouveau|
00001490  20 6a 6f 75 65 75 72 2c  45 66 66 61 63 65 72 20  | joueur,Effacer |
000014a0  6c 65 20 6a 6f 75 65 75  72 0d 07 8a 24 dc 20 49  |le joueur...$. I|
000014b0  6d 70 72 69 6d 65 72 20  6c 65 20 63 65 72 74 69  |mprimer le certi|
000014c0  66 69 63 61 74 2c 51 75  69 74 74 65 72 0d 07 94  |ficat,Quitter...|
000014d0  11 dd f2 61 63 68 69 65  76 65 63 61 72 64 0d 07  |...achievecard..|
000014e0  9e 08 c8 97 20 87 0d 07  a8 14 c8 99 22 41 42 43  |.... ......."ABC|
000014f0  5f 42 6c 61 6e 6b 22 2c  31 35 0d 07 b2 15 c8 99  |_Blank",15......|
00001500  22 41 42 43 5f 43 6f 6c  6f 75 72 22 2c 31 35 0d  |"ABC_Colour",15.|
00001510  07 bc 16 61 24 3d a4 73  74 72 69 70 28 61 74 74  |...a$=.strip(att|
00001520  65 6e 64 24 29 0d 07 c6  0c e7 61 24 3d 22 22 20  |end$).....a$="" |
00001530  8c 0d 07 d0 1f e7 66 72  6e 25 20 61 24 3d 22 56  |......frn% a$="V|
00001540  69 64 65 22 20 8b 61 24  3d 22 45 6d 70 74 79 22  |ide" .a$="Empty"|
00001550  0d 07 da 05 cd 0d 07 e4  7b e7 66 72 6e 25 20 f2  |........{.frn% .|
00001560  6e 65 77 63 61 72 64 28  61 24 2b 22 20 3a 20 47  |newcard(a$+" : G|
00001570  72 69 6c 6c 65 20 64 27  45 76 61 6c 75 61 74 69  |rille d'Evaluati|
00001580  6f 6e 20 31 30 2f 31 30  20 46 72 61 6e e7 61 69  |on 10/10 Fran.ai|
00001590  73 22 2c 38 2c 31 33 29  20 8b f2 6e 65 77 63 61  |s",8,13) ..newca|
000015a0  72 64 28 61 24 2b 22 20  3a 20 41 63 68 69 65 76  |rd(a$+" : Achiev|
000015b0  65 6d 65 6e 74 20 52 65  63 6f 72 64 20 31 30 2f  |ement Record 10/|
000015c0  31 30 20 46 72 65 6e 63  68 22 2c 38 2c 31 33 29  |10 French",8,13)|
000015d0  0d 07 ee 10 f2 66 69 6c  6c 61 63 68 69 65 76 65  |.....fillachieve|
000015e0  0d 07 f8 10 c8 97 20 b8  20 36 34 30 2c 35 31 32  |...... . 640,512|
000015f0  0d 08 02 13 c8 99 22 41  42 43 5f 50 61 6c 65 74  |......"ABC_Palet|
00001600  74 65 22 0d 08 0c 0b f2  6d 6f 75 73 65 31 0d 08  |te".....mouse1..|
00001610  16 0a 70 24 3d 22 58 22  0d 08 20 0a 6f 78 78 25  |..p$="X".. .oxx%|
00001620  3d 30 0d 08 2a 0a 6f 79  79 25 3d 30 0d 08 34 0a  |=0..*.oyy%=0..4.|
00001630  6f 7a 7a 25 3d 30 0d 08  3e 0b 2a 46 58 32 31 20  |ozz%=0..>.*FX21 |
00001640  30 0d 08 48 05 e1 0d 08  52 11 dd f2 76 69 65 77  |0..H....R...view|
00001650  61 63 68 69 65 76 65 0d  08 5c 1a c8 97 20 c8 93  |achieve..\... ..|
00001660  20 31 32 38 2c 31 31 36  2c 31 31 35 30 2c 37 36  | 128,116,1150,76|
00001670  34 0d 08 66 10 f2 61 63  68 69 65 76 65 63 61 72  |4..f..achievecar|
00001680  64 0d 08 70 05 f5 0d 08  7a 15 c8 97 20 6d 6f 78  |d..p....z... mox|
00001690  25 2c 6d 6f 79 25 2c 62  75 74 25 0d 08 84 19 63  |%,moy%,but%....c|
000016a0  78 78 25 3d 28 6d 6f 78  25 2d 31 32 38 29 2f 31  |xx%=(mox%-128)/1|
000016b0  39 32 2b 31 0d 08 8e 19  63 79 79 25 3d 28 6d 6f  |92+1....cyy%=(mo|
000016c0  79 25 2d 31 31 36 29 2f  31 32 38 2b 31 0d 08 98  |y%-116)/128+1...|
000016d0  0a 63 7a 7a 25 3d 30 0d  08 a2 14 78 73 63 25 3d  |.czz%=0....xsc%=|
000016e0  63 78 78 25 2a 31 39 32  2d 33 30 0d 08 ac 11 79  |cxx%*192-30....y|
000016f0  73 63 25 3d 63 79 79 25  2a 31 32 38 0d 08 b6 0f  |sc%=cyy%*128....|
00001700  63 79 79 25 3d 37 2d 63  79 79 25 0d 08 c0 52 e7  |cyy%=7-cyy%...R.|
00001710  a4 61 72 65 61 28 78 73  63 25 2c 79 73 63 25 2c  |.area(xsc%,ysc%,|
00001720  78 73 63 25 2b 31 32 36  2c 79 73 63 25 2b 34 30  |xsc%+126,ysc%+40|
00001730  29 20 80 20 61 74 74 25  28 63 78 78 25 2c 63 79  |) . att%(cxx%,cy|
00001740  79 25 2c 30 29 3c 33 3a  63 7a 7a 25 3d 28 6d 6f  |y%,0)<3:czz%=(mo|
00001750  78 25 2d 78 73 63 25 29  2f 33 32 2b 31 0d 08 ca  |x%-xsc%)/32+1...|
00001760  5d e7 63 78 78 25 3c 3e  6f 78 78 25 20 84 20 63  |].cxx%<>oxx% . c|
00001770  79 79 25 3c 3e 6f 79 79  25 20 84 20 63 7a 7a 25  |yy%<>oyy% . czz%|
00001780  3c 3e 6f 7a 7a 25 3a f2  69 6e 66 6f 72 6d 61 74  |<>ozz%:.informat|
00001790  69 6f 6e 28 69 6e 66 6f  24 28 63 78 78 25 2c 63  |ion(info$(cxx%,c|
000017a0  79 79 25 29 2c 73 75 62  24 28 63 78 78 25 2c 63  |yy%),sub$(cxx%,c|
000017b0  79 79 25 2c 63 7a 7a 25  29 29 0d 08 d4 14 f2 61  |yy%,czz%)).....a|
000017c0  63 68 69 65 76 65 64 69  73 63 64 75 6d 70 0d 08  |chievediscdump..|
000017d0  de 15 f2 61 63 68 69 65  76 65 70 72 69 6e 74 64  |...achieveprintd|
000017e0  75 6d 70 0d 08 e8 18 f2  61 6c 6c 61 63 68 69 65  |ump.....allachie|
000017f0  76 65 70 72 69 6e 74 64  75 6d 70 0d 08 f2 0c fd  |veprintdump.....|
00001800  20 a4 6c 65 61 76 65 0d  08 fc 05 e1 0d 09 06 18  | .leave.........|
00001810  dd f2 69 6e 66 6f 72 6d  61 74 69 6f 6e 28 74 24  |..information(t$|
00001820  2c 75 24 29 0d 09 10 1a  e7 75 24 3e 22 22 3a 74  |,u$).....u$>"":t|
00001830  24 2b 3d 22 20 28 22 2b  75 24 2b 22 29 22 0d 09  |$+=" ("+u$+")"..|
00001840  1a 25 e7 6e 69 67 25 3a  74 24 3d 22 4c 6f 41 20  |.%.nig%:t$="LoA |
00001850  22 2b 6e 63 6c 24 28 63  79 79 25 29 2b 22 20 22  |"+ncl$(cyy%)+" "|
00001860  2b 74 24 0d 09 24 0d 6f  78 78 25 3d 63 78 78 25  |+t$..$.oxx%=cxx%|
00001870  0d 09 2e 0d 6f 79 79 25  3d 63 79 79 25 0d 09 38  |....oyy%=cyy%..8|
00001880  0d 6f 7a 7a 25 3d 63 7a  7a 25 0d 09 42 0c e7 70  |.ozz%=czz%..B..p|
00001890  24 3d 74 24 3a e1 0d 09  4c 09 70 24 3d 74 24 0d  |$=t$:...L.p$=t$.|
000018a0  09 56 10 f2 6d 65 73 73  28 74 24 2c 31 31 29 0d  |.V..mess(t$,11).|
000018b0  09 60 05 e1 0d 09 6a 22  dd f2 63 61 72 64 28 74  |.`....j"..card(t|
000018c0  24 2c 74 61 78 25 2c 74  61 79 25 2c 73 64 78 25  |$,tax%,tay%,sdx%|
000018d0  2c 73 64 79 25 29 0d 09  74 07 ef 20 35 0d 09 7e  |,sdy%)..t.. 5..~|
000018e0  09 e6 20 30 2c 38 0d 09  88 2d c8 93 c8 90 20 74  |.. 0,8...-.... t|
000018f0  61 78 25 2a 67 25 2c 74  61 79 25 2a 67 25 2c 73  |ax%*g%,tay%*g%,s|
00001900  64 78 25 2a 31 36 30 2b  31 36 30 2c 73 64 79 25  |dx%*160+160,sdy%|
00001910  2a 36 34 0d 09 92 0a e6  20 30 2c 31 31 0d 09 9c  |*64..... 0,11...|
00001920  31 c8 93 c8 90 20 74 61  78 25 2a 67 25 2b 33 32  |1.... tax%*g%+32|
00001930  30 2c 74 61 79 25 2a 67  25 2c 73 64 78 25 2a 31  |0,tay%*g%,sdx%*1|
00001940  36 30 2d 31 36 32 2c 73  64 79 25 2a 36 34 0d 09  |60-162,sdy%*64..|
00001950  a6 09 e6 20 30 2c 30 0d  09 b0 33 e7 73 64 78 25  |... 0,0...3.sdx%|
00001960  2a 31 36 30 2b 31 36 30  3e 31 32 37 39 20 73 78  |*160+160>1279 sx|
00001970  65 25 3d 31 32 37 38 20  8b 73 78 65 25 3d 73 64  |e%=1278 .sxe%=sd|
00001980  78 25 2a 31 36 30 2b 31  36 30 0d 09 ba 23 c8 93  |x%*160+160...#..|
00001990  20 74 61 78 25 2a 67 25  2c 74 61 79 25 2a 67 25  | tax%*g%,tay%*g%|
000019a0  2c 73 78 65 25 2c 73 64  79 25 2a 36 34 0d 09 c4  |,sxe%,sdy%*64...|
000019b0  0a e6 20 30 2c 31 33 0d  09 ce 23 ec 20 74 61 78  |.. 0,13...#. tax|
000019c0  25 2a 67 25 2b 36 34 2c  74 61 79 25 2a 67 25 2b  |%*g%+64,tay%*g%+|
000019d0  73 64 79 25 2a 36 34 2b  36 34 0d 09 d8 12 f0 20  |sdy%*64+64..... |
000019e0  30 2c a9 28 74 24 29 2a  67 25 2c 30 0d 09 e2 20  |0,.(t$)*g%,0... |
000019f0  f0 20 38 35 2c 74 61 78  25 2a 67 25 2c 74 61 79  |. 85,tax%*g%,tay|
00001a00  25 2a 67 25 2b 73 64 79  25 2a 36 34 0d 09 ec 17  |%*g%+sdy%*64....|
00001a10  f0 20 38 31 2c 31 32 38  2b a9 28 74 24 29 2a 67  |. 81,128+.(t$)*g|
00001a20  25 2c 30 0d 09 f6 09 e6  20 30 2c 30 0d 0a 00 1d  |%,0..... 0,0....|
00001a30  ec 20 74 61 78 25 2a 67  25 2c 74 61 79 25 2a 67  |. tax%*g%,tay%*g|
00001a40  25 2b 73 64 79 25 2a 36  34 0d 0a 0a 0d f0 20 31  |%+sdy%*64..... 1|
00001a50  2c 36 34 2c 36 34 0d 0a  14 12 f0 20 31 2c a9 28  |,64,64..... 1,.(|
00001a60  74 24 29 2a 67 25 2c 30  0d 0a 1e 0e f0 20 31 2c  |t$)*g%,0..... 1,|
00001a70  36 34 2c 2d 36 34 0d 0a  28 23 ec 20 74 61 78 25  |64,-64..(#. tax%|
00001a80  2a 67 25 2b 36 34 2c 74  61 79 25 2a 67 25 2b 73  |*g%+64,tay%*g%+s|
00001a90  64 79 25 2a 36 34 2b 34  34 0d 0a 32 07 f1 74 24  |dy%*64+44..2..t$|
00001aa0  0d 0a 3c 0f e3 4a 25 3d  31 b8 20 73 64 78 25 0d  |..<..J%=1. sdx%.|
00001ab0  0a 46 20 ec 20 74 61 78  25 2a 67 25 2b 4a 25 2a  |.F . tax%*g%+J%*|
00001ac0  31 36 30 2b 31 36 30 2c  74 61 79 25 2a 67 25 0d  |160+160,tay%*g%.|
00001ad0  0a 50 11 f0 20 31 2c 30  2c 73 64 79 25 2a 36 34  |.P.. 1,0,sdy%*64|
00001ae0  0d 0a 5a 05 ed 0d 0a 64  0f e3 4a 25 3d 31 b8 20  |..Z....d..J%=1. |
00001af0  73 64 79 25 0d 0a 6e 1b  ec 20 74 61 78 25 2a 67  |sdy%..n.. tax%*g|
00001b00  25 2c 74 61 79 25 2a 67  25 2b 4a 25 2a 36 34 0d  |%,tay%*g%+J%*64.|
00001b10  0a 78 16 f0 20 31 2c 73  64 78 25 2a 31 36 30 2b  |.x.. 1,sdx%*160+|
00001b20  31 36 30 2c 30 0d 0a 82  05 ed 0d 0a 8c 07 ef 20  |160,0.......... |
00001b30  34 0d 0a 96 05 87 0d 0a  a0 05 e1 0d 0a aa 13 dd  |4...............|
00001b40  f2 63 65 6e 74 28 74 24  2c 74 61 79 25 29 0d 0a  |.cent(t$,tay%)..|
00001b50  b4 19 f1 8a 34 31 2d a9  28 74 24 29 81 32 2c 74  |....41-.(t$).2,t|
00001b60  61 79 25 29 74 24 3b 0d  0a be 05 e1 0d 0a c8 13  |ay%)t$;.........|
00001b70  dd f2 6d 65 73 73 28 74  24 2c 63 6f 6c 25 29 0d  |..mess(t$,col%).|
00001b80  0a d2 0c e6 20 30 2c 63  6f 6c 25 0d 0a dc 07 ef  |.... 0,col%.....|
00001b90  20 35 0d 0a e6 06 c8 96  0d 0a f0 14 c8 93 c8 90  | 5..............|
00001ba0  20 30 2c 30 2c 31 32 37  38 2c 36 34 0d 0a fa 09  | 0,0,1278,64....|
00001bb0  e6 20 30 2c 30 0d 0b 04  12 c8 93 20 30 2c 30 2c  |. 0,0...... 0,0,|
00001bc0  31 32 37 38 2c 36 34 0d  0b 0e 14 ec 20 36 34 30  |1278,64..... 640|
00001bd0  2d a9 28 74 24 29 2a 38  2c 34 34 0d 0b 18 07 f1  |-.(t$)*8,44.....|
00001be0  74 24 0d 0b 22 07 ef 20  34 0d 0b 2c 05 87 0d 0b  |t$..".. 4..,....|
00001bf0  36 05 e1 0d 0b 40 16 dd  f2 70 72 69 6e 74 63 65  |6....@...printce|
00001c00  72 74 69 66 69 63 61 74  65 0d 0b 4a 15 c8 99 22  |rtificate..J..."|
00001c10  41 42 43 5f 43 6f 6c 6f  75 72 22 2c 31 35 0d 0b  |ABC_Colour",15..|
00001c20  54 08 c8 97 20 87 0d 0b  5e 0a 61 63 68 25 3d b9  |T... ...^.ach%=.|
00001c30  0d 0b 68 0b e3 4a 25 3d  31 b8 36 0d 0b 72 0b e3  |..h..J%=1.6..r..|
00001c40  4b 25 3d 31 b8 36 0d 0b  7c 1b e7 61 74 74 25 28  |K%=1.6..|..att%(|
00001c50  4b 25 2c 4a 25 2c 30 29  3e 32 3a 61 63 68 25 3d  |K%,J%,0)>2:ach%=|
00001c60  a3 0d 0b 86 05 ed 0d 0b  90 05 ed 0d 0b 9a 0b e7  |................|
00001c70  61 63 68 25 20 8c 0d 0b  a4 82 e7 66 72 6e 25 20  |ach% ......frn% |
00001c80  f2 6d 65 73 73 28 22 41  75 63 75 6e 65 20 72 e9  |.mess("Aucune r.|
00001c90  75 73 73 69 74 65 20 70  6f 75 72 20 6c 27 69 6e  |ussite pour l'in|
00001ca0  73 74 61 6e 74 20 2d 20  72 65 74 6f 75 72 6e 65  |stant - retourne|
00001cb0  72 20 61 75 20 6d 65 6e  75 22 2c 31 31 29 20 8b  |r au menu",11) .|
00001cc0  f2 6d 65 73 73 28 22 4e  6f 74 68 69 6e 67 20 61  |.mess("Nothing a|
00001cd0  63 68 69 65 76 65 64 20  61 74 20 70 72 65 73 65  |chieved at prese|
00001ce0  6e 74 20 2d 20 72 65 74  75 72 6e 20 74 6f 20 6d  |nt - return to m|
00001cf0  65 6e 75 22 2c 31 31 29  0d 0b ae 0e f2 7a 65 72  |enu",11).....zer|
00001d00  6f 6d 6f 75 73 65 0d 0b  b8 05 f5 0d 0b c2 0c fd  |omouse..........|
00001d10  20 a4 6c 65 61 76 65 0d  0b cc 05 cc 0d 0b d6 09  | .leave.........|
00001d20  f2 62 75 73 79 0d 0b e0  05 f5 0d 0b ea 0c fd 20  |.busy.......... |
00001d30  a4 6c 65 61 76 65 0d 0b  f4 05 cd 0d 0b fe 05 e1  |.leave..........|
00001d40  0d 0c 08 0a dd f2 62 75  73 79 0d 0c 12 1c e7 66  |......busy.....f|
00001d50  72 6e 25 20 f2 66 6f 72  65 69 67 6e 20 8b f2 65  |rn% .foreign ..e|
00001d60  6e 67 6c 69 73 68 0d 0c  1c 05 e1 0d 0c 26 0d dd  |nglish.......&..|
00001d70  f2 65 6e 67 6c 69 73 68  0d 0c 30 2b f2 6d 65 73  |.english..0+.mes|
00001d80  73 28 22 53 63 72 65 65  6e 2f 50 72 69 6e 74 65  |s("Screen/Printe|
00001d90  72 2f 44 69 73 63 20 28  53 2f 50 2f 44 29 22 2c  |r/Disc (S/P/D)",|
00001da0  31 31 29 0d 0c 3a 0b 2a  46 58 32 31 20 30 0d 0c  |11)..:.*FX21 0..|
00001db0  44 05 f5 0d 0c 4e 0b 6b  25 3d a6 28 30 29 0d 0c  |D....N.k%=.(0)..|
00001dc0  58 16 e7 6b 25 3e 3d 97  28 22 61 22 29 3a 6b 25  |X..k%>=.("a"):k%|
00001dd0  2d 3d 33 32 0d 0c 62 2f  fd 20 6b 25 3d 97 28 22  |-=32..b/. k%=.("|
00001de0  53 22 29 20 84 20 6b 25  3d 97 28 22 50 22 29 20  |S") . k%=.("P") |
00001df0  84 20 6b 25 3d 97 28 22  44 22 29 20 84 20 a6 2d  |. k%=.("D") . .-|
00001e00  31 31 33 0d 0c 6c 13 e7  a6 2d 31 31 33 3a f2 66  |113..l...-113:.f|
00001e10  6c 75 73 68 3a e1 0d 0c  76 07 ef 20 37 0d 0c 80  |lush:...v.. 7...|
00001e20  11 e7 6b 25 3c 3e 97 28  22 50 22 29 20 8c 0d 0c  |..k%<>.("P") ...|
00001e30  8a 23 f2 6d 65 73 73 28  22 54 65 78 74 2f 47 72  |.#.mess("Text/Gr|
00001e40  61 70 68 69 63 73 20 28  54 2f 47 29 22 2c 31 31  |aphics (T/G)",11|
00001e50  29 0d 0c 94 05 f5 0d 0c  9e 0b 74 25 3d a6 28 30  |).........t%=.(0|
00001e60  29 0d 0c a8 16 e7 74 25  3e 3d 97 28 22 61 22 29  |).....t%>=.("a")|
00001e70  3a 74 25 2d 3d 33 32 0d  0c b2 23 fd 20 74 25 3d  |:t%-=32...#. t%=|
00001e80  97 28 22 54 22 29 20 84  20 74 25 3d 97 28 22 47  |.("T") . t%=.("G|
00001e90  22 29 20 84 20 a6 2d 31  31 33 0d 0c bc 05 cc 0d  |") . .-113......|
00001ea0  0c c6 0d 74 25 3d 97 28  22 54 22 29 0d 0c d0 05  |...t%=.("T")....|
00001eb0  cd 0d 0c da 13 e7 a6 2d  31 31 33 3a f2 66 6c 75  |.......-113:.flu|
00001ec0  73 68 3a e1 0d 0c e4 2f  e7 74 25 3d 97 28 22 54  |sh:..../.t%=.("T|
00001ed0  22 29 20 f2 61 63 68 69  65 76 65 5f 74 65 78 74  |") .achieve_text|
00001ee0  20 8b f2 61 63 68 69 65  76 65 5f 67 72 61 70 68  | ..achieve_graph|
00001ef0  69 63 73 0d 0c ee 18 e7  6b 25 3d 97 28 22 44 22  |ics.....k%=.("D"|
00001f00  29 3a f2 64 69 73 63 64  75 6d 70 0d 0c f8 1c e7  |):.discdump.....|
00001f10  6b 25 3d 97 28 22 50 22  29 3a f2 70 72 69 6e 74  |k%=.("P"):.print|
00001f20  65 72 5f 64 75 6d 70 0d  0d 02 05 e1 0d 0d 0c 0d  |er_dump.........|
00001f30  dd f2 66 6f 72 65 69 67  6e 0d 0d 16 32 f2 6d 65  |..foreign...2.me|
00001f40  73 73 28 22 45 63 72 61  6e 2f 49 6d 70 72 69 6d  |ss("Ecran/Imprim|
00001f50  61 6e 74 65 2f 44 69 73  71 75 65 74 74 65 20 28  |ante/Disquette (|
00001f60  45 2f 49 2f 44 29 22 2c  31 31 29 0d 0d 20 0b 2a  |E/I/D)",11).. .*|
00001f70  46 58 32 31 20 30 0d 0d  2a 05 f5 0d 0d 34 0b 6b  |FX21 0..*....4.k|
00001f80  25 3d a6 28 30 29 0d 0d  3e 16 e7 6b 25 3e 3d 97  |%=.(0)..>..k%>=.|
00001f90  28 22 61 22 29 3a 6b 25  2d 3d 33 32 0d 0d 48 2f  |("a"):k%-=32..H/|
00001fa0  fd 20 6b 25 3d 97 28 22  45 22 29 20 84 20 6b 25  |. k%=.("E") . k%|
00001fb0  3d 97 28 22 49 22 29 20  84 20 6b 25 3d 97 28 22  |=.("I") . k%=.("|
00001fc0  44 22 29 20 84 20 a6 2d  31 31 33 0d 0d 52 13 e7  |D") . .-113..R..|
00001fd0  a6 2d 31 31 33 3a f2 66  6c 75 73 68 3a e1 0d 0d  |.-113:.flush:...|
00001fe0  5c 07 ef 20 37 0d 0d 66  11 e7 6b 25 3c 3e 97 28  |\.. 7..f..k%<>.(|
00001ff0  22 49 22 29 20 8c 0d 0d  70 22 f2 6d 65 73 73 28  |"I") ...p".mess(|
00002000  22 54 65 78 74 65 2f 69  4d 61 67 65 73 20 28 54  |"Texte/iMages (T|
00002010  2f 4d 29 22 2c 31 31 29  0d 0d 7a 05 f5 0d 0d 84  |/M)",11)..z.....|
00002020  0b 74 25 3d a6 28 30 29  0d 0d 8e 16 e7 74 25 3e  |.t%=.(0).....t%>|
00002030  3d 97 28 22 61 22 29 3a  74 25 2d 3d 33 32 0d 0d  |=.("a"):t%-=32..|
00002040  98 23 fd 20 74 25 3d 97  28 22 54 22 29 20 84 20  |.#. t%=.("T") . |
00002050  74 25 3d 97 28 22 4d 22  29 20 84 20 a6 2d 31 31  |t%=.("M") . .-11|
00002060  33 0d 0d a2 05 cc 0d 0d  ac 0d 74 25 3d 97 28 22  |3.........t%=.("|
00002070  54 22 29 0d 0d b6 05 cd  0d 0d c0 13 e7 a6 2d 31  |T")...........-1|
00002080  31 33 3a f2 66 6c 75 73  68 3a e1 0d 0d ca 2f e7  |13:.flush:..../.|
00002090  74 25 3d 97 28 22 54 22  29 20 f2 61 63 68 69 65  |t%=.("T") .achie|
000020a0  76 65 5f 74 65 78 74 20  8b f2 61 63 68 69 65 76  |ve_text ..achiev|
000020b0  65 5f 67 72 61 70 68 69  63 73 0d 0d d4 18 e7 6b  |e_graphics.....k|
000020c0  25 3d 97 28 22 44 22 29  3a f2 64 69 73 63 64 75  |%=.("D"):.discdu|
000020d0  6d 70 0d 0d de 1c e7 6b  25 3d 97 28 22 49 22 29  |mp.....k%=.("I")|
000020e0  3a f2 70 72 69 6e 74 65  72 5f 64 75 6d 70 0d 0d  |:.printer_dump..|
000020f0  e8 05 e1 0d 0d f2 16 dd  f2 61 63 68 69 65 76 65  |.........achieve|
00002100  5f 67 72 61 70 68 69 63  73 0d 0d fc 13 c8 99 22  |_graphics......"|
00002110  41 42 43 5f 42 6c 61 6e  6b 22 2c 33 0d 0e 06 14  |ABC_Blank",3....|
00002120  c8 99 22 41 42 43 5f 43  6f 6c 6f 75 72 22 2c 33  |.."ABC_Colour",3|
00002130  0d 0e 10 0a e6 20 30 2c  31 32 0d 0e 1a 17 c8 93  |..... 0,12......|
00002140  c8 90 20 31 38 34 2c 36  34 2c 39 34 32 2c 39 33  |.. 184,64,942,93|
00002150  32 0d 0e 24 09 e6 20 30  2c 37 0d 0e 2e 15 c8 93  |2..$.. 0,7......|
00002160  20 31 38 34 2c 36 34 2c  39 34 32 2c 39 33 32 0d  | 184,64,942,932.|
00002170  0e 38 07 fb 20 30 0d 0e  42 09 fb 20 31 34 30 0d  |.8.. 0..B.. 140.|
00002180  0e 4c 28 c8 99 22 41 42  43 5f 55 6e 70 61 63 6b  |.L(.."ABC_Unpack|
00002190  53 70 72 69 74 65 22 2c  22 77 61 78 22 2c 6a 25  |Sprite","wax",j%|
000021a0  2c 34 34 34 2c 37 30 0d  0e 56 2a c8 99 22 41 42  |,444,70..V*.."AB|
000021b0  43 5f 55 6e 70 61 63 6b  53 70 72 69 74 65 22 2c  |C_UnpackSprite",|
000021c0  22 73 6d 61 6c 6c 22 2c  6a 25 2c 31 32 30 2c 36  |"small",j%,120,6|
000021d0  34 0d 0e 60 0d f2 77 6f  72 64 73 28 b9 29 0d 0e  |4..`..words(.)..|
000021e0  6a 13 c8 99 22 41 42 43  5f 50 61 6c 65 74 74 65  |j..."ABC_Palette|
000021f0  22 0d 0e 74 05 e1 0d 0e  7e 12 dd f2 61 63 68 69  |"..t....~...achi|
00002200  65 76 65 5f 74 65 78 74  0d 0e 88 14 c8 99 22 41  |eve_text......"A|
00002210  42 43 5f 42 6c 61 6e 6b  22 2c 31 32 0d 0e 92 15  |BC_Blank",12....|
00002220  c8 99 22 41 42 43 5f 43  6f 6c 6f 75 72 22 2c 31  |.."ABC_Colour",1|
00002230  32 0d 0e 9c 07 fb 20 37  0d 0e a6 09 fb 20 31 34  |2..... 7..... 14|
00002240  30 0d 0e b0 15 f2 63 65  6e 74 28 c4 36 37 2c 22  |0.....cent(.67,"|
00002250  2a 22 29 2c 30 29 0d 0e  ba 0c e3 4a 25 3d 31 b8  |*"),0).....J%=1.|
00002260  32 39 0d 0e c4 18 f1 8a  38 2c 4a 25 29 22 2a 22  |29......8,J%)"*"|
00002270  8a 37 34 2c 4a 25 29 22  2a 22 0d 0e ce 05 ed 0d  |.74,J%)"*"......|
00002280  0e d8 16 f2 63 65 6e 74  28 c4 36 37 2c 22 2a 22  |....cent(.67,"*"|
00002290  29 2c 33 30 29 0d 0e e2  0d f2 77 6f 72 64 73 28  |),30).....words(|
000022a0  a3 29 0d 0e ec 13 c8 99  22 41 42 43 5f 50 61 6c  |.)......"ABC_Pal|
000022b0  65 74 74 65 22 0d 0e f6  05 e1 0d 0f 00 11 dd f2  |ette"...........|
000022c0  77 6f 72 64 73 28 66 61  6e 25 29 0d 0f 0a 0b e7  |words(fan%).....|
000022d0  66 61 6e 25 20 8c 0d 0f  14 3e e7 66 72 6e 25 20  |fan% ....>.frn% |
000022e0  61 24 3d 22 43 45 43 49  20 43 45 52 54 49 46 49  |a$="CECI CERTIFI|
000022f0  45 20 51 55 45 22 20 8b  61 24 3d 22 54 48 49 53  |E QUE" .a$="THIS|
00002300  20 49 53 20 54 4f 20 43  45 52 54 49 46 59 20 54  | IS TO CERTIFY T|
00002310  48 41 54 22 0d 0f 1e 14  78 73 63 25 3d 33 32 30  |HAT"....xsc%=320|
00002320  2d a9 28 61 24 29 2a 38  0d 0f 28 27 c8 99 22 41  |-.(a$)*8..('.."A|
00002330  42 43 5f 50 72 79 6e 74  53 74 72 69 6e 67 22 2c  |BC_PryntString",|
00002340  61 24 2c 78 73 63 25 2c  32 34 30 2c 31 2c 37 0d  |a$,xsc%,240,1,7.|
00002350  0f 32 2a c8 99 22 41 42  43 5f 50 72 79 6e 74 53  |.2*.."ABC_PryntS|
00002360  74 72 69 6e 67 22 2c 61  24 2c 78 73 63 25 2d 32  |tring",a$,xsc%-2|
00002370  2c 32 34 32 2c 31 2c 31  31 0d 0f 3c 23 f2 77 69  |,242,1,11..<#.wi|
00002380  6e 67 73 28 a4 73 74 72  69 70 28 61 74 74 65 6e  |ngs(.strip(atten|
00002390  64 24 29 2c 31 36 38 2c  32 32 32 29 0d 0f 46 05  |d$),168,222)..F.|
000023a0  cc 0d 0f 50 07 fb 20 37  0d 0f 5a 09 fb 20 31 34  |...P.. 7..Z.. 14|
000023b0  30 0d 0f 64 4c e7 66 72  6e 25 20 f2 63 65 6e 74  |0..dL.frn% .cent|
000023c0  28 22 43 45 43 49 20 43  45 52 54 49 46 49 45 20  |("CECI CERTIFIE |
000023d0  51 55 45 20 22 2c 32 29  20 8b f2 63 65 6e 74 28  |QUE ",2) ..cent(|
000023e0  22 54 48 49 53 20 49 53  20 54 4f 20 43 45 52 54  |"THIS IS TO CERT|
000023f0  49 46 59 20 54 48 41 54  20 22 2c 32 29 0d 0f 6e  |IFY THAT ",2)..n|
00002400  16 61 24 3d a4 73 74 72  69 70 28 61 74 74 65 6e  |.a$=.strip(atten|
00002410  64 24 29 0d 0f 78 0f f2  63 65 6e 74 28 61 24 2c  |d$)..x..cent(a$,|
00002420  34 29 0d 0f 82 05 cd 0d  0f 8c 07 fb 20 37 0d 0f  |4).......... 7..|
00002430  96 09 fb 20 31 34 30 0d  0f a0 0b e7 66 72 6e 25  |... 140.....frn%|
00002440  20 8c 0d 0f aa 27 e7 76  65 72 25 20 61 24 3d 22  | ....'.ver% a$="|
00002450  63 61 74 e9 67 6f 72 69  65 73 22 20 8b 61 24 3d  |cat.gories" .a$=|
00002460  22 6e 69 76 65 61 75 78  22 0d 0f b4 33 f2 63 65  |"niveaux"...3.ce|
00002470  6e 74 28 22 61 20 6a 6f  75 e9 20 61 75 78 20 6a  |nt("a jou. aux j|
00002480  65 75 78 20 44 69 78 20  73 75 72 20 44 69 78 20  |eux Dix sur Dix |
00002490  46 72 61 6e e7 61 69 73  22 2c 39 29 0d 0f be 36  |Fran.ais",9)...6|
000024a0  f2 63 65 6e 74 28 22 65  74 20 61 20 6f 62 74 65  |.cent("et a obte|
000024b0  6e 75 20 31 30 30 25 20  61 75 78 20 6a 65 75 78  |nu 100% aux jeux|
000024c0  20 73 75 69 76 61 6e 74  73 20 22 2b 61 24 2c 31  | suivants "+a$,1|
000024d0  30 29 0d 0f c8 26 f2 63  65 6e 74 28 22 43 65 72  |0)...&.cent("Cer|
000024e0  74 69 66 69 63 61 74 20  64 e9 6c 69 76 72 e9 20  |tificat d.livr. |
000024f0  70 61 72 22 2c 32 37 29  0d 0f d2 28 f2 63 65 6e  |par",27)...(.cen|
00002500  74 28 22 53 79 73 74 65  6d 65 73 20 45 64 75 63  |t("Systemes Educ|
00002510  61 74 69 66 73 20 31 30  2f 31 30 22 2c 32 38 29  |atifs 10/10",28)|
00002520  0d 0f dc 05 cc 0d 0f e6  22 e7 76 65 72 25 20 61  |........".ver% a|
00002530  24 3d 22 67 72 61 64 65  73 22 20 8b 61 24 3d 22  |$="grades" .a$="|
00002540  6c 65 76 65 6c 73 22 0d  0f f0 39 f2 63 65 6e 74  |levels"...9.cent|
00002550  28 22 68 61 73 20 70 6c  61 79 65 64 20 74 68 65  |("has played the|
00002560  20 54 65 6e 20 6f 75 74  20 6f 66 20 54 65 6e 20  | Ten out of Ten |
00002570  46 72 65 6e 63 68 20 67  61 6d 65 73 22 2c 39 29  |French games",9)|
00002580  0d 0f fa 3a f2 63 65 6e  74 28 22 61 6e 64 20 68  |...:.cent("and h|
00002590  61 73 20 61 63 68 69 65  76 65 64 20 31 30 30 25  |as achieved 100%|
000025a0  20 61 74 20 74 68 65 20  66 6f 6c 6c 6f 77 69 6e  | at the followin|
000025b0  67 20 22 2b 61 24 2c 31  30 29 0d 10 04 20 f2 63  |g "+a$,10)... .c|
000025c0  65 6e 74 28 22 43 65 72  74 69 66 69 63 61 74 65  |ent("Certificate|
000025d0  20 66 72 6f 6d 22 2c 32  37 29 0d 10 0e 29 f2 63  | from",27)...).c|
000025e0  65 6e 74 28 22 31 30 2f  31 30 20 45 64 75 63 61  |ent("10/10 Educa|
000025f0  74 69 6f 6e 61 6c 20 53  79 73 74 65 6d 73 22 2c  |tional Systems",|
00002600  32 38 29 0d 10 18 05 cd  0d 10 22 13 f2 63 65 6e  |28)......."..cen|
00002610  74 28 a4 64 61 74 65 2c  32 35 29 0d 10 2c 0a 74  |t(.date,25)..,.t|
00002620  61 79 25 3d 30 0d 10 36  0b e3 4a 25 3d 31 b8 36  |ay%=0..6..J%=1.6|
00002630  0d 10 40 08 4b 25 3d 31  0d 10 4a 0a 66 6e 64 25  |..@.K%=1..J.fnd%|
00002640  3d a3 0d 10 54 13 c8 95  20 4b 25 3c 37 20 80 20  |=...T... K%<7 . |
00002650  ac 66 6e 64 25 0d 10 5e  3a e7 61 74 74 25 28 4b  |.fnd%..^:.att%(K|
00002660  25 2c 4a 25 2c 30 29 3e  32 20 80 20 c0 69 6e 66  |%,J%,0)>2 . .inf|
00002670  6f 24 28 4b 25 2c 4a 25  29 2c 34 29 3c 3e 22 22  |o$(K%,J%),4)<>""|
00002680  3a 74 61 79 25 2b 3d 31  3a 66 6e 64 25 3d b9 0d  |:tay%+=1:fnd%=..|
00002690  10 68 09 4b 25 2b 3d 31  0d 10 72 05 ce 0d 10 7c  |.h.K%+=1..r....||
000026a0  05 ed 0d 10 86 12 74 61  79 25 3d 31 38 2d 74 61  |......tay%=18-ta|
000026b0  79 25 81 32 0d 10 90 18  e7 66 72 6e 25 20 f7 20  |y%.2.....frn% . |
000026c0  8d 44 76 47 20 8b f7 20  8d 44 58 47 0d 10 9a 0b  |.DvG .. .DXG....|
000026d0  e3 4a 25 3d 31 b8 36 0d  10 a4 08 f3 20 62 24 0d  |.J%=1.6..... b$.|
000026e0  10 ae 0d 73 69 78 24 28  29 3d 22 22 0d 10 b8 0b  |...six$()=""....|
000026f0  e3 4b 25 3d 31 b8 36 0d  10 c2 23 e7 61 74 74 25  |.K%=1.6...#.att%|
00002700  28 4a 25 2c 4b 25 2c 30  29 3e 32 3a 73 69 78 24  |(J%,K%,0)>2:six$|
00002710  28 4b 25 29 3d c3 28 4b  25 29 0d 10 cc 05 ed 0d  |(K%)=.(K%)......|
00002720  10 d6 05 f5 0d 10 e0 0a  73 72 74 25 3d b9 0d 10  |........srt%=...|
00002730  ea 0b e3 4b 25 3d 31 b8  35 0d 10 f4 36 e7 73 69  |...K%=1.5...6.si|
00002740  78 24 28 4b 25 29 3c 73  69 78 24 28 4b 25 2b 31  |x$(K%)<six$(K%+1|
00002750  29 3a c8 94 20 73 69 78  24 28 4b 25 29 2c 73 69  |):.. six$(K%),si|
00002760  78 24 28 4b 25 2b 31 29  3a 73 72 74 25 3d a3 0d  |x$(K%+1):srt%=..|
00002770  10 fe 05 ed 0d 11 08 0a  fd 20 73 72 74 25 0d 11  |......... srt%..|
00002780  12 09 61 24 3d 22 22 0d  11 1c 0b e3 4b 25 3d 31  |..a$="".....K%=1|
00002790  b8 36 0d 11 26 22 e7 73  69 78 24 28 4b 25 29 3c  |.6..&".six$(K%)<|
000027a0  3e 22 22 3a 61 24 2b 3d  73 69 78 24 28 4b 25 29  |>"":a$+=six$(K%)|
000027b0  2b 22 2c 22 0d 11 30 05  ed 0d 11 3a 15 e7 c2 61  |+","..0....:...a|
000027c0  24 29 3d 22 2c 22 3a 61  24 3d c0 61 24 29 0d 11  |$)=",":a$=.a$)..|
000027d0  44 0d e7 61 24 3c 3e 22  22 20 8c 0d 11 4e 29 f1  |D..a$<>"" ...N).|
000027e0  8a 31 38 2c 74 61 79 25  29 62 24 8a 33 36 2c 74  |.18,tay%)b$.36,t|
000027f0  61 79 25 29 22 2e 2e 2e  22 8a 34 30 2c 74 61 79  |ay%)"...".40,tay|
00002800  25 29 61 24 0d 11 58 0b  74 61 79 25 2b 3d 31 0d  |%)a$..X.tay%+=1.|
00002810  11 62 05 cd 0d 11 6c 05  ed 0d 11 76 05 e1 0d 11  |.b....l....v....|
00002820  80 0e dd f2 64 69 73 63  64 75 6d 70 0d 11 8a 07  |....discdump....|
00002830  ef 20 37 0d 11 94 08 c8  97 20 87 0d 11 9e 07 ea  |. 7...... ......|
00002840  20 85 0d 11 a8 20 c8 99  22 41 42 43 5f 54 72 61  | .... .."ABC_Tra|
00002850  6e 73 66 65 72 22 2c 30  2c 31 36 2c 36 34 30 2c  |nsfer",0,16,640,|
00002860  31 37 0d 11 b2 27 f2 69  6e 70 75 74 28 33 32 2c  |17...'.input(32,|
00002870  22 61 64 66 73 3a 3a 30  2e 24 2e 22 2b 61 74 74  |"adfs::0.$."+att|
00002880  65 6e 64 24 2c a3 2c b9  29 0d 11 bc 13 c8 99 22  |end$,.,.)......"|
00002890  41 42 43 5f 52 65 73 74  6f 72 65 22 0d 11 c6 13  |ABC_Restore"....|
000028a0  e7 65 73 63 25 20 84 20  69 24 3d 22 22 3a e1 0d  |.esc% . i$="":..|
000028b0  11 d0 14 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |....."Hourglass_|
000028c0  4f 6e 22 0d 11 da 15 ff  22 53 43 52 45 45 4e 53  |On"....."SCREENS|
000028d0  41 56 45 20 22 2b 69 24  0d 11 e4 17 c8 99 22 48  |AVE "+i$......"H|
000028e0  6f 75 72 67 6c 61 73 73  5f 53 6d 61 73 68 22 0d  |ourglass_Smash".|
000028f0  11 ee 10 ee 20 85 20 ea  3a f2 66 72 61 6e 67 0d  |.... . .:.frang.|
00002900  11 f8 1d 2a 44 49 52 20  3c 44 69 73 63 31 24 44  |...*DIR <Disc1$D|
00002910  69 72 3e 2e 53 69 78 47  61 6d 65 73 0d 12 02 13  |ir>.SixGames....|
00002920  c8 99 22 41 42 43 5f 52  65 73 74 6f 72 65 22 0d  |.."ABC_Restore".|
00002930  12 0c 10 c8 97 20 b8 20  36 34 30 2c 35 31 32 0d  |..... . 640,512.|
00002940  12 16 0b f2 6d 6f 75 73  65 31 0d 12 20 05 e1 0d  |....mouse1.. ...|
00002950  12 2a 0b dd f2 66 72 61  6e 67 0d 12 34 07 ef 20  |.*...frang..4.. |
00002960  37 0d 12 3e 81 e7 66 72  6e 25 20 61 24 3d 22 49  |7..>..frn% a$="I|
00002970  4e 54 52 4f 44 55 49 52  45 20 4c 41 20 44 49 53  |NTRODUIRE LA DIS|
00002980  51 55 45 54 54 45 20 44  41 4e 53 20 4c 45 20 4c  |QUETTE DANS LE L|
00002990  45 43 54 45 55 52 20 45  54 20 41 50 50 55 59 45  |ECTEUR ET APPUYE|
000029a0  52 20 53 55 52 20 52 45  54 4f 55 52 22 20 8b 61  |R SUR RETOUR" .a|
000029b0  24 3d 22 50 4c 45 41 53  45 20 49 4e 53 45 52 54  |$="PLEASE INSERT|
000029c0  20 44 49 53 43 20 49 4e  54 4f 20 44 52 49 56 45  | DISC INTO DRIVE|
000029d0  20 41 4e 44 20 50 52 45  53 53 20 52 45 54 55 52  | AND PRESS RETUR|
000029e0  4e 22 0d 12 48 0f f2 6d  65 73 73 28 61 24 2c 38  |N"..H..mess(a$,8|
000029f0  29 0d 12 52 05 f5 0d 12  5c 0a fd 20 a6 2d 37 34  |)..R....\.. .-74|
00002a00  0d 12 66 05 e1 0d 12 70  12 dd f2 70 72 69 6e 74  |..f....p...print|
00002a10  65 72 5f 64 75 6d 70 0d  12 7a 07 ef 20 32 0d 12  |er_dump..z.. 2..|
00002a20  84 0c e3 4a 25 3d 30 b8  33 30 0d 12 8e 0c e3 4b  |...J%=0.30.....K|
00002a30  25 3d 30 b8 37 39 0d 12  98 0e ef 20 33 31 2c 4b  |%=0.79..... 31,K|
00002a40  25 2c 4a 25 0d 12 a2 1b  c8 99 22 4f 53 5f 42 79  |%,J%......"OS_By|
00002a50  74 65 22 2c 31 33 35 20  b8 20 2c 72 65 73 25 0d  |te",135 . ,res%.|
00002a60  12 ac 0a ef 20 72 65 73  25 0d 12 b6 05 ed 0d 12  |.... res%.......|
00002a70  c0 12 e7 4a 25 3c 33 30  3a ef 20 31 33 2c 31 30  |...J%<30:. 13,10|
00002a80  0d 12 ca 05 ed 0d 12 d4  07 ef 20 33 0d 12 de 05  |.......... 3....|
00002a90  e1 0d 12 e8 0a dd f2 6c  6f 61 64 0d 12 f2 0a f2  |.......load.....|
00002aa0  6c 65 67 61 6c 0d 12 fc  12 e7 62 61 64 25 20 84  |legal.....bad% .|
00002ab0  20 65 73 63 25 3a e1 0d  13 06 0e f2 67 72 69 64  | esc%:......grid|
00002ac0  63 68 65 63 6b 0d 13 10  11 e7 61 24 3d 22 22 20  |check.....a$="" |
00002ad0  84 20 6b 25 3a e1 0d 13  1a 07 ef 20 37 0d 13 24  |. k%:...... 7..$|
00002ae0  3f 68 25 3d 8e 28 22 3c  44 69 73 63 31 24 44 69  |?h%=.("<Disc1$Di|
00002af0  72 3e 2e 53 69 78 47 61  6d 65 73 2e 41 63 68 69  |r>.SixGames.Achi|
00002b00  65 76 65 2e 41 63 68 69  65 76 65 22 2b c3 28 63  |eve.Achieve"+.(c|
00002b10  6c 61 25 29 2b 22 2e 22  2b 61 24 29 0d 13 2e 14  |la%)+"."+a$)....|
00002b20  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |.."Hourglass_On"|
00002b30  0d 13 38 0b e3 4c 25 3d  30 b8 34 0d 13 42 0b e3  |..8..L%=0.4..B..|
00002b40  4b 25 3d 31 b8 36 0d 13  4c 0b e3 4a 25 3d 31 b8  |K%=1.6..L..J%=1.|
00002b50  36 0d 13 56 17 e8 23 68  25 2c 61 74 74 25 28 4a  |6..V..#h%,att%(J|
00002b60  25 2c 4b 25 2c 4c 25 29  0d 13 60 05 ed 0d 13 6a  |%,K%,L%)..`....j|
00002b70  05 ed 0d 13 74 05 ed 0d  13 7e 08 d9 23 68 25 0d  |....t....~..#h%.|
00002b80  13 88 0e 61 74 74 65 6e  64 24 3d 61 24 0d 13 92  |...attend$=a$...|
00002b90  10 f2 63 6f 6e 66 69 6c  65 73 61 76 65 0d 13 9c  |..confilesave...|
00002ba0  17 c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 53 6d  |..."Hourglass_Sm|
00002bb0  61 73 68 22 0d 13 a6 05  e1 0d 13 b0 16 dd f2 73  |ash"...........s|
00002bc0  6d 61 6c 6c 28 77 63 68  25 2c 63 6f 6c 25 29 0d  |mall(wch%,col%).|
00002bd0  13 ba 0c e6 20 30 2c 63  6f 6c 25 0d 13 c4 33 c8  |.... 0,col%...3.|
00002be0  93 c8 90 20 28 77 63 68  25 3e 3e 34 29 2a 32 35  |... (wch%>>4)*25|
00002bf0  36 2b 33 35 34 2c 39 36  34 2d 28 28 77 63 68 25  |6+354,964-((wch%|
00002c00  80 26 46 29 3c 3c 36 29  2c 32 36 2c 33 32 0d 13  |.&F)<<6),26,32..|
00002c10  ce 05 e1 0d 13 d8 0c dd  f2 63 72 65 61 74 65 0d  |.........create.|
00002c20  13 e2 0a f2 6c 65 67 61  6c 0d 13 ec 12 e7 62 61  |....legal.....ba|
00002c30  64 25 20 84 20 65 73 63  25 3a e1 0d 13 f6 08 c8  |d% . esc%:......|
00002c40  97 20 87 0d 14 00 15 c8  99 22 41 42 43 5f 43 6f  |. ......."ABC_Co|
00002c50  6c 6f 75 72 22 2c 31 35  0d 14 0a 48 e7 66 72 6e  |lour",15...H.frn|
00002c60  25 20 f2 6d 65 73 73 28  22 4e 6f 6d 20 64 75 20  |% .mess("Nom du |
00002c70  6e 6f 75 76 65 61 75 20  6a 6f 75 65 75 72 22 2c  |nouveau joueur",|
00002c80  31 31 29 20 8b f2 6d 65  73 73 28 22 4e 65 77 20  |11) ..mess("New |
00002c90  70 6c 61 79 65 72 20 6e  61 6d 65 22 2c 31 31 29  |player name",11)|
00002ca0  0d 14 14 0e f2 64 65 6c  61 79 28 35 30 29 0d 14  |.....delay(50)..|
00002cb0  1e 14 f2 69 6e 70 75 74  28 38 2c 22 22 2c b9 2c  |...input(8,"",.,|
00002cc0  a3 29 0d 14 28 11 c8 95  20 a7 69 24 2c 22 20 22  |.)..(... .i$," "|
00002cd0  29 3e 30 0d 14 32 15 c1  69 24 2c a7 69 24 2c 22  |)>0..2..i$,.i$,"|
00002ce0  20 22 29 29 3d 22 5f 22  0d 14 3c 05 ce 0d 14 46  | "))="_"..<....F|
00002cf0  0b e7 65 73 63 25 3a e1  0d 14 50 37 ff 22 44 49  |..esc%:...P7."DI|
00002d00  52 20 3c 44 69 73 63 31  24 44 69 72 3e 2e 53 69  |R <Disc1$Dir>.Si|
00002d10  78 47 61 6d 65 73 2e 41  63 68 69 65 76 65 2e 41  |xGames.Achieve.A|
00002d20  63 68 69 65 76 65 22 2b  c3 28 63 6c 61 25 29 0d  |chieve"+.(cla%).|
00002d30  14 5a 25 c8 99 22 4f 53  5f 47 42 50 42 22 2c 38  |.Z%.."OS_GBPB",8|
00002d40  2c 2c 63 61 74 25 2c 26  34 30 2c 30 20 b8 20 2c  |,,cat%,&40,0 . ,|
00002d50  2c 2c 64 25 0d 14 64 1d  2a 44 49 52 20 3c 44 69  |,,d%..d.*DIR <Di|
00002d60  73 63 31 24 44 69 72 3e  2e 53 69 78 47 61 6d 65  |sc1$Dir>.SixGame|
00002d70  73 0d 14 6e 08 61 25 3d  30 0d 14 78 08 63 25 3d  |s..n.a%=0..x.c%=|
00002d80  30 0d 14 82 0c 64 25 3d  36 34 2d 64 25 0d 14 8c  |0....d%=64-d%...|
00002d90  0c 73 74 25 3d 63 61 74  25 0d 14 96 0a 64 75 70  |.st%=cat%....dup|
00002da0  25 3d a3 0d 14 a0 14 c8  95 20 63 25 3c 64 25 20  |%=....... c%<d% |
00002db0  80 20 ac 64 75 70 25 0d  14 aa 15 74 25 3d 73 74  |. .dup%....t%=st|
00002dc0  25 3f 28 28 3f 73 74 25  29 2b 31 29 0d 14 b4 15  |%?((?st%)+1)....|
00002dd0  73 74 25 3f 28 28 3f 73  74 25 29 2b 31 29 3d 26  |st%?((?st%)+1)=&|
00002de0  44 0d 14 be 0f 61 24 3d  24 28 73 74 25 2b 31 29  |D....a$=$(st%+1)|
00002df0  0d 14 c8 11 73 74 25 2b  3d 31 2b 28 3f 73 74 25  |....st%+=1+(?st%|
00002e00  29 0d 14 d2 0b 3f 73 74  25 3d 74 25 0d 14 dc 11  |)....?st%=t%....|
00002e10  e7 61 24 3d 69 24 3a 64  75 70 25 3d b9 0d 14 e6  |.a$=i$:dup%=....|
00002e20  09 61 25 2b 3d 31 0d 14  f0 09 63 25 2b 3d 31 0d  |.a%+=1....c%+=1.|
00002e30  14 fa 05 ce 0d 15 04 08  6b 25 3d b9 0d 15 0e 0b  |........k%=.....|
00002e40  e7 64 75 70 25 20 8c 0d  15 18 0a e6 20 30 2c 31  |.dup% ...... 0,1|
00002e50  30 0d 15 22 07 ef 20 35  0d 15 2c 14 c8 93 c8 90  |0..".. 5..,.....|
00002e60  20 30 2c 30 2c 31 32 37  38 2c 36 34 0d 15 36 09  | 0,0,1278,64..6.|
00002e70  e6 20 30 2c 30 0d 15 40  12 c8 93 20 30 2c 30 2c  |. 0,0..@... 0,0,|
00002e80  31 32 37 38 2c 36 34 0d  15 4a 5f e7 66 72 6e 25  |1278,64..J_.frn%|
00002e90  20 74 24 3d 22 4a 6f 75  65 75 72 20 22 2b 69 24  | t$="Joueur "+i$|
00002ea0  2b 22 20 65 78 69 73 74  65 20 64 e9 6a e0 20 2d  |+" existe d.j. -|
00002eb0  20 45 66 66 61 63 65 72  3f 22 20 8b 74 24 3d 22  | Effacer?" .t$="|
00002ec0  50 6c 61 79 65 72 20 22  2b 69 24 2b 22 20 61 6c  |Player "+i$+" al|
00002ed0  72 65 61 64 79 20 65 78  69 73 74 73 20 2d 20 45  |ready exists - E|
00002ee0  72 61 73 65 3f 22 0d 15  54 15 ec 20 38 36 30 2d  |rase?"..T.. 860-|
00002ef0  a9 28 74 24 29 2a 67 25  2c 34 34 0d 15 5e 07 f1  |.(t$)*g%,44..^..|
00002f00  74 24 0d 15 68 07 ef 20  34 0d 15 72 05 87 0d 15  |t$..h.. 4..r....|
00002f10  7c 0d 6b 25 3d a4 79 65  73 6e 6f 0d 15 86 05 cd  ||.k%=.yesno.....|
00002f20  0d 15 90 12 e7 ac 6b 25  3a f2 6d 6f 75 73 65 31  |......k%:.mouse1|
00002f30  3a e1 0d 15 9a 0c 61 74  74 25 28 29 3d 30 0d 15  |:.....att%()=0..|
00002f40  a4 3f 68 25 3d ae 28 22  3c 44 69 73 63 31 24 44  |.?h%=.("<Disc1$D|
00002f50  69 72 3e 2e 53 69 78 47  61 6d 65 73 2e 41 63 68  |ir>.SixGames.Ach|
00002f60  69 65 76 65 2e 41 63 68  69 65 76 65 22 2b c3 28  |ieve.Achieve"+.(|
00002f70  63 6c 61 25 29 2b 22 2e  22 2b 69 24 29 0d 15 ae  |cla%)+"."+i$)...|
00002f80  0b e3 4c 25 3d 30 b8 34  0d 15 b8 0b e3 4b 25 3d  |..L%=0.4.....K%=|
00002f90  31 b8 36 0d 15 c2 0b e3  4a 25 3d 31 b8 36 0d 15  |1.6.....J%=1.6..|
00002fa0  cc 17 f1 23 68 25 2c 61  74 74 25 28 4a 25 2c 4b  |...#h%,att%(J%,K|
00002fb0  25 2c 4c 25 29 0d 15 d6  05 ed 0d 15 e0 05 ed 0d  |%,L%)...........|
00002fc0  15 ea 05 ed 0d 15 f4 08  d9 23 68 25 0d 15 fe 0e  |.........#h%....|
00002fd0  61 74 74 65 6e 64 24 3d  69 24 0d 16 08 10 f2 63  |attend$=i$.....c|
00002fe0  6f 6e 66 69 6c 65 73 61  76 65 0d 16 12 15 c8 99  |onfilesave......|
00002ff0  22 41 42 43 5f 43 6f 6c  6f 75 72 22 2c 31 35 0d  |"ABC_Colour",15.|
00003000  16 1c 0b f2 6d 6f 75 73  65 31 0d 16 26 05 e1 0d  |....mouse1..&...|
00003010  16 30 0c dd f2 64 65 6c  65 74 65 0d 16 3a 0a f2  |.0...delete..:..|
00003020  6c 65 67 61 6c 0d 16 44  12 e7 62 61 64 25 20 84  |legal..D..bad% .|
00003030  20 65 73 63 25 3a e1 0d  16 4e 0e f2 67 72 69 64  | esc%:...N..grid|
00003040  63 68 65 63 6b 0d 16 58  11 e7 61 24 3d 22 22 20  |check..X..a$="" |
00003050  84 20 6b 25 3a e1 0d 16  62 15 c8 99 22 41 42 43  |. k%:...b..."ABC|
00003060  5f 43 6f 6c 6f 75 72 22  2c 31 35 0d 16 6c 0a e6  |_Colour",15..l..|
00003070  20 30 2c 31 30 0d 16 76  07 ef 20 35 0d 16 80 14  | 0,10..v.. 5....|
00003080  c8 93 c8 90 20 30 2c 30  2c 31 32 37 38 2c 36 34  |.... 0,0,1278,64|
00003090  0d 16 8a 09 e6 20 30 2c  30 0d 16 94 12 c8 93 20  |..... 0,0...... |
000030a0  30 2c 30 2c 31 32 37 38  2c 36 34 0d 16 9e 44 e7  |0,0,1278,64...D.|
000030b0  66 72 6e 25 20 74 24 3d  22 4a 6f 75 65 75 72 20  |frn% t$="Joueur |
000030c0  22 2b 61 24 2b 22 20 2d  20 45 66 66 61 63 65 72  |"+a$+" - Effacer|
000030d0  3f 22 20 8b 74 24 3d 22  50 6c 61 79 65 72 20 22  |?" .t$="Player "|
000030e0  2b 61 24 2b 22 20 2d 20  45 72 61 73 65 3f 22 0d  |+a$+" - Erase?".|
000030f0  16 a8 15 ec 20 38 36 30  2d a9 28 74 24 29 2a 67  |.... 860-.(t$)*g|
00003100  25 2c 34 34 0d 16 b2 07  f1 74 24 0d 16 bc 07 ef  |%,44.....t$.....|
00003110  20 34 0d 16 c6 05 87 0d  16 d0 0d 6b 25 3d a4 79  | 4.........k%=.y|
00003120  65 73 6e 6f 0d 16 da 12  e7 ac 6b 25 3a f2 6d 6f  |esno......k%:.mo|
00003130  75 73 65 31 3a e1 0d 16  e4 41 ff 22 44 45 4c 45  |use1:....A."DELE|
00003140  54 45 20 3c 44 69 73 63  31 24 44 69 72 3e 2e 53  |TE <Disc1$Dir>.S|
00003150  69 78 47 61 6d 65 73 2e  41 63 68 69 65 76 65 2e  |ixGames.Achieve.|
00003160  41 63 68 69 65 76 65 22  2b c3 28 63 6c 61 25 29  |Achieve"+.(cla%)|
00003170  2b 22 2e 22 2b 61 24 0d  16 ee 19 e7 61 24 3d 61  |+"."+a$.....a$=a|
00003180  74 74 65 6e 64 24 3a f2  73 65 74 65 6d 70 74 79  |ttend$:.setempty|
00003190  0d 16 f8 05 e1 0d 17 02  11 dd f2 64 65 6c 61 79  |...........delay|
000031a0  28 64 65 6c 25 29 0d 17  0c 05 f5 0d 17 16 06 c8  |(del%)..........|
000031b0  96 0d 17 20 0b 64 65 6c  25 2d 3d 31 0d 17 2a 0c  |... .del%-=1..*.|
000031c0  fd 20 64 65 6c 25 3c 30  0d 17 34 05 e1 0d 17 3e  |. del%<0..4....>|
000031d0  11 dd f2 63 6f 6e 66 69  6c 65 6c 6f 61 64 0d 17  |...confileload..|
000031e0  48 18 68 25 3d 8e 28 66  24 2b 22 43 6f 6e 66 69  |H.h%=.(f$+"Confi|
000031f0  67 75 72 65 22 29 0d 17  52 51 e8 23 68 25 2c 72  |gure")..RQ.#h%,r|
00003200  61 74 25 2c 6e 69 67 25  2c 73 64 73 25 2c 76 65  |at%,nig%,sds%,ve|
00003210  72 25 2c 67 72 64 25 2c  63 6c 61 25 2c 74 79 70  |r%,grd%,cla%,typ|
00003220  24 2c 68 65 64 25 2c 66  75 74 25 2c 70 61 70 25  |$,hed%,fut%,pap%|
00003230  2c 70 69 78 25 2c 66 72  6e 25 2c 61 74 74 65 6e  |,pix%,frn%,atten|
00003240  64 24 2c 63 6f 64 25 0d  17 5c 08 d9 23 68 25 0d  |d$,cod%..\..#h%.|
00003250  17 66 05 e1 0d 17 70 11  dd f2 63 6f 6e 66 69 6c  |.f....p...confil|
00003260  65 73 61 76 65 0d 17 7a  18 68 25 3d ae 28 66 24  |esave..z.h%=.(f$|
00003270  2b 22 43 6f 6e 66 69 67  75 72 65 22 29 0d 17 84  |+"Configure")...|
00003280  51 f1 23 68 25 2c 72 61  74 25 2c 6e 69 67 25 2c  |Q.#h%,rat%,nig%,|
00003290  73 64 73 25 2c 76 65 72  25 2c 67 72 64 25 2c 63  |sds%,ver%,grd%,c|
000032a0  6c 61 25 2c 74 79 70 24  2c 68 65 64 25 2c 66 75  |la%,typ$,hed%,fu|
000032b0  74 25 2c 70 61 70 25 2c  70 69 78 25 2c 66 72 6e  |t%,pap%,pix%,frn|
000032c0  25 2c 61 74 74 65 6e 64  24 2c 63 6f 64 25 0d 17  |%,attend$,cod%..|
000032d0  8e 08 d9 23 68 25 0d 17  98 05 e1 0d 17 a2 11 dd  |...#h%..........|
000032e0  f2 6c 6f 61 64 64 65 74  61 69 6c 73 0d 17 ac 10  |.loaddetails....|
000032f0  f2 63 6f 6e 66 69 6c 65  6c 6f 61 64 0d 17 b6 27  |.confileload...'|
00003300  e7 73 64 73 25 20 ff 22  53 50 45 41 4b 45 52 20  |.sds% ."SPEAKER |
00003310  4f 4e 22 20 8b ff 22 53  50 45 41 4b 45 52 20 4f  |ON" .."SPEAKER O|
00003320  46 46 22 0d 17 c0 11 e7  61 74 74 65 6e 64 24 3d  |FF".....attend$=|
00003330  22 22 20 8c 0d 17 ca 0c  61 74 74 25 28 29 3d 30  |"" .....att%()=0|
00003340  0d 17 d4 05 cc 0d 17 de  44 68 25 3d 8e 28 22 3c  |........Dh%=.("<|
00003350  44 69 73 63 31 24 44 69  72 3e 2e 53 69 78 47 61  |Disc1$Dir>.SixGa|
00003360  6d 65 73 2e 41 63 68 69  65 76 65 2e 41 63 68 69  |mes.Achieve.Achi|
00003370  65 76 65 22 2b c3 28 63  6c 61 25 29 2b 22 2e 22  |eve"+.(cla%)+"."|
00003380  2b 61 74 74 65 6e 64 24  29 0d 17 e8 0b e3 4c 25  |+attend$).....L%|
00003390  3d 30 b8 34 0d 17 f2 0b  e3 4b 25 3d 31 b8 36 0d  |=0.4.....K%=1.6.|
000033a0  17 fc 0b e3 4a 25 3d 31  b8 36 0d 18 06 17 e8 23  |....J%=1.6.....#|
000033b0  68 25 2c 61 74 74 25 28  4a 25 2c 4b 25 2c 4c 25  |h%,att%(J%,K%,L%|
000033c0  29 0d 18 10 05 ed 0d 18  1a 05 ed 0d 18 24 05 ed  |)............$..|
000033d0  0d 18 2e 08 d9 23 68 25  0d 18 38 05 cd 0d 18 42  |.....#h%..8....B|
000033e0  05 e1 0d 18 4c 0b dd a4  79 65 73 6e 6f 0d 18 56  |....L...yesno..V|
000033f0  0e f2 7a 65 72 6f 6d 6f  75 73 65 0d 18 60 17 c8  |..zeromouse..`..|
00003400  97 20 c8 93 20 39 35 39  2c 31 32 2c 32 34 30 2c  |. .. 959,12,240,|
00003410  34 36 0d 18 6a 0b f2 6d  6f 75 73 65 31 0d 18 74  |46..j..mouse1..t|
00003420  10 c8 97 20 b8 20 31 31  36 30 2c 33 32 0d 18 7e  |... . 1160,32..~|
00003430  07 ef 20 35 0d 18 88 09  e6 20 30 2c 30 0d 18 92  |.. 5..... 0,0...|
00003440  0c ec 20 38 39 36 2c 34  34 0d 18 9c 2d e7 66 72  |.. 896,44...-.fr|
00003450  6e 25 20 f1 22 4f 75 69  20 20 20 20 20 20 20 20  |n% ."Oui        |
00003460  4e 6f 6e 22 20 8b f1 22  59 65 73 20 20 20 20 20  |Non" .."Yes     |
00003470  20 20 20 4e 6f 22 0d 18  a6 05 f5 0d 18 b0 15 c8  |   No"..........|
00003480  97 20 6d 6f 78 25 2c 6d  6f 79 25 2c 62 75 74 25  |. mox%,moy%,but%|
00003490  0d 18 ba 10 e7 6d 6f 78  25 3c 31 30 37 32 20 8c  |.....mox%<1072 .|
000034a0  0d 18 c4 0a e6 20 30 2c  31 31 0d 18 ce 15 c8 93  |..... 0,11......|
000034b0  c8 90 20 39 36 30 2c 31  32 2c 38 30 2c 34 30 0d  |.. 960,12,80,40.|
000034c0  18 d8 09 e6 20 30 2c 37  0d 18 e2 16 c8 93 c8 90  |.... 0,7........|
000034d0  20 31 31 32 30 2c 31 32  2c 38 30 2c 34 30 0d 18  | 1120,12,80,40..|
000034e0  ec 05 cc 0d 18 f6 09 e6  20 30 2c 37 0d 19 00 15  |........ 0,7....|
000034f0  c8 93 c8 90 20 39 36 30  2c 31 32 2c 38 30 2c 34  |.... 960,12,80,4|
00003500  30 0d 19 0a 0a e6 20 30  2c 31 31 0d 19 14 16 c8  |0..... 0,11.....|
00003510  93 c8 90 20 31 31 32 30  2c 31 32 2c 38 30 2c 34  |... 1120,12,80,4|
00003520  30 0d 19 1e 05 cd 0d 19  28 1d fd 20 62 75 74 25  |0.......(.. but%|
00003530  3e 30 20 80 20 b0 6d 6f  78 25 2c 6d 6f 79 25 29  |>0 . .mox%,moy%)|
00003540  3d 31 31 0d 19 32 07 ef  20 34 0d 19 3c 05 87 0d  |=11..2.. 4..<...|
00003550  19 46 15 e7 6d 6f 78 25  3c 31 30 37 32 20 3d b9  |.F..mox%<1072 =.|
00003560  20 8b 3d a3 0d 19 50 0f  dd a4 79 65 73 6e 6f 64  | .=...P...yesnod|
00003570  65 73 6b 0d 19 5a 0e f2  7a 65 72 6f 6d 6f 75 73  |esk..Z..zeromous|
00003580  65 0d 19 64 17 c8 97 20  c8 93 20 39 35 39 2c 31  |e..d... .. 959,1|
00003590  32 2c 32 34 30 2c 34 36  0d 19 6e 0b f2 6d 6f 75  |2,240,46..n..mou|
000035a0  73 65 31 0d 19 78 10 c8  97 20 b8 20 31 31 36 30  |se1..x... . 1160|
000035b0  2c 33 32 0d 19 82 07 ef  20 35 0d 19 8c 09 e6 20  |,32..... 5..... |
000035c0  30 2c 30 0d 19 96 0c ec  20 38 39 36 2c 34 34 0d  |0,0..... 896,44.|
000035d0  19 a0 14 f1 22 59 65 73  20 20 20 20 20 20 20 20  |...."Yes        |
000035e0  4e 6f 22 0d 19 aa 05 f5  0d 19 b4 15 c8 97 20 6d  |No"........... m|
000035f0  6f 78 25 2c 6d 6f 79 25  2c 62 75 74 25 0d 19 be  |ox%,moy%,but%...|
00003600  10 e7 6d 6f 78 25 3c 31  30 37 32 20 8c 0d 19 c8  |..mox%<1072 ....|
00003610  0a e6 20 30 2c 31 31 0d  19 d2 15 c8 93 c8 90 20  |.. 0,11........ |
00003620  39 36 30 2c 31 32 2c 38  30 2c 34 30 0d 19 dc 09  |960,12,80,40....|
00003630  e6 20 30 2c 37 0d 19 e6  16 c8 93 c8 90 20 31 31  |. 0,7........ 11|
00003640  32 30 2c 31 32 2c 38 30  2c 34 30 0d 19 f0 05 cc  |20,12,80,40.....|
00003650  0d 19 fa 09 e6 20 30 2c  37 0d 1a 04 15 c8 93 c8  |..... 0,7.......|
00003660  90 20 39 36 30 2c 31 32  2c 38 30 2c 34 30 0d 1a  |. 960,12,80,40..|
00003670  0e 0a e6 20 30 2c 31 31  0d 1a 18 16 c8 93 c8 90  |... 0,11........|
00003680  20 31 31 32 30 2c 31 32  2c 38 30 2c 34 30 0d 1a  | 1120,12,80,40..|
00003690  22 05 cd 0d 1a 2c 1d fd  20 62 75 74 25 3e 30 20  |"....,.. but%>0 |
000036a0  80 20 b0 6d 6f 78 25 2c  6d 6f 79 25 29 3d 31 31  |. .mox%,moy%)=11|
000036b0  0d 1a 36 07 ef 20 34 0d  1a 40 05 87 0d 1a 4a 15  |..6.. 4..@....J.|
000036c0  e7 6d 6f 78 25 3c 31 30  37 32 20 3d b9 20 8b 3d  |.mox%<1072 =. .=|
000036d0  a3 0d 1a 54 16 dd f2 64  69 73 70 6c 61 79 64 69  |...T...displaydi|
000036e0  72 65 63 74 6f 72 79 0d  1a 5e 14 c8 99 22 41 42  |rectory..^..."AB|
000036f0  43 5f 42 6c 61 6e 6b 22  2c 31 35 0d 1a 68 15 c8  |C_Blank",15..h..|
00003700  99 22 41 42 43 5f 43 6f  6c 6f 75 72 22 2c 31 35  |."ABC_Colour",15|
00003710  0d 1a 72 37 ff 22 44 49  52 20 3c 44 69 73 63 31  |..r7."DIR <Disc1|
00003720  24 44 69 72 3e 2e 53 69  78 47 61 6d 65 73 2e 41  |$Dir>.SixGames.A|
00003730  63 68 69 65 76 65 2e 41  63 68 69 65 76 65 22 2b  |chieve.Achieve"+|
00003740  c3 28 63 6c 61 25 29 0d  1a 7c 25 c8 99 22 4f 53  |.(cla%)..|%.."OS|
00003750  5f 47 42 50 42 22 2c 38  2c 2c 63 61 74 25 2c 26  |_GBPB",8,,cat%,&|
00003760  34 30 2c 30 20 b8 20 2c  2c 2c 64 25 0d 1a 86 1d  |40,0 . ,,,d%....|
00003770  2a 44 49 52 20 3c 44 69  73 63 31 24 44 69 72 3e  |*DIR <Disc1$Dir>|
00003780  2e 53 69 78 47 61 6d 65  73 0d 1a 90 07 ef 20 35  |.SixGames..... 5|
00003790  0d 1a 9a 0c e3 61 25 3d  30 b8 36 33 0d 1a a4 16  |.....a%=0.63....|
000037a0  78 25 3d 28 61 25 3e 3e  34 29 2a 32 35 36 2b 31  |x%=(a%>>4)*256+1|
000037b0  32 38 0d 1a ae 11 79 25  3d 28 61 25 80 26 46 29  |28....y%=(a%.&F)|
000037c0  3c 3c 36 0d 1a b8 09 e6  20 30 2c 38 0d 1a c2 15  |<<6..... 0,8....|
000037d0  c8 93 c8 90 20 78 25 2c  79 25 2c 32 32 34 2c 34  |.... x%,y%,224,4|
000037e0  30 0d 1a cc 0a e6 20 30  2c 31 31 0d 1a d6 18 c8  |0..... 0,11.....|
000037f0  93 c8 90 20 78 25 2b 32  32 34 2c 79 25 2c 33 30  |... x%+224,y%,30|
00003800  2c 34 30 0d 1a e0 09 e6  20 30 2c 30 0d 1a ea 16  |,40..... 0,0....|
00003810  c8 93 20 78 25 2b 32 32  34 2c 79 25 2c 33 30 2c  |.. x%+224,y%,30,|
00003820  34 30 0d 1a f4 05 ed 0d  1a fe 08 61 25 3d 30 0d  |40.........a%=0.|
00003830  1b 08 08 63 25 3d 30 0d  1b 12 0c 64 25 3d 36 34  |...c%=0....d%=64|
00003840  2d 64 25 0d 1b 1c 0c 73  74 25 3d 63 61 74 25 0d  |-d%....st%=cat%.|
00003850  1b 26 12 66 69 6c 65 6e  61 6d 65 24 28 29 3d 22  |.&.filename$()="|
00003860  22 0d 1b 30 09 e6 20 30  2c 30 0d 1b 3a 0c c8 95  |"..0.. 0,0..:...|
00003870  20 63 25 3c 64 25 0d 1b  44 15 74 25 3d 73 74 25  | c%<d%..D.t%=st%|
00003880  3f 28 28 3f 73 74 25 29  2b 31 29 0d 1b 4e 15 73  |?((?st%)+1)..N.s|
00003890  74 25 3f 28 28 3f 73 74  25 29 2b 31 29 3d 26 44  |t%?((?st%)+1)=&D|
000038a0  0d 1b 58 0f 61 24 3d 24  28 73 74 25 2b 31 29 0d  |..X.a$=$(st%+1).|
000038b0  1b 62 11 73 74 25 2b 3d  31 2b 28 3f 73 74 25 29  |.b.st%+=1+(?st%)|
000038c0  0d 1b 6c 0b 3f 73 74 25  3d 74 25 0d 1b 76 26 ec  |..l.?st%=t%..v&.|
000038d0  20 28 61 25 3e 3e 34 29  2a 32 35 36 2b 31 34 34  | (a%>>4)*256+144|
000038e0  2c 39 39 32 2d 28 28 61  25 80 26 46 29 3c 3c 36  |,992-((a%.&F)<<6|
000038f0  29 0d 1b 80 14 66 69 6c  65 6e 61 6d 65 24 28 61  |)....filename$(a|
00003900  25 29 3d 61 24 0d 1b 8a  11 61 24 3d a4 73 74 72  |%)=a$....a$=.str|
00003910  69 70 28 61 24 29 0d 1b  94 08 f1 20 61 24 0d 1b  |ip(a$)..... a$..|
00003920  9e 09 61 25 2b 3d 31 0d  1b a8 09 63 25 2b 3d 31  |..a%+=1....c%+=1|
00003930  0d 1b b2 05 ce 0d 1b bc  07 ef 20 34 0d 1b c6 05  |.......... 4....|
00003940  87 0d 1b d0 13 c8 99 22  41 42 43 5f 50 61 6c 65  |......."ABC_Pale|
00003950  74 74 65 22 0d 1b da 05  e1 0d 1b e4 0f dd f2 67  |tte"...........g|
00003960  72 69 64 63 68 65 63 6b  0d 1b ee 15 f2 64 69 73  |ridcheck.....dis|
00003970  70 6c 61 79 64 69 72 65  63 74 6f 72 79 0d 1b f8  |playdirectory...|
00003980  0a 6c 73 74 25 3d 30 0d  1c 02 05 f5 0d 1c 0c 15  |.lst%=0.........|
00003990  c8 97 20 6d 6f 78 25 2c  6d 6f 79 25 2c 62 75 74  |.. mox%,moy%,but|
000039a0  25 0d 1c 16 16 73 71 78  25 3d 28 6d 6f 78 25 2d  |%....sqx%=(mox%-|
000039b0  31 32 38 29 3e 3e 38 0d  1c 20 12 e7 73 71 78 25  |128)>>8.. ..sqx%|
000039c0  3e 33 3a 73 71 78 25 3d  33 0d 1c 2a 12 e7 73 71  |>3:sqx%=3..*..sq|
000039d0  78 25 3c 30 3a 73 71 78  25 3d 30 0d 1c 34 17 73  |x%<0:sqx%=0..4.s|
000039e0  71 79 25 3d 28 31 30 32  34 2d 6d 6f 79 25 29 3e  |qy%=(1024-moy%)>|
000039f0  3e 36 0d 1c 3e 14 e7 73  71 79 25 3e 31 35 3a 73  |>6..>..sqy%>15:s|
00003a00  71 79 25 3d 31 35 0d 1c  48 15 69 6e 78 25 3d 73  |qy%=15..H.inx%=s|
00003a10  71 79 25 2b 73 71 78 25  2a 67 25 0d 1c 52 14 e7  |qy%+sqx%*g%..R..|
00003a20  69 6e 78 25 3e 36 33 3a  69 6e 78 25 3d 36 33 0d  |inx%>63:inx%=63.|
00003a30  1c 5c 11 e7 69 6e 78 25  3c 3e 6c 73 74 25 20 8c  |.\..inx%<>lst% .|
00003a40  0d 1c 66 06 c8 96 0d 1c  70 13 f2 73 6d 61 6c 6c  |..f.....p..small|
00003a50  28 6c 73 74 25 2c 31 31  29 0d 1c 7a 13 f2 73 6d  |(lst%,11)..z..sm|
00003a60  61 6c 6c 28 69 6e 78 25  2c 31 35 29 0d 1c 84 0d  |all(inx%,15)....|
00003a70  6c 73 74 25 3d 69 6e 78  25 0d 1c 8e 05 cd 0d 1c  |lst%=inx%.......|
00003a80  98 15 e7 a6 2d 31 31 33  20 6b 25 3d b9 20 8b 6b  |....-113 k%=. .k|
00003a90  25 3d a3 0d 1c a2 11 fd  20 62 75 74 25 3e 30 20  |%=...... but%>0 |
00003aa0  84 20 6b 25 0d 1c ac 16  61 24 3d 66 69 6c 65 6e  |. k%....a$=filen|
00003ab0  61 6d 65 24 28 6c 73 74  25 29 0d 1c b6 05 e1 0d  |ame$(lst%)......|
00003ac0  1c c0 0d dd f2 63 75 72  72 65 6e 74 0d 1c ca 07  |.....current....|
00003ad0  ef 20 35 0d 1c d4 09 e6  20 30 2c 38 0d 1c de 16  |. 5..... 0,8....|
00003ae0  c8 93 c8 90 20 33 38 34  2c 31 36 2c 34 38 30 2c  |.... 384,16,480,|
00003af0  36 34 0d 1c e8 09 e6 20  30 2c 30 0d 1c f2 14 c8  |64..... 0,0.....|
00003b00  93 20 33 38 34 2c 31 36  2c 34 38 30 2c 36 34 0d  |. 384,16,480,64.|
00003b10  1c fc 0a e6 20 30 2c 31  34 0d 1d 06 0c ec 20 34  |.... 0,14..... 4|
00003b20  30 30 2c 36 30 0d 1d 10  35 e7 66 72 6e 25 20 f1  |00,60...5.frn% .|
00003b30  22 4a 6f 75 65 75 72 20  61 63 74 75 65 6c 20 3a  |"Joueur actuel :|
00003b40  20 22 3b 20 8b f1 22 43  75 72 72 65 6e 74 20 70  | "; .."Current p|
00003b50  6c 61 79 65 72 20 3a 20  22 3b 0d 1d 1a 09 e6 20  |layer : ";..... |
00003b60  30 2c 30 0d 1d 24 16 61  24 3d a4 73 74 72 69 70  |0,0..$.a$=.strip|
00003b70  28 61 74 74 65 6e 64 24  29 0d 1d 2e 0b e7 66 72  |(attend$).....fr|
00003b80  6e 25 20 8c 0d 1d 38 17  e7 61 24 3d 22 22 20 f1  |n% ...8..a$="" .|
00003b90  22 56 69 64 65 22 20 8b  f1 61 24 0d 1d 42 05 cc  |"Vide" ..a$..B..|
00003ba0  0d 1d 4c 18 e7 61 24 3d  22 22 20 f1 22 45 6d 70  |..L..a$="" ."Emp|
00003bb0  74 79 22 20 8b f1 61 24  0d 1d 56 05 cd 0d 1d 60  |ty" ..a$..V....`|
00003bc0  07 ef 20 34 0d 1d 6a 05  87 0d 1d 74 05 e1 0d 1d  |.. 4..j....t....|
00003bd0  7e 0c dd f2 61 63 63 65  73 73 0d 1d 88 13 e7 ac  |~...access......|
00003be0  a6 2d 32 20 84 20 ac a6  2d 33 31 3a e1 0d 1d 92  |.-2 . ..-31:....|
00003bf0  08 c8 97 20 87 0d 1d 9c  07 ef 20 37 0d 1d a6 15  |... ...... 7....|
00003c00  c8 99 22 41 42 43 5f 43  6f 6c 6f 75 72 22 2c 31  |.."ABC_Colour",1|
00003c10  35 0d 1d b0 0a 74 72 75  25 3d b9 0d 1d ba 28 e7  |5....tru%=....(.|
00003c20  66 72 6e 25 20 f2 66 6f  72 65 69 67 6e 61 63 63  |frn% .foreignacc|
00003c30  65 73 73 20 8b f2 65 6e  67 6c 69 73 68 61 63 63  |ess ..englishacc|
00003c40  65 73 73 0d 1d c4 13 e7  65 73 63 25 20 84 20 ac  |ess.....esc% . .|
00003c50  74 72 75 25 3a e1 0d 1d  ce 10 f2 63 6f 6e 66 69  |tru%:......confi|
00003c60  6c 65 73 61 76 65 0d 1d  d8 09 f2 62 61 63 6b 0d  |lesave.....back.|
00003c70  1d e2 05 e1 0d 1d ec 13  dd f2 66 6f 72 65 69 67  |..........foreig|
00003c80  6e 61 63 63 65 73 73 0d  1d f6 35 f2 6d 65 73 73  |naccess...5.mess|
00003c90  28 22 45 4e 54 52 45 52  20 4c 27 41 4e 43 49 45  |("ENTRER L'ANCIE|
00003ca0  4e 20 4e 55 4d 45 52 4f  20 44 45 20 43 4f 44 45  |N NUMERO DE CODE|
00003cb0  20 44 27 41 43 43 45 53  22 2c 38 29 0d 1e 00 0a  | D'ACCES",8)....|
00003cc0  f2 69 6e 76 69 73 0d 1e  0a 11 e7 65 73 63 25 3a  |.invis.....esc%:|
00003cd0  f2 62 61 63 6b 3a e1 0d  1e 14 1a 4a 25 3d a4 76  |.back:.....J%=.v|
00003ce0  61 6c 69 64 61 74 65 6e  75 6d 62 65 72 28 69 24  |alidatenumber(i$|
00003cf0  29 0d 1e 1e 2f e7 ac 4a  25 3a f2 77 72 6f 6e 67  |).../..J%:.wrong|
00003d00  28 22 43 48 49 46 46 52  45 53 20 55 4e 49 51 55  |("CHIFFRES UNIQU|
00003d10  45 4d 45 4e 54 22 29 3a  74 72 75 25 3d a3 3a e1  |EMENT"):tru%=.:.|
00003d20  0d 1e 28 35 e7 63 6f 64  25 3c 3e bb 28 69 24 29  |..(5.cod%<>.(i$)|
00003d30  3a f2 77 72 6f 6e 67 28  22 46 41 55 58 20 43 4f  |:.wrong("FAUX CO|
00003d40  44 45 20 44 27 41 43 43  45 53 22 29 3a 74 72 75  |DE D'ACCES"):tru|
00003d50  25 3d a3 3a e1 0d 1e 32  3b f2 6d 65 73 73 28 22  |%=.:...2;.mess("|
00003d60  49 4e 54 52 4f 44 55 49  52 45 20 4c 45 20 4e 4f  |INTRODUIRE LE NO|
00003d70  55 56 45 41 55 20 4e 55  4d 45 52 4f 20 44 45 20  |UVEAU NUMERO DE |
00003d80  43 4f 44 45 20 44 27 41  43 43 45 53 22 2c 38 29  |CODE D'ACCES",8)|
00003d90  0d 1e 3c 0a f2 69 6e 76  69 73 0d 1e 46 11 e7 65  |..<..invis..F..e|
00003da0  73 63 25 3a f2 62 61 63  6b 3a e1 0d 1e 50 1a 4a  |sc%:.back:...P.J|
00003db0  25 3d a4 76 61 6c 69 64  61 74 65 6e 75 6d 62 65  |%=.validatenumbe|
00003dc0  72 28 69 24 29 0d 1e 5a  2f e7 ac 4a 25 3a f2 77  |r(i$)..Z/..J%:.w|
00003dd0  72 6f 6e 67 28 22 43 48  49 46 46 52 45 53 20 55  |rong("CHIFFRES U|
00003de0  4e 49 51 55 45 4d 45 4e  54 22 29 3a 74 72 75 25  |NIQUEMENT"):tru%|
00003df0  3d a3 3a e1 0d 1e 64 10  66 69 72 73 74 25 3d bb  |=.:...d.first%=.|
00003e00  28 69 24 29 0d 1e 6e 32  f2 6d 65 73 73 28 22 45  |(i$)..n2.mess("E|
00003e10  4e 54 52 45 52 20 44 45  20 4e 4f 55 56 45 41 55  |NTRER DE NOUVEAU|
00003e20  20 50 4f 55 52 20 43 4f  4e 46 49 52 4d 41 54 49  | POUR CONFIRMATI|
00003e30  4f 4e 22 2c 38 29 0d 1e  78 0a f2 69 6e 76 69 73  |ON",8)..x..invis|
00003e40  0d 1e 82 11 e7 65 73 63  25 3a f2 62 61 63 6b 3a  |.....esc%:.back:|
00003e50  e1 0d 1e 8c 1a 4a 25 3d  a4 76 61 6c 69 64 61 74  |.....J%=.validat|
00003e60  65 6e 75 6d 62 65 72 28  69 24 29 0d 1e 96 2f e7  |enumber(i$).../.|
00003e70  ac 4a 25 3a f2 77 72 6f  6e 67 28 22 43 48 49 46  |.J%:.wrong("CHIF|
00003e80  46 52 45 53 20 55 4e 49  51 55 45 4d 45 4e 54 22  |FRES UNIQUEMENT"|
00003e90  29 3a 74 72 75 25 3d a3  3a e1 0d 1e a0 11 73 65  |):tru%=.:.....se|
00003ea0  63 6f 6e 64 25 3d bb 28  69 24 29 0d 1e aa 49 e7  |cond%=.(i$)...I.|
00003eb0  66 69 72 73 74 25 3c 3e  73 65 63 6f 6e 64 25 3a  |first%<>second%:|
00003ec0  f2 77 72 6f 6e 67 28 22  43 48 49 46 46 52 45 53  |.wrong("CHIFFRES|
00003ed0  20 44 49 46 46 45 52 45  4e 54 53 20 2d 20 52 45  | DIFFERENTS - RE|
00003ee0  43 4f 4d 4d 45 4e 43 45  52 22 29 3a 74 72 75 25  |COMMENCER"):tru%|
00003ef0  3d a3 3a e1 0d 1e b4 0c  63 6f 64 25 3d bb 69 24  |=.:.....cod%=.i$|
00003f00  0d 1e be 30 f2 6d 65 73  73 28 22 4c 45 20 4e 55  |...0.mess("LE NU|
00003f10  4d 45 52 4f 20 44 45 20  43 4f 44 45 20 44 27 41  |MERO DE CODE D'A|
00003f20  43 43 45 53 20 41 43 43  45 50 54 45 22 2c 38 29  |CCES ACCEPTE",8)|
00003f30  0d 1e c8 05 e1 0d 1e d2  13 dd f2 65 6e 67 6c 69  |...........engli|
00003f40  73 68 61 63 63 65 73 73  0d 1e dc 2b f2 6d 65 73  |shaccess...+.mes|
00003f50  73 28 22 45 4e 54 45 52  20 4f 4c 44 20 41 43 43  |s("ENTER OLD ACC|
00003f60  45 53 53 20 43 4f 44 45  20 4e 55 4d 42 45 52 22  |ESS CODE NUMBER"|
00003f70  2c 38 29 0d 1e e6 0a f2  69 6e 76 69 73 0d 1e f0  |,8).....invis...|
00003f80  11 e7 65 73 63 25 3a f2  62 61 63 6b 3a e1 0d 1e  |..esc%:.back:...|
00003f90  fa 1a 4a 25 3d a4 76 61  6c 69 64 61 74 65 6e 75  |..J%=.validatenu|
00003fa0  6d 62 65 72 28 69 24 29  0d 1f 04 2f e7 ac 4a 25  |mber(i$).../..J%|
00003fb0  3a f2 77 72 6f 6e 67 28  22 4e 55 4d 42 45 52 53  |:.wrong("NUMBERS|
00003fc0  20 4f 4e 4c 59 20 50 4c  45 41 53 45 22 29 3a 74  | ONLY PLEASE"):t|
00003fd0  72 75 25 3d a3 3a e1 0d  1f 0e 37 e7 63 6f 64 25  |ru%=.:....7.cod%|
00003fe0  3c 3e bb 28 69 24 29 3a  f2 77 72 6f 6e 67 28 22  |<>.(i$):.wrong("|
00003ff0  49 4e 56 41 4c 49 44 20  41 43 43 45 53 53 20 43  |INVALID ACCESS C|
00004000  4f 44 45 22 29 3a 74 72  75 25 3d a3 3a e1 0d 1f  |ODE"):tru%=.:...|
00004010  18 2b f2 6d 65 73 73 28  22 45 4e 54 45 52 20 4e  |.+.mess("ENTER N|
00004020  45 57 20 41 43 43 45 53  53 20 43 4f 44 45 20 4e  |EW ACCESS CODE N|
00004030  55 4d 42 45 52 22 2c 38  29 0d 1f 22 0a f2 69 6e  |UMBER",8).."..in|
00004040  76 69 73 0d 1f 2c 11 e7  65 73 63 25 3a f2 62 61  |vis..,..esc%:.ba|
00004050  63 6b 3a e1 0d 1f 36 1a  4a 25 3d a4 76 61 6c 69  |ck:...6.J%=.vali|
00004060  64 61 74 65 6e 75 6d 62  65 72 28 69 24 29 0d 1f  |datenumber(i$)..|
00004070  40 2f e7 ac 4a 25 3a f2  77 72 6f 6e 67 28 22 4e  |@/..J%:.wrong("N|
00004080  55 4d 42 45 52 53 20 4f  4e 4c 59 20 50 4c 45 41  |UMBERS ONLY PLEA|
00004090  53 45 22 29 3a 74 72 75  25 3d a3 3a e1 0d 1f 4a  |SE"):tru%=.:...J|
000040a0  10 66 69 72 73 74 25 3d  bb 28 69 24 29 0d 1f 54  |.first%=.(i$)..T|
000040b0  25 f2 6d 65 73 73 28 22  45 4e 54 45 52 20 41 47  |%.mess("ENTER AG|
000040c0  41 49 4e 20 54 4f 20 43  4f 4e 46 49 52 4d 22 2c  |AIN TO CONFIRM",|
000040d0  38 29 0d 1f 5e 0a f2 69  6e 76 69 73 0d 1f 68 11  |8)..^..invis..h.|
000040e0  e7 65 73 63 25 3a f2 62  61 63 6b 3a e1 0d 1f 72  |.esc%:.back:...r|
000040f0  1a 4a 25 3d a4 76 61 6c  69 64 61 74 65 6e 75 6d  |.J%=.validatenum|
00004100  62 65 72 28 69 24 29 0d  1f 7c 2f e7 ac 4a 25 3a  |ber(i$)..|/..J%:|
00004110  f2 77 72 6f 6e 67 28 22  4e 55 4d 42 45 52 53 20  |.wrong("NUMBERS |
00004120  4f 4e 4c 59 20 50 4c 45  41 53 45 22 29 3a 74 72  |ONLY PLEASE"):tr|
00004130  75 25 3d a3 3a e1 0d 1f  86 11 73 65 63 6f 6e 64  |u%=.:.....second|
00004140  25 3d bb 28 69 24 29 0d  1f 90 45 e7 66 69 72 73  |%=.(i$)...E.firs|
00004150  74 25 3c 3e 73 65 63 6f  6e 64 25 3a f2 77 72 6f  |t%<>second%:.wro|
00004160  6e 67 28 22 44 49 46 46  45 52 45 4e 54 20 4e 55  |ng("DIFFERENT NU|
00004170  4d 42 45 52 53 20 2d 20  54 52 59 20 41 47 41 49  |MBERS - TRY AGAI|
00004180  4e 22 29 3a 74 72 75 25  3d a3 3a e1 0d 1f 9a 0c  |N"):tru%=.:.....|
00004190  63 6f 64 25 3d bb 69 24  0d 1f a4 2e f2 6d 65 73  |cod%=.i$.....mes|
000041a0  73 28 22 4e 45 57 20 41  43 43 45 53 53 20 43 4f  |s("NEW ACCESS CO|
000041b0  44 45 20 4e 55 4d 42 45  52 20 41 43 43 45 50 54  |DE NUMBER ACCEPT|
000041c0  45 44 22 2c 38 29 0d 1f  ae 05 e1 0d 1f b8 0a dd  |ED",8)..........|
000041d0  f2 62 61 63 6b 0d 1f c2  1c e7 73 75 6e 25 3c 31  |.back.....sun%<1|
000041e0  31 20 73 75 6e 25 3d 31  31 20 8b 73 75 6e 25 3d  |1 sun%=11 .sun%=|
000041f0  30 0d 1f cc 09 f2 6d 65  6e 75 0d 1f d6 0b f2 6d  |0.....menu.....m|
00004200  6f 75 73 65 31 0d 1f e0  05 e1 0d 1f ea 0f dd f2  |ouse1...........|
00004210  77 72 6f 6e 67 28 61 24  29 0d 1f f4 07 ef 20 37  |wrong(a$)..... 7|
00004220  0d 1f fe 10 f2 6d 65 73  73 28 61 24 2c 31 31 29  |.....mess(a$,11)|
00004230  0d 20 08 0f f2 64 65 6c  61 79 28 31 35 30 29 0d  |. ...delay(150).|
00004240  20 12 09 f2 62 61 63 6b  0d 20 1c 05 e1 0d 20 26  | ...back. .... &|
00004250  18 dd a4 76 61 6c 69 64  61 74 65 6e 75 6d 62 65  |...validatenumbe|
00004260  72 28 61 24 29 0d 20 30  0d e7 61 24 3d 22 22 3a  |r(a$). 0..a$="":|
00004270  3d a3 0d 20 3a 08 4b 25  3d b9 0d 20 44 10 e3 4a  |=.. :.K%=.. D..J|
00004280  25 3d 31 b8 20 a9 28 61  24 29 0d 20 4e 27 e7 c1  |%=1. .(a$). N'..|
00004290  61 24 2c 4a 25 2c 31 29  3c 22 30 22 20 84 20 c1  |a$,J%,1)<"0" . .|
000042a0  61 24 2c 4a 25 2c 31 29  3e 22 39 22 3a 4b 25 3d  |a$,J%,1)>"9":K%=|
000042b0  a3 0d 20 58 05 ed 0d 20  62 07 3d 4b 25 0d 20 6c  |.. X... b.=K%. l|
000042c0  0b dd f2 69 6e 76 69 73  0d 20 76 0b 2a 46 58 32  |...invis. v.*FX2|
000042d0  31 20 30 0d 20 80 0a 65  73 63 25 3d a3 0d 20 8a  |1 0. ..esc%=.. .|
000042e0  0a 63 6e 74 25 3d 30 0d  20 94 09 69 24 3d 22 22  |.cnt%=0. ..i$=""|
000042f0  0d 20 9e 05 f5 0d 20 a8  05 f5 0d 20 b2 05 f5 0d  |. .... .... ....|
00004300  20 bc 0b 6b 25 3d a6 28  31 29 0d 20 c6 13 fd 20  | ..k%=.(1). ... |
00004310  6b 25 3e 30 20 80 20 6b  25 3c 31 32 38 0d 20 d0  |k%>0 . k%<128. .|
00004320  16 e7 6b 25 3d 31 32 37  20 80 20 63 6e 74 25 3e  |..k%=127 . cnt%>|
00004330  30 20 8c 0d 20 da 0b 63  6e 74 25 2d 3d 31 0d 20  |0 .. ..cnt%-=1. |
00004340  e4 10 69 24 3d c0 69 24  2c 63 6e 74 25 29 0d 20  |..i$=.i$,cnt%). |
00004350  ee 21 f2 6d 65 73 73 28  22 3e 22 2b c4 a9 28 69  |.!.mess(">"+..(i|
00004360  24 29 2c 22 2a 22 29 2b  22 3c 22 2c 31 30 29 0d  |$),"*")+"<",10).|
00004370  20 f8 05 cd 0d 21 02 0d  fd 20 6b 25 3c 3e 31 32  | ....!... k%<>12|
00004380  37 0d 21 0c 17 e7 6b 25  3c 3e 31 33 20 80 20 63  |7.!...k%<>13 . c|
00004390  6e 74 25 3c 3e 34 20 8c  0d 21 16 0b 69 24 2b 3d  |nt%<>4 ..!..i$+=|
000043a0  bd 6b 25 0d 21 20 21 f2  6d 65 73 73 28 22 3e 22  |.k%.! !.mess(">"|
000043b0  2b c4 a9 28 69 24 29 2c  22 2a 22 29 2b 22 3c 22  |+..(i$),"*")+"<"|
000043c0  2c 31 30 29 0d 21 2a 0b  63 6e 74 25 2b 3d 31 0d  |,10).!*.cnt%+=1.|
000043d0  21 34 05 cd 0d 21 3e 14  fd 20 6b 25 3d 31 33 20  |!4...!>.. k%=13 |
000043e0  84 20 63 6e 74 25 3d 34  0d 21 48 05 e1 0d 21 52  |. cnt%=4.!H...!R|
000043f0  0b dd f2 6c 65 67 61 6c  0d 21 5c 1b e7 63 6f 64  |...legal.!\..cod|
00004400  25 3d 30 3a 62 61 64 25  3d a3 3a 65 73 63 25 3d  |%=0:bad%=.:esc%=|
00004410  a3 3a e1 0d 21 66 08 c8  97 20 87 0d 21 70 15 c8  |.:..!f... ..!p..|
00004420  99 22 41 42 43 5f 43 6f  6c 6f 75 72 22 2c 31 35  |."ABC_Colour",15|
00004430  0d 21 7a 59 e7 66 72 6e  25 20 f2 6d 65 73 73 28  |.!zY.frn% .mess(|
00004440  22 45 4e 54 52 45 52 20  4e 55 4d 45 52 4f 20 44  |"ENTRER NUMERO D|
00004450  45 20 43 4f 44 45 20 44  27 41 43 43 45 53 22 2c  |E CODE D'ACCES",|
00004460  31 31 29 20 8b f2 6d 65  73 73 28 22 45 4e 54 45  |11) ..mess("ENTE|
00004470  52 20 41 43 43 45 53 53  20 43 4f 44 45 20 4e 55  |R ACCESS CODE NU|
00004480  4d 42 45 52 22 2c 31 31  29 0d 21 84 0a f2 66 72  |MBER",11).!...fr|
00004490  70 75 74 0d 21 8e 11 e7  63 6f 64 25 3d bb 28 69  |put.!...cod%=.(i|
000044a0  24 29 20 8c 0d 21 98 5e  e7 66 72 6e 25 20 f2 6d  |$) ..!.^.frn% .m|
000044b0  65 73 73 28 22 4c 45 20  4e 55 4d 45 52 4f 20 44  |ess("LE NUMERO D|
000044c0  45 20 43 4f 44 45 20 44  27 41 43 43 45 53 20 41  |E CODE D'ACCES A|
000044d0  43 43 45 50 54 45 22 2c  38 29 20 8b f2 6d 65 73  |CCEPTE",8) ..mes|
000044e0  73 28 22 41 43 43 45 53  53 20 43 4f 44 45 20 4e  |s("ACCESS CODE N|
000044f0  55 4d 42 45 52 20 41 43  43 45 50 54 45 44 22 2c  |UMBER ACCEPTED",|
00004500  38 29 0d 21 a2 0f f2 64  65 6c 61 79 28 31 30 30  |8).!...delay(100|
00004510  29 0d 21 ac 0a 62 61 64  25 3d a3 0d 21 b6 05 cc  |).!..bad%=..!...|
00004520  0d 21 c0 0a 62 61 64 25  3d b9 0d 21 ca 05 cd 0d  |.!..bad%=..!....|
00004530  21 d4 0b f2 6d 6f 75 73  65 31 0d 21 de 05 e1 0d  |!...mouse1.!....|
00004540  21 e8 0b dd f2 66 72 70  75 74 0d 21 f2 0b 2a 46  |!....frput.!..*F|
00004550  58 32 31 20 30 0d 21 fc  0a 65 73 63 25 3d a3 0d  |X21 0.!..esc%=..|
00004560  22 06 0a 63 6e 74 25 3d  30 0d 22 10 0a 74 6f 74  |"..cnt%=0."..tot|
00004570  25 3d 34 0d 22 1a 09 69  24 3d 22 22 0d 22 24 05  |%=4."..i$=""."$.|
00004580  f5 0d 22 2e 05 f5 0d 22  38 05 f5 0d 22 42 0b 6b  |.."...."8..."B.k|
00004590  25 3d a6 28 31 29 0d 22  4c 1c fd 20 6b 25 3d 31  |%=.(1)."L.. k%=1|
000045a0  33 20 84 20 6b 25 3e 33  31 20 80 20 6b 25 3c 31  |3 . k%>31 . k%<1|
000045b0  32 38 0d 22 56 16 e7 6b  25 3d 31 32 37 20 80 20  |28."V..k%=127 . |
000045c0  63 6e 74 25 3e 30 20 8c  0d 22 60 0b 63 6e 74 25  |cnt%>0 .."`.cnt%|
000045d0  2d 3d 31 0d 22 6a 10 69  24 3d c0 69 24 2c 63 6e  |-=1."j.i$=.i$,cn|
000045e0  74 25 29 0d 22 74 20 f2  6d 65 73 73 28 22 3e 22  |t%)."t .mess(">"|
000045f0  2b c4 a9 28 69 24 29 2c  22 2a 22 29 2b 22 3c 22  |+..(i$),"*")+"<"|
00004600  2c 38 29 0d 22 7e 05 cd  0d 22 88 0d fd 20 6b 25  |,8)."~..."... k%|
00004610  3c 3e 31 32 37 0d 22 92  1a e7 6b 25 3c 3e 31 33  |<>127."...k%<>13|
00004620  20 80 20 63 6e 74 25 3c  3e 74 6f 74 25 20 8c 0d  | . cnt%<>tot% ..|
00004630  22 9c 0d e7 63 6e 74 25  3d 30 20 8c 0d 22 a6 32  |"...cnt%=0 ..".2|
00004640  e7 bd 28 6b 25 29 3e 3d  22 61 22 20 80 20 bd 28  |..(k%)>="a" . .(|
00004650  6b 25 29 3c 3d 22 7a 22  20 69 24 3d bd 28 6b 25  |k%)<="z" i$=.(k%|
00004660  2d 33 32 29 20 8b 69 24  3d bd 28 6b 25 29 0d 22  |-32) .i$=.(k%)."|
00004670  b0 05 cc 0d 22 ba 34 e7  bd 28 6b 25 29 3e 3d 22  |....".4..(k%)>="|
00004680  41 22 20 80 20 bd 28 6b  25 29 3c 3d 22 5a 22 20  |A" . .(k%)<="Z" |
00004690  69 24 2b 3d bd 28 6b 25  2b 33 32 29 20 8b 69 24  |i$+=.(k%+32) .i$|
000046a0  2b 3d bd 28 6b 25 29 0d  22 c4 05 cd 0d 22 ce 20  |+=.(k%)."....". |
000046b0  f2 6d 65 73 73 28 22 3e  22 2b c4 a9 28 69 24 29  |.mess(">"+..(i$)|
000046c0  2c 22 2a 22 29 2b 22 3c  22 2c 38 29 0d 22 d8 0b  |,"*")+"<",8)."..|
000046d0  63 6e 74 25 2b 3d 31 0d  22 e2 05 cd 0d 22 ec 17  |cnt%+=1."...."..|
000046e0  fd 20 6b 25 3d 31 33 20  84 20 63 6e 74 25 3d 74  |. k%=13 . cnt%=t|
000046f0  6f 74 25 0d 22 f6 05 e1  0d 23 00 14 dd f2 70 6f  |ot%."....#....po|
00004700  69 6e 74 28 61 24 2c 6d  6f 73 25 29 0d 23 0a 14  |int(a$,mos%).#..|
00004710  ea 20 77 69 72 25 2c 70  61 72 25 2c 64 61 74 25  |. wir%,par%,dat%|
00004720  0d 23 14 20 de 20 77 69  72 25 20 31 30 38 38 2c  |.#. . wir% 1088,|
00004730  70 61 72 25 20 32 30 2c  64 61 74 25 20 32 35 36  |par% 20,dat% 256|
00004740  0d 23 1e 0f 68 25 3d 8e  28 66 24 2b 61 24 29 0d  |.#..h%=.(f$+a$).|
00004750  23 28 0c e3 4a 25 3d 30  b8 33 32 0d 23 32 0c e3  |#(..J%=0.32.#2..|
00004760  4b 25 3d 30 b8 33 32 0d  23 3c 18 77 69 72 25 3f  |K%=0.32.#<.wir%?|
00004770  28 4b 25 2a 33 32 2b 4a  25 29 3d 9a 23 68 25 0d  |(K%*32+J%)=.#h%.|
00004780  23 46 05 ed 0d 23 50 05  ed 0d 23 5a 08 d9 23 68  |#F...#P...#Z..#h|
00004790  25 0d 23 64 13 21 70 61  72 25 3d 26 32 30 30 38  |%.#d.!par%=&2008|
000047a0  30 32 30 30 0d 23 6e 0f  70 61 72 25 3f 31 3d 6d  |0200.#n.par%?1=m|
000047b0  6f 73 25 0d 23 78 0c 70  61 72 25 21 34 3d 30 0d  |os%.#x.par%!4=0.|
000047c0  23 82 0f 70 61 72 25 21  36 3d 64 61 74 25 0d 23  |#..par%!6=dat%.#|
000047d0  8c 0d 6d 6d 6f 25 3d 64  61 74 25 0d 23 96 0e e3  |..mmo%=dat%.#...|
000047e0  4a 25 3d 33 32 b8 31 88  b9 0d 23 a0 0b e3 4b 25  |J%=32.1...#...K%|
000047f0  3d 30 b8 37 0d 23 aa 0d  e3 4c 25 3d 33 b8 30 88  |=0.7.#...L%=3.0.|
00004800  b9 0d 23 b4 1d 76 61 6c  25 3d 77 69 72 25 3f 28  |..#..val%=wir%?(|
00004810  4a 25 2a 33 32 2b 4b 25  2a 34 2b 4c 25 29 0d 23  |J%*32+K%*4+L%).#|
00004820  be 30 e7 76 61 6c 25 3d  26 46 46 3a 70 61 72 25  |.0.val%=&FF:par%|
00004830  3f 34 3d 4b 25 2a 34 2b  4c 25 3a 70 61 72 25 3f  |?4=K%*4+L%:par%?|
00004840  35 3d 33 31 2d 4a 25 3a  76 61 6c 25 3d 30 0d 23  |5=31-J%:val%=0.#|
00004850  c8 12 3f 6d 6d 6f 25 3d  3f 6d 6d 6f 25 3c 3c 32  |..?mmo%=?mmo%<<2|
00004860  0d 23 d2 0f 3f 6d 6d 6f  25 2b 3d 76 61 6c 25 0d  |.#..?mmo%+=val%.|
00004870  23 dc 05 ed 0d 23 e6 0b  6d 6d 6f 25 2b 3d 31 0d  |#....#..mmo%+=1.|
00004880  23 f0 05 ed 0d 23 fa 05  ed 0d 24 04 17 c8 99 22  |#....#....$...."|
00004890  4f 53 5f 57 6f 72 64 22  2c 32 31 2c 70 61 72 25  |OS_Word",21,par%|
000048a0  0d 24 0e 05 e1 0d 24 18  0d dd f2 64 65 73 6b 74  |.$....$....deskt|
000048b0  6f 70 0d 24 22 08 c8 97  20 87 0d 24 2c 14 c8 99  |op.$"... ..$,...|
000048c0  22 41 42 43 5f 42 6c 61  6e 6b 22 2c 31 31 0d 24  |"ABC_Blank",11.$|
000048d0  36 10 f2 65 78 69 74 6d  65 73 73 61 67 65 0d 24  |6..exitmessage.$|
000048e0  40 21 f2 6d 65 73 73 28  22 52 65 74 75 72 6e 20  |@!.mess("Return |
000048f0  74 6f 20 44 65 73 6b 74  6f 70 3f 22 2c 38 29 0d  |to Desktop?",8).|
00004900  24 4a 13 c8 99 22 41 42  43 5f 50 61 6c 65 74 74  |$J..."ABC_Palett|
00004910  65 22 0d 24 54 0b f2 6d  6f 75 73 65 31 0d 24 5e  |e".$T..mouse1.$^|
00004920  11 6b 25 3d a4 79 65 73  6e 6f 64 65 73 6b 0d 24  |.k%=.yesnodesk.$|
00004930  68 15 c8 99 22 41 42 43  5f 43 6f 6c 6f 75 72 22  |h..."ABC_Colour"|
00004940  2c 31 35 0d 24 72 0b 73  75 6e 25 3d 31 30 0d 24  |,15.$r.sun%=10.$|
00004950  7c 0a e7 ac 6b 25 3a e1  0d 24 86 09 2a 46 58 32  ||...k%:..$..*FX2|
00004960  30 0d 24 90 22 2a 43 48  41 4e 4e 45 4c 56 4f 49  |0.$."*CHANNELVOI|
00004970  43 45 20 31 20 57 61 76  65 53 79 6e 74 68 2d 42  |CE 1 WaveSynth-B|
00004980  65 65 70 0d 24 9a 22 2a  43 48 41 4e 4e 45 4c 56  |eep.$."*CHANNELV|
00004990  4f 49 43 45 20 32 20 57  61 76 65 53 79 6e 74 68  |OICE 2 WaveSynth|
000049a0  2d 42 65 65 70 0d 24 a4  22 2a 43 48 41 4e 4e 45  |-Beep.$."*CHANNE|
000049b0  4c 56 4f 49 43 45 20 33  20 57 61 76 65 53 79 6e  |LVOICE 3 WaveSyn|
000049c0  74 68 2d 42 65 65 70 0d  24 ae 22 2a 43 48 41 4e  |th-Beep.$."*CHAN|
000049d0  4e 45 4c 56 4f 49 43 45  20 34 20 57 61 76 65 53  |NELVOICE 4 WaveS|
000049e0  79 6e 74 68 2d 42 65 65  70 0d 24 b8 14 2a 57 49  |ynth-Beep.$..*WI|
000049f0  50 45 20 72 61 6d 3a 2a  20 7e 43 7e 56 0d 24 c2  |PE ram:* ~C~V.$.|
00004a00  0f 2a 52 4d 4b 49 4c 4c  20 41 42 43 0d 24 cc 14  |.*RMKILL ABC.$..|
00004a10  2a 52 4d 4b 49 4c 4c 20  53 79 6e 73 6d 61 6a 73  |*RMKILL Synsmajs|
00004a20  0d 24 d6 11 2a 52 4d 4b  49 4c 4c 20 54 69 6d 65  |.$..*RMKILL Time|
00004a30  72 0d 24 e0 1f 2a 52 4d  4b 49 4c 4c 20 31 30 2f  |r.$..*RMKILL 10/|
00004a40  31 30 53 6f 75 6e 64 47  65 6e 65 72 61 74 6f 72  |10SoundGenerator|
00004a50  0d 24 ea 0e 2a 50 4f 49  4e 54 45 52 20 31 0d 24  |.$..*POINTER 1.$|
00004a60  f4 0f 2a 53 50 45 41 4b  45 52 20 4f 4e 0d 24 fe  |..*SPEAKER ON.$.|
00004a70  08 ef 20 32 30 0d 25 08  0c 2a 44 45 53 4b 54 4f  |.. 20.%..*DESKTO|
00004a80  50 0d 25 12 15 dd f2 77  69 6e 67 73 28 6c 24 2c  |P.%....wings(l$,|
00004a90  78 25 2c 79 25 29 0d 25  1c 29 c8 99 22 41 42 43  |x%,y%).%.).."ABC|
00004aa0  5f 55 6e 70 61 63 6b 53  70 72 69 74 65 22 2c 22  |_UnpackSprite","|
00004ab0  77 69 6e 67 73 22 2c 6a  25 2c 78 25 2c 79 25 0d  |wings",j%,x%,y%.|
00004ac0  25 26 07 ef 20 35 0d 25  30 0a e6 20 30 2c 31 31  |%&.. 5.%0.. 0,11|
00004ad0  0d 25 3a 20 ec 20 28 78  25 2a 32 2b 32 39 38 29  |.%: . (x%*2+298)|
00004ae0  2d a9 28 6c 24 29 2a 38  2c 79 25 2a 34 2d 34 30  |-.(l$)*8,y%*4-40|
00004af0  0d 25 44 07 f1 6c 24 0d  25 4e 07 ef 20 34 0d 25  |.%D..l$.%N.. 4.%|
00004b00  58 05 87 0d 25 62 05 e1  0d 25 6c 0c dd f2 73 65  |X...%b...%l...se|
00004b10  6c 65 63 74 0d 25 76 36  e7 ac a4 61 72 65 61 28  |lect.%v6...area(|
00004b20  38 30 2c 31 38 2c 33 33  36 2c 38 34 30 29 20 80  |80,18,336,840) .|
00004b30  20 ac a4 61 72 65 61 28  39 31 32 2c 31 38 2c 31  | ..area(912,18,1|
00004b40  31 36 38 2c 38 34 30 29  20 8c 0d 25 80 0b 70 72  |168,840) ..%..pr|
00004b50  65 25 3d 2d 31 0d 25 8a  0b 73 6c 79 25 3d 2d 31  |e%=-1.%..sly%=-1|
00004b60  0d 25 94 0f f2 72 65 63  74 61 6e 67 6c 65 73 0d  |.%...rectangles.|
00004b70  25 9e 05 cc 0d 25 a8 16  73 6c 79 25 3d 28 6d 6f  |%....%..sly%=(mo|
00004b80  79 25 2d 31 38 29 81 32  38 30 0d 25 b2 23 e7 a4  |y%-18).280.%.#..|
00004b90  61 72 65 61 28 39 31 32  2c 31 38 2c 31 31 36 38  |area(912,18,1168|
00004ba0  2c 38 34 30 29 3a 73 6c  79 25 2b 3d 33 0d 25 bc  |,840):sly%+=3.%.|
00004bb0  11 e7 73 6c 79 25 3c 3e  70 72 65 25 20 8c 0d 25  |..sly%<>pre% ..%|
00004bc0  c6 0f f2 72 65 63 74 61  6e 67 6c 65 73 0d 25 d0  |...rectangles.%.|
00004bd0  0d 70 72 65 25 3d 73 6c  79 25 0d 25 da 0a e6 20  |.pre%=sly%.%... |
00004be0  30 2c 31 31 0d 25 e4 06  c8 96 0d 25 ee 45 e7 73  |0,11.%.....%.E.s|
00004bf0  6c 79 25 3c 33 20 c8 93  20 38 30 2c 73 6c 79 25  |ly%<3 .. 80,sly%|
00004c00  2a 32 38 30 2b 31 36 2c  32 35 36 2c 32 35 36 20  |*280+16,256,256 |
00004c10  8b c8 93 20 39 31 32 2c  28 73 6c 79 25 2d 33 29  |... 912,(sly%-3)|
00004c20  2a 32 38 30 2b 31 36 2c  32 35 36 2c 32 35 36 0d  |*280+16,256,256.|
00004c30  25 f8 05 cd 0d 26 02 05  cd 0d 26 0c 0d e7 62 75  |%....&....&...bu|
00004c40  74 25 3d 30 3a e1 0d 26  16 0d c8 8e 20 73 6c 79  |t%=0:..&.... sly|
00004c50  25 20 ca 0d 26 20 1a c9  20 30 3a f2 72 75 6e 28  |% ..& .. 0:.run(|
00004c60  22 57 6f 72 64 53 65 61  72 63 68 22 29 0d 26 2a  |"WordSearch").&*|
00004c70  15 c9 20 31 3a f2 72 75  6e 28 22 54 6f 77 65 72  |.. 1:.run("Tower|
00004c80  22 29 0d 26 34 16 c9 20  32 3a f2 72 75 6e 28 22  |").&4.. 2:.run("|
00004c90  54 68 65 43 6f 70 22 29  0d 26 3e 16 c9 20 33 3a  |TheCop").&>.. 3:|
00004ca0  f2 72 75 6e 28 22 53 74  6f 6e 65 73 22 29 0d 26  |.run("Stones").&|
00004cb0  48 16 c9 20 34 3a f2 72  75 6e 28 22 52 65 73 63  |H.. 4:.run("Resc|
00004cc0  75 65 22 29 0d 26 52 16  c9 20 35 3a f2 72 75 6e  |ue").&R.. 5:.run|
00004cd0  28 22 4c 69 6e 6b 55 70  22 29 0d 26 5c 05 cb 0d  |("LinkUp").&\...|
00004ce0  26 66 0e f2 7a 65 72 6f  6d 6f 75 73 65 0d 26 70  |&f..zeromouse.&p|
00004cf0  12 e7 73 6c 79 25 3e 2d  31 3a f2 6d 65 6e 75 0d  |..sly%>-1:.menu.|
00004d00  26 7a 0b f2 6d 6f 75 73  65 31 0d 26 84 05 e1 0d  |&z..mouse1.&....|
00004d10  26 8e 0e dd f2 63 6f 6e  74 65 6e 74 73 0d 26 98  |&....contents.&.|
00004d20  07 ef 20 35 0d 26 a2 0b  e3 4a 25 3d 31 b8 33 0d  |.. 5.&...J%=1.3.|
00004d30  26 ac 36 c8 99 22 41 42  43 5f 55 6e 70 61 63 6b  |&.6.."ABC_Unpack|
00004d40  53 70 72 69 74 65 22 2c  22 69 6e 74 72 6f 22 2b  |Sprite","intro"+|
00004d50  c3 28 4a 25 29 2c 6a 25  2c 34 38 2c 32 37 34 2d  |.(J%),j%,48,274-|
00004d60  4a 25 2a 37 30 0d 26 b6  39 c8 99 22 41 42 43 5f  |J%*70.&.9.."ABC_|
00004d70  55 6e 70 61 63 6b 53 70  72 69 74 65 22 2c 22 69  |UnpackSprite","i|
00004d80  6e 74 72 6f 22 2b c3 28  4a 25 2b 33 29 2c 6a 25  |ntro"+.(J%+3),j%|
00004d90  2c 34 36 34 2c 32 37 34  2d 4a 25 2a 37 30 0d 26  |,464,274-J%*70.&|
00004da0  c0 05 ed 0d 26 ca 18 e7  66 72 6e 25 20 f7 20 8d  |....&...frn% . .|
00004db0  44 7e 67 20 8b f7 20 8d  44 74 67 0d 26 d4 0b e3  |D~g .. .Dtg.&...|
00004dc0  4a 25 3d 31 b8 33 0d 26  de 0b f3 20 61 24 2c 62  |J%=1.3.&... a$,b|
00004dd0  24 0d 26 e8 09 e6 20 30  2c 37 0d 26 f2 13 ec 20  |$.&... 0,7.&... |
00004de0  39 36 2c 4a 25 2a 32 38  30 2d 32 33 32 0d 26 fc  |96,J%*280-232.&.|
00004df0  07 f1 61 24 0d 27 06 14  ec 20 39 32 38 2c 4a 25  |..a$.'... 928,J%|
00004e00  2a 32 38 30 2d 32 33 32  0d 27 10 07 f1 62 24 0d  |*280-232.'...b$.|
00004e10  27 1a 09 e6 20 30 2c 30  0d 27 24 14 ec 20 31 30  |'... 0,0.'$.. 10|
00004e20  32 2c 4a 25 2a 32 38 30  2d 32 32 38 0d 27 2e 07  |2,J%*280-228.'..|
00004e30  f1 61 24 0d 27 38 14 ec  20 39 33 34 2c 4a 25 2a  |.a$.'8.. 934,J%*|
00004e40  32 38 30 2d 32 32 38 0d  27 42 07 f1 62 24 0d 27  |280-228.'B..b$.'|
00004e50  4c 05 ed 0d 27 56 07 ef  20 34 0d 27 60 05 87 0d  |L...'V.. 4.'`...|
00004e60  27 6a 05 e1 0d 27 74 35  dc 20 57 6f 72 64 20 53  |'j...'t5. Word S|
00004e70  65 61 72 63 68 2c 53 74  6f 6e 65 73 2c 54 6f 77  |earch,Stones,Tow|
00004e80  65 72 2c 52 65 73 63 75  65 2c 54 68 65 20 43 6f  |er,Rescue,The Co|
00004e90  70 2c 4c 69 6e 6b 20 55  70 0d 27 7e 45 dc 20 4c  |p,Link Up.'~E. L|
00004ea0  65 20 50 75 7a 7a 6c 65  2c 4c 61 20 42 6f 6e 6e  |e Puzzle,La Bonn|
00004eb0  65 20 52 6f 75 74 65 2c  4c 61 20 54 6f 75 72 2c  |e Route,La Tour,|
00004ec0  22 4c 61 20 46 75 73 e9  65 22 2c 4c 65 20 46 6c  |"La Fus.e",Le Fl|
00004ed0  69 63 2c 4c 65 20 4a 75  6d 65 6c 61 67 65 0d 27  |ic,Le Jumelage.'|
00004ee0  88 10 dd f2 72 65 63 74  61 6e 67 6c 65 73 0d 27  |....rectangles.'|
00004ef0  92 09 e6 20 30 2c 30 0d  27 9c 0b e3 4a 25 3d 31  |... 0,0.'...J%=1|
00004f00  b8 33 0d 27 a6 1c c8 93  20 38 30 2c 4a 25 2a 32  |.3.'.... 80,J%*2|
00004f10  38 30 2d 32 36 34 2c 32  35 36 2c 32 35 36 0d 27  |80-264,256,256.'|
00004f20  b0 1d c8 93 20 39 31 32  2c 4a 25 2a 32 38 30 2d  |.... 912,J%*280-|
00004f30  32 36 34 2c 32 35 36 2c  32 35 36 0d 27 ba 05 ed  |264,256,256.'...|
00004f40  0d 27 c4 05 e1 0d 27 ce  15 dd f2 61 63 68 69 65  |.'....'....achie|
00004f50  76 65 64 69 73 63 64 75  6d 70 0d 27 d8 0b e7 ac  |vediscdump.'....|
00004f60  a6 2d 32 3a e1 0d 27 e2  0c e7 ac a6 2d 38 32 3a  |.-2:..'.....-82:|
00004f70  e1 0d 27 ec 07 ef 20 37  0d 27 f6 08 c8 97 20 87  |..'... 7.'.... .|
00004f80  0d 28 00 07 ea 20 85 0d  28 0a 20 c8 99 22 41 42  |.(... ..(. .."AB|
00004f90  43 5f 54 72 61 6e 73 66  65 72 22 2c 30 2c 31 36  |C_Transfer",0,16|
00004fa0  2c 36 34 30 2c 31 37 0d  28 14 29 f2 69 6e 70 75  |,640,17.(.).inpu|
00004fb0  74 28 33 32 2c 22 61 64  66 73 3a 3a 30 2e 24 2e  |t(32,"adfs::0.$.|
00004fc0  41 63 68 69 65 76 65 53  70 72 22 2c a3 2c b9 29  |AchieveSpr",.,.)|
00004fd0  0d 28 1e 13 c8 99 22 41  42 43 5f 52 65 73 74 6f  |.(...."ABC_Resto|
00004fe0  72 65 22 0d 28 28 13 e7  65 73 63 25 20 84 20 69  |re".((..esc% . i|
00004ff0  24 3d 22 22 3a e1 0d 28  32 19 ef 20 32 34 2c 30  |$="":..(2.. 24,0|
00005000  3b 31 31 32 3b 31 32 37  38 3b 31 30 30 38 3b 0d  |;112;1278;1008;.|
00005010  28 3c 14 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |(<..."Hourglass_|
00005020  4f 6e 22 0d 28 46 15 ff  22 53 43 52 45 45 4e 53  |On".(F.."SCREENS|
00005030  41 56 45 20 22 2b 69 24  0d 28 50 08 ef 20 32 36  |AVE "+i$.(P.. 26|
00005040  0d 28 5a 17 c8 99 22 48  6f 75 72 67 6c 61 73 73  |.(Z..."Hourglass|
00005050  5f 53 6d 61 73 68 22 0d  28 64 12 ee 20 85 20 ea  |_Smash".(d.. . .|
00005060  3a f2 6d 69 73 74 61 6b  65 0d 28 6e 1d 2a 44 49  |:.mistake.(n.*DI|
00005070  52 20 3c 44 69 73 63 31  24 44 69 72 3e 2e 53 69  |R <Disc1$Dir>.Si|
00005080  78 47 61 6d 65 73 0d 28  78 13 c8 99 22 41 42 43  |xGames.(x..."ABC|
00005090  5f 52 65 73 74 6f 72 65  22 0d 28 82 10 c8 97 20  |_Restore".(.... |
000050a0  b8 20 36 34 30 2c 35 31  32 0d 28 8c 0b f2 6d 6f  |. 640,512.(...mo|
000050b0  75 73 65 31 0d 28 96 05  e1 0d 28 a0 0d dd f2 6d  |use1.(....(....m|
000050c0  69 73 74 61 6b 65 0d 28  aa 07 ef 20 37 0d 28 b4  |istake.(... 7.(.|
000050d0  3f f2 6d 65 73 73 28 22  50 4c 45 41 53 45 20 49  |?.mess("PLEASE I|
000050e0  4e 53 45 52 54 20 44 49  53 43 20 32 20 49 4e 54  |NSERT DISC 2 INT|
000050f0  4f 20 44 52 49 56 45 20  41 4e 44 20 50 52 45 53  |O DRIVE AND PRES|
00005100  53 20 52 45 54 55 52 4e  22 2c 38 29 0d 28 be 05  |S RETURN",8).(..|
00005110  f5 0d 28 c8 0a fd 20 a6  2d 37 34 0d 28 d2 05 e1  |..(... .-74.(...|
00005120  0d 28 dc 16 dd f2 61 63  68 69 65 76 65 70 72 69  |.(....achievepri|
00005130  6e 74 64 75 6d 70 0d 28  e6 0b e7 ac a6 2d 32 3a  |ntdump.(.....-2:|
00005140  e1 0d 28 f0 0c e7 ac a6  2d 35 36 3a e1 0d 28 fa  |..(.....-56:..(.|
00005150  07 ef 20 37 0d 29 04 14  c8 99 22 48 6f 75 72 67  |.. 7.)...."Hourg|
00005160  6c 61 73 73 5f 4f 6e 22  0d 29 0e 0a f7 20 8d 44  |lass_On".)... .D|
00005170  58 47 0d 29 18 11 6e 65  77 25 28 29 3d 61 74 74  |XG.)..new%()=att|
00005180  25 28 29 0d 29 22 17 f2  70 72 69 6e 74 70 61 67  |%().)"..printpag|
00005190  65 28 61 74 74 65 6e 64  24 29 0d 29 2c 0a f2 66  |e(attend$).),..f|
000051a0  6c 75 73 68 0d 29 36 17  c8 99 22 48 6f 75 72 67  |lush.)6..."Hourg|
000051b0  6c 61 73 73 5f 53 6d 61  73 68 22 0d 29 40 0b f2  |lass_Smash".)@..|
000051c0  6d 6f 75 73 65 31 0d 29  4a 05 e1 0d 29 54 19 dd  |mouse1.)J...)T..|
000051d0  f2 61 6c 6c 61 63 68 69  65 76 65 70 72 69 6e 74  |.allachieveprint|
000051e0  64 75 6d 70 0d 29 5e 0b  e7 ac a6 2d 32 3a e1 0d  |dump.)^....-2:..|
000051f0  29 68 0d e7 ac a6 2d 31  30 32 3a e1 0d 29 72 07  |)h....-102:..)r.|
00005200  ef 20 37 0d 29 7c 14 c8  99 22 48 6f 75 72 67 6c  |. 7.)|..."Hourgl|
00005210  61 73 73 5f 4f 6e 22 0d  29 86 15 f2 64 69 73 70  |ass_On".)...disp|
00005220  6c 61 79 64 69 72 65 63  74 6f 72 79 0d 29 90 0a  |laydirectory.)..|
00005230  f2 66 6c 75 73 68 0d 29  9a 17 c8 99 22 48 6f 75  |.flush.)...."Hou|
00005240  72 67 6c 61 73 73 5f 53  6d 61 73 68 22 0d 29 a4  |rglass_Smash".).|
00005250  0b f2 6d 6f 75 73 65 31  0d 29 ae 17 c8 97 20 c8  |..mouse1.).... .|
00005260  93 20 30 2c 30 2c 31 32  38 30 2c 31 30 32 34 0d  |. 0,0,1280,1024.|
00005270  29 b8 0e 66 69 6c 65 73  25 28 29 3d a3 0d 29 c2  |)..files%()=..).|
00005280  0a 6c 73 74 25 3d 30 0d  29 cc 05 f5 0d 29 d6 15  |.lst%=0.)....)..|
00005290  c8 97 20 6d 6f 78 25 2c  6d 6f 79 25 2c 62 75 74  |.. mox%,moy%,but|
000052a0  25 0d 29 e0 16 73 71 78  25 3d 28 6d 6f 78 25 2d  |%.)..sqx%=(mox%-|
000052b0  31 32 38 29 3e 3e 38 0d  29 ea 12 e7 73 71 78 25  |128)>>8.)...sqx%|
000052c0  3e 33 3a 73 71 78 25 3d  33 0d 29 f4 12 e7 73 71  |>3:sqx%=3.)...sq|
000052d0  78 25 3c 30 3a 73 71 78  25 3d 30 0d 29 fe 17 73  |x%<0:sqx%=0.)..s|
000052e0  71 79 25 3d 28 31 30 32  34 2d 6d 6f 79 25 29 3e  |qy%=(1024-moy%)>|
000052f0  3e 36 0d 2a 08 14 e7 73  71 79 25 3e 31 35 3a 73  |>6.*...sqy%>15:s|
00005300  71 79 25 3d 31 35 0d 2a  12 15 69 6e 78 25 3d 73  |qy%=15.*..inx%=s|
00005310  71 79 25 2b 73 71 78 25  2a 67 25 0d 2a 1c 14 e7  |qy%+sqx%*g%.*...|
00005320  69 6e 78 25 3e 36 33 3a  69 6e 78 25 3d 36 33 0d  |inx%>63:inx%=63.|
00005330  2a 26 11 e7 69 6e 78 25  3c 3e 6c 73 74 25 20 8c  |*&..inx%<>lst% .|
00005340  0d 2a 30 32 e7 66 69 6c  65 73 25 28 6c 73 74 25  |.*02.files%(lst%|
00005350  29 20 f2 73 6d 61 6c 6c  28 6c 73 74 25 2c 31 34  |) .small(lst%,14|
00005360  29 20 8b f2 73 6d 61 6c  6c 28 6c 73 74 25 2c 31  |) ..small(lst%,1|
00005370  31 29 0d 2a 3a 32 e7 66  69 6c 65 73 25 28 69 6e  |1).*:2.files%(in|
00005380  78 25 29 20 f2 73 6d 61  6c 6c 28 69 6e 78 25 2c  |x%) .small(inx%,|
00005390  31 34 29 20 8b f2 73 6d  61 6c 6c 28 69 6e 78 25  |14) ..small(inx%|
000053a0  2c 31 35 29 0d 2a 44 0d  6c 73 74 25 3d 69 6e 78  |,15).*D.lst%=inx|
000053b0  25 0d 2a 4e 05 cd 0d 2a  58 22 e7 62 75 74 25 3d  |%.*N...*X".but%=|
000053c0  31 20 80 20 66 69 6c 65  6e 61 6d 65 24 28 6c 73  |1 . filename$(ls|
000053d0  74 25 29 3e 22 22 20 8c  0d 2a 62 1e 66 69 6c 65  |t%)>"" ..*b.file|
000053e0  73 25 28 6c 73 74 25 29  3d ac 66 69 6c 65 73 25  |s%(lst%)=.files%|
000053f0  28 6c 73 74 25 29 0d 2a  6c 32 e7 66 69 6c 65 73  |(lst%).*l2.files|
00005400  25 28 6c 73 74 25 29 20  f2 73 6d 61 6c 6c 28 6c  |%(lst%) .small(l|
00005410  73 74 25 2c 31 34 29 20  8b f2 73 6d 61 6c 6c 28  |st%,14) ..small(|
00005420  6c 73 74 25 2c 31 31 29  0d 2a 76 0e f2 7a 65 72  |lst%,11).*v..zer|
00005430  6f 6d 6f 75 73 65 0d 2a  80 05 cd 0d 2a 8a 15 e7  |omouse.*....*...|
00005440  a6 2d 31 31 33 20 6b 25  3d b9 20 8b 6b 25 3d a3  |.-113 k%=. .k%=.|
00005450  0d 2a 94 11 fd 20 62 75  74 25 3d 34 20 84 20 6b  |.*... but%=4 . k|
00005460  25 0d 2a 9e 16 61 24 3d  66 69 6c 65 6e 61 6d 65  |%.*..a$=filename|
00005470  24 28 6c 73 74 25 29 0d  2a a8 0a e7 ac 6b 25 20  |$(lst%).*....k% |
00005480  8c 0d 2a b2 14 c8 99 22  48 6f 75 72 67 6c 61 73  |..*...."Hourglas|
00005490  73 5f 4f 6e 22 0d 2a bc  15 c8 99 22 41 42 43 5f  |s_On".*...."ABC_|
000054a0  43 6f 6c 6f 75 72 22 2c  31 35 0d 2a c6 08 58 25  |Colour",15.*..X%|
000054b0  3d 30 0d 2a d0 0a 65 73  63 25 3d a3 0d 2a da 14  |=0.*..esc%=..*..|
000054c0  c8 95 20 58 25 3c 36 34  20 80 20 ac 65 73 63 25  |.. X%<64 . .esc%|
000054d0  0d 2a e4 11 e7 66 69 6c  65 73 25 28 58 25 29 20  |.*...files%(X%) |
000054e0  8c 0d 2a ee 4a 68 25 3d  8e 28 22 3c 44 69 73 63  |..*.Jh%=.("<Disc|
000054f0  31 24 44 69 72 3e 2e 53  69 78 47 61 6d 65 73 2e  |1$Dir>.SixGames.|
00005500  41 63 68 69 65 76 65 2e  41 63 68 69 65 76 65 22  |Achieve.Achieve"|
00005510  2b c3 28 63 6c 61 25 29  2b 22 2e 22 2b 66 69 6c  |+.(cla%)+"."+fil|
00005520  65 6e 61 6d 65 24 28 58  25 29 29 0d 2a f8 0b e3  |ename$(X%)).*...|
00005530  4c 25 3d 30 b8 34 0d 2b  02 0b e3 4b 25 3d 31 b8  |L%=0.4.+...K%=1.|
00005540  36 0d 2b 0c 0b e3 4a 25  3d 31 b8 36 0d 2b 16 17  |6.+...J%=1.6.+..|
00005550  e8 23 68 25 2c 6e 65 77  25 28 4a 25 2c 4b 25 2c  |.#h%,new%(J%,K%,|
00005560  4c 25 29 0d 2b 20 05 ed  0d 2b 2a 05 ed 0d 2b 34  |L%).+ ...+*...+4|
00005570  05 ed 0d 2b 3e 08 d9 23  68 25 0d 2b 48 1d f2 70  |...+>..#h%.+H..p|
00005580  72 69 6e 74 70 61 67 65  28 66 69 6c 65 6e 61 6d  |rintpage(filenam|
00005590  65 24 28 58 25 29 29 0d  2b 52 05 cd 0d 2b 5c 09  |e$(X%)).+R...+\.|
000055a0  58 25 2b 3d 31 0d 2b 66  05 ce 0d 2b 70 17 c8 99  |X%+=1.+f...+p...|
000055b0  22 48 6f 75 72 67 6c 61  73 73 5f 53 6d 61 73 68  |"Hourglass_Smash|
000055c0  22 0d 2b 7a 05 cd 0d 2b  84 1a c8 97 20 c8 93 20  |".+z...+.... .. |
000055d0  31 32 38 2c 31 31 36 2c  31 31 35 30 2c 37 36 34  |128,116,1150,764|
000055e0  0d 2b 8e 10 f2 61 63 68  69 65 76 65 63 61 72 64  |.+...achievecard|
000055f0  0d 2b 98 0e f2 7a 65 72  6f 6d 6f 75 73 65 0d 2b  |.+...zeromouse.+|
00005600  a2 05 e1 0d 2b ac 16 dd  f2 70 72 69 6e 74 70 61  |....+....printpa|
00005610  67 65 28 6e 61 6d 65 24  29 0d 2b b6 07 ea 20 85  |ge(name$).+... .|
00005620  0d 2b c0 1a ee 20 85 20  ea 3a ef 20 36 2c 33 2c  |.+... . .:. 6,3,|
00005630  37 3a 65 73 63 25 3d b9  3a e1 0d 2b ca 0a ef 20  |7:esc%=.:..+... |
00005640  32 2c 32 31 0d 2b d4 0b  f2 68 65 61 64 65 72 0d  |2,21.+...header.|
00005650  2b de 14 61 24 3d a4 73  74 72 69 70 28 6e 61 6d  |+..a$=.strip(nam|
00005660  65 24 29 0d 2b e8 15 e7  61 24 3d 22 22 3a 61 24  |e$).+...a$="":a$|
00005670  3d 22 45 6d 70 74 79 22  0d 2b f2 0b e7 66 72 6e  |="Empty".+...frn|
00005680  25 20 8c 0d 2b fc 24 f2  70 72 69 6e 74 65 72 28  |% ..+.$.printer(|
00005690  22 4c 65 73 20 72 e9 73  75 6c 74 61 74 73 20 64  |"Les r.sultats d|
000056a0  65 20 22 2b 61 24 29 0d  2c 06 36 f2 70 72 69 6e  |e "+a$).,.6.prin|
000056b0  74 65 72 28 22 71 75 69  20 6a 6f 75 65 20 61 75  |ter("qui joue au|
000056c0  78 20 4a 65 75 78 20 44  69 78 20 73 75 72 20 44  |x Jeux Dix sur D|
000056d0  69 78 20 46 72 61 6e e7  61 69 73 22 29 0d 2c 10  |ix Fran.ais").,.|
000056e0  05 cc 0d 2c 1a 27 f2 70  72 69 6e 74 65 72 28 22  |...,.'.printer("|
000056f0  54 68 65 20 61 63 68 69  65 76 65 6d 65 6e 74 73  |The achievements|
00005700  20 6f 66 20 22 2b 61 24  29 0d 2c 24 35 f2 70 72  | of "+a$).,$5.pr|
00005710  69 6e 74 65 72 28 22 70  6c 61 79 69 6e 67 20 74  |inter("playing t|
00005720  68 65 20 31 30 20 6f 75  74 20 6f 66 20 31 30 20  |he 10 out of 10 |
00005730  46 72 65 6e 63 68 20 67  61 6d 65 73 22 29 0d 2c  |French games").,|
00005740  2e 05 cd 0d 2c 38 10 f2  70 72 69 6e 74 65 72 28  |....,8..printer(|
00005750  22 22 29 0d 2c 42 13 f2  70 72 69 6e 74 65 72 28  |"").,B..printer(|
00005760  a4 64 61 74 65 29 0d 2c  4c 10 f2 70 72 69 6e 74  |.date).,L..print|
00005770  65 72 28 22 22 29 0d 2c  56 0b e7 66 72 6e 25 20  |er("").,V..frn% |
00005780  8c 0d 2c 60 0b e7 76 65  72 25 20 8c 0d 2c 6a 36  |..,`..ver% ..,j6|
00005790  f2 70 72 69 6e 74 65 72  28 22 43 61 74 e9 67 6f  |.printer("Cat.go|
000057a0  72 69 65 73 20 54 72 61  69 74 e9 22 2b c4 35 31  |ries Trait."+.51|
000057b0  2c 22 20 22 29 2b 22 52  e9 73 75 6c 74 61 6e 74  |," ")+"R.sultant|
000057c0  22 29 0d 2c 74 05 cc 0d  2c 7e 35 f2 70 72 69 6e  |").,t...,~5.prin|
000057d0  74 65 72 28 22 4e 69 76  65 61 75 78 20 20 20 54  |ter("Niveaux   T|
000057e0  72 61 69 74 e9 22 2b c4  35 32 2c 22 20 22 29 2b  |rait."+.52," ")+|
000057f0  22 52 e9 73 75 6c 74 61  6e 74 22 29 0d 2c 88 05  |"R.sultant").,..|
00005800  cd 0d 2c 92 10 f2 70 72  69 6e 74 65 72 28 22 22  |..,...printer(""|
00005810  29 0d 2c 9c 17 f2 70 72  69 6e 74 65 72 28 22 4c  |).,...printer("L|
00005820  45 20 46 4c 49 43 22 29  0d 2c a6 13 f2 67 61 6d  |E FLIC").,...gam|
00005830  65 64 65 74 61 69 6c 73  28 31 29 0d 2c b0 17 f2  |edetails(1).,...|
00005840  70 72 69 6e 74 65 72 28  22 4c 41 20 54 4f 55 52  |printer("LA TOUR|
00005850  22 29 0d 2c ba 13 f2 67  61 6d 65 64 65 74 61 69  |").,...gamedetai|
00005860  6c 73 28 32 29 0d 2c c4  19 f2 70 72 69 6e 74 65  |ls(2).,...printe|
00005870  72 28 22 4c 45 20 50 55  5a 5a 4c 45 22 29 0d 2c  |r("LE PUZZLE").,|
00005880  ce 13 f2 67 61 6d 65 64  65 74 61 69 6c 73 28 33  |...gamedetails(3|
00005890  29 0d 2c d8 1b f2 70 72  69 6e 74 65 72 28 22 4c  |).,...printer("L|
000058a0  45 20 4a 55 4d 45 4c 41  47 45 22 29 0d 2c e2 13  |E JUMELAGE").,..|
000058b0  f2 67 61 6d 65 64 65 74  61 69 6c 73 28 34 29 0d  |.gamedetails(4).|
000058c0  2c ec 18 f2 70 72 69 6e  74 65 72 28 22 4c 41 20  |,...printer("LA |
000058d0  46 55 53 45 45 22 29 0d  2c f6 13 f2 67 61 6d 65  |FUSEE").,...game|
000058e0  64 65 74 61 69 6c 73 28  35 29 0d 2d 00 1e f2 70  |details(5).-...p|
000058f0  72 69 6e 74 65 72 28 22  4c 41 20 42 4f 4e 4e 45  |rinter("LA BONNE|
00005900  20 52 4f 55 54 45 22 29  0d 2d 0a 13 f2 67 61 6d  | ROUTE").-...gam|
00005910  65 64 65 74 61 69 6c 73  28 36 29 0d 2d 14 31 f2  |edetails(6).-.1.|
00005920  70 72 69 6e 74 65 72 28  22 4c 45 47 45 4e 44 45  |printer("LEGENDE|
00005930  20 44 45 53 20 43 4f 55  4c 45 55 52 53 20 44 45  | DES COULEURS DE|
00005940  20 52 45 55 53 53 49 54  45 3a 22 29 0d 2d 1e 10  | REUSSITE:").-..|
00005950  f2 70 72 69 6e 74 65 72  28 22 22 29 0d 2d 28 2c  |.printer("").-(,|
00005960  f2 70 72 69 6e 74 65 72  28 22 42 4c 45 55 20 20  |.printer("BLEU  |
00005970  20 3d 20 31 30 30 25 20  28 31 30 20 66 6f 69 73  | = 100% (10 fois|
00005980  20 56 45 52 54 29 22 29  0d 2d 32 2a f2 70 72 69  | VERT)").-2*.pri|
00005990  6e 74 65 72 28 22 56 45  52 54 20 20 20 3d 20 31  |nter("VERT   = 1|
000059a0  30 30 25 20 28 31 30 20  73 75 72 20 31 30 21 29  |00% (10 sur 10!)|
000059b0  22 29 0d 2d 3c 24 f2 70  72 69 6e 74 65 72 28 22  |").-<$.printer("|
000059c0  4a 41 55 4e 45 20 20 3d  20 35 30 25 20 6f 75 20  |JAUNE  = 50% ou |
000059d0  70 6c 75 73 22 29 0d 2d  46 25 f2 70 72 69 6e 74  |plus").-F%.print|
000059e0  65 72 28 22 52 4f 55 47  45 20 20 3d 20 4d 6f 69  |er("ROUGE  = Moi|
000059f0  6e 73 20 64 65 20 35 30  25 22 29 0d 2d 50 46 f2  |ns de 50%").-PF.|
00005a00  70 72 69 6e 74 65 72 28  22 2d 20 20 20 20 20 20  |printer("-      |
00005a10  3d 20 73 69 67 6e 69 66  69 65 20 71 75 65 20 6c  |= signifie que l|
00005a20  61 20 63 61 74 e9 67 6f  72 69 65 20 6e 27 61 20  |a cat.gorie n'a |
00005a30  70 61 73 20 e9 74 e9 20  74 72 61 69 74 e9 65 22  |pas .t. trait.e"|
00005a40  29 0d 2d 5a 05 cc 0d 2d  64 39 f2 70 72 69 6e 74  |).-Z...-d9.print|
00005a50  65 72 28 74 79 70 24 2b  22 20 20 20 20 20 43 6f  |er(typ$+"     Co|
00005a60  76 65 72 69 6e 67 22 2b  c4 35 30 2c 22 20 22 29  |vering"+.50," ")|
00005a70  2b 22 41 63 68 69 65 76  65 6d 65 6e 74 22 29 0d  |+"Achievement").|
00005a80  2d 6e 10 f2 70 72 69 6e  74 65 72 28 22 22 29 0d  |-n..printer("").|
00005a90  2d 78 17 f2 70 72 69 6e  74 65 72 28 22 54 48 45  |-x..printer("THE|
00005aa0  20 43 4f 50 22 29 0d 2d  82 13 f2 67 61 6d 65 64  | COP").-...gamed|
00005ab0  65 74 61 69 6c 73 28 31  29 0d 2d 8c 15 f2 70 72  |etails(1).-...pr|
00005ac0  69 6e 74 65 72 28 22 54  4f 57 45 52 22 29 0d 2d  |inter("TOWER").-|
00005ad0  96 13 f2 67 61 6d 65 64  65 74 61 69 6c 73 28 32  |...gamedetails(2|
00005ae0  29 0d 2d a0 1b f2 70 72  69 6e 74 65 72 28 22 57  |).-...printer("W|
00005af0  4f 52 44 20 53 45 41 52  43 48 22 29 0d 2d aa 13  |ORD SEARCH").-..|
00005b00  f2 67 61 6d 65 64 65 74  61 69 6c 73 28 33 29 0d  |.gamedetails(3).|
00005b10  2d b4 17 f2 70 72 69 6e  74 65 72 28 22 4c 49 4e  |-...printer("LIN|
00005b20  4b 20 55 50 22 29 0d 2d  be 13 f2 67 61 6d 65 64  |K UP").-...gamed|
00005b30  65 74 61 69 6c 73 28 34  29 0d 2d c8 16 f2 70 72  |etails(4).-...pr|
00005b40  69 6e 74 65 72 28 22 52  45 53 43 55 45 22 29 0d  |inter("RESCUE").|
00005b50  2d d2 13 f2 67 61 6d 65  64 65 74 61 69 6c 73 28  |-...gamedetails(|
00005b60  35 29 0d 2d dc 16 f2 70  72 69 6e 74 65 72 28 22  |5).-...printer("|
00005b70  53 54 4f 4e 45 53 22 29  0d 2d e6 13 f2 67 61 6d  |STONES").-...gam|
00005b80  65 64 65 74 61 69 6c 73  28 36 29 0d 2d f0 2b f2  |edetails(6).-.+.|
00005b90  70 72 69 6e 74 65 72 28  22 4b 45 59 20 54 4f 20  |printer("KEY TO |
00005ba0  41 43 48 49 45 56 45 4d  45 4e 54 20 43 4f 4c 4f  |ACHIEVEMENT COLO|
00005bb0  55 52 53 3a 22 29 0d 2d  fa 10 f2 70 72 69 6e 74  |URS:").-...print|
00005bc0  65 72 28 22 22 29 0d 2e  04 2e f2 70 72 69 6e 74  |er("").....print|
00005bd0  65 72 28 22 42 4c 55 45  20 20 20 3d 20 31 30 30  |er("BLUE   = 100|
00005be0  25 20 28 31 30 20 74 69  6d 65 73 20 47 52 45 45  |% (10 times GREE|
00005bf0  4e 29 22 29 0d 2e 0e 2d  f2 70 72 69 6e 74 65 72  |N)")...-.printer|
00005c00  28 22 47 52 45 45 4e 20  20 3d 20 31 30 30 25 20  |("GREEN  = 100% |
00005c10  28 31 30 20 6f 75 74 20  6f 66 20 31 30 21 29 22  |(10 out of 10!)"|
00005c20  29 0d 2e 18 24 f2 70 72  69 6e 74 65 72 28 22 59  |)...$.printer("Y|
00005c30  45 4c 4c 4f 57 20 3d 20  35 30 25 20 6f 72 20 6f  |ELLOW = 50% or o|
00005c40  76 65 72 22 29 0d 2e 22  22 f2 70 72 69 6e 74 65  |ver").."".printe|
00005c50  72 28 22 52 45 44 20 20  20 20 3d 20 55 6e 64 65  |r("RED    = Unde|
00005c60  72 20 35 30 25 22 29 0d  2e 2c 3b f2 70 72 69 6e  |r 50%")..,;.prin|
00005c70  74 65 72 28 22 2d 20 20  20 20 20 20 3d 20 6d 65  |ter("-      = me|
00005c80  61 6e 73 20 74 68 65 20  67 72 61 64 65 20 68 61  |ans the grade ha|
00005c90  73 20 6e 6f 74 20 62 65  65 6e 20 74 72 69 65 64  |s not been tried|
00005ca0  22 29 0d 2e 36 05 cd 0d  2e 40 10 c8 95 20 70 6e  |")..6....@... pn|
00005cb0  74 25 3c 70 61 70 25 0d  2e 4a 05 f1 0d 2e 54 0b  |t%<pap%..J....T.|
00005cc0  70 6e 74 25 2b 3d 31 0d  2e 5e 05 ce 0d 2e 68 0b  |pnt%+=1..^....h.|
00005cd0  f2 66 6f 6f 74 65 72 0d  2e 72 09 ef 20 36 2c 33  |.footer..r.. 6,3|
00005ce0  0d 2e 7c 05 e1 0d 2e 86  17 dd f2 67 61 6d 65 64  |..|........gamed|
00005cf0  65 74 61 69 6c 73 28 6e  75 6d 25 29 0d 2e 90 0b  |etails(num%)....|
00005d00  e3 4a 25 3d 31 b8 36 0d  2e 9a 15 62 24 3d 69 6e  |.J%=1.6....b$=in|
00005d10  66 6f 24 28 6e 75 6d 25  2c 4a 25 29 0d 2e a4 23  |fo$(num%,J%)...#|
00005d20  e7 6e 69 67 25 20 61 24  3d 62 24 20 8b 61 24 3d  |.nig% a$=b$ .a$=|
00005d30  c1 62 24 2c a7 62 24 2c  22 20 22 29 2b 31 29 0d  |.b$,.b$," ")+1).|
00005d40  2e ae 13 61 24 3d c3 28  4a 25 29 2b 22 20 22 2b  |...a$=.(J%)+" "+|
00005d50  61 24 0d 2e b8 16 61 24  2b 3d c4 36 38 2d a9 28  |a$....a$+=.68-.(|
00005d60  61 24 29 2c 22 20 22 29  0d 2e c2 0b e7 66 72 6e  |a$)," ").....frn|
00005d70  25 20 8c 0d 2e cc 18 c8  8e 20 6e 65 77 25 28 6e  |% ....... new%(n|
00005d80  75 6d 25 2c 4a 25 2c 30  29 20 ca 0d 2e d6 0f c9  |um%,J%,0) ......|
00005d90  20 30 3a 61 24 2b 3d 22  2d 22 0d 2e e0 13 c9 20  | 0:a$+="-"..... |
00005da0  31 3a 61 24 2b 3d 22 52  4f 55 47 45 22 0d 2e ea  |1:a$+="ROUGE"...|
00005db0  13 c9 20 32 3a 61 24 2b  3d 22 4a 41 55 4e 45 22  |.. 2:a$+="JAUNE"|
00005dc0  0d 2e f4 24 c9 20 33 2c  34 2c 35 2c 36 2c 37 2c  |...$. 3,4,5,6,7,|
00005dd0  38 2c 39 2c 31 30 2c 31  31 3a 61 24 2b 3d 22 56  |8,9,10,11:a$+="V|
00005de0  45 52 54 22 0d 2e fe 10  7f 3a 61 24 2b 3d 22 42  |ERT".....:a$+="B|
00005df0  4c 45 55 22 0d 2f 08 05  cb 0d 2f 12 05 cc 0d 2f  |LEU"./..../..../|
00005e00  1c 18 c8 8e 20 6e 65 77  25 28 6e 75 6d 25 2c 4a  |.... new%(num%,J|
00005e10  25 2c 30 29 20 ca 0d 2f  26 0f c9 20 30 3a 61 24  |%,0) ../&.. 0:a$|
00005e20  2b 3d 22 2d 22 0d 2f 30  11 c9 20 31 3a 61 24 2b  |+="-"./0.. 1:a$+|
00005e30  3d 22 52 45 44 22 0d 2f  3a 14 c9 20 32 3a 61 24  |="RED"./:.. 2:a$|
00005e40  2b 3d 22 59 45 4c 4c 4f  57 22 0d 2f 44 25 c9 20  |+="YELLOW"./D%. |
00005e50  33 2c 34 2c 35 2c 36 2c  37 2c 38 2c 39 2c 31 30  |3,4,5,6,7,8,9,10|
00005e60  2c 31 31 3a 61 24 2b 3d  22 47 52 45 45 4e 22 0d  |,11:a$+="GREEN".|
00005e70  2f 4e 10 7f 3a 61 24 2b  3d 22 42 4c 55 45 22 0d  |/N..:a$+="BLUE".|
00005e80  2f 58 05 cb 0d 2f 62 05  cd 0d 2f 6c 10 f2 70 72  |/X.../b.../l..pr|
00005e90  69 6e 74 65 72 28 61 24  29 0d 2f 76 05 ed 0d 2f  |inter(a$)./v.../|
00005ea0  80 10 f2 70 72 69 6e 74  65 72 28 22 22 29 0d 2f  |...printer("")./|
00005eb0  8a 05 e1 0d 2f 94 0c dd  f2 68 65 61 64 65 72 0d  |..../....header.|
00005ec0  2f 9e 0a 70 6e 74 25 3d  30 0d 2f a8 0d e7 68 65  |/..pnt%=0./...he|
00005ed0  64 25 3d 30 3a e1 0d 2f  b2 0f e3 57 25 3d 31 b8  |d%=0:../...W%=1.|
00005ee0  20 68 65 64 25 0d 2f bc  05 f1 0d 2f c6 05 ed 0d  | hed%./..../....|
00005ef0  2f d0 05 e1 0d 2f da 0c  dd f2 66 6f 6f 74 65 72  |/..../....footer|
00005f00  0d 2f e4 0d e7 66 75 74  25 3d 30 3a e1 0d 2f ee  |./...fut%=0:../.|
00005f10  0f e3 57 25 3d 31 b8 20  66 75 74 25 0d 2f f8 05  |..W%=1. fut%./..|
00005f20  f1 0d 30 02 05 ed 0d 30  0c 05 e1 0d 30 16 11 dd  |..0....0....0...|
00005f30  f2 70 72 69 6e 74 65 72  28 6a 24 29 0d 30 20 07  |.printer(j$).0 .|
00005f40  f1 6a 24 0d 30 2a 0b 70  6e 74 25 2b 3d 31 0d 30  |.j$.0*.pnt%+=1.0|
00005f50  34 10 e7 70 6e 74 25 3d  70 61 70 25 20 8c 0d 30  |4..pnt%=pap% ..0|
00005f60  3e 0b f2 66 6f 6f 74 65  72 0d 30 48 0b f2 68 65  |>..footer.0H..he|
00005f70  61 64 65 72 0d 30 52 05  cd 0d 30 5c 05 e1 0d 30  |ader.0R...0\...0|
00005f80  66 0a dd a4 64 61 74 65  0d 30 70 18 e7 66 72 6e  |f...date.0p..frn|
00005f90  25 20 f7 20 8d 64 54 70  20 8b f7 20 8d 64 40 70  |% . .dTp .. .d@p|
00005fa0  0d 30 7a 0a 66 6e 64 25  3d a3 0d 30 84 0c c8 95  |.0z.fnd%=..0....|
00005fb0  20 ac 66 6e 64 25 0d 30  8e 0b f3 20 70 24 2c 6e  | .fnd%.0... p$,n|
00005fc0  24 0d 30 98 13 e7 a7 91  24 2c 70 24 29 3a 66 6e  |$.0.....$,p$):fn|
00005fd0  64 25 3d b9 0d 30 a2 05  ce 0d 30 ac 0f 7a 24 3d  |d%=..0....0..z$=|
00005fe0  22 44 61 74 65 3a 20 22  0d 30 b6 1d 3d 7a 24 2b  |"Date: ".0..=z$+|
00005ff0  c1 91 24 2c 35 2c 33 29  2b 6e 24 2b c1 91 24 2c  |..$,5,3)+n$+..$,|
00006000  31 31 2c 35 29 0d 30 c0  47 dc 20 4a 61 6e 2c 4a  |11,5).0.G. Jan,J|
00006010  61 6e 75 61 72 79 2c 46  65 62 2c 46 65 62 72 75  |anuary,Feb,Febru|
00006020  61 72 79 2c 4d 61 72 2c  4d 61 72 63 68 2c 41 70  |ary,Mar,March,Ap|
00006030  72 2c 41 70 72 69 6c 2c  4d 61 79 2c 4d 61 79 2c  |r,April,May,May,|
00006040  4a 75 6e 2c 4a 75 6e 65  2c 4a 75 6c 0d 30 ca 49  |Jun,June,Jul.0.I|
00006050  dc 20 4a 75 6c 79 2c 41  75 67 2c 41 75 67 75 73  |. July,Aug,Augus|
00006060  74 2c 53 65 70 2c 53 65  70 74 65 6d 62 65 72 2c  |t,Sep,September,|
00006070  4f 63 74 2c 4f 63 74 6f  62 65 72 2c 4e 6f 76 2c  |Oct,October,Nov,|
00006080  4e 6f 76 65 6d 62 65 72  2c 44 65 63 2c 44 65 63  |November,Dec,Dec|
00006090  65 6d 62 65 72 0d 30 d4  47 dc 20 4a 61 6e 2c 4a  |ember.0.G. Jan,J|
000060a0  61 6e 76 69 65 72 2c 46  65 62 2c 22 46 e9 76 72  |anvier,Feb,"F.vr|
000060b0  69 65 72 22 2c 4d 61 72  2c 4d 61 72 73 2c 41 70  |ier",Mar,Mars,Ap|
000060c0  72 2c 41 76 72 69 6c 2c  4d 61 79 2c 4d 61 69 2c  |r,Avril,May,Mai,|
000060d0  4a 75 6e 2c 4a 75 69 6e  2c 4a 75 6c 0d 30 de 4e  |Jun,Juin,Jul.0.N|
000060e0  dc 20 4a 75 69 6c 6c 65  74 2c 41 75 67 2c 22 41  |. Juillet,Aug,"A|
000060f0  6f fb 74 22 2c 53 65 70  2c 53 65 70 74 65 6d 62  |o.t",Sep,Septemb|
00006100  72 65 2c 4f 63 74 2c 4f  63 74 6f 62 72 65 2c 4e  |re,Oct,Octobre,N|
00006110  6f 76 2c 4e 6f 76 65 6d  62 72 65 2c 44 65 63 2c  |ov,Novembre,Dec,|
00006120  22 44 e9 63 65 6d 62 72  65 22 0d 30 e8 0b dd f2  |"D.cembre".0....|
00006130  66 6c 75 73 68 0d 30 f2  0b 2a 46 58 32 31 20 39  |flush.0..*FX21 9|
00006140  0d 30 fc 05 e1 0d 31 06  11 dd a4 73 74 72 69 70  |.0....1....strip|
00006150  28 73 74 72 24 29 0d 31  10 13 c8 95 20 a7 73 74  |(str$).1.... .st|
00006160  72 24 2c 22 5f 22 29 3e  30 0d 31 1a 19 c1 73 74  |r$,"_")>0.1...st|
00006170  72 24 2c a7 73 74 72 24  2c 22 5f 22 29 29 3d 22  |r$,.str$,"_"))="|
00006180  20 22 0d 31 24 05 ce 0d  31 2e 09 3d 73 74 72 24  | ".1$...1..=str$|
00006190  0d 31 38 1e dd f2 69 6e  70 75 74 28 74 6f 74 25  |.18...input(tot%|
000061a0  2c 78 24 2c 63 61 70 25  2c 66 69 6c 25 29 0d 31  |,x$,cap%,fil%).1|
000061b0  42 0b 2a 46 58 32 31 20  30 0d 31 4c 0a 65 73 63  |B.*FX21 0.1L.esc|
000061c0  25 3d a3 0d 31 56 0e 63  6e 74 25 3d a9 28 78 24  |%=..1V.cnt%=.(x$|
000061d0  29 0d 31 60 09 69 24 3d  78 24 0d 31 6a 2a e7 66  |).1`.i$=x$.1j*.f|
000061e0  69 6c 25 20 80 20 ac 66  72 6e 25 3a 79 24 3d 22  |il% . .frn%:y$="|
000061f0  66 69 6c 65 6e 61 6d 65  3a 20 3e 22 20 8b 79 24  |filename: >" .y$|
00006200  3d 22 3e 22 0d 31 74 31  e7 66 69 6c 25 20 80 20  |=">".1t1.fil% . |
00006210  66 72 6e 25 3a 79 24 3d  22 74 69 74 72 65 20 64  |frn%:y$="titre d|
00006220  75 20 64 6f 73 73 69 65  72 3a 20 3e 22 20 8b 79  |u dossier: >" .y|
00006230  24 3d 22 3e 22 0d 31 7e  16 f2 6d 65 73 73 28 79  |$=">".1~..mess(y|
00006240  24 2b 69 24 2b 22 3c 22  2c 38 29 0d 31 88 05 f5  |$+i$+"<",8).1...|
00006250  0d 31 92 05 f5 0d 31 9c  05 f5 0d 31 a6 0b 6b 25  |.1....1....1..k%|
00006260  3d a6 28 31 29 0d 31 b0  1c fd 20 6b 25 3d 31 33  |=.(1).1... k%=13|
00006270  20 84 20 6b 25 3e 33 31  20 80 20 6b 25 3c 31 32  | . k%>31 . k%<12|
00006280  38 0d 31 ba 16 e7 6b 25  3d 31 32 37 20 80 20 63  |8.1...k%=127 . c|
00006290  6e 74 25 3e 30 20 8c 0d  31 c4 0b 63 6e 74 25 2d  |nt%>0 ..1..cnt%-|
000062a0  3d 31 0d 31 ce 10 69 24  3d c0 69 24 2c 63 6e 74  |=1.1..i$=.i$,cnt|
000062b0  25 29 0d 31 d8 16 f2 6d  65 73 73 28 79 24 2b 69  |%).1...mess(y$+i|
000062c0  24 2b 22 3c 22 2c 38 29  0d 31 e2 05 cd 0d 31 ec  |$+"<",8).1....1.|
000062d0  0d fd 20 6b 25 3c 3e 31  32 37 0d 31 f6 1a e7 6b  |.. k%<>127.1...k|
000062e0  25 3c 3e 31 33 20 80 20  63 6e 74 25 3c 3e 74 6f  |%<>13 . cnt%<>to|
000062f0  74 25 20 8c 0d 32 00 0b  e7 63 61 70 25 20 8c 0d  |t% ..2...cap% ..|
00006300  32 0a 0d e7 63 6e 74 25  3d 30 20 8c 0d 32 14 32  |2...cnt%=0 ..2.2|
00006310  e7 bd 28 6b 25 29 3e 3d  22 61 22 20 80 20 bd 28  |..(k%)>="a" . .(|
00006320  6b 25 29 3c 3d 22 7a 22  20 69 24 3d bd 28 6b 25  |k%)<="z" i$=.(k%|
00006330  2d 33 32 29 20 8b 69 24  3d bd 28 6b 25 29 0d 32  |-32) .i$=.(k%).2|
00006340  1e 05 cc 0d 32 28 34 e7  bd 28 6b 25 29 3e 3d 22  |....2(4..(k%)>="|
00006350  41 22 20 80 20 bd 28 6b  25 29 3c 3d 22 5a 22 20  |A" . .(k%)<="Z" |
00006360  69 24 2b 3d bd 28 6b 25  2b 33 32 29 20 8b 69 24  |i$+=.(k%+32) .i$|
00006370  2b 3d bd 28 6b 25 29 0d  32 32 05 cd 0d 32 3c 05  |+=.(k%).22...2<.|
00006380  cc 0d 32 46 0d 69 24 2b  3d bd 28 6b 25 29 0d 32  |..2F.i$+=.(k%).2|
00006390  50 05 cd 0d 32 5a 16 f2  6d 65 73 73 28 79 24 2b  |P...2Z..mess(y$+|
000063a0  69 24 2b 22 3c 22 2c 38  29 0d 32 64 0b 63 6e 74  |i$+"<",8).2d.cnt|
000063b0  25 2b 3d 31 0d 32 6e 05  cd 0d 32 78 1a e7 6b 25  |%+=1.2n...2x..k%|
000063c0  3c 3e 31 33 20 80 20 63  6e 74 25 3d 74 6f 74 25  |<>13 . cnt%=tot%|
000063d0  3a ef 37 0d 32 82 0b fd  20 6b 25 3d 31 33 0d 32  |:.7.2... k%=13.2|
000063e0  8c 05 e1 0d 32 96 11 dd  f2 65 78 69 74 6d 65 73  |....2....exitmes|
000063f0  73 61 67 65 0d 32 a0 15  c8 99 22 41 42 43 5f 43  |sage.2...."ABC_C|
00006400  6f 6c 6f 75 72 22 2c 31  31 0d 32 aa 0a f7 20 8d  |olour",11.2... .|
00006410  54 4e 73 0d 32 b4 08 f3  20 61 24 0d 32 be 0a 59  |TNs.2... a$.2..Y|
00006420  25 3d 32 34 30 0d 32 c8  10 c8 95 20 61 24 3c 3e  |%=240.2.... a$<>|
00006430  22 65 6e 64 22 0d 32 d2  24 c8 99 22 41 42 43 5f  |"end".2.$.."ABC_|
00006440  50 72 79 6e 74 53 74 72  69 6e 67 22 2c 61 24 2c  |PryntString",a$,|
00006450  33 34 2c 59 25 2c 31 2c  37 0d 32 dc 26 c8 99 22  |34,Y%,1,7.2.&.."|
00006460  41 42 43 5f 50 72 79 6e  74 53 74 72 69 6e 67 22  |ABC_PryntString"|
00006470  2c 61 24 2c 33 32 2c 59  25 2b 31 2c 31 2c 30 0d  |,a$,32,Y%+1,1,0.|
00006480  32 e6 19 e7 61 24 3e 22  22 20 59 25 2d 3d 31 38  |2...a$>"" Y%-=18|
00006490  20 8b 59 25 2d 3d 31 32  0d 32 f0 08 f3 20 61 24  | .Y%-=12.2... a$|
000064a0  0d 32 fa 05 ce 0d 33 04  05 e1 0d 33 0e 23 dc 20  |.2....3....3.#. |
000064b0  41 6c 73 6f 20 61 76 61  69 6c 61 62 6c 65 20 6f  |Also available o|
000064c0  72 20 63 6f 6d 69 6e 67  20 73 6f 6f 6e 0d 33 18  |r coming soon.3.|
000064d0  2c dc 20 22 66 6f 72 20  41 63 6f 72 6e 20 33 32  |,. "for Acorn 32|
000064e0  2d 62 69 74 2c 20 49 42  4d 20 50 43 2f 63 6f 6d  |-bit, IBM PC/com|
000064f0  70 61 74 69 62 6c 65 73  22 0d 33 22 1d dc 20 61  |patibles".3".. a|
00006500  6e 64 20 43 6f 6d 6d 6f  64 6f 72 65 20 41 6d 69  |nd Commodore Ami|
00006510  67 61 20 2e 2e 2e 0d 33  2c 05 dc 0d 33 36 1f dc  |ga ....3,...36..|
00006520  20 45 6e 67 6c 69 73 68  20 20 20 20 20 20 20 20  | English        |
00006530  20 20 20 20 46 72 65 6e  63 68 0d 33 40 22 dc 20  |    French.3@". |
00006540  47 65 72 6d 61 6e 20 20  20 20 20 20 20 20 20 20  |German          |
00006550  20 20 20 44 69 6e 6f 73  61 75 72 73 0d 33 4a 2b  |   Dinosaurs.3J+|
00006560  dc 20 41 73 74 72 6f 6e  6f 6d 79 20 20 20 20 20  |. Astronomy     |
00006570  20 20 20 20 20 4d 61 74  68 73 20 28 53 74 61 74  |     Maths (Stat|
00006580  69 73 74 69 63 73 29 0d  33 54 28 dc 20 4d 61 74  |istics).3T(. Mat|
00006590  68 73 20 28 4e 75 6d 62  65 72 29 20 20 20 20 20  |hs (Number)     |
000065a0  4d 61 74 68 73 20 28 41  6c 67 65 62 72 61 29 0d  |Maths (Algebra).|
000065b0  33 5e 2a dc 20 45 61 72  6c 79 20 45 73 73 65 6e  |3^*. Early Essen|
000065c0  74 69 61 6c 73 20 20 20  4a 75 6e 69 6f 72 20 45  |tials   Junior E|
000065d0  73 73 65 6e 74 69 61 6c  73 0d 33 68 05 dc 0d 33  |ssentials.3h...3|
000065e0  72 1c dc 20 43 6f 6e 74  61 63 74 20 79 6f 75 72  |r.. Contact your|
000065f0  20 64 65 61 6c 65 72 20  6f 72 0d 33 7c 24 dc 20  | dealer or.3|$. |
00006600  72 69 6e 67 20 28 30 37  34 32 29 20 37 38 30 33  |ring (0742) 7803|
00006610  37 30 20 66 6f 72 20 64  65 74 61 69 6c 73 0d 33  |70 for details.3|
00006620  86 09 dc 20 65 6e 64 0d  33 90 1b dd a4 69 6e 69  |... end.3....ini|
00006630  74 69 61 6c 63 6f 6d 70  72 65 73 73 65 64 28 73  |tialcompressed(s|
00006640  24 29 0d 33 9a 0f 68 25  3d 8e 28 66 24 2b 73 24  |$).3..h%=.(f$+s$|
00006650  29 0d 33 a4 0d 6c 65 6e  25 3d a2 23 68 25 0d 33  |).3..len%=.#h%.3|
00006660  ae 08 d9 23 68 25 0d 33  b8 0d de 20 7a 25 20 6c  |...#h%.3... z% l|
00006670  65 6e 25 0d 33 c2 1d ff  22 4c 4f 41 44 20 22 2b  |en%.3..."LOAD "+|
00006680  66 24 2b 73 24 2b 22 20  22 2b c3 7e 28 7a 25 29  |f$+s$+" "+.~(z%)|
00006690  0d 33 cc 07 3d 7a 25 0d  33 d6 0f dd f2 63 6f 6e  |.3..=z%.3....con|
000066a0  66 69 67 75 72 65 0d 33  e0 1a e7 ac a6 2d 32 20  |figure.3.....-2 |
000066b0  84 20 ac a6 2d 31 20 84  20 ac a6 2d 38 33 3a e1  |. ..-1 . ..-83:.|
000066c0  0d 33 ea 08 c8 97 20 87  0d 33 f4 13 c8 99 22 41  |.3.... ..3...."A|
000066d0  42 43 5f 42 6c 61 6e 6b  22 2c 33 0d 33 fe 14 c8  |BC_Blank",3.3...|
000066e0  99 22 41 42 43 5f 43 6f  6c 6f 75 72 22 2c 33 0d  |."ABC_Colour",3.|
000066f0  34 08 15 f2 76 61 6c 69  64 64 69 72 65 63 74 6f  |4...validdirecto|
00006700  72 69 65 73 0d 34 12 29  c8 99 22 41 42 43 5f 55  |ries.4.).."ABC_U|
00006710  6e 70 61 63 6b 53 70 72  69 74 65 22 2c 22 62 61  |npackSprite","ba|
00006720  72 22 2c 6a 25 2c 31 38  30 2c 32 34 32 0d 34 1c  |r",j%,180,242.4.|
00006730  29 c8 99 22 41 42 43 5f  55 6e 70 61 63 6b 53 70  |).."ABC_UnpackSp|
00006740  72 69 74 65 22 2c 22 65  78 69 74 22 2c 6a 25 2c  |rite","exit",j%,|
00006750  34 35 34 2c 31 38 0d 34  26 08 fb 20 31 31 0d 34  |454,18.4&.. 11.4|
00006760  30 09 fb 20 31 33 30 0d  34 3a 27 f1 8a 32 35 2c  |0.. 130.4:'..25,|
00006770  32 29 22 31 30 20 6f 75  74 20 6f 66 20 31 30 20  |2)"10 out of 10 |
00006780  43 55 53 54 4f 4d 49 53  41 54 49 4f 4e 22 0d 34  |CUSTOMISATION".4|
00006790  44 07 fb 20 37 0d 34 4e  0d 6f 6c 64 25 3d 63 6c  |D.. 7.4N.old%=cl|
000067a0  61 25 0d 34 58 0a f7 20  8d 64 6c 7b 0d 34 62 0b  |a%.4X.. .dl{.4b.|
000067b0  f3 20 61 24 2c 4b 25 0d  34 6c 08 4a 25 3d 30 0d  |. a$,K%.4l.J%=0.|
000067c0  34 76 10 c8 95 20 61 24  3c 3e 22 65 6e 64 22 0d  |4v... a$<>"end".|
000067d0  34 80 2f c8 99 22 41 42  43 5f 55 6e 70 61 63 6b  |4./.."ABC_Unpack|
000067e0  53 70 72 69 74 65 22 2c  22 62 61 72 22 2c 6a 25  |Sprite","bar",j%|
000067f0  2c 31 38 30 2c 32 32 36  2d 4a 25 2a 31 36 0d 34  |,180,226-J%*16.4|
00006800  8a 12 f1 8a 32 35 2c 4a  25 2a 32 2b 34 29 61 24  |....25,J%*2+4)a$|
00006810  0d 34 94 0c e7 4b 25 3d  2d 31 20 8c 0d 34 9e 30  |.4...K%=-1 ..4.0|
00006820  c8 99 22 41 42 43 5f 55  6e 70 61 63 6b 53 70 72  |.."ABC_UnpackSpr|
00006830  69 74 65 22 2c 22 61 72  75 70 22 2c 6a 25 2c 34  |ite","arup",j%,4|
00006840  38 32 2c 32 32 36 2d 4a  25 2a 31 36 0d 34 a8 30  |82,226-J%*16.4.0|
00006850  c8 99 22 41 42 43 5f 55  6e 70 61 63 6b 53 70 72  |.."ABC_UnpackSpr|
00006860  69 74 65 22 2c 22 61 72  64 6e 22 2c 6a 25 2c 35  |ite","ardn",j%,5|
00006870  31 30 2c 32 32 36 2d 4a  25 2a 31 36 0d 34 b2 05  |10,226-J%*16.4..|
00006880  cd 0d 34 bc 57 e7 4b 25  3d 2d 32 20 c8 99 22 41  |..4.W.K%=-2 .."A|
00006890  42 43 5f 55 6e 70 61 63  6b 53 70 72 69 74 65 22  |BC_UnpackSprite"|
000068a0  2c 22 64 65 66 61 75 6c  74 22 2c 6a 25 2c 34 35  |,"default",j%,45|
000068b0  34 2c 32 32 36 2d 4a 25  2a 31 36 20 8b f2 62 75  |4,226-J%*16 ..bu|
000068c0  74 74 6f 6e 73 74 61 74  75 73 28 4a 25 2c 32 32  |ttonstatus(J%,22|
000068d0  36 2d 4a 25 2a 31 36 29  0d 34 c6 09 4a 25 2b 3d  |6-J%*16).4..J%+=|
000068e0  31 0d 34 d0 0b f3 20 61  24 2c 4b 25 0d 34 da 05  |1.4... a$,K%.4..|
000068f0  ce 0d 34 e4 13 c8 99 22  41 42 43 5f 50 61 6c 65  |..4...."ABC_Pale|
00006900  74 74 65 22 0d 34 ee 18  c8 97 20 c8 93 20 39 30  |tte".4.... .. 90|
00006910  34 2c 33 32 2c 31 36 30  2c 38 37 34 0d 34 f8 0b  |4,32,160,874.4..|
00006920  f2 6d 6f 75 73 65 31 0d  35 02 0a 65 6e 64 25 3d  |.mouse1.5..end%=|
00006930  a3 0d 35 0c 0c c8 95 20  ac 65 6e 64 25 0d 35 16  |..5.... .end%.5.|
00006940  05 f5 0d 35 20 15 c8 97  20 6d 6f 78 25 2c 6d 6f  |...5 ... mox%,mo|
00006950  79 25 2c 62 75 74 25 0d  35 2a 0c fd 20 62 75 74  |y%,but%.5*.. but|
00006960  25 3e 30 0d 35 34 24 e7  62 75 74 25 3d 34 20 80  |%>0.54$.but%=4 .|
00006970  20 b0 6d 6f 78 25 2c 6d  6f 79 25 29 3c 3e 33 3a  | .mox%,moy%)<>3:|
00006980  f2 61 63 74 69 6f 6e 0d  35 3e 05 ce 0d 35 48 15  |.action.5>...5H.|
00006990  f2 73 61 76 65 6e 65 77  63 6f 6e 66 69 67 75 72  |.savenewconfigur|
000069a0  65 0d 35 52 19 e7 6f 6c  64 25 3c 3e 63 6c 61 25  |e.5R..old%<>cla%|
000069b0  3a f2 73 65 74 65 6d 70  74 79 0d 35 5c 1c e7 73  |:.setempty.5\..s|
000069c0  75 6e 25 3c 31 31 20 73  75 6e 25 3d 31 31 20 8b  |un%<11 sun%=11 .|
000069d0  73 75 6e 25 3d 30 0d 35  66 09 f2 6d 65 6e 75 0d  |sun%=0.5f..menu.|
000069e0  35 70 05 e1 0d 35 7a 0c  dd f2 61 63 74 69 6f 6e  |5p...5z...action|
000069f0  0d 35 84 16 6e 6f 79 25  3d 28 39 30 36 2d 6d 6f  |.5..noy%=(906-mo|
00006a00  79 25 29 3e 3e 36 0d 35  8e 16 6e 6f 78 25 3d 28  |y%)>>6.5..nox%=(|
00006a10  6d 6f 78 25 2d 39 30 36  29 81 35 36 0d 35 98 0d  |mox%-906).56.5..|
00006a20  c8 8e 20 6e 6f 79 25 20  ca 0d 35 a2 07 c9 20 30  |.. noy% ..5... 0|
00006a30  0d 35 ac 0e 66 72 6e 25  3d ac 66 72 6e 25 0d 35  |.5..frn%=.frn%.5|
00006a40  b6 23 f2 62 75 74 74 6f  6e 73 74 61 74 75 73 28  |.#.buttonstatus(|
00006a50  6e 6f 79 25 2c 32 32 36  2d 6e 6f 79 25 2a 31 36  |noy%,226-noy%*16|
00006a60  29 0d 35 c0 07 ef 20 37  0d 35 ca 07 c9 20 31 0d  |).5... 7.5... 1.|
00006a70  35 d4 0e 72 61 74 25 3d  ac 72 61 74 25 0d 35 de  |5..rat%=.rat%.5.|
00006a80  23 f2 62 75 74 74 6f 6e  73 74 61 74 75 73 28 6e  |#.buttonstatus(n|
00006a90  6f 79 25 2c 32 32 36 2d  6e 6f 79 25 2a 31 36 29  |oy%,226-noy%*16)|
00006aa0  0d 35 e8 07 ef 20 37 0d  35 f2 07 c9 20 32 0d 35  |.5... 7.5... 2.5|
00006ab0  fc 0b e7 76 65 72 25 20  8c 0d 36 06 0e 6e 69 67  |...ver% ..6..nig|
00006ac0  25 3d ac 6e 69 67 25 0d  36 10 23 f2 62 75 74 74  |%=.nig%.6.#.butt|
00006ad0  6f 6e 73 74 61 74 75 73  28 6e 6f 79 25 2c 32 32  |onstatus(noy%,22|
00006ae0  36 2d 6e 6f 79 25 2a 31  36 29 0d 36 1a 07 ef 20  |6-noy%*16).6... |
00006af0  37 0d 36 24 05 cd 0d 36  2e 07 c9 20 33 0d 36 38  |7.6$...6... 3.68|
00006b00  0e 73 64 73 25 3d ac 73  64 73 25 0d 36 42 23 f2  |.sds%=.sds%.6B#.|
00006b10  62 75 74 74 6f 6e 73 74  61 74 75 73 28 6e 6f 79  |buttonstatus(noy|
00006b20  25 2c 32 32 36 2d 6e 6f  79 25 2a 31 36 29 0d 36  |%,226-noy%*16).6|
00006b30  4c 27 e7 73 64 73 25 20  ff 22 53 50 45 41 4b 45  |L'.sds% ."SPEAKE|
00006b40  52 20 4f 4e 22 20 8b ff  22 53 50 45 41 4b 45 52  |R ON" .."SPEAKER|
00006b50  20 4f 46 46 22 0d 36 56  07 ef 20 37 0d 36 60 07  | OFF".6V.. 7.6`.|
00006b60  c9 20 34 0d 36 6a 0b e7  76 65 72 25 20 8c 0d 36  |. 4.6j..ver% ..6|
00006b70  74 0a 76 65 72 25 3d a3  0d 36 7e 0a 6e 69 67 25  |t.ver%=..6~.nig%|
00006b80  3d a3 0d 36 88 28 f2 62  75 74 74 6f 6e 73 74 61  |=..6.(.buttonsta|
00006b90  74 75 73 28 6e 6f 79 25  2d 32 2c 32 32 36 2d 6e  |tus(noy%-2,226-n|
00006ba0  6f 79 25 2a 31 36 2b 33  32 29 0d 36 92 23 f2 62  |oy%*16+32).6.#.b|
00006bb0  75 74 74 6f 6e 73 74 61  74 75 73 28 6e 6f 79 25  |uttonstatus(noy%|
00006bc0  2c 32 32 36 2d 6e 6f 79  25 2a 31 36 29 0d 36 9c  |,226-noy%*16).6.|
00006bd0  28 f2 62 75 74 74 6f 6e  73 74 61 74 75 73 28 6e  |(.buttonstatus(n|
00006be0  6f 79 25 2b 31 2c 32 32  36 2d 6e 6f 79 25 2a 31  |oy%+1,226-noy%*1|
00006bf0  36 2d 31 36 29 0d 36 a6  07 ef 20 37 0d 36 b0 05  |6-16).6... 7.6..|
00006c00  cd 0d 36 ba 07 c9 20 35  0d 36 c4 0c e7 ac 76 65  |..6... 5.6....ve|
00006c10  72 25 20 8c 0d 36 ce 0a  76 65 72 25 3d b9 0d 36  |r% ..6..ver%=..6|
00006c20  d8 0a 6e 69 67 25 3d b9  0d 36 e2 28 f2 62 75 74  |..nig%=..6.(.but|
00006c30  74 6f 6e 73 74 61 74 75  73 28 6e 6f 79 25 2d 33  |tonstatus(noy%-3|
00006c40  2c 32 32 36 2d 6e 6f 79  25 2a 31 36 2b 34 38 29  |,226-noy%*16+48)|
00006c50  0d 36 ec 23 f2 62 75 74  74 6f 6e 73 74 61 74 75  |.6.#.buttonstatu|
00006c60  73 28 6e 6f 79 25 2c 32  32 36 2d 6e 6f 79 25 2a  |s(noy%,226-noy%*|
00006c70  31 36 29 0d 36 f6 28 f2  62 75 74 74 6f 6e 73 74  |16).6.(.buttonst|
00006c80  61 74 75 73 28 6e 6f 79  25 2d 31 2c 32 32 36 2d  |atus(noy%-1,226-|
00006c90  6e 6f 79 25 2a 31 36 2b  31 36 29 0d 37 00 07 ef  |noy%*16+16).7...|
00006ca0  20 37 0d 37 0a 05 cd 0d  37 14 07 c9 20 36 0d 37  | 7.7....7... 6.7|
00006cb0  1e 0d e7 6e 6f 78 25 3d  31 20 8c 0d 37 28 0b 67  |...nox%=1 ..7(.g|
00006cc0  72 64 25 2b 3d 31 0d 37  32 12 e7 67 72 64 25 3d  |rd%+=1.72..grd%=|
00006cd0  37 3a 67 72 64 25 3d 31  0d 37 3c 23 f2 62 75 74  |7:grd%=1.7<#.but|
00006ce0  74 6f 6e 73 74 61 74 75  73 28 6e 6f 79 25 2c 32  |tonstatus(noy%,2|
00006cf0  32 36 2d 6e 6f 79 25 2a  31 36 29 0d 37 46 07 ef  |26-noy%*16).7F..|
00006d00  20 37 0d 37 50 05 cd 0d  37 5a 0d e7 6e 6f 78 25  | 7.7P...7Z..nox%|
00006d10  3d 32 20 8c 0d 37 64 0b  67 72 64 25 2d 3d 31 0d  |=2 ..7d.grd%-=1.|
00006d20  37 6e 12 e7 67 72 64 25  3d 30 3a 67 72 64 25 3d  |7n..grd%=0:grd%=|
00006d30  36 0d 37 78 23 f2 62 75  74 74 6f 6e 73 74 61 74  |6.7x#.buttonstat|
00006d40  75 73 28 6e 6f 79 25 2c  32 32 36 2d 6e 6f 79 25  |us(noy%,226-noy%|
00006d50  2a 31 36 29 0d 37 82 07  ef 20 37 0d 37 8c 05 cd  |*16).7... 7.7...|
00006d60  0d 37 96 07 c9 20 37 0d  37 a0 0d e7 6e 6f 78 25  |.7... 7.7...nox%|
00006d70  3d 31 20 8c 0d 37 aa 0b  63 6c 61 25 2b 3d 31 0d  |=1 ..7..cla%+=1.|
00006d80  37 b4 13 e7 63 6c 61 25  3d 36 35 3a 63 6c 61 25  |7...cla%=65:cla%|
00006d90  3d 31 0d 37 be 23 f2 62  75 74 74 6f 6e 73 74 61  |=1.7.#.buttonsta|
00006da0  74 75 73 28 6e 6f 79 25  2c 32 32 36 2d 6e 6f 79  |tus(noy%,226-noy|
00006db0  25 2a 31 36 29 0d 37 c8  07 ef 20 37 0d 37 d2 05  |%*16).7... 7.7..|
00006dc0  cd 0d 37 dc 0d e7 6e 6f  78 25 3d 32 20 8c 0d 37  |..7...nox%=2 ..7|
00006dd0  e6 0b 63 6c 61 25 2d 3d  31 0d 37 f0 13 e7 63 6c  |..cla%-=1.7...cl|
00006de0  61 25 3d 30 3a 63 6c 61  25 3d 36 34 0d 37 fa 23  |a%=0:cla%=64.7.#|
00006df0  f2 62 75 74 74 6f 6e 73  74 61 74 75 73 28 6e 6f  |.buttonstatus(no|
00006e00  79 25 2c 32 32 36 2d 6e  6f 79 25 2a 31 36 29 0d  |y%,226-noy%*16).|
00006e10  38 04 07 ef 20 37 0d 38  0e 05 cd 0d 38 18 07 c9  |8... 7.8....8...|
00006e20  20 38 0d 38 22 0d e7 6e  6f 78 25 3d 31 20 8c 0d  | 8.8"..nox%=1 ..|
00006e30  38 2c 0b 68 65 64 25 2b  3d 31 0d 38 36 12 e7 68  |8,.hed%+=1.86..h|
00006e40  65 64 25 3d 38 3a 68 65  64 25 3d 30 0d 38 40 23  |ed%=8:hed%=0.8@#|
00006e50  f2 62 75 74 74 6f 6e 73  74 61 74 75 73 28 6e 6f  |.buttonstatus(no|
00006e60  79 25 2c 32 32 36 2d 6e  6f 79 25 2a 31 36 29 0d  |y%,226-noy%*16).|
00006e70  38 4a 07 ef 20 37 0d 38  54 05 cd 0d 38 5e 0d e7  |8J.. 7.8T...8^..|
00006e80  6e 6f 78 25 3d 32 20 8c  0d 38 68 0b 68 65 64 25  |nox%=2 ..8h.hed%|
00006e90  2d 3d 31 0d 38 72 12 e7  68 65 64 25 3c 30 3a 68  |-=1.8r..hed%<0:h|
00006ea0  65 64 25 3d 37 0d 38 7c  23 f2 62 75 74 74 6f 6e  |ed%=7.8|#.button|
00006eb0  73 74 61 74 75 73 28 6e  6f 79 25 2c 32 32 36 2d  |status(noy%,226-|
00006ec0  6e 6f 79 25 2a 31 36 29  0d 38 86 07 ef 20 37 0d  |noy%*16).8... 7.|
00006ed0  38 90 05 cd 0d 38 9a 07  c9 20 39 0d 38 a4 0d e7  |8....8... 9.8...|
00006ee0  6e 6f 78 25 3d 31 20 8c  0d 38 ae 0b 66 75 74 25  |nox%=1 ..8..fut%|
00006ef0  2b 3d 31 0d 38 b8 12 e7  66 75 74 25 3d 38 3a 66  |+=1.8...fut%=8:f|
00006f00  75 74 25 3d 30 0d 38 c2  23 f2 62 75 74 74 6f 6e  |ut%=0.8.#.button|
00006f10  73 74 61 74 75 73 28 6e  6f 79 25 2c 32 32 36 2d  |status(noy%,226-|
00006f20  6e 6f 79 25 2a 31 36 29  0d 38 cc 07 ef 20 37 0d  |noy%*16).8... 7.|
00006f30  38 d6 05 cd 0d 38 e0 0d  e7 6e 6f 78 25 3d 32 20  |8....8...nox%=2 |
00006f40  8c 0d 38 ea 0b 66 75 74  25 2d 3d 31 0d 38 f4 12  |..8..fut%-=1.8..|
00006f50  e7 66 75 74 25 3c 30 3a  66 75 74 25 3d 37 0d 38  |.fut%<0:fut%=7.8|
00006f60  fe 23 f2 62 75 74 74 6f  6e 73 74 61 74 75 73 28  |.#.buttonstatus(|
00006f70  6e 6f 79 25 2c 32 32 36  2d 6e 6f 79 25 2a 31 36  |noy%,226-noy%*16|
00006f80  29 0d 39 08 07 ef 20 37  0d 39 12 05 cd 0d 39 1c  |).9... 7.9....9.|
00006f90  08 c9 20 31 30 0d 39 26  0d e7 6e 6f 78 25 3d 31  |.. 10.9&..nox%=1|
00006fa0  20 8c 0d 39 30 0b 70 61  70 25 2b 3d 31 0d 39 3a  | ..90.pap%+=1.9:|
00006fb0  14 e7 70 61 70 25 3d 38  31 3a 70 61 70 25 3d 31  |..pap%=81:pap%=1|
00006fc0  36 0d 39 44 23 f2 62 75  74 74 6f 6e 73 74 61 74  |6.9D#.buttonstat|
00006fd0  75 73 28 6e 6f 79 25 2c  32 32 36 2d 6e 6f 79 25  |us(noy%,226-noy%|
00006fe0  2a 31 36 29 0d 39 4e 07  ef 20 37 0d 39 58 05 cd  |*16).9N.. 7.9X..|
00006ff0  0d 39 62 0d e7 6e 6f 78  25 3d 32 20 8c 0d 39 6c  |.9b..nox%=2 ..9l|
00007000  0b 70 61 70 25 2d 3d 31  0d 39 76 14 e7 70 61 70  |.pap%-=1.9v..pap|
00007010  25 3d 31 35 3a 70 61 70  25 3d 38 30 0d 39 80 23  |%=15:pap%=80.9.#|
00007020  f2 62 75 74 74 6f 6e 73  74 61 74 75 73 28 6e 6f  |.buttonstatus(no|
00007030  79 25 2c 32 32 36 2d 6e  6f 79 25 2a 31 36 29 0d  |y%,226-noy%*16).|
00007040  39 8a 07 ef 20 37 0d 39  94 05 cd 0d 39 9e 08 c9  |9... 7.9....9...|
00007050  20 31 31 0d 39 a8 0b 70  69 78 25 2b 3d 31 0d 39  | 11.9..pix%+=1.9|
00007060  b2 12 e7 70 69 78 25 3d  34 3a 70 69 78 25 3d 30  |...pix%=4:pix%=0|
00007070  0d 39 bc 23 f2 62 75 74  74 6f 6e 73 74 61 74 75  |.9.#.buttonstatu|
00007080  73 28 6e 6f 79 25 2c 32  32 36 2d 6e 6f 79 25 2a  |s(noy%,226-noy%*|
00007090  31 36 29 0d 39 c6 07 ef  20 37 0d 39 d0 08 c9 20  |16).9... 7.9... |
000070a0  31 32 0d 39 da 13 c8 99  22 41 42 43 5f 42 6c 61  |12.9...."ABC_Bla|
000070b0  6e 6b 22 2c 33 0d 39 e4  0f 2a 53 50 45 41 4b 45  |nk",3.9..*SPEAKE|
000070c0  52 20 4f 4e 0d 39 ee 07  ef 20 37 0d 39 f8 0a 72  |R ON.9... 7.9..r|
000070d0  61 74 25 3d a3 0d 3a 02  0a 6e 69 67 25 3d b9 0d  |at%=..:..nig%=..|
000070e0  3a 0c 0a 73 64 73 25 3d  b9 0d 3a 16 0a 76 65 72  |:..sds%=..:..ver|
000070f0  25 3d b9 0d 3a 20 0a 67  72 64 25 3d 31 0d 3a 2a  |%=..: .grd%=1.:*|
00007100  0a 63 6c 61 25 3d 31 0d  3a 34 0a 68 65 64 25 3d  |.cla%=1.:4.hed%=|
00007110  31 0d 3a 3e 0a 66 75 74  25 3d 31 0d 3a 48 0b 70  |1.:>.fut%=1.:H.p|
00007120  61 70 25 3d 36 34 0d 3a  52 0a 70 69 78 25 3d 30  |ap%=64.:R.pix%=0|
00007130  0d 3a 5c 0a 66 72 6e 25  3d a3 0d 3a 66 0c e3 4a  |.:\.frn%=..:f..J|
00007140  25 3d 30 b8 31 31 0d 3a  70 1f f2 62 75 74 74 6f  |%=0.11.:p..butto|
00007150  6e 73 74 61 74 75 73 28  4a 25 2c 32 32 36 2d 4a  |nstatus(J%,226-J|
00007160  25 2a 31 36 29 0d 3a 7a  05 ed 0d 3a 84 13 c8 99  |%*16).:z...:....|
00007170  22 41 42 43 5f 50 61 6c  65 74 74 65 22 0d 3a 8e  |"ABC_Palette".:.|
00007180  0f c9 20 31 33 3a 65 6e  64 25 3d b9 0d 3a 98 05  |.. 13:end%=..:..|
00007190  cb 0d 3a a2 0e f2 7a 65  72 6f 6d 6f 75 73 65 0d  |..:...zeromouse.|
000071a0  3a ac 05 e1 0d 3a b6 16  dd f2 73 61 76 65 6e 65  |:....:....savene|
000071b0  77 63 6f 6e 66 69 67 75  72 65 0d 3a c0 08 c8 97  |wconfigure.:....|
000071c0  20 87 0d 3a ca 13 c8 99  22 41 42 43 5f 42 6c 61  | ..:...."ABC_Bla|
000071d0  6e 6b 22 2c 33 0d 3a d4  14 c8 99 22 41 42 43 5f  |nk",3.:...."ABC_|
000071e0  43 6f 6c 6f 75 72 22 2c  33 0d 3a de 27 e7 ac 64  |Colour",3.:.'..d|
000071f0  69 72 65 63 74 6f 72 79  25 28 63 6c 61 25 29 3a  |irectory%(cla%):|
00007200  f2 63 72 65 61 74 65 64  69 72 65 63 74 6f 72 79  |.createdirectory|
00007210  0d 3a e8 37 ff 22 44 49  52 20 3c 44 69 73 63 31  |.:.7."DIR <Disc1|
00007220  24 44 69 72 3e 2e 53 69  78 47 61 6d 65 73 2e 41  |$Dir>.SixGames.A|
00007230  63 68 69 65 76 65 2e 41  63 68 69 65 76 65 22 2b  |chieve.Achieve"+|
00007240  c3 28 63 6c 61 25 29 0d  3a f2 24 e7 76 65 72 25  |.(cla%).:.$.ver%|
00007250  20 74 79 70 24 3d 22 47  72 61 64 65 22 20 8b 74  | typ$="Grade" .t|
00007260  79 70 24 3d 22 4c 65 76  65 6c 22 0d 3a fc 10 f2  |yp$="Level".:...|
00007270  63 6f 6e 66 69 6c 65 73  61 76 65 0d 3b 06 1d 2a  |confilesave.;..*|
00007280  44 49 52 20 3c 44 69 73  63 31 24 44 69 72 3e 2e  |DIR <Disc1$Dir>.|
00007290  53 69 78 47 61 6d 65 73  0d 3b 10 05 e1 0d 3b 1a  |SixGames.;....;.|
000072a0  1d dd f2 62 75 74 74 6f  6e 73 74 61 74 75 73 28  |...buttonstatus(|
000072b0  6e 75 6d 25 2c 79 73 63  25 29 0d 3b 24 0f 79 79  |num%,ysc%).;$.yy|
000072c0  79 25 3d 79 73 63 25 2d  32 0d 3b 2e 06 c8 96 0d  |y%=ysc%-2.;.....|
000072d0  3b 38 6b e7 6e 75 6d 25  3d 34 20 84 20 6e 75 6d  |;8k.num%=4 . num|
000072e0  25 3d 35 20 c8 99 22 41  42 43 5f 55 6e 70 61 63  |%=5 .."ABC_Unpac|
000072f0  6b 53 70 72 69 74 65 22  2c 22 72 61 64 69 6f 6f  |kSprite","radioo|
00007300  66 66 22 2c 6a 25 2c 34  35 34 2c 79 73 63 25 20  |ff",j%,454,ysc% |
00007310  8b c8 99 22 41 42 43 5f  55 6e 70 61 63 6b 53 70  |..."ABC_UnpackSp|
00007320  72 69 74 65 22 2c 22 6f  70 74 6f 66 66 22 2c 6a  |rite","optoff",j|
00007330  25 2c 34 35 34 2c 79 73  63 25 0d 3b 42 0d c8 8e  |%,454,ysc%.;B...|
00007340  20 6e 75 6d 25 20 ca 0d  3b 4c 36 c9 20 30 3a e7  | num% ..;L6. 0:.|
00007350  66 72 6e 25 3a c8 99 22  41 42 43 5f 55 6e 70 61  |frn%:.."ABC_Unpa|
00007360  63 6b 53 70 72 69 74 65  22 2c 22 6f 70 74 6f 6e  |ckSprite","opton|
00007370  22 2c 6a 25 2c 34 35 34  2c 79 73 63 25 0d 3b 56  |",j%,454,ysc%.;V|
00007380  36 c9 20 31 3a e7 72 61  74 25 3a c8 99 22 41 42  |6. 1:.rat%:.."AB|
00007390  43 5f 55 6e 70 61 63 6b  53 70 72 69 74 65 22 2c  |C_UnpackSprite",|
000073a0  22 6f 70 74 6f 6e 22 2c  6a 25 2c 34 35 34 2c 79  |"opton",j%,454,y|
000073b0  73 63 25 0d 3b 60 36 c9  20 32 3a e7 6e 69 67 25  |sc%.;`6. 2:.nig%|
000073c0  3a c8 99 22 41 42 43 5f  55 6e 70 61 63 6b 53 70  |:.."ABC_UnpackSp|
000073d0  72 69 74 65 22 2c 22 6f  70 74 6f 6e 22 2c 6a 25  |rite","opton",j%|
000073e0  2c 34 35 34 2c 79 73 63  25 0d 3b 6a 36 c9 20 33  |,454,ysc%.;j6. 3|
000073f0  3a e7 73 64 73 25 3a c8  99 22 41 42 43 5f 55 6e  |:.sds%:.."ABC_Un|
00007400  70 61 63 6b 53 70 72 69  74 65 22 2c 22 6f 70 74  |packSprite","opt|
00007410  6f 6e 22 2c 6a 25 2c 34  35 34 2c 79 73 63 25 0d  |on",j%,454,ysc%.|
00007420  3b 74 39 c9 20 34 3a e7  ac 76 65 72 25 3a c8 99  |;t9. 4:..ver%:..|
00007430  22 41 42 43 5f 55 6e 70  61 63 6b 53 70 72 69 74  |"ABC_UnpackSprit|
00007440  65 22 2c 22 72 61 64 69  6f 6f 6e 22 2c 6a 25 2c  |e","radioon",j%,|
00007450  34 35 34 2c 79 73 63 25  0d 3b 7e 38 c9 20 35 3a  |454,ysc%.;~8. 5:|
00007460  e7 76 65 72 25 3a c8 99  22 41 42 43 5f 55 6e 70  |.ver%:.."ABC_Unp|
00007470  61 63 6b 53 70 72 69 74  65 22 2c 22 72 61 64 69  |ackSprite","radi|
00007480  6f 6f 6e 22 2c 6a 25 2c  34 35 34 2c 79 73 63 25  |oon",j%,454,ysc%|
00007490  0d 3b 88 30 c9 20 36 3a  c8 99 22 41 42 43 5f 50  |.;.0. 6:.."ABC_P|
000074a0  72 79 6e 74 53 74 72 69  6e 67 22 2c c3 28 67 72  |ryntString",.(gr|
000074b0  64 25 29 2c 34 36 32 2c  79 79 79 25 2c 30 2c 39  |d%),462,yyy%,0,9|
000074c0  0d 3b 92 07 c9 20 37 0d  3b 9c 26 e7 64 69 72 65  |.;... 7.;.&.dire|
000074d0  63 74 6f 72 79 25 28 63  6c 61 25 29 20 63 75 6c  |ctory%(cla%) cul|
000074e0  25 3d 31 33 20 8b 63 75  6c 25 3d 31 31 0d 3b a6  |%=13 .cul%=11.;.|
000074f0  64 e7 63 6c 61 25 3e 39  20 c8 99 22 41 42 43 5f  |d.cla%>9 .."ABC_|
00007500  50 72 79 6e 74 53 74 72  69 6e 67 22 2c c3 28 63  |PryntString",.(c|
00007510  6c 61 25 29 2c 34 35 38  2c 79 79 79 25 2c 30 2c  |la%),458,yyy%,0,|
00007520  63 75 6c 25 20 8b c8 99  22 41 42 43 5f 50 72 79  |cul% ..."ABC_Pry|
00007530  6e 74 53 74 72 69 6e 67  22 2c c3 28 63 6c 61 25  |ntString",.(cla%|
00007540  29 2c 34 36 32 2c 79 79  79 25 2c 30 2c 63 75 6c  |),462,yyy%,0,cul|
00007550  25 0d 3b b0 31 c9 20 38  3a c8 99 22 41 42 43 5f  |%.;.1. 8:.."ABC_|
00007560  50 72 79 6e 74 53 74 72  69 6e 67 22 2c c3 28 68  |PryntString",.(h|
00007570  65 64 25 29 2c 34 36 32  2c 79 79 79 25 2c 30 2c  |ed%),462,yyy%,0,|
00007580  31 31 0d 3b ba 31 c9 20  39 3a c8 99 22 41 42 43  |11.;.1. 9:.."ABC|
00007590  5f 50 72 79 6e 74 53 74  72 69 6e 67 22 2c c3 28  |_PryntString",.(|
000075a0  66 75 74 25 29 2c 34 36  32 2c 79 79 79 25 2c 30  |fut%),462,yyy%,0|
000075b0  2c 31 31 0d 3b c4 32 c9  20 31 30 3a c8 99 22 41  |,11.;.2. 10:.."A|
000075c0  42 43 5f 50 72 79 6e 74  53 74 72 69 6e 67 22 2c  |BC_PryntString",|
000075d0  c3 28 70 61 70 25 29 2c  34 35 38 2c 79 79 79 25  |.(pap%),458,yyy%|
000075e0  2c 30 2c 31 31 0d 3b ce  60 c9 20 31 31 3a e7 70  |,0,11.;.`. 11:.p|
000075f0  69 78 25 3d 30 20 c8 99  22 41 42 43 5f 50 72 79  |ix%=0 .."ABC_Pry|
00007600  6e 74 53 74 72 69 6e 67  22 2c 22 41 22 2c 34 36  |ntString","A",46|
00007610  32 2c 79 79 79 25 2c 30  2c 31 31 20 8b c8 99 22  |2,yyy%,0,11 ..."|
00007620  41 42 43 5f 50 72 79 6e  74 53 74 72 69 6e 67 22  |ABC_PryntString"|
00007630  2c c3 28 70 69 78 25 29  2c 34 36 32 2c 79 79 79  |,.(pix%),462,yyy|
00007640  25 2c 30 2c 36 0d 3b d8  05 cb 0d 3b e2 05 e1 0d  |%,0,6.;....;....|
00007650  3b ec 2f dc 20 46 72 65  6e 63 68 20 45 6e 76 69  |;./. French Envi|
00007660  72 6f 6e 6d 65 6e 74 2c  30 2c 52 61 74 69 6e 67  |ronment,0,Rating|
00007670  73 20 73 75 70 70 72 65  73 73 65 64 2c 30 0d 3b  |s suppressed,0.;|
00007680  f6 2b dc 20 4e 61 74 69  6f 6e 61 6c 20 63 75 72  |.+. National cur|
00007690  72 69 63 75 6c 75 6d 20  6e 75 6d 62 65 72 73 2c  |riculum numbers,|
000076a0  30 2c 53 6f 75 6e 64 2c  30 0d 3c 00 43 dc 20 4c  |0,Sound,0.<.C. L|
000076b0  65 76 65 6c 2c 30 2c 47  72 61 64 65 2c 30 2c 4f  |evel,0,Grade,0,O|
000076c0  76 65 72 61 6c 6c 20 73  6b 69 6c 6c 2c 2d 31 2c  |verall skill,-1,|
000076d0  43 6c 61 73 73 20 6e 75  6d 62 65 72 2c 2d 31 2c  |Class number,-1,|
000076e0  54 6f 70 20 73 70 61 63  65 2c 2d 31 0d 3c 0a 45  |Top space,-1.<.E|
000076f0  dc 20 42 6f 74 74 6f 6d  20 73 70 61 63 65 2c 2d  |. Bottom space,-|
00007700  31 2c 50 61 70 65 72 20  6c 65 6e 67 74 68 2c 2d  |1,Paper length,-|
00007710  31 2c 47 72 61 70 68 69  63 73 20 73 65 6c 65 63  |1,Graphics selec|
00007720  74 69 6f 6e 2c 30 2c 44  65 66 61 75 6c 74 2c 2d  |tion,0,Default,-|
00007730  32 0d 3c 14 0b dc 20 65  6e 64 2c 30 0d 3c 1e 16  |2.<... end,0.<..|
00007740  dd f2 76 61 6c 69 64 64  69 72 65 63 74 6f 72 69  |..validdirectori|
00007750  65 73 0d 3c 28 27 ff 22  44 49 52 20 3c 44 69 73  |es.<('."DIR <Dis|
00007760  63 31 24 44 69 72 3e 2e  53 69 78 47 61 6d 65 73  |c1$Dir>.SixGames|
00007770  2e 41 63 68 69 65 76 65  22 0d 3c 32 25 c8 99 22  |.Achieve".<2%.."|
00007780  4f 53 5f 47 42 50 42 22  2c 38 2c 2c 63 61 74 25  |OS_GBPB",8,,cat%|
00007790  2c 26 34 30 2c 30 20 b8  20 2c 2c 2c 64 25 0d 3c  |,&40,0 . ,,,d%.<|
000077a0  3c 1d 2a 44 49 52 20 3c  44 69 73 63 31 24 44 69  |<.*DIR <Disc1$Di|
000077b0  72 3e 2e 53 69 78 47 61  6d 65 73 0d 3c 46 08 63  |r>.SixGames.<F.c|
000077c0  25 3d 30 0d 3c 50 0c 64  25 3d 36 34 2d 64 25 0d  |%=0.<P.d%=64-d%.|
000077d0  3c 5a 0c 73 74 25 3d 63  61 74 25 0d 3c 64 12 64  |<Z.st%=cat%.<d.d|
000077e0  69 72 65 63 74 6f 72 79  25 28 29 3d a3 0d 3c 6e  |irectory%()=..<n|
000077f0  0c c8 95 20 63 25 3c 64  25 0d 3c 78 15 74 25 3d  |... c%<d%.<x.t%=|
00007800  73 74 25 3f 28 28 3f 73  74 25 29 2b 31 29 0d 3c  |st%?((?st%)+1).<|
00007810  82 15 73 74 25 3f 28 28  3f 73 74 25 29 2b 31 29  |..st%?((?st%)+1)|
00007820  3d 26 44 0d 3c 8c 0f 61  24 3d 24 28 73 74 25 2b  |=&D.<..a$=$(st%+|
00007830  31 29 0d 3c 96 11 73 74  25 2b 3d 31 2b 28 3f 73  |1).<..st%+=1+(?s|
00007840  74 25 29 0d 3c a0 0b 3f  73 74 25 3d 74 25 0d 3c  |t%).<..?st%=t%.<|
00007850  aa 1b 64 69 72 65 63 74  6f 72 79 25 28 bb 28 c1  |..directory%(.(.|
00007860  61 24 2c 38 29 29 29 3d  b9 0d 3c b4 09 63 25 2b  |a$,8)))=..<..c%+|
00007870  3d 31 0d 3c be 05 ce 0d  3c c8 05 e1 0d 3c d2 15  |=1.<....<....<..|
00007880  dd f2 63 72 65 61 74 65  64 69 72 65 63 74 6f 72  |..createdirector|
00007890  79 0d 3c dc 38 ff 22 43  44 49 52 20 3c 44 69 73  |y.<.8."CDIR <Dis|
000078a0  63 31 24 44 69 72 3e 2e  53 69 78 47 61 6d 65 73  |c1$Dir>.SixGames|
000078b0  2e 41 63 68 69 65 76 65  2e 41 63 68 69 65 76 65  |.Achieve.Achieve|
000078c0  22 2b c3 28 63 6c 61 25  29 0d 3c e6 0d f2 73 65  |"+.(cla%).<...se|
000078d0  74 65 6d 70 74 79 0d 3c  f0 05 e1 0d 3c fa 0e dd  |tempty.<....<...|
000078e0  f2 73 65 74 65 6d 70 74  79 0d 3d 04 0e 61 74 74  |.setempty.=..att|
000078f0  65 6e 64 24 3d 22 22 0d  3d 0e 10 f2 63 6f 6e 66  |end$="".=...conf|
00007900  69 6c 65 73 61 76 65 0d  3d 18 0c 61 74 74 25 28  |ilesave.=..att%(|
00007910  29 3d 30 0d 3d 22 05 e1  0d 3d 2c 0b dd a4 6c 65  |)=0.="...=,...le|
00007920  61 76 65 0d 3d 36 15 c8  97 20 6d 6f 78 25 2c 6d  |ave.=6... mox%,m|
00007930  6f 79 25 2c 62 75 74 25  0d 3d 40 25 e7 a6 2d 31  |oy%,but%.=@%..-1|
00007940  31 33 20 84 20 a6 2d 39  39 20 84 20 a6 2d 37 34  |13 . .-99 . .-74|
00007950  20 84 20 62 75 74 25 3e  30 20 8b 3d a3 0d 3d 4a  | . but%>0 .=..=J|
00007960  05 f5 0d 3d 54 15 c8 97  20 6d 6f 78 25 2c 6d 6f  |...=T... mox%,mo|
00007970  79 25 2c 62 75 74 25 0d  3d 5e 25 fd 20 ac a6 2d  |y%,but%.=^%. ..-|
00007980  31 31 33 20 80 20 ac a6  2d 39 39 20 80 20 ac a6  |113 . ..-99 . ..|
00007990  2d 37 34 20 80 20 62 75  74 25 3d 30 0d 3d 68 0b  |-74 . but%=0.=h.|
000079a0  2a 46 58 32 31 20 39 0d  3d 72 06 3d b9 0d 3d 7c  |*FX21 9.=r.=..=||
000079b0  1b dd f2 6e 65 77 63 61  72 64 28 74 24 2c 73 64  |...newcard(t$,sd|
000079c0  78 25 2c 73 64 79 25 29  0d 3d 86 07 ef 20 35 0d  |x%,sdy%).=... 5.|
000079d0  3d 90 09 e6 20 30 2c 35  0d 3d 9a 1d c8 93 c8 90  |=... 0,5.=......|
000079e0  20 30 2c 31 31 32 2c 31  32 38 2c 73 64 79 25 2a  | 0,112,128,sdy%*|
000079f0  36 34 2d 36 34 0d 3d a4  2b c8 93 c8 90 20 31 32  |64-64.=.+.... 12|
00007a00  38 2c 31 31 32 2b 73 64  79 25 2a 36 34 2d 36 34  |8,112+sdy%*64-64|
00007a10  2c 73 64 78 25 2a 31 39  32 2d 31 39 32 2c 36 34  |,sdx%*192-192,64|
00007a20  0d 3d ae 09 e6 20 30 2c  38 0d 3d b8 20 c8 93 c8  |.=... 0,8.=. ...|
00007a30  90 20 30 2c 31 31 32 2b  73 64 79 25 2a 36 34 2d  |. 0,112+sdy%*64-|
00007a40  36 34 2c 31 32 38 2c 36  34 0d 3d c2 09 e6 20 30  |64,128,64.=... 0|
00007a50  2c 30 0d 3d cc 33 e7 73  64 78 25 2a 31 36 30 2b  |,0.=.3.sdx%*160+|
00007a60  31 36 30 3e 31 32 37 39  20 73 78 65 25 3d 31 32  |160>1279 sxe%=12|
00007a70  37 38 20 8b 73 78 65 25  3d 73 64 78 25 2a 31 36  |78 .sxe%=sdx%*16|
00007a80  30 2b 31 36 30 0d 3d d6  19 c8 93 20 30 2c 31 31  |0+160.=.... 0,11|
00007a90  32 2c 73 78 65 25 2c 73  64 79 25 2a 36 34 0d 3d  |2,sxe%,sdy%*64.=|
00007aa0  e0 0a e6 20 30 2c 31 33  0d 3d ea 17 ec 20 36 34  |... 0,13.=... 64|
00007ab0  2c 31 31 32 2b 73 64 79  25 2a 36 34 2b 36 34 0d  |,112+sdy%*64+64.|
00007ac0  3d f4 12 f0 20 30 2c a9  28 74 24 29 2a 67 25 2c  |=... 0,.(t$)*g%,|
00007ad0  30 0d 3d fe 16 f0 20 38  35 2c 30 2c 31 31 32 2b  |0.=... 85,0,112+|
00007ae0  73 64 79 25 2a 36 34 0d  3e 08 17 f0 20 38 31 2c  |sdy%*64.>... 81,|
00007af0  31 32 38 2b a9 28 74 24  29 2a 67 25 2c 30 0d 3e  |128+.(t$)*g%,0.>|
00007b00  12 09 e6 20 30 2c 30 0d  3e 1c 13 ec 20 30 2c 31  |... 0,0.>... 0,1|
00007b10  31 32 2b 73 64 79 25 2a  36 34 0d 3e 26 0d f0 20  |12+sdy%*64.>&.. |
00007b20  31 2c 36 34 2c 36 34 0d  3e 30 12 f0 20 31 2c a9  |1,64,64.>0.. 1,.|
00007b30  28 74 24 29 2a 67 25 2c  30 0d 3e 3a 0e f0 20 31  |(t$)*g%,0.>:.. 1|
00007b40  2c 36 34 2c 2d 36 34 0d  3e 44 17 f0 20 31 2c 2d  |,64,-64.>D.. 1,-|
00007b50  a9 28 74 24 29 2a 67 25  2d 31 32 38 2c 30 0d 3e  |.(t$)*g%-128,0.>|
00007b60  4e 17 ec 20 36 34 2c 31  31 32 2b 73 64 79 25 2a  |N.. 64,112+sdy%*|
00007b70  36 34 2b 34 34 0d 3e 58  07 f1 74 24 0d 3e 62 11  |64+44.>X..t$.>b.|
00007b80  e3 4a 25 3d 30 b8 20 73  64 78 25 2d 31 0d 3e 6c  |.J%=0. sdx%-1.>l|
00007b90  14 ec 20 4a 25 2a 31 39  32 2b 31 32 38 2c 31 31  |.. J%*192+128,11|
00007ba0  32 0d 3e 76 11 f0 20 31  2c 30 2c 73 64 79 25 2a  |2.>v.. 1,0,sdy%*|
00007bb0  36 34 0d 3e 80 05 ed 0d  3e 8a 14 e3 4a 25 3d 30  |64.>....>...J%=0|
00007bc0  b8 20 73 64 79 25 2d 31  20 88 32 0d 3e 94 11 ec  |. sdy%-1 .2.>...|
00007bd0  20 30 2c 31 31 32 2b 4a  25 2a 36 34 0d 3e 9e 16  | 0,112+J%*64.>..|
00007be0  f0 20 31 2c 73 64 78 25  2a 31 39 32 2b 31 39 32  |. 1,sdx%*192+192|
00007bf0  2c 30 0d 3e a8 05 ed 0d  3e b2 07 ef 20 34 0d 3e  |,0.>....>... 4.>|
00007c00  bc 05 87 0d 3e c6 05 e1  0d 3e d0 11 dd f2 66 69  |....>....>....fi|
00007c10  6c 6c 61 63 68 69 65 76  65 0d 3e da 07 ef 20 35  |llachieve.>... 5|
00007c20  0d 3e e4 18 e7 66 72 6e  25 20 f7 20 8d 60 6c 40  |.>...frn% . .`l@|
00007c30  20 8b f7 20 8d 60 62 40  0d 3e ee 0b e3 4b 25 3d  | .. .`b@.>...K%=|
00007c40  30 b8 35 0d 3e f8 08 f3  20 74 24 0d 3f 02 1e ec  |0.5.>... t$.?...|
00007c50  20 28 4b 25 2a 31 39 32  2b 32 32 34 29 2d a9 28  | (K%*192+224)-.(|
00007c60  74 24 29 2a 38 2c 39 32  34 0d 3f 0c 07 f1 74 24  |t$)*8,924.?...t$|
00007c70  0d 3f 16 05 ed 0d 3f 20  0b e3 4b 25 3d 31 b8 36  |.?....? ..K%=1.6|
00007c80  0d 3f 2a 2e c8 99 22 41  42 43 5f 55 6e 70 61 63  |.?*..."ABC_Unpac|
00007c90  6b 53 70 72 69 74 65 22  2c c3 28 4b 25 29 2c 6a  |kSprite",.(K%),j|
00007ca0  25 2c 32 34 2c 32 34 34  2d 4b 25 2a 33 32 0d 3f  |%,24,244-K%*32.?|
00007cb0  34 0b e3 4a 25 3d 31 b8  36 0d 3f 3e 12 66 61 78  |4..J%=1.6.?>.fax|
00007cc0  25 3d 4a 25 2a 31 39 32  2d 36 32 0d 3f 48 13 66  |%=J%*192-62.?H.f|
00007cd0  61 79 25 3d 38 38 34 2d  4b 25 2a 31 32 38 0d 3f  |ay%=884-K%*128.?|
00007ce0  52 1a f2 63 6f 6c 6f 75  72 28 61 74 74 25 28 4a  |R..colour(att%(J|
00007cf0  25 2c 4b 25 2c 30 29 29  0d 3f 5c 38 e7 4a 25 3d  |%,K%,0)).?\8.J%=|
00007d00  36 20 c8 93 c8 90 20 66  61 78 25 2c 66 61 79 25  |6 .... fax%,fay%|
00007d10  2c 31 38 36 2c 31 32 30  20 8b c8 93 c8 90 20 66  |,186,120 ..... f|
00007d20  61 78 25 2c 66 61 79 25  2c 31 38 38 2c 31 32 30  |ax%,fay%,188,120|
00007d30  0d 3f 66 0b e7 6e 69 67  25 20 8c 0d 3f 70 16 61  |.?f..nig% ..?p.a|
00007d40  24 3d 22 4c 6f 41 20 22  2b 6e 63 6c 24 28 4b 25  |$="LoA "+ncl$(K%|
00007d50  29 0d 3f 7a 18 78 73 63  25 3d 66 61 78 25 2b 39  |).?z.xsc%=fax%+9|
00007d60  36 2d a9 28 61 24 29 2a  38 0d 3f 84 09 e6 20 30  |6-.(a$)*8.?... 0|
00007d70  2c 37 0d 3f 8e 12 ec 20  78 73 63 25 2c 66 61 79  |,7.?... xsc%,fay|
00007d80  25 2b 39 32 0d 3f 98 07  f1 61 24 0d 3f a2 09 e6  |%+92.?...a$.?...|
00007d90  20 30 2c 30 0d 3f ac 12  ec 20 78 73 63 25 2c 66  | 0,0.?... xsc%,f|
00007da0  61 79 25 2b 39 36 0d 3f  b6 07 f1 61 24 0d 3f c0  |ay%+96.?...a$.?.|
00007db0  05 cd 0d 3f ca 16 e7 61  74 74 25 28 4a 25 2c 4b  |...?...att%(J%,K|
00007dc0  25 2c 30 29 3c 33 20 8c  0d 3f d4 10 78 73 63 25  |%,0)<3 ..?..xsc%|
00007dd0  3d 66 61 78 25 2b 34 30  0d 3f de 0b e3 4c 25 3d  |=fax%+40.?...L%=|
00007de0  31 b8 34 0d 3f e8 1b f2  63 6f 6c 6f 75 72 28 61  |1.4.?...colour(a|
00007df0  74 74 25 28 4a 25 2c 4b  25 2c 4c 25 29 29 0d 3f  |tt%(J%,K%,L%)).?|
00007e00  f2 1c c8 93 c8 90 20 78  73 63 25 2d 36 2c 66 61  |...... xsc%-6,fa|
00007e10  79 25 2b 38 2c 33 30 2c  34 30 0d 3f fc 09 e6 20  |y%+8,30,40.?... |
00007e20  30 2c 37 0d 40 06 12 ec  20 78 73 63 25 2c 66 61  |0,7.@... xsc%,fa|
00007e30  79 25 2b 33 36 0d 40 10  0d f1 bd 28 39 36 2b 4c  |y%+36.@....(96+L|
00007e40  25 29 0d 40 1a 09 e6 20  30 2c 30 0d 40 24 12 ec  |%).@... 0,0.@$..|
00007e50  20 78 73 63 25 2c 66 61  79 25 2b 34 30 0d 40 2e  | xsc%,fay%+40.@.|
00007e60  0d f1 bd 28 39 36 2b 4c  25 29 0d 40 38 0c 78 73  |...(96+L%).@8.xs|
00007e70  63 25 2b 3d 33 32 0d 40  42 05 ed 0d 40 4c 05 cd  |c%+=32.@B...@L..|
00007e80  0d 40 56 05 ed 0d 40 60  05 ed 0d 40 6a 07 ef 20  |.@V...@`...@j.. |
00007e90  34 0d 40 74 05 87 0d 40  7e 05 e1 0d 40 88 12 dd  |4.@t...@~...@...|
00007ea0  f2 63 6f 6c 6f 75 72 28  76 61 6c 25 29 0d 40 92  |.colour(val%).@.|
00007eb0  0d c8 8e 20 76 61 6c 25  20 ca 0d 40 9c 0d c9 20  |... val% ..@... |
00007ec0  30 3a e6 20 30 2c 37 0d  40 a6 0e c9 20 31 3a e6  |0:. 0,7.@... 1:.|
00007ed0  20 30 2c 31 31 0d 40 b0  0e c9 20 32 3a e6 20 30  | 0,11.@... 2:. 0|
00007ee0  2c 31 34 0d 40 ba 20 c9  20 33 2c 34 2c 35 2c 36  |,14.@. . 3,4,5,6|
00007ef0  2c 37 2c 38 2c 39 2c 31  30 2c 31 31 3a e6 20 30  |,7,8,9,10,11:. 0|
00007f00  2c 31 30 0d 40 c4 0c 7f  3a e6 20 30 2c 31 35 0d  |,10.@...:. 0,15.|
00007f10  40 ce 05 cb 0d 40 d8 05  e1 0d 40 e2 35 dc 20 54  |@....@....@.5. T|
00007f20  68 65 20 43 6f 70 2c 54  6f 77 65 72 2c 57 6f 72  |he Cop,Tower,Wor|
00007f30  64 20 53 65 61 72 63 68  2c 4c 69 6e 6b 20 55 70  |d Search,Link Up|
00007f40  2c 52 65 73 63 75 65 2c  53 74 6f 6e 65 73 0d 40  |,Rescue,Stones.@|
00007f50  ec 42 dc 20 4c 65 20 46  6c 69 63 2c 4c 61 20 54  |.B. Le Flic,La T|
00007f60  6f 75 72 2c 4c 65 20 50  75 7a 7a 6c 65 2c 4c 65  |our,Le Puzzle,Le|
00007f70  20 4a 75 6d 65 6c 61 67  65 2c 22 4c 61 20 46 75  | Jumelage,"La Fu|
00007f80  73 e9 65 22 2c 42 6f 6e  6e 65 20 52 6f 75 74 65  |s.e",Bonne Route|
00007f90  0d 40 f6 0f dd f2 7a 65  72 6f 6d 6f 75 73 65 0d  |.@....zeromouse.|
00007fa0  41 00 05 f5 0d 41 0a 15  c8 97 20 6d 6f 78 25 2c  |A....A.... mox%,|
00007fb0  6d 6f 79 25 2c 62 75 74  25 0d 41 14 0c fd 20 62  |moy%,but%.A... b|
00007fc0  75 74 25 3d 30 0d 41 1e  05 e1 0d 41 28 0b dd f2  |ut%=0.A....A(...|
00007fd0  65 72 72 6f 72 0d 41 32  07 ea 20 85 0d 41 3c 0c  |error.A2.. ..A<.|
00007fe0  ef 20 33 2c 32 36 2c 37  0d 41 46 0a 2a 43 4c 4f  |. 3,26,7.AF.*CLO|
00007ff0  53 45 0d 41 50 17 c8 99  22 48 6f 75 72 67 6c 61  |SE.AP..."Hourgla|
00008000  73 73 5f 53 6d 61 73 68  22 0d 41 5a 08 c8 97 20  |ss_Smash".AZ... |
00008010  87 0d 41 64 15 c8 99 22  41 42 43 5f 43 6f 6c 6f  |..Ad..."ABC_Colo|
00008020  75 72 22 2c 31 35 0d 41  6e 13 c8 99 22 41 42 43  |ur",15.An..."ABC|
00008030  5f 50 61 6c 65 74 74 65  22 0d 41 78 1a e7 9f 3e  |_Palette".Ax...>|
00008040  26 31 30 37 46 46 20 80  20 9f 3c 26 31 30 39 30  |&107FF . .<&1090|
00008050  30 20 8c 0d 41 82 31 f2  6d 65 73 73 28 22 46 49  |0 ..A.1.mess("FI|
00008060  4c 49 4e 47 20 53 59 53  54 45 4d 20 52 45 50 4f  |LING SYSTEM REPO|
00008070  52 54 53 20 45 52 52 4f  52 20 3a 20 22 2b f6 24  |RTS ERROR : "+.$|
00008080  2c 31 31 29 0d 41 8c 0f  f2 64 65 6c 61 79 28 31  |,11).A...delay(1|
00008090  35 30 29 0d 41 96 07 ef  20 37 0d 41 a0 54 f2 6d  |50).A... 7.A.T.m|
000080a0  65 73 73 28 22 50 4c 45  41 53 45 20 43 48 45 43  |ess("PLEASE CHEC|
000080b0  4b 20 44 49 53 43 20 49  4e 20 44 52 49 56 45 20  |K DISC IN DRIVE |
000080c0  41 4e 44 20 4e 4f 54 20  57 52 49 54 45 20 50 52  |AND NOT WRITE PR|
000080d0  4f 54 45 43 54 45 44 20  54 48 45 4e 20 50 52 45  |OTECTED THEN PRE|
000080e0  53 53 20 52 45 54 55 52  4e 22 2c 31 31 29 0d 41  |SS RETURN",11).A|
000080f0  aa 05 f5 0d 41 b4 0a fd  20 a6 2d 37 34 0d 41 be  |....A... .-74.A.|
00008100  05 cd 0d 41 c8 10 ee 20  85 20 ea 20 e5 20 8d 50  |...A... . . . .P|
00008110  7c 41 0d 41 d2 10 f2 63  6f 6e 66 69 6c 65 73 61  ||A.A...confilesa|
00008120  76 65 0d 41 dc 1d 2a 44  49 52 20 3c 44 69 73 63  |ve.A..*DIR <Disc|
00008130  31 24 44 69 72 3e 2e 53  69 78 47 61 6d 65 73 0d  |1$Dir>.SixGames.|
00008140  41 e6 07 f7 20 85 0d 41  f0 15 c8 99 22 41 42 43  |A... ..A...."ABC|
00008150  5f 43 6f 6c 6f 75 72 22  2c 31 35 0d 41 fa 05 f9  |_Colour",15.A...|
00008160  0d 42 04 05 e1 0d 42 0e  0e dd f2 61 73 73 65 6d  |.B....B....assem|
00008170  62 6c 65 0d 42 18 0e de  20 61 73 6d 25 20 31 36  |ble.B... asm% 16|
00008180  30 0d 42 22 1f c8 99 22  41 42 43 5f 56 69 64 65  |0.B"..."ABC_Vide|
00008190  6f 41 64 64 72 65 73 73  22 20 b8 20 76 69 64 25  |oAddress" . vid%|
000081a0  0d 42 2c 0d e3 41 25 3d  30 b8 32 88 32 0d 42 36  |.B,..A%=0.2.2.B6|
000081b0  0b 50 25 3d 61 73 6d 25  0d 42 40 0a 5b 4f 50 54  |.P%=asm%.B@.[OPT|
000081c0  41 25 0d 42 4a 0d 2e 43  61 72 6f 75 73 65 6c 0d  |A%.BJ..Carousel.|
000081d0  42 54 5b 4d 4f 56 20 52  30 2c 23 31 39 3a 53 57  |BT[MOV R0,#19:SW|
000081e0  49 20 22 58 4f 53 5f 42  79 74 65 22 3a 4c 44 52  |I "XOS_Byte":LDR|
000081f0  20 52 31 32 2c 5b 52 39  5d 3a 4c 44 52 20 52 30  | R12,[R9]:LDR R0|
00008200  2c 5b 52 31 32 5d 3a 4c  44 52 20 52 31 2c 6d 65  |,[R12]:LDR R1,me|
00008210  6e 3a 41 44 44 20 52 30  2c 52 31 2c 52 30 3a 4d  |n:ADD R0,R1,R0:M|
00008220  4f 56 20 52 32 2c 23 26  34 38 0d 42 5e 0e 2e 72  |OV R2,#&48.B^..r|
00008230  65 63 74 61 6e 67 6c 65  0d 42 68 47 4c 44 52 42  |ectangle.BhGLDRB|
00008240  20 52 31 2c 5b 52 30 2c  23 26 31 5d 3a 53 54 52  | R1,[R0,#&1]:STR|
00008250  42 20 52 31 2c 5b 52 30  5d 3a 4c 44 52 42 20 52  |B R1,[R0]:LDRB R|
00008260  31 2c 5b 52 30 2c 23 26  31 34 31 5d 3a 53 54 52  |1,[R0,#&141]:STR|
00008270  42 20 52 31 2c 5b 52 30  2c 23 26 31 34 30 5d 0d  |B R1,[R0,#&140].|
00008280  42 72 4f 4c 44 52 42 20  52 31 2c 5b 52 30 2c 23  |BrOLDRB R1,[R0,#|
00008290  26 32 38 31 5d 3a 53 54  52 42 20 52 31 2c 5b 52  |&281]:STRB R1,[R|
000082a0  30 2c 23 26 32 38 30 5d  3a 4c 44 52 42 20 52 31  |0,#&280]:LDRB R1|
000082b0  2c 5b 52 30 2c 23 26 33  43 31 5d 3a 53 54 52 42  |,[R0,#&3C1]:STRB|
000082c0  20 52 31 2c 5b 52 30 2c  23 26 33 43 30 5d 0d 42  | R1,[R0,#&3C0].B|
000082d0  7c 4f 4c 44 52 42 20 52  31 2c 5b 52 30 2c 23 26  ||OLDRB R1,[R0,#&|
000082e0  35 30 31 5d 3a 53 54 52  42 20 52 31 2c 5b 52 30  |501]:STRB R1,[R0|
000082f0  2c 23 26 35 30 30 5d 3a  4c 44 52 42 20 52 31 2c  |,#&500]:LDRB R1,|
00008300  5b 52 30 2c 23 26 36 34  31 5d 3a 53 54 52 42 20  |[R0,#&641]:STRB |
00008310  52 31 2c 5b 52 30 2c 23  26 36 34 30 5d 0d 42 86  |R1,[R0,#&640].B.|
00008320  4f 4c 44 52 42 20 52 31  2c 5b 52 30 2c 23 26 37  |OLDRB R1,[R0,#&7|
00008330  38 31 5d 3a 53 54 52 42  20 52 31 2c 5b 52 30 2c  |81]:STRB R1,[R0,|
00008340  23 26 37 38 30 5d 3a 4c  44 52 42 20 52 31 2c 5b  |#&780]:LDRB R1,[|
00008350  52 30 2c 23 26 38 43 31  5d 3a 53 54 52 42 20 52  |R0,#&8C1]:STRB R|
00008360  31 2c 5b 52 30 2c 23 26  38 43 30 5d 0d 42 90 29  |1,[R0,#&8C0].B.)|
00008370  4c 44 52 42 20 52 31 2c  5b 52 30 2c 23 26 41 30  |LDRB R1,[R0,#&A0|
00008380  31 5d 3a 53 54 52 42 20  52 31 2c 5b 52 30 2c 23  |1]:STRB R1,[R0,#|
00008390  26 41 30 30 5d 0d 42 9a  3a 41 44 44 20 52 30 2c  |&A00].B.:ADD R0,|
000083a0  52 30 2c 23 26 31 3a 53  55 42 53 20 52 32 2c 52  |R0,#&1:SUBS R2,R|
000083b0  32 2c 23 26 31 3a 42 4e  45 20 72 65 63 74 61 6e  |2,#&1:BNE rectan|
000083c0  67 6c 65 3a 4d 4f 56 20  52 31 35 2c 52 31 34 0d  |gle:MOV R15,R14.|
000083d0  42 a4 18 2e 6d 65 6e 20  45 51 55 44 20 76 69 64  |B...men EQUD vid|
000083e0  25 2b 26 33 36 32 34 0d  42 ae 05 5d 0d 42 b8 05  |%+&3624.B..].B..|
000083f0  ed 0d 42 c2 05 e1 0d 42  cc 0e dd f2 6c 6f 6e 67  |..B....B....long|
00008400  6d 65 6e 75 0d 42 d6 11  e7 62 6f 78 25 3c 3e 6f  |menu.B...box%<>o|
00008410  6d 79 25 20 8c 0d 42 e0  07 ef 20 35 0d 42 ea 09  |my% ..B... 5.B..|
00008420  e6 20 30 2c 38 0d 42 f4  06 c8 96 0d 42 fe 1f c8  |. 0,8.B.....B...|
00008430  93 c8 90 20 34 30 30 2c  31 31 32 2b 6f 6d 79 25  |... 400,112+omy%|
00008440  2a 36 34 2c 32 38 38 2c  33 32 0d 43 08 19 e7 6f  |*64,288,32.C...o|
00008450  6d 79 25 3c 36 20 e6 20  30 2c 31 34 20 8b e6 20  |my%<6 . 0,14 .. |
00008460  30 2c 30 0d 43 12 15 ec  20 34 30 30 2c 31 34 30  |0,0.C... 400,140|
00008470  2b 6f 6d 79 25 2a 36 34  0d 43 1c 17 f1 c0 6d 6e  |+omy%*64.C....mn|
00008480  75 24 28 31 31 2d 6f 6d  79 25 29 2c 31 37 29 0d  |u$(11-omy%),17).|
00008490  43 26 0d 6f 6d 79 25 3d  62 6f 78 25 0d 43 30 07  |C&.omy%=box%.C0.|
000084a0  ef 20 34 0d 43 3a 05 87  0d 43 44 0b 69 6e 6a 25  |. 4.C:...CD.inj%|
000084b0  3d 37 32 0d 43 4e 19 74  78 74 25 3d a9 28 6d 6e  |=72.CN.txt%=.(mn|
000084c0  75 24 28 31 31 2d 6f 6d  79 25 29 29 0d 43 58 14  |u$(11-omy%)).CX.|
000084d0  64 24 3d 6d 6e 75 24 28  31 31 2d 6f 6d 79 25 29  |d$=mnu$(11-omy%)|
000084e0  0d 43 62 05 cd 0d 43 6c  0e e7 74 78 74 25 3e 31  |.Cb...Cl..txt%>1|
000084f0  37 20 8c 0d 43 76 18 70  61 72 25 3d 28 31 31 2d  |7 ..Cv.par%=(11-|
00008500  62 6f 78 25 29 2a 26 31  34 30 30 0d 43 80 13 d6  |box%)*&1400.C...|
00008510  20 43 61 72 6f 75 73 65  6c 2c 70 61 72 25 0d 43  | Carousel,par%.C|
00008520  8a 17 e7 69 6e 6a 25 83  34 3d 30 3a f2 6d 65 6e  |...inj%.4=0:.men|
00008530  75 63 68 61 72 0d 43 94  0b 69 6e 6a 25 2b 3d 31  |uchar.C..inj%+=1|
00008540  0d 43 9e 05 cd 0d 43 a8  05 e1 0d 43 b2 0e dd f2  |.C....C....C....|
00008550  6d 65 6e 75 63 68 61 72  0d 43 bc 1c e7 28 69 6e  |menuchar.C...(in|
00008560  6a 25 3e 3e 32 29 3e 74  78 74 25 2b 38 3a 69 6e  |j%>>2)>txt%+8:in|
00008570  6a 25 3d 34 0d 43 c6 15  e7 28 69 6e 6a 25 3e 3e  |j%=4.C...(inj%>>|
00008580  32 29 3e 74 78 74 25 3a  e1 0d 43 d0 1b e7 6f 6d  |2)>txt%:..C...om|
00008590  79 25 3c 36 20 63 6f 6c  25 3d 31 34 20 8b 63 6f  |y%<6 col%=14 .co|
000085a0  6c 25 3d 30 0d 43 da 3c  c8 99 22 41 42 43 5f 50  |l%=0.C.<.."ABC_P|
000085b0  72 79 6e 74 53 74 72 69  6e 67 22 2c c1 64 24 2c  |ryntString",.d$,|
000085c0  69 6e 6a 25 3e 3e 32 2c  31 29 2c 33 33 36 2c 33  |inj%>>2,1),336,3|
000085d0  36 2b 6f 6d 79 25 2a 31  36 2c 30 2c 63 6f 6c 25  |6+omy%*16,0,col%|
000085e0  0d 43 e4 05 e1 0d 43 ee  0a dd f2 74 69 64 79 0d  |.C....C....tidy.|
000085f0  43 f8 10 e7 62 6f 78 25  3d 6f 6d 79 25 3a e1 0d  |C...box%=omy%:..|
00008600  44 02 07 ef 20 35 0d 44  0c 09 e6 20 30 2c 38 0d  |D... 5.D... 0,8.|
00008610  44 16 06 c8 96 0d 44 20  1f c8 93 c8 90 20 34 30  |D.....D ..... 40|
00008620  30 2c 31 31 32 2b 6f 6d  79 25 2a 36 34 2c 32 38  |0,112+omy%*64,28|
00008630  38 2c 33 32 0d 44 2a 19  e7 6f 6d 79 25 3c 36 20  |8,32.D*..omy%<6 |
00008640  e6 20 30 2c 31 34 20 8b  e6 20 30 2c 30 0d 44 34  |. 0,14 .. 0,0.D4|
00008650  15 ec 20 34 30 30 2c 31  34 30 2b 6f 6d 79 25 2a  |.. 400,140+omy%*|
00008660  36 34 0d 44 3e 17 f1 c0  6d 6e 75 24 28 31 31 2d  |64.D>...mnu$(11-|
00008670  6f 6d 79 25 29 2c 31 37  29 0d 44 48 0d 6f 6d 79  |omy%),17).DH.omy|
00008680  25 3d 62 6f 78 25 0d 44  52 07 ef 20 34 0d 44 5c  |%=box%.DR.. 4.D\|
00008690  05 87 0d 44 66 05 e1 0d  44 70 0a dd f2 74 72 61  |...Df...Dp...tra|
000086a0  70 0d 44 7a 07 c8 97 87  0d 44 84 07 ef 32 36 0d  |p.Dz.....D...26.|
000086b0  44 8e 0a 2a 43 4c 4f 53  45 0d 44 98 05 e1 0d ff  |D..*CLOSE.D.....|
000086c0