Part 2 of Clipedv6

 BBS: Inland Empire Archive
Date: 04-09-93 (22:56)             Number: 325
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Part 2 of Clipedv6             Conf: (2) Quik_Bas

'Part 2 of 5. Clipedv6.Bas
DEF SEG = &HA000 + 4000
OUT &H3C7, 0
FOR k = 0 TO 767
A = INP(&H3C9)
POKE k, A
NEXT
SCREEN 9
COLOR 12, 0
PRINT "Command from main screen:"
PRINT "<G>=Good Bye  <H>=This menu."
PRINT "<S>=Press this key before saving the picture using VGACLIP!"
PRINT "<Z>=Go to ZOOM Edit Mode."
PRINT
PRINT "Commands from ZOOM Edit Mode:"
PRINT "<D>=Pen-Down Mode."
PRINT "<C>=Increases color value."
PRINT "<->=Decreases color value."
PRINT "<F>=Changes color to the same color as one block to the right."
PRINT "<L>=Return to the main screen without saving the editing."
PRINT "<S>=Saves your editing and returns to the main screen."
PRINT "<U>=Pen Up Mode."
PRINT "Use the arrow keys on the keypad to move the cursor. Home moves"
PRINT "the cursor up and to the left. PgUp moves it up and to the right."
PRINT "End moves it down and to the left and PgDn moves it down and to"
PRINT "the right. All keys are repeat keys. Just hold them down!"
PRINT "Press any key to continue."
inkey2:
Z$ = INKEY$: IF Z$ = "" THEN GOTO inkey2
SCREEN 13
OUT &H3C8, 0: FOR k = 0 TO 767: OUT &H3C9, 0: NEXT
DEF SEG = &HA000: BLOAD "temp.bin", 0
DEF SEG = &HA000 + 4000
OUT &H3C8, 0
FOR k = 0 TO 767: P = PEEK(k): OUT &H3C9, P: NEXT
GOTO cursor
zoom:
GET (x%, y%)-(x% + 19, y% + 19), PIX
DEF SEG = &HA000 + 4000
OUT &H3C7, 0
FOR k = 0 TO 767: A = INP(&H3C9): POKE k, A: NEXT
DEF SEG = &HA000: BSAVE "temp.bin", 0, 64780!
CLS : PUT (50, 50), PIX, PSET
FOR y = 4 TO 164 STEP 8
LINE (100, y)-(260, y), 142
NEXT
FOR x = 100 TO 260 STEP 8
LINE (x, 4)-(x, 164), 142
NEXT
x = 160: y = 100
X1 = 59: Y1 = 60
i% = 1
OPEN "r", #1, "zoom", 1: FIELD 1, 1 AS O$
FOR y = 50 TO 69
FOR x = 50 TO 69
LSET O$ = CHR$(POINT(x, y)): PUT 1, i%
i% = i% + 1
NEXT x, y
CLOSE #1
i% = 1
'End of part 2 of 5

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