%IITRAN $ IITRAN PROGRAM TO PRINT '99 BOTTLES OF BEER' LYRICS $ WRITTEN BY ALLEN J. KAPUSTA $ IITRAN WAS USED IN THE INTRODUCTORY COMPUTER PROGRAMMING COURSE $ AT ILLINOIS INSTITUTE OF TECHNOLOGY IN THE 1960S AND 1970S $ IITRAN FOR THE UNIVAC 1108 DID NOT USE LOWER CASE LETTERS PROCEDURE BOTTLES( I ) INTEGER I IF I > 1 PRINT I,' BOTTLES' ELSE IF I = 1 PRINT I,' BOTTLE' ELSE PRINT 'NO MORE BOTTLES' PRINT ' OF BEER' END BOTTLES PROCEDURE VERSE( K ) INTEGER K EXECUTE BOTTLES( K ) PRINT ' ON THE WALL, ' EXECUTE BOTTLES( K ) IF K >= 1 DO PRINT '.',,'TAKE ONE DOWN AND PASS IT AROUND, ' $ AN EMPTY ARGUMENT TO PRINT CAUSES A NEW LINE TO BE STARTED EXECUTE BOTTLES( K - 1 ) END ELSE DO PRINT '.',,'GO TO THE STORE AND GET SOME MORE, ' EXECUTE BOTTLES( 99 ) END PRINT ' ON THE WALL.' PRINT ,, $ A BLANK LINE END VERSE PROCEDURE LYRICS INTEGER I I == 100 UNTIL I < 1 EXECUTE VERSE( I == I - 1 ) $ THE VALUE AFTER ASSIGNMENT IS PASSED TO THE PROCEDURE END LYRICS EXECUTE LYRICS %EOF