A fair copy of the Turbo Pascal

Delphi & Pascal (èeská wiki)
Pøejít na: navigace, hledání
Category: KMP (Club of young programmers)

Author: Tomá¹ Madziak
Program: Tp60.pas
File exe: Tp60.exe

A fair copy of the Turbo Pascal. However, not functional.
{ 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.