Sharp PC-1500 Applications Manual page 169

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
PURCHASE
LEDGER GENERATION
PROGRAM NO.
4
Tl
TL E
PS-D- 26
[ Key Operation Procedure ]
~tep No.
Input Display
Rem~rks
30
,_.,.,
c
33
QUANTITY=
31
2 I
~•r••
I
D- 44
QUANTITY=
Ne\\'
product to
be
re.
32 I
LEHTEA
I
PRODUCT NAME&
gistered.
33 R- 55
I
EHTER ~
PR ICE-
34
4000
I
£Ht.,.
I
QUANTITY-
35
2 I ••TERl
PRODUCT NAME=
36
I
ENT••]
TAPE
OUT OK
(Y/N)
Set casselle tape to sav<:.
37
y
!
EMT<•
I
END (Y/ N)
38
y
-EHTtR
j
>
39
[o•~
[ ! ]
SUPPLIER= Repeat
40 A- 123
IEHT•• I
TAPE IN OK (Y/N)
Se1 cassette tape to load.
y
I
ENTt•
I
.
4 1
. .
.
SUPPLIER=
. .
44
I
EHTEA
l
>
End
I [ Program List
I
5 : .. A":CLEAR
: 20:CLS : INPUT
"SU
WAIT 0 PPL JER= "jA$:
10:0JM 8$(139>, O< GOTO 27
139), 8< 139> 25 :GOTO 2q5
I
1 : LF 2 2/ : IF Y$ ~ " Y"GOTO
12:USJ NG : LPRINT
80
" '!:PURCHASE LEO 3 0: I NPU T
" TAPE I N
GER'!: "
OK
(Y/N)
•• j X$
! 3: INPUT
" ENO
(Y/ 40: JF
XS <
>"Y"GO TO
N>
"; ws
30
14 : IF W$
= "Y"GOTO 50: INPU T ll AS;8S<'I:
390
»
0('1:),
80< )
15 : J F W$ ( )" N"GO TO
80 :LF
1
13 140:USJNG :
LPR JN T
16: INPUT
"NEW
( Y/
"' *
,. ; A$ ; ..
'*"
N> " ; YS l43:FOR
l =0TO !39
17: IF
(Y$ = "Y").;.(y
145:1F
YS= " Y"GOTO
$= "N"><>lGOTO 150
16 (To be continued )
Do not sale this PDF !!!
- 163-