CRUISE EXPENSE
FILE INFORMATION
FILENAME(S): CRUISE EXPENSE
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-10-20 14:30:37
APPEARS ON: 1 disk(s)
FILE HASH
9591a2e5ffc8de966ff2dd52d20c4aeb1450c0e28e11c8f854eaef7a42df5666
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0001UT | CRUISE EXPENSE | PRG | Treasure Chest - Klaus Der Suhler | 13 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4B 08 0A 00 8F 20 43 52 55 49 53 45 20 45 |..K.... CRUISE E|
00000010: 58 50 45 4E 53 45 20 49 53 20 42 41 53 45 44 20 |XPENSE IS BASED |
00000020: 4F 4E 20 41 4E 20 41 52 54 49 43 4C 45 20 57 52 |ON AN ARTICLE WR|
00000030: 49 54 54 45 4E 20 42 59 20 44 4F 4E 41 4C 44 20 |ITTEN BY DONALD |
00000040: 4A 2E 20 43 4C 41 55 53 49 4E 47 00 71 08 14 00 |J. CLAUSING.q...|
00000050: 8F 20 49 4E 20 54 48 45 20 4E 4F 56 45 4D 42 45 |. IN THE NOVEMBE|
00000060: 52 20 31 39 38 35 20 41 4F 50 41 20 50 49 4C 4F |R 1985 AOPA PILO|
00000070: 54 00 88 08 19 00 8F 20 53 45 54 20 55 50 20 56 |T...... SET UP V|
00000080: 41 52 49 41 42 4C 45 53 00 D4 08 1E 00 4D 41 B2 |ARIABLES.....MA.|
00000090: 30 3A 4F 56 B2 30 3A 46 50 B2 30 3A 43 52 B2 30 |0:OV.0:FP.0:CR.0|
000000A0: 3A 46 34 B2 30 3A 46 35 B2 30 3A 46 36 B2 30 3A |:F4.0:F5.0:F6.0:|
000000B0: 46 37 B2 30 3A 45 34 B2 30 3A 45 35 B2 30 3A 45 |F7.0:E4.0:E5.0:E|
000000C0: 36 B2 30 3A 45 37 B2 4F 3A 42 24 B2 22 22 3A 41 |6.0:E7.O:B$."":A|
000000D0: 24 B2 22 22 00 1A 09 28 00 43 34 B2 30 3A 43 35 |$.""...(.C4.0:C5|
000000E0: B2 30 3A 43 36 B2 30 3A 43 37 B2 30 3A 48 34 B2 |.0:C6.0:C7.0:H4.|
000000F0: 30 3A 48 35 B2 30 3A 48 36 B2 30 3A 48 37 B2 30 |0:H5.0:H6.0:H7.0|
00000100: 3A 41 34 B2 30 3A 41 35 B2 30 3A 41 36 B2 30 3A |:A4.0:A5.0:A6.0:|
00000110: 41 37 B2 30 3A 43 24 B2 22 22 00 60 09 32 00 44 |A7.0:C$."".`.2.D|
00000120: 34 B2 30 3A 44 35 B2 30 3A 44 36 B2 30 3A 44 37 |4.0:D5.0:D6.0:D7|
00000130: B2 30 3A 59 34 B2 30 3A 59 35 B2 30 3A 59 36 B2 |.0:Y4.0:Y5.0:Y6.|
00000140: 30 3A 59 37 B2 30 3A 53 34 B2 30 3A 53 35 B2 30 |0:Y7.0:S4.0:S5.0|
00000150: 3A 53 36 B2 30 3A 53 37 B2 30 3A 4E 24 B2 22 22 |:S6.0:S7.0:N$.""|
00000160: 00 8E 09 3C 00 8F 20 54 48 49 53 20 50 52 4F 47 |...<.. THIS PROG|
00000170: 52 41 4D 20 52 45 51 55 49 52 45 53 20 41 4E 20 |RAM REQUIRES AN |
00000180: 38 30 2D 43 4F 4C 20 44 49 53 50 4C 41 59 00 C5 |80-COL DISPLAY..|
00000190: 09 46 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |.F.." |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 43 52 55 49 53 45 20 45 58 50 | CRUISE EXP|
000001C0: 45 4E 53 45 22 00 FE 09 50 00 99 22 20 20 20 20 |ENSE"...P.." |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 59 20 | BY |
000001F0: 43 41 52 4C 20 42 4F 47 41 52 44 55 53 22 00 04 |CARL BOGARDUS"..|
00000200: 0A 5A 00 99 00 28 0A 5F 00 85 22 41 49 52 43 52 |.Z...(._.."AIRCR|
00000210: 41 46 54 20 4E 41 4D 45 20 4F 52 20 4E 20 4E 55 |AFT NAME OR N NU|
00000220: 4D 42 45 52 22 3B 4E 24 00 52 0A 64 00 85 22 41 |MBER";N$.R.d.."A|
00000230: 4E 4E 55 41 4C 20 4D 41 49 4E 54 45 4E 41 4E 43 |NNUAL MAINTENANC|
00000240: 45 20 43 4F 53 54 53 20 48 4F 55 52 4C 59 22 3B |E COSTS HOURLY";|
00000250: 4D 41 00 58 0A 6E 00 99 00 7A 0A 78 00 85 22 48 |MA.X.n...z.x.."H|
00000260: 4F 55 52 4C 59 20 4F 56 45 52 48 41 55 4C 20 52 |OURLY OVERHAUL R|
00000270: 45 53 45 52 56 45 22 3B 4F 56 00 80 0A 82 00 99 |ESERVE";OV......|
00000280: 00 B1 0A 8C 00 85 22 48 4F 55 52 4C 59 20 43 52 |......"HOURLY CR|
00000290: 45 57 20 43 4F 53 54 20 4F 52 20 56 41 4C 55 45 |EW COST OR VALUE|
000002A0: 20 4F 46 20 59 4F 55 52 20 54 49 4D 45 22 3B 43 | OF YOUR TIME";C|
000002B0: 52 00 B7 0A 96 00 99 00 DE 0A A0 00 85 22 41 56 |R............"AV|
000002C0: 45 52 41 47 45 20 46 55 45 4C 20 43 4F 53 54 20 |ERAGE FUEL COST |
000002D0: 50 45 52 20 47 41 4C 4C 4F 4E 22 3B 46 50 00 E4 |PER GALLON";FP..|
000002E0: 0A AA 00 99 00 0D 0B B4 00 85 22 46 55 45 4C 20 |.........."FUEL |
000002F0: 55 53 45 20 28 47 41 4C 2E 20 50 45 52 20 48 52 |USE (GAL. PER HR|
00000300: 2E 29 20 41 54 20 34 35 25 22 3B 46 34 00 36 0B |.) AT 45%";F4.6.|
00000310: BE 00 85 22 46 55 45 4C 20 55 53 45 20 28 47 41 |..."FUEL USE (GA|
00000320: 4C 2E 20 50 45 52 20 48 52 2E 29 20 41 54 20 35 |L. PER HR.) AT 5|
00000330: 35 25 22 3B 46 35 00 5F 0B C8 00 85 22 46 55 45 |5%";F5._...."FUE|
00000340: 4C 20 55 53 45 20 28 47 41 4C 2E 20 50 45 52 20 |L USE (GAL. PER |
00000350: 48 52 2E 29 20 41 54 20 36 35 25 22 3B 46 36 00 |HR.) AT 65%";F6.|
00000360: 88 0B D2 00 85 22 46 55 45 4C 20 55 53 45 20 28 |....."FUEL USE (|
00000370: 47 41 4C 2E 20 50 45 52 20 48 52 2E 29 20 41 54 |GAL. PER HR.) AT|
00000380: 20 37 35 25 22 3B 46 37 00 AF 0B DC 00 85 22 54 | 75%";F7......"T|
00000390: 52 55 45 20 41 49 52 53 50 45 45 44 20 28 4B 4E |RUE AIRSPEED (KN|
000003A0: 4F 54 53 29 20 41 54 20 34 35 25 22 3B 41 34 00 |OTS) AT 45%";A4.|
000003B0: D6 0B E6 00 85 22 54 52 55 45 20 41 49 52 53 50 |....."TRUE AIRSP|
000003C0: 45 45 44 20 28 4B 4E 4F 54 53 29 20 41 54 20 35 |EED (KNOTS) AT 5|
000003D0: 35 25 22 3B 41 35 00 FD 0B F0 00 85 22 54 52 55 |5%";A5......"TRU|
000003E0: 45 20 41 49 52 53 50 45 45 44 20 28 4B 4E 4F 54 |E AIRSPEED (KNOT|
000003F0: 53 29 20 41 54 20 36 35 25 22 3B 41 36 00 24 0C |S) AT 65%";A6.$.|
00000400: FA 00 85 22 54 52 55 45 20 41 49 52 53 50 45 45 |..."TRUE AIRSPEE|
00000410: 44 20 28 4B 4E 4F 54 53 29 20 41 54 20 37 35 25 |D (KNOTS) AT 75%|
00000420: 22 3B 41 37 00 53 0C 04 01 85 22 41 52 45 20 41 |";A7.S...."ARE A|
00000430: 4C 4C 20 4F 46 20 54 48 45 20 46 49 47 55 52 45 |LL OF THE FIGURE|
00000440: 53 20 43 4F 52 52 45 43 54 20 28 59 2F 4E 29 22 |S CORRECT (Y/N)"|
00000450: 3B 42 24 00 63 0C 0E 01 8B 20 42 24 B2 22 22 A7 |;B$.c.... B$."".|
00000460: 32 36 30 00 75 0C 18 01 8B 20 42 24 B2 22 59 22 |260.u.... B$."Y"|
00000470: A7 20 33 30 30 00 86 0C 22 01 8B 20 42 24 B2 22 |. 300...".. B$."|
00000480: 4E 22 A7 20 33 30 00 97 0C 27 01 8B 42 24 B3 B1 |N". 30...'..B$..|
00000490: 22 4E 22 A7 32 36 30 00 C5 0C 2C 01 8F 20 43 41 |"N".260...,.. CA|
000004A0: 4C 43 55 4C 41 54 45 20 46 55 45 4C 20 43 4F 53 |LCULATE FUEL COS|
000004B0: 54 20 41 54 20 45 41 43 48 20 50 4F 57 45 52 20 |T AT EACH POWER |
000004C0: 4C 45 56 45 4C 00 D2 0C 36 01 43 34 B2 46 50 AC |LEVEL...6.C4.FP.|
000004D0: 46 34 00 DF 0C 40 01 43 35 B2 46 50 AC 46 35 00 |F4...@.C5.FP.F5.|
000004E0: EC 0C 4A 01 43 36 B2 46 50 AC 46 36 00 F9 0C 54 |..J.C6.FP.F6...T|
000004F0: 01 43 37 B2 46 50 AC 46 37 00 2F 0D 5E 01 8F 20 |.C7.FP.F7./.^.. |
00000500: 43 41 4C 43 55 4C 41 54 45 20 54 4F 54 41 4C 20 |CALCULATE TOTAL |
00000510: 48 4F 55 52 4C 59 20 43 4F 53 54 20 41 54 20 45 |HOURLY COST AT E|
00000520: 41 43 48 20 50 4F 57 45 52 20 4C 45 56 45 4C 00 |ACH POWER LEVEL.|
00000530: 42 0D 68 01 48 34 B2 4D 41 AA 4F 56 AA 43 52 AA |B.h.H4.MA.OV.CR.|
00000540: 43 34 00 55 0D 72 01 48 35 B2 4D 41 AA 4F 56 AA |C4.U.r.H5.MA.OV.|
00000550: 43 52 AA 43 35 00 68 0D 7C 01 48 36 B2 4D 41 AA |CR.C5.h.|.H6.MA.|
00000560: 4F 56 AA 43 52 AA 43 36 00 7B 0D 86 01 48 37 B2 |OV.CR.C6.{...H7.|
00000570: 4D 41 AA 4F 56 AA 43 52 AA 43 37 00 A5 0D 90 01 |MA.OV.CR.C7.....|
00000580: 8F 20 43 41 4C 43 55 4C 41 54 45 20 44 4F 4C 4C |. CALCULATE DOLL|
00000590: 41 52 53 20 50 45 52 20 4E 41 55 54 49 43 41 4C |ARS PER NAUTICAL|
000005A0: 20 4D 49 4C 45 00 B2 0D 9A 01 44 34 B2 48 34 AD | MILE.....D4.H4.|
000005B0: 41 34 00 BF 0D A4 01 44 35 B2 48 35 AD 41 35 00 |A4.....D5.H5.A5.|
000005C0: CC 0D AE 01 44 36 B2 48 36 AD 41 36 00 D9 0D B8 |....D6.H6.A6....|
000005D0: 01 44 37 B2 48 37 AD 41 37 00 13 0E C2 01 8F 20 |.D7.H7.A7...... |
000005E0: 43 41 4C 43 55 4C 41 54 45 20 35 30 30 30 30 20 |CALCULATE 50000 |
000005F0: 4E 41 55 54 49 43 41 4C 20 4D 49 4C 45 20 45 58 |NAUTICAL MILE EX|
00000600: 50 45 4E 53 45 20 41 4E 44 20 52 4F 55 4E 44 20 |PENSE AND ROUND |
00000610: 4F 46 46 00 33 0E CC 01 59 34 B2 28 B5 28 28 35 |OFF.3...Y4.(.((5|
00000620: 30 30 30 30 30 30 AC 44 34 29 AA 2E 35 29 29 AD |000000.D4)..5)).|
00000630: 31 30 30 00 53 0E D6 01 59 35 B2 28 B5 28 28 35 |100.S...Y5.(.((5|
00000640: 30 30 30 30 30 30 AC 44 35 29 AA 2E 35 29 29 AD |000000.D5)..5)).|
00000650: 31 30 30 00 73 0E E0 01 59 36 B2 28 B5 28 28 35 |100.s...Y6.(.((5|
00000660: 30 30 30 30 30 30 AC 44 36 29 AA 2E 35 29 29 AD |000000.D6)..5)).|
00000670: 31 30 30 00 93 0E EA 01 59 37 B2 28 B5 28 28 35 |100.....Y7.(.((5|
00000680: 30 30 30 30 30 30 AC 44 37 29 AA 2E 35 29 29 AD |000000.D7)..5)).|
00000690: 31 30 30 00 C9 0E F4 01 8F 20 52 4F 55 4E 44 20 |100...... ROUND |
000006A0: 4F 46 46 20 44 4F 4C 4C 41 52 53 20 50 45 52 20 |OFF DOLLARS PER |
000006B0: 4E 41 55 54 49 43 41 4C 20 4D 49 4C 45 20 46 4F |NAUTICAL MILE FO|
000006C0: 52 20 44 49 53 50 4C 41 59 00 E9 0E FE 01 45 34 |R DISPLAY.....E4|
000006D0: B2 28 B5 28 28 44 34 AC 31 30 30 30 30 29 AA 2E |.(.((D4.10000)..|
000006E0: 35 29 29 AD 31 30 30 30 30 00 09 0F 08 02 45 35 |5)).10000.....E5|
000006F0: B2 28 B5 28 28 44 35 AC 31 30 30 30 30 29 AA 2E |.(.((D5.10000)..|
00000700: 35 29 29 AD 31 30 30 30 30 00 29 0F 12 02 45 36 |5)).10000.)...E6|
00000710: B2 28 B5 28 28 44 36 AC 31 30 30 30 30 29 AA 2E |.(.((D6.10000)..|
00000720: 35 29 29 AD 31 30 30 30 30 00 49 0F 1C 02 45 37 |5)).10000.I...E7|
00000730: B2 28 B5 28 28 44 37 AC 31 30 30 30 30 29 AA 2E |.(.((D7.10000)..|
00000740: 35 29 29 AD 31 30 30 30 30 00 66 0F 26 02 8F 20 |5)).10000.f.&.. |
00000750: 46 49 47 55 52 45 20 54 48 45 20 42 4F 54 54 4F |FIGURE THE BOTTO|
00000760: 4D 20 4C 49 4E 45 00 9D 0F 30 02 53 34 B2 28 28 |M LINE...0.S4.((|
00000770: B5 28 28 35 30 30 30 30 30 30 AC 44 34 29 AA 2E |.((5000000.D4)..|
00000780: 35 29 29 AB 28 B5 28 28 35 30 30 30 30 30 30 AC |5)).(.((5000000.|
00000790: 44 34 29 AA 2E 35 29 29 29 AD 31 30 30 00 D4 0F |D4)..5))).100...|
000007A0: 3A 02 53 35 B2 28 28 B5 28 28 35 30 30 30 30 30 |:.S5.((.((500000|
000007B0: 30 AC 44 34 29 AA 2E 35 29 29 AB 28 B5 28 28 35 |0.D4)..5)).(.((5|
000007C0: 30 30 30 30 30 30 AC 44 35 29 AA 2E 35 29 29 29 |000000.D5)..5)))|
000007D0: AD 31 30 30 00 0B 10 44 02 53 36 B2 28 28 B5 28 |.100...D.S6.((.(|
000007E0: 28 35 30 30 30 30 30 30 AC 44 34 29 AA 2E 35 29 |(5000000.D4)..5)|
000007F0: 29 AB 28 B5 28 28 35 30 30 30 30 30 30 AC 44 36 |).(.((5000000.D6|
00000800: 29 AA 2E 35 29 29 29 AD 31 30 30 00 42 10 4E 02 |)..5))).100.B.N.|
00000810: 53 37 B2 28 28 B5 28 28 35 30 30 30 30 30 30 AC |S7.((.((5000000.|
00000820: 44 34 29 AA 2E 35 29 29 AB 28 B5 28 28 35 30 30 |D4)..5)).(.((500|
00000830: 30 30 30 30 AC 44 37 29 AA 2E 35 29 29 29 AD 31 |0000.D7)..5))).1|
00000840: 30 30 00 57 10 58 02 8F 20 53 45 54 20 55 50 20 |00.W.X.. SET UP |
00000850: 44 49 53 50 4C 41 59 00 84 10 5D 02 99 22 49 44 |DISPLAY...].."ID|
00000860: 45 4E 54 49 46 49 43 41 54 49 4F 4E 20 20 22 3B |ENTIFICATION ";|
00000870: 4E 24 3B 22 20 43 52 55 49 53 45 20 45 58 50 45 |N$;" CRUISE EXPE|
00000880: 4E 53 45 22 00 99 10 62 02 81 49 B2 31 A4 38 30 |NSE"...b..I.1.80|
00000890: 3A 99 22 2A 22 3B 3A 82 49 00 9F 10 6C 02 99 00 |:."*";:.I...l...|
000008A0: E8 10 76 02 99 22 20 20 20 20 50 4F 57 45 52 20 |..v.." POWER |
000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 34 35 25 20 | 45% |
000008C0: 20 20 20 20 20 20 20 20 20 20 35 35 25 20 20 20 | 55% |
000008D0: 20 20 20 20 20 20 20 36 35 25 20 20 20 20 20 20 | 65% |
000008E0: 20 20 20 20 20 37 35 25 00 FD 10 80 02 81 58 B2 | 75%......X.|
000008F0: 31 A4 38 30 3A 99 22 2D 22 3B 3A 82 58 00 03 11 |1.80:."-";:.X...|
00000900: 8A 02 99 00 4F 11 94 02 99 22 20 20 20 20 54 52 |....O...." TR|
00000910: 55 45 20 41 49 52 53 50 45 45 44 20 20 20 20 22 |UE AIRSPEED "|
00000920: 3B 41 34 3B 22 20 20 20 20 20 20 20 20 20 22 3B |;A4;" ";|
00000930: 41 35 3B 22 20 20 20 20 20 20 20 20 22 3B 41 36 |A5;" ";A6|
00000940: 3B 22 20 20 20 20 20 20 20 20 20 22 3B 41 37 00 |;" ";A7.|
00000950: 96 11 9E 02 99 22 20 20 20 20 24 2F 4E 41 55 54 |....." $/NAUT|
00000960: 49 43 41 4C 20 4D 49 4C 45 53 20 22 3B 45 34 3B |ICAL MILES ";E4;|
00000970: 22 20 20 20 20 20 20 22 3B 45 35 3B 22 20 20 20 |" ";E5;" |
00000980: 20 20 20 22 3B 45 36 3B 22 20 20 20 20 20 20 20 | ";E6;" |
00000990: 20 20 22 3B 45 37 00 D3 11 A8 02 99 22 20 20 20 | ";E7......" |
000009A0: 20 35 30 2C 30 30 30 20 4E 4D 20 20 20 20 20 20 | 50,000 NM |
000009B0: 20 24 22 3B 59 34 3B 22 20 20 24 22 3B 59 35 3B | $";Y4;" $";Y5;|
000009C0: 22 20 20 24 22 3B 59 36 3B 22 20 20 20 20 24 22 |" $";Y6;" $"|
000009D0: 3B 59 37 00 1D 12 B2 02 99 22 20 20 20 20 53 41 |;Y7......" SA|
000009E0: 56 49 4E 47 53 28 2D 3D 43 4F 53 54 29 20 24 22 |VINGS(-=COST) $"|
000009F0: 3B 53 34 3B 22 20 20 20 20 20 20 20 20 24 22 3B |;S4;" $";|
00000A00: 53 35 3B 22 20 20 20 20 20 24 22 3B 53 36 3B 22 |S5;" $";S6;"|
00000A10: 20 20 20 20 20 20 20 20 24 22 3B 53 37 00 23 12 | $";S7.#.|
00000A20: BC 02 99 00 6B 12 C6 02 99 22 20 44 4F 20 59 4F |....k...." DO YO|
00000A30: 55 20 57 49 53 48 20 54 4F 20 52 45 43 41 4C 43 |U WISH TO RECALC|
00000A40: 55 4C 41 54 45 2C 20 48 41 56 45 20 41 20 50 52 |ULATE, HAVE A PR|
00000A50: 49 4E 54 45 44 20 43 4F 50 59 2C 4F 52 20 51 55 |INTED COPY,OR QU|
00000A60: 49 54 20 28 52 2F 50 2F 51 29 22 00 73 12 C7 02 |IT (R/P/Q)".s...|
00000A70: 85 41 24 00 82 12 C8 02 8B 41 24 B2 22 22 A7 37 |.A$......A$."".7|
00000A80: 31 30 00 92 12 CB 02 8B 41 24 B2 22 50 22 A7 37 |10......A$."P".7|
00000A90: 34 30 00 A1 12 D0 02 8B 41 24 B2 22 52 22 A7 33 |40......A$."R".3|
00000AA0: 30 00 B1 12 DA 02 8B 41 24 B2 22 51 22 A7 38 36 |0......A$."Q".86|
00000AB0: 30 00 C3 12 DF 02 8B 41 24 B3 B1 22 51 22 20 A7 |0......A$.."Q" .|
00000AC0: 37 31 30 00 CF 12 E4 02 9F 20 34 2C 34 2C 30 00 |710...... 4,4,0.|
00000AD0: E3 12 E9 02 8F 20 50 52 49 4E 54 20 52 4F 55 54 |..... PRINT ROUT|
00000AE0: 49 4E 45 00 1D 13 EB 02 98 34 2C 22 49 44 45 4E |INE......4,"IDEN|
00000AF0: 54 49 46 49 43 41 54 49 4F 4E 20 20 22 3B 4E 24 |TIFICATION ";N$|
00000B00: 3B C7 28 31 34 29 22 20 43 52 55 49 53 45 20 45 |;.(14)" CRUISE E|
00000B10: 58 50 45 4E 53 45 22 3B C7 28 31 35 29 00 34 13 |XPENSE";.(15).4.|
00000B20: F3 02 81 4E B2 31 A4 38 30 3A 98 34 2C 22 2A 22 |...N.1.80:.4,"*"|
00000B30: 3B 3A 82 4E 00 3E 13 F8 02 98 34 3A 98 34 00 89 |;:.N.>....4:.4..|
00000B40: 13 02 03 98 34 2C 22 20 20 20 20 50 4F 57 45 52 |....4," POWER|
00000B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 34 35 25 | 45%|
00000B60: 20 20 20 20 20 20 20 20 20 20 20 35 35 25 20 20 | 55% |
00000B70: 20 20 20 20 20 20 20 20 36 35 25 20 20 20 20 20 | 65% |
00000B80: 20 20 20 20 20 20 37 35 25 00 A0 13 0C 03 81 4D | 75%......M|
00000B90: B2 31 A4 38 30 3A 98 34 2C 22 2D 22 3B 3A 82 4D |.1.80:.4,"-";:.M|
00000BA0: 00 A7 13 16 03 98 34 00 F5 13 20 03 98 34 2C 22 |......4... ..4,"|
00000BB0: 20 20 20 20 54 52 55 45 20 41 49 52 53 50 45 45 | TRUE AIRSPEE|
00000BC0: 44 20 20 20 20 22 3B 41 34 3B 22 20 20 20 20 20 |D ";A4;" |
00000BD0: 20 20 20 20 22 3B 41 35 3B 22 20 20 20 20 20 20 | ";A5;" |
00000BE0: 20 20 22 3B 41 36 3B 22 20 20 20 20 20 20 20 20 | ";A6;" |
00000BF0: 20 22 3B 41 37 00 3D 14 2A 03 98 34 2C 22 20 20 | ";A7.=.*..4," |
00000C00: 20 20 24 2F 4E 41 55 54 49 43 41 4C 20 4D 49 4C | $/NAUTICAL MIL|
00000C10: 45 53 20 22 3B 45 34 3B 22 20 20 20 20 20 20 20 |ES ";E4;" |
00000C20: 22 3B 45 35 3B 22 20 20 20 20 20 20 22 3B 45 36 |";E5;" ";E6|
00000C30: 3B 22 20 20 20 20 20 20 20 22 3B 45 37 00 7B 14 |;" ";E7.{.|
00000C40: 34 03 98 34 2C 22 20 20 20 20 35 30 2C 30 30 30 |4..4," 50,000|
00000C50: 20 4E 4D 20 20 20 20 20 20 20 24 22 3B 59 34 3B | NM $";Y4;|
00000C60: 22 20 20 24 22 3B 59 35 3B 22 20 20 24 22 3B 59 |" $";Y5;" $";Y|
00000C70: 36 3B 22 20 20 20 24 22 3B 59 37 00 C5 14 3E 03 |6;" $";Y7...>.|
00000C80: 98 34 2C 22 20 20 20 20 53 41 56 49 4E 47 53 28 |.4," SAVINGS(|
00000C90: 2D 3D 43 4F 53 54 29 20 24 22 3B 53 34 3B 22 20 |-=COST) $";S4;" |
00000CA0: 20 20 20 20 20 20 20 20 24 22 3B 53 35 3B 22 20 | $";S5;" |
00000CB0: 20 20 20 20 24 22 3B 53 36 3B 22 20 20 20 20 20 | $";S6;" |
00000CC0: 24 22 3B 53 37 00 CC 14 48 03 98 34 00 D3 14 52 |$";S7...H..4...R|
00000CD0: 03 A0 34 00 F0 14 57 03 85 22 41 4E 4F 54 48 45 |..4...W.."ANOTHE|
00000CE0: 52 20 52 55 4E 20 28 59 2F 4E 29 20 22 3B 43 24 |R RUN (Y/N) ";C$|
00000CF0: 00 FF 14 58 03 8B 43 24 B2 22 59 22 A7 33 30 00 |...X..C$."Y".30.|
00000D00: 10 15 59 03 8B 43 24 B3 B1 22 59 22 A7 38 36 30 |..Y..C$.."Y".860|
00000D10: 00 16 15 5C 03 80 00 00 00 |...\..... |
..K.... CRUISE EXPENSE IS BASED ON AN AR
TICLE WRITTEN BY DONALD J. CLAUSING.Q...
. IN THE NOVEMBER 1985 AOPA PILOT......
SET UP VARIABLES.T...MA.0:OV.0:FP.0:CR.0
:F4.0:F5.0:F6.0:F7.0:E4.0:E5.0:E6.0:E7.O
:B$."":A$.""...(.C4.0:C5.0:C6.0:C7.0:H4.
0:H5.0:H6.0:H7.0:A4.0:A5.0:A6.0:A7.0:C$.
"".`.2.D4.0:D5.0:D6.0:D7.0:Y4.0:Y5.0:Y6.
0:Y7.0:S4.0:S5.0:S6.0:S7.0:N$.""...<.. T
HIS PROGRAM REQUIRES AN 80-COL DISPLAY.E
.F.." CR
UISE EXPENSE"...P.."
BY CARL BOGARDUS"...Z...(._
.."AIRCRAFT NAME OR N NUMBER";N$.R.D.."A
NNUAL MAINTENANCE COSTS HOURLY";MA.X.N..
.Z.X.."HOURLY OVERHAUL RESERVE";OV......
......"HOURLY CREW COST OR VALUE OF YOUR
TIME";CR......... .."AVERAGE FUEL COST
PER GALLON";FP............"FUEL USE (GAL
. PER HR.) AT 45%";F4.6...."FUEL USE (GA
L. PER HR.) AT 55%";F5._.H.."FUEL USE (G
AL. PER HR.) AT 65%";F6...R.."FUEL USE (
GAL. PER HR.) AT 75%";F7......"TRUE AIRS
PEED (KNOTS) AT 45%";A4.V...."TRUE AIRSP
EED (KNOTS) AT 55%";A5......"TRUE AIRSPE
ED (KNOTS) AT 65%";A6.$...."TRUE AIRSPEE
D (KNOTS) AT 75%";A7.S...."ARE ALL OF TH
E FIGURES CORRECT (Y/N)";B$.C.... B$."".
260.U.... B$."Y". 300...".. B$."N". 30..
.'..B$.."N".260.E.,.. CALCULATE FUEL COS
T AT EACH POWER LEVEL.R.6.C4.FP.F4...@.C
5.FP.F5...J.C6.FP.F6...T.C7.FP.F7./.^..
CALCULATE TOTAL HOURLY COST AT EACH POWE
R LEVEL.B.H.H4.MA.OV.CR.C4.U.R.H5.MA.OV.
CR.C5.H.|.H6.MA.OV.CR.C6.{...H7.MA.OV.CR
.C7...... CALCULATE DOLLARS PER NAUTICAL
MILE.....D4.H4.A4.....D5.H5.A5.L...D6.H
6.A6.Y...D7.H7.A7...B.. CALCULATE 50000
NAUTICAL MILE EXPENSE AND ROUND OFF.3.L.
Y4.(.((5000000.D4)..5)).100.S.V.Y5.(.((5
000000.D5)..5)).100.S...Y6.(.((5000000.D
6)..5)).100.....Y7.(.((5000000.D7)..5)).
100.I.... ROUND OFF DOLLARS PER NAUTICAL
MILE FOR DISPLAY.....E4.(.((D4.10000)..
5)).10000.....E5.(.((D5.10000)..5)).1000
0.)...E6.(.((D6.10000)..5)).10000.I...E7
.(.((D7.10000)..5)).10000.F.&.. FIGURE T
HE BOTTOM LINE...0.S4.((.((5000000.D4)..
5)).(.((5000000.D4)..5))).100.T.:.S5.((.
((5000000.D4)..5)).(.((5000000.D5)..5)))
.100...D.S6.((.((5000000.D4)..5)).(.((50
00000.D6)..5))).100.B.N.S7.((.((5000000.
D4)..5)).(.((5000000.D7)..5))).100.W.X..
SET UP DISPLAY...].."IDENTIFICATION ";
N$;" CRUISE EXPENSE"...B..I.1.80:."*";:.
I...L.....V.." POWER 45%
55% 65% 75%
......X.1.80:."-";:.X.......O...." TR
UE AIRSPEED ";A4;" ";A5;"
";A6;" ";A7......" $/NAUT
ICAL MILES ";E4;" ";E5;" ";E6;
" ";E7.S...." 50,000 NM
$";Y4;" $";Y5;" $";Y6;" $";Y7.....
." SAVINGS(-=COST) $";S4;" $";
S5;" $";S6;" $";S7.#.....K.F.
." DO YOU WISH TO RECALCULATE, HAVE A PR
INTED COPY,OR QUIT (R/P/Q)".S.G..A$...H.
.A$."".710...K..A$."P".740...P..A$."R".3
0...Z..A$."Q".860.C....A$.."Q" .710.O...
. 4,4,0...... PRINT ROUTINE......4,"IDEN
TIFICATION ";N$;G(14)" CRUISE EXPENSE";
G(15).4....N.1.80:.4,"*";:.N.>....4:.4..
....4," POWER 45%
55% 65% 75%. ....M
.1.80:.4,"-";:.M......4... ..4," TRUE
AIRSPEED ";A4;" ";A5;"
";A6;" ";A7.=.*..4," $/NAUT
ICAL MILES ";E4;" ";E5;" ";E6
;" ";E7.{.4..4," 50,000 NM
$";Y4;" $";Y5;" $";Y6;" $";Y7.E.>.
.4," SAVINGS(-=COST) $";S4;"
$";S5;" $";S6;" $";S7.L.H..4.S.R
. 4...W.."ANOTHER RUN (Y/N) ";C$...X..C$
."Y".30...Y..C$.."Y".860...\.....
> CLICK IMAGE PREVIEW FOR FULL MODAL