Tetris in TP3 für CP/M - nun mit delay für moderne Emulatoren

Moin.

Hier ein minimal geänderte Version mit delay, um das Ganze spielbar zu machen unter z.B. RunCPM auf Mac OSX Dual Core iMac:

   writeln('Hello ', PlayerName, '!');
   writeln('Have fun!');
   Delay(2000);
   InitGame;
   while ((not GameEnd) and (not GameOver)) do
   begin
      if ValidKey or ((Frame mod FallSpeed) = 0) then
      begin
         UpdScene;
         if Frame > 30000 then Frame := 0;
         ValidKey := False;
         Delay(25000);
         Delay(25000);
      end;
      if GameOver then

Gibt sicher mehr/bessere Wege die auch zum Ziel führen. Bei mir hat das so gut funktioniert.

Delay könnte man ggf. noch zum Start abfragen/als Parameter übergeben.

VG Peter

Delay(int); int = max. 32768

Compileren geht nur als COM Datei, nicht ins Memory - zu wenig Speicher.

VG Peter