/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / c / calcula

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 68 01 00 00 54 03 00 00 |Archive.|h...T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 43 61 6c 63 75 6c | 61 00 00 00 ff ff ff ff |.!Calcul|a.......|
|00000070| 47 ff ff ff 10 4a 24 9c | 00 00 00 00 ff ff ff ff |G....J$.|........|
|00000080| 44 01 00 80 82 21 42 6f | 6f 74 00 61 6b 2e 0a 0a |D....!Bo|ot.ak...|
|00000090| 20 00 00 00 42 eb ff ff | 12 f2 5b 41 03 00 80 1b | ...B...|..[A....|
|000000a0| 20 00 00 00 24 00 00 00 | 83 21 68 65 6c 70 00 61 | ...$...|.!help.a|
|000000b0| 6b 2e 0a 0a d1 09 00 00 | 42 ff ff ff eb 69 76 bb |k.......|B....iv.|
|000000c0| 03 00 83 ac 2b 09 00 00 | 68 00 00 00 82 21 52 75 |....+...|h....!Ru|
|000000d0| 6e 00 00 61 6b 2e 0a 0a | 91 00 00 00 42 eb ff ff |n..ak...|....B...|
|000000e0| 37 56 b0 80 03 00 c1 d6 | 91 00 00 00 b7 09 00 00 |7V......|........|
|000000f0| 83 21 52 75 6e 49 6d 61 | 67 65 00 0a ec 14 00 00 |.!RunIma|ge......|
|00000100| 42 fb ff ff 0e a5 6c ab | 03 00 00 00 e8 14 00 00 |B.....l.|........|
|00000110| 6c 0a 00 00 83 21 53 70 | 72 69 74 65 73 00 0a 0a |l....!Sp|rites...|
|00000120| e4 03 00 00 42 f9 ff ff | 23 c6 5b 41 03 00 f5 58 |....B...|#.[A...X|
|00000130| a3 02 00 00 78 1f 00 00 | 82 43 61 6c 63 75 6c 61 |....x...|.Calcula|
|00000140| 31 00 0a 0a ad 06 00 00 | 42 fb ff ff 68 b2 6d ab |1.......|B...h.m.|
|00000150| 03 00 d5 07 ad 06 00 00 | 3f 22 00 00 83 54 65 6d |........|?"...Tem|
|00000160| 70 6c 61 74 65 73 00 0a | 0b 04 00 00 42 ec ff ff |plates..|....B...|
|00000170| 84 bd b8 a5 03 00 2d ab | cb 03 00 00 10 29 00 00 |......-.|.....)..|
|00000180| 00 21 42 6f 6f 74 00 61 | 6b 2e 0a 0a 68 00 00 00 |.!Boot.a|k...h...|
|00000190| 44 eb ff ff 62 ce b8 3d | 11 00 07 fa 68 00 00 00 |D...b..=|....h...|
|000001a0| 24 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |$.......|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 21 42 6f |....File|Data.!Bo|
|00000360| 6f 74 00 61 6b 2e 0a 0a | 20 00 00 00 42 eb ff ff |ot.ak...| ...B...|
|00000370| 12 f2 5b 41 03 00 80 1b | 49 63 6f 6e 53 70 72 69 |..[A....|IconSpri|
|00000380| 74 65 73 20 3c 4f 62 65 | 79 24 44 69 72 3e 2e 21 |tes <Obe|y$Dir>.!|
|00000390| 53 70 72 69 74 65 73 0a | 46 69 6c 65 44 61 74 61 |Sprites.|FileData|
|000003a0| 83 21 68 65 6c 70 00 61 | 6b 2e 0a 0a d1 09 00 00 |.!help.a|k.......|
|000003b0| 42 ff ff ff eb 69 76 bb | 03 00 83 ac 21 43 61 6c |B....iv.|....!Cal|
|000003c0| 63 75 6c 61 20 32 2e 30 | 33 0a 0a 43 61 6c 63 75 |cula 2.0|3..Calcu|
|000003d0| 6c 61 20 77 61 73 20 6f | 72 69 67 69 6e 61 6c 6c |la was o|riginall|
|000003e0| 79 20 63 72 65 61 74 65 | 64 20 69 6e 20 31 39 38 |y create|d in 198|
|000003f0| 36 20 61 73 20 61 0a 70 | 65 72 73 6f 6e 61 6c 20 |6 as a.p|ersonal |
|00000400| 75 74 69 6c 69 74 79 20 | 66 6f 72 20 74 68 65 20 |utility |for the |
|00000410| 42 42 43 20 6d 69 63 72 | 6f 2c 20 61 6e 64 20 74 |BBC micr|o, and t|
|00000420| 68 65 0a 6f 72 69 67 69 | 6e 61 6c 20 76 65 72 73 |he.origi|nal vers|
|00000430| 69 6f 6e 20 69 73 20 77 | 69 74 68 69 6e 20 74 68 |ion is w|ithin th|
|00000440| 69 73 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 61 |is appli|cation a|
|00000450| 73 0a 43 61 6c 63 75 6c | 61 31 2e 20 54 68 65 20 |s.Calcul|a1. The |
|00000460| 6f 62 6a 65 63 74 69 76 | 65 20 77 61 73 20 74 6f |objectiv|e was to|
|00000470| 20 70 72 6f 64 75 63 65 | 20 61 20 73 69 6d 70 6c | produce| a simpl|
|00000480| 65 0a 74 6f 6f 6c 20 74 | 6f 20 64 6f 20 74 68 65 |e.tool t|o do the|
|00000490| 20 74 79 70 65 20 6f 66 | 20 63 61 6c 63 75 6c 61 | type of| calcula|
|000004a0| 74 69 6f 6e 73 20 49 20 | 72 65 71 75 69 72 65 64 |tions I |required|
|000004b0| 2c 0a 62 6f 74 68 20 61 | 73 20 61 20 42 41 53 49 |,.both a|s a BASI|
|000004c0| 43 20 70 72 6f 67 72 61 | 6d 6d 65 72 20 61 6e 64 |C progra|mmer and|
|000004d0| 20 66 6f 72 20 73 69 6d | 70 6c 65 0a 73 74 61 74 | for sim|ple.stat|
|000004e0| 69 73 74 69 63 61 6c 20 | 75 73 65 2e 20 46 65 65 |istical |use. Fee|
|000004f0| 6c 20 66 72 65 65 20 74 | 6f 20 65 78 70 61 6e 64 |l free t|o expand|
|00000500| 20 69 74 20 74 6f 20 73 | 75 69 74 0a 79 6f 75 72 | it to s|uit.your|
|00000510| 20 6e 65 65 64 73 2e 0a | 0a 54 68 65 20 64 65 73 | needs..|.The des|
|00000520| 6b 74 6f 70 20 76 65 72 | 73 69 6f 6e 20 69 73 20 |ktop ver|sion is |
|00000530| 6d 79 20 66 69 72 73 74 | 20 61 74 74 65 6d 70 74 |my first| attempt|
|00000540| 20 61 74 20 67 65 74 74 | 69 6e 67 0a 70 72 6f 70 | at gett|ing.prop|
|00000550| 65 72 6c 79 20 74 6f 20 | 67 72 69 70 73 20 77 69 |erly to |grips wi|
|00000560| 74 68 20 57 69 6d 70 20 | 70 72 6f 67 72 61 6d 6d |th Wimp |programm|
|00000570| 69 6e 67 2c 20 61 6e 64 | 20 69 73 0a 66 75 6e 63 |ing, and| is.func|
|00000580| 74 69 6f 6e 61 6c 6c 79 | 20 74 68 65 20 73 61 6d |tionally| the sam|
|00000590| 65 20 61 73 20 74 68 65 | 20 42 42 43 20 76 65 72 |e as the| BBC ver|
|000005a0| 73 69 6f 6e 2c 20 65 78 | 63 65 70 74 0a 74 68 61 |sion, ex|cept.tha|
|000005b0| 74 20 69 74 20 6d 75 6c | 74 69 74 61 73 6b 73 2e |t it mul|titasks.|
|000005c0| 0a 0a 49 6e 20 65 73 73 | 65 6e 63 65 2c 20 79 6f |..In ess|ence, yo|
|000005d0| 75 20 63 61 6e 20 74 79 | 70 65 20 69 6e 20 61 6e |u can ty|pe in an|
|000005e0| 79 20 42 41 53 49 43 20 | 65 78 70 72 65 73 73 69 |y BASIC |expressi|
|000005f0| 6f 6e 0a 63 61 70 61 62 | 6c 65 20 6f 66 20 62 65 |on.capab|le of be|
|00000600| 69 6e 67 20 65 76 61 6c | 75 61 74 65 64 20 62 79 |ing eval|uated by|
|00000610| 20 45 56 41 4c 2e 20 41 | 6c 6c 20 6e 6f 72 6d 61 | EVAL. A|ll norma|
|00000620| 6c 0a 61 72 69 74 68 6d | 65 74 69 63 61 6c 20 61 |l.arithm|etical a|
|00000630| 6e 64 20 74 72 69 67 6f | 6e 6f 6d 65 74 72 69 63 |nd trigo|nometric|
|00000640| 61 6c 20 65 78 70 72 65 | 73 73 69 6f 6e 73 20 77 |al expre|ssions w|
|00000650| 69 6c 6c 0a 77 6f 72 6b | 2e 20 4f 6e 65 20 6f 72 |ill.work|. One or|
|00000660| 20 74 77 6f 20 6f 74 68 | 65 72 20 66 75 6e 63 74 | two oth|er funct|
|00000670| 69 6f 6e 73 20 77 65 72 | 65 20 61 64 64 65 64 20 |ions wer|e added |
|00000680| 61 73 0a 6e 65 65 64 65 | 64 2e 0a 0a 49 74 20 6f |as.neede|d...It o|
|00000690| 6e 6c 79 20 6b 6e 6f 77 | 73 20 69 74 73 20 6f 77 |nly know|s its ow|
|000006a0| 6e 20 76 61 72 69 61 62 | 6c 65 73 2c 20 61 6e 64 |n variab|les, and|
|000006b0| 20 6f 66 20 74 68 65 73 | 65 2c 0a 6f 6e 6c 79 20 | of thes|e,.only |
|000006c0| 58 2c 20 4d 31 2c 4d 32 | 20 61 6e 64 20 4d 33 20 |X, M1,M2| and M3 |
|000006d0| 61 72 65 20 72 65 6c 65 | 76 61 6e 74 20 74 6f 20 |are rele|vant to |
|000006e0| 75 73 65 72 73 2e 0a 0a | 58 20 69 73 20 74 68 65 |users...|X is the|
|000006f0| 20 76 61 72 69 61 62 6c | 65 20 77 68 69 63 68 20 | variabl|e which |
|00000700| 68 6f 6c 64 73 20 74 68 | 65 20 6e 75 6d 65 72 69 |holds th|e numeri|
|00000710| 63 20 72 65 73 75 6c 74 | 0a 6f 66 20 61 20 63 61 |c result|.of a ca|
|00000720| 6c 63 75 6c 61 74 69 6f | 6e 2e 0a 0a 4d 31 2c 4d |lculatio|n...M1,M|
|00000730| 32 2c 4d 33 20 61 72 65 | 20 27 4d 65 6d 6f 72 69 |2,M3 are| 'Memori|
|00000740| 65 73 27 20 74 6f 20 68 | 6f 6c 64 20 74 68 65 73 |es' to h|old thes|
|00000750| 65 20 72 65 73 75 6c 74 | 73 2e 0a 54 6f 20 6c 6f |e result|s..To lo|
|00000760| 61 64 20 6d 65 6d 6f 72 | 79 2c 20 74 79 70 65 20 |ad memor|y, type |
|00000770| 4d 31 3d 58 20 69 6e 74 | 6f 20 74 68 65 20 61 72 |M1=X int|o the ar|
|00000780| 67 75 6d 65 6e 74 20 6c | 69 6e 65 0a 61 6e 64 20 |gument l|ine.and |
|00000790| 74 68 65 20 6c 61 73 74 | 20 72 65 73 75 6c 74 20 |the last| result |
|000007a0| 77 69 6c 6c 20 61 70 70 | 65 61 72 20 69 6e 20 74 |will app|ear in t|
|000007b0| 68 65 20 4d 31 20 66 69 | 65 6c 64 2e 0a 54 68 65 |he M1 fi|eld..The|
|000007c0| 20 73 61 6d 65 20 61 70 | 70 6c 69 65 73 20 74 6f | same ap|plies to|
|000007d0| 20 4d 32 20 61 6e 64 20 | 4d 33 2e 20 59 6f 75 20 | M2 and |M3. You |
|000007e0| 63 61 6e 20 61 6c 73 6f | 20 74 79 70 65 0a 69 6e |can also| type.in|
|000007f0| 20 74 68 69 6e 67 73 20 | 6c 69 6b 65 20 4d 33 3d | things |like M3=|
|00000800| 4d 31 2b 4d 32 2e 0a 0a | 54 68 65 20 70 72 6f 67 |M1+M2...|The prog|
|00000810| 72 61 6d 20 77 69 6c 6c | 20 61 6c 73 6f 20 68 65 |ram will| also he|
|00000820| 6c 70 20 77 69 74 68 20 | 68 65 78 2c 20 62 69 6e |lp with |hex, bin|
|00000830| 61 72 79 20 61 6e 64 0a | 64 65 63 69 6d 61 6c 20 |ary and.|decimal |
|00000840| 63 6f 6e 76 65 72 73 69 | 6f 6e 73 2e 0a 0a 43 4f |conversi|ons...CO|
|00000850| 4e 56 45 52 53 49 4f 4e | 20 90 0e 45 58 41 4d 50 |NVERSION| ..EXAMP|
|00000860| 4c 45 20 90 09 52 45 53 | 55 4c 54 0a 0a 42 69 6e |LE ..RES|ULT..Bin|
|00000870| 61 72 79 20 74 6f 20 44 | 65 63 69 6d 61 6c 20 90 |ary to D|ecimal .|
|00000880| 07 25 31 30 31 30 31 20 | 90 0a 32 31 0a 44 65 63 |.%10101 |..21.Dec|
|00000890| 69 6d 61 6c 20 74 6f 20 | 42 69 6e 61 72 79 20 90 |imal to |Binary .|
|000008a0| 07 42 49 4e 31 32 33 20 | 90 0a 25 31 90 03 30 31 |.BIN123 |..%1..01|
|000008b0| 31 0a 48 65 78 20 74 6f | 20 44 65 63 69 6d 61 6c |1.Hex to| Decimal|
|000008c0| 20 90 0a 26 46 46 20 90 | 0d 32 35 35 0a 44 65 63 | ..&FF .|.255.Dec|
|000008d0| 69 6d 61 6c 20 74 6f 20 | 48 65 78 20 90 0a 7e 32 |imal to |Hex ..~2|
|000008e0| 35 35 20 90 0c 26 46 46 | 0a 0a 54 68 65 73 65 20 |55 ..&FF|..These |
|000008f0| 61 6c 73 6f 20 61 6c 6c | 20 77 6f 72 6b 20 69 6e |also all| work in|
|00000900| 20 74 68 65 20 42 42 43 | 20 76 65 72 73 69 6f 6e | the BBC| version|
|00000910| 2e 20 90 05 0a 0a 59 6f | 75 20 63 61 6e 20 61 6c |. ....Yo|u can al|
|00000920| 73 6f 20 74 79 70 65 2c | 20 66 6f 72 20 65 78 61 |so type,| for exa|
|00000930| 6d 70 6c 65 2c 20 41 53 | 43 22 41 22 20 69 6e 74 |mple, AS|C"A" int|
|00000940| 6f 20 74 68 65 0a 61 72 | 67 75 6d 65 6e 74 20 6c |o the.ar|gument l|
|00000950| 69 6e 65 2c 20 61 6e 64 | 20 67 65 74 20 62 61 63 |ine, and| get bac|
|00000960| 6b 20 36 35 20 61 73 20 | 74 68 65 20 72 65 73 75 |k 65 as |the resu|
|00000970| 6c 74 2e 0a 49 66 20 79 | 6f 75 20 74 79 70 65 20 |lt..If y|ou type |
|00000980| 69 6e 20 43 48 52 24 36 | 35 20 79 6f 75 20 77 69 |in CHR$6|5 you wi|
|00000990| 6c 6c 20 61 6c 73 6f 20 | 67 65 74 20 62 61 63 6b |ll also |get back|
|000009a0| 20 22 41 22 2e 0a 0a 54 | 79 70 69 6e 67 20 61 20 | "A"...T|yping a |
|000009b0| 73 65 72 69 65 73 20 6f | 66 20 6e 75 6d 62 65 72 |series o|f number|
|000009c0| 73 20 73 65 70 61 72 61 | 74 65 64 20 62 79 20 63 |s separa|ted by c|
|000009d0| 6f 6d 6d 61 73 0a 77 69 | 6c 6c 20 72 65 73 75 6c |ommas.wi|ll resul|
|000009e0| 74 20 69 6e 20 74 68 65 | 20 61 76 65 72 61 67 65 |t in the| average|
|000009f0| 20 28 61 72 69 74 68 6d | 65 74 69 63 20 6d 65 61 | (arithm|etic mea|
|00000a00| 6e 29 20 77 68 65 6e 0a | 72 65 74 75 72 6e 20 69 |n) when.|return i|
|00000a10| 73 20 70 72 65 73 73 65 | 64 2e 20 0a 20 90 28 52 |s presse|d. . .(R|
|00000a20| 45 53 55 4c 54 0a 0a 20 | 90 10 31 32 2c 31 33 2c |ESULT.. |..12,13,|
|00000a30| 31 34 2c 31 35 2c 31 36 | 20 90 0a 31 34 0a 0a 50 |14,15,16| ..14..P|
|00000a40| 72 65 66 69 78 20 74 68 | 65 20 73 65 72 69 65 73 |refix th|e series|
|00000a50| 20 77 69 74 68 20 53 44 | 45 56 20 61 6e 64 20 74 | with SD|EV and t|
|00000a60| 68 65 20 72 65 73 75 6c | 74 20 77 69 6c 6c 20 62 |he resul|t will b|
|00000a70| 65 0a 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 6f |e.the va|lue of o|
|00000a80| 6e 65 20 53 74 61 6e 64 | 61 72 64 20 44 65 76 69 |ne Stand|ard Devi|
|00000a90| 61 74 69 6f 6e 2e 0a 0a | 20 90 0c 53 44 45 56 31 |ation...| ..SDEV1|
|00000aa0| 32 2c 31 33 2c 31 34 2c | 31 35 2c 31 36 20 90 09 |2,13,14,|15,16 ..|
|00000ab0| 31 2e 34 31 34 32 31 33 | 35 36 32 0a 0a 4e 6f 6e |1.414213|562..Non|
|00000ac0| 20 66 61 74 61 6c 20 65 | 72 72 6f 72 73 20 77 69 | fatal e|rrors wi|
|00000ad0| 6c 6c 20 62 65 20 72 65 | 70 6f 72 74 65 64 20 69 |ll be re|ported i|
|00000ae0| 66 20 79 6f 75 20 6d 61 | 6b 65 20 61 0a 6d 69 73 |f you ma|ke a.mis|
|00000af0| 74 61 6b 65 2c 20 61 6e | 64 20 61 6c 6c 6f 77 20 |take, an|d allow |
|00000b00| 79 6f 75 20 74 6f 20 72 | 65 73 75 6d 65 2e 0a 0a |you to r|esume...|
|00000b10| 49 20 68 6f 70 65 20 79 | 6f 75 20 77 69 6c 6c 20 |I hope y|ou will |
|00000b20| 66 69 6e 64 20 74 68 69 | 73 20 70 72 6f 67 72 61 |find thi|s progra|
|00000b30| 6d 20 75 73 65 66 75 6c | 2e 20 50 6c 65 61 73 65 |m useful|. Please|
|00000b40| 2c 0a 77 68 65 6e 20 79 | 6f 75 20 70 61 73 73 20 |,.when y|ou pass |
|00000b50| 69 74 20 6f 6e 20 65 6e | 73 75 72 65 20 74 68 61 |it on en|sure tha|
|00000b60| 74 20 61 6c 6c 20 74 68 | 65 20 63 6f 6e 74 65 6e |t all th|e conten|
|00000b70| 74 73 0a 69 6e 63 6c 75 | 64 69 6e 67 20 74 68 69 |ts.inclu|ding thi|
|00000b80| 73 20 27 72 65 61 64 6d | 65 27 20 61 72 65 20 70 |s 'readm|e' are p|
|00000b90| 72 65 73 65 6e 74 2e 20 | 49 66 20 79 6f 75 20 6d |resent. |If you m|
|00000ba0| 6f 64 69 66 79 0a 69 74 | 20 61 6e 64 20 70 61 73 |odify.it| and pas|
|00000bb0| 73 20 74 68 61 74 20 6f | 6e 2c 20 61 64 64 20 79 |s that o|n, add y|
|00000bc0| 6f 75 72 20 61 64 64 69 | 74 69 6f 6e 61 6c 20 66 |our addi|tional f|
|00000bd0| 65 61 74 75 72 65 73 0a | 68 65 72 65 20 2d 20 61 |eatures.|here - a|
|00000be0| 6e 64 20 64 6f 6e 27 74 | 20 66 6f 72 67 65 74 20 |nd don't| forget |
|00000bf0| 74 6f 20 63 72 65 64 69 | 74 20 79 6f 75 72 73 65 |to credi|t yourse|
|00000c00| 6c 66 21 20 50 6c 65 61 | 73 65 20 0a 61 64 76 69 |lf! Plea|se .advi|
|00000c10| 73 65 20 41 50 44 4c 20 | 6f 66 20 61 6e 79 20 61 |se APDL |of any a|
|00000c20| 6c 74 65 72 61 74 69 6f | 6e 73 20 73 6f 20 77 65 |lteratio|ns so we|
|00000c30| 20 63 61 6e 20 6c 65 74 | 20 0a 65 76 65 72 79 6f | can let| .everyo|
|00000c40| 6e 65 20 62 65 6e 65 66 | 69 74 20 26 20 61 6c 73 |ne benef|it & als|
|00000c50| 6f 20 74 6f 20 6c 65 74 | 20 74 68 65 20 61 75 74 |o to let| the aut|
|00000c60| 68 6f 72 20 6b 65 65 70 | 20 0a 74 72 61 63 6b 2e |hor keep| .track.|
|00000c70| 0a 20 90 17 0a 0a 49 61 | 69 6e 20 4c 6f 67 61 6e |. ....Ia|in Logan|
|00000c80| 0a 30 33 38 37 33 2d 38 | 31 30 34 36 0a 0a 50 61 |.03873-8|1046..Pa|
|00000c90| 73 73 65 64 20 69 6e 74 | 6f 20 74 68 65 20 50 75 |ssed int|o the Pu|
|00000ca0| 62 6c 69 63 20 44 6f 6d | 61 69 6e 20 76 69 61 3a |blic Dom|ain via:|
|00000cb0| 0a 0a 41 50 44 4c 2c 20 | 39 36 20 4c 61 6e 65 68 |..APDL, |96 Laneh|
|00000cc0| 6f 75 73 65 20 52 6f 61 | 64 2c 20 54 68 6f 72 6e |ouse Roa|d, Thorn|
|00000cd0| 61 62 79 2c 0a 43 6c 65 | 76 65 6c 61 6e 64 20 54 |aby,.Cle|veland T|
|00000ce0| 53 31 37 20 38 45 41 46 | 69 6c 65 44 61 74 61 82 |S17 8EAF|ileData.|
|00000cf0| 21 52 75 6e 00 00 61 6b | 2e 0a 0a 91 00 00 00 42 |!Run..ak|.......B|
|00000d00| eb ff ff 37 56 b0 80 03 | 00 c1 d6 7c 20 3e 20 21 |...7V...|...| > !|
|00000d10| 45 61 73 79 54 45 4c 20 | 21 52 75 6e 20 56 31 2e |EasyTEL |!Run V1.|
|00000d20| 30 20 33 31 2d 38 2d 38 | 39 20 31 36 31 30 0a 7c |0 31-8-8|9 1610.||
|00000d30| 0a 7c 20 52 75 6e 20 66 | 69 6c 65 20 66 6f 72 20 |.| Run f|ile for |
|00000d40| 43 41 4c 43 55 4c 41 0a | 7c 0a 53 65 74 20 43 61 |CALCULA.||.Set Ca|
|00000d50| 6c 63 75 6c 61 24 44 69 | 72 20 3c 4f 62 65 79 24 |lcula$Di|r <Obey$|
|00000d60| 44 69 72 3e 0a 57 69 6d | 70 53 6c 6f 74 20 2d 6d |Dir>.Wim|pSlot -m|
|00000d70| 69 6e 20 31 30 6b 20 2d | 6d 61 78 20 33 30 6b 0a |in 10k -|max 30k.|
|00000d80| 52 75 6e 20 3c 43 61 6c | 63 75 6c 61 24 44 69 72 |Run <Cal|cula$Dir|
|00000d90| 3e 2e 21 52 75 6e 49 6d | 61 67 65 0a 46 69 6c 65 |>.!RunIm|age.File|
|00000da0| 44 61 74 61 83 21 52 75 | 6e 49 6d 61 67 65 00 0a |Data.!Ru|nImage..|
|00000db0| ec 14 00 00 47 fd ff ff | 87 4a 24 9c 03 00 00 00 |....G...|.J$.....|
|00000dc0| 0d 00 0a 1f f4 20 3e 20 | 3c 43 61 6c 63 75 6c 61 |..... > |<Calcula|
|00000dd0| 24 44 69 72 3e 2e 21 52 | 75 6e 49 6d 61 67 65 0d |$Dir>.!R|unImage.|
|00000de0| 00 14 26 76 65 72 73 69 | 6f 6e 24 3d 22 32 2e 30 |..&versi|on$="2.0|
|00000df0| 33 20 28 31 36 2d 53 65 | 70 2d 39 30 29 22 3a f4 |3 (16-Se|p-90)":.|
|00000e00| 20 31 33 35 35 0d 00 1e | 22 f4 20 44 45 53 4b 54 | 1355...|". DESKT|
|00000e10| 4f 50 20 45 58 50 52 45 | 53 53 49 4f 4e 20 45 56 |OP EXPRE|SSION EV|
|00000e20| 41 4c 55 41 54 4f 52 0d | 00 28 18 f4 20 a9 20 49 |ALUATOR.|.(.. . I|
|00000e30| 57 20 4c 4f 47 41 4e 20 | 31 39 38 39 2f 39 30 0d |W LOGAN |1989/90.|
|00000e40| 00 32 05 3a 0d 00 3c 10 | ee 85 f2 65 72 72 6f 72 |.2.:..<.|...error|
|00000e50| 28 f6 24 29 0d 00 46 09 | f2 69 6e 69 74 0d 00 50 |(.$)..F.|.init..P|
|00000e60| 05 3a 0d 00 5a 05 f5 0d | 00 64 09 f2 70 6f 6c 6c |.:..Z...|.d..poll|
|00000e70| 0d 00 6e 0a fd 71 75 69 | 74 25 0d 00 78 09 f2 71 |..n..qui|t%..x..q|
|00000e80| 75 69 74 0d 00 82 05 e0 | 0d 00 8c 05 3a 0d 00 96 |uit.....|....:...|
|00000e90| 11 dd f2 65 72 72 6f 72 | 28 65 72 72 24 29 0d 00 |...error|(err$)..|
|00000ea0| a0 0f 65 72 72 62 6c 6b | 25 21 30 3d 9f 0d 00 aa |..errblk|%!0=....|
|00000eb0| 26 e7 20 9f 3e 30 20 65 | 72 72 24 3d 65 72 72 24 |&. .>0 e|rr$=err$|
|00000ec0| 2b 22 20 28 22 2b c3 9f | 2b 22 2f 22 2b c3 9e 2b |+" ("+..|+"/"+..+|
|00000ed0| 22 29 22 0d 00 b4 14 dd | f2 61 70 70 6c 5f 65 72 |")".....|.appl_er|
|00000ee0| 72 28 65 72 72 24 29 0d | 00 be 15 24 28 65 72 72 |r(err$).|...$(err|
|00000ef0| 62 6c 6b 25 2b 34 29 3d | 65 72 72 24 0d 00 c8 28 |blk%+4)=|err$...(|
|00000f00| c8 99 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |.."Wimp_|ReportEr|
|00000f10| 72 6f 72 22 2c 65 72 72 | 62 6c 6b 25 2c 30 2c 74 |ror",err|blk%,0,t|
|00000f20| 61 73 6b 25 0d 00 d2 19 | e7 20 65 72 72 62 6c 6b |ask%....|. errblk|
|00000f30| 25 21 30 3e 30 20 f2 71 | 75 69 74 3a e0 0d 00 dc |%!0>0 .q|uit:....|
|00000f40| 05 e1 0d 00 e6 05 3a 0d | 00 f0 0a dd f2 69 6e 69 |......:.|.....ini|
|00000f50| 74 0d 01 04 1a f4 20 43 | 4f 52 45 20 49 53 20 43 |t..... C|ORE IS C|
|00000f60| 41 4c 43 55 4c 41 20 56 | 31 2e 35 0d 01 0e 12 4d |ALCULA V|1.5....M|
|00000f70| 31 3d 30 3a 4d 32 3d 30 | 3a 4d 33 3d 30 0d 01 18 |1=0:M2=0|:M3=0...|
|00000f80| 09 61 24 3d 22 22 0d 01 | 22 05 3a 0d 01 2c 0e 72 |.a$=""..|".:..,.r|
|00000f90| 65 61 73 6f 6e 25 3d 2d | 31 0d 01 36 10 77 6b 6d |eason%=-|1..6.wkm|
|00000fa0| 61 78 25 3d 26 31 34 30 | 30 0d 01 40 0e de 20 77 |ax%=&140|0..@.. w|
|00000fb0| 69 6e 64 25 28 32 29 0d | 01 4a 19 de 20 6f 6e 65 |ind%(2).|.J.. one|
|00000fc0| 25 20 31 36 3a 24 6f 6e | 65 25 3d 22 6f 6e 65 22 |% 16:$on|e%="one"|
|00000fd0| 0d 01 54 19 de 20 74 77 | 6f 25 20 31 36 3a 24 74 |..T.. tw|o% 16:$t|
|00000fe0| 77 6f 25 3d 22 74 77 6f | 22 0d 01 5e 1f de 20 65 |wo%="two|"..^.. e|
|00000ff0| 72 72 62 6c 6b 25 20 32 | 35 35 2c 77 6b 73 70 63 |rrblk% 2|55,wkspc|
|00001000| 25 20 77 6b 6d 61 78 25 | 0d 01 68 17 77 6b 6e 64 |% wkmax%|..h.wknd|
|00001010| 25 3d 77 6b 73 70 63 25 | 2b 77 6b 6d 61 78 25 0d |%=wkspc%|+wkmax%.|
|00001020| 01 72 28 de 20 70 6f 6c | 6c 62 6c 6b 25 20 32 35 |.r(. pol|lblk% 25|
|00001030| 35 2c 77 69 6e 62 6c 6b | 25 20 26 34 30 30 2c 74 |5,winblk|% &400,t|
|00001040| 61 73 6b 25 20 31 36 0d | 01 7c 11 de 20 69 63 6f |ask% 16.|.|.. ico|
|00001050| 6e 62 6c 6b 25 20 31 36 | 0d 01 86 10 de 20 6d 65 |nblk% 16|..... me|
|00001060| 6e 75 25 20 26 34 30 30 | 0d 01 90 00 14 24 6d 65 |nu% &400|.....$me|
|00001070| 6e 75 25 3d 22 43 61 6c | 63 75 6c 61 22 0d 01 9a |nu%="Cal|cula"...|
|00001080| 09 f7 8d 74 64 41 0d 01 | a4 35 dc 37 2c 32 2c 37 |...tdA..|.5.7,2,7|
|00001090| 2c 30 2c 31 35 30 2c 34 | 34 2c 30 2c 22 43 6c 65 |,0,150,4|4,0,"Cle|
|000010a0| 61 72 20 61 6c 6c 22 2c | 22 49 6e 66 6f 22 2c 22 |ar all",|"Info","|
|000010b0| 51 75 69 74 22 2c 22 5a | 90 03 22 0d 01 ae 0d e3 |Quit","Z|..".....|
|000010c0| 49 25 3d 31 32 b8 31 35 | 0d 01 b8 0a f3 69 74 65 |I%=12.15|.....ite|
|000010d0| 6d 25 0d 01 c2 12 6d 65 | 6e 75 25 3f 49 25 3d 69 |m%....me|nu%?I%=i|
|000010e0| 74 65 6d 25 0d 01 cc 07 | ed 49 25 0d 01 d6 0f e3 |tem%....|.I%.....|
|000010f0| 49 25 3d 31 36 b8 32 34 | 88 34 0d 01 e0 0a f3 69 |I%=16.24|.4.....i|
|00001100| 74 65 6d 25 0d 01 ea 12 | 6d 65 6e 75 25 21 49 25 |tem%....|menu%!I%|
|00001110| 3d 69 74 65 6d 25 0d 01 | f4 07 ed 49 25 0d 01 fe |=item%..|...I%...|
|00001120| 12 70 6f 73 6e 25 3d 6d | 65 6e 75 25 2b 32 38 0d |.posn%=m|enu%+28.|
|00001130| 02 08 0a 65 6e 74 25 3d | 30 0d 02 12 05 f5 0d 02 |...ent%=|0.......|
|00001140| 1c 0a f3 69 74 65 6d 24 | 0d 02 26 15 e7 69 74 65 |...item$|..&..ite|
|00001150| 6d 24 3d 22 5a 90 03 22 | 8c 8d 44 6c 42 0d 02 30 |m$="Z.."|..DlB..0|
|00001160| 0f 65 6e 74 25 3d 65 6e | 74 25 2b 31 0d 02 3a 0d |.ent%=en|t%+1..:.|
|00001170| 70 6f 73 6e 25 21 30 3d | 30 0d 02 44 0e 70 6f 73 |posn%!0=|0..D.pos|
|00001180| 6e 25 21 34 3d 2d 31 0d | 02 4e 14 70 6f 73 6e 25 |n%!4=-1.|.N.posn%|
|00001190| 21 38 3d 26 37 30 90 04 | 32 31 0d 02 58 15 24 28 |!8=&70..|21..X.$(|
|000011a0| 70 6f 73 6e 25 2b 31 32 | 29 3d 69 74 65 6d 24 0d |posn%+12|)=item$.|
|000011b0| 02 62 12 70 6f 73 6e 25 | 3d 70 6f 73 6e 25 2b 32 |.b.posn%|=posn%+2|
|000011c0| 34 0d 02 6c 10 fd 69 74 | 65 6d 24 3d 22 5a 90 03 |4..l..it|em$="Z..|
|000011d0| 22 0d 02 76 1c 70 6f 73 | 6e 25 21 2d 32 34 3d 70 |"..v.pos|n%!-24=p|
|000011e0| 6f 73 6e 25 21 2d 32 34 | 20 84 26 38 30 0d 02 80 |osn%!-24| .&80...|
|000011f0| 12 de 20 73 74 72 62 75 | 66 66 25 20 32 35 35 0d |.. strbu|ff% 255.|
|00001200| 02 8a 17 6d 65 6e 75 65 | 6e 64 25 3d 6d 65 6e 75 |...menue|nd%=menu|
|00001210| 25 2b 26 34 30 30 0d 02 | 94 0b 71 75 69 74 25 3d |%+&400..|..quit%=|
|00001220| a3 0d 02 9e 20 74 61 73 | 6b 24 3d 22 43 61 6c 63 |.... tas|k$="Calc|
|00001230| 75 6c 61 22 3a 24 74 61 | 73 6b 25 3d 74 61 73 6b |ula":$ta|sk%=task|
|00001240| 24 0d 02 a8 2b c8 99 22 | 57 69 6d 70 5f 49 6e 69 |$...+.."|Wimp_Ini|
|00001250| 74 69 61 6c 69 73 65 22 | 2c 32 30 30 2c 26 34 42 |tialise"|,200,&4B|
|00001260| 35 33 34 31 35 34 2c 74 | 61 73 6b 25 0d 02 b2 26 |534154,t|ask%...&|
|00001270| 24 77 69 6e 62 6c 6b 25 | 3d 22 3c 43 61 6c 63 75 |$winblk%|="<Calcu|
|00001280| 6c 61 24 44 69 72 3e 2e | 74 65 6d 70 6c 61 74 65 |la$Dir>.|template|
|00001290| 73 22 0d 02 bc 14 77 69 | 6e 64 25 28 31 29 3d 77 |s"....wi|nd%(1)=w|
|000012a0| 69 6e 62 6c 6b 25 0d 02 | c6 23 c8 99 22 57 69 6d |inblk%..|.#.."Wim|
|000012b0| 70 5f 4f 70 65 6e 54 65 | 6d 70 6c 61 74 65 22 2c |p_OpenTe|mplate",|
|000012c0| 2c 77 69 6e 64 25 28 31 | 29 0d 02 d0 4f c8 99 22 |,wind%(1|)...O.."|
|000012d0| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|000012e0| 65 22 2c 2c 77 69 6e 64 | 25 28 31 29 2b 34 2c 77 |e",,wind|%(1)+4,w|
|000012f0| 6b 73 70 63 25 2c 77 6b | 6e 64 25 2c 2d 31 2c 6f |kspc%,wk|nd%,-1,o|
|00001300| 6e 65 25 2c 30 20 b8 2c | 2c 77 6b 73 70 63 25 2c |ne%,0 .,|,wkspc%,|
|00001310| 90 04 6e 65 78 74 25 0d | 02 da 2c c8 99 22 57 69 |..next%.|..,.."Wi|
|00001320| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00001330| 2c 2c 77 69 6e 64 25 28 | 31 29 2b 34 20 b8 20 6f |,,wind%(|1)+4 . o|
|00001340| 6e 65 25 0d 02 e4 4d 76 | 6d 69 6e 78 25 3d 77 69 |ne%...Mv|minx%=wi|
|00001350| 6e 64 25 28 31 29 21 34 | 3a 76 6d 69 6e 79 25 3d |nd%(1)!4|:vminy%=|
|00001360| 77 69 6e 64 25 28 31 29 | 21 38 3a 76 6d 61 78 78 |wind%(1)|!8:vmaxx|
|00001370| 25 3d 77 69 6e 64 25 28 | 31 29 21 31 36 3a 76 6d |%=wind%(|1)!16:vm|
|00001380| 61 78 79 25 3d 77 69 6e | 64 25 28 31 29 21 31 36 |axy%=win|d%(1)!16|
|00001390| 0d 02 ee 2b de 20 69 63 | 6f 6e 25 28 32 2c 36 2c |...+. ic|on%(2,6,|
|000013a0| 31 29 3a f4 20 6c 6f 63 | 61 74 69 6f 6e 73 20 6f |1):. loc|ations o|
|000013b0| 66 20 69 63 6f 6e 20 64 | 61 74 61 0d 02 f8 28 f4 |f icon d|ata...(.|
|000013c0| 20 32 6e 64 20 41 52 45 | 20 64 61 74 61 2c 69 6e | 2nd ARE| data,in|
|000013d0| 64 69 72 65 63 74 65 64 | 20 74 65 78 74 20 73 74 |directed| text st|
|000013e0| 61 72 74 0d 03 02 16 74 | 70 79 25 3d 77 69 6e 64 |art....t|py%=wind|
|000013f0| 25 28 31 29 2b 34 2b 38 | 38 0d 03 0c 0b e3 49 25 |%(1)+4+8|8.....I%|
|00001400| 3d 30 b8 34 0d 03 16 16 | 69 63 6f 6e 25 28 31 2c |=0.4....|icon%(1,|
|00001410| 49 25 2c 30 29 3d 74 70 | 79 25 0d 03 20 19 69 63 |I%,0)=tp|y%.. .ic|
|00001420| 6f 6e 25 28 31 2c 49 25 | 2c 31 29 3d 74 70 79 25 |on%(1,I%|,1)=tpy%|
|00001430| 21 32 30 0d 03 2a 10 74 | 70 79 25 3d 74 70 79 25 |!20..*.t|py%=tpy%|
|00001440| 2b 33 32 0d 03 34 07 ed | 49 25 0d 03 3e 12 21 77 |+32..4..|I%..>.!w|
|00001450| 69 6e 64 25 28 31 29 3d | 6f 6e 65 25 0d 03 48 11 |ind%(1)=|one%..H.|
|00001460| 77 69 6e 64 25 28 32 29 | 3d 74 70 79 25 0d 03 52 |wind%(2)|=tpy%..R|
|00001470| 4f c8 99 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d |O.."Wimp|_LoadTem|
|00001480| 70 6c 61 74 65 22 2c 2c | 77 69 6e 64 25 28 32 29 |plate",,|wind%(2)|
|00001490| 2b 34 2c 77 6b 73 70 63 | 25 2c 77 6b 6e 64 25 2c |+4,wkspc|%,wknd%,|
|000014a0| 2d 31 2c 74 77 6f 25 2c | 30 20 b8 2c 2c 77 6b 73 |-1,two%,|0 .,,wks|
|000014b0| 70 63 25 2c 90 04 6e 65 | 78 74 25 0d 03 5c 2c c8 |pc%,..ne|xt%..\,.|
|000014c0| 99 22 57 69 6d 70 5f 43 | 72 65 61 74 65 57 69 6e |."Wimp_C|reateWin|
|000014d0| 64 6f 77 22 2c 2c 77 69 | 6e 64 25 28 32 29 2b 34 |dow",,wi|nd%(2)+4|
|000014e0| 20 b8 20 74 77 6f 25 0d | 03 66 23 69 63 6f 6e 25 | . two%.|.f#icon%|
|000014f0| 28 32 2c 36 2c 30 29 3d | 77 69 6e 64 25 28 32 29 |(2,6,0)=|wind%(2)|
|00001500| 2b 34 2b 38 38 2b 33 32 | 2a 36 0d 03 70 20 69 63 |+4+88+32|*6..p ic|
|00001510| 6f 6e 25 28 32 2c 36 2c | 31 29 3d 69 63 6f 6e 25 |on%(2,6,|1)=icon%|
|00001520| 28 32 2c 36 2c 30 29 21 | 32 30 0d 03 7a 12 21 77 |(2,6,0)!|20..z.!w|
|00001530| 69 6e 64 25 28 32 29 3d | 74 77 6f 25 0d 03 84 05 |ind%(2)=|two%....|
|00001540| 3a 0d 03 8e 5a 21 70 6f | 6c 6c 62 6c 6b 25 3d 2d |:...Z!po|llblk%=-|
|00001550| 31 3a 70 6f 6c 6c 62 6c | 6b 25 21 34 3d 30 3a 70 |1:pollbl|k%!4=0:p|
|00001560| 6f 6c 6c 62 6c 6b 25 21 | 38 3d 30 3a 70 6f 6c 6c |ollblk%!|8=0:poll|
|00001570| 62 6c 6b 25 21 31 32 3d | 36 39 3a 70 6f 6c 6c 62 |blk%!12=|69:pollb|
|00001580| 6c 6b 25 21 31 36 3d 36 | 38 3a 70 6f 6c 6c 62 6c |lk%!16=6|8:pollbl|
|00001590| 6b 25 21 32 30 3d 26 33 | 30 30 32 0d 03 98 1d 24 |k%!20=&3|002....$|
|000015a0| 28 70 6f 6c 6c 62 6c 6b | 25 2b 32 34 29 3d 22 21 |(pollblk|%+24)="!|
|000015b0| 43 61 6c 63 75 6c 61 22 | 0d 03 a2 29 c8 99 22 57 |Calcula"|...).."W|
|000015c0| 69 6d 70 5f 43 72 65 61 | 74 65 49 63 6f 6e 22 2c |imp_Crea|teIcon",|
|000015d0| 2c 70 6f 6c 6c 62 6c 6b | 25 20 b8 20 69 63 6f 6e |,pollblk|% . icon|
|000015e0| 25 0d 03 ac 1a c8 99 22 | 57 69 6d 70 5f 43 6c 6f |%......"|Wimp_Clo|
|000015f0| 73 65 54 65 6d 70 6c 61 | 74 65 22 0d 03 b6 22 f2 |seTempla|te"...".|
|00001600| 75 70 64 61 74 65 69 63 | 6f 6e 28 32 2c 74 77 6f |updateic|on(2,two|
|00001610| 25 2c 36 2c 76 65 72 73 | 69 6f 6e 24 29 0d 03 c0 |%,6,vers|ion$)...|
|00001620| 05 e1 0d 03 ca 05 3a 0d | 03 d4 0a dd f2 70 6f 6c |......:.|.....pol|
|00001630| 6c 0d 03 de 26 c8 99 22 | 57 69 6d 70 5f 50 6f 6c |l...&.."|Wimp_Pol|
|00001640| 6c 22 2c 31 2c 70 6f 6c | 6c 62 6c 6b 25 20 b8 20 |l",1,pol|lblk% . |
|00001650| 72 65 61 73 6f 6e 25 0d | 03 e8 0f c8 8e 72 65 61 |reason%.|.....rea|
|00001660| 73 6f 6e 25 20 ca 0d 03 | f2 1d c9 20 32 3a f2 6f |son% ...|... 2:.o|
|00001670| 70 65 6e 77 69 6e 64 6f | 77 28 70 6f 6c 6c 62 6c |penwindo|w(pollbl|
|00001680| 6b 25 29 0d 03 fc 1e c9 | 20 33 3a f2 63 6c 6f 73 |k%).....| 3:.clos|
|00001690| 65 77 69 6e 64 6f 77 28 | 70 6f 6c 6c 62 6c 6b 25 |ewindow(|pollblk%|
|000016a0| 29 0d 04 06 08 c9 20 34 | 3a 0d 04 10 08 c9 20 35 |)..... 4|:..... 5|
|000016b0| 3a 0d 04 1a 18 c9 20 36 | 3a f2 6d 6f 75 73 65 28 |:..... 6|:.mouse(|
|000016c0| 70 6f 6c 6c 62 6c 6b 25 | 29 0d 04 24 0d c9 20 38 |pollblk%|)..$.. 8|
|000016d0| 3a f2 6b 65 79 73 0d 04 | 2e 1d c9 20 39 3a f2 6d |:.keys..|... 9:.m|
|000016e0| 65 6e 75 73 65 6c 65 63 | 74 28 70 6f 6c 6c 62 6c |enuselec|t(pollbl|
|000016f0| 6b 25 29 0d 04 38 09 c9 | 20 31 31 3a 0d 04 42 09 |k%)..8..| 11:..B.|
|00001700| c9 20 31 32 3a 0d 04 4c | 22 c9 20 31 37 2c 31 38 |. 12:..L|". 17,18|
|00001710| 3a e7 70 6f 6c 6c 62 6c | 6b 25 21 31 36 3d 30 8c |:.pollbl|k%!16=0.|
|00001720| 71 75 69 74 25 3d b9 0d | 04 56 05 cb 0d 04 60 05 |quit%=..|.V....`.|
|00001730| e1 0d 04 6a 05 3a 0d 04 | 74 0a dd f2 6b 65 79 73 |...j.:..|t...keys|
|00001740| 0d 04 7e 14 6b 65 79 25 | 3d 70 6f 6c 6c 62 6c 6b |..~.key%|=pollblk|
|00001750| 25 21 32 34 0d 04 88 0d | c8 8e 20 6b 65 79 25 20 |%!24....|.. key% |
|00001760| ca 0d 04 92 1c c9 20 31 | 33 3a f2 70 72 65 73 73 |...... 1|3:.press|
|00001770| 72 74 6e 28 70 6f 6c 6c | 62 6c 6b 25 29 0d 04 9c |rtn(poll|blk%)...|
|00001780| 2d c9 20 32 37 3a 65 72 | 72 62 6c 6b 25 21 30 3d |-. 27:er|rblk%!0=|
|00001790| 31 3a f2 61 70 70 6c 5f | 65 72 72 28 22 42 79 65 |1:.appl_|err("Bye|
|000017a0| 20 42 79 65 22 29 3a 3d | 22 22 0d 04 a6 05 7f 0d | Bye"):=|""......|
|000017b0| 04 b0 1c c8 99 22 57 69 | 6d 70 5f 50 72 6f 63 65 |....."Wi|mp_Proce|
|000017c0| 73 73 4b 65 79 22 2c 6b | 65 79 25 0d 04 ba 05 cb |ssKey",k|ey%.....|
|000017d0| 0d 04 c4 05 e1 0d 04 ce | 05 3a 0d 04 d8 0a dd f2 |........|.:......|
|000017e0| 71 75 69 74 0d 04 e2 16 | c8 99 22 57 69 6d 70 5f |quit....|.."Wimp_|
|000017f0| 43 6c 6f 73 65 44 6f 77 | 6e 22 0d 04 ec 05 e1 0d |CloseDow|n"......|
|00001800| 04 f6 05 3a 0d 05 00 16 | dd f2 6f 70 65 6e 77 69 |...:....|..openwi|
|00001810| 6e 64 6f 77 28 62 6c 6b | 25 29 0d 05 14 1d c8 99 |ndow(blk|%)......|
|00001820| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|00001830| 22 2c 2c 62 6c 6b 25 0d | 05 1e 05 e1 0d 05 28 05 |",,blk%.|......(.|
|00001840| 3a 0d 05 32 17 dd f2 63 | 6c 6f 73 65 77 69 6e 64 |:..2...c|losewind|
|00001850| 6f 77 28 62 6c 6b 25 29 | 0d 05 3c 1e c8 99 22 57 |ow(blk%)|..<..."W|
|00001860| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|00001870| 2c 2c 62 6c 6b 25 0d 05 | 46 05 e1 0d 05 50 05 3a |,,blk%..|F....P.:|
|00001880| 0d 05 5a 11 dd f2 6d 6f | 75 73 65 28 62 6c 6b 25 |..Z...mo|use(blk%|
|00001890| 29 0d 05 64 0a ea 78 25 | 2c 79 25 0d 05 6e 17 78 |)..d..x%|,y%..n.x|
|000018a0| 25 3d 62 6c 6b 25 21 30 | 3a 79 25 3d 62 6c 6b 25 |%=blk%!0|:y%=blk%|
|000018b0| 21 34 0d 05 78 10 c8 8e | 20 62 6c 6b 25 21 31 36 |!4..x...| blk%!16|
|000018c0| 20 ca 0d 05 82 1f c9 20 | 30 3a e7 62 6c 6b 25 21 | ...... |0:.blk%!|
|000018d0| 38 3d 34 20 f2 73 65 74 | 63 61 72 65 74 28 2d 31 |8=4 .set|caret(-1|
|000018e0| 29 0d 05 8c 3b c9 20 35 | 3a f2 75 70 64 61 74 65 |)...;. 5|:.update|
|000018f0| 69 63 6f 6e 28 31 2c 6f | 6e 65 25 2c 30 2c c4 32 |icon(1,o|ne%,0,.2|
|00001900| 35 35 2c bd 31 33 29 29 | 3a f2 73 65 74 63 61 72 |55,.13))|:.setcar|
|00001910| 65 74 28 6f 6e 65 25 2c | 30 2c 30 29 0d 05 96 2c |et(one%,|0,0)...,|
|00001920| c9 20 31 31 3a f2 75 70 | 64 61 74 65 69 63 6f 6e |. 11:.up|dateicon|
|00001930| 28 31 2c 6f 6e 65 25 2c | 32 2c c4 33 39 2c bd 31 |(1,one%,|2,.39,.1|
|00001940| 33 29 29 3a 4d 31 3d 30 | 0d 05 a0 2c c9 20 31 32 |3)):M1=0|...,. 12|
|00001950| 3a f2 75 70 64 61 74 65 | 69 63 6f 6e 28 31 2c 6f |:.update|icon(1,o|
|00001960| 6e 65 25 2c 33 2c c4 33 | 39 2c bd 31 33 29 29 3a |ne%,3,.3|9,.13)):|
|00001970| 4d 32 3d 30 0d 05 aa 2c | c9 20 31 33 3a f2 75 70 |M2=0...,|. 13:.up|
|00001980| 64 61 74 65 69 63 6f 6e | 28 31 2c 6f 6e 65 25 2c |dateicon|(1,one%,|
|00001990| 34 2c c4 33 39 2c bd 31 | 33 29 29 3a 4d 33 3d 30 |4,.39,.1|3)):M3=0|
|000019a0| 0d 05 b4 05 cb 0d 05 be | 10 c8 8e 20 62 6c 6b 25 |........|... blk%|
|000019b0| 21 31 32 20 ca 0d 05 c8 | 08 c9 20 2d 32 0d 05 d2 |!12 ....|.. -2...|
|000019c0| 28 77 69 6e 64 25 28 31 | 29 21 32 38 3d 2d 31 3a |(wind%(1|)!28=-1:|
|000019d0| f2 6f 70 65 6e 77 69 6e | 64 6f 77 28 77 69 6e 64 |.openwin|dow(wind|
|000019e0| 25 28 31 29 29 0d 05 dc | 14 79 25 3d 79 25 2b 39 |%(1))...|.y%=y%+9|
|000019f0| 36 2b 65 6e 74 25 2a 34 | 34 0d 05 e6 05 cb 0d 05 |6+ent%*4|4.......|
|00001a00| f0 0f c8 8e 20 62 6c 6b | 25 21 38 20 ca 0d 05 fa |.... blk|%!8 ....|
|00001a10| 14 c9 20 32 3a f2 6d 65 | 6e 75 28 78 25 2c 79 25 |.. 2:.me|nu(x%,y%|
|00001a20| 29 0d 06 04 05 cb 0d 06 | 0e 05 e1 0d 06 18 05 3a |).......|.......:|
|00001a30| 0d 06 22 11 dd f2 6d 65 | 6e 75 28 78 25 2c 79 25 |.."...me|nu(x%,y%|
|00001a40| 29 0d 06 2c 24 c8 99 22 | 57 69 6d 70 5f 43 72 65 |)..,$.."|Wimp_Cre|
|00001a50| 61 74 65 4d 65 6e 75 22 | 2c 2c 6d 65 6e 75 25 2c |ateMenu"|,,menu%,|
|00001a60| 78 25 2c 79 25 0d 06 36 | 05 e1 0d 06 40 05 3a 0d |x%,y%..6|....@.:.|
|00001a70| 06 4a 16 dd f2 6d 65 6e | 75 73 65 6c 65 63 74 28 |.J...men|uselect(|
|00001a80| 62 6c 6b 25 29 0d 06 54 | 10 69 74 65 6d 25 3d 62 |blk%)..T|.item%=b|
|00001a90| 6c 6b 25 21 30 0d 06 5e | 0e c8 8e 20 69 74 65 6d |lk%!0..^|... item|
|00001aa0| 25 20 ca 0d 06 68 07 c9 | 20 30 0d 06 72 37 f2 75 |% ...h..| 0..r7.u|
|00001ab0| 70 64 61 74 65 69 63 6f | 6e 28 31 2c 6f 6e 65 25 |pdateico|n(1,one%|
|00001ac0| 2c 30 2c c4 32 35 35 2c | bd 31 33 29 29 3a f2 73 |,0,.255,|.13)):.s|
|00001ad0| 65 74 63 61 72 65 74 28 | 6f 6e 65 25 2c 30 2c 30 |etcaret(|one%,0,0|
|00001ae0| 29 0d 06 7c 22 f2 75 70 | 64 61 74 65 69 63 6f 6e |)..|".up|dateicon|
|00001af0| 28 31 2c 6f 6e 65 25 2c | 31 2c c4 33 39 2c bd 31 |(1,one%,|1,.39,.1|
|00001b00| 33 29 29 0d 06 7d 27 f2 | 75 70 64 61 74 65 69 63 |3))..}'.|updateic|
|00001b10| 6f 6e 28 31 2c 6f 6e 65 | 25 2c 32 2c c4 33 39 2c |on(1,one|%,2,.39,|
|00001b20| bd 31 33 29 29 3a 4d 31 | 3d 30 0d 06 86 27 f2 75 |.13)):M1|=0...'.u|
|00001b30| 70 64 61 74 65 69 63 6f | 6e 28 31 2c 6f 6e 65 25 |pdateico|n(1,one%|
|00001b40| 2c 33 2c c4 33 39 2c bd | 31 33 29 29 3a 4d 32 3d |,3,.39,.|13)):M2=|
|00001b50| 30 0d 06 90 00 27 f2 75 | 70 64 61 74 65 69 63 6f |0....'.u|pdateico|
|00001b60| 6e 28 31 2c 6f 6e 65 25 | 2c 34 2c c4 33 39 2c bd |n(1,one%|,4,.39,.|
|00001b70| 31 33 29 29 3a 4d 33 3d | 30 0d 06 9a 2c c9 20 31 |13)):M3=|0...,. 1|
|00001b80| 3a 77 69 6e 64 25 28 32 | 29 21 32 38 3d 2d 31 3a |:wind%(2|)!28=-1:|
|00001b90| f2 6f 70 65 6e 77 69 6e | 64 6f 77 28 77 69 6e 64 |.openwin|dow(wind|
|00001ba0| 25 28 32 29 29 0d 06 a4 | 0f c9 20 32 3a 71 75 69 |%(2))...|.. 2:qui|
|00001bb0| 74 25 3d b9 0d 06 ae 05 | cb 0d 06 b8 05 e1 0d 06 |t%=.....|........|
|00001bc0| c2 05 3a 0d 06 cc 14 dd | f2 70 72 65 73 73 72 74 |..:.....|.pressrt|
|00001bd0| 6e 28 62 6c 6b 25 29 0d | 06 d6 14 61 24 3d 24 69 |n(blk%).|...a$=$i|
|00001be0| 63 6f 6e 25 28 31 2c 30 | 2c 31 29 0d 06 e0 44 e7 |con%(1,0|,1)...D.|
|00001bf0| a9 61 24 3d 30 20 8c 65 | 72 72 62 6c 6b 25 21 30 |.a$=0 .e|rrblk%!0|
|00001c00| 3d 30 3a f2 61 70 70 6c | 5f 65 72 72 28 22 59 6f |=0:.appl|_err("Yo|
|00001c10| 75 20 68 61 76 65 6e 27 | 74 20 70 75 74 20 69 6e |u haven'|t put in|
|00001c20| 20 74 68 65 20 73 75 6d | 20 79 65 74 21 22 29 0d | the sum| yet!").|
|00001c30| 06 ea 10 61 24 3d a4 63 | 61 6c 63 28 61 24 29 0d |...a$=.c|alc(a$).|
|00001c40| 06 f4 21 f2 75 70 64 61 | 74 65 69 63 6f 6e 28 31 |..!.upda|teicon(1|
|00001c50| 2c 6f 6e 65 25 2c 31 2c | c0 61 24 2c 33 38 29 29 |,one%,1,|.a$,38))|
|00001c60| 0d 06 fe 09 61 24 3d 22 | 22 0d 07 08 05 e1 0d 07 |....a$="|".......|
|00001c70| 12 05 3a 0d 07 1c 27 dd | f2 75 70 64 61 74 65 69 |..:...'.|.updatei|
|00001c80| 63 6f 6e 28 77 6e 6f 25 | 2c 77 69 6e 64 74 61 25 |con(wno%|,windta%|
|00001c90| 2c 6e 6f 25 2c 73 74 72 | 24 29 0d 07 26 15 24 69 |,no%,str|$)..&.$i|
|00001ca0| 63 6f 6e 62 6c 6b 25 3d | c4 31 36 2c bd 30 29 0d |conblk%=|.16,.0).|
|00001cb0| 07 30 25 69 63 6f 6e 62 | 6c 6b 25 21 30 3d 77 69 |.0%iconb|lk%!0=wi|
|00001cc0| 6e 64 74 61 25 3a 69 63 | 6f 6e 62 6c 6b 25 21 34 |ndta%:ic|onblk%!4|
|00001cd0| 3d 6e 6f 25 0d 07 3a 1b | 24 69 63 6f 6e 25 28 77 |=no%..:.|$icon%(w|
|00001ce0| 6e 6f 25 2c 6e 6f 25 2c | 31 29 3d 73 74 72 24 0d |no%,no%,|1)=str$.|
|00001cf0| 07 44 2a c8 99 22 57 69 | 6d 70 5f 53 65 74 49 63 |.D*.."Wi|mp_SetIc|
|00001d00| 6f 6e 53 74 61 74 65 22 | 2c 77 69 6e 64 74 61 25 |onState"|,windta%|
|00001d10| 2c 69 63 6f 6e 62 6c 6b | 25 0d 07 4e 05 e1 0d 07 |,iconblk|%..N....|
|00001d20| 58 05 3a 0d 07 62 22 dd | f2 73 65 74 63 61 72 65 |X.:..b".|.setcare|
|00001d30| 74 28 77 69 6e 64 6f 77 | 25 2c 6e 6f 25 2c 69 6e |t(window|%,no%,in|
|00001d40| 64 65 78 25 29 0d 07 6c | 33 c8 99 22 57 69 6d 70 |dex%)..l|3.."Wimp|
|00001d50| 5f 53 65 74 43 61 72 65 | 74 50 6f 73 69 74 69 6f |_SetCare|tPositio|
|00001d60| 6e 22 2c 77 69 6e 64 6f | 77 25 2c 6e 6f 25 2c 90 |n",windo|w%,no%,.|
|00001d70| 04 69 6e 64 65 78 25 0d | 07 76 05 e1 0d 07 80 05 |.index%.|.v......|
|00001d80| 3a 0d 07 8a 0d dd f2 63 | 61 6c 63 65 72 72 0d 07 |:......c|alcerr..|
|00001d90| 94 1e e7 20 9f 3e 32 38 | 20 8c f2 65 72 72 6f 72 |... .>28| ..error|
|00001da0| 28 f6 24 29 3a 61 24 3d | 22 22 3a e1 0d 07 9e 24 |(.$):a$=|"":....$|
|00001db0| e7 20 9f 3d 36 20 e7 63 | 6c 65 61 72 65 64 25 3d |. .=6 .c|leared%=|
|00001dc0| b9 20 8c 20 41 24 3d a4 | 73 74 72 69 6e 67 3a e1 |. . A$=.|string:.|
|00001dd0| 0d 07 a8 1d 65 72 72 62 | 6c 6b 25 21 30 3d 30 3a |....errb|lk%!0=0:|
|00001de0| f2 61 70 70 6c 5f 65 72 | 72 28 f6 24 29 0d 07 b2 |.appl_er|r(.$)...|
|00001df0| 09 41 24 3d 22 22 0d 07 | bc 05 e1 0d 07 c6 05 3a |.A$=""..|.......:|
|00001e00| 0d 07 d0 0e dd a4 63 61 | 6c 63 28 41 24 29 0d 07 |......ca|lc(A$)..|
|00001e10| da 07 ea 20 85 0d 07 e4 | 16 ee 20 85 20 ea 20 f2 |... ....|.. . . .|
|00001e20| 63 61 6c 63 65 72 72 3a | 3d 41 24 0d 07 ee 15 63 |calcerr:|=A$....c|
|00001e30| 6c 65 61 72 65 64 25 3d | b9 3a 6d 65 6d 25 3d 30 |leared%=|.:mem%=0|
|00001e40| 0d 07 f8 10 e7 20 41 24 | 3d 22 22 20 8c 3d 22 22 |..... A$|="" .=""|
|00001e50| 0d 08 02 13 48 46 4c 41 | 47 3d a3 3a 42 46 4c 41 |....HFLA|G=.:BFLA|
|00001e60| 47 3d a3 0d 08 0c 0f f4 | 20 41 24 3d 41 24 2b 22 |G=......| A$=A$+"|
|00001e70| 20 22 0d 08 16 07 5a 3d | 31 0d 08 20 25 59 3d a7 | "....Z=|1.. %Y=.|
|00001e80| 41 24 2c 22 25 22 29 3a | e7 20 59 3e 31 20 8c 20 |A$,"%"):|. Y>1 . |
|00001e90| f2 70 65 72 63 65 6e 74 | 3a e5 8d 54 60 48 0d 08 |.percent|:..T`H..|
|00001ea0| 2a 3f e7 20 a7 41 24 2c | 22 53 44 45 56 22 29 3d |*?. .A$,|"SDEV")=|
|00001eb0| 31 20 80 20 a7 41 24 2c | 22 2c 22 29 3d 30 20 8c |1 . .A$,|",")=0 .|
|00001ec0| 20 41 24 3d c2 41 24 2c | a9 28 41 24 29 2d 34 29 | A$=.A$,|.(A$)-4)|
|00001ed0| 3a 41 24 3d a4 73 64 65 | 76 3a 5a 3d 31 0d 08 34 |:A$=.sde|v:Z=1..4|
|00001ee0| 23 59 3d a7 41 24 2c 22 | 2c 22 29 3a e7 20 59 3e |#Y=.A$,"|,"):. Y>|
|00001ef0| 30 20 8c 20 41 24 3d a4 | 61 76 3a e5 8d 54 6a 48 |0 . A$=.|av:..TjH|
|00001f00| 0d 08 3e 2a e7 20 a7 41 | 24 2c 22 7e 22 29 3d 31 |..>*. .A|$,"~")=1|
|00001f10| 20 8c 20 41 24 3d c2 41 | 24 2c a9 28 41 24 29 2d | . A$=.A|$,.(A$)-|
|00001f20| 31 29 3a 48 46 4c 41 47 | 3d b9 0d 08 48 2c e7 20 |1):HFLAG|=...H,. |
|00001f30| a7 41 24 2c 22 42 49 4e | 22 29 3d 31 20 8c 20 41 |.A$,"BIN|")=1 . A|
|00001f40| 24 3d c2 41 24 2c a9 28 | 41 24 29 2d 33 29 3a 42 |$=.A$,.(|A$)-3):B|
|00001f50| 46 4c 41 47 3d b9 0d 08 | 52 37 e7 20 a7 41 24 2c |FLAG=...|R7. .A$,|
|00001f60| 22 4d 31 3d 22 29 3d 31 | 20 8c 20 4d 31 3d a0 28 |"M1=")=1| . M1=.(|
|00001f70| c2 41 24 2c a9 28 41 24 | 29 2d 33 29 29 3a 6d 65 |.A$,.(A$|)-3)):me|
|00001f80| 6d 25 3d 32 3a 6d 65 6d | 24 3d c3 4d 31 0d 08 5c |m%=2:mem|$=.M1..\|
|00001f90| 37 e7 20 a7 41 24 2c 22 | 4d 32 3d 22 29 3d 31 20 |7. .A$,"|M2=")=1 |
|00001fa0| 8c 20 4d 32 3d a0 28 c2 | 41 24 2c a9 28 41 24 29 |. M2=.(.|A$,.(A$)|
|00001fb0| 2d 33 29 29 3a 6d 65 6d | 25 3d 33 3a 6d 65 6d 24 |-3)):mem|%=3:mem$|
|00001fc0| 3d c3 4d 32 0d 08 66 37 | e7 20 a7 41 24 2c 22 4d |=.M2..f7|. .A$,"M|
|00001fd0| 33 3d 22 29 3d 31 20 8c | 20 4d 33 3d a0 28 c2 41 |3=")=1 .| M3=.(.A|
|00001fe0| 24 2c a9 28 41 24 29 2d | 33 29 29 3a 6d 65 6d 25 |$,.(A$)-|3)):mem%|
|00001ff0| 3d 34 3a 6d 65 6d 24 3d | c3 4d 33 0d 08 70 39 e7 |=4:mem$=|.M3..p9.|
|00002000| 6d 65 6d 25 8c f2 75 70 | 64 61 74 65 69 63 6f 6e |mem%..up|dateicon|
|00002010| 28 31 2c 6f 6e 65 25 2c | 6d 65 6d 25 2c c0 6d 65 |(1,one%,|mem%,.me|
|00002020| 6d 24 2c 33 38 29 29 3a | 6d 65 6d 25 3d 30 3a 3d |m$,38)):|mem%=0:=|
|00002030| 6d 65 6d 24 0d 08 7a 0d | 58 3d a0 28 41 24 29 2f |mem$..z.|X=.(A$)/|
|00002040| 5a 0d 08 84 27 e7 20 42 | 46 4c 41 47 20 8c 20 41 |Z...'. B|FLAG . A|
|00002050| 24 3d a4 74 6f 62 69 6e | 3a 42 46 4c 41 47 3d a3 |$=.tobin|:BFLAG=.|
|00002060| 3a 3d 22 25 22 2b 41 24 | 0d 08 8e 26 e7 20 48 46 |:="%"+A$|...&. HF|
|00002070| 4c 41 47 20 8c 20 48 46 | 4c 41 47 25 3d a3 3a 3d |LAG . HF|LAG%=.:=|
|00002080| 22 3d 26 22 2b c3 7e 58 | 20 8b 20 3d c3 58 0d 08 |"=&"+.~X| . =.X..|
|00002090| 98 07 3d 41 24 0d 08 a2 | 05 3a 0d 08 ac 0d dd f2 |..=A$...|.:......|
|000020a0| 70 65 72 63 65 6e 74 0d | 08 b6 23 41 24 3d c0 41 |percent.|..#A$=.A|
|000020b0| 24 2c 59 2d 31 29 2b 22 | 2a 2e 30 31 22 2b c2 41 |$,Y-1)+"|*.01"+.A|
|000020c0| 24 2c a9 28 41 24 29 2d | 59 29 0d 08 c0 05 e1 0d |$,.(A$)-|Y)......|
|000020d0| 08 ca 05 3a 0d 08 d4 0c | dd a4 73 74 72 69 6e 67 |...:....|..string|
|000020e0| 0d 08 de 0e 63 6c 65 61 | 72 65 64 25 3d a3 0d 08 |....clea|red%=...|
|000020f0| e8 1c 42 24 3d a0 28 41 | 24 29 3a 41 24 3d 22 90 |..B$=.(A|$):A$=".|
|00002100| 04 2b 42 24 2b 22 90 04 | 0d 08 f2 0e 63 6c 65 61 |.+B$+"..|....clea|
|00002110| 72 65 64 25 3d b9 0d 08 | fc 07 3d 41 24 0d 09 06 |red%=...|..=A$...|
|00002120| 05 3a 0d 09 10 08 dd a4 | 61 76 0d 09 1a 26 42 24 |.:......|av...&B$|
|00002130| 3d c0 41 24 2c 59 2d 31 | 29 2b 22 2b 22 2b c2 41 |=.A$,Y-1|)+"+"+.A|
|00002140| 24 2c a9 28 41 24 29 2d | 59 29 3a 5a 3d 5a 2b 31 |$,.(A$)-|Y):Z=Z+1|
|00002150| 0d 09 24 07 3d 42 24 0d | 09 2e 05 3a 0d 09 38 0a |..$.=B$.|...:..8.|
|00002160| dd a4 73 64 65 76 0d 09 | 42 0e 42 24 3d 41 24 3a |..sdev..|B.B$=A$:|
|00002170| 5a 5a 3d 30 0d 09 4c 0e | 54 32 3d a0 28 41 24 29 |ZZ=0..L.|T2=.(A$)|
|00002180| 2f 5a 0d 09 56 05 f5 0d | 09 60 0e 59 3d a7 42 24 |/Z..V...|.`.Y=.B$|
|00002190| 2c 22 2b 22 29 0d 09 6a | 11 54 3d a0 28 c0 42 24 |,"+")..j|.T=.(.B$|
|000021a0| 2c 59 2d 31 29 29 0d 09 | 74 12 5a 5a 3d 5a 5a 2b |,Y-1))..|t.ZZ=ZZ+|
|000021b0| 28 54 2d 54 32 29 5e 32 | 0d 09 7e 13 42 24 3d c2 |(T-T2)^2|..~.B$=.|
|000021c0| 42 24 2c a9 28 42 24 29 | 2d 59 29 0d 09 88 09 fd |B$,.(B$)|-Y).....|
|000021d0| 20 59 3d 30 0d 09 92 0e | 5a 5a 3d b6 28 5a 5a 2f | Y=0....|ZZ=.(ZZ/|
|000021e0| 5a 29 0d 09 9c 0c 42 24 | 3d c3 28 5a 5a 29 0d 09 |Z)....B$|=.(ZZ)..|
|000021f0| a6 07 3d 42 24 0d 09 b0 | 05 3a 0d 09 ba 0b dd a4 |..=B$...|.:......|
|00002200| 74 6f 62 69 6e 0d 09 c4 | 08 ea 20 42 24 0d 09 ce |tobin...|.. B$...|
|00002210| 0a 59 3d 32 5e 33 30 0d | 09 d8 05 f5 0d 09 e2 0b |.Y=2^30.|........|
|00002220| 42 3d 58 20 81 20 59 0d | 09 ec 21 e7 20 42 3d 31 |B=X . Y.|..!. B=1|
|00002230| 20 8c 20 42 24 3d 42 24 | 2b 22 31 22 20 8b 20 42 | . B$=B$|+"1" . B|
|00002240| 24 3d 42 24 2b 22 30 22 | 0d 09 f6 0f 42 3d 58 20 |$=B$+"0"|....B=X |
|00002250| 83 20 59 3a 58 3d 42 0d | 0a 00 09 59 3d 59 2f 32 |. Y:X=B.|...Y=Y/2|
|00002260| 0d 0a 0a 09 fd 20 59 3c | 31 0d 0a 14 20 59 3d a7 |..... Y<|1... Y=.|
|00002270| 42 24 2c 22 31 22 29 3a | 42 24 3d c2 42 24 2c a9 |B$,"1"):|B$=.B$,.|
|00002280| 28 42 24 29 2d 59 2b 31 | 29 0d 0a 1e 16 e7 20 bb |(B$)-Y+1|)..... .|
|00002290| 28 42 24 29 3d 30 20 8c | 20 42 24 3d 22 30 22 0d |(B$)=0 .| B$="0".|
|000022a0| 0a 28 07 3d 42 24 0d ff | 46 69 6c 65 44 61 74 61 |.(.=B$..|FileData|
|000022b0| 83 21 53 70 72 69 74 65 | 73 00 0a 0a e4 03 00 00 |.!Sprite|s.......|
|000022c0| 42 f9 ff ff 23 c6 5b 41 | 03 00 f5 58 02 00 90 03 |B...#.[A|...X....|
|000022d0| 10 00 90 03 e8 03 00 00 | 04 01 00 00 73 6d 21 63 |........|....sm!c|
|000022e0| 61 6c 63 75 6c 61 00 00 | 02 00 90 03 08 00 90 07 |alcula..|........|
|000022f0| 07 00 90 03 2c 00 90 03 | 98 00 90 03 0c 00 90 05 |....,...|........|
|00002300| 50 77 00 75 07 00 90 05 | 77 57 77 77 57 77 90 04 |Pw.u....|wWwwWw..|
|00002310| 00 90 03 57 77 37 73 77 | 37 73 77 77 00 90 03 75 |...Ww7sw|7sww...u|
|00002320| 77 b3 4b 77 b3 4b 77 77 | 00 90 03 7b 07 cb bc 3c |w.Kw.Kww|...{...<|
|00002330| cb bc 74 b7 00 90 03 cc | 07 bc cb 3c b3 cb 74 bb |..t.....|...<..t.|
|00002340| 00 90 04 c0 cc cc 3c cc | cc 4c bb 00 90 04 0c 0c |......<.|.L......|
|00002350| c3 43 0c 33 b4 bb 00 90 | 04 cc 0c 3b 33 04 cb bc |.C.3....|...;3...|
|00002360| bb 00 90 05 f0 ff 00 ff | 0f 00 00 ff 90 03 00 f0 |........|........|
|00002370| ff 90 05 0f 00 ff 90 03 | f0 ff 90 07 0f ff 90 0f |........|........|
|00002380| f0 ff 90 07 0f ff 90 03 | 00 ff 90 07 00 ff 90 03 |........|........|
|00002390| 00 ff 90 07 00 ff 90 03 | 00 f0 ff 90 05 0f 00 ff |........|........|
|000023a0| 90 03 00 00 f0 ff 90 03 | 0f 00 00 ff 90 03 d4 02 |........|........|
|000023b0| 00 00 21 63 61 6c 63 75 | 6c 61 00 90 04 04 00 90 |..!calcu|la......|
|000023c0| 03 10 00 90 07 07 00 90 | 03 2c 00 90 03 80 01 00 |........|.,......|
|000023d0| 00 0c 00 90 03 77 90 06 | 57 76 77 65 77 90 07 00 |.....w..|Wvwew...|
|000023e0| 90 03 77 90 05 57 76 77 | 57 76 77 90 07 00 90 03 |..w..Wvw|Wvw.....|
|000023f0| 77 90 04 57 66 c7 73 77 | c7 73 77 76 77 90 04 00 |w..Wf.sw|.swvw...|
|00002400| 90 03 77 90 04 65 77 bc | cb 77 bc 4b 77 67 77 90 |..w..ew.|.w.Kwgw.|
|00002410| 04 00 90 03 77 90 04 7b | 07 9b b9 3c 9b b9 74 b6 |....w..{|...<..t.|
|00002420| 77 90 04 00 90 03 77 90 | 04 cc 07 bc cb 3c b3 cb |w.....w.|.....<..|
|00002430| 74 bb 77 90 04 00 90 03 | 77 90 05 c0 cc cc 3c c4 |t.w.....|w.....<.|
|00002440| cc 4c bb 77 90 04 00 90 | 03 77 90 05 0c 0c c3 43 |.L.w....|.w.....C|
|00002450| 0c 33 b4 bb 77 90 04 00 | 90 03 77 90 05 75 07 2b |.3..w...|..w..u.+|
|00002460| 22 02 4b 77 90 06 00 90 | 03 77 90 05 75 47 22 90 |".Kw....|.w..uG".|
|00002470| 03 74 77 90 06 00 90 03 | 77 90 05 75 07 00 76 00 |.tw.....|w..u..v.|
|00002480| 70 76 77 90 05 00 90 03 | 77 90 04 65 77 07 00 76 |pvw.....|w..ew..v|
|00002490| 00 50 76 77 90 05 00 90 | 03 77 90 03 65 66 77 77 |.Pvw....|.w..efww|
|000024a0| 60 00 07 65 77 77 76 77 | 90 03 00 90 03 77 77 57 |`..ewwvw|.....wwW|
|000024b0| 76 57 76 77 67 00 57 76 | 77 67 77 90 04 00 90 03 |vWvwg.Wv|wgw.....|
|000024c0| 77 57 66 77 77 65 77 77 | 00 65 77 77 76 77 90 04 |wWfwweww|.ewwvw..|
|000024d0| 00 90 03 57 66 77 90 03 | 57 76 77 57 76 77 77 76 |...Wfw..|WvwWvwwv|
|000024e0| 77 90 04 00 90 03 57 76 | 77 90 04 65 77 65 77 77 |w.....Wv|w..eweww|
|000024f0| 67 77 90 05 00 90 09 f0 | ff 00 ff 0f 00 90 0e f0 |gw......|........|
|00002500| ff 90 05 0f 00 90 0c f0 | ff 90 07 0f 00 90 0b ff |........|........|
|00002510| 90 09 00 90 0b f0 ff 90 | 07 0f 00 90 0c ff 90 07 |........|........|
|00002520| 00 90 0d ff 90 07 00 90 | 0d f0 ff 90 05 0f 00 90 |........|........|
|00002530| 0d ff 90 07 00 90 0d ff | 90 07 00 90 0d ff 90 07 |........|........|
|00002540| 00 90 0c ff 90 09 00 90 | 0a ff 90 0b 00 90 08 f0 |........|........|
|00002550| ff 90 0b 0f 00 90 06 f0 | ff 90 0d 0f 00 90 04 f0 |........|........|
|00002560| ff 90 0f 0f 00 90 03 f0 | ff 90 0f 0f 00 90 03 46 |........|.......F|
|00002570| 69 6c 65 44 61 74 61 82 | 43 61 6c 63 75 6c 61 31 |ileData.|Calcula1|
|00002580| 00 0a 0a ad 06 00 00 42 | fb ff ff 68 b2 6d ab 03 |.......B|...h.m..|
|00002590| 00 d5 07 0d 00 0a 30 f4 | 20 3e 20 3c 43 61 6c 63 |......0.| > <Calc|
|000025a0| 75 6c 61 24 44 69 72 3e | 2e 43 61 6c 63 75 6c 61 |ula$Dir>|.Calcula|
|000025b0| 31 20 56 31 2e 35 20 31 | 35 2d 37 2d 38 37 20 31 |1 V1.5 1|5-7-87 1|
|000025c0| 37 35 30 0d 00 14 1a f4 | 20 28 63 29 20 49 57 20 |750.....| (c) IW |
|000025d0| 4c 6f 67 61 6e 20 31 39 | 38 37 2f 38 39 0d 00 1e |Logan 19|87/89...|
|000025e0| 12 4d 31 3d 30 3a 4d 32 | 3d 30 3a 4d 33 3d 30 0d |.M1=0:M2|=0:M3=0.|
|000025f0| 00 28 16 41 24 3d c4 32 | 35 35 2c 22 20 22 29 3a |.(.A$=.2|55," "):|
|00002600| 42 24 3d 41 24 0d 00 32 | 06 eb 37 0d 00 3c 0d ee |B$=A$..2|..7..<..|
|00002610| 20 85 20 e5 8d 64 7a 40 | 0d 00 46 2c f1 22 33 20 | . ..dz@|..F,."3 |
|00002620| 4d 45 4d 4f 52 59 20 43 | 41 4c 43 55 4c 41 54 4f |MEMORY C|ALCULATO|
|00002630| 52 22 27 22 45 73 63 61 | 70 65 20 74 6f 20 51 75 |R"'"Esca|pe to Qu|
|00002640| 69 74 22 27 0d 00 50 13 | 48 46 4c 41 47 3d a3 3a |it"'..P.|HFLAG=.:|
|00002650| 42 46 4c 41 47 3d a3 0d | 00 55 1d e8 20 86 22 20 |BFLAG=..|.U.. ." |
|00002660| 3a 20 22 41 24 3a e7 20 | 41 24 3d 22 22 20 8c 20 |: "A$:. |A$="" . |
|00002670| 8d 44 55 40 0d 00 5a 0d | 41 24 3d 41 24 2b 22 20 |.DU@..Z.|A$=A$+" |
|00002680| 22 0d 00 64 07 5a 3d 31 | 0d 00 69 1e e7 20 a7 41 |"..d.Z=1|..i.. .A|
|00002690| 24 2c 22 2a 22 29 3d 31 | 20 8c 20 ff 28 41 24 29 |$,"*")=1| . .(A$)|
|000026a0| 3a e5 8d 44 50 40 0d 00 | 6e 42 59 3d a7 41 24 2c |:..DP@..|nBY=.A$,|
|000026b0| 22 25 22 29 3a e7 20 59 | 3d 31 20 8c 20 42 24 3d |"%"):. Y|=1 . B$=|
|000026c0| c2 41 24 2c a9 28 41 24 | 29 2d 31 29 3a 41 24 3d |.A$,.(A$|)-1):A$=|
|000026d0| c0 41 24 2c 59 2d 31 29 | 2b a4 65 78 62 69 6e 2b |.A$,Y-1)|+.exbin+|
|000026e0| 42 24 3a e5 8d 44 6e 40 | 0d 00 78 25 59 3d a7 41 |B$:..Dn@|..x%Y=.A|
|000026f0| 24 2c 22 25 22 29 3a e7 | 20 59 3e 31 20 8c 20 f2 |$,"%"):.| Y>1 . .|
|00002700| 70 65 72 63 65 6e 74 3a | e5 8d 44 78 40 0d 00 82 |percent:|..Dx@...|
|00002710| 3f e7 20 a7 41 24 2c 22 | 53 44 45 56 22 29 3d 31 |?. .A$,"|SDEV")=1|
|00002720| 20 80 20 a7 41 24 2c 22 | 2c 22 29 3d 30 20 8c 20 | . .A$,"|,")=0 . |
|00002730| 41 24 3d c2 41 24 2c a9 | 28 41 24 29 2d 34 29 3a |A$=.A$,.|(A$)-4):|
|00002740| 41 24 3d a4 73 64 65 76 | 3a 5a 3d 31 0d 00 8c 23 |A$=.sdev|:Z=1...#|
|00002750| 59 3d a7 41 24 2c 22 2c | 22 29 3a e7 20 59 3e 30 |Y=.A$,",|"):. Y>0|
|00002760| 20 8c 20 41 24 3d a4 61 | 76 3a e5 8d 74 42 40 0d | . A$=.a|v:..tB@.|
|00002770| 00 96 2a e7 20 a7 41 24 | 2c 22 7e 22 29 3d 31 20 |..*. .A$|,"~")=1 |
|00002780| 8c 20 41 24 3d c2 41 24 | 2c a9 28 41 24 29 2d 31 |. A$=.A$|,.(A$)-1|
|00002790| 29 3a 48 46 4c 41 47 3d | b9 0d 00 a0 2c e7 20 a7 |):HFLAG=|....,. .|
|000027a0| 41 24 2c 22 42 49 4e 22 | 29 3d 31 20 8c 20 41 24 |A$,"BIN"|)=1 . A$|
|000027b0| 3d c2 41 24 2c a9 28 41 | 24 29 2d 33 29 3a 42 46 |=.A$,.(A|$)-3):BF|
|000027c0| 4c 41 47 3d b9 0d 00 aa | 3b e7 20 a7 41 24 2c 22 |LAG=....|;. .A$,"|
|000027d0| 4d 31 3d 22 29 3d 31 20 | 8c 20 4d 31 3d a0 28 c2 |M1=")=1 |. M1=.(.|
|000027e0| 41 24 2c a9 28 41 24 29 | 2d 33 29 29 3a f1 22 4d |A$,.(A$)|-3)):."M|
|000027f0| 31 20 4c 4f 41 44 45 44 | 22 27 3a e5 8d 44 50 40 |1 LOADED|"':..DP@|
|00002800| 0d 00 b4 3b e7 20 a7 41 | 24 2c 22 4d 32 3d 22 29 |...;. .A|$,"M2=")|
|00002810| 3d 31 20 8c 20 4d 32 3d | a0 28 c2 41 24 2c a9 28 |=1 . M2=|.(.A$,.(|
|00002820| 41 24 29 2d 33 29 29 3a | f1 22 4d 32 20 4c 4f 41 |A$)-3)):|."M2 LOA|
|00002830| 44 45 44 22 27 3a e5 8d | 44 50 40 0d 00 be 3b e7 |DED"':..|DP@...;.|
|00002840| 20 a7 41 24 2c 22 4d 33 | 3d 22 29 3d 31 20 8c 20 | .A$,"M3|=")=1 . |
|00002850| 4d 33 3d a0 28 c2 41 24 | 2c a9 28 41 24 29 2d 33 |M3=.(.A$|,.(A$)-3|
|00002860| 29 29 3a f1 22 4d 33 20 | 4c 4f 41 44 45 44 22 27 |)):."M3 |LOADED"'|
|00002870| 3a e5 8d 44 50 40 0d 00 | c8 0d 58 3d a0 28 41 24 |:..DP@..|..X=.(A$|
|00002880| 29 2f 5a 0d 00 d2 36 e7 | 20 42 46 4c 41 47 20 8c |)/Z...6.| BFLAG .|
|00002890| 20 41 24 3d a4 74 6f 62 | 69 6e 3a f1 22 3d 22 3b | A$=.tob|in:."=";|
|000028a0| 41 24 3b 22 20 42 49 4e | 22 3a 42 46 4c 41 47 3d |A$;" BIN|":BFLAG=|
|000028b0| a3 3a f1 3a e5 8d 44 50 | 40 0d 00 dc 25 e7 20 48 |.:.:..DP|@...%. H|
|000028c0| 46 4c 41 47 20 f1 22 3d | 26 22 3b 7e 58 3a 48 46 |FLAG ."=|&";~X:HF|
|000028d0| 4c 41 47 3d a3 20 8b 20 | f1 22 3d 22 3b 58 0d 00 |LAG=. . |."=";X..|
|000028e0| e6 05 f1 0d 00 f0 09 e5 | 8d 44 50 40 0d 00 f1 05 |........|.DP@....|
|000028f0| 3a 0d 00 fa 1a e7 20 9f | 3d 31 37 20 8c 20 f1 22 |:..... .|=17 . ."|
|00002900| 42 79 65 20 42 79 65 21 | 22 3a e0 0d 01 04 19 e7 |Bye Bye!|":......|
|00002910| 20 9f 3d 36 20 8c 20 f2 | 73 74 72 69 6e 67 3a e5 | .=6 . .|string:.|
|00002920| 8d 44 50 40 0d 01 0e 2b | f6 3a f1 27 22 49 27 6d |.DP@...+|.:.'"I'm|
|00002930| 20 6f 6e 6c 79 20 61 20 | 43 61 6c 63 75 6c 61 74 | only a |Calculat|
|00002940| 6f 72 20 2d 20 54 72 79 | 20 61 67 61 69 6e 22 0d |or - Try| again".|
|00002950| 01 18 09 e5 8d 44 50 40 | 0d 01 19 05 3a 0d 01 22 |.....DP@|....:.."|
|00002960| 0d dd f2 70 65 72 63 65 | 6e 74 0d 01 2c 23 41 24 |...perce|nt..,#A$|
|00002970| 3d c0 41 24 2c 59 2d 31 | 29 2b 22 2a 2e 30 31 22 |=.A$,Y-1|)+"*.01"|
|00002980| 2b c2 41 24 2c a9 28 41 | 24 29 2d 59 29 0d 01 36 |+.A$,.(A|$)-Y)..6|
|00002990| 05 e1 0d 01 37 05 3a 0d | 01 40 0c dd f2 73 74 72 |....7.:.|.@...str|
|000029a0| 69 6e 67 0d 01 4a 1b 42 | 24 3d a0 28 41 24 29 3a |ing..J.B|$=.(A$):|
|000029b0| f1 22 3d 22 22 22 3b 42 | 24 3b 22 22 22 22 0d 01 |."=""";B|$;""""..|
|000029c0| 54 05 e1 0d 01 55 05 3a | 0d 01 5e 08 dd a4 61 76 |T....U.:|..^...av|
|000029d0| 0d 01 68 26 42 24 3d c0 | 41 24 2c 59 2d 31 29 2b |..h&B$=.|A$,Y-1)+|
|000029e0| 22 2b 22 2b c2 41 24 2c | a9 28 41 24 29 2d 59 29 |"+"+.A$,|.(A$)-Y)|
|000029f0| 3a 5a 3d 5a 2b 31 0d 01 | 72 07 3d 42 24 0d 01 73 |:Z=Z+1..|r.=B$..s|
|00002a00| 05 3a 0d 01 7c 0a dd a4 | 73 64 65 76 0d 01 86 0e |.:..|...|sdev....|
|00002a10| 42 24 3d 41 24 3a 5a 5a | 3d 30 0d 01 90 0e 54 32 |B$=A$:ZZ|=0....T2|
|00002a20| 3d a0 28 41 24 29 2f 5a | 0d 01 9a 05 f5 0d 01 a4 |=.(A$)/Z|........|
|00002a30| 0e 59 3d a7 42 24 2c 22 | 2b 22 29 0d 01 ae 11 54 |.Y=.B$,"|+")....T|
|00002a40| 3d a0 28 c0 42 24 2c 59 | 2d 31 29 29 0d 01 b8 12 |=.(.B$,Y|-1))....|
|00002a50| 5a 5a 3d 5a 5a 2b 28 54 | 2d 54 32 29 5e 32 0d 01 |ZZ=ZZ+(T|-T2)^2..|
|00002a60| c2 13 42 24 3d c2 42 24 | 2c a9 28 42 24 29 2d 59 |..B$=.B$|,.(B$)-Y|
|00002a70| 29 0d 01 cc 09 fd 20 59 | 3d 30 0d 01 d6 0e 5a 5a |)..... Y|=0....ZZ|
|00002a80| 3d b6 28 5a 5a 2f 5a 29 | 0d 01 e0 0c 42 24 3d c3 |=.(ZZ/Z)|....B$=.|
|00002a90| 28 5a 5a 29 0d 01 ea 07 | 3d 42 24 0d 01 eb 05 3a |(ZZ)....|=B$....:|
|00002aa0| 0d 01 f4 0b dd a4 74 6f | 62 69 6e 0d 01 fe 08 ea |......to|bin.....|
|00002ab0| 20 42 24 0d 02 08 0a 59 | 3d 32 5e 33 30 0d 02 12 | B$....Y|=2^30...|
|00002ac0| 05 f5 0d 02 1c 0b 42 3d | 58 20 81 20 59 0d 02 26 |......B=|X . Y..&|
|00002ad0| 21 e7 20 42 3d 31 20 8c | 20 42 24 3d 42 24 2b 22 |!. B=1 .| B$=B$+"|
|00002ae0| 31 22 20 8b 20 42 24 3d | 42 24 2b 22 30 22 0d 02 |1" . B$=|B$+"0"..|
|00002af0| 30 0f 42 3d 58 20 83 20 | 59 3a 58 3d 42 0d 02 3a |0.B=X . |Y:X=B..:|
|00002b00| 09 59 3d 59 2f 32 0d 02 | 44 09 fd 20 59 3c 31 0d |.Y=Y/2..|D.. Y<1.|
|00002b10| 02 4e 20 59 3d a7 42 24 | 2c 22 31 22 29 3a 42 24 |.N Y=.B$|,"1"):B$|
|00002b20| 3d c2 42 24 2c a9 28 42 | 24 29 2d 59 2b 31 29 0d |=.B$,.(B|$)-Y+1).|
|00002b30| 02 58 16 e7 20 bb 28 42 | 24 29 3d 30 20 8c 20 42 |.X.. .(B|$)=0 . B|
|00002b40| 24 3d 22 30 22 0d 02 62 | 07 3d 42 24 0d 02 6c 05 |$="0"..b|.=B$..l.|
|00002b50| 3a 0d 02 76 0b dd a4 65 | 78 62 69 6e 0d 02 80 0d |:..v...e|xbin....|
|00002b60| 42 3d 30 3a 43 24 3d 22 | 22 0d 02 8a 05 f5 0d 02 |B=0:C$="|".......|
|00002b70| 94 0e 42 31 24 3d c0 42 | 24 2c 31 29 0d 02 9e 51 |..B1$=.B|$,1)...Q|
|00002b80| e7 20 42 31 24 3d 22 31 | 22 20 84 20 42 31 24 3d |. B1$="1|" . B1$=|
|00002b90| 22 30 22 20 8c 20 43 24 | 3d 43 24 2b 42 31 24 3a |"0" . C$|=C$+B1$:|
|00002ba0| 42 24 3d c2 42 24 2c a9 | 28 42 24 29 2d 31 29 3a |B$=.B$,.|(B$)-1):|
|00002bb0| e5 8d 74 54 42 20 8b 20 | fd 20 42 31 24 3c 3e 22 |..tTB . |. B1$<>"|
|00002bc0| 31 22 20 80 20 42 31 24 | 3c 3e 22 30 22 0d 02 a8 |1" . B1$|<>"0"...|
|00002bd0| 05 f5 0d 02 b2 0e 59 3d | a7 43 24 2c 22 31 22 29 |......Y=|.C$,"1")|
|00002be0| 0d 02 bc 1f e7 20 59 3d | 31 20 8c 20 59 3d a9 28 |..... Y=|1 . Y=.(|
|00002bf0| 43 24 29 2d 31 3a 42 3d | 42 2b 28 32 5e 59 29 0d |C$)-1:B=|B+(2^Y).|
|00002c00| 02 c6 13 43 24 3d c2 43 | 24 2c a9 28 43 24 29 2d |...C$=.C|$,.(C$)-|
|00002c10| 31 29 0d 02 d0 13 fd 20 | 59 3d 30 20 84 20 a9 28 |1)..... |Y=0 . .(|
|00002c20| 43 24 29 3d 30 0d 02 da | 0c 42 32 24 3d c3 28 42 |C$)=0...|.B2$=.(B|
|00002c30| 29 0d 02 e4 08 3d 42 32 | 24 0d 02 ee 05 3a 0d ff |)....=B2|$....:..|
|00002c40| 46 69 6c 65 44 61 74 61 | 83 54 65 6d 70 6c 61 74 |FileData|.Templat|
|00002c50| 65 73 00 0a 0b 04 00 00 | 42 ec ff ff 84 bd b8 a5 |es......|B.......|
|00002c60| 03 00 2d ab ff 90 04 00 | 90 0c 44 00 90 03 87 01 |..-.....|..D.....|
|00002c70| 00 00 01 00 90 03 74 77 | 6f 0d 00 90 08 cb 01 00 |......tw|o.......|
|00002c80| 00 40 02 00 00 01 00 90 | 03 6f 6e 65 0d 00 90 0c |.@......|.one....|
|00002c90| 1e 02 00 00 94 00 90 03 | 84 04 00 00 6c 01 00 90 |........|....l...|
|00002ca0| 0a 38 07 00 00 12 00 01 | 86 07 02 07 01 03 01 0c |.8......|........|
|00002cb0| 00 90 06 fc ff ff 00 05 | 00 90 06 3d 01 00 90 03 |........|...=....|
|00002cc0| 30 00 00 01 00 90 07 58 | 01 00 00 ff 90 04 13 00 |0......X|........|
|00002cd0| 90 03 08 00 90 03 02 00 | 90 03 c8 ff 90 03 b2 00 |........|........|
|00002ce0| 90 03 f8 ff 90 03 39 00 | 00 17 4e 61 6d 65 3a 0d |......9.|..Name:.|
|00002cf0| 6c 65 64 3e 0d 7f 02 00 | 90 03 94 ff 90 03 b2 00 |led>....|........|
|00002d00| 90 03 c4 ff 90 03 39 60 | 00 17 41 75 74 68 6f 72 |......9`|..Author|
|00002d10| 3a 0d 64 3e 0d 7f 02 00 | 90 03 60 ff 90 03 b2 00 |:.d>....|..`.....|
|00002d20| 90 03 90 00 ff 90 03 39 | 60 00 17 56 65 72 73 69 |.......9|`..Versi|
|00002d30| 6f 6e 3a 0d 3e 0d 7f 02 | 00 90 03 2c ff 90 03 b2 |on:.>...|...,....|
|00002d40| 00 90 03 5c ff 90 03 39 | 60 00 17 50 75 72 70 6f |...\...9|`..Purpo|
|00002d50| 73 65 3a 0d 3e 0d 7f b0 | 00 90 03 c8 ff 90 03 5e |se:.>...|.......^|
|00002d60| 02 00 00 f8 ff 90 03 3d | 00 00 07 21 43 61 6c 63 |.......=|...!Calc|
|00002d70| 75 6c 61 0d 3e 0d 7f b0 | 00 90 03 94 ff 90 03 5e |ula.>...|.......^|
|00002d80| 02 00 00 c4 ff 90 03 3d | 00 00 07 49 61 69 6e 20 |.......=|...Iain |
|00002d90| 4c 6f 67 61 6e 0d 7f b0 | 00 90 03 60 ff 90 03 5e |Logan...|...`...^|
|00002da0| 02 00 00 90 00 ff 90 03 | 3d 01 00 07 6b 01 00 00 |........|=...k...|
|00002db0| ff 90 04 18 00 90 03 b0 | 00 90 03 2c ff 90 03 5e |........|...,...^|
|00002dc0| 02 00 00 5c ff 90 03 3d | 01 00 07 6c 01 00 00 ff |...\...=|...l....|
|00002dd0| 90 04 1b 00 90 03 41 62 | 6f 75 74 20 74 68 69 73 |......Ab|out this|
|00002de0| 20 70 72 6f 67 72 61 6d | 0d 0d 42 41 53 49 43 20 | program|..BASIC |
|00002df0| 45 78 70 72 65 73 73 69 | 6f 6e 20 45 76 61 6c 75 |Expressi|on Evalu|
|00002e00| 61 74 6f 72 0d cc 00 90 | 03 a8 01 00 00 50 04 00 |ator....|.....P..|
|00002e10| 00 b0 02 00 90 0a 3c 07 | 00 00 12 00 05 87 07 02 |......<.|........|
|00002e20| 07 01 03 01 0c 00 90 05 | f8 fe ff ff 84 03 00 90 |........|........|
|00002e30| 06 3d 01 00 90 06 01 00 | 90 07 18 02 00 00 ff 90 |.=......|........|
|00002e40| 04 1d 00 90 03 0e 00 90 | 03 a2 00 90 03 cc ff 90 |........|........|
|00002e50| 03 0c 03 00 00 fc ff 90 | 03 3d f5 00 07 35 02 00 |........|.=...5..|
|00002e60| 00 ff 90 05 00 90 03 a2 | 00 90 03 98 ff 90 03 0c |........|........|
|00002e70| 03 00 00 c8 ff 90 03 3d | a5 00 07 36 02 00 00 ff |.......=|...6....|
|00002e80| 90 04 40 00 90 03 a0 00 | 90 03 64 ff 90 03 0c 03 |..@.....|..d.....|
|00002e90| 00 00 94 ff 90 03 3d a5 | 00 f7 3d 02 00 00 ff 90 |......=.|..=.....|
|00002ea0| 04 40 00 90 03 a0 00 90 | 03 30 ff 90 03 0c 03 00 |.@......|.0......|
|00002eb0| 00 60 ff 90 03 3d a5 00 | f7 3e 02 00 00 ff 90 04 |.`...=..|.>......|
|00002ec0| 40 00 90 03 a0 00 90 03 | fc fe ff ff 0c 03 00 00 |@.......|........|
|00002ed0| 2c ff 90 03 3d a5 00 f7 | 3f 02 00 00 ff 90 04 40 |,...=...|?......@|
|00002ee0| 00 90 03 14 03 00 00 cc | ff 90 03 7c 03 00 00 fc |........|...|....|
|00002ef0| ff 90 03 3d 90 00 01 c7 | 43 4c 45 41 52 0d 6c 65 |...=....|CLEAR.le|
|00002f00| 64 3e 0d 7f 04 00 90 03 | cc ff 90 03 b4 00 90 03 |d>......|........|
|00002f10| fc ff 90 03 19 02 00 c7 | 41 72 67 75 6d 65 6e 74 |........|Argument|
|00002f20| 3a 0d 0d 7f 06 00 90 03 | 98 ff 90 03 90 00 00 90 |:.......|........|
|00002f30| 03 c8 ff 90 03 19 a6 00 | c7 52 65 73 75 6c 74 3a |........|.Result:|
|00002f40| 0d 0d 3e 0d 7f 6a 00 90 | 03 64 ff 90 03 98 00 90 |..>..j..|.d......|
|00002f50| 03 94 ff 90 03 19 a6 00 | bb 4d 31 0d 75 6c 74 3a |........|.M1.ult:|
|00002f60| 0d 0d 3e 0d 7f 6a 00 90 | 03 30 ff 90 03 98 00 90 |..>..j..|.0......|
|00002f70| 03 60 ff 90 03 19 a6 00 | cb 4d 32 0d 75 6c 74 3a |.`......|.M2.ult:|
|00002f80| 0d 0d 3e 0d 7f 6a 00 90 | 03 fc fe ff ff 98 00 90 |..>..j..|........|
|00002f90| 03 2c ff 90 03 19 a6 00 | cb 4d 33 0d 75 6c 74 3a |.,......|.M3.ult:|
|00002fa0| 0d 0d 3e 0d 7f 14 03 00 | 00 64 ff 90 03 7c 03 00 |..>.....|.d...|..|
|00002fb0| 00 94 ff 90 03 3d 90 00 | 01 cb 43 4c 45 41 52 0d |.....=..|..CLEAR.|
|00002fc0| 6c 65 64 3e 0d 7f 14 03 | 00 00 30 ff 90 03 7c 03 |led>....|..0...|.|
|00002fd0| 00 00 60 ff 90 03 3d 90 | 00 01 cb 43 4c 45 41 52 |..`...=.|...CLEAR|
|00002fe0| 0d 6c 65 64 3e 0d 7f 14 | 03 00 00 fc fe ff ff 7c |.led>...|.......||
|00002ff0| 03 00 00 2c ff 90 03 3d | 90 00 01 cb 43 4c 45 41 |...,...=|....CLEA|
|00003000| 52 0d 6c 65 64 3e 0d 7f | 43 61 6c 63 75 6c 61 20 |R.led>..|Calcula |
|00003010| 45 78 70 72 65 73 73 69 | 6f 6e 20 45 76 61 6c 75 |Expressi|on Evalu|
|00003020| 61 74 6f 72 0d 0d 61 6e | 73 77 65 72 0d 90 04    |ator..an|swer... |
+--------+-------------------------+-------------------------+--------+--------+