Casio FP-200 - Page 31

BUSINESS_]
530 REM*** Entry List***
540 INPUT"Sc:reen (1) or- Pr·ir,lE:t C?)";l
550 IF Z()l AND z~>2 THEN 530
560 P=1:0N Z GOTO 570,660
570 PRINT "Press f.:ETURN ki:!y <'.<.ndpr-oc;.:.ied to nti:< 1.:. sf-.
ep"
580 IF INKEYS<>CHR$(13) THEN 580
590 CLS:I=l
600 IF FL(0,P,1)="" THEN 640
610 PRINT USING"#it# ~, ~,.#tl=#ttlttt";P,FL<.0,P,1)
FL (0, P, 2)
620 P=P+l:I=I+l: IF I<B THEN 600
630 IF INKEYS=CHR$(13) THEN 590 ELSE 630
640 PRINT "END": F'RINT" <F'USH RETUG:N l:T::Y>"
650 IF INKEYS=CHRS(13) THEN RETURN ELSE 650
660 PRINT "Connect printet- on--1 ine and pr-e·;;s
RETURN key"
670 IF INKEYS<>CHRS(13) THEN 670
680 LPRINT :L.PRINT " Entr-y List ";DATE<f,:LF'R
INT:LPRINT " Na. Product name Unit pt-ice"
690 IF FLrn,P,1>="" THEN 710
700 LPR I NT us I NG"#### ~~ ~~ ttftft##tl"; F', FL (
0,P,1) ,FLC0,P,2J:P=P+1:GOTO 690
710 LF'RINT :LPRINT "END":RETURN
720 REM*** END***
730 END
lnputdatastoredinCETL File Name:ESTIMATE
Number of Rec.:3
Number of Item:2
Label Record
Iteml:PRODUCT
Type(N/S) :N
E;-:pressi on -:>
Format : ~ ~<
Item2:UNIT
Type(N/S) :N
E;-:pressi on -:>
Format :ttfftttttt#
35