--HDR1.0-- 134 SS;65 30 30 75 27 20
			'<---- Your Name		1
	'A B I L I T Y  +Plus+				2
	'ADVANCED MACROS DEMO FILE   Version 1.0   (Refer to User's Manual Appendix B)				3
	'════════════════════════════════════════════════════════════════════════════				4
					5
		'			6
	'ALT-A				7
					8
					'qwer
	'CANTDO (Subroutine accessed from ALT-A)				9

	'[!g_a]

	'ALT-B

	'[!b]

	'Menu called from ALT-E
	'Beep1		'Beep3
	'Ring the bell once	'Ring the bell twice	'Ring the bell three times
	'[!b]	'[!b][!b]	'[!b][!b][!b]


	'ALT-E





	'ALT-F


	'ALT-G

	'[!ePress ESC when you're ready to go back to the spreadsheet]
	'[!f][done][flip][!q]

	'ALT-H


	'ALT-I  Get a Real Number.  Strip off the $ and commas.


	'ALT-J  Get a Date - Make century 1900


	'ALT-K  Get an Integer


	'ALT-L  Get counted label; allow specified length only	'8450 Pine Hills Dr.


	'ALT-M  Get counted string.  Not necessarily a label


	'ALT-N  Get real number in range.  No stripping as in ALT-I
		12

	'ALT-O  Use a new default file

	'[!f][flip]s[pgup][pgup]#emacs#[done][flip][!t]
	'[!demacs][!c\extmenu]
	'[!d@][!t][!q]

	'ALT-P  Security password check	'SCOTT WALCHEK
			'Apparent index +1
	'[!stub65]
	'[!sfb66#b65# ][!smb67#b65#+b66#8]
	'[!p'WALCHEK#b67]{[!b][!b][!b]}
	'[!g_p]

	'ALT-Q  Repeat String
	'[!oeERRORTRAP]
	'[!f][edit]nHOLDCELL#[@REPSTR?lPlease enter the string to repeat:#20]
	'[@REPNUM?iPlease enter the number of repetitions:#1#254]
	'[!vCreating repetitive string][!f][goto]gREPSTR#
	'[edit]e/r[ins]/[/!i(REPNUM>0)]{[ins][end]/[/!uREPNUM/#+REPNUM-1]/[/!gREPSTR]/}/#/#
	'[goto]gHOLDCELL#[edit]e[end]

	'#[edit]n[del]#[!t][!q]


	'ALT-Y
		'Yes	'No
		'Proceed with present action	'Do not proceed with present action; quit macro
		'[!r]	'[!q]



	'MANYPRINT  (Run from the Ctrl - F9 Keyboard macro)


	'[!eCompleted printing copies...press ESC to continue][!r]

	'ERRORTRAP

	'[!b][!eThere is an error#Press any key to continue]
	'[!c_y]
	'[!r]


	'WRITETYPE
		'Memo	'Report	'General	'Library	'Quit
		'Create or Edit a Memo	'Create or Edit a Report	'Create or Edit a General document	'Go to Library Screen	'Exit Ability Plus
		'[ctrl][home]w#[?pPlease enter the name of the file you wish to create:]#			'[!t][!q]	'[done]y
		'[!g\MEMOMAKE]	'[!g\REPORTMAKE]	'[!q]

	'MEMOMAKE

		'Create a new memo	'Edit an existing memo
		'##MEMO[home][shade][end]!tb!ac

		'[@\peoplenum?iTo how many people are you routing this memo?]


		'[home]Re:[?pPlease enter the reason for this memo:#50]






	'REPORTMAKE

		'Create a new report	'Edit an existing report
		'##REPORT[home][shade][end]!tb!ac

		'[@\peoplenum?iTo how many people are you routing this report?]


		'[home]Re:[?pPlease enter the reason for this report:#50]
RaC2	border=1
RaC24	limitright=30000
R7C0	_a='[@A1??Do you own Ability Plus?][!oicantdo][!oi]
R10C0	Cantdo='[!eSorry, you can't press ESC here.#Press ESC to continue.]
R14C0	_b='[!y][!c_a]
R18C1	field='Beep2
R21C0	='[!g_e]
R21C1	=!
R21C2	=!
R24C0	_e='[!ma19]
R30C0	_f='[!vHere is a message preceded by "Please wait:"][!w30][!b]
R33C0	_g='[!f][flip]w/pu/entmacropg/ent[!t]
R38C0	_H='[@b1?lYour name, please:#5]
R41C0	_i='[@b41?$Please enter a real number between 1000 and 2000:#1000#2000]
R44C0	_j='[@b44?dEnter today's date:#1900]
R47C0	_k='[@b48?iPlease enter an integer between 1 and 9:#1#9]
R50C0	_l='[@b50?lPlease enter your address - 20 characters only:#20]
R53C0	_m='[@b53?pPlease enter up to 25 characters:#25]
R56C0	_n='[@b57?xEnter a real number between 10 and 20:#10#20]
R59C0	_o='[?pPlease be sure that nothing is in the FLIP state...Return to continue][!c_y]
R65C0	_p='[@b65?lPlease enter your password:#25]
R65C1	temp=6
R66C1	pass=' WALCHEK
R71C1	repnum=0
R78C0	repstr='[!i(REPNUM>0)]{we[!uREPNUM#+REPNUM-1][!gREPSTR]}##
R83C0	_y='[!mb84]
R89C1	howmany=
R90C0	manyprint='[@macs\howmany?iHow many copies to print? ]
R91C0	decrement='[!i(macs\howmany>0)]{[!umacs\howmany#+macs\howmany-1]#!pg[!gmacs\decrement]}
R95C0	errortrap='[esc]
R102C0	Writetype='[!m\b103]
R104C2	='[ctrl][home]w#[?pPlease enter the name of the file you wish to create:]#
R104C3	=!
R108C0	MEMOMAKE='[!m\b109]
R108C1	='New
R123C1	=!
R108C2	='Existing
R123C2	=!
R108C3	='Quit
R123C3	=!
R109C0	peoplenum=0
R109C3	='Quit and return to Library Screen
R124C3	=!
R110C2	='[!q]
R125C2	=!
R110C3	='!q
R125C3	=!
R111C1	='##To:
R126C1	=!
R113C1	getnames='[!i(macs\peoplenum>0)]{[?pPlease enter routing name:#55]#   [!umacs\peoplenum#+macs\peoplenum-1][!gmacs\getnames]}
R114C1	='[home]#Fm:[?pPlease enter YOUR name:]##
R129C1	=!
R116C1	='##Date:!if+today()#[edit]fdl[esc][esc][esc]###
R131C1	=!
R117C1	='=================================================================
R132C1	=!
R118C1	='[!t][!q]
R133C1	=!
R123C0	reportmake='[!m\b124]
R128C1	getrepname='[!i(macs\peoplenum>0)]{[?pPlease enter routing name:#55]#   [!umacs\peoplenum#+macs\peoplenum-1][!gmacs\getrepname]}