Source:Rooms Convert

This page is a verbatim reproduction of original source material and should not be edited except for maintenance.
Description	The Applesoft BASIC source code of the Eamon utility program Rooms Convert.
Source	EAG Utilities Disk
Date	c. 1988
Author	Tom Zuchowski
License	The use of this item is permitted on the grounds that it's free or in the public domain.

10 D$ =  CHR$ (4)
20  PRINT D$;"OPEN EAMON.ROOMS,L64": PRINT D$;"OPEN NEW.ROOMS,L20"
30  FOR I = 1 TO 87
40  PRINT D$;"READ EAMON.ROOMS,R";I: FOR J = 1 TO 6: INPUT D%(J): NEXT 
50  PRINT D$;"WRITE NEW.ROOMS,R";I: FOR J = 1 TO 6: PRINT D%(J): NEXT 
55  PRINT D$
60  NEXT 
70  PRINT D$;"CLOSE"