Source:Add Light to Rooms

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 Add Light to Rooms, originally released on the Eamon Utilities I desk and later on the EAG Utilities Disk.
Source	EAG Utilities Disk
Date	c. 1984, updated 19 February 1996
Author	John Nelson
License	The use of this item is permitted on the grounds that it's free or in the public domain.

0  REM         EAMON
1  REM    ADD LIGHT TO ROOMS
2  REM    BY JOHN NELSON
3  REM   2/19/96
10 D$ =  CHR$ (4)
100  HOME : VTAB 6: PRINT "INSERT EAMON ADVENTURE DISKETTE AND ": PRINT : PRINT "PRESS ANY KEY TO CONTINUE ...";: GET A$: PRINT 
110  HOME : PRINT  SPC( 11);"ADD LIGHT TO ROOMS": PRINT  SPC( 12);"BY JOHN NELSON": VTAB 6: PRINT "THIS PROGRAM ADDS A LIGHT FIELD TO THE  EAMON.ROOMS FILE."
115  PRINT D$"UNLOCK EAMON.ROOMS"
120  PRINT D$;"OPEN EAMON.ROOMS,L64": PRINT D$;"OPEN EAMON.DESC,L256": PRINT D$;"READ EAMON.DESC,R0": INPUT NR: PRINT D$;"CLOSE EAMON.DESC"
130  HTAB 13: VTAB 12: PRINT "ROOM #"
140  FOR R = 1 TO NR: PRINT D$;"READ EAMON.ROOMS,R";R: FOR D = 1 TO 6: INPUT RD%(D): NEXT 
150  HTAB 20: VTAB 12: PRINT R
160  PRINT D$;"WRITE EAMON.ROOMS,R";R: FOR D = 1 TO 6: PRINT RD%(D): NEXT 
180  PRINT "1": NEXT 
200  PRINT D$;"CLOSE": HOME : VTAB 6: PRINT "DO YOU WANT TO CONVERT ANOTHER": PRINT " ADVENTURE? (Y/N)  [_]"; CHR$ (8); CHR$ (8);
210  GET A$: IF A$ <  > "Y" AND A$ <  > "N" THEN 210
220  PRINT A$: IF A$ = "N" THEN  END 
230  GOTO 100