Source:Initialize Characters

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 Initialize Characters
Source	Eamon Utilities I
Date	c. 1980
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"