DOS ain't dead

Trubo Oberon (Announce)

posted by Rugxulo , Usono, 16.07.2026, 20:54

> > https://github.com/DosWorld/toc/

Trying again with Version 07-12 (under DOSBox-X 2024.07.01 SDL1):

95 line project in three modules (reads a text file, modifies it, spits out two text files).

* doesn't like old (*$MAIN+ *) pragma I used for XDS, conflict with $M memory
- I changed it to (*$M 8192,32768,32768*) since I didn't need much

* needs entry procedure (my main module had none, did it all in BEGIN END)
- I just wrapped it in PROCEDURE Main*;

* doesn't support CONST strings (yet?)
- easy to avoid

* HALT(255) needs to be SYSTEM.Halt(255)

* Files module is different
- filein := Files.Open("blah","r") needs to be IF Files.Reset(filein,"blah") THEN ... END;
- fileout := Files.Open("foo","w") needs to be Files.ReWrite(fileout,"foo");
- changed Files.WriteString + Files.WriteLn to Files.WriteLine
- no Eof(), Files.ReadLine stops on empty line (!)
-- this requires first trimming input text of such lines

* no string comparison operator = (yet?)
- for now, must use Strings.Equal (like Modula-2)

* some minor type compatibility quirks
- random fiddling to get that to work

But it does work (overall). Takes 9 secs. to run output (versus 7 secs. with Videki's Oberon-M 1.2).

Complete thread:

• Trubo Oberon - rr, 08.07.2026, 21:24 (Announce)
  • Trubo Oberon - Rugxulo, 15.07.2026, 03:18
    • Trubo Oberon - Rugxulo, 16.07.2026, 20:54
    • Trubo Oberon - Rugxulo, 20.07.2026, 07:54
      • Trubo Oberon - Laaca, 21.07.2026, 23:05
        • Trubo Oberon - Rugxulo, 23.07.2026, 07:15
          • Trubo Oberon - Laaca, 23.07.2026, 18:57
            • Trubo Oberon - Rugxulo, 24.07.2026, 21:34
              • Trubo Oberon - Rugxulo, 27.07.2026, 07:52
          • Trubo Oberon - Rugxulo, 04.08.2026, 13:16