Part 4 of Clipedv4

 BBS: Inland Empire Archive
Date: 04-09-93 (23:02)             Number: 327
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Part 4 of Clipedv4             Conf: (2) Quik_Bas

'Part 4 of 5. Clipedv6.bas
preparetoexit:
REM blanks cursor and saves-ends
PUT (x%, y%), B: PUT (x%, y%), B
inkey4:
i$ = INKEY$: IF i$ = "" THEN GOTO inkey4
IF i$ = "g" OR i$ = "G" THEN CLS : SCREEN 0: END
GOTO inkey4
errorroutine:
SCREEN 0: WIDTH 80: CLS : RESUME restart
keyboard:
DIM inregs AS RegTypeX, outregs AS RegTypeX
filespec$ = "*.cap" + CHR$(0)
PRINT STRING$(75, 196)
inregs.ax = &H2F00
CALL INTERRUPTX(&H21, inregs, outregs)
data.seg = outregs.es
data.off = outregs.bx
inregs.ax = &H4E00
inregs.dx = SADD(filespec$)
inregs.ds = -1
CALL INTERRUPTX(&H21, inregs, outregs)
cy = outregs.flags AND 1
IF cy = 0 THEN
WHILE cy = 0
DEF SEG = data.seg
f.name$ = ""
i = data.off + 30
WHILE PEEK(i) <> 0
f.name$ = f.name$ + CHR$(PEEK(i))
i = i + 1
WEND
DEF SEG
PRINT f.name$ + " ";
inregs.ax = &H4F00
CALL INTERRUPTX(&H21, inregs, outregs)
cy = outregs.flags AND 1
WEND
ELSE GOSUB PRINTNOCAPFILES
END IF
PRINT STRING$(75, 196)
INPUT "Filename to load"; n$
RETURN
PRINTNOCAPFILES:
PRINT "There are no .CAP files in this directory."
PRINT STRING$(75, 196)
INKEY5:
i$ = INKEY$: IF i$ = "" THEN GOTO INKEY5
DEF SEG : CLS : SCREEN 0: WIDTH 80: END
putcursor:
PUT (x - 3, y - 3), d
FOR d = 0 TO 50: NEXT
PUT (x - 3, y - 3), d
RETURN
printnewcolor:
PAINT (180, 185), c, 142
LOCATE 25, 30
PRINT "    ";
LOCATE 25, 30
PRINT c;
RETURN
'end of part 4 of 5

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