Source:Eamon Character Cloner
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 | |
| Date |
c. 1980 |
| Author | |
| 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$