EXP SOURCE
FILE INFORMATION
FILENAME(S): EXP SOURCE
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-11-30 21:11:46
APPEARS ON: 1 disk(s)
FILE HASH
a93df718b1bbd869c66e060122bd79d431cdcd2b1431dfb3f3dcf56aaa3630cf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D 64018 | EXP SOURCE | PRG | DuncanTwain | 16 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 05 00 8F 20 48 4F 4D 45 20 42 55 44 |....... HOME BUD|
00000010: 47 45 54 20 50 4C 41 4E 4E 45 52 00 44 08 06 00 |GET PLANNER.D...|
00000020: 8F 20 53 4F 55 52 43 45 20 22 43 4F 4D 50 55 54 |. SOURCE "COMPUT|
00000030: 45 27 53 20 47 41 5A 45 54 54 45 20 44 45 43 20 |E'S GAZETTE DEC |
00000040: 31 39 38 33 00 8E 08 07 00 8F 20 4D 4F 44 49 46 |1983...... MODIF|
00000050: 49 45 44 28 45 58 54 45 4E 44 45 44 29 46 4F 52 |IED(EXTENDED)FOR|
00000060: 20 36 34 20 42 59 20 50 41 55 4C 20 57 2E 4D 2E | 64 BY PAUL W.M.|
00000070: 4F 4F 52 20 31 35 31 32 38 33 2F 48 41 52 44 43 |OOR 151283/HARDC|
00000080: 4F 50 59 20 4D 4F 44 2E 31 30 30 33 38 34 00 A4 |OPY MOD.100384..|
00000090: 08 09 00 97 35 33 32 38 30 2C 30 3A 97 35 33 32 |....53280,0:.532|
000000A0: 38 31 2C 30 00 B8 08 0A 00 8F 20 44 45 46 20 56 |81,0...... DEF V|
000000B0: 41 52 49 41 42 4C 45 53 00 C9 08 14 00 53 5A B2 |ARIABLES.....SZ.|
000000C0: 31 30 30 3A 49 B2 AB 31 39 00 DB 08 1E 00 52 24 |100:I..19.....R$|
000000D0: B2 C7 28 31 33 29 3A 54 41 B2 30 00 EE 08 28 00 |..(13):TA.0...(.|
000000E0: 86 41 24 28 53 5A 29 2C 41 45 28 53 5A 29 00 0A |.A$(SZ),AE(SZ)..|
000000F0: 09 32 00 96 A5 52 4E 28 58 29 B2 B5 28 58 AC 31 |.2...RN(X)..(X.1|
00000100: 30 30 AA 2E 35 29 AD 31 30 30 00 1C 09 C8 00 8F |00..5).100......|
00000110: 20 4D 41 49 4E 52 4F 55 54 49 4E 45 00 26 09 D2 | MAINROUTINE.&..|
00000120: 00 8D 36 30 30 30 00 41 09 DC 00 5A 24 B2 22 22 |..6000.A...Z$.""|
00000130: 3A A1 5A 24 3A 8B 5A 24 B2 22 22 A7 20 89 32 32 |:.Z$:.Z$."". .22|
00000140: 30 00 5D 09 E6 00 8B 5A 24 B2 C7 28 31 33 33 29 |0.]....Z$..(133)|
00000150: A7 49 B2 49 AA 32 30 3A 8D 31 30 30 30 00 74 09 |.I.I.20:.1000.t.|
00000160: EB 00 8B 5A 24 B2 C7 28 31 33 34 29 A7 20 8D 20 |...Z$..(134). . |
00000170: 33 30 30 30 00 8B 09 F0 00 8B 5A 24 B2 C7 28 31 |3000......Z$..(1|
00000180: 33 35 29 A7 20 8D 20 35 30 30 30 00 A2 09 F5 00 |35). . 5000.....|
00000190: 8B 5A 24 B2 C7 28 31 33 36 29 A7 20 8D 20 37 30 |.Z$..(136). . 70|
000001A0: 30 30 00 B9 09 FA 00 8B 5A 24 B2 C7 28 31 33 37 |00......Z$..(137|
000001B0: 29 A7 20 8D 20 32 30 30 30 00 D0 09 FF 00 8B 5A |). . 2000......Z|
000001C0: 24 B2 C7 28 31 33 38 29 A7 20 8D 20 34 30 30 30 |$..(138). . 4000|
000001D0: 00 E7 09 04 01 8B 5A 24 B2 C7 28 31 33 39 29 A7 |......Z$..(139).|
000001E0: 20 8D 20 36 30 30 30 00 FE 09 09 01 8B 5A 24 B2 | . 6000......Z$.|
000001F0: C7 28 31 34 30 29 A7 20 8D 20 38 30 30 30 00 18 |.(140). . 8000..|
00000200: 0A 0E 01 8B 5A 24 B2 C7 28 31 37 29 A7 49 B2 49 |....Z$..(17).I.I|
00000210: AB 31 3A 8D 31 30 30 30 00 33 0A 13 01 8B 5A 24 |.1:.1000.3....Z$|
00000220: B2 C7 28 31 34 35 29 A7 49 B2 49 AA 31 3A 8D 31 |..(145).I.I.1:.1|
00000230: 30 30 30 00 3C 0A 2B 01 89 32 32 30 00 4F 0A 2C |000.<.+..220.O.,|
00000240: 01 8F 20 41 43 43 55 4D 20 54 4F 54 41 4C 53 00 |.. ACCUM TOTALS.|
00000250: 58 0A 36 01 54 41 B2 30 00 64 0A 40 01 81 4A B2 |X.6.TA.0.d.@..J.|
00000260: 31 A4 4D 58 00 74 0A 4A 01 54 41 B2 54 41 AA 41 |1.MX.t.J.TA.TA.A|
00000270: 45 28 4A 29 00 7B 0A 54 01 82 4A 00 81 0A 8F 01 |E(J).{.T..J.....|
00000280: 8E 00 92 0A 90 01 8F 20 4C 4F 41 44 20 46 49 4C |....... LOAD FIL|
00000290: 45 53 00 A6 0A 9A 01 85 22 46 49 4C 45 20 4E 41 |ES......"FILE NA|
000002A0: 4D 45 22 3B 46 24 00 BA 0A A4 01 8B 46 24 B2 22 |ME";F$......F$."|
000002B0: 2A 22 A7 8D 36 30 30 30 3A 8E 00 D2 0A C2 01 9F |*"..6000:.......|
000002C0: 33 2C 38 2C 35 2C AA 46 24 AA 22 2C 53 45 51 2C |3,8,5,.F$.",SEQ,|
000002D0: 52 22 00 DC 0A CC 01 84 33 2C 4D 58 00 E8 0A D6 |R"......3,MX....|
000002E0: 01 81 4A B2 31 A4 4D 58 00 FD 0A E0 01 84 33 2C |..J.1.MX......3,|
000002F0: 59 2C 41 24 28 4A 29 2C 41 45 28 4A 29 00 04 0B |Y,A$(J),AE(J)...|
00000300: EA 01 82 4A 00 0B 0B EF 01 A0 33 00 11 0B F3 01 |...J......3.....|
00000310: 8E 00 24 0B F4 01 8F 20 53 4F 52 54 20 42 59 20 |..$.... SORT BY |
00000320: 4E 41 4D 45 00 33 0B F9 01 8B 4D 58 B2 31 A7 89 |NAME.3....MX.1..|
00000330: 35 39 39 00 4B 0B FE 01 99 22 11 11 1D 1D 1D 1D |599.K...."......|
00000340: 1D 12 53 4F 52 54 49 4E 47 92 22 00 59 0B 08 02 |..SORTING.".Y...|
00000350: 81 4A B2 31 A4 4D 58 AB 31 00 67 0B 12 02 81 4B |.J.1.MX.1.g....K|
00000360: B2 4A AA 31 A4 4D 58 00 7D 0B 1C 02 8B 41 24 28 |.J.1.MX.}....A$(|
00000370: 4B 29 B1 41 24 28 4A 29 A7 89 35 39 30 00 94 0B |K).A$(J)..590...|
00000380: 26 02 53 4D 24 B2 41 24 28 4B 29 3A 53 4D B2 41 |&.SM$.A$(K):SM.A|
00000390: 45 28 4B 29 00 B0 0B 30 02 41 24 28 4B 29 B2 41 |E(K)...0.A$(K).A|
000003A0: 24 28 4A 29 3A 41 45 28 4B 29 B2 41 45 28 4A 29 |$(J):AE(K).AE(J)|
000003B0: 00 C7 0B 3A 02 41 24 28 4A 29 B2 53 4D 24 3A 41 |...:.A$(J).SM$:A|
000003C0: 45 28 4A 29 B2 53 4D 00 CE 0B 4E 02 82 4B 00 D5 |E(J).SM...N..K..|
000003D0: 0B 53 02 82 4A 00 DB 0B 57 02 8E 00 E9 0B E8 03 |.S..J...W.......|
000003E0: 8F 20 44 49 53 50 4C 41 59 00 FF 0B F2 03 8B 28 |. DISPLAY......(|
000003F0: 49 B3 31 29 B0 28 49 B1 4D 58 29 A7 49 B2 31 00 |I.1).(I.MX).I.1.|
00000400: 2B 0C FC 03 99 22 93 12 1D 1D 23 1D 1D 1D 1D 45 |+...."....#....E|
00000410: 58 50 45 4E 53 45 53 1D 1D 1D 1D 1D 1D 1D 1D 1D |XPENSES.........|
00000420: 1D 1D 1D 1D 1D 1D 41 4D 54 92 22 00 39 0C 06 04 |......AMT.".9...|
00000430: 81 4A B2 49 A4 49 AA 31 39 00 4E 0C 10 04 8B 4A |.J.I.I.19.N....J|
00000440: B1 4D 58 A7 99 22 20 22 3A 89 31 30 38 30 00 7C |.MX.." ":.1080.||
00000450: 0C 1A 04 50 52 24 B2 C4 28 41 45 28 4A 29 AA 2E |...PR$..(AE(J)..|
00000460: 30 30 31 29 3A 50 52 24 B2 CA 28 50 52 24 2C 32 |001):PR$..(PR$,2|
00000470: 2C 28 C3 28 50 52 24 29 AB 32 29 29 00 94 0C 24 |,(.(PR$).2))...$|
00000480: 04 8B 41 45 28 4A 29 B2 30 A7 50 52 24 B2 22 30 |..AE(J).0.PR$."0|
00000490: 2E 30 30 22 00 A5 0C 29 04 4A 24 B2 CA 28 C4 28 |.00"...).J$..(.(|
000004A0: 4A 29 2C 32 29 00 CD 0C 2E 04 99 A3 33 AB C3 28 |J),2).......3..(|
000004B0: 4A 24 29 29 4A 24 3B A3 34 29 41 24 28 4A 29 A3 |J$))J$;.4)A$(J).|
000004C0: 33 33 AB C3 28 50 52 24 29 29 50 52 24 00 D4 0C |33..(PR$))PR$...|
000004D0: 38 04 82 4A 00 E7 0C 42 04 54 41 24 B2 C4 28 54 |8..J...B.TA$..(T|
000004E0: 41 AA 2E 30 30 31 29 00 FF 0C 4C 04 54 41 24 B2 |A..001)...L.TA$.|
000004F0: C8 28 54 41 24 2C C3 28 54 41 24 29 AB 31 29 00 |.(TA$,.(TA$).1).|
00000500: 14 0D 56 04 8B 54 41 B2 30 A7 54 41 24 B2 22 30 |..V..TA.0.TA$."0|
00000510: 2E 30 30 22 00 26 0D 60 04 99 22 12 54 4F 54 41 |.00".&.`..".TOTA|
00000520: 4C 92 22 54 41 24 00 2C 0D CF 07 8E 00 3A 0D D0 |L."TA$.,.....:..|
00000530: 07 8F 20 41 44 44 20 4E 45 57 00 52 0D DA 07 52 |.. ADD NEW.R...R|
00000540: B2 4D 58 AA 31 3A 4E 24 B2 22 22 3A 45 31 24 B2 |.MX.1:N$."":E1$.|
00000550: 22 22 00 6E 0D E4 07 99 22 93 1D 1D 1D 41 44 44 |"".n...."....ADD|
00000560: 20 4E 45 57 20 45 58 50 45 4E 53 45 53 22 00 8B | NEW EXPENSES"..|
00000570: 0D EE 07 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
00000580: 1D 1D 49 54 45 4D 20 23 22 3B 52 00 A1 0D F8 07 |..ITEM #";R.....|
00000590: 85 22 11 49 54 45 4D 20 4E 41 4D 45 20 22 3B 4E |.".ITEM NAME ";N|
000005A0: 24 00 B3 0D 02 08 8B 4E 24 B2 22 2A 22 A7 89 32 |$......N$."*"..2|
000005B0: 39 39 39 00 CD 0D 07 08 8B C3 28 4E 24 29 B1 32 |999.......(N$).2|
000005C0: 30 A7 4E 24 B2 C8 28 4E 24 2C 32 30 29 00 DA 0D |0.N$..(N$,20)...|
000005D0: 0C 08 41 24 28 52 29 B2 4E 24 00 F1 0D 16 08 85 |..A$(R).N$......|
000005E0: 22 11 49 54 45 4D 20 41 4D 54 20 20 22 3B 45 31 |".ITEM AMT ";E1|
000005F0: 24 00 04 0E 20 08 8B 45 31 24 B2 22 2A 22 A7 89 |$... ..E1$."*"..|
00000600: 32 39 39 39 00 20 0E 25 08 8B C5 28 45 31 24 29 |2999. .%...(E1$)|
00000610: B2 30 A7 41 45 28 52 29 B2 30 3A 89 32 31 30 30 |.0.AE(R).0:.2100|
00000620: 00 36 0E 2A 08 41 45 28 52 29 B2 A5 52 4E 28 C5 |.6.*.AE(R)..RN(.|
00000630: 28 45 31 24 29 29 00 57 0E 2F 08 8B 41 45 28 52 |(E1$)).W./..AE(R|
00000640: 29 B1 39 39 39 39 2E 39 39 A7 41 45 28 52 29 B2 |).9999.99.AE(R).|
00000650: 39 39 39 39 2E 39 39 00 63 0E 34 08 4D 58 B2 4D |9999.99.c.4.MX.M|
00000660: 58 AA 31 00 6D 0E 3E 08 89 32 30 31 30 00 79 0E |X.1.m.>..2010.y.|
00000670: 98 08 4D 58 B2 4D 58 AA 31 00 8F 0E B7 0B 8D 35 |..MX.MX.1......5|
00000680: 30 30 3A 8D 33 30 30 3A 8D 36 30 30 30 3A 8E 00 |00:.300:.6000:..|
00000690: 9C 0E B8 0B 8F 20 55 50 44 41 54 45 00 BD 0E C2 |..... UPDATE....|
000006A0: 0B 99 20 22 93 12 45 58 50 45 4E 53 45 92 1D 1D |.. "..EXPENSE...|
000006B0: 1D 22 3B 22 12 55 50 44 41 54 45 92 22 00 D1 0E |.";".UPDATE."...|
000006C0: CC 0B 85 22 11 49 54 45 4D 20 23 20 22 3B 50 31 |...".ITEM # ";P1|
000006D0: 24 00 E5 0E D1 0B 8B 50 31 24 B2 22 2A 22 A7 20 |$......P1$."*". |
000006E0: 89 33 39 39 39 00 1D 0F D2 0B 8B 28 C5 28 50 31 |.3999......(.(P1|
000006F0: 24 29 B2 30 29 B0 28 C5 28 50 31 24 29 B3 31 29 |$).0).(.(P1$).1)|
00000700: A7 99 22 11 11 1D 1D 1D 1D 12 49 4E 50 55 54 20 |..".......INPUT |
00000710: 45 52 52 4F 52 92 22 3A 89 33 30 32 30 00 2D 0F |ERROR.":.3020.-.|
00000720: D3 0B 50 B2 B5 28 C5 28 50 31 24 29 29 00 3E 0F |..P..(.(P1$)).>.|
00000730: D6 0B 4E 24 B2 22 22 3A 45 31 24 B2 22 22 00 62 |..N$."":E1$."".b|
00000740: 0F E0 0B 8B 50 B1 53 5A A7 99 22 4D 41 58 20 45 |....P.SZ.."MAX E|
00000750: 58 43 45 45 44 45 44 22 3A 50 B2 53 5A 3A 4D 58 |XCEEDED":P.SZ:MX|
00000760: B2 50 00 71 0F EA 0B 8B 50 B1 4D 58 A7 4D 58 B2 |.P.q....P.MX.MX.|
00000770: 50 00 9F 0F F4 0B 50 52 24 B2 C4 28 41 45 28 50 |P.....PR$..(AE(P|
00000780: 29 AA 2E 30 30 31 29 3A 50 52 24 B2 CA 28 50 52 |)..001):PR$..(PR|
00000790: 24 2C 32 2C 28 C3 28 50 52 24 29 AB 32 29 29 00 |$,2,(.(PR$).2)).|
000007A0: B7 0F F9 0B 8B 41 45 28 50 29 B2 30 A7 50 52 24 |.....AE(P).0.PR$|
000007B0: B2 22 30 2E 30 30 22 00 D5 0F FE 0B 99 50 3B A3 |."0.00"......P;.|
000007C0: 34 29 41 24 28 50 29 A3 33 33 AB C3 28 50 52 24 |4)A$(P).33..(PR$|
000007D0: 29 29 50 52 24 00 EA 0F 08 0C 85 22 11 49 54 45 |))PR$......".ITE|
000007E0: 4D 20 4E 41 4D 45 22 3B 4E 24 00 FC 0F 12 0C 8B |M NAME";N$......|
000007F0: 4E 24 B2 22 2A 22 A7 89 33 39 39 39 00 11 10 1C |N$."*"..3999....|
00000800: 0C 8B 4E 24 B3 B1 22 22 A7 41 24 28 50 29 B2 4E |..N$.."".A$(P).N|
00000810: 24 00 34 10 21 0C 8B C3 28 41 24 28 50 29 29 B1 |$.4.!...(A$(P)).|
00000820: 32 30 A7 41 24 28 50 29 B2 C8 28 41 24 28 50 29 |20.A$(P)..(A$(P)|
00000830: 2C 32 30 29 00 43 10 26 0C 85 22 41 4D 54 22 3B |,20).C.&.."AMT";|
00000840: 45 31 24 00 56 10 30 0C 8B 45 31 24 B2 22 2A 22 |E1$.V.0..E1$."*"|
00000850: A7 89 33 39 39 39 00 67 10 35 0C 8B 45 31 24 B2 |..3999.g.5..E1$.|
00000860: 22 22 89 33 30 31 30 00 9E 10 3A 0C 8B 28 C5 28 |"".3010...:..(.(|
00000870: 45 31 24 29 B2 30 29 AF 28 45 31 24 B3 B1 22 30 |E1$).0).(E1$.."0|
00000880: 22 29 A7 99 22 11 11 1D 1D 1D 12 49 4E 50 55 54 |").."......INPUT|
00000890: 20 45 52 52 4F 52 92 22 3A 89 33 31 31 30 00 BA | ERROR.":.3110..|
000008A0: 10 3F 0C 8B C5 28 45 31 24 29 B2 30 A7 41 45 28 |.?...(E1$).0.AE(|
000008B0: 50 29 B2 30 3A 89 33 38 30 30 00 D6 10 44 0C 41 |P).0:.3800...D.A|
000008C0: 45 28 50 29 B2 41 45 28 50 29 AA A5 52 4E 28 C5 |E(P).AE(P)..RN(.|
000008D0: 28 45 31 24 29 29 00 F7 10 4E 0C 8B 41 45 28 50 |(E1$))...N..AE(P|
000008E0: 29 B1 39 39 39 39 2E 39 39 A7 41 45 28 50 29 B2 |).9999.99.AE(P).|
000008F0: 39 39 39 39 2E 39 39 00 01 11 D8 0E 89 33 30 31 |9999.99......301|
00000900: 30 00 17 11 9F 0F 8D 35 30 30 3A 8D 33 30 30 3A |0......500:.300:|
00000910: 8D 36 30 30 30 3A 8E 00 27 11 A0 0F 8F 20 53 41 |.6000:..'.... SA|
00000920: 56 45 20 46 49 4C 45 00 44 11 AA 0F 99 22 93 1D |VE FILE.D...."..|
00000930: 1D 1D 53 41 56 45 20 45 58 50 45 4E 53 45 20 4C |..SAVE EXPENSE L|
00000940: 49 53 54 22 00 56 11 AF 0F 99 22 11 11 4C 45 54 |IST".V...."..LET|
00000950: 20 4F 50 20 21 22 00 7A 11 B0 0F 99 22 1D 1D 57 | OP !".z...."..W|
00000960: 41 4E 4E 45 45 52 20 45 45 4E 20 52 45 45 44 53 |ANNEER EEN REEDS|
00000970: 20 42 45 53 54 41 41 4E 44 45 00 A1 11 B1 0F 99 | BESTAANDE......|
00000980: 22 1D 1D 46 49 4C 45 2D 4E 41 41 4D 20 57 4F 52 |"..FILE-NAAM WOR|
00000990: 44 54 20 47 45 4B 4F 5A 45 4E 2C 20 47 41 41 54 |DT GEKOZEN, GAAT|
000009A0: 22 00 CF 11 B2 0F 99 22 1D 1D 44 45 20 52 45 45 |"......"..DE REE|
000009B0: 44 53 20 42 45 53 54 41 41 4E 44 45 20 46 49 4C |DS BESTAANDE FIL|
000009C0: 45 20 56 45 52 4C 4F 52 45 4E 20 21 21 21 22 00 |E VERLOREN !!!".|
000009D0: E5 11 B4 0F 85 22 11 11 46 49 4C 45 20 4E 41 4D |....."..FILE NAM|
000009E0: 45 22 3B 46 24 00 F9 11 BE 0F 8B 46 24 B2 22 2A |E";F$......F$."*|
000009F0: 22 A7 8D 36 30 30 30 3A 8E 00 15 12 D2 0F 9F 33 |"..6000:.......3|
00000A00: 2C 38 2C 35 2C 22 40 3A 22 AA 46 24 AA 22 2C 53 |,8,5,"@:".F$.",S|
00000A10: 45 51 2C 57 22 00 1F 12 DC 0F 98 33 2C 4D 58 00 |EQ,W"......3,MX.|
00000A20: 2B 12 E6 0F 81 4A B2 31 A4 4D 58 00 48 12 F0 0F |+....J.1.MX.H...|
00000A30: 98 33 2C 4A 3B 52 24 3B 41 24 28 4A 29 52 24 3B |.3,J;R$;A$(J)R$;|
00000A40: 41 45 28 4A 29 3B 52 24 00 4F 12 FA 0F 82 4A 00 |AE(J);R$.O....J.|
00000A50: 56 12 04 10 A0 33 00 62 12 87 13 8D 36 30 30 30 |V....3.b....6000|
00000A60: 3A 8E 00 6F 12 88 13 8F 20 44 45 4C 45 54 45 00 |:..o.... DELETE.|
00000A70: 7D 12 8D 13 44 54 B2 30 3A 54 4D B2 30 00 94 12 |}...DT.0:TM.0...|
00000A80: 92 13 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 44 45 4C |...".........DEL|
00000A90: 45 54 45 22 00 9F 12 9C 13 53 31 24 B2 22 22 00 |ETE".....S1$."".|
00000AA0: B5 12 A6 13 85 22 11 11 53 54 41 52 54 20 41 54 |....."..START AT|
00000AB0: 22 3B 53 31 24 00 C8 12 B0 13 8B 53 31 24 B2 22 |";S1$......S1$."|
00000AC0: 2A 22 A7 89 35 39 30 30 00 D9 12 BA 13 44 53 B2 |*"..5900.....DS.|
00000AD0: B5 28 C5 28 53 31 24 29 29 00 E4 12 C4 13 53 31 |.(.(S1$)).....S1|
00000AE0: 24 B2 22 22 00 0C 13 CE 13 8B 44 53 B2 30 A7 99 |$.""......DS.0..|
00000AF0: 22 11 1D 1D 1D 1D 1D 1D 12 49 4E 50 55 54 20 45 |"........INPUT E|
00000B00: 52 52 4F 52 92 22 3A 89 35 30 32 30 00 17 13 D8 |RROR.":.5020....|
00000B10: 13 53 31 24 B2 22 22 00 2B 13 E2 13 85 22 11 11 |.S1$."".+...."..|
00000B20: 45 4E 44 20 41 54 22 3B 53 31 24 00 3E 13 EC 13 |END AT";S1$.>...|
00000B30: 8B 53 31 24 B2 22 2A 22 A7 89 35 39 30 30 00 5D |.S1$."*"..5900.]|
00000B40: 13 F6 13 8B 53 31 24 B2 22 22 B0 53 31 24 B2 22 |....S1$."".S1$."|
00000B50: 30 22 A7 44 45 B2 30 3A 89 35 32 30 30 00 6E 13 |0".DE.0:.5200.n.|
00000B60: 00 14 44 45 B2 B5 28 C5 28 53 31 24 29 29 00 7F |..DE..(.(S1$))..|
00000B70: 13 05 14 8B 44 45 B1 4D 58 A7 44 45 B2 4D 58 00 |....DE.MX.DE.MX.|
00000B80: 91 13 0A 14 8B 44 45 B2 B1 44 53 A7 89 35 32 30 |.....DE..DS..520|
00000B90: 30 00 B1 13 0F 14 99 22 11 11 1D 1D 12 30 20 4F |0......".....0 O|
00000BA0: 52 20 4E 55 4D 42 45 52 20 47 52 45 41 54 45 52 |R NUMBER GREATER|
00000BB0: 22 00 D1 13 14 14 99 22 11 11 1D 1D 54 48 41 4E |"......"....THAN|
00000BC0: 92 22 3B 44 45 3B 22 12 52 45 51 55 49 52 45 44 |.";DE;".REQUIRED|
00000BD0: 22 00 DB 13 1E 14 89 35 30 38 30 00 EB 13 50 14 |"......5080...P.|
00000BE0: 8B 44 45 B2 30 A7 44 45 B2 44 53 00 FA 13 55 14 |.DE.0.DE.DS...U.|
00000BF0: 54 4D B2 44 45 AB 44 53 AA 31 00 07 14 57 14 44 |TM.DE.DS.1...W.D|
00000C00: 54 B2 44 54 AA 54 4D 00 14 14 5A 14 81 4A B2 44 |T.DT.TM...Z..J.D|
00000C10: 53 A4 44 45 00 32 14 64 14 41 24 28 4A 29 B2 22 |S.DE.2.d.A$(J)."|
00000C20: BF BF BF BF BF BF BF BF BF 22 3A 41 45 28 4A 29 |.........":AE(J)|
00000C30: B2 30 00 39 14 6E 14 82 4A 00 43 14 78 14 89 35 |.0.9.n..J.C.x..5|
00000C40: 30 31 30 00 4C 14 0C 17 8D 35 30 30 00 59 14 16 |010.L....500.Y..|
00000C50: 17 4D 58 B2 4D 58 AB 44 54 00 6A 14 6F 17 8D 33 |.MX.MX.DT.j.o..3|
00000C60: 30 30 3A 8D 36 30 30 30 3A 8E 00 7D 14 70 17 8F |00:.6000:..}.p..|
00000C70: 20 4F 50 54 49 4F 4E 53 20 4D 45 4E 55 00 95 14 | OPTIONS MENU...|
00000C80: 7A 17 99 22 93 1D 1D 1D 1D 1D 1D 1D 4F 50 54 49 |z.."........OPTI|
00000C90: 4F 4E 53 3A 22 00 AC 14 84 17 99 22 1D 1D 1D 1D |ONS:"......"....|
00000CA0: 1D 1D 1D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 CA 14 8E |...========"....|
00000CB0: 17 99 22 11 12 46 31 92 2D 44 49 53 50 4C 41 59 |.."..F1.-DISPLAY|
00000CC0: 20 45 58 50 45 4E 53 45 53 22 00 E8 14 98 17 99 | EXPENSES"......|
00000CD0: 22 11 12 46 32 92 2D 41 44 44 20 4E 45 57 20 45 |"..F2.-ADD NEW E|
00000CE0: 58 50 45 4E 53 45 53 22 00 09 15 A2 17 99 22 11 |XPENSES"......".|
00000CF0: 12 46 33 92 2D 55 50 44 41 54 45 20 45 58 50 45 |.F3.-UPDATE EXPE|
00000D00: 4E 53 45 20 4C 49 53 54 22 00 28 15 AC 17 99 22 |NSE LIST".(...."|
00000D10: 11 12 46 34 92 2D 53 41 56 45 20 45 58 50 45 4E |..F4.-SAVE EXPEN|
00000D20: 53 45 20 4C 49 53 54 22 00 46 15 B6 17 99 22 11 |SE LIST".F....".|
00000D30: 12 46 35 92 2D 44 45 4C 45 54 45 20 46 52 4F 4D |.F5.-DELETE FROM|
00000D40: 20 4C 49 53 54 22 00 62 15 C0 17 99 22 11 12 46 | LIST".b...."..F|
00000D50: 36 92 2D 4F 50 54 49 4F 4E 53 20 53 43 52 45 45 |6.-OPTIONS SCREE|
00000D60: 4E 22 00 80 15 CA 17 99 22 11 12 46 37 92 2D 4C |N"......"..F7.-L|
00000D70: 4F 41 44 2F 4D 45 52 47 45 20 46 49 4C 45 53 22 |OAD/MERGE FILES"|
00000D80: 00 9A 15 D4 17 99 22 11 12 46 38 92 2D 45 4E 44 |......"..F8.-END|
00000D90: 2F 48 41 52 44 43 4F 50 59 22 00 A0 15 57 1B 8E |/HARDCOPY"...W..|
00000DA0: 00 B1 15 58 1B 8F 20 4C 4F 41 44 2F 4D 45 52 47 |...X.. LOAD/MERG|
00000DB0: 45 00 CA 15 62 1B 99 22 93 1D 1D 1D 1D 1D 1D 4C |E...b..".......L|
00000DC0: 4F 41 44 2F 4D 45 52 47 45 22 00 E5 15 6C 1B 99 |OAD/MERGE"...l..|
00000DD0: 22 11 1D 1D 1D 1D 1D 45 58 50 45 4E 53 45 20 46 |"......EXPENSE F|
00000DE0: 49 4C 45 53 22 00 04 16 76 1B 85 22 4C 4F 41 44 |ILES"...v.."LOAD|
00000DF0: 20 4F 52 20 4D 45 52 47 45 20 28 4C 2F 4D 29 22 | OR MERGE (L/M)"|
00000E00: 3B 41 4E 24 00 21 16 80 1B 8B 41 4E 24 B2 22 4C |;AN$.!....AN$."L|
00000E10: 22 A7 4D 58 B2 30 3A 8D 34 30 30 3A 89 37 39 39 |".MX.0:.400:.799|
00000E20: 39 00 36 16 8A 1B 8B 41 4E 24 B2 22 2A 22 A7 8D |9.6....AN$."*"..|
00000E30: 36 30 30 30 3A 8E 00 49 16 94 1B 8B 41 4E 24 B3 |6000:..I....AN$.|
00000E40: B1 22 4D 22 89 37 30 33 30 00 5B 16 9E 1B 99 22 |."M".7030.[...."|
00000E50: 11 1D 1D 1D 1D 4D 45 52 47 45 22 00 70 16 A8 1B |.....MERGE".p...|
00000E60: 85 22 11 46 49 4C 45 20 4E 41 4D 45 22 3B 46 24 |.".FILE NAME";F$|
00000E70: 00 84 16 B2 1B 8B 46 24 B2 22 2A 22 A7 8D 36 30 |......F$."*"..60|
00000E80: 30 30 3A 8E 00 9C 16 D0 1B 9F 33 2C 38 2C 35 2C |00:.......3,8,5,|
00000E90: AA 46 24 AA 22 2C 53 45 51 2C 52 22 00 A6 16 DA |.F$.",SEQ,R"....|
00000EA0: 1B 84 33 2C 54 31 00 B3 16 E4 1B 81 54 32 B2 31 |..3,T1......T2.1|
00000EB0: A4 54 31 00 C3 16 EE 1B 84 33 2C 59 2C 54 33 24 |.T1......3,Y,T3$|
00000EC0: 2C 54 34 00 CF 16 F8 1B 81 4A B2 31 A4 4D 58 00 |,T4......J.1.MX.|
00000ED0: 05 17 02 1C 8B 41 24 28 4A 29 B2 54 33 24 A7 41 |.....A$(J).T3$.A|
00000EE0: 45 28 4A 29 B2 B5 28 28 28 41 45 28 4A 29 AA 54 |E(J)..(((AE(J).T|
00000EF0: 34 29 AD 32 29 AC 31 30 30 29 AD 31 30 30 3A 54 |4).2).100).100:T|
00000F00: 33 24 B2 22 22 00 0C 17 0C 1C 82 4A 00 36 17 16 |3$.""......J.6..|
00000F10: 1C 8B 54 33 24 B3 B1 22 22 A7 4D 58 B2 4D 58 AA |..T3$.."".MX.MX.|
00000F20: 31 3A 41 24 28 4D 58 29 B2 54 33 24 3A 41 45 28 |1:A$(MX).T3$:AE(|
00000F30: 4D 58 29 B2 54 34 00 3C 17 20 1C 82 00 43 17 2A |MX).T4.<. ...C.*|
00000F40: 1C A0 33 00 59 17 3F 1F 8D 35 30 30 3A 8D 33 30 |..3.Y.?..500:.30|
00000F50: 30 3A 8D 36 30 30 30 3A 8E 00 76 17 40 1F 8F 20 |0:.6000:..v.@.. |
00000F60: 45 4E 44 20 4F 46 20 4A 4F 42 20 4F 52 20 48 41 |END OF JOB OR HA|
00000F70: 52 44 43 4F 50 59 00 97 17 4A 1F 99 22 93 11 11 |RDCOPY...J.."...|
00000F80: 11 11 11 1D 1D 45 4E 44 20 4F 52 20 48 41 52 44 |.....END OR HARD|
00000F90: 43 4F 50 59 20 3F 22 00 B2 17 54 1F 85 22 11 11 |COPY ?"...T.."..|
00000FA0: 11 11 1D 1D 1D 1D 1D 45 20 2F 20 48 20 22 3B 45 |.......E / H ";E|
00000FB0: 48 24 00 C5 17 59 1F 8B 20 45 48 24 B2 22 20 22 |H$...Y.. EH$." "|
00000FC0: 89 38 30 32 30 00 D8 17 5E 1F 8B 20 45 48 24 B2 |.8020...^.. EH$.|
00000FD0: 22 45 22 A7 38 31 30 30 00 EB 17 60 1F 8B 20 45 |"E".8100...`.. E|
00000FE0: 48 24 B2 22 48 22 89 38 30 33 36 00 2C 18 63 1F |H$."H".8036.,.c.|
00000FF0: 8B 20 45 48 24 B3 B1 22 48 22 A7 20 99 22 11 11 |. EH$.."H". ."..|
00001000: 54 59 50 45 20 45 20 28 45 4E 44 29 20 4F 52 20 |TYPE E (END) OR |
00001010: 48 20 28 48 41 52 44 43 4F 50 59 29 20 50 4C 45 |H (HARDCOPY) PLE|
00001020: 41 53 45 20 21 22 3A 89 38 30 32 30 00 6B 18 64 |ASE !":.8020.k.d|
00001030: 1F 85 22 93 11 11 11 11 11 1D 1D 44 45 53 49 52 |.."........DESIR|
00001040: 45 44 20 48 45 41 44 49 4E 47 20 28 50 45 52 49 |ED HEADING (PERI|
00001050: 4F 44 29 2E 2E 2E 2E 11 1D 1D 1D 1D 1D 1D 1D 1D |OD).............|
00001060: 1D 1D 1D 1D 1D 1D 1D 22 3B 48 24 00 7E 18 65 1F |.......";H$.~.e.|
00001070: 8B 20 48 24 B2 22 20 22 20 89 38 30 33 36 00 8A |. H$." " .8036..|
00001080: 18 67 1F 8F 20 50 52 49 4E 54 00 94 18 68 1F 9F |.g.. PRINT...h..|
00001090: 20 32 2C 34 00 DB 18 6A 1F 99 22 93 1D 1D 1D 11 | 2,4...j..".....|
000010A0: 11 11 11 11 11 11 11 11 11 4F 4B 2C 41 20 48 41 |.........OK,A HA|
000010B0: 52 44 43 4F 50 59 20 4F 46 3A 22 48 24 22 49 53 |RDCOPY OF:"H$"IS|
000010C0: 20 50 52 49 4E 54 45 44 20 46 4F 52 20 59 4F 55 | PRINTED FOR YOU|
000010D0: 20 52 49 47 48 54 20 4E 4F 57 22 00 FB 18 6B 1F | RIGHT NOW"...k.|
000010E0: 99 22 1D 1D 1D 11 11 53 54 41 4E 44 2D 42 59 20 |.".....STAND-BY |
000010F0: 2C 20 50 4C 45 41 53 45 20 21 22 00 20 19 6D 1F |, PLEASE !". .m.|
00001100: 98 32 2C C7 28 31 34 29 2C C7 28 31 36 29 22 31 |.2,.(14),.(16)"1|
00001110: 35 22 48 24 2C C7 28 31 30 29 2C C7 28 31 33 29 |5"H$,.(10),.(13)|
00001120: 00 59 19 72 1F 98 32 2C C7 28 31 35 29 2C C7 28 |.Y.r..2,.(15),.(|
00001130: 31 36 29 22 30 35 23 22 C7 28 31 36 29 22 32 30 |16)"05#".(16)"20|
00001140: 45 58 50 45 4E 53 45 53 22 C7 28 31 36 29 22 34 |EXPENSES".(16)"4|
00001150: 35 41 4D 4F 55 4E 54 3A 22 00 66 19 73 1F 98 32 |5AMOUNT:".f.s..2|
00001160: 2C C7 28 31 33 29 00 73 19 7C 1F 81 20 4A B2 31 |,.(13).s.|.. J.1|
00001170: A4 4D 58 00 7B 19 7D 1F 50 B2 30 00 95 19 81 1F |.MX.{.}.P.0.....|
00001180: 8B 20 4A B1 4D 58 20 A7 20 98 32 2C 22 20 22 3A |. J.MX . .2," ":|
00001190: 89 38 30 39 30 00 C3 19 86 1F 50 52 24 B2 C4 28 |.8090.....PR$..(|
000011A0: 41 45 28 4A 29 AA 2E 30 30 31 29 3A 50 52 24 B2 |AE(J)..001):PR$.|
000011B0: CA 28 50 52 24 2C 32 2C 28 C3 28 50 52 24 29 AB |.(PR$,2,(.(PR$).|
000011C0: 32 29 29 00 D3 19 88 1F 50 B2 34 34 AB C3 28 50 |2)).....P.44..(P|
000011D0: 52 24 29 00 EB 19 8B 1F 8B 41 45 28 4A 29 B2 30 |R$)......AE(J).0|
000011E0: A7 50 52 24 B2 22 30 2E 30 30 22 00 FC 19 90 1F |.PR$."0.00".....|
000011F0: 4A 24 B2 CA 28 C4 28 4A 29 2C 32 29 00 0A 1A 94 |J$..(.(J),2)....|
00001200: 1F 98 32 2C C7 28 31 30 29 3B 00 2C 1A 95 1F 98 |..2,.(10);.,....|
00001210: 32 2C C7 28 31 36 29 22 31 30 22 4A 24 C7 28 31 |2,.(16)"10"J$.(1|
00001220: 36 29 22 32 30 22 41 24 28 4A 29 3B 00 50 1A 96 |6)"20"A$(J);.P..|
00001230: 1F 98 32 2C C7 28 31 36 29 22 34 31 3A 22 C7 28 |..2,.(16)"41:".(|
00001240: 31 36 29 C7 28 35 32 29 C7 28 50 29 50 52 24 3B |16).(52).(P)PR$;|
00001250: 00 57 1A 9A 1F 82 4A 00 6A 1A 9B 1F 54 41 24 B2 |.W....J.j...TA$.|
00001260: C4 28 54 41 AA 2E 30 30 31 29 00 82 1A 9C 1F 54 |.(TA..001).....T|
00001270: 41 24 B2 C8 28 54 41 24 2C C3 28 54 41 24 29 AB |A$..(TA$,.(TA$).|
00001280: 31 29 00 97 1A 9D 1F 8B 54 41 B2 30 A7 54 41 24 |1)......TA.0.TA$|
00001290: B2 22 30 2E 30 30 22 00 C0 1A 9E 1F 98 32 3A 98 |."0.00"......2:.|
000012A0: 32 2C C7 28 31 34 29 2C C7 28 31 36 29 22 34 35 |2,.(14),.(16)"45|
000012B0: 54 4F 54 41 4C 3A 22 54 41 24 2C C7 28 31 35 29 |TOTAL:"TA$,.(15)|
000012C0: 00 CA 1A 9F 1F A0 20 32 2C 34 00 D5 1A A0 1F 89 |...... 2,4......|
000012D0: 20 36 30 30 30 00 E6 1A A4 1F 8F 20 45 4E 44 20 | 6000...... END |
000012E0: 4F 46 20 4A 4F 42 00 03 1B AE 1F 99 22 93 1D 1D |OF JOB......"...|
000012F0: 1D 1D 45 4E 44 20 4F 46 20 50 52 4F 47 52 41 4D |..END OF PROGRAM|
00001300: 11 11 22 00 2D 1B B8 1F 99 22 57 4F 55 4C 44 20 |..".-...."WOULD |
00001310: 59 4F 55 20 4C 49 4B 45 20 54 4F 20 53 41 56 45 |YOU LIKE TO SAVE|
00001320: 20 28 59 2F 4E 29 22 3A 85 20 41 4E 24 00 42 1B | (Y/N)":. AN$.B.|
00001330: C2 1F 8B 41 4E 24 B2 22 2A 22 A7 8D 36 30 30 30 |...AN$."*"..6000|
00001340: 3A 8E 00 55 1B CC 1F 8B 41 4E 24 B2 22 4E 22 A7 |:..U....AN$."N".|
00001350: 89 38 31 36 30 00 5F 1B D6 1F 8D 34 30 30 30 00 |.8160._....4000.|
00001360: AB 1B E0 1F 99 22 93 11 11 11 11 11 1D 1D 4F 4B |....."........OK|
00001370: 2C 49 20 57 49 4C 4C 20 53 54 4F 50 20 45 58 45 |,I WILL STOP EXE|
00001380: 43 55 54 49 4E 47 20 54 48 49 53 20 50 52 4F 47 |CUTING THIS PROG|
00001390: 52 41 4D 20 11 20 20 41 53 20 52 45 51 55 45 53 |RAM . AS REQUES|
000013A0: 54 45 44 2E 2E 2E 2E 2E 2E 21 22 00 CC 1B E5 1F |TED......!".....|
000013B0: 99 22 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 54 |.".............T|
000013C0: 48 41 4E 4B 20 59 4F 55 2E 2E 2E 22 00 E9 1B EA |HANK YOU..."....|
000013D0: 1F 99 22 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000013E0: 1D 1D 1D 1D 1D 45 4E 44 22 00 EF 1B F4 1F 80 00 |.....END".......|
000013F0: 00 00 |.. |
....... HOME BUDGET PLANNER.D.... SOURCE
"COMPUTE'S GAZETTE DEC 1983...... MODIF
IED(EXTENDED)FOR 64 BY PAUL W.M.OOR 1512
83/HARDCOPY MOD.100384......53280,0:.532
81,0...... DEF VARIABLES.I...SZ.100:I..1
9.....R$.G(13):TA.0...(..A$(SZ),AE(SZ)..
.2...RN(X)..(X.100..5).100...H.. MAINROU
TINE.&.R..6000.A...Z$."":.Z$:.Z$."". .22
0.]....Z$.G(133).I.I.20:.1000.T....Z$.G(
134). . 3000......Z$.G(135). . 5000.....
.Z$.G(136). . 7000......Z$.G(137). . 200
0.P....Z$.G(138). . 4000......Z$.G(139).
. 6000......Z$.G(140). . 8000......Z$.G
(17).I.I.1:.1000.3....Z$.G(145).I.I.1:.1
000.<.+..220.O.,.. ACCUM TOTALS.X.6.TA.0
.D.@..J.1.MX.T.J.TA.TA.AE(J).{.T..J.....
....... LOAD FILES......"FILE NAME";F$..
....F$."*"..6000:..R.B..3,8,5,.F$.",SEQ,
R"...L..3,MX...V..J.1.MX......3,Y,A$(J),
AE(J)......J..... 3.......$.... SORT BY
NAME.3....MX.1..599.K...."........SORTIN
G.".Y....J.1.MX.1.G....K.J.1.MX.}....A$(
K).A$(J)..590...&.SM$.A$(K):SM.AE(K)...0
.A$(K).A$(J):AE(K).AE(J).G.:.A$(J).SM$:A
E(J).SM.N.N..K.U.S..J...W........ DISPLA
Y......(I.1).(I.MX).I.1.+...."....#....E
XPENSES...............AMT.".9....J.I.I.1
9.N....J.MX.." ":.1080.|...PR$.D(AE(J)..
001):PR$.J(PR$,2,(C(PR$).2))...$..AE(J).
0.PR$."0.00"...).J$.J(D(J),2).M.....3.C(
J$))J$;.4)A$(J).33.C(PR$))PR$.T.8..J...B
.TA$.D(TA..001)...L.TA$.H(TA$,C(TA$).1).
..V..TA.0.TA$."0.00".&.`..".TOTAL."TA$.,
.O...:.P.. ADD NEW.R.Z.R.MX.1:N$."":E1$.
"".N...."....ADD NEW EXPENSES"......"...
..........ITEM #";R......".ITEM NAME ";N
$......N$."*"..2999.M....C(N$).20.N$.H(N
$,20).Z...A$(R).N$......".ITEM AMT ";E1
$... ..E1$."*"..2999. .%..E(E1$).0.AE(R)
.0:.2100.6.*.AE(R)..RN(E(E1$)).W./..AE(R
).9999.99.AE(R).9999.99.C.4.MX.MX.1.M.>.
.2010.Y...MX.MX.1......500:.300:.6000:..
..... UPDATE...B.. "..EXPENSE....";".UPD
ATE.".Q.L..".ITEM # ";P1$...Q..P1$."*".
.3999...R..(E(P1$).0).(E(P1$).1)..".....
..INPUT ERROR.":.3020.-.S.P..(E(P1$)).>.
V.N$."":E1$."".B....P.SZ.."MAX EXCEEDED"
:P.SZ:MX.P.Q....P.MX.MX.P.....PR$.D(AE(P
)..001):PR$.J(PR$,2,(C(PR$).2))......AE(
P).0.PR$."0.00".U....P;.4)A$(P).33.C(PR$
))PR$......".ITEM NAME";N$......N$."*"..
3999......N$.."".A$(P).N$.4.!..C(A$(P)).
20.A$(P).H(A$(P),20).C.&.."AMT";E1$.V.0.
.E1$."*"..3999.G.5..E1$."".3010...:..(E(
E1$).0).(E1$.."0").."......INPUT ERROR."
:.3110...?..E(E1$).0.AE(P).0:.3800.V.D.A
E(P).AE(P)..RN(E(E1$))...N..AE(P).9999.9
9.AE(P).9999.99...X..3010......500:.300:
.6000:..'. .. SAVE FILE.D...."....SAVE E
XPENSE LIST".V...."..LET OP !".Z...."..W
ANNEER EEN REEDS BESTAANDE......"..FILE-
NAAM WORDT GEKOZEN, GAAT".O...."..DE REE
DS BESTAANDE FILE VERLOREN !!!"......"..
FILE NAME";F$......F$."*"..6000:....R..3
,8,5,"@:".F$.",SEQ,W"......3,MX.+....J.1
.MX.H....3,J;R$;A$(J)R$;AE(J);R$.O....J.
V... 3.B....6000:..O.... DELETE.}...DT.0
:TM.0......".........DELETE".....S1$."".
....."..START AT";S1$.H....S1$."*"..5900
.Y...DS..(E(S1$))...D.S1$.""...N..DS.0..
"........INPUT ERROR.":.5020...X.S1$."".
+...."..END AT";S1$.>....S1$."*"..5900.]
....S1$."".S1$."0".DE.0:.5200.N...DE..(E
(S1$)).....DE.MX.DE.MX......DE..DS..520
0......".....0 OR NUMBER GREATER".Q...."
....THAN.";DE;".REQUIRED"......5080...P.
.DE.0.DE.DS...U.TM.DE.DS.1...W.DT.DT.TM.
..Z..J.DS.DE.2.D.A$(J).".........":AE(J)
.0.9.N..J.C.X..5010.L....500.Y...MX.MX.D
T.J.O..300:.6000:..}.P.. OPTIONS MENU...
Z.."........OPTIONS:"......".......=====
===".J...."..F1.-DISPLAY EXPENSES"......
"..F2.-ADD NEW EXPENSES"......"..F3.-UPD
ATE EXPENSE LIST".(...."..F4.-SAVE EXPEN
SE LIST".F...."..F5.-DELETE FROM LIST".B
...."..F6.-OPTIONS SCREEN"...J.."..F7.-L
OAD/MERGE FILES"...T.."..F8.-END/HARDCOP
Y". .W.....X.. LOAD/MERGE.J.B..".......L
OAD/MERGE"...L.."......EXPENSE FILES"...
V.."LOAD OR MERGE (L/M)";AN$.!....AN$."L
".MX.0:.400:.7999.6....AN$."*"..6000:..I
....AN$.."M".7030.[....".....MERGE".P...
.".FILE NAME";F$......F$."*"..6000:....P
..3,8,5,.F$.",SEQ,R"...Z..3,T1......T2.1
.T1.C....3,Y,T3$,T4.O....J.1.MX......A$(
J).T3$.AE(J)..(((AE(J).T4).2).100).100:T
3$.""......J.6....T3$.."".MX.MX.1:A$(MX)
.T3$:AE(MX).T4.<. ...C.*. 3.Y.?..500:.30
0:.6000:..V.@.. END OF JOB OR HARDCOPY..
.J.."........END OR HARDCOPY ?"...T.."..
.......E / H ";EH$.E.Y.. EH$." ".8020.X.
^.. EH$."E".8100...`.. EH$."H".8036.,.C.
. EH$.."H". ."..TYPE E (END) OR H (HARDC
OPY) PLEASE !":.8020.K.D.."........DESIR
ED HEADING (PERIOD)...................."
;H$.~.E.. H$." " .8036...G.. PRINT...H..
2,4...J.."..............OK,A HARDCOPY O
F:"H$"IS PRINTED FOR YOU RIGHT NOW"...K.
.".....STAND-BY , PLEASE !". .M..2,G(14)
,G(16)"15"H$,G(10),G(13).Y.R..2,G(15),G(
16)"05#"G(16)"20EXPENSES"G(16)"45AMOUNT:
".F.S..2,G(13).S.|.. J.1.MX.{.}.P.0.....
. J.MX . .2," ":.8090.C...PR$.D(AE(J)..0
01):PR$.J(PR$,2,(C(PR$).2)).S...P.44.C(P
R$)......AE(J).0.PR$."0.00".....J$.J(D(J
),2)......2,G(10);.,....2,G(16)"10"J$G(1
6)"20"A$(J);.P....2,G(16)"41:"G(16)G(52)
G(P)PR$;.W....J.J...TA$.D(TA..001).....T
A$.H(TA$,C(TA$).1)......TA.0.TA$."0.00".
.....2:.2,G(14),G(16)"45TOTAL:"TA$,G(15)
.J... 2,4.U. .. 6000...... END OF JOB..
....".....END OF PROGRAM..".-...."WOULD
YOU LIKE TO SAVE (Y/N)":. AN$.B.B..AN$."
*"..6000:..U.L..AN$."N"..8160._.V..4000.
....."........OK,I WILL STOP EXECUTING T
HIS PROGRAM . AS REQUESTED......!".L...
.".............THANK YOU..."......".....
.............END".........
> CLICK IMAGE PREVIEW FOR FULL MODAL