Skocz do zawartości

[Pascal]Czy programy w Dev-Pascal będą działały na dosie?


Czarny Ass

Rekomendowane odpowiedzi

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!

Odnośnik do komentarza
Udostępnij na innych stronach

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
  • Ostatnio przeglądający   0 użytkowników

    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
×
×
  • Dodaj nową pozycję...