Sharp PC-1500 Applications Manual page 174

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
BI LLING LEDGER ANO LIST
PROG RAM NO.
4
TITLE
P5- D-27
[ Key Operation Procedure ]
Step No.
Input
Display
I
Remarks
27
I -1
H- 66
No input this time.
QTTY=-
28
6 l !NWO I
PRODUCT CODE=-
New product to be rcgistertd.
29 J- 77
I
ENWI
I
PRICE=
3()
3500
I ENWt I
QTTY=
31
2
IENWt l
PRODUCT CODE =-
Set cassette tape for sav·
32
1-1
TAPE OUT OK
(YIN)=-
ing.
33
y
I
1HT111
I
END?
(Y/N)
34 y
I
•NT••
I
>
35
loul [D
CUSTOMER CODE=-
Repeat
Set cassette tape for load·
36
G-55
I
INT . .
I
TAPE
IN
OK?
(Y/N)=-
ing data .
37
vl-1
G 55
• • •
.
. .
•
. .
4()
CUSTOMER CODE=-
41
I ENWt
I
>
End
I
Pro gram List
I
5: "A": CLEAR
:
30 :1NPUT "TAPE IN
150 : INPUT "PROO .
c
WAI T 0 OK
?(Y/N)
"; x
ODE= "; 8$ Cll:Z=
10:DI M 8$ <139),0<
$ 0: GOTO 165
139>, B< 139> 40 : IF
X$ ( )"Y"GDTO
160 :GOTO 245
11 : LF
2 30
! 65 :1 NPU T "PRICE= "
12 : USI NG : LPRIN T 5 0 : INPU T llA$;8$ <*
; T
"*
BILL ING LEO
>, D<*>. B<* >
170 : 1NPUT
11 QTTY= ";
GER *"
80 : LF
I
s
13 : INPUT "ENO ?( Y 140: U S I NG : LPR I NT 190:E=S*T
/ N)
"; W$
U
*.
I I
j
f=\$
j
t •
*"
195:LPRINT
8$(1 )
14: 1 F W $ ="Y"GOTO
143: FOR 1=0TO 139
19/ ! l F Z=lLPRlNT
"
390 145: IF V$ =" Y"60TO
il";USI NG
"11111111
15 : INPU T "NEW ?C Y
I50
11111111111111 11 1111, 111111
/N )
II ; Y$
146 : IF
8$ < I >
< >" "
" ;O ( J) : GOTO
21
20: INPUT
"CUSTOME
LET Z= J :PAUSE
0
R CODE=";A$ :
8$ (
l
> : I NPUT
" Q
GOTO 27
TTY= " ;S :E=St 0(
25 : GO TO 245
! >:GOTO 195
2 7: I F
Y$ ="Y"GOTO
147: IF
0$ <I >
=""
80
GO TO 150
! 48: GO TO 240 (To be continued )
Do not sale this PDF !!!
-168-