Source:Re-initialize Characters

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 Re-initialize Characters.
Source	DOS 3.3 Eamon Master
Date	Early 1980s
Author	Donald Brown
License	The use of this item is permitted on the grounds that it's free or in the public domain.

0  REM  THE WONDERFUL WORLD OF
1  REM          EAMON
2  REM 
3  REM  INITIALIZE CHARACTERS
4  REM          FILE
5  REM 
6  REM     BY DONALD BROWN
7  REM 
10 DK$ =  CHR$ (4)
20  PRINT : PRINT : FLASH : PRINT "WARNING--INITING LOSES ALL OLD PLAYERS": NORMAL : PRINT : PRINT "HIT 'C' TO CONTINUE, ANY OTHER KEY TO": PRINT "ABORT   ";: GET A$: PRINT A$: IF A$ <  > "C" THEN  END 
30  PRINT DK$;"OPEN CHARACTERS"
40  PRINT DK$;"DELETE CHARACTERS": PRINT DK$;"OPEN CHARACTERS,L150": PRINT DK$;"WRITE CHARACTERS,R0": PRINT "1": PRINT DK$;"WRITE CHARACTERS,R1": PRINT : PRINT DK$;"CLOSE"