Window routines

 BBS: Inland Empire Archive
Date: 04-25-92 (02:58)             Number: 153
From: STEVE HALKO                  Refer#: 54
  To: MARK BUTLER                   Recvd: NO  
Subj: Window routines                Conf: (2) Quik_Bas

MB> ZJ> SUB Delay
MB> ZJ> DEF SEG = &HF000
MB> ZJ> IF PEEK(&HFFFE) <= 252 THEN  '<-- obviously some condition is being
MB> ZJ> DEF SEG                      '     checked but what, I'm not sure.
MB> ZJ> FOR t = 1 TO 4000            '<-- This appears to be a simple
MB> ZJ> NEXT t                       '     for/next type delay which is
MB> ZJ> END IF                       '     NO way to do it (blagh!) since
MB> ZJ> END SUB                      '     the actual delay time will vary
MB>                                  '     _dramatically_ from machine to
MB>                                  '     machine dependant on each
MB>                                  '     machine's clock speed.

  F000:FFFE contains the Model ID byte:

 Model ID Byte   Machine
 -------------   -------
    248          PS/2 Model 80
    249          Convertible
    250          PS/2 Model 30
    251          XT
    252          80286 Machines (XT/286, AT, PS/2 Model 50 & 60, etc.)
    253          PCjr
    254          Early XT, Portables, XT/370, 3270PC
    255          PC, XTs with < 640K on Motherboard

  I agree that his delay code doesn't make much sense.

 * SLMR 2.1a * Line noise? Don't need no stinki@$NO CARRI

--- DB B1065/002487
 * Origin: Gulf Coast BBS -QuickSHARE #2- (904)563-2547 HST/V.32bis (1:365/12)