• Please review our updated Terms and Rules here

Hi folks

(* Poor Kiwi's dont't seem to be getting any peace from Horrible Earthquakes!
:-O *)

{$C-}

var disaster : byte;
minusone : integer;
begin
clrscr;
minusone := 1;
disaster := 1;
repeat
gotoxy(disaster,10);
write(' OH NO! ');
if disaster = 74 then
minusone:=-1;
if disaster = 1 then
minusone:=1;
disaster:=disaster+minusone;
delay(50);
until keypressed;

end.
 
No, I can run Turbo Pascal 3 through an emulator, though the funny thing about it is whenever I boot-up the emulator the fan on the CPU always revs up, don't know the reasoning behind it as it's author specified that my system should be up to spec for it.
 
Back
Top