===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 04-21-93 (14:56)             Number: 183
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: VIEWER.BAS                     Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> Start of page 2.

pal(cnt) = PEEK(P&)
cnt = cnt + 1
P& = P& + 1
DEF SEG = &HA000
NEXT
NEXT
a = LeftMost
b = LeftMost + 159
FOR i = 1 TO 100
FOR x = a TO b STEP 16
FOR L = 0 TO 15
DEF SEG
pix = PEEK(P&)
DEF SEG = &HA000
POKE x + L, pix
P& = P& + 1
NEXT
NEXT
a = a + 320
b = a + 159
NEXT
DD$ = ""
DEF SEG
GET (0, 0)-(159, 99), c
PUT (0, 0), d, PSET
r = RND * 255
t = RND * 255
PUT (80, 54), c, PSET
LINE (0, 0)-(319, 53), r, BF
LINE (0, 54)-(79, 199), r, BF
LINE (0, 154)-(319, 199), r, BF
LINE (240, 54)-(319, 199), r, BF
LINE (80, 53)-(239, 48), t, BF
LINE (75, 48)-(79, 158), t, BF
LINE (75, 154)-(239, 159), t, BF
LINE (239, 159)-(244, 48), t, BF
OUT &H3C8, 0
FOR x = 0 TO 767
OUT &H3C9, pal(x)
NEXT
WHILE INKEY$ = "": WEND
SCREEN 0: CLS : WIDTH 80
INPUT "Care to view another <Y> <N> "; q$
q$ = UCASE$(q$)
IF q$ = "Y" THEN RUN
SCREEN 0: CLS : WIDTH 80: DEF SEG : END
errorroutine:
CLS
PRINT "You have entered an incorrect filename."
INPUT "Do you wish to try again <Y> <N> "; q$
q$ = UCASE$(q$)
IF q$ = "Y" THEN flag$ = "": RUN
DEF SEG : END
nopics:
SCREEN 0: CLS : WIDTH 80
PRINT "There are no .PIC files in this directory."
WHILE INKEY$ = "": WEND
DEF SEG : END

'________O_/________________________| SNIP |______________________\_O_______
'        O \                        | HERE |                        /O

--- 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