perm filename EXPTST.SAI[S,AIL] blob sn#072710 filedate 1973-11-18 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "EXPON"
C00004 ENDMK
C⊗;
BEGIN "EXPON"
INTEGER INT1,INT2;
REAL REAL1,REAL2;
LABEL RVRV,RVRC,RVIC,RVIV,RCRV,RCIV,RCRC,RCIC;
LABEL IVRV,IVIC,IVIV,IVRC,ICRV,ICRC,ICIV,ICIC;
LABEL RCPC,RVPC,IVPC,ICPC;
DEFINE ! = "COMMENT";
REAL REAL3;
INT1←10;INT2←-6;REAL1←1.5;REAL2←-.5;
RVRV: OUTSTR(CVF(REAL1↑REAL2));
RVRC: OUTSTR(CVF(REAL1↑-.5));
RVIC: OUTSTR(CVF(REAL1↑-6));
RVIV: OUTSTR(CVF(REAL1↑INT2));
RVPC: OUTSTR(CVF(REAL1↑6));
RCRV: OUTSTR(CVF(1.5↑REAL2));
RCIV: OUTSTR(CVF(1.5↑INT2));
RCRC: OUTSTR(CVF(1.5↑-.5));
RCIC: OUTSTR(CVF(1.5↑-6));
RCPC: OUTSTR(CVF(1.5↑6));
ICRV: OUTSTR(CVF(10↑REAL2));
ICRC: OUTSTR(CVF(10↑-.5));
ICIV: OUTSTR(CVF(10↑INT2));
ICIC: OUTSTR(CVF(10↑-6));
ICPC: OUTSTR(CVF(10↑6));
IVRV: OUTSTR(CVF(INT1↑REAL2));
IVRC: OUTSTR(CVF(INT1↑-.5));
IVIC: OUTSTR(CVF(INT1↑-6));
IVIV: OUTSTR(CVF(INT1↑INT2));
IVPC: OUTSTR(CVF(INT1↑6));
END