Source:Artifacts Convert

From Eamon Wiki
Jump to navigation Jump to search
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