Mview Code 4 Of 5

 BBS: Inland Empire Archive
Date: 03-20-93 (00:43)             Number: 179
From: STEVE DEMO                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Mview Code 4 Of 5              Conf: (2) Quik_Bas

'>>> Start of page 4.

        MID$(Text$, Foundone) = " "                    '|
         FOR Dotest = 1 TO Testit                      '|  A little Slow
          T$ = MID$(Text$, Dotest, 1)              '|  but I know No
          IF T$ = CHR$(7) THEN                     '|  Better Way
            MID$(Text$, Dotest) = " "              '|
          END IF                                   '|
          NEXT Dotest                                  '|       S
      END IF                                           '|       U
      Foundone = INSTR(Text$, CHR$(12))                '|       G
      IF Foundone THEN                                 '|       G
        MID$(Text$, Foundone) = " "                    '|       E
        Testit = LEN(Text$)                            '|       S
        MID$(Text$, Foundone) = " "                    '|       T
         FOR Dotest = 1 TO Testit                      '|       I
          T$ = MID$(Text$, Dotest, 1)              '|       O
          IF T$ = CHR$(12) THEN                    '|       N
            MID$(Text$, Dotest) = " "              '|       S
          END IF                                   '|       ?
          NEXT Dotest                                  '|END filter
       Foundone = 0                                   ' +-------------<
      END IF
    ELSE
    Text$ = ""
    Text$ = SPACE$(80)
    END IF
      IF Text$ = "" THEN Text$ = SPACE$(80)
     Strg$ = SPACE$(80)
      IF LEN(Text$) < CurCol THEN Text$ = Text$ + SPACE$(CurCol -_
 LEN(Text$))
     LSET Strg$ = MID$(Text$, CurCol)
     LOCATE I, 1
     PRINT Strg$;
    NEXT I
RETURN

KeyProcess:

  Press$ = INKEY$
   MouseStatus vert%, hor%, Mbuttons$
    IF Mbuttons$ = "R" THEN
      mouseoff
      PCOPY 0, 3
      COLOR 14, 4
      LOCATE 17, 30
      PRINT "+---------[ Info ]----------+";
      LOCATE 18, 30
      PRINT "| Only use Left Paw Please  |";
      LOCATE 19, 30
      PRINT "|                           |";
      LOCATE 20, 30
      PRINT "| Click Left button Please  |";
      LOCATE 21, 30
      PRINT "+---------------------------+";
       DO UNTIL Mbuttons$ = "L"
          MouseStatus vert%, hor%, Mbuttons$
       LOOP
      COLOR 0, 7
      PCOPY 3, 0
      mouseon
     END IF
    IF Mbuttons$ = "L" THEN
       IF vert% = 2 THEN
          IF hor% >= 26 AND hor% <= 28 THEN Press$ = CHR$(27)   'esc
          IF hor% >= 32 AND hor% <= 35 THEN Press$ = CHR$(0) + CHR$(73)_
 'pgup
          IF hor% >= 39 AND hor% <= 42 THEN Press$ = CHR$(0) + CHR$(81)_
 'pgdn
          IF hor% >= 45 AND hor% <= 47 THEN Press$ = CHR$(0) + CHR$(79)_
 'end
          IF hor% >= 50 AND hor% <= 53 THEN Press$ = CHR$(0) + CHR$(71)_
 'home
          IF hor% = 56 THEN Press$ = CHR$(0) + CHR$(72)     'up arrow
          IF hor% = 59 THEN Press$ = CHR$(0) + CHR$(80)     'dn arrow
          IF hor% = 62 THEN Press$ = CHR$(0) + CHR$(77)     'right arrow
          IF hor% = 65 THEN Press$ = CHR$(0) + CHR$(75)     'left arrow
          IF hor% >= 67 AND hor% < 72 THEN Press$ = "P"
        ELSE
          PLAY "msL64<dBAGFED.>"
        END IF
       END IF
  IF Press$ = "" THEN GOTO KeyProcess
    SELECT CASE UCASE$(Press$)
    CASE CHR$(27)
          GOTO Goodby    'Escape = true        ' ESC
    CASE CHR$(0) + CHR$(72)             ' Up Arrow
        SeekEl = SeekEl - 1
         IF SeekEl < 1 THEN
        SeekEl = 1
        GOTO KeyProcess
         END IF
    CASE CHR$(0) + CHR$(80)             ' Dn Arrow

'>>> Continued on page 5.

___ Blue Wave/QWK v2.11

--- Maximus 2.01wb
 * Origin: Semper Fi BBS  Ft. Wayne, IN  (219) 424-4292 (1:236/21)