« previous next »
Pages: [1]   Go Down

Author Topic: XE v1.12 - Simple file viewer/editor. Updated to work in Linux now.  (Read 1475 times)

0 Members and 1 Guest are viewing this topic.

Offline Dav

  • Forum Resident
  • Posts: 792
XE v1.12 - Simple file viewer/editor. Updated to work in Linux now.
« on: November 26, 2021, 10:22:11 am »
Updated this editor to work under linux, and also use a built-in font for larger editing screen.  I'm discovering some of my posted programs which I said would work under Linux actually doesn't.  XE was one of them so I've have fixed it.

- Dav

Code: QB64: [Select]
  1. '============
  2. 'XE.BAS v1.12
  3. '============
  4. 'A simple File editor/viewer.
  5. 'Coded by Dav, NOV/2021 with QB64-GL v2
  6. '
  7. ' * FIXED: Fixed FileSelect box to work correctly under Linux.
  8. ' * ADDED: Uses a resizable Code Page FONT to allow a larger SCREEN 0.
  9. '          (FONT is extracted/created temporarily then deleted after use)
  10. '
  11. '==========================================================================
  12. '* * * *          USE THIS PROGRAM AT YOUR OWN RISK ONLY!!          * * * *
  13. '==========================================================================
  14. '
  15. '
  16. ' ABOUT:
  17. ' ~~~~~
  18. '
  19. ' XE is a simple Binary File Editor (also called a HEX editor) that lets
  20. ' you view and edit raw data bytes of a file.  With XE you can peek inside
  21. ' EXE/DLL files and see what information they may contain.  XE also has the
  22. ' capacity to change bytes by either typing in ASCII characters or entering
  23. ' the HEX value for each byte.  XE was first coded in Qbasic - now in QB64.
  24. '
  25. ' Since the very nature of XE is to alter file data you should always use
  26. ' EXTREME caution when editing any file - AND ALWAYS MAKE A BACKUP FIRST!
  27. '
  28. '==========================================================================
  29. '
  30. ' HOW TO USE:
  31. ' ~~~~~~~~~~
  32. '
  33. ' XE accepts command line arguments.  You can drag/drop a file onto XE.
  34. ' If you don't specify a filename on startup, XE will ask you for one.
  35. '
  36. ' There are TWO ways to View & Edit files - in HEX (default) or ASCII mode.
  37. '
  38. ' Files are first opened in HEX mode displaying 2 windows of data.  The
  39. ' right window shows the charaters while the larger left window shows HEX
  40. ' values for them. HEX mode is best for patching and is the only way to
  41. ' edit the HEX values of bytes.
  42. '
  43. '
  44. ' Pressing ENTER switches to ASCII (non-HEX) mode, showing a larger page
  45. ' of raw data bytes - the ASCII chracter data only.  This mode is best for
  46. ' skimming through files faster.  ENTER toggles view modes back and forth.
  47. '
  48. ' While viewing a file you can browse through the file using the ARROWS,
  49. ' PAGEUP/DOWN, HOME and the END keys.
  50. '
  51. ' The currently opened filename is shown with full path in the title bar.
  52. ' and just filename is displayed in the FILE: area just below title bar.
  53. '
  54. ' While viewing a file, press E to enter into EDIT mode and begin editing
  55. ' bytes at the current position. If you're in HEX mode (2 windows), you can
  56. ' edit bytes either by typing characters on the right side or entering HEX
  57. ' values on the left window.  Press TAB to switch windows to edit in.
  58. ' Press ESC to save or disgard changes and to exit editing mode.
  59. '
  60. ' Press M for a complete MENU listing all of the Key COMMANDS.
  61. '
  62. '==========================================================================
  63. '
  64. ' COMMAND:
  65. ' ~~~~~~~~
  66. '
  67. '         E  =  Enters EDIT MODE. Only the displayed bytes can be edited.
  68. '
  69. '       TAB  =  Switchs panes (the cursor) while editing in HEX mode.
  70. '
  71. '         S  =  Searches file for a string starting at the current byte.
  72. '               A Match-Case option is available.  A high beep alerts you
  73. '               when match is found. A Low beep sounds when EOF reached.
  74. '
  75. '         N  =  Finds NEXT Match after a do a string search.
  76. '
  77. '         F  =  Toggles FILTERING of all non-standard-text characters.
  78. '               A flashing "F" is at the top-left corner when FILTER ON.
  79. '
  80. '         G  =  GOTO a certain byte position (number) in the file.
  81. '
  82. '         L  =  GOTO a specified location (Hex value) of the file.
  83. '
  84. '     ENTER  =  Toggles HEX and ASCII view modes.  The ASCII mode lets
  85. '               you browse more data per page.  You can EDIT in both
  86. '               modes but can only enter in HEX vaules in HEX mode.
  87. '
  88. '       ESC  =  EXITS out of editing mode, and also EXITS the program.
  89. '
  90. ' ALT+ENTER  =  Toggle FULLSCREEN/WINDOWED mode of the XE program.
  91. '
  92. '==========================================================================
  93. '==========================================================================
  94.  
  95.  
  96. '==========================================================================
  97. 'SETUP SCREEN MODE
  98. '=================
  99.  
  100. SCREEN Pete: WIDTH 80, 25 'Use Screen mode 0, aka the Pete...
  101.  
  102. 'Font size based on desktop resolution - it expands SCREEN 0 nicely.
  103. 'You may have to adjust it a bit to look the best on your screen res
  104. FONT (INT(_DESKTOPHEIGHT / 25) * .88)
  105.  
  106. _DELAY .25 'Be sure window exists before calling _TITLE
  107. _CONTROLCHR OFF 'Printing all 255 characters on screen, so this is needed.
  108.  
  109. _TITLE "XE v1.12" 'Everything has a name
  110.  
  111.  
  112. '==========================================================================
  113. 'LOAD FILE
  114. '=========
  115.  
  116. CLS , 1: COLOR 1, 15
  117. LOCATE 1, 1: PRINT STRING$(80, 32);
  118. LOCATE 1, 1: PRINT " Load file...";
  119.  
  121.     File$ = FileSelect$(5, 10, 15, 55, "*.*")
  122.     IF File$ = "" THEN
  123.         PRINT "No file selected."
  124.         END
  125.     END IF
  127.     File$ = COMMAND$
  129.  
  130. IF _FILEEXISTS(File$) = 0 THEN
  131.     COLOR 7, 0: CLS
  132.     PRINT "XE v1.12 - Binary file editor."
  133.     PRINT
  134.     PRINT File$; " not found!"
  135.     END
  137.  
  138. File$ = LTRIM$(RTRIM$(File$)) 'trim off any spaces is any...
  139. FullFileName$ = File$ 'make a copy For TITLE/OPEN to use...
  140.  
  141. 'If filename+path too long for display, strip off path
  142. IF LEN(File$) > 70 THEN
  143.     ts$ = ""
  144.     FOR q = LEN(File$) TO 1 STEP -1
  145.         t$ = MID$(File$, q, 1)
  146.         IF t$ = "/" OR t$ = "\" THEN EXIT FOR
  147.         ts$ = t$ + ts$
  148.     NEXT
  149.     File$ = ts$
  150.     'If filename too long, shorten it for display
  151.     IF LEN(File$) > 70 THEN
  152.         File$ = MID$(File$, 1, 67) + "..."
  153.     END IF
  155.  
  156. '==========================================================================
  157. 'OPEN FILE
  158. '=========
  159.  
  160. OPEN FullFileName$ FOR BINARY AS 7
  161.  
  162. _TITLE "XE v1.12 - " + FullFileName$
  163.  
  164. DisplayView% = 1 'Default to 2-PANE view
  165.  
  166. ByteLocation& = 1
  167. IF DisplayView% = 1 THEN
  168.     BufferSize% = (16 * 23)
  170.     BufferSize% = (79 * 23)
  172. IF BufferSize% > LOF(7) THEN BufferSize% = LOF(7)
  173.  
  174.  
  175. '==========================================================================
  176. 'DISPLAY FILE
  177. '============
  178.  
  179. COLOR 15, 1: CLS: LOCATE 1, 1, 0
  180.  
  182.     SEEK #7, ByteLocation&
  183.  
  184.     PageOfData$ = INPUT$(BufferSize%, 7)
  185.  
  186.     'If dual pane mode....
  187.     IF DisplayView% = 1 THEN
  188.         IF LEN(PageOfData$) < (16 * 23) THEN
  189.             PageFlag% = 1: PageLimit% = LEN(PageOfData$)
  190.             PageOfData$ = PageOfData$ + STRING$(16 * 23 - LEN(PageOfData$), CHR$(0))
  191.         END IF
  192.         'show right side
  193.         y% = 3: x% = 63
  194.         FOR c% = 1 TO LEN(PageOfData$)
  195.             CurrentByte% = ASC(MID$(PageOfData$, c%, 1))
  196.             'show a . instead of a null (looks better to me)
  197.             IF CurrentByte% = 0 THEN CurrentByte% = 46
  198.             IF Filter% = 1 THEN
  199.                 SELECT CASE CurrentByte%
  200.                     CASE 0 TO 31, 123 TO 255: CurrentByte% = 32
  201.                 END SELECT
  202.             END IF
  203.             LOCATE y%, x%: PRINT CHR$(CurrentByte%);
  204.             x% = x% + 1: IF x% = 79 THEN x% = 63: y% = y% + 1
  205.         NEXT
  206.         'show left side
  207.         y% = 3: x% = 15
  208.         FOR c% = 1 TO LEN(PageOfData$)
  209.             CurrentByte% = ASC(MID$(PageOfData$, c%, 1))
  210.             CurrentByte$ = HEX$(CurrentByte%): IF LEN(CurrentByte$) = 1 THEN CurrentByte$ = "0" + CurrentByte$
  211.             LOCATE y%, x%: PRINT CurrentByte$; " ";
  212.             x% = x% + 3: IF x% >= 62 THEN x% = 15: y% = y% + 1
  213.         NEXT
  214.     ELSE
  215.         'One page display, Full view
  216.         'Adjust data size used
  217.         IF LEN(PageOfData$) < (79 * 23) THEN 'Enough to fill screen?
  218.             PageFlag% = 1: PageLimit% = LEN(PageOfData$) 'No? Mark this and pad
  219.             PageOfData$ = PageOfData$ + SPACE$(79 * 23 - LEN(PageOfData$)) 'data with spaces.
  220.         END IF
  221.         y% = 3: x% = 1 'Screen location where data begins displaying
  222.         FOR c% = 1 TO LEN(PageOfData$) 'Show all the bytes.
  223.             CurrentByte% = ASC(MID$(PageOfData$, c%, 1)) 'Check the ASCII value.
  224.             IF Filter% = 1 THEN 'If Filter is turned on,
  225.                 SELECT CASE CurrentByte% 'changes these values to spaces
  226.                     CASE 0 TO 32, 123 TO 255: CurrentByte% = 32
  227.                 END SELECT
  228.             END IF
  229.             LOCATE y%, x%: PRINT CHR$(CurrentByte%);
  230.             'This line calculates when to go to next row.
  231.             x% = x% + 1: IF x% = 80 THEN x% = 1: y% = y% + 1
  232.         NEXT
  233.     END IF
  234.  
  235.     GOSUB DrawTopBar 'update viewing info at top
  236.  
  237.     'Get user input
  238.     DO
  239.  
  240.         DO UNTIL L$ <> "": L$ = INKEY$: LOOP
  241.         K$ = L$: L$ = ""
  242.  
  243.         GOSUB DrawTopBar
  244.         SELECT CASE UCASE$(K$)
  245.             CASE CHR$(27): EXIT DO
  246.             CASE "M": GOSUB Menu:
  247.             CASE "N"
  248.                 IF s$ <> "" THEN
  249.                     GOSUB Search
  250.                     GOSUB DrawTopBar
  251.                 END IF
  252.             CASE "E"
  253.                 IF DisplayView% = 1 THEN
  254.                     GOSUB EditRightSide
  255.                 ELSE
  256.                     GOSUB EditFullView
  257.                 END IF
  258.                 GOSUB DrawTopBar
  259.             CASE "F"
  260.                 IF Filter% = 0 THEN Filter% = 1 ELSE Filter% = 0
  261.             CASE "G"
  262.                 LOCATE 1, 1: PRINT STRING$(80 * 3, 32);
  263.                 LOCATE 1, 3: PRINT "TOTAL BYTES>"; LOF(7)
  264.                 INPUT "  GOTO BYTE# > ", GotoByte$
  265.                 IF GotoByte$ <> "" THEN
  266.                     TMP$ = ""
  267.                     FOR m% = 1 TO LEN(GotoByte$)
  268.                         G$ = MID$(GotoByte$, m%, 1) 'to numerical vales
  269.                         SELECT CASE ASC(G$)
  270.                             CASE 48 TO 57: TMP$ = TMP$ + G$
  271.                         END SELECT
  272.                     NEXT: GotoByte$ = TMP$
  273.                     IF VAL(GotoByte$) < 1 THEN GotoByte$ = "1"
  274.                     IF VAL(GotoByte$) > LOF(7) THEN GotoByte$ = STR$(LOF(7))
  275.                     IF GotoByte$ <> "" THEN ByteLocation& = 0 + VAL(GotoByte$)
  276.                 END IF
  277.             CASE "L"
  278.                 LOCATE 1, 1: PRINT STRING$(80 * 3, 32);
  279.                 LOCATE 1, 3: 'PRINT "TOTAL BYTES>"; LOF(7)
  280.                 INPUT "  GOTO HEX LOCATION-> ", GotoByte$
  281.                 IF GotoByte$ <> "" THEN
  282.                     GotoByte$ = "&H" + GotoByte$
  283.                     IF VAL(GotoByte$) < 1 THEN GotoByte$ = "1"
  284.                     IF VAL(GotoByte$) > LOF(7) THEN GotoByte$ = STR$(LOF(7))
  285.                     IF GotoByte$ <> "" THEN ByteLocation& = 0 + VAL(GotoByte$)
  286.                 END IF
  287.             CASE "S": s$ = ""
  288.                 LOCATE 1, 1: PRINT STRING$(80 * 3, 32);
  289.                 LOCATE 1, 3: INPUT "Search for> ", s$
  290.                 IF s$ <> "" THEN
  291.                     PRINT "  CASE sensitive (Y/N)? ";
  292.                     I$ = INPUT$(1): I$ = UCASE$(I$)
  293.                     IF I$ = "Y" THEN CaseOn% = 1 ELSE CaseOn% = 0
  294.                     GOSUB Search
  295.                 END IF
  296.                 GOSUB DrawTopBar
  297.             CASE CHR$(13)
  298.                 IF DisplayView% = 1 THEN
  299.                     DisplayView% = 0
  300.                     BufferSize% = (79 * 23)
  301.                 ELSE
  302.                     DisplayView% = 1
  303.                     BufferSize% = (16 * 23)
  304.                 END IF
  305.                 GOSUB DrawTopBar
  306.             CASE CHR$(0) + CHR$(72)
  307.                 IF DisplayView% = 1 THEN
  308.                     IF ByteLocation& > 15 THEN ByteLocation& = ByteLocation& - 16
  309.                 ELSE
  310.                     IF ByteLocation& > 78 THEN ByteLocation& = ByteLocation& - 79
  311.                 END IF
  312.             CASE CHR$(0) + CHR$(80)
  313.                 IF DisplayView% = 1 THEN
  314.                     IF ByteLocation& < LOF(7) - 15 THEN ByteLocation& = ByteLocation& + 16
  315.                 ELSE
  316.                     IF ByteLocation& < LOF(7) - 78 THEN ByteLocation& = ByteLocation& + 79
  317.                 END IF
  318.             CASE CHR$(0) + CHR$(73): ByteLocation& = ByteLocation& - BufferSize%: IF ByteLocation& < 1 THEN ByteLocation& = 1
  319.             CASE CHR$(0) + CHR$(81): IF ByteLocation& < LOF(7) - BufferSize% THEN ByteLocation& = ByteLocation& + BufferSize%
  320.             CASE CHR$(0) + CHR$(71): ByteLocation& = 1
  321.             CASE CHR$(0) + CHR$(79): IF NOT EOF(7) THEN ByteLocation& = LOF(7) - BufferSize%
  322.         END SELECT
  323.     LOOP UNTIL K$ <> ""
  324. LOOP UNTIL K$ = CHR$(27)
  325.  
  327.  
  329.  
  330. '==========================================================================
  331. '                              GOSUB ROUTINES
  332. '==========================================================================
  333.  
  334.  
  335. '==========================================================================
  336. Search:
  337. '======
  338.  
  340.     DO
  341.         B$ = INPUT$(BufferSize%, 7): ByteLocation& = ByteLocation& + BufferSize%
  342.         IF CaseOn% = 0 THEN B$ = UCASE$(B$): s$ = UCASE$(s$)
  343.         d$ = INKEY$: IF d$ <> "" THEN EXIT DO
  344.         IF INSTR(1, B$, s$) THEN SOUND 4000, .5: EXIT DO
  345.     LOOP UNTIL INSTR(1, B$, s$) OR EOF(7)
  346.     IF EOF(7) THEN SOUND 2000, 1: SOUND 1000, 1
  347.     ByteLocation& = ByteLocation& - LEN(s$)
  350.  
  351.  
  352. '==========================================================================
  353. EditRightSide: 'Editing Right side info in dual pane mode
  354. '============
  355.  
  356. Pane% = 1
  357.  
  358. x% = 63: IF rightx% THEN y% = CSRLIN ELSE y% = 3
  359. leftx% = 15
  360.  
  361. test% = POS(0)
  362.  
  363. IF test% = 15 OR test% = 16 THEN x% = 63: leftx% = 15
  364. IF test% = 18 OR test% = 19 THEN x% = 64: leftx% = 18
  365. IF test% = 21 OR test% = 22 THEN x% = 65: leftx% = 21
  366. IF test% = 24 OR test% = 25 THEN x% = 66: leftx% = 24
  367. IF test% = 27 OR test% = 28 THEN x% = 67: leftx% = 27
  368. IF test% = 30 OR test% = 31 THEN x% = 68: leftx% = 30
  369. IF test% = 33 OR test% = 34 THEN x% = 69: leftx% = 33
  370. IF test% = 36 OR test% = 37 THEN x% = 70: leftx% = 36
  371. IF test% = 39 OR test% = 40 THEN x% = 71: leftx% = 39
  372. IF test% = 42 OR test% = 43 THEN x% = 72: leftx% = 42
  373. IF test% = 45 OR test% = 46 THEN x% = 73: leftx% = 45
  374. IF test% = 48 OR test% = 49 THEN x% = 74: leftx% = 48
  375. IF test% = 51 OR test% = 52 THEN x% = 75: leftx% = 51
  376. IF test% = 54 OR test% = 55 THEN x% = 76: leftx% = 54
  377. IF test% = 57 OR test% = 58 THEN x% = 77: leftx% = 57
  378. IF test% = 60 OR test% = 61 THEN x% = 78: leftx% = 60
  379.  
  380. GOSUB DrawEditBar:
  381.  
  382. LOCATE y%, x%, 1, 1, 30
  383.  
  385.     DO
  386.         E$ = INKEY$
  387.         IF E$ <> "" THEN
  388.             SELECT CASE E$
  389.                 CASE CHR$(9)
  390.                     IF Pane% = 1 THEN
  391.                         Pane% = 2: GOTO EditLeftSide
  392.                     ELSE
  393.                         Pane% = 1: GOTO EditRightSide
  394.                     END IF
  395.                 CASE CHR$(27): EXIT DO
  396.                 CASE CHR$(0) + CHR$(72): IF y% > 3 THEN y% = y% - 1
  397.                 CASE CHR$(0) + CHR$(80): IF y% < 25 THEN y% = y% + 1
  398.                 CASE CHR$(0) + CHR$(75): IF x% > 63 THEN x% = x% - 1: leftx% = leftx% - 3
  399.                 CASE CHR$(0) + CHR$(77): IF x% < 78 THEN x% = x% + 1: leftx% = leftx% + 3
  400.                 CASE CHR$(0) + CHR$(73), CHR$(0) + CHR$(71): y% = 3
  401.                 CASE CHR$(0) + CHR$(81), CHR$(0) + CHR$(79): y% = 25
  402.                 CASE ELSE
  403.                     IF (ByteLocation& + ((y% - 3) * 16 + x% - 1) - 62) <= LOF(7) AND E$ <> CHR$(8) THEN
  404.                         changes% = 1
  405.                         'new color for changed bytes...
  406.                         COLOR 1, 15: LOCATE y%, x%: PRINT " ";
  407.                         LOCATE y%, leftx%
  408.                         CurrentByte$ = HEX$(ASC(E$)): IF LEN(CurrentByte$) = 1 THEN CurrentByte$ = "0" + CurrentByte$
  409.                         PRINT CurrentByte$;
  410.                         LOCATE y%, x%: PRINT E$;
  411.                         MID$(PageOfData$, ((y% - 3) * 16 + x% * 1) - 62) = E$
  412.                         IF x% < 78 THEN x% = x% + 1: leftx% = leftx% + 3 'skip space
  413.                     END IF
  414.             END SELECT
  415.         END IF
  416.     LOOP UNTIL E$ <> ""
  417.     LOCATE y%, x%
  418. LOOP UNTIL E$ = CHR$(27)
  419.  
  420. '==========================================================================
  421. SaveChanges:
  422. '===========
  423.  
  424. IF changes% = 1 THEN
  425.     SOUND 4500, .2: COLOR 15, 4: LOCATE , , 0
  426.     LOCATE 10, 29: PRINT CHR$(201); STRING$(21, 205); CHR$(187);
  427.     LOCATE 11, 29: PRINT CHR$(186); " Save Changes (Y/N)? "; CHR$(186);
  428.     LOCATE 12, 29: PRINT CHR$(200); STRING$(21, 205); CHR$(188);
  429.     N$ = INPUT$(1): COLOR 15, 1
  430.     IF UCASE$(N$) = "Y" THEN
  431.         IF PageFlag% = 1 THEN PageOfData$ = LEFT$(PageOfData$, PageLimit%)
  432.         PUT #7, ByteLocation&, PageOfData$:
  433.     END IF
  435. COLOR 15, 1: CLS: LOCATE 1, 1, 0
  437.  
  438.  
  439. '==========================================================================
  440. EditLeftSide: 'Editing Left side info in dual pane mode
  441. '===========
  442.  
  443. COLOR 1, 7
  444. x% = 15: 'y% = 3
  445. rightx% = 63
  446.  
  447. test% = POS(0)
  448. IF test% = 63 THEN x% = 15: rightx% = 63
  449. IF test% = 64 THEN x% = 18: rightx% = 64
  450. IF test% = 65 THEN x% = 21: rightx% = 65
  451. IF test% = 66 THEN x% = 24: rightx% = 66
  452. IF test% = 67 THEN x% = 27: rightx% = 67
  453. IF test% = 68 THEN x% = 30: rightx% = 68
  454. IF test% = 69 THEN x% = 33: rightx% = 69
  455. IF test% = 70 THEN x% = 36: rightx% = 70
  456. IF test% = 71 THEN x% = 39: rightx% = 71
  457. IF test% = 72 THEN x% = 42: rightx% = 72
  458. IF test% = 73 THEN x% = 45: rightx% = 73
  459. IF test% = 74 THEN x% = 48: rightx% = 74
  460. IF test% = 75 THEN x% = 51: rightx% = 75
  461. IF test% = 76 THEN x% = 54: rightx% = 76
  462. IF test% = 77 THEN x% = 57: rightx% = 77
  463. IF test% = 78 THEN x% = 60: rightx% = 78
  464.  
  465. GOSUB DrawEditBar:
  466.  
  467. LOCATE y%, x%, 1, 1, 30
  468.  
  470.     DO
  471.         E$ = INKEY$
  472.         IF E$ <> "" THEN
  473.             SELECT CASE E$
  474.                 CASE CHR$(9)
  475.                     IF Pane% = 1 THEN
  476.                         Pane% = 2: GOTO EditLeftSide
  477.                     ELSE
  478.                         Pane% = 1: GOTO EditRightSide
  479.                     END IF
  480.                 CASE CHR$(27): EXIT DO
  481.                 CASE CHR$(0) + CHR$(72): IF y% > 3 THEN y% = y% - 1
  482.                 CASE CHR$(0) + CHR$(80): IF y% < 25 THEN y% = y% + 1
  483.                 CASE CHR$(0) + CHR$(75) 'right arrow....
  484.                     IF x% > 15 THEN
  485.                         SELECT CASE x%
  486.                             CASE 17, 18, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 38, 39, 41, 42, 44, 45, 47, 48, 50, 51, 53, 54, 56, 57, 59, 60, 62, 63
  487.                                 x% = x% - 2
  488.                                 rightx% = rightx% - 1
  489.                             CASE ELSE: x% = x% - 1
  490.                         END SELECT
  491.                     END IF
  492.  
  493.                 CASE CHR$(0) + CHR$(77)
  494.                     IF x% < 61 THEN
  495.                         SELECT CASE x%
  496.                             CASE 16, 17, 19, 20, 22, 23, 25, 26, 28, 29, 31, 32, 34, 35, 37, 38, 40, 41, 43, 44, 46, 47, 49, 50, 52, 53, 55, 56, 58, 59, 61, 62
  497.                                 x% = x% + 2
  498.                                 rightx% = rightx% + 1
  499.                             CASE ELSE: x% = x% + 1
  500.                         END SELECT
  501.                     END IF
  502.  
  503.                 CASE CHR$(0) + CHR$(73), CHR$(0) + CHR$(71): y% = 3
  504.                 CASE CHR$(0) + CHR$(81), CHR$(0) + CHR$(79): y% = 25
  505.                 CASE ELSE
  506.                     IF (ByteLocation& + ((y% - 3) * 16 + rightx% - 1) - 62) <= LOF(7) AND E$ <> CHR$(8) THEN
  507.                         SELECT CASE UCASE$(E$)
  508.                             CASE "A", "B", "C", "D", "E", "F", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"
  509.                                 E$ = UCASE$(E$)
  510.                                 changes% = 1
  511.                                 COLOR 1, 15: LOCATE y%, x%: PRINT " ";
  512.                                 LOCATE y%, x%: PRINT E$;
  513.                                 IF x% < 62 THEN
  514.  
  515.                                     SELECT CASE x%
  516.                                         CASE 16, 17, 19, 20, 22, 23, 25, 26, 28, 29, 31, 32, 34, 35, 37, 38, 40, 41, 43, 44, 46, 47, 49, 50, 52, 53, 55, 56, 58, 59, 61, 62
  517.                                             e2$ = CHR$(VAL("&H" + CHR$(SCREEN(y%, x% - 1)) + CHR$(SCREEN(y%, x%))))
  518.                                             'reflect changes on right panel
  519.                                             COLOR 1, 15: LOCATE y%, rightx%: PRINT " ";
  520.                                             LOCATE y%, rightx%: PRINT e2$;
  521.                                             MID$(PageOfData$, ((y% - 3) * 16 + rightx% * 1) - 62) = e2$
  522.                                             'dont advance cursor if at last place
  523.                                             IF x% < 61 THEN
  524.                                                 rightx% = rightx% + 1
  525.                                                 x% = x% + 2
  526.                                             END IF
  527.                                         CASE ELSE: x% = x% + 1
  528.                                     END SELECT
  529.                                 END IF
  530.                         END SELECT
  531.  
  532.                     END IF
  533.             END SELECT
  534.         END IF
  535.     LOOP UNTIL E$ <> ""
  536.     LOCATE y%, x%
  537. LOOP UNTIL E$ = CHR$(27)
  538.  
  539. GOTO SaveChanges:
  540.  
  541.  
  542. '==========================================================================
  543. EditFullView: 'Editing file in full display mode (one pane)
  544. '===========
  545.  
  546. COLOR 1, 7
  547. x% = 1: y% = 3
  548. changes% = 0
  549.  
  550. GOSUB DrawEditBar
  551.  
  552. LOCATE 3, 1, 1, 1, 30
  553.  
  555.     DO
  556.         E$ = INKEY$
  557.         IF E$ <> "" THEN
  558.             SELECT CASE E$
  559.                 CASE CHR$(27): EXIT DO
  560.                 CASE CHR$(0) + CHR$(72): IF y% > 3 THEN y% = y% - 1
  561.                 CASE CHR$(0) + CHR$(80): IF y% < 25 THEN y% = y% + 1
  562.                 CASE CHR$(0) + CHR$(75): IF x% > 1 THEN x% = x% - 1
  563.                 CASE CHR$(0) + CHR$(77): IF x% < 79 THEN x% = x% + 1
  564.                 CASE CHR$(0) + CHR$(73), CHR$(0) + CHR$(71): y% = 3
  565.                 CASE CHR$(0) + CHR$(81), CHR$(0) + CHR$(79): y% = 25
  566.                 CASE ELSE
  567.                     IF (ByteLocation& + (y% - 3) * 79 + x% - 1) <= LOF(7) AND E$ <> CHR$(8) THEN
  568.                         changes% = 1
  569.                         'new color for changed bytes
  570.                         COLOR 1, 15: LOCATE y%, x%: PRINT " ";
  571.                         LOCATE y%, x%: PRINT E$;
  572.                         MID$(PageOfData$, (y% - 3) * 79 + x% * 1) = E$
  573.                         IF x% < 79 THEN x% = x% + 1
  574.                     END IF
  575.             END SELECT
  576.         END IF
  577.     LOOP UNTIL E$ <> ""
  578.     GOSUB DrawEditBar
  579.     LOCATE y%, x%
  580. LOOP UNTIL E$ = CHR$(27)
  581.  
  582. GOTO SaveChanges:
  583.  
  584. '==========================================================================
  585. DrawEditBar:
  586. '===========
  587.  
  588. IF DisplayView% = 1 THEN
  589.     LOCATE 1, 1:
  590.     COLOR 31, 4: PRINT "  EDIT MODE: ";
  591.     COLOR 15, 4
  592.     PRINT " Press TAB to switch editing sides "; CHR$(179); " Arrows move cursor "; CHR$(179); " ESC=Exit ";
  594.     LOCATE 1, 1
  595.     COLOR 31, 4: PRINT " EDIT MODE ";
  596.     COLOR 15, 4
  597.     PRINT CHR$(179); " Arrows move cursor "; CHR$(179); " ESC=Exit "; CHR$(179);
  598.     LOCATE 1, 45: PRINT STRING$(35, " ");
  599.  
  600.     LOCATE 1, 46
  601.     CurrentByte& = ByteLocation& + (y% - 3) * 79 + x% - 1
  602.     CurrentValue% = ASC(MID$(PageOfData$, (y% - 3) * 79 + x% * 1, 1))
  603.     IF CurrentByte& > LOF(7) THEN
  604.         PRINT SPACE$(9); "PAST END OF FILE";
  605.     ELSE
  606.         PRINT "Byte:"; LTRIM$(STR$(CurrentByte&));
  607.         PRINT ", ASC:"; LTRIM$(STR$(CurrentValue%));
  608.         PRINT ", HEX:"; RTRIM$(HEX$(CurrentValue%));
  609.     END IF
  612.  
  613. '==========================================================================
  614. DrawTopBar:
  615. '============
  616.  
  617. COLOR 1, 15
  618. LOCATE 1, 1: PRINT STRING$(80, 32);
  619. LOCATE 2, 1: PRINT STRING$(80, 32);
  620.  
  621. LOCATE 1, 1
  622. IF Filter% = 1 THEN
  623.     COLOR 30, 4: PRINT "F";: COLOR 1, 15
  625.     PRINT " ";
  627.  
  628. PRINT "FILE: "; File$;
  629.  
  630. LOCATE 2, 2:
  631. PRINT "Total Bytes:"; LOF(7);
  632. EC& = ByteLocation& + BufferSize%: IF EC& > LOF(7) THEN EC& = LOF(7)
  633. PRINT CHR$(179); " Viewing Bytes:"; RTRIM$(STR$(ByteLocation&)); "-"; LTRIM$(STR$(EC&));
  634. LOCATE 1, 71: PRINT " M = Menu";
  635. COLOR 15, 1
  636. 'Draw bar on right side of screen
  637. FOR d% = 3 TO 25
  638.     LOCATE d%, 80: PRINT CHR$(176);
  640.  
  641. IF DisplayView% = 1 THEN
  642.     'Draw lines down screen
  643.     FOR d% = 3 TO 25
  644.         LOCATE d%, 79: PRINT CHR$(179);
  645.         LOCATE d%, 62: PRINT CHR$(179);
  646.         'add space around numbers...
  647.         '(full screen messes it...)
  648.         LOCATE d%, 13: PRINT " " + CHR$(179);
  649.         LOCATE d%, 1: PRINT CHR$(179) + " ";
  650.     NEXT
  651.  
  652.     'Draw location
  653.     FOR d% = 3 TO 25
  654.         LOCATE d%, 3
  655.         nm$ = HEX$(ByteLocation& - 32 + (d% * 16))
  656.         IF LEN(nm$) = 9 THEN nm$ = "0" + nm$
  657.         IF LEN(nm$) = 8 THEN nm$ = "00" + nm$
  658.         IF LEN(nm$) = 7 THEN nm$ = "000" + nm$
  659.         IF LEN(nm$) = 6 THEN nm$ = "0000" + nm$
  660.         IF LEN(nm$) = 5 THEN nm$ = "00000" + nm$
  661.         IF LEN(nm$) = 4 THEN nm$ = "000000" + nm$
  662.         IF LEN(nm$) = 3 THEN nm$ = "0000000" + nm$
  663.         IF LEN(nm$) = 2 THEN nm$ = "00000000" + nm$
  664.         IF LEN(nm$) = 1 THEN nm$ = "000000000" + nm$
  665.         PRINT nm$;
  666.     NEXT
  668.  
  669. Marker% = CINT(ByteLocation& / LOF(7) * 22)
  670. LOCATE Marker% + 3, 80: PRINT CHR$(178);
  672.  
  673. '==========================================================================
  674. Menu:
  675. '========
  676.  
  677. SOUND 4500, .2: COLOR 15, 0: LOCATE , , 0
  678. LOCATE 5, 24: PRINT CHR$(201); STRING$(34, 205); CHR$(187);
  679. FOR m = 6 TO 20
  680.     LOCATE m, 24: PRINT CHR$(186); SPACE$(34); CHR$(186);
  682. LOCATE 21, 24: PRINT CHR$(200); STRING$(34, 205); CHR$(188);
  683.  
  684. LOCATE 6, 26: PRINT "Use the arrow keys, page up/down";
  685. LOCATE 7, 26: PRINT "and Home/End keys to navigate.";
  686. LOCATE 9, 26: PRINT "E = Enter into file editing mode";
  687. LOCATE 10, 26: PRINT "F = Toggles the filter ON or OFF";
  688. LOCATE 11, 26: PRINT "G = Goto a certain byte position";
  689. LOCATE 12, 26: PRINT "L = Goto a certain HEX location";
  690. LOCATE 13, 26: PRINT "S = Searches for string in file";
  691. LOCATE 14, 26: PRINT "N = Find next match after search";
  692. LOCATE 16, 26: PRINT "ENTER = Toggle HEX/ASCII modes";
  693. LOCATE 17, 26: PRINT "TAB   = switch window (HEX mode)";
  694. LOCATE 18, 26: PRINT "ESC   = EXITS this program";
  695. LOCATE 20, 26: PRINT "ALT+ENTER for full screen window";
  696. Pause$ = INPUT$(1)
  697. COLOR 15, 1: CLS: LOCATE 1, 1, 0
  699.  
  700.  
  701. '==========================================================================
  702. '                           FUNCTIONS/SUBS
  703. '==========================================================================
  704.  
  705. FUNCTION FileSelect$ (y, x, y2, x2, Filespec$)
  706.  
  707.  
  708.     '=== save original place of cursor
  709.     origy = CSRLIN
  710.     origx = POS(1)
  711.  
  712.     '=== save colors
  713.     fg& = _DEFAULTCOLOR
  714.     bg& = _BACKGROUNDCOLOR
  715.  
  716.     '=== Save whole screen
  717.     DIM scr1 AS _MEM, scr2 AS _MEM
  718.     scr1 = _MEMIMAGE(0): scr2 = _MEMNEW(scr1.SIZE)
  719.     _MEMCOPY scr1, scr1.OFFSET, scr1.SIZE TO scr2, scr2.OFFSET
  720.  
  721.     '=== Generate a unique temp filename to use based on date + timer
  722.     tmp$ = "_qb64_" + DATE$ + "_" + LTRIM$(STR$(INT(TIMER))) + ".tmp"
  723.     IF INSTR(_OS$, "LINUX") THEN tmp$ = "/tmp/" + tmp$
  724.  
  725.     loadagain:
  726.  
  727.     top = 0
  728.     selection = 0
  729.  
  730.     '=== list directories
  731.     IF INSTR(_OS$, "LINUX") THEN
  732.         SHELL _HIDE "find . -maxdepth 1 -type d > " + tmp$
  733.     ELSE
  734.         SHELL _HIDE "dir /b /A:D > " + tmp$
  735.     END IF
  736.  
  737.     '=== make room for names
  738.     REDIM FileNames$(10000) 'space for 10000 filenames
  739.  
  740.     '=== only show the ".." when not at root dir
  741.     IF LEN(_CWD$) <> 3 THEN
  742.         FileNames$(0) = ".."
  743.         LineCount = 1
  744.     ELSE
  745.         LineCount = 0
  746.     END IF
  747.  
  748.     '=== Open temp file
  749.     FF = FREEFILE
  750.     OPEN tmp$ FOR INPUT AS #FF
  751.  
  752.     WHILE ((LineCount < UBOUND(FileNames$)) AND (NOT EOF(FF)))
  753.         LINE INPUT #FF, rl$
  754.  
  755.         '=== load, ignoring the . entry added under Linux
  756.         IF rl$ <> "." THEN
  757.  
  758.             'also remove the ./ added at the beginning when under linux
  759.             IF INSTR(_OS$, "LINUX") THEN
  760.                 IF LEFT$(rl$, 2) = "./" THEN
  761.                     rl$ = RIGHT$(rl$, LEN(rl$) - 2)
  762.                 END IF
  763.             END IF
  764.  
  765.             FileNames$(LineCount) = "[" + rl$ + "]"
  766.             LineCount = LineCount + 1
  767.  
  768.         END IF
  769.     WEND
  770.  
  771.     CLOSE #FF
  772.  
  773.     '=== now grab list of files...
  774.     IF INSTR(_OS$, "LINUX") THEN
  775.         SHELL _HIDE "rm " + tmp$
  776.         IF Filespec$ = "*.*" THEN Filespec$ = ""
  777.         SHELL _HIDE "find -maxdepth 1 -type f -name '" + Filespec$ + "*' > " + tmp$
  778.     ELSE
  779.         SHELL _HIDE "del " + tmp$
  780.         SHELL _HIDE "dir /b /A:-D " + Filespec$ + " > " + tmp$
  781.     END IF
  782.  
  783.     '=== open temp file
  784.     FF = FREEFILE
  785.     OPEN tmp$ FOR INPUT AS #FF
  786.  
  787.     WHILE ((LineCount < UBOUND(FileNames$)) AND (NOT EOF(FF)))
  788.  
  789.         LINE INPUT #FF, rl$
  790.  
  791.         '=== load, ignoring the generated temp file...
  792.         IF rl$ <> tmp$ THEN
  793.  
  794.             'also remove the ./ added at the beginning when under linux
  795.             IF INSTR(_OS$, "LINUX") THEN
  796.                 IF LEFT$(rl$, 2) = "./" THEN
  797.                     rl$ = RIGHT$(rl$, LEN(rl$) - 2)
  798.                 END IF
  799.             END IF
  800.  
  801.             FileNames$(LineCount) = rl$
  802.             LineCount = LineCount + 1
  803.         END IF
  804.  
  805.     WEND
  806.     CLOSE #FF
  807.  
  808.     '=== Remove the temp file created
  809.     IF INSTR(_OS$, "LINUX") THEN
  810.         SHELL _HIDE "rm " + tmp$
  811.     ELSE
  812.         SHELL _HIDE "del " + tmp$
  813.     END IF
  814.  
  815.  
  816.     '=== draw a box
  817.     COLOR _RGB(100, 100, 255)
  818.     FOR l = 0 TO y2 + 1
  819.         LOCATE y + l, x: PRINT STRING$(x2 + 4, CHR$(219));
  820.     NEXT
  821.  
  822.     '=== show current working dir at top
  823.     COLOR _RGB(255, 255, 255), _RGB(100, 100, 255)
  824.     CurDir$ = _CWD$
  825.     '=== Shorten it is too long, for display purposes
  826.     IF LEN(CurDir$) > x2 - x THEN
  827.         CurDir$ = MID$(CurDir$, 1, x2 - x - 3) + "..."
  828.     END IF
  829.     LOCATE y, x + 2: PRINT CurDir$;
  830.  
  831.     '=== scroll through list...
  832.     DO
  833.  
  834.         FOR l = 0 TO (y2 - 1)
  835.  
  836.             LOCATE (y + 1) + l, (x + 2)
  837.             IF l + top = selection THEN
  838.                 COLOR _RGB(0, 0, 64), _RGB(255, 255, 255) 'selected line
  839.             ELSE
  840.                 COLOR _RGB(255, 255, 255), _RGB(0, 0, 64) 'regular
  841.                 '=== directories get a different color...
  842.                 IF MID$(FileNames$(top + l), 1, 1) = "[" THEN
  843.                     COLOR _RGB(255, 255, 0), _RGB(0, 0, 64)
  844.                 END IF
  845.             END IF
  846.  
  847.             PRINT LEFT$(FileNames$(top + l) + STRING$(x2, " "), x2);
  848.  
  849.         NEXT
  850.  
  851.         '=== Get user input
  852.  
  853.         k$ = INKEY$
  854.         SELECT CASE k$
  855.  
  856.             CASE IS = CHR$(0) + CHR$(72) 'Up arrow
  857.                 IF selection > 0 THEN selection = selection - 1
  858.                 IF selection < top THEN top = selection
  859.  
  860.             CASE IS = CHR$(0) + CHR$(80) 'Down Arrow
  861.                 IF selection < (LineCount - 1) THEN selection = selection + 1
  862.                 IF selection > (top + (y2 - 2)) THEN top = selection - y2 + 1
  863.  
  864.             CASE IS = CHR$(0) + CHR$(73) 'Page up
  865.                 top = top - y2
  866.                 selection = selection - y2
  867.                 IF top < 0 THEN top = 0
  868.                 IF selection < 0 THEN selection = 0
  869.  
  870.             CASE IS = CHR$(0) + CHR$(81) 'Page Down
  871.                 top = top + y2
  872.                 selection = selection + y2
  873.                 IF top >= LineCount - y2 THEN top = LineCount - y2
  874.                 IF top < 0 THEN top = 0
  875.                 IF selection >= LineCount THEN selection = LineCount - 1
  876.  
  877.             CASE IS = CHR$(0) + CHR$(71) 'Home
  878.                 top = 0: selection = 0
  879.  
  880.             CASE IS = CHR$(0) + CHR$(79) 'End
  881.                 selection = LineCount - 1
  882.                 top = selection - y2 + 1
  883.                 IF top < 0 THEN top = 0
  884.  
  885.             CASE IS = CHR$(27) ' ESC cancels
  886.                 FileSelect$ = ""
  887.                 EXIT DO
  888.  
  889.             CASE IS = CHR$(13) 'Enter
  890.                 '=== if .. then go up one dir
  891.                 IF RTRIM$(FileNames$(selection)) = ".." THEN
  892.                     cd$ = _CWD$
  893.                     IF INSTR(_OS$, "LINUX") THEN
  894.                         cd$ = LEFT$(cd$, _INSTRREV(cd$, "/"))
  895.                     ELSE
  896.                         cd$ = LEFT$(cd$, _INSTRREV(cd$, "\"))
  897.                     END IF
  898.                     CHDIR cd$
  899.                     ERASE FileNames$
  900.                     GOTO loadagain
  901.                 END IF
  902.  
  903.                 'see if directory
  904.                 test$ = RTRIM$(FileNames$(selection))
  905.                 IF LEFT$(test$, 1) = "[" THEN
  906.                     test$ = MID$(test$, 2, LEN(test$) - 2)
  907.                     CHDIR test$
  908.                     ERASE FileNames$
  909.                     GOTO loadagain
  910.                 ELSE
  911.                     IF INSTR(_OS$, "LINUX") THEN
  912.                         IF RIGHT$(_CWD$, 1) = "/" THEN
  913.                             C$ = _CWD$
  914.                         ELSE
  915.                             C$ = _CWD$ + "/"
  916.                         END IF
  917.                     ELSE
  918.                         IF RIGHT$(_CWD$, 1) = "\" THEN
  919.                             C$ = _CWD$
  920.                         ELSE
  921.                             C$ = _CWD$ + "\"
  922.                         END IF
  923.                     END IF
  924.  
  925.                     FileSelect$ = C$ + RTRIM$(FileNames$(selection))
  926.                     EXIT DO
  927.  
  928.                 END IF
  929.  
  930.         END SELECT
  931.  
  932.     LOOP
  933.  
  934.     _KEYCLEAR
  935.  
  936.     '=== Restore the whole screen
  937.     _MEMCOPY scr2, scr2.OFFSET, scr2.SIZE TO scr1, scr1.OFFSET
  938.     _MEMFREE scr1: _MEMFREE scr2
  939.  
  940.     '=== restore original y,x and color
  941.     LOCATE origy, origx
  942.  
  943.     COLOR fg&, bg&
  944.  
  945.  
  947.  
  948. SUB FONT (size)
  949.     'load/set built-in CP437 font
  950.     A$ = ""
  951.     A$ = A$ + "haIgm]0MLEMMXkS^ST\\T]lHiaboe<Nl8c71HYa3f0VPiWa9H07n5a_0bn:K"
  952.     A$ = A$ + ";#FB8;c773hBD8T42E_#C:=QBC39PSQB=DB2UhdhVBB^9=_D2EQ#Ala?JFmi"
  953.     A$ = A$ + "ejeGKNiYTV4\UNkOWcmL791Y0Iefg<NdmNWiLfWmIoO_?WkeP10H6`NP0HS["
  954.     A$ = A$ + "KMGj5l9Nf7lH0HC;3of5MAGb9ef>>V6V60Vfa[_^=_m>j[Y]NOC7PDY`?kKc"
  955.     A$ = A$ + "gd0IQB1o20VfnaO?eFkH7m=nh8TP=]8ljY]e^_e]DhRj<;0CoG1`5>lfj\S`"
  956.     A$ = A$ + "IOn5Z6o]G6oLbK3oRZONcW6QoL`[Gfffn0gBQ5]P_=NmC3#5__^kMcMlg=[o"
  957.     A$ = A$ + "a=RPjY`[?W]ga]dWICVEPonZafW]W>fNWObWOGk3P[h7POg7[_Nga07oM<8f"
  958.     A$ = A$ + "f[2agZnF0=g`?kjkmmOT[]nel;PVZJ]hg0?OKcLadaGiKoLOB06[_P\Y8lOJ"
  959.     A$ = A$ + "#5Pl2kCZm?FO04TU^4o[1Bn:5m=VLhOH8jj9mj4UF4Te<4D9R7[U6eP\fS#H"
  960.     A$ = A$ + "5]c]X6G?2l1mUORGl9Rl3CcgPP3Yf?27leNXQi017VViP9PXlI5<D`Bg[8lC"
  961.     A$ = A$ + "8OFXkk2MW7jMNL?lKIT21l_VF:3>F2D;LOV8TRaP9n:<aIA^f=aF7iJaK2<#"
  962.     A$ = A$ + "L8<Ak3Q9<_mJcKe[TDPTc\936fA:ngRlXaf?Q:5<^GQ:NaoU>Jo437Vj6iV1"
  963.     A$ = A$ + "CjiCm;DJYL^oDO^mEPnIARTN`G4_b`GW:h^aS?8:nE5\4h>P72nB`S0?6lT`"
  964.     A$ = A$ + "G3n6`g4n^`g3nA`;PJd_>l_2S2oK`APa=OZPk;hn3NXP7>h;7l41OUP36l\1"
  965.     A$ = A$ + "OW\;=kJbN7IOTLOjLkMY;HY=]dSMY[OYM\d>cGAnIU?G1X#55Z[`\:<W2c[`"
  966.     A$ = A$ + "R:\\2]DHU5FCQ^;\W23Fh^;L?5^_2On2?FQW\`cDh05Nf2o]5n7JN==_fV?["
  967.     A$ = A$ + "V_^VgLcKYiK0]l#_nl<n]?Ho`G1N64oNF7nmJ`?5no0oBhG?1lkY#lk_a3o6"
  968.     A$ = A$ + "2a_i_dUXhG8SOIW2lKS>lKXb`_G\iCeQOMfleChgho?6o#SoJSo:SoBSoRSo"
  969.     A$ = A$ + "2SoS7o7=nc=ngKl_mh7LloZao6SOPaojSo<SodSglAKnX;mXckXcmXciXchX"
  970.     A$ = A$ + "eNDcA6o8SMX7j#Ol3]n3Uke>UGKi_jGkEOZGmAOe?i[^cGM7_b?iEnn_bGOT"
  971.     A$ = A$ + "GITGNTonAN^An_?bgOT_k87LTobANbANdA^oAn8SLWSL7S\kA^eAfn8KJT[I"
  972.     A$ = A$ + "T;OT;KT;LTe?bJNYGnUn7NYGlUnj_dOi;md_dG1if?hKUTeoQnbPBTY#kYE1"
  973.     A$ = A$ + "ESFZ[1V>D;D7jiJVX]gjQI1YQI3=0c1b0c5J4V7<OH1`2Aig5SB]=QF<c1;5"
  974.     A$ = A$ + "b3;3:0=3;7>6hHQS3>NX5h4#keW4\2XEX=X8\BX4Lb`ZPE3W2LZ`Y1[1>Mhm"
  975.     A$ = A$ + "0W1JUo<Qc2>KhLPc5F7LN`jQg;lnPc7f0L1`52G4\Ahm3G<L9`U2G6Li`70J"
  976.     A$ = A$ + "7^2h:Q[2^JhJP?8L]`e1M0K2f<Zke9\5H[`fP^P[7^1XKHk#?#_#O`=2m3k0"
  977.     A$ = A$ + "60f9LC`=3g2L[`^P?4\KhfPK7ejf3B0Z2o4TZbZZNJe<mJ[K6c\RjWEjIg`L"
  978.     A$ = A$ + "b<g6WglG`2GdRGBCIc]dl;[#c;oH>fSkhKi4>aCJ5]fFaEFjTGeZ?UCmdFcY"
  979.     A$ = A$ + "oN>SeNVWeIO>Wkj>_eoNOOWo6^P;lRfhkoR_T;mb^l?#kGaENEGmel1_f[[S"
  980.     A$ = A$ + "=]i`>gbFgFGGo=dmfkYgn^anga0klV^iKiFge7Jggf]O7kiCoI^ooX?kWk1n"
  981.     A$ = A$ + "CN`?oO:l5nR?lGjAfknnb?jSmWmWohko9PWj_h[lEQ?n7N`kjKO_oa2;k?4N"
  982.     A$ = A$ + "n?a?i5o8X?Fh_6nX3m=N8h?h>oHoXWn73gmo=hgcSeBVBdGon_Ub1Ll68O[5"
  983.     A$ = A$ + "Tn_7d>d?4niViJ>Ec5J^NcmJN6coD5c\REDAgEL?ElHEllElc2VE`E7\]P?E"
  984.     A$ = A$ + "`S5lM2NmD#ZIUJUYf#Z#lmNBMoYNfDoZ:?V:_^:k_bQZlaZliZlWFi_\Z:ZJ"
  985.     A$ = A$ + "VEeFEQE][ZfKE?GEoZZWGe[Yj[^jk^j7_j3Fm;<]:VfLWfI=]]<]kJJ?nd6N"
  986.     A$ = A$ + "JSECfJFG=K[Vk_VmGcgYV3=mY=mU>me>m?hdgedo\Co_Jj_N]cZfFZm\Z=\f"
  987.     A$ = A$ + "k\f7_fOH]7Y^IFg:[KMe]Ujj_^1[K_emm[k`cX^I\RILYcHgch1VaGM63?SO"
  988.     A$ = A$ + "c<Wi<?^I^^I^YINGcLOc<JVobjWKm]Eo6Zoj[ocDoG]nG]naVe\Ve9>[e?[^"
  989.     A$ = A$ + "aggm\NlIm2YQdK8MgYO`d?NjXd_n\[JfIWmJWm5>knVmGHf_D3;ZQef`0=lH"
  990.     A$ = A$ + "=llcYZidfLfdL^WilhcIh<EUIeIj9c3TIhi2cmHVkE>g?nL?hLoI=>k6GISG"
  991.     A$ = A$ + "ISkZamfhcghAVga=_;MNM?_?cl>hlnGVoLWoI=o]=oM=om=oGL1YF`:F#k;h"
  992.     A$ = A$ + ">G`3_P3\PGL1S^`U^`CNQGj2kKQ?h2?`2OQ5ncGDM;J5;jbGdNFdm^Xm]XO`"
  993.     A$ = A$ + "RNi5mcGlBFlZGLhR_g5oT;nK]hGLao;;ng\TY]Ti]TSI9WjBf`B^^U<`B^[U"
  994.     A$ = A$ + "lIGbC]TXUlB;iWeDE=U]YEfdjKjjJjVJjNJjQKj0=ml=m?W=Ef5UmmTmbcfG"
  995.     A$ = A$ + "fk=k3Wm0IOi\obLc<g9VKSij;g3TKOiNjLOWL3WkeGj3^\Y]\WJIO[Um3Gfo"
  996.     A$ = A$ + "DQZ:\T2_W2KZ`]GHO5>DceeljK^_VOPV?HcodUGeb?^U_nUOmXESBXnd[Vjh"
  997.     A$ = A$ + "#k:E3WhCHPCJ=?IeYPog]m4EEi;_VW<X2lDh92X_^Bj[ObZ[bLTelT6jk;V>"
  998.     A$ = A$ + "Gj2iBW[Ti;?fmH>San[CML_a;D:hPP69H#F<>]JAkB#YRUX6W;Mn<i<I:F:4"
  999.     A$ = A$ + "SnK\n27KHc#AAQELPa6nXk=<H`#fYLe^n6`m^1dBf2A[G#Yd5Cg#YLIbW9OY"
  1000.     A$ = A$ + "PB5cT;OYR=T?MAC^<iBSOOHXIX`8l_]4B7>jiDAk7M_EdNH#fSL8jkTO1oNj"
  1001.     A$ = A$ + ";TQ;U7N:S3=:8\:BXJY6bD4afRU:D\Dn:;U?3RfHog;1N4mYQ31NH82=nLNH"
  1002.     A$ = A$ + "i917o06WJF4V`l=8<b`O#Xb_;A_aFc]WA<Yo4DE#``8TQ1REY9BH966lk4`a"
  1003.     A$ = A$ + "oU0WhGalR1AJY5K4h#<Td1jE4b4=f`AdTPR9S>1I#]<f`S=L8bUdHR8h<5h3"
  1004.     A$ = A$ + "bA`_QaW8QHPCW8T5;H2?KIhPa_EAkHloe2#1J28P9_ID^1J39lFc:9PTQV_9"
  1005.     A$ = A$ + "GJS`>`nT9O#FTA49SBE[mGO`:>0gIJn6Bd]:>02OLn^ZHniYkgOQDAH8?Rj5"
  1006.     A$ = A$ + ":CTWZ96o5ZH0=7CWWT2CgPRg4KP`678laZf]SS:EZl3>76[D]B;AXVVA]<5E"
  1007.     A$ = A$ + "i_CcT>O2^:Q^Af[6[_8ETQc=RVg2LIiHBc#Whi]H9=8[2oV85RAd;jPIdHT?"
  1008.     A$ = A$ + ":D08RWSo0\^1Y32\6<2UdjARBPTIJVRb7\43ZG]KFDnXWCH`QYiJE>IV0E;>"
  1009.     A$ = A$ + "?6g1#<RUc65`g2bQBRi;QOG63nQd^[4IE4f55ZoQ\E4=FMAR#29HBcND2U^d"
  1010.     A$ = A$ + "Z>jYkPdRDKPT0J=]E:eCc1O;<KFj<e6BXbT\o>IM6S5M>jMDLG<S:7OSWBPP"
  1011.     A$ = A$ + "AT1IN<\:R`W>_Wn2B4EmGNfa2<j7a#5=a\cUD>n:ISV]W^:\kXNLj6eS2STN"
  1012.     A$ = A$ + "IJYR3PDOmXWMhIPa62iHb<=58I3\SXL[P1H[AcJ13NTMSC5478iE#U1Hj#A<"
  1013.     A$ = A$ + "n?XEbZ[Kn[ZBUHa\<iiojK=P>R>7\:LT=6QII9IATTSNiHeIWiFM`9LQdi8?"
  1014.     A$ = A$ + "n3:V6#lgLYYc7[?V^;dZVNcXkRUZTdnS^g9BnEI1;<A:O39PFndZfN4ImQNQ"
  1015.     A$ = A$ + ">M>#imIEZL^eRMXXd5BNn#NU_<K4KgZ1BVSXcNB\hX:NgHkcN6i;_O2nQDn<"
  1016.     A$ = A$ + "2GQ\7CmP]dUXSNSIkD=J8o[i#NdXXZ6>oCRCaflcD<1NYc9oGZ]5WnU__\jI"
  1017.     A$ = A$ + "]o4n>L\IA782:[mY5On>oMFJM5]K=OQbYH_ZXMKl6=TFmfVVD?bTGlXPLYf9"
  1018.     A$ = A$ + "n;iA3=OdG4KcTVMXlMUTgX6HeK3KcT=b#n^B]1TdaVKR]M?XHknd=ZlUBCDi"
  1019.     A$ = A$ + ";VVD`:MXl<AfWn3Qd\?EbD>2GIn>nZAlHoF[SX4:6HEndNBK\o1[1MQVCc2;"
  1020.     A$ = A$ + "UV2VBXgReMNTHCS3[^=0]6KJ<5T]H`gdF9OSST9IbJLa<iC`KYiADTcU^SA`"
  1021.     A$ = A$ + "TC?OK5`L;EOK>;4TVG9U:EB=3aF84KaR^WXB:aN8RBjg8fhKQ?#SX8O6BJn8"
  1022.     A$ = A$ + "o3SJd`Z9HlPTNB45H6K3chT=J#R6#WXY]DE;la>A^[U8l\j7Nm=fnOa<fHiR"
  1023.     A$ = A$ + "B#6\MFdK2b6[gTGUA4Ga5EI4a6ThQ;:JBRMS\S4YabDN\Bj;=f\XaO0d9N;4"
  1024.     A$ = A$ + "M8W#6BCB_ZWBEGf<4B]6UT28M:RbAh:Gk]AaI:nm5`n:`f;6f5nV;WDVlAR3"
  1025.     A$ = A$ + "NbL4=DTiHN#>7=T\dMJDJ15U`OJ0AO[dPe>\85hcN4j]8fiI_M6<ObJe7iaF"
  1026.     A$ = A$ + "?[LOahCLc[3ChB[YSWF<Mc9Y:_Ao4Rm9:bH[GND3`9[6;kh5gQhgWdS9]HB["
  1027.     A$ = A$ + "EQ<>OU8kR8^2ma2eaZ;dZf6JeI3mdWbT8ZKNV9J?5C_lRUD^P6?HTed53FR4"
  1028.     A$ = A$ + "bfNBPO=h`_dDjCil`[j`4bZSS7D`941W8n#I;ihT<UBQ#A4H<9:D11KjD\IK"
  1029.     A$ = A$ + "CK:9N8aCb^CUY62#^mA2M?h`D_`8B6RW8#IbD^\fR3h=6C:aHC<=fBf]TJMR"
  1030.     A$ = A$ + "aGU`nE3fLUbiTB9J]>oHhaad[n64?;RgLl<2HE#eMg<:Zo#a]AJ_\HYXMaVA"
  1031.     A$ = A$ + "1a_5gVZI=l<R2>g^Q4S2BhiAabh3Bb]=<1EAG\G9R?e575ORE0>QAV:Xjccf"
  1032.     A$ = A$ + "HHlTb`f#IC;I?c6QKaJ;b=n[bUcR6;h4S_f5OLBLXlQ_LJNjHM#EP8GV68_#"
  1033.     A$ = A$ + "<b;ncXh]TT\h`oY\2RU]7TcF9>[?j<B6_431DNRlDRR2T869A<D4afBR7;dc"
  1034.     A$ = A$ + "b#6eJOjLH2PfL7UiShS:<>h?:<;>=f4bXB=<XXWi<7]BX5Hi1:3?a^6RJ43W"
  1035.     A$ = A$ + "LLEVHYWnBCnf?c;XCJ9]fRZ]DK0Haf3Hh7I=M69fU[`3ola>ENOiZmH[DS`l"
  1036.     A$ = A$ + "8TC=0S0=Ym>52B6BYe^[Zd2AbI_413IFRVVb<5MA53[6WBHUa3>C4:ncYi3i"
  1037.     A$ = A$ + "V2:5CSZ<_0N?J5IDHD^#0UA_TX>Z;9OXFF21=MaB6YiXR6KHbDUIXS<?cXff"
  1038.     A$ = A$ + "77G:DXHLa38KZ^DF9RZ?\[GR5gFW1f^LT]L5Te6KAWVLj_TG][>2<UcEE\Hj"
  1039.     A$ = A$ + "_6D[Z4A;bJIhPER8V7ZIPH7NGL5afbeL]U8UBcaYVF\QAmk`dhOTi9EAKZjK"
  1040.     A$ = A$ + "66kE>ObnJJ19]3YM^2?NAm9[KWc6]emS5SY59fG^_QTJU8];CPCSTT]BX?BF"
  1041.     A$ = A$ + "3ULRGM\NClhFTmALJ6>e3[?RQU8HLh#TVhg4\kEVe1JnCYfK]>4iQ;A\_#d?"
  1042.     A$ = A$ + "=S?9RWAlY7WQNIIVKmac\A_<`AjDT4CCTV76?k;;ggdiLa\C#B#<>Ll3`DIb"
  1043.     A$ = A$ + ">:ZNF^NB9[NR<fAdXAEJPnT#6Flh:FcBW\FYNnbdBL4WlLHIbAR^SlfV=VdO"
  1044.     A$ = A$ + "jM`PXIJbSm1`AgEGC;m;^X6IR=ZV?faJ6_8]LJCf8am>9A<Y=`ITJa7;m[TU"
  1045.     A$ = A$ + "#cic`N>XTdEc2`KJLZIbK3Jb6U:[OZ\=eOTee]Omb47XNfUZF\;AaLQN29L8"
  1046.     A$ = A$ + "REflmWbend_6JnE1[\LoU86\HR`MPb6?f:5Vgg#Al<65Z?blHn0Ua4V3LSCB"
  1047.     A$ = A$ + "mUER_ec[eETGL4L>d1I7o18?_I#Z4EK;nkS26d<:2G:7A1DfL4?LHRhfAeB["
  1048.     A$ = A$ + "6=m>CAKVZ<?C2NTC8=RmF8QZGWUhV`Vd<dZhTfYgUF[^#;R27ak36DLPe7Y?"
  1049.     A$ = A$ + "L8V[kS;aaaTAXHR7NEaEeTlBO`GFNnaEFVm98c3Ej;D[4AXjfSWCTbXjFb>?"
  1050.     A$ = A$ + "#L8=ViQ3;RaQ6#b3gjj\XA;RoC6PQZ8\R?];hSHQ[HJ??bJF<FYEE1O8[c:["
  1051.     A$ = A$ + "KM2>T6[T?M6>GjLJlnD1YUZ:8n9UdMdBOd774Th9Pn;kd\<O7=hiiTZZ_Fi8"
  1052.     A$ = A$ + "5SHC6\gBbN;ijQfhBaeKZVh<>Yn;EKR3HHh8NTYEfj`B]A2YiP]F\D6_B<8D"
  1053.     A$ = A$ + "09LMFhj1a>VYBMCZ58;9enSPYd?OiVWV<ole9G`5M:Y^H=naTHS8Y5YKnbQY"
  1054.     A$ = A$ + "iJ\JG1;m=;o#S1K]iXk53iQ<PEWW\CeBekTNYN9C79NJR\4C;9e[O_enceca"
  1055.     A$ = A$ + "Snb6X^;CCe#8\MW4L5:P;S?^j#R81ijcZg53WBU9K9E<V]1H5]2MhQEb:Z<m"
  1056.     A$ = A$ + "g<>In<>INENgYoIS^VC=f[_FOiUVBOiIVJOiClE2ObILfG5m?KV3YSdj7B9\"
  1057.     A$ = A$ + "g^LDP6AW;S_bNIY8NTJKcJNT]P8>aa#m_an1anE?Go]d>Okne2WRHVnT`O^c"
  1058.     A$ = A$ + "6hKRol:JW\1QSmXJIkB#3K=I=kV#]o\nDBh?ggHD\G\HiS6lSYA[<#9=fV#^"
  1059.     A$ = A$ + "d9L`RTL=9FTTnSmOaNeC;?cBCF`YLR4Qc=>VPJDH<bilIi7OQJG=?7m8;gTV"
  1060.     A$ = A$ + "5bRc\9Ai>0Yn4D]7TeERFK8^4:Bm9Xf?DIS1;_`e]Em<Ba065:EffEdIWAKe"
  1061.     A$ = A$ + "O^4kXVE_EB;S8n[A577W09SI[kOSN[=Z6eA1M1B]l6M=SlFMDYD5U_N0NBMU"
  1062.     A$ = A$ + "Bk]N0l2M;QX7<XG<KYfP^^M9[oNJGmF\aSJ3kSeoL:OAnaDP`RigC^[?QPh;"
  1063.     A$ = A$ + "bQPiXk=:Y?`j2C4;NC4o>^Rb^J:cI=8eK?:d?PDFF:bFfN]Z5Jl:oWbeg;PZ"
  1064.     A$ = A$ + "L6SG1RgB^ZD5IG\82RiHUG<``i1aag>Z4mb`\f197IGC\Uk_ZHan:;<A_WUL"
  1065.     A$ = A$ + "f0\cSX9^Q:LB[jJD9[M65YGndELP89V8MmhYO5W3bJBI;[U5o]:;BlflDg]N"
  1066.     A$ = A$ + "]IUml#[L]hdBnShH#FdBP`751^89f0cXHl]K`_2ai;[Ff5ejH7ib8P;CU7?P"
  1067.     A$ = A$ + "SOn1\[iFVBaFL9cCQjRFAa6X6ZSlfK9_MGOI3Y0BKn0:VMS\f3lRBhT1JWU1"
  1068.     A$ = A$ + "ZG\a9b09XR<Z4C9EaP#=7\bT3TEN<^NU4UYQ9\>[5;i4:M[NW_0[_P<SWbJg"
  1069.     A$ = A$ + "]1N=e>N_egLBF\TPd5W_aE3obbMBCV\\U#QH^SEWhL3]<DfhEl]LlX8J;U?N"
  1070.     A$ = A$ + "5hh8I:KLUUWTLEDGi[PSo`kVcCjj08NFMI8`[LHT\D0Lm5dUTT3<F]gVbIST"
  1071.     A$ = A$ + "PCC9bd=^^[dND:CJ]f[N[89]MU4lVR:C:R:7::ER\3cD;FJ8NLf?kGQg3:]j"
  1072.     A$ = A$ + "_:DNef=M\RC^Ea[<9K8fJdDUeRL[fWTDH2359Y?c?N\\ikT;]DKW<^Z[Z4U\"
  1073.     A$ = A$ + "QFoW4AWcUf^f`8\>Fk^gJb[mKA=F4[]<oZ0[aU`NldjXKmEIAj:Ld8JMjR[n"
  1074.     A$ = A$ + "G9N_4`^Z<abGdNhk0AlbHAeOG67>XAIa]UJmiA;HhVOb[bG#IA7hZjGDLL23"
  1075.     A$ = A$ + "bdNdn1Ao[c2NkNhSUQ\kF`4i>8b>YcI\[Q0Q\bb0akm#IEK8`OTMCeabOmUL"
  1076.     A$ = A$ + "`<A=\88FPRR`:Ic#RfDQl6;D#eb[=[GE2Uh#dXBY<=E97aD3eK]ZfJ5L>b^M"
  1077.     A$ = A$ + "d`=`B_CI5:J`I:S\<V\J5ZT#i5]##F?Mjgba`G6HB7S9<4I;g^1?6;o]J<:J"
  1078.     A$ = A$ + "cHJRSCXHJNZ6YbFoUhm?jT>J1JTDU?:B0RCf8h9OXFCVjIRcMEYL8cObZQT]"
  1079.     A$ = A$ + "DBC1[9In#iWPG<iXFoIRNE<ShGAc\B8HF_:AARi;ISiPaDZnlG\=NgL9Re=f"
  1080.     A$ = A$ + "VRHQ;bFcBIg\hfdZ2`mX;DMSb=EE>:M2idb[RT:XVXFBNk]_O;73e[8;Y>aa"
  1081.     A$ = A$ + "`Vd\g#X62;3n5Vbi`4TAW`HX2Y9W8^P7PHoOX<:=FcWcDH2SVjm;WQUAm65["
  1082.     A$ = A$ + "I<oQP;\QGN#T1H96d<D<Xa1kfP[VEan8`NYk4bS<?]fE^LY#HD313_JMi5_A"
  1083.     A$ = A$ + "TK[iX4FZ\GnjmflZZQl7F6<lXR>hHC#CPdPN4]0_m3YVK0_SAE8BD;19JA]V"
  1084.     A$ = A$ + "BK:E7Hl];D=7cQ[2E;_<_#EZ[3S^;J4o#\>P]ZEN15bUbZ<o6;LREaZL9o9A"
  1085.     A$ = A$ + "XGZ[E\0oK=<CHA^LHj1bF:gfX2cVV:HVDjNb4\C2I6fabd_inSEYi988CPDF"
  1086.     A$ = A$ + "[<1`J^0JM12dM:1B7;P`Lij>ZH\nhM3X61]gl[JIel]E[bg3I3NE^BMM55Go"
  1087.     A$ = A$ + ":EVk87bF8[Y6VNdOc4PYO=a\J4>Pj3c6]gS3Z?Y4LPThZ[d3^R]M0WLhiHag"
  1088.     A$ = A$ + "DNbiejh3>?NF8BWkLgU4E]XY\nd1Bm_B\WKV#=`hk;SBLU0RRgQ<lE9;8Vj8"
  1089.     A$ = A$ + "5L[KSToJ6AGd_D9YMefgV3AX=GDDUci2b]_k\cINO1Cf4`hDiEVOh8<BZHmo"
  1090.     A$ = A$ + "1I^hKjnA[T6>MVlU]Odd\1RlGl5e7[gjV5_o:U#bciE4UbZf77=]]FSnEl;f"
  1091.     A$ = A$ + "4CD\MDkn?eFQ:Y4RFlWi0lFCUe6DcDl6Lf5ACLQ=em8YU^ISl?AfATg8MciU"
  1092.     A$ = A$ + "FFWaTk>?c#f[i<Gd=IKMne<foN[YDRJ`J_?7R[iRj\LDOlTZ0Mllo`R_bEIW"
  1093.     A$ = A$ + "nB>Ki\Y<RI^9cNf?`#jB`kO_CHIKlNA;D[EHSfm7ZM7]Uc]OA2e]d6KFUn8Y"
  1094.     A$ = A$ + "oIaE_jmQfX#kCid2Q#ilaaFPJXd2F;iK<i[eAnhki3RW5C5\[dQoHT>I=EiA"
  1095.     A$ = A$ + ";S[4Jai2;[7OPFWV1In#>Y^hLdNfL7ejl#5h]AnZ#G#A^K;4k^NTa<nFgRf4"
  1096.     A$ = A$ + "KofNoll>lnH#[5DReDJEj2BYkRF^>JfEeQ9HafGYeY[9MM\8Nkl95liKR_k0"
  1097.     A$ = A$ + "TMU\^5a\ZLHd#Ad=<fQSRT<?E>^UGlfOOgofiN:h]km7`kTk5QgYkkogm^?H"
  1098.     A$ = A$ + "nMbmfQFoaAm[ohXNe_Wm;E_^BndVT#:3E9J?N>T\Fc3Q0<H#:RIIMI8I>I_O"
  1099.     A$ = A$ + "[e>8NGT:Jgl^jaNW4Zih[i1Zk?eO[^_<4o0ejEK1dOWFfMak=E>2oJPF_N?;"
  1100.     A$ = A$ + "T8:gb[mR;Bg8_c\<HohlXiIRHb>MS\cA=lN;WTJ5kM^=Rb4lOe#nb:JYGn91"
  1101.     A$ = A$ + "8D\5OeNXRf;K7\bKFQ9c_X_KgTk<e:]`e1IJgkVXFhl_l^fJAUHM2:akfJJ3"
  1102.     A$ = A$ + "F;ke2A6T^?3Um:UA;M0aBhJWC#13=hgl?GiL\aF`kUUJSGGD=f8Y>2S=LZ=#"
  1103.     A$ = A$ + "g5Jjnm?8KlnmWNF\8kgOJCZbgGSPQF9oASB]oOm1[J]>L1kCUTn0OoQV5]7R"
  1104.     A$ = A$ + "h::>=8_6Xmaj;^el#ZHoAf=olGQdW6R_W9YnccE:LPaZ;enYk9`\Z\;]WbM]"
  1105.     A$ = A$ + "Y4e6RlUJoH`Q\Y>;NXkI76>i58=L43ZSL82M]hS]MiEXaE[UVCXNPefY>_ZF"
  1106.     A$ = A$ + "X5ac\Q4=57mbK<;9H?Mg3c3J2H9l0;^IK[\mRKAaAk`cn_6R]94HaP2<7QJS"
  1107.     A$ = A$ + "N?^8]SbTi0<_Qg]BY?n:TUT5=TY<9UfP`Z6;?RliXl9JQ`aAVBSWae8MNGSB"
  1108.     A$ = A$ + "OH?<XY;ZD]VQ8VZ>mUaVQKURT81f:SK?_Y3aV`E8PU6LdO1GB;E0SgK84J`d"
  1109.     A$ = A$ + "f`ghYTWL#dlB`3A^9_\NIQFY76;Z#JW57TF^L1V3akjK]eA4L?\WlF=:_8SC"
  1110.     A$ = A$ + "VKHA^S3>Gh_AN]]X6D;ALi5:#U#aP=4JQC>^FK[[V38TJ?G70\CN#gG^^6E^"
  1111.     A$ = A$ + "^D\\]8D`9oXkI5jNaaQ;i4gb8\Y5h;De4\hR]]FL11K1i>lQJ?=0T`Q2LN_a"
  1112.     A$ = A$ + "6[oD[?M9O<UIH;bcJB:_WUm]cglFI?9aHOe>Djdfn:U8i<\LB1VTBi0SBnbJ"
  1113.     A$ = A$ + "3PhVJl#fZ6_aCAgFd#2MgJMj^UldOmdQIRV:K`j62>Vg8kCddL50#R#TCWW>"
  1114.     A$ = A$ + "0jm`]SfEO\45e?Johakd:i^;FU[8:H5]SXXNoWckgUJS]J8j]\N^XjB2^JNO"
  1115.     A$ = A$ + "Z^VfJk>URX5Q>3=\LNP3f9`[22ETlQ:JXSE7?64V9jLQ^m9QcFE]NF[XNZF\"
  1116.     A$ = A$ + "8dCHaVA]kEL]?>9JWD7]aTEE0WLGP[m1XDJmF[FDG4n<=GRhHBR4CHbF`Qhb"
  1117.     A$ = A$ + "#2kT=4KKXX_\XDd7W09K^#g3#Z=YbPQKO0iX]AjCE0ZcfH>R9cD=#lTCC;k\"
  1118.     A$ = A$ + "DO:Ml\aAaSWBnTm9<gXkJ7a7:mL1Phk:Q;F>8P_gVba?o96U[mPakI:Pf?ii"
  1119.     A$ = A$ + "4PCOHXhOSbM`nKdifnQLKlgLoJF8dmKEWh9V1]b47?LB#AHE`Y1W1Lf`i1W?"
  1120.     A$ = A$ + "LA`U0O0hZP[5f<\Eh6PNQM0g<lQPk#^oSJDo#aV]HSL\4NmZ`?E:EJ=CedWR"
  1121.     A$ = A$ + "bM8JejgAgknfn`mgoSnm5ljS]O1Nm?iFjES_[l0cN;KPl?nACP;QHj57QNHX"
  1122.     A$ = A$ + "Dk9M1KShUoCkAkj=9`QSkW\]n:oGI_e[eSGn>S^oQQ?:l9POOhnPo#hc1o9`"
  1123.     A$ = A$ + "31?2lX`O>lG0O=h[3OCh_1n^`O;lg1om`?161N=hO4nO2o_PoEho;l_1_1<^"
  1124.     A$ = A$ + "\C1W<JZUGIn]Q_RlVFYfhM<]geFNISJZFffH:[?]ZS1E9_Zc[Ka#mjPbPK1M"
  1125.     A$ = A$ + "LcHg0CNbEdgKd[]YginXO?Un>G7iT_R[6jD9UDf[4K=Y9ie4gBUC\7bjBk9o"
  1126.     A$ = A$ + "i;=YBJkm=AhLg>8Ie2hB_b[c]]DHNXQ01FjU;BQVhQ;cO5N2\dkLBkm;1fGY"
  1127.     A$ = A$ + "KB[aaQXHTM]ijTY?1XEX4L:`Y3W9L^`k5^0hm3G6L5`e0M0M2M1K7^AHW`]2"
  1128.     A$ = A$ + "g6m#\RbYd^cclnTAc\TbIV[RVl;[ba_adX`OYAmH3hAZZ<E[O2`V_HSL\4N]"
  1129.     A$ = A$ + "A_Vo=lcbmJC<Q9b]94]g_3_9l]hK_h9me_nP9^L24c9b<A>N<kgm]JM#JGll"
  1130.     A$ = A$ + "_:=?mHo5`To\\hOo?c4\[9mKgWi9okiI^`kdWA:_KmLji]kc9XOGmlmioOhi"
  1131.     A$ = A$ + "GeoAmLkig1?3SLk1Wg=OF;m^ec2[gEOfLmObNNSmfiIofk6?cY0HV`S3fWEa"
  1132.     A$ = A$ + "E2eYWK`cGRNN5XFj:ec3`_MGjidcFc_TNNUHF?OCmlZ`[nadC3fDdc[hYcmR"
  1133.     A$ = A$ + ">gPW?Kml:`aMIji1`J`gbiY`fl7YWG9fj7E?_:lkoNH\QK4a4:BAh\gh:;B7"
  1134.     A$ = A$ + "V`gLaX7g]RNKk6mmf?NIWKMWMg1Nbj`H8k16P?f?fR>aL1>ElC<4T[K3mTCn"
  1135.     A$ = A$ + "cK5oKK`:`?]RM^gN6HMmfoFk<kYVU77lHKU>QFKm4JK5]ejTQ6G>>0dSWc^h"
  1136.     A$ = A$ + "Q=;n6^l>kO7MeK?Ic>I]70kC4jaG=h^38lOIbQOZ`4HBIZdDUYJcd<eHV^YF"
  1137.     A$ = A$ + "CMVIHVYYNc\<Y=cfdPI>V<ViJJd<?cl=;`\#cR<;f\4CCV\84VZW8ZoGRW7Z"
  1138.     A$ = A$ + "VUJbSak?8lAP?3LG`O<lUQ_8V?`mIF6V;`MSAnoP`nPO1<:l5hWLZ3im\CmS"
  1139.     A$ = A$ + "1G?b:XWNZm0ONTULS#O<kIWX4QldCMGHlIdC?eW6cahfQmPAZm<`3K:HJf\L"
  1140.     A$ = A$ + "caH>FcaI>NC;`WcL2VCdLB`7e\2C[Vf<5=[dDbLbVEIF]iD<W:Z?lY<WVI=`"
  1141.     A$ = A$ + "SH>Mh?0ndVgSi<<[eLVVcbLfVcaL^VeI>?cj=_GckcLnV=H^0c5J^8c6=_Oc"
  1142.     A$ = A$ + "5K^4cUJ^<cUKn0Vf=GQi:=GUiZ=GSi3J^FceIj`\9cV=QV>=Ka\Ecf<MI^Nc"
  1143.     A$ = A$ + "=Hjf\MC?VN=mI^ACoVMH6`\Cc=I^Ic]H^Ec^<O8c^=gVif=gQI?VO?cMJn`V"
  1144.     A$ = A$ + "1=OTZgI?M]2lUNlLdS]Z7KC?FD?^BmH9mh9[7GUNLejaCA?NVjacB?NfjacE"
  1145.     A$ = A$ + "?^>iH[jhgZ>^]ZSK[jhfZ>^]ZSK[jhfZ>^]ZSK[jhfZ>^]ZSK[jhfZ>oJE7o"
  1146.     A$ = A$ + "FeaOEjacDaScZ]:?_>fnfkXb;MKM>#7EN9M]e]gA`6gFGl_Fl<?U:kXknfF7"
  1147.     A$ = A$ + "E6fIg3dAeMfg>jZkNkYbM`]JP>fI#OK[[JjlFfLgM\m`=e=eWf`AXZnjL78`"
  1148.     A$ = A$ + "ZYSnk_gK^k>gb0EcW]cnV>O\o^fjf6#na`N_iNTcfD_3\]JdV5fCM^cfd>jT"
  1149.     A$ = A$ + "1KK]N:C_gn7HKm^eNkYS^[[[N60]XdiV70=ZDKWgh>kjVjXk>kIcMFifjMWk"
  1150.     A$ = A$ + "XcIdOWgDgm^e^fL7MgC_3<MZaK]o>jNPnLW^Y1VfU\^F9aQE#WdZNb:LWDdN"
  1151.     A$ = A$ + "BKfCFYmTEK?iD\WLbfCFUmTBj9[d2Wf\M_TM8:IQLA;LJcn=]IKCKFhDbRZ["
  1152.     A$ = A$ + "dfhRFdX=g9fA_=;nDdMRmWFYM8Je=XF8gV5EGY[aF8_B;n\Bglb2iEJkN9g4"
  1153.     A$ = A$ + "d1WE:ZKm]Y^kMcg#e8_T>FYLEgKA>fo0je3\S]eAHWEbo]j`KP?FcFjZk^k<"
  1154.     A$ = A$ + "LCmN;CG>[OTSGm0mgE7KMWm97kG_>\7iHgKYZ=gEoK^k>[Y[N^Y=]C\C3#WY"
  1155.     A$ = A$ + "Og>fNGXlH7K^CD0jVLG4\SMfCEKYc]SR#YXoDi>j37lDK^kM^Y:gFWMP3AHG"
  1156.     A$ = A$ + "M\mNk9\f]_cMX2EM>C_cAIOa=ehScNbHoGSl3nVg6Mdooo4noEAM%%h1"
  1157.     btemp$ = ""
  1158.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
  1159.         IF INSTR(1, B$, "%") THEN
  1160.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
  1161.                 IF F$ <> "%" THEN C$ = C$ + F$
  1162.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
  1163.             IF MID$(B$, j, 1) = "#" THEN
  1164.         MID$(B$, j) = "@": END IF: NEXT
  1165.         FOR t% = LEN(B$) TO 1 STEP -1
  1166.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
  1167.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
  1168.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
  1169.     NEXT: btemp$ = btemp$ + X$: NEXT
  1170.     BASFILE$ = _INFLATE$(btemp$): btemp$ = ""
  1171.  
  1172.     '=== Generate a unique font name to use based on date + timer
  1173.     fontname$ = "_cp437_" + DATE$ + "_" + LTRIM$(STR$(INT(TIMER))) + ".ttf"
  1174.     IF INSTR(_OS$, "LINUX") THEN tmp$ = "/tmp/" + tmp$
  1175.     '=== Make font file
  1176.     FFF = FREEFILE: OPEN fontname$ FOR OUTPUT AS #FFF
  1177.     PRINT #FFF, BASFILE$;: CLOSE #FFF
  1178.     '=== Load then kill it after loading it into memory
  1179.     fnt& = _LOADFONT(fontname$, size, "monospace"): _FONT fnt&
  1180.     KILL fontname$
  1181.  
  1183.  
.
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
Re: XE v1.12 - Simple file viewer/editor. Updated to work in Linux now.
« Reply #1 on: November 26, 2021, 12:46:10 pm »
Very useful tool! Thanks for sharing!
Logged
Pages: [1]   Go Up
« previous next »