Casio FP-200 - Page 55

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
LIST 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
F 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
59