Może na początek gra w statki
program STATKI;
uses crt,dos;
const tlo=black; {tlo - tlo calej gry}
pozx_pl=27;{pozycje planszy}
pozy_pl=12;
rozx_pl=10;{rozmiar planszy}
rozy_pl=10;
pozx_pl2=pozx_pl+rozx_pl+5;
pozy_pl2=pozy_pl;
tlo_pl1=red;{tlo i kolor planszy}
tlo_pl2=green;
tek_pl=white;
k_zatop=black;{kolor statku zatopionego prze gracza}
kurs_kol=yellow;
stat_kol=blue;{kol statku}
maszt4=1;{ilosc statkow}
maszt3=2;
maszt2=3;
type tab=array[0..rozx_pl+1,0..rozy_pl+1] of char;
tab2=array[0..rozx_pl*rozy_pl] of string;
tab3=array[1..5] of byte;
var anim_logo:integer;
ktory_logo,licznik,pozycja:byte;{ktory_logo-to numer obrazu logo,licznik-dotyczy szybkosci scrolla,pozycja dotyczy scrolla}
plan1:tab;{pamiec planszy komputera}
plan2:tab;{gracza}
etapy_gry:tab3;{przechowuje kolejnosc etapow gry}
pamiec:tab;{tutaj komputer zapamietuje sobie ...