FOOD CALC
FILE INFORMATION
FILENAME(S): FOOD CALC
FILE TYPE(S): PRG
FILE SIZE: 16.3K
FIRST SEEN: 2025-11-30 21:11:04
APPEARS ON: 1 disk(s)
FILE HASH
04b441991ab07073c2eb2f48adc1622c0d4d617a93189d0bafd513e376dd3923
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LS 128 33 S 1 | FOOD CALC | PRG | DuncanTwain | 13 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 1A 40 02 00 44 56 B2 C2 28 31 38 36 29 3A |.@.@..DV..(186):|
00000010: 8B 44 56 B3 38 A7 44 56 B2 38 00 36 40 04 00 FE |.DV.8.DV.8.6@...|
00000020: 25 3A 99 22 13 13 93 0E 0B 22 3A E7 36 2C 31 3A |%:.".....":.6,1:|
00000030: 8D 36 30 30 30 30 00 49 40 06 00 DE 31 2C 31 3A |.60000.I@...1,1:|
00000040: DE 30 2C 31 3A DE 35 2C 31 00 59 40 0A 00 8B 20 |.0,1:.5,1.Y@... |
00000050: 53 4B 20 A7 20 34 31 31 30 00 75 40 0C 00 FE 11 |SK . 4110.u@....|
00000060: 22 4D 4F 56 45 46 4F 4E 54 2E 4F 22 2C 55 28 44 |"MOVEFONT.O",U(D|
00000070: 56 29 2C 42 30 00 96 40 0E 00 FE 11 22 46 4F 4F |V),B0..@...."FOO|
00000080: 44 20 46 4F 4E 54 22 2C 55 28 44 56 29 2C 42 30 |D FONT",U(DV),B0|
00000090: 2C 50 38 31 39 32 00 A3 40 10 00 9E 32 38 31 36 |,P8192..@...2816|
000000A0: 2C 34 38 00 B3 40 14 00 8F 20 20 54 52 41 50 35 |,48..@... TRAP5|
000000B0: 37 38 30 00 E4 40 1E 00 8F 20 46 4F 24 28 58 2C |780..@... FO$(X,|
000000C0: 59 29 3A 58 3D 30 3D 46 4F 4F 44 3A 58 3D 31 3D |Y):X=0=FOOD:X=1=|
000000D0: 55 4E 49 54 3A 58 3D 32 3D 43 41 4C 3A 58 3D 33 |UNIT:X=2=CAL:X=3|
000000E0: 3D 43 48 4C 00 F8 40 28 00 8F 20 53 42 3D 43 41 |=CHL..@(.. SB=CA|
000000F0: 4C 3A 53 48 3D 43 48 4C 00 27 41 32 00 8F 20 4D |L:SH=CHL.'A2.. M|
00000100: 45 24 28 29 3D 4C 49 53 54 20 4F 46 20 54 4F 44 |E$()=LIST OF TOD|
00000110: 41 59 27 53 20 49 4E 54 41 4B 45 2C 20 55 4E 24 |AY'S INTAKE, UN$|
00000120: 28 29 3D 55 4E 49 54 00 3E 41 3C 00 8D 20 34 31 |()=UNIT.>A<.. 41|
00000130: 31 30 3A 8F 20 56 41 52 49 41 42 4C 45 53 00 58 |10:. VARIABLES.X|
00000140: 41 46 00 8D 20 35 34 30 30 3A 8F 20 50 52 49 4E |AF.. 5400:. PRIN|
00000150: 54 45 52 20 49 4E 46 4F 00 6C 41 50 00 8D 20 34 |TER INFO.lAP.. 4|
00000160: 33 35 30 3A 8F 20 53 43 52 45 45 4E 00 83 41 5A |350:. SCREEN..AZ|
00000170: 00 8D 20 35 32 37 30 3A 8F 20 46 4F 4F 44 20 46 |.. 5270:. FOOD F|
00000180: 49 4C 45 00 9A 41 64 00 8D 20 35 30 37 30 3A 8F |ILE..Ad.. 5070:.|
00000190: 20 44 41 54 41 20 46 49 4C 45 00 A0 41 6E 00 3A | DATA FILE..An.:|
000001A0: 00 B5 41 78 00 3A 20 20 20 20 8F 20 4D 41 49 4E |..Ax.: . MAIN|
000001B0: 20 4C 4F 4F 50 00 C0 41 82 00 EB 3A 9E 20 57 53 | LOOP..A...:. WS|
000001C0: 00 D7 41 8C 00 8D 20 34 35 39 30 3A 8F 20 4D 41 |..A... 4590:. MA|
000001D0: 49 4E 20 4D 45 4E 55 00 EA 41 96 00 A1 F9 20 41 |IN MENU..A.... A|
000001E0: 24 3A 4B 45 B2 C5 28 41 24 29 00 20 42 A0 00 91 |$:KE..(A$). B...|
000001F0: 20 4B 45 20 8D 20 32 30 30 2C 38 37 30 2C 32 30 | KE . 200,870,20|
00000200: 36 30 2C 33 34 37 30 2C 33 33 37 30 2C 33 34 34 |60,3470,3370,344|
00000210: 30 2C 33 35 31 30 2C 33 38 32 30 2C 36 30 30 30 |0,3510,3820,6000|
00000220: 00 26 42 AA 00 EC 00 2C 42 B4 00 3A 00 4A 42 BE |.&B....,B..:.JB.|
00000230: 00 3A 20 20 20 20 8F 20 49 4E 50 55 54 20 54 4F |.: . INPUT TO|
00000240: 44 41 59 27 53 20 44 41 54 41 00 68 42 C8 00 4D |DAY'S DATA.hB..M|
00000250: B2 30 3A 47 54 B2 30 3A 47 5A B2 30 3A 4F 4F B2 |.0:GT.0:GZ.0:OO.|
00000260: 46 49 3A 4F 50 B2 54 53 00 81 42 D2 00 8D 20 34 |FI:OP.TS..B... 4|
00000270: 37 31 30 3A 8F 20 48 45 4C 50 20 57 49 4E 44 4F |710:. HELP WINDO|
00000280: 57 00 A1 42 DC 00 81 4D 45 B2 30 A4 32 3A 58 4D |W..B...ME.0.2:XM|
00000290: B2 4D 3A 4D 45 24 28 4D 29 B2 4E 4E 24 28 4D 45 |.M:ME$(M).NN$(ME|
000002A0: 29 00 B4 42 E6 00 49 54 B2 31 3A 53 42 B2 30 3A |)..B..IT.1:SB.0:|
000002B0: 53 48 B2 30 00 D2 42 F0 00 57 B2 4D 45 3A 8D 35 |SH.0..B..W.ME:.5|
000002C0: 37 36 30 3A 8F 20 57 49 4E 44 4F 57 20 53 45 54 |760:. WINDOW SET|
000002D0: 55 50 00 F1 42 FA 00 E0 2C 54 42 28 57 29 AA 32 |UP..B...,TB(W).2|
000002E0: 2C 30 2C 46 4F 24 AA 4E 54 24 28 57 29 AA 46 46 |,0,FO$.NT$(W).FF|
000002F0: 24 00 0E 43 04 01 81 4C B2 31 A4 36 3A E0 2C 30 |$..C...L.1.6:.,0|
00000300: 2C 4C 2C C8 28 4C 49 24 2C 33 30 29 3A 82 00 4A |,L,.(LI$,30):..J|
00000310: 43 0E 01 E0 2C 30 2C 36 2C 22 C3 48 4C 53 22 3A |C...,0,6,".HLS":|
00000320: E0 2C 32 35 2C 36 2C 22 C3 41 4C 53 20 20 20 20 |.,25,6,".ALS |
00000330: 3A 20 20 20 20 20 D3 55 42 54 4F 54 41 4C 53 20 |: .UBTOTALS |
00000340: 20 20 20 20 3A 20 20 20 20 22 00 50 43 18 01 3A | : ".PC..:|
00000350: 00 56 43 22 01 EB 00 75 43 2C 01 8D 20 39 32 30 |.VC"...uC,.. 920|
00000360: 3A 8F 20 46 4F 4F 44 20 43 59 43 4C 45 52 2F 43 |:. FOOD CYCLER/C|
00000370: 55 52 53 4F 52 00 84 43 36 01 8B 45 58 B3 B1 32 |URSOR..C6..EX..2|
00000380: 20 A7 20 ED 00 93 43 40 01 8B 46 49 B2 54 46 A7 | . ...C@..FI.TF.|
00000390: 33 30 30 00 BF 43 4A 01 4D B2 4D AA 31 3A 4D 45 |300..CJ.M.M.1:ME|
000003A0: 24 28 4D 29 B2 46 4F 24 28 30 2C 46 49 29 3A 55 |$(M).FO$(0,FI):U|
000003B0: 4E 24 28 4D 29 B2 46 4F 24 28 31 2C 46 49 29 00 |N$(M).FO$(1,FI).|
000003C0: D3 43 54 01 57 B2 4D 45 3A 8D 35 37 36 30 3A 43 |.CT.W.ME:.5760:C|
000003D0: 43 B2 31 00 FC 43 5E 01 43 41 B2 C5 28 46 4F 24 |C.1..C^.CA..(FO$|
000003E0: 28 32 2C 46 49 29 29 3A 43 48 B2 C5 28 46 4F 24 |(2,FI)):CH..(FO$|
000003F0: 28 33 2C 46 49 29 29 3A 51 59 B2 31 00 15 44 68 |(3,FI)):QY.1..Dh|
00000400: 01 E0 2C 30 2C 49 54 2C 55 4E 24 AA 46 4F 24 28 |..,0,IT,UN$.FO$(|
00000410: 30 2C 46 49 29 00 30 44 72 01 E0 2C 32 30 2C 49 |0,FI).0Dr..,20,I|
00000420: 54 2C C8 28 46 4F 24 28 31 2C 46 49 29 2C 34 29 |T,.(FO$(1,FI),4)|
00000430: 00 36 44 7C 01 3A 00 3C 44 86 01 EB 00 52 44 90 |.6D|.:.<D....RD.|
00000440: 01 43 59 B2 43 41 AC 51 59 3A 43 5A B2 43 48 AC |.CY.CA.QY:CZ.CH.|
00000450: 51 59 00 6F 44 9A 01 E0 2C 31 35 2C 49 54 2C 55 |QY.oD...,15,IT,U|
00000460: 4E 24 3A 99 20 FB 22 23 23 2E 23 22 3B 51 59 00 |N$:. ."##.#";QY.|
00000470: 8D 44 A4 01 E0 2C 32 34 2C 49 54 2C 55 4E 24 3A |.D...,24,IT,UN$:|
00000480: 99 20 FB 22 23 23 23 23 3E 22 3B 43 59 00 B2 44 |. ."####>";CY..D|
00000490: AE 01 A1 F9 51 24 3A 8B D4 28 22 11 91 1D 9D 23 |....Q$:..("....#|
000004A0: 22 AA 43 52 24 AA 45 24 2C 51 24 29 B2 30 A7 34 |".CR$.E$,Q$).0.4|
000004B0: 33 30 00 C8 44 B8 01 8B 51 24 B2 45 24 20 A7 20 |30..D...Q$.E$ . |
000004C0: 41 41 24 B2 45 24 3A ED 00 DE 44 C2 01 8B 51 24 |AA$.E$:...D...Q$|
000004D0: B2 22 91 22 A7 20 51 59 B2 51 59 AA 2E 31 00 F3 |.".". QY.QY..1..|
000004E0: 44 CC 01 8B 51 24 B2 22 9D 22 A7 20 51 59 B2 51 |D...Q$.".". QY.Q|
000004F0: 59 AA 31 00 16 45 D6 01 8B 51 24 B2 22 11 22 A7 |Y.1..E...Q$.".".|
00000500: 20 51 59 B2 51 59 AB 2E 31 3A 8B 51 59 B3 2E 31 | QY.QY..1:.QY..1|
00000510: A7 51 59 B2 2E 31 00 37 45 E0 01 8B 51 24 B2 22 |.QY..1.7E...Q$."|
00000520: 1D 22 A7 20 51 59 B2 51 59 AB 31 3A 8B 51 59 B3 |.". QY.QY.1:.QY.|
00000530: 2E 31 A7 51 59 B2 31 00 52 45 EA 01 EC 20 FC C2 |.1.QY.1.RE... ..|
00000540: 28 32 31 32 29 B2 37 36 3A 8B 41 41 24 B2 45 24 |(212).76:.AA$.E$|
00000550: A7 ED 00 58 45 F4 01 3A 00 66 45 FE 01 8B 20 49 |...XE..:.fE... I|
00000560: 54 B2 36 20 A7 ED 00 7C 45 08 02 53 42 B2 53 42 |T.6 ...|E..SB.SB|
00000570: AA 43 59 3A 53 48 B2 53 48 AA 43 5A 00 96 45 12 |.CY:SH.SH.CZ..E.|
00000580: 02 E0 2C 30 2C 37 2C 55 4E 24 3A 99 FB 22 23 23 |..,0,7,UN$:.."##|
00000590: 23 23 22 3B 53 48 00 B1 45 1C 02 E0 2C 32 35 2C |##";SH..E...,25,|
000005A0: 37 2C 55 4E 24 3A 99 FB 22 23 23 23 23 22 3B 53 |7,UN$:.."####";S|
000005B0: 42 00 D0 45 26 02 43 59 28 4D 29 B2 43 59 3A 43 |B..E&.CY(M).CY:C|
000005C0: 5A 28 4D 29 B2 43 5A 3A 51 59 28 4D 29 B2 51 59 |Z(M).CZ:QY(M).QY|
000005D0: 00 DC 45 30 02 49 54 B2 49 54 AA 31 00 E2 45 3A |..E0.IT.IT.1..E:|
000005E0: 02 EC 00 F8 45 44 02 8B 41 41 24 B2 45 24 A7 4D |....ED..AA$.E$.M|
000005F0: 45 B2 35 3A 89 36 36 30 00 FE 45 4E 02 3A 00 2A |E.5:.660..EN.:.*|
00000600: 46 58 02 57 B2 4D 45 3A 8D 35 37 36 30 3A E0 2C |FX.W.ME:.5760:.,|
00000610: 54 42 28 57 29 AA 32 2C 30 2C 55 4E 24 AA 22 D2 |TB(W).2,0,UN$.".|
00000620: 20 54 4F 20 52 45 44 4F 20 22 00 45 46 62 02 A1 | TO REDO ".EFb..|
00000630: F9 41 24 3A 8B 41 24 B2 22 52 22 A7 4D B2 58 4D |.A$:.A$."R".M.XM|
00000640: 3A 89 32 33 30 00 60 46 6C 02 E0 2C 54 42 28 57 |:.230.`Fl..,TB(W|
00000650: 29 AA 32 2C 30 2C 55 4E 24 AA 4E 54 24 28 57 29 |).2,0,UN$.NT$(W)|
00000660: 00 76 46 76 02 47 54 B2 47 54 AA 53 42 3A 47 5A |.vFv.GT.GT.SB:GZ|
00000670: B2 47 5A AA 53 48 00 8E 46 80 02 53 48 28 4D 45 |.GZ.SH..F..SH(ME|
00000680: 29 B2 53 48 3A 53 42 28 4D 45 29 B2 53 42 00 A9 |).SH:SB(ME).SB..|
00000690: 46 8A 02 4D B2 4D AA 31 3A 4D 45 24 28 4D 29 B2 |F..M.M.1:ME$(M).|
000006A0: 22 3D 22 3A 4D B2 4D AA 31 00 CD 46 94 02 82 3A |"=":M.M.1..F...:|
000006B0: 20 8B 4D 45 B2 36 20 A7 20 9E 57 52 3A 46 49 B2 | .ME.6 . .WR:FI.|
000006C0: 4F 4F 3A 54 53 B2 4F 50 3A 89 38 34 30 00 D3 46 |OO:TS.OP:.840..F|
000006D0: 9E 02 3A 00 06 47 A8 02 99 22 13 13 9B 22 3A E0 |..:..G..."...":.|
000006E0: 2C 36 30 2C 32 34 2C 22 12 C7 52 41 4E 44 20 54 |,60,24,"..RAND T|
000006F0: 4F 54 41 4C 53 20 20 20 22 3A 99 FB 22 23 23 23 |OTALS ":.."###|
00000700: 23 3E 22 3B 47 54 00 22 47 B2 02 E0 2C 35 31 2C |#>";GT."G...,51,|
00000710: 32 34 2C 22 12 22 3A 99 FB 22 23 23 23 23 22 3B |24,".":.."####";|
00000720: 47 5A 00 3A 47 BC 02 53 42 28 4D 45 29 B2 47 54 |GZ.:G..SB(ME).GT|
00000730: 3A 53 48 28 4D 45 29 B2 47 5A 00 49 47 C6 02 4D |:SH(ME).GZ.IG..M|
00000740: 45 24 28 4D 29 B2 22 3D 22 00 69 47 D0 02 8D 35 |E$(M)."=".iG...5|
00000750: 37 35 30 3A E0 2C 38 2C 36 2C 22 D3 41 56 49 4E |750:.,8,6,".AVIN|
00000760: 47 20 0F 2E 20 2E 20 2E 22 00 87 47 DA 02 FE 0E |G .. . ."..G....|
00000770: 23 32 2C 22 44 2E 22 AA 4D 4E 24 AA C4 28 59 52 |#2,"D.".MN$..(YR|
00000780: 29 2C 55 28 44 56 29 00 BB 47 E4 02 8B 44 53 B2 |),U(DV)..G...DS.|
00000790: 36 32 A7 A0 32 3A 9F 32 2C 44 56 2C 32 2C 22 44 |62..2:.2,DV,2,"D|
000007A0: 2E 22 AA 4D 4E 24 AA C4 28 59 52 29 AA 22 2C 53 |.".MN$..(YR).",S|
000007B0: 2C 57 22 3A A0 32 3A 89 37 33 30 00 C9 47 EE 02 |,W":.2:.730..G..|
000007C0: 8B 44 53 20 A7 32 30 33 30 00 DA 47 F8 02 98 32 |.DS .2030..G...2|
000007D0: 2C C7 28 33 34 29 3B 44 54 24 00 E3 47 02 03 4D |,.(34);DT$..G..M|
000007E0: 45 B2 30 00 FE 47 0C 03 81 49 B2 30 A4 4D 3A 98 |E.0..G...I.0.M:.|
000007F0: 32 2C C7 28 33 34 29 AA 4D 45 24 28 49 29 00 16 |2,.(34).ME$(I)..|
00000800: 48 16 03 8B 4D 45 24 28 49 29 B2 4E 4E 24 28 4D |H...ME$(I).NN$(M|
00000810: 45 29 A7 38 32 30 00 4F 48 20 03 8B 4D 45 24 28 |E).820.OH ..ME$(|
00000820: 49 29 B2 22 3D 22 A7 20 98 32 2C 53 42 28 4D 45 |I)."=". .2,SB(ME|
00000830: 29 3B 43 52 24 3B 53 48 28 4D 45 29 3B 43 52 24 |);CR$;SH(ME);CR$|
00000840: 3B 30 3A 4D 45 B2 4D 45 AA 31 3A 89 38 32 30 00 |;0:ME.ME.1:.820.|
00000850: 7B 48 2A 03 98 32 2C 51 59 28 49 29 3B 43 52 24 |{H*..2,QY(I);CR$|
00000860: 3B 43 59 28 49 29 3B 43 52 24 3B 43 5A 28 49 29 |;CY(I);CR$;CZ(I)|
00000870: 3B 43 52 24 3B 55 4E 24 28 49 29 00 88 48 34 03 |;CR$;UN$(I)..H4.|
00000880: 82 3A 98 32 2C 22 BA 22 00 8F 48 3E 03 A0 32 00 |.:.2,"."..H>..2.|
00000890: 95 48 48 03 8E 00 9B 48 52 03 3A 00 B6 48 5C 03 |.HH....HR.:..H\.|
000008A0: 3A 20 20 20 20 8F 20 49 4E 50 55 54 20 46 4F 4F |: . INPUT FOO|
000008B0: 44 20 44 41 54 41 00 C1 48 66 03 8D 20 34 37 31 |D DATA..Hf.. 471|
000008C0: 30 00 CB 48 70 03 8D 20 39 32 30 00 D1 48 7A 03 |0..Hp.. 920..Hz.|
000008D0: 8E 00 D7 48 84 03 3A 00 EF 48 8E 03 3A 20 20 20 |...H..:..H..: |
000008E0: 20 8F 20 4D 41 49 4E 20 53 55 42 4C 4F 4F 50 00 | . MAIN SUBLOOP.|
000008F0: 06 49 98 03 45 58 B2 30 3A 4F 46 B2 46 49 3A 4B |.I..EX.0:OF.FI:K|
00000900: 59 24 B2 49 4E 24 00 19 49 A2 03 97 32 34 38 2C |Y$.IN$..I...248,|
00000910: C2 28 32 34 38 29 B0 36 34 00 1F 49 AC 03 3A 00 |.(248).64..I..:.|
00000920: 25 49 B6 03 EB 00 57 49 C0 03 57 B2 35 3A 8D 35 |%I....WI..W.5:.5|
00000930: 37 36 30 3A E0 2C 31 2C 4F 46 AB 54 53 AA 32 2C |760:.,1,OF.TS.2,|
00000940: 55 46 24 AA C8 28 46 4F 24 28 30 2C 4F 46 29 AA |UF$..(FO$(0,OF).|
00000950: 53 50 24 2C 31 35 29 00 8B 49 CA 03 3A 20 20 20 |SP$,15)..I..: |
00000960: 20 8F 20 41 42 4F 56 45 20 43 48 41 52 20 55 4E | . ABOVE CHAR UN|
00000970: 52 56 53 20 49 54 45 4D 2C 20 42 45 4C 4F 57 20 |RVS ITEM, BELOW |
00000980: 43 48 41 52 20 52 56 53 20 49 54 00 B7 49 D4 03 |CHAR RVS IT..I..|
00000990: E0 2C 31 2C 46 49 AB 54 53 AA 32 2C C8 28 46 4F |.,1,FI.TS.2,.(FO|
000009A0: 24 28 30 2C 46 49 29 AA 53 50 24 2C 31 35 29 2C |$(0,FI).SP$,15),|
000009B0: 31 3A 4F 46 B2 46 49 00 C5 49 DE 03 57 B2 33 3A |1:OF.FI..I..W.3:|
000009C0: 8D 35 37 36 30 00 EB 49 E8 03 3A 20 20 20 20 8F |.5760..I..: .|
000009D0: 20 42 45 4C 4F 57 20 4C 49 53 54 53 20 46 4F 4F | BELOW LISTS FOO|
000009E0: 44 20 43 41 52 44 20 44 41 54 41 00 1E 4A F2 03 |D CARD DATA..J..|
000009F0: 81 54 B2 30 A4 34 3A E0 2C 31 2C 54 AA 32 2C 55 |.T.0.4:.,1,T.2,U|
00000A00: 4E 24 AA C8 28 46 24 28 54 29 AA 46 4F 24 28 54 |N$..(F$(T).FO$(T|
00000A10: 2C 46 49 29 AA 53 50 24 2C 32 37 29 3A 82 00 24 |,FI).SP$,27):..$|
00000A20: 4A FC 03 3A 00 49 4A 06 04 A1 F9 41 41 24 3A 41 |J..:.IJ....AA$:A|
00000A30: 41 B2 D4 28 4B 32 24 2C 41 41 24 29 3A 8B 41 41 |A..(K2$,AA$):.AA|
00000A40: B2 30 20 A7 20 31 30 33 30 00 90 4A 10 04 91 20 |.0 . 1030..J... |
00000A50: 41 41 20 8D 20 31 31 39 30 2C 31 32 32 30 2C 31 |AA . 1190,1220,1|
00000A60: 32 37 30 2C 31 32 39 30 2C 31 33 31 30 2C 31 33 |270,1290,1310,13|
00000A70: 36 30 2C 31 38 38 30 2C 31 37 32 30 2C 31 37 38 |60,1880,1720,178|
00000A80: 30 2C 31 36 32 30 2C 31 34 30 30 2C 31 39 35 30 |0,1620,1400,1950|
00000A90: 00 D9 4A 1A 04 3A 20 20 20 20 8F 20 20 20 20 20 |..J..: . |
00000AA0: 48 4F 4D 2C 42 4F 54 20 2C 20 50 47 2B 2C 20 50 |HOM,BOT , PG+, P|
00000AB0: 47 2D 2C 44 4F 57 4E 2C 20 55 50 20 2C 53 41 56 |G-,DOWN, UP ,SAV|
00000AC0: 45 2C 44 45 4C 45 2C 45 51 55 4C 2C 53 4F 52 54 |E,DELE,EQUL,SORT|
00000AD0: 2C 52 54 4E 20 2C 45 53 43 00 ED 4A 24 04 8B 41 |,RTN ,ESC..J$..A|
00000AE0: 41 B1 31 32 20 A7 20 8D 20 31 31 31 30 00 F8 4A |A.12 . . 1110..J|
00000AF0: 2E 04 EC 20 FC 20 45 58 00 FE 4A 38 04 8E 00 04 |... . EX..J8....|
00000B00: 4B 42 04 3A 00 18 4B 4C 04 3A 20 20 20 20 8F 20 |KB.:..KL.: . |
00000B10: 41 4C 50 48 41 42 45 54 00 2E 4B 56 04 53 B2 C6 |ALPHABET..KV.S..|
00000B20: 28 41 41 24 29 AA 31 32 38 3A 53 53 B2 53 00 3C |(AA$).128:SS.S.<|
00000B30: 4B 60 04 81 54 B2 30 A4 54 46 AB 31 00 65 4B 6A |K`..T.0.TF.1.eKj|
00000B40: 04 8B C6 28 46 4F 24 28 30 2C 54 29 29 B2 53 53 |...(FO$(0,T)).SS|
00000B50: A7 20 54 53 B2 54 3A 54 4E B2 54 3A 54 B2 54 46 |. TS.T:TN.T:T.TF|
00000B60: 3A 53 53 B2 30 00 6B 4B 74 04 82 00 8B 4B 7E 04 |:SS.0.kKt....K~.|
00000B70: 8B 53 53 20 AF 20 53 53 B3 32 31 38 20 A7 53 53 |.SS . SS.218 .SS|
00000B80: B2 53 53 AA 31 3A 89 31 31 32 30 00 B1 4B 88 04 |.SS.1:.1120..K..|
00000B90: 8D 20 31 38 30 30 3A 46 49 B2 54 4E 3A 8F 20 43 |. 1800:FI.TN:. C|
00000BA0: 45 4E 54 45 52 20 4D 45 4E 55 20 4C 49 53 54 45 |ENTER MENU LISTE|
00000BB0: 52 00 B7 4B 92 04 8E 00 C7 4B 9C 04 3A 20 20 20 |R..K.....K..: |
00000BC0: 20 8F 20 48 4F 4D 45 00 E5 4B A6 04 8B 46 49 B2 | . HOME..K...FI.|
00000BD0: 54 53 20 A7 20 54 53 B2 30 3A 46 49 B2 54 53 3A |TS . TS.0:FI.TS:|
00000BE0: 8D 31 38 32 30 00 F1 4B B0 04 46 49 B2 54 53 3A |.1820..K..FI.TS:|
00000BF0: 8E 00 FE 4B BA 04 3A 20 20 20 20 8F 20 5C 00 18 |...K..: . \..|
00000C00: 4C C4 04 8B 54 53 AA 31 35 B2 54 46 A7 46 49 B2 |L...TS.15.TF.FI.|
00000C10: 54 46 3A 89 31 33 31 30 00 37 4C CE 04 8B 46 49 |TF:.1310.7L...FI|
00000C20: B2 54 53 AA 31 35 20 A7 20 54 53 B2 54 46 AB 31 |.TS.15 . TS.TF.1|
00000C30: 35 3A 8D 31 38 32 30 00 51 4C D8 04 46 49 B2 54 |5:.1820.QL..FI.T|
00000C40: 53 AA 31 35 3A 8B 46 49 B1 54 46 A7 46 49 B2 54 |S.15:.FI.TF.FI.T|
00000C50: 46 00 57 4C E2 04 8E 00 64 4C EC 04 3A 20 20 20 |F.WL....dL..: |
00000C60: 20 8F 20 2B 00 78 4C F6 04 54 53 B2 54 53 AA 31 | . +.xL..TS.TS.1|
00000C70: 35 3A 89 20 31 38 30 30 00 85 4C 00 05 3A 20 20 |5:. 1800..L..: |
00000C80: 20 20 8F 20 2D 00 99 4C 0A 05 54 53 B2 54 53 AB | . -..L..TS.TS.|
00000C90: 31 35 3A 89 20 31 38 30 30 00 A9 4C 14 05 3A 20 |15:. 1800..L..: |
00000CA0: 20 20 20 8F 20 44 4F 57 4E 00 B5 4C 1E 05 8B 54 | . DOWN..L...T|
00000CB0: 46 B2 30 A7 8E 00 D1 4C 28 05 46 49 B2 46 49 AA |F.0....L(.FI.FI.|
00000CC0: 31 3A 8B 20 46 49 B1 54 46 20 A7 20 46 49 B2 54 |1:. FI.TF . FI.T|
00000CD0: 46 00 08 4D 32 05 8B 46 49 B1 54 53 AA 31 35 20 |F..M2..FI.TS.15 |
00000CE0: A7 20 54 53 B2 54 53 AA 31 3A 57 B2 36 3A 8D 35 |. TS.TS.1:W.6:.5|
00000CF0: 37 36 30 3A E0 2C 30 2C 31 35 2C 45 56 24 AA 46 |760:.,0,15,EV$.F|
00000D00: 4F 24 28 30 2C 46 49 29 00 0E 4D 3C 05 8E 00 1C |O$(0,FI)..M<....|
00000D10: 4D 46 05 3A 20 20 20 20 8F 20 55 50 00 36 4D 50 |MF.: . UP.6MP|
00000D20: 05 46 49 B2 46 49 AB 31 3A 8B 20 46 49 B3 30 20 |.FI.FI.1:. FI.0 |
00000D30: A7 20 46 49 B2 30 00 6D 4D 5A 05 8B 46 49 AB 54 |. FI.0.mMZ..FI.T|
00000D40: 53 B3 20 30 20 A7 20 54 53 B2 54 53 AB 31 3A 57 |S. 0 . TS.TS.1:W|
00000D50: B2 36 3A 8D 35 37 36 30 3A E0 2C 30 2C 20 30 2C |.6:.5760:.,0, 0,|
00000D60: 45 57 24 AA 46 4F 24 28 30 2C 46 49 29 00 73 4D |EW$.FO$(0,FI).sM|
00000D70: 64 05 8E 00 85 4D 6E 05 3A 20 20 20 20 8F 20 52 |d....Mn.: . R|
00000D80: 45 54 55 52 4E 00 96 4D 78 05 8B 4B 45 B2 31 A7 |ETURN..Mx..KE.1.|
00000D90: 45 58 B2 32 3A 8E 00 A1 4D 82 05 81 54 B2 30 A4 |EX.2:...M...T.0.|
00000DA0: 34 00 BE 4D 8C 05 E7 35 2C 32 3A FE 1A 20 38 2C |4..M...5,2:.. 8,|
00000DB0: 54 AA 31 38 2C 32 37 2C 54 AA 31 38 2C 31 00 E0 |T.18,27,T.18,1..|
00000DC0: 4D 96 05 4E 50 24 B2 46 4F 24 28 54 2C 46 49 29 |M..NP$.FO$(T,FI)|
00000DD0: 3A 8B 4E 50 24 B2 22 20 22 A7 4E 50 24 B2 22 22 |:.NP$." ".NP$.""|
00000DE0: 00 F6 4D A0 05 8D 34 39 33 30 3A 8B 41 24 B2 45 |..M...4930:.A$.E|
00000DF0: 24 A7 31 35 39 30 00 2D 4E AA 05 41 43 B2 C6 28 |$.1590.-N..AC..(|
00000E00: 4E 50 24 29 3A 8B 54 B2 30 A7 8B 41 43 B3 39 32 |NP$):.T.0..AC.92|
00000E10: AF 41 43 B1 36 34 A7 4E 50 24 B2 C7 28 41 43 AA |.AC.64.NP$..(AC.|
00000E20: 31 32 38 29 AA CA 28 4E 50 24 2C 32 29 00 41 4E |128)..(NP$,2).AN|
00000E30: B4 05 8B 4E 50 24 B2 22 22 A7 4E 50 24 B2 22 20 |...NP$."".NP$." |
00000E40: 22 00 50 4E BE 05 4E 50 24 28 54 29 B2 4E 50 24 |".PN..NP$(T).NP$|
00000E50: 00 77 4E C8 05 E0 2C 30 2C 30 2C 22 9F 22 AA 55 |.wN...,0,0,".".U|
00000E60: 4E 24 AA C8 28 4E 50 24 28 54 29 AA 53 50 24 2C |N$..(NP$(T).SP$,|
00000E70: 32 30 29 AA 22 99 22 00 7D 4E D2 05 82 00 83 4E |20).".".}N.....N|
00000E80: DC 05 3A 00 A2 4E E6 05 8B 54 46 B2 30 20 B0 20 |..:..N...TF.0 . |
00000E90: 46 49 B3 54 46 20 A7 20 58 B2 46 49 3A 89 31 35 |FI.TF . X.FI:.15|
00000EA0: 36 30 00 C9 4E F0 05 58 B2 54 46 3A 81 4B B2 30 |60..N..X.TF:.K.0|
00000EB0: A4 54 46 3A 8B 4E 50 24 28 30 29 B1 46 4F 24 28 |.TF:.NP$(0).FO$(|
00000EC0: 30 2C 4B 29 A7 31 35 35 30 00 E1 4E FA 05 81 49 |0,K).1550..N...I|
00000ED0: B2 54 46 A4 4B AA 31 A9 AB 31 3A 81 4A B2 30 A4 |.TF.K.1..1:.J.0.|
00000EE0: 34 00 06 4F 04 06 46 4F 24 28 4A 2C 49 29 B2 46 |4..O..FO$(J,I).F|
00000EF0: 4F 24 28 4A 2C 49 AB 31 29 3A 82 3A 82 3A 58 B2 |O$(J,I.1):.:.:X.|
00000F00: 4B 3A 4B B2 54 46 00 0C 4F 0E 06 82 00 29 4F 18 |K:K.TF..O....)O.|
00000F10: 06 81 54 B2 30 A4 34 3A 46 4F 24 28 54 2C 58 29 |..T.0.4:FO$(T,X)|
00000F20: B2 4E 50 24 28 54 29 3A 82 00 54 4F 22 06 8B 46 |.NP$(T):..TO"..F|
00000F30: 49 B2 54 46 A7 54 46 B2 54 46 AA 31 3A 46 49 B2 |I.TF.TF.TF.1:FI.|
00000F40: 54 46 3A 8B 54 46 B1 54 53 AA 31 35 A7 54 53 B2 |TF:.TF.TS.15.TS.|
00000F50: 54 53 AA 31 00 5E 4F 2C 06 8D 31 38 33 30 00 64 |TS.1.^O,..1830.d|
00000F60: 4F 36 06 8E 00 6A 4F 40 06 3A 00 7D 4F 4A 06 3A |O6...jO@.:.}OJ.:|
00000F70: 20 20 20 20 8F 20 52 45 2D 53 4F 52 54 00 8E 4F | . RE-SORT..O|
00000F80: 54 06 8B 54 46 B3 32 B0 4B 45 B2 31 A7 8E 00 C2 |T..TF.2.KE.1....|
00000F90: 4F 5E 06 58 B2 30 3A 57 B2 36 3A 8D 35 37 36 30 |O^.X.0:W.6:.5760|
00000FA0: 3A E0 2C 30 2C 30 2C 45 24 AA 22 40 22 3A E0 2C |:.,0,0,E$."@":.,|
00000FB0: 31 2C 33 2C 22 D3 4F 52 54 49 4E 47 20 49 54 45 |1,3,".ORTING ITE|
00000FC0: 4D 22 00 DD 4F 68 06 E0 2C 32 2C 35 2C 22 4F 55 |M"..Oh..,2,5,"OU|
00000FD0: 54 20 4F 46 22 AA C4 28 54 46 AB 31 29 00 ED 4F |T OF"..(TF.1)..O|
00000FE0: 72 06 81 54 B2 58 AA 31 A4 54 46 AB 31 00 38 50 |r..T.X.1.TF.1.8P|
00000FF0: 7C 06 8B 46 4F 24 28 30 2C 54 29 B3 46 4F 24 28 ||..FO$(0,T).FO$(|
00001000: 30 2C 58 29 A7 20 81 4A B2 30 A4 34 3A 58 24 B2 |0,X). .J.0.4:X$.|
00001010: 46 4F 24 28 4A 2C 58 29 3A 46 4F 24 28 4A 2C 58 |FO$(J,X):FO$(J,X|
00001020: 29 B2 46 4F 24 28 4A 2C 54 29 3A 46 4F 24 28 4A |).FO$(J,T):FO$(J|
00001030: 2C 54 29 B2 58 24 3A 82 00 3E 50 86 06 82 00 61 |,T).X$:..>P....a|
00001040: 50 90 06 58 B2 58 AA 31 3A E0 2C 35 2C 34 2C C4 |P..X.X.1:.,5,4,.|
00001050: 28 58 29 3A 8B 58 B3 54 46 AB 31 20 A7 31 36 35 |(X):.X.TF.1 .165|
00001060: 30 00 70 50 9A 06 54 53 B2 30 3A 89 31 38 32 30 |0.pP..TS.0:.1820|
00001070: 00 76 50 A4 06 3A 00 83 50 AE 06 8F 20 44 45 4C |.vP..:..P... DEL|
00001080: 45 54 45 00 8F 50 B8 06 8B 4B 45 B2 31 A7 8E 00 |ETE..P...KE.1...|
00001090: B6 50 C2 06 E0 2C 35 2C 31 2C 22 97 20 C1 52 45 |.P...,5,1,". .RE|
000010A0: 20 59 4F 55 20 53 55 52 45 3F 20 20 05 59 97 2F | YOU SURE? .Y./|
000010B0: 05 4E 97 20 9F 22 00 D0 50 CC 06 A1 F9 59 4E 24 |.N. ."..P....YN$|
000010C0: 3A E0 2C 35 2C 31 2C C8 28 53 50 24 2C 32 30 29 |:.,5,1,.(SP$,20)|
000010D0: 00 E3 50 D6 06 8B 59 4E 24 B3 B1 22 59 22 A7 31 |..P...YN$.."Y".1|
000010E0: 38 33 30 00 1D 51 E0 06 81 54 B2 46 49 A4 54 46 |830..Q...T.FI.TF|
000010F0: 3A 81 49 B2 30 A4 34 3A 46 4F 24 28 49 2C 54 29 |:.I.0.4:FO$(I,T)|
00001100: B2 46 4F 24 28 49 2C 54 AA 31 29 3A 82 3A 82 3A |.FO$(I,T.1):.:.:|
00001110: 54 46 B2 54 46 AB 31 3A 89 31 38 33 30 00 23 51 |TF.TF.1:.1830.#Q|
00001120: EA 06 3A 00 2E 51 F4 06 45 58 B2 33 3A 8E 00 4A |..:..Q..EX.3:..J|
00001130: 51 FE 06 3A 20 20 20 20 8F 20 4C 49 53 54 20 43 |Q..: . LIST C|
00001140: 45 4E 54 45 52 20 4D 45 4E 55 00 5B 51 08 07 8B |ENTER MENU.[Q...|
00001150: 54 53 B3 30 20 A7 20 54 53 B2 30 00 74 51 12 07 |TS.0 . TS.0.tQ..|
00001160: 8B 54 53 B1 54 46 AB 31 35 20 A7 20 54 53 B2 54 |.TS.TF.15 . TS.T|
00001170: 46 AB 31 35 00 84 51 1C 07 46 49 B2 54 53 3A 4F |F.15..Q..FI.TS:O|
00001180: 46 B2 46 49 00 97 51 26 07 57 B2 36 3A 8D 35 37 |F.FI..Q&.W.6:.57|
00001190: 36 30 3A 99 22 93 22 00 C5 51 30 07 81 54 B2 54 |60:."."..Q0..T.T|
000011A0: 53 A4 54 53 AA 31 35 3A E0 2C 30 2C 54 AB 54 53 |S.TS.15:.,0,T.TS|
000011B0: 2C 55 46 24 AA C8 28 46 4F 24 28 30 2C 54 29 2C |,UF$..(FO$(0,T),|
000011C0: 31 35 29 3A 82 00 CB 51 3A 07 8E 00 D1 51 44 07 |15):...Q:....QD.|
000011D0: 3A 00 EB 51 4E 07 3A 20 20 20 20 8F 20 53 41 56 |:..QN.: . SAV|
000011E0: 45 20 46 4F 4F 44 20 4C 49 53 54 00 F7 51 58 07 |E FOOD LIST..QX.|
000011F0: 8B 4B 45 B2 31 A7 8E 00 17 52 62 07 8D 35 37 35 |.KE.1....Rb..575|
00001200: 30 3A E0 2C 38 2C 36 2C 22 D3 41 56 49 4E 47 20 |0:.,8,6,".AVING |
00001210: 0F 2E 20 2E 20 2E 22 00 30 52 6C 07 F2 22 44 2E |.. . .".0Rl.."D.|
00001220: 46 4F 4F 44 46 41 43 54 53 22 2C 55 28 44 56 29 |FOODFACTS",U(DV)|
00001230: 00 60 52 76 07 9F 32 2C 44 56 2C 32 2C 22 44 2E |.`Rv..2,DV,2,"D.|
00001240: 46 4F 4F 44 46 41 43 54 53 2C 53 2C 57 22 3A 8B |FOODFACTS,S,W":.|
00001250: 44 53 20 A7 20 8D 32 30 33 30 3A 89 31 39 35 30 |DS . .2030:.1950|
00001260: 00 79 52 80 07 98 32 2C 54 46 3A 81 54 B2 30 A4 |.yR...2,TF:.T.0.|
00001270: 54 46 3A 81 49 B2 30 A4 34 00 93 52 8A 07 98 32 |TF:.I.0.4..R...2|
00001280: 2C C7 28 33 34 29 AA 46 4F 24 28 49 2C 54 29 3A |,.(34).FO$(I,T):|
00001290: 82 3A 82 00 9A 52 94 07 A0 32 00 A5 52 9E 07 45 |.:...R...2..R..E|
000012A0: 58 B2 31 3A 8E 00 AB 52 A8 07 3A 00 C1 52 B2 07 |X.1:...R..:..R..|
000012B0: F2 22 44 2E 4D 59 44 41 54 41 22 2C 55 28 44 56 |."D.MYDATA",U(DV|
000012C0: 29 00 EE 52 BC 07 9F 32 2C 44 56 2C 32 2C 22 44 |)..R...2,DV,2,"D|
000012D0: 2E 4D 59 44 41 54 41 2C 53 2C 57 22 3A 8B 44 53 |.MYDATA,S,W":.DS|
000012E0: 20 A7 20 8D 32 30 33 30 3A 89 32 30 30 30 00 F8 | . .2030:.2000..|
000012F0: 52 C6 07 98 32 2C 54 44 00 FE 52 D0 07 8E 00 04 |R...2,TD..R.....|
00001300: 53 DA 07 3A 00 1A 53 E4 07 3A 20 20 20 20 8F 20 |S..:..S..: . |
00001310: 44 49 53 4B 20 45 52 52 4F 52 00 4F 53 EE 07 99 |DISK ERROR.OS...|
00001320: 22 07 05 20 C4 49 53 4B 20 45 52 52 4F 52 21 20 |".. .ISK ERROR! |
00001330: 20 D0 4C 45 41 53 45 20 43 4F 52 52 45 43 54 2E | .LEASE CORRECT.|
00001340: 20 22 3A FE 15 20 55 28 44 56 29 3A FE 0B 31 00 | ":.. U(DV):..1.|
00001350: 55 53 F8 07 8E 00 66 53 02 08 3A 20 20 20 20 8F |US....fS..: .|
00001360: 20 50 52 49 4E 54 00 70 53 0C 08 8D 35 37 35 30 | PRINT.pS...5750|
00001370: 00 92 53 16 08 E0 2C 34 2C 31 2C 22 D0 52 45 53 |..S...,4,1,".RES|
00001380: 53 20 41 50 50 52 4F 50 52 49 41 54 45 20 4B 45 |S APPROPRIATE KE|
00001390: 59 22 00 B4 53 20 08 E0 2C 31 2C 33 2C 22 C4 20 |Y"..S ..,1,3,". |
000013A0: 2D 20 D4 48 49 53 20 44 41 59 27 53 20 54 4F 54 |- .HIS DAY'S TOT|
000013B0: 41 4C 53 22 00 D6 53 2A 08 E0 2C 31 2C 34 2C 22 |ALS"..S*..,1,4,"|
000013C0: CD 20 2D 20 D4 48 49 53 20 4D 4F 4E 54 48 20 54 |. - .HIS MONTH T|
000013D0: 4F 54 41 4C 53 22 00 F4 53 34 08 E0 2C 31 2C 35 |OTALS"..S4..,1,5|
000013E0: 2C 22 C1 20 2D 20 C1 4E 4E 55 41 4C 20 54 4F 54 |,". - .NNUAL TOT|
000013F0: 41 4C 53 22 00 15 54 3E 08 E0 2C 31 2C 36 2C 22 |ALS"..T>..,1,6,"|
00001400: C3 20 2D 20 C3 48 41 52 54 20 54 48 49 53 20 4D |. - .HART THIS M|
00001410: 4F 4E 54 48 22 00 30 54 48 08 E0 2C 37 2C 38 2C |ONTH".0TH..,7,8,|
00001420: 22 C5 D3 C3 41 50 45 20 54 4F 20 45 58 49 54 22 |"...APE TO EXIT"|
00001430: 00 53 54 52 08 A1 F9 50 52 24 3A 8B D4 28 22 44 |.STR...PR$:..("D|
00001440: 4D 41 43 22 AA 45 24 2C 50 52 24 29 B2 30 A7 32 |MAC".E$,PR$).0.2|
00001450: 31 33 30 00 61 54 5C 08 8B 50 52 24 B2 45 24 A7 |130.aT\..PR$.E$.|
00001460: 8E 00 85 54 66 08 E0 2C 31 2C 38 2C 22 D3 43 52 |...Tf..,1,8,".CR|
00001470: 45 45 4E 20 4F 52 20 D0 52 49 4E 54 45 52 3A 20 |EEN OR .RINTER: |
00001480: 20 D3 2F D0 22 00 AA 54 70 08 A1 F9 53 32 24 3A | ./."..Tp...S2$:|
00001490: 53 50 B2 33 3A 53 33 24 B2 C7 28 32 29 3A 53 34 |SP.3:S3$..(2):S4|
000014A0: 24 B2 22 22 3A 4C 4D B2 31 30 00 BA 54 7A 08 8B |$."":LM.10..Tz..|
000014B0: 53 32 24 B2 22 50 22 A7 FE 18 00 E6 54 84 08 53 |S2$."P".....T..S|
000014C0: 50 B2 34 3A 53 33 24 B2 50 49 24 28 30 29 3A 53 |P.4:S3$.PI$(0):S|
000014D0: 34 24 B2 50 49 24 28 31 29 3A 4C 4D B2 C6 28 50 |4$.PI$(1):LM..(P|
000014E0: 49 24 28 33 29 29 00 0F 55 8E 08 E0 2C 30 2C 31 |I$(3))..U...,0,1|
000014F0: 2C 45 24 AA 22 40 22 3A E0 2C 37 2C 36 2C 22 D4 |,E$."@":.,7,6,".|
00001500: 55 52 4E 20 50 52 49 4E 54 45 52 20 4F 4E 22 00 |URN PRINTER ON".|
00001510: 3B 55 98 08 E0 2C 32 2C 37 2C 22 D0 52 45 53 53 |;U...,2,7,".RESS|
00001520: 20 41 4E 59 20 4B 45 59 20 57 48 45 4E 20 52 45 | ANY KEY WHEN RE|
00001530: 41 44 59 22 3A A1 F9 20 41 4E 24 00 42 55 A2 08 |ADY":.. AN$.BU..|
00001540: FE 19 00 5A 55 AC 08 99 22 90 13 13 93 9B 22 45 |...ZU..."....."E|
00001550: 24 22 4E 22 45 24 22 4C 22 3B 00 6C 55 B6 08 8B |$"N"E$"L";.lU...|
00001560: 50 52 24 B2 22 43 22 A7 32 38 33 30 00 8B 55 C0 |PR$."C".2830..U.|
00001570: 08 50 31 B2 44 41 28 30 29 AB 31 3A 8B 50 52 24 |.P1.DA(0).1:.PR$|
00001580: B2 22 41 22 A7 20 50 31 B2 AB 31 00 94 55 CA 08 |."A". P1..1..U..|
00001590: 50 52 B2 30 00 A1 55 D4 08 9F 20 34 2C 53 50 2C |PR.0..U... 4,SP,|
000015A0: 37 00 B6 55 DE 08 8B 53 50 B2 34 A7 98 34 2C 50 |7..U...SP.4..4,P|
000015B0: 49 24 28 32 29 3B 00 F0 55 E8 08 50 31 B2 50 31 |I$(2);..U..P1.P1|
000015C0: AA 31 3A 4D 4E 24 B2 C8 28 44 41 24 28 30 2C 50 |.1:MN$..(DA$(0,P|
000015D0: 31 29 2C 33 29 3A E0 2C 30 2C 30 2C 22 D3 45 41 |1),3):.,0,0,".EA|
000015E0: 52 43 48 49 4E 47 20 46 4F 52 20 22 AA 4D 4E 24 |RCHING FOR ".MN$|
000015F0: 00 06 56 F2 08 A1 45 50 24 3A 8B 45 50 24 B2 45 |..V...EP$:.EP$.E|
00001600: 24 A7 32 37 37 30 00 21 56 FC 08 9F 32 2C 44 56 |$.2770.!V...2,DV|
00001610: 2C 32 2C 22 44 2E 22 AA 4D 4E 24 AA C4 28 59 52 |,2,"D.".MN$..(YR|
00001620: 29 00 3A 56 06 09 8B 44 53 20 A7 20 FE 15 20 55 |).:V...DS . .. U|
00001630: 28 44 56 29 3A 89 32 37 37 30 00 4A 56 10 09 81 |(DV):.2770.JV...|
00001640: 54 B2 31 A4 33 3A 98 34 3A 82 00 5D 56 1A 09 4D |T.1.3:.4:..]V..M|
00001650: 45 B2 30 3A 53 24 B2 22 20 20 20 20 22 00 63 56 |E.0:S$." ".cV|
00001660: 24 09 3A 00 8F 56 2E 09 EB 3A 99 22 93 22 3B 3A |$.:..V...:.".";:|
00001670: E0 2C 35 38 2C 30 2C 22 9E D0 52 45 53 53 20 C5 |.,58,0,"..RESS .|
00001680: D3 C3 41 50 45 20 54 4F 20 45 58 49 54 05 22 00 |..APE TO EXIT.".|
00001690: A2 56 38 09 84 32 2C 44 5A 24 3A 8B 53 54 20 A7 |.V8..2,DZ$:.ST .|
000016A0: 20 ED 00 B2 56 42 09 8B 50 52 24 B2 22 44 22 A7 | ...VB..PR$."D".|
000016B0: FE 18 00 C4 56 4C 09 8B 44 5A 24 B2 44 54 24 A7 |....VL..DZ$.DT$.|
000016C0: 32 34 34 30 00 DB 56 56 09 E0 2C 30 2C 30 2C 22 |2440..VV..,0,0,"|
000016D0: C6 4F 55 4E 44 20 22 AA 44 5A 24 00 16 57 60 09 |.OUND ".DZ$..W`.|
000016E0: EB 3A 84 32 2C 41 24 3A 8B 53 54 B1 30 A7 20 E0 |.:.2,A$:.ST.0. .|
000016F0: 2C 30 2C 30 2C 22 07 CE 4F 54 20 46 4F 55 4E 44 |,0,0,"..OT FOUND|
00001700: 20 20 20 20 20 20 20 20 20 20 22 3A FE 0B 32 3A | ":..2:|
00001710: 50 52 B2 32 3A ED 00 25 57 6A 09 EC 20 FC 20 41 |PR.2:..%Wj.. . A|
00001720: 24 B2 22 BA 22 00 2B 57 74 09 ED 00 32 57 7E 09 |$.".".+Wt...2W~.|
00001730: FE 19 00 49 57 88 09 50 52 B2 31 3A 98 34 2C C8 |...IW..PR.1:.4,.|
00001740: 28 53 50 24 2C 4C 4D 29 3B 00 6D 57 92 09 98 34 |(SP$,LM);.mW...4|
00001750: 2C 22 C6 4F 4F 44 20 C3 41 4C 43 20 54 41 4C 4C |,".OOD .ALC TALL|
00001760: 59 20 46 4F 52 20 22 44 5A 24 3A 98 34 00 73 57 |Y FOR "DZ$:.4.sW|
00001770: 9C 09 3A 00 88 57 A6 09 81 54 B2 30 A4 32 3A 84 |..:..W...T.0.2:.|
00001780: 32 2C 4D 45 24 28 54 29 00 9D 57 B0 09 98 34 2C |2,ME$(T)..W...4,|
00001790: 53 34 24 C8 28 53 50 24 2C 4C 4D 29 3B 00 F2 57 |S4$.(SP$,LM);..W|
000017A0: BA 09 98 34 2C FB 20 53 33 24 AA 22 20 23 23 23 |...4,. S3$." ###|
000017B0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000017C0: D1 55 41 4E 54 49 54 59 20 20 3A 20 20 C3 48 4F |.UANTITY : .HO|
000017D0: 4C 45 53 54 45 52 4F 4C 20 20 3A 20 20 C3 41 4C |LESTEROL : .AL|
000017E0: 4F 52 49 45 53 20 22 AA 53 34 24 3B 4D 45 24 28 |ORIES ".S4$;ME$(|
000017F0: 54 29 00 F8 57 C4 09 3A 00 11 58 CE 09 EB 3A 20 |T)..W..:..X...: |
00001800: A1 20 45 50 24 3A 8B 45 50 24 B2 45 24 20 A7 20 |. EP$:.EP$.E$ . |
00001810: ED 00 21 58 D8 09 84 32 2C 5A 24 2C 41 2C 42 2C |..!X...2,Z$,A,B,|
00001820: 43 00 2F 58 E2 09 8B 5A 24 B2 22 3D 22 A7 ED 00 |C./X...Z$."="...|
00001830: 39 58 EC 09 84 32 2C 55 24 00 4E 58 F6 09 98 34 |9X...2,U$.NX...4|
00001840: 2C 53 34 24 C8 28 53 50 24 2C 4C 4D 29 3B 00 6E |,S4$.(SP$,LM);.n|
00001850: 58 00 0A 98 34 2C FB 22 23 23 23 23 23 23 23 23 |X...4,."########|
00001860: 23 23 23 23 23 23 23 23 23 22 3B 5A 24 3B 00 95 |#########";Z$;..|
00001870: 58 0A 0A 98 34 2C FB 22 23 23 23 23 2E 23 22 3B |X...4,."####.#";|
00001880: 41 3B 3A 98 34 2C FB 22 20 23 23 23 23 23 23 23 |A;:.4,." #######|
00001890: 22 3B 55 24 3B 00 B5 58 14 0A 98 34 2C FB 22 23 |";U$;..X...4,."#|
000018A0: 23 23 23 23 23 23 23 2E 23 20 20 20 20 20 20 20 |#######.# |
000018B0: 20 22 3B 43 3B 00 C9 58 1E 0A 98 34 2C FB 22 23 | ";C;..X...4,."#|
000018C0: 23 23 23 23 2E 23 22 3B 42 00 DB 58 28 0A EC 3A |####.#";B..X(..:|
000018D0: 8B 45 50 24 B2 45 24 20 A7 20 ED 00 E1 58 32 0A |.EP$.E$ . ...X2.|
000018E0: 3A 00 F6 58 3C 0A 98 34 2C 53 34 24 C8 28 53 50 |:..X<..4,S4$.(SP|
000018F0: 24 2C 4C 4D 29 3B 00 33 59 46 0A DD 22 2E 22 3A |$,LM);.3YF..".":|
00001900: 98 34 2C FB 22 20 CD 45 41 4C 20 54 4F 54 41 4C |.4,." .EAL TOTAL|
00001910: 53 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |S###############|
00001920: 23 23 23 23 23 23 23 23 23 23 23 23 2E 23 20 22 |############.# "|
00001930: 3B 42 3B 00 56 59 50 0A 98 34 2C FB 22 23 23 23 |;B;.VYP..4,."###|
00001940: 23 23 23 23 23 23 23 23 23 2E 23 22 3B 41 3A 98 |#########.#";A:.|
00001950: 34 3A DD 22 20 22 00 5C 59 5A 0A 82 00 62 59 64 |4:." ".\YZ...bYd|
00001960: 0A 3A 00 76 59 6E 0A 84 32 2C 5A 24 2C 41 2C 42 |.:.vYn..2,Z$,A,B|
00001970: 2C 43 2C 43 48 24 00 8B 59 78 0A 98 34 2C 53 34 |,C,CH$..Yx..4,S4|
00001980: 24 C8 28 53 50 24 2C 4C 4D 29 3B 00 CD 59 82 0A |$.(SP$,LM);..Y..|
00001990: DD 22 2E 22 3A 98 34 2C FB 20 53 34 24 AA 22 20 |.".":.4,. S4$." |
000019A0: C4 41 59 20 54 4F 54 41 4C 53 23 23 23 23 23 23 |.AY TOTALS######|
000019B0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000019C0: 23 23 23 23 23 23 2E 23 20 22 3B 42 3B 00 ED 59 |######.# ";B;..Y|
000019D0: 8C 0A 98 34 2C FB 22 23 23 23 23 23 23 23 23 23 |...4,."#########|
000019E0: 23 23 23 2E 23 22 3B 41 3A DD 22 20 22 00 06 5A |###.#";A:." "..Z|
000019F0: 96 0A 8B 53 32 24 B2 22 50 22 A7 98 34 3A 98 34 |...S2$."P"..4:.4|
00001A00: 3A 89 32 37 33 30 00 3C 5A A0 0A 8B 53 50 B2 33 |:.2730.<Z...SP.3|
00001A10: A7 99 2C 2C 2C 22 9D 9D 9D 9D 20 D0 52 45 53 53 |..,,,".... .RESS|
00001A20: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT|
00001A30: 49 4E 55 45 20 22 3A A1 F9 41 4E 24 00 42 5A AA |INUE ":..AN$.BZ.|
00001A40: 0A EC 00 48 5A B4 0A 3A 00 5F 5A BE 0A 8B 50 52 |...HZ..:._Z...PR|
00001A50: 24 B2 22 44 22 AF 50 52 B2 30 A7 32 33 35 30 00 |$."D".PR.0.2350.|
00001A60: 66 5A C8 0A A0 32 00 86 5A D2 0A 8B 50 52 24 B2 |fZ...2..Z...PR$.|
00001A70: 22 41 22 AF 50 31 B3 31 32 AF 45 50 24 B3 B1 45 |"A".P1.12.EP$..E|
00001A80: 24 A7 32 32 38 30 00 8D 5A DC 0A A0 34 00 A2 5A |$.2280..Z...4..Z|
00001A90: E6 0A 99 45 24 22 52 22 45 24 22 4D 22 3A 9E 20 |...E$"R"E$"M":. |
00001AA0: 57 52 00 A8 5A F0 0A 8E 00 AE 5A FA 0A 3A 00 C2 |WR..Z.....Z..:..|
00001AB0: 5A 04 0B 8F 20 43 48 41 52 54 20 43 41 4C 2F 43 |Z... CHART CAL/C|
00001AC0: 48 4C 00 D9 5A 0E 0B 81 54 B2 31 A4 33 31 3A 54 |HL..Z...T.1.31:T|
00001AD0: 43 28 54 29 B2 AB 31 3A 82 00 F1 5A 18 0B 4C 4D |C(T)..1:...Z..LM|
00001AE0: B2 4C 4D AB 31 30 3A 8B 4C 4D B3 30 A7 4C 4D B2 |.LM.10:.LM.0.LM.|
00001AF0: 30 00 08 5B 22 0B 8B 53 50 B2 33 A7 99 45 24 22 |0..["..SP.3..E$"|
00001B00: 4E 22 45 24 22 4D 22 3B 00 1F 5B 2C 0B 9F 31 2C |N"E$"M";..[,..1,|
00001B10: 53 50 2C 37 3A 98 31 2C 50 49 24 28 32 29 3B 00 |SP,7:.1,PI$(2);.|
00001B20: 66 5B 36 0B 98 31 2C C8 28 53 50 24 2C 4C 4D AA |f[6..1,.(SP$,LM.|
00001B30: 31 36 29 3B 22 C3 41 4C 4F 52 49 45 2F C3 48 4F |16);".ALORIE/.HO|
00001B40: 4C 45 53 54 45 52 4F 4C 20 C3 48 41 52 54 20 46 |LESTEROL .HART F|
00001B50: 4F 52 20 22 44 41 24 28 30 2C 44 41 28 30 29 29 |OR "DA$(0,DA(0))|
00001B60: 3B C4 28 59 52 29 00 B3 5B 40 0B 98 31 2C C8 28 |;.(YR)..[@..1,.(|
00001B70: 53 50 24 2C 4C 4D AA 39 29 3B 22 C5 41 43 48 20 |SP$,LM.9);".ACH |
00001B80: 44 4F 54 20 52 45 50 52 45 53 45 4E 54 53 20 31 |DOT REPRESENTS 1|
00001B90: 30 30 20 43 41 4C 4F 52 49 45 53 20 2F 20 32 30 |00 CALORIES / 20|
00001BA0: 20 4D 47 20 4F 46 20 43 48 4F 4C 45 53 54 45 52 | MG OF CHOLESTER|
00001BB0: 4F 4C 22 00 EA 5B 4A 0B 98 31 3A 98 31 2C C8 28 |OL"..[J..1:.1,.(|
00001BC0: 53 50 24 2C 4C 4D AA 32 30 29 22 C3 41 4C 4F 52 |SP$,LM.20)".ALOR|
00001BD0: 49 45 53 22 C8 28 53 50 24 2C 33 30 29 22 C3 48 |IES".(SP$,30)".H|
00001BE0: 4F 4C 45 53 54 45 52 4F 4C 22 00 4D 5C 54 0B 98 |OLESTEROL".M\T..|
00001BF0: 31 2C C8 28 53 50 24 2C 4C 4D 29 3B 22 C4 41 59 |1,.(SP$,LM);".AY|
00001C00: 20 20 20 35 30 30 20 31 30 30 30 20 31 35 30 30 | 500 1000 1500|
00001C10: 20 32 30 30 30 20 32 35 30 30 20 33 30 30 30 20 | 2000 2500 3000 |
00001C20: 33 35 30 30 20 20 20 20 20 C4 41 59 20 20 20 31 |3500 .AY 1|
00001C30: 30 30 20 20 32 30 30 20 20 33 30 30 20 20 34 30 |00 200 300 40|
00001C40: 30 20 20 35 30 30 20 20 36 30 30 20 22 00 60 5C |0 500 600 ".`\|
00001C50: 5E 0B 8B 53 50 B2 33 A7 99 45 24 22 54 95 22 3B |^..SP.3..E$"T.";|
00001C60: 00 7B 5C 68 0B 9F 32 2C 44 56 2C 32 2C 22 44 2E |.{\h..2,DV,2,"D.|
00001C70: 22 AA 4D 4E 24 AA C4 28 59 52 29 00 92 5C 72 0B |".MN$..(YR)..\r.|
00001C80: 50 B2 30 3A 54 43 B2 30 3A 54 48 B2 30 3A 43 43 |P.0:TC.0:TH.0:CC|
00001C90: B2 30 00 98 5C 7C 0B 3A 00 AC 5C 86 0B EB 3A 84 |.0..\|.:..\...:.|
00001CA0: 32 2C 44 41 24 3A 8B 53 54 20 A7 ED 00 BE 5C 90 |2,DA$:.ST ....\.|
00001CB0: 0B 44 B2 C5 28 CA 28 44 41 24 2C 34 29 29 00 CA |.D..(.(DA$,4))..|
00001CC0: 5C 9A 0B 81 4D 45 B2 30 A4 33 00 E1 5C A4 0B EB |\...ME.0.3..\...|
00001CD0: 3A 84 32 2C 41 24 3A EC 20 FC 20 41 24 B2 22 3D |:.2,A$:. . A$."=|
00001CE0: 22 00 E7 5C AE 0B 82 00 F5 5C B8 0B 84 32 2C 41 |"..\.....\...2,A|
00001CF0: 3A 84 32 2C 42 00 16 5D C2 0B 54 43 28 44 29 B2 |:.2,B..]..TC(D).|
00001D00: B5 28 41 AD 31 30 30 29 3A 54 48 28 44 29 B2 B5 |.(A.100):TH(D)..|
00001D10: 28 42 AD 32 30 29 00 25 5D CC 0B 84 32 2C 43 3A |(B.20).%]...2,C:|
00001D20: 84 32 2C 41 24 00 2B 5D D6 0B EC 00 31 5D E0 0B |.2,A$.+]....1]..|
00001D30: 3A 00 38 5D EA 0B A0 32 00 44 5D F4 0B 81 44 B2 |:.8]...2.D]...D.|
00001D40: 31 A4 33 31 00 58 5D FE 0B 8B 54 43 28 44 29 B2 |1.31.X]...TC(D).|
00001D50: AB 31 20 A7 33 31 32 30 00 7C 5D 08 0C 54 43 B2 |.1 .3120.|]..TC.|
00001D60: 54 43 AA 54 43 28 44 29 3A 54 48 B2 54 48 AA 54 |TC.TC(D):TH.TH.T|
00001D70: 48 28 44 29 3A 43 43 B2 43 43 AA 31 00 CA 5D 12 |H(D):CC.CC.1..].|
00001D80: 0C 53 43 24 28 43 43 29 B2 C8 28 53 50 24 2C 4C |.SC$(CC)..(SP$,L|
00001D90: 4D 29 AA C9 28 22 20 22 AA C4 28 44 29 2C 32 29 |M)..(" "..(D),2)|
00001DA0: AA 22 20 22 AA C8 28 C8 28 44 24 2C 54 43 28 44 |." "..(.(D$,TC(D|
00001DB0: 29 29 AA CA 28 53 44 24 2C 54 43 28 44 29 AA 31 |))..(SD$,TC(D).1|
00001DC0: 29 2C 33 39 29 AA 22 20 20 22 00 11 5E 1C 0C 53 |),39)." "..^..S|
00001DD0: 43 24 28 43 43 29 B2 53 43 24 28 43 43 29 AA C9 |C$(CC).SC$(CC)..|
00001DE0: 28 22 20 22 AA C4 28 44 29 2C 32 29 AA 22 20 22 |(" "..(D),2)." "|
00001DF0: AA C8 28 C8 28 44 24 2C 54 48 28 44 29 29 AA CA |..(.(D$,TH(D))..|
00001E00: 28 53 44 24 2C 54 48 28 44 29 AA 31 29 2C 33 33 |(SD$,TH(D).1),33|
00001E10: 29 00 20 5E 26 0C 98 31 2C 53 43 24 28 43 43 29 |). ^&..1,SC$(CC)|
00001E20: 00 26 5E 30 0C 82 00 37 5E 3A 0C 53 43 24 28 43 |.&^0...7^:.SC$(C|
00001E30: 43 AA 31 29 B2 22 22 00 83 5E 44 0C 53 43 24 28 |C.1).""..^D.SC$(|
00001E40: 43 43 AA 32 29 B2 C8 28 53 50 24 2C 4C 4D 29 AA |CC.2)..(SP$,LM).|
00001E50: 22 C1 56 45 52 41 47 45 20 44 41 49 4C 59 20 43 |".VERAGE DAILY C|
00001E60: 41 4C 4F 52 49 43 20 49 4E 54 41 4B 45 20 57 41 |ALORIC INTAKE WA|
00001E70: 53 20 22 AA C4 28 B5 28 54 43 AD 43 43 AC 31 30 |S "..(.(TC.CC.10|
00001E80: 30 29 29 00 97 5E 4E 0C 98 31 3A 98 31 2C 53 43 |0))..^N..1:.1,SC|
00001E90: 24 28 43 43 AA 32 29 00 E6 5E 58 0C 53 43 24 28 |$(CC.2)..^X.SC$(|
00001EA0: 43 43 AA 33 29 B2 C8 28 53 50 24 2C 4C 4D 29 AA |CC.3)..(SP$,LM).|
00001EB0: 22 C1 56 45 52 41 47 45 20 44 41 49 4C 59 20 43 |".VERAGE DAILY C|
00001EC0: 48 4F 4C 45 53 54 45 52 4F 4C 20 49 4E 54 41 4B |HOLESTEROL INTAK|
00001ED0: 45 20 57 41 53 20 22 AA C4 28 B5 28 54 48 AD 43 |E WAS "..(.(TH.C|
00001EE0: 43 AC 32 30 29 29 00 F7 5E 62 0C 98 31 2C 53 43 |C.20))..^b..1,SC|
00001EF0: 24 28 43 43 AA 33 29 00 FE 5E 6C 0C 98 31 00 1A |$(CC.3)..^l..1..|
00001F00: 5F 76 0C 8B 53 50 B2 33 A7 FE 18 3A 97 32 34 38 |_v..SP.3...:.248|
00001F10: 2C C2 28 32 34 38 29 B0 36 34 00 64 5F 80 0C E0 |,.(248).64.d_...|
00001F20: 2C 31 32 2C 31 39 2C 22 9E D5 53 45 20 43 55 52 |,12,19,"..SE CUR|
00001F30: 53 4F 52 20 55 50 2F 44 4F 57 4E 20 54 4F 20 52 |SOR UP/DOWN TO R|
00001F40: 45 56 49 45 57 20 4C 49 53 54 2E 20 20 D0 52 45 |EVIEW LIST. .RE|
00001F50: 53 53 20 C5 D3 C3 41 50 45 20 54 4F 20 45 58 49 |SS ...APE TO EXI|
00001F60: 54 2E 95 22 00 74 5F 8A 0C FE 1A 30 2C 35 2C 37 |T..".t_....0,5,7|
00001F70: 39 2C 32 33 00 8C 5F 94 0C 54 58 B2 43 43 AB 31 |9,23.._..TX.CC.1|
00001F80: 38 3A 8B 54 58 B3 30 A7 54 58 B2 31 00 AE 5F 9E |8:.TX.0.TX.1.._.|
00001F90: 0C EB 3A A1 F9 20 41 24 3A 8B D4 28 22 91 11 22 |..:.. A$:..(".."|
00001FA0: AA 45 24 2C 41 24 29 B2 30 A7 33 32 33 30 00 BB |.E$,A$).0.3230..|
00001FB0: 5F A8 0C 8B 41 24 B2 45 24 A7 ED 00 D5 5F B2 0C |_...A$.E$...._..|
00001FC0: 8B 41 24 B2 22 91 22 A7 FE 18 3A 8B 54 58 B2 31 |.A$."."...:.TX.1|
00001FD0: A7 33 33 31 30 00 F6 5F BC 0C 54 58 B2 54 58 AB |.3310.._..TX.TX.|
00001FE0: 31 3A E0 2C 30 2C 30 2C 45 24 AA 22 57 22 AA 53 |1:.,0,0,E$."W".S|
00001FF0: 43 24 28 54 58 29 00 FD 5F C6 0C FE 19 00 18 60 |C$(TX).._......`|
00002000: D0 0C 8B 41 24 B2 22 11 22 A7 FE 18 3A 8B 54 58 |...A$."."...:.TX|
00002010: B1 32 31 A7 33 33 31 30 00 3D 60 DA 0C 54 58 B2 |.21.3310.=`..TX.|
00002020: 54 58 AA 31 3A E0 2C 30 2C 31 38 2C 45 24 AA 22 |TX.1:.,0,18,E$."|
00002030: 56 22 AA 53 43 24 28 54 58 AA 31 38 29 00 44 60 |V".SC$(TX.18).D`|
00002040: E4 0C FE 19 00 4A 60 EE 0C EC 00 51 60 F8 0C FE |.....J`....Q`...|
00002050: 19 00 58 60 02 0D A0 31 00 62 60 0C 0D 89 32 37 |..X`...1.b`...27|
00002060: 39 30 00 68 60 16 0D 3A 00 82 60 20 0D 8F 20 43 |90.h`..:..` .. C|
00002070: 48 41 4E 47 45 20 50 52 49 4E 54 45 52 20 49 4E |HANGE PRINTER IN|
00002080: 46 4F 00 B2 60 2A 0D E0 2C 35 2C 31 32 2C 22 C1 |FO..`*..,5,12,".|
00002090: 52 45 20 59 4F 55 20 53 55 52 45 3F 20 20 D9 2F |RE YOU SURE? ./|
000020A0: CE 22 3A A1 F9 41 24 3A 8B 41 24 B3 B1 22 59 22 |.":..A$:.A$.."Y"|
000020B0: A7 8E 00 DB 60 34 0D 99 45 24 22 4C 22 45 24 22 |....`4..E$"L"E$"|
000020C0: 4E 13 13 93 05 22 3A 81 54 32 B2 30 A4 33 3A 50 |N....":.T2.0.3:P|
000020D0: 49 24 28 54 32 29 B2 22 22 3A 82 00 F8 60 3E 0D |I$(T2)."":...`>.|
000020E0: F2 22 46 43 2E 50 52 49 4E 54 45 52 2E 49 4E 46 |."FC.PRINTER.INF|
000020F0: 4F 22 2C 55 28 44 56 29 00 13 61 48 0D 8D 35 35 |O",U(DV)..aH..55|
00002100: 30 30 3A 99 45 24 22 4D 22 45 24 22 52 22 3A 9E |00:.E$"M"E$"R":.|
00002110: 20 57 52 00 19 61 52 0D 8E 00 1F 61 5C 0D 3A 00 | WR..aR....a\.:.|
00002120: 30 61 66 0D 8F 20 52 45 53 45 54 20 44 41 54 45 |0af.. RESET DATE|
00002130: 00 3B 61 70 0D 89 20 35 30 37 30 00 41 61 7A 0D |.;ap.. 5070.Aaz.|
00002140: 3A 00 55 61 84 0D 8F 20 43 4C 45 41 52 20 45 4E |:.Ua... CLEAR EN|
00002150: 54 52 49 45 53 00 74 61 8E 0D 99 22 90 13 13 22 |TRIES.ta..."..."|
00002160: 3A E0 2C 30 2C 32 34 2C 45 24 AA 22 51 22 3A 8D |:.,0,24,E$."Q":.|
00002170: 34 34 30 30 00 7E 61 98 0D 89 31 38 33 30 00 84 |4400.~a...1830..|
00002180: 61 A2 0D 3A 00 A1 61 AC 0D 3A 20 20 20 20 8F 20 |a..:..a..: . |
00002190: 4C 4F 41 44 20 46 4F 52 4D 45 52 20 45 4E 54 52 |LOAD FORMER ENTR|
000021A0: 59 00 B7 61 B6 0D 8D 20 35 30 37 30 3A 8F 20 53 |Y..a... 5070:. S|
000021B0: 45 54 20 44 41 54 45 00 D2 61 C0 0D 9F 32 2C 44 |ET DATE..a...2,D|
000021C0: 56 2C 32 2C 22 44 2E 22 AA 4D 4E 24 AA C4 28 59 |V,2,"D.".MN$..(Y|
000021D0: 52 29 00 EB 61 CA 0D 8B 44 53 20 A7 20 FE 15 20 |R)..a...DS . .. |
000021E0: 55 28 44 56 29 3A 89 33 37 34 30 00 F1 61 D4 0D |U(DV):.3740..a..|
000021F0: 3A 00 0A 62 DE 0D 84 32 2C 44 5A 24 3A 8B 44 5A |:..b...2,DZ$:.DZ|
00002200: 24 B2 44 54 24 A7 33 35 39 30 00 19 62 E8 0D 8B |$.DT$.3590..b...|
00002210: 53 54 B1 30 A7 33 37 34 30 00 34 62 F2 0D EB 3A |ST.0.3740.4b...:|
00002220: 84 32 2C 41 24 3A EC FC 41 24 B2 22 BA 22 3A 89 |.2,A$:..A$.".":.|
00002230: 33 35 35 30 00 3A 62 FC 0D 3A 00 52 62 06 0E 54 |3550.:b..:.Rb..T|
00002240: B2 30 3A 4D 45 B2 30 3A 49 54 B2 30 3A 8D 33 37 |.0:ME.0:IT.0:.37|
00002250: 36 30 00 68 62 10 0E EB 3A 84 32 2C 54 24 3A 8B |60.hb...:.2,T$:.|
00002260: 54 24 B2 22 BA 22 A7 ED 00 90 62 1A 0E 4D 45 24 |T$."."....b..ME$|
00002270: 28 54 29 B2 54 24 3A 8B 54 24 B2 4E 4E 24 28 4D |(T).T$:.T$.NN$(M|
00002280: 45 29 A7 49 54 B2 49 54 AA 31 3A 89 33 37 31 30 |E).IT.IT.1:.3710|
00002290: 00 9F 62 24 0E 8B 54 24 B2 22 3D 22 A7 FE 18 00 |..b$..T$."="....|
000022A0: B8 62 2E 0E 84 32 2C 53 42 3A 84 32 2C 53 48 3A |.b...2,SB:.2,SH:|
000022B0: 84 32 2C 4E 55 4C 4C 24 00 E0 62 38 0E 8B 4D 45 |.2,NULL$..b8..ME|
000022C0: B2 33 A7 99 22 13 13 12 22 3B 3A E0 2C 35 31 2C |.3.."...";:.,51,|
000022D0: 32 34 2C 22 22 3A D5 20 E0 2C 30 2C 37 2C 22 22 |24,"":. .,0,7,""|
000022E0: 00 17 63 42 0E 99 FB 22 23 23 23 23 22 3B 53 48 |..cB..."####";SH|
000022F0: 3B 3A 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |;:."............|
00002300: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 99 FB 22 23 |.........";:.."#|
00002310: 23 23 23 22 3B 53 42 00 34 63 4C 0E 49 54 B2 30 |###";SB.4cL.IT.0|
00002320: 3A 4D 45 B2 4D 45 AA 31 3A 8B 4D 45 B3 33 A7 8D |:ME.ME.1:.ME.3..|
00002330: 33 37 36 30 00 3E 63 56 0E 89 33 37 31 30 00 45 |3760.>cV..3710.E|
00002340: 63 60 0E FE 19 00 61 63 6A 0E 84 32 2C 51 59 3A |c`....acj..2,QY:|
00002350: 84 32 2C 43 59 3A 84 32 2C 43 5A 3A 84 32 2C 55 |.2,CY:.2,CZ:.2,U|
00002360: 24 00 AE 63 74 0E E0 2C 30 2C 49 54 2C 4D 45 24 |$..ct..,0,IT,ME$|
00002370: 28 54 29 3A E0 2C 31 35 2C 49 54 2C C8 28 C4 28 |(T):.,15,IT,.(.(|
00002380: 51 59 29 AA 22 20 22 AA 55 24 2C 38 29 3A E0 2C |QY)." ".U$,8):.,|
00002390: 32 35 2C 49 54 2C C9 28 22 20 20 20 22 AA C4 28 |25,IT,.(" "..(|
000023A0: 43 59 29 2C 34 29 3A 49 54 B2 49 54 AA 31 00 BA |CY),4):IT.IT.1..|
000023B0: 63 7E 0E 54 B2 54 AA 31 3A EC 00 C7 63 88 0E A0 |c~.T.T.1:...c...|
000023C0: 32 3A 89 31 38 33 30 00 CD 63 92 0E 3A 00 F8 63 |2:.1830..c..:..c|
000023D0: 9C 0E 57 B2 34 3A 8D 35 37 36 30 3A E0 2C 39 2C |..W.4:.5760:.,9,|
000023E0: 38 2C 22 07 CE 4F 54 20 46 4F 55 4E 44 22 3A FE |8,"..OT FOUND":.|
000023F0: 0B 32 3A 89 33 37 32 30 00 FE 63 A6 0E 3A 00 0D |.2:.3720..c..:..|
00002400: 64 B0 0E 57 B2 4D 45 3A 8D 35 37 36 30 00 2A 64 |d..W.ME:.5760.*d|
00002410: BA 0E 81 4C B2 31 A4 36 3A E0 2C 30 2C 4C 2C C8 |...L.1.6:.,0,L,.|
00002420: 28 4C 49 24 2C 33 30 29 3A 82 00 66 64 C4 0E E0 |(LI$,30):..fd...|
00002430: 2C 30 2C 36 2C 22 C3 48 4C 53 22 3A E0 2C 32 35 |,0,6,".HLS":.,25|
00002440: 2C 36 2C 22 C3 41 4C 53 20 20 20 20 3A 20 20 20 |,6,".ALS : |
00002450: 20 20 D3 55 42 54 4F 54 41 4C 53 20 20 20 20 20 | .UBTOTALS |
00002460: 3A 20 20 20 20 22 00 6C 64 CE 0E 8E 00 72 64 D8 |: ".ld....rd.|
00002470: 0E 3A 00 85 64 E2 0E 8F 20 44 45 4C 45 54 45 20 |.:..d... DELETE |
00002480: 45 4E 54 52 59 00 B5 64 EC 0E E0 2C 35 2C 31 32 |ENTRY..d...,5,12|
00002490: 2C 22 C1 52 45 20 59 4F 55 20 53 55 52 45 3F 20 |,".RE YOU SURE? |
000024A0: 20 D9 2F CE 22 3A A1 F9 41 24 3A 8B 41 24 B3 B1 | ./.":..A$:.A$..|
000024B0: 22 59 22 A7 8E 00 DF 64 F6 0E 9F 32 2C 44 56 2C |"Y"....d...2,DV,|
000024C0: 32 2C 22 44 2E 22 AA 4D 4E 24 AA C4 28 59 52 29 |2,"D.".MN$..(YR)|
000024D0: 3A 8B 44 53 A7 FE 15 20 55 28 44 56 29 3A 8E 00 |:.DS... U(DV):..|
000024E0: 1A 65 00 0F 9F 33 2C 44 56 2C 33 2C 22 54 45 4D |.e...3,DV,3,"TEM|
000024F0: 50 2C 53 2C 57 22 3A 8B 44 53 B2 36 33 A7 FE 15 |P,S,W":.DS.63...|
00002500: 20 55 28 44 56 29 3A F2 22 54 45 4D 50 22 2C 55 | U(DV):."TEMP",U|
00002510: 28 44 56 29 3A 89 33 38 33 30 00 2D 65 0A 0F 8B |(DV):.3830.-e...|
00002520: 44 53 A7 FE 15 20 55 28 44 56 29 3A 8E 00 33 65 |DS... U(DV):..3e|
00002530: 14 0F EB 00 46 65 1E 0F 84 32 2C 44 41 24 3A 8B |....Fe...2,DA$:.|
00002540: 53 54 20 A7 20 ED 00 6D 65 28 0F 8B 44 41 24 B2 |ST . ..me(..DA$.|
00002550: 44 54 24 A7 20 EB 3A 84 32 2C 41 24 3A EC 20 FC |DT$. .:.2,A$:. .|
00002560: 20 41 24 B2 22 BA 22 3A 89 33 38 37 30 00 7E 65 | A$.".":.3870.~e|
00002570: 32 0F 98 33 2C C7 28 33 34 29 3B 44 41 24 00 9C |2..3,.(34);DA$..|
00002580: 65 3C 0F 81 4D 45 B2 30 A4 32 3A 84 32 2C 41 24 |e<..ME.0.2:.2,A$|
00002590: 3A 98 33 2C C7 28 33 34 29 3B 41 24 00 A2 65 46 |:.3,.(34);A$..eF|
000025A0: 0F EB 00 B8 65 50 0F 84 32 2C 41 24 3A 98 33 2C |....eP..2,A$:.3,|
000025B0: C7 28 33 34 29 3B 41 24 00 E4 65 5A 0F 8D 34 30 |.(34);A$..eZ..40|
000025C0: 36 30 3A 8F 20 47 52 41 42 20 41 4E 44 20 50 52 |60:. GRAB AND PR|
000025D0: 49 4E 54 20 33 20 4E 55 4D 45 52 49 43 20 56 41 |INT 3 NUMERIC VA|
000025E0: 4C 55 45 53 00 F3 65 64 0F 8B 20 41 24 B2 22 3D |LUES..ed.. A$."=|
000025F0: 22 A7 ED 00 09 66 6E 0F 84 32 2C 41 24 3A 98 33 |"....fn..2,A$:.3|
00002600: 2C C7 28 33 34 29 3B 41 24 00 0F 66 78 0F EC 00 |,.(34);A$..fx...|
00002610: 15 66 82 0F 82 00 2B 66 8C 0F 84 32 2C 41 24 3A |.f....+f...2,A$:|
00002620: 98 33 2C 41 24 3A 8D 34 30 36 30 00 3B 66 96 0F |.3,A$:.4060.;f..|
00002630: 84 32 2C 41 24 3A 98 33 2C 41 24 00 41 66 A0 0F |.2,A$:.3,A$.Af..|
00002640: EC 00 4B 66 AA 0F A0 32 3A A0 33 00 65 66 B4 0F |..Kf...2:.3.ef..|
00002650: F2 22 44 2E 22 AA 4D 4E 24 AA C4 28 59 52 29 2C |."D.".MN$..(YR),|
00002660: 55 28 44 56 29 00 89 66 BE 0F F5 20 22 54 45 4D |U(DV)..f... "TEM|
00002670: 50 22 20 A4 20 22 44 2E 22 AA 4D 4E 24 AA C4 28 |P" . "D.".MN$..(|
00002680: 59 52 29 2C 55 28 44 56 29 00 93 66 C8 0F 89 33 |YR),U(DV)..f...3|
00002690: 34 37 30 00 99 66 D2 0F 3A 00 A7 66 DC 0F 84 32 |470..f..:..f...2|
000026A0: 2C 41 3A 98 33 2C 41 00 B5 66 E6 0F 84 32 2C 41 |,A:.3,A..f...2,A|
000026B0: 3A 98 33 2C 41 00 C3 66 F0 0F 84 32 2C 41 3A 98 |:.3,A..f...2,A:.|
000026C0: 33 2C 41 00 C9 66 FA 0F 8E 00 E3 66 04 10 3A 20 |3,A..f.....f..: |
000026D0: 20 20 20 8F 20 56 41 52 49 41 42 4C 45 20 53 45 | . VARIABLE SE|
000026E0: 54 55 50 00 F0 66 0E 10 45 24 B2 C7 28 32 37 29 |TUP..f..E$..(27)|
000026F0: 00 FF 66 18 10 45 51 24 B2 45 24 AA 22 51 22 00 |..f..EQ$.E$."Q".|
00002700: 0D 67 22 10 43 52 24 B2 C7 28 31 33 29 00 1B 67 |.g".CR$..(13)..g|
00002710: 2C 10 44 45 24 B2 C7 28 32 30 29 00 2A 67 36 10 |,.DE$..(20).*g6.|
00002720: 45 56 24 B2 45 24 AA 22 56 22 00 39 67 40 10 45 |EV$.E$."V".9g@.E|
00002730: 57 24 B2 45 24 AA 22 57 22 00 62 67 4A 10 4C 4D |W$.E$."W".bgJ.LM|
00002740: 24 B2 22 31 32 33 34 35 36 37 38 39 20 22 3A 4C |$."123456789 ":L|
00002750: 4D 24 B2 4C 4D 24 AA 4C 4D 24 AA 4C 4D 24 AA 4C |M$.LM$.LM$.LM$.L|
00002760: 4D 24 00 8F 67 54 10 55 4E 24 B2 C7 28 32 29 3A |M$..gT.UN$..(2):|
00002770: 55 46 24 B2 C7 28 31 33 30 29 3A 55 43 24 B2 C7 |UF$..(130):UC$..|
00002780: 28 31 34 32 29 3A 4C 43 24 B2 C7 28 31 34 29 00 |(142):LC$..(14).|
00002790: A8 67 5E 10 46 4F 24 B2 C7 28 31 35 29 3A 46 46 |.g^.FO$..(15):FF|
000027A0: 24 B2 C7 28 31 34 33 29 00 01 68 68 10 81 54 B2 |$..(143)..hh..T.|
000027B0: 31 A4 32 30 3A 4C 49 24 B2 4C 49 24 AA 22 A4 A4 |1.20:LI$.LI$."..|
000027C0: A4 A4 A4 22 3A 53 50 24 B2 53 50 24 AA 22 20 20 |...":SP$.SP$." |
000027D0: 20 20 22 3A 50 44 24 B2 50 44 24 AA 22 23 23 23 | ":PD$.PD$."###|
000027E0: 23 22 3A 44 24 B2 44 24 AA 22 2E 2E 2E 2E 22 3A |#":D$.D$."....":|
000027F0: 53 44 24 B2 53 44 24 AA 22 20 20 20 20 DD 22 3A |SD$.SD$." .":|
00002800: 82 00 1F 68 72 10 4E 4F 24 B2 C8 28 4C 49 24 2C |...hr.NO$..(LI$,|
00002810: 32 38 29 3A 4C 49 24 B2 55 4E 24 AA 4C 49 24 00 |28):LI$.UN$.LI$.|
00002820: 25 68 7C 10 3A 00 8D 68 86 10 49 4E 24 B2 22 41 |%h|.:..h..IN$."A|
00002830: 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 |BCDEFGHIJKLMNOPQ|
00002840: 52 53 54 55 56 57 58 59 5A C1 C2 C3 C4 C5 C6 C7 |RSTUVWXYZ.......|
00002850: C8 C9 CA CB CC CD CE CF D0 D1 D2 D3 D4 D5 D6 D7 |................|
00002860: D8 D9 DA 31 32 33 34 35 36 37 38 39 30 21 23 24 |...1234567890!#$|
00002870: 25 26 27 28 29 2B 2D 2C 2E 2F 3A 3B 3D 40 2A 5E |%&'()+-,./:;=@*^|
00002880: 20 22 AA 44 45 24 AA 43 52 24 AA 45 24 00 B9 68 | ".DE$.CR$.E$..h|
00002890: 90 10 4B 32 24 B2 22 13 5C 2B 2D 11 91 5F 2A 3D |..K2$.".\+-.._*=|
000028A0: 5E 22 AA 43 52 24 AA 45 24 AA C8 28 49 4E 24 2C |^".CR$.E$..(IN$,|
000028B0: 32 36 29 3A 4C 4D B2 31 30 00 E2 68 A4 10 50 4D |26):LM.10..h..PM|
000028C0: 24 28 30 29 B2 22 C9 4E 50 55 54 20 43 4F 44 45 |$(0).".NPUT CODE|
000028D0: 53 20 46 4F 52 20 55 4E 44 45 52 4C 49 4E 49 4E |S FOR UNDERLININ|
000028E0: 47 22 00 13 69 AE 10 50 4D 24 28 31 29 B2 22 C9 |G"..i..PM$(1).".|
000028F0: 4E 50 55 54 20 43 4F 44 45 53 20 54 4F 20 53 48 |NPUT CODES TO SH|
00002900: 55 54 20 55 4E 44 45 52 4C 49 4E 49 4E 47 20 4F |UT UNDERLINING O|
00002910: 46 46 22 00 60 69 B8 10 50 4D 24 28 32 29 B2 22 |FF".`i..PM$(2)."|
00002920: C9 4E 50 55 54 20 43 4F 44 45 53 20 46 4F 52 20 |.NPUT CODES FOR |
00002930: 46 4F 4E 54 20 59 4F 55 20 44 45 53 49 52 45 20 |FONT YOU DESIRE |
00002940: 50 52 49 4E 54 4F 55 54 53 20 49 46 20 4F 54 48 |PRINTOUTS IF OTH|
00002950: 45 52 20 54 48 41 4E 20 44 45 46 41 55 4C 54 22 |ER THAN DEFAULT"|
00002960: 00 8E 69 C2 10 50 4D 24 28 33 29 B2 22 C9 4E 50 |..i..PM$(3).".NP|
00002970: 55 54 20 4C 45 46 54 20 4D 41 52 47 49 4E 20 44 |UT LEFT MARGIN D|
00002980: 45 53 49 52 45 44 20 28 30 2D 34 30 29 22 00 C2 |ESIRED (0-40)"..|
00002990: 69 CC 10 8C 35 39 36 30 3A 57 53 B2 33 33 32 38 |i...5960:WS.3328|
000029A0: 3A 57 52 B2 33 33 33 35 3A 81 54 B2 30 A4 39 32 |:WR.3335:.T.0.92|
000029B0: 3A 87 41 24 3A 97 57 53 AA 54 2C D1 28 41 24 29 |:.A$:.WS.T,.(A$)|
000029C0: 3A 82 00 DD 69 D6 10 8C 35 38 34 30 3A 81 54 B2 |:...i...5840:.T.|
000029D0: 30 A4 34 3A 87 20 46 24 28 54 29 3A 82 00 E3 69 |0.4:. F$(T):...i|
000029E0: E0 10 8E 00 E9 69 EA 10 3A 00 01 6A F4 10 3A 20 |.....i..:..j..: |
000029F0: 20 20 20 8F 20 53 43 52 45 45 4E 20 53 45 54 55 | . SCREEN SETU|
00002A00: 50 00 4E 6A FE 10 8B 20 CE 09 28 32 29 B2 34 30 |P.Nj... ..(2).40|
00002A10: 20 A7 20 FE 26 3A 99 22 93 53 57 49 54 43 48 20 | . .&:.".SWITCH |
00002A20: 54 4F 20 38 30 20 43 4F 4C 55 4D 4E 20 4D 4F 44 |TO 80 COLUMN MOD|
00002A30: 45 20 4F 4E 20 59 4F 55 52 20 4D 4F 4E 49 54 4F |E ON YOUR MONITO|
00002A40: 52 22 45 24 22 58 22 3A FE 0B 32 3A FE 25 00 69 |R"E$"X":..2:.%.i|
00002A50: 6A 03 11 99 45 24 22 4D 22 45 24 22 52 90 13 13 |j...E$"M"E$"R...|
00002A60: 93 1E 22 C7 28 31 34 29 3B 00 90 6A 08 11 54 42 |..".(14);..j..TB|
00002A70: 24 B2 55 43 24 AA 55 4E 24 AA 22 A9 22 AA 22 20 |$.UC$.UN$."."." |
00002A80: 20 20 20 20 20 20 20 20 20 20 DF 22 AA 4C 43 24 | .".LC$|
00002A90: 00 C9 6A 12 11 86 20 46 4F 24 28 34 2C 39 39 39 |..j... FO$(4,999|
00002AA0: 29 2C 44 58 28 32 29 2C 44 41 24 28 32 2C 33 30 |),DX(2),DA$(2,30|
00002AB0: 29 2C 4D 45 24 28 32 35 29 2C 55 4E 24 28 32 35 |),ME$(25),UN$(25|
00002AC0: 29 2C 50 24 28 39 39 39 29 00 00 6B 1C 11 86 20 |),P$(999)..k... |
00002AD0: 4E 4E 24 28 36 29 2C 4E 54 24 28 36 29 2C 58 31 |NN$(6),NT$(6),X1|
00002AE0: 28 36 29 2C 59 31 28 36 29 2C 58 32 28 36 29 2C |(6),Y1(6),X2(6),|
00002AF0: 59 32 28 36 29 2C 43 28 36 29 2C 54 42 28 36 29 |Y2(6),C(6),TB(6)|
00002B00: 00 3D 6B 26 11 86 20 43 59 28 32 35 29 2C 43 5A |.=k&.. CY(25),CZ|
00002B10: 28 32 35 29 2C 51 59 28 32 35 29 2C 53 48 28 33 |(25),QY(25),SH(3|
00002B20: 29 2C 53 42 28 33 29 2C 54 43 28 33 31 29 2C 54 |),SB(3),TC(31),T|
00002B30: 48 28 33 31 29 2C 53 43 24 28 34 30 29 00 47 6B |H(31),SC$(40).Gk|
00002B40: 30 11 8C 35 38 36 30 00 85 6B 3A 11 81 54 B2 30 |0..5860..k:..T.0|
00002B50: A4 36 3A 87 20 4E 54 24 28 54 29 2C 4E 4E 24 28 |.6:. NT$(T),NN$(|
00002B60: 54 29 2C 58 31 28 54 29 2C 59 31 28 54 29 2C 58 |T),X1(T),Y1(T),X|
00002B70: 32 28 54 29 2C 59 32 28 54 29 2C 43 28 54 29 2C |2(T),Y2(T),C(T),|
00002B80: 54 42 28 54 29 00 93 6B 44 11 8B 54 B2 36 A7 34 |TB(T)..kD..T.6.4|
00002B90: 34 36 30 00 C7 6B 4E 11 E7 35 2C 43 28 54 29 3A |460..kN..5,C(T):|
00002BA0: FE 1A 20 58 31 28 54 29 2C 59 31 28 54 29 2C 58 |.. X1(T),Y1(T),X|
00002BB0: 32 28 54 29 2C 59 32 28 54 29 3A E0 2C 30 2C 31 |2(T),Y2(T):.,0,1|
00002BC0: 2C 45 24 AA 22 40 22 00 FA 6B 58 11 E0 2C 54 42 |,E$."@"..kX..,TB|
00002BD0: 28 54 29 2C 30 2C 55 4E 24 AA 55 43 24 AA 22 A9 |(T),0,UN$.UC$.".|
00002BE0: 20 22 AA 4C 43 24 AA 4E 54 24 28 54 29 AA 55 43 | ".LC$.NT$(T).UC|
00002BF0: 24 AA 22 20 DF 22 AA 4C 43 24 00 34 6C 62 11 8B |$." .".LC$.4lb..|
00002C00: 54 B3 34 20 A7 20 81 49 B2 31 A4 20 59 32 28 54 |T.4 . .I.1. Y2(T|
00002C10: 29 AB 59 31 28 54 29 3A E0 2C 30 2C 49 2C C8 28 |).Y1(T):.,0,I,.(|
00002C20: 4C 49 24 2C 58 32 28 54 29 AB 58 31 28 54 29 AA |LI$,X2(T).X1(T).|
00002C30: 32 29 3A 82 00 3A 6C 6C 11 82 00 5A 6C 76 11 81 |2):..:ll...Zlv..|
00002C40: 54 B2 30 A4 32 3A 87 20 44 58 28 54 29 2C 58 3A |T.0.2:. DX(T),X:|
00002C50: 81 49 B2 30 A4 44 58 28 54 29 00 7A 6C 80 11 8B |.I.0.DX(T).zl...|
00002C60: 54 B2 30 20 A7 20 87 20 41 24 3A 44 41 24 28 54 |T.0 . . A$:DA$(T|
00002C70: 2C 49 29 B2 41 24 AA 22 20 22 00 9F 6C 8A 11 8B |,I).A$." "..l...|
00002C80: 54 B2 31 20 A7 20 44 41 24 28 54 2C 49 29 B2 C9 |T.1 . DA$(T,I)..|
00002C90: 28 C4 28 49 AA 58 29 AA 22 2C 20 22 2C 34 29 00 |(.(I.X).", ",4).|
00002CA0: BF 6C 94 11 8B 54 B2 32 20 A7 20 44 41 24 28 54 |.l...T.2 . DA$(T|
00002CB0: 2C 49 29 B2 C9 28 C4 28 49 AA 58 29 2C 34 29 00 |,I)..(.(I.X),4).|
00002CC0: C7 6C 9E 11 82 3A 82 00 D2 6C A8 11 99 22 13 13 |.l...:...l..."..|
00002CD0: 05 22 00 0C 6D B2 11 E0 2C 34 2C 30 2C 22 CD 41 |."..m...,4,0,".A|
00002CE0: 52 4B 20 20 20 20 20 20 20 2F A3 A3 20 2F A3 2F |RK /.. /./|
00002CF0: 20 2F A3 2F 20 2F A3 A5 20 20 20 2F A3 A3 20 2F | /./ /.. /.. /|
00002D00: AA 20 20 2F 20 20 2F A3 A3 22 2C 31 00 47 6D BC |. / /..",1.Gm.|
00002D10: 11 E0 2C 32 2C 31 2C 22 CA 4F 52 44 41 4E 27 53 |..,2,1,".ORDAN'S|
00002D20: 20 20 20 20 2F A3 20 20 2F A4 2F 20 2F A4 2F 20 | /. /./ /./ |
00002D30: 2F A4 2F 20 20 20 2F A4 A4 20 2F A3 AA 20 2F A4 |/./ /.. /.. /.|
00002D40: 20 2F A4 A4 22 2C 31 00 4D 6D D0 11 8E 00 53 6D | /..",1.Mm....Sm|
00002D50: DA 11 3A 00 68 6D E4 11 3A 20 20 20 20 8F 20 4D |..:.hm..: . M|
00002D60: 41 49 4E 20 4D 45 4E 55 00 72 6D EE 11 8D 35 37 |AIN MENU.rm...57|
00002D70: 35 30 00 94 6D F8 11 E0 2C 34 2C 31 2C 22 D0 52 |50..m...,4,1,".R|
00002D80: 45 53 53 20 41 50 50 52 4F 50 52 49 41 54 45 20 |ESS APPROPRIATE |
00002D90: 4B 45 59 22 00 B7 6D 02 12 E0 2C 31 2C 33 2C 22 |KEY"..m...,1,3,"|
00002DA0: 31 20 2D 20 C5 4E 54 45 52 20 D4 4F 44 41 59 27 |1 - .NTER .ODAY'|
00002DB0: 53 20 C4 49 45 54 22 00 DC 6D 0C 12 E0 2C 31 2C |S .IET"..m...,1,|
00002DC0: 34 2C 22 32 20 2D 20 C9 4E 50 55 54 2F C5 44 49 |4,"2 - .NPUT/.DI|
00002DD0: 54 20 C6 4F 4F 44 20 C4 41 54 41 22 00 FC 6D 16 |T .OOD .ATA"..m.|
00002DE0: 12 E0 2C 31 2C 35 2C 22 33 20 2D 20 D0 52 49 4E |..,1,5,"3 - .RIN|
00002DF0: 54 20 C4 49 45 54 20 C9 4E 46 4F 22 00 1A 6E 20 |T .IET .NFO"..n |
00002E00: 12 E0 2C 31 2C 36 2C 22 34 20 2D 20 C3 4C 45 41 |..,1,6,"4 - .LEA|
00002E10: 52 20 C5 4E 54 52 49 45 53 22 00 3E 6E 2A 12 E0 |R .NTRIES".>n*..|
00002E20: 2C 31 2C 37 2C 22 35 20 2D 20 C3 48 41 4E 47 45 |,1,7,"5 - .HANGE|
00002E30: 20 D0 52 49 4E 54 45 52 20 C9 4E 46 4F 22 00 5A | .RINTER .NFO".Z|
00002E40: 6E 34 12 E0 2C 31 2C 38 2C 22 36 20 2D 20 C3 48 |n4..,1,8,"6 - .H|
00002E50: 41 4E 47 45 20 C4 41 54 45 22 00 7D 6E 3E 12 E0 |ANGE .ATE".}n>..|
00002E60: 2C 31 2C 39 2C 22 37 20 2D 20 CC 4F 41 44 20 46 |,1,9,"7 - .OAD F|
00002E70: 4F 52 4D 45 52 20 45 4E 54 52 59 20 22 00 A1 6E |ORMER ENTRY "..n|
00002E80: 48 12 E0 2C 31 2C 31 30 2C 22 38 20 2D 20 C4 45 |H..,1,10,"8 - .E|
00002E90: 4C 45 54 45 20 54 48 49 53 20 45 4E 54 52 59 20 |LETE THIS ENTRY |
00002EA0: 22 00 C4 6E 4D 12 E0 2C 31 2C 31 31 2C 22 39 20 |"..nM..,1,11,"9 |
00002EB0: 2D 20 D1 55 49 54 20 54 4F 20 CC CF C1 C4 D3 D4 |- .UIT TO ......|
00002EC0: C1 D2 20 22 00 CA 6E 52 12 8E 00 D0 6E 5C 12 3A |.. "..nR....n\.:|
00002ED0: 00 E4 6E 66 12 8D 35 37 35 30 3A 20 8F 20 57 49 |..nf..5750: . WI|
00002EE0: 4E 44 4F 57 00 0C 6F 70 12 E0 2C 32 2C 32 2C 22 |NDOW..op..,2,2,"|
00002EF0: 9B 20 C3 55 52 53 4F 52 20 55 50 2F 44 4F 57 4E |. .URSOR UP/DOWN|
00002F00: 20 54 4F 20 43 59 43 4C 45 20 20 22 00 33 6F 7A | TO CYCLE ".3oz|
00002F10: 12 E0 2C 32 2C 33 2C 22 20 2B 2F 2D 20 46 4F 52 |..,2,3," +/- FOR|
00002F20: 20 4E 45 58 54 2F 50 52 45 56 20 57 49 4E 44 4F | NEXT/PREV WINDO|
00002F30: 57 20 22 00 5A 6F 84 12 E0 2C 32 2C 34 2C 22 20 |W ".Zo...,2,4," |
00002F40: C8 4F 4D 45 20 54 4F 20 54 4F 50 3B 20 5C 20 54 |.OME TO TOP; \ T|
00002F50: 4F 20 42 4F 54 54 4F 4D 20 22 00 81 6F 8E 12 E0 |O BOTTOM "..o...|
00002F60: 2C 32 2C 35 2C 22 20 2D D2 C5 D4 D5 D2 CE 20 54 |,2,5," -...... T|
00002F70: 4F 20 53 45 4C 45 43 54 20 49 54 45 4D 20 20 20 |O SELECT ITEM |
00002F80: 22 00 91 6F 98 12 8B 4B 45 B2 31 20 A7 34 38 35 |"..o...KE.1 .485|
00002F90: 30 00 B8 6F A2 12 E0 2C 32 2C 36 2C 22 20 2D D0 |0..o...,2,6," -.|
00002FA0: 52 45 53 53 20 5E 20 54 4F 20 52 45 2D 53 4F 52 |RESS ^ TO RE-SOR|
00002FB0: 54 20 20 20 20 20 20 22 00 DF 6F AC 12 E0 2C 32 |T "..o...,2|
00002FC0: 2C 37 2C 22 20 2D D0 52 45 53 53 20 2A 20 54 4F |,7," -.RESS * TO|
00002FD0: 20 44 45 4C 45 54 45 20 49 54 45 4D 20 20 22 00 | DELETE ITEM ".|
00002FE0: 06 70 B6 12 E0 2C 32 2C 38 2C 22 20 2D D0 52 45 |.p...,2,8," -.RE|
00002FF0: 53 53 20 5F 20 28 41 52 52 4F 57 29 20 54 4F 20 |SS _ (ARROW) TO |
00003000: 53 41 56 45 20 22 00 2D 70 C0 12 E0 2C 32 2C 39 |SAVE ".-p...,2,9|
00003010: 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |," |
00003020: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 55 70 | ".Up|
00003030: CA 12 E0 2C 32 2C 31 30 2C 22 20 20 D0 52 45 53 |...,2,10," .RES|
00003040: 53 20 46 49 52 53 54 20 4C 45 54 54 45 52 20 4F |S FIRST LETTER O|
00003050: 46 20 20 20 22 00 7D 70 D4 12 E0 2C 32 2C 31 31 |F ".}p...,2,11|
00003060: 2C 22 20 20 20 49 54 45 4D 20 46 4F 52 20 46 41 |," ITEM FOR FA|
00003070: 53 54 20 4A 55 4D 50 20 20 20 20 20 22 00 A2 70 |ST JUMP "..p|
00003080: DE 12 E0 2C 34 2C 31 32 2C 22 96 20 D0 52 45 53 |...,4,12,". .RES|
00003090: 53 20 C5 D3 C3 41 50 45 20 54 4F 20 45 58 49 54 |S ...APE TO EXIT|
000030A0: 9B 22 00 A8 70 E8 12 8E 00 CF 70 F2 12 E0 2C 32 |."..p.....p...,2|
000030B0: 2C 36 2C 22 C3 55 52 53 4F 52 20 55 50 2F 44 57 |,6,".URSOR UP/DW|
000030C0: 4E 20 41 44 4A 55 53 54 53 20 30 2E 31 20 22 00 |N ADJUSTS 0.1 ".|
000030D0: F6 70 FC 12 E0 2C 32 2C 37 2C 22 C3 55 52 53 4F |.p...,2,7,".URSO|
000030E0: 52 20 52 54 2F 4C 46 54 20 41 44 4A 55 53 54 53 |R RT/LFT ADJUSTS|
000030F0: 20 31 2E 30 20 22 00 1D 71 06 13 E0 2C 32 2C 38 | 1.0 "..q...,2,8|
00003100: 2C 22 D5 53 45 20 C5 CE D4 C5 D2 20 54 4F 20 53 |,".SE ..... TO S|
00003110: 45 54 20 51 55 41 4E 54 49 54 59 20 22 00 44 71 |ET QUANTITY ".Dq|
00003120: 10 13 E0 2C 32 2C 39 2C 22 20 20 D0 52 45 53 53 |...,2,9," .RESS|
00003130: 20 3D 20 54 4F 20 D4 4F 54 41 4C 20 4D 45 41 4C | = TO .OTAL MEAL|
00003140: 20 20 20 22 00 4E 71 1A 13 89 34 38 31 30 00 54 | ".Nq...4810.T|
00003150: 71 24 13 3A 00 6D 71 2E 13 3A 20 20 20 20 8F 20 |q$.:.mq..: . |
00003160: 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 7D 71 |INPUT ROUTINE.}q|
00003170: 38 13 4E 50 B2 30 3A 4E 50 24 B2 22 22 00 91 71 |8.NP.0:NP$.""..q|
00003180: 42 13 4E 50 B2 C3 28 4E 50 24 29 3A 99 4E 50 24 |B.NP..(NP$):.NP$|
00003190: 3B 00 97 71 4C 13 EB 00 B3 71 56 13 A1 F9 41 24 |;..qL....qV...A$|
000031A0: 3A 8B 20 D4 28 4B 59 24 2C 41 24 29 B2 30 A7 34 |:. .(KY$,A$).0.4|
000031B0: 39 35 30 00 CB 71 60 13 8B 41 24 B2 43 52 24 20 |950..q`..A$.CR$ |
000031C0: B0 20 41 24 B2 45 24 20 A7 20 ED 00 DC 71 6A 13 |. A$.E$ . ...qj.|
000031D0: 8B 41 24 B2 44 45 24 20 A7 20 FE 18 00 F9 71 74 |.A$.DE$ . ....qt|
000031E0: 13 3A 20 4E 50 B2 C3 28 4E 50 24 29 AB 31 3A 8B |.: NP..(NP$).1:.|
000031F0: 4E 50 B3 30 A7 4E 50 B2 30 00 1E 72 7E 13 3A 20 |NP.0.NP.0..r~.: |
00003200: 8B 4E 50 B1 30 20 A7 20 4E 50 24 B2 C8 28 4E 50 |.NP.0 . NP$..(NP|
00003210: 24 2C 4E 50 29 3A D5 20 4E 50 24 B2 22 22 00 2B |$,NP):. NP$."".+|
00003220: 72 88 13 3A 20 89 20 35 30 33 30 00 32 72 92 13 |r..: . 5030.2r..|
00003230: FE 19 00 41 72 9C 13 4E 50 24 B2 4E 50 24 AA 41 |...Ar..NP$.NP$.A|
00003240: 24 00 4A 72 A6 13 99 41 24 3B 00 50 72 B0 13 EC |$.Jr...A$;.Pr...|
00003250: 00 56 72 BA 13 8E 00 66 72 C4 13 3A 20 20 20 20 |.Vr....fr..: |
00003260: 8F 20 44 41 54 45 00 70 72 CE 13 8D 35 37 35 30 |. DATE.pr...5750|
00003270: 00 97 72 D8 13 E0 2C 31 2C 33 2C 22 D5 53 45 20 |..r...,1,3,".SE |
00003280: 43 55 52 53 4F 52 20 4B 45 59 53 20 41 4E 44 20 |CURSOR KEYS AND |
00003290: D2 45 54 55 52 4E 22 00 BA 72 E2 13 E0 2C 33 2C |.ETURN"..r...,3,|
000032A0: 34 2C 22 54 4F 20 53 45 4C 45 43 54 20 43 4F 52 |4,"TO SELECT COR|
000032B0: 52 45 43 54 20 44 41 54 45 22 00 D2 72 EC 13 E0 |RECT DATE"..r...|
000032C0: 2C 38 2C 35 2C 22 CA 41 4E 20 20 31 2C 20 31 39 |,8,5,".AN 1, 19|
000032D0: 39 36 00 DD 72 F6 13 44 54 24 B2 22 22 00 03 73 |96..r..DT$.""..s|
000032E0: 00 14 81 54 B2 30 A4 32 3A 4E B2 30 3A E0 2C 54 |...T.0.2:N.0:.,T|
000032F0: AC 34 AA 38 2C 35 2C 46 4F 24 AA 44 41 24 28 54 |.4.8,5,FO$.DA$(T|
00003300: 2C 4E 29 00 0E 73 0A 14 EB 3A A1 F9 41 24 00 2D |,N)..s...:..A$.-|
00003310: 73 14 14 8B 41 24 B2 22 91 22 A7 4E B2 4E AB 31 |s...A$.".".N.N.1|
00003320: 3A 8B 4E B3 30 A7 4E B2 44 58 28 54 29 00 4C 73 |:.N.0.N.DX(T).Ls|
00003330: 1E 14 8B 41 24 B2 22 11 22 A7 4E B2 4E AA 31 3A |...A$.".".N.N.1:|
00003340: 8B 4E B1 44 58 28 54 29 A7 4E B2 30 00 67 73 28 |.N.DX(T).N.0.gs(|
00003350: 14 E0 2C 54 AC 34 AA 38 2C 35 2C 46 46 24 AA 44 |..,T.4.8,5,FF$.D|
00003360: 41 24 28 54 2C 4E 29 00 76 73 32 14 EC 20 FC 20 |A$(T,N).vs2.. . |
00003370: 41 24 B2 43 52 24 00 93 73 3C 14 44 41 28 54 29 |A$.CR$..s<.DA(T)|
00003380: B2 4E 3A 44 54 24 B2 44 54 24 AA 44 41 24 28 54 |.N:DT$.DT$.DA$(T|
00003390: 2C 4E 29 00 99 73 46 14 82 00 B0 73 50 14 E0 2C |,N)..sF....sP..,|
000033A0: 39 2C 38 2C 22 D2 20 54 4F 20 D2 45 2D 44 4F 22 |9,8,". TO .E-DO"|
000033B0: 00 CD 73 5A 14 A1 F9 41 24 3A 99 45 24 22 50 22 |..sZ...A$:.E$"P"|
000033C0: 3A 8B 41 24 B2 22 52 22 A7 35 30 37 30 00 04 74 |:.A$."R".5070..t|
000033D0: 64 14 4D 4E 24 B2 C8 28 44 54 24 2C 33 29 3A 44 |d.MN$..(DT$,3):D|
000033E0: 59 B2 C5 28 44 41 24 28 31 2C 44 41 28 31 29 29 |Y..(DA$(1,DA(1))|
000033F0: 29 3A 59 52 B2 C5 28 44 41 24 28 32 2C 44 41 28 |):YR..(DA$(2,DA(|
00003400: 32 29 29 29 00 1C 74 6E 14 99 22 13 13 22 3A E0 |2)))..tn.."..":.|
00003410: 2C 33 35 2C 32 33 2C 44 54 24 2C 31 00 22 74 78 |,35,23,DT$,1."tx|
00003420: 14 8E 00 28 74 82 14 3A 00 3D 74 8C 14 3A 20 20 |...(t..:.=t..: |
00003430: 20 20 8F 20 46 4F 4F 44 20 46 49 4C 45 00 7A 74 | . FOOD FILE.zt|
00003440: 96 14 57 B2 35 3A 8D 35 37 36 30 3A E0 2C 30 2C |..W.5:.5760:.,0,|
00003450: 31 2C 45 24 AA 22 40 22 3A E0 2C 34 2C 36 2C 22 |1,E$."@":.,4,6,"|
00003460: CC 4F 41 44 49 4E 47 22 3A E0 2C 33 2C 37 2C 22 |.OADING":.,3,7,"|
00003470: C6 4F 4F 44 20 44 41 54 41 22 00 83 74 A0 14 54 |.OOD DATA"..t..T|
00003480: 46 B2 30 00 D4 74 AA 14 A0 32 3A 9F 32 2C 44 56 |F.0..t...2:.2,DV|
00003490: 2C 32 2C 22 44 2E 46 4F 4F 44 46 41 43 54 53 2C |,2,"D.FOODFACTS,|
000034A0: 53 2C 52 22 3A 8B 44 53 B2 36 32 20 A7 99 22 93 |S,R":.DS.62 ..".|
000034B0: 20 C6 49 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 20 | .ILE NOT FOUND |
000034C0: 22 3A FE 0B 32 3A FE 15 20 55 28 44 56 29 3A 89 |":..2:.. U(DV):.|
000034D0: 35 33 36 30 00 E3 74 B4 14 8B 44 53 20 A7 20 32 |5360..t...DS . 2|
000034E0: 30 33 30 00 12 75 BE 14 84 32 2C 54 46 3A E0 2C |030..u...2,TF:.,|
000034F0: 34 2C 39 2C 22 C9 54 45 4D 22 3A E0 2C 33 2C 31 |4,9,".TEM":.,3,1|
00003500: 30 2C 22 4F 55 54 20 4F 46 22 AA C4 28 54 46 AB |0,"OUT OF"..(TF.|
00003510: 31 29 00 35 75 C8 14 81 54 B2 30 A4 54 46 AB 31 |1).5u...T.0.TF.1|
00003520: 3A 81 49 B2 30 A4 34 3A 84 32 2C 46 4F 24 28 49 |:.I.0.4:.2,FO$(I|
00003530: 2C 54 29 3A 82 00 46 75 D2 14 E0 2C 38 2C 39 2C |,T):..Fu...,8,9,|
00003540: C4 28 54 29 3A 82 00 55 75 DC 14 54 53 B2 30 3A |.(T):..Uu..TS.0:|
00003550: 8D 31 38 32 30 00 5C 75 E6 14 A0 32 00 62 75 F0 |.1820.\u...2.bu.|
00003560: 14 8E 00 68 75 FA 14 3A 00 7B 75 04 15 8F 20 50 |...hu..:.{u... P|
00003570: 52 49 4E 54 45 52 20 49 4E 46 4F 00 C6 75 0E 15 |RINTER INFO..u..|
00003580: 8F 20 50 49 24 28 30 29 3D 55 4E 44 45 52 4C 49 |. PI$(0)=UNDERLI|
00003590: 4E 45 20 50 49 24 28 31 29 3D 55 4E 44 45 52 4C |NE PI$(1)=UNDERL|
000035A0: 49 4E 45 20 4F 46 46 20 50 49 24 28 32 29 3D 46 |INE OFF PI$(2)=F|
000035B0: 4F 4E 54 20 50 49 24 28 33 29 3D 4C 45 46 54 20 |ONT PI$(3)=LEFT |
000035C0: 4D 41 52 47 49 4E 00 E8 75 18 15 9F 32 2C 44 56 |MARGIN..u...2,DV|
000035D0: 2C 32 2C 22 46 43 2E 50 52 49 4E 54 45 52 2E 49 |,2,"FC.PRINTER.I|
000035E0: 4E 46 4F 2C 53 2C 52 22 00 F5 75 22 15 8B 44 53 |NFO,S,R"..u"..DS|
000035F0: B2 30 A7 FE 18 00 00 76 2C 15 81 54 B2 30 A4 33 |.0.....v,..T.0.3|
00003600: 00 33 76 36 15 EB 3A A1 23 32 2C 41 24 3A 41 B2 |.3v6..:.#2,A$:A.|
00003610: C6 28 41 24 29 3A 8B 41 B3 B1 31 33 A7 50 49 24 |.(A$):.A..13.PI$|
00003620: 28 54 29 B2 50 49 24 28 54 29 AA C7 28 41 29 3A |(T).PI$(T)..(A):|
00003630: D5 20 ED 00 41 76 40 15 EC 3A 82 3A 89 35 37 30 |. ..Av@..:.:.570|
00003640: 30 00 48 76 4A 15 FE 19 00 55 76 54 15 FE 15 20 |0.HvJ....UvT... |
00003650: 55 28 44 56 29 00 7E 76 5E 15 E8 3A E0 2C 32 36 |U(DV).~v^..:.,26|
00003660: 2C 32 2C 22 05 CE 4F 20 50 52 49 4E 54 45 52 20 |,2,"..O PRINTER |
00003670: 46 49 4C 45 20 4F 4E 20 44 49 53 4B 2E 22 00 C3 |FILE ON DISK."..|
00003680: 76 68 15 E0 2C 31 34 2C 34 2C 22 C9 46 20 59 4F |vh..,14,4,".F YO|
00003690: 55 20 57 41 4E 54 20 55 4E 44 45 52 4C 49 4E 49 |U WANT UNDERLINI|
000036A0: 4E 47 2C 20 45 54 43 2C 20 50 52 45 53 53 20 9E |NG, ETC, PRESS .|
000036B0: D9 05 3B 20 45 4C 53 45 20 D0 52 45 53 53 20 9A |..; ELSE .RESS .|
000036C0: CE 05 22 00 F0 76 72 15 81 54 32 B2 30 A4 33 3A |.."..vr..T2.0.3:|
000036D0: 50 49 24 28 54 32 29 B2 22 22 3A 82 3A A1 F9 41 |PI$(T2)."":.:..A|
000036E0: 4E 24 3A 8B 41 4E 24 B2 22 4E 22 A7 35 36 37 30 |N$:.AN$."N".5670|
000036F0: 00 FC 76 7C 15 99 45 24 22 4C 22 3B 00 54 77 86 |..v|..E$"L";.Tw.|
00003700: 15 99 22 93 D4 59 50 45 20 43 4F 44 45 53 20 4F |.."..YPE CODES O|
00003710: 4E 45 20 41 54 20 41 20 54 49 4D 45 20 46 4F 4C |NE AT A TIME FOL|
00003720: 4C 4F 57 45 44 20 42 59 20 D2 45 54 55 52 4E 2E |LOWED BY .ETURN.|
00003730: 20 20 D0 52 45 53 53 20 41 20 42 4C 41 4E 4B 20 | .RESS A BLANK |
00003740: D2 45 54 55 52 4E 20 54 4F 20 45 4E 44 20 4C 49 |.ETURN TO END LI|
00003750: 53 54 2E 22 00 5F 77 90 15 81 54 B2 30 A4 33 00 |ST."._w...T.0.3.|
00003760: 79 77 9A 15 99 20 22 11 22 50 4D 24 28 54 29 3A |yw... "."PM$(T):|
00003770: 50 49 24 28 54 29 B2 22 22 00 AC 77 A4 15 EB 3A |PI$(T).""..w...:|
00003780: 41 24 B2 22 22 3A 85 41 24 3A 41 B2 C5 28 41 24 |A$."":.A$:A..(A$|
00003790: 29 3A 8B 41 24 B3 B1 22 22 A7 50 49 24 28 54 29 |):.A$.."".PI$(T)|
000037A0: B2 50 49 24 28 54 29 AA C7 28 41 29 00 B9 77 AE |.PI$(T)..(A)..w.|
000037B0: 15 EC FC 20 41 24 B2 22 22 00 BF 77 B8 15 82 00 |... A$.""..w....|
000037C0: F8 77 C2 15 99 22 11 CE 4F 57 20 54 55 52 4E 20 |.w..."..OW TURN |
000037D0: 4F 4E 20 59 4F 55 52 20 50 52 49 4E 54 45 52 2E |ON YOUR PRINTER.|
000037E0: 20 20 D0 52 45 53 53 20 27 D0 27 20 57 48 45 4E | .RESS '.' WHEN|
000037F0: 20 52 45 41 44 59 2E 22 00 11 78 CC 15 A1 F9 41 | READY."..x....A|
00003800: 4E 24 3A 8B 41 4E 24 B3 B1 22 50 22 A7 35 35 38 |N$:.AN$.."P".558|
00003810: 30 00 29 78 D6 15 9F 34 2C 34 2C 37 3A 4C 4D B2 |0.)x...4,4,7:LM.|
00003820: C6 28 50 49 24 28 33 29 29 00 7B 78 E0 15 98 34 |.(PI$(3)).{x...4|
00003830: 2C C8 28 53 50 24 2C 4C 4D 29 50 49 24 28 30 29 |,.(SP$,LM)PI$(0)|
00003840: 22 D4 48 49 53 20 53 48 4F 55 4C 44 20 42 45 20 |".HIS SHOULD BE |
00003850: 55 4E 44 45 52 4C 49 4E 45 44 2C 20 22 50 49 24 |UNDERLINED, "PI$|
00003860: 28 31 29 22 42 55 54 20 54 48 49 53 20 53 48 4F |(1)"BUT THIS SHO|
00003870: 55 4C 44 4E 27 54 20 42 45 2E 22 00 B9 78 EA 15 |ULDN'T BE."..x..|
00003880: 98 34 2C C8 28 53 50 24 2C 4C 4D 29 50 49 24 28 |.4,.(SP$,LM)PI$(|
00003890: 32 29 22 C1 4E 44 20 54 48 49 53 20 53 48 4F 55 |2)".ND THIS SHOU|
000038A0: 4C 44 20 42 45 20 59 4F 55 52 20 53 50 45 43 49 |LD BE YOUR SPECI|
000038B0: 41 4C 20 46 4F 4E 54 2E 22 00 F0 78 F4 15 98 34 |AL FONT."..x...4|
000038C0: 2C C8 28 4C 4D 24 2C 4C 4D 29 50 49 24 28 32 29 |,.(LM$,LM)PI$(2)|
000038D0: 22 CE 4F 54 45 20 4C 45 46 54 20 4D 41 52 47 49 |".OTE LEFT MARGI|
000038E0: 4E 20 4F 4E 20 54 48 49 53 20 4C 49 4E 45 2E 22 |N ON THIS LINE."|
000038F0: 00 F7 78 FE 15 A0 34 00 4D 79 08 16 99 22 C3 48 |..x...4.My...".H|
00003900: 45 43 4B 20 50 52 49 4E 54 4F 55 54 3A 20 20 49 |ECK PRINTOUT: I|
00003910: 46 20 49 4E 43 4F 52 52 45 43 54 2C 20 50 52 45 |F INCORRECT, PRE|
00003920: 53 53 20 5E 20 54 4F 20 D2 45 44 4F 3B 20 49 46 |SS ^ TO .EDO; IF|
00003930: 20 43 4F 52 52 45 43 54 20 50 52 45 53 53 20 41 | CORRECT PRESS A|
00003940: 4E 59 20 4F 54 48 45 52 20 4B 45 59 22 00 6C 79 |NY OTHER KEY".ly|
00003950: 12 16 97 32 30 38 2C 30 3A A1 F9 41 4E 24 3A 8B |...208,0:..AN$:.|
00003960: 41 4E 24 B2 22 5E 22 A7 35 34 37 30 00 8F 79 1C |AN$."^".5470..y.|
00003970: 16 99 22 93 11 9E 22 2C 2C 2C 22 D3 41 56 49 4E |.."...",,,".AVIN|
00003980: 47 20 50 52 49 4E 54 45 52 20 49 4E 46 4F 22 00 |G PRINTER INFO".|
00003990: B4 79 26 16 A0 32 3A 9F 32 2C 44 56 2C 32 2C 22 |.y&..2:.2,DV,2,"|
000039A0: 46 43 2E 50 52 49 4E 54 45 52 2E 49 4E 46 4F 2C |FC.PRINTER.INFO,|
000039B0: 53 2C 57 22 00 E8 79 30 16 8B 20 44 53 20 A7 20 |S,W"..y0.. DS . |
000039C0: 99 20 22 07 C4 49 53 4B 20 45 52 52 4F 52 3A 20 |. "..ISK ERROR: |
000039D0: 20 22 44 53 24 3A FE 15 20 55 28 44 56 29 3A FE | "DS$:.. U(DV):.|
000039E0: 0B 31 3A 89 35 37 32 30 00 FF 79 3A 16 81 54 B2 |.1:.5720..y:..T.|
000039F0: 30 A4 33 3A 98 32 2C 50 49 24 28 54 29 3A 82 00 |0.3:.2,PI$(T):..|
00003A00: 06 7A 44 16 A0 32 00 12 7A 4E 16 99 45 24 22 4D |.zD..2..zN..E$"M|
00003A10: 22 3B 00 18 7A 58 16 8E 00 1E 7A 62 16 3A 00 31 |";..zX....zb.:.1|
00003A20: 7A 6C 16 3A 20 20 20 20 8F 20 57 49 4E 44 4F 57 |zl.: . WINDOW|
00003A30: 53 00 4E 7A 76 16 57 B2 34 3A 8D 35 37 36 30 3A |S.Nzv.W.4:.5760:|
00003A40: E0 2C 30 2C 31 2C 45 24 AA 22 40 22 3A 8E 00 79 |.,0,1,E$."@":..y|
00003A50: 7A 80 16 99 3A FE 1A 20 58 31 28 57 29 2C 59 31 |z...:.. X1(W),Y1|
00003A60: 28 57 29 2C 58 32 28 57 29 2C 59 32 28 57 29 3A |(W),X2(W),Y2(W):|
00003A70: E7 35 2C 43 28 57 29 3A 8E 00 7F 7A 8A 16 3A 00 |.5,C(W):...z..:.|
00003A80: 9A 7A 94 16 99 22 07 22 D3 28 45 52 29 22 20 45 |.z...".".(ER)" E|
00003A90: 52 52 4F 52 2E 22 3A FE 0B 32 00 AD 7A 9E 16 FE |RROR.":..2..z...|
00003AA0: 15 2C 55 28 44 56 29 3A A0 34 3A A0 31 00 C5 7A |.,U(DV):.4:.1..z|
00003AB0: A8 16 99 45 24 22 4D 22 45 24 22 52 90 93 22 3A |...E$"M"E$"R..":|
00003AC0: 8D 34 34 30 30 00 CF 7A B2 16 D7 35 37 38 30 00 |.4400..z...5780.|
00003AD0: D8 7A BC 16 89 31 33 30 00 DE 7A C6 16 3A 00 16 |.z...130..z..:..|
00003AE0: 7B D0 16 83 20 22 C6 4F 4F 44 3A 20 20 22 2C 22 |{... ".OOD: ","|
00003AF0: D5 4E 49 54 3A 20 20 22 2C 22 C3 41 4C 53 3A 20 |.NIT: ",".ALS: |
00003B00: 20 22 2C 22 C3 48 4C 53 3A 20 20 22 2C 22 C9 4E | ",".HLS: ",".N|
00003B10: 46 4F 3A 20 20 22 00 2D 7B DA 16 3A 20 20 20 20 |FO: ".-{..: |
00003B20: 8F 20 57 49 4E 44 4F 57 20 44 41 54 41 00 5B 7B |. WINDOW DATA.[{|
00003B30: E4 16 83 20 22 C2 52 45 41 4B 46 41 53 54 22 2C |... ".REAKFAST",|
00003B40: 22 C2 52 45 41 4B 46 41 53 54 22 2C 35 31 2C 30 |".REAKFAST",51,0|
00003B50: 2C 37 39 2C 37 2C 20 36 2C 20 31 00 86 7B EE 16 |,79,7, 6, 1..{..|
00003B60: 83 20 22 20 20 CC 55 4E 43 48 20 20 22 2C 22 CC |. " .UNCH ",".|
00003B70: 55 4E 43 48 22 2C 35 31 2C 38 2C 37 39 2C 31 35 |UNCH",51,8,79,15|
00003B80: 2C 20 39 2C 20 38 00 B5 7B F8 16 83 20 22 20 20 |, 9, 8..{... " |
00003B90: D3 55 50 50 45 52 20 22 2C 22 D3 55 50 50 45 52 |.UPPER ",".UPPER|
00003BA0: 22 2C 35 31 2C 31 36 2C 37 39 2C 32 33 2C 20 31 |",51,16,79,23, 1|
00003BB0: 35 2C 20 31 36 00 D9 7B 02 17 83 20 22 C6 4F 4F |5, 16..{... ".OO|
00003BC0: 44 20 C4 41 54 41 22 2C 2C 30 2C 31 36 2C 32 39 |D .ATA",,0,16,29|
00003BD0: 2C 32 33 2C 20 34 2C 20 31 00 FD 7B 0C 17 83 20 |,23, 4, 1..{... |
00003BE0: 22 CD 41 49 4E 20 CD 45 4E 55 22 2C 2C 30 2C 33 |".AIN .ENU",,0,3|
00003BF0: 2C 32 39 2C 31 35 2C 20 31 31 2C 20 38 00 22 7C |,29,15, 11, 8."||
00003C00: 16 17 83 20 22 C6 20 4F 20 4F 20 44 20 53 22 2C |... ". O O D S",|
00003C10: 2C 33 32 2C 33 2C 34 38 2C 32 31 2C 20 31 30 2C |,32,3,48,21, 10,|
00003C20: 20 32 00 3C 7C 20 17 83 20 2C 2C 33 33 2C 35 2C | 2.<| .. ,,33,5,|
00003C30: 34 37 2C 32 30 2C 20 31 30 2C 20 32 00 8E 7C 2A |47,20, 10, 2..|*|
00003C40: 17 83 20 31 31 2C 2C 22 CA 41 4E 22 2C 22 C6 45 |.. 11,,".AN",".E|
00003C50: 42 22 2C 22 CD 41 52 22 2C 22 C1 50 52 22 2C 22 |B",".AR",".PR","|
00003C60: CD 41 59 22 2C 22 CA 55 4E 22 2C 22 CA 55 4C 22 |.AY",".UN",".UL"|
00003C70: 2C 22 C1 55 47 22 2C 22 D3 45 50 22 2C 22 CF 43 |,".UG",".EP",".C|
00003C80: 54 22 2C 22 CE 4F 56 22 2C 22 C4 45 43 22 00 99 |T",".OV",".EC"..|
00003C90: 7C 34 17 83 20 33 30 2C 31 00 A7 7C 3E 17 83 20 ||4.. 30,1..|>.. |
00003CA0: 31 30 2C 31 39 39 36 00 C3 7C 48 17 8F 20 44 41 |10,1996..|H.. DA|
00003CB0: 54 41 20 46 4F 52 20 57 49 4E 44 4F 57 20 53 41 |TA FOR WINDOW SA|
00003CC0: 56 45 53 00 F9 7C 52 17 83 20 41 32 2C 30 30 2C |VES..|R.. A2,00,|
00003CD0: 41 30 2C 31 30 2C 34 43 2C 30 42 2C 30 44 2C 41 |A0,10,4C,0B,0D,A|
00003CE0: 32 2C 31 30 2C 41 30 2C 30 30 2C 38 36 2C 46 43 |2,10,A0,00,86,FC|
00003CF0: 2C 38 34 2C 46 44 2C 41 39 00 2F 7D 5C 17 83 20 |,84,FD,A9./}\.. |
00003D00: 31 30 2C 38 35 2C 46 42 2C 41 32 2C 31 38 2C 32 |10,85,FB,A2,18,2|
00003D10: 30 2C 35 31 2C 30 44 2C 30 39 2C 38 30 2C 41 32 |0,51,0D,09,80,A2|
00003D20: 2C 31 38 2C 32 30 2C 34 35 2C 30 44 2C 41 32 00 |,18,20,45,0D,A2.|
00003D30: 65 7D 66 17 83 20 31 32 2C 41 35 2C 46 44 2C 32 |e}f.. 12,A5,FD,2|
00003D40: 30 2C 34 35 2C 30 44 2C 45 38 2C 41 39 2C 30 30 |0,45,0D,E8,A9,00|
00003D50: 2C 32 30 2C 34 35 2C 30 44 2C 41 32 2C 32 30 2C |,20,45,0D,A2,20,|
00003D60: 41 35 2C 46 43 00 9B 7D 68 17 83 20 32 30 2C 34 |A5,FC..}h.. 20,4|
00003D70: 35 2C 30 44 2C 45 38 2C 41 39 2C 30 30 2C 32 30 |5,0D,E8,A9,00,20|
00003D80: 2C 34 35 2C 30 44 2C 41 32 2C 31 45 2C 41 39 2C |,45,0D,A2,1E,A9,|
00003D90: 46 46 2C 32 30 2C 34 35 2C 30 44 00 D1 7D 6A 17 |FF,20,45,0D..}j.|
00003DA0: 83 20 43 36 2C 46 42 2C 44 30 2C 46 35 2C 36 30 |. C6,FB,D0,F5,60|
00003DB0: 2C 38 45 2C 30 30 2C 44 36 2C 32 43 2C 30 30 2C |,8E,00,D6,2C,00,|
00003DC0: 44 36 2C 31 30 2C 46 42 2C 38 44 2C 30 31 2C 44 |D6,10,FB,8D,01,D|
00003DD0: 36 00 FE 7D 6C 17 83 20 36 30 2C 38 45 2C 30 30 |6..}l.. 60,8E,00|
00003DE0: 2C 44 36 2C 32 43 2C 30 30 2C 44 36 2C 31 30 2C |,D6,2C,00,D6,10,|
00003DF0: 46 42 2C 41 44 2C 30 31 2C 44 36 2C 36 30 00 27 |FB,AD,01,D6,60.'|
00003E00: 7E 70 17 E0 2C 31 2C 31 31 2C 22 20 20 D1 55 49 |~p..,1,11," .UI|
00003E10: 54 3F 20 C1 52 45 20 59 4F 55 20 53 55 52 45 3F |T? .RE YOU SURE?|
00003E20: 20 28 59 2F 4E 29 22 00 48 7E 7A 17 A1 41 38 24 | (Y/N)".H~z..A8$|
00003E30: 3A 8B 41 38 24 B3 B1 22 59 22 AF 41 38 24 B3 B1 |:.A8$.."Y".A8$..|
00003E40: 22 4E 22 A7 36 30 31 30 00 57 7E 84 17 8B 41 38 |"N".6010.W~...A8|
00003E50: 24 B2 22 4E 22 A7 8E 00 6A 7E 86 17 99 22 13 13 |$."N"...j~..."..|
00003E60: 93 22 C7 28 32 37 29 22 4E 22 00 A4 7E 8E 17 F5 |.".(27)"N"..~...|
00003E70: 22 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 A4 |"HELLO CONNECT".|
00003E80: 22 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 2C |"HELLO CONNECT",|
00003E90: 55 28 44 56 29 3A 8B 44 53 B3 B1 36 33 A7 9E 31 |U(DV):.DS..63..1|
00003EA0: 36 33 38 34 00 C1 7E 98 17 8A 22 48 45 4C 4C 4F |6384..~..."HELLO|
00003EB0: 20 43 4F 4E 4E 45 43 54 22 2C 55 28 44 56 29 3A | CONNECT",U(DV):|
00003EC0: 80 00 F5 7E 10 27 44 B2 C2 28 31 38 36 29 3A 4E |...~.'D..(186):N|
00003ED0: 24 B2 22 46 4F 4F 44 20 43 41 4C 43 22 3A F2 28 |$."FOOD CALC":.(|
00003EE0: 4E 24 29 2C 55 28 44 29 3A EF 28 4E 24 29 2C 55 |N$),U(D):.(N$),U|
00003EF0: 28 44 29 3A 80 00 4A 7F 60 EA 4D 38 24 B2 22 9B |(D):..J.`.M8$.".|
00003F00: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00003F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F40: 20 20 20 20 20 20 20 20 20 22 00 A2 7F 6A EA E0 | "...j..|
00003F50: 2C 33 2C 31 32 3A 99 22 05 A2 A2 A2 A2 A2 A2 A2 |,3,12:."........|
00003F60: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................|
00003F70: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................|
00003F80: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................|
00003F90: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................|
00003FA0: A2 22 00 B8 7F 74 EA 81 49 B2 31 A4 31 30 3A 99 |."...t..I.1.10:.|
00003FB0: A3 33 29 4D 38 24 3A 82 00 0C 80 7E EA 99 A3 33 |.3)M8$:....~...3|
00003FC0: 29 22 98 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |)"..............|
00003FD0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00003FE0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00003FF0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00004000: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 31 80 88 |...........".1..|
00004010: EA 4D 39 24 28 30 29 B2 22 C6 20 20 CF 20 20 CF |.M9$(0).". . .|
00004020: 20 20 C4 20 20 20 20 C3 20 20 C1 20 20 CC 20 20 | . . . . |
00004030: C3 00 4C 80 8D EA 4D 39 24 28 32 29 B2 22 42 59 |..L...M9$(2)."BY|
00004040: 20 CD 41 52 4B 20 CA 4F 52 44 41 4E 00 74 80 92 | .ARK .ORDAN.t..|
00004050: EA 4D 39 24 28 34 29 B2 22 28 43 29 31 39 39 36 |.M9$(4)."(C)1996|
00004060: 20 42 59 20 CA 20 26 20 C6 20 D0 55 42 4C 49 53 | BY . & . .UBLIS|
00004070: 48 49 4E 47 00 B7 80 97 EA 4D 39 24 28 36 29 B2 |HING.....M9$(6).|
00004080: 22 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 |".HIS PROGRAM IS|
00004090: 20 4E 4F 54 20 53 48 41 52 45 57 41 52 45 20 4F | NOT SHAREWARE O|
000040A0: 52 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 20 |R IN THE PUBLIC |
000040B0: 44 4F 4D 41 49 4E 2E 00 F5 80 A6 EA 4D 39 24 28 |DOMAIN......M9$(|
000040C0: 37 29 B2 22 CC CF C1 C4 D3 D4 C1 D2 20 31 32 38 |7)."........ 128|
000040D0: 3A 20 20 31 2D 38 30 30 2D 35 39 34 2D 33 33 37 |: 1-800-594-337|
000040E0: 30 20 4F 52 20 31 2D 33 31 38 2D 32 32 31 2D 38 |0 OR 1-318-221-8|
000040F0: 37 31 38 2E 22 00 27 81 B0 EA E0 2C 30 2C 31 34 |718.".'....,0,14|
00004100: 3A 81 49 B2 30 A4 37 3A 99 22 9B 12 22 A3 34 30 |:.I.0.7:."..".40|
00004110: AB 28 C3 28 4D 39 24 28 49 29 29 AD 32 29 29 4D |.(.(M9$(I)).2))M|
00004120: 39 24 28 49 29 3A 82 00 2D 81 BA EA 8E 00 00 00 |9$(I):..-.......|
.@.@..DV.B(186):.DV.8.DV.8.6@...%:."....
.":.6,1:.60000.I@...1,1:.0,1:.5,1.Y@...
SK . 4110.U@...."MOVEFONT.O",U(DV),B0..@
...."FOOD FONT",U(DV),B0,P8192..@...2816
,48..@... TRAP5780..@... FO$(X,Y):X=0=F
OOD:X=1=UNIT:X=2=CAL:X=3=CHL..@(.. SB=CA
L:SH=CHL.'A2.. ME$()=LIST OF TODAY'S INT
AKE, UN$()=UNIT.>A<.. 4110:. VARIABLES.X
AF.. 5400:. PRINTER INFO.LAP.. 4350:. SC
REEN..AZ.. 5270:. FOOD FILE..AD.. 5070:.
DATA FILE. AN.:..AX.: . MAIN LOOP..A
...:. WS.WA... 4590:. MAIN MENU..A.... A
$:KE.E(A$). B .. KE . 200,870,2060,3470,
3370,3440,3510,3820,6000.&B....,B..:.JB.
.: . INPUT TODAY'S DATA.HBH.M.0:GT.0:
GZ.0:OO.FI:OP.TS..BR.. 4710:. HELP WINDO
W..B...ME.0.2:XM.M:ME$(M).NN$(ME)..B..IT
.1:SB.0:SH.0.RB..W.ME:.5760:. WINDOW SET
UP..B...,TB(W).2,0,FO$.NT$(W).FF$..C...L
.1.6:.,0,L,H(LI$,30):..JC...,0,6,"CHLS":
.,25,6,"CALS : SUBTOTALS :
".PC..:.VC"...UC,.. 920:. FOOD CYCLER/C
URSOR..C6..EX..2 . ...C@..FI.TF.300..CJ.
M.M.1:ME$(M).FO$(0,FI):UN$(M).FO$(1,FI).
SCT.W.ME:.5760:CC.1..C^.CA.E(FO$(2,FI)):
CH.E(FO$(3,FI)):QY.1..DH..,0,IT,UN$.FO$(
0,FI).0DR..,20,IT,H(FO$(1,FI),4).6D|.:.<
D....RD..CY.CA.QY:CZ.CH.QY.OD...,15,IT,U
N$:. ."##.#";QY..D...,24,IT,UN$:. ."####
>";CY..D....Q$:.T("....#".CR$.E$,Q$).0.4
30.HD...Q$.E$ . AA$.E$:...DB..Q$.".". QY
.QY..1..DL..Q$.".". QY.QY.1..EV..Q$.".".
QY.QY..1:.QY..1.QY..1.7E...Q$.".". QY.Q
Y.1:.QY..1.QY.1.RE... .B(212).76:.AA$.E$
...XE..:.FE... IT.6 ...|E..SB.SB.CY:SH.S
H.CZ..E...,0,7,UN$:.."####";SH..E...,25,
7,UN$:.."####";SB.PE&.CY(M).CY:CZ(M).CZ:
QY(M).QY..E0.IT.IT.1..E:....ED..AA$.E$.M
E.5:.660..EN.:.*FX.W.ME:.5760:.,TB(W).2,
0,UN$."R TO REDO ".EFB...A$:.A$."R".M.XM
:.230.`FL..,TB(W).2,0,UN$.NT$(W).VFV.GT.
GT.SB:GZ.GZ.SH..F..SH(ME).SH:SB(ME).SB..
F..M.M.1:ME$(M)."=":M.M.1.MF...: .ME.6 .
.WR:FI.OO:TS.OP:.840.SF..:..G..."...":.
,60,24,".GRAND TOTALS ":.."####>";GT."
G...,51,24,".":.."####";GZ.:G..SB(ME).GT
:SH(ME).GZ.IGF.ME$(M)."=".IGP..5750:.,8,
6,"SAVING .. . ."..GZ...#2,"D.".MN$.D(YR
),U(DV)..G...DS.62. 2:.2,DV,2,"D.".MN$.D
(YR).",S,W": 2:.730.IG...DS .2030.ZG...2
,G(34);DT$..G..ME.0..G...I.0.M:.2,G(34).
ME$(I)..H...ME$(I).NN$(ME).820.OH ..ME$(
I)."=". .2,SB(ME);CR$;SH(ME);CR$;0:ME.ME
.1:.820.{H*..2,QY(I);CR$;CY(I);CR$;CZ(I)
;CR$;UN$(I)..H4..:.2,"."..H>. 2..HH....H
R.:..H\.: . INPUT FOOD DATA.AHF.. 471
0.KHP.. 920.QHZ...WH..:..H..: . MAIN
SUBLOOP..I..EX.0:OF.FI:KY$.IN$..I...248,
B(248).64..I..:.%I....WI..W.5:.5760:.,1,
OF.TS.2,UF$.H(FO$(0,OF).SP$,15)..IJ.:
. ABOVE CHAR UNRVS ITEM, BELOW CHAR RVS
IT..IT..,1,FI.TS.2,H(FO$(0,FI).SP$,15),
1:OF.FI.EI..W.3:.5760..I..: . BELOW L
ISTS FOOD CARD DATA..J...T.0.4:.,1,T.2,U
N$.H(F$(T).FO$(T,FI).SP$,27):..$J..:.IJ.
...AA$:AA.T(K2$,AA$):.AA.0 . 1030..J...
AA . 1190,1220,1270,1290,1310,1360,1880,
1720,1780,1620,1400,1950.YJ..: .
HOM,BOT , PG+, PG-,DOWN, UP ,SAVE,DELE,E
QUL,SORT,RTN ,ESC..J$..AA.12 . . 1110..J
... . EX..J8....KB.:..KL.: . ALPHABET
..KV.S.F(AA$).128:SS.S.<K`..T.0.TF.1.EKJ
..F(FO$(0,T)).SS. TS.T:TN.T:T.TF:SS.0.KK
T....K~..SS . SS.218 .SS.SS.1:.1120..K..
. 1800:FI.TN:. CENTER MENU LISTER..K....
GK..: . HOME..K...FI.TS . TS.0:FI.TS:
.1820..K..FI.TS:...K..: . \..LD..TS.1
5.TF.FI.TF:.1310.7LN..FI.TS.15 . TS.TF.1
5:.1820.QLX.FI.TS.15:.FI.TF.FI.TF.WL....
DL..: . +.XL..TS.TS.15:. 1800..L..:
. -..L..TS.TS.15:. 1800..L..: . DOW
N..L...TF.0...QL(.FI.FI.1:. FI.TF . FI.T
F..M2..FI.TS.15 . TS.TS.1:W.6:.5760:.,0,
15,EV$.FO$(0,FI)..M<....MF.: . UP.6MP
.FI.FI.1:. FI.0 . FI.0.MMZ..FI.TS. 0 . T
S.TS.1:W.6:.5760:.,0, 0,EW$.FO$(0,FI).SM
D....MN.: . RETURN..MX..KE.1.EX.2:...
M...T.0.4..M...5,2:.. 8,T.18,27,T.18,1..
M..NP$.FO$(T,FI):.NP$." ".NP$.""..M ..49
30:.A$.E$.1590.-N..AC.F(NP$):.T.0..AC.92
.AC.64.NP$.G(AC.128).J(NP$,2).AN...NP$."
".NP$." ".PN..NP$(T).NP$.WNH..,0,0,".".U
N$.H(NP$(T).SP$,20).".".}NR....N..:..N..
.TF.0 . FI.TF . X.FI:.1560.IN..X.TF:.K.0
.TF:.NP$(0).FO$(0,K).1550..N...I.TF.K.1.
.1:.J.0.4..O..FO$(J,I).FO$(J,I.1):.:.:X.
K:K.TF..O....)O...T.0.4:FO$(T,X).NP$(T):
..TO"..FI.TF.TF.TF.1:FI.TF:.TF.TS.15.TS.
TS.1.^O,..1830.DO6...JO@.:.}OJ.: . RE
-SORT..OT..TF.2.KE.1...BO^.X.0:W.6:.5760
:.,0,0,E$."@":.,1,3,"SORTING ITEM"..OH..
,2,5,"OUT OF".D(TF.1)..OR..T.X.1.TF.1.8P
|..FO$(0,T).FO$(0,X). .J.0.4:X$.FO$(J,X)
:FO$(J,X).FO$(J,T):FO$(J,T).X$:..>P....A
P..X.X.1:.,5,4,D(X):.X.TF.1 .1650.PP..TS
.0:.1820.VP..:..P... DELETE..P...KE.1...
.PB..,5,1,". ARE YOU SURE? .Y./.N. .".P
PL...YN$:.,5,1,H(SP$,20)..PV..YN$.."Y".1
830..Q...T.FI.TF:.I.0.4:FO$(I,T).FO$(I,T
.1):.:.:TF.TF.1:.1830.#Q..:..Q..EX.3:..J
Q..: . LIST CENTER MENU.[Q...TS.0 . T
S.0.TQ...TS.TF.15 . TS.TF.15..Q..FI.TS:O
F.FI..Q&.W.6:.5760:.".".EQ0..T.TS.TS.15:
.,0,T.TS,UF$.H(FO$(0,T),15):..KQ:...QQD.
:..QN.: . SAVE FOOD LIST..QX..KE.1...
.RB..5750:.,8,6,"SAVING .. . .".0RL.."D.
FOODFACTS",U(DV).`RV..2,DV,2,"D.FOODFACT
S,S,W":.DS . .2030:.1950.YR...2,TF:.T.0.
TF:.I.0.4..R...2,G(34).FO$(I,T):.:...R..
2..R..EX.1:...R..:.AR..."D.MYDATA",U(DV
)..R...2,DV,2,"D.MYDATA,S,W":.DS . .2030
:.2000..RF..2,TD..RP....SZ.:..S..: .
DISK ERROR.OS...".. DISK ERROR! PLEASE
CORRECT. ":.. U(DV):..1.US....FS..: .
PRINT.PS...5750..S...,4,1,"PRESS APPROP
RIATE KEY"..S ..,1,3,"D - THIS DAY'S TOT
ALS".VS*..,1,4,"M - THIS MONTH TOTALS"..
S4..,1,5,"A - ANNUAL TOTALS"..T>..,1,6,"
C - CHART THIS MONTH".0TH..,7,8,"ESCAPE
TO EXIT".STR...PR$:.T("DMAC".E$,PR$).0.2
130.AT\..PR$.E$....TF..,1,8,"SCREEN OR P
RINTER: S/P"..TP...S2$:SP.3:S3$.G(2):S4
$."":LM.10..TZ..S2$."P".....T..SP.4:S3$.
PI$(0):S4$.PI$(1):LM.F(PI$(3))..U...,0,1
,E$."@":.,7,6,"TURN PRINTER ON".;U...,2,
7,"PRESS ANY KEY WHEN READY":.. AN$.BU..
...ZU..."....."E$"N"E$"L";.LU...PR$."C".
2830..U..P1.DA(0).1:.PR$."A". P1..1..UJ.
PR.0..UT.. 4,SP,7..U...SP.4..4,PI$(2);..
U..P1.P1.1:MN$.H(DA$(0,P1),3):.,0,0,"SEA
RCHING FOR ".MN$..V...EP$:.EP$.E$.2770.!
V...2,DV,2,"D.".MN$.D(YR).:V...DS . .. U
(DV):.2770.JV...T.1.3:.4:..]V..ME.0:S$."
".CV$.:..V...:.".";:.,58,0,".PRESS E
SCAPE TO EXIT."..V8..2,DZ$:.ST . ...VB..
PR$."D"....DVL..DZ$.DT$.2440..VV..,0,0,"
FOUND ".DZ$..W`..:.2,A$:.ST.0. .,0,0,".N
OT FOUND ":..2:PR.2:..%WJ.. . A
$.".".+WT...2W~....IW..PR.1:.4,H(SP$,LM)
;.MW...4,"FOOD CALC TALLY FOR "DZ$:.4.SW
..:..W...T.0.2:.2,ME$(T)..W...4,S4$H(SP$
,LM);..W...4,. S3$." ###################
QUANTITY : CHOLESTEROL : CALORIES ".
S4$;ME$(T)..WD.:..XN..: . EP$:.EP$.E$ .
..!XX..2,Z$,A,B,C./X...Z$."="...9X...2,U
$.NX...4,S4$H(SP$,LM);.NX...4,."########
#########";Z$;..X...4,."####.#";A;:.4,."
#######";U$;..X...4,."########.#
";C;.IX...4,."#####.#";B..X(..:.EP$.E$
. ...X2.:..X<..4,S4$H(SP$,LM);.3YF..".":
.4,." MEAL TOTALS#######################
####.# ";B;.VYP..4,."############.#";A:.
4:." ".\YZ...BYD.:.VYN..2,Z$,A,B,C,CH$..
YX..4,S4$H(SP$,LM);.MY...".":.4,. S4$."
DAY TOTALS############################.#
";B;..Y...4,."############.#";A:." "..Z
...S2$."P"..4:.4:.2730.<Z ..SP.3..,,,"..
.. PRESS ANY KEY TO CONTINUE ":..AN$.BZ.
...HZ..:._Z...PR$."D".PR.0.2350.FZH. 2..
ZR..PR$."A".P1.12.EP$..E$.2280..Z.. 4..Z
...E$"R"E$"M":. WR..Z.....Z..:.BZ... CHA
RT CAL/CHL.YZ...T.1.31:TC(T)..1:...Z..LM
.LM.10:.LM.0.LM.0..["..SP.3..E$"N"E$"M";
..[,..1,SP,7:.1,PI$(2);.F[6..1,H(SP$,LM.
16);"CALORIE/CHOLESTEROL CHART FOR "DA$(
0,DA(0));D(YR)..[@..1,H(SP$,LM.9);"EACH
DOT REPRESENTS 100 CALORIES / 20 MG OF C
HOLESTEROL"..[J..1:.1,H(SP$,LM.20)"CALOR
IES"H(SP$,30)"CHOLESTEROL".M\T..1,H(SP$,
LM);"DAY 500 1000 1500 2000 2500 3000
3500 DAY 100 200 300 400 500
600 ".`\^..SP.3..E$"T.";.{\H..2,DV,2,"D.
".MN$.D(YR)..\R.P.0:TC.0:TH.0:CC.0..\|.:
..\...:.2,DA$:.ST ....\..D.E(J(DA$,4)).J
\...ME.0.3..\...:.2,A$:. . A$."="..\....
.\...2,A:.2,B..]B.TC(D)..(A.100):TH(D)..
(B.20).%]L..2,C:.2,A$.+]V...1]..:.8].. 2
.D]...D.1.31.X]...TC(D)..1 .3120.|]..TC.
TC.TC(D):TH.TH.TH(D):CC.CC.1.J]..SC$(CC)
.H(SP$,LM).I(" ".D(D),2)." ".H(H(D$,TC(D
)).J(SD$,TC(D).1),39)." "..^..SC$(CC).S
C$(CC).I(" ".D(D),2)." ".H(H(D$,TH(D)).J
(SD$,TH(D).1),33). ^&..1,SC$(CC).&^0...7
^:.SC$(CC.1).""..^D.SC$(CC.2).H(SP$,LM).
"AVERAGE DAILY CALORIC INTAKE WAS ".D(.(
TC.CC.100))..^N..1:.1,SC$(CC.2)..^X.SC$(
CC.3).H(SP$,LM)."AVERAGE DAILY CHOLESTER
OL INTAKE WAS ".D(.(TH.CC.20))..^B..1,SC
$(CC.3)..^L..1.._V..SP.3...:.248,B(248).
64.D_...,12,19,".USE CURSOR UP/DOWN TO R
EVIEW LIST. PRESS ESCAPE TO EXIT..".T_.
...0,5,79,23.._..TX.CC.18:.TX.0.TX.1.._.
..:.. A$:.T("..".E$,A$).0.3230.._...A$.E
$...U_...A$."."...:.TX.1.3310.._..TX.TX.
1:.,0,0,E$."W".SC$(TX).._F.....`P..A$.".
"...:.TX.21.3310.=`Z.TX.TX.1:.,0,18,E$."
V".SC$(TX.18).D`.....J`....Q`.....X`.. 1
.B`...2790.H`..:..` .. CHANGE PRINTER IN
FO..`*..,5,12,"ARE YOU SURE? Y/N":..A$:
.A$.."Y"....`4..E$"L"E$"N....":.T2.0.3:P
I$(T2)."":...`>.."FC.PRINTER.INFO",U(DV)
..AH..5500:.E$"M"E$"R":. WR..AR....A\.:.
0AF.. RESET DATE.;AP.. 5070.AAZ.:.UA...
CLEAR ENTRIES.TA..."...":.,0,24,E$."Q":.
4400.~A...1830..A..:..A..: . LOAD FOR
MER ENTRY..A... 5070:. SET DATE.RA...2,D
V,2,"D.".MN$.D(YR)..AJ..DS . .. U(DV):.3
740..AT.:..B...2,DZ$:.DZ$.DT$.3590..B...
ST.0.3740.4B...:.2,A$:..A$.".":.3550.:B.
.:.RB..T.0:ME.0:IT.0:.3760.HB...:.2,T$:.
T$."."....B..ME$(T).T$:.T$.NN$(ME).IT.IT
.1:.3710..B$..T$."=".....B...2,SB:.2,SH:
.2,NULL$..B8..ME.3.."...";:.,51,24,"":U
.,0,7,""..CB..."####";SH;:."............
.........";:.."####";SB.4CL.IT.0:ME.ME.1
:.ME.3..3760.>CV..3710.EC`....ACJ..2,QY:
.2,CY:.2,CZ:.2,U$..CT..,0,IT,ME$(T):.,15
,IT,H(D(QY)." ".U$,8):.,25,IT,I(" ".D(
CY),4):IT.IT.1..C~.T.T.1:..GC.. 2:.1830.
MC..:..C..W.4:.5760:.,9,8,".NOT FOUND":.
.2:.3720..C..:..D..W.ME:.5760.*D...L.1.6
:.,0,L,H(LI$,30):..FDD..,0,6,"CHLS":.,25
,6,"CALS : SUBTOTALS : ".L
DN...RDX.:..D... DELETE ENTRY..D...,5,12
,"ARE YOU SURE? Y/N":..A$:.A$.."Y"....D
...2,DV,2,"D.".MN$.D(YR):.DS... U(DV):..
.E...3,DV,3,"TEMP,S,W":.DS.63... U(DV):.
"TEMP",U(DV):.3830.-E...DS... U(DV):..3E
....FE...2,DA$:.ST . ..ME(..DA$.DT$. .:.
2,A$:. . A$.".":.3870.~E2..3,G(34);DA$..
E<..ME.0.2:.2,A$:.3,G(34);A$..EF....EP..
2,A$:.3,G(34);A$..EZ..4060:. GRAB AND PR
INT 3 NUMERIC VALUES..ED.. A$."="....FN.
.2,A$:.3,G(34);A$..FX....F....+F...2,A$:
.3,A$:.4060.;F...2,A$:.3,A$.AF ...KF.. 2
: 3.EF..."D.".MN$.D(YR),U(DV)..F... "TEM
P" . "D.".MN$.D(YR),U(DV)..FH..3470..FR.
:..F...2,A:.3,A..F...2,A:.3,A.CF...2,A:.
3,A.IF.....F..: . VARIABLE SETUP..F..
E$.G(27)..F..EQ$.E$."Q"..G".CR$.G(13)..G
,.DE$.G(20).*G6.EV$.E$."V".9G@.EW$.E$."W
".BGJ.LM$."123456789 ":LM$.LM$.LM$.LM$.L
M$..GT.UN$.G(2):UF$.G(130):UC$.G(142):LC
$.G(14)..G^.FO$.G(15):FF$.G(143)..HH..T.
1.20:LI$.LI$.".....":SP$.SP$." ":PD$.
PD$."####":D$.D$."....":SD$.SD$." .":
...HR.NO$.H(LI$,28):LI$.UN$.LI$.%H|.:..H
..IN$."ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFG
HIJKLMNOPQRSTUVWXYZ1234567890!#$%&'()+-,
./:;=@*^ ".DE$.CR$.E$..H..K2$.".\+-.._*=
^".CR$.E$.H(IN$,26):LM.10..H..PM$(0)."IN
PUT CODES FOR UNDERLINING"..I..PM$(1)."I
NPUT CODES TO SHUT UNDERLINING OFF".`I..
PM$(2)."INPUT CODES FOR FONT YOU DESIRE
PRINTOUTS IF OTHER THAN DEFAULT"..IB.PM$
(3)."INPUT LEFT MARGIN DESIRED (0-40)".B
IL..5960:WS.3328:WR.3335:.T.0.92:.A$:.WS
.T,Q(A$):...IV..5840:.T.0.4:. F$(T):...I
.....I..:..J..: . SCREEN SETUP.NJ...
N.(2).40 . .&:.".SWITCH TO 80 COLUMN MOD
E ON YOUR MONITOR"E$"X":..2:.%.IJ...E$"M
"E$"R....."G(14);..J..TB$.UC$.UN$."."."
.".LC$.IJ... FO$(4,999),DX(2),
DA$(2,30),ME$(25),UN$(25),P$(999)..K...
NN$(6),NT$(6),X1(6),Y1(6),X2(6),Y2(6),C(
6),TB(6).=K&.. CY(25),CZ(25),QY(25),SH(3
),SB(3),TC(31),TH(31),SC$(40).GK0..5860.
.K:..T.0.6:. NT$(T),NN$(T),X1(T),Y1(T),X
2(T),Y2(T),C(T),TB(T)..KD..T.6.4460.GKN.
.5,C(T):.. X1(T),Y1(T),X2(T),Y2(T):.,0,1
,E$."@"..KX..,TB(T),0,UN$.UC$.". ".LC$.N
T$(T).UC$." .".LC$.4LB..T.4 . .I.1. Y2(T
).Y1(T):.,0,I,H(LI$,X2(T).X1(T).2):..:LL
...ZLV..T.0.2:. DX(T),X:.I.0.DX(T).ZL...
T.0 . . A$:DA$(T,I).A$." "..L...T.1 . DA
$(T,I).I(D(I.X).", ",4)..L...T.2 . DA$(T
,I).I(D(I.X),4).GL...:..RL..."..."..M...
,4,0,"MARK /.. /./ /./ /.. /.. /
. / /..",1.GM...,2,1,"JORDAN'S /.
/./ /./ /./ /.. /.. /. /..",1.MMP...SM
Z.:.HM..: . MAIN MENU.RM...5750..M...
,4,1,"PRESS APPROPRIATE KEY"..M...,1,3,"
1 - ENTER TODAY'S DIET"..M...,1,4,"2 - I
NPUT/EDIT FOOD DATA"..M...,1,5,"3 - PRIN
T DIET INFO"..N ..,1,6,"4 - CLEAR ENTRIE
S".>N*..,1,7,"5 - CHANGE PRINTER INFO".Z
N4..,1,8,"6 - CHANGE DATE".}N>..,1,9,"7
- LOAD FORMER ENTRY "..NH..,1,10,"8 - DE
LETE THIS ENTRY ".DNM..,1,11,"9 - QUIT T
O LOADSTAR ".JNR...PN\.:..NF..5750: . WI
NDOW..OP..,2,2,". CURSOR UP/DOWN TO CYCL
E ".3OZ..,2,3," +/- FOR NEXT/PREV WINDO
W ".ZO...,2,4," HOME TO TOP; \ TO BOTTOM
"..O...,2,5," -RETURN TO SELECT ITEM
"..O...KE.1 .4850..O...,2,6," -PRESS ^ T
O RE-SORT "..O...,2,7," -PRESS * TO
DELETE ITEM "..P...,2,8," -PRESS _ (AR
ROW) TO SAVE ".-P...,2,9,"
".UPJ..,2,10," PRESS FIRST
LETTER OF ".}PT..,2,11," ITEM FOR FA
ST JUMP "..P...,4,12,". PRESS ESCAPE
TO EXIT."..P....OP...,2,6,"CURSOR UP/DW
N ADJUSTS 0.1 "..P...,2,7,"CURSOR RT/LFT
ADJUSTS 1.0 "..Q...,2,8,"USE ENTER TO S
ET QUANTITY ".DQ...,2,9," PRESS = TO TO
TAL MEAL ".NQ...4810.TQ$.:.MQ..: .
INPUT ROUTINE.}Q8.NP.0:NP$.""..QB.NP.C(N
P$):.NP$;..QL....QV...A$:. T(KY$,A$).0.4
950.KQ`..A$.CR$ . A$.E$ . ...QJ..A$.DE$
. ....QT.: NP.C(NP$).1:.NP.0.NP.0..R~.:
.NP.0 . NP$.H(NP$,NP):U NP$."".+R..: . 5
030.2R.....AR..NP$.NP$.A$.JR...A$;.PR...
.VR....FRD.: . DATE.PRN..5750..RX..,1
,3,"USE CURSOR KEYS AND RETURN"..R...,3,
4,"TO SELECT CORRECT DATE".RR...,8,5,"JA
N 1, 1996..R..DT$.""..S...T.0.2:N.0:.,T
.4.8,5,FO$.DA$(T,N)..S...:..A$.-S...A$."
.".N.N.1:.N.0.N.DX(T).LS...A$.".".N.N.1:
.N.DX(T).N.0.GS(..,T.4.8,5,FF$.DA$(T,N).
VS2.. . A$.CR$..S<.DA(T).N:DT$.DT$.DA$(T
,N)..SF....SP..,9,8,"R TO RE-DO".MSZ...A
$:.E$"P":.A$."R".5070..TD.MN$.H(DT$,3):D
Y.E(DA$(1,DA(1))):YR.E(DA$(2,DA(2)))..TN
.."..":.,35,23,DT$,1."TX...(T..:.=T..:
. FOOD FILE.ZT..W.5:.5760:.,0,1,E$."@"
:.,4,6,"LOADING":.,3,7,"FOOD DATA"..T .T
F.0.TT.. 2:.2,DV,2,"D.FOODFACTS,S,R":.DS
.62 ..". FILE NOT FOUND ":..2:.. U(DV):.
5360..T...DS . 2030..U...2,TF:.,4,9,"ITE
M":.,3,10,"OUT OF".D(TF.1).5UH..T.0.TF.1
:.I.0.4:.2,FO$(I,T):..FUR..,8,9,D(T):..U
U..TS.0:.1820.\U.. 2.BU....HU..:.{U... P
RINTER INFO.FU... PI$(0)=UNDERLINE PI$(1
)=UNDERLINE OFF PI$(2)=FONT PI$(3)=LEFT
MARGIN..U...2,DV,2,"FC.PRINTER.INFO,S,R"
..U"..DS.0.....V,..T.0.3.3V6..:.#2,A$:A.
F(A$):.A..13.PI$(T).PI$(T).G(A):U ..AV@.
.:.:.5700.HVJ....UVT... U(DV).~V^..:.,26
,2,".NO PRINTER FILE ON DISK.".CVH..,14,
4,"IF YOU WANT UNDERLINING, ETC, PRESS .
Y.; ELSE PRESS .N."..VR..T2.0.3:PI$(T2).
"":.:..AN$:.AN$."N".5670..V|..E$"L";.TW.
..".TYPE CODES ONE AT A TIME FOLLOWED BY
RETURN. PRESS A BLANK RETURN TO END LI
ST."._W...T.0.3.YW... "."PM$(T):PI$(T)."
"..W...:A$."":.A$:A.E(A$):.A$.."".PI$(T)
.PI$(T).G(A)..W.... A$.""..W.....WB..".N
OW TURN ON YOUR PRINTER. PRESS 'P' WHEN
READY."..XL...AN$:.AN$.."P".5580.)XV..4
,4,7:LM.F(PI$(3)).{X...4,H(SP$,LM)PI$(0)
"THIS SHOULD BE UNDERLINED, "PI$(1)"BUT
THIS SHOULDN'T BE."..X...4,H(SP$,LM)PI$(
2)"AND THIS SHOULD BE YOUR SPECIAL FONT.
"..X...4,H(LM$,LM)PI$(2)"NOTE LEFT MARGI
N ON THIS LINE."..X.. 4.MY..."CHECK PRIN
TOUT: IF INCORRECT, PRESS ^ TO REDO; IF
CORRECT PRESS ANY OTHER KEY".LY...208,0
:..AN$:.AN$."^".5470..Y..."...",,,"SAVIN
G PRINTER INFO"..Y&. 2:.2,DV,2,"FC.PRINT
ER.INFO,S,W"..Y0.. DS . . ".DISK ERROR:
"DS$:.. U(DV):..1:.5720..Y:..T.0.3:.2,P
I$(T):...ZD. 2..ZN..E$"M";..ZX....ZB.:.1
ZL.: . WINDOWS.NZV.W.4:.5760:.,0,1,E$
."@":..YZ...:.. X1(W),Y1(W),X2(W),Y2(W):
.5,C(W):..Z..:..Z..."."S(ER)" ERROR.":.
.2..Z....,U(DV): 4: 1.EZ...E$"M"E$"R..":
.4400.OZ..W5780.XZ...130..ZF.:..{P.. "FO
OD: ","UNIT: ","CALS: ","CHLS: ","IN
FO: ".-{Z.: . WINDOW DATA.[{... "BRE
AKFAST","BREAKFAST",51,0,79,7, 6, 1..{..
. " LUNCH ","LUNCH",51,8,79,15, 9, 8..
{... " SUPPER ","SUPPER",51,16,79,23, 1
5, 16.Y{... "FOOD DATA",,0,16,29,23, 4,
1..{... "MAIN MENU",,0,3,29,15, 11, 8."|
... "F O O D S",,32,3,48,21, 10, 2.<| ..
,,33,5,47,20, 10, 2..|*.. 11,,"JAN","FE
B","MAR","APR","MAY","JUN","JUL","AUG","
SEP","OCT","NOV","DEC"..|4.. 30,1..|>..
10,1996.C|H.. DATA FOR WINDOW SAVES..|R.
. A2,00,A0,10,4C,0B,0D,A2,10,A0,00,86,FC
,84,FD,A9./}\.. 10,85,FB,A2,18,20,51,0D,
09,80,A2,18,20,45,0D,A2.E}F.. 12,A5,FD,2
0,45,0D,E8,A9,00,20,45,0D,A2,20,A5,FC..}
H.. 20,45,0D,E8,A9,00,20,45,0D,A2,1E,A9,
FF,20,45,0D.Q}J.. C6,FB,D0,F5,60,8E,00,D
6,2C,00,D6,10,FB,8D,01,D6..}L.. 60,8E,00
,D6,2C,00,D6,10,FB,AD,01,D6,60.'~P..,1,1
1," QUIT? ARE YOU SURE? (Y/N)".H~Z..A8$
:.A8$.."Y".A8$.."N".6010.W~...A8$."N"...
J~..."..."G(27)"N"..~..."HELLO CONNECT".
"HELLO CONNECT",U(DV):.DS..63..16384.A~.
.."HELLO CONNECT",U(DV):...~.'D.B(186):N
$."FOOD CALC":.(N$),U(D):.(N$),U(D):..J
`.M8$."..
"..J..,3,12:."........................
........................................
........."..T..I.1.10:..3)M8$:....~...3
)"......................................
...................................".1..
.M9$(0)."F O O D C A L C.L...M9
$(2)."BY MARK JORDAN.T...M9$(4)."(C)1996
BY J & F PUBLISHING.....M9$(6)."THIS PR
OGRAM IS NOT SHAREWARE OR IN THE PUBLIC
DOMAIN......M9$(7)."LOADSTAR 128: 1-800
-594-3370 OR 1-318-221-8718.".'....,0,14
:.I.0.7:."..".40.(C(M9$(I)).2))M9$(I):..
-.......
> CLICK IMAGE PREVIEW FOR FULL MODAL