Just a sample of the Echomail archive
Cooperative anarchy at its finest, still active today. Darkrealms is the Zone 1 Hub.
|    MYSTIC    |    Mystic support echo    |    16,010 messages    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
|    Message 14,196 of 16,010    |
|    LEE WESTLAKE to All    |
|    Issue with MPL script    |
|    07 Jan 22 19:34:25    |
   
   TID: Mystic BBS 1.12 A46   
   MSGID: 2:250/6 364f396b   
   TZUTC: 0000   
   Hi all,   
      
   I'm currently having a play around with MPL scripts (A46 Win32) and appear to   
   have run into an issue regarding the 'KeyPressed/ReadKey' functions in the   
   following code:   
      
   ----------   
      
   var gExitFlag : boolean;   
   var gCount : integer;   
      
   begin   
    gExitFlag := false;   
    repeat   
    write('|[X00|[Y00' + int2str(gCount));   
    gCount := gCount + 1;   
    if (keypressed()) then   
    begin   
    if ('q' = readkey()) then   
    gExitFlag := true;   
    end   
    until gExitFlag = true;   
   end.   
      
   ----------   
      
   The code appears to run as expected when I connect via syncterm, but the   
   netrunner client appears to send a periodic heartbeat code which forces   
   the KeyPressed function to return 'true'. I'm not sure which code netrunner   
   is sendind, but it appears to stall the subsequent call to ReadKey - pressing   
   a key allows the script to continue until the next heartbeat code is sent.   
      
   Most of this is largely supposition, but perhaps the heartbeat code is   
   fooling ReadKey into waiting for a multi-byte sequence? Failing that, perhaps   
   there's an error in the script somewhere?   
      
   Any help and/or advice would be greatly appreciated.   
      
    o-----------o------------o-------------------------o   
    TALIADON | 2:250/6 | 21:3/138 | TALIADON-BBS@MAIL.COM |   
   o-----------o-----------o------------o-------------------------o   
   | "Error is a great teacher, and humility its hardest lesson." |   
   o--------------------------------------------------------------o   
   --- Mystic BBS v1.12 A46 2020/08/26 (Windows/32)   
    * Origin: TALIADON BBS (2:250/6)   
   SEEN-BY: 1/123 15/0 25/0 21 30/0 80/1 90/1 103/705 105/81 106/201   
   SEEN-BY: 120/340 123/131 129/305 153/7715 154/10 218/700 221/1 6 226/30   
   SEEN-BY: 227/114 229/424 426 428 452 550 664 700 240/1120 5832 249/206   
   SEEN-BY: 249/307 317 400 250/0 1 2 3 4 5 6 7 8 9 10 21 263/0 266/512   
   SEEN-BY: 280/464 282/464 1038 292/854 301/0 1 101 113 317/3 320/219   
   SEEN-BY: 322/757 335/364 341/66 342/200 396/45 633/280 640/1321 712/848   
   SEEN-BY: 920/1 3634/12 5020/1042 5058/104   
   PATH: 250/6 1 301/1 229/426   
      
|
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
(c) 1994, bbs@darkrealms.ca