Turbo Toolbox/Turbo_Toolbox.iso/spezial/19/wesp/wesped.pas

Pascal/Delphi Source File | 1990-06-21 | 6.2 KB | 143 lines

{$A+,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
{
  ╓─────────────────────────────────────────────────────────────────────╖
  ║ Generiert durch MASKEDIT PLUS Vers. 5.0 am 20.06.90 um 16:17:29 Uhr ║
  ║                 Autor: Alfonso José Sanz Alonso                     ║
  ╙─────────────────────────────────────────────────────────────────────╜
}

UNIT WESPED;
INTERFACE
Uses crt,Masktur4;
Procedure MainMenu__;
Procedure MainMenu(
      VAR w1:Byte;
      VAR w2:Str80;
      VAR w3:Str80;
      VAR w4:Str80;
      VAR w5:Byte;
      VAR w6:Str80;
      VAR w7:Byte;
      VAR w8:Str80;
      VAR w9:Str80;
      neu:Boolean);

IMPLEMENTATION

Procedure MainMenu__;
Begin
 MP_Initbuffer(TRUE);
 write_fast(1,'░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░');
 write_fast(81,'░░░░░█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█░░░░░░░░░░░░░░█▀▀▀▀▀▀▀▀▀▀▀▀▀▀█░░░░░░');
 write_fast(161,'░░░░░▌  W E S P +   L E V E L E D I T O R  ▐░░░░░░░░░░░░░░█ (c) 1990     █░░░░░░');
 write_fast(241,'░░░░░█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█░░░░░░░░░░░░░░█ Gerald Arend █░░░░░░');
 write_fast(321,'░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░█ & toolbox    █░░░░░░');
 write_fast(401,'░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░█▄▄▄▄▄▄▄▄▄▄▄▄▄▄█░░░░░░');
 write_fast(481,'░░▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░');
 write_fast(561,'░░▒▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒░░');
 write_fast(641,'░░▒▒▓╔═ A U S W A H L ═══  ═╗▓▓▓╔═ I N F O ═════════════════════════════╗▓▓▒▒░░');
 write_fast(721,'░░▒▒▓║                       ║▓▓▓║                                       ║▓▓▒▒░░');
 write_fast(801,'░░▒▒▓║  1  EDITIEREN         ║▓▓▓║  Aktuelle Datei:          ║▓▓▒▒░░');
 write_fast(881,'░░▒▒▓║  2  TAUSCHEN          ║▓▓▓║                                       ║▓▓▒▒░░');
 write_fast(961,'░░▒▒▓║  3  EINFÜGEN          ║▓▓▓║    ║▓▓▒▒░░');
 write_fast(1041,'░░▒▒▓║  4  LÖSCHEN           ║▓▓▓║    ║▓▓▒▒░░');
 write_fast(1121,'░░▒▒▓║  5  LADEN             ║▓▓▓║                                       ║▓▓▒▒░░');
 write_fast(1201,'░░▒▒▓║  6  SPEICHERN         ║▓▓▓║                     ║▓▓▒▒░░');
 write_fast(1281,'░░▒▒▓║  7  SPEICHERN & ENDE  ║▓▓▓║                                       ║▓▓▒▒░░');
 write_fast(1361,'░░▒▒▓║                       ║▓▓▓║    ║▓▓▒▒░░');
 write_fast(1441,'░░▒▒▓║ ESC PROGRAMMABBRUCH   ║▓▓▓║    ║▓▓▒▒░░');
 write_fast(1521,'░░▒▒▓║                       ║▓▓▓║                                       ║▓▓▒▒░░');
 write_fast(1601,'░░▒▒▓╚═══════════════════════╝▓▓▓╚═══════════════════════════════════════╝▓▓▒▒░░');
 write_fast(1681,'░░▒▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒░░');
 write_fast(1761,'░░▒▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒░░');
 write_fast(1841,'░░▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░');
 write_fast(1921,'░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░');
 MP_Setcolor(86,39,13); MP_Setcolor(139,16,2); MP_Setcolor(166,2,13);
 MP_Setcolor(203,2,13); MP_Setcolor(205,2,8); MP_Setcolor(219,1,2);
 MP_Setcolor(234,1,2); MP_Setcolor(235,2,8); MP_Setcolor(246,39,13);
 MP_Setcolor(285,2,8); MP_Setcolor(299,1,2); MP_Setcolor(314,1,2);
 MP_Setcolor(315,2,8); MP_Setcolor(328,39,8); MP_Setcolor(379,1,2);
 MP_Setcolor(394,1,2); MP_Setcolor(395,2,8); MP_Setcolor(459,16,2);
 MP_Setcolor(475,2,8); MP_Setcolor(541,16,8); MP_Setcolor(649,14,11);
 MP_Setcolor(677,7,11); MP_Setcolor(751,2,8); MP_Setcolor(795,2,8);
 MP_Setcolor(809,12,14); MP_Setcolor(831,2,8); MP_Setcolor(837,15,12);
 MP_Setcolor(875,2,8); MP_Setcolor(889,12,10); MP_Setcolor(911,2,8);
 MP_Setcolor(955,2,8); MP_Setcolor(969,12,10); MP_Setcolor(991,2,8);
 MP_Setcolor(1035,2,8); MP_Setcolor(1049,12,10); MP_Setcolor(1071,2,8);
 MP_Setcolor(1115,2,8); MP_Setcolor(1129,19,12); MP_Setcolor(1151,2,8);
 MP_Setcolor(1195,2,8); MP_Setcolor(1209,19,12); MP_Setcolor(1231,2,8);
 MP_Setcolor(1275,2,8); MP_Setcolor(1289,19,12); MP_Setcolor(1311,2,8);
 MP_Setcolor(1355,2,8); MP_Setcolor(1391,2,8); MP_Setcolor(1435,2,8);
 MP_Setcolor(1471,2,8); MP_Setcolor(1515,2,8); MP_Setcolor(1551,2,8);
 MP_Setcolor(1595,2,8); MP_Setcolor(1631,2,8); MP_Setcolor(1675,2,8);
 MP_Setcolor(1688,25,8); MP_Setcolor(1716,41,8);
 MP_BufferToScreen;
End;

Procedure MainMenu;
Var c:integer;

Begin
 if (neu) then MainMenu__;
 MP_Eingabefeldzeichen:=' ';
 MP_Felder[1].Xpos:=27;
 MP_Felder[1].Ypos:=9;
 MP_Felder[1].Laenge:=1;
 MP_Felder[1].Typ:='B';
 if (w1<>0) then str(w1, MP_Felder[1].Text)
  else MP_Felder[1].Text[0]:=#0;
 MP_Felder[2].Xpos:=54;
 MP_Felder[2].Ypos:=11;
 MP_Felder[2].Laenge:=12;
 MP_Felder[2].Typ:='S';
  MP_Felder[2].Text:=w2;
 MP_Felder[3].Xpos:=37;
 MP_Felder[3].Ypos:=13;
 MP_Felder[3].Laenge:=35;
 MP_Felder[3].Typ:='S';
  MP_Felder[3].Text:=w3;
 MP_Felder[4].Xpos:=37;
 MP_Felder[4].Ypos:=14;
 MP_Felder[4].Laenge:=35;
 MP_Felder[4].Typ:='S';
  MP_Felder[4].Text:=w4;
 MP_Felder[5].Xpos:=37;
 MP_Felder[5].Ypos:=16;
 MP_Felder[5].Laenge:=2;
 MP_Felder[5].Typ:='B';
 if (w5<>0) then str(w5, MP_Felder[5].Text)
  else MP_Felder[5].Text[0]:=#0;
 MP_Felder[6].Xpos:=40;
 MP_Felder[6].Ypos:=16;
 MP_Felder[6].Laenge:=14;
 MP_Felder[6].Typ:='S';
  MP_Felder[6].Text:=w6;
 MP_Felder[7].Xpos:=55;
 MP_Felder[7].Ypos:=16;
 MP_Felder[7].Laenge:=2;
 MP_Felder[7].Typ:='B';
 if (w7<>0) then str(w7, MP_Felder[7].Text)
  else MP_Felder[7].Text[0]:=#0;
 MP_Felder[8].Xpos:=37;
 MP_Felder[8].Ypos:=18;
 MP_Felder[8].Laenge:=35;
 MP_Felder[8].Typ:='S';
  MP_Felder[8].Text:=w8;
 MP_Felder[9].Xpos:=37;
 MP_Felder[9].Ypos:=19;
 MP_Felder[9].Laenge:=35;
 MP_Felder[9].Typ:='S';
  MP_Felder[9].Text:=w9;
 MP_Lesefeld(9);
 val( MP_Felder[1].text,w1,c);
 w2:= MP_Felder[2].Text;
 w3:= MP_Felder[3].Text;
 w4:= MP_Felder[4].Text;
 val( MP_Felder[5].text,w5,c);
 w6:= MP_Felder[6].Text;
 val( MP_Felder[7].text,w7,c);
 w8:= MP_Felder[8].Text;
 w9:= MP_Felder[9].Text;
End;
END.