ansisub 4/4

 BBS: Inland Empire Archive
Date: 03-13-93 (14:52)             Number: 267
From: JEFF FREEMAN                 Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: ansisub 4/4                    Conf: (2) Quik_Bas

'>>> Start of page 4.

          CASE 43: Bc = 6
          CASE 44: Bc = 1
          CASE 45: Bc = 5
          CASE 46: Bc = 3
          CASE 47: Bc = 7
        END SELECT
      NEXT c
      IF Fc <> OFc OR Bc <> OBc THEN COLOR Fc + Bl + Hi, Bc
      OFc = Fc: OBc = Bc
    CASE 74
      CLS 2
    CASE 70, 72
      SELECT CASE Parm(1)
        CASE 0: LOCATE 1, 1
        CASE ELSE: LOCATE Parm(1), Parm(2)
      END SELECT
    CASE 115: MemX = CSRLIN: MemY = POS(0)
    CASE 117: IF MemX <> 0 THEN LOCATE MemX, MemY
    CASE 75
      x = CSRLIN: Y = POS(0)
      PRINT SPACE$(80 - POS(0)); : LOCATE x, Y
    CASE 65: LOCATE CSRLIN - Parm(1)
    CASE 66: LOCATE CSRLIN + Parm(1)
    CASE 67: LOCATE , POS(0) + Parm(1)
    CASE 68: LOCATE , POS(0) - Parm(1)
   END SELECT

END SUB
'________O_/________________________| SNIP |______________________\_O_______
'        O \                        | HERE |                      / O



---
 * Origin: WarWorld's point away from home... (1:124/7006.1)