Source:View/Remove Characters

From Eamon Wiki
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 source code of the Eamon utility program View/Remove 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   VIEW NAMES/REMOVER OF
4  REM   CHARACTERS STORED ON
5  REM   DISKETTE.
6  REM 
7  REM      BY DONALD BROWN
8  REM 
100 DK$ =  CHR$ (4): PRINT DK$;"OPEN CHARACTERS,L150": PRINT DK$;"READ CHARACTERS,R0": INPUT NC: FOR N = 1 TO NC: PRINT DK$;"READ CHARACTERS,R";N: INPUT N$: PRINT DK$: PRINT "#";N;":  ";N$
110  PRINT "   KEEP (HIT 'Y' OR 'N')?";
120  GET A$: IF A$ = "Y" THEN  PRINT A$: GOTO 160
130  IF A$ <  > "N" THEN 120
140  PRINT A$
150  PRINT DK$;"WRITE CHARACTERS,R";N: PRINT 
160  NEXT N: PRINT DK$;"CLOSE": END