Source:Erase Art Eff Mon

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 Erase Art Eff Mon.
Source	Eamon Utilities II
Date	c. 1984
Author	John Nelson
License	The use of this item is permitted on the grounds that it's free or in the public domain.

1  REM  ERASE ARTIFACTS, EFFECTS AND MONSTERS. THIS PROGRAM WILL READ THE DESC FILE AND RE-WRITE RECORD ZERO SO THAT NO ARTIFACTS, MONSTERS OR EFFECTS
2  REM  ARE ON THE FILE. THIS IS DONE SO THAT YOU MAY USE FID TO COPY THE MAZE OF ANOTHER DUNGEON AND THEN CORRECT RECORD ZERO.
3  REM  THIS PROCESS IS THE EQUIVALENT TO RUNNING THE COPY MAZE PROGRAM, BUT IT WILL RUN FASTER FOR LARGER DUNGEONS.
5  REM     BY JOHN NELSON
6  REM 
10 D$ =  CHR$ (4): TEXT 
20  HOME : PRINT "INSERT ADVENTURE DISKETTE THAT HAS THE": PRINT "ROOMS COPIED ONTO IT ALREADY AND"
30  PRINT "PRESS ANY KEY TO CONTINUE": PRINT "        (GENTLY, PLEASE.)": GET A$: PRINT 
40  PRINT D$"OPEN EAMON.DESC,L256": PRINT D$"READ EAMON.DESC,R0": INPUT NR,NA,NE,NM: PRINT D$
50  PRINT "THERE ARE ";NR;" ROOMS ON THIS DISKETTE.": PRINT "THERE ARE SUPPOSEDLY ";NA;" ARTIFACTS": PRINT "AND THERE ARE ";NM;" MONSTERS."
60  PRINT D$"WRITE EAMON.DESC,R0": PRINT NR: PRINT 0: PRINT 0: PRINT 0: PRINT D$"CLOSE"