Advertisement
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#
Advertisement
