Monster Media 1994 #1/monster.zip/monster/PROG_BAS/PRO98SRC.ZIP/MAKEFIX.BAS

BASIC Source File | 1994-01-14 | 7KB | 303 lines

' This program writes the include file "fixup.inc"

open "fixup.inc" for output as #1
print #1, "type fixuptype"
print #1, "        keyword as string * 8"
print #1, "       offset  as word"
print #1, "end type"
print #1, "dim shared fixup(384) as fixuptype"
print #1, ""
x=0
do
read lbl$,Kwd$
if kwd$="X" then exit loop
if len(kwd$)>8 then Kwd$=left$(Kwd$,8)
if len(Kwd$)<8 then Kwd$=Kwd$+space$(8-len(Kwd$))
print #1, "fixup("+ltrim$(str$(x))+").keyword = " + chr$(34)+kwd$+chr$(34)
print #1, "fixup("+ltrim$(str$(x))+").offset  = codeptr("+lbl$+")"
incr x
loop
close #1
end
DATA "PtrNotKey",""
DATA "PtrIXOPEN","IXOPEN"
DATA "PtrIXCLOSE","IXCLOSE"
DATA "PtrREST","REST"
DATA "PtrIXSCAN","IXSCAN"
DATA "PtrIXFIND","IXFIND"
DATA "PtrIXSKIP","IXSKIP"
DATA "PtrIXPREV","IXPREV"
DATA "PtrIXNEXT","IXNEXT"
DATA "PtrIXTOP","IXTOP"
DATA "PtrIXTOP","IXFIRST"
DATA "PtrIXBOTTOM","IXBOTTOM"
DATA "PtrIXBOTTOM","IXLAST"
DATA "PtrIXEOF","IXEOF"
DATA "PtrIXBOF","IXBOF"
DATA "PtrIX","IX"
DATA "PtrIXWAS","IXWAS"
DATA "PtrIXSTITCH","IXSTITCH"
DATA "PtrIXCREATE","IXCREATE"
DATA "PtrIXRESORT","IXRESORT"
DATA "PtrIXUPDATE","IXUPDATE"
DATA "PtrIXDELETE","IXDELETE"
DATA "PtrINCR","INCR"
DATA "PtrDECR","DECR"
DATA "PtrCALC","CALC"
DATA "PtrCALC","EVAL"
DATA "PtrCALC","WHAT"
DATA "PtrCALC","DOES"
DATA "PtrMathSym","+"
DATA "PtrMathSym","-"
DATA "PtrMathSym","/"
DATA "PtrMathSym","\"
DATA "PtrMathSym","*"
DATA "PtrMathSym","^"
DATA "PtrMathSym","("
DATA "PtrMathSym",")"
DATA "PtrMathSym",">"
DATA "PtrMathSym","<"
DATA "PtrMathSym","="
DATA "PtrMathSym","&"
DATA "PtrMathSym","0"
DATA "PtrMAP","MAP"
DATA "PtrOPEN","OPEN"
DATA "PtrCLOSE","CLOSE"
DATA "PtrEOF","EOF"
DATA "PtrLOF","LOF"
DATA "PtrREAD","READ"
DATA "PtrALL","ALL"
DATA "PtrWRITE","WRITE"
DATA "PtrDEL","DEL"
DATA "PtrREN","REN"
DATA "PtrREN","RENAME"
DATA "PtrPUTFILE","PUTFILE"
DATA "PtrMORE","MORE"
DATA "PtrTYPE","TYPE"
DATA "PtrDISPLAY","DISPLAY"
DATA "PtrENDTYPE","ENDTYPE"
DATA "PtrPCBTYPE","PCBTYPE"
DATA "PtrERRORMSG","ERRORMSG"
DATA "PtrEDLIN","EDLIN"
DATA "PtrTASK","TASK"
DATA "PtrSUSPEND","SUSPEND"
DATA "PtrRESUME","RESUME"
DATA "PtrFINISHED","FINISHED"
DATA "PtrSTATUS","STATUS"
DATA "PtrFREETASK","FREETASK"
DATA "PtrKILLTASK","KILLTASK"
DATA "PtrSIGNAL","SIGNAL"
DATA "PtrDEVOTE","DEVOTE"
DATA "PtrDEPTH","DEPTH"
DATA "PtrSETENV","SETENV"
DATA "PtrAUTOEDIT","AUTOEDIT"
DATA "PtrINSIDE","INSIDE"
DATA "PtrFLIP","FLIP"
DATA "PtrCAPS","CAPS"
DATA "PtrRAW","RAW"
DATA "PtrASK","ASK"
DATA "PtrDELAY","DELAY"
DATA "PtrITEM","ITEM"
DATA "PtrWINDOW","WINDOW"
DATA "PtrMENU","MENU"
DATA "PtrXMENU","XMENU"
DATA "PtrEDITCOMMENT","EDITCOMMENT"
DATA "PtrGETCOMMENT","GETCOMMENT"
DATA "PtrCOMMON","COMMON"
DATA "PtrSETPROMPT","SETPROMPT"
DATA "PtrECHO","ECHO"
DATA "PtrTIMEOUT","TIMEOUT"
DATA "PtrLOGOUT","LOGOUT"
DATA "PtrRESET","RESET"
DATA "PtrGOD","GOD"
DATA "PtrEFFECT","EFFECT"
DATA "PtrTTY","TTY"
DATA "PtrANSI","ANSI"
DATA "PtrGLOBAL","GLOBAL"
DATA "PtrDOOR","DOOR"
DATA "PtrGO","GO"
DATA "PtrCD","CD"
DATA "PtrCD","CHDIR"
DATA "PtrMD","MD"
DATA "PtrMD","MKDIR"
DATA "PtrRD","RD"
DATA "PtrHOME","HOME"
DATA "PtrTAG","TAG"
DATA "PtrTAGGED","TAGGED"
DATA "PtrGETTAG","GETTAG"
DATA "PtrXMODEM","XMODEM"
DATA "PtrCONFERENCE","CONFERENCE"
DATA "PtrINT","INT"
DATA "PtrREG","REG"
DATA "PtrRESTART","RESTART"
DATA "PtrTRON","TRON"
DATA "PtrTROFF","TROFF"
DATA "PtrRANDOM","RANDOM"
DATA "PtrEXECUTE","EXECUTE"
DATA "PtrUNLOCK","UNLOCK"
DATA "PtrLOCK","LOCK"
DATA "PtrCHAT","CHAT"
DATA "PtrOLM","OLM"
DATA "PtrONLOGOUT","ONLOGOUT"
DATA "PtrONERROR","ONERROR"
DATA "PtrANSWER","ANSWER"
DATA "PtrCONFIG","CONFIG"
DATA "PtrCONNECT","CONNECT"
DATA "PtrDISCONNECT","DISCONNECT"
DATA "PtrSEND","SEND"
DATA "PtrMENUCOLOR","MENUCOLOR"
DATA "PtrEXTENSION","EXTENSION"
DATA "PtrCLS","CLS"
DATA "PtrCOLOR","COLOR"
DATA "PtrLOCATE","LOCATE"
DATA "PtrTAB","TAB"
DATA "PtrCR","CR"
DATA "PtrPROMPT","PROMPT"
DATA "PtrPRINT","PRINT"
DATA "PtrINPUT","INPUT"
DATA "PtrFIELD","FIELD"
DATA "PtrOFIND","OFIND"
DATA "PtrOSKIP","OSKIP"
DATA "PtrCASE","CASE"
DATA "PtrELSE","ELSE"
DATA "PtrENDIF","ENDIF"
DATA "PtrIF","IF"
DATA "PtrWHILE","WHILE"
DATA "PtrUNTIL","UNTIL"
DATA "PtrON","ON"
DATA "PtrOFF","OFF"
DATA "PtrUSE","USE"
DATA "PtrMAPPED","MAPPED"
DATA "PtrGET","GET"
DATA "PtrPUT","PUT"
DATA "PtrCREATEFORMAT","CREATEFORMAT"
DATA "PtrCREATEINDEX","CREATEINDEX"
DATA "PtrFORMAT","FORMAT"
DATA "PtrVIEW","VIEW"
DATA "PtrEDIT","EDIT"
DATA "PtrAPPEND","APPEND"
DATA "PtrDELIMITED","DELIMITED"
DATA "PtrINDEX","INDEX"
DATA "PtrFIND","FIND"
DATA "PtrNEXT","NEXT"
DATA "PtrPREV","PREV"
DATA "PtrPREV","PREVIOUS"
DATA "PtrSKIP","SKIP"
DATA "PtrTOP","TOP"
DATA "PtrTOP","FIRST"
DATA "PtrBOTTOM","BOTTOM"
DATA "PtrBOTTOM","LAST"
DATA "PtrISOPEN","ISOPEN"
DATA "PtrRECNUM","RECNUM"
DATA "PtrRECNUM","RECNO"
DATA "PtrNUMFIELDS","NUMFIELDS"
DATA "PtrCOUNT","COUNT"
DATA "PtrINDEXFILE","INDEXFILE"
DATA "PtrINDEXFIELD","INDEXFIELD"
DATA "PtrDBEND","DBEND"
DATA "PtrLET","LET"
DATA "PtrLET","SET"
DATA "PtrCLEAR","CLEAR"
DATA "PtrNUL","NUL"
DATA "PtrFILES","FILES"
DATA "PtrGOTO","GOTO"
DATa "PtrFROM","FROM"
DATA "PtrFROM","TO"
DATA "PtrFROM","IN"
DATA "PtrFROM","WITH"
DATA "PtrFROM","IS"
DATA "PtrFROM","BE"
DATA "PtrFROM","EQUAL"
DATA "PtrFROM","OF"
DATA "PtrFROM","THE"
DATA "PtrFROM","AT"
DATA "PtrFROM","AS"
DATA "PtrFROM","?"
DATA "PtrFROM","THEN"
DATA "PtrFROM","RECORD"
DATA "PtrFROM","DATABASE"
DATA "PtrFROM","DISK"
DATA "PtrFROM","NUMBER"
DATA "PtrFROM","TO"
DATA "PtrFROM","IN"
DATA "PtrFROM","WITH"
DATA "PtrFROM","IS"
DATA "PtrFROM","BE"
DATA "PtrFROM","EQUAL"
DATA "PtrFROM","OF"
DATA "PtrFROM","THE"
DATA "PtrFROM","AT"
DATA "PtrFROM","AS"
DATA "PtrFROM","?"
DATA "PtrFROM","THEN"
DATA "PtrFROM","RECORD"
DATA "PtrFROM","DATABASE"
DATA "PtrFROM","DISK"
DATA "PtrFROM","NUMBER"
DATA "PtrGOSUB","GOSUB"
DATA "PtrRETURN","RETURN"
DATA "PtrLINE","LINE"
DATA "PtrCALL","CALL"
DATA "PtrEXIT","EXIT"
DATA "PtrRUN","RUN"
DATA "PtrLOAD","LOAD"
DATA "PtrQUIT","QUIT"
DATA "PtrLIST","LIST"
DATA "PtrSAVE","SAVE"
DATA "PtrEND","END"
DATA "PtrLOOKUP","LOOKUP"
DATA "PtrUSING","USING"
DATA "PtrFIX","FIX"
DATA "PtrPARM","PARM"
DATA "PtrPORT","PORT"
DATA "PtrCRC","CRC"
DATA "PtrDUP","DUP"
DATA "PtrBAUD","BAUD"
DATA "PtrSUBDIR","SUBDIR"
DATA "PtrDIR","DIR"
DATA "PtrBOTH","BOTH"
DATA "PtrEITHER","EITHER"
DATA "PtrNEITHER","NEITHER"
DATA "PtrSIZEOF","SIZEOF"
DATA "PtrENVIRON","ENVIRON"
DATA "PtrFREEFILE","FREEFILE"
DATA "PtrFILE","FILE"
DATA "PtrUCASE","UCASE"
DATA "PtrUCASE","UPPER"
DATA "PtrLCASE","LCASE"
DATA "PtrLCASE","LOWER"
DATA "PtrLTRIM","LTRIM"
DATA "PtrRTRIM","RTRIM"
DATA "PtrLEFT","LEFT"
DATA "PtrRIGHT","RIGHT"
DATA "PtrMID","MID"
DATA "PtrMID","SUBSTR"
DATA "PtrASC","ASC"
DATA "PtrASC","ASCII"
DATA "PtrCHR","CHR"
DATA "PtrINKEY","INKEY"
DATA "PtrLEN","LEN"
DATA "PtrEQUALS","EQUALS"
DATA "PtrEQUALS","SAME"
DATA "PtrNOT","NOT"
DATA "PtrFALSE","FALSE"
DATA "PtrFALSE","OFF"
DATA "PtrFALSE","NO"
DATA "PtrTRUE","TRUE"
DATA "PtrTRUE","ON"
DATA "PtrTRUE","YES"
DATA "PtrCWAIT","CWAIT"
DATA "PtrEXIST","EXIST"
DATA "PtrROW","ROW"
DATA "PtrCOL","COL"
DATA "PtrINSTR","INSTR"
DATA "PtrTIME","TIME"
DATA "PtrDATE","DATE"
DATA "PtrVAL","VAL"
DATA "PtrABS","ABS"
DATA "PtrAND","AND"
DATA "PtrOR","OR"
DATA "PtrNEG","NEG"
DATA "PtrNEG","MINUS"
DATA "X","X"