ae|aed512|AED512|aed|AED|aed 512:\
	:co#64:li#40:cl=\EL80^L\EL<0\001:bs:up=^K:\
	:nd=\Ei0800\001:\
	:ve=\E\072006900020000\001:\
	:vb=\E400??00000110\200\200\200\200\200\E4002020801000\001:\
	:so=\E\07200>7000140[80C00\001:se=\E[00C80\001:\
	:us=\E\07200>7000140\001:ue=\E\07200>7000100\001:\
	:uc=\Ei???>l0800i0102\001:\
	:ti=\E\07200>7000140{<04<0??00001010L<0\07200690002??00\001:\
	:te=\E\07200>7000100{804<0??00001000L80\0720069000200??\001:\
	:sf=\E;1100\0720069000200??;1300\047\200\n\E\07200690002??00;1200\001\n:\
	:cm=\E;1300%.%.\001:

#aed 512 color scope with version 91 proms operating in modified-hex mode
#nd: non-destructive space: move (+8,0)
#ve: end visual mode: install 00 FF into bytes at hex 69 = 
#    symbols nso (non-std origins-- off) alfscr (alpha scroll--on)
#vb: visible bell: color 0 blink to red, nulls, restore to non-blinking
#so: stand-out mode: install into hex E7 (>7) 40 -- entry rdsimg
#    where options switch stored (sets destructive space), then
#    background color 80, foreground 00
#se: end stand-out: background 00: foreground 80
#us: start underscore: destructive space mode (bs non-destructive)
#ue: end underscore: non-destructive space
#uc: underscore char: move (-1,-2), line (+8,0), move (+1,+2)
#ti: begin cursor motion pgm: destructive space, cursor color C0 (<0),
#    blink C0 to red, write mask C0, non-std origins off, alpha scroll normal
#te: end cursor motion pgm: non-destructive space, cursor color 80,
#    no blinking, write mask 80, non-std origins off, alpha scroll on
#sf: scroll forwards: ;1100 remembers current cursor position,
#    non-std origins off, alpha scr on, cursor motion to line 39,
#    exit interpreter, newline, non-std origins on, alph scr off, restore cursor
#    newline

ae|aed512r|AED512R|aed 512 for rogue:\
	:co#64:li#40:cl=^L:\
	:bs:nd=\Ei0800\001:\
	:ti=\E\07200>7000140{<04<0??00001010L<0\07200690002??00\001:\
	:te=\E\07200>7000100{804<0??00001000L80\0720069000200??\001\n:\
	:up=^K:cm=\E;1300%.%.\001:
