StarInfo/Granger/!Chemistry/PROCS/MenuPROCs

Home » Archimedes archive » Acorn User » AU 1998-12.adf » Regulars » StarInfo/Granger/!Chemistry/PROCS/MenuPROCs

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 1998-12.adf » Regulars
Filename:	StarInfo/Granger/!Chemistry/PROCS/MenuPROCs
Read OK:	✔
File size:	0515 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM ### MENU PROCS ###
   20
   30DEF FNdecode(ptr%)
   40SYS "Wimp_DecodeMenu",,ptr%,b%,decode%
   50=!b%
   60
   70DEF PROCmenuheader(menu%,title$)
   80$menu%=title$
   90width%=(LEN(title$)-2)*16
  100menu%!12=&70207
  110menu%!20=44
  120menu%!24=0
  130ptr%=menu%+28
  140ENDPROC
  150
  160DEF PROCmenuitem(menu%,mflags%,subptr%,item$)
  170!ptr%=mflags%
  180ptr%!4=subptr%
  190ptr%!8=FNmenuflags(1,0,0,0,1,1,0,0,0,0,0,font2%)
  200$(menutext%+pos%)=item$
  210ptr%!12=menutext%+pos%
  220ptr%!16=-5
  230ptr%!20=40
  240pos%+=LENitem$+1
  250a%=(LEN(item$)+1)*15
  260IF a%>width% THEN width%=a%
  270ptr%=ptr%+24
  280IF mflags%=&80 THEN menu%!16=width%
  290ENDPROC
  300
  310DEF PROCsetupmenu(menu%)
  320READ title$,num%
  330PROCmenuheader(menu%,title$)
  340FOR i%=1 TO num%
  350READ mflags%,subptr%,item$
  360PROCmenuitem(menu%,mflags%,subptr%,item$)
  370NEXT i%
  380ENDPROC
  390
  400DEF FNmenuflags(text%,sp%,bor%,chor%,anti%,ind%,rjust%,half%,shade%,fcol%,bcol%,font%)
  410LOCAL flag%
  420flag%=text%+(sp%<<1)+(bor%<<2)+(chor%<<3)+(1<<5)+(anti%<<6)+(ind%<<8)+(rjust%<<9)+(half%<<11)+(shade%<<22)
  430IF anti%=0 THEN
  440 flag%+=(fcol%<<24)+(bcol%<<28)
  450ELSE
  460 flag%+=(font%<<24)
  470ENDIF
  480=flag%
  490
  500DEF PROCshowmenu(menu%,mx%,my%)
  510SYS "Wimp_CreateMenu",,menu%,mx%,my%
  520ENDPROC
  530
  540DEF PROCarrows(mh%,on%)
  550mh%+=28:c=0
  560REPEAT
  570IF on%=1 THEN subptr%=ind%(c) ELSE subptr%=-1
  580mh%!4=subptr%
  590mh%+=24
  600c+=1
  610UNTIL ind$(c)="" OR c>max_grp
  620ENDPROC
  630


� ### MENU PROCS ###

� �decode(ptr%)
()ș "Wimp_DecodeMenu",,ptr%,b%,decode%
2=!b%
<
F� �menuheader(menu%,title$)
P$menu%=title$
Zwidth%=(�(title$)-2)*16
dmenu%!12=&70207
nmenu%!20=44
xmenu%!24=0
�ptr%=menu%+28
��
�
�,� �menuitem(menu%,mflags%,subptr%,item$)
�!ptr%=mflags%
�ptr%!4=subptr%
�3ptr%!8=�menuflags(1,0,0,0,1,1,0,0,0,0,0,font2%)
�$(menutext%+pos%)=item$
�ptr%!12=menutext%+pos%
�ptr%!16=-5
�ptr%!20=40
�pos%+=�item$+1
�a%=(�(item$)+1)*15
� a%>width% � width%=a%
ptr%=ptr%+24
#� mflags%=&80 � menu%!16=width%
"�
,
6� �setupmenu(menu%)
@� title$,num%
J�menuheader(menu%,title$)
T� i%=1 � num%
^� mflags%,subptr%,item$
h*�menuitem(menu%,mflags%,subptr%,item$)
r� i%
|�
�
�W� �menuflags(text%,sp%,bor%,chor%,anti%,ind%,rjust%,half%,shade%,fcol%,bcol%,font%)
�� flag%
�nflag%=text%+(sp%<<1)+(bor%<<2)+(chor%<<3)+(1<<5)+(anti%<<6)+(ind%<<8)+(rjust%<<9)+(half%<<11)+(shade%<<22)
�� anti%=0 �
�# flag%+=(fcol%<<24)+(bcol%<<28)
��
� flag%+=(font%<<24)
��
�
=flag%
�
�� �showmenu(menu%,mx%,my%)
�'ș "Wimp_CreateMenu",,menu%,mx%,my%
�

� �arrows(mh%,on%)
&mh%+=28:c=0
0�
:*� on%=1 � subptr%=ind%(c) � subptr%=-1
Dmh%!4=subptr%
Nmh%+=24
Xc+=1
b� ind$(c)="" � c>max_grp
l�
v
�

00000000  0d 00 0a 18 f4 20 23 23  23 20 4d 45 4e 55 20 50  |..... ### MENU P|
00000010  52 4f 43 53 20 23 23 23  0d 00 14 04 0d 00 1e 13  |ROCS ###........|
00000020  dd 20 a4 64 65 63 6f 64  65 28 70 74 72 25 29 0d  |. .decode(ptr%).|
00000030  00 28 29 c8 99 20 22 57  69 6d 70 5f 44 65 63 6f  |.().. "Wimp_Deco|
00000040  64 65 4d 65 6e 75 22 2c  2c 70 74 72 25 2c 62 25  |deMenu",,ptr%,b%|
00000050  2c 64 65 63 6f 64 65 25  0d 00 32 08 3d 21 62 25  |,decode%..2.=!b%|
00000060  0d 00 3c 04 0d 00 46 1f  dd 20 f2 6d 65 6e 75 68  |..<...F.. .menuh|
00000070  65 61 64 65 72 28 6d 65  6e 75 25 2c 74 69 74 6c  |eader(menu%,titl|
00000080  65 24 29 0d 00 50 11 24  6d 65 6e 75 25 3d 74 69  |e$)..P.$menu%=ti|
00000090  74 6c 65 24 0d 00 5a 1b  77 69 64 74 68 25 3d 28  |tle$..Z.width%=(|
000000a0  a9 28 74 69 74 6c 65 24  29 2d 32 29 2a 31 36 0d  |.(title$)-2)*16.|
000000b0  00 64 13 6d 65 6e 75 25  21 31 32 3d 26 37 30 32  |.d.menu%!12=&702|
000000c0  30 37 0d 00 6e 0f 6d 65  6e 75 25 21 32 30 3d 34  |07..n.menu%!20=4|
000000d0  34 0d 00 78 0e 6d 65 6e  75 25 21 32 34 3d 30 0d  |4..x.menu%!24=0.|
000000e0  00 82 11 70 74 72 25 3d  6d 65 6e 75 25 2b 32 38  |...ptr%=menu%+28|
000000f0  0d 00 8c 05 e1 0d 00 96  04 0d 00 a0 2c dd 20 f2  |............,. .|
00000100  6d 65 6e 75 69 74 65 6d  28 6d 65 6e 75 25 2c 6d  |menuitem(menu%,m|
00000110  66 6c 61 67 73 25 2c 73  75 62 70 74 72 25 2c 69  |flags%,subptr%,i|
00000120  74 65 6d 24 29 0d 00 aa  11 21 70 74 72 25 3d 6d  |tem$)....!ptr%=m|
00000130  66 6c 61 67 73 25 0d 00  b4 12 70 74 72 25 21 34  |flags%....ptr%!4|
00000140  3d 73 75 62 70 74 72 25  0d 00 be 33 70 74 72 25  |=subptr%...3ptr%|
00000150  21 38 3d a4 6d 65 6e 75  66 6c 61 67 73 28 31 2c  |!8=.menuflags(1,|
00000160  30 2c 30 2c 30 2c 31 2c  31 2c 30 2c 30 2c 30 2c  |0,0,0,1,1,0,0,0,|
00000170  30 2c 30 2c 66 6f 6e 74  32 25 29 0d 00 c8 1b 24  |0,0,font2%)....$|
00000180  28 6d 65 6e 75 74 65 78  74 25 2b 70 6f 73 25 29  |(menutext%+pos%)|
00000190  3d 69 74 65 6d 24 0d 00  d2 1a 70 74 72 25 21 31  |=item$....ptr%!1|
000001a0  32 3d 6d 65 6e 75 74 65  78 74 25 2b 70 6f 73 25  |2=menutext%+pos%|
000001b0  0d 00 dc 0e 70 74 72 25  21 31 36 3d 2d 35 0d 00  |....ptr%!16=-5..|
000001c0  e6 0e 70 74 72 25 21 32  30 3d 34 30 0d 00 f0 12  |..ptr%!20=40....|
000001d0  70 6f 73 25 2b 3d a9 69  74 65 6d 24 2b 31 0d 00  |pos%+=.item$+1..|
000001e0  fa 16 61 25 3d 28 a9 28  69 74 65 6d 24 29 2b 31  |..a%=(.(item$)+1|
000001f0  29 2a 31 35 0d 01 04 1b  e7 20 61 25 3e 77 69 64  |)*15..... a%>wid|
00000200  74 68 25 20 8c 20 77 69  64 74 68 25 3d 61 25 0d  |th% . width%=a%.|
00000210  01 0e 10 70 74 72 25 3d  70 74 72 25 2b 32 34 0d  |...ptr%=ptr%+24.|
00000220  01 18 23 e7 20 6d 66 6c  61 67 73 25 3d 26 38 30  |..#. mflags%=&80|
00000230  20 8c 20 6d 65 6e 75 25  21 31 36 3d 77 69 64 74  | . menu%!16=widt|
00000240  68 25 0d 01 22 05 e1 0d  01 2c 04 0d 01 36 17 dd  |h%.."....,...6..|
00000250  20 f2 73 65 74 75 70 6d  65 6e 75 28 6d 65 6e 75  | .setupmenu(menu|
00000260  25 29 0d 01 40 11 f3 20  74 69 74 6c 65 24 2c 6e  |%)..@.. title$,n|
00000270  75 6d 25 0d 01 4a 1d f2  6d 65 6e 75 68 65 61 64  |um%..J..menuhead|
00000280  65 72 28 6d 65 6e 75 25  2c 74 69 74 6c 65 24 29  |er(menu%,title$)|
00000290  0d 01 54 11 e3 20 69 25  3d 31 20 b8 20 6e 75 6d  |..T.. i%=1 . num|
000002a0  25 0d 01 5e 1b f3 20 6d  66 6c 61 67 73 25 2c 73  |%..^.. mflags%,s|
000002b0  75 62 70 74 72 25 2c 69  74 65 6d 24 0d 01 68 2a  |ubptr%,item$..h*|
000002c0  f2 6d 65 6e 75 69 74 65  6d 28 6d 65 6e 75 25 2c  |.menuitem(menu%,|
000002d0  6d 66 6c 61 67 73 25 2c  73 75 62 70 74 72 25 2c  |mflags%,subptr%,|
000002e0  69 74 65 6d 24 29 0d 01  72 08 ed 20 69 25 0d 01  |item$)..r.. i%..|
000002f0  7c 05 e1 0d 01 86 04 0d  01 90 57 dd 20 a4 6d 65  ||.........W. .me|
00000300  6e 75 66 6c 61 67 73 28  74 65 78 74 25 2c 73 70  |nuflags(text%,sp|
00000310  25 2c 62 6f 72 25 2c 63  68 6f 72 25 2c 61 6e 74  |%,bor%,chor%,ant|
00000320  69 25 2c 69 6e 64 25 2c  72 6a 75 73 74 25 2c 68  |i%,ind%,rjust%,h|
00000330  61 6c 66 25 2c 73 68 61  64 65 25 2c 66 63 6f 6c  |alf%,shade%,fcol|
00000340  25 2c 62 63 6f 6c 25 2c  66 6f 6e 74 25 29 0d 01  |%,bcol%,font%)..|
00000350  9a 0b ea 20 66 6c 61 67  25 0d 01 a4 6e 66 6c 61  |... flag%...nfla|
00000360  67 25 3d 74 65 78 74 25  2b 28 73 70 25 3c 3c 31  |g%=text%+(sp%<<1|
00000370  29 2b 28 62 6f 72 25 3c  3c 32 29 2b 28 63 68 6f  |)+(bor%<<2)+(cho|
00000380  72 25 3c 3c 33 29 2b 28  31 3c 3c 35 29 2b 28 61  |r%<<3)+(1<<5)+(a|
00000390  6e 74 69 25 3c 3c 36 29  2b 28 69 6e 64 25 3c 3c  |nti%<<6)+(ind%<<|
000003a0  38 29 2b 28 72 6a 75 73  74 25 3c 3c 39 29 2b 28  |8)+(rjust%<<9)+(|
000003b0  68 61 6c 66 25 3c 3c 31  31 29 2b 28 73 68 61 64  |half%<<11)+(shad|
000003c0  65 25 3c 3c 32 32 29 0d  01 ae 0f e7 20 61 6e 74  |e%<<22)..... ant|
000003d0  69 25 3d 30 20 8c 0d 01  b8 23 20 66 6c 61 67 25  |i%=0 ....# flag%|
000003e0  2b 3d 28 66 63 6f 6c 25  3c 3c 32 34 29 2b 28 62  |+=(fcol%<<24)+(b|
000003f0  63 6f 6c 25 3c 3c 32 38  29 0d 01 c2 05 cc 0d 01  |col%<<28).......|
00000400  cc 17 20 66 6c 61 67 25  2b 3d 28 66 6f 6e 74 25  |.. flag%+=(font%|
00000410  3c 3c 32 34 29 0d 01 d6  05 cd 0d 01 e0 0a 3d 66  |<<24).........=f|
00000420  6c 61 67 25 0d 01 ea 04  0d 01 f4 1e dd 20 f2 73  |lag%......... .s|
00000430  68 6f 77 6d 65 6e 75 28  6d 65 6e 75 25 2c 6d 78  |howmenu(menu%,mx|
00000440  25 2c 6d 79 25 29 0d 01  fe 27 c8 99 20 22 57 69  |%,my%)...'.. "Wi|
00000450  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000460  6d 65 6e 75 25 2c 6d 78  25 2c 6d 79 25 0d 02 08  |menu%,mx%,my%...|
00000470  05 e1 0d 02 12 04 0d 02  1c 16 dd 20 f2 61 72 72  |........... .arr|
00000480  6f 77 73 28 6d 68 25 2c  6f 6e 25 29 0d 02 26 0f  |ows(mh%,on%)..&.|
00000490  6d 68 25 2b 3d 32 38 3a  63 3d 30 0d 02 30 05 f5  |mh%+=28:c=0..0..|
000004a0  0d 02 3a 2a e7 20 6f 6e  25 3d 31 20 8c 20 73 75  |..:*. on%=1 . su|
000004b0  62 70 74 72 25 3d 69 6e  64 25 28 63 29 20 8b 20  |bptr%=ind%(c) . |
000004c0  73 75 62 70 74 72 25 3d  2d 31 0d 02 44 11 6d 68  |subptr%=-1..D.mh|
000004d0  25 21 34 3d 73 75 62 70  74 72 25 0d 02 4e 0b 6d  |%!4=subptr%..N.m|
000004e0  68 25 2b 3d 32 34 0d 02  58 08 63 2b 3d 31 0d 02  |h%+=24..X.c+=1..|
000004f0  62 1c fd 20 69 6e 64 24  28 63 29 3d 22 22 20 84  |b.. ind$(c)="" .|
00000500  20 63 3e 6d 61 78 5f 67  72 70 0d 02 6c 05 e1 0d  | c>max_grp..l...|
00000510  02 76 04 0d ff                                    |.v...|
00000515

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