Source:Eamon Character Cloner

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 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$