Commodore MPS-801 - 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.