home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / EDSCREEN.ZIP / TITLE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-06-01  |  22.5 KB  |  337 lines
  1. procedure Titlescreen;
  2. var
  3.   x,
  4.   y:integer;
  5.  
  6. PROCEDURE Put_s(x,y:integer);
  7. BEGIN
  8.   MemW[$b800:(y-1)*160+(x-1)*2+$0000]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0002]:=$1ADB;
  9.   MemW[$b800:(y-1)*160+(x-1)*2+$0004]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0006]:=$1ADB;
  10.   MemW[$b800:(y-1)*160+(x-1)*2+$0008]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$000A]:=$1ADB;
  11.   MemW[$b800:(y-1)*160+(x-1)*2+$000C]:=$10DC;  MemW[$b800:(y-1)*160+(x-1)*2+$00A0]:=$1ADB;
  12.   MemW[$b800:(y-1)*160+(x-1)*2+$00A2]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$00A4]:=$10DF;
  13.   MemW[$b800:(y-1)*160+(x-1)*2+$00A6]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$00A8]:=$10DF;
  14.   MemW[$b800:(y-1)*160+(x-1)*2+$00AA]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$00AC]:=$10DF;
  15.   MemW[$b800:(y-1)*160+(x-1)*2+$0140]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0142]:=$10DB;
  16.   MemW[$b800:(y-1)*160+(x-1)*2+$0144]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0146]:=$17FF;
  17.   MemW[$b800:(y-1)*160+(x-1)*2+$0148]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$014A]:=$17FF;
  18.   MemW[$b800:(y-1)*160+(x-1)*2+$014C]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$01E0]:=$1ADB;
  19.   MemW[$b800:(y-1)*160+(x-1)*2+$01E2]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$01E4]:=$1ADB;
  20.   MemW[$b800:(y-1)*160+(x-1)*2+$01E6]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$01E8]:=$1ADB;
  21.   MemW[$b800:(y-1)*160+(x-1)*2+$01EA]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$01EC]:=$10DC;
  22.   MemW[$b800:(y-1)*160+(x-1)*2+$0280]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0282]:=$17FF;
  23.   MemW[$b800:(y-1)*160+(x-1)*2+$0284]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0286]:=$17FF;
  24.   MemW[$b800:(y-1)*160+(x-1)*2+$0288]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$028A]:=$1ADB;
  25.   MemW[$b800:(y-1)*160+(x-1)*2+$028C]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$0320]:=$17FF;
  26.   MemW[$b800:(y-1)*160+(x-1)*2+$0322]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0324]:=$17FF;
  27.   MemW[$b800:(y-1)*160+(x-1)*2+$0326]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0328]:=$17FF;
  28.   MemW[$b800:(y-1)*160+(x-1)*2+$032A]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$032C]:=$10DB;
  29.   MemW[$b800:(y-1)*160+(x-1)*2+$03C0]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C2]:=$1ADB;
  30.   MemW[$b800:(y-1)*160+(x-1)*2+$03C4]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C6]:=$1ADB;
  31.   MemW[$b800:(y-1)*160+(x-1)*2+$03C8]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03CA]:=$1ADB;
  32.   MemW[$b800:(y-1)*160+(x-1)*2+$03CC]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$0460]:=$10DF;
  33.   MemW[$b800:(y-1)*160+(x-1)*2+$0462]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0464]:=$10DF;
  34.   MemW[$b800:(y-1)*160+(x-1)*2+$0466]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0468]:=$10DF;
  35.   MemW[$b800:(y-1)*160+(x-1)*2+$046A]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$046C]:=$10DF;
  36.   MemW[$b800:(y-1)*160+(x-1)*2+$0500]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0502]:=$17FF;
  37.   MemW[$b800:(y-1)*160+(x-1)*2+$0504]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0506]:=$17FF;
  38.   MemW[$b800:(y-1)*160+(x-1)*2+$0508]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$050A]:=$17FF;
  39.   MemW[$b800:(y-1)*160+(x-1)*2+$050C]:=$17FF;
  40.   delay(15);
  41. END;
  42.  
  43. PROCEDURE Put_c(x,y:integer);
  44. BEGIN
  45.   MemW[$b800:(y-1)*160+(x-1)*2+$0000]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0002]:=$1ADB;
  46.   MemW[$b800:(y-1)*160+(x-1)*2+$0004]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0006]:=$1ADB;
  47.   MemW[$b800:(y-1)*160+(x-1)*2+$0008]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$000A]:=$1ADB;
  48.   MemW[$b800:(y-1)*160+(x-1)*2+$000C]:=$10DC;  MemW[$b800:(y-1)*160+(x-1)*2+$00A0]:=$1ADB;
  49.   MemW[$b800:(y-1)*160+(x-1)*2+$00A2]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$00A4]:=$10DF;
  50.   MemW[$b800:(y-1)*160+(x-1)*2+$00A6]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$00A8]:=$10DF;
  51.   MemW[$b800:(y-1)*160+(x-1)*2+$00AA]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$00AC]:=$10DF;
  52.   MemW[$b800:(y-1)*160+(x-1)*2+$0140]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0142]:=$10DB;
  53.   MemW[$b800:(y-1)*160+(x-1)*2+$0144]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0146]:=$17FF;
  54.   MemW[$b800:(y-1)*160+(x-1)*2+$0148]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$014A]:=$17FF;
  55.   MemW[$b800:(y-1)*160+(x-1)*2+$014C]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$01E0]:=$1ADB;
  56.   MemW[$b800:(y-1)*160+(x-1)*2+$01E2]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$01E4]:=$17FF;
  57.   MemW[$b800:(y-1)*160+(x-1)*2+$01E6]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$01E8]:=$17FF;
  58.   MemW[$b800:(y-1)*160+(x-1)*2+$01EA]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$01EC]:=$17FF;
  59.   MemW[$b800:(y-1)*160+(x-1)*2+$0280]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0282]:=$10DB;
  60.   MemW[$b800:(y-1)*160+(x-1)*2+$0284]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0286]:=$17FF;
  61.   MemW[$b800:(y-1)*160+(x-1)*2+$0288]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$028A]:=$17FF;
  62.   MemW[$b800:(y-1)*160+(x-1)*2+$028C]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0320]:=$1ADB;
  63.   MemW[$b800:(y-1)*160+(x-1)*2+$0322]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$0324]:=$17FF;
  64.   MemW[$b800:(y-1)*160+(x-1)*2+$0326]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0328]:=$17FF;
  65.   MemW[$b800:(y-1)*160+(x-1)*2+$032A]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$032C]:=$17FF;
  66.   MemW[$b800:(y-1)*160+(x-1)*2+$03C0]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C2]:=$1ADB;
  67.   MemW[$b800:(y-1)*160+(x-1)*2+$03C4]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C6]:=$1ADB;
  68.   MemW[$b800:(y-1)*160+(x-1)*2+$03C8]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03CA]:=$1ADB;
  69.   MemW[$b800:(y-1)*160+(x-1)*2+$03CC]:=$10DC;  MemW[$b800:(y-1)*160+(x-1)*2+$0460]:=$1F20;
  70.   MemW[$b800:(y-1)*160+(x-1)*2+$0462]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0464]:=$10DF;
  71.   MemW[$b800:(y-1)*160+(x-1)*2+$0466]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0468]:=$10DF;
  72.   MemW[$b800:(y-1)*160+(x-1)*2+$046A]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$046C]:=$10DF;
  73.   MemW[$b800:(y-1)*160+(x-1)*2+$0500]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0502]:=$17FF;
  74.   MemW[$b800:(y-1)*160+(x-1)*2+$0504]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0506]:=$17FF;
  75.   MemW[$b800:(y-1)*160+(x-1)*2+$0508]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$050A]:=$17FF;
  76.   MemW[$b800:(y-1)*160+(x-1)*2+$050C]:=$17FF;
  77.   delay(15);
  78. END;
  79.  
  80. PROCEDURE Put_r(x,y:integer);
  81. BEGIN
  82.   MemW[$b800:(y-1)*160+(x-1)*2+$0000]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0002]:=$1ADB;
  83.   MemW[$b800:(y-1)*160+(x-1)*2+$0004]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0006]:=$1ADB;
  84.   MemW[$b800:(y-1)*160+(x-1)*2+$0008]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$000A]:=$1ADB;
  85.   MemW[$b800:(y-1)*160+(x-1)*2+$000C]:=$10DC;  MemW[$b800:(y-1)*160+(x-1)*2+$00A0]:=$1ADB;
  86.   MemW[$b800:(y-1)*160+(x-1)*2+$00A2]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$00A4]:=$10DF;
  87.   MemW[$b800:(y-1)*160+(x-1)*2+$00A6]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$00A8]:=$10DF;
  88.   MemW[$b800:(y-1)*160+(x-1)*2+$00AA]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$00AC]:=$10DB;
  89.   MemW[$b800:(y-1)*160+(x-1)*2+$0140]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0142]:=$10DB;
  90.   MemW[$b800:(y-1)*160+(x-1)*2+$0144]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0146]:=$17FF;
  91.   MemW[$b800:(y-1)*160+(x-1)*2+$0148]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$014A]:=$1ADB;
  92.   MemW[$b800:(y-1)*160+(x-1)*2+$014C]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$01E0]:=$1ADB;
  93.   MemW[$b800:(y-1)*160+(x-1)*2+$01E2]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$01E4]:=$1ADB;
  94.   MemW[$b800:(y-1)*160+(x-1)*2+$01E6]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$01E8]:=$1ADB;
  95.   MemW[$b800:(y-1)*160+(x-1)*2+$01EA]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$01EC]:=$10DB;
  96.   MemW[$b800:(y-1)*160+(x-1)*2+$0280]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0282]:=$10DB;
  97.   MemW[$b800:(y-1)*160+(x-1)*2+$0284]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0286]:=$1ADB;
  98.   MemW[$b800:(y-1)*160+(x-1)*2+$0288]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$028A]:=$10DF;
  99.   MemW[$b800:(y-1)*160+(x-1)*2+$028C]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0320]:=$1ADB;
  100.   MemW[$b800:(y-1)*160+(x-1)*2+$0322]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$0324]:=$17FF;
  101.   MemW[$b800:(y-1)*160+(x-1)*2+$0326]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0328]:=$1ADB;
  102.   MemW[$b800:(y-1)*160+(x-1)*2+$032A]:=$10DC;  MemW[$b800:(y-1)*160+(x-1)*2+$032C]:=$17FF;
  103.   MemW[$b800:(y-1)*160+(x-1)*2+$03C0]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C2]:=$10DB;
  104.   MemW[$b800:(y-1)*160+(x-1)*2+$03C4]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$03C6]:=$17FF;
  105.   MemW[$b800:(y-1)*160+(x-1)*2+$03C8]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$03CA]:=$1ADB;
  106.   MemW[$b800:(y-1)*160+(x-1)*2+$03CC]:=$10DC;  MemW[$b800:(y-1)*160+(x-1)*2+$0460]:=$17FF;
  107.   MemW[$b800:(y-1)*160+(x-1)*2+$0462]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0464]:=$17FF;
  108.   MemW[$b800:(y-1)*160+(x-1)*2+$0466]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0468]:=$17FF;
  109.   MemW[$b800:(y-1)*160+(x-1)*2+$046A]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$046C]:=$10DF;
  110.   MemW[$b800:(y-1)*160+(x-1)*2+$0500]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0502]:=$17FF;
  111.   MemW[$b800:(y-1)*160+(x-1)*2+$0504]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0506]:=$17FF;
  112.   MemW[$b800:(y-1)*160+(x-1)*2+$0508]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$050A]:=$17FF;
  113.   MemW[$b800:(y-1)*160+(x-1)*2+$050C]:=$17FF;
  114.   delay(15);
  115. END;
  116.  
  117. PROCEDURE Put_e(x,y:integer);
  118. BEGIN
  119.   MemW[$b800:(y-1)*160+(x-1)*2+$0000]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0002]:=$1ADB;
  120.   MemW[$b800:(y-1)*160+(x-1)*2+$0004]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0006]:=$1ADB;
  121.   MemW[$b800:(y-1)*160+(x-1)*2+$0008]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$000A]:=$1ADB;
  122.   MemW[$b800:(y-1)*160+(x-1)*2+$000C]:=$10DC;  MemW[$b800:(y-1)*160+(x-1)*2+$00A0]:=$1ADB;
  123.   MemW[$b800:(y-1)*160+(x-1)*2+$00A2]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$00A4]:=$10DF;
  124.   MemW[$b800:(y-1)*160+(x-1)*2+$00A6]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$00A8]:=$10DF;
  125.   MemW[$b800:(y-1)*160+(x-1)*2+$00AA]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$00AC]:=$10DF;
  126.   MemW[$b800:(y-1)*160+(x-1)*2+$0140]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0142]:=$10DB;
  127.   MemW[$b800:(y-1)*160+(x-1)*2+$0144]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0146]:=$17FF;
  128.   MemW[$b800:(y-1)*160+(x-1)*2+$0148]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$014A]:=$17FF;
  129.   MemW[$b800:(y-1)*160+(x-1)*2+$014C]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$01E0]:=$1ADB;
  130.   MemW[$b800:(y-1)*160+(x-1)*2+$01E2]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$01E4]:=$1ADB;
  131.   MemW[$b800:(y-1)*160+(x-1)*2+$01E6]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$01E8]:=$10DC;
  132.   MemW[$b800:(y-1)*160+(x-1)*2+$01EA]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$01EC]:=$1F20;
  133.   MemW[$b800:(y-1)*160+(x-1)*2+$0280]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0282]:=$10DB;
  134.   MemW[$b800:(y-1)*160+(x-1)*2+$0284]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0286]:=$10DF;
  135.   MemW[$b800:(y-1)*160+(x-1)*2+$0288]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$028A]:=$1F20;
  136.   MemW[$b800:(y-1)*160+(x-1)*2+$028C]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$0320]:=$1ADB;
  137.   MemW[$b800:(y-1)*160+(x-1)*2+$0322]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$0324]:=$17FF;
  138.   MemW[$b800:(y-1)*160+(x-1)*2+$0326]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0328]:=$17FF;
  139.   MemW[$b800:(y-1)*160+(x-1)*2+$032A]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$032C]:=$1F20;
  140.   MemW[$b800:(y-1)*160+(x-1)*2+$03C0]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C2]:=$1ADB;
  141.   MemW[$b800:(y-1)*160+(x-1)*2+$03C4]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C6]:=$1ADB;
  142.   MemW[$b800:(y-1)*160+(x-1)*2+$03C8]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03CA]:=$1ADB;
  143.   MemW[$b800:(y-1)*160+(x-1)*2+$03CC]:=$10DC;  MemW[$b800:(y-1)*160+(x-1)*2+$0460]:=$1F20;
  144.   MemW[$b800:(y-1)*160+(x-1)*2+$0462]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0464]:=$10DF;
  145.   MemW[$b800:(y-1)*160+(x-1)*2+$0466]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0468]:=$10DF;
  146.   MemW[$b800:(y-1)*160+(x-1)*2+$046A]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$046C]:=$10DF;
  147.   MemW[$b800:(y-1)*160+(x-1)*2+$0500]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0502]:=$17FF;
  148.   MemW[$b800:(y-1)*160+(x-1)*2+$0504]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0506]:=$17FF;
  149.   MemW[$b800:(y-1)*160+(x-1)*2+$0508]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$050A]:=$17FF;
  150.   MemW[$b800:(y-1)*160+(x-1)*2+$050C]:=$17FF;
  151.   delay(15);
  152. END;
  153.  
  154. PROCEDURE Put_n(x,y:integer);
  155. BEGIN
  156.   MemW[$b800:(y-1)*160+(x-1)*2+$0000]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0002]:=$10DC;
  157.   MemW[$b800:(y-1)*160+(x-1)*2+$0004]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$0006]:=$1F20;
  158.   MemW[$b800:(y-1)*160+(x-1)*2+$0008]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$000A]:=$1F20;
  159.   MemW[$b800:(y-1)*160+(x-1)*2+$000C]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$000E]:=$10DC;
  160.   MemW[$b800:(y-1)*160+(x-1)*2+$00A0]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$00A2]:=$1ADB;
  161.   MemW[$b800:(y-1)*160+(x-1)*2+$00A4]:=$10DC;  MemW[$b800:(y-1)*160+(x-1)*2+$00A6]:=$1F20;
  162.   MemW[$b800:(y-1)*160+(x-1)*2+$00A8]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$00AA]:=$1F20;
  163.   MemW[$b800:(y-1)*160+(x-1)*2+$00AC]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$00AE]:=$10DB;
  164.   MemW[$b800:(y-1)*160+(x-1)*2+$0140]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0142]:=$10DB;
  165.   MemW[$b800:(y-1)*160+(x-1)*2+$0144]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0146]:=$10DC;
  166.   MemW[$b800:(y-1)*160+(x-1)*2+$0148]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$014A]:=$1F20;
  167.   MemW[$b800:(y-1)*160+(x-1)*2+$014C]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$014E]:=$10DB;
  168.   MemW[$b800:(y-1)*160+(x-1)*2+$01E0]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$01E2]:=$10DB;
  169.   MemW[$b800:(y-1)*160+(x-1)*2+$01E4]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$01E6]:=$1ADB;
  170.   MemW[$b800:(y-1)*160+(x-1)*2+$01E8]:=$10DC;  MemW[$b800:(y-1)*160+(x-1)*2+$01EA]:=$1F20;
  171.   MemW[$b800:(y-1)*160+(x-1)*2+$01EC]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$01EE]:=$10DB;
  172.   MemW[$b800:(y-1)*160+(x-1)*2+$0280]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0282]:=$10DB;
  173.   MemW[$b800:(y-1)*160+(x-1)*2+$0284]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$0286]:=$17FF;
  174.   MemW[$b800:(y-1)*160+(x-1)*2+$0288]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$028A]:=$10DC;
  175.   MemW[$b800:(y-1)*160+(x-1)*2+$028C]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$028E]:=$10DB;
  176.   MemW[$b800:(y-1)*160+(x-1)*2+$0320]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0322]:=$10DB;
  177.   MemW[$b800:(y-1)*160+(x-1)*2+$0324]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$0326]:=$1F20;
  178.   MemW[$b800:(y-1)*160+(x-1)*2+$0328]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$032A]:=$1ADB;
  179.   MemW[$b800:(y-1)*160+(x-1)*2+$032C]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$032E]:=$10DB;
  180.   MemW[$b800:(y-1)*160+(x-1)*2+$03C0]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C2]:=$10DB;
  181.   MemW[$b800:(y-1)*160+(x-1)*2+$03C4]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$03C6]:=$1F20;
  182.   MemW[$b800:(y-1)*160+(x-1)*2+$03C8]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$03CA]:=$17FF;
  183.   MemW[$b800:(y-1)*160+(x-1)*2+$03CC]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03CE]:=$10DB;
  184.   MemW[$b800:(y-1)*160+(x-1)*2+$0460]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0462]:=$10DF;
  185.   MemW[$b800:(y-1)*160+(x-1)*2+$0464]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$0466]:=$1F20;
  186.   MemW[$b800:(y-1)*160+(x-1)*2+$0468]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$046A]:=$1F20;
  187.   MemW[$b800:(y-1)*160+(x-1)*2+$046C]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$046E]:=$10DF;
  188.   MemW[$b800:(y-1)*160+(x-1)*2+$0502]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$050E]:=$17FF;
  189.   delay(15);
  190. end;
  191.  
  192. PROCEDURE Put_w(x,y:integer);
  193. BEGIN
  194.   MemW[$b800:(y-1)*160+(x-1)*2+$0000]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0002]:=$10DC;
  195.   MemW[$b800:(y-1)*160+(x-1)*2+$0004]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$0006]:=$1F20;
  196.   MemW[$b800:(y-1)*160+(x-1)*2+$0008]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$000A]:=$1F20;
  197.   MemW[$b800:(y-1)*160+(x-1)*2+$000C]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$000E]:=$10DC;
  198.   MemW[$b800:(y-1)*160+(x-1)*2+$00A0]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$00A2]:=$10DB;
  199.   MemW[$b800:(y-1)*160+(x-1)*2+$00A4]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$00A6]:=$1F20;
  200.   MemW[$b800:(y-1)*160+(x-1)*2+$00A8]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$00AA]:=$1F20;
  201.   MemW[$b800:(y-1)*160+(x-1)*2+$00AC]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$00AE]:=$10DB;
  202.   MemW[$b800:(y-1)*160+(x-1)*2+$0140]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0142]:=$10DB;
  203.   MemW[$b800:(y-1)*160+(x-1)*2+$0144]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$0146]:=$1F20;
  204.   MemW[$b800:(y-1)*160+(x-1)*2+$0148]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$014A]:=$1F20;
  205.   MemW[$b800:(y-1)*160+(x-1)*2+$014C]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$014E]:=$10DB;
  206.   MemW[$b800:(y-1)*160+(x-1)*2+$01E0]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$01E2]:=$10DB;
  207.   MemW[$b800:(y-1)*160+(x-1)*2+$01E4]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$01E6]:=$1ADB;
  208.   MemW[$b800:(y-1)*160+(x-1)*2+$01E8]:=$10DC;  MemW[$b800:(y-1)*160+(x-1)*2+$01EA]:=$1F20;
  209.   MemW[$b800:(y-1)*160+(x-1)*2+$01EC]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$01EE]:=$10DB;
  210.   MemW[$b800:(y-1)*160+(x-1)*2+$0280]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0282]:=$10DB;
  211.   MemW[$b800:(y-1)*160+(x-1)*2+$0284]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0286]:=$10DB;
  212.   MemW[$b800:(y-1)*160+(x-1)*2+$0288]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$028A]:=$10DC;
  213.   MemW[$b800:(y-1)*160+(x-1)*2+$028C]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$028E]:=$10DB;
  214.   MemW[$b800:(y-1)*160+(x-1)*2+$0320]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0322]:=$1ADB;
  215.   MemW[$b800:(y-1)*160+(x-1)*2+$0324]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$0326]:=$10DF;
  216.   MemW[$b800:(y-1)*160+(x-1)*2+$0328]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$032A]:=$1ADB;
  217.   MemW[$b800:(y-1)*160+(x-1)*2+$032C]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$032E]:=$10DB;
  218.   MemW[$b800:(y-1)*160+(x-1)*2+$03C0]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C2]:=$10DB;
  219.   MemW[$b800:(y-1)*160+(x-1)*2+$03C4]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$03C6]:=$17FF;
  220.   MemW[$b800:(y-1)*160+(x-1)*2+$03C8]:=$1F20;  MemW[$b800:(y-1)*160+(x-1)*2+$03CA]:=$17FF;
  221.   MemW[$b800:(y-1)*160+(x-1)*2+$03CC]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03CE]:=$10DB;
  222.   MemW[$b800:(y-1)*160+(x-1)*2+$0460]:=$1720;  MemW[$b800:(y-1)*160+(x-1)*2+$0462]:=$10DF;
  223.   MemW[$b800:(y-1)*160+(x-1)*2+$0464]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0466]:=$1720;
  224.   MemW[$b800:(y-1)*160+(x-1)*2+$0468]:=$1720;  MemW[$b800:(y-1)*160+(x-1)*2+$046A]:=$1720;
  225.   MemW[$b800:(y-1)*160+(x-1)*2+$046C]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$046E]:=$10DF;
  226.   MemW[$b800:(y-1)*160+(x-1)*2+$0500]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0502]:=$17FF;
  227.   MemW[$b800:(y-1)*160+(x-1)*2+$050E]:=$17FF;
  228.   delay(15);
  229. END;
  230.  
  231. PROCEDURE Put_i(x,y:integer);
  232. BEGIN
  233.   MemW[$b800:(y-1)*160+(x-1)*2+$0000]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0002]:=$1ADB;
  234.   MemW[$b800:(y-1)*160+(x-1)*2+$0004]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0006]:=$1ADB;
  235.   MemW[$b800:(y-1)*160+(x-1)*2+$0008]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$000A]:=$10DC;
  236.   MemW[$b800:(y-1)*160+(x-1)*2+$00A0]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$00A2]:=$10DF;
  237.   MemW[$b800:(y-1)*160+(x-1)*2+$00A4]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$00A6]:=$10DB;
  238.   MemW[$b800:(y-1)*160+(x-1)*2+$00A8]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$00AA]:=$10DF;
  239.   MemW[$b800:(y-1)*160+(x-1)*2+$0142]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0144]:=$1ADB;
  240.   MemW[$b800:(y-1)*160+(x-1)*2+$0146]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$0148]:=$17FF;
  241.   MemW[$b800:(y-1)*160+(x-1)*2+$014A]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$01E4]:=$1ADB;
  242.   MemW[$b800:(y-1)*160+(x-1)*2+$01E6]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$0284]:=$1ADB;
  243.   MemW[$b800:(y-1)*160+(x-1)*2+$0286]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$0324]:=$1ADB;
  244.   MemW[$b800:(y-1)*160+(x-1)*2+$0326]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C0]:=$1ADB;
  245.   MemW[$b800:(y-1)*160+(x-1)*2+$03C2]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C4]:=$1ADB;
  246.   MemW[$b800:(y-1)*160+(x-1)*2+$03C6]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C8]:=$1ADB;
  247.   MemW[$b800:(y-1)*160+(x-1)*2+$03CA]:=$10DC;  MemW[$b800:(y-1)*160+(x-1)*2+$0460]:=$17FF;
  248.   MemW[$b800:(y-1)*160+(x-1)*2+$0462]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0464]:=$10DF;
  249.   MemW[$b800:(y-1)*160+(x-1)*2+$0466]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0468]:=$10DF;
  250.   MemW[$b800:(y-1)*160+(x-1)*2+$046A]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$0502]:=$17FF;
  251.   MemW[$b800:(y-1)*160+(x-1)*2+$0504]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0506]:=$17FF;
  252.   MemW[$b800:(y-1)*160+(x-1)*2+$0508]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$050A]:=$17FF;
  253.   delay(15);
  254. END;
  255.  
  256. PROCEDURE Put_t(x,y:integer);
  257. BEGIN
  258.   MemW[$b800:(y-1)*160+(x-1)*2+$0000]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0002]:=$1ADB;
  259.   MemW[$b800:(y-1)*160+(x-1)*2+$0004]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0006]:=$1ADB;
  260.   MemW[$b800:(y-1)*160+(x-1)*2+$0008]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$000A]:=$1ADB;
  261.   MemW[$b800:(y-1)*160+(x-1)*2+$000C]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$000E]:=$1ADB;
  262.   MemW[$b800:(y-1)*160+(x-1)*2+$0010]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$0012]:=$10DC;
  263.   MemW[$b800:(y-1)*160+(x-1)*2+$00A0]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$00A2]:=$10DF;
  264.   MemW[$b800:(y-1)*160+(x-1)*2+$00A4]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$00A6]:=$10DF;
  265.   MemW[$b800:(y-1)*160+(x-1)*2+$00A8]:=$1ADB;  MemW[$b800:(y-1)*160+(x-1)*2+$00AA]:=$10DB;
  266.   MemW[$b800:(y-1)*160+(x-1)*2+$00AC]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$00AE]:=$10DF;
  267.   MemW[$b800:(y-1)*160+(x-1)*2+$00B0]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$00B2]:=$10DF;
  268.   MemW[$b800:(y-1)*160+(x-1)*2+$0142]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0144]:=$17FF;
  269.   MemW[$b800:(y-1)*160+(x-1)*2+$0146]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0148]:=$1ADB;
  270.   MemW[$b800:(y-1)*160+(x-1)*2+$014A]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$014C]:=$17FF;
  271.   MemW[$b800:(y-1)*160+(x-1)*2+$014E]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$0150]:=$17FF;
  272.   MemW[$b800:(y-1)*160+(x-1)*2+$0152]:=$17FF;  MemW[$b800:(y-1)*160+(x-1)*2+$01E8]:=$1ADB;
  273.   MemW[$b800:(y-1)*160+(x-1)*2+$01EA]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$0288]:=$1ADB;
  274.   MemW[$b800:(y-1)*160+(x-1)*2+$028A]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$0328]:=$1ADB;
  275.   MemW[$b800:(y-1)*160+(x-1)*2+$032A]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$03C8]:=$1ADB;
  276.   MemW[$b800:(y-1)*160+(x-1)*2+$03CA]:=$10DB;  MemW[$b800:(y-1)*160+(x-1)*2+$0468]:=$17FF;
  277.   MemW[$b800:(y-1)*160+(x-1)*2+$046A]:=$10DF;  MemW[$b800:(y-1)*160+(x-1)*2+$050A]:=$17FF;
  278.   delay(15);
  279. END;
  280.  
  281. begin
  282.   textbackground(blue);
  283.   clrscr;
  284.   cursor(false);
  285.   for y:=25 downto 3 do put_s(14,y);
  286.   for y:=25 downto 3 do put_c(23,y);
  287.   for y:=25 downto 3 do put_r(32,y);
  288.   for y:=25 downto 3 do put_e(41,y);
  289.   for y:=25 downto 3 do put_e(50,y);
  290.   for y:=25 downto 3 do put_n(59,y);
  291.  
  292.   for y:=25 downto 12 do
  293.   begin
  294.     put_w(13,y);
  295.     delay(5);
  296.   end;
  297.   for y:=25 downto 12 do
  298.   begin
  299.     put_r(23,y);
  300.     delay(5);
  301.   end;
  302.   for y:=25 downto 12 do
  303.   begin
  304.     put_i(32,y);
  305.     delay(5);
  306.   end;
  307.   for y:=25 downto 12 do
  308.   begin
  309.     put_t(40,y);
  310.     delay(5);
  311.   end;
  312.   for y:=25 downto 12 do
  313.   begin
  314.     put_e(52,y);
  315.     delay(5);
  316.   end;
  317.   for y:=25 downto 12 do
  318.   begin
  319.     put_r(62,y);
  320.     delay(5);
  321.   end;
  322.   gotoxy(31,21);
  323.   textcolor(lightgray);
  324.   Write('E D I T O R  '+Version);
  325.   gotoxy(29,23);
  326.   textcolor(white);
  327.   write('Press Alt-H for Help');
  328.   textcolor(lightgray);
  329.   gotoxy(19,24);
  330.   write('(C) Copywrite 1987, Martine B. Wedlake');
  331.   gotoxy(29,25);
  332.   write('<<< Press a Key >>>');
  333.   waitkey;
  334.   cursor(true);
  335.   initialize_editor(true);
  336. end;
  337.