Mview Code 1 Of 5

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

Here is a little program I wrote I know it's not as great as some of the
other code around here but I thought someone might be able to use it.

'________O_/________________________| SNIP |______________________\_O_______
'        O \                        | HERE |                      / O
'This file created by PostIt! v5.1.
'>>> Start of page 1.

' MVIEW.BAS ----- Mouse Driven File Viewer
' Written By:     Steve Demo
'
' This program requires:
' a Mickey
' At least EGA You need 256k video mem. Because of 43 line mode + Pcopy
' Credit given to:
'
' Chirs Wagner for Mickey routines
' Orginal VIEW.BAS written by Matt Hart
'
' Do with this what you will but don't forget those who
' contributed to it's out come.
' It should be Bug Free <g> If not V 1.03
'
' LOAD QB as follows:     QB /L QB /AH MVIEW    or it WON'T WORK
'
DEFINT A-Z
'$INCLUDE: 'QB.BI'
DECLARE SUB mouseon ()
DECLARE SUB mouseoff ()
DECLARE SUB ViewHdcat (File$)
DECLARE FUNCTION MouseInstalled% ()
DECLARE SUB MouseSetHor (Min%, Max%)
DECLARE SUB MouseSetVert (Min%, Max%)
DECLARE SUB MouseLocate (Xpos%, Ypos%)
DECLARE SUB MouseStatus (vert%, hor%, Mbuttons$)

DIM SHARED RegX AS RegTypeX
ON ERROR GOTO noega

    IF MouseInstalled% THEN
      COLOR 15, 0
      PRINT "MView V 1.02"
      PRINT "One Mickey Escapes Mr.Cat : Using Mouse"
      PLAY "msL20<defgab.>"
      SOUND 9000, 2
    ELSE
      PRINT "MView V 1.02"
      PRINT "Oh NO Mickey not found Bad Cat. Sorry"
      PLAY "msL20<dBAGFED.>"
      SOUND 9000, 2
      SLEEP 2
      GOTO ending
    END IF

    File$ = COMMAND$
    IF File$ = "" THEN
       LINE INPUT "FILE ? ", File$
    END IF
    IF File$ = "" THEN
       PRINT "You didn't enter a file"
       PRINT "One last try"
       PLAY "msL20<dBAGFED.>"
       SHELL "dir /w/p"
       SOUND 9000, 2
       LINE INPUT "FILE ? ", File$
     END IF
     IF File$ = "" THEN GOTO ending            ' Sore head
     ViewHdcat UCASE$(File$)

ending:
     WIDTH 80, 25                              ' Restore Screen to 80 x 25
     COLOR 15, 0                               ' reset color white on black
     CLS
     PRINT : PRINT
     PRINT "Have you hugged your Computer today ?"
     PRINT "MView V 1.02 -----------> SRD Software"
     END
noega:
    SELECT CASE ERR
     CASE 9                                      ' We can't have this
      RESUME NEXT        ' <---------------------- Take that. Allows a Little
     CASE ELSE                                   ' More Seek and Find.
      WIDTH 80, 25: COLOR 15, 0: CLS : PRINT : PRINT
      PRINT "Coffee and Keyboards don't mix  Did you spill some?  Error"+_
" "; ERR
      PRINT "MView V 1.02 -----------> SRD Software"
      PRINT : PRINT
      PRINT "Usage : MVIEW FILE.TXT  or  MVIEW and follow the prompts":_
 PRINT
      END
      END SELECT

'>>> Continued on page 2.

___ Blue Wave/QWK v2.11

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