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