Melessence, Now let them say, We can't check it

[geraldkrug]

This is straight out of my book so if you think I don't own the
cashregister biz, think again.
CHA CHING; to me of course...

http://runbasicnet.com:8034/seaside/go/runbasicpersonal?app=supbizregister

[gerald krug]

CHECK IT

(new day)
CLEAR ALL,O?0
TYPE 1,FOR DAILY TOTALS?0
(new sale)
ITEM CHARGE BEFORE TAX?12
IF NON-TAXABLE,1?3
TAX%,.065?.065
AMT+TAX12.78
AMT REC?13
RE-DO AMT REC,1?5
CHANGE=0$ 0Q'S 2DIMES 0NICKEL 2.0PENNIES
RE-DO All,1?4
COST OF ITEM?11
GROSS PROFIT1.78
TOTAL TAX0.78
TOTAL RECIPTS1
DAILY EXPENCES?1
NET PROFIT0.0d
CLEAR ALL,O?1
TYPE 1,FOR DAILY TOTALS?1
GROSS PROFIT1.78
TOTAL TAX0.78
TOTAL RECIPTS1
NET PROFIT0.0d
CLEAR ALL,O?3
TYPE 1,FOR DAILY TOTALS?3
(new sale)
ITEM CHARGE BEFORE TAX?

[gerald krug]

PAY ME FOR 15 YEARS OF
INFRINGEMENT...

1 PRINT "Clear All?,0: Enter 0, accept
again
Enter 0, accept
enter total charges; no tax, accept
enter 2 if total charge is to have tax added; 1 if not, accept
enter tax % .065, accept
enter amount received, accept
enter 1 to re-do or 2 to go on, accept
enter cost of items sold, accept
enter approx. daily business expences, accept
enter 1 to review; 0 to continue, accept
enter 0 or 2, accept
enter 1 or 2, accept"

5 GOTO 209
10 X=0:T=0:G=0:A=0:B=0:Q=0:D=0:E=0:H=0:P=0:R=0:S=0:U=0:C=0:J=0:O=0
11 F=0:K=0:Y=0:W=0:M=0:Z=0:A$="":B$="":N=0:V=0:Y=0:Q=0:K=0:I=0:L=0
15 INPUT "TYPE 1,FOR DAILY TOTALS";Q:IF Q=1 THEN GOTO 187
17 REM MODE 7 TURN ON PAPER PRINT OUT
20 INPUT "ITEM CHARGE BEFORE TAX";X:K=K+X:H=X
21 REM MODE 8 TURN OFF PAPER PRINT OUT
22 INPUT "IF NON-TAXABLE,1";J
23 IF J=1 THEN GOTO 30
24 IF S>0 THEN GOTO 27 rem tax percentage has been input
25 INPUT "TAX%,.065";S
27 X=(X*S)+X:GOSUB 500 REM MODE 7 PAPER PRINT AMT+TAX,X MODE 8
28 PRINT "AMT+TAX"; X;
30 F=X-H REM MODE 7
32 INPUT "AMT REC";T REM MODE 8
35 INPUT "RE-DO AMT REC,1";E:IF E=1 THEN K=K-X:F=F-S:GOTO 28
41 B=0:B=INT(T-X)
51 A=0:A=(T-X)-B
60 IF A<.25 THEN GOTO 90
70 O=O+1:A=A-.25
80 GOTO 60
90 IF A<.10 THEN GOTO 120
100 D=D+1:A=A-.10
110 GOTO 90
120 IF A<.05 THEN GOTO 150
130 N=N+1:A=A-.05
140 GOTO 120
150 P=A*100:IF P<0 THEN A=0
159 REM MODE 7
160 PRINT "CHANGE="; B; "$ "; O; "Q'S "; D; "DIMES "; N; "NICKEL"
170 PRINT " "; P; "PENNIES ";
174 REM MODE 8
175 INPUT "RE-DO All,1";E:IF E=1 THEN K=K-X:F=F-

S:B=0:Q=0:D=0:N=0:P=0:R=0:U=0:A$="":B$="":V=0:X=0
176 IF E=1 THEN GOTO 20
180 REM MODE 7
181 INPUT "COST OF ITEM";Y
182 REM MODE 8
183 I=I+F
185 Y=ABS((K+F)-Y)+W
186 C=C+1
187 W=Y
188 REM MODE 7
190 PRINT "GROSS PROFIT"; W
192 PRINT "TOTAL TAX"; I
193 PRINT "TOTAL RECIPTS"; C
194 IF L>0 THEN 196 rem daily expences already has input
195 INPUT "DAILY EXPENCES";L
196 IF W>L THEN M=(W-I-L):GOTO 198 rem W=profit with tax I=tax
L=expences
197 IF W<L THEN M=(L-W+I):GOTO 199
198 PRINT "NET PROFIT"; M:GOTO 209
199 PRINT "NET LOSS"; M:GOTO 209
200 REM MODE 8
209 INPUT "CLEAR ALL,O";Z:IF Z=0 THEN GOTO 10
212 GOTO 15
500 R=INT(X) REM SUB ROUTING TO REMOVE FRACTION OF CENT
510 U=X-R:R=0
520 A$=STR$(U):B$=MID$(A$,5):V=VAL(B$)
530 R=V*.0001:X=X-R
540 RETURN

[gerald krug]

That Man Got ISSUES

[gerald krug]

What would you rather own?
The Money or How we all process money?

http://boughtupcom.freeservers.com/GDKPB52.gif
http://boughtupcom.freeservers.com/GDKPB52B.gif

[gerald krug]

Of course from this platform you can add the kitchen sink of bells and
whistles but the seed remains the same, forever...

[gerald krug]

You can imagine how I felt when the Government Ok'd my copyright on
this.
And now you know the unrest to my story.