DOS-Forum

drzeissler hat geschrieben:Thx, schön wenn schonmal was funzt, auch wenn es 0,001% sind der Gesamtarbeit sind.

Const
Titel = '-- CompactDiskWirter for ATARI-Compilations --';
begin
asm
mov ax,$4F02
mov bx,$0101
int $10
end;
{writeLn(Titel); (*Funktioniert Writeln ernsthaft? Im Grafikmodus? normalerweise musst du dir deine Schrift selbst Basteln.*)
writeLn('ENTER drücken zum Beenden!');
readLn;
writeLn('That''s all!');}
asm {Rückkehr in den Textmode}
mov ax,$0003
int $10
end;
end.

drzeissler hat geschrieben:Nein, nein, das geht mit Text ohne irgendwas zusätzliches.
Ich muss nurmal die "Boxen" generieren um darin Texte bzw.
Funktionen und Variablen einzubauen...ich lese ich lese und
ich verstehe nicht so viel...aber ich lese und lese und lese...

Doc

mov ax,$4F02  ; ax = 16 Bit Register bekommt die VBE-Funktionsnummer für mode setzen
mov bx,$0101  ; bx = 16 Bit Register bekommt die Modenummer
int $10       ; Sofware-Interruptaufruf Nummer $10 zum Video-Bios (mit Funktionsnummer $4F?? im ax-register)

mov ax,$0003  ; Modenummer für Textmode
int $10       ; Sofware-Interruptaufruf Nummer $10 zum Video-Bios (mit Funktionsnummer $00?? im ax-register)

drzeissler hat geschrieben:Nein, nein, das geht mit Text ohne irgendwas zusätzliches.

Dosenware hat geschrieben:

drzeissler hat geschrieben:Nein, nein, das geht mit Text ohne irgendwas zusätzliches.

Okay... dann solltest du mit gotoxy(Zahl1,Zahl2) die Position deines Textes setzen können.
EDIT: dann solltest du aber evtl. eher Write, statt writeln nutzen

@Freecrac

mov ax,$0003 ; Funktion $00 (Setze Grafikmodus) + Modenummer für Textmode

program CDW;
uses crt, graph;
var grafiktreiber, grafikmodus, fehlercode : integer;
begin {---Main---}
grafiktreiber := detect; { Grafiktreiber wird automatisch erkannt }
initgraph (grafiktreiber, grafikmodus, 'C:\PROGS\TPAS70\BGI'); { Grafik initialis. }
fehlercode := graphresult;
if fehlercode <> 0 then { Meldung bei Fehler }
writeln ('Grafikfehler: ',grapherrormsg(fehlercode))
else begin
outtextxy (130, 05, '------------------------------------------------'); { Textausgabe }
outtextxy (130, 15, '-- Compact*Disk*Writer for ATARI-Compilations --'); { Textausgabe }
outtextxy (130, 25, '------------------------------------------------'); { Textausgabe }
line(160, 100, 480, 100); { Box für die Scrrenshots }
line(160, 100, 160, 300); { Box für die Scrrenshots }
line(160, 300, 480, 300); { Box für die Scrrenshots }
line(480, 100, 480, 300); { Box für die Scrrenshots }
outtextxy ( 10, 470, 'Version = 0.1 (c) 2013 by DRZ'); { Textausgabe }
outtextxy (490, 470, 'press F-10 to quit'); { Textausgabe }
repeat until keypressed; { weiter bei Tastendruck }
closegraph; { Grafikmodus beenden }
end;
end.

Dosenware hat geschrieben:Die Unit Graph kannst du vergessen, 16 Farben sind da meist das Maximum