_Title "Adding machine, use c to clear total, enter again to repeat an add, R to review tape" 'B+ 2019-08-20 ' 2022-04-04 overhaul with input Cents (no decimal)
row = 0
Locate 25, 1:
Input "Enter Cents Amount (no decimal), q to quit "; test$
quit = -1
row = 0
show tape()
ElseIf test$
= "" Then ' just enter then repeat last amt
addAndDisplay:
total = total + amt
s$
= dollars$
(amt
) + Space$(20 - Len(dollars$
(amt
)) - Len(dollars$
(total
))) + dollars$
(total
)sAppend tape(), s$
row = row + 1
AndDisplay:
s$ = sign$ + "0.0" + s$
s$ = sign$ + "0." + s$
dollars$ = s$
allNumber% = -1
'append to the string array the string item
If ub
- lb
+ 1 < 21 Then top
= ub
Else top
= lb
+ 19 Cls:
Print "press any key to quit scroller..." If row
> ub
- 19 Then row
= ub
- 19 'prevent over scrolling If prevrow
<> row
Then 'look for a change in row value Cls:
Print "press any key to quit Review of tape..." prevrow = row 'store previous row value