Companion Program to VGAC

 BBS: Inland Empire Archive
Date: 04-09-93 (22:54)             Number: 324
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Companion Program to VGAC      Conf: (2) Quik_Bas

'Part 1 of 5 parts CLIPEDv6.BAS
'A companion program to VGACLIP.EXE
'Make sure you save the Document File that follows this post!
' $INCLUDE: 'qb.bi'
DEFINT K, P
ON ERROR GOTO errorroutine
DIM B(500)
DIM d(100)
DIM PIX(1000)
DIM inreg AS RegType
DIM outreg AS RegType
restart:
SCREEN 0: CLS
PRINT "CLIPEDv6.BAS": PRINT "Copyright (C) Earl Montgomery 1990"
PRINT
GOSUB keyboard
begin:
SCREEN 13: DEF SEG = &HA000
DRAW "c142;bm100,100;r4;br2;bu2;u3;bd5;br2;r4;bl6;bd2;d3;"
DRAW "bm2,2;r6;d6;l6;u6;"
GET (2, 2)-(8, 8), d
GET (98, 92)-(114, 108), B
CLS
OUT &H3C8, 0
FOR k = 0 TO 767: OUT &H3C9, 0: NEXT
DEF SEG = &HA000
BLOAD n$ + ".cap", 0: DEF SEG = &HA000 + 4000
OUT &H3C8, 0
FOR k = 0 TO 767: P = PEEK(k): OUT &H3C9, P: NEXT
REM Main Program
x% = 160: y% = 100
cursor:
PUT (x%, y%), B
inkey1:
i$ = INKEY$: IF i$ = "" THEN GOTO inkey1
IF i$ = " " THEN GOTO inkey1
PUT (x%, y%), B
AA% = ASC(i$) AND 223
IF AA% = 0 THEN GOTO mainkeyboardscan
IF AA% = 71 THEN COLOR 15: CLS : SCREEN 0: DEF SEG : END
IF AA% = 83 THEN GOTO preparetoexit
IF AA% = 72 THEN GOTO helpscrn
IF AA% = 90 THEN GOTO zoom
GOTO cursor
mainkeyboardscan:
IF ASC(MID$(i$, 2)) = 75 THEN x% = x% - 2
IF ASC(MID$(i$, 2)) = 77 THEN x% = x% + 2
IF ASC(MID$(i$, 2)) = 72 THEN y% = y% - 2
IF ASC(MID$(i$, 2)) = 80 THEN y% = y% + 2
IF ASC(MID$(i$, 2)) = 71 THEN x% = x% - 2: y% = y% - 2
IF ASC(MID$(i$, 2)) = 79 THEN x% = x% - 2: y% = y% + 2
IF ASC(MID$(i$, 2)) = 73 THEN x% = x% + 2: y% = y% - 2
IF ASC(MID$(i$, 2)) = 81 THEN x% = x% + 2: y% = y% + 2
IF x% > 300 THEN x% = 300
IF x% < 6 THEN x% = 6
IF y% > 180 THEN y% = 180
IF y% < 5 THEN y% = 5
GOTO cursor
helpscrn:
DEF SEG = &HA000: BSAVE "temp.bin", 0, 64780!: CLS
'End of part 1 of 5

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