Advertisement
r:BUDGET C O N T R O L - - - - - - - - - - - - - - - - - - - - - - - -
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 t i t l e
[<-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.
Advertisement
