CHICK RESULTS
FILE INFORMATION
FILENAME(S): CHICK RESULTS
FILE TYPE(S): PRG
FILE SIZE: 5.9K
FIRST SEEN: 2025-11-02 16:26:32
APPEARS ON: 1 disk(s)
FILE HASH
d1ec4ee2ab72c6f1bb285f803caaa8e1d47384665ac363d9cf3aa20658484a18
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCHU LERN 17 | CHICK RESULTS | PRG | Treasure Chest - Murdock | 6 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 26 04 02 00 8F 2D 2D 2D 54 48 49 53 20 50 |..&....---THIS P|
00000010: 52 4F 47 52 41 4D 20 41 4C 4C 4F 57 53 20 53 54 |ROGRAM ALLOWS ST|
00000020: 55 44 45 4E 54 53 00 49 04 03 00 8F 2D 2D 2D 54 |UDENTS.I....---T|
00000030: 4F 20 43 48 45 43 4B 20 54 48 45 49 52 20 52 45 |O CHECK THEIR RE|
00000040: 53 55 4C 54 53 20 46 4F 52 00 66 04 04 00 8F 2D |SULTS FOR.f....-|
00000050: 2D 2D 54 48 45 20 43 48 49 43 4B 20 45 58 50 45 |--THE CHICK EXPE|
00000060: 52 49 4D 45 4E 54 00 7F 04 E8 03 8F 2D 2D 2D 2D |RIMENT......----|
00000070: 4D 41 49 4E 20 52 4F 55 54 49 4E 45 2D 2D 2D 00 |MAIN ROUTINE---.|
00000080: 91 04 F2 03 8D 20 31 32 30 30 3A 8F 20 49 4E 49 |..... 1200:. INI|
00000090: 54 00 AB 04 FC 03 8D 20 31 34 30 30 3A 8F 20 53 |T...... 1400:. S|
000000A0: 45 45 44 20 26 20 59 45 41 52 53 00 C6 04 10 04 |EED & YEARS.....|
000000B0: 8D 20 33 32 30 30 3A 8F 20 54 48 45 49 52 20 52 |. 3200:. THEIR R|
000000C0: 45 53 55 4C 54 53 00 E4 04 1A 04 8D 20 33 34 30 |ESULTS...... 340|
000000D0: 30 3A 8F 20 45 52 52 4F 52 53 20 26 20 43 4F 52 |0:. ERRORS & COR|
000000E0: 52 45 43 54 00 FE 04 24 04 8D 20 33 36 30 30 3A |RECT...$.. 3600:|
000000F0: 8F 20 43 4F 4D 50 55 54 45 20 43 4F 53 54 00 28 |. COMPUTE COST.(|
00000100: 05 2E 04 99 3A 99 22 12 42 D9 C5 21 20 20 48 CF |....:.".B..! H.|
00000110: D0 C5 A0 D9 CF D5 A0 C8 C1 C4 A0 C1 A0 C7 CF CF |................|
00000120: C4 A0 D4 C9 CD C5 2E 22 00 2E 05 42 04 80 00 47 |......."...B...G|
00000130: 05 B0 04 8F 2D 2D 2D 2D 49 4E 49 54 49 41 4C 49 |....----INITIALI|
00000140: 5A 45 2D 2D 2D 2D 2D 00 64 05 BA 04 86 20 52 45 |ZE-----.d.... RE|
00000150: 53 55 4C 54 53 28 35 2C 35 29 2C 44 28 35 29 2C |SULTS(5,5),D(5),|
00000160: 52 28 35 29 00 81 05 BC 04 8F 20 52 45 53 55 4C |R(5)...... RESUL|
00000170: 54 53 28 59 45 41 52 2C 51 55 45 53 54 49 4F 4E |TS(YEAR,QUESTION|
00000180: 29 00 B4 05 BF 04 8F 20 44 26 52 20 41 52 45 20 |)...... D&R ARE |
00000190: 55 53 45 44 20 46 4F 52 20 50 4F 53 49 54 49 4F |USED FOR POSITIO|
000001A0: 4E 49 4E 47 20 43 55 52 53 4F 52 20 49 4E 20 54 |NING CURSOR IN T|
000001B0: 41 42 4C 45 00 D5 05 C4 04 83 20 33 2C 39 2C 38 |ABLE...... 3,9,8|
000001C0: 2C 31 34 2C 31 33 2C 31 39 2C 31 37 2C 32 34 2C |,14,13,19,17,24,|
000001D0: 32 31 2C 32 39 00 E3 05 CE 04 81 20 49 B2 31 20 |21,29...... I.1 |
000001E0: A4 20 35 00 F5 05 D8 04 3A 3A 87 20 44 28 49 29 |. 5.....::. D(I)|
000001F0: 2C 52 28 49 29 00 FD 05 E2 04 82 20 49 00 20 06 |,R(I)...... I. .|
00000200: EC 04 44 24 B2 22 11 11 11 11 11 11 11 11 11 11 |..D$."..........|
00000210: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00000220: 00 51 06 F6 04 42 4C 24 B2 22 20 20 20 20 20 20 |.Q...BL$." |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000250: 22 00 65 06 FB 04 4C 24 B2 22 9D 9D 9D 9D 9D 9D |".e...L$."......|
00000260: 9D 9D 9D 9D 22 00 79 06 00 05 96 20 A5 52 28 58 |....".y.... .R(X|
00000270: 29 B2 B5 28 58 AA 2E 35 29 00 88 06 05 05 97 20 |)..(X..5)...... |
00000280: 35 39 34 36 38 2C 31 34 00 8E 06 0A 05 8E 00 A4 |59468,14........|
00000290: 06 78 05 8F 2D 2D 2D 2D 47 45 54 20 53 45 45 44 |.x..----GET SEED|
000002A0: 2D 2D 2D 2D 00 CC 06 7D 05 99 22 93 20 20 12 20 |----...}..". . |
000002B0: 43 20 48 20 49 20 43 20 4B 20 20 20 52 20 45 20 |C H I C K R E |
000002C0: 53 20 55 20 4C 20 54 20 53 20 20 22 00 FB 06 7F |S U L T S "....|
000002D0: 05 99 22 11 55 D3 C5 A0 D4 C8 C9 D3 A0 D0 D2 CF |..".U...........|
000002E0: C7 D2 C1 CD A0 D4 CF A0 D4 C5 D3 D4 A0 D4 C8 C5 |................|
000002F0: A0 D2 C5 D3 D5 CC D4 D3 22 20 20 00 32 07 80 05 |........" .2...|
00000300: 99 22 20 20 CF C6 20 C3 C8 C9 C3 CB A0 C5 D8 D0 |." .. .........|
00000310: C5 D2 C9 CD C5 CE D4 A0 C1 CE C4 A0 C3 CF CD D0 |................|
00000320: D5 D4 C5 A0 D4 CF D4 C1 CC A0 20 20 C3 CF D3 D4 |.......... ....|
00000330: D3 2E 00 5F 07 82 05 99 22 11 57 C8 C1 D4 A0 C9 |..._....".W.....|
00000340: D3 A0 D4 C8 C5 A0 33 2D C4 C9 C7 C9 D4 A0 D3 C5 |......3-........|
00000350: C5 C4 A0 CE D5 CD C2 C5 D2 A0 D4 C8 C1 D4 22 00 |..............".|
00000360: 85 07 96 05 99 22 20 20 D9 CF D5 A0 C8 C1 D6 C5 |....." ........|
00000370: A0 C2 C5 C5 CE A0 D5 D3 C9 CE C7 A0 C6 CF D2 A0 |................|
00000380: D4 C8 C9 D3 A0 00 9C 07 A0 05 99 22 20 20 C5 D8 |..........." ..|
00000390: D0 C5 D2 C9 CD C5 CE D4 3F 20 22 3B 00 A7 07 AA |........? ";....|
000003A0: 05 8D 20 38 34 30 30 00 B9 07 B4 05 53 45 45 44 |.. 8400.....SEED|
000003B0: B2 B5 28 C5 28 42 24 29 29 00 FD 07 BE 05 8B 20 |..(.(B$))...... |
000003C0: 53 45 45 44 B3 39 39 20 B0 20 53 45 45 44 B1 31 |SEED.99 . SEED.1|
000003D0: 30 30 30 20 A7 20 99 22 49 D4 A0 CD D5 D3 D4 A0 |000 . ."I.......|
000003E0: C2 C5 A0 C1 A0 33 2D C4 C9 C7 C9 D4 A0 CE D5 CD |.....3-.........|
000003F0: C2 C5 D2 2E 22 3B 3A 89 20 31 34 35 30 00 3A 08 |....";:. 1450.:.|
00000400: D2 05 99 22 11 48 CF D7 A0 CD C1 CE D9 A0 D9 C5 |...".H..........|
00000410: C1 D2 D3 A0 D7 CF D2 D4 C8 A0 CF C6 A0 C5 D8 D0 |................|
00000420: C5 D2 C9 CD C5 CE D4 D3 A0 C4 C9 C4 A0 A0 A0 A0 |................|
00000430: D9 CF D5 A0 C4 CF 3F 20 22 3B 00 45 08 E6 05 8D |......? ";.E....|
00000440: 20 38 34 30 30 00 5A 08 F0 05 59 45 41 52 53 20 | 8400.Z...YEARS |
00000450: B2 20 B5 28 C5 28 42 24 29 29 00 9A 08 FA 05 8B |. .(.(B$))......|
00000460: 20 59 45 41 52 53 B3 31 20 B0 20 59 45 41 52 53 | YEARS.1 . YEARS|
00000470: B1 35 20 A7 20 99 22 54 C8 C9 D3 A0 CD D5 D3 D4 |.5 . ."T........|
00000480: A0 C2 C5 A0 C6 D2 CF CD A0 31 20 D4 CF A0 35 3A |.........1 ...5:|
00000490: 20 22 3B 3A 89 20 31 35 31 30 00 A5 08 0E 06 8D | ";:. 1510......|
000004A0: 20 32 30 30 30 00 AB 08 36 06 8E 00 BB 08 D0 07 | 2000...6.......|
000004B0: 8F 2D 2D 52 41 4E 44 4F 4D 2D 2D 00 CB 08 DA 07 |.--RANDOM--.....|
000004C0: 55 30 B2 BB 28 AB 53 45 45 44 29 00 D7 08 E4 07 |U0..(.SEED).....|
000004D0: 55 30 B2 BB 28 31 29 00 E9 08 EE 07 57 48 B2 35 |U0..(1).....WH.5|
000004E0: 30 AA 31 30 AC BB 28 31 29 00 0B 09 F8 07 8B 20 |0.10..(1)...... |
000004F0: 55 30 B3 2E 35 20 A7 20 57 48 B2 57 48 AA 31 30 |U0..5 . WH.WH.10|
00000500: 3A 43 4F B2 57 48 AB 31 30 2E 35 00 25 09 02 08 |:CO.WH.10.5.%...|
00000510: 8B 20 55 30 B1 B2 2E 35 20 A7 20 43 4F B2 57 48 |. U0...5 . CO.WH|
00000520: AA 31 30 2E 35 00 39 09 0C 08 58 30 B2 31 35 30 |.10.5.9...X0.150|
00000530: AC 28 31 AA BB 28 31 29 29 00 49 09 16 08 5A 30 |.(1..(1)).I...Z0|
00000540: B2 39 AA 35 AC BB 28 31 29 00 61 09 20 08 8F 20 |.9.5..(1).a. .. |
00000550: 55 30 20 49 53 20 52 41 4E 44 4F 4D 20 53 45 45 |U0 IS RANDOM SEE|
00000560: 44 00 8A 09 2A 08 8F 20 57 48 20 49 53 20 49 4E |D...*.. WH IS IN|
00000570: 43 52 45 41 53 45 20 49 4E 20 59 49 45 4C 44 20 |CREASE IN YIELD |
00000580: 46 52 4F 4D 20 57 48 45 41 54 00 B2 09 34 08 8F |FROM WHEAT...4..|
00000590: 20 43 4F 20 49 53 20 49 4E 43 52 45 41 53 45 20 | CO IS INCREASE |
000005A0: 49 4E 20 59 49 45 4C 44 20 46 52 4F 4D 20 43 4F |IN YIELD FROM CO|
000005B0: 52 4E 00 D6 09 3E 08 8F 20 58 30 20 49 53 20 4F |RN...>.. X0 IS O|
000005C0: 50 54 49 4D 55 4D 20 4C 45 56 45 4C 20 46 4F 52 |PTIMUM LEVEL FOR|
000005D0: 20 57 48 45 41 54 00 F5 09 48 08 8F 20 5A 30 5E | WHEAT...H.. Z0^|
000005E0: 32 20 49 53 20 4F 50 54 49 4D 55 4D 20 46 4F 52 |2 IS OPTIMUM FOR|
000005F0: 20 43 4F 52 4E 00 16 0A 52 08 8F 20 55 30 20 3E | CORN...R.. U0 >|
00000600: 3D 2E 35 20 4D 45 41 4E 53 20 43 4F 52 4E 20 49 |=.5 MEANS CORN I|
00000610: 53 20 42 45 53 54 00 1C 0A 70 08 8E 00 35 0A B8 |S BEST...p...5..|
00000620: 0B 8F 2D 2D 2D 2D 2D 44 52 41 57 20 43 48 41 52 |..-----DRAW CHAR|
00000630: 54 2D 2D 2D 2D 00 61 0A BA 0B 4C 31 24 B2 C8 28 |T----.a...L1$..(|
00000640: 22 20 31 20 20 DD 20 32 20 20 DD 20 33 20 20 DD |" 1 . 2 . 3 .|
00000650: 20 34 20 20 DD 20 35 20 20 DD 22 2C 59 45 AC 35 | 4 . 5 .",YE.5|
00000660: 29 00 8D 0A BC 0B 4C 32 24 B2 C8 28 22 C0 C0 C0 |).....L2$..("...|
00000670: C0 DB C0 C0 C0 C0 DB C0 C0 C0 C0 DB C0 C0 C0 C0 |................|
00000680: DB C0 C0 C0 C0 DB 22 2C 59 45 AC 35 29 00 B9 0A |......",YE.5)...|
00000690: BE 0B 4C 33 24 B2 C8 28 22 A0 20 A0 A0 DD 20 A0 |..L3$..(". ... .|
000006A0: A0 A0 DD 20 A0 A0 A0 DD A0 20 A0 A0 DD 20 A0 A0 |... ..... ... ..|
000006B0: A0 DD 22 2C 59 45 AC 35 29 00 C9 0A C0 0B 4C 34 |..",YE.5).....L4|
000006C0: 24 B2 22 C0 C0 C0 C0 C0 22 00 F3 0A C2 0B 99 22 |$."....."......"|
000006D0: 93 22 A3 35 29 22 12 20 43 20 48 20 49 20 43 20 |.".5)". C H I C |
000006E0: 4B 20 20 20 52 20 45 20 53 20 55 20 4C 20 54 20 |K R E S U L T |
000006F0: 53 20 22 00 0C 0B D6 0B 99 22 20 59 C5 C1 D2 20 |S "......" Y... |
00000700: 20 20 DD 22 4C 31 24 22 D4 D2 D5 C5 00 24 0B E0 | ."L1$".....$..|
00000710: 0B 99 22 C0 C0 C0 C0 C0 C0 C0 C0 DB 22 4C 32 24 |.."........."L2$|
00000720: 3B 4C 34 24 00 38 0B EA 0B 99 22 42 C5 D3 D4 20 |;L4$.8...."B... |
00000730: 20 20 20 DD 22 4C 33 24 00 4C 0B F4 0B 99 22 4C | ."L3$.L...."L|
00000740: C5 D6 C5 CC 20 20 20 DD 22 4C 33 24 00 60 0B FE |.... ."L3$.`..|
00000750: 0B 99 22 CF C6 A0 43 D5 20 20 20 DD 22 4C 33 24 |.."...C. ."L3$|
00000760: 00 74 0B 08 0C 99 22 D7 2F 20 C3 CF D2 CE 20 DD |.t...."./ .... .|
00000770: 22 4C 33 24 00 8C 0B 12 0C 99 22 C0 C0 C0 C0 C0 |"L3$......".....|
00000780: C0 C0 C0 DB 22 4C 32 24 3B 4C 34 24 00 A0 0B 14 |...."L2$;L4$....|
00000790: 0C 99 22 42 C5 D3 D4 20 20 20 20 DD 22 4C 33 24 |.."B... ."L3$|
000007A0: 00 B4 0B 16 0C 99 22 4C C5 D6 C5 CC 20 20 20 DD |......"L.... .|
000007B0: 22 4C 33 24 00 C8 0B 18 0C 99 22 CF C6 A0 43 D5 |"L3$......"...C.|
000007C0: 20 20 20 DD 22 4C 33 24 00 DC 0B 1A 0C 99 22 D7 | ."L3$......".|
000007D0: 2F A0 D7 C8 C5 C1 D4 DD 22 4C 33 24 00 F4 0B 1C |/......."L3$....|
000007E0: 0C 99 22 C0 C0 C0 C0 C0 C0 C0 C0 DB 22 4C 32 24 |.."........."L2$|
000007F0: 3B 4C 34 24 00 08 0C 26 0C 99 22 49 CE C3 D2 C5 |;L4$...&.."I....|
00000800: C1 D3 C5 DD 22 4C 33 24 00 1C 0C 28 0C 99 22 C9 |...."L3$...(..".|
00000810: CE A0 D9 C9 C5 CC C4 DD 22 4C 33 24 00 30 0C 2A |........"L3$.0.*|
00000820: 0C 99 22 D7 2F 20 C3 CF D2 CE A0 DD 22 4C 33 24 |.."./ ......"L3$|
00000830: 00 48 0C 2C 0C 99 22 C0 C0 C0 C0 C0 C0 C0 C0 DB |.H.,..".........|
00000840: 22 4C 32 24 3B 4C 34 24 00 5C 0C 2E 0C 99 22 49 |"L2$;L4$.\...."I|
00000850: CE C3 D2 C5 C1 D3 C5 DD 22 4C 33 24 00 70 0C 30 |........"L3$.p.0|
00000860: 0C 99 22 C9 CE A0 D9 C9 C5 CC C4 DD 22 4C 33 24 |.."........."L3$|
00000870: 00 84 0C 32 0C 99 22 D7 2F 20 D7 C8 C5 C1 D4 DD |...2.."./ ......|
00000880: 22 4C 33 24 00 9C 0C 34 0C 99 22 C0 C0 C0 C0 C0 |"L3$...4..".....|
00000890: C0 C0 C0 DB 22 4C 32 24 3B 4C 34 24 00 B0 0C 36 |...."L2$;L4$...6|
000008A0: 0C 99 22 44 C9 C5 D4 A0 20 20 20 DD 22 4C 33 24 |.."D.... ."L3$|
000008B0: 00 C4 0C 38 0C 99 22 CD CF D3 D4 20 20 20 20 DD |...8..".... .|
000008C0: 22 4C 33 24 00 D9 0C 3A 0C 99 22 C8 C5 CC D0 C5 |"L3$...:..".....|
000008D0: C4 20 20 DD 22 4C 33 24 3B 00 DF 0C 76 0C 8E 00 |. ."L3$;...v...|
000008E0: FA 0C 80 0C 8F 2D 2D 2D 2D 54 48 45 49 52 20 52 |.....----THEIR R|
000008F0: 45 53 55 4C 54 53 2D 2D 2D 2D 00 28 0D 8A 0C 99 |ESULTS----.(....|
00000900: 22 11 11 49 CE A0 C1 A0 CD CF CD C5 CE D4 A0 49 |"..I...........I|
00000910: 27 CC CC A0 CD C1 CB C5 A0 C1 A0 C3 C8 C1 D2 D4 |'...............|
00000920: A0 C6 CF D2 A0 D9 CF D5 00 56 0D 94 0C 99 22 A0 |.........V....".|
00000930: A0 D4 CF A0 C6 C9 CC CC A0 C9 CE A0 D7 C9 D4 C8 |................|
00000940: A0 D9 CF D5 D2 A0 D2 C5 D3 D5 CC D4 D3 A0 C6 CF |................|
00000950: D2 A0 C5 C1 C3 C8 00 64 0D 9E 0C 99 22 A0 A0 D9 |.......d...."...|
00000960: C5 C1 D2 2E 00 91 0D A8 0C 99 22 11 54 C8 C9 D3 |..........".T...|
00000970: A0 C3 C8 C1 D2 D4 A0 C9 D3 A0 C1 CC CD CF D3 D4 |................|
00000980: A0 C9 C4 C5 CE D4 C9 C3 C1 CC A0 D4 CF A0 D4 C8 |................|
00000990: C5 00 D1 0D B2 0C 99 22 A0 A0 CF CE C5 A0 D9 CF |......."........|
000009A0: D5 A0 C8 C1 D6 C5 A0 C2 C5 C5 CE A0 C6 C9 CC CC |................|
000009B0: C9 CE C7 A0 CF D5 D4 A0 C4 D5 D2 C9 CE C7 A0 A0 |................|
000009C0: A0 A0 D4 C8 C5 A0 C5 D8 D0 C5 D2 C9 CD C5 CE D4 |................|
000009D0: 2E 00 13 0E BC 0C 99 22 11 59 CF D5 D2 A0 CE D5 |.......".Y......|
000009E0: CD C2 C5 D2 D3 A0 D3 C8 CF D5 CC C4 A0 C2 C5 A0 |................|
000009F0: D2 CF D5 CE C4 C5 C4 A0 D4 CF A0 D4 C8 C5 A0 A0 |................|
00000A00: A0 A0 A0 CE C5 C1 D2 C5 D3 D4 A0 C9 CE D4 C5 C7 |................|
00000A10: C5 D2 2E 00 51 0E C6 0C 99 22 11 49 C6 A0 D9 CF |....Q....".I....|
00000A20: D5 A0 CD C1 CB C5 A0 CD C9 D3 D4 C1 CB C5 D3 2C |...............,|
00000A30: 20 D9 CF D5 A0 C3 C1 CE A0 C3 CF D2 D2 C5 C3 D4 | ...............|
00000A40: A0 A0 A0 A0 A0 D4 C8 C5 CD A0 C1 D4 A0 C5 CE C4 |................|
00000A50: 2E 00 60 0E D0 0C 99 3A 99 3A 8D 20 38 36 30 30 |..`....:.:. 8600|
00000A60: 00 78 0E DA 0C 8D 20 33 30 30 30 3A 8F 20 44 52 |.x.... 3000:. DR|
00000A70: 41 57 20 43 48 41 52 54 00 91 0E E4 0C 8D 20 34 |AW CHART...... 4|
00000A80: 30 30 30 3A 8F 20 47 45 54 20 52 45 53 55 4C 54 |000:. GET RESULT|
00000A90: 53 00 97 0E EE 0C 8E 00 B9 0E 48 0D 8F 2D 2D 2D |S.........H..---|
00000AA0: 45 52 52 4F 52 53 20 26 20 43 4F 52 52 45 43 54 |ERRORS & CORRECT|
00000AB0: 20 56 41 4C 55 45 53 2D 2D 00 C7 0E 52 0D 81 20 | VALUES--...R.. |
00000AC0: 51 B2 31 20 A4 20 35 00 D8 0E 5C 0D 3A 3A 81 20 |Q.1 . 5...\.::. |
00000AD0: 59 B2 31 20 A4 20 59 45 00 FD 0E 66 0D 3A 3A 3A |Y.1 . YE...f.:::|
00000AE0: 3A 99 22 13 22 3A 99 22 13 22 C8 28 44 24 2C 44 |:.".":.".".(D$,D|
00000AF0: 28 51 29 AA 31 29 A3 52 28 59 29 29 3B 00 29 0F |(Q).1).R(Y));.).|
00000B00: 7A 0D 8B 20 51 B2 31 20 A7 20 45 52 52 B2 28 52 |z.. Q.1 . ERR.(R|
00000B10: 45 28 59 2C 31 29 AB A5 52 28 5A 30 AE 32 29 29 |E(Y,1)..R(Z0.2))|
00000B20: AC 31 30 30 AD 5A 30 AE 32 00 51 0F 7C 0D 8B 20 |.100.Z0.2.Q.|.. |
00000B30: 51 B2 32 20 A7 20 45 52 52 B2 28 52 45 28 59 2C |Q.2 . ERR.(RE(Y,|
00000B40: 32 29 AB A5 52 28 58 30 29 29 AC 31 30 30 AD 58 |2)..R(X0)).100.X|
00000B50: 30 00 79 0F 7E 0D 8B 20 51 B2 33 20 A7 20 45 52 |0.y.~.. Q.3 . ER|
00000B60: 52 B2 28 52 45 28 59 2C 33 29 AB A5 52 28 43 4F |R.(RE(Y,3)..R(CO|
00000B70: 29 29 AC 31 30 30 AD 43 4F 00 A1 0F 80 0D 8B 20 |)).100.CO...... |
00000B80: 51 B2 34 20 A7 20 45 52 52 B2 28 52 45 28 59 2C |Q.4 . ERR.(RE(Y,|
00000B90: 34 29 AB A5 52 28 57 48 29 29 AC 31 30 30 AD 57 |4)..R(WH)).100.W|
00000BA0: 48 00 B4 0F 84 0D 8B 20 51 B3 35 20 A7 20 8D 20 |H...... Q.5 . . |
00000BB0: 35 36 30 30 00 C7 0F 88 0D 8B 20 51 B2 35 20 A7 |5600...... Q.5 .|
00000BC0: 20 8D 20 35 35 30 30 00 D1 0F 8E 0D 3A 3A 82 20 | . 5500.....::. |
00000BD0: 59 00 DD 0F 93 0D 99 22 1D 91 91 22 3B 00 F3 0F |Y......"...";...|
00000BE0: 98 0D 8B 20 51 B2 31 20 A7 20 99 A5 52 28 5A 30 |... Q.1 . ..R(Z0|
00000BF0: AE 32 29 00 07 10 9A 0D 8B 20 51 B2 32 20 A7 20 |.2)...... Q.2 . |
00000C00: 99 A5 52 28 58 30 29 00 1B 10 9C 0D 8B 20 51 B2 |..R(X0)...... Q.|
00000C10: 33 20 A7 20 99 A5 52 28 43 4F 29 00 2F 10 9E 0D |3 . ..R(CO)./...|
00000C20: 8B 20 51 B2 34 20 A7 20 99 A5 52 28 57 48 29 00 |. Q.4 . ..R(WH).|
00000C30: 42 10 A0 0D 8B 20 51 B2 35 20 A7 20 8D 20 36 35 |B.... Q.5 . . 65|
00000C40: 30 30 00 4A 10 AC 0D 82 20 51 00 8A 10 B6 0D 99 |00.J.... Q......|
00000C50: 22 13 22 3A 99 22 13 22 C8 28 44 24 2C 32 34 29 |".":.".".(D$,24)|
00000C60: 22 12 50 CC C5 C1 D3 C5 A0 C3 CF D0 D9 A0 D4 C8 |".P.............|
00000C70: C5 D3 C5 A0 CF CE D4 CF A0 D9 CF D5 D2 A0 CC C1 |................|
00000C80: C2 A0 D3 C8 C5 C5 D4 2E 22 3B 00 95 10 CA 0D 8D |........";......|
00000C90: 20 38 30 30 30 00 9B 10 D4 0D 8E 00 AF 10 10 0E | 8000...........|
00000CA0: 8F 2D 2D 2D 2D 2D 43 4F 53 54 53 2D 2D 2D 2D 00 |.-----COSTS----.|
00000CB0: B9 10 1A 0E 43 53 54 B2 30 00 D4 10 24 0E 99 22 |....CST.0...$.."|
00000CC0: 93 22 A3 31 30 29 22 12 20 43 20 4F 20 53 20 54 |.".10)". C O S T|
00000CD0: 20 53 20 22 00 03 11 2E 0E 99 22 11 46 CF D2 22 | S "......".F.."|
00000CE0: 59 45 22 D9 C5 C1 D2 D3 A0 CF C6 A0 C5 D8 D0 C5 |YE".............|
00000CF0: D2 C9 CD C5 CE D4 D3 2E 2E 2E 22 A3 33 33 29 22 |..........".33)"|
00000D00: 24 22 3B 00 19 11 38 0E 8B 20 59 45 B3 33 20 A7 |$";...8.. YE.3 .|
00000D10: 20 99 22 20 20 20 20 30 22 00 41 11 42 0E 8B 20 | ." 0".A.B.. |
00000D20: 59 45 B1 32 20 A7 20 43 B2 28 59 45 AB 32 29 AC |YE.2 . C.(YE.2).|
00000D30: 31 32 35 30 3A 99 43 3A 43 53 54 B2 43 53 54 AA |1250:.C:CST.CST.|
00000D40: 43 00 68 11 4C 0E 99 22 11 45 D2 D2 CF D2 A0 CF |C.h.L..".E......|
00000D50: CE A0 D5 D3 C9 CE C7 A0 C3 CF D0 D0 C5 D2 A0 D7 |................|
00000D60: 2F 20 C3 CF D2 CE 22 3B 00 91 11 56 0E 43 24 B2 |/ ....";...V.C$.|
00000D70: C4 28 B6 28 52 45 28 59 45 2C 31 29 AB A5 52 28 |.(.(RE(YE,1)..R(|
00000D80: 5A 30 AE 32 29 29 AC 32 30 29 3A 8D 20 33 38 30 |Z0.2)).20):. 380|
00000D90: 30 00 B8 11 60 0E 99 22 11 45 D2 D2 CF D2 A0 CF |0...`..".E......|
00000DA0: CE A0 D5 D3 C9 CE C7 A0 D7 C8 C5 C1 D4 A0 D7 2F |.............../|
00000DB0: 20 D7 C8 C5 C1 D4 22 3B 00 DF 11 6A 0E 43 24 B2 | .....";...j.C$.|
00000DC0: C4 28 B6 28 52 45 28 59 45 2C 32 29 AB A5 52 28 |.(.(RE(YE,2)..R(|
00000DD0: 58 30 29 29 AC 32 30 29 3A 8D 20 33 38 30 30 00 |X0)).20):. 3800.|
00000DE0: 06 12 74 0E 99 22 11 45 D2 D2 CF D2 A0 CF CE A0 |..t..".E........|
00000DF0: C9 CD D0 D2 CF D6 C5 CD C5 CE D4 A0 C6 CF D2 A0 |................|
00000E00: C3 CF D2 CE 22 3B 00 2D 12 7E 0E 43 24 B2 C4 28 |....";.-.~.C$..(|
00000E10: B6 28 52 45 28 59 45 2C 33 29 AB A5 52 28 43 4F |.(RE(YE,3)..R(CO|
00000E20: 29 29 AC 34 30 29 3A 8D 20 33 38 30 30 00 55 12 |)).40):. 3800.U.|
00000E30: 88 0E 99 22 11 45 D2 D2 CF D2 A0 CF CE A0 C9 CD |...".E..........|
00000E40: D0 D2 CF D6 C5 CD C5 CE D4 A0 C6 CF D2 A0 D7 C8 |................|
00000E50: C5 C1 D4 22 3B 00 7C 12 92 0E 43 24 B2 C4 28 B6 |...";.|...C$..(.|
00000E60: 28 52 45 28 59 45 2C 34 29 AB A5 52 28 57 48 29 |(RE(YE,4)..R(WH)|
00000E70: 29 AC 34 30 29 3A 8D 20 33 38 30 30 00 A3 12 9C |).40):. 3800....|
00000E80: 0E 99 22 11 45 D2 D2 CF D2 A0 CF CE A0 CD CF D3 |..".E...........|
00000E90: D4 A0 C2 C5 CE C5 C6 C9 D4 C5 C4 A0 C4 C9 C5 D4 |................|
00000EA0: 3A 22 3B 00 B7 12 A6 0E 43 24 B2 C4 28 43 42 29 |:";.....C$..(CB)|
00000EB0: 3A 8D 20 33 38 30 30 00 DD 12 B0 0E 99 22 11 12 |:. 3800......"..|
00000EC0: 54 4F 54 41 4C 20 43 4F 53 54 22 3B 3A 43 24 B2 |TOTAL COST";:C$.|
00000ED0: C4 28 43 53 54 29 3A 8D 20 33 38 30 30 00 E3 12 |.(CST):. 3800...|
00000EE0: BA 0E 8E 00 FB 12 D8 0E 8F 2D 2D 2D 50 52 49 4E |.........---PRIN|
00000EF0: 54 20 43 4F 53 54 2D 2D 2D 2D 2D 00 09 13 E2 0E |T COST-----.....|
00000F00: 99 A3 33 33 29 22 24 22 3B 00 26 13 EC 0E 8B 20 |..33)"$";.&.... |
00000F10: C3 28 43 24 29 B3 B1 35 20 A7 20 99 A6 35 AB C3 |.(C$)..5 . ..5..|
00000F20: 28 43 24 29 29 3B 00 2E 13 F6 0E 99 43 24 00 40 |(C$));......C$.@|
00000F30: 13 00 0F 43 53 54 B2 43 53 54 AA C5 28 43 24 29 |...CST.CST..(C$)|
00000F40: 00 46 13 0A 0F 8E 00 5E 13 A0 0F 8F 2D 2D 2D 47 |.F.....^....---G|
00000F50: 45 54 20 52 45 53 55 4C 54 53 2D 2D 2D 2D 00 70 |ET RESULTS----.p|
00000F60: 13 AA 0F 81 20 59 B2 31 20 A4 20 59 45 41 52 53 |.... Y.1 . YEARS|
00000F70: 00 80 13 B4 0F 3A 3A 81 20 51 B2 31 20 A4 20 35 |.....::. Q.1 . 5|
00000F80: 00 A0 13 BE 0F 3A 3A 3A 3A 99 3A 99 22 13 22 C8 |.....::::.:.".".|
00000F90: 28 44 24 2C 44 28 51 29 29 A3 52 28 59 29 29 3B |(D$,D(Q)).R(Y));|
00000FA0: 00 C1 13 C8 0F 3A 3A 3A 3A 8B 20 51 B3 35 20 A7 |.....::::. Q.5 .|
00000FB0: 20 8D 20 38 38 30 30 3A 52 45 28 59 2C 51 29 B2 | . 8800:RE(Y,Q).|
00000FC0: 42 00 E2 13 DC 0F 3A 3A 3A 3A 8B 20 51 B2 35 20 |B.....::::. Q.5 |
00000FD0: A7 20 8D 20 39 30 30 30 3A 52 45 28 59 2C 35 29 |. . 9000:RE(Y,5)|
00000FE0: B2 42 00 EC 13 F0 0F 3A 3A 82 20 51 00 F4 13 FA |.B.....::. Q....|
00000FF0: 0F 82 20 59 00 1F 14 04 10 99 22 13 22 C8 28 44 |.. Y......".".(D|
00001000: 24 2C 32 34 29 42 4C 24 22 91 22 3A 99 22 12 41 |$,24)BL$".":.".A|
00001010: CE D9 A0 C3 C8 C1 CE C7 C5 D3 3F 92 20 22 3B 00 |..........?. ";.|
00001020: 2A 14 0E 10 8D 20 38 30 30 30 00 49 14 18 10 8B |*.... 8000.I....|
00001030: 20 41 24 B3 B1 22 59 22 20 AF 20 41 24 B3 B1 22 | A$.."Y" . A$.."|
00001040: 4E 22 20 A7 20 34 31 31 30 00 72 14 22 10 8B 20 |N" . 4110.r.".. |
00001050: 41 24 B2 22 59 22 20 A7 20 8D 20 34 32 30 30 3A |A$."Y" . . 4200:|
00001060: 89 34 31 30 30 3A 8F 20 47 45 54 20 43 48 41 4E |.4100:. GET CHAN|
00001070: 47 45 00 78 14 5E 10 8E 00 90 14 68 10 8F 2D 2D |GE.x.^.....h..--|
00001080: 2D 47 45 54 20 43 48 41 4E 47 45 53 2D 2D 2D 2D |-GET CHANGES----|
00001090: 00 B2 14 72 10 99 22 91 22 3A 99 42 4C 24 22 91 |...r..".":.BL$".|
000010A0: 22 3A 99 22 57 C8 C9 C3 C8 A0 D9 C5 C1 D2 3F 20 |":."W.........? |
000010B0: 22 3B 00 D9 14 7C 10 8D 20 38 30 30 30 3A 41 B2 |";...|.. 8000:A.|
000010C0: C5 28 41 24 29 3A 8B 20 41 B3 31 20 B0 20 41 B1 |.(A$):. A.1 . A.|
000010D0: 59 45 20 A7 20 34 32 32 30 00 E8 14 90 10 99 41 |YE . 4220......A|
000010E0: 24 22 91 22 3A 59 B2 41 00 09 15 9A 10 99 42 4C |$".":Y.A......BL|
000010F0: 24 22 91 22 3A 99 22 57 C8 C9 C3 C8 A0 D1 D5 C5 |$".":."W........|
00001100: D3 D4 C9 CF CE 3F 20 22 3B 00 2D 15 A4 10 8D 20 |.....? ";.-.... |
00001110: 38 30 30 30 3A 8B 20 41 24 B3 22 31 22 20 B0 20 |8000:. A$."1" . |
00001120: 41 24 B1 22 35 22 20 A7 20 34 32 36 30 00 39 15 |A$."5" . 4260.9.|
00001130: B8 10 51 B2 C5 28 41 24 29 00 61 15 C2 10 99 22 |..Q..(A$).a...."|
00001140: 13 22 3A 99 22 13 22 C8 28 44 24 2C 44 28 51 29 |.":.".".(D$,D(Q)|
00001150: 29 A3 52 28 59 29 29 3B 22 20 20 20 9D 9D 9D 22 |).R(Y));" ..."|
00001160: 3B 00 7E 15 D6 10 8B 20 51 B3 35 20 A7 20 8D 20 |;.~.... Q.5 . . |
00001170: 38 38 30 30 3A 52 45 28 59 2C 51 29 B2 42 00 9B |8800:RE(Y,Q).B..|
00001180: 15 E0 10 8B 20 51 B2 35 20 A7 20 8D 20 39 30 30 |.... Q.5 . . 900|
00001190: 30 3A 52 45 28 59 2C 35 29 B2 42 00 A1 15 EA 10 |0:RE(Y,5).B.....|
000011A0: 8E 00 B6 15 7C 15 8F 2D 2D 2D 45 52 52 20 4F 4E |....|..---ERR ON|
000011B0: 20 51 35 2D 2D 2D 00 E1 15 86 15 8B 20 55 30 B1 | Q5---...... U0.|
000011C0: B2 2E 35 20 AF 20 52 45 28 59 2C 35 29 B2 31 20 |..5 . RE(Y,5).1 |
000011D0: A7 20 99 22 59 C5 D3 20 22 3B 3A 89 20 35 35 39 |. ."Y.. ";:. 559|
000011E0: 30 00 09 16 90 15 8B 20 55 30 B1 B2 2E 35 20 A7 |0...... U0...5 .|
000011F0: 20 99 22 4E CF D0 C5 22 3B 3A 43 53 54 B2 31 30 | ."N...";:CST.10|
00001200: 30 30 3A 89 20 35 35 39 30 00 2B 16 9A 15 8B 20 |00:. 5590.+.... |
00001210: 52 45 28 59 2C 35 29 B2 32 20 A7 20 99 22 59 C5 |RE(Y,5).2 . ."Y.|
00001220: D3 20 22 3B 3A 89 20 35 35 39 30 00 40 16 A4 15 |. ";:. 5590.@...|
00001230: 99 22 4E CF D0 C5 22 3B 3A 43 42 B2 31 30 30 30 |."N...";:CB.1000|
00001240: 00 46 16 D6 15 8E 00 5E 16 E0 15 8F 2D 2D 2D 50 |.F.....^....---P|
00001250: 52 49 4E 54 20 45 52 52 4F 52 2D 2D 2D 2D 00 79 |RINT ERROR----.y|
00001260: 16 EA 15 45 24 B2 C4 28 A5 52 28 45 52 52 29 29 |...E$..(.R(ERR))|
00001270: 3A 4C 45 B2 C3 28 45 24 29 00 93 16 F4 15 99 45 |:LE..(E$)......E|
00001280: 24 22 11 22 C8 28 4C 24 2C 4C 45 29 22 25 CF C6 |$".".(L$,LE)"%..|
00001290: C6 22 3B 00 99 16 FE 15 8E 00 AC 16 64 19 8F 2D |.";.........d..-|
000012A0: 2D 2D 54 52 55 45 20 51 35 2D 2D 2D 00 B6 16 69 |--TRUE Q5---...i|
000012B0: 19 99 22 11 22 3B 00 CE 16 6E 19 8B 20 55 30 B1 |..".";...n.. U0.|
000012C0: B2 2E 35 20 A7 20 99 22 43 CF D2 CE 22 3B 00 E6 |..5 . ."C...";..|
000012D0: 16 78 19 8B 20 55 30 B3 2E 35 20 A7 20 99 22 57 |.x.. U0..5 . ."W|
000012E0: C8 C5 C1 D4 22 3B 00 EC 16 82 19 8E 00 08 17 40 |....";.........@|
000012F0: 1F 8F 2D 2D 2D 47 45 54 20 53 49 4E 47 4C 45 20 |..---GET SINGLE |
00001300: 43 48 41 52 2D 2D 2D 2D 00 11 17 4A 1F 54 B2 54 |CHAR----...J.T.T|
00001310: 49 00 2F 17 54 1F 8B 20 54 49 B3 54 AA 33 30 20 |I./.T.. TI.T.30 |
00001320: A7 20 99 22 A6 9D 22 3B 3A 89 20 38 30 35 30 00 |. ."..";:. 8050.|
00001330: 4D 17 5E 1F 8B 20 54 49 B3 54 AA 36 30 20 A7 20 |M.^.. TI.T.60 . |
00001340: 99 22 20 9D 22 3B 3A 89 20 38 30 35 30 00 56 17 |." .";:. 8050.V.|
00001350: 68 1F 54 B2 54 49 00 6E 17 72 1F A1 20 41 24 3A |h.T.TI.n.r.. A$:|
00001360: 8B 20 41 24 B2 22 22 20 A7 20 38 30 32 30 00 7B |. A$."" . 8020.{|
00001370: 17 7C 1F 99 22 20 9D 22 3B 3A 8E 00 93 17 08 20 |.|.." .";:..... |
00001380: 8F 2D 2D 2D 2D 47 45 54 20 53 54 52 49 4E 47 2D |.----GET STRING-|
00001390: 2D 2D 2D 00 9E 17 12 20 46 4C 41 47 B2 30 00 B1 |---.... FLAG.0..|
000013A0: 17 1C 20 8D 20 38 30 30 30 3A 41 B2 C6 28 41 24 |.. . 8000:A..(A$|
000013B0: 29 00 C9 17 26 20 8B 20 41 B2 32 32 32 20 A7 20 |)...& . A.222 . |
000013C0: 46 4C 41 47 20 B2 31 3A 8E 00 E1 17 30 20 8B 42 |FLAG .1:....0 .B|
000013D0: 24 B2 22 22 AF 20 41 B2 32 30 20 A7 20 38 32 32 |$."". A.20 . 822|
000013E0: 30 00 F8 17 3A 20 8B 20 42 24 B2 22 22 20 AF 20 |0...: . B$."" . |
000013F0: 41 B2 31 33 20 A7 20 8E 00 0C 18 44 20 8B 20 41 |A.13 . ....D . A|
00001400: B2 31 33 20 A7 20 99 41 24 3B 3A 8E 00 35 18 4E |.13 . .A$;:..5.N|
00001410: 20 8B 20 41 B2 32 30 20 AF 20 C3 28 42 24 29 B3 | . A.20 . .(B$).|
00001420: 32 20 A7 20 99 41 24 3B 3A 42 24 B2 22 22 3A 89 |2 . .A$;:B$."":.|
00001430: 20 38 32 32 30 00 5F 18 58 20 8B 20 41 B2 32 30 | 8220._.X . A.20|
00001440: 20 A7 20 99 41 24 3B 3A 42 24 B2 C8 28 42 24 2C | . .A$;:B$..(B$,|
00001450: C3 28 42 24 29 AB 31 29 3A 89 20 38 32 32 30 00 |.(B$).1):. 8220.|
00001460: 83 18 62 20 8B 20 41 B3 33 32 20 B0 20 28 41 B1 |..b . A.32 . (A.|
00001470: 31 32 37 20 AF 20 41 B3 31 36 31 29 20 A7 20 38 |127 . A.161) . 8|
00001480: 32 32 30 00 95 18 80 20 99 41 24 3B 3A 42 24 B2 |220.... .A$;:B$.|
00001490: 42 24 AA 41 24 00 A0 18 94 20 89 20 38 32 32 30 |B$.A$.... . 8220|
000014A0: 00 C0 18 D0 20 8F 2D 2D 2D 47 45 54 20 4E 4F 4E |.... .---GET NON|
000014B0: 2D 45 4D 50 54 59 20 53 54 52 49 4E 47 2D 2D 2D |-EMPTY STRING---|
000014C0: 00 D2 18 DA 20 42 24 B2 22 22 3A 97 20 35 32 35 |.... B$."":. 525|
000014D0: 2C 30 00 DD 18 E4 20 8D 20 38 32 30 30 00 F0 18 |,0.... . 8200...|
000014E0: EE 20 8B 20 42 24 B2 22 22 20 A7 20 38 34 32 30 |. . B$."" . 8420|
000014F0: 00 F6 18 F8 20 8E 00 0F 19 98 21 8F 2D 2D 2D 57 |.... .....!.---W|
00001500: 41 49 54 20 46 4F 52 20 4B 45 59 2D 2D 2D 2D 00 |AIT FOR KEY----.|
00001510: 2F 19 A2 21 99 22 50 D5 D3 C8 A0 C1 CE D9 A0 CB |/..!."P.........|
00001520: C5 D9 A0 D4 CF A0 C7 CF A0 CF CE 3A 20 22 3B 00 |...........: ";.|
00001530: 3E 19 AC 21 8D 20 38 30 30 30 3A 99 41 24 00 44 |>..!. 8000:.A$.D|
00001540: 19 B6 21 8E 00 62 19 60 22 8F 2D 2D 47 45 54 20 |..!..b.`".--GET |
00001550: 33 2D 44 49 47 49 54 20 4E 55 4D 42 45 52 2D 2D |3-DIGIT NUMBER--|
00001560: 2D 2D 00 74 19 6A 22 42 24 B2 22 22 3A 97 20 35 |--.t.j"B$."":. 5|
00001570: 32 35 2C 30 00 87 19 74 22 8D 20 38 30 30 30 3A |25,0...t". 8000:|
00001580: 41 B2 C6 28 41 24 29 00 A1 19 7E 22 8B 20 41 B2 |A..(A$)...~". A.|
00001590: 32 30 20 AF 20 42 24 B2 22 22 20 A7 20 38 38 32 |20 . B$."" . 882|
000015A0: 30 00 CD 19 88 22 8B 20 41 B2 32 30 20 AF 20 C3 |0....". A.20 . .|
000015B0: 28 42 24 29 B2 31 20 A7 20 99 22 9D 20 9D 22 3B |(B$).1 . .". .";|
000015C0: 3A 42 24 B2 22 22 3A 89 20 38 38 32 30 00 F9 19 |:B$."":. 8820...|
000015D0: 92 22 8B 20 41 B2 32 30 20 A7 20 99 22 9D 20 9D |.". A.20 . .". .|
000015E0: 22 3B 3A 42 24 B2 C8 28 42 24 2C C3 28 42 24 29 |";:B$..(B$,.(B$)|
000015F0: AB 31 29 3A 89 38 38 32 30 00 14 1A 97 22 8B 20 |.1):.8820....". |
00001600: 41 B2 31 33 20 AF 20 42 24 B3 B1 22 22 20 A7 20 |A.13 . B$.."" . |
00001610: 38 38 39 30 00 2D 1A 9C 22 8B 20 41 B3 34 38 20 |8890.-..". A.48 |
00001620: B0 20 41 B1 35 37 20 A7 20 38 38 32 30 00 3F 1A |. A.57 . 8820.?.|
00001630: A6 22 99 41 24 3B 3A 42 24 B2 42 24 AA 41 24 00 |.".A$;:B$.B$.A$.|
00001640: 54 1A B0 22 8B 20 C3 28 42 24 29 B3 33 20 A7 20 |T..". .(B$).3 . |
00001650: 38 38 32 30 00 62 1A BA 22 42 B2 C5 28 42 24 29 |8820.b.."B..(B$)|
00001660: 3A 8E 00 7B 1A 28 23 8F 2D 2D 2D 2D 47 45 54 20 |:..{.(#.----GET |
00001670: 43 20 4F 52 20 57 2D 2D 2D 2D 2D 00 85 1A 32 23 |C OR W-----...2#|
00001680: 99 22 20 22 3B 00 98 1A 3C 23 97 20 35 32 35 2C |." ";...<#. 525,|
00001690: 30 3A 8D 20 38 30 30 30 00 B5 1A 46 23 8B 20 41 |0:. 8000...F#. A|
000016A0: 24 B2 22 57 22 20 B0 20 41 24 B2 22 43 22 20 A7 |$."W" . A$."C" .|
000016B0: 20 39 30 34 30 00 C9 1A 48 23 3A 3A 99 22 9D 12 | 9040...H#::."..|
000016C0: 43 A0 CF D2 A0 57 92 22 3B 00 EC 1A 4A 23 3A 3A |C....W.";...J#::|
000016D0: 8D 20 39 32 30 30 3A 99 22 9D 9D 9D 9D 9D 9D 20 |. 9200:."...... |
000016E0: 20 20 20 DD 20 9D 9D 9D 9D 9D 22 3B 00 F9 1A 4C | . .....";...L|
000016F0: 23 3A 3A 89 20 39 30 32 30 00 02 1B 50 23 99 41 |#::. 9020...P#.A|
00001700: 24 3B 00 15 1B 5A 23 8B 20 41 24 B2 22 43 22 20 |$;...Z#. A$."C" |
00001710: A7 20 42 B2 31 00 28 1B 64 23 8B 20 41 24 B2 22 |. B.1.(.d#. A$."|
00001720: 57 22 20 A7 20 42 B2 32 00 2E 1B 6E 23 8E 00 40 |W" . B.2...n#..@|
00001730: 1B 78 23 99 41 24 3B 3A 42 24 B2 42 24 AA 41 24 |.x#.A$;:B$.B$.A$|
00001740: 00 4B 1B 82 23 89 20 39 30 32 30 00 63 1B F0 23 |.K..#. 9020.c..#|
00001750: 8F 2D 2D 2D 32 2D 53 45 43 20 44 45 4C 41 59 2D |.---2-SEC DELAY-|
00001760: 2D 2D 2D 00 6C 1B FA 23 54 B2 54 49 00 82 1B 04 |---.l..#T.TI....|
00001770: 24 8B 20 54 49 B3 54 AA 31 32 30 20 A7 20 39 32 |$. TI.T.120 . 92|
00001780: 32 30 00 88 1B 0E 24 8E 00 00 00 24 11 |20....$....$. |
..&....---THIS PROGRAM ALLOWS STUDENTS.I
....---TO CHECK THEIR RESULTS FOR.F....-
--THE CHICK EXPERIMENT.....----MAIN ROU
TINE---...... 1200:. INIT...... 1400:. S
EED & YEARS.F.... 3200:. THEIR RESULTS..
.... 3400:. ERRORS & CORRECT...$.. 3600:
. COMPUTE COST.(....:.".BYE! HOPE YOU H
AD A GOOD TIME."...B...G....----INITIALI
ZE-----.D.... RESULTS(5,5),D(5),R(5)....
.. RESULTS(YEAR,QUESTION)...... D&R ARE
USED FOR POSITIONING CURSOR IN TABLE.U.D
.. 3,9,8,14,13,19,17,24,21,29...N.. I.1
. 5...X.::. D(I),R(I)...... I. ...D$."..
.......................".Q...BL$."
".E...L$
."..........".Y.... .R(X)..(X..5)......
59468,14.........X..----GET SEED----.L.}
..". . C H I C K R E S U L T S "...
..".USE THIS PROGRAM TO TEST THE RESULTS
" .2...." OF CHICK EXPERIMENT AND COMP
UTE TOTAL COSTS.._....".WHAT IS THE 3-
DIGIT SEED NUMBER THAT"......" YOU HAVE
BEEN USING FOR THIS ... .." EXPERIMENT
? ";...... 8400.....SEED..(E(B$))......
SEED.99 . SEED.1000 . ."IT MUST BE A 3-D
IGIT NUMBER.";:. 1450.:.R..".HOW MANY YE
ARS WORTH OF EXPERIMENTS DID YOU DO?
";.E.... 8400.Z...YEARS . .(E(B$))......
YEARS.1 . YEARS.5 . ."THIS MUST BE FROM
1 TO 5: ";:. 1510...... 2000...6.....P.
.--RANDOM--.K.Z.U0..(.SEED).W...U0..(1).
....WH.50.10..(1)...... U0..5 . WH.WH.10
:CO.WH.10.5.%.... U0...5 . CO.WH.10.5.9.
..X0.150.(1..(1)).I...Z0.9.5..(1).A. ..
U0 IS RANDOM SEED...*.. WH IS INCREASE I
N YIELD FROM WHEAT...4.. CO IS INCREASE
IN YIELD FROM CORN.V.>.. X0 IS OPTIMUM L
EVEL FOR WHEAT...H.. Z0^2 IS OPTIMUM FOR
CORN...R.. U0 >=.5 MEANS CORN IS BEST..
.P...5....-----DRAW CHART----.A...L1$.H(
" 1 . 2 . 3 . 4 . 5 .",YE.5).....L2
$.H(".........................",YE.5)...
..L3$.H(" . . . . .",YE.5
).I...L4$."....."...B..".".5)". C H I C
K R E S U L T S "...V.." YEAR ."L1$"
TRUE.$...."........."L2$;L4$.8...."BEST
."L3$.L...."LEVEL ."L3$.`...."OF CU
."L3$.T...."W/ CORN ."L3$......".....
...."L2$;L4$. ...."BEST ."L3$......"L
EVEL ."L3$.H...."OF CU ."L3$......"W
/ WHEAT."L3$......"........."L2$;L4$...&
.."INCREASE."L3$...(.."IN YIELD."L3$.0.*
.."W/ CORN ."L3$.H.,.."........."L2$;L4$
.\...."INCREASE."L3$.P.0.."IN YIELD."L3$
...2.."W/ WHEAT."L3$...4.."........."L2$
;L4$...6.."DIET ."L3$.D.8.."MOST .
"L3$.Y.:.."HELPED ."L3$;...V........---
-THEIR RESULTS----.(...."..IN A MOMENT I
'LL MAKE A CHART FOR YOU.V...." TO FILL
IN WITH YOUR RESULTS FOR EACH.D...." Y
EAR.......".THIS CHART IS ALMOST IDENTIC
AL TO THE.Q...." ONE YOU HAVE BEEN FILL
ING OUT DURING THE EXPERIMENT......."
.YOUR NUMBERS SHOULD BE ROUNDED TO THE
NEAREST INTEGER..Q.F..".IF YOU MAKE M
ISTAKES, YOU CAN CORRECT THEM AT END
..`.P..:.:. 8600.X.Z.. 3000:. DRAW CHART
...... 4000:. GET RESULTS.........H..---
ERRORS & CORRECT VALUES--.G.R.. Q.1 . 5.
X.\.::. Y.1 . YE...F.::::.".":."."H(D$,D
(Q).1).R(Y));.).Z.. Q.1 . ERR.(RE(Y,1)..
R(Z0.2)).100.Z0.2.Q.|.. Q.2 . ERR.(RE(Y,
2)..R(X0)).100.X0.Y.~.. Q.3 . ERR.(RE(Y,
3)..R(CO)).100.CO...... Q.4 . ERR.(RE(Y,
4)..R(WH)).100.WH...... Q.5 . . 5600.G..
.. Q.5 . . 5500.Q...::. Y......"...";...
... Q.1 . ..R(Z0.2)...... Q.2 . ..R(X0).
..... Q.3 . ..R(CO)./.... Q.4 . ..R(WH).
B. .. Q.5 . . 6500.J.... Q......".":."."
H(D$,24)".PLEASE COPY THESE ONTO YOUR LA
B SHEET.";...J.. 8000...T........-----CO
STS----.....CST.0.T.$..".".10)". C O S T
S "......".FOR"YE"YEARS OF EXPERIMENTS.
..".33)"$";...8.. YE.3 . ." 0".A.B..
YE.2 . C.(YE.2).1250:.C:CST.CST.C.H.L.."
.ERROR ON USING COPPER W/ CORN";...V.C$.
D(.(RE(YE,1)..R(Z0.2)).20):. 3800...`.."
.ERROR ON USING WHEAT W/ WHEAT";...J.C$.
D(.(RE(YE,2)..R(X0)).20):. 3800...T..".E
RROR ON IMPROVEMENT FOR CORN";.-.~.C$.D(
.(RE(YE,3)..R(CO)).40):. 3800.U....".ERR
OR ON IMPROVEMENT FOR WHEAT";.|...C$.D(.
(RE(YE,4)..R(WH)).40):. 3800......".ERRO
R ON MOST BENEFITED DIET:";.....C$.D(CB)
:. 3800......"..TOTAL COST";:C$.D(CST):.
3800.........X..---PRINT COST-----.....
..33)"$";.&.... C(C$)..5 . ..5.C(C$));..
....C$.@...CST.CST.E(C$).F.....^. ..---G
ET RESULTS----.P.... Y.1 . YEARS.....::.
Q.1 . 5. ...::::.:."."H(D$,D(Q)).R(Y));
.A.H.::::. Q.5 . . 8800:RE(Y,Q).B.....::
::. Q.5 . . 9000:RE(Y,5).B.....::. Q....
.. Y......"."H(D$,24)BL$".":.".ANY CHANG
ES?. ";.*.... 8000.I.... A$.."Y" . A$.."
N" . 4110.R.".. A$."Y" . . 4200:.4100:.
GET CHANGE.X.^.....H..---GET CHANGES----
...R..".":.BL$".":."WHICH YEAR? ";.Y.|..
8000:A.E(A$):. A.1 . A.YE . 4220......A
$".":Y.A......BL$".":."WHICH QUESTION? "
;.-.... 8000:. A$."1" . A$."5" . 4260.9.
..Q.E(A$).A.B..".":."."H(D$,D(Q)).R(Y));
" ...";.~.V.. Q.5 . . 8800:RE(Y,Q).B..
.... Q.5 . . 9000:RE(Y,5).B.........|..-
--ERR ON Q5---...... U0...5 . RE(Y,5).1
. ."YES ";:. 5590...... U0...5 . ."NOPE"
;:CST.1000:. 5590.+.... RE(Y,5).2 . ."YE
S ";:. 5590.@...."NOPE";:CB.1000.F.V...^
....---PRINT ERROR----.Y...E$.D(.R(ERR))
:LE.C(E$)......E$"."H(L$,LE)"%OFF";.....
....D..---TRUE Q5---...I..".";.N.N.. U0.
..5 . ."CORN";...X.. U0..5 . ."WHEAT";..
.......@..---GET SINGLE CHAR----...J.T.T
I./.T.. TI.T.30 . ."..";:. 8050.M.^.. TI
.T.60 . ." .";:. 8050.V.H.T.TI.N.R.. A$:
. A$."" . 8020.{.|.." .";:..... .----GET
STRING----.... FLAG.0.... . 8000:A.F(A$
).I.& . A.222 . FLAG .1:....0 .B$."". A.
20 . 8220...: . B$."" . A.13 . ....D . A
.13 . .A$;:..5.N . A.20 . C(B$).2 . .A$;
:B$."":. 8220._.X . A.20 . .A$;:B$.H(B$,
C(B$).1):. 8220...B . A.32 . (A.127 . A.
161) . 8220.... .A$;:B$.B$.A$. .. . 8220
...P .---GET NON-EMPTY STRING---.R.Z B$.
"":. 525,0.... . 8200.... . B$."" . 8420
.... .....!.---WAIT FOR KEY----./..!."PU
SH ANY KEY TO GO ON: ";.>..!. 8000:.A$.D
..!..B.`".--GET 3-DIGIT NUMBER----.T.J"B
$."":. 525,0...T". 8000:A.F(A$)...~". A.
20 . B$."" . 8820.M..". A.20 . C(B$).1 .
.". .";:B$."":. 8820....". A.20 . .". .
";:B$.H(B$,C(B$).1):.8820....". A.13 . B
$.."" . 8890.-..". A.48 . A.57 . 8820.?.
.".A$;:B$.B$.A$.T..". C(B$).3 . 8820.B..
"B.E(B$):..{.(#.----GET C OR W-----...2#
." ";...<#. 525,0:. 8000...F#. A$."W" .
A$."C" . 9040.I.H#::."..C OR W.";...J#::
. 9200:."...... . .....";...L#::. 902
0...P#.A$;...Z#. A$."C" . B.1.(.D#. A$."
W" . B.2...N#..@.X#.A$;:B$.B$.A$.K..#. 9
020.C..#.---2-SEC DELAY----.L..#T.TI....
$. TI.T.120 . 9220....$....$.
> CLICK IMAGE PREVIEW FOR FULL MODAL