Sharp PC-1500 - 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 P S-D - 26
[ Key Operation Procedure ]
~tep No .
Input Display Rem~rks
30
, _.,. ,
c 33
QUANT ITY =
31
2 I ~ •r•• I
D- 44
QUANTI TY =
Ne \\ ' product to be
re.
32
I L EH TEA I PRODUCT NAME&
gis te red.
33
R- 55 I EHTE R ~
PR I CE -
34
4000 I £H t.,. I
QUANTITY-
35 2 I • •TE Rl
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= Repe at
40
A- 123 I EHT•• I
TAPE IN OK (Y/N)
Se1 cassette tape to load.
y I ENTt• I
.
4 1
.
.
.
SUPPLIE R=
.
.
44
I EHTEA l
>
End
I[ Program List I
5 : .. A":CLEAR :
20:CLS : INPUT "SU
WAIT
0
PPLJER= "jA$:
10:0JM 8$(139>, O< GOTO 27
139), 8< 1 39> 25 :GOTO 2q5
I 1 : LF
2
2/ : IF Y $ ~ " Y"GOTO
12:USJ NG : LP RINT
80
"'!:PURCHASE
LEO
3 0: I NPUT
" TAPE I N
GE R'!:"
OK
(Y/N)
•• j X$
! 3: INPUT
"
ENO
(Y/
40: JF
XS < >"Y"GO TO
N>
"; ws
30
14 : IF
W$ = "Y"GOTO 50: INPUT ll AS;8S<'I:
39 0
» 0('1:), 80< )
15 : J F W$ ( )" N"GOTO
80 :LF
1
13 1 40:USJNG
: LP RJN T
16: INP UT "NE W
( Y/
"'*
,. ; A$ ; ..
'*"
N>
" ; YS
l43:FOR l =0TO
!39
17: IF
(Y$ = "Y").;.(y
145:1F
YS= " Y"GOTO
$= "N"><>lGOT O 15 0
16
(To be continued )
Do not sale this PDF !!!
- 163 -