Casio FP-200 - Page 57

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 title [ < '" J [ ::: >· J"
1190 PRINT "Rc-=!m-"wal file [ Y l"
l2CZl0 F'RINT "Cancel [NJ"
1210 P~l~GOTOl260
1220 GOSUB 1620
-BUSINESS.J
61