home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
clarion
/
library
/
pcx3
/
pcx3.cpy
< prev
next >
Wrap
Text File
|
1992-08-19
|
2KB
|
55 lines
MAP
MODULE('PCX3'),BINARY
PROC(SETVMODE) !SETVMODE(video_mode)
PROC(SETVCARD) !SETVCARD(video_card)
PROC(SETVMONITOR) !SETVMONITOR(video_monitor)
PROC(SETVMEM) !SETSMEM(superVGAmemory)
PROC(PCX) !PCX(file.ext)
PROC(SETPCX) !SETPCX(file.ext,x,y)
PROC(SAVEPCX) !SAVEPCX(file.ext,x1,y1,x2,y2)
PROC(BLOB) !BLOB(file.ext,x,y,a)
PROC(SAVEBLOB) !SAVEBLOB(file.ext,x1,y2,x2,y2)
FUNC(VMODE),LONG !video_mode = VMODE()
FUNC(WIDTH),LONG !screen_width = WIDTH()
FUNC(DEPTH),LONG !screen_depth = DEPTH()
PROC(DOT) !DOT(x,y,pal#)
PROC(FILL) !FILL(x,y,pal#)
PROC(LINE) !LINE(x1,y1,x2,y2,pal#)
PROC(DRAWTO) !LINE(x,y,pal#)
PROC(CIRCLE) !CIRCLE(x,y,w,h,pal#)
PROC(DISC) !DISC(x,y,w,h,pal#)
PROC(FRAME) !FRAME(x1,y1,x2,y2,pal#)
PROC(BOX) !BOX(x1,y1,x2,y2,pal#)
PROC(CLRSCREEN) !CLRSCREEN(pal#)
PROC(SETCOLOR) !SETCOLOR(pal#,r,g,b)
PROC(SETPOS) !SETPOS(x,y)
PROC(DRAW) !DRAW('string',pal#)
PROC(USEPATTERN) !USEPATTERN(pat#)
PROC(SETPATTERN) !SETPATTERN(pat#,'pattern')
FUNC(RED),LONG !red = RED(pal#)
FUNC(GREEN),LONG !green = GREEN(pal#)
FUNC(BLUE),LONG !blue = BLUE(pal#)
FUNC(READDOT),LONG !pal# = READDOT(x,y)
FUNC(GETX),LONG !x = GETX()
FUNC(GETY),LONG !y = GETY()
PROC(MOUSEINIT) !MOUSEINIT
PROC(MOUSEON) !MOUSEON
PROC(MOUSEOFF) !MOUSEOFF
PROC(WINDOW) !WINDOW(x1,y1,x2,y2)
PROC(MSPEED) !MSPEED(speed)
PROC(SETMPOS) !SETMPOS(x,y)
PROC(GETMPOS) !GETMPOS(x,y,b)
FUNC(INPUT),STRING !answer = INPUT('prompt')
PROC(OUTPUT) !OUTPUT('string')
PROC(HPDUMP) !HPDUMP(x1,y1,x2,y2,size,bckgnd)
PROC(EPDUMP) !EPDUMP(x1,y1,x2,y2,size,bckgnd)
PROC(SETMATRIX) !SETMATRIX('s','n','d','q','b',s)
. .