AIRCRAFT BUDGET
FILE INFORMATION
FILENAME(S): AIRCRAFT BUDGET
FILE TYPE(S): PRG
FILE SIZE: 10.4K
FIRST SEEN: 2025-10-20 14:30:37
APPEARS ON: 1 disk(s)
FILE HASH
84cc8990d8ef4fd4a3e4b74cb6c460500d4ad58a02b74b401a0e613204d47399
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0001UT | AIRCRAFT BUDGET | PRG | Treasure Chest - Klaus Der Suhler | 33 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....d.. ********|
00000010: 2A 2A 2A 2A 2A 00 31 08 6E 00 8F 20 2A 2A 41 49 |*****.1.n.. **AI|
00000020: 52 43 52 41 46 54 20 42 55 44 47 45 54 2A 2A 2A |RCRAFT BUDGET***|
00000030: 2A 00 45 08 78 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.E.x.. ********|
00000040: 2A 2A 2A 2A 2A 00 5A 08 82 00 8F 20 43 4F 50 59 |*****.Z.... COPY|
00000050: 52 49 47 48 54 20 31 39 38 34 00 74 08 8C 00 8F |RIGHT 1984.t....|
00000060: 20 41 4C 4C 20 52 49 47 48 54 53 20 52 45 53 45 | ALL RIGHTS RESE|
00000070: 52 56 45 44 00 8B 08 96 00 8F 20 42 59 20 42 52 |RVED...... BY BR|
00000080: 55 43 45 20 48 2E 4D 41 4C 4C 59 00 9C 08 A0 00 |UCE H.MALLY.....|
00000090: 8F 20 4D 4F 44 46 49 45 44 20 49 4E 00 A7 08 AA |. MODFIED IN....|
000000A0: 00 8F 20 31 39 38 37 00 BB 08 B4 00 8F 20 56 45 |.. 1987...... VE|
000000B0: 52 53 49 4F 4E 20 33 2E 30 2E 30 00 CC 08 BE 00 |RSION 3.0.0.....|
000000C0: 8F 20 43 2D 36 34 20 42 41 53 49 43 00 E2 08 C8 |. C-64 BASIC....|
000000D0: 00 8F 20 4D 50 53 20 38 30 31 20 50 52 49 4E 54 |.. MPS 801 PRINT|
000000E0: 45 52 00 FD 08 D2 00 8F 20 44 49 53 50 4C 41 59 |ER...... DISPLAY|
000000F0: 20 54 49 54 4C 45 20 53 43 52 45 45 4E 00 34 09 | TITLE SCREEN.4.|
00000100: DC 00 97 20 35 33 32 38 31 2C 31 35 3A 97 20 35 |... 53281,15:. 5|
00000110: 33 32 38 30 2C 31 35 3A 97 20 36 34 36 2C 30 3A |3280,15:. 646,0:|
00000120: 97 20 35 33 32 37 32 2C 32 31 3A 97 20 36 35 37 |. 53272,21:. 657|
00000130: 2C 31 32 38 00 4E 09 E6 00 54 24 B2 20 22 41 49 |,128.N...T$. "AI|
00000140: 52 43 52 41 46 54 20 42 55 44 47 45 54 22 00 77 |RCRAFT BUDGET".w|
00000150: 09 F0 00 99 22 93 11 11 11 11 11 11 11 11 11 11 |...."...........|
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 20 22 | ** "|
00000170: 54 24 22 20 2A 2A 22 00 BA 09 FA 00 99 22 11 11 |T$" **"......"..|
00000180: 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 |.......... |
00000190: 20 50 52 45 53 53 A0 12 52 45 54 55 52 4E 92 A0 | PRESS..RETURN..|
000001A0: 54 4F A0 43 4F 4E 54 49 4E 55 45 22 3A 58 B2 31 |TO.CONTINUE":X.1|
000001B0: 35 3A 59 B2 31 30 3A 53 B2 31 00 DA 09 04 01 A1 |5:Y.10:S.1......|
000001C0: 20 4B 24 3A 8D 33 33 32 30 3A 53 B2 B6 28 53 AB | K$:.3320:S..(S.|
000001D0: 31 29 3A 97 20 31 39 39 2C 53 00 FC 09 0E 01 81 |1):. 199,S......|
000001E0: 20 49 B2 31 20 A4 20 35 30 3A 82 3A 99 54 24 3A | I.1 . 50:.:.T$:|
000001F0: 8B 20 4B 24 B2 22 22 20 A7 32 36 30 00 11 0A 18 |. K$."" .260....|
00000200: 01 8B 20 C6 28 4B 24 29 B3 B1 31 33 20 A7 32 36 |.. .(K$)..13 .26|
00000210: 30 00 2C 0A 22 01 8F 20 49 4E 49 54 49 41 4C 49 |0.,.".. INITIALI|
00000220: 5A 45 20 56 41 52 49 41 42 4C 45 53 00 78 0A 2C |ZE VARIABLES.x.,|
00000230: 01 4D 44 B2 31 30 30 3A 4D 43 B2 31 36 3A 86 20 |.MD.100:MC.16:. |
00000240: 41 24 28 4D 44 29 2C 42 28 4D 43 29 2C 45 28 4D |A$(MD),B(MC),E(M|
00000250: 43 29 2C 4E 24 28 4D 43 29 3A 4E 24 28 31 29 B2 |C),N$(MC):N$(1).|
00000260: 22 24 24 20 49 4E 43 4F 4D 45 20 24 24 22 3A 4E |"$$ INCOME $$":N|
00000270: 43 B2 31 3A 4E 52 B2 30 00 B7 0A 36 01 53 44 B2 |C.1:NR.0...6.SD.|
00000280: 35 34 32 37 32 3A 97 20 53 44 2C 34 38 3A 97 20 |54272:. SD,48:. |
00000290: 53 44 AA 31 2C 34 3A 97 20 53 44 AA 33 2C 31 34 |SD.1,4:. SD.3,14|
000002A0: 30 3A 97 20 53 44 AA 36 2C 32 34 30 3A 97 20 53 |0:. SD.6,240:. S|
000002B0: 44 AA 32 34 2C 31 35 00 C7 0A 40 01 8F 20 4D 41 |D.24,15...@.. MA|
000002C0: 49 4E 20 4D 45 4E 55 00 ED 0A 4A 01 99 22 93 22 |IN MENU...J.."."|
000002D0: A3 31 35 29 54 24 3A 99 A3 31 35 29 22 4D 41 49 |.15)T$:..15)"MAI|
000002E0: 4E 20 4D 45 4E 55 11 11 11 11 11 11 22 00 1E 0B |N MENU......"...|
000002F0: 54 01 99 A3 38 29 22 31 29 20 57 4F 52 4B 20 57 |T...8)"1) WORK W|
00000300: 49 54 48 20 42 55 44 47 45 54 11 22 3A 99 A3 38 |ITH BUDGET.":..8|
00000310: 29 22 32 29 20 52 45 50 4F 52 54 53 11 22 00 46 |)"2) REPORTS.".F|
00000320: 0B 5E 01 99 A3 38 29 22 33 29 20 42 41 52 20 43 |.^...8)"3) BAR C|
00000330: 48 41 52 54 11 22 3A 99 A3 38 29 22 34 29 20 46 |HART.":..8)"4) F|
00000340: 49 4C 45 53 11 22 00 6F 0B 68 01 58 B2 35 3A 8D |ILES.".o.h.X.5:.|
00000350: 33 30 33 30 3A 91 20 4B 20 89 33 37 30 2C 35 31 |3030:. K .370,51|
00000360: 30 2C 32 30 34 30 2C 36 32 30 2C 32 39 37 30 00 |0,2040,620,2970.|
00000370: 8B 0B 72 01 8F 20 57 4F 52 4B 20 57 49 54 48 20 |..r.. WORK WITH |
00000380: 42 55 44 47 45 54 20 4D 45 4E 55 00 BC 0B 7C 01 |BUDGET MENU...|.|
00000390: 99 22 93 22 A3 31 35 29 54 24 3A 99 A3 39 29 22 |.".".15)T$:..9)"|
000003A0: 57 4F 52 4B 20 57 49 54 48 20 42 55 44 47 45 54 |WORK WITH BUDGET|
000003B0: 20 4D 45 4E 55 11 11 11 11 11 11 22 00 FA 0B 86 | MENU......"....|
000003C0: 01 99 A3 38 29 22 31 29 20 42 55 44 47 45 54 20 |...8)"1) BUDGET |
000003D0: 43 41 54 45 47 4F 52 49 45 53 11 22 3A 99 A3 38 |CATEGORIES.":..8|
000003E0: 29 22 32 29 20 49 4E 43 4F 4D 45 20 41 4E 44 20 |)"2) INCOME AND |
000003F0: 45 58 50 45 4E 53 45 53 11 22 00 19 0C 90 01 58 |EXPENSES.".....X|
00000400: B2 33 3A 8D 33 30 33 30 3A 91 20 4B 20 89 34 31 |.3:.3030:. K .41|
00000410: 30 2C 34 36 30 2C 33 32 30 00 36 0C 9A 01 8F 20 |0,460,320.6.... |
00000420: 42 55 44 47 45 54 20 43 41 54 45 47 4F 52 49 45 |BUDGET CATEGORIE|
00000430: 53 20 4D 45 4E 55 00 68 0C A4 01 99 22 93 22 A3 |S MENU.h....".".|
00000440: 31 35 29 54 24 3A 99 A3 38 29 22 42 55 44 47 45 |15)T$:..8)"BUDGE|
00000450: 54 20 43 41 54 45 47 4F 52 49 45 53 20 4D 45 4E |T CATEGORIES MEN|
00000460: 55 11 11 11 11 11 11 22 00 A1 0C AE 01 99 A3 38 |U......".......8|
00000470: 29 22 31 29 20 49 4E 49 54 49 41 4C 49 5A 45 20 |)"1) INITIALIZE |
00000480: 42 55 44 47 45 54 11 22 3A 99 A3 38 29 22 32 29 |BUDGET.":..8)"2)|
00000490: 20 41 44 44 20 41 20 43 41 54 45 47 4F 52 59 11 | ADD A CATEGORY.|
000004A0: 22 00 C1 0C B8 01 99 A3 38 29 22 33 29 20 43 48 |".......8)"3) CH|
000004B0: 41 4E 47 45 20 41 20 43 41 54 45 47 4F 52 59 11 |ANGE A CATEGORY.|
000004C0: 22 00 E9 0C C2 01 58 B2 34 3A 8D 33 30 33 30 3A |".....X.4:.3030:|
000004D0: 91 20 4B 20 8D 36 36 30 2C 38 30 30 2C 38 37 30 |. K .660,800,870|
000004E0: 2C 33 37 30 3A 89 34 31 30 00 08 0D CC 01 8F 20 |,370:.410...... |
000004F0: 49 4E 43 4F 4D 45 20 41 4E 44 20 45 58 50 45 4E |INCOME AND EXPEN|
00000500: 53 45 53 20 4D 45 4E 55 00 3C 0D D6 01 99 22 93 |SES MENU.<....".|
00000510: 22 A3 31 35 29 54 24 3A 99 A3 38 29 22 49 4E 43 |".15)T$:..8)"INC|
00000520: 4F 4D 45 20 41 4E 44 20 45 58 50 45 4E 53 45 53 |OME AND EXPENSES|
00000530: 20 4D 45 4E 55 11 11 11 11 11 11 22 00 6E 0D E0 | MENU......".n..|
00000540: 01 99 A3 38 29 22 31 29 20 49 4E 49 54 49 41 4C |...8)"1) INITIAL|
00000550: 49 5A 45 20 49 54 45 4D 53 11 22 3A 99 A3 38 29 |IZE ITEMS.":..8)|
00000560: 22 32 29 20 41 44 44 20 49 54 45 4D 11 22 00 88 |"2) ADD ITEM."..|
00000570: 0D EA 01 99 A3 38 29 22 33 29 20 43 48 41 4E 47 |.....8)"3) CHANG|
00000580: 45 20 49 54 45 4D 11 22 00 B2 0D F4 01 58 B2 34 |E ITEM.".....X.4|
00000590: 3A 8D 33 30 33 30 3A 91 20 4B 20 8D 37 33 30 2C |:.3030:. K .730,|
000005A0: 31 30 38 30 2C 31 31 36 30 2C 33 37 30 3A 89 34 |1080,1160,370:.4|
000005B0: 36 30 00 C5 0D FE 01 8F 20 52 45 50 4F 52 54 53 |60...... REPORTS|
000005C0: 20 4D 45 4E 55 00 DF 0D 08 02 8B 20 4E 43 B2 31 | MENU...... NC.1|
000005D0: 20 B0 20 4E 52 B2 30 20 A7 20 89 32 30 36 30 00 | . NR.0 . .2060.|
000005E0: 08 0E 12 02 99 22 93 22 A3 31 35 29 54 24 3A 99 |.....".".15)T$:.|
000005F0: A3 31 33 29 22 52 45 50 4F 52 54 53 20 4D 45 4E |.13)"REPORTS MEN|
00000600: 55 11 11 11 11 11 11 22 00 49 0E 1C 02 99 A3 38 |U......".I.....8|
00000610: 29 22 31 29 20 41 4C 4C 20 43 41 54 45 47 4F 52 |)"1) ALL CATEGOR|
00000620: 49 45 53 20 41 4E 44 20 49 54 45 4D 53 11 22 3A |IES AND ITEMS.":|
00000630: 99 A3 38 29 22 32 29 20 4D 4F 4E 54 48 4C 59 20 |..8)"2) MONTHLY |
00000640: 53 55 4D 4D 41 52 59 11 22 00 63 0E 26 02 99 A3 |SUMMARY.".c.&...|
00000650: 38 29 22 33 29 20 50 52 49 4E 54 20 43 48 41 52 |8)"3) PRINT CHAR|
00000660: 54 11 22 00 80 0E 30 02 58 B2 34 3A 8D 33 30 33 |T."...0.X.4:.303|
00000670: 30 3A 56 B2 4B 3A 8B 20 56 B2 34 20 A7 33 32 30 |0:V.K:. V.4 .320|
00000680: 00 A2 0E 3A 02 99 22 93 22 A3 31 32 29 22 43 48 |...:..".".12)"CH|
00000690: 4F 4F 53 45 20 4F 55 54 50 55 54 11 11 11 11 11 |OOSE OUTPUT.....|
000006A0: 11 22 00 C9 0E 44 02 99 A3 38 29 22 31 29 20 53 |."...D...8)"1) S|
000006B0: 43 52 45 45 4E 11 22 3A 99 A3 38 29 22 32 29 20 |CREEN.":..8)"2) |
000006C0: 50 52 49 4E 54 45 52 11 22 00 E2 0E 4E 02 58 B2 |PRINTER."...N.X.|
000006D0: 33 3A 8D 33 30 33 30 3A 8B 20 4B B2 33 20 A7 33 |3:.3030:. K.3 .3|
000006E0: 32 30 00 07 0F 58 02 8B 20 4B B2 31 20 A7 20 91 |20...X.. K.1 . .|
000006F0: 20 56 20 8D 32 32 31 30 2C 32 32 36 30 2C 32 33 | V .2210,2260,23|
00000700: 31 30 3A 89 33 32 30 00 32 0F 62 02 9F 34 2C 34 |10:.320.2.b..4,4|
00000710: 3A 9D 34 3A 91 20 56 20 8D 32 34 30 30 2C 32 34 |:.4:. V .2400,24|
00000720: 32 30 2C 32 34 34 30 3A 98 34 3A A0 34 3A 89 33 |20,2440:.4:.4:.3|
00000730: 32 30 00 43 0F 6C 02 8F 20 46 49 4C 45 53 20 4D |20.C.l.. FILES M|
00000740: 45 4E 55 00 6A 0F 76 02 99 22 93 22 A3 31 35 29 |ENU.j.v..".".15)|
00000750: 54 24 3A 99 A3 31 34 29 22 46 49 4C 45 53 20 4D |T$:..14)"FILES M|
00000760: 45 4E 55 11 11 11 11 11 11 22 00 96 0F 80 02 99 |ENU......"......|
00000770: A3 38 29 22 31 29 20 4C 4F 41 44 20 44 41 54 41 |.8)"1) LOAD DATA|
00000780: 11 22 3A 99 A3 38 29 22 32 29 20 53 41 56 45 20 |.":..8)"2) SAVE |
00000790: 44 41 54 41 11 22 00 B8 0F 8A 02 58 B2 33 3A 8D |DATA.".....X.3:.|
000007A0: 33 30 33 30 3A 91 20 4B 20 8D 31 35 35 30 2C 31 |3030:. K .1550,1|
000007B0: 37 33 30 3A 89 33 32 30 00 D0 0F 94 02 8F 20 49 |730:.320...... I|
000007C0: 4E 49 54 49 41 4C 49 5A 45 20 42 55 44 47 45 54 |NITIALIZE BUDGET|
000007D0: 00 01 10 9E 02 97 20 31 39 38 2C 30 3A 99 22 93 |...... 198,0:.".|
000007E0: 20 20 20 20 20 20 41 52 45 20 59 4F 55 20 53 55 | ARE YOU SU|
000007F0: 52 45 3F 3F 20 20 54 48 49 53 20 57 49 4C 4C 11 |RE?? THIS WILL.|
00000800: 22 00 2E 10 A8 02 99 22 20 20 20 45 52 41 53 45 |"......" ERASE|
00000810: 20 41 4C 4C 20 54 48 45 20 42 55 44 47 45 54 20 | ALL THE BUDGET |
00000820: 44 41 54 41 20 28 59 2F 4E 29 11 11 11 22 00 50 |DATA (Y/N)...".P|
00000830: 10 B2 02 A1 20 4B 24 3A 8B 20 4B 24 B3 B1 22 59 |.... K$:. K$.."Y|
00000840: 22 20 AF 20 4B 24 B3 B1 22 4E 22 20 A7 36 39 30 |" . K$.."N" .690|
00000850: 00 61 10 BC 02 8B 20 4B 24 B2 22 4E 22 20 A7 20 |.a.... K$."N" . |
00000860: 8E 00 77 10 C6 02 99 22 49 4E 49 54 49 41 4C 49 |..w...."INITIALI|
00000870: 5A 49 4E 47 2E 22 3B 00 B3 10 D0 02 81 20 49 B2 |ZING.";...... I.|
00000880: 32 20 A4 20 4D 43 3A 99 22 2E 22 3B 3A 4E 24 28 |2 . MC:.".";:N$(|
00000890: 49 29 B2 22 22 3A 42 28 49 29 B2 30 3A 45 28 49 |I)."":B(I).0:E(I|
000008A0: 29 B2 30 3A 82 3A 42 28 31 29 B2 30 3A 4E 43 B2 |).0:.:B(1).0:NC.|
000008B0: 31 3A 8E 00 CA 10 DA 02 8F 20 49 4E 49 54 49 41 |1:....... INITIA|
000008C0: 4C 49 5A 45 20 49 54 45 4D 53 00 FF 10 E4 02 97 |LIZE ITEMS......|
000008D0: 20 31 39 38 2C 30 3A 99 22 93 20 20 20 20 41 52 | 198,0:.". AR|
000008E0: 45 20 59 4F 55 20 53 55 52 45 3F 3F 20 20 54 48 |E YOU SURE?? TH|
000008F0: 49 53 20 57 49 4C 4C 20 45 52 41 53 45 11 22 00 |IS WILL ERASE.".|
00000900: 2C 11 EE 02 99 22 20 20 20 20 20 41 4C 4C 20 54 |,...." ALL T|
00000910: 48 45 20 49 54 45 4D 53 20 49 4E 20 4D 45 4D 4F |HE ITEMS IN MEMO|
00000920: 52 59 20 28 59 2F 4E 29 11 11 11 22 00 4E 11 F8 |RY (Y/N)...".N..|
00000930: 02 A1 20 4B 24 3A 8B 20 4B 24 B3 B1 22 59 22 20 |.. K$:. K$.."Y" |
00000940: AF 20 4B 24 B3 B1 22 4E 22 20 A7 37 36 30 00 5F |. K$.."N" .760._|
00000950: 11 02 03 8B 20 4B 24 B2 22 4E 22 20 A7 20 8E 00 |.... K$."N" . ..|
00000960: 75 11 0C 03 99 22 49 4E 49 54 49 41 4C 49 5A 49 |u...."INITIALIZI|
00000970: 4E 47 2E 22 3B 00 9C 11 16 03 81 20 49 B2 31 20 |NG.";...... I.1 |
00000980: A4 20 4D 44 3A 99 22 2E 22 3B 3A 41 24 28 49 29 |. MD:.".";:A$(I)|
00000990: B2 22 22 3A 82 3A 4E 52 B2 30 3A 8E 00 B9 11 20 |."":.:NR.0:.... |
000009A0: 03 8F 20 41 44 44 20 41 20 43 41 54 45 47 4F 52 |.. ADD A CATEGOR|
000009B0: 59 20 52 4F 55 54 49 4E 45 00 EF 11 2A 03 8B 20 |Y ROUTINE...*.. |
000009C0: 4E 43 B2 4D 43 20 A7 20 99 22 93 20 20 20 20 20 |NC.MC . .". |
000009D0: 20 41 4C 4C 20 43 41 54 45 47 4F 52 49 45 53 20 | ALL CATEGORIES |
000009E0: 41 52 45 20 46 55 4C 4C 22 3A 89 32 39 35 30 00 |ARE FULL":.2950.|
000009F0: 0A 12 34 03 8B 20 4E 43 B3 B1 31 20 B0 20 42 28 |..4.. NC..1 . B(|
00000A00: 31 29 B3 B1 30 20 A7 38 34 30 00 45 12 3E 03 99 |1)..0 .840.E.>..|
00000A10: 22 93 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00000A20: 20 45 4E 54 45 52 20 42 55 44 47 45 54 20 49 4E | ENTER BUDGET IN|
00000A30: 43 4F 4D 45 3A 20 22 3B 3A 8D 32 38 37 30 3A 42 |COME: ";:.2870:B|
00000A40: 28 31 29 B2 56 00 75 12 48 03 8D 32 37 34 30 3A |(1).V.u.H..2740:|
00000A50: 4E 43 B2 4E 43 AA 31 3A 43 B2 4E 43 3A 8D 39 34 |NC.NC.1:C.NC:.94|
00000A60: 30 3A 8B 20 53 24 B2 22 22 20 A7 20 4E 43 B2 4E |0:. S$."" . NC.N|
00000A70: 43 AB 31 3A 8E 00 87 12 52 03 8B 20 4B 24 B2 22 |C.1:....R.. K$."|
00000A80: 59 22 20 A7 38 30 30 00 8D 12 5C 03 8E 00 AB 12 |Y" .800...\.....|
00000A90: 66 03 8F 20 43 48 41 4E 47 45 20 43 41 54 45 47 |f.. CHANGE CATEG|
00000AA0: 4F 52 59 20 52 4F 55 54 49 4E 45 00 C7 12 70 03 |ORY ROUTINE...p.|
00000AB0: 8B 20 4E 43 B2 31 20 AF 20 42 28 31 29 B2 30 20 |. NC.1 . B(1).0 |
00000AC0: A7 20 89 32 39 32 30 00 E3 12 7A 03 8D 32 37 34 |. .2920...z..274|
00000AD0: 30 3A 8D 31 30 33 30 3A 8B 20 53 24 B2 22 22 20 |0:.1030:. S$."" |
00000AE0: A7 20 8E 00 F2 12 84 03 8B 20 43 B2 30 20 A7 38 |. ....... C.0 .8|
00000AF0: 39 30 00 07 13 8E 03 8D 39 34 30 3A 8B 20 53 24 |90......940:. S$|
00000B00: B2 22 22 20 A7 20 8E 00 19 13 98 03 8B 20 4B 24 |."" . ....... K$|
00000B10: B2 22 59 22 20 A7 38 39 30 00 1F 13 A2 03 8E 00 |."Y" .890.......|
00000B20: 3E 13 AC 03 8F 20 49 4E 50 55 54 20 48 45 41 44 |>.... INPUT HEAD|
00000B30: 49 4E 47 20 41 4E 44 20 41 4D 4F 55 4E 54 00 71 |ING AND AMOUNT.q|
00000B40: 13 B6 03 8B 20 43 B3 B1 31 20 A7 20 99 22 45 4E |.... C..1 . ."EN|
00000B50: 54 45 52 20 43 41 54 45 47 4F 52 59 20 48 45 41 |TER CATEGORY HEA|
00000B60: 44 49 4E 47 22 3A 99 22 3E 22 3B 3A 8D 32 39 30 |DING":.">";:.290|
00000B70: 30 00 81 13 C0 03 8B 20 53 24 B2 22 22 20 A7 20 |0...... S$."" . |
00000B80: 8E 00 9D 13 CA 03 8B 53 24 B2 22 2F 44 2F 22 A7 |.......S$."/D/".|
00000B90: 8D 33 33 37 30 3A 53 24 B2 22 22 3A 8E 00 B3 13 |.3370:S$."":....|
00000BA0: D4 03 8B 20 43 B3 B1 31 20 A7 20 4E 24 28 43 29 |... C..1 . N$(C)|
00000BB0: B2 53 24 00 E3 13 DE 03 99 3A 99 22 45 4E 54 45 |.S$......:."ENTE|
00000BC0: 52 20 42 55 44 47 45 54 20 41 4D 4F 55 4E 54 22 |R BUDGET AMOUNT"|
00000BD0: 3A 99 22 3E 22 3B 3A 8D 32 38 37 30 3A 42 28 43 |:.">";:.2870:B(C|
00000BE0: 29 B2 56 00 04 14 E8 03 99 3A 99 22 41 4E 4F 54 |).V......:."ANOT|
00000BF0: 48 45 52 20 43 41 54 45 47 4F 52 59 20 28 59 2F |HER CATEGORY (Y/|
00000C00: 4E 29 3F 22 00 27 14 F2 03 A1 20 4B 24 3A 8B 20 |N)?".'.... K$:. |
00000C10: 4B 24 B3 B1 22 59 22 20 AF 20 4B 24 B3 B1 22 4E |K$.."Y" . K$.."N|
00000C20: 22 20 A7 31 30 31 30 00 2D 14 FC 03 8E 00 49 14 |" .1010.-.....I.|
00000C30: 06 04 8F 20 49 4E 50 55 54 20 43 41 54 45 47 4F |... INPUT CATEGO|
00000C40: 52 59 20 4E 55 4D 42 45 52 00 80 14 10 04 99 22 |RY NUMBER......"|
00000C50: 20 45 4E 54 45 52 20 43 41 54 45 47 4F 52 59 20 | ENTER CATEGORY |
00000C60: 4E 55 4D 42 45 52 3A 20 22 3B 3A 4C B2 32 3A 42 |NUMBER: ";:L.2:B|
00000C70: B2 34 38 3A 54 B2 35 37 3A 8D 33 30 38 30 3A 99 |.48:T.57:.3080:.|
00000C80: 00 90 14 1A 04 8B 20 53 24 B2 22 22 20 A7 20 8E |...... S$."" . .|
00000C90: 00 AE 14 24 04 43 B2 C5 28 53 24 29 3A 8B 20 43 |...$.C..(S$):. C|
00000CA0: B1 30 20 AF 20 43 B3 B2 4E 43 20 A7 20 8E 00 DA |.0 . C..NC . ...|
00000CB0: 14 2E 04 99 3A 99 22 2A 2A 20 43 41 54 45 47 4F |....:."** CATEGO|
00000CC0: 52 59 20 4E 4F 54 20 46 4F 55 4E 44 20 2A 2A 22 |RY NOT FOUND **"|
00000CD0: 3A 43 B2 30 3A 89 32 39 35 30 00 EA 14 38 04 8F |:C.0:.2950...8..|
00000CE0: 20 41 44 44 20 49 54 45 4D 53 00 28 15 42 04 8B | ADD ITEMS.(.B..|
00000CF0: 20 4E 52 B2 4D 44 20 A7 20 99 22 93 54 48 45 20 | NR.MD . .".THE |
00000D00: 46 49 4C 45 20 49 53 20 46 55 4C 4C 2E 20 20 54 |FILE IS FULL. T|
00000D10: 48 45 52 45 20 41 52 45 22 4D 44 22 49 54 45 4D |HERE ARE"MD"ITEM|
00000D20: 53 22 3A 89 32 39 35 30 00 6A 15 4C 04 8B 4E 43 |S":.2950.j.L..NC|
00000D30: B2 31 AF 42 28 31 29 B2 30 20 A7 20 99 22 93 20 |.1.B(1).0 . .". |
00000D40: 20 59 4F 55 20 4E 45 45 44 20 54 4F 20 45 4E 54 | YOU NEED TO ENT|
00000D50: 45 52 20 43 41 54 45 47 4F 52 49 45 53 20 46 49 |ER CATEGORIES FI|
00000D60: 52 53 54 22 3A 89 32 39 35 30 00 86 15 56 04 8D |RST":.2950...V..|
00000D70: 32 37 34 30 3A 8D 31 30 33 30 3A 8B 20 53 24 B2 |2740:.1030:. S$.|
00000D80: 22 22 20 A7 20 8E 00 96 15 60 04 8B 20 43 B2 30 |"" . ....`.. C.0|
00000D90: 20 A7 31 31 31 30 00 C2 15 6A 04 4E 52 B2 4E 52 | .1110...j.NR.NR|
00000DA0: AA 31 3A 5A 5A B2 4E 52 3A 8D 31 34 37 30 3A 8B |.1:ZZ.NR:.1470:.|
00000DB0: 20 53 24 B2 22 22 20 A7 20 4E 52 B2 4E 52 AB 31 | S$."" . NR.NR.1|
00000DC0: 3A 8E 00 D5 15 74 04 8B 20 4B 24 B2 22 59 22 20 |:....t.. K$."Y" |
00000DD0: A7 31 30 39 30 00 DB 15 7E 04 8E 00 EE 15 88 04 |.1090...~.......|
00000DE0: 8F 20 43 48 41 4E 47 45 20 49 54 45 4D 53 00 30 |. CHANGE ITEMS.0|
00000DF0: 16 92 04 8B 4E 43 B2 31 AF 42 28 31 29 B2 30 20 |....NC.1.B(1).0 |
00000E00: A7 20 99 22 93 20 20 59 4F 55 20 4E 45 45 44 20 |. .". YOU NEED |
00000E10: 54 4F 20 45 4E 54 45 52 20 43 41 54 45 47 4F 52 |TO ENTER CATEGOR|
00000E20: 49 45 53 20 46 49 52 53 54 22 3A 89 32 39 35 30 |IES FIRST":.2950|
00000E30: 00 6E 16 9C 04 8B 20 4E 52 B2 30 20 A7 20 99 22 |.n.... NR.0 . ."|
00000E40: 93 20 59 4F 55 20 48 41 56 45 20 4E 4F 20 49 54 |. YOU HAVE NO IT|
00000E50: 45 4D 53 20 49 4E 20 4D 45 4D 4F 52 59 20 54 4F |EMS IN MEMORY TO|
00000E60: 20 43 48 41 4E 47 45 22 3A 89 32 39 35 30 00 8A | CHANGE":.2950..|
00000E70: 16 A6 04 8D 32 37 34 30 3A 8D 31 30 33 30 3A 8B |....2740:.1030:.|
00000E80: 20 53 24 B2 22 22 20 A7 20 8E 00 9A 16 B0 04 8B | S$."" . .......|
00000E90: 20 43 B2 30 20 A7 31 31 39 30 00 C6 16 BA 04 43 | C.0 .1190.....C|
00000EA0: 54 B2 30 3A 97 20 31 39 38 2C 30 3A 99 22 93 11 |T.0:. 198,0:."..|
00000EB0: 20 43 41 54 45 47 4F 52 59 3A 22 43 22 9D 29 20 | CATEGORY:"C".) |
00000EC0: 22 4E 24 28 43 29 00 F9 16 C4 04 99 22 11 20 20 |"N$(C)......". |
00000ED0: 20 20 20 12 49 54 45 4D 92 20 20 20 20 20 20 20 | .ITEM. |
00000EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A0 12 | ..|
00000EF0: 41 4D 4F 55 4E 54 92 11 22 00 20 17 CE 04 81 20 |AMOUNT..". .... |
00000F00: 49 B2 31 20 A4 20 4E 52 3A 8B 20 C6 28 41 24 28 |I.1 . NR:. .(A$(|
00000F10: 49 29 29 AB 31 30 30 B3 B1 43 20 A7 31 32 36 30 |I)).100..C .1260|
00000F20: 00 43 17 D8 04 43 54 B2 43 54 AA 31 3A 54 58 B2 |.C...CT.CT.1:TX.|
00000F30: C6 28 CA 28 41 24 28 49 29 2C 32 2C 31 29 29 AB |.(.(A$(I),2,1)).|
00000F40: 32 30 30 00 7E 17 E2 04 99 49 22 9D 29 20 22 CA |200.~....I".) ".|
00000F50: 28 41 24 28 49 29 2C 33 2C 54 58 AB 32 29 A3 33 |(A$(I),3,TX.2).3|
00000F60: 31 29 C5 28 CA 28 41 24 28 49 29 2C 54 58 AA 31 |1).(.(A$(I),TX.1|
00000F70: 2C C3 28 41 24 28 49 29 29 AB 54 58 29 29 00 AE |,.(A$(I)).TX))..|
00000F80: 17 EC 04 8B 20 28 28 43 54 AD 35 29 B3 B1 B5 28 |.... ((CT.5)...(|
00000F90: 43 54 AD 35 29 29 20 B0 20 28 49 B2 4E 52 29 20 |CT.5)) . (I.NR) |
00000FA0: B0 20 28 43 54 B2 30 29 20 A7 31 33 35 30 00 E6 |. (CT.0) .1350..|
00000FB0: 17 F6 04 58 B2 30 3A 59 B2 32 33 3A 8D 33 33 32 |...X.0:Y.23:.332|
00000FC0: 30 3A 99 22 20 20 20 20 20 50 52 45 53 53 20 54 |0:." PRESS T|
00000FD0: 48 45 20 53 50 41 43 45 20 42 41 52 20 46 4F 52 |HE SPACE BAR FOR|
00000FE0: 20 4D 4F 52 45 22 00 10 18 00 05 99 22 20 20 20 | MORE"......" |
00000FF0: 20 20 20 20 50 52 45 53 53 20 12 52 45 54 55 52 | PRESS .RETUR|
00001000: 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3B |N. TO CONTINUE";|
00001010: 00 35 18 0A 05 A1 20 4B 24 3A 8B 20 4B 24 B3 B1 |.5.... K$:. K$..|
00001020: C7 28 31 33 29 20 AF 20 4B 24 B3 B1 22 20 22 20 |.(13) . K$.." " |
00001030: A7 31 32 39 30 00 64 18 14 05 99 22 91 91 22 3A |.1290.d...."..":|
00001040: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00001050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001060: 20 20 20 22 00 8E 18 1E 05 99 22 20 20 20 20 20 | "......" |
00001070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001080: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 AA | ";..|
00001090: 18 28 05 8B 20 4B 24 B2 C7 28 31 33 29 20 A7 20 |.(.. K$..(13) . |
000010A0: 49 B2 4E 52 3A 89 31 33 35 30 00 C9 18 32 05 99 |I.NR:.1350...2..|
000010B0: 22 93 11 20 43 41 54 45 47 4F 52 59 3A 22 43 22 |".. CATEGORY:"C"|
000010C0: 9D 29 20 22 4E 24 28 43 29 00 FC 18 3C 05 99 22 |.) "N$(C)...<.."|
000010D0: 11 20 20 20 20 20 20 20 20 20 12 49 54 45 4D 92 |. .ITEM.|
000010E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010F0: 20 A0 12 41 4D 4F 55 4E 54 92 11 22 00 10 19 46 | ..AMOUNT.."...F|
00001100: 05 82 3A 8B 20 43 54 B3 B1 30 20 A7 31 33 37 30 |..:. CT..0 .1370|
00001110: 00 4D 19 50 05 99 22 91 91 20 20 54 48 45 52 45 |.M.P..".. THERE|
00001120: 20 41 52 45 20 4E 4F 20 49 54 45 4D 53 20 49 4E | ARE NO ITEMS IN|
00001130: 20 54 48 49 53 20 43 41 54 45 47 4F 52 59 20 20 | THIS CATEGORY |
00001140: 22 3A 8D 32 39 35 30 3A 89 31 31 36 30 00 60 19 |":.2950:.1160.`.|
00001150: 5A 05 58 B2 30 3A 59 B2 31 34 3A 8D 33 33 32 30 |Z.X.0:Y.14:.3320|
00001160: 00 92 19 64 05 99 22 45 4E 54 45 52 20 49 54 45 |...d.."ENTER ITE|
00001170: 4D 20 4E 55 4D 42 45 52 3A 20 22 3B 3A 4C B2 33 |M NUMBER: ";:L.3|
00001180: 3A 42 B2 34 38 3A 54 B2 35 37 3A 8D 33 30 38 30 |:B.48:T.57:.3080|
00001190: 3A 99 00 A4 19 6E 05 8B 20 53 24 B2 22 22 20 A7 |:....n.. S$."" .|
000011A0: 31 31 36 30 00 BD 19 78 05 56 B2 C5 28 53 24 29 |1160...x.V..(S$)|
000011B0: 3A 8B 20 56 B1 4D 44 20 A7 31 34 32 30 00 D8 19 |:. V.MD .1420...|
000011C0: 82 05 8B 20 C6 28 41 24 28 56 29 29 AB 31 30 30 |... .(A$(V)).100|
000011D0: B2 43 20 A7 31 34 33 30 00 08 1A 8C 05 99 22 49 |.C .1430......"I|
000011E0: 54 45 4D 20 49 53 20 4E 4F 54 20 49 4E 20 54 48 |TEM IS NOT IN TH|
000011F0: 49 53 20 43 41 54 45 47 4F 52 59 22 3A 8D 32 39 |IS CATEGORY":.29|
00001200: 35 30 3A 89 31 31 36 30 00 23 1A 96 05 5A 5A B2 |50:.1160.#...ZZ.|
00001210: 56 3A 8D 31 34 37 30 3A 8B 20 53 24 B2 22 22 20 |V:.1470:. S$."" |
00001220: A7 20 8E 00 39 1A A0 05 8B 53 24 B2 22 2F 44 2F |. ..9....S$."/D/|
00001230: 22 A7 8D 33 33 34 30 3A 8E 00 4C 1A AA 05 8B 20 |"..3340:..L.... |
00001240: 4B 24 B2 22 59 22 20 A7 31 31 36 30 00 52 1A B4 |K$."Y" .1160.R..|
00001250: 05 8E 00 73 1A BE 05 8F 20 49 4E 50 55 54 20 49 |...s.... INPUT I|
00001260: 54 45 4D 20 44 45 53 43 20 41 4E 44 20 41 4D 4F |TEM DESC AND AMO|
00001270: 55 4E 54 00 A9 1A C8 05 99 22 45 4E 54 45 52 20 |UNT......"ENTER |
00001280: 49 54 45 4D 20 44 45 53 43 52 49 50 54 49 4F 4E |ITEM DESCRIPTION|
00001290: 22 3A 99 22 3E 22 3B 3A 8D 32 39 30 30 3A 8B 20 |":.">";:.2900:. |
000012A0: 53 24 B2 22 22 20 A7 20 8E 00 C5 1A D2 05 8B 53 |S$."" . .......S|
000012B0: 24 B2 22 2F 44 2F 22 A7 8D 33 33 34 30 3A 53 24 |$."/D/"..3340:S$|
000012C0: B2 22 22 3A 8E 00 F6 1A DC 05 41 24 28 5A 5A 29 |."":......A$(ZZ)|
000012D0: B2 53 24 3A 99 3A 99 22 45 4E 54 45 52 20 49 54 |.S$:.:."ENTER IT|
000012E0: 45 4D 20 41 4D 4F 55 4E 54 22 3A 99 22 3E 22 3B |EM AMOUNT":.">";|
000012F0: 3A 8D 32 38 37 30 00 29 1B E6 05 41 24 28 5A 5A |:.2870.)...A$(ZZ|
00001300: 29 B2 C7 28 43 AA 31 30 30 29 AA C7 28 C3 28 41 |)..(C.100)..(.(A|
00001310: 24 28 5A 5A 29 29 AA 32 30 32 29 AA 41 24 28 5A |$(ZZ)).202).A$(Z|
00001320: 5A 29 AA C4 28 56 29 3A 99 00 3F 1B F0 05 99 22 |Z)..(V):..?...."|
00001330: 41 4E 4F 54 48 45 52 20 28 59 2F 4E 29 3F 22 00 |ANOTHER (Y/N)?".|
00001340: 62 1B FA 05 A1 20 4B 24 3A 8B 20 4B 24 B3 B1 22 |b.... K$:. K$.."|
00001350: 59 22 20 AF 20 4B 24 B3 B1 22 4E 22 20 A7 31 35 |Y" . K$.."N" .15|
00001360: 33 30 00 68 1B 04 06 8E 00 80 1B 0E 06 8F 20 4C |30.h.......... L|
00001370: 4F 41 44 20 46 49 4C 45 20 52 4F 55 54 49 4E 45 |OAD FILE ROUTINE|
00001380: 00 AF 1B 18 06 99 22 93 22 A3 31 36 29 22 4C 4F |......".".16)"LO|
00001390: 41 44 20 46 49 4C 45 11 11 11 11 11 22 3A 8D 31 |AD FILE.....":.1|
000013A0: 39 32 30 3A 8B 20 53 24 B2 22 22 20 A7 20 8E 00 |920:. S$."" . ..|
000013B0: E4 1B 22 06 8B 20 4B 24 B2 22 44 22 20 A7 20 9F |..".. K$."D" . .|
000013C0: 31 2C 38 2C 38 2C 22 30 3A 22 AA 46 24 AA 22 2C |1,8,8,"0:".F$.",|
000013D0: 53 2C 52 22 3A 8D 32 30 30 30 3A 8B 20 45 20 A7 |S,R":.2000:. E .|
000013E0: 31 37 30 30 00 FD 1B 2C 06 8B 20 4B 24 B2 22 54 |1700...,.. K$."T|
000013F0: 22 20 A7 20 9F 31 2C 31 2C 30 2C 46 24 00 0E 1C |" . .1,1,0,F$...|
00001400: 36 06 99 22 11 4C 4F 41 44 49 4E 47 22 3B 00 18 |6..".LOADING";..|
00001410: 1C 40 06 84 31 2C 4E 43 00 2D 1C 4A 06 81 20 49 |.@..1,NC.-.J.. I|
00001420: B2 31 20 A4 20 4E 43 3A 99 22 2E 22 3B 00 3A 1C |.1 . NC:.".";.:.|
00001430: 54 06 84 31 2C 4E 24 28 49 29 00 46 1C 5E 06 84 |T..1,N$(I).F.^..|
00001440: 31 2C 42 28 49 29 00 67 1C 68 06 82 3A 8B 20 4B |1,B(I).g.h..:. K|
00001450: 24 B2 22 44 22 20 A7 20 8D 32 30 32 30 3A 8B 20 |$."D" . .2020:. |
00001460: 45 20 A7 31 37 30 30 00 7E 1C 72 06 84 31 2C 4E |E .1700.~.r..1,N|
00001470: 52 3A 8B 20 4E 52 B2 30 20 A7 31 36 39 30 00 93 |R:. NR.0 .1690..|
00001480: 1C 7C 06 81 20 49 B2 31 20 A4 20 4E 52 3A 99 22 |.|.. I.1 . NR:."|
00001490: 2E 22 3B 00 A0 1C 86 06 84 31 2C 41 24 28 49 29 |.";......1,A$(I)|
000014A0: 00 A6 1C 90 06 82 00 BB 1C 9A 06 8B 20 4B 24 B2 |............ K$.|
000014B0: 22 44 22 20 A7 20 8D 32 30 32 30 00 C2 1C A4 06 |"D" . .2020.....|
000014C0: A0 31 00 D5 1C AE 06 8B 20 4B 24 B2 22 44 22 20 |.1...... K$."D" |
000014D0: A7 20 A0 31 35 00 DB 1C B8 06 8E 00 F3 1C C2 06 |. .15...........|
000014E0: 8F 20 53 41 56 45 20 46 49 4C 45 20 52 4F 55 54 |. SAVE FILE ROUT|
000014F0: 49 4E 45 00 0F 1D CC 06 8B 20 4E 43 B2 31 20 AF |INE...... NC.1 .|
00001500: 20 42 28 31 29 B2 30 20 A7 20 89 32 39 32 30 00 | B(1).0 . .2920.|
00001510: 3E 1D D6 06 99 22 93 22 A3 31 36 29 22 53 41 56 |>....".".16)"SAV|
00001520: 45 20 46 49 4C 45 11 11 11 11 11 22 3A 8D 31 39 |E FILE.....":.19|
00001530: 32 30 3A 8B 20 53 24 B2 22 22 20 A7 20 8E 00 74 |20:. S$."" . ..t|
00001540: 1D E0 06 8B 20 4B 24 B2 22 44 22 20 A7 20 9F 31 |.... K$."D" . .1|
00001550: 2C 38 2C 38 2C 22 40 30 3A 22 AA 46 24 AA 22 2C |,8,8,"@0:".F$.",|
00001560: 53 2C 57 22 3A 8D 32 30 30 30 3A 8B 20 45 20 A7 |S,W":.2000:. E .|
00001570: 31 38 39 30 00 8D 1D EA 06 8B 20 4B 24 B2 22 54 |1890...... K$."T|
00001580: 22 20 A7 20 9F 31 2C 31 2C 31 2C 46 24 00 9D 1D |" . .1,1,1,F$...|
00001590: F4 06 99 22 11 53 41 56 49 4E 47 22 3B 00 A7 1D |...".SAVING";...|
000015A0: FE 06 98 31 2C 4E 43 00 BC 1D 08 07 81 20 49 B2 |...1,NC...... I.|
000015B0: 31 20 A4 20 4E 43 3A 99 22 2E 22 3B 00 C9 1D 12 |1 . NC:.".";....|
000015C0: 07 98 31 2C 4E 24 28 49 29 00 D5 1D 1C 07 98 31 |..1,N$(I)......1|
000015D0: 2C 42 28 49 29 00 F6 1D 26 07 82 3A 8B 20 4B 24 |,B(I)...&..:. K$|
000015E0: B2 22 44 22 20 A7 20 8D 32 30 32 30 3A 8B 20 45 |."D" . .2020:. E|
000015F0: 20 A7 31 38 39 30 00 0D 1E 30 07 98 31 2C 4E 52 | .1890...0..1,NR|
00001600: 3A 8B 20 4E 52 B2 30 20 A7 31 38 38 30 00 22 1E |:. NR.0 .1880.".|
00001610: 3A 07 81 20 49 B2 31 20 A4 20 4E 52 3A 99 22 2E |:.. I.1 . NR:.".|
00001620: 22 3B 00 2F 1E 44 07 98 31 2C 41 24 28 49 29 00 |";./.D..1,A$(I).|
00001630: 35 1E 4E 07 82 00 4A 1E 58 07 8B 20 4B 24 B2 22 |5.N...J.X.. K$."|
00001640: 44 22 20 A7 20 8D 32 30 32 30 00 51 1E 62 07 A0 |D" . .2020.Q.b..|
00001650: 31 00 64 1E 6C 07 8B 20 4B 24 B2 22 44 22 20 A7 |1.d.l.. K$."D" .|
00001660: 20 A0 31 35 00 6A 1E 76 07 8E 00 80 1E 80 07 8F | .15.j.v........|
00001670: 20 49 4E 50 55 54 20 46 49 4C 45 20 4E 41 4D 45 | INPUT FILE NAME|
00001680: 00 9A 1E 8A 07 99 22 49 4E 50 55 54 20 46 49 4C |......"INPUT FIL|
00001690: 45 20 4E 41 4D 45 3A 20 22 3B 00 CA 1E 94 07 4C |E NAME: ";.....L|
000016A0: B2 31 34 3A 42 B2 33 32 3A 54 B2 39 30 3A 8D 33 |.14:B.32:T.90:.3|
000016B0: 30 38 30 3A 46 24 B2 53 24 AA 22 2E 42 22 3A 8B |080:F$.S$.".B":.|
000016C0: 20 53 24 B2 22 22 20 A7 20 8E 00 ED 1E 9E 07 99 | S$."" . .......|
000016D0: 3A 99 22 11 11 54 41 50 45 20 4F 52 20 44 49 53 |:."..TAPE OR DIS|
000016E0: 4B 20 28 54 2F 44 29 9D 9D 9D 9D 22 3B 00 10 1F |K (T/D)....";...|
000016F0: A8 07 A1 20 4B 24 3A 8B 20 4B 24 B3 B1 22 54 22 |... K$:. K$.."T"|
00001700: 20 AF 20 4B 24 B3 B1 22 44 22 20 A7 31 39 36 30 | . K$.."D" .1960|
00001710: 00 27 1F B2 07 8B 20 4B 24 B2 22 44 22 20 A7 20 |.'.... K$."D" . |
00001720: 99 22 1D 1D 12 44 22 00 3C 1F BC 07 8B 20 4B 24 |."...D".<.... K$|
00001730: B2 22 54 22 20 A7 20 99 22 12 54 22 00 42 1F C6 |."T" . .".T".B..|
00001740: 07 8E 00 58 1F D0 07 8F 20 52 45 41 44 20 44 49 |...X.... READ DI|
00001750: 53 4B 20 45 52 52 4F 52 00 66 1F DA 07 9F 20 31 |SK ERROR.f.... 1|
00001760: 35 2C 38 2C 31 35 00 91 1F E4 07 84 31 35 2C 45 |5,8,15......15,E|
00001770: 2C 45 24 3A 8B 20 45 B3 B1 30 20 A7 20 99 20 22 |,E$:. E..0 . . "|
00001780: 2A 2A 20 22 45 24 22 20 2A 2A 22 3A 8D 32 39 35 |** "E$" **":.295|
00001790: 30 00 97 1F EE 07 8E 00 AF 1F F8 07 8F 20 44 49 |0............ DI|
000017A0: 53 50 4C 41 59 20 42 41 52 20 43 48 41 52 54 00 |SPLAY BAR CHART.|
000017B0: C9 1F 02 08 8B 20 4E 43 B3 B1 31 20 AF 20 4E 52 |..... NC..1 . NR|
000017C0: B3 B1 30 20 A7 32 30 38 30 00 F4 1F 0C 08 99 22 |..0 .2080......"|
000017D0: 93 20 20 20 20 20 20 54 48 45 52 45 20 49 53 20 |. THERE IS |
000017E0: 4E 4F 54 20 45 4E 4F 55 47 48 20 44 41 54 41 20 |NOT ENOUGH DATA |
000017F0: 54 4F 11 22 00 27 20 16 08 99 22 20 20 20 20 20 |TO.".' ..." |
00001800: 20 43 52 45 41 54 45 20 41 20 43 48 41 52 54 20 | CREATE A CHART |
00001810: 4F 52 20 41 20 52 45 50 4F 52 54 22 3A 8D 32 39 |OR A REPORT":.29|
00001820: 35 30 3A 89 33 32 30 00 62 20 20 08 97 20 31 39 |50:.320.b .. 19|
00001830: 38 2C 30 3A 99 22 93 20 20 20 20 20 20 20 20 20 |8,0:.". |
00001840: 20 20 20 20 20 54 48 49 4E 4B 49 4E 47 22 3A 8D | THINKING":.|
00001850: 32 34 36 30 3A 52 47 B2 43 54 AD 31 39 3A 99 22 |2460:RG.CT.19:."|
00001860: 93 22 00 93 20 2A 08 81 20 49 B2 32 20 A4 20 4E |.".. *.. I.2 . N|
00001870: 43 3A 99 22 90 22 4E 24 28 49 29 A3 32 30 29 22 |C:."."N$(I).20)"|
00001880: 12 22 3B 3A 8B 20 20 42 28 49 29 B2 30 20 A7 32 |.";:. B(I).0 .2|
00001890: 31 31 30 00 B2 20 34 08 81 20 4A B2 31 20 A4 20 |110.. 4.. J.1 . |
000018A0: B5 28 42 28 49 29 AD 52 47 29 3A 99 22 A3 22 3B |.(B(I).RG):.".";|
000018B0: 3A 82 00 CC 20 3E 08 99 3A 8B 20 45 28 49 29 B1 |:... >..:. E(I).|
000018C0: 42 28 49 29 20 A7 20 99 22 1C 22 3B 00 E9 20 48 |B(I) . .".";.. H|
000018D0: 08 99 A3 32 30 29 22 12 22 3B 3A 8B 20 45 28 49 |...20)".";:. E(I|
000018E0: 29 B2 30 20 A7 32 31 34 30 00 08 21 52 08 81 20 |).0 .2140..!R.. |
000018F0: 4A B2 31 20 A4 20 B5 28 45 28 49 29 AD 52 47 29 |J.1 . .(E(I).RG)|
00001900: 3A 99 22 A3 22 3B 3A 82 00 33 21 5C 08 99 3A 99 |:.".";:..3!\..:.|
00001910: 3A 8B 20 49 B2 4E 43 20 B0 20 B5 28 28 49 AB 31 |:. I.NC . .((I.1|
00001920: 29 AD 36 29 B3 B1 28 49 AB 31 29 AD 36 20 A7 32 |).6)..(I.1).6 .2|
00001930: 31 38 30 00 65 21 66 08 58 B2 36 3A 59 B2 32 33 |180.e!f.X.6:Y.23|
00001940: 3A 8D 33 33 32 30 3A 99 22 90 50 52 45 53 53 20 |:.3320:.".PRESS |
00001950: 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 |.RETURN. TO CONT|
00001960: 49 4E 55 45 22 00 80 21 70 08 A1 20 4B 24 3A 8B |INUE"..!p.. K$:.|
00001970: 20 4B 24 B3 B1 C7 28 31 33 29 20 A7 32 31 36 30 | K$...(13) .2160|
00001980: 00 89 21 7A 08 99 22 93 22 00 B9 21 84 08 82 3A |..!z.."."..!...:|
00001990: 58 B2 39 3A 59 B2 32 33 3A 8D 33 33 32 30 3A 99 |X.9:Y.23:.3320:.|
000019A0: 22 90 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 |".PRESS .RETURN.|
000019B0: 20 54 4F 20 45 58 49 54 22 00 D4 21 8E 08 A1 20 | TO EXIT"..!... |
000019C0: 4B 24 3A 8B 20 4B 24 B3 B1 C7 28 31 33 29 20 A7 |K$:. K$...(13) .|
000019D0: 32 31 39 30 00 DD 21 98 08 89 33 32 30 00 00 22 |2190..!...320.."|
000019E0: A2 08 8F 20 44 49 53 50 4C 41 59 20 43 41 54 45 |... DISPLAY CATE|
000019F0: 47 4F 52 49 45 53 20 41 4E 44 20 49 54 45 4D 53 |GORIES AND ITEMS|
00001A00: 00 2F 22 AC 08 99 22 93 22 3A 8D 32 34 36 30 3A |./"...".":.2460:|
00001A10: 81 20 49 B2 31 20 A4 20 4E 43 3A 8D 32 36 37 30 |. I.1 . NC:.2670|
00001A20: 3A 58 B2 35 3A 59 B2 32 33 3A 8D 33 33 32 30 00 |:X.5:Y.23:.3320.|
00001A30: 51 22 B6 08 99 22 50 52 45 53 53 20 12 52 45 54 |Q"..."PRESS .RET|
00001A40: 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |URN. TO CONTINUE|
00001A50: 22 00 6C 22 C0 08 A1 20 4B 24 3A 8B 20 4B 24 B3 |".l"... K$:. K$.|
00001A60: B1 C7 28 31 33 29 20 A7 32 32 34 30 00 77 22 CA |..(13) .2240.w".|
00001A70: 08 99 22 93 22 3A 82 00 95 22 D4 08 8F 20 44 49 |..".":..."... DI|
00001A80: 53 50 4C 41 59 20 4D 4F 4E 54 48 4C 59 20 53 55 |SPLAY MONTHLY SU|
00001A90: 4D 4D 41 52 59 00 B9 22 DE 08 99 22 93 22 3A 8D |MMARY.."...".":.|
00001AA0: 32 34 36 30 3A 8D 32 35 33 30 3A 58 B2 39 3A 59 |2460:.2530:X.9:Y|
00001AB0: B2 32 33 3A 8D 33 33 32 30 00 D7 22 E8 08 99 22 |.23:.3320.."..."|
00001AC0: 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 20 54 |PRESS .RETURN. T|
00001AD0: 4F 20 45 58 49 54 22 00 F2 22 F2 08 A1 20 4B 24 |O EXIT".."... K$|
00001AE0: 3A 8B 20 4B 24 B3 B1 C7 28 31 33 29 20 A7 32 32 |:. K$...(13) .22|
00001AF0: 39 30 00 F8 22 FC 08 8E 00 0C 23 06 09 8F 20 44 |90..".....#... D|
00001B00: 49 53 50 4C 41 59 20 43 48 41 52 54 00 35 23 10 |ISPLAY CHART.5#.|
00001B10: 09 99 22 93 22 3A 8D 32 34 36 30 3A 52 47 B2 43 |..".":.2460:RG.C|
00001B20: 54 AD 31 37 3A 81 20 49 B2 32 20 A4 20 4E 43 3A |T.17:. I.2 . NC:|
00001B30: 8D 32 35 39 30 00 55 23 1A 09 8B 20 B5 28 28 49 |.2590.U#... .((I|
00001B40: AB 31 29 AD 36 29 B3 B1 28 49 AB 31 29 AD 36 20 |.1).6)..(I.1).6 |
00001B50: A7 32 33 37 30 00 86 23 24 09 58 B2 35 3A 59 B2 |.2370..#$.X.5:Y.|
00001B60: 32 33 3A 8D 33 33 32 30 3A 99 22 50 52 45 53 53 |23:.3320:."PRESS|
00001B70: 20 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E | .RETURN. TO CON|
00001B80: 54 49 4E 55 45 22 00 A1 23 2E 09 A1 20 4B 24 3A |TINUE"..#... K$:|
00001B90: 8B 20 4B 24 B3 B1 C7 28 31 33 29 20 A7 32 33 35 |. K$...(13) .235|
00001BA0: 30 00 AA 23 38 09 99 22 93 22 00 DA 23 42 09 82 |0..#8.."."..#B..|
00001BB0: 3A 58 B2 39 3A 59 B2 32 33 3A 8D 33 33 32 30 3A |:X.9:Y.23:.3320:|
00001BC0: 99 22 90 50 52 45 53 53 20 12 52 45 54 55 52 4E |.".PRESS .RETURN|
00001BD0: 92 20 54 4F 20 45 58 49 54 22 00 F5 23 4C 09 A1 |. TO EXIT"..#L..|
00001BE0: 20 4B 24 3A 8B 20 4B 24 B3 B1 C7 28 31 33 29 20 | K$:. K$...(13) |
00001BF0: A7 32 33 38 30 00 FB 23 56 09 8E 00 1C 24 60 09 |.2380..#V....$`.|
00001C00: 8F 20 50 52 49 4E 54 20 43 41 54 45 47 4F 52 49 |. PRINT CATEGORI|
00001C10: 45 53 20 41 4E 44 20 49 54 45 4D 53 00 3D 24 6A |ES AND ITEMS.=$j|
00001C20: 09 8D 32 34 36 30 3A 81 20 49 B2 31 20 A4 20 4E |..2460:. I.1 . N|
00001C30: 43 3A 8D 32 36 37 30 3A 82 3A 99 3A 99 00 59 24 |C:.2670:.:.:..Y$|
00001C40: 74 09 8F 20 50 52 49 4E 54 20 4D 4F 4E 54 48 4C |t.. PRINT MONTHL|
00001C50: 59 20 53 55 4D 4D 41 52 59 00 6B 24 7E 09 8D 32 |Y SUMMARY.k$~..2|
00001C60: 34 36 30 3A 8D 32 35 33 30 3A 8E 00 7D 24 88 09 |460:.2530:..}$..|
00001C70: 8F 20 50 52 49 4E 54 20 43 48 41 52 54 00 A5 24 |. PRINT CHART..$|
00001C80: 92 09 8D 32 34 36 30 3A 52 47 B2 43 54 AD 35 38 |...2460:RG.CT.58|
00001C90: 3A 81 20 49 B2 32 20 A4 20 4E 43 3A 8D 32 35 39 |:. I.2 . NC:.259|
00001CA0: 30 3A 82 3A 8E 00 CB 24 9C 09 8F 20 54 4F 54 41 |0:.:...$... TOTA|
00001CB0: 4C 20 45 58 50 45 4E 53 45 53 20 41 4E 44 20 46 |L EXPENSES AND F|
00001CC0: 49 4E 44 20 48 49 47 48 45 53 54 00 05 25 A6 09 |IND HIGHEST..%..|
00001CD0: 81 20 49 B2 31 20 A4 20 4D 43 3A 45 28 49 29 B2 |. I.1 . MC:E(I).|
00001CE0: 30 3A 82 3A 81 20 49 B2 31 20 A4 20 4E 52 3A 54 |0:.:. I.1 . NR:T|
00001CF0: 58 B2 C6 28 CA 28 41 24 28 49 29 2C 32 2C 31 29 |X..(.(A$(I),2,1)|
00001D00: 29 AB 32 30 30 00 41 25 B0 09 52 B2 C6 28 41 24 |).200.A%..R..(A$|
00001D10: 28 49 29 29 AB 31 30 30 3A 45 28 52 29 B2 45 28 |(I)).100:E(R).E(|
00001D20: 52 29 AA C5 28 CA 28 41 24 28 49 29 2C 54 58 AA |R)..(.(A$(I),TX.|
00001D30: 31 2C C3 28 41 24 28 49 29 29 AB 54 58 29 29 3A |1,.(A$(I)).TX)):|
00001D40: 82 00 82 25 BA 09 42 54 B2 30 3A 45 54 B2 30 3A |...%..BT.0:ET.0:|
00001D50: 81 20 49 B2 32 20 A4 20 4D 43 3A 42 54 B2 42 54 |. I.2 . MC:BT.BT|
00001D60: AA 42 28 49 29 3A 45 54 B2 45 54 AA 45 28 49 29 |.B(I):ET.ET.E(I)|
00001D70: 3A 82 3A 43 54 B2 30 3A 81 20 49 B2 32 20 A4 20 |:.:CT.0:. I.2 . |
00001D80: 4E 43 00 9A 25 C4 09 8B 20 43 54 B3 42 28 49 29 |NC..%... CT.B(I)|
00001D90: 20 A7 20 43 54 B2 42 28 49 29 00 B2 25 CE 09 8B | . CT.B(I)..%...|
00001DA0: 20 43 54 B3 45 28 49 29 20 A7 20 43 54 B2 45 28 | CT.E(I) . CT.E(|
00001DB0: 49 29 00 BA 25 D8 09 82 3A 8E 00 D7 25 E2 09 8F |I)..%...:...%...|
00001DC0: 20 4F 55 54 50 55 54 20 4D 4F 4E 54 48 4C 59 20 | OUTPUT MONTHLY |
00001DD0: 53 55 4D 4D 41 52 59 00 F8 25 EC 09 99 22 4D 4F |SUMMARY..%..."MO|
00001DE0: 4E 54 48 4C 59 20 42 55 44 47 45 54 20 53 55 4D |NTHLY BUDGET SUM|
00001DF0: 4D 41 52 59 3A 22 3A 99 00 34 26 F6 09 99 22 42 |MARY:":..4&..."B|
00001E00: 55 44 47 45 54 20 49 4E 43 4F 4D 45 3A 20 20 20 |UDGET INCOME: |
00001E10: 20 20 22 42 28 31 29 3A 99 22 41 43 54 55 41 4C | "B(1):."ACTUAL|
00001E20: 20 49 4E 43 4F 4D 45 3A 20 20 20 20 20 22 45 28 | INCOME: "E(|
00001E30: 31 29 3A 99 00 6F 26 00 0A 99 22 41 43 54 55 41 |1):..o&..."ACTUA|
00001E40: 4C 20 45 58 50 45 4E 53 45 53 3A 20 20 20 22 45 |L EXPENSES: "E|
00001E50: 54 3A 99 22 43 41 53 48 20 42 41 4C 41 4E 43 45 |T:."CASH BALANCE|
00001E60: 3A 20 20 20 20 20 20 22 45 28 31 29 AB 45 54 00 |: "E(1).ET.|
00001E70: A2 26 0A 0A 99 3A 99 22 42 55 44 47 45 54 45 44 |.&...:."BUDGETED|
00001E80: 20 45 58 50 45 4E 53 45 53 3A 20 22 42 54 3A 99 | EXPENSES: "BT:.|
00001E90: 3A 99 22 44 45 56 49 41 54 49 4F 4E 20 46 52 4F |:."DEVIATION FRO|
00001EA0: 4D 22 00 C4 26 14 0A 99 22 42 55 44 47 45 54 45 |M"..&..."BUDGETE|
00001EB0: 44 20 45 58 50 45 4E 53 45 53 3A 20 22 42 54 AB |D EXPENSES: "BT.|
00001EC0: 45 54 3A 8E 00 E4 26 1E 0A 8F 20 4F 55 54 50 55 |ET:...&... OUTPU|
00001ED0: 54 20 43 41 54 45 47 4F 52 59 20 46 4F 52 20 43 |T CATEGORY FOR C|
00001EE0: 48 41 52 54 00 12 27 28 0A 99 4E 24 28 49 29 3B |HART..'(..N$(I);|
00001EF0: 3A 81 20 4A B2 31 20 A4 20 32 31 AB C3 28 4E 24 |:. J.1 . 21..(N$|
00001F00: 28 49 29 29 3A 99 22 20 22 3B 3A 82 3A 99 22 3A |(I)):." ";:.:.":|
00001F10: 22 3B 00 25 27 32 0A 8B 20 42 28 49 29 B2 30 20 |";.%'2.. B(I).0 |
00001F20: A7 32 36 33 30 00 60 27 3C 0A 81 20 4A B2 31 20 |.2630.`'<.. J.1 |
00001F30: A4 20 B5 28 42 28 49 29 AD 52 47 29 3A 99 22 42 |. .(B(I).RG):."B|
00001F40: 22 3B 3A 82 3A 45 24 B2 22 45 22 3A 8B 20 45 28 |";:.:E$."E":. E(|
00001F50: 49 29 B1 42 28 49 29 20 A7 20 45 24 B2 22 2A 22 |I).B(I) . E$."*"|
00001F60: 00 81 27 46 0A 99 3A 99 22 20 20 20 20 20 20 20 |..'F..:." |
00001F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 22 | :"|
00001F80: 3B 00 94 27 50 0A 8B 20 45 28 49 29 B2 30 20 A7 |;..'P.. E(I).0 .|
00001F90: 32 36 36 30 00 B2 27 5A 0A 81 20 4A B2 31 20 A4 |2660..'Z.. J.1 .|
00001FA0: 20 B5 28 45 28 49 29 AD 52 47 29 3A 99 45 24 3B | .(E(I).RG):.E$;|
00001FB0: 3A 82 00 D4 27 64 0A 99 3A 99 22 20 20 20 20 20 |:...'d..:." |
00001FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FD0: 3A 22 3A 8E 00 F4 27 6E 0A 8F 20 4F 55 54 50 55 |:":...'n.. OUTPU|
00001FE0: 54 20 43 41 54 45 47 4F 52 59 20 41 4E 44 20 49 |T CATEGORY AND I|
00001FF0: 54 45 4D 53 00 24 28 78 0A 99 4E 24 28 49 29 3B |TEMS.$(x..N$(I);|
00002000: 3A 81 20 4A B2 31 20 A4 20 32 31 AB C3 28 4E 24 |:. J.1 . 21..(N$|
00002010: 28 49 29 29 3A 99 22 20 22 3B 3A 82 3A 99 42 28 |(I)):." ";:.:.B(|
00002020: 49 29 3A 99 00 4B 28 82 0A 81 20 4A B2 31 20 A4 |I):..K(... J.1 .|
00002030: 20 4E 52 3A 8B 20 C6 28 41 24 28 4A 29 29 AB 31 | NR:. .(A$(J)).1|
00002040: 30 30 B3 B1 49 20 A7 32 37 32 30 00 7C 28 8C 0A |00..I .2720.|(..|
00002050: 54 58 B2 C6 28 CA 28 41 24 28 4A 29 2C 32 2C 31 |TX..(.(A$(J),2,1|
00002060: 29 29 AB 32 30 30 3A 99 22 20 20 22 CA 28 41 24 |)).200:." ".(A$|
00002070: 28 4A 29 2C 33 2C 54 58 AB 32 29 3B 00 B1 28 96 |(J),3,TX.2);..(.|
00002080: 0A 81 20 4B B2 31 20 A4 20 32 35 AB 54 58 3A 99 |.. K.1 . 25.TX:.|
00002090: 22 20 22 3B 3A 82 3A 99 CA 28 41 24 28 4A 29 2C |" ";:.:..(A$(J),|
000020A0: 54 58 AA 31 2C C3 28 41 24 28 4A 29 29 AB 54 58 |TX.1,.(A$(J)).TX|
000020B0: 29 00 DB 28 A0 0A 82 3A 99 22 20 20 20 20 20 20 |)..(...:." |
000020C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020D0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 02 29 AA 0A | ---------"..)..|
000020E0: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000020F0: 20 20 20 20 20 20 20 20 20 20 20 22 45 28 49 29 | "E(I)|
00002100: 3A 8E 00 20 29 B4 0A 8F 20 4C 49 53 54 20 43 41 |:.. )... LIST CA|
00002110: 54 45 47 4F 52 49 45 53 20 52 4F 55 54 49 4E 45 |TEGORIES ROUTINE|
00002120: 00 61 29 BE 0A 43 54 B2 30 3A 97 20 31 39 38 2C |.a)..CT.0:. 198,|
00002130: 30 3A 99 22 93 11 20 20 20 20 20 12 43 41 54 45 |0:.".. .CATE|
00002140: 47 4F 52 59 92 20 20 20 20 20 20 20 20 20 20 20 |GORY. |
00002150: 20 20 20 20 20 20 A0 12 41 4D 4F 55 4E 54 92 11 | ..AMOUNT..|
00002160: 22 00 70 29 C8 0A 81 20 49 B2 31 20 A4 20 4E 43 |".p)... I.1 . NC|
00002170: 00 A5 29 D2 0A 99 22 20 22 C8 28 22 9D 9D 22 2C |..)..." ".("..",|
00002180: 49 AD 31 30 29 49 22 9D 29 20 22 4E 24 28 49 29 |I.10)I".) "N$(I)|
00002190: A3 33 31 29 42 28 49 29 3A 8B 20 49 B2 4E 43 20 |.31)B(I):. I.NC |
000021A0: A7 32 38 36 30 00 BF 29 DC 0A 43 54 B2 43 54 AA |.2860..)..CT.CT.|
000021B0: 31 3A 8B 20 43 54 B3 B1 38 20 A7 32 38 36 30 00 |1:. CT..8 .2860.|
000021C0: F7 29 E6 0A 58 B2 30 3A 59 B2 32 33 3A 8D 33 33 |.)..X.0:Y.23:.33|
000021D0: 32 30 3A 99 22 20 20 20 20 20 50 52 45 53 53 20 |20:." PRESS |
000021E0: 54 48 45 20 53 50 41 43 45 20 42 41 52 20 46 4F |THE SPACE BAR FO|
000021F0: 52 20 4D 4F 52 45 22 00 21 2A F0 0A 99 22 20 20 |R MORE".!*..." |
00002200: 20 20 20 20 20 50 52 45 53 53 20 12 52 45 54 55 | PRESS .RETU|
00002210: 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |RN. TO CONTINUE"|
00002220: 3B 00 46 2A FA 0A A1 20 4B 24 3A 8B 20 4B 24 B3 |;.F*... K$:. K$.|
00002230: B1 C7 28 31 33 29 20 AF 20 4B 24 B3 B1 22 20 22 |..(13) . K$.." "|
00002240: 20 A7 32 38 31 30 00 75 2A 04 0B 99 22 91 91 22 | .2810.u*...".."|
00002250: 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |:." |
00002260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002270: 20 20 20 20 22 00 9F 2A 0E 0B 99 22 20 20 20 20 | "..*..." |
00002280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002290: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 | ";.|
000022A0: BB 2A 18 0B 8B 20 4B 24 B2 C7 28 31 33 29 20 A7 |.*... K$..(13) .|
000022B0: 20 49 B2 4E 43 3A 89 32 38 36 30 00 EF 2A 22 0B | I.NC:.2860..*".|
000022C0: 99 22 93 11 20 20 20 20 20 12 43 41 54 45 47 4F |.".. .CATEGO|
000022D0: 52 59 92 20 20 20 20 20 20 20 20 20 20 20 20 20 |RY. |
000022E0: 20 20 20 20 A0 12 41 4D 4F 55 4E 54 92 11 22 00 | ..AMOUNT..".|
000022F0: 06 2B 2C 0B 82 3A 58 B2 30 3A 59 B2 31 34 3A 8D |.+,..:X.0:Y.14:.|
00002300: 33 33 32 30 3A 8E 00 23 2B 36 0B 8F 20 49 4E 50 |3320:..#+6.. INP|
00002310: 55 54 20 41 20 4E 55 4D 45 52 49 43 20 41 4D 4F |UT A NUMERIC AMO|
00002320: 55 4E 54 00 54 2B 40 0B 4C B2 36 3A 42 B2 34 38 |UNT.T+@.L.6:B.48|
00002330: 3A 54 B2 35 37 3A 8D 33 30 38 30 3A 56 B2 C5 28 |:T.57:.3080:V..(|
00002340: 53 24 29 3A 8B 20 53 24 B2 22 22 20 A7 20 53 24 |S$):. S$."" . S$|
00002350: B2 22 30 22 00 5A 2B 4A 0B 8E 00 6B 2B 54 0B 8F |."0".Z+J...k+T..|
00002360: 20 49 4E 50 55 54 20 54 45 58 54 00 86 2B 5E 0B | INPUT TEXT..+^.|
00002370: 4C B2 32 30 3A 42 B2 33 32 3A 54 B2 39 30 3A 8D |L.20:B.32:T.90:.|
00002380: 33 30 38 30 3A 8E 00 9A 2B 68 0B 8F 20 45 52 52 |3080:...+h.. ERR|
00002390: 4F 52 20 4D 45 53 53 41 47 45 00 C8 2B 72 0B 99 |OR MESSAGE..+r..|
000023A0: 22 93 20 20 59 4F 55 20 4E 45 45 44 20 54 4F 20 |". YOU NEED TO |
000023B0: 43 52 45 41 54 45 20 41 20 42 55 44 47 45 54 20 |CREATE A BUDGET |
000023C0: 42 45 46 4F 52 45 11 22 00 EC 2B 7C 0B 99 22 20 |BEFORE."..+|.." |
000023D0: 20 20 20 20 20 20 20 43 48 4F 4F 53 49 4E 47 20 | CHOOSING |
000023E0: 54 48 49 53 20 4F 50 54 49 4F 4E 22 00 01 2C 86 |THIS OPTION"..,.|
000023F0: 0B 8F 20 42 45 45 50 20 41 4E 44 20 50 41 55 53 |.. BEEP AND PAUS|
00002400: 45 00 37 2C 90 0B 97 20 53 44 AA 34 2C 36 35 3A |E.7,... SD.4,65:|
00002410: 81 20 49 B2 31 20 A4 20 32 35 30 3A 82 3A 97 20 |. I.1 . 250:.:. |
00002420: 53 44 AA 34 2C 30 3A 81 20 49 B2 31 20 A4 20 32 |SD.4,0:. I.1 . 2|
00002430: 30 30 30 3A 82 3A 8E 00 4A 2C 9A 0B 8F 20 45 58 |000:.:..J,... EX|
00002440: 49 54 20 50 52 4F 47 52 41 4D 00 79 2C A4 0B 97 |IT PROGRAM.y,...|
00002450: 20 31 39 38 2C 30 3A 99 22 93 11 20 20 20 20 20 | 198,0:.".. |
00002460: 20 20 41 52 45 20 59 4F 55 20 53 55 52 45 20 54 | ARE YOU SURE T|
00002470: 48 41 54 20 59 4F 55 11 22 00 A3 2C AE 0B 99 22 |HAT YOU."..,..."|
00002480: 20 20 20 57 49 53 48 20 54 4F 20 45 58 49 54 20 | WISH TO EXIT |
00002490: 54 48 45 20 50 52 4F 47 52 41 4D 20 28 59 2F 4E |THE PROGRAM (Y/N|
000024A0: 29 3F 22 00 C6 2C B8 0B A1 20 4B 24 3A 8B 20 4B |)?"..,... K$:. K|
000024B0: 24 B3 B1 22 59 22 20 AF 20 4B 24 B3 B1 22 4E 22 |$.."Y" . K$.."N"|
000024C0: 20 A7 33 30 30 30 00 D8 2C C2 0B 8B 20 4B 24 B2 | .3000..,... K$.|
000024D0: 22 4E 22 20 A7 33 32 30 00 F1 2C CC 0B 99 22 93 |"N" .320..,...".|
000024E0: 42 59 45 2E 2E 2E 22 3A 97 20 36 35 37 2C 30 3A |BYE...":. 657,0:|
000024F0: 80 00 17 2D D6 0B 8F 20 50 52 49 4E 54 27 45 58 |...-... PRINT'EX|
00002500: 49 54 27 20 41 4E 44 20 47 45 54 20 4D 45 4E 55 |IT' AND GET MENU|
00002510: 20 4F 50 54 49 4F 4E 00 4A 2D E0 0B 99 A3 37 29 | OPTION.J-....7)|
00002520: 58 22 9D 29 20 45 58 49 54 22 3A 42 B2 34 39 3A |X".) EXIT":B.49:|
00002530: 54 B2 42 AA 58 AB 31 3A 4C B2 31 3A 58 B2 38 3A |T.B.X.1:L.1:X.8:|
00002540: 59 B2 32 33 3A 8D 33 33 32 30 00 5F 2D EA 0B 99 |Y.23:.3320._-...|
00002550: 22 43 48 4F 4F 53 45 20 4F 4E 45 3A 20 22 3B 00 |"CHOOSE ONE: ";.|
00002560: 7F 2D F4 0B 8D 33 30 38 30 3A 8B 20 53 24 B2 22 |.-...3080:. S$."|
00002570: 22 20 A7 33 30 36 30 3A 4B B2 C5 28 53 24 29 00 |" .3060:K..(S$).|
00002580: 8D 2D FE 0B 4B B2 C5 28 53 24 29 3A 8E 00 A1 2D |.-..K..(S$):...-|
00002590: 08 0C 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E |... INPUT ROUTIN|
000025A0: 45 00 D8 2D 12 0C 58 B2 30 3A 53 24 B2 22 22 3A |E..-..X.0:S$."":|
000025B0: 53 B2 C2 28 32 31 34 29 AC 34 30 AA C2 28 32 31 |S..(214).40..(21|
000025C0: 31 29 AA 31 30 32 34 3A 97 20 32 31 33 2C C2 28 |1).1024:. 213,.(|
000025D0: 32 31 31 29 AA 4C AA 31 00 EF 2D 1C 0C 8D 33 32 |211).L.1..-...32|
000025E0: 39 30 3A 8B 20 4B B2 31 33 20 A7 33 32 37 30 00 |90:. K.13 .3270.|
000025F0: FF 2D 26 0C 8D 33 31 32 30 3A 89 33 31 30 30 00 |.-&..3120:.3100.|
00002600: 0F 2E 30 0C 8B 20 58 B2 30 20 A7 33 31 35 30 00 |..0.. X.0 .3150.|
00002610: 2D 2E 3A 0C 8B 20 4B B2 32 30 20 A7 20 4B 24 B2 |-.:.. K.20 . K$.|
00002620: 22 22 3A 49 B2 AB 31 3A 89 33 32 33 30 00 46 2E |"":I..1:.3230.F.|
00002630: 44 0C 8B 20 4B B2 31 35 37 20 A7 20 49 B2 AB 31 |D.. K.157 . I..1|
00002640: 3A 89 33 32 36 30 00 56 2E 4E 0C 8B 20 58 B2 4C |:.3260.V.N.. X.L|
00002650: 20 A7 33 32 38 30 00 6A 2E 58 0C 8B 20 58 B2 C3 | .3280.j.X.. X..|
00002660: 28 53 24 29 20 A7 33 31 39 30 00 81 2E 62 0C 8B |(S$) .3190...b..|
00002670: 20 4B B2 32 39 20 A7 20 49 B2 31 3A 89 33 32 36 | K.29 . I.1:.326|
00002680: 30 00 B2 2E 6C 0C 8B 20 4B B2 31 34 38 20 AF 20 |0...l.. K.148 . |
00002690: C3 28 53 24 29 B3 4C 20 A7 20 4B 24 B2 22 20 22 |.(S$).L . K$." "|
000026A0: AA CA 28 53 24 2C 58 AA 31 2C 31 29 3A 89 33 32 |..(S$,X.1,1):.32|
000026B0: 32 30 00 CF 2E 76 0C 8B 20 4B B2 33 34 20 B0 20 |20...v.. K.34 . |
000026C0: 4B B3 42 20 B0 20 4B B1 54 20 A7 33 32 38 30 00 |K.B . K.T .3280.|
000026D0: 0A 2F 80 0C 8B 20 4B B2 33 34 20 B0 20 4B B2 33 |./... K.34 . K.3|
000026E0: 36 20 B0 20 4B B2 34 32 20 B0 20 4B B2 34 34 20 |6 . K.42 . K.44 |
000026F0: B0 20 4B B2 35 38 20 B0 20 4B B2 36 33 20 B0 20 |. K.58 . K.63 . |
00002700: 4B B2 36 34 20 A7 33 32 38 30 00 12 2F 8A 0C 49 |K.64 .3280../..I|
00002710: B2 30 00 1C 2F 94 0C 58 B2 58 AA 31 00 3A 2F 9E |.0../..X.X.1.:/.|
00002720: 0C 53 24 B2 C8 28 53 24 2C 58 AB 31 29 AA 4B 24 |.S$..(S$,X.1).K$|
00002730: AA CA 28 53 24 2C 58 AA 31 29 00 51 2F A8 0C 8B |..(S$,X.1).Q/...|
00002740: 20 4B 24 B2 22 22 20 A7 20 4B 24 B2 C7 28 32 30 | K$."" . K$..(20|
00002750: 29 00 70 2F B2 0C 8B 20 C3 28 4B 24 29 B2 32 20 |).p/... .(K$).2 |
00002760: A7 20 4B 24 B2 C7 28 31 34 38 29 3A 49 B2 AB 31 |. K$..(148):I..1|
00002770: 00 82 2F BC 0C 99 20 4B 24 3B 3A 97 20 32 31 36 |../... K$;:. 216|
00002780: 2C 30 00 A7 2F C6 0C 97 20 32 30 34 2C 31 3A 97 |,0../... 204,1:.|
00002790: 20 53 AA 58 2C C2 28 53 AA 58 29 20 AF 20 31 32 | S.X,.(S.X) . 12|
000027A0: 37 3A 58 B2 58 AA 49 00 AD 2F D0 0C 8E 00 C7 2F |7:X.X.I../...../|
000027B0: DA 0C 8F 20 49 4E 50 55 54 20 4F 4E 45 20 43 48 |... INPUT ONE CH|
000027C0: 41 52 41 43 54 45 52 00 EE 2F E4 0C 97 20 32 30 |ARACTER../... 20|
000027D0: 34 2C 30 3A 97 20 32 30 37 2C 30 3A A1 20 4B 24 |4,0:. 207,0:. K$|
000027E0: 3A 8B 20 4B 24 B2 22 22 20 A7 33 33 30 30 00 FC |:. K$."" .3300..|
000027F0: 2F EE 0C 4B B2 C6 28 4B 24 29 3A 8E 00 16 30 F8 |/..K..(K$):...0.|
00002800: 0C 8F 20 50 4C 41 43 45 20 43 55 52 53 4F 52 20 |.. PLACE CURSOR |
00002810: 41 54 20 58 2C 59 00 3C 30 02 0D 97 20 37 38 31 |AT X,Y.<0... 781|
00002820: 2C 59 3A 97 20 37 38 32 2C 58 3A 97 20 37 38 33 |,Y:. 782,X:. 783|
00002830: 2C 30 3A 9E 20 36 35 35 32 30 3A 8E 00 5B 30 0C |,0:. 65520:..[0.|
00002840: 0D 81 5A 5A B2 56 A4 4E 52 3A 8B 41 24 28 5A 5A |..ZZ.V.NR:.A$(ZZ|
00002850: AA 31 29 B2 22 22 A7 33 33 36 30 00 7B 30 16 0D |.1)."".3360.{0..|
00002860: 41 24 28 5A 5A 29 B2 41 24 28 5A 5A AA 31 29 3A |A$(ZZ).A$(ZZ.1):|
00002870: 82 3A 41 24 28 4E 52 29 B2 22 22 00 89 30 20 0D |.:A$(NR).""..0 .|
00002880: 4E 52 B2 4E 52 AB 31 3A 8E 00 AE 30 2A 0D 81 44 |NR.NR.1:...0*..D|
00002890: 43 B2 43 A4 4E 43 3A 8B 44 43 B3 B1 4E 43 A7 4E |C.C.NC:.DC..NC.N|
000028A0: 24 28 44 43 29 B2 4E 24 28 44 43 AA 31 29 00 D6 |$(DC).N$(DC.1)..|
000028B0: 30 34 0D 82 3A 4E 24 28 4E 43 29 B2 22 22 3A 42 |04..:N$(NC)."":B|
000028C0: 28 4E 43 29 B2 30 3A 4E 43 B2 4E 43 AB 31 3A 8B |(NC).0:NC.NC.1:.|
000028D0: 4E 52 B2 30 A7 8E 00 DF 30 3E 0D 44 49 B2 31 00 |NR.0....0>.DI.1.|
000028E0: FA 30 48 0D 8B C6 28 41 24 28 44 49 29 29 AB 31 |.0H...(A$(DI)).1|
000028F0: 30 30 B3 B1 43 A7 33 34 33 30 00 17 31 52 0D 56 |00..C.3430..1R.V|
00002900: B2 44 49 3A 8D 33 33 34 30 3A 8B 4E 52 B1 B2 44 |.DI:.3340:.NR..D|
00002910: 49 A7 89 33 34 30 30 00 1D 31 5C 0D 8E 00 37 31 |I..3400..1\...71|
00002920: 66 0D 8B C6 28 41 24 28 44 49 29 29 AB 31 30 30 |f...(A$(DI)).100|
00002930: B3 43 A7 33 34 35 30 00 67 31 70 0D 41 24 28 44 |.C.3450.g1p.A$(D|
00002940: 49 29 B2 C7 28 C6 28 41 24 28 44 49 29 29 AB 31 |I)..(.(A$(DI)).1|
00002950: 29 AA C9 28 41 24 28 44 49 29 2C C3 28 41 24 28 |)..(A$(DI),.(A$(|
00002960: 44 49 29 29 AB 31 29 00 7C 31 7A 0D 44 49 B2 44 |DI)).1).|1z.DI.D|
00002970: 49 AA 31 3A 8B 44 49 B1 4E 52 A7 8E 00 86 31 84 |I.1:.DI.NR....1.|
00002980: 0D 89 33 34 30 30 00 00 00 |..3400... |
....D.. *************.1.N.. **AIRCRAFT B
UDGET****.E.X.. *************.Z.... COPY
RIGHT 1984.T.... ALL RIGHTS RESERVED....
.. BY BRUCE H.MALLY... .. MODFIED IN....
.. 1987...... VERSION 3.0.0.L.... C-64 B
ASIC...H.. MPS 801 PRINTER...R.. DISPLAY
TITLE SCREEN.4.... 53281,15:. 53280,15:
. 646,0:. 53272,21:. 657,128.N...T$. "AI
RCRAFT BUDGET".W...."...........
** "T$" **"......"............
PRESS .RETURN. TO CONTINUE":X.15:Y.10:S
.1.Z.... K$:.3320:S..(S.1):. 199,S......
I.1 . 50:.:.T$:. K$."" .260...... F(K$)
..13 .260.,.".. INITIALIZE VARIABLES.X.,
.MD.100:MC.16:. A$(MD),B(MC),E(MC),N$(MC
):N$(1)."$$ INCOME $$":NC.1:NR.0...6.SD.
54272:. SD,48:. SD.1,4:. SD.3,140:. SD.6
,240:. SD.24,15.G.@.. MAIN MENU...J.."."
.15)T$:..15)"MAIN MENU......"...T...8)"1
) WORK WITH BUDGET.":..8)"2) REPORTS.".F
.^...8)"3) BAR CHART.":..8)"4) FILES.".O
.H.X.5:.3030:. K .370,510,2040,620,2970.
..R.. WORK WITH BUDGET MENU...|..".".15)
T$:..9)"WORK WITH BUDGET MENU......"....
...8)"1) BUDGET CATEGORIES.":..8)"2) INC
OME AND EXPENSES.".....X.3:.3030:. K .41
0,460,320.6.... BUDGET CATEGORIES MENU.H
....".".15)T$:..8)"BUDGET CATEGORIES MEN
U......".......8)"1) INITIALIZE BUDGET."
:..8)"2) ADD A CATEGORY.".A.....8)"3) CH
ANGE A CATEGORY."...B.X.4:.3030:. K .660
,800,870,370:.410...L.. INCOME AND EXPEN
SES MENU.<.V..".".15)T$:..8)"INCOME AND
EXPENSES MENU......".N.....8)"1) INITIAL
IZE ITEMS.":..8)"2) ADD ITEM.".......8)"
3) CHANGE ITEM.".....X.4:.3030:. K .730,
1080,1160,370:.460.E.... REPORTS MENU...
... NC.1 . NR.0 . .2060......".".15)T$:.
.13)"REPORTS MENU......".I.....8)"1) ALL
CATEGORIES AND ITEMS.":..8)"2) MONTHLY
SUMMARY.".C.&...8)"3) PRINT CHART."...0.
X.4:.3030:V.K:. V.4 .320...:..".".12)"CH
OOSE OUTPUT......".I.D...8)"1) SCREEN.":
..8)"2) PRINTER."...N.X.3:.3030:. K.3 .3
20...X.. K.1 . . V .2210,2260,2310:.320.
2.B..4,4:.4:. V .2400,2420,2440:.4: 4:.3
20.C.L.. FILES MENU.J.V..".".15)T$:..14)
"FILES MENU......".......8)"1) LOAD DATA
.":..8)"2) SAVE DATA.".....X.3:.3030:. K
.1550,1730:.320.P.... INITIALIZE BUDGET
...... 198,0:.". ARE YOU SURE?? TH
IS WILL."......" ERASE ALL THE BUDGET
DATA (Y/N)...".P.... K$:. K$.."Y" . K$..
"N" .690.A.... K$."N" . ..W.F.."INITIALI
ZING.";...P.. I.2 . MC:.".";:N$(I)."":B(
I).0:E(I).0:.:B(1).0:NC.1:..J.Z.. INITIA
LIZE ITEMS...... 198,0:.". ARE YOU SU
RE?? THIS WILL ERASE.".,...." ALL T
HE ITEMS IN MEMORY (Y/N)...".N.... K$:.
K$.."Y" . K$.."N" .760._.... K$."N" . ..
U...."INITIALIZING.";...... I.1 . MD:.".
";:A$(I)."":.:NR.0:.... .. ADD A CATEGOR
Y ROUTINE...*.. NC.MC . .". ALL CAT
EGORIES ARE FULL":.2950...4.. NC..1 . B(
1)..0 .840.E.>.."............... ENTER B
UDGET INCOME: ";:.2870:B(1).V.U.H..2740:
NC.NC.1:C.NC:.940:. S$."" . NC.NC.1:....
R.. K$."Y" .800...\.....F.. CHANGE CATEG
ORY ROUTINE.G.P.. NC.1 . B(1).0 . .2920.
..Z..2740:.1030:. S$."" . ....... C.0 .8
90......940:. S$."" . ....... K$."Y" .89
0.......>.... INPUT HEADING AND AMOUNT.Q
.... C..1 . ."ENTER CATEGORY HEADING":."
>";:.2900...... S$."" . ....J..S$."/D/".
.3370:S$."":....T.. C..1 . N$(C).S$.....
.:."ENTER BUDGET AMOUNT":.">";:.2870:B(C
).V......:."ANOTHER CATEGORY (Y/N)?".'..
.. K$:. K$.."Y" . K$.."N" .1010.-.....I.
... INPUT CATEGORY NUMBER......" ENTER C
ATEGORY NUMBER: ";:L.2:B.48:T.57:.3080:.
...... S$."" . ....$.C.E(S$):. C.0 . C..
NC . ..Z....:."** CATEGORY NOT FOUND **"
:C.0:.2950...8.. ADD ITEMS.(.B.. NR.MD .
.".THE FILE IS FULL. THERE ARE"MD"ITEM
S":.2950.J.L..NC.1.B(1).0 . .". YOU NEE
D TO ENTER CATEGORIES FIRST":.2950...V..
2740:.1030:. S$."" . ....`.. C.0 .1110.B
.J.NR.NR.1:ZZ.NR:.1470:. S$."" . NR.NR.1
:..U.T.. K$."Y" .1090...~........ CHANGE
ITEMS.0....NC.1.B(1).0 . .". YOU NEED
TO ENTER CATEGORIES FIRST":.2950.N.... N
R.0 . .". YOU HAVE NO ITEMS IN MEMORY TO
CHANGE":.2950......2740:.1030:. S$."" .
....... C.0 .1190.F...CT.0:. 198,0:."..
CATEGORY:"C".) "N$(C)...D..". .ITEM
. .AMOUNT..". .N..
I.1 . NR:. F(A$(I)).100..C .1260.C.X.CT.
CT.1:TX.F(J(A$(I),2,1)).200.~....I".) "J
(A$(I),3,TX.2).31)E(J(A$(I),TX.1,C(A$(I)
).TX))...... ((CT.5)...(CT.5)) . (I.NR)
. (CT.0) .1350.....X.0:Y.23:.3320:."
PRESS THE SPACE BAR FOR MORE"......"
PRESS .RETURN. TO CONTINUE";.5.... K
$:. K$..G(13) . K$.." " .1290.D...."..":
." "....
.." ";..
.(.. K$.G(13) . I.NR:.1350.I.2..".. CATE
GORY:"C".) "N$(C)...<..". .ITEM.
.AMOUNT.."...F..:. CT.
.0 .1370.M.P..".. THERE ARE NO ITEMS IN
THIS CATEGORY ":.2950:.1160.`.Z.X.0:Y.
14:.3320...D.."ENTER ITEM NUMBER: ";:L.3
:B.48:T.57:.3080:....N.. S$."" .1160...X
.V.E(S$):. V.MD .1420.X.... F(A$(V)).100
.C .1430......"ITEM IS NOT IN THIS CATEG
ORY":.2950:.1160.#...ZZ.V:.1470:. S$.""
. ..9. ..S$."/D/"..3340:..L.... K$."Y" .
1160.R.....S.... INPUT ITEM DESC AND AMO
UNT...H.."ENTER ITEM DESCRIPTION":.">";:
.2900:. S$."" . ..E.R..S$."/D/"..3340:S$
."":......A$(ZZ).S$:.:."ENTER ITEM AMOUN
T":.">";:.2870.)...A$(ZZ).G(C.100).G(C(A
$(ZZ)).202).A$(ZZ).D(V):..?...."ANOTHER
(Y/N)?".B.... K$:. K$.."Y" . K$.."N" .15
30.H.......... LOAD FILE ROUTINE......".
".16)"LOAD FILE.....":.1920:. S$."" . ..
..".. K$."D" . .1,8,8,"0:".F$.",S,R":.20
00:. E .1700...,.. K$."T" . .1,1,0,F$...
6..".LOADING";...@..1,NC.-.J.. I.1 . NC:
.".";.:.T..1,N$(I).F.^..1,B(I).G.H..:. K
$."D" . .2020:. E .1700.~.R..1,NR:. NR.0
.1690...|.. I.1 . NR:.".";. ....1,A$(I)
............ K$."D" . .2020.B... 1.U....
K$."D" . 15.........B.. SAVE FILE ROUT
INE...L.. NC.1 . B(1).0 . .2920.>.V.."."
.16)"SAVE FILE.....":.1920:. S$."" . ..T
.... K$."D" . .1,8,8,"@0:".F$.",S,W":.20
00:. E .1890...... K$."T" . .1,1,1,F$...
...".SAVING";......1,NC...... I.1 . NC:.
".";.I....1,N$(I).U....1,B(I)...&..:. K$
."D" . .2020:. E .1890...0..1,NR:. NR.0
.1880.".:.. I.1 . NR:.".";./.D..1,A$(I).
5.N...J.X.. K$."D" . .2020.Q.B. 1.D.L..
K$."D" . 15.J.V........ INPUT FILE NAME
......"INPUT FILE NAME: ";.J...L.14:B.32
:T.90:.3080:F$.S$.".B":. S$."" . .......
:."..TAPE OR DISK (T/D)....";...... K$:.
K$.."T" . K$.."D" .1960.'.... K$."D" .
."...D".<.... K$."T" . .".T".B.F...X.P..
READ DISK ERROR.F.Z.. 15,8,15......15,E
,E$:. E..0 . . "** "E$" **":.2950.......
..... DISPLAY BAR CHART.I.... NC..1 . NR
..0 .2080......". THERE IS NOT ENOU
GH DATA TO.".' ..." CREATE A CHART
OR A REPORT":.2950:.320.B .. 198,0:.".
THINKING":.2460:RG.CT.19:."
.".. *.. I.2 . NC:."."N$(I).20)".";:. B
(I).0 .2110.. 4.. J.1 . .(B(I).RG):.".";
:..L >..:. E(I).B(I) . .".";.. H...20)".
";:. E(I).0 .2140..!R.. J.1 . .(E(I).RG)
:.".";:..3!\..:.:. I.NC . .((I.1).6)..(I
.1).6 .2180.E!F.X.6:Y.23:.3320:.".PRESS
.RETURN. TO CONTINUE"..!P.. K$:. K$..G(1
3) .2160..!Z.."."..!...:X.9:Y.23:.3320:.
".PRESS .RETURN. TO EXIT".T!... K$:. K$.
.G(13) .2190..!...320.."... DISPLAY CATE
GORIES AND ITEMS./"...".":.2460:. I.1 .
NC:.2670:X.5:Y.23:.3320.Q"..."PRESS .RET
URN. TO CONTINUE".L"... K$:. K$..G(13) .
2240.W"J..".":..."T.. DISPLAY MONTHLY SU
MMARY.."...".":.2460:.2530:X.9:Y.23:.332
0.W"..."PRESS .RETURN. TO EXIT".."... K$
:. K$..G(13) .2290..".....#... DISPLAY C
HART.5#...".":.2460:RG.CT.17:. I.2 . NC:
.2590.U#... .((I.1).6)..(I.1).6 .2370..#
$.X.5:Y.23:.3320:."PRESS .RETURN. TO CON
TINUE"..#... K$:. K$..G(13) .2350..#8.."
.".Z#B..:X.9:Y.23:.3320:.".PRESS .RETURN
. TO EXIT"..#L.. K$:. K$..G(13) .2380..#
V....$`.. PRINT CATEGORIES AND ITEMS.=$J
..2460:. I.1 . NC:.2670:.:.:..Y$T.. PRIN
T MONTHLY SUMMARY.K$~..2460:.2530:..}$..
. PRINT CHART..$...2460:RG.CT.58:. I.2 .
NC:.2590:.:..K$... TOTAL EXPENSES AND F
IND HIGHEST..%... I.1 . MC:E(I).0:.:. I.
1 . NR:TX.F(J(A$(I),2,1)).200.A%..R.F(A$
(I)).100:E(R).E(R).E(J(A$(I),TX.1,C(A$(I
)).TX)):...%..BT.0:ET.0:. I.2 . MC:BT.BT
.B(I):ET.ET.E(I):.:CT.0:. I.2 . NC..%D..
CT.B(I) . CT.B(I)..%N.. CT.E(I) . CT.E(
I)..%X..:..W%... OUTPUT MONTHLY SUMMARY.
.%..."MONTHLY BUDGET SUMMARY:":..4&..."B
UDGET INCOME: "B(1):."ACTUAL INCOME:
"E(1):..O&..."ACTUAL EXPENSES: "E
T:."CASH BALANCE: "E(1).ET..&...:."
BUDGETED EXPENSES: "BT:.:."DEVIATION FRO
M".D&..."BUDGETED EXPENSES: "BT.ET:...&.
.. OUTPUT CATEGORY FOR CHART..'(..N$(I);
:. J.1 . 21.C(N$(I)):." ";:.:.":";.%'2..
B(I).0 .2630.`'<.. J.1 . .(B(I).RG):."B
";:.:E$."E":. E(I).B(I) . E$."*"..'F..:.
" :";..'P.. E(I).0 .
2660..'Z.. J.1 . .(E(I).RG):.E$;:..T'D..
:." :":...'N.. OUTPU
T CATEGORY AND ITEMS.$(X..N$(I);:. J.1 .
21.C(N$(I)):." ";:.:.B(I):..K(... J.1 .
NR:. F(A$(J)).100..I .2720.|(..TX.F(J(A
$(J),2,1)).200:." "J(A$(J),3,TX.2);..(.
.. K.1 . 25.TX:." ";:.:.J(A$(J),TX.1,C(A
$(J)).TX)..( ..:."
---------"..)..."
"E(I):.. )... LIST CATEGORIES ROUTINE
.A)..CT.0:. 198,0:.".. .CATEGORY.
.AMOUNT..".P)H.. I.1 . NC
..)R.." "H("..",I.10)I".) "N$(I).31)B(I)
:. I.NC .2860..)..CT.CT.1:. CT..8 .2860.
.)..X.0:Y.23:.3320:." PRESS THE SPAC
E BAR FOR MORE".!*..." PRESS .RETU
RN. TO CONTINUE";.F*... K$:. K$..G(13) .
K$.." " .2810.U*..."..":."
"..*..."
";..*... K$.G(13) .
I.NC:.2860..*"..".. .CATEGORY.
.AMOUNT.."..+,..:X.0:Y.14:.
3320:..#+6.. INPUT A NUMERIC AMOUNT.T+@.
L.6:B.48:T.57:.3080:V.E(S$):. S$."" . S$
."0".Z+J...K+T.. INPUT TEXT..+^.L.20:B.3
2:T.90:.3080:...+H.. ERROR MESSAGE.H+R..
". YOU NEED TO CREATE A BUDGET BEFORE."
..+|.." CHOOSING THIS OPTION"..,.
.. BEEP AND PAUSE.7,... SD.4,65:. I.1 .
250:.:. SD.4,0:. I.1 . 2000:.:..J,... EX
IT PROGRAM.Y,... 198,0:.".. ARE YO
U SURE THAT YOU."..,..." WISH TO EXIT
THE PROGRAM (Y/N)?".F,... K$:. K$.."Y" .
K$.."N" .3000.X,B.. K$."N" .320..,L..".
BYE...":. 657,0:...-V.. PRINT'EXIT' AND
GET MENU OPTION.J-....7)X".) EXIT":B.49:
T.B.X.1:L.1:X.8:Y.23:.3320._-..."CHOOSE
ONE: ";.-...3080:. S$."" .3060:K.E(S$).
.-..K.E(S$):...-... INPUT ROUTINE.X-..X.
0:S$."":S.B(214).40.B(211).1024:. 213,B(
211).L.1..-...3290:. K.13 .3270..-&..312
0:.3100...0.. X.0 .3150.-.:.. K.20 . K$.
"":I..1:.3230.F.D.. K.157 . I..1:.3260.V
.N.. X.L .3280.J.X.. X.C(S$) .3190...B..
K.29 . I.1:.3260...L.. K.148 . C(S$).L
. K$." ".J(S$,X.1,1):.3220.O.V.. K.34 .
K.B . K.T .3280../... K.34 . K.36 . K.42
. K.44 . K.58 . K.63 . K.64 .3280../..I
.0../..X.X.1.:/..S$.H(S$,X.1).K$.J(S$,X.
1).Q/... K$."" . K$.G(20).P/... C(K$).2
. K$.G(148):I..1../... K$;:. 216,0../F..
204,1:. S.X,B(S.X) . 127:X.X.I../P...G/
Z.. INPUT ONE CHARACTER../... 204,0:. 20
7,0:. K$:. K$."" .3300../..K.F(K$):...0.
.. PLACE CURSOR AT X,Y.<0... 781,Y:. 782
,X:. 783,0:. 65520:..[0...ZZ.V.NR:.A$(ZZ
.1)."".3360.{0..A$(ZZ).A$(ZZ.1):.:A$(NR)
.""..0 .NR.NR.1:...0*..DC.C.NC:.DC..NC.N
$(DC).N$(DC.1).V04..:N$(NC)."":B(NC).0:N
C.NC.1:.NR.0....0>.DI.1..0H..F(A$(DI)).1
00..C.3430..1R.V.DI:.3340:.NR..DI..3400.
.1\...71F..F(A$(DI)).100.C.3450.G1P.A$(D
I).G(F(A$(DI)).1).I(A$(DI),C(A$(DI)).1).
|1Z.DI.DI.1:.DI.NR....1...3400...
> CLICK IMAGE PREVIEW FOR FULL MODAL