SHARE
TWEET

Untitled

a guest Feb 14th, 2017 140 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. uses crt,sysutils;label R;const X:Word=1;P='hello world';begin
  2. R:clrscr;write(P);gotoxy(X,1);write(upcase(P[X]));sleep(999);X:=X*Ord(X<11)+1;goto R
  3. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top