CP/M Forum

Hi Leute,

hat sich schon jemand mit SBASIC beschäftigt.

Hier habe ich etwas lesen können und einen Test (bzw. kleine Anpassung)
gemacht.
https://groups.google.com/g/comp.os.cpm/c/n8aG53ypXOQ


Gruß
Kurt

Hallo Kurt,

ja, vor langer Zeit etwas damit gespielt !
Der Compiler wurde damals bei den Kaypro's mitgeliefert.

Gruß
Alfred

Hallo Alfred,

SBASIC hat sich nie richtig entfalten können.
Werde mich mal demnächst mit beschäftigen.

Wünsche gute Gesundheit.

Gruß
Kurt

Hi.

Dieser Tage habe ich diverse Versuche mit dem SBASIC Compiler gestartet.
Leider sind die RANDOM Files von MBASIC nicht kompatibel zu SBASIC.

Bildschirmausdruck der Dateien: Im Anhang sind die Sourcen für einen Test.

Die Datein folgen.

Noch die Files.

Alfred hat das Prg. geschrieben. Danke Alfred.
Hier kleine Änderung wegen dem Leerzeichen vor dem Datensatz(Leer+127=128).

10 REM Test Konvert<
20 REM Start: 25.01.2023
30 SATZ =1:LEER$=" "<
40 OPEN "I",#1,"ENGLISH.DOC"<
50 OPEN "R",#2,"ENGLISH.DAT"<
60 FIELD #2,1 AS LEER$,127 AS O$<
70 INPUT #1,I$<
80 PRINT SATZ,I$<
90 PUT #2,SATZ<
100 LSET O$=I$<
110 PUT #2,1<
120 SATZ = SATZ +1<
130 IF NOT EOF(1) THEN GOTO 70<
140 CLOSE #1<
150 CLOSE #2<
160 PRINT<
170 PRINT SATZ-1;" Datensaetze konvertiert!"<
180 PRINT I$;LEN(O$)<
190 REM geschafft!<


Die Endung .txt entfernen

sbasic readdoc
sbasic readdat

Kurt

Blick in die andere Datei
0100 20
0180 20
usw.
jeweils Leerzeichen gestzt.

Hi,

hier ist ein kleines SBASIC Programm convert.bas zum Lesen von Textdateien.

Beispiel: englisch.doc
Die ersten zwei Datenfelder:
4A610D0A Ja
7965730D0A yes

Wie schreiben wir ein RANDOM FILE convert.dat mit SBASIC.
Das Prg convert.bas liest die Daten Zeichenweise ein.
Die Ausgabe erfolgt im Minicom Terminal ordnungsgemäß.

Aufgabe
X = Datensatznummer pro Datenfeld erzeugen.
Datenfeld bei CR(LF (0D0A) in AUS übernehmen.
WRITE #0,X AUS speichern?

Wer hat eine Lösung. Alfred kann das!

Gruß
Kurt

Hi,

hier eine neue Version der SBASIC Programme.

Behandelt wird das Handling mit Random access und
Serial access.

Damit das convert.bas Programm funktioniert, muss vorher die Datei english.ran angelegt werden.
Einfach mit Editor erstellen und speichern.

Die english.doc wird hiermit gelesen.

REM SBASIC READDOC.BAS
REM Start: 31.01.2023
REM Zeichen werden einzeln eingelesen
REM Serial access Datei ENGLISH.DOC
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.RAN"
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
NEXT P
140 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"

Viel Spaß

Kurt

Hi,

hier die COM Files für CPM.

Viel Spaß.
Kurt

Hallo Kurt,

sehr schön, du kannst es auch und es war dein 100. Beitrag im Forum

Gruß
Alfred