Atari 400 Basic Reference Manual page 100

5030 ?
II
I:; t·~El·J
CHECl::
srI LL our::;TAr·iO HiG" . •
:
It~PUT
A$
5040 IF LEt·K A:t
)=(1
THD·~
5f13(i
5050 IF A$( 1, 1 )(
>II
N" THEt·~ $)60
5055 E:AHKBAL=8At· i KBAL-At10Ut·H
5057 IF
PERt·1
Th'H~
LPF.: I t·H "CHECK HA::;
CLE~I
RED .
II
5058 RETURt·4
5060 IF A$( 1, 1
){>nyu
THH~ 5£130
5070 OUTSTANO=OUTSTAt·ntAt·10UNi
5075 IF PERt·1 THHi LPRit-IT "CHECK IS STILL
ouTSTAHD
It·~~
.
II
5080
F.:ETURr·~
60€10 RH1 ~lB·l
OEPOS IT ( OR I
t~TEPEST
) -- ..JU
ST
CF~ED
I TED
6010 11SG:t=r-t3G6$: GOSUB 8100
602~1 'iOURBAL=\'OUF.:E:AL +AmUt·H
603(1
? 11 HAS
'lOU~:
HEl·J
OEP0:3
IT
BEH~
CREDIT
ED"; :INPUT
A$
6040 IF LHK A$ )=0
THH~
6030
605(1 IF A$( 1 ·' 1
){
> . . . . . . .
II
THH~ 606~Z1
6052
E:At~K8AL=E;At·iK8AL
+At·10Ut·H
6053 IF PERt1 THEt-i LPF.: I
NT
"DEP0:3 IT
HA::;
BE
EN CRED I TEO .
II
6055
F~ETURt·l
6060 IF A$( 1 ·' 1 )(
>II
N
!I
THH~ 6030
6070 OUT:3TAt·iD=OUTSTAt·iD-At·10Ut-H
6075 IF PERt·l THEt·4 LPR I
HT 11
OEPO::; IT HA:3 t·iO
T BEEt·~ CF.:EO ITEO .
II
6080
F.:ETURr~
7000 F.H1 [RJt·iE
7010
?
11 BAt·lK Is
BALAt·~CE t-Ht·tu~;
(
oursTA~iOI H
G CHEC!<:3-DEPOS I T:3 ) SHOULD
r·~m·J
E@JAL
YOURCHECKBOOK BALAt·iCE .
u
7020 D!F='/OUP8AL
-(8At·iKE:AL-OUT::;TAt· 1 D )
7030 IF
OIF< >0 THH~
7040
7035 ? "
r s
$
11
i
BAt·il<BfiL
.i
II THE Er·{D I ~·~G
BALAt·i
CE Ot-i 'r'OU~: BAHK STATEt-1Et-H
II ,; :
! t·4F' U T
A$
7036 IF LHK A$
)=(1
THEt~
7035
7037 IF A$( 1 .. 1
)=
11 Y"
THE~
?
' 1 COt·iGP~1TULATI
ms : 'lOUP CHECKBOOK BALAr· i CE::; ! " : a10
703:3 GOiO 706t]
7040 IF
OIF:::{1
THEt-i
?
11
\'0UP CHECKBOOK TOT
AL
IS
$"
;OIF;
II
Ol,IEF~
'lOUR
t:At·~r<'S TOTAL .
n
:GQTO 7060
7050 '? "'r'OU~: CHECKBOOK TOTAL IS
$n;
-OIF;
II Ut·iDER ''i'OUF.:
BAt· i K
Is TOTAL .
!!
7060 · - : : ·
~~~~OULD ~~ou
LIKE TO t·1AKE COF.:F.:ECiiO
t·iS'?
11
7070 ·{ II REt1Et18EF.: ·' 'lOU CAt·i ENTEF.:
A
~·iEGAT
I
l)E DOLLAR I..JALUE TO
t1AK£ A
CORRECT
I
ON .
II
Appendix H-3