Hi folks

[CP/M User]

Don't be afraid, you can post your own Turbo Pascal stories or interests in here - doesn't matter which version your using! :D

 

[retro]

WriteLn('Hello, Oz!');

 

[CP/M User]

(* I hope this is correct! :satisfie: *)

begin
repeat

WriteLn('Hello, Oz!');

until keypressed;
end.

 

[retro]

Fail Oz! I'm just across the ditch.
Or should I say "deetch"? haha!

 

[CP/M User]

(* 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.

 

[watlers_world]

for i:=0 to 255 do
delay($FFFF)
end;

 

[CP/M User]

^ So I can test that routine through my emulator so I can melt down my PC

 

[watlers_world]

CP/M User, are you writing an emulator in turbo pascal?

 

[CP/M User]

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.