REM SBASIC READDOC.BAS
REM Start: 31.01.2023
REM Zeichen werden einzeln bis  lf/cr eingelesen
REM Serial access Datei ENGLISH.DOC
REM Random access Datei (MBASIC) ENGLISH.DTA funktioniert nicht
REM 1 Zeichen fehlt immer. SBASIC RANDOM 128+1?
ON ERROR GOTO 140
PROCEDURE CLEAR.SCREEN
    PRINT CHR(12);
END OF CLEAR.SCREEN
    VAR IN=CHAR
    VAR P=INTEGER
    VAR FILE.NAME0, FILE.NAME1, FILE.NAME2, .COMMAND.LINE = STRING
10  FILES R(0), S(1), S(1)
    FILE.NAME0="ENGLISH.DTA"
    FILE.NAME1="ENGLISH.DOC"
20  REM OPEN #0;FILE.NAME0
    OPEN #1;FILE.NAME1
    REM OPEN #2;FILE.NAME2
    CLEAR.SCREEN
    FOR P = 0 TO 10000
40  READ #1;IN
    PRINT IN;
    REM PRINT P,IN
    REM WRITE #0,P;IN
    NEXT P
140 REM CLOSE #0
    CLOSE #1
    PRINT
    PRINT P-1;" Zeichen gelesen !"
    REM PRINT IN;LEN(IN)
    BASED ERROR.CODE=INTEGER
    BASE ERROR.CODE AT 103H
    PRINT " Error-Code ist: ";ERROR.CODE;" READ PAST EOF"