REM SBASIC READDAT.BAS
REM Start: 31.01.2023
REM Achtung ! ENGLISH.DAT wurde geaendert
REM Leerzeichen jeweils vor Vokabel
ON ERROR GOTO 140
PROCEDURE CLEAR.SCREEN
    PRINT CHR(12);
END OF CLEAR.SCREEN
    VAR IN=STRING
    VAR P=INTEGER
    VAR FILE.NAME1, COMMAND.LINE = STRING
10  FILES R(0), S(2)
    FILE.NAME1="ENGLISH.DAT"
20  OPEN #0;FILE.NAME1,128
    CLEAR.SCREEN
    PRINT "Lese Datei: ENGLISH.DAT"
    PRINT
    FOR P = 0 TO 697
40  READ #0,P;IN
    PRINT P,LEN(IN),IN
    NEXT P
    PRINT
140 CLOSE #0
    REM PRINT P,LEN(IN),IN 
    PRINT
    PRINT P;" Random Saetze gelesen !"
    REM PRINT IN;LEN(IN)
    BASED ERROR.CODE=INTEGER
    BASE ERROR.CODE AT 103H
    PRINT ERROR.CODE