===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 06-14-93 (13:02)             Number: 3
From: EARL MONTGOMERY              Refer#: 153
  To: STEVE DEMO                    Recvd: NO  
Subj: QWK Rep Reader                 Conf: (35) Quick Basi
---------------------------------------------------------------------------
'part 2 of 2
DIM inregs AS RegTypeX, outregs AS RegTypeX
filespec$ = "*.rep" + CHR$(0)
PRINT STRING$(75, 196)
inregs.ax = &H2F00
CALL INTERRUPTX(&H21, inregs, outregs)
data.seg = outregs.es
data.off = outregs.bx
inregs.ax = &H4E00
inregs.dx = SADD(filespec$)
inregs.ds = -1
CALL INTERRUPTX(&H21, inregs, outregs)
cy = outregs.flags AND 1
IF cy = 0 THEN
WHILE cy = 0
DEF SEG = data.seg
f.name$ = ""
i = data.off + 30
WHILE PEEK(i) <> 0
f.name$ = f.name$ + CHR$(PEEK(i))
i = i + 1
WEND
DEF SEG
PRINT f.name$ + " ";
checkfilename$(counter) = f.name$
counter = counter + 1
inregs.ax = &H4F00
CALL INTERRUPTX(&H21, inregs, outregs)
cy = outregs.flags AND 1
WEND
ELSE GOTO NOREPFILES
END IF
PRINT STRING$(75, 196)
INPUT "Filename to view <No Extension>"; n$
n$ = UCASE$(n$)
FOR x = 1 TO 10
IF n$ + ".REP" = checkfilename$(x) THEN RETURN
NEXT
GOTO fixerror
NOREPFILES:
PRINT "There are no .REP files in this directory."
PRINT STRING$(75, 196)
WHILE INKEY$ = "": WEND
DEF SEG : CLS : SCREEN 0: WIDTH 80: END
fixerror:
CLS
PRINT "You have entered an Invalid Filename."
PRINT "DO NOT include the extension <.REP> in the FileName"
PRINT "Check your INPUT for spelling before pressing <ENTER>"
INPUT "Do you wish to try again? <Y> <N>"; q$
q$ = UCASE$(q$)
IF q$ = "Y" THEN RUN
IF q$ = "N" THEN GOTO BYE
IF q$ <> "Y" OR q$ <> "N" THEN BEEP: GOTO fixerror
BYE:
CLS : SCREEN 0: DEF SEG : CLEAR : END
"end of 2 of 2

--- Maximus 2.01wb
 * Origin: Verbose Ink * Dallas * 214-437-0914 * V32b/HST (1:124/5125)
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/110 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20