home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / expens.100 < prev    next >
Text File  |  2006-10-19  |  733b  |  16 lines
  1. 0 'EXPENS.BA - AUTHOR UNKNOWN
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLEAR2000:DEFINTA-Z:CLS:PRINT"Expense Report":GOSUB9:OPEN"note.do"FORINPUTAS1
  4. 3 IFEOF(1)THEN7
  5. 4 LINEINPUT#1,IN$:IFMID$(IN$,1,1)="$"THENGOSUB8
  6. 5 IFMID$(IN$,1,1)="$"THENV!=VAL(MID$(IN$,2)):T!=T!+V!
  7. 6 GOTO3
  8. 7 CLOSE#1:PRINT#2,:PRINT#2,USING"Total Expenses to date: $####.##";T!:LINEINPUT"Press ENTER";IN$:MENU
  9. 8 PRINT#2,IN$:RETURN
  10. 9 PRINT:LINEINPUT"(P/S) Printer/Serial - screen default: ";LC$:IFLC$=""THENPR$="LCD:":GOTO13
  11. 10 IFLC$="s"ORLC$="S"THENPR$="COM:57ILE":GOTO13
  12. 11 IFLC$="p"ORLC$="P"THENPR$="lpt:":GOTO13
  13. 12 GOTO9
  14. 13 OPENPR$FOROUTPUTAS2:IFLC$<>""THENPRINT#2,"Expense Report prepared: "DATE$
  15. 14 RETURN
  16.