Top-Magazin 1992 January/Top_Magazin_1992_01_Top_Crew_de_Side_B.atr/windemo

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.¢