Part 3 of clipedv6.bas

 BBS: Inland Empire Archive
Date: 04-09-93 (22:58)             Number: 326
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Part 3 of clipedv6.bas         Conf: (2) Quik_Bas

'Part 3 of 5 clipedv6.bas
OPEN "r", #1, "zoom", 1: FIELD 1, 1 AS O$
FOR y = 6 TO 164 STEP 8
FOR x = 102 TO 260 STEP 8
GET #1, i%: i% = i% + 1
IF ASC(O$) = 142 THEN PAINT (x, y), 143, 142: GOTO skipover
PAINT (x, y), ASC(O$), 142
skipover:
NEXT x, y
CLOSE #1
x = 176: y = 88
flag$ = "jump"
LINE (170, 180)-(190, 198), 142, B
c = POINT(x, y)
IF c = 142 THEN c = 143
PAINT (180, 185), c, 142: LOCATE 25, 30: PRINT c;
inkey3:
i$ = INKEY$: IF i$ = "" THEN GOSUB putcursor: GOTO inkey3
AA = ASC(i$)
IF AA = 0 THEN GOTO keyboardscanfromzoom
IF i$ = "d" OR i$ = "D" THEN flag$ = ""
IF i$ = "c" OR i$ = "C" THEN c = c + 1: IF c > 255 THEN c = 0
IF i$ = "-" OR i$ = "_" THEN c = c - 1: IF c < 0 THEN c = 0
IF c = 142 AND i$ = "-" OR i$ = "_" THEN c = 141
IF c = 142 AND i$ = "c" OR i$ = "C" THEN c = 143
IF i$ = "c" OR i$ = "C" THEN GOSUB printnewcolor
IF i$ = "-" OR i$ = "_" THEN GOSUB printnewcolor
IF i$ = "f" OR i$ = "F" THEN c = POINT(x + 8, y): IF c = 142 THEN c = 143
IF i$ = "s" OR i$ = "S" THEN GOTO savefromkeyboard
IF i$ = "l" OR i$ = "L" THEN GOSUB bloadscrn: GOTO cursor
IF i$ = "u" OR i$ = "U" THEN flag$ = "jump"
IF flag$ = "" THEN PAINT (x, y), c, 142: PSET (X1, Y1), c
PUT (x - 3, y - 3), d: FOR d = 0 TO 50: NEXT: PUT (x - 3, y - 3), d
i$ = "": GOTO inkey3
keyboardscanfromzoom:
IF ASC(MID$(i$, 2)) = 75 THEN x = x - 8: X1 = X1 - 1
IF ASC(MID$(i$, 2)) = 77 THEN x = x + 8: X1 = X1 + 1
IF ASC(MID$(i$, 2)) = 72 THEN y = y - 8: Y1 = Y1 - 1
IF ASC(MID$(i$, 2)) = 80 THEN y = y + 8: Y1 = Y1 + 1
IF ASC(MID$(i$, 2)) = 71 THEN x = x - 8: y = y - 8: X1 = X1 - 1: Y1 = Y1 - 1
IF ASC(MID$(i$, 2)) = 79 THEN x = x - 8: y = y + 8: X1 = X1 - 1: Y1 = Y1 + 1
IF ASC(MID$(i$, 2)) = 73 THEN x = x + 8: y = y - 8: X1 = X1 + 1: Y1 = Y1 - 1
IF ASC(MID$(i$, 2)) = 81 THEN x = x + 8: y = y + 8: X1 = X1 + 1: Y1 = Y1 + 1
IF x > 256 THEN x = 256
IF x < 104 THEN x = 104
IF y > 160 THEN y = 160
IF y < 8 THEN y = 8
IF X1 < 50 THEN X1 = 50
IF X1 > 69 THEN X1 = 69
IF Y1 > 69 THEN Y1 = 69
IF Y1 < 50 THEN Y1 = 50
IF flag$ = "jump" THEN GOSUB putcursor: GOTO inkey3
PAINT (x, y), c, 142
PSET (X1, Y1), c
GOTO inkey3
savefromkeyboard:
GET (50, 50)-(69, 69), PIX
DEF SEG = &HA000: BLOAD "temp.bin", 0
PUT (x%, y%), PIX, PSET
GOTO cursor

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