Source:Char Rebirth

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 Char Rebirth.
Source	EAG Utilities Disk
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 
20  HOME : VTAB 5: PRINT "INSERT MASTER DISKETTE AND PRESS": PRINT : PRINT "           ANY KEY": GET A$: PRINT 
30  PRINT D$"OPEN CHARACTERS,L150": PRINT D$"READ CHARACTERS,R0": INPUT NC: PRINT D$
40  INPUT "CHARACTER TO BE RESURRECTED:";NA$
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