Source:Check Files

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 Check Files.
Source	Eamon Utilities I
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      EAMON CHECK ALL
2  REM      CHECK EAMON DISK
3  REM           FILES
4  REM 
5  REM     BY JOHN NELSON
6  REM 
7  HOME : PRINT "INSERT ADVENTURE TO BE TESTED FOR VALID": PRINT "   TEXT FILES AND PRESS ANY KEY TO": PRINT "          CONTINUE";: GET A$: PRINT 
10 D$ =  CHR$ (4)
20  ONERR  GOTO 500
25  HOME : VTAB 5: HTAB 7: PRINT "VERIFYING DESCRIPTIONS...": PRINT 
30  PRINT D$"OPEN EAMON.DESC,L256": PRINT D$"READ EAMON.DESC,R0": INPUT NR,NA,NE,NM
40  VTAB 7: HTAB 20: PRINT "ROOM ": FOR X = 1 TO NR: PRINT D$"READ EAMON.DESC,R";X: INPUT DE$: VTAB 7: HTAB 25: PRINT X: NEXT 
50  VTAB 9: HTAB 16: PRINT "ARTIFACT ": FOR X = 1 TO NA: PRINT D$"READ EAMON.DESC,R";X + 100: INPUT DE$: VTAB 9: HTAB 25: PRINT X: NEXT 
55  VTAB 11: HTAB 17: PRINT "EFFECTS "
60  IF NE = 0 THEN  VTAB 11: HTAB 25: PRINT "(NONE)": GOTO 80
70  FOR X = 1 TO NE: PRINT D$"READ EAMON.DESC,R";X + 200: INPUT DE$: VTAB 11: HTAB 25: PRINT X: NEXT 
80  VTAB 13: HTAB 17: PRINT "MONSTER ": FOR X = 1 TO NM: PRINT D$"READ EAMON.DESC,R";X + 300: INPUT DE$: VTAB 13: HTAB 25: PRINT X: NEXT 
90  PRINT D$"CLOSE"
100  PRINT : PRINT "DO YOU WANT TO CHECK FURTHER?";
105  GET YN$: IF YN$ <  > "Y" AND YN$ <  > "N" THEN 105
110  PRINT YN$
120  IF YN$ = "N" THEN  END 
130  HOME : VTAB 5: HTAB 7: PRINT "VERIFYING DATA..."
135  PRINT D$"OPEN EAMON.ROOM NAMES,L64"
140  PRINT D$"OPEN EAMON.ROOMS,L64": VTAB 7: HTAB 20: PRINT "ROOM": FOR R = 1 TO NR: PRINT D$"READ EAMON.ROOMS,R";R: VTAB 7: HTAB 25: PRINT R: FOR D = 1 TO 6: INPUT RD%: NEXT 
145  PRINT D$"READ EAMON.ROOM NAMES,R";R: INPUT RN$: NEXT 
150  PRINT D$"CLOSE": PRINT D$"OPEN EAMON.ARTIFACTS,L128": VTAB 9: HTAB 16: PRINT "ARTIFACT": FOR M = 1 TO NA: PRINT D$"READ EAMON.ARTIFACTS,R";M: VTAB 9: HTAB 25: PRINT M: INPUT AN$: FOR X = 1 TO 4: INPUT A%: IF X = 2 THEN T% = A%
170  NEXT : IF T% > 1 THEN  FOR X = 1 TO 4: INPUT A%: NEXT 
180  NEXT : PRINT D$"CLOSE"
190  PRINT D$"CLOSE": PRINT D$"OPEN EAMON.MONSTERS,L128": VTAB 13: HTAB 17: PRINT "MONSTER": FOR M = 1 TO NM: PRINT D$"READ EAMON.MONSTERS,R";M: INPUT MN$: VTAB 13: HTAB 25: PRINT M: FOR F = 1 TO 12: INPUT X: NEXT : NEXT 
195  PRINT D$"CLOSE"
200  PRINT : PRINT "DO YOU WANT TO VALIDATE STRUCTURE?";
210  GET A$: IF A$ <  > "Y" AND A$ <  > "N" THEN 210
220  PRINT A$: IF A$ = "N" THEN 300
230  PRINT D$"OPEN EAMON.NAME": PRINT D$"READ EAMON.NAME": INPUT AD$: PRINT D$"VERIFY ";AD$
240  PRINT : PRINT "VALIDATION