Source:Reverse Monster Names

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 Reverse Monster Names
Source	Eamon Utilities II
Date	c. 1984
Author	John Nelson
License	The use of this item is permitted on the grounds that it's free or in the public domain.

10 D$ =  CHR$ (4): TEXT 
15  DIM MD%(12)
20  PRINT D$"OPEN EAMON.MONSTERS,L128": FOR R = 27 TO 34: PRINT D$"READ EAMON.MONSTERS,R";R: INPUT MN$: FOR X = 1 TO 12: INPUT MD%(X): NEXT 
30  FOR X = 1 TO  LEN (MN$): IF  MID$ (MN$,X,1) <  > " " THEN  NEXT 
40 NN$ =  MID$ (MN$,X + 1) + " " +  LEFT$ (MN$,X - 1): PRINT "NEW NAME IS ";NN$;"; OLD NAME WAS ";MN$
50  PRINT D$"WRITE EAMON.MONSTERS,R";R: PRINT NN$: FOR X = 1 TO 12: PRINT MD%(X): NEXT 
60  NEXT R: PRINT D$"CLOSE"