0 'EXPENS.BA - AUTHOR UNKNOWN 1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLEAR2000:DEFINTA-Z:CLS:PRINT"Expense Report":GOSUB9:OPEN"note.do"FORINPUTAS1 3 IFEOF(1)THEN7 4 LINEINPUT#1,IN$:IFMID$(IN$,1,1)="$"THENGOSUB8 5 IFMID$(IN$,1,1)="$"THENV!=VAL(MID$(IN$,2)):T!=T!+V! 6 GOTO3 7 CLOSE#1:PRINT#2,:PRINT#2,USING"Total Expenses to date: $####.##";T!:LINEINPUT"Press ENTER";IN$:MENU 8 PRINT#2,IN$:RETURN 9 PRINT:LINEINPUT"(P/S) Printer/Serial - screen default: ";LC$:IFLC$=""THENPR$="LCD:":GOTO13 10 IFLC$="s"ORLC$="S"THENPR$="COM:57ILE":GOTO13 11 IFLC$="p"ORLC$="P"THENPR$="lpt:":GOTO13 12 GOTO9 13 OPENPR$FOROUTPUTAS2:IFLC$<>""THENPRINT#2,"Expense Report prepared: "DATE$ 14 RETURN