Cls

810 PRINT TABC0)"DAY"5 TABC10)"SALES"?TABC20)"HOURS""TAB(27)"WAG

ES""TABC35)"WG COST""TABC47)"SPMH" 820 PRINT STRINGSC63,"-")

830 PRINT TABC0)"SUN"5TABC10)SA?TABC 20)H1;TABC 27)W1?TABC35)P1+1 00"TAB C 47)F1

840 PRINT TABC0)"MON"5TABC10)SB?TABC20)H2?TABC27)W25TABC35)P2*1 00"TABC47)F2

850 PRINT TABC0)"TUE""TABC10)SC5TABC20)H3"TABC27)W3? TABC35)P3*l 00"TABC47)F3

860 PRINT TABC0)"WED"* T AB C 10) SD ? TABC20)H45TABC27)W4"TABC35)P4*1 00?TABC47)F4

870 P RINT TAB C 0)"THU" ; T AB CI 0 ) SE ? TAB C 20)H5 5 TAB C 27)W5 ? TAB C 35) P5*1 00"TABC47)F5

830 PRINT TABC0) "FRI " ; TAB C10) SF5 TAB C20) H6TAB C27)W6 5 TABC35) P6+1 00"TABC47)F6

890 PRINT TAB C 0)"SAT"5 TAB C10)SG;TAB C 20)H7!TAB C 27)W7 ?TAB C 35)P7*1

00;TABC47)F7 900 T1=SA+SB+SC+SD+SE+SF+SG 910 T2=H1+H2+H3+H4+H5+H6+H7 920 T3=W1+W2+W3+W4+W5+W6+W7 930 T4= CT3/T1) 940 T5=INTCT1/T2) 945 PRINT STRINGSC63»"—")

950 PRINT TAB C 0)"TOTAL" ; T AB C 10) T1;TAB C 20)T2 ? TAB C 27)T3 ? TAB C 35)T4

*100?TABC47)T5 960 PRINT STRINGSC63, "-")

965 PR I NT "SALES INCREASED BY ";S0*100?" %"■> "AVG. HOURLY WAGE = $" ?HW

990 PRINT "WOULD YOU LIKE TO RE-RUN IT CYES OR NO)"?AS 1000 INPUT AS

1010 IF AS="YES" THEN 10 ELSE 1020 1020 CLS

1030 PRINT "BYE-BYE":FORZ=l TO 2000¡NEXT 1040 CLS 1050 END

PRINT MONEY WITH YOUR TRS-80!

If you have a TRS-80 disk system, you already own "Money Machine". It can "print money" for you and your family... and do it legally.

Virtually every business in your community has customer and prospect lists... people and companies that they should send mailings to on a regular basis But, they seldom do. In a typical business, these names and addresses are totally disorganized and seldom used., even though they represent a valuable sales tool.

0 0

Post a comment