00000000  0d 00 0a 15 f4 20 3e 21  43 41 53 54 2f 43 42 2e  |..... >!CAST/CB.|
00000010  43 41 53 54 31 0d 00 14  1c f4 20 2a 2a 20 43 41  |CAST1..... ** CA|
00000020  53 54 20 31 20 43 41 53  48 20 42 4f 4f 4b 20 2a  |ST 1 CASH BOOK *|
00000030  2a 0d 00 1e 1c f4 20 2a  20 41 52 43 48 49 4d 45  |*..... * ARCHIME|
00000040  44 45 53 20 56 45 52 53  49 4f 4e 20 2a 0d 00 28  |DES VERSION *..(|
00000050  1c f4 20 2a 2a 20 42 59  20 56 49 4e 43 45 20 4d  |.. ** BY VINCE M|
00000060  2e 20 48 55 44 44 20 2a  2a 0d 00 32 1c f4 20 2a  |. HUDD **..2.. *|
00000070  2a 2a 20 4e 4f 57 20 20  53 48 41 52 45 57 41 52  |** NOW  SHAREWAR|
00000080  45 20 2a 2a 2a 0d 00 3c  0e ee 20 85 20 e5 20 8d  |E ***..<.. . . .|
00000090  54 7c 59 0d 00 46 0c eb  20 31 32 3a f4 2f 2f 0d  |T|Y..F.. 12:.//.|
000000a0  00 50 12 de 20 42 4b 20  33 35 39 37 30 3a f4 2f  |.P.. BK 35970:./|
000000b0  2f 0d 00 5a 11 de 20 44  54 20 31 30 38 30 3a f4  |/..Z.. DT 1080:.|
000000c0  2f 2f 0d 00 64 10 de 20  50 54 24 28 34 29 3a f4  |//..d.. PT$(4):.|
000000d0  2f 2f 0d 00 6e 0f 53 54  41 47 45 3d 30 3a f4 2f  |//..n.STAGE=0:./|
000000e0  2f 0d 00 78 55 ef 32 33  2c 31 37 2c 37 2c 36 2c  |/..xU.23,17,7,6,|
000000f0  38 3b 31 36 3b 30 3b 3a  e6 30 2c 36 3a ef 35 3a  |8;16;0;:.0,6:.5:|
00000100  ec 20 33 34 34 2c 31 30  32 33 3a f1 22 54 48 45  |. 344,1023:."THE|
00000110  20 43 41 53 54 20 43 41  53 48 20 42 4f 4f 4b 3a  | CAST CASH BOOK:|
00000120  20 53 48 41 52 45 57 41  52 45 20 56 45 52 53 49  | SHAREWARE VERSI|
00000130  4f 4e 22 3a ef 34 0d 00  82 0d f2 44 41 54 45 3a  |ON":.4.....DATE:|
00000140  f4 2f 2f 0d 00 8c 4c fb  20 36 3a f1 20 8a 31 37  |.//...L. 6:. .17|
00000150  2c 33 31 29 3b 22 57 72  69 74 74 65 6e 20 42 79  |,31);"Written By|
00000160  20 56 69 6e 63 65 20 4d  2e 20 48 75 64 64 20 6f  | Vince M. Hudd o|
00000170  66 20 53 6f 66 74 20 52  6f 63 6b 20 53 6f 66 74  |f Soft Rock Soft|
00000180  77 61 72 65 22 3b 3a f2  57 49 4e 44 28 32 29 0d  |ware";:.WIND(2).|
00000190  00 96 3a e6 30 2c 35 3a  c8 93 38 2c 34 38 2c 31  |..:.0,5:..8,48,1|
000001a0  32 36 33 2c 38 39 36 3a  c8 93 31 30 2c 34 38 2c  |263,896:..10,48,|
000001b0  31 32 35 39 2c 38 39 36  3a 86 20 38 2c 38 38 30  |1259,896:. 8,880|
000001c0  2c 31 32 35 39 2c 38 38  30 0d 00 a0 23 42 53 24  |,1259,880...#BS$|
000001d0  3d a4 48 28 42 4b 2c 38  29 3a 42 45 24 3d a4 48  |=.H(BK,8):BE$=.H|
000001e0  28 42 4b 2b 33 35 39 36  38 2c 38 29 0d 00 aa 22  |(BK+35968,8)..."|
000001f0  44 53 24 3d a4 48 28 44  54 2c 38 29 3a 44 45 24  |DS$=.H(DT,8):DE$|
00000200  3d a4 48 28 44 54 2b 31  30 37 38 2c 38 29 0d 00  |=.H(DT+1078,8)..|
00000210  b4 2d ff 28 22 4c 4f 41  44 20 3c 43 41 53 54 24  |.-.("LOAD <CAST$|
00000220  50 41 54 48 3e 2e 44 41  54 41 2e 43 41 53 54 31  |PATH>.DATA.CAST1|
00000230  44 41 54 41 20 22 2b 44  53 24 29 0d 00 be 2d e3  |DATA "+DS$)...-.|
00000240  20 54 52 59 3d 31 20 b8  20 33 3a e7 20 a4 50 28  | TRY=1 . 3:. .P(|
00000250  31 29 3d 31 20 8c 20 4f  4b 3d 31 3a 54 52 59 3d  |1)=1 . OK=1:TRY=|
00000260  33 3a 8b 20 4f 4b 3d 30  0d 00 c8 14 ed 3a e7 20  |3:. OK=0.....:. |
00000270  4f 4b 3d 30 20 8c 20 f2  54 45 52 4d 0d 00 d2 0f  |OK=0 . .TERM....|
00000280  53 54 41 47 45 3d 31 3a  f4 2f 2f 0d 00 dc 1a f2  |STAGE=1:.//.....|
00000290  4c 44 42 4b 28 30 2c 42  53 24 29 3a f2 54 49 54  |LDBK(0,BS$):.TIT|
000002a0  4c 3a f4 2f 2f 0d 00 e6  1e f2 4d 45 4e 55 3a 41  |L:.//.....MENU:A|
000002b0  24 3d a4 4b 28 22 30 22  2c 22 39 22 2c 32 29 3a  |$=.K("0","9",2):|
000002c0  f4 2f 2f 0d 00 f0 0b c8  8e 20 41 24 20 ca 0d 00  |.//...... A$ ...|
000002d0  fa 12 c9 20 22 31 22 3a  f2 4c 44 41 3a f4 2f 2f  |... "1":.LDA:.//|
000002e0  0d 01 04 12 c9 20 22 32  22 3a f2 53 41 56 3a f4  |..... "2":.SAV:.|
000002f0  2f 2f 0d 01 0e 12 c9 20  22 33 22 3a f2 4d 41 4b  |//..... "3":.MAK|
00000300  3a f4 2f 2f 0d 01 18 12  c9 20 22 34 22 3a f2 56  |:.//..... "4":.V|
00000310  49 45 3a f4 2f 2f 0d 01  22 12 c9 20 22 35 22 3a  |IE:.//..".. "5":|
00000320  f2 45 41 45 3a f4 2f 2f  0d 01 2c 12 c9 20 22 36  |.EAE:.//..,.. "6|
00000330  22 3a f2 43 4c 4d 3a f4  2f 2f 0d 01 36 12 c9 20  |":.CLM:.//..6.. |
00000340  22 37 22 3a f2 45 41 43  3a f4 2f 2f 0d 01 40 12  |"7":.EAC:.//..@.|
00000350  c9 20 22 38 22 3a f2 45  47 49 3a f4 2f 2f 0d 01  |. "8":.EGI:.//..|
00000360  4a 12 c9 20 22 39 22 3a  f2 45 4c 49 3a f4 2f 2f  |J.. "9":.ELI:.//|
00000370  0d 01 54 13 c9 20 22 30  22 3a f2 54 45 52 4d 3a  |..T.. "0":.TERM:|
00000380  f4 2f 2f 0d 01 5e 05 cb  0d 01 68 0e e5 20 8d 64  |.//..^....h.. .d|
00000390  66 40 3a f4 2f 2f 0d 01  72 09 e0 3a f4 2f 2f 0d  |f@:.//..r..:.//.|
000003a0  01 7c 22 dd 20 a4 48 28  56 2c 4c 29 3d c2 22 30  |.|". .H(V,L)=."0|
000003b0  30 30 30 30 30 30 30 22  2b c3 7e 28 56 29 2c 4c  |0000000"+.~(V),L|
000003c0  29 0d 01 86 14 dd f2 4c  44 42 4b 28 42 2c 41 24  |)......LDBK(B,A$|
000003d0  29 3a f4 2f 2f 0d 01 90  37 ff 28 22 4c 4f 41 44  |):.//...7.("LOAD|
000003e0  20 3c 43 41 53 54 24 50  41 54 48 3e 2e 42 4f 4f  | <CAST$PATH>.BOO|
000003f0  4b 53 2e 43 41 53 54 5f  31 5f 22 2b c2 c3 28 42  |KS.CAST_1_"+..(B|
00000400  29 2c 31 29 2b 22 20 22  2b 41 24 29 0d 01 9a 09  |),1)+" "+A$)....|
00000410  e1 3a f4 2f 2f 0d 01 a4  0e dd f2 44 41 54 45 3a  |.:.//......DATE:|
00000420  f4 2f 2f 0d 01 ae 1e 44  31 24 3d c1 91 24 2c 35  |.//....D1$=..$,5|
00000430  2c 32 29 3a 44 33 24 3d  c1 91 24 2c 31 34 2c 32  |,2):D3$=..$,14,2|
00000440  29 0d 01 b8 4b 44 32 24  3d c2 22 30 30 22 2b c3  |)...KD2$=."00"+.|
00000450  28 28 a7 22 4a 61 6e 46  65 62 4d 61 72 41 70 72  |((."JanFebMarApr|
00000460  4d 61 79 4a 75 6e 4a 75  6c 41 75 67 53 65 70 4f  |MayJunJulAugSepO|
00000470  63 74 4e 6f 76 44 65 63  22 2c c1 91 24 2c 38 2c  |ctNovDec",..$,8,|
00000480  33 29 29 2b 32 29 2f 33  29 2c 32 29 0d 01 c2 09  |3))+2)/3),2)....|
00000490  e1 3a f4 2f 2f 0d 01 cc  0f dd 20 a4 50 28 54 29  |.:.//..... .P(T)|
000004a0  3a f4 2f 2f 0d 01 d6 06  3d 31 0d 01 e0 24 db 3a  |:.//....=1...$.:|
000004b0  fb 20 37 3a f1 27 27 22  45 4e 54 45 52 20 50 41  |. 7:.''"ENTER PA|
000004c0  53 53 57 4f 52 44 3a 20  22 3b 3a fb 20 34 0d 01  |SSWORD: ";:. 4..|
000004d0  ea 14 e7 20 54 3d 32 20  8c 20 8d 54 52 42 3a f4  |... T=2 . .TRB:.|
000004e0  2f 2f 0d 01 f4 2d 58 24  3d 22 22 3a e3 20 41 3d  |//...-X$="":. A=|
000004f0  44 54 2b 31 30 32 34 20  b8 20 44 54 2b 31 30 32  |DT+1024 . DT+102|
00000500  39 3a 58 24 3d 58 24 2b  bd 28 3f 41 29 3a ed 0d  |9:X$=X$+.(?A):..|
00000510  01 fe 2f 50 24 3d 22 22  3a e3 20 41 3d 31 20 b8  |../P$="":. A=1 .|
00000520  20 36 3a 50 24 3d 50 24  2b a4 4b 28 22 41 22 2c  | 6:P$=P$+.K("A",|
00000530  22 5a 22 2c 31 29 3a f1  22 2a 22 3b 3a ed 0d 02  |"Z",1):."*";:...|
00000540  08 15 e7 20 50 24 3d 58  24 20 8c 20 3d 31 20 8b  |... P$=X$ . =1 .|
00000550  20 3d 30 0d 02 12 2f 58  24 3d 22 22 3a e3 20 41  | =0.../X$="":. A|
00000560  3d 42 4b 2b 33 35 39 35  34 20 b8 20 42 4b 2b 33  |=BK+35954 . BK+3|
00000570  35 39 35 39 3a 58 24 3d  58 24 2b bd 28 3f 41 29  |5959:X$=X$+.(?A)|
00000580  3a ed 0d 02 1c 2f 50 24  3d 22 22 3a e3 20 41 3d  |:..../P$="":. A=|
00000590  31 20 b8 20 36 3a 50 24  3d 50 24 2b a4 4b 28 22  |1 . 6:P$=P$+.K("|
000005a0  41 22 2c 22 5a 22 2c 31  29 3a f1 22 2a 22 3b 3a  |A","Z",1):."*";:|
000005b0  ed 0d 02 26 15 e7 20 50  24 3d 58 24 20 8c 20 3d  |...&.. P$=X$ . =|
000005c0  31 20 8b 20 3d 30 0d 02  30 18 dd 20 a4 4b 28 4c  |1 . =0..0.. .K(L|
000005d0  4c 24 2c 55 4c 24 2c 54  50 29 3a f4 2f 2f 0d 02  |L$,UL$,TP):.//..|
000005e0  3a 3e 4b 45 59 24 3d be  3a e7 20 4b 45 59 24 3e  |:>KEY$=.:. KEY$>|
000005f0  3d 22 61 22 20 80 20 4b  45 59 24 3c 3d 22 7a 22  |="a" . KEY$<="z"|
00000600  20 80 20 54 50 3d 31 20  8c 20 4b 45 59 24 3d bd  | . TP=1 . KEY$=.|
00000610  28 97 28 4b 45 59 24 29  2d 33 32 29 0d 02 44 25  |(.(KEY$)-32)..D%|
00000620  e7 20 4b 45 59 24 3c 4c  4c 24 20 84 20 4b 45 59  |. KEY$<LL$ . KEY|
00000630  24 3e 55 4c 24 20 8c 20  ef 37 3a e5 20 8d 54 7a  |$>UL$ . .7:. .Tz|
00000640  42 0d 02 4e 0d 3d 4b 45  59 24 3a f4 2f 2f 0d 02  |B..N.=KEY$:.//..|
00000650  58 11 dd f2 57 49 4e 44  28 5a 29 3a f4 2f 2f 0d  |X...WIND(Z):.//.|
00000660  02 62 0a c8 8e 20 5a 20  ca 0d 02 6c 1b c9 20 31  |.b... Z ...l.. 1|
00000670  3a ef 32 36 2c 32 38 2c  32 2c 33 2c 37 38 2c 33  |:.26,28,2,3,78,3|
00000680  3a f4 2f 2f 0d 02 76 1c  c9 20 32 3a ef 32 36 2c  |:.//..v.. 2:.26,|
00000690  32 38 2c 32 2c 32 39 2c  37 37 2c 35 3a f4 2f 2f  |28,2,29,77,5:.//|
000006a0  0d 02 80 05 cb 0d 02 8a  09 e1 3a f4 2f 2f 0d 02  |..........:.//..|
000006b0  94 0e dd f2 54 49 54 4c  3a f4 2f 2f 0d 02 9e 12  |....TITL:.//....|
000006c0  f2 57 49 4e 44 28 31 29  3a db 3a f4 2f 2f 0d 02  |.WIND(1):.:.//..|
000006d0  a8 2d fb 32 3a f1 22 20  44 41 54 45 3a 20 22 3b  |.-.2:." DATE: ";|
000006e0  3a fb 20 33 3a f1 20 44  31 24 3b 22 2f 22 3b 44  |:. 3:. D1$;"/";D|
000006f0  32 24 3b 22 2f 22 3b 44  33 24 3b 0d 02 b2 2b fb  |2$;"/";D3$;...+.|
00000700  32 3a f1 22 20 20 42 4f  4f 4b 3a 22 3b 3a fb 20  |2:."  BOOK:";:. |
00000710  33 3a f1 20 22 20 22 3b  28 42 4b 3f 33 35 39 34  |3:. " ";(BK?3594|
00000720  33 29 2d 34 38 3b 0d 02  bc 1f fb 32 3a f1 22 20  |3)-48;.....2:." |
00000730  20 54 49 54 4c 45 3a 20  22 3b 3a fb 20 33 3a 54  | TITLE: ";:. 3:T|
00000740  49 24 3d 22 22 0d 02 c6  2b e3 20 5a 3d 42 4b 2b  |I$=""...+. Z=BK+|
00000750  33 35 38 37 32 20 b8 20  42 4b 2b 33 35 39 31 31  |35872 . BK+35911|
00000760  3a 54 49 24 3d 54 49 24  2b bd 28 3f 5a 29 3a ed  |:TI$=TI$+.(?Z):.|
00000770  0d 02 d0 15 f1 20 54 49  24 3b 3a f2 57 49 4e 44  |..... TI$;:.WIND|
00000780  28 32 29 3a e1 0d 02 da  10 dd f2 4d 45 4e 55 3a  |(2):.......MENU:|
00000790  db 3a f4 2f 2f 0d 02 e4  36 ef 35 2c 32 33 2c 31  |.:.//...6.5,23,1|
000007a0  37 2c 37 2c 36 2c 38 3b  31 36 3b 30 3b 3a e6 30  |7,7,6,8;16;0;:.0|
000007b0  2c 36 3a ec 35 36 38 2c  38 33 39 3a f1 22 4d 41  |,6:.568,839:."MA|
000007c0  49 4e 20 4d 45 4e 55 22  3a ef 34 0d 02 ee 9c fb  |IN MENU":.4.....|
000007d0  20 31 3a f1 27 27 27 27  8a 32 34 29 3b 22 31 22  | 1:.''''.24);"1"|
000007e0  3b 3a fb 32 3a f1 22 2e  2e 2e 2e 2e 2e 2e 2e 2e  |;:.2:.".........|
000007f0  2e 2e 2e 2e 2e 2e 2e 2e  2e 4c 6f 61 64 20 42 6f  |.........Load Bo|
00000800  6f 6b 22 3a fb 20 31 3a  f1 27 8a 32 34 29 3b 22  |ok":. 1:.'.24);"|
00000810  32 22 3b 3a fb 32 3a f1  22 2e 2e 2e 2e 2e 2e 2e  |2";:.2:.".......|
00000820  2e 2e 2e 2e 2e 2e 2e 2e  2e 49 6e 66 6f 72 6d 61  |.........Informa|
00000830  74 69 6f 6e 22 3a fb 20  31 3a f1 27 8a 32 34 29  |tion":. 1:.'.24)|
00000840  3b 22 33 22 3b 3a fb 32  3a f1 22 2e 2e 2e 2e 2e  |;"3";:.2:.".....|
00000850  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 4d 61 6b 65 20 45  |..........Make E|
00000860  6e 74 72 69 65 73 22 0d  02 f8 99 fb 20 31 3a f1  |ntries"..... 1:.|
00000870  27 8a 32 34 29 3b 22 34  22 3b 3a fb 32 3a f1 22  |'.24);"4";:.2:."|
00000880  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000890  2e 2e 56 69 65 77 20 42  6f 6f 6b 22 3a fb 20 31  |..View Book":. 1|
000008a0  3a f1 27 8a 32 34 29 3b  22 35 22 3b 3a fb 32 3a  |:.'.24);"5";:.2:|
000008b0  f1 22 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 45 64 69 74  |."..........Edit|
000008c0  20 41 75 74 6f 20 45 6e  74 72 69 65 73 22 3a fb  | Auto Entries":.|
000008d0  20 31 3a f1 27 8a 32 34  29 3b 22 36 22 3b 3a fb  | 1:.'.24);"6";:.|
000008e0  32 3a f1 22 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |2:."............|
000008f0  2e 2e 2e 2e 43 6c 6f 73  65 20 4d 6f 6e 74 68 22  |....Close Month"|
00000900  0d 03 02 99 fb 20 31 3a  f1 27 8a 32 34 29 3b 22  |..... 1:.'.24);"|
00000910  37 22 3b 3a fb 32 3a f1  22 2e 2e 2e 2e 2e 2e 2e  |7";:.2:.".......|
00000920  2e 45 64 69 74 20 41 6e  61 6c 79 73 69 73 20 43  |.Edit Analysis C|
00000930  6f 64 65 73 22 3a fb 20  31 3a f1 27 8a 32 34 29  |odes":. 1:.'.24)|
00000940  3b 22 38 22 3b 3a fb 32  3a f1 22 2e 2e 2e 2e 45  |;"8";:.2:."....E|
00000950  64 69 74 20 47 6c 6f 62  61 6c 20 49 6e 66 6f 72  |dit Global Infor|
00000960  6d 61 74 69 6f 6e 22 3a  fb 20 31 3a f1 27 8a 32  |mation":. 1:.'.2|
00000970  34 29 3b 22 39 22 3b 3a  fb 32 3a f1 22 2e 2e 2e  |4);"9";:.2:."...|
00000980  2e 2e 45 64 69 74 20 4c  6f 63 61 6c 20 49 6e 66  |..Edit Local Inf|
00000990  6f 72 6d 61 74 69 6f 6e  22 0d 03 0c 37 fb 20 31  |ormation"...7. 1|
000009a0  3a f1 27 8a 32 34 29 3b  22 30 22 3b 3a fb 32 3a  |:.'.24);"0";:.2:|
000009b0  f1 22 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |."..............|
000009c0  2e 2e 2e 2e 2e 2e 2e 2e  2e 45 78 69 74 22 3a e1  |.........Exit":.|
000009d0  0d 03 16 3e dd f2 4c 44  41 3a db 3a ef 35 2c 32  |...>..LDA:.:.5,2|
000009e0  33 2c 31 37 2c 37 2c 36  2c 38 3b 31 36 3b 30 3b  |3,17,7,6,8;16;0;|
000009f0  3a e6 30 2c 36 3a ec 35  36 38 2c 38 33 39 3a f1  |:.0,6:.568,839:.|
00000a00  22 4c 4f 41 44 20 42 4f  4f 4b 22 3a ef 34 0d 03  |"LOAD BOOK":.4..|
00000a10  20 45 fb 20 32 3a f1 27  27 27 27 22 20 20 57 48  | E. 2:.''''"  WH|
00000a20  49 43 48 20 42 4f 4f 4b  20 44 4f 20 59 4f 55 20  |ICH BOOK DO YOU |
00000a30  57 49 53 48 20 54 4f 20  4c 4f 41 44 20 28 30 2d  |WISH TO LOAD (0-|
00000a40  39 29 20 3f 20 20 20 20  20 20 20 20 20 20 20 20  |9) ?            |
00000a50  20 22 3b 0d 03 2a 1d 42  24 3d a4 4b 28 22 30 22  | ";..*.B$=.K("0"|
00000a60  2c 22 39 22 2c 32 29 3a  fb 20 31 3a f1 20 42 24  |,"9",2):. 1:. B$|
00000a70  0d 03 34 09 f2 53 56 42  4b 0d 03 3e 1a f2 4c 44  |..4..SVBK..>..LD|
00000a80  42 4b 28 bb 28 42 24 29  2c 42 53 24 29 3a f2 54  |BK(.(B$),BS$):.T|
00000a90  49 54 4c 0d 03 48 05 e1  0d 03 52 0c dd 20 a4 59  |ITL..H....R.. .Y|
00000aa0  4e 28 5a 29 0d 03 5c 0b  2a 46 58 31 35 2c 31 0d  |N(Z)..\.*FX15,1.|
00000ab0  03 66 1a 41 24 3d be 3a  e7 20 41 24 3d 22 79 22  |.f.A$=.:. A$="y"|
00000ac0  20 8c 20 41 24 3d 22 59  22 0d 03 70 15 e7 20 41  | . A$="Y"..p.. A|
00000ad0  24 3d 22 6e 22 20 8c 20  41 24 3d 22 4e 22 0d 03  |$="n" . A$="N"..|
00000ae0  7a 23 e7 20 41 24 3c 3e  22 59 22 20 80 20 41 24  |z#. A$<>"Y" . A$|
00000af0  3c 3e 22 4e 22 20 8c 20  ef 37 3a e5 20 8d 44 66  |<>"N" . .7:. .Df|
00000b00  43 0d 03 84 07 3d 41 24  0d 03 8e 0a dd f2 53 56  |C....=A$......SV|
00000b10  42 4b 0d 03 98 43 ff 28  22 53 41 56 45 20 3c 43  |BK...C.("SAVE <C|
00000b20  41 53 54 24 50 41 54 48  3e 2e 42 4f 4f 4b 53 2e  |AST$PATH>.BOOKS.|
00000b30  43 41 53 54 5f 31 5f 22  2b bd 28 42 4b 3f 33 35  |CAST_1_"+.(BK?35|
00000b40  39 34 33 29 2b 22 20 22  2b 42 53 24 2b 22 20 22  |943)+" "+BS$+" "|
00000b50  2b 42 45 24 29 0d 03 a2  09 e1 3a f4 2f 2f 0d 03  |+BE$).....:.//..|
00000b60  ac 40 dd f2 53 41 56 3a  db 3a ef 35 2c 32 33 2c  |.@..SAV:.:.5,23,|
00000b70  31 37 2c 37 2c 36 2c 38  3b 31 36 3b 30 3b 3a e6  |17,7,6,8;16;0;:.|
00000b80  30 2c 36 3a ec 35 35 32  2c 38 33 39 3a f1 22 49  |0,6:.552,839:."I|
00000b90  4e 46 4f 52 4d 41 54 49  4f 4e 22 3a ef 34 0d 03  |NFORMATION":.4..|
00000ba0  b6 ec f1 27 27 27 22 54  68 69 73 20 69 73 20 54  |...'''"This is T|
00000bb0  68 65 20 43 41 53 54 20  43 61 73 68 20 42 6f 6f  |he CAST Cash Boo|
00000bc0  6b 2c 20 77 72 69 74 74  65 6e 20 62 79 20 56 69  |k, written by Vi|
00000bd0  6e 63 65 20 4d 2e 20 48  75 64 64 20 6f 66 20 53  |nce M. Hudd of S|
00000be0  6f 66 74 20 52 6f 63 6b  20 53 6f 66 74 77 61 72  |oft Rock Softwar|
00000bf0  65 2e 22 27 27 22 54 68  65 20 70 72 6f 67 72 61  |e."''"The progra|
00000c00  6d 20 77 61 73 20 6f 72  69 67 69 6e 61 6c 6c 79  |m was originally|
00000c10  20 63 61 6c 6c 65 64 20  43 41 53 54 20 31 20 61  | called CAST 1 a|
00000c20  6e 64 20 69 6e 74 65 6e  64 65 64 20 61 73 20 74  |nd intended as t|
00000c30  68 65 20 66 69 72 73 74  20 69 6e 20 61 22 27 22  |he first in a"'"|
00000c40  73 65 72 69 65 73 20 6f  66 20 61 63 63 6f 75 6e  |series of accoun|
00000c50  74 69 6e 67 20 70 72 6f  67 72 61 6d 73 20 74 6f  |ting programs to|
00000c60  20 62 65 20 72 65 6c 65  61 73 65 64 20 66 6f 72  | be released for|
00000c70  20 74 68 65 20 41 72 63  68 69 6d 65 64 65 73 2e  | the Archimedes.|
00000c80  20 48 6f 77 65 76 65 72  2c 22 0d 03 c0 c1 f1 22  | However,"....."|
00000c90  74 68 65 72 65 20 61 72  65 20 6d 61 6e 79 20 77  |there are many w|
00000ca0  61 79 73 20 69 6e 20 77  68 69 63 68 20 74 68 65  |ays in which the|
00000cb0  20 70 72 6f 67 72 61 6d  20 63 61 6e 20 62 65 20  | program can be |
00000cc0  69 6d 70 72 6f 76 65 64  2c 20 61 6e 64 20 66 6f  |improved, and fo|
00000cd0  72 20 74 68 69 73 22 27  22 72 65 61 73 6f 6e 20  |r this"'"reason |
00000ce0  69 74 20 68 61 73 20 62  65 65 6e 20 64 65 63 69  |it has been deci|
00000cf0  64 65 64 20 74 68 61 74  20 43 41 53 54 20 31 2c  |ded that CAST 1,|
00000d00  20 61 6c 6f 6e 67 20 77  69 74 68 20 61 6e 6f 74  | along with anot|
00000d10  68 65 72 20 70 72 6f 67  72 61 6d 22 27 22 28 43  |her program"'"(C|
00000d20  41 53 54 4f 43 4b 29 2c  20 73 68 6f 75 6c 64 20  |ASTOCK), should |
00000d30  62 65 20 72 65 2d 69 73  73 75 65 64 20 61 73 20  |be re-issued as |
00000d40  73 68 61 72 65 77 61 72  65 2e 22 0d 03 ca e4 f1  |shareware.".....|
00000d50  27 22 59 6f 75 20 6d 61  79 20 68 61 76 65 20 61  |'"You may have a|
00000d60  63 71 75 69 72 65 64 20  74 68 69 73 20 70 72 6f  |cquired this pro|
00000d70  67 72 61 6d 20 64 69 72  65 63 74 6c 79 20 66 72  |gram directly fr|
00000d80  6f 6d 20 53 6f 66 74 20  52 6f 63 6b 20 53 6f 66  |om Soft Rock Sof|
00000d90  74 77 61 72 65 2c 20 69  6e 22 27 22 77 68 69 63  |tware, in"'"whic|
00000da0  68 20 63 61 73 65 20 79  6f 75 20 6e 65 65 64 20  |h case you need |
00000db0  72 65 61 64 20 6e 6f 20  66 75 72 74 68 65 72 3a  |read no further:|
00000dc0  20 50 72 65 73 73 20 3c  45 53 43 41 50 45 3e 20  | Press <ESCAPE> |
00000dd0  74 68 65 6e 20 3c 41 3e  2c 20 6f 74 68 65 72 77  |then <A>, otherw|
00000de0  69 73 65 20 79 6f 75 20  73 68 6f 75 6c 64 20 63  |ise you should c|
00000df0  6f 6e 73 69 64 65 72 20  72 65 67 69 73 74 65 72  |onsider register|
00000e00  69 6e 67 20 79 6f 75 72  20 75 73 65 20 77 69 74  |ing your use wit|
00000e10  68 20 53 6f 66 74 20 52  6f 63 6b 20 53 6f 66 74  |h Soft Rock Soft|
00000e20  77 61 72 65 2c 20 61 6c  74 68 6f 75 67 68 22 0d  |ware, although".|
00000e30  03 cf 27 f1 22 74 68 65  72 65 20 69 73 20 6e 6f  |..'."there is no|
00000e40  20 6f 62 6c 69 67 61 74  69 6f 6e 20 74 6f 20 64  | obligation to d|
00000e50  6f 20 73 6f 2e 22 0d 03  d4 e3 f1 27 22 52 65 67  |o so.".....'"Reg|
00000e60  69 73 74 72 61 74 69 6f  6e 20 63 6f 73 74 73 20  |istration costs |
00000e70  a3 35 2e 30 30 20 70 65  72 20 70 72 6f 67 72 61  |.5.00 per progra|
00000e80  6d 2c 20 6f 72 20 a3 31  32 2e 35 30 20 74 6f 20  |m, or .12.50 to |
00000e90  72 65 67 69 73 74 65 72  2f 70 75 72 63 68 61 73  |register/purchas|
00000ea0  65 20 61 6c 6c 22 27 22  74 68 72 65 65 20 53 6f  |e all"'"three So|
00000eb0  66 74 20 52 6f 63 6b 20  53 6f 66 74 77 61 72 65  |ft Rock Software|
00000ec0  20 73 68 61 72 65 77 61  72 65 20 70 72 6f 67 72  | shareware progr|
00000ed0  61 6d 73 20 74 6f 67 65  74 68 65 72 20 28 74 68  |ams together (th|
00000ee0  65 20 74 68 72 65 65 20  62 65 69 6e 67 20 74 68  |e three being th|
00000ef0  69 73 20 20 6f 6e 65 2c  20 74 68 65 20 73 74 6f  |is  one, the sto|
00000f00  63 6b 20 70 72 6f 67 72  61 6d 20 6d 65 6e 74 69  |ck program menti|
00000f10  6f 6e 65 64 20 61 62 6f  76 65 2c 20 61 6e 64 20  |oned above, and |
00000f20  61 20 73 69 6d 70 6c 65  20 4e 6f 6d 69 6e 61 6c  |a simple Nominal|
00000f30  20 4c 65 64 67 65 72 2e  22 0d 03 d9 9d f1 22 49  | Ledger."....."I|
00000f40  66 20 79 6f 75 20 70 75  72 63 68 61 73 65 20 6f  |f you purchase o|
00000f50  72 20 72 65 67 69 73 74  65 72 20 75 73 65 20 6f  |r register use o|
00000f60  66 20 6f 6e 6c 79 20 6f  6e 65 20 70 72 6f 67 72  |f only one progr|
00000f70  61 6d 20 79 6f 75 20 77  69 6c 6c 20 62 65 20 73  |am you will be s|
00000f80  75 70 70 6c 69 65 64 20  20 20 20 77 69 74 68 20  |upplied    with |
00000f90  75 6e 72 65 67 69 73 74  65 72 65 64 20 28 6e 6f  |unregistered (no|
00000fa0  20 69 6e 73 74 72 75 63  74 69 6f 6e 73 2c 20 65  | instructions, e|
00000fb0  74 63 29 20 63 6f 70 69  65 73 20 6f 66 20 74 68  |tc) copies of th|
00000fc0  65 20 6f 74 68 65 72 20  74 77 6f 20 70 72 6f 67  |e other two prog|
00000fd0  72 61 6d 73 2e 22 0d 03  de 1f fb 33 3a f1 27 27  |rams.".....3:.''|
00000fe0  8a 33 30 29 22 50 52 45  53 53 20 20 53 50 41 43  |.30)"PRESS  SPAC|
00000ff0  45 22 3a fb 32 0d 03 e8  23 f5 20 fd 20 a6 28 2d  |E":.2...#. . .(-|
00001000  39 39 29 3a f5 20 fd 20  ac 20 a6 28 2d 39 39 29  |99):. . . .(-99)|
00001010  3a 2a 46 58 31 35 2c 31  0d 03 e9 3a db 3a ef 35  |:*FX15,1...:.:.5|
00001020  2c 32 33 2c 31 37 2c 37  2c 36 2c 38 3b 31 36 3b  |,23,17,7,6,8;16;|
00001030  30 3b 3a e6 30 2c 36 3a  ec 35 35 32 2c 38 33 39  |0;:.0,6:.552,839|
00001040  3a f1 22 49 4e 46 4f 52  4d 41 54 49 4f 4e 22 3a  |:."INFORMATION":|
00001050  ef 34 0d 03 ea 43 f1 27  27 27 22 46 6f 72 20 74  |.4...C.'''"For t|
00001060  68 65 20 72 65 67 69 73  74 72 61 74 69 6f 6e 20  |he registration |
00001070  66 65 65 20 79 6f 75 20  77 69 6c 6c 20 72 65 63  |fee you will rec|
00001080  65 69 76 65 20 74 68 65  20 66 6f 6c 6c 6f 77 69  |eive the followi|
00001090  6e 67 3a 2d 22 0d 03 eb  bd f1 22 20 20 41 20 64  |ng:-"....."  A d|
000010a0  69 73 6b 20 63 6f 6e 74  61 69 6e 69 6e 67 20 77  |isk containing w|
000010b0  68 69 63 68 65 76 65 72  20 6f 66 20 74 68 65 20  |hichever of the |
000010c0  70 72 6f 67 72 61 6d 73  20 66 6f 72 20 77 68 69  |programs for whi|
000010d0  63 68 20 79 6f 75 20 68  61 76 65 20 70 61 69 64  |ch you have paid|
000010e0  22 27 22 20 20 49 6e 73  74 72 75 63 74 69 6f 6e  |"'"  Instruction|
000010f0  73 20 28 41 34 20 54 79  70 65 64 20 2d 20 6e 6f  |s (A4 Typed - no|
00001100  74 20 61 20 6d 61 6e 75  61 6c 29 20 66 6f 72 20  |t a manual) for |
00001110  74 68 6f 73 65 20 70 72  6f 67 72 61 6d 73 22 27  |those programs"'|
00001120  22 20 20 49 6e 66 6f 72  6d 61 74 69 6f 6e 20 72  |"  Information r|
00001130  65 67 61 72 64 69 6e 67  20 6f 74 68 65 72 20 53  |egarding other S|
00001140  6f 66 74 20 52 6f 63 6b  20 50 72 6f 64 75 63 74  |oft Rock Product|
00001150  73 22 0d 03 ec c6 f1 22  20 20 55 6e 72 65 67 69  |s"....."  Unregi|
00001160  73 74 65 72 65 64 20 63  6f 70 69 65 73 20 6f 66  |stered copies of|
00001170  20 74 68 65 20 70 72 6f  67 72 61 6d 73 20 66 6f  | the programs fo|
00001180  72 20 77 68 69 63 68 20  6e 6f 20 70 61 79 6d 65  |r which no payme|
00001190  6e 74 20 68 61 73 20 62  65 65 6e 20 72 65 63 65  |nt has been rece|
000011a0  69 76 65 64 20 20 28 6d  65 61 6e 69 6e 67 20 72  |ived  (meaning r|
000011b0  65 67 69 73 74 65 72 69  6e 67 20 6f 6e 65 20 70  |egistering one p|
000011c0  72 6f 67 72 61 6d 20 77  69 6c 6c 20 62 75 79 20  |rogram will buy |
000011d0  79 6f 75 20 61 6c 6c 20  74 68 72 65 65 20 2d 20  |you all three - |
000011e0  74 68 6f 75 67 68 20 77  69 74 68 6f 75 74 20 20  |though without  |
000011f0  20 20 69 6e 73 74 72 75  63 74 69 6f 6e 73 2c 20  |  instructions, |
00001200  65 74 63 2c 20 66 6f 72  20 74 68 65 20 6f 74 68  |etc, for the oth|
00001210  65 72 20 74 77 6f 2e 22  0d 03 ed 6d f1 22 20 20  |er two."...m."  |
00001220  61 6e 64 20 53 6f 66 74  20 52 6f 63 6b 20 53 6f  |and Soft Rock So|
00001230  66 74 77 61 72 65 20 77  69 6c 6c 20 61 6e 73 77  |ftware will answ|
00001240  65 72 20 61 6e 79 20 71  75 65 72 69 65 73 20 79  |er any queries y|
00001250  6f 75 20 68 61 76 65 20  72 65 67 61 72 64 69 6e  |ou have regardin|
00001260  67 20 74 68 65 20 20 20  20 20 20 20 70 72 6f 67  |g the       prog|
00001270  72 61 6d 73 20 28 62 79  20 70 6f 73 74 20 6f 6e  |rams (by post on|
00001280  6c 79 29 2e 22 0d 03 ee  b2 f1 22 41 64 64 69 74  |ly)."....."Addit|
00001290  69 6f 6e 61 6c 6c 79 2c  20 77 68 65 6e 20 74 68  |ionally, when th|
000012a0  65 20 6e 65 77 20 66 75  6c 6c 20 70 72 69 63 65  |e new full price|
000012b0  64 20 43 41 53 54 20 70  72 6f 67 72 61 6d 73 20  |d CAST programs |
000012c0  61 72 65 20 77 72 69 74  74 65 6e 20 28 65 73 74  |are written (est|
000012d0  2e 20 4d 61 79 2f 20 4a  75 6e 65 20 31 39 39 31  |. May/ June 1991|
000012e0  20 66 6f 72 20 74 68 65  20 66 69 72 73 74 29 20  | for the first) |
000012f0  72 65 67 69 73 74 65 72  65 64 20 73 68 61 72 65  |registered share|
00001300  77 61 72 65 20 75 73 65  72 73 20 77 69 6c 6c 20  |ware users will |
00001310  62 65 20 6f 66 66 65 72  65 64 20 74 68 65 6d 20  |be offered them |
00001320  61 74 20 61 20 64 69 73  63 6f 75 6e 74 65 64 20  |at a discounted |
00001330  70 72 69 63 65 2e 22 0d  03 ef 9e f1 27 22 59 6f  |price.".....'"Yo|
00001340  75 20 63 61 6e 20 72 65  67 69 73 74 65 72 20 62  |u can register b|
00001350  79 20 73 65 6e 64 69 6e  67 20 61 20 63 68 65 71  |y sending a cheq|
00001360  75 65 20 6f 72 20 50 2e  4f 2e 20 66 6f 72 20 65  |ue or P.O. for e|
00001370  69 74 68 65 72 20 a3 35  2e 30 30 20 74 6f 20 72  |ither .5.00 to r|
00001380  65 67 69 73 74 65 72 20  20 20 74 68 69 73 20 70  |egister   this p|
00001390  72 6f 67 72 61 6d 2c 20  6f 72 20 a3 31 32 2e 35  |rogram, or .12.5|
000013a0  30 20 74 6f 20 72 65 67  69 73 74 65 72 20 74 68  |0 to register th|
000013b0  69 73 20 61 6e 64 20 62  75 79 2f 72 65 67 69 73  |is and buy/regis|
000013c0  74 65 72 20 74 68 65 20  6f 74 68 65 72 73 2c 20  |ter the others, |
000013d0  74 6f 3a 2d 22 0d 03 f0  99 f1 27 22 20 20 20 20  |to:-".....'"    |
000013e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 53 6f  |              So|
000013f0  66 74 20 52 6f 63 6b 20  53 6f 66 74 77 61 72 65  |ft Rock Software|
00001400  22 27 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |"'"             |
00001410  20 20 20 20 20 31 32 34  20 4d 61 72 69 73 73 61  |     124 Marissa|
00001420  6c 20 52 6f 61 64 22 27  22 20 20 20 20 20 20 20  |l Road"'"       |
00001430  20 20 20 20 20 20 20 20  20 20 20 20 48 65 6e 62  |            Henb|
00001440  75 72 79 2c 20 42 72 69  73 74 6f 6c 22 27 22 20  |ury, Bristol"'" |
00001450  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001460  20 20 20 20 20 42 53 31  30 20 37 4e 50 22 0d 03  |     BS10 7NP"..|
00001470  f1 1f fb 33 3a f1 27 8a  33 30 29 22 50 52 45 53  |...3:.'.30)"PRES|
00001480  53 20 20 53 50 41 43 45  22 3b 3a fb 32 0d 03 f2  |S  SPACE";:.2...|
00001490  23 f5 20 fd 20 a6 28 2d  39 39 29 3a f5 20 fd 20  |#. . .(-99):. . |
000014a0  ac 20 a6 28 2d 39 39 29  3a 2a 46 58 31 35 2c 31  |. .(-99):*FX15,1|
000014b0  0d 03 fc 09 e1 3a f4 2f  2f 0d 04 06 0e dd f2 54  |.....:.//......T|
000014c0  45 52 4d 3a f4 2f 2f 0d  04 10 09 f2 53 56 42 4b  |ERM:.//.....SVBK|
000014d0  0d 04 1a 06 c8 98 0d 04  24 09 e0 3a f4 2f 2f 0d  |........$..:.//.|
000014e0  04 2e 12 dd 20 f2 45 41  43 3a 2a 46 58 31 35 2c  |.... .EAC:*FX15,|
000014f0  31 0d 04 38 3f db 3a ef  32 33 2c 31 37 2c 37 2c  |1..8?.:.23,17,7,|
00001500  36 2c 38 3b 31 36 3b 30  3b 35 3a e6 36 3a ec 34  |6,8;16;0;5:.6:.4|
00001510  38 38 2c 38 33 39 3a f1  22 45 44 49 54 20 41 4e  |88,839:."EDIT AN|
00001520  41 4c 59 53 49 53 20 43  4f 44 45 53 22 3a ef 34  |ALYSIS CODES":.4|
00001530  0d 04 42 89 fb 20 33 3a  f1 27 27 27 27 22 20 57  |..B.. 3:.''''" W|
00001540  48 49 43 48 20 43 4f 44  45 20 44 4f 20 59 4f 55  |HICH CODE DO YOU|
00001550  20 57 49 53 48 20 54 4f  20 43 48 41 4e 47 45 20  | WISH TO CHANGE |
00001560  28 41 2d 5a 29 20 3f 22  3a fb 20 35 3a f1 27 22  |(A-Z) ?":. 5:.'"|
00001570  20 54 79 70 65 20 74 68  65 20 6c 65 74 74 65 72  | Type the letter|
00001580  20 61 6e 64 20 70 72 65  73 73 20 52 45 54 55 52  | and press RETUR|
00001590  4e 2e 20 54 6f 20 6c 65  61 76 65 20 70 72 65 73  |N. To leave pres|
000015a0  73 20 52 45 54 55 52 4e  20 77 69 74 68 20 6e 6f  |s RETURN with no|
000015b0  20 6c 65 74 74 65 72 2e  22 0d 04 4c 33 fb 20 32  | letter."..L3. 2|
000015c0  3a e8 27 22 20 20 20 20  20 20 41 4e 41 4c 59 53  |:.'"      ANALYS|
000015d0  49 53 20 43 4f 44 45 3a  20 22 3b 41 24 3a e7 20  |IS CODE: ";A$:. |
000015e0  41 24 3d 22 22 20 8c 20  8d 64 76 44 0d 04 56 18  |A$="" . .dvD..V.|
000015f0  e7 20 a9 20 41 24 3e 31  20 8c 20 ef 37 3a e5 20  |. . A$>1 . .7:. |
00001600  8d 54 78 44 0d 04 60 28  e7 20 41 24 3e 3d 22 61  |.TxD..`(. A$>="a|
00001610  22 20 80 20 41 24 3c 3d  22 7a 22 20 8c 20 41 24  |" . A$<="z" . A$|
00001620  3d bd 28 97 28 41 24 29  2d 33 32 29 0d 04 6a 21  |=.(.(A$)-32)..j!|
00001630  e7 20 41 24 3c 22 41 22  20 84 20 41 24 3e 22 5a  |. A$<"A" . A$>"Z|
00001640  22 20 8c 20 ef 37 3a e5  20 8d 54 78 44 0d 04 74  |" . .7:. .TxD..t|
00001650  7a 43 4f 3d 97 28 41 24  29 2d 36 35 3a db 3a ef  |zCO=.(A$)-65:.:.|
00001660  32 33 2c 31 37 2c 37 2c  36 2c 38 3b 31 36 3b 30  |23,17,7,6,8;16;0|
00001670  3b 35 3a e6 36 3a ec 34  38 38 2c 38 33 39 3a f1  |;5:.6:.488,839:.|
00001680  22 45 44 49 54 20 41 4e  41 4c 59 53 49 53 20 43  |"EDIT ANALYSIS C|
00001690  4f 44 45 53 22 3a ef 34  3a fb 20 33 3a f1 27 27  |ODES":.4:. 3:.''|
000016a0  27 27 22 20 41 4e 41 4c  59 53 49 53 20 43 4f 44  |''" ANALYSIS COD|
000016b0  45 20 53 45 4c 45 43 54  45 44 3a 20 22 3b 3a fb  |E SELECTED: ";:.|
000016c0  20 31 3a f1 20 41 24 0d  04 7e 2f fb 20 33 3a f1  | 1:. A$..~/. 3:.|
000016d0  27 22 20 4d 41 49 4e 20  44 45 53 43 52 49 50 54  |'" MAIN DESCRIPT|
000016e0  49 4f 4e 3a 20 22 3b 3a  fb 20 32 3a f1 20 a4 47  |ION: ";:. 2:. .G|
000016f0  4d 41 28 43 4f 29 0d 04  88 be fb 20 35 3a f1 22  |MA(CO)..... 5:."|
00001700  20 54 79 70 65 20 69 6e  20 74 68 65 20 6e 65 77  | Type in the new|
00001710  20 64 65 73 63 72 69 70  74 69 6f 6e 20 61 6e 64  | description and|
00001720  20 70 72 65 73 73 20 52  45 54 55 52 4e 2e 20 4a  | press RETURN. J|
00001730  75 73 74 20 70 72 65 73  73 69 6e 67 20 52 45 54  |ust pressing RET|
00001740  55 52 4e 20 6c 65 61 76  65 73 20 20 74 68 65 20  |URN leaves  the |
00001750  63 75 72 72 65 6e 74 20  64 65 73 63 72 69 70 74  |current descript|
00001760  69 6f 6e 20 69 6e 74 61  63 74 2e 20 54 6f 20 64  |ion intact. To d|
00001770  65 6c 65 74 65 20 74 68  65 20 63 75 72 72 65 6e  |elete the curren|
00001780  74 20 64 65 73 63 72 69  70 74 69 6f 6e 20 74 79  |t description ty|
00001790  70 65 20 69 6e 20 61 20  73 6c 61 73 68 20 28 2f  |pe in a slash (/|
000017a0  29 20 61 6e 64 20 70 72  65 73 73 20 52 45 54 55  |) and press RETU|
000017b0  52 4e 2e 22 0d 04 92 7a  fb 20 32 3a f1 27 22 45  |RN."...z. 2:.'"E|
000017c0  4e 54 45 52 20 44 45 53  43 52 49 50 54 49 4f 4e  |NTER DESCRIPTION|
000017d0  3a 20 22 3b 3a fb 20 31  3a f1 22 2e 2e 2e 2e 2e  |: ";:. 1:.".....|
000017e0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
000017f0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 22 27 22 20 20  |..........."'"  |
00001800  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001810  20 22 3b bd 31 31 3b 3a  e8 22 22 4e 44 24 3a e7  | ";.11;:.""ND$:.|
00001820  20 4e 44 24 3d 22 22 20  8c 20 8d 74 70 44 0d 04  | ND$="" . .tpD..|
00001830  9c 1a e7 20 a9 20 4e 44  24 3e 33 32 20 8c 20 ef  |... . ND$>32 . .|
00001840  37 3a e5 20 8d 44 74 44  0d 04 a6 1f f2 53 4e 41  |7:. .DtD.....SNA|
00001850  43 28 43 4f 2c c0 4e 44  24 2b c4 33 32 2c 22 20  |C(CO,.ND$+.32," |
00001860  22 29 2c 33 32 29 29 0d  04 b0 6e db 3a ef 32 33  |"),32))...n.:.23|
00001870  2c 31 37 2c 37 2c 36 2c  38 3b 31 36 3b 30 3b 35  |,17,7,6,8;16;0;5|
00001880  3a e6 36 3a ec 34 38 38  2c 38 33 39 3a f1 22 45  |:.6:.488,839:."E|
00001890  44 49 54 20 41 4e 41 4c  59 53 49 53 20 43 4f 44  |DIT ANALYSIS COD|
000018a0  45 53 22 3a ef 34 3a fb  20 33 3a f1 27 27 27 27  |ES":.4:. 3:.''''|
000018b0  22 20 41 4e 41 4c 59 53  49 53 20 43 4f 44 45 20  |" ANALYSIS CODE |
000018c0  53 45 4c 45 43 54 45 44  3a 20 22 3b 3a fb 20 31  |SELECTED: ";:. 1|
000018d0  3a f1 20 41 24 0d 04 ba  30 fb 20 33 3a f1 27 22  |:. A$...0. 3:.'"|
000018e0  20 53 48 4f 52 54 20 44  45 53 43 52 49 50 54 49  | SHORT DESCRIPTI|
000018f0  4f 4e 3a 20 22 3b 3a fb  20 32 3a f1 20 a4 47 53  |ON: ";:. 2:. .GS|
00001900  41 28 43 4f 29 0d 04 c4  be fb 20 35 3a f1 22 20  |A(CO)..... 5:." |
00001910  54 79 70 65 20 69 6e 20  74 68 65 20 6e 65 77 20  |Type in the new |
00001920  64 65 73 63 72 69 70 74  69 6f 6e 20 61 6e 64 20  |description and |
00001930  70 72 65 73 73 20 52 45  54 55 52 4e 2e 20 4a 75  |press RETURN. Ju|
00001940  73 74 20 70 72 65 73 73  69 6e 67 20 52 45 54 55  |st pressing RETU|
00001950  52 4e 20 6c 65 61 76 65  73 20 20 74 68 65 20 63  |RN leaves  the c|
00001960  75 72 72 65 6e 74 20 64  65 73 63 72 69 70 74 69  |urrent descripti|
00001970  6f 6e 20 69 6e 74 61 63  74 2e 20 54 6f 20 64 65  |on intact. To de|
00001980  6c 65 74 65 20 74 68 65  20 63 75 72 72 65 6e 74  |lete the current|
00001990  20 64 65 73 63 72 69 70  74 69 6f 6e 20 74 79 70  | description typ|
000019a0  65 20 69 6e 20 61 20 73  6c 61 73 68 20 28 2f 29  |e in a slash (/)|
000019b0  20 61 6e 64 20 70 72 65  73 73 20 52 45 54 55 52  | and press RETUR|
000019c0  4e 2e 22 0d 04 ce 61 fb  20 32 3a f1 27 22 45 4e  |N."...a. 2:.'"EN|
000019d0  54 45 52 20 44 45 53 43  52 49 50 54 49 4f 4e 3a  |TER DESCRIPTION:|
000019e0  20 22 3b 3a fb 20 31 3a  f1 22 2e 2e 2e 2e 2e 2e  | ";:. 1:."......|
000019f0  2e 22 27 22 20 20 20 20  20 20 20 20 20 20 20 20  |."'"            |
00001a00  20 20 20 20 20 20 20 22  3b bd 31 31 3b 3a e8 22  |       ";.11;:."|
00001a10  22 4e 44 24 3a e7 20 4e  44 24 3d 22 22 20 8c 20  |"ND$:. ND$="" . |
00001a20  8d 64 6c 44 0d 04 d8 19  e7 20 a9 20 4e 44 24 3e  |.dlD..... . ND$>|
00001a30  37 20 8c 20 ef 37 3a e5  20 8d 74 70 44 0d 04 e2  |7 . .7:. .tpD...|
00001a40  1d f2 53 4e 53 43 28 43  4f 2c c0 4e 44 24 2b c4  |..SNSC(CO,.ND$+.|
00001a50  37 2c 22 20 22 29 2c 37  29 29 0d 04 ec 0a e5 20  |7," "),7))..... |
00001a60  8d 54 78 44 0d 04 f6 3f  db 3a ef 32 33 2c 31 37  |.TxD...?.:.23,17|
00001a70  2c 37 2c 36 2c 38 3b 31  36 3b 30 3b 35 3a e6 36  |,7,6,8;16;0;5:.6|
00001a80  3a ec 34 38 38 2c 38 33  39 3a f1 22 45 44 49 54  |:.488,839:."EDIT|
00001a90  20 41 4e 41 4c 59 53 49  53 20 43 4f 44 45 53 22  | ANALYSIS CODES"|
00001aa0  3a ef 34 0d 05 00 55 fb  20 33 3a f1 27 27 27 27  |:.4...U. 3:.''''|
00001ab0  22 20 44 4f 20 59 4f 55  20 52 45 51 55 49 52 45  |" DO YOU REQUIRE|
00001ac0  20 41 20 50 52 49 4e 54  45 44 20 4c 49 53 54 20  | A PRINTED LIST |
00001ad0  4f 46 20 41 4c 4c 20 54  48 45 20 41 4e 41 4c 59  |OF ALL THE ANALY|
00001ae0  53 49 53 20 43 4f 44 45  53 20 28 59 2f 4e 29 20  |SIS CODES (Y/N) |
00001af0  3f 20 22 3b 3a fb 20 31  0d 05 0a 23 41 24 3d a4  |? ";:. 1...#A$=.|
00001b00  59 4e 28 30 29 3a f1 20  41 24 3a e7 20 41 24 3d  |YN(0):. A$:. A$=|
00001b10  22 59 22 20 8c 20 f2 50  52 41 43 0d 05 32 08 f2  |"Y" . .PRAC..2..|
00001b20  53 56 47 0d 05 3c 09 e1  3a f4 2f 2f 0d 05 46 0e  |SVG..<..:.//..F.|
00001b30  dd 20 f2 53 56 47 3a f4  2f 2f 0d 05 50 35 ff 28  |. .SVG:.//..P5.(|
00001b40  22 53 41 56 45 20 3c 43  41 53 54 24 50 41 54 48  |"SAVE <CAST$PATH|
00001b50  3e 2e 44 41 54 41 2e 43  41 53 54 31 44 41 54 41  |>.DATA.CAST1DATA|
00001b60  20 22 2b 44 53 24 2b 22  20 22 2b 44 45 24 29 0d  | "+DS$+" "+DE$).|
00001b70  05 5a 09 e1 3a f4 2f 2f  0d 05 64 11 dd f2 45 47  |.Z..:.//..d...EG|
00001b80  49 3a 2a 46 58 31 35 2c  31 0d 05 6e 46 db 3a ef  |I:*FX15,1..nF.:.|
00001b90  35 2c 32 33 2c 31 37 2c  37 2c 36 2c 38 3b 31 36  |5,23,17,7,6,8;16|
00001ba0  3b 30 3b 3a e6 20 36 3a  ec 20 34 35 36 2c 38 33  |;0;:. 6:. 456,83|
00001bb0  39 3a f1 22 45 44 49 54  20 47 4c 4f 42 41 4c 20  |9:."EDIT GLOBAL |
00001bc0  49 4e 46 4f 52 4d 41 54  49 4f 4e 22 3a ef 34 0d  |INFORMATION":.4.|
00001bd0  05 78 8d fb 20 31 3a f1  27 27 27 27 8a 32 37 29  |.x.. 1:.''''.27)|
00001be0  3b 22 31 22 3b 3a fb 20  33 3a f1 22 2e 2e 2e 2e  |;"1";:. 3:."....|
00001bf0  2e 2e 2e 2e 2e 2e 2e 2e  2e 50 61 73 73 77 6f 72  |.........Passwor|
00001c00  64 22 3a fb 20 31 3a f1  27 8a 32 37 29 3b 22 32  |d":. 1:.'.27);"2|
00001c10  22 3b 3a fb 20 33 3a f1  22 2e 2e 2e 50 72 69 6e  |";:. 3:."...Prin|
00001c20  74 65 72 20 49 6e 69 74  69 61 6c 69 73 65 22 3a  |ter Initialise":|
00001c30  fb 20 31 3a f1 27 8a 32  37 29 3b 22 33 22 3b 3a  |. 1:.'.27);"3";:|
00001c40  fb 20 33 3a f1 22 2e 2e  2e 2e 50 72 69 6e 74 65  |. 3:."....Printe|
00001c50  72 20 4c 69 6e 65 20 46  65 65 64 22 0d 05 82 5d  |r Line Feed"...]|
00001c60  fb 20 31 3a f1 27 8a 32  37 29 3b 22 34 22 3b 3a  |. 1:.'.27);"4";:|
00001c70  fb 20 33 3a f1 22 2e 2e  2e 2e 50 72 69 6e 74 65  |. 3:."....Printe|
00001c80  72 20 54 65 72 6d 69 6e  61 74 65 22 3a fb 20 31  |r Terminate":. 1|
00001c90  3a f1 27 8a 32 37 29 3b  22 35 22 3b 3a fb 20 33  |:.'.27);"5";:. 3|
00001ca0  3a f1 22 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 50 61 67  |:."..........Pag|
00001cb0  65 20 4c 65 6e 67 74 68  22 0d 05 8c 30 fb 20 31  |e Length"...0. 1|
00001cc0  3a f1 27 8a 32 37 29 3b  22 30 22 3b 3a fb 20 33  |:.'.27);"0";:. 3|
00001cd0  3a f1 22 2e 2e 52 65 74  75 72 6e 20 54 6f 20 4d  |:."..Return To M|
00001ce0  61 69 6e 20 4d 65 6e 75  22 0d 05 96 15 4f 50 24  |ain Menu"....OP$|
00001cf0  3d a4 4b 28 22 30 22 2c  22 35 22 2c 32 29 0d 05  |=.K("0","5",2)..|
00001d00  a0 0c c8 8e 20 4f 50 24  20 ca 0d 05 aa 11 c9 20  |.... OP$ ...... |
00001d10  22 31 22 3a f2 45 50 3a  f4 2f 2f 0d 05 b4 12 c9  |"1":.EP:.//.....|
00001d20  20 22 32 22 3a f2 45 50  49 3a f4 2f 2f 0d 05 be  | "2":.EPI:.//...|
00001d30  12 c9 20 22 33 22 3a f2  45 50 4c 3a f4 2f 2f 0d  |.. "3":.EPL:.//.|
00001d40  05 c8 12 c9 20 22 34 22  3a f2 45 50 54 3a f4 2f  |.... "4":.EPT:./|
00001d50  2f 0d 05 d2 0d c9 20 22  35 22 3a f2 45 4c 0d 05  |/..... "5":.EL..|
00001d60  f0 05 cb 0d 05 fa 14 e7  20 4f 50 24 3e 22 30 22  |........ OP$>"0"|
00001d70  20 8c 20 8d 44 6e 45 0d  06 04 0a f2 53 56 47 3a  | . .DnE.....SVG:|
00001d80  e1 0d 06 0e 0d dd 20 f2  45 50 3a f4 2f 2f 0d 06  |...... .EP:.//..|
00001d90  18 3c db 3a ef 35 2c 32  33 2c 31 37 2c 37 2c 36  |.<.:.5,23,17,7,6|
00001da0  2c 38 3b 31 36 3b 30 3b  3a e6 20 36 3a ec 20 35  |,8;16;0;:. 6:. 5|
00001db0  33 36 2c 38 33 39 3a f1  22 45 44 49 54 20 50 41  |36,839:."EDIT PA|
00001dc0  53 53 57 4f 52 44 22 3a  ef 34 0d 06 22 2d 58 24  |SSWORD":.4.."-X$|
00001dd0  3d 22 22 3a e3 20 41 3d  44 54 2b 31 30 32 34 20  |="":. A=DT+1024 |
00001de0  b8 20 44 54 2b 31 30 32  39 3a 58 24 3d 58 24 2b  |. DT+1029:X$=X$+|
00001df0  bd 28 3f 41 29 3a ed 0d  06 2c 30 fb 20 33 3a f1  |.(?A):...,0. 3:.|
00001e00  27 27 27 27 22 50 41 53  53 57 4f 52 44 20 49 53  |''''"PASSWORD IS|
00001e10  20 43 55 52 52 45 4e 54  4c 59 3a 20 22 3b 3a fb  | CURRENTLY: ";:.|
00001e20  20 34 3a f1 20 58 24 0d  06 36 27 fb 20 31 3a f1  | 4:. X$..6'. 1:.|
00001e30  27 27 22 45 4e 54 45 52  20 59 4f 55 52 20 4e 45  |''"ENTER YOUR NE|
00001e40  57 20 50 41 53 53 57 4f  52 44 2e 2e 2e 22 0d 06  |W PASSWORD..."..|
00001e50  40 cd fb 20 35 3a f1 22  54 68 65 20 70 61 73 73  |@.. 5:."The pass|
00001e60  77 6f 72 64 20 6d 75 73  74 20 62 65 20 73 69 78  |word must be six|
00001e70  20 63 68 61 72 61 63 74  65 72 73 20 6c 6f 6e 67  | characters long|
00001e80  2c 20 61 6e 64 20 63 6f  6e 73 69 73 74 20 73 6f  |, and consist so|
00001e90  6c 65 79 20 6f 66 20 6c  65 74 74 65 72 73 20 6f  |ley of letters o|
00001ea0  66 20 20 20 74 68 65 20  61 6c 70 68 61 62 65 74  |f   the alphabet|
00001eb0  2e 20 54 79 70 65 20 69  6e 20 79 6f 75 72 20 73  |. Type in your s|
00001ec0  69 78 20 63 68 61 72 61  63 74 65 72 73 20 61 6e  |ix characters an|
00001ed0  64 20 70 72 65 73 73 20  52 45 54 55 52 4e 2e 20  |d press RETURN. |
00001ee0  54 6f 20 6c 65 61 76 65  20 74 68 65 20 20 20 20  |To leave the    |
00001ef0  63 75 72 72 65 6e 74 20  70 61 73 73 77 6f 72 64  |current password|
00001f00  20 69 6e 74 61 63 74 20  6a 75 73 74 20 70 72 65  | intact just pre|
00001f10  73 73 20 52 45 54 55 52  4e 2e 22 0d 06 4a 6c fb  |ss RETURN."..Jl.|
00001f20  20 32 3a f1 27 22 20 45  4e 54 45 52 20 59 4f 55  | 2:.'" ENTER YOU|
00001f30  52 20 4e 45 57 20 50 41  53 53 57 4f 52 44 3a 20  |R NEW PASSWORD: |
00001f40  22 3b 3a fb 20 34 3a f1  22 2e 2e 2e 2e 2e 2e 22  |";:. 4:."......"|
00001f50  27 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |'"              |
00001f60  20 20 20 20 20 20 20 20  20 20 20 20 22 3b bd 31  |            ";.1|
00001f70  31 3b 3a e8 22 22 5a 24  3a e7 20 5a 24 3d 22 22  |1;:.""Z$:. Z$=""|
00001f80  20 8c 20 8d 74 50 46 0d  06 54 19 e7 20 a9 20 5a  | . .tPF..T.. . Z|
00001f90  24 3c 3e 36 20 8c 20 ef  37 3a e5 20 8d 54 58 46  |$<>6 . .7:. .TXF|
00001fa0  0d 06 5e 63 45 52 3d 30  3a 58 24 3d 22 22 3a e3  |..^cER=0:X$="":.|
00001fb0  20 41 3d 31 20 b8 20 36  3a e7 20 c1 5a 24 2c 41  | A=1 . 6:. .Z$,A|
00001fc0  2c 31 29 3e 3d 22 61 22  20 80 20 c1 5a 24 2c 41  |,1)>="a" . .Z$,A|
00001fd0  2c 31 29 3c 3d 22 7a 22  20 8c 20 58 24 3d 58 24  |,1)<="z" . X$=X$|
00001fe0  2b bd 28 97 28 c1 5a 24  2c 41 2c 31 29 29 2d 33  |+.(.(.Z$,A,1))-3|
00001ff0  32 29 20 8b 20 58 24 3d  58 24 2b c1 5a 24 2c 41  |2) . X$=X$+.Z$,A|
00002000  2c 31 29 0d 06 68 24 e7  20 c2 58 24 2c 31 29 3c  |,1)..h$. .X$,1)<|
00002010  22 41 22 20 84 20 c2 58  24 2c 31 29 3e 22 5a 22  |"A" . .X$,1)>"Z"|
00002020  20 8c 20 45 52 3d 31 0d  06 72 09 ed 3a f4 2f 2f  | . ER=1..r..:.//|
00002030  0d 06 7c 16 e7 20 45 52  3d 31 20 8c 20 ef 37 3a  |..|.. ER=1 . .7:|
00002040  e5 20 8d 54 58 46 0d 06  86 28 e3 20 41 3d 31 20  |. .TXF...(. A=1 |
00002050  b8 20 36 3a 3f 28 44 54  2b 31 30 32 33 2b 41 29  |. 6:?(DT+1023+A)|
00002060  3d 97 28 c1 58 24 2c 41  2c 31 29 29 3a ed 0d 06  |=.(.X$,A,1)):...|
00002070  90 09 e1 3a f4 2f 2f 0d  06 9a 0e dd 20 f2 45 50  |...:.//..... .EP|
00002080  49 3a f4 2f 2f 0d 06 a4  cd db 3a ef 35 2c 32 33  |I:.//.....:.5,23|
00002090  2c 31 37 2c 37 2c 36 2c  38 3b 31 36 3b 30 3b 3a  |,17,7,6,8;16;0;:|
000020a0  e6 20 36 3a ec 20 33 35  32 2c 38 35 39 3a f1 22  |. 6:. 352,859:."|
000020b0  45 44 49 54 20 50 52 49  4e 54 45 52 20 49 4e 49  |EDIT PRINTER INI|
000020c0  54 49 41 4c 49 53 41 54  49 4f 4e 20 53 45 51 55  |TIALISATION SEQU|
000020d0  45 4e 43 45 22 3a ef 34  3a fb 20 35 3a f1 27 27  |ENCE":.4:. 5:.''|
000020e0  22 54 68 65 20 70 72 69  6e 74 65 72 20 69 6e 69  |"The printer ini|
000020f0  74 69 61 6c 69 73 61 74  69 6f 6e 20 73 65 71 75  |tialisation sequ|
00002100  65 6e 63 65 20 63 6f 6e  73 69 73 74 73 20 6f 66  |ence consists of|
00002110  20 73 69 78 74 65 65 6e  20 6e 75 6d 62 65 72 73  | sixteen numbers|
00002120  20 69 6e 20 74 68 65 20  72 61 6e 67 65 30 20 74  | in the range0 t|
00002130  6f 20 32 35 35 2e 20 45  61 63 68 20 6f 6e 65 20  |o 255. Each one |
00002140  6d 75 73 74 20 62 65 20  65 6e 74 65 72 65 64 20  |must be entered |
00002150  22 3b 0d 06 ae 1f f1 22  73 65 70 61 72 61 74 65  |";....."separate|
00002160  6c 79 2c 20 61 73 20 66  6f 6c 6c 6f 77 73 3a 2d  |ly, as follows:-|
00002170  22 0d 06 b8 b8 f1 22 54  79 70 65 20 69 6e 20 74  |"....."Type in t|
00002180  68 65 20 6e 75 6d 62 65  72 20 72 65 71 75 69 72  |he number requir|
00002190  65 64 20 28 69 6e 20 74  68 65 20 61 62 6f 76 65  |ed (in the above|
000021a0  20 72 61 6e 67 65 29 20  61 6e 64 20 70 72 65 73  | range) and pres|
000021b0  73 20 52 45 54 55 52 4e  2e 20 54 6f 20 6c 65 61  |s RETURN. To lea|
000021c0  76 65 20 61 20 6e 75 6d  62 65 72 20 75 6e 61 6c  |ve a number unal|
000021d0  74 65 72 65 64 20 6a 75  73 74 20 70 72 65 73 73  |tered just press|
000021e0  20 52 45 54 55 52 4e 2e  20 49 66 20 79 6f 75 20  | RETURN. If you |
000021f0  65 6e 74 65 72 20 61 6e  20 69 6c 6c 65 67 61 6c  |enter an illegal|
00002200  20 76 61 6c 75 65 20 79  6f 75 20 77 69 6c 6c 62  | value you willb|
00002210  65 20 61 73 6b 65 64 20  74 6f 20 72 65 2d 65 6e  |e asked to re-en|
00002220  74 65 72 20 69 74 2e 22  27 0d 06 c2 0e e3 20 41  |ter it."'..... A|
00002230  3d 31 20 b8 20 31 36 0d  06 cc 47 fb 20 33 3a f1  |=1 . 16...G. 3:.|
00002240  22 56 61 6c 75 65 20 22  3b 41 3b 22 20 69 73 3a  |"Value ";A;" is:|
00002250  20 22 3b 3a fb 20 31 3a  f1 3f 28 44 54 2b 31 30  | ";:. 1:.?(DT+10|
00002260  32 39 2b 41 29 3b 3a fb  20 32 3a e8 22 20 4e 45  |29+A);:. 2:." NE|
00002270  57 20 56 41 4c 55 45 3a  20 22 3b 4e 56 24 0d 06  |W VALUE: ";NV$..|
00002280  d6 13 e7 20 4e 56 24 3d  22 22 20 8c 20 8d 64 74  |... NV$="" . .dt|
00002290  46 0d 06 e0 27 e7 20 bb  28 4e 56 24 29 3c 30 20  |F...'. .(NV$)<0 |
000022a0  84 20 bb 28 4e 56 24 29  3e 32 35 35 20 8c 20 ef  |. .(NV$)>255 . .|
000022b0  37 3a e5 20 8d 64 4c 46  0d 06 ea 17 3f 28 44 54  |7:. .dLF....?(DT|
000022c0  2b 31 30 32 39 2b 41 29  3d bb 28 4e 56 24 29 0d  |+1029+A)=.(NV$).|
000022d0  06 f4 09 ed 3a f4 2f 2f  0d 06 fe 09 e1 3a f4 2f  |....:.//.....:./|
000022e0  2f 0d 07 08 c5 dd 20 f2  45 50 4c 3a db 3a ef 35  |/..... .EPL:.:.5|
000022f0  2c 32 33 2c 31 37 2c 37  2c 36 2c 38 3b 31 36 3b  |,23,17,7,6,8;16;|
00002300  30 3b 3a e6 20 36 3a ec  20 33 39 32 2c 38 35 39  |0;:. 6:. 392,859|
00002310  3a f1 22 45 44 49 54 20  50 52 49 4e 54 45 52 20  |:."EDIT PRINTER |
00002320  4c 49 4e 45 20 46 45 45  44 20 53 45 51 55 45 4e  |LINE FEED SEQUEN|
00002330  43 45 22 3a ef 34 3a fb  20 35 3a f1 27 27 22 54  |CE":.4:. 5:.''"T|
00002340  68 65 20 70 72 69 6e 74  65 72 20 6c 69 6e 65 20  |he printer line |
00002350  66 65 65 64 20 73 65 71  75 65 6e 63 65 20 63 6f  |feed sequence co|
00002360  6e 73 69 73 74 73 20 6f  66 20 66 6f 75 72 20 6e  |nsists of four n|
00002370  75 6d 62 65 72 73 20 69  6e 20 74 68 65 20 72 61  |umbers in the ra|
00002380  6e 67 65 20 30 2d 32 35  35 2e 20 45 61 63 68 20  |nge 0-255. Each |
00002390  6f 6e 65 20 6d 75 73 74  20 62 65 20 65 6e 74 65  |one must be ente|
000023a0  72 65 64 20 22 3b 0d 07  12 1f f1 22 73 65 70 61  |red ";....."sepa|
000023b0  72 61 74 65 6c 79 2c 20  61 73 20 66 6f 6c 6c 6f  |rately, as follo|
000023c0  77 73 3a 2d 22 0d 07 1c  b8 f1 22 54 79 70 65 20  |ws:-"....."Type |
000023d0  69 6e 20 74 68 65 20 6e  75 6d 62 65 72 20 72 65  |in the number re|
000023e0  71 75 69 72 65 64 20 28  69 6e 20 74 68 65 20 61  |quired (in the a|
000023f0  62 6f 76 65 20 72 61 6e  67 65 29 20 61 6e 64 20  |bove range) and |
00002400  70 72 65 73 73 20 52 45  54 55 52 4e 2e 20 54 6f  |press RETURN. To|
00002410  20 6c 65 61 76 65 20 61  20 6e 75 6d 62 65 72 20  | leave a number |
00002420  75 6e 61 6c 74 65 72 65  64 20 6a 75 73 74 20 70  |unaltered just p|
00002430  72 65 73 73 20 52 45 54  55 52 4e 2e 20 49 66 20  |ress RETURN. If |
00002440  79 6f 75 20 65 6e 74 65  72 20 61 6e 20 69 6c 6c  |you enter an ill|
00002450  65 67 61 6c 20 76 61 6c  75 65 20 79 6f 75 20 77  |egal value you w|
00002460  69 6c 6c 62 65 20 61 73  6b 65 64 20 74 6f 20 72  |illbe asked to r|
00002470  65 2d 65 6e 74 65 72 20  69 74 2e 22 27 0d 07 26  |e-enter it."'..&|
00002480  0d e3 20 41 3d 31 20 b8  20 34 0d 07 30 47 fb 20  |.. A=1 . 4..0G. |
00002490  33 3a f1 22 56 61 6c 75  65 20 22 3b 41 3b 22 20  |3:."Value ";A;" |
000024a0  69 73 3a 20 22 3b 3a fb  20 31 3a f1 3f 28 44 54  |is: ";:. 1:.?(DT|
000024b0  2b 31 30 34 35 2b 41 29  3b 3a fb 20 32 3a e8 22  |+1045+A);:. 2:."|
000024c0  20 4e 45 57 20 56 41 4c  55 45 3a 20 22 3b 4e 56  | NEW VALUE: ";NV|
000024d0  24 0d 07 3a 13 e7 20 4e  56 24 3d 22 22 20 8c 20  |$..:.. NV$="" . |
000024e0  8d 44 58 47 0d 07 44 27  e7 20 bb 28 4e 56 24 29  |.DXG..D'. .(NV$)|
000024f0  3c 30 20 84 20 bb 28 4e  56 24 29 3e 32 35 35 20  |<0 . .(NV$)>255 |
00002500  8c 20 ef 37 3a e5 20 8d  54 70 47 0d 07 4e 17 3f  |. .7:. .TpG..N.?|
00002510  28 44 54 2b 31 30 34 35  2b 41 29 3d bb 28 4e 56  |(DT+1045+A)=.(NV|
00002520  24 29 0d 07 58 09 ed 3a  f4 2f 2f 0d 07 62 09 e1  |$)..X..:.//..b..|
00002530  3a f4 2f 2f 0d 07 6c c5  dd 20 f2 45 50 54 3a db  |:.//..l.. .EPT:.|
00002540  3a ef 35 2c 32 33 2c 31  37 2c 37 2c 36 2c 38 3b  |:.5,23,17,7,6,8;|
00002550  31 36 3b 30 3b 3a e6 20  36 3a ec 20 33 39 32 2c  |16;0;:. 6:. 392,|
00002560  38 35 39 3a f1 22 45 44  49 54 20 50 52 49 4e 54  |859:."EDIT PRINT|
00002570  45 52 20 54 45 52 4d 49  4e 41 54 45 20 53 45 51  |ER TERMINATE SEQ|
00002580  55 45 4e 43 45 22 3a ef  34 3a fb 20 35 3a f1 27  |UENCE":.4:. 5:.'|
00002590  27 22 54 68 65 20 70 72  69 6e 74 65 72 20 74 65  |'"The printer te|
000025a0  72 6d 69 6e 61 74 65 20  73 65 71 75 65 6e 63 65  |rminate sequence|
000025b0  20 63 6f 6e 73 69 73 74  73 20 6f 66 20 31 36 20  | consists of 16 |
000025c0  6e 75 6d 62 65 72 73 20  69 6e 20 74 68 65 20 72  |numbers in the r|
000025d0  61 6e 67 65 20 30 20 2d  20 32 35 35 2e 20 45 61  |ange 0 - 255. Ea|
000025e0  63 68 20 6f 6e 65 20 6d  75 73 74 20 62 65 20 65  |ch one must be e|
000025f0  6e 74 65 72 65 64 20 22  3b 0d 07 76 1f f1 22 73  |ntered ";..v.."s|
00002600  65 70 61 72 61 74 65 6c  79 2c 20 61 73 20 66 6f  |eparately, as fo|
00002610  6c 6c 6f 77 73 3a 2d 22  0d 07 80 b8 f1 22 54 79  |llows:-"....."Ty|
00002620  70 65 20 69 6e 20 74 68  65 20 6e 75 6d 62 65 72  |pe in the number|
00002630  20 72 65 71 75 69 72 65  64 20 28 69 6e 20 74 68  | required (in th|
00002640  65 20 61 62 6f 76 65 20  72 61 6e 67 65 29 20 61  |e above range) a|
00002650  6e 64 20 70 72 65 73 73  20 52 45 54 55 52 4e 2e  |nd press RETURN.|
00002660  20 54 6f 20 6c 65 61 76  65 20 61 20 6e 75 6d 62  | To leave a numb|
00002670  65 72 20 75 6e 61 6c 74  65 72 65 64 20 6a 75 73  |er unaltered jus|
00002680  74 20 70 72 65 73 73 20  52 45 54 55 52 4e 2e 20  |t press RETURN. |
00002690  49 66 20 79 6f 75 20 65  6e 74 65 72 20 61 6e 20  |If you enter an |
000026a0  69 6c 6c 65 67 61 6c 20  76 61 6c 75 65 20 79 6f  |illegal value yo|
000026b0  75 20 77 69 6c 6c 62 65  20 61 73 6b 65 64 20 74  |u willbe asked t|
000026c0  6f 20 72 65 2d 65 6e 74  65 72 20 69 74 2e 22 27  |o re-enter it."'|
000026d0  0d 07 8a 0e e3 20 41 3d  31 20 b8 20 31 36 0d 07  |..... A=1 . 16..|
000026e0  94 47 fb 20 33 3a f1 22  56 61 6c 75 65 20 22 3b  |.G. 3:."Value ";|
000026f0  41 3b 22 20 69 73 3a 20  22 3b 3a fb 20 31 3a f1  |A;" is: ";:. 1:.|
00002700  3f 28 44 54 2b 31 30 34  39 2b 41 29 3b 3a fb 20  |?(DT+1049+A);:. |
00002710  32 3a e8 22 20 4e 45 57  20 56 41 4c 55 45 3a 20  |2:." NEW VALUE: |
00002720  22 3b 4e 56 24 0d 07 9e  13 e7 20 4e 56 24 3d 22  |";NV$..... NV$="|
00002730  22 20 8c 20 8d 74 7c 47  0d 07 a8 27 e7 20 bb 28  |" . .t|G...'. .(|
00002740  4e 56 24 29 3c 30 20 84  20 bb 28 4e 56 24 29 3e  |NV$)<0 . .(NV$)>|
00002750  32 35 35 20 8c 20 ef 37  3a e5 20 8d 74 54 47 0d  |255 . .7:. .tTG.|
00002760  07 b2 17 3f 28 44 54 2b  31 30 34 39 2b 41 29 3d  |...?(DT+1049+A)=|
00002770  bb 28 4e 56 24 29 0d 07  bc 09 ed 3a f4 2f 2f 0d  |.(NV$).....:.//.|
00002780  07 c6 09 e1 3a f4 2f 2f  0d 08 20 0c dd f2 45 4c  |....:.//.. ...EL|
00002790  3a f4 2f 2f 0d 08 2a b1  db 3a ef 35 2c 32 33 2c  |:.//..*..:.5,23,|
000027a0  31 37 2c 37 2c 36 2c 38  3b 31 36 3b 30 3b 3a e6  |17,7,6,8;16;0;:.|
000027b0  20 36 3a ec 20 34 34 38  2c 38 35 39 3a f1 22 45  | 6:. 448,859:."E|
000027c0  44 49 54 20 50 52 49 4e  54 45 52 20 50 41 47 45  |DIT PRINTER PAGE|
000027d0  20 4c 45 4e 47 54 48 22  3a ef 34 3a fb 20 35 3a  | LENGTH":.4:. 5:|
000027e0  f1 27 27 22 45 6e 74 65  72 20 79 6f 75 72 20 70  |.''"Enter your p|
000027f0  72 69 6e 74 65 72 20 70  61 67 65 20 6c 65 6e 67  |rinter page leng|
00002800  74 68 20 62 79 20 74 79  70 69 6e 67 20 69 6e 20  |th by typing in |
00002810  61 20 6e 75 6d 62 65 72  20 69 6e 20 74 68 65 20  |a number in the |
00002820  72 61 6e 67 65 20 35 30  20 74 6f 20 32 35 35 20  |range 50 to 255 |
00002830  61 6e 64 20 70 72 65 73  73 69 6e 67 20 52 45 54  |and pressing RET|
00002840  55 52 4e 2e 22 0d 08 34  3a f1 22 4d 65 72 65 6c  |URN."..4:."Merel|
00002850  79 20 70 72 65 73 73 69  6e 67 20 52 45 54 55 52  |y pressing RETUR|
00002860  4e 20 6c 65 61 76 65 73  20 74 68 65 20 6f 6c 64  |N leaves the old|
00002870  20 76 61 6c 75 65 20 69  6e 74 61 63 74 2e 22 0d  | value intact.".|
00002880  08 3e 36 fb 20 33 3a f1  27 27 22 43 55 52 52 45  |.>6. 3:.''"CURRE|
00002890  4e 54 20 50 52 49 4e 54  45 52 20 4c 45 4e 47 54  |NT PRINTER LENGT|
000028a0  48 20 49 53 3a 20 22 3b  3a fb 20 31 3a f1 44 54  |H IS: ";:. 1:.DT|
000028b0  3f 31 30 36 37 0d 08 48  32 fb 20 32 3a e8 27 22  |?1067..H2. 2:.'"|
000028c0  45 4e 54 45 52 20 4e 45  57 20 4c 45 4e 47 54 48  |ENTER NEW LENGTH|
000028d0  3a 20 22 3b 4e 56 24 3a  e7 20 4e 56 24 3d 22 22  |: ";NV$:. NV$=""|
000028e0  20 8c 20 8d 44 66 48 0d  08 52 26 e7 20 bb 20 4e  | . .DfH..R&. . N|
000028f0  56 24 3c 35 30 20 84 20  bb 20 4e 56 24 3e 32 35  |V$<50 . . NV$>25|
00002900  35 20 8c 20 ef 37 3a e5  20 8d 54 6a 48 0d 08 5c  |5 . .7:. .TjH..\|
00002910  11 44 54 3f 31 30 36 37  3d bb 20 4e 56 24 0d 08  |.DT?1067=. NV$..|
00002920  66 09 e1 3a f4 2f 2f 0d  08 c0 10 dd 20 a4 45 4e  |f..:.//..... .EN|
00002930  28 5a 29 3a f4 2f 2f 0d  08 ca 0b 45 3d 30 3a f4  |(Z):.//....E=0:.|
00002940  2f 2f 0d 08 d4 13 45 41  3d 45 2a 31 32 38 2b 42  |//....EA=E*128+B|
00002950  4b 3a f4 2f 2f 0d 08 de  10 e7 20 3f 45 41 3d 30  |K:.//..... ?EA=0|
00002960  20 8c 20 3d 45 0d 08 e8  18 45 3d 45 2b 31 3a e7  | . =E....E=E+1:.|
00002970  20 45 3c 32 32 34 20 8c  20 8d 64 54 48 0d 08 f2  | E<224 . .dTH...|
00002980  0b 3d 2d 31 3a f4 2f 2f  0d 08 fc 19 dd f2 46 55  |.=-1:.//......FU|
00002990  4c 4c 3a fb 20 37 3a ef  37 3a 2a 46 58 31 35 2c  |LL:. 7:.7:*FX15,|
000029a0  31 0d 09 06 3d f1 27 27  27 27 27 22 4e 4f 20 53  |1...=.'''''"NO S|
000029b0  50 41 43 45 20 46 4f 52  20 46 55 52 54 48 45 52  |PACE FOR FURTHER|
000029c0  20 45 4e 54 52 49 45 53  2e 20 50 52 45 53 53 20  | ENTRIES. PRESS |
000029d0  54 48 45 20 53 50 41 43  45 20 42 41 52 22 0d 09  |THE SPACE BAR"..|
000029e0  10 23 f5 20 fd 20 a6 28  2d 39 39 29 3a f5 20 fd  |.#. . .(-99):. .|
000029f0  20 ac 20 a6 28 2d 39 39  29 3a 2a 46 58 31 35 2c  | . .(-99):*FX15,|
00002a00  31 0d 09 1a 09 e1 3a f4  2f 2f 0d 09 24 10 dd 20  |1.....:.//..$.. |
00002a10  a4 55 4d 28 5a 29 3a f4  2f 2f 0d 09 2e 12 5a 24  |.UM(Z):.//....Z$|
00002a20  3d 22 22 3a 44 47 3d 31  3a f4 2f 2f 0d 09 38 32  |="":DG=1:.//..82|
00002a30  58 24 3d a4 4b 28 22 2e  22 2c 22 39 22 2c 31 29  |X$=.K(".","9",1)|
00002a40  3a e7 20 58 24 3e 22 2e  22 20 80 20 58 24 3c 22  |:. X$>"." . X$<"|
00002a50  30 22 20 8c 20 ef 37 3a  e5 20 8d 54 78 49 0d 09  |0" . .7:. .TxI..|
00002a60  42 33 5a 24 3d 5a 24 2b  58 24 3a f1 20 58 24 3b  |B3Z$=Z$+X$:. X$;|
00002a70  3a 44 47 3d 44 47 2b 31  3a e7 20 44 47 3c 3d 37  |:DG=DG+1:. DG<=7|
00002a80  20 80 20 58 24 3c 3e 22  2e 22 20 8c 20 8d 54 78  | . X$<>"." . .Tx|
00002a90  49 0d 09 4c 13 e7 20 58  24 3d 22 2e 22 20 8c 20  |I..L.. X$="." . |
00002aa0  8d 44 60 49 0d 09 56 14  5a 24 3d 5a 24 2b 22 2e  |.D`I..V.Z$=Z$+".|
00002ab0  22 3a f1 20 22 2e 22 3b  0d 09 60 0e e3 20 44 47  |":. ".";..`.. DG|
00002ac0  3d 31 20 b8 20 32 0d 09  6a 23 58 24 3d a4 4b 28  |=1 . 2..j#X$=.K(|
00002ad0  22 30 22 2c 22 39 22 2c  31 29 3a 5a 24 3d 5a 24  |"0","9",1):Z$=Z$|
00002ae0  2b 58 24 3a f1 20 58 24  3b 0d 09 74 09 ed 3a f4  |+X$:. X$;..t..:.|
00002af0  2f 2f 0d 09 7e 19 3d c2  22 20 20 20 20 20 20 20  |//..~.=."       |
00002b00  20 20 20 22 2b 5a 24 2c  31 30 29 0d 09 88 11 dd  |   "+Z$,10).....|
00002b10  20 a4 47 4d 41 28 5a 29  3a f4 2f 2f 0d 09 92 32  | .GMA(Z):.//...2|
00002b20  5a 24 3d 22 22 3a e3 20  59 3d 44 54 2b 33 39 2a  |Z$="":. Y=DT+39*|
00002b30  5a 20 b8 20 28 44 54 2b  33 39 2a 5a 29 2b 33 31  |Z . (DT+39*Z)+31|
00002b40  3a 5a 24 3d 5a 24 2b bd  28 3f 59 29 3a ed 0d 09  |:Z$=Z$+.(?Y):...|
00002b50  9c 1a e7 20 5a 24 3d c4  33 32 2c 22 20 22 29 20  |... Z$=.32," ") |
00002b60  8c 20 5a 24 3d 22 20 22  0d 09 a6 07 3d 5a 24 0d  |. Z$=" "....=Z$.|
00002b70  09 b0 11 dd 20 a4 47 53  41 28 5a 29 3a f4 2f 2f  |.... .GSA(Z):.//|
00002b80  0d 09 ba 35 5a 24 3d 22  22 3a e3 20 59 3d 44 54  |...5Z$="":. Y=DT|
00002b90  2b 33 39 2a 5a 2b 33 32  20 b8 20 28 44 54 2b 33  |+39*Z+32 . (DT+3|
00002ba0  39 2a 5a 29 2b 33 38 3a  5a 24 3d 5a 24 2b bd 28  |9*Z)+38:Z$=Z$+.(|
00002bb0  3f 59 29 3a ed 0d 09 c4  19 e7 20 5a 24 3d c4 37  |?Y):...... Z$=.7|
00002bc0  2c 22 20 22 29 20 8c 20  5a 24 3d 22 20 22 0d 09  |," ") . Z$=" "..|
00002bd0  ce 07 3d 5a 24 0d 09 d8  1b dd 20 f2 53 4e 41 43  |..=Z$..... .SNAC|
00002be0  28 5a 2c 5a 24 29 3a 59  3d 5a 2a 33 39 2b 44 54  |(Z,Z$):Y=Z*39+DT|
00002bf0  0d 09 e2 2f e7 20 c0 5a  24 2c 31 29 3d 22 2f 22  |.../. .Z$,1)="/"|
00002c00  20 8c 20 e3 20 58 3d 30  20 b8 20 33 31 33 31 33  | . . X=0 . 31313|
00002c10  28 59 2b 58 29 3d 97 28  22 20 22 29 3a ed 3a e1  |(Y+X)=.(" "):.:.|
00002c20  0d 09 ec 25 e3 20 58 3d  30 20 b8 20 33 31 33 31  |...%. X=0 . 3131|
00002c30  33 28 59 2b 58 29 3d 97  28 c1 5a 24 2c 58 2b 31  |3(Y+X)=.(.Z$,X+1|
00002c40  2c 31 29 29 3a ed 0d 09  f6 09 e1 3a f4 2f 2f 0d  |,1)):......:.//.|
00002c50  0a 00 1e dd 20 f2 53 4e  53 43 28 5a 2c 5a 24 29  |.... .SNSC(Z,Z$)|
00002c60  3a 59 3d 5a 2a 33 39 2b  44 54 2b 33 32 0d 0a 0a  |:Y=Z*39+DT+32...|
00002c70  2e e7 20 c0 5a 24 2c 31  29 3d 22 2f 22 20 8c 20  |.. .Z$,1)="/" . |
00002c80  e3 20 58 3d 30 20 b8 20  36 b8 20 36 b8 28 59 2b  |. X=0 . 6. 6.(Y+|
00002c90  58 29 3d 97 28 22 20 22  29 3a ed 3a e1 0d 0a 14  |X)=.(" "):.:....|
00002ca0  24 e3 20 58 3d 30 20 b8  20 36 b8 20 36 b8 28 59  |$. X=0 . 6. 6.(Y|
00002cb0  2b 58 29 3d 97 28 c1 5a  24 2c 58 2b 31 2c 31 29  |+X)=.(.Z$,X+1,1)|
00002cc0  29 3a ed 0d 0a 1e 09 e1  3a f4 2f 2f 0d 0a 28 0e  |):......:.//..(.|
00002cd0  dd f2 50 52 4f 4e 3a f4  2f 2f 0d 0a 32 0f ef 32  |..PRON:.//..2..2|
00002ce0  3a 50 47 3d 31 3a f4 2f  2f 0d 0a 3c 27 e3 20 50  |:PG=1:.//..<'. P|
00002cf0  43 3d 28 31 30 33 30 2b  44 54 29 20 b8 20 28 31  |C=(1030+DT) . (1|
00002d00  30 34 35 2b 44 54 29 3a  ef 31 2c 3f 50 43 3a ed  |045+DT):.1,?PC:.|
00002d10  0d 0a 46 09 e1 3a f4 2f  2f 0d 0a 50 0e dd f2 50  |..F..:.//..P...P|
00002d20  52 4f 46 3a f4 2f 2f 0d  0a 5a 27 e3 20 50 43 3d  |ROF:.//..Z'. PC=|
00002d30  28 31 30 35 30 2b 44 54  29 20 b8 20 28 31 30 36  |(1050+DT) . (106|
00002d40  35 2b 44 54 29 3a ef 31  2c 3f 50 43 3a ed 0d 0a  |5+DT):.1,?PC:...|
00002d50  64 0a ef 33 3a f4 2f 2f  0d 0a 6e 09 e1 3a f4 2f  |d..3:.//..n..:./|
00002d60  2f 0d 0a 78 0c dd f2 4e  4c 3a f4 2f 2f 0d 0a 82  |/..x...NL:.//...|
00002d70  0f 4c 49 3d 4c 49 2b 31  3a f4 2f 2f 0d 0a 8c 27  |.LI=LI+1:.//...'|
00002d80  e3 20 50 43 3d 28 31 30  34 36 2b 44 54 29 20 b8  |. PC=(1046+DT) .|
00002d90  20 28 31 30 34 39 2b 44  54 29 3a ef 31 2c 3f 50  | (1049+DT):.1,?P|
00002da0  43 3a ed 0d 0a 96 09 e1  3a f4 2f 2f 0d 0a a0 11  |C:......:.//....|
00002db0  dd f2 4e 50 3a 4c 49 3d  30 3a f4 2f 2f 0d 0a aa  |..NP:LI=0:.//...|
00002dc0  15 f2 50 52 49 4e 28 a4  47 43 28 30 29 29 3a f2  |..PRIN(.GC(0)):.|
00002dd0  4e 4c 0d 0a b4 15 f2 50  52 49 4e 28 a4 47 42 28  |NL.....PRIN(.GB(|
00002de0  30 29 29 3a f2 4e 4c 0d  0a be 45 f2 50 52 49 4e  |0)):.NL...E.PRIN|
00002df0  28 22 44 61 74 65 3a 20  22 2b 44 31 24 2b 22 2f  |("Date: "+D1$+"/|
00002e00  22 2b 44 32 24 2b 22 2f  22 2b 44 33 24 2b 22 20  |"+D2$+"/"+D3$+" |
00002e10  20 20 20 20 20 20 50 61  67 65 3a 20 22 2b c3 28  |      Page: "+.(|
00002e20  50 47 29 29 3a f2 4e 4c  3a f2 4e 4c 0d 0a c8 21  |PG)):.NL:.NL...!|
00002e30  f2 50 52 49 4e 28 22 50  61 67 65 3a 20 22 2b c3  |.PRIN("Page: "+.|
00002e40  28 50 47 29 29 3a f2 4e  4c 3a f2 4e 4c 0d 0a d2  |(PG)):.NL:.NL...|
00002e50  39 e3 20 48 3d 31 20 b8  20 34 3a e7 20 48 3d 31  |9. H=1 . 4:. H=1|
00002e60  20 8c 20 48 3d 32 3a f2  50 52 49 4e 28 50 54 24  | . H=2:.PRIN(PT$|
00002e70  28 31 29 2b 22 20 22 2b  50 54 24 28 32 29 29 3a  |(1)+" "+PT$(2)):|
00002e80  e5 20 8d 64 66 4a 0d 0a  dc 11 f2 50 52 49 4e 28  |. .dfJ.....PRIN(|
00002e90  50 54 24 28 48 29 29 0d  0a e6 15 e7 20 48 3d 32  |PT$(H))..... H=2|
00002ea0  20 84 20 48 3d 34 20 8c  20 f2 4e 4c 0d 0a f0 09  | . H=4 . .NL....|
00002eb0  f2 4e 4c 3a ed 0d 0a fa  09 e1 3a f4 2f 2f 0d 0b  |.NL:......:.//..|
00002ec0  04 12 dd f2 50 52 49 4e  28 50 24 29 3a f4 2f 2f  |....PRIN(P$):.//|
00002ed0  0d 0b 0e 11 e7 20 a9 28  50 24 29 3d 30 20 8c 20  |..... .(P$)=0 . |
00002ee0  e1 0d 0b 18 2a ef 31 2c  33 32 3a e3 20 43 48 3d  |....*.1,32:. CH=|
00002ef0  31 20 b8 20 a9 28 50 24  29 3a ef 31 2c 97 28 c1  |1 . .(P$):.1,.(.|
00002f00  50 24 2c 43 48 2c 31 29  29 3a ed 0d 0b 22 09 e1  |P$,CH,1)):..."..|
00002f10  3a f4 2f 2f 0d 0b 2c 0e  dd f2 45 4a 50 47 3a f4  |:.//..,...EJPG:.|
00002f20  2f 2f 0d 0b 36 20 e3 20  4e 4c 3d 4c 49 2b 31 20  |//..6 . NL=LI+1 |
00002f30  b8 20 3f 28 31 30 36 37  2b 44 54 29 3a f2 4e 4c  |. ?(1067+DT):.NL|
00002f40  3a ed 0d 0b 40 0f 50 47  3d 50 47 2b 31 3a f4 2f  |:...@.PG=PG+1:./|
00002f50  2f 0d 0b 4a 09 e1 3a f4  2f 2f 0d 0b 54 0d dd f2  |/..J..:.//..T...|
00002f60  45 4c 49 3a f4 2f 2f 0d  0b 5e 44 db 3a ef 35 2c  |ELI:.//..^D.:.5,|
00002f70  32 33 2c 31 37 2c 37 2c  36 2c 38 3b 31 36 3b 30  |23,17,7,6,8;16;0|
00002f80  3b 3a e6 36 3a ec 20 34  36 34 2c 38 35 39 3a f1  |;:.6:. 464,859:.|
00002f90  22 45 44 49 54 20 4c 4f  43 41 4c 20 49 4e 46 4f  |"EDIT LOCAL INFO|
00002fa0  52 4d 41 54 49 4f 4e 22  3a ef 34 0d 0b 68 7b fb  |RMATION":.4..h{.|
00002fb0  20 31 3a f1 27 27 27 27  8a 33 30 29 3b 22 31 22  | 1:.''''.30);"1"|
00002fc0  3b 3a fb 20 33 3a f1 22  2e 2e 2e 43 6f 6d 70 61  |;:. 3:."...Compa|
00002fd0  6e 79 20 4e 61 6d 65 22  3a fb 20 31 3a f1 27 8a  |ny Name":. 1:.'.|
00002fe0  33 30 29 3b 22 32 22 3b  3a fb 20 33 3a f1 22 2e  |30);"2";:. 3:.".|
00002ff0  2e 2e 2e 2e 42 6f 6f 6b  20 54 69 74 6c 65 22 3a  |....Book Title":|
00003000  fb 20 31 3a f1 27 8a 33  30 29 3b 22 30 22 3b 3a  |. 1:.'.30);"0";:|
00003010  fb 20 33 3a f1 22 2e 2e  2e 2e 2e 2e 4d 61 69 6e  |. 3:."......Main|
00003020  20 4d 65 6e 75 22 0d 0b  72 14 41 24 3d a4 4b 28  | Menu"..r.A$=.K(|
00003030  22 30 22 2c 22 32 22 2c  31 29 0d 0b 7c 10 e7 20  |"0","2",1)..|.. |
00003040  41 24 3d 22 30 22 20 8c  20 e1 0d 0b 86 13 e7 20  |A$="0" . ...... |
00003050  41 24 3d 22 32 22 20 8c  20 8d 64 4c 4b 0d 0b 90  |A$="2" . .dLK...|
00003060  3f db 3a ef 35 2c 32 33  2c 31 37 2c 37 2c 36 2c  |?.:.5,23,17,7,6,|
00003070  38 3b 31 36 3b 30 3b 3a  e6 36 3a ec 20 35 30 34  |8;16;0;:.6:. 504|
00003080  2c 38 35 39 3a f1 22 45  44 49 54 20 43 4f 4d 50  |,859:."EDIT COMP|
00003090  41 4e 59 20 4e 41 4d 45  22 3a ef 34 0d 0b 9a bb  |ANY NAME":.4....|
000030a0  fb 20 35 3a f1 27 27 27  27 22 45 6e 74 65 72 20  |. 5:.''''"Enter |
000030b0  61 20 6e 65 77 20 63 6f  6d 70 61 6e 79 20 6e 61  |a new company na|
000030c0  6d 65 20 66 6f 72 20 74  68 65 20 63 75 72 72 65  |me for the curre|
000030d0  6e 74 20 62 6f 6f 6b 20  62 79 20 74 79 70 69 6e  |nt book by typin|
000030e0  67 20 74 68 65 20 6e 61  6d 65 2c 20 75 70 20 74  |g the name, up t|
000030f0  6f 20 33 32 20 20 63 68  61 72 61 63 74 65 72 73  |o 32  characters|
00003100  20 69 6e 20 6c 65 6e 67  74 68 2c 20 61 6e 64 20  | in length, and |
00003110  70 72 65 73 73 69 6e 67  20 52 45 54 55 52 4e 2e  |pressing RETURN.|
00003120  20 4a 75 73 74 20 70 72  65 73 73 69 6e 67 20 52  | Just pressing R|
00003130  45 54 55 52 4e 20 6c 65  61 76 65 73 20 74 68 65  |ETURN leaves the|
00003140  20 20 63 75 72 72 65 6e  74 20 6e 61 6d 65 20 69  |  current name i|
00003150  6e 74 61 63 74 2e 22 0d  0b a4 28 fb 20 33 3a f1  |ntact."...(. 3:.|
00003160  27 27 22 43 55 52 52 45  4e 54 20 4e 41 4d 45 3a  |''"CURRENT NAME:|
00003170  20 22 3b 3a fb 20 31 3a  f1 a4 47 43 28 30 29 0d  | ";:. 1:..GC(0).|
00003180  0b ae 69 fb 20 32 3a f1  27 27 22 4e 45 57 20 4e  |..i. 2:.''"NEW N|
00003190  41 4d 45 3a 20 22 3b 3a  fb 20 31 3a f1 22 2e 2e  |AME: ";:. 1:."..|
000031a0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
000031b0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 22 27  |.............."'|
000031c0  22 20 20 20 20 20 20 20  20 20 20 22 3b bd 31 31  |"          ";.11|
000031d0  3b 3a e8 22 22 4e 4e 24  3a e7 20 4e 4e 24 3d 22  |;:.""NN$:. NN$="|
000031e0  22 20 8c 20 8d 44 5e 4b  0d 0b b8 1a e7 20 a9 20  |" . .D^K..... . |
000031f0  4e 4e 24 3e 33 32 20 8c  20 ef 37 3a e5 20 8d 74  |NN$>32 . .7:. .t|
00003200  50 4b 0d 0b c2 21 f2 50  43 28 c0 4e 4e 24 2b c4  |PK...!.PC(.NN$+.|
00003210  33 32 2c 22 20 22 29 2c  33 32 29 29 3a e5 20 8d  |32," "),32)):. .|
00003220  44 5e 4b 0d 0b cc 3c db  3a ef 35 2c 32 33 2c 31  |D^K...<.:.5,23,1|
00003230  37 2c 37 2c 36 2c 38 3b  31 36 3b 30 3b 3a e6 36  |7,7,6,8;16;0;:.6|
00003240  3a ec 20 35 32 38 2c 38  35 39 3a f1 22 45 44 49  |:. 528,859:."EDI|
00003250  54 20 42 4f 4f 4b 20 4e  41 4d 45 22 3a ef 34 0d  |T BOOK NAME":.4.|
00003260  0b d6 ae fb 20 35 3a f1  27 27 27 27 22 45 6e 74  |.... 5:.''''"Ent|
00003270  65 72 20 61 20 6e 65 77  20 6e 61 6d 65 20 66 6f  |er a new name fo|
00003280  72 20 74 68 65 20 63 75  72 72 65 6e 74 20 62 6f  |r the current bo|
00003290  6f 6b 20 62 79 20 74 79  70 69 6e 67 20 74 68 65  |ok by typing the|
000032a0  20 6e 61 6d 65 2c 20 75  70 20 74 6f 20 34 30 20  | name, up to 40 |
000032b0  6c 65 74 74 65 72 73 20  20 69 6e 20 6c 65 6e 67  |letters  in leng|
000032c0  74 68 2c 20 61 6e 64 20  70 72 65 73 73 69 6e 67  |th, and pressing|
000032d0  20 52 45 54 55 52 4e 2e  20 4a 75 73 74 20 70 72  | RETURN. Just pr|
000032e0  65 73 73 69 6e 67 20 52  45 54 55 52 4e 20 6c 65  |essing RETURN le|
000032f0  61 76 65 73 20 74 68 65  20 63 75 72 72 65 6e 74  |aves the current|
00003300  20 6e 61 6d 65 69 6e 74  61 63 74 2e 22 0d 0b e0  | nameintact."...|
00003310  28 fb 20 33 3a f1 27 27  22 43 55 52 52 45 4e 54  |(. 3:.''"CURRENT|
00003320  20 4e 41 4d 45 3a 20 22  3b 3a fb 20 31 3a f1 a4  | NAME: ";:. 1:..|
00003330  47 42 28 30 29 0d 0b ea  71 fb 20 32 3a f1 27 27  |GB(0)...q. 2:.''|
00003340  22 4e 45 57 20 4e 41 4d  45 3a 20 22 3b 3a fb 20  |"NEW NAME: ";:. |
00003350  31 3a f1 22 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |1:."............|
00003360  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00003370  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 22 27 22 20  |............"'" |
00003380  20 20 20 20 20 20 20 20  20 22 3b bd 31 31 3b 3a  |         ";.11;:|
00003390  e8 22 22 4e 4e 24 3a e7  20 4e 4e 24 3d 22 22 20  |.""NN$:. NN$="" |
000033a0  8c 20 8d 44 5e 4b 0d 0b  f4 1a e7 20 a9 20 4e 4e  |. .D^K..... . NN|
000033b0  24 3e 34 30 20 8c 20 ef  37 3a e5 20 8d 64 4c 4b  |$>40 . .7:. .dLK|
000033c0  0d 0b fe 21 f2 50 42 28  c0 4e 4e 24 2b c4 34 30  |...!.PB(.NN$+.40|
000033d0  2c 22 20 22 29 2c 34 30  29 29 3a e5 20 8d 44 5e  |," "),40)):. .D^|
000033e0  4b 0d 0c 08 42 dd 20 a4  47 43 28 5a 29 3a 5a 58  |K...B. .GC(Z):ZX|
000033f0  24 3d 22 22 3a e3 20 41  41 3d 33 35 38 34 30 2b  |$="":. AA=35840+|
00003400  42 4b 20 b8 20 33 35 38  37 31 2b 42 4b 3a 5a 58  |BK . 35871+BK:ZX|
00003410  24 3d 5a 58 24 2b bd 28  3f 41 41 29 3a ed 3a 3d  |$=ZX$+.(?AA):.:=|
00003420  5a 58 24 0d 0c 12 42 dd  20 a4 47 42 28 5a 29 3a  |ZX$...B. .GB(Z):|
00003430  5a 58 24 3d 22 22 3a e3  20 41 41 3d 33 35 38 37  |ZX$="":. AA=3587|
00003440  32 2b 42 4b 20 b8 20 33  35 39 31 31 2b 42 4b 3a  |2+BK . 35911+BK:|
00003450  5a 58 24 3d 5a 58 24 2b  bd 28 3f 41 41 29 3a ed  |ZX$=ZX$+.(?AA):.|
00003460  3a 3d 5a 58 24 0d 0c 1c  3b dd 20 f2 50 43 28 5a  |:=ZX$...;. .PC(Z|
00003470  58 24 29 3a e3 20 41 41  3d 31 20 b8 20 33 32 33  |X$):. AA=1 . 323|
00003480  32 33 28 33 35 38 33 39  2b 42 4b 2b 41 41 29 3d  |23(35839+BK+AA)=|
00003490  97 28 c1 5a 58 24 2c 41  41 2c 31 29 29 3a ed 3a  |.(.ZX$,AA,1)):.:|
000034a0  e1 0d 0c 26 41 dd 20 f2  50 42 28 5a 58 24 29 3a  |...&A. .PB(ZX$):|
000034b0  e3 20 41 41 3d 31 20 b8  20 34 30 3a 3f 28 33 35  |. AA=1 . 40:?(35|
000034c0  38 37 31 2b 42 4b 2b 41  41 29 3d 97 28 c1 5a 58  |871+BK+AA)=.(.ZX|
000034d0  24 2c 41 41 2c 31 29 29  3a ed 3a f2 54 49 54 4c  |$,AA,1)):.:.TITL|
000034e0  3a e1 0d 0c 30 0e dd f2  50 52 41 43 3a f4 2f 2f  |:...0...PRAC:.//|
000034f0  0d 0c 3a 27 f2 50 52 4f  4e 3a f7 20 8d 44 44 4c  |..:'.PRON:. .DDL|
00003500  3a e3 20 4e 4f 3d 31 20  b8 20 34 3a f3 20 50 54  |:. NO=1 . 4:. PT|
00003510  24 28 4e 4f 29 3a ed 0d  0c 44 56 dc 22 22 2c 41  |$(NO):...DV."",A|
00003520  4e 41 4c 59 53 49 53 20  43 4f 44 45 20 4c 49 53  |NALYSIS CODE LIS|
00003530  54 2c 22 22 2c 22 20 4e  6f 20 46 75 6c 6c 20 44  |T,""," No Full D|
00003540  65 73 63 72 69 70 74 69  6f 6e 20 20 20 20 20 20  |escription      |
00003550  20 20 20 20 20 20 20 20  20 20 20 53 68 6f 72 74  |           Short|
00003560  20 44 65 73 63 72 69 70  74 69 6f 6e 22 0d 0c 4e  | Description"..N|
00003570  0b f2 4e 50 3a f4 2f 2f  0d 0c 58 44 e3 20 43 4f  |..NP:.//..XD. CO|
00003580  3d 30 20 b8 20 32 35 3a  f2 50 52 49 4e 28 22 20  |=0 . 25:.PRIN(" |
00003590  20 22 2b bd 28 36 35 2b  43 4f 29 2b 22 20 22 2b  | "+.(65+CO)+" "+|
000035a0  a4 47 4d 41 28 43 4f 29  2b 22 20 22 2b a4 47 53  |.GMA(CO)+" "+.GS|
000035b0  41 28 43 4f 29 29 3a f2  4e 4c 3a ed 0d 0c 62 15  |A(CO)):.NL:...b.|
000035c0  f2 45 4a 50 47 3a f2 50  52 4f 46 3a e1 3a f4 2f  |.EJPG:.PROF:.:./|
000035d0  2f 0d 0c 6c 0d dd f2 4d  41 4b 3a f4 2f 2f 0d 0c  |/..l...MAK:.//..|
000035e0  76 36 db 3a ef 32 33 2c  31 37 2c 37 2c 36 2c 38  |v6.:.23,17,7,6,8|
000035f0  3b 31 36 3b 30 3b 35 3a  e6 36 3a ec 35 36 30 2c  |;16;0;5:.6:.560,|
00003600  38 33 39 3a f1 22 4d 41  4b 45 20 45 4e 54 52 59  |839:."MAKE ENTRY|
00003610  22 3a ef 34 0d 0c 80 1f  4e 4f 3d a4 45 4e 28 30  |":.4....NO=.EN(0|
00003620  29 3a e7 20 4e 4f 3d 2d  31 20 8c 20 f2 46 55 4c  |):. NO=-1 . .FUL|
00003630  4c 3a e1 0d 0c 8a ab 41  44 3d 4e 4f 2a 31 32 38  |L:.....AD=NO*128|
00003640  2b 42 4b 3a fb 20 33 3a  f1 27 27 27 27 22 20 20  |+BK:. 3:.''''"  |
00003650  20 20 20 20 20 20 20 45  4e 54 52 59 20 4e 55 4d  |       ENTRY NUM|
00003660  42 45 52 3a 20 22 3b 3a  fb 20 31 3a f1 20 a4 48  |BER: ";:. 1:. .H|
00003670  28 4e 4f 2c 32 29 3a fb  20 35 3a f1 22 50 72 65  |(NO,2):. 5:."Pre|
00003680  73 73 20 59 20 74 6f 20  6d 61 6b 65 20 61 6e 20  |ss Y to make an |
00003690  65 6e 74 72 79 20 6f 6e  20 74 68 69 73 20 6e 75  |entry on this nu|
000036a0  6d 62 65 72 20 6f 72 20  4e 20 74 6f 20 72 65 74  |mber or N to ret|
000036b0  75 72 6e 20 74 6f 20 74  68 65 20 6d 61 69 6e 20  |urn to the main |
000036c0  6d 65 6e 75 2e 22 3a 59  4e 24 3d a4 59 4e 28 30  |menu.":YN$=.YN(0|
000036d0  29 3a e7 20 59 4e 24 3d  22 4e 22 8c 20 e1 0d 0c  |):. YN$="N". ...|
000036e0  94 69 db 3a ef 32 33 2c  31 37 2c 37 2c 36 2c 38  |.i.:.23,17,7,6,8|
000036f0  3b 31 36 3b 30 3b 35 3a  e6 36 3a ec 35 36 30 2c  |;16;0;5:.6:.560,|
00003700  38 33 39 3a f1 22 4d 41  4b 45 20 45 4e 54 52 59  |839:."MAKE ENTRY|
00003710  22 3a ef 34 3a fb 20 33  3a f1 27 27 27 27 22 20  |":.4:. 3:.''''" |
00003720  20 20 20 20 20 20 20 20  45 4e 54 52 59 20 4e 55  |        ENTRY NU|
00003730  4d 42 45 52 3a 20 22 3b  3a fb 20 31 3a f1 20 a4  |MBER: ";:. 1:. .|
00003740  48 28 4e 4f 2c 32 29 0d  0c 9e b4 fb 20 33 3a f1  |H(NO,2)..... 3:.|
00003750  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00003760  20 20 44 41 54 45 3a 20  22 3b 3a fb 20 31 3a f1  |  DATE: ";:. 1:.|
00003770  20 44 31 24 3b 22 2f 22  3b 44 32 24 3b 22 2f 22  | D1$;"/";D2$;"/"|
00003780  3b 44 33 24 3a fb 20 35  3a f1 22 50 72 65 73 73  |;D3$:. 5:."Press|
00003790  20 59 20 74 6f 20 75 73  65 20 74 68 69 73 20 64  | Y to use this d|
000037a0  61 74 65 20 6f 72 20 4e  20 74 6f 20 65 6e 74 65  |ate or N to ente|
000037b0  72 20 61 20 64 69 66 66  65 72 65 6e 74 20 64 61  |r a different da|
000037c0  74 65 2e 22 3a 59 4e 24  3d a4 59 4e 28 30 29 3a  |te.":YN$=.YN(0):|
000037d0  e7 20 59 4e 24 3d 22 4e  22 8c 20 f2 45 44 20 8b  |. YN$="N". .ED .|
000037e0  20 55 44 31 24 3d 44 31  24 3a 55 44 32 24 3d 44  | UD1$=D1$:UD2$=D|
000037f0  32 24 3a 55 44 33 24 3d  44 33 24 0d 0c a8 a6 db  |2$:UD3$=D3$.....|
00003800  3a ef 32 33 2c 31 37 2c  37 2c 36 2c 38 3b 31 36  |:.23,17,7,6,8;16|
00003810  3b 30 3b 35 3a e6 36 3a  ec 35 36 30 2c 38 33 39  |;0;5:.6:.560,839|
00003820  3a f1 22 4d 41 4b 45 20  45 4e 54 52 59 22 3a ef  |:."MAKE ENTRY":.|
00003830  34 3a fb 20 33 3a f1 27  27 27 27 22 20 20 20 20  |4:. 3:.''''"    |
00003840  20 20 20 20 20 45 4e 54  52 59 20 4e 55 4d 42 45  |     ENTRY NUMBE|
00003850  52 3a 20 22 3b 3a fb 20  31 3a f1 20 a4 48 28 4e  |R: ";:. 1:. .H(N|
00003860  4f 2c 32 29 3a fb 20 33  3a f1 22 20 20 20 20 20  |O,2):. 3:."     |
00003870  20 20 20 20 20 20 20 20  20 20 20 20 44 41 54 45  |            DATE|
00003880  3a 20 22 3b 3a fb 20 31  3a f1 20 55 44 31 24 3b  |: ";:. 1:. UD1$;|
00003890  22 2f 22 3b 55 44 32 24  3b 22 2f 22 3b 55 44 33  |"/";UD2$;"/";UD3|
000038a0  24 0d 0c b2 68 fb 20 33  3a f1 22 20 20 45 4e 54  |$...h. 3:."  ENT|
000038b0  45 52 20 31 73 74 20 52  45 46 45 52 45 4e 43 45  |ER 1st REFERENCE|
000038c0  3a 20 22 3b 3a fb 20 31  3a f1 20 22 2e 2e 2e 2e  |: ";:. 1:. "....|
000038d0  2e 2e 22 27 8a 32 33 29  3b bd 31 31 3b 3a e8 22  |.."'.23);.11;:."|
000038e0  22 52 31 24 3a e7 20 a9  20 52 31 24 3e 36 20 8c  |"R1$:. . R1$>6 .|
000038f0  20 ef 37 2c 31 31 3a f1  89 28 37 32 29 3a ef 20  | .7,11:..(72):. |
00003900  31 31 3a e5 20 8d 74 72  4c 0d 0c bc 18 52 31 24  |11:. .trL....R1$|
00003910  3d c2 22 20 20 20 20 20  20 22 2b 52 31 24 2c 36  |=."      "+R1$,6|
00003920  29 0d 0c c6 68 fb 20 33  3a f1 22 20 20 45 4e 54  |)...h. 3:."  ENT|
00003930  45 52 20 32 6e 64 20 52  45 46 45 52 45 4e 43 45  |ER 2nd REFERENCE|
00003940  3a 20 22 3b 3a fb 20 31  3a f1 20 22 2e 2e 2e 2e  |: ";:. 1:. "....|
00003950  2e 2e 22 27 8a 32 33 29  3b bd 31 31 3b 3a e8 22  |.."'.23);.11;:."|
00003960  22 52 32 24 3a e7 20 a9  20 52 32 24 3e 36 20 8c  |"R2$:. . R2$>6 .|
00003970  20 ef 37 2c 31 31 3a f1  89 28 37 32 29 3a ef 20  | .7,11:..(72):. |
00003980  31 31 3a e5 20 8d 64 46  4c 0d 0c d0 18 52 32 24  |11:. .dFL....R2$|
00003990  3d c2 22 20 20 20 20 20  20 22 2b 52 32 24 2c 36  |=."      "+R2$,6|
000039a0  29 0d 0c da 82 fb 20 33  3a f1 22 20 20 20 20 45  |)..... 3:."    E|
000039b0  4e 54 45 52 20 31 73 74  20 44 45 54 41 49 4c 53  |NTER 1st DETAILS|
000039c0  3a 20 22 3b 3a fb 20 31  3a f1 20 22 2e 2e 2e 2e  |: ";:. 1:. "....|
000039d0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
000039e0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 22 27 8a 32  |............"'.2|
000039f0  33 29 3b bd 31 31 3b 3a  e8 22 22 49 31 24 3a e7  |3);.11;:.""I1$:.|
00003a00  20 a9 20 49 31 24 3e 33  32 20 8c 20 ef 37 2c 31  | . I1$>32 . .7,1|
00003a10  31 3a f1 89 28 37 32 29  3a ef 31 31 3a e5 20 8d  |1:..(72):.11:. .|
00003a20  64 5a 4c 0d 0c e4 19 49  31 24 3d c0 49 31 24 2b  |dZL....I1$=.I1$+|
00003a30  c4 33 32 2c 22 20 22 29  2c 33 32 29 0d 0c ee 82  |.32," "),32)....|
00003a40  fb 20 33 3a f1 22 20 20  20 20 45 4e 54 45 52 20  |. 3:."    ENTER |
00003a50  32 6e 64 20 44 45 54 41  49 4c 53 3a 20 22 3b 3a  |2nd DETAILS: ";:|
00003a60  fb 20 31 3a f1 20 22 2e  2e 2e 2e 2e 2e 2e 2e 2e  |. 1:. ".........|
00003a70  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00003a80  2e 2e 2e 2e 2e 2e 2e 22  27 8a 32 33 29 3b bd 31  |......."'.23);.1|
00003a90  31 3b 3a e8 22 22 49 32  24 3a e7 20 a9 20 49 32  |1;:.""I2$:. . I2|
00003aa0  24 3e 33 32 20 8c 20 ef  37 2c 31 31 3a f1 89 28  |$>32 . .7,11:..(|
00003ab0  37 32 29 3a ef 31 31 3a  e5 20 8d 64 6e 4c 0d 0c  |72):.11:. .dnL..|
00003ac0  f8 19 49 32 24 3d c0 49  32 24 2b c4 33 32 2c 22  |..I2$=.I2$+.32,"|
00003ad0  20 22 29 2c 33 32 29 0d  0d 02 32 fb 35 3a f1 22  | "),32)...2.5:."|
00003ae0  20 20 20 20 50 72 65 73  73 20 50 20 66 6f 72 20  |    Press P for |
00003af0  50 41 59 4d 45 4e 54 20  6f 72 20 52 20 66 6f 72  |PAYMENT or R for|
00003b00  20 52 45 43 45 49 50 54  22 0d 0d 0c 2b 52 50 24  | RECEIPT"...+RP$|
00003b10  3d a4 4b 28 22 50 22 2c  22 52 22 2c 31 29 3a e7  |=.K("P","R",1):.|
00003b20  20 52 50 24 3d 22 51 22  20 8c 20 ef 37 3a e5 20  | RP$="Q" . .7:. |
00003b30  8d 54 4c 4d 0d 0d 16 63  ef 31 31 3a fb 33 3a f1  |.TLM...c.11:.3:.|
00003b40  22 20 20 20 20 20 20 20  20 20 20 20 45 4e 54 52  |"           ENTR|
00003b50  59 20 54 59 50 45 3a 20  22 3b 3a fb 20 31 3a e7  |Y TYPE: ";:. 1:.|
00003b60  20 52 50 24 3d 22 50 22  20 8c 20 f1 20 22 50 41  | RP$="P" . . "PA|
00003b70  59 4d 45 4e 54 20 20 20  20 20 20 20 20 20 20 22  |YMENT          "|
00003b80  20 8b 20 f1 22 52 45 43  45 49 50 54 20 20 20 20  | . ."RECEIPT    |
00003b90  20 20 20 20 20 20 22 0d  0d 20 35 fb 20 33 3a f1  |      ".. 5. 3:.|
00003ba0  22 20 20 20 20 20 45 4e  54 45 52 20 56 41 54 20  |"     ENTER VAT |
00003bb0  41 4d 4f 55 4e 54 3a 20  22 3b 3a fb 20 31 3a 56  |AMOUNT: ";:. 1:V|
00003bc0  41 54 24 3d a4 55 4d 28  30 29 3a f1 0d 0d 2a 67  |AT$=.UM(0):...*g|
00003bd0  41 31 24 3d 22 5b 22 3a  41 32 24 3d 22 5b 22 3a  |A1$="[":A2$="[":|
00003be0  41 33 24 3d 22 5b 22 3a  41 34 24 3d 22 5b 22 3a  |A3$="[":A4$="[":|
00003bf0  56 31 24 3d 22 20 20 20  20 20 20 30 2e 30 30 22  |V1$="      0.00"|
00003c00  3a 56 32 24 3d 22 20 20  20 20 20 20 30 2e 30 30  |:V2$="      0.00|
00003c10  22 3a 56 33 24 3d 22 20  20 20 20 20 20 30 2e 30  |":V3$="      0.0|
00003c20  30 22 3a 56 34 24 3d 22  20 20 20 20 20 20 30 2e  |0":V4$="      0.|
00003c30  30 30 22 0d 0d 34 48 fb  20 35 3a f1 22 20 50 72  |00"..4H. 5:." Pr|
00003c40  65 73 73 20 41 20 74 6f  20 5a 20 66 6f 72 20 31  |ess A to Z for 1|
00003c50  73 74 20 41 6e 61 6c 79  73 69 73 20 63 6f 64 65  |st Analysis code|
00003c60  20 6f 72 20 53 50 41 43  45 20 66 6f 72 20 6e 6f  | or SPACE for no|
00003c70  20 61 6e 61 6c 79 73 69  73 2e 22 0d 0d 3e 35 41  | analysis."..>5A|
00003c80  31 24 3d a4 4b 28 22 20  22 2c 22 5a 22 2c 31 29  |1$=.K(" ","Z",1)|
00003c90  3a e7 20 41 31 24 3e 22  20 22 20 80 20 41 31 24  |:. A1$>" " . A1$|
00003ca0  3c 22 41 22 20 8c 20 ef  37 3a e5 20 8d 54 7e 4d  |<"A" . .7:. .T~M|
00003cb0  0d 0d 48 1e e7 20 41 31  24 3d 22 20 22 20 8c 20  |..H.. A1$=" " . |
00003cc0  41 31 24 3d 22 5b 22 3a  e5 20 8d 54 64 4e 0d 0d  |A1$="[":. .TdN..|
00003cd0  52 29 e7 20 c0 a4 47 4d  41 28 97 28 41 31 24 29  |R). ..GMA(.(A1$)|
00003ce0  2d 36 35 29 2c 31 29 3d  22 20 22 20 8c 20 ef 37  |-65),1)=" " . .7|
00003cf0  3a e5 20 8d 54 7e 4d 0d  0d 5c 4a ef 31 31 3a fb  |:. .T~M..\J.11:.|
00003d00  20 33 3a f1 22 20 20 20  20 20 20 20 20 20 31 73  | 3:."         1s|
00003d10  74 20 41 4e 41 4c 59 53  49 53 3a 20 22 3b 3a fb  |t ANALYSIS: ";:.|
00003d20  20 31 3a f1 20 a4 47 4d  41 28 97 28 41 31 24 29  | 1:. .GMA(.(A1$)|
00003d30  2d 36 35 29 3b 22 20 20  20 20 20 20 20 20 20 20  |-65);"          |
00003d40  22 0d 0d 66 34 fb 20 33  3a f1 22 20 20 20 20 20  |"..f4. 3:."     |
00003d50  45 4e 54 45 52 20 31 73  74 20 41 4d 4f 55 4e 54  |ENTER 1st AMOUNT|
00003d60  3a 20 22 3b 3a fb 20 31  3a 56 31 24 3d a4 55 4d  |: ";:. 1:V1$=.UM|
00003d70  28 30 29 3a f1 0d 0d 70  50 fb 20 35 3a f1 22 20  |(0):...pP. 5:." |
00003d80  50 72 65 73 73 20 41 20  74 6f 20 5a 20 66 6f 72  |Press A to Z for|
00003d90  20 32 6e 64 20 41 6e 61  6c 79 73 69 73 20 63 6f  | 2nd Analysis co|
00003da0  64 65 20 6f 72 20 53 50  41 43 45 20 66 6f 72 20  |de or SPACE for |
00003db0  6e 6f 20 66 75 72 74 68  65 72 20 61 6e 61 6c 79  |no further analy|
00003dc0  73 69 73 2e 22 0d 0d 7a  35 41 32 24 3d a4 4b 28  |sis."..z5A2$=.K(|
00003dd0  22 20 22 2c 22 5a 22 2c  31 29 3a e7 20 41 32 24  |" ","Z",1):. A2$|
00003de0  3e 22 20 22 20 80 20 41  32 24 3c 22 41 22 20 8c  |>" " . A2$<"A" .|
00003df0  20 ef 37 3a e5 20 8d 44  7a 4d 0d 0d 84 1e e7 20  | .7:. .DzM..... |
00003e00  41 32 24 3d 22 20 22 20  8c 20 41 32 24 3d 22 5b  |A2$=" " . A2$="[|
00003e10  22 3a e5 20 8d 54 64 4e  0d 0d 8e 29 e7 20 c0 a4  |":. .TdN...). ..|
00003e20  47 4d 41 28 97 28 41 32  24 29 2d 36 35 29 2c 31  |GMA(.(A2$)-65),1|
00003e30  29 3d 22 20 22 20 8c 20  ef 37 3a e5 20 8d 44 7a  |)=" " . .7:. .Dz|
00003e40  4d 0d 0d 98 4e ef 31 31  3a fb 20 33 3a f1 22 20  |M...N.11:. 3:." |
00003e50  20 20 20 20 20 20 20 20  32 6e 64 20 41 4e 41 4c  |        2nd ANAL|
00003e60  59 53 49 53 3a 20 22 3b  3a fb 20 31 3a f1 20 a4  |YSIS: ";:. 1:. .|
00003e70  47 4d 41 28 97 28 41 32  24 29 2d 36 35 29 3b 22  |GMA(.(A2$)-65);"|
00003e80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 0d  |              ".|
00003e90  0d a2 34 fb 20 33 3a f1  22 20 20 20 20 20 45 4e  |..4. 3:."     EN|
00003ea0  54 45 52 20 32 6e 64 20  41 4d 4f 55 4e 54 3a 20  |TER 2nd AMOUNT: |
00003eb0  22 3b 3a fb 20 31 3a 56  32 24 3d a4 55 4d 28 30  |";:. 1:V2$=.UM(0|
00003ec0  29 3a f1 0d 0d ac 50 fb  20 35 3a f1 22 20 50 72  |):....P. 5:." Pr|
00003ed0  65 73 73 20 41 20 74 6f  20 5a 20 66 6f 72 20 33  |ess A to Z for 3|
00003ee0  72 64 20 41 6e 61 6c 79  73 69 73 20 63 6f 64 65  |rd Analysis code|
00003ef0  20 6f 72 20 53 50 41 43  45 20 66 6f 72 20 6e 6f  | or SPACE for no|
00003f00  20 66 75 72 74 68 65 72  20 61 6e 61 6c 79 73 69  | further analysi|
00003f10  73 2e 22 0d 0d b6 35 41  33 24 3d a4 4b 28 22 20  |s."...5A3$=.K(" |
00003f20  22 2c 22 5a 22 2c 31 29  3a e7 20 41 33 24 3e 22  |","Z",1):. A3$>"|
00003f30  20 22 20 80 20 41 33 24  3c 22 41 22 20 8c 20 ef  | " . A3$<"A" . .|
00003f40  37 3a e5 20 8d 74 76 4d  0d 0d c0 1e e7 20 41 33  |7:. .tvM..... A3|
00003f50  24 3d 22 20 22 20 8c 20  41 33 24 3d 22 5b 22 3a  |$=" " . A3$="[":|
00003f60  e5 20 8d 54 64 4e 0d 0d  ca 29 e7 20 c0 a4 47 4d  |. .TdN...). ..GM|
00003f70  41 28 97 28 41 33 24 29  2d 36 35 29 2c 31 29 3d  |A(.(A3$)-65),1)=|
00003f80  22 20 22 20 8c 20 ef 37  3a e5 20 8d 74 76 4d 0d  |" " . .7:. .tvM.|
00003f90  0d d4 4e ef 31 31 3a fb  20 33 3a f1 22 20 20 20  |..N.11:. 3:."   |
00003fa0  20 20 20 20 20 20 33 72  64 20 41 4e 41 4c 59 53  |      3rd ANALYS|
00003fb0  49 53 3a 20 22 3b 3a fb  20 31 3a f1 20 a4 47 4d  |IS: ";:. 1:. .GM|
00003fc0  41 28 97 28 41 33 24 29  2d 36 35 29 3b 22 20 20  |A(.(A3$)-65);"  |
00003fd0  20 20 20 20 20 20 20 20  20 20 20 20 22 0d 0d de  |            "...|
00003fe0  34 fb 20 33 3a f1 22 20  20 20 20 20 45 4e 54 45  |4. 3:."     ENTE|
00003ff0  52 20 33 72 64 20 41 4d  4f 55 4e 54 3a 20 22 3b  |R 3rd AMOUNT: ";|
00004000  3a fb 20 31 3a 56 33 24  3d a4 55 4d 28 30 29 3a  |:. 1:V3$=.UM(0):|
00004010  f1 0d 0d e8 50 fb 20 35  3a f1 22 20 50 72 65 73  |....P. 5:." Pres|
00004020  73 20 41 20 74 6f 20 5a  20 66 6f 72 20 34 74 68  |s A to Z for 4th|
00004030  20 41 6e 61 6c 79 73 69  73 20 63 6f 64 65 20 6f  | Analysis code o|
00004040  72 20 53 50 41 43 45 20  66 6f 72 20 6e 6f 20 66  |r SPACE for no f|
00004050  75 72 74 68 65 72 20 61  6e 61 6c 79 73 69 73 2e  |urther analysis.|
00004060  22 0d 0d f2 35 41 34 24  3d a4 4b 28 22 20 22 2c  |"...5A4$=.K(" ",|
00004070  22 5a 22 2c 31 29 3a e7  20 41 34 24 3e 22 20 22  |"Z",1):. A4$>" "|
00004080  20 80 20 41 34 24 3c 22  41 22 20 8c 20 ef 37 3a  | . A4$<"A" . .7:|
00004090  e5 20 8d 64 72 4d 0d 0d  fc 1e e7 20 41 34 24 3d  |. .drM..... A4$=|
000040a0  22 20 22 20 8c 20 41 34  24 3d 22 5b 22 3a e5 20  |" " . A4$="[":. |
000040b0  8d 54 64 4e 0d 0e 06 29  e7 20 c0 a4 47 4d 41 28  |.TdN...). ..GMA(|
000040c0  97 28 41 34 24 29 2d 36  35 29 2c 31 29 3d 22 20  |.(A4$)-65),1)=" |
000040d0  22 20 8c 20 ef 37 3a e5  20 8d 64 72 4d 0d 0e 10  |" . .7:. .drM...|
000040e0  4e ef 31 31 3a fb 20 33  3a f1 22 20 20 20 20 20  |N.11:. 3:."     |
000040f0  20 20 20 20 34 74 68 20  41 4e 41 4c 59 53 49 53  |    4th ANALYSIS|
00004100  3a 20 22 3b 3a fb 20 31  3a f1 20 a4 47 4d 41 28  |: ";:. 1:. .GMA(|
00004110  97 28 41 34 24 29 2d 36  35 29 3b 22 20 20 20 20  |.(A4$)-65);"    |
00004120  20 20 20 20 20 20 20 20  20 20 22 0d 0e 1a 34 fb  |          "...4.|
00004130  20 33 3a f1 22 20 20 20  20 20 45 4e 54 45 52 20  | 3:."     ENTER |
00004140  34 74 68 20 41 4d 4f 55  4e 54 3a 20 22 3b 3a fb  |4th AMOUNT: ";:.|
00004150  20 31 3a 56 34 24 3d a4  55 4d 28 30 29 3a f1 0d  | 1:V4$=.UM(0):..|
00004160  0e 24 5e fb 20 33 3a f1  22 20 20 20 20 20 20 20  |.$^. 3:."       |
00004170  20 20 54 4f 54 41 4c 20  41 4d 4f 55 4e 54 3a 20  |  TOTAL AMOUNT: |
00004180  22 3b 3a fb 20 31 3a 56  54 24 3d a4 4e 53 28 a4  |";:. 1:VT$=.NS(.|
00004190  53 4e 28 56 31 24 29 2b  a4 53 4e 28 56 32 24 29  |SN(V1$)+.SN(V2$)|
000041a0  2b a4 53 4e 28 56 33 24  29 2b a4 53 4e 28 56 34  |+.SN(V3$)+.SN(V4|
000041b0  24 29 2b a4 53 4e 28 56  41 54 24 29 29 0d 0e 2e  |$)+.SN(VAT$))...|
000041c0  4a f1 20 56 54 24 3a e7  20 a4 53 4e 28 56 54 24  |J. VT$:. .SN(VT$|
000041d0  29 3e 39 39 39 39 39 39  39 39 39 20 8c 20 f2 52  |)>999999999 . .R|
000041e0  41 4e 47 45 3a e5 20 8d  44 76 4c 3a 8b 20 56 54  |ANGE:. .DvL:. VT|
000041f0  24 3d c2 22 20 20 20 20  20 20 20 20 20 20 22 2b  |$=."          "+|
00004200  56 54 24 2c 31 30 29 0d  0e 38 4e fb 20 35 3a f1  |VT$,10)..8N. 5:.|
00004210  27 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |'"              |
00004220  20 20 20 20 20 20 20 43  4f 4e 46 49 52 4d 20 54  |       CONFIRM T|
00004230  48 49 53 20 45 4e 54 52  59 20 28 59 2f 4e 29 3f  |HIS ENTRY (Y/N)?|
00004240  22 3a e7 20 a4 59 4e 28  30 29 3d 22 4e 22 20 8c  |":. .YN(0)="N" .|
00004250  20 8d 44 76 4c 0d 0e 42  29 3f 41 44 3d bb 28 55  | .DvL..B)?AD=.(U|
00004260  44 31 24 29 3a 41 44 3f  31 3d bb 28 55 44 32 24  |D1$):AD?1=.(UD2$|
00004270  29 3a 41 44 3f 32 3d bb  28 55 44 33 24 29 0d 0e  |):AD?2=.(UD3$)..|
00004280  4c 43 e3 20 52 46 3d 31  20 b8 20 36 3a 3f 28 32  |LC. RF=1 . 6:?(2|
00004290  2b 41 44 2b 52 46 29 3d  97 28 c1 52 31 24 2c 52  |+AD+RF)=.(.R1$,R|
000042a0  46 2c 31 29 29 3a 3f 28  34 30 2b 41 44 2b 52 46  |F,1)):?(40+AD+RF|
000042b0  29 3d 97 28 c1 52 32 24  2c 52 46 2c 31 29 29 3a  |)=.(.R2$,RF,1)):|
000042c0  ed 0d 0e 56 44 e3 20 52  46 3d 31 20 b8 20 33 32  |...VD. RF=1 . 32|
000042d0  3a 3f 28 38 2b 41 44 2b  52 46 29 3d 97 28 c1 49  |:?(8+AD+RF)=.(.I|
000042e0  31 24 2c 52 46 2c 31 29  29 3a 3f 28 34 36 2b 41  |1$,RF,1)):?(46+A|
000042f0  44 2b 52 46 29 3d 97 28  c1 49 32 24 2c 52 46 2c  |D+RF)=.(.I2$,RF,|
00004300  31 29 29 3a ed 0d 0e 60  5c 5a 3d bb 28 c0 56 54  |1)):...`\Z=.(.VT|
00004310  24 2c 37 29 29 3a 41 44  3f 37 39 3d 5a 20 81 20  |$,7)):AD?79=Z . |
00004320  36 35 35 33 36 3a 5a 3d  5a 20 83 20 36 35 35 33  |65536:Z=Z . 6553|
00004330  36 3a 41 44 3f 38 30 3d  5a 20 81 32 35 36 3a 5a  |6:AD?80=Z .256:Z|
00004340  3d 5a 20 83 20 32 35 36  3a 41 44 3f 38 31 3d 5a  |=Z . 256:AD?81=Z|
00004350  3a 41 44 3f 38 32 3d bb  28 c2 56 54 24 2c 32 29  |:AD?82=.(.VT$,2)|
00004360  29 0d 0e 6a 5e 5a 3d bb  28 c0 56 41 54 24 2c 37  |)..j^Z=.(.VAT$,7|
00004370  29 29 3a 41 44 3f 38 33  3d 5a 20 81 20 36 35 35  |)):AD?83=Z . 655|
00004380  33 36 3a 5a 3d 5a 20 83  20 36 35 35 33 36 3a 41  |36:Z=Z . 65536:A|
00004390  44 3f 38 34 3d 5a 20 81  32 35 36 3a 5a 3d 5a 20  |D?84=Z .256:Z=Z |
000043a0  83 20 32 35 36 3a 41 44  3f 38 35 3d 5a 3a 41 44  |. 256:AD?85=Z:AD|
000043b0  3f 38 36 3d bb 28 c2 56  41 54 24 2c 32 29 29 0d  |?86=.(.VAT$,2)).|
000043c0  0e 74 5c 5a 3d bb 28 c0  56 31 24 2c 37 29 29 3a  |.t\Z=.(.V1$,7)):|
000043d0  41 44 3f 39 31 3d 5a 20  81 20 36 35 35 33 36 3a  |AD?91=Z . 65536:|
000043e0  5a 3d 5a 20 83 20 36 35  35 33 36 3a 41 44 3f 39  |Z=Z . 65536:AD?9|
000043f0  32 3d 5a 20 81 32 35 36  3a 5a 3d 5a 20 83 20 32  |2=Z .256:Z=Z . 2|
00004400  35 36 3a 41 44 3f 39 33  3d 5a 3a 41 44 3f 39 34  |56:AD?93=Z:AD?94|
00004410  3d bb 28 c2 56 31 24 2c  32 29 29 0d 0e 7e 5c 5a  |=.(.V1$,2))..~\Z|
00004420  3d bb 28 c0 56 32 24 2c  37 29 29 3a 41 44 3f 39  |=.(.V2$,7)):AD?9|
00004430  35 3d 5a 20 81 20 36 35  35 33 36 3a 5a 3d 5a 20  |5=Z . 65536:Z=Z |
00004440  83 20 36 35 35 33 36 3a  41 44 3f 39 36 3d 5a 20  |. 65536:AD?96=Z |
00004450  81 32 35 36 3a 5a 3d 5a  20 83 20 32 35 36 3a 41  |.256:Z=Z . 256:A|
00004460  44 3f 39 37 3d 5a 3a 41  44 3f 39 38 3d bb 28 c2  |D?97=Z:AD?98=.(.|
00004470  56 32 24 2c 32 29 29 0d  0e 88 5f 5a 3d bb 28 c0  |V2$,2))..._Z=.(.|
00004480  56 33 24 2c 37 29 29 3a  41 44 3f 39 39 3d 5a 20  |V3$,7)):AD?99=Z |
00004490  81 20 36 35 35 33 36 3a  5a 3d 5a 20 83 20 36 35  |. 65536:Z=Z . 65|
000044a0  35 33 36 3a 41 44 3f 31  30 30 3d 5a 20 81 32 35  |536:AD?100=Z .25|
000044b0  36 3a 5a 3d 5a 20 83 20  32 35 36 3a 41 44 3f 31  |6:Z=Z . 256:AD?1|
000044c0  30 31 3d 5a 3a 41 44 3f  31 30 32 3d bb 28 c2 56  |01=Z:AD?102=.(.V|
000044d0  33 24 2c 32 29 29 0d 0e  92 60 5a 3d bb 28 c0 56  |3$,2))...`Z=.(.V|
000044e0  34 24 2c 37 29 29 3a 41  44 3f 31 30 33 3d 5a 20  |4$,7)):AD?103=Z |
000044f0  81 20 36 35 35 33 36 3a  5a 3d 5a 20 83 20 36 35  |. 65536:Z=Z . 65|
00004500  35 33 36 3a 41 44 3f 31  30 34 3d 5a 20 81 32 35  |536:AD?104=Z .25|
00004510  36 3a 5a 3d 5a 20 83 20  32 35 36 3a 41 44 3f 31  |6:Z=Z . 256:AD?1|
00004520  30 35 3d 5a 3a 41 44 3f  31 30 36 3d bb 28 c2 56  |05=Z:AD?106=.(.V|
00004530  34 24 2c 32 29 29 0d 0e  9c 43 41 44 3f 38 37 3d  |4$,2))...CAD?87=|
00004540  97 28 41 31 24 29 2d 36  35 3a 41 44 3f 38 38 3d  |.(A1$)-65:AD?88=|
00004550  97 28 41 32 24 29 2d 36  35 3a 41 44 3f 38 39 3d  |.(A2$)-65:AD?89=|
00004560  97 28 41 33 24 29 2d 36  35 3a 41 44 3f 39 30 3d  |.(A3$)-65:AD?90=|
00004570  97 28 41 34 24 29 2d 36  35 0d 0e a6 15 41 44 3f  |.(A4$)-65....AD?|
00004580  31 30 37 3d 97 28 52 50  24 29 3a f4 2f 2f 0d 0e  |107=.(RP$):.//..|
00004590  b0 0e e5 20 8d 44 76 4c  3a f4 2f 2f 0d 0e ba 0c  |... .DvL:.//....|
000045a0  dd f2 45 44 3a f4 2f 2f  0d 0e c4 cd ef 31 31 3a  |..ED:.//.....11:|
000045b0  fb 20 33 3a f1 22 20 20  20 20 20 20 20 20 20 20  |. 3:."          |
000045c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00004600  22 27 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |"'"             |
00004610  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00004640  20 20 20 20 20 20 20 20  20 20 20 20 22 3a ef 20  |            ":. |
00004650  31 31 2c 31 31 3a f1 22  20 20 20 20 20 20 20 20  |11,11:."        |
00004660  20 20 20 20 20 20 20 20  20 44 41 54 45 3a 20 22  |         DATE: "|
00004670  3b 3a fb 20 31 0d 0e ce  78 55 44 31 24 3d 22 22  |;:. 1...xUD1$=""|
00004680  3a 5a 24 3d a4 4b 28 22  30 22 2c 22 33 22 2c 32  |:Z$=.K("0","3",2|
00004690  29 3a f1 5a 24 3b 3a 55  44 31 24 3d 55 44 31 24  |):.Z$;:UD1$=UD1$|
000046a0  2b 5a 24 3a 5a 24 3d a4  4b 28 22 30 22 2c 22 39  |+Z$:Z$=.K("0","9|
000046b0  22 2c 32 29 3a f1 5a 24  3b 3a 55 44 31 24 3d 55  |",2):.Z$;:UD1$=U|
000046c0  44 31 24 2b 5a 24 3a e7  20 bb 28 55 44 31 24 29  |D1$+Z$:. .(UD1$)|
000046d0  3c 31 20 84 20 bb 28 55  44 31 24 29 3e 33 31 20  |<1 . .(UD1$)>31 |
000046e0  8c 20 ef 37 3a f1 3a e5  20 8d 64 44 4e 0d 0e d8  |. .7:.:. .dDN...|
000046f0  7e f1 22 2f 22 3b 3a 55  44 32 24 3d 22 22 3a 5a  |~."/";:UD2$="":Z|
00004700  24 3d a4 4b 28 22 30 22  2c 22 31 22 2c 32 29 3a  |$=.K("0","1",2):|
00004710  f1 5a 24 3b 3a 55 44 32  24 3d 55 44 32 24 2b 5a  |.Z$;:UD2$=UD2$+Z|
00004720  24 3a 5a 24 3d a4 4b 28  22 30 22 2c 22 39 22 2c  |$:Z$=.K("0","9",|
00004730  32 29 3a f1 5a 24 3b 3a  55 44 32 24 3d 55 44 32  |2):.Z$;:UD2$=UD2|
00004740  24 2b 5a 24 3a e7 20 bb  28 55 44 32 24 29 3c 31  |$+Z$:. .(UD2$)<1|
00004750  20 84 20 bb 28 55 44 32  24 29 3e 31 32 20 8c 20  | . .(UD2$)>12 . |
00004760  ef 37 3a f1 3a e5 20 8d  64 44 4e 0d 0e e2 57 f1  |.7:.:. .dDN...W.|
00004770  22 2f 22 3b 3a 55 44 33  24 3d 22 22 3a 5a 24 3d  |"/";:UD3$="":Z$=|
00004780  a4 4b 28 22 30 22 2c 22  39 22 2c 32 29 3a f1 5a  |.K("0","9",2):.Z|
00004790  24 3b 3a 55 44 33 24 3d  55 44 33 24 2b 5a 24 3a  |$;:UD3$=UD3$+Z$:|
000047a0  5a 24 3d a4 4b 28 22 30  22 2c 22 39 22 2c 32 29  |Z$=.K("0","9",2)|
000047b0  3a f1 5a 24 3b 3a 55 44  33 24 3d 55 44 33 24 2b  |:.Z$;:UD3$=UD3$+|
000047c0  5a 24 0d 0e ec 0b f1 3a  e1 3a f4 2f 2f 0d 0e f6  |Z$.....:.:.//...|
000047d0  0d dd f2 56 49 45 3a f4  2f 2f 0d 0f 00 2c e3 20  |...VIE:.//...,. |
000047e0  45 4e 3d 30 20 b8 20 32  32 33 3a 41 44 3d 45 4e  |EN=0 . 223:AD=EN|
000047f0  2a 31 32 38 2b 42 4b 3a  e7 20 3f 41 44 3d 30 20  |*128+BK:. ?AD=0 |
00004800  8c 20 8d 54 44 50 0d 0f  0a 35 db 3a ef 32 33 2c  |. .TDP...5.:.23,|
00004810  31 37 2c 37 2c 36 2c 38  3b 31 36 3b 30 3b 35 3a  |17,7,6,8;16;0;5:|
00004820  e6 36 3a ec 35 36 38 2c  38 33 39 3a f1 22 56 49  |.6:.568,839:."VI|
00004830  45 57 20 42 4f 4f 4b 22  3a ef 34 0d 0f 14 36 fb  |EW BOOK":.4...6.|
00004840  20 33 3a f1 27 27 27 27  22 20 20 20 20 20 20 20  | 3:.''''"       |
00004850  20 20 45 4e 54 52 59 20  4e 55 4d 42 45 52 3a 20  |  ENTRY NUMBER: |
00004860  22 3b 3a fb 20 32 3a f1  20 a4 48 28 45 4e 2c 32  |";:. 2:. .H(EN,2|
00004870  29 0d 0f 1e 42 fb 20 33  3a f1 22 20 20 20 20 20  |)...B. 3:."     |
00004880  20 20 20 20 20 20 20 20  20 20 20 20 44 41 54 45  |            DATE|
00004890  3a 20 22 3b 3a fb 20 32  3a f1 20 22 22 3b 3f 41  |: ";:. 2:. "";?A|
000048a0  44 3b 22 2f 22 3b 41 44  3f 31 3b 22 2f 22 3b 41  |D;"/";AD?1;"/";A|
000048b0  44 3f 32 0d 0f 28 4f fb  20 33 3a f1 22 20 20 20  |D?2..(O. 3:."   |
000048c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 54 59  |              TY|
000048d0  50 45 3a 20 22 3b 3a fb  20 32 3a e7 20 41 44 3f  |PE: ";:. 2:. AD?|
000048e0  31 30 37 3d 97 22 50 22  20 8c 20 f1 20 22 50 61  |107=."P" . . "Pa|
000048f0  79 6d 65 6e 74 22 8b 20  f1 22 52 65 63 65 69 70  |yment". ."Receip|
00004900  74 22 0d 0f 32 43 fb 20  33 3a f1 22 20 20 20 20  |t"..2C. 3:."    |
00004910  20 20 20 20 20 20 52 45  46 45 52 45 4e 43 45 20  |      REFERENCE |
00004920  31 3a 20 22 3b 3a fb 20  32 3a e3 20 5a 3d 30 20  |1: ";:. 2:. Z=0 |
00004930  b8 20 35 3a f1 20 bd 28  3f 28 41 44 2b 5a 2b 33  |. 5:. .(?(AD+Z+3|
00004940  29 29 3b 3a ed 0d 0f 3c  45 fb 20 33 3a f1 27 22  |));:...<E. 3:.'"|
00004950  20 20 20 20 20 20 20 20  20 20 20 20 44 45 54 41  |            DETA|
00004960  49 4c 53 20 31 3a 20 22  3b 3a fb 20 32 3a e3 20  |ILS 1: ";:. 2:. |
00004970  5a 3d 30 20 b8 20 33 31  3a f1 20 bd 28 3f 28 41  |Z=0 . 31:. .(?(A|
00004980  44 2b 5a 2b 39 29 29 3b  3a ed 0d 0f 46 45 fb 20  |D+Z+9));:...FE. |
00004990  33 3a f1 27 22 20 20 20  20 20 20 20 20 20 20 52  |3:.'"          R|
000049a0  45 46 45 52 45 4e 43 45  20 32 3a 20 22 3b 3a fb  |EFERENCE 2: ";:.|
000049b0  20 32 3a e3 20 5a 3d 30  20 b8 20 35 3a f1 20 bd  | 2:. Z=0 . 5:. .|
000049c0  28 3f 28 41 44 2b 5a 2b  34 31 29 29 3b 3a ed 0d  |(?(AD+Z+41));:..|
000049d0  0f 50 48 fb 20 33 3a f1  27 22 20 20 20 20 20 20  |.PH. 3:.'"      |
000049e0  20 20 20 20 20 20 44 45  54 41 49 4c 53 20 32 3a  |      DETAILS 2:|
000049f0  20 22 3b 3a fb 20 32 3a  e3 20 5a 3d 30 20 b8 20  | ";:. 2:. Z=0 . |
00004a00  33 31 3a f1 20 bd 28 3f  28 41 44 2b 5a 2b 34 37  |31:. .(?(AD+Z+47|
00004a10  29 29 3b 3a ed 3a f1 0d  0f 5a 1b 41 4e 3d 41 44  |));:.:...Z.AN=AD|
00004a20  3f 38 37 3a e7 20 41 4e  3d 32 36 20 8c 20 8d 64  |?87:. AN=26 . .d|
00004a30  52 4f 0d 0f 64 32 fb 20  33 3a f1 22 20 20 20 20  |RO..d2. 3:."    |
00004a40  20 20 20 20 20 20 20 41  4e 41 4c 59 53 49 53 20  |       ANALYSIS |
00004a50  31 3a 20 22 3b 3a fb 20  32 3a f1 20 a4 47 4d 41  |1: ";:. 2:. .GMA|
00004a60  28 41 4e 29 0d 0f 6e 72  fb 20 33 3a f1 22 20 20  |(AN)..nr. 3:."  |
00004a70  20 20 20 20 20 20 20 20  20 20 20 41 4d 4f 55 4e  |           AMOUN|
00004a80  54 20 31 3a 20 22 3b 3a  fb 20 32 3a f1 20 c2 22  |T 1: ";:. 2:. ."|
00004a90  20 20 20 20 20 20 20 22  2b c3 28 28 41 44 3f 39  |       "+.((AD?9|
00004aa0  31 29 2a 36 35 35 33 36  2b 28 41 44 3f 39 32 29  |1)*65536+(AD?92)|
00004ab0  2a 32 35 36 2b 28 41 44  3f 39 33 29 29 2c 37 29  |*256+(AD?93)),7)|
00004ac0  2b 22 2e 22 2b c2 22 30  30 22 2b c3 28 41 44 3f  |+"."+."00"+.(AD?|
00004ad0  39 34 29 2c 32 29 0d 0f  78 1b 41 4e 3d 41 44 3f  |94),2)..x.AN=AD?|
00004ae0  38 38 3a e7 20 41 4e 3d  32 36 20 8c 20 8d 64 52  |88:. AN=26 . .dR|
00004af0  4f 0d 0f 82 32 fb 20 33  3a f1 22 20 20 20 20 20  |O...2. 3:."     |
00004b00  20 20 20 20 20 20 41 4e  41 4c 59 53 49 53 20 32  |      ANALYSIS 2|
00004b10  3a 20 22 3b 3a fb 20 32  3a f1 20 a4 47 4d 41 28  |: ";:. 2:. .GMA(|
00004b20  41 4e 29 0d 0f 8c 72 fb  20 33 3a f1 22 20 20 20  |AN)...r. 3:."   |
00004b30  20 20 20 20 20 20 20 20  20 20 41 4d 4f 55 4e 54  |          AMOUNT|
00004b40  20 32 3a 20 22 3b 3a fb  20 32 3a f1 20 c2 22 20  | 2: ";:. 2:. ." |
00004b50  20 20 20 20 20 20 22 2b  c3 28 28 41 44 3f 39 35  |      "+.((AD?95|
00004b60  29 2a 36 35 35 33 36 2b  28 41 44 3f 39 36 29 2a  |)*65536+(AD?96)*|
00004b70  32 35 36 2b 28 41 44 3f  39 37 29 29 2c 37 29 2b  |256+(AD?97)),7)+|
00004b80  22 2e 22 2b c2 22 30 30  22 2b c3 28 41 44 3f 39  |"."+."00"+.(AD?9|
00004b90  38 29 2c 32 29 0d 0f 96  1b 41 4e 3d 41 44 3f 38  |8),2)....AN=AD?8|
00004ba0  39 3a e7 20 41 4e 3d 32  36 20 8c 20 8d 64 52 4f  |9:. AN=26 . .dRO|
00004bb0  0d 0f a0 32 fb 20 33 3a  f1 22 20 20 20 20 20 20  |...2. 3:."      |
00004bc0  20 20 20 20 20 41 4e 41  4c 59 53 49 53 20 33 3a  |     ANALYSIS 3:|
00004bd0  20 22 3b 3a fb 20 32 3a  f1 20 a4 47 4d 41 28 41  | ";:. 2:. .GMA(A|
00004be0  4e 29 0d 0f aa 75 fb 20  33 3a f1 22 20 20 20 20  |N)...u. 3:."    |
00004bf0  20 20 20 20 20 20 20 20  20 41 4d 4f 55 4e 54 20  |         AMOUNT |
00004c00  33 3a 20 22 3b 3a fb 20  32 3a f1 20 c2 22 20 20  |3: ";:. 2:. ."  |
00004c10  20 20 20 20 20 22 2b c3  28 28 41 44 3f 39 39 29  |     "+.((AD?99)|
00004c20  2a 36 35 35 33 36 2b 28  41 44 3f 31 30 30 29 2a  |*65536+(AD?100)*|
00004c30  32 35 36 2b 28 41 44 3f  31 30 31 29 29 2c 37 29  |256+(AD?101)),7)|
00004c40  2b 22 2e 22 2b c2 22 30  30 22 2b c3 28 41 44 3f  |+"."+."00"+.(AD?|
00004c50  31 30 32 29 2c 32 29 0d  0f b4 1b 41 4e 3d 41 44  |102),2)....AN=AD|
00004c60  3f 39 30 3a e7 20 41 4e  3d 32 36 20 8c 20 8d 64  |?90:. AN=26 . .d|
00004c70  52 4f 0d 0f be 32 fb 20  33 3a f1 22 20 20 20 20  |RO...2. 3:."    |
00004c80  20 20 20 20 20 20 20 41  4e 41 4c 59 53 49 53 20  |       ANALYSIS |
00004c90  34 3a 20 22 3b 3a fb 20  32 3a f1 20 a4 47 4d 41  |4: ";:. 2:. .GMA|
00004ca0  28 41 4e 29 0d 0f c8 76  fb 20 33 3a f1 22 20 20  |(AN)...v. 3:."  |
00004cb0  20 20 20 20 20 20 20 20  20 20 20 41 4d 4f 55 4e  |           AMOUN|
00004cc0  54 20 34 3a 20 22 3b 3a  fb 20 32 3a f1 20 c2 22  |T 4: ";:. 2:. ."|
00004cd0  20 20 20 20 20 20 20 22  2b c3 28 28 41 44 3f 31  |       "+.((AD?1|
00004ce0  30 33 29 2a 36 35 35 33  36 2b 28 41 44 3f 31 30  |03)*65536+(AD?10|
00004cf0  34 29 2a 32 35 36 2b 28  41 44 3f 31 30 35 29 29  |4)*256+(AD?105))|
00004d00  2c 37 29 2b 22 2e 22 2b  c2 22 30 30 22 2b c3 28  |,7)+"."+."00"+.(|
00004d10  41 44 3f 31 30 36 29 2c  32 29 0d 0f d2 72 fb 20  |AD?106),2)...r. |
00004d20  33 3a f1 22 20 20 20 20  20 20 20 20 20 20 20 56  |3:."           V|
00004d30  41 54 20 41 4d 4f 55 4e  54 3a 20 22 3b 3a fb 20  |AT AMOUNT: ";:. |
00004d40  32 3a f1 20 c2 22 20 20  20 20 20 20 20 22 2b c3  |2:. ."       "+.|
00004d50  28 28 41 44 3f 38 33 29  2a 36 35 35 33 36 2b 28  |((AD?83)*65536+(|
00004d60  41 44 3f 38 34 29 2a 32  35 36 2b 28 41 44 3f 38  |AD?84)*256+(AD?8|
00004d70  35 29 29 2c 37 29 2b 22  2e 22 2b c2 22 30 30 22  |5)),7)+"."+."00"|
00004d80  2b c3 28 41 44 3f 38 36  29 2c 32 29 0d 0f dc 72  |+.(AD?86),2)...r|
00004d90  fb 20 33 3a f1 22 20 20  20 20 20 20 20 20 20 54  |. 3:."         T|
00004da0  4f 54 41 4c 20 41 4d 4f  55 4e 54 3a 20 22 3b 3a  |OTAL AMOUNT: ";:|
00004db0  fb 20 32 3a f1 20 c2 22  20 20 20 20 20 20 20 22  |. 2:. ."       "|
00004dc0  2b c3 28 28 41 44 3f 37  39 29 2a 36 35 35 33 36  |+.((AD?79)*65536|
00004dd0  2b 28 41 44 3f 38 30 29  2a 32 35 36 2b 28 41 44  |+(AD?80)*256+(AD|
00004de0  3f 38 31 29 29 2c 37 29  2b 22 2e 22 2b c2 22 30  |?81)),7)+"."+."0|
00004df0  30 22 2b c3 28 41 44 3f  38 32 29 2c 32 29 0d 0f  |0"+.(AD?82),2)..|
00004e00  e6 4c fb 20 35 3a f1 27  27 22 20 20 20 50 72 65  |.L. 5:.''"   Pre|
00004e10  73 73 20 4e 20 74 6f 20  73 65 65 20 74 68 65 20  |ss N to see the |
00004e20  6e 65 78 74 20 69 74 65  6d 20 6f 72 20 58 20 74  |next item or X t|
00004e30  6f 20 72 65 74 75 72 6e  20 74 6f 20 74 68 65 20  |o return to the |
00004e40  6d 61 69 6e 20 6d 65 6e  75 22 0d 0f f0 32 5a 24  |main menu"...2Z$|
00004e50  3d a4 4b 28 22 4e 22 2c  22 58 22 2c 31 29 3a e7  |=.K("N","X",1):.|
00004e60  20 5a 24 3e 22 4e 22 20  80 20 5a 24 3c 22 58 22  | Z$>"N" . Z$<"X"|
00004e70  20 8c 20 ef 37 3a e5 20  8d 64 5c 4f 0d 0f fa 15  | . .7:. .d\O....|
00004e80  e7 20 5a 24 3d 22 58 22  20 8c 20 45 4e 3d 32 32  |. Z$="X" . EN=22|
00004e90  33 0d 10 04 0b ed 3a e1  3a f4 2f 2f 0d 10 0e 15  |3.....:.:.//....|
00004ea0  dd f2 44 45 4c 3a 3f 41  44 3d 30 3a e1 3a f4 2f  |..DEL:?AD=0:.:./|
00004eb0  2f 0d 10 18 0d dd f2 45  41 45 3a f4 2f 2f 0d 10  |/......EAE:.//..|
00004ec0  22 40 db 3a ef 35 2c 32  33 2c 31 37 2c 37 2c 36  |"@.:.5,23,17,7,6|
00004ed0  2c 38 3b 31 36 3b 30 3b  3a e6 30 2c 36 3a ec 35  |,8;16;0;:.0,6:.5|
00004ee0  30 34 2c 38 33 39 3a f1  22 41 55 54 4f 4d 41 54  |04,839:."AUTOMAT|
00004ef0  49 43 20 45 4e 54 52 49  45 53 22 3a ef 34 0d 10  |IC ENTRIES":.4..|
00004f00  2c a8 fb 20 31 3a f1 27  27 27 27 8a 32 33 29 3b  |,.. 1:.''''.23);|
00004f10  22 31 22 3b 3a fb 20 33  3a f1 22 2e 2e 2e 2e 2e  |"1";:. 3:.".....|
00004f20  2e 2e 2e 56 69 65 77 2f  45 64 69 74 20 41 75 74  |...View/Edit Aut|
00004f30  6f 20 45 6e 74 72 69 65  73 22 3a fb 20 31 3a f1  |o Entries":. 1:.|
00004f40  27 8a 32 33 29 3b 22 32  22 3b 3a fb 20 33 3a f1  |'.23);"2";:. 3:.|
00004f50  22 2e 2e 4c 69 73 74 20  41 75 74 6f 20 45 6e 74  |"..List Auto Ent|
00004f60  72 69 65 73 20 74 6f 20  50 72 69 6e 74 65 72 22  |ries to Printer"|
00004f70  3a fb 20 31 3a f1 27 8a  32 33 29 3b 22 30 22 3b  |:. 1:.'.23);"0";|
00004f80  3a fb 20 33 3a f1 22 2e  2e 2e 2e 2e 2e 2e 2e 2e  |:. 3:.".........|
00004f90  2e 2e 52 65 74 75 72 6e  20 74 6f 20 4d 61 69 6e  |..Return to Main|
00004fa0  20 4d 65 6e 75 22 0d 10  36 21 5a 24 3d a4 4b 28  | Menu"..6!Z$=.K(|
00004fb0  22 30 22 2c 22 32 22 2c  32 29 3a e7 20 5a 24 3d  |"0","2",2):. Z$=|
00004fc0  22 30 22 20 8c 20 e1 0d  10 40 1b e7 20 5a 24 3d  |"0" . ...@.. Z$=|
00004fd0  22 31 22 20 8c 20 f2 45  44 41 55 3a e5 20 8d 54  |"1" . .EDAU:. .T|
00004fe0  62 50 0d 10 4a 1f f7 20  8d 44 54 50 3a e3 20 41  |bP..J.. .DTP:. A|
00004ff0  3d 31 20 b8 20 34 3a f3  20 50 54 24 28 41 29 3a  |=1 . 4:. PT$(A):|
00005000  ed 0d 10 54 b1 dc 20 22  22 2c 22 4c 49 53 54 20  |...T.. "","LIST |
00005010  4f 46 20 41 55 54 4f 4d  41 54 49 43 20 45 4e 54  |OF AUTOMATIC ENT|
00005020  52 49 45 53 22 2c 22 22  2c 22 4e 6f 20 44 61 74  |RIES","","No Dat|
00005030  65 20 52 65 66 20 31 2e  20 44 65 74 61 69 6c 73  |e Ref 1. Details|
00005040  20 31 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  | 1..............|
00005050  2e 2e 2e 2e 2e 2e 2e 2e  2e 20 52 65 66 20 32 2e  |......... Ref 2.|
00005060  20 44 65 74 61 69 6c 73  20 32 2e 2e 2e 2e 2e 2e  | Details 2......|
00005070  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00005080  2e 20 2e 2e 2e 2e 2e 54  6f 74 61 6c 20 2e 2e 2e  |. .....Total ...|
00005090  2e 2e 2e 2e 56 41 54 20  2e 2e 2e 2e 2e 2e 2e 4e  |....VAT .......N|
000050a0  65 74 20 41 6e 61 6c 79  73 69 73 2e 20 54 79 70  |et Analysis. Typ|
000050b0  65 22 0d 10 5e 11 f2 50  52 4f 4e 3a f2 4e 50 3a  |e"..^..PRON:.NP:|
000050c0  f4 2f 2f 0d 10 68 51 e3  20 45 4e 3d 30 20 b8 20  |.//..hQ. EN=0 . |
000050d0  33 31 3a 41 44 3d 42 4b  2b 33 32 37 36 38 2b 45  |31:AD=BK+32768+E|
000050e0  4e 2a 39 36 3a e7 20 3f  41 44 3d 30 20 8c 20 4f  |N*96:. ?AD=0 . O|
000050f0  24 3d c2 22 20 20 22 2b  c3 28 45 4e 29 2c 32 29  |$=."  "+.(EN),2)|
00005100  2b 22 20 55 4e 44 45 46  49 4e 45 44 22 3a e5 20  |+" UNDEFINED":. |
00005110  8d 64 4c 50 0d 10 72 2f  4f 24 3d c2 22 20 20 22  |.dLP..r/O$=."  "|
00005120  2b c3 28 45 4e 29 2c 32  29 2b 22 20 20 20 22 2b  |+.(EN),2)+"   "+|
00005130  c2 22 20 20 22 2b c3 28  3f 41 44 29 2c 32 29 2b  |."  "+.(?AD),2)+|
00005140  22 20 22 0d 10 7c 2b e3  20 5a 3d 41 44 2b 31 20  |" "..|+. Z=AD+1 |
00005150  b8 20 41 44 2b 36 3a 4f  24 3d 4f 24 2b bd 28 3f  |. AD+6:O$=O$+.(?|
00005160  5a 29 3a ed 3a 4f 24 3d  4f 24 2b 22 20 22 0d 10  |Z):.:O$=O$+" "..|
00005170  86 2c e3 20 5a 3d 41 44  2b 37 20 b8 20 41 44 2b  |.,. Z=AD+7 . AD+|
00005180  33 38 3a 4f 24 3d 4f 24  2b bd 28 3f 5a 29 3a ed  |38:O$=O$+.(?Z):.|
00005190  3a 4f 24 3d 4f 24 2b 22  20 22 0d 10 90 2d e3 20  |:O$=O$+" "...-. |
000051a0  5a 3d 41 44 2b 33 39 20  b8 20 41 44 2b 34 34 3a  |Z=AD+39 . AD+44:|
000051b0  4f 24 3d 4f 24 2b bd 28  3f 5a 29 3a ed 3a 4f 24  |O$=O$+.(?Z):.:O$|
000051c0  3d 4f 24 2b 22 20 22 0d  10 9a 2d e3 20 5a 3d 41  |=O$+" "...-. Z=A|
000051d0  44 2b 34 35 20 b8 20 41  44 2b 37 36 3a 4f 24 3d  |D+45 . AD+76:O$=|
000051e0  4f 24 2b bd 28 3f 5a 29  3a ed 3a 4f 24 3d 4f 24  |O$+.(?Z):.:O$=O$|
000051f0  2b 22 20 22 0d 10 a4 56  4f 24 3d 4f 24 2b c2 22  |+" "...VO$=O$+."|
00005200  20 20 20 20 20 20 20 22  2b c3 28 36 35 35 33 36  |       "+.(65536|
00005210  2a 28 41 44 3f 37 37 29  2b 32 35 36 2a 28 41 44  |*(AD?77)+256*(AD|
00005220  3f 37 38 29 2b 28 41 44  3f 37 39 29 29 2c 37 29  |?78)+(AD?79)),7)|
00005230  2b 22 2e 22 2b c2 22 30  30 22 2b c3 28 41 44 3f  |+"."+."00"+.(AD?|
00005240  38 30 29 2c 32 29 2b 22  20 22 0d 10 ae 56 4f 24  |80),2)+" "...VO$|
00005250  3d 4f 24 2b c2 22 20 20  20 20 20 20 20 22 2b c3  |=O$+."       "+.|
00005260  28 36 35 35 33 36 2a 28  41 44 3f 38 31 29 2b 32  |(65536*(AD?81)+2|
00005270  35 36 2a 28 41 44 3f 38  32 29 2b 28 41 44 3f 38  |56*(AD?82)+(AD?8|
00005280  33 29 29 2c 37 29 2b 22  2e 22 2b c2 22 30 30 22  |3)),7)+"."+."00"|
00005290  2b c3 28 41 44 3f 38 34  29 2c 32 29 2b 22 20 22  |+.(AD?84),2)+" "|
000052a0  0d 10 b8 56 4f 24 3d 4f  24 2b c2 22 20 20 20 20  |...VO$=O$+."    |
000052b0  20 20 20 22 2b c3 28 36  35 35 33 36 2a 28 41 44  |   "+.(65536*(AD|
000052c0  3f 38 35 29 2b 32 35 36  2a 28 41 44 3f 38 36 29  |?85)+256*(AD?86)|
000052d0  2b 28 41 44 3f 38 37 29  29 2c 37 29 2b 22 2e 22  |+(AD?87)),7)+"."|
000052e0  2b c2 22 30 30 22 2b c3  28 41 44 3f 38 38 29 2c  |+."00"+.(AD?88),|
000052f0  32 29 2b 22 20 22 0d 10  c2 34 4f 24 3d 4f 24 2b  |2)+" "...4O$=O$+|
00005300  bd 28 28 41 44 3f 38 39  29 2b 36 35 29 2b 22 20  |.((AD?89)+65)+" |
00005310  22 2b a4 47 53 41 28 41  44 3f 38 39 29 2b 22 20  |"+.GSA(AD?89)+" |
00005320  22 2b bd 28 41 44 3f 39  30 29 0d 10 cc 13 f2 50  |"+.(AD?90).....P|
00005330  52 49 4e 28 4f 24 29 3a  f2 4e 4c 3a ed 0d 10 d6  |RIN(O$):.NL:....|
00005340  16 f2 45 4a 50 47 3a f2  50 52 4f 46 3a e5 20 8d  |..EJPG:.PROF:. .|
00005350  54 62 50 0d 10 e0 0f dd  f2 45 44 41 55 3a 45 4e  |TbP......EDAU:EN|
00005360  3d 30 0d 10 ea 40 db 3a  ef 35 2c 32 33 2c 31 37  |=0...@.:.5,23,17|
00005370  2c 37 2c 36 2c 38 3b 31  36 3b 30 3b 3a e6 30 2c  |,7,6,8;16;0;:.0,|
00005380  36 3a ec 35 30 34 2c 38  33 39 3a f1 22 45 44 49  |6:.504,839:."EDI|
00005390  54 20 41 55 54 4f 20 45  4e 54 52 49 45 53 22 3a  |T AUTO ENTRIES":|
000053a0  ef 34 0d 10 f4 2e fb 20  33 3a f1 27 27 27 27 22  |.4..... 3:.''''"|
000053b0  20 20 20 20 45 4e 54 52  59 20 4e 55 4d 42 45 52  |    ENTRY NUMBER|
000053c0  3a 20 22 3b 3a fb 20 32  3a f1 20 22 22 3b 45 4e  |: ";:. 2:. "";EN|
000053d0  0d 10 fe 4c 41 44 3d 42  4b 2b 33 32 37 36 38 2b  |...LAD=BK+32768+|
000053e0  39 36 2a 45 4e 3a e7 20  3f 41 44 3d 30 20 8c 20  |96*EN:. ?AD=0 . |
000053f0  fb 20 31 3a f1 27 27 22  20 20 20 20 20 20 20 20  |. 1:.''"        |
00005400  20 20 20 20 55 4e 44 45  46 49 4e 45 44 20 45 4e  |    UNDEFINED EN|
00005410  54 52 59 22 27 3a e5 20  8d 44 62 51 0d 11 08 2b  |TRY"':. .DbQ...+|
00005420  fb 20 33 3a f1 22 20 20  20 44 41 54 45 20 49 4e  |. 3:."   DATE IN|
00005430  20 4d 4f 4e 54 48 3a 20  22 3b 3a fb 20 32 3a f1  | MONTH: ";:. 2:.|
00005440  20 22 22 3b 3f 41 44 0d  11 12 3e fb 20 33 3a f1  | "";?AD...>. 3:.|
00005450  22 20 20 20 20 20 52 45  46 45 52 45 4e 43 45 20  |"     REFERENCE |
00005460  31 3a 20 22 3b 3a fb 20  32 3a e3 20 5a 3d 41 44  |1: ";:. 2:. Z=AD|
00005470  2b 31 20 b8 20 41 44 2b  36 3a f1 bd 28 3f 5a 29  |+1 . AD+6:..(?Z)|
00005480  3b 3a ed 3a f1 0d 11 1c  3f fb 20 33 3a f1 22 20  |;:.:....?. 3:." |
00005490  20 20 20 20 20 20 44 45  54 41 49 4c 53 20 31 3a  |      DETAILS 1:|
000054a0  20 22 3b 3a fb 20 32 3a  e3 20 5a 3d 41 44 2b 37  | ";:. 2:. Z=AD+7|
000054b0  20 b8 20 41 44 2b 33 38  3a f1 bd 28 3f 5a 29 3b  | . AD+38:..(?Z);|
000054c0  3a ed 3a f1 0d 11 26 40  fb 20 33 3a f1 22 20 20  |:.:...&@. 3:."  |
000054d0  20 20 20 52 45 46 45 52  45 4e 43 45 20 32 3a 20  |   REFERENCE 2: |
000054e0  22 3b 3a fb 20 32 3a e3  20 5a 3d 41 44 2b 33 39  |";:. 2:. Z=AD+39|
000054f0  20 b8 20 41 44 2b 34 34  3a f1 bd 28 3f 5a 29 3b  | . AD+44:..(?Z);|
00005500  3a ed 3a f1 0d 11 30 40  fb 20 33 3a f1 22 20 20  |:.:...0@. 3:."  |
00005510  20 20 20 20 20 44 45 54  41 49 4c 53 20 32 3a 20  |     DETAILS 2: |
00005520  22 3b 3a fb 20 32 3a e3  20 5a 3d 41 44 2b 34 35  |";:. 2:. Z=AD+45|
00005530  20 b8 20 41 44 2b 37 36  3a f1 bd 28 3f 5a 29 3b  | . AD+76:..(?Z);|
00005540  3a ed 3a f1 0d 11 3a 6d  fb 20 33 3a f1 22 20 20  |:.:...:m. 3:."  |
00005550  20 20 20 20 56 41 54 20  41 4d 4f 55 4e 54 3a 20  |    VAT AMOUNT: |
00005560  22 3b 3a fb 20 32 3a f1  20 c2 22 20 20 20 20 20  |";:. 2:. ."     |
00005570  20 20 22 2b c3 28 36 35  35 33 36 2a 28 41 44 3f  |  "+.(65536*(AD?|
00005580  38 31 29 2b 32 35 36 2a  28 41 44 3f 38 32 29 2b  |81)+256*(AD?82)+|
00005590  28 41 44 3f 38 33 29 29  2c 37 29 2b 22 2e 22 2b  |(AD?83)),7)+"."+|
000055a0  c2 22 30 30 22 2b c3 28  41 44 3f 38 34 29 2c 32  |."00"+.(AD?84),2|
000055b0  29 0d 11 44 6d fb 20 33  3a f1 22 20 20 20 20 20  |)..Dm. 3:."     |
000055c0  20 4e 45 54 20 41 4d 4f  55 4e 54 3a 20 22 3b 3a  | NET AMOUNT: ";:|
000055d0  fb 20 32 3a f1 20 c2 22  20 20 20 20 20 20 20 22  |. 2:. ."       "|
000055e0  2b c3 28 36 35 35 33 36  2a 28 41 44 3f 38 35 29  |+.(65536*(AD?85)|
000055f0  2b 32 35 36 2a 28 41 44  3f 38 36 29 2b 28 41 44  |+256*(AD?86)+(AD|
00005600  3f 38 37 29 29 2c 37 29  2b 22 2e 22 2b c2 22 30  |?87)),7)+"."+."0|
00005610  30 22 2b c3 28 41 44 3f  38 38 29 2c 32 29 0d 11  |0"+.(AD?88),2)..|
00005620  4e 30 fb 20 33 3a f1 22  20 20 20 20 20 20 20 20  |N0. 3:."        |
00005630  41 4e 41 4c 59 53 49 53  3a 20 22 3b 3a fb 20 32  |ANALYSIS: ";:. 2|
00005640  3a f1 20 a4 47 4d 41 28  41 44 3f 38 39 29 0d 11  |:. .GMA(AD?89)..|
00005650  58 6d fb 20 33 3a f1 22  20 20 20 20 54 4f 54 41  |Xm. 3:."    TOTA|
00005660  4c 20 41 4d 4f 55 4e 54  3a 20 22 3b 3a fb 20 32  |L AMOUNT: ";:. 2|
00005670  3a f1 20 c2 22 20 20 20  20 20 20 20 22 2b c3 28  |:. ."       "+.(|
00005680  36 35 35 33 36 2a 28 41  44 3f 37 37 29 2b 32 35  |65536*(AD?77)+25|
00005690  36 2a 28 41 44 3f 37 38  29 2b 28 41 44 3f 37 39  |6*(AD?78)+(AD?79|
000056a0  29 29 2c 37 29 2b 22 2e  22 2b c2 22 30 30 22 2b  |)),7)+"."+."00"+|
000056b0  c3 28 41 44 3f 38 30 29  2c 32 29 0d 11 62 85 fb  |.(AD?80),2)..b..|
000056c0  20 35 3a f1 27 8a 31 32  29 3b 22 50 72 65 73 73  | 5:.'.12);"Press|
000056d0  20 4e 20 74 6f 20 73 65  65 20 74 68 65 20 6e 65  | N to see the ne|
000056e0  78 74 20 65 6e 74 72 79  2c 20 45 20 74 6f 20 65  |xt entry, E to e|
000056f0  64 69 74 20 74 68 69 73  20 65 6e 74 72 79 2c 22  |dit this entry,"|
00005700  27 8a 39 29 22 44 20 74  6f 20 64 65 6c 65 74 65  |'.9)"D to delete|
00005710  20 74 68 69 73 20 65 6e  74 72 79 2c 20 6f 72 20  | this entry, or |
00005720  58 20 74 6f 20 65 78 69  74 20 74 6f 20 74 68 65  |X to exit to the|
00005730  20 70 72 65 76 69 6f 75  73 20 6d 65 6e 75 2e 22  | previous menu."|
00005740  0d 11 6c 44 5a 24 3d a4  4b 28 22 44 22 2c 22 58  |..lDZ$=.K("D","X|
00005750  22 2c 31 29 3a e7 20 5a  24 3e 22 45 22 20 80 20  |",1):. Z$>"E" . |
00005760  5a 24 3c 22 4e 22 20 84  20 5a 24 3e 22 4e 22 20  |Z$<"N" . Z$>"N" |
00005770  80 20 5a 24 3c 22 58 22  20 8c 20 ef 37 3a e5 20  |. Z$<"X" . .7:. |
00005780  8d 44 6c 51 0d 11 76 10  e7 20 5a 24 3d 22 58 22  |.DlQ..v.. Z$="X"|
00005790  20 8c 20 e1 0d 11 80 29  e7 20 5a 24 3d 22 44 22  | . ....). Z$="D"|
000057a0  20 8c 20 f2 44 45 4c 3a  45 4e 3d 28 45 4e 2b 31  | . .DEL:EN=(EN+1|
000057b0  29 20 80 20 33 31 3a e5  20 8d 64 6a 50 0d 11 8a  |) . 31:. .djP...|
000057c0  24 e7 20 5a 24 3d 22 4e  22 20 8c 20 45 4e 3d 28  |$. Z$="N" . EN=(|
000057d0  45 4e 2b 31 29 20 80 20  33 31 3a e5 20 8d 64 6a  |EN+1) . 31:. .dj|
000057e0  50 0d 11 94 6d db 3a ef  35 2c 32 33 2c 31 37 2c  |P...m.:.5,23,17,|
000057f0  37 2c 36 2c 38 3b 31 36  3b 30 3b 3a e6 30 2c 36  |7,6,8;16;0;:.0,6|
00005800  3a ec 35 30 34 2c 38 33  39 3a f1 22 45 44 49 54  |:.504,839:."EDIT|
00005810  20 41 55 54 4f 20 45 4e  54 52 49 45 53 22 3a ef  | AUTO ENTRIES":.|
00005820  34 3a fb 20 33 3a f1 27  27 27 27 22 20 20 20 20  |4:. 3:.''''"    |
00005830  20 20 20 45 4e 54 52 59  20 4e 55 4d 42 45 52 3a  |   ENTRY NUMBER:|
00005840  20 22 3b 3a fb 20 32 3a  f1 22 22 3b 45 4e 0d 11  | ";:. 2:."";EN..|
00005850  9e 4e fb 20 33 3a f1 22  20 20 45 4e 54 45 52 20  |.N. 3:."  ENTER |
00005860  44 41 54 45 20 28 31 2d  32 38 29 3a 20 22 3b 3a  |DATE (1-28): ";:|
00005870  fb 20 32 3a e8 20 22 22  58 24 3a 58 3d bb 28 58  |. 2:. ""X$:X=.(X|
00005880  24 29 3a e7 20 58 3c 31  20 84 20 58 3e 32 38 20  |$):. X<1 . X>28 |
00005890  8c 20 ef 20 37 3a e5 20  8d 74 54 51 0d 11 a8 95  |. . 7:. .tTQ....|
000058a0  db 3a ef 35 2c 32 33 2c  31 37 2c 37 2c 36 2c 38  |.:.5,23,17,7,6,8|
000058b0  3b 31 36 3b 30 3b 3a e6  30 2c 36 3a ec 35 30 34  |;16;0;:.0,6:.504|
000058c0  2c 38 33 39 3a f1 22 45  44 49 54 20 41 55 54 4f  |,839:."EDIT AUTO|
000058d0  20 45 4e 54 52 49 45 53  22 3a ef 34 3a fb 20 33  | ENTRIES":.4:. 3|
000058e0  3a f1 27 27 27 27 22 20  20 20 20 20 20 20 45 4e  |:.''''"       EN|
000058f0  54 52 59 20 4e 55 4d 42  45 52 3a 20 22 3b 3a fb  |TRY NUMBER: ";:.|
00005900  20 32 3a f1 22 22 3b 45  4e 3a fb 20 33 3a f1 22  | 2:."";EN:. 3:."|
00005910  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 44  |               D|
00005920  41 54 45 3a 20 22 3b 3a  fb 20 32 3a f1 22 22 3b  |ATE: ";:. 2:."";|
00005930  58 0d 11 b2 6c fb 20 33  3a f1 22 20 20 45 4e 54  |X...l. 3:."  ENT|
00005940  45 52 20 52 45 46 45 52  45 4e 43 45 20 31 3a 20  |ER REFERENCE 1: |
00005950  22 3b 3a fb 20 32 3a f1  22 2e 2e 2e 2e 2e 2e 22  |";:. 2:."......"|
00005960  27 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |'"              |
00005970  20 20 20 20 20 20 20 22  3b 3a ef 20 31 31 3a e8  |       ";:. 11:.|
00005980  20 22 22 52 31 24 3a e7  20 a9 20 52 31 24 3e 36  | ""R1$:. . R1$>6|
00005990  20 8c 20 ef 20 37 3a e5  20 8d 74 68 51 0d 11 bc  | . . 7:. .thQ...|
000059a0  22 e7 20 a9 20 52 31 24  3c 36 20 8c 20 52 31 24  |". . R1$<6 . R1$|
000059b0  3d 52 31 24 2b 22 20 22  3a e5 20 8d 74 7c 51 0d  |=R1$+" ":. .t|Q.|
000059c0  11 c6 a9 ef 20 31 31 3a  f1 22 20 20 20 20 20 20  |.... 11:."      |
000059d0  20 22 3a fb 20 33 3a f1  22 20 20 20 20 45 4e 54  | ":. 3:."    ENT|
000059e0  45 52 20 44 45 54 41 49  4c 53 20 31 3a 20 22 3b  |ER DETAILS 1: ";|
000059f0  3a fb 20 32 3a f1 22 2e  2e 2e 2e 2e 2e 2e 2e 2e  |:. 2:.".........|
00005a00  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00005a10  2e 2e 2e 2e 2e 2e 2e 22  27 22 20 20 20 20 20 20  |......."'"      |
00005a20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00005a30  3b 3a ef 20 31 31 3a e8  20 22 22 44 54 31 24 3a  |;:. 11:. ""DT1$:|
00005a40  e7 20 a9 20 44 54 31 24  3e 33 32 20 8c 20 ef 20  |. . DT1$>32 . . |
00005a50  37 2c 31 31 3a f1 20 89  28 37 35 29 3a ef 20 31  |7,11:. .(75):. 1|
00005a60  31 3a e5 20 8d 64 46 51  0d 11 d0 26 e7 20 a9 20  |1:. .dFQ...&. . |
00005a70  44 54 31 24 3c 33 32 20  8c 20 44 54 31 24 3d 44  |DT1$<32 . DT1$=D|
00005a80  54 31 24 2b 22 20 22 3a  e5 20 8d 64 50 51 0d 11  |T1$+" ":. .dPQ..|
00005a90  da 8e ef 20 31 31 3a f1  22 20 20 20 20 20 20 20  |... 11:."       |
00005aa0  20 20 22 3a fb 20 33 3a  f1 22 20 20 45 4e 54 45  |  ":. 3:."  ENTE|
00005ab0  52 20 52 45 46 45 52 45  4e 43 45 20 32 3a 20 22  |R REFERENCE 2: "|
00005ac0  3b 3a fb 20 32 3a f1 22  2e 2e 2e 2e 2e 2e 22 27  |;:. 2:."......"'|
00005ad0  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00005ae0  20 20 20 20 20 20 22 3b  3a ef 20 31 31 3a e8 20  |      ";:. 11:. |
00005af0  22 22 52 32 24 3a e7 20  a9 20 52 32 24 3e 36 20  |""R2$:. . R2$>6 |
00005b00  8c 20 ef 20 37 2c 31 31  3a f1 20 89 28 37 35 29  |. . 7,11:. .(75)|
00005b10  3a ef 20 31 31 3a e5 20  8d 64 5a 51 0d 11 e4 22  |:. 11:. .dZQ..."|
00005b20  e7 20 a9 20 52 32 24 3c  36 20 8c 20 52 32 24 3d  |. . R2$<6 . R2$=|
00005b30  52 32 24 2b 22 20 22 3a  e5 20 8d 64 64 51 0d 11  |R2$+" ":. .ddQ..|
00005b40  ee a9 ef 20 31 31 3a f1  22 20 20 20 20 20 20 20  |... 11:."       |
00005b50  22 3a fb 20 33 3a f1 22  20 20 20 20 45 4e 54 45  |":. 3:."    ENTE|
00005b60  52 20 44 45 54 41 49 4c  53 20 32 3a 20 22 3b 3a  |R DETAILS 2: ";:|
00005b70  fb 20 32 3a f1 22 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |. 2:."..........|
00005b80  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00005b90  2e 2e 2e 2e 2e 2e 22 27  22 20 20 20 20 20 20 20  |......"'"       |
00005ba0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 3b  |              ";|
00005bb0  3a ef 20 31 31 3a e8 20  22 22 44 54 32 24 3a e7  |:. 11:. ""DT2$:.|
00005bc0  20 a9 20 44 54 32 24 3e  33 32 20 8c 20 ef 20 37  | . DT2$>32 . . 7|
00005bd0  2c 31 31 3a f1 20 89 28  37 35 29 3a ef 20 31 31  |,11:. .(75):. 11|
00005be0  3a e5 20 8d 64 6e 51 0d  11 f8 26 e7 20 a9 20 44  |:. .dnQ...&. . D|
00005bf0  54 32 24 3c 33 32 20 8c  20 44 54 32 24 3d 44 54  |T2$<32 . DT2$=DT|
00005c00  32 24 2b 22 20 22 3a e5  20 8d 64 78 51 0d 12 02  |2$+" ":. .dxQ...|
00005c10  54 ef 20 31 31 3a f1 22  20 20 20 20 20 20 20 20  |T. 11:."        |
00005c20  20 22 3a fb 20 33 3a f1  22 20 20 20 45 4e 54 45  | ":. 3:."   ENTE|
00005c30  52 20 56 41 54 20 41 4d  4f 55 4e 54 3a 20 22 3b  |R VAT AMOUNT: ";|
00005c40  3a fb 20 32 3a 56 54 24  3d a4 55 4d 28 30 29 3a  |:. 2:VT$=.UM(0):|
00005c50  f1 3a ef 31 31 3a f1 22  20 20 20 20 20 20 20 20  |.:.11:."        |
00005c60  22 0d 12 0c 41 fb 20 33  3a f1 22 20 20 20 45 4e  |"...A. 3:."   EN|
00005c70  54 45 52 20 4e 45 54 20  41 4d 4f 55 4e 54 3a 20  |TER NET AMOUNT: |
00005c80  22 3b 3a fb 20 32 3a 56  24 3d a4 55 4d 28 30 29  |";:. 2:V$=.UM(0)|
00005c90  3a f1 3a ef 31 31 3a f1  22 20 20 20 20 20 20 20  |:.:.11:."       |
00005ca0  20 22 0d 12 16 3e fb 20  33 3a f1 22 20 20 20 20  | "...>. 3:."    |
00005cb0  20 20 20 54 4f 54 41 4c  20 41 4d 4f 55 4e 54 3a  |   TOTAL AMOUNT:|
00005cc0  20 22 3b 3a fb 20 32 3a  54 24 3d a4 4e 53 28 a4  | ";:. 2:T$=.NS(.|
00005cd0  53 4e 28 56 54 24 29 2b  a4 53 4e 28 56 24 29 29  |SN(VT$)+.SN(V$))|
00005ce0  0d 12 20 43 f1 54 24 3a  e7 20 a4 53 4e 28 54 24  |.. C.T$:. .SN(T$|
00005cf0  29 3e 39 39 39 39 39 39  39 39 39 20 8c 20 f2 52  |)>999999999 . .R|
00005d00  41 4e 47 45 3a e5 20 8d  64 6a 50 3a 8b 20 54 24  |ANGE:. .djP:. T$|
00005d10  3d c2 22 20 20 20 20 20  20 20 20 22 2b 54 24 2c  |=."        "+T$,|
00005d20  31 30 29 0d 12 2a 5b fb  20 35 3a f1 22 20 20 20  |10)..*[. 5:."   |
00005d30  20 20 20 20 50 72 65 73  73 20 61 20 6b 65 79 20  |    Press a key |
00005d40  66 72 6f 6d 20 41 20 74  6f 20 5a 20 74 6f 20 65  |from A to Z to e|
00005d50  6e 74 65 72 20 74 68 65  20 61 6e 61 6c 79 73 69  |nter the analysi|
00005d60  73 20 63 6f 64 65 22 3a  41 43 3d 97 28 a4 4b 28  |s code":AC=.(.K(|
00005d70  22 41 22 2c 22 5a 22 2c  31 29 29 2d 36 35 0d 12  |"A","Z",1))-65..|
00005d80  34 41 ef 31 31 3a fb 20  33 3a f1 22 20 20 20 20  |4A.11:. 3:."    |
00005d90  20 20 20 20 20 20 20 41  4e 41 4c 59 53 49 53 3a  |       ANALYSIS:|
00005da0  20 22 3b 3a fb 20 32 3a  f1 20 a4 47 4d 41 28 41  | ";:. 2:. .GMA(A|
00005db0  43 29 3b 22 20 20 20 20  20 20 20 20 20 20 22 0d  |C);"          ".|
00005dc0  12 3e 36 fb 20 35 3a f1  22 20 20 20 20 20 20 20  |.>6. 5:."       |
00005dd0  50 72 65 73 73 20 50 20  66 6f 72 20 50 61 79 6d  |Press P for Paym|
00005de0  65 6e 74 20 6f 72 20 52  20 66 6f 72 20 52 65 63  |ent or R for Rec|
00005df0  65 69 70 74 22 0d 12 48  2b 52 50 24 3d a4 4b 28  |eipt"..H+RP$=.K(|
00005e00  22 50 22 2c 22 52 22 2c  31 29 3a e7 20 52 50 24  |"P","R",1):. RP$|
00005e10  3d 22 51 22 20 8c 20 ef  37 3a e5 20 8d 44 48 52  |="Q" . .7:. .DHR|
00005e20  0d 12 52 78 ef 31 31 3a  fb 20 33 3a f1 22 20 20  |..Rx.11:. 3:."  |
00005e30  20 20 20 20 20 20 20 20  20 20 20 20 20 54 59 50  |             TYP|
00005e40  45 3a 20 22 3b 3a fb 20  32 3a e7 20 52 50 24 3d  |E: ";:. 2:. RP$=|
00005e50  22 50 22 20 8c 20 f1 20  22 50 61 79 6d 65 6e 74  |"P" . . "Payment|
00005e60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005e70  20 20 20 20 22 20 8b 20  f1 20 22 52 65 63 65 69  |    " . . "Recei|
00005e80  70 74 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |pt              |
00005e90  20 20 20 20 20 20 20 22  0d 12 5c 3d fb 20 31 3a  |       "..\=. 1:|
00005ea0  f1 27 27 8a 32 36 29 22  43 4f 4e 46 49 52 4d 20  |.''.26)"CONFIRM |
00005eb0  54 48 49 53 20 45 4e 54  52 59 20 28 59 2f 4e 29  |THIS ENTRY (Y/N)|
00005ec0  22 3a e7 20 a4 59 4e 28  30 29 3d 22 4e 22 20 8c  |":. .YN(0)="N" .|
00005ed0  20 8d 64 6a 50 0d 12 66  42 3f 41 44 3d 58 3a e3  | .djP..fB?AD=X:.|
00005ee0  20 5a 3d 31 20 b8 20 36  3a 3f 28 41 44 2b 5a 29  | Z=1 . 6:?(AD+Z)|
00005ef0  3d 97 28 c1 52 31 24 2c  5a 2c 31 29 29 3a 3f 28  |=.(.R1$,Z,1)):?(|
00005f00  41 44 2b 5a 2b 33 38 29  3d 97 28 c1 52 32 24 2c  |AD+Z+38)=.(.R2$,|
00005f10  5a 2c 31 29 29 3a ed 0d  12 70 41 e3 20 5a 3d 31  |Z,1)):...pA. Z=1|
00005f20  20 b8 20 33 32 3a 3f 28  41 44 2b 5a 2b 36 29 3d  | . 32:?(AD+Z+6)=|
00005f30  97 28 c1 44 54 31 24 2c  5a 2c 31 29 29 3a 3f 28  |.(.DT1$,Z,1)):?(|
00005f40  41 44 2b 5a 2b 34 34 29  3d 97 28 c1 44 54 32 24  |AD+Z+44)=.(.DT2$|
00005f50  2c 5a 2c 31 29 29 3a ed  0d 12 7a 69 56 3d bb 28  |,Z,1)):...ziV=.(|
00005f60  c0 54 24 2c 37 29 29 3a  41 44 3f 37 37 3d a8 28  |.T$,7)):AD?77=.(|
00005f70  56 2f 36 35 35 33 36 29  3a 56 3d 56 2d 28 41 44  |V/65536):V=V-(AD|
00005f80  3f 37 37 29 2a 36 35 35  33 36 3a 41 44 3f 37 38  |?77)*65536:AD?78|
00005f90  3d a8 28 56 2f 32 35 36  29 3a 56 3d 56 2d 28 41  |=.(V/256):V=V-(A|
00005fa0  44 3f 37 38 29 2a 32 35  36 3a 41 44 3f 37 39 3d  |D?78)*256:AD?79=|
00005fb0  56 3a 41 44 3f 38 30 3d  bb 28 c2 54 24 2c 32 29  |V:AD?80=.(.T$,2)|
00005fc0  29 0d 12 84 6b 56 3d bb  28 c0 56 54 24 2c 37 29  |)...kV=.(.VT$,7)|
00005fd0  29 3a 41 44 3f 38 31 3d  a8 28 56 2f 36 35 35 33  |):AD?81=.(V/6553|
00005fe0  36 29 3a 56 3d 56 2d 28  41 44 3f 38 31 29 2a 36  |6):V=V-(AD?81)*6|
00005ff0  35 35 33 36 3a 41 44 3f  38 32 3d a8 28 56 2f 32  |5536:AD?82=.(V/2|
00006000  35 36 29 3a 56 3d 56 2d  28 41 44 3f 38 32 29 2a  |56):V=V-(AD?82)*|
00006010  32 35 36 3a 41 44 3f 38  33 3d 56 3a 41 44 3f 38  |256:AD?83=V:AD?8|
00006020  34 3d bb 28 c2 56 54 24  2c 32 29 29 0d 12 8e 69  |4=.(.VT$,2))...i|
00006030  56 3d bb 28 c0 56 24 2c  37 29 29 3a 41 44 3f 38  |V=.(.V$,7)):AD?8|
00006040  35 3d a8 28 56 2f 36 35  35 33 36 29 3a 56 3d 56  |5=.(V/65536):V=V|
00006050  2d 28 41 44 3f 38 35 29  2a 36 35 35 33 36 3a 41  |-(AD?85)*65536:A|
00006060  44 3f 38 36 3d a8 28 56  2f 32 35 36 29 3a 56 3d  |D?86=.(V/256):V=|
00006070  56 2d 28 41 44 3f 38 36  29 2a 32 35 36 3a 41 44  |V-(AD?86)*256:AD|
00006080  3f 38 37 3d 56 3a 41 44  3f 38 38 3d bb 28 c2 56  |?87=V:AD?88=.(.V|
00006090  24 2c 32 29 29 0d 12 98  2f 41 44 3f 38 39 3d 41  |$,2)).../AD?89=A|
000060a0  43 3a 41 44 3f 39 30 3d  97 28 52 50 24 29 3a 45  |C:AD?90=.(RP$):E|
000060b0  4e 3d 28 45 4e 2b 31 29  20 80 20 33 31 3a e5 20  |N=(EN+1) . 31:. |
000060c0  8d 64 6a 50 0d 12 a2 72  dd f2 52 41 4e 47 45 3a  |.djP...r..RANGE:|
000060d0  ef 37 3a fb 20 31 32 3a  f1 27 27 27 8a 32 36 29  |.7:. 12:.'''.26)|
000060e0  22 54 4f 54 41 4c 20 56  41 4c 55 45 20 4f 55 54  |"TOTAL VALUE OUT|
000060f0  20 4f 46 20 52 41 4e 47  45 22 3a fb 20 35 3a f1  | OF RANGE":. 5:.|
00006100  27 27 8a 33 31 29 22 50  52 45 53 53 20 53 50 41  |''.31)"PRESS SPA|
00006110  43 45 2e 2e 2e 22 3a f5  20 fd 20 a6 28 2d 39 39  |CE...":. . .(-99|
00006120  29 3a f5 20 fd 20 ac 20  a6 28 2d 39 39 29 3a 2a  |):. . . .(-99):*|
00006130  46 58 31 35 2c 31 0d 12  ac 09 e1 3a f4 2f 2f 0d  |FX15,1.....:.//.|
00006140  12 b6 13 dd 20 a4 4d 4f  4e 54 48 28 59 29 3a f4  |.... .MONTH(Y):.|
00006150  2f 2f 0d 12 c0 0a c8 8e  20 59 20 ca 0d 12 ca 18  |//...... Y .....|
00006160  c9 20 31 3a 4d 24 3d 22  4a 61 6e 75 61 72 79 22  |. 1:M$="January"|
00006170  3a f4 2f 2f 0d 12 d4 19  c9 20 32 3a 4d 24 3d 22  |:.//..... 2:M$="|
00006180  46 65 62 72 75 61 72 79  22 3a f4 2f 2f 0d 12 de  |February":.//...|
00006190  16 c9 20 33 3a 4d 24 3d  22 4d 61 72 63 68 22 3a  |.. 3:M$="March":|
000061a0  f4 2f 2f 0d 12 e8 16 c9  20 34 3a 4d 24 3d 22 41  |.//..... 4:M$="A|
000061b0  70 72 69 6c 22 3a f4 2f  2f 0d 12 f2 14 c9 20 35  |pril":.//..... 5|
000061c0  3a 4d 24 3d 22 4d 61 79  22 3a f4 2f 2f 0d 12 fc  |:M$="May":.//...|
000061d0  15 c9 20 36 3a 4d 24 3d  22 4a 75 6e 65 22 3a f4  |.. 6:M$="June":.|
000061e0  2f 2f 0d 13 06 15 c9 20  37 3a 4d 24 3d 22 4a 75  |//..... 7:M$="Ju|
000061f0  6c 79 22 3a f4 2f 2f 0d  13 10 17 c9 20 38 3a 4d  |ly":.//..... 8:M|
00006200  24 3d 22 41 75 67 75 73  74 22 3a f4 2f 2f 0d 13  |$="August":.//..|
00006210  1a 1a c9 20 39 3a 4d 24  3d 22 53 65 70 74 65 6d  |... 9:M$="Septem|
00006220  62 65 72 22 3a f4 2f 2f  0d 13 24 19 c9 20 31 30  |ber":.//..$.. 10|
00006230  3a 4d 24 3d 22 4f 63 74  6f 62 65 72 22 3a f4 2f  |:M$="October":./|
00006240  2f 0d 13 2e 1a c9 20 31  31 3a 4d 24 3d 22 4e 6f  |/..... 11:M$="No|
00006250  76 65 6d 62 65 72 22 3a  f4 2f 2f 0d 13 38 1a c9  |vember":.//..8..|
00006260  20 31 32 3a 4d 24 3d 22  44 65 63 65 6d 62 65 72  | 12:M$="December|
00006270  22 3a f4 2f 2f 0d 13 42  05 cb 0d 13 4c 0b 3d 4d  |":.//..B....L.=M|
00006280  24 3a f4 2f 2f 0d 13 56  0d dd f2 43 4c 4d 3a f4  |$:.//..V...CLM:.|
00006290  2f 2f 0d 13 60 37 db 3a  ef 32 33 2c 31 37 2c 37  |//..`7.:.23,17,7|
000062a0  2c 36 2c 38 3b 31 36 3b  30 3b 35 3a e6 36 3a ec  |,6,8;16;0;5:.6:.|
000062b0  35 35 32 2c 38 33 39 3a  f1 22 43 4c 4f 53 45 20  |552,839:."CLOSE |
000062c0  4d 4f 4e 54 48 22 3a ef  34 0d 13 6a 1a 4d 31 24  |MONTH":.4..j.M1$|
000062d0  3d a4 4d 4f 4e 54 48 28  bb 28 44 32 24 29 29 3a  |=.MONTH(.(D2$)):|
000062e0  f4 2f 2f 0d 13 74 27 58  3d 30 3a 5a 3d bb 28 44  |.//..t'X=0:Z=.(D|
000062f0  32 24 29 3a 5a 3d 5a 2d  31 3a e7 20 5a 3d 30 20  |2$):Z=Z-1:. Z=0 |
00006300  8c 20 5a 3d 31 32 3a 58  3d 31 0d 13 7e 15 4d 32  |. Z=12:X=1..~.M2|
00006310  24 3d a4 4d 4f 4e 54 48  28 5a 29 3a f4 2f 2f 0d  |$=.MONTH(Z):.//.|
00006320  13 88 18 4d 31 24 3d 4d  31 24 2b 22 20 27 22 2b  |...M1$=M1$+" '"+|
00006330  44 33 24 3a f4 2f 2f 0d  13 92 28 5a 3d bb 28 44  |D3$:.//...(Z=.(D|
00006340  33 24 29 3a e7 20 58 3d  31 20 8c 20 5a 3d 5a 2d  |3$):. X=1 . Z=Z-|
00006350  31 3a e7 20 5a 3d 2d 31  20 8c 20 5a 3d 39 39 0d  |1:. Z=-1 . Z=99.|
00006360  13 9c 1e 4d 32 24 3d 4d  32 24 2b 22 20 27 22 2b  |...M2$=M2$+" '"+|
00006370  c2 22 30 30 22 2b c3 28  5a 29 2c 32 29 0d 13 a6  |."00"+.(Z),2)...|
00006380  55 fb 20 35 3a f1 27 27  27 27 22 20 20 20 20 20  |U. 5:.''''"     |
00006390  53 65 6c 65 63 74 20 61  20 74 69 74 6c 65 20 66  |Select a title f|
000063a0  6f 72 20 74 68 65 20 6d  6f 6e 74 68 20 74 6f 20  |or the month to |
000063b0  63 6c 6f 73 65 20 66 72  6f 6d 20 6f 6e 65 20 6f  |close from one o|
000063c0  66 20 74 68 65 20 66 6f  6c 6c 6f 77 69 6e 67 3a  |f the following:|
000063d0  2d 22 0d 13 b0 2d fb 20  31 3a f1 27 8a 33 30 29  |-"...-. 1:.'.30)|
000063e0  3b 22 31 22 3b 3a fb 20  33 3a f1 20 c4 31 35 2d  |;"1";:. 3:. .15-|
000063f0  a9 28 4d 31 24 29 2c 22  2e 22 29 3b 4d 31 24 0d  |.(M1$),".");M1$.|
00006400  13 ba 2d fb 20 31 3a f1  27 8a 33 30 29 3b 22 32  |..-. 1:.'.30);"2|
00006410  22 3b 3a fb 20 33 3a f1  20 c4 31 35 2d a9 28 4d  |";:. 3:. .15-.(M|
00006420  32 24 29 2c 22 2e 22 29  3b 4d 32 24 0d 13 c4 2a  |2$),".");M2$...*|
00006430  fb 20 31 3a f1 27 8a 33  30 29 3b 22 30 22 3b 3a  |. 1:.'.30);"0";:|
00006440  fb 20 33 3a f1 22 2e 2e  2e 2e 2e 2e 4d 61 69 6e  |. 3:."......Main|
00006450  20 4d 65 6e 75 22 0d 13  ce 21 5a 24 3d a4 4b 28  | Menu"...!Z$=.K(|
00006460  22 30 22 2c 22 33 22 2c  32 29 3a e7 20 5a 24 3d  |"0","3",2):. Z$=|
00006470  22 30 22 20 8c 20 e1 0d  13 d8 21 e7 20 5a 24 3d  |"0" . ....!. Z$=|
00006480  22 31 22 20 8c 20 50 54  24 28 32 29 3d 22 46 6f  |"1" . PT$(2)="Fo|
00006490  72 3a 20 22 2b 4d 31 24  0d 13 e2 21 e7 20 5a 24  |r: "+M1$...!. Z$|
000064a0  3d 22 32 22 20 8c 20 50  54 24 28 32 29 3d 22 46  |="2" . PT$(2)="F|
000064b0  6f 72 3a 20 22 2b 4d 32  24 0d 13 ec 47 db 3a ef  |or: "+M2$...G.:.|
000064c0  32 33 2c 31 37 2c 37 2c  36 2c 31 36 3b 31 36 3b  |23,17,7,6,16;16;|
000064d0  30 3b 35 3a e6 31 3a ec  34 36 34 2c 37 30 30 3a  |0;5:.1:.464,700:|
000064e0  f1 22 50 4c 45 41 53 45  20 57 41 49 54 22 3a ef  |."PLEASE WAIT":.|
000064f0  34 3a 45 54 3d a4 45 4e  28 30 29 3a 45 46 3d 30  |4:ET=.EN(0):EF=0|
00006500  0d 13 f6 24 45 54 41 3d  42 4b 2b 31 32 38 2a 45  |...$ETA=BK+128*E|
00006510  54 3a 45 46 41 3d 42 4b  2b 33 32 37 36 38 2b 39  |T:EFA=BK+32768+9|
00006520  36 2a 45 46 0d 14 00 12  e7 3f 45 46 41 3e 30 20  |6*EF.....?EFA>0 |
00006530  8c 20 8d 54 5e 54 0d 14  0a 1a 45 46 3d 45 46 2b  |. .T^T....EF=EF+|
00006540  31 3a e7 20 45 46 3c 33  32 20 8c 20 8d 64 76 53  |1:. EF<32 . .dvS|
00006550  0d 14 14 0a e5 20 8d 44  6e 54 0d 14 1e 60 3f 45  |..... .DnT...`?E|
00006560  54 41 3d 3f 45 46 41 3a  45 54 41 3f 31 3d a7 22  |TA=?EFA:ETA?1=."|
00006570  4a 61 6e 46 65 62 4d 61  72 41 70 72 4d 61 79 4a  |JanFebMarAprMayJ|
00006580  75 6e 4a 75 6c 41 75 67  53 65 70 4f 63 74 4e 6f  |unJulAugSepOctNo|
00006590  76 44 65 63 22 2c c1 50  54 24 28 32 29 2c 36 2c  |vDec",.PT$(2),6,|
000065a0  33 29 29 2f 31 32 3a 45  54 41 3f 32 3d bb 28 c2  |3))/12:ETA?2=.(.|
000065b0  50 54 24 28 32 29 2c 32  29 29 0d 14 28 26 e3 20  |PT$(2),2))..(&. |
000065c0  5a 3d 30 20 b8 20 37 35  3a 3f 28 45 54 41 2b 5a  |Z=0 . 75:?(ETA+Z|
000065d0  2b 33 29 3d 3f 28 45 46  41 2b 5a 2b 31 29 3a ed  |+3)=?(EFA+Z+1):.|
000065e0  0d 14 32 27 e3 20 5a 3d  30 20 b8 20 37 3a 3f 28  |..2'. Z=0 . 7:?(|
000065f0  45 54 41 2b 5a 2b 37 39  29 3d 3f 28 45 46 41 2b  |ETA+Z+79)=?(EFA+|
00006600  5a 2b 37 37 29 3a ed 0d  14 3c 27 e3 20 5a 3d 30  |Z+77):...<'. Z=0|
00006610  20 b8 20 33 3a 3f 28 45  54 41 2b 5a 2b 39 31 29  | . 3:?(ETA+Z+91)|
00006620  3d 3f 28 45 46 41 2b 5a  2b 38 35 29 3a ed 0d 14  |=?(EFA+Z+85):...|
00006630  46 1e e3 20 5a 3d 30 20  b8 20 31 31 3a 3f 28 45  |F.. Z=0 . 11:?(E|
00006640  54 41 2b 5a 2b 39 35 29  3d 30 3a ed 0d 14 50 2f  |TA+Z+95)=0:...P/|
00006650  45 54 41 3f 38 37 3d 45  46 41 3f 38 39 3a 45 54  |ETA?87=EFA?89:ET|
00006660  41 3f 38 38 3d 32 36 3a  45 54 41 3f 38 39 3d 32  |A?88=26:ETA?89=2|
00006670  36 3a 45 54 41 3f 39 30  3d 32 36 0d 14 5a 12 45  |6:ETA?90=26..Z.E|
00006680  54 41 3f 31 30 37 3d 45  46 41 3f 39 30 0d 14 64  |TA?107=EFA?90..d|
00006690  22 45 54 3d 45 54 2b 31  3a 45 46 3d 45 46 2b 31  |"ET=ET+1:EF=EF+1|
000066a0  3a e7 20 45 46 3c 33 32  20 8c 20 8d 64 76 53 0d  |:. EF<32 . .dvS.|
000066b0  14 6e 21 50 54 24 28 31  29 3d 22 4c 69 73 74 20  |.n!PT$(1)="List |
000066c0  6f 66 20 61 6c 6c 20 70  61 79 6d 65 6e 74 73 22  |of all payments"|
000066d0  0d 14 78 0e 50 54 24 28  33 29 3d 22 20 22 0d 14  |..x.PT$(3)=" "..|
000066e0  82 90 50 54 24 28 34 29  3d 22 44 61 74 65 2e 2e  |..PT$(4)="Date..|
000066f0  2e 2e 20 52 65 66 20 31  2e 20 44 65 74 61 69 6c  |.. Ref 1. Detail|
00006700  73 20 31 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |s 1.............|
00006710  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 20 52 65 66 20 32  |.......... Ref 2|
00006720  2e 20 44 65 74 61 69 6c  73 20 32 2e 2e 2e 2e 2e  |. Details 2.....|
00006730  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00006740  2e 2e 20 2e 2e 2e 2e 2e  54 6f 74 61 6c 20 2e 2e  |.. .....Total ..|
00006750  2e 2e 2e 2e 2e 56 41 54  20 2e 2e 2e 2e 2e 2e 2e  |.....VAT .......|
00006760  4e 65 74 20 41 6e 61 6c  79 73 69 73 2e 22 0d 14  |Net Analysis."..|
00006770  8c 1c f2 50 52 4f 4e 3a  f2 4e 50 3a 4e 54 3d 30  |...PRON:.NP:NT=0|
00006780  3a 56 54 3d 30 3a 47 54  3d 30 0d 14 96 3c e3 20  |:VT=0:GT=0...<. |
00006790  45 4e 3d 30 20 b8 20 32  35 35 3a 41 44 3d 45 4e  |EN=0 . 255:AD=EN|
000067a0  2a 31 32 38 2b 42 4b 3a  e7 20 3f 41 44 3d 30 20  |*128+BK:. ?AD=0 |
000067b0  84 20 41 44 3f 31 30 37  3d 97 28 22 52 22 29 20  |. AD?107=.("R") |
000067c0  8c 20 8d 74 46 55 0d 14  a0 41 4f 24 3d c2 22 30  |. .tFU...AO$=."0|
000067d0  22 2b c3 28 3f 41 44 29  2c 32 29 2b 22 2f 22 2b  |"+.(?AD),2)+"/"+|
000067e0  c2 22 30 22 2b c3 28 41  44 3f 31 29 2c 32 29 2b  |."0"+.(AD?1),2)+|
000067f0  22 2f 22 2b c2 22 30 22  2b c3 28 41 44 3f 32 29  |"/"+."0"+.(AD?2)|
00006800  2c 32 29 2b 22 20 22 0d  14 aa 2b e3 20 5a 3d 41  |,2)+" "...+. Z=A|
00006810  44 2b 33 20 b8 20 41 44  2b 38 3a 4f 24 3d 4f 24  |D+3 . AD+8:O$=O$|
00006820  2b bd 28 3f 5a 29 3a ed  3a 4f 24 3d 4f 24 2b 22  |+.(?Z):.:O$=O$+"|
00006830  20 22 0d 14 b4 2c e3 20  5a 3d 41 44 2b 39 20 b8  | "...,. Z=AD+9 .|
00006840  20 41 44 2b 34 30 3a 4f  24 3d 4f 24 2b bd 28 3f  | AD+40:O$=O$+.(?|
00006850  5a 29 3a ed 3a 4f 24 3d  4f 24 2b 22 20 22 0d 14  |Z):.:O$=O$+" "..|
00006860  be 2d e3 20 5a 3d 41 44  2b 34 31 20 b8 20 41 44  |.-. Z=AD+41 . AD|
00006870  2b 34 36 3a 4f 24 3d 4f  24 2b bd 28 3f 5a 29 3a  |+46:O$=O$+.(?Z):|
00006880  ed 3a 4f 24 3d 4f 24 2b  22 20 22 0d 14 c8 2d e3  |.:O$=O$+" "...-.|
00006890  20 5a 3d 41 44 2b 34 37  20 b8 20 41 44 2b 37 38  | Z=AD+47 . AD+78|
000068a0  3a 4f 24 3d 4f 24 2b bd  28 3f 5a 29 3a ed 3a 4f  |:O$=O$+.(?Z):.:O|
000068b0  24 3d 4f 24 2b 22 20 22  0d 14 d2 2c 51 24 3d a4  |$=O$+" "...,Q$=.|
000068c0  52 53 28 41 44 2b 37 39  29 3a 4f 24 3d 4f 24 2b  |RS(AD+79):O$=O$+|
000068d0  51 24 2b 22 20 22 3a 47  54 3d 47 54 2b a4 53 4e  |Q$+" ":GT=GT+.SN|
000068e0  28 51 24 29 0d 14 dc 2c  51 24 3d a4 52 53 28 41  |(Q$)...,Q$=.RS(A|
000068f0  44 2b 38 33 29 3a 4f 24  3d 4f 24 2b 51 24 2b 22  |D+83):O$=O$+Q$+"|
00006900  20 22 3a 56 54 3d 56 54  2b a4 53 4e 28 51 24 29  | ":VT=VT+.SN(Q$)|
00006910  0d 14 e6 2c 51 24 3d a4  52 53 28 41 44 2b 39 31  |...,Q$=.RS(AD+91|
00006920  29 3a 4f 24 3d 4f 24 2b  51 24 2b 22 20 22 3a 4e  |):O$=O$+Q$+" ":N|
00006930  54 3d 4e 54 2b a4 53 4e  28 51 24 29 0d 14 f0 3e  |T=NT+.SN(Q$)...>|
00006940  e7 20 bd 28 28 41 44 3f  38 37 29 2b 36 35 29 3c  |. .((AD?87)+65)<|
00006950  3e 22 5b 22 20 8c 20 4f  24 3d 4f 24 2b bd 28 28  |>"[" . O$=O$+.((|
00006960  41 44 3f 38 37 29 2b 36  35 29 2b 22 20 22 2b a4  |AD?87)+65)+" "+.|
00006970  47 53 41 28 41 44 3f 38  37 29 0d 14 fa 11 f2 50  |GSA(AD?87).....P|
00006980  52 49 4e 28 4f 24 29 3a  f2 4e 4c 0d 15 04 15 e7  |RIN(O$):.NL.....|
00006990  20 41 44 3f 38 38 3d 32  36 20 8c 20 8d 44 7c 55  | AD?88=26 . .D|U|
000069a0  0d 15 0e 39 4f 24 3d c4  31 31 31 2c 22 20 22 29  |...9O$=.111," ")|
000069b0  3a 51 24 3d a4 52 53 28  41 44 2b 39 35 29 3a 4f  |:Q$=.RS(AD+95):O|
000069c0  24 3d 4f 24 2b 51 24 2b  22 20 22 3a 4e 54 3d 4e  |$=O$+Q$+" ":NT=N|
000069d0  54 2b a4 53 4e 28 51 24  29 0d 15 18 3e e7 20 bd  |T+.SN(Q$)...>. .|
000069e0  28 28 41 44 3f 38 38 29  2b 36 35 29 3c 3e 22 5b  |((AD?88)+65)<>"[|
000069f0  22 20 8c 20 4f 24 3d 4f  24 2b bd 28 28 41 44 3f  |" . O$=O$+.((AD?|
00006a00  38 38 29 2b 36 35 29 2b  22 20 22 2b a4 47 53 41  |88)+65)+" "+.GSA|
00006a10  28 41 44 3f 38 38 29 0d  15 22 11 f2 50 52 49 4e  |(AD?88).."..PRIN|
00006a20  28 4f 24 29 3a f2 4e 4c  0d 15 2c 15 e7 20 41 44  |(O$):.NL..,.. AD|
00006a30  3f 38 39 3d 32 36 20 8c  20 8d 44 7c 55 0d 15 36  |?89=26 . .D|U..6|
00006a40  39 4f 24 3d c4 31 31 31  2c 22 20 22 29 3a 51 24  |9O$=.111," "):Q$|
00006a50  3d a4 52 53 28 41 44 2b  39 39 29 3a 4f 24 3d 4f  |=.RS(AD+99):O$=O|
00006a60  24 2b 51 24 2b 22 20 22  3a 4e 54 3d 4e 54 2b a4  |$+Q$+" ":NT=NT+.|
00006a70  53 4e 28 51 24 29 0d 15  40 3e e7 20 bd 28 28 41  |SN(Q$)..@>. .((A|
00006a80  44 3f 38 39 29 2b 36 35  29 3c 3e 22 5b 22 20 8c  |D?89)+65)<>"[" .|
00006a90  20 4f 24 3d 4f 24 2b bd  28 28 41 44 3f 38 39 29  | O$=O$+.((AD?89)|
00006aa0  2b 36 35 29 2b 22 20 22  2b a4 47 53 41 28 41 44  |+65)+" "+.GSA(AD|
00006ab0  3f 38 39 29 0d 15 4a 11  f2 50 52 49 4e 28 4f 24  |?89)..J..PRIN(O$|
00006ac0  29 3a f2 4e 4c 0d 15 54  15 e7 20 41 44 3f 39 30  |):.NL..T.. AD?90|
00006ad0  3d 32 36 20 8c 20 8d 44  7c 55 0d 15 5e 3a 4f 24  |=26 . .D|U..^:O$|
00006ae0  3d c4 31 31 31 2c 22 20  22 29 3a 51 24 3d a4 52  |=.111," "):Q$=.R|
00006af0  53 28 41 44 2b 31 30 33  29 3a 4f 24 3d 4f 24 2b  |S(AD+103):O$=O$+|
00006b00  51 24 2b 22 20 22 3a 4e  54 3d 4e 54 2b a4 53 4e  |Q$+" ":NT=NT+.SN|
00006b10  28 51 24 29 0d 15 68 3e  e7 20 bd 28 28 41 44 3f  |(Q$)..h>. .((AD?|
00006b20  39 30 29 2b 36 35 29 3c  3e 22 5b 22 20 8c 20 4f  |90)+65)<>"[" . O|
00006b30  24 3d 4f 24 2b bd 28 28  41 44 3f 39 30 29 2b 36  |$=O$+.((AD?90)+6|
00006b40  35 29 2b 22 20 22 2b a4  47 53 41 28 41 44 3f 39  |5)+" "+.GSA(AD?9|
00006b50  30 29 0d 15 72 11 f2 50  52 49 4e 28 4f 24 29 3a  |0)..r..PRIN(O$):|
00006b60  f2 4e 4c 0d 15 7c 27 e7  20 4c 49 3e 3d 28 3f 28  |.NL..|'. LI>=(?(|
00006b70  44 54 2b 31 30 31 34 2b  35 33 29 2d 38 29 20 8c  |DT+1014+53)-8) .|
00006b80  20 f2 45 4a 50 47 3a f2  4e 50 0d 15 86 3c ed 3a  | .EJPG:.NP...<.:|
00006b90  f2 50 52 49 4e 28 c4 38  39 2c 22 20 22 29 2b 22  |.PRIN(.89," ")+"|
00006ba0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 20 2d 2d 2d 2d 2d  |---------- -----|
00006bb0  2d 2d 2d 2d 2d 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----- ----------|
00006bc0  22 29 3a f2 4e 4c 0d 15  90 0f 4f 24 3d c4 38 39  |"):.NL....O$=.89|
00006bd0  2c 22 20 22 29 0d 15 9a  38 4f 24 3d 4f 24 2b c2  |," ")...8O$=O$+.|
00006be0  a4 4e 53 28 47 54 29 2c  31 30 29 2b 22 20 22 2b  |.NS(GT),10)+" "+|
00006bf0  c2 a4 4e 53 28 56 54 29  2c 31 30 29 2b 22 20 22  |..NS(VT),10)+" "|
00006c00  2b c2 a4 4e 53 28 4e 54  29 2c 31 30 29 0d 15 a4  |+..NS(NT),10)...|
00006c10  48 f2 50 52 49 4e 28 4f  24 29 3a f2 4e 4c 3a f2  |H.PRIN(O$):.NL:.|
00006c20  50 52 49 4e 28 c4 38 39  2c 22 20 22 29 2b 22 3d  |PRIN(.89," ")+"=|
00006c30  3d 3d 3d 3d 3d 3d 3d 3d  3d 20 3d 3d 3d 3d 3d 3d  |========= ======|
00006c40  3d 3d 3d 3d 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 22  |==== =========="|
00006c50  29 3a f2 4e 4c 0d 15 ae  3a 50 54 24 28 31 29 3d  |):.NL...:PT$(1)=|
00006c60  22 4c 69 73 74 20 6f 66  20 61 6c 6c 20 72 65 63  |"List of all rec|
00006c70  65 69 70 74 73 22 3a f2  45 4a 50 47 3a f2 4e 50  |eipts":.EJPG:.NP|
00006c80  3a 47 54 3d 30 3a 4e 54  3d 30 3a 56 54 3d 30 0d  |:GT=0:NT=0:VT=0.|
00006c90  15 b8 3c e3 20 45 4e 3d  30 20 b8 20 32 35 35 3a  |..<. EN=0 . 255:|
00006ca0  41 44 3d 45 4e 2a 31 32  38 2b 42 4b 3a e7 20 3f  |AD=EN*128+BK:. ?|
00006cb0  41 44 3d 30 20 84 20 41  44 3f 31 30 37 3d 97 28  |AD=0 . AD?107=.(|
00006cc0  22 50 22 29 20 8c 20 8d  74 68 56 0d 15 c2 41 4f  |"P") . .thV...AO|
00006cd0  24 3d c2 22 30 22 2b c3  28 3f 41 44 29 2c 32 29  |$=."0"+.(?AD),2)|
00006ce0  2b 22 2f 22 2b c2 22 30  22 2b c3 28 41 44 3f 31  |+"/"+."0"+.(AD?1|
00006cf0  29 2c 32 29 2b 22 2f 22  2b c2 22 30 22 2b c3 28  |),2)+"/"+."0"+.(|
00006d00  41 44 3f 32 29 2c 32 29  2b 22 20 22 0d 15 cc 2b  |AD?2),2)+" "...+|
00006d10  e3 20 5a 3d 41 44 2b 33  20 b8 20 41 44 2b 38 3a  |. Z=AD+3 . AD+8:|
00006d20  4f 24 3d 4f 24 2b bd 28  3f 5a 29 3a ed 3a 4f 24  |O$=O$+.(?Z):.:O$|
00006d30  3d 4f 24 2b 22 20 22 0d  15 d6 2c e3 20 5a 3d 41  |=O$+" "...,. Z=A|
00006d40  44 2b 39 20 b8 20 41 44  2b 34 30 3a 4f 24 3d 4f  |D+9 . AD+40:O$=O|
00006d50  24 2b bd 28 3f 5a 29 3a  ed 3a 4f 24 3d 4f 24 2b  |$+.(?Z):.:O$=O$+|
00006d60  22 20 22 0d 15 e0 2d e3  20 5a 3d 41 44 2b 34 31  |" "...-. Z=AD+41|
00006d70  20 b8 20 41 44 2b 34 36  3a 4f 24 3d 4f 24 2b bd  | . AD+46:O$=O$+.|
00006d80  28 3f 5a 29 3a ed 3a 4f  24 3d 4f 24 2b 22 20 22  |(?Z):.:O$=O$+" "|
00006d90  0d 15 ea 2d e3 20 5a 3d  41 44 2b 34 37 20 b8 20  |...-. Z=AD+47 . |
00006da0  41 44 2b 37 38 3a 4f 24  3d 4f 24 2b bd 28 3f 5a  |AD+78:O$=O$+.(?Z|
00006db0  29 3a ed 3a 4f 24 3d 4f  24 2b 22 20 22 0d 15 f4  |):.:O$=O$+" "...|
00006dc0  2c 51 24 3d a4 52 53 28  41 44 2b 37 39 29 3a 4f  |,Q$=.RS(AD+79):O|
00006dd0  24 3d 4f 24 2b 51 24 2b  22 20 22 3a 47 54 3d 47  |$=O$+Q$+" ":GT=G|
00006de0  54 2b a4 53 4e 28 51 24  29 0d 15 fe 2c 51 24 3d  |T+.SN(Q$)...,Q$=|
00006df0  a4 52 53 28 41 44 2b 38  33 29 3a 4f 24 3d 4f 24  |.RS(AD+83):O$=O$|
00006e00  2b 51 24 2b 22 20 22 3a  56 54 3d 56 54 2b a4 53  |+Q$+" ":VT=VT+.S|
00006e10  4e 28 51 24 29 0d 16 08  2c 51 24 3d a4 52 53 28  |N(Q$)...,Q$=.RS(|
00006e20  41 44 2b 39 31 29 3a 4f  24 3d 4f 24 2b 51 24 2b  |AD+91):O$=O$+Q$+|
00006e30  22 20 22 3a 4e 54 3d 4e  54 2b a4 53 4e 28 51 24  |" ":NT=NT+.SN(Q$|
00006e40  29 0d 16 12 3e e7 20 bd  28 28 41 44 3f 38 37 29  |)...>. .((AD?87)|
00006e50  2b 36 35 29 3c 3e 22 5b  22 20 8c 20 4f 24 3d 4f  |+65)<>"[" . O$=O|
00006e60  24 2b bd 28 28 41 44 3f  38 37 29 2b 36 35 29 2b  |$+.((AD?87)+65)+|
00006e70  22 20 22 2b a4 47 53 41  28 41 44 3f 38 37 29 0d  |" "+.GSA(AD?87).|
00006e80  16 1c 11 f2 50 52 49 4e  28 4f 24 29 3a f2 4e 4c  |....PRIN(O$):.NL|
00006e90  0d 16 26 15 e7 20 41 44  3f 38 38 3d 32 36 20 8c  |..&.. AD?88=26 .|
00006ea0  20 8d 74 5e 56 0d 16 30  39 4f 24 3d c4 31 31 31  | .t^V..09O$=.111|
00006eb0  2c 22 20 22 29 3a 51 24  3d a4 52 53 28 41 44 2b  |," "):Q$=.RS(AD+|
00006ec0  39 35 29 3a 4f 24 3d 4f  24 2b 51 24 2b 22 20 22  |95):O$=O$+Q$+" "|
00006ed0  3a 4e 54 3d 4e 54 2b a4  53 4e 28 51 24 29 0d 16  |:NT=NT+.SN(Q$)..|
00006ee0  3a 27 4f 24 3d 4f 24 2b  bd 28 28 41 44 3f 38 38  |:'O$=O$+.((AD?88|
00006ef0  29 2b 36 35 29 2b 22 20  22 2b a4 47 53 41 28 41  |)+65)+" "+.GSA(A|
00006f00  44 3f 38 38 29 0d 16 44  11 f2 50 52 49 4e 28 4f  |D?88)..D..PRIN(O|
00006f10  24 29 3a f2 4e 4c 0d 16  4e 15 e7 20 41 44 3f 38  |$):.NL..N.. AD?8|
00006f20  39 3d 32 36 20 8c 20 8d  74 5e 56 0d 16 58 39 4f  |9=26 . .t^V..X9O|
00006f30  24 3d c4 31 31 31 2c 22  20 22 29 3a 51 24 3d a4  |$=.111," "):Q$=.|
00006f40  52 53 28 41 44 2b 39 39  29 3a 4f 24 3d 4f 24 2b  |RS(AD+99):O$=O$+|
00006f50  51 24 2b 22 20 22 3a 4e  54 3d 4e 54 2b a4 53 4e  |Q$+" ":NT=NT+.SN|
00006f60  28 51 24 29 0d 16 62 27  4f 24 3d 4f 24 2b bd 28  |(Q$)..b'O$=O$+.(|
00006f70  28 41 44 3f 38 39 29 2b  36 35 29 2b 22 20 22 2b  |(AD?89)+65)+" "+|
00006f80  a4 47 53 41 28 41 44 3f  38 39 29 0d 16 6c 11 f2  |.GSA(AD?89)..l..|
00006f90  50 52 49 4e 28 4f 24 29  3a f2 4e 4c 0d 16 76 15  |PRIN(O$):.NL..v.|
00006fa0  e7 20 41 44 3f 39 30 3d  32 36 20 8c 20 8d 74 5e  |. AD?90=26 . .t^|
00006fb0  56 0d 16 80 3a 4f 24 3d  c4 31 31 31 2c 22 20 22  |V...:O$=.111," "|
00006fc0  29 3a 51 24 3d a4 52 53  28 41 44 2b 31 30 33 29  |):Q$=.RS(AD+103)|
00006fd0  3a 4f 24 3d 4f 24 2b 51  24 2b 22 20 22 3a 4e 54  |:O$=O$+Q$+" ":NT|
00006fe0  3d 4e 54 2b a4 53 4e 28  51 24 29 0d 16 8a 27 4f  |=NT+.SN(Q$)...'O|
00006ff0  24 3d 4f 24 2b bd 28 28  41 44 3f 39 30 29 2b 36  |$=O$+.((AD?90)+6|
00007000  35 29 2b 22 20 22 2b a4  47 53 41 28 41 44 3f 39  |5)+" "+.GSA(AD?9|
00007010  30 29 0d 16 94 11 f2 50  52 49 4e 28 4f 24 29 3a  |0).....PRIN(O$):|
00007020  f2 4e 4c 0d 16 9e 27 e7  20 4c 49 3e 3d 28 3f 28  |.NL...'. LI>=(?(|
00007030  44 54 2b 31 30 31 34 2b  35 33 29 2d 38 29 20 8c  |DT+1014+53)-8) .|
00007040  20 f2 45 4a 50 47 3a f2  4e 50 0d 16 a8 3c ed 3a  | .EJPG:.NP...<.:|
00007050  f2 50 52 49 4e 28 c4 38  39 2c 22 20 22 29 2b 22  |.PRIN(.89," ")+"|
00007060  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 20 2d 2d 2d 2d 2d  |---------- -----|
00007070  2d 2d 2d 2d 2d 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----- ----------|
00007080  22 29 3a f2 4e 4c 0d 16  b2 0f 4f 24 3d c4 38 39  |"):.NL....O$=.89|
00007090  2c 22 20 22 29 0d 16 bc  38 4f 24 3d 4f 24 2b c2  |," ")...8O$=O$+.|
000070a0  a4 4e 53 28 47 54 29 2c  31 30 29 2b 22 20 22 2b  |.NS(GT),10)+" "+|
000070b0  c2 a4 4e 53 28 56 54 29  2c 31 30 29 2b 22 20 22  |..NS(VT),10)+" "|
000070c0  2b c2 a4 4e 53 28 4e 54  29 2c 31 30 29 0d 16 c6  |+..NS(NT),10)...|
000070d0  48 f2 50 52 49 4e 28 4f  24 29 3a f2 4e 4c 3a f2  |H.PRIN(O$):.NL:.|
000070e0  50 52 49 4e 28 c4 38 39  2c 22 20 22 29 2b 22 3d  |PRIN(.89," ")+"=|
000070f0  3d 3d 3d 3d 3d 3d 3d 3d  3d 20 3d 3d 3d 3d 3d 3d  |========= ======|
00007100  3d 3d 3d 3d 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 22  |==== =========="|
00007110  29 3a f2 4e 4c 0d 16 d0  8c 50 54 24 28 31 29 3d  |):.NL....PT$(1)=|
00007120  22 53 75 6d 6d 61 72 79  20 61 6e 64 20 41 6e 61  |"Summary and Ana|
00007130  6c 79 73 69 73 20 6f 66  20 61 6c 6c 20 65 6e 74  |lysis of all ent|
00007140  72 69 65 73 22 3a 50 54  24 28 34 29 3d 22 43 6f  |ries":PT$(4)="Co|
00007150  64 65 20 41 6e 61 6c 79  73 69 73 20 44 65 74 61  |de Analysis Deta|
00007160  69 6c 73 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |ils.............|
00007170  2e 2e 2e 20 2e 2e 50 61  79 6d 65 6e 74 73 20 2e  |... ..Payments .|
00007180  2e 52 65 63 65 69 70 74  73 20 2e 2e 2e 2e 2e 2e  |.Receipts ......|
00007190  54 6f 74 61 6c 2e 22 3a  f2 45 4a 50 47 3a f2 4e  |Total.":.EJPG:.N|
000071a0  50 0d 16 da 3b 54 50 3d  30 3a 54 52 3d 30 3a e3  |P...;TP=0:TR=0:.|
000071b0  20 43 44 3d 30 20 b8 20  32 35 3a 4f 24 3d 22 20  | CD=0 . 25:O$=" |
000071c0  20 22 2b bd 28 36 35 2b  43 44 29 2b 22 20 20 22  | "+.(65+CD)+"  "|
000071d0  3a 5a 24 3d a4 47 4d 41  28 43 44 29 0d 16 e4 42  |:Z$=.GMA(CD)...B|
000071e0  50 54 3d 30 3a 52 54 3d  30 3a e7 20 c0 5a 24 2c  |PT=0:RT=0:. .Z$,|
000071f0  31 29 3d 22 20 22 20 8c  20 5a 24 3d 22 55 4e 44  |1)=" " . Z$="UND|
00007200  45 46 49 4e 45 44 20 20  20 20 20 20 20 20 20 20  |EFINED          |
00007210  20 20 20 20 20 20 20 20  20 20 20 20 20 22 0d 16  |             "..|
00007220  ee 22 20 e7 20 a9 28 5a  24 29 3c 33 32 20 8c 20  |." . .(Z$)<32 . |
00007230  5a 24 3d 5a 24 2b 22 20  22 3a e5 20 8d 64 6e 56  |Z$=Z$+" ":. .dnV|
00007240  0d 16 f8 10 4f 24 3d 4f  24 2b 5a 24 2b 22 20 22  |....O$=O$+Z$+" "|
00007250  0d 17 02 2c e3 20 45 4e  3d 30 20 b8 20 32 35 35  |...,. EN=0 . 255|
00007260  3a 41 44 3d 45 4e 2a 31  32 38 2b 42 4b 3a e7 20  |:AD=EN*128+BK:. |
00007270  3f 41 44 3d 30 20 8c 20  8d 44 66 57 0d 17 0c 21  |?AD=0 . .DfW...!|
00007280  e7 20 41 44 3f 31 30 37  3d 97 28 22 52 22 29 20  |. AD?107=.("R") |
00007290  8c 20 54 59 3d 30 20 8b  20 54 59 3d 31 0d 17 16  |. TY=0 . TY=1...|
000072a0  16 e7 20 41 44 3f 38 37  3c 3e 43 44 20 8c 20 8d  |.. AD?87<>CD . .|
000072b0  54 6a 57 0d 17 20 31 56  3d a4 53 4e 28 a4 52 53  |TjW.. 1V=.SN(.RS|
000072c0  28 41 44 2b 39 31 29 29  3a e7 20 54 59 3d 31 20  |(AD+91)):. TY=1 |
000072d0  8c 20 50 54 3d 50 54 2b  56 3a 20 8b 20 52 54 3d  |. PT=PT+V: . RT=|
000072e0  52 54 2b 56 0d 17 2a 16  e7 20 41 44 3f 38 38 3c  |RT+V..*.. AD?88<|
000072f0  3e 43 44 20 8c 20 8d 54  7e 57 0d 17 34 31 56 3d  |>CD . .T~W..41V=|
00007300  a4 53 4e 28 a4 52 53 28  41 44 2b 39 35 29 29 3a  |.SN(.RS(AD+95)):|
00007310  e7 20 54 59 3d 31 20 8c  20 50 54 3d 50 54 2b 56  |. TY=1 . PT=PT+V|
00007320  3a 20 8b 20 52 54 3d 52  54 2b 56 0d 17 3e 16 e7  |: . RT=RT+V..>..|
00007330  20 41 44 3f 38 39 3c 3e  43 44 20 8c 20 8d 44 52  | AD?89<>CD . .DR|
00007340  57 0d 17 48 31 56 3d a4  53 4e 28 a4 52 53 28 41  |W..H1V=.SN(.RS(A|
00007350  44 2b 39 39 29 29 3a e7  20 54 59 3d 31 20 8c 20  |D+99)):. TY=1 . |
00007360  50 54 3d 50 54 2b 56 3a  20 8b 20 52 54 3d 52 54  |PT=PT+V: . RT=RT|
00007370  2b 56 0d 17 52 16 e7 20  41 44 3f 39 30 3c 3e 43  |+V..R.. AD?90<>C|
00007380  44 20 8c 20 8d 44 66 57  0d 17 5c 32 56 3d a4 53  |D . .DfW..\2V=.S|
00007390  4e 28 a4 52 53 28 41 44  2b 31 30 33 29 29 3a e7  |N(.RS(AD+103)):.|
000073a0  20 54 59 3d 31 20 8c 20  50 54 3d 50 54 2b 56 3a  | TY=1 . PT=PT+V:|
000073b0  20 8b 20 52 54 3d 52 54  2b 56 0d 17 66 09 ed 3a  | . RT=RT+V..f..:|
000073c0  f4 2f 2f 0d 17 70 21 4f  24 3d 4f 24 2b a4 4e 53  |.//..p!O$=O$+.NS|
000073d0  28 50 54 29 2b 22 20 22  2b a4 4e 53 28 52 54 29  |(PT)+" "+.NS(RT)|
000073e0  2b 22 20 22 0d 17 7a 38  5a 24 3d a4 4e 53 28 94  |+" "..z8Z$=.NS(.|
000073f0  28 50 54 2d 52 54 29 29  3a e7 20 52 54 3e 50 54  |(PT-RT)):. RT>PT|
00007400  20 8c 20 5a 24 3d 22 28  22 2b 5a 24 2b 22 29 22  | . Z$="("+Z$+")"|
00007410  20 8b 20 5a 24 3d 22 20  22 2b 5a 24 0d 17 84 10  | . Z$=" "+Z$....|
00007420  4f 24 3d 4f 24 2b 5a 24  3a f4 2f 2f 0d 17 8e 19  |O$=O$+Z$:.//....|
00007430  54 52 3d 54 52 2b 52 54  3a 54 50 3d 54 50 2b 50  |TR=TR+RT:TP=TP+P|
00007440  54 3a f4 2f 2f 0d 17 98  15 f2 50 52 49 4e 28 4f  |T:.//.....PRIN(O|
00007450  24 29 3a f2 4e 4c 3a f4  2f 2f 0d 17 a2 09 ed 3a  |$):.NL:.//.....:|
00007460  f4 2f 2f 0d 17 ac 36 52  54 3d 30 3a 50 54 3d 30  |.//...6RT=0:PT=0|
00007470  3a e3 20 45 4e 3d 30 20  b8 20 32 35 35 3a 41 44  |:. EN=0 . 255:AD|
00007480  3d 31 32 38 2a 45 4e 2b  42 4b 3a e7 20 3f 41 44  |=128*EN+BK:. ?AD|
00007490  3d 30 20 8c 20 8d 64 40  57 0d 17 b6 39 56 3d a4  |=0 . .d@W...9V=.|
000074a0  53 4e 28 a4 52 53 28 41  44 2b 38 33 29 29 3a e7  |SN(.RS(AD+83)):.|
000074b0  20 41 44 3f 31 30 37 3d  97 28 22 50 22 29 20 8c  | AD?107=.("P") .|
000074c0  20 50 54 3d 50 54 2b 56  20 8b 20 52 54 3d 52 54  | PT=PT+V . RT=RT|
000074d0  2b 56 0d 17 c0 09 ed 3a  f4 2f 2f 0d 17 ca 2f 4f  |+V.....:.//.../O|
000074e0  24 3d 22 20 20 20 20 20  56 61 6c 75 65 20 41 64  |$="     Value Ad|
000074f0  64 65 64 20 54 61 78 20  20 20 20 20 20 20 20 20  |ded Tax         |
00007500  20 20 20 20 20 20 20 20  20 22 0d 17 d4 21 4f 24  |         "...!O$|
00007510  3d 4f 24 2b a4 4e 53 28  50 54 29 2b 22 20 22 2b  |=O$+.NS(PT)+" "+|
00007520  a4 4e 53 28 52 54 29 2b  22 20 22 0d 17 de 38 5a  |.NS(RT)+" "...8Z|
00007530  24 3d a4 4e 53 28 94 28  50 54 2d 52 54 29 29 3a  |$=.NS(.(PT-RT)):|
00007540  e7 20 52 54 3e 50 54 20  8c 20 5a 24 3d 22 28 22  |. RT>PT . Z$="("|
00007550  2b 5a 24 2b 22 29 22 20  8b 20 5a 24 3d 22 20 22  |+Z$+")" . Z$=" "|
00007560  2b 5a 24 0d 17 e8 0c 4f  24 3d 4f 24 2b 5a 24 0d  |+Z$....O$=O$+Z$.|
00007570  17 f2 19 54 52 3d 54 52  2b 52 54 3a 54 50 3d 54  |...TR=TR+RT:TP=T|
00007580  50 2b 50 54 3a f4 2f 2f  0d 17 fc 15 f2 50 52 49  |P+PT:.//.....PRI|
00007590  4e 28 4f 24 29 3a f2 4e  4c 3a f4 2f 2f 0d 18 06  |N(O$):.NL:.//...|
000075a0  3b f2 50 52 49 4e 28 c4  33 38 2c 22 20 22 29 2b  |;.PRIN(.38," ")+|
000075b0  22 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 20 2d 2d 2d 2d  |"---------- ----|
000075c0  2d 2d 2d 2d 2d 2d 20 20  2d 2d 2d 2d 2d 2d 2d 2d  |------  --------|
000075d0  2d 2d 22 29 3a f2 4e 4c  0d 18 10 13 52 54 3d 54  |--"):.NL....RT=T|
000075e0  52 3a 50 54 3d 54 50 3a  f4 2f 2f 0d 18 1a 0f 4f  |R:PT=TP:.//....O|
000075f0  24 3d c4 33 38 2c 22 20  22 29 0d 18 24 21 4f 24  |$=.38," ")..$!O$|
00007600  3d 4f 24 2b a4 4e 53 28  50 54 29 2b 22 20 22 2b  |=O$+.NS(PT)+" "+|
00007610  a4 4e 53 28 52 54 29 2b  22 20 22 0d 18 2e 38 5a  |.NS(RT)+" "...8Z|
00007620  24 3d a4 4e 53 28 94 28  50 54 2d 52 54 29 29 3a  |$=.NS(.(PT-RT)):|
00007630  e7 20 52 54 3e 50 54 20  8c 20 5a 24 3d 22 28 22  |. RT>PT . Z$="("|
00007640  2b 5a 24 2b 22 29 22 20  8b 20 5a 24 3d 22 20 22  |+Z$+")" . Z$=" "|
00007650  2b 5a 24 0d 18 38 0c 4f  24 3d 4f 24 2b 5a 24 0d  |+Z$..8.O$=O$+Z$.|
00007660  18 42 11 f2 50 52 49 4e  28 4f 24 29 3a f2 4e 4c  |.B..PRIN(O$):.NL|
00007670  0d 18 4c 3b f2 50 52 49  4e 28 c4 33 38 2c 22 20  |..L;.PRIN(.38," |
00007680  22 29 2b 22 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 20 3d  |")+"========== =|
00007690  3d 3d 3d 3d 3d 3d 3d 3d  3d 20 20 3d 3d 3d 3d 3d  |=========  =====|
000076a0  3d 3d 3d 3d 3d 22 29 3a  f2 4e 4c 0d 18 56 13 e3  |====="):.NL..V..|
000076b0  20 41 3d 31 20 b8 20 35  3a f2 4e 4c 3a ed 0d 18  | A=1 . 5:.NL:...|
000076c0  60 a9 4f 24 3d c4 33 38  2c 22 20 22 29 2b 22 20  |`.O$=.38," ")+" |
000076d0  20 20 20 20 20 20 20 20  20 42 61 6c 61 6e 63 65  |         Balance|
000076e0  20 42 2f 66 20 22 3a 5a  24 3d c2 22 20 20 20 20  | B/f ":Z$=."    |
000076f0  20 20 20 22 2b c3 28 36  35 35 33 36 2a 28 42 4b  |   "+.(65536*(BK|
00007700  3f 33 35 39 36 30 29 2b  32 35 36 2a 28 42 4b 3f  |?35960)+256*(BK?|
00007710  33 35 39 36 31 29 2b 28  42 4b 3f 33 35 39 36 32  |35961)+(BK?35962|
00007720  29 29 2c 37 29 2b 22 2e  22 2b c2 22 30 30 22 2b  |)),7)+"."+."00"+|
00007730  c3 28 42 4b 3f 33 35 39  36 33 29 2c 32 29 3a e7  |.(BK?35963),2):.|
00007740  20 42 4b 3f 33 35 39 36  34 3d 32 20 8c 20 5a 24  | BK?35964=2 . Z$|
00007750  3d 22 28 22 2b 5a 24 2b  22 29 22 20 8b 20 5a 24  |="("+Z$+")" . Z$|
00007760  3d 22 20 22 2b 5a 24 0d  18 6a 35 4f 24 3d 4f 24  |=" "+Z$..j5O$=O$|
00007770  2b 5a 24 3a 42 3d a4 53  4e 28 a4 52 53 28 42 4b  |+Z$:B=.SN(.RS(BK|
00007780  2b 33 35 39 36 30 29 29  3a e7 20 42 4b 3f 33 35  |+35960)):. BK?35|
00007790  39 36 34 3d 32 20 8c 20  42 3d 2d 42 0d 18 74 15  |964=2 . B=-B..t.|
000077a0  f2 50 52 49 4e 28 4f 24  29 3a f2 4e 4c 3a f2 4e  |.PRIN(O$):.NL:.N|
000077b0  4c 0d 18 7e 38 4f 24 3d  c4 33 38 2c 22 20 22 29  |L..~8O$=.38," ")|
000077c0  2b 22 20 20 20 20 20 20  20 20 41 64 64 3a 20 52  |+"        Add: R|
000077d0  65 63 65 69 70 74 73 20  20 22 2b a4 4e 53 28 52  |eceipts  "+.NS(R|
000077e0  54 29 3a 42 3d 42 2b 52  54 0d 18 88 15 f2 50 52  |T):B=B+RT.....PR|
000077f0  49 4e 28 4f 24 29 3a f2  4e 4c 3a f2 4e 4c 0d 18  |IN(O$):.NL:.NL..|
00007800  92 38 4f 24 3d c4 33 38  2c 22 20 22 29 2b 22 20  |.8O$=.38," ")+" |
00007810  20 20 20 20 20 20 4c 65  73 73 3a 20 50 61 79 6d  |      Less: Paym|
00007820  65 6e 74 73 20 20 22 2b  a4 4e 53 28 50 54 29 3a  |ents  "+.NS(PT):|
00007830  42 3d 42 2d 50 54 0d 18  9c 49 f2 50 52 49 4e 28  |B=B-PT...I.PRIN(|
00007840  4f 24 29 3a f2 4e 4c 3a  f2 50 52 49 4e 28 c4 33  |O$):.NL:.PRIN(.3|
00007850  38 2c 22 20 22 29 2b 22  20 20 20 20 20 20 20 20  |8," ")+"        |
00007860  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2d  |               -|
00007870  2d 2d 2d 2d 2d 2d 2d 2d  2d 22 29 3a f2 4e 4c 0d  |---------"):.NL.|
00007880  18 a6 35 4f 24 3d c4 33  38 2c 22 20 22 29 2b 22  |..5O$=.38," ")+"|
00007890  20 20 20 20 20 20 20 20  20 20 42 61 6c 61 6e 63  |          Balanc|
000078a0  65 20 43 2f 66 20 22 3a  5a 24 3d a4 4e 53 28 94  |e C/f ":Z$=.NS(.|
000078b0  28 42 29 29 0d 18 b0 25  e7 20 42 3c 30 20 8c 20  |(B))...%. B<0 . |
000078c0  5a 24 3d 22 28 22 2b 5a  24 2b 22 29 22 20 8b 20  |Z$="("+Z$+")" . |
000078d0  5a 24 3d 22 20 22 2b 5a  24 0d 18 ba 5e 4f 24 3d  |Z$=" "+Z$...^O$=|
000078e0  4f 24 2b 5a 24 3a f2 50  52 49 4e 28 4f 24 29 3a  |O$+Z$:.PRIN(O$):|
000078f0  f2 4e 4c 3a f2 50 52 49  4e 28 c4 33 38 2c 22 20  |.NL:.PRIN(.38," |
00007900  22 29 2b 22 20 20 20 20  20 20 20 20 20 20 20 20  |")+"            |
00007910  20 20 20 20 20 20 20 20  20 20 20 3d 3d 3d 3d 3d  |           =====|
00007920  3d 3d 3d 3d 3d 22 29 3a  f2 4e 4c 3a f2 45 4a 50  |====="):.NL:.EJP|
00007930  47 3a f2 50 52 4f 46 0d  18 c4 17 5a 3d 30 3a e7  |G:.PROF....Z=0:.|
00007940  20 42 3c 30 20 8c 20 5a  3d 32 3a f4 2f 2f 0d 18  | B<0 . Z=2:.//..|
00007950  ce 13 e7 20 42 3e 30 20  8c 20 5a 3d 31 3a f4 2f  |... B>0 . Z=1:./|
00007960  2f 0d 18 d8 1b f2 53 53  28 a4 4e 53 28 94 28 42  |/.....SS(.NS(.(B|
00007970  29 29 2c 42 4b 2b 33 35  39 36 30 29 0d 18 e2 12  |)),BK+35960)....|
00007980  42 4b 3f 33 35 39 36 34  3d 5a 3a f4 2f 2f 0d 18  |BK?35964=Z:.//..|
00007990  ec 21 e3 20 45 4e 3d 30  20 b8 20 32 35 35 3a 41  |.!. EN=0 . 255:A|
000079a0  44 3d 45 4e 2a 31 32 38  2b 42 4b 3a f4 2f 2f 0d  |D=EN*128+BK:.//.|
000079b0  18 f6 1b 3f 41 44 3d 30  3a 41 44 3f 31 3d 30 3a  |...?AD=0:AD?1=0:|
000079c0  41 44 3f 32 3d 30 3a f4  2f 2f 0d 19 00 1f e3 20  |AD?2=0:.//..... |
000079d0  5a 3d 33 20 b8 20 37 38  3a 3f 28 41 44 2b 5a 29  |Z=3 . 78:?(AD+Z)|
000079e0  3d 33 32 3a ed 3a f4 2f  2f 0d 19 0a 1f e3 20 5a  |=32:.:.//..... Z|
000079f0  3d 37 39 20 b8 20 38 36  3a 3f 28 41 44 2b 5a 29  |=79 . 86:?(AD+Z)|
00007a00  3d 30 3a ed 3a f4 2f 2f  0d 19 14 20 e3 20 5a 3d  |=0:.:.//... . Z=|
00007a10  38 37 20 b8 20 39 30 3a  3f 28 41 44 2b 5a 29 3d  |87 . 90:?(AD+Z)=|
00007a20  32 36 3a ed 3a f4 2f 2f  0d 19 1e 20 e3 20 5a 3d  |26:.:.//... . Z=|
00007a30  39 31 20 b8 20 31 30 36  3a 3f 28 41 44 2b 5a 29  |91 . 106:?(AD+Z)|
00007a40  3d 30 3a ed 3a f4 2f 2f  0d 19 28 09 ed 3a f4 2f  |=0:.:.//..(..:./|
00007a50  2f 0d 19 32 09 e1 3a f4  2f 2f 0d 19 3c 17 f4 20  |/..2..:.//..<.. |
00007a60  2a 2a 45 52 52 4f 52 20  54 52 41 50 50 45 52 2a  |**ERROR TRAPPER*|
00007a70  2a 0d 19 46 14 ef 33 3a  e7 20 53 54 41 47 45 3d  |*..F..3:. STAGE=|
00007a80  30 20 8c 20 f9 0d 19 50  38 db 3a ef 32 33 2c 31  |0 . ...P8.:.23,1|
00007a90  37 2c 37 2c 36 2c 31 36  3b 31 36 3b 30 3b 3a e6  |7,7,6,16;16;0;:.|
00007aa0  30 2c 36 3a ef 35 3a ec  20 35 34 34 2c 38 36 33  |0,6:.5:. 544,863|
00007ab0  3a f1 22 45 53 43 41 50  45 22 3a ef 34 0d 19 5a  |:."ESCAPE":.4..Z|
00007ac0  5a fb 20 33 3a f1 27 27  27 27 27 22 20 54 4f 20  |Z. 3:.'''''" TO |
00007ad0  52 45 54 55 52 4e 20 54  4f 20 54 48 45 20 4d 41  |RETURN TO THE MA|
00007ae0  49 4e 20 4d 45 4e 55 20  50 52 45 53 53 20 27 41  |IN MENU PRESS 'A|
00007af0  27 20 41 4e 44 20 54 4f  20 45 58 49 54 20 54 4f  |' AND TO EXIT TO|
00007b00  20 54 48 45 20 44 45 53  4b 54 4f 50 20 50 52 45  | THE DESKTOP PRE|
00007b10  53 53 20 27 42 27 22 0d  19 64 15 5a 58 24 3d a4  |SS 'B'"..d.ZX$=.|
00007b20  4b 28 22 41 22 2c 22 42  22 2c 31 29 0d 19 6e 15  |K("A","B",1)..n.|
00007b30  e7 20 5a 58 24 3d 22 42  22 20 8c 20 f2 54 45 52  |. ZX$="B" . .TER|
00007b40  4d 0d 19 78 0a e5 20 8d  64 66 40 0d 19 82 2e dd  |M..x.. .df@.....|
00007b50  20 a4 4e 53 28 5a 5a 5a  29 3d c0 a4 43 4e 53 28  | .NS(ZZZ)=..CNS(|
00007b60  5a 5a 5a 29 2c 37 29 2b  22 2e 22 2b c2 a4 43 4e  |ZZZ),7)+"."+..CN|
00007b70  53 28 5a 5a 5a 29 2c 32  29 0d 19 8c 2b dd 20 a4  |S(ZZZ),2)...+. .|
00007b80  53 4e 28 58 5a 24 29 3d  bb 28 c0 58 5a 24 2c a7  |SN(XZ$)=.(.XZ$,.|
00007b90  58 5a 24 2c 22 2e 22 29  2d 31 29 2b c2 58 5a 24  |XZ$,".")-1)+.XZ$|
00007ba0  2c 32 29 29 0d 19 96 35  dd f2 53 53 28 58 5a 24  |,2))...5..SS(XZ$|
00007bb0  2c 41 44 52 29 3a 49 3d  bb 28 c0 58 5a 24 2c a7  |,ADR):I=.(.XZ$,.|
00007bc0  58 5a 24 2c 22 2e 22 29  2d 31 29 29 3a 46 3d bb  |XZ$,".")-1)):F=.|
00007bd0  28 c2 58 5a 24 2c 32 29  29 0d 19 a0 46 3f 41 44  |(.XZ$,2))...F?AD|
00007be0  52 3d 49 20 81 20 36 35  35 33 36 3a 49 3d 49 20  |R=I . 65536:I=I |
00007bf0  83 20 36 35 35 33 36 3a  41 44 52 3f 31 3d 49 20  |. 65536:ADR?1=I |
00007c00  81 20 32 35 36 3a 49 3d  49 20 83 20 32 35 36 3a  |. 256:I=I . 256:|
00007c10  41 44 52 3f 32 3d 49 3a  41 44 52 3f 33 3d 46 0d  |ADR?2=I:ADR?3=F.|
00007c20  19 aa 05 e1 0d 19 b4 3e  dd 20 a4 52 53 28 41 44  |.......>. .RS(AD|
00007c30  52 29 3d a4 4e 53 28 31  30 30 2a 28 36 35 35 33  |R)=.NS(100*(6553|
00007c40  36 2a 3f 41 44 52 2b 32  35 36 2a 28 41 44 52 3f  |6*?ADR+256*(ADR?|
00007c50  31 29 2b 28 41 44 52 3f  32 29 29 2b 41 44 52 3f  |1)+(ADR?2))+ADR?|
00007c60  33 29 0d 19 be 31 dd 20  a4 43 4e 53 28 54 5a 29  |3)...1. .CNS(TZ)|
00007c70  3a 5a 5a 24 3d c3 28 54  5a 29 3a e7 20 a9 28 5a  |:ZZ$=.(TZ):. .(Z|
00007c80  5a 24 29 3d 31 20 8c 20  5a 5a 24 3d 22 30 22 2b  |Z$)=1 . ZZ$="0"+|
00007c90  5a 5a 24 0d 19 c8 1d e7  20 a9 20 28 5a 5a 24 29  |ZZ$..... . (ZZ$)|
00007ca0  3d 32 20 8c 20 5a 5a 24  3d 22 30 22 2b 5a 5a 24  |=2 . ZZ$="0"+ZZ$|
00007cb0  0d 19 d2 24 e7 20 a9 20  28 5a 5a 24 29 3c 39 20  |...$. . (ZZ$)<9 |
00007cc0  8c 20 5a 5a 24 3d 22 20  22 2b 5a 5a 24 3a e5 20  |. ZZ$=" "+ZZ$:. |
00007cd0  8d 64 52 59 0d 19 dc                              |.dRY...|
00007cd7