SBASIC

Software für CP/M, die nicht Teil des Betriebssystems ist
kurt_cpm
Beiträge: 154
Registriert: 2. Jul 2020, 19:16

SBASIC

Beitrag von kurt_cpm » 5. Nov 2022, 11:12

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
:D
Zuletzt geändert von kurt_cpm am 8. Nov 2022, 01:44, insgesamt 1-mal geändert.

Benutzeravatar
Alfred
Beiträge: 261
Registriert: 17. Jun 2019, 18:47
Wohnort: Enzkreis

Re: SBASIC

Beitrag von Alfred » 7. Nov 2022, 18:41

Hallo Kurt,

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

Gruß
Alfred

kurt_cpm
Beiträge: 154
Registriert: 2. Jul 2020, 19:16

Re: SBASIC

Beitrag von kurt_cpm » 8. Nov 2022, 01:41

Hallo Alfred,

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

Wünsche gute Gesundheit.

Gruß
Kurt

kurt_cpm
Beiträge: 154
Registriert: 2. Jul 2020, 19:16

Re: SBASIC

Beitrag von kurt_cpm » 1. Feb 2023, 14:20

Hi.

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

Bildschirmausdruck der Dateien:
Foto_Doc.jpg
Foto_Doc.jpg (225.68 KiB) 1743 mal betrachtet
Im Anhang sind die Sourcen für einen Test.

Die Datein folgen.
Dateianhänge
readdat.bas.txt
(730 Bytes) Noch nie heruntergeladen
readdoc.bas.txt
(960 Bytes) Noch nie heruntergeladen

kurt_cpm
Beiträge: 154
Registriert: 2. Jul 2020, 19:16

Re: SBASIC

Beitrag von kurt_cpm » 1. Feb 2023, 14:21

Noch die Files.

Alfred hat das Prg. geschrieben. Danke Alfred. :D
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
Dateianhänge
english.dat.txt
(87 KiB) Noch nie heruntergeladen
english.doc.txt
(6.92 KiB) Noch nie heruntergeladen

kurt_cpm
Beiträge: 154
Registriert: 2. Jul 2020, 19:16

Re: SBASIC

Beitrag von kurt_cpm » 1. Feb 2023, 17:10

Blick in die andere Datei
0100 20
0180 20
usw.
jeweils Leerzeichen gestzt.
Bild1.jpg
Bild1.jpg (154.07 KiB) 1735 mal betrachtet

kurt_cpm
Beiträge: 154
Registriert: 2. Jul 2020, 19:16

Re: SBASIC

Beitrag von kurt_cpm » 3. Feb 2023, 11:43

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
:D
Dateianhänge
convert.bas.txt
(1.34 KiB) Noch nie heruntergeladen

kurt_cpm
Beiträge: 154
Registriert: 2. Jul 2020, 19:16

Re: SBASIC

Beitrag von kurt_cpm » 4. Feb 2023, 07:06

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
:D
Dateianhänge
english.doc.txt
(7 KiB) Noch nie heruntergeladen
readran.bas.txt
(768 Bytes) Noch nie heruntergeladen
convert.bas.txt
(2.25 KiB) Noch nie heruntergeladen

kurt_cpm
Beiträge: 154
Registriert: 2. Jul 2020, 19:16

Re: SBASIC

Beitrag von kurt_cpm » 4. Feb 2023, 07:25

Hi,

hier die COM Files für CPM.

Viel Spaß.
Kurt
:D
Dateianhänge
readran.com.txt
(7.88 KiB) Noch nie heruntergeladen
convert.com.txt
(9.25 KiB) Noch nie heruntergeladen

Benutzeravatar
Alfred
Beiträge: 261
Registriert: 17. Jun 2019, 18:47
Wohnort: Enzkreis

Re: SBASIC

Beitrag von Alfred » 4. Feb 2023, 10:42

Hallo Kurt,

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

Gruß
Alfred

Antworten