Home » Archimedes archive » Archimedes World » AW-1993-12.adf » AWDec93 » !AWDec93/Goodies/10out10/!10_10Alge/Menu
!AWDec93/Goodies/10out10/!10_10Alge/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 » Archimedes archive » Archimedes World » AW-1993-12.adf » AWDec93 |
Filename: | !AWDec93/Goodies/10out10/!10_10Alge/Menu |
Read OK: | ✔ |
File size: | 6C41 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10REM >adfs::0.$.!10/10Alge.Menu 20ONERROR:PROCerror 30IFMODE<>12:MODE12:OFF 40PROCinitial 50PROCmenu 60REPEAT 70PROCmouseilluminate 80PROCselect 90PROCaccess 100PROCconfigure 110UNTIL FALSE 120DEFPROCinitial 130SYS"ABC_VideoAddress" 140SYS"Hourglass_On" 150MOUSE RECTANGLE 0,0,1280,1024 160DIM att%(6,10),new%(6,10),info$(6,10),filename$(64),status%(2),six$(6) 170DIM buf%(6,10),directory%(64),files%(64),cat% &400 180h%=OPENIN("ram:FactFile") 190FORJ%=1TO6 200FORK%=1TO10 210INPUT#h%,fact$ 220info$(J%,K%)=fact$ 230NEXT 240NEXT 250CLOSE#h% 260RESTORE 12340 270FORJ%=1TO6 280FORK%=1TO6 290READ X% 300buf%(J%,X%)=K% 310NEXT 320NEXT 330*FX212 128 0 340@% =0 350box%=0 360g% =16 370pre%=-1 380sun%=0 390wit%=20 400f$ ="<Disc2$Dir>.SixGames." 410b% =FNinitialsprites("Numbers|Buttons",0) 420z% =FNinitialcompressed("IntrosSpr") 430PROCloaddetails 440SYS"Hourglass_Smash" 450PROCpoint("Ten",1) 460VOICES 4 470VOICE 1,"StringLib-Pluck" 480PROCflush 490ENDPROC 500DEFPROCmouse1 510MOUSE COLOUR 1,255,255,0 520MOUSE COLOUR 2,255,0,0 530MOUSE COLOUR 3,192,192,192 540MOUSE ON 1 550ENDPROC 560DEFFNarea(x1%,y1%,x2%,y2%) 570IFmox%<x1% OR mox%>x2%:=FALSE 580IFmoy%<y1% OR moy%>y2%:=FALSE 590=TRUE 600DEFPROCmouseilluminate 610MOUSE mox%,moy%,but% 620box%=(moy%-100)>>6 630IFbox%<0:box%=0 640IFbox%>11:box%=11 650IFbox%<>sun%:WAIT:PROCsquare(sun%,11):PROCsquare(box%,15):sun%=box% 660IFNOTFNarea(704,104,864,868) THEN 670PROCsquare(box%,11) 680IFbox%<5 THEN 690box%=11:sun%=10 700ELSE 710box%=0:sun%=1 720ENDIF 730ENDIF 740IFbut%=0 OR NOTFNarea(704,104,864,868):ENDPROC 750VDU 7 760CASE box% OF 770WHEN 0 :PROCdesktop 780WHEN 1 :PROCprintcertificate 790WHEN 2 :PROCdelete 800WHEN 3 :PROCcreate 810WHEN 4 :PROCload 820WHEN 5 :PROCviewachieve 830WHEN 6 :PROCrun("RibTickler") 840WHEN 7 :PROCrun("TurboRaft") 850WHEN 8 :PROCrun("HookIt") 860WHEN 9 :PROCrun("ChainUp") 870WHEN 10:PROCrun("Processor") 880WHEN 11:PROCrun("Graphoid") 890ENDCASE 900IFsun%<11 sun%=11 ELSEsun%=0 910REPEAT 920MOUSE mox%,moy%,but% 930UNTIL but%=0 940PROCmenu 950ENDPROC 960DEFPROCrun(game$) 970MOUSE OFF 980SYS"Hourglass_On" 990SYS"ABC_Blank",15 1000SYS"ABC_Colour",15 1010h%=OPENOUT(f$+"Misc.Signal") 1020PRINT#h%,"" 1030CLOSE#h% 1040CHAIN f$+game$ 1050ENDPROC 1060DEFPROCsquare(wch%,col%) 1070GCOL 0,col% 1080RECTANGLEFILL 706,wch%*64+100,156,58 1090ENDPROC 1100DEFPROCmenu 1110MOUSE OFF 1120MOUSE TO 640,512 1130SYS"ABC_Blank",15 1140SYS"ABC_Colour",15 1150PROCcard("ALGEBRA MENU",24,6,2,12) 1160PROCfillmenu(13,10) 1170PROCcurrent 1180PROCrectangles 1190PROCcontents 1200SYS"ABC_Palette" 1210MOUSE RECTANGLE 0,0,1280,1024 1220MOUSE TO 640,512 1230PROCmouse1 1240ENDPROC 1250DEFPROCfillmenu(tax%,tay%) 1260VDU 5 1270GCOL 0,0 1280RESTORE 1430 1290FORJ%=0TO5 1300READ s$ 1310MOVE tax%*32-g%,1024-(tay%*g%+J%*64+20) 1320PRINTs$ 1330NEXT 1340GCOL 0,14 1350FORJ%=6TO11 1360READ s$ 1370MOVE tax%*32-g%,1024-(tay%*g%+J%*64+20) 1380PRINTs$ 1390NEXT 1400VDU 4 1410OFF 1420ENDPROC 1430DATA Graphoid,Processor,Chain Up,Hook It!,Turbo Raft,Rib Tickler 1440DATA Player information,Change player,New player,Remove player 1450DATA Print certificate,Quit 1460DEFPROCachievecard 1470MOUSE OFF 1480SYS"ABC_Blank",15 1490SYS"ABC_Colour",15 1500a$=FNstrip(attend$) 1510IFa$="":a$="Empty" 1520IFnig% THEN 1530PROCcard(a$+" : Achievement Record 10/10 Mathematics (Algebra - AT3)",0,12,8,11) 1540ELSE 1550PROCcard(a$+" : Achievement Record 10/10 Mathematics ",0,12,8,11) 1560ENDIF 1570PROCfillachieve(0,6) 1580m$="RETURN TO MENU" 1590PROCmess(m$,11) 1600MOUSE TO 640,512 1610SYS"ABC_Palette" 1620PROCmouse1 1630p$="X" 1640sta%=0 1650oxx%=0 1660oyy%=0 1670*FX21 0 1680ENDPROC 1690DEFPROCviewachieve 1700PROCachievecard 1710REPEAT 1720MOUSE mox%,moy%,but% 1730IFmoy%<72 AND sta%=0:sta%=1:PROCmess(m$,10) 1740IFmoy%>72 AND sta%=1:sta%=0:PROCmess(m$,11) 1750cxx%=(mox%-320)/160+1 1760IFmoy%>836 cyy%=0 ELSEcyy%=(ABS(moy%-836)DIV64)+1 1770IFcyy%>10:cyy%=0 1780IFcxx%<0 OR cxx%>6 cxx%=0 1790IFcxx%<>oxx% OR cyy%<>oyy% THEN 1800oxx%=cxx% 1810oyy%=cyy% 1820a$=info$(cxx%,cyy%) 1830IFa$>"" THEN 1840IFnig% PROCinformation("AT3 Level "+a$) ELSEPROCinformation(MID$(a$,INSTR(a$,")")+2)) 1850ELSE 1860PROCinformation("") 1870ENDIF 1880ENDIF 1890PROCachievediscdump 1900PROCachieveprintdump 1910PROCallachieveprintdump 1920UNTIL FNleave 1930ENDPROC 1940DEFPROCinformation(t$) 1950IFp$=t$:ENDPROC 1960p$=t$ 1970GCOL 0,11 1980VDU 5 1990WAIT 2000RECTANGLEFILL 0,96,1278,64 2010GCOL 0,0 2020RECTANGLE 0,96,1278,64 2030MOVE 640-LEN(t$)*8,140 2040PRINTt$ 2050VDU 4 2060OFF 2070ENDPROC 2080DEFPROCcard(t$,tax%,tay%,sdx%,sdy%) 2090VDU 5 2100GCOL 0,8 2110RECTANGLEFILL tax%*g%,tay%*g%,sdx%*160+160,sdy%*64 2120GCOL 0,11 2130RECTANGLEFILL tax%*g%+320,tay%*g%,sdx%*160-162,sdy%*64 2140GCOL 0,0 2150IFsdx%*160+160>1279 sxe%=1278 ELSEsxe%=sdx%*160+160 2160RECTANGLE tax%*g%,tay%*g%,sxe%,sdy%*64 2170GCOL 0,13 2180MOVE tax%*g%+64,tay%*g%+sdy%*64+64 2190PLOT 0,LEN(t$)*g%,0 2200PLOT 85,tax%*g%,tay%*g%+sdy%*64 2210PLOT 81,128+LEN(t$)*g%,0 2220GCOL 0,0 2230MOVE tax%*g%,tay%*g%+sdy%*64 2240PLOT 1,64,64 2250PLOT 1,LEN(t$)*g%,0 2260PLOT 1,64,-64 2270MOVE tax%*g%+64,tay%*g%+sdy%*64+44 2280PRINTt$ 2290FORJ%=1TO sdx% 2300MOVE tax%*g%+J%*160+160,tay%*g% 2310PLOT 1,0,sdy%*64 2320NEXT 2330FORJ%=1TO sdy% 2340MOVE tax%*g%,tay%*g%+J%*64 2350PLOT 1,sdx%*160+160,0 2360NEXT 2370VDU 4 2380OFF 2390ENDPROC 2400DEFPROCfillachieve(tax%,tay%) 2410VDU 5 2420RESTORE 2940 2430READ t$ 2440MOVE tax%+32,1024-(tay%*g%+52) 2450PRINTt$ 2460FORK%=1TO6 2470READ t$ 2480MOVE (tax%+32+K%*160+208)-LEN(t$)*8,1024-(tay%*g%+52) 2490PRINTt$ 2500NEXT 2510FORJ%=1TO10 2520GCOL 0,0 2530READ t$ 2540MOVE tax%+32,1024-(tay%*g%+J%*64+52) 2550PRINTt$ 2560FORK%=1TO6 2570fax%=tax%+32+K%*160 2580fay%=tay%*g%+J%*64 2590IFfax%+156>=1100 wid%=154 ELSEwid%=156 2600CASE att%(K%,J%) OF 2610WHEN 0 2620IFinfo$(K%,J%)="" GCOL 0,3 ELSEGCOL 0,7 2630IFstatus%(1)+status%(2)=36:GCOL 0,8 2640IFstatus%(1)=36:GCOL 0,10 2650IFstatus%(2)=36:GCOL 0,15 2660WHEN 1:GCOL 0,11 2670WHEN 2:GCOL 0,14 2680WHEN 3,4,5,6,7,8,9,10,11:GCOL 0,10 2690OTHERWISE:GCOL 0,15 2700ENDCASE 2710RECTANGLEFILL fax%+130,1024-(fay%+92),wid%,56 2720IFinfo$(K%,J%)>"" THEN 2730IFnig% THEN 2740GCOL 0,7 2750MOVE fax%+172,1020-(fay%+52) 2760PRINTLEFT$(info$(K%,J%),INSTR(info$(K%,J%),"(")-2) 2770GCOL 0,0 2780MOVE fax%+174,1024-(fay%+52) 2790PRINTLEFT$(info$(K%,J%),INSTR(info$(K%,J%),"(")-2) 2800ELSE 2810GCOL 0,7 2820MOVE fax%+202,1020-(fay%+52) 2830PRINTbuf%(K%,J%) 2840GCOL 0,0 2850MOVE fax%+204,1024-(fay%+52) 2860PRINTbuf%(K%,J%) 2870ENDIF 2880ENDIF 2890NEXT 2900NEXT 2910VDU 4 2920OFF 2930ENDPROC 2940DATA SUBJECT,Graphoid,Processor,Chain Up,Hook It!,Turbo Raft,Tickler 2950DATA Patterns and Seq,Symbols,Formulae and Equ,Co-ordinates,Graphs 2960DATA Operations,Mappings and Fns,Inequalities,Interpretation,Words 2970DEFPROCcent(t$,tay%) 2980PRINTTAB(41-LEN(t$)DIV2,tay%)t$; 2990ENDPROC 3000DEFPROCmess(t$,col%) 3010GCOL 0,col% 3020VDU 5 3030WAIT 3040RECTANGLEFILL 0,0,1278,64 3050GCOL 0,0 3060RECTANGLE 0,0,1278,64 3070MOVE 640-LEN(t$)*8,44 3080PRINTt$ 3090VDU 4 3100OFF 3110ENDPROC 3120DEFPROCerror 3130LOCAL ERROR 3140VDU 3,26,7 3150*CLOSE 3160SYS"Hourglass_Smash" 3170MOUSE OFF 3180SYS"ABC_Colour",15 3190IFERR>&107FF AND ERR<&10900 THEN 3200PROCmess("FILING SYSTEM REPORTS ERROR : "+REPORT$,11) 3210PROCdelay(150) 3220VDU 7 3230PROCmess("PLEASE CHECK DISC IN DRIVE AND NOT WRITE PROTECTED THEN PRESS RETURN",11) 3240REPEAT 3250UNTIL INKEY-74 3260ENDIF 3270ON ERROR LOCAL GOTO 3140 3280h%=OPENOUT(f$+"Misc.Signal") 3290PRINT#h%,"" 3300CLOSE#h% 3310*DIR <Disc2$Dir>.SixGames 3320RESTORE ERROR 3330SYS"ABC_Colour",15 3340RUN 3350ENDPROC 3360DEFPROCprintcertificate 3370SYS"ABC_Colour",15 3380MOUSE OFF 3390ach%=TRUE 3400FORJ%=1TO10 3410FORK%=1TO6 3420IFatt%(K%,J%)>2:ach%=FALSE 3430NEXT 3440NEXT 3450IFach% THEN 3460PROCmess("Nothing achieved at present - return to menu",11) 3470REPEAT 3480MOUSE mox%,moy%,but% 3490UNTIL but%=0 3500REPEAT 3510UNTIL FNleave 3520ELSE 3530PROCbusy 3540REPEAT 3550UNTIL FNleave 3560ENDIF 3570ENDPROC 3580DEFPROCbusy 3590PROCmess("Screen/Printer/Disc (S/P/D)",11) 3600*FX21 0 3610REPEAT 3620k%=INKEY(0) 3630IFk%>=ASC("a"):k%-=32 3640UNTIL k%=ASC("S") OR k%=ASC("P") OR k%=ASC("D") OR INKEY-113 3650IFINKEY-113:PROCflush:ENDPROC 3660VDU 7 3670IFk%<>ASC("P") THEN 3680PROCmess("Text/Graphics (T/G)",11) 3690REPEAT 3700t%=INKEY(0) 3710IFt%>=ASC("a"):t%-=32 3720UNTIL t%=ASC("T") OR t%=ASC("G") OR INKEY-113 3730ELSE 3740t%=ASC("T") 3750ENDIF 3760IFINKEY-113:PROCflush:ENDPROC 3770IFt%=ASC("T") PROCachieve_text ELSEPROCachieve_graphics 3780IFk%=ASC("D"):PROCdiscdump 3790IFk%=ASC("P"):PROCprinter_dump 3800ENDPROC 3810DEFPROCachieve_graphics 3820SYS"ABC_Blank",3 3830SYS"ABC_Colour",3 3840GCOL 0,12 3850RECTANGLEFILL 184,64,974,932 3860GCOL 0,7 3870RECTANGLE 184,64,976,932 3880COLOUR 0 3890COLOUR 140 3900SYS"ABC_Sprite",b%,"wax",444,70 3910SYS"ABC_Sprite",b%,"small",120,64 3920SYS"ABC_Sprite",b%,"small",420,214 3930PROCwords(TRUE) 3940SYS"ABC_Palette" 3950ENDPROC 3960DEFPROCachieve_text 3970SYS"ABC_Blank",12 3980SYS"ABC_Colour",12 3990COLOUR 7 4000COLOUR 140 4010PROCcent(STRING$(67,"*"),0) 4020FORJ%=1TO29 4030PRINTTAB(8,J%)"*"TAB(74,J%)"*" 4040NEXT 4050PROCcent(STRING$(67,"*"),30) 4060PROCwords(FALSE) 4070SYS"ABC_Palette" 4080ENDPROC 4090DEFPROCwords(fan%) 4100COLOUR 7 4110IFfan% THEN 4120SYS"ABC_Sprite",b%,"certify",118,248 4130COLOUR 137 4140a$=FNstrip(attend$) 4150PRINTTAB(42-LEN(attend$)DIV2,4)a$ 4160ELSE 4170PROCcent("THIS IS TO CERTIFY THAT ",2) 4180COLOUR 140 4190a$=FNstrip(attend$) 4200PROCcent(a$,4) 4210ENDIF 4220COLOUR 140 4230PRINTTAB(18,7)"has played the" 4240PRINTTAB(18,8)"Ten out of Ten" 4250PRINTTAB(18,9)"Maths (Algebra)" 4260PRINTTAB(18,10)"games and has" 4270IFnig% THEN 4280PRINTTAB(18,11)"achieved 100% at the following AT3 Levels:" 4290ELSE 4300IFver% a$="grades" ELSEa$="levels" 4310PRINTTAB(18,11)"achieved 100% at the following "+a$ 4320ENDIF 4330PROCcent(FNdate,25) 4340PROCcent("Certificate from",27) 4350PROCcent("10/10 Educational Systems",28) 4360tay%=0 4370FORJ%=1TO10 4380K%=1 4390fnd%=FALSE 4400WHILE K%<7 AND NOTfnd% 4410IFatt%(K%,J%)>2 AND LEFT$(info$(K%,J%),INSTR(info$(K%,J%),")")-2)<>"":tay%+=1:fnd%=TRUE 4420K%+=1 4430ENDWHILE 4440NEXT 4450RESTORE 2950 4460tay%=18-tay%DIV2 4470FORJ%=1TO10 4480READ b$ 4490six$()="" 4500FORK%=1TO6 4510IFnig% y$=LEFT$(info$(K%,J%),INSTR(info$(K%,J%),"(")-2) ELSEy$=STR$(buf%(K%,J%)) 4520IFatt%(K%,J%)>2 AND y$>"0":six$(K%)=y$ 4530NEXT 4540REPEAT 4550srt%=TRUE 4560FORK%=1TO5 4570IFsix$(K%)<six$(K%+1):SWAP six$(K%),six$(K%+1):srt%=FALSE 4580NEXT 4590UNTIL srt% 4600a$="" 4610FORK%=1TO6 4620IFsix$(K%)<>"":a$+=six$(K%)+"," 4630NEXT 4640IFRIGHT$(a$)=",":a$=LEFT$(a$) 4650IFa$<>"" THEN 4660PRINTTAB(18,tay%)b$TAB(36,tay%)"..."TAB(40,tay%)a$ 4670tay%+=1 4680ENDIF 4690NEXT 4700ENDPROC 4710DEFPROCdiscdump 4720VDU 7 4730MOUSE OFF 4740LOCAL ERROR 4750SYS"ABC_Transfer",0,16,640,17 4760PROCinput(32,"adfs::0.$."+attend$,FALSE,TRUE) 4770SYS"ABC_Restore" 4780IFesc% OR i$="":ENDPROC 4790SYS"Hourglass_On" 4800OSCLI"SCREENSAVE "+i$ 4810SYS"Hourglass_Smash" 4820ON ERROR LOCAL:VDU 7:PROCmess("PLEASE INSERT DISC INTO DRIVE AND PRESS RETURN",8):REPEAT:UNTIL INKEY-74 4830*DIR <Disc2$Dir>.SixGames 4840SYS"ABC_Restore" 4850MOUSE TO 640,512 4860PROCmouse1 4870ENDPROC 4880DEFPROCprinter_dump 4890VDU 2 4900FORJ%=0TO30 4910FORK%=0TO79 4920VDU 31,K%,J% 4930SYS"OS_Byte",135 TO ,res% 4940VDU res% 4950NEXT 4960IFJ%<30:VDU 13,10 4970NEXT 4980VDU 3 4990ENDPROC 5000DEFPROCload 5010PROClegal 5020IFbad% OR esc%:ENDPROC 5030PROCgridcheck 5040IFa$="" OR k%:ENDPROC 5050VDU 7 5060status%()=0 5070h%=OPENIN("<Disc2$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)+"."+a$) 5080SYS"Hourglass_On" 5090FORJ%=1TO10 5100FORK%=1TO6 5110INPUT#h%,byt% 5120att%(K%,J%)=byt% 5130IFbyt%>2 AND byt%<12:status%(1)+=1 5140IFbyt%>11:status%(2)+=1 5150NEXT 5160NEXT 5170CLOSE#h% 5180attend$=a$ 5190h%=OPENOUT(f$+"Name") 5200PRINT#h%,attend$ 5210CLOSE#h% 5220SYS"Hourglass_Smash" 5230ENDPROC 5240DEFPROCsmall(wch%,col%) 5250GCOL 0,col% 5260RECTANGLEFILL (wch%>>4)*256+354,964-((wch%AND&F)<<6),26,32 5270ENDPROC 5280DEFPROCcreate 5290PROClegal 5300IFbad% OR esc%:ENDPROC 5310MOUSE OFF 5320SYS"ABC_Colour",15 5330PROCmess("New player name",11) 5340PROCdelay(50) 5350PROCinput(8,"",TRUE,FALSE) 5360WHILE INSTR(i$," ")>0 5370MID$(i$,INSTR(i$," "))="_" 5380ENDWHILE 5390IFesc%:ENDPROC 5400OSCLI"DIR <Disc2$Dir>.SixGames.Achieve.Achieve"+STR$(cla%) 5410SYS"OS_GBPB",8,,cat%,&40,0 TO ,,,d% 5420*DIR <Disc2$Dir>.SixGames 5430a%=0 5440c%=0 5450d%=64-d% 5460st%=cat% 5470dup%=FALSE 5480WHILE c%<d% AND NOTdup% 5490t%=st%?((?st%)+1) 5500st%?((?st%)+1)=&D 5510a$=$(st%+1) 5520st%+=1+(?st%) 5530?st%=t% 5540IFa$=i$:dup%=TRUE 5550a%+=1 5560c%+=1 5570ENDWHILE 5580k%=TRUE 5590IFdup% THEN 5600GCOL 0,10 5610VDU 5 5620RECTANGLEFILL 0,0,1278,64 5630GCOL 0,0 5640RECTANGLE 0,0,1278,64 5650t$="Player "+i$+" already exists - Erase?" 5660MOVE 860-LEN(t$)*g%,44 5670PRINTt$ 5680VDU 4 5690OFF 5700k%=FNyesno(44) 5710ENDIF 5720IFNOTk%:PROCmouse1:ENDPROC 5730att%()=0 5740status%()=0 5750h%=OPENOUT("<Disc2$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)+"."+i$) 5760FORJ%=1TO10 5770FORK%=1TO6 5780PRINT#h%,att%(K%,J%) 5790NEXT 5800NEXT 5810CLOSE#h% 5820attend$=i$ 5830h%=OPENOUT(f$+"Name") 5840PRINT#h%,attend$ 5850CLOSE#h% 5860SYS"ABC_Colour",15 5870PROCmouse1 5880ENDPROC 5890DEFPROCdelete 5900PROClegal 5910IFbad% OR esc%:ENDPROC 5920PROCgridcheck 5930IFa$="" OR k%:ENDPROC 5940SYS"ABC_Colour",15 5950GCOL 0,10 5960VDU 5 5970RECTANGLEFILL 0,0,1278,64 5980GCOL 0,0 5990RECTANGLE 0,0,1278,64 6000t$="Player "+a$+" - Erase?" 6010MOVE 860-LEN(t$)*g%,44 6020PRINTt$ 6030VDU 4 6040OFF 6050k%=FNyesno(44) 6060IFNOTk%:PROCmouse1:ENDPROC 6070OSCLI"DELETE <Disc2$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)+"."+a$ 6080IFa$=attend$:PROCsetempty 6090ENDPROC 6100DEFPROCdelay(del%) 6110REPEAT 6120WAIT 6130del%-=1 6140UNTIL del%<0 6150ENDPROC 6160DEFPROCloadcurrent 6170h%=OPENIN(f$+"Name") 6180INPUT#h%,attend$ 6190CLOSE#h% 6200IFattend$="" THEN 6210att%()=0 6220ELSE 6230h%=OPENIN("<Disc2$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)+"."+attend$) 6240FORJ%=1TO10 6250FORK%=1TO6 6260INPUT#h%,att%(K%,J%) 6270NEXT 6280NEXT 6290CLOSE#h% 6300ENDIF 6310ENDPROC 6320DEFFNinitialsprites(s$,l%) 6330l%+=FNspritefilelength(s$) 6340DIM b% l% 6350!b%=l% 6360SYS"OS_SpriteOp",265,b% 6370PROCloadsprites(s$) 6380=b% 6390DEFFNspritefilelength(s$) 6400flo%=0 6410s$+="|" 6420WHILE s$>"" 6430h%=OPENIN(f$+FNstringextract(s$)) 6440flo%+=EXT#h% 6450CLOSE#h% 6460ENDWHILE 6470=flo%+64 6480DEFFNstringextract(RETURN s$) 6490w$=LEFT$(s$,(INSTR(s$,"|"))-1) 6500s$=MID$(s$,(INSTR(s$,"|"))+1) 6510=w$ 6520DEFPROCloadsprites(s$) 6530s$+="|" 6540typ%=266 6550WHILE s$>"" 6560SYS"OS_SpriteOp",typ%,b%,f$+FNstringextract(s$) 6570typ%-=(typ%=266) 6580ENDWHILE 6590ENDPROC 6600DEFPROCloaddetails 6610status%()=0 6620h%=OPENIN(f$+"Misc.Grab3") 6630INPUT#h%,cod% 6640CLOSE#h% 6650h%=OPENIN(f$+"Configure") 6660INPUT#h%,rat%,nig%,sds%,ver%,grd%,cla%,typ$,hed%,fut%,pap%,pix% 6670CLOSE#h% 6680IFsds% OSCLI"SPEAKER ON" ELSEOSCLI"SPEAKER OFF" 6690h%=OPENIN(f$+"Name") 6700INPUT#h%,attend$ 6710CLOSE#h% 6720IFattend$="" THEN 6730att%()=0 6740ELSE 6750h%=OPENIN("<Disc2$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)+"."+attend$) 6760FORJ%=1TO10 6770FORK%=1TO6 6780INPUT#h%,byt% 6790att%(K%,J%)=byt% 6800IFbyt%>2 AND byt%<12:status%(1)+=1 6810IFbyt%>11:status%(2)+=1 6820NEXT 6830NEXT 6840CLOSE#h% 6850ENDIF 6860ENDPROC 6870DEFFNyesno(tay%) 6880REPEAT 6890MOUSE mox%,moy%,but% 6900UNTIL but%=0 6910MOUSE RECTANGLE 959,12,240,46 6920PROCmouse1 6930MOUSE TO 1160,32 6940VDU 5 6950GCOL 0,0 6960MOVE 896,tay% 6970PRINT"Yes No" 6980REPEAT 6990MOUSE mox%,moy%,but% 7000IFmox%<1072 THEN 7010GCOL 0,11 7020RECTANGLEFILL 960,tay%-32,80,40 7030GCOL 0,7 7040RECTANGLEFILL 1120,tay%-32,80,40 7050ELSE 7060GCOL 0,7 7070RECTANGLEFILL 960,tay%-32,80,40 7080GCOL 0,11 7090RECTANGLEFILL 1120,tay%-32,80,40 7100ENDIF 7110UNTIL but%>0 AND POINT(mox%,moy%)=11 7120VDU 4 7130OFF 7140IFmox%<1072 =TRUE ELSE=FALSE 7150DEFPROCdisplaydirectory 7160SYS"ABC_Blank",15 7170SYS"ABC_Colour",15 7180OSCLI"DIR <Disc2$Dir>.SixGames.Achieve.Achieve"+STR$(cla%) 7190SYS"OS_GBPB",8,,cat%,&40,0 TO ,,,d% 7200*DIR <Disc2$Dir>.SixGames 7210VDU 5 7220FORa%=0TO63 7230x%=(a%>>4)*256+128 7240y%=(a%AND&F)<<6 7250GCOL 0,8 7260RECTANGLEFILL x%,y%,224,40 7270GCOL 0,11 7280RECTANGLEFILL x%+224,y%,30,40 7290GCOL 0,0 7300RECTANGLE x%+224,y%,30,40 7310NEXT 7320a%=0 7330c%=0 7340d%=64-d% 7350st%=cat% 7360filename$()="" 7370GCOL 0,0 7380WHILE c%<d% 7390t%=st%?((?st%)+1) 7400st%?((?st%)+1)=&D 7410a$=$(st%+1) 7420st%+=1+(?st%) 7430?st%=t% 7440MOVE (a%>>4)*256+144,992-((a%AND&F)<<6) 7450filename$(a%)=a$ 7460a$=FNstrip(a$) 7470PRINT a$ 7480a%+=1 7490c%+=1 7500ENDWHILE 7510VDU 4 7520OFF 7530SYS"ABC_Palette" 7540ENDPROC 7550DEFPROCgridcheck 7560PROCdisplaydirectory 7570lst%=0 7580REPEAT 7590MOUSE mox%,moy%,but% 7600sqx%=(mox%-128)>>8 7610IFsqx%>3:sqx%=3 7620IFsqx%<0:sqx%=0 7630sqy%=(1024-moy%)>>6 7640IFsqy%>15:sqy%=15 7650inx%=sqy%+sqx%*g% 7660IFinx%>63:inx%=63 7670IFinx%<>lst% THEN 7680WAIT 7690PROCsmall(lst%,11) 7700PROCsmall(inx%,15) 7710lst%=inx% 7720ENDIF 7730IFINKEY-113 k%=TRUE ELSEk%=FALSE 7740UNTIL but%>0 OR k% 7750a$=filename$(lst%) 7760ENDPROC 7770DEFPROCcurrent 7780VDU 5 7790GCOL 0,8 7800RECTANGLEFILL 384,16,480,64 7810GCOL 0,0 7820RECTANGLE 384,16,480,64 7830GCOL 0,14 7840MOVE 400,60 7850PRINT"Current player : "; 7860GCOL 0,0 7870a$=FNstrip(attend$) 7880IFa$="" PRINT"Empty" ELSEPRINTa$ 7890VDU 4 7900OFF 7910ENDPROC 7920DEFPROCaccess 7930IFNOTINKEY-2 OR NOTINKEY-31:ENDPROC 7940MOUSE OFF 7950VDU 7 7960SYS"ABC_Colour",15 7970PROCmess("ENTER OLD ACCESS CODE NUMBER",8) 7980PROCinvis 7990IFesc%:PROCback:ENDPROC 8000J%=FNvalidatenumber(i$) 8010IFNOTJ%:PROCwrong("NUMBERS ONLY PLEASE"):ENDPROC 8020IFcod%<>VAL(i$):PROCwrong("INVALID ACCESS CODE"):ENDPROC 8030PROCmess("ENTER NEW ACCESS CODE NUMBER",8) 8040PROCinvis 8050IFesc%:PROCback:ENDPROC 8060J%=FNvalidatenumber(i$) 8070IFNOTJ%:PROCwrong("NUMBERS ONLY PLEASE"):ENDPROC 8080first%=VAL(i$) 8090PROCmess("ENTER AGAIN TO CONFIRM",8) 8100PROCinvis 8110IFesc%:PROCback:ENDPROC 8120J%=FNvalidatenumber(i$) 8130IFNOTJ%:PROCwrong("NUMBERS ONLY PLEASE"):ENDPROC 8140second%=VAL(i$) 8150IFfirst%<>second%:PROCwrong("DIFFERENT NUMBERS - TRY AGAIN"):ENDPROC 8160cod%=VALi$ 8170PROCmess("NEW ACCESS CODE NUMBER ACCEPTED",8) 8180h%=OPENOUT(f$+"Misc.Grab3") 8190PRINT#h%,cod% 8200CLOSE#h% 8210PROCback 8220ENDPROC 8230DEFPROCback 8240IFsun%<11 sun%=11 ELSEsun%=0 8250PROCmenu 8260PROCmouse1 8270ENDPROC 8280DEFPROCwrong(a$) 8290VDU 7 8300PROCmess(a$,11) 8310PROCdelay(150) 8320PROCback 8330ENDPROC 8340DEFFNvalidatenumber(a$) 8350IFa$="":=FALSE 8360K%=TRUE 8370FORJ%=1TO LEN(a$) 8380IFMID$(a$,J%,1)<"0" OR MID$(a$,J%,1)>"9":K%=FALSE 8390NEXT 8400=K% 8410DEFPROCinvis 8420*FX21 0 8430esc%=FALSE 8440cnt%=0 8450i$="" 8460REPEAT 8470REPEAT 8480REPEAT 8490k%=INKEY(1) 8500IFINKEY-113:esc%=TRUE 8510UNTIL k%>0 AND k%<128 OR esc% 8520IFk%=127 AND cnt%>0 THEN 8530cnt%-=1 8540i$=LEFT$(i$,cnt%) 8550PROCmess(">"+STRING$(LEN(i$),"*")+"<",10) 8560ENDIF 8570UNTIL k%<>127 OR esc% 8580IFk%<>13 AND cnt%<>4 THEN 8590i$+=CHR$k% 8600PROCmess(">"+STRING$(LEN(i$),"*")+"<",10) 8610cnt%+=1 8620ENDIF 8630UNTIL k%=13 OR cnt%=4 OR esc% 8640ENDPROC 8650DEFPROClegal 8660IFcod%=0:bad%=FALSE:esc%=FALSE:ENDPROC 8670MOUSE OFF 8680SYS"ABC_Colour",15 8690PROCmess("ENTER ACCESS CODE NUMBER",11) 8700PROCfrput 8710IFcod%=VAL(i$) THEN 8720PROCmess("ACCESS CODE NUMBER ACCEPTED",8) 8730PROCdelay(100) 8740bad%=FALSE 8750ELSE 8760bad%=TRUE 8770ENDIF 8780PROCmouse1 8790ENDPROC 8800DEFPROCfrput 8810*FX21 0 8820esc%=FALSE 8830cnt%=0 8840tot%=4 8850i$="" 8860REPEAT 8870REPEAT 8880REPEAT 8890k%=INKEY(1) 8900IFINKEY-113:esc%=TRUE 8910UNTIL k%=13 OR k%>31 AND k%<128 OR esc% 8920IFk%=127 AND cnt%>0 THEN 8930cnt%-=1 8940i$=LEFT$(i$,cnt%) 8950PROCmess(">"+STRING$(LEN(i$),"*")+"<",8) 8960ENDIF 8970UNTIL k%<>127 OR esc% 8980IFk%<>13 AND cnt%<>tot% THEN 8990IFcnt%=0 THEN 9000IFCHR$(k%)>="a" AND CHR$(k%)<="z" i$=CHR$(k%-32) ELSEi$=CHR$(k%) 9010ELSE 9020IFCHR$(k%)>="A" AND CHR$(k%)<="Z" i$+=CHR$(k%+32) ELSEi$+=CHR$(k%) 9030ENDIF 9040PROCmess(">"+STRING$(LEN(i$),"*")+"<",8) 9050cnt%+=1 9060ENDIF 9070UNTIL k%=13 OR esc% OR cnt%=tot% 9080ENDPROC 9090DEFPROCpoint(a$,mos%) 9100LOCAL wir%,par%,dat% 9110DIM wir% 1088,par% 20,dat% 256 9120h%=OPENIN(f$+"Misc."+a$) 9130FORJ%=0TO32 9140FORK%=0TO32 9150wir%?(K%*32+J%)=BGET#h% 9160NEXT 9170NEXT 9180CLOSE#h% 9190!par%=&20080200 9200par%?1=mos% 9210par%!4=0 9220par%!6=dat% 9230mmo%=dat% 9240FORJ%=32TO1STEPTRUE 9250FORK%=0TO7 9260FORL%=3TO0STEPTRUE 9270val%=wir%?(J%*32+K%*4+L%) 9280IFval%=&FF:par%?4=K%*4+L%:par%?5=31-J%:val%=0 9290?mmo%=?mmo%<<2 9300?mmo%+=val% 9310NEXT 9320mmo%+=1 9330NEXT 9340NEXT 9350SYS"OS_Word",21,par% 9360ENDPROC 9370DEFPROCdesktop 9380MOUSE OFF 9390SYS"ABC_Blank",11 9400PROCexitmessage 9410PROCmess("Return to Desktop?",8) 9420SYS"ABC_Palette" 9430PROCmouse1 9440k%=FNyesno(44) 9450SYS"ABC_Colour",15 9460sun%=10 9470IFNOTk%:ENDPROC 9480*FX20 9490*CHANNELVOICE 1 WaveSynth-Beep 9500*CHANNELVOICE 2 WaveSynth-Beep 9510*CHANNELVOICE 3 WaveSynth-Beep 9520*CHANNELVOICE 4 WaveSynth-Beep 9530*WIPE ram:* ~C~V 9540*RMKILL ABC 9550*RMKILL Cymbal 9560*RMKILL Danger 9570*RMKILL Death 9580*RMKILL End 9590*RMKILL Hook 9600*RMKILL Laugh 9610*RMKILL Skid 9620*RMKILL Steam 9630*RMKILL Synsmajs 9640*RMKILL Timer 9650*RMKILL 10/10SoundGenerator 9660*POINTER 1 9670*SPEAKER ON 9680*FX200 0 9690VDU 20 9700*DESKTOP 9710DEFPROCwings(l$,x%,y%) 9720SYS"ABC_Sprite",b%,"wings",x%,y% 9730VDU 5 9740GCOL 0,11 9750MOVE (x%*2+298)-LEN(l$)*8,y%*4-40 9760PRINTl$ 9770VDU 4 9780OFF 9790ENDPROC 9800DEFPROCselect 9810IFNOTFNarea(80,18,336,840) AND NOTFNarea(912,18,1168,840) THEN 9820pre%=-1 9830sly%=-1 9840PROCrectangles 9850ELSE 9860sly%=(moy%-18)DIV280 9870IFFNarea(912,18,1168,840):sly%+=3 9880IFsly%<>pre% THEN 9890PROCrectangles 9900pre%=sly% 9910GCOL 0,11 9920WAIT 9930IFsly%<3 RECTANGLE 80,sly%*280+16,256,256 ELSERECTANGLE 912,(sly%-3)*280+16,256,256 9940ENDIF 9950ENDIF 9960IFbut%=0:ENDPROC 9970CASE sly% OF 9980WHEN 0:PROCrun("ChainUp") 9990WHEN 1:PROCrun("Processor") 10000WHEN 2:PROCrun("Graphoid") 10010WHEN 3:PROCrun("RibTickler") 10020WHEN 4:PROCrun("TurboRaft") 10030WHEN 5:PROCrun("HookIt") 10040ENDCASE 10050REPEAT 10060MOUSE mox%,moy%,but% 10070UNTIL but%=0 10080IFsly%>-1:PROCmenu 10090PROCmouse1 10100ENDPROC 10110DEFPROCcontents 10120VDU 5 10130FORJ%=1TO3 10140SYS"ABC_UnpackSprite",J%-1,z%,48,274-J%*70 10150SYS"ABC_UnpackSprite",J%+2,z%,464,274-J%*70 10160NEXT 10170RESTORE 10340 10180FORJ%=1TO3 10190READ a$,b$ 10200GCOL 0,7 10210MOVE 96,J%*280-232 10220PRINTa$ 10230MOVE 928,J%*280-232 10240PRINTb$ 10250GCOL 0,0 10260MOVE 102,J%*280-228 10270PRINTa$ 10280MOVE 934,J%*280-228 10290PRINTb$ 10300NEXT 10310VDU 4 10320OFF 10330ENDPROC 10340DATA Chain Up,Rib Tickler,Processor,Turbo Raft,Graphoid,Hook It! 10350DEFPROCrectangles 10360GCOL 0,0 10370FORJ%=1TO3 10380RECTANGLE 80,J%*280-264,256,256 10390RECTANGLE 912,J%*280-264,256,256 10400NEXT 10410ENDPROC 10420DEFPROCachievediscdump 10430IFNOTINKEY-2:ENDPROC 10440IFNOTINKEY-82:ENDPROC 10450VDU 7 10460MOUSE OFF 10470LOCAL ERROR 10480SYS"ABC_Transfer",0,16,640,17 10490PROCinput(32,"adfs::0.$.AchieveSpr",FALSE,TRUE) 10500SYS"ABC_Restore" 10510IFesc% OR i$="":ENDPROC 10520VDU 24,0;192;1278;960; 10530SYS"Hourglass_On" 10540OSCLI"SCREENSAVE "+i$ 10550VDU 26 10560SYS"Hourglass_Smash" 10570ON ERROR LOCAL:VDU 7:PROCmess("PLEASE INSERT DISC INTO DRIVE AND PRESS RETURN",8):REPEAT:UNTIL INKEY-74 10580*DIR <Disc2$Dir>.SixGames 10590SYS"ABC_Restore" 10600MOUSE TO 640,512 10610PROCmouse1 10620ENDPROC 10630DEFPROCachieveprintdump 10640IFNOTINKEY-2:ENDPROC 10650IFNOTINKEY-56:ENDPROC 10660VDU7 10670SYS"Hourglass_On" 10680RESTORE 1430 10690new%()=att%() 10700PROCprintpage(attend$) 10710PROCflush 10720SYS"Hourglass_Smash" 10730PROCmouse1 10740ENDPROC 10750DEFPROCallachieveprintdump 10760IFNOTINKEY-2:ENDPROC 10770IFNOTINKEY-102:ENDPROC 10780VDU 7 10790SYS"Hourglass_On" 10800PROCdisplaydirectory 10810PROCflush 10820SYS"Hourglass_Smash" 10830PROCmouse1 10840files%()=FALSE 10850lst%=0 10860REPEAT 10870MOUSE mox%,moy%,but% 10880sqx%=(mox%-128)>>8 10890IFsqx%>3:sqx%=3 10900IFsqx%<0:sqx%=0 10910sqy%=(1024-moy%)>>6 10920IFsqy%>15:sqy%=15 10930inx%=sqy%+sqx%*g% 10940IFinx%>63:inx%=63 10950IFinx%<>lst% THEN 10960IFfiles%(lst%) PROCsmall(lst%,14) ELSEPROCsmall(lst%,11) 10970IFfiles%(inx%) PROCsmall(inx%,14) ELSEPROCsmall(inx%,15) 10980lst%=inx% 10990ENDIF 11000IFbut%=1 AND filename$(lst%)>"" THEN 11010files%(lst%)=NOTfiles%(lst%) 11020IFfiles%(lst%) PROCsmall(lst%,14) ELSEPROCsmall(lst%,11) 11030REPEAT 11040MOUSE mox%,moy%,but% 11050UNTIL but%=0 11060ENDIF 11070IFINKEY-113 k%=TRUE ELSEk%=FALSE 11080UNTIL but%=4 OR k% 11090a$=filename$(lst%) 11100IFNOTk% THEN 11110SYS"Hourglass_On" 11120SYS"ABC_Colour",15 11130X%=0 11140esc%=FALSE 11150WHILE X%<64 AND NOTesc% 11160IFfiles%(X%) THEN 11170h%=OPENIN("<Disc2$Dir>.SixGames.Achieve.Achieve"+STR$(cla%)+"."+filename$(X%)) 11180FORJ%=1TO10 11190FORK%=1TO6 11200INPUT#h%,new%(K%,J%) 11210NEXT 11220NEXT 11230CLOSE#h% 11240PROCprintpage(filename$(X%)) 11250ENDIF 11260X%+=1 11270ENDWHILE 11280SYS"Hourglass_Smash" 11290ENDIF 11300PROCachievecard 11310REPEAT 11320MOUSE mox%,moy%,but% 11330UNTIL but%=0 11340ENDPROC 11350DEFPROCprintpage(name$) 11360*FX200 0 11370LOCAL ERROR 11380ON ERROR LOCAL:VDU 6,3,7:OSCLI"FX200 1":esc%=TRUE:ENDPROC 11390VDU 2,21 11400PROCheader 11410a$=FNstrip(name$) 11420IFa$="":a$="Empty" 11430PROCprinter("The achievements of "+a$) 11440PROCprinter("playing the 10 out of 10 Mathematics (Algebra) games") 11450PROCprinter("") 11460PROCprinter(FNdate) 11470PROCprinter("") 11480RESTORE 12340 11490PROCprinter(typ$+" Covering"+STRING$(53," ")+"Achievement") 11500PROCprinter("") 11510PROCprinter("GRAPHOID") 11520PROCgamedetails(1) 11530PROCprinter("PROCESSOR") 11540PROCgamedetails(2) 11550PROCprinter("CHAIN UP") 11560PROCgamedetails(3) 11570PROCprinter("HOOK IT!") 11580PROCgamedetails(4) 11590PROCprinter("TURBO RAFT") 11600PROCgamedetails(5) 11610PROCprinter("RIB TICKLER") 11620PROCgamedetails(6) 11630PROCprinter("KEY TO ACHIEVEMENT COLOURS:") 11640PROCprinter("") 11650PROCprinter("BLUE = 100% (10 times GREEN)") 11660PROCprinter("GREEN = 100% (10 out of 10!)") 11670PROCprinter("YELLOW = 50% or over") 11680PROCprinter("RED = Under 50%") 11690PROCprinter("- = means the grade has not been tried") 11700WHILE pnt%<pap% 11710PRINT 11720pnt%+=1 11730ENDWHILE 11740PROCfooter 11750VDU 6,3 11760*FX200 1 11770ENDPROC 11780DEFPROCgamedetails(num%) 11790FORJ%=1TO6 11800READ K% 11810b$=info$(num%,K%) 11820IFnig% THEN 11830a$=b$ 11840IFINSTR(a$,"�")>0:MID$(a$,INSTR(a$,"�"))="1" 11850IFINSTR(a$,"�")>0:MID$(a$,INSTR(a$,"�"))="2" 11860IFINSTR(a$,"�")>0:MID$(a$,INSTR(a$,"�"))="3" 11870ELSE 11880a$=MID$(b$,INSTR(b$,")")+2) 11890ENDIF 11900a$=STR$(J%)+" "+a$ 11910a$+=STRING$(72-LEN(a$)," ") 11920CASE new%(num%,K%) OF 11930WHEN 0:a$+="-" 11940WHEN 1:a$+="RED" 11950WHEN 2:a$+="YELLOW" 11960WHEN 3,4,5,6,7,8,9,10,11:a$+="GREEN" 11970OTHERWISE:a$+="BLUE" 11980ENDCASE 11990PROCprinter(a$) 12000NEXT 12010PROCprinter("") 12020ENDPROC 12030DEFPROCheader 12040pnt%=0 12050IFhed%=0:ENDPROC 12060FORW%=1TO hed% 12070PRINT 12080NEXT 12090ENDPROC 12100DEFPROCfooter 12110IFfut%=0:ENDPROC 12120FORW%=1TO fut% 12130PRINT 12140NEXT 12150ENDPROC 12160DEFPROCprinter(j$) 12170PRINTj$ 12180pnt%+=1 12190IFpnt%=pap% THEN 12200PROCfooter 12210PROCheader 12220ENDIF 12230ENDPROC 12240DEFFNdate 12250RESTORE 12320 12260fnd%=FALSE 12270WHILE NOTfnd% 12280READ ab$,n$ 12290IFINSTR(TIME$,ab$):fnd%=TRUE 12300ENDWHILE 12310="Date: "+MID$(TIME$,5,3)+n$+MID$(TIME$,11,5) 12320DATA Jan,January,Feb,February,Mar,March,Apr,April,May,May,Jun,June,Jul 12330DATA July,Aug,August,Sep,September,Oct,October,Nov,November,Dec,December 12340DATA 10,4,5,7,8,9 12350DATA 1,10,6,3,7,8 12360DATA 10,6,4,3,9,5 12370DATA 2,1,10,6,3,9 12380DATA 1,6,10,9,3,2 12390DATA 1,10,9,2,8,7 12400DEFPROCflush 12410*FX21 9 12420ENDPROC 12430DEFFNstrip(str$) 12440WHILE INSTR(str$,"_")>0 12450MID$(str$,INSTR(str$,"_"))=" " 12460ENDWHILE 12470=str$ 12480DEFPROCinput(tot%,x$,cap%,fil%) 12490*FX21 0 12500esc%=FALSE 12510cnt%=LEN(x$) 12520i$=x$ 12530IFfil% y$="filename: >" ELSEy$=">" 12540PROCmess(y$+i$+"<",8) 12550REPEAT 12560REPEAT 12570REPEAT 12580k%=INKEY(1) 12590IFINKEY-113:esc%=TRUE 12600UNTIL k%=13 OR k%>31 AND k%<128 OR esc% 12610IFk%=127 AND cnt%>0 THEN 12620cnt%-=1 12630i$=LEFT$(i$,cnt%) 12640PROCmess(y$+i$+"<",8) 12650ENDIF 12660UNTIL k%<>127 OR esc% 12670IFk%<>13 AND cnt%<>tot% THEN 12680IFcap% THEN 12690IFcnt%=0 THEN 12700IFCHR$(k%)>="a" AND CHR$(k%)<="z" i$=CHR$(k%-32) ELSEi$=CHR$(k%) 12710ELSE 12720IFCHR$(k%)>="A" AND CHR$(k%)<="Z" i$+=CHR$(k%+32) ELSEi$+=CHR$(k%) 12730ENDIF 12740ELSE 12750i$+=CHR$(k%) 12760ENDIF 12770PROCmess(y$+i$+"<",8) 12780cnt%+=1 12790ENDIF 12800IFk%<>13 AND cnt%=tot%:VDU7 12810UNTIL k%=13 OR esc% 12820ENDPROC 12830DEFPROCexitmessage 12840SYS"ABC_Colour",11 12850RESTORE 12950 12860READ a$ 12870Y%=240 12880WHILE a$<>"end" 12890SYS"ABC_PryntString",a$,34,Y%,1,7 12900SYS"ABC_PryntString",a$,32,Y%+1,1,0 12910IFa$>"" Y%-=18 ELSEY%-=12 12920READ a$ 12930ENDWHILE 12940ENDPROC 12950DATA Also available or coming soon 12960DATA "for Acorn 32-bit, IBM PC/compatibles" 12970DATA and Commodore Amiga ... 12980DATA 12990DATA English French 13000DATA German Spanish 13010DATA Italian Science 13020DATA Maths (Number) Maths (Algebra) 13030DATA Early Essentials Junior Essentials 13040DATA 13050DATA Contact your dealer or 13060DATA ring (0742) 780370 for details 13070DATA end 13080DEFFNinitialcompressed(s$) 13090h%=OPENIN(f$+s$) 13100len%=EXT#h% 13110CLOSE#h% 13120DIM z% len% 13130OSCLI"LOAD "+f$+s$+" "+STR$~(z%) 13140=z% 13150DEFPROCconfigure 13160IFNOTINKEY-2 OR NOTINKEY-1 OR NOT INKEY-83:ENDPROC 13170MOUSE OFF 13180SYS"ABC_Blank",3 13190SYS"ABC_Colour",3 13200PROCvaliddirectories 13210SYS"ABC_Sprite",b%,"bar",180,242 13220SYS"ABC_Sprite",b%,"exit",454,18 13230COLOUR 11 13240COLOUR 130 13250PRINTTAB(25,2)"10 out of 10 CUSTOMISATION" 13260COLOUR 7 13270old%=cla% 13280RESTORE 15200 13290READ a$,K% 13300J%=0 13310WHILE a$<>"end" 13320SYS"ABC_Sprite",b%,"bar",180,210-J%*16 13330PRINTTAB(25,J%*2+6)a$ 13340IFK%=-1 THEN 13350SYS"ABC_Sprite",b%,"arrow_up",482,210-J%*16 13360SYS"ABC_Sprite",b%,"arrow_down",510,210-J%*16 13370ENDIF 13380IFK%=-2 SYS"ABC_Sprite",b%,"default",454,210-J%*16 ELSEPROCbuttonstatus(J%,210-J%*16) 13390J%+=1 13400READ a$,K% 13410ENDWHILE 13420SYS"ABC_Palette" 13430MOUSE RECTANGLE 904,32,160,810 13440PROCmouse1 13450end%=FALSE 13460WHILE NOTend% 13470REPEAT 13480MOUSE mox%,moy%,but% 13490UNTIL but%>0 13500IFbut%=4 AND POINT(mox%,moy%)<>3:PROCaction 13510ENDWHILE 13520PROCsavenewconfigure 13530IFold%<>cla%:PROCsetempty 13540IFsun%<11 sun%=11 ELSEsun%=0 13550PROCmenu 13560ENDPROC 13570DEFPROCaction 13580noy%=(842-moy%)>>6 13590nox%=(mox%-906)DIV56 13600CASE noy% OF 13610WHEN 0 13620rat%=NOTrat% 13630PROCbuttonstatus(noy%,210-noy%*16) 13640VDU 7 13650WHEN 1 13660IFver% THEN 13670nig%=NOTnig% 13680PROCbuttonstatus(noy%,210-noy%*16) 13690VDU 7 13700ENDIF 13710WHEN 2 13720sds%=NOTsds% 13730PROCbuttonstatus(noy%,210-noy%*16) 13740IFsds% OSCLI"SPEAKER ON" ELSEOSCLI"SPEAKER OFF" 13750VDU 7 13760WHEN 3 13770IFver% THEN 13780ver%=FALSE 13790nig%=FALSE 13800PROCbuttonstatus(noy%-2,210-noy%*16+32) 13810PROCbuttonstatus(noy%,210-noy%*16) 13820PROCbuttonstatus(noy%+1,210-noy%*16-16) 13830VDU 7 13840ENDIF 13850WHEN 4 13860IFNOTver% THEN 13870ver%=TRUE 13880nig%=TRUE 13890PROCbuttonstatus(noy%-3,210-noy%*16+48) 13900PROCbuttonstatus(noy%,210-noy%*16) 13910PROCbuttonstatus(noy%-1,210-noy%*16+16) 13920VDU 7 13930ENDIF 13940WHEN 5 13950IFnox%=1 THEN 13960grd%+=1 13970IFgrd%=7:grd%=1 13980PROCbuttonstatus(noy%,210-noy%*16) 13990VDU 7 14000ENDIF 14010IFnox%=2 THEN 14020grd%-=1 14030IFgrd%=0:grd%=6 14040PROCbuttonstatus(noy%,210-noy%*16) 14050VDU 7 14060ENDIF 14070WHEN 6 14080IFnox%=1 THEN 14090cla%+=1 14100IFcla%=65:cla%=1 14110PROCbuttonstatus(noy%,210-noy%*16) 14120VDU 7 14130ENDIF 14140IFnox%=2 THEN 14150cla%-=1 14160IFcla%=0:cla%=64 14170PROCbuttonstatus(noy%,210-noy%*16) 14180VDU 7 14190ENDIF 14200WHEN 7 14210IFnox%=1 THEN 14220hed%+=1 14230IFhed%=8:hed%=0 14240PROCbuttonstatus(noy%,210-noy%*16) 14250VDU 7 14260ENDIF 14270IFnox%=2 THEN 14280hed%-=1 14290IFhed%<0:hed%=7 14300PROCbuttonstatus(noy%,210-noy%*16) 14310VDU 7 14320ENDIF 14330WHEN 8 14340IFnox%=1 THEN 14350fut%+=1 14360IFfut%=8:fut%=0 14370PROCbuttonstatus(noy%,210-noy%*16) 14380VDU 7 14390ENDIF 14400IFnox%=2 THEN 14410fut%-=1 14420IFfut%<0:fut%=7 14430PROCbuttonstatus(noy%,210-noy%*16) 14440VDU 7 14450ENDIF 14460WHEN 9 14470IFnox%=1 THEN 14480pap%+=1 14490IFpap%=81:pap%=16 14500PROCbuttonstatus(noy%,210-noy%*16) 14510VDU 7 14520ENDIF 14530IFnox%=2 THEN 14540pap%-=1 14550IFpap%=15:pap%=80 14560PROCbuttonstatus(noy%,210-noy%*16) 14570VDU 7 14580ENDIF 14590WHEN 10 14600pix%+=1 14610IFpix%=4:pix%=0 14620PROCbuttonstatus(noy%,210-noy%*16) 14630VDU 7 14640WHEN 11 14650SYS"ABC_Blank",3 14660*SPEAKER ON 14670VDU 7 14680rat%=FALSE 14690nig%=TRUE 14700sds%=TRUE 14710ver%=TRUE 14720grd%=1 14730cla%=1 14740hed%=1 14750fut%=1 14760pap%=64 14770pix%=0 14780FORJ%=0TO10 14790PROCbuttonstatus(J%,210-J%*16) 14800NEXT 14810SYS"ABC_Palette" 14820WHEN 12:end%=TRUE 14830ENDCASE 14840REPEAT 14850MOUSE mox%,moy%,but% 14860UNTIL but%=0 14870ENDPROC 14880DEFPROCsavenewconfigure 14890MOUSE OFF 14900SYS"ABC_Blank",3 14910SYS"ABC_Colour",3 14920IFNOTdirectory%(cla%):PROCcreatedirectory 14930OSCLI"DIR <Disc2$Dir>.SixGames.Achieve.Achieve"+STR$(cla%) 14940IFver% typ$="Grade" ELSEtyp$="Level" 14950h%=OPENOUT(f$+"Configure") 14960PRINT#h%,rat%,nig%,sds%,ver%,grd%,cla%,typ$,hed%,fut%,pap%,pix% 14970CLOSE#h% 14980*DIR <Disc2$Dir>.SixGames 14990ENDPROC 15000DEFPROCbuttonstatus(num%,ysc%) 15010yyy%=ysc%-2 15020WAIT 15030IFnum%=3 OR num%=4 SYS"ABC_Sprite",b%,"radiooff",454,ysc% ELSESYS"ABC_Sprite",b%,"optoff",454,ysc% 15040CASE num% OF 15050WHEN 0:IFrat%:SYS"ABC_Sprite",b%,"opton",454,ysc% 15060WHEN 1:IFnig%:SYS"ABC_Sprite",b%,"opton",454,ysc% 15070WHEN 2:IFsds%:SYS"ABC_Sprite",b%,"opton",454,ysc% 15080WHEN 3:IFNOTver%:SYS"ABC_Sprite",b%,"radioon",454,ysc% 15090WHEN 4:IFver%:SYS"ABC_Sprite",b%,"radioon",454,ysc% 15100WHEN 5:SYS"ABC_PryntString",STR$(grd%),462,yyy%,0,9 15110WHEN 6 15120IFdirectory%(cla%) cul%=13 ELSEcul%=11 15130IFcla%>9 SYS"ABC_PryntString",STR$(cla%),458,yyy%,0,cul% ELSESYS"ABC_PryntString",STR$(cla%),462,yyy%,0,cul% 15140WHEN 7:SYS"ABC_PryntString",STR$(hed%),462,yyy%,0,11 15150WHEN 8:SYS"ABC_PryntString",STR$(fut%),462,yyy%,0,11 15160WHEN 9:SYS"ABC_PryntString",STR$(pap%),458,yyy%,0,11 15170WHEN 10:IFpix%=0 SYS"ABC_PryntString","A",462,yyy%,0,11 ELSESYS"ABC_PryntString",STR$(pix%),462,yyy%,0,6 15180ENDCASE 15190ENDPROC 15200DATA Ratings suppressed,0,National curriculum numbers,0,Sound,0,Level,0 15210DATA Grade,0,Overall skill,-1,Class number,-1,Top space,-1 15220DATA Bottom space,-1,Paper length,-1,Graphics selection,0,Default,-2 15230DATA end,0 15240DEFPROCvaliddirectories 15250OSCLI"DIR <Disc2$Dir>.SixGames.Achieve" 15260SYS"OS_GBPB",8,,cat%,&40,0 TO ,,,d% 15270*DIR <Disc2$Dir>.SixGames 15280c%=0 15290d%=64-d% 15300st%=cat% 15310directory%()=FALSE 15320WHILE c%<d% 15330t%=st%?((?st%)+1) 15340st%?((?st%)+1)=&D 15350a$=$(st%+1) 15360st%+=1+(?st%) 15370?st%=t% 15380directory%(VAL(MID$(a$,8)))=TRUE 15390c%+=1 15400ENDWHILE 15410ENDPROC 15420DEFPROCcreatedirectory 15430OSCLI"CDIR <Disc2$Dir>.SixGames.Achieve.Achieve"+STR$(cla%) 15440PROCsetempty 15450ENDPROC 15460DEFPROCsetempty 15470attend$="" 15480h%=OPENOUT(f$+"Name") 15490PRINT#h%,"" 15500CLOSE#h% 15510att%()=0 15520status%()=0 15530ENDPROC 15540DEFFNleave 15550MOUSE mox%,moy%,but% 15560IFINKEY-113 OR INKEY-99 OR INKEY-74 OR but%>0 ELSE=FALSE 15570REPEAT 15580MOUSE mox%,moy%,but% 15590UNTIL NOTINKEY-113 AND NOTINKEY-99 AND NOTINKEY-74 AND but%=0 15600*FX21 9 15610=TRUE
� >adfs::0.$.!10/10Alge.Menu �:�error ��<>12:�12:� (�initial 2 �menu <� F�mouseilluminate P�select Z�access d�configure n� � x ��initial �ș"ABC_VideoAddress" �ș"Hourglass_On" �ȗ ȓ 0,0,1280,1024 �H� att%(6,10),new%(6,10),info$(6,10),filename$(64),status%(2),six$(6) �4� buf%(6,10),directory%(64),files%(64),cat% &400 �h%=�("ram:FactFile") ��J%=1�6 ��K%=1�10 ��#h%,fact$ �info$(J%,K%)=fact$ �� �� ��#h% � �Ttp �J%=1�6 �K%=1�6 "� X% ,buf%(J%,X%)=K% 6� @� J*FX212 128 0 T @% =0 ^ box%=0 hg% =16 rpre%=-1 | sun%=0 �wit%=20 � f$ ="<Disc2$Dir>.SixGames." �-b% =�initialsprites("Numbers|Buttons",0) �(z% =�initialcompressed("IntrosSpr") ��loaddetails �ș"Hourglass_Smash" ��point("Ten",1) �Ƞ 4 �ȡ 1,"StringLib-Pluck" � �flush �� ���mouse1 �ȗ � 1,255,255,0 ȗ � 2,255,0,0 ȗ � 3,192,192,192 ȗ � 1 &� 0ݤarea(x1%,y1%,x2%,y2%) :�mox%<x1% � mox%>x2%:=� D�moy%<y1% � moy%>y2%:=� N=� X��mouseilluminate bȗ mox%,moy%,but% lbox%=(moy%-100)>>6 v�box%<0:box%=0 ��box%>11:box%=11 �>�box%<>sun%:Ȗ:�square(sun%,11):�square(box%,15):sun%=box% �笤area(704,104,864,868) � ��square(box%,11) � �box%<5 � �box%=11:sun%=10 �� �box%=0:sun%=1 �� �� �'�but%=0 � ��area(704,104,864,868):� �� 7 � Ȏ box% � � 0 :�desktop � 1 :�printcertificate � 2 :�delete � 3 :�create *� 4 :�load 4� 5 :�viewachieve >� 6 :�run("RibTickler") H� 7 :�run("TurboRaft") R� 8 :�run("HookIt") \� 9 :�run("ChainUp") f� 10:�run("Processor") p� 11:�run("Graphoid") z� ��sun%<11 sun%=11 �sun%=0 �� �ȗ mox%,moy%,but% �� but%=0 � �menu �� ���run(game$) �ȗ � �ș"Hourglass_On" �ș"ABC_Blank",15 �ș"ABC_Colour",15 �h%=�(f$+"Misc.Signal") ��#h%,"" �#h% � f$+game$ � $��square(wch%,col%) .� 0,col% 8ȓȐ 706,wch%*64+100,156,58 B� L ��menu Vȗ � `ȗ � 640,512 jș"ABC_Blank",15 tș"ABC_Colour",15 ~#�card("ALGEBRA MENU",24,6,2,12) ��fillmenu(13,10) ��current ��rectangles � �contents �ș"ABC_Palette" �ȗ ȓ 0,0,1280,1024 �ȗ � 640,512 ��mouse1 �� ���fillmenu(tax%,tay%) �� 5 � � 0,0 � �tVE �J%=0�5 � s$ (� tax%*32-g%,1024-(tay%*g%+J%*64+20) (�s$ 2� < � 0,14 F�J%=6�11 P� s$ Z(� tax%*32-g%,1024-(tay%*g%+J%*64+20) d�s$ n� x� 4 �� �� �A� Graphoid,Processor,Chain Up,Hook It!,Turbo Raft,Rib Tickler �?� Player information,Change player,New player,Remove player �� Print certificate,Quit ���achievecard �ȗ � �ș"ABC_Blank",15 �ș"ABC_Colour",15 �a$=�strip(attend$) ��a$="":a$="Empty" ��nig% � �Q�card(a$+" : Achievement Record 10/10 Mathematics (Algebra - AT3)",0,12,8,11) � B�card(a$+" : Achievement Record 10/10 Mathematics ",0,12,8,11) � "�fillachieve(0,6) ,m$="RETURN TO MENU" 6�mess(m$,11) @ȗ � 640,512 Jș"ABC_Palette" T�mouse1 ^ p$="X" h sta%=0 r oxx%=0 | oyy%=0 �*FX21 0 �� ���viewachieve ��achievecard �� �ȗ mox%,moy%,but% �)�moy%<72 � sta%=0:sta%=1:�mess(m$,10) �)�moy%>72 � sta%=1:sta%=0:�mess(m$,11) �cxx%=(mox%-320)/160+1 �-�moy%>836 cyy%=0 �cyy%=(�(moy%-836)�64)+1 ��cyy%>10:cyy%=0 ��cxx%<0 � cxx%>6 cxx%=0 ��cxx%<>oxx% � cyy%<>oyy% � oxx%=cxx% oyy%=cyy% a$=info$(cxx%,cyy%) &�a$>"" � 0F�nig% �information("AT3 Level "+a$) ��information(�a$,�a$,")")+2)) :� D�information("") N� X� b�achievediscdump l�achieveprintdump v�allachieveprintdump �� �leave �� ���information(t$) ��p$=t$:� � p$=t$ � � 0,11 �� 5 �Ȗ �ȓȐ 0,96,1278,64 � � 0,0 �ȓ 0,96,1278,64 �� 640-�(t$)*8,140 ��t$ � 4 � � "��card(t$,tax%,tay%,sdx%,sdy%) *� 5 4 � 0,8 >-ȓȐ tax%*g%,tay%*g%,sdx%*160+160,sdy%*64 H � 0,11 R1ȓȐ tax%*g%+320,tay%*g%,sdx%*160-162,sdy%*64 \ � 0,0 f3�sdx%*160+160>1279 sxe%=1278 �sxe%=sdx%*160+160 p#ȓ tax%*g%,tay%*g%,sxe%,sdy%*64 z � 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 ��t$ ��J%=1� sdx% � � tax%*g%+J%*160+160,tay%*g% � 1,0,sdy%*64 � �J%=1� sdy% $� tax%*g%,tay%*g%+J%*64 .� 1,sdx%*160+160,0 8� B� 4 L� V� `��fillachieve(tax%,tay%) j� 5 t � �D|K ~� t$ �� tax%+32,1024-(tay%*g%+52) ��t$ ��K%=1�6 �� t$ �4� (tax%+32+K%*160+208)-�(t$)*8,1024-(tay%*g%+52) ��t$ �� ��J%=1�10 � � 0,0 �� t$ �%� tax%+32,1024-(tay%*g%+J%*64+52) ��t$ �K%=1�6 fax%=tax%+32+K%*160 fay%=tay%*g%+J%*64 &�fax%+156>=1100 wid%=154 �wid%=156 (Ȏ att%(K%,J%) � 2� 0 <!�info$(K%,J%)="" � 0,3 �� 0,7 F#�status%(1)+status%(2)=36:� 0,8 P�status%(1)=36:� 0,10 Z�status%(2)=36:� 0,15 d� 1:� 0,11 n� 2:� 0,14 x � 3,4,5,6,7,8,9,10,11:� 0,10 �:� 0,15 �� �(ȓȐ fax%+130,1024-(fay%+92),wid%,56 ��info$(K%,J%)>"" � ��nig% � � � 0,7 �� fax%+172,1020-(fay%+52) �(�info$(K%,J%),�info$(K%,J%),"(")-2) � � 0,0 �� fax%+174,1024-(fay%+52) �(�info$(K%,J%),�info$(K%,J%),"(")-2) �� � � 0,7 � fax%+202,1020-(fay%+52) �buf%(K%,J%) � 0,0 "� fax%+204,1024-(fay%+52) ,�buf%(K%,J%) 6� @� J� T� ^� 4 h� r� |E� SUBJECT,Graphoid,Processor,Chain Up,Hook It!,Turbo Raft,Tickler �C� Patterns and Seq,Symbols,Formulae and Equ,Co-ordinates,Graphs �C� Operations,Mappings and Fns,Inequalities,Interpretation,Words ���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 � &� 0��error :� � D� 3,26,7 N *CLOSE Xș"Hourglass_Smash" bȗ � lș"ABC_Colour",15 v�>&107FF � �<&10900 � �1�mess("FILING SYSTEM REPORTS ERROR : "+�$,11) ��delay(150) �� 7 �T�mess("PLEASE CHECK DISC IN DRIVE AND NOT WRITE PROTECTED THEN PRESS RETURN",11) �� � � �-74 �� �� � � � �DDL �h%=�(f$+"Misc.Signal") ��#h%,"" ��#h% �*DIR <Disc2$Dir>.SixGames �� � ș"ABC_Colour",15 � � ��printcertificate *ș"ABC_Colour",15 4ȗ � > ach%=� H�J%=1�10 R�K%=1�6 \�att%(K%,J%)>2:ach%=� f� p� z�ach% � �<�mess("Nothing achieved at present - return to menu",11) �� �ȗ mox%,moy%,but% �� but%=0 �� �� �leave �� � �busy �� �� �leave �� �� � ��busy +�mess("Screen/Printer/Disc (S/P/D)",11) *FX21 0 � $k%=�(0) .�k%>=�("a"):k%-=32 8/� k%=�("S") � k%=�("P") � k%=�("D") � �-113 B�-113:�flush:� L� 7 V�k%<>�("P") � `#�mess("Text/Graphics (T/G)",11) j� tt%=�(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 �� ���achieve_graphics �ș"ABC_Blank",3 �ș"ABC_Colour",3 � 0,12 ȓȐ 184,64,974,932 � 0,7 ȓ 184,64,976,932 (� 0 2 � 140 <"ș"ABC_Sprite",b%,"wax",444,70 F$ș"ABC_Sprite",b%,"small",120,64 P%ș"ABC_Sprite",b%,"small",420,214 Z �words(�) dș"ABC_Palette" n� x��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%) � 7 �fan% � 'ș"ABC_Sprite",b%,"certify",118,248 " � 137 ,a$=�strip(attend$) 6�42-�(attend$)�2,4)a$ @� J'�cent("THIS IS TO CERTIFY THAT ",2) T � 140 ^a$=�strip(attend$) h�cent(a$,4) r� | � 140 ��18,7)"has played the" ��18,8)"Ten out of Ten" ��18,9)"Maths (Algebra)" ��18,10)"games and has" ��nig% � �8�18,11)"achieved 100% at the following AT3 Levels:" �� �"�ver% a$="grades" �a$="levels" �0�18,11)"achieved 100% at the following "+a$ �� ��cent(�date,25) � �cent("Certificate from",27) �)�cent("10/10 Educational Systems",28) tay%=0 �J%=1�10 K%=1 & fnd%=� 0ȕ K%<7 � �fnd% :K�att%(K%,J%)>2 � �info$(K%,J%),�info$(K%,J%),")")-2)<>"":tay%+=1:fnd%=� D K%+=1 N� X� b � �tFK ltay%=18-tay%�2 v�J%=1�10 �� b$ � six$()="" ��K%=1�6 �C�nig% y$=�info$(K%,J%),�info$(K%,J%),"(")-2) �y$=�(buf%(K%,J%)) �'�att%(K%,J%)>2 � y$>"0":six$(K%)=y$ �� �� � 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%)+"," � ��a$)=",":a$=�a$) * �a$<>"" � 4)�18,tay%)b$�36,tay%)"..."�40,tay%)a$ >tay%+=1 H� R� \� f��discdump p� 7 zȗ � �� � � ș"ABC_Transfer",0,16,640,17 �'�input(32,"adfs::0.$."+attend$,�,�) �ș"ABC_Restore" ��esc% � i$="":� �ș"Hourglass_On" ��"SCREENSAVE "+i$ �ș"Hourglass_Smash" �P� � �:� 7:�mess("PLEASE INSERT DISC INTO DRIVE AND PRESS RETURN",8):�:� �-74 �*DIR <Disc2$Dir>.SixGames �ș"ABC_Restore" �ȗ � 640,512 ��mouse1 � ��printer_dump � 2 $�J%=0�30 .�K%=0�79 8� 31,K%,J% Bș"OS_Byte",135 � ,res% L � res% V� `�J%<30:� 13,10 j� t� 3 ~� � ��load � �legal ��bad% � esc%:� ��gridcheck ��a$="" � k%:� �� 7 �status%()=0 �?h%=�("<Disc2$Dir>.SixGames.Achieve.Achieve"+�(cla%)+"."+a$) �ș"Hourglass_On" ��J%=1�10 ��K%=1�6 � �#h%,byt% att%(K%,J%)=byt% #�byt%>2 � byt%<12:status%(1)+=1 �byt%>11:status%(2)+=1 � (� 2�#h% <attend$=a$ Fh%=�(f$+"Name") P�#h%,attend$ Z�#h% dș"Hourglass_Smash" n� x��small(wch%,col%) �� 0,col% �3ȓȐ (wch%>>4)*256+354,964-((wch%�&F)<<6),26,32 �� ���create � �legal ��bad% � esc%:� �ȗ � �ș"ABC_Colour",15 ��mess("New player name",11) ��delay(50) ��input(8,"",�,�) �ȕ �i$," ")>0 ��i$,�i$," "))="_" � �esc%:� 7�"DIR <Disc2$Dir>.SixGames.Achieve.Achieve"+�(cla%) "%ș"OS_GBPB",8,,cat%,&40,0 � ,,,d% ,*DIR <Disc2$Dir>.SixGames 6a%=0 @c%=0 Jd%=64-d% Tst%=cat% ^ dup%=� hȕ c%<d% � �dup% rt%=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 � � 0,0 ȓ 0,0,1278,64 .t$="Player "+i$+" already exists - Erase?" � 860-�(t$)*g%,44 &�t$ 0� 4 :� Dk%=�yesno(44) N� X�k%:�mouse1:� batt%()=0 lstatus%()=0 v?h%=�("<Disc2$Dir>.SixGames.Achieve.Achieve"+�(cla%)+"."+i$) ��J%=1�10 ��K%=1�6 ��#h%,att%(K%,J%) �� �� ��#h% �attend$=i$ �h%=�(f$+"Name") ��#h%,attend$ ��#h% �ș"ABC_Colour",15 ��mouse1 �� ��delete �legal �bad% � esc%:� �gridcheck *�a$="" � k%:� 4ș"ABC_Colour",15 > � 0,10 H� 5 RȓȐ 0,0,1278,64 \ � 0,0 fȓ 0,0,1278,64 pt$="Player "+a$+" - Erase?" z� 860-�(t$)*g%,44 ��t$ �� 4 �� �k%=�yesno(44) ��k%:�mouse1:� �A�"DELETE <Disc2$Dir>.SixGames.Achieve.Achieve"+�(cla%)+"."+a$ ��a$=attend$:�setempty �� ���delay(del%) �� �Ȗ �del%-=1 �� del%<0 � ��loadcurrent h%=�(f$+"Name") $�#h%,attend$ .�#h% 8�attend$="" � Batt%()=0 L� VDh%=�("<Disc2$Dir>.SixGames.Achieve.Achieve"+�(cla%)+"."+attend$) `�J%=1�10 j�K%=1�6 t�#h%,att%(K%,J%) ~� �� ��#h% �� �� �ݤinitialsprites(s$,l%) �l%+=�spritefilelength(s$) �� b% l% � !b%=l% �ș"OS_SpriteOp",265,b% ��loadsprites(s$) �=b% �ݤspritefilelength(s$) flo%=0 s$+="|" ȕ s$>"" h%=�(f$+�stringextract(s$)) (flo%+=�#h% 2�#h% <� F=flo%+64 Pݤstringextract(� s$) Zw$=�s$,(�s$,"|"))-1) ds$=�s$,(�s$,"|"))+1) n=w$ x��loadsprites(s$) �s$+="|" �typ%=266 �ȕ s$>"" �1ș"OS_SpriteOp",typ%,b%,f$+�stringextract(s$) �typ%-=(typ%=266) �� �� ���loaddetails �status%()=0 �h%=�(f$+"Misc.Grab3") � �#h%,cod% ��#h% �h%=�(f$+"Configure") ?�#h%,rat%,nig%,sds%,ver%,grd%,cla%,typ$,hed%,fut%,pap%,pix% �#h% '�sds% �"SPEAKER ON" ��"SPEAKER OFF" "h%=�(f$+"Name") ,�#h%,attend$ 6�#h% @�attend$="" � Jatt%()=0 T� ^Dh%=�("<Disc2$Dir>.SixGames.Achieve.Achieve"+�(cla%)+"."+attend$) h�J%=1�10 r�K%=1�6 | �#h%,byt% �att%(K%,J%)=byt% �#�byt%>2 � byt%<12:status%(1)+=1 ��byt%>11:status%(2)+=1 �� �� ��#h% �� �� �ݤyesno(tay%) �� �ȗ mox%,moy%,but% �� but%=0 �ȗ ȓ 959,12,240,46 �mouse1 ȗ � 1160,32 � 5 & � 0,0 0� 896,tay% :�"Yes No" D� Nȗ mox%,moy%,but% X�mox%<1072 � b � 0,11 lȓȐ 960,tay%-32,80,40 v � 0,7 �ȓȐ 1120,tay%-32,80,40 �� � � 0,7 �ȓȐ 960,tay%-32,80,40 � � 0,11 �ȓȐ 1120,tay%-32,80,40 �� �� but%>0 � �mox%,moy%)=11 �� 4 �� ��mox%<1072 =� �=� ���displaydirectory �ș"ABC_Blank",15 ș"ABC_Colour",15 7�"DIR <Disc2$Dir>.SixGames.Achieve.Achieve"+�(cla%) %ș"OS_GBPB",8,,cat%,&40,0 � ,,,d% *DIR <Disc2$Dir>.SixGames *� 5 4�a%=0�63 >x%=(a%>>4)*256+128 Hy%=(a%�&F)<<6 R � 0,8 \ȓȐ x%,y%,224,40 f � 0,11 pȓȐ x%+224,y%,30,40 z � 0,0 �ȓ x%+224,y%,30,40 �� �a%=0 �c%=0 �d%=64-d% �st%=cat% �filename$()="" � � 0,0 �ȕ c%<d% �t%=st%?((?st%)+1) �st%?((?st%)+1)=&D �a$=$(st%+1) �st%+=1+(?st%) ?st%=t% &� (a%>>4)*256+144,992-((a%�&F)<<6) filename$(a%)=a$ $a$=�strip(a$) .� a$ 8 a%+=1 B c%+=1 L� V� 4 `� jș"ABC_Palette" t� ~��gridcheck ��displaydirectory � 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% � Ȗ �small(lst%,11) �small(inx%,15) lst%=inx% (� 2�-113 k%=� �k%=� <� but%>0 � k% Fa$=filename$(lst%) P� Z ��current d� 5 n � 0,8 xȓȐ 384,16,480,64 � � 0,0 �ȓ 384,16,480,64 � � 0,14 �� 400,60 ��"Current player : "; � � 0,0 �a$=�strip(attend$) ��a$="" �"Empty" ��a$ �� 4 �� �� ���access �符-2 � ��-31:� ȗ � � 7 ș"ABC_Colour",15 "+�mess("ENTER OLD ACCESS CODE NUMBER",8) , �invis 6�esc%:�back:� @J%=�validatenumber(i$) J(�J%:�wrong("NUMBERS ONLY PLEASE"):� T0�cod%<>�(i$):�wrong("INVALID ACCESS CODE"):� ^+�mess("ENTER NEW ACCESS CODE NUMBER",8) h �invis r�esc%:�back:� |J%=�validatenumber(i$) �(�J%:�wrong("NUMBERS ONLY PLEASE"):� �first%=�(i$) �%�mess("ENTER AGAIN TO CONFIRM",8) � �invis ��esc%:�back:� �J%=�validatenumber(i$) �(�J%:�wrong("NUMBERS ONLY PLEASE"):� �second%=�(i$) �>�first%<>second%:�wrong("DIFFERENT NUMBERS - TRY AGAIN"):� �cod%=�i$ �.�mess("NEW ACCESS CODE NUMBER ACCEPTED",8) �h%=�(f$+"Misc.Grab3") � �#h%,cod% �#h% �back � & ��back 0�sun%<11 sun%=11 �sun%=0 : �menu D�mouse1 N� X��wrong(a$) b� 7 l�mess(a$,11) v�delay(150) � �back �� �ݤvalidatenumber(a$) � �a$="":=� �K%=� ��J%=1� �(a$) �'�a$,J%,1)<"0" � �a$,J%,1)>"9":K%=� �� �=K% ���invis �*FX21 0 � esc%=� � cnt%=0 ! i$="" !� !� ! � !*k%=�(1) !4�-113:esc%=� !>� k%>0 � k%<128 � esc% !H�k%=127 � cnt%>0 � !Rcnt%-=1 !\i$=�i$,cnt%) !f!�mess(">"+ĩ(i$),"*")+"<",10) !p� !z� k%<>127 � esc% !��k%<>13 � cnt%<>4 � !�i$+=�k% !�!�mess(">"+ĩ(i$),"*")+"<",10) !�cnt%+=1 !�� !�� k%=13 � cnt%=4 � esc% !�� !���legal !��cod%=0:bad%=�:esc%=�:� !�ȗ � !�ș"ABC_Colour",15 !�(�mess("ENTER ACCESS CODE NUMBER",11) !� �frput "�cod%=�(i$) � "*�mess("ACCESS CODE NUMBER ACCEPTED",8) "�delay(100) "$ bad%=� ".� "8 bad%=� "B� "L�mouse1 "V� "`��frput "j*FX21 0 "t esc%=� "~ cnt%=0 "� tot%=4 "� i$="" "�� "�� "�� "�k%=�(1) "��-113:esc%=� "�#� k%=13 � k%>31 � k%<128 � esc% "��k%=127 � cnt%>0 � "�cnt%-=1 "�i$=�i$,cnt%) "� �mess(">"+ĩ(i$),"*")+"<",8) #� # � k%<>127 � esc% #�k%<>13 � cnt%<>tot% � # �cnt%=0 � #(2�(k%)>="a" � �(k%)<="z" i$=�(k%-32) �i$=�(k%) #2� #<4�(k%)>="A" � �(k%)<="Z" i$+=�(k%+32) �i$+=�(k%) #F� #P �mess(">"+ĩ(i$),"*")+"<",8) #Zcnt%+=1 #d� #n� k%=13 � esc% � cnt%=tot% #x� #���point(a$,mos%) #�� wir%,par%,dat% #� � wir% 1088,par% 20,dat% 256 #�h%=�(f$+"Misc."+a$) #��J%=0�32 #��K%=0�32 #�wir%?(K%*32+J%)=�#h% #�� #�� #��#h% #�!par%=&20080200 #�par%?1=mos% #�par%!4=0 $par%!6=dat% $ mmo%=dat% $�J%=32�1�� $"�K%=0�7 $, �L%=3�0�� $6val%=wir%?(J%*32+K%*4+L%) $@0�val%=&FF:par%?4=K%*4+L%:par%?5=31-J%:val%=0 $J?mmo%=?mmo%<<2 $T?mmo%+=val% $^� $hmmo%+=1 $r� $|� $�ș"OS_Word",21,par% $�� $� ��desktop $�ȗ � $�ș"ABC_Blank",11 $��exitmessage $�!�mess("Return to Desktop?",8) $�ș"ABC_Palette" $��mouse1 $�k%=�yesno(44) $�ș"ABC_Colour",15 $�sun%=10 $� �k%:� % *FX20 %"*CHANNELVOICE 1 WaveSynth-Beep %"*CHANNELVOICE 2 WaveSynth-Beep %&"*CHANNELVOICE 3 WaveSynth-Beep %0"*CHANNELVOICE 4 WaveSynth-Beep %:*WIPE ram:* ~C~V %D*RMKILL ABC %N*RMKILL Cymbal %X*RMKILL Danger %b*RMKILL Death %l*RMKILL End %v*RMKILL Hook %�*RMKILL Laugh %�*RMKILL Skid %�*RMKILL Steam %�*RMKILL Synsmajs %�*RMKILL Timer %�*RMKILL 10/10SoundGenerator %�*POINTER 1 %�*SPEAKER ON %�*FX200 0 %�� 20 %�*DESKTOP %���wings(l$,x%,y%) %�#ș"ABC_Sprite",b%,"wings",x%,y% &� 5 & � 0,11 & � (x%*2+298)-�(l$)*8,y%*4-40 & �l$ &*� 4 &4� &>� &H��select &R6笤area(80,18,336,840) � ��area(912,18,1168,840) � &\pre%=-1 &fsly%=-1 &p�rectangles &z� &�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("ChainUp") '� 1:�run("Processor") '� 2:�run("Graphoid") '� 3:�run("RibTickler") '$� 4:�run("TurboRaft") '.� 5:�run("HookIt") '8� 'B� 'Lȗ mox%,moy%,but% 'V� but%=0 '`�sly%>-1:�menu 'j�mouse1 't� '~��contents '�� 5 '��J%=1�3 '�-ș"ABC_UnpackSprite",J%-1,z%,48,274-J%*70 '�.ș"ABC_UnpackSprite",J%+2,z%,464,274-J%*70 '�� '� � �Ddh '��J%=1�3 '�� a$,b$ '� � 0,7 '�� 96,J%*280-232 '��a$ '�� 928,J%*280-232 (�b$ ( � 0,0 (� 102,J%*280-228 (�a$ ((� 934,J%*280-228 (2�b$ (<� (F� 4 (P� (Z� (dA� Chain Up,Rib Tickler,Processor,Turbo Raft,Graphoid,Hook It! (n��rectangles (x � 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$="":� )� 24,0;192;1278;960; )"ș"Hourglass_On" ),�"SCREENSAVE "+i$ )6� 26 )@ș"Hourglass_Smash" )JP� � �:� 7:�mess("PLEASE INSERT DISC INTO DRIVE AND PRESS RETURN",8):�:� �-74 )T*DIR <Disc2$Dir>.SixGames )^ș"ABC_Restore" )hȗ � 640,512 )r�mouse1 )|� )���achieveprintdump )�符-2:� )�符-56:� )��7 )�ș"Hourglass_On" )� � �tVE )�new%()=att%() )��printpage(attend$) )� �flush )�ș"Hourglass_Smash" )��mouse1 )�� )���allachieveprintdump *符-2:� * 符-102:� *� 7 *&ș"Hourglass_On" *0�displaydirectory *: �flush *Dș"Hourglass_Smash" *N�mouse1 *Xfiles%()=� *b lst%=0 *l� *vȗ 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% � *�2�files%(lst%) �small(lst%,14) ��small(lst%,11) *�2�files%(inx%) �small(inx%,14) ��small(inx%,15) *� lst%=inx% *�� *�"�but%=1 � filename$(lst%)>"" � +files%(lst%)=�files%(lst%) +2�files%(lst%) �small(lst%,14) ��small(lst%,11) +� + ȗ mox%,moy%,but% +*� but%=0 +4� +>�-113 k%=� �k%=� +H� but%=4 � k% +Ra$=filename$(lst%) +\ �k% � +fș"Hourglass_On" +pș"ABC_Colour",15 +zX%=0 +� esc%=� +�ȕ X%<64 � �esc% +��files%(X%) � +�Jh%=�("<Disc2$Dir>.SixGames.Achieve.Achieve"+�(cla%)+"."+filename$(X%)) +��J%=1�10 +��K%=1�6 +��#h%,new%(K%,J%) +�� +�� +��#h% +��printpage(filename$(X%)) +�� +� X%+=1 ,� ,ș"Hourglass_Smash" ,� ,$�achievecard ,.� ,8ȗ mox%,moy%,but% ,B� but%=0 ,L� ,V��printpage(name$) ,`*FX200 0 ,j� � ,t%� � �:� 6,3,7:�"FX200 1":esc%=�:� ,~ � 2,21 ,��header ,�a$=�strip(name$) ,��a$="":a$="Empty" ,�'�printer("The achievements of "+a$) ,�D�printer("playing the 10 out of 10 Mathematics (Algebra) games") ,��printer("") ,��printer(�date) ,��printer("") ,� � �Ttp ,�:�printer(typ$+" Covering"+�53," ")+"Achievement") ,��printer("") ,��printer("GRAPHOID") -�gamedetails(1) - �printer("PROCESSOR") -�gamedetails(2) -�printer("CHAIN UP") -(�gamedetails(3) -2�printer("HOOK IT!") -<�gamedetails(4) -F�printer("TURBO RAFT") -P�gamedetails(5) -Z�printer("RIB TICKLER") -d�gamedetails(6) -n+�printer("KEY TO ACHIEVEMENT COLOURS:") -x�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") -�ȕ pnt%<pap% -�� -�pnt%+=1 -�� -��footer -� � 6,3 -�*FX200 1 -�� .��gamedetails(num%) .�J%=1�6 .� K% ."b$=info$(num%,K%) .,�nig% � .6 a$=b$ .@!�a$,"�")>0:�a$,�a$,"�"))="1" .J!�a$,"�")>0:�a$,�a$,"�"))="2" .T!�a$,"�")>0:�a$,�a$,"�"))="3" .^� .ha$=�b$,�b$,")")+2) .r� .|a$=�(J%)+" "+a$ .�a$+=�72-�(a$)," ") .�Ȏ new%(num%,K%) � .�� 0:a$+="-" .�� 1:a$+="RED" .�� 2:a$+="YELLOW" .�%� 3,4,5,6,7,8,9,10,11:a$+="GREEN" .�:a$+="BLUE" .�� .��printer(a$) .�� .��printer("") .�� .���header / pnt%=0 / �hed%=0:� /�W%=1� hed% /&� /0� /:� /D��footer /N �fut%=0:� /X�W%=1� fut% /b� /l� /v� /���printer(j$) /��j$ /�pnt%+=1 /��pnt%=pap% � /��footer /��header /�� /�� /� ݤdate /� � �T`p /� fnd%=� /�ȕ �fnd% /�� ab$,n$ 0科$,ab$):fnd%=� 0� 0#="Date: "+��$,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 04� 10,4,5,7,8,9 0>� 1,10,6,3,7,8 0H� 10,6,4,3,9,5 0R� 2,1,10,6,3,9 0\� 1,6,10,9,3,2 0f� 1,10,9,2,8,7 0p��flush 0z*FX21 9 0�� 0�ݤstrip(str$) 0�ȕ �str$,"_")>0 0��str$,�str$,"_"))=" " 0�� 0� =str$ 0���input(tot%,x$,cap%,fil%) 0�*FX21 0 0� esc%=� 0�cnt%=�(x$) 0� i$=x$ 0�"�fil% y$="filename: >" �y$=">" 0��mess(y$+i$+"<",8) 1� 1� 1� 1$k%=�(1) 1.�-113:esc%=� 18#� k%=13 � k%>31 � k%<128 � esc% 1B�k%=127 � cnt%>0 � 1Lcnt%-=1 1Vi$=�i$,cnt%) 1`�mess(y$+i$+"<",8) 1j� 1t� k%<>127 � esc% 1~�k%<>13 � cnt%<>tot% � 1��cap% � 1� �cnt%=0 � 1�2�(k%)>="a" � �(k%)<="z" i$=�(k%-32) �i$=�(k%) 1�� 1�4�(k%)>="A" � �(k%)<="Z" i$+=�(k%+32) �i$+=�(k%) 1�� 1�� 1� i$+=�(k%) 1�� 1��mess(y$+i$+"<",8) 1�cnt%+=1 1�� 2�k%<>13 � cnt%=tot%:�7 2 � k%=13 � esc% 2� 2��exitmessage 2(ș"ABC_Colour",11 22 � �tVr 2<� a$ 2F Y%=240 2Pȕ a$<>"end" 2Z$ș"ABC_PryntString",a$,34,Y%,1,7 2d&ș"ABC_PryntString",a$,32,Y%+1,1,0 2n�a$>"" Y%-=18 �Y%-=12 2x� a$ 2�� 2�� 2�#� Also available or coming soon 2�,� "for Acorn 32-bit, IBM PC/compatibles" 2�� and Commodore Amiga ... 2�� 2�� English French 2� � German Spanish 2� � Italian Science 2�(� Maths (Number) Maths (Algebra) 2�*� Early Essentials Junior Essentials 2�� 2�� Contact your dealer or 3$� ring (0742) 780370 for details 3 � end 3ݤinitialcompressed(s$) 3"h%=�(f$+s$) 3, len%=�#h% 36�#h% 3@ � z% len% 3J�"LOAD "+f$+s$+" "+�~(z%) 3T=z% 3^��configure 3h符-2 � ��-1 � � �-83:� 3rȗ � 3|ș"ABC_Blank",3 3�ș"ABC_Colour",3 3��validdirectories 3�#ș"ABC_Sprite",b%,"bar",180,242 3�#ș"ABC_Sprite",b%,"exit",454,18 3�� 11 3� � 130 3�'�25,2)"10 out of 10 CUSTOMISATION" 3�� 7 3� old%=cla% 3� � �D`{ 3�� a$,K% 3�J%=0 3�ȕ a$<>"end" 4)ș"ABC_Sprite",b%,"bar",180,210-J%*16 4�25,J%*2+6)a$ 4�K%=-1 � 4&.ș"ABC_Sprite",b%,"arrow_up",482,210-J%*16 400ș"ABC_Sprite",b%,"arrow_down",510,210-J%*16 4:� 4DQ�K%=-2 ș"ABC_Sprite",b%,"default",454,210-J%*16 ��buttonstatus(J%,210-J%*16) 4N J%+=1 4X� a$,K% 4b� 4lș"ABC_Palette" 4vȗ ȓ 904,32,160,810 4��mouse1 4� end%=� 4�ȕ �end% 4�� 4�ȗ mox%,moy%,but% 4�� but%>0 4�$�but%=4 � �mox%,moy%)<>3:�action 4�� 4��savenewconfigure 4��old%<>cla%:�setempty 4��sun%<11 sun%=11 �sun%=0 4� �menu 4�� 5��action 5noy%=(842-moy%)>>6 5nox%=(mox%-906)�56 5 Ȏ noy% � 5*� 0 54rat%=�rat% 5>#�buttonstatus(noy%,210-noy%*16) 5H� 7 5R� 1 5\�ver% � 5fnig%=�nig% 5p#�buttonstatus(noy%,210-noy%*16) 5z� 7 5�� 5�� 2 5�sds%=�sds% 5�#�buttonstatus(noy%,210-noy%*16) 5�'�sds% �"SPEAKER ON" ��"SPEAKER OFF" 5�� 7 5�� 3 5��ver% � 5� ver%=� 5� nig%=� 5�(�buttonstatus(noy%-2,210-noy%*16+32) 5�#�buttonstatus(noy%,210-noy%*16) 5�(�buttonstatus(noy%+1,210-noy%*16-16) 6� 7 6� 6� 4 6$�ver% � 6. ver%=� 68 nig%=� 6B(�buttonstatus(noy%-3,210-noy%*16+48) 6L#�buttonstatus(noy%,210-noy%*16) 6V(�buttonstatus(noy%-1,210-noy%*16+16) 6`� 7 6j� 6t� 5 6~ �nox%=1 � 6�grd%+=1 6��grd%=7:grd%=1 6�#�buttonstatus(noy%,210-noy%*16) 6�� 7 6�� 6� �nox%=2 � 6�grd%-=1 6��grd%=0:grd%=6 6�#�buttonstatus(noy%,210-noy%*16) 6�� 7 6�� 6�� 6 7 �nox%=1 � 7 cla%+=1 7�cla%=65:cla%=1 7#�buttonstatus(noy%,210-noy%*16) 7(� 7 72� 7< �nox%=2 � 7Fcla%-=1 7P�cla%=0:cla%=64 7Z#�buttonstatus(noy%,210-noy%*16) 7d� 7 7n� 7x� 7 7� �nox%=1 � 7�hed%+=1 7��hed%=8:hed%=0 7�#�buttonstatus(noy%,210-noy%*16) 7�� 7 7�� 7� �nox%=2 � 7�hed%-=1 7��hed%<0:hed%=7 7�#�buttonstatus(noy%,210-noy%*16) 7�� 7 7�� 7�� 8 8 �nox%=1 � 8fut%+=1 8�fut%=8:fut%=0 8"#�buttonstatus(noy%,210-noy%*16) 8,� 7 86� 8@ �nox%=2 � 8Jfut%-=1 8T�fut%<0:fut%=7 8^#�buttonstatus(noy%,210-noy%*16) 8h� 7 8r� 8|� 9 8� �nox%=1 � 8�pap%+=1 8��pap%=81:pap%=16 8�#�buttonstatus(noy%,210-noy%*16) 8�� 7 8�� 8� �nox%=2 � 8�pap%-=1 8��pap%=15:pap%=80 8�#�buttonstatus(noy%,210-noy%*16) 8�� 7 8�� 8�� 10 9pix%+=1 9�pix%=4:pix%=0 9#�buttonstatus(noy%,210-noy%*16) 9&� 7 90� 11 9:ș"ABC_Blank",3 9D*SPEAKER ON 9N� 7 9X rat%=� 9b nig%=� 9l sds%=� 9v ver%=� 9� grd%=1 9� cla%=1 9� hed%=1 9� fut%=1 9�pap%=64 9� pix%=0 9��J%=0�10 9��buttonstatus(J%,210-J%*16) 9�� 9�ș"ABC_Palette" 9�� 12:end%=� 9�� 9�� :ȗ mox%,moy%,but% :� but%=0 :� : ��savenewconfigure :*ȗ � :4ș"ABC_Blank",3 :>ș"ABC_Colour",3 :H'�directory%(cla%):�createdirectory :R7�"DIR <Disc2$Dir>.SixGames.Achieve.Achieve"+�(cla%) :\$�ver% typ$="Grade" �typ$="Level" :fh%=�(f$+"Configure") :p?�#h%,rat%,nig%,sds%,ver%,grd%,cla%,typ$,hed%,fut%,pap%,pix% :z�#h% :�*DIR <Disc2$Dir>.SixGames :�� :���buttonstatus(num%,ysc%) :�yyy%=ysc%-2 :�Ȗ :�_�num%=3 � num%=4 ș"ABC_Sprite",b%,"radiooff",454,ysc% �ș"ABC_Sprite",b%,"optoff",454,ysc% :� Ȏ num% � :�0� 0:�rat%:ș"ABC_Sprite",b%,"opton",454,ysc% :�0� 1:�nig%:ș"ABC_Sprite",b%,"opton",454,ysc% :�0� 2:�sds%:ș"ABC_Sprite",b%,"opton",454,ysc% :�3� 3:�ver%:ș"ABC_Sprite",b%,"radioon",454,ysc% :�2� 4:�ver%:ș"ABC_Sprite",b%,"radioon",454,ysc% :�0� 5:ș"ABC_PryntString",�(grd%),462,yyy%,0,9 ;� 6 ;&�directory%(cla%) cul%=13 �cul%=11 ;d�cla%>9 ș"ABC_PryntString",�(cla%),458,yyy%,0,cul% �ș"ABC_PryntString",�(cla%),462,yyy%,0,cul% ;$1� 7:ș"ABC_PryntString",�(hed%),462,yyy%,0,11 ;.1� 8:ș"ABC_PryntString",�(fut%),462,yyy%,0,11 ;81� 9:ș"ABC_PryntString",�(pap%),458,yyy%,0,11 ;B`� 10:�pix%=0 ș"ABC_PryntString","A",462,yyy%,0,11 �ș"ABC_PryntString",�(pix%),462,yyy%,0,6 ;L� ;V� ;`H� Ratings suppressed,0,National curriculum numbers,0,Sound,0,Level,0 ;j;� Grade,0,Overall skill,-1,Class number,-1,Top space,-1 ;tE� Bottom space,-1,Paper length,-1,Graphics selection,0,Default,-2 ;~� end,0 ;���validdirectories ;�'�"DIR <Disc2$Dir>.SixGames.Achieve" ;�%ș"OS_GBPB",8,,cat%,&40,0 � ,,,d% ;�*DIR <Disc2$Dir>.SixGames ;�c%=0 ;�d%=64-d% ;�st%=cat% ;�directory%()=� ;�ȕ c%<d% ;�t%=st%?((?st%)+1) ;�st%?((?st%)+1)=&D ;�a$=$(st%+1) <st%+=1+(?st%) < ?st%=t% <directory%(�(�a$,8)))=� < c%+=1 <(� <2� <<��createdirectory <F8�"CDIR <Disc2$Dir>.SixGames.Achieve.Achieve"+�(cla%) <P �setempty <Z� <d��setempty <nattend$="" <xh%=�(f$+"Name") <��#h%,"" <��#h% <�att%()=0 <�status%()=0 <�� <�ݤleave <�ȗ mox%,moy%,but% <�%�-113 � �-99 � �-74 � but%>0 �=� <�� <�ȗ mox%,moy%,but% <�%� ��-113 � ��-99 � ��-74 � but%=0 <�*FX21 9 <�=� �
00000000 0d 00 0a 20 f4 20 3e 61 64 66 73 3a 3a 30 2e 24 |... . >adfs::0.$| 00000010 2e 21 31 30 2f 31 30 41 6c 67 65 2e 4d 65 6e 75 |.!10/10Alge.Menu| 00000020 0d 00 14 0d ee 85 3a f2 65 72 72 6f 72 0d 00 1e |......:.error...| 00000030 10 e7 eb 3c 3e 31 32 3a eb 31 32 3a 87 0d 00 28 |...<>12:.12:...(| 00000040 0c f2 69 6e 69 74 69 61 6c 0d 00 32 09 f2 6d 65 |..initial..2..me| 00000050 6e 75 0d 00 3c 05 f5 0d 00 46 14 f2 6d 6f 75 73 |nu..<....F..mous| 00000060 65 69 6c 6c 75 6d 69 6e 61 74 65 0d 00 50 0b f2 |eilluminate..P..| 00000070 73 65 6c 65 63 74 0d 00 5a 0b f2 61 63 63 65 73 |select..Z..acces| 00000080 73 0d 00 64 0e f2 63 6f 6e 66 69 67 75 72 65 0d |s..d..configure.| 00000090 00 6e 07 fd 20 a3 0d 00 78 0d dd f2 69 6e 69 74 |.n.. ...x...init| 000000a0 69 61 6c 0d 00 82 18 c8 99 22 41 42 43 5f 56 69 |ial......"ABC_Vi| 000000b0 64 65 6f 41 64 64 72 65 73 73 22 0d 00 8c 14 c8 |deoAddress".....| 000000c0 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d |."Hourglass_On".| 000000d0 00 96 17 c8 97 20 c8 93 20 30 2c 30 2c 31 32 38 |..... .. 0,0,128| 000000e0 30 2c 31 30 32 34 0d 00 a0 48 de 20 61 74 74 25 |0,1024...H. att%| 000000f0 28 36 2c 31 30 29 2c 6e 65 77 25 28 36 2c 31 30 |(6,10),new%(6,10| 00000100 29 2c 69 6e 66 6f 24 28 36 2c 31 30 29 2c 66 69 |),info$(6,10),fi| 00000110 6c 65 6e 61 6d 65 24 28 36 34 29 2c 73 74 61 74 |lename$(64),stat| 00000120 75 73 25 28 32 29 2c 73 69 78 24 28 36 29 0d 00 |us%(2),six$(6)..| 00000130 aa 34 de 20 62 75 66 25 28 36 2c 31 30 29 2c 64 |.4. buf%(6,10),d| 00000140 69 72 65 63 74 6f 72 79 25 28 36 34 29 2c 66 69 |irectory%(64),fi| 00000150 6c 65 73 25 28 36 34 29 2c 63 61 74 25 20 26 34 |les%(64),cat% &4| 00000160 30 30 0d 00 b4 18 68 25 3d 8e 28 22 72 61 6d 3a |00....h%=.("ram:| 00000170 46 61 63 74 46 69 6c 65 22 29 0d 00 be 0b e3 4a |FactFile").....J| 00000180 25 3d 31 b8 36 0d 00 c8 0c e3 4b 25 3d 31 b8 31 |%=1.6.....K%=1.1| 00000190 30 0d 00 d2 0e e8 23 68 25 2c 66 61 63 74 24 0d |0.....#h%,fact$.| 000001a0 00 dc 16 69 6e 66 6f 24 28 4a 25 2c 4b 25 29 3d |...info$(J%,K%)=| 000001b0 66 61 63 74 24 0d 00 e6 05 ed 0d 00 f0 05 ed 0d |fact$...........| 000001c0 00 fa 08 d9 23 68 25 0d 01 04 0a f7 20 8d 54 74 |....#h%..... .Tt| 000001d0 70 0d 01 0e 0b e3 4a 25 3d 31 b8 36 0d 01 18 0b |p.....J%=1.6....| 000001e0 e3 4b 25 3d 31 b8 36 0d 01 22 08 f3 20 58 25 0d |.K%=1.6..".. X%.| 000001f0 01 2c 12 62 75 66 25 28 4a 25 2c 58 25 29 3d 4b |.,.buf%(J%,X%)=K| 00000200 25 0d 01 36 05 ed 0d 01 40 05 ed 0d 01 4a 10 2a |%..6....@....J.*| 00000210 46 58 32 31 32 20 31 32 38 20 30 0d 01 54 0a 40 |FX212 128 0..T.@| 00000220 25 20 20 3d 30 0d 01 5e 0a 62 6f 78 25 3d 30 0d |% =0..^.box%=0.| 00000230 01 68 0b 67 25 20 20 3d 31 36 0d 01 72 0b 70 72 |.h.g% =16..r.pr| 00000240 65 25 3d 2d 31 0d 01 7c 0a 73 75 6e 25 3d 30 0d |e%=-1..|.sun%=0.| 00000250 01 86 0b 77 69 74 25 3d 32 30 0d 01 90 20 66 24 |...wit%=20... f$| 00000260 20 20 3d 22 3c 44 69 73 63 32 24 44 69 72 3e 2e | ="<Disc2$Dir>.| 00000270 53 69 78 47 61 6d 65 73 2e 22 0d 01 9a 2d 62 25 |SixGames."...-b%| 00000280 20 20 3d a4 69 6e 69 74 69 61 6c 73 70 72 69 74 | =.initialsprit| 00000290 65 73 28 22 4e 75 6d 62 65 72 73 7c 42 75 74 74 |es("Numbers|Butt| 000002a0 6f 6e 73 22 2c 30 29 0d 01 a4 28 7a 25 20 20 3d |ons",0)...(z% =| 000002b0 a4 69 6e 69 74 69 61 6c 63 6f 6d 70 72 65 73 73 |.initialcompress| 000002c0 65 64 28 22 49 6e 74 72 6f 73 53 70 72 22 29 0d |ed("IntrosSpr").| 000002d0 01 ae 10 f2 6c 6f 61 64 64 65 74 61 69 6c 73 0d |....loaddetails.| 000002e0 01 b8 17 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f |....."Hourglass_| 000002f0 53 6d 61 73 68 22 0d 01 c2 13 f2 70 6f 69 6e 74 |Smash".....point| 00000300 28 22 54 65 6e 22 2c 31 29 0d 01 cc 08 c8 a0 20 |("Ten",1)...... | 00000310 34 0d 01 d6 1a c8 a1 20 31 2c 22 53 74 72 69 6e |4...... 1,"Strin| 00000320 67 4c 69 62 2d 50 6c 75 63 6b 22 0d 01 e0 0a f2 |gLib-Pluck".....| 00000330 66 6c 75 73 68 0d 01 ea 05 e1 0d 01 f4 0c dd f2 |flush...........| 00000340 6d 6f 75 73 65 31 0d 01 fe 14 c8 97 20 fb 20 31 |mouse1...... . 1| 00000350 2c 32 35 35 2c 32 35 35 2c 30 0d 02 08 12 c8 97 |,255,255,0......| 00000360 20 fb 20 32 2c 32 35 35 2c 30 2c 30 0d 02 12 16 | . 2,255,0,0....| 00000370 c8 97 20 fb 20 33 2c 31 39 32 2c 31 39 32 2c 31 |.. . 3,192,192,1| 00000380 39 32 0d 02 1c 0a c8 97 20 ee 20 31 0d 02 26 05 |92...... . 1..&.| 00000390 e1 0d 02 30 1b dd a4 61 72 65 61 28 78 31 25 2c |...0...area(x1%,| 000003a0 79 31 25 2c 78 32 25 2c 79 32 25 29 0d 02 3a 1b |y1%,x2%,y2%)..:.| 000003b0 e7 6d 6f 78 25 3c 78 31 25 20 84 20 6d 6f 78 25 |.mox%<x1% . mox%| 000003c0 3e 78 32 25 3a 3d a3 0d 02 44 1b e7 6d 6f 79 25 |>x2%:=...D..moy%| 000003d0 3c 79 31 25 20 84 20 6d 6f 79 25 3e 79 32 25 3a |<y1% . moy%>y2%:| 000003e0 3d a3 0d 02 4e 06 3d b9 0d 02 58 15 dd f2 6d 6f |=...N.=...X...mo| 000003f0 75 73 65 69 6c 6c 75 6d 69 6e 61 74 65 0d 02 62 |useilluminate..b| 00000400 15 c8 97 20 6d 6f 78 25 2c 6d 6f 79 25 2c 62 75 |... mox%,moy%,bu| 00000410 74 25 0d 02 6c 16 62 6f 78 25 3d 28 6d 6f 79 25 |t%..l.box%=(moy%| 00000420 2d 31 30 30 29 3e 3e 36 0d 02 76 12 e7 62 6f 78 |-100)>>6..v..box| 00000430 25 3c 30 3a 62 6f 78 25 3d 30 0d 02 80 14 e7 62 |%<0:box%=0.....b| 00000440 6f 78 25 3e 31 31 3a 62 6f 78 25 3d 31 31 0d 02 |ox%>11:box%=11..| 00000450 8a 3e e7 62 6f 78 25 3c 3e 73 75 6e 25 3a c8 96 |.>.box%<>sun%:..| 00000460 3a f2 73 71 75 61 72 65 28 73 75 6e 25 2c 31 31 |:.square(sun%,11| 00000470 29 3a f2 73 71 75 61 72 65 28 62 6f 78 25 2c 31 |):.square(box%,1| 00000480 35 29 3a 73 75 6e 25 3d 62 6f 78 25 0d 02 94 1e |5):sun%=box%....| 00000490 e7 ac a4 61 72 65 61 28 37 30 34 2c 31 30 34 2c |...area(704,104,| 000004a0 38 36 34 2c 38 36 38 29 20 8c 0d 02 9e 14 f2 73 |864,868) ......s| 000004b0 71 75 61 72 65 28 62 6f 78 25 2c 31 31 29 0d 02 |quare(box%,11)..| 000004c0 a8 0d e7 62 6f 78 25 3c 35 20 8c 0d 02 b2 13 62 |...box%<5 .....b| 000004d0 6f 78 25 3d 31 31 3a 73 75 6e 25 3d 31 30 0d 02 |ox%=11:sun%=10..| 000004e0 bc 05 cc 0d 02 c6 11 62 6f 78 25 3d 30 3a 73 75 |.......box%=0:su| 000004f0 6e 25 3d 31 0d 02 d0 05 cd 0d 02 da 05 cd 0d 02 |n%=1............| 00000500 e4 27 e7 62 75 74 25 3d 30 20 84 20 ac a4 61 72 |.'.but%=0 . ..ar| 00000510 65 61 28 37 30 34 2c 31 30 34 2c 38 36 34 2c 38 |ea(704,104,864,8| 00000520 36 38 29 3a e1 0d 02 ee 07 ef 20 37 0d 02 f8 0d |68):...... 7....| 00000530 c8 8e 20 62 6f 78 25 20 ca 0d 03 02 11 c9 20 30 |.. box% ...... 0| 00000540 20 3a f2 64 65 73 6b 74 6f 70 0d 03 0c 1a c9 20 | :.desktop..... | 00000550 31 20 3a f2 70 72 69 6e 74 63 65 72 74 69 66 69 |1 :.printcertifi| 00000560 63 61 74 65 0d 03 16 10 c9 20 32 20 3a f2 64 65 |cate..... 2 :.de| 00000570 6c 65 74 65 0d 03 20 10 c9 20 33 20 3a f2 63 72 |lete.. .. 3 :.cr| 00000580 65 61 74 65 0d 03 2a 0e c9 20 34 20 3a f2 6c 6f |eate..*.. 4 :.lo| 00000590 61 64 0d 03 34 15 c9 20 35 20 3a f2 76 69 65 77 |ad..4.. 5 :.view| 000005a0 61 63 68 69 65 76 65 0d 03 3e 1b c9 20 36 20 3a |achieve..>.. 6 :| 000005b0 f2 72 75 6e 28 22 52 69 62 54 69 63 6b 6c 65 72 |.run("RibTickler| 000005c0 22 29 0d 03 48 1a c9 20 37 20 3a f2 72 75 6e 28 |")..H.. 7 :.run(| 000005d0 22 54 75 72 62 6f 52 61 66 74 22 29 0d 03 52 17 |"TurboRaft")..R.| 000005e0 c9 20 38 20 3a f2 72 75 6e 28 22 48 6f 6f 6b 49 |. 8 :.run("HookI| 000005f0 74 22 29 0d 03 5c 18 c9 20 39 20 3a f2 72 75 6e |t")..\.. 9 :.run| 00000600 28 22 43 68 61 69 6e 55 70 22 29 0d 03 66 1a c9 |("ChainUp")..f..| 00000610 20 31 30 3a f2 72 75 6e 28 22 50 72 6f 63 65 73 | 10:.run("Proces| 00000620 73 6f 72 22 29 0d 03 70 19 c9 20 31 31 3a f2 72 |sor")..p.. 11:.r| 00000630 75 6e 28 22 47 72 61 70 68 6f 69 64 22 29 0d 03 |un("Graphoid")..| 00000640 7a 05 cb 0d 03 84 1c e7 73 75 6e 25 3c 31 31 20 |z.......sun%<11 | 00000650 73 75 6e 25 3d 31 31 20 8b 73 75 6e 25 3d 30 0d |sun%=11 .sun%=0.| 00000660 03 8e 05 f5 0d 03 98 15 c8 97 20 6d 6f 78 25 2c |.......... mox%,| 00000670 6d 6f 79 25 2c 62 75 74 25 0d 03 a2 0c fd 20 62 |moy%,but%..... b| 00000680 75 74 25 3d 30 0d 03 ac 09 f2 6d 65 6e 75 0d 03 |ut%=0.....menu..| 00000690 b6 05 e1 0d 03 c0 10 dd f2 72 75 6e 28 67 61 6d |.........run(gam| 000006a0 65 24 29 0d 03 ca 08 c8 97 20 87 0d 03 d4 14 c8 |e$)...... ......| 000006b0 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d |."Hourglass_On".| 000006c0 03 de 14 c8 99 22 41 42 43 5f 42 6c 61 6e 6b 22 |....."ABC_Blank"| 000006d0 2c 31 35 0d 03 e8 15 c8 99 22 41 42 43 5f 43 6f |,15......"ABC_Co| 000006e0 6c 6f 75 72 22 2c 31 35 0d 03 f2 1a 68 25 3d ae |lour",15....h%=.| 000006f0 28 66 24 2b 22 4d 69 73 63 2e 53 69 67 6e 61 6c |(f$+"Misc.Signal| 00000700 22 29 0d 03 fc 0b f1 23 68 25 2c 22 22 0d 04 06 |").....#h%,""...| 00000710 08 d9 23 68 25 0d 04 10 0e d7 20 66 24 2b 67 61 |..#h%..... f$+ga| 00000720 6d 65 24 0d 04 1a 05 e1 0d 04 24 17 dd f2 73 71 |me$.......$...sq| 00000730 75 61 72 65 28 77 63 68 25 2c 63 6f 6c 25 29 0d |uare(wch%,col%).| 00000740 04 2e 0c e6 20 30 2c 63 6f 6c 25 0d 04 38 1f c8 |.... 0,col%..8..| 00000750 93 c8 90 20 37 30 36 2c 77 63 68 25 2a 36 34 2b |... 706,wch%*64+| 00000760 31 30 30 2c 31 35 36 2c 35 38 0d 04 42 05 e1 0d |100,156,58..B...| 00000770 04 4c 0a dd f2 6d 65 6e 75 0d 04 56 08 c8 97 20 |.L...menu..V... | 00000780 87 0d 04 60 10 c8 97 20 b8 20 36 34 30 2c 35 31 |...`... . 640,51| 00000790 32 0d 04 6a 14 c8 99 22 41 42 43 5f 42 6c 61 6e |2..j..."ABC_Blan| 000007a0 6b 22 2c 31 35 0d 04 74 15 c8 99 22 41 42 43 5f |k",15..t..."ABC_| 000007b0 43 6f 6c 6f 75 72 22 2c 31 35 0d 04 7e 23 f2 63 |Colour",15..~#.c| 000007c0 61 72 64 28 22 41 4c 47 45 42 52 41 20 4d 45 4e |ard("ALGEBRA MEN| 000007d0 55 22 2c 32 34 2c 36 2c 32 2c 31 32 29 0d 04 88 |U",24,6,2,12)...| 000007e0 14 f2 66 69 6c 6c 6d 65 6e 75 28 31 33 2c 31 30 |..fillmenu(13,10| 000007f0 29 0d 04 92 0c f2 63 75 72 72 65 6e 74 0d 04 9c |).....current...| 00000800 0f f2 72 65 63 74 61 6e 67 6c 65 73 0d 04 a6 0d |..rectangles....| 00000810 f2 63 6f 6e 74 65 6e 74 73 0d 04 b0 13 c8 99 22 |.contents......"| 00000820 41 42 43 5f 50 61 6c 65 74 74 65 22 0d 04 ba 17 |ABC_Palette"....| 00000830 c8 97 20 c8 93 20 30 2c 30 2c 31 32 38 30 2c 31 |.. .. 0,0,1280,1| 00000840 30 32 34 0d 04 c4 10 c8 97 20 b8 20 36 34 30 2c |024...... . 640,| 00000850 35 31 32 0d 04 ce 0b f2 6d 6f 75 73 65 31 0d 04 |512.....mouse1..| 00000860 d8 05 e1 0d 04 e2 19 dd f2 66 69 6c 6c 6d 65 6e |.........fillmen| 00000870 75 28 74 61 78 25 2c 74 61 79 25 29 0d 04 ec 07 |u(tax%,tay%)....| 00000880 ef 20 35 0d 04 f6 09 e6 20 30 2c 30 0d 05 00 0a |. 5..... 0,0....| 00000890 f7 20 8d 74 56 45 0d 05 0a 0b e3 4a 25 3d 30 b8 |. .tVE.....J%=0.| 000008a0 35 0d 05 14 08 f3 20 73 24 0d 05 1e 28 ec 20 74 |5..... s$...(. t| 000008b0 61 78 25 2a 33 32 2d 67 25 2c 31 30 32 34 2d 28 |ax%*32-g%,1024-(| 000008c0 74 61 79 25 2a 67 25 2b 4a 25 2a 36 34 2b 32 30 |tay%*g%+J%*64+20| 000008d0 29 0d 05 28 07 f1 73 24 0d 05 32 05 ed 0d 05 3c |)..(..s$..2....<| 000008e0 0a e6 20 30 2c 31 34 0d 05 46 0c e3 4a 25 3d 36 |.. 0,14..F..J%=6| 000008f0 b8 31 31 0d 05 50 08 f3 20 73 24 0d 05 5a 28 ec |.11..P.. s$..Z(.| 00000900 20 74 61 78 25 2a 33 32 2d 67 25 2c 31 30 32 34 | tax%*32-g%,1024| 00000910 2d 28 74 61 79 25 2a 67 25 2b 4a 25 2a 36 34 2b |-(tay%*g%+J%*64+| 00000920 32 30 29 0d 05 64 07 f1 73 24 0d 05 6e 05 ed 0d |20)..d..s$..n...| 00000930 05 78 07 ef 20 34 0d 05 82 05 87 0d 05 8c 05 e1 |.x.. 4..........| 00000940 0d 05 96 41 dc 20 47 72 61 70 68 6f 69 64 2c 50 |...A. Graphoid,P| 00000950 72 6f 63 65 73 73 6f 72 2c 43 68 61 69 6e 20 55 |rocessor,Chain U| 00000960 70 2c 48 6f 6f 6b 20 49 74 21 2c 54 75 72 62 6f |p,Hook It!,Turbo| 00000970 20 52 61 66 74 2c 52 69 62 20 54 69 63 6b 6c 65 | Raft,Rib Tickle| 00000980 72 0d 05 a0 3f dc 20 50 6c 61 79 65 72 20 69 6e |r...?. Player in| 00000990 66 6f 72 6d 61 74 69 6f 6e 2c 43 68 61 6e 67 65 |formation,Change| 000009a0 20 70 6c 61 79 65 72 2c 4e 65 77 20 70 6c 61 79 | player,New play| 000009b0 65 72 2c 52 65 6d 6f 76 65 20 70 6c 61 79 65 72 |er,Remove player| 000009c0 0d 05 aa 1c dc 20 50 72 69 6e 74 20 63 65 72 74 |..... Print cert| 000009d0 69 66 69 63 61 74 65 2c 51 75 69 74 0d 05 b4 11 |ificate,Quit....| 000009e0 dd f2 61 63 68 69 65 76 65 63 61 72 64 0d 05 be |..achievecard...| 000009f0 08 c8 97 20 87 0d 05 c8 14 c8 99 22 41 42 43 5f |... ......."ABC_| 00000a00 42 6c 61 6e 6b 22 2c 31 35 0d 05 d2 15 c8 99 22 |Blank",15......"| 00000a10 41 42 43 5f 43 6f 6c 6f 75 72 22 2c 31 35 0d 05 |ABC_Colour",15..| 00000a20 dc 16 61 24 3d a4 73 74 72 69 70 28 61 74 74 65 |..a$=.strip(atte| 00000a30 6e 64 24 29 0d 05 e6 15 e7 61 24 3d 22 22 3a 61 |nd$).....a$="":a| 00000a40 24 3d 22 45 6d 70 74 79 22 0d 05 f0 0b e7 6e 69 |$="Empty".....ni| 00000a50 67 25 20 8c 0d 05 fa 51 f2 63 61 72 64 28 61 24 |g% ....Q.card(a$| 00000a60 2b 22 20 3a 20 41 63 68 69 65 76 65 6d 65 6e 74 |+" : Achievement| 00000a70 20 52 65 63 6f 72 64 20 31 30 2f 31 30 20 4d 61 | Record 10/10 Ma| 00000a80 74 68 65 6d 61 74 69 63 73 20 28 41 6c 67 65 62 |thematics (Algeb| 00000a90 72 61 20 2d 20 41 54 33 29 22 2c 30 2c 31 32 2c |ra - AT3)",0,12,| 00000aa0 38 2c 31 31 29 0d 06 04 05 cc 0d 06 0e 42 f2 63 |8,11)........B.c| 00000ab0 61 72 64 28 61 24 2b 22 20 3a 20 41 63 68 69 65 |ard(a$+" : Achie| 00000ac0 76 65 6d 65 6e 74 20 52 65 63 6f 72 64 20 31 30 |vement Record 10| 00000ad0 2f 31 30 20 4d 61 74 68 65 6d 61 74 69 63 73 20 |/10 Mathematics | 00000ae0 22 2c 30 2c 31 32 2c 38 2c 31 31 29 0d 06 18 05 |",0,12,8,11)....| 00000af0 cd 0d 06 22 15 f2 66 69 6c 6c 61 63 68 69 65 76 |..."..fillachiev| 00000b00 65 28 30 2c 36 29 0d 06 2c 17 6d 24 3d 22 52 45 |e(0,6)..,.m$="RE| 00000b10 54 55 52 4e 20 54 4f 20 4d 45 4e 55 22 0d 06 36 |TURN TO MENU"..6| 00000b20 10 f2 6d 65 73 73 28 6d 24 2c 31 31 29 0d 06 40 |..mess(m$,11)..@| 00000b30 10 c8 97 20 b8 20 36 34 30 2c 35 31 32 0d 06 4a |... . 640,512..J| 00000b40 13 c8 99 22 41 42 43 5f 50 61 6c 65 74 74 65 22 |..."ABC_Palette"| 00000b50 0d 06 54 0b f2 6d 6f 75 73 65 31 0d 06 5e 0a 70 |..T..mouse1..^.p| 00000b60 24 3d 22 58 22 0d 06 68 0a 73 74 61 25 3d 30 0d |$="X"..h.sta%=0.| 00000b70 06 72 0a 6f 78 78 25 3d 30 0d 06 7c 0a 6f 79 79 |.r.oxx%=0..|.oyy| 00000b80 25 3d 30 0d 06 86 0b 2a 46 58 32 31 20 30 0d 06 |%=0....*FX21 0..| 00000b90 90 05 e1 0d 06 9a 11 dd f2 76 69 65 77 61 63 68 |.........viewach| 00000ba0 69 65 76 65 0d 06 a4 10 f2 61 63 68 69 65 76 65 |ieve.....achieve| 00000bb0 63 61 72 64 0d 06 ae 05 f5 0d 06 b8 15 c8 97 20 |card........... | 00000bc0 6d 6f 78 25 2c 6d 6f 79 25 2c 62 75 74 25 0d 06 |mox%,moy%,but%..| 00000bd0 c2 29 e7 6d 6f 79 25 3c 37 32 20 80 20 73 74 61 |.).moy%<72 . sta| 00000be0 25 3d 30 3a 73 74 61 25 3d 31 3a f2 6d 65 73 73 |%=0:sta%=1:.mess| 00000bf0 28 6d 24 2c 31 30 29 0d 06 cc 29 e7 6d 6f 79 25 |(m$,10)...).moy%| 00000c00 3e 37 32 20 80 20 73 74 61 25 3d 31 3a 73 74 61 |>72 . sta%=1:sta| 00000c10 25 3d 30 3a f2 6d 65 73 73 28 6d 24 2c 31 31 29 |%=0:.mess(m$,11)| 00000c20 0d 06 d6 19 63 78 78 25 3d 28 6d 6f 78 25 2d 33 |....cxx%=(mox%-3| 00000c30 32 30 29 2f 31 36 30 2b 31 0d 06 e0 2d e7 6d 6f |20)/160+1...-.mo| 00000c40 79 25 3e 38 33 36 20 63 79 79 25 3d 30 20 8b 63 |y%>836 cyy%=0 .c| 00000c50 79 79 25 3d 28 94 28 6d 6f 79 25 2d 38 33 36 29 |yy%=(.(moy%-836)| 00000c60 81 36 34 29 2b 31 0d 06 ea 13 e7 63 79 79 25 3e |.64)+1.....cyy%>| 00000c70 31 30 3a 63 79 79 25 3d 30 0d 06 f4 1b e7 63 78 |10:cyy%=0.....cx| 00000c80 78 25 3c 30 20 84 20 63 78 78 25 3e 36 20 63 78 |x%<0 . cxx%>6 cx| 00000c90 78 25 3d 30 0d 06 fe 1e e7 63 78 78 25 3c 3e 6f |x%=0.....cxx%<>o| 00000ca0 78 78 25 20 84 20 63 79 79 25 3c 3e 6f 79 79 25 |xx% . cyy%<>oyy%| 00000cb0 20 8c 0d 07 08 0d 6f 78 78 25 3d 63 78 78 25 0d | .....oxx%=cxx%.| 00000cc0 07 12 0d 6f 79 79 25 3d 63 79 79 25 0d 07 1c 17 |...oyy%=cyy%....| 00000cd0 61 24 3d 69 6e 66 6f 24 28 63 78 78 25 2c 63 79 |a$=info$(cxx%,cy| 00000ce0 79 25 29 0d 07 26 0c e7 61 24 3e 22 22 20 8c 0d |y%)..&..a$>"" ..| 00000cf0 07 30 46 e7 6e 69 67 25 20 f2 69 6e 66 6f 72 6d |.0F.nig% .inform| 00000d00 61 74 69 6f 6e 28 22 41 54 33 20 4c 65 76 65 6c |ation("AT3 Level| 00000d10 20 22 2b 61 24 29 20 8b f2 69 6e 66 6f 72 6d 61 | "+a$) ..informa| 00000d20 74 69 6f 6e 28 c1 61 24 2c a7 61 24 2c 22 29 22 |tion(.a$,.a$,")"| 00000d30 29 2b 32 29 29 0d 07 3a 05 cc 0d 07 44 14 f2 69 |)+2))..:....D..i| 00000d40 6e 66 6f 72 6d 61 74 69 6f 6e 28 22 22 29 0d 07 |nformation("")..| 00000d50 4e 05 cd 0d 07 58 05 cd 0d 07 62 14 f2 61 63 68 |N....X....b..ach| 00000d60 69 65 76 65 64 69 73 63 64 75 6d 70 0d 07 6c 15 |ievediscdump..l.| 00000d70 f2 61 63 68 69 65 76 65 70 72 69 6e 74 64 75 6d |.achieveprintdum| 00000d80 70 0d 07 76 18 f2 61 6c 6c 61 63 68 69 65 76 65 |p..v..allachieve| 00000d90 70 72 69 6e 74 64 75 6d 70 0d 07 80 0c fd 20 a4 |printdump..... .| 00000da0 6c 65 61 76 65 0d 07 8a 05 e1 0d 07 94 15 dd f2 |leave...........| 00000db0 69 6e 66 6f 72 6d 61 74 69 6f 6e 28 74 24 29 0d |information(t$).| 00000dc0 07 9e 0c e7 70 24 3d 74 24 3a e1 0d 07 a8 09 70 |....p$=t$:.....p| 00000dd0 24 3d 74 24 0d 07 b2 0a e6 20 30 2c 31 31 0d 07 |$=t$..... 0,11..| 00000de0 bc 07 ef 20 35 0d 07 c6 06 c8 96 0d 07 d0 15 c8 |... 5...........| 00000df0 93 c8 90 20 30 2c 39 36 2c 31 32 37 38 2c 36 34 |... 0,96,1278,64| 00000e00 0d 07 da 09 e6 20 30 2c 30 0d 07 e4 13 c8 93 20 |..... 0,0...... | 00000e10 30 2c 39 36 2c 31 32 37 38 2c 36 34 0d 07 ee 15 |0,96,1278,64....| 00000e20 ec 20 36 34 30 2d a9 28 74 24 29 2a 38 2c 31 34 |. 640-.(t$)*8,14| 00000e30 30 0d 07 f8 07 f1 74 24 0d 08 02 07 ef 20 34 0d |0.....t$..... 4.| 00000e40 08 0c 05 87 0d 08 16 05 e1 0d 08 20 22 dd f2 63 |........... "..c| 00000e50 61 72 64 28 74 24 2c 74 61 78 25 2c 74 61 79 25 |ard(t$,tax%,tay%| 00000e60 2c 73 64 78 25 2c 73 64 79 25 29 0d 08 2a 07 ef |,sdx%,sdy%)..*..| 00000e70 20 35 0d 08 34 09 e6 20 30 2c 38 0d 08 3e 2d c8 | 5..4.. 0,8..>-.| 00000e80 93 c8 90 20 74 61 78 25 2a 67 25 2c 74 61 79 25 |... tax%*g%,tay%| 00000e90 2a 67 25 2c 73 64 78 25 2a 31 36 30 2b 31 36 30 |*g%,sdx%*160+160| 00000ea0 2c 73 64 79 25 2a 36 34 0d 08 48 0a e6 20 30 2c |,sdy%*64..H.. 0,| 00000eb0 31 31 0d 08 52 31 c8 93 c8 90 20 74 61 78 25 2a |11..R1.... tax%*| 00000ec0 67 25 2b 33 32 30 2c 74 61 79 25 2a 67 25 2c 73 |g%+320,tay%*g%,s| 00000ed0 64 78 25 2a 31 36 30 2d 31 36 32 2c 73 64 79 25 |dx%*160-162,sdy%| 00000ee0 2a 36 34 0d 08 5c 09 e6 20 30 2c 30 0d 08 66 33 |*64..\.. 0,0..f3| 00000ef0 e7 73 64 78 25 2a 31 36 30 2b 31 36 30 3e 31 32 |.sdx%*160+160>12| 00000f00 37 39 20 73 78 65 25 3d 31 32 37 38 20 8b 73 78 |79 sxe%=1278 .sx| 00000f10 65 25 3d 73 64 78 25 2a 31 36 30 2b 31 36 30 0d |e%=sdx%*160+160.| 00000f20 08 70 23 c8 93 20 74 61 78 25 2a 67 25 2c 74 61 |.p#.. tax%*g%,ta| 00000f30 79 25 2a 67 25 2c 73 78 65 25 2c 73 64 79 25 2a |y%*g%,sxe%,sdy%*| 00000f40 36 34 0d 08 7a 0a e6 20 30 2c 31 33 0d 08 84 23 |64..z.. 0,13...#| 00000f50 ec 20 74 61 78 25 2a 67 25 2b 36 34 2c 74 61 79 |. tax%*g%+64,tay| 00000f60 25 2a 67 25 2b 73 64 79 25 2a 36 34 2b 36 34 0d |%*g%+sdy%*64+64.| 00000f70 08 8e 12 f0 20 30 2c a9 28 74 24 29 2a 67 25 2c |.... 0,.(t$)*g%,| 00000f80 30 0d 08 98 20 f0 20 38 35 2c 74 61 78 25 2a 67 |0... . 85,tax%*g| 00000f90 25 2c 74 61 79 25 2a 67 25 2b 73 64 79 25 2a 36 |%,tay%*g%+sdy%*6| 00000fa0 34 0d 08 a2 17 f0 20 38 31 2c 31 32 38 2b a9 28 |4..... 81,128+.(| 00000fb0 74 24 29 2a 67 25 2c 30 0d 08 ac 09 e6 20 30 2c |t$)*g%,0..... 0,| 00000fc0 30 0d 08 b6 1d ec 20 74 61 78 25 2a 67 25 2c 74 |0..... tax%*g%,t| 00000fd0 61 79 25 2a 67 25 2b 73 64 79 25 2a 36 34 0d 08 |ay%*g%+sdy%*64..| 00000fe0 c0 0d f0 20 31 2c 36 34 2c 36 34 0d 08 ca 12 f0 |... 1,64,64.....| 00000ff0 20 31 2c a9 28 74 24 29 2a 67 25 2c 30 0d 08 d4 | 1,.(t$)*g%,0...| 00001000 0e f0 20 31 2c 36 34 2c 2d 36 34 0d 08 de 23 ec |.. 1,64,-64...#.| 00001010 20 74 61 78 25 2a 67 25 2b 36 34 2c 74 61 79 25 | tax%*g%+64,tay%| 00001020 2a 67 25 2b 73 64 79 25 2a 36 34 2b 34 34 0d 08 |*g%+sdy%*64+44..| 00001030 e8 07 f1 74 24 0d 08 f2 0f e3 4a 25 3d 31 b8 20 |...t$.....J%=1. | 00001040 73 64 78 25 0d 08 fc 20 ec 20 74 61 78 25 2a 67 |sdx%... . tax%*g| 00001050 25 2b 4a 25 2a 31 36 30 2b 31 36 30 2c 74 61 79 |%+J%*160+160,tay| 00001060 25 2a 67 25 0d 09 06 11 f0 20 31 2c 30 2c 73 64 |%*g%..... 1,0,sd| 00001070 79 25 2a 36 34 0d 09 10 05 ed 0d 09 1a 0f e3 4a |y%*64..........J| 00001080 25 3d 31 b8 20 73 64 79 25 0d 09 24 1b ec 20 74 |%=1. sdy%..$.. t| 00001090 61 78 25 2a 67 25 2c 74 61 79 25 2a 67 25 2b 4a |ax%*g%,tay%*g%+J| 000010a0 25 2a 36 34 0d 09 2e 16 f0 20 31 2c 73 64 78 25 |%*64..... 1,sdx%| 000010b0 2a 31 36 30 2b 31 36 30 2c 30 0d 09 38 05 ed 0d |*160+160,0..8...| 000010c0 09 42 07 ef 20 34 0d 09 4c 05 87 0d 09 56 05 e1 |.B.. 4..L....V..| 000010d0 0d 09 60 1c dd f2 66 69 6c 6c 61 63 68 69 65 76 |..`...fillachiev| 000010e0 65 28 74 61 78 25 2c 74 61 79 25 29 0d 09 6a 07 |e(tax%,tay%)..j.| 000010f0 ef 20 35 0d 09 74 0a f7 20 8d 44 7c 4b 0d 09 7e |. 5..t.. .D|K..~| 00001100 08 f3 20 74 24 0d 09 88 1f ec 20 74 61 78 25 2b |.. t$..... tax%+| 00001110 33 32 2c 31 30 32 34 2d 28 74 61 79 25 2a 67 25 |32,1024-(tay%*g%| 00001120 2b 35 32 29 0d 09 92 07 f1 74 24 0d 09 9c 0b e3 |+52).....t$.....| 00001130 4b 25 3d 31 b8 36 0d 09 a6 08 f3 20 74 24 0d 09 |K%=1.6..... t$..| 00001140 b0 34 ec 20 28 74 61 78 25 2b 33 32 2b 4b 25 2a |.4. (tax%+32+K%*| 00001150 31 36 30 2b 32 30 38 29 2d a9 28 74 24 29 2a 38 |160+208)-.(t$)*8| 00001160 2c 31 30 32 34 2d 28 74 61 79 25 2a 67 25 2b 35 |,1024-(tay%*g%+5| 00001170 32 29 0d 09 ba 07 f1 74 24 0d 09 c4 05 ed 0d 09 |2).....t$.......| 00001180 ce 0c e3 4a 25 3d 31 b8 31 30 0d 09 d8 09 e6 20 |...J%=1.10..... | 00001190 30 2c 30 0d 09 e2 08 f3 20 74 24 0d 09 ec 25 ec |0,0..... t$...%.| 000011a0 20 74 61 78 25 2b 33 32 2c 31 30 32 34 2d 28 74 | tax%+32,1024-(t| 000011b0 61 79 25 2a 67 25 2b 4a 25 2a 36 34 2b 35 32 29 |ay%*g%+J%*64+52)| 000011c0 0d 09 f6 07 f1 74 24 0d 0a 00 0b e3 4b 25 3d 31 |.....t$.....K%=1| 000011d0 b8 36 0d 0a 0a 17 66 61 78 25 3d 74 61 78 25 2b |.6....fax%=tax%+| 000011e0 33 32 2b 4b 25 2a 31 36 30 0d 0a 14 16 66 61 79 |32+K%*160....fay| 000011f0 25 3d 74 61 79 25 2a 67 25 2b 4a 25 2a 36 34 0d |%=tay%*g%+J%*64.| 00001200 0a 1e 26 e7 66 61 78 25 2b 31 35 36 3e 3d 31 31 |..&.fax%+156>=11| 00001210 30 30 20 77 69 64 25 3d 31 35 34 20 8b 77 69 64 |00 wid%=154 .wid| 00001220 25 3d 31 35 36 0d 0a 28 14 c8 8e 20 61 74 74 25 |%=156..(... att%| 00001230 28 4b 25 2c 4a 25 29 20 ca 0d 0a 32 07 c9 20 30 |(K%,J%) ...2.. 0| 00001240 0d 0a 3c 21 e7 69 6e 66 6f 24 28 4b 25 2c 4a 25 |..<!.info$(K%,J%| 00001250 29 3d 22 22 20 e6 20 30 2c 33 20 8b e6 20 30 2c |)="" . 0,3 .. 0,| 00001260 37 0d 0a 46 23 e7 73 74 61 74 75 73 25 28 31 29 |7..F#.status%(1)| 00001270 2b 73 74 61 74 75 73 25 28 32 29 3d 33 36 3a e6 |+status%(2)=36:.| 00001280 20 30 2c 38 0d 0a 50 19 e7 73 74 61 74 75 73 25 | 0,8..P..status%| 00001290 28 31 29 3d 33 36 3a e6 20 30 2c 31 30 0d 0a 5a |(1)=36:. 0,10..Z| 000012a0 19 e7 73 74 61 74 75 73 25 28 32 29 3d 33 36 3a |..status%(2)=36:| 000012b0 e6 20 30 2c 31 35 0d 0a 64 0e c9 20 31 3a e6 20 |. 0,15..d.. 1:. | 000012c0 30 2c 31 31 0d 0a 6e 0e c9 20 32 3a e6 20 30 2c |0,11..n.. 2:. 0,| 000012d0 31 34 0d 0a 78 20 c9 20 33 2c 34 2c 35 2c 36 2c |14..x . 3,4,5,6,| 000012e0 37 2c 38 2c 39 2c 31 30 2c 31 31 3a e6 20 30 2c |7,8,9,10,11:. 0,| 000012f0 31 30 0d 0a 82 0c 7f 3a e6 20 30 2c 31 35 0d 0a |10.....:. 0,15..| 00001300 8c 05 cb 0d 0a 96 28 c8 93 c8 90 20 66 61 78 25 |......(.... fax%| 00001310 2b 31 33 30 2c 31 30 32 34 2d 28 66 61 79 25 2b |+130,1024-(fay%+| 00001320 39 32 29 2c 77 69 64 25 2c 35 36 0d 0a a0 16 e7 |92),wid%,56.....| 00001330 69 6e 66 6f 24 28 4b 25 2c 4a 25 29 3e 22 22 20 |info$(K%,J%)>"" | 00001340 8c 0d 0a aa 0b e7 6e 69 67 25 20 8c 0d 0a b4 09 |......nig% .....| 00001350 e6 20 30 2c 37 0d 0a be 1d ec 20 66 61 78 25 2b |. 0,7..... fax%+| 00001360 31 37 32 2c 31 30 32 30 2d 28 66 61 79 25 2b 35 |172,1020-(fay%+5| 00001370 32 29 0d 0a c8 28 f1 c0 69 6e 66 6f 24 28 4b 25 |2)...(..info$(K%| 00001380 2c 4a 25 29 2c a7 69 6e 66 6f 24 28 4b 25 2c 4a |,J%),.info$(K%,J| 00001390 25 29 2c 22 28 22 29 2d 32 29 0d 0a d2 09 e6 20 |%),"(")-2)..... | 000013a0 30 2c 30 0d 0a dc 1d ec 20 66 61 78 25 2b 31 37 |0,0..... fax%+17| 000013b0 34 2c 31 30 32 34 2d 28 66 61 79 25 2b 35 32 29 |4,1024-(fay%+52)| 000013c0 0d 0a e6 28 f1 c0 69 6e 66 6f 24 28 4b 25 2c 4a |...(..info$(K%,J| 000013d0 25 29 2c a7 69 6e 66 6f 24 28 4b 25 2c 4a 25 29 |%),.info$(K%,J%)| 000013e0 2c 22 28 22 29 2d 32 29 0d 0a f0 05 cc 0d 0a fa |,"(")-2)........| 000013f0 09 e6 20 30 2c 37 0d 0b 04 1d ec 20 66 61 78 25 |.. 0,7..... fax%| 00001400 2b 32 30 32 2c 31 30 32 30 2d 28 66 61 79 25 2b |+202,1020-(fay%+| 00001410 35 32 29 0d 0b 0e 10 f1 62 75 66 25 28 4b 25 2c |52).....buf%(K%,| 00001420 4a 25 29 0d 0b 18 09 e6 20 30 2c 30 0d 0b 22 1d |J%)..... 0,0..".| 00001430 ec 20 66 61 78 25 2b 32 30 34 2c 31 30 32 34 2d |. fax%+204,1024-| 00001440 28 66 61 79 25 2b 35 32 29 0d 0b 2c 10 f1 62 75 |(fay%+52)..,..bu| 00001450 66 25 28 4b 25 2c 4a 25 29 0d 0b 36 05 cd 0d 0b |f%(K%,J%)..6....| 00001460 40 05 cd 0d 0b 4a 05 ed 0d 0b 54 05 ed 0d 0b 5e |@....J....T....^| 00001470 07 ef 20 34 0d 0b 68 05 87 0d 0b 72 05 e1 0d 0b |.. 4..h....r....| 00001480 7c 45 dc 20 53 55 42 4a 45 43 54 2c 47 72 61 70 ||E. SUBJECT,Grap| 00001490 68 6f 69 64 2c 50 72 6f 63 65 73 73 6f 72 2c 43 |hoid,Processor,C| 000014a0 68 61 69 6e 20 55 70 2c 48 6f 6f 6b 20 49 74 21 |hain Up,Hook It!| 000014b0 2c 54 75 72 62 6f 20 52 61 66 74 2c 54 69 63 6b |,Turbo Raft,Tick| 000014c0 6c 65 72 0d 0b 86 43 dc 20 50 61 74 74 65 72 6e |ler...C. Pattern| 000014d0 73 20 61 6e 64 20 53 65 71 2c 53 79 6d 62 6f 6c |s and Seq,Symbol| 000014e0 73 2c 46 6f 72 6d 75 6c 61 65 20 61 6e 64 20 45 |s,Formulae and E| 000014f0 71 75 2c 43 6f 2d 6f 72 64 69 6e 61 74 65 73 2c |qu,Co-ordinates,| 00001500 47 72 61 70 68 73 0d 0b 90 43 dc 20 4f 70 65 72 |Graphs...C. Oper| 00001510 61 74 69 6f 6e 73 2c 4d 61 70 70 69 6e 67 73 20 |ations,Mappings | 00001520 61 6e 64 20 46 6e 73 2c 49 6e 65 71 75 61 6c 69 |and Fns,Inequali| 00001530 74 69 65 73 2c 49 6e 74 65 72 70 72 65 74 61 74 |ties,Interpretat| 00001540 69 6f 6e 2c 57 6f 72 64 73 0d 0b 9a 13 dd f2 63 |ion,Words......c| 00001550 65 6e 74 28 74 24 2c 74 61 79 25 29 0d 0b a4 19 |ent(t$,tay%)....| 00001560 f1 8a 34 31 2d a9 28 74 24 29 81 32 2c 74 61 79 |..41-.(t$).2,tay| 00001570 25 29 74 24 3b 0d 0b ae 05 e1 0d 0b b8 13 dd f2 |%)t$;...........| 00001580 6d 65 73 73 28 74 24 2c 63 6f 6c 25 29 0d 0b c2 |mess(t$,col%)...| 00001590 0c e6 20 30 2c 63 6f 6c 25 0d 0b cc 07 ef 20 35 |.. 0,col%..... 5| 000015a0 0d 0b d6 06 c8 96 0d 0b e0 14 c8 93 c8 90 20 30 |.............. 0| 000015b0 2c 30 2c 31 32 37 38 2c 36 34 0d 0b ea 09 e6 20 |,0,1278,64..... | 000015c0 30 2c 30 0d 0b f4 12 c8 93 20 30 2c 30 2c 31 32 |0,0...... 0,0,12| 000015d0 37 38 2c 36 34 0d 0b fe 14 ec 20 36 34 30 2d a9 |78,64..... 640-.| 000015e0 28 74 24 29 2a 38 2c 34 34 0d 0c 08 07 f1 74 24 |(t$)*8,44.....t$| 000015f0 0d 0c 12 07 ef 20 34 0d 0c 1c 05 87 0d 0c 26 05 |..... 4.......&.| 00001600 e1 0d 0c 30 0b dd f2 65 72 72 6f 72 0d 0c 3a 07 |...0...error..:.| 00001610 ea 20 85 0d 0c 44 0c ef 20 33 2c 32 36 2c 37 0d |. ...D.. 3,26,7.| 00001620 0c 4e 0a 2a 43 4c 4f 53 45 0d 0c 58 17 c8 99 22 |.N.*CLOSE..X..."| 00001630 48 6f 75 72 67 6c 61 73 73 5f 53 6d 61 73 68 22 |Hourglass_Smash"| 00001640 0d 0c 62 08 c8 97 20 87 0d 0c 6c 15 c8 99 22 41 |..b... ...l..."A| 00001650 42 43 5f 43 6f 6c 6f 75 72 22 2c 31 35 0d 0c 76 |BC_Colour",15..v| 00001660 1a e7 9f 3e 26 31 30 37 46 46 20 80 20 9f 3c 26 |...>&107FF . .<&| 00001670 31 30 39 30 30 20 8c 0d 0c 80 31 f2 6d 65 73 73 |10900 ....1.mess| 00001680 28 22 46 49 4c 49 4e 47 20 53 59 53 54 45 4d 20 |("FILING SYSTEM | 00001690 52 45 50 4f 52 54 53 20 45 52 52 4f 52 20 3a 20 |REPORTS ERROR : | 000016a0 22 2b f6 24 2c 31 31 29 0d 0c 8a 0f f2 64 65 6c |"+.$,11).....del| 000016b0 61 79 28 31 35 30 29 0d 0c 94 07 ef 20 37 0d 0c |ay(150)..... 7..| 000016c0 9e 54 f2 6d 65 73 73 28 22 50 4c 45 41 53 45 20 |.T.mess("PLEASE | 000016d0 43 48 45 43 4b 20 44 49 53 43 20 49 4e 20 44 52 |CHECK DISC IN DR| 000016e0 49 56 45 20 41 4e 44 20 4e 4f 54 20 57 52 49 54 |IVE AND NOT WRIT| 000016f0 45 20 50 52 4f 54 45 43 54 45 44 20 54 48 45 4e |E PROTECTED THEN| 00001700 20 50 52 45 53 53 20 52 45 54 55 52 4e 22 2c 31 | PRESS RETURN",1| 00001710 31 29 0d 0c a8 05 f5 0d 0c b2 0a fd 20 a6 2d 37 |1).......... .-7| 00001720 34 0d 0c bc 05 cd 0d 0c c6 10 ee 20 85 20 ea 20 |4.......... . . | 00001730 e5 20 8d 44 44 4c 0d 0c d0 1a 68 25 3d ae 28 66 |. .DDL....h%=.(f| 00001740 24 2b 22 4d 69 73 63 2e 53 69 67 6e 61 6c 22 29 |$+"Misc.Signal")| 00001750 0d 0c da 0b f1 23 68 25 2c 22 22 0d 0c e4 08 d9 |.....#h%,"".....| 00001760 23 68 25 0d 0c ee 1d 2a 44 49 52 20 3c 44 69 73 |#h%....*DIR <Dis| 00001770 63 32 24 44 69 72 3e 2e 53 69 78 47 61 6d 65 73 |c2$Dir>.SixGames| 00001780 0d 0c f8 07 f7 20 85 0d 0d 02 15 c8 99 22 41 42 |..... ......."AB| 00001790 43 5f 43 6f 6c 6f 75 72 22 2c 31 35 0d 0d 0c 05 |C_Colour",15....| 000017a0 f9 0d 0d 16 05 e1 0d 0d 20 16 dd f2 70 72 69 6e |........ ...prin| 000017b0 74 63 65 72 74 69 66 69 63 61 74 65 0d 0d 2a 15 |tcertificate..*.| 000017c0 c8 99 22 41 42 43 5f 43 6f 6c 6f 75 72 22 2c 31 |.."ABC_Colour",1| 000017d0 35 0d 0d 34 08 c8 97 20 87 0d 0d 3e 0a 61 63 68 |5..4... ...>.ach| 000017e0 25 3d b9 0d 0d 48 0c e3 4a 25 3d 31 b8 31 30 0d |%=...H..J%=1.10.| 000017f0 0d 52 0b e3 4b 25 3d 31 b8 36 0d 0d 5c 19 e7 61 |.R..K%=1.6..\..a| 00001800 74 74 25 28 4b 25 2c 4a 25 29 3e 32 3a 61 63 68 |tt%(K%,J%)>2:ach| 00001810 25 3d a3 0d 0d 66 05 ed 0d 0d 70 05 ed 0d 0d 7a |%=...f....p....z| 00001820 0b e7 61 63 68 25 20 8c 0d 0d 84 3c f2 6d 65 73 |..ach% ....<.mes| 00001830 73 28 22 4e 6f 74 68 69 6e 67 20 61 63 68 69 65 |s("Nothing achie| 00001840 76 65 64 20 61 74 20 70 72 65 73 65 6e 74 20 2d |ved at present -| 00001850 20 72 65 74 75 72 6e 20 74 6f 20 6d 65 6e 75 22 | return to menu"| 00001860 2c 31 31 29 0d 0d 8e 05 f5 0d 0d 98 15 c8 97 20 |,11)........... | 00001870 6d 6f 78 25 2c 6d 6f 79 25 2c 62 75 74 25 0d 0d |mox%,moy%,but%..| 00001880 a2 0c fd 20 62 75 74 25 3d 30 0d 0d ac 05 f5 0d |... but%=0......| 00001890 0d b6 0c fd 20 a4 6c 65 61 76 65 0d 0d c0 05 cc |.... .leave.....| 000018a0 0d 0d ca 09 f2 62 75 73 79 0d 0d d4 05 f5 0d 0d |.....busy.......| 000018b0 de 0c fd 20 a4 6c 65 61 76 65 0d 0d e8 05 cd 0d |... .leave......| 000018c0 0d f2 05 e1 0d 0d fc 0a dd f2 62 75 73 79 0d 0e |..........busy..| 000018d0 06 2b f2 6d 65 73 73 28 22 53 63 72 65 65 6e 2f |.+.mess("Screen/| 000018e0 50 72 69 6e 74 65 72 2f 44 69 73 63 20 28 53 2f |Printer/Disc (S/| 000018f0 50 2f 44 29 22 2c 31 31 29 0d 0e 10 0b 2a 46 58 |P/D)",11)....*FX| 00001900 32 31 20 30 0d 0e 1a 05 f5 0d 0e 24 0b 6b 25 3d |21 0.......$.k%=| 00001910 a6 28 30 29 0d 0e 2e 16 e7 6b 25 3e 3d 97 28 22 |.(0).....k%>=.("| 00001920 61 22 29 3a 6b 25 2d 3d 33 32 0d 0e 38 2f fd 20 |a"):k%-=32..8/. | 00001930 6b 25 3d 97 28 22 53 22 29 20 84 20 6b 25 3d 97 |k%=.("S") . k%=.| 00001940 28 22 50 22 29 20 84 20 6b 25 3d 97 28 22 44 22 |("P") . k%=.("D"| 00001950 29 20 84 20 a6 2d 31 31 33 0d 0e 42 13 e7 a6 2d |) . .-113..B...-| 00001960 31 31 33 3a f2 66 6c 75 73 68 3a e1 0d 0e 4c 07 |113:.flush:...L.| 00001970 ef 20 37 0d 0e 56 11 e7 6b 25 3c 3e 97 28 22 50 |. 7..V..k%<>.("P| 00001980 22 29 20 8c 0d 0e 60 23 f2 6d 65 73 73 28 22 54 |") ...`#.mess("T| 00001990 65 78 74 2f 47 72 61 70 68 69 63 73 20 28 54 2f |ext/Graphics (T/| 000019a0 47 29 22 2c 31 31 29 0d 0e 6a 05 f5 0d 0e 74 0b |G)",11)..j....t.| 000019b0 74 25 3d a6 28 30 29 0d 0e 7e 16 e7 74 25 3e 3d |t%=.(0)..~..t%>=| 000019c0 97 28 22 61 22 29 3a 74 25 2d 3d 33 32 0d 0e 88 |.("a"):t%-=32...| 000019d0 23 fd 20 74 25 3d 97 28 22 54 22 29 20 84 20 74 |#. t%=.("T") . t| 000019e0 25 3d 97 28 22 47 22 29 20 84 20 a6 2d 31 31 33 |%=.("G") . .-113| 000019f0 0d 0e 92 05 cc 0d 0e 9c 0d 74 25 3d 97 28 22 54 |.........t%=.("T| 00001a00 22 29 0d 0e a6 05 cd 0d 0e b0 13 e7 a6 2d 31 31 |")...........-11| 00001a10 33 3a f2 66 6c 75 73 68 3a e1 0d 0e ba 2f e7 74 |3:.flush:..../.t| 00001a20 25 3d 97 28 22 54 22 29 20 f2 61 63 68 69 65 76 |%=.("T") .achiev| 00001a30 65 5f 74 65 78 74 20 8b f2 61 63 68 69 65 76 65 |e_text ..achieve| 00001a40 5f 67 72 61 70 68 69 63 73 0d 0e c4 18 e7 6b 25 |_graphics.....k%| 00001a50 3d 97 28 22 44 22 29 3a f2 64 69 73 63 64 75 6d |=.("D"):.discdum| 00001a60 70 0d 0e ce 1c e7 6b 25 3d 97 28 22 50 22 29 3a |p.....k%=.("P"):| 00001a70 f2 70 72 69 6e 74 65 72 5f 64 75 6d 70 0d 0e d8 |.printer_dump...| 00001a80 05 e1 0d 0e e2 16 dd f2 61 63 68 69 65 76 65 5f |........achieve_| 00001a90 67 72 61 70 68 69 63 73 0d 0e ec 13 c8 99 22 41 |graphics......"A| 00001aa0 42 43 5f 42 6c 61 6e 6b 22 2c 33 0d 0e f6 14 c8 |BC_Blank",3.....| 00001ab0 99 22 41 42 43 5f 43 6f 6c 6f 75 72 22 2c 33 0d |."ABC_Colour",3.| 00001ac0 0f 00 0a e6 20 30 2c 31 32 0d 0f 0a 17 c8 93 c8 |.... 0,12.......| 00001ad0 90 20 31 38 34 2c 36 34 2c 39 37 34 2c 39 33 32 |. 184,64,974,932| 00001ae0 0d 0f 14 09 e6 20 30 2c 37 0d 0f 1e 15 c8 93 20 |..... 0,7...... | 00001af0 31 38 34 2c 36 34 2c 39 37 36 2c 39 33 32 0d 0f |184,64,976,932..| 00001b00 28 07 fb 20 30 0d 0f 32 09 fb 20 31 34 30 0d 0f |(.. 0..2.. 140..| 00001b10 3c 22 c8 99 22 41 42 43 5f 53 70 72 69 74 65 22 |<".."ABC_Sprite"| 00001b20 2c 62 25 2c 22 77 61 78 22 2c 34 34 34 2c 37 30 |,b%,"wax",444,70| 00001b30 0d 0f 46 24 c8 99 22 41 42 43 5f 53 70 72 69 74 |..F$.."ABC_Sprit| 00001b40 65 22 2c 62 25 2c 22 73 6d 61 6c 6c 22 2c 31 32 |e",b%,"small",12| 00001b50 30 2c 36 34 0d 0f 50 25 c8 99 22 41 42 43 5f 53 |0,64..P%.."ABC_S| 00001b60 70 72 69 74 65 22 2c 62 25 2c 22 73 6d 61 6c 6c |prite",b%,"small| 00001b70 22 2c 34 32 30 2c 32 31 34 0d 0f 5a 0d f2 77 6f |",420,214..Z..wo| 00001b80 72 64 73 28 b9 29 0d 0f 64 13 c8 99 22 41 42 43 |rds(.)..d..."ABC| 00001b90 5f 50 61 6c 65 74 74 65 22 0d 0f 6e 05 e1 0d 0f |_Palette"..n....| 00001ba0 78 12 dd f2 61 63 68 69 65 76 65 5f 74 65 78 74 |x...achieve_text| 00001bb0 0d 0f 82 14 c8 99 22 41 42 43 5f 42 6c 61 6e 6b |......"ABC_Blank| 00001bc0 22 2c 31 32 0d 0f 8c 15 c8 99 22 41 42 43 5f 43 |",12......"ABC_C| 00001bd0 6f 6c 6f 75 72 22 2c 31 32 0d 0f 96 07 fb 20 37 |olour",12..... 7| 00001be0 0d 0f a0 09 fb 20 31 34 30 0d 0f aa 15 f2 63 65 |..... 140.....ce| 00001bf0 6e 74 28 c4 36 37 2c 22 2a 22 29 2c 30 29 0d 0f |nt(.67,"*"),0)..| 00001c00 b4 0c e3 4a 25 3d 31 b8 32 39 0d 0f be 18 f1 8a |...J%=1.29......| 00001c10 38 2c 4a 25 29 22 2a 22 8a 37 34 2c 4a 25 29 22 |8,J%)"*".74,J%)"| 00001c20 2a 22 0d 0f c8 05 ed 0d 0f d2 16 f2 63 65 6e 74 |*"..........cent| 00001c30 28 c4 36 37 2c 22 2a 22 29 2c 33 30 29 0d 0f dc |(.67,"*"),30)...| 00001c40 0d f2 77 6f 72 64 73 28 a3 29 0d 0f e6 13 c8 99 |..words(.)......| 00001c50 22 41 42 43 5f 50 61 6c 65 74 74 65 22 0d 0f f0 |"ABC_Palette"...| 00001c60 05 e1 0d 0f fa 11 dd f2 77 6f 72 64 73 28 66 61 |........words(fa| 00001c70 6e 25 29 0d 10 04 07 fb 20 37 0d 10 0e 0b e7 66 |n%)..... 7.....f| 00001c80 61 6e 25 20 8c 0d 10 18 27 c8 99 22 41 42 43 5f |an% ....'.."ABC_| 00001c90 53 70 72 69 74 65 22 2c 62 25 2c 22 63 65 72 74 |Sprite",b%,"cert| 00001ca0 69 66 79 22 2c 31 31 38 2c 32 34 38 0d 10 22 09 |ify",118,248..".| 00001cb0 fb 20 31 33 37 0d 10 2c 16 61 24 3d a4 73 74 72 |. 137..,.a$=.str| 00001cc0 69 70 28 61 74 74 65 6e 64 24 29 0d 10 36 1a f1 |ip(attend$)..6..| 00001cd0 8a 34 32 2d a9 28 61 74 74 65 6e 64 24 29 81 32 |.42-.(attend$).2| 00001ce0 2c 34 29 61 24 0d 10 40 05 cc 0d 10 4a 27 f2 63 |,4)a$..@....J'.c| 00001cf0 65 6e 74 28 22 54 48 49 53 20 49 53 20 54 4f 20 |ent("THIS IS TO | 00001d00 43 45 52 54 49 46 59 20 54 48 41 54 20 22 2c 32 |CERTIFY THAT ",2| 00001d10 29 0d 10 54 09 fb 20 31 34 30 0d 10 5e 16 61 24 |)..T.. 140..^.a$| 00001d20 3d a4 73 74 72 69 70 28 61 74 74 65 6e 64 24 29 |=.strip(attend$)| 00001d30 0d 10 68 0f f2 63 65 6e 74 28 61 24 2c 34 29 0d |..h..cent(a$,4).| 00001d40 10 72 05 cd 0d 10 7c 09 fb 20 31 34 30 0d 10 86 |.r....|.. 140...| 00001d50 1b f1 8a 31 38 2c 37 29 22 68 61 73 20 70 6c 61 |...18,7)"has pla| 00001d60 79 65 64 20 74 68 65 22 0d 10 90 1b f1 8a 31 38 |yed the"......18| 00001d70 2c 38 29 22 54 65 6e 20 6f 75 74 20 6f 66 20 54 |,8)"Ten out of T| 00001d80 65 6e 22 0d 10 9a 1c f1 8a 31 38 2c 39 29 22 4d |en"......18,9)"M| 00001d90 61 74 68 73 20 28 41 6c 67 65 62 72 61 29 22 0d |aths (Algebra)".| 00001da0 10 a4 1b f1 8a 31 38 2c 31 30 29 22 67 61 6d 65 |.....18,10)"game| 00001db0 73 20 61 6e 64 20 68 61 73 22 0d 10 ae 0b e7 6e |s and has".....n| 00001dc0 69 67 25 20 8c 0d 10 b8 38 f1 8a 31 38 2c 31 31 |ig% ....8..18,11| 00001dd0 29 22 61 63 68 69 65 76 65 64 20 31 30 30 25 20 |)"achieved 100% | 00001de0 61 74 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 |at the following| 00001df0 20 41 54 33 20 4c 65 76 65 6c 73 3a 22 0d 10 c2 | AT3 Levels:"...| 00001e00 05 cc 0d 10 cc 22 e7 76 65 72 25 20 61 24 3d 22 |.....".ver% a$="| 00001e10 67 72 61 64 65 73 22 20 8b 61 24 3d 22 6c 65 76 |grades" .a$="lev| 00001e20 65 6c 73 22 0d 10 d6 30 f1 8a 31 38 2c 31 31 29 |els"...0..18,11)| 00001e30 22 61 63 68 69 65 76 65 64 20 31 30 30 25 20 61 |"achieved 100% a| 00001e40 74 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 |t the following | 00001e50 22 2b 61 24 0d 10 e0 05 cd 0d 10 ea 13 f2 63 65 |"+a$..........ce| 00001e60 6e 74 28 a4 64 61 74 65 2c 32 35 29 0d 10 f4 20 |nt(.date,25)... | 00001e70 f2 63 65 6e 74 28 22 43 65 72 74 69 66 69 63 61 |.cent("Certifica| 00001e80 74 65 20 66 72 6f 6d 22 2c 32 37 29 0d 10 fe 29 |te from",27)...)| 00001e90 f2 63 65 6e 74 28 22 31 30 2f 31 30 20 45 64 75 |.cent("10/10 Edu| 00001ea0 63 61 74 69 6f 6e 61 6c 20 53 79 73 74 65 6d 73 |cational Systems| 00001eb0 22 2c 32 38 29 0d 11 08 0a 74 61 79 25 3d 30 0d |",28)....tay%=0.| 00001ec0 11 12 0c e3 4a 25 3d 31 b8 31 30 0d 11 1c 08 4b |....J%=1.10....K| 00001ed0 25 3d 31 0d 11 26 0a 66 6e 64 25 3d a3 0d 11 30 |%=1..&.fnd%=...0| 00001ee0 13 c8 95 20 4b 25 3c 37 20 80 20 ac 66 6e 64 25 |... K%<7 . .fnd%| 00001ef0 0d 11 3a 4b e7 61 74 74 25 28 4b 25 2c 4a 25 29 |..:K.att%(K%,J%)| 00001f00 3e 32 20 80 20 c0 69 6e 66 6f 24 28 4b 25 2c 4a |>2 . .info$(K%,J| 00001f10 25 29 2c a7 69 6e 66 6f 24 28 4b 25 2c 4a 25 29 |%),.info$(K%,J%)| 00001f20 2c 22 29 22 29 2d 32 29 3c 3e 22 22 3a 74 61 79 |,")")-2)<>"":tay| 00001f30 25 2b 3d 31 3a 66 6e 64 25 3d b9 0d 11 44 09 4b |%+=1:fnd%=...D.K| 00001f40 25 2b 3d 31 0d 11 4e 05 ce 0d 11 58 05 ed 0d 11 |%+=1..N....X....| 00001f50 62 0a f7 20 8d 74 46 4b 0d 11 6c 12 74 61 79 25 |b.. .tFK..l.tay%| 00001f60 3d 31 38 2d 74 61 79 25 81 32 0d 11 76 0c e3 4a |=18-tay%.2..v..J| 00001f70 25 3d 31 b8 31 30 0d 11 80 08 f3 20 62 24 0d 11 |%=1.10..... b$..| 00001f80 8a 0d 73 69 78 24 28 29 3d 22 22 0d 11 94 0b e3 |..six$()="".....| 00001f90 4b 25 3d 31 b8 36 0d 11 9e 43 e7 6e 69 67 25 20 |K%=1.6...C.nig% | 00001fa0 79 24 3d c0 69 6e 66 6f 24 28 4b 25 2c 4a 25 29 |y$=.info$(K%,J%)| 00001fb0 2c a7 69 6e 66 6f 24 28 4b 25 2c 4a 25 29 2c 22 |,.info$(K%,J%),"| 00001fc0 28 22 29 2d 32 29 20 8b 79 24 3d c3 28 62 75 66 |(")-2) .y$=.(buf| 00001fd0 25 28 4b 25 2c 4a 25 29 29 0d 11 a8 27 e7 61 74 |%(K%,J%))...'.at| 00001fe0 74 25 28 4b 25 2c 4a 25 29 3e 32 20 80 20 79 24 |t%(K%,J%)>2 . y$| 00001ff0 3e 22 30 22 3a 73 69 78 24 28 4b 25 29 3d 79 24 |>"0":six$(K%)=y$| 00002000 0d 11 b2 05 ed 0d 11 bc 05 f5 0d 11 c6 0a 73 72 |..............sr| 00002010 74 25 3d b9 0d 11 d0 0b e3 4b 25 3d 31 b8 35 0d |t%=......K%=1.5.| 00002020 11 da 36 e7 73 69 78 24 28 4b 25 29 3c 73 69 78 |..6.six$(K%)<six| 00002030 24 28 4b 25 2b 31 29 3a c8 94 20 73 69 78 24 28 |$(K%+1):.. six$(| 00002040 4b 25 29 2c 73 69 78 24 28 4b 25 2b 31 29 3a 73 |K%),six$(K%+1):s| 00002050 72 74 25 3d a3 0d 11 e4 05 ed 0d 11 ee 0a fd 20 |rt%=........... | 00002060 73 72 74 25 0d 11 f8 09 61 24 3d 22 22 0d 12 02 |srt%....a$=""...| 00002070 0b e3 4b 25 3d 31 b8 36 0d 12 0c 22 e7 73 69 78 |..K%=1.6...".six| 00002080 24 28 4b 25 29 3c 3e 22 22 3a 61 24 2b 3d 73 69 |$(K%)<>"":a$+=si| 00002090 78 24 28 4b 25 29 2b 22 2c 22 0d 12 16 05 ed 0d |x$(K%)+","......| 000020a0 12 20 15 e7 c2 61 24 29 3d 22 2c 22 3a 61 24 3d |. ...a$)=",":a$=| 000020b0 c0 61 24 29 0d 12 2a 0d e7 61 24 3c 3e 22 22 20 |.a$)..*..a$<>"" | 000020c0 8c 0d 12 34 29 f1 8a 31 38 2c 74 61 79 25 29 62 |...4)..18,tay%)b| 000020d0 24 8a 33 36 2c 74 61 79 25 29 22 2e 2e 2e 22 8a |$.36,tay%)"...".| 000020e0 34 30 2c 74 61 79 25 29 61 24 0d 12 3e 0b 74 61 |40,tay%)a$..>.ta| 000020f0 79 25 2b 3d 31 0d 12 48 05 cd 0d 12 52 05 ed 0d |y%+=1..H....R...| 00002100 12 5c 05 e1 0d 12 66 0e dd f2 64 69 73 63 64 75 |.\....f...discdu| 00002110 6d 70 0d 12 70 07 ef 20 37 0d 12 7a 08 c8 97 20 |mp..p.. 7..z... | 00002120 87 0d 12 84 07 ea 20 85 0d 12 8e 20 c8 99 22 41 |...... .... .."A| 00002130 42 43 5f 54 72 61 6e 73 66 65 72 22 2c 30 2c 31 |BC_Transfer",0,1| 00002140 36 2c 36 34 30 2c 31 37 0d 12 98 27 f2 69 6e 70 |6,640,17...'.inp| 00002150 75 74 28 33 32 2c 22 61 64 66 73 3a 3a 30 2e 24 |ut(32,"adfs::0.$| 00002160 2e 22 2b 61 74 74 65 6e 64 24 2c a3 2c b9 29 0d |."+attend$,.,.).| 00002170 12 a2 13 c8 99 22 41 42 43 5f 52 65 73 74 6f 72 |....."ABC_Restor| 00002180 65 22 0d 12 ac 13 e7 65 73 63 25 20 84 20 69 24 |e".....esc% . i$| 00002190 3d 22 22 3a e1 0d 12 b6 14 c8 99 22 48 6f 75 72 |="":......."Hour| 000021a0 67 6c 61 73 73 5f 4f 6e 22 0d 12 c0 15 ff 22 53 |glass_On"....."S| 000021b0 43 52 45 45 4e 53 41 56 45 20 22 2b 69 24 0d 12 |CREENSAVE "+i$..| 000021c0 ca 17 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 53 |...."Hourglass_S| 000021d0 6d 61 73 68 22 0d 12 d4 50 ee 20 85 20 ea 3a ef |mash"...P. . .:.| 000021e0 20 37 3a f2 6d 65 73 73 28 22 50 4c 45 41 53 45 | 7:.mess("PLEASE| 000021f0 20 49 4e 53 45 52 54 20 44 49 53 43 20 49 4e 54 | INSERT DISC INT| 00002200 4f 20 44 52 49 56 45 20 41 4e 44 20 50 52 45 53 |O DRIVE AND PRES| 00002210 53 20 52 45 54 55 52 4e 22 2c 38 29 3a f5 3a fd |S RETURN",8):.:.| 00002220 20 a6 2d 37 34 0d 12 de 1d 2a 44 49 52 20 3c 44 | .-74....*DIR <D| 00002230 69 73 63 32 24 44 69 72 3e 2e 53 69 78 47 61 6d |isc2$Dir>.SixGam| 00002240 65 73 0d 12 e8 13 c8 99 22 41 42 43 5f 52 65 73 |es......"ABC_Res| 00002250 74 6f 72 65 22 0d 12 f2 10 c8 97 20 b8 20 36 34 |tore"...... . 64| 00002260 30 2c 35 31 32 0d 12 fc 0b f2 6d 6f 75 73 65 31 |0,512.....mouse1| 00002270 0d 13 06 05 e1 0d 13 10 12 dd f2 70 72 69 6e 74 |...........print| 00002280 65 72 5f 64 75 6d 70 0d 13 1a 07 ef 20 32 0d 13 |er_dump..... 2..| 00002290 24 0c e3 4a 25 3d 30 b8 33 30 0d 13 2e 0c e3 4b |$..J%=0.30.....K| 000022a0 25 3d 30 b8 37 39 0d 13 38 0e ef 20 33 31 2c 4b |%=0.79..8.. 31,K| 000022b0 25 2c 4a 25 0d 13 42 1b c8 99 22 4f 53 5f 42 79 |%,J%..B..."OS_By| 000022c0 74 65 22 2c 31 33 35 20 b8 20 2c 72 65 73 25 0d |te",135 . ,res%.| 000022d0 13 4c 0a ef 20 72 65 73 25 0d 13 56 05 ed 0d 13 |.L.. res%..V....| 000022e0 60 12 e7 4a 25 3c 33 30 3a ef 20 31 33 2c 31 30 |`..J%<30:. 13,10| 000022f0 0d 13 6a 05 ed 0d 13 74 07 ef 20 33 0d 13 7e 05 |..j....t.. 3..~.| 00002300 e1 0d 13 88 0a dd f2 6c 6f 61 64 0d 13 92 0a f2 |.......load.....| 00002310 6c 65 67 61 6c 0d 13 9c 12 e7 62 61 64 25 20 84 |legal.....bad% .| 00002320 20 65 73 63 25 3a e1 0d 13 a6 0e f2 67 72 69 64 | esc%:......grid| 00002330 63 68 65 63 6b 0d 13 b0 11 e7 61 24 3d 22 22 20 |check.....a$="" | 00002340 84 20 6b 25 3a e1 0d 13 ba 07 ef 20 37 0d 13 c4 |. k%:...... 7...| 00002350 0f 73 74 61 74 75 73 25 28 29 3d 30 0d 13 ce 3f |.status%()=0...?| 00002360 68 25 3d 8e 28 22 3c 44 69 73 63 32 24 44 69 72 |h%=.("<Disc2$Dir| 00002370 3e 2e 53 69 78 47 61 6d 65 73 2e 41 63 68 69 65 |>.SixGames.Achie| 00002380 76 65 2e 41 63 68 69 65 76 65 22 2b c3 28 63 6c |ve.Achieve"+.(cl| 00002390 61 25 29 2b 22 2e 22 2b 61 24 29 0d 13 d8 14 c8 |a%)+"."+a$).....| 000023a0 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d |."Hourglass_On".| 000023b0 13 e2 0c e3 4a 25 3d 31 b8 31 30 0d 13 ec 0b e3 |....J%=1.10.....| 000023c0 4b 25 3d 31 b8 36 0d 13 f6 0d e8 23 68 25 2c 62 |K%=1.6.....#h%,b| 000023d0 79 74 25 0d 14 00 14 61 74 74 25 28 4b 25 2c 4a |yt%....att%(K%,J| 000023e0 25 29 3d 62 79 74 25 0d 14 0a 23 e7 62 79 74 25 |%)=byt%...#.byt%| 000023f0 3e 32 20 80 20 62 79 74 25 3c 31 32 3a 73 74 61 |>2 . byt%<12:sta| 00002400 74 75 73 25 28 31 29 2b 3d 31 0d 14 14 1a e7 62 |tus%(1)+=1.....b| 00002410 79 74 25 3e 31 31 3a 73 74 61 74 75 73 25 28 32 |yt%>11:status%(2| 00002420 29 2b 3d 31 0d 14 1e 05 ed 0d 14 28 05 ed 0d 14 |)+=1.......(....| 00002430 32 08 d9 23 68 25 0d 14 3c 0e 61 74 74 65 6e 64 |2..#h%..<.attend| 00002440 24 3d 61 24 0d 14 46 13 68 25 3d ae 28 66 24 2b |$=a$..F.h%=.(f$+| 00002450 22 4e 61 6d 65 22 29 0d 14 50 10 f1 23 68 25 2c |"Name")..P..#h%,| 00002460 61 74 74 65 6e 64 24 0d 14 5a 08 d9 23 68 25 0d |attend$..Z..#h%.| 00002470 14 64 17 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f |.d..."Hourglass_| 00002480 53 6d 61 73 68 22 0d 14 6e 05 e1 0d 14 78 16 dd |Smash"..n....x..| 00002490 f2 73 6d 61 6c 6c 28 77 63 68 25 2c 63 6f 6c 25 |.small(wch%,col%| 000024a0 29 0d 14 82 0c e6 20 30 2c 63 6f 6c 25 0d 14 8c |)..... 0,col%...| 000024b0 33 c8 93 c8 90 20 28 77 63 68 25 3e 3e 34 29 2a |3.... (wch%>>4)*| 000024c0 32 35 36 2b 33 35 34 2c 39 36 34 2d 28 28 77 63 |256+354,964-((wc| 000024d0 68 25 80 26 46 29 3c 3c 36 29 2c 32 36 2c 33 32 |h%.&F)<<6),26,32| 000024e0 0d 14 96 05 e1 0d 14 a0 0c dd f2 63 72 65 61 74 |...........creat| 000024f0 65 0d 14 aa 0a f2 6c 65 67 61 6c 0d 14 b4 12 e7 |e.....legal.....| 00002500 62 61 64 25 20 84 20 65 73 63 25 3a e1 0d 14 be |bad% . esc%:....| 00002510 08 c8 97 20 87 0d 14 c8 15 c8 99 22 41 42 43 5f |... ......."ABC_| 00002520 43 6f 6c 6f 75 72 22 2c 31 35 0d 14 d2 1f f2 6d |Colour",15.....m| 00002530 65 73 73 28 22 4e 65 77 20 70 6c 61 79 65 72 20 |ess("New player | 00002540 6e 61 6d 65 22 2c 31 31 29 0d 14 dc 0e f2 64 65 |name",11).....de| 00002550 6c 61 79 28 35 30 29 0d 14 e6 14 f2 69 6e 70 75 |lay(50).....inpu| 00002560 74 28 38 2c 22 22 2c b9 2c a3 29 0d 14 f0 11 c8 |t(8,"",.,.).....| 00002570 95 20 a7 69 24 2c 22 20 22 29 3e 30 0d 14 fa 15 |. .i$," ")>0....| 00002580 c1 69 24 2c a7 69 24 2c 22 20 22 29 29 3d 22 5f |.i$,.i$," "))="_| 00002590 22 0d 15 04 05 ce 0d 15 0e 0b e7 65 73 63 25 3a |"..........esc%:| 000025a0 e1 0d 15 18 37 ff 22 44 49 52 20 3c 44 69 73 63 |....7."DIR <Disc| 000025b0 32 24 44 69 72 3e 2e 53 69 78 47 61 6d 65 73 2e |2$Dir>.SixGames.| 000025c0 41 63 68 69 65 76 65 2e 41 63 68 69 65 76 65 22 |Achieve.Achieve"| 000025d0 2b c3 28 63 6c 61 25 29 0d 15 22 25 c8 99 22 4f |+.(cla%).."%.."O| 000025e0 53 5f 47 42 50 42 22 2c 38 2c 2c 63 61 74 25 2c |S_GBPB",8,,cat%,| 000025f0 26 34 30 2c 30 20 b8 20 2c 2c 2c 64 25 0d 15 2c |&40,0 . ,,,d%..,| 00002600 1d 2a 44 49 52 20 3c 44 69 73 63 32 24 44 69 72 |.*DIR <Disc2$Dir| 00002610 3e 2e 53 69 78 47 61 6d 65 73 0d 15 36 08 61 25 |>.SixGames..6.a%| 00002620 3d 30 0d 15 40 08 63 25 3d 30 0d 15 4a 0c 64 25 |=0..@.c%=0..J.d%| 00002630 3d 36 34 2d 64 25 0d 15 54 0c 73 74 25 3d 63 61 |=64-d%..T.st%=ca| 00002640 74 25 0d 15 5e 0a 64 75 70 25 3d a3 0d 15 68 14 |t%..^.dup%=...h.| 00002650 c8 95 20 63 25 3c 64 25 20 80 20 ac 64 75 70 25 |.. c%<d% . .dup%| 00002660 0d 15 72 15 74 25 3d 73 74 25 3f 28 28 3f 73 74 |..r.t%=st%?((?st| 00002670 25 29 2b 31 29 0d 15 7c 15 73 74 25 3f 28 28 3f |%)+1)..|.st%?((?| 00002680 73 74 25 29 2b 31 29 3d 26 44 0d 15 86 0f 61 24 |st%)+1)=&D....a$| 00002690 3d 24 28 73 74 25 2b 31 29 0d 15 90 11 73 74 25 |=$(st%+1)....st%| 000026a0 2b 3d 31 2b 28 3f 73 74 25 29 0d 15 9a 0b 3f 73 |+=1+(?st%)....?s| 000026b0 74 25 3d 74 25 0d 15 a4 11 e7 61 24 3d 69 24 3a |t%=t%.....a$=i$:| 000026c0 64 75 70 25 3d b9 0d 15 ae 09 61 25 2b 3d 31 0d |dup%=.....a%+=1.| 000026d0 15 b8 09 63 25 2b 3d 31 0d 15 c2 05 ce 0d 15 cc |...c%+=1........| 000026e0 08 6b 25 3d b9 0d 15 d6 0b e7 64 75 70 25 20 8c |.k%=......dup% .| 000026f0 0d 15 e0 0a e6 20 30 2c 31 30 0d 15 ea 07 ef 20 |..... 0,10..... | 00002700 35 0d 15 f4 14 c8 93 c8 90 20 30 2c 30 2c 31 32 |5........ 0,0,12| 00002710 37 38 2c 36 34 0d 15 fe 09 e6 20 30 2c 30 0d 16 |78,64..... 0,0..| 00002720 08 12 c8 93 20 30 2c 30 2c 31 32 37 38 2c 36 34 |.... 0,0,1278,64| 00002730 0d 16 12 2e 74 24 3d 22 50 6c 61 79 65 72 20 22 |....t$="Player "| 00002740 2b 69 24 2b 22 20 61 6c 72 65 61 64 79 20 65 78 |+i$+" already ex| 00002750 69 73 74 73 20 2d 20 45 72 61 73 65 3f 22 0d 16 |ists - Erase?"..| 00002760 1c 15 ec 20 38 36 30 2d a9 28 74 24 29 2a 67 25 |... 860-.(t$)*g%| 00002770 2c 34 34 0d 16 26 07 f1 74 24 0d 16 30 07 ef 20 |,44..&..t$..0.. | 00002780 34 0d 16 3a 05 87 0d 16 44 11 6b 25 3d a4 79 65 |4..:....D.k%=.ye| 00002790 73 6e 6f 28 34 34 29 0d 16 4e 05 cd 0d 16 58 12 |sno(44)..N....X.| 000027a0 e7 ac 6b 25 3a f2 6d 6f 75 73 65 31 3a e1 0d 16 |..k%:.mouse1:...| 000027b0 62 0c 61 74 74 25 28 29 3d 30 0d 16 6c 0f 73 74 |b.att%()=0..l.st| 000027c0 61 74 75 73 25 28 29 3d 30 0d 16 76 3f 68 25 3d |atus%()=0..v?h%=| 000027d0 ae 28 22 3c 44 69 73 63 32 24 44 69 72 3e 2e 53 |.("<Disc2$Dir>.S| 000027e0 69 78 47 61 6d 65 73 2e 41 63 68 69 65 76 65 2e |ixGames.Achieve.| 000027f0 41 63 68 69 65 76 65 22 2b c3 28 63 6c 61 25 29 |Achieve"+.(cla%)| 00002800 2b 22 2e 22 2b 69 24 29 0d 16 80 0c e3 4a 25 3d |+"."+i$).....J%=| 00002810 31 b8 31 30 0d 16 8a 0b e3 4b 25 3d 31 b8 36 0d |1.10.....K%=1.6.| 00002820 16 94 14 f1 23 68 25 2c 61 74 74 25 28 4b 25 2c |....#h%,att%(K%,| 00002830 4a 25 29 0d 16 9e 05 ed 0d 16 a8 05 ed 0d 16 b2 |J%).............| 00002840 08 d9 23 68 25 0d 16 bc 0e 61 74 74 65 6e 64 24 |..#h%....attend$| 00002850 3d 69 24 0d 16 c6 13 68 25 3d ae 28 66 24 2b 22 |=i$....h%=.(f$+"| 00002860 4e 61 6d 65 22 29 0d 16 d0 10 f1 23 68 25 2c 61 |Name").....#h%,a| 00002870 74 74 65 6e 64 24 0d 16 da 08 d9 23 68 25 0d 16 |ttend$.....#h%..| 00002880 e4 15 c8 99 22 41 42 43 5f 43 6f 6c 6f 75 72 22 |...."ABC_Colour"| 00002890 2c 31 35 0d 16 ee 0b f2 6d 6f 75 73 65 31 0d 16 |,15.....mouse1..| 000028a0 f8 05 e1 0d 17 02 0c dd f2 64 65 6c 65 74 65 0d |.........delete.| 000028b0 17 0c 0a f2 6c 65 67 61 6c 0d 17 16 12 e7 62 61 |....legal.....ba| 000028c0 64 25 20 84 20 65 73 63 25 3a e1 0d 17 20 0e f2 |d% . esc%:... ..| 000028d0 67 72 69 64 63 68 65 63 6b 0d 17 2a 11 e7 61 24 |gridcheck..*..a$| 000028e0 3d 22 22 20 84 20 6b 25 3a e1 0d 17 34 15 c8 99 |="" . k%:...4...| 000028f0 22 41 42 43 5f 43 6f 6c 6f 75 72 22 2c 31 35 0d |"ABC_Colour",15.| 00002900 17 3e 0a e6 20 30 2c 31 30 0d 17 48 07 ef 20 35 |.>.. 0,10..H.. 5| 00002910 0d 17 52 14 c8 93 c8 90 20 30 2c 30 2c 31 32 37 |..R..... 0,0,127| 00002920 38 2c 36 34 0d 17 5c 09 e6 20 30 2c 30 0d 17 66 |8,64..\.. 0,0..f| 00002930 12 c8 93 20 30 2c 30 2c 31 32 37 38 2c 36 34 0d |... 0,0,1278,64.| 00002940 17 70 1f 74 24 3d 22 50 6c 61 79 65 72 20 22 2b |.p.t$="Player "+| 00002950 61 24 2b 22 20 2d 20 45 72 61 73 65 3f 22 0d 17 |a$+" - Erase?"..| 00002960 7a 15 ec 20 38 36 30 2d a9 28 74 24 29 2a 67 25 |z.. 860-.(t$)*g%| 00002970 2c 34 34 0d 17 84 07 f1 74 24 0d 17 8e 07 ef 20 |,44.....t$..... | 00002980 34 0d 17 98 05 87 0d 17 a2 11 6b 25 3d a4 79 65 |4.........k%=.ye| 00002990 73 6e 6f 28 34 34 29 0d 17 ac 12 e7 ac 6b 25 3a |sno(44)......k%:| 000029a0 f2 6d 6f 75 73 65 31 3a e1 0d 17 b6 41 ff 22 44 |.mouse1:....A."D| 000029b0 45 4c 45 54 45 20 3c 44 69 73 63 32 24 44 69 72 |ELETE <Disc2$Dir| 000029c0 3e 2e 53 69 78 47 61 6d 65 73 2e 41 63 68 69 65 |>.SixGames.Achie| 000029d0 76 65 2e 41 63 68 69 65 76 65 22 2b c3 28 63 6c |ve.Achieve"+.(cl| 000029e0 61 25 29 2b 22 2e 22 2b 61 24 0d 17 c0 19 e7 61 |a%)+"."+a$.....a| 000029f0 24 3d 61 74 74 65 6e 64 24 3a f2 73 65 74 65 6d |$=attend$:.setem| 00002a00 70 74 79 0d 17 ca 05 e1 0d 17 d4 11 dd f2 64 65 |pty...........de| 00002a10 6c 61 79 28 64 65 6c 25 29 0d 17 de 05 f5 0d 17 |lay(del%).......| 00002a20 e8 06 c8 96 0d 17 f2 0b 64 65 6c 25 2d 3d 31 0d |........del%-=1.| 00002a30 17 fc 0c fd 20 64 65 6c 25 3c 30 0d 18 06 05 e1 |.... del%<0.....| 00002a40 0d 18 10 11 dd f2 6c 6f 61 64 63 75 72 72 65 6e |......loadcurren| 00002a50 74 0d 18 1a 13 68 25 3d 8e 28 66 24 2b 22 4e 61 |t....h%=.(f$+"Na| 00002a60 6d 65 22 29 0d 18 24 10 e8 23 68 25 2c 61 74 74 |me")..$..#h%,att| 00002a70 65 6e 64 24 0d 18 2e 08 d9 23 68 25 0d 18 38 11 |end$.....#h%..8.| 00002a80 e7 61 74 74 65 6e 64 24 3d 22 22 20 8c 0d 18 42 |.attend$="" ...B| 00002a90 0c 61 74 74 25 28 29 3d 30 0d 18 4c 05 cc 0d 18 |.att%()=0..L....| 00002aa0 56 44 68 25 3d 8e 28 22 3c 44 69 73 63 32 24 44 |VDh%=.("<Disc2$D| 00002ab0 69 72 3e 2e 53 69 78 47 61 6d 65 73 2e 41 63 68 |ir>.SixGames.Ach| 00002ac0 69 65 76 65 2e 41 63 68 69 65 76 65 22 2b c3 28 |ieve.Achieve"+.(| 00002ad0 63 6c 61 25 29 2b 22 2e 22 2b 61 74 74 65 6e 64 |cla%)+"."+attend| 00002ae0 24 29 0d 18 60 0c e3 4a 25 3d 31 b8 31 30 0d 18 |$)..`..J%=1.10..| 00002af0 6a 0b e3 4b 25 3d 31 b8 36 0d 18 74 14 e8 23 68 |j..K%=1.6..t..#h| 00002b00 25 2c 61 74 74 25 28 4b 25 2c 4a 25 29 0d 18 7e |%,att%(K%,J%)..~| 00002b10 05 ed 0d 18 88 05 ed 0d 18 92 08 d9 23 68 25 0d |............#h%.| 00002b20 18 9c 05 cd 0d 18 a6 05 e1 0d 18 b0 1b dd a4 69 |...............i| 00002b30 6e 69 74 69 61 6c 73 70 72 69 74 65 73 28 73 24 |nitialsprites(s$| 00002b40 2c 6c 25 29 0d 18 ba 1d 6c 25 2b 3d a4 73 70 72 |,l%)....l%+=.spr| 00002b50 69 74 65 66 69 6c 65 6c 65 6e 67 74 68 28 73 24 |itefilelength(s$| 00002b60 29 0d 18 c4 0b de 20 62 25 20 6c 25 0d 18 ce 0a |)..... b% l%....| 00002b70 21 62 25 3d 6c 25 0d 18 d8 1a c8 99 22 4f 53 5f |!b%=l%......"OS_| 00002b80 53 70 72 69 74 65 4f 70 22 2c 32 36 35 2c 62 25 |SpriteOp",265,b%| 00002b90 0d 18 e2 14 f2 6c 6f 61 64 73 70 72 69 74 65 73 |.....loadsprites| 00002ba0 28 73 24 29 0d 18 ec 07 3d 62 25 0d 18 f6 1a dd |(s$)....=b%.....| 00002bb0 a4 73 70 72 69 74 65 66 69 6c 65 6c 65 6e 67 74 |.spritefilelengt| 00002bc0 68 28 73 24 29 0d 19 00 0a 66 6c 6f 25 3d 30 0d |h(s$)....flo%=0.| 00002bd0 19 0a 0b 73 24 2b 3d 22 7c 22 0d 19 14 0c c8 95 |...s$+="|"......| 00002be0 20 73 24 3e 22 22 0d 19 1e 1f 68 25 3d 8e 28 66 | s$>""....h%=.(f| 00002bf0 24 2b a4 73 74 72 69 6e 67 65 78 74 72 61 63 74 |$+.stringextract| 00002c00 28 73 24 29 29 0d 19 28 0e 66 6c 6f 25 2b 3d a2 |(s$))..(.flo%+=.| 00002c10 23 68 25 0d 19 32 08 d9 23 68 25 0d 19 3c 05 ce |#h%..2..#h%..<..| 00002c20 0d 19 46 0c 3d 66 6c 6f 25 2b 36 34 0d 19 50 19 |..F.=flo%+64..P.| 00002c30 dd a4 73 74 72 69 6e 67 65 78 74 72 61 63 74 28 |..stringextract(| 00002c40 f8 20 73 24 29 0d 19 5a 18 77 24 3d c0 73 24 2c |. s$)..Z.w$=.s$,| 00002c50 28 a7 73 24 2c 22 7c 22 29 29 2d 31 29 0d 19 64 |(.s$,"|"))-1)..d| 00002c60 18 73 24 3d c1 73 24 2c 28 a7 73 24 2c 22 7c 22 |.s$=.s$,(.s$,"|"| 00002c70 29 29 2b 31 29 0d 19 6e 07 3d 77 24 0d 19 78 15 |))+1)..n.=w$..x.| 00002c80 dd f2 6c 6f 61 64 73 70 72 69 74 65 73 28 73 24 |..loadsprites(s$| 00002c90 29 0d 19 82 0b 73 24 2b 3d 22 7c 22 0d 19 8c 0c |)....s$+="|"....| 00002ca0 74 79 70 25 3d 32 36 36 0d 19 96 0c c8 95 20 73 |typ%=266...... s| 00002cb0 24 3e 22 22 0d 19 a0 31 c8 99 22 4f 53 5f 53 70 |$>""...1.."OS_Sp| 00002cc0 72 69 74 65 4f 70 22 2c 74 79 70 25 2c 62 25 2c |riteOp",typ%,b%,| 00002cd0 66 24 2b a4 73 74 72 69 6e 67 65 78 74 72 61 63 |f$+.stringextrac| 00002ce0 74 28 73 24 29 0d 19 aa 14 74 79 70 25 2d 3d 28 |t(s$)....typ%-=(| 00002cf0 74 79 70 25 3d 32 36 36 29 0d 19 b4 05 ce 0d 19 |typ%=266).......| 00002d00 be 05 e1 0d 19 c8 11 dd f2 6c 6f 61 64 64 65 74 |.........loaddet| 00002d10 61 69 6c 73 0d 19 d2 0f 73 74 61 74 75 73 25 28 |ails....status%(| 00002d20 29 3d 30 0d 19 dc 19 68 25 3d 8e 28 66 24 2b 22 |)=0....h%=.(f$+"| 00002d30 4d 69 73 63 2e 47 72 61 62 33 22 29 0d 19 e6 0d |Misc.Grab3")....| 00002d40 e8 23 68 25 2c 63 6f 64 25 0d 19 f0 08 d9 23 68 |.#h%,cod%.....#h| 00002d50 25 0d 19 fa 18 68 25 3d 8e 28 66 24 2b 22 43 6f |%....h%=.(f$+"Co| 00002d60 6e 66 69 67 75 72 65 22 29 0d 1a 04 3f e8 23 68 |nfigure")...?.#h| 00002d70 25 2c 72 61 74 25 2c 6e 69 67 25 2c 73 64 73 25 |%,rat%,nig%,sds%| 00002d80 2c 76 65 72 25 2c 67 72 64 25 2c 63 6c 61 25 2c |,ver%,grd%,cla%,| 00002d90 74 79 70 24 2c 68 65 64 25 2c 66 75 74 25 2c 70 |typ$,hed%,fut%,p| 00002da0 61 70 25 2c 70 69 78 25 0d 1a 0e 08 d9 23 68 25 |ap%,pix%.....#h%| 00002db0 0d 1a 18 27 e7 73 64 73 25 20 ff 22 53 50 45 41 |...'.sds% ."SPEA| 00002dc0 4b 45 52 20 4f 4e 22 20 8b ff 22 53 50 45 41 4b |KER ON" .."SPEAK| 00002dd0 45 52 20 4f 46 46 22 0d 1a 22 13 68 25 3d 8e 28 |ER OFF"..".h%=.(| 00002de0 66 24 2b 22 4e 61 6d 65 22 29 0d 1a 2c 10 e8 23 |f$+"Name")..,..#| 00002df0 68 25 2c 61 74 74 65 6e 64 24 0d 1a 36 08 d9 23 |h%,attend$..6..#| 00002e00 68 25 0d 1a 40 11 e7 61 74 74 65 6e 64 24 3d 22 |h%..@..attend$="| 00002e10 22 20 8c 0d 1a 4a 0c 61 74 74 25 28 29 3d 30 0d |" ...J.att%()=0.| 00002e20 1a 54 05 cc 0d 1a 5e 44 68 25 3d 8e 28 22 3c 44 |.T....^Dh%=.("<D| 00002e30 69 73 63 32 24 44 69 72 3e 2e 53 69 78 47 61 6d |isc2$Dir>.SixGam| 00002e40 65 73 2e 41 63 68 69 65 76 65 2e 41 63 68 69 65 |es.Achieve.Achie| 00002e50 76 65 22 2b c3 28 63 6c 61 25 29 2b 22 2e 22 2b |ve"+.(cla%)+"."+| 00002e60 61 74 74 65 6e 64 24 29 0d 1a 68 0c e3 4a 25 3d |attend$)..h..J%=| 00002e70 31 b8 31 30 0d 1a 72 0b e3 4b 25 3d 31 b8 36 0d |1.10..r..K%=1.6.| 00002e80 1a 7c 0d e8 23 68 25 2c 62 79 74 25 0d 1a 86 14 |.|..#h%,byt%....| 00002e90 61 74 74 25 28 4b 25 2c 4a 25 29 3d 62 79 74 25 |att%(K%,J%)=byt%| 00002ea0 0d 1a 90 23 e7 62 79 74 25 3e 32 20 80 20 62 79 |...#.byt%>2 . by| 00002eb0 74 25 3c 31 32 3a 73 74 61 74 75 73 25 28 31 29 |t%<12:status%(1)| 00002ec0 2b 3d 31 0d 1a 9a 1a e7 62 79 74 25 3e 31 31 3a |+=1.....byt%>11:| 00002ed0 73 74 61 74 75 73 25 28 32 29 2b 3d 31 0d 1a a4 |status%(2)+=1...| 00002ee0 05 ed 0d 1a ae 05 ed 0d 1a b8 08 d9 23 68 25 0d |............#h%.| 00002ef0 1a c2 05 cd 0d 1a cc 05 e1 0d 1a d6 11 dd a4 79 |...............y| 00002f00 65 73 6e 6f 28 74 61 79 25 29 0d 1a e0 05 f5 0d |esno(tay%)......| 00002f10 1a ea 15 c8 97 20 6d 6f 78 25 2c 6d 6f 79 25 2c |..... mox%,moy%,| 00002f20 62 75 74 25 0d 1a f4 0c fd 20 62 75 74 25 3d 30 |but%..... but%=0| 00002f30 0d 1a fe 17 c8 97 20 c8 93 20 39 35 39 2c 31 32 |...... .. 959,12| 00002f40 2c 32 34 30 2c 34 36 0d 1b 08 0b f2 6d 6f 75 73 |,240,46.....mous| 00002f50 65 31 0d 1b 12 10 c8 97 20 b8 20 31 31 36 30 2c |e1...... . 1160,| 00002f60 33 32 0d 1b 1c 07 ef 20 35 0d 1b 26 09 e6 20 30 |32..... 5..&.. 0| 00002f70 2c 30 0d 1b 30 0e ec 20 38 39 36 2c 74 61 79 25 |,0..0.. 896,tay%| 00002f80 0d 1b 3a 14 f1 22 59 65 73 20 20 20 20 20 20 20 |..:.."Yes | 00002f90 20 4e 6f 22 0d 1b 44 05 f5 0d 1b 4e 15 c8 97 20 | No"..D....N... | 00002fa0 6d 6f 78 25 2c 6d 6f 79 25 2c 62 75 74 25 0d 1b |mox%,moy%,but%..| 00002fb0 58 10 e7 6d 6f 78 25 3c 31 30 37 32 20 8c 0d 1b |X..mox%<1072 ...| 00002fc0 62 0a e6 20 30 2c 31 31 0d 1b 6c 1a c8 93 c8 90 |b.. 0,11..l.....| 00002fd0 20 39 36 30 2c 74 61 79 25 2d 33 32 2c 38 30 2c | 960,tay%-32,80,| 00002fe0 34 30 0d 1b 76 09 e6 20 30 2c 37 0d 1b 80 1b c8 |40..v.. 0,7.....| 00002ff0 93 c8 90 20 31 31 32 30 2c 74 61 79 25 2d 33 32 |... 1120,tay%-32| 00003000 2c 38 30 2c 34 30 0d 1b 8a 05 cc 0d 1b 94 09 e6 |,80,40..........| 00003010 20 30 2c 37 0d 1b 9e 1a c8 93 c8 90 20 39 36 30 | 0,7........ 960| 00003020 2c 74 61 79 25 2d 33 32 2c 38 30 2c 34 30 0d 1b |,tay%-32,80,40..| 00003030 a8 0a e6 20 30 2c 31 31 0d 1b b2 1b c8 93 c8 90 |... 0,11........| 00003040 20 31 31 32 30 2c 74 61 79 25 2d 33 32 2c 38 30 | 1120,tay%-32,80| 00003050 2c 34 30 0d 1b bc 05 cd 0d 1b c6 1d fd 20 62 75 |,40.......... bu| 00003060 74 25 3e 30 20 80 20 b0 6d 6f 78 25 2c 6d 6f 79 |t%>0 . .mox%,moy| 00003070 25 29 3d 31 31 0d 1b d0 07 ef 20 34 0d 1b da 05 |%)=11..... 4....| 00003080 87 0d 1b e4 15 e7 6d 6f 78 25 3c 31 30 37 32 20 |......mox%<1072 | 00003090 3d b9 20 8b 3d a3 0d 1b ee 16 dd f2 64 69 73 70 |=. .=.......disp| 000030a0 6c 61 79 64 69 72 65 63 74 6f 72 79 0d 1b f8 14 |laydirectory....| 000030b0 c8 99 22 41 42 43 5f 42 6c 61 6e 6b 22 2c 31 35 |.."ABC_Blank",15| 000030c0 0d 1c 02 15 c8 99 22 41 42 43 5f 43 6f 6c 6f 75 |......"ABC_Colou| 000030d0 72 22 2c 31 35 0d 1c 0c 37 ff 22 44 49 52 20 3c |r",15...7."DIR <| 000030e0 44 69 73 63 32 24 44 69 72 3e 2e 53 69 78 47 61 |Disc2$Dir>.SixGa| 000030f0 6d 65 73 2e 41 63 68 69 65 76 65 2e 41 63 68 69 |mes.Achieve.Achi| 00003100 65 76 65 22 2b c3 28 63 6c 61 25 29 0d 1c 16 25 |eve"+.(cla%)...%| 00003110 c8 99 22 4f 53 5f 47 42 50 42 22 2c 38 2c 2c 63 |.."OS_GBPB",8,,c| 00003120 61 74 25 2c 26 34 30 2c 30 20 b8 20 2c 2c 2c 64 |at%,&40,0 . ,,,d| 00003130 25 0d 1c 20 1d 2a 44 49 52 20 3c 44 69 73 63 32 |%.. .*DIR <Disc2| 00003140 24 44 69 72 3e 2e 53 69 78 47 61 6d 65 73 0d 1c |$Dir>.SixGames..| 00003150 2a 07 ef 20 35 0d 1c 34 0c e3 61 25 3d 30 b8 36 |*.. 5..4..a%=0.6| 00003160 33 0d 1c 3e 16 78 25 3d 28 61 25 3e 3e 34 29 2a |3..>.x%=(a%>>4)*| 00003170 32 35 36 2b 31 32 38 0d 1c 48 11 79 25 3d 28 61 |256+128..H.y%=(a| 00003180 25 80 26 46 29 3c 3c 36 0d 1c 52 09 e6 20 30 2c |%.&F)<<6..R.. 0,| 00003190 38 0d 1c 5c 15 c8 93 c8 90 20 78 25 2c 79 25 2c |8..\..... x%,y%,| 000031a0 32 32 34 2c 34 30 0d 1c 66 0a e6 20 30 2c 31 31 |224,40..f.. 0,11| 000031b0 0d 1c 70 18 c8 93 c8 90 20 78 25 2b 32 32 34 2c |..p..... x%+224,| 000031c0 79 25 2c 33 30 2c 34 30 0d 1c 7a 09 e6 20 30 2c |y%,30,40..z.. 0,| 000031d0 30 0d 1c 84 16 c8 93 20 78 25 2b 32 32 34 2c 79 |0...... x%+224,y| 000031e0 25 2c 33 30 2c 34 30 0d 1c 8e 05 ed 0d 1c 98 08 |%,30,40.........| 000031f0 61 25 3d 30 0d 1c a2 08 63 25 3d 30 0d 1c ac 0c |a%=0....c%=0....| 00003200 64 25 3d 36 34 2d 64 25 0d 1c b6 0c 73 74 25 3d |d%=64-d%....st%=| 00003210 63 61 74 25 0d 1c c0 12 66 69 6c 65 6e 61 6d 65 |cat%....filename| 00003220 24 28 29 3d 22 22 0d 1c ca 09 e6 20 30 2c 30 0d |$()=""..... 0,0.| 00003230 1c d4 0c c8 95 20 63 25 3c 64 25 0d 1c de 15 74 |..... c%<d%....t| 00003240 25 3d 73 74 25 3f 28 28 3f 73 74 25 29 2b 31 29 |%=st%?((?st%)+1)| 00003250 0d 1c e8 15 73 74 25 3f 28 28 3f 73 74 25 29 2b |....st%?((?st%)+| 00003260 31 29 3d 26 44 0d 1c f2 0f 61 24 3d 24 28 73 74 |1)=&D....a$=$(st| 00003270 25 2b 31 29 0d 1c fc 11 73 74 25 2b 3d 31 2b 28 |%+1)....st%+=1+(| 00003280 3f 73 74 25 29 0d 1d 06 0b 3f 73 74 25 3d 74 25 |?st%)....?st%=t%| 00003290 0d 1d 10 26 ec 20 28 61 25 3e 3e 34 29 2a 32 35 |...&. (a%>>4)*25| 000032a0 36 2b 31 34 34 2c 39 39 32 2d 28 28 61 25 80 26 |6+144,992-((a%.&| 000032b0 46 29 3c 3c 36 29 0d 1d 1a 14 66 69 6c 65 6e 61 |F)<<6)....filena| 000032c0 6d 65 24 28 61 25 29 3d 61 24 0d 1d 24 11 61 24 |me$(a%)=a$..$.a$| 000032d0 3d a4 73 74 72 69 70 28 61 24 29 0d 1d 2e 08 f1 |=.strip(a$).....| 000032e0 20 61 24 0d 1d 38 09 61 25 2b 3d 31 0d 1d 42 09 | a$..8.a%+=1..B.| 000032f0 63 25 2b 3d 31 0d 1d 4c 05 ce 0d 1d 56 07 ef 20 |c%+=1..L....V.. | 00003300 34 0d 1d 60 05 87 0d 1d 6a 13 c8 99 22 41 42 43 |4..`....j..."ABC| 00003310 5f 50 61 6c 65 74 74 65 22 0d 1d 74 05 e1 0d 1d |_Palette"..t....| 00003320 7e 0f dd f2 67 72 69 64 63 68 65 63 6b 0d 1d 88 |~...gridcheck...| 00003330 15 f2 64 69 73 70 6c 61 79 64 69 72 65 63 74 6f |..displaydirecto| 00003340 72 79 0d 1d 92 0a 6c 73 74 25 3d 30 0d 1d 9c 05 |ry....lst%=0....| 00003350 f5 0d 1d a6 15 c8 97 20 6d 6f 78 25 2c 6d 6f 79 |....... mox%,moy| 00003360 25 2c 62 75 74 25 0d 1d b0 16 73 71 78 25 3d 28 |%,but%....sqx%=(| 00003370 6d 6f 78 25 2d 31 32 38 29 3e 3e 38 0d 1d ba 12 |mox%-128)>>8....| 00003380 e7 73 71 78 25 3e 33 3a 73 71 78 25 3d 33 0d 1d |.sqx%>3:sqx%=3..| 00003390 c4 12 e7 73 71 78 25 3c 30 3a 73 71 78 25 3d 30 |...sqx%<0:sqx%=0| 000033a0 0d 1d ce 17 73 71 79 25 3d 28 31 30 32 34 2d 6d |....sqy%=(1024-m| 000033b0 6f 79 25 29 3e 3e 36 0d 1d d8 14 e7 73 71 79 25 |oy%)>>6.....sqy%| 000033c0 3e 31 35 3a 73 71 79 25 3d 31 35 0d 1d e2 15 69 |>15:sqy%=15....i| 000033d0 6e 78 25 3d 73 71 79 25 2b 73 71 78 25 2a 67 25 |nx%=sqy%+sqx%*g%| 000033e0 0d 1d ec 14 e7 69 6e 78 25 3e 36 33 3a 69 6e 78 |.....inx%>63:inx| 000033f0 25 3d 36 33 0d 1d f6 11 e7 69 6e 78 25 3c 3e 6c |%=63.....inx%<>l| 00003400 73 74 25 20 8c 0d 1e 00 06 c8 96 0d 1e 0a 13 f2 |st% ............| 00003410 73 6d 61 6c 6c 28 6c 73 74 25 2c 31 31 29 0d 1e |small(lst%,11)..| 00003420 14 13 f2 73 6d 61 6c 6c 28 69 6e 78 25 2c 31 35 |...small(inx%,15| 00003430 29 0d 1e 1e 0d 6c 73 74 25 3d 69 6e 78 25 0d 1e |)....lst%=inx%..| 00003440 28 05 cd 0d 1e 32 15 e7 a6 2d 31 31 33 20 6b 25 |(....2...-113 k%| 00003450 3d b9 20 8b 6b 25 3d a3 0d 1e 3c 11 fd 20 62 75 |=. .k%=...<.. bu| 00003460 74 25 3e 30 20 84 20 6b 25 0d 1e 46 16 61 24 3d |t%>0 . k%..F.a$=| 00003470 66 69 6c 65 6e 61 6d 65 24 28 6c 73 74 25 29 0d |filename$(lst%).| 00003480 1e 50 05 e1 0d 1e 5a 0d dd f2 63 75 72 72 65 6e |.P....Z...curren| 00003490 74 0d 1e 64 07 ef 20 35 0d 1e 6e 09 e6 20 30 2c |t..d.. 5..n.. 0,| 000034a0 38 0d 1e 78 16 c8 93 c8 90 20 33 38 34 2c 31 36 |8..x..... 384,16| 000034b0 2c 34 38 30 2c 36 34 0d 1e 82 09 e6 20 30 2c 30 |,480,64..... 0,0| 000034c0 0d 1e 8c 14 c8 93 20 33 38 34 2c 31 36 2c 34 38 |...... 384,16,48| 000034d0 30 2c 36 34 0d 1e 96 0a e6 20 30 2c 31 34 0d 1e |0,64..... 0,14..| 000034e0 a0 0c ec 20 34 30 30 2c 36 30 0d 1e aa 19 f1 22 |... 400,60....."| 000034f0 43 75 72 72 65 6e 74 20 70 6c 61 79 65 72 20 3a |Current player :| 00003500 20 22 3b 0d 1e b4 09 e6 20 30 2c 30 0d 1e be 16 | ";..... 0,0....| 00003510 61 24 3d a4 73 74 72 69 70 28 61 74 74 65 6e 64 |a$=.strip(attend| 00003520 24 29 0d 1e c8 18 e7 61 24 3d 22 22 20 f1 22 45 |$).....a$="" ."E| 00003530 6d 70 74 79 22 20 8b f1 61 24 0d 1e d2 07 ef 20 |mpty" ..a$..... | 00003540 34 0d 1e dc 05 87 0d 1e e6 05 e1 0d 1e f0 0c dd |4...............| 00003550 f2 61 63 63 65 73 73 0d 1e fa 13 e7 ac a6 2d 32 |.access.......-2| 00003560 20 84 20 ac a6 2d 33 31 3a e1 0d 1f 04 08 c8 97 | . ..-31:.......| 00003570 20 87 0d 1f 0e 07 ef 20 37 0d 1f 18 15 c8 99 22 | ...... 7......"| 00003580 41 42 43 5f 43 6f 6c 6f 75 72 22 2c 31 35 0d 1f |ABC_Colour",15..| 00003590 22 2b f2 6d 65 73 73 28 22 45 4e 54 45 52 20 4f |"+.mess("ENTER O| 000035a0 4c 44 20 41 43 43 45 53 53 20 43 4f 44 45 20 4e |LD ACCESS CODE N| 000035b0 55 4d 42 45 52 22 2c 38 29 0d 1f 2c 0a f2 69 6e |UMBER",8)..,..in| 000035c0 76 69 73 0d 1f 36 11 e7 65 73 63 25 3a f2 62 61 |vis..6..esc%:.ba| 000035d0 63 6b 3a e1 0d 1f 40 1a 4a 25 3d a4 76 61 6c 69 |ck:...@.J%=.vali| 000035e0 64 61 74 65 6e 75 6d 62 65 72 28 69 24 29 0d 1f |datenumber(i$)..| 000035f0 4a 28 e7 ac 4a 25 3a f2 77 72 6f 6e 67 28 22 4e |J(..J%:.wrong("N| 00003600 55 4d 42 45 52 53 20 4f 4e 4c 59 20 50 4c 45 41 |UMBERS ONLY PLEA| 00003610 53 45 22 29 3a e1 0d 1f 54 30 e7 63 6f 64 25 3c |SE"):...T0.cod%<| 00003620 3e bb 28 69 24 29 3a f2 77 72 6f 6e 67 28 22 49 |>.(i$):.wrong("I| 00003630 4e 56 41 4c 49 44 20 41 43 43 45 53 53 20 43 4f |NVALID ACCESS CO| 00003640 44 45 22 29 3a e1 0d 1f 5e 2b f2 6d 65 73 73 28 |DE"):...^+.mess(| 00003650 22 45 4e 54 45 52 20 4e 45 57 20 41 43 43 45 53 |"ENTER NEW ACCES| 00003660 53 20 43 4f 44 45 20 4e 55 4d 42 45 52 22 2c 38 |S CODE NUMBER",8| 00003670 29 0d 1f 68 0a f2 69 6e 76 69 73 0d 1f 72 11 e7 |)..h..invis..r..| 00003680 65 73 63 25 3a f2 62 61 63 6b 3a e1 0d 1f 7c 1a |esc%:.back:...|.| 00003690 4a 25 3d a4 76 61 6c 69 64 61 74 65 6e 75 6d 62 |J%=.validatenumb| 000036a0 65 72 28 69 24 29 0d 1f 86 28 e7 ac 4a 25 3a f2 |er(i$)...(..J%:.| 000036b0 77 72 6f 6e 67 28 22 4e 55 4d 42 45 52 53 20 4f |wrong("NUMBERS O| 000036c0 4e 4c 59 20 50 4c 45 41 53 45 22 29 3a e1 0d 1f |NLY PLEASE"):...| 000036d0 90 10 66 69 72 73 74 25 3d bb 28 69 24 29 0d 1f |..first%=.(i$)..| 000036e0 9a 25 f2 6d 65 73 73 28 22 45 4e 54 45 52 20 41 |.%.mess("ENTER A| 000036f0 47 41 49 4e 20 54 4f 20 43 4f 4e 46 49 52 4d 22 |GAIN TO CONFIRM"| 00003700 2c 38 29 0d 1f a4 0a f2 69 6e 76 69 73 0d 1f ae |,8).....invis...| 00003710 11 e7 65 73 63 25 3a f2 62 61 63 6b 3a e1 0d 1f |..esc%:.back:...| 00003720 b8 1a 4a 25 3d a4 76 61 6c 69 64 61 74 65 6e 75 |..J%=.validatenu| 00003730 6d 62 65 72 28 69 24 29 0d 1f c2 28 e7 ac 4a 25 |mber(i$)...(..J%| 00003740 3a f2 77 72 6f 6e 67 28 22 4e 55 4d 42 45 52 53 |:.wrong("NUMBERS| 00003750 20 4f 4e 4c 59 20 50 4c 45 41 53 45 22 29 3a e1 | ONLY PLEASE"):.| 00003760 0d 1f cc 11 73 65 63 6f 6e 64 25 3d bb 28 69 24 |....second%=.(i$| 00003770 29 0d 1f d6 3e e7 66 69 72 73 74 25 3c 3e 73 65 |)...>.first%<>se| 00003780 63 6f 6e 64 25 3a f2 77 72 6f 6e 67 28 22 44 49 |cond%:.wrong("DI| 00003790 46 46 45 52 45 4e 54 20 4e 55 4d 42 45 52 53 20 |FFERENT NUMBERS | 000037a0 2d 20 54 52 59 20 41 47 41 49 4e 22 29 3a e1 0d |- TRY AGAIN"):..| 000037b0 1f e0 0c 63 6f 64 25 3d bb 69 24 0d 1f ea 2e f2 |...cod%=.i$.....| 000037c0 6d 65 73 73 28 22 4e 45 57 20 41 43 43 45 53 53 |mess("NEW ACCESS| 000037d0 20 43 4f 44 45 20 4e 55 4d 42 45 52 20 41 43 43 | CODE NUMBER ACC| 000037e0 45 50 54 45 44 22 2c 38 29 0d 1f f4 19 68 25 3d |EPTED",8)....h%=| 000037f0 ae 28 66 24 2b 22 4d 69 73 63 2e 47 72 61 62 33 |.(f$+"Misc.Grab3| 00003800 22 29 0d 1f fe 0d f1 23 68 25 2c 63 6f 64 25 0d |").....#h%,cod%.| 00003810 20 08 08 d9 23 68 25 0d 20 12 09 f2 62 61 63 6b | ...#h%. ...back| 00003820 0d 20 1c 05 e1 0d 20 26 0a dd f2 62 61 63 6b 0d |. .... &...back.| 00003830 20 30 1c e7 73 75 6e 25 3c 31 31 20 73 75 6e 25 | 0..sun%<11 sun%| 00003840 3d 31 31 20 8b 73 75 6e 25 3d 30 0d 20 3a 09 f2 |=11 .sun%=0. :..| 00003850 6d 65 6e 75 0d 20 44 0b f2 6d 6f 75 73 65 31 0d |menu. D..mouse1.| 00003860 20 4e 05 e1 0d 20 58 0f dd f2 77 72 6f 6e 67 28 | N... X...wrong(| 00003870 61 24 29 0d 20 62 07 ef 20 37 0d 20 6c 10 f2 6d |a$). b.. 7. l..m| 00003880 65 73 73 28 61 24 2c 31 31 29 0d 20 76 0f f2 64 |ess(a$,11). v..d| 00003890 65 6c 61 79 28 31 35 30 29 0d 20 80 09 f2 62 61 |elay(150). ...ba| 000038a0 63 6b 0d 20 8a 05 e1 0d 20 94 18 dd a4 76 61 6c |ck. .... ....val| 000038b0 69 64 61 74 65 6e 75 6d 62 65 72 28 61 24 29 0d |idatenumber(a$).| 000038c0 20 9e 0d e7 61 24 3d 22 22 3a 3d a3 0d 20 a8 08 | ...a$="":=.. ..| 000038d0 4b 25 3d b9 0d 20 b2 10 e3 4a 25 3d 31 b8 20 a9 |K%=.. ...J%=1. .| 000038e0 28 61 24 29 0d 20 bc 27 e7 c1 61 24 2c 4a 25 2c |(a$). .'..a$,J%,| 000038f0 31 29 3c 22 30 22 20 84 20 c1 61 24 2c 4a 25 2c |1)<"0" . .a$,J%,| 00003900 31 29 3e 22 39 22 3a 4b 25 3d a3 0d 20 c6 05 ed |1)>"9":K%=.. ...| 00003910 0d 20 d0 07 3d 4b 25 0d 20 da 0b dd f2 69 6e 76 |. ..=K%. ....inv| 00003920 69 73 0d 20 e4 0b 2a 46 58 32 31 20 30 0d 20 ee |is. ..*FX21 0. .| 00003930 0a 65 73 63 25 3d a3 0d 20 f8 0a 63 6e 74 25 3d |.esc%=.. ..cnt%=| 00003940 30 0d 21 02 09 69 24 3d 22 22 0d 21 0c 05 f5 0d |0.!..i$="".!....| 00003950 21 16 05 f5 0d 21 20 05 f5 0d 21 2a 0b 6b 25 3d |!....! ...!*.k%=| 00003960 a6 28 31 29 0d 21 34 11 e7 a6 2d 31 31 33 3a 65 |.(1).!4...-113:e| 00003970 73 63 25 3d b9 0d 21 3e 1a fd 20 6b 25 3e 30 20 |sc%=..!>.. k%>0 | 00003980 80 20 6b 25 3c 31 32 38 20 84 20 65 73 63 25 0d |. k%<128 . esc%.| 00003990 21 48 16 e7 6b 25 3d 31 32 37 20 80 20 63 6e 74 |!H..k%=127 . cnt| 000039a0 25 3e 30 20 8c 0d 21 52 0b 63 6e 74 25 2d 3d 31 |%>0 ..!R.cnt%-=1| 000039b0 0d 21 5c 10 69 24 3d c0 69 24 2c 63 6e 74 25 29 |.!\.i$=.i$,cnt%)| 000039c0 0d 21 66 21 f2 6d 65 73 73 28 22 3e 22 2b c4 a9 |.!f!.mess(">"+..| 000039d0 28 69 24 29 2c 22 2a 22 29 2b 22 3c 22 2c 31 30 |(i$),"*")+"<",10| 000039e0 29 0d 21 70 05 cd 0d 21 7a 14 fd 20 6b 25 3c 3e |).!p...!z.. k%<>| 000039f0 31 32 37 20 84 20 65 73 63 25 0d 21 84 17 e7 6b |127 . esc%.!...k| 00003a00 25 3c 3e 31 33 20 80 20 63 6e 74 25 3c 3e 34 20 |%<>13 . cnt%<>4 | 00003a10 8c 0d 21 8e 0b 69 24 2b 3d bd 6b 25 0d 21 98 21 |..!..i$+=.k%.!.!| 00003a20 f2 6d 65 73 73 28 22 3e 22 2b c4 a9 28 69 24 29 |.mess(">"+..(i$)| 00003a30 2c 22 2a 22 29 2b 22 3c 22 2c 31 30 29 0d 21 a2 |,"*")+"<",10).!.| 00003a40 0b 63 6e 74 25 2b 3d 31 0d 21 ac 05 cd 0d 21 b6 |.cnt%+=1.!....!.| 00003a50 1b fd 20 6b 25 3d 31 33 20 84 20 63 6e 74 25 3d |.. k%=13 . cnt%=| 00003a60 34 20 84 20 65 73 63 25 0d 21 c0 05 e1 0d 21 ca |4 . esc%.!....!.| 00003a70 0b dd f2 6c 65 67 61 6c 0d 21 d4 1b e7 63 6f 64 |...legal.!...cod| 00003a80 25 3d 30 3a 62 61 64 25 3d a3 3a 65 73 63 25 3d |%=0:bad%=.:esc%=| 00003a90 a3 3a e1 0d 21 de 08 c8 97 20 87 0d 21 e8 15 c8 |.:..!.... ..!...| 00003aa0 99 22 41 42 43 5f 43 6f 6c 6f 75 72 22 2c 31 35 |."ABC_Colour",15| 00003ab0 0d 21 f2 28 f2 6d 65 73 73 28 22 45 4e 54 45 52 |.!.(.mess("ENTER| 00003ac0 20 41 43 43 45 53 53 20 43 4f 44 45 20 4e 55 4d | ACCESS CODE NUM| 00003ad0 42 45 52 22 2c 31 31 29 0d 21 fc 0a f2 66 72 70 |BER",11).!...frp| 00003ae0 75 74 0d 22 06 11 e7 63 6f 64 25 3d bb 28 69 24 |ut."...cod%=.(i$| 00003af0 29 20 8c 0d 22 10 2a f2 6d 65 73 73 28 22 41 43 |) ..".*.mess("AC| 00003b00 43 45 53 53 20 43 4f 44 45 20 4e 55 4d 42 45 52 |CESS CODE NUMBER| 00003b10 20 41 43 43 45 50 54 45 44 22 2c 38 29 0d 22 1a | ACCEPTED",8).".| 00003b20 0f f2 64 65 6c 61 79 28 31 30 30 29 0d 22 24 0a |..delay(100)."$.| 00003b30 62 61 64 25 3d a3 0d 22 2e 05 cc 0d 22 38 0a 62 |bad%=.."...."8.b| 00003b40 61 64 25 3d b9 0d 22 42 05 cd 0d 22 4c 0b f2 6d |ad%=.."B..."L..m| 00003b50 6f 75 73 65 31 0d 22 56 05 e1 0d 22 60 0b dd f2 |ouse1."V..."`...| 00003b60 66 72 70 75 74 0d 22 6a 0b 2a 46 58 32 31 20 30 |frput."j.*FX21 0| 00003b70 0d 22 74 0a 65 73 63 25 3d a3 0d 22 7e 0a 63 6e |."t.esc%=.."~.cn| 00003b80 74 25 3d 30 0d 22 88 0a 74 6f 74 25 3d 34 0d 22 |t%=0."..tot%=4."| 00003b90 92 09 69 24 3d 22 22 0d 22 9c 05 f5 0d 22 a6 05 |..i$=""."...."..| 00003ba0 f5 0d 22 b0 05 f5 0d 22 ba 0b 6b 25 3d a6 28 31 |.."...."..k%=.(1| 00003bb0 29 0d 22 c4 11 e7 a6 2d 31 31 33 3a 65 73 63 25 |)."....-113:esc%| 00003bc0 3d b9 0d 22 ce 23 fd 20 6b 25 3d 31 33 20 84 20 |=..".#. k%=13 . | 00003bd0 6b 25 3e 33 31 20 80 20 6b 25 3c 31 32 38 20 84 |k%>31 . k%<128 .| 00003be0 20 65 73 63 25 0d 22 d8 16 e7 6b 25 3d 31 32 37 | esc%."...k%=127| 00003bf0 20 80 20 63 6e 74 25 3e 30 20 8c 0d 22 e2 0b 63 | . cnt%>0 .."..c| 00003c00 6e 74 25 2d 3d 31 0d 22 ec 10 69 24 3d c0 69 24 |nt%-=1."..i$=.i$| 00003c10 2c 63 6e 74 25 29 0d 22 f6 20 f2 6d 65 73 73 28 |,cnt%).". .mess(| 00003c20 22 3e 22 2b c4 a9 28 69 24 29 2c 22 2a 22 29 2b |">"+..(i$),"*")+| 00003c30 22 3c 22 2c 38 29 0d 23 00 05 cd 0d 23 0a 14 fd |"<",8).#....#...| 00003c40 20 6b 25 3c 3e 31 32 37 20 84 20 65 73 63 25 0d | k%<>127 . esc%.| 00003c50 23 14 1a e7 6b 25 3c 3e 31 33 20 80 20 63 6e 74 |#...k%<>13 . cnt| 00003c60 25 3c 3e 74 6f 74 25 20 8c 0d 23 1e 0d e7 63 6e |%<>tot% ..#...cn| 00003c70 74 25 3d 30 20 8c 0d 23 28 32 e7 bd 28 6b 25 29 |t%=0 ..#(2..(k%)| 00003c80 3e 3d 22 61 22 20 80 20 bd 28 6b 25 29 3c 3d 22 |>="a" . .(k%)<="| 00003c90 7a 22 20 69 24 3d bd 28 6b 25 2d 33 32 29 20 8b |z" i$=.(k%-32) .| 00003ca0 69 24 3d bd 28 6b 25 29 0d 23 32 05 cc 0d 23 3c |i$=.(k%).#2...#<| 00003cb0 34 e7 bd 28 6b 25 29 3e 3d 22 41 22 20 80 20 bd |4..(k%)>="A" . .| 00003cc0 28 6b 25 29 3c 3d 22 5a 22 20 69 24 2b 3d bd 28 |(k%)<="Z" i$+=.(| 00003cd0 6b 25 2b 33 32 29 20 8b 69 24 2b 3d bd 28 6b 25 |k%+32) .i$+=.(k%| 00003ce0 29 0d 23 46 05 cd 0d 23 50 20 f2 6d 65 73 73 28 |).#F...#P .mess(| 00003cf0 22 3e 22 2b c4 a9 28 69 24 29 2c 22 2a 22 29 2b |">"+..(i$),"*")+| 00003d00 22 3c 22 2c 38 29 0d 23 5a 0b 63 6e 74 25 2b 3d |"<",8).#Z.cnt%+=| 00003d10 31 0d 23 64 05 cd 0d 23 6e 1e fd 20 6b 25 3d 31 |1.#d...#n.. k%=1| 00003d20 33 20 84 20 65 73 63 25 20 84 20 63 6e 74 25 3d |3 . esc% . cnt%=| 00003d30 74 6f 74 25 0d 23 78 05 e1 0d 23 82 14 dd f2 70 |tot%.#x...#....p| 00003d40 6f 69 6e 74 28 61 24 2c 6d 6f 73 25 29 0d 23 8c |oint(a$,mos%).#.| 00003d50 14 ea 20 77 69 72 25 2c 70 61 72 25 2c 64 61 74 |.. wir%,par%,dat| 00003d60 25 0d 23 96 20 de 20 77 69 72 25 20 31 30 38 38 |%.#. . wir% 1088| 00003d70 2c 70 61 72 25 20 32 30 2c 64 61 74 25 20 32 35 |,par% 20,dat% 25| 00003d80 36 0d 23 a0 17 68 25 3d 8e 28 66 24 2b 22 4d 69 |6.#..h%=.(f$+"Mi| 00003d90 73 63 2e 22 2b 61 24 29 0d 23 aa 0c e3 4a 25 3d |sc."+a$).#...J%=| 00003da0 30 b8 33 32 0d 23 b4 0c e3 4b 25 3d 30 b8 33 32 |0.32.#...K%=0.32| 00003db0 0d 23 be 18 77 69 72 25 3f 28 4b 25 2a 33 32 2b |.#..wir%?(K%*32+| 00003dc0 4a 25 29 3d 9a 23 68 25 0d 23 c8 05 ed 0d 23 d2 |J%)=.#h%.#....#.| 00003dd0 05 ed 0d 23 dc 08 d9 23 68 25 0d 23 e6 13 21 70 |...#...#h%.#..!p| 00003de0 61 72 25 3d 26 32 30 30 38 30 32 30 30 0d 23 f0 |ar%=&20080200.#.| 00003df0 0f 70 61 72 25 3f 31 3d 6d 6f 73 25 0d 23 fa 0c |.par%?1=mos%.#..| 00003e00 70 61 72 25 21 34 3d 30 0d 24 04 0f 70 61 72 25 |par%!4=0.$..par%| 00003e10 21 36 3d 64 61 74 25 0d 24 0e 0d 6d 6d 6f 25 3d |!6=dat%.$..mmo%=| 00003e20 64 61 74 25 0d 24 18 0e e3 4a 25 3d 33 32 b8 31 |dat%.$...J%=32.1| 00003e30 88 b9 0d 24 22 0b e3 4b 25 3d 30 b8 37 0d 24 2c |...$"..K%=0.7.$,| 00003e40 0d e3 4c 25 3d 33 b8 30 88 b9 0d 24 36 1d 76 61 |..L%=3.0...$6.va| 00003e50 6c 25 3d 77 69 72 25 3f 28 4a 25 2a 33 32 2b 4b |l%=wir%?(J%*32+K| 00003e60 25 2a 34 2b 4c 25 29 0d 24 40 30 e7 76 61 6c 25 |%*4+L%).$@0.val%| 00003e70 3d 26 46 46 3a 70 61 72 25 3f 34 3d 4b 25 2a 34 |=&FF:par%?4=K%*4| 00003e80 2b 4c 25 3a 70 61 72 25 3f 35 3d 33 31 2d 4a 25 |+L%:par%?5=31-J%| 00003e90 3a 76 61 6c 25 3d 30 0d 24 4a 12 3f 6d 6d 6f 25 |:val%=0.$J.?mmo%| 00003ea0 3d 3f 6d 6d 6f 25 3c 3c 32 0d 24 54 0f 3f 6d 6d |=?mmo%<<2.$T.?mm| 00003eb0 6f 25 2b 3d 76 61 6c 25 0d 24 5e 05 ed 0d 24 68 |o%+=val%.$^...$h| 00003ec0 0b 6d 6d 6f 25 2b 3d 31 0d 24 72 05 ed 0d 24 7c |.mmo%+=1.$r...$|| 00003ed0 05 ed 0d 24 86 17 c8 99 22 4f 53 5f 57 6f 72 64 |...$...."OS_Word| 00003ee0 22 2c 32 31 2c 70 61 72 25 0d 24 90 05 e1 0d 24 |",21,par%.$....$| 00003ef0 9a 0d dd f2 64 65 73 6b 74 6f 70 0d 24 a4 08 c8 |....desktop.$...| 00003f00 97 20 87 0d 24 ae 14 c8 99 22 41 42 43 5f 42 6c |. ..$...."ABC_Bl| 00003f10 61 6e 6b 22 2c 31 31 0d 24 b8 10 f2 65 78 69 74 |ank",11.$...exit| 00003f20 6d 65 73 73 61 67 65 0d 24 c2 21 f2 6d 65 73 73 |message.$.!.mess| 00003f30 28 22 52 65 74 75 72 6e 20 74 6f 20 44 65 73 6b |("Return to Desk| 00003f40 74 6f 70 3f 22 2c 38 29 0d 24 cc 13 c8 99 22 41 |top?",8).$...."A| 00003f50 42 43 5f 50 61 6c 65 74 74 65 22 0d 24 d6 0b f2 |BC_Palette".$...| 00003f60 6d 6f 75 73 65 31 0d 24 e0 11 6b 25 3d a4 79 65 |mouse1.$..k%=.ye| 00003f70 73 6e 6f 28 34 34 29 0d 24 ea 15 c8 99 22 41 42 |sno(44).$...."AB| 00003f80 43 5f 43 6f 6c 6f 75 72 22 2c 31 35 0d 24 f4 0b |C_Colour",15.$..| 00003f90 73 75 6e 25 3d 31 30 0d 24 fe 0a e7 ac 6b 25 3a |sun%=10.$....k%:| 00003fa0 e1 0d 25 08 09 2a 46 58 32 30 0d 25 12 22 2a 43 |..%..*FX20.%."*C| 00003fb0 48 41 4e 4e 45 4c 56 4f 49 43 45 20 31 20 57 61 |HANNELVOICE 1 Wa| 00003fc0 76 65 53 79 6e 74 68 2d 42 65 65 70 0d 25 1c 22 |veSynth-Beep.%."| 00003fd0 2a 43 48 41 4e 4e 45 4c 56 4f 49 43 45 20 32 20 |*CHANNELVOICE 2 | 00003fe0 57 61 76 65 53 79 6e 74 68 2d 42 65 65 70 0d 25 |WaveSynth-Beep.%| 00003ff0 26 22 2a 43 48 41 4e 4e 45 4c 56 4f 49 43 45 20 |&"*CHANNELVOICE | 00004000 33 20 57 61 76 65 53 79 6e 74 68 2d 42 65 65 70 |3 WaveSynth-Beep| 00004010 0d 25 30 22 2a 43 48 41 4e 4e 45 4c 56 4f 49 43 |.%0"*CHANNELVOIC| 00004020 45 20 34 20 57 61 76 65 53 79 6e 74 68 2d 42 65 |E 4 WaveSynth-Be| 00004030 65 70 0d 25 3a 14 2a 57 49 50 45 20 72 61 6d 3a |ep.%:.*WIPE ram:| 00004040 2a 20 7e 43 7e 56 0d 25 44 0f 2a 52 4d 4b 49 4c |* ~C~V.%D.*RMKIL| 00004050 4c 20 41 42 43 0d 25 4e 12 2a 52 4d 4b 49 4c 4c |L ABC.%N.*RMKILL| 00004060 20 43 79 6d 62 61 6c 0d 25 58 12 2a 52 4d 4b 49 | Cymbal.%X.*RMKI| 00004070 4c 4c 20 44 61 6e 67 65 72 0d 25 62 11 2a 52 4d |LL Danger.%b.*RM| 00004080 4b 49 4c 4c 20 44 65 61 74 68 0d 25 6c 0f 2a 52 |KILL Death.%l.*R| 00004090 4d 4b 49 4c 4c 20 45 6e 64 0d 25 76 10 2a 52 4d |MKILL End.%v.*RM| 000040a0 4b 49 4c 4c 20 48 6f 6f 6b 0d 25 80 11 2a 52 4d |KILL Hook.%..*RM| 000040b0 4b 49 4c 4c 20 4c 61 75 67 68 0d 25 8a 10 2a 52 |KILL Laugh.%..*R| 000040c0 4d 4b 49 4c 4c 20 53 6b 69 64 0d 25 94 11 2a 52 |MKILL Skid.%..*R| 000040d0 4d 4b 49 4c 4c 20 53 74 65 61 6d 0d 25 9e 14 2a |MKILL Steam.%..*| 000040e0 52 4d 4b 49 4c 4c 20 53 79 6e 73 6d 61 6a 73 0d |RMKILL Synsmajs.| 000040f0 25 a8 11 2a 52 4d 4b 49 4c 4c 20 54 69 6d 65 72 |%..*RMKILL Timer| 00004100 0d 25 b2 1f 2a 52 4d 4b 49 4c 4c 20 31 30 2f 31 |.%..*RMKILL 10/1| 00004110 30 53 6f 75 6e 64 47 65 6e 65 72 61 74 6f 72 0d |0SoundGenerator.| 00004120 25 bc 0e 2a 50 4f 49 4e 54 45 52 20 31 0d 25 c6 |%..*POINTER 1.%.| 00004130 0f 2a 53 50 45 41 4b 45 52 20 4f 4e 0d 25 d0 0c |.*SPEAKER ON.%..| 00004140 2a 46 58 32 30 30 20 30 0d 25 da 08 ef 20 32 30 |*FX200 0.%... 20| 00004150 0d 25 e4 0c 2a 44 45 53 4b 54 4f 50 0d 25 ee 15 |.%..*DESKTOP.%..| 00004160 dd f2 77 69 6e 67 73 28 6c 24 2c 78 25 2c 79 25 |..wings(l$,x%,y%| 00004170 29 0d 25 f8 23 c8 99 22 41 42 43 5f 53 70 72 69 |).%.#.."ABC_Spri| 00004180 74 65 22 2c 62 25 2c 22 77 69 6e 67 73 22 2c 78 |te",b%,"wings",x| 00004190 25 2c 79 25 0d 26 02 07 ef 20 35 0d 26 0c 0a e6 |%,y%.&... 5.&...| 000041a0 20 30 2c 31 31 0d 26 16 20 ec 20 28 78 25 2a 32 | 0,11.&. . (x%*2| 000041b0 2b 32 39 38 29 2d a9 28 6c 24 29 2a 38 2c 79 25 |+298)-.(l$)*8,y%| 000041c0 2a 34 2d 34 30 0d 26 20 07 f1 6c 24 0d 26 2a 07 |*4-40.& ..l$.&*.| 000041d0 ef 20 34 0d 26 34 05 87 0d 26 3e 05 e1 0d 26 48 |. 4.&4...&>...&H| 000041e0 0c dd f2 73 65 6c 65 63 74 0d 26 52 36 e7 ac a4 |...select.&R6...| 000041f0 61 72 65 61 28 38 30 2c 31 38 2c 33 33 36 2c 38 |area(80,18,336,8| 00004200 34 30 29 20 80 20 ac a4 61 72 65 61 28 39 31 32 |40) . ..area(912| 00004210 2c 31 38 2c 31 31 36 38 2c 38 34 30 29 20 8c 0d |,18,1168,840) ..| 00004220 26 5c 0b 70 72 65 25 3d 2d 31 0d 26 66 0b 73 6c |&\.pre%=-1.&f.sl| 00004230 79 25 3d 2d 31 0d 26 70 0f f2 72 65 63 74 61 6e |y%=-1.&p..rectan| 00004240 67 6c 65 73 0d 26 7a 05 cc 0d 26 84 16 73 6c 79 |gles.&z...&..sly| 00004250 25 3d 28 6d 6f 79 25 2d 31 38 29 81 32 38 30 0d |%=(moy%-18).280.| 00004260 26 8e 23 e7 a4 61 72 65 61 28 39 31 32 2c 31 38 |&.#..area(912,18| 00004270 2c 31 31 36 38 2c 38 34 30 29 3a 73 6c 79 25 2b |,1168,840):sly%+| 00004280 3d 33 0d 26 98 11 e7 73 6c 79 25 3c 3e 70 72 65 |=3.&...sly%<>pre| 00004290 25 20 8c 0d 26 a2 0f f2 72 65 63 74 61 6e 67 6c |% ..&...rectangl| 000042a0 65 73 0d 26 ac 0d 70 72 65 25 3d 73 6c 79 25 0d |es.&..pre%=sly%.| 000042b0 26 b6 0a e6 20 30 2c 31 31 0d 26 c0 06 c8 96 0d |&... 0,11.&.....| 000042c0 26 ca 45 e7 73 6c 79 25 3c 33 20 c8 93 20 38 30 |&.E.sly%<3 .. 80| 000042d0 2c 73 6c 79 25 2a 32 38 30 2b 31 36 2c 32 35 36 |,sly%*280+16,256| 000042e0 2c 32 35 36 20 8b c8 93 20 39 31 32 2c 28 73 6c |,256 ... 912,(sl| 000042f0 79 25 2d 33 29 2a 32 38 30 2b 31 36 2c 32 35 36 |y%-3)*280+16,256| 00004300 2c 32 35 36 0d 26 d4 05 cd 0d 26 de 05 cd 0d 26 |,256.&....&....&| 00004310 e8 0d e7 62 75 74 25 3d 30 3a e1 0d 26 f2 0d c8 |...but%=0:..&...| 00004320 8e 20 73 6c 79 25 20 ca 0d 26 fc 17 c9 20 30 3a |. sly% ..&... 0:| 00004330 f2 72 75 6e 28 22 43 68 61 69 6e 55 70 22 29 0d |.run("ChainUp").| 00004340 27 06 19 c9 20 31 3a f2 72 75 6e 28 22 50 72 6f |'... 1:.run("Pro| 00004350 63 65 73 73 6f 72 22 29 0d 27 10 18 c9 20 32 3a |cessor").'... 2:| 00004360 f2 72 75 6e 28 22 47 72 61 70 68 6f 69 64 22 29 |.run("Graphoid")| 00004370 0d 27 1a 1a c9 20 33 3a f2 72 75 6e 28 22 52 69 |.'... 3:.run("Ri| 00004380 62 54 69 63 6b 6c 65 72 22 29 0d 27 24 19 c9 20 |bTickler").'$.. | 00004390 34 3a f2 72 75 6e 28 22 54 75 72 62 6f 52 61 66 |4:.run("TurboRaf| 000043a0 74 22 29 0d 27 2e 16 c9 20 35 3a f2 72 75 6e 28 |t").'... 5:.run(| 000043b0 22 48 6f 6f 6b 49 74 22 29 0d 27 38 05 cb 0d 27 |"HookIt").'8...'| 000043c0 42 05 f5 0d 27 4c 15 c8 97 20 6d 6f 78 25 2c 6d |B...'L... mox%,m| 000043d0 6f 79 25 2c 62 75 74 25 0d 27 56 0c fd 20 62 75 |oy%,but%.'V.. bu| 000043e0 74 25 3d 30 0d 27 60 12 e7 73 6c 79 25 3e 2d 31 |t%=0.'`..sly%>-1| 000043f0 3a f2 6d 65 6e 75 0d 27 6a 0b f2 6d 6f 75 73 65 |:.menu.'j..mouse| 00004400 31 0d 27 74 05 e1 0d 27 7e 0e dd f2 63 6f 6e 74 |1.'t...'~...cont| 00004410 65 6e 74 73 0d 27 88 07 ef 20 35 0d 27 92 0b e3 |ents.'... 5.'...| 00004420 4a 25 3d 31 b8 33 0d 27 9c 2d c8 99 22 41 42 43 |J%=1.3.'.-.."ABC| 00004430 5f 55 6e 70 61 63 6b 53 70 72 69 74 65 22 2c 4a |_UnpackSprite",J| 00004440 25 2d 31 2c 7a 25 2c 34 38 2c 32 37 34 2d 4a 25 |%-1,z%,48,274-J%| 00004450 2a 37 30 0d 27 a6 2e c8 99 22 41 42 43 5f 55 6e |*70.'...."ABC_Un| 00004460 70 61 63 6b 53 70 72 69 74 65 22 2c 4a 25 2b 32 |packSprite",J%+2| 00004470 2c 7a 25 2c 34 36 34 2c 32 37 34 2d 4a 25 2a 37 |,z%,464,274-J%*7| 00004480 30 0d 27 b0 05 ed 0d 27 ba 0a f7 20 8d 44 64 68 |0.'....'... .Ddh| 00004490 0d 27 c4 0b e3 4a 25 3d 31 b8 33 0d 27 ce 0b f3 |.'...J%=1.3.'...| 000044a0 20 61 24 2c 62 24 0d 27 d8 09 e6 20 30 2c 37 0d | a$,b$.'... 0,7.| 000044b0 27 e2 13 ec 20 39 36 2c 4a 25 2a 32 38 30 2d 32 |'... 96,J%*280-2| 000044c0 33 32 0d 27 ec 07 f1 61 24 0d 27 f6 14 ec 20 39 |32.'...a$.'... 9| 000044d0 32 38 2c 4a 25 2a 32 38 30 2d 32 33 32 0d 28 00 |28,J%*280-232.(.| 000044e0 07 f1 62 24 0d 28 0a 09 e6 20 30 2c 30 0d 28 14 |..b$.(... 0,0.(.| 000044f0 14 ec 20 31 30 32 2c 4a 25 2a 32 38 30 2d 32 32 |.. 102,J%*280-22| 00004500 38 0d 28 1e 07 f1 61 24 0d 28 28 14 ec 20 39 33 |8.(...a$.((.. 93| 00004510 34 2c 4a 25 2a 32 38 30 2d 32 32 38 0d 28 32 07 |4,J%*280-228.(2.| 00004520 f1 62 24 0d 28 3c 05 ed 0d 28 46 07 ef 20 34 0d |.b$.(<...(F.. 4.| 00004530 28 50 05 87 0d 28 5a 05 e1 0d 28 64 41 dc 20 43 |(P...(Z...(dA. C| 00004540 68 61 69 6e 20 55 70 2c 52 69 62 20 54 69 63 6b |hain Up,Rib Tick| 00004550 6c 65 72 2c 50 72 6f 63 65 73 73 6f 72 2c 54 75 |ler,Processor,Tu| 00004560 72 62 6f 20 52 61 66 74 2c 47 72 61 70 68 6f 69 |rbo Raft,Graphoi| 00004570 64 2c 48 6f 6f 6b 20 49 74 21 0d 28 6e 10 dd f2 |d,Hook It!.(n...| 00004580 72 65 63 74 61 6e 67 6c 65 73 0d 28 78 09 e6 20 |rectangles.(x.. | 00004590 30 2c 30 0d 28 82 0b e3 4a 25 3d 31 b8 33 0d 28 |0,0.(...J%=1.3.(| 000045a0 8c 1c c8 93 20 38 30 2c 4a 25 2a 32 38 30 2d 32 |.... 80,J%*280-2| 000045b0 36 34 2c 32 35 36 2c 32 35 36 0d 28 96 1d c8 93 |64,256,256.(....| 000045c0 20 39 31 32 2c 4a 25 2a 32 38 30 2d 32 36 34 2c | 912,J%*280-264,| 000045d0 32 35 36 2c 32 35 36 0d 28 a0 05 ed 0d 28 aa 05 |256,256.(....(..| 000045e0 e1 0d 28 b4 15 dd f2 61 63 68 69 65 76 65 64 69 |..(....achievedi| 000045f0 73 63 64 75 6d 70 0d 28 be 0b e7 ac a6 2d 32 3a |scdump.(.....-2:| 00004600 e1 0d 28 c8 0c e7 ac a6 2d 38 32 3a e1 0d 28 d2 |..(.....-82:..(.| 00004610 07 ef 20 37 0d 28 dc 08 c8 97 20 87 0d 28 e6 07 |.. 7.(.... ..(..| 00004620 ea 20 85 0d 28 f0 20 c8 99 22 41 42 43 5f 54 72 |. ..(. .."ABC_Tr| 00004630 61 6e 73 66 65 72 22 2c 30 2c 31 36 2c 36 34 30 |ansfer",0,16,640| 00004640 2c 31 37 0d 28 fa 29 f2 69 6e 70 75 74 28 33 32 |,17.(.).input(32| 00004650 2c 22 61 64 66 73 3a 3a 30 2e 24 2e 41 63 68 69 |,"adfs::0.$.Achi| 00004660 65 76 65 53 70 72 22 2c a3 2c b9 29 0d 29 04 13 |eveSpr",.,.).)..| 00004670 c8 99 22 41 42 43 5f 52 65 73 74 6f 72 65 22 0d |.."ABC_Restore".| 00004680 29 0e 13 e7 65 73 63 25 20 84 20 69 24 3d 22 22 |)...esc% . i$=""| 00004690 3a e1 0d 29 18 18 ef 20 32 34 2c 30 3b 31 39 32 |:..)... 24,0;192| 000046a0 3b 31 32 37 38 3b 39 36 30 3b 0d 29 22 14 c8 99 |;1278;960;.)"...| 000046b0 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d 29 |"Hourglass_On".)| 000046c0 2c 15 ff 22 53 43 52 45 45 4e 53 41 56 45 20 22 |,.."SCREENSAVE "| 000046d0 2b 69 24 0d 29 36 08 ef 20 32 36 0d 29 40 17 c8 |+i$.)6.. 26.)@..| 000046e0 99 22 48 6f 75 72 67 6c 61 73 73 5f 53 6d 61 73 |."Hourglass_Smas| 000046f0 68 22 0d 29 4a 50 ee 20 85 20 ea 3a ef 20 37 3a |h".)JP. . .:. 7:| 00004700 f2 6d 65 73 73 28 22 50 4c 45 41 53 45 20 49 4e |.mess("PLEASE IN| 00004710 53 45 52 54 20 44 49 53 43 20 49 4e 54 4f 20 44 |SERT DISC INTO D| 00004720 52 49 56 45 20 41 4e 44 20 50 52 45 53 53 20 52 |RIVE AND PRESS R| 00004730 45 54 55 52 4e 22 2c 38 29 3a f5 3a fd 20 a6 2d |ETURN",8):.:. .-| 00004740 37 34 0d 29 54 1d 2a 44 49 52 20 3c 44 69 73 63 |74.)T.*DIR <Disc| 00004750 32 24 44 69 72 3e 2e 53 69 78 47 61 6d 65 73 0d |2$Dir>.SixGames.| 00004760 29 5e 13 c8 99 22 41 42 43 5f 52 65 73 74 6f 72 |)^..."ABC_Restor| 00004770 65 22 0d 29 68 10 c8 97 20 b8 20 36 34 30 2c 35 |e".)h... . 640,5| 00004780 31 32 0d 29 72 0b f2 6d 6f 75 73 65 31 0d 29 7c |12.)r..mouse1.)|| 00004790 05 e1 0d 29 86 16 dd f2 61 63 68 69 65 76 65 70 |...)....achievep| 000047a0 72 69 6e 74 64 75 6d 70 0d 29 90 0b e7 ac a6 2d |rintdump.).....-| 000047b0 32 3a e1 0d 29 9a 0c e7 ac a6 2d 35 36 3a e1 0d |2:..).....-56:..| 000047c0 29 a4 06 ef 37 0d 29 ae 14 c8 99 22 48 6f 75 72 |)...7.)...."Hour| 000047d0 67 6c 61 73 73 5f 4f 6e 22 0d 29 b8 0a f7 20 8d |glass_On".)... .| 000047e0 74 56 45 0d 29 c2 11 6e 65 77 25 28 29 3d 61 74 |tVE.)..new%()=at| 000047f0 74 25 28 29 0d 29 cc 17 f2 70 72 69 6e 74 70 61 |t%().)...printpa| 00004800 67 65 28 61 74 74 65 6e 64 24 29 0d 29 d6 0a f2 |ge(attend$).)...| 00004810 66 6c 75 73 68 0d 29 e0 17 c8 99 22 48 6f 75 72 |flush.)...."Hour| 00004820 67 6c 61 73 73 5f 53 6d 61 73 68 22 0d 29 ea 0b |glass_Smash".)..| 00004830 f2 6d 6f 75 73 65 31 0d 29 f4 05 e1 0d 29 fe 19 |.mouse1.)....)..| 00004840 dd f2 61 6c 6c 61 63 68 69 65 76 65 70 72 69 6e |..allachieveprin| 00004850 74 64 75 6d 70 0d 2a 08 0b e7 ac a6 2d 32 3a e1 |tdump.*.....-2:.| 00004860 0d 2a 12 0d e7 ac a6 2d 31 30 32 3a e1 0d 2a 1c |.*.....-102:..*.| 00004870 07 ef 20 37 0d 2a 26 14 c8 99 22 48 6f 75 72 67 |.. 7.*&..."Hourg| 00004880 6c 61 73 73 5f 4f 6e 22 0d 2a 30 15 f2 64 69 73 |lass_On".*0..dis| 00004890 70 6c 61 79 64 69 72 65 63 74 6f 72 79 0d 2a 3a |playdirectory.*:| 000048a0 0a f2 66 6c 75 73 68 0d 2a 44 17 c8 99 22 48 6f |..flush.*D..."Ho| 000048b0 75 72 67 6c 61 73 73 5f 53 6d 61 73 68 22 0d 2a |urglass_Smash".*| 000048c0 4e 0b f2 6d 6f 75 73 65 31 0d 2a 58 0e 66 69 6c |N..mouse1.*X.fil| 000048d0 65 73 25 28 29 3d a3 0d 2a 62 0a 6c 73 74 25 3d |es%()=..*b.lst%=| 000048e0 30 0d 2a 6c 05 f5 0d 2a 76 15 c8 97 20 6d 6f 78 |0.*l...*v... mox| 000048f0 25 2c 6d 6f 79 25 2c 62 75 74 25 0d 2a 80 16 73 |%,moy%,but%.*..s| 00004900 71 78 25 3d 28 6d 6f 78 25 2d 31 32 38 29 3e 3e |qx%=(mox%-128)>>| 00004910 38 0d 2a 8a 12 e7 73 71 78 25 3e 33 3a 73 71 78 |8.*...sqx%>3:sqx| 00004920 25 3d 33 0d 2a 94 12 e7 73 71 78 25 3c 30 3a 73 |%=3.*...sqx%<0:s| 00004930 71 78 25 3d 30 0d 2a 9e 17 73 71 79 25 3d 28 31 |qx%=0.*..sqy%=(1| 00004940 30 32 34 2d 6d 6f 79 25 29 3e 3e 36 0d 2a a8 14 |024-moy%)>>6.*..| 00004950 e7 73 71 79 25 3e 31 35 3a 73 71 79 25 3d 31 35 |.sqy%>15:sqy%=15| 00004960 0d 2a b2 15 69 6e 78 25 3d 73 71 79 25 2b 73 71 |.*..inx%=sqy%+sq| 00004970 78 25 2a 67 25 0d 2a bc 14 e7 69 6e 78 25 3e 36 |x%*g%.*...inx%>6| 00004980 33 3a 69 6e 78 25 3d 36 33 0d 2a c6 11 e7 69 6e |3:inx%=63.*...in| 00004990 78 25 3c 3e 6c 73 74 25 20 8c 0d 2a d0 32 e7 66 |x%<>lst% ..*.2.f| 000049a0 69 6c 65 73 25 28 6c 73 74 25 29 20 f2 73 6d 61 |iles%(lst%) .sma| 000049b0 6c 6c 28 6c 73 74 25 2c 31 34 29 20 8b f2 73 6d |ll(lst%,14) ..sm| 000049c0 61 6c 6c 28 6c 73 74 25 2c 31 31 29 0d 2a da 32 |all(lst%,11).*.2| 000049d0 e7 66 69 6c 65 73 25 28 69 6e 78 25 29 20 f2 73 |.files%(inx%) .s| 000049e0 6d 61 6c 6c 28 69 6e 78 25 2c 31 34 29 20 8b f2 |mall(inx%,14) ..| 000049f0 73 6d 61 6c 6c 28 69 6e 78 25 2c 31 35 29 0d 2a |small(inx%,15).*| 00004a00 e4 0d 6c 73 74 25 3d 69 6e 78 25 0d 2a ee 05 cd |..lst%=inx%.*...| 00004a10 0d 2a f8 22 e7 62 75 74 25 3d 31 20 80 20 66 69 |.*.".but%=1 . fi| 00004a20 6c 65 6e 61 6d 65 24 28 6c 73 74 25 29 3e 22 22 |lename$(lst%)>""| 00004a30 20 8c 0d 2b 02 1e 66 69 6c 65 73 25 28 6c 73 74 | ..+..files%(lst| 00004a40 25 29 3d ac 66 69 6c 65 73 25 28 6c 73 74 25 29 |%)=.files%(lst%)| 00004a50 0d 2b 0c 32 e7 66 69 6c 65 73 25 28 6c 73 74 25 |.+.2.files%(lst%| 00004a60 29 20 f2 73 6d 61 6c 6c 28 6c 73 74 25 2c 31 34 |) .small(lst%,14| 00004a70 29 20 8b f2 73 6d 61 6c 6c 28 6c 73 74 25 2c 31 |) ..small(lst%,1| 00004a80 31 29 0d 2b 16 05 f5 0d 2b 20 15 c8 97 20 6d 6f |1).+....+ ... mo| 00004a90 78 25 2c 6d 6f 79 25 2c 62 75 74 25 0d 2b 2a 0c |x%,moy%,but%.+*.| 00004aa0 fd 20 62 75 74 25 3d 30 0d 2b 34 05 cd 0d 2b 3e |. but%=0.+4...+>| 00004ab0 15 e7 a6 2d 31 31 33 20 6b 25 3d b9 20 8b 6b 25 |...-113 k%=. .k%| 00004ac0 3d a3 0d 2b 48 11 fd 20 62 75 74 25 3d 34 20 84 |=..+H.. but%=4 .| 00004ad0 20 6b 25 0d 2b 52 16 61 24 3d 66 69 6c 65 6e 61 | k%.+R.a$=filena| 00004ae0 6d 65 24 28 6c 73 74 25 29 0d 2b 5c 0a e7 ac 6b |me$(lst%).+\...k| 00004af0 25 20 8c 0d 2b 66 14 c8 99 22 48 6f 75 72 67 6c |% ..+f..."Hourgl| 00004b00 61 73 73 5f 4f 6e 22 0d 2b 70 15 c8 99 22 41 42 |ass_On".+p..."AB| 00004b10 43 5f 43 6f 6c 6f 75 72 22 2c 31 35 0d 2b 7a 08 |C_Colour",15.+z.| 00004b20 58 25 3d 30 0d 2b 84 0a 65 73 63 25 3d a3 0d 2b |X%=0.+..esc%=..+| 00004b30 8e 14 c8 95 20 58 25 3c 36 34 20 80 20 ac 65 73 |.... X%<64 . .es| 00004b40 63 25 0d 2b 98 11 e7 66 69 6c 65 73 25 28 58 25 |c%.+...files%(X%| 00004b50 29 20 8c 0d 2b a2 4a 68 25 3d 8e 28 22 3c 44 69 |) ..+.Jh%=.("<Di| 00004b60 73 63 32 24 44 69 72 3e 2e 53 69 78 47 61 6d 65 |sc2$Dir>.SixGame| 00004b70 73 2e 41 63 68 69 65 76 65 2e 41 63 68 69 65 76 |s.Achieve.Achiev| 00004b80 65 22 2b c3 28 63 6c 61 25 29 2b 22 2e 22 2b 66 |e"+.(cla%)+"."+f| 00004b90 69 6c 65 6e 61 6d 65 24 28 58 25 29 29 0d 2b ac |ilename$(X%)).+.| 00004ba0 0c e3 4a 25 3d 31 b8 31 30 0d 2b b6 0b e3 4b 25 |..J%=1.10.+...K%| 00004bb0 3d 31 b8 36 0d 2b c0 14 e8 23 68 25 2c 6e 65 77 |=1.6.+...#h%,new| 00004bc0 25 28 4b 25 2c 4a 25 29 0d 2b ca 05 ed 0d 2b d4 |%(K%,J%).+....+.| 00004bd0 05 ed 0d 2b de 08 d9 23 68 25 0d 2b e8 1d f2 70 |...+...#h%.+...p| 00004be0 72 69 6e 74 70 61 67 65 28 66 69 6c 65 6e 61 6d |rintpage(filenam| 00004bf0 65 24 28 58 25 29 29 0d 2b f2 05 cd 0d 2b fc 09 |e$(X%)).+....+..| 00004c00 58 25 2b 3d 31 0d 2c 06 05 ce 0d 2c 10 17 c8 99 |X%+=1.,....,....| 00004c10 22 48 6f 75 72 67 6c 61 73 73 5f 53 6d 61 73 68 |"Hourglass_Smash| 00004c20 22 0d 2c 1a 05 cd 0d 2c 24 10 f2 61 63 68 69 65 |".,....,$..achie| 00004c30 76 65 63 61 72 64 0d 2c 2e 05 f5 0d 2c 38 15 c8 |vecard.,....,8..| 00004c40 97 20 6d 6f 78 25 2c 6d 6f 79 25 2c 62 75 74 25 |. mox%,moy%,but%| 00004c50 0d 2c 42 0c fd 20 62 75 74 25 3d 30 0d 2c 4c 05 |.,B.. but%=0.,L.| 00004c60 e1 0d 2c 56 16 dd f2 70 72 69 6e 74 70 61 67 65 |..,V...printpage| 00004c70 28 6e 61 6d 65 24 29 0d 2c 60 0c 2a 46 58 32 30 |(name$).,`.*FX20| 00004c80 30 20 30 0d 2c 6a 07 ea 20 85 0d 2c 74 25 ee 20 |0 0.,j.. ..,t%. | 00004c90 85 20 ea 3a ef 20 36 2c 33 2c 37 3a ff 22 46 58 |. .:. 6,3,7:."FX| 00004ca0 32 30 30 20 31 22 3a 65 73 63 25 3d b9 3a e1 0d |200 1":esc%=.:..| 00004cb0 2c 7e 0a ef 20 32 2c 32 31 0d 2c 88 0b f2 68 65 |,~.. 2,21.,...he| 00004cc0 61 64 65 72 0d 2c 92 14 61 24 3d a4 73 74 72 69 |ader.,..a$=.stri| 00004cd0 70 28 6e 61 6d 65 24 29 0d 2c 9c 15 e7 61 24 3d |p(name$).,...a$=| 00004ce0 22 22 3a 61 24 3d 22 45 6d 70 74 79 22 0d 2c a6 |"":a$="Empty".,.| 00004cf0 27 f2 70 72 69 6e 74 65 72 28 22 54 68 65 20 61 |'.printer("The a| 00004d00 63 68 69 65 76 65 6d 65 6e 74 73 20 6f 66 20 22 |chievements of "| 00004d10 2b 61 24 29 0d 2c b0 44 f2 70 72 69 6e 74 65 72 |+a$).,.D.printer| 00004d20 28 22 70 6c 61 79 69 6e 67 20 74 68 65 20 31 30 |("playing the 10| 00004d30 20 6f 75 74 20 6f 66 20 31 30 20 4d 61 74 68 65 | out of 10 Mathe| 00004d40 6d 61 74 69 63 73 20 28 41 6c 67 65 62 72 61 29 |matics (Algebra)| 00004d50 20 67 61 6d 65 73 22 29 0d 2c ba 10 f2 70 72 69 | games").,...pri| 00004d60 6e 74 65 72 28 22 22 29 0d 2c c4 13 f2 70 72 69 |nter("").,...pri| 00004d70 6e 74 65 72 28 a4 64 61 74 65 29 0d 2c ce 10 f2 |nter(.date).,...| 00004d80 70 72 69 6e 74 65 72 28 22 22 29 0d 2c d8 0a f7 |printer("").,...| 00004d90 20 8d 54 74 70 0d 2c e2 3a f2 70 72 69 6e 74 65 | .Ttp.,.:.printe| 00004da0 72 28 74 79 70 24 2b 22 20 20 20 20 20 20 43 6f |r(typ$+" Co| 00004db0 76 65 72 69 6e 67 22 2b c4 35 33 2c 22 20 22 29 |vering"+.53," ")| 00004dc0 2b 22 41 63 68 69 65 76 65 6d 65 6e 74 22 29 0d |+"Achievement").| 00004dd0 2c ec 10 f2 70 72 69 6e 74 65 72 28 22 22 29 0d |,...printer("").| 00004de0 2c f6 18 f2 70 72 69 6e 74 65 72 28 22 47 52 41 |,...printer("GRA| 00004df0 50 48 4f 49 44 22 29 0d 2d 00 13 f2 67 61 6d 65 |PHOID").-...game| 00004e00 64 65 74 61 69 6c 73 28 31 29 0d 2d 0a 19 f2 70 |details(1).-...p| 00004e10 72 69 6e 74 65 72 28 22 50 52 4f 43 45 53 53 4f |rinter("PROCESSO| 00004e20 52 22 29 0d 2d 14 13 f2 67 61 6d 65 64 65 74 61 |R").-...gamedeta| 00004e30 69 6c 73 28 32 29 0d 2d 1e 18 f2 70 72 69 6e 74 |ils(2).-...print| 00004e40 65 72 28 22 43 48 41 49 4e 20 55 50 22 29 0d 2d |er("CHAIN UP").-| 00004e50 28 13 f2 67 61 6d 65 64 65 74 61 69 6c 73 28 33 |(..gamedetails(3| 00004e60 29 0d 2d 32 18 f2 70 72 69 6e 74 65 72 28 22 48 |).-2..printer("H| 00004e70 4f 4f 4b 20 49 54 21 22 29 0d 2d 3c 13 f2 67 61 |OOK IT!").-<..ga| 00004e80 6d 65 64 65 74 61 69 6c 73 28 34 29 0d 2d 46 1a |medetails(4).-F.| 00004e90 f2 70 72 69 6e 74 65 72 28 22 54 55 52 42 4f 20 |.printer("TURBO | 00004ea0 52 41 46 54 22 29 0d 2d 50 13 f2 67 61 6d 65 64 |RAFT").-P..gamed| 00004eb0 65 74 61 69 6c 73 28 35 29 0d 2d 5a 1b f2 70 72 |etails(5).-Z..pr| 00004ec0 69 6e 74 65 72 28 22 52 49 42 20 54 49 43 4b 4c |inter("RIB TICKL| 00004ed0 45 52 22 29 0d 2d 64 13 f2 67 61 6d 65 64 65 74 |ER").-d..gamedet| 00004ee0 61 69 6c 73 28 36 29 0d 2d 6e 2b f2 70 72 69 6e |ails(6).-n+.prin| 00004ef0 74 65 72 28 22 4b 45 59 20 54 4f 20 41 43 48 49 |ter("KEY TO ACHI| 00004f00 45 56 45 4d 45 4e 54 20 43 4f 4c 4f 55 52 53 3a |EVEMENT COLOURS:| 00004f10 22 29 0d 2d 78 10 f2 70 72 69 6e 74 65 72 28 22 |").-x..printer("| 00004f20 22 29 0d 2d 82 2e f2 70 72 69 6e 74 65 72 28 22 |").-...printer("| 00004f30 42 4c 55 45 20 20 20 3d 20 31 30 30 25 20 28 31 |BLUE = 100% (1| 00004f40 30 20 74 69 6d 65 73 20 47 52 45 45 4e 29 22 29 |0 times GREEN)")| 00004f50 0d 2d 8c 2d f2 70 72 69 6e 74 65 72 28 22 47 52 |.-.-.printer("GR| 00004f60 45 45 4e 20 20 3d 20 31 30 30 25 20 28 31 30 20 |EEN = 100% (10 | 00004f70 6f 75 74 20 6f 66 20 31 30 21 29 22 29 0d 2d 96 |out of 10!)").-.| 00004f80 24 f2 70 72 69 6e 74 65 72 28 22 59 45 4c 4c 4f |$.printer("YELLO| 00004f90 57 20 3d 20 35 30 25 20 6f 72 20 6f 76 65 72 22 |W = 50% or over"| 00004fa0 29 0d 2d a0 22 f2 70 72 69 6e 74 65 72 28 22 52 |).-.".printer("R| 00004fb0 45 44 20 20 20 20 3d 20 55 6e 64 65 72 20 35 30 |ED = Under 50| 00004fc0 25 22 29 0d 2d aa 3b f2 70 72 69 6e 74 65 72 28 |%").-.;.printer(| 00004fd0 22 2d 20 20 20 20 20 20 3d 20 6d 65 61 6e 73 20 |"- = means | 00004fe0 74 68 65 20 67 72 61 64 65 20 68 61 73 20 6e 6f |the grade has no| 00004ff0 74 20 62 65 65 6e 20 74 72 69 65 64 22 29 0d 2d |t been tried").-| 00005000 b4 10 c8 95 20 70 6e 74 25 3c 70 61 70 25 0d 2d |.... pnt%<pap%.-| 00005010 be 05 f1 0d 2d c8 0b 70 6e 74 25 2b 3d 31 0d 2d |....-..pnt%+=1.-| 00005020 d2 05 ce 0d 2d dc 0b f2 66 6f 6f 74 65 72 0d 2d |....-...footer.-| 00005030 e6 09 ef 20 36 2c 33 0d 2d f0 0c 2a 46 58 32 30 |... 6,3.-..*FX20| 00005040 30 20 31 0d 2d fa 05 e1 0d 2e 04 17 dd f2 67 61 |0 1.-.........ga| 00005050 6d 65 64 65 74 61 69 6c 73 28 6e 75 6d 25 29 0d |medetails(num%).| 00005060 2e 0e 0b e3 4a 25 3d 31 b8 36 0d 2e 18 08 f3 20 |....J%=1.6..... | 00005070 4b 25 0d 2e 22 15 62 24 3d 69 6e 66 6f 24 28 6e |K%..".b$=info$(n| 00005080 75 6d 25 2c 4b 25 29 0d 2e 2c 0b e7 6e 69 67 25 |um%,K%)..,..nig%| 00005090 20 8c 0d 2e 36 09 61 24 3d 62 24 0d 2e 40 21 e7 | ...6.a$=b$..@!.| 000050a0 a7 61 24 2c 22 80 22 29 3e 30 3a c1 61 24 2c a7 |.a$,".")>0:.a$,.| 000050b0 61 24 2c 22 80 22 29 29 3d 22 31 22 0d 2e 4a 21 |a$,"."))="1"..J!| 000050c0 e7 a7 61 24 2c 22 81 22 29 3e 30 3a c1 61 24 2c |..a$,".")>0:.a$,| 000050d0 a7 61 24 2c 22 81 22 29 29 3d 22 32 22 0d 2e 54 |.a$,"."))="2"..T| 000050e0 21 e7 a7 61 24 2c 22 82 22 29 3e 30 3a c1 61 24 |!..a$,".")>0:.a$| 000050f0 2c a7 61 24 2c 22 82 22 29 29 3d 22 33 22 0d 2e |,.a$,"."))="3"..| 00005100 5e 05 cc 0d 2e 68 16 61 24 3d c1 62 24 2c a7 62 |^....h.a$=.b$,.b| 00005110 24 2c 22 29 22 29 2b 32 29 0d 2e 72 05 cd 0d 2e |$,")")+2)..r....| 00005120 7c 13 61 24 3d c3 28 4a 25 29 2b 22 20 22 2b 61 ||.a$=.(J%)+" "+a| 00005130 24 0d 2e 86 16 61 24 2b 3d c4 37 32 2d a9 28 61 |$....a$+=.72-.(a| 00005140 24 29 2c 22 20 22 29 0d 2e 90 16 c8 8e 20 6e 65 |$)," ")...... ne| 00005150 77 25 28 6e 75 6d 25 2c 4b 25 29 20 ca 0d 2e 9a |w%(num%,K%) ....| 00005160 0f c9 20 30 3a 61 24 2b 3d 22 2d 22 0d 2e a4 11 |.. 0:a$+="-"....| 00005170 c9 20 31 3a 61 24 2b 3d 22 52 45 44 22 0d 2e ae |. 1:a$+="RED"...| 00005180 14 c9 20 32 3a 61 24 2b 3d 22 59 45 4c 4c 4f 57 |.. 2:a$+="YELLOW| 00005190 22 0d 2e b8 25 c9 20 33 2c 34 2c 35 2c 36 2c 37 |"...%. 3,4,5,6,7| 000051a0 2c 38 2c 39 2c 31 30 2c 31 31 3a 61 24 2b 3d 22 |,8,9,10,11:a$+="| 000051b0 47 52 45 45 4e 22 0d 2e c2 10 7f 3a 61 24 2b 3d |GREEN".....:a$+=| 000051c0 22 42 4c 55 45 22 0d 2e cc 05 cb 0d 2e d6 10 f2 |"BLUE"..........| 000051d0 70 72 69 6e 74 65 72 28 61 24 29 0d 2e e0 05 ed |printer(a$).....| 000051e0 0d 2e ea 10 f2 70 72 69 6e 74 65 72 28 22 22 29 |.....printer("")| 000051f0 0d 2e f4 05 e1 0d 2e fe 0c dd f2 68 65 61 64 65 |...........heade| 00005200 72 0d 2f 08 0a 70 6e 74 25 3d 30 0d 2f 12 0d e7 |r./..pnt%=0./...| 00005210 68 65 64 25 3d 30 3a e1 0d 2f 1c 0f e3 57 25 3d |hed%=0:../...W%=| 00005220 31 b8 20 68 65 64 25 0d 2f 26 05 f1 0d 2f 30 05 |1. hed%./&.../0.| 00005230 ed 0d 2f 3a 05 e1 0d 2f 44 0c dd f2 66 6f 6f 74 |../:.../D...foot| 00005240 65 72 0d 2f 4e 0d e7 66 75 74 25 3d 30 3a e1 0d |er./N..fut%=0:..| 00005250 2f 58 0f e3 57 25 3d 31 b8 20 66 75 74 25 0d 2f |/X..W%=1. fut%./| 00005260 62 05 f1 0d 2f 6c 05 ed 0d 2f 76 05 e1 0d 2f 80 |b.../l.../v.../.| 00005270 11 dd f2 70 72 69 6e 74 65 72 28 6a 24 29 0d 2f |...printer(j$)./| 00005280 8a 07 f1 6a 24 0d 2f 94 0b 70 6e 74 25 2b 3d 31 |...j$./..pnt%+=1| 00005290 0d 2f 9e 10 e7 70 6e 74 25 3d 70 61 70 25 20 8c |./...pnt%=pap% .| 000052a0 0d 2f a8 0b f2 66 6f 6f 74 65 72 0d 2f b2 0b f2 |./...footer./...| 000052b0 68 65 61 64 65 72 0d 2f bc 05 cd 0d 2f c6 05 e1 |header./..../...| 000052c0 0d 2f d0 0a dd a4 64 61 74 65 0d 2f da 0a f7 20 |./....date./... | 000052d0 8d 54 60 70 0d 2f e4 0a 66 6e 64 25 3d a3 0d 2f |.T`p./..fnd%=../| 000052e0 ee 0c c8 95 20 ac 66 6e 64 25 0d 2f f8 0c f3 20 |.... .fnd%./... | 000052f0 61 62 24 2c 6e 24 0d 30 02 14 e7 a7 91 24 2c 61 |ab$,n$.0.....$,a| 00005300 62 24 29 3a 66 6e 64 25 3d b9 0d 30 0c 05 ce 0d |b$):fnd%=..0....| 00005310 30 16 23 3d 22 44 61 74 65 3a 20 22 2b c1 91 24 |0.#="Date: "+..$| 00005320 2c 35 2c 33 29 2b 6e 24 2b c1 91 24 2c 31 31 2c |,5,3)+n$+..$,11,| 00005330 35 29 0d 30 20 47 dc 20 4a 61 6e 2c 4a 61 6e 75 |5).0 G. Jan,Janu| 00005340 61 72 79 2c 46 65 62 2c 46 65 62 72 75 61 72 79 |ary,Feb,February| 00005350 2c 4d 61 72 2c 4d 61 72 63 68 2c 41 70 72 2c 41 |,Mar,March,Apr,A| 00005360 70 72 69 6c 2c 4d 61 79 2c 4d 61 79 2c 4a 75 6e |pril,May,May,Jun| 00005370 2c 4a 75 6e 65 2c 4a 75 6c 0d 30 2a 49 dc 20 4a |,June,Jul.0*I. J| 00005380 75 6c 79 2c 41 75 67 2c 41 75 67 75 73 74 2c 53 |uly,Aug,August,S| 00005390 65 70 2c 53 65 70 74 65 6d 62 65 72 2c 4f 63 74 |ep,September,Oct| 000053a0 2c 4f 63 74 6f 62 65 72 2c 4e 6f 76 2c 4e 6f 76 |,October,Nov,Nov| 000053b0 65 6d 62 65 72 2c 44 65 63 2c 44 65 63 65 6d 62 |ember,Dec,Decemb| 000053c0 65 72 0d 30 34 12 dc 20 31 30 2c 34 2c 35 2c 37 |er.04.. 10,4,5,7| 000053d0 2c 38 2c 39 0d 30 3e 12 dc 20 31 2c 31 30 2c 36 |,8,9.0>.. 1,10,6| 000053e0 2c 33 2c 37 2c 38 0d 30 48 12 dc 20 31 30 2c 36 |,3,7,8.0H.. 10,6| 000053f0 2c 34 2c 33 2c 39 2c 35 0d 30 52 12 dc 20 32 2c |,4,3,9,5.0R.. 2,| 00005400 31 2c 31 30 2c 36 2c 33 2c 39 0d 30 5c 12 dc 20 |1,10,6,3,9.0\.. | 00005410 31 2c 36 2c 31 30 2c 39 2c 33 2c 32 0d 30 66 12 |1,6,10,9,3,2.0f.| 00005420 dc 20 31 2c 31 30 2c 39 2c 32 2c 38 2c 37 0d 30 |. 1,10,9,2,8,7.0| 00005430 70 0b dd f2 66 6c 75 73 68 0d 30 7a 0b 2a 46 58 |p...flush.0z.*FX| 00005440 32 31 20 39 0d 30 84 05 e1 0d 30 8e 11 dd a4 73 |21 9.0....0....s| 00005450 74 72 69 70 28 73 74 72 24 29 0d 30 98 13 c8 95 |trip(str$).0....| 00005460 20 a7 73 74 72 24 2c 22 5f 22 29 3e 30 0d 30 a2 | .str$,"_")>0.0.| 00005470 19 c1 73 74 72 24 2c a7 73 74 72 24 2c 22 5f 22 |..str$,.str$,"_"| 00005480 29 29 3d 22 20 22 0d 30 ac 05 ce 0d 30 b6 09 3d |))=" ".0....0..=| 00005490 73 74 72 24 0d 30 c0 1e dd f2 69 6e 70 75 74 28 |str$.0....input(| 000054a0 74 6f 74 25 2c 78 24 2c 63 61 70 25 2c 66 69 6c |tot%,x$,cap%,fil| 000054b0 25 29 0d 30 ca 0b 2a 46 58 32 31 20 30 0d 30 d4 |%).0..*FX21 0.0.| 000054c0 0a 65 73 63 25 3d a3 0d 30 de 0e 63 6e 74 25 3d |.esc%=..0..cnt%=| 000054d0 a9 28 78 24 29 0d 30 e8 09 69 24 3d 78 24 0d 30 |.(x$).0..i$=x$.0| 000054e0 f2 22 e7 66 69 6c 25 20 79 24 3d 22 66 69 6c 65 |.".fil% y$="file| 000054f0 6e 61 6d 65 3a 20 3e 22 20 8b 79 24 3d 22 3e 22 |name: >" .y$=">"| 00005500 0d 30 fc 16 f2 6d 65 73 73 28 79 24 2b 69 24 2b |.0...mess(y$+i$+| 00005510 22 3c 22 2c 38 29 0d 31 06 05 f5 0d 31 10 05 f5 |"<",8).1....1...| 00005520 0d 31 1a 05 f5 0d 31 24 0b 6b 25 3d a6 28 31 29 |.1....1$.k%=.(1)| 00005530 0d 31 2e 11 e7 a6 2d 31 31 33 3a 65 73 63 25 3d |.1....-113:esc%=| 00005540 b9 0d 31 38 23 fd 20 6b 25 3d 31 33 20 84 20 6b |..18#. k%=13 . k| 00005550 25 3e 33 31 20 80 20 6b 25 3c 31 32 38 20 84 20 |%>31 . k%<128 . | 00005560 65 73 63 25 0d 31 42 16 e7 6b 25 3d 31 32 37 20 |esc%.1B..k%=127 | 00005570 80 20 63 6e 74 25 3e 30 20 8c 0d 31 4c 0b 63 6e |. cnt%>0 ..1L.cn| 00005580 74 25 2d 3d 31 0d 31 56 10 69 24 3d c0 69 24 2c |t%-=1.1V.i$=.i$,| 00005590 63 6e 74 25 29 0d 31 60 16 f2 6d 65 73 73 28 79 |cnt%).1`..mess(y| 000055a0 24 2b 69 24 2b 22 3c 22 2c 38 29 0d 31 6a 05 cd |$+i$+"<",8).1j..| 000055b0 0d 31 74 14 fd 20 6b 25 3c 3e 31 32 37 20 84 20 |.1t.. k%<>127 . | 000055c0 65 73 63 25 0d 31 7e 1a e7 6b 25 3c 3e 31 33 20 |esc%.1~..k%<>13 | 000055d0 80 20 63 6e 74 25 3c 3e 74 6f 74 25 20 8c 0d 31 |. cnt%<>tot% ..1| 000055e0 88 0b e7 63 61 70 25 20 8c 0d 31 92 0d e7 63 6e |...cap% ..1...cn| 000055f0 74 25 3d 30 20 8c 0d 31 9c 32 e7 bd 28 6b 25 29 |t%=0 ..1.2..(k%)| 00005600 3e 3d 22 61 22 20 80 20 bd 28 6b 25 29 3c 3d 22 |>="a" . .(k%)<="| 00005610 7a 22 20 69 24 3d bd 28 6b 25 2d 33 32 29 20 8b |z" i$=.(k%-32) .| 00005620 69 24 3d bd 28 6b 25 29 0d 31 a6 05 cc 0d 31 b0 |i$=.(k%).1....1.| 00005630 34 e7 bd 28 6b 25 29 3e 3d 22 41 22 20 80 20 bd |4..(k%)>="A" . .| 00005640 28 6b 25 29 3c 3d 22 5a 22 20 69 24 2b 3d bd 28 |(k%)<="Z" i$+=.(| 00005650 6b 25 2b 33 32 29 20 8b 69 24 2b 3d bd 28 6b 25 |k%+32) .i$+=.(k%| 00005660 29 0d 31 ba 05 cd 0d 31 c4 05 cc 0d 31 ce 0d 69 |).1....1....1..i| 00005670 24 2b 3d bd 28 6b 25 29 0d 31 d8 05 cd 0d 31 e2 |$+=.(k%).1....1.| 00005680 16 f2 6d 65 73 73 28 79 24 2b 69 24 2b 22 3c 22 |..mess(y$+i$+"<"| 00005690 2c 38 29 0d 31 ec 0b 63 6e 74 25 2b 3d 31 0d 31 |,8).1..cnt%+=1.1| 000056a0 f6 05 cd 0d 32 00 1a e7 6b 25 3c 3e 31 33 20 80 |....2...k%<>13 .| 000056b0 20 63 6e 74 25 3d 74 6f 74 25 3a ef 37 0d 32 0a | cnt%=tot%:.7.2.| 000056c0 12 fd 20 6b 25 3d 31 33 20 84 20 65 73 63 25 0d |.. k%=13 . esc%.| 000056d0 32 14 05 e1 0d 32 1e 11 dd f2 65 78 69 74 6d 65 |2....2....exitme| 000056e0 73 73 61 67 65 0d 32 28 15 c8 99 22 41 42 43 5f |ssage.2(..."ABC_| 000056f0 43 6f 6c 6f 75 72 22 2c 31 31 0d 32 32 0a f7 20 |Colour",11.22.. | 00005700 8d 74 56 72 0d 32 3c 08 f3 20 61 24 0d 32 46 0a |.tVr.2<.. a$.2F.| 00005710 59 25 3d 32 34 30 0d 32 50 10 c8 95 20 61 24 3c |Y%=240.2P... a$<| 00005720 3e 22 65 6e 64 22 0d 32 5a 24 c8 99 22 41 42 43 |>"end".2Z$.."ABC| 00005730 5f 50 72 79 6e 74 53 74 72 69 6e 67 22 2c 61 24 |_PryntString",a$| 00005740 2c 33 34 2c 59 25 2c 31 2c 37 0d 32 64 26 c8 99 |,34,Y%,1,7.2d&..| 00005750 22 41 42 43 5f 50 72 79 6e 74 53 74 72 69 6e 67 |"ABC_PryntString| 00005760 22 2c 61 24 2c 33 32 2c 59 25 2b 31 2c 31 2c 30 |",a$,32,Y%+1,1,0| 00005770 0d 32 6e 19 e7 61 24 3e 22 22 20 59 25 2d 3d 31 |.2n..a$>"" Y%-=1| 00005780 38 20 8b 59 25 2d 3d 31 32 0d 32 78 08 f3 20 61 |8 .Y%-=12.2x.. a| 00005790 24 0d 32 82 05 ce 0d 32 8c 05 e1 0d 32 96 23 dc |$.2....2....2.#.| 000057a0 20 41 6c 73 6f 20 61 76 61 69 6c 61 62 6c 65 20 | Also available | 000057b0 6f 72 20 63 6f 6d 69 6e 67 20 73 6f 6f 6e 0d 32 |or coming soon.2| 000057c0 a0 2c dc 20 22 66 6f 72 20 41 63 6f 72 6e 20 33 |.,. "for Acorn 3| 000057d0 32 2d 62 69 74 2c 20 49 42 4d 20 50 43 2f 63 6f |2-bit, IBM PC/co| 000057e0 6d 70 61 74 69 62 6c 65 73 22 0d 32 aa 1d dc 20 |mpatibles".2... | 000057f0 61 6e 64 20 43 6f 6d 6d 6f 64 6f 72 65 20 41 6d |and Commodore Am| 00005800 69 67 61 20 2e 2e 2e 0d 32 b4 05 dc 0d 32 be 1f |iga ....2....2..| 00005810 dc 20 45 6e 67 6c 69 73 68 20 20 20 20 20 20 20 |. English | 00005820 20 20 20 20 20 46 72 65 6e 63 68 0d 32 c8 20 dc | French.2. .| 00005830 20 47 65 72 6d 61 6e 20 20 20 20 20 20 20 20 20 | German | 00005840 20 20 20 20 53 70 61 6e 69 73 68 0d 32 d2 20 dc | Spanish.2. .| 00005850 20 49 74 61 6c 69 61 6e 20 20 20 20 20 20 20 20 | Italian | 00005860 20 20 20 20 53 63 69 65 6e 63 65 0d 32 dc 28 dc | Science.2.(.| 00005870 20 4d 61 74 68 73 20 28 4e 75 6d 62 65 72 29 20 | Maths (Number) | 00005880 20 20 20 20 4d 61 74 68 73 20 28 41 6c 67 65 62 | Maths (Algeb| 00005890 72 61 29 0d 32 e6 2a dc 20 45 61 72 6c 79 20 45 |ra).2.*. Early E| 000058a0 73 73 65 6e 74 69 61 6c 73 20 20 20 4a 75 6e 69 |ssentials Juni| 000058b0 6f 72 20 45 73 73 65 6e 74 69 61 6c 73 0d 32 f0 |or Essentials.2.| 000058c0 05 dc 0d 32 fa 1c dc 20 43 6f 6e 74 61 63 74 20 |...2... Contact | 000058d0 79 6f 75 72 20 64 65 61 6c 65 72 20 6f 72 0d 33 |your dealer or.3| 000058e0 04 24 dc 20 72 69 6e 67 20 28 30 37 34 32 29 20 |.$. ring (0742) | 000058f0 37 38 30 33 37 30 20 66 6f 72 20 64 65 74 61 69 |780370 for detai| 00005900 6c 73 0d 33 0e 09 dc 20 65 6e 64 0d 33 18 1b dd |ls.3... end.3...| 00005910 a4 69 6e 69 74 69 61 6c 63 6f 6d 70 72 65 73 73 |.initialcompress| 00005920 65 64 28 73 24 29 0d 33 22 0f 68 25 3d 8e 28 66 |ed(s$).3".h%=.(f| 00005930 24 2b 73 24 29 0d 33 2c 0d 6c 65 6e 25 3d a2 23 |$+s$).3,.len%=.#| 00005940 68 25 0d 33 36 08 d9 23 68 25 0d 33 40 0d de 20 |h%.36..#h%.3@.. | 00005950 7a 25 20 6c 65 6e 25 0d 33 4a 1d ff 22 4c 4f 41 |z% len%.3J.."LOA| 00005960 44 20 22 2b 66 24 2b 73 24 2b 22 20 22 2b c3 7e |D "+f$+s$+" "+.~| 00005970 28 7a 25 29 0d 33 54 07 3d 7a 25 0d 33 5e 0f dd |(z%).3T.=z%.3^..| 00005980 f2 63 6f 6e 66 69 67 75 72 65 0d 33 68 1b e7 ac |.configure.3h...| 00005990 a6 2d 32 20 84 20 ac a6 2d 31 20 84 20 ac 20 a6 |.-2 . ..-1 . . .| 000059a0 2d 38 33 3a e1 0d 33 72 08 c8 97 20 87 0d 33 7c |-83:..3r... ..3|| 000059b0 13 c8 99 22 41 42 43 5f 42 6c 61 6e 6b 22 2c 33 |..."ABC_Blank",3| 000059c0 0d 33 86 14 c8 99 22 41 42 43 5f 43 6f 6c 6f 75 |.3...."ABC_Colou| 000059d0 72 22 2c 33 0d 33 90 15 f2 76 61 6c 69 64 64 69 |r",3.3...validdi| 000059e0 72 65 63 74 6f 72 69 65 73 0d 33 9a 23 c8 99 22 |rectories.3.#.."| 000059f0 41 42 43 5f 53 70 72 69 74 65 22 2c 62 25 2c 22 |ABC_Sprite",b%,"| 00005a00 62 61 72 22 2c 31 38 30 2c 32 34 32 0d 33 a4 23 |bar",180,242.3.#| 00005a10 c8 99 22 41 42 43 5f 53 70 72 69 74 65 22 2c 62 |.."ABC_Sprite",b| 00005a20 25 2c 22 65 78 69 74 22 2c 34 35 34 2c 31 38 0d |%,"exit",454,18.| 00005a30 33 ae 08 fb 20 31 31 0d 33 b8 09 fb 20 31 33 30 |3... 11.3... 130| 00005a40 0d 33 c2 27 f1 8a 32 35 2c 32 29 22 31 30 20 6f |.3.'..25,2)"10 o| 00005a50 75 74 20 6f 66 20 31 30 20 43 55 53 54 4f 4d 49 |ut of 10 CUSTOMI| 00005a60 53 41 54 49 4f 4e 22 0d 33 cc 07 fb 20 37 0d 33 |SATION".3... 7.3| 00005a70 d6 0d 6f 6c 64 25 3d 63 6c 61 25 0d 33 e0 0a f7 |..old%=cla%.3...| 00005a80 20 8d 44 60 7b 0d 33 ea 0b f3 20 61 24 2c 4b 25 | .D`{.3... a$,K%| 00005a90 0d 33 f4 08 4a 25 3d 30 0d 33 fe 10 c8 95 20 61 |.3..J%=0.3.... a| 00005aa0 24 3c 3e 22 65 6e 64 22 0d 34 08 29 c8 99 22 41 |$<>"end".4.).."A| 00005ab0 42 43 5f 53 70 72 69 74 65 22 2c 62 25 2c 22 62 |BC_Sprite",b%,"b| 00005ac0 61 72 22 2c 31 38 30 2c 32 31 30 2d 4a 25 2a 31 |ar",180,210-J%*1| 00005ad0 36 0d 34 12 12 f1 8a 32 35 2c 4a 25 2a 32 2b 36 |6.4....25,J%*2+6| 00005ae0 29 61 24 0d 34 1c 0c e7 4b 25 3d 2d 31 20 8c 0d |)a$.4...K%=-1 ..| 00005af0 34 26 2e c8 99 22 41 42 43 5f 53 70 72 69 74 65 |4&..."ABC_Sprite| 00005b00 22 2c 62 25 2c 22 61 72 72 6f 77 5f 75 70 22 2c |",b%,"arrow_up",| 00005b10 34 38 32 2c 32 31 30 2d 4a 25 2a 31 36 0d 34 30 |482,210-J%*16.40| 00005b20 30 c8 99 22 41 42 43 5f 53 70 72 69 74 65 22 2c |0.."ABC_Sprite",| 00005b30 62 25 2c 22 61 72 72 6f 77 5f 64 6f 77 6e 22 2c |b%,"arrow_down",| 00005b40 35 31 30 2c 32 31 30 2d 4a 25 2a 31 36 0d 34 3a |510,210-J%*16.4:| 00005b50 05 cd 0d 34 44 51 e7 4b 25 3d 2d 32 20 c8 99 22 |...4DQ.K%=-2 .."| 00005b60 41 42 43 5f 53 70 72 69 74 65 22 2c 62 25 2c 22 |ABC_Sprite",b%,"| 00005b70 64 65 66 61 75 6c 74 22 2c 34 35 34 2c 32 31 30 |default",454,210| 00005b80 2d 4a 25 2a 31 36 20 8b f2 62 75 74 74 6f 6e 73 |-J%*16 ..buttons| 00005b90 74 61 74 75 73 28 4a 25 2c 32 31 30 2d 4a 25 2a |tatus(J%,210-J%*| 00005ba0 31 36 29 0d 34 4e 09 4a 25 2b 3d 31 0d 34 58 0b |16).4N.J%+=1.4X.| 00005bb0 f3 20 61 24 2c 4b 25 0d 34 62 05 ce 0d 34 6c 13 |. a$,K%.4b...4l.| 00005bc0 c8 99 22 41 42 43 5f 50 61 6c 65 74 74 65 22 0d |.."ABC_Palette".| 00005bd0 34 76 18 c8 97 20 c8 93 20 39 30 34 2c 33 32 2c |4v... .. 904,32,| 00005be0 31 36 30 2c 38 31 30 0d 34 80 0b f2 6d 6f 75 73 |160,810.4...mous| 00005bf0 65 31 0d 34 8a 0a 65 6e 64 25 3d a3 0d 34 94 0c |e1.4..end%=..4..| 00005c00 c8 95 20 ac 65 6e 64 25 0d 34 9e 05 f5 0d 34 a8 |.. .end%.4....4.| 00005c10 15 c8 97 20 6d 6f 78 25 2c 6d 6f 79 25 2c 62 75 |... mox%,moy%,bu| 00005c20 74 25 0d 34 b2 0c fd 20 62 75 74 25 3e 30 0d 34 |t%.4... but%>0.4| 00005c30 bc 24 e7 62 75 74 25 3d 34 20 80 20 b0 6d 6f 78 |.$.but%=4 . .mox| 00005c40 25 2c 6d 6f 79 25 29 3c 3e 33 3a f2 61 63 74 69 |%,moy%)<>3:.acti| 00005c50 6f 6e 0d 34 c6 05 ce 0d 34 d0 15 f2 73 61 76 65 |on.4....4...save| 00005c60 6e 65 77 63 6f 6e 66 69 67 75 72 65 0d 34 da 19 |newconfigure.4..| 00005c70 e7 6f 6c 64 25 3c 3e 63 6c 61 25 3a f2 73 65 74 |.old%<>cla%:.set| 00005c80 65 6d 70 74 79 0d 34 e4 1c e7 73 75 6e 25 3c 31 |empty.4...sun%<1| 00005c90 31 20 73 75 6e 25 3d 31 31 20 8b 73 75 6e 25 3d |1 sun%=11 .sun%=| 00005ca0 30 0d 34 ee 09 f2 6d 65 6e 75 0d 34 f8 05 e1 0d |0.4...menu.4....| 00005cb0 35 02 0c dd f2 61 63 74 69 6f 6e 0d 35 0c 16 6e |5....action.5..n| 00005cc0 6f 79 25 3d 28 38 34 32 2d 6d 6f 79 25 29 3e 3e |oy%=(842-moy%)>>| 00005cd0 36 0d 35 16 16 6e 6f 78 25 3d 28 6d 6f 78 25 2d |6.5..nox%=(mox%-| 00005ce0 39 30 36 29 81 35 36 0d 35 20 0d c8 8e 20 6e 6f |906).56.5 ... no| 00005cf0 79 25 20 ca 0d 35 2a 07 c9 20 30 0d 35 34 0e 72 |y% ..5*.. 0.54.r| 00005d00 61 74 25 3d ac 72 61 74 25 0d 35 3e 23 f2 62 75 |at%=.rat%.5>#.bu| 00005d10 74 74 6f 6e 73 74 61 74 75 73 28 6e 6f 79 25 2c |ttonstatus(noy%,| 00005d20 32 31 30 2d 6e 6f 79 25 2a 31 36 29 0d 35 48 07 |210-noy%*16).5H.| 00005d30 ef 20 37 0d 35 52 07 c9 20 31 0d 35 5c 0b e7 76 |. 7.5R.. 1.5\..v| 00005d40 65 72 25 20 8c 0d 35 66 0e 6e 69 67 25 3d ac 6e |er% ..5f.nig%=.n| 00005d50 69 67 25 0d 35 70 23 f2 62 75 74 74 6f 6e 73 74 |ig%.5p#.buttonst| 00005d60 61 74 75 73 28 6e 6f 79 25 2c 32 31 30 2d 6e 6f |atus(noy%,210-no| 00005d70 79 25 2a 31 36 29 0d 35 7a 07 ef 20 37 0d 35 84 |y%*16).5z.. 7.5.| 00005d80 05 cd 0d 35 8e 07 c9 20 32 0d 35 98 0e 73 64 73 |...5... 2.5..sds| 00005d90 25 3d ac 73 64 73 25 0d 35 a2 23 f2 62 75 74 74 |%=.sds%.5.#.butt| 00005da0 6f 6e 73 74 61 74 75 73 28 6e 6f 79 25 2c 32 31 |onstatus(noy%,21| 00005db0 30 2d 6e 6f 79 25 2a 31 36 29 0d 35 ac 27 e7 73 |0-noy%*16).5.'.s| 00005dc0 64 73 25 20 ff 22 53 50 45 41 4b 45 52 20 4f 4e |ds% ."SPEAKER ON| 00005dd0 22 20 8b ff 22 53 50 45 41 4b 45 52 20 4f 46 46 |" .."SPEAKER OFF| 00005de0 22 0d 35 b6 07 ef 20 37 0d 35 c0 07 c9 20 33 0d |".5... 7.5... 3.| 00005df0 35 ca 0b e7 76 65 72 25 20 8c 0d 35 d4 0a 76 65 |5...ver% ..5..ve| 00005e00 72 25 3d a3 0d 35 de 0a 6e 69 67 25 3d a3 0d 35 |r%=..5..nig%=..5| 00005e10 e8 28 f2 62 75 74 74 6f 6e 73 74 61 74 75 73 28 |.(.buttonstatus(| 00005e20 6e 6f 79 25 2d 32 2c 32 31 30 2d 6e 6f 79 25 2a |noy%-2,210-noy%*| 00005e30 31 36 2b 33 32 29 0d 35 f2 23 f2 62 75 74 74 6f |16+32).5.#.butto| 00005e40 6e 73 74 61 74 75 73 28 6e 6f 79 25 2c 32 31 30 |nstatus(noy%,210| 00005e50 2d 6e 6f 79 25 2a 31 36 29 0d 35 fc 28 f2 62 75 |-noy%*16).5.(.bu| 00005e60 74 74 6f 6e 73 74 61 74 75 73 28 6e 6f 79 25 2b |ttonstatus(noy%+| 00005e70 31 2c 32 31 30 2d 6e 6f 79 25 2a 31 36 2d 31 36 |1,210-noy%*16-16| 00005e80 29 0d 36 06 07 ef 20 37 0d 36 10 05 cd 0d 36 1a |).6... 7.6....6.| 00005e90 07 c9 20 34 0d 36 24 0c e7 ac 76 65 72 25 20 8c |.. 4.6$...ver% .| 00005ea0 0d 36 2e 0a 76 65 72 25 3d b9 0d 36 38 0a 6e 69 |.6..ver%=..68.ni| 00005eb0 67 25 3d b9 0d 36 42 28 f2 62 75 74 74 6f 6e 73 |g%=..6B(.buttons| 00005ec0 74 61 74 75 73 28 6e 6f 79 25 2d 33 2c 32 31 30 |tatus(noy%-3,210| 00005ed0 2d 6e 6f 79 25 2a 31 36 2b 34 38 29 0d 36 4c 23 |-noy%*16+48).6L#| 00005ee0 f2 62 75 74 74 6f 6e 73 74 61 74 75 73 28 6e 6f |.buttonstatus(no| 00005ef0 79 25 2c 32 31 30 2d 6e 6f 79 25 2a 31 36 29 0d |y%,210-noy%*16).| 00005f00 36 56 28 f2 62 75 74 74 6f 6e 73 74 61 74 75 73 |6V(.buttonstatus| 00005f10 28 6e 6f 79 25 2d 31 2c 32 31 30 2d 6e 6f 79 25 |(noy%-1,210-noy%| 00005f20 2a 31 36 2b 31 36 29 0d 36 60 07 ef 20 37 0d 36 |*16+16).6`.. 7.6| 00005f30 6a 05 cd 0d 36 74 07 c9 20 35 0d 36 7e 0d e7 6e |j...6t.. 5.6~..n| 00005f40 6f 78 25 3d 31 20 8c 0d 36 88 0b 67 72 64 25 2b |ox%=1 ..6..grd%+| 00005f50 3d 31 0d 36 92 12 e7 67 72 64 25 3d 37 3a 67 72 |=1.6...grd%=7:gr| 00005f60 64 25 3d 31 0d 36 9c 23 f2 62 75 74 74 6f 6e 73 |d%=1.6.#.buttons| 00005f70 74 61 74 75 73 28 6e 6f 79 25 2c 32 31 30 2d 6e |tatus(noy%,210-n| 00005f80 6f 79 25 2a 31 36 29 0d 36 a6 07 ef 20 37 0d 36 |oy%*16).6... 7.6| 00005f90 b0 05 cd 0d 36 ba 0d e7 6e 6f 78 25 3d 32 20 8c |....6...nox%=2 .| 00005fa0 0d 36 c4 0b 67 72 64 25 2d 3d 31 0d 36 ce 12 e7 |.6..grd%-=1.6...| 00005fb0 67 72 64 25 3d 30 3a 67 72 64 25 3d 36 0d 36 d8 |grd%=0:grd%=6.6.| 00005fc0 23 f2 62 75 74 74 6f 6e 73 74 61 74 75 73 28 6e |#.buttonstatus(n| 00005fd0 6f 79 25 2c 32 31 30 2d 6e 6f 79 25 2a 31 36 29 |oy%,210-noy%*16)| 00005fe0 0d 36 e2 07 ef 20 37 0d 36 ec 05 cd 0d 36 f6 07 |.6... 7.6....6..| 00005ff0 c9 20 36 0d 37 00 0d e7 6e 6f 78 25 3d 31 20 8c |. 6.7...nox%=1 .| 00006000 0d 37 0a 0b 63 6c 61 25 2b 3d 31 0d 37 14 13 e7 |.7..cla%+=1.7...| 00006010 63 6c 61 25 3d 36 35 3a 63 6c 61 25 3d 31 0d 37 |cla%=65:cla%=1.7| 00006020 1e 23 f2 62 75 74 74 6f 6e 73 74 61 74 75 73 28 |.#.buttonstatus(| 00006030 6e 6f 79 25 2c 32 31 30 2d 6e 6f 79 25 2a 31 36 |noy%,210-noy%*16| 00006040 29 0d 37 28 07 ef 20 37 0d 37 32 05 cd 0d 37 3c |).7(.. 7.72...7<| 00006050 0d e7 6e 6f 78 25 3d 32 20 8c 0d 37 46 0b 63 6c |..nox%=2 ..7F.cl| 00006060 61 25 2d 3d 31 0d 37 50 13 e7 63 6c 61 25 3d 30 |a%-=1.7P..cla%=0| 00006070 3a 63 6c 61 25 3d 36 34 0d 37 5a 23 f2 62 75 74 |:cla%=64.7Z#.but| 00006080 74 6f 6e 73 74 61 74 75 73 28 6e 6f 79 25 2c 32 |tonstatus(noy%,2| 00006090 31 30 2d 6e 6f 79 25 2a 31 36 29 0d 37 64 07 ef |10-noy%*16).7d..| 000060a0 20 37 0d 37 6e 05 cd 0d 37 78 07 c9 20 37 0d 37 | 7.7n...7x.. 7.7| 000060b0 82 0d e7 6e 6f 78 25 3d 31 20 8c 0d 37 8c 0b 68 |...nox%=1 ..7..h| 000060c0 65 64 25 2b 3d 31 0d 37 96 12 e7 68 65 64 25 3d |ed%+=1.7...hed%=| 000060d0 38 3a 68 65 64 25 3d 30 0d 37 a0 23 f2 62 75 74 |8:hed%=0.7.#.but| 000060e0 74 6f 6e 73 74 61 74 75 73 28 6e 6f 79 25 2c 32 |tonstatus(noy%,2| 000060f0 31 30 2d 6e 6f 79 25 2a 31 36 29 0d 37 aa 07 ef |10-noy%*16).7...| 00006100 20 37 0d 37 b4 05 cd 0d 37 be 0d e7 6e 6f 78 25 | 7.7....7...nox%| 00006110 3d 32 20 8c 0d 37 c8 0b 68 65 64 25 2d 3d 31 0d |=2 ..7..hed%-=1.| 00006120 37 d2 12 e7 68 65 64 25 3c 30 3a 68 65 64 25 3d |7...hed%<0:hed%=| 00006130 37 0d 37 dc 23 f2 62 75 74 74 6f 6e 73 74 61 74 |7.7.#.buttonstat| 00006140 75 73 28 6e 6f 79 25 2c 32 31 30 2d 6e 6f 79 25 |us(noy%,210-noy%| 00006150 2a 31 36 29 0d 37 e6 07 ef 20 37 0d 37 f0 05 cd |*16).7... 7.7...| 00006160 0d 37 fa 07 c9 20 38 0d 38 04 0d e7 6e 6f 78 25 |.7... 8.8...nox%| 00006170 3d 31 20 8c 0d 38 0e 0b 66 75 74 25 2b 3d 31 0d |=1 ..8..fut%+=1.| 00006180 38 18 12 e7 66 75 74 25 3d 38 3a 66 75 74 25 3d |8...fut%=8:fut%=| 00006190 30 0d 38 22 23 f2 62 75 74 74 6f 6e 73 74 61 74 |0.8"#.buttonstat| 000061a0 75 73 28 6e 6f 79 25 2c 32 31 30 2d 6e 6f 79 25 |us(noy%,210-noy%| 000061b0 2a 31 36 29 0d 38 2c 07 ef 20 37 0d 38 36 05 cd |*16).8,.. 7.86..| 000061c0 0d 38 40 0d e7 6e 6f 78 25 3d 32 20 8c 0d 38 4a |.8@..nox%=2 ..8J| 000061d0 0b 66 75 74 25 2d 3d 31 0d 38 54 12 e7 66 75 74 |.fut%-=1.8T..fut| 000061e0 25 3c 30 3a 66 75 74 25 3d 37 0d 38 5e 23 f2 62 |%<0:fut%=7.8^#.b| 000061f0 75 74 74 6f 6e 73 74 61 74 75 73 28 6e 6f 79 25 |uttonstatus(noy%| 00006200 2c 32 31 30 2d 6e 6f 79 25 2a 31 36 29 0d 38 68 |,210-noy%*16).8h| 00006210 07 ef 20 37 0d 38 72 05 cd 0d 38 7c 07 c9 20 39 |.. 7.8r...8|.. 9| 00006220 0d 38 86 0d e7 6e 6f 78 25 3d 31 20 8c 0d 38 90 |.8...nox%=1 ..8.| 00006230 0b 70 61 70 25 2b 3d 31 0d 38 9a 14 e7 70 61 70 |.pap%+=1.8...pap| 00006240 25 3d 38 31 3a 70 61 70 25 3d 31 36 0d 38 a4 23 |%=81:pap%=16.8.#| 00006250 f2 62 75 74 74 6f 6e 73 74 61 74 75 73 28 6e 6f |.buttonstatus(no| 00006260 79 25 2c 32 31 30 2d 6e 6f 79 25 2a 31 36 29 0d |y%,210-noy%*16).| 00006270 38 ae 07 ef 20 37 0d 38 b8 05 cd 0d 38 c2 0d e7 |8... 7.8....8...| 00006280 6e 6f 78 25 3d 32 20 8c 0d 38 cc 0b 70 61 70 25 |nox%=2 ..8..pap%| 00006290 2d 3d 31 0d 38 d6 14 e7 70 61 70 25 3d 31 35 3a |-=1.8...pap%=15:| 000062a0 70 61 70 25 3d 38 30 0d 38 e0 23 f2 62 75 74 74 |pap%=80.8.#.butt| 000062b0 6f 6e 73 74 61 74 75 73 28 6e 6f 79 25 2c 32 31 |onstatus(noy%,21| 000062c0 30 2d 6e 6f 79 25 2a 31 36 29 0d 38 ea 07 ef 20 |0-noy%*16).8... | 000062d0 37 0d 38 f4 05 cd 0d 38 fe 08 c9 20 31 30 0d 39 |7.8....8... 10.9| 000062e0 08 0b 70 69 78 25 2b 3d 31 0d 39 12 12 e7 70 69 |..pix%+=1.9...pi| 000062f0 78 25 3d 34 3a 70 69 78 25 3d 30 0d 39 1c 23 f2 |x%=4:pix%=0.9.#.| 00006300 62 75 74 74 6f 6e 73 74 61 74 75 73 28 6e 6f 79 |buttonstatus(noy| 00006310 25 2c 32 31 30 2d 6e 6f 79 25 2a 31 36 29 0d 39 |%,210-noy%*16).9| 00006320 26 07 ef 20 37 0d 39 30 08 c9 20 31 31 0d 39 3a |&.. 7.90.. 11.9:| 00006330 13 c8 99 22 41 42 43 5f 42 6c 61 6e 6b 22 2c 33 |..."ABC_Blank",3| 00006340 0d 39 44 0f 2a 53 50 45 41 4b 45 52 20 4f 4e 0d |.9D.*SPEAKER ON.| 00006350 39 4e 07 ef 20 37 0d 39 58 0a 72 61 74 25 3d a3 |9N.. 7.9X.rat%=.| 00006360 0d 39 62 0a 6e 69 67 25 3d b9 0d 39 6c 0a 73 64 |.9b.nig%=..9l.sd| 00006370 73 25 3d b9 0d 39 76 0a 76 65 72 25 3d b9 0d 39 |s%=..9v.ver%=..9| 00006380 80 0a 67 72 64 25 3d 31 0d 39 8a 0a 63 6c 61 25 |..grd%=1.9..cla%| 00006390 3d 31 0d 39 94 0a 68 65 64 25 3d 31 0d 39 9e 0a |=1.9..hed%=1.9..| 000063a0 66 75 74 25 3d 31 0d 39 a8 0b 70 61 70 25 3d 36 |fut%=1.9..pap%=6| 000063b0 34 0d 39 b2 0a 70 69 78 25 3d 30 0d 39 bc 0c e3 |4.9..pix%=0.9...| 000063c0 4a 25 3d 30 b8 31 30 0d 39 c6 1f f2 62 75 74 74 |J%=0.10.9...butt| 000063d0 6f 6e 73 74 61 74 75 73 28 4a 25 2c 32 31 30 2d |onstatus(J%,210-| 000063e0 4a 25 2a 31 36 29 0d 39 d0 05 ed 0d 39 da 13 c8 |J%*16).9....9...| 000063f0 99 22 41 42 43 5f 50 61 6c 65 74 74 65 22 0d 39 |."ABC_Palette".9| 00006400 e4 0f c9 20 31 32 3a 65 6e 64 25 3d b9 0d 39 ee |... 12:end%=..9.| 00006410 05 cb 0d 39 f8 05 f5 0d 3a 02 15 c8 97 20 6d 6f |...9....:.... mo| 00006420 78 25 2c 6d 6f 79 25 2c 62 75 74 25 0d 3a 0c 0c |x%,moy%,but%.:..| 00006430 fd 20 62 75 74 25 3d 30 0d 3a 16 05 e1 0d 3a 20 |. but%=0.:....: | 00006440 16 dd f2 73 61 76 65 6e 65 77 63 6f 6e 66 69 67 |...savenewconfig| 00006450 75 72 65 0d 3a 2a 08 c8 97 20 87 0d 3a 34 13 c8 |ure.:*... ..:4..| 00006460 99 22 41 42 43 5f 42 6c 61 6e 6b 22 2c 33 0d 3a |."ABC_Blank",3.:| 00006470 3e 14 c8 99 22 41 42 43 5f 43 6f 6c 6f 75 72 22 |>..."ABC_Colour"| 00006480 2c 33 0d 3a 48 27 e7 ac 64 69 72 65 63 74 6f 72 |,3.:H'..director| 00006490 79 25 28 63 6c 61 25 29 3a f2 63 72 65 61 74 65 |y%(cla%):.create| 000064a0 64 69 72 65 63 74 6f 72 79 0d 3a 52 37 ff 22 44 |directory.:R7."D| 000064b0 49 52 20 3c 44 69 73 63 32 24 44 69 72 3e 2e 53 |IR <Disc2$Dir>.S| 000064c0 69 78 47 61 6d 65 73 2e 41 63 68 69 65 76 65 2e |ixGames.Achieve.| 000064d0 41 63 68 69 65 76 65 22 2b c3 28 63 6c 61 25 29 |Achieve"+.(cla%)| 000064e0 0d 3a 5c 24 e7 76 65 72 25 20 74 79 70 24 3d 22 |.:\$.ver% typ$="| 000064f0 47 72 61 64 65 22 20 8b 74 79 70 24 3d 22 4c 65 |Grade" .typ$="Le| 00006500 76 65 6c 22 0d 3a 66 18 68 25 3d ae 28 66 24 2b |vel".:f.h%=.(f$+| 00006510 22 43 6f 6e 66 69 67 75 72 65 22 29 0d 3a 70 3f |"Configure").:p?| 00006520 f1 23 68 25 2c 72 61 74 25 2c 6e 69 67 25 2c 73 |.#h%,rat%,nig%,s| 00006530 64 73 25 2c 76 65 72 25 2c 67 72 64 25 2c 63 6c |ds%,ver%,grd%,cl| 00006540 61 25 2c 74 79 70 24 2c 68 65 64 25 2c 66 75 74 |a%,typ$,hed%,fut| 00006550 25 2c 70 61 70 25 2c 70 69 78 25 0d 3a 7a 08 d9 |%,pap%,pix%.:z..| 00006560 23 68 25 0d 3a 84 1d 2a 44 49 52 20 3c 44 69 73 |#h%.:..*DIR <Dis| 00006570 63 32 24 44 69 72 3e 2e 53 69 78 47 61 6d 65 73 |c2$Dir>.SixGames| 00006580 0d 3a 8e 05 e1 0d 3a 98 1d dd f2 62 75 74 74 6f |.:....:....butto| 00006590 6e 73 74 61 74 75 73 28 6e 75 6d 25 2c 79 73 63 |nstatus(num%,ysc| 000065a0 25 29 0d 3a a2 0f 79 79 79 25 3d 79 73 63 25 2d |%).:..yyy%=ysc%-| 000065b0 32 0d 3a ac 06 c8 96 0d 3a b6 5f e7 6e 75 6d 25 |2.:.....:._.num%| 000065c0 3d 33 20 84 20 6e 75 6d 25 3d 34 20 c8 99 22 41 |=3 . num%=4 .."A| 000065d0 42 43 5f 53 70 72 69 74 65 22 2c 62 25 2c 22 72 |BC_Sprite",b%,"r| 000065e0 61 64 69 6f 6f 66 66 22 2c 34 35 34 2c 79 73 63 |adiooff",454,ysc| 000065f0 25 20 8b c8 99 22 41 42 43 5f 53 70 72 69 74 65 |% ..."ABC_Sprite| 00006600 22 2c 62 25 2c 22 6f 70 74 6f 66 66 22 2c 34 35 |",b%,"optoff",45| 00006610 34 2c 79 73 63 25 0d 3a c0 0d c8 8e 20 6e 75 6d |4,ysc%.:.... num| 00006620 25 20 ca 0d 3a ca 30 c9 20 30 3a e7 72 61 74 25 |% ..:.0. 0:.rat%| 00006630 3a c8 99 22 41 42 43 5f 53 70 72 69 74 65 22 2c |:.."ABC_Sprite",| 00006640 62 25 2c 22 6f 70 74 6f 6e 22 2c 34 35 34 2c 79 |b%,"opton",454,y| 00006650 73 63 25 0d 3a d4 30 c9 20 31 3a e7 6e 69 67 25 |sc%.:.0. 1:.nig%| 00006660 3a c8 99 22 41 42 43 5f 53 70 72 69 74 65 22 2c |:.."ABC_Sprite",| 00006670 62 25 2c 22 6f 70 74 6f 6e 22 2c 34 35 34 2c 79 |b%,"opton",454,y| 00006680 73 63 25 0d 3a de 30 c9 20 32 3a e7 73 64 73 25 |sc%.:.0. 2:.sds%| 00006690 3a c8 99 22 41 42 43 5f 53 70 72 69 74 65 22 2c |:.."ABC_Sprite",| 000066a0 62 25 2c 22 6f 70 74 6f 6e 22 2c 34 35 34 2c 79 |b%,"opton",454,y| 000066b0 73 63 25 0d 3a e8 33 c9 20 33 3a e7 ac 76 65 72 |sc%.:.3. 3:..ver| 000066c0 25 3a c8 99 22 41 42 43 5f 53 70 72 69 74 65 22 |%:.."ABC_Sprite"| 000066d0 2c 62 25 2c 22 72 61 64 69 6f 6f 6e 22 2c 34 35 |,b%,"radioon",45| 000066e0 34 2c 79 73 63 25 0d 3a f2 32 c9 20 34 3a e7 76 |4,ysc%.:.2. 4:.v| 000066f0 65 72 25 3a c8 99 22 41 42 43 5f 53 70 72 69 74 |er%:.."ABC_Sprit| 00006700 65 22 2c 62 25 2c 22 72 61 64 69 6f 6f 6e 22 2c |e",b%,"radioon",| 00006710 34 35 34 2c 79 73 63 25 0d 3a fc 30 c9 20 35 3a |454,ysc%.:.0. 5:| 00006720 c8 99 22 41 42 43 5f 50 72 79 6e 74 53 74 72 69 |.."ABC_PryntStri| 00006730 6e 67 22 2c c3 28 67 72 64 25 29 2c 34 36 32 2c |ng",.(grd%),462,| 00006740 79 79 79 25 2c 30 2c 39 0d 3b 06 07 c9 20 36 0d |yyy%,0,9.;... 6.| 00006750 3b 10 26 e7 64 69 72 65 63 74 6f 72 79 25 28 63 |;.&.directory%(c| 00006760 6c 61 25 29 20 63 75 6c 25 3d 31 33 20 8b 63 75 |la%) cul%=13 .cu| 00006770 6c 25 3d 31 31 0d 3b 1a 64 e7 63 6c 61 25 3e 39 |l%=11.;.d.cla%>9| 00006780 20 c8 99 22 41 42 43 5f 50 72 79 6e 74 53 74 72 | .."ABC_PryntStr| 00006790 69 6e 67 22 2c c3 28 63 6c 61 25 29 2c 34 35 38 |ing",.(cla%),458| 000067a0 2c 79 79 79 25 2c 30 2c 63 75 6c 25 20 8b c8 99 |,yyy%,0,cul% ...| 000067b0 22 41 42 43 5f 50 72 79 6e 74 53 74 72 69 6e 67 |"ABC_PryntString| 000067c0 22 2c c3 28 63 6c 61 25 29 2c 34 36 32 2c 79 79 |",.(cla%),462,yy| 000067d0 79 25 2c 30 2c 63 75 6c 25 0d 3b 24 31 c9 20 37 |y%,0,cul%.;$1. 7| 000067e0 3a c8 99 22 41 42 43 5f 50 72 79 6e 74 53 74 72 |:.."ABC_PryntStr| 000067f0 69 6e 67 22 2c c3 28 68 65 64 25 29 2c 34 36 32 |ing",.(hed%),462| 00006800 2c 79 79 79 25 2c 30 2c 31 31 0d 3b 2e 31 c9 20 |,yyy%,0,11.;.1. | 00006810 38 3a c8 99 22 41 42 43 5f 50 72 79 6e 74 53 74 |8:.."ABC_PryntSt| 00006820 72 69 6e 67 22 2c c3 28 66 75 74 25 29 2c 34 36 |ring",.(fut%),46| 00006830 32 2c 79 79 79 25 2c 30 2c 31 31 0d 3b 38 31 c9 |2,yyy%,0,11.;81.| 00006840 20 39 3a c8 99 22 41 42 43 5f 50 72 79 6e 74 53 | 9:.."ABC_PryntS| 00006850 74 72 69 6e 67 22 2c c3 28 70 61 70 25 29 2c 34 |tring",.(pap%),4| 00006860 35 38 2c 79 79 79 25 2c 30 2c 31 31 0d 3b 42 60 |58,yyy%,0,11.;B`| 00006870 c9 20 31 30 3a e7 70 69 78 25 3d 30 20 c8 99 22 |. 10:.pix%=0 .."| 00006880 41 42 43 5f 50 72 79 6e 74 53 74 72 69 6e 67 22 |ABC_PryntString"| 00006890 2c 22 41 22 2c 34 36 32 2c 79 79 79 25 2c 30 2c |,"A",462,yyy%,0,| 000068a0 31 31 20 8b c8 99 22 41 42 43 5f 50 72 79 6e 74 |11 ..."ABC_Prynt| 000068b0 53 74 72 69 6e 67 22 2c c3 28 70 69 78 25 29 2c |String",.(pix%),| 000068c0 34 36 32 2c 79 79 79 25 2c 30 2c 36 0d 3b 4c 05 |462,yyy%,0,6.;L.| 000068d0 cb 0d 3b 56 05 e1 0d 3b 60 48 dc 20 52 61 74 69 |..;V...;`H. Rati| 000068e0 6e 67 73 20 73 75 70 70 72 65 73 73 65 64 2c 30 |ngs suppressed,0| 000068f0 2c 4e 61 74 69 6f 6e 61 6c 20 63 75 72 72 69 63 |,National curric| 00006900 75 6c 75 6d 20 6e 75 6d 62 65 72 73 2c 30 2c 53 |ulum numbers,0,S| 00006910 6f 75 6e 64 2c 30 2c 4c 65 76 65 6c 2c 30 0d 3b |ound,0,Level,0.;| 00006920 6a 3b dc 20 47 72 61 64 65 2c 30 2c 4f 76 65 72 |j;. Grade,0,Over| 00006930 61 6c 6c 20 73 6b 69 6c 6c 2c 2d 31 2c 43 6c 61 |all skill,-1,Cla| 00006940 73 73 20 6e 75 6d 62 65 72 2c 2d 31 2c 54 6f 70 |ss number,-1,Top| 00006950 20 73 70 61 63 65 2c 2d 31 0d 3b 74 45 dc 20 42 | space,-1.;tE. B| 00006960 6f 74 74 6f 6d 20 73 70 61 63 65 2c 2d 31 2c 50 |ottom space,-1,P| 00006970 61 70 65 72 20 6c 65 6e 67 74 68 2c 2d 31 2c 47 |aper length,-1,G| 00006980 72 61 70 68 69 63 73 20 73 65 6c 65 63 74 69 6f |raphics selectio| 00006990 6e 2c 30 2c 44 65 66 61 75 6c 74 2c 2d 32 0d 3b |n,0,Default,-2.;| 000069a0 7e 0b dc 20 65 6e 64 2c 30 0d 3b 88 16 dd f2 76 |~.. end,0.;....v| 000069b0 61 6c 69 64 64 69 72 65 63 74 6f 72 69 65 73 0d |aliddirectories.| 000069c0 3b 92 27 ff 22 44 49 52 20 3c 44 69 73 63 32 24 |;.'."DIR <Disc2$| 000069d0 44 69 72 3e 2e 53 69 78 47 61 6d 65 73 2e 41 63 |Dir>.SixGames.Ac| 000069e0 68 69 65 76 65 22 0d 3b 9c 25 c8 99 22 4f 53 5f |hieve".;.%.."OS_| 000069f0 47 42 50 42 22 2c 38 2c 2c 63 61 74 25 2c 26 34 |GBPB",8,,cat%,&4| 00006a00 30 2c 30 20 b8 20 2c 2c 2c 64 25 0d 3b a6 1d 2a |0,0 . ,,,d%.;..*| 00006a10 44 49 52 20 3c 44 69 73 63 32 24 44 69 72 3e 2e |DIR <Disc2$Dir>.| 00006a20 53 69 78 47 61 6d 65 73 0d 3b b0 08 63 25 3d 30 |SixGames.;..c%=0| 00006a30 0d 3b ba 0c 64 25 3d 36 34 2d 64 25 0d 3b c4 0c |.;..d%=64-d%.;..| 00006a40 73 74 25 3d 63 61 74 25 0d 3b ce 12 64 69 72 65 |st%=cat%.;..dire| 00006a50 63 74 6f 72 79 25 28 29 3d a3 0d 3b d8 0c c8 95 |ctory%()=..;....| 00006a60 20 63 25 3c 64 25 0d 3b e2 15 74 25 3d 73 74 25 | c%<d%.;..t%=st%| 00006a70 3f 28 28 3f 73 74 25 29 2b 31 29 0d 3b ec 15 73 |?((?st%)+1).;..s| 00006a80 74 25 3f 28 28 3f 73 74 25 29 2b 31 29 3d 26 44 |t%?((?st%)+1)=&D| 00006a90 0d 3b f6 0f 61 24 3d 24 28 73 74 25 2b 31 29 0d |.;..a$=$(st%+1).| 00006aa0 3c 00 11 73 74 25 2b 3d 31 2b 28 3f 73 74 25 29 |<..st%+=1+(?st%)| 00006ab0 0d 3c 0a 0b 3f 73 74 25 3d 74 25 0d 3c 14 1b 64 |.<..?st%=t%.<..d| 00006ac0 69 72 65 63 74 6f 72 79 25 28 bb 28 c1 61 24 2c |irectory%(.(.a$,| 00006ad0 38 29 29 29 3d b9 0d 3c 1e 09 63 25 2b 3d 31 0d |8)))=..<..c%+=1.| 00006ae0 3c 28 05 ce 0d 3c 32 05 e1 0d 3c 3c 15 dd f2 63 |<(...<2...<<...c| 00006af0 72 65 61 74 65 64 69 72 65 63 74 6f 72 79 0d 3c |reatedirectory.<| 00006b00 46 38 ff 22 43 44 49 52 20 3c 44 69 73 63 32 24 |F8."CDIR <Disc2$| 00006b10 44 69 72 3e 2e 53 69 78 47 61 6d 65 73 2e 41 63 |Dir>.SixGames.Ac| 00006b20 68 69 65 76 65 2e 41 63 68 69 65 76 65 22 2b c3 |hieve.Achieve"+.| 00006b30 28 63 6c 61 25 29 0d 3c 50 0d f2 73 65 74 65 6d |(cla%).<P..setem| 00006b40 70 74 79 0d 3c 5a 05 e1 0d 3c 64 0e dd f2 73 65 |pty.<Z...<d...se| 00006b50 74 65 6d 70 74 79 0d 3c 6e 0e 61 74 74 65 6e 64 |tempty.<n.attend| 00006b60 24 3d 22 22 0d 3c 78 13 68 25 3d ae 28 66 24 2b |$="".<x.h%=.(f$+| 00006b70 22 4e 61 6d 65 22 29 0d 3c 82 0b f1 23 68 25 2c |"Name").<...#h%,| 00006b80 22 22 0d 3c 8c 08 d9 23 68 25 0d 3c 96 0c 61 74 |"".<...#h%.<..at| 00006b90 74 25 28 29 3d 30 0d 3c a0 0f 73 74 61 74 75 73 |t%()=0.<..status| 00006ba0 25 28 29 3d 30 0d 3c aa 05 e1 0d 3c b4 0b dd a4 |%()=0.<....<....| 00006bb0 6c 65 61 76 65 0d 3c be 15 c8 97 20 6d 6f 78 25 |leave.<.... mox%| 00006bc0 2c 6d 6f 79 25 2c 62 75 74 25 0d 3c c8 25 e7 a6 |,moy%,but%.<.%..| 00006bd0 2d 31 31 33 20 84 20 a6 2d 39 39 20 84 20 a6 2d |-113 . .-99 . .-| 00006be0 37 34 20 84 20 62 75 74 25 3e 30 20 8b 3d a3 0d |74 . but%>0 .=..| 00006bf0 3c d2 05 f5 0d 3c dc 15 c8 97 20 6d 6f 78 25 2c |<....<.... mox%,| 00006c00 6d 6f 79 25 2c 62 75 74 25 0d 3c e6 25 fd 20 ac |moy%,but%.<.%. .| 00006c10 a6 2d 31 31 33 20 80 20 ac a6 2d 39 39 20 80 20 |.-113 . ..-99 . | 00006c20 ac a6 2d 37 34 20 80 20 62 75 74 25 3d 30 0d 3c |..-74 . but%=0.<| 00006c30 f0 0b 2a 46 58 32 31 20 39 0d 3c fa 06 3d b9 0d |..*FX21 9.<..=..| 00006c40 ff |.| 00006c41