Source:Eamon Character Cloner

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 Eamon Character Cloner
Source	Eamon Utilities I
Date	c. 1980
Author	Donald Brown
License	The use of this item is permitted on the grounds that it's free or in the public domain.

1  REM ///THE WONDERFUL WORLD
2  REM ///      OF EAMON 
3  REM ///
4  REM ///CHARACTER MOVER PROGRAM
5  REM ///
6  REM ///  BY DONALD BROWN
7  REM ///
10 DK$ =  CHR$ (4)
100  HOME : VTAB 5: PRINT "EAMON CHARACTER CLONER"
110  PRINT "ENTER NAME OF CHARACTER: ";
120  INPUT N2$: IF N2$ = "" THEN 100
130  PRINT DK$;"OPEN CHARACTERS,L150": PRINT DK$;"READ CHARACTERS,R0": INPUT NC
140  FOR REC = 1 TO NC: PRINT DK$;"READ CHARACTERS,R";REC: INPUT N$: IF N$ = N2$ THEN 1000
150  NEXT REC: PRINT DK$: PRINT : INVERSE : PRINT "CHARACTER NOT FOUND!": NORMAL : END 
1000  PRINT DK$;"READ CHARACTERS,R";REC
1010  INPUT NAME$: INPUT HD,AG,CH: FOR X = 1 TO 4: INPUT SA%(X): NEXT : FOR X = 1 TO 5: INPUT WA%(X): NEXT : INPUT AE
1020  INPUT SEX$