00100	BEGIN "EXPON"
00200	INTEGER INT1,INT2;
00300	REAL REAL1,REAL2;
00400	LABEL RVRV,RVRC,RVIC,RVIV,RCRV,RCIV,RCRC,RCIC;
00500	LABEL IVRV,IVIC,IVIV,IVRC,ICRV,ICRC,ICIV,ICIC;
00510	LABEL RCPC,RVPC,IVPC,ICPC;
00600	DEFINE ! = "COMMENT";
00700	REAL REAL3;
00750	INT1←10;INT2←-6;REAL1←1.5;REAL2←-.5;
00800	RVRV: OUTSTR(CVF(REAL1↑REAL2));
00900	RVRC: OUTSTR(CVF(REAL1↑-.5));
01000	RVIC: OUTSTR(CVF(REAL1↑-6));
01100	RVIV: OUTSTR(CVF(REAL1↑INT2));
01200	RVPC: OUTSTR(CVF(REAL1↑6));
01300	RCRV: OUTSTR(CVF(1.5↑REAL2));
01400	RCIV: OUTSTR(CVF(1.5↑INT2));
01500	RCRC: OUTSTR(CVF(1.5↑-.5));
01600	RCIC: OUTSTR(CVF(1.5↑-6));
01700	RCPC: OUTSTR(CVF(1.5↑6));
01800	ICRV: OUTSTR(CVF(10↑REAL2));
01900	ICRC: OUTSTR(CVF(10↑-.5));
02000	ICIV: OUTSTR(CVF(10↑INT2));
02100	ICIC: OUTSTR(CVF(10↑-6));
02200	ICPC: OUTSTR(CVF(10↑6));
02300	IVRV: OUTSTR(CVF(INT1↑REAL2));
02400	IVRC: OUTSTR(CVF(INT1↑-.5));
02500	IVIC: OUTSTR(CVF(INT1↑-6));
02600	IVIV: OUTSTR(CVF(INT1↑INT2));
02700	IVPC: OUTSTR(CVF(INT1↑6));
02800	END