$�*******************************
$�*   EXILE saved game editor   *
$�*     Written Sept. 1990      *
($�*  By James 'Rince' Bonfield  *
2$�*******************************
<� � �error:�
Fload=&5C00
P� 7
Z�ass
d	�init
n� � �error:� �Dx@
x�
��display_menu
�
� S$=�
�� �"ABCDEFGHI",S$)
�=� �(S$)-64 � �tt@,�dH@,�d\@,�dp@,�TDA,�TXA,�TlA,�D@A,�DTA
�� �
�
�items
�� �
��energy_got
�� �
��energy_usage
�� �
��pockets
�� �

	�keys

� �


�teleport

"� �

,	�misc

6� �

@	�load

J� �

T	�save

^� �

h
��init

r� OB%(15),OB$(15)

|� A%=0 � 15

�� OB$(A%),OB%(A%)

��

��

�� "Strange Weapon",&47

�� "Live grenade",&12

�� "Normal grenade",&50

�� "Coronium rocks",&55

�� "Coronium crystal",&58

�� "Boulder",&45

�� "Destinator",&4A

�� "Empty glass",&4C

�� "Full glass",&4D

�� "Key RCD",&4E
� "Cannon RCD",&4F
� "Jetpack booster",&16
� "Whistle 1 (Y)",&1E
&� "Whistle 2 (U)",&1F
0� "Mushroom imm. pill",&1D
:� "Radiation imm. pill",&20
D��title(TEXT$,BC%,FC%)
N�
X%� T%=0 � 1:� �BC%;�157;�FC%;�141;
b� �(16-�(TEXT$)/2);TEXT$
l�
v�''
��
�ݤinput(TEXT$)
�� �129;TEXT$;�134;
�
� ""TEXT$
�� TEXT$="" � TEXT$="0"
�
=TEXT$
���error
�� �=17 � �
�7�title("ERROR**ERROR**ERROR**ERROR**ERROR",131,133)
�� '''�134;"Error!!! :-"
�� ''
��:� " at line ";�
�<� �0,23);�129;�157;�134;"      PRESS SPACE TO CONTINUE";
� � �=32
�
��display_menu
 "�title("EXILE EDITOR",129,134)
*	��DfC
4� A%=0 � 8
>- � A$:� �2,A%+5)�132;�(65+A%);".";�131;A$
H�
R� ''�134;"Please select:";
\�
f� "WEAPONS/ARMOUR HELD"
p� "ENERGY FOR HELD ITEMS"
z� "ENERGY USAGE FOR ITEMS"
�� "CONTENTS OF POCKETS"
�� "KEYS HELD"
�� "TELEPORT LOCATIONS"
�� "MISC. ITEMS FOUND"
�� "LOAD POSITION"
�� "SAVE POSITION"
�
��load
�#�title("LOAD POSITION",132,131)
�(F$=�input("Please enter filename :")
��"LOAD "+F$+" "+�~load
�� decode
��
�
��save
#�title("SAVE POSITION",132,131)
(F$=�input("Please enter filename :")
� encode
$#�"SAVE "+F$+" "+�~load+"+400 0"
.� decode
8�
B	��ass
L� PASS=0 � 2 � 2:P%=&900
V
[OPT PASS
`.decode
jLDA #&0:STA eor1+1
tLDA #load � &100:STA eor1+2
~STA eor2+2:STA eor3+2
�LDX #&83
�LDY #&FC
�LDA #&00
�.eor1 � load
�INC eor1+1
�
BNE loop1
�INC eor1+2
�.loop1 INX
�BNE eor1
�INY
�BNE eor1
�STA pos1+1
SEC:SED

LDA #&82
STA &72
LDA #&FC
(STA &73
2LDY #&00
<LDA #&6E
FSTA &71
PLDA #&92
Z.loop3 ADC &71
dADC #&15
nSTA &71
x.eor2 � load,Y
�.eor3 STA load,Y
�	� &71
�INY
�
BNE loop2
�INC eor2+2
�INC eor3+2
�.loop2 INC &72
�
BNE loop3
�INC &73
�
BNE loop3
�CLD
�.pos1 LDA #&64
�� load+&37D

� #&9F
STA load+&35A
LDA #&43
"STA load+&37D
,RTS
6.encode
@SED:SEI
JSEC
TLDA #load � &100:STA pos2+2
^!LDA #load � &100+4:STA pos3+2
hLDA #&6E
rSTA &7D
|LDA #&92
�LDX #&4
�LDY #&0
�.loop7 ADC &7D
�ADC #&15
�STA &7D
�.pos2 LDA load,Y
�PHA
�� load+&35A
�STA load+&35A
�PLA
�	� &7D
�PHA
�� load+&37D
STA load+&37D
PLA
.pos3 STA load+&400,Y
&INY
0
BNE loop7
:INC pos2+2
DINC pos3+2
NDEX
X
BNE loop7
b
LDX #0
lCLD
v
.loop8
�LDA load+&400,X:STA load,X
�#LDA load+&500,X:STA load+&100,X
�#LDA load+&600,X:STA load+&200,X
�#LDA load+&700,X:STA load+&300,X
�INX:BNE loop8
�CLI
�RTS
�]
��
��
���items
�)�title("WEAPONS/ARMOUR HELD",132,131)
�
� �tXH
� A%=0 � 4
� A$
0� �2,A%+5);�133;�(A%+65);"."�134;A$;�(25-�);
 9� A%?(load+&17)=&FF � �132"GOT    " � �129"NOT GOT"
*�
4� ''
>"�132;"Press A to E to toggle"
H�132;"Press Q to quit"
R
� S$=�
\� �"ABCDEQ",S$)
f� S$="Q" � �
pL%=�(S$)+load-42
z� ?L%=0 � ?L%=&FF � ?L%=0
�
� �dxG
�� "JETPACK"
�>� "PISTOL","ICER","BLASTER","PLASMA GUN","PROTECTION SUIT"
���energy_got
�
@%=&20309
�2�title("WEAPONS/ARMOUR ENERGY LEVELS",132,131)
�!�5)�131;"ITEM";�26);"ENERGY"
�
� �tNH
�� A%=0 � 5
�� A$
�0� �2,A%+6);�133;�(A%+65);"."�134;A$;�(25-�);
�?� �132;(A%?(load+&5C)*256+A%?(load+&56))/2048;�(33-�);"MJ";
��
	� ''
	-�132;"Press A to F to enter new ammount"
	�132;"Press Q to quit"
	$
� S$=�
	.L%=�(S$)-65
	8� �"ABCDEFQ",S$)
	B� S$="Q" � �
	L
� �0,18);
	V2A%=�(�input("Please enter new energy :"))*2048
	`� �0,18);�239," ")
	j3L%?(load+&5C)=A% � &100:L%?(load+&56)=A% � &100
	t
� �dJH
	~��energy_usage
	�
@%=&20109
	�.�title("ENERGY COMSUMPTION RATES",132,131)
	��5)�131;"ITEM";�23);"RATE"
	�
� �tNH
	�� A%=0 � 4
	�� A$
	�0� �2,A%+6);�133;�(A%+65);"."�134;A$;�(22-�);
	�)� �132;A%?(load+&62)/2;�(29-�);"KJ/";
	�*� A%=0 � A%=3 � � "second" � �"bullet"
	��
	�� ''
	�*�132;"Press A to E to enter new rate"
�132;"Press Q to quit"


� S$=�
L%=�(S$)-65
� �"ABCDEQ",S$)
(� S$="Q" � �
2
� �0,18);
<)A%=�(�input("Please enter rate :"))*2
F� �0,18);�239," ")
PL%?(load+&62)=A% � &100 
Z	�tfI
d
��pockets
n@%=9
x%�title("POCKET CONTENTS",132,131)
�5� �0,5)�134;"No. of pockets used :";�132;load?&4F
�� A%=0 � 3
�%� A%<load?&4F � � �134; � � �133;
�)� "Contents of pckt ";�(65+A%);"  :";
�%� A%<load?&4F � � �132; � � �133;
�B%=load?(A%+&50)
�
OB%=-1
�� OB%=OB%+1
�� OB%=11 � OB%(OB%)=B%
�)� OB%=11 � OB$="Dunno" � OB$=OB$(OB%)
�	� OB$
��
�� �0,10)
+�132;"Press A to D to change contents"
.�132;"Q to quit, N to change no. pockets"

� S$=�
"� �"ABCDNQ",S$)
,� S$="Q" � �
6� '
@,� S$="N" � �pocket_num � �pocket_content
J� S$="N" � �tBJ � � �DxJ
T��pocket_num
^8load?&4F=�(�input("Enter new no. of pockets :")) � 5
h� �0,15)�111," ")
r�
|��pocket_content
�A%=�(S$)-65
�-�title("CONTENTS FOR POCKET "+S$,129,131)
�� B%=0 � 10
�(� �2);�133;�(B%+65);".";�134;OB$(B%)
��
�,�'�129;"Current contents :"�134;OB$(OB%)
�)�'�132"Press A to K for new contents"
�
� S$=�
�� S$>="A" � S$<="K"
�load?(A%+&50)=OB%(�S$-65)
��
�
��keys
��title("KEYS HELD",132,131)
&� �134;"Current keys held :";�133;
B%=0
� A%=0 � 7
&� load?(A%+&E)=0 � �DNL
0� B%<>0 � � ",";
:� �(A%+65);
DB%=B%+1
N�
X� B%=0 � � "NONE"
b<� ''�132;"Keys to choose from are"�129"A"�132"to"�129"H"
l0�'�132;"Pressing a letter (A-H) toggles key"
v�132;"Press Q to quit"
�
� S$=�
�� �"ABCDEFGHQ",S$)
�� S$="Q" � �
�L%=�(S$)-51
�)� load?L%=0 � load?L%=&FF � load?L%=0
�	�d~K
���teleport
�	@%=&9
�(�title("TELEPORT LOCATIONS",132,131)
�7� �134;"No. of teleports remembered :"�129;load?&2A
�� �23,7);�131;"X    Y"
�� A%=0 � 3
�%� A%<load?&2A � � �134; � � �133;

)� "Teleport location ";�(A%+65);" :";

%� A%<load?&2A � � �132; � � �133;

V� �23);"&";~load?(&2B+(A%+load?&29)� 4);�(26-�);"  &";~load?(&30+(A%+load?&29)� 4)

 �

*8� �0,14);�132;"Press A to D to change teleport loc."

45� �132;"Q to quit, N to change no. of teleports";

>
� S$=�

H� �"ABCDQN",S$)

R� S$="Q" � �

\�':A%=�(S$)-65

fT� S$="N" � load?&2A=�(�input("Enter new no. of tele's remembered :")) � 5:� �dPL

pEload?(&2B+(A%+load?&29)� 4)=�(�input("New X coordinate (Hex) :"))

zEload?(&30+(A%+load?&29)� 4)=�(�input("New Y coordinate (Hex) :"))

�
� �dPL

�
��misc

�	@%=&1

�)�title("MISCELANEOUS PIECES",132,131)

�'� �131;�6);"Item";�25);"Used / got"

�� A%=0 � 4

�8� �2,A%+6);�133;�(A%+65);"."�134;OB$(A%+11);�(28-�);

�4 � load?OB%(A%+11)=0 � �129;"No" � � �132;"Yes"

��

�E� �2,12)�133;"F.";�134;"Your X coordinate";�(28-�);�132;~load?&99

�B� �2)�133;"G.";�134;"Your Y coordinate";�(28-�);�132;~load?&BC

�0 � '�2)�133;"H.";�134;"Time :";�(16-�);�131;

�time=load!7/50
1days=time � 86400:hours=(time � 86400) � 3600
,mins=(time � 3600) � 60:secs=(time � 60)
.� days;" day";:� days=1 � � ","; � � "s,";
$1� hours;" hour";:� hours=1 � � ","; � � "s,";
.9� �16);�131;mins;" min";:� mins=1  � � ","; � � "s,";
8+� secs;" sec";:� secs=1 � � "." � �"s."
B)� ''�132;"Press A to H to alter stat"
L� �132;"Or press Q to quit"
V
� S$=�
`� �"ABCDEFGHQ",S$)
j� S$="Q" � �
t(� �"ABCDE",S$) � �misc_toggle:� �tXM
~"� �"FG",S$) � �misc_pos:� �tXM
�� 28,0,23,39,22
�,days=�(�input("Enter number of days :"))
�.hours=�(�input("Enter number of hours :"))
�/mins=�(�input("Enter number of minutes :"))
�/secs=�(�input("Enter number of seconds :"))
�2time=(days*3600*24+hours*3600+mins*60+secs)*50
�load!7=time
�� 28,0,24,39,0
�
� �tXM
���misc_toggle
�A%=�(S$)-54
�B� load?(OB%(A%))=&FF � load?(OB%(A%))=&00 � load?(OB%(A%))=&FF
�

��misc_pos
� 
Q� S$="F" � new_x=�("&"+�input("Enter new X coord (Hex) :")) � new_x=load?&99 
(P� S$="G" � new_y=�("&"+�input("Enter new Y coord (Hex) :")) � new_y=load?&BC
2load?&99=new_x
<load?&BC=new_y
F�
�

00000000  0d 00 0a 24 f4 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...$.***********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 2a 2a 2a 0d 00 14 24  f4 2a 20 20 20 45 58 49  |****...$.*   EXI|
00000030  4c 45 20 73 61 76 65 64  20 67 61 6d 65 20 65 64  |LE saved game ed|
00000040  69 74 6f 72 20 20 20 2a  0d 00 1e 24 f4 2a 20 20  |itor   *...$.*  |
00000050  20 20 20 57 72 69 74 74  65 6e 20 53 65 70 74 2e  |   Written Sept.|
00000060  20 31 39 39 30 20 20 20  20 20 20 2a 0d 00 28 24  | 1990      *..($|
00000070  f4 2a 20 20 42 79 20 4a  61 6d 65 73 20 27 52 69  |.*  By James 'Ri|
00000080  6e 63 65 27 20 42 6f 6e  66 69 65 6c 64 20 20 2a  |nce' Bonfield  *|
00000090  0d 00 32 24 f4 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..2$.***********|
000000a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000b0  2a 2a 2a 2a 0d 00 3c 10  ee 20 85 20 f2 65 72 72  |****..<.. . .err|
000000c0  6f 72 3a e0 0d 00 46 0e  6c 6f 61 64 3d 26 35 43  |or:...F.load=&5C|
000000d0  30 30 0d 00 50 07 eb 20  37 0d 00 5a 08 f2 61 73  |00..P.. 7..Z..as|
000000e0  73 0d 00 64 09 f2 69 6e  69 74 0d 00 6e 15 ee 20  |s..d..init..n.. |
000000f0  85 20 f2 65 72 72 6f 72  3a e5 20 8d 44 78 40 0d  |. .error:. .Dx@.|
00000100  00 78 05 f5 0d 00 82 11  f2 64 69 73 70 6c 61 79  |.x.......display|
00000110  5f 6d 65 6e 75 0d 00 8c  0a f5 20 53 24 3d be 0d  |_menu..... S$=..|
00000120  00 96 16 fd 20 a7 22 41  42 43 44 45 46 47 48 49  |.... ."ABCDEFGHI|
00000130  22 2c 53 24 29 0d 00 a0  3d ee 20 97 28 53 24 29  |",S$)...=. .(S$)|
00000140  2d 36 34 20 e5 20 8d 74  74 40 2c 8d 64 48 40 2c  |-64 . .tt@,.dH@,|
00000150  8d 64 5c 40 2c 8d 64 70  40 2c 8d 54 44 41 2c 8d  |.d\@,.dp@,.TDA,.|
00000160  54 58 41 2c 8d 54 6c 41  2c 8d 44 40 41 2c 8d 44  |TXA,.TlA,.D@A,.D|
00000170  54 41 0d 00 aa 07 fd 20  a3 0d 00 b4 0a f2 69 74  |TA..... ......it|
00000180  65 6d 73 0d 00 be 07 fd  20 a3 0d 00 c8 0f f2 65  |ems..... ......e|
00000190  6e 65 72 67 79 5f 67 6f  74 0d 00 d2 07 fd 20 a3  |nergy_got..... .|
000001a0  0d 00 dc 11 f2 65 6e 65  72 67 79 5f 75 73 61 67  |.....energy_usag|
000001b0  65 0d 00 e6 07 fd 20 a3  0d 00 f0 0c f2 70 6f 63  |e..... ......poc|
000001c0  6b 65 74 73 0d 00 fa 07  fd 20 a3 0d 01 04 09 f2  |kets..... ......|
000001d0  6b 65 79 73 0d 01 0e 07  fd 20 a3 0d 01 18 0d f2  |keys..... ......|
000001e0  74 65 6c 65 70 6f 72 74  0d 01 22 07 fd 20 a3 0d  |teleport..".. ..|
000001f0  01 2c 09 f2 6d 69 73 63  0d 01 36 07 fd 20 a3 0d  |.,..misc..6.. ..|
00000200  01 40 09 f2 6c 6f 61 64  0d 01 4a 07 fd 20 a3 0d  |.@..load..J.. ..|
00000210  01 54 09 f2 73 61 76 65  0d 01 5e 07 fd 20 a3 0d  |.T..save..^.. ..|
00000220  01 68 0a dd f2 69 6e 69  74 0d 01 72 15 de 20 4f  |.h...init..r.. O|
00000230  42 25 28 31 35 29 2c 4f  42 24 28 31 35 29 0d 01  |B%(15),OB$(15)..|
00000240  7c 0f e3 20 41 25 3d 30  20 b8 20 31 35 0d 01 86  ||.. A%=0 . 15...|
00000250  15 f3 20 4f 42 24 28 41  25 29 2c 4f 42 25 28 41  |.. OB$(A%),OB%(A|
00000260  25 29 0d 01 90 05 ed 0d  01 9a 05 e1 0d 01 a4 1a  |%)..............|
00000270  dc 20 22 53 74 72 61 6e  67 65 20 57 65 61 70 6f  |. "Strange Weapo|
00000280  6e 22 2c 26 34 37 0d 01  ae 18 dc 20 22 4c 69 76  |n",&47..... "Liv|
00000290  65 20 67 72 65 6e 61 64  65 22 2c 26 31 32 0d 01  |e grenade",&12..|
000002a0  b8 1a dc 20 22 4e 6f 72  6d 61 6c 20 67 72 65 6e  |... "Normal gren|
000002b0  61 64 65 22 2c 26 35 30  0d 01 c2 1a dc 20 22 43  |ade",&50..... "C|
000002c0  6f 72 6f 6e 69 75 6d 20  72 6f 63 6b 73 22 2c 26  |oronium rocks",&|
000002d0  35 35 0d 01 cc 1c dc 20  22 43 6f 72 6f 6e 69 75  |55..... "Coroniu|
000002e0  6d 20 63 72 79 73 74 61  6c 22 2c 26 35 38 0d 01  |m crystal",&58..|
000002f0  d6 13 dc 20 22 42 6f 75  6c 64 65 72 22 2c 26 34  |... "Boulder",&4|
00000300  35 0d 01 e0 16 dc 20 22  44 65 73 74 69 6e 61 74  |5..... "Destinat|
00000310  6f 72 22 2c 26 34 41 0d  01 ea 17 dc 20 22 45 6d  |or",&4A..... "Em|
00000320  70 74 79 20 67 6c 61 73  73 22 2c 26 34 43 0d 01  |pty glass",&4C..|
00000330  f4 16 dc 20 22 46 75 6c  6c 20 67 6c 61 73 73 22  |... "Full glass"|
00000340  2c 26 34 44 0d 01 fe 13  dc 20 22 4b 65 79 20 52  |,&4D..... "Key R|
00000350  43 44 22 2c 26 34 45 0d  02 08 16 dc 20 22 43 61  |CD",&4E..... "Ca|
00000360  6e 6e 6f 6e 20 52 43 44  22 2c 26 34 46 0d 02 12  |nnon RCD",&4F...|
00000370  1b dc 20 22 4a 65 74 70  61 63 6b 20 62 6f 6f 73  |.. "Jetpack boos|
00000380  74 65 72 22 2c 26 31 36  0d 02 1c 19 dc 20 22 57  |ter",&16..... "W|
00000390  68 69 73 74 6c 65 20 31  20 28 59 29 22 2c 26 31  |histle 1 (Y)",&1|
000003a0  45 0d 02 26 19 dc 20 22  57 68 69 73 74 6c 65 20  |E..&.. "Whistle |
000003b0  32 20 28 55 29 22 2c 26  31 46 0d 02 30 1e dc 20  |2 (U)",&1F..0.. |
000003c0  22 4d 75 73 68 72 6f 6f  6d 20 69 6d 6d 2e 20 70  |"Mushroom imm. p|
000003d0  69 6c 6c 22 2c 26 31 44  0d 02 3a 1f dc 20 22 52  |ill",&1D..:.. "R|
000003e0  61 64 69 61 74 69 6f 6e  20 69 6d 6d 2e 20 70 69  |adiation imm. pi|
000003f0  6c 6c 22 2c 26 32 30 0d  02 44 1a dd f2 74 69 74  |ll",&20..D...tit|
00000400  6c 65 28 54 45 58 54 24  2c 42 43 25 2c 46 43 25  |le(TEXT$,BC%,FC%|
00000410  29 0d 02 4e 05 db 0d 02  58 25 e3 20 54 25 3d 30  |)..N....X%. T%=0|
00000420  20 b8 20 31 3a f1 20 bd  42 43 25 3b bd 31 35 37  | . 1:. .BC%;.157|
00000430  3b bd 46 43 25 3b bd 31  34 31 3b 0d 02 62 1c f1  |;.FC%;.141;..b..|
00000440  20 89 28 31 36 2d a9 28  54 45 58 54 24 29 2f 32  | .(16-.(TEXT$)/2|
00000450  29 3b 54 45 58 54 24 0d  02 6c 05 ed 0d 02 76 07  |);TEXT$..l....v.|
00000460  f1 27 27 0d 02 80 05 e1  0d 02 8a 12 dd a4 69 6e  |.''...........in|
00000470  70 75 74 28 54 45 58 54  24 29 0d 02 94 16 f1 20  |put(TEXT$)..... |
00000480  bd 31 32 39 3b 54 45 58  54 24 3b bd 31 33 34 3b  |.129;TEXT$;.134;|
00000490  0d 02 9e 0d e8 20 22 22  54 45 58 54 24 0d 02 a8  |..... ""TEXT$...|
000004a0  1a e7 20 54 45 58 54 24  3d 22 22 20 8c 20 54 45  |.. TEXT$="" . TE|
000004b0  58 54 24 3d 22 30 22 0d  02 b2 0a 3d 54 45 58 54  |XT$="0"....=TEXT|
000004c0  24 0d 02 bc 0b dd f2 65  72 72 6f 72 0d 02 c6 0e  |$......error....|
000004d0  e7 20 9f 3d 31 37 20 8c  20 e1 0d 02 d0 37 f2 74  |. .=17 . ....7.t|
000004e0  69 74 6c 65 28 22 45 52  52 4f 52 2a 2a 45 52 52  |itle("ERROR**ERR|
000004f0  4f 52 2a 2a 45 52 52 4f  52 2a 2a 45 52 52 4f 52  |OR**ERROR**ERROR|
00000500  2a 2a 45 52 52 4f 52 22  2c 31 33 31 2c 31 33 33  |**ERROR",131,133|
00000510  29 0d 02 da 1b f1 20 27  27 27 bd 31 33 34 3b 22  |)..... '''.134;"|
00000520  45 72 72 6f 72 21 21 21  20 3a 2d 22 0d 02 e4 08  |Error!!! :-"....|
00000530  f1 20 27 27 0d 02 ee 15  f6 3a f1 20 22 20 61 74  |. ''.....:. " at|
00000540  20 6c 69 6e 65 20 22 3b  9e 0d 02 f8 3c f1 20 8a  | line ";....<. .|
00000550  30 2c 32 33 29 3b bd 31  32 39 3b bd 31 35 37 3b  |0,23);.129;.157;|
00000560  bd 31 33 34 3b 22 20 20  20 20 20 20 50 52 45 53  |.134;"      PRES|
00000570  53 20 53 50 41 43 45 20  54 4f 20 43 4f 4e 54 49  |S SPACE TO CONTI|
00000580  4e 55 45 22 3b 0d 03 02  0c f5 20 fd 20 a5 3d 33  |NUE";..... . .=3|
00000590  32 0d 03 0c 05 e1 0d 03  16 12 dd f2 64 69 73 70  |2...........disp|
000005a0  6c 61 79 5f 6d 65 6e 75  0d 03 20 22 f2 74 69 74  |lay_menu.. ".tit|
000005b0  6c 65 28 22 45 58 49 4c  45 20 45 44 49 54 4f 52  |le("EXILE EDITOR|
000005c0  22 2c 31 32 39 2c 31 33  34 29 0d 03 2a 09 f7 8d  |",129,134)..*...|
000005d0  44 66 43 0d 03 34 0e e3  20 41 25 3d 30 20 b8 20  |DfC..4.. A%=0 . |
000005e0  38 0d 03 3e 2d 20 f3 20  41 24 3a f1 20 8a 32 2c  |8..>- . A$:. .2,|
000005f0  41 25 2b 35 29 bd 31 33  32 3b bd 28 36 35 2b 41  |A%+5).132;.(65+A|
00000600  25 29 3b 22 2e 22 3b bd  31 33 31 3b 41 24 0d 03  |%);".";.131;A$..|
00000610  48 05 ed 0d 03 52 1e f1  20 27 27 bd 31 33 34 3b  |H....R.. ''.134;|
00000620  22 50 6c 65 61 73 65 20  73 65 6c 65 63 74 3a 22  |"Please select:"|
00000630  3b 0d 03 5c 05 e1 0d 03  66 1b dc 20 22 57 45 41  |;..\....f.. "WEA|
00000640  50 4f 4e 53 2f 41 52 4d  4f 55 52 20 48 45 4c 44  |PONS/ARMOUR HELD|
00000650  22 0d 03 70 1d dc 20 22  45 4e 45 52 47 59 20 46  |"..p.. "ENERGY F|
00000660  4f 52 20 48 45 4c 44 20  49 54 45 4d 53 22 0d 03  |OR HELD ITEMS"..|
00000670  7a 1e dc 20 22 45 4e 45  52 47 59 20 55 53 41 47  |z.. "ENERGY USAG|
00000680  45 20 46 4f 52 20 49 54  45 4d 53 22 0d 03 84 1b  |E FOR ITEMS"....|
00000690  dc 20 22 43 4f 4e 54 45  4e 54 53 20 4f 46 20 50  |. "CONTENTS OF P|
000006a0  4f 43 4b 45 54 53 22 0d  03 8e 11 dc 20 22 4b 45  |OCKETS"..... "KE|
000006b0  59 53 20 48 45 4c 44 22  0d 03 98 1a dc 20 22 54  |YS HELD"..... "T|
000006c0  45 4c 45 50 4f 52 54 20  4c 4f 43 41 54 49 4f 4e  |ELEPORT LOCATION|
000006d0  53 22 0d 03 a2 19 dc 20  22 4d 49 53 43 2e 20 49  |S"..... "MISC. I|
000006e0  54 45 4d 53 20 46 4f 55  4e 44 22 0d 03 ac 15 dc  |TEMS FOUND".....|
000006f0  20 22 4c 4f 41 44 20 50  4f 53 49 54 49 4f 4e 22  | "LOAD POSITION"|
00000700  0d 03 b6 15 dc 20 22 53  41 56 45 20 50 4f 53 49  |..... "SAVE POSI|
00000710  54 49 4f 4e 22 0d 03 c0  0a dd f2 6c 6f 61 64 0d  |TION"......load.|
00000720  03 ca 23 f2 74 69 74 6c  65 28 22 4c 4f 41 44 20  |..#.title("LOAD |
00000730  50 4f 53 49 54 49 4f 4e  22 2c 31 33 32 2c 31 33  |POSITION",132,13|
00000740  31 29 0d 03 d4 28 46 24  3d a4 69 6e 70 75 74 28  |1)...(F$=.input(|
00000750  22 50 6c 65 61 73 65 20  65 6e 74 65 72 20 66 69  |"Please enter fi|
00000760  6c 65 6e 61 6d 65 20 3a  22 29 0d 03 de 1a ff 22  |lename :")....."|
00000770  4c 4f 41 44 20 22 2b 46  24 2b 22 20 22 2b c3 7e  |LOAD "+F$+" "+.~|
00000780  6c 6f 61 64 0d 03 e8 0c  d6 20 64 65 63 6f 64 65  |load..... decode|
00000790  0d 03 f2 05 e1 0d 03 fc  0a dd f2 73 61 76 65 0d  |...........save.|
000007a0  04 06 23 f2 74 69 74 6c  65 28 22 53 41 56 45 20  |..#.title("SAVE |
000007b0  50 4f 53 49 54 49 4f 4e  22 2c 31 33 32 2c 31 33  |POSITION",132,13|
000007c0  31 29 0d 04 10 28 46 24  3d a4 69 6e 70 75 74 28  |1)...(F$=.input(|
000007d0  22 50 6c 65 61 73 65 20  65 6e 74 65 72 20 66 69  |"Please enter fi|
000007e0  6c 65 6e 61 6d 65 20 3a  22 29 0d 04 1a 0c d6 20  |lename :")..... |
000007f0  65 6e 63 6f 64 65 0d 04  24 23 ff 22 53 41 56 45  |encode..$#."SAVE|
00000800  20 22 2b 46 24 2b 22 20  22 2b c3 7e 6c 6f 61 64  | "+F$+" "+.~load|
00000810  2b 22 2b 34 30 30 20 30  22 0d 04 2e 0c d6 20 64  |+"+400 0"..... d|
00000820  65 63 6f 64 65 0d 04 38  05 e1 0d 04 42 09 dd f2  |ecode..8....B...|
00000830  61 73 73 0d 04 4c 1c e3  20 50 41 53 53 3d 30 20  |ass..L.. PASS=0 |
00000840  b8 20 32 20 88 20 32 3a  50 25 3d 26 39 30 30 0d  |. 2 . 2:P%=&900.|
00000850  04 56 0d 5b 4f 50 54 20  50 41 53 53 0d 04 60 0b  |.V.[OPT PASS..`.|
00000860  2e 64 65 63 6f 64 65 0d  04 6a 16 4c 44 41 20 23  |.decode..j.LDA #|
00000870  26 30 3a 53 54 41 20 65  6f 72 31 2b 31 0d 04 74  |&0:STA eor1+1..t|
00000880  1f 4c 44 41 20 23 6c 6f  61 64 20 81 20 26 31 30  |.LDA #load . &10|
00000890  30 3a 53 54 41 20 65 6f  72 31 2b 32 0d 04 7e 19  |0:STA eor1+2..~.|
000008a0  53 54 41 20 65 6f 72 32  2b 32 3a 53 54 41 20 65  |STA eor2+2:STA e|
000008b0  6f 72 33 2b 32 0d 04 88  0c 4c 44 58 20 23 26 38  |or3+2....LDX #&8|
000008c0  33 0d 04 92 0c 4c 44 59  20 23 26 46 43 0d 04 9c  |3....LDY #&FC...|
000008d0  0c 4c 44 41 20 23 26 30  30 0d 04 a6 10 2e 65 6f  |.LDA #&00.....eo|
000008e0  72 31 20 82 20 6c 6f 61  64 0d 04 b0 0e 49 4e 43  |r1 . load....INC|
000008f0  20 65 6f 72 31 2b 31 0d  04 ba 0d 42 4e 45 20 6c  | eor1+1....BNE l|
00000900  6f 6f 70 31 0d 04 c4 0e  49 4e 43 20 65 6f 72 31  |oop1....INC eor1|
00000910  2b 32 0d 04 ce 0e 2e 6c  6f 6f 70 31 20 49 4e 58  |+2.....loop1 INX|
00000920  0d 04 d8 0c 42 4e 45 20  65 6f 72 31 0d 04 e2 07  |....BNE eor1....|
00000930  49 4e 59 0d 04 ec 0c 42  4e 45 20 65 6f 72 31 0d  |INY....BNE eor1.|
00000940  04 f6 0e 53 54 41 20 70  6f 73 31 2b 31 0d 05 00  |...STA pos1+1...|
00000950  0b 53 45 43 3a 53 45 44  0d 05 0a 0c 4c 44 41 20  |.SEC:SED....LDA |
00000960  23 26 38 32 0d 05 14 0b  53 54 41 20 26 37 32 0d  |#&82....STA &72.|
00000970  05 1e 0c 4c 44 41 20 23  26 46 43 0d 05 28 0b 53  |...LDA #&FC..(.S|
00000980  54 41 20 26 37 33 0d 05  32 0c 4c 44 59 20 23 26  |TA &73..2.LDY #&|
00000990  30 30 0d 05 3c 0c 4c 44  41 20 23 26 36 45 0d 05  |00..<.LDA #&6E..|
000009a0  46 0b 53 54 41 20 26 37  31 0d 05 50 0c 4c 44 41  |F.STA &71..P.LDA|
000009b0  20 23 26 39 32 0d 05 5a  12 2e 6c 6f 6f 70 33 20  | #&92..Z..loop3 |
000009c0  41 44 43 20 26 37 31 0d  05 64 0c 41 44 43 20 23  |ADC &71..d.ADC #|
000009d0  26 31 35 0d 05 6e 0b 53  54 41 20 26 37 31 0d 05  |&15..n.STA &71..|
000009e0  78 12 2e 65 6f 72 32 20  82 20 6c 6f 61 64 2c 59  |x..eor2 . load,Y|
000009f0  0d 05 82 14 2e 65 6f 72  33 20 53 54 41 20 6c 6f  |.....eor3 STA lo|
00000a00  61 64 2c 59 0d 05 8c 09  82 20 26 37 31 0d 05 96  |ad,Y..... &71...|
00000a10  07 49 4e 59 0d 05 a0 0d  42 4e 45 20 6c 6f 6f 70  |.INY....BNE loop|
00000a20  32 0d 05 aa 0e 49 4e 43  20 65 6f 72 32 2b 32 0d  |2....INC eor2+2.|
00000a30  05 b4 0e 49 4e 43 20 65  6f 72 33 2b 32 0d 05 be  |...INC eor3+2...|
00000a40  12 2e 6c 6f 6f 70 32 20  49 4e 43 20 26 37 32 0d  |..loop2 INC &72.|
00000a50  05 c8 0d 42 4e 45 20 6c  6f 6f 70 33 0d 05 d2 0b  |...BNE loop3....|
00000a60  49 4e 43 20 26 37 33 0d  05 dc 0d 42 4e 45 20 6c  |INC &73....BNE l|
00000a70  6f 6f 70 33 0d 05 e6 07  43 4c 44 0d 05 f0 12 2e  |oop3....CLD.....|
00000a80  70 6f 73 31 20 4c 44 41  20 23 26 36 34 0d 05 fa  |pos1 LDA #&64...|
00000a90  0f 82 20 6c 6f 61 64 2b  26 33 37 44 0d 06 04 0a  |.. load+&37D....|
00000aa0  82 20 23 26 39 46 0d 06  0e 11 53 54 41 20 6c 6f  |. #&9F....STA lo|
00000ab0  61 64 2b 26 33 35 41 0d  06 18 0c 4c 44 41 20 23  |ad+&35A....LDA #|
00000ac0  26 34 33 0d 06 22 11 53  54 41 20 6c 6f 61 64 2b  |&43..".STA load+|
00000ad0  26 33 37 44 0d 06 2c 07  52 54 53 0d 06 36 0b 2e  |&37D..,.RTS..6..|
00000ae0  65 6e 63 6f 64 65 0d 06  40 0b 53 45 44 3a 53 45  |encode..@.SED:SE|
00000af0  49 0d 06 4a 07 53 45 43  0d 06 54 1f 4c 44 41 20  |I..J.SEC..T.LDA |
00000b00  23 6c 6f 61 64 20 81 20  26 31 30 30 3a 53 54 41  |#load . &100:STA|
00000b10  20 70 6f 73 32 2b 32 0d  06 5e 21 4c 44 41 20 23  | pos2+2..^!LDA #|
00000b20  6c 6f 61 64 20 81 20 26  31 30 30 2b 34 3a 53 54  |load . &100+4:ST|
00000b30  41 20 70 6f 73 33 2b 32  0d 06 68 0c 4c 44 41 20  |A pos3+2..h.LDA |
00000b40  23 26 36 45 0d 06 72 0b  53 54 41 20 26 37 44 0d  |#&6E..r.STA &7D.|
00000b50  06 7c 0c 4c 44 41 20 23  26 39 32 0d 06 86 0b 4c  |.|.LDA #&92....L|
00000b60  44 58 20 23 26 34 0d 06  90 0b 4c 44 59 20 23 26  |DX #&4....LDY #&|
00000b70  30 0d 06 9a 12 2e 6c 6f  6f 70 37 20 41 44 43 20  |0.....loop7 ADC |
00000b80  26 37 44 0d 06 a4 0c 41  44 43 20 23 26 31 35 0d  |&7D....ADC #&15.|
00000b90  06 ae 0b 53 54 41 20 26  37 44 0d 06 b8 14 2e 70  |...STA &7D.....p|
00000ba0  6f 73 32 20 4c 44 41 20  6c 6f 61 64 2c 59 0d 06  |os2 LDA load,Y..|
00000bb0  c2 07 50 48 41 0d 06 cc  0f 82 20 6c 6f 61 64 2b  |..PHA..... load+|
00000bc0  26 33 35 41 0d 06 d6 11  53 54 41 20 6c 6f 61 64  |&35A....STA load|
00000bd0  2b 26 33 35 41 0d 06 e0  07 50 4c 41 0d 06 ea 09  |+&35A....PLA....|
00000be0  82 20 26 37 44 0d 06 f4  07 50 48 41 0d 06 fe 0f  |. &7D....PHA....|
00000bf0  82 20 6c 6f 61 64 2b 26  33 37 44 0d 07 08 11 53  |. load+&37D....S|
00000c00  54 41 20 6c 6f 61 64 2b  26 33 37 44 0d 07 12 07  |TA load+&37D....|
00000c10  50 4c 41 0d 07 1c 19 2e  70 6f 73 33 20 53 54 41  |PLA.....pos3 STA|
00000c20  20 6c 6f 61 64 2b 26 34  30 30 2c 59 0d 07 26 07  | load+&400,Y..&.|
00000c30  49 4e 59 0d 07 30 0d 42  4e 45 20 6c 6f 6f 70 37  |INY..0.BNE loop7|
00000c40  0d 07 3a 0e 49 4e 43 20  70 6f 73 32 2b 32 0d 07  |..:.INC pos2+2..|
00000c50  44 0e 49 4e 43 20 70 6f  73 33 2b 32 0d 07 4e 07  |D.INC pos3+2..N.|
00000c60  44 45 58 0d 07 58 0d 42  4e 45 20 6c 6f 6f 70 37  |DEX..X.BNE loop7|
00000c70  0d 07 62 0a 4c 44 58 20  23 30 0d 07 6c 07 43 4c  |..b.LDX #0..l.CL|
00000c80  44 0d 07 76 0a 2e 6c 6f  6f 70 38 0d 07 80 1e 4c  |D..v..loop8....L|
00000c90  44 41 20 6c 6f 61 64 2b  26 34 30 30 2c 58 3a 53  |DA load+&400,X:S|
00000ca0  54 41 20 6c 6f 61 64 2c  58 0d 07 8a 23 4c 44 41  |TA load,X...#LDA|
00000cb0  20 6c 6f 61 64 2b 26 35  30 30 2c 58 3a 53 54 41  | load+&500,X:STA|
00000cc0  20 6c 6f 61 64 2b 26 31  30 30 2c 58 0d 07 94 23  | load+&100,X...#|
00000cd0  4c 44 41 20 6c 6f 61 64  2b 26 36 30 30 2c 58 3a  |LDA load+&600,X:|
00000ce0  53 54 41 20 6c 6f 61 64  2b 26 32 30 30 2c 58 0d  |STA load+&200,X.|
00000cf0  07 9e 23 4c 44 41 20 6c  6f 61 64 2b 26 37 30 30  |..#LDA load+&700|
00000d00  2c 58 3a 53 54 41 20 6c  6f 61 64 2b 26 33 30 30  |,X:STA load+&300|
00000d10  2c 58 0d 07 a8 11 49 4e  58 3a 42 4e 45 20 6c 6f  |,X....INX:BNE lo|
00000d20  6f 70 38 0d 07 b2 07 43  4c 49 0d 07 bc 07 52 54  |op8....CLI....RT|
00000d30  53 0d 07 c6 05 5d 0d 07  d0 05 ed 0d 07 da 05 e1  |S....]..........|
00000d40  0d 07 e4 0b dd f2 69 74  65 6d 73 0d 07 ee 29 f2  |......items...).|
00000d50  74 69 74 6c 65 28 22 57  45 41 50 4f 4e 53 2f 41  |title("WEAPONS/A|
00000d60  52 4d 4f 55 52 20 48 45  4c 44 22 2c 31 33 32 2c  |RMOUR HELD",132,|
00000d70  31 33 31 29 0d 07 f8 0a  f7 20 8d 74 58 48 0d 08  |131)..... .tXH..|
00000d80  02 0e e3 20 41 25 3d 30  20 b8 20 34 0d 08 0c 08  |... A%=0 . 4....|
00000d90  f3 20 41 24 0d 08 16 30  f1 20 8a 32 2c 41 25 2b  |. A$...0. .2,A%+|
00000da0  35 29 3b bd 31 33 33 3b  bd 28 41 25 2b 36 35 29  |5);.133;.(A%+65)|
00000db0  3b 22 2e 22 bd 31 33 34  3b 41 24 3b 89 28 32 35  |;".".134;A$;.(25|
00000dc0  2d b1 29 3b 0d 08 20 39  e7 20 41 25 3f 28 6c 6f  |-.);.. 9. A%?(lo|
00000dd0  61 64 2b 26 31 37 29 3d  26 46 46 20 8c 20 f1 bd  |ad+&17)=&FF . ..|
00000de0  31 33 32 22 47 4f 54 20  20 20 20 22 20 8b 20 f1  |132"GOT    " . .|
00000df0  bd 31 32 39 22 4e 4f 54  20 47 4f 54 22 0d 08 2a  |.129"NOT GOT"..*|
00000e00  05 ed 0d 08 34 08 f1 20  27 27 0d 08 3e 22 f1 bd  |....4.. ''..>"..|
00000e10  31 33 32 3b 22 50 72 65  73 73 20 41 20 74 6f 20  |132;"Press A to |
00000e20  45 20 74 6f 20 74 6f 67  67 6c 65 22 0d 08 48 1b  |E to toggle"..H.|
00000e30  f1 bd 31 33 32 3b 22 50  72 65 73 73 20 51 20 74  |..132;"Press Q t|
00000e40  6f 20 71 75 69 74 22 0d  08 52 0a f5 20 53 24 3d  |o quit"..R.. S$=|
00000e50  be 0d 08 5c 13 fd 20 a7  22 41 42 43 44 45 51 22  |...\.. ."ABCDEQ"|
00000e60  2c 53 24 29 0d 08 66 10  e7 20 53 24 3d 22 51 22  |,S$)..f.. S$="Q"|
00000e70  20 8c 20 e1 0d 08 70 14  4c 25 3d 97 28 53 24 29  | . ...p.L%=.(S$)|
00000e80  2b 6c 6f 61 64 2d 34 32  0d 08 7a 1d e7 20 3f 4c  |+load-42..z.. ?L|
00000e90  25 3d 30 20 8c 20 3f 4c  25 3d 26 46 46 20 8b 20  |%=0 . ?L%=&FF . |
00000ea0  3f 4c 25 3d 30 0d 08 84  0a e5 20 8d 64 78 47 0d  |?L%=0..... .dxG.|
00000eb0  08 8e 0f dc 20 22 4a 45  54 50 41 43 4b 22 0d 08  |.... "JETPACK"..|
00000ec0  98 3e dc 20 22 50 49 53  54 4f 4c 22 2c 22 49 43  |.>. "PISTOL","IC|
00000ed0  45 52 22 2c 22 42 4c 41  53 54 45 52 22 2c 22 50  |ER","BLASTER","P|
00000ee0  4c 41 53 4d 41 20 47 55  4e 22 2c 22 50 52 4f 54  |LASMA GUN","PROT|
00000ef0  45 43 54 49 4f 4e 20 53  55 49 54 22 0d 08 a2 10  |ECTION SUIT"....|
00000f00  dd f2 65 6e 65 72 67 79  5f 67 6f 74 0d 08 ac 0d  |..energy_got....|
00000f10  40 25 3d 26 32 30 33 30  39 0d 08 b6 32 f2 74 69  |@%=&20309...2.ti|
00000f20  74 6c 65 28 22 57 45 41  50 4f 4e 53 2f 41 52 4d  |tle("WEAPONS/ARM|
00000f30  4f 55 52 20 45 4e 45 52  47 59 20 4c 45 56 45 4c  |OUR ENERGY LEVEL|
00000f40  53 22 2c 31 33 32 2c 31  33 31 29 0d 08 c0 21 f1  |S",132,131)...!.|
00000f50  8a 35 29 bd 31 33 31 3b  22 49 54 45 4d 22 3b 8a  |.5).131;"ITEM";.|
00000f60  32 36 29 3b 22 45 4e 45  52 47 59 22 0d 08 ca 0a  |26);"ENERGY"....|
00000f70  f7 20 8d 74 4e 48 0d 08  d4 0e e3 20 41 25 3d 30  |. .tNH..... A%=0|
00000f80  20 b8 20 35 0d 08 de 08  f3 20 41 24 0d 08 e8 30  | . 5..... A$...0|
00000f90  f1 20 8a 32 2c 41 25 2b  36 29 3b bd 31 33 33 3b  |. .2,A%+6);.133;|
00000fa0  bd 28 41 25 2b 36 35 29  3b 22 2e 22 bd 31 33 34  |.(A%+65);".".134|
00000fb0  3b 41 24 3b 89 28 32 35  2d b1 29 3b 0d 08 f2 3f  |;A$;.(25-.);...?|
00000fc0  f1 20 bd 31 33 32 3b 28  41 25 3f 28 6c 6f 61 64  |. .132;(A%?(load|
00000fd0  2b 26 35 43 29 2a 32 35  36 2b 41 25 3f 28 6c 6f  |+&5C)*256+A%?(lo|
00000fe0  61 64 2b 26 35 36 29 29  2f 32 30 34 38 3b 89 28  |ad+&56))/2048;.(|
00000ff0  33 33 2d b1 29 3b 22 4d  4a 22 3b 0d 08 fc 05 ed  |33-.);"MJ";.....|
00001000  0d 09 06 08 f1 20 27 27  0d 09 10 2d f1 bd 31 33  |..... ''...-..13|
00001010  32 3b 22 50 72 65 73 73  20 41 20 74 6f 20 46 20  |2;"Press A to F |
00001020  74 6f 20 65 6e 74 65 72  20 6e 65 77 20 61 6d 6d  |to enter new amm|
00001030  6f 75 6e 74 22 0d 09 1a  1b f1 bd 31 33 32 3b 22  |ount"......132;"|
00001040  50 72 65 73 73 20 51 20  74 6f 20 71 75 69 74 22  |Press Q to quit"|
00001050  0d 09 24 0a f5 20 53 24  3d be 0d 09 2e 0f 4c 25  |..$.. S$=.....L%|
00001060  3d 97 28 53 24 29 2d 36  35 0d 09 38 14 fd 20 a7  |=.(S$)-65..8.. .|
00001070  22 41 42 43 44 45 46 51  22 2c 53 24 29 0d 09 42  |"ABCDEFQ",S$)..B|
00001080  10 e7 20 53 24 3d 22 51  22 20 8c 20 e1 0d 09 4c  |.. S$="Q" . ...L|
00001090  0d f1 20 8a 30 2c 31 38  29 3b 0d 09 56 32 41 25  |.. .0,18);..V2A%|
000010a0  3d bb 28 a4 69 6e 70 75  74 28 22 50 6c 65 61 73  |=.(.input("Pleas|
000010b0  65 20 65 6e 74 65 72 20  6e 65 77 20 65 6e 65 72  |e enter new ener|
000010c0  67 79 20 3a 22 29 29 2a  32 30 34 38 0d 09 60 16  |gy :"))*2048..`.|
000010d0  f1 20 8a 30 2c 31 38 29  3b c4 32 33 39 2c 22 20  |. .0,18);.239," |
000010e0  22 29 0d 09 6a 33 4c 25  3f 28 6c 6f 61 64 2b 26  |")..j3L%?(load+&|
000010f0  35 43 29 3d 41 25 20 81  20 26 31 30 30 3a 4c 25  |5C)=A% . &100:L%|
00001100  3f 28 6c 6f 61 64 2b 26  35 36 29 3d 41 25 20 83  |?(load+&56)=A% .|
00001110  20 26 31 30 30 0d 09 74  0a e5 20 8d 64 4a 48 0d  | &100..t.. .dJH.|
00001120  09 7e 12 dd f2 65 6e 65  72 67 79 5f 75 73 61 67  |.~...energy_usag|
00001130  65 0d 09 88 0d 40 25 3d  26 32 30 31 30 39 0d 09  |e....@%=&20109..|
00001140  92 2e f2 74 69 74 6c 65  28 22 45 4e 45 52 47 59  |...title("ENERGY|
00001150  20 43 4f 4d 53 55 4d 50  54 49 4f 4e 20 52 41 54  | COMSUMPTION RAT|
00001160  45 53 22 2c 31 33 32 2c  31 33 31 29 0d 09 9c 1f  |ES",132,131)....|
00001170  f1 8a 35 29 bd 31 33 31  3b 22 49 54 45 4d 22 3b  |..5).131;"ITEM";|
00001180  8a 32 33 29 3b 22 52 41  54 45 22 0d 09 a6 0a f7  |.23);"RATE".....|
00001190  20 8d 74 4e 48 0d 09 b0  0e e3 20 41 25 3d 30 20  | .tNH..... A%=0 |
000011a0  b8 20 34 0d 09 ba 08 f3  20 41 24 0d 09 c4 30 f1  |. 4..... A$...0.|
000011b0  20 8a 32 2c 41 25 2b 36  29 3b bd 31 33 33 3b bd  | .2,A%+6);.133;.|
000011c0  28 41 25 2b 36 35 29 3b  22 2e 22 bd 31 33 34 3b  |(A%+65);".".134;|
000011d0  41 24 3b 89 28 32 32 2d  b1 29 3b 0d 09 ce 29 f1  |A$;.(22-.);...).|
000011e0  20 bd 31 33 32 3b 41 25  3f 28 6c 6f 61 64 2b 26  | .132;A%?(load+&|
000011f0  36 32 29 2f 32 3b 89 28  32 39 2d b1 29 3b 22 4b  |62)/2;.(29-.);"K|
00001200  4a 2f 22 3b 0d 09 d8 2a  e7 20 41 25 3d 30 20 84  |J/";...*. A%=0 .|
00001210  20 41 25 3d 33 20 8c 20  f1 20 22 73 65 63 6f 6e  | A%=3 . . "secon|
00001220  64 22 20 8b 20 f1 22 62  75 6c 6c 65 74 22 0d 09  |d" . ."bullet"..|
00001230  e2 05 ed 0d 09 ec 08 f1  20 27 27 0d 09 f6 2a f1  |........ ''...*.|
00001240  bd 31 33 32 3b 22 50 72  65 73 73 20 41 20 74 6f  |.132;"Press A to|
00001250  20 45 20 74 6f 20 65 6e  74 65 72 20 6e 65 77 20  | E to enter new |
00001260  72 61 74 65 22 0d 0a 00  1b f1 bd 31 33 32 3b 22  |rate"......132;"|
00001270  50 72 65 73 73 20 51 20  74 6f 20 71 75 69 74 22  |Press Q to quit"|
00001280  0d 0a 0a 0a f5 20 53 24  3d be 0d 0a 14 0f 4c 25  |..... S$=.....L%|
00001290  3d 97 28 53 24 29 2d 36  35 0d 0a 1e 13 fd 20 a7  |=.(S$)-65..... .|
000012a0  22 41 42 43 44 45 51 22  2c 53 24 29 0d 0a 28 10  |"ABCDEQ",S$)..(.|
000012b0  e7 20 53 24 3d 22 51 22  20 8c 20 e1 0d 0a 32 0d  |. S$="Q" . ...2.|
000012c0  f1 20 8a 30 2c 31 38 29  3b 0d 0a 3c 29 41 25 3d  |. .0,18);..<)A%=|
000012d0  bb 28 a4 69 6e 70 75 74  28 22 50 6c 65 61 73 65  |.(.input("Please|
000012e0  20 65 6e 74 65 72 20 72  61 74 65 20 3a 22 29 29  | enter rate :"))|
000012f0  2a 32 0d 0a 46 16 f1 20  8a 30 2c 31 38 29 3b c4  |*2..F.. .0,18);.|
00001300  32 33 39 2c 22 20 22 29  0d 0a 50 1c 4c 25 3f 28  |239," ")..P.L%?(|
00001310  6c 6f 61 64 2b 26 36 32  29 3d 41 25 20 83 20 26  |load+&62)=A% . &|
00001320  31 30 30 20 0d 0a 5a 09  e5 8d 74 66 49 0d 0a 64  |100 ..Z...tfI..d|
00001330  0d dd f2 70 6f 63 6b 65  74 73 0d 0a 6e 08 40 25  |...pockets..n.@%|
00001340  3d 39 0d 0a 78 25 f2 74  69 74 6c 65 28 22 50 4f  |=9..x%.title("PO|
00001350  43 4b 45 54 20 43 4f 4e  54 45 4e 54 53 22 2c 31  |CKET CONTENTS",1|
00001360  33 32 2c 31 33 31 29 0d  0a 82 35 f1 20 8a 30 2c  |32,131)...5. .0,|
00001370  35 29 bd 31 33 34 3b 22  4e 6f 2e 20 6f 66 20 70  |5).134;"No. of p|
00001380  6f 63 6b 65 74 73 20 75  73 65 64 20 3a 22 3b bd  |ockets used :";.|
00001390  31 33 32 3b 6c 6f 61 64  3f 26 34 46 0d 0a 8c 0e  |132;load?&4F....|
000013a0  e3 20 41 25 3d 30 20 b8  20 33 0d 0a 96 25 e7 20  |. A%=0 . 3...%. |
000013b0  41 25 3c 6c 6f 61 64 3f  26 34 46 20 8c 20 f1 20  |A%<load?&4F . . |
000013c0  bd 31 33 34 3b 20 8b 20  f1 20 bd 31 33 33 3b 0d  |.134; . . .133;.|
000013d0  0a a0 29 f1 20 22 43 6f  6e 74 65 6e 74 73 20 6f  |..). "Contents o|
000013e0  66 20 70 63 6b 74 20 22  3b bd 28 36 35 2b 41 25  |f pckt ";.(65+A%|
000013f0  29 3b 22 20 20 3a 22 3b  0d 0a aa 25 e7 20 41 25  |);"  :";...%. A%|
00001400  3c 6c 6f 61 64 3f 26 34  46 20 8c 20 f1 20 bd 31  |<load?&4F . . .1|
00001410  33 32 3b 20 8b 20 f1 20  bd 31 33 33 3b 0d 0a b4  |32; . . .133;...|
00001420  14 42 25 3d 6c 6f 61 64  3f 28 41 25 2b 26 35 30  |.B%=load?(A%+&50|
00001430  29 0d 0a be 0a 4f 42 25  3d 2d 31 0d 0a c8 0f f5  |)....OB%=-1.....|
00001440  20 4f 42 25 3d 4f 42 25  2b 31 0d 0a d2 1a fd 20  | OB%=OB%+1..... |
00001450  4f 42 25 3d 31 31 20 84  20 4f 42 25 28 4f 42 25  |OB%=11 . OB%(OB%|
00001460  29 3d 42 25 0d 0a dc 29  e7 20 4f 42 25 3d 31 31  |)=B%...). OB%=11|
00001470  20 8c 20 4f 42 24 3d 22  44 75 6e 6e 6f 22 20 8b  | . OB$="Dunno" .|
00001480  20 4f 42 24 3d 4f 42 24  28 4f 42 25 29 0d 0a e6  | OB$=OB$(OB%)...|
00001490  09 f1 20 4f 42 24 0d 0a  f0 05 ed 0d 0a fa 0c f1  |.. OB$..........|
000014a0  20 8a 30 2c 31 30 29 0d  0b 04 2b f1 bd 31 33 32  | .0,10)...+..132|
000014b0  3b 22 50 72 65 73 73 20  41 20 74 6f 20 44 20 74  |;"Press A to D t|
000014c0  6f 20 63 68 61 6e 67 65  20 63 6f 6e 74 65 6e 74  |o change content|
000014d0  73 22 0d 0b 0e 2e f1 bd  31 33 32 3b 22 51 20 74  |s"......132;"Q t|
000014e0  6f 20 71 75 69 74 2c 20  4e 20 74 6f 20 63 68 61  |o quit, N to cha|
000014f0  6e 67 65 20 6e 6f 2e 20  70 6f 63 6b 65 74 73 22  |nge no. pockets"|
00001500  0d 0b 18 0a f5 20 53 24  3d be 0d 0b 22 13 fd 20  |..... S$=...".. |
00001510  a7 22 41 42 43 44 4e 51  22 2c 53 24 29 0d 0b 2c  |."ABCDNQ",S$)..,|
00001520  10 e7 20 53 24 3d 22 51  22 20 8c 20 e1 0d 0b 36  |.. S$="Q" . ...6|
00001530  07 f1 20 27 0d 0b 40 2c  e7 20 53 24 3d 22 4e 22  |.. '..@,. S$="N"|
00001540  20 8c 20 f2 70 6f 63 6b  65 74 5f 6e 75 6d 20 8b  | . .pocket_num .|
00001550  20 f2 70 6f 63 6b 65 74  5f 63 6f 6e 74 65 6e 74  | .pocket_content|
00001560  0d 0b 4a 1d e7 20 53 24  3d 22 4e 22 20 8c 20 e5  |..J.. S$="N" . .|
00001570  8d 74 42 4a 20 8b 20 e5  20 8d 44 78 4a 0d 0b 54  |.tBJ . . .DxJ..T|
00001580  10 dd f2 70 6f 63 6b 65  74 5f 6e 75 6d 0d 0b 5e  |...pocket_num..^|
00001590  38 6c 6f 61 64 3f 26 34  46 3d bb 28 a4 69 6e 70  |8load?&4F=.(.inp|
000015a0  75 74 28 22 45 6e 74 65  72 20 6e 65 77 20 6e 6f  |ut("Enter new no|
000015b0  2e 20 6f 66 20 70 6f 63  6b 65 74 73 20 3a 22 29  |. of pockets :")|
000015c0  29 20 83 20 35 0d 0b 68  15 f1 20 8a 30 2c 31 35  |) . 5..h.. .0,15|
000015d0  29 c4 31 31 31 2c 22 20  22 29 0d 0b 72 05 e1 0d  |).111," ")..r...|
000015e0  0b 7c 14 dd f2 70 6f 63  6b 65 74 5f 63 6f 6e 74  |.|...pocket_cont|
000015f0  65 6e 74 0d 0b 86 0f 41  25 3d 97 28 53 24 29 2d  |ent....A%=.(S$)-|
00001600  36 35 0d 0b 90 2d f2 74  69 74 6c 65 28 22 43 4f  |65...-.title("CO|
00001610  4e 54 45 4e 54 53 20 46  4f 52 20 50 4f 43 4b 45  |NTENTS FOR POCKE|
00001620  54 20 22 2b 53 24 2c 31  32 39 2c 31 33 31 29 0d  |T "+S$,129,131).|
00001630  0b 9a 0f e3 20 42 25 3d  30 20 b8 20 31 30 0d 0b  |.... B%=0 . 10..|
00001640  a4 28 f1 20 8a 32 29 3b  bd 31 33 33 3b bd 28 42  |.(. .2);.133;.(B|
00001650  25 2b 36 35 29 3b 22 2e  22 3b bd 31 33 34 3b 4f  |%+65);".";.134;O|
00001660  42 24 28 42 25 29 0d 0b  ae 05 ed 0d 0b b8 2c f1  |B$(B%)........,.|
00001670  27 bd 31 32 39 3b 22 43  75 72 72 65 6e 74 20 63  |'.129;"Current c|
00001680  6f 6e 74 65 6e 74 73 20  3a 22 bd 31 33 34 3b 4f  |ontents :".134;O|
00001690  42 24 28 4f 42 25 29 0d  0b c2 29 f1 27 bd 31 33  |B$(OB%)...).'.13|
000016a0  32 22 50 72 65 73 73 20  41 20 74 6f 20 4b 20 66  |2"Press A to K f|
000016b0  6f 72 20 6e 65 77 20 63  6f 6e 74 65 6e 74 73 22  |or new contents"|
000016c0  0d 0b cc 0a f5 20 53 24  3d be 0d 0b d6 17 fd 20  |..... S$=...... |
000016d0  53 24 3e 3d 22 41 22 20  80 20 53 24 3c 3d 22 4b  |S$>="A" . S$<="K|
000016e0  22 0d 0b e0 1d 6c 6f 61  64 3f 28 41 25 2b 26 35  |"....load?(A%+&5|
000016f0  30 29 3d 4f 42 25 28 97  53 24 2d 36 35 29 0d 0b  |0)=OB%(.S$-65)..|
00001700  ea 05 e1 0d 0b f4 0a dd  f2 6b 65 79 73 0d 0b fe  |.........keys...|
00001710  1f f2 74 69 74 6c 65 28  22 4b 45 59 53 20 48 45  |..title("KEYS HE|
00001720  4c 44 22 2c 31 33 32 2c  31 33 31 29 0d 0c 08 26  |LD",132,131)...&|
00001730  f1 20 bd 31 33 34 3b 22  43 75 72 72 65 6e 74 20  |. .134;"Current |
00001740  6b 65 79 73 20 68 65 6c  64 20 3a 22 3b bd 31 33  |keys held :";.13|
00001750  33 3b 0d 0c 12 08 42 25  3d 30 0d 0c 1c 0e e3 20  |3;....B%=0..... |
00001760  41 25 3d 30 20 b8 20 37  0d 0c 26 1b e7 20 6c 6f  |A%=0 . 7..&.. lo|
00001770  61 64 3f 28 41 25 2b 26  45 29 3d 30 20 8c 20 8d  |ad?(A%+&E)=0 . .|
00001780  44 4e 4c 0d 0c 30 14 e7  20 42 25 3c 3e 30 20 8c  |DNL..0.. B%<>0 .|
00001790  20 f1 20 22 2c 22 3b 0d  0c 3a 0f f1 20 bd 28 41  | . ",";..:.. .(A|
000017a0  25 2b 36 35 29 3b 0d 0c  44 0b 42 25 3d 42 25 2b  |%+65);..D.B%=B%+|
000017b0  31 0d 0c 4e 05 ed 0d 0c  58 15 e7 20 42 25 3d 30  |1..N....X.. B%=0|
000017c0  20 8c 20 f1 20 22 4e 4f  4e 45 22 0d 0c 62 3c f1  | . . "NONE"..b<.|
000017d0  20 27 27 bd 31 33 32 3b  22 4b 65 79 73 20 74 6f  | ''.132;"Keys to|
000017e0  20 63 68 6f 6f 73 65 20  66 72 6f 6d 20 61 72 65  | choose from are|
000017f0  22 bd 31 32 39 22 41 22  bd 31 33 32 22 74 6f 22  |".129"A".132"to"|
00001800  bd 31 32 39 22 48 22 0d  0c 6c 30 f1 27 bd 31 33  |.129"H"..l0.'.13|
00001810  32 3b 22 50 72 65 73 73  69 6e 67 20 61 20 6c 65  |2;"Pressing a le|
00001820  74 74 65 72 20 28 41 2d  48 29 20 74 6f 67 67 6c  |tter (A-H) toggl|
00001830  65 73 20 6b 65 79 22 0d  0c 76 1b f1 bd 31 33 32  |es key"..v...132|
00001840  3b 22 50 72 65 73 73 20  51 20 74 6f 20 71 75 69  |;"Press Q to qui|
00001850  74 22 0d 0c 80 0a f5 20  53 24 3d be 0d 0c 8a 16  |t"..... S$=.....|
00001860  fd 20 a7 22 41 42 43 44  45 46 47 48 51 22 2c 53  |. ."ABCDEFGHQ",S|
00001870  24 29 0d 0c 94 10 e7 20  53 24 3d 22 51 22 20 8c  |$)..... S$="Q" .|
00001880  20 e1 0d 0c 9e 0f 4c 25  3d 97 28 53 24 29 2d 35  | .....L%=.(S$)-5|
00001890  31 0d 0c a8 29 e7 20 6c  6f 61 64 3f 4c 25 3d 30  |1...). load?L%=0|
000018a0  20 8c 20 6c 6f 61 64 3f  4c 25 3d 26 46 46 20 8b  | . load?L%=&FF .|
000018b0  20 6c 6f 61 64 3f 4c 25  3d 30 0d 0c b2 09 e5 8d  | load?L%=0......|
000018c0  64 7e 4b 0d 0c bc 0e dd  f2 74 65 6c 65 70 6f 72  |d~K......telepor|
000018d0  74 0d 0c c6 09 40 25 3d  26 39 0d 0c d0 28 f2 74  |t....@%=&9...(.t|
000018e0  69 74 6c 65 28 22 54 45  4c 45 50 4f 52 54 20 4c  |itle("TELEPORT L|
000018f0  4f 43 41 54 49 4f 4e 53  22 2c 31 33 32 2c 31 33  |OCATIONS",132,13|
00001900  31 29 0d 0c da 37 f1 20  bd 31 33 34 3b 22 4e 6f  |1)...7. .134;"No|
00001910  2e 20 6f 66 20 74 65 6c  65 70 6f 72 74 73 20 72  |. of teleports r|
00001920  65 6d 65 6d 62 65 72 65  64 20 3a 22 bd 31 32 39  |emembered :".129|
00001930  3b 6c 6f 61 64 3f 26 32  41 0d 0c e4 1a f1 20 8a  |;load?&2A..... .|
00001940  32 33 2c 37 29 3b bd 31  33 31 3b 22 58 20 20 20  |23,7);.131;"X   |
00001950  20 59 22 0d 0c ee 0e e3  20 41 25 3d 30 20 b8 20  | Y"..... A%=0 . |
00001960  33 0d 0c f8 25 e7 20 41  25 3c 6c 6f 61 64 3f 26  |3...%. A%<load?&|
00001970  32 41 20 8c 20 f1 20 bd  31 33 34 3b 20 8b 20 f1  |2A . . .134; . .|
00001980  20 bd 31 33 33 3b 0d 0d  02 29 f1 20 22 54 65 6c  | .133;...). "Tel|
00001990  65 70 6f 72 74 20 6c 6f  63 61 74 69 6f 6e 20 22  |eport location "|
000019a0  3b bd 28 41 25 2b 36 35  29 3b 22 20 3a 22 3b 0d  |;.(A%+65);" :";.|
000019b0  0d 0c 25 e7 20 41 25 3c  6c 6f 61 64 3f 26 32 41  |..%. A%<load?&2A|
000019c0  20 8c 20 f1 20 bd 31 33  32 3b 20 8b 20 f1 20 bd  | . . .132; . . .|
000019d0  31 33 33 3b 0d 0d 16 56  f1 20 8a 32 33 29 3b 22  |133;...V. .23);"|
000019e0  26 22 3b 7e 6c 6f 61 64  3f 28 26 32 42 2b 28 41  |&";~load?(&2B+(A|
000019f0  25 2b 6c 6f 61 64 3f 26  32 39 29 83 20 34 29 3b  |%+load?&29). 4);|
00001a00  89 28 32 36 2d b1 29 3b  22 20 20 26 22 3b 7e 6c  |.(26-.);"  &";~l|
00001a10  6f 61 64 3f 28 26 33 30  2b 28 41 25 2b 6c 6f 61  |oad?(&30+(A%+loa|
00001a20  64 3f 26 32 39 29 83 20  34 29 0d 0d 20 05 ed 0d  |d?&29). 4).. ...|
00001a30  0d 2a 38 f1 20 8a 30 2c  31 34 29 3b bd 31 33 32  |.*8. .0,14);.132|
00001a40  3b 22 50 72 65 73 73 20  41 20 74 6f 20 44 20 74  |;"Press A to D t|
00001a50  6f 20 63 68 61 6e 67 65  20 74 65 6c 65 70 6f 72  |o change telepor|
00001a60  74 20 6c 6f 63 2e 22 0d  0d 34 35 f1 20 bd 31 33  |t loc."..45. .13|
00001a70  32 3b 22 51 20 74 6f 20  71 75 69 74 2c 20 4e 20  |2;"Q to quit, N |
00001a80  74 6f 20 63 68 61 6e 67  65 20 6e 6f 2e 20 6f 66  |to change no. of|
00001a90  20 74 65 6c 65 70 6f 72  74 73 22 3b 0d 0d 3e 0a  | teleports";..>.|
00001aa0  f5 20 53 24 3d be 0d 0d  48 13 fd 20 a7 22 41 42  |. S$=...H.. ."AB|
00001ab0  43 44 51 4e 22 2c 53 24  29 0d 0d 52 10 e7 20 53  |CDQN",S$)..R.. S|
00001ac0  24 3d 22 51 22 20 8c 20  e1 0d 0d 5c 12 f1 27 3a  |$="Q" . ...\..':|
00001ad0  41 25 3d 97 28 53 24 29  2d 36 35 0d 0d 66 54 e7  |A%=.(S$)-65..fT.|
00001ae0  20 53 24 3d 22 4e 22 20  8c 20 6c 6f 61 64 3f 26  | S$="N" . load?&|
00001af0  32 41 3d bb 28 a4 69 6e  70 75 74 28 22 45 6e 74  |2A=.(.input("Ent|
00001b00  65 72 20 6e 65 77 20 6e  6f 2e 20 6f 66 20 74 65  |er new no. of te|
00001b10  6c 65 27 73 20 72 65 6d  65 6d 62 65 72 65 64 20  |le's remembered |
00001b20  3a 22 29 29 20 83 20 35  3a e5 20 8d 64 50 4c 0d  |:")) . 5:. .dPL.|
00001b30  0d 70 45 6c 6f 61 64 3f  28 26 32 42 2b 28 41 25  |.pEload?(&2B+(A%|
00001b40  2b 6c 6f 61 64 3f 26 32  39 29 83 20 34 29 3d a0  |+load?&29). 4)=.|
00001b50  28 a4 69 6e 70 75 74 28  22 4e 65 77 20 58 20 63  |(.input("New X c|
00001b60  6f 6f 72 64 69 6e 61 74  65 20 28 48 65 78 29 20  |oordinate (Hex) |
00001b70  3a 22 29 29 0d 0d 7a 45  6c 6f 61 64 3f 28 26 33  |:"))..zEload?(&3|
00001b80  30 2b 28 41 25 2b 6c 6f  61 64 3f 26 32 39 29 83  |0+(A%+load?&29).|
00001b90  20 34 29 3d a0 28 a4 69  6e 70 75 74 28 22 4e 65  | 4)=.(.input("Ne|
00001ba0  77 20 59 20 63 6f 6f 72  64 69 6e 61 74 65 20 28  |w Y coordinate (|
00001bb0  48 65 78 29 20 3a 22 29  29 0d 0d 84 0a e5 20 8d  |Hex) :"))..... .|
00001bc0  64 50 4c 0d 0d 8e 0a dd  f2 6d 69 73 63 0d 0d 98  |dPL......misc...|
00001bd0  09 40 25 3d 26 31 0d 0d  a2 29 f2 74 69 74 6c 65  |.@%=&1...).title|
00001be0  28 22 4d 49 53 43 45 4c  41 4e 45 4f 55 53 20 50  |("MISCELANEOUS P|
00001bf0  49 45 43 45 53 22 2c 31  33 32 2c 31 33 31 29 0d  |IECES",132,131).|
00001c00  0d ac 27 f1 20 bd 31 33  31 3b 8a 36 29 3b 22 49  |..'. .131;.6);"I|
00001c10  74 65 6d 22 3b 8a 32 35  29 3b 22 55 73 65 64 20  |tem";.25);"Used |
00001c20  2f 20 67 6f 74 22 0d 0d  b6 0e e3 20 41 25 3d 30  |/ got"..... A%=0|
00001c30  20 b8 20 34 0d 0d c0 38  f1 20 8a 32 2c 41 25 2b  | . 4...8. .2,A%+|
00001c40  36 29 3b bd 31 33 33 3b  bd 28 41 25 2b 36 35 29  |6);.133;.(A%+65)|
00001c50  3b 22 2e 22 bd 31 33 34  3b 4f 42 24 28 41 25 2b  |;".".134;OB$(A%+|
00001c60  31 31 29 3b 89 28 32 38  2d b1 29 3b 0d 0d ca 34  |11);.(28-.);...4|
00001c70  20 e7 20 6c 6f 61 64 3f  4f 42 25 28 41 25 2b 31  | . load?OB%(A%+1|
00001c80  31 29 3d 30 20 8c 20 f1  bd 31 32 39 3b 22 4e 6f  |1)=0 . ..129;"No|
00001c90  22 20 8b 20 f1 20 bd 31  33 32 3b 22 59 65 73 22  |" . . .132;"Yes"|
00001ca0  0d 0d d4 05 ed 0d 0d de  45 f1 20 8a 32 2c 31 32  |........E. .2,12|
00001cb0  29 bd 31 33 33 3b 22 46  2e 22 3b bd 31 33 34 3b  |).133;"F.";.134;|
00001cc0  22 59 6f 75 72 20 58 20  63 6f 6f 72 64 69 6e 61  |"Your X coordina|
00001cd0  74 65 22 3b 89 28 32 38  2d b1 29 3b bd 31 33 32  |te";.(28-.);.132|
00001ce0  3b 7e 6c 6f 61 64 3f 26  39 39 0d 0d e8 42 f1 20  |;~load?&99...B. |
00001cf0  8a 32 29 bd 31 33 33 3b  22 47 2e 22 3b bd 31 33  |.2).133;"G.";.13|
00001d00  34 3b 22 59 6f 75 72 20  59 20 63 6f 6f 72 64 69  |4;"Your Y coordi|
00001d10  6e 61 74 65 22 3b 89 28  32 38 2d b1 29 3b bd 31  |nate";.(28-.);.1|
00001d20  33 32 3b 7e 6c 6f 61 64  3f 26 42 43 0d 0d f2 30  |32;~load?&BC...0|
00001d30  20 f1 20 27 8a 32 29 bd  31 33 33 3b 22 48 2e 22  | . '.2).133;"H."|
00001d40  3b bd 31 33 34 3b 22 54  69 6d 65 20 3a 22 3b 89  |;.134;"Time :";.|
00001d50  28 31 36 2d b1 29 3b bd  31 33 31 3b 0d 0d fc 12  |(16-.);.131;....|
00001d60  74 69 6d 65 3d 6c 6f 61  64 21 37 2f 35 30 0d 0e  |time=load!7/50..|
00001d70  06 31 64 61 79 73 3d 74  69 6d 65 20 81 20 38 36  |.1days=time . 86|
00001d80  34 30 30 3a 68 6f 75 72  73 3d 28 74 69 6d 65 20  |400:hours=(time |
00001d90  83 20 38 36 34 30 30 29  20 81 20 33 36 30 30 0d  |. 86400) . 3600.|
00001da0  0e 10 2c 6d 69 6e 73 3d  28 74 69 6d 65 20 83 20  |..,mins=(time . |
00001db0  33 36 30 30 29 20 81 20  36 30 3a 73 65 63 73 3d  |3600) . 60:secs=|
00001dc0  28 74 69 6d 65 20 83 20  36 30 29 0d 0e 1a 2e f1  |(time . 60).....|
00001dd0  20 64 61 79 73 3b 22 20  64 61 79 22 3b 3a e7 20  | days;" day";:. |
00001de0  64 61 79 73 3d 31 20 8c  20 f1 20 22 2c 22 3b 20  |days=1 . . ","; |
00001df0  8b 20 f1 20 22 73 2c 22  3b 0d 0e 24 31 f1 20 68  |. . "s,";..$1. h|
00001e00  6f 75 72 73 3b 22 20 68  6f 75 72 22 3b 3a e7 20  |ours;" hour";:. |
00001e10  68 6f 75 72 73 3d 31 20  8c 20 f1 20 22 2c 22 3b  |hours=1 . . ",";|
00001e20  20 8b 20 f1 20 22 73 2c  22 3b 0d 0e 2e 39 f1 20  | . . "s,";...9. |
00001e30  8a 31 36 29 3b bd 31 33  31 3b 6d 69 6e 73 3b 22  |.16);.131;mins;"|
00001e40  20 6d 69 6e 22 3b 3a e7  20 6d 69 6e 73 3d 31 20  | min";:. mins=1 |
00001e50  20 8c 20 f1 20 22 2c 22  3b 20 8b 20 f1 20 22 73  | . . ","; . . "s|
00001e60  2c 22 3b 0d 0e 38 2b f1  20 73 65 63 73 3b 22 20  |,";..8+. secs;" |
00001e70  73 65 63 22 3b 3a e7 20  73 65 63 73 3d 31 20 8c  |sec";:. secs=1 .|
00001e80  20 f1 20 22 2e 22 20 8b  20 f1 22 73 2e 22 0d 0e  | . "." . ."s."..|
00001e90  42 29 f1 20 27 27 bd 31  33 32 3b 22 50 72 65 73  |B). ''.132;"Pres|
00001ea0  73 20 41 20 74 6f 20 48  20 74 6f 20 61 6c 74 65  |s A to H to alte|
00001eb0  72 20 73 74 61 74 22 0d  0e 4c 1f f1 20 bd 31 33  |r stat"..L.. .13|
00001ec0  32 3b 22 4f 72 20 70 72  65 73 73 20 51 20 74 6f  |2;"Or press Q to|
00001ed0  20 71 75 69 74 22 0d 0e  56 0a f5 20 53 24 3d be  | quit"..V.. S$=.|
00001ee0  0d 0e 60 16 fd 20 a7 22  41 42 43 44 45 46 47 48  |..`.. ."ABCDEFGH|
00001ef0  51 22 2c 53 24 29 0d 0e  6a 10 e7 20 53 24 3d 22  |Q",S$)..j.. S$="|
00001f00  51 22 20 8c 20 e1 0d 0e  74 28 e7 20 a7 22 41 42  |Q" . ...t(. ."AB|
00001f10  43 44 45 22 2c 53 24 29  20 8c 20 f2 6d 69 73 63  |CDE",S$) . .misc|
00001f20  5f 74 6f 67 67 6c 65 3a  e5 20 8d 74 58 4d 0d 0e  |_toggle:. .tXM..|
00001f30  7e 22 e7 20 a7 22 46 47  22 2c 53 24 29 20 8c 20  |~". ."FG",S$) . |
00001f40  f2 6d 69 73 63 5f 70 6f  73 3a e5 20 8d 74 58 4d  |.misc_pos:. .tXM|
00001f50  0d 0e 88 13 ef 20 32 38  2c 30 2c 32 33 2c 33 39  |..... 28,0,23,39|
00001f60  2c 32 32 0d 0e 92 2c 64  61 79 73 3d bb 28 a4 69  |,22...,days=.(.i|
00001f70  6e 70 75 74 28 22 45 6e  74 65 72 20 6e 75 6d 62  |nput("Enter numb|
00001f80  65 72 20 6f 66 20 64 61  79 73 20 3a 22 29 29 0d  |er of days :")).|
00001f90  0e 9c 2e 68 6f 75 72 73  3d bb 28 a4 69 6e 70 75  |...hours=.(.inpu|
00001fa0  74 28 22 45 6e 74 65 72  20 6e 75 6d 62 65 72 20  |t("Enter number |
00001fb0  6f 66 20 68 6f 75 72 73  20 3a 22 29 29 0d 0e a6  |of hours :"))...|
00001fc0  2f 6d 69 6e 73 3d bb 28  a4 69 6e 70 75 74 28 22  |/mins=.(.input("|
00001fd0  45 6e 74 65 72 20 6e 75  6d 62 65 72 20 6f 66 20  |Enter number of |
00001fe0  6d 69 6e 75 74 65 73 20  3a 22 29 29 0d 0e b0 2f  |minutes :")).../|
00001ff0  73 65 63 73 3d bb 28 a4  69 6e 70 75 74 28 22 45  |secs=.(.input("E|
00002000  6e 74 65 72 20 6e 75 6d  62 65 72 20 6f 66 20 73  |nter number of s|
00002010  65 63 6f 6e 64 73 20 3a  22 29 29 0d 0e ba 32 74  |econds :"))...2t|
00002020  69 6d 65 3d 28 64 61 79  73 2a 33 36 30 30 2a 32  |ime=(days*3600*2|
00002030  34 2b 68 6f 75 72 73 2a  33 36 30 30 2b 6d 69 6e  |4+hours*3600+min|
00002040  73 2a 36 30 2b 73 65 63  73 29 2a 35 30 0d 0e c4  |s*60+secs)*50...|
00002050  0f 6c 6f 61 64 21 37 3d  74 69 6d 65 0d 0e ce 12  |.load!7=time....|
00002060  ef 20 32 38 2c 30 2c 32  34 2c 33 39 2c 30 0d 0e  |. 28,0,24,39,0..|
00002070  d8 0a e5 20 8d 74 58 4d  0d 0e e2 11 dd f2 6d 69  |... .tXM......mi|
00002080  73 63 5f 74 6f 67 67 6c  65 0d 0e ec 0f 41 25 3d  |sc_toggle....A%=|
00002090  97 28 53 24 29 2d 35 34  0d 0e f6 42 e7 20 6c 6f  |.(S$)-54...B. lo|
000020a0  61 64 3f 28 4f 42 25 28  41 25 29 29 3d 26 46 46  |ad?(OB%(A%))=&FF|
000020b0  20 8c 20 6c 6f 61 64 3f  28 4f 42 25 28 41 25 29  | . load?(OB%(A%)|
000020c0  29 3d 26 30 30 20 8b 20  6c 6f 61 64 3f 28 4f 42  |)=&00 . load?(OB|
000020d0  25 28 41 25 29 29 3d 26  46 46 0d 0f 00 05 e1 0d  |%(A%))=&FF......|
000020e0  0f 0a 0e dd f2 6d 69 73  63 5f 70 6f 73 0d 0f 14  |.....misc_pos...|
000020f0  06 f1 20 0d 0f 1e 51 e7  20 53 24 3d 22 46 22 20  |.. ...Q. S$="F" |
00002100  8c 20 6e 65 77 5f 78 3d  a0 28 22 26 22 2b a4 69  |. new_x=.("&"+.i|
00002110  6e 70 75 74 28 22 45 6e  74 65 72 20 6e 65 77 20  |nput("Enter new |
00002120  58 20 63 6f 6f 72 64 20  28 48 65 78 29 20 3a 22  |X coord (Hex) :"|
00002130  29 29 20 8b 20 6e 65 77  5f 78 3d 6c 6f 61 64 3f  |)) . new_x=load?|
00002140  26 39 39 20 0d 0f 28 50  e7 20 53 24 3d 22 47 22  |&99 ..(P. S$="G"|
00002150  20 8c 20 6e 65 77 5f 79  3d a0 28 22 26 22 2b a4  | . new_y=.("&"+.|
00002160  69 6e 70 75 74 28 22 45  6e 74 65 72 20 6e 65 77  |input("Enter new|
00002170  20 59 20 63 6f 6f 72 64  20 28 48 65 78 29 20 3a  | Y coord (Hex) :|
00002180  22 29 29 20 8b 20 6e 65  77 5f 79 3d 6c 6f 61 64  |")) . new_y=load|
00002190  3f 26 42 43 0d 0f 32 12  6c 6f 61 64 3f 26 39 39  |?&BC..2.load?&99|
000021a0  3d 6e 65 77 5f 78 0d 0f  3c 12 6c 6f 61 64 3f 26  |=new_x..<.load?&|
000021b0  42 43 3d 6e 65 77 5f 79  0d 0f 46 05 e1 0d ff     |BC=new_y..F....|
000021bf