Utilities/!PlaceIt/ConfigChk

Home » Archimedes archive » Micro User » MU 1991-07.adf » PD-Stuff » Utilities/!PlaceIt/ConfigChk

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 » Micro User » MU 1991-07.adf » PD-Stuff
Filename:	Utilities/!PlaceIt/ConfigChk
Read OK:	✔
File size:	051E bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > ConfigChk
   20
   30fred% = OPENIN "!Config"
   40ON ERROR CLOSE#fred%:PRINT 'REPORT$;" at line ";STR$ERL:END
   50colour%=BGET#fred%
   60PRINT "Text colour        ";
   70CASE colour% OF
   80  WHEN 0:PRINT "white"
   90  WHEN 1:PRINT "black"
  100ENDCASE
  110PRINT "Number of icons    ";STR$BGET#fred%
  120size%=FNword
  130WHILE size%>0
  140  PRINT
  150  PRINT "Size               ";STR$size%
  160  offset_to_leafname%=FNword
  170  PRINT "Offset to leafname ";STR$offset_to_leafname%
  180  PRINT "Icon handle        ";STR$BGET#fred%
  190  PRINT "Selected           ";STR$BGET#fred%
  200  temp%=BGET#fred%
  210  temp%=BGET#fred%
  220  PRINT "X position         ";STR$FNword
  230  PRINT "Y position         ";STR$FNword
  240  PRINT "Sprite name        ";
  250  sprite_name_length%=0
  260  ended%=FALSE
  270  WHILE sprite_name_length%<16
  280    temp%=BGET#fred%
  290    sprite_name_length%+=1
  300    IF NOTended% THEN
  310      IF temp%>0 THEN
  320        PRINT CHR$temp%;
  330      ELSE
  340        ended%=TRUE
  350      ENDIF
  360    ENDIF
  370  ENDWHILE
  380  PRINT
  390  PRINT "Filetype           ";STR$~FNword
  400  PRINT "Filename           ";
  410  filename_length%=0
  420  ended%=FALSE
  430  WHILE filename_length%+44<size%
  440    temp%=BGET#fred%
  450    filename_length%+=1
  460    IF NOTended% THEN
  470      IF temp%>0 THEN
  480        PRINT CHR$temp%;
  490      ELSE
  500        ended%=TRUE
  510      ENDIF
  520    ENDIF
  530  ENDWHILE
  540  PRINT TAB(offset_to_leafname%-44+19);"^"
  550  size%=FNword
  560ENDWHILE
  570CLOSE #fred%
  580END
  590
  600DEF FNword
  610LOCAL word%
  620DIM word% 4
  630SYS "OS_GBPB",4,fred%,word%,4
  640=!word%


� > ConfigChk

fred% = � "!Config"
(&� � �#fred%:� '�$;" at line ";Þ:�
2colour%=�#fred%
<� "Text colour        ";
FȎ colour% �
P  � 0:� "white"
Z  � 1:� "black"
d�
n$� "Number of icons    ";Ú#fred%
xsize%=�word
�ȕ size%>0
�  �
�$  � "Size               ";�size%
�  offset_to_leafname%=�word
�2  � "Offset to leafname ";�offset_to_leafname%
�&  � "Icon handle        ";Ú#fred%
�&  � "Selected           ";Ú#fred%
�  temp%=�#fred%
�  temp%=�#fred%
�$  � "X position         ";äword
�$  � "Y position         ";äword
�  � "Sprite name        ";
�  sprite_name_length%=0
  ended%=�
  ȕ sprite_name_length%<16
    temp%=�#fred%
"    sprite_name_length%+=1
,    � �ended% �
6      � temp%>0 �
@        � �temp%;
J      �
T        ended%=�
^      �
h	    �
r  �
|  �
�%  � "Filetype           ";�~�word
�  � "Filename           ";
�  filename_length%=0
�  ended%=�
�"  ȕ filename_length%+44<size%
�    temp%=�#fred%
�    filename_length%+=1
�    � �ended% �
�      � temp%>0 �
�        � �temp%;
�      �
�        ended%=�
�      �
	    �
  �
'  � �offset_to_leafname%-44+19);"^"
&  size%=�word
0�
:� #fred%
D�
N
X� �word
b� word%
l
� word% 4
v ș "OS_GBPB",4,fred%,word%,4
�=!word%
�

00000000  0d 00 0a 11 f4 20 3e 20  43 6f 6e 66 69 67 43 68  |..... > ConfigCh|
00000010  6b 0d 00 14 04 0d 00 1e  17 66 72 65 64 25 20 3d  |k........fred% =|
00000020  20 8e 20 22 21 43 6f 6e  66 69 67 22 0d 00 28 26  | . "!Config"..(&|
00000030  ee 20 85 20 d9 23 66 72  65 64 25 3a f1 20 27 f6  |. . .#fred%:. '.|
00000040  24 3b 22 20 61 74 20 6c  69 6e 65 20 22 3b c3 9e  |$;" at line ";..|
00000050  3a e0 0d 00 32 13 63 6f  6c 6f 75 72 25 3d 9a 23  |:...2.colour%=.#|
00000060  66 72 65 64 25 0d 00 3c  1c f1 20 22 54 65 78 74  |fred%..<.. "Text|
00000070  20 63 6f 6c 6f 75 72 20  20 20 20 20 20 20 20 22  | colour        "|
00000080  3b 0d 00 46 10 c8 8e 20  63 6f 6c 6f 75 72 25 20  |;..F... colour% |
00000090  ca 0d 00 50 13 20 20 c9  20 30 3a f1 20 22 77 68  |...P.  . 0:. "wh|
000000a0  69 74 65 22 0d 00 5a 13  20 20 c9 20 31 3a f1 20  |ite"..Z.  . 1:. |
000000b0  22 62 6c 61 63 6b 22 0d  00 64 05 cb 0d 00 6e 24  |"black"..d....n$|
000000c0  f1 20 22 4e 75 6d 62 65  72 20 6f 66 20 69 63 6f  |. "Number of ico|
000000d0  6e 73 20 20 20 20 22 3b  c3 9a 23 66 72 65 64 25  |ns    ";..#fred%|
000000e0  0d 00 78 0f 73 69 7a 65  25 3d a4 77 6f 72 64 0d  |..x.size%=.word.|
000000f0  00 82 0e c8 95 20 73 69  7a 65 25 3e 30 0d 00 8c  |..... size%>0...|
00000100  07 20 20 f1 0d 00 96 24  20 20 f1 20 22 53 69 7a  |.  ....$  . "Siz|
00000110  65 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |e               |
00000120  22 3b c3 73 69 7a 65 25  0d 00 a0 1f 20 20 6f 66  |";.size%....  of|
00000130  66 73 65 74 5f 74 6f 5f  6c 65 61 66 6e 61 6d 65  |fset_to_leafname|
00000140  25 3d a4 77 6f 72 64 0d  00 aa 32 20 20 f1 20 22  |%=.word...2  . "|
00000150  4f 66 66 73 65 74 20 74  6f 20 6c 65 61 66 6e 61  |Offset to leafna|
00000160  6d 65 20 22 3b c3 6f 66  66 73 65 74 5f 74 6f 5f  |me ";.offset_to_|
00000170  6c 65 61 66 6e 61 6d 65  25 0d 00 b4 26 20 20 f1  |leafname%...&  .|
00000180  20 22 49 63 6f 6e 20 68  61 6e 64 6c 65 20 20 20  | "Icon handle   |
00000190  20 20 20 20 20 22 3b c3  9a 23 66 72 65 64 25 0d  |     ";..#fred%.|
000001a0  00 be 26 20 20 f1 20 22  53 65 6c 65 63 74 65 64  |..&  . "Selected|
000001b0  20 20 20 20 20 20 20 20  20 20 20 22 3b c3 9a 23  |           ";..#|
000001c0  66 72 65 64 25 0d 00 c8  13 20 20 74 65 6d 70 25  |fred%....  temp%|
000001d0  3d 9a 23 66 72 65 64 25  0d 00 d2 13 20 20 74 65  |=.#fred%....  te|
000001e0  6d 70 25 3d 9a 23 66 72  65 64 25 0d 00 dc 24 20  |mp%=.#fred%...$ |
000001f0  20 f1 20 22 58 20 70 6f  73 69 74 69 6f 6e 20 20  | . "X position  |
00000200  20 20 20 20 20 20 20 22  3b c3 a4 77 6f 72 64 0d  |       ";..word.|
00000210  00 e6 24 20 20 f1 20 22  59 20 70 6f 73 69 74 69  |..$  . "Y positi|
00000220  6f 6e 20 20 20 20 20 20  20 20 20 22 3b c3 a4 77  |on         ";..w|
00000230  6f 72 64 0d 00 f0 1e 20  20 f1 20 22 53 70 72 69  |ord....  . "Spri|
00000240  74 65 20 6e 61 6d 65 20  20 20 20 20 20 20 20 22  |te name        "|
00000250  3b 0d 00 fa 1b 20 20 73  70 72 69 74 65 5f 6e 61  |;....  sprite_na|
00000260  6d 65 5f 6c 65 6e 67 74  68 25 3d 30 0d 01 04 0e  |me_length%=0....|
00000270  20 20 65 6e 64 65 64 25  3d a3 0d 01 0e 1f 20 20  |  ended%=.....  |
00000280  c8 95 20 73 70 72 69 74  65 5f 6e 61 6d 65 5f 6c  |.. sprite_name_l|
00000290  65 6e 67 74 68 25 3c 31  36 0d 01 18 15 20 20 20  |ength%<16....   |
000002a0  20 74 65 6d 70 25 3d 9a  23 66 72 65 64 25 0d 01  | temp%=.#fred%..|
000002b0  22 1e 20 20 20 20 73 70  72 69 74 65 5f 6e 61 6d  |".    sprite_nam|
000002c0  65 5f 6c 65 6e 67 74 68  25 2b 3d 31 0d 01 2c 13  |e_length%+=1..,.|
000002d0  20 20 20 20 e7 20 ac 65  6e 64 65 64 25 20 8c 0d  |    . .ended% ..|
000002e0  01 36 15 20 20 20 20 20  20 e7 20 74 65 6d 70 25  |.6.      . temp%|
000002f0  3e 30 20 8c 0d 01 40 15  20 20 20 20 20 20 20 20  |>0 ...@.        |
00000300  f1 20 bd 74 65 6d 70 25  3b 0d 01 4a 0b 20 20 20  |. .temp%;..J.   |
00000310  20 20 20 cc 0d 01 54 14  20 20 20 20 20 20 20 20  |   ...T.        |
00000320  65 6e 64 65 64 25 3d b9  0d 01 5e 0b 20 20 20 20  |ended%=...^.    |
00000330  20 20 cd 0d 01 68 09 20  20 20 20 cd 0d 01 72 07  |  ...h.    ...r.|
00000340  20 20 ce 0d 01 7c 07 20  20 f1 0d 01 86 25 20 20  |  ...|.  ....%  |
00000350  f1 20 22 46 69 6c 65 74  79 70 65 20 20 20 20 20  |. "Filetype     |
00000360  20 20 20 20 20 20 22 3b  c3 7e a4 77 6f 72 64 0d  |      ";.~.word.|
00000370  01 90 1e 20 20 f1 20 22  46 69 6c 65 6e 61 6d 65  |...  . "Filename|
00000380  20 20 20 20 20 20 20 20  20 20 20 22 3b 0d 01 9a  |           ";...|
00000390  18 20 20 66 69 6c 65 6e  61 6d 65 5f 6c 65 6e 67  |.  filename_leng|
000003a0  74 68 25 3d 30 0d 01 a4  0e 20 20 65 6e 64 65 64  |th%=0....  ended|
000003b0  25 3d a3 0d 01 ae 22 20  20 c8 95 20 66 69 6c 65  |%=...."  .. file|
000003c0  6e 61 6d 65 5f 6c 65 6e  67 74 68 25 2b 34 34 3c  |name_length%+44<|
000003d0  73 69 7a 65 25 0d 01 b8  15 20 20 20 20 74 65 6d  |size%....    tem|
000003e0  70 25 3d 9a 23 66 72 65  64 25 0d 01 c2 1b 20 20  |p%=.#fred%....  |
000003f0  20 20 66 69 6c 65 6e 61  6d 65 5f 6c 65 6e 67 74  |  filename_lengt|
00000400  68 25 2b 3d 31 0d 01 cc  13 20 20 20 20 e7 20 ac  |h%+=1....    . .|
00000410  65 6e 64 65 64 25 20 8c  0d 01 d6 15 20 20 20 20  |ended% .....    |
00000420  20 20 e7 20 74 65 6d 70  25 3e 30 20 8c 0d 01 e0  |  . temp%>0 ....|
00000430  15 20 20 20 20 20 20 20  20 f1 20 bd 74 65 6d 70  |.        . .temp|
00000440  25 3b 0d 01 ea 0b 20 20  20 20 20 20 cc 0d 01 f4  |%;....      ....|
00000450  14 20 20 20 20 20 20 20  20 65 6e 64 65 64 25 3d  |.        ended%=|
00000460  b9 0d 01 fe 0b 20 20 20  20 20 20 cd 0d 02 08 09  |.....      .....|
00000470  20 20 20 20 cd 0d 02 12  07 20 20 ce 0d 02 1c 27  |    .....  ....'|
00000480  20 20 f1 20 8a 6f 66 66  73 65 74 5f 74 6f 5f 6c  |  . .offset_to_l|
00000490  65 61 66 6e 61 6d 65 25  2d 34 34 2b 31 39 29 3b  |eafname%-44+19);|
000004a0  22 5e 22 0d 02 26 11 20  20 73 69 7a 65 25 3d a4  |"^"..&.  size%=.|
000004b0  77 6f 72 64 0d 02 30 05  ce 0d 02 3a 0c d9 20 23  |word..0....:.. #|
000004c0  66 72 65 64 25 0d 02 44  05 e0 0d 02 4e 04 0d 02  |fred%..D....N...|
000004d0  58 0b dd 20 a4 77 6f 72  64 0d 02 62 0b ea 20 77  |X.. .word..b.. w|
000004e0  6f 72 64 25 0d 02 6c 0d  de 20 77 6f 72 64 25 20  |ord%..l.. word% |
000004f0  34 0d 02 76 20 c8 99 20  22 4f 53 5f 47 42 50 42  |4..v .. "OS_GBPB|
00000500  22 2c 34 2c 66 72 65 64  25 2c 77 6f 72 64 25 2c  |",4,fred%,word%,|
00000510  34 0d 02 80 0b 3d 21 77  6f 72 64 25 0d ff        |4....=!word%..|
0000051e

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