Commodore MPS-801 User Manual page 37

1.1~10
110
1.1 ~5
L~:O
130
14(1
150
16~j
17~~1
1
:::~]
19(~
;;~1;;)(1
2U3
22(1
2:;:0
24(~
250
;;~7~:1
2:::~~1
29(1
OF'Et-H
,I
4 : Ct ' 1D4
SOS=CHR$(14):SI$=CHR$(15)
PO;t::::CHP$ (
16) :
E:::;C$.::::CHP$
I,
~~7::O
CN=23:AM=16:0F=4
fi$:::
II _ " :
F'OP
I
::::(1TOCt'l,tfm :
A$=A$+" -
II :
t'~E::<T
"
PF.: I
tHSO$"
~::: I H
CUR'",'E"
~:IP
I
t,n~::
I
$
F'PHHLEFT$(SP$" OF-'1 ::0+"::0:;" , ;
PP I tH:::PC
0::
Ct'l-At'l-'OF -1 : : 0 "-1 ":
p~:
HH:::I:::'C
0::
At'l-1
::0
"~3"
, :
F'P
I tH::WC
0::
At'
1 -1 ::. " 1 "
PF::INTA$
FORI=0T0360STEPI0
I$=RIGHT$(SF'$+STR$(I::O~OF::O
YO=CN*6+AM*6*SIN(Itrr/180::O
YH=INTO::YO/256) :YL=YO-YHt256
F'P I tH I $:E:::C$PO:tCHF(t
0::
','1-1::' CHR$
0::
'T'L. ::. " .. "
t·lE::-n
PR I tH#4 : CLO::;E4
31.