===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 03-27-93 (21:18)             Number: 97
From: JOHN WOODGATE                Refer#: 85
  To: JEFF JOHNSTON                 Recvd: NO  
Subj: Re: Windows                    Conf: (35) Quick Basi
---------------------------------------------------------------------------

IF BORDER% = 0 THEN
   FOR a = TOPROW% TO BOTROW%
      LOCATE a, LFTCOL%
      PRINT SPACE$(RTCOL% - LFTCOL% + 1);
   NEXT a
   EXIT SUB
END IF
IF BORDER% = 1 THEN
  LOCATE TOPROW%, LFTCOL%
  PRINT CHR$(218); STRING$(RTCOL% - LFTCOL% - 1, CHR$(196)); --CHR$(191);
  FOR a = TOPROW% + 1 TO BOTROW% - 1
     LOCATE a, LFTCOL%
    PRINT CHR$(179); SPACE$(RTCOL% - LFTCOL% - 1); CHR$(179);
  NEXT a
  LOCATE BOTROW%, LFTCOL%
 PRINT CHR$(192); STRING$(RTCOL% - LFTCOL% - 1,CHR$(196); CHR$(217);
EXIT SUB
END IF

END SUB


DEFINT A-Z
SUB PokeChar(code%, colour%, row%, col%)

DEF SEG = 0
IF PEEK(&H463) = &HB4 THEN
  DEF SEG = &HB000
ELSE
  DEF SEG = &HB800
END IF
IF row% = 1 THEN
  IF col% = 1 THEN
    col% = col% - 1
    segment% = col% * 2
  ELSE
    segment% = col% * 2 - 2
  END IF
ELSE
  segment% = row% * 160 - 160
  segment% = segment% + col% * 2 - 2
END IF
colorseg% = segment% + 1
IF colour% = 0 THEN
  POKE segment%, code%
ELSE
  POKE colorseg%, colour%
  POKE segment%,code%
END IF

END SUB

Hope That Helps......

--- John Woodgate
---
 * Origin: WALK in the SHADOWs of the NIGHT 612-825-0595 (1:282/105)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20