TID: Mystic BBS 1.12 A47   
   MSGID: 1:129/215 14cb6fe5   
   REPLY: 2:250/6 364f396b   
   TZUTC: -0500   
    LW> I'm currently having a play around with MPL scripts (A46 Win32) and   
    LW> appear to have run into an issue regarding the 'KeyPressed/ReadKey'   
    LW> functions in the following code:   
      
   My first suggestion would be to update to the A47 release since I no longer   
   have the A46 code to make a fix if we do determine a bug exists.  It could be   
   something fixed in A47 as well.   
      
    LW>   gExitFlag := false;   
    LW>   repeat   
    LW>     write('|[X00|[Y00' + int2str(gCount));   
    LW>     gCount := gCount + 1;   
    LW>     if (keypressed()) then   
    LW>       begin   
    LW>         if ('q' = readkey()) then   
    LW>           gExitFlag := true;   
    LW>       end   
    LW>   until gExitFlag = true;   
      
   Assuming you're not trying to do more than what you're showing here you could   
   simplify this with a single line like:   
      
   Repeat Until OneKey('Q') = 'Q';   
      
   Or   
      
   Repeat Until UpCase(ReadKey) = 'Q';   
      
   In any case, if you are going to loop like you are there I would suggest   
   putting some minor delay in there so as to not blow up your CPU usage.  Maybe   
   a delay(10) at the bottom of the repeat loop.   
      
   ... Some people have no idea what they're doing, and are really good at it!   
      
   --- Mystic BBS v1.12 A47 2021/12/25 (Windows/64)   
    * Origin: Sector 7 * Mystic WHQ (1:129/215)   
   SEEN-BY: 1/123 15/0 90/1 103/705 105/81 106/201 120/340 616 123/10   
   SEEN-BY: 123/131 124/5016 129/215 305 153/757 7715 154/10 30 40 50   
   SEEN-BY: 154/700 203/0 220/80 90 221/0 6 226/18 30 227/114 201 229/310   
   SEEN-BY: 229/424 426 428 452 550 664 700 240/1120 5411 5824 5832 5853   
   SEEN-BY: 240/5890 6309 249/206 307 317 400 266/512 280/464 5003 282/1038   
   SEEN-BY: 292/854 8125 301/1 317/3 320/219 322/757 341/234 342/200   
   SEEN-BY: 396/45 633/280 712/848 770/1 2320/105 2452/250 2454/119 3634/12   
   PATH: 129/215 154/10 280/464 240/5832 229/426