Atari 400 Basic Reference Manual page 99

H-2
Appendix
22f1 IF A:t< 1
J
1
)=II
t-f'
THHl 4(10
230 IF A:t( 1 . . 1 ){
>!''r'"
THEH 200
240 TRAP 180
250 LPF.~ I
r·H :
F::8"1 TE~:T
PR I
r·-iTE~:
260 PERt-1:=1
280
LPF.: I t·n
II
YOU
F. :
BEG I
t·.tt
1
r
r·iG E;,;Ui!·iCE I::;
:t
•!
.i
YOU~:E:AL
f'90 LPR I f·~T
u
EAt·4~< ~3TATEt·1Et·~T BEI~
I
r-~~-~
I
~·~G BAL
At·CE
r s
$" .;
BANI< BAL , LPR
I
t·n
400 TPAP 400 :?
:?
"Chu.:t$e o:•ne of the f eo 1
lowin~:"
41
a
? " (
1
::o
!I ;
tt::G 1
z
415
·t· "(
2)
II
j
tt3(~2$
4~'0
·;.·
11
(
3 )
n
.i
f1SJ~3$
425
·t
430
·::·
435 '?
440
""?
49ft
.-
.
•
II(
4)
II{ c:" •• 1
'..J .•
11(6)
"( 7)
II;
t·1SG4$
II
;MSG5:t
II
;ftSG6$
DOt·lE 11
500 INPUT H : IF
t~<
1 OR
t·~
>7
THEt-~
400
505 TRAP
4fl~i€10
510 ON H GOSUB 10~30 . . 20(10 .. 30;3[1 , 4;300 .. 5€10(1,
600f1
J
7[~)0
5~'0
i1SG$=
II
t·lH~
CHECKBOOK
BALAt·iCE Is
II :
At10Ut· l T=\'OUF.:8AL; GOSUB :3000
539
t1SG$="t·lEJ.~
E:ANK
STATH1EHi
BALAt·~CE
IS
II :
At10Ut·lT =8ANK8HL ; GOSU8 8000
540 r·1SG$=
II
our::::r
A~~o
1 t·iG
cHEo:s-DEPos r
TS=
II :
At10UNT=OUT:3iA~~D : GOSUB :30(10
545 IF PERt· 1 THEt·i LPR I
t·H
550 GOTO 400
1000
REt·1 OLD
CHECK
-- ::;TILL
OUT::;TAr·[!!t-~G
1010 t· 1 SG$=t·1SG1$: GO~:;UB :31fi0
10'20 OUiSTAt·~O=OUiSTAr·i[H-At·1C;UrH
1030 F.~ETURN
2000 REt1 OLD DEPOSIT -- ST!
LL
HOT
CREDIT
EO
201(1 M :3G$=t1SG2$: GOSUB
:::1t1~3
2020
OUT::;TAt·[I=OUT:::TAt·~- At·lOUr·n
2030
~:ETURt·~
3W3 REr-1 OLD CHECK --
.J ...
r.:;T
CLEAF.:EO
3010 MSG$=tt3G3$
=
GOSUE: :::10t1
3020 BANKBAL =E:ANKE:AL-At"Kll_ir·H
3030
F.:ETURt·~
4000 REt1 OLD DEPOSIT -- JUST CREDITED
4010 t1SG$=tt3G4$: GOSUE: 8100
4020 E:At·~KE:AL
=E:AHK8AL
+At· 1 0Ur·H
4030
RETURr~
5000 REt1 NEl·l CHECK (
0~:
:3ERl..J ICE CHAPGE ::: -
- JUST
CLEA~£0
5010
t1SG$=tt3G5$: GOSUE:
81£10
5020 'lOURBAL =YOUR8AL -AnOUNT