� >!RUNIMAGE

 � !GLOOP
 � � J H PEACHEY
( � Version 1.02
2 wimp%=�
< � 13:�
F
 �init
P �start:�entername
Z1 � sex%=1 � rv$=m_f$+"MAN" � rv$=m_f$+"WOMAN"
d ș&2E,267,sp,rv$
n � level=1 � lives%-=2
x �readsetup:�load(1)
� �setscreen
�
 �main
� �"CHANNELVOICE 1 1"
� ș&06,4,0
� ș&06,200,0,0
� ș"Wimp_SetMode",wimp%
� ș"Wimp_CommandWindow",-1
� �
�:
� ݤreadvarval(v$)
� � v%,b%,u%,n%
� � v% 100 ,b% 100
� $v%=v$

+ ș"OS_ReadVarVal",v%,b%,60,u%,3 � ,,n%

 ?(b%+n%)=13

	 =$b%

":

," ��slab(x%,y%,w%,h%,ls%,text$)

6  c1%=63:t1%=0:c2%=42:t2%=128

@  c3%=21:t3%=0:c4%=21:t4%=128

J9 � ls%=1 � Ȕ c1%,c3%:Ȕt1%,t3%:Ȕ c2%,c4%:Ȕ t2%,t4%

T �42Ȝ0:ȓȐx%,y%,w%,h%

^6 �c1%Ȝt1%:�x%,y%+h%:�x%+8,y%+h%-8:�85,x%+w%,y%+h%

h �85,x%+w%-8,y%+h%-8

r& �c2%Ȝt2%:�x%,y%+h%:�x%+8,y%+h%-8

| �85,x%,y%:�85,x%+8,y%+8:

�  �c3%Ȝt3%:�x%,y%:�x%+8,y%+8

�" �85,x%+w%,y%:�85,x%+w%-8,y%+8

� �c4%Ȝt4%:�x%+w%,y%

�6 �x%+w%-8,y%+8:�85,x%+w%,y%+h%:�85,x%+w%-8,y%+h%-8

�1 � text$<>"" ș&2E,290,sp,text$,x%+14,y%+14,0

� �

�:

� ��setscreen

�5 �42 Ȝ 0:ȓ Ȑ 0,280,1279,140:ȓ Ȑ880,0,399,300

� ȓ Ȑ 960,300,400,740

� ȓ Ȑ0,0,884,280

�: �slab(40,300,900,100,1,""):�slab(900,20,359,260,1,"")

� � x=0 � 6
/ �slab(980,(300+(100*x)),279,90,0,name$(x))
 �
! ș&2E,290,sp,"score",988,210
&" ș&2E,290,sp,"PLAYED",918,150
0! ș&2E,290,sp,"POINTS",918,85
:" �keypad:�ridge(60,30,252,742)
D �score(0):�play
N �drawstart
X �
b:
l ��score(sc)
v � score$,r%
�( sc1$="0":sc2$="0":sc3$="0":sc4$="0"
� score%+=sc:sur%=0
� � score%<0 � score%=0
�" score$=�(score%):r%=�(score$)
�, � score%>9999 � �surrender:� sur%=1 � �
� � r%<2 � sc4$=score$
�2 � r%=2 � sc4$=�score$,r%,1):sc3$=�score$,1,1)
�D � r%=3 � sc4$=�score$,r%,1):sc3$=�score$,2,1):sc2$=�score$,1,1)
�V � r%=4 � sc4$=�score$,r%,1):sc3$=�score$,3,1):sc2$=�score$,2,1):sc1$=�score$,1,1)
�  ș&2E,290,sp,sc1$,1122,83,0
�  ș&2E,290,sp,sc2$,1152,83,0
�  ș&2E,290,sp,sc3$,1186,83,0
�  ș&2E,290,sp,sc4$,1218,83,0
 �
:
 ��play
  � play$,r%
*( pl1$="0":pl2$="0":pl3$="0":pl4$="0"
4 play$=�(play%):r%=�(play$)
> � r%<2 � pl4$=play$
H0 � r%=2 � pl4$=�play$,r%,1):pl3$=�play$,1,1)
RA � r%=3 � pl4$=�play$,r%,1):pl3$=�play$,2,1):pl2$=�play$,1,1)
\R � r%=4 � pl4$=�play$,r%,1):pl3$=�play$,3,1):pl2$=�play$,2,1):pl1$=�play$,1,1)
f! ș&2E,290,sp,pl1$,1122,147,0
p! ș&2E,290,sp,pl2$,1152,147,0
z! ș&2E,290,sp,pl3$,1186,147,0
�! ș&2E,290,sp,pl4$,1218,147,0
�
 play%+=1
� �
�:
� ݤinbox(x,y,x1,y1)
�% =mx%>x � mx%<x1 � my%>y � my%<y1
�:
� ��soundcont
� � quit%:quit%=0
�$ �slab(980,600,279,90,1,"SOUND")
�% �popwindow(260,560,650,888,"sw")
�  �slab(270,570,364,308,0,"")
� ȗ ȓ280,582,346,282
: �plot_text(370,815,"SOUND"):�plot_text(355,759,"OFF")
: �plot_text(355,695,"VOLUME"):�plot_text(515,759,"ON")
 �tonoff(0)
$@ ș&2E,290,sp,"OKU",408,594,0:ș&2E,290,sp,"slide",300,654,0
.@ ș &2E,290,sp,"down",545,655,0:ș &2E,290,sp,"up",585,655,0
8 �sndbase:mb%=0
B �:ȗ mx%,my%,mb%
L
 Ȏ mb% �
V � 4 :Ȏ � �
`) � �inbox(312,758,338,782):�tonoff(1)
j) � �inbox(470,758,502,782):�tonoff(1)
t/ � �inbox(544,648,574,680):vol%+=1:�sndbase
~/ � �inbox(586,648,614,680):vol%-=1:�sndbase
�& � �inbox(416,598,500,632):quit%=5
� �
� �
� � quit%=5
�) ș&2E,290,sp,"OKD",408,594,0:I=�(12)
� �closewindow(260,560,"sw")
�$ �slab(980,600,279,90,0,"SOUND")
� �4:�:�r
� �
�:
� ��sndbase
� �b%,vl%
 � vol%>=0 � vol%=0

 � vol%<=-15 � vol%=-15
& vl%=�(vol%):base%=312:b%=(13*vl%)
# ș&2E,290,sp,"slide",300,654,0
( �12 Ȝ 64
2 ȓ Ȑ 312,664,b%,8
< I=�(16)
F �
P:
Z ��tonoff(t)
dJ � sound%=0:ș&2E,290,sp,"ROFF",460,750,0:ș&2E,290,sp,"RON",300,750,0
nJ � sound%=1:ș&2E,290,sp,"RON",460,750,0:ș&2E,290,sp,"ROFF",300,750,0
x � t=1 � �vmc
� �m
� �
�:
�
 ��vmc
�% � sound%=1 � sound%=0 � sound%=1
� �tonoff(0)
� �
�:
� ��m
�# �:ȗ X,Y,Z:� Z=0:ș &06,21,9:�
�:
� ��r
� ȗ ȓ 0,0,1279,1023:� 26:�
:
 ��exit
# �slab(980,900,279,90,1,"EXIT")
"% �popwindow(260,610,774,888,"ex")
,  �slab(270,620,494,258,0,"")
6 ȗ ȓ280,632,476,238
@C �plot_text(430,825,"QUIT"):�plot_text(290,759,"ARE YOU SURE?")
J@ ș&2E,290,sp,"oku",340,648,0:ș&2E,290,sp,"Cancu",510,648,0
T
 �min:
^ � return%=1 � quit%=2
hA �closewindow(260,610,"ex"):�slab(980,900,279,90,0,"EXIT"):�r
r �
|:
�
 ��min
� � ret:ret=0:return%=0
� �4:�:�m:�
� �:ȗ mx%,my%,mb%:� mb%=4
�I � �inbox(350,652,430,690):return%=1:ret=1:ș&2E,290,sp,"okd",340,648
�K � �inbox(518,652,680,690):return%=0:ret=1:ș&2E,290,sp,"cancd",510,648
� � ret=1
� I=�(10)
� �
�:
�
 ��editor
�% �slab(980,800,279,90,1,"EDITOR")
�% �popwindow(260,610,774,888,"ed")
  �slab(270,620,494,258,0,"")
 ȗ ȓ280,632,476,238
! �plot_text(420,815,"EDITOR")
&( �plot_text(290,745,"GO TO EDITOR?")
0@ ș&2E,290,sp,"oku",340,648,0:ș&2E,290,sp,"Cancu",510,648,0
:	 �min
D  � return%=1 � �"RUN "+edit$
NC �closewindow(260,610,"ed"):�slab(980,800,279,90,0,"EDITOR"):�r
X �
b:
l ��readsetup
v F%=� res$
� � d=1 � 9
� �#F%,waste$
� �
� � e=1 � 8
� �#F%,file$(e),recs%(e)
� �
�
 � #F%
�! file$(1)="MASTER DICTIONARY"
� �
�:
� ��grid
�# �slab(980,700,279,90,1,"LOAD")
�& �popwindow(115,429,878,1008,"ld")
  �slab(125,439,744,562,0,"")
 ȗ ȓ 142,456,710,534
 � c3% Ȝ t3%
  � X=464 � 972 � 64
* ȓ 150,X,690,64
4 �
> � 34 Ȝ 192:� 42+128 Ȝ 0
H � T=1 � 8
R �5,(2*T));file$(T)
\ �
f �
p:
z ��hlght(g)
� � g=oldhigh �
�[ �c3% Ȝ t3%:ȓ 150,976-(oldhigh*64),690,64:� 34 Ȝ 192:�5,(2*oldhigh));file$(oldhigh)
�C �63 Ȝ 0:ȓ 150,976-(g*64),690,64:�63 Ȝ 0:�5,(2*g));file$(g)
� oldhigh=g
� �
�:
�
 ��ldcont
� oldhigh=1:�hlght(3):�m
� �:ȗ mx%,my%,mb%
�
 Ȏ mb% �
� � 0,1,4 :Ȏ � �
�. � �inbox(150,914,840,976):�hlght(1):sel=1
�. � �inbox(150,850,840,914):�hlght(2):sel=2
	. � �inbox(150,786,840,850):�hlght(3):sel=3
	. � �inbox(150,722,840,786):�hlght(4):sel=4
	. � �inbox(150,658,840,722):�hlght(5):sel=5
	$. � �inbox(150,594,840,658):�hlght(6):sel=6
	.. � �inbox(150,530,840,594):�hlght(7):sel=7
	8. � �inbox(150,466,840,530):�hlght(8):sel=8
	B �
	L �
	V � mb%>0
	` �
	j:
	t
 ��loader
	~ �grid:�ldcont
	� � mb%=4:�load(sel)
	� �closewindow(115,429,"ld")
	�& �slab(980,700,279,90,0,"load"):�r
	� �
	�:
	�' ��popwindow(qa%,qb%,qc%,qd%,temp$)
	� �26
	�+ �qa%,qb%:�qc%,qd%:ș&2E,270,sp,temp$,0
	� �
	�:
	�! ��closewindow(qa%,qb%,temp$)
	� �26
 ș&2E,290,sp,temp$,qa%,qb%

 ș&2E,281,sp,temp$
 �
:
(
 ��keypad
2	 � m$
< � X=1 � 10
F9 � guess%=1 � key%(X)=1 � m$="key_down" � m$="key_up"
P' ș &2E,290,sp,m$,(20+X*70),200,&80
Z C%=64+X
d
 F$=�(C%)
n% ș &2E,290,sp,F$,(28+X*70),208,0
x �
�:
� � X=1 � 9
�< � guess%=1 � key%(10+X)=1 � m$="key_down" � m$="key_up"
�' ș &2E,290,sp,m$,(50+X*70),130,&80
� C%=74+X
�
 F$=�(C%)
�% ș &2E,290,sp,F$,(58+X*70),138,0
� �
�:
� � X=1 � 7
�< � guess%=1 � key%(19+X)=1 � m$="key_down" � m$="key_up"
�' ș &2E,290,sp,m$,(106+X*74),55,&80
� C%=83+X

 F$=�(C%)
' ș &2E,290,sp,F$,(114+X*74),63,&80
 �
" �
,:
6 ��decode(mb%)
@ � l,r:l=992:r=1246
J
 Ȏ mb% �
T � 4 � gamerun%=1 :Ȏ � �
^0 � �inbox(l,612,r,676) � guess%=0:�soundcont
h- � �inbox(l,512,r,576) � guess%=0:�resign
r, � �inbox(l,412,r,476) � guess%=0:�guess
|, � �inbox(90,200,144,258):�keypress("A")
�- � �inbox(160,200,214,258):�keypress("B")
�- � �inbox(230,200,284,258):�keypress("C")
�- � �inbox(300,200,354,258):�keypress("D")
�- � �inbox(370,200,424,258):�keypress("E")
�- � �inbox(442,200,496,258):�keypress("F")
�- � �inbox(508,200,564,258):�keypress("G")
�- � �inbox(580,200,634,258):�keypress("H")
�- � �inbox(650,200,704,258):�keypress("I")
�- � �inbox(720,200,774,258):�keypress("J")
�- � �inbox(120,130,174,188):�keypress("K")
�- � �inbox(190,130,244,188):�keypress("L")
�- � �inbox(260,130,314,188):�keypress("M")
�- � �inbox(330,130,384,188):�keypress("N")
- � �inbox(400,130,456,188):�keypress("O")
- � �inbox(470,130,528,180):�keypress("P")
- � �inbox(540,130,598,180):�keypress("Q")
&- � �inbox(610,130,664,180):�keypress("R")
0- � �inbox(680,130,734,180):�keypress("S")
:, � �inbox(180,55,234,108):�keypress("T")
D, � �inbox(252,55,308,108):�keypress("U")
N, � �inbox(328,55,384,108):�keypress("V")
X, � �inbox(400,55,456,108):�keypress("W")
b, � �inbox(478,55,532,108):�keypress("X")
l, � �inbox(550,55,604,108):�keypress("Y")
v, � �inbox(624,55,678,108):�keypress("Z")
� �
� � 4 � gamerun%=0 :Ȏ � �
�% � �inbox(l,612,r,676):�soundcont
�  � �inbox(l,912,r,976):�exit
�" � �inbox(l,812,r,876):�editor
�" � �inbox(l,712,r,776):�loader
�  � �inbox(l,312,r,376):�game
� �
� �
� �
�:
� ��plot_text(x%,y%,text$)
� � t%,t$,spc%

 spc%=0:spr%=0

 �0,42 Ȝ 0

 � t%=1 � �(text$)

  t$=�text$,t%,1)

* � t$=" " �

4@ ȓ Ȑ((x%-32)+(32*t%)-spc%),y%,32,40:spr%+=1:spc%=(16*spr%)

> �

H1 ș &2E,290,sp,t$,((x%-32)+(32*t%)-spc%),y%,0

R �

\ �

f �

p:

z ��ridge(x%,y%,h%,w%)

�
 �21 Ȝ 0

� ȓ x%+4,y%,w%-4,h%-4

� � x%+w%,y%,x%+w%,y%+h%

�
 �63 Ȝ 0

� � x%,y%,x%,y%+h%

� � x%,y%+h%,x%+w%-4,y%+h%

� � x%+8,y%+4,x%+w%-4,y%+4

�# � x%+w%-4,y%+4,x%+w%-4,y%+h%-4

� �

�:

� ��keypress(letter$)

� � dmy%

� dmy%=�(letter$)
 � dmy%=127 � �dellet:�
 � dmy%<65 � dmy%>90 � �
 Ȏ letter$ �
$ � "A":px%=90:py%=200
. � "B":px%=160:py%=200
8 � "C":px%=230:py%=200
B � "D":px%=300:py%=200
L � "E":px%=370:py%=200
V � "F":px%=442:py%=200
` � "G":px%=508:py%=200
j � "H":px%=580:py%=200
t � "I":px%=650:py%=200
~ � "J":px%=720:py%=200
� � "K":px%=120:py%=130
� � "L":px%=190:py%=130
� � "M":px%=260:py%=130
� � "N":px%=330:py%=130
� � "O":px%=400:py%=130
� � "P":px%=470:py%=130
� � "Q":px%=540:py%=130
� � "R":px%=610:py%=130
� � "S":px%=680:py%=130
� � "T":px%=180:py%=55
� � "U":px%=252:py%=55
� � "V":px%=328:py%=55
 � "W":px%=400:py%=55

 � "X":px%=478:py%=55
 � "Y":px%=550:py%=55
 � "Z":px%=624:py%=55
( �
2( ș&2E,290,sp,"key_down",px%,py%,&08
<& � guess%=1 � �makeword(letter$):�
F � A%,V%,L%
P L%=64:
Z! V%=�(letter$):A%=V%-L%:ke=A%
d � level=0 � key%(A%)=1 � �
n �lttr(letter$,ke)
x key%(A%)=1
� I=�(20)
�2 � level=1 � ș&2E,290,sp,"key_up",px%,py%,&08
� �
�:
� ��dash
� � v=1 � length%
�( ș&2E,290,sp,"dash",l%+(72*v),320,0
� �
� �
�:
� ��chooseword
�	 � L%
� adve%=0:word%(0)=1
> � usedword%=count � usedword%>count � �advise:� adve%=1:�
 �
 L%=�(count)
" � word%(L%)=0
,3 select$=word$(L%):word%=0:word%(L%)=1:key%()=0
6 length%=�(select$)
@ l%=444-(38*length%)
J
 �dash
T usedword%+=1
^ �
h:
r ��displayletter(x$,g%,m%)
| �24,55;314;931;389;
� � F,T :T=0
� � F=392 � 320 � -4
�# ș&2E,290,sp,x$,l%+(72*g%),F,0
�+ ș&2E,290,sp,"DASH",l%+(72*g%),320-T,0
� U=�(4):T+=4:�
� �26:found=1:A%=0
� ȗ ȓ 0,0,1279,1023
� � m%=1 � �
� � level=0 �
� �score(2)
� �
� �score(4)
� �
 �
:

 ��resign
&% �slab(980,500,279,90,1,"RESIGN")
0% �popwindow(260,610,774,888,"ed")
:  �slab(270,620,494,258,0,"")
D ȗ ȓ280,632,476,238
N# �plot_text(390,815,"RESIGN ?")
X) �plot_text(290,745,"LOSE 30 POINTS")
b@ ș&2E,290,sp,"oku",340,648,0:ș&2E,290,sp,"Cancu",510,648,0
l	 �min
v � return%=0 �
� �closewindow(260,610,"ed")
�% �slab(980,500,279,90,0,"RESIGN")
� �r
� �
� �revealword
� �score(-30):gamerun%=0
� �r
� �closewindow(260,610,"ed")
� �
�% �slab(980,500,279,90,0,"RESIGN")
� �
�:
� ��revealword
 � t=1 � length%
P � wordform(t)=0 � lt$=(�select$,t,1)):lt1$=lt$+"l":�displayletter(lt1$,t,1)
 �
  �
*:
4 ��main
> �
H
 mb%=0
R �
\ ȗ mx%,my%,mb%
f � mb%=4
p �decode(mb%)
z � quit%=2
� �
�:
� ��guess
� � le%,bonus$
� �keypad
�; flagf%=0:guess%=1:guesscount%=0:internal$="":input$=""
�$ �slab(980,400,279,90,1,"GUESS")
�% �popwindow(260,610,794,900,"ed")
� �"CHANNELVOICE 1 1"
�  �slab(270,620,514,278,0,"")
�2 le%=(length%-word%)*25:bonus$="BONUS "+�(le%)
�* �plot_text(290,840,"MAKE YOUR GUESS")
� �plot_text(350,794,bonus$)
% �plot_text(336,754,"IF CORRECT")
( �plot_text(310,714,"RETURN TO END")
 �plot_text(284,670,">")
$ � 48 Ȝ 192:�42+128 Ȝ 0
. �Tz=1 � �(select$)
8 �9+Tz,10);"-"
B �
L ȕ flagf%=0
V keyp%=-1:mb%=0:�
` ș &06,202,%00000,1
j ș&06,21,0:ș&06,21,9
t keyp%=�(2)
~  � keyp%=-1 � ȗ mx%,my%,mb%
� � mb%=4 � keyp%>-1
�) � keyp%=13 � keyp%=-1:mb%=0:flagf%=1
�7 � mb%=4 � �decode(mb%) � R$=�(keyp%):�keypress(R$)
�, keyp%=-1:mb%=0:�:ȗ mx%,my%,mb%:� mb%=0
� �10,10);internal$
� �
� �closewindow(260,610,"ed")
�n � input$=select$ � �revealword:�sound("BONUS",0):� Tz=1 � le%:�score(1):O=�(4):�:word%=length%:gamerun%=0
�( � input$<>select$ � level=0 �keypad
�
 guess%=0
�7 � input$="" � �slab(980,400,279,90,0,"GUESS"):�r:�
�/ � input$<>select$ � �score(-15):�lights(1)
$ �slab(980,400,279,90,0,"GUESS")

 �r
 �
:
( ��name_check
2 � Z%,X%,T$
< Z%=�(playname$)
F � X%=1 � Z%
P T$=�playname$,X%,1)
Z Z1%=�(T$)
d Ȏ � �
n! � Z1%<48 :�playname$,X%)="?"
x* � Z1%>57 � Z1%<65 :�playname$,X%)="?"
�* � Z1%>90 � Z1%<97 :�playname$,X%)="?"
�" � Z1%>122 :�playname$,X%)="?"
� �
� �
� �
�:
� ��plot_username
�  � L%,length%,p$,l1%,l3%,l4%
� length%=�(playname$)
�/ � length%=0 � playname$="player":length%=6
�@ � length%>10 � p$=�playname$,10):Ȕ p$,playname$:length%=10
� �name_check
�) L%=length%*32:l1%=L% � 2:l2%=610-l1%
" �plot_text(l2%,426,playname$)
0 l3%=l2%-32:l4%=L%+64:�ridge(l3%,419,54,l4%)
 �
":
, ��drawstart
6# �0,42 Ȝ 0 :ȓ Ȑ 0,416,970,64
@$ �plot_text(30,426," COMPUTER ")
J �ridge(24,419,54,312)
T �r:�plot_username
^ �reset_graphics
h �
r:
| ��light(F)
� � A$,B$
� A$="GEMB":B$="GEMD"
� Ȏ F �
�A � 0 :� XD=1 � 5:ș&2E,290,sp,A$,745,516+(32*XD),0:�:liflag=0
�3 � 1 :ș&2E,290,sp,"GEMD",745,708-(liflag*32),0
�T � 2 :�X=1 � 10:ȔA$,B$:ș&2E,290,sp,A$,745,676-(32*4),0:I=�(10):�:liflag=0:kb=1
� �
�. liflag+=1:lives%-=1:� liflag>5 � liflag=0
� �
�:
� ��check
�& � word%=length% � gamerun%=0:�win
�" � lives%=1 � kb=0 � �lastlife
# � lives%<=0 � gamerun%=1:�lose
 �
:
& ��lttr(let$,ke)
0 � A%,kt
: found=0:let1$=let$+"l"
D � f=1 � length%
N A%=�select$,let$,f)
XS � A%>0 � f=A% � key%(ke)=0 � �displayletter(let1$,A%,0):word%+=1:wordform(f)=1
b �
l0 � found=0 � level=0 � �score(-1):�lights(1)
v0 � found=0 � level=1 � �score(-3):�lights(1)
� �
�:
� ��lastlife
� �sound("LASTLIFE",0)
�" �lights(2):lives%+=1:liflag=5
� �
�:
� ��game
� gamerun%=1:wordform()=0
�" lives%=6:kb=0:�reset_graphics
�
 �play
�# �slab(980,300,279,90,1,"play")
 �slab(40,300,900,100,1,"")
 �keypad
/ �chooseword:� adve%=0 � �dash � gamerun%=0
  ȕ gamerun%=1
* �:i=�(0):� i=-1
4 ș &15,21,0:ș&15,21,9
> mb%=0:keyp%=-1
H �:ș &06,202,%00000,0
R keyp%=�(0)
\  � keyp%=-1 � ȗ mx%,my%,mb%
f � mb%=4 � keyp%>-1
p7 � mb%=4 � �decode(mb%) � R$=�(keyp%):�keypress(R$)
z �check
� �
� �:i=�(0):� i=-1
�' �26:�slab(980,300,279,90,0,"play")
� �
�:
�
 ��advise
� � X%,Y%,Z%,A%
�- � 0,482:� 966,1023:ș&2E,270,sp,"tabk",0
� �24,0;484;964;1020;:�
�- �droptext(300,980,"Attention",3,255,2,0)
�> �droptext(10,900,"All words have been used.",48,192,32,0)
�. �droptext(20,840,"Either :-",48,192,32,0)
�@ �droptext(60,800,"� Click on reset to re-use ",48,192,32,0)
; �droptext(60,760,"  this Dictionary   or",48,192,32,0)
B �droptext(60,700,"� Click on 'OK' and use load ",48,192,32,0)
9 �droptext(60,660,"  from the main menu",48,192,32,0)
$; �slab(200,500,200,74,0,""):�plot_text(218,518,"RESET")
.< �slab(600,500,200,74,0,""):�plot_text(618,518,"   OK ")
8	 A%=0
B �4:�:�m:�
L �:ȗ mx%,my%,mb%:� mb%=4
Vx � �inbox(200,500,400,574):A%=1:�slab(200,500,200,74,1,""):�plot_text(218,518,"RESET"):adve%=0:usedword%=0:word%()=0
`c � �inbox(600,500,800,574):A%=1:�slab(600,500,200,74,1,""):�plot_text(618,518,"   OK "):adve%=1
j � A%>0
t I=�(30)
~ �26
�4 ș&2E,290,sp,"tabk",0,482,0:ș&2E,281,sp,"tabk"
� �
� :
�+ ��droptext(x,y,s$,col1%,t1%,col2%,t1%)
�	 �5:�
� �0,col2% Ȝ t2%
� � x,y:� s$
� �0,col1% Ȝ t1%
� � x+4,y-4:�s$
�	 �4:�
� �
�:
 ��surrender

 � X%,Y%,Z%,A%
- � 0,482:� 966,1023:ș&2E,270,sp,"tabk",0
 �24,0;484;964;1020;:�
(- �droptext(300,980,"Surrender",3,255,2,0)
28 �droptext(10,900,"You have scored the",48,192,32,0)
<6 �droptext(20,860,"maximum possible.",48,192,32,0)
F= �droptext(60,800,"� Click on quit to stop ",48,192,32,0)
P3 �droptext(60,760,"  playing   or",48,192,32,0)
Z@ �droptext(60,700,"� Click on 'play' to reset ",48,192,32,0)
d; �droptext(60,660,"  scores and continue ",48,192,32,0)
n: �slab(200,500,200,74,0,""):�plot_text(218,518,"Play")
x: �slab(600,500,200,74,0,""):�plot_text(618,518,"Quit")
�	 A%=0
� �4:�:�m:�
� �:ȗ mx%,my%,mb%:� mb%=4
�d � �inbox(200,500,400,574):A%=1:�slab(200,500,200,74,1,""):�plot_text(218,518,"play"):�score(0):
�s � �inbox(600,500,800,574):A%=1:�slab(600,500,200,74,1,""):�plot_text(618,518,"quit"):sur%=1:gamerun%=0:quit%=2
� � A%>0
� I=�(30):�26
�4 ș&2E,290,sp,"tabk",0,482,0:ș&2E,281,sp,"tabk"
� �
�:
�
 ��opt(x)
� Ȏ x �
�M � 1:ș&2E,290,sp,"tick",490,194,0:ș&2E,290,sp,"notick",943,194,0:sex%=1
M � 2:ș&2E,290,sp,"notick",490,194,0:ș&2E,290,sp,"tick",943,194,0:sex%=2
 �
 �
":
, ��title_appear
6 � T=1 � 2
@) � T=1 � et$="ARCWORLD" � et$="gloop"
J � L=0 � 132 � 2
T �24,180;812;1279;812+L;
^' ș&2E,290,sp,et$,180,(812-264)+L,0
h �24,180;812-L;1270;810;
r# ș&2E,290,sp,et$,180,(812-L),0
| A=�(2)
� �
�) � T=1 � �5:�26:� 538,630:�"Presents"
�" � T=1 � I=�(200):�close_title
� �
� ș &2E,281,sp,"ARCWORLD"
� �
�:
� ��close_title
� � t1%,t2%,t3%,
�& �0,0 Ȝ 0:t1%=536:t2%=598:t3%=792
� � X=1 � 256 � 2
�. � t1%,t2%,t1%,t2%+50:� t3%,t2%,t3%,t2%+50
� t1%+=1:t3%-=1:I=�(1)
 �
 � L=0 � 132 � 2
 � 24,180;812;1279;944-L;
&' ș&2E,290,sp,et$,180,(812-132)-L,0
0# � 24,180;(812-132)+L;1270;810;
:' ș&2E,290,sp,et$,180,(812-132)+L,0
D I=�(2)
N �
X �
b:
l ��draw_title
v
 �26:�5:�
�# ș&2E,290,sp,"GLOOP",180,680,0
�9 �0,63 Ȝ 255:� 608,670:�"By":� 482,630:�"J. Peachey"
� �0,56 Ȝ 0
�0 ȓ 356,452,510,60:� 366,496:�"Instructions"
�3 ȓ 356,372,510,60:� 366,416:�"Play at level 1"
�3 ȓ 356,292,510,60:� 366,336:�"Play at level 2"
�( ȓ 256,200,230,60:� 266,244:�"Male"
�* ȓ 709,200,230,60:� 719,244:�"Female"
� �opt(sex%)
�	 �4:�
� �
�:
� ��page
 � mx,my,mb
 page%=0
6 �5:�:�56 Ȝ 0:ȓ 300,160,230,60:ȓ 700,160,230,60
 , �0,15:�750,204:�"NEXT":�350,204:�"MENU"
* �4:�:�t
4 �:�:ȗ mx,my,mb:� mb=4
> Ȏ � �
H4 � mx>=300 � mx<=530 � my>=160 � my<=220:page%=1
R4 � mx>=700 � mx<=930 � my>=160 � my<=220:page%=2
\ �
f � page%>0
p �t
z �
�:
� ��t
� �:ȗmx%,my%,mb%:� mb%=0
� �
�:
� ��start
� �title_appear:�draw_title
� playstart%=0
� �:�:ȗ mx,my,mb:� mb=4
� Ȏ � �
�@ � mx>=357 � mx<=867 � my>=450 � my<=513:�inst:�:�draw_title
�A � mx>=357 � mx<=867 � my>=372 � my<=429:level=0:playstart%=1
�A � mx>=357 � mx<=867 � my>=290 � my<=348:level=1:playstart%=1
4 � mx>=500 � mx<=540 � my>=200 � my<=260:�opt(1)
4 � mx>=950 � mx<=990 � my>=200 � my<=260:�opt(2)
 �
$ � playstart%=1
.	 �4:�
8 �
B:
L ��inst
V
 �26:�
`8 � 56:�13,1);"Instructions":�12,2)"=============="
j � 15:�2,4);"How to play"
t4 � 56:�4,6);"On the main screen choose 'Play'."
~� �4,7);"The computer will choose a word and":�4,8);"display dashes on screen.":�4,10);"The round finishes with either you"
�| �4,11);"guessing all the letters or losing":�4,12);"all of your lives.":�4,14);"To have another go click on 'play'."
�� �4,17);"The game continues until you click":�4,18);"on 'QUIT' on the main menu.":�4,19);"The game is played using the mouse":�4,20);"with the left hand 'select' button."
� �page:�page%=1 � �
� �:�15:�1,1);"Level 1"
�� � 56::�2,3);"The easy level.You have :":�3,5);"� Five lives.":�3,6);"� Letters can only be selected once.":�3,7);"� Score 2 points for a correct guess.":�3,8);"� Score -1 point for a wrong guess."
� � 15:�1,10);"Level 2"
�q � 56:�2,12);"The hard level.You have :":�3,14);"� Three lives.":�3,15);"� You must remember the letters "
�Q �3,16);"  chosen. Letters can be selected":�3,17);"  any number of times."
�c �3,18);"� Score 4 points for a correct guess.":�3,19);"� Score -3 points for a wrong guess."
� �page:�page%=1 � �
� �:�15:�1,1);"Resign"
�n �56:�3,3);"Abandon the word when all hope is":�3,4);"lost.Avoid a dunking but lose 30":�3,5);"points."
 �15:�1,7);"Guess"

w � 56:�3,9);"Guess the word. Get it right for":�3,10);"a nice fat bonus. Get it wrong":�3,11);"and lose a life."
 �15:�1,13);"Sound"
V � 56:�3,15);"Control the volume of the sound":�3,16);"or simply switch it off."
( �page:�page%=1 � �
2 �:�15:�1,1);"Play"
<B �56:�3,3);"To select a new word and reset":�3,4);"the keys"
F �15:�1,6);"Load"
P� � 56:�3,8);"Load a new dictionary supplied":�3,9);"or one of your own creations.":�3,10);"Also used to reset the master"
Z� �3,11);"dictionary as each word will":�3,12);"appear only once per game.":�3,13);"Use select to load a file":�3,14);"Adjust/menu to abandon the"
d+ �3,15);"load and return to the game."
n �page:�page%=1 � �
x �:�15:�1,1);"Exit"
�D � 56:�3,3);"Quit the game and return to":�3,4);"the desktop."
� �15:�1,6);"Editor"
�t � 56:�3,8);"Use this simple editor to ":�3,9);"create your own dictionaries":�3,10);"They can be any length"
�g �3,11);"between 50 and 2000 words":�3,12);"Full on line help. See also":�3,13);"the help file."
� �15:�8,15);"End of help"
� �page:�page%=1 � �
� �
�:
� ��entername
� � tcount,A$
� �26
�5 �0:ȓ Ȑ271,338,735,132:�0,56:ȓ 275,342,727,124
�0 � 3 Ȝ 255:�9,18);"Please enter your name"

 tcount=0
 �9,20);">"
" �:A$=�:playname$=playname$+A$
"! tcount+=1:�11,20);playname$
, � A$=�(13) � tcount=12
6: � �playname$,1)=�(13)� playname$=�playname$,tcount-1)
@ �
J:
T ��init
^ � sp &19B00:!sp=&19B00
h sp!4=0:sp!8=16:sp!12=16
r' path$=�readvarval("Gloop$Dir")+"."
| spr$=path$+"SPRITES"
�! res$=path$+"RESOURCES.setup"
�# edit$=path$+"EDITOR.!RUNIMAGE"
� m_f$=path$+"RESOURCES."
� dict$=path$+"DICTS."
� ș&2E,266,sp,spr$
� ȗ �:�"POINTER":�
�4 � word$(2000),word%(2000),wordform(12),key%(26)
�! � name$(6),file$(8),recs%(8)
� � buff% &100
� � m=0 � 6
� � name$(m)
� �
� rub=�(-�)
  quit%=0:lives%=6:liflag=0
 9 score%=0:play%=0:gamerun%=0:sound%=1:vol%=-7:level=0
  adve%=0:sex%=1:guess%=0
 & ș&06,4,1
 0
 ș&06,18
 : ș&06,200,1,0
 D �
 N:
 X= � "PLAY","GUESS","RESIGN","SOUND","LOAD","EDITOR","EXIT"
 b:
 l ��load(sel)
 v � recs%(sel)=0 � �blank:�
 �I � sel>1 � v$=�(63+sel):name$=dict$+"User_"+v$ � name$=dict$+"MASTER"
 �, � sel>0 � count=recs%(sel) � count=2000
 � D%=�(name$)
 � � loop=1 � count
 � �#D%,word$(loop)
 � �
 �	 �#D%
 � word%()=0:usedword%=0
 � �
 �:
 � ��blank
 � � quit%:quit%=0
 �% �popwindow(260,610,774,888,"er")
!  �slab(270,620,494,258,0,"")
! ȗ ȓ280,632,476,238
!g �plot_text(420,825,"ERROR"):�plot_text(290,769,"  FILE BLANK"):�plot_text(290,727," LOAD ABORTED")
! * ș&2E,290,sp,"OKU",464,652,0:mb%=0:�m
!* �:ȗ mx%,my%,mb%
!4
 Ȏ mb% �
!> � 4 :Ȏ � �
!H& � �inbox(472,656,556,690):quit%=5
!R �
!\ �
!f � quit%=5
!p) ș&2E,290,sp,"OKD",464,652,0:I=�(12)
!z" �closewindow(260,610,"er"):�r
!� �
!�:
!�
 ��win
!� gamerun%=0
!�
 �port(1)
!� �
!�:
!� ��lose
!�	 � E%
!� E%=�(2)
!�= � E%=1 � �sound("PLAYLOSE",300) � �sound("YOU_LOSE",300)
!�
 �port(2)
!� �sound("WAS",0)
" �revealword
" gamerun%=0
" �
"$:
". ��reset_graphics
"B �24,0;484;963;1023;
"L# �:ș&2E,290,sp,"tank",70,530,0
"V" ș&2E,290,sp,"tank",500,530,0
"` �0,63 Ȝ 0
"j � 50,532,925,532
"t � 50,528,925,528
"~$ ȓ Ȑ 512,494,200,32:�lights(0)
"�& � level=1 � �lights(1):�lights(1)
"�# ș&2E,290,sp,"plung",744,532,0
"�# ș&2E,290,sp,"plung",320,532,0
"�" ș&2E,290,sp,"ARC",125,716,&8
"�" ș&2E,290,sp,"SEQ",536,716,&8
"� �26
"� �
"�:
"� ��lights(F)
"� � A$,B$
"� A$="GEMB":B$="GEMD"
# Ȏ F �
#
A � 0 :� XD=1 � 5:ș&2E,290,sp,A$,476+(40*XD),496,0:�:liflag=0
#3 � 1 :ș&2E,290,sp,"GEMD",716-(liflag*40),496,0
#T � 2 :�X=1 � 10:ȔA$,B$:ș&2E,290,sp,A$,716-(40*5),496,0:I=�(10):�:liflag=0:kb=1
#( �
#2. liflag+=1:lives%-=1:� liflag>5 � liflag=0
#< �
#F :
#P ��port(v)
#Z  � X%,Y%,sx%,sy%,flag%,A$,A%
#d Ȏ v �
#n  � 1 :sx%=300:sy%=612
#x  � 2 :sx%=724:sy%=612
#� �
#� Y%=sy%+121:X%=sx%+105
#� �sound("PORT1",0)
#� � G=1 � 2
#�# � G=1 � A$="BEAS" � A$="BEAS8"
#� �24,X%;Y%;X%;Y%;:flag%=0
#� �
#�# �24,X%;Y%-flag%;X%+1;Y%+flag%;
#� ș&2E,290,sp,A$,sx%,sy%,0
#� flag%+=1:R=�(1)
#� � flag%>150
#�	 A%=0
#� �
$' �24,X%-A%;Y%-flag%;X%+A%;Y%+flag%;
$ ș&2E,290,sp,A$,sx%,sy%,0
$
 A%+=1
$"
 � A%>150
$, �
$6 �26
$@ �pause:�down(sx%,sy%)
$J
 �fill(v)
$T �gunge(v)
$^ �
$h :
$r ��down(x%,y%)
$| �sound("KLAXON",0)
$� � X=0 � 20 � 2
$�# ș&2E,290,sp,"beas8",x%,y%-X,0
$� �
$� �
$� :
$� ��pause
$� �
$� �
$� :
$� ��fill(v)
$� � X%,Y%,X1%,X2%
$� Ȏ v �
$� � 1 :X%=121:X1%=238
% � 2 :X%=553:X1%=998
% �
% Y%=923:Y1%=998
%& �24,X%;Y%;X1%;Y1%;
%0 Y2%=Y%-10
%: � T=1 � 84
%D# ș&2E,290,sp,"tgunge",X%,Y2%+T
%N I=�(3)
%X �
%b �26
%l �
%v :
%� ��gunge(v)
%�, �px%,py%,top%,lc,left%,vx%,vy%,loop%,lc
%� Ȏ v �
%�p � 1 :px%=125:py%=716:top%=810:px1%=265:left%=54:spt$="ARC":ș&2E,283,sp,"Arc","glp":vx%=85:vy%=100:loop%=95
%�q � 2 :px%=536:py%=716:top%=840:px1%=697:left%=74:spt$="SEQ":ș&2E,283,sp,"seq","glp":vx%=25:vy%=150:loop%=130
%� �
%�# py1%=900:lc=2:lc1=0:�12 Ȝ 255
%� �24,px%;top%;px1%;py1%;
%� � V=py1%+15 � top%+8 �-2
%� ȏ Ȑ px%+left%,V,12
%�D � lc1=2 � �empty_tank(v,lc):�24,px%;top%;px1%;py1%;:lc+=1:lc1=0
%� I=�(4):lc1+=1
%� �
& :
&
 lc1=0
& � V=0 � loop%
&  ș&2E,316,sp,"glp"
&* � 0,vy%-V
&4 � X=0 � 160 � 20
&> �0,12 Ȝ 255
&H �X,(vy%-V)+750*(�X/vx%)
&R �
&\ A=�(2)
&f ș&2E,316,sp,0
&p" ș&2E,290,sp,"glp",px%,py%,&8
&z, � lc1=2 � �empty_tank(v,lc):lc+=1:lc1=0
&� lc1+=1
&� �
&� ș&2E,316,sp,0
&� �
&� �0,0 Ȝ 0
&� �24,px%;top%;px1%;py1%;
&� � V=py1%+15 � top%+10 �-2
&� ȏ Ȑ px%+left%,V,12
&� �
&� ș&2E,281,sp,"glp"
&�
 �1,0,0,0
&� �
' :
' ��empty_tank(v,emp%)
' � X%,Y%,X1%,X2%,vs%
'$ Ȏ v �
'. � 1 :X%=121:X1%=238:vs%=8
'8 � 2 :X%=553:X1%=998:vs%=2
'B �
'L Y%=923:Y1%=998
'V �24,X%;Y%;X1%;Y1%;
'`, ș&2E,290,sp,"tgunge",X%,(Y1%-vs%)-emp%
'j
 �26:�
't �
'~ :
'� ��sound(r$,time%)
'� � sound%=0 � �
'� �=0
'� �"CHANNELVOICE 1 "+r$
'� � 1,vol%,&2550,1
'� ȕ � <=time%
'� �
'� �
'�:
'� ��makeword(Q$)
'� � int%,int1%,dmy%
'� dmy%=�(Q$)
( int%=�(8):int%=0
(
& ș&2E,290,sp,"key_up",px%,py%,&08
( � �(input$)+1>length% � �
( � dmy%<65 � dmy%>90 � �
((7 input$=input$+Q$:int%=�(input$):int1%=length%-int%
(2. � int%>0 � internal$=input$+(�int1%,"-"))
(< guesscount%+=1
(F �
(P:
(Z
 ��dellet
(d � guess%=0 � �
(n � guesscount%=0 � �
(x � D%,E%
(�, D%=�(input$):E%=D%-1:input$=�input$,E%)
(� D%=length%-E%
(� internal$=input$+�D%,"-")
(� guesscount%-=1
(� �
�

00000000  0d 00 0a 11 20 f4 20 3e  21 52 55 4e 49 4d 41 47  |.... . >!RUNIMAG|
00000010  45 0d 00 14 0d 20 f4 20  21 47 4c 4f 4f 50 0d 00  |E.... . !GLOOP..|
00000020  1e 14 20 f4 20 a9 20 4a  20 48 20 50 45 41 43 48  |.. . . J H PEACH|
00000030  45 59 0d 00 28 13 20 f4  20 56 65 72 73 69 6f 6e  |EY..(. . Version|
00000040  20 31 2e 30 32 0d 00 32  0c 20 77 69 6d 70 25 3d  | 1.02..2. wimp%=|
00000050  eb 0d 00 3c 0b 20 eb 20  31 33 3a 87 0d 00 46 0a  |...<. . 13:...F.|
00000060  20 f2 69 6e 69 74 0d 00  50 16 20 f2 73 74 61 72  | .init..P. .star|
00000070  74 3a f2 65 6e 74 65 72  6e 61 6d 65 0d 00 5a 31  |t:.entername..Z1|
00000080  20 e7 20 73 65 78 25 3d  31 20 8c 20 72 76 24 3d  | . sex%=1 . rv$=|
00000090  6d 5f 66 24 2b 22 4d 41  4e 22 20 8b 20 72 76 24  |m_f$+"MAN" . rv$|
000000a0  3d 6d 5f 66 24 2b 22 57  4f 4d 41 4e 22 0d 00 64  |=m_f$+"WOMAN"..d|
000000b0  15 20 c8 99 26 32 45 2c  32 36 37 2c 73 70 2c 72  |. ..&2E,267,sp,r|
000000c0  76 24 0d 00 6e 1a 20 e7  20 6c 65 76 65 6c 3d 31  |v$..n. . level=1|
000000d0  20 8c 20 6c 69 76 65 73  25 2d 3d 32 0d 00 78 18  | . lives%-=2..x.|
000000e0  20 f2 72 65 61 64 73 65  74 75 70 3a f2 6c 6f 61  | .readsetup:.loa|
000000f0  64 28 31 29 0d 00 82 0f  20 f2 73 65 74 73 63 72  |d(1).... .setscr|
00000100  65 65 6e 0d 00 8c 0a 20  f2 6d 61 69 6e 0d 00 96  |een.... .main...|
00000110  18 20 ff 22 43 48 41 4e  4e 45 4c 56 4f 49 43 45  |. ."CHANNELVOICE|
00000120  20 31 20 31 22 0d 00 a0  0e 20 c8 99 26 30 36 2c  | 1 1".... ..&06,|
00000130  34 2c 30 0d 00 aa 12 20  c8 99 26 30 36 2c 32 30  |4,0.... ..&06,20|
00000140  30 2c 30 2c 30 0d 00 b4  1b 20 c8 99 22 57 69 6d  |0,0,0.... .."Wim|
00000150  70 5f 53 65 74 4d 6f 64  65 22 2c 77 69 6d 70 25  |p_SetMode",wimp%|
00000160  0d 00 be 1e 20 c8 99 22  57 69 6d 70 5f 43 6f 6d  |.... .."Wimp_Com|
00000170  6d 61 6e 64 57 69 6e 64  6f 77 22 2c 2d 31 0d 00  |mandWindow",-1..|
00000180  c8 06 20 e0 0d 00 d2 05  3a 0d 00 dc 15 20 dd a4  |.. .....:.... ..|
00000190  72 65 61 64 76 61 72 76  61 6c 28 76 24 29 0d 00  |readvarval(v$)..|
000001a0  e6 12 20 ea 20 76 25 2c  62 25 2c 75 25 2c 6e 25  |.. . v%,b%,u%,n%|
000001b0  0d 00 f0 15 20 de 20 76  25 20 31 30 30 20 2c 62  |.... . v% 100 ,b|
000001c0  25 20 31 30 30 0d 00 fa  0b 20 24 76 25 3d 76 24  |% 100.... $v%=v$|
000001d0  0d 01 04 2b 20 c8 99 22  4f 53 5f 52 65 61 64 56  |...+ .."OS_ReadV|
000001e0  61 72 56 61 6c 22 2c 76  25 2c 62 25 2c 36 30 2c  |arVal",v%,b%,60,|
000001f0  75 25 2c 33 20 b8 20 2c  2c 6e 25 0d 01 0e 10 20  |u%,3 . ,,n%.... |
00000200  3f 28 62 25 2b 6e 25 29  3d 31 33 0d 01 18 09 20  |?(b%+n%)=13.... |
00000210  3d 24 62 25 0d 01 22 05  3a 0d 01 2c 22 20 dd f2  |=$b%..".:..," ..|
00000220  73 6c 61 62 28 78 25 2c  79 25 2c 77 25 2c 68 25  |slab(x%,y%,w%,h%|
00000230  2c 6c 73 25 2c 74 65 78  74 24 29 0d 01 36 20 20  |,ls%,text$)..6  |
00000240  63 31 25 3d 36 33 3a 74  31 25 3d 30 3a 63 32 25  |c1%=63:t1%=0:c2%|
00000250  3d 34 32 3a 74 32 25 3d  31 32 38 0d 01 40 20 20  |=42:t2%=128..@  |
00000260  63 33 25 3d 32 31 3a 74  33 25 3d 30 3a 63 34 25  |c3%=21:t3%=0:c4%|
00000270  3d 32 31 3a 74 34 25 3d  31 32 38 0d 01 4a 39 20  |=21:t4%=128..J9 |
00000280  e7 20 6c 73 25 3d 31 20  8c 20 c8 94 20 63 31 25  |. ls%=1 . .. c1%|
00000290  2c 63 33 25 3a c8 94 74  31 25 2c 74 33 25 3a c8  |,c3%:..t1%,t3%:.|
000002a0  94 20 63 32 25 2c 63 34  25 3a c8 94 20 74 32 25  |. c2%,c4%:.. t2%|
000002b0  2c 74 34 25 0d 01 54 1b  20 e6 34 32 c8 9c 30 3a  |,t4%..T. .42..0:|
000002c0  c8 93 c8 90 78 25 2c 79  25 2c 77 25 2c 68 25 0d  |....x%,y%,w%,h%.|
000002d0  01 5e 36 20 e6 63 31 25  c8 9c 74 31 25 3a ec 78  |.^6 .c1%..t1%:.x|
000002e0  25 2c 79 25 2b 68 25 3a  ec 78 25 2b 38 2c 79 25  |%,y%+h%:.x%+8,y%|
000002f0  2b 68 25 2d 38 3a f0 38  35 2c 78 25 2b 77 25 2c  |+h%-8:.85,x%+w%,|
00000300  79 25 2b 68 25 0d 01 68  18 20 f0 38 35 2c 78 25  |y%+h%..h. .85,x%|
00000310  2b 77 25 2d 38 2c 79 25  2b 68 25 2d 38 0d 01 72  |+w%-8,y%+h%-8..r|
00000320  26 20 e6 63 32 25 c8 9c  74 32 25 3a ec 78 25 2c  |& .c2%..t2%:.x%,|
00000330  79 25 2b 68 25 3a ec 78  25 2b 38 2c 79 25 2b 68  |y%+h%:.x%+8,y%+h|
00000340  25 2d 38 0d 01 7c 1d 20  f0 38 35 2c 78 25 2c 79  |%-8..|. .85,x%,y|
00000350  25 3a f0 38 35 2c 78 25  2b 38 2c 79 25 2b 38 3a  |%:.85,x%+8,y%+8:|
00000360  0d 01 86 20 20 e6 63 33  25 c8 9c 74 33 25 3a ec  |...  .c3%..t3%:.|
00000370  78 25 2c 79 25 3a ec 78  25 2b 38 2c 79 25 2b 38  |x%,y%:.x%+8,y%+8|
00000380  0d 01 90 22 20 f0 38 35  2c 78 25 2b 77 25 2c 79  |..." .85,x%+w%,y|
00000390  25 3a f0 38 35 2c 78 25  2b 77 25 2d 38 2c 79 25  |%:.85,x%+w%-8,y%|
000003a0  2b 38 0d 01 9a 18 20 e6  63 34 25 c8 9c 74 34 25  |+8.... .c4%..t4%|
000003b0  3a ec 78 25 2b 77 25 2c  79 25 0d 01 a4 36 20 ec  |:.x%+w%,y%...6 .|
000003c0  78 25 2b 77 25 2d 38 2c  79 25 2b 38 3a f0 38 35  |x%+w%-8,y%+8:.85|
000003d0  2c 78 25 2b 77 25 2c 79  25 2b 68 25 3a f0 38 35  |,x%+w%,y%+h%:.85|
000003e0  2c 78 25 2b 77 25 2d 38  2c 79 25 2b 68 25 2d 38  |,x%+w%-8,y%+h%-8|
000003f0  0d 01 ae 31 20 e7 20 74  65 78 74 24 3c 3e 22 22  |...1 . text$<>""|
00000400  20 c8 99 26 32 45 2c 32  39 30 2c 73 70 2c 74 65  | ..&2E,290,sp,te|
00000410  78 74 24 2c 78 25 2b 31  34 2c 79 25 2b 31 34 2c  |xt$,x%+14,y%+14,|
00000420  30 0d 01 b8 06 20 e1 0d  01 c2 05 3a 0d 01 cc 10  |0.... .....:....|
00000430  20 dd f2 73 65 74 73 63  72 65 65 6e 0d 01 d6 35  | ..setscreen...5|
00000440  20 e6 34 32 20 c8 9c 20  30 3a c8 93 20 c8 90 20  | .42 .. 0:.. .. |
00000450  30 2c 32 38 30 2c 31 32  37 39 2c 31 34 30 3a c8  |0,280,1279,140:.|
00000460  93 20 c8 90 38 38 30 2c  30 2c 33 39 39 2c 33 30  |. ..880,0,399,30|
00000470  30 0d 01 e0 1a 20 c8 93  20 c8 90 20 39 36 30 2c  |0.... .. .. 960,|
00000480  33 30 30 2c 34 30 30 2c  37 34 30 0d 01 ea 15 20  |300,400,740.... |
00000490  c8 93 20 c8 90 30 2c 30  2c 38 38 34 2c 32 38 30  |.. ..0,0,884,280|
000004a0  0d 01 f4 3a 20 f2 73 6c  61 62 28 34 30 2c 33 30  |...: .slab(40,30|
000004b0  30 2c 39 30 30 2c 31 30  30 2c 31 2c 22 22 29 3a  |0,900,100,1,""):|
000004c0  f2 73 6c 61 62 28 39 30  30 2c 32 30 2c 33 35 39  |.slab(900,20,359|
000004d0  2c 32 36 30 2c 31 2c 22  22 29 0d 01 fe 0e 20 e3  |,260,1,"").... .|
000004e0  20 78 3d 30 20 b8 20 36  0d 02 08 2f 20 f2 73 6c  | x=0 . 6.../ .sl|
000004f0  61 62 28 39 38 30 2c 28  33 30 30 2b 28 31 30 30  |ab(980,(300+(100|
00000500  2a 78 29 29 2c 32 37 39  2c 39 30 2c 30 2c 6e 61  |*x)),279,90,0,na|
00000510  6d 65 24 28 78 29 29 0d  02 12 06 20 ed 0d 02 1c  |me$(x)).... ....|
00000520  21 20 c8 99 26 32 45 2c  32 39 30 2c 73 70 2c 22  |! ..&2E,290,sp,"|
00000530  73 63 6f 72 65 22 2c 39  38 38 2c 32 31 30 0d 02  |score",988,210..|
00000540  26 22 20 c8 99 26 32 45  2c 32 39 30 2c 73 70 2c  |&" ..&2E,290,sp,|
00000550  22 50 4c 41 59 45 44 22  2c 39 31 38 2c 31 35 30  |"PLAYED",918,150|
00000560  0d 02 30 21 20 c8 99 26  32 45 2c 32 39 30 2c 73  |..0! ..&2E,290,s|
00000570  70 2c 22 50 4f 49 4e 54  53 22 2c 39 31 38 2c 38  |p,"POINTS",918,8|
00000580  35 0d 02 3a 22 20 f2 6b  65 79 70 61 64 3a f2 72  |5..:" .keypad:.r|
00000590  69 64 67 65 28 36 30 2c  33 30 2c 32 35 32 2c 37  |idge(60,30,252,7|
000005a0  34 32 29 0d 02 44 14 20  f2 73 63 6f 72 65 28 30  |42)..D. .score(0|
000005b0  29 3a f2 70 6c 61 79 0d  02 4e 0f 20 f2 64 72 61  |):.play..N. .dra|
000005c0  77 73 74 61 72 74 0d 02  58 06 20 e1 0d 02 62 05  |wstart..X. ...b.|
000005d0  3a 0d 02 6c 10 20 dd f2  73 63 6f 72 65 28 73 63  |:..l. ..score(sc|
000005e0  29 0d 02 76 10 20 ea 20  73 63 6f 72 65 24 2c 72  |)..v. . score$,r|
000005f0  25 0d 02 80 28 20 73 63  31 24 3d 22 30 22 3a 73  |%...( sc1$="0":s|
00000600  63 32 24 3d 22 30 22 3a  73 63 33 24 3d 22 30 22  |c2$="0":sc3$="0"|
00000610  3a 73 63 34 24 3d 22 30  22 0d 02 8a 16 20 73 63  |:sc4$="0".... sc|
00000620  6f 72 65 25 2b 3d 73 63  3a 73 75 72 25 3d 30 0d  |ore%+=sc:sur%=0.|
00000630  02 94 1a 20 e7 20 73 63  6f 72 65 25 3c 30 20 8c  |... . score%<0 .|
00000640  20 73 63 6f 72 65 25 3d  30 0d 02 9e 22 20 73 63  | score%=0..." sc|
00000650  6f 72 65 24 3d c3 28 73  63 6f 72 65 25 29 3a 72  |ore$=.(score%):r|
00000660  25 3d a9 28 73 63 6f 72  65 24 29 0d 02 a8 2c 20  |%=.(score$)..., |
00000670  e7 20 73 63 6f 72 65 25  3e 39 39 39 39 20 8c 20  |. score%>9999 . |
00000680  f2 73 75 72 72 65 6e 64  65 72 3a e7 20 73 75 72  |.surrender:. sur|
00000690  25 3d 31 20 8c 20 e1 0d  02 b2 19 20 e7 20 72 25  |%=1 . ..... . r%|
000006a0  3c 32 20 8c 20 73 63 34  24 3d 73 63 6f 72 65 24  |<2 . sc4$=score$|
000006b0  0d 02 bc 32 20 e7 20 72  25 3d 32 20 8c 20 73 63  |...2 . r%=2 . sc|
000006c0  34 24 3d c1 73 63 6f 72  65 24 2c 72 25 2c 31 29  |4$=.score$,r%,1)|
000006d0  3a 73 63 33 24 3d c1 73  63 6f 72 65 24 2c 31 2c  |:sc3$=.score$,1,|
000006e0  31 29 0d 02 c6 44 20 e7  20 72 25 3d 33 20 8c 20  |1)...D . r%=3 . |
000006f0  73 63 34 24 3d c1 73 63  6f 72 65 24 2c 72 25 2c  |sc4$=.score$,r%,|
00000700  31 29 3a 73 63 33 24 3d  c1 73 63 6f 72 65 24 2c  |1):sc3$=.score$,|
00000710  32 2c 31 29 3a 73 63 32  24 3d c1 73 63 6f 72 65  |2,1):sc2$=.score|
00000720  24 2c 31 2c 31 29 0d 02  d0 56 20 e7 20 72 25 3d  |$,1,1)...V . r%=|
00000730  34 20 8c 20 73 63 34 24  3d c1 73 63 6f 72 65 24  |4 . sc4$=.score$|
00000740  2c 72 25 2c 31 29 3a 73  63 33 24 3d c1 73 63 6f  |,r%,1):sc3$=.sco|
00000750  72 65 24 2c 33 2c 31 29  3a 73 63 32 24 3d c1 73  |re$,3,1):sc2$=.s|
00000760  63 6f 72 65 24 2c 32 2c  31 29 3a 73 63 31 24 3d  |core$,2,1):sc1$=|
00000770  c1 73 63 6f 72 65 24 2c  31 2c 31 29 0d 02 da 20  |.score$,1,1)... |
00000780  20 c8 99 26 32 45 2c 32  39 30 2c 73 70 2c 73 63  | ..&2E,290,sp,sc|
00000790  31 24 2c 31 31 32 32 2c  38 33 2c 30 0d 02 e4 20  |1$,1122,83,0... |
000007a0  20 c8 99 26 32 45 2c 32  39 30 2c 73 70 2c 73 63  | ..&2E,290,sp,sc|
000007b0  32 24 2c 31 31 35 32 2c  38 33 2c 30 0d 02 ee 20  |2$,1152,83,0... |
000007c0  20 c8 99 26 32 45 2c 32  39 30 2c 73 70 2c 73 63  | ..&2E,290,sp,sc|
000007d0  33 24 2c 31 31 38 36 2c  38 33 2c 30 0d 02 f8 20  |3$,1186,83,0... |
000007e0  20 c8 99 26 32 45 2c 32  39 30 2c 73 70 2c 73 63  | ..&2E,290,sp,sc|
000007f0  34 24 2c 31 32 31 38 2c  38 33 2c 30 0d 03 02 06  |4$,1218,83,0....|
00000800  20 e1 0d 03 0c 05 3a 0d  03 16 0b 20 dd f2 70 6c  | .....:.... ..pl|
00000810  61 79 0d 03 20 0f 20 ea  20 70 6c 61 79 24 2c 72  |ay.. . . play$,r|
00000820  25 0d 03 2a 28 20 70 6c  31 24 3d 22 30 22 3a 70  |%..*( pl1$="0":p|
00000830  6c 32 24 3d 22 30 22 3a  70 6c 33 24 3d 22 30 22  |l2$="0":pl3$="0"|
00000840  3a 70 6c 34 24 3d 22 30  22 0d 03 34 1f 20 70 6c  |:pl4$="0"..4. pl|
00000850  61 79 24 3d c3 28 70 6c  61 79 25 29 3a 72 25 3d  |ay$=.(play%):r%=|
00000860  a9 28 70 6c 61 79 24 29  0d 03 3e 18 20 e7 20 72  |.(play$)..>. . r|
00000870  25 3c 32 20 8c 20 70 6c  34 24 3d 70 6c 61 79 24  |%<2 . pl4$=play$|
00000880  0d 03 48 30 20 e7 20 72  25 3d 32 20 8c 20 70 6c  |..H0 . r%=2 . pl|
00000890  34 24 3d c1 70 6c 61 79  24 2c 72 25 2c 31 29 3a  |4$=.play$,r%,1):|
000008a0  70 6c 33 24 3d c1 70 6c  61 79 24 2c 31 2c 31 29  |pl3$=.play$,1,1)|
000008b0  0d 03 52 41 20 e7 20 72  25 3d 33 20 8c 20 70 6c  |..RA . r%=3 . pl|
000008c0  34 24 3d c1 70 6c 61 79  24 2c 72 25 2c 31 29 3a  |4$=.play$,r%,1):|
000008d0  70 6c 33 24 3d c1 70 6c  61 79 24 2c 32 2c 31 29  |pl3$=.play$,2,1)|
000008e0  3a 70 6c 32 24 3d c1 70  6c 61 79 24 2c 31 2c 31  |:pl2$=.play$,1,1|
000008f0  29 0d 03 5c 52 20 e7 20  72 25 3d 34 20 8c 20 70  |)..\R . r%=4 . p|
00000900  6c 34 24 3d c1 70 6c 61  79 24 2c 72 25 2c 31 29  |l4$=.play$,r%,1)|
00000910  3a 70 6c 33 24 3d c1 70  6c 61 79 24 2c 33 2c 31  |:pl3$=.play$,3,1|
00000920  29 3a 70 6c 32 24 3d c1  70 6c 61 79 24 2c 32 2c  |):pl2$=.play$,2,|
00000930  31 29 3a 70 6c 31 24 3d  c1 70 6c 61 79 24 2c 31  |1):pl1$=.play$,1|
00000940  2c 31 29 0d 03 66 21 20  c8 99 26 32 45 2c 32 39  |,1)..f! ..&2E,29|
00000950  30 2c 73 70 2c 70 6c 31  24 2c 31 31 32 32 2c 31  |0,sp,pl1$,1122,1|
00000960  34 37 2c 30 0d 03 70 21  20 c8 99 26 32 45 2c 32  |47,0..p! ..&2E,2|
00000970  39 30 2c 73 70 2c 70 6c  32 24 2c 31 31 35 32 2c  |90,sp,pl2$,1152,|
00000980  31 34 37 2c 30 0d 03 7a  21 20 c8 99 26 32 45 2c  |147,0..z! ..&2E,|
00000990  32 39 30 2c 73 70 2c 70  6c 33 24 2c 31 31 38 36  |290,sp,pl3$,1186|
000009a0  2c 31 34 37 2c 30 0d 03  84 21 20 c8 99 26 32 45  |,147,0...! ..&2E|
000009b0  2c 32 39 30 2c 73 70 2c  70 6c 34 24 2c 31 32 31  |,290,sp,pl4$,121|
000009c0  38 2c 31 34 37 2c 30 0d  03 8e 0d 20 70 6c 61 79  |8,147,0.... play|
000009d0  25 2b 3d 31 0d 03 98 06  20 e1 0d 03 a2 05 3a 0d  |%+=1.... .....:.|
000009e0  03 ac 17 20 dd a4 69 6e  62 6f 78 28 78 2c 79 2c  |... ..inbox(x,y,|
000009f0  78 31 2c 79 31 29 0d 03  b6 25 20 3d 6d 78 25 3e  |x1,y1)...% =mx%>|
00000a00  78 20 80 20 6d 78 25 3c  78 31 20 80 20 6d 79 25  |x . mx%<x1 . my%|
00000a10  3e 79 20 80 20 6d 79 25  3c 79 31 0d 03 c0 05 3a  |>y . my%<y1....:|
00000a20  0d 03 ca 10 20 dd f2 73  6f 75 6e 64 63 6f 6e 74  |.... ..soundcont|
00000a30  0d 03 d4 14 20 ea 20 71  75 69 74 25 3a 71 75 69  |.... . quit%:qui|
00000a40  74 25 3d 30 0d 03 de 24  20 f2 73 6c 61 62 28 39  |t%=0...$ .slab(9|
00000a50  38 30 2c 36 30 30 2c 32  37 39 2c 39 30 2c 31 2c  |80,600,279,90,1,|
00000a60  22 53 4f 55 4e 44 22 29  0d 03 e8 25 20 f2 70 6f  |"SOUND")...% .po|
00000a70  70 77 69 6e 64 6f 77 28  32 36 30 2c 35 36 30 2c  |pwindow(260,560,|
00000a80  36 35 30 2c 38 38 38 2c  22 73 77 22 29 0d 03 f2  |650,888,"sw")...|
00000a90  20 20 f2 73 6c 61 62 28  32 37 30 2c 35 37 30 2c  |  .slab(270,570,|
00000aa0  33 36 34 2c 33 30 38 2c  30 2c 22 22 29 0d 03 fc  |364,308,0,"")...|
00000ab0  19 20 c8 97 20 c8 93 32  38 30 2c 35 38 32 2c 33  |. .. ..280,582,3|
00000ac0  34 36 2c 32 38 32 0d 04  06 3a 20 f2 70 6c 6f 74  |46,282...: .plot|
00000ad0  5f 74 65 78 74 28 33 37  30 2c 38 31 35 2c 22 53  |_text(370,815,"S|
00000ae0  4f 55 4e 44 22 29 3a f2  70 6c 6f 74 5f 74 65 78  |OUND"):.plot_tex|
00000af0  74 28 33 35 35 2c 37 35  39 2c 22 4f 46 46 22 29  |t(355,759,"OFF")|
00000b00  0d 04 10 3a 20 f2 70 6c  6f 74 5f 74 65 78 74 28  |...: .plot_text(|
00000b10  33 35 35 2c 36 39 35 2c  22 56 4f 4c 55 4d 45 22  |355,695,"VOLUME"|
00000b20  29 3a f2 70 6c 6f 74 5f  74 65 78 74 28 35 31 35  |):.plot_text(515|
00000b30  2c 37 35 39 2c 22 4f 4e  22 29 0d 04 1a 0f 20 f2  |,759,"ON").... .|
00000b40  74 6f 6e 6f 66 66 28 30  29 0d 04 24 40 20 c8 99  |tonoff(0)..$@ ..|
00000b50  26 32 45 2c 32 39 30 2c  73 70 2c 22 4f 4b 55 22  |&2E,290,sp,"OKU"|
00000b60  2c 34 30 38 2c 35 39 34  2c 30 3a c8 99 26 32 45  |,408,594,0:..&2E|
00000b70  2c 32 39 30 2c 73 70 2c  22 73 6c 69 64 65 22 2c  |,290,sp,"slide",|
00000b80  33 30 30 2c 36 35 34 2c  30 0d 04 2e 40 20 c8 99  |300,654,0...@ ..|
00000b90  20 26 32 45 2c 32 39 30  2c 73 70 2c 22 64 6f 77  | &2E,290,sp,"dow|
00000ba0  6e 22 2c 35 34 35 2c 36  35 35 2c 30 3a c8 99 20  |n",545,655,0:.. |
00000bb0  26 32 45 2c 32 39 30 2c  73 70 2c 22 75 70 22 2c  |&2E,290,sp,"up",|
00000bc0  35 38 35 2c 36 35 35 2c  30 0d 04 38 13 20 f2 73  |585,655,0..8. .s|
00000bd0  6e 64 62 61 73 65 3a 6d  62 25 3d 30 0d 04 42 15  |ndbase:mb%=0..B.|
00000be0  20 f5 3a c8 97 20 6d 78  25 2c 6d 79 25 2c 6d 62  | .:.. mx%,my%,mb|
00000bf0  25 0d 04 4c 0d 20 c8 8e  20 6d 62 25 20 ca 0d 04  |%..L. .. mb% ...|
00000c00  56 10 20 c9 20 34 20 3a  c8 8e 20 b9 20 ca 0d 04  |V. . 4 :.. . ...|
00000c10  60 29 20 c9 20 a4 69 6e  62 6f 78 28 33 31 32 2c  |`) . .inbox(312,|
00000c20  37 35 38 2c 33 33 38 2c  37 38 32 29 3a f2 74 6f  |758,338,782):.to|
00000c30  6e 6f 66 66 28 31 29 0d  04 6a 29 20 c9 20 a4 69  |noff(1)..j) . .i|
00000c40  6e 62 6f 78 28 34 37 30  2c 37 35 38 2c 35 30 32  |nbox(470,758,502|
00000c50  2c 37 38 32 29 3a f2 74  6f 6e 6f 66 66 28 31 29  |,782):.tonoff(1)|
00000c60  0d 04 74 2f 20 c9 20 a4  69 6e 62 6f 78 28 35 34  |..t/ . .inbox(54|
00000c70  34 2c 36 34 38 2c 35 37  34 2c 36 38 30 29 3a 76  |4,648,574,680):v|
00000c80  6f 6c 25 2b 3d 31 3a f2  73 6e 64 62 61 73 65 0d  |ol%+=1:.sndbase.|
00000c90  04 7e 2f 20 c9 20 a4 69  6e 62 6f 78 28 35 38 36  |.~/ . .inbox(586|
00000ca0  2c 36 34 38 2c 36 31 34  2c 36 38 30 29 3a 76 6f  |,648,614,680):vo|
00000cb0  6c 25 2d 3d 31 3a f2 73  6e 64 62 61 73 65 0d 04  |l%-=1:.sndbase..|
00000cc0  88 26 20 c9 20 a4 69 6e  62 6f 78 28 34 31 36 2c  |.& . .inbox(416,|
00000cd0  35 39 38 2c 35 30 30 2c  36 33 32 29 3a 71 75 69  |598,500,632):qui|
00000ce0  74 25 3d 35 0d 04 92 06  20 cb 0d 04 9c 06 20 cb  |t%=5.... ..... .|
00000cf0  0d 04 a6 0e 20 fd 20 71  75 69 74 25 3d 35 0d 04  |.... . quit%=5..|
00000d00  b0 29 20 c8 99 26 32 45  2c 32 39 30 2c 73 70 2c  |.) ..&2E,290,sp,|
00000d10  22 4f 4b 44 22 2c 34 30  38 2c 35 39 34 2c 30 3a  |"OKD",408,594,0:|
00000d20  49 3d a6 28 31 32 29 0d  04 ba 1f 20 f2 63 6c 6f  |I=.(12).... .clo|
00000d30  73 65 77 69 6e 64 6f 77  28 32 36 30 2c 35 36 30  |sewindow(260,560|
00000d40  2c 22 73 77 22 29 0d 04  c4 24 20 f2 73 6c 61 62  |,"sw")...$ .slab|
00000d50  28 39 38 30 2c 36 30 30  2c 32 37 39 2c 39 30 2c  |(980,600,279,90,|
00000d60  30 2c 22 53 4f 55 4e 44  22 29 0d 04 ce 0c 20 ef  |0,"SOUND").... .|
00000d70  34 3a 87 3a f2 72 0d 04  d8 06 20 e1 0d 04 e2 05  |4:.:.r.... .....|
00000d80  3a 0d 04 ec 0e 20 dd f2  73 6e 64 62 61 73 65 0d  |:.... ..sndbase.|
00000d90  04 f6 0c 20 ea 62 25 2c  76 6c 25 0d 05 00 17 20  |... .b%,vl%.... |
00000da0  e7 20 76 6f 6c 25 3e 3d  30 20 8c 20 76 6f 6c 25  |. vol%>=0 . vol%|
00000db0  3d 30 0d 05 0a 1b 20 e7  20 76 6f 6c 25 3c 3d 2d  |=0.... . vol%<=-|
00000dc0  31 35 20 8c 20 76 6f 6c  25 3d 2d 31 35 0d 05 14  |15 . vol%=-15...|
00000dd0  26 20 76 6c 25 3d 94 28  76 6f 6c 25 29 3a 62 61  |& vl%=.(vol%):ba|
00000de0  73 65 25 3d 33 31 32 3a  62 25 3d 28 31 33 2a 76  |se%=312:b%=(13*v|
00000df0  6c 25 29 0d 05 1e 23 20  c8 99 26 32 45 2c 32 39  |l%)...# ..&2E,29|
00000e00  30 2c 73 70 2c 22 73 6c  69 64 65 22 2c 33 30 30  |0,sp,"slide",300|
00000e10  2c 36 35 34 2c 30 0d 05  28 0e 20 e6 31 32 20 c8  |,654,0..(. .12 .|
00000e20  9c 20 36 34 0d 05 32 17  20 c8 93 20 c8 90 20 33  |. 64..2. .. .. 3|
00000e30  31 32 2c 36 36 34 2c 62  25 2c 38 0d 05 3c 0c 20  |12,664,b%,8..<. |
00000e40  49 3d a6 28 31 36 29 0d  05 46 06 20 e1 0d 05 50  |I=.(16)..F. ...P|
00000e50  05 3a 0d 05 5a 10 20 dd  f2 74 6f 6e 6f 66 66 28  |.:..Z. ..tonoff(|
00000e60  74 29 0d 05 64 4a 20 e7  20 73 6f 75 6e 64 25 3d  |t)..dJ . sound%=|
00000e70  30 3a c8 99 26 32 45 2c  32 39 30 2c 73 70 2c 22  |0:..&2E,290,sp,"|
00000e80  52 4f 46 46 22 2c 34 36  30 2c 37 35 30 2c 30 3a  |ROFF",460,750,0:|
00000e90  c8 99 26 32 45 2c 32 39  30 2c 73 70 2c 22 52 4f  |..&2E,290,sp,"RO|
00000ea0  4e 22 2c 33 30 30 2c 37  35 30 2c 30 0d 05 6e 4a  |N",300,750,0..nJ|
00000eb0  20 e7 20 73 6f 75 6e 64  25 3d 31 3a c8 99 26 32  | . sound%=1:..&2|
00000ec0  45 2c 32 39 30 2c 73 70  2c 22 52 4f 4e 22 2c 34  |E,290,sp,"RON",4|
00000ed0  36 30 2c 37 35 30 2c 30  3a c8 99 26 32 45 2c 32  |60,750,0:..&2E,2|
00000ee0  39 30 2c 73 70 2c 22 52  4f 46 46 22 2c 33 30 30  |90,sp,"ROFF",300|
00000ef0  2c 37 35 30 2c 30 0d 05  78 11 20 e7 20 74 3d 31  |,750,0..x. . t=1|
00000f00  20 8c 20 f2 76 6d 63 0d  05 82 07 20 f2 6d 0d 05  | . .vmc.... .m..|
00000f10  8c 06 20 e1 0d 05 96 05  3a 0d 05 a0 0a 20 dd f2  |.. .....:.... ..|
00000f20  76 6d 63 0d 05 aa 25 20  e7 20 73 6f 75 6e 64 25  |vmc...% . sound%|
00000f30  3d 31 20 8c 20 73 6f 75  6e 64 25 3d 30 20 8b 20  |=1 . sound%=0 . |
00000f40  73 6f 75 6e 64 25 3d 31  0d 05 b4 0f 20 f2 74 6f  |sound%=1.... .to|
00000f50  6e 6f 66 66 28 30 29 0d  05 be 06 20 e1 0d 05 c8  |noff(0).... ....|
00000f60  05 3a 0d 05 d2 08 20 dd  f2 6d 0d 05 dc 23 20 f5  |.:.... ..m...# .|
00000f70  3a c8 97 20 58 2c 59 2c  5a 3a fd 20 5a 3d 30 3a  |:.. X,Y,Z:. Z=0:|
00000f80  c8 99 20 26 30 36 2c 32  31 2c 39 3a e1 0d 05 e6  |.. &06,21,9:....|
00000f90  05 3a 0d 05 f0 08 20 dd  f2 72 0d 05 fa 1f 20 c8  |.:.... ..r.... .|
00000fa0  97 20 c8 93 20 30 2c 30  2c 31 32 37 39 2c 31 30  |. .. 0,0,1279,10|
00000fb0  32 33 3a ef 20 32 36 3a  e1 0d 06 04 05 3a 0d 06  |23:. 26:.....:..|
00000fc0  0e 0b 20 dd f2 65 78 69  74 0d 06 18 23 20 f2 73  |.. ..exit...# .s|
00000fd0  6c 61 62 28 39 38 30 2c  39 30 30 2c 32 37 39 2c  |lab(980,900,279,|
00000fe0  39 30 2c 31 2c 22 45 58  49 54 22 29 0d 06 22 25  |90,1,"EXIT").."%|
00000ff0  20 f2 70 6f 70 77 69 6e  64 6f 77 28 32 36 30 2c  | .popwindow(260,|
00001000  36 31 30 2c 37 37 34 2c  38 38 38 2c 22 65 78 22  |610,774,888,"ex"|
00001010  29 0d 06 2c 20 20 f2 73  6c 61 62 28 32 37 30 2c  |)..,  .slab(270,|
00001020  36 32 30 2c 34 39 34 2c  32 35 38 2c 30 2c 22 22  |620,494,258,0,""|
00001030  29 0d 06 36 19 20 c8 97  20 c8 93 32 38 30 2c 36  |)..6. .. ..280,6|
00001040  33 32 2c 34 37 36 2c 32  33 38 0d 06 40 43 20 f2  |32,476,238..@C .|
00001050  70 6c 6f 74 5f 74 65 78  74 28 34 33 30 2c 38 32  |plot_text(430,82|
00001060  35 2c 22 51 55 49 54 22  29 3a f2 70 6c 6f 74 5f  |5,"QUIT"):.plot_|
00001070  74 65 78 74 28 32 39 30  2c 37 35 39 2c 22 41 52  |text(290,759,"AR|
00001080  45 20 59 4f 55 20 53 55  52 45 3f 22 29 0d 06 4a  |E YOU SURE?")..J|
00001090  40 20 c8 99 26 32 45 2c  32 39 30 2c 73 70 2c 22  |@ ..&2E,290,sp,"|
000010a0  6f 6b 75 22 2c 33 34 30  2c 36 34 38 2c 30 3a c8  |oku",340,648,0:.|
000010b0  99 26 32 45 2c 32 39 30  2c 73 70 2c 22 43 61 6e  |.&2E,290,sp,"Can|
000010c0  63 75 22 2c 35 31 30 2c  36 34 38 2c 30 0d 06 54  |cu",510,648,0..T|
000010d0  0a 20 f2 6d 69 6e 3a 0d  06 5e 1a 20 e7 20 72 65  |. .min:..^. . re|
000010e0  74 75 72 6e 25 3d 31 20  8c 20 71 75 69 74 25 3d  |turn%=1 . quit%=|
000010f0  32 0d 06 68 41 20 f2 63  6c 6f 73 65 77 69 6e 64  |2..hA .closewind|
00001100  6f 77 28 32 36 30 2c 36  31 30 2c 22 65 78 22 29  |ow(260,610,"ex")|
00001110  3a f2 73 6c 61 62 28 39  38 30 2c 39 30 30 2c 32  |:.slab(980,900,2|
00001120  37 39 2c 39 30 2c 30 2c  22 45 58 49 54 22 29 3a  |79,90,0,"EXIT"):|
00001130  f2 72 0d 06 72 06 20 e1  0d 06 7c 05 3a 0d 06 86  |.r..r. ...|.:...|
00001140  0a 20 dd f2 6d 69 6e 0d  06 90 1a 20 ea 20 72 65  |. ..min.... . re|
00001150  74 3a 72 65 74 3d 30 3a  72 65 74 75 72 6e 25 3d  |t:ret=0:return%=|
00001160  30 0d 06 9a 0e 20 ef 34  3a 87 3a f2 6d 3a f5 0d  |0.... .4:.:.m:..|
00001170  06 a4 1d 20 f5 3a c8 97  20 6d 78 25 2c 6d 79 25  |... .:.. mx%,my%|
00001180  2c 6d 62 25 3a fd 20 6d  62 25 3d 34 0d 06 ae 49  |,mb%:. mb%=4...I|
00001190  20 e7 20 a4 69 6e 62 6f  78 28 33 35 30 2c 36 35  | . .inbox(350,65|
000011a0  32 2c 34 33 30 2c 36 39  30 29 3a 72 65 74 75 72  |2,430,690):retur|
000011b0  6e 25 3d 31 3a 72 65 74  3d 31 3a c8 99 26 32 45  |n%=1:ret=1:..&2E|
000011c0  2c 32 39 30 2c 73 70 2c  22 6f 6b 64 22 2c 33 34  |,290,sp,"okd",34|
000011d0  30 2c 36 34 38 0d 06 b8  4b 20 e7 20 a4 69 6e 62  |0,648...K . .inb|
000011e0  6f 78 28 35 31 38 2c 36  35 32 2c 36 38 30 2c 36  |ox(518,652,680,6|
000011f0  39 30 29 3a 72 65 74 75  72 6e 25 3d 30 3a 72 65  |90):return%=0:re|
00001200  74 3d 31 3a c8 99 26 32  45 2c 32 39 30 2c 73 70  |t=1:..&2E,290,sp|
00001210  2c 22 63 61 6e 63 64 22  2c 35 31 30 2c 36 34 38  |,"cancd",510,648|
00001220  0d 06 c2 0c 20 fd 20 72  65 74 3d 31 0d 06 cc 0c  |.... . ret=1....|
00001230  20 49 3d a6 28 31 30 29  0d 06 d6 06 20 e1 0d 06  | I=.(10).... ...|
00001240  e0 05 3a 0d 06 ea 0d 20  dd f2 65 64 69 74 6f 72  |..:.... ..editor|
00001250  0d 06 f4 25 20 f2 73 6c  61 62 28 39 38 30 2c 38  |...% .slab(980,8|
00001260  30 30 2c 32 37 39 2c 39  30 2c 31 2c 22 45 44 49  |00,279,90,1,"EDI|
00001270  54 4f 52 22 29 0d 06 fe  25 20 f2 70 6f 70 77 69  |TOR")...% .popwi|
00001280  6e 64 6f 77 28 32 36 30  2c 36 31 30 2c 37 37 34  |ndow(260,610,774|
00001290  2c 38 38 38 2c 22 65 64  22 29 0d 07 08 20 20 f2  |,888,"ed")...  .|
000012a0  73 6c 61 62 28 32 37 30  2c 36 32 30 2c 34 39 34  |slab(270,620,494|
000012b0  2c 32 35 38 2c 30 2c 22  22 29 0d 07 12 19 20 c8  |,258,0,"").... .|
000012c0  97 20 c8 93 32 38 30 2c  36 33 32 2c 34 37 36 2c  |. ..280,632,476,|
000012d0  32 33 38 0d 07 1c 21 20  f2 70 6c 6f 74 5f 74 65  |238...! .plot_te|
000012e0  78 74 28 34 32 30 2c 38  31 35 2c 22 45 44 49 54  |xt(420,815,"EDIT|
000012f0  4f 52 22 29 0d 07 26 28  20 f2 70 6c 6f 74 5f 74  |OR")..&( .plot_t|
00001300  65 78 74 28 32 39 30 2c  37 34 35 2c 22 47 4f 20  |ext(290,745,"GO |
00001310  54 4f 20 45 44 49 54 4f  52 3f 22 29 0d 07 30 40  |TO EDITOR?")..0@|
00001320  20 c8 99 26 32 45 2c 32  39 30 2c 73 70 2c 22 6f  | ..&2E,290,sp,"o|
00001330  6b 75 22 2c 33 34 30 2c  36 34 38 2c 30 3a c8 99  |ku",340,648,0:..|
00001340  26 32 45 2c 32 39 30 2c  73 70 2c 22 43 61 6e 63  |&2E,290,sp,"Canc|
00001350  75 22 2c 35 31 30 2c 36  34 38 2c 30 0d 07 3a 09  |u",510,648,0..:.|
00001360  20 f2 6d 69 6e 0d 07 44  20 20 e7 20 72 65 74 75  | .min..D  . retu|
00001370  72 6e 25 3d 31 20 8c 20  ff 22 52 55 4e 20 22 2b  |rn%=1 . ."RUN "+|
00001380  65 64 69 74 24 0d 07 4e  43 20 f2 63 6c 6f 73 65  |edit$..NC .close|
00001390  77 69 6e 64 6f 77 28 32  36 30 2c 36 31 30 2c 22  |window(260,610,"|
000013a0  65 64 22 29 3a f2 73 6c  61 62 28 39 38 30 2c 38  |ed"):.slab(980,8|
000013b0  30 30 2c 32 37 39 2c 39  30 2c 30 2c 22 45 44 49  |00,279,90,0,"EDI|
000013c0  54 4f 52 22 29 3a f2 72  0d 07 58 06 20 e1 0d 07  |TOR"):.r..X. ...|
000013d0  62 05 3a 0d 07 6c 10 20  dd f2 72 65 61 64 73 65  |b.:..l. ..readse|
000013e0  74 75 70 0d 07 76 0e 20  46 25 3d 8e 20 72 65 73  |tup..v. F%=. res|
000013f0  24 0d 07 80 0e 20 e3 20  64 3d 31 20 b8 20 39 0d  |$.... . d=1 . 9.|
00001400  07 8a 10 20 e8 23 46 25  2c 77 61 73 74 65 24 0d  |... .#F%,waste$.|
00001410  07 94 06 20 ed 0d 07 9e  0e 20 e3 20 65 3d 31 20  |... ..... . e=1 |
00001420  b8 20 38 0d 07 a8 1b 20  e8 23 46 25 2c 66 69 6c  |. 8.... .#F%,fil|
00001430  65 24 28 65 29 2c 72 65  63 73 25 28 65 29 0d 07  |e$(e),recs%(e)..|
00001440  b2 06 20 ed 0d 07 bc 0a  20 d9 20 23 46 25 0d 07  |.. ..... . #F%..|
00001450  c6 21 20 66 69 6c 65 24  28 31 29 3d 22 4d 41 53  |.! file$(1)="MAS|
00001460  54 45 52 20 44 49 43 54  49 4f 4e 41 52 59 22 0d  |TER DICTIONARY".|
00001470  07 d0 06 20 e1 0d 07 da  05 3a 0d 07 e4 0b 20 dd  |... .....:.... .|
00001480  f2 67 72 69 64 0d 07 ee  23 20 f2 73 6c 61 62 28  |.grid...# .slab(|
00001490  39 38 30 2c 37 30 30 2c  32 37 39 2c 39 30 2c 31  |980,700,279,90,1|
000014a0  2c 22 4c 4f 41 44 22 29  0d 07 f8 26 20 f2 70 6f  |,"LOAD")...& .po|
000014b0  70 77 69 6e 64 6f 77 28  31 31 35 2c 34 32 39 2c  |pwindow(115,429,|
000014c0  38 37 38 2c 31 30 30 38  2c 22 6c 64 22 29 0d 08  |878,1008,"ld")..|
000014d0  02 20 20 f2 73 6c 61 62  28 31 32 35 2c 34 33 39  |.  .slab(125,439|
000014e0  2c 37 34 34 2c 35 36 32  2c 30 2c 22 22 29 0d 08  |,744,562,0,"")..|
000014f0  0c 1a 20 c8 97 20 c8 93  20 31 34 32 2c 34 35 36  |.. .. .. 142,456|
00001500  2c 37 31 30 2c 35 33 34  0d 08 16 11 20 e6 20 63  |,710,534.... . c|
00001510  33 25 20 c8 9c 20 74 33  25 0d 08 20 17 20 e3 20  |3% .. t3%.. . . |
00001520  58 3d 34 36 34 20 b8 20  39 37 32 20 88 20 36 34  |X=464 . 972 . 64|
00001530  0d 08 2a 14 20 c8 93 20  31 35 30 2c 58 2c 36 39  |..*. .. 150,X,69|
00001540  30 2c 36 34 0d 08 34 06  20 ed 0d 08 3e 1e 20 fb  |0,64..4. ...>. .|
00001550  20 33 34 20 c8 9c 20 31  39 32 3a fb 20 34 32 2b  | 34 .. 192:. 42+|
00001560  31 32 38 20 c8 9c 20 30  0d 08 48 0e 20 e3 20 54  |128 .. 0..H. . T|
00001570  3d 31 20 b8 20 38 0d 08  52 18 20 f1 8a 35 2c 28  |=1 . 8..R. ..5,(|
00001580  32 2a 54 29 29 3b 66 69  6c 65 24 28 54 29 0d 08  |2*T));file$(T)..|
00001590  5c 06 20 ed 0d 08 66 06  20 e1 0d 08 70 05 3a 0d  |\. ...f. ...p.:.|
000015a0  08 7a 0f 20 dd f2 68 6c  67 68 74 28 67 29 0d 08  |.z. ..hlght(g)..|
000015b0  84 12 20 e7 20 67 3d 6f  6c 64 68 69 67 68 20 e1  |.. . g=oldhigh .|
000015c0  0d 08 8e 5b 20 e6 63 33  25 20 c8 9c 20 74 33 25  |...[ .c3% .. t3%|
000015d0  3a c8 93 20 31 35 30 2c  39 37 36 2d 28 6f 6c 64  |:.. 150,976-(old|
000015e0  68 69 67 68 2a 36 34 29  2c 36 39 30 2c 36 34 3a  |high*64),690,64:|
000015f0  fb 20 33 34 20 c8 9c 20  31 39 32 3a f1 8a 35 2c  |. 34 .. 192:..5,|
00001600  28 32 2a 6f 6c 64 68 69  67 68 29 29 3b 66 69 6c  |(2*oldhigh));fil|
00001610  65 24 28 6f 6c 64 68 69  67 68 29 0d 08 98 43 20  |e$(oldhigh)...C |
00001620  e6 36 33 20 c8 9c 20 30  3a c8 93 20 31 35 30 2c  |.63 .. 0:.. 150,|
00001630  39 37 36 2d 28 67 2a 36  34 29 2c 36 39 30 2c 36  |976-(g*64),690,6|
00001640  34 3a fb 36 33 20 c8 9c  20 30 3a f1 8a 35 2c 28  |4:.63 .. 0:..5,(|
00001650  32 2a 67 29 29 3b 66 69  6c 65 24 28 67 29 0d 08  |2*g));file$(g)..|
00001660  a2 0e 20 6f 6c 64 68 69  67 68 3d 67 0d 08 ac 06  |.. oldhigh=g....|
00001670  20 e1 0d 08 b6 05 3a 0d  08 c0 0d 20 dd f2 6c 64  | .....:.... ..ld|
00001680  63 6f 6e 74 0d 08 ca 1b  20 6f 6c 64 68 69 67 68  |cont.... oldhigh|
00001690  3d 31 3a f2 68 6c 67 68  74 28 33 29 3a f2 6d 0d  |=1:.hlght(3):.m.|
000016a0  08 d4 15 20 f5 3a c8 97  20 6d 78 25 2c 6d 79 25  |... .:.. mx%,my%|
000016b0  2c 6d 62 25 0d 08 de 0d  20 c8 8e 20 6d 62 25 20  |,mb%.... .. mb% |
000016c0  ca 0d 08 e8 14 20 c9 20  30 2c 31 2c 34 20 3a c8  |..... . 0,1,4 :.|
000016d0  8e 20 b9 20 ca 0d 08 f2  2e 20 c9 20 a4 69 6e 62  |. . ..... . .inb|
000016e0  6f 78 28 31 35 30 2c 39  31 34 2c 38 34 30 2c 39  |ox(150,914,840,9|
000016f0  37 36 29 3a f2 68 6c 67  68 74 28 31 29 3a 73 65  |76):.hlght(1):se|
00001700  6c 3d 31 0d 08 fc 2e 20  c9 20 a4 69 6e 62 6f 78  |l=1.... . .inbox|
00001710  28 31 35 30 2c 38 35 30  2c 38 34 30 2c 39 31 34  |(150,850,840,914|
00001720  29 3a f2 68 6c 67 68 74  28 32 29 3a 73 65 6c 3d  |):.hlght(2):sel=|
00001730  32 0d 09 06 2e 20 c9 20  a4 69 6e 62 6f 78 28 31  |2.... . .inbox(1|
00001740  35 30 2c 37 38 36 2c 38  34 30 2c 38 35 30 29 3a  |50,786,840,850):|
00001750  f2 68 6c 67 68 74 28 33  29 3a 73 65 6c 3d 33 0d  |.hlght(3):sel=3.|
00001760  09 10 2e 20 c9 20 a4 69  6e 62 6f 78 28 31 35 30  |... . .inbox(150|
00001770  2c 37 32 32 2c 38 34 30  2c 37 38 36 29 3a f2 68  |,722,840,786):.h|
00001780  6c 67 68 74 28 34 29 3a  73 65 6c 3d 34 0d 09 1a  |lght(4):sel=4...|
00001790  2e 20 c9 20 a4 69 6e 62  6f 78 28 31 35 30 2c 36  |. . .inbox(150,6|
000017a0  35 38 2c 38 34 30 2c 37  32 32 29 3a f2 68 6c 67  |58,840,722):.hlg|
000017b0  68 74 28 35 29 3a 73 65  6c 3d 35 0d 09 24 2e 20  |ht(5):sel=5..$. |
000017c0  c9 20 a4 69 6e 62 6f 78  28 31 35 30 2c 35 39 34  |. .inbox(150,594|
000017d0  2c 38 34 30 2c 36 35 38  29 3a f2 68 6c 67 68 74  |,840,658):.hlght|
000017e0  28 36 29 3a 73 65 6c 3d  36 0d 09 2e 2e 20 c9 20  |(6):sel=6.... . |
000017f0  a4 69 6e 62 6f 78 28 31  35 30 2c 35 33 30 2c 38  |.inbox(150,530,8|
00001800  34 30 2c 35 39 34 29 3a  f2 68 6c 67 68 74 28 37  |40,594):.hlght(7|
00001810  29 3a 73 65 6c 3d 37 0d  09 38 2e 20 c9 20 a4 69  |):sel=7..8. . .i|
00001820  6e 62 6f 78 28 31 35 30  2c 34 36 36 2c 38 34 30  |nbox(150,466,840|
00001830  2c 35 33 30 29 3a f2 68  6c 67 68 74 28 38 29 3a  |,530):.hlght(8):|
00001840  73 65 6c 3d 38 0d 09 42  06 20 cb 0d 09 4c 06 20  |sel=8..B. ...L. |
00001850  cb 0d 09 56 0c 20 fd 20  6d 62 25 3e 30 0d 09 60  |...V. . mb%>0..`|
00001860  06 20 e1 0d 09 6a 05 3a  0d 09 74 0d 20 dd f2 6c  |. ...j.:..t. ..l|
00001870  6f 61 64 65 72 0d 09 7e  12 20 f2 67 72 69 64 3a  |oader..~. .grid:|
00001880  f2 6c 64 63 6f 6e 74 0d  09 88 17 20 e7 20 6d 62  |.ldcont.... . mb|
00001890  25 3d 34 3a f2 6c 6f 61  64 28 73 65 6c 29 0d 09  |%=4:.load(sel)..|
000018a0  92 1f 20 f2 63 6c 6f 73  65 77 69 6e 64 6f 77 28  |.. .closewindow(|
000018b0  31 31 35 2c 34 32 39 2c  22 6c 64 22 29 0d 09 9c  |115,429,"ld")...|
000018c0  26 20 f2 73 6c 61 62 28  39 38 30 2c 37 30 30 2c  |& .slab(980,700,|
000018d0  32 37 39 2c 39 30 2c 30  2c 22 6c 6f 61 64 22 29  |279,90,0,"load")|
000018e0  3a f2 72 0d 09 a6 06 20  e1 0d 09 b0 05 3a 0d 09  |:.r.... .....:..|
000018f0  ba 27 20 dd f2 70 6f 70  77 69 6e 64 6f 77 28 71  |.' ..popwindow(q|
00001900  61 25 2c 71 62 25 2c 71  63 25 2c 71 64 25 2c 74  |a%,qb%,qc%,qd%,t|
00001910  65 6d 70 24 29 0d 09 c4  08 20 ef 32 36 0d 09 ce  |emp$).... .26...|
00001920  2b 20 ec 71 61 25 2c 71  62 25 3a ec 71 63 25 2c  |+ .qa%,qb%:.qc%,|
00001930  71 64 25 3a c8 99 26 32  45 2c 32 37 30 2c 73 70  |qd%:..&2E,270,sp|
00001940  2c 74 65 6d 70 24 2c 30  0d 09 d8 06 20 e1 0d 09  |,temp$,0.... ...|
00001950  e2 05 3a 0d 09 ec 21 20  dd f2 63 6c 6f 73 65 77  |..:...! ..closew|
00001960  69 6e 64 6f 77 28 71 61  25 2c 71 62 25 2c 74 65  |indow(qa%,qb%,te|
00001970  6d 70 24 29 0d 09 f6 08  20 ef 32 36 0d 0a 00 1f  |mp$).... .26....|
00001980  20 c8 99 26 32 45 2c 32  39 30 2c 73 70 2c 74 65  | ..&2E,290,sp,te|
00001990  6d 70 24 2c 71 61 25 2c  71 62 25 0d 0a 0a 17 20  |mp$,qa%,qb%.... |
000019a0  c8 99 26 32 45 2c 32 38  31 2c 73 70 2c 74 65 6d  |..&2E,281,sp,tem|
000019b0  70 24 0d 0a 14 06 20 e1  0d 0a 1e 05 3a 0d 0a 28  |p$.... .....:..(|
000019c0  0d 20 dd f2 6b 65 79 70  61 64 0d 0a 32 09 20 ea  |. ..keypad..2. .|
000019d0  20 6d 24 0d 0a 3c 0f 20  e3 20 58 3d 31 20 b8 20  | m$..<. . X=1 . |
000019e0  31 30 0d 0a 46 39 20 e7  20 67 75 65 73 73 25 3d  |10..F9 . guess%=|
000019f0  31 20 80 20 6b 65 79 25  28 58 29 3d 31 20 8c 20  |1 . key%(X)=1 . |
00001a00  6d 24 3d 22 6b 65 79 5f  64 6f 77 6e 22 20 8b 20  |m$="key_down" . |
00001a10  6d 24 3d 22 6b 65 79 5f  75 70 22 0d 0a 50 27 20  |m$="key_up"..P' |
00001a20  c8 99 20 26 32 45 2c 32  39 30 2c 73 70 2c 6d 24  |.. &2E,290,sp,m$|
00001a30  2c 28 32 30 2b 58 2a 37  30 29 2c 32 30 30 2c 26  |,(20+X*70),200,&|
00001a40  38 30 0d 0a 5a 0c 20 43  25 3d 36 34 2b 58 0d 0a  |80..Z. C%=64+X..|
00001a50  64 0d 20 46 24 3d bd 28  43 25 29 0d 0a 6e 25 20  |d. F$=.(C%)..n% |
00001a60  c8 99 20 26 32 45 2c 32  39 30 2c 73 70 2c 46 24  |.. &2E,290,sp,F$|
00001a70  2c 28 32 38 2b 58 2a 37  30 29 2c 32 30 38 2c 30  |,(28+X*70),208,0|
00001a80  0d 0a 78 06 20 ed 0d 0a  82 05 3a 0d 0a 8c 0e 20  |..x. .....:.... |
00001a90  e3 20 58 3d 31 20 b8 20  39 0d 0a 96 3c 20 e7 20  |. X=1 . 9...< . |
00001aa0  67 75 65 73 73 25 3d 31  20 80 20 6b 65 79 25 28  |guess%=1 . key%(|
00001ab0  31 30 2b 58 29 3d 31 20  8c 20 6d 24 3d 22 6b 65  |10+X)=1 . m$="ke|
00001ac0  79 5f 64 6f 77 6e 22 20  8b 20 6d 24 3d 22 6b 65  |y_down" . m$="ke|
00001ad0  79 5f 75 70 22 0d 0a a0  27 20 c8 99 20 26 32 45  |y_up"...' .. &2E|
00001ae0  2c 32 39 30 2c 73 70 2c  6d 24 2c 28 35 30 2b 58  |,290,sp,m$,(50+X|
00001af0  2a 37 30 29 2c 31 33 30  2c 26 38 30 0d 0a aa 0c  |*70),130,&80....|
00001b00  20 43 25 3d 37 34 2b 58  0d 0a b4 0d 20 46 24 3d  | C%=74+X.... F$=|
00001b10  bd 28 43 25 29 0d 0a be  25 20 c8 99 20 26 32 45  |.(C%)...% .. &2E|
00001b20  2c 32 39 30 2c 73 70 2c  46 24 2c 28 35 38 2b 58  |,290,sp,F$,(58+X|
00001b30  2a 37 30 29 2c 31 33 38  2c 30 0d 0a c8 06 20 ed  |*70),138,0.... .|
00001b40  0d 0a d2 05 3a 0d 0a dc  0e 20 e3 20 58 3d 31 20  |....:.... . X=1 |
00001b50  b8 20 37 0d 0a e6 3c 20  e7 20 67 75 65 73 73 25  |. 7...< . guess%|
00001b60  3d 31 20 80 20 6b 65 79  25 28 31 39 2b 58 29 3d  |=1 . key%(19+X)=|
00001b70  31 20 8c 20 6d 24 3d 22  6b 65 79 5f 64 6f 77 6e  |1 . m$="key_down|
00001b80  22 20 8b 20 6d 24 3d 22  6b 65 79 5f 75 70 22 0d  |" . m$="key_up".|
00001b90  0a f0 27 20 c8 99 20 26  32 45 2c 32 39 30 2c 73  |..' .. &2E,290,s|
00001ba0  70 2c 6d 24 2c 28 31 30  36 2b 58 2a 37 34 29 2c  |p,m$,(106+X*74),|
00001bb0  35 35 2c 26 38 30 0d 0a  fa 0c 20 43 25 3d 38 33  |55,&80.... C%=83|
00001bc0  2b 58 0d 0b 04 0d 20 46  24 3d bd 28 43 25 29 0d  |+X.... F$=.(C%).|
00001bd0  0b 0e 27 20 c8 99 20 26  32 45 2c 32 39 30 2c 73  |..' .. &2E,290,s|
00001be0  70 2c 46 24 2c 28 31 31  34 2b 58 2a 37 34 29 2c  |p,F$,(114+X*74),|
00001bf0  36 33 2c 26 38 30 0d 0b  18 06 20 ed 0d 0b 22 06  |63,&80.... ...".|
00001c00  20 e1 0d 0b 2c 05 3a 0d  0b 36 12 20 dd f2 64 65  | ...,.:..6. ..de|
00001c10  63 6f 64 65 28 6d 62 25  29 0d 0b 40 17 20 ea 20  |code(mb%)..@. . |
00001c20  6c 2c 72 3a 6c 3d 39 39  32 3a 72 3d 31 32 34 36  |l,r:l=992:r=1246|
00001c30  0d 0b 4a 0d 20 c8 8e 20  6d 62 25 20 ca 0d 0b 54  |..J. .. mb% ...T|
00001c40  1d 20 c9 20 34 20 80 20  67 61 6d 65 72 75 6e 25  |. . 4 . gamerun%|
00001c50  3d 31 20 3a c8 8e 20 b9  20 ca 0d 0b 5e 30 20 c9  |=1 :.. . ...^0 .|
00001c60  20 a4 69 6e 62 6f 78 28  6c 2c 36 31 32 2c 72 2c  | .inbox(l,612,r,|
00001c70  36 37 36 29 20 80 20 67  75 65 73 73 25 3d 30 3a  |676) . guess%=0:|
00001c80  f2 73 6f 75 6e 64 63 6f  6e 74 0d 0b 68 2d 20 c9  |.soundcont..h- .|
00001c90  20 a4 69 6e 62 6f 78 28  6c 2c 35 31 32 2c 72 2c  | .inbox(l,512,r,|
00001ca0  35 37 36 29 20 80 20 67  75 65 73 73 25 3d 30 3a  |576) . guess%=0:|
00001cb0  f2 72 65 73 69 67 6e 0d  0b 72 2c 20 c9 20 a4 69  |.resign..r, . .i|
00001cc0  6e 62 6f 78 28 6c 2c 34  31 32 2c 72 2c 34 37 36  |nbox(l,412,r,476|
00001cd0  29 20 80 20 67 75 65 73  73 25 3d 30 3a f2 67 75  |) . guess%=0:.gu|
00001ce0  65 73 73 0d 0b 7c 2c 20  c9 20 a4 69 6e 62 6f 78  |ess..|, . .inbox|
00001cf0  28 39 30 2c 32 30 30 2c  31 34 34 2c 32 35 38 29  |(90,200,144,258)|
00001d00  3a f2 6b 65 79 70 72 65  73 73 28 22 41 22 29 0d  |:.keypress("A").|
00001d10  0b 86 2d 20 c9 20 a4 69  6e 62 6f 78 28 31 36 30  |..- . .inbox(160|
00001d20  2c 32 30 30 2c 32 31 34  2c 32 35 38 29 3a f2 6b  |,200,214,258):.k|
00001d30  65 79 70 72 65 73 73 28  22 42 22 29 0d 0b 90 2d  |eypress("B")...-|
00001d40  20 c9 20 a4 69 6e 62 6f  78 28 32 33 30 2c 32 30  | . .inbox(230,20|
00001d50  30 2c 32 38 34 2c 32 35  38 29 3a f2 6b 65 79 70  |0,284,258):.keyp|
00001d60  72 65 73 73 28 22 43 22  29 0d 0b 9a 2d 20 c9 20  |ress("C")...- . |
00001d70  a4 69 6e 62 6f 78 28 33  30 30 2c 32 30 30 2c 33  |.inbox(300,200,3|
00001d80  35 34 2c 32 35 38 29 3a  f2 6b 65 79 70 72 65 73  |54,258):.keypres|
00001d90  73 28 22 44 22 29 0d 0b  a4 2d 20 c9 20 a4 69 6e  |s("D")...- . .in|
00001da0  62 6f 78 28 33 37 30 2c  32 30 30 2c 34 32 34 2c  |box(370,200,424,|
00001db0  32 35 38 29 3a f2 6b 65  79 70 72 65 73 73 28 22  |258):.keypress("|
00001dc0  45 22 29 0d 0b ae 2d 20  c9 20 a4 69 6e 62 6f 78  |E")...- . .inbox|
00001dd0  28 34 34 32 2c 32 30 30  2c 34 39 36 2c 32 35 38  |(442,200,496,258|
00001de0  29 3a f2 6b 65 79 70 72  65 73 73 28 22 46 22 29  |):.keypress("F")|
00001df0  0d 0b b8 2d 20 c9 20 a4  69 6e 62 6f 78 28 35 30  |...- . .inbox(50|
00001e00  38 2c 32 30 30 2c 35 36  34 2c 32 35 38 29 3a f2  |8,200,564,258):.|
00001e10  6b 65 79 70 72 65 73 73  28 22 47 22 29 0d 0b c2  |keypress("G")...|
00001e20  2d 20 c9 20 a4 69 6e 62  6f 78 28 35 38 30 2c 32  |- . .inbox(580,2|
00001e30  30 30 2c 36 33 34 2c 32  35 38 29 3a f2 6b 65 79  |00,634,258):.key|
00001e40  70 72 65 73 73 28 22 48  22 29 0d 0b cc 2d 20 c9  |press("H")...- .|
00001e50  20 a4 69 6e 62 6f 78 28  36 35 30 2c 32 30 30 2c  | .inbox(650,200,|
00001e60  37 30 34 2c 32 35 38 29  3a f2 6b 65 79 70 72 65  |704,258):.keypre|
00001e70  73 73 28 22 49 22 29 0d  0b d6 2d 20 c9 20 a4 69  |ss("I")...- . .i|
00001e80  6e 62 6f 78 28 37 32 30  2c 32 30 30 2c 37 37 34  |nbox(720,200,774|
00001e90  2c 32 35 38 29 3a f2 6b  65 79 70 72 65 73 73 28  |,258):.keypress(|
00001ea0  22 4a 22 29 0d 0b e0 2d  20 c9 20 a4 69 6e 62 6f  |"J")...- . .inbo|
00001eb0  78 28 31 32 30 2c 31 33  30 2c 31 37 34 2c 31 38  |x(120,130,174,18|
00001ec0  38 29 3a f2 6b 65 79 70  72 65 73 73 28 22 4b 22  |8):.keypress("K"|
00001ed0  29 0d 0b ea 2d 20 c9 20  a4 69 6e 62 6f 78 28 31  |)...- . .inbox(1|
00001ee0  39 30 2c 31 33 30 2c 32  34 34 2c 31 38 38 29 3a  |90,130,244,188):|
00001ef0  f2 6b 65 79 70 72 65 73  73 28 22 4c 22 29 0d 0b  |.keypress("L")..|
00001f00  f4 2d 20 c9 20 a4 69 6e  62 6f 78 28 32 36 30 2c  |.- . .inbox(260,|
00001f10  31 33 30 2c 33 31 34 2c  31 38 38 29 3a f2 6b 65  |130,314,188):.ke|
00001f20  79 70 72 65 73 73 28 22  4d 22 29 0d 0b fe 2d 20  |ypress("M")...- |
00001f30  c9 20 a4 69 6e 62 6f 78  28 33 33 30 2c 31 33 30  |. .inbox(330,130|
00001f40  2c 33 38 34 2c 31 38 38  29 3a f2 6b 65 79 70 72  |,384,188):.keypr|
00001f50  65 73 73 28 22 4e 22 29  0d 0c 08 2d 20 c9 20 a4  |ess("N")...- . .|
00001f60  69 6e 62 6f 78 28 34 30  30 2c 31 33 30 2c 34 35  |inbox(400,130,45|
00001f70  36 2c 31 38 38 29 3a f2  6b 65 79 70 72 65 73 73  |6,188):.keypress|
00001f80  28 22 4f 22 29 0d 0c 12  2d 20 c9 20 a4 69 6e 62  |("O")...- . .inb|
00001f90  6f 78 28 34 37 30 2c 31  33 30 2c 35 32 38 2c 31  |ox(470,130,528,1|
00001fa0  38 30 29 3a f2 6b 65 79  70 72 65 73 73 28 22 50  |80):.keypress("P|
00001fb0  22 29 0d 0c 1c 2d 20 c9  20 a4 69 6e 62 6f 78 28  |")...- . .inbox(|
00001fc0  35 34 30 2c 31 33 30 2c  35 39 38 2c 31 38 30 29  |540,130,598,180)|
00001fd0  3a f2 6b 65 79 70 72 65  73 73 28 22 51 22 29 0d  |:.keypress("Q").|
00001fe0  0c 26 2d 20 c9 20 a4 69  6e 62 6f 78 28 36 31 30  |.&- . .inbox(610|
00001ff0  2c 31 33 30 2c 36 36 34  2c 31 38 30 29 3a f2 6b  |,130,664,180):.k|
00002000  65 79 70 72 65 73 73 28  22 52 22 29 0d 0c 30 2d  |eypress("R")..0-|
00002010  20 c9 20 a4 69 6e 62 6f  78 28 36 38 30 2c 31 33  | . .inbox(680,13|
00002020  30 2c 37 33 34 2c 31 38  30 29 3a f2 6b 65 79 70  |0,734,180):.keyp|
00002030  72 65 73 73 28 22 53 22  29 0d 0c 3a 2c 20 c9 20  |ress("S")..:, . |
00002040  a4 69 6e 62 6f 78 28 31  38 30 2c 35 35 2c 32 33  |.inbox(180,55,23|
00002050  34 2c 31 30 38 29 3a f2  6b 65 79 70 72 65 73 73  |4,108):.keypress|
00002060  28 22 54 22 29 0d 0c 44  2c 20 c9 20 a4 69 6e 62  |("T")..D, . .inb|
00002070  6f 78 28 32 35 32 2c 35  35 2c 33 30 38 2c 31 30  |ox(252,55,308,10|
00002080  38 29 3a f2 6b 65 79 70  72 65 73 73 28 22 55 22  |8):.keypress("U"|
00002090  29 0d 0c 4e 2c 20 c9 20  a4 69 6e 62 6f 78 28 33  |)..N, . .inbox(3|
000020a0  32 38 2c 35 35 2c 33 38  34 2c 31 30 38 29 3a f2  |28,55,384,108):.|
000020b0  6b 65 79 70 72 65 73 73  28 22 56 22 29 0d 0c 58  |keypress("V")..X|
000020c0  2c 20 c9 20 a4 69 6e 62  6f 78 28 34 30 30 2c 35  |, . .inbox(400,5|
000020d0  35 2c 34 35 36 2c 31 30  38 29 3a f2 6b 65 79 70  |5,456,108):.keyp|
000020e0  72 65 73 73 28 22 57 22  29 0d 0c 62 2c 20 c9 20  |ress("W")..b, . |
000020f0  a4 69 6e 62 6f 78 28 34  37 38 2c 35 35 2c 35 33  |.inbox(478,55,53|
00002100  32 2c 31 30 38 29 3a f2  6b 65 79 70 72 65 73 73  |2,108):.keypress|
00002110  28 22 58 22 29 0d 0c 6c  2c 20 c9 20 a4 69 6e 62  |("X")..l, . .inb|
00002120  6f 78 28 35 35 30 2c 35  35 2c 36 30 34 2c 31 30  |ox(550,55,604,10|
00002130  38 29 3a f2 6b 65 79 70  72 65 73 73 28 22 59 22  |8):.keypress("Y"|
00002140  29 0d 0c 76 2c 20 c9 20  a4 69 6e 62 6f 78 28 36  |)..v, . .inbox(6|
00002150  32 34 2c 35 35 2c 36 37  38 2c 31 30 38 29 3a f2  |24,55,678,108):.|
00002160  6b 65 79 70 72 65 73 73  28 22 5a 22 29 0d 0c 80  |keypress("Z")...|
00002170  06 20 cb 0d 0c 8a 1d 20  c9 20 34 20 80 20 67 61  |. ..... . 4 . ga|
00002180  6d 65 72 75 6e 25 3d 30  20 3a c8 8e 20 b9 20 ca  |merun%=0 :.. . .|
00002190  0d 0c 94 25 20 c9 20 a4  69 6e 62 6f 78 28 6c 2c  |...% . .inbox(l,|
000021a0  36 31 32 2c 72 2c 36 37  36 29 3a f2 73 6f 75 6e  |612,r,676):.soun|
000021b0  64 63 6f 6e 74 0d 0c 9e  20 20 c9 20 a4 69 6e 62  |dcont...  . .inb|
000021c0  6f 78 28 6c 2c 39 31 32  2c 72 2c 39 37 36 29 3a  |ox(l,912,r,976):|
000021d0  f2 65 78 69 74 0d 0c a8  22 20 c9 20 a4 69 6e 62  |.exit..." . .inb|
000021e0  6f 78 28 6c 2c 38 31 32  2c 72 2c 38 37 36 29 3a  |ox(l,812,r,876):|
000021f0  f2 65 64 69 74 6f 72 0d  0c b2 22 20 c9 20 a4 69  |.editor..." . .i|
00002200  6e 62 6f 78 28 6c 2c 37  31 32 2c 72 2c 37 37 36  |nbox(l,712,r,776|
00002210  29 3a f2 6c 6f 61 64 65  72 0d 0c bc 20 20 c9 20  |):.loader...  . |
00002220  a4 69 6e 62 6f 78 28 6c  2c 33 31 32 2c 72 2c 33  |.inbox(l,312,r,3|
00002230  37 36 29 3a f2 67 61 6d  65 0d 0c c6 06 20 cb 0d  |76):.game.... ..|
00002240  0c d0 06 20 cb 0d 0c da  06 20 e1 0d 0c e4 05 3a  |... ..... .....:|
00002250  0d 0c ee 1d 20 dd f2 70  6c 6f 74 5f 74 65 78 74  |.... ..plot_text|
00002260  28 78 25 2c 79 25 2c 74  65 78 74 24 29 0d 0c f8  |(x%,y%,text$)...|
00002270  11 20 ea 20 74 25 2c 74  24 2c 73 70 63 25 0d 0d  |. . t%,t$,spc%..|
00002280  02 12 20 73 70 63 25 3d  30 3a 73 70 72 25 3d 30  |.. spc%=0:spr%=0|
00002290  0d 0d 0c 0f 20 e6 30 2c  34 32 20 c8 9c 20 30 0d  |.... .0,42 .. 0.|
000022a0  0d 16 16 20 e3 20 74 25  3d 31 20 b8 20 a9 28 74  |... . t%=1 . .(t|
000022b0  65 78 74 24 29 0d 0d 20  14 20 74 24 3d c1 74 65  |ext$).. . t$=.te|
000022c0  78 74 24 2c 74 25 2c 31  29 0d 0d 2a 0f 20 e7 20  |xt$,t%,1)..*. . |
000022d0  74 24 3d 22 20 22 20 8c  0d 0d 34 40 20 c8 93 20  |t$=" " ...4@ .. |
000022e0  c8 90 28 28 78 25 2d 33  32 29 2b 28 33 32 2a 74  |..((x%-32)+(32*t|
000022f0  25 29 2d 73 70 63 25 29  2c 79 25 2c 33 32 2c 34  |%)-spc%),y%,32,4|
00002300  30 3a 73 70 72 25 2b 3d  31 3a 73 70 63 25 3d 28  |0:spr%+=1:spc%=(|
00002310  31 36 2a 73 70 72 25 29  0d 0d 3e 06 20 cc 0d 0d  |16*spr%)..>. ...|
00002320  48 31 20 c8 99 20 26 32  45 2c 32 39 30 2c 73 70  |H1 .. &2E,290,sp|
00002330  2c 74 24 2c 28 28 78 25  2d 33 32 29 2b 28 33 32  |,t$,((x%-32)+(32|
00002340  2a 74 25 29 2d 73 70 63  25 29 2c 79 25 2c 30 0d  |*t%)-spc%),y%,0.|
00002350  0d 52 06 20 cd 0d 0d 5c  06 20 ed 0d 0d 66 06 20  |.R. ...\. ...f. |
00002360  e1 0d 0d 70 05 3a 0d 0d  7a 19 20 dd f2 72 69 64  |...p.:..z. ..rid|
00002370  67 65 28 78 25 2c 79 25  2c 68 25 2c 77 25 29 0d  |ge(x%,y%,h%,w%).|
00002380  0d 84 0d 20 e6 32 31 20  c8 9c 20 30 0d 0d 8e 19  |... .21 .. 0....|
00002390  20 c8 93 20 78 25 2b 34  2c 79 25 2c 77 25 2d 34  | .. x%+4,y%,w%-4|
000023a0  2c 68 25 2d 34 0d 0d 98  1b 20 86 20 78 25 2b 77  |,h%-4.... . x%+w|
000023b0  25 2c 79 25 2c 78 25 2b  77 25 2c 79 25 2b 68 25  |%,y%,x%+w%,y%+h%|
000023c0  0d 0d a2 0d 20 e6 36 33  20 c8 9c 20 30 0d 0d ac  |.... .63 .. 0...|
000023d0  15 20 86 20 78 25 2c 79  25 2c 78 25 2c 79 25 2b  |. . x%,y%,x%,y%+|
000023e0  68 25 0d 0d b6 1d 20 86  20 78 25 2c 79 25 2b 68  |h%.... . x%,y%+h|
000023f0  25 2c 78 25 2b 77 25 2d  34 2c 79 25 2b 68 25 0d  |%,x%+w%-4,y%+h%.|
00002400  0d c0 1d 20 86 20 78 25  2b 38 2c 79 25 2b 34 2c  |... . x%+8,y%+4,|
00002410  78 25 2b 77 25 2d 34 2c  79 25 2b 34 0d 0d ca 23  |x%+w%-4,y%+4...#|
00002420  20 86 20 78 25 2b 77 25  2d 34 2c 79 25 2b 34 2c  | . x%+w%-4,y%+4,|
00002430  78 25 2b 77 25 2d 34 2c  79 25 2b 68 25 2d 34 0d  |x%+w%-4,y%+h%-4.|
00002440  0d d4 06 20 e1 0d 0d de  05 3a 0d 0d e8 18 20 dd  |... .....:.... .|
00002450  f2 6b 65 79 70 72 65 73  73 28 6c 65 74 74 65 72  |.keypress(letter|
00002460  24 29 0d 0d f2 0b 20 ea  20 64 6d 79 25 0d 0d fc  |$).... . dmy%...|
00002470  14 20 64 6d 79 25 3d 97  28 6c 65 74 74 65 72 24  |. dmy%=.(letter$|
00002480  29 0d 0e 06 1b 20 e7 20  64 6d 79 25 3d 31 32 37  |).... . dmy%=127|
00002490  20 8c 20 f2 64 65 6c 6c  65 74 3a e1 0d 0e 10 1c  | . .dellet:.....|
000024a0  20 e7 20 64 6d 79 25 3c  36 35 20 84 20 64 6d 79  | . dmy%<65 . dmy|
000024b0  25 3e 39 30 20 8c 20 e1  0d 0e 1a 11 20 c8 8e 20  |%>90 . ..... .. |
000024c0  6c 65 74 74 65 72 24 20  ca 0d 0e 24 19 20 c9 20  |letter$ ...$. . |
000024d0  22 41 22 3a 70 78 25 3d  39 30 3a 70 79 25 3d 32  |"A":px%=90:py%=2|
000024e0  30 30 0d 0e 2e 1a 20 c9  20 22 42 22 3a 70 78 25  |00.... . "B":px%|
000024f0  3d 31 36 30 3a 70 79 25  3d 32 30 30 0d 0e 38 1a  |=160:py%=200..8.|
00002500  20 c9 20 22 43 22 3a 70  78 25 3d 32 33 30 3a 70  | . "C":px%=230:p|
00002510  79 25 3d 32 30 30 0d 0e  42 1a 20 c9 20 22 44 22  |y%=200..B. . "D"|
00002520  3a 70 78 25 3d 33 30 30  3a 70 79 25 3d 32 30 30  |:px%=300:py%=200|
00002530  0d 0e 4c 1a 20 c9 20 22  45 22 3a 70 78 25 3d 33  |..L. . "E":px%=3|
00002540  37 30 3a 70 79 25 3d 32  30 30 0d 0e 56 1a 20 c9  |70:py%=200..V. .|
00002550  20 22 46 22 3a 70 78 25  3d 34 34 32 3a 70 79 25  | "F":px%=442:py%|
00002560  3d 32 30 30 0d 0e 60 1a  20 c9 20 22 47 22 3a 70  |=200..`. . "G":p|
00002570  78 25 3d 35 30 38 3a 70  79 25 3d 32 30 30 0d 0e  |x%=508:py%=200..|
00002580  6a 1a 20 c9 20 22 48 22  3a 70 78 25 3d 35 38 30  |j. . "H":px%=580|
00002590  3a 70 79 25 3d 32 30 30  0d 0e 74 1a 20 c9 20 22  |:py%=200..t. . "|
000025a0  49 22 3a 70 78 25 3d 36  35 30 3a 70 79 25 3d 32  |I":px%=650:py%=2|
000025b0  30 30 0d 0e 7e 1a 20 c9  20 22 4a 22 3a 70 78 25  |00..~. . "J":px%|
000025c0  3d 37 32 30 3a 70 79 25  3d 32 30 30 0d 0e 88 1a  |=720:py%=200....|
000025d0  20 c9 20 22 4b 22 3a 70  78 25 3d 31 32 30 3a 70  | . "K":px%=120:p|
000025e0  79 25 3d 31 33 30 0d 0e  92 1a 20 c9 20 22 4c 22  |y%=130.... . "L"|
000025f0  3a 70 78 25 3d 31 39 30  3a 70 79 25 3d 31 33 30  |:px%=190:py%=130|
00002600  0d 0e 9c 1a 20 c9 20 22  4d 22 3a 70 78 25 3d 32  |.... . "M":px%=2|
00002610  36 30 3a 70 79 25 3d 31  33 30 0d 0e a6 1a 20 c9  |60:py%=130.... .|
00002620  20 22 4e 22 3a 70 78 25  3d 33 33 30 3a 70 79 25  | "N":px%=330:py%|
00002630  3d 31 33 30 0d 0e b0 1a  20 c9 20 22 4f 22 3a 70  |=130.... . "O":p|
00002640  78 25 3d 34 30 30 3a 70  79 25 3d 31 33 30 0d 0e  |x%=400:py%=130..|
00002650  ba 1a 20 c9 20 22 50 22  3a 70 78 25 3d 34 37 30  |.. . "P":px%=470|
00002660  3a 70 79 25 3d 31 33 30  0d 0e c4 1a 20 c9 20 22  |:py%=130.... . "|
00002670  51 22 3a 70 78 25 3d 35  34 30 3a 70 79 25 3d 31  |Q":px%=540:py%=1|
00002680  33 30 0d 0e ce 1a 20 c9  20 22 52 22 3a 70 78 25  |30.... . "R":px%|
00002690  3d 36 31 30 3a 70 79 25  3d 31 33 30 0d 0e d8 1a  |=610:py%=130....|
000026a0  20 c9 20 22 53 22 3a 70  78 25 3d 36 38 30 3a 70  | . "S":px%=680:p|
000026b0  79 25 3d 31 33 30 0d 0e  e2 19 20 c9 20 22 54 22  |y%=130.... . "T"|
000026c0  3a 70 78 25 3d 31 38 30  3a 70 79 25 3d 35 35 0d  |:px%=180:py%=55.|
000026d0  0e ec 19 20 c9 20 22 55  22 3a 70 78 25 3d 32 35  |... . "U":px%=25|
000026e0  32 3a 70 79 25 3d 35 35  0d 0e f6 19 20 c9 20 22  |2:py%=55.... . "|
000026f0  56 22 3a 70 78 25 3d 33  32 38 3a 70 79 25 3d 35  |V":px%=328:py%=5|
00002700  35 0d 0f 00 19 20 c9 20  22 57 22 3a 70 78 25 3d  |5.... . "W":px%=|
00002710  34 30 30 3a 70 79 25 3d  35 35 0d 0f 0a 19 20 c9  |400:py%=55.... .|
00002720  20 22 58 22 3a 70 78 25  3d 34 37 38 3a 70 79 25  | "X":px%=478:py%|
00002730  3d 35 35 0d 0f 14 19 20  c9 20 22 59 22 3a 70 78  |=55.... . "Y":px|
00002740  25 3d 35 35 30 3a 70 79  25 3d 35 35 0d 0f 1e 19  |%=550:py%=55....|
00002750  20 c9 20 22 5a 22 3a 70  78 25 3d 36 32 34 3a 70  | . "Z":px%=624:p|
00002760  79 25 3d 35 35 0d 0f 28  06 20 cb 0d 0f 32 28 20  |y%=55..(. ...2( |
00002770  c8 99 26 32 45 2c 32 39  30 2c 73 70 2c 22 6b 65  |..&2E,290,sp,"ke|
00002780  79 5f 64 6f 77 6e 22 2c  70 78 25 2c 70 79 25 2c  |y_down",px%,py%,|
00002790  26 30 38 0d 0f 3c 26 20  e7 20 67 75 65 73 73 25  |&08..<& . guess%|
000027a0  3d 31 20 8c 20 f2 6d 61  6b 65 77 6f 72 64 28 6c  |=1 . .makeword(l|
000027b0  65 74 74 65 72 24 29 3a  e1 0d 0f 46 0f 20 ea 20  |etter$):...F. . |
000027c0  41 25 2c 56 25 2c 4c 25  0d 0f 50 0b 20 4c 25 3d  |A%,V%,L%..P. L%=|
000027d0  36 34 3a 0d 0f 5a 21 20  56 25 3d 97 28 6c 65 74  |64:..Z! V%=.(let|
000027e0  74 65 72 24 29 3a 41 25  3d 56 25 2d 4c 25 3a 6b  |ter$):A%=V%-L%:k|
000027f0  65 3d 41 25 0d 0f 64 1f  20 e7 20 6c 65 76 65 6c  |e=A%..d. . level|
00002800  3d 30 20 80 20 6b 65 79  25 28 41 25 29 3d 31 20  |=0 . key%(A%)=1 |
00002810  8c 20 e1 0d 0f 6e 16 20  f2 6c 74 74 72 28 6c 65  |. ...n. .lttr(le|
00002820  74 74 65 72 24 2c 6b 65  29 0d 0f 78 0f 20 6b 65  |tter$,ke)..x. ke|
00002830  79 25 28 41 25 29 3d 31  0d 0f 82 0c 20 49 3d a6  |y%(A%)=1.... I=.|
00002840  28 32 30 29 0d 0f 8c 32  20 e7 20 6c 65 76 65 6c  |(20)...2 . level|
00002850  3d 31 20 8c 20 c8 99 26  32 45 2c 32 39 30 2c 73  |=1 . ..&2E,290,s|
00002860  70 2c 22 6b 65 79 5f 75  70 22 2c 70 78 25 2c 70  |p,"key_up",px%,p|
00002870  79 25 2c 26 30 38 0d 0f  96 06 20 e1 0d 0f a0 05  |y%,&08.... .....|
00002880  3a 0d 0f aa 0b 20 dd f2  64 61 73 68 0d 0f b4 14  |:.... ..dash....|
00002890  20 e3 20 76 3d 31 20 b8  20 6c 65 6e 67 74 68 25  | . v=1 . length%|
000028a0  0d 0f be 28 20 c8 99 26  32 45 2c 32 39 30 2c 73  |...( ..&2E,290,s|
000028b0  70 2c 22 64 61 73 68 22  2c 6c 25 2b 28 37 32 2a  |p,"dash",l%+(72*|
000028c0  76 29 2c 33 32 30 2c 30  0d 0f c8 06 20 ed 0d 0f  |v),320,0.... ...|
000028d0  d2 06 20 e1 0d 0f dc 05  3a 0d 0f e6 11 20 dd f2  |.. .....:.... ..|
000028e0  63 68 6f 6f 73 65 77 6f  72 64 0d 0f f0 09 20 ea  |chooseword.... .|
000028f0  20 4c 25 0d 0f fa 17 20  61 64 76 65 25 3d 30 3a  | L%.... adve%=0:|
00002900  77 6f 72 64 25 28 30 29  3d 31 0d 10 04 3e 20 e7  |word%(0)=1...> .|
00002910  20 75 73 65 64 77 6f 72  64 25 3d 63 6f 75 6e 74  | usedword%=count|
00002920  20 84 20 75 73 65 64 77  6f 72 64 25 3e 63 6f 75  | . usedword%>cou|
00002930  6e 74 20 8c 20 f2 61 64  76 69 73 65 3a e7 20 61  |nt . .advise:. a|
00002940  64 76 65 25 3d 31 3a e1  0d 10 0e 06 20 f5 0d 10  |dve%=1:..... ...|
00002950  18 10 20 4c 25 3d b3 28  63 6f 75 6e 74 29 0d 10  |.. L%=.(count)..|
00002960  22 12 20 fd 20 77 6f 72  64 25 28 4c 25 29 3d 30  |". . word%(L%)=0|
00002970  0d 10 2c 33 20 73 65 6c  65 63 74 24 3d 77 6f 72  |..,3 select$=wor|
00002980  64 24 28 4c 25 29 3a 77  6f 72 64 25 3d 30 3a 77  |d$(L%):word%=0:w|
00002990  6f 72 64 25 28 4c 25 29  3d 31 3a 6b 65 79 25 28  |ord%(L%)=1:key%(|
000029a0  29 3d 30 0d 10 36 17 20  6c 65 6e 67 74 68 25 3d  |)=0..6. length%=|
000029b0  a9 28 73 65 6c 65 63 74  24 29 0d 10 40 18 20 6c  |.(select$)..@. l|
000029c0  25 3d 34 34 34 2d 28 33  38 2a 6c 65 6e 67 74 68  |%=444-(38*length|
000029d0  25 29 0d 10 4a 0a 20 f2  64 61 73 68 0d 10 54 11  |%)..J. .dash..T.|
000029e0  20 75 73 65 64 77 6f 72  64 25 2b 3d 31 0d 10 5e  | usedword%+=1..^|
000029f0  06 20 e1 0d 10 68 05 3a  0d 10 72 1e 20 dd f2 64  |. ...h.:..r. ..d|
00002a00  69 73 70 6c 61 79 6c 65  74 74 65 72 28 78 24 2c  |isplayletter(x$,|
00002a10  67 25 2c 6d 25 29 0d 10  7c 18 20 ef 32 34 2c 35  |g%,m%)..|. .24,5|
00002a20  35 3b 33 31 34 3b 39 33  31 3b 33 38 39 3b 0d 10  |5;314;931;389;..|
00002a30  86 0f 20 ea 20 46 2c 54  20 3a 54 3d 30 0d 10 90  |.. . F,T :T=0...|
00002a40  17 20 e3 20 46 3d 33 39  32 20 b8 20 33 32 30 20  |. . F=392 . 320 |
00002a50  88 20 2d 34 0d 10 9a 23  20 c8 99 26 32 45 2c 32  |. -4...# ..&2E,2|
00002a60  39 30 2c 73 70 2c 78 24  2c 6c 25 2b 28 37 32 2a  |90,sp,x$,l%+(72*|
00002a70  67 25 29 2c 46 2c 30 0d  10 a4 2b 20 c8 99 26 32  |g%),F,0...+ ..&2|
00002a80  45 2c 32 39 30 2c 73 70  2c 22 44 41 53 48 22 2c  |E,290,sp,"DASH",|
00002a90  6c 25 2b 28 37 32 2a 67  25 29 2c 33 32 30 2d 54  |l%+(72*g%),320-T|
00002aa0  2c 30 0d 10 ae 12 20 55  3d a6 28 34 29 3a 54 2b  |,0.... U=.(4):T+|
00002ab0  3d 34 3a ed 0d 10 b8 15  20 ef 32 36 3a 66 6f 75  |=4:..... .26:fou|
00002ac0  6e 64 3d 31 3a 41 25 3d  30 0d 10 c2 18 20 c8 97  |nd=1:A%=0.... ..|
00002ad0  20 c8 93 20 30 2c 30 2c  31 32 37 39 2c 31 30 32  | .. 0,0,1279,102|
00002ae0  33 0d 10 cc 0f 20 e7 20  6d 25 3d 31 20 8c 20 e1  |3.... . m%=1 . .|
00002af0  0d 10 d6 10 20 e7 20 6c  65 76 65 6c 3d 30 20 8c  |.... . level=0 .|
00002b00  0d 10 e0 0e 20 f2 73 63  6f 72 65 28 32 29 0d 10  |.... .score(2)..|
00002b10  ea 06 20 cc 0d 10 f4 0e  20 f2 73 63 6f 72 65 28  |.. ..... .score(|
00002b20  34 29 0d 10 fe 06 20 cd  0d 11 08 06 20 e1 0d 11  |4).... ..... ...|
00002b30  12 05 3a 0d 11 1c 0d 20  dd f2 72 65 73 69 67 6e  |..:.... ..resign|
00002b40  0d 11 26 25 20 f2 73 6c  61 62 28 39 38 30 2c 35  |..&% .slab(980,5|
00002b50  30 30 2c 32 37 39 2c 39  30 2c 31 2c 22 52 45 53  |00,279,90,1,"RES|
00002b60  49 47 4e 22 29 0d 11 30  25 20 f2 70 6f 70 77 69  |IGN")..0% .popwi|
00002b70  6e 64 6f 77 28 32 36 30  2c 36 31 30 2c 37 37 34  |ndow(260,610,774|
00002b80  2c 38 38 38 2c 22 65 64  22 29 0d 11 3a 20 20 f2  |,888,"ed")..:  .|
00002b90  73 6c 61 62 28 32 37 30  2c 36 32 30 2c 34 39 34  |slab(270,620,494|
00002ba0  2c 32 35 38 2c 30 2c 22  22 29 0d 11 44 19 20 c8  |,258,0,"")..D. .|
00002bb0  97 20 c8 93 32 38 30 2c  36 33 32 2c 34 37 36 2c  |. ..280,632,476,|
00002bc0  32 33 38 0d 11 4e 23 20  f2 70 6c 6f 74 5f 74 65  |238..N# .plot_te|
00002bd0  78 74 28 33 39 30 2c 38  31 35 2c 22 52 45 53 49  |xt(390,815,"RESI|
00002be0  47 4e 20 3f 22 29 0d 11  58 29 20 f2 70 6c 6f 74  |GN ?")..X) .plot|
00002bf0  5f 74 65 78 74 28 32 39  30 2c 37 34 35 2c 22 4c  |_text(290,745,"L|
00002c00  4f 53 45 20 33 30 20 50  4f 49 4e 54 53 22 29 0d  |OSE 30 POINTS").|
00002c10  11 62 40 20 c8 99 26 32  45 2c 32 39 30 2c 73 70  |.b@ ..&2E,290,sp|
00002c20  2c 22 6f 6b 75 22 2c 33  34 30 2c 36 34 38 2c 30  |,"oku",340,648,0|
00002c30  3a c8 99 26 32 45 2c 32  39 30 2c 73 70 2c 22 43  |:..&2E,290,sp,"C|
00002c40  61 6e 63 75 22 2c 35 31  30 2c 36 34 38 2c 30 0d  |ancu",510,648,0.|
00002c50  11 6c 09 20 f2 6d 69 6e  0d 11 76 12 20 e7 20 72  |.l. .min..v. . r|
00002c60  65 74 75 72 6e 25 3d 30  20 8c 0d 11 80 1f 20 f2  |eturn%=0 ..... .|
00002c70  63 6c 6f 73 65 77 69 6e  64 6f 77 28 32 36 30 2c  |closewindow(260,|
00002c80  36 31 30 2c 22 65 64 22  29 0d 11 8a 25 20 f2 73  |610,"ed")...% .s|
00002c90  6c 61 62 28 39 38 30 2c  35 30 30 2c 32 37 39 2c  |lab(980,500,279,|
00002ca0  39 30 2c 30 2c 22 52 45  53 49 47 4e 22 29 0d 11  |90,0,"RESIGN")..|
00002cb0  94 07 20 f2 72 0d 11 9e  06 20 cc 0d 11 a8 10 20  |.. .r.... ..... |
00002cc0  f2 72 65 76 65 61 6c 77  6f 72 64 0d 11 b2 1b 20  |.revealword.... |
00002cd0  f2 73 63 6f 72 65 28 2d  33 30 29 3a 67 61 6d 65  |.score(-30):game|
00002ce0  72 75 6e 25 3d 30 0d 11  bc 07 20 f2 72 0d 11 c6  |run%=0.... .r...|
00002cf0  1f 20 f2 63 6c 6f 73 65  77 69 6e 64 6f 77 28 32  |. .closewindow(2|
00002d00  36 30 2c 36 31 30 2c 22  65 64 22 29 0d 11 d0 06  |60,610,"ed")....|
00002d10  20 cd 0d 11 da 25 20 f2  73 6c 61 62 28 39 38 30  | ....% .slab(980|
00002d20  2c 35 30 30 2c 32 37 39  2c 39 30 2c 30 2c 22 52  |,500,279,90,0,"R|
00002d30  45 53 49 47 4e 22 29 0d  11 e4 06 20 e1 0d 11 ee  |ESIGN").... ....|
00002d40  05 3a 0d 11 f8 11 20 dd  f2 72 65 76 65 61 6c 77  |.:.... ..revealw|
00002d50  6f 72 64 0d 12 02 14 20  e3 20 74 3d 31 20 b8 20  |ord.... . t=1 . |
00002d60  6c 65 6e 67 74 68 25 0d  12 0c 50 20 e7 20 77 6f  |length%...P . wo|
00002d70  72 64 66 6f 72 6d 28 74  29 3d 30 20 8c 20 6c 74  |rdform(t)=0 . lt|
00002d80  24 3d 28 c1 73 65 6c 65  63 74 24 2c 74 2c 31 29  |$=(.select$,t,1)|
00002d90  29 3a 6c 74 31 24 3d 6c  74 24 2b 22 6c 22 3a f2  |):lt1$=lt$+"l":.|
00002da0  64 69 73 70 6c 61 79 6c  65 74 74 65 72 28 6c 74  |displayletter(lt|
00002db0  31 24 2c 74 2c 31 29 0d  12 16 06 20 ed 0d 12 20  |1$,t,1).... ... |
00002dc0  06 20 e1 0d 12 2a 05 3a  0d 12 34 0b 20 dd f2 6d  |. ...*.:..4. ..m|
00002dd0  61 69 6e 0d 12 3e 06 20  f5 0d 12 48 0a 20 6d 62  |ain..>. ...H. mb|
00002de0  25 3d 30 0d 12 52 06 20  f5 0d 12 5c 13 20 c8 97  |%=0..R. ...\. ..|
00002df0  20 6d 78 25 2c 6d 79 25  2c 6d 62 25 0d 12 66 0c  | mx%,my%,mb%..f.|
00002e00  20 fd 20 6d 62 25 3d 34  0d 12 70 11 20 f2 64 65  | . mb%=4..p. .de|
00002e10  63 6f 64 65 28 6d 62 25  29 0d 12 7a 0e 20 fd 20  |code(mb%)..z. . |
00002e20  71 75 69 74 25 3d 32 0d  12 84 06 20 e1 0d 12 8e  |quit%=2.... ....|
00002e30  05 3a 0d 12 98 0c 20 dd  f2 67 75 65 73 73 0d 12  |.:.... ..guess..|
00002e40  a2 11 20 ea 20 6c 65 25  2c 62 6f 6e 75 73 24 0d  |.. . le%,bonus$.|
00002e50  12 ac 0c 20 f2 6b 65 79  70 61 64 0d 12 b6 3b 20  |... .keypad...; |
00002e60  66 6c 61 67 66 25 3d 30  3a 67 75 65 73 73 25 3d  |flagf%=0:guess%=|
00002e70  31 3a 67 75 65 73 73 63  6f 75 6e 74 25 3d 30 3a  |1:guesscount%=0:|
00002e80  69 6e 74 65 72 6e 61 6c  24 3d 22 22 3a 69 6e 70  |internal$="":inp|
00002e90  75 74 24 3d 22 22 0d 12  c0 24 20 f2 73 6c 61 62  |ut$=""...$ .slab|
00002ea0  28 39 38 30 2c 34 30 30  2c 32 37 39 2c 39 30 2c  |(980,400,279,90,|
00002eb0  31 2c 22 47 55 45 53 53  22 29 0d 12 ca 25 20 f2  |1,"GUESS")...% .|
00002ec0  70 6f 70 77 69 6e 64 6f  77 28 32 36 30 2c 36 31  |popwindow(260,61|
00002ed0  30 2c 37 39 34 2c 39 30  30 2c 22 65 64 22 29 0d  |0,794,900,"ed").|
00002ee0  12 d4 18 20 ff 22 43 48  41 4e 4e 45 4c 56 4f 49  |... ."CHANNELVOI|
00002ef0  43 45 20 31 20 31 22 0d  12 de 20 20 f2 73 6c 61  |CE 1 1"...  .sla|
00002f00  62 28 32 37 30 2c 36 32  30 2c 35 31 34 2c 32 37  |b(270,620,514,27|
00002f10  38 2c 30 2c 22 22 29 0d  12 e8 32 20 6c 65 25 3d  |8,0,"")...2 le%=|
00002f20  28 6c 65 6e 67 74 68 25  2d 77 6f 72 64 25 29 2a  |(length%-word%)*|
00002f30  32 35 3a 62 6f 6e 75 73  24 3d 22 42 4f 4e 55 53  |25:bonus$="BONUS|
00002f40  20 22 2b c3 28 6c 65 25  29 0d 12 f2 2a 20 f2 70  | "+.(le%)...* .p|
00002f50  6c 6f 74 5f 74 65 78 74  28 32 39 30 2c 38 34 30  |lot_text(290,840|
00002f60  2c 22 4d 41 4b 45 20 59  4f 55 52 20 47 55 45 53  |,"MAKE YOUR GUES|
00002f70  53 22 29 0d 12 fc 1f 20  f2 70 6c 6f 74 5f 74 65  |S").... .plot_te|
00002f80  78 74 28 33 35 30 2c 37  39 34 2c 62 6f 6e 75 73  |xt(350,794,bonus|
00002f90  24 29 0d 13 06 25 20 f2  70 6c 6f 74 5f 74 65 78  |$)...% .plot_tex|
00002fa0  74 28 33 33 36 2c 37 35  34 2c 22 49 46 20 43 4f  |t(336,754,"IF CO|
00002fb0  52 52 45 43 54 22 29 0d  13 10 28 20 f2 70 6c 6f  |RRECT")...( .plo|
00002fc0  74 5f 74 65 78 74 28 33  31 30 2c 37 31 34 2c 22  |t_text(310,714,"|
00002fd0  52 45 54 55 52 4e 20 54  4f 20 45 4e 44 22 29 0d  |RETURN TO END").|
00002fe0  13 1a 1c 20 f2 70 6c 6f  74 5f 74 65 78 74 28 32  |... .plot_text(2|
00002ff0  38 34 2c 36 37 30 2c 22  3e 22 29 0d 13 24 1d 20  |84,670,">")..$. |
00003000  fb 20 34 38 20 c8 9c 20  31 39 32 3a fb 34 32 2b  |. 48 .. 192:.42+|
00003010  31 32 38 20 c8 9c 20 30  0d 13 2e 17 20 e3 54 7a  |128 .. 0.... .Tz|
00003020  3d 31 20 b8 20 a9 28 73  65 6c 65 63 74 24 29 0d  |=1 . .(select$).|
00003030  13 38 13 20 f1 8a 39 2b  54 7a 2c 31 30 29 3b 22  |.8. ..9+Tz,10);"|
00003040  2d 22 0d 13 42 06 20 ed  0d 13 4c 10 20 c8 95 20  |-"..B. ...L. .. |
00003050  66 6c 61 67 66 25 3d 30  0d 13 56 15 20 6b 65 79  |flagf%=0..V. key|
00003060  70 25 3d 2d 31 3a 6d 62  25 3d 30 3a f5 0d 13 60  |p%=-1:mb%=0:...`|
00003070  18 20 c8 99 20 26 30 36  2c 32 30 32 2c 25 30 30  |. .. &06,202,%00|
00003080  30 30 30 2c 31 0d 13 6a  1a 20 c8 99 26 30 36 2c  |000,1..j. ..&06,|
00003090  32 31 2c 30 3a c8 99 26  30 36 2c 32 31 2c 39 0d  |21,0:..&06,21,9.|
000030a0  13 74 0f 20 6b 65 79 70  25 3d a6 28 32 29 0d 13  |.t. keyp%=.(2)..|
000030b0  7e 20 20 e7 20 6b 65 79  70 25 3d 2d 31 20 8c 20  |~  . keyp%=-1 . |
000030c0  c8 97 20 6d 78 25 2c 6d  79 25 2c 6d 62 25 0d 13  |.. mx%,my%,mb%..|
000030d0  88 17 20 fd 20 6d 62 25  3d 34 20 84 20 6b 65 79  |.. . mb%=4 . key|
000030e0  70 25 3e 2d 31 0d 13 92  29 20 e7 20 6b 65 79 70  |p%>-1...) . keyp|
000030f0  25 3d 31 33 20 8c 20 6b  65 79 70 25 3d 2d 31 3a  |%=13 . keyp%=-1:|
00003100  6d 62 25 3d 30 3a 66 6c  61 67 66 25 3d 31 0d 13  |mb%=0:flagf%=1..|
00003110  9c 37 20 e7 20 6d 62 25  3d 34 20 8c 20 f2 64 65  |.7 . mb%=4 . .de|
00003120  63 6f 64 65 28 6d 62 25  29 20 8b 20 52 24 3d bd  |code(mb%) . R$=.|
00003130  28 6b 65 79 70 25 29 3a  f2 6b 65 79 70 72 65 73  |(keyp%):.keypres|
00003140  73 28 52 24 29 0d 13 a6  2c 20 6b 65 79 70 25 3d  |s(R$)..., keyp%=|
00003150  2d 31 3a 6d 62 25 3d 30  3a f5 3a c8 97 20 6d 78  |-1:mb%=0:.:.. mx|
00003160  25 2c 6d 79 25 2c 6d 62  25 3a fd 20 6d 62 25 3d  |%,my%,mb%:. mb%=|
00003170  30 0d 13 b0 17 20 f1 8a  31 30 2c 31 30 29 3b 69  |0.... ..10,10);i|
00003180  6e 74 65 72 6e 61 6c 24  0d 13 ba 06 20 ce 0d 13  |nternal$.... ...|
00003190  c4 1f 20 f2 63 6c 6f 73  65 77 69 6e 64 6f 77 28  |.. .closewindow(|
000031a0  32 36 30 2c 36 31 30 2c  22 65 64 22 29 0d 13 ce  |260,610,"ed")...|
000031b0  6e 20 e7 20 69 6e 70 75  74 24 3d 73 65 6c 65 63  |n . input$=selec|
000031c0  74 24 20 8c 20 f2 72 65  76 65 61 6c 77 6f 72 64  |t$ . .revealword|
000031d0  3a f2 73 6f 75 6e 64 28  22 42 4f 4e 55 53 22 2c  |:.sound("BONUS",|
000031e0  30 29 3a e3 20 54 7a 3d  31 20 b8 20 6c 65 25 3a  |0):. Tz=1 . le%:|
000031f0  f2 73 63 6f 72 65 28 31  29 3a 4f 3d a6 28 34 29  |.score(1):O=.(4)|
00003200  3a ed 3a 77 6f 72 64 25  3d 6c 65 6e 67 74 68 25  |:.:word%=length%|
00003210  3a 67 61 6d 65 72 75 6e  25 3d 30 0d 13 d8 28 20  |:gamerun%=0...( |
00003220  e7 20 69 6e 70 75 74 24  3c 3e 73 65 6c 65 63 74  |. input$<>select|
00003230  24 20 80 20 6c 65 76 65  6c 3d 30 20 f2 6b 65 79  |$ . level=0 .key|
00003240  70 61 64 0d 13 e2 0d 20  67 75 65 73 73 25 3d 30  |pad.... guess%=0|
00003250  0d 13 ec 37 20 e7 20 69  6e 70 75 74 24 3d 22 22  |...7 . input$=""|
00003260  20 8c 20 f2 73 6c 61 62  28 39 38 30 2c 34 30 30  | . .slab(980,400|
00003270  2c 32 37 39 2c 39 30 2c  30 2c 22 47 55 45 53 53  |,279,90,0,"GUESS|
00003280  22 29 3a f2 72 3a e1 0d  13 f6 2f 20 e7 20 69 6e  |"):.r:..../ . in|
00003290  70 75 74 24 3c 3e 73 65  6c 65 63 74 24 20 8c 20  |put$<>select$ . |
000032a0  f2 73 63 6f 72 65 28 2d  31 35 29 3a f2 6c 69 67  |.score(-15):.lig|
000032b0  68 74 73 28 31 29 0d 14  00 24 20 f2 73 6c 61 62  |hts(1)...$ .slab|
000032c0  28 39 38 30 2c 34 30 30  2c 32 37 39 2c 39 30 2c  |(980,400,279,90,|
000032d0  30 2c 22 47 55 45 53 53  22 29 0d 14 0a 07 20 f2  |0,"GUESS").... .|
000032e0  72 0d 14 14 06 20 e1 0d  14 1e 05 3a 0d 14 28 11  |r.... .....:..(.|
000032f0  20 dd f2 6e 61 6d 65 5f  63 68 65 63 6b 0d 14 32  | ..name_check..2|
00003300  0f 20 ea 20 5a 25 2c 58  25 2c 54 24 0d 14 3c 14  |. . Z%,X%,T$..<.|
00003310  20 5a 25 3d a9 28 70 6c  61 79 6e 61 6d 65 24 29  | Z%=.(playname$)|
00003320  0d 14 46 10 20 e3 20 58  25 3d 31 20 b8 20 5a 25  |..F. . X%=1 . Z%|
00003330  0d 14 50 18 20 54 24 3d  c1 70 6c 61 79 6e 61 6d  |..P. T$=.playnam|
00003340  65 24 2c 58 25 2c 31 29  0d 14 5a 0e 20 5a 31 25  |e$,X%,1)..Z. Z1%|
00003350  3d 97 28 54 24 29 0d 14  64 0b 20 c8 8e 20 b9 20  |=.(T$)..d. .. . |
00003360  ca 0d 14 6e 21 20 c9 20  5a 31 25 3c 34 38 20 3a  |...n! . Z1%<48 :|
00003370  c1 70 6c 61 79 6e 61 6d  65 24 2c 58 25 29 3d 22  |.playname$,X%)="|
00003380  3f 22 0d 14 78 2a 20 c9  20 5a 31 25 3e 35 37 20  |?"..x* . Z1%>57 |
00003390  80 20 5a 31 25 3c 36 35  20 3a c1 70 6c 61 79 6e  |. Z1%<65 :.playn|
000033a0  61 6d 65 24 2c 58 25 29  3d 22 3f 22 0d 14 82 2a  |ame$,X%)="?"...*|
000033b0  20 c9 20 5a 31 25 3e 39  30 20 80 20 5a 31 25 3c  | . Z1%>90 . Z1%<|
000033c0  39 37 20 3a c1 70 6c 61  79 6e 61 6d 65 24 2c 58  |97 :.playname$,X|
000033d0  25 29 3d 22 3f 22 0d 14  8c 22 20 c9 20 5a 31 25  |%)="?"..." . Z1%|
000033e0  3e 31 32 32 20 3a c1 70  6c 61 79 6e 61 6d 65 24  |>122 :.playname$|
000033f0  2c 58 25 29 3d 22 3f 22  0d 14 96 06 20 cb 0d 14  |,X%)="?".... ...|
00003400  a0 06 20 ed 0d 14 aa 06  20 e1 0d 14 b4 05 3a 0d  |.. ..... .....:.|
00003410  14 be 14 20 dd f2 70 6c  6f 74 5f 75 73 65 72 6e  |... ..plot_usern|
00003420  61 6d 65 0d 14 c8 20 20  ea 20 4c 25 2c 6c 65 6e  |ame...  . L%,len|
00003430  67 74 68 25 2c 70 24 2c  6c 31 25 2c 6c 33 25 2c  |gth%,p$,l1%,l3%,|
00003440  6c 34 25 0d 14 d2 19 20  6c 65 6e 67 74 68 25 3d  |l4%.... length%=|
00003450  a9 28 70 6c 61 79 6e 61  6d 65 24 29 0d 14 dc 2f  |.(playname$).../|
00003460  20 e7 20 6c 65 6e 67 74  68 25 3d 30 20 8c 20 70  | . length%=0 . p|
00003470  6c 61 79 6e 61 6d 65 24  3d 22 70 6c 61 79 65 72  |layname$="player|
00003480  22 3a 6c 65 6e 67 74 68  25 3d 36 0d 14 e6 40 20  |":length%=6...@ |
00003490  e7 20 6c 65 6e 67 74 68  25 3e 31 30 20 8c 20 70  |. length%>10 . p|
000034a0  24 3d c0 70 6c 61 79 6e  61 6d 65 24 2c 31 30 29  |$=.playname$,10)|
000034b0  3a c8 94 20 70 24 2c 70  6c 61 79 6e 61 6d 65 24  |:.. p$,playname$|
000034c0  3a 6c 65 6e 67 74 68 25  3d 31 30 0d 14 f0 10 20  |:length%=10.... |
000034d0  f2 6e 61 6d 65 5f 63 68  65 63 6b 0d 14 fa 29 20  |.name_check...) |
000034e0  4c 25 3d 6c 65 6e 67 74  68 25 2a 33 32 3a 6c 31  |L%=length%*32:l1|
000034f0  25 3d 4c 25 20 81 20 32  3a 6c 32 25 3d 36 31 30  |%=L% . 2:l2%=610|
00003500  2d 6c 31 25 0d 15 04 22  20 f2 70 6c 6f 74 5f 74  |-l1%..." .plot_t|
00003510  65 78 74 28 6c 32 25 2c  34 32 36 2c 70 6c 61 79  |ext(l2%,426,play|
00003520  6e 61 6d 65 24 29 0d 15  0e 30 20 6c 33 25 3d 6c  |name$)...0 l3%=l|
00003530  32 25 2d 33 32 3a 6c 34  25 3d 4c 25 2b 36 34 3a  |2%-32:l4%=L%+64:|
00003540  f2 72 69 64 67 65 28 6c  33 25 2c 34 31 39 2c 35  |.ridge(l3%,419,5|
00003550  34 2c 6c 34 25 29 0d 15  18 06 20 e1 0d 15 22 05  |4,l4%).... ...".|
00003560  3a 0d 15 2c 10 20 dd f2  64 72 61 77 73 74 61 72  |:..,. ..drawstar|
00003570  74 0d 15 36 23 20 e6 30  2c 34 32 20 c8 9c 20 30  |t..6# .0,42 .. 0|
00003580  20 3a c8 93 20 c8 90 20  30 2c 34 31 36 2c 39 37  | :.. .. 0,416,97|
00003590  30 2c 36 34 0d 15 40 24  20 f2 70 6c 6f 74 5f 74  |0,64..@$ .plot_t|
000035a0  65 78 74 28 33 30 2c 34  32 36 2c 22 20 43 4f 4d  |ext(30,426," COM|
000035b0  50 55 54 45 52 20 22 29  0d 15 4a 1a 20 f2 72 69  |PUTER ")..J. .ri|
000035c0  64 67 65 28 32 34 2c 34  31 39 2c 35 34 2c 33 31  |dge(24,419,54,31|
000035d0  32 29 0d 15 54 16 20 f2  72 3a f2 70 6c 6f 74 5f  |2)..T. .r:.plot_|
000035e0  75 73 65 72 6e 61 6d 65  0d 15 5e 14 20 f2 72 65  |username..^. .re|
000035f0  73 65 74 5f 67 72 61 70  68 69 63 73 0d 15 68 06  |set_graphics..h.|
00003600  20 e1 0d 15 72 05 3a 0d  15 7c 0f 20 dd f2 6c 69  | ...r.:..|. ..li|
00003610  67 68 74 28 46 29 0d 15  86 0c 20 ea 20 41 24 2c  |ght(F).... . A$,|
00003620  42 24 0d 15 90 18 20 41  24 3d 22 47 45 4d 42 22  |B$.... A$="GEMB"|
00003630  3a 42 24 3d 22 47 45 4d  44 22 0d 15 9a 0b 20 c8  |:B$="GEMD".... .|
00003640  8e 20 46 20 ca 0d 15 a4  41 20 c9 20 30 20 3a e3  |. F ....A . 0 :.|
00003650  20 58 44 3d 31 20 b8 20  35 3a c8 99 26 32 45 2c  | XD=1 . 5:..&2E,|
00003660  32 39 30 2c 73 70 2c 41  24 2c 37 34 35 2c 35 31  |290,sp,A$,745,51|
00003670  36 2b 28 33 32 2a 58 44  29 2c 30 3a ed 3a 6c 69  |6+(32*XD),0:.:li|
00003680  66 6c 61 67 3d 30 0d 15  ae 33 20 c9 20 31 20 3a  |flag=0...3 . 1 :|
00003690  c8 99 26 32 45 2c 32 39  30 2c 73 70 2c 22 47 45  |..&2E,290,sp,"GE|
000036a0  4d 44 22 2c 37 34 35 2c  37 30 38 2d 28 6c 69 66  |MD",745,708-(lif|
000036b0  6c 61 67 2a 33 32 29 2c  30 0d 15 b8 54 20 c9 20  |lag*32),0...T . |
000036c0  32 20 3a e3 58 3d 31 20  b8 20 31 30 3a c8 94 41  |2 :.X=1 . 10:..A|
000036d0  24 2c 42 24 3a c8 99 26  32 45 2c 32 39 30 2c 73  |$,B$:..&2E,290,s|
000036e0  70 2c 41 24 2c 37 34 35  2c 36 37 36 2d 28 33 32  |p,A$,745,676-(32|
000036f0  2a 34 29 2c 30 3a 49 3d  a6 28 31 30 29 3a ed 3a  |*4),0:I=.(10):.:|
00003700  6c 69 66 6c 61 67 3d 30  3a 6b 62 3d 31 0d 15 c2  |liflag=0:kb=1...|
00003710  06 20 cb 0d 15 cc 2e 20  6c 69 66 6c 61 67 2b 3d  |. ..... liflag+=|
00003720  31 3a 6c 69 76 65 73 25  2d 3d 31 3a e7 20 6c 69  |1:lives%-=1:. li|
00003730  66 6c 61 67 3e 35 20 8c  20 6c 69 66 6c 61 67 3d  |flag>5 . liflag=|
00003740  30 0d 15 d6 06 20 e1 0d  15 e0 05 3a 0d 15 ea 0c  |0.... .....:....|
00003750  20 dd f2 63 68 65 63 6b  0d 15 f4 26 20 e7 20 77  | ..check...& . w|
00003760  6f 72 64 25 3d 6c 65 6e  67 74 68 25 20 8c 20 67  |ord%=length% . g|
00003770  61 6d 65 72 75 6e 25 3d  30 3a f2 77 69 6e 0d 15  |amerun%=0:.win..|
00003780  fe 22 20 e7 20 6c 69 76  65 73 25 3d 31 20 80 20  |." . lives%=1 . |
00003790  6b 62 3d 30 20 8c 20 f2  6c 61 73 74 6c 69 66 65  |kb=0 . .lastlife|
000037a0  0d 16 08 23 20 e7 20 6c  69 76 65 73 25 3c 3d 30  |...# . lives%<=0|
000037b0  20 8c 20 67 61 6d 65 72  75 6e 25 3d 31 3a f2 6c  | . gamerun%=1:.l|
000037c0  6f 73 65 0d 16 12 06 20  e1 0d 16 1c 05 3a 0d 16  |ose.... .....:..|
000037d0  26 14 20 dd f2 6c 74 74  72 28 6c 65 74 24 2c 6b  |&. ..lttr(let$,k|
000037e0  65 29 0d 16 30 0c 20 ea  20 41 25 2c 6b 74 0d 16  |e)..0. . A%,kt..|
000037f0  3a 1b 20 66 6f 75 6e 64  3d 30 3a 6c 65 74 31 24  |:. found=0:let1$|
00003800  3d 6c 65 74 24 2b 22 6c  22 0d 16 44 14 20 e3 20  |=let$+"l"..D. . |
00003810  66 3d 31 20 b8 20 6c 65  6e 67 74 68 25 0d 16 4e  |f=1 . length%..N|
00003820  18 20 41 25 3d a7 73 65  6c 65 63 74 24 2c 6c 65  |. A%=.select$,le|
00003830  74 24 2c 66 29 0d 16 58  53 20 e7 20 41 25 3e 30  |t$,f)..XS . A%>0|
00003840  20 80 20 66 3d 41 25 20  80 20 6b 65 79 25 28 6b  | . f=A% . key%(k|
00003850  65 29 3d 30 20 8c 20 f2  64 69 73 70 6c 61 79 6c  |e)=0 . .displayl|
00003860  65 74 74 65 72 28 6c 65  74 31 24 2c 41 25 2c 30  |etter(let1$,A%,0|
00003870  29 3a 77 6f 72 64 25 2b  3d 31 3a 77 6f 72 64 66  |):word%+=1:wordf|
00003880  6f 72 6d 28 66 29 3d 31  0d 16 62 06 20 ed 0d 16  |orm(f)=1..b. ...|
00003890  6c 30 20 e7 20 66 6f 75  6e 64 3d 30 20 80 20 6c  |l0 . found=0 . l|
000038a0  65 76 65 6c 3d 30 20 8c  20 f2 73 63 6f 72 65 28  |evel=0 . .score(|
000038b0  2d 31 29 3a f2 6c 69 67  68 74 73 28 31 29 0d 16  |-1):.lights(1)..|
000038c0  76 30 20 e7 20 66 6f 75  6e 64 3d 30 20 80 20 6c  |v0 . found=0 . l|
000038d0  65 76 65 6c 3d 31 20 8c  20 f2 73 63 6f 72 65 28  |evel=1 . .score(|
000038e0  2d 33 29 3a f2 6c 69 67  68 74 73 28 31 29 0d 16  |-3):.lights(1)..|
000038f0  80 06 20 e1 0d 16 8a 05  3a 0d 16 94 0f 20 dd f2  |.. .....:.... ..|
00003900  6c 61 73 74 6c 69 66 65  0d 16 a8 19 20 f2 73 6f  |lastlife.... .so|
00003910  75 6e 64 28 22 4c 41 53  54 4c 49 46 45 22 2c 30  |und("LASTLIFE",0|
00003920  29 0d 16 b2 22 20 f2 6c  69 67 68 74 73 28 32 29  |)..." .lights(2)|
00003930  3a 6c 69 76 65 73 25 2b  3d 31 3a 6c 69 66 6c 61  |:lives%+=1:lifla|
00003940  67 3d 35 0d 16 bc 06 20  e1 0d 16 c6 05 3a 0d 16  |g=5.... .....:..|
00003950  d0 0b 20 dd f2 67 61 6d  65 0d 16 da 1c 20 67 61  |.. ..game.... ga|
00003960  6d 65 72 75 6e 25 3d 31  3a 77 6f 72 64 66 6f 72  |merun%=1:wordfor|
00003970  6d 28 29 3d 30 0d 16 e4  22 20 6c 69 76 65 73 25  |m()=0..." lives%|
00003980  3d 36 3a 6b 62 3d 30 3a  f2 72 65 73 65 74 5f 67  |=6:kb=0:.reset_g|
00003990  72 61 70 68 69 63 73 0d  16 ee 0a 20 f2 70 6c 61  |raphics.... .pla|
000039a0  79 0d 16 f8 23 20 f2 73  6c 61 62 28 39 38 30 2c  |y...# .slab(980,|
000039b0  33 30 30 2c 32 37 39 2c  39 30 2c 31 2c 22 70 6c  |300,279,90,1,"pl|
000039c0  61 79 22 29 0d 17 02 1f  20 f2 73 6c 61 62 28 34  |ay").... .slab(4|
000039d0  30 2c 33 30 30 2c 39 30  30 2c 31 30 30 2c 31 2c  |0,300,900,100,1,|
000039e0  22 22 29 0d 17 0c 0c 20  f2 6b 65 79 70 61 64 0d  |"").... .keypad.|
000039f0  17 16 2f 20 f2 63 68 6f  6f 73 65 77 6f 72 64 3a  |../ .chooseword:|
00003a00  e7 20 61 64 76 65 25 3d  30 20 8c 20 f2 64 61 73  |. adve%=0 . .das|
00003a10  68 20 8b 20 67 61 6d 65  72 75 6e 25 3d 30 0d 17  |h . gamerun%=0..|
00003a20  20 12 20 c8 95 20 67 61  6d 65 72 75 6e 25 3d 31  | . .. gamerun%=1|
00003a30  0d 17 2a 14 20 f5 3a 69  3d a6 28 30 29 3a fd 20  |..*. .:i=.(0):. |
00003a40  69 3d 2d 31 0d 17 34 1b  20 c8 99 20 26 31 35 2c  |i=-1..4. .. &15,|
00003a50  32 31 2c 30 3a c8 99 26  31 35 2c 32 31 2c 39 0d  |21,0:..&15,21,9.|
00003a60  17 3e 13 20 6d 62 25 3d  30 3a 6b 65 79 70 25 3d  |.>. mb%=0:keyp%=|
00003a70  2d 31 0d 17 48 1a 20 f5  3a c8 99 20 26 30 36 2c  |-1..H. .:.. &06,|
00003a80  32 30 32 2c 25 30 30 30  30 30 2c 30 0d 17 52 0f  |202,%00000,0..R.|
00003a90  20 6b 65 79 70 25 3d a6  28 30 29 0d 17 5c 20 20  | keyp%=.(0)..\  |
00003aa0  e7 20 6b 65 79 70 25 3d  2d 31 20 8c 20 c8 97 20  |. keyp%=-1 . .. |
00003ab0  6d 78 25 2c 6d 79 25 2c  6d 62 25 0d 17 66 17 20  |mx%,my%,mb%..f. |
00003ac0  fd 20 6d 62 25 3d 34 20  84 20 6b 65 79 70 25 3e  |. mb%=4 . keyp%>|
00003ad0  2d 31 0d 17 70 37 20 e7  20 6d 62 25 3d 34 20 8c  |-1..p7 . mb%=4 .|
00003ae0  20 f2 64 65 63 6f 64 65  28 6d 62 25 29 20 8b 20  | .decode(mb%) . |
00003af0  52 24 3d bd 28 6b 65 79  70 25 29 3a f2 6b 65 79  |R$=.(keyp%):.key|
00003b00  70 72 65 73 73 28 52 24  29 0d 17 7a 0b 20 f2 63  |press(R$)..z. .c|
00003b10  68 65 63 6b 0d 17 84 06  20 ce 0d 17 8e 14 20 f5  |heck.... ..... .|
00003b20  3a 69 3d a6 28 30 29 3a  fd 20 69 3d 2d 31 0d 17  |:i=.(0):. i=-1..|
00003b30  98 27 20 ef 32 36 3a f2  73 6c 61 62 28 39 38 30  |.' .26:.slab(980|
00003b40  2c 33 30 30 2c 32 37 39  2c 39 30 2c 30 2c 22 70  |,300,279,90,0,"p|
00003b50  6c 61 79 22 29 0d 17 a2  06 20 e1 0d 17 ac 05 3a  |lay").... .....:|
00003b60  0d 17 b6 0d 20 dd f2 61  64 76 69 73 65 0d 17 c0  |.... ..advise...|
00003b70  12 20 ea 20 58 25 2c 59  25 2c 5a 25 2c 41 25 0d  |. . X%,Y%,Z%,A%.|
00003b80  17 ca 2d 20 ec 20 30 2c  34 38 32 3a ec 20 39 36  |..- . 0,482:. 96|
00003b90  36 2c 31 30 32 33 3a c8  99 26 32 45 2c 32 37 30  |6,1023:..&2E,270|
00003ba0  2c 73 70 2c 22 74 61 62  6b 22 2c 30 0d 17 d4 1a  |,sp,"tabk",0....|
00003bb0  20 ef 32 34 2c 30 3b 34  38 34 3b 39 36 34 3b 31  | .24,0;484;964;1|
00003bc0  30 32 30 3b 3a da 0d 17  de 2d 20 f2 64 72 6f 70  |020;:....- .drop|
00003bd0  74 65 78 74 28 33 30 30  2c 39 38 30 2c 22 41 74  |text(300,980,"At|
00003be0  74 65 6e 74 69 6f 6e 22  2c 33 2c 32 35 35 2c 32  |tention",3,255,2|
00003bf0  2c 30 29 0d 17 e8 3e 20  f2 64 72 6f 70 74 65 78  |,0)...> .droptex|
00003c00  74 28 31 30 2c 39 30 30  2c 22 41 6c 6c 20 77 6f  |t(10,900,"All wo|
00003c10  72 64 73 20 68 61 76 65  20 62 65 65 6e 20 75 73  |rds have been us|
00003c20  65 64 2e 22 2c 34 38 2c  31 39 32 2c 33 32 2c 30  |ed.",48,192,32,0|
00003c30  29 0d 17 f2 2e 20 f2 64  72 6f 70 74 65 78 74 28  |).... .droptext(|
00003c40  32 30 2c 38 34 30 2c 22  45 69 74 68 65 72 20 3a  |20,840,"Either :|
00003c50  2d 22 2c 34 38 2c 31 39  32 2c 33 32 2c 30 29 0d  |-",48,192,32,0).|
00003c60  17 fc 40 20 f2 64 72 6f  70 74 65 78 74 28 36 30  |..@ .droptext(60|
00003c70  2c 38 30 30 2c 22 8f 20  43 6c 69 63 6b 20 6f 6e  |,800,". Click on|
00003c80  20 72 65 73 65 74 20 74  6f 20 72 65 2d 75 73 65  | reset to re-use|
00003c90  20 22 2c 34 38 2c 31 39  32 2c 33 32 2c 30 29 0d  | ",48,192,32,0).|
00003ca0  18 06 3b 20 f2 64 72 6f  70 74 65 78 74 28 36 30  |..; .droptext(60|
00003cb0  2c 37 36 30 2c 22 20 20  74 68 69 73 20 44 69 63  |,760,"  this Dic|
00003cc0  74 69 6f 6e 61 72 79 20  20 20 6f 72 22 2c 34 38  |tionary   or",48|
00003cd0  2c 31 39 32 2c 33 32 2c  30 29 0d 18 10 42 20 f2  |,192,32,0)...B .|
00003ce0  64 72 6f 70 74 65 78 74  28 36 30 2c 37 30 30 2c  |droptext(60,700,|
00003cf0  22 8f 20 43 6c 69 63 6b  20 6f 6e 20 27 4f 4b 27  |". Click on 'OK'|
00003d00  20 61 6e 64 20 75 73 65  20 6c 6f 61 64 20 22 2c  | and use load ",|
00003d10  34 38 2c 31 39 32 2c 33  32 2c 30 29 0d 18 1a 39  |48,192,32,0)...9|
00003d20  20 f2 64 72 6f 70 74 65  78 74 28 36 30 2c 36 36  | .droptext(60,66|
00003d30  30 2c 22 20 20 66 72 6f  6d 20 74 68 65 20 6d 61  |0,"  from the ma|
00003d40  69 6e 20 6d 65 6e 75 22  2c 34 38 2c 31 39 32 2c  |in menu",48,192,|
00003d50  33 32 2c 30 29 0d 18 24  3b 20 f2 73 6c 61 62 28  |32,0)..$; .slab(|
00003d60  32 30 30 2c 35 30 30 2c  32 30 30 2c 37 34 2c 30  |200,500,200,74,0|
00003d70  2c 22 22 29 3a f2 70 6c  6f 74 5f 74 65 78 74 28  |,""):.plot_text(|
00003d80  32 31 38 2c 35 31 38 2c  22 52 45 53 45 54 22 29  |218,518,"RESET")|
00003d90  0d 18 2e 3c 20 f2 73 6c  61 62 28 36 30 30 2c 35  |...< .slab(600,5|
00003da0  30 30 2c 32 30 30 2c 37  34 2c 30 2c 22 22 29 3a  |00,200,74,0,""):|
00003db0  f2 70 6c 6f 74 5f 74 65  78 74 28 36 31 38 2c 35  |.plot_text(618,5|
00003dc0  31 38 2c 22 20 20 20 4f  4b 20 22 29 0d 18 38 09  |18,"   OK ")..8.|
00003dd0  20 41 25 3d 30 0d 18 42  0e 20 ef 34 3a 87 3a f2  | A%=0..B. .4:.:.|
00003de0  6d 3a f5 0d 18 4c 1d 20  f5 3a c8 97 20 6d 78 25  |m:...L. .:.. mx%|
00003df0  2c 6d 79 25 2c 6d 62 25  3a fd 20 6d 62 25 3d 34  |,my%,mb%:. mb%=4|
00003e00  0d 18 56 78 20 e7 20 a4  69 6e 62 6f 78 28 32 30  |..Vx . .inbox(20|
00003e10  30 2c 35 30 30 2c 34 30  30 2c 35 37 34 29 3a 41  |0,500,400,574):A|
00003e20  25 3d 31 3a f2 73 6c 61  62 28 32 30 30 2c 35 30  |%=1:.slab(200,50|
00003e30  30 2c 32 30 30 2c 37 34  2c 31 2c 22 22 29 3a f2  |0,200,74,1,""):.|
00003e40  70 6c 6f 74 5f 74 65 78  74 28 32 31 38 2c 35 31  |plot_text(218,51|
00003e50  38 2c 22 52 45 53 45 54  22 29 3a 61 64 76 65 25  |8,"RESET"):adve%|
00003e60  3d 30 3a 75 73 65 64 77  6f 72 64 25 3d 30 3a 77  |=0:usedword%=0:w|
00003e70  6f 72 64 25 28 29 3d 30  0d 18 60 63 20 e7 20 a4  |ord%()=0..`c . .|
00003e80  69 6e 62 6f 78 28 36 30  30 2c 35 30 30 2c 38 30  |inbox(600,500,80|
00003e90  30 2c 35 37 34 29 3a 41  25 3d 31 3a f2 73 6c 61  |0,574):A%=1:.sla|
00003ea0  62 28 36 30 30 2c 35 30  30 2c 32 30 30 2c 37 34  |b(600,500,200,74|
00003eb0  2c 31 2c 22 22 29 3a f2  70 6c 6f 74 5f 74 65 78  |,1,""):.plot_tex|
00003ec0  74 28 36 31 38 2c 35 31  38 2c 22 20 20 20 4f 4b  |t(618,518,"   OK|
00003ed0  20 22 29 3a 61 64 76 65  25 3d 31 0d 18 6a 0b 20  | "):adve%=1..j. |
00003ee0  fd 20 41 25 3e 30 0d 18  74 0c 20 49 3d a6 28 33  |. A%>0..t. I=.(3|
00003ef0  30 29 0d 18 7e 08 20 ef  32 36 0d 18 88 34 20 c8  |0)..~. .26...4 .|
00003f00  99 26 32 45 2c 32 39 30  2c 73 70 2c 22 74 61 62  |.&2E,290,sp,"tab|
00003f10  6b 22 2c 30 2c 34 38 32  2c 30 3a c8 99 26 32 45  |k",0,482,0:..&2E|
00003f20  2c 32 38 31 2c 73 70 2c  22 74 61 62 6b 22 0d 18  |,281,sp,"tabk"..|
00003f30  92 06 20 e1 0d 18 9c 06  20 3a 0d 18 a6 2b 20 dd  |.. ..... :...+ .|
00003f40  f2 64 72 6f 70 74 65 78  74 28 78 2c 79 2c 73 24  |.droptext(x,y,s$|
00003f50  2c 63 6f 6c 31 25 2c 74  31 25 2c 63 6f 6c 32 25  |,col1%,t1%,col2%|
00003f60  2c 74 31 25 29 0d 18 b0  09 20 ef 35 3a 87 0d 18  |,t1%).... .5:...|
00003f70  ba 14 20 e6 30 2c 63 6f  6c 32 25 20 c8 9c 20 74  |.. .0,col2% .. t|
00003f80  32 25 0d 18 c4 0f 20 ec  20 78 2c 79 3a f1 20 73  |2%.... . x,y:. s|
00003f90  24 0d 18 ce 14 20 e6 30  2c 63 6f 6c 31 25 20 c8  |$.... .0,col1% .|
00003fa0  9c 20 74 31 25 0d 18 d8  12 20 ec 20 78 2b 34 2c  |. t1%.... . x+4,|
00003fb0  79 2d 34 3a f1 73 24 0d  18 e2 09 20 ef 34 3a 87  |y-4:.s$.... .4:.|
00003fc0  0d 18 ec 06 20 e1 0d 18  f6 05 3a 0d 19 00 10 20  |.... .....:.... |
00003fd0  dd f2 73 75 72 72 65 6e  64 65 72 0d 19 0a 12 20  |..surrender.... |
00003fe0  ea 20 58 25 2c 59 25 2c  5a 25 2c 41 25 0d 19 14  |. X%,Y%,Z%,A%...|
00003ff0  2d 20 ec 20 30 2c 34 38  32 3a ec 20 39 36 36 2c  |- . 0,482:. 966,|
00004000  31 30 32 33 3a c8 99 26  32 45 2c 32 37 30 2c 73  |1023:..&2E,270,s|
00004010  70 2c 22 74 61 62 6b 22  2c 30 0d 19 1e 1a 20 ef  |p,"tabk",0.... .|
00004020  32 34 2c 30 3b 34 38 34  3b 39 36 34 3b 31 30 32  |24,0;484;964;102|
00004030  30 3b 3a da 0d 19 28 2d  20 f2 64 72 6f 70 74 65  |0;:...(- .dropte|
00004040  78 74 28 33 30 30 2c 39  38 30 2c 22 53 75 72 72  |xt(300,980,"Surr|
00004050  65 6e 64 65 72 22 2c 33  2c 32 35 35 2c 32 2c 30  |ender",3,255,2,0|
00004060  29 0d 19 32 38 20 f2 64  72 6f 70 74 65 78 74 28  |)..28 .droptext(|
00004070  31 30 2c 39 30 30 2c 22  59 6f 75 20 68 61 76 65  |10,900,"You have|
00004080  20 73 63 6f 72 65 64 20  74 68 65 22 2c 34 38 2c  | scored the",48,|
00004090  31 39 32 2c 33 32 2c 30  29 0d 19 3c 36 20 f2 64  |192,32,0)..<6 .d|
000040a0  72 6f 70 74 65 78 74 28  32 30 2c 38 36 30 2c 22  |roptext(20,860,"|
000040b0  6d 61 78 69 6d 75 6d 20  70 6f 73 73 69 62 6c 65  |maximum possible|
000040c0  2e 22 2c 34 38 2c 31 39  32 2c 33 32 2c 30 29 0d  |.",48,192,32,0).|
000040d0  19 46 3d 20 f2 64 72 6f  70 74 65 78 74 28 36 30  |.F= .droptext(60|
000040e0  2c 38 30 30 2c 22 8f 20  43 6c 69 63 6b 20 6f 6e  |,800,". Click on|
000040f0  20 71 75 69 74 20 74 6f  20 73 74 6f 70 20 22 2c  | quit to stop ",|
00004100  34 38 2c 31 39 32 2c 33  32 2c 30 29 0d 19 50 33  |48,192,32,0)..P3|
00004110  20 f2 64 72 6f 70 74 65  78 74 28 36 30 2c 37 36  | .droptext(60,76|
00004120  30 2c 22 20 20 70 6c 61  79 69 6e 67 20 20 20 6f  |0,"  playing   o|
00004130  72 22 2c 34 38 2c 31 39  32 2c 33 32 2c 30 29 0d  |r",48,192,32,0).|
00004140  19 5a 40 20 f2 64 72 6f  70 74 65 78 74 28 36 30  |.Z@ .droptext(60|
00004150  2c 37 30 30 2c 22 8f 20  43 6c 69 63 6b 20 6f 6e  |,700,". Click on|
00004160  20 27 70 6c 61 79 27 20  74 6f 20 72 65 73 65 74  | 'play' to reset|
00004170  20 22 2c 34 38 2c 31 39  32 2c 33 32 2c 30 29 0d  | ",48,192,32,0).|
00004180  19 64 3b 20 f2 64 72 6f  70 74 65 78 74 28 36 30  |.d; .droptext(60|
00004190  2c 36 36 30 2c 22 20 20  73 63 6f 72 65 73 20 61  |,660,"  scores a|
000041a0  6e 64 20 63 6f 6e 74 69  6e 75 65 20 22 2c 34 38  |nd continue ",48|
000041b0  2c 31 39 32 2c 33 32 2c  30 29 0d 19 6e 3a 20 f2  |,192,32,0)..n: .|
000041c0  73 6c 61 62 28 32 30 30  2c 35 30 30 2c 32 30 30  |slab(200,500,200|
000041d0  2c 37 34 2c 30 2c 22 22  29 3a f2 70 6c 6f 74 5f  |,74,0,""):.plot_|
000041e0  74 65 78 74 28 32 31 38  2c 35 31 38 2c 22 50 6c  |text(218,518,"Pl|
000041f0  61 79 22 29 0d 19 78 3a  20 f2 73 6c 61 62 28 36  |ay")..x: .slab(6|
00004200  30 30 2c 35 30 30 2c 32  30 30 2c 37 34 2c 30 2c  |00,500,200,74,0,|
00004210  22 22 29 3a f2 70 6c 6f  74 5f 74 65 78 74 28 36  |""):.plot_text(6|
00004220  31 38 2c 35 31 38 2c 22  51 75 69 74 22 29 0d 19  |18,518,"Quit")..|
00004230  82 09 20 41 25 3d 30 0d  19 8c 0e 20 ef 34 3a 87  |.. A%=0.... .4:.|
00004240  3a f2 6d 3a f5 0d 19 96  1d 20 f5 3a c8 97 20 6d  |:.m:..... .:.. m|
00004250  78 25 2c 6d 79 25 2c 6d  62 25 3a fd 20 6d 62 25  |x%,my%,mb%:. mb%|
00004260  3d 34 0d 19 a0 64 20 e7  20 a4 69 6e 62 6f 78 28  |=4...d . .inbox(|
00004270  32 30 30 2c 35 30 30 2c  34 30 30 2c 35 37 34 29  |200,500,400,574)|
00004280  3a 41 25 3d 31 3a f2 73  6c 61 62 28 32 30 30 2c  |:A%=1:.slab(200,|
00004290  35 30 30 2c 32 30 30 2c  37 34 2c 31 2c 22 22 29  |500,200,74,1,"")|
000042a0  3a f2 70 6c 6f 74 5f 74  65 78 74 28 32 31 38 2c  |:.plot_text(218,|
000042b0  35 31 38 2c 22 70 6c 61  79 22 29 3a f2 73 63 6f  |518,"play"):.sco|
000042c0  72 65 28 30 29 3a 0d 19  aa 73 20 e7 20 a4 69 6e  |re(0):...s . .in|
000042d0  62 6f 78 28 36 30 30 2c  35 30 30 2c 38 30 30 2c  |box(600,500,800,|
000042e0  35 37 34 29 3a 41 25 3d  31 3a f2 73 6c 61 62 28  |574):A%=1:.slab(|
000042f0  36 30 30 2c 35 30 30 2c  32 30 30 2c 37 34 2c 31  |600,500,200,74,1|
00004300  2c 22 22 29 3a f2 70 6c  6f 74 5f 74 65 78 74 28  |,""):.plot_text(|
00004310  36 31 38 2c 35 31 38 2c  22 71 75 69 74 22 29 3a  |618,518,"quit"):|
00004320  73 75 72 25 3d 31 3a 67  61 6d 65 72 75 6e 25 3d  |sur%=1:gamerun%=|
00004330  30 3a 71 75 69 74 25 3d  32 0d 19 b4 0b 20 fd 20  |0:quit%=2.... . |
00004340  41 25 3e 30 0d 19 be 10  20 49 3d a6 28 33 30 29  |A%>0.... I=.(30)|
00004350  3a ef 32 36 0d 19 c8 34  20 c8 99 26 32 45 2c 32  |:.26...4 ..&2E,2|
00004360  39 30 2c 73 70 2c 22 74  61 62 6b 22 2c 30 2c 34  |90,sp,"tabk",0,4|
00004370  38 32 2c 30 3a c8 99 26  32 45 2c 32 38 31 2c 73  |82,0:..&2E,281,s|
00004380  70 2c 22 74 61 62 6b 22  0d 19 d2 06 20 e1 0d 19  |p,"tabk".... ...|
00004390  dc 05 3a 0d 19 e6 0d 20  dd f2 6f 70 74 28 78 29  |..:.... ..opt(x)|
000043a0  0d 19 f0 0b 20 c8 8e 20  78 20 ca 0d 19 fa 4d 20  |.... .. x ....M |
000043b0  c9 20 31 3a c8 99 26 32  45 2c 32 39 30 2c 73 70  |. 1:..&2E,290,sp|
000043c0  2c 22 74 69 63 6b 22 2c  34 39 30 2c 31 39 34 2c  |,"tick",490,194,|
000043d0  30 3a c8 99 26 32 45 2c  32 39 30 2c 73 70 2c 22  |0:..&2E,290,sp,"|
000043e0  6e 6f 74 69 63 6b 22 2c  39 34 33 2c 31 39 34 2c  |notick",943,194,|
000043f0  30 3a 73 65 78 25 3d 31  0d 1a 04 4d 20 c9 20 32  |0:sex%=1...M . 2|
00004400  3a c8 99 26 32 45 2c 32  39 30 2c 73 70 2c 22 6e  |:..&2E,290,sp,"n|
00004410  6f 74 69 63 6b 22 2c 34  39 30 2c 31 39 34 2c 30  |otick",490,194,0|
00004420  3a c8 99 26 32 45 2c 32  39 30 2c 73 70 2c 22 74  |:..&2E,290,sp,"t|
00004430  69 63 6b 22 2c 39 34 33  2c 31 39 34 2c 30 3a 73  |ick",943,194,0:s|
00004440  65 78 25 3d 32 0d 1a 0e  06 20 cb 0d 1a 18 06 20  |ex%=2.... ..... |
00004450  e1 0d 1a 22 05 3a 0d 1a  2c 13 20 dd f2 74 69 74  |...".:..,. ..tit|
00004460  6c 65 5f 61 70 70 65 61  72 0d 1a 36 0e 20 e3 20  |le_appear..6. . |
00004470  54 3d 31 20 b8 20 32 0d  1a 40 29 20 e7 20 54 3d  |T=1 . 2..@) . T=|
00004480  31 20 8c 20 65 74 24 3d  22 41 52 43 57 4f 52 4c  |1 . et$="ARCWORL|
00004490  44 22 20 8b 20 65 74 24  3d 22 67 6c 6f 6f 70 22  |D" . et$="gloop"|
000044a0  0d 1a 4a 14 20 e3 20 4c  3d 30 20 b8 20 31 33 32  |..J. . L=0 . 132|
000044b0  20 88 20 32 0d 1a 54 1c  20 ef 32 34 2c 31 38 30  | . 2..T. .24,180|
000044c0  3b 38 31 32 3b 31 32 37  39 3b 38 31 32 2b 4c 3b  |;812;1279;812+L;|
000044d0  0d 1a 5e 27 20 c8 99 26  32 45 2c 32 39 30 2c 73  |..^' ..&2E,290,s|
000044e0  70 2c 65 74 24 2c 31 38  30 2c 28 38 31 32 2d 32  |p,et$,180,(812-2|
000044f0  36 34 29 2b 4c 2c 30 0d  1a 68 1c 20 ef 32 34 2c  |64)+L,0..h. .24,|
00004500  31 38 30 3b 38 31 32 2d  4c 3b 31 32 37 30 3b 38  |180;812-L;1270;8|
00004510  31 30 3b 0d 1a 72 23 20  c8 99 26 32 45 2c 32 39  |10;..r# ..&2E,29|
00004520  30 2c 73 70 2c 65 74 24  2c 31 38 30 2c 28 38 31  |0,sp,et$,180,(81|
00004530  32 2d 4c 29 2c 30 0d 1a  7c 0b 20 41 3d a6 28 32  |2-L),0..|. A=.(2|
00004540  29 0d 1a 86 06 20 ed 0d  1a 90 29 20 e7 20 54 3d  |).... ....) . T=|
00004550  31 20 8c 20 ef 35 3a ef  32 36 3a ec 20 35 33 38  |1 . .5:.26:. 538|
00004560  2c 36 33 30 3a f1 22 50  72 65 73 65 6e 74 73 22  |,630:."Presents"|
00004570  0d 1a 9a 22 20 e7 20 54  3d 31 20 8c 20 49 3d a6  |..." . T=1 . I=.|
00004580  28 32 30 30 29 3a f2 63  6c 6f 73 65 5f 74 69 74  |(200):.close_tit|
00004590  6c 65 0d 1a a4 06 20 ed  0d 1a ae 1d 20 c8 99 20  |le.... ..... .. |
000045a0  26 32 45 2c 32 38 31 2c  73 70 2c 22 41 52 43 57  |&2E,281,sp,"ARCW|
000045b0  4f 52 4c 44 22 0d 1a b8  06 20 e1 0d 1a c2 05 3a  |ORLD".... .....:|
000045c0  0d 1a cc 12 20 dd f2 63  6c 6f 73 65 5f 74 69 74  |.... ..close_tit|
000045d0  6c 65 0d 1a d6 13 20 ea  20 74 31 25 2c 74 32 25  |le.... . t1%,t2%|
000045e0  2c 74 33 25 2c 0d 1a e0  26 20 e6 30 2c 30 20 c8  |,t3%,...& .0,0 .|
000045f0  9c 20 30 3a 74 31 25 3d  35 33 36 3a 74 32 25 3d  |. 0:t1%=536:t2%=|
00004600  35 39 38 3a 74 33 25 3d  37 39 32 0d 1a ea 14 20  |598:t3%=792.... |
00004610  e3 20 58 3d 31 20 b8 20  32 35 36 20 88 20 32 0d  |. X=1 . 256 . 2.|
00004620  1a f4 2e 20 86 20 74 31  25 2c 74 32 25 2c 74 31  |... . t1%,t2%,t1|
00004630  25 2c 74 32 25 2b 35 30  3a 86 20 74 33 25 2c 74  |%,t2%+50:. t3%,t|
00004640  32 25 2c 74 33 25 2c 74  32 25 2b 35 30 0d 1a fe  |2%,t3%,t2%+50...|
00004650  19 20 74 31 25 2b 3d 31  3a 74 33 25 2d 3d 31 3a  |. t1%+=1:t3%-=1:|
00004660  49 3d a6 28 31 29 0d 1b  08 06 20 ed 0d 1b 12 14  |I=.(1).... .....|
00004670  20 e3 20 4c 3d 30 20 b8  20 31 33 32 20 88 20 32  | . L=0 . 132 . 2|
00004680  0d 1b 1c 1d 20 ef 20 32  34 2c 31 38 30 3b 38 31  |.... . 24,180;81|
00004690  32 3b 31 32 37 39 3b 39  34 34 2d 4c 3b 0d 1b 26  |2;1279;944-L;..&|
000046a0  27 20 c8 99 26 32 45 2c  32 39 30 2c 73 70 2c 65  |' ..&2E,290,sp,e|
000046b0  74 24 2c 31 38 30 2c 28  38 31 32 2d 31 33 32 29  |t$,180,(812-132)|
000046c0  2d 4c 2c 30 0d 1b 30 23  20 ef 20 32 34 2c 31 38  |-L,0..0# . 24,18|
000046d0  30 3b 28 38 31 32 2d 31  33 32 29 2b 4c 3b 31 32  |0;(812-132)+L;12|
000046e0  37 30 3b 38 31 30 3b 0d  1b 3a 27 20 c8 99 26 32  |70;810;..:' ..&2|
000046f0  45 2c 32 39 30 2c 73 70  2c 65 74 24 2c 31 38 30  |E,290,sp,et$,180|
00004700  2c 28 38 31 32 2d 31 33  32 29 2b 4c 2c 30 0d 1b  |,(812-132)+L,0..|
00004710  44 0b 20 49 3d a6 28 32  29 0d 1b 4e 06 20 ed 0d  |D. I=.(2)..N. ..|
00004720  1b 58 06 20 e1 0d 1b 62  05 3a 0d 1b 6c 11 20 dd  |.X. ...b.:..l. .|
00004730  f2 64 72 61 77 5f 74 69  74 6c 65 0d 1b 76 0d 20  |.draw_title..v. |
00004740  ef 32 36 3a ef 35 3a 87  0d 1b 80 23 20 c8 99 26  |.26:.5:....# ..&|
00004750  32 45 2c 32 39 30 2c 73  70 2c 22 47 4c 4f 4f 50  |2E,290,sp,"GLOOP|
00004760  22 2c 31 38 30 2c 36 38  30 2c 30 0d 1b 8a 39 20  |",180,680,0...9 |
00004770  e6 30 2c 36 33 20 c8 9c  20 32 35 35 3a ec 20 36  |.0,63 .. 255:. 6|
00004780  30 38 2c 36 37 30 3a f1  22 42 79 22 3a ec 20 34  |08,670:."By":. 4|
00004790  38 32 2c 36 33 30 3a f1  22 4a 2e 20 50 65 61 63  |82,630:."J. Peac|
000047a0  68 65 79 22 0d 1b 94 0f  20 e6 30 2c 35 36 20 c8  |hey".... .0,56 .|
000047b0  9c 20 30 0d 1b 9e 30 20  c8 93 20 33 35 36 2c 34  |. 0...0 .. 356,4|
000047c0  35 32 2c 35 31 30 2c 36  30 3a ec 20 33 36 36 2c  |52,510,60:. 366,|
000047d0  34 39 36 3a f1 22 49 6e  73 74 72 75 63 74 69 6f  |496:."Instructio|
000047e0  6e 73 22 0d 1b a8 33 20  c8 93 20 33 35 36 2c 33  |ns"...3 .. 356,3|
000047f0  37 32 2c 35 31 30 2c 36  30 3a ec 20 33 36 36 2c  |72,510,60:. 366,|
00004800  34 31 36 3a f1 22 50 6c  61 79 20 61 74 20 6c 65  |416:."Play at le|
00004810  76 65 6c 20 31 22 0d 1b  b2 33 20 c8 93 20 33 35  |vel 1"...3 .. 35|
00004820  36 2c 32 39 32 2c 35 31  30 2c 36 30 3a ec 20 33  |6,292,510,60:. 3|
00004830  36 36 2c 33 33 36 3a f1  22 50 6c 61 79 20 61 74  |66,336:."Play at|
00004840  20 6c 65 76 65 6c 20 32  22 0d 1b bc 28 20 c8 93  | level 2"...( ..|
00004850  20 32 35 36 2c 32 30 30  2c 32 33 30 2c 36 30 3a  | 256,200,230,60:|
00004860  ec 20 32 36 36 2c 32 34  34 3a f1 22 4d 61 6c 65  |. 266,244:."Male|
00004870  22 0d 1b c6 2a 20 c8 93  20 37 30 39 2c 32 30 30  |"...* .. 709,200|
00004880  2c 32 33 30 2c 36 30 3a  ec 20 37 31 39 2c 32 34  |,230,60:. 719,24|
00004890  34 3a f1 22 46 65 6d 61  6c 65 22 0d 1b d0 0f 20  |4:."Female".... |
000048a0  f2 6f 70 74 28 73 65 78  25 29 0d 1b da 09 20 ef  |.opt(sex%).... .|
000048b0  34 3a 87 0d 1b e4 06 20  e1 0d 1b ee 05 3a 0d 1b  |4:..... .....:..|
000048c0  f8 0b 20 dd f2 70 61 67  65 0d 1c 02 0f 20 ea 20  |.. ..page.... . |
000048d0  6d 78 2c 6d 79 2c 6d 62  0d 1c 0c 0c 20 70 61 67  |mx,my,mb.... pag|
000048e0  65 25 3d 30 0d 1c 16 36  20 ef 35 3a 87 3a e6 35  |e%=0...6 .5:.:.5|
000048f0  36 20 c8 9c 20 30 3a c8  93 20 33 30 30 2c 31 36  |6 .. 0:.. 300,16|
00004900  30 2c 32 33 30 2c 36 30  3a c8 93 20 37 30 30 2c  |0,230,60:.. 700,|
00004910  31 36 30 2c 32 33 30 2c  36 30 0d 1c 20 2c 20 e6  |160,230,60.. , .|
00004920  30 2c 31 35 3a ec 37 35  30 2c 32 30 34 3a f1 22  |0,15:.750,204:."|
00004930  4e 45 58 54 22 3a ec 33  35 30 2c 32 30 34 3a f1  |NEXT":.350,204:.|
00004940  22 4d 45 4e 55 22 0d 1c  2a 0c 20 ef 34 3a 87 3a  |"MENU"..*. .4:.:|
00004950  f2 74 0d 1c 34 1b 20 f5  3a f5 3a c8 97 20 6d 78  |.t..4. .:.:.. mx|
00004960  2c 6d 79 2c 6d 62 3a fd  20 6d 62 3d 34 0d 1c 3e  |,my,mb:. mb=4..>|
00004970  0b 20 c8 8e 20 b9 20 ca  0d 1c 48 34 20 c9 20 6d  |. .. . ...H4 . m|
00004980  78 3e 3d 33 30 30 20 80  20 6d 78 3c 3d 35 33 30  |x>=300 . mx<=530|
00004990  20 80 20 6d 79 3e 3d 31  36 30 20 80 20 6d 79 3c  | . my>=160 . my<|
000049a0  3d 32 32 30 3a 70 61 67  65 25 3d 31 0d 1c 52 34  |=220:page%=1..R4|
000049b0  20 c9 20 6d 78 3e 3d 37  30 30 20 80 20 6d 78 3c  | . mx>=700 . mx<|
000049c0  3d 39 33 30 20 80 20 6d  79 3e 3d 31 36 30 20 80  |=930 . my>=160 .|
000049d0  20 6d 79 3c 3d 32 32 30  3a 70 61 67 65 25 3d 32  | my<=220:page%=2|
000049e0  0d 1c 5c 06 20 cb 0d 1c  66 0e 20 fd 20 70 61 67  |..\. ...f. . pag|
000049f0  65 25 3e 30 0d 1c 70 07  20 f2 74 0d 1c 7a 06 20  |e%>0..p. .t..z. |
00004a00  e1 0d 1c 84 05 3a 0d 1c  8e 08 20 dd f2 74 0d 1c  |.....:.... ..t..|
00004a10  98 1c 20 f5 3a c8 97 6d  78 25 2c 6d 79 25 2c 6d  |.. .:..mx%,my%,m|
00004a20  62 25 3a fd 20 6d 62 25  3d 30 0d 1c a2 06 20 e1  |b%:. mb%=0.... .|
00004a30  0d 1c ac 05 3a 0d 1c b6  0c 20 dd f2 73 74 61 72  |....:.... ..star|
00004a40  74 0d 1c c0 1e 20 f2 74  69 74 6c 65 5f 61 70 70  |t.... .title_app|
00004a50  65 61 72 3a f2 64 72 61  77 5f 74 69 74 6c 65 0d  |ear:.draw_title.|
00004a60  1c ca 11 20 70 6c 61 79  73 74 61 72 74 25 3d 30  |... playstart%=0|
00004a70  0d 1c d4 1b 20 f5 3a f5  3a c8 97 20 6d 78 2c 6d  |.... .:.:.. mx,m|
00004a80  79 2c 6d 62 3a fd 20 6d  62 3d 34 0d 1c de 0b 20  |y,mb:. mb=4.... |
00004a90  c8 8e 20 b9 20 ca 0d 1c  e8 40 20 c9 20 6d 78 3e  |.. . ....@ . mx>|
00004aa0  3d 33 35 37 20 80 20 6d  78 3c 3d 38 36 37 20 80  |=357 . mx<=867 .|
00004ab0  20 6d 79 3e 3d 34 35 30  20 80 20 6d 79 3c 3d 35  | my>=450 . my<=5|
00004ac0  31 33 3a f2 69 6e 73 74  3a db 3a f2 64 72 61 77  |13:.inst:.:.draw|
00004ad0  5f 74 69 74 6c 65 0d 1c  f2 41 20 c9 20 6d 78 3e  |_title...A . mx>|
00004ae0  3d 33 35 37 20 80 20 6d  78 3c 3d 38 36 37 20 80  |=357 . mx<=867 .|
00004af0  20 6d 79 3e 3d 33 37 32  20 80 20 6d 79 3c 3d 34  | my>=372 . my<=4|
00004b00  32 39 3a 6c 65 76 65 6c  3d 30 3a 70 6c 61 79 73  |29:level=0:plays|
00004b10  74 61 72 74 25 3d 31 0d  1c fc 41 20 c9 20 6d 78  |tart%=1...A . mx|
00004b20  3e 3d 33 35 37 20 80 20  6d 78 3c 3d 38 36 37 20  |>=357 . mx<=867 |
00004b30  80 20 6d 79 3e 3d 32 39  30 20 80 20 6d 79 3c 3d  |. my>=290 . my<=|
00004b40  33 34 38 3a 6c 65 76 65  6c 3d 31 3a 70 6c 61 79  |348:level=1:play|
00004b50  73 74 61 72 74 25 3d 31  0d 1d 06 34 20 c9 20 6d  |start%=1...4 . m|
00004b60  78 3e 3d 35 30 30 20 80  20 6d 78 3c 3d 35 34 30  |x>=500 . mx<=540|
00004b70  20 80 20 6d 79 3e 3d 32  30 30 20 80 20 6d 79 3c  | . my>=200 . my<|
00004b80  3d 32 36 30 3a f2 6f 70  74 28 31 29 0d 1d 10 34  |=260:.opt(1)...4|
00004b90  20 c9 20 6d 78 3e 3d 39  35 30 20 80 20 6d 78 3c  | . mx>=950 . mx<|
00004ba0  3d 39 39 30 20 80 20 6d  79 3e 3d 32 30 30 20 80  |=990 . my>=200 .|
00004bb0  20 6d 79 3c 3d 32 36 30  3a f2 6f 70 74 28 32 29  | my<=260:.opt(2)|
00004bc0  0d 1d 1a 06 20 cb 0d 1d  24 13 20 fd 20 70 6c 61  |.... ...$. . pla|
00004bd0  79 73 74 61 72 74 25 3d  31 0d 1d 2e 09 20 ef 34  |ystart%=1.... .4|
00004be0  3a 87 0d 1d 38 06 20 e1  0d 1d 42 05 3a 0d 1d 4c  |:...8. ...B.:..L|
00004bf0  0b 20 dd f2 69 6e 73 74  0d 1d 56 0a 20 ef 32 36  |. ..inst..V. .26|
00004c00  3a db 0d 1d 60 38 20 fb  20 35 36 3a f1 8a 31 33  |:...`8 . 56:..13|
00004c10  2c 31 29 3b 22 49 6e 73  74 72 75 63 74 69 6f 6e  |,1);"Instruction|
00004c20  73 22 3a f1 8a 31 32 2c  32 29 22 3d 3d 3d 3d 3d  |s":..12,2)"=====|
00004c30  3d 3d 3d 3d 3d 3d 3d 3d  3d 22 0d 1d 6a 1e 20 fb  |========="..j. .|
00004c40  20 31 35 3a f1 8a 32 2c  34 29 3b 22 48 6f 77 20  | 15:..2,4);"How |
00004c50  74 6f 20 70 6c 61 79 22  0d 1d 74 34 20 fb 20 35  |to play"..t4 . 5|
00004c60  36 3a f1 8a 34 2c 36 29  3b 22 4f 6e 20 74 68 65  |6:..4,6);"On the|
00004c70  20 6d 61 69 6e 20 73 63  72 65 65 6e 20 63 68 6f  | main screen cho|
00004c80  6f 73 65 20 27 50 6c 61  79 27 2e 22 0d 1d 7e 81  |ose 'Play'."..~.|
00004c90  20 f1 8a 34 2c 37 29 3b  22 54 68 65 20 63 6f 6d  | ..4,7);"The com|
00004ca0  70 75 74 65 72 20 77 69  6c 6c 20 63 68 6f 6f 73  |puter will choos|
00004cb0  65 20 61 20 77 6f 72 64  20 61 6e 64 22 3a f1 8a  |e a word and":..|
00004cc0  34 2c 38 29 3b 22 64 69  73 70 6c 61 79 20 64 61  |4,8);"display da|
00004cd0  73 68 65 73 20 6f 6e 20  73 63 72 65 65 6e 2e 22  |shes on screen."|
00004ce0  3a f1 8a 34 2c 31 30 29  3b 22 54 68 65 20 72 6f  |:..4,10);"The ro|
00004cf0  75 6e 64 20 66 69 6e 69  73 68 65 73 20 77 69 74  |und finishes wit|
00004d00  68 20 65 69 74 68 65 72  20 79 6f 75 22 0d 1d 88  |h either you"...|
00004d10  7c 20 f1 8a 34 2c 31 31  29 3b 22 67 75 65 73 73  || ..4,11);"guess|
00004d20  69 6e 67 20 61 6c 6c 20  74 68 65 20 6c 65 74 74  |ing all the lett|
00004d30  65 72 73 20 6f 72 20 6c  6f 73 69 6e 67 22 3a f1  |ers or losing":.|
00004d40  8a 34 2c 31 32 29 3b 22  61 6c 6c 20 6f 66 20 79  |.4,12);"all of y|
00004d50  6f 75 72 20 6c 69 76 65  73 2e 22 3a f1 8a 34 2c  |our lives.":..4,|
00004d60  31 34 29 3b 22 54 6f 20  68 61 76 65 20 61 6e 6f  |14);"To have ano|
00004d70  74 68 65 72 20 67 6f 20  63 6c 69 63 6b 20 6f 6e  |ther go click on|
00004d80  20 27 70 6c 61 79 27 2e  22 0d 1d 92 b2 20 f1 8a  | 'play'.".... ..|
00004d90  34 2c 31 37 29 3b 22 54  68 65 20 67 61 6d 65 20  |4,17);"The game |
00004da0  63 6f 6e 74 69 6e 75 65  73 20 75 6e 74 69 6c 20  |continues until |
00004db0  79 6f 75 20 63 6c 69 63  6b 22 3a f1 8a 34 2c 31  |you click":..4,1|
00004dc0  38 29 3b 22 6f 6e 20 27  51 55 49 54 27 20 6f 6e  |8);"on 'QUIT' on|
00004dd0  20 74 68 65 20 6d 61 69  6e 20 6d 65 6e 75 2e 22  | the main menu."|
00004de0  3a f1 8a 34 2c 31 39 29  3b 22 54 68 65 20 67 61  |:..4,19);"The ga|
00004df0  6d 65 20 69 73 20 70 6c  61 79 65 64 20 75 73 69  |me is played usi|
00004e00  6e 67 20 74 68 65 20 6d  6f 75 73 65 22 3a f1 8a  |ng the mouse":..|
00004e10  34 2c 32 30 29 3b 22 77  69 74 68 20 74 68 65 20  |4,20);"with the |
00004e20  6c 65 66 74 20 68 61 6e  64 20 27 73 65 6c 65 63  |left hand 'selec|
00004e30  74 27 20 62 75 74 74 6f  6e 2e 22 0d 1d 9c 17 20  |t' button.".... |
00004e40  f2 70 61 67 65 3a e7 70  61 67 65 25 3d 31 20 8c  |.page:.page%=1 .|
00004e50  20 e1 0d 1d a6 1b 20 db  3a fb 31 35 3a f1 8a 31  | ..... .:.15:..1|
00004e60  2c 31 29 3b 22 4c 65 76  65 6c 20 31 22 0d 1d b0  |,1);"Level 1"...|
00004e70  ce 20 fb 20 35 36 3a 3a  f1 8a 32 2c 33 29 3b 22  |. . 56::..2,3);"|
00004e80  54 68 65 20 65 61 73 79  20 6c 65 76 65 6c 2e 59  |The easy level.Y|
00004e90  6f 75 20 68 61 76 65 20  3a 22 3a f1 8a 33 2c 35  |ou have :":..3,5|
00004ea0  29 3b 22 8f 20 46 69 76  65 20 6c 69 76 65 73 2e  |);". Five lives.|
00004eb0  22 3a f1 8a 33 2c 36 29  3b 22 8f 20 4c 65 74 74  |":..3,6);". Lett|
00004ec0  65 72 73 20 63 61 6e 20  6f 6e 6c 79 20 62 65 20  |ers can only be |
00004ed0  73 65 6c 65 63 74 65 64  20 6f 6e 63 65 2e 22 3a  |selected once.":|
00004ee0  f1 8a 33 2c 37 29 3b 22  8f 20 53 63 6f 72 65 20  |..3,7);". Score |
00004ef0  32 20 70 6f 69 6e 74 73  20 66 6f 72 20 61 20 63  |2 points for a c|
00004f00  6f 72 72 65 63 74 20 67  75 65 73 73 2e 22 3a f1  |orrect guess.":.|
00004f10  8a 33 2c 38 29 3b 22 8f  20 53 63 6f 72 65 20 2d  |.3,8);". Score -|
00004f20  31 20 70 6f 69 6e 74 20  66 6f 72 20 61 20 77 72  |1 point for a wr|
00004f30  6f 6e 67 20 67 75 65 73  73 2e 22 0d 1d ba 1b 20  |ong guess.".... |
00004f40  fb 20 31 35 3a f1 8a 31  2c 31 30 29 3b 22 4c 65  |. 15:..1,10);"Le|
00004f50  76 65 6c 20 32 22 0d 1d  c4 71 20 fb 20 35 36 3a  |vel 2"...q . 56:|
00004f60  f1 8a 32 2c 31 32 29 3b  22 54 68 65 20 68 61 72  |..2,12);"The har|
00004f70  64 20 6c 65 76 65 6c 2e  59 6f 75 20 68 61 76 65  |d level.You have|
00004f80  20 3a 22 3a f1 8a 33 2c  31 34 29 3b 22 8f 20 54  | :":..3,14);". T|
00004f90  68 72 65 65 20 6c 69 76  65 73 2e 22 3a f1 8a 33  |hree lives.":..3|
00004fa0  2c 31 35 29 3b 22 8f 20  59 6f 75 20 6d 75 73 74  |,15);". You must|
00004fb0  20 72 65 6d 65 6d 62 65  72 20 74 68 65 20 6c 65  | remember the le|
00004fc0  74 74 65 72 73 20 22 0d  1d ce 51 20 f1 8a 33 2c  |tters "...Q ..3,|
00004fd0  31 36 29 3b 22 20 20 63  68 6f 73 65 6e 2e 20 4c  |16);"  chosen. L|
00004fe0  65 74 74 65 72 73 20 63  61 6e 20 62 65 20 73 65  |etters can be se|
00004ff0  6c 65 63 74 65 64 22 3a  f1 8a 33 2c 31 37 29 3b  |lected":..3,17);|
00005000  22 20 20 61 6e 79 20 6e  75 6d 62 65 72 20 6f 66  |"  any number of|
00005010  20 74 69 6d 65 73 2e 22  0d 1d d8 63 20 f1 8a 33  | times."...c ..3|
00005020  2c 31 38 29 3b 22 8f 20  53 63 6f 72 65 20 34 20  |,18);". Score 4 |
00005030  70 6f 69 6e 74 73 20 66  6f 72 20 61 20 63 6f 72  |points for a cor|
00005040  72 65 63 74 20 67 75 65  73 73 2e 22 3a f1 8a 33  |rect guess.":..3|
00005050  2c 31 39 29 3b 22 8f 20  53 63 6f 72 65 20 2d 33  |,19);". Score -3|
00005060  20 70 6f 69 6e 74 73 20  66 6f 72 20 61 20 77 72  | points for a wr|
00005070  6f 6e 67 20 67 75 65 73  73 2e 22 0d 1d e2 17 20  |ong guess.".... |
00005080  f2 70 61 67 65 3a e7 70  61 67 65 25 3d 31 20 8c  |.page:.page%=1 .|
00005090  20 e1 0d 1d ec 1a 20 db  3a fb 31 35 3a f1 8a 31  | ..... .:.15:..1|
000050a0  2c 31 29 3b 22 52 65 73  69 67 6e 22 0d 1d f6 6e  |,1);"Resign"...n|
000050b0  20 fb 35 36 3a f1 8a 33  2c 33 29 3b 22 41 62 61  | .56:..3,3);"Aba|
000050c0  6e 64 6f 6e 20 74 68 65  20 77 6f 72 64 20 77 68  |ndon the word wh|
000050d0  65 6e 20 61 6c 6c 20 68  6f 70 65 20 69 73 22 3a  |en all hope is":|
000050e0  f1 8a 33 2c 34 29 3b 22  6c 6f 73 74 2e 41 76 6f  |..3,4);"lost.Avo|
000050f0  69 64 20 61 20 64 75 6e  6b 69 6e 67 20 62 75 74  |id a dunking but|
00005100  20 6c 6f 73 65 20 33 30  22 3a f1 8a 33 2c 35 29  | lose 30":..3,5)|
00005110  3b 22 70 6f 69 6e 74 73  2e 22 0d 1e 00 17 20 fb  |;"points.".... .|
00005120  31 35 3a f1 8a 31 2c 37  29 3b 22 47 75 65 73 73  |15:..1,7);"Guess|
00005130  22 0d 1e 0a 77 20 fb 20  35 36 3a f1 8a 33 2c 39  |"...w . 56:..3,9|
00005140  29 3b 22 47 75 65 73 73  20 74 68 65 20 77 6f 72  |);"Guess the wor|
00005150  64 2e 20 47 65 74 20 69  74 20 72 69 67 68 74 20  |d. Get it right |
00005160  66 6f 72 22 3a f1 8a 33  2c 31 30 29 3b 22 61 20  |for":..3,10);"a |
00005170  6e 69 63 65 20 66 61 74  20 62 6f 6e 75 73 2e 20  |nice fat bonus. |
00005180  47 65 74 20 69 74 20 77  72 6f 6e 67 22 3a f1 8a  |Get it wrong":..|
00005190  33 2c 31 31 29 3b 22 61  6e 64 20 6c 6f 73 65 20  |3,11);"and lose |
000051a0  61 20 6c 69 66 65 2e 22  0d 1e 14 18 20 fb 31 35  |a life.".... .15|
000051b0  3a f1 8a 31 2c 31 33 29  3b 22 53 6f 75 6e 64 22  |:..1,13);"Sound"|
000051c0  0d 1e 1e 56 20 fb 20 35  36 3a f1 8a 33 2c 31 35  |...V . 56:..3,15|
000051d0  29 3b 22 43 6f 6e 74 72  6f 6c 20 74 68 65 20 76  |);"Control the v|
000051e0  6f 6c 75 6d 65 20 6f 66  20 74 68 65 20 73 6f 75  |olume of the sou|
000051f0  6e 64 22 3a f1 8a 33 2c  31 36 29 3b 22 6f 72 20  |nd":..3,16);"or |
00005200  73 69 6d 70 6c 79 20 73  77 69 74 63 68 20 69 74  |simply switch it|
00005210  20 6f 66 66 2e 22 0d 1e  28 17 20 f2 70 61 67 65  | off."..(. .page|
00005220  3a e7 70 61 67 65 25 3d  31 20 8c 20 e1 0d 1e 32  |:.page%=1 . ...2|
00005230  18 20 db 3a fb 31 35 3a  f1 8a 31 2c 31 29 3b 22  |. .:.15:..1,1);"|
00005240  50 6c 61 79 22 0d 1e 3c  42 20 fb 35 36 3a f1 8a  |Play"..<B .56:..|
00005250  33 2c 33 29 3b 22 54 6f  20 73 65 6c 65 63 74 20  |3,3);"To select |
00005260  61 20 6e 65 77 20 77 6f  72 64 20 61 6e 64 20 72  |a new word and r|
00005270  65 73 65 74 22 3a f1 8a  33 2c 34 29 3b 22 74 68  |eset":..3,4);"th|
00005280  65 20 6b 65 79 73 22 0d  1e 46 16 20 fb 31 35 3a  |e keys"..F. .15:|
00005290  f1 8a 31 2c 36 29 3b 22  4c 6f 61 64 22 0d 1e 50  |..1,6);"Load"..P|
000052a0  80 20 fb 20 35 36 3a f1  8a 33 2c 38 29 3b 22 4c  |. . 56:..3,8);"L|
000052b0  6f 61 64 20 61 20 6e 65  77 20 64 69 63 74 69 6f  |oad a new dictio|
000052c0  6e 61 72 79 20 73 75 70  70 6c 69 65 64 22 3a f1  |nary supplied":.|
000052d0  8a 33 2c 39 29 3b 22 6f  72 20 6f 6e 65 20 6f 66  |.3,9);"or one of|
000052e0  20 79 6f 75 72 20 6f 77  6e 20 63 72 65 61 74 69  | your own creati|
000052f0  6f 6e 73 2e 22 3a f1 8a  33 2c 31 30 29 3b 22 41  |ons.":..3,10);"A|
00005300  6c 73 6f 20 75 73 65 64  20 74 6f 20 72 65 73 65  |lso used to rese|
00005310  74 20 74 68 65 20 6d 61  73 74 65 72 22 0d 1e 5a  |t the master"..Z|
00005320  99 20 f1 8a 33 2c 31 31  29 3b 22 64 69 63 74 69  |. ..3,11);"dicti|
00005330  6f 6e 61 72 79 20 61 73  20 65 61 63 68 20 77 6f  |onary as each wo|
00005340  72 64 20 77 69 6c 6c 22  3a f1 8a 33 2c 31 32 29  |rd will":..3,12)|
00005350  3b 22 61 70 70 65 61 72  20 6f 6e 6c 79 20 6f 6e  |;"appear only on|
00005360  63 65 20 70 65 72 20 67  61 6d 65 2e 22 3a f1 8a  |ce per game.":..|
00005370  33 2c 31 33 29 3b 22 55  73 65 20 73 65 6c 65 63  |3,13);"Use selec|
00005380  74 20 74 6f 20 6c 6f 61  64 20 61 20 66 69 6c 65  |t to load a file|
00005390  22 3a f1 8a 33 2c 31 34  29 3b 22 41 64 6a 75 73  |":..3,14);"Adjus|
000053a0  74 2f 6d 65 6e 75 20 74  6f 20 61 62 61 6e 64 6f  |t/menu to abando|
000053b0  6e 20 74 68 65 22 0d 1e  64 2b 20 f1 8a 33 2c 31  |n the"..d+ ..3,1|
000053c0  35 29 3b 22 6c 6f 61 64  20 61 6e 64 20 72 65 74  |5);"load and ret|
000053d0  75 72 6e 20 74 6f 20 74  68 65 20 67 61 6d 65 2e  |urn to the game.|
000053e0  22 0d 1e 6e 17 20 f2 70  61 67 65 3a e7 70 61 67  |"..n. .page:.pag|
000053f0  65 25 3d 31 20 8c 20 e1  0d 1e 78 18 20 db 3a fb  |e%=1 . ...x. .:.|
00005400  31 35 3a f1 8a 31 2c 31  29 3b 22 45 78 69 74 22  |15:..1,1);"Exit"|
00005410  0d 1e 82 44 20 fb 20 35  36 3a f1 8a 33 2c 33 29  |...D . 56:..3,3)|
00005420  3b 22 51 75 69 74 20 74  68 65 20 67 61 6d 65 20  |;"Quit the game |
00005430  61 6e 64 20 72 65 74 75  72 6e 20 74 6f 22 3a f1  |and return to":.|
00005440  8a 33 2c 34 29 3b 22 74  68 65 20 64 65 73 6b 74  |.3,4);"the deskt|
00005450  6f 70 2e 22 0d 1e 8c 18  20 fb 31 35 3a f1 8a 31  |op.".... .15:..1|
00005460  2c 36 29 3b 22 45 64 69  74 6f 72 22 0d 1e 96 74  |,6);"Editor"...t|
00005470  20 fb 20 35 36 3a f1 8a  33 2c 38 29 3b 22 55 73  | . 56:..3,8);"Us|
00005480  65 20 74 68 69 73 20 73  69 6d 70 6c 65 20 65 64  |e this simple ed|
00005490  69 74 6f 72 20 74 6f 20  22 3a f1 8a 33 2c 39 29  |itor to ":..3,9)|
000054a0  3b 22 63 72 65 61 74 65  20 79 6f 75 72 20 6f 77  |;"create your ow|
000054b0  6e 20 64 69 63 74 69 6f  6e 61 72 69 65 73 22 3a  |n dictionaries":|
000054c0  f1 8a 33 2c 31 30 29 3b  22 54 68 65 79 20 63 61  |..3,10);"They ca|
000054d0  6e 20 62 65 20 61 6e 79  20 6c 65 6e 67 74 68 22  |n be any length"|
000054e0  0d 1e a0 67 20 f1 8a 33  2c 31 31 29 3b 22 62 65  |...g ..3,11);"be|
000054f0  74 77 65 65 6e 20 35 30  20 61 6e 64 20 32 30 30  |tween 50 and 200|
00005500  30 20 77 6f 72 64 73 22  3a f1 8a 33 2c 31 32 29  |0 words":..3,12)|
00005510  3b 22 46 75 6c 6c 20 6f  6e 20 6c 69 6e 65 20 68  |;"Full on line h|
00005520  65 6c 70 2e 20 53 65 65  20 61 6c 73 6f 22 3a f1  |elp. See also":.|
00005530  8a 33 2c 31 33 29 3b 22  74 68 65 20 68 65 6c 70  |.3,13);"the help|
00005540  20 66 69 6c 65 2e 22 0d  1e aa 1e 20 fb 31 35 3a  | file.".... .15:|
00005550  f1 8a 38 2c 31 35 29 3b  22 45 6e 64 20 6f 66 20  |..8,15);"End of |
00005560  68 65 6c 70 22 0d 1e b4  17 20 f2 70 61 67 65 3a  |help".... .page:|
00005570  e7 70 61 67 65 25 3d 31  20 8c 20 e1 0d 1e be 06  |.page%=1 . .....|
00005580  20 e1 0d 1e c8 05 3a 0d  1e d2 10 20 dd f2 65 6e  | .....:.... ..en|
00005590  74 65 72 6e 61 6d 65 0d  1e dc 10 20 ea 20 74 63  |tername.... . tc|
000055a0  6f 75 6e 74 2c 41 24 0d  1e e6 08 20 ef 32 36 0d  |ount,A$.... .26.|
000055b0  1e f0 35 20 e6 30 3a c8  93 20 c8 90 32 37 31 2c  |..5 .0:.. ..271,|
000055c0  33 33 38 2c 37 33 35 2c  31 33 32 3a e6 30 2c 35  |338,735,132:.0,5|
000055d0  36 3a c8 93 20 32 37 35  2c 33 34 32 2c 37 32 37  |6:.. 275,342,727|
000055e0  2c 31 32 34 0d 1e fa 30  20 fb 20 33 20 c8 9c 20  |,124...0 . 3 .. |
000055f0  32 35 35 3a f1 8a 39 2c  31 38 29 3b 22 50 6c 65  |255:..9,18);"Ple|
00005600  61 73 65 20 65 6e 74 65  72 20 79 6f 75 72 20 6e  |ase enter your n|
00005610  61 6d 65 22 0d 1f 04 0d  20 74 63 6f 75 6e 74 3d  |ame".... tcount=|
00005620  30 0d 1f 0e 10 20 f1 8a  39 2c 32 30 29 3b 22 3e  |0.... ..9,20);">|
00005630  22 0d 1f 18 22 20 f5 3a  41 24 3d be 3a 70 6c 61  |"..." .:A$=.:pla|
00005640  79 6e 61 6d 65 24 3d 70  6c 61 79 6e 61 6d 65 24  |yname$=playname$|
00005650  2b 41 24 0d 1f 22 21 20  74 63 6f 75 6e 74 2b 3d  |+A$.."! tcount+=|
00005660  31 3a f1 8a 31 31 2c 32  30 29 3b 70 6c 61 79 6e  |1:..11,20);playn|
00005670  61 6d 65 24 0d 1f 2c 1b  20 fd 20 41 24 3d bd 28  |ame$..,. . A$=.(|
00005680  31 33 29 20 84 20 74 63  6f 75 6e 74 3d 31 32 0d  |13) . tcount=12.|
00005690  1f 36 3a 20 e7 20 c2 70  6c 61 79 6e 61 6d 65 24  |.6: . .playname$|
000056a0  2c 31 29 3d bd 28 31 33  29 8c 20 70 6c 61 79 6e  |,1)=.(13). playn|
000056b0  61 6d 65 24 3d c0 70 6c  61 79 6e 61 6d 65 24 2c  |ame$=.playname$,|
000056c0  74 63 6f 75 6e 74 2d 31  29 0d 1f 40 06 20 e1 0d  |tcount-1)..@. ..|
000056d0  1f 4a 05 3a 0d 1f 54 0b  20 dd f2 69 6e 69 74 0d  |.J.:..T. ..init.|
000056e0  1f 5e 1b 20 de 20 73 70  20 26 31 39 42 30 30 3a  |.^. . sp &19B00:|
000056f0  21 73 70 3d 26 31 39 42  30 30 0d 1f 68 1c 20 73  |!sp=&19B00..h. s|
00005700  70 21 34 3d 30 3a 73 70  21 38 3d 31 36 3a 73 70  |p!4=0:sp!8=16:sp|
00005710  21 31 32 3d 31 36 0d 1f  72 27 20 70 61 74 68 24  |!12=16..r' path$|
00005720  3d a4 72 65 61 64 76 61  72 76 61 6c 28 22 47 6c  |=.readvarval("Gl|
00005730  6f 6f 70 24 44 69 72 22  29 2b 22 2e 22 0d 1f 7c  |oop$Dir")+"."..||
00005740  19 20 73 70 72 24 3d 70  61 74 68 24 2b 22 53 50  |. spr$=path$+"SP|
00005750  52 49 54 45 53 22 0d 1f  86 21 20 72 65 73 24 3d  |RITES"...! res$=|
00005760  70 61 74 68 24 2b 22 52  45 53 4f 55 52 43 45 53  |path$+"RESOURCES|
00005770  2e 73 65 74 75 70 22 0d  1f 90 23 20 65 64 69 74  |.setup"...# edit|
00005780  24 3d 70 61 74 68 24 2b  22 45 44 49 54 4f 52 2e  |$=path$+"EDITOR.|
00005790  21 52 55 4e 49 4d 41 47  45 22 0d 1f 9a 1c 20 6d  |!RUNIMAGE".... m|
000057a0  5f 66 24 3d 70 61 74 68  24 2b 22 52 45 53 4f 55  |_f$=path$+"RESOU|
000057b0  52 43 45 53 2e 22 0d 1f  a4 19 20 64 69 63 74 24  |RCES.".... dict$|
000057c0  3d 70 61 74 68 24 2b 22  44 49 43 54 53 2e 22 0d  |=path$+"DICTS.".|
000057d0  1f ae 16 20 c8 99 26 32  45 2c 32 36 36 2c 73 70  |... ..&2E,266,sp|
000057e0  2c 73 70 72 24 0d 1f b8  16 20 c8 97 20 ee 3a ff  |,spr$.... .. .:.|
000057f0  22 50 4f 49 4e 54 45 52  22 3a 87 0d 1f c2 34 20  |"POINTER":....4 |
00005800  de 20 77 6f 72 64 24 28  32 30 30 30 29 2c 77 6f  |. word$(2000),wo|
00005810  72 64 25 28 32 30 30 30  29 2c 77 6f 72 64 66 6f  |rd%(2000),wordfo|
00005820  72 6d 28 31 32 29 2c 6b  65 79 25 28 32 36 29 0d  |rm(12),key%(26).|
00005830  1f cc 21 20 de 20 6e 61  6d 65 24 28 36 29 2c 66  |..! . name$(6),f|
00005840  69 6c 65 24 28 38 29 2c  72 65 63 73 25 28 38 29  |ile$(8),recs%(8)|
00005850  0d 1f d6 11 20 de 20 62  75 66 66 25 20 26 31 30  |.... . buff% &10|
00005860  30 0d 1f e0 0e 20 e3 20  6d 3d 30 20 b8 20 36 0d  |0.... . m=0 . 6.|
00005870  1f ea 0f 20 f3 20 6e 61  6d 65 24 28 6d 29 0d 1f  |... . name$(m)..|
00005880  f4 06 20 ed 0d 1f fe 0e  20 72 75 62 3d b3 28 2d  |.. ..... rub=.(-|
00005890  91 29 0d 20 08 1e 20 71  75 69 74 25 3d 30 3a 6c  |.). .. quit%=0:l|
000058a0  69 76 65 73 25 3d 36 3a  6c 69 66 6c 61 67 3d 30  |ives%=6:liflag=0|
000058b0  0d 20 12 39 20 73 63 6f  72 65 25 3d 30 3a 70 6c  |. .9 score%=0:pl|
000058c0  61 79 25 3d 30 3a 67 61  6d 65 72 75 6e 25 3d 30  |ay%=0:gamerun%=0|
000058d0  3a 73 6f 75 6e 64 25 3d  31 3a 76 6f 6c 25 3d 2d  |:sound%=1:vol%=-|
000058e0  37 3a 6c 65 76 65 6c 3d  30 0d 20 1c 1c 20 61 64  |7:level=0. .. ad|
000058f0  76 65 25 3d 30 3a 73 65  78 25 3d 31 3a 67 75 65  |ve%=0:sex%=1:gue|
00005900  73 73 25 3d 30 0d 20 26  0e 20 c8 99 26 30 36 2c  |ss%=0. &. ..&06,|
00005910  34 2c 31 0d 20 30 0d 20  c8 99 26 30 36 2c 31 38  |4,1. 0. ..&06,18|
00005920  0d 20 3a 12 20 c8 99 26  30 36 2c 32 30 30 2c 31  |. :. ..&06,200,1|
00005930  2c 30 0d 20 44 06 20 e1  0d 20 4e 05 3a 0d 20 58  |,0. D. .. N.:. X|
00005940  3d 20 dc 20 22 50 4c 41  59 22 2c 22 47 55 45 53  |= . "PLAY","GUES|
00005950  53 22 2c 22 52 45 53 49  47 4e 22 2c 22 53 4f 55  |S","RESIGN","SOU|
00005960  4e 44 22 2c 22 4c 4f 41  44 22 2c 22 45 44 49 54  |ND","LOAD","EDIT|
00005970  4f 52 22 2c 22 45 58 49  54 22 0d 20 62 05 3a 0d  |OR","EXIT". b.:.|
00005980  20 6c 10 20 dd f2 6c 6f  61 64 28 73 65 6c 29 0d  | l. ..load(sel).|
00005990  20 76 1e 20 e7 20 72 65  63 73 25 28 73 65 6c 29  | v. . recs%(sel)|
000059a0  3d 30 20 8c 20 f2 62 6c  61 6e 6b 3a e1 0d 20 80  |=0 . .blank:.. .|
000059b0  49 20 e7 20 73 65 6c 3e  31 20 8c 20 76 24 3d bd  |I . sel>1 . v$=.|
000059c0  28 36 33 2b 73 65 6c 29  3a 6e 61 6d 65 24 3d 64  |(63+sel):name$=d|
000059d0  69 63 74 24 2b 22 55 73  65 72 5f 22 2b 76 24 20  |ict$+"User_"+v$ |
000059e0  8b 20 6e 61 6d 65 24 3d  64 69 63 74 24 2b 22 4d  |. name$=dict$+"M|
000059f0  41 53 54 45 52 22 0d 20  8a 2c 20 e7 20 73 65 6c  |ASTER". ., . sel|
00005a00  3e 30 20 8c 20 63 6f 75  6e 74 3d 72 65 63 73 25  |>0 . count=recs%|
00005a10  28 73 65 6c 29 20 8b 20  63 6f 75 6e 74 3d 32 30  |(sel) . count=20|
00005a20  30 30 0d 20 94 10 20 44  25 3d 8e 28 6e 61 6d 65  |00. .. D%=.(name|
00005a30  24 29 0d 20 9e 15 20 e3  20 6c 6f 6f 70 3d 31 20  |$). .. . loop=1 |
00005a40  b8 20 63 6f 75 6e 74 0d  20 a8 15 20 e8 23 44 25  |. count. .. .#D%|
00005a50  2c 77 6f 72 64 24 28 6c  6f 6f 70 29 0d 20 b2 06  |,word$(loop). ..|
00005a60  20 ed 0d 20 bc 09 20 d9  23 44 25 0d 20 c6 1a 20  | .. .. .#D%. .. |
00005a70  77 6f 72 64 25 28 29 3d  30 3a 75 73 65 64 77 6f  |word%()=0:usedwo|
00005a80  72 64 25 3d 30 0d 20 d0  06 20 e1 0d 20 da 05 3a  |rd%=0. .. .. ..:|
00005a90  0d 20 e4 0c 20 dd f2 62  6c 61 6e 6b 0d 20 ee 14  |. .. ..blank. ..|
00005aa0  20 ea 20 71 75 69 74 25  3a 71 75 69 74 25 3d 30  | . quit%:quit%=0|
00005ab0  0d 20 f8 25 20 f2 70 6f  70 77 69 6e 64 6f 77 28  |. .% .popwindow(|
00005ac0  32 36 30 2c 36 31 30 2c  37 37 34 2c 38 38 38 2c  |260,610,774,888,|
00005ad0  22 65 72 22 29 0d 21 02  20 20 f2 73 6c 61 62 28  |"er").!.  .slab(|
00005ae0  32 37 30 2c 36 32 30 2c  34 39 34 2c 32 35 38 2c  |270,620,494,258,|
00005af0  30 2c 22 22 29 0d 21 0c  19 20 c8 97 20 c8 93 32  |0,"").!.. .. ..2|
00005b00  38 30 2c 36 33 32 2c 34  37 36 2c 32 33 38 0d 21  |80,632,476,238.!|
00005b10  16 67 20 f2 70 6c 6f 74  5f 74 65 78 74 28 34 32  |.g .plot_text(42|
00005b20  30 2c 38 32 35 2c 22 45  52 52 4f 52 22 29 3a f2  |0,825,"ERROR"):.|
00005b30  70 6c 6f 74 5f 74 65 78  74 28 32 39 30 2c 37 36  |plot_text(290,76|
00005b40  39 2c 22 20 20 46 49 4c  45 20 42 4c 41 4e 4b 22  |9,"  FILE BLANK"|
00005b50  29 3a f2 70 6c 6f 74 5f  74 65 78 74 28 32 39 30  |):.plot_text(290|
00005b60  2c 37 32 37 2c 22 20 4c  4f 41 44 20 41 42 4f 52  |,727," LOAD ABOR|
00005b70  54 45 44 22 29 0d 21 20  2a 20 c8 99 26 32 45 2c  |TED").! * ..&2E,|
00005b80  32 39 30 2c 73 70 2c 22  4f 4b 55 22 2c 34 36 34  |290,sp,"OKU",464|
00005b90  2c 36 35 32 2c 30 3a 6d  62 25 3d 30 3a f2 6d 0d  |,652,0:mb%=0:.m.|
00005ba0  21 2a 15 20 f5 3a c8 97  20 6d 78 25 2c 6d 79 25  |!*. .:.. mx%,my%|
00005bb0  2c 6d 62 25 0d 21 34 0d  20 c8 8e 20 6d 62 25 20  |,mb%.!4. .. mb% |
00005bc0  ca 0d 21 3e 10 20 c9 20  34 20 3a c8 8e 20 b9 20  |..!>. . 4 :.. . |
00005bd0  ca 0d 21 48 26 20 c9 20  a4 69 6e 62 6f 78 28 34  |..!H& . .inbox(4|
00005be0  37 32 2c 36 35 36 2c 35  35 36 2c 36 39 30 29 3a  |72,656,556,690):|
00005bf0  71 75 69 74 25 3d 35 0d  21 52 06 20 cb 0d 21 5c  |quit%=5.!R. ..!\|
00005c00  06 20 cb 0d 21 66 0e 20  fd 20 71 75 69 74 25 3d  |. ..!f. . quit%=|
00005c10  35 0d 21 70 29 20 c8 99  26 32 45 2c 32 39 30 2c  |5.!p) ..&2E,290,|
00005c20  73 70 2c 22 4f 4b 44 22  2c 34 36 34 2c 36 35 32  |sp,"OKD",464,652|
00005c30  2c 30 3a 49 3d a6 28 31  32 29 0d 21 7a 22 20 f2  |,0:I=.(12).!z" .|
00005c40  63 6c 6f 73 65 77 69 6e  64 6f 77 28 32 36 30 2c  |closewindow(260,|
00005c50  36 31 30 2c 22 65 72 22  29 3a f2 72 0d 21 84 06  |610,"er"):.r.!..|
00005c60  20 e1 0d 21 8e 05 3a 0d  21 98 0a 20 dd f2 77 69  | ..!..:.!.. ..wi|
00005c70  6e 0d 21 a2 0f 20 67 61  6d 65 72 75 6e 25 3d 30  |n.!.. gamerun%=0|
00005c80  0d 21 ac 0d 20 f2 70 6f  72 74 28 31 29 0d 21 b6  |.!.. .port(1).!.|
00005c90  06 20 e1 0d 21 c0 05 3a  0d 21 ca 0b 20 dd f2 6c  |. ..!..:.!.. ..l|
00005ca0  6f 73 65 0d 21 d4 09 20  ea 20 45 25 0d 21 de 0c  |ose.!.. . E%.!..|
00005cb0  20 45 25 3d b3 28 32 29  0d 21 e8 3d 20 e7 20 45  | E%=.(2).!.= . E|
00005cc0  25 3d 31 20 8c 20 f2 73  6f 75 6e 64 28 22 50 4c  |%=1 . .sound("PL|
00005cd0  41 59 4c 4f 53 45 22 2c  33 30 30 29 20 8b 20 f2  |AYLOSE",300) . .|
00005ce0  73 6f 75 6e 64 28 22 59  4f 55 5f 4c 4f 53 45 22  |sound("YOU_LOSE"|
00005cf0  2c 33 30 30 29 0d 21 f2  0d 20 f2 70 6f 72 74 28  |,300).!.. .port(|
00005d00  32 29 0d 21 fc 14 20 f2  73 6f 75 6e 64 28 22 57  |2).!.. .sound("W|
00005d10  41 53 22 2c 30 29 0d 22  06 10 20 f2 72 65 76 65  |AS",0).".. .reve|
00005d20  61 6c 77 6f 72 64 0d 22  10 0f 20 67 61 6d 65 72  |alword.".. gamer|
00005d30  75 6e 25 3d 30 0d 22 1a  06 20 e1 0d 22 24 05 3a  |un%=0.".. .."$.:|
00005d40  0d 22 2e 15 20 dd f2 72  65 73 65 74 5f 67 72 61  |.".. ..reset_gra|
00005d50  70 68 69 63 73 0d 22 42  18 20 ef 32 34 2c 30 3b  |phics."B. .24,0;|
00005d60  34 38 34 3b 39 36 33 3b  31 30 32 33 3b 0d 22 4c  |484;963;1023;."L|
00005d70  23 20 da 3a c8 99 26 32  45 2c 32 39 30 2c 73 70  |# .:..&2E,290,sp|
00005d80  2c 22 74 61 6e 6b 22 2c  37 30 2c 35 33 30 2c 30  |,"tank",70,530,0|
00005d90  0d 22 56 22 20 c8 99 26  32 45 2c 32 39 30 2c 73  |."V" ..&2E,290,s|
00005da0  70 2c 22 74 61 6e 6b 22  2c 35 30 30 2c 35 33 30  |p,"tank",500,530|
00005db0  2c 30 0d 22 60 0f 20 e6  30 2c 36 33 20 c8 9c 20  |,0."`. .0,63 .. |
00005dc0  30 0d 22 6a 15 20 86 20  35 30 2c 35 33 32 2c 39  |0."j. . 50,532,9|
00005dd0  32 35 2c 35 33 32 0d 22  74 15 20 86 20 35 30 2c  |25,532."t. . 50,|
00005de0  35 32 38 2c 39 32 35 2c  35 32 38 0d 22 7e 24 20  |528,925,528."~$ |
00005df0  c8 93 20 c8 90 20 35 31  32 2c 34 39 34 2c 32 30  |.. .. 512,494,20|
00005e00  30 2c 33 32 3a f2 6c 69  67 68 74 73 28 30 29 0d  |0,32:.lights(0).|
00005e10  22 88 26 20 e7 20 6c 65  76 65 6c 3d 31 20 8c 20  |".& . level=1 . |
00005e20  f2 6c 69 67 68 74 73 28  31 29 3a f2 6c 69 67 68  |.lights(1):.ligh|
00005e30  74 73 28 31 29 0d 22 92  23 20 c8 99 26 32 45 2c  |ts(1).".# ..&2E,|
00005e40  32 39 30 2c 73 70 2c 22  70 6c 75 6e 67 22 2c 37  |290,sp,"plung",7|
00005e50  34 34 2c 35 33 32 2c 30  0d 22 9c 23 20 c8 99 26  |44,532,0.".# ..&|
00005e60  32 45 2c 32 39 30 2c 73  70 2c 22 70 6c 75 6e 67  |2E,290,sp,"plung|
00005e70  22 2c 33 32 30 2c 35 33  32 2c 30 0d 22 a6 22 20  |",320,532,0."." |
00005e80  c8 99 26 32 45 2c 32 39  30 2c 73 70 2c 22 41 52  |..&2E,290,sp,"AR|
00005e90  43 22 2c 31 32 35 2c 37  31 36 2c 26 38 0d 22 b0  |C",125,716,&8.".|
00005ea0  22 20 c8 99 26 32 45 2c  32 39 30 2c 73 70 2c 22  |" ..&2E,290,sp,"|
00005eb0  53 45 51 22 2c 35 33 36  2c 37 31 36 2c 26 38 0d  |SEQ",536,716,&8.|
00005ec0  22 ba 08 20 ef 32 36 0d  22 c4 06 20 e1 0d 22 ce  |".. .26.".. ..".|
00005ed0  05 3a 0d 22 d8 10 20 dd  f2 6c 69 67 68 74 73 28  |.:.".. ..lights(|
00005ee0  46 29 0d 22 e2 0c 20 ea  20 41 24 2c 42 24 0d 22  |F).".. . A$,B$."|
00005ef0  f6 18 20 41 24 3d 22 47  45 4d 42 22 3a 42 24 3d  |.. A$="GEMB":B$=|
00005f00  22 47 45 4d 44 22 0d 23  00 0b 20 c8 8e 20 46 20  |"GEMD".#.. .. F |
00005f10  ca 0d 23 0a 41 20 c9 20  30 20 3a e3 20 58 44 3d  |..#.A . 0 :. XD=|
00005f20  31 20 b8 20 35 3a c8 99  26 32 45 2c 32 39 30 2c  |1 . 5:..&2E,290,|
00005f30  73 70 2c 41 24 2c 34 37  36 2b 28 34 30 2a 58 44  |sp,A$,476+(40*XD|
00005f40  29 2c 34 39 36 2c 30 3a  ed 3a 6c 69 66 6c 61 67  |),496,0:.:liflag|
00005f50  3d 30 0d 23 14 33 20 c9  20 31 20 3a c8 99 26 32  |=0.#.3 . 1 :..&2|
00005f60  45 2c 32 39 30 2c 73 70  2c 22 47 45 4d 44 22 2c  |E,290,sp,"GEMD",|
00005f70  37 31 36 2d 28 6c 69 66  6c 61 67 2a 34 30 29 2c  |716-(liflag*40),|
00005f80  34 39 36 2c 30 0d 23 1e  54 20 c9 20 32 20 3a e3  |496,0.#.T . 2 :.|
00005f90  58 3d 31 20 b8 20 31 30  3a c8 94 41 24 2c 42 24  |X=1 . 10:..A$,B$|
00005fa0  3a c8 99 26 32 45 2c 32  39 30 2c 73 70 2c 41 24  |:..&2E,290,sp,A$|
00005fb0  2c 37 31 36 2d 28 34 30  2a 35 29 2c 34 39 36 2c  |,716-(40*5),496,|
00005fc0  30 3a 49 3d a6 28 31 30  29 3a ed 3a 6c 69 66 6c  |0:I=.(10):.:lifl|
00005fd0  61 67 3d 30 3a 6b 62 3d  31 0d 23 28 06 20 cb 0d  |ag=0:kb=1.#(. ..|
00005fe0  23 32 2e 20 6c 69 66 6c  61 67 2b 3d 31 3a 6c 69  |#2. liflag+=1:li|
00005ff0  76 65 73 25 2d 3d 31 3a  e7 20 6c 69 66 6c 61 67  |ves%-=1:. liflag|
00006000  3e 35 20 8c 20 6c 69 66  6c 61 67 3d 30 0d 23 3c  |>5 . liflag=0.#<|
00006010  06 20 e1 0d 23 46 06 20  3a 0d 23 50 0e 20 dd f2  |. ..#F. :.#P. ..|
00006020  70 6f 72 74 28 76 29 0d  23 5a 20 20 ea 20 58 25  |port(v).#Z  . X%|
00006030  2c 59 25 2c 73 78 25 2c  73 79 25 2c 66 6c 61 67  |,Y%,sx%,sy%,flag|
00006040  25 2c 41 24 2c 41 25 0d  23 64 0b 20 c8 8e 20 76  |%,A$,A%.#d. .. v|
00006050  20 ca 0d 23 6e 1a 20 20  c9 20 31 20 3a 73 78 25  | ..#n.  . 1 :sx%|
00006060  3d 33 30 30 3a 73 79 25  3d 36 31 32 0d 23 78 1a  |=300:sy%=612.#x.|
00006070  20 20 c9 20 32 20 3a 73  78 25 3d 37 32 34 3a 73  |  . 2 :sx%=724:s|
00006080  79 25 3d 36 31 32 0d 23  82 06 20 cb 0d 23 8c 1a  |y%=612.#.. ..#..|
00006090  20 59 25 3d 73 79 25 2b  31 32 31 3a 58 25 3d 73  | Y%=sy%+121:X%=s|
000060a0  78 25 2b 31 30 35 0d 23  96 16 20 f2 73 6f 75 6e  |x%+105.#.. .soun|
000060b0  64 28 22 50 4f 52 54 31  22 2c 30 29 0d 23 a0 0e  |d("PORT1",0).#..|
000060c0  20 e3 20 47 3d 31 20 b8  20 32 0d 23 aa 23 20 e7  | . G=1 . 2.#.# .|
000060d0  20 47 3d 31 20 8c 20 41  24 3d 22 42 45 41 53 22  | G=1 . A$="BEAS"|
000060e0  20 8b 20 41 24 3d 22 42  45 41 53 38 22 0d 23 b4  | . A$="BEAS8".#.|
000060f0  1d 20 ef 32 34 2c 58 25  3b 59 25 3b 58 25 3b 59  |. .24,X%;Y%;X%;Y|
00006100  25 3b 3a 66 6c 61 67 25  3d 30 0d 23 be 06 20 f5  |%;:flag%=0.#.. .|
00006110  0d 23 c8 23 20 ef 32 34  2c 58 25 3b 59 25 2d 66  |.#.# .24,X%;Y%-f|
00006120  6c 61 67 25 3b 58 25 2b  31 3b 59 25 2b 66 6c 61  |lag%;X%+1;Y%+fla|
00006130  67 25 3b 0d 23 d2 1e 20  c8 99 26 32 45 2c 32 39  |g%;.#.. ..&2E,29|
00006140  30 2c 73 70 2c 41 24 2c  73 78 25 2c 73 79 25 2c  |0,sp,A$,sx%,sy%,|
00006150  30 0d 23 dc 14 20 66 6c  61 67 25 2b 3d 31 3a 52  |0.#.. flag%+=1:R|
00006160  3d a6 28 31 29 0d 23 e6  10 20 fd 20 66 6c 61 67  |=.(1).#.. . flag|
00006170  25 3e 31 35 30 0d 23 f0  09 20 41 25 3d 30 0d 23  |%>150.#.. A%=0.#|
00006180  fa 06 20 f5 0d 24 04 27  20 ef 32 34 2c 58 25 2d  |.. ..$.' .24,X%-|
00006190  41 25 3b 59 25 2d 66 6c  61 67 25 3b 58 25 2b 41  |A%;Y%-flag%;X%+A|
000061a0  25 3b 59 25 2b 66 6c 61  67 25 3b 0d 24 0e 1e 20  |%;Y%+flag%;.$.. |
000061b0  c8 99 26 32 45 2c 32 39  30 2c 73 70 2c 41 24 2c  |..&2E,290,sp,A$,|
000061c0  73 78 25 2c 73 79 25 2c  30 0d 24 18 0a 20 41 25  |sx%,sy%,0.$.. A%|
000061d0  2b 3d 31 0d 24 22 0d 20  fd 20 41 25 3e 31 35 30  |+=1.$". . A%>150|
000061e0  0d 24 2c 06 20 ed 0d 24  36 08 20 ef 32 36 0d 24  |.$,. ..$6. .26.$|
000061f0  40 1a 20 f2 70 61 75 73  65 3a f2 64 6f 77 6e 28  |@. .pause:.down(|
00006200  73 78 25 2c 73 79 25 29  0d 24 4a 0d 20 f2 66 69  |sx%,sy%).$J. .fi|
00006210  6c 6c 28 76 29 0d 24 54  0e 20 f2 67 75 6e 67 65  |ll(v).$T. .gunge|
00006220  28 76 29 0d 24 5e 06 20  e1 0d 24 68 06 20 3a 0d  |(v).$^. ..$h. :.|
00006230  24 72 12 20 dd f2 64 6f  77 6e 28 78 25 2c 79 25  |$r. ..down(x%,y%|
00006240  29 0d 24 7c 17 20 f2 73  6f 75 6e 64 28 22 4b 4c  |).$|. .sound("KL|
00006250  41 58 4f 4e 22 2c 30 29  0d 24 86 13 20 e3 20 58  |AXON",0).$.. . X|
00006260  3d 30 20 b8 20 32 30 20  88 20 32 0d 24 90 23 20  |=0 . 20 . 2.$.# |
00006270  c8 99 26 32 45 2c 32 39  30 2c 73 70 2c 22 62 65  |..&2E,290,sp,"be|
00006280  61 73 38 22 2c 78 25 2c  79 25 2d 58 2c 30 0d 24  |as8",x%,y%-X,0.$|
00006290  9a 06 20 ed 0d 24 a4 06  20 e1 0d 24 ae 06 20 3a  |.. ..$.. ..$.. :|
000062a0  0d 24 b8 0c 20 dd f2 70  61 75 73 65 0d 24 c2 06  |.$.. ..pause.$..|
000062b0  20 f4 0d 24 cc 06 20 e1  0d 24 d6 06 20 3a 0d 24  | ..$.. ..$.. :.$|
000062c0  e0 0e 20 dd f2 66 69 6c  6c 28 76 29 0d 24 ea 14  |.. ..fill(v).$..|
000062d0  20 ea 20 58 25 2c 59 25  2c 58 31 25 2c 58 32 25  | . X%,Y%,X1%,X2%|
000062e0  0d 24 f4 0b 20 c8 8e 20  76 20 ca 0d 24 fe 18 20  |.$.. .. v ..$.. |
000062f0  c9 20 31 20 3a 58 25 3d  31 32 31 3a 58 31 25 3d  |. 1 :X%=121:X1%=|
00006300  32 33 38 0d 25 08 18 20  c9 20 32 20 3a 58 25 3d  |238.%.. . 2 :X%=|
00006310  35 35 33 3a 58 31 25 3d  39 39 38 0d 25 12 06 20  |553:X1%=998.%.. |
00006320  cb 0d 25 1c 13 20 59 25  3d 39 32 33 3a 59 31 25  |..%.. Y%=923:Y1%|
00006330  3d 39 39 38 0d 25 26 17  20 ef 32 34 2c 58 25 3b  |=998.%&. .24,X%;|
00006340  59 25 3b 58 31 25 3b 59  31 25 3b 0d 25 30 0e 20  |Y%;X1%;Y1%;.%0. |
00006350  59 32 25 3d 59 25 2d 31  30 0d 25 3a 0f 20 e3 20  |Y2%=Y%-10.%:. . |
00006360  54 3d 31 20 b8 20 38 34  0d 25 44 23 20 c8 99 26  |T=1 . 84.%D# ..&|
00006370  32 45 2c 32 39 30 2c 73  70 2c 22 74 67 75 6e 67  |2E,290,sp,"tgung|
00006380  65 22 2c 58 25 2c 59 32  25 2b 54 0d 25 4e 0b 20  |e",X%,Y2%+T.%N. |
00006390  49 3d a6 28 33 29 0d 25  58 06 20 ed 0d 25 62 08  |I=.(3).%X. ..%b.|
000063a0  20 ef 32 36 0d 25 6c 06  20 e1 0d 25 76 06 20 3a  | .26.%l. ..%v. :|
000063b0  0d 25 80 0f 20 dd f2 67  75 6e 67 65 28 76 29 0d  |.%.. ..gunge(v).|
000063c0  25 8a 2c 20 ea 70 78 25  2c 70 79 25 2c 74 6f 70  |%., .px%,py%,top|
000063d0  25 2c 6c 63 2c 6c 65 66  74 25 2c 76 78 25 2c 76  |%,lc,left%,vx%,v|
000063e0  79 25 2c 6c 6f 6f 70 25  2c 6c 63 0d 25 94 0b 20  |y%,loop%,lc.%.. |
000063f0  c8 8e 20 76 20 ca 0d 25  9e 70 20 c9 20 31 20 3a  |.. v ..%.p . 1 :|
00006400  70 78 25 3d 31 32 35 3a  70 79 25 3d 37 31 36 3a  |px%=125:py%=716:|
00006410  74 6f 70 25 3d 38 31 30  3a 70 78 31 25 3d 32 36  |top%=810:px1%=26|
00006420  35 3a 6c 65 66 74 25 3d  35 34 3a 73 70 74 24 3d  |5:left%=54:spt$=|
00006430  22 41 52 43 22 3a c8 99  26 32 45 2c 32 38 33 2c  |"ARC":..&2E,283,|
00006440  73 70 2c 22 41 72 63 22  2c 22 67 6c 70 22 3a 76  |sp,"Arc","glp":v|
00006450  78 25 3d 38 35 3a 76 79  25 3d 31 30 30 3a 6c 6f  |x%=85:vy%=100:lo|
00006460  6f 70 25 3d 39 35 0d 25  a8 71 20 c9 20 32 20 3a  |op%=95.%.q . 2 :|
00006470  70 78 25 3d 35 33 36 3a  70 79 25 3d 37 31 36 3a  |px%=536:py%=716:|
00006480  74 6f 70 25 3d 38 34 30  3a 70 78 31 25 3d 36 39  |top%=840:px1%=69|
00006490  37 3a 6c 65 66 74 25 3d  37 34 3a 73 70 74 24 3d  |7:left%=74:spt$=|
000064a0  22 53 45 51 22 3a c8 99  26 32 45 2c 32 38 33 2c  |"SEQ":..&2E,283,|
000064b0  73 70 2c 22 73 65 71 22  2c 22 67 6c 70 22 3a 76  |sp,"seq","glp":v|
000064c0  78 25 3d 32 35 3a 76 79  25 3d 31 35 30 3a 6c 6f  |x%=25:vy%=150:lo|
000064d0  6f 70 25 3d 31 33 30 0d  25 b2 06 20 cb 0d 25 bc  |op%=130.%.. ..%.|
000064e0  23 20 70 79 31 25 3d 39  30 30 3a 6c 63 3d 32 3a  |# py1%=900:lc=2:|
000064f0  6c 63 31 3d 30 3a e6 31  32 20 c8 9c 20 32 35 35  |lc1=0:.12 .. 255|
00006500  0d 25 c6 1c 20 ef 32 34  2c 70 78 25 3b 74 6f 70  |.%.. .24,px%;top|
00006510  25 3b 70 78 31 25 3b 70  79 31 25 3b 0d 25 d0 1d  |%;px1%;py1%;.%..|
00006520  20 e3 20 56 3d 70 79 31  25 2b 31 35 20 b8 20 74  | . V=py1%+15 . t|
00006530  6f 70 25 2b 38 20 88 2d  32 0d 25 da 19 20 c8 8f  |op%+8 .-2.%.. ..|
00006540  20 c8 90 20 70 78 25 2b  6c 65 66 74 25 2c 56 2c  | .. px%+left%,V,|
00006550  31 32 0d 25 e4 44 20 e7  20 6c 63 31 3d 32 20 8c  |12.%.D . lc1=2 .|
00006560  20 f2 65 6d 70 74 79 5f  74 61 6e 6b 28 76 2c 6c  | .empty_tank(v,l|
00006570  63 29 3a ef 32 34 2c 70  78 25 3b 74 6f 70 25 3b  |c):.24,px%;top%;|
00006580  70 78 31 25 3b 70 79 31  25 3b 3a 6c 63 2b 3d 31  |px1%;py1%;:lc+=1|
00006590  3a 6c 63 31 3d 30 0d 25  ee 12 20 49 3d a6 28 34  |:lc1=0.%.. I=.(4|
000065a0  29 3a 6c 63 31 2b 3d 31  0d 25 f8 06 20 ed 0d 26  |):lc1+=1.%.. ..&|
000065b0  02 06 20 3a 0d 26 0c 0a  20 6c 63 31 3d 30 0d 26  |.. :.&.. lc1=0.&|
000065c0  16 12 20 e3 20 56 3d 30  20 b8 20 6c 6f 6f 70 25  |.. . V=0 . loop%|
000065d0  0d 26 20 17 20 c8 99 26  32 45 2c 33 31 36 2c 73  |.& . ..&2E,316,s|
000065e0  70 2c 22 67 6c 70 22 0d  26 2a 0e 20 ec 20 30 2c  |p,"glp".&*. . 0,|
000065f0  76 79 25 2d 56 0d 26 34  15 20 e3 20 58 3d 30 20  |vy%-V.&4. . X=0 |
00006600  b8 20 31 36 30 20 88 20  32 30 0d 26 3e 11 20 e6  |. 160 . 20.&>. .|
00006610  30 2c 31 32 20 c8 9c 20  32 35 35 0d 26 48 1c 20  |0,12 .. 255.&H. |
00006620  df 58 2c 28 76 79 25 2d  56 29 2b 37 35 30 2a 28  |.X,(vy%-V)+750*(|
00006630  b5 58 2f 76 78 25 29 0d  26 52 06 20 ed 0d 26 5c  |.X/vx%).&R. ..&\|
00006640  0b 20 41 3d a6 28 32 29  0d 26 66 13 20 c8 99 26  |. A=.(2).&f. ..&|
00006650  32 45 2c 33 31 36 2c 73  70 2c 30 0d 26 70 22 20  |2E,316,sp,0.&p" |
00006660  c8 99 26 32 45 2c 32 39  30 2c 73 70 2c 22 67 6c  |..&2E,290,sp,"gl|
00006670  70 22 2c 70 78 25 2c 70  79 25 2c 26 38 0d 26 7a  |p",px%,py%,&8.&z|
00006680  2c 20 e7 20 6c 63 31 3d  32 20 8c 20 f2 65 6d 70  |, . lc1=2 . .emp|
00006690  74 79 5f 74 61 6e 6b 28  76 2c 6c 63 29 3a 6c 63  |ty_tank(v,lc):lc|
000066a0  2b 3d 31 3a 6c 63 31 3d  30 0d 26 84 0b 20 6c 63  |+=1:lc1=0.&.. lc|
000066b0  31 2b 3d 31 0d 26 8e 06  20 ed 0d 26 98 13 20 c8  |1+=1.&.. ..&.. .|
000066c0  99 26 32 45 2c 33 31 36  2c 73 70 2c 30 0d 26 a2  |.&2E,316,sp,0.&.|
000066d0  06 20 87 0d 26 b6 0e 20  e6 30 2c 30 20 c8 9c 20  |. ..&.. .0,0 .. |
000066e0  30 0d 26 c0 1c 20 ef 32  34 2c 70 78 25 3b 74 6f  |0.&.. .24,px%;to|
000066f0  70 25 3b 70 78 31 25 3b  70 79 31 25 3b 0d 26 ca  |p%;px1%;py1%;.&.|
00006700  1e 20 e3 20 56 3d 70 79  31 25 2b 31 35 20 b8 20  |. . V=py1%+15 . |
00006710  74 6f 70 25 2b 31 30 20  88 2d 32 0d 26 d4 19 20  |top%+10 .-2.&.. |
00006720  c8 8f 20 c8 90 20 70 78  25 2b 6c 65 66 74 25 2c  |.. .. px%+left%,|
00006730  56 2c 31 32 0d 26 de 06  20 ed 0d 26 e8 17 20 c8  |V,12.&.. ..&.. .|
00006740  99 26 32 45 2c 32 38 31  2c 73 70 2c 22 67 6c 70  |.&2E,281,sp,"glp|
00006750  22 0d 26 f2 0d 20 d4 31  2c 30 2c 30 2c 30 0d 26  |".&.. .1,0,0,0.&|
00006760  fc 06 20 e1 0d 27 06 06  20 3a 0d 27 10 19 20 dd  |.. ..'.. :.'.. .|
00006770  f2 65 6d 70 74 79 5f 74  61 6e 6b 28 76 2c 65 6d  |.empty_tank(v,em|
00006780  70 25 29 0d 27 1a 18 20  ea 20 58 25 2c 59 25 2c  |p%).'.. . X%,Y%,|
00006790  58 31 25 2c 58 32 25 2c  76 73 25 0d 27 24 0b 20  |X1%,X2%,vs%.'$. |
000067a0  c8 8e 20 76 20 ca 0d 27  2e 1e 20 c9 20 31 20 3a  |.. v ..'.. . 1 :|
000067b0  58 25 3d 31 32 31 3a 58  31 25 3d 32 33 38 3a 76  |X%=121:X1%=238:v|
000067c0  73 25 3d 38 0d 27 38 1e  20 c9 20 32 20 3a 58 25  |s%=8.'8. . 2 :X%|
000067d0  3d 35 35 33 3a 58 31 25  3d 39 39 38 3a 76 73 25  |=553:X1%=998:vs%|
000067e0  3d 32 0d 27 42 06 20 cb  0d 27 4c 13 20 59 25 3d  |=2.'B. ..'L. Y%=|
000067f0  39 32 33 3a 59 31 25 3d  39 39 38 0d 27 56 17 20  |923:Y1%=998.'V. |
00006800  ef 32 34 2c 58 25 3b 59  25 3b 58 31 25 3b 59 31  |.24,X%;Y%;X1%;Y1|
00006810  25 3b 0d 27 60 2c 20 c8  99 26 32 45 2c 32 39 30  |%;.'`, ..&2E,290|
00006820  2c 73 70 2c 22 74 67 75  6e 67 65 22 2c 58 25 2c  |,sp,"tgunge",X%,|
00006830  28 59 31 25 2d 76 73 25  29 2d 65 6d 70 25 0d 27  |(Y1%-vs%)-emp%.'|
00006840  6a 0a 20 ef 32 36 3a 87  0d 27 74 06 20 e1 0d 27  |j. .26:..'t. ..'|
00006850  7e 06 20 3a 0d 27 88 16  20 dd f2 73 6f 75 6e 64  |~. :.'.. ..sound|
00006860  28 72 24 2c 74 69 6d 65  25 29 0d 27 92 13 20 e7  |(r$,time%).'.. .|
00006870  20 73 6f 75 6e 64 25 3d  30 20 8c 20 e1 0d 27 9c  | sound%=0 . ..'.|
00006880  08 20 d1 3d 30 0d 27 a6  1a 20 ff 22 43 48 41 4e  |. .=0.'.. ."CHAN|
00006890  4e 45 4c 56 4f 49 43 45  20 31 20 22 2b 72 24 0d  |NELVOICE 1 "+r$.|
000068a0  27 b0 15 20 d4 20 31 2c  76 6f 6c 25 2c 26 32 35  |'.. . 1,vol%,&25|
000068b0  35 30 2c 31 0d 27 ba 11  20 c8 95 20 91 20 3c 3d  |50,1.'.. .. . <=|
000068c0  74 69 6d 65 25 0d 27 c4  06 20 ce 0d 27 ce 06 20  |time%.'.. ..'.. |
000068d0  e1 0d 27 d8 05 3a 0d 27  e2 13 20 dd f2 6d 61 6b  |..'..:.'.. ..mak|
000068e0  65 77 6f 72 64 28 51 24  29 0d 27 ec 16 20 ea 20  |eword(Q$).'.. . |
000068f0  69 6e 74 25 2c 69 6e 74  31 25 2c 64 6d 79 25 0d  |int%,int1%,dmy%.|
00006900  27 f6 0f 20 64 6d 79 25  3d 97 28 51 24 29 0d 28  |'.. dmy%=.(Q$).(|
00006910  00 15 20 69 6e 74 25 3d  a6 28 38 29 3a 69 6e 74  |.. int%=.(8):int|
00006920  25 3d 30 0d 28 0a 26 20  c8 99 26 32 45 2c 32 39  |%=0.(.& ..&2E,29|
00006930  30 2c 73 70 2c 22 6b 65  79 5f 75 70 22 2c 70 78  |0,sp,"key_up",px|
00006940  25 2c 70 79 25 2c 26 30  38 0d 28 14 1e 20 e7 20  |%,py%,&08.(.. . |
00006950  a9 28 69 6e 70 75 74 24  29 2b 31 3e 6c 65 6e 67  |.(input$)+1>leng|
00006960  74 68 25 20 8c 20 e1 0d  28 1e 1c 20 e7 20 64 6d  |th% . ..(.. . dm|
00006970  79 25 3c 36 35 20 84 20  64 6d 79 25 3e 39 30 20  |y%<65 . dmy%>90 |
00006980  8c 20 e1 0d 28 28 37 20  69 6e 70 75 74 24 3d 69  |. ..((7 input$=i|
00006990  6e 70 75 74 24 2b 51 24  3a 69 6e 74 25 3d a9 28  |nput$+Q$:int%=.(|
000069a0  69 6e 70 75 74 24 29 3a  69 6e 74 31 25 3d 6c 65  |input$):int1%=le|
000069b0  6e 67 74 68 25 2d 69 6e  74 25 0d 28 32 2e 20 e7  |ngth%-int%.(2. .|
000069c0  20 69 6e 74 25 3e 30 20  8c 20 69 6e 74 65 72 6e  | int%>0 . intern|
000069d0  61 6c 24 3d 69 6e 70 75  74 24 2b 28 c4 69 6e 74  |al$=input$+(.int|
000069e0  31 25 2c 22 2d 22 29 29  0d 28 3c 13 20 67 75 65  |1%,"-")).(<. gue|
000069f0  73 73 63 6f 75 6e 74 25  2b 3d 31 0d 28 46 06 20  |sscount%+=1.(F. |
00006a00  e1 0d 28 50 05 3a 0d 28  5a 0d 20 dd f2 64 65 6c  |..(P.:.(Z. ..del|
00006a10  6c 65 74 0d 28 64 13 20  e7 20 67 75 65 73 73 25  |let.(d. . guess%|
00006a20  3d 30 20 8c 20 e1 0d 28  6e 18 20 e7 20 67 75 65  |=0 . ..(n. . gue|
00006a30  73 73 63 6f 75 6e 74 25  3d 30 20 8c 20 e1 0d 28  |sscount%=0 . ..(|
00006a40  78 0c 20 ea 20 44 25 2c  45 25 0d 28 82 2c 20 44  |x. . D%,E%.(., D|
00006a50  25 3d a9 28 69 6e 70 75  74 24 29 3a 45 25 3d 44  |%=.(input$):E%=D|
00006a60  25 2d 31 3a 69 6e 70 75  74 24 3d c0 69 6e 70 75  |%-1:input$=.inpu|
00006a70  74 24 2c 45 25 29 0d 28  8c 12 20 44 25 3d 6c 65  |t$,E%).(.. D%=le|
00006a80  6e 67 74 68 25 2d 45 25  0d 28 96 1e 20 69 6e 74  |ngth%-E%.(.. int|
00006a90  65 72 6e 61 6c 24 3d 69  6e 70 75 74 24 2b c4 44  |ernal$=input$+.D|
00006aa0  25 2c 22 2d 22 29 0d 28  a0 13 20 67 75 65 73 73  |%,"-").(.. guess|
00006ab0  63 6f 75 6e 74 25 2d 3d  31 0d 28 aa 06 20 e1 0d  |count%-=1.(.. ..|
00006ac0  ff                                                |.|
00006ac1