POINT Software Programming/PPROG1.ISO/basic/pbasmlib/pbasmlib.inc

Text File | 1994-02-12 | 13.5 KB | 378 lines

'PBASMLIB.INC Include File for PBASMLIB Programs
'Version 1.0 (C) Copyright 1994 by Tim Gerchmez

'Array Module Includes

declare sub fillarray(any,word,integer)
declare sub addarray(any,word,integer)
declare sub randfillarray(any,integer)
declare sub andarray(any,word,word)
declare sub orarray(any,word,word)
declare sub xorarray(any,word,word)
declare sub negarray(integer,word)
declare sub notarray(any,word)
declare sub rolarray(any,word,integer)
declare sub rorarray(any,word,integer)
declare sub shlarray(any,word,integer)
declare sub shrarray(any,word,integer)

'BIOS Module Includes

declare function biosdiskstatus%(integer)
declare function biosdisktype%(integer)
declare sub setvideomode(integer)
declare sub setcursortype(integer,integer)
declare sub setcursorpos(integer,integer,integer)
declare sub getcursorpos(integer,integer,integer,integer,integer)
declare sub getpenpos(integer,integer,integer)
declare sub getpengraphpos(integer,integer,integer)
declare sub setdisplaypage(integer)
declare sub getcharatr(integer,integer,integer)
declare sub putcharatr(integer,integer,integer,integer)
declare sub putchar(integer,integer,integer)
declare sub writepixel(integer,integer,integer,integer)
declare function readpixel%(integer,integer,integer)
declare sub writetty(integer,integer,integer)
declare sub getdisplaymode(integer,integer,integer)
declare sub setpalreg(integer,integer)
declare sub setbordercolor(integer)
declare sub setpalandbor(string)
declare sub toggleblink(integer)
declare function palreg%(integer)
declare function bordercolor%()
declare function palandbor$()
declare sub setcolreg(integer,integer,integer,integer)
declare sub setcolregblock(word,word,string)
declare sub getpagingmode(integer)
declare sub setpagingmode(integer)
declare sub getcolregpage(integer)
declare sub setcolregpage(integer)
declare sub getcolreg(integer,integer,integer,integer)
declare function colregblock$(word,word)
declare sub setgrayscale(word,word)
declare sub loaduserfont(integer,integer,integer,integer,string)
declare sub loadfont(integer,integer)
declare sub setblockspec(integer)
declare sub setfontpointer(word,word)
declare sub setfontvector(integer,word,word,word,word)
declare sub setdefaultfontvector(integer,integer,word)
declare sub getfontinfo(integer,word,word,word,word)
declare sub getconfiginfo(integer,integer)
declare sub altprintscreen()
declare sub setscanlines(integer)
declare sub setpaletteloading(integer)
declare sub setvideorefresh(integer)
declare sub setgraysumming(integer)
declare sub setcursoremulation(integer)
declare sub setscreenrefresh(integer)
declare function equipcode??()
declare function convmemsize%()
declare sub resetdisks()
declare function isdisk%(integer)
declare sub biosresetfixed(integer)
declare sub recalibratefixed(integer)
declare sub fixeddiagnostic()
declare sub setdisktype(integer,integer)
declare sub pause(integer)
declare sub getsystype(integer,integer)
declare sub setrepeatrate(integer,integer)
declare sub pushcasc(integer,integer)
declare sub pushchrs(string)
declare sub capslockoff()
declare sub capslockon()
declare sub getparallelports(word,word,word)
declare sub setparallelports(word,word,word)
declare sub getserialports(word,word,word,word)
declare sub setserialports(word,word,word,word)
declare sub insertoff()
declare sub inserton()
declare function isaltkey%()
declare function iscapslock%()
declare function iscrolock%()
declare function isctrlkey%()
declare function isinsert%()
declare function isleftshift%()
declare function isnumlock%()
declare function isrightshift%()
declare sub numlockoff()
declare sub numlockon()
declare sub scrollockoff()
declare sub scrollockon()

'DOS Module Includes

declare function charin$()
declare function charinecho$()
declare sub charout(string)
declare sub prnout(string)
declare sub dosprint(string)
declare function dosinput$(integer)
declare function dosinstat%()
declare sub dosflush()
declare sub kbdclr()
declare function setdrive%(integer)
declare function curdrive%()
declare sub setdta(word,word)
declare function curdrivesize&()
declare function drivesize&(integer)
declare sub getvector(integer,word,word)
declare sub setvector(integer,word,word)
declare sub getdate(integer,integer,integer,integer)
declare sub getcmosdate(integer,integer,integer,integer,integer)
declare sub setdate(integer,integer,integer)
declare sub setcmosdate(integer,integer,integer,integer)
declare sub gettime(integer,integer,integer)
declare sub getcmostime(integer,integer,integer,integer,integer)
declare sub settime(integer,integer,integer)
declare sub setcmostime(integer,integer,integer,integer)
declare sub setverify(integer)
declare sub getdta(word,word)
declare sub getver(integer,integer)
declare function breakflag%()
declare sub setbreak(integer)
declare function curdrivespace&()
declare function drivespace&(integer)
declare function driveused&(integer)
declare function bytesfree&(integer)
declare sub makedir(string,integer)
declare sub removedir(string,integer)
declare sub changedir(string,integer)
declare function makefile%(string)
declare function createfile%(string)
declare function openfile%(string)
declare sub closefile(integer)
declare sub readfile(integer,word,word,word,word)
declare sub writefile(integer,word,word,word,word)
declare sub killfile(string,integer)
declare sub setfilepointer(integer,long)
declare function fileattrib%(string)
declare sub setattrib(string,integer,integer)
declare sub redirect(integer,integer)
declare function malloc%(word,word)
declare function mrelease%(word)
declare function mresize%(word,word,word)
declare sub findfirst(string,integer,integer)
declare sub findnext(integer)
declare function verifyflag%()
declare sub getdatime(integer,integer,integer,integer,integer,integer,integer)
declare sub setdatime(integer,integer,integer,integer,integer,integer,integer)
declare function datecode??(integer,integer,integer)
declare function timecode??(integer,integer,integer)
declare sub decodedate(word,integer,integer,integer)
declare sub decodetime(word,integer,integer,integer)
declare function mallocstrat%()
declare sub setmalloc(integer)
declare function pspseg??()
declare function countryinfo$()
declare sub sethandlecount(integer,integer)
declare function doserr$(integer)
declare function lastdoserr%()
declare sub commitfile(integer)
declare sub readsectors(integer,integer,integer,word,word,integer,integer)
declare sub writesectors(integer,integer,integer,word,word,integer,integer)
declare function bootdrive%()
declare sub disabledrive(integer)
declare sub enabledrive(integer)
declare function dosdataseg??()
declare sub getindos(word,word)
declare function isspooler%()
declare sub spoolcancel(integer)
declare sub setswitchchar(integer)
declare sub spoolhold(integer)
declare sub spoolrelease(integer)
declare sub spoolremove(string,integer)
declare sub spoolsubmit(string,integer)
declare sub getswitchchar(integer)
declare function thisprogram$()
declare function thispath$()

'EMS Module Includes

declare function emsdetect%()
declare function emsstatus%()
declare function emserror%()
declare function emspageframe??()
declare function emstotal??()
declare function emsfree??()
declare function emsowned%(word)
declare function emsversion%()
declare function emsactivehandles%()
declare function emsgetstring$(word)
declare sub emsalloc(word,word)
declare sub emsdealloc(word)
declare sub emsmap(word,word,word)
declare sub emsputstring(string,word)

'Install Module Includes

declare function installcheck%(integer)


'Misc Module Includes

declare sub pbasound(integer,integer)
declare sub millipause(integer)
declare sub micropause(long)
declare sub coldboot()
declare sub warmboot()
declare sub failsafe(integer)
declare function checkbreak%()
declare function alarmcheck%()
declare sub alarmclear()
declare sub alarmset(integer,integer,integer)
declare sub softlockup()
declare sub hardlockup()
declare sub keyboardlock(integer)
declare sub countdown(word)
declare function countflag%()
declare function countval??()

'Mouse Module Includes

declare sub mreset(integer,integer)
declare sub mshow()
declare sub mhide()
declare sub mcheck(integer,integer,integer,integer,integer)
declare sub mgraphcheck(integer,integer,integer,integer,integer)
declare sub mgetpos(integer,integer)
declare sub mgraphgetpos(integer,integer)
declare sub msetpos(integer,integer)
declare sub mgraphsetpos(integer,integer)
declare function mleftbutton%()
declare function mrightbutton%()
declare function mmidbutton%()
declare function mcsrlin%()
declare function mpos%(integer)
declare function mlpresses%()
declare function mlreleases%()
declare function mrpresses%()
declare function mrreleases%()
declare function mmpresses%()
declare function mmreleases%()
declare sub mxrange(integer,integer)
declare sub mxgraphrange(integer,integer)
declare sub myrange(integer,integer)
declare sub mygraphrange(integer,integer)
declare sub mgraphdefine(integer,integer,string)
declare sub mtextdefine(integer,integer,integer)
declare sub mreadcounters(integer,integer)
declare sub msetroutine(integer,word,word)
declare sub msetaltroutine(integer,word,word)
declare sub mgetaltroutine(integer,word,word)
declare sub mxchgroutine(integer,word,word)
declare sub msetpen()
declare sub mclearpen()
declare sub msetspeed(integer,integer)
declare sub mgetspeed(integer,integer,integer)
declare function mchar$()
declare function mattr%()
declare sub moffarea(integer,integer,integer,integer)
declare sub moffgrapharea(integer,integer,integer,integer)
declare sub mgraphbigdef(integer,integer,integer,integer,string)
declare sub msetdst(integer)
declare function msavestate$()
declare sub mrestorestate(string)
declare sub msetpage(integer)
declare function mpage%()
declare sub mdisable()
declare sub menable()
declare sub mclear()
declare sub msetlanguage(integer)
declare function mlanguage%()
declare sub mgetinfo(integer,integer,integer,integer)
declare sub mgetmaxvirtual(integer,integer,integer)
declare sub mgetmasks(word,word,integer,integer)
declare sub mgethotspot(integer,integer,integer,integer)
declare sub mgetvirtual(integer,integer,integer,integer)

'Screen Module Includes

declare sub fillchar(integer)
declare sub fillattr(integer)
declare sub blockmove(word,word,word,word,word)
declare sub reattr(integer,integer)
declare sub rechar(integer,integer)
declare sub pgcopy(integer,integer)
declare sub calcucolors(integer,integer,integer)
declare sub blockfill(word,word,word,integer)
declare function calcattr%(integer,integer)
declare sub caveincls(integer)
declare sub caveoutcls(integer)
declare sub tearcls(integer)
declare function vidseg??()
declare sub clearline(ln%)
declare sub fastprint(string,integer,integer,integer)
declare sub clsto(integer,integer)
declare sub calcyx(integer,integer,integer)
declare sub stepfill(word,word,word,integer,integer)
declare sub writechar(integer,integer,integer,integer)
declare sub readchar(integer,integer,integer,integer)
declare function calcaddr??(integer,integer)
declare sub lscroll(integer,integer,integer,integer,integer)
declare sub rscroll(integer,integer,integer,integer,integer)
declare sub uscroll(integer,integer,integer,integer,integer)
declare sub dscroll(integer,integer,integer,integer,integer)
declare function savearea$(integer,integer,integer,integer)
declare function savetextarea$(integer,integer,integer,integer)
declare sub restorearea(integer,integer,string)
declare sub restoretextarea(integer,integer,string)
declare sub pgswap(integer,integer)
declare sub pglayer(integer,integer)
declare sub fadeout(integer)
declare sub fadein(integer)
declare sub faderestore()
declare sub blankin()
declare sub blankout()

'Sound Module Includes

declare function sbdetect%()
declare function sbfmdetect%()
declare sub sbfmclear()
declare sub sbreset()
declare sub sbfmsetports(word,word)
declare sub sbfmportout(integer,integer)
declare sub sbfmnote(integer,integer,integer,integer,integer,integer,integer)
declare sub sbfmsound(integer,integer,integer)
declare sub sbfmrhythm(integer,integer,integer,integer,integer)
declare sub sbbeep()
declare sub sbfmparms(integer,integer,integer,integer,integer)
declare sub sbdelay(integer)
declare sub sbfmplay(string)
declare sub sbplayfile(string,integer)
declare sub sbsetbase(integer)
declare function sbspeech%()
declare sub sbsay(string)
declare function sbsample$(integer,integer)
declare sub sbpresetmixer()
declare sub sbpsetmixer(integer,integer,integer,integer,integer,integer,integer)
declare function sbsamplebyte%()
declare sub sbplaystring(string,integer)
declare function sbcmfdetect%()
declare sub sbcmfplay(f$,integer)
declare function sbcmfcheck%()
declare sub sbcmfsetspeed(integer)
declare sub sbcmfpause()
declare sub sbcmfresume()
declare sub sbcmfcancel()
declare sub sbcmftranspose(integer)

'XMS Module Includes

declare function xmsdetect%()
declare function xmsstore%(word,word,word,dword,dword)
declare function xmsrecall%(word,word,word,dword,dword)
declare sub xmsgetver(integer,integer,integer)
declare sub xmsgetfree(word,word,integer)
declare sub xmsalloc(word,word,integer)
declare sub xmsresize(word,word,integer)
declare sub xmsfree(word,integer)
declare sub xmshandleinfo(word,integer,word)
declare sub xmsallocumb(word,word,word,integer)
declare sub xmsfreeumb(word,integer)
declare sub xmsstorestring(string,integer,word)
declare function xmserror%()
declare function xmsrecallstring$(integer,word)

'End of PBASMLIB V1.0 Include File