USES CRT;
VAR
key:char;
start:integer;
LABEL menu,game,mymaps,options,editor;
BEGIN
textcolor(3);
writeln('TankDOS!');
textcolor(5);
gotoxy(10,2);
writeln('version 1.0');
textcolor(8);
gotoxy(7,3);
writeln('ParadropSoft 2010');
gotoxy(7,4);
writeln('Created By Ferrari4.');
textcolor(1);
writeln('-----------------------------------');
readkey;
clrscr;
start:=0;
textcolor(10);
writeln ('1 START ');
writeln ('2 MAPS EDITOR ');
writeln ('3 MY MAPS ');
writeln ('4 OPTIONS ');
writeln ('5 EXIT ');
menu:
key:=readkey;
if key='1' then goto game;
if key='2' then goto editor;
if key='3' then goto mymaps;
if key='4' then goto options;
if key='5' then halt;
goto menu
game:
...
mymaps:
...
options:
...
editor:
...
END.
Tak w ogóle to jest nieskończone!