home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
bus
/
expens.100
< prev
next >
Wrap
Text File
|
2006-10-19
|
733b
|
16 lines
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