_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

TIME BILLING

FILE INFORMATION

FILENAME(S): TIME BILLING

FILE TYPE(S): SEQ

FILE SIZE: 5.8K

FIRST SEEN: 2025-11-30 18:12:25

APPEARS ON: 1 disk(s)

FILE HASH

b1d54b727598f70818a5022dcb04e82c65c664fcccb0c7ae750c07744cdd1fd6

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
DATARICH TIME BILLING SEQ Sailor, Ganheden 3 16 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 22 20 20 20 20 20 20 20  20 20 D4 C9 CD C5 20 C2  |"         .... .|
00000010: C9 CC CC C9 CE C7 20 20  20 20 20 20 20 20 20 C2  |......         .|
00000020: 59 3A 20 D2 4F 42 45 52  54 20 D7 2E 20 C2 41 4B  |Y: .OBERT .. .AK|
00000030: 45 52 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |ER              |
00000040: 20 D0 41 47 45 20 31 0D  0D 0D 22 20 20 20 20 20  | .AGE 1..."     |
00000050: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000060: 20 20 20 20 20 20 20 20  20 20 20 20 20 D4 C9 CD  |             ...|
00000070: C5 20 C2 C9 CC CC C9 CE  C7 0D 0D 22 20 20 20 20  |. ........."    |
00000080: 20 20 20 20 20 C8 45 52  45 27 53 20 41 20 53 49  |     .ERE'S A SI|
00000090: 4D 50 4C 45 20 4C 49 54  54 4C 45 20 50 52 4F 47  |MPLE LITTLE PROG|
000000A0: 52 41 4D 20 57 49 54 48  20 41 20 4E 55 4D 42 45  |RAM WITH A NUMBE|
000000B0: 52 20 4F 46 20 50 4F 53  53 49 42 49 4C 49 54 49  |R OF POSSIBILITI|
000000C0: 45 53 0D 22 20 20 20 20  20 20 20 20 20 41 4E 44  |ES."         AND|
000000D0: 20 41 20 46 45 57 20 49  44 45 41 53 20 54 48 41  | A FEW IDEAS THA|
000000E0: 54 20 43 41 4E 20 45 41  53 49 4C 59 20 42 45 20  |T CAN EASILY BE |
000000F0: 55 53 45 44 20 45 4C 53  45 57 48 45 52 45 2E 20  |USED ELSEWHERE. |
00000100: C9 20 57 52 4F 54 45 20  49 54 0D 22 20 20 20 20  |. WROTE IT."    |
00000110: 20 20 20 20 20 53 4F 20  C9 20 43 4F 55 4C 44 20  |     SO . COULD |
00000120: 46 49 47 55 52 45 20 20  4F 55 54 20 20 48 4F 57  |FIGURE  OUT  HOW|
00000130: 20 20 4D 55 43 48 20 20  C9 20 20 53 48 4F 55 4C  |  MUCH  .  SHOUL|
00000140: 44 20 20 43 48 41 52 47  45 20 20 46 4F 52 20 20  |D  CHARGE  FOR  |
00000150: 4D 59 0D 22 20 20 20 20  20 20 20 20 20 43 4F 4E  |MY."         CON|
00000160: 53 55 4C 54 49 4E 47 20  53 45 52 56 49 43 45 53  |SULTING SERVICES|
00000170: 20 57 49 54 48 20 41 20  4C 4F 43 41 4C 20 43 4F  | WITH A LOCAL CO|
00000180: 4E 53 55 4C 54 49 4E 47  20 20 46 49 52 4D 2E 20  |NSULTING  FIRM. |
00000190: 20 D4 48 45 20 20 46 49  52 4D 0D 22 20 20 20 20  | .HE  FIRM."    |
000001A0: 20 20 20 20 20 57 4F 55  4C 44 20 41 41 53 53 49  |     WOULD AASSI|
000001B0: 47 4E 20 55 4E 49 51 55  45 20 50 52 4F 4A 45 43  |GN UNIQUE PROJEC|
000001C0: 54 20 4E 55 4D 42 45 52  53 20 46 4F 52 20 45 56  |T NUMBERS FOR EV|
000001D0: 45 52 59 20 20 50 52 4F  4A 45 43 54 20 20 54 48  |ERY  PROJECT  TH|
000001E0: 45 59 0D 22 20 20 20 20  20 20 20 20 20 55 4E 44  |EY."         UND|
000001F0: 45 52 54 4F 4F 4B 20 41  4E 44 20 43 4F 44 45 20  |ERTOOK AND CODE |
00000200: 54 48 45 4D 20 42 59 20  50 52 4F 4A 45 43 54 20  |THEM BY PROJECT |
00000210: 54 59 50 45 2E 20 C1 54  20 54 48 45 20 45 4E 44  |TYPE. .T THE END|
00000220: 20 20 4F 46 20 20 45 41  43 48 0D 22 20 20 20 20  |  OF  EACH."    |
00000230: 20 20 20 20 20 4D 4F 4E  54 48 20 54 48 45 20 46  |     MONTH THE F|
00000240: 49 52 4D 20 57 41 4E 54  45 44 20 41 20 42 49 4C  |IRM WANTED A BIL|
00000250: 4C 20 46 4F 52 20 54 48  45 20 54 49 4D 45 20 20  |L FOR THE TIME  |
00000260: C9 20 20 53 50 45 4E 54  20 20 4F 4E 20 20 45 41  |.  SPENT  ON  EA|
00000270: 43 48 0D 22 20 20 20 20  20 20 20 20 20 50 52 4F  |CH."         PRO|
00000280: 4A 45 43 54 20 28 41 54  20 41 4E 20 41 47 52 45  |JECT (AT AN AGRE|
00000290: 45 44 2D 55 50 4F 4E 20  52 41 54 45 29 20 20 41  |ED-UPON RATE)  A|
000002A0: 4E 44 20 20 41 4E 59 20  20 45 58 50 45 4E 53 45  |ND  ANY  EXPENSE|
000002B0: 53 20 20 54 48 41 54 20  20 C9 0D 22 20 20 20 20  |S  THAT  .."    |
000002C0: 20 20 20 20 20 49 4E 43  55 52 52 45 44 2E 0D 22  |     INCURRED.."|
000002D0: 0D 22 20 20 20 20 20 20  20 20 20 C9 20 4E 4F 52  |."         . NOR|
000002E0: 4D 41 4C 4C 59 20 43 41  52 52 49 45 44 20 41 20  |MALLY CARRIED A |
000002F0: 53 4D 41 4C 4C 20 43 41  4C 45 4E 44 41 52 20 41  |SMALL CALENDAR A|
00000300: 4E 44 20 53 49 4D 50 4C  59 20 4A 4F 54 54 45 44  |ND SIMPLY JOTTED|
00000310: 20 44 4F 57 4E 20 4D 59  0D 22 20 20 20 20 20 20  | DOWN MY."      |
00000320: 20 20 20 54 49 4D 45 20  41 4E 44 20 45 58 50 45  |   TIME AND EXPE|
00000330: 4E 53 45 53 20 45 41 43  48 20 44 41 59 2E 20 C1  |NSES EACH DAY. .|
00000340: 54 20 54 48 45 20 45 4E  44 20 4F 46 20 54 48 45  |T THE END OF THE|
00000350: 20 4D 4F 4E 54 48 20 C9  27 44 20 20 48 41 56 45  | MONTH .'D  HAVE|
00000360: 0D 22 20 20 20 20 20 20  20 20 20 54 4F 20 47 4F  |."         TO GO|
00000370: 20 42 41 43 4B 20 54 48  52 4F 55 47 48 20 54 48  | BACK THROUGH TH|
00000380: 45 20 43 41 4C 45 4E 44  41 52 20 41 4E 44 20 41  |E CALENDAR AND A|
00000390: 44 44 20 55 50 20 20 54  48 45 20 20 46 49 47 55  |DD UP  THE  FIGU|
000003A0: 52 45 53 2E 20 20 C9 54  0D 22 20 20 20 20 20 20  |RES.  .T."      |
000003B0: 20 20 20 47 4F 54 20 54  4F 20 42 45 20 4B 49 4E  |   GOT TO BE KIN|
000003C0: 44 20 4F 46 20 4D 45 53  53 59 20 41 4E 44 20 54  |D OF MESSY AND T|
000003D0: 49 4D 45 20 43 4F 4E 53  55 4D 49 4E 47 2C 20 53  |IME CONSUMING, S|
000003E0: 4F 20 C9 20 20 57 52 4F  54 45 20 20 54 48 49 53  |O .  WROTE  THIS|
000003F0: 0D 22 20 20 20 20 20 20  20 20 20 51 55 49 43 4B  |."         QUICK|
00000400: 20 4C 49 54 54 4C 45 20  50 52 4F 47 52 41 4D 20  | LITTLE PROGRAM |
00000410: 54 4F 20 48 45 4C 50 20  4F 55 54 2E 20 C9 54 27  |TO HELP OUT. .T'|
00000420: 53 20 4E 4F 54 20 56 45  52 59 20 46 41 4E 43 59  |S NOT VERY FANCY|
00000430: 20 42 55 54 20 20 49 54  0D 22 20 20 20 20 20 20  | BUT  IT."      |
00000440: 20 20 20 53 55 52 45 20  57 41 53 20 48 41 4E 44  |   SURE WAS HAND|
00000450: 59 20 54 48 45 4E 2E 0D  22 0D 22 20 20 20 20 20  |Y THEN.."."     |
00000460: 20 20 20 20 D7 48 45 4E  20 59 4F 55 20 52 55 4E  |    .HEN YOU RUN|
00000470: 20 54 48 45 20 50 52 4F  47 52 41 4D 20 49 54 20  | THE PROGRAM IT |
00000480: 53 49 4D 50 4C 59 20 4B  45 45 50 53 20 41 53 4B  |SIMPLY KEEPS ASK|
00000490: 49 4E 47 20 46 4F 52 20  41 20 50 52 4F 4A 45 43  |ING FOR A PROJEC|
000004A0: 54 0D 22 20 20 20 20 20  20 20 20 20 4E 55 4D 42  |T."         NUMB|
000004B0: 45 52 20 41 4E 44 20 54  48 45 20 4E 55 4D 42 45  |ER AND THE NUMBE|
000004C0: 52 20 4F 46 20 48 4F 55  52 53 20 53 50 45 4E 54  |R OF HOURS SPENT|
000004D0: 20 4F 4E 20 54 48 41 54  20 50 52 4F 4A 45 43 54  | ON THAT PROJECT|
000004E0: 2E 20 D3 4F 20 20 41 4C  4C 0D 22 20 20 20 20 20  |. .O  ALL."     |
000004F0: 20 20 20 20 C9 27 44 20  48 41 56 45 20 54 4F 20  |    .'D HAVE TO |
00000500: 44 4F 20 49 53 20 47 4F  20 54 48 52 4F 55 47 48  |DO IS GO THROUGH|
00000510: 20 54 48 45 20 43 41 4C  45 4E 44 41 52 20 41 4E  | THE CALENDAR AN|
00000520: 44 20 45 4E 54 45 52 20  45 41 43 48 20 49 54 45  |D ENTER EACH ITE|
00000530: 4D 0D 22 20 20 20 20 20  20 20 20 20 49 4E 20 54  |M."         IN T|
00000540: 48 45 20 4F 52 44 45 52  20 49 4E 20 57 48 49 43  |HE ORDER IN WHIC|
00000550: 48 20 20 49 54 27 53 20  20 46 4F 55 4E 44 2E 20  |H  IT'S  FOUND. |
00000560: 20 C9 46 20 20 41 4E 20  20 27 C5 27 20 20 49 53  | .F  AN  '.'  IS|
00000570: 20 20 45 4E 54 45 52 45  44 0D 22 20 20 20 20 20  |  ENTERED."     |
00000580: 20 20 20 20 49 4E 53 54  45 41 44 20 4F 46 20 41  |    INSTEAD OF A|
00000590: 20 50 52 4F 4A 45 43 54  20 4E 55 4D 42 45 52 2C  | PROJECT NUMBER,|
000005A0: 20 54 48 45 4E 20 41 4E  59 20 20 47 45 4E 45 52  | THEN ANY  GENER|
000005B0: 41 4C 20 20 45 58 50 45  4E 53 45 53 20 20 4E 4F  |AL  EXPENSES  NO|
000005C0: 54 0D 22 20 20 20 20 20  20 20 20 20 52 45 4C 41  |T."         RELA|
000005D0: 54 45 44 20 54 4F 20 41  20 20 50 41 52 54 49 43  |TED TO A  PARTIC|
000005E0: 55 4C 41 52 20 20 50 52  4F 4A 45 43 54 20 20 43  |ULAR  PROJECT  C|
000005F0: 41 4E 20 20 42 45 20 20  45 4E 54 45 52 45 44 2E  |AN  BE  ENTERED.|
00000600: 20 20 CF 4E 43 45 20 20  41 0D 22 20 20 20 20 20  |  .NCE  A."     |
00000610: 20 20 20 20 50 52 4F 4A  45 43 54 20 4E 55 4D 42  |    PROJECT NUMB|
00000620: 45 52 20 49 53 20 45 4E  54 45 52 45 44 2C 20 52  |ER IS ENTERED, R|
00000630: 45 53 50 4F 4E 44 49 4E  47 20 57 49 54 48 20 27  |ESPONDING WITH '|
00000640: C5 27 20 49 4E 53 54 45  41 44 20 4F 46 20 54 48  |.' INSTEAD OF TH|
00000650: 45 0D 22 20 20 20 20 20  20 20 20 20 4E 55 4D 42  |E."         NUMB|
00000660: 45 52 20 4F 46 20 48 4F  55 52 53 20 41 4C 4C 4F  |ER OF HOURS ALLO|
00000670: 57 53 20 4D 45 20 54 4F  20 20 45 4E 54 45 52 20  |WS ME TO  ENTER |
00000680: 20 54 48 45 20 20 45 58  50 45 4E 53 45 53 20 20  | THE  EXPENSES  |
00000690: 46 4F 52 20 20 54 48 41  54 0D 22 20 20 20 20 20  |FOR  THAT."     |
000006A0: 20 20 20 20 50 41 52 54  49 43 55 4C 41 52 20 50  |    PARTICULAR P|
000006B0: 52 4F 4A 45 43 54 2E 0D  22 0D 22 20 20 20 20 20  |ROJECT.."."     |
000006C0: 20 20 20 20 D7 48 45 4E  20 44 4F 4E 45 20 45 4E  |    .HEN DONE EN|
000006D0: 54 45 52 49 4E 47 20 44  41 54 41 2C 20 45 4E 54  |TERING DATA, ENT|
000006E0: 45 52 20 41 20 27 C4 27  20 46 4F 52 20 54 48 45  |ER A '.' FOR THE|
000006F0: 20 50 52 4F 4A 45 43 54  20 20 4E 55 4D 42 45 52  | PROJECT  NUMBER|
00000700: 2E 0D 22 20 20 20 20 20  20 20 20 20 C1 54 20 54  |.."         .T T|
00000710: 48 41 54 20 50 4F 49 4E  54 20 54 48 45 20 50 52  |HAT POINT THE PR|
00000720: 4F 47 52 41 4D 20 41 53  4B 53 20 49 46 20 41 4C  |OGRAM ASKS IF AL|
00000730: 4C 20 20 50 52 4F 4A 45  43 54 53 20 20 41 52 45  |L  PROJECTS  ARE|
00000740: 20 20 41 54 20 20 54 48  45 0D 22 20 20 20 20 20  |  AT  THE."     |
00000750: 20 20 20 20 53 41 4D 45  20 48 4F 55 52 4C 59 20  |    SAME HOURLY |
00000760: 52 41 54 45 2E 20 20 D4  48 45 4E 20 20 54 48 45  |RATE.  .HEN  THE|
00000770: 20 20 43 4F 52 52 45 43  54 20 20 48 4F 55 52 4C  |  CORRECT  HOURL|
00000780: 59 20 20 52 41 54 45 20  20 46 4F 52 20 20 41 4C  |Y  RATE  FOR  AL|
00000790: 4C 0D 22 20 20 20 20 20  20 20 20 20 50 52 4F 4A  |L."         PROJ|
000007A0: 45 43 54 53 20 4F 52 20  45 41 43 48 20 49 4E 44  |ECTS OR EACH IND|
000007B0: 49 56 49 44 55 41 4C 20  50 52 4F 4A 45 43 54 20  |IVIDUAL PROJECT |
000007C0: 43 41 4E 20 42 45 20 45  4E 54 45 52 45 44 2E 0D  |CAN BE ENTERED..|
000007D0: 22 0D 22 20 20 20 20 20  20 20 20 20 CF 4E 43 45  |"."         .NCE|
000007E0: 20 54 48 45 20 50 52 4F  47 52 41 4D 20 48 41 53  | THE PROGRAM HAS|
000007F0: 20 41 4C 4C 20 54 48 45  20 4E 45 43 45 53 53 41  | ALL THE NECESSA|
00000800: 52 59 20 49 4E 46 4F 52  4D 41 54 49 4F 4E 2C 20  |RY INFORMATION, |
00000810: 49 54 20 20 53 4F 52 54  53 0D 22 20 20 20 20 20  |IT  SORTS."     |
00000820: 20 20 20 20 54 48 45 20  50 52 4F 4A 45 43 54 53  |    THE PROJECTS|
00000830: 20 49 4E 54 4F 20 4E 55  4D 45 52 49 43 41 4C 20  | INTO NUMERICAL |
00000840: 4F 52 44 45 52 20 41 4E  44 20 43 4F 4D 50 55 54  |ORDER AND COMPUT|
00000850: 45 53 20 54 48 45 20 54  4F 54 41 4C 20 20 46 4F  |ES THE TOTAL  FO|
00000860: 52 0D 22 20 20 20 20 20  20 20 20 20 45 41 43 48  |R."         EACH|
00000870: 20 50 52 4F 4A 45 43 54  2E 20 D4 48 45 20 49 4E  | PROJECT. .HE IN|
00000880: 46 4F 52 4D 41 54 49 4F  4E 20 44 49 53 50 4C 41  |FORMATION DISPLA|
00000890: 59 45 44 20 49 4E 43 4C  55 44 45 53 20 54 48 45  |YED INCLUDES THE|
000008A0: 20 20 50 52 4F 4A 45 43  54 0D 22 20 20 20 20 20  |  PROJECT."     |
000008B0: 20 20 20 20 4E 55 4D 42  45 52 2C 20 54 48 45 20  |    NUMBER, THE |
000008C0: 54 4F 54 41 4C 20 4E 55  4D 42 45 52 20 4F 46 20  |TOTAL NUMBER OF |
000008D0: 48 4F 55 52 53 20 55 53  45 44 2C 20 54 48 45 20  |HOURS USED, THE |
000008E0: 48 4F 55 52 4C 59 20 52  41 54 45 2C 20 20 54 48  |HOURLY RATE,  TH|
000008F0: 45 0D 22 20 20 20 20 20  20 20 20 20 54 4F 54 41  |E."         TOTA|
00000900: 4C 20 45 58 50 45 4E 53  45 53 2C 20 41 4E 44 20  |L EXPENSES, AND |
00000910: 54 48 45 20 20 46 49 4E  41 4C 20 20 54 4F 54 41  |THE  FINAL  TOTA|
00000920: 4C 20 20 46 4F 52 20 20  54 48 41 54 20 20 50 52  |L  FOR  THAT  PR|
00000930: 4F 4A 45 43 54 2E 20 20  C1 0D 22 20 20 20 20 20  |OJECT.  .."     |
00000940: 20 20 20 20 53 45 50 41  52 41 54 45 20 4C 49 4E  |    SEPARATE LIN|
00000950: 45 20 53 48 4F 57 53 20  4D 49 53 43 45 4C 4C 41  |E SHOWS MISCELLA|
00000960: 4E 45 4F 55 53 20 45 58  50 45 4E 53 45 53 20 20  |NEOUS EXPENSES  |
00000970: 4E 4F 54 20 20 52 45 4C  45 41 54 45 44 20 20 54  |NOT  RELEATED  T|
00000980: 4F 0D 22 20 20 20 20 20  20 20 20 20 41 4E 59 20  |O."         ANY |
00000990: 50 41 52 54 49 43 55 4C  41 52 20 50 52 4F 4A 45  |PARTICULAR PROJE|
000009A0: 43 54 20 41 4E 44 20 41  20 53 55 4D 4D 41 52 59  |CT AND A SUMMARY|
000009B0: 20 4C 49 4E 45 20 53 48  4F 57 53 20 54 48 45 20  | LINE SHOWS THE |
000009C0: 20 43 4F 4D 42 49 4E 45  44 0D 22 20 20 20 20 20  | COMBINED."     |
000009D0: 20 20 20 20 54 4F 54 41  4C 53 2E 0D 22 0D 22 20  |    TOTALS.."." |
000009E0: 20 20 20 20 20 20 20 20  C9 20 4E 45 56 45 52 20  |        . NEVER |
000009F0: 42 4F 54 48 45 52 45 44  20 54 4F 20 50 52 49 4E  |BOTHERED TO PRIN|
00000A00: 54 20 4F 55 54 20 54 48  45 20 54 4F 54 41 4C 53  |T OUT THE TOTALS|
00000A10: 20 53 49 4E 43 45 20 C9  20 57 41 53 20 20 43 4F  | SINCE . WAS  CO|
00000A20: 50 59 49 4E 47 0D 22 20  20 20 20 20 20 20 20 20  |PYING."         |
00000A30: 49 54 20 4F 4E 54 4F 20  53 50 45 43 49 41 4C 20  |IT ONTO SPECIAL |
00000A40: 46 4F 52 4D 53 2C 20 42  55 54 20 49 54 20 43 4F  |FORMS, BUT IT CO|
00000A50: 55 4C 44 20 42 45 20 44  4F 4E 45 20 45 41 53 49  |ULD BE DONE EASI|
00000A60: 4C 59 2E 20 20 D3 49 4E  43 45 20 20 C9 0D 22 20  |LY.  .INCE  .." |
00000A70: 20 20 20 20 20 20 20 20  57 41 53 20 44 49 53 50  |        WAS DISP|
00000A80: 4C 41 59 49 4E 47 20 54  48 45 20 46 49 4E 41 4C  |LAYING THE FINAL|
00000A90: 20 54 4F 54 41 4C 53 20  4F 4E 20 54 48 45 20 53  | TOTALS ON THE S|
00000AA0: 43 52 45 45 4E 2C 20 C9  20 4C 49 4D 49 54 45 44  |CREEN, . LIMITED|
00000AB0: 20 20 54 48 45 0D 22 20  20 20 20 20 20 20 20 20  |  THE."         |
00000AC0: 50 52 4F 47 52 41 4D 20  54 4F 20 41 43 43 45 50  |PROGRAM TO ACCEP|
00000AD0: 54 20 4F 4E 4C 59 20 31  35 20 44 49 46 46 45 52  |T ONLY 15 DIFFER|
00000AE0: 45 4E 54 20 20 50 52 4F  4A 45 43 54 20 20 4E 55  |ENT  PROJECT  NU|
00000AF0: 4D 42 45 52 53 20 20 53  4F 20 20 49 54 0D 22 20  |MBERS  SO  IT." |
00000B00: 20 20 20 20 20 20 20 20  57 4F 55 4C 44 20 46 49  |        WOULD FI|
00000B10: 54 20 4F 4E 20 54 48 45  20 20 53 43 52 45 45 4E  |T ON THE  SCREEN|
00000B20: 20 20 4E 49 43 45 4C 59  2E 20 20 C1 47 41 49 4E  |  NICELY.  .GAIN|
00000B30: 2C 20 20 59 4F 55 20 20  43 4F 55 4C 44 20 20 45  |,  YOU  COULD  E|
00000B40: 41 53 49 4C 59 0D 22 20  20 20 20 20 20 20 20 20  |ASILY."         |
00000B50: 43 48 41 4E 47 45 20 54  48 49 53 20 49 46 20 49  |CHANGE THIS IF I|
00000B60: 54 20 57 41 53 20 52 45  41 4C 4C 59 20 4E 45 43  |T WAS REALLY NEC|
00000B70: 45 53 53 41 52 59 2E 0D  22 0D 22 20 20 20 20 20  |ESSARY.."."     |
00000B80: 20 20 20 20 CC 4F 4F 4B  49 4E 47 20 49 4E 53 49  |    .OOKING INSI|
00000B90: 44 45 20 54 48 45 20 50  52 4F 47 52 41 4D 2C 20  |DE THE PROGRAM, |
00000BA0: 54 48 45 20 C1 20 4D 41  54 52 49 58 20 52 45 43  |THE . MATRIX REC|
00000BB0: 4F 52 44 53 20 41 4C 4C  20 20 50 52 4F 4A 45 43  |ORDS ALL  PROJEC|
00000BC0: 54 0D 22 20 20 20 20 20  20 20 20 20 49 4E 46 4F  |T."         INFO|
00000BD0: 52 4D 41 54 49 4F 4E 20  41 53 20 46 4F 4C 4C 4F  |RMATION AS FOLLO|
00000BE0: 57 53 3A 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 22  |WS:............"|
00000BF0: 20 20 20 20 20 20 20 20  20 D4 C9 CD C5 20 C2 C9  |         .... ..|
00000C00: CC CC C9 CE C7 20 20 20  20 20 20 20 20 20 C2 59  |.....         .Y|
00000C10: 3A 20 D2 4F 42 45 52 54  20 D7 2E 20 C2 41 4B 45  |: .OBERT .. .AKE|
00000C20: 52 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |R               |
00000C30: D0 41 47 45 20 32 0D 0D  0D 22 0D 22 20 20 20 20  |.AGE 2..."."    |
00000C40: 20 20 20 20 20 20 20 20  20 20 C1 28 58 2C 31 29  |          .(X,1)|
00000C50: 20 3D 20 50 52 4F 4A 45  43 54 20 4E 55 4D 42 45  | = PROJECT NUMBE|
00000C60: 52 0D 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |R."             |
00000C70: 20 C1 28 58 2C 32 29 20  3D 20 4E 55 4D 42 45 52  | .(X,2) = NUMBER|
00000C80: 20 4F 46 20 48 4F 55 52  53 0D 22 20 20 20 20 20  | OF HOURS."     |
00000C90: 20 20 20 20 20 20 20 20  20 C1 28 58 2C 33 29 20  |         .(X,3) |
00000CA0: 3D 20 48 4F 55 52 4C 59  20 52 41 54 45 0D 22 20  |= HOURLY RATE." |
00000CB0: 20 20 20 20 20 20 20 20  20 20 20 20 20 C1 28 58  |             .(X|
00000CC0: 2C 34 29 20 3D 20 50 52  4F 4A 45 43 54 20 45 58  |,4) = PROJECT EX|
00000CD0: 50 45 4E 53 45 53 0D 22  0D 22 20 20 20 20 20 20  |PENSES."."      |
00000CE0: 20 20 20 C9 4E 20 41 44  44 49 54 49 4F 4E 2C 20  |   .N ADDITION, |
00000CF0: C1 28 30 2C 31 29 20 43  4F 4E 54 41 49 4E 53 20  |.(0,1) CONTAINS |
00000D00: 54 48 45 20 4E 55 4D 42  45 52 20 4F 46 20 44 49  |THE NUMBER OF DI|
00000D10: 46 46 45 52 45 4E 54 20  20 50 52 4F 4A 45 43 54  |FFERENT  PROJECT|
00000D20: 0D 22 20 20 20 20 20 20  20 20 20 4E 55 4D 42 45  |."         NUMBE|
00000D30: 52 53 20 43 55 52 52 45  4E 54 4C 59 20 20 45 4E  |RS CURRENTLY  EN|
00000D40: 54 45 52 45 44 20 20 41  4E 44 20 20 C1 28 30 2C  |TERED  AND  .(0,|
00000D50: 34 29 20 20 43 4F 4E 54  41 49 4E 53 20 20 54 48  |4)  CONTAINS  TH|
00000D60: 45 20 20 54 4F 54 41 4C  0D 22 20 20 20 20 20 20  |E  TOTAL."      |
00000D70: 20 20 20 47 45 4E 45 52  41 4C 20 45 58 50 45 4E  |   GENERAL EXPEN|
00000D80: 53 45 53 2E 0D 22 0D 22  20 20 20 20 20 20 20 20  |SES.."."        |
00000D90: 20 CC 49 4E 45 53 20 32  39 30 2D 33 33 30 20 47  | .INES 290-330 G|
00000DA0: 45 54 20 54 48 45 20 50  52 4F 4A 45 43 54 20 4E  |ET THE PROJECT N|
00000DB0: 55 4D 42 45 52 20 41 4E  44 20 43 48 45 43 4B 20  |UMBER AND CHECK |
00000DC0: 54 4F 20 53 45 45 20 20  49 46 20 20 49 54 0D 22  |TO SEE  IF  IT."|
00000DD0: 20 20 20 20 20 20 20 20  20 57 41 53 20 20 50 52  |         WAS  PR|
00000DE0: 45 56 49 4F 55 53 4C 59  20 20 45 4E 54 45 52 45  |EVIOUSLY  ENTERE|
00000DF0: 44 20 20 42 59 20 20 53  43 41 4E 4E 49 4E 47 20  |D  BY  SCANNING |
00000E00: 20 54 48 45 20 20 43 55  52 52 45 4E 54 20 20 20  | THE  CURRENT   |
00000E10: 4D 41 54 52 49 58 0D 22  20 20 20 20 20 20 20 20  |MATRIX."        |
00000E20: 20 45 4E 54 52 49 45 53  2E 20 D7 48 45 4E 20 41  | ENTRIES. .HEN A|
00000E30: 20 4E 45 57 20 50 52 4F  4A 45 43 54 20 4E 55 4D  | NEW PROJECT NUM|
00000E40: 42 45 52 20 49 53 20 45  4E 54 45 52 45 44 2C 20  |BER IS ENTERED, |
00000E50: 49 54 27 53 20 41 44 44  45 44 20 20 41 54 0D 22  |IT'S ADDED  AT."|
00000E60: 20 20 20 20 20 20 20 20  20 54 48 45 20 45 4E 44  |         THE END|
00000E70: 20 4F 46 20 54 48 45 20  4D 41 54 52 49 58 20 49  | OF THE MATRIX I|
00000E80: 4E 20 4C 49 4E 45 20 20  33 36 30 2E 20 20 CC 49  |N LINE  360.  .I|
00000E90: 4E 45 53 20 20 33 37 30  2D 34 30 30 20 20 47 45  |NES  370-400  GE|
00000EA0: 54 20 20 54 48 45 0D 22  20 20 20 20 20 20 20 20  |T  THE."        |
00000EB0: 20 4E 55 4D 42 45 52 20  4F 46 20 48 4F 55 52 53  | NUMBER OF HOURS|
00000EC0: 20 41 4E 44 20 52 4F 55  4E 44 53 20 54 48 45 4D  | AND ROUNDS THEM|
00000ED0: 20 54 4F 20 54 48 45 20  4E 45 41 52 45 53 54 20  | TO THE NEAREST |
00000EE0: 20 54 45 4E 54 48 20 20  4F 46 20 20 41 4E 0D 22  | TENTH  OF  AN."|
00000EF0: 20 20 20 20 20 20 20 20  20 48 4F 55 52 20 42 45  |         HOUR BE|
00000F00: 46 4F 52 45 20 41 44 44  49 4E 47 20 49 54 20 54  |FORE ADDING IT T|
00000F10: 4F 20 54 48 45 20 43 55  52 52 45 4E 54 20 54 4F  |O THE CURRENT TO|
00000F20: 54 41 4C 2E 20 CC 49 4E  45 53 20 34 33 30 2D 34  |TAL. .INES 430-4|
00000F30: 35 30 20 47 45 54 0D 22  20 20 20 20 20 20 20 20  |50 GET."        |
00000F40: 20 50 52 4F 4A 45 43 54  20 45 58 50 45 4E 53 45  | PROJECT EXPENSE|
00000F50: 53 20 41 4E 44 20 52 4F  55 4E 44 20 54 48 45 4D  |S AND ROUND THEM|
00000F60: 20 54 4F 20 54 48 45 20  20 4E 45 41 52 45 53 54  | TO THE  NEAREST|
00000F70: 20 20 43 45 4E 54 20 20  42 45 46 4F 52 45 0D 22  |  CENT  BEFORE."|
00000F80: 20 20 20 20 20 20 20 20  20 41 44 44 49 4E 47 20  |         ADDING |
00000F90: 54 48 45 4D 20 54 4F 20  54 48 45 20 43 55 52 52  |THEM TO THE CURR|
00000FA0: 45 4E 54 20 54 4F 54 41  4C 2E 0D 22 0D 22 20 20  |ENT TOTAL.."."  |
00000FB0: 20 20 20 20 20 20 20 CC  49 4E 45 53 20 34 37 30  |       .INES 470|
00000FC0: 2D 35 36 30 20 47 45 54  20 54 48 45 20 48 4F 55  |-560 GET THE HOU|
00000FD0: 52 4C 59 20 52 41 54 45  20 46 4F 52 20 41 4C 4C  |RLY RATE FOR ALL|
00000FE0: 20 50 52 4F 4A 45 43 54  53 20 41 4E 44 20 20 52  | PROJECTS AND  R|
00000FF0: 4F 55 4E 44 0D 22 20 20  20 20 20 20 20 20 20 54  |OUND."         T|
00001000: 48 45 4D 20 54 4F 20 54  48 45 20 4E 45 41 52 45  |HEM TO THE NEARE|
00001010: 53 54 20 43 45 4E 54 2E  20 D4 48 45 4E 20 20 4C  |ST CENT. .HEN  L|
00001020: 49 4E 45 53 20 20 35 37  30 2D 36 31 30 20 20 44  |INES  570-610  D|
00001030: 4F 20 20 41 20 20 53 49  4D 50 4C 45 0D 22 20 20  |O  A  SIMPLE."  |
00001040: 20 20 20 20 20 20 20 42  55 42 42 4C 45 20 53 4F  |       BUBBLE SO|
00001050: 52 54 20 54 4F 20 50 55  54 20 54 48 45 20 50 52  |RT TO PUT THE PR|
00001060: 4F 4A 45 43 54 53 20 49  4E 20 4E 55 4D 45 52 49  |OJECTS IN NUMERI|
00001070: 43 41 4C 20 4F 52 44 45  52 2E 20 20 C6 49 4E 41  |CAL ORDER.  .INA|
00001080: 4C 4C 59 2C 0D 22 20 20  20 20 20 20 20 20 20 4C  |LLY,."         L|
00001090: 49 4E 45 53 20 36 32 30  2D 37 30 30 20 50 52 49  |INES 620-700 PRI|
000010A0: 4E 54 20 54 48 45 20 54  4F 54 41 4C 53 20 41 53  |NT THE TOTALS AS|
000010B0: 20 54 48 45 59 27 52 45  20 43 4F 4D 50 55 54 45  | THEY'RE COMPUTE|
000010C0: 44 2E 0D 22 0D 22 20 20  20 20 20 20 20 20 20 D4  |D.."."         .|
000010D0: 48 45 20 53 55 42 52 4F  55 54 49 4E 45 20 49 4E  |HE SUBROUTINE IN|
000010E0: 20 4C 49 4E 45 53 20 37  32 30 2D 37 34 30 20 49  | LINES 720-740 I|
000010F0: 53 20 20 55 53 45 44 20  20 54 4F 20 20 46 4F 52  |S  USED  TO  FOR|
00001100: 4D 41 54 20 20 4E 55 4D  42 45 52 53 0D 22 20 20  |MAT  NUMBERS."  |
00001110: 20 20 20 20 20 20 20 49  4E 54 4F 20 44 4F 4C 4C  |       INTO DOLL|
00001120: 41 52 53 20 41 4E 44 20  43 45 4E 54 53 2E 20 CE  |ARS AND CENTS. .|
00001130: 4F 54 45 20 54 48 41 54  20 48 4F 55 52 53 20 41  |OTE THAT HOURS A|
00001140: 52 45 20 20 52 4F 55 4E  44 45 44 20 20 54 4F 20  |RE  ROUNDED  TO |
00001150: 20 54 48 45 0D 22 20 20  20 20 20 20 20 20 20 4E  | THE."         N|
00001160: 45 41 52 45 53 54 20 54  45 4E 54 48 20 41 4E 44  |EAREST TENTH AND|
00001170: 20 20 45 58 50 45 4E 53  45 53 20 20 4F 52 20 20  |  EXPENSES  OR  |
00001180: 52 41 54 45 53 20 20 41  52 45 20 20 52 4F 55 4E  |RATES  ARE  ROUN|
00001190: 44 45 44 20 20 54 4F 20  20 54 48 45 0D 22 20 20  |DED  TO  THE."  |
000011A0: 20 20 20 20 20 20 20 4E  45 41 52 45 53 54 20 43  |       NEAREST C|
000011B0: 45 4E 54 2E 20 D7 48 45  4E 20 4D 55 4C 54 49 50  |ENT. .HEN MULTIP|
000011C0: 4C 59 49 4E 47 20 54 48  45 20 48 4F 55 52 4C 59  |LYING THE HOURLY|
000011D0: 20 52 41 54 45 20 42 59  20 54 48 45 20 20 4E 55  | RATE BY THE  NU|
000011E0: 4D 42 45 52 0D 22 20 20  20 20 20 20 20 20 20 4F  |MBER."         O|
000011F0: 46 20 48 4F 55 52 53 20  46 4F 52 20 45 41 43 48  |F HOURS FOR EACH|
00001200: 20 50 52 4F 4A 45 43 54  2C 20 54 48 45 20 54 4F  | PROJECT, THE TO|
00001210: 54 41 4C 20 49 53 20 41  4C 53 4F 20 52 4F 55 4E  |TAL IS ALSO ROUN|
00001220: 44 45 44 20 20 54 4F 20  20 54 48 45 0D 22 20 20  |DED  TO  THE."  |
00001230: 20 20 20 20 20 20 20 4E  45 41 52 45 53 54 20 43  |       NEAREST C|
00001240: 45 4E 54 20 49 4E 20 4C  49 4E 45 20 36 33 30 2E  |ENT IN LINE 630.|
00001250: 20 D4 48 45 53 45 20 4C  49 54 54 4C 45 20 43 48  | .HESE LITTLE CH|
00001260: 45 43 4B 53 20 48 45 4C  50 20 20 4B 45 45 50 20  |ECKS HELP  KEEP |
00001270: 20 54 48 45 0D 22 20 20  20 20 20 20 20 20 20 46  | THE."         F|
00001280: 49 4E 41 4C 20 20 44 49  53 50 4C 41 59 20 20 46  |INAL  DISPLAY  F|
00001290: 52 4F 4D 20 20 48 41 56  49 4E 47 20 20 4F 44 44  |ROM  HAVING  ODD|
000012A0: 20 20 56 41 4C 55 45 53  20 20 54 48 41 54 20 20  |  VALUES  THAT  |
000012B0: 44 45 53 54 52 4F 59 20  20 54 48 45 0D 22 20 20  |DESTROY  THE."  |
000012C0: 20 20 20 20 20 20 20 45  58 50 45 43 54 45 44 20  |       EXPECTED |
000012D0: 54 41 42 4C 45 20 46 4F  52 4D 41 54 2E 0D 22 0D  |TABLE FORMAT..".|
000012E0: 22 20 20 20 20 20 20 20  20 20 C1 53 20 C9 20 53  |"         .S . S|
000012F0: 41 49 44 2C 20 54 48 45  20 50 52 4F 47 52 41 4D  |AID, THE PROGRAM|
00001300: 20 49 53 20 4E 4F 54 20  46 41 4E 43 59 20 42 59  | IS NOT FANCY BY|
00001310: 20 41 4E 59 20 4D 45 41  4E 53 2C 20 42 55 54 20  | ANY MEANS, BUT |
00001320: 49 54 20 20 44 49 44 0D  22 20 20 20 20 20 20 20  |IT  DID."       |
00001330: 20 20 48 45 4C 50 20 53  4F 4C 56 45 20 54 48 45  |  HELP SOLVE THE|
00001340: 20 50 52 4F 42 4C 45 4D  20 41 54 20 48 41 4E 44  | PROBLEM AT HAND|
00001350: 2E 20 C9 20 50 52 4F 42  41 42 4C 59 20 43 4F 55  |. . PROBABLY COU|
00001360: 4C 44 20 48 41 56 45 20  43 4F 4D 45 20 55 50 0D  |LD HAVE COME UP.|
00001370: 22 20 20 20 20 20 20 20  20 20 57 49 54 48 20 42  |"         WITH B|
00001380: 45 54 54 45 52 20 52 45  43 4F 52 44 20 4B 45 45  |ETTER RECORD KEE|
00001390: 50 49 4E 47 20 4D 45 54  48 4F 44 53 20 42 55 54  |PING METHODS BUT|
000013A0: 20 49 54 20 57 41 53 20  4D 4F 52 45 20 46 55 4E  | IT WAS MORE FUN|
000013B0: 20 54 4F 20 20 44 4F 0D  22 20 20 20 20 20 20 20  | TO  DO."       |
000013C0: 20 20 49 54 20 54 48 49  53 20 57 41 59 2E 20 C9  |  IT THIS WAY. .|
000013D0: 46 20 59 4F 55 27 52 45  20 4E 4F 54 20 44 4F 49  |F YOU'RE NOT DOI|
000013E0: 4E 47 20 20 43 4F 4E 53  55 4C 54 49 4E 47 20 20  |NG  CONSULTING  |
000013F0: 57 4F 52 4B 2C 20 20 59  4F 55 20 20 43 41 4E 0D  |WORK,  YOU  CAN.|
00001400: 22 20 20 20 20 20 20 20  20 20 53 54 49 4C 4C 20  |"         STILL |
00001410: 55 53 45 20 54 48 45 20  4D 41 49 4E 20 49 44 45  |USE THE MAIN IDE|
00001420: 41 53 20 46 4F 52 20 4D  41 4E 59 20 4F 54 48 45  |AS FOR MANY OTHE|
00001430: 52 20 20 54 41 53 4B 53  20 20 28 45 2E 47 2E 20  |R  TASKS  (E.G. |
00001440: 20 41 44 44 49 4E 47 0D  22 20 20 20 20 20 20 20  | ADDING."       |
00001450: 20 20 54 41 58 20 52 45  43 45 49 50 54 53 2C 20  |  TAX RECEIPTS, |
00001460: 43 4C 49 45 4E 54 20 42  49 4C 4C 49 4E 47 20 4F  |CLIENT BILLING O|
00001470: 52 20 49 4E 56 45 4E 54  4F 52 59 20 43 4F 4E 54  |R INVENTORY CONT|
00001480: 52 4F 4C 29 2E 20 D9 4F  55 20 43 4F 55 4C 44 0D  |ROL). .OU COULD.|
00001490: 22 20 20 20 20 20 20 20  20 20 55 53 45 20 4B 45  |"         USE KE|
000014A0: 59 20 57 4F 52 44 53 20  4F 52 20 4E 41 4D 45 53  |Y WORDS OR NAMES|
000014B0: 20 20 28 54 45 58 54 20  20 53 54 52 49 4E 47 53  |  (TEXT  STRINGS|
000014C0: 29 20 20 49 4E 53 54 45  41 44 20 20 4F 46 20 20  |)  INSTEAD  OF  |
000014D0: 50 52 4F 4A 45 43 54 0D  22 20 20 20 20 20 20 20  |PROJECT."       |
000014E0: 20 20 4E 55 4D 42 45 52  53 2C 20 4F 52 20 41 44  |  NUMBERS, OR AD|
000014F0: 44 20 4D 4F 52 45 20 52  45 43 4F 52 44 53 20 50  |D MORE RECORDS P|
00001500: 45 52 20 45 4E 54 52 59  2E 0D 22 0D 22 20 20 20  |ER ENTRY.."."   |
00001510: 20 20 20 20 20 20 C2 59  20 53 48 4F 57 49 4E 47  |      .Y SHOWING|
00001520: 20 59 4F 55 20 41 20 53  49 4D 50 4C 45 20 50 52  | YOU A SIMPLE PR|
00001530: 4F 42 4C 45 4D 20 41 4E  44 20 41 20 50 52 49 4D  |OBLEM AND A PRIM|
00001540: 49 54 49 56 45 20 57 41  59 20 49 4E 20 20 57 48  |ITIVE WAY IN  WH|
00001550: 49 43 48 0D 22 20 20 20  20 20 20 20 20 20 C9 20  |ICH."         . |
00001560: 55 53 45 44 20 41 20 43  4F 4D 50 55 54 45 52 20  |USED A COMPUTER |
00001570: 54 4F 20 48 45 4C 50 20  53 49 4D 50 4C 49 46 59  |TO HELP SIMPLIFY|
00001580: 20 54 48 41 54 20 20 54  41 53 4B 2C 20 20 C9 20  | THAT  TASK,  . |
00001590: 20 48 4F 50 45 20 20 C9  27 56 45 0D 22 20 20 20  | HOPE  .'VE."   |
000015A0: 20 20 20 20 20 20 45 4E  43 4F 55 52 41 47 45 44  |      ENCOURAGED|
000015B0: 20 59 4F 55 20 54 4F 20  54 52 59 20 54 48 49 4E  | YOU TO TRY THIN|
000015C0: 47 53 20 4F 4E 20 59 4F  55 52 20 4F 57 4E 2E 20  |GS ON YOUR OWN. |
000015D0: 20 C9 4E 43 4F 52 50 4F  52 41 54 45 20 20 49 44  | .NCORPORATE  ID|
000015E0: 45 41 53 0D 22 20 20 20  20 20 20 20 20 20 4F 52  |EAS."         OR|
000015F0: 20 52 4F 55 54 49 4E 45  53 20 46 52 4F 4D 20 44  | ROUTINES FROM D|
00001600: 49 46 46 45 52 45 4E 54  20 50 52 4F 47 52 41 4D  |IFFERENT PROGRAM|
00001610: 53 20 20 59 4F 55 20 20  53 45 45 20 20 49 4E 20  |S  YOU  SEE  IN |
00001620: 20 4D 41 47 41 5A 49 4E  45 53 2E 0D 22 20 20 20  | MAGAZINES.."   |
00001630: 20 20 20 20 20 20 C5 58  50 45 52 49 4D 45 4E 54  |      .XPERIMENT|
00001640: 20 41 4E 44 20 48 41 56  45 20 46 55 4E 2C 20 41  | AND HAVE FUN, A|
00001650: 4E 44 20 44 4F 4E 27 54  20 42 45 20 41 46 52 41  |ND DON'T BE AFRA|
00001660: 49 44 20 54 4F 20 54 52  59 20 41 4E 20 20 49 44  |ID TO TRY AN  ID|
00001670: 45 41 2E 0D 22 20 20 20  20 20 20 20 20 20 C9 46  |EA.."         .F|
00001680: 20 59 4F 55 52 20 46 49  52 53 54 20 41 54 54 45  | YOUR FIRST ATTE|
00001690: 4D 50 54 20 46 41 49 4C  53 2C 20 54 52 59 20 53  |MPT FAILS, TRY S|
000016A0: 4F 4D 45 54 48 49 4E 47  20 45 4C 53 45 3B 20 59  |OMETHING ELSE; Y|
000016B0: 4F 55 27 4C 4C 20 4C 45  41 52 4E 0D 22 20 20 20  |OU'LL LEARN."   |
000016C0: 20 20 20 20 20 20 41 53  20 4D 55 43 48 20 46 52  |      AS MUCH FR|
000016D0: 4F 4D 20 59 4F 55 52 20  4D 49 53 54 41 4B 45 53  |OM YOUR MISTAKES|
000016E0: 20 41 53 20 46 52 4F 4D  20 59 4F 55 52 20 53 55  | AS FROM YOUR SU|
000016F0: 43 43 45 53 53 45 53 2E  20 20 D3 4F 4D 45 54 49  |CCESSES.  .OMETI|
00001700: 4D 45 53 0D 22 20 20 20  20 20 20 20 20 20 45 56  |MES."         EV|
00001710: 45 4E 20 4D 4F 52 45 21  0D 0D 0D 0D 0D 0D 0D 0D  |EN MORE!........|
00001720: 0D 0D 0D 0D 0D 0D                                 |......          |
"         TIME BILLING         BY: ROBER
T W. BAKER               PAGE 1..."     
                             TIME BILLIN
G.."         HERE'S A SIMPLE LITTLE PROG
RAM WITH A NUMBER OF POSSIBILITIES."    
     AND A FEW IDEAS THAT CAN EASILY BE 
USED ELSEWHERE. I WROTE IT."         SO 
I COULD FIGURE  OUT  HOW  MUCH  I  SHOUL
D  CHARGE  FOR  MY."         CONSULTING 
SERVICES WITH A LOCAL CONSULTING  FIRM. 
 THE  FIRM."         WOULD AASSIGN UNIQU
E PROJECT NUMBERS FOR EVERY  PROJECT  TH
EY."         UNDERTOOK AND CODE THEM BY 
PROJECT TYPE. AT THE END  OF  EACH."    
     MONTH THE FIRM WANTED A BILL FOR TH
E TIME  I  SPENT  ON  EACH."         PRO
JECT (AT AN AGREED-UPON RATE)  AND  ANY 
 EXPENSES  THAT  I."         INCURRED.."
."         I NORMALLY CARRIED A SMALL CA
LENDAR AND SIMPLY JOTTED DOWN MY."      
   TIME AND EXPENSES EACH DAY. AT THE EN
D OF THE MONTH I'D  HAVE."         TO GO
 BACK THROUGH THE CALENDAR AND ADD UP  T
HE  FIGURES.  IT."         GOT TO BE KIN
D OF MESSY AND TIME CONSUMING, SO I  WRO
TE  THIS."         QUICK LITTLE PROGRAM 
TO HELP OUT. IT'S NOT VERY FANCY BUT  IT
."         SURE WAS HANDY THEN.."."     
    WHEN YOU RUN THE PROGRAM IT SIMPLY K
EEPS ASKING FOR A PROJECT."         NUMB
ER AND THE NUMBER OF HOURS SPENT ON THAT
 PROJECT. SO  ALL."         I'D HAVE TO 
DO IS GO THROUGH THE CALENDAR AND ENTER 
EACH ITEM."         IN THE ORDER IN WHIC
H  IT'S  FOUND.  IF  AN  'E'  IS  ENTERE
D."         INSTEAD OF A PROJECT NUMBER,
 THEN ANY  GENERAL  EXPENSES  NOT."     
    RELATED TO A  PARTICULAR  PROJECT  C
AN  BE  ENTERED.  ONCE  A."         PROJ
ECT NUMBER IS ENTERED, RESPONDING WITH '
E' INSTEAD OF THE."         NUMBER OF HO
URS ALLOWS ME TO  ENTER  THE  EXPENSES  
FOR  THAT."         PARTICULAR PROJECT..
"."         WHEN DONE ENTERING DATA, ENT
ER A 'D' FOR THE PROJECT  NUMBER.."     
    AT THAT POINT THE PROGRAM ASKS IF AL
L  PROJECTS  ARE  AT  THE."         SAME
 HOURLY RATE.  THEN  THE  CORRECT  HOURL
Y  RATE  FOR  ALL."         PROJECTS OR 
EACH INDIVIDUAL PROJECT CAN BE ENTERED..
"."         ONCE THE PROGRAM HAS ALL THE
 NECESSARY INFORMATION, IT  SORTS."     
    THE PROJECTS INTO NUMERICAL ORDER AN
D COMPUTES THE TOTAL  FOR."         EACH
 PROJECT. THE INFORMATION DISPLAYED INCL
UDES THE  PROJECT."         NUMBER, THE 
TOTAL NUMBER OF HOURS USED, THE HOURLY R
ATE,  THE."         TOTAL EXPENSES, AND 
THE  FINAL  TOTAL  FOR  THAT  PROJECT.  
A."         SEPARATE LINE SHOWS MISCELLA
NEOUS EXPENSES  NOT  RELEATED  TO."     
    ANY PARTICULAR PROJECT AND A SUMMARY
 LINE SHOWS THE  COMBINED."         TOTA
LS.."."         I NEVER BOTHERED TO PRIN
T OUT THE TOTALS SINCE I WAS  COPYING." 
        IT ONTO SPECIAL FORMS, BUT IT CO
ULD BE DONE EASILY.  SINCE  I."         
WAS DISPLAYING THE FINAL TOTALS ON THE S
CREEN, I LIMITED  THE."         PROGRAM 
TO ACCEPT ONLY 15 DIFFERENT  PROJECT  NU
MBERS  SO  IT."         WOULD FIT ON THE
  SCREEN  NICELY.  AGAIN,  YOU  COULD  E
ASILY."         CHANGE THIS IF IT WAS RE
ALLY NECESSARY.."."         LOOKING INSI
DE THE PROGRAM, THE A MATRIX RECORDS ALL
  PROJECT."         INFORMATION AS FOLLO
WS:............"         TIME BILLING   
      BY: ROBERT W. BAKER               
PAGE 2..."."              A(X,1) = PROJE
CT NUMBER."              A(X,2) = NUMBER
 OF HOURS."              A(X,3) = HOURLY
 RATE."              A(X,4) = PROJECT EX
PENSES."."         IN ADDITION, A(0,1) C
ONTAINS THE NUMBER OF DIFFERENT  PROJECT
."         NUMBERS CURRENTLY  ENTERED  A
ND  A(0,4)  CONTAINS  THE  TOTAL."      
   GENERAL EXPENSES.."."         LINES 2
90-330 GET THE PROJECT NUMBER AND CHECK 
TO SEE  IF  IT."         WAS  PREVIOUSLY
  ENTERED  BY  SCANNING  THE  CURRENT   
MATRIX."         ENTRIES. WHEN A NEW PRO
JECT NUMBER IS ENTERED, IT'S ADDED  AT."
         THE END OF THE MATRIX IN LINE  
360.  LINES  370-400  GET  THE."        
 NUMBER OF HOURS AND ROUNDS THEM TO THE 
NEAREST  TENTH  OF  AN."         HOUR BE
FORE ADDING IT TO THE CURRENT TOTAL. LIN
ES 430-450 GET."         PROJECT EXPENSE
S AND ROUND THEM TO THE  NEAREST  CENT  
BEFORE."         ADDING THEM TO THE CURR
ENT TOTAL.."."         LINES 470-560 GET
 THE HOURLY RATE FOR ALL PROJECTS AND  R
OUND."         THEM TO THE NEAREST CENT.
 THEN  LINES  570-610  DO  A  SIMPLE."  
       BUBBLE SORT TO PUT THE PROJECTS I
N NUMERICAL ORDER.  FINALLY,."         L
INES 620-700 PRINT THE TOTALS AS THEY'RE
 COMPUTED.."."         THE SUBROUTINE IN
 LINES 720-740 IS  USED  TO  FORMAT  NUM
BERS."         INTO DOLLARS AND CENTS. N
OTE THAT HOURS ARE  ROUNDED  TO  THE."  
       NEAREST TENTH AND  EXPENSES  OR  
RATES  ARE  ROUNDED  TO  THE."         N
EAREST CENT. WHEN MULTIPLYING THE HOURLY
 RATE BY THE  NUMBER."         OF HOURS 
FOR EACH PROJECT, THE TOTAL IS ALSO ROUN
DED  TO  THE."         NEAREST CENT IN L
INE 630. THESE LITTLE CHECKS HELP  KEEP 
 THE."         FINAL  DISPLAY  FROM  HAV
ING  ODD  VALUES  THAT  DESTROY  THE."  
       EXPECTED TABLE FORMAT.."."       
  AS I SAID, THE PROGRAM IS NOT FANCY BY
 ANY MEANS, BUT IT  DID."         HELP S
OLVE THE PROBLEM AT HAND. I PROBABLY COU
LD HAVE COME UP."         WITH BETTER RE
CORD KEEPING METHODS BUT IT WAS MORE FUN
 TO  DO."         IT THIS WAY. IF YOU'RE
 NOT DOING  CONSULTING  WORK,  YOU  CAN.
"         STILL USE THE MAIN IDEAS FOR M
ANY OTHER  TASKS  (E.G.  ADDING."       
  TAX RECEIPTS, CLIENT BILLING OR INVENT
ORY CONTROL). YOU COULD."         USE KE
Y WORDS OR NAMES  (TEXT  STRINGS)  INSTE
AD  OF  PROJECT."         NUMBERS, OR AD
D MORE RECORDS PER ENTRY.."."         BY
 SHOWING YOU A SIMPLE PROBLEM AND A PRIM
ITIVE WAY IN  WHICH."         I USED A C
OMPUTER TO HELP SIMPLIFY THAT  TASK,  I 
 HOPE  I'VE."         ENCOURAGED YOU TO 
TRY THINGS ON YOUR OWN.  INCORPORATE  ID
EAS."         OR ROUTINES FROM DIFFERENT
 PROGRAMS  YOU  SEE  IN  MAGAZINES.."   
      EXPERIMENT AND HAVE FUN, AND DON'T
 BE AFRAID TO TRY AN  IDEA.."         IF
 YOUR FIRST ATTEMPT FAILS, TRY SOMETHING
 ELSE; YOU'LL LEARN."         AS MUCH FR
OM YOUR MISTAKES AS FROM YOUR SUCCESSES.
  SOMETIMES."         EVEN MORE!........
......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL