Source:Char Rebirth
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 Char Rebirth. |
|---|---|
| Source | |
| Date |
c. 1984 |
| Author | |
| 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