Vernß podoba prostredia Turbo Pascalu

Delphi & Pascal (Ŕeskß wiki)
P°ejÝt na: navigace, hledßnÝ
Kategˇria:

Autor: TomṠMadziak
Program: Tp60.pas
S˙bor exe: Tp60.exe

Vernß podoba prostredia Turbo Pascalu. ękoda że nefunkŔnß.
{ TP60.PAS                                                          }
{                                                                   }
{ Author: Tomas Madziak                                             }
{ Date  : 15.02.1997                           http://www.trsek.com }
 
program imitacia_pascalu;
uses crt;
var v:char;
    i:byte;
begin
textbackground(lightgray);
textcolor(red);
clrscr;
gotoxy( 3,1);write('F');
gotoxy( 9,1);write('E');
gotoxy(15,1);write('S');
gotoxy(23,1);write('R');
gotoxy(28,1);write('C');
gotoxy(37,1);write('D');
gotoxy(44,1);write('T');
gotoxy(51,1);write('O');
gotoxy(60,1);write('W');
gotoxy(68,1);write('H');
 
gotoxy( 2,25);write('F1');
gotoxy(11,25);write('F2');
gotoxy(20,25);write('F3');
gotoxy(29,25);write('Alt+F9');
gotoxy(45,25);write('F9');
gotoxy(54,25);write('Alt+F10');
 
textbackground(lightgray);
textcolor(black);
gotoxy( 4,1);write('ile');
gotoxy(10,1);write('dit');
gotoxy(16,1);write('earch');
gotoxy(24,1);write('un');
gotoxy(29,1);write('ompile');
gotoxy(38,1);write('ebug');
gotoxy(45,1);write('ools');
gotoxy(52,1);write('ptions');
gotoxy(59,1);write(' Window');
gotoxy(69,1);write('elp');
gotoxy(5,25);write('Help');
gotoxy(14,25);write('Save');
gotoxy(23,25);write('Open');
gotoxy(36,25);write('Compile');
gotoxy(48,25);write('Make');
gotoxy(62,25);write('Local menu');
 
textbackground(blue);
for i:=2 to 17 do begin
    gotoxy(1,i);
    write('                                                                                ');
    textcolor(white);gotoxy(1,2);
   end;
 
write('╔═════════════════════════════════ NONAME00.PAS ═════════════════════════1═[ ]═╗');
 
for i:=3 to 17 do begin
    gotoxy(1,i);write('║');
   end;
 
gotoxy(1,17);write('╚═ ═══ 1:1 ═══');
textcolor(cyan);
gotoxy(17,17);write('■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒');
 
gotoxy(79, 3);write(' ');
gotoxy(79, 4);write(' ■');
gotoxy(79, 5);write(' ▒');
gotoxy(79, 6);write(' ▒');
gotoxy(79, 7);write(' ▒');
gotoxy(79, 9);write(' ▒');
gotoxy(79, 8);write(' ▒');
gotoxy(79,10);write(' ▒');
gotoxy(79,11);write(' ▒');
gotoxy(79,12);write(' ▒');
gotoxy(79,13);write(' ▒');
gotoxy(79,14);write(' ▒');
gotoxy(79,15);write(' ▒');
gotoxy(79,16);write(' ');
gotoxy(79,17);write('-┘');
gotoxy(16,17);write(chr(17));
gotoxy(77,2);write(chr(24));
gotoxy(3,17);write(chr(15));
 
gotoxy(1,18);write('┌────────────────────────────────── Watches ─────────────────────────────2─────┐');
gotoxy(1,24);write('└──────────────────────────────────────────────────────────────────────────────┘');
gotoxy(1,19);write('│                                                                              │');
gotoxy(1,20);write('│                                                                              │');
gotoxy(1,21);write('│                                                                              │');
gotoxy(1,22);write('│                                                                              │');
gotoxy(1,23);write('│                                                                              │');
repeat until keypressed;
end.