https://pickwiki.org/index.php?action=history&feed=atom&title=MAC_AEMAC AE - Revision history2026-04-28T23:42:33ZRevision history for this page on the wikiMediaWiki 1.43.0https://pickwiki.org/index.php?title=MAC_AE&diff=2043&oldid=prevConversion script: link fix2015-02-26T23:48:55Z<p>link fix</p>
<p><b>New page</b></p><div>This is a utility to convert Camel Case to PICK.VARIABLES.<br />
<br />
<PRE><br />
subroutine mac_ae(mat junk)<br />
*<br />
* convert [[CamelCase]] to PICK.VARIABLES<br />
*<br />
equate this to junk(1)<br />
qt = '"\':"'"<br />
atts = dcount(this,@am)<br />
<br />
for here = 1 to atts<br />
line = this<here><br />
mine = upcase(field(trim(line),' ',1))<br />
flag = @false<br />
if mine ne 'REMOVE' then<br />
if mine[1,3] eq 'REM' then flag = @true<br />
if mine[1,1] eq '*' then flag = @true<br />
if mine[1,1] eq '!' then flag = @true<br />
end<br />
*<br />
* if it's a comment, we don't do it<br />
if flag then continue<br />
*<br />
xxno = len(line)<br />
mine = ''<br />
flag = ''<br />
obit = ''<br />
for xx = 1 to xxno<br />
bit = line[xx,1]<br />
bat = line[xx+1,1]<br />
begin case<br />
case bit eq flag ; flag = ''<br />
case flag ne ''<br />
case index(qt,bit,1) ; flag = bit<br />
case bit eq ';'<br />
test = trim(line[xx+1,999999])[1,1]<br />
if test eq '*' or test eq '!' then flag = @am<br />
case alpha(bit)<br />
if bit eq upcase(bit) and alpha(obit)<br />
then bit = '.':bit<br />
bit = upcase(bit)<br />
case 1 ; null<br />
end case<br />
mine = mine:bit<br />
obit = bit<br />
next xx<br />
this<here> = mine<br />
next here<br />
return<br />
</PRE></div>Conversion script