/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU3.DMS / in.adf / BlitzBlank / SOURCES / BB.Random

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 42 42 2e 52 61 6e 64 | 6f 6d 20 2d 20 42 6c 61 |;BB.Rand|om - Bla|
|00000010| 6e 6b 65 72 2d 6d 6f 64 | 75 6c 65 20 66 6f 72 20 |nker-mod|ule for |
|00000020| 42 6c 69 74 7a 42 6c 61 | 6e 6b 00 3b 43 6f 70 79 |BlitzBla|nk.;Copy|
|00000030| 72 69 67 68 74 20 31 39 | 39 33 20 62 79 20 54 68 |right 19|93 by Th|
|00000040| 6f 6d 61 73 20 42 6f 65 | 72 6b 65 6c 00 00 80 cb |omas Boe|rkel....|
|00000050| 00 80 cc 00 00 80 12 20 | 64 6f 73 61 73 6c 2e 62 |....... |dosasl.b|
|00000060| 62 32 00 00 80 33 2e 53 | 63 72 65 65 6e 20 2a 6d |b2...3.S|creen *m|
|00000070| 79 73 63 72 65 65 6e 00 | 80 33 2e 4d 65 73 73 61 |yscreen.|.3.Messa|
|00000080| 67 65 20 2a 6d 73 67 2c | 6d 73 67 32 00 80 33 2e |ge *msg,|msg2..3.|
|00000090| 4d 73 67 50 6f 72 74 20 | 2a 70 6f 72 74 2c 2a 70 |MsgPort |*port,*p|
|000000a0| 6f 72 74 32 00 80 33 2e | 41 6e 63 68 6f 72 50 61 |ort2..3.|AnchorPa|
|000000b0| 74 68 20 2a 61 70 00 80 | 33 2e 6c 00 00 80 04 20 |th *ap..|3.l.... |
|000000c0| 6d 6f 64 6e 61 6d 65 24 | 28 31 30 30 29 00 80 04 |modname$|(100)...|
|000000d0| 20 6d 6f 64 73 65 6c 65 | 63 74 24 28 31 30 30 29 | modsele|ct$(100)|
|000000e0| 00 00 80 0e 20 b5 02 28 | 31 29 00 20 20 80 0f 20 |.... ..(|1).  .. |
|000000f0| 22 42 4c 41 4e 4b 22 00 | 20 20 20 20 80 06 20 72 |"BLANK".|    .. r|
|00000100| 65 61 64 63 6f 6e 66 69 | 67 00 20 20 20 20 6e 61 |eadconfi|g.    na|
|00000110| 6d 65 24 3d 22 42 42 2e | 42 6c 61 6e 6b 4d 6f 64 |me$="BB.|BlankMod|
|00000120| 75 6c 65 22 2b dc 86 28 | 30 29 00 20 20 20 20 80 |ule"+..(|0).    .|
|00000130| 0b 20 73 65 6c 65 63 74 | 65 64 00 20 20 20 20 20 |. select|ed.     |
|00000140| 20 80 bb 00 20 20 20 20 | 20 20 20 20 6d 3d bc 07 | ...    |    m=..|
|00000150| 28 73 65 6c 65 63 74 65 | 64 29 2b 31 00 20 20 20 |(selecte|d)+1.   |
|00000160| 20 20 20 80 bc 20 73 65 | 6c 65 63 74 65 64 3d 31 |   .. se|lected=1|
|00000170| 20 80 8a 20 6d 3c 3e 6c | 61 73 74 00 20 20 20 20 | .. m<>l|ast.    |
|00000180| 20 20 6c 61 73 74 3d 6d | 00 20 20 20 20 20 20 80 |  last=m|.      .|
|00000190| 06 20 77 72 69 74 65 63 | 6f 6e 66 69 67 00 20 20 |. writec|onfig.  |
|000001a0| 20 20 20 20 64 6f 73 24 | 3d 22 72 75 6e 20 22 2b |    dos$|="run "+|
|000001b0| 70 61 74 68 24 2b 22 42 | 42 2e 22 2b 6d 6f 64 73 |path$+"B|B."+mods|
|000001c0| 65 6c 65 63 74 24 28 6d | 29 00 00 20 20 20 20 20 |elect$(m|)..     |
|000001d0| 20 80 16 20 69 3d 31 20 | 80 18 20 38 00 20 20 20 | .. i=1 |.. 8.   |
|000001e0| 20 20 20 20 20 64 6f 73 | 24 2b 22 20 22 2b b5 02 |     dos|$+" "+..|
|000001f0| 28 69 29 00 20 20 20 20 | 20 20 80 17 20 69 00 20 |(i).    |  .. i. |
|00000200| 20 20 20 20 20 64 6f 73 | 24 2b 22 20 22 2b 70 61 |     dos|$+" "+pa|
|00000210| 74 68 24 2b dc 86 28 30 | 29 00 20 20 20 20 20 20 |th$+..(0|).      |
|00000220| fe 1f 20 26 64 6f 73 24 | 2c 30 2c 30 00 20 20 20 |.. &dos$|,0,0.   |
|00000230| 20 20 20 80 bb 00 20 20 | 20 20 20 20 20 20 fe 1b |   ...  |      ..|
|00000240| 20 35 00 20 20 20 20 20 | 20 20 20 fe 8c 00 20 20 | 5.     |   ...  |
|00000250| 20 20 20 20 20 20 2a 70 | 6f 72 74 32 3d fe b7 28 |      *p|ort2=..(|
|00000260| 26 6e 61 6d 65 24 29 00 | 20 20 20 20 20 20 20 20 |&name$).|        |
|00000270| fe 8d 00 20 20 20 20 20 | 20 20 20 63 70 2b 31 00 |...     |   cp+1.|
|00000280| 20 20 20 20 20 20 80 bc | 20 63 70 3d 34 30 20 80 |      ..| cp=40 .|
|00000290| 8a 20 2a 70 6f 72 74 32 | 00 20 20 20 20 20 20 80 |. *port2|.      .|
|000002a0| 0b 20 2a 70 6f 72 74 32 | 00 20 20 20 20 20 20 20 |. *port2|.       |
|000002b0| 20 2a 70 6f 72 74 3d fe | e2 28 29 00 20 20 20 20 | *port=.|.().    |
|000002c0| 20 20 20 20 2a 70 6f 72 | 74 5c 6d 70 5f 4e 6f 64 |    *por|t\mp_Nod|
|000002d0| 65 5c 6c 6e 5f 4e 61 6d | 65 3d 26 6e 61 6d 65 24 |e\ln_Nam|e=&name$|
|000002e0| 00 20 20 20 20 20 20 20 | 20 2a 70 6f 72 74 5c 6d |.       | *port\m|
|000002f0| 70 5f 4e 6f 64 65 5c 6c | 6e 5f 50 72 69 3d 32 00 |p_Node\l|n_Pri=2.|
|00000300| 20 20 20 20 20 20 20 20 | fe b1 20 2a 70 6f 72 74 |        |.. *port|
|00000310| 00 20 20 20 20 20 20 80 | c0 00 20 20 20 20 80 c0 |.      .|..    ..|
|00000320| 00 20 20 20 20 80 0b 20 | 2a 70 6f 72 74 32 00 20 |.    .. |*port2. |
|00000330| 20 20 20 20 20 80 bb 00 | 20 20 20 20 20 20 20 20 |     ...|        |
|00000340| fe b6 20 2a 70 6f 72 74 | 00 20 20 20 20 20 20 20 |.. *port|.       |
|00000350| 20 2a 6d 73 67 3d fe b4 | 28 2a 70 6f 72 74 29 00 | *msg=..|(*port).|
|00000360| 20 20 20 20 20 20 80 bc | 20 2a 6d 73 67 00 20 20 |      ..| *msg.  |
|00000370| 20 20 20 20 fe b2 20 2a | 70 6f 72 74 00 20 20 20 |    .. *|port.   |
|00000380| 20 20 20 fe e3 20 2a 70 | 6f 72 74 00 20 20 20 20 |   .. *p|ort.    |
|00000390| 80 c0 00 20 20 20 20 fe | 1b 20 31 30 00 20 20 20 |...    .|. 10.   |
|000003a0| 20 fe 8c 00 20 20 20 20 | 2a 70 6f 72 74 3d fe b7 | ...    |*port=..|
|000003b0| 28 26 6e 61 6d 65 24 29 | 00 20 20 20 20 fe 8d 00 |(&name$)|.    ...|
|000003c0| 20 20 20 20 80 0b 20 2a | 70 6f 72 74 00 20 20 20 |    .. *|port.   |
|000003d0| 20 20 20 6d 73 67 32 5c | 6d 6e 5f 4c 65 6e 67 74 |   msg2\|mn_Lengt|
|000003e0| 68 3d 80 2f 2e 4d 65 73 | 73 61 67 65 00 20 20 20 |h=./.Mes|sage.   |
|000003f0| 20 20 20 fe b3 20 2a 70 | 6f 72 74 2c 6d 73 67 32 |   .. *p|ort,msg2|
|00000400| 00 20 20 20 20 80 c0 00 | 20 20 20 20 fe 1b 20 32 |.    ...|    .. 2|
|00000410| 35 30 00 20 20 80 0f 20 | 22 49 4e 46 4f 22 00 20 |50.  .. |"INFO". |
|00000420| 20 20 20 74 69 74 6c 65 | 24 3d 22 52 61 6e 64 6f |   title|$="Rando|
|00000430| 6d 22 2b dc 86 28 30 29 | 00 20 20 20 20 72 65 71 |m"+..(0)|.    req|
|00000440| 74 65 78 74 24 3d 22 52 | 61 6e 64 6f 6d 20 2d 20 |text$="R|andom - |
|00000450| 4d 6f 64 75 6c 65 20 66 | 6f 72 20 42 6c 69 74 7a |Module f|or Blitz|
|00000460| 42 6c 61 6e 6b 22 2b dc | 86 28 31 30 29 00 20 20 |Blank"+.|.(10).  |
|00000470| 20 20 72 65 71 74 65 78 | 74 24 2b dc 86 28 31 36 |  reqtex|t$+..(16|
|00000480| 39 29 2b 22 20 31 39 39 | 33 20 62 79 20 54 68 6f |9)+" 199|3 by Tho|
|00000490| 6d 61 73 20 42 1b 72 6b | 65 6c 22 2b dc 86 28 31 |mas B.rk|el"+..(1|
|000004a0| 30 29 2b dc 86 28 31 30 | 29 00 20 20 20 20 72 65 |0)+..(10|).    re|
|000004b0| 71 74 65 78 74 24 2b 22 | 4f 74 68 65 72 20 6d 6f |qtext$+"|Other mo|
|000004c0| 64 75 6c 65 73 20 77 69 | 6c 6c 20 62 65 20 72 61 |dules wi|ll be ra|
|000004d0| 6e 64 6f 6d 6c 79 20 73 | 74 61 72 74 65 64 2e 22 |ndomly s|tarted."|
|000004e0| 2b dc 86 28 31 30 29 2b | dc 86 28 31 30 29 00 20 |+..(10)+|..(10). |
|000004f0| 20 20 20 72 65 71 74 65 | 78 74 24 2b 22 43 68 6f |   reqte|xt$+"Cho|
|00000500| 6f 73 65 20 77 68 69 63 | 68 20 6d 6f 64 75 6c 65 |ose whic|h module|
|00000510| 73 20 74 6f 20 73 74 61 | 72 74 20 69 6e 20 74 68 |s to sta|rt in th|
|00000520| 65 20 63 6f 6e 66 69 67 | 2d 77 69 6e 64 6f 77 2e |e config|-window.|
|00000530| 22 2b dc 86 28 30 29 00 | 20 20 20 20 67 61 64 67 |"+..(0).|    gadg|
|00000540| 65 74 24 3d 22 4f 4b 22 | 2b dc 86 28 30 29 00 20 |et$="OK"|+..(0). |
|00000550| 20 20 20 65 61 73 79 2e | 45 61 73 79 53 74 72 75 |   easy.|EasyStru|
|00000560| 63 74 5c 65 73 5f 53 74 | 72 75 63 74 53 69 7a 65 |ct\es_St|ructSize|
|00000570| 3d 80 2f 2e 45 61 73 79 | 53 74 72 75 63 74 00 20 |=./.Easy|Struct. |
|00000580| 20 20 20 65 61 73 79 5c | 65 73 5f 54 69 74 6c 65 |   easy\|es_Title|
|00000590| 3d 26 74 69 74 6c 65 24 | 00 20 20 20 20 65 61 73 |=&title$|.    eas|
|000005a0| 79 5c 65 73 5f 54 65 78 | 74 46 6f 72 6d 61 74 3d |y\es_Tex|tFormat=|
|000005b0| 26 72 65 71 74 65 78 74 | 24 00 20 20 20 20 65 61 |&reqtext|$.    ea|
|000005c0| 73 79 5c 65 73 5f 47 61 | 64 67 65 74 46 6f 72 6d |sy\es_Ga|dgetForm|
|000005d0| 61 74 3d 26 67 61 64 67 | 65 74 24 00 20 20 20 20 |at=&gadg|et$.    |
|000005e0| ff dd 20 30 2c 65 61 73 | 79 2c 30 2c 30 00 20 20 |.. 0,eas|y,0,0.  |
|000005f0| 80 0f 20 22 43 4f 4e 46 | 49 47 22 00 00 20 20 20 |.. "CONF|IG"..   |
|00000600| 20 2a 6d 79 73 63 72 65 | 65 6e 3d ff d1 28 30 29 | *myscre|en=..(0)|
|00000610| 00 20 20 20 20 77 69 64 | 74 68 3d 2a 6d 79 73 63 |.    wid|th=*mysc|
|00000620| 72 65 65 6e 5c 57 69 64 | 74 68 00 20 20 20 20 68 |reen\Wid|th.    h|
|00000630| 65 69 67 68 74 3d 2a 6d | 79 73 63 72 65 65 6e 5c |eight=*m|yscreen\|
|00000640| 48 65 69 67 68 74 00 20 | 20 20 20 66 6f 6e 74 3d |Height. |   font=|
|00000650| 2a 6d 79 73 63 72 65 65 | 6e 5c 46 6f 6e 74 5c 74 |*myscree|n\Font\t|
|00000660| 61 5f 59 53 69 7a 65 00 | 20 20 20 20 80 06 20 72 |a_YSize.|    .. r|
|00000670| 65 61 64 63 6f 6e 66 69 | 67 00 20 20 20 20 80 06 |eadconfi|g.    ..|
|00000680| 20 66 69 6e 64 6d 6f 64 | 75 6c 65 73 00 20 20 20 | findmod|ules.   |
|00000690| 20 cf 02 20 30 00 20 20 | 20 20 c6 18 20 32 2c 31 | .. 0.  |  .. 2,1|
|000006a0| 00 20 20 20 20 73 70 3d | bc 02 28 6d 6f 64 75 6c |.    sp=|..(modul|
|000006b0| 65 73 2f 31 30 29 00 20 | 20 20 20 80 16 20 78 3d |es/10). |   .. x=|
|000006c0| 30 20 80 18 20 73 70 00 | 20 20 20 20 20 20 80 16 |0 .. sp.|      ..|
|000006d0| 20 79 3d 31 20 80 18 20 | 31 30 00 20 20 20 20 20 | y=1 .. |10.     |
|000006e0| 20 20 20 80 0b 20 78 2a | 31 30 2b 79 3c 3d 6d 6f |   .. x*|10+y<=mo|
|000006f0| 64 75 6c 65 73 00 20 20 | 20 20 20 20 20 20 20 20 |dules.  |        |
|00000700| c6 01 20 30 2c 78 2a 31 | 34 30 2b 32 30 2c 79 2a |.. 0,x*1|40+20,y*|
|00000710| 31 33 2b 31 30 2c 31 2c | 78 2a 31 30 2b 79 2c dc |13+10,1,|x*10+y,.|
|00000720| 94 28 6d 6f 64 6e 61 6d | 65 24 28 78 2a 31 30 2b |.(modnam|e$(x*10+|
|00000730| 79 29 2c 31 35 29 00 20 | 20 20 20 20 20 20 20 20 |y),15). |        |
|00000740| 20 80 16 20 6a 3d 31 20 | 80 18 20 73 65 6c 65 63 | .. j=1 |.. selec|
|00000750| 74 65 64 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |ted.    |        |
|00000760| 80 0b 20 6d 6f 64 6e 61 | 6d 65 24 28 78 2a 31 30 |.. modna|me$(x*10|
|00000770| 2b 79 29 3d 6d 6f 64 73 | 65 6c 65 63 74 24 28 6a |+y)=mods|elect$(j|
|00000780| 29 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00000790| c6 0e 20 30 2c 78 2a 31 | 30 2b 79 2c 80 c5 00 20 |.. 0,x*1|0+y,... |
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 20 80 c0 00 20 20 |        |   ...  |
|000007b0| 20 20 20 20 20 20 20 20 | 80 17 20 6a 00 20 20 20 |        |.. j.   |
|000007c0| 20 20 20 20 20 80 c0 00 | 20 20 20 20 20 20 80 17 |     ...|      ..|
|000007d0| 20 79 00 20 20 20 20 80 | 17 20 78 00 20 20 20 20 | y.    .|. x.    |
|000007e0| 77 77 3d 73 70 2a 31 34 | 30 2b 31 37 30 00 20 20 |ww=sp*14|0+170.  |
|000007f0| 20 20 c5 01 20 30 2c 77 | 69 64 74 68 2f 32 2d 77 |  .. 0,w|idth/2-w|
|00000800| 77 2f 32 2c 68 65 69 67 | 68 74 2f 32 2d 38 30 2c |w/2,heig|ht/2-80,|
|00000810| 77 77 2c 31 36 30 2c 24 | 31 30 30 65 2c 22 52 61 |ww,160,$|100e,"Ra|
|00000820| 6e 64 6f 6d 22 2c 31 2c | 32 2c 30 00 20 20 20 20 |ndom",1,|2,0.    |
|00000830| 80 bb 00 20 20 20 20 20 | 20 65 76 3d c5 02 00 20 |...     | ev=... |
|00000840| 20 20 20 80 bc 20 65 76 | 3d 24 32 30 30 00 20 20 |   .. ev|=$200.  |
|00000850| 20 20 73 65 6c 65 63 74 | 65 64 3d 30 00 20 20 20 |  select|ed=0.   |
|00000860| 20 80 16 20 69 3d 31 20 | 80 18 20 6d 6f 64 75 6c | .. i=1 |.. modul|
|00000870| 65 73 00 20 20 20 20 20 | 20 80 0b 20 c6 1d 28 30 |es.     | .. ..(0|
|00000880| 2c 69 29 00 20 20 20 20 | 20 20 20 20 73 65 6c 65 |,i).    |    sele|
|00000890| 63 74 65 64 2b 31 00 20 | 20 20 20 20 20 20 20 6d |cted+1. |       m|
|000008a0| 6f 64 73 65 6c 65 63 74 | 24 28 73 65 6c 65 63 74 |odselect|$(select|
|000008b0| 65 64 29 3d 6d 6f 64 6e | 61 6d 65 24 28 69 29 00 |ed)=modn|ame$(i).|
|000008c0| 20 20 20 20 20 20 80 c0 | 00 20 20 20 20 80 17 20 |      ..|.    .. |
|000008d0| 69 00 20 20 20 20 80 2b | 20 c5 01 20 30 00 20 20 |i.    .+| .. 0.  |
|000008e0| 20 20 80 06 20 77 72 69 | 74 65 63 6f 6e 66 69 67 |  .. wri|teconfig|
|000008f0| 00 20 20 20 20 ff d2 20 | 30 2c 2a 6d 79 73 63 72 |.    .. |0,*myscr|
|00000900| 65 65 6e 00 80 02 20 80 | 0e 00 00 80 02 00 00 2e |een... .|........|
|00000910| 72 65 61 64 63 6f 6e 66 | 69 67 00 70 61 74 68 24 |readconf|ig.path$|
|00000920| 3d b5 02 28 39 29 00 80 | 16 20 69 3d 31 30 20 80 |=..(9)..|. i=10 .|
|00000930| 18 20 b5 01 00 20 20 70 | 61 74 68 24 3d 70 61 74 |. ...  p|ath$=pat|
|00000940| 68 24 2b 22 20 22 2b b5 | 02 28 69 29 00 80 17 20 |h$+" "+.|.(i)... |
|00000950| 69 00 80 0b 20 be 11 28 | 30 2c 70 61 74 68 24 2b |i... ..(|0,path$+|
|00000960| 22 42 42 2e 4d 6f 64 75 | 6c 65 73 2e 63 6f 6e 66 |"BB.Modu|les.conf|
|00000970| 69 67 22 29 00 20 20 be | 08 20 30 00 20 20 80 0c |ig").  .|. 0.  ..|
|00000980| 20 80 89 20 be 0d 28 30 | 29 00 20 20 20 20 80 0b | .. ..(0|).    ..|
|00000990| 20 dd 01 28 31 30 30 29 | 3d 22 2a 2a 2a 20 52 61 | ..(100)|="*** Ra|
|000009a0| 6e 64 6f 6d 20 2a 2a 2a | 22 00 20 20 20 20 20 20 |ndom ***|".      |
|000009b0| 73 65 6c 65 63 74 65 64 | 3d bc 01 28 dd 01 28 35 |selected|=..(..(5|
|000009c0| 29 29 00 20 20 20 20 20 | 20 6c 61 73 74 3d bc 01 |)).     | last=..|
|000009d0| 28 dd 01 28 35 29 29 00 | 20 20 20 20 20 20 80 16 |(..(5)).|      ..|
|000009e0| 20 69 3d 31 20 80 18 20 | 73 65 6c 65 63 74 65 64 | i=1 .. |selected|
|000009f0| 00 20 20 20 20 20 20 20 | 20 6d 6f 64 73 65 6c 65 |.       | modsele|
|00000a00| 63 74 24 28 69 29 3d dd | 01 28 33 30 29 00 20 20 |ct$(i)=.|.(30).  |
|00000a10| 20 20 20 20 80 17 20 69 | 00 20 20 20 20 80 c0 00 |    .. i|.    ...|
|00000a20| 20 20 80 c1 00 20 20 d2 | 01 00 20 20 be 02 20 30 |  ...  .|..  .. 0|
|00000a30| 00 80 c0 00 80 07 00 00 | 00 2e 77 72 69 74 65 63 |........|..writec|
|00000a40| 6f 6e 66 69 67 00 80 0b | 20 be 11 28 30 2c 70 61 |onfig...| ..(0,pa|
|00000a50| 74 68 24 2b 22 42 42 2e | 4d 6f 64 75 6c 65 73 2e |th$+"BB.|Modules.|
|00000a60| 63 6f 6e 66 69 67 22 29 | 00 20 20 80 0b 20 be 12 |config")|.  .. ..|
|00000a70| 28 31 2c 70 61 74 68 24 | 2b 22 42 42 2e 4d 6f 64 |(1,path$|+"BB.Mod|
|00000a80| 75 6c 65 73 2e 74 65 6d | 70 22 29 00 20 20 20 20 |ules.tem|p").    |
|00000a90| be 08 20 30 00 20 20 20 | 20 be 07 20 31 00 20 20 |.. 0.   | .. 1.  |
|00000aa0| 20 20 80 0c 20 80 89 20 | be 0d 28 30 29 00 20 20 |  .. .. |..(0).  |
|00000ab0| 20 20 20 20 66 24 3d dd | 01 28 31 30 30 29 00 20 |    f$=.|.(100). |
|00000ac0| 20 20 20 20 20 80 0b 20 | 66 24 3d 22 2a 2a 2a 20 |     .. |f$="*** |
|00000ad0| 52 61 6e 64 6f 6d 20 2a | 2a 2a 22 00 20 20 20 20 |Random *|**".    |
|00000ae0| 20 20 20 20 80 bb 00 20 | 20 20 20 20 20 20 20 20 |    ... |        |
|00000af0| 20 66 32 24 3d dd 01 28 | 31 30 30 29 00 20 20 20 | f2$=..(|100).   |
|00000b00| 20 20 20 20 20 80 bc 20 | be 0d 28 30 29 20 80 8a |     .. |..(0) ..|
|00000b10| 20 dc 81 28 66 32 24 2c | 33 29 3d 22 2a 2a 2a 22 | ..(f2$,|3)="***"|
|00000b20| 00 20 20 20 20 20 20 20 | 20 80 0b 20 80 89 20 be |.       | .. .. .|
|00000b30| 0d 28 30 29 20 80 21 20 | dd 82 20 66 32 24 00 20 |.(0) .! |.. f2$. |
|00000b40| 20 20 20 20 20 80 22 00 | 20 20 20 20 20 20 20 20 |     .".|        |
|00000b50| dd 82 20 66 24 00 20 20 | 20 20 20 20 80 c0 00 20 |.. f$.  |    ... |
|00000b60| 20 20 20 80 c1 00 20 20 | 20 20 be 02 20 31 00 20 |   ...  |  .. 1. |
|00000b70| 20 80 c0 00 20 20 be 02 | 20 30 00 80 c0 00 be 03 | ...  ..| 0......|
|00000b80| 20 70 61 74 68 24 2b 22 | 42 42 2e 4d 6f 64 75 6c | path$+"|BB.Modul|
|00000b90| 65 73 2e 63 6f 6e 66 69 | 67 22 00 66 24 3d 70 61 |es.confi|g".f$=pa|
|00000ba0| 74 68 24 2b 22 42 42 2e | 4d 6f 64 75 6c 65 73 2e |th$+"BB.|Modules.|
|00000bb0| 74 65 6d 70 22 2b dc 86 | 28 30 29 00 66 32 24 3d |temp"+..|(0).f2$=|
|00000bc0| 70 61 74 68 24 2b 22 42 | 42 2e 4d 6f 64 75 6c 65 |path$+"B|B.Module|
|00000bd0| 73 2e 63 6f 6e 66 69 67 | 22 2b dc 86 28 30 29 00 |s.config|"+..(0).|
|00000be0| fe 09 20 26 66 24 2c 26 | 66 32 24 00 80 0b 20 be |.. &f$,&|f2$... .|
|00000bf0| 01 28 30 2c 70 61 74 68 | 24 2b 22 42 42 2e 4d 6f |.(0,path|$+"BB.Mo|
|00000c00| 64 75 6c 65 73 2e 63 6f | 6e 66 69 67 22 29 00 20 |dules.co|nfig"). |
|00000c10| 20 be 07 20 30 00 20 20 | be 0b 20 30 2c be 0a 28 | .. 0.  |.. 0,..(|
|00000c20| 30 29 00 20 20 dd 82 20 | 22 2a 2a 2a 20 52 61 6e |0).  .. |"*** Ran|
|00000c30| 64 6f 6d 20 2a 2a 2a 22 | 00 20 20 dd 82 20 73 65 |dom ***"|.  .. se|
|00000c40| 6c 65 63 74 65 64 00 20 | 20 dd 82 20 6c 61 73 74 |lected. | .. last|
|00000c50| 00 20 20 80 16 20 69 3d | 31 20 80 18 20 73 65 6c |.  .. i=|1 .. sel|
|00000c60| 65 63 74 65 64 00 20 20 | 20 20 dd 82 20 6d 6f 64 |ected.  |  .. mod|
|00000c70| 73 65 6c 65 63 74 24 28 | 69 29 00 20 20 80 17 20 |select$(|i).  .. |
|00000c80| 69 00 20 20 be 02 20 30 | 00 80 c0 00 80 07 00 00 |i.  .. 0|........|
|00000c90| 2e 66 69 6e 64 6d 6f 64 | 75 6c 65 73 00 6d 6f 64 |.findmod|ules.mod|
|00000ca0| 75 6c 65 73 3d 30 00 6d | 6f 64 70 61 74 74 65 72 |ules=0.m|odpatter|
|00000cb0| 6e 24 3d 22 42 42 2e 22 | 2b dc 86 28 31 32 36 29 |n$="BB."|+..(126)|
|00000cc0| 2b 22 28 28 23 28 23 3f | 2e 23 3f 29 29 7c 52 61 |+"((#(#?|.#?))|Ra|
|00000cd0| 6e 64 6f 6d 29 22 2b dc | 86 28 30 29 00 2a 61 70 |ndom)"+.|.(0).*ap|
|00000ce0| 3d fe 97 28 80 2f 2e 41 | 6e 63 68 6f 72 50 61 74 |=..(./.A|nchorPat|
|00000cf0| 68 2c 23 4d 45 4d 46 5f | 43 4c 45 41 52 29 00 64 |h,#MEMF_|CLEAR).d|
|00000d00| 24 3d 70 61 74 68 24 2b | dc 86 28 30 29 00 6c 3d |$=path$+|..(0).l=|
|00000d10| fe 0a 28 26 64 24 2c 2d | 32 29 00 6f 6c 64 3d fe |..(&d$,-|2).old=.|
|00000d20| 11 28 6c 29 00 80 0b 20 | fc 83 28 26 6d 6f 64 70 |.(l)... |..(&modp|
|00000d30| 61 74 74 65 72 6e 24 2c | 2a 61 70 29 3d 30 00 20 |attern$,|*ap)=0. |
|00000d40| 20 80 0b 20 2a 61 70 5c | 61 70 5f 49 6e 66 6f 5c | .. *ap\|ap_Info\|
|00000d50| 66 69 62 5f 44 69 72 45 | 6e 74 72 79 54 79 70 65 |fib_DirE|ntryType|
|00000d60| 3c 30 00 20 20 20 20 6d | 6f 64 75 6c 65 73 2b 31 |<0.    m|odules+1|
|00000d70| 00 20 20 20 20 6d 6f 64 | 6e 61 6d 65 24 28 6d 6f |.    mod|name$(mo|
|00000d80| 64 75 6c 65 73 29 3d dc | 91 28 da 02 24 28 2a 61 |dules)=.|.(..$(*a|
|00000d90| 70 5c 61 70 5f 49 6e 66 | 6f 2b 38 29 2c 33 29 00 |p\ap_Inf|o+8),3).|
|00000da0| 20 20 80 c0 00 20 20 80 | 0c 20 fc 84 28 2a 61 70 |  ...  .|. ..(*ap|
|00000db0| 29 3d 30 00 20 20 20 20 | 80 0b 20 2a 61 70 5c 61 |)=0.    |.. *ap\a|
|00000dc0| 70 5f 49 6e 66 6f 5c 66 | 69 62 5f 44 69 72 45 6e |p_Info\f|ib_DirEn|
|00000dd0| 74 72 79 54 79 70 65 3c | 30 00 20 20 20 20 20 20 |tryType<|0.      |
|00000de0| 6d 6f 64 75 6c 65 73 2b | 31 00 20 20 20 20 20 20 |modules+|1.      |
|00000df0| 6d 6f 64 6e 61 6d 65 24 | 28 6d 6f 64 75 6c 65 73 |modname$|(modules|
|00000e00| 29 3d dc 91 28 da 02 24 | 28 2a 61 70 5c 61 70 5f |)=..(..$|(*ap\ap_|
|00000e10| 49 6e 66 6f 2b 38 29 2c | 33 29 00 20 20 20 20 80 |Info+8),|3).    .|
|00000e20| c0 00 20 20 80 c1 00 80 | c0 00 fc 85 20 2a 61 70 |..  ....|.... *ap|
|00000e30| 00 fe 99 20 2a 61 70 2c | 80 2f 2e 41 6e 63 68 6f |... *ap,|./.Ancho|
|00000e40| 72 50 61 74 68 00 fe 11 | 20 6f 6c 64 00 fe 0b 20 |rPath...| old... |
|00000e50| 6c 00 6d 6f 64 6e 61 6d | 65 24 28 30 29 3d dc 86 |l.modnam|e$(0)=..|
|00000e60| 28 30 29 00 80 16 20 69 | 3d 6d 6f 64 75 6c 65 73 |(0)... i|=modules|
|00000e70| 2b 31 20 80 18 20 31 30 | 30 00 20 20 6d 6f 64 6e |+1 .. 10|0.  modn|
|00000e80| 61 6d 65 24 28 69 29 3d | dc 86 28 32 35 35 29 00 |ame$(i)=|..(255).|
|00000e90| 80 17 20 69 00 b7 01 20 | 6d 6f 64 6e 61 6d 65 24 |.. i... |modname$|
|00000ea0| 28 29 00 6d 6f 64 6e 61 | 6d 65 24 28 30 29 3d 22 |().modna|me$(0)="|
|00000eb0| 22 00 00 80 07 00       |                         |".....  |        |
+--------+-------------------------+-------------------------+--------+--------+