(* Bei Eingaben bis zum Zeilenende kommt es zum Absturz ! *)
(* Grund ist vermutlich eine Inkompatibilitaet zwischen *)
(* Kernal-INPUT und screen.a *)
const
winit = $1000;
wquit = $1003;
wswitch = $1006;
wsplit = $1009;
wunsplit = $100c;
whcopy = $100f;
var
i: integer ;
line: array [40] of char ;
procedure print;
var i: integer ;
begin
call (wswitch);
i:= 0;
while (line[i] <> 13) do
begin
write (chr(line[i]));
i:= i + 1;
end ;
writeln ;
call (wswitch);
end ;
procedure input;
var i: integer ;
begin
repeat
for i:= 0 to 40 do
line[i] := 32;
read (line);
if line[0] <> "." then
print;
until line[0] = ".";
end ;
procedure hcopy;
begin
call (wswitch);
call (whcopy);
call (wswitch);
end ;
procedure main ;
var
c: char ;
begin
repeat
write (chr(147));
write ("*");
read (c);
writeln (chr(c)); (* echo *)
case c of
"i": input;
"p": hcopy;
"q": begin ; end
else
begin
writeln ("Falscher Befehl, bitte Taste druecken");
read (c);
end
end ;
until c = "q";
end ;
begin
load (8,$1000,0,"pas_screen.prg");
if invalid = 64 then
begin
call (winit);
for i:=1 to 19 do
writeln ;
call (wsplit);
call (wswitch);
main;
call (wquit);
end
else
writeln ("fehler: ", invalid );
end .
