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