home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Top-Magazin 1992 January
/
Top_Magazin_1992_01_Top_Crew_de_Side_B.atr
/
windemo
< prev
next >
Wrap
Text File
|
2023-02-26
|
523b
|
1 lines
PROGRAM WINDEMO;¢VAR A,B,C,D,E,F,G:INTEGER;¢ AS:CHAR;¢#I D1:PEEK.I¢#I D1:DPEEK.I¢#I D1:POKE.I¢#I D1:GOTOXY.I¢#I D1:MARGIN.I¢#I D1:WIN0OP.I¢#I D1:WIN0CL.I¢#I D1:WIN0DEL.I¢#I D1:WINDOW.I¢begin¢ A:=5;¢ B:=10;¢ C:=10;¢ D:=30;¢ E:=20;¢ F:=PEEK(82);G:=PEEK(83);¢ WIN0OP(A);¢ WINDOW(B,C,D,E);¢ MARGIN(B+1,D-1);¢ GOTOXY(B+1,C+1);¢ writeln('Anfang');¢ writeln('des Fensters');¢ write('ENDE ?');readln;¢ write('Loeschen (Y/N)');readln(AS);¢ WIN0CL(A);¢ if AS='Y' then WIN0DEL;¢ MARGIN(F,G);¢ GOTOXY(B,E+1);¢end.¢