New Toolbox (code 2)
Volume Number: 6
Issue Number: 10
Column Tag: Assembly Lab
New Toolbox Routines (code 2) 
By Hugues A. Oliver, Perpignan, France
Listing: Demo.r
Demo.Rsrc
* -------- MultiFinder --------
Type SIZE = GNRL
,-1
.I
22528 ;;
.L
262144 ;;
.L
262144 ;;
* -------- Menu definition --------
Type MENU
,128
\14
,129
Example 1
Example 2
Example 3
Example 4
Example 5
(-
Quit /Q
* -------- Window --------
Type WIND
,16001
50 55 320 430
Invisible GoAway
4
0
Type WIND
,16002
66 71 336 446
Invisible GoAway
4
0
Type WIND
,16003
82 87 342 452
Invisible GoAway
16
0
Type WIND
,16004
98 87 358 462
Invisible GoAway
4
0
Type WIND
,16005
114 87 358 462
Invisible GoAway
4
0
* -------- Text --------
Type TEHD = GNRL
,6001
.I
10 10 100 244
10 10 100 244
Type TEHD = GNRL
,6002
.I
109 10 199 244
109 10 199 244
Type TEHD = GNRL
,6003
.I