T.WEEKLY BUDGET
FILE INFORMATION
FILENAME(S): T.WEEKLY BUDGET
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 18:12:21
APPEARS ON: 1 disk(s)
FILE HASH
a13b18d5c6d33fb5fb1895aee13613c940d8d0c1fb5b433b28be7d94fedda670
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 47 S 2 | T.WEEKLY BUDGET | PRG | Sailor, Ganheden | 28 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 80 5E 55 3A 43 42 4D 0D 0D 20 20 20 20 20 20 |..^U:CBM.. | 00000010: 20 20 20 20 20 20 20 D7 C5 C5 CB CC D9 20 C2 D5 | ...... ..| 00000020: C4 C7 C5 D4 0D 0D 20 20 20 20 20 20 20 20 20 20 |...... | 00000030: 20 42 59 20 D2 4F 4C 46 20 CC 2E 20 CD 49 4C 4C | BY .OLF .. .ILL| 00000040: 45 52 0D 0D 20 20 20 20 20 D0 52 4F 47 52 41 4D |ER.. .ROGRAM| 00000050: 4D 45 52 53 20 55 53 55 41 4C 4C 59 20 48 41 56 |MERS USUALLY HAV| 00000060: 45 20 41 20 54 4F 55 43 48 0D 4F 46 20 53 43 48 |E A TOUCH.OF SCH| 00000070: 49 5A 4F 50 48 52 45 4E 49 41 2E 20 20 C9 54 20 |IZOPHRENIA. .T | 00000080: 53 45 45 4D 53 20 54 4F 20 48 45 4C 50 2E 0D C9 |SEEMS TO HELP...| 00000090: 46 20 59 4F 55 20 41 53 4B 20 41 20 50 52 4F 47 |F YOU ASK A PROG| 000000A0: 52 41 4D 4D 45 52 20 54 4F 20 43 4F 4D 45 20 55 |RAMMER TO COME U| 000000B0: 50 0D 57 49 54 48 20 41 20 53 50 45 43 49 46 49 |P.WITH A SPECIFI| 000000C0: 43 20 50 52 4F 47 52 41 4D 20 46 4F 52 20 54 48 |C PROGRAM FOR TH| 000000D0: 45 0D 50 55 42 4C 49 43 20 54 4F 20 55 53 45 2C |E.PUBLIC TO USE,| 000000E0: 20 41 4E 44 20 49 46 20 54 48 45 20 50 52 4F 47 | AND IF THE PROG| 000000F0: 52 41 4D 4D 45 52 0D 49 53 20 57 4F 52 54 48 20 |RAMMER.IS WORTH | 00000100: 48 49 53 20 53 41 4C 54 2C 20 48 45 20 57 49 4C |HIS SALT, HE WIL| 00000110: 4C 20 49 4E 43 4C 55 44 45 0D 41 4C 4C 20 4B 49 |L INCLUDE.ALL KI| 00000120: 4E 44 53 20 4F 46 20 45 52 52 4F 52 20 54 52 41 |NDS OF ERROR TRA| 00000130: 50 53 20 41 4E 44 20 48 45 4C 50 0D 46 45 41 54 |PS AND HELP.FEAT| 00000140: 55 52 45 53 2E 20 20 D9 45 54 20 54 48 49 53 20 |URES. .ET THIS | 00000150: 53 41 4D 45 20 50 52 4F 47 52 41 4D 4D 45 52 2C |SAME PROGRAMMER,| 00000160: 0D 57 48 45 4E 20 50 52 4F 44 55 43 49 4E 47 20 |.WHEN PRODUCING | 00000170: 41 20 50 52 4F 47 52 41 4D 20 46 4F 52 20 48 49 |A PROGRAM FOR HI| 00000180: 53 20 4F 57 4E 0D 55 53 45 2C 20 57 49 4C 4C 20 |S OWN.USE, WILL | 00000190: 43 4F 4D 45 20 55 50 20 57 49 54 48 20 41 20 54 |COME UP WITH A T| 000001A0: 4F 54 41 4C 4C 59 0D 44 49 46 46 45 52 45 4E 54 |OTALLY.DIFFERENT| 000001B0: 20 4B 49 4E 44 20 4F 46 20 50 52 4F 47 52 41 4D | KIND OF PROGRAM| 000001C0: 2E 20 20 D4 48 49 53 0D 50 52 4F 47 52 41 4D 20 |. .HIS.PROGRAM | 000001D0: 57 49 4C 4C 20 44 4F 20 57 48 41 54 20 49 54 27 |WILL DO WHAT IT'| 000001E0: 53 20 53 55 50 50 4F 53 45 44 20 54 4F 0D 44 4F |S SUPPOSED TO.DO| 000001F0: 2C 20 41 4E 44 20 4E 4F 54 48 49 4E 47 20 4D 4F |, AND NOTHING MO| 00000200: 52 45 2E 0D 0D 20 20 20 20 D7 C5 C5 CB CC D9 20 |RE... ...... | 00000210: C2 D5 C4 C7 C5 D4 20 49 53 20 41 20 47 4F 4F 44 |...... IS A GOOD| 00000220: 20 45 58 41 4D 50 4C 45 0D 4F 46 20 54 48 45 20 | EXAMPLE.OF THE | 00000230: 4C 41 54 54 45 52 20 54 59 50 45 20 4F 46 20 50 |LATTER TYPE OF P| 00000240: 52 4F 47 52 41 4D 2E 20 20 C9 46 0D 59 4F 55 20 |ROGRAM. .F.YOU | 00000250: 41 52 45 20 54 48 45 20 4F 4E 4C 59 20 50 45 52 |ARE THE ONLY PER| 00000260: 53 4F 4E 20 54 4F 20 55 53 45 20 41 0D 50 52 4F |SON TO USE A.PRO| 00000270: 47 52 41 4D 2C 20 54 48 49 53 20 49 53 20 54 48 |GRAM, THIS IS TH| 00000280: 45 20 57 41 59 20 59 4F 55 20 4D 41 59 20 57 41 |E WAY YOU MAY WA| 00000290: 4E 54 0D 54 4F 20 57 52 49 54 45 20 49 54 2E 0D |NT.TO WRITE IT..| 000002A0: 0D 20 20 20 20 D7 48 59 20 42 4F 54 48 45 52 20 |. .HY BOTHER | 000002B0: 57 49 54 48 20 49 4E 50 55 54 54 49 4E 47 0D 49 |WITH INPUTTING.I| 000002C0: 4E 46 4F 52 4D 41 54 49 4F 4E 20 46 52 4F 4D 20 |NFORMATION FROM | 000002D0: 54 48 45 20 4B 45 59 42 4F 41 52 44 20 4F 52 20 |THE KEYBOARD OR | 000002E0: 44 49 53 4B 0D 57 48 45 4E 20 59 4F 55 20 43 41 |DISK.WHEN YOU CA| 000002F0: 4E 20 55 53 45 20 54 48 45 20 42 55 49 4C 54 2D |N USE THE BUILT-| 00000300: 49 4E 20 C3 36 34 0D 53 43 52 45 45 4E 20 45 44 |IN .64.SCREEN ED| 00000310: 49 54 4F 52 3F 20 20 CC CF C1 C4 49 4E 47 20 41 |ITOR? ....ING A| 00000320: 4E 44 20 D3 C1 D6 C5 49 4E 47 0D 41 20 50 52 4F |ND ....ING.A PRO| 00000330: 47 52 41 4D 20 49 53 20 45 41 53 59 2C 20 41 53 |GRAM IS EASY, AS| 00000340: 20 4C 4F 4E 47 20 41 53 20 59 4F 55 0D 52 45 4D | LONG AS YOU.REM| 00000350: 45 4D 42 45 52 20 54 4F 20 44 4F 20 49 54 2C 20 |EMBER TO DO IT, | 00000360: 41 4E 44 20 4D 4F 44 49 46 59 49 4E 47 20 44 41 |AND MODIFYING DA| 00000370: 54 41 0D 53 54 41 54 45 4D 45 4E 54 53 20 57 49 |TA.STATEMENTS WI| 00000380: 54 48 20 59 4F 55 52 20 4B 45 59 42 4F 41 52 44 |TH YOUR KEYBOARD| 00000390: 20 49 53 20 4A 55 53 54 0D 41 53 20 51 55 49 43 | IS JUST.AS QUIC| 000003A0: 4B 20 41 53 20 4D 4F 44 49 46 59 49 4E 47 20 46 |K AS MODIFYING F| 000003B0: 49 4C 45 53 2E 0D 0D 20 20 20 20 C9 27 44 20 4C |ILES... .'D L| 000003C0: 49 4B 45 20 54 4F 20 49 4E 4A 45 43 54 20 41 54 |IKE TO INJECT AT| 000003D0: 20 54 48 49 53 20 50 4F 49 4E 54 0D 54 48 41 54 | THIS POINT.THAT| 000003E0: 20 54 48 49 53 20 49 53 20 CE CF D4 20 54 48 45 | THIS IS ... THE| 000003F0: 20 54 59 50 45 20 4F 46 20 50 52 4F 47 52 41 4D | TYPE OF PROGRAM| 00000400: 0D CC CF C1 C4 D3 D4 C1 D2 20 4C 49 4B 45 53 20 |......... LIKES | 00000410: 54 4F 20 50 55 42 4C 49 53 48 2C 20 45 58 43 45 |TO PUBLISH, EXCE| 00000420: 50 54 20 41 53 0D 41 4E 20 45 58 41 4D 50 4C 45 |PT AS.AN EXAMPLE| 00000430: 20 4F 46 20 41 20 54 45 43 48 4E 49 51 55 45 2E | OF A TECHNIQUE.| 00000440: 0D 20 20 20 20 CC 4F 4F 4B 20 41 54 20 54 48 45 |. .OOK AT THE| 00000450: 20 4C 49 53 54 49 4E 47 2E 20 D4 48 45 20 46 49 | LISTING. .HE FI| 00000460: 52 53 54 0D 46 45 57 20 4C 49 4E 45 53 20 44 45 |RST.FEW LINES DE| 00000470: 46 49 4E 45 20 43 45 52 54 41 49 4E 20 53 54 52 |FINE CERTAIN STR| 00000480: 49 4E 47 53 0D 57 48 49 43 48 20 57 49 4C 4C 20 |INGS.WHICH WILL | 00000490: 42 45 20 55 53 45 44 20 54 48 52 4F 55 47 48 4F |BE USED THROUGHO| 000004A0: 55 54 20 54 48 45 0D 50 52 4F 47 52 41 4D 2E 0D |UT THE.PROGRAM..| 000004B0: 0D 20 20 20 20 D4 48 45 20 44 41 54 41 20 53 54 |. .HE DATA ST| 000004C0: 41 54 45 4D 45 4E 54 53 20 53 54 41 52 54 20 57 |ATEMENTS START W| 000004D0: 49 54 48 0D 4C 49 4E 45 20 31 32 30 2E 20 20 D5 |ITH.LINE 120. .| 000004E0: 53 45 20 54 48 49 53 20 4C 49 4E 45 20 41 53 20 |SE THIS LINE AS | 000004F0: 41 0D 54 45 4D 50 4C 41 54 45 20 46 4F 52 20 41 |A.TEMPLATE FOR A| 00000500: 44 44 49 4E 47 20 4F 54 48 45 52 20 44 41 54 41 |DDING OTHER DATA| 00000510: 20 4C 49 4E 45 53 2E 0D D4 48 45 20 46 49 52 53 | LINES...HE FIRS| 00000520: 54 20 53 54 52 49 4E 47 20 49 53 20 54 48 45 20 |T STRING IS THE | 00000530: 4E 41 4D 45 20 4F 46 20 54 48 45 0D 49 4E 43 4F |NAME OF THE.INCO| 00000540: 4D 45 2C 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 |ME, FOLLOWED BY | 00000550: 46 49 56 45 20 4E 55 4D 42 45 52 53 0D 57 48 49 |FIVE NUMBERS.WHI| 00000560: 43 48 20 52 45 50 52 45 53 45 4E 54 20 54 48 45 |CH REPRESENT THE| 00000570: 20 41 4D 4F 55 4E 54 53 20 45 41 52 4E 45 44 0D | AMOUNTS EARNED.| 00000580: 46 4F 52 20 45 41 43 48 20 57 45 45 4B 20 4F 46 |FOR EACH WEEK OF| 00000590: 20 54 48 45 20 4D 4F 4E 54 48 2E 20 D5 53 45 20 | THE MONTH. .SE | 000005A0: 41 0D 5A 45 52 4F 20 49 46 20 54 48 45 52 45 20 |A.ZERO IF THERE | 000005B0: 49 53 20 4E 4F 20 49 4E 43 4F 4D 45 20 46 4F 52 |IS NO INCOME FOR| 000005C0: 20 41 0D 50 41 52 54 49 43 55 4C 41 52 20 57 45 | A.PARTICULAR WE| 000005D0: 45 4B 2E 0D 0D 20 20 20 20 C9 4E 20 4C 49 4E 45 |EK... .N LINE| 000005E0: 20 32 30 30 20 49 53 20 54 48 45 20 56 41 52 49 | 200 IS THE VARI| 000005F0: 41 42 4C 45 2C 20 C9 C4 2E 0D CD 41 4B 45 20 C9 |ABLE, .....AKE .| 00000600: C4 20 45 51 55 41 4C 20 54 4F 20 54 48 45 20 4E |. EQUAL TO THE N| 00000610: 55 4D 42 45 52 20 4F 46 0D 53 45 50 41 52 41 54 |UMBER OF.SEPARAT| 00000620: 45 20 49 4E 43 4F 4D 45 53 20 59 4F 55 20 48 41 |E INCOMES YOU HA| 00000630: 56 45 2E 0D 0D 20 20 20 20 D4 48 45 20 45 58 50 |VE... .HE EXP| 00000640: 45 4E 44 49 54 55 52 45 53 20 41 52 45 20 4C 49 |ENDITURES ARE LI| 00000650: 53 54 45 44 20 54 48 45 0D 53 41 4D 45 20 57 41 |STED THE.SAME WA| 00000660: 59 2C 20 53 54 41 52 54 49 4E 47 20 57 49 54 48 |Y, STARTING WITH| 00000670: 20 4C 49 4E 45 20 32 31 30 2E 20 20 C1 53 0D 42 | LINE 210. .S.B| 00000680: 45 46 4F 52 45 2C 20 4D 41 4B 45 20 C5 C4 20 49 |EFORE, MAKE .. I| 00000690: 4E 20 4C 49 4E 45 20 34 30 30 20 45 51 55 41 4C |N LINE 400 EQUAL| 000006A0: 20 54 4F 0D 54 48 45 20 4E 55 4D 42 45 52 20 4F | TO.THE NUMBER O| 000006B0: 46 20 53 45 50 41 52 41 54 45 20 45 58 50 45 4E |F SEPARATE EXPEN| 000006C0: 44 49 54 55 52 45 53 0D 46 4F 52 20 54 48 45 20 |DITURES.FOR THE | 000006D0: 57 45 45 4B 2E 20 20 D4 48 49 53 20 4E 55 4D 42 |WEEK. .HIS NUMB| 000006E0: 45 52 20 49 53 20 54 48 45 0D 53 41 4D 45 20 41 |ER IS THE.SAME A| 000006F0: 53 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 |S THE NUMBER OF | 00000700: 44 41 54 41 20 4C 49 4E 45 53 20 59 4F 55 0D 48 |DATA LINES YOU.H| 00000710: 41 56 45 20 42 45 54 57 45 45 4E 20 32 31 30 20 |AVE BETWEEN 210 | 00000720: 41 4E 44 20 34 30 30 2E 0D 0D 20 20 20 20 D4 48 |AND 400... .H| 00000730: 45 52 45 20 49 53 20 41 20 53 43 52 41 54 43 48 |ERE IS A SCRATCH| 00000740: 20 41 4E 44 20 53 41 56 45 0D 4F 50 54 49 4F 4E | AND SAVE.OPTION| 00000750: 20 49 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 20 | IN THE PROGRAM | 00000760: 53 4F 20 43 48 41 4E 47 49 4E 47 20 54 48 45 0D |SO CHANGING THE.| 00000770: 44 41 54 41 20 4C 49 4E 45 53 20 49 53 20 41 4C |DATA LINES IS AL| 00000780: 4C 20 59 4F 55 20 48 41 56 45 20 54 4F 20 44 4F |L YOU HAVE TO DO| 00000790: 20 45 41 43 48 0D 4D 4F 4E 54 48 2E 20 20 D7 48 | EACH.MONTH. .H| 000007A0: 45 4E 20 59 4F 55 20 D2 D5 CE 20 54 48 45 20 50 |EN YOU ... THE P| 000007B0: 52 4F 47 52 41 4D 20 41 0D 46 55 4C 4C 20 53 43 |ROGRAM A.FULL SC| 000007C0: 52 45 45 4E 20 4F 46 20 49 4E 46 4F 52 4D 41 54 |REEN OF INFORMAT| 000007D0: 49 4F 4E 20 57 49 4C 4C 20 42 45 0D 53 48 4F 57 |ION WILL BE.SHOW| 000007E0: 4E 2E 20 20 D0 52 45 53 53 20 41 20 4B 45 59 20 |N. .RESS A KEY | 000007F0: 54 4F 20 53 45 45 20 4D 4F 52 45 2E 0D 0D 20 20 |TO SEE MORE... | 00000800: 20 20 D7 48 45 4E 20 41 4C 4C 20 4F 46 20 59 4F | .HEN ALL OF YO| 00000810: 55 52 20 45 58 50 45 4E 53 45 53 20 48 41 56 45 |UR EXPENSES HAVE| 00000820: 0D 42 45 45 4E 20 53 48 4F 57 4E 2C 20 59 4F 55 |.BEEN SHOWN, YOU| 00000830: 27 4C 4C 20 53 45 45 20 54 48 45 20 54 4F 54 41 |'LL SEE THE TOTA| 00000840: 4C 53 2E 20 20 C1 0D 4E 45 47 41 54 49 56 45 20 |LS. ..NEGATIVE | 00000850: 4E 55 4D 42 45 52 20 49 53 20 41 4E 20 49 4E 44 |NUMBER IS AN IND| 00000860: 49 43 41 54 49 4F 4E 20 54 48 41 54 0D 45 58 50 |ICATION THAT.EXP| 00000870: 45 4E 53 45 53 20 45 58 43 45 45 44 20 45 41 52 |ENSES EXCEED EAR| 00000880: 4E 49 4E 47 53 20 54 48 41 54 20 57 45 45 4B 2E |NINGS THAT WEEK.| 00000890: 0D 20 20 20 20 C1 46 54 45 52 20 54 48 45 20 53 |. .FTER THE S| 000008A0: 55 4D 4D 41 54 49 4F 4E 20 4F 46 20 59 4F 55 52 |UMMATION OF YOUR| 000008B0: 0D 4D 4F 4E 54 48 4C 59 20 46 49 4E 41 4E 43 45 |.MONTHLY FINANCE| 000008C0: 53 2C 20 59 4F 55 27 4C 4C 20 53 45 45 20 41 0D |S, YOU'LL SEE A.| 000008D0: 4D 49 4E 49 2D 4D 45 4E 55 20 54 48 41 54 20 41 |MINI-MENU THAT A| 000008E0: 4C 4C 4F 57 53 20 59 4F 55 20 54 4F 20 45 58 49 |LLOWS YOU TO EXI| 000008F0: 54 20 54 4F 0D CC CF C1 C4 D3 D4 C1 D2 2C 20 52 |T TO........., R| 00000900: 45 44 49 53 50 4C 41 59 20 54 48 45 20 44 41 54 |EDISPLAY THE DAT| 00000910: 41 2C 20 53 43 52 41 54 43 48 0D 41 4E 44 20 53 |A, SCRATCH.AND S| 00000920: 41 56 45 20 54 48 45 20 50 52 4F 47 52 41 4D 20 |AVE THE PROGRAM | 00000930: 28 41 4E 44 20 54 48 45 20 44 41 54 41 29 2C 0D |(AND THE DATA),.| 00000940: 4F 52 20 53 45 4E 44 20 54 48 45 20 43 48 41 52 |OR SEND THE CHAR| 00000950: 54 20 54 4F 20 54 48 45 20 50 52 49 4E 54 45 52 |T TO THE PRINTER| 00000960: 2E 0D 0D 20 20 20 20 C1 53 20 4D 45 4E 54 49 4F |... .S MENTIO| 00000970: 4E 45 44 20 42 45 46 4F 52 45 2C 20 54 48 49 53 |NED BEFORE, THIS| 00000980: 20 49 53 20 4E 4F 54 0D 54 48 45 20 46 55 4C 4C | IS NOT.THE FULL| 00000990: 2D 46 45 41 54 55 52 45 44 2C 20 46 52 49 45 4E |-FEATURED, FRIEN| 000009A0: 44 4C 59 20 50 52 4F 47 52 41 4D 0D 54 48 41 54 |DLY PROGRAM.THAT| 000009B0: 20 CC CF C1 C4 D3 D4 C1 D2 20 55 53 55 41 4C 4C | ........ USUALL| 000009C0: 59 20 50 55 42 4C 49 53 48 45 53 2C 20 42 55 54 |Y PUBLISHES, BUT| 000009D0: 0D 49 54 20 49 53 20 45 58 41 43 54 4C 59 20 54 |.IT IS EXACTLY T| 000009E0: 48 45 20 54 59 50 45 20 54 48 41 54 20 41 0D 50 |HE TYPE THAT A.P| 000009F0: 52 4F 47 52 41 4D 4D 45 52 20 57 4F 55 4C 44 20 |ROGRAMMER WOULD | 00000A00: 57 52 49 54 45 20 46 4F 52 20 48 49 4D 53 45 4C |WRITE FOR HIMSEL| 00000A10: 46 2E 0D CE 4F 20 46 52 49 4C 4C 53 2C 20 45 41 |F...O FRILLS, EA| 00000A20: 53 59 20 54 4F 20 44 45 42 55 47 2C 20 41 4E 44 |SY TO DEBUG, AND| 00000A30: 2C 20 4D 4F 53 54 0D 49 4D 50 4F 52 54 41 4E 54 |, MOST.IMPORTANT| 00000A40: 2C 20 49 54 20 57 4F 52 4B 53 21 0D 0D 20 20 20 |, IT WORKS!.. | 00000A50: 20 D7 48 45 4E 20 59 4F 55 20 48 41 56 45 20 41 | .HEN YOU HAVE A| 00000A60: 4E 20 49 44 45 41 20 46 4F 52 20 41 0D 55 54 49 |N IDEA FOR A.UTI| 00000A70: 4C 49 54 59 20 50 52 4F 47 52 41 4D 20 54 4F 20 |LITY PROGRAM TO | 00000A80: 48 45 4C 50 20 59 4F 55 20 49 4E 20 59 4F 55 52 |HELP YOU IN YOUR| 00000A90: 0D 44 41 59 2D 54 4F 2D 44 41 59 20 4C 49 46 45 |.DAY-TO-DAY LIFE| 00000AA0: 2C 20 57 52 49 54 45 20 41 20 50 52 4F 47 52 41 |, WRITE A PROGRA| 00000AB0: 4D 20 4C 49 4B 45 0D 54 48 49 53 2E 20 20 CA 55 |M LIKE.THIS. .U| 00000AC0: 53 54 20 44 4F 4E 27 54 20 53 45 4E 44 20 49 54 |ST DON'T SEND IT| 00000AD0: 20 54 4F 20 55 53 2E 0D 0D C4 C9 D3 CB 20 C6 C9 | TO US....... ..| 00000AE0: CC C5 D3 20 D4 C8 C9 D3 20 D0 D2 CF C7 D2 C1 CD |... .... .......| 00000AF0: 20 D5 D3 C5 D3 0D 0D D7 C5 C5 CB CC D9 20 C2 D5 | ............ ..| 00000B00: C4 C7 C5 D4 20 20 20 20 20 20 D4 2E D7 C5 C5 CB |.... ......| 00000B10: CC D9 20 C2 D5 C4 C7 C5 D4 0D 0D 20 20 20 20 20 |.. ........ | 00000B20: 20 20 20 2A 2A 2A 2A 20 C5 4E 44 20 4F 46 20 D4 | **** .ND OF .| 00000B30: 45 58 54 20 2A 2A 2A 2A 0D |EXT ****. |
..^U:CBM.. WEEKLY BUDGET..
BY ROLF L. MILLER.. PROGRAM
MERS USUALLY HAVE A TOUCH.OF SCHIZOPHREN
IA. IT SEEMS TO HELP..IF YOU ASK A PROG
RAMMER TO COME UP.WITH A SPECIFIC PROGRA
M FOR THE.PUBLIC TO USE, AND IF THE PROG
RAMMER.IS WORTH HIS SALT, HE WILL INCLUD
E.ALL KINDS OF ERROR TRAPS AND HELP.FEAT
URES. YET THIS SAME PROGRAMMER,.WHEN PR
ODUCING A PROGRAM FOR HIS OWN.USE, WILL
COME UP WITH A TOTALLY.DIFFERENT KIND OF
PROGRAM. THIS.PROGRAM WILL DO WHAT IT'
S SUPPOSED TO.DO, AND NOTHING MORE...
WEEKLY BUDGET IS A GOOD EXAMPLE.OF THE
LATTER TYPE OF PROGRAM. IF.YOU ARE THE
ONLY PERSON TO USE A.PROGRAM, THIS IS TH
E WAY YOU MAY WANT.TO WRITE IT... WHY
BOTHER WITH INPUTTING.INFORMATION FROM
THE KEYBOARD OR DISK.WHEN YOU CAN USE TH
E BUILT-IN C64.SCREEN EDITOR? LOADING A
ND SAVEING.A PROGRAM IS EASY, AS LONG AS
YOU.REMEMBER TO DO IT, AND MODIFYING DA
TA.STATEMENTS WITH YOUR KEYBOARD IS JUST
.AS QUICK AS MODIFYING FILES... I'D L
IKE TO INJECT AT THIS POINT.THAT THIS IS
NOT THE TYPE OF PROGRAM.LOADSTAR LIKES
TO PUBLISH, EXCEPT AS.AN EXAMPLE OF A TE
CHNIQUE.. LOOK AT THE LISTING. THE FI
RST.FEW LINES DEFINE CERTAIN STRINGS.WHI
CH WILL BE USED THROUGHOUT THE.PROGRAM..
. THE DATA STATEMENTS START WITH.LINE
120. USE THIS LINE AS A.TEMPLATE FOR A
DDING OTHER DATA LINES..THE FIRST STRING
IS THE NAME OF THE.INCOME, FOLLOWED BY
FIVE NUMBERS.WHICH REPRESENT THE AMOUNTS
EARNED.FOR EACH WEEK OF THE MONTH. USE
A.ZERO IF THERE IS NO INCOME FOR A.PARTI
CULAR WEEK... IN LINE 200 IS THE VARI
ABLE, ID..MAKE ID EQUAL TO THE NUMBER OF
.SEPARATE INCOMES YOU HAVE... THE EXP
ENDITURES ARE LISTED THE.SAME WAY, START
ING WITH LINE 210. AS.BEFORE, MAKE ED I
N LINE 400 EQUAL TO.THE NUMBER OF SEPARA
TE EXPENDITURES.FOR THE WEEK. THIS NUMB
ER IS THE.SAME AS THE NUMBER OF DATA LIN
ES YOU.HAVE BETWEEN 210 AND 400... TH
ERE IS A SCRATCH AND SAVE.OPTION IN THE
PROGRAM SO CHANGING THE.DATA LINES IS AL
L YOU HAVE TO DO EACH.MONTH. WHEN YOU R
UN THE PROGRAM A.FULL SCREEN OF INFORMAT
ION WILL BE.SHOWN. PRESS A KEY TO SEE M
ORE... WHEN ALL OF YOUR EXPENSES HAVE
.BEEN SHOWN, YOU'LL SEE THE TOTALS. A.N
EGATIVE NUMBER IS AN INDICATION THAT.EXP
ENSES EXCEED EARNINGS THAT WEEK.. AFT
ER THE SUMMATION OF YOUR.MONTHLY FINANCE
S, YOU'LL SEE A.MINI-MENU THAT ALLOWS YO
U TO EXIT TO.LOADSTAR, REDISPLAY THE DAT
A, SCRATCH.AND SAVE THE PROGRAM (AND THE
DATA),.OR SEND THE CHART TO THE PRINTER
... AS MENTIONED BEFORE, THIS IS NOT.
THE FULL-FEATURED, FRIENDLY PROGRAM.THAT
LOADSTAR USUALLY PUBLISHES, BUT.IT IS E
XACTLY THE TYPE THAT A.PROGRAMMER WOULD
WRITE FOR HIMSELF..NO FRILLS, EASY TO DE
BUG, AND, MOST.IMPORTANT, IT WORKS!..
WHEN YOU HAVE AN IDEA FOR A.UTILITY PRO
GRAM TO HELP YOU IN YOUR.DAY-TO-DAY LIFE
, WRITE A PROGRAM LIKE.THIS. JUST DON'T
SEND IT TO US...DISK FILES THIS PROGRAM
USES..WEEKLY BUDGET T.WEEKLY BUDGE
T.. **** END OF TEXT ****.
> CLICK IMAGE PREVIEW FOR FULL MODAL