FUNCTION FC1:VOID

VAR_INPUT
Addr:POINT;
END_VAR
VAR_TEMP
DB_NO:INT;
N:INT;
END_VAR

BEGIN
L P#Addr;
LAR1;
L W[AR1,P#0.0];
T DB_NO;
OPN DB[DB_NO];
L D[AR1,P#2.0];
LAR1;
L 0;
L DBLG;
==I;
JZ EXIT;
NEXT: T N;
L 0;
T B[AR1,P#0.0];
+AR1 P#1.0;
L N;
LOOP NEXT;
EXIT:SET;
SAVE;
CLR;
END_FUNCTION