home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / texts / boxes / bin_ins.gfa (.txt) < prev    next >
GFA-BASIC Atari  |  1993-06-13  |  1KB  |  59 lines
  1. ' CCITT #4 Digit Table & Phonebook Inserter for Jollybox v4.00 Compiled Code
  2. ' (c) 1993 Beeblebrox Industries Unlimited
  3. '
  4. CLS
  5. f1$="CCITT4.BIN"
  6. IF NOT EXIST(f1$)
  7.   PRINT AT(25,1);"Please Locate CCITT4.BIN File."
  8.   FILESELECT "\CCITT4.BIN","",f1$
  9.   IF NOT EXIST(f1$)
  10.     PRINT
  11.     PRINT "Error!!! CCITT #4 Digit Datafile not found - exiting..."
  12.     DELAY 3
  13.     END
  14.   ENDIF
  15. ENDIF
  16. PRINT AT(25,1);"Please Locate PHBOOK*.ROM File. "
  17. FILESELECT "\PH*.ROM","",f2$
  18. IF NOT EXIST(f2$)
  19.   PRINT
  20.   PRINT "Error!!! Phonebook not found - exiting..."
  21.   DELAY 3
  22.   END
  23. ENDIF
  24. PRINT AT(25,1);"Please Locate JB_ROM*.ROM Object Code File."
  25. FILESELECT "\JB*.ROM","",f3$
  26. IF NOT EXIST(f3$)
  27.   PRINT
  28.   PRINT "Error!!! Jollybox object code not found - exiting..."
  29.   DELAY 3
  30.   END
  31. ENDIF
  32. DELAY 1
  33. CLS
  34. PRINT "Please wait - Inserting files into "+f3$
  35. PRINT
  36. OPEN "u",#1,f3$
  37. OPEN "I",#2,f1$
  38. OPEN "I",#3,f2$
  39. SEEK #1,&H5C0
  40. PRINT "Inserting CCITT #4 Digit Table at $5C0......."
  41. FOR x#=1 TO 64
  42.   z|=INP(#2)
  43.   OUT #1,z|
  44. NEXT x#
  45. SEEK #1,&H300
  46. PRINT "Inserting Phonebook #1 & #2 at $300.........."
  47. FOR x#=1 TO 256
  48.   z|=INP(#3)
  49.   OUT #1,z|
  50. NEXT x#
  51. CLOSE #1
  52. CLOSE #2
  53. CLOSE #3
  54. PRINT
  55. PRINT "All done - Any key to exit"
  56. WHILE INKEY$=""
  57. WEND
  58. END
  59.