QWK Rep reader

 BBS: Inland Empire Archive
Date: 06-14-93 (12:58)             Number: 390
From: EARL MONTGOMERY              Refer#: NONE
  To: STEVE DEMO                    Recvd: NO  
Subj: QWK Rep reader                 Conf: (2) Quik_Bas

'Steve here is a little QWK Rep Reader I wrote awhile back.
'If you use other than PKZIP you'll have to change the source
'code. Also change the "> temp.dat" to "> NUL". If you want to.

'$INCLUDE: 'qb.bi'
CLEAR
DEFINT A-Z
counter = 1
DIM checkfilename$(10)
ON ERROR GOTO fixerror
SCREEN 0: CLS : WIDTH 80
CLS
GOSUB keyboard:
c$ = "rename " + n$ + ".rep" + " " + n$ + ".zip" 'Change if not ZIP
SHELL c$
cc$ = "pkunzip -O " + n$ + "> temp.dat" 'Change to " NUL" if you want.
SHELL cc$
KILL "temp.dat": CLS 'Delete this line if you change to NUL
OPEN "r", #1, n$ + ".msg", 1: FIELD 1, 1 AS a$
FOR x = 258 TO 32765
b$ = b$ + a$
IF RIGHT$(b$, 11) = "... OFFLINE" THEN GOSUB CLEANUP:
GET #1, x
IF ASC(a$) = 227 THEN PRINT : cnt = cnt + 1: GOTO jump
IF cnt = 22 THEN GOSUB holdscrn
IF EOF(1) = -1 THEN GOTO ExitToDos
PRINT a$;
jump:
NEXT
CLEANUP:
FOR x = x TO x + 500
GET #1, x
IF a$ = "O" THEN GET #1, x + 1: IF a$ = "n" THEN x = x - 2: PRINT : RETURN
NEXT
ExitToDos:
PRINT "           Press any key to continue";
WHILE INKEY$ = "": WEND
CLOSE #1: CLS
INPUT "Do you wish to delete the .REP Packet <Y or N>"; q$
q$ = UCASE$(q$)
IF q$ = "Y" THEN KILL n$ + ".ZIP": KILL n$ + ".msg": GOTO jump2
IF q$ = "N" THEN c$ = "rename " + n$ + ".zip" + " " + n$ + ".rep"
SHELL c$
KILL n$ + ".msg"
jump2:
SCREEN 0: CLS : CLEAR : END
holdscrn:
PRINT "                     Press any key to continue."
WHILE INKEY$ = "": WEND
cnt = 1
RETURN
keyboard:
LOCATE 1, 1: COLOR 1, 15: PRINT ".REP Reader For OFFLINE 1.52"
COLOR 15, 0
'end of part one of two

--- Maximus 2.01wb
 * Origin: Verbose Ink * Dallas * 214-437-0914 * V32b/HST (1:124/5125)