Image Map Image Map

Hi folks

  1. CP/M User
    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!
  2. retro
    retro
    WriteLn('Hello, Oz!');
  3. CP/M User
    CP/M User
    (* I hope this is correct! *)

    begin
    repeat

    WriteLn('Hello, Oz!');

    until keypressed;
    end.
  4. retro
    retro
    Fail Oz! I'm just across the ditch.
    Or should I say "deetch"? haha!
  5. CP/M User
    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.
  6. watlers_world
    watlers_world
    for i:=0 to 255 do
    delay($FFFF)
    end;
  7. CP/M User
    CP/M User
    ^ So I can test that routine through my emulator so I can melt down my PC
  8. watlers_world
    watlers_world
    CP/M User, are you writing an emulator in turbo pascal?
  9. CP/M User
    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.
Results 1 to 9 of 9