Source:Artifacts 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 Artifacts 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.ARTIFACTS,L128": PRINT D$;"OPEN NEW.ARTIFACTS,L64"
30  FOR I = 1 TO 92
40  PRINT D$;"READ EAMON.ARTIFACTS,R"I: INPUT A$: FOR J = 1 TO 4: INPUT A%(J): NEXT : IF A%(2) = 2 OR A%(2) = 3 THEN  FOR J = 5 TO 8: INPUT A%(J): NEXT 
50  PRINT D$;"WRITE NEW.ARTIFACTS,R"I: PRINT A$: FOR J = 1 TO 4: PRINT A%(J): NEXT : IF A%(2) = 2 OR A%(2) = 3 THEN  FOR J = 5 TO 8: PRINT A%(J): NEXT 
55  PRINT D$
60  NEXT I
65  PRINT D$;"CLOSE"
70  END