Monster Media 1994 #1/monster.zip/monster/PROG_BAS/PRO98SRC.ZIP/FIXUP.INC

Text File | 1994-01-31 | 25KB | 322 lines

type fixuptype
        keyword as string * 10
        offset  as word
end type
dim fixup(384) as shared fixuptype
fixupbase??=varseg(fixup(0).keyword)
x=0
fixup(0).keyword = "        "
fixup(0).offset  = codeptr(PtrNotKey)

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

$IF NOT %NORIP ' RIP commands
incr x:fixup(x).keyword = " TEXTWIN  ":fixup(x).offset  = codeptr(PtrRIP.TEXT.WINDOW)
incr x:fixup(x).keyword = " VIEWPORT ":fixup(x).offset  = codeptr(PtrRIP.VIEWPORT)
incr x:fixup(x).keyword = " RESETWIN ":fixup(x).offset  = codeptr(PtrRIP.RESET.WINDOWS)
incr x:fixup(x).keyword = " ERASEWIN ":fixup(x).offset  = codeptr(PtrRIP.ERASE.WINDOW)
incr x:fixup(x).keyword = " ERASEVW  ":fixup(x).offset  = codeptr(PtrRIP.ERASE.VIEW)
incr x:fixup(x).keyword = " GOTOXY   ":fixup(x).offset  = codeptr(PtrRIP.GOTOXY)
incr x:fixup(x).keyword = " RIPHOME  ":fixup(x).offset  = codeptr(PtrRIP.HOME)
incr x:fixup(x).keyword = " ERASEEOL ":fixup(x).offset  = codeptr(PtrRIP.ERASE.EOL)
incr x:fixup(x).keyword = " RIPCOLOR ":fixup(x).offset  = codeptr(PtrRIP.COLOR)
incr x:fixup(x).keyword = " SETPAL   ":fixup(x).offset  = codeptr(PtrRIP.SET.PALETTE)
incr x:fixup(x).keyword = " ONEPAL   ":fixup(x).offset  = codeptr(PtrRIP.ONE.PALETTE)
incr x:fixup(x).keyword = " WRITMODE ":fixup(x).offset  = codeptr(PtrRIP.WRITE.MODE)
incr x:fixup(x).keyword = " RIPMOVE  ":fixup(x).offset  = codeptr(PtrRIP.MOVE)
incr x:fixup(x).keyword = " RIPTEXT  ":fixup(x).offset  = codeptr(PtrRIP.TEXT)
incr x:fixup(x).keyword = " TEXTXY   ":fixup(x).offset  = codeptr(PtrRIP.TEXT.XY)
incr x:fixup(x).keyword = " FONTSTYL ":fixup(x).offset  = codeptr(PtrRIP.FONT.STYLE)
incr x:fixup(x).keyword = " PIXEL    ":fixup(x).offset  = codeptr(PtrRIP.PIXEL)
incr x:fixup(x).keyword = " RIPLINE  ":fixup(x).offset  = codeptr(PtrRIP.LINE)
incr x:fixup(x).keyword = " RECTANGL ":fixup(x).offset  = codeptr(PtrRIP.RECTANGLE)
incr x:fixup(x).keyword = " RIPBAR   ":fixup(x).offset  = codeptr(PtrRIP.BAR)
incr x:fixup(x).keyword = " CIRCLE   ":fixup(x).offset  = codeptr(PtrRIP.CIRCLE)
incr x:fixup(x).keyword = " OVAL     ":fixup(x).offset  = codeptr(PtrRIP.OVAL)
incr x:fixup(x).keyword = " FILDOVAL ":fixup(x).offset  = codeptr(PtrRIP.FILLED.OVAL)
incr x:fixup(x).keyword = " ARC      ":fixup(x).offset  = codeptr(PtrRIP.ARC)
incr x:fixup(x).keyword = " OVALARC  ":fixup(x).offset  = codeptr(PtrRIP.OVAL.ARC)
incr x:fixup(x).keyword = " PIESLICE ":fixup(x).offset  = codeptr(PtrRIP.PIE.SLICE)
incr x:fixup(x).keyword = " OPIESLIC ":fixup(x).offset  = codeptr(PtrRIP.OVAL.PIE.SLICE)
incr x:fixup(x).keyword = " BEZIER   ":fixup(x).offset  = codeptr(PtrRIP.BEZIER)
incr x:fixup(x).keyword = " RIPFILL  ":fixup(x).offset  = codeptr(PtrRIP.FILL)
incr x:fixup(x).keyword = " LINESTYL ":fixup(x).offset  = codeptr(PtrRIP.LINE.STYLE)
incr x:fixup(x).keyword = " FILLSTYL ":fixup(x).offset  = codeptr(PtrRIP.FILL.STYLE)
incr x:fixup(x).keyword = " FILLPATT ":fixup(x).offset  = codeptr(PtrRIP.FILL.PATTERN)
incr x:fixup(x).keyword = " MOUSE    ":fixup(x).offset  = codeptr(PtrRIP.MOUSE)
incr x:fixup(x).keyword = " KILLFLDS ":fixup(x).offset  = codeptr(PtrRIP.KILL.MOUSE.FIELDS)
incr x:fixup(x).keyword = " BEGINTX  ":fixup(x).offset  = codeptr(PtrRIP.BEGIN.TEXT)
incr x:fixup(x).keyword = " REGIONTX ":fixup(x).offset  = codeptr(PtrRIP.REGION.TEXT)
incr x:fixup(x).keyword = " ENDTX    ":fixup(x).offset  = codeptr(PtrRIP.END.TEXT)
incr x:fixup(x).keyword = " GETIMAGE ":fixup(x).offset  = codeptr(PtrRIP.GET.IMAGE)
incr x:fixup(x).keyword = " PUTIMAGE ":fixup(x).offset  = codeptr(PtrRIP.PUT.IMAGE)
incr x:fixup(x).keyword = " WRITEICO ":fixup(x).offset  = codeptr(PtrRIP.WRITE.ICON)
incr x:fixup(x).keyword = " LOADICO  ":fixup(x).offset  = codeptr(PtrRIP.LOAD.ICON)
incr x:fixup(x).keyword = " BTTNSTYL ":fixup(x).offset  = codeptr(PtrRIP.BUTTON.STYLE)
incr x:fixup(x).keyword = " BUTTON   ":fixup(x).offset  = codeptr(PtrRIP.BUTTON)
incr x:fixup(x).keyword = " DEFINE   ":fixup(x).offset  = codeptr(PtrRIP.DEFINE)
incr x:fixup(x).keyword = " COPYREGN ":fixup(x).offset  = codeptr(PtrRIP.COPY.REGION)
incr x:fixup(x).keyword = " READSCEN ":fixup(x).offset  = codeptr(PtrRIP.READ.SCENE)
incr x:fixup(x).keyword = " FILQUERY ":fixup(x).offset  = codeptr(PtrRIP.FILE.QUERY)
incr x:fixup(x).keyword = " NOMORE   ":fixup(x).offset  = codeptr(PtrRIP.NO.MORE)
incr x:fixup(x).keyword = " RIPQUERY ":fixup(x).offset  = codeptr(PtrRIP.QUERY)
incr x:fixup(x).keyword = " ENTBLKMD ":fixup(x).offset  = codeptr(PtrRIP.ENTER.BLOCK.MODE)
incr x:fixup(x).keyword = " POLYGON  ":fixup(x).offset  = codeptr(PtrRIP.POLYGON)
incr x:fixup(x).keyword = " FILLPOLY ":fixup(x).offset  = codeptr(PtrRIP.FILL.POLYGON)
incr x:fixup(x).keyword = " POLYLINE ":fixup(x).offset  = codeptr(PtrRIP.POLYLINE)
incr x:fixup(x).keyword = " RIPVER   ":fixup(x).offset  = codeptr(PtrRIP.VER)
$ENDIF