Atari 400 Basic Reference Manual page 98

CHECKBOOK
BALANCER
APPENDIX H
USER
PROGRAMS
This appendix contains programs and routines that demonstrate the diverse
capabilities of the Atari Personal Computer System. Included in this appendix is
a Decimal/Hexadecimal program for those users who write programs that re-
quire this type of conversion.
This is one of the "traditional" programs that every beginning computerist
writes.
It
allows entry of outstanding checks and uncredited deposits as well as
cleared checks and credited deposits.
10 0 I t1
A$(
30 )
1
t1SG$( 4~) ) ~ t·1SG 1 $( 30 ) . . t·1SG2$( 3
0 )
I
t1SG3$(
30 )
I
t· 1 SG4$( 30 ) · ' t·1SG5$(
30 ) ·'
t1SG6$(
3
0)
2e OUTSTAt-10=0
30 GRAPHICS 0 :? : .,
11
CHECKBOOK
BALAt·~
CER" =?
40 ? "Y•:•u
ma~i
lftake cor·r·ections
at.
arr:::~
t.i
me
b~
enter·
in~
a
ne~a
t.l
1
.)e do
1 1
ar· •,.•a
1
ue .
II
50 t·1SGU="OLO CHECK --
~;TILL
OUT::;TAt·[lWG
"
60 t1SG2:f.=
11
0LO DEPO:::IT -- t·iOT CREDITED
II
70 t1SG3$= "OLD CHECK -- .JU::;T C:LEAF.:ED
II
80
t1SG4$=
11
0LD DEP0:3IT -- JU3T CREDITED
II
90 t-1SG5$::: "t·B·J CHECK (OR
SEf.~t.)
ICE CHAPGE)
II
100
t·1SG6$=
11 1' - -EW
DEPOSIT
< OR
INTEREST )
II
150
TRAP
1:.0
=? "Enter· be9innin9 ba
h.nce
f r·Ot)., ~our· check bo•Jk
11
.: :
I
HPUT '/OUF.:BAL
160 TRAP 160:
·"?
"Enter·
be9innire ba h.na:e
fr·c•tn
~our·
bankst.atelitent
11
.: :
WPUT
BAt·~KE:AL
165 TRAP 40000
170 GOTO 190
100
CLOSE
#1 :?
"FRit-H~:
IS
NOT
OPERATIOt~
AL. 11
185
?
"PLEA:;£ CHECK CONNECTORS . "
190
PEF.:r·1=0
200 ? "Would
~ou
1 ike
a Per·manent.
r·ecor·d
on the .=·r inter·"; : INPIJf A$
210 IF LHKA$)=0 THEN 200
Appendix
H-1