Advertisement
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
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
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
Advertisement
