! Document name: RS1

!RS1

IF A<>0 THEN 1
LET A=4
1: IF B<>0 THEN 2
LET B=A
2: IF C<>0 THEN 3
LET C=2.7
3: IF D<>0 THEN 4
LET D=15
4: IF E<>0 THEN 5
LET E=3*a/7
5: IF F<>0 THEN 6
LET F=1
6: LET A=A/2
LET G=C/D
LET H=360*F/D

MULY B/(2*A)

FOR I=1 TO D
ADDX A-E
call CUB A,E,G,H,I
DEL 1
ROTZ H
IF I=1 THEN 10
ADDZ G
10: NEXT I

DEL TOP
end