CHelp/!StrongHlp/Utilities/Extract

Home » Archimedes archive » Acorn User » AU 1995-10.adf » !CHelp » CHelp/!StrongHlp/Utilities/Extract

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1995-10.adf » !CHelp
Filename:	CHelp/!StrongHlp/Utilities/Extract
Read OK:	✔
File size:	06C9 bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Acorn User » AU 1995-10.adf » !CHelp » CHelp/!StrongHlp/Utilities/Extract
Archimedes archive » Acorn User » AU 1997-03 B.adf » Extras » PD/!StrongHlp/Utilities/Extract

File contents

    1REM VDU26,12
    2ON ERROR: ON ERROR OFF: PRINT REPORT$;" at ";ERL:END
    3SYS "Hourglass_On"
    4
    5DIM index% 50*1024
    6DIM data%  500*1024
    7
    8C$ = "SWI"
    9
   10A$ = "ADFS::Hard1.$.!StrongHlp.HelpData."+C$
   11B$ = "ADFS::Hard1.$.StrongFS.!StrongHlp.HelpData."+C$
   12
   13B$ = "ADFS::Hard1.$.StrongFS."+C$+"~"
   14
   15OSCLI "Strongcreate " + B$
   16SYS "OS_File",16,A$+".index"    ,index%,0 TO ok1%,,,,ilen%
   17SYS "OS_File",16,A$+".helpdata" ,data%,0  TO ok2%,,,,dlen%
   18
   19ant% = index%!0
   20REM PRINT ant%
   21sbase% = index% :REM +4+ant%*16
   22index%+=4
   23prefix$=""
   24FOR X% = 1 TO ant%
   25  SYS "Hourglass_Percentage",X%*100/ant%
   26
   27  name$ = FN_ConvStr(sbase% + index%!0)
   28  REM PRINT name$,":";
   29REM  REM PRINT TAB(30) index%!4, index%!8, index%!12
   30
   31  IF ((index%!12) AND 1) <> 0 THEN
   32    ftyp% = &FFD
   33  ELSE
   34    ftyp% = &FFF
   35  ENDIF
   36
   37  IF name$ = "!" THEN name$ = "!Root":ftyp% = &FFD
   38
   39  p% = INSTR(name$,"_")
   40  p$ = LEFT$(name$,p%)
   41
   42  IF FN_Upshift(p$) <> FN_Upshift(prefix$)  THEN
   43    prefix$=p$
   44    IF prefix$ <> "" THEN OSCLI "CDir "+B$+"."+prefix$
   45  ENDIF
   46
   47  name$ = MID$(name$,p%+1)
   48  IF name$ = "" THEN name$ = "!Root":ftyp% = &FFD
   49
   50  IF prefix$ = "" THEN
   51    full$ = B$ + "." + name$
   52  ELSE
   53    full$ = B$ + "." + prefix$ + "." + name$
   54  ENDIF
   55
   56  start% = data%  + index%!4
   57  end%   = start% + index%!8
   58
   59  REM PRINT prefix$,".",name$,start%,end%,~index%!12
   60
   61  SYS "OS_File",10,full$,ftyp%,,start%,end%
   62
   63  index%+=16
   64
   65NEXT
   66
   67SYS "Hourglass_Off"
   68END
   69
   70DEF FN_ConvStr(adr%)
   71LOCAL A$,C%
   72A$ = ""
   73WHILE ?(adr%) >= 32
   74  C%  = ?adr%
   75  IF C% = ASC"$" THEN C% = ASC"!"
   76  A$ += CHR$ C%
   77  adr% += 1
   78ENDWHILE
   79=A$
   80
   81DEF FN_Upshift(A$)
   82LOCAL B$,C%
   83B$ = ""
   84FOR C% = 1 TO LEN(A$)
   85  B$ += CHR$(ASC(MID$(A$,C%,1)) AND NOT32)
   86NEXT
   87=B$

� VDU26,12
� �: � � �: � �$;" at ";�:�
ș "Hourglass_On"

� index% 50*1024
� data%  500*1024

C$ = "SWI"
	

0A$ = "ADFS::Hard1.$.!StrongHlp.HelpData."+C$
9B$ = "ADFS::Hard1.$.StrongFS.!StrongHlp.HelpData."+C$


)B$ = "ADFS::Hard1.$.StrongFS."+C$+"~"

� "Strongcreate " + B$
<ș "OS_File",16,A$+".index"    ,index%,0 � ok1%,,,,ilen%
<ș "OS_File",16,A$+".helpdata" ,data%,0  � ok2%,,,,dlen%

ant% = index%!0
� PRINT ant%
!sbase% = index% :� +4+ant%*16

index%+=4
prefix$=""
� X% = 1 � ant%
+  ș "Hourglass_Percentage",X%*100/ant%

*  name$ = �_ConvStr(sbase% + index%!0)
  � PRINT name$,":";
6�  REM PRINT TAB(30) index%!4, index%!8, index%!12

   � ((index%!12) � 1) <> 0 �
     ftyp% = &FFD
!  �
"    ftyp% = &FFF
#  �
$
%2  � name$ = "!" � name$ = "!Root":ftyp% = &FFD
&
'  p% = �name$,"_")
(  p$ = �name$,p%)
)
*.  � �_Upshift(p$) <> �_Upshift(prefix$)  �
+    prefix$=p$
,2    � prefix$ <> "" � � "CDir "+B$+"."+prefix$
-  �
.
/  name$ = �name$,p%+1)
01  � name$ = "" � name$ = "!Root":ftyp% = &FFD
1
2  � prefix$ = "" �
3     full$ = B$ + "." + name$
4  �
50    full$ = B$ + "." + prefix$ + "." + name$
6  �
7
8   start% = data%  + index%!4
9   end%   = start% + index%!8
:
;6  � PRINT prefix$,".",name$,start%,end%,~index%!12
<
=.  ș "OS_File",10,full$,ftyp%,,start%,end%
>
?  index%+=16
@
A�
B
Cș "Hourglass_Off"
D�
E
F� �_ConvStr(adr%)
G� A$,C%
HA$ = ""
Iȕ ?(adr%) >= 32
J  C%  = ?adr%
K  � C% = �"$" � C% = �"!"
L  A$ += � C%
M  adr% += 1
N�
O=A$
P
Q� �_Upshift(A$)
R� B$,C%
SB$ = ""
T� C% = 1 � �(A$)
U!  B$ += �(�(�A$,C%,1)) � �32)
V�
W=B$
�

00000000  0d 00 01 0e f4 20 56 44  55 32 36 2c 31 32 0d 00  |..... VDU26,12..|
00000010  02 1f ee 20 85 3a 20 ee  20 85 20 87 3a 20 f1 20  |... .: . . .: . |
00000020  f6 24 3b 22 20 61 74 20  22 3b 9e 3a e0 0d 00 03  |.$;" at ";.:....|
00000030  15 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00000040  6e 22 0d 00 04 04 0d 00  05 14 de 20 69 6e 64 65  |n"......... inde|
00000050  78 25 20 35 30 2a 31 30  32 34 0d 00 06 15 de 20  |x% 50*1024..... |
00000060  64 61 74 61 25 20 20 35  30 30 2a 31 30 32 34 0d  |data%  500*1024.|
00000070  00 07 04 0d 00 08 0e 43  24 20 3d 20 22 53 57 49  |.......C$ = "SWI|
00000080  22 0d 00 09 04 0d 00 0a  30 41 24 20 3d 20 22 41  |".......0A$ = "A|
00000090  44 46 53 3a 3a 48 61 72  64 31 2e 24 2e 21 53 74  |DFS::Hard1.$.!St|
000000a0  72 6f 6e 67 48 6c 70 2e  48 65 6c 70 44 61 74 61  |rongHlp.HelpData|
000000b0  2e 22 2b 43 24 0d 00 0b  39 42 24 20 3d 20 22 41  |."+C$...9B$ = "A|
000000c0  44 46 53 3a 3a 48 61 72  64 31 2e 24 2e 53 74 72  |DFS::Hard1.$.Str|
000000d0  6f 6e 67 46 53 2e 21 53  74 72 6f 6e 67 48 6c 70  |ongFS.!StrongHlp|
000000e0  2e 48 65 6c 70 44 61 74  61 2e 22 2b 43 24 0d 00  |.HelpData."+C$..|
000000f0  0c 04 0d 00 0d 29 42 24  20 3d 20 22 41 44 46 53  |.....)B$ = "ADFS|
00000100  3a 3a 48 61 72 64 31 2e  24 2e 53 74 72 6f 6e 67  |::Hard1.$.Strong|
00000110  46 53 2e 22 2b 43 24 2b  22 7e 22 0d 00 0e 04 0d  |FS."+C$+"~".....|
00000120  00 0f 1a ff 20 22 53 74  72 6f 6e 67 63 72 65 61  |.... "Strongcrea|
00000130  74 65 20 22 20 2b 20 42  24 0d 00 10 3c c8 99 20  |te " + B$...<.. |
00000140  22 4f 53 5f 46 69 6c 65  22 2c 31 36 2c 41 24 2b  |"OS_File",16,A$+|
00000150  22 2e 69 6e 64 65 78 22  20 20 20 20 2c 69 6e 64  |".index"    ,ind|
00000160  65 78 25 2c 30 20 b8 20  6f 6b 31 25 2c 2c 2c 2c  |ex%,0 . ok1%,,,,|
00000170  69 6c 65 6e 25 0d 00 11  3c c8 99 20 22 4f 53 5f  |ilen%...<.. "OS_|
00000180  46 69 6c 65 22 2c 31 36  2c 41 24 2b 22 2e 68 65  |File",16,A$+".he|
00000190  6c 70 64 61 74 61 22 20  2c 64 61 74 61 25 2c 30  |lpdata" ,data%,0|
000001a0  20 20 b8 20 6f 6b 32 25  2c 2c 2c 2c 64 6c 65 6e  |  . ok2%,,,,dlen|
000001b0  25 0d 00 12 04 0d 00 13  13 61 6e 74 25 20 3d 20  |%........ant% = |
000001c0  69 6e 64 65 78 25 21 30  0d 00 14 10 f4 20 50 52  |index%!0..... PR|
000001d0  49 4e 54 20 61 6e 74 25  0d 00 15 21 73 62 61 73  |INT ant%...!sbas|
000001e0  65 25 20 3d 20 69 6e 64  65 78 25 20 3a f4 20 2b  |e% = index% :. +|
000001f0  34 2b 61 6e 74 25 2a 31  36 0d 00 16 0d 69 6e 64  |4+ant%*16....ind|
00000200  65 78 25 2b 3d 34 0d 00  17 0e 70 72 65 66 69 78  |ex%+=4....prefix|
00000210  24 3d 22 22 0d 00 18 13  e3 20 58 25 20 3d 20 31  |$=""..... X% = 1|
00000220  20 b8 20 61 6e 74 25 0d  00 19 2b 20 20 c8 99 20  | . ant%...+  .. |
00000230  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
00000240  6e 74 61 67 65 22 2c 58  25 2a 31 30 30 2f 61 6e  |ntage",X%*100/an|
00000250  74 25 0d 00 1a 04 0d 00  1b 2a 20 20 6e 61 6d 65  |t%.......*  name|
00000260  24 20 3d 20 a4 5f 43 6f  6e 76 53 74 72 28 73 62  |$ = ._ConvStr(sb|
00000270  61 73 65 25 20 2b 20 69  6e 64 65 78 25 21 30 29  |ase% + index%!0)|
00000280  0d 00 1c 18 20 20 f4 20  50 52 49 4e 54 20 6e 61  |....  . PRINT na|
00000290  6d 65 24 2c 22 3a 22 3b  0d 00 1d 36 f4 20 20 52  |me$,":";...6.  R|
000002a0  45 4d 20 50 52 49 4e 54  20 54 41 42 28 33 30 29  |EM PRINT TAB(30)|
000002b0  20 69 6e 64 65 78 25 21  34 2c 20 69 6e 64 65 78  | index%!4, index|
000002c0  25 21 38 2c 20 69 6e 64  65 78 25 21 31 32 0d 00  |%!8, index%!12..|
000002d0  1e 04 0d 00 1f 20 20 20  e7 20 28 28 69 6e 64 65  |.....   . ((inde|
000002e0  78 25 21 31 32 29 20 80  20 31 29 20 3c 3e 20 30  |x%!12) . 1) <> 0|
000002f0  20 8c 0d 00 20 14 20 20  20 20 66 74 79 70 25 20  | ... .    ftyp% |
00000300  3d 20 26 46 46 44 0d 00  21 07 20 20 cc 0d 00 22  |= &FFD..!.  ..."|
00000310  14 20 20 20 20 66 74 79  70 25 20 3d 20 26 46 46  |.    ftyp% = &FF|
00000320  46 0d 00 23 07 20 20 cd  0d 00 24 04 0d 00 25 32  |F..#.  ...$...%2|
00000330  20 20 e7 20 6e 61 6d 65  24 20 3d 20 22 21 22 20  |  . name$ = "!" |
00000340  8c 20 6e 61 6d 65 24 20  3d 20 22 21 52 6f 6f 74  |. name$ = "!Root|
00000350  22 3a 66 74 79 70 25 20  3d 20 26 46 46 44 0d 00  |":ftyp% = &FFD..|
00000360  26 04 0d 00 27 16 20 20  70 25 20 3d 20 a7 6e 61  |&...'.  p% = .na|
00000370  6d 65 24 2c 22 5f 22 29  0d 00 28 15 20 20 70 24  |me$,"_")..(.  p$|
00000380  20 3d 20 c0 6e 61 6d 65  24 2c 70 25 29 0d 00 29  | = .name$,p%)..)|
00000390  04 0d 00 2a 2e 20 20 e7  20 a4 5f 55 70 73 68 69  |...*.  . ._Upshi|
000003a0  66 74 28 70 24 29 20 3c  3e 20 a4 5f 55 70 73 68  |ft(p$) <> ._Upsh|
000003b0  69 66 74 28 70 72 65 66  69 78 24 29 20 20 8c 0d  |ift(prefix$)  ..|
000003c0  00 2b 12 20 20 20 20 70  72 65 66 69 78 24 3d 70  |.+.    prefix$=p|
000003d0  24 0d 00 2c 32 20 20 20  20 e7 20 70 72 65 66 69  |$..,2    . prefi|
000003e0  78 24 20 3c 3e 20 22 22  20 8c 20 ff 20 22 43 44  |x$ <> "" . . "CD|
000003f0  69 72 20 22 2b 42 24 2b  22 2e 22 2b 70 72 65 66  |ir "+B$+"."+pref|
00000400  69 78 24 0d 00 2d 07 20  20 cd 0d 00 2e 04 0d 00  |ix$..-.  .......|
00000410  2f 1a 20 20 6e 61 6d 65  24 20 3d 20 c1 6e 61 6d  |/.  name$ = .nam|
00000420  65 24 2c 70 25 2b 31 29  0d 00 30 31 20 20 e7 20  |e$,p%+1)..01  . |
00000430  6e 61 6d 65 24 20 3d 20  22 22 20 8c 20 6e 61 6d  |name$ = "" . nam|
00000440  65 24 20 3d 20 22 21 52  6f 6f 74 22 3a 66 74 79  |e$ = "!Root":fty|
00000450  70 25 20 3d 20 26 46 46  44 0d 00 31 04 0d 00 32  |p% = &FFD..1...2|
00000460  16 20 20 e7 20 70 72 65  66 69 78 24 20 3d 20 22  |.  . prefix$ = "|
00000470  22 20 8c 0d 00 33 20 20  20 20 20 66 75 6c 6c 24  |" ...3     full$|
00000480  20 3d 20 42 24 20 2b 20  22 2e 22 20 2b 20 6e 61  | = B$ + "." + na|
00000490  6d 65 24 0d 00 34 07 20  20 cc 0d 00 35 30 20 20  |me$..4.  ...50  |
000004a0  20 20 66 75 6c 6c 24 20  3d 20 42 24 20 2b 20 22  |  full$ = B$ + "|
000004b0  2e 22 20 2b 20 70 72 65  66 69 78 24 20 2b 20 22  |." + prefix$ + "|
000004c0  2e 22 20 2b 20 6e 61 6d  65 24 0d 00 36 07 20 20  |." + name$..6.  |
000004d0  cd 0d 00 37 04 0d 00 38  20 20 20 73 74 61 72 74  |...7...8   start|
000004e0  25 20 3d 20 64 61 74 61  25 20 20 2b 20 69 6e 64  |% = data%  + ind|
000004f0  65 78 25 21 34 0d 00 39  20 20 20 65 6e 64 25 20  |ex%!4..9   end% |
00000500  20 20 3d 20 73 74 61 72  74 25 20 2b 20 69 6e 64  |  = start% + ind|
00000510  65 78 25 21 38 0d 00 3a  04 0d 00 3b 36 20 20 f4  |ex%!8..:...;6  .|
00000520  20 50 52 49 4e 54 20 70  72 65 66 69 78 24 2c 22  | PRINT prefix$,"|
00000530  2e 22 2c 6e 61 6d 65 24  2c 73 74 61 72 74 25 2c  |.",name$,start%,|
00000540  65 6e 64 25 2c 7e 69 6e  64 65 78 25 21 31 32 0d  |end%,~index%!12.|
00000550  00 3c 04 0d 00 3d 2e 20  20 c8 99 20 22 4f 53 5f  |.<...=.  .. "OS_|
00000560  46 69 6c 65 22 2c 31 30  2c 66 75 6c 6c 24 2c 66  |File",10,full$,f|
00000570  74 79 70 25 2c 2c 73 74  61 72 74 25 2c 65 6e 64  |typ%,,start%,end|
00000580  25 0d 00 3e 04 0d 00 3f  10 20 20 69 6e 64 65 78  |%..>...?.  index|
00000590  25 2b 3d 31 36 0d 00 40  04 0d 00 41 05 ed 0d 00  |%+=16..@...A....|
000005a0  42 04 0d 00 43 16 c8 99  20 22 48 6f 75 72 67 6c  |B...C... "Hourgl|
000005b0  61 73 73 5f 4f 66 66 22  0d 00 44 05 e0 0d 00 45  |ass_Off"..D....E|
000005c0  04 0d 00 46 15 dd 20 a4  5f 43 6f 6e 76 53 74 72  |...F.. ._ConvStr|
000005d0  28 61 64 72 25 29 0d 00  47 0b ea 20 41 24 2c 43  |(adr%)..G.. A$,C|
000005e0  25 0d 00 48 0b 41 24 20  3d 20 22 22 0d 00 49 14  |%..H.A$ = ""..I.|
000005f0  c8 95 20 3f 28 61 64 72  25 29 20 3e 3d 20 33 32  |.. ?(adr%) >= 32|
00000600  0d 00 4a 11 20 20 43 25  20 20 3d 20 3f 61 64 72  |..J.  C%  = ?adr|
00000610  25 0d 00 4b 1d 20 20 e7  20 43 25 20 3d 20 97 22  |%..K.  . C% = ."|
00000620  24 22 20 8c 20 43 25 20  3d 20 97 22 21 22 0d 00  |$" . C% = ."!"..|
00000630  4c 10 20 20 41 24 20 2b  3d 20 bd 20 43 25 0d 00  |L.  A$ += . C%..|
00000640  4d 0f 20 20 61 64 72 25  20 2b 3d 20 31 0d 00 4e  |M.  adr% += 1..N|
00000650  05 ce 0d 00 4f 07 3d 41  24 0d 00 50 04 0d 00 51  |....O.=A$..P...Q|
00000660  13 dd 20 a4 5f 55 70 73  68 69 66 74 28 41 24 29  |.. ._Upshift(A$)|
00000670  0d 00 52 0b ea 20 42 24  2c 43 25 0d 00 53 0b 42  |..R.. B$,C%..S.B|
00000680  24 20 3d 20 22 22 0d 00  54 14 e3 20 43 25 20 3d  |$ = ""..T.. C% =|
00000690  20 31 20 b8 20 a9 28 41  24 29 0d 00 55 21 20 20  | 1 . .(A$)..U!  |
000006a0  42 24 20 2b 3d 20 bd 28  97 28 c1 41 24 2c 43 25  |B$ += .(.(.A$,C%|
000006b0  2c 31 29 29 20 80 20 ac  33 32 29 0d 00 56 05 ed  |,1)) . .32)..V..|
000006c0  0d 00 57 07 3d 42 24 0d  ff                       |..W.=B$..|
000006c9

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .