C VALTST - TEST AND DEMONSTRATION PROGRAM FOR VAL C INTEGER DIRVAL BYTE STR(81),DIR1(12) C DATA DIR1/0,'R',0,1,'I',0,2,'S',0,3,0,0/ C CALL START C CALL OUTS CALL OUTS('VAL TEST PROGRAM') CALL OUTS C 100 CALL VALTST(N) CALL OUTS CALL OUTS('N=######',N) CALL OUTS IOPT=DIRVAL(,'ITEM TYPE TO READ: REAL, INTEGER OR STRING ? ', 1 DIR1,0,0,3) CALL RECINT(,IOPT) C IF (IOPT.EQ.0) GOTO 1000 C IF (IOPT.NE.1) GOTO 200 R=REAVAL(,'ENTER A REAL NUMBER ? ',0.,-100.,100.) CALL OUTS('VALUE WAS ####.####',R) GOTO 100 C 200 IF (IOPT.NE.2) GOTO 300 I=INTVAL(,'ENTER AN INTEGER VALUE ? ',0,-100,100) CALL OUTS('VALUE WAS ######',I) GOTO 100 C 300 CONTINUE CALL STRVAL(,'ENTER A TEXT STRING ? ',STR,80,L) STR(L+1)=0 CALL OUT('STRING WAS: ') CALL OUTS(STR) GOTO 100 C C 1000 CALL OUTS('TEST DONE') CALL FINISH END