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;
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↑(REAL3←-6)));
01100	RVIV: OUTSTR(CVF(REAL1↑(REAL3←INT2)));
01200	
01300	RCRV: OUTSTR(CVF(1.5↑REAL2));
01400	RCIV: OUTSTR(CVF(1.5↑(REAL3←INT2)));
01500	RCRC: OUTSTR(CVF(1.5↑-.5));
01600	RCIC: OUTSTR(CVF(1.5↑(REAL3←-6)));
01700	
01800	ICRV: OUTSTR(CVF(10↑REAL2));
01900	ICRC: OUTSTR(CVF(10↑-.5));
02000	ICIV: OUTSTR(CVF(10↑(REAL3←INT2)));
02100	ICIC: OUTSTR(CVF(10↑(REAL3←-6)));
02200	
02300	IVRV: OUTSTR(CVF(INT1↑REAL2));
02400	IVRC: OUTSTR(CVF(INT1↑-.5));
02500	IVIC: OUTSTR(CVF(INT1↑(REAL3←-6)));
02600	IVIV: OUTSTR(CVF(INT1↑(REAL3←INT2)));
02700	
02800	END