uses doordriv,ReWindow,crt;
Var
MainAr : Windowar;
SpockAr : Windowar;
KirkAr : Windowar;
TedAr : Windowar;
ScannerAr : Windowar;
SpockMemAr : Memoryar;
KirkMemAr : Memoryar;
TedMemAr : Memoryar;
s:string;
f,hi:integer;
begin;
 InitDoorDriver('DoorDriv.CTL');
 clrscr;
 for hi:=1 to 23 do Mainar[hi]:='';
 mainar[1]:='                           -=-  Scanners  -=-                                      ';
 mainar[3]:=' Report: 1 Class G Planet';
 mainar[4]:='         Population : 0';
 mainar[5]:=' Status: Phaser Scorched Serface';
 mainar[6]:='         Photon Craters Cover The Planet';
 Rwindow(1,13,80,23,
         0,4,9,4,
         MainAr);
 GetScreen(3,3,23,5,SpockMemAr);
 for hi:=1 to 23 do SpockAr[hi]:='';
 spockAr[1]:=' Spock:';
 spockAr[2]:=' Orders, Captian?';
 Rwindow(3,3,23,5,
         15,9,15,9,
         SpockAr);
 getscreen(40,1,75,5,KirkMemAr);
 for hi:=1 to 23 do KirkAr[hi]:='';
 KirkAr[1]:='  Intercomm: Kirk To Security:';
 KirkAr[2]:=' Detach a security detail to the';
 KirkAr[3]:=' bridge imediately. Then Escort';
 KirkAr[4]:=' Mr. Sulu to the Brig.';
 RWindow(40,1,75,5,
         4,15,4,15,
         KirkAr);
 delay(2000);
 reinitscreen(40,1,75,5,KirkMemAr);
 GetScreen(53,3,75,5,KirkMemAr);
 for hi:=1 to 23 do KirkAr[hi]:='';
 KirkAr[1]:=' Kirk:';
 KirkAr[2]:=' Take The Helm Ted.';
 Rwindow(53,3,75,5,
         15,9,15,9,
         KirkAr);
 delay(800);
 reinitscreen(53,3,75,5,KirkMemAr);
 GetScreen(33,5,57,7,TedMemAr);
 for hi:=1 to 23 do TedAr[hi]:='';
 TedAr[1]:=' Ted:';
 TedAr[2]:=' Javol Jal Commadant.';
 Rwindow(33,5,57,7,
         15,9,15,9,
         TedAr);
 delay(800);
 reinitscreen(33,5,57,7,TedMemAr);
 GetScreen(53,3,80,5,KirkMemAr);
 for hi:=1 to 23 do KirkAr[hi]:='';
 KirkAr[1]:=' Kirk:';
 KirkAr[2]:=' Planetary Scan, Spock.';
 Rwindow(53,3,80,5,
         15,9,15,9,
         KirkAr);
 delay(800);
 reinitscreen(53,3,80,5,KirkMemAr);
 reinitscreen(3,3,23,5,SpockMemAr);
 GetScreen(3,3,15,5,SpockMemAr);
 for hi:=1 to 23 do SpockAr[hi]:='';
 spockAr[1]:=' Spock:';
 spockAr[2]:=' Yes Sir.';
 Rwindow(3,3,15,5,
         15,9,15,9,
         SpockAr);
 for hi:=1 to 23 do ScannerAr[hi]:='';
 scannerar[1]:='   Planetary Scanners     ';
 Rwindow(55,13,80,23,
         0,4,9,4,
         ScannerAr);
 delay(1000);

 read(s);
end.