Casio FP-200 - Page 60

r:BUDGET CONTROL------------------------
64
2050 CLS:PRINT
11
*** Delete *'M*
11
2060 PRINT
2070 PRINT TAB(2); "(1] Delete title"
2080 PRINT
2090 PRINT TAB(2);"C2J Menu"
2100 Z$==INKEY$: IF Z$=
11
"
THEN 2100
2110 Z=VAL<ZSJ:IF Z<l OR Z>2 THEN 2100
2120
ON Z GOTO 2130,760
2130 CLS
2140 GOSUB 163(2)
2150 OPEN "MAIN" AS #1
2160 ME=LOF(l):IF ME<l THEN 1660
2170 CLS:LOCATE 0,3
2180 PRINT "Select title [<-J-[->J"
2l90 PRINT "Delete title [YJ"
2200 PRINT "Cancel CNJ"
2210 P=1:GOTO 2260
2220 GOSUB 1.620
2230 5=1:GOSUB 1480
2240 IF P<1 THEN P=ME
2250 IF P>ME THEN P=1
2260 GET #1,P
2270 IF E 1 $=" -11·" AND T=0 THEI" P=F'+ 1 : GOTO 2240
2280
IF E 1 $== "*" AND T= 1 THEN P===F'·-1 : (30TO 2240
2290 GOSUB 540
2300 GOTO 2220
2310 RSET E 1 ~,=
11
ii·
11
:
F'UT it 1 , P: CLOSE # 1 : GOTO 204(/)
LDEBUGI
An SN error dufing program execution indicates an error in the line currently
displayed. However, any other error which occurs during program execution
may indicate an error in a line other than the line currently displayed.
If an error occurs after the menu is output, it is advisable to check the line
(routine) to which a jump was made from the ON ... GOTO statement following
the routine to display the menu. Lines 850 and 930 are examples of lines which
are to be checked first.
The routine for printout is included in lines 1800-1940.