Advertisement
780 F'RINT
TAB(2);"[1J
Sto,,.-p"
79121
PRINT
TAB(2)_:"[2J Di~;pluy"
800 PF·-:INT TAB(2); "[3J Dt~let£~"
81.IZl PRINT TAB(2); "(4] Print"
820 PRINT TAB(2);"[5J End"
830 Z$==INf(EY$: IF
l$=:""
THEN 1330
840 Z=VAL(Z$):IF Z<l OR Z>5 THEN 830
850 ON Z GOTO 870,150,2040,1700,860
860 CLS:END
870
880
CLS:PRINT
"IHH(
STORING
IHt•"
890
PRINT
900 PRINT "[lJTitle of account"
910
PRINT
"[2JBudqet
ci:-a:ecu.tion";
920
F'nINT
"[3JMenu"
930 Z$==INf(EY$: IF
Z$===""
THEN
9.30
940 Z=VAL(Z$): IF Z<1 OR Z>5 THEN 930
950 ON Z GOTO 960,1120,760
960 CLS
970 GOSUB 1630
980 OPEN "MAIN" AS #1
990 ME=LOF(l):P=ME+l:IF P<l THEN P=l
1000
A$=STR$(P)
1010
CLS:PRINT "---STORING---"
1020 INF'UT "Title of account";B$
1030 PRINT "Budget";TAB(10);:INF'UT C$
1040
D$=-C$
1050 LOCATE 1,7:FRINT
"iHHHt
Ol:::?[Y/NJ -!(•*-!(";
1060 Z$=INKEY$: IF
Z$=:""
THEN 1060
1070 IF Z$="N" THEN CLS:GOTO 1010
1080 GOSUB 1640i
1090 GOSUB 1560
l H'.l0 F'UT
ft
1 , P
1110 GOTO 1310
1120 CLS
1130 GOSUD 1630
1140 OPEN "MAIN" AS #1
1150 ME=LOFCll: IF ME<l THEN 1680
1160 CLS
1170 LOCATE 0,.3
l
180
FR I
NT "Se 1 ec
t
t i t l e
[
< '"
J [ :::
>·
J"
1190 PRINT "Rc-=!m-"wal file [ Y l"
l2CZl0
F'RINT
"Cancel
[NJ"
1210 P~l~GOTOl260
1220 GOSUB 1620
-BUSINESS.J
Advertisement
