Advertisement
BUSINESS.J
UST 1
10
OPEN NS FOR OUTPUT AS #1
LIST 1
84
Bytes
UST 2
5182
Bytes
2121
30
40
FOR A
=
1 TO 1"'
~nly necessary f~r creating
INPUT "FILE NAME";N$
]
'
'lJ
file for the first-time
PRINT #1,"*":NEXT
50 CLOSE
IST 2
11210 · Budget control
110
120 FIELD#1,3 AS AlS,13 AS 81$,8
AS
C1$,8 AS D1$,
1 AS El$
130 FIELD#2,3
AS
F1$,1
AS
81$,8 AS H1$,8 AS I1$,8
AS J 1
$ ,
8
AS
f(
1
$
140 GOTO 760
150
160 CLS;GOSUB 1630
17121 OPEN "MAIN" AS #1
180 ME=LOF <
1)
190 OPEN "DATA" AS #2
200 DE=LOF(2)
210 GOSUB 1650
220 P=l
230 GET #1,P
240 IF El$="*" THEN P=P+1:IF P<ME THEN 230 ELSE 7
60
250 GOSUB 520:LOCATE 0,7:PRINT "Mave[CursarJ
MenuCEJ";
260 Q=l
270 GET #2,Q
280 IF VAL<F1S><>VAL<A1$)
OR
G1$="*" THEN Q=Q+1: I
Q{DE THEN 270 ELSE
760
290 GOSUB 570
300 GOSUB 1620
310 Z$=INKEYS:IF Z$=
11
"
THEN 310
320 IF Z$=
11
E
11
THEN CLOSE :GOTO 760
330 GOSUB 1630
340
IF ZS=CHRS(28) THEN P=P+1:T=0:GOTO 390
350 IF ZS=CH~S(29) THEN P=P-1:T=l:GOTO
440
360 IF Z
$::::CHR$
<
30) THEN Q==Q-1 :.GOTO 460
370 IF Z$=CHR$(31) THEN Q=Q+l:GOTO 490
Advertisement
