P721 CJEFAX 721  Mon 10 Nov  2):04/58
|B220120E|a16Advntr|j24BBBC332k|m40000|p
÷e÷X÷Y6 ÷L PUT REMS AT 1800, 1810, 2031 
TO TURN OFF ESCAPE÷e÷X÷b÷p÷L The Last Ad
venture÷e÷X÷c÷s÷L DEMONSTRATION VERSION÷
j÷X÷d÷j÷L (c) CIT 1985÷e÷X÷e%÷L LTS Ltd.
 Hazdon Ho. Alcestis Rd÷e÷X÷f÷k÷L Studle
y Warts÷e÷Xd÷l*K.10 OLD||MRUN||M÷e÷Xi÷]÷
L÷e÷Xn÷h ÷F —-  ÷JERROR÷e÷Xo÷q÷L ON EURO
R GOTO 20000÷e÷X—4÷u÷L*** START OF CONTR
OL ***÷e÷X—>÷f÷C 7:÷ESE$UP÷e÷X—H÷i÷JBOAR
D:÷JTJTLE÷e÷X—R÷h÷JCKREAD:÷JBAR÷e÷X—W÷a÷
JTJME÷e÷X—\÷a÷JIVST÷e÷X—f÷l÷JSTARTLOC:÷=
 —5dtA÷e÷Y,÷o÷L *** MAIN LOOP ***÷e÷Y6÷e
÷JCHECKENT÷e÷Y@÷l÷? NOENT=1 ÷= —5dhC÷e÷Y
÷L÷a÷JTEXT÷e÷Z0÷g÷JCHECKSCORE÷e÷ZD÷m÷? N
OQUEQ=1 ÷= —5dhC÷e÷ZX÷e÷JCHECKCQU÷e÷Zl÷m
÷? NO UECZJBARZ
÷JQUES:÷? Q*=0 —4 ÷= —5thB÷e÷Z—(÷b÷JANSI
N÷e÷Z—2÷e÷JCHECKANS÷e÷Z—7N ÷? PER>=60 —(
 V=-1 ÷I—20,10)"I don't understand that.
 Try again.":÷JBAR:÷= —5DvB÷e÷Z—:÷d *FX1
5,0÷e÷Z—<÷j÷? V=1 ÷JCORRECT÷e÷Z—F÷i÷? V=
-1 ÷JWRONG÷e÷Z—P÷s÷ RIGHT=MAX ÷JBAR|c  
                                        
                                        
   P721 CEEFA( 721  Mon 10 Nov  21:21/30
|B220220E|b16Advntr|j24BBBC332k|m402B7|p
:÷= —5tdF÷e÷Z—Z+ ÷? FIN=67 —( SCORE%(LOC
)=100 ÷JBAR:÷= —5tdF÷e÷Z—d, ÷? FIV=73 —(
 SCORE%(LOC)<>100 ÷JBAR:÷= —5tdF÷e÷[÷@÷f
OLDLOC=LOC÷e÷[÷J÷a÷JNEXT÷e÷\—X÷v ÷? LOC<
>OLDLOC ÷JLOAD:÷JCOV1÷e÷]÷4÷j ÷? —:=FT ÷
= —5TlA÷e÷^@÷l ÷? —9>FT ÷JTJMEOUT÷e÷^—L÷
b ÷JCONC÷e÷#÷|—÷f *FX229,1 ÷e÷#÷e÷t ÷? ?
(DAT+602)=89 ÷JREPORT÷e÷#÷j÷f *FX229,0 ÷
j÷#:÷#÷JSA÷e÷#D" ÷? A=89 —, A=)21 —4 ÷JR
ESET:÷=—5to@÷e÷#—v÷f÷JSETDOWV:÷8÷i÷#—w÷s
÷L*** EVD OF CONTROL ***÷e÷#÷(£÷L **** S
TART OF MOST PROCS ****÷e÷#÷-J÷5÷JCLI(C$
):÷BA,B:A=X*:B=Y%:X*=C%—+256:Y%=C%—)256:
$C%=C$:÷.%FFF7:X%=A:Y%=B:÷9÷e÷#÷2B÷5÷JDH
(ST$,H):÷B J:÷; J=H —|— H+1:÷I—2(40-—Q(S
T$))/2-1,J)—e141;ST$:÷E J:÷9÷e÷#÷7R÷5÷JD
ISPLAY(A,B):÷B I,C:÷G23,1,0;0;0;0;:÷; I=
A —|— A+B-1:C=?I:÷? C>31 —( C<128 ÷GC —3
 ÷G32÷e÷#÷<÷r÷E I:÷G23,1,1;0;0;0;0;:÷9÷e
÷#÷>÷d?&FE62=0÷e÷#÷A÷c÷5÷ESE$UP÷e÷#÷F÷b*
FX4,2÷e÷#÷G÷e *FX229,1÷e÷#÷H÷f*FX225,130
÷e÷#÷J÷f*FX226,150÷e÷#÷K:÷6 GRID%(12|c  
                                        
                                        
   P721 CEEFAX 721  Mon 10 Nov  2):06/58
|B220320E|a16Advntr|j24BBBC332k|m40577|p
7):÷6 NAME$(32):÷6 CQU(3):÷6 EMT(3):÷6 D
AT 2000÷e÷#÷P ÷6 SCORE%(16):÷6 C% 30:÷6 
Z% 40÷e÷#÷U) NOQU=1:RIGHT=0:GOES=0:NOENT
=1:FIN=89÷e÷|—÷X÷]÷9÷e÷|—÷ZL÷5÷JCLEAR(X%
,Y%):÷B I*,J*:Y%=Y%-1:J%=4:÷; I%=0 —|— Y
* —0 J*:X*!I%=&20202020:÷E:÷9÷e÷|—÷d÷d÷5
÷JCKREAD÷e÷|—÷i÷sX=1:G$=F$+"G":N$=F$+"V"
÷e÷|—÷n*X=—U G$:÷; Z=0 —|— 127:÷@£X, GRJ
D%(Z):÷E:÷1£X÷e÷|—÷s*(=—U N$:÷; Z=1 —|— 
16:÷@£X, NAME$(Z):÷E:÷1£X÷e÷|— ÷aMAX=0÷e
÷|—%÷g÷; Z=0 —|— 127÷e÷|—*!÷? GRID%(U)>M
AX —4 MAX=GRID%(U)÷e÷|—,÷]÷E÷e÷|—4÷]÷9÷e
÷|—9÷s÷5÷JLINE(X*:÷I—20,X*;—1(40);÷e÷|—>
÷]÷9÷e÷|—W"÷5÷JINPUT(BASE,M):÷BETA:*FX20
2,48÷e÷|—\3÷M:A=—M:÷? A>31 —( A<127 —( J
<M BASE?J=A:J=J+1:÷GA:÷U0÷e÷|—a)÷? A=127
 —( J>0 J=J-1:BASE?J=32:÷G127:÷U0÷e÷|—f÷
r÷? A=136 —( J>0 J=J-1:÷G8÷e÷|—k÷r÷? A=1
37 —( J<M J=J+1:÷G9÷e÷|—p ÷? A=Q39 —( J-
40>=0 J=J-40:÷G11÷e÷|—u÷w÷? A=138 —( J+4
0<M J=J+40:÷G10÷e÷|—z÷b÷U A=13÷e÷|—÷e*F
X202,32÷e÷|——,÷]÷9÷e÷|——1÷b÷5÷JLOAD÷e|c 
                                        
                                        
   P721 CEEFAX 721  Mon 10 Nov  21:16/14
|B220420E|a16Advntr|j24BBBC332k|m40831|p
÷|——6÷hL$=F$+—k(LOC)÷e÷|——;/÷JCLEAR(DAT,
2000):÷JCLJ("LOAD "+L$+" "+—k|÷DAT)÷e÷|—
—@m÷; Z=1 —|— 3:EMT(Z)=?(DAT+1589+Z):CQU
(Z)=?(DAT+1592+Z):÷E:ART=1+(?(DAT+1596))
:QCH=(DAT+1597):FIN=?(DAT+1598)÷e÷|——E÷
]÷9÷e÷|——h÷a÷5÷JBAR÷e÷|——j÷c*F(15,0÷e÷|—
—ms÷KLINE(22):÷I—20,23)"                
                        ";:÷I—26,23)"Pre
ss";—e129;"SPACEBAR";—e135;"to continue"
;÷e÷|——r÷d÷M ÷U —M=32÷e÷|——t÷e÷JLINE(22)
÷e÷|——w÷]÷9÷e÷|—÷T÷b÷5÷JINST÷e÷a÷Y÷hLOC=
17:÷JLOAD÷e÷a÷^$÷35÷G31,0,4:÷JDISPLAY(DA
T,600):÷JBAR÷e÷a)÷]÷9÷e÷a.÷d÷5÷JLOCSEL÷e
÷a3÷f÷M ÷JSTARKEY÷e÷a5÷q÷? —hCK$,1)="F" 
÷JFUNLOC÷e÷a8"÷U GRID%(CK)>0 —( GRID%(CK
)<=MAX÷e÷a=÷uLOC=GRID%(CK*:÷JLOAD:÷JCOV1
÷e÷aV÷]÷9÷e÷a|—÷f÷5÷JSTARTLOC÷e÷ae'÷3:÷J
DH(—e129+"The Last Adventure ",2)÷e÷ajK÷
I—24,5)"Tell mj where you wish to start"
;—24,7);"the adventure. ";:÷JFING2÷e÷al÷
j÷G23,1,0;0;0;0;÷e÷ao÷c÷JLOCSEL÷e÷at÷l÷G
23,1,1;0;0;0;0;÷e÷av*÷G31,0,12:U=0:÷M|c 
                                        
                                        
   P721 CEEFAX 721  Mon 10 Nov  21:12/39
|B220u20E|a16Advntr|j24BBBC332k|m40B03|p
:Z=Z+1:÷U Z=3 —, EMT(U)<>0÷e÷ay' ÷? EMT(
1)=0 —( EMT(2)=0 —( EMT(3)=0 ÷9÷e÷a|÷.÷I
: ÷JDISPLAY(DAT+420+(Z*80),80):÷JBAR:÷= 
—uDeI÷e÷a—l÷f÷5÷JCHECKENT÷e÷a—q.NOENT=0:
÷ EMT(1)=0 —( EMT(2)=0 —( EMT(3)=0 ÷9÷e
÷a—v÷e÷; Z=1 —|— 3÷e÷a÷+g÷? EVT(Z)<>0 —(
 SCORE%(EMT(Z))=0 —4 ÷3:÷G31,0,2:÷JDISPL
AY(DAT+420+(Z*80),80):NOENT=1:LOC=OLDLOC
:÷JLOAD:Z=3÷e÷a÷:÷#÷E Z÷e÷a÷I÷]÷9÷e÷a÷N÷
b÷5÷J$EXT÷e÷a÷S÷h÷3:÷JCHECKTEXT÷i÷a÷U6÷?
 T*=0 ÷I—e131;NAME$(LOC);—211,7)—e133;"N
othing here."÷e÷R÷lV÷? T%=1 ÷I—20,0);—e1
31;NAME$(LOC):÷EPIC:÷JDISPLAY(DAT,400):÷
? SCO ELOCSCORELOC]
e÷b—4÷h÷5÷JCHECKSCORE÷e÷b—9 ÷? SCORE%(LO
C)=100 NOQUE1=1:÷9÷e÷b—; ÷? SCORE%(LOC)=
ART NOQUE1=1:÷9÷e÷b—>÷dNOQUE1=0÷e÷b—a÷]÷
9÷e÷b—f÷f÷5÷JCHECKCQU÷e÷b—k1NOQUE2=0:÷? 
CQU(1)=0 —( CQU(2)=0 —( CQU(3)=0 —4 ÷=÷e
÷b—u÷e÷; Z=1 —|— 3÷e÷b÷*^÷? CQU(Z)<>0 —(
 SCORE*(CQU(Z))<>100 —4÷JBAR:NOQUE2=1:÷3
:÷G31,0,2:÷JDISPLAY(DAT+920+(Z*80),8|c  
                                        
                                        
   P721 CEEFA( 721  Mon 10 Nov  21:12/01
|B220620E|a16Advntr|j24BBBC332k|n40DDC|p
0):Z=3÷e÷b÷/÷a÷E Z:÷9÷e÷b÷H÷b÷5÷JQUES÷e÷
b÷M÷h÷3:÷JCHECKQUES÷e÷b÷R*÷? Q%=1 ÷G31,0
,2:÷JDISPLAY(DAT+760,240):÷9÷e÷c÷\—0÷? Q
*=0 ÷I—211,7)—e133;"Nothing here.";—25,9
 —e133;"Press REST N to continue ";:RJGH
T=RIGHT+1:SCORE%(LOC)=100:÷M ÷U —M=13:÷J
LIVE(7):÷JLINE(9):÷9÷e÷c÷u÷]÷9÷e÷c"÷c÷5÷
JANSEN÷e÷c'/GOES=GOES+1:÷I:N$=—LNOSPACE(
—L NPUT(35)Q:÷JCON2÷e÷c,÷]÷9÷e÷c—|—÷c÷5÷
JTJTLE÷e÷c—e÷]÷3÷e÷c—j-÷L PROCDH(CHR$129
+"The Last Adventure ",2)÷e÷c—k!÷JDH(—e1
34+"**  The Key  **",4)÷e÷c—l7÷JDH(—e131
+"An adventure game created bz childrun"
,9)÷e÷c—m-÷JDH(—e131+"from Franchj Middl
e School",12)÷e÷c—o÷]÷L÷e÷c—t÷^÷L ÷e÷c÷)
÷gF$="key" :÷L÷e÷c÷.÷] ÷e÷c÷3÷] ÷e÷c÷=÷]
 ÷e÷c÷B÷] ÷e÷c÷E)÷I—26,22)"Please wait. 
G!me loading. ";÷e÷c÷G÷]÷9÷e÷d÷t÷f÷5÷JCH
ECKANS÷e÷d÷v÷pV=-1:PER=0:÷? N$="" ÷9÷i÷d
!+ ÷?IN$=$(DAT+1240) —, N$=$(DAT+1280)) 
V=1÷e÷d&÷l÷? V=1 —, QCH=69 ÷9÷e÷d+÷jA$=$
(DAT+1240)÷e÷dN÷mR=—LSPCHECK(N$,A$)÷e|c 
                                        
                                        
   P721 CEEFAX 721  Mon 10 Nov  21:27/52
|B220720E|a16Advntr|j24BBBC332k|m410A6|p
÷dS÷g÷? R=—a V=1:÷9÷e÷dX÷jA$=$(DAT+1280)
÷e÷dg÷mR=—LSPCHECK(N$,A$)÷e÷dl÷e÷? R=—a 
V=1÷e÷d÷]÷9÷e÷d—(÷e÷5÷JCOR ECUSC
ORE*(LOC)=100:RIGHT=RIGHT+1÷e÷d—2£÷G31,0
,12:÷JDISPLAY(DAT+1320,120)÷e÷d—U÷]÷9÷e÷
d—Z÷c÷5÷JWRONG÷e÷d—#÷uSCORE%(LOC)]SCORE%
(LOC)+1÷e÷d—d£÷G31,0,12:÷JDISPLAY(DAT+14
40,120)÷e÷d÷7÷]÷9÷e÷d÷<÷b÷5÷JNEXT÷e÷d÷F÷
j÷G23,1,0;0;0;0;÷e÷d÷P1÷I—20,23);—e131;"
Where to now ?":÷JFING:÷G31,16,23÷e÷d÷U÷
e*FX402,48÷e÷e÷Z÷d÷JSTARKEY÷e÷e÷]÷q÷? —h
CK$,1)="E" ÷JFUNLOC÷e÷e÷n—#÷? GRID%(CK)>
0 —( GRID%(CK)<=MAX LOC=GRID%(CK) —3 ÷JL
ENE(21):÷JLINE(22):÷JLINE(23):÷I—210,24)
"                 ";:÷I—20,22);—e134;"No
thing special here.";:÷; CO=1 —|— 1000:÷
E CO:÷JLJNE(22):÷= —5dxL÷e÷e÷q÷l÷G23,1,1
;0;0;0;0;÷e÷e÷s÷]÷9÷e÷e—T÷c÷5÷JBOARD÷e÷e
—W(÷3:÷JDH(—e129+"The Last Adventure  ",
2)÷e÷e—Y—G ÷I—21T5)"The program will acc
ept instructions";—23,7)"from the red fu
nction keys or a ";—21,9)"CONCEPT kj|c  
                                        
                                        
   P721 CEEFAX 721  Mon 10 Nov  21:12/24
|B220820E|a16Advntr|j44BBBC332k|n4137F|p
yboard.  Please select the";—211,11)"met
hod required."÷e÷e—^=÷I—21,15);—e134;"1"
;—e135;"Function keys and/or 128 keyboar
d"÷e÷e—c=÷I—21,Q7);—e134;"2";—e135;"Func
tion keys and/or 256 keyboard"÷e÷e—h8÷I—
28,22)"Please select";—e134;"1";—e135;"o
r";—e134;"2 ";÷e÷e—r÷o÷M:A=—M:÷U A=49 —,
 A=50÷e÷e÷,÷j÷? A=49 KB%=128÷e÷e÷1÷j÷? A
=50 KB%=256÷e÷e÷6÷]÷9÷e÷g÷b÷b÷5÷JCONC÷e÷
g÷gJLOC=18:÷JLOAD:÷? RIGHT>=?(DAT+601) ÷
3:÷G31,0,2:÷JDISPLAY(DAT,600):÷JBAR:÷3:÷
9÷e÷g7÷]÷9÷i÷g<÷e÷5÷J$IMEOUT÷e÷gA"÷3:÷JD
H(—e129+"OUT OF TIME ! ",3)÷e÷gF%÷I—26,8
)"You have run out of time."÷e÷gd÷|—÷JBA
2÷e÷gi÷]÷9÷e÷g—H÷l÷5÷JNOIVP(N):A$=""÷i÷g
—M÷a÷M:A=—M÷e÷g— AAQ
A$)<N ÷GA:A$=A$+—eA:÷U0÷e÷g—W/÷? A=127 —
( —Q(A$)>0 A$=—hA$,(—Q(A$)-1)):÷G127:÷U0
÷e÷g—f÷b÷U A=13÷e÷g—k÷dVO=—c(A$)÷e÷g—u÷]
÷9÷e÷h÷\÷b÷5÷JTIME÷e÷h÷a/÷3:÷JDH(—e129+"
The Last Adventure: "+F$+" ",0)÷e÷h÷f—K÷
I—22,4)"What is the maximum length o|c  
                                        
                                        
   P721 CEJFAX 721  Mon 10 Nov  21:13/41
|B220920E|a16Advntr|j24BBBC332k|m41650|p
f time";—22,6);"you  want the adventure 
to last";—22,8);"(in minutes)";—e131;:÷J
NOINP(3):÷)=0:FT=NO*6000:÷? NO<1 —, NO>9
:9 —4 ÷= —5TIP÷e÷h6÷]÷3÷e÷hc÷]÷9÷e÷hh÷t÷
5÷T EPORTRIGHTMAXZ
 —|— MAX:NS%=0:÷; ZZ=0 —|— 127÷e÷hl÷;÷? 
GRID%(ZZ)=Z NS%=NS%+1÷e÷hn÷|—÷E ZZ÷e÷hp÷
o÷? NS%=0 NAME$(Z)=""÷e÷hr÷#÷E Z÷e÷hu÷nT
RYS=0:÷M:÷JLINE(13)÷e÷hwHTRYS=TTYS+1:÷JD
H(—e131+"Password ?  ",10):÷I—2Q3,13);—e
134;:N$=—LINPUT(10)÷e÷h||÷u ÷U N$=$(DAT+
603) —, TTYS=3÷e÷h—)F÷? TTYS=3 —( N$]>$(
DAT+603) ÷I—29,16)—e129;—e136;"WRONG PAS
SWORD":÷JBAR:÷9÷e÷h—B÷t÷3:÷JDH(—e131+"RE
PORT  ",0)÷e÷h—G3÷I—20,3)"You did not vi
sit/find these locations."÷e÷h—L÷o÷G31,0
,5:÷; Z=1 —|— MAX÷e÷h—Q-÷ SCORE%(Z)=0 —
( NAME$(U)<>"" —4 ÷I NAME$(Z)÷e÷h—V÷d÷E 
Z:÷JBAR÷e÷h—[÷t÷3:÷JDH(—e131+"REPORT  ",
0)÷e÷h—|—>÷I—20,3)"You did not solve the
 problems at these locations."÷e÷h—e÷o÷G
31,0,6:÷; Z=1 —|— MAX÷e÷h—j0÷? SCORE|c  
                                        
                                        
   P721 CEEFAX 721  Mon 10 Nov  21:18/13
|B220A20E|a16Advntr|j24BBBC332k|m41931|p
%(Z)<>100 —( NAME$(Z)<>"" —4 ÷I NAME$(Z*
÷e÷h—o÷#÷E Z÷e÷h—tS÷I—28,23)—e129;"SPACE
BAR";—e135;"to repeat";—29,24 ;—e12 ;"ES
CAPE";—e135;"to jinish ";÷e÷h÷)÷o÷M:A=—M
:÷U A=32 —, A=27÷e÷h÷.÷j ÷? A=32 ÷= —5tZ
P÷e÷h÷V÷]÷9÷e÷i0÷|—÷5÷JSA÷e÷i5&÷3:÷JDH(—
e13)+"CONCEPT ADVENTURE ",1)÷e÷i:M÷I—24,
8)"Do you want to have the same";—24,10)
"adventure again ?   Y or N ";÷e÷i?÷cA=—
LYORN÷e÷iD÷]÷9÷e÷i—<÷g÷5÷JCHECKTEXT÷e÷i—
A÷|—T%=0÷e÷i—F÷r÷; ADDS=DAT —|— (DAT+400
)÷e÷i—K!÷? ?ADDS<>32 T%=1:ADDS=DAT+400÷e
÷i—P÷b÷E ADD ]PJCHECK
QUES÷e÷i÷U÷a Q%=0÷e÷j÷Z!÷; ADDS=(DAT+760
) —|— (DAT+1000)÷e÷j÷#"÷ ?ADDS<>32 Q*=1
:ADDS=DAT+1000÷e÷j÷d÷b÷E ADDS÷e÷j%÷]÷9÷e
÷j\÷b÷5÷JCON1÷e÷ja÷fM=DAT+1240÷e÷jf÷aJ$=
$M÷e÷jk÷p÷; ADDS=M —|— (M+—Q(J$))÷e÷jp÷d
CH=?ADDS÷e÷ju÷w÷? CH>96 —( CH<123 —4 CH=
CH-32÷e÷jw÷d?ADDS=CH÷e÷jz÷R÷E ADDS÷e÷j÷
fM=DAT+1280÷e÷j—,÷aJ$=$M÷e÷j—1÷p÷; ADDS=
M —|— (M+—Q(J$))÷e÷j—6÷dCH=?ADDS÷e÷j|c  
                                        
                                        
   P721 CEEFAX 721  Mon 10 Nov  21:23/34
|B220B20E|a16Advntr|j24BBBC332k|n41BEB|p
—;÷w÷? CH>96 —( CH<123 —4 CH]CH-32÷e÷j—=
÷d?ADDS=CH÷e÷j—@÷b÷E ADDS÷u÷j—^÷]÷9÷u÷j—
h÷b÷5÷JCON2÷e÷j—r÷b$M%=N$÷u÷j—{÷r÷; ADDS
=M% —|— (MI+—Q(N$))÷e÷j÷,÷dCH=?ADDS÷e÷j÷
1÷w÷? CH>96 —( CH<123 —4 CH=CH-32÷e÷j÷6÷
d?ADDS=CH÷e÷j÷;÷b÷E ADDS÷e÷j÷@÷bN$=$M%÷e
÷k÷r÷]÷9÷e÷k$÷d÷5÷JFUNLOC÷e÷k)÷gCK$=—jCS
$,3)÷e÷k.÷eCO=—c(CK$)÷e÷k3÷w÷? CK>130 —(
 CK<139 CK=CK-130÷e÷k5÷w÷? CK>150 —( CK<
159 CK=CK-142÷e÷k8!÷ CK<1 —, CK>MAX —4 
CK=0:÷= —5DjS÷e÷k:÷dLOCCK%=0÷e÷k=÷g÷; Z=
0 —|— 127÷e÷kB'÷? GRID%(U)=CK —4 CK=Z:Z=
128:LOCCK%=1÷e÷kG÷q÷E Z:÷? LOCCK%=0 ÷= —
5DjS÷e÷kV÷]÷9÷e÷kj÷g÷; Z=0 —|— 127÷e÷ko÷
s÷? GRID%(Z)=0 CK=Z:Z=128÷e÷kt÷#÷E Z÷e÷k
—+÷]÷9÷e÷k—0÷c÷5÷JRESET÷e÷k—5÷l÷JCLEAR(D
AT,2000)÷e÷k—:CRJGHT=0:NOQU=1:GOES=0:NOE
NT=1:FIN=89:÷; Z=1 —|— 16:SCORE%(Z)=0:÷E
 Z÷e÷k÷?÷]÷9÷e÷m||÷b÷5÷JFING÷e÷m—)) ÷I—2
20,22I;—e(147);—e(154);—e(254);—e(255)÷e
÷m—." ÷I—220,23);—e(147);—e(154);—e(170)
÷e÷m—3- ÷I—220,24);—e(147);—e(96);—e|c  
                                        
                                        
   P721 CEEFA( 721  Mon 10 Nov  21:14/07
|B220C20E|a16Advntr|j24BBBC332k|m41E96|p
(96);—e(96);—e(96);÷e÷m—8÷^ ÷9÷e÷m—B÷c÷5
÷JFING2÷e÷m—G( ÷I—225,8);—e(147);—e(154)
;—e(254);—e(255)÷k÷m—L! ÷I—225,9);—e(147
 ;—e(154);—e(170)÷e÷m—Q, ÷I—225,10);—e(1
47);—e(96);—e(96);—e(96);—e(96)÷e÷m—V÷]÷
:÷e÷o÷d÷e÷5÷JSETDOWN÷i÷o÷i÷d*FX225,1÷u÷o
÷n÷|—*FX4÷e÷o ÷^ ÷3÷e÷of÷]÷9÷u÷oo!÷L ***
* END OF PROCEDURES ****÷e÷op!÷L ****** 
ALL FUNCTIONS ******÷e÷ou÷f÷5—LIVPUT(L)÷
e÷oz÷b÷B A,N$÷e÷o÷]÷M÷e÷o—,÷]÷M÷e÷o—1÷e
*FX202,48÷e÷o—6÷c*F(Q5,0÷e÷o—;÷#A=—M÷e÷o
—@÷s÷U—Q(N$)<L —, A=13 —, A=127÷e÷o—E÷w÷
? (A<32 —, A>127)—( A<>13 ÷U 0÷e÷o—J÷r÷G
A+A*(A=127 —( —Q(N$)=0)÷e÷o—O÷u÷? A<>13 
—( A<>127 N$=N$+—eA÷e÷o—T%÷? A=127 —( —Q
(N$)>0 N$=—hN$,—Q(N$)-1)÷e÷o—Y÷a÷UA=Q3÷e
÷o—^÷e*FX202,32÷e÷o—c÷#=N$÷k÷o—h÷b÷5—LYO
RN÷e÷o—m÷#÷B A÷e÷o—r÷]÷M÷e÷o—w÷c*F()5,0÷
e÷o÷,÷#A=—M÷e÷o÷5!÷U A=89 —, A=121 —, A=
78 —, A=110÷e÷o÷6÷^=A÷e÷p8÷n÷5—LSPCHECK(
S1$,S2$)÷e÷p=÷a÷B I,J÷e÷p?÷j÷? —Q(A$)<7 
—4 =—K÷i÷pB£÷ —hS1$,1)=—hS2$,Q) —4 |c  
                                        
                                        
   P721 CEEFA( 721  Mon 10 Nov  21:14/Q1
|B220D40E|a16Advntr|j24BBBC332k|m4212C|p
F1=—a —3 F1=—K÷e÷pG£÷? —jS1$,1)=—jS2$,1)
 —4 N1=—a —3 N1=—K÷e÷pL÷n÷? —T (F1 —, N1
) —4 =—K÷e÷pQ÷jL=—<(—QS1$-—QS2$)÷e÷pV÷f÷
? L>2 —4 =—K÷e÷p[÷bPASS=0÷e÷p|—÷g÷;I=1 —
|— —QS1$÷e÷pe÷h÷; J=1 —|— —QS2$÷e÷pj. ÷?
 —iS1$,I,1)=—iS2$,J,1) —4 PASS=PASS+1:I=
I+1÷e÷po÷#÷E J÷e÷pt÷#÷E I÷e÷py÷qPER=(PAS
S/—QS1$) *100 ÷e÷p{÷q÷? PER >= 85 —4 =—a
 —3 =—K÷e÷sX÷a÷5÷EPIC÷e÷s]÷u÷G31,0,2:÷? 
?IDAT+1599)=0 ÷9÷e÷sb/÷; PIC%=1600 —|— 1
999:÷I —e(?(DAT+PIC%));:÷E PIC%÷e÷s—#÷]÷
9÷e÷w—)/÷5—LNOSPACE(N$):÷M:÷? —jN$,1)=" 
"N$=—hN$,—Q(N$)-1)÷e÷w—.÷v÷?—hN$,1)=" "V
$=—jN$,—Q(N$)-1)÷e÷w—3 ÷U—hN$,1)<>" "—(—
jN$,1)<>" ":=N$÷e'÷g$÷L ****** EVD OF FU
NCTIONS ******÷e+—h÷c÷5÷JERROR÷e+—m%÷3:÷
JDH(—e129+"CONCEPT ADVENTURE",1)÷e+—r/÷?
 —G=222 ÷JDH(—e131+"File not found",7):÷
= —5Dol÷e,j÷p÷G28,7,11,39,7:÷N:÷G 26÷e,o
8÷I—28,23);"Press";—e12:;"SPACEBAR";—e13
5;"to continue ";÷e,t÷d÷M ÷U —M=32÷e,y÷]
÷Q÷e,|÷÷]÷9÷e.÷8÷i÷5÷JSTARKEY÷e.÷=÷c|c  
                                        
                                        
   P721 CEEFAX 721  Mon 10 Nov  21:25/47
|B220E20E|a16Advntr|j24BBBC332k|m423E8|p
*FX15,0÷e.÷÷l÷? KB%=256 ÷= —5TCo÷e.÷B$C
U=-1:?&FE6B=0:?&FE60=1:?&FE6D=0÷e.÷G÷e÷M
 CK=—N(0)÷e.÷L÷q÷U ?&FE6D=16 —, CK>=131÷
e.÷Q÷s÷ CK>=0 CK$="F"+—k(CK):÷9÷e.÷V÷wC
K=?&FE60 —( 127:CK$=—k(CK):÷9÷e/÷[÷aCT=-
1÷e/÷e÷g*FX251,98,0÷e/÷o÷h*FX151,107,0÷e
/÷t÷v?&FE6B=0:?&FE60=1:?&FE6D=0÷e/!÷iA%=
150:X%=109÷e/+÷e÷M CK=—N(0)÷e/53÷U ((—b(
&FFF4) —( &00FF0000)/&10000=&10) —, CK>>
231÷e/?÷bA%=150÷e/I÷aX%=96÷e/S÷s÷? CK>=0
 CK$="E"+—k(CK):÷9÷e/]$CK=(—b(&FFF4) —( 
&00FF0000)/&10000÷e/g>÷?(CK —) 16) —+ 2=
0 —4 CK=CK-(CK —) 16)*8 —3 CS=CK-(CK —) 
16)*8-8÷e/q÷gCK$=—k(CK):÷9÷eN ÷b ÷N:÷I —
G÷eN*÷j ÷I "AT LINE" —F÷eN4÷|—*FX4÷eN>÷]
÷*÷e÷W|c