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

   NEXT
NEXT
' Here's where the reduction takes place.  The
' STEP 2 causes a picture size reduction of 75%
DEF SEG = &HA000
FOR z& = 0 TO 63999 STEP 2
    POKE d&, PEEK(z&)
    d& = d& + 1
NEXT
a% = 160
b% = 319
FOR i% = 1 TO 100
   FOR x% = a% TO b% STEP 16
      FOR L% = 0 TO 15
     DEF SEG = &HA000
     Pix% = PEEK(x% + L%)
     DEF SEG
     POKE P&, Pix%
     P& = P& + 1
      NEXT
   NEXT
   a% = a% + 320
   b% = a% + 159
NEXT
outfile$ = "Temp.PIC"
OPEN outfile$ FOR OUTPUT AS 1
PRINT #1, DD$;
CLOSE 1
SCREEN 0: WIDTH 80: CLS
PRINT outfile$; " created.  Use VIEWER to see result."
WHILE INKEY$ = "": WEND
DEF SEG : END
nocaps:
SCREEN 0: WIDTH 80: CLS
PRINT "There are no .CAP files in this directory"
WHILE INKEY$ = "": WEND
DEF SEG : END
errorroutine:
SCREEN 0: CLS : WIDTH 80
PRINT "You have entered an incorrect filename."
INPUT "Do you want to try again <Y> <N>"; q$
q$ = UCASE$(q$)
IF q$ = "Y" THEN RUN
SCREEN 0: WIDTH 80: CLS : 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