Sharp CE-515P - Page 31

1@
20
30
40
50
68
7Q
80
81
82
83
84
85
108
110
128
138
140
150
16@
170
180
1388
239
300
310
320
330
4@
41@
420
430
440
450
464
RETT XXKKKK KKK ICK KKK KKK KX
REM X SALES BREAKDOWN *
REM KKK CRRIOK KKK KKKKK KK X
CLEAR
OPN "LPRT":CONSOLE 0,8
WAIT @
DIM ACSYB(S5)Y,A$(S)
A$(B)>="Hong Kong
A$(1)X="New York "
A$(25="SingaPore
A$(3>="London "
R$(4>="San Francisco"
A$(5)="Tokdo ‘
INPUT “Fiscal Year 7 "3V
FOR Z=BT0 S:CLS
PRINT A$(Z>5: INPUT A¢(Z): T=T+A(2)
NEXT Z:CLS
PRINT "Is this 0OK 7?":BEEP 18
'
FOR Z=0T0O S:PRINT QA$(ZY;A(Z);"Y/N"
INPUT F#:1IF F¢="Y"THEN 180
SALES
CLS :PRINT A$(ZY;" chane "3:T=T-@
(ZYLINPUT ACZy: T=T+AcZ>
CLS :NEXT 2Z
FOR
X=@T0
S5:B(X)=AQ(X)¥1BB/T:NEXT
X
REM XXX TITLE PRINT xxx
LPRINT CHR$ (22)3"a"
LPRINT CHR$ (22> '?g"
LPRINT "SALES BREAKDOWN"
LPRINT " in sy
LPRINT CHR¢ (22>;"p"
LPRINT "M200@:-220":LPRINT "I1"
Gosus "C"
G0osuB "D*
GOsuB "E"
LPRINT "M-288,-24@"
GOSUB "F"
GOSUB "G"
GOSUB “"H"
LPRINT "Q"
FOR A=@TO 40:LPRINT CHR$ (11)3:NEX
PRINT "Is this BOK CY/NY'3
INPUT Fé: IF F$="Y"THEN 5408
GOTG 1508
FOR A=0TO B6@:LPRINT CHR$ (1@)::NEX
END
REM XXX PRINT CIRCLE xXxx
"C"DEGREE
LPRINT CHR¢ (22>:"@"
C=C0S 18:S=SIN 1@
LPRINT "M2@3,8":X2=200a: Y2=0
FDR A=0T0 36
Y1=Y2XC+X2XS: X1=X2KC~Y2XS
LPRINT
"OM3X23","3Y23
"5
"3%13
",
"3
vl
30
Na
BREAKDOWN
1985
Branch Sales [Wei9ht o
AsHong Kong 400.0 8.9
BsNew York 1000.9 22.4
CsSingaPore 650.08 14.6
DsLondon 982. 0 2@.2
EsSan Francisco 700.0 15.2
FsTokdo 808. 9 17.9