Sharp PC-1500 - Page 174

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
PROG RA M
BI LL IN G LEDGER ANO LI ST
PROGR AM N O.
4
TITLE P5- D-27
[ Key Operat ion Proced ur e ]
Ste p No. Input Display I Remarks
27
I -1
H- 66 No input this time.
QTTY= -
28
6 l !NWO I
PRODUCT CODE= -
N ew product to be rcgi stertd.
29
J- 77 I E NWI I
PR ICE=
3 () 3500 I ENWt I QTTY=
31
2 IENWt l PRODUC T CODE =-
Set cassette tape for sav·
32 1-1
TAPE OUT OK (Y IN)= -
ing.
33
y
I 1HT111 I
END? (Y /N)
34 y I •NT •• I
>
35
loul [D
CUSTO M ER CO D E= -
Re peat
Set cassette ta pe for load·
36
G-55 I INT .. I
TAPE IN OK? (Y/N)=-
ing data.
37
vl-1 G 55
•
• •
. . .
•
. .
4 ()
C US T OMER COD E= -
41 I ENWt I
>
End
I Program Li st I
5: "A ": CLE AR
:
30 :1NPUT "T AP E IN
1
50 : IN PUT " PROO . c
WAI T
0
OK
?(Y/N)
"; x
ODE= "; 8$C ll:Z =
1 0:DI M 8$<13 9),0 <
$
0: G OTO 1 65
139>, B< 139> 40: IF
X$ ( )"Y"G DT O
160:GO
TO 245
11 : LF
2 30
! 65 :1 NPU T "PRICE= "
12 : USI NG : LP R IN T 50: IN PU T llA$;8$ <*
; T
"*
BI LL ING LE O
>, D<*>. B<* >
170 : 1NPU T
11
QTTY = ";
GE R
*"
80 : LF
I
s
13 : IN PUT "ENO ?( Y 1 40: USI NG : L PR INT 1 90:E =S*T
/
N)
"; W$
U *. II j f=\ $ j t•
*"
195:L PRINT
8$(1 )
1 4: 1 F W$= "Y"G OTO
143: FOR 1=0TO 139
19/ ! l F Z =lL PRlNT
"
390 145: IF V$ ="Y "60 TO
il ";USI NG
"11111111
15: IN PU T "N EW ?C Y
I 50
1111 1111 1111 11 11 11 11 , 1111 11
/N) II ; Y$
14 6: IF
8$ <
I > < >""
" ;O( J) : GOT O
21
2
0: INP UT
"C US TOME
LET
Z= J :PAUS E
0
R
CO DE=";A$:
8$
( l > : I NPUT
" Q
GO TO 27
TT Y= " ;S :E=St 0(
25 : GO TO 245
! >:GOTO 195
2 7: I F
Y$= "Y"G OTO
14 7: IF
0$ <I > =""
80
GO TO 150
! 48: GO TO 240
(T o be continu ed )
Do not sale this PDF !!!
-16 8-