Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Szabó Levente-7c-Széchenyi
Language: PASCAL
Code:
Program csillag;
Uses  crt;
Var       x,y:integner;
          k: char;


Begin
 x:=40; y=12;
 clrscr;
 write('Irányítsd a csillagot a nyilakkal! Kilépés: Esc');
 repeat
 gotoxy
 write('*');
 k:=readkey;
 if k=#0 then k:=readkey
 if k=#77 then x:=x+1;
 if k=#75 then x:=x-1;
 if k=#80 then y:=y+1;
 if k=#72 then y:=y-1;
 until k=#27;
End.     
Comments: