mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
26 lines
378 B
Plaintext
26 lines
378 B
Plaintext
FOO: DO;
|
|
|
|
FARP: PROCEDURE EXTERNAL;
|
|
END;
|
|
|
|
SLUG :PROCEDURE;
|
|
DECLARE PTR POINTER;
|
|
DECLARE I INTEGER;
|
|
DECLARE IPTR BASED PTR INTEGER;
|
|
DECLARE J REAL;
|
|
declare k real;
|
|
declare l REAL;
|
|
declare mqaFOO WORD;
|
|
declare FOObar DWORD;
|
|
|
|
PTR = @I;
|
|
IPTR = 72;
|
|
CALL IPTFIL;
|
|
CALL SET$INTERRPUT(0, FARP);
|
|
CALL SET$INTERRUPT(IABS(I), FIX(I));
|
|
J = FLOAT(FIX(I));
|
|
|
|
END SLUG;
|
|
END FOO;
|
|
|