home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / FIXUP.BAS < prev    next >
BASIC Source File  |  1994-01-14  |  426b  |  19 lines
  1. ' This program writes the include file for "fixup.inc"
  2. type fixuptype
  3.         keyword as string * 8
  4.         offset  as word
  5. end type
  6. dim fixup(256) as fixuptype
  7.  
  8. open "fixup.inc" for output as #1
  9. x%=0
  10. do
  11. read kwd$,lbl$
  12. if kwd$="X" then exit loop
  13. print #1, "fixup("+ltrim(str$(x))+").keyword = " + chr$(34)+kwd$+chr$(34)
  14. print #1, "fixup("+ltrim(str$(x))+").offset  = codeptr("+lbl$+")"
  15. incr x
  16. loop
  17. close #1
  18.  
  19.