BUDGET(TAPE)
FILE INFORMATION
FILENAME(S): BUDGET(TAPE)
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 01:08:00
APPEARS ON: 4 disk(s)
FILE HASH
931d77064cae27858b05e93553ca27a2250116aeb23ce5ce8e0bb28b72a18818
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | BUDGET(TAPE) | PRG | Treasure Chest - Wolfgang Rauprich | 21 | 10 | DOWNLOAD FILE |
| PD DISK 20 | BUDGET(TAPE) | PRG | Treasure Chest - Wolfgang Rauprich | 15 | 5 | DOWNLOAD FILE |
| FREESOFT NR | BUDGET(TAPE) | PRG | Treasure Chest - Wolfgang Rauprich | 21 | 10 | DOWNLOAD FILE |
| FREESOFT NR | BUDGET(TAPE) | PRG | Treasure Chest - Wolfgang Rauprich | 15 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 0A 00 8F 20 44 45 46 49 4E 45 20 56 |....... DEFINE V|
00000010: 41 52 49 41 42 4C 45 53 00 29 08 14 00 53 5A B2 |ARIABLES.)...SZ.|
00000020: 31 30 30 3A 49 B2 AB 31 39 00 3B 08 1E 00 52 24 |100:I..19.;...R$|
00000030: B2 C7 28 31 33 29 3A 54 41 B2 30 00 4E 08 28 00 |..(13):TA.0.N.(.|
00000040: 86 41 24 28 53 5A 29 2C 41 45 28 53 5A 29 00 6A |.A$(SZ),AE(SZ).j|
00000050: 08 32 00 96 A5 52 4E 28 58 29 B2 B5 28 58 AC 31 |.2...RN(X)..(X.1|
00000060: 30 30 AA 2E 35 29 AD 31 30 30 00 7C 08 C8 00 8F |00..5).100.|....|
00000070: 20 4D 41 49 4E 52 4F 55 54 49 4E 45 00 86 08 D2 | MAINROUTINE....|
00000080: 00 8D 36 30 30 30 00 A0 08 DC 00 5A 24 B2 22 22 |..6000.....Z$.""|
00000090: 3A A1 5A 24 3A 8B 5A 24 B2 22 22 A7 89 32 32 30 |:.Z$:.Z$.""..220|
000000A0: 00 BC 08 E6 00 8B 5A 24 B2 C7 28 31 33 33 29 A7 |......Z$..(133).|
000000B0: 49 B2 49 AA 32 30 3A 8D 31 30 30 30 00 D1 08 EB |I.I.20:.1000....|
000000C0: 00 8B 5A 24 B2 C7 28 31 33 34 29 A7 8D 33 30 30 |..Z$..(134)..300|
000000D0: 30 00 E6 08 F0 00 8B 5A 24 B2 C7 28 31 33 35 29 |0......Z$..(135)|
000000E0: A7 8D 35 30 30 30 00 FB 08 F5 00 8B 5A 24 B2 C7 |..5000......Z$..|
000000F0: 28 31 33 36 29 A7 8D 37 30 30 30 00 10 09 FA 00 |(136)..7000.....|
00000100: 8B 5A 24 B2 C7 28 31 33 37 29 A7 8D 32 30 30 30 |.Z$..(137)..2000|
00000110: 00 25 09 FF 00 8B 5A 24 B2 C7 28 31 33 38 29 A7 |.%....Z$..(138).|
00000120: 8D 34 30 30 30 00 3A 09 04 01 8B 5A 24 B2 C7 28 |.4000.:....Z$..(|
00000130: 31 33 39 29 A7 8D 36 30 30 30 00 4F 09 09 01 8B |139)..6000.O....|
00000140: 5A 24 B2 C7 28 31 34 30 29 A7 8D 38 30 30 30 00 |Z$..(140)..8000.|
00000150: 69 09 0E 01 8B 5A 24 B2 C7 28 31 37 29 A7 49 B2 |i....Z$..(17).I.|
00000160: 49 AB 31 3A 8D 31 30 30 30 00 84 09 13 01 8B 5A |I.1:.1000......Z|
00000170: 24 B2 C7 28 31 34 35 29 A7 49 B2 49 AA 31 3A 8D |$..(145).I.I.1:.|
00000180: 31 30 30 30 00 8D 09 2B 01 89 32 32 30 00 A5 09 |1000...+..220...|
00000190: 2C 01 8F 20 41 43 43 55 4D 55 4C 41 54 45 20 54 |,.. ACCUMULATE T|
000001A0: 4F 54 41 4C 53 00 AE 09 36 01 54 41 B2 30 00 BA |OTALS...6.TA.0..|
000001B0: 09 40 01 81 4A B2 31 A4 4D 58 00 CA 09 4A 01 54 |.@..J.1.MX...J.T|
000001C0: 41 B2 54 41 AA 41 45 28 4A 29 00 D1 09 54 01 82 |A.TA.AE(J)...T..|
000001D0: 4A 00 D7 09 8F 01 8E 00 E8 09 90 01 8F 20 4C 4F |J............ LO|
000001E0: 41 44 20 46 49 4C 45 53 00 FC 09 9A 01 85 22 46 |AD FILES......"F|
000001F0: 49 4C 45 20 4E 41 4D 45 22 3B 46 24 00 13 0A A4 |ILE NAME";F$....|
00000200: 01 8B 46 24 B2 22 2A 45 4E 44 22 A7 8D 36 30 30 |..F$."*END"..600|
00000210: 30 3A 8E 00 20 0A A9 01 9F 31 35 2C 38 2C 31 35 |0:.. ....15,8,15|
00000220: 00 2E 0A C2 01 9F 31 2C 31 2C 30 2C 46 24 00 43 |......1,1,0,F$.C|
00000230: 0A C7 01 84 31 35 2C 45 4D 2C 45 4E 24 2C 45 53 |....15,EM,EN$,ES|
00000240: 2C 45 54 00 58 0A C8 01 99 22 11 11 46 49 4C 45 |,ET.X...."..FILE|
00000250: 20 53 54 41 54 55 53 22 00 6A 0A CA 01 99 45 4D | STATUS".j....EM|
00000260: 3B 45 4E 24 3B 45 53 3B 45 54 00 74 0A CC 01 84 |;EN$;ES;ET.t....|
00000270: 31 2C 4D 58 00 80 0A D6 01 81 4A B2 31 A4 4D 58 |1,MX......J.1.MX|
00000280: 00 95 0A E0 01 84 31 2C 59 2C 41 24 28 4A 29 2C |......1,Y,A$(J),|
00000290: 41 45 28 4A 29 00 9C 0A EA 01 82 4A 00 A3 0A EF |AE(J)......J....|
000002A0: 01 A0 31 00 A9 0A F3 01 8E 00 BC 0A F4 01 8F 20 |..1............ |
000002B0: 53 4F 52 54 20 42 59 20 4E 41 4D 45 00 CB 0A F9 |SORT BY NAME....|
000002C0: 01 8B 4D 58 B2 31 A7 89 35 39 39 00 E3 0A FE 01 |..MX.1..599.....|
000002D0: 99 22 11 11 1D 1D 1D 1D 1D 12 53 4F 52 54 49 4E |."........SORTIN|
000002E0: 47 92 22 00 F1 0A 08 02 81 4A B2 31 A4 4D 58 AB |G."......J.1.MX.|
000002F0: 31 00 FF 0A 12 02 81 4B B2 4A AA 31 A4 4D 58 00 |1......K.J.1.MX.|
00000300: 15 0B 1C 02 8B 41 24 28 4B 29 B1 41 24 28 4A 29 |.....A$(K).A$(J)|
00000310: A7 89 35 39 30 00 2C 0B 26 02 53 4D 24 B2 41 24 |..590.,.&.SM$.A$|
00000320: 28 4B 29 3A 53 4D B2 41 45 28 4B 29 00 48 0B 30 |(K):SM.AE(K).H.0|
00000330: 02 41 24 28 4B 29 B2 41 24 28 4A 29 3A 41 45 28 |.A$(K).A$(J):AE(|
00000340: 4B 29 B2 41 45 28 4A 29 00 5F 0B 3A 02 41 24 28 |K).AE(J)._.:.A$(|
00000350: 4A 29 B2 53 4D 24 3A 41 45 28 4A 29 B2 53 4D 00 |J).SM$:AE(J).SM.|
00000360: 66 0B 4E 02 82 4B 00 6D 0B 53 02 82 4A 00 73 0B |f.N..K.m.S..J.s.|
00000370: 57 02 8E 00 81 0B E8 03 8F 20 44 49 53 50 4C 41 |W........ DISPLA|
00000380: 59 00 97 0B F2 03 8B 28 49 B3 31 29 B0 28 49 B1 |Y......(I.1).(I.|
00000390: 4D 58 29 A7 49 B2 31 00 BB 0B FC 03 99 22 93 23 |MX).I.1......".#|
000003A0: 22 A3 35 29 22 9F 45 58 50 45 4E 53 45 53 90 22 |".5)".EXPENSES."|
000003B0: A3 31 36 29 22 9C 41 4D 54 90 22 00 C9 0B 06 04 |.16)".AMT.".....|
000003C0: 81 4A B2 49 A4 49 AA 31 39 00 DE 0B 10 04 8B 4A |.J.I.I.19......J|
000003D0: B1 4D 58 A7 99 22 20 22 3A 89 31 30 38 30 00 0C |.MX.." ":.1080..|
000003E0: 0C 1A 04 50 52 24 B2 C4 28 41 45 28 4A 29 AA 2E |...PR$..(AE(J)..|
000003F0: 30 30 31 29 3A 50 52 24 B2 CA 28 50 52 24 2C 32 |001):PR$..(PR$,2|
00000400: 2C 28 C3 28 50 52 24 29 AB 32 29 29 00 24 0C 24 |,(.(PR$).2)).$.$|
00000410: 04 8B 41 45 28 4A 29 B2 30 A7 50 52 24 B2 22 30 |..AE(J).0.PR$."0|
00000420: 2E 30 30 22 00 35 0C 29 04 4A 24 B2 CA 28 C4 28 |.00".5.).J$..(.(|
00000430: 4A 29 2C 32 29 00 5D 0C 2E 04 99 A3 33 AB C3 28 |J),2).].....3..(|
00000440: 4A 24 29 29 4A 24 3B A3 34 29 41 24 28 4A 29 A3 |J$))J$;.4)A$(J).|
00000450: 32 31 AB C3 28 50 52 24 29 29 50 52 24 00 64 0C |21..(PR$))PR$.d.|
00000460: 38 04 82 4A 00 77 0C 42 04 54 41 24 B2 C4 28 54 |8..J.w.B.TA$..(T|
00000470: 41 AA 2E 30 30 31 29 00 8F 0C 4C 04 54 41 24 B2 |A..001)...L.TA$.|
00000480: C8 28 54 41 24 2C C3 28 54 41 24 29 AB 31 29 00 |.(TA$,.(TA$).1).|
00000490: A4 0C 56 04 8B 54 41 B2 30 A7 54 41 24 B2 22 30 |..V..TA.0.TA$."0|
000004A0: 2E 30 30 22 00 B6 0C 60 04 99 22 9F 54 4F 54 41 |.00"...`..".TOTA|
000004B0: 4C 90 22 54 41 24 00 BC 0C CF 07 8E 00 CA 0C D0 |L."TA$..........|
000004C0: 07 8F 20 41 44 44 20 4E 45 57 00 E2 0C DA 07 52 |.. ADD NEW.....R|
000004D0: B2 4D 58 AA 31 3A 4E 24 B2 22 22 3A 45 31 24 B2 |.MX.1:N$."":E1$.|
000004E0: 22 22 00 FE 0C E4 07 99 22 93 1D 1D 1D 41 44 44 |""......"....ADD|
000004F0: 20 4E 45 57 20 45 58 50 45 4E 53 45 53 22 00 1B | NEW EXPENSES"..|
00000500: 0D EE 07 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
00000510: 1D 1D 49 54 45 4D 20 23 22 3B 52 00 31 0D F8 07 |..ITEM #";R.1...|
00000520: 85 22 11 49 54 45 4D 20 4E 41 4D 45 20 22 3B 4E |.".ITEM NAME ";N|
00000530: 24 00 46 0D 02 08 8B 4E 24 B2 22 2A 45 4E 44 22 |$.F....N$."*END"|
00000540: A7 89 32 39 39 39 00 60 0D 07 08 8B C3 28 4E 24 |..2999.`.....(N$|
00000550: 29 B1 31 30 A7 4E 24 B2 C8 28 4E 24 2C 31 30 29 |).10.N$..(N$,10)|
00000560: 00 6D 0D 0C 08 41 24 28 52 29 B2 4E 24 00 84 0D |.m...A$(R).N$...|
00000570: 16 08 85 22 11 49 54 45 4D 20 41 4D 54 20 20 22 |...".ITEM AMT "|
00000580: 3B 45 31 24 00 9A 0D 20 08 8B 45 31 24 B2 22 2A |;E1$... ..E1$."*|
00000590: 45 4E 44 22 A7 89 32 39 39 39 00 B6 0D 25 08 8B |END"..2999...%..|
000005A0: C5 28 45 31 24 29 B2 30 A7 41 45 28 52 29 B2 30 |.(E1$).0.AE(R).0|
000005B0: 3A 89 32 31 30 30 00 CC 0D 2A 08 41 45 28 52 29 |:.2100...*.AE(R)|
000005C0: B2 A5 52 4E 28 C5 28 45 31 24 29 29 00 ED 0D 2F |..RN(.(E1$)).../|
000005D0: 08 8B 41 45 28 52 29 B1 39 39 39 39 2E 39 39 A7 |..AE(R).9999.99.|
000005E0: 41 45 28 52 29 B2 39 39 39 39 2E 39 39 00 F9 0D |AE(R).9999.99...|
000005F0: 34 08 4D 58 B2 4D 58 AA 31 00 03 0E 3E 08 89 32 |4.MX.MX.1...>..2|
00000600: 30 31 30 00 0F 0E 98 08 4D 58 B2 4D 58 AA 31 00 |010.....MX.MX.1.|
00000610: 25 0E B7 0B 8D 35 30 30 3A 8D 33 30 30 3A 8D 36 |%....500:.300:.6|
00000620: 30 30 30 3A 8E 00 32 0E B8 0B 8F 20 55 50 44 41 |000:..2.... UPDA|
00000630: 54 45 00 50 0E C2 0B 99 22 93 1F 45 58 50 45 4E |TE.P...."..EXPEN|
00000640: 53 45 20 22 3B 22 12 55 50 44 41 54 45 92 90 22 |SE ";".UPDATE.."|
00000650: 00 64 0E CC 0B 85 22 11 49 54 45 4D 20 23 20 22 |.d....".ITEM # "|
00000660: 3B 50 31 24 00 7A 0E D1 0B 8B 50 31 24 B2 22 2A |;P1$.z....P1$."*|
00000670: 45 4E 44 22 A7 89 33 39 39 39 00 B4 0E D2 0B 8B |END"..3999......|
00000680: 28 C5 28 50 31 24 29 B2 30 29 B0 28 C5 28 50 31 |(.(P1$).0).(.(P1|
00000690: 24 29 B3 31 29 A7 99 22 11 11 1D 1D 1D 1D 1F 12 |$).1).."........|
000006A0: 49 4E 50 55 54 20 45 52 52 4F 52 92 90 22 3A 89 |INPUT ERROR..":.|
000006B0: 33 30 32 30 00 C4 0E D3 0B 50 B2 B5 28 C5 28 50 |3020.....P..(.(P|
000006C0: 31 24 29 29 00 D5 0E D6 0B 4E 24 B2 22 22 3A 45 |1$)).....N$."":E|
000006D0: 31 24 B2 22 22 00 F9 0E E0 0B 8B 50 B1 53 5A A7 |1$.""......P.SZ.|
000006E0: 99 22 4D 41 58 20 45 58 43 45 45 44 45 44 22 3A |."MAX EXCEEDED":|
000006F0: 50 B2 53 5A 3A 4D 58 B2 50 00 08 0F EA 0B 8B 50 |P.SZ:MX.P......P|
00000700: B1 4D 58 A7 4D 58 B2 50 00 36 0F F4 0B 50 52 24 |.MX.MX.P.6...PR$|
00000710: B2 C4 28 41 45 28 50 29 AA 2E 30 30 31 29 3A 50 |..(AE(P)..001):P|
00000720: 52 24 B2 CA 28 50 52 24 2C 32 2C 28 C3 28 50 52 |R$..(PR$,2,(.(PR|
00000730: 24 29 AB 32 29 29 00 4E 0F F9 0B 8B 41 45 28 50 |$).2)).N....AE(P|
00000740: 29 B2 30 A7 50 52 24 B2 22 30 2E 30 30 22 00 6C |).0.PR$."0.00".l|
00000750: 0F FE 0B 99 50 3B A3 34 29 41 24 28 50 29 A3 32 |....P;.4)A$(P).2|
00000760: 31 AB C3 28 50 52 24 29 29 50 52 24 00 81 0F 08 |1..(PR$))PR$....|
00000770: 0C 85 22 11 49 54 45 4D 20 4E 41 4D 45 22 3B 4E |..".ITEM NAME";N|
00000780: 24 00 96 0F 12 0C 8B 4E 24 B2 22 2A 45 4E 44 22 |$......N$."*END"|
00000790: A7 89 33 39 39 39 00 AB 0F 1C 0C 8B 4E 24 B3 B1 |..3999......N$..|
000007A0: 22 22 A7 41 24 28 50 29 B2 4E 24 00 CE 0F 21 0C |"".A$(P).N$...!.|
000007B0: 8B C3 28 41 24 28 50 29 29 B1 31 30 A7 41 24 28 |..(A$(P)).10.A$(|
000007C0: 50 29 B2 C8 28 41 24 28 50 29 2C 31 30 29 00 DE |P)..(A$(P),10)..|
000007D0: 0F 26 0C 85 22 41 4D 54 20 22 3B 45 31 24 00 F4 |.&.."AMT ";E1$..|
000007E0: 0F 30 0C 8B 45 31 24 B2 22 2A 45 4E 44 22 A7 89 |.0..E1$."*END"..|
000007F0: 33 39 39 39 00 05 10 35 0C 8B 45 31 24 B2 22 22 |3999...5..E1$.""|
00000800: 89 33 30 31 30 00 3E 10 3A 0C 8B 28 C5 28 45 31 |.3010.>.:..(.(E1|
00000810: 24 29 B2 30 29 AF 28 45 31 24 B3 B1 22 30 22 29 |$).0).(E1$.."0")|
00000820: A7 99 22 11 11 1D 1D 1D 12 9C 49 4E 50 55 54 20 |..".......INPUT |
00000830: 45 52 52 4F 52 12 90 22 3A 89 33 31 31 30 00 5A |ERROR..":.3110.Z|
00000840: 10 3F 0C 8B C5 28 45 31 24 29 B2 30 A7 41 45 28 |.?...(E1$).0.AE(|
00000850: 50 29 B2 30 3A 89 33 38 30 30 00 70 10 44 0C 41 |P).0:.3800.p.D.A|
00000860: 45 28 50 29 B2 A5 52 4E 28 C5 28 45 31 24 29 29 |E(P)..RN(.(E1$))|
00000870: 00 91 10 4E 0C 8B 41 45 28 50 29 B1 39 39 39 39 |...N..AE(P).9999|
00000880: 2E 39 39 A7 41 45 28 50 29 B2 39 39 39 39 2E 39 |.99.AE(P).9999.9|
00000890: 39 00 9B 10 D8 0E 89 33 30 31 30 00 B1 10 9F 0F |9......3010.....|
000008A0: 8D 35 30 30 3A 8D 33 30 30 3A 8D 36 30 30 30 3A |.500:.300:.6000:|
000008B0: 8E 00 C1 10 A0 0F 8F 20 53 41 56 45 20 46 49 4C |....... SAVE FIL|
000008C0: 45 00 DE 10 AA 0F 99 22 93 1D 1D 1D 53 41 56 45 |E......"....SAVE|
000008D0: 20 45 58 50 45 4E 53 45 20 4C 49 53 54 22 00 F4 | EXPENSE LIST"..|
000008E0: 10 B4 0F 85 22 11 11 46 49 4C 45 20 4E 41 4D 45 |...."..FILE NAME|
000008F0: 22 3B 46 24 00 0B 11 BE 0F 8B 46 24 B2 22 2A 45 |";F$......F$."*E|
00000900: 4E 44 22 A7 8D 36 30 30 30 3A 8E 00 19 11 D2 0F |ND"..6000:......|
00000910: 9F 31 2C 31 2C 31 2C 46 24 00 23 11 DC 0F 98 31 |.1,1,1,F$.#....1|
00000920: 2C 4D 58 00 2F 11 E6 0F 81 4A B2 31 A4 4D 58 00 |,MX./....J.1.MX.|
00000930: 4C 11 F0 0F 98 31 2C 4A 3B 52 24 3B 41 24 28 4A |L....1,J;R$;A$(J|
00000940: 29 52 24 3B 41 45 28 4A 29 3B 52 24 00 54 11 FA |)R$;AE(J);R$.T..|
00000950: 0F 82 20 4A 00 5B 11 04 10 A0 31 00 67 11 87 13 |.. J.[....1.g...|
00000960: 8D 36 30 30 30 3A 8E 00 74 11 88 13 8F 20 44 45 |.6000:..t.... DE|
00000970: 4C 45 54 45 00 82 11 8D 13 44 54 B2 30 3A 54 4D |LETE.....DT.0:TM|
00000980: B2 30 00 99 11 92 13 99 22 93 1D 1D 1D 1D 1D 1D |.0......".......|
00000990: 1D 1D 44 45 4C 45 54 45 22 00 A4 11 9C 13 53 31 |..DELETE".....S1|
000009A0: 24 B2 22 22 00 BA 11 A6 13 85 22 11 11 53 54 41 |$.""......"..STA|
000009B0: 52 54 20 41 54 22 3B 53 31 24 00 D0 11 B0 13 8B |RT AT";S1$......|
000009C0: 53 31 24 B2 22 2A 45 4E 44 22 A7 89 35 39 30 30 |S1$."*END"..5900|
000009D0: 00 E1 11 BA 13 44 53 B2 B5 28 C5 28 53 31 24 29 |.....DS..(.(S1$)|
000009E0: 29 00 EC 11 C4 13 53 31 24 B2 22 22 00 16 12 CE |).....S1$.""....|
000009F0: 13 8B 44 53 B2 30 A7 99 22 11 1D 1D 1D 1D 1D 1D |..DS.0..".......|
00000A00: 12 9C 49 4E 50 55 54 20 45 52 52 4F 52 92 90 22 |..INPUT ERROR.."|
00000A10: 3A 89 35 30 32 30 00 21 12 D8 13 53 31 24 B2 22 |:.5020.!...S1$."|
00000A20: 22 00 35 12 E2 13 85 22 11 11 45 4E 44 20 41 54 |".5...."..END AT|
00000A30: 22 3B 53 31 24 00 4B 12 EC 13 8B 53 31 24 B2 22 |";S1$.K....S1$."|
00000A40: 2A 45 4E 44 22 A7 89 35 39 30 30 00 6A 12 F6 13 |*END"..5900.j...|
00000A50: 8B 53 31 24 B2 22 22 B0 53 31 24 B2 22 30 22 A7 |.S1$."".S1$."0".|
00000A60: 44 45 B2 30 3A 89 35 32 30 30 00 7B 12 00 14 44 |DE.0:.5200.{...D|
00000A70: 45 B2 B5 28 C5 28 53 31 24 29 29 00 8C 12 05 14 |E..(.(S1$)).....|
00000A80: 8B 44 45 B1 4D 58 A7 44 45 B2 4D 58 00 9E 12 0A |.DE.MX.DE.MX....|
00000A90: 14 8B 44 45 B2 B1 44 53 A7 89 35 32 30 30 00 BF |..DE..DS..5200..|
00000AA0: 12 0F 14 99 22 11 11 1D 1D 12 9C 30 20 4F 52 20 |...."......0 OR |
00000AB0: 4E 55 4D 42 45 52 20 47 52 45 41 54 45 52 22 00 |NUMBER GREATER".|
00000AC0: E1 12 14 14 99 22 11 11 1D 1D 54 48 41 4E 92 1C |....."....THAN..|
00000AD0: 22 3B 44 45 3B 22 12 9C 52 45 51 55 49 52 45 44 |";DE;"..REQUIRED|
00000AE0: 22 00 EB 12 1E 14 89 35 30 38 30 00 FB 12 50 14 |"......5080...P.|
00000AF0: 8B 44 45 B2 30 A7 44 45 B2 44 53 00 0A 13 55 14 |.DE.0.DE.DS...U.|
00000B00: 54 4D B2 44 45 AB 44 53 AA 31 00 17 13 57 14 44 |TM.DE.DS.1...W.D|
00000B10: 54 B2 44 54 AA 54 4D 00 24 13 5A 14 81 4A B2 44 |T.DT.TM.$.Z..J.D|
00000B20: 53 A4 44 45 00 42 13 64 14 41 24 28 4A 29 B2 22 |S.DE.B.d.A$(J)."|
00000B30: BF BF BF BF BF BF BF BF BF 22 3A 41 45 28 4A 29 |.........":AE(J)|
00000B40: B2 30 00 49 13 6E 14 82 4A 00 53 13 78 14 89 35 |.0.I.n..J.S.x..5|
00000B50: 30 31 30 00 5C 13 0C 17 8D 35 30 30 00 69 13 16 |010.\....500.i..|
00000B60: 17 4D 58 B2 4D 58 AB 44 54 00 7A 13 6F 17 8D 33 |.MX.MX.DT.z.o..3|
00000B70: 30 30 3A 8D 36 30 30 30 3A 8E 00 8D 13 70 17 8F |00:.6000:....p..|
00000B80: 20 4F 50 54 49 4F 4E 53 20 4D 45 4E 55 00 B0 13 | OPTIONS MENU...|
00000B90: 7A 17 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |z.."............|
00000BA0: 1D 1D 1D 1D 1D 9C 4F 50 54 49 4F 4E 53 3A 90 22 |......OPTIONS:."|
00000BB0: 00 D2 13 84 17 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |......".........|
00000BC0: 1D 1D 1D 1D 1D 1D 1D 9E 3D 3D 3D 3D 3D 3D 3D 3D |........========|
00000BD0: 90 22 00 03 14 8E 17 99 22 11 1D 12 9C 46 31 92 |."......"....F1.|
00000BE0: 05 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000BF0: 2E 2E 44 49 53 50 4C 41 59 20 45 58 50 45 4E 53 |..DISPLAY EXPENS|
00000C00: 45 53 22 00 33 14 98 17 99 22 11 1D 12 9C 46 32 |ES".3...."....F2|
00000C10: 92 05 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000C20: 2E 2E 2E 41 44 44 20 4E 45 57 20 45 58 50 45 4E |...ADD NEW EXPEN|
00000C30: 53 45 53 00 67 14 A2 17 99 22 11 1D 12 9C 46 33 |SES.g...."....F3|
00000C40: 92 05 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000C50: 2E 2E 2E 55 50 44 41 54 45 20 45 58 50 45 4E 53 |...UPDATE EXPENS|
00000C60: 45 20 4C 49 53 54 22 00 99 14 AC 17 99 22 11 1D |E LIST"......"..|
00000C70: 12 9C 46 34 92 05 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |..F4............|
00000C80: 2E 2E 2E 2E 2E 2E 2E 53 41 56 45 20 45 58 50 45 |.......SAVE EXPE|
00000C90: 4E 53 45 20 4C 49 53 54 22 00 CA 14 B6 17 99 22 |NSE LIST"......"|
00000CA0: 11 1D 12 9C 46 35 92 05 2E 2E 2E 2E 2E 2E 2E 2E |....F5..........|
00000CB0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 44 45 4C 45 54 45 20 |.........DELETE |
00000CC0: 46 52 4F 4D 20 4C 49 53 54 22 00 F9 14 C0 17 99 |FROM LIST"......|
00000CD0: 22 11 1D 12 9C 46 36 92 05 2E 2E 2E 2E 2E 2E 2E |"....F6.........|
00000CE0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 4F 50 54 49 4F 4E |..........OPTION|
00000CF0: 53 20 53 43 52 45 45 4E 22 00 24 15 CA 17 99 22 |S SCREEN".$...."|
00000D00: 11 1D 12 9C 46 37 92 05 2E 2E 2E 2E 2E 2E 2E 2E |....F7..........|
00000D10: 2E 2E 2E 2E 2E 2E 2E 2E 2E 4C 4F 41 44 20 46 49 |.........LOAD FI|
00000D20: 4C 45 53 22 00 48 15 D4 17 99 22 11 1D 12 9C 46 |LES".H...."....F|
00000D30: 38 92 05 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |8...............|
00000D40: 2E 2E 2E 2E 45 4E 44 22 00 4E 15 57 1B 8E 00 59 |....END".N.W...Y|
00000D50: 15 58 1B 8F 20 4C 4F 41 44 00 6C 15 62 1B 99 22 |.X.. LOAD.l.b.."|
00000D60: 93 1D 1D 1D 1D 1D 1D 4C 4F 41 44 22 00 87 15 6C |.......LOAD"...l|
00000D70: 1B 99 22 11 1D 1D 1D 1D 1D 45 58 50 45 4E 53 45 |.."......EXPENSE|
00000D80: 20 46 49 4C 45 53 22 00 9B 15 80 1B 4D 58 B2 30 | FILES".....MX.0|
00000D90: 3A 8D 34 30 30 3A 89 37 39 39 39 00 B3 15 8A 1B |:.400:.7999.....|
00000DA0: 8B 41 4E 24 B2 22 2A 45 4E 44 22 A7 8D 36 30 30 |.AN$."*END"..600|
00000DB0: 30 3A 8E 00 C8 15 A8 1B 85 22 11 46 49 4C 45 20 |0:.......".FILE |
00000DC0: 4E 41 4D 45 22 3B 46 24 00 DF 15 B2 1B 8B 46 24 |NAME";F$......F$|
00000DD0: B2 22 2A 45 4E 44 22 A7 8D 36 30 30 30 3A 8E 00 |."*END"..6000:..|
00000DE0: ED 15 D0 1B 9F 31 2C 31 2C 30 2C 46 24 00 F7 15 |.....1,1,0,F$...|
00000DF0: DA 1B 84 31 2C 54 31 00 04 16 E4 1B 81 54 32 B2 |...1,T1......T2.|
00000E00: 31 A4 54 31 00 14 16 EE 1B 84 31 2C 59 2C 54 33 |1.T1......1,Y,T3|
00000E10: 24 2C 54 34 00 20 16 F8 1B 81 4A B2 31 A4 4D 58 |$,T4. ....J.1.MX|
00000E20: 00 56 16 02 1C 8B 41 24 28 4A 29 B2 54 33 24 A7 |.V....A$(J).T3$.|
00000E30: 41 45 28 4A 29 B2 B5 28 28 28 41 45 28 4A 29 AA |AE(J)..(((AE(J).|
00000E40: 54 34 29 AD 32 29 AC 31 30 30 29 AD 31 30 30 3A |T4).2).100).100:|
00000E50: 54 33 24 B2 22 22 00 5D 16 0C 1C 82 4A 00 87 16 |T3$."".]....J...|
00000E60: 16 1C 8B 54 33 24 B3 B1 22 22 A7 4D 58 B2 4D 58 |...T3$.."".MX.MX|
00000E70: AA 31 3A 41 24 28 4D 58 29 B2 54 33 24 3A 41 45 |.1:A$(MX).T3$:AE|
00000E80: 28 4D 58 29 B2 54 34 00 8D 16 20 1C 82 00 94 16 |(MX).T4... .....|
00000E90: 2A 1C A0 31 00 AA 16 3F 1F 8D 35 30 30 3A 8D 33 |*..1...?..500:.3|
00000EA0: 30 30 3A 8D 36 30 30 30 3A 8E 00 BB 16 40 1F 8F |00:.6000:....@..|
00000EB0: 20 45 4E 44 20 4F 46 20 4A 4F 42 00 D8 16 4A 1F | END OF JOB...J.|
00000EC0: 99 22 93 1D 1D 1D 1D 45 4E 44 20 4F 46 20 50 52 |.".....END OF PR|
00000ED0: 4F 47 52 41 4D 11 11 22 00 01 17 54 1F 99 22 57 |OGRAM.."...T.."W|
00000EE0: 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F |OULD YOU LIKE TO|
00000EF0: 20 53 41 56 45 20 28 59 2F 4E 29 22 3A 85 41 4E | SAVE (Y/N)":.AN|
00000F00: 24 00 19 17 5E 1F 8B 41 4E 24 B2 22 2A 45 4E 44 |$...^..AN$."*END|
00000F10: 22 A7 8D 36 30 30 30 3A 8E 00 2C 17 68 1F 8B 41 |"..6000:..,.h..A|
00000F20: 4E 24 B2 22 4E 22 A7 89 38 30 36 30 00 36 17 72 |N$."N"..8060.6.r|
00000F30: 1F 8D 34 30 30 30 00 48 17 7C 1F 99 22 93 54 48 |..4000.H.|..".TH|
00000F40: 41 4E 4B 20 59 4F 55 22 00 60 17 86 1F 99 22 1D |ANK YOU".`....".|
00000F50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 4E 44 22 |............END"|
00000F60: 00 66 17 90 1F 80 00 00 00 00 29 |.f........) |
....... DEFINE VARIABLES.)...SZ.100:I..1
9.;...R$.G(13):TA.0.N.(..A$(SZ),AE(SZ).J
.2...RN(X)..(X.100..5).100.|.H.. MAINROU
TINE...R..6000. ...Z$."":.Z$:.Z$.""..220
......Z$.G(133).I.I.20:.1000.Q....Z$.G(1
34)..3000......Z$.G(135)..5000......Z$.G
(136)..7000......Z$.G(137)..2000.%....Z$
.G(138)..4000.:....Z$.G(139)..6000.O....
Z$.G(140)..8000.I....Z$.G(17).I.I.1:.100
0......Z$.G(145).I.I.1:.1000...+..220...
,.. ACCUMULATE TOTALS...6.TA.0...@..J.1.
MX.J.J.TA.TA.AE(J).Q.T..J.W.......... LO
AD FILES......"FILE NAME";F$......F$."*E
ND"..6000:.. ....15,8,15...B..1,1,0,F$.C
.G..15,EM,EN$,ES,ET.X.H.."..FILE STATUS"
.J.J..EM;EN$;ES;ET.T.L..1,MX...V..J.1.MX
......1,Y,A$(J),AE(J)......J..... 1.....
....... SORT BY NAME.K....MX.1..599.....
."........SORTING."......J.1.MX.1......K
.J.1.MX......A$(K).A$(J)..590.,.&.SM$.A$
(K):SM.AE(K).H.0.A$(K).A$(J):AE(K).AE(J)
._.:.A$(J).SM$:AE(J).SM.F.N..K.M.S..J.S.
W........ DISPLAY......(I.1).(I.MX).I.1.
.....".#".5)".EXPENSES.".16)".AMT.".I...
.J.I.I.19......J.MX.." ":.1080.....PR$.D
(AE(J)..001):PR$.J(PR$,2,(C(PR$).2)).$.$
..AE(J).0.PR$."0.00".5.).J$.J(D(J),2).].
....3.C(J$))J$;.4)A$(J).21.C(PR$))PR$.D.
8..J.W.B.TA$.D(TA..001)...L.TA$.H(TA$,C(
TA$).1)...V..TA.0.TA$."0.00"...`..".TOTA
L."TA$...O...J.P.. ADD NEW...Z.R.MX.1:N$
."":E1$.""......"....ADD NEW EXPENSES"..
....".............ITEM #";R.1....".ITEM
NAME ";N$.F....N$."*END"..2999.`....C(N$
).10.N$.H(N$,10).M...A$(R).N$......".ITE
M AMT ";E1$... ..E1$."*END"..2999...%..
E(E1$).0.AE(R).0:.2100.L.*.AE(R)..RN(E(E
1$)).../..AE(R).9999.99.AE(R).9999.99...
4.MX.MX.1...>..2010.....MX.MX.1.%....500
:.300:.6000:..2.... UPDATE.P.B.."..EXPEN
SE ";".UPDATE..".D.L..".ITEM # ";P1$.Z.Q
..P1$."*END"..3999...R..(E(P1$).0).(E(P1
$).1).."........INPUT ERROR..":.3020.D.S
.P..(E(P1$)).U.V.N$."":E1$.""......P.SZ.
."MAX EXCEEDED":P.SZ:MX.P......P.MX.MX.P
.6...PR$.D(AE(P)..001):PR$.J(PR$,2,(C(PR
$).2)).N....AE(P).0.PR$."0.00".L....P;.4
)A$(P).21.C(PR$))PR$......".ITEM NAME";N
$......N$."*END"..3999......N$.."".A$(P)
.N$.N.!..C(A$(P)).10.A$(P).H(A$(P),10)..
.&.."AMT ";E1$...0..E1$."*END"..3999...5
..E1$."".3010.>.:..(E(E1$).0).(E1$.."0")
..".......INPUT ERROR..":.3110.Z.?..E(E1
$).0.AE(P).0:.3800.P.D.AE(P)..RN(E(E1$))
...N..AE(P).9999.99.AE(P).9999.99...X..3
010......500:.300:.6000:..A. .. SAVE FIL
E......"....SAVE EXPENSE LIST"......"..F
ILE NAME";F$......F$."*END"..6000:....R.
.1,1,1,F$.#....1,MX./....J.1.MX.L....1,J
;R$;A$(J)R$;AE(J);R$.T.... J.[... 1.G...
.6000:..T.... DELETE.....DT.0:TM.0......
".........DELETE".....S1$.""......"..STA
RT AT";S1$.P....S1$."*END"..5900.....DS.
.(E(S1$))...D.S1$.""...N..DS.0..".......
..INPUT ERROR..":.5020.!.X.S1$."".5...."
..END AT";S1$.K....S1$."*END"..5900.J...
.S1$."".S1$."0".DE.0:.5200.{...DE..(E(S1
$))......DE.MX.DE.MX......DE..DS..5200..
...."......0 OR NUMBER GREATER"......"..
..THAN..";DE;"..REQUIRED"......5080...P.
.DE.0.DE.DS...U.TM.DE.DS.1...W.DT.DT.TM.
$.Z..J.DS.DE.B.D.A$(J).".........":AE(J)
.0.I.N..J.S.X..5010.\....500.I...MX.MX.D
T.Z.O..300:.6000:....P.. OPTIONS MENU...
Z.."..................OPTIONS:.".R....".
................========."......"....F1.
..................DISPLAY EXPENSES".3...
."....F2...................ADD NEW EXPEN
SES.G...."....F3...................UPDAT
E EXPENSE LIST"......"....F4............
.......SAVE EXPENSE LIST".J...."....F5..
.................DELETE FROM LIST"......
"....F6...................OPTIONS SCREEN
".$.J.."....F7...................LOAD FI
LES".H.T.."....F8...................END"
.N.W...Y.X.. LOAD.L.B..".......LOAD"...L
.."......EXPENSE FILES".....MX.0:.400:.7
999......AN$."*END"..6000:..H....".FILE
NAME";F$......F$."*END"..6000:....P..1,1
,0,F$...Z..1,T1......T2.1.T1......1,Y,T3
$,T4. ....J.1.MX.V....A$(J).T3$.AE(J)..(
((AE(J).T4).2).100).100:T3$."".]....J...
...T3$.."".MX.MX.1:A$(MX).T3$:AE(MX).T4.
.. .....*. 1...?..500:.300:.6000:....@..
END OF JOB.X.J..".....END OF PROGRAM.."
...T.."WOULD YOU LIKE TO SAVE (Y/N)":.AN
$...^..AN$."*END"..6000:..,.H..AN$."N"..
8060.6.R..4000.H.|..".THANK YOU".`....".
............END".F........)
> CLICK IMAGE PREVIEW FOR FULL MODAL