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
Jd%=64-d%
Tst%=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:�
batt%()=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$="" �
Batt%()=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$="" �
Jatt%()=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
5noy%=(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