Table of Contents
Advertisement
All and
more about
Sharp
PC-1500
at http:l/www.PC-1500.info
•
Pr~am
list
(PC-1500)
t0:0JM HICJ
0
>,
TA$
(
HI>.
S
U<
10),
T
IH
10>.
SU(
10>
20: 'I G0
30:
"
A":
ON
ERROR
GOTO
600
31:
SF"
TOEU
35:VS•
''''
:
INPU
T
''
D
"1
TA I
NPIJT?C<
>
:
OU
TPU
l?
(
-J ";vs
40:
IF
YS•"
•
"THEN
100
50:1F
YS•
"-"THEN
302
50
:GOTO
30
100:
IF
A•
l0!HEN
20
0
110:
/!l
•
A•I
120:
INPUT .. DATE ?
M MO
D''
;i;J
<A>
I
30:
INPUT
"
PERSONN
EL
IN
CHARGE
?
••
;TA$(A)
H0:
I NPUT
"
PRODUCT
S
? '";S
JS
(A
)
159: I NPUT
"UN
IT
PR
I CE
?";
'A<A>
160: I
HPU
l
"
QTY ?";
SU(A)
170:
7s
="
'':
INPUT
··o
ATA
ENO
?
CY
)
"; zs
180:
I
F
ZS•
"
Y"THEN
31!
I90
:GO
TO 100
200:
PR
JNI
"
DATA
FU
LL
HI
T
EN
r
..
210:
GOTO
30
300:0UTSTAT
0:JF A
•
0THEN
30
301:
WA
IT 60
310:
PRJNT
''
IN
TRAN
SM
JSS
ION "
:
•
..!A
l T
0
320:
SETCOM
1200,a,
N,
l
330: SETDEU
PO:
LPRJN
T
"f'lBC"
335
: SEIDEU
Kl:
INPUI
a
s
:
IF
as
<>'"Y''BEEP
1:
GOTO
320
337:
SE
!DEV
PO
340:8•1
350:
I
F
B>ATHEN
500
360:
I
F
BC
>ATHEN
LPR
INT
" "
370: L
F A=BTHEN
LPR
JN
I
"
E"
380:LPRI
NT
USING
"
~~"""";HJ<Bl
390:LPRJ NT
TAS(9)
400:
LPRl •ff
SJS
(
B)
410:
LPRINT USING "
i!ldOOd
' ;
TA<
B
)
420:LPRJNT
USING•·
UUUU";SUC B>
4
2 1:SETOEV
Kl
422:
I NPUT
XS
4
23:SC
TOEU PO
430:B#B•
I
4
40 :GOTO
350
500
:
SEIOEU
:i20
:
•OR
c"
I
ro
A
~30:"!<Cl=0
:
•A
$
(()
::
'
,.
540:SJ
$
(()•'•
.TA<C
)-0
550:
5UCC>~0
560: NCX
l
C
570:A•0
:,e0:c0To
30
1500.
1; STATUS
4=3
!
THE
N
35
611:l:STOP
SHHuS
I
934
BO
Do not
sell
this PDF
!!!
Memory con18nts
I\
DAT
A
l
(.H01
11
P0t
HT
B
!)A.TA
1AANSMISSIOHC0UNT
c
OATA ClA
¢()UNT
X$
RECE?TI
ON
OK
Rl!TURN
vs
MENU
Sl:ltC Tl0N
ZS
OATA
CNO
l
HICIO)
OAT~
lAS(l0~
KA'SONHtl
IN
CHA.RC'
SIS( lO)
PAOOUCT
TA(l O)
UHll,.AlCf
S
U<
10)
OUAHTITY
Advertisement
Table of Contents
