� User-Friendly Menu System
 � (C) Steve Wyeth 1989
 � 4
( *FX 4,1
2 � *FX 229,1
< �_variable_definitions
F �_fill_arrays
P �_print_screen
Z �_print_menu_items
d �
n �_print_current_option
x �_accept_input_from_user
�, � flag = � � �_delete_current_option   
� � flag = �   
� *FX 4,0
� �_load_game
� � timtom%<>1 � �tj@
��6:�19,0,4,0,0,0:�:*.
��
� �
� :
� � �_variable_definitions
� blue          = 4  
� white         = 7 
� background    = 0   
� foreground    = 1   
� current_entry = 1 
� � menu_entries   

 � position$(menu_entries)

 � entry$(menu_entries)

 � loading$(menu_entries)

"  � filename$(menu_entries)  

, � note$(menu_entries)

6 pos           = 0  

@ old_entry     = 1  

J flag          = �    

T entry_flag    = �   

^ User_Input$   = ""    

h �

r :

| � �_fill_arrays

� � loop% = 1 � menu_entries

� � position$(loop%)

� � entry$(loop%)

� � loading$(loop%)

� � filename$(loop%)

� � note$(loop%)

� � loop%

� �

� :

� � �_print_screen

� � 19,background,blue;0;  

� � 19,foreground,white;0;  

� �_character_definitions
 � 23;8202;0;0;0;
 �_print_background
# �_pretty_border(584,1008,4)   
& � 584,992   
0
 � "MENU"
: � 4
D
 � 129
N � 0
X" �_rectangle(250,200,782,650) 
b �_pretty_border(96,108,34)
l# �_pretty_border(96,76,34)     
v1 �3,29);"  Please select the required game "
�0 � �5,30);�(7);"by ";�130;�131;" and RETURN"
�
 � 0,1
� � 69,1184,72
� � 69,1184,76
� �
� :
� � �_character_definitions
� � Up Arrow
�& � 23,130,24,60,60,126,24,24,24,24
� � Down Arrow
�& � 23,131,24,24,24,24,126,60,60,24
� � Background Character
�- � 23,132,146,36,73,146,36,73,146,36     
 �
 :
 � �_print_background
  � loop%=0 � 31
* � �0,loop%);�40,�132);
4 � loop%
> � 5
H � 0,28
R � �40,�132)  
\ �
f :
p: � �_pretty_border(X_Co_ord%,Y_Co_ord%,String_Length%)
z
 � 0,0
�# Y_Adjustment%=Y_Co_ord%-64    
�1 X_Adjustment%=X_Co_ord%+String_Length%*32   
� � X_Co_ord%,Y_Co_ord%
�! � X_Co_ord%,Y_Co_ord%-16    
�# � 85,X_Co_ord%-32,Y_Co_ord%-16
�# � 85,X_Co_ord%-32,Y_Co_ord%-48
�  � X_Co_ord%,Y_Co_ord%-48   
�  � 85,X_Co_ord%,Y_Co_ord%-16
� � X_Co_ord%,Y_Co_ord%-48  
�! � X_Co_ord%-32,Y_Co_ord%-48 
�" � 85,X_Co_ord%,Y_Co_ord%-64  
� � X_Adjustment%,Y_Co_ord%
�! � X_Adjustment%,Y_Co_ord%-16
* � 85,X_Adjustment%+32,Y_Co_ord%-16   
' � 85,X_Adjustment%+32,Y_Co_ord%-48
! � X_Adjustment%,Y_Co_ord%-48
$( � 85,X_Adjustment%,Y_Co_ord%-16    
.# � X_Adjustment%,Y_Co_ord%-48  
8' � X_Adjustment%+32,Y_Co_ord%-48   
B' � 85,X_Adjustment%,Y_Co_ord%-64   
L � X_Co_ord%,Y_Co_ord%
V  � X_Co_ord%,Y_Adjustment%  
`% � 85,X_Adjustment%,Y_Co_ord%    
j% � 85,X_Adjustment%,Y_Adjustment%
t
 � 0,1
~ � X_Co_ord%,Y_Co_ord%-8
�  � X_Co_ord%,Y_Adjustment%+8
�$ � 85,X_Adjustment%,Y_Co_ord%-8 
�+ � 85,X_Adjustment%,Y_Adjustment%+8    
�
 � 0,0
� �
� :
�6 � �_rectangle(X_Co_ord%,Y_Co_ord%,Width%,Height%)
�A � 24,X_Co_ord%;Y_Co_ord%;X_Co_ord%+Width%;Y_Co_ord%+Height%;
� �
�	 � 26
�
 � 0,1
� � X_Co_ord%,Y_Co_ord%
" � X_Co_ord%,Y_Co_ord%+Height%

) � X_Co_ord%+Width%,Y_Co_ord%+Height%
! � X_Co_ord%+Width%,Y_Co_ord%
 � X_Co_ord%,Y_Co_ord%
(
 �    
2 :
< � �_print_menu_items
F � 1
P
 � 128
Z � loop% = 1 � menu_entries
d; � �10,loop%+6);position$(loop%);": ";entry$(loop%)    
n � loop%
x �
� :
� � �_print_current_option
� � 0
�
 � 129
�W � �9,current_entry+6);" ";position$(current_entry);": ";entry$(current_entry);    
� pos = �
� � loop% = pos � 30
� � " ";
� �
� �
� :
� � �_accept_input_from_user
� *FX 15
 entry_flag  = �  
 User_Input$ = ""  
 �
" User_Input$=�(20)
, �_validate_input
6 � entry_flag = �
@ old_entry = current_entry
J< � User_Input$ = �138 � current_entry = current_entry +1
T< � User_Input$ = �139 � current_entry = current_entry -1
^' � User_Input$ = �13 � flag = �    
hg � (�(User_Input$)-64)>0 � (�(User_Input$)-64)<=menu_entries � current_entry = (�(User_Input$)-64) 
rN � User_Input$ = �138 � (current_entry > menu_entries) � current_entry = 1
|N � User_Input$ = �139 � (current_entry < 1) � current_entry = menu_entries
� �
� :
� � �_validate_input
�K � User_Input$=�139 � User_Input$=�138 � User_Input$=�13 � entry_flag=�
�Q � (�(User_Input$)-64)>0 � (�(User_Input$)-64)<=menu_entries � entry_flag = �
� �
� :
� � �_delete_current_option
� � 1
�
 � 128
�G � �9,old_entry+6);" ";position$(old_entry);": ";entry$(old_entry);
� pos = �
� � loop% = pos � 30  

 � " ";  
 �
 �
& :
0 � �_load_game
: �_check_notes
DE � loading$(current_entry) = "CHAIN" � � filename$(current_entry)
NO � loading$(current_entry) = "*EXEC" � �("EXEC" + filename$(current_entry))
SX� loading$(current_entry) = "DIR" � �("DIR " + filename$(current_entry)):� timtom%=1
XM � loading$(current_entry) = "*RUN" � �("RUN" + filename$(current_entry))
b �
l :
v � �_check_notes
�J � �note$(current_entry),"M") = 1 � � 22,�(�note$(current_entry),2,1))
� �
� :
� � ***************
� � ** Data Area **
� � ***************
� � :
�# � OSCLI (e.g. *RUN) calls need
�$ � full pathname including drive
� � :
�� 6
�� A,LIBRARY,DIR,LIBRARY,XX
�� B,MUSIC,DIR,MUSIC,XX  
#� C,UTILITIES,DIR ,UTILITIES,XX
 � D,Ceemags,CHAIN,CEEMAGS,XX
 � E,GRAPHICS,DIR,GRAPHICS,XX
 � F,VIEW,DIR,VIEW,XX
�

00000000  0d 00 0a 20 20 f4 20 55  73 65 72 2d 46 72 69 65  |...  . User-Frie|
00000010  6e 64 6c 79 20 4d 65 6e  75 20 53 79 73 74 65 6d  |ndly Menu System|
00000020  0d 00 14 1b 20 f4 20 28  43 29 20 53 74 65 76 65  |.... . (C) Steve|
00000030  20 57 79 65 74 68 20 31  39 38 39 0d 00 1e 08 20  | Wyeth 1989.... |
00000040  eb 20 34 0d 00 28 0c 20  2a 46 58 20 34 2c 31 0d  |. 4..(. *FX 4,1.|
00000050  00 32 10 20 f4 20 2a 46  58 20 32 32 39 2c 31 0d  |.2. . *FX 229,1.|
00000060  00 3c 1b 20 f2 5f 76 61  72 69 61 62 6c 65 5f 64  |.<. ._variable_d|
00000070  65 66 69 6e 69 74 69 6f  6e 73 0d 00 46 12 20 f2  |efinitions..F. .|
00000080  5f 66 69 6c 6c 5f 61 72  72 61 79 73 0d 00 50 13  |_fill_arrays..P.|
00000090  20 f2 5f 70 72 69 6e 74  5f 73 63 72 65 65 6e 0d  | ._print_screen.|
000000a0  00 5a 17 20 f2 5f 70 72  69 6e 74 5f 6d 65 6e 75  |.Z. ._print_menu|
000000b0  5f 69 74 65 6d 73 0d 00  64 06 20 f5 0d 00 6e 1b  |_items..d. ...n.|
000000c0  20 f2 5f 70 72 69 6e 74  5f 63 75 72 72 65 6e 74  | ._print_current|
000000d0  5f 6f 70 74 69 6f 6e 0d  00 78 1d 20 f2 5f 61 63  |_option..x. ._ac|
000000e0  63 65 70 74 5f 69 6e 70  75 74 5f 66 72 6f 6d 5f  |cept_input_from_|
000000f0  75 73 65 72 0d 00 82 2c  20 e7 20 66 6c 61 67 20  |user..., . flag |
00000100  3d 20 a3 20 8c 20 f2 5f  64 65 6c 65 74 65 5f 63  |= . . ._delete_c|
00000110  75 72 72 65 6e 74 5f 6f  70 74 69 6f 6e 20 20 20  |urrent_option   |
00000120  0d 00 8c 12 20 fd 20 66  6c 61 67 20 3d 20 b9 20  |.... . flag = . |
00000130  20 20 0d 00 96 0c 20 2a  46 58 20 34 2c 30 0d 00  |  .... *FX 4,0..|
00000140  a0 10 20 f2 5f 6c 6f 61  64 5f 67 61 6d 65 0d 00  |.. ._load_game..|
00000150  a5 18 20 e7 20 74 69 6d  74 6f 6d 25 3c 3e 31 20  |.. . timtom%<>1 |
00000160  e5 20 8d 74 6a 40 0d 00  a6 19 eb 36 3a ef 31 39  |. .tj@.....6:.19|
00000170  2c 30 2c 34 2c 30 2c 30  2c 30 3a f1 3a 2a 2e 0d  |,0,4,0,0,0:.:*..|
00000180  00 a7 05 f1 0d 00 aa 06  20 e0 0d 00 b4 06 20 3a  |........ ..... :|
00000190  0d 00 be 1d 20 dd 20 f2  5f 76 61 72 69 61 62 6c  |.... . ._variabl|
000001a0  65 5f 64 65 66 69 6e 69  74 69 6f 6e 73 0d 00 c8  |e_definitions...|
000001b0  18 20 62 6c 75 65 20 20  20 20 20 20 20 20 20 20  |. blue          |
000001c0  3d 20 34 20 20 0d 00 d2  17 20 77 68 69 74 65 20  |= 4  .... white |
000001d0  20 20 20 20 20 20 20 20  3d 20 37 20 0d 00 dc 19  |        = 7 ....|
000001e0  20 62 61 63 6b 67 72 6f  75 6e 64 20 20 20 20 3d  | background    =|
000001f0  20 30 20 20 20 0d 00 e6  19 20 66 6f 72 65 67 72  | 0   .... foregr|
00000200  6f 75 6e 64 20 20 20 20  3d 20 31 20 20 20 0d 00  |ound    = 1   ..|
00000210  f0 17 20 63 75 72 72 65  6e 74 5f 65 6e 74 72 79  |.. current_entry|
00000220  20 3d 20 31 20 0d 00 fa  16 20 f3 20 6d 65 6e 75  | = 1 .... . menu|
00000230  5f 65 6e 74 72 69 65 73  20 20 20 0d 01 04 1e 20  |_entries   .... |
00000240  de 20 70 6f 73 69 74 69  6f 6e 24 28 6d 65 6e 75  |. position$(menu|
00000250  5f 65 6e 74 72 69 65 73  29 0d 01 0e 1b 20 de 20  |_entries).... . |
00000260  65 6e 74 72 79 24 28 6d  65 6e 75 5f 65 6e 74 72  |entry$(menu_entr|
00000270  69 65 73 29 0d 01 18 1d  20 de 20 6c 6f 61 64 69  |ies).... . loadi|
00000280  6e 67 24 28 6d 65 6e 75  5f 65 6e 74 72 69 65 73  |ng$(menu_entries|
00000290  29 0d 01 22 20 20 de 20  66 69 6c 65 6e 61 6d 65  |).."  . filename|
000002a0  24 28 6d 65 6e 75 5f 65  6e 74 72 69 65 73 29 20  |$(menu_entries) |
000002b0  20 0d 01 2c 1a 20 de 20  6e 6f 74 65 24 28 6d 65  | ..,. . note$(me|
000002c0  6e 75 5f 65 6e 74 72 69  65 73 29 0d 01 36 18 20  |nu_entries)..6. |
000002d0  70 6f 73 20 20 20 20 20  20 20 20 20 20 20 3d 20  |pos           = |
000002e0  30 20 20 0d 01 40 18 20  6f 6c 64 5f 65 6e 74 72  |0  ..@. old_entr|
000002f0  79 20 20 20 20 20 3d 20  31 20 20 0d 01 4a 1a 20  |y     = 1  ..J. |
00000300  66 6c 61 67 20 20 20 20  20 20 20 20 20 20 3d 20  |flag          = |
00000310  a3 20 20 20 20 0d 01 54  19 20 65 6e 74 72 79 5f  |.    ..T. entry_|
00000320  66 6c 61 67 20 20 20 20  3d 20 a3 20 20 20 0d 01  |flag    = .   ..|
00000330  5e 1b 20 55 73 65 72 5f  49 6e 70 75 74 24 20 20  |^. User_Input$  |
00000340  20 3d 20 22 22 20 20 20  20 0d 01 68 06 20 e1 0d  | = ""    ..h. ..|
00000350  01 72 06 20 3a 0d 01 7c  14 20 dd 20 f2 5f 66 69  |.r. :..|. . ._fi|
00000360  6c 6c 5f 61 72 72 61 79  73 0d 01 86 1f 20 e3 20  |ll_arrays.... . |
00000370  6c 6f 6f 70 25 20 3d 20  31 20 b8 20 6d 65 6e 75  |loop% = 1 . menu|
00000380  5f 65 6e 74 72 69 65 73  0d 01 90 17 20 f3 20 70  |_entries.... . p|
00000390  6f 73 69 74 69 6f 6e 24  28 6c 6f 6f 70 25 29 0d  |osition$(loop%).|
000003a0  01 9a 14 20 f3 20 65 6e  74 72 79 24 28 6c 6f 6f  |... . entry$(loo|
000003b0  70 25 29 0d 01 a4 16 20  f3 20 6c 6f 61 64 69 6e  |p%).... . loadin|
000003c0  67 24 28 6c 6f 6f 70 25  29 0d 01 ae 17 20 f3 20  |g$(loop%).... . |
000003d0  66 69 6c 65 6e 61 6d 65  24 28 6c 6f 6f 70 25 29  |filename$(loop%)|
000003e0  0d 01 b8 13 20 f3 20 6e  6f 74 65 24 28 6c 6f 6f  |.... . note$(loo|
000003f0  70 25 29 0d 01 c2 0c 20  ed 20 6c 6f 6f 70 25 0d  |p%).... . loop%.|
00000400  01 cc 06 20 e1 0d 01 d6  06 20 3a 0d 01 e0 15 20  |... ..... :.... |
00000410  dd 20 f2 5f 70 72 69 6e  74 5f 73 63 72 65 65 6e  |. ._print_screen|
00000420  0d 01 ea 1e 20 ef 20 31  39 2c 62 61 63 6b 67 72  |.... . 19,backgr|
00000430  6f 75 6e 64 2c 62 6c 75  65 3b 30 3b 20 20 0d 01  |ound,blue;0;  ..|
00000440  f4 1f 20 ef 20 31 39 2c  66 6f 72 65 67 72 6f 75  |.. . 19,foregrou|
00000450  6e 64 2c 77 68 69 74 65  3b 30 3b 20 20 0d 01 fe  |nd,white;0;  ...|
00000460  1c 20 f2 5f 63 68 61 72  61 63 74 65 72 5f 64 65  |. ._character_de|
00000470  66 69 6e 69 74 69 6f 6e  73 0d 02 08 15 20 ef 20  |finitions.... . |
00000480  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 0d 02  |23;8202;0;0;0;..|
00000490  12 17 20 f2 5f 70 72 69  6e 74 5f 62 61 63 6b 67  |.. ._print_backg|
000004a0  72 6f 75 6e 64 0d 02 1c  23 20 f2 5f 70 72 65 74  |round...# ._pret|
000004b0  74 79 5f 62 6f 72 64 65  72 28 35 38 34 2c 31 30  |ty_border(584,10|
000004c0  30 38 2c 34 29 20 20 20  0d 02 26 11 20 ec 20 35  |08,4)   ..&. . 5|
000004d0  38 34 2c 39 39 32 20 20  20 0d 02 30 0d 20 f1 20  |84,992   ..0. . |
000004e0  22 4d 45 4e 55 22 0d 02  3a 08 20 ef 20 34 0d 02  |"MENU"..:. . 4..|
000004f0  44 0a 20 fb 20 31 32 39  0d 02 4e 08 20 fb 20 30  |D. . 129..N. . 0|
00000500  0d 02 58 22 20 f2 5f 72  65 63 74 61 6e 67 6c 65  |..X" ._rectangle|
00000510  28 32 35 30 2c 32 30 30  2c 37 38 32 2c 36 35 30  |(250,200,782,650|
00000520  29 20 0d 02 62 1f 20 f2  5f 70 72 65 74 74 79 5f  |) ..b. ._pretty_|
00000530  62 6f 72 64 65 72 28 39  36 2c 31 30 38 2c 33 34  |border(96,108,34|
00000540  29 0d 02 6c 23 20 f2 5f  70 72 65 74 74 79 5f 62  |)..l# ._pretty_b|
00000550  6f 72 64 65 72 28 39 36  2c 37 36 2c 33 34 29 20  |order(96,76,34) |
00000560  20 20 20 20 0d 02 76 31  20 f1 8a 33 2c 32 39 29  |    ..v1 ..3,29)|
00000570  3b 22 20 20 50 6c 65 61  73 65 20 73 65 6c 65 63  |;"  Please selec|
00000580  74 20 74 68 65 20 72 65  71 75 69 72 65 64 20 67  |t the required g|
00000590  61 6d 65 20 22 0d 02 80  30 20 f1 20 8a 35 2c 33  |ame "...0 . .5,3|
000005a0  30 29 3b 89 28 37 29 3b  22 62 79 20 22 3b bd 31  |0);.(7);"by ";.1|
000005b0  33 30 3b bd 31 33 31 3b  22 20 61 6e 64 20 52 45  |30;.131;" and RE|
000005c0  54 55 52 4e 22 0d 02 8a  0a 20 e6 20 30 2c 31 0d  |TURN".... . 0,1.|
000005d0  02 94 11 20 f0 20 36 39  2c 31 31 38 34 2c 37 32  |... . 69,1184,72|
000005e0  0d 02 9e 11 20 f0 20 36  39 2c 31 31 38 34 2c 37  |.... . 69,1184,7|
000005f0  36 0d 02 a8 06 20 e1 0d  02 b2 06 20 3a 0d 02 bc  |6.... ..... :...|
00000600  1e 20 dd 20 f2 5f 63 68  61 72 61 63 74 65 72 5f  |. . ._character_|
00000610  64 65 66 69 6e 69 74 69  6f 6e 73 0d 02 c6 0f 20  |definitions.... |
00000620  f4 20 55 70 20 41 72 72  6f 77 0d 02 d0 26 20 ef  |. Up Arrow...& .|
00000630  20 32 33 2c 31 33 30 2c  32 34 2c 36 30 2c 36 30  | 23,130,24,60,60|
00000640  2c 31 32 36 2c 32 34 2c  32 34 2c 32 34 2c 32 34  |,126,24,24,24,24|
00000650  0d 02 da 11 20 f4 20 44  6f 77 6e 20 41 72 72 6f  |.... . Down Arro|
00000660  77 0d 02 e4 26 20 ef 20  32 33 2c 31 33 31 2c 32  |w...& . 23,131,2|
00000670  34 2c 32 34 2c 32 34 2c  32 34 2c 31 32 36 2c 36  |4,24,24,24,126,6|
00000680  30 2c 36 30 2c 32 34 0d  02 ee 1b 20 f4 20 42 61  |0,60,24.... . Ba|
00000690  63 6b 67 72 6f 75 6e 64  20 43 68 61 72 61 63 74  |ckground Charact|
000006a0  65 72 0d 02 f8 2d 20 ef  20 32 33 2c 31 33 32 2c  |er...- . 23,132,|
000006b0  31 34 36 2c 33 36 2c 37  33 2c 31 34 36 2c 33 36  |146,36,73,146,36|
000006c0  2c 37 33 2c 31 34 36 2c  33 36 20 20 20 20 20 0d  |,73,146,36     .|
000006d0  03 02 06 20 e1 0d 03 0c  06 20 3a 0d 03 16 19 20  |... ..... :.... |
000006e0  dd 20 f2 5f 70 72 69 6e  74 5f 62 61 63 6b 67 72  |. ._print_backgr|
000006f0  6f 75 6e 64 0d 03 20 13  20 e3 20 6c 6f 6f 70 25  |ound.. . . loop%|
00000700  3d 30 20 b8 20 33 31 0d  03 2a 1b 20 f1 20 8a 30  |=0 . 31..*. . .0|
00000710  2c 6c 6f 6f 70 25 29 3b  c4 34 30 2c bd 31 33 32  |,loop%);.40,.132|
00000720  29 3b 0d 03 34 0c 20 ed  20 6c 6f 6f 70 25 0d 03  |);..4. . loop%..|
00000730  3e 08 20 ef 20 35 0d 03  48 0b 20 ec 20 30 2c 32  |>. . 5..H. . 0,2|
00000740  38 0d 03 52 12 20 f1 20  c4 34 30 2c bd 31 33 32  |8..R. . .40,.132|
00000750  29 20 20 0d 03 5c 06 20  e1 0d 03 66 06 20 3a 0d  |)  ..\. ...f. :.|
00000760  03 70 3a 20 dd 20 f2 5f  70 72 65 74 74 79 5f 62  |.p: . ._pretty_b|
00000770  6f 72 64 65 72 28 58 5f  43 6f 5f 6f 72 64 25 2c  |order(X_Co_ord%,|
00000780  59 5f 43 6f 5f 6f 72 64  25 2c 53 74 72 69 6e 67  |Y_Co_ord%,String|
00000790  5f 4c 65 6e 67 74 68 25  29 0d 03 7a 0a 20 e6 20  |_Length%)..z. . |
000007a0  30 2c 30 0d 03 84 23 20  59 5f 41 64 6a 75 73 74  |0,0...# Y_Adjust|
000007b0  6d 65 6e 74 25 3d 59 5f  43 6f 5f 6f 72 64 25 2d  |ment%=Y_Co_ord%-|
000007c0  36 34 20 20 20 20 0d 03  8e 31 20 58 5f 41 64 6a  |64    ...1 X_Adj|
000007d0  75 73 74 6d 65 6e 74 25  3d 58 5f 43 6f 5f 6f 72  |ustment%=X_Co_or|
000007e0  64 25 2b 53 74 72 69 6e  67 5f 4c 65 6e 67 74 68  |d%+String_Length|
000007f0  25 2a 33 32 20 20 20 0d  03 98 1a 20 ec 20 58 5f  |%*32   .... . X_|
00000800  43 6f 5f 6f 72 64 25 2c  59 5f 43 6f 5f 6f 72 64  |Co_ord%,Y_Co_ord|
00000810  25 0d 03 a2 21 20 ec 20  58 5f 43 6f 5f 6f 72 64  |%...! . X_Co_ord|
00000820  25 2c 59 5f 43 6f 5f 6f  72 64 25 2d 31 36 20 20  |%,Y_Co_ord%-16  |
00000830  20 20 0d 03 ac 23 20 f0  20 38 35 2c 58 5f 43 6f  |  ...# . 85,X_Co|
00000840  5f 6f 72 64 25 2d 33 32  2c 59 5f 43 6f 5f 6f 72  |_ord%-32,Y_Co_or|
00000850  64 25 2d 31 36 0d 03 b6  23 20 f0 20 38 35 2c 58  |d%-16...# . 85,X|
00000860  5f 43 6f 5f 6f 72 64 25  2d 33 32 2c 59 5f 43 6f  |_Co_ord%-32,Y_Co|
00000870  5f 6f 72 64 25 2d 34 38  0d 03 c0 20 20 ec 20 58  |_ord%-48...  . X|
00000880  5f 43 6f 5f 6f 72 64 25  2c 59 5f 43 6f 5f 6f 72  |_Co_ord%,Y_Co_or|
00000890  64 25 2d 34 38 20 20 20  0d 03 ca 20 20 f0 20 38  |d%-48   ...  . 8|
000008a0  35 2c 58 5f 43 6f 5f 6f  72 64 25 2c 59 5f 43 6f  |5,X_Co_ord%,Y_Co|
000008b0  5f 6f 72 64 25 2d 31 36  0d 03 d4 1f 20 ec 20 58  |_ord%-16.... . X|
000008c0  5f 43 6f 5f 6f 72 64 25  2c 59 5f 43 6f 5f 6f 72  |_Co_ord%,Y_Co_or|
000008d0  64 25 2d 34 38 20 20 0d  03 de 21 20 ec 20 58 5f  |d%-48  ...! . X_|
000008e0  43 6f 5f 6f 72 64 25 2d  33 32 2c 59 5f 43 6f 5f  |Co_ord%-32,Y_Co_|
000008f0  6f 72 64 25 2d 34 38 20  0d 03 e8 22 20 f0 20 38  |ord%-48 ..." . 8|
00000900  35 2c 58 5f 43 6f 5f 6f  72 64 25 2c 59 5f 43 6f  |5,X_Co_ord%,Y_Co|
00000910  5f 6f 72 64 25 2d 36 34  20 20 0d 03 f2 1e 20 ec  |_ord%-64  .... .|
00000920  20 58 5f 41 64 6a 75 73  74 6d 65 6e 74 25 2c 59  | X_Adjustment%,Y|
00000930  5f 43 6f 5f 6f 72 64 25  0d 03 fc 21 20 ec 20 58  |_Co_ord%...! . X|
00000940  5f 41 64 6a 75 73 74 6d  65 6e 74 25 2c 59 5f 43  |_Adjustment%,Y_C|
00000950  6f 5f 6f 72 64 25 2d 31  36 0d 04 06 2a 20 f0 20  |o_ord%-16...* . |
00000960  38 35 2c 58 5f 41 64 6a  75 73 74 6d 65 6e 74 25  |85,X_Adjustment%|
00000970  2b 33 32 2c 59 5f 43 6f  5f 6f 72 64 25 2d 31 36  |+32,Y_Co_ord%-16|
00000980  20 20 20 0d 04 10 27 20  f0 20 38 35 2c 58 5f 41  |   ...' . 85,X_A|
00000990  64 6a 75 73 74 6d 65 6e  74 25 2b 33 32 2c 59 5f  |djustment%+32,Y_|
000009a0  43 6f 5f 6f 72 64 25 2d  34 38 0d 04 1a 21 20 ec  |Co_ord%-48...! .|
000009b0  20 58 5f 41 64 6a 75 73  74 6d 65 6e 74 25 2c 59  | X_Adjustment%,Y|
000009c0  5f 43 6f 5f 6f 72 64 25  2d 34 38 0d 04 24 28 20  |_Co_ord%-48..$( |
000009d0  f0 20 38 35 2c 58 5f 41  64 6a 75 73 74 6d 65 6e  |. 85,X_Adjustmen|
000009e0  74 25 2c 59 5f 43 6f 5f  6f 72 64 25 2d 31 36 20  |t%,Y_Co_ord%-16 |
000009f0  20 20 20 0d 04 2e 23 20  ec 20 58 5f 41 64 6a 75  |   ...# . X_Adju|
00000a00  73 74 6d 65 6e 74 25 2c  59 5f 43 6f 5f 6f 72 64  |stment%,Y_Co_ord|
00000a10  25 2d 34 38 20 20 0d 04  38 27 20 ec 20 58 5f 41  |%-48  ..8' . X_A|
00000a20  64 6a 75 73 74 6d 65 6e  74 25 2b 33 32 2c 59 5f  |djustment%+32,Y_|
00000a30  43 6f 5f 6f 72 64 25 2d  34 38 20 20 20 0d 04 42  |Co_ord%-48   ..B|
00000a40  27 20 f0 20 38 35 2c 58  5f 41 64 6a 75 73 74 6d  |' . 85,X_Adjustm|
00000a50  65 6e 74 25 2c 59 5f 43  6f 5f 6f 72 64 25 2d 36  |ent%,Y_Co_ord%-6|
00000a60  34 20 20 20 0d 04 4c 1a  20 ec 20 58 5f 43 6f 5f  |4   ..L. . X_Co_|
00000a70  6f 72 64 25 2c 59 5f 43  6f 5f 6f 72 64 25 0d 04  |ord%,Y_Co_ord%..|
00000a80  56 20 20 ec 20 58 5f 43  6f 5f 6f 72 64 25 2c 59  |V  . X_Co_ord%,Y|
00000a90  5f 41 64 6a 75 73 74 6d  65 6e 74 25 20 20 0d 04  |_Adjustment%  ..|
00000aa0  60 25 20 f0 20 38 35 2c  58 5f 41 64 6a 75 73 74  |`% . 85,X_Adjust|
00000ab0  6d 65 6e 74 25 2c 59 5f  43 6f 5f 6f 72 64 25 20  |ment%,Y_Co_ord% |
00000ac0  20 20 20 0d 04 6a 25 20  f0 20 38 35 2c 58 5f 41  |   ..j% . 85,X_A|
00000ad0  64 6a 75 73 74 6d 65 6e  74 25 2c 59 5f 41 64 6a  |djustment%,Y_Adj|
00000ae0  75 73 74 6d 65 6e 74 25  0d 04 74 0a 20 e6 20 30  |ustment%..t. . 0|
00000af0  2c 31 0d 04 7e 1c 20 ec  20 58 5f 43 6f 5f 6f 72  |,1..~. . X_Co_or|
00000b00  64 25 2c 59 5f 43 6f 5f  6f 72 64 25 2d 38 0d 04  |d%,Y_Co_ord%-8..|
00000b10  88 20 20 ec 20 58 5f 43  6f 5f 6f 72 64 25 2c 59  |.  . X_Co_ord%,Y|
00000b20  5f 41 64 6a 75 73 74 6d  65 6e 74 25 2b 38 0d 04  |_Adjustment%+8..|
00000b30  92 24 20 f0 20 38 35 2c  58 5f 41 64 6a 75 73 74  |.$ . 85,X_Adjust|
00000b40  6d 65 6e 74 25 2c 59 5f  43 6f 5f 6f 72 64 25 2d  |ment%,Y_Co_ord%-|
00000b50  38 20 0d 04 9c 2b 20 f0  20 38 35 2c 58 5f 41 64  |8 ...+ . 85,X_Ad|
00000b60  6a 75 73 74 6d 65 6e 74  25 2c 59 5f 41 64 6a 75  |justment%,Y_Adju|
00000b70  73 74 6d 65 6e 74 25 2b  38 20 20 20 20 0d 04 a6  |stment%+8    ...|
00000b80  0a 20 e6 20 30 2c 30 0d  04 b0 06 20 e1 0d 04 ba  |. . 0,0.... ....|
00000b90  06 20 3a 0d 04 c4 36 20  dd 20 f2 5f 72 65 63 74  |. :...6 . ._rect|
00000ba0  61 6e 67 6c 65 28 58 5f  43 6f 5f 6f 72 64 25 2c  |angle(X_Co_ord%,|
00000bb0  59 5f 43 6f 5f 6f 72 64  25 2c 57 69 64 74 68 25  |Y_Co_ord%,Width%|
00000bc0  2c 48 65 69 67 68 74 25  29 0d 04 ce 41 20 ef 20  |,Height%)...A . |
00000bd0  32 34 2c 58 5f 43 6f 5f  6f 72 64 25 3b 59 5f 43  |24,X_Co_ord%;Y_C|
00000be0  6f 5f 6f 72 64 25 3b 58  5f 43 6f 5f 6f 72 64 25  |o_ord%;X_Co_ord%|
00000bf0  2b 57 69 64 74 68 25 3b  59 5f 43 6f 5f 6f 72 64  |+Width%;Y_Co_ord|
00000c00  25 2b 48 65 69 67 68 74  25 3b 0d 04 d8 06 20 da  |%+Height%;.... .|
00000c10  0d 04 e2 09 20 ef 20 32  36 0d 04 ec 0a 20 e6 20  |.... . 26.... . |
00000c20  30 2c 31 0d 04 f6 1a 20  ec 20 58 5f 43 6f 5f 6f  |0,1.... . X_Co_o|
00000c30  72 64 25 2c 59 5f 43 6f  5f 6f 72 64 25 0d 05 00  |rd%,Y_Co_ord%...|
00000c40  22 20 df 20 58 5f 43 6f  5f 6f 72 64 25 2c 59 5f  |" . X_Co_ord%,Y_|
00000c50  43 6f 5f 6f 72 64 25 2b  48 65 69 67 68 74 25 0d  |Co_ord%+Height%.|
00000c60  05 0a 29 20 df 20 58 5f  43 6f 5f 6f 72 64 25 2b  |..) . X_Co_ord%+|
00000c70  57 69 64 74 68 25 2c 59  5f 43 6f 5f 6f 72 64 25  |Width%,Y_Co_ord%|
00000c80  2b 48 65 69 67 68 74 25  0d 05 14 21 20 df 20 58  |+Height%...! . X|
00000c90  5f 43 6f 5f 6f 72 64 25  2b 57 69 64 74 68 25 2c  |_Co_ord%+Width%,|
00000ca0  59 5f 43 6f 5f 6f 72 64  25 0d 05 1e 1a 20 df 20  |Y_Co_ord%.... . |
00000cb0  58 5f 43 6f 5f 6f 72 64  25 2c 59 5f 43 6f 5f 6f  |X_Co_ord%,Y_Co_o|
00000cc0  72 64 25 0d 05 28 0a 20  e1 20 20 20 20 0d 05 32  |rd%..(. .    ..2|
00000cd0  06 20 3a 0d 05 3c 19 20  dd 20 f2 5f 70 72 69 6e  |. :..<. . ._prin|
00000ce0  74 5f 6d 65 6e 75 5f 69  74 65 6d 73 0d 05 46 08  |t_menu_items..F.|
00000cf0  20 fb 20 31 0d 05 50 0a  20 fb 20 31 32 38 0d 05  | . 1..P. . 128..|
00000d00  5a 1f 20 e3 20 6c 6f 6f  70 25 20 3d 20 31 20 b8  |Z. . loop% = 1 .|
00000d10  20 6d 65 6e 75 5f 65 6e  74 72 69 65 73 0d 05 64  | menu_entries..d|
00000d20  3b 20 f1 20 8a 31 30 2c  6c 6f 6f 70 25 2b 36 29  |; . .10,loop%+6)|
00000d30  3b 70 6f 73 69 74 69 6f  6e 24 28 6c 6f 6f 70 25  |;position$(loop%|
00000d40  29 3b 22 3a 20 22 3b 65  6e 74 72 79 24 28 6c 6f  |);": ";entry$(lo|
00000d50  6f 70 25 29 20 20 20 20  0d 05 6e 0c 20 ed 20 6c  |op%)    ..n. . l|
00000d60  6f 6f 70 25 0d 05 78 06  20 e1 0d 05 82 06 20 3a  |oop%..x. ..... :|
00000d70  0d 05 8c 1d 20 dd 20 f2  5f 70 72 69 6e 74 5f 63  |.... . ._print_c|
00000d80  75 72 72 65 6e 74 5f 6f  70 74 69 6f 6e 0d 05 96  |urrent_option...|
00000d90  08 20 fb 20 30 0d 05 a0  0a 20 fb 20 31 32 39 0d  |. . 0.... . 129.|
00000da0  05 aa 57 20 f1 20 8a 39  2c 63 75 72 72 65 6e 74  |..W . .9,current|
00000db0  5f 65 6e 74 72 79 2b 36  29 3b 22 20 22 3b 70 6f  |_entry+6);" ";po|
00000dc0  73 69 74 69 6f 6e 24 28  63 75 72 72 65 6e 74 5f  |sition$(current_|
00000dd0  65 6e 74 72 79 29 3b 22  3a 20 22 3b 65 6e 74 72  |entry);": ";entr|
00000de0  79 24 28 63 75 72 72 65  6e 74 5f 65 6e 74 72 79  |y$(current_entry|
00000df0  29 3b 20 20 20 20 0d 05  b4 0c 20 70 6f 73 20 3d  |);    .... pos =|
00000e00  20 b1 0d 05 be 17 20 e3  20 6c 6f 6f 70 25 20 3d  | ..... . loop% =|
00000e10  20 70 6f 73 20 b8 20 33  30 0d 05 c8 0b 20 f1 20  | pos . 30.... . |
00000e20  22 20 22 3b 0d 05 d2 06  20 ed 0d 05 dc 06 20 e1  |" ";.... ..... .|
00000e30  0d 05 e6 06 20 3a 0d 05  f0 1f 20 dd 20 f2 5f 61  |.... :.... . ._a|
00000e40  63 63 65 70 74 5f 69 6e  70 75 74 5f 66 72 6f 6d  |ccept_input_from|
00000e50  5f 75 73 65 72 0d 05 fa  0b 20 2a 46 58 20 31 35  |_user.... *FX 15|
00000e60  0d 06 04 16 20 65 6e 74  72 79 5f 66 6c 61 67 20  |.... entry_flag |
00000e70  20 3d 20 a3 20 20 0d 06  0e 17 20 55 73 65 72 5f  | = .  .... User_|
00000e80  49 6e 70 75 74 24 20 3d  20 22 22 20 20 0d 06 18  |Input$ = ""  ...|
00000e90  06 20 f5 0d 06 22 16 20  55 73 65 72 5f 49 6e 70  |. ...". User_Inp|
00000ea0  75 74 24 3d bf 28 32 30  29 0d 06 2c 15 20 f2 5f  |ut$=.(20)..,. ._|
00000eb0  76 61 6c 69 64 61 74 65  5f 69 6e 70 75 74 0d 06  |validate_input..|
00000ec0  36 15 20 fd 20 65 6e 74  72 79 5f 66 6c 61 67 20  |6. . entry_flag |
00000ed0  3d 20 b9 0d 06 40 1e 20  6f 6c 64 5f 65 6e 74 72  |= ...@. old_entr|
00000ee0  79 20 3d 20 63 75 72 72  65 6e 74 5f 65 6e 74 72  |y = current_entr|
00000ef0  79 0d 06 4a 3c 20 e7 20  55 73 65 72 5f 49 6e 70  |y..J< . User_Inp|
00000f00  75 74 24 20 3d 20 bd 31  33 38 20 8c 20 63 75 72  |ut$ = .138 . cur|
00000f10  72 65 6e 74 5f 65 6e 74  72 79 20 3d 20 63 75 72  |rent_entry = cur|
00000f20  72 65 6e 74 5f 65 6e 74  72 79 20 2b 31 0d 06 54  |rent_entry +1..T|
00000f30  3c 20 e7 20 55 73 65 72  5f 49 6e 70 75 74 24 20  |< . User_Input$ |
00000f40  3d 20 bd 31 33 39 20 8c  20 63 75 72 72 65 6e 74  |= .139 . current|
00000f50  5f 65 6e 74 72 79 20 3d  20 63 75 72 72 65 6e 74  |_entry = current|
00000f60  5f 65 6e 74 72 79 20 2d  31 0d 06 5e 27 20 e7 20  |_entry -1..^' . |
00000f70  55 73 65 72 5f 49 6e 70  75 74 24 20 3d 20 bd 31  |User_Input$ = .1|
00000f80  33 20 8c 20 66 6c 61 67  20 3d 20 b9 20 20 20 20  |3 . flag = .    |
00000f90  0d 06 68 67 20 e7 20 28  97 28 55 73 65 72 5f 49  |..hg . (.(User_I|
00000fa0  6e 70 75 74 24 29 2d 36  34 29 3e 30 20 80 20 28  |nput$)-64)>0 . (|
00000fb0  97 28 55 73 65 72 5f 49  6e 70 75 74 24 29 2d 36  |.(User_Input$)-6|
00000fc0  34 29 3c 3d 6d 65 6e 75  5f 65 6e 74 72 69 65 73  |4)<=menu_entries|
00000fd0  20 8c 20 63 75 72 72 65  6e 74 5f 65 6e 74 72 79  | . current_entry|
00000fe0  20 3d 20 28 97 28 55 73  65 72 5f 49 6e 70 75 74  | = (.(User_Input|
00000ff0  24 29 2d 36 34 29 20 0d  06 72 4e 20 e7 20 55 73  |$)-64) ..rN . Us|
00001000  65 72 5f 49 6e 70 75 74  24 20 3d 20 bd 31 33 38  |er_Input$ = .138|
00001010  20 80 20 28 63 75 72 72  65 6e 74 5f 65 6e 74 72  | . (current_entr|
00001020  79 20 3e 20 6d 65 6e 75  5f 65 6e 74 72 69 65 73  |y > menu_entries|
00001030  29 20 8c 20 63 75 72 72  65 6e 74 5f 65 6e 74 72  |) . current_entr|
00001040  79 20 3d 20 31 0d 06 7c  4e 20 e7 20 55 73 65 72  |y = 1..|N . User|
00001050  5f 49 6e 70 75 74 24 20  3d 20 bd 31 33 39 20 80  |_Input$ = .139 .|
00001060  20 28 63 75 72 72 65 6e  74 5f 65 6e 74 72 79 20  | (current_entry |
00001070  3c 20 31 29 20 8c 20 63  75 72 72 65 6e 74 5f 65  |< 1) . current_e|
00001080  6e 74 72 79 20 3d 20 6d  65 6e 75 5f 65 6e 74 72  |ntry = menu_entr|
00001090  69 65 73 0d 06 86 06 20  e1 0d 06 90 06 20 3a 0d  |ies.... ..... :.|
000010a0  06 9a 17 20 dd 20 f2 5f  76 61 6c 69 64 61 74 65  |... . ._validate|
000010b0  5f 69 6e 70 75 74 0d 06  a4 4b 20 e7 20 55 73 65  |_input...K . Use|
000010c0  72 5f 49 6e 70 75 74 24  3d bd 31 33 39 20 84 20  |r_Input$=.139 . |
000010d0  55 73 65 72 5f 49 6e 70  75 74 24 3d bd 31 33 38  |User_Input$=.138|
000010e0  20 84 20 55 73 65 72 5f  49 6e 70 75 74 24 3d bd  | . User_Input$=.|
000010f0  31 33 20 8c 20 65 6e 74  72 79 5f 66 6c 61 67 3d  |13 . entry_flag=|
00001100  b9 0d 06 ae 51 20 e7 20  28 97 28 55 73 65 72 5f  |....Q . (.(User_|
00001110  49 6e 70 75 74 24 29 2d  36 34 29 3e 30 20 80 20  |Input$)-64)>0 . |
00001120  28 97 28 55 73 65 72 5f  49 6e 70 75 74 24 29 2d  |(.(User_Input$)-|
00001130  36 34 29 3c 3d 6d 65 6e  75 5f 65 6e 74 72 69 65  |64)<=menu_entrie|
00001140  73 20 8c 20 65 6e 74 72  79 5f 66 6c 61 67 20 3d  |s . entry_flag =|
00001150  20 b9 0d 06 b8 06 20 e1  0d 06 c2 06 20 3a 0d 06  | ..... ..... :..|
00001160  cc 1e 20 dd 20 f2 5f 64  65 6c 65 74 65 5f 63 75  |.. . ._delete_cu|
00001170  72 72 65 6e 74 5f 6f 70  74 69 6f 6e 0d 06 d6 08  |rrent_option....|
00001180  20 fb 20 31 0d 06 e0 0a  20 fb 20 31 32 38 0d 06  | . 1.... . 128..|
00001190  ea 47 20 f1 20 8a 39 2c  6f 6c 64 5f 65 6e 74 72  |.G . .9,old_entr|
000011a0  79 2b 36 29 3b 22 20 22  3b 70 6f 73 69 74 69 6f  |y+6);" ";positio|
000011b0  6e 24 28 6f 6c 64 5f 65  6e 74 72 79 29 3b 22 3a  |n$(old_entry);":|
000011c0  20 22 3b 65 6e 74 72 79  24 28 6f 6c 64 5f 65 6e  | ";entry$(old_en|
000011d0  74 72 79 29 3b 0d 06 f4  0c 20 70 6f 73 20 3d 20  |try);.... pos = |
000011e0  b1 0d 06 fe 19 20 e3 20  6c 6f 6f 70 25 20 3d 20  |..... . loop% = |
000011f0  70 6f 73 20 b8 20 33 30  20 20 0d 07 08 0d 20 f1  |pos . 30  .... .|
00001200  20 22 20 22 3b 20 20 0d  07 12 06 20 ed 0d 07 1c  | " ";  .... ....|
00001210  06 20 e1 0d 07 26 06 20  3a 0d 07 30 12 20 dd 20  |. ...&. :..0. . |
00001220  f2 5f 6c 6f 61 64 5f 67  61 6d 65 0d 07 3a 12 20  |._load_game..:. |
00001230  f2 5f 63 68 65 63 6b 5f  6e 6f 74 65 73 0d 07 44  |._check_notes..D|
00001240  45 20 e7 20 6c 6f 61 64  69 6e 67 24 28 63 75 72  |E . loading$(cur|
00001250  72 65 6e 74 5f 65 6e 74  72 79 29 20 3d 20 22 43  |rent_entry) = "C|
00001260  48 41 49 4e 22 20 8c 20  d7 20 66 69 6c 65 6e 61  |HAIN" . . filena|
00001270  6d 65 24 28 63 75 72 72  65 6e 74 5f 65 6e 74 72  |me$(current_entr|
00001280  79 29 0d 07 4e 4f 20 e7  20 6c 6f 61 64 69 6e 67  |y)..NO . loading|
00001290  24 28 63 75 72 72 65 6e  74 5f 65 6e 74 72 79 29  |$(current_entry)|
000012a0  20 3d 20 22 2a 45 58 45  43 22 20 8c 20 ff 28 22  | = "*EXEC" . .("|
000012b0  45 58 45 43 22 20 2b 20  66 69 6c 65 6e 61 6d 65  |EXEC" + filename|
000012c0  24 28 63 75 72 72 65 6e  74 5f 65 6e 74 72 79 29  |$(current_entry)|
000012d0  29 0d 07 53 58 e7 20 6c  6f 61 64 69 6e 67 24 28  |)..SX. loading$(|
000012e0  63 75 72 72 65 6e 74 5f  65 6e 74 72 79 29 20 3d  |current_entry) =|
000012f0  20 22 44 49 52 22 20 8c  20 ff 28 22 44 49 52 20  | "DIR" . .("DIR |
00001300  22 20 2b 20 66 69 6c 65  6e 61 6d 65 24 28 63 75  |" + filename$(cu|
00001310  72 72 65 6e 74 5f 65 6e  74 72 79 29 29 3a e9 20  |rrent_entry)):. |
00001320  74 69 6d 74 6f 6d 25 3d  31 0d 07 58 4d 20 e7 20  |timtom%=1..XM . |
00001330  6c 6f 61 64 69 6e 67 24  28 63 75 72 72 65 6e 74  |loading$(current|
00001340  5f 65 6e 74 72 79 29 20  3d 20 22 2a 52 55 4e 22  |_entry) = "*RUN"|
00001350  20 8c 20 ff 28 22 52 55  4e 22 20 2b 20 66 69 6c  | . .("RUN" + fil|
00001360  65 6e 61 6d 65 24 28 63  75 72 72 65 6e 74 5f 65  |ename$(current_e|
00001370  6e 74 72 79 29 29 0d 07  62 06 20 e1 0d 07 6c 06  |ntry))..b. ...l.|
00001380  20 3a 0d 07 76 14 20 dd  20 f2 5f 63 68 65 63 6b  | :..v. . ._check|
00001390  5f 6e 6f 74 65 73 0d 07  80 4a 20 e7 20 a7 6e 6f  |_notes...J . .no|
000013a0  74 65 24 28 63 75 72 72  65 6e 74 5f 65 6e 74 72  |te$(current_entr|
000013b0  79 29 2c 22 4d 22 29 20  3d 20 31 20 8c 20 ef 20  |y),"M") = 1 . . |
000013c0  32 32 2c bb 28 c1 6e 6f  74 65 24 28 63 75 72 72  |22,.(.note$(curr|
000013d0  65 6e 74 5f 65 6e 74 72  79 29 2c 32 2c 31 29 29  |ent_entry),2,1))|
000013e0  0d 07 8a 06 20 e1 0d 07  94 06 20 3a 0d 07 9e 16  |.... ..... :....|
000013f0  20 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | . *************|
00001400  2a 2a 0d 07 a8 16 20 f4  20 2a 2a 20 44 61 74 61  |**.... . ** Data|
00001410  20 41 72 65 61 20 2a 2a  0d 07 b2 16 20 f4 20 2a  | Area **.... . *|
00001420  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 07  |**************..|
00001430  bc 08 20 f4 20 3a 0d 07  c6 23 20 f4 20 4f 53 43  |.. . :...# . OSC|
00001440  4c 49 20 28 65 2e 67 2e  20 2a 52 55 4e 29 20 63  |LI (e.g. *RUN) c|
00001450  61 6c 6c 73 20 6e 65 65  64 0d 07 d0 24 20 f4 20  |alls need...$ . |
00001460  66 75 6c 6c 20 70 61 74  68 6e 61 6d 65 20 69 6e  |full pathname in|
00001470  63 6c 75 64 69 6e 67 20  64 72 69 76 65 0d 07 da  |cluding drive...|
00001480  08 20 f4 20 3a 0d 07 e4  07 dc 20 36 0d 07 ee 1e  |. . :..... 6....|
00001490  dc 20 41 2c 4c 49 42 52  41 52 59 2c 44 49 52 2c  |. A,LIBRARY,DIR,|
000014a0  4c 49 42 52 41 52 59 2c  58 58 0d 07 f8 1c dc 20  |LIBRARY,XX..... |
000014b0  42 2c 4d 55 53 49 43 2c  44 49 52 2c 4d 55 53 49  |B,MUSIC,DIR,MUSI|
000014c0  43 2c 58 58 20 20 0d 08  02 23 dc 20 43 2c 55 54  |C,XX  ...#. C,UT|
000014d0  49 4c 49 54 49 45 53 2c  44 49 52 20 2c 55 54 49  |ILITIES,DIR ,UTI|
000014e0  4c 49 54 49 45 53 2c 58  58 0d 08 0c 20 dc 20 44  |LITIES,XX... . D|
000014f0  2c 43 65 65 6d 61 67 73  2c 43 48 41 49 4e 2c 43  |,Ceemags,CHAIN,C|
00001500  45 45 4d 41 47 53 2c 58  58 0d 08 16 20 dc 20 45  |EEMAGS,XX... . E|
00001510  2c 47 52 41 50 48 49 43  53 2c 44 49 52 2c 47 52  |,GRAPHICS,DIR,GR|
00001520  41 50 48 49 43 53 2c 58  58 0d 08 20 18 dc 20 46  |APHICS,XX.. .. F|
00001530  2c 56 49 45 57 2c 44 49  52 2c 56 49 45 57 2c 58  |,VIEW,DIR,VIEW,X|
00001540  58 0d ff                                          |X..|
00001543