00000000  78 10 9f e5 78 20 9f e5  78 30 9f e5 01 00 52 e4  |x...x ..x0....R.|
00000010  01 00 43 e4 01 10 51 e2  fb ff ff 1a 10 00 00 ef  |..C...Q.........|
00000020  9d 20 8f e2 01 10 d0 e4  00 00 31 e3 20 00 31 13  |. ........1. .1.|
00000030  01 10 c2 14 fa ff ff 1a  22 30 a0 e3 01 30 c2 e4  |........"0...0..|
00000040  20 30 a0 e3 01 30 c2 e4  00 00 31 e3 01 00 40 02  | 0...0....1...@.|
00000050  01 10 d0 e4 01 10 c2 e4  00 00 31 e3 fb ff ff 1a  |..........1.....|
00000060  43 00 8f e2 4c 10 8f e2  01 20 42 e0 00 30 a0 e3  |C...L.... B..0..|
00000070  04 40 a0 e3 24 00 00 ef  0c 00 8f e2 05 00 00 ef  |.@..$...........|
00000080  b9 51 00 00 7d d2 00 00  b8 e1 00 00 42 61 73 69  |.Q..}.......Basi|
00000090  63 20 2d 71 75 69 74 20  40 30 30 30 30 39 30 30  |c -quit @0000900|
000000a0  30 2c 30 30 30 30 45 31  42 39 00 4d 61 6b 65 41  |0,0000E1B9.MakeA|
000000b0  70 70 32 24 43 4c 49 00  42 61 73 69 63 20 2d 71  |pp2$CLI.Basic -q|
000000c0  75 69 74 20 22 0d 00 00  4f de 42 25 20 32 35 36  |uit "...O.B% 256|
000000d0  3a 43 24 3d 22 4d 61 6b  65 41 70 70 32 24 43 4c  |:C$="MakeApp2$CL|
000000e0  49 22 3a c8 99 33 35 2c  43 24 2c 42 25 2c 32 35  |I":..35,C$,B%,25|
000000f0  36 3a c8 99 31 36 b8 2c  2c 54 25 3a c8 99 37 32  |6:..16.,,T%:..72|
00000100  2c 42 25 2c 54 25 3a c8  99 33 36 2c 43 24 2c 22  |,B%,T%:..36,C$,"|
00000110  22 2c 2d 31 0d 00 0a 28  f4 20 20 3d 3d 3d 20 20  |",-1...(.  ===  |
00000120  4d 41 50 4d 41 4b 45 52  20 46 4f 52 20 21 52 41  |MAPMAKER FOR !RA|
00000130  49 4c 50 52 4f 20 20 3d  3d 3d 3d 3d 0d 00 14 28  |ILPRO  =====...(|
00000140  f4 20 20 3d 3d 3d 20 21  52 61 69 6c 45 64 50 72  |.  === !RailEdPr|
00000150  6f 2c 20 76 65 72 73 69  6f 6e 20 31 2e 30 20 3d  |o, version 1.0 =|
00000160  3d 3d 3d 3d 0d 00 1e 28  f4 20 20 3d 3d 3d 20 20  |====...(.  ===  |
00000170  20 20 20 62 79 20 4a 6f  73 20 4b 65 69 6a 7a 65  |   by Jos Keijze|
00000180  72 73 20 20 20 20 20 3d  3d 3d 3d 3d 0d 00 28 0c  |rs     =====..(.|
00000190  ee 85 f6 3a f1 9e 3a fa  0d 00 32 07 eb 32 38 0d  |...:..:...2..28.|
000001a0  00 3c 07 f2 41 5f 0d 00  46 07 f2 42 5f 0d 00 47  |.<..A_..F..B_..G|
000001b0  0f c8 99 32 36 32 33 38  33 2c 2d 31 0d 00 50 05  |...262383,-1..P.|
000001c0  e0 0d 00 64 08 dd f2 41  5f 0d 00 6e 1e de 43 5f  |...d...A_..n..C_|
000001d0  25 26 33 30 30 30 30 2c  44 5f 25 20 31 30 32 34  |%&30000,D_% 1024|
000001e0  2c 45 5f 25 20 32 34 0d  00 78 10 43 5f 25 21 30  |,E_% 24..x.C_%!0|
000001f0  3d 26 33 30 30 30 30 0d  00 82 0c 43 5f 25 21 38  |=&30000....C_%!8|
00000200  3d 31 36 0d 00 8c 13 c8  99 26 32 45 2c 39 2b 32  |=16......&2E,9+2|
00000210  35 36 2c 43 5f 25 0d 00  96 2a c8 99 26 32 45 2c  |56,C_%...*..&2E,|
00000220  31 30 2b 32 35 36 2c 43  5f 25 2c 22 3c 4f 62 65  |10+256,C_%,"<Obe|
00000230  79 24 44 69 72 3e 2e 53  70 72 69 74 65 73 4d 22  |y$Dir>.SpritesM"|
00000240  0d 00 a0 95 de 46 5f 24  28 31 32 30 2c 34 30 29  |.....F_$(120,40)|
00000250  2c 56 24 28 33 36 2c 31  31 29 2c 41 24 28 31 31  |,V$(36,11),A$(11|
00000260  29 2c 47 5f 25 28 38 2c  39 29 2c 44 24 28 32 30  |),G_%(8,9),D$(20|
00000270  29 2c 48 5f 24 28 39 29  2c 49 5f 24 28 39 29 2c  |),H_$(9),I_$(9),|
00000280  4a 5f 25 28 31 32 29 2c  4b 5f 25 28 32 30 2c 39  |J_%(12),K_%(20,9|
00000290  29 2c 4d 25 28 34 29 2c  4c 5f 25 28 33 30 2c 34  |),M%(4),L_%(30,4|
000002a0  29 2c 4d 5f 25 28 32 30  2c 39 29 2c 4e 5f 24 28  |),M_%(20,9),N_$(|
000002b0  32 30 29 2c 4f 5f 24 28  32 30 29 2c 50 5f 24 28  |20),O_$(20),P_$(|
000002c0  31 32 30 2c 34 30 29 2c  51 5f 24 28 36 29 2c 52  |120,40),Q_$(6),R|
000002d0  5f 24 28 36 29 0d 00 aa  6f 53 5f 25 3d 30 3a 54  |_$(6)...oS_%=0:T|
000002e0  5f 25 3d 30 3a 6d 25 3d  31 3a 61 25 3d 30 3a 55  |_%=0:m%=1:a%=0:U|
000002f0  5f 25 3d 30 3a 56 5f 25  3d 31 3a 57 5f 3d 30 3a  |_%=0:V_%=1:W_=0:|
00000300  58 5f 25 3d 30 3a 59 5f  25 3d 30 3a 42 24 3d 22  |X_%=0:Y_%=0:B$="|
00000310  30 30 22 3a 5a 5f 25 3d  30 3a 61 5f 24 3d 22 61  |00":Z_%=0:a_$="a|
00000320  20 6d 61 70 22 3a 62 5f  25 3d 30 3a 63 5f 24 3d  | map":b_%=0:c_$=|
00000330  22 22 3a 64 5f 25 3d 30  3a 77 24 3d c4 33 32 2c  |"":d_%=0:w$=.32,|
00000340  22 20 22 29 0d 00 b4 16  e3 58 3d 31 b8 32 30 3a  |" ").....X=1.20:|
00000350  44 24 28 58 29 3d 22 22  3a ed 0d 00 be 26 e3 59  |D$(X)="":....&.Y|
00000360  3d 30 b8 34 30 3a e3 58  3d 30 b8 31 32 30 3a 46  |=0.40:.X=0.120:F|
00000370  5f 24 28 58 2c 59 29 3d  22 30 30 22 3a ed 3a ed  |_$(X,Y)="00":.:.|
00000380  0d 00 c8 26 e3 59 3d 30  b8 34 30 3a e3 58 3d 30  |...&.Y=0.40:.X=0|
00000390  b8 31 32 30 3a 50 5f 24  28 58 2c 59 29 3d 22 30  |.120:P_$(X,Y)="0|
000003a0  30 22 3a ed 3a ed 0d 00  d2 24 e3 59 3d 30 b8 31  |0":.:....$.Y=0.1|
000003b0  31 3a e3 58 3d 30 b8 33  36 3a 56 24 28 58 2c 59  |1:.X=0.36:V$(X,Y|
000003c0  29 3d 22 30 30 22 3a ed  3a ed 0d 00 dc 05 f7 0d  |)="00":.:.......|
000003d0  00 e6 0f e3 59 3d 30 b8  31 31 3a 58 3d 30 0d 00  |....Y=0.11:X=0..|
000003e0  f0 0a f3 41 24 28 59 29  0d 00 fa 0e 42 3d a9 28  |...A$(Y)....B=.(|
000003f0  41 24 28 59 29 29 0d 01  04 0c e3 61 3d 31 b8 42  |A$(Y)).....a=1.B|
00000400  88 32 0d 01 0e 12 61 24  3d c1 41 24 28 59 29 2c  |.2....a$=.A$(Y),|
00000410  61 2c 32 29 0d 01 18 14  56 24 28 58 2c 59 29 3d  |a,2)....V$(X,Y)=|
00000420  61 24 3a 58 3d 58 2b 31  0d 01 22 09 ed 3a 58 3d  |a$:X=X+1.."..:X=|
00000430  30 0d 01 2c 05 ed 0d 01  36 14 e3 58 3d 30 b8 36  |0..,....6..X=0.6|
00000440  3a f3 51 5f 24 28 58 29  3a ed 0d 01 40 14 e3 58  |:.Q_$(X):...@..X|
00000450  3d 31 b8 36 3a f3 52 5f  24 28 58 29 3a ed 0d 01  |=1.6:.R_$(X):...|
00000460  4a 05 e1 0d 01 54 23 dc  22 37 66 65 32 30 30 31  |J....T#."7fe2001|
00000470  32 32 30 34 30 35 30 36  30 33 61 39 31 39 41 39  |2204050603a919A9|
00000480  2e 30 30 65 33 22 0d 01  5e 19 dc 22 37 66 30 30  |.00e3"..^.."7f00|
00000490  30 62 30 63 30 64 30 65  37 66 65 30 37 66 22 0d  |0b0c0d0e7fe07f".|
000004a0  01 68 39 dc 22 37 66 30  30 31 30 31 31 31 32 31  |.h9."7f001011121|
000004b0  33 31 34 31 35 31 36 31  37 31 38 31 39 31 61 31  |31415161718191a1|
000004c0  62 31 64 31 65 31 66 30  31 30 32 30 33 30 34 30  |b1d1e1f010203040|
000004d0  30 30 38 30 39 30 61 22  0d 01 72 2f dc 22 37 66  |008090a"..r/."7f|
000004e0  30 30 32 30 32 31 32 32  30 30 33 30 33 31 33 32  |0020212200303132|
000004f0  30 30 32 33 32 34 32 35  30 30 33 33 33 34 33 35  |0023242500333435|
00000500  30 30 32 64 33 64 22 0d  01 7c 31 dc 22 37 66 30  |002d3d"..|1."7f0|
00000510  30 34 30 34 31 34 32 34  33 30 30 34 34 34 35 34  |0404142430044454|
00000520  36 34 37 30 30 34 38 34  39 34 61 34 62 30 30 34  |6470048494a4b004|
00000530  63 34 64 34 65 34 66 22  0d 01 86 31 dc 22 37 66  |c4d4e4f"...1."7f|
00000540  30 30 35 30 35 31 35 32  35 33 30 30 35 34 35 35  |0050515253005455|
00000550  35 36 35 37 30 30 35 38  35 39 35 61 35 62 30 30  |56570058595a5b00|
00000560  35 63 35 64 35 65 35 66  22 0d 01 90 41 dc 22 37  |5c5d5e5f"...A."7|
00000570  66 30 30 36 30 36 33 36  32 36 35 30 30 37 31 37  |f006063626500717|
00000580  34 37 32 37 35 30 30 38  30 38 31 38 32 38 33 38  |4727500808182838|
00000590  34 38 35 30 30 31 30 31  31 30 30 38 38 38 39 38  |4850010110088898|
000005a0  61 38 62 30 30 38 36 38  37 22 0d 01 91 2b dc 22  |a8b008687"...+."|
000005b0  37 66 33 61 33 62 30 30  32 61 32 62 30 30 32 36  |7f3a3b002a2b0026|
000005c0  32 37 32 38 32 39 30 30  33 36 33 37 33 38 33 39  |2728290036373839|
000005d0  30 30 30 36 22 0d 01 9a  1f dc 22 37 66 30 30 39  |0006"....."7f009|
000005e0  31 39 32 39 33 39 34 39  35 39 36 39 37 39 38 39  |1929394959697989|
000005f0  39 39 30 22 0d 01 a4 3f  dc 22 37 66 30 30 39 41  |990"...?."7f009A|
00000600  39 42 39 43 39 44 39 45  39 46 39 47 39 48 39 49  |9B9C9D9E9F9G9H9I|
00000610  39 4a 39 4b 39 4c 39 4d  39 4e 39 4f 39 50 39 51  |9J9K9L9M9N9O9P9Q|
00000620  39 52 39 53 39 54 39 55  39 56 39 57 39 58 39 59  |9R9S9T9U9V9W9X9Y|
00000630  39 5a 22 0d 01 ae 21 dc  22 37 66 30 30 39 28 39  |9Z"...!."7f009(9|
00000640  29 39 2e 39 3c 39 3e 39  2d 39 2a 39 23 39 3a 39  |)9.9<9>9-9*9#9:9|
00000650  3d 39 26 22 0d 01 b8 23  dc 22 37 66 30 30 30 30  |=9&"...#."7f0000|
00000660  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00000670  30 30 30 30 30 30 22 0d  01 c2 37 dc 22 41 6c 6c  |000000"...7."All|
00000680  20 74 79 70 65 73 22 2c  22 49 43 22 2c 22 4c 50  | types","IC","LP|
00000690  22 2c 22 47 44 22 2c 22  49 43 2f 4c 50 22 2c 22  |","GD","IC/LP","|
000006a0  4c 50 2f 47 44 22 2c 22  49 43 2f 47 44 22 0d 01  |LP/GD","IC/GD"..|
000006b0  cc 48 dc 22 31 2d 34 20  6d 69 6e 73 22 2c 22 32  |.H."1-4 mins","2|
000006c0  2d 35 20 6d 69 6e 73 22  2c 22 33 2d 37 20 6d 69  |-5 mins","3-7 mi|
000006d0  6e 73 22 2c 22 34 2d 38  20 6d 69 6e 73 22 2c 22  |ns","4-8 mins","|
000006e0  35 2d 31 30 20 6d 69 6e  73 22 2c 22 38 2d 31 35  |5-10 mins","8-15|
000006f0  20 6d 69 6e 73 22 0d 01  d6 04 0d 01 e0 08 dd f2  | mins"..........|
00000700  65 5f 0d 01 ea 1d db 3a  f2 66 5f 3a 78 25 3d 30  |e_.....:.f_:x%=0|
00000710  3a f2 67 5f 28 31 30 29  3a f2 67 5f 28 30 29 0d  |:.g_(10):.g_(0).|
00000720  01 f4 06 f2 74 0d 01 fe  64 f1 27 22 20 3c 53 65  |....t...d.'" <Se|
00000730  6c 65 63 74 3e 20 74 6f  20 63 68 6f 6f 73 65 20  |lect> to choose |
00000740  61 20 67 72 6f 75 70 20  6f 72 20 69 74 65 6d 22  |a group or item"|
00000750  27 27 22 20 3c 41 64 6a  75 73 74 3e 20 74 6f 20  |''" <Adjust> to |
00000760  64 65 73 65 6c 65 63 74  20 61 20 67 72 6f 75 70  |deselect a group|
00000770  22 27 27 22 20 3c 4d 65  6e 75 3e 20 66 6f 72 20  |"''" <Menu> for |
00000780  74 68 65 20 4d 65 6e 75  22 0d 02 08 07 c8 97 ee  |the Menu".......|
00000790  0d 02 12 0e c8 97 b8 36  30 30 2c 34 30 30 0d 02  |.......600,400..|
000007a0  1c 05 f5 0d 02 26 0e c8  97 58 25 2c 59 25 2c 5a  |.....&...X%,Y%,Z|
000007b0  25 0d 02 30 1f e7 5a 25  3d 34 20 41 25 3d 58 25  |%..0..Z%=4 A%=X%|
000007c0  81 34 30 3a 42 25 3d 59  25 81 34 30 3a f2 68 5f  |.40:B%=Y%.40:.h_|
000007d0  0d 02 3a 1d e7 5a 25 3d  31 20 78 25 3d 30 3a f2  |..:..Z%=1 x%=0:.|
000007e0  67 5f 28 31 30 29 3a f2  67 5f 28 30 29 0d 02 44  |g_(10):.g_(0)..D|
000007f0  1f e7 a6 2d 35 38 80 54  5f 25 3c 33 30 20 54 5f  |...-58.T_%<30 T_|
00000800  25 3d 54 5f 25 2b 31 30  3a f2 66 5f 0d 02 4e 20  |%=T_%+10:.f_..N |
00000810  e7 a6 2d 34 32 80 54 5f  25 3e 3d 31 30 20 54 5f  |..-42.T_%>=10 T_|
00000820  25 3d 54 5f 25 2d 31 30  3a f2 66 5f 0d 02 58 21  |%=T_%-10:.f_..X!|
00000830  e7 a6 2d 31 32 32 80 53  5f 25 3c 31 30 30 20 53  |..-122.S_%<100 S|
00000840  5f 25 3d 53 5f 25 2b 32  35 3a f2 66 5f 0d 02 62  |_%=S_%+25:.f_..b|
00000850  20 e7 a6 2d 32 36 80 53  5f 25 3e 3d 32 35 20 53  | ..-26.S_%>=25 S|
00000860  5f 25 3d 53 5f 25 2d 32  35 3a f2 66 5f 0d 02 6c  |_%=S_%-25:.f_..l|
00000870  09 fd 5a 25 3d 32 0d 02  76 05 e1 0d 02 8a 1c dd  |..Z%=2..v.......|
00000880  f2 66 5f 3a ef 32 34 2c  30 3b 30 3b 31 32 37 39  |.f_:.24,0;0;1279|
00000890  3b 38 36 30 3b 3a da 0d  02 94 2d 6c 25 3d 53 5f  |;860;:....-l%=S_|
000008a0  25 3a 68 25 3d 54 5f 25  3a 69 5f 25 3d 53 5f 25  |%:h%=T_%:i_%=S_%|
000008b0  2b 33 32 3a e7 69 5f 25  3e 31 30 30 20 69 5f 25  |+32:.i_%>100 i_%|
000008c0  3d 31 32 30 0d 02 9e 1d  6a 5f 25 3d 54 5f 25 2b  |=120....j_%=T_%+|
000008d0  31 39 3a e7 6a 5f 25 3e  34 30 20 6a 5f 25 3d 34  |19:.j_%>40 j_%=4|
000008e0  30 0d 02 a8 53 e3 59 3d  68 25 b8 6a 5f 25 3a e3  |0...S.Y=h%.j_%:.|
000008f0  58 3d 6c 25 b8 69 5f 25  3a 4c 25 3d 28 58 2d 53  |X=l%.i_%:L%=(X-S|
00000900  5f 25 29 2a 34 30 3a 48  25 3d 28 59 2d 54 5f 25  |_%)*40:H%=(Y-T_%|
00000910  29 2a 34 30 3a 53 24 3d  46 5f 24 28 58 2c 59 29  |)*40:S$=F_$(X,Y)|
00000920  3a e7 c0 53 24 2c 31 29  3d 22 39 22 20 53 24 3d  |:..S$,1)="9" S$=|
00000930  22 30 30 22 0d 02 b2 2b  c8 99 26 32 45 2c 33 34  |"00"...+..&2E,34|
00000940  2b 32 35 36 2c 43 5f 25  2c 53 24 2c 4c 25 2c 48  |+256,C_%,S$,L%,H|
00000950  25 2c 38 3a 53 24 3d 46  5f 24 28 58 2c 59 29 0d  |%,8:S$=F_$(X,Y).|
00000960  02 bc 30 e7 c0 53 24 2c  31 29 3d 22 39 22 ef 35  |..0..S$,1)="9".5|
00000970  3a e6 30 2c 36 33 3a ec  4c 25 2b 31 32 2c 48 25  |:.0,63:.L%+12,H%|
00000980  2b 33 30 3a f1 c2 53 24  2c 31 29 3b 3a ef 34 0d  |+30:..S$,1);:.4.|
00000990  02 c6 17 ed 3a ed 3a f2  67 5f 28 78 25 29 3a f2  |....:.:.g_(x%):.|
000009a0  6b 5f 28 32 30 29 0d 02  d0 05 e1 0d 02 e4 31 dd  |k_(20)........1.|
000009b0  f2 6c 5f 3a e7 28 42 24  3d 22 30 62 22 84 42 24  |.l_:.(B$="0b".B$|
000009c0  3d 22 30 63 22 84 42 24  3d 22 30 64 22 84 42 24  |="0c".B$="0d".B$|
000009d0  3d 22 30 65 22 29 63 5f  24 3d 42 24 0d 02 ee 19  |="0e")c_$=B$....|
000009e0  e7 42 24 3d 22 65 30 22  84 42 24 3d 22 65 31 22  |.B$="e0".B$="e1"|
000009f0  f2 6d 5f 3a e1 0d 02 f8  1e e7 28 41 25 2b 53 5f  |.m_:......(A%+S_|
00000a00  25 29 3e 31 32 30 84 28  42 25 2b 54 5f 25 29 3e  |%)>120.(B%+T_%)>|
00000a10  34 30 e1 0d 02 f9 39 e7  28 42 24 3d 22 30 62 22  |40....9.(B$="0b"|
00000a20  84 42 24 3d 22 30 63 22  84 42 24 3d 22 30 64 22  |.B$="0c".B$="0d"|
00000a30  84 42 24 3d 22 30 65 22  29 80 28 41 25 2b 53 5f  |.B$="0e").(A%+S_|
00000a40  25 29 3d 30 20 41 25 3d  41 25 2b 31 0d 02 fa 3b  |%)=0 A%=A%+1...;|
00000a50  e7 28 42 24 3d 22 30 62  22 84 42 24 3d 22 30 63  |.(B$="0b".B$="0c|
00000a60  22 84 42 24 3d 22 30 64  22 84 42 24 3d 22 30 65  |".B$="0d".B$="0e|
00000a70  22 29 80 28 41 25 2b 53  5f 25 29 3d 31 32 30 20  |").(A%+S_%)=120 |
00000a80  41 25 3d 41 25 2d 31 0d  02 fb 14 e7 42 24 3d 22  |A%=A%-1.....B$="|
00000a90  37 66 22 20 42 24 3d 22  30 30 22 0d 03 02 19 46  |7f" B$="00"....F|
00000aa0  5f 24 28 41 25 2b 53 5f  25 2c 42 25 2b 54 5f 25  |_$(A%+S_%,B%+T_%|
00000ab0  29 3d 42 24 0d 03 0c 1b  4c 25 3d 41 25 2a 34 30  |)=B$....L%=A%*40|
00000ac0  3a 48 25 3d 42 25 2a 34  30 3a 53 24 3d 42 24 0d  |:H%=B%*40:S$=B$.|
00000ad0  03 16 17 e7 c0 53 24 2c  31 29 3d 22 39 22 20 53  |.....S$,1)="9" S|
00000ae0  24 3d 22 30 30 22 0d 03  20 27 c8 99 26 32 45 2c  |$="00".. '..&2E,|
00000af0  33 34 2b 32 35 36 2c 43  5f 25 2c 53 24 2c 4c 25  |34+256,C_%,S$,L%|
00000b00  2c 48 25 2c 26 30 38 3a  53 24 3d 42 24 0d 03 2a  |,H%,&08:S$=B$..*|
00000b10  30 e7 c0 53 24 2c 31 29  3d 22 39 22 ef 35 3a e6  |0..S$,1)="9".5:.|
00000b20  30 2c 36 33 3a ec 4c 25  2b 31 32 2c 48 25 2b 33  |0,63:.L%+12,H%+3|
00000b30  30 3a f1 c2 53 24 2c 31  29 3b 3a ef 34 0d 03 34  |0:..S$,1);:.4..4|
00000b40  2a f2 6e 5f 28 56 5f 25  29 3a e7 42 24 3d 22 30  |*.n_(V_%):.B$="0|
00000b50  35 22 f2 6f 5f 3a f2 70  5f 3a e7 62 5f 25 3c 39  |5".o_:.p_:.b_%<9|
00000b60  20 42 24 3d 63 5f 24 0d  03 3e 08 5a 25 3d 30 0d  | B$=c_$..>.Z%=0.|
00000b70  03 48 05 e1 0d 03 5c 0c  dd f2 6e 5f 28 65 25 29  |.H....\...n_(e%)|
00000b80  0d 03 66 74 e7 42 24 3d  22 30 62 22 20 42 24 3d  |..ft.B$="0b" B$=|
00000b90  22 30 35 22 3a 47 5f 25  28 65 25 2c 31 29 3d 41  |"05":G_%(e%,1)=A|
00000ba0  25 2b 53 5f 25 3a 47 5f  25 28 65 25 2c 32 29 3d  |%+S_%:G_%(e%,2)=|
00000bb0  42 25 2b 54 5f 25 3a f2  71 5f 3a 47 5f 25 28 65  |B%+T_%:.q_:G_%(e|
00000bc0  25 2c 37 29 3d 41 25 2b  53 5f 25 3a 42 25 3d 42  |%,7)=A%+S_%:B%=B|
00000bd0  25 2b 31 3a 47 5f 25 28  65 25 2c 38 29 3d 42 25  |%+1:G_%(e%,8)=B%|
00000be0  2b 54 5f 25 3a 47 5f 25  28 65 25 2c 35 29 3d 31  |+T_%:G_%(e%,5)=1|
00000bf0  3a f2 71 5f 0d 03 70 74  e7 42 24 3d 22 30 63 22  |:.q_..pt.B$="0c"|
00000c00  20 42 24 3d 22 30 35 22  3a 47 5f 25 28 65 25 2c  | B$="05":G_%(e%,|
00000c10  31 29 3d 41 25 2b 53 5f  25 3a 47 5f 25 28 65 25  |1)=A%+S_%:G_%(e%|
00000c20  2c 32 29 3d 42 25 2b 54  5f 25 3a f2 72 5f 3a 47  |,2)=B%+T_%:.r_:G|
00000c30  5f 25 28 65 25 2c 37 29  3d 41 25 2b 53 5f 25 3a  |_%(e%,7)=A%+S_%:|
00000c40  42 25 3d 42 25 2d 31 3a  47 5f 25 28 65 25 2c 38  |B%=B%-1:G_%(e%,8|
00000c50  29 3d 42 25 2b 54 5f 25  3a 47 5f 25 28 65 25 2c  |)=B%+T_%:G_%(e%,|
00000c60  35 29 3d 32 3a f2 72 5f  0d 03 7a 74 e7 42 24 3d  |5)=2:.r_..zt.B$=|
00000c70  22 30 64 22 20 42 24 3d  22 30 35 22 3a 47 5f 25  |"0d" B$="05":G_%|
00000c80  28 65 25 2c 31 29 3d 41  25 2b 53 5f 25 3a 47 5f  |(e%,1)=A%+S_%:G_|
00000c90  25 28 65 25 2c 32 29 3d  42 25 2b 54 5f 25 3a f2  |%(e%,2)=B%+T_%:.|
00000ca0  71 5f 3a 47 5f 25 28 65  25 2c 37 29 3d 41 25 2b  |q_:G_%(e%,7)=A%+|
00000cb0  53 5f 25 3a 42 25 3d 42  25 2d 31 3a 47 5f 25 28  |S_%:B%=B%-1:G_%(|
00000cc0  65 25 2c 38 29 3d 42 25  2b 54 5f 25 3a 47 5f 25  |e%,8)=B%+T_%:G_%|
00000cd0  28 65 25 2c 35 29 3d 31  3a f2 71 5f 0d 03 84 74  |(e%,5)=1:.q_...t|
00000ce0  e7 42 24 3d 22 30 65 22  20 42 24 3d 22 30 35 22  |.B$="0e" B$="05"|
00000cf0  3a 47 5f 25 28 65 25 2c  31 29 3d 41 25 2b 53 5f  |:G_%(e%,1)=A%+S_|
00000d00  25 3a 47 5f 25 28 65 25  2c 32 29 3d 42 25 2b 54  |%:G_%(e%,2)=B%+T|
00000d10  5f 25 3a f2 72 5f 3a 47  5f 25 28 65 25 2c 37 29  |_%:.r_:G_%(e%,7)|
00000d20  3d 41 25 2b 53 5f 25 3a  42 25 3d 42 25 2b 31 3a  |=A%+S_%:B%=B%+1:|
00000d30  47 5f 25 28 65 25 2c 38  29 3d 42 25 2b 54 5f 25  |G_%(e%,8)=B%+T_%|
00000d40  3a 47 5f 25 28 65 25 2c  35 29 3d 32 3a f2 72 5f  |:G_%(e%,5)=2:.r_|
00000d50  0d 03 8e 0f e7 42 24 3d  22 30 35 22 f2 6f 5f 0d  |.....B$="05".o_.|
00000d60  03 98 05 e1 0d 03 ac 08  dd f2 6f 5f 0d 03 b6 1d  |..........o_....|
00000d70  46 5f 24 28 41 25 2b 53  5f 25 2c 42 25 2b 54 5f  |F_$(A%+S_%,B%+T_|
00000d80  25 29 3d 42 24 3a f2 73  5f 0d 03 c0 05 e1 0d 03  |%)=B$:.s_.......|
00000d90  d4 0c dd f2 67 5f 28 78  25 29 0d 03 de 14 4c 25  |....g_(x%)....L%|
00000da0  3d 30 3a 48 25 3d 32 30  2a 34 30 2b 32 30 0d 03  |=0:H%=20*40+20..|
00000db0  e8 1f e3 58 3d 30 b8 33  36 3a 4c 25 3d 58 2a 34  |...X=0.36:L%=X*4|
00000dc0  30 3a 53 24 3d 56 24 28  58 2c 78 25 29 0d 03 f2  |0:S$=V$(X,x%)...|
00000dd0  17 e7 c0 53 24 2c 31 29  3d 22 39 22 20 53 24 3d  |...S$,1)="9" S$=|
00000de0  22 30 30 22 0d 03 fc 2b  c8 99 26 32 45 2c 33 34  |"00"...+..&2E,34|
00000df0  2b 32 35 36 2c 43 5f 25  2c 53 24 2c 4c 25 2c 48  |+256,C_%,S$,L%,H|
00000e00  25 2c 38 3a 53 24 3d 56  24 28 58 2c 78 25 29 0d  |%,8:S$=V$(X,x%).|
00000e10  04 06 2f e7 c0 53 24 2c  31 29 3d 22 39 22 ef 35  |../..S$,1)="9".5|
00000e20  3a e6 30 2c 36 33 3a ec  4c 25 2b 38 2c 48 25 2b  |:.0,63:.L%+8,H%+|
00000e30  32 30 3a f1 c2 53 24 2c  31 29 3b 3a ef 34 0d 04  |20:..S$,1);:.4..|
00000e40  10 05 ed 0d 04 1a 05 e1  0d 04 2e 08 dd f2 68 5f  |..............h_|
00000e50  0d 04 38 10 e7 59 25 3c  38 30 30 f2 6c 5f 3a e1  |..8..Y%<800.l_:.|
00000e60  0d 04 42 0a e7 78 25 3d  30 8c 0d 04 4c 16 42 25  |..B..x%=0...L.B%|
00000e70  3d 32 30 3a 42 24 3d 56  24 28 41 25 2c 78 25 29  |=20:B$=V$(A%,x%)|
00000e80  0d 04 56 11 e7 42 24 3d  22 65 32 22 20 78 25 3d  |..V..B$="e2" x%=|
00000e90  31 0d 04 60 11 e7 42 24  3d 22 31 32 22 20 78 25  |1..`..B$="12" x%|
00000ea0  3d 32 0d 04 6a 11 e7 42  24 3d 22 32 30 22 20 78  |=2..j..B$="20" x|
00000eb0  25 3d 33 0d 04 74 11 e7  42 24 3d 22 34 30 22 20  |%=3..t..B$="40" |
00000ec0  78 25 3d 34 0d 04 7e 11  e7 42 24 3d 22 35 30 22  |x%=4..~..B$="50"|
00000ed0  20 78 25 3d 35 0d 04 88  11 e7 42 24 3d 22 36 30  | x%=5.....B$="60|
00000ee0  22 20 78 25 3d 36 0d 04  89 11 e7 42 24 3d 22 33  |" x%=6.....B$="3|
00000ef0  61 22 20 78 25 3d 37 0d  04 92 11 e7 42 24 3d 22  |a" x%=7.....B$="|
00000f00  39 31 22 20 78 25 3d 38  0d 04 9c 11 e7 42 24 3d  |91" x%=8.....B$=|
00000f10  22 39 41 22 20 78 25 3d  39 0d 04 a6 12 e7 42 24  |"9A" x%=9.....B$|
00000f20  3d 22 39 2e 22 20 78 25  3d 31 30 0d 04 b0 0f e7  |="9." x%=10.....|
00000f30  42 24 3d 22 65 33 22 f2  74 5f 0d 04 ba 10 e7 78  |B$="e3".t_.....x|
00000f40  25 3e 36 f2 67 5f 28 31  31 29 0d 04 c4 0b f2 67  |%>6.g_(11).....g|
00000f50  5f 28 78 25 29 0d 04 ce  05 e1 0d 04 d8 05 cd 0d  |_(x%)...........|
00000f60  04 e2 10 42 24 3d 56 24  28 41 25 2c 78 25 29 0d  |...B$=V$(A%,x%).|
00000f70  04 ec 6d e7 28 42 24 3d  22 30 62 22 84 42 24 3d  |..m.(B$="0b".B$=|
00000f80  22 30 63 22 84 42 24 3d  22 30 64 22 84 42 24 3d  |"0c".B$="0d".B$=|
00000f90  22 30 65 22 29 80 62 5f  25 3d 38 f2 74 3a f1 27  |"0e").b_%=8.t:.'|
00000fa0  27 22 20 59 6f 75 20 65  6e 74 65 72 65 64 20 38  |'" You entered 8|
00000fb0  20 65 6e 74 72 79 70 6f  69 6e 74 73 2c 20 77 68  | entrypoints, wh|
00000fc0  69 63 68 20 69 73 20 74  68 65 20 6d 61 78 69 6d  |ich is the maxim|
00000fd0  75 6d 2e 22 3a 42 24 3d  22 30 30 22 0d 04 f6 6b  |um.":B$="00"...k|
00000fe0  e7 42 24 3d 22 65 30 22  80 28 64 5f 25 2b 62 5f  |.B$="e0".(d_%+b_|
00000ff0  25 29 3d 32 30 f2 74 3a  f1 27 27 22 59 6f 75 20  |%)=20.t:.''"You |
00001000  72 65 61 63 68 65 64 20  74 68 65 20 6d 61 78 69  |reached the maxi|
00001010  6d 75 6d 20 6f 66 20 65  6e 74 72 79 73 20 61 6e  |mum of entrys an|
00001020  64 20 73 74 61 74 69 6f  6e 73 2e 20 4e 6f 20 72  |d stations. No r|
00001030  6f 6f 6d 20 66 6f 72 20  6d 6f 72 65 2e 2e 22 3a  |oom for more..":|
00001040  42 24 3d 22 30 30 22 0d  05 00 72 e7 42 24 3d 22  |B$="00"...r.B$="|
00001050  65 30 22 80 58 5f 25 3d  33 30 f2 74 3a f1 27 27  |e0".X_%=30.t:.''|
00001060  22 59 6f 75 20 72 65 61  63 68 65 64 20 74 68 65  |"You reached the|
00001070  20 6d 61 78 69 6d 75 6d  20 6f 66 20 33 30 20 70  | maximum of 30 p|
00001080  6c 61 74 66 6f 72 6d 73  2e 22 27 27 22 20 4e 6f  |latforms."''" No|
00001090  20 72 6f 6f 6d 20 66 6f  72 20 61 6e 6f 74 68 65  | room for anothe|
000010a0  72 20 73 74 61 74 69 6f  6e 2f 64 65 70 6f 74 2e  |r station/depot.|
000010b0  22 3a 42 24 3d 22 30 30  22 0d 05 0a 0f e7 42 24  |":B$="00".....B$|
000010c0  3d 22 65 33 22 f2 74 5f  0d 05 14 05 e1 0d 05 28  |="e3".t_.......(|
000010d0  1c dd f2 75 5f 3a ef 32  36 3a fb 31 37 37 3a db  |...u_:.26:.177:.|
000010e0  3a fb 34 35 3a f1 27 27  27 0d 05 32 1f ff 28 22  |:.45:.'''..2..("|
000010f0  49 4e 46 4f 20 3c 4f 62  65 79 24 44 69 72 3e 2e  |INFO <Obey$Dir>.|
00001100  57 6f 72 6b 2e 2a 22 29  0d 05 3c 2b e8 27 27 22  |Work.*")..<+.''"|
00001110  20 20 20 47 69 76 65 20  74 68 65 20 6e 61 6d 65  |   Give the name|
00001120  20 6f 66 20 74 68 65 20  6d 61 70 20 3a 20 22 3b  | of the map : ";|
00001130  76 5f 24 0d 05 46 15 e7  76 5f 24 3d 22 22 20 76  |v_$..F..v_$="" v|
00001140  5f 24 3d 61 5f 24 3a e1  0d 05 50 12 f2 77 5f 28  |_$=a_$:...P..w_(|
00001150  31 29 3a 61 5f 24 3d 76  5f 24 0d 05 5a 1e 75 5f  |1):a_$=v_$..Z.u_|
00001160  24 3d 22 3c 4f 62 65 79  24 44 69 72 3e 2e 57 6f  |$="<Obey$Dir>.Wo|
00001170  72 6b 2e 22 2b 61 5f 24  0d 05 64 0b 42 25 3d 8e  |rk."+a_$..d.B%=.|
00001180  75 5f 24 0d 05 6e 0f e8  23 42 25 2c 56 5f 25 2c  |u_$..n..#B%,V_%,|
00001190  6d 25 0d 05 78 19 e3 58  3d 31 b8 31 32 3a e8 23  |m%..x..X=1.12:.#|
000011a0  42 25 2c 4a 5f 25 28 58  29 3a ed 0d 05 82 18 e3  |B%,J_%(X):......|
000011b0  58 3d 31 b8 32 30 3a e8  23 42 25 2c 44 24 28 58  |X=1.20:.#B%,D$(X|
000011c0  29 3a ed 0d 05 8c 23 e3  58 3d 31 b8 38 3a e3 59  |):....#.X=1.8:.Y|
000011d0  3d 31 b8 39 3a e8 23 42  25 2c 47 5f 25 28 58 2c  |=1.9:.#B%,G_%(X,|
000011e0  59 29 3a ed 3a ed 0d 05  96 24 e3 58 3d 31 b8 32  |Y):.:....$.X=1.2|
000011f0  30 3a e3 59 3d 31 b8 39  3a e8 23 42 25 2c 4d 5f  |0:.Y=1.9:.#B%,M_|
00001200  25 28 58 2c 59 29 3a ed  3a ed 0d 05 a0 24 e3 58  |%(X,Y):.:....$.X|
00001210  3d 31 b8 33 30 3a e8 23  42 25 2c 4c 5f 25 28 58  |=1.30:.#B%,L_%(X|
00001220  2c 33 29 2c 4c 5f 25 28  58 2c 34 29 3a ed 0d 05  |,3),L_%(X,4):...|
00001230  aa 26 e3 59 3d 30 b8 34  30 3a e3 58 3d 30 b8 31  |.&.Y=0.40:.X=0.1|
00001240  32 30 3a e8 23 42 25 2c  46 5f 24 28 58 2c 59 29  |20:.#B%,F_$(X,Y)|
00001250  3a ed 3a ed 0d 05 b4 08  d9 23 42 25 0d 05 be 06  |:.:......#B%....|
00001260  ef 34 0d 05 c8 17 e7 46  5f 24 28 30 2c 30 29 3d  |.4.....F_$(0,0)=|
00001270  22 39 2e 22 f2 78 5f 3a  e1 0d 05 d2 1d 58 5f 25  |"9.".x_:.....X_%|
00001280  3d 4a 5f 25 28 31 32 29  3a 62 5f 25 3d 56 5f 25  |=J_%(12):b_%=V_%|
00001290  2d 31 3a f2 79 5f 0d 05  dc 05 e1 0d 05 f0 23 dd  |-1:.y_........#.|
000012a0  f2 7a 5f 3a f2 5f 5f 3a  ef 34 3a db 3a f1 27 22  |.z_:.__:.4:.:.'"|
000012b0  20 53 41 56 49 4e 47 20  4d 41 50 22 27 27 0d 05  | SAVING MAP"''..|
000012c0  fa 4b e7 61 5f 24 3c 3e  22 61 20 6d 61 70 22 f1  |.K.a_$<>"a map".|
000012d0  22 20 50 72 65 73 73 20  3c 52 45 54 55 52 4e 3e  |" Press <RETURN>|
000012e0  20 74 6f 20 73 61 76 65  20 20 22 3b 3a fb 37 39  | to save  ";:.79|
000012f0  3a f1 3b 61 5f 24 3b 22  20 22 27 27 3a fb 36 33  |:.;a_$;" "'':.63|
00001300  3a f1 22 20 6f 72 22 27  27 0d 06 04 37 f1 22 20  |:." or"''...7." |
00001310  47 69 76 65 20 74 68 65  20 6e 61 6d 65 20 6f 66  |Give the name of|
00001320  20 79 6f 75 72 20 6d 61  70 3a 20 20 22 27 27 3a  | your map:  "'':|
00001330  e8 22 20 20 20 20 20 20  20 20 20 20 22 76 5f 24  |."          "v_$|
00001340  0d 06 0e 13 e7 76 5f 24  3d 22 22 20 76 5f 24 3d  |.....v_$="" v_$=|
00001350  61 5f 24 0d 06 18 1e 60  5f 24 3d 22 3c 4f 62 65  |a_$....`_$="<Obe|
00001360  79 24 44 69 72 3e 2e 57  6f 72 6b 2e 22 2b 76 5f  |y$Dir>.Work."+v_|
00001370  24 0d 06 22 0b 42 25 3d  ae 60 5f 24 0d 06 2c 0f  |$..".B%=.`_$..,.|
00001380  f1 23 42 25 2c 56 5f 25  2c 6d 25 0d 06 36 19 e3  |.#B%,V_%,m%..6..|
00001390  58 3d 31 b8 31 32 3a f1  23 42 25 2c 4a 5f 25 28  |X=1.12:.#B%,J_%(|
000013a0  58 29 3a ed 0d 06 40 18  e3 58 3d 31 b8 32 30 3a  |X):...@..X=1.20:|
000013b0  f1 23 42 25 2c 44 24 28  58 29 3a ed 0d 06 4a 23  |.#B%,D$(X):...J#|
000013c0  e3 58 3d 31 b8 38 3a e3  59 3d 31 b8 39 3a f1 23  |.X=1.8:.Y=1.9:.#|
000013d0  42 25 2c 47 5f 25 28 58  2c 59 29 3a ed 3a ed 0d  |B%,G_%(X,Y):.:..|
000013e0  06 54 24 e3 58 3d 31 b8  32 30 3a e3 59 3d 31 b8  |.T$.X=1.20:.Y=1.|
000013f0  39 3a f1 23 42 25 2c 4d  5f 25 28 58 2c 59 29 3a  |9:.#B%,M_%(X,Y):|
00001400  ed 3a ed 0d 06 5e 24 e3  58 3d 31 b8 33 30 3a f1  |.:...^$.X=1.30:.|
00001410  23 42 25 2c 4c 5f 25 28  58 2c 33 29 2c 4c 5f 25  |#B%,L_%(X,3),L_%|
00001420  28 58 2c 34 29 3a ed 0d  06 68 14 e3 59 3d 30 b8  |(X,4):...h..Y=0.|
00001430  34 30 3a e3 58 3d 30 b8  31 32 30 0d 06 72 11 f1  |40:.X=0.120..r..|
00001440  23 42 25 2c 46 5f 24 28  58 2c 59 29 0d 06 7c 07  |#B%,F_$(X,Y)..|.|
00001450  ed 3a ed 0d 06 86 08 d9  23 42 25 0d 06 90 0b 61  |.:......#B%....a|
00001460  5f 24 3d 76 5f 24 0d 06  9a 05 e1 0d 06 ae 0f dd  |_$=v_$..........|
00001470  f2 78 5f 3a f2 77 5f 28  31 29 0d 06 b8 3d db 3a  |.x_:.w_(1)...=.:|
00001480  f1 27 27 27 27 27 22 20  20 53 6f 72 72 79 2c 20  |.'''''"  Sorry, |
00001490  54 68 69 73 20 46 69 6c  65 20 69 73 20 70 72 6f  |This File is pro|
000014a0  74 65 63 74 65 64 20 61  67 61 69 6e 73 74 20 65  |tected against e|
000014b0  64 69 74 69 6e 67 22 0d  06 c2 0c f2 6b 5f 28 32  |diting".....k_(2|
000014c0  30 30 29 0d 06 cc 05 e1  0d 06 e0 21 dd f2 74 3a  |00)........!..t:|
000014d0  ef 32 38 2c 31 2c 35 2c  37 38 2c 30 3a fb 31 33  |.28,1,5,78,0:.13|
000014e0  34 3a fb 36 33 3a db 3a  e1 0d 06 ea 23 dd f2 41  |4:.63:.:....#..A|
000014f0  60 3a ef 32 38 2c 31 2c  35 2c 37 38 2c 30 3a fb  |`:.28,1,5,78,0:.|
00001500  31 33 34 3a fb 36 33 3a  ef 34 3a e1 0d 06 f4 28  |134:.63:.4:....(|
00001510  dd f2 42 60 3a ef 32 38  2c 31 35 2c 34 34 2c 34  |..B`:.28,15,44,4|
00001520  35 2c 31 32 3a fb 31 33  34 3a fb 36 33 3a ef 34  |5,12:.134:.63:.4|
00001530  3a db 3a e1 0d 06 fe 28  dd f2 5f 5f 3a ef 32 38  |:.:....(..__:.28|
00001540  2c 31 39 2c 35 31 2c 36  30 2c 31 30 3a fb 31 39  |,19,51,60,10:.19|
00001550  37 3a fb 36 33 3a ef 34  3a db 3a e1 0d 07 08 28  |7:.63:.4:.:....(|
00001560  dd f2 43 60 3a ef 32 38  2c 34 36 2c 33 36 2c 36  |..C`:.28,46,36,6|
00001570  36 2c 31 32 3a fb 31 33  37 3a fb 36 33 3a ef 34  |6,12:.137:.63:.4|
00001580  3a db 3a e1 0d 07 12 1e  dd f2 6b 5f 28 44 60 29  |:.:.......k_(D`)|
00001590  3a 44 60 3d 44 60 2b 91  3a f5 3a fd 91 3e 44 60  |:D`=D`+.:.:..>D`|
000015a0  3a e1 0d 07 26 08 dd f2  70 5f 0d 07 30 07 f2 42  |:...&...p_..0..B|
000015b0  60 0d 07 3a 4e f1 27 22  20 45 4e 54 52 59 50 4f  |`..:N.'" ENTRYPO|
000015c0  49 4e 54 20 2d 20 22 3b  56 5f 25 3b 27 27 22 20  |INT - ";V_%;''" |
000015d0  57 68 61 74 20 77 69 6c  6c 20 62 65 20 74 68 65  |What will be the|
000015e0  20 69 6e 74 65 72 76 61  6c 20 22 27 27 22 20 62  | interval "''" b|
000015f0  65 74 77 65 65 6e 20 74  72 61 69 6e 73 3f 22 0d  |etween trains?".|
00001600  07 44 9a f1 27 27 27 22  20 28 31 29 3a 20 31 2d  |.D..'''" (1): 1-|
00001610  20 34 20 6d 69 6e 73 20  22 27 27 22 20 28 32 29  | 4 mins "''" (2)|
00001620  3a 20 32 2d 20 35 20 6d  69 6e 73 20 22 27 27 22  |: 2- 5 mins "''"|
00001630  20 28 33 29 3a 20 33 2d  20 37 20 6d 69 6e 73 20  | (3): 3- 7 mins |
00001640  22 27 27 22 20 28 34 29  3a 20 34 2d 20 38 20 6d  |"''" (4): 4- 8 m|
00001650  69 6e 73 20 22 27 27 22  20 28 35 29 3a 20 35 2d  |ins "''" (5): 5-|
00001660  31 30 20 6d 69 6e 73 20  22 27 27 22 20 28 36 29  |10 mins "''" (6)|
00001670  3a 20 38 2d 31 35 20 6d  69 6e 73 22 27 27 27 22  |: 8-15 mins"'''"|
00001680  50 72 65 73 73 20 74 68  65 20 6b 65 79 20 6f 66  |Press the key of|
00001690  20 63 68 6f 69 63 65 22  3b 0d 07 4e 1b f5 3a 63  | choice";..N..:c|
000016a0  24 3d be 3a fd a7 22 31  32 33 34 35 36 22 2c 63  |$=.:.."123456",c|
000016b0  24 29 3e 30 0d 07 58 0b  63 3d bb 28 63 24 29 0d  |$)>0..X.c=.(c$).|
000016c0  07 62 22 e7 63 3d 31 20  47 5f 25 28 56 5f 25 2c  |.b".c=1 G_%(V_%,|
000016d0  33 29 3d 31 3a 47 5f 25  28 56 5f 25 2c 34 29 3d  |3)=1:G_%(V_%,4)=|
000016e0  37 0d 07 6c 22 e7 63 3d  32 20 47 5f 25 28 56 5f  |7..l".c=2 G_%(V_|
000016f0  25 2c 33 29 3d 32 3a 47  5f 25 28 56 5f 25 2c 34  |%,3)=2:G_%(V_%,4|
00001700  29 3d 38 0d 07 76 22 e7  63 3d 33 20 47 5f 25 28  |)=8..v".c=3 G_%(|
00001710  56 5f 25 2c 33 29 3d 33  3a 47 5f 25 28 56 5f 25  |V_%,3)=3:G_%(V_%|
00001720  2c 34 29 3d 39 0d 07 80  23 e7 63 3d 34 20 47 5f  |,4)=9...#.c=4 G_|
00001730  25 28 56 5f 25 2c 33 29  3d 34 3a 47 5f 25 28 56  |%(V_%,3)=4:G_%(V|
00001740  5f 25 2c 34 29 3d 31 30  0d 07 8a 23 e7 63 3d 35  |_%,4)=10...#.c=5|
00001750  20 47 5f 25 28 56 5f 25  2c 33 29 3d 35 3a 47 5f  | G_%(V_%,3)=5:G_|
00001760  25 28 56 5f 25 2c 34 29  3d 31 31 0d 07 94 23 e7  |%(V_%,4)=11...#.|
00001770  63 3d 36 20 47 5f 25 28  56 5f 25 2c 33 29 3d 36  |c=6 G_%(V_%,3)=6|
00001780  3a 47 5f 25 28 56 5f 25  2c 34 29 3d 31 32 0d 07  |:G_%(V_%,4)=12..|
00001790  9e 0b f2 6b 5f 28 35 30  29 0d 07 a8 51 db 3a f1  |...k_(50)...Q.:.|
000017a0  27 22 20 45 4e 54 52 59  50 4f 49 4e 54 20 2d 20  |'" ENTRYPOINT - |
000017b0  22 3b 56 5f 25 3b 27 27  22 20 57 68 69 63 68 20  |";V_%;''" Which |
000017c0  74 79 70 65 20 6f 66 20  74 72 61 69 6e 73 20 61  |type of trains a|
000017d0  72 65 20 22 27 27 22 20  61 6c 6c 6f 77 65 64 20  |re "''" allowed |
000017e0  6f 6e 20 45 4e 54 52 59  3f 22 0d 07 b2 86 f1 27  |on ENTRY?".....'|
000017f0  27 22 20 28 30 29 3a 20  41 6c 6c 20 74 79 70 65  |'" (0): All type|
00001800  73 20 20 22 27 27 22 20  28 31 29 3a 20 49 43 20  |s  "''" (1): IC |
00001810  20 22 27 27 22 20 28 32  29 3a 20 4c 50 20 20 22  | "''" (2): LP  "|
00001820  27 27 22 20 28 33 29 3a  20 47 44 20 20 22 27 27  |''" (3): GD  "''|
00001830  22 20 28 34 29 3a 20 49  43 2f 4c 50 20 22 27 27  |" (4): IC/LP "''|
00001840  22 20 28 35 29 3a 20 4c  50 2f 47 44 20 22 27 27  |" (5): LP/GD "''|
00001850  22 20 28 36 29 3a 20 49  43 2f 47 44 22 27 27 27  |" (6): IC/GD"'''|
00001860  22 20 59 6f 75 72 20 63  68 6f 69 63 65 3f 22 3b  |" Your choice?";|
00001870  0d 07 bc 1c f5 3a 63 24  3d be 3a fd a7 22 30 31  |.....:c$=.:.."01|
00001880  32 33 34 35 36 22 2c 63  24 29 3e 30 0d 07 c6 0b  |23456",c$)>0....|
00001890  63 3d bb 28 63 24 29 0d  07 d0 17 e7 63 3d 30 20  |c=.(c$).....c=0 |
000018a0  47 5f 25 28 56 5f 25 2c  36 29 3d 31 32 33 0d 07  |G_%(V_%,6)=123..|
000018b0  da 15 e7 63 3d 31 20 47  5f 25 28 56 5f 25 2c 36  |...c=1 G_%(V_%,6|
000018c0  29 3d 31 0d 07 e4 15 e7  63 3d 32 20 47 5f 25 28  |)=1.....c=2 G_%(|
000018d0  56 5f 25 2c 36 29 3d 32  0d 07 ee 15 e7 63 3d 33  |V_%,6)=2.....c=3|
000018e0  20 47 5f 25 28 56 5f 25  2c 36 29 3d 33 0d 07 f8  | G_%(V_%,6)=3...|
000018f0  16 e7 63 3d 34 20 47 5f  25 28 56 5f 25 2c 36 29  |..c=4 G_%(V_%,6)|
00001900  3d 31 32 0d 08 02 16 e7  63 3d 35 20 47 5f 25 28  |=12.....c=5 G_%(|
00001910  56 5f 25 2c 36 29 3d 32  33 0d 08 0c 16 e7 63 3d  |V_%,6)=23.....c=|
00001920  36 20 47 5f 25 28 56 5f  25 2c 36 29 3d 31 33 0d  |6 G_%(V_%,6)=13.|
00001930  08 16 0b f2 6b 5f 28 35  30 29 0d 08 20 53 db 3a  |....k_(50).. S.:|
00001940  f1 27 22 20 45 4e 54 52  59 50 4f 49 4e 54 20 2d  |.'" ENTRYPOINT -|
00001950  20 22 3b 56 5f 25 3b 27  27 22 20 57 68 69 63 68  | ";V_%;''" Which|
00001960  20 74 79 70 65 20 6f 66  20 74 72 61 69 6e 73 20  | type of trains |
00001970  61 72 65 20 22 27 27 22  20 61 6c 6c 6f 77 65 64  |are "''" allowed|
00001980  20 74 6f 20 45 58 49 54  3f 22 3a ef 37 0d 08 2a  | to EXIT?":.7..*|
00001990  85 f1 27 27 22 20 28 30  29 3a 20 41 6c 6c 20 74  |..''" (0): All t|
000019a0  79 70 65 73 20 22 27 27  22 20 28 31 29 3a 20 49  |ypes "''" (1): I|
000019b0  43 20 20 22 27 27 22 20  28 32 29 3a 20 4c 50 20  |C  "''" (2): LP |
000019c0  20 22 27 27 22 20 28 33  29 3a 20 47 44 20 20 22  | "''" (3): GD  "|
000019d0  27 27 22 20 28 34 29 3a  20 49 43 2f 4c 50 20 22  |''" (4): IC/LP "|
000019e0  27 27 22 20 28 35 29 3a  20 4c 50 2f 47 44 20 22  |''" (5): LP/GD "|
000019f0  27 27 22 20 28 36 29 3a  20 49 43 2f 47 44 22 27  |''" (6): IC/GD"'|
00001a00  27 27 22 20 59 6f 75 72  20 63 68 6f 69 63 65 3f  |''" Your choice?|
00001a10  22 3b 0d 08 34 1c f5 3a  63 24 3d be 3a fd a7 22  |";..4..:c$=.:.."|
00001a20  30 31 32 33 34 35 36 22  2c 63 24 29 3e 30 0d 08  |0123456",c$)>0..|
00001a30  3e 0b 63 3d bb 28 63 24  29 0d 08 48 17 e7 63 3d  |>.c=.(c$)..H..c=|
00001a40  30 20 47 5f 25 28 56 5f  25 2c 39 29 3d 31 32 33  |0 G_%(V_%,9)=123|
00001a50  0d 08 52 15 e7 63 3d 31  20 47 5f 25 28 56 5f 25  |..R..c=1 G_%(V_%|
00001a60  2c 39 29 3d 31 0d 08 5c  15 e7 63 3d 32 20 47 5f  |,9)=1..\..c=2 G_|
00001a70  25 28 56 5f 25 2c 39 29  3d 32 0d 08 66 15 e7 63  |%(V_%,9)=2..f..c|
00001a80  3d 33 20 47 5f 25 28 56  5f 25 2c 39 29 3d 33 0d  |=3 G_%(V_%,9)=3.|
00001a90  08 70 16 e7 63 3d 34 20  47 5f 25 28 56 5f 25 2c  |.p..c=4 G_%(V_%,|
00001aa0  39 29 3d 31 32 0d 08 7a  16 e7 63 3d 35 20 47 5f  |9)=12..z..c=5 G_|
00001ab0  25 28 56 5f 25 2c 39 29  3d 32 33 0d 08 84 16 e7  |%(V_%,9)=23.....|
00001ac0  63 3d 36 20 47 5f 25 28  56 5f 25 2c 36 29 3d 31  |c=6 G_%(V_%,6)=1|
00001ad0  33 0d 08 8e 0b f2 6b 5f  28 35 30 29 0d 08 98 49  |3.....k_(50)...I|
00001ae0  db 3a f1 27 22 20 45 4e  54 52 59 50 4f 49 4e 54  |.:.'" ENTRYPOINT|
00001af0  20 2d 20 22 3b 56 5f 25  3b 27 27 22 20 57 68 61  | - ";V_%;''" Wha|
00001b00  74 20 69 73 20 74 68 65  20 6e 61 6d 65 20 66 6f  |t is the name fo|
00001b10  72 20 22 27 27 22 20 74  68 69 73 20 65 6e 74 72  |r "''" this entr|
00001b20  79 3f 22 27 27 0d 08 a2  1e e8 22 22 63 24 3a e7  |y?"''.....""c$:.|
00001b30  a9 28 63 24 29 3e 31 32  20 63 24 3d c0 63 24 2c  |.(c$)>12 c$=.c$,|
00001b40  31 32 29 0d 08 ac 0f 48  5f 24 28 56 5f 25 29 3d  |12)....H_$(V_%)=|
00001b50  63 24 0d 08 b6 67 f1 27  27 27 22 20 57 68 61 74  |c$...g.'''" What|
00001b60  20 69 73 20 74 68 65 20  33 2d 6c 65 74 74 65 72  | is the 3-letter|
00001b70  20 63 6f 64 65 20 22 27  27 22 20 66 6f 72 20 74  | code "''" for t|
00001b80  68 69 73 20 65 6e 74 72  79 3f 20 22 27 27 22 20  |his entry? "''" |
00001b90  28 69 6e 20 43 61 70 69  74 61 6c 20 6c 65 74 74  |(in Capital lett|
00001ba0  65 72 73 29 22 27 27 3a  e8 22 22 63 24 3a 49 5f  |ers)"'':.""c$:I_|
00001bb0  24 28 56 5f 25 29 3d 63  24 0d 08 c0 17 56 5f 25  |$(V_%)=c$....V_%|
00001bc0  3d 56 5f 25 2b 31 3a 62  5f 25 3d 62 5f 25 2b 31  |=V_%+1:b_%=b_%+1|
00001bd0  0d 08 ca 0b f2 66 5f 3a  f2 41 60 0d 08 d4 05 e1  |.....f_:.A`.....|
00001be0  0d 08 e8 18 dd f2 6d 5f  3a e7 64 5f 25 3e 30 20  |......m_:.d_%>0 |
00001bf0  6d 25 3d 64 5f 25 2b 31  0d 08 f2 06 f2 74 0d 08  |m%=d_%+1.....t..|
00001c00  fc 0c 57 5f 3d 31 3a f2  45 60 0d 09 06 60 e7 42  |..W_=1:.E`...`.B|
00001c10  24 3d 22 65 31 22 80 4b  5f 25 28 6d 25 2c 31 29  |$="e1".K_%(m%,1)|
00001c20  3d 30 ef 37 3a f1 22 27  20 46 69 72 73 74 20 6d  |=0.7:."' First m|
00001c30  61 72 6b 20 74 68 65 20  6c 65 66 74 2d 62 6f 74  |ark the left-bot|
00001c40  74 6f 6d 20 61 72 65 61  20 6f 66 20 79 6f 75 72  |tom area of your|
00001c50  20 73 74 61 74 69 6f 6e  2e 2e 28 4d 31 29 22 3b  | station..(M1)";|
00001c60  3a 42 24 3d 22 30 30 22  3a e1 0d 09 10 9f e7 42  |:B$="00":......B|
00001c70  24 3d 22 65 30 22 20 4b  5f 25 28 6d 25 2c 31 29  |$="e0" K_%(m%,1)|
00001c80  3d 41 25 2b 53 5f 25 3a  4b 5f 25 28 6d 25 2c 32  |=A%+S_%:K_%(m%,2|
00001c90  29 3d 42 25 2b 54 5f 25  3a f2 73 5f 3a f1 27 27  |)=B%+T_%:.s_:.''|
00001ca0  22 20 54 6f 70 2d 72 69  67 68 74 20 6d 61 72 6b  |" Top-right mark|
00001cb0  65 72 20 73 79 6d 62 6f  6c 20 69 73 20 73 65 6c  |er symbol is sel|
00001cc0  65 63 74 65 64 22 27 22  20 50 6c 61 63 65 20 69  |ected"'" Place i|
00001cd0  74 20 74 6f 20 6d 61 72  6b 20 74 68 65 20 74 6f  |t to mark the to|
00001ce0  70 2d 72 69 67 68 74 20  6f 66 20 74 68 65 20 73  |p-right of the s|
00001cf0  74 61 74 69 6f 6e 22 3a  42 24 3d 22 65 31 22 3a  |tation":B$="e1":|
00001d00  f2 6b 5f 28 32 30 29 3a  e1 0d 09 1a 32 e7 42 24  |.k_(20):....2.B$|
00001d10  3d 22 65 31 22 20 4b 5f  25 28 6d 25 2c 33 29 3d  |="e1" K_%(m%,3)=|
00001d20  41 25 2b 53 5f 25 3a 4b  5f 25 28 6d 25 2c 34 29  |A%+S_%:K_%(m%,4)|
00001d30  3d 42 25 2b 54 5f 25 3a  f2 73 5f 0d 09 24 4b db  |=B%+T_%:.s_..$K.|
00001d40  3a f1 27 22 20 41 72 65  20 79 6f 75 20 73 61 74  |:.'" Are you sat|
00001d50  69 73 66 69 65 64 20 77  69 74 68 20 74 68 65 73  |isfied with thes|
00001d60  65 20 6d 61 72 6b 69 6e  67 73 3f 20 59 2f 4e 22  |e markings? Y/N"|
00001d70  3a f5 3a 63 24 3d be 3a  fd a7 22 59 79 4e 6e 22  |:.:c$=.:.."YyNn"|
00001d80  2c 63 24 29 3e 30 0d 09  2e 2e e7 63 24 3d 22 4e  |,c$)>0.....c$="N|
00001d90  22 84 63 24 3d 22 6e 22  20 4b 5f 25 28 6d 25 2c  |".c$="n" K_%(m%,|
00001da0  31 29 3d 30 3a 42 24 3d  22 30 30 22 3a db 3a f2  |1)=0:B$="00":.:.|
00001db0  66 5f 3a e1 0d 09 38 3d  db 3a f1 27 22 20 49 73  |f_:...8=.:.'" Is|
00001dc0  20 74 68 69 73 20 73 74  61 74 69 6f 6e 20 61 20  | this station a |
00001dd0  44 65 70 6f 74 2f 53 69  64 69 6e 67 3f 20 59 2f  |Depot/Siding? Y/|
00001de0  4e 20 22 3a f2 6b 5f 28  32 30 29 3a 63 24 3d 22  |N ":.k_(20):c$="|
00001df0  22 0d 09 42 19 f5 3a 63  24 3d be 3a fd a7 22 59  |"..B..:c$=.:.."Y|
00001e00  79 4e 6e 22 2c 63 24 29  3e 30 0d 09 4c 2a e7 63  |yNn",c$)>0..L*.c|
00001e10  24 3d 22 59 22 84 63 24  3d 22 79 22 20 4b 5f 25  |$="Y".c$="y" K_%|
00001e20  28 6d 25 2c 38 29 3d 31  8b 4b 5f 25 28 6d 25 2c  |(m%,8)=1.K_%(m%,|
00001e30  38 29 3d 30 0d 09 56 43  db 3a f1 22 20 44 41 54  |8)=0..VC.:." DAT|
00001e40  41 20 46 4f 52 20 53 54  41 54 49 4f 4e 20 20 2d  |A FOR STATION  -|
00001e50  20 22 3b 6d 25 3b 8a 33  30 29 3b 22 53 74 61 74  | ";m%;.30);"Stat|
00001e60  69 6f 6e 20 69 73 20 61  63 63 65 73 73 61 62 6c  |ion is accessabl|
00001e70  65 20 66 6f 72 3a 22 0d  09 60 4b f1 27 22 20 28  |e for:"..`K.'" (|
00001e80  31 29 3a 20 49 43 20 20  20 28 32 29 3a 20 4c 50  |1): IC   (2): LP|
00001e90  20 20 20 28 33 29 3a 20  47 44 20 20 20 28 34 29  |   (3): GD   (4)|
00001ea0  3a 20 49 43 2f 4c 50 20  22 27 27 22 59 6f 75 72  |: IC/LP "''"Your|
00001eb0  20 63 68 6f 69 63 65 3f  22 3b 3a f2 6b 5f 28 33  | choice?";:.k_(3|
00001ec0  30 29 0d 09 6a 19 f5 3a  63 24 3d be 3a fd a7 22  |0)..j..:c$=.:.."|
00001ed0  31 32 33 34 22 2c 63 24  29 3e 30 0d 09 74 0b 63  |1234",c$)>0..t.c|
00001ee0  3d bb 28 63 24 29 0d 09  7e 14 e7 63 3d 31 20 4b  |=.(c$)..~..c=1 K|
00001ef0  5f 25 28 6d 25 2c 35 29  3d 31 0d 09 88 14 e7 63  |_%(m%,5)=1.....c|
00001f00  3d 32 20 4b 5f 25 28 6d  25 2c 35 29 3d 32 0d 09  |=2 K_%(m%,5)=2..|
00001f10  92 14 e7 63 3d 33 20 4b  5f 25 28 6d 25 2c 35 29  |...c=3 K_%(m%,5)|
00001f20  3d 33 0d 09 9c 15 e7 63  3d 34 20 4b 5f 25 28 6d  |=3.....c=4 K_%(m|
00001f30  25 2c 35 29 3d 31 32 0d  09 a6 17 4b 5f 25 28 6d  |%,5)=12....K_%(m|
00001f40  25 2c 36 29 3d 58 5f 25  2b 31 3a 63 3d 31 0d 09  |%,6)=X_%+1:c=1..|
00001f50  b0 4a db 3a f1 22 20 44  41 54 41 20 46 4f 52 20  |.J.:." DATA FOR |
00001f60  53 54 41 54 49 4f 4e 20  20 2d 20 22 3b 6d 25 3b  |STATION  - ";m%;|
00001f70  8a 33 30 29 3b 22 50 6c  61 74 66 6f 72 6d 73 2e  |.30);"Platforms.|
00001f80  2e 20 20 28 6c 6f 77 65  73 74 3a 20 22 3b 58 5f  |.  (lowest: ";X_|
00001f90  25 2b 31 3b 22 20 29 22  0d 09 ba 36 e8 27 22 20  |%+1;" )"...6.'" |
00001fa0  48 6f 77 20 6d 61 6e 79  20 70 6c 61 74 66 6f 72  |How many platfor|
00001fb0  6d 73 20 69 6e 20 74 68  69 73 20 73 74 61 74 69  |ms in this stati|
00001fc0  6f 6e 2f 64 65 70 6f 74  3f 20 3a 20 22 63 0d 09  |on/depot? : "c..|
00001fd0  c4 66 e7 28 58 5f 25 2b  63 29 3e 33 30 f2 74 3a  |.f.(X_%+c)>30.t:|
00001fe0  f1 27 27 22 20 59 6f 75  20 6f 76 65 72 72 69 64  |.''" You overrid|
00001ff0  65 20 74 68 65 20 6d 61  78 69 6d 75 6d 20 6f 66  |e the maximum of|
00002000  20 33 30 20 70 6c 61 74  66 6f 72 6d 73 2e 22 27  | 30 platforms."'|
00002010  27 22 20 48 69 67 68 65  73 74 20 77 69 6c 6c 20  |'" Highest will |
00002020  62 65 20 73 65 74 20 74  6f 20 33 30 22 3a 58 5f  |be set to 30":X_|
00002030  25 3d 33 30 0d 09 ce 99  4b 5f 25 28 6d 25 2c 37  |%=30....K_%(m%,7|
00002040  29 3d 58 5f 25 2b 63 3a  58 5f 25 3d 58 5f 25 2b  |)=X_%+c:X_%=X_%+|
00002050  63 3a e7 4b 5f 25 28 6d  25 2c 37 29 3e 33 30 20  |c:.K_%(m%,7)>30 |
00002060  4b 5f 25 28 6d 25 2c 37  29 3d 33 30 3a f2 74 3a  |K_%(m%,7)=30:.t:|
00002070  f1 27 27 22 20 59 6f 75  20 6f 76 65 72 72 69 64  |.''" You overrid|
00002080  65 20 74 68 65 20 6d 61  78 69 6d 75 6d 20 6f 66  |e the maximum of|
00002090  20 33 30 20 70 6c 61 74  66 6f 72 6d 73 2e 22 27  | 30 platforms."'|
000020a0  27 22 20 48 69 67 68 65  73 74 20 77 69 6c 6c 20  |'" Highest will |
000020b0  62 65 20 73 65 74 20 74  6f 20 33 30 22 3a 58 5f  |be set to 30":X_|
000020c0  25 3d 33 30 3a f2 6b 5f  28 32 30 30 29 0d 09 d8  |%=30:.k_(200)...|
000020d0  3a db 3a f1 22 20 44 41  54 41 20 46 4f 52 20 53  |:.:." DATA FOR S|
000020e0  54 41 54 49 4f 4e 20 20  2d 20 22 3b 6d 25 3b 8a  |TATION  - ";m%;.|
000020f0  33 30 29 3b 22 4e 61 6d  65 20 6f 66 20 73 74 61  |30);"Name of sta|
00002100  74 69 6f 6e 2e 2e 22 0d  09 e2 41 f1 27 22 20 57  |tion.."...A.'" W|
00002110  68 61 74 20 69 73 20 74  68 65 20 66 75 6c 6c 20  |hat is the full |
00002120  6e 61 6d 65 20 66 6f 72  20 74 68 69 73 20 73 74  |name for this st|
00002130  61 74 69 6f 6e 20 28 6d  61 78 2e 31 32 20 6c 65  |ation (max.12 le|
00002140  74 74 65 72 73 29 3f 22  0d 09 ec 09 e8 22 22 63  |tters)?".....""c|
00002150  24 0d 09 ed 18 e7 a9 28  63 24 29 3e 31 32 20 63  |$......(c$)>12 c|
00002160  24 3d c0 63 24 2c 31 32  29 0d 09 f6 0e 4e 5f 24  |$=.c$,12)....N_$|
00002170  28 6d 25 29 3d 63 24 0d  0a 00 42 f1 27 22 20 57  |(m%)=c$...B.'" W|
00002180  68 61 74 20 69 73 20 74  68 65 20 33 2d 6c 65 74  |hat is the 3-let|
00002190  74 65 72 20 63 6f 64 65  20 66 6f 72 20 74 68 69  |ter code for thi|
000021a0  73 20 73 74 61 74 69 6f  6e 20 28 69 6e 20 63 61  |s station (in ca|
000021b0  70 69 74 61 6c 73 29 3f  22 0d 0a 0a 09 e8 22 22  |pitals)?".....""|
000021c0  63 24 0d 0a 14 0e 4f 5f  24 28 6d 25 29 3d 63 24  |c$....O_$(m%)=c$|
000021d0  0d 0a 1e 63 db 3a f1 22  20 50 4c 41 54 46 4f 52  |...c.:." PLATFOR|
000021e0  4d 2d 61 63 63 65 73 73  22 27 22 59 6f 75 20 68  |M-access"'"You h|
000021f0  61 76 65 20 22 3b 62 5f  25 3b 22 20 65 6e 74 72  |ave ";b_%;" entr|
00002200  69 65 73 2e 20 46 6f 72  20 77 68 69 63 68 20 65  |ies. For which e|
00002210  6e 74 72 79 20 69 73 20  65 61 63 68 20 70 6c 61  |ntry is each pla|
00002220  74 66 6f 72 6d 20 61 63  63 65 73 73 61 62 6c 65  |tform accessable|
00002230  2e 2e 22 0d 0a 28 0b f2  46 60 28 6d 25 29 0d 0a  |.."..(..F`(m%)..|
00002240  32 1d 6d 25 3d 6d 25 2b  31 3a 64 5f 25 3d 64 5f  |2.m%=m%+1:d_%=d_|
00002250  25 2b 31 3a 42 24 3d 22  30 30 22 0d 0a 3c 2f f2  |%+1:B$="00"..</.|
00002260  66 5f 3a f2 74 3a db 3a  f1 27 27 22 20 50 72 6f  |f_:.t:.:.''" Pro|
00002270  63 65 65 64 20 79 6f 75  20 65 64 69 74 69 6e 67  |ceed you editing|
00002280  20 6e 6f 77 2e 2e 2e 2e  2e 22 0d 0a 46 05 e1 0d  | now....."..F...|
00002290  0a 5a 08 dd f2 73 5f 0d  0a 64 1b 4c 25 3d 41 25  |.Z...s_..d.L%=A%|
000022a0  2a 34 30 3a 48 25 3d 42  25 2a 34 30 3a 53 24 3d  |*40:H%=B%*40:S$=|
000022b0  42 24 0d 0a 6e 21 c8 99  26 32 45 2c 33 34 2b 32  |B$..n!..&2E,34+2|
000022c0  35 36 2c 43 5f 25 2c 53  24 2c 4c 25 2c 48 25 2c  |56,C_%,S$,L%,H%,|
000022d0  26 30 38 0d 0a 78 05 e1  0d 0a 8c 08 dd f2 47 60  |&08..x........G`|
000022e0  0d 0a 96 3b 4a 5f 25 28  31 32 29 3d 58 5f 25 3a  |...;J_%(12)=X_%:|
000022f0  4a 5f 25 28 31 31 29 3d  64 5f 25 3a 4a 5f 25 28  |J_%(11)=d_%:J_%(|
00002300  31 30 29 3d 30 3a 4a 5f  25 28 31 29 3d 62 5f 25  |10)=0:J_%(1)=b_%|
00002310  3a 6d 25 3d 56 5f 25 2b  64 5f 25 0d 0a a0 26 48  |:m%=V_%+d_%...&H|
00002320  60 25 3d 28 4b 5f 25 28  31 2c 33 29 2d 4b 5f 25  |`%=(K_%(1,3)-K_%|
00002330  28 31 2c 31 29 29 2f 32  2b 4b 5f 25 28 31 2c 31  |(1,1))/2+K_%(1,1|
00002340  29 0d 0a aa 0c e3 58 3d  31 b8 62 5f 25 0d 0a b4  |).....X=1.b_%...|
00002350  27 e7 47 5f 25 28 58 2c  31 29 3c 48 60 25 20 4a  |'.G_%(X,1)<H`% J|
00002360  5f 25 28 58 2b 31 29 3d  48 60 25 2d 47 5f 25 28  |_%(X+1)=H`%-G_%(|
00002370  58 2c 31 29 0d 0a be 27  e7 47 5f 25 28 58 2c 31  |X,1)...'.G_%(X,1|
00002380  29 3e 48 60 25 20 4a 5f  25 28 58 2b 31 29 3d 47  |)>H`% J_%(X+1)=G|
00002390  5f 25 28 58 2c 31 29 2d  48 60 25 0d 0a c8 05 ed  |_%(X,1)-H`%.....|
000023a0  0d 0a d2 22 e3 78 3d 31  b8 62 5f 25 3a 44 24 28  |...".x=1.b_%:D$(|
000023b0  78 29 3d 48 5f 24 28 78  29 2b 49 5f 24 28 78 29  |x)=H_$(x)+I_$(x)|
000023c0  3a ed 0d 0a dc 26 e3 78  3d 31 b8 64 5f 25 3a 44  |:....&.x=1.d_%:D|
000023d0  24 28 62 5f 25 2b 78 29  3d 4e 5f 24 28 78 29 2b  |$(b_%+x)=N_$(x)+|
000023e0  4f 5f 24 28 78 29 3a ed  0d 0a e6 68 e3 78 3d 31  |O_$(x):....h.x=1|
000023f0  b8 62 5f 25 3a 4d 5f 25  28 78 2c 31 29 3d 47 5f  |.b_%:M_%(x,1)=G_|
00002400  25 28 78 2c 37 29 3a 4d  5f 25 28 78 2c 32 29 3d  |%(x,7):M_%(x,2)=|
00002410  47 5f 25 28 78 2c 38 29  3a 4d 5f 25 28 78 2c 33  |G_%(x,8):M_%(x,3|
00002420  29 3d 47 5f 25 28 78 2c  37 29 3a 4d 5f 25 28 78  |)=G_%(x,7):M_%(x|
00002430  2c 34 29 3d 47 5f 25 28  78 2c 38 29 3a 4d 5f 25  |,4)=G_%(x,8):M_%|
00002440  28 78 2c 35 29 3d 47 5f  25 28 78 2c 39 29 3a ed  |(x,5)=G_%(x,9):.|
00002450  0d 0a f0 2d e3 78 3d 31  b8 64 5f 25 3a e3 79 3d  |...-.x=1.d_%:.y=|
00002460  31 b8 39 3a 4d 5f 25 28  62 5f 25 2b 78 2c 79 29  |1.9:M_%(b_%+x,y)|
00002470  3d 4b 5f 25 28 78 2c 79  29 3a ed 3a ed 0d 0a fa  |=K_%(x,y):.:....|
00002480  05 e1 0d 0b 0e 10 dd f2  56 5f 3a e7 62 5f 25 3d  |........V_:.b_%=|
00002490  30 e1 0d 0b 0f 0c f2 42  60 3a 64 25 3d 30 0d 0b  |0......B`:d%=0..|
000024a0  18 32 f1 27 22 20 45 64  69 74 20 45 6e 74 72 79  |.2.'" Edit Entry|
000024b0  70 6f 69 6e 74 73 3a 20  22 27 22 20 3d 3d 3d 3d  |points: "'" ====|
000024c0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 22 27 27  |============="''|
000024d0  0d 0b 22 2c e3 63 25 3d  31 b8 62 5f 25 3a f1 27  |..",.c%=1.b_%:.'|
000024e0  22 20 20 22 3b 63 25 3b  22 20 2d 20 22 3b 48 5f  |"  ";c%;" - ";H_|
000024f0  24 28 63 25 29 3a ed 3a  63 25 3d 30 0d 0b 2c 07  |$(c%):.:c%=0..,.|
00002500  f2 45 60 0d 0b 36 31 f1  27 27 22 20 57 68 69 63  |.E`..61.''" Whic|
00002510  68 20 6f 6e 65 20 74 6f  20 65 64 69 74 3f 20 22  |h one to edit? "|
00002520  3b 3a f5 3a 63 24 3d be  3a fd a7 49 60 24 2c 63  |;:.:c$=.:..I`$,c|
00002530  24 29 3e 30 0d 0b 40 1a  63 25 3d bb 28 63 24 29  |$)>0..@.c%=.(c$)|
00002540  3a e7 63 25 3e 62 5f 25  84 63 25 3d 30 e1 0d 0b  |:.c%>b_%.c%=0...|
00002550  4a 0d f2 6b 5f 28 32 30  29 3a f5 0d 0b 54 35 f2  |J..k_(20):...T5.|
00002560  42 60 3a f1 27 22 20 45  64 69 74 69 6e 67 20 22  |B`:.'" Editing "|
00002570  3b 3a fb 31 32 3a f1 48  5f 24 28 63 25 29 3b 3a  |;:.12:.H_$(c%);:|
00002580  fb 36 33 3a f1 27 22 20  45 6e 74 72 79 22 27 27  |.63:.'" Entry"''|
00002590  0d 0b 5e 9a f1 27 22 20  31 20 2d 20 49 6e 74 65  |..^..'" 1 - Inte|
000025a0  72 76 61 6c 22 27 27 22  20 32 20 2d 20 54 72 61  |rval"''" 2 - Tra|
000025b0  69 6e 74 79 70 65 2d 65  6e 74 72 79 22 27 27 22  |intype-entry"''"|
000025c0  20 33 20 2d 20 54 72 61  69 6e 74 79 70 65 2d 65  | 3 - Traintype-e|
000025d0  78 69 74 22 27 27 22 20  34 20 2d 20 52 65 70 6c  |xit"''" 4 - Repl|
000025e0  61 63 65 20 45 6e 74 72  79 22 27 27 22 20 35 20  |ace Entry"''" 5 |
000025f0  2d 20 44 65 6c 65 74 65  20 45 6e 74 72 79 22 27  |- Delete Entry"'|
00002600  27 22 20 36 20 2d 20 52  65 6e 61 6d 65 20 45 6e  |'" 6 - Rename En|
00002610  74 72 79 22 27 27 22 20  20 20 2d 20 4e 6f 20 65  |try"''"   - No e|
00002620  64 69 74 69 6e 67 22 27  27 27 0d 0b 68 1f f1 22  |diting"'''..h.."|
00002630  20 20 59 6f 75 72 20 43  68 6f 69 63 65 20 3f 20  |  Your Choice ? |
00002640  20 22 3b 3a e8 22 22 64  25 0d 0b 72 08 5a 25 3d  | ";:.""d%..r.Z%=|
00002650  30 0d 0b 7c 0d e7 64 25  3d 31 3a f2 4a 60 0d 0b  |0..|..d%=1:.J`..|
00002660  86 10 e7 64 25 3d 32 3a  f2 4b 60 28 36 29 0d 0b  |...d%=2:.K`(6)..|
00002670  90 10 e7 64 25 3d 33 3a  f2 4b 60 28 39 29 0d 0b  |...d%=3:.K`(9)..|
00002680  9a 11 e7 64 25 3d 34 3a  f2 4c 60 28 63 25 29 0d  |...d%=4:.L`(c%).|
00002690  0b a4 13 e7 64 25 3d 35  3a f2 4d 60 28 63 25 29  |....d%=5:.M`(c%)|
000026a0  3a e1 0d 0b ae 11 e7 64  25 3d 36 3a f2 4e 60 28  |:......d%=6:.N`(|
000026b0  63 25 29 0d 0b b8 0e fd  64 25 3d 30 84 64 25 3e  |c%).....d%=0.d%>|
000026c0  36 0d 0b c2 05 e1 0d 0b  d6 08 dd f2 4a 60 0d 0b  |6...........J`..|
000026d0  e0 5b db 3a f1 27 22 20  45 64 69 74 69 6e 67 20  |.[.:.'" Editing |
000026e0  22 3b 3a fb 31 32 3a f1  48 5f 24 28 63 25 29 3b  |";:.12:.H_$(c%);|
000026f0  3a fb 36 33 3a f1 27 22  20 45 6e 74 72 79 22 27  |:.63:.'" Entry"'|
00002700  27 22 20 49 6e 74 65 72  76 61 6c 3a 20 20 20 28  |'" Interval:   (|
00002710  6e 6f 77 20 22 3b 52 5f  24 28 47 5f 25 28 63 25  |now ";R_$(G_%(c%|
00002720  2c 33 29 29 3b 22 29 22  3b 0d 0b ea 9a f1 27 27  |,3));")";.....''|
00002730  27 22 20 20 31 20 3a 20  31 2d 20 34 20 6d 69 6e  |'"  1 : 1- 4 min|
00002740  73 20 22 27 27 22 20 20  32 20 3a 20 32 2d 20 35  |s "''"  2 : 2- 5|
00002750  20 6d 69 6e 73 20 22 27  27 22 20 20 33 20 3a 20  | mins "''"  3 : |
00002760  33 2d 20 37 20 6d 69 6e  73 20 22 27 27 22 20 20  |3- 7 mins "''"  |
00002770  34 20 3a 20 34 2d 20 38  20 6d 69 6e 73 20 22 27  |4 : 4- 8 mins "'|
00002780  27 22 20 20 35 20 3a 20  35 2d 31 30 20 6d 69 6e  |'"  5 : 5-10 min|
00002790  73 20 22 27 27 22 20 20  36 20 3a 20 38 2d 31 35  |s "''"  6 : 8-15|
000027a0  20 6d 69 6e 73 22 27 27  27 22 50 72 65 73 73 20  | mins"'''"Press |
000027b0  74 68 65 20 6b 65 79 20  6f 66 20 63 68 6f 69 63  |the key of choic|
000027c0  65 22 3b 0d 0b f4 1b f5  3a 63 24 3d be 3a fd a7  |e";.....:c$=.:..|
000027d0  22 31 32 33 34 35 36 22  2c 63 24 29 3e 30 0d 0b  |"123456",c$)>0..|
000027e0  fe 0c 4f 60 3d bb 28 63  24 29 0d 0c 08 21 e7 4f  |..O`=.(c$)...!.O|
000027f0  60 3d 31 20 47 5f 25 28  63 25 2c 33 29 3d 31 3a  |`=1 G_%(c%,3)=1:|
00002800  47 5f 25 28 63 25 2c 34  29 3d 37 0d 0c 12 21 e7  |G_%(c%,4)=7...!.|
00002810  4f 60 3d 32 20 47 5f 25  28 63 25 2c 33 29 3d 32  |O`=2 G_%(c%,3)=2|
00002820  3a 47 5f 25 28 63 25 2c  34 29 3d 38 0d 0c 1c 21  |:G_%(c%,4)=8...!|
00002830  e7 4f 60 3d 33 20 47 5f  25 28 63 25 2c 33 29 3d  |.O`=3 G_%(c%,3)=|
00002840  33 3a 47 5f 25 28 63 25  2c 34 29 3d 39 0d 0c 26  |3:G_%(c%,4)=9..&|
00002850  22 e7 4f 60 3d 34 20 47  5f 25 28 63 25 2c 33 29  |".O`=4 G_%(c%,3)|
00002860  3d 34 3a 47 5f 25 28 63  25 2c 34 29 3d 31 30 0d  |=4:G_%(c%,4)=10.|
00002870  0c 30 22 e7 4f 60 3d 35  20 47 5f 25 28 63 25 2c  |.0".O`=5 G_%(c%,|
00002880  33 29 3d 35 3a 47 5f 25  28 63 25 2c 34 29 3d 31  |3)=5:G_%(c%,4)=1|
00002890  31 0d 0c 3a 22 e7 4f 60  3d 36 20 47 5f 25 28 63  |1..:".O`=6 G_%(c|
000028a0  25 2c 33 29 3d 36 3a 47  5f 25 28 63 25 2c 34 29  |%,3)=6:G_%(c%,4)|
000028b0  3d 31 32 0d 0c 44 11 f2  6b 5f 28 33 30 29 3a 63  |=12..D..k_(30):c|
000028c0  24 3d 22 22 0d 0c 4e 05  e1 0d 0c 62 0c dd f2 4b  |$=""..N....b...K|
000028d0  60 28 65 25 29 0d 0c 6c  43 db 3a f1 27 22 20 45  |`(e%)..lC.:.'" E|
000028e0  64 69 74 69 6e 67 20 22  3b 3a fb 31 32 3a f1 48  |diting ";:.12:.H|
000028f0  5f 24 28 63 25 29 3b 3a  fb 36 33 3a f1 27 22 20  |_$(c%);:.63:.'" |
00002900  45 6e 74 72 79 22 27 27  22 20 41 63 63 65 73 73  |Entry"''" Access|
00002910  2d 74 79 70 65 73 3a 22  0d 0c 76 3f e7 65 25 3d  |-types:"..v?.e%=|
00002920  36 f1 27 27 22 20 57 68  69 63 68 20 74 79 70 65  |6.''" Which type|
00002930  20 6f 66 20 74 72 61 69  6e 73 20 61 72 65 20 22  | of trains are "|
00002940  27 27 22 20 61 6c 6c 6f  77 65 64 20 6f 6e 20 45  |''" allowed on E|
00002950  4e 54 52 59 3f 22 3b 0d  0c 80 3e e7 65 25 3d 39  |NTRY?";...>.e%=9|
00002960  f1 27 27 22 20 57 68 69  63 68 20 74 79 70 65 20  |.''" Which type |
00002970  6f 66 20 74 72 61 69 6e  73 20 61 72 65 20 22 27  |of trains are "'|
00002980  27 22 20 61 6c 6c 6f 77  65 64 20 74 6f 20 45 58  |'" allowed to EX|
00002990  49 54 3f 22 3b 0d 0c 8a  1c f2 50 60 3a f1 22 20  |IT?";.....P`:." |
000029a0  20 28 22 3b 51 5f 24 28  51 5f 25 29 3b 22 29 22  | (";Q_$(Q_%);")"|
000029b0  3b 0d 0c 94 86 f1 27 27  22 20 20 30 20 3a 20 41  |;.....''"  0 : A|
000029c0  6c 6c 20 74 79 70 65 73  20 20 22 27 27 22 20 20  |ll types  "''"  |
000029d0  31 20 3a 20 49 43 20 20  22 27 27 22 20 20 32 20  |1 : IC  "''"  2 |
000029e0  3a 20 4c 50 20 20 22 27  27 22 20 20 33 20 3a 20  |: LP  "''"  3 : |
000029f0  47 44 20 20 22 27 27 22  20 20 34 20 3a 20 49 43  |GD  "''"  4 : IC|
00002a00  2f 4c 50 20 22 27 27 22  20 20 35 20 3a 20 4c 50  |/LP "''"  5 : LP|
00002a10  2f 47 44 20 22 27 27 22  20 20 36 20 3a 20 49 43  |/GD "''"  6 : IC|
00002a20  2f 47 44 22 27 27 27 22  20 59 6f 75 72 20 63 68  |/GD"'''" Your ch|
00002a30  6f 69 63 65 3f 22 3b 0d  0c 9e 1c f5 3a 63 24 3d  |oice?";.....:c$=|
00002a40  be 3a fd a7 22 30 31 32  33 34 35 36 22 2c 63 24  |.:.."0123456",c$|
00002a50  29 3e 30 0d 0c a8 0c 4f  60 3d bb 28 63 24 29 0d  |)>0....O`=.(c$).|
00002a60  0c b2 18 e7 4f 60 3d 30  20 47 5f 25 28 63 25 2c  |....O`=0 G_%(c%,|
00002a70  65 25 29 3d 31 32 33 0d  0c bc 16 e7 4f 60 3d 31  |e%)=123.....O`=1|
00002a80  20 47 5f 25 28 63 25 2c  65 25 29 3d 31 0d 0c c6  | G_%(c%,e%)=1...|
00002a90  16 e7 4f 60 3d 32 20 47  5f 25 28 63 25 2c 65 25  |..O`=2 G_%(c%,e%|
00002aa0  29 3d 32 0d 0c d0 16 e7  4f 60 3d 33 20 47 5f 25  |)=2.....O`=3 G_%|
00002ab0  28 63 25 2c 65 25 29 3d  33 0d 0c da 17 e7 4f 60  |(c%,e%)=3.....O`|
00002ac0  3d 34 20 47 5f 25 28 63  25 2c 65 25 29 3d 31 32  |=4 G_%(c%,e%)=12|
00002ad0  0d 0c e4 17 e7 4f 60 3d  35 20 47 5f 25 28 63 25  |.....O`=5 G_%(c%|
00002ae0  2c 65 25 29 3d 32 33 0d  0c ee 17 e7 4f 60 3d 36  |,e%)=23.....O`=6|
00002af0  20 47 5f 25 28 63 25 2c  65 25 29 3d 31 33 0d 0c  | G_%(c%,e%)=13..|
00002b00  f8 11 f2 6b 5f 28 33 30  29 3a 63 24 3d 22 22 0d  |...k_(30):c$="".|
00002b10  0d 02 05 e1 0d 0d 16 10  dd f2 51 60 3a e7 64 5f  |..........Q`:.d_|
00002b20  25 3d 30 e1 0d 0d 20 07  f2 5f 5f 0d 0d 2a 2b f1  |%=0... ..__..*+.|
00002b30  27 22 20 45 64 69 74 20  73 74 61 74 69 6f 6e 73  |'" Edit stations|
00002b40  3a 22 27 22 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |:"'" ===========|
00002b50  3d 3d 3d 22 27 27 0d 0d  34 25 e3 78 3d 31 b8 64  |==="''..4%.x=1.d|
00002b60  5f 25 3a f1 27 22 20 20  20 22 3b 78 3b 22 20 2d  |_%:.'"   ";x;" -|
00002b70  20 22 3b 4e 5f 24 28 78  29 3a ed 0d 0d 3e 14 f1  | ";N_$(x):...>..|
00002b80  27 27 22 20 20 20 20 20  2d 20 4e 6f 6e 65 22 0d  |''"     - None".|
00002b90  0d 48 2b e8 27 27 27 22  20 57 68 69 63 68 20 73  |.H+.'''" Which s|
00002ba0  74 61 74 69 6f 6e 20 6e  65 65 64 73 20 65 64 69  |tation needs edi|
00002bb0  74 69 6e 67 3f 20 20 22  63 25 0d 0d 52 11 e7 63  |ting?  "c%..R..c|
00002bc0  25 3d 30 84 63 25 3e 64  5f 25 e1 0d 0d 5c 46 f5  |%=0.c%>d_%...\F.|
00002bd0  3a f2 5f 5f 3a f1 27 22  20 45 64 69 74 69 6e 67  |:.__:.'" Editing|
00002be0  20 20 20 20 20 20 20 22  3b 3a fb 31 32 3a f1 4e  |       ";:.12:.N|
00002bf0  5f 24 28 63 25 29 3b 3a  fb 36 33 3a f1 27 27 22  |_$(c%);:.63:.''"|
00002c00  20 53 74 61 74 69 6f 6e  2f 44 65 70 6f 74 22 27  | Station/Depot"'|
00002c10  27 0d 0d 66 ab f1 22 20  20 31 20 2d 20 43 6f 6f  |'..f.."  1 - Coo|
00002c20  72 64 69 6e 61 74 65 73  20 22 27 27 22 20 20 32  |rdinates "''"  2|
00002c30  20 2d 20 50 6c 61 74 66  6f 72 6d 2d 6e 75 6d 62  | - Platform-numb|
00002c40  65 72 73 20 22 27 27 22  20 20 33 20 2d 20 41 63  |ers "''"  3 - Ac|
00002c50  63 65 73 73 2d 74 79 70  65 73 20 22 27 27 22 20  |cess-types "''" |
00002c60  20 34 20 2d 20 44 65 6c  65 74 65 20 73 74 61 74  | 4 - Delete stat|
00002c70  69 6f 6e 20 22 27 27 22  20 20 35 20 2d 20 52 65  |ion "''"  5 - Re|
00002c80  6e 61 6d 65 20 73 74 61  74 69 6f 6e 22 27 27 22  |name station"''"|
00002c90  20 20 36 20 2d 20 50 6c  61 74 66 6f 72 6d 2d 41  |  6 - Platform-A|
00002ca0  63 63 65 73 73 22 27 27  22 20 20 20 20 2d 20 4e  |ccess"''"    - N|
00002cb0  6f 20 45 64 69 74 69 6e  67 22 27 27 0d 0d 70 25  |o Editing"''..p%|
00002cc0  f1 27 22 20 57 68 61 74  20 6e 65 65 64 73 20 65  |.'" What needs e|
00002cd0  64 69 74 69 6e 67 3f 3a  22 3b 3a e8 22 20 22 52  |diting?:";:." "R|
00002ce0  60 0d 0d 7a 08 5a 25 3d  30 0d 0d 84 10 e7 52 60  |`..z.Z%=0.....R`|
00002cf0  3d 31 f2 53 60 28 63 25  29 0d 0d 8e 0c e7 52 60  |=1.S`(c%).....R`|
00002d00  3d 32 f2 54 60 0d 0d 98  10 e7 52 60 3d 33 f2 55  |=2.T`.....R`=3.U|
00002d10  60 28 63 25 29 0d 0d a2  11 e7 52 60 3d 34 f2 56  |`(c%).....R`=4.V|
00002d20  60 3a 52 60 3d 30 0d 0d  ac 0c e7 52 60 3d 35 f2  |`:R`=0.....R`=5.|
00002d30  57 60 0d 0d b6 10 e7 52  60 3d 36 f2 58 60 28 63  |W`.....R`=6.X`(c|
00002d40  25 29 0d 0d c0 0e fd 52  60 3d 30 84 52 60 3e 36  |%).....R`=0.R`>6|
00002d50  0d 0d ca 05 e1 0d 0d de  11 dd f2 53 60 28 63 25  |...........S`(c%|
00002d60  29 3a 5a 25 3d 30 0d 0d  e8 50 f2 66 5f 3a f2 74  |):Z%=0...P.f_:.t|
00002d70  3a f1 22 4d 61 72 6b 65  72 20 31 20 69 73 20 73  |:."Marker 1 is s|
00002d80  65 6c 65 63 74 65 64 3b  20 70 6c 61 63 65 20 69  |elected; place i|
00002d90  74 20 61 74 20 74 68 65  20 6e 65 77 20 63 6f 6f  |t at the new coo|
00002da0  72 64 69 6e 61 74 65 20  28 62 6f 74 74 6f 6d 2d  |rdinate (bottom-|
00002db0  6c 65 66 74 29 22 0d 0d  f2 92 42 24 3d 22 65 30  |left)"....B$="e0|
00002dc0  22 3a f2 59 60 3a 4b 5f  25 28 63 25 2c 31 29 3d  |":.Y`:K_%(c%,1)=|
00002dd0  41 25 2b 53 5f 25 3a 4b  5f 25 28 63 25 2c 32 29  |A%+S_%:K_%(c%,2)|
00002de0  3d 42 25 2b 54 5f 25 3a  f2 73 5f 3a f1 27 27 22  |=B%+T_%:.s_:.''"|
00002df0  4d 61 72 6b 65 72 20 32  20 69 73 20 73 65 6c 65  |Marker 2 is sele|
00002e00  63 74 65 64 3b 20 70 6c  61 63 65 20 69 74 20 61  |cted; place it a|
00002e10  74 20 74 68 65 20 6e 65  77 20 63 6f 6f 72 64 69  |t the new coordi|
00002e20  6e 61 74 65 20 28 74 6f  70 2d 72 69 67 68 74 29  |nate (top-right)|
00002e30  22 3a 6b 5f 25 3d 91 2b  33 30 3a f5 3a fd 91 3e  |":k_%=.+30:.:..>|
00002e40  6b 5f 25 3a 5a 25 3d 30  0d 0d fc 35 42 24 3d 22  |k_%:Z%=0...5B$="|
00002e50  65 31 22 3a f2 59 60 3a  4b 5f 25 28 63 25 2c 33  |e1":.Y`:K_%(c%,3|
00002e60  29 3d 41 25 2b 53 5f 25  3a 4b 5f 25 28 63 25 2c  |)=A%+S_%:K_%(c%,|
00002e70  34 29 3d 42 25 2b 54 5f  25 3a f2 73 5f 0d 0e 06  |4)=B%+T_%:.s_...|
00002e80  32 f1 27 27 22 50 72 65  73 73 20 61 20 6b 65 79  |2.''"Press a key|
00002e90  20 74 6f 20 63 6f 6e 74  69 6e 75 65 2e 2e 22 3a  | to continue..":|
00002ea0  63 24 3d be 3a ef 32 36  3a fb 31 34 36 3a db 0d  |c$=.:.26:.146:..|
00002eb0  0e 10 05 e1 0d 0e 24 0c  dd f2 59 60 3a c8 97 ee  |......$...Y`:...|
00002ec0  0d 0e 2e 05 f5 0d 0e 38  0e c8 97 58 25 2c 59 25  |.......8...X%,Y%|
00002ed0  2c 5a 25 0d 0e 42 1b e7  5a 25 3d 34 20 41 25 3d  |,Z%..B..Z%=4 A%=|
00002ee0  58 25 81 34 30 3a 42 25  3d 59 25 81 34 30 0d 0e  |X%.40:B%=Y%.40..|
00002ef0  4c 1f e7 a6 2d 35 38 80  54 5f 25 3c 33 30 20 54  |L...-58.T_%<30 T|
00002f00  5f 25 3d 54 5f 25 2b 31  30 3a f2 66 5f 0d 0e 56  |_%=T_%+10:.f_..V|
00002f10  20 e7 a6 2d 34 32 80 54  5f 25 3e 3d 31 30 20 54  | ..-42.T_%>=10 T|
00002f20  5f 25 3d 54 5f 25 2d 31  30 3a f2 66 5f 0d 0e 60  |_%=T_%-10:.f_..`|
00002f30  21 e7 a6 2d 31 32 32 80  53 5f 25 3c 31 30 30 20  |!..-122.S_%<100 |
00002f40  53 5f 25 3d 53 5f 25 2b  32 35 3a f2 66 5f 0d 0e  |S_%=S_%+25:.f_..|
00002f50  6a 20 e7 a6 2d 32 36 80  53 5f 25 3e 3d 32 35 20  |j ..-26.S_%>=25 |
00002f60  53 5f 25 3d 53 5f 25 2d  32 35 3a f2 66 5f 0d 0e  |S_%=S_%-25:.f_..|
00002f70  74 09 fd 5a 25 3d 34 0d  0e 7e 05 e1 0d 0e 92 0d  |t..Z%=4..~......|
00002f80  dd f2 54 60 3a 5a 60 3d  30 0d 0e 9c 44 db 3a f1  |..T`:Z`=0...D.:.|
00002f90  27 22 20 45 64 69 74 69  6e 67 20 20 20 20 20 20  |'" Editing      |
00002fa0  20 22 3b 3a fb 31 32 3a  f1 4e 5f 24 28 63 25 29  | ";:.12:.N_$(c%)|
00002fb0  3b 3a fb 36 33 3a f1 27  27 22 20 50 6c 61 74 66  |;:.63:.''" Platf|
00002fc0  6f 72 6d 6e 75 6d 62 65  72 73 22 27 27 0d 0e a6  |ormnumbers"''...|
00002fd0  36 fb 31 33 31 3a fb 37  39 3a f1 77 24 27 22 20  |6.131:.79:.w$'" |
00002fe0  57 41 52 4e 49 4e 47 21  20 20 20 20 20 20 20 20  |WARNING!        |
00002ff0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00003000  27 77 24 0d 0e b0 77 f1  22 20 52 65 6d 65 6d 62  |'w$...w." Rememb|
00003010  65 72 20 74 68 61 74 20  79 6f 75 20 6e 65 65 64  |er that you need|
00003020  20 74 6f 20 72 65 64 6f  20 22 27 77 24 27 22 20  | to redo "'w$'" |
00003030  61 6c 6c 20 66 6f 6c 6c  6f 77 69 6e 67 20 73 74  |all following st|
00003040  61 74 69 6f 6e 73 2f 64  65 70 6f 74 73 20 20 22  |ations/depots  "|
00003050  27 77 24 27 22 20 69 66  20 74 68 65 20 68 69 67  |'w$'" if the hig|
00003060  68 65 73 74 20 69 6e 63  72 65 61 73 65 73 2e 20  |hest increases. |
00003070  20 20 20 20 20 22 27 77  24 27 0d 0e ba 0c fb 31  |     "'w$'.....1|
00003080  39 37 3a fb 36 33 0d 0e  c4 31 f1 27 27 22 20 4c  |97:.63...1.''" L|
00003090  6f 77 65 73 74 20 20 70  6c 61 74 66 6f 72 6d 6e  |owest  platformn|
000030a0  75 6d 62 65 72 20 6e 6f  77 3a 20 20 22 3b 4b 5f  |umber now:  ";K_|
000030b0  25 28 63 25 2c 36 29 0d  0e ce 34 f1 27 22 20 48  |%(c%,6)...4.'" H|
000030c0  69 67 68 65 73 74 20 70  6c 61 74 66 6f 72 6d 6e  |ighest platformn|
000030d0  75 6d 62 65 72 20 6e 6f  77 3a 20 20 22 3b 4b 5f  |umber now:  ";K_|
000030e0  25 28 63 25 2c 37 29 3a  f1 27 27 0d 0e d8 2e e8  |%(c%,7):.''.....|
000030f0  22 20 47 69 76 65 20 74  68 65 20 6e 65 77 20 6c  |" Give the new l|
00003100  6f 77 65 73 74 20 70 6c  61 74 66 6f 72 6d 6e 75  |owest platformnu|
00003110  6d 62 65 72 20 20 22 61  60 0d 0e e2 30 e8 27 27  |mber  "a`...0.''|
00003120  22 20 47 69 76 65 20 74  68 65 20 6e 65 77 20 68  |" Give the new h|
00003130  69 67 68 65 73 74 20 70  6c 61 74 66 6f 72 6d 6e  |ighest platformn|
00003140  75 6d 62 65 72 20 22 62  60 0d 0e ec 60 e7 61 60  |umber "b`...`.a`|
00003150  3e 33 30 84 62 60 3e 33  30 f1 27 27 22 20 41 63  |>30.b`>30.''" Ac|
00003160  74 69 6f 6e 20 63 61 6e  63 65 6c 6c 65 64 2e 20  |tion cancelled. |
00003170  4f 76 65 72 72 69 64 69  6e 67 20 74 68 65 22 27  |Overriding the"'|
00003180  27 22 20 6d 61 78 69 6d  75 6d 20 6f 66 20 33 30  |'" maximum of 30|
00003190  20 70 6c 61 74 66 6f 72  6d 73 2e 2e 22 3b 3a f2  | platforms..";:.|
000031a0  6b 5f 28 32 30 30 29 3a  e1 0d 0e f6 28 e7 61 60  |k_(200):....(.a`|
000031b0  3e 30 80 61 60 3c 3e 4b  5f 25 28 63 25 2c 36 29  |>0.a`<>K_%(c%,6)|
000031c0  4b 5f 25 28 63 25 2c 36  29 3d 61 60 3a 5a 60 3d  |K_%(c%,6)=a`:Z`=|
000031d0  31 0d 0f 00 28 e7 62 60  3e 30 80 62 60 3c 3e 4b  |1...(.b`>0.b`<>K|
000031e0  5f 25 28 63 25 2c 37 29  4b 5f 25 28 63 25 2c 37  |_%(c%,7)K_%(c%,7|
000031f0  29 3d 62 60 3a 5a 60 3d  31 0d 0f 0a 2c e7 4b 5f  |)=b`:Z`=1...,.K_|
00003200  25 28 63 25 2c 36 29 3e  4b 5f 25 28 63 25 2c 37  |%(c%,6)>K_%(c%,7|
00003210  29 3a 4b 5f 25 28 63 25  2c 36 29 3d 4b 5f 25 28  |):K_%(c%,6)=K_%(|
00003220  63 25 2c 37 29 0d 0f 14  10 e7 5a 60 3e 30 f2 46  |c%,7).....Z`>0.F|
00003230  60 28 63 25 29 0d 0f 1e  21 e7 58 5f 25 3e 4b 5f  |`(c%)...!.X_%>K_|
00003240  25 28 64 5f 25 2c 37 29  58 5f 25 3d 4b 5f 25 28  |%(d_%,7)X_%=K_%(|
00003250  64 5f 25 2c 37 29 0d 0f  28 20 e7 4b 5f 25 28 63  |d_%,7)..( .K_%(c|
00003260  25 2c 37 29 3e 58 5f 25  20 58 5f 25 3d 4b 5f 25  |%,7)>X_% X_%=K_%|
00003270  28 63 25 2c 37 29 0d 0f  32 05 e1 0d 0f 46 08 dd  |(c%,7)..2....F..|
00003280  f2 56 60 0d 0f 50 3c fb  31 33 31 3a fb 37 39 3a  |.V`..P<.131:.79:|
00003290  f1 27 27 27 22 44 65 6c  65 74 69 6e 67 20 73 74  |.'''"Deleting st|
000032a0  61 74 69 6f 6e 2f 64 65  70 6f 74 3a 20 22 3b 4e  |ation/depot: ";N|
000032b0  5f 24 28 63 25 29 3a fb  31 39 37 3a fb 36 33 0d  |_$(c%):.197:.63.|
000032c0  0f 5a 31 f1 27 27 22 41  72 65 20 79 6f 75 20 73  |.Z1.''"Are you s|
000032d0  75 72 65 3f 20 59 2f 4e  20 22 3a f5 3a 43 24 3d  |ure? Y/N ":.:C$=|
000032e0  be 3a fd a7 22 59 79 4e  6e 22 2c 43 24 29 3e 30  |.:.."YyNn",C$)>0|
000032f0  0d 0f 64 13 e7 43 24 3d  22 4e 22 84 43 24 3d 22  |..d..C$="N".C$="|
00003300  6e 22 e1 0d 0f 6e 32 e3  78 3d 4b 5f 25 28 63 25  |n"...n2.x=K_%(c%|
00003310  2c 36 29 b8 4b 5f 25 28  63 25 2c 37 29 3a 4c 5f  |,6).K_%(c%,7):L_|
00003320  25 28 78 2c 33 29 3d 30  3a 4c 5f 25 28 78 2c 34  |%(x,3)=0:L_%(x,4|
00003330  29 3d 30 3a ed 0d 0f 78  0f e3 78 3d 63 25 b8 64  |)=0:...x..x=c%.d|
00003340  5f 25 2d 31 0d 0f 82 40  4e 5f 24 28 78 29 3d 4e  |_%-1...@N_$(x)=N|
00003350  5f 24 28 78 2b 31 29 3a  4f 5f 24 28 78 29 3d 4f  |_$(x+1):O_$(x)=O|
00003360  5f 24 28 78 2b 31 29 3a  e3 79 3d 31 b8 39 3a 4b  |_$(x+1):.y=1.9:K|
00003370  5f 25 28 78 2c 79 29 3d  4b 5f 25 28 78 2b 31 2c  |_%(x,y)=K_%(x+1,|
00003380  79 29 3a ed 0d 0f 8c 05  ed 0d 0f 96 31 4e 5f 24  |y):.........1N_$|
00003390  28 64 5f 25 29 3d 22 22  3a 4f 5f 24 28 64 5f 25  |(d_%)="":O_$(d_%|
000033a0  29 3d 22 22 3a e3 79 3d  31 b8 39 3a 4b 5f 25 28  |)="":.y=1.9:K_%(|
000033b0  64 5f 25 2c 79 29 3d 30  3a ed 0d 0f a0 33 64 5f  |d_%,y)=0:....3d_|
000033c0  25 3d 64 5f 25 2d 31 3a  6d 25 3d 6d 25 2d 31 3a  |%=d_%-1:m%=m%-1:|
000033d0  e7 58 5f 25 3e 4b 5f 25  28 64 5f 25 2c 37 29 58  |.X_%>K_%(d_%,7)X|
000033e0  5f 25 3d 4b 5f 25 28 64  5f 25 2c 37 29 0d 0f aa  |_%=K_%(d_%,7)...|
000033f0  05 e1 0d 0f be 0c dd f2  55 60 28 63 25 29 0d 0f  |........U`(c%)..|
00003400  c8 41 db 3a f1 27 22 20  45 64 69 74 69 6e 67 20  |.A.:.'" Editing |
00003410  20 20 20 20 20 20 22 3b  3a fb 31 32 3a f1 4e 5f  |      ";:.12:.N_|
00003420  24 28 63 25 29 3b 3a fb  36 33 3a f1 27 27 22 20  |$(c%);:.63:.''" |
00003430  41 63 63 65 73 73 2d 74  79 70 65 73 22 27 27 0d  |Access-types"''.|
00003440  0f d2 27 f1 22 20 53 74  61 74 69 6f 6e 20 77 69  |..'." Station wi|
00003450  6c 6c 20 62 65 20 61 63  63 65 73 73 61 62 6c 65  |ll be accessable|
00003460  20 66 6f 72 3a 22 0d 0f  dc 55 f1 27 22 20 20 20  | for:"...U.'"   |
00003470  20 31 20 3a 20 49 43 22  27 27 22 20 20 20 20 32  | 1 : IC"''"    2|
00003480  20 3a 20 4c 50 22 27 27  22 20 20 20 20 33 20 3a  | : LP"''"    3 :|
00003490  20 47 44 22 27 27 22 20  20 20 20 34 20 3a 20 49  | GD"''"    4 : I|
000034a0  43 2f 4c 50 22 27 27 27  22 20 20 20 59 6f 75 72  |C/LP"'''"   Your|
000034b0  20 63 68 6f 69 63 65 3f  20 22 3b 0d 0f e6 19 f5  | choice? ";.....|
000034c0  3a 63 24 3d be 3a fd a7  22 31 32 33 34 22 2c 63  |:c$=.:.."1234",c|
000034d0  24 29 3e 30 0d 0f f0 0b  63 3d bb 28 63 24 29 0d  |$)>0....c=.(c$).|
000034e0  0f fa 14 e7 63 3d 31 20  4b 5f 25 28 63 25 2c 35  |....c=1 K_%(c%,5|
000034f0  29 3d 31 0d 10 04 14 e7  63 3d 32 20 4b 5f 25 28  |)=1.....c=2 K_%(|
00003500  63 25 2c 35 29 3d 32 0d  10 0e 14 e7 63 3d 33 20  |c%,5)=2.....c=3 |
00003510  4b 5f 25 28 63 25 2c 35  29 3d 33 0d 10 18 15 e7  |K_%(c%,5)=3.....|
00003520  63 3d 34 20 4b 5f 25 28  63 25 2c 35 29 3d 31 32  |c=4 K_%(c%,5)=12|
00003530  0d 10 22 05 e1 0d 10 36  0b dd f2 63 60 3a ea 63  |.."....6...c`:.c|
00003540  0d 10 40 1e f2 5f 5f 3a  fb 31 33 31 3a fb 37 39  |..@..__:.131:.79|
00003550  3a db 3a 5a 5f 25 3d b3  28 39 39 39 39 29 0d 10  |:.:Z_%=.(9999)..|
00003560  4a cb f1 27 22 20 43 6c  65 61 72 69 6e 67 20 61  |J..'" Clearing a|
00003570  6c 6c 20 64 61 74 61 20  6d 65 61 6e 73 22 27 27  |ll data means"''|
00003580  22 20 74 68 61 74 20 79  6f 75 20 68 61 76 65 20  |" that you have |
00003590  74 6f 20 70 75 74 20 69  6e 3a 22 27 27 22 20 2d  |to put in:"''" -|
000035a0  45 6e 74 72 79 70 6f 69  6e 74 73 22 27 22 20 2d  |Entrypoints"'" -|
000035b0  53 74 61 74 69 6f 6e 73  2f 44 65 70 6f 74 73 2d  |Stations/Depots-|
000035c0  6d 61 72 6b 69 6e 67 73  22 27 27 22 20 61 6e 64  |markings"''" and|
000035d0  20 64 65 66 69 6e 65 20  74 68 65 6d 20 61 6c 6c  | define them all|
000035e0  2e 2e 2e 22 27 27 27 22  20 49 66 20 79 6f 75 20  |..."'''" If you |
000035f0  77 69 73 68 20 74 6f 20  64 6f 20 73 6f 2c 20 74  |wish to do so, t|
00003600  79 70 65 20 3a 20 22 3b  5a 5f 25 3b 22 20 22 27  |ype : ";Z_%;" "'|
00003610  27 22 20 65 6c 73 65 20  68 69 74 20 3c 52 45 54  |'" else hit <RET|
00003620  55 52 4e 3e 2e 2e 22 27  27 0d 10 54 09 e8 22 22  |URN>.."''..T..""|
00003630  4f 60 0d 10 5e 0c e7 4f  60 3d 5a 5f 25 8c 0d 10  |O`..^..O`=Z_%...|
00003640  68 46 e3 63 3d 31 b8 62  5f 25 3a 46 5f 24 28 47  |hF.c=1.b_%:F_$(G|
00003650  5f 25 28 63 2c 31 29 2c  47 5f 25 28 63 2c 32 29  |_%(c,1),G_%(c,2)|
00003660  29 3d 22 30 30 22 3a 46  5f 24 28 47 5f 25 28 63  |)="00":F_$(G_%(c|
00003670  2c 37 29 2c 47 5f 25 28  63 2c 38 29 29 3d 22 30  |,7),G_%(c,8))="0|
00003680  30 22 3a ed 0d 10 72 44  6d 25 3d 31 3a 64 5f 25  |0":...rDm%=1:d_%|
00003690  3d 30 3a 61 25 3d 30 3a  55 5f 25 3d 30 3a 56 5f  |=0:a%=0:U_%=0:V_|
000036a0  25 3d 31 3a 62 5f 25 3d  30 3a 57 5f 3d 30 3a 58  |%=1:b_%=0:W_=0:X|
000036b0  5f 25 3d 30 3a 59 5f 25  3d 30 3a 42 24 3d 22 30  |_%=0:Y_%=0:B$="0|
000036c0  30 22 3a 5a 5f 25 3d 30  0d 10 7c 0a f2 77 5f 28  |0":Z_%=0..|..w_(|
000036d0  30 29 0d 10 86 1e f1 27  27 22 20 41 4c 4c 20 44  |0).....''" ALL D|
000036e0  41 54 41 20 43 4c 45 41  52 45 44 21 21 21 21 22  |ATA CLEARED!!!!"|
000036f0  0d 10 90 05 cd 0d 10 9a  05 e1 0d 10 ae 10 dd f2  |................|
00003700  57 60 3a f2 6b 5f 28 32  30 29 0d 10 b8 28 fb 37  |W`:.k_(20)...(.7|
00003710  39 3a f1 27 27 22 20 22  3b 4e 5f 24 28 63 25 29  |9:.''" ";N_$(c%)|
00003720  3b 22 20 20 20 22 3b 4f  5f 24 28 63 25 29 3a fb  |;"   ";O_$(c%):.|
00003730  36 33 0d 10 c2 34 e8 27  27 22 20 57 68 61 74 20  |63...4.''" What |
00003740  69 73 20 74 68 65 20 6e  65 77 20 6e 61 6d 65 3f  |is the new name?|
00003750  20 22 63 24 3a e7 63 24  3d 22 22 20 63 24 3d 4e  | "c$:.c$="" c$=N|
00003760  5f 24 28 63 25 29 0d 10  c3 18 e7 a9 28 63 24 29  |_$(c%)......(c$)|
00003770  3e 31 32 20 63 24 3d c0  63 24 2c 31 32 29 0d 10  |>12 c$=.c$,12)..|
00003780  cc 14 4e 5f 24 28 63 25  29 3d 63 24 3a 63 24 3d  |..N_$(c%)=c$:c$=|
00003790  22 22 0d 10 d6 33 e8 27  22 20 57 68 61 74 20 69  |""...3.'" What i|
000037a0  73 20 74 68 65 20 6e 65  77 20 63 6f 64 65 3f 20  |s the new code? |
000037b0  22 63 24 3a e7 63 24 3d  22 22 20 63 24 3d 4f 5f  |"c$:.c$="" c$=O_|
000037c0  24 28 63 25 29 0d 10 e0  14 4f 5f 24 28 63 25 29  |$(c%)....O_$(c%)|
000037d0  3d 63 24 3a 63 24 3d 22  22 0d 10 ea 05 e1 0d 10  |=c$:c$="".......|
000037e0  fe 0c dd f2 58 60 28 63  25 29 0d 11 08 0b f2 46  |....X`(c%).....F|
000037f0  60 28 63 25 29 0d 11 12  30 f1 27 22 20 50 72 65  |`(c%)...0.'" Pre|
00003800  73 73 20 43 20 74 6f 20  63 6f 6e 74 69 6e 75 65  |ss C to continue|
00003810  22 3a f5 3a 63 24 3d be  3a fd a7 22 43 63 22 2c  |":.:c$=.:.."Cc",|
00003820  63 24 29 3e 30 0d 11 1c  05 e1 0d 11 30 0d dd f2  |c$)>0.......0...|
00003830  46 60 28 64 60 25 29 0d  11 3a 3c f2 43 60 3a f1  |F`(d`%)..:<.C`:.|
00003840  27 22 20 45 6e 74 72 79  70 6f 69 6e 74 73 3a 22  |'" Entrypoints:"|
00003850  27 27 3a e3 79 3d 31 b8  62 5f 25 3a f1 27 22 20  |'':.y=1.b_%:.'" |
00003860  20 22 3b 79 3b 22 20 2d  20 22 3b 48 5f 24 28 79  | ";y;" - ";H_$(y|
00003870  29 3a ed 0d 11 44 0b f2  42 60 3a f2 45 60 0d 11  |):...D..B`:.E`..|
00003880  4e 12 e7 4b 5f 25 28 64  60 25 2c 38 29 3d 30 8c  |N..K_%(d`%,8)=0.|
00003890  0d 11 58 1c e3 63 3d 4b  5f 25 28 64 60 25 2c 36  |..X..c=K_%(d`%,6|
000038a0  29 b8 4b 5f 25 28 64 60  25 2c 37 29 0d 11 62 1d  |).K_%(d`%,7)..b.|
000038b0  db 3a f1 27 22 20 53 74  61 74 69 6f 6e 3a 20 22  |.:.'" Station: "|
000038c0  3b 4e 5f 24 28 64 60 25  29 0d 11 6c 43 f1 27 27  |;N_$(d`%)..lC.''|
000038d0  22 20 50 6c 61 74 66 6f  72 6d 3a 20 46 72 6f 6d  |" Platform: From|
000038e0  20 20 20 20 20 20 20 54  6f 20 22 27 22 20 20 20  |       To "'"   |
000038f0  20 20 20 20 20 20 20 20  45 6e 74 72 79 27 73 3a  |        Entry's:|
00003900  20 20 20 45 78 69 74 73  3a 22 27 27 0d 11 76 1c  |   Exits:"''..v.|
00003910  e3 62 3d 4b 5f 25 28 64  60 25 2c 36 29 b8 4b 5f  |.b=K_%(d`%,6).K_|
00003920  25 28 64 60 25 2c 37 29  0d 11 80 1c e7 4c 5f 25  |%(d`%,7).....L_%|
00003930  28 62 2c 33 29 3d 30 20  4c 5f 25 28 62 2c 33 29  |(b,3)=0 L_%(b,3)|
00003940  3d 49 60 25 0d 11 8a 1c  e7 4c 5f 25 28 62 2c 34  |=I`%.....L_%(b,4|
00003950  29 3d 30 20 4c 5f 25 28  62 2c 34 29 3d 49 60 25  |)=0 L_%(b,4)=I`%|
00003960  0d 11 94 27 f1 8a 33 29  3b 62 3b 8a 31 31 29 3b  |...'..3);b;.11);|
00003970  4c 5f 25 28 62 2c 33 29  3b 8a 32 32 29 3b 4c 5f  |L_%(b,3);.22);L_|
00003980  25 28 62 2c 34 29 3b 0d  11 9e 05 ed 0d 11 a8 1d  |%(b,4);.........|
00003990  e7 4c 5f 25 28 63 2c 33  29 3c 3e 30 20 49 60 25  |.L_%(c,3)<>0 I`%|
000039a0  3d 4c 5f 25 28 63 2c 33  29 0d 11 b2 60 f1 8a 30  |=L_%(c,3)...`..0|
000039b0  2c 32 33 29 3b 22 20 41  63 63 65 73 73 20 74 6f  |,23);" Access to|
000039c0  20 70 6c 61 74 66 6f 72  6d 20 22 3b 63 3b 27 22  | platform ";c;'"|
000039d0  20 68 61 76 65 20 74 72  61 69 6e 73 20 22 27 22  | have trains "'"|
000039e0  20 66 72 6f 6d 3a 20 28  22 3b 49 60 25 3b 22 29  | from: (";I`%;")|
000039f0  20 22 3b 3a e8 22 22 65  60 25 3a e7 65 60 25 3d  | ";:.""e`%:.e`%=|
00003a00  30 20 65 60 25 3d 49 60  25 0d 11 bc 1d e7 4c 5f  |0 e`%=I`%.....L_|
00003a10  25 28 63 2c 34 29 3c 3e  30 20 49 60 25 3d 4c 5f  |%(c,4)<>0 I`%=L_|
00003a20  25 28 63 2c 34 29 0d 11  c6 52 f1 27 22 20 44 65  |%(c,4)...R.'" De|
00003a30  73 74 69 6e 79 20 66 72  6f 6d 20 70 6c 61 74 66  |stiny from platf|
00003a40  6f 72 6d 20 22 3b 63 3b  27 22 20 61 72 65 20 65  |orm ";c;'" are e|
00003a50  78 69 74 73 3a 20 28 22  3b 49 60 25 3b 22 29 20  |xits: (";I`%;") |
00003a60  22 3b 3a e8 22 22 66 60  25 3a e7 66 60 25 3d 30  |";:.""f`%:.f`%=0|
00003a70  20 66 60 25 3d 49 60 25  0d 11 d0 1d 4c 5f 25 28  | f`%=I`%....L_%(|
00003a80  63 2c 33 29 3d 65 60 25  3a 4c 5f 25 28 63 2c 34  |c,3)=e`%:L_%(c,4|
00003a90  29 3d 66 60 25 0d 11 da  05 ed 0d 11 e4 05 cc 0d  |)=f`%...........|
00003aa0  11 ee 1b db 3a f1 27 22  20 44 65 70 6f 74 3a 20  |....:.'" Depot: |
00003ab0  22 3b 4e 5f 24 28 64 60  25 29 0d 11 f8 27 f1 27  |";N_$(d`%)...'.'|
00003ac0  27 22 20 44 65 70 6f 74  3a 20 20 20 20 46 72 6f  |'" Depot:    Fro|
00003ad0  6d 3a 20 20 20 20 20 20  45 78 69 74 73 3a 22 27  |m:      Exits:"'|
00003ae0  27 0d 12 02 2a 62 3d 4b  5f 25 28 64 60 25 2c 36  |'...*b=K_%(d`%,6|
00003af0  29 3a e7 4c 5f 25 28 62  2c 33 29 3c 3e 30 20 49  |):.L_%(b,3)<>0 I|
00003b00  60 25 3d 4c 5f 25 28 62  2c 33 29 0d 12 0c 29 f1  |`%=L_%(b,3)...).|
00003b10  8a 33 29 3b 64 60 25 3b  8a 31 31 29 3b 4c 5f 25  |.3);d`%;.11);L_%|
00003b20  28 62 2c 33 29 3b 8a 32  32 29 3b 4c 5f 25 28 62  |(b,3);.22);L_%(b|
00003b30  2c 34 29 3b 0d 12 16 55  f1 8a 30 2c 32 32 29 3b  |,4);...U..0,22);|
00003b40  22 20 41 63 63 65 73 73  20 74 6f 20 44 65 70 6f  |" Access to Depo|
00003b50  74 20 68 61 76 65 22 27  22 20 74 72 61 69 6e 73  |t have"'" trains|
00003b60  20 66 72 6f 6d 3a 20 28  22 3b 49 60 25 3b 22 29  | from: (";I`%;")|
00003b70  20 22 3b 3a e8 22 22 65  60 25 3a e7 65 60 25 3d  | ";:.""e`%:.e`%=|
00003b80  30 20 65 60 25 3d 49 60  25 0d 12 20 1d e7 4c 5f  |0 e`%=I`%.. ..L_|
00003b90  25 28 62 2c 34 29 3c 3e  30 20 49 60 25 3d 4c 5f  |%(b,4)<>0 I`%=L_|
00003ba0  25 28 62 2c 34 29 0d 12  2a 4b f1 27 22 20 44 65  |%(b,4)..*K.'" De|
00003bb0  73 74 69 6e 79 20 66 72  6f 6d 20 44 65 70 6f 74  |stiny from Depot|
00003bc0  20 61 72 65 22 27 22 20  65 78 69 74 73 3a 20 28  | are"'" exits: (|
00003bd0  22 3b 49 60 25 3b 22 29  20 22 3b 3a e8 22 22 66  |";I`%;") ";:.""f|
00003be0  60 25 3a e7 66 60 25 3d  30 20 66 60 25 3d 49 60  |`%:.f`%=0 f`%=I`|
00003bf0  25 0d 12 34 38 e3 63 3d  4b 5f 25 28 64 60 25 2c  |%..48.c=K_%(d`%,|
00003c00  36 29 b8 4b 5f 25 28 64  60 25 2c 37 29 3a 4c 5f  |6).K_%(d`%,7):L_|
00003c10  25 28 63 2c 33 29 3d 65  60 25 3a 4c 5f 25 28 63  |%(c,3)=e`%:L_%(c|
00003c20  2c 34 29 3d 66 60 25 3a  ed 0d 12 3e 05 cd 0d 12  |,4)=f`%:...>....|
00003c30  48 05 e1 0d 12 5c 11 dd  f2 42 5f 3a ef 34 3a 67  |H....\...B_:.4:g|
00003c40  60 25 3d 30 0d 12 66 10  f5 3a ef 32 36 3a fb 31  |`%=0..f..:.26:.1|
00003c50  34 36 3a db 0d 12 70 0d  f2 5f 5f 3a 6d 24 3d 22  |46:...p..__:m$="|
00003c60  22 0d 12 7a 1c f1 27 22  20 21 52 61 69 6c 45 64  |"..z..'" !RailEd|
00003c70  50 72 6f 20 20 20 20 20  4d 45 4e 55 22 0d 12 84  |Pro     MENU"...|
00003c80  20 f1 27 27 22 20 20 20  20 20 20 20 20 20 31 20  | .''"         1 |
00003c90  2d 20 4c 6f 61 64 20 61  20 6d 61 70 22 0d 12 8e  |- Load a map"...|
00003ca0  3a f1 27 22 20 20 20 20  20 20 20 20 20 32 20 2d  |:.'"         2 -|
00003cb0  20 53 61 76 65 20 22 3b  3a e7 61 5f 24 3c 3e 22  | Save ";:.a_$<>"|
00003cc0  61 20 6d 61 70 22 fb 37  34 3a f1 61 5f 24 3a fb  |a map".74:.a_$:.|
00003cd0  36 33 8b f1 61 5f 24 0d  12 98 3c f1 27 27 27 22  |63..a_$...<.'''"|
00003ce0  20 20 20 20 20 20 20 20  20 33 20 2d 20 45 64 69  |         3 - Edi|
00003cf0  74 20 22 3b 3a e7 61 5f  24 3c 3e 22 61 20 6d 61  |t ";:.a_$<>"a ma|
00003d00  70 22 fb 37 34 3a f1 61  5f 24 3a fb 36 33 8b f1  |p".74:.a_$:.63..|
00003d10  61 5f 24 0d 12 a2 27 f1  27 27 27 22 20 20 20 20  |a_$...'.'''"    |
00003d20  20 20 20 20 20 34 20 2d  20 45 64 69 74 20 65 6e  |     4 - Edit en|
00003d30  74 72 79 70 6f 69 6e 74  73 22 0d 12 ac 29 f1 27  |trypoints"...).'|
00003d40  22 20 20 20 20 20 20 20  20 20 35 20 2d 20 45 64  |"         5 - Ed|
00003d50  69 74 20 73 74 61 74 69  6f 6e 73 2f 64 65 70 6f  |it stations/depo|
00003d60  74 73 22 0d 12 b6 23 f1  27 22 20 20 20 20 20 20  |ts"...#.'"      |
00003d70  20 20 20 36 20 2d 20 43  6c 65 61 72 20 61 6c 6c  |   6 - Clear all|
00003d80  20 64 61 74 61 22 0d 12  c0 27 f1 27 22 20 20 20  | data"...'.'"   |
00003d90  20 20 20 20 20 20 37 20  2d 20 4f 76 65 72 76 69  |      7 - Overvi|
00003da0  65 77 20 77 68 6f 6c 65  20 6d 61 70 22 0d 12 ca  |ew whole map"...|
00003db0  26 f1 27 22 20 20 20 20  20 20 20 20 20 38 20 2d  |&.'"         8 -|
00003dc0  20 4f 76 65 72 76 69 65  77 20 61 6c 6c 20 64 61  | Overview all da|
00003dd0  74 61 22 0d 12 d4 26 f1  27 27 27 22 20 20 20 20  |ta"...&.'''"    |
00003de0  20 20 20 20 20 39 20 2d  20 51 75 69 74 20 21 52  |     9 - Quit !R|
00003df0  61 69 6c 45 64 50 72 6f  22 0d 12 de 1d f1 27 27  |ailEdPro".....''|
00003e00  27 22 20 20 20 20 20 20  20 20 20 53 65 6c 65 63  |'"         Selec|
00003e10  74 2e 2e 2e 2e 22 0d 12  e8 21 ef 35 3a f5 3a 6d  |t...."...!.5:.:m|
00003e20  24 3d be 3a fd a7 22 31  32 33 34 35 36 37 38 39  |$=.:.."123456789|
00003e30  22 2c 6d 24 29 3e 30 0d  12 f2 0b 5a 25 3d 30 3a  |",m$)>0....Z%=0:|
00003e40  ef 34 0d 12 fc 0e e7 6d  24 3d 22 31 22 f2 75 5f  |.4.....m$="1".u_|
00003e50  0d 13 06 12 e7 6d 24 3d  22 32 22 f2 47 60 3a f2  |.....m$="2".G`:.|
00003e60  7a 5f 0d 13 10 0e e7 6d  24 3d 22 33 22 f2 65 5f  |z_.....m$="3".e_|
00003e70  0d 13 1a 0e e7 6d 24 3d  22 34 22 f2 56 5f 0d 13  |.....m$="4".V_..|
00003e80  24 0e e7 6d 24 3d 22 35  22 f2 51 60 0d 13 2e 0e  |$..m$="5".Q`....|
00003e90  e7 6d 24 3d 22 36 22 f2  63 60 0d 13 38 0e e7 6d  |.m$="6".c`..8..m|
00003ea0  24 3d 22 37 22 f2 68 60  0d 13 42 0e e7 6d 24 3d  |$="7".h`..B..m$=|
00003eb0  22 38 22 f2 69 60 0d 13  4c 55 e7 6d 24 3d 22 39  |"8".i`..LU.m$="9|
00003ec0  22 f1 27 27 22 20 20 51  75 69 74 2e 2e 20 41 72  |".''"  Quit.. Ar|
00003ed0  65 20 79 6f 75 20 73 75  72 65 3f 20 59 2f 4e 22  |e you sure? Y/N"|
00003ee0  3a f5 3a 63 24 3d be 3a  fd a7 22 59 79 4e 6e 22  |:.:c$=.:.."YyNn"|
00003ef0  2c 63 24 29 3e 30 3a e7  63 24 3d 22 59 22 84 63  |,c$)>0:.c$="Y".c|
00003f00  24 3d 22 79 22 20 67 60  25 3d 32 0d 13 56 0a fd  |$="y" g`%=2..V..|
00003f10  67 60 25 3e 30 0d 13 6a  05 e1 0d 13 7e 08 dd f2  |g`%>0..j....~...|
00003f20  45 60 0d 13 88 29 63 24  3d 22 31 32 33 34 35 36  |E`...)c$="123456|
00003f30  37 38 22 3a 49 60 24 3d  c0 63 24 2c 62 5f 25 29  |78":I`$=.c$,b_%)|
00003f40  3a 49 60 25 3d bb 28 49  60 24 29 0d 13 92 05 e1  |:I`%=.(I`$).....|
00003f50  0d 13 a6 08 dd f2 79 5f  0d 13 b0 09 64 5f 25 3d  |......y_....d_%=|
00003f60  30 0d 13 ba 19 e3 58 3d  56 5f 25 b8 6d 25 2d 31  |0.....X=V_%.m%-1|
00003f70  3a 64 5f 25 3d 64 5f 25  2b 31 0d 13 c4 20 e3 59  |:d_%=d_%+1... .Y|
00003f80  3d 31 b8 39 3a 4b 5f 25  28 64 5f 25 2c 59 29 3d  |=1.9:K_%(d_%,Y)=|
00003f90  4d 5f 25 28 58 2c 59 29  3a ed 0d 13 ce 05 ed 0d  |M_%(X,Y):.......|
00003fa0  13 d8 19 e3 58 3d 31 b8  62 5f 25 3a 59 3d a9 28  |....X=1.b_%:Y=.(|
00003fb0  44 24 28 58 29 29 2d 33  0d 13 e2 25 48 5f 24 28  |D$(X))-3...%H_$(|
00003fc0  58 29 3d c0 44 24 28 58  29 2c 59 29 3a 49 5f 24  |X)=.D$(X),Y):I_$|
00003fd0  28 58 29 3d c2 44 24 28  58 29 2c 33 29 0d 13 ec  |(X)=.D$(X),3)...|
00003fe0  05 ed 0d 13 f6 09 64 5f  25 3d 30 0d 14 00 19 e3  |......d_%=0.....|
00003ff0  58 3d 56 5f 25 b8 6d 25  2d 31 3a 64 5f 25 3d 64  |X=V_%.m%-1:d_%=d|
00004000  5f 25 2b 31 0d 14 0a 32  4e 5f 24 28 64 5f 25 29  |_%+1...2N_$(d_%)|
00004010  3d c0 44 24 28 58 29 2c  a9 28 44 24 28 58 29 29  |=.D$(X),.(D$(X))|
00004020  2d 33 29 3a 4f 5f 24 28  64 5f 25 29 3d c2 44 24  |-3):O_$(d_%)=.D$|
00004030  28 58 29 2c 33 29 0d 14  14 17 e7 44 24 28 58 29  |(X),3).....D$(X)|
00004040  3d 22 22 20 64 5f 25 3d  64 5f 25 2d 31 0d 14 1e  |="" d_%=d_%-1...|
00004050  05 ed 0d 14 28 0c 6d 25  3d 64 5f 25 2b 31 0d 14  |....(.m%=d_%+1..|
00004060  32 05 e1 0d 14 46 0c dd  f2 4c 60 28 63 25 29 0d  |2....F...L`(c%).|
00004070  14 5a 3f 61 3d 47 5f 25  28 63 25 2c 31 29 3a 62  |.Z?a=G_%(c%,1):b|
00004080  3d 47 5f 25 28 63 25 2c  32 29 3a 64 3d 47 5f 25  |=G_%(c%,2):d=G_%|
00004090  28 63 25 2c 37 29 3a 65  3d 47 5f 25 28 63 25 2c  |(c%,7):e=G_%(c%,|
000040a0  38 29 3a 42 24 3d 46 5f  24 28 61 2c 62 29 0d 14  |8):B$=F_$(a,b)..|
000040b0  5b 5d f2 66 5f 3a f2 74  3a f1 22 45 6e 74 72 79  |[].f_:.t:."Entry|
000040c0  2d 73 79 6d 62 6f 6c 20  6f 66 20 65 6e 74 72 79  |-symbol of entry|
000040d0  20 2d 22 3b 63 25 3b 22  2d 20 69 73 20 73 65 6c  | -";c%;"- is sel|
000040e0  65 63 74 65 64 3b 22 27  27 22 70 6c 61 63 65 20  |ected;"''"place |
000040f0  69 74 20 61 74 20 74 68  65 20 6e 65 77 20 63 6f  |it at the new co|
00004100  6f 72 64 69 6e 61 74 65  20 22 3b 0d 14 64 07 f2  |ordinate ";..d..|
00004110  59 60 0d 14 65 14 e7 28  41 25 2b 53 5f 25 29 3d  |Y`..e..(A%+S_%)=|
00004120  30 20 41 25 3d 31 0d 14  66 19 e7 28 41 25 2b 53  |0 A%=1..f..(A%+S|
00004130  5f 25 29 3d 31 32 30 20  41 25 3d 41 25 2d 31 0d  |_%)=120 A%=A%-1.|
00004140  14 6e 39 46 5f 24 28 61  2c 62 29 3d 22 30 30 22  |.n9F_$(a,b)="00"|
00004150  3a 46 5f 24 28 64 2c 65  29 3d 22 30 30 22 3a 46  |:F_$(d,e)="00":F|
00004160  5f 24 28 41 25 2b 53 5f  25 2c 42 25 2b 54 5f 25  |_$(A%+S_%,B%+T_%|
00004170  29 3d 42 24 3a f2 73 5f  0d 14 78 26 f2 6e 5f 28  |)=B$:.s_..x&.n_(|
00004180  63 25 29 3a f2 66 5f 3a  6b 5f 25 3d 91 2b 33 30  |c%):.f_:k_%=.+30|
00004190  3a f5 3a fd 91 3e 6b 5f  25 3a 5a 25 3d 30 0d 14  |:.:..>k_%:Z%=0..|
000041a0  82 32 f1 27 27 22 50 72  65 73 73 20 61 20 6b 65  |.2.''"Press a ke|
000041b0  79 20 74 6f 20 63 6f 6e  74 69 6e 75 65 20 20 22  |y to continue  "|
000041c0  3a 63 24 3d be 3a ef 32  36 3a fb 31 34 36 3a db  |:c$=.:.26:.146:.|
000041d0  0d 14 8c 05 e1 0d 14 a0  0c dd f2 4d 60 28 63 25  |...........M`(c%|
000041e0  29 0d 14 aa 35 fb 31 33  31 3a fb 37 39 3a f1 27  |)...5.131:.79:.'|
000041f0  27 22 52 65 6d 6f 76 65  20 45 6e 74 72 79 3a 20  |'"Remove Entry: |
00004200  22 3b 48 5f 24 28 63 25  29 3b 22 20 22 3a fb 31  |";H_$(c%);" ":.1|
00004210  33 34 3a fb 36 33 0d 14  b4 30 f1 27 22 41 72 65  |34:.63...0.'"Are|
00004220  20 79 6f 75 20 73 75 72  65 3f 20 59 2f 4e 20 22  | you sure? Y/N "|
00004230  3a f5 3a 43 24 3d be 3a  fd a7 22 59 79 4e 6e 22  |:.:C$=.:.."YyNn"|
00004240  2c 43 24 29 3e 30 0d 14  be 13 e7 43 24 3d 22 4e  |,C$)>0.....C$="N|
00004250  22 84 43 24 3d 22 6e 22  e1 0d 14 c8 3f 46 5f 24  |".C$="n"....?F_$|
00004260  28 47 5f 25 28 63 25 2c  31 29 2c 47 5f 25 28 63  |(G_%(c%,1),G_%(c|
00004270  25 2c 32 29 29 3d 22 30  30 22 3a 46 5f 24 28 47  |%,2))="00":F_$(G|
00004280  5f 25 28 63 25 2c 37 29  2c 47 5f 25 28 63 25 2c  |_%(c%,7),G_%(c%,|
00004290  38 29 29 3d 22 30 30 22  0d 14 d2 0f e3 78 3d 63  |8))="00".....x=c|
000042a0  25 b8 62 5f 25 2d 31 0d  14 dc 40 48 5f 24 28 78  |%.b_%-1...@H_$(x|
000042b0  29 3d 48 5f 24 28 78 2b  31 29 3a 49 5f 24 28 78  |)=H_$(x+1):I_$(x|
000042c0  29 3d 49 5f 24 28 78 2b  31 29 3a e3 79 3d 31 b8  |)=I_$(x+1):.y=1.|
000042d0  39 3a 47 5f 25 28 78 2c  79 29 3d 47 5f 25 28 78  |9:G_%(x,y)=G_%(x|
000042e0  2b 31 2c 79 29 3a ed 0d  14 e6 05 ed 0d 14 f0 31  |+1,y):.........1|
000042f0  48 5f 24 28 62 5f 25 29  3d 22 22 3a 49 5f 24 28  |H_$(b_%)="":I_$(|
00004300  62 5f 25 29 3d 22 22 3a  e3 79 3d 31 b8 39 3a 47  |b_%)="":.y=1.9:G|
00004310  5f 25 28 62 5f 25 2c 79  29 3d 30 3a ed 0d 14 fa  |_%(b_%,y)=0:....|
00004320  1b 62 5f 25 3d 62 5f 25  2d 31 3a 56 5f 25 3d 56  |.b_%=b_%-1:V_%=V|
00004330  5f 25 2d 31 3a f2 45 60  0d 15 04 10 e7 4c 5f 25  |_%-1:.E`.....L_%|
00004340  28 31 2c 33 29 3e 30 8c  0d 15 0e 28 e3 78 3d 31  |(1,3)>0....(.x=1|
00004350  b8 58 5f 25 3a 4c 5f 25  28 78 2c 33 29 3d 49 60  |.X_%:L_%(x,3)=I`|
00004360  25 3a 4c 5f 25 28 78 2c  34 29 3d 49 60 25 3a ed  |%:L_%(x,4)=I`%:.|
00004370  0d 15 18 15 e3 78 3d 31  b8 64 5f 25 3a f2 46 60  |.....x=1.d_%:.F`|
00004380  28 78 29 3a ed 0d 15 22  05 cd 0d 15 2c 05 e1 0d  |(x):..."....,...|
00004390  15 40 08 dd f2 68 60 0d  15 4a 17 ef 32 34 2c 30  |.@...h`..J..24,0|
000043a0  3b 30 3b 31 32 37 39 3b  38 36 30 3b 3a da 0d 15  |;0;1279;860;:...|
000043b0  54 35 21 45 5f 25 3d 31  3a 45 5f 25 21 34 3d 31  |T5!E_%=1:E_%!4=1|
000043c0  3a 45 5f 25 21 38 3d 34  3a 45 5f 25 21 31 32 3d  |:E_%!8=4:E_%!12=|
000043d0  34 3a 53 24 3d 46 5f 24  28 31 2c 31 29 3a 6a 60  |4:S$=F_$(1,1):j`|
000043e0  3d 31 30 0d 15 5e 1f c8  99 32 36 34 30 30 30 2c  |=10..^...264000,|
000043f0  43 5f 25 2c 53 24 2c 2d  31 2c 2d 31 2c 44 5f 25  |C_%,S$,-1,-1,D_%|
00004400  2c 32 0d 15 68 14 e3 76  3d 30 b8 31 32 30 3a e3  |,2..h..v=0.120:.|
00004410  77 3d 30 b8 34 30 0d 15  72 1a 6b 60 3d 76 2a 6a  |w=0.40..r.k`=v*j|
00004420  60 2b 33 30 3a 6c 60 3d  77 2a 6a 60 2b 32 30 30  |`+30:l`=w*j`+200|
00004430  0d 15 7c 16 53 24 3d 46  5f 24 28 76 2c 77 29 3a  |..|.S$=F_$(v,w):|
00004440  6d 60 24 3d 53 24 0d 15  86 11 e7 c0 53 24 2c 31  |m`$=S$......S$,1|
00004450  29 3c 3e 22 39 22 8c 0d  15 90 24 c8 99 26 32 45  |)<>"9"....$..&2E|
00004460  2c 33 30 38 2c 43 5f 25  2c 53 24 2c 6b 60 2c 6c  |,308,C_%,S$,k`,l|
00004470  60 2c 30 2c 45 5f 25 2c  44 5f 25 0d 15 9a 05 cd  |`,0,E_%,D_%.....|
00004480  0d 15 a4 38 e7 c0 53 24  2c 31 29 3d 22 39 22 20  |...8..S$,1)="9" |
00004490  53 24 3d 22 30 30 22 3a  c8 99 26 32 45 2c 33 30  |S$="00":..&2E,30|
000044a0  38 2c 43 5f 25 2c 53 24  2c 6b 60 2c 6c 60 2c 30  |8,C_%,S$,k`,l`,0|
000044b0  2c 45 5f 25 2c 44 5f 25  0d 15 ae 07 ed 3a ed 0d  |,E_%,D_%.....:..|
000044c0  15 b8 39 ef 34 3a f2 74  3a 63 24 3d 22 22 3a f1  |..9.4:.t:c$="":.|
000044d0  27 27 22 20 20 20 20 50  72 65 73 73 20 61 6e 79  |''"    Press any|
000044e0  20 6b 65 79 20 74 6f 20  63 6f 6e 74 69 6e 75 65  | key to continue|
000044f0  2e 2e 22 3a 63 24 3d be  0d 15 c2 05 e1 0d 15 d6  |..":c$=.........|
00004500  08 dd f2 74 5f 0d 15 e0  4d f2 74 3a f1 27 22 20  |...t_...M.t:.'" |
00004510  4d 61 72 6b 20 74 68 65  20 62 6f 74 74 6f 6d 2d  |Mark the bottom-|
00004520  6c 65 66 74 20 6f 66 20  74 68 65 20 61 72 65 61  |left of the area|
00004530  20 74 6f 20 62 65 20 72  65 70 6c 61 63 65 64 22  | to be replaced"|
00004540  3a 6b 5f 25 3d 91 2b 35  30 3a f5 3a fd 91 3e 6b  |:k_%=.+50:.:..>k|
00004550  5f 25 0d 15 ea 29 42 24  3d 22 65 33 22 3a f2 59  |_%...)B$="e3":.Y|
00004560  60 3a 6e 60 25 3d 41 25  2b 53 5f 25 3a 6f 60 25  |`:n`%=A%+S_%:o`%|
00004570  3d 42 25 2b 54 5f 25 3a  f2 73 5f 0d 15 f4 48 f1  |=B%+T_%:.s_...H.|
00004580  27 22 20 4d 61 72 6b 20  74 68 65 20 74 6f 70 2d  |'" Mark the top-|
00004590  72 69 67 68 74 20 6f 66  20 74 68 65 20 61 72 65  |right of the are|
000045a0  61 20 74 6f 20 62 65 20  72 65 70 6c 61 63 65 64  |a to be replaced|
000045b0  22 3a 6b 5f 25 3d 91 2b  35 30 3a f5 3a fd 91 3e  |":k_%=.+50:.:..>|
000045c0  6b 5f 25 0d 15 fe 29 42  24 3d 22 65 34 22 3a f2  |k_%...)B$="e4":.|
000045d0  59 60 3a 70 60 25 3d 41  25 2b 53 5f 25 3a 71 60  |Y`:p`%=A%+S_%:q`|
000045e0  25 3d 42 25 2b 54 5f 25  3a f2 73 5f 0d 16 08 14  |%=B%+T_%:.s_....|
000045f0  e7 70 60 25 3e 31 32 30  20 70 60 25 3d 31 32 30  |.p`%>120 p`%=120|
00004600  0d 16 09 12 e7 71 60 25  3e 34 30 20 71 60 25 3d  |.....q`%>40 q`%=|
00004610  34 30 0d 16 12 62 e7 70  60 25 3c 6e 60 25 84 71  |40...b.p`%<n`%.q|
00004620  60 25 3c 6f 60 25 f1 27  22 20 50 72 6f 67 72 61  |`%<o`%.'" Progra|
00004630  6d 20 64 6f 65 73 6e 27  74 20 68 61 6e 64 6c 65  |m doesn't handle|
00004640  20 6e 65 67 61 74 69 76  65 20 62 6f 78 65 73 2e  | negative boxes.|
00004650  20 41 63 74 69 6f 6e 20  63 61 6e 63 65 6c 6c 65  | Action cancelle|
00004660  64 22 3a f2 6b 5f 28 32  30 29 3a 42 24 3d 22 30  |d":.k_(20):B$="0|
00004670  30 22 3a e1 0d 16 1c 48  f1 27 22 20 4d 61 72 6b  |0":....H.'" Mark|
00004680  20 74 68 65 20 6e 65 77  20 62 6f 74 74 6f 6d 2d  | the new bottom-|
00004690  6c 65 66 74 20 6f 66 20  74 68 65 20 61 72 65 61  |left of the area|
000046a0  20 73 65 6c 65 63 74 65  64 22 3a 6b 5f 25 3d 91  | selected":k_%=.|
000046b0  2b 35 30 3a f5 3a fd 91  3e 6b 5f 25 0d 16 26 25  |+50:.:..>k_%..&%|
000046c0  42 24 3d 22 65 33 22 3a  f2 59 60 3a 72 60 25 3d  |B$="e3":.Y`:r`%=|
000046d0  41 25 2b 53 5f 25 3a 73  60 25 3d 42 25 2b 54 5f  |A%+S_%:s`%=B%+T_|
000046e0  25 0d 16 27 22 e7 72 60  25 3e 3d 31 32 30 84 73  |%..'".r`%>=120.s|
000046f0  60 25 3e 3d 34 30 3a 42  24 3d 22 30 30 22 3a f2  |`%>=40:B$="00":.|
00004700  74 3a e1 0d 16 28 07 f2  73 5f 0d 16 30 2f e3 78  |t:...(..s_..0/.x|
00004710  3d 6e 60 25 b8 70 60 25  3a e3 79 3d 6f 60 25 b8  |=n`%.p`%:.y=o`%.|
00004720  71 60 25 3a 50 5f 24 28  78 2c 79 29 3d 46 5f 24  |q`%:P_$(x,y)=F_$|
00004730  28 78 2c 79 29 3a ed 3a  ed 0d 16 3a 2b e3 78 3d  |(x,y):.:...:+.x=|
00004740  6e 60 25 b8 70 60 25 3a  e3 79 3d 6f 60 25 b8 71  |n`%.p`%:.y=o`%.q|
00004750  60 25 3a 46 5f 24 28 78  2c 79 29 3d 22 30 30 22  |`%:F_$(x,y)="00"|
00004760  3a ed 3a ed 0d 16 44 20  e3 78 3d 6e 60 25 b8 70  |:.:...D .x=n`%.p|
00004770  60 25 3a 7a 25 3d 73 60  25 3a e3 79 3d 6f 60 25  |`%:z%=s`%:.y=o`%|
00004780  b8 71 60 25 0d 16 4e 27  e7 7a 25 3c 34 31 20 46  |.q`%..N'.z%<41 F|
00004790  5f 24 28 72 60 25 2c 7a  25 29 3d 50 5f 24 28 78  |_$(r`%,z%)=P_$(x|
000047a0  2c 79 29 3a 7a 25 3d 7a  25 2b 31 0d 16 58 18 ed  |,y):z%=z%+1..X..|
000047b0  3a e7 72 60 25 3c 31 32  30 20 72 60 25 3d 72 60  |:.r`%<120 r`%=r`|
000047c0  25 2b 31 0d 16 62 05 ed  0d 16 6c 12 f2 66 5f 3a  |%+1..b....l..f_:|
000047d0  f2 74 3a 42 24 3d 22 30  30 22 0d 16 76 05 e1 0d  |.t:B$="00"..v...|
000047e0  16 8a 08 dd f2 69 60 0d  16 94 11 ef 34 3a ef 32  |.....i`.....4:.2|
000047f0  36 3a fb 31 34 36 3a db  0d 16 9e 4c fb 31 33 31  |6:.146:....L.131|
00004800  3a fb 37 39 3a f1 27 22  20 20 20 20 44 41 54 41  |:.79:.'"    DATA|
00004810  20 4f 46 20 41 4c 4c 20  44 45 46 49 4e 45 44 20  | OF ALL DEFINED |
00004820  45 4e 54 52 59 50 4f 49  4e 54 53 20 41 4e 44 20  |ENTRYPOINTS AND |
00004830  53 54 41 54 49 4f 4e 53  2f 44 45 50 4f 54 53 20  |STATIONS/DEPOTS |
00004840  20 20 20 22 0d 16 a8 18  f1 27 22 20 20 20 20 45  |   ".....'"    E|
00004850  4e 54 52 59 50 4f 49 4e  54 53 20 22 0d 16 b2 5a  |NTRYPOINTS "...Z|
00004860  f1 27 22 20 20 20 20 4e  72 2e 3a 22 3b 8a 31 31  |.'"    Nr.:";.11|
00004870  29 3b 22 4e 61 6d 65 3a  22 3b 8a 32 36 29 3b 22  |);"Name:";.26);"|
00004880  43 6f 64 65 3a 22 3b 8a  33 34 29 3b 22 49 6e 74  |Code:";.34);"Int|
00004890  65 72 76 61 6c 3a 22 3b  8a 34 38 29 3b 22 45 6e  |erval:";.48);"En|
000048a0  74 72 79 3a 22 3b 8a 36  30 29 3b 22 45 78 69 74  |try:";.60);"Exit|
000048b0  3a 20 20 20 22 27 0d 16  bc 15 fb 31 34 36 3a fb  |:   "'.....146:.|
000048c0  36 33 3a e3 78 3d 31 b8  62 5f 25 0d 16 c6 07 f2  |63:.x=1.b_%.....|
000048d0  74 60 0d 16 d0 4c f1 27  22 20 20 20 20 20 22 3b  |t`...L.'"     ";|
000048e0  78 3b 8a 31 31 29 3b 48  5f 24 28 78 29 3b 8a 32  |x;.11);H_$(x);.2|
000048f0  37 29 3b 49 5f 24 28 78  29 3b 8a 33 35 29 3b 52  |7);I_$(x);.35);R|
00004900  5f 24 28 47 5f 25 28 78  2c 33 29 29 3b 8a 34 38  |_$(G_%(x,3));.48|
00004910  29 3b 75 60 24 3b 8a 36  30 29 3b 76 60 24 0d 16  |);u`$;.60);v`$..|
00004920  da 05 ed 0d 16 e4 42 f1  27 27 27 27 27 22 20 50  |......B.'''''" P|
00004930  72 65 73 73 20 43 20 74  6f 20 63 6f 6e 74 69 6e  |ress C to contin|
00004940  75 65 22 3a f2 6b 5f 28  32 30 29 3a 63 24 3d 22  |ue":.k_(20):c$="|
00004950  22 3a f5 3a 63 24 3d be  3a fd a7 22 43 63 22 2c  |":.:c$=.:.."Cc",|
00004960  63 24 29 3e 30 0d 16 ee  4e db 3a fb 31 33 31 3a  |c$)>0...N.:.131:|
00004970  fb 37 39 3a f1 27 22 20  20 20 20 44 41 54 41 20  |.79:.'"    DATA |
00004980  4f 46 20 41 4c 4c 20 44  45 46 49 4e 45 44 20 45  |OF ALL DEFINED E|
00004990  4e 54 52 59 50 4f 49 4e  54 53 20 41 4e 44 20 53  |NTRYPOINTS AND S|
000049a0  54 41 54 49 4f 4e 53 2f  44 45 50 4f 54 53 20 20  |TATIONS/DEPOTS  |
000049b0  20 20 22 0d 16 f8 1c f1  27 22 20 20 20 20 53 54  |  ".....'"    ST|
000049c0  41 54 49 4f 4e 53 2f 44  45 50 4f 54 53 20 22 0d  |ATIONS/DEPOTS ".|
000049d0  17 02 4a f1 27 22 20 20  20 20 4e 72 2e 3a 22 3b  |..J.'"    Nr.:";|
000049e0  8a 31 31 29 3b 22 4e 61  6d 65 3a 22 3b 8a 32 36  |.11);"Name:";.26|
000049f0  29 3b 22 43 6f 64 65 3a  22 3b 8a 33 34 29 3b 22  |);"Code:";.34);"|
00004a00  54 79 70 65 3a 22 3b 8a  34 38 29 3b 22 50 6c 61  |Type:";.48);"Pla|
00004a10  74 66 6f 72 6d 73 3a 22  27 0d 17 0c 15 fb 31 34  |tforms:"'.....14|
00004a20  36 3a fb 37 39 3a e3 78  3d 31 b8 64 5f 25 0d 17  |6:.79:.x=1.d_%..|
00004a30  16 07 f2 77 60 0d 17 20  4d f1 27 22 20 20 20 20  |...w`.. M.'"    |
00004a40  20 22 3b 78 3b 8a 31 31  29 3b 4e 5f 24 28 78 29  | ";x;.11);N_$(x)|
00004a50  3b 8a 32 37 29 3b 4f 5f  24 28 78 29 3b 8a 33 34  |;.27);O_$(x);.34|
00004a60  29 3b 78 60 24 3b 8a 34  39 29 3b 4b 5f 25 28 78  |);x`$;.49);K_%(x|
00004a70  2c 36 29 3b 22 20 2d 20  22 3b 4b 5f 25 28 78 2c  |,6);" - ";K_%(x,|
00004a80  37 29 0d 17 2a 05 ed 0d  17 34 42 f1 27 27 27 27  |7)..*....4B.''''|
00004a90  27 22 20 50 72 65 73 73  20 43 20 74 6f 20 63 6f  |'" Press C to co|
00004aa0  6e 74 69 6e 75 65 22 3a  f2 6b 5f 28 32 30 29 3a  |ntinue":.k_(20):|
00004ab0  63 24 3d 22 22 3a f5 3a  63 24 3d be 3a fd a7 22  |c$="":.:c$=.:.."|
00004ac0  43 63 22 2c 63 24 29 3e  30 0d 17 3e 0c e3 78 3d  |Cc",c$)>0..>..x=|
00004ad0  31 b8 64 5f 25 0d 17 48  4e db 3a fb 31 33 31 3a  |1.d_%..HN.:.131:|
00004ae0  fb 37 39 3a f1 27 22 20  20 20 20 44 41 54 41 20  |.79:.'"    DATA |
00004af0  4f 46 20 41 4c 4c 20 44  45 46 49 4e 45 44 20 45  |OF ALL DEFINED E|
00004b00  4e 54 52 59 50 4f 49 4e  54 53 20 41 4e 44 20 53  |NTRYPOINTS AND S|
00004b10  54 41 54 49 4f 4e 53 2f  44 45 50 4f 54 53 20 20  |TATIONS/DEPOTS  |
00004b20  20 20 22 0d 17 52 1d f1  27 22 20 20 20 20 53 54  |  "..R..'"    ST|
00004b30  41 54 49 4f 4e 53 2f 44  45 50 4f 54 53 20 22 27  |ATIONS/DEPOTS "'|
00004b40  0d 17 66 55 f1 22 20 20  20 20 4e 72 2e 3a 22 3b  |..fU."    Nr.:";|
00004b50  8a 31 31 29 3b 22 4e 61  6d 65 3a 22 3b 8a 32 36  |.11);"Name:";.26|
00004b60  29 3b 22 43 6f 64 65 3a  22 3b 8a 33 34 29 3b 22  |);"Code:";.34);"|
00004b70  54 79 70 65 3a 22 3b 8a  34 38 29 3b 22 50 6c 61  |Type:";.48);"Pla|
00004b80  74 66 6f 72 6d 73 3a 20  20 20 20 22 3a fb 31 34  |tforms:    ":.14|
00004b90  36 3a fb 37 39 0d 17 70  07 f2 77 60 0d 17 7a 53  |6:.79..p..w`..zS|
00004ba0  f1 27 22 20 20 20 20 20  22 3b 78 3b 8a 31 31 29  |.'"     ";x;.11)|
00004bb0  3b 4e 5f 24 28 78 29 3b  8a 32 37 29 3b 4f 5f 24  |;N_$(x);.27);O_$|
00004bc0  28 78 29 3b 8a 33 34 29  3b 78 60 24 3b 8a 34 38  |(x);.34);x`$;.48|
00004bd0  29 3b 4b 5f 25 28 78 2c  36 29 3b 22 20 2d 20 22  |);K_%(x,6);" - "|
00004be0  3b 4b 5f 25 28 78 2c 37  29 3b 22 22 27 27 27 0d  |;K_%(x,7);""'''.|
00004bf0  17 84 07 fb 36 33 0d 17  8e 18 e3 79 3d 4b 5f 25  |....63.....y=K_%|
00004c00  28 78 2c 36 29 b8 4b 5f  25 28 78 2c 37 29 0d 17  |(x,6).K_%(x,7)..|
00004c10  98 07 f2 79 60 0d 17 a2  72 f1 27 22 20 20 20 20  |...y`...r.'"    |
00004c20  50 6c 61 74 66 6f 72 6d  3a 20 22 3b 79 3b 8a 32  |Platform: ";y;.2|
00004c30  30 29 3b 22 54 72 61 69  6e 73 20 66 72 6f 6d 3a  |0);"Trains from:|
00004c40  20 22 3b 75 60 24 3b 8a  36 36 29 3b 22 3c 2d 20  | ";u`$;.66);"<- |
00004c50  22 3b 4c 5f 25 28 79 2c  33 29 3b 8a 32 30 29 3b  |";L_%(y,3);.20);|
00004c60  22 54 72 61 69 6e 73 20  74 6f 20 20 3a 20 22 3b  |"Trains to  : ";|
00004c70  76 60 24 3b 8a 36 36 29  3b 22 3c 2d 20 22 3b 4c  |v`$;.66);"<- ";L|
00004c80  5f 25 28 79 2c 34 29 0d  17 ac 05 ed 0d 17 b6 42  |_%(y,4)........B|
00004c90  f1 27 27 27 22 20 50 72  65 73 73 20 43 20 74 6f  |.'''" Press C to|
00004ca0  20 63 6f 6e 74 69 6e 75  65 22 27 27 3a f2 6b 5f  | continue"'':.k_|
00004cb0  28 32 30 29 3a 63 24 3d  22 22 3a f5 3a 63 24 3d  |(20):c$="":.:c$=|
00004cc0  be 3a fd a7 22 43 63 22  2c 63 24 29 3e 30 0d 17  |.:.."Cc",c$)>0..|
00004cd0  c0 05 ed 0d 17 ca 05 e1  0d 17 de 16 dd f2 74 60  |..............t`|
00004ce0  3a 75 60 24 3d 22 22 3a  76 60 24 3d 22 22 0d 17  |:u`$="":v`$=""..|
00004cf0  e8 0a e3 79 3d 31 b8 33  0d 17 f2 2c e7 a7 c3 28  |...y=1.3...,...(|
00004d00  47 5f 25 28 78 2c 36 29  29 2c c3 28 79 29 29 3e  |G_%(x,6)),.(y))>|
00004d10  30 20 75 60 24 3d 75 60  24 2b 51 5f 24 28 79 29  |0 u`$=u`$+Q_$(y)|
00004d20  2b 22 2f 22 0d 17 fc 11  ed 3a c2 75 60 24 2c 31  |+"/".....:.u`$,1|
00004d30  29 3d 22 20 22 0d 18 06  0a e3 79 3d 31 b8 33 0d  |)=" ".....y=1.3.|
00004d40  18 10 2c e7 a7 c3 28 47  5f 25 28 78 2c 39 29 29  |..,...(G_%(x,9))|
00004d50  2c c3 28 79 29 29 3e 30  20 76 60 24 3d 76 60 24  |,.(y))>0 v`$=v`$|
00004d60  2b 51 5f 24 28 79 29 2b  22 2f 22 0d 18 1a 11 ed  |+Q_$(y)+"/".....|
00004d70  3a c2 76 60 24 2c 31 29  3d 22 20 22 0d 18 24 05  |:.v`$,1)=" "..$.|
00004d80  e1 0d 18 38 0f dd f2 77  60 3a 78 60 24 3d 22 22  |...8...w`:x`$=""|
00004d90  0d 18 42 1d e7 4b 5f 25  28 78 2c 38 29 3d 30 20  |..B..K_%(x,8)=0 |
00004da0  78 60 24 3d 22 53 74 61  74 69 6f 6e 22 0d 18 4c  |x`$="Station"..L|
00004db0  22 e7 4b 5f 25 28 78 2c  38 29 3d 31 20 78 60 24  |".K_%(x,8)=1 x`$|
00004dc0  3d 22 53 69 64 69 6e 67  2f 44 65 70 6f 74 22 0d  |="Siding/Depot".|
00004dd0  18 56 26 e7 4b 5f 25 28  78 2c 38 29 3d 31 80 4b  |.V&.K_%(x,8)=1.K|
00004de0  5f 25 28 78 2c 35 29 3d  33 20 78 60 24 3d 22 44  |_%(x,5)=3 x`$="D|
00004df0  65 70 6f 74 22 0d 18 60  05 e1 0d 18 74 16 dd f2  |epot"..`....t...|
00004e00  79 60 3a 75 60 24 3d 22  22 3a 76 60 24 3d 22 22  |y`:u`$="":v`$=""|
00004e10  0d 18 7e 0c e3 7a 3d 31  b8 62 5f 25 0d 18 88 2c  |..~..z=1.b_%...,|
00004e20  e7 a7 c3 28 4c 5f 25 28  79 2c 33 29 29 2c c3 28  |...(L_%(y,3)),.(|
00004e30  7a 29 29 3e 30 20 75 60  24 3d 75 60 24 2b 49 5f  |z))>0 u`$=u`$+I_|
00004e40  24 28 7a 29 2b 22 2d 22  0d 18 92 11 ed 3a c2 75  |$(z)+"-".....:.u|
00004e50  60 24 2c 31 29 3d 22 20  22 0d 18 9c 0c e3 7a 3d  |`$,1)=" ".....z=|
00004e60  31 b8 62 5f 25 0d 18 a6  2c e7 a7 c3 28 4c 5f 25  |1.b_%...,...(L_%|
00004e70  28 79 2c 34 29 29 2c c3  28 7a 29 29 3e 30 20 76  |(y,4)),.(z))>0 v|
00004e80  60 24 3d 76 60 24 2b 49  5f 24 28 7a 29 2b 22 2d  |`$=v`$+I_$(z)+"-|
00004e90  22 0d 18 b0 11 ed 3a c2  76 60 24 2c 31 29 3d 22  |".....:.v`$,1)="|
00004ea0  20 22 0d 18 ba 05 e1 0d  18 ce 0d dd f2 77 5f 28  | "...........w_(|
00004eb0  7a 60 25 29 0d 18 d8 63  53 5f 25 3d 30 3a 54 5f  |z`%)...cS_%=0:T_|
00004ec0  25 3d 30 3a 6d 25 3d 31  3a 61 25 3d 30 3a 55 5f  |%=0:m%=1:a%=0:U_|
00004ed0  25 3d 30 3a 56 5f 25 3d  31 3a 57 5f 3d 30 3a 58  |%=0:V_%=1:W_=0:X|
00004ee0  5f 25 3d 30 3a 59 5f 25  3d 30 3a 42 24 3d 22 30  |_%=0:Y_%=0:B$="0|
00004ef0  30 22 3a 5a 5f 25 3d 30  3a 62 5f 25 3d 30 3a 63  |0":Z_%=0:b_%=0:c|
00004f00  5f 24 3d 22 22 3a 64 5f  25 3d 30 3a 77 24 3d c4  |_$="":d_%=0:w$=.|
00004f10  33 32 2c 22 20 22 29 0d  18 e2 16 e3 58 3d 31 b8  |32," ").....X=1.|
00004f20  32 30 3a 44 24 28 58 29  3d 22 22 3a ed 0d 18 e3  |20:D$(X)="":....|
00004f30  16 e7 7a 60 25 3d 31 3a  61 5f 24 3d 22 61 20 6d  |..z`%=1:a_$="a m|
00004f40  61 70 22 0d 18 ec 2d e7  7a 60 25 3d 31 3a e3 59  |ap"...-.z`%=1:.Y|
00004f50  3d 30 b8 34 30 3a e3 58  3d 30 b8 31 32 30 3a 46  |=0.40:.X=0.120:F|
00004f60  5f 24 28 58 2c 59 29 3d  22 30 30 22 3a ed 3a ed  |_$(X,Y)="00":.:.|
00004f70  0d 18 f6 20 e3 58 3d 31  b8 38 3a e3 59 3d 31 b8  |... .X=1.8:.Y=1.|
00004f80  39 3a 47 5f 25 28 58 2c  59 29 3d 30 3a ed 3a ed  |9:G_%(X,Y)=0:.:.|
00004f90  0d 19 00 2c e3 58 3d 31  b8 32 30 3a e3 59 3d 31  |...,.X=1.20:.Y=1|
00004fa0  b8 39 3a 4d 5f 25 28 58  2c 59 29 3d 30 3a 4b 5f  |.9:M_%(X,Y)=0:K_|
00004fb0  25 28 58 2c 59 29 3d 30  3a ed 3a ed 0d 19 0a 23  |%(X,Y)=0:.:....#|
00004fc0  e3 58 3d 31 b8 33 30 3a  4c 5f 25 28 58 2c 33 29  |.X=1.30:L_%(X,3)|
00004fd0  3d 30 3a 4c 5f 25 28 58  2c 34 29 3d 30 3a ed 0d  |=0:L_%(X,4)=0:..|
00004fe0  19 14 20 e3 58 3d 31 b8  38 3a 48 5f 24 28 58 29  |.. .X=1.8:H_$(X)|
00004ff0  3d 22 22 3a 49 5f 24 28  58 29 3d 22 22 3a ed 0d  |="":I_$(X)="":..|
00005000  19 1e 21 e3 58 3d 31 b8  32 30 3a 4e 5f 24 28 58  |..!.X=1.20:N_$(X|
00005010  29 3d 22 22 3a 4f 5f 24  28 58 29 3d 22 22 3a ed  |)="":O_$(X)="":.|
00005020  0d 19 28 05 e1 0d 19 3c  14 dd f2 4e 60 28 63 25  |..(....<...N`(c%|
00005030  29 3a f2 6b 5f 28 32 30  29 0d 19 46 24 fb 37 39  |):.k_(20)..F$.79|
00005040  3a f1 27 27 48 5f 24 28  63 25 29 3b 22 20 20 20  |:.''H_$(c%);"   |
00005050  22 3b 49 5f 24 28 63 25  29 3a fb 36 33 0d 19 50  |";I_$(c%):.63..P|
00005060  33 e8 27 27 22 57 68 61  74 20 69 73 20 74 68 65  |3.''"What is the|
00005070  20 6e 65 77 20 6e 61 6d  65 3f 20 22 63 24 3a e7  | new name? "c$:.|
00005080  63 24 3d 22 22 20 63 24  3d 48 5f 24 28 63 25 29  |c$="" c$=H_$(c%)|
00005090  0d 19 51 18 e7 a9 28 63  24 29 3e 31 32 20 63 24  |..Q...(c$)>12 c$|
000050a0  3d c0 63 24 2c 31 32 29  0d 19 5a 14 48 5f 24 28  |=.c$,12)..Z.H_$(|
000050b0  63 25 29 3d 63 24 3a 63  24 3d 22 22 0d 19 64 32  |c%)=c$:c$=""..d2|
000050c0  e8 27 22 57 68 61 74 20  69 73 20 74 68 65 20 6e  |.'"What is the n|
000050d0  65 77 20 63 6f 64 65 3f  20 22 63 24 3a e7 63 24  |ew code? "c$:.c$|
000050e0  3d 22 22 20 63 24 3d 49  5f 24 28 63 25 29 0d 19  |="" c$=I_$(c%)..|
000050f0  6e 14 49 5f 24 28 63 25  29 3d 63 24 3a 63 24 3d  |n.I_$(c%)=c$:c$=|
00005100  22 22 0d 19 78 05 e1 0d  19 8c 0e dd f2 50 60 3a  |""..x........P`:|
00005110  51 5f 25 3d 30 0d 19 96  19 e7 47 5f 25 28 63 25  |Q_%=0.....G_%(c%|
00005120  2c 65 25 29 3d 31 32 33  20 51 5f 25 3d 30 0d 19  |,e%)=123 Q_%=0..|
00005130  a0 17 e7 47 5f 25 28 63  25 2c 65 25 29 3d 31 20  |...G_%(c%,e%)=1 |
00005140  51 5f 25 3d 31 0d 19 aa  17 e7 47 5f 25 28 63 25  |Q_%=1.....G_%(c%|
00005150  2c 65 25 29 3d 32 20 51  5f 25 3d 32 0d 19 b4 17  |,e%)=2 Q_%=2....|
00005160  e7 47 5f 25 28 63 25 2c  65 25 29 3d 33 20 51 5f  |.G_%(c%,e%)=3 Q_|
00005170  25 3d 33 0d 19 be 18 e7  47 5f 25 28 63 25 2c 65  |%=3.....G_%(c%,e|
00005180  25 29 3d 31 32 20 51 5f  25 3d 34 0d 19 c8 18 e7  |%)=12 Q_%=4.....|
00005190  47 5f 25 28 63 25 2c 65  25 29 3d 32 33 20 51 5f  |G_%(c%,e%)=23 Q_|
000051a0  25 3d 35 0d 19 d2 18 e7  47 5f 25 28 63 25 2c 65  |%=5.....G_%(c%,e|
000051b0  25 29 3d 31 33 20 51 5f  25 3d 36 0d 19 dc 05 e1  |%)=13 Q_%=6.....|
000051c0  0d 19 e7 08 dd f2 71 5f  0d 19 e8 51 46 5f 24 28  |......q_...QF_$(|
000051d0  41 25 2b 53 5f 25 2d 31  2c 42 25 2b 54 5f 25 29  |A%+S_%-1,B%+T_%)|
000051e0  3d 22 31 30 22 3a 46 5f  24 28 41 25 2b 53 5f 25  |="10":F_$(A%+S_%|
000051f0  2d 32 2c 42 25 2b 54 5f  25 29 3d 22 31 30 22 3a  |-2,B%+T_%)="10":|
00005200  46 5f 24 28 41 25 2b 53  5f 25 2d 33 2c 42 25 2b  |F_$(A%+S_%-3,B%+|
00005210  54 5f 25 29 3d 22 37 32  22 0d 19 e9 05 e1 0d 19  |T_%)="72".......|
00005220  eb 08 dd f2 72 5f 0d 19  ec 51 46 5f 24 28 41 25  |....r_...QF_$(A%|
00005230  2b 53 5f 25 2b 31 2c 42  25 2b 54 5f 25 29 3d 22  |+S_%+1,B%+T_%)="|
00005240  31 30 22 3a 46 5f 24 28  41 25 2b 53 5f 25 2b 32  |10":F_$(A%+S_%+2|
00005250  2c 42 25 2b 54 5f 25 29  3d 22 31 30 22 3a 46 5f  |,B%+T_%)="10":F_|
00005260  24 28 41 25 2b 53 5f 25  2b 33 2c 42 25 2b 54 5f  |$(A%+S_%+3,B%+T_|
00005270  25 29 3d 22 37 32 22 0d  19 ed 05 e1 0d ff        |%)="72".......|
0000527e