Unformatted text preview: WRITE(*,*)"Enter the items to be purchased, and enter a (.) to stop:" DO i=i+1 READ(*,'(A)') items IF(items=='.') EXIT WRITE(20,'(I2,A,A)')i,'.',items END DO WRITE(*,*)"Your grocery list was stored in the following file:", TRIM(filename) CLOSE(20) END PROGRAM...
View Full Document
This note was uploaded on 07/22/2010 for the course MAE 112 taught by Professor Freeh during the Spring '10 term at North Country Community College.
- Spring '10