REM SBASIC CONVERT.BAS
REM Start: 02.02.2023
REM Kurt Pieper, Germany
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
    BASED ERROR.CODE=INTEGER
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 7167   REM teste 10000
40  READ #1;IN
    PRINT IN;
    REM AUS=AUS+IN 'muss bis chr(0D0A) gelesen werden'
    REM X merken (X=X+1)
    REM ENGLISH.DOC Inhalt zB: Yes 7965730D0A
    REM X=X+1 ist die Satznummer des RANDOM FILES 
    REM WRITE #0,X;AUS 
    NEXT P
    CLOSE #1
    END
140 REM CLOSE #0    REM Random File              
    CLOSE #1        REM Serial File
    PRINT
    PRINT P-1;" Zeichen aus der Datei gelesen !"
    REM PRINT IN;LEN(IN)
rem    BASED ERROR.CODE=INTEGER
    BASE ERROR.CODE AT 103H
    PRINT " Error-Code ist: ";ERROR.CODE;" READ PAST EOF"  
    PRINT " Es wurden mehr Zeichen gelesen als in der Datei vorhanden sind"