User Profile

~~~~Synthesizer Algorithm for Dr. McCoy's Favorite Dish~~~

c CHANGE THE STATEMENT IOUT=5 TO IOUT= (THE NUMBER OF THE APPROPRIATE OUTPUT DEVICE FOR THE COMPUTER PROGRAM THAT IS TO BE c RUN........

Double Pecision Recep, Baked
DIMENSION FOOD(15), DISH(15), PAN(15),
1 FRYER(15), WAFFL(15)
COMMON/MEATS/FOOD, DISH, PAN, FRYER, WAFFL
DATA FOOD/'S','I','H','T',' ','M','A','R',
* 'G','O','R','P',' ','S','I'/
DATA DISH/'N','E','T','T','I','R','W',' ',
* 'N','I',' ','A','T','A','D'/
DATA PAN/'L','A','R','E','N','E','G',' ',
* 'N','A','R','T','R','O','F'/
DATA FRYER/'V','I',' ','T','I',' ','Y','A',
* 'M',' ','N','U','R',' ','N'/
DATA WAFFL/'O',' ','K','N','U','J',' ','S',
* 'E','N','I','H','C','A','M'/
IOUT=5
WRITE (IOUT,007),FOOD(1),WAFFL(3),DISH(2),
1 FOOD(12), DISH(3), FRYER(2), WAFFL(13)
007 FORMAT(2X,///,5X,20A2)
BAKED=DBLE(5.)
RECEP=DBLE(71.)/DBLE(113.)
RECEP=RECEP*BAKED
WRITE(IOUT,73)WAFFL((13),FOOD(3),DISH(10)
1 WAFFL(13),WAFFL(3),PAN(6),WAFFL(4),RECEP
73 FORMAT(2X,///.5X,7A2,F12,6)
WRITE(IOUT,007)DISH(2),PAN(5),WAFFL(6)
1 FOOD(10),FRYER(7),WAFFL(2),DISH(10)
1 FRYER(4),FOOD(5),WAFFL(11).DISH(1),PAN(8)
WRITE(IOUT,007)PAN(7),WAFFL(1),PAN(14)
1 DISH(15),FRYER(6),FOOD(3),WAFFL(9)
1 FRYER(8),PAN(1),DISH(4),WAFFL(12)
STOP
END

This program can be modified to run on almost any computer which hadnles Fortran IV simply by changing one statement. The variable IOUT must be equal to the logical output of the device on which the report is to be written.

+++++++++

"If you had an off switch, Doctor, would you not keep it a secret?"

Friends (18):

Mutual Friends (12):

Also Friend of (1):