Atari 400

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 BE I~ 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 ·l E
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 · lT=\'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· 1SG$=t · 1SG1$: GO~:;UB :31fi0
10'20 OUiSTAt·~O=OUiSTAr·i[H-At·1C;U r H
1030 F.~ETURN
2000 REt1 OLD DEPOSIT -- ST! LL HOT CREDIT
EO
201(1 M :3 G$=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