Example
|
PROGRAM SONG
CHARACTER (LEN=80)::LINE
CHARACTER (LEN=20)::SAYINT
INTEGER::NO_GREEN_BOTTLES
LINE='THERE ARE'
READ *,NO_GREEN_BOTTLES
IF(NO_GREEN_BOTTLES == 0)THEN
CALL APPEND_STRING@(LINE,' NO')
ELSE
CALL APPEND_STRING@(LINE,' '//SAYINT(NO_GREEN_BOTTLES))
ENDIF
CALL APPEND_STRING@(LINE,' STANDING ON A WALL')
CALL SOU@(LINE)
END PROGRAM SONG
|