===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 04-21-93 (14:54)             Number: 182
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: VIEWER.BAS                     Conf: (35) Quick Basi
---------------------------------------------------------------------------
'________O_/________________________| SNIP |______________________\_O_______
'        O \                        | HERE |                        /O
'This file created by PostIt! v6.0.
'>>> Start of page 1.

'$INCLUDE: 'qb.bi'
REM Earl Montgomery 1993
RANDOMIZE TIMER
DIM inregs AS regtypex, outregs AS regtypex
filespec$ = "*.PIC" + CHR$(0)
SCREEN 0: WIDTH 80: CLS
PRINT STRING$(75, 196)
checkfilename:
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
IF flag$ <> "No Print" THEN PRINT f.name$ + " ";
inregs.ax = &H4F00
CALL interruptx(&H21, inregs, outregs)
cy = outregs.flags AND 1
WEND
ELSE GOSUB nopics
END IF
PRINT STRING$(75, 196)
IF flag$ = "No Print" THEN flag$ = "": GOTO begin
DEF SEG
DEFINT A-Z
DIM c(16000)
DIM d(16000)
DIM pal(768)
INPUT "File Name to View <NO EXTENSION> "; filename$
filename$ = filename$ + ".pic"
flag$ = "No Print"
filespec$ = filename$ + CHR$(0)
GOTO checkfilename
begin:
SCREEN 13
OUT &H3C8, 0
FOR x = 0 TO 768
OUT &H3C9, 0
NEXT
GET (0, 0)-(159, 99), d
OPEN filename$ FOR BINARY AS 1
OUT &H3C8, 0
DD$ = INPUT$(16768, #1)
i = VARPTR(DD$)
P& = 256 * PEEK(i + 3) + PEEK(i + 2)
FOR i = 0 TO 767 STEP 16
FOR L = 0 TO 15
DEF SEG

'>>> Continued on page 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/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20