home *** CD-ROM | disk | FTP | other *** search
/ Monster Disc 2: The Best of 1992 / MONSTER1.ISO / bbs / rbbs / ansc174.zip / RSB5ANSI.MRG < prev   
Text File  |  1992-07-13  |  2KB  |  45 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce RBBSSUB5.NEW
  3. * RBBSSUB5.BAS:  Date 6-20-1992  Size 116575 bytes
  4. * ------------[ Created 06-28-1992 22:20:51 ]------------
  5. * REPLACING old line(s) by new
  6. 63700 ' $SUBTITLE: 'TestANSI - test caller for ANSI support'
  7. ' $PAGE
  8. '
  9. '  NAME    -- TestANSI
  10. '                                  MEANING
  11. '  INPUTS  -- ZTestANSITime   # of seconds to wait for ANSI response
  12. '                             0 = do not test for ANSI
  13. '
  14. * ------[ first line different ]------
  15. '  OUTPUTS -- ZCanANSIChat      = ZTrue if ANSIChat possible         ' DD071301/CHAT
  16. '
  17. '  PURPOSE -- Test callers' software for support of ANSI graphics
  18. '
  19.       SUB TestANSI STATIC
  20.       IF ZTestANSITime < 1 THEN _
  21.          GOTO 63705
  22.       IF ZLocalUser THEN _
  23.          IF ZDOSAnsi THEN _
  24.             GOTO 63710 _
  25.          ELSE GOTO 63705
  26.       CALL FlushCom(Temp$)
  27.       CALL PutCom (ZEscape$ + "[6n")
  28.       CALL DelayTime(ZTestANSITime)
  29.       CALL WipeLine (5)
  30.       CALL FlushCom(Temp$)
  31.       CALL WipeLine (5)
  32.       Temp = INSTR(Temp$,ZEscape$ + "[")
  33.       IF Temp > 0 THEN _
  34.          Temp = INSTR(Temp,Temp$,"R") : _
  35.          IF TEMP > 0 AND TEMP < 9 THEN _
  36.             GOTO 63710
  37. * REPLACING old line(s) by new
  38. 63710 CALL SetGraphic(2)
  39.       ZHiLiteOff = ZFalse
  40.       CALL QuickTPut1 ("ANSI detected")
  41. * ------[ first line different ]------
  42.       IF ZDOSANSI THEN _
  43.          ZCanANSIChat = ZTrue                                        ' DD071301/CHAT
  44.       END SUB
  45.