Source:Resurrect Character

This page is a verbatim reproduction of original source material and should not be edited except for maintenance.
Description	The source code of the Eamon utility program Resurrect Character.
Source	DOS 3.3 Eamon Master
Date	Early 1980s
Author	Assumed to be 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 
20  PRINT "NAME OF CHARACTER TO BE RESSURECTED:": INPUT NA$
30  PRINT D$"OPEN CHARACTERS,L150": PRINT D$"READ CHARACTERS,R0": INPUT NC: PRINT D$
50  FOR R = 1 TO NC: PRINT D$"READ CHARACTERS,R";R: INPUT N$: INPUT ME$
60  IF N$ <  > "" THEN  NEXT : GOTO 500
70  IF ME$ <  >  MID$ (NA$,2) THEN  NEXT : GOTO 500
80  PRINT D$"WRITE CHARACTERS,R";R: PRINT NA$: PRINT D$"CLOSE": PRINT : PRINT "O.K. ";NA$;" YOU HAVE BEEN RESURRECTED.": END 
500  PRINT "I CAN'T FIND ANY DEAD ";NA$: PRINT D$"CLOSE"
510  END