;"M@(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*].UQUOTE;Loading IO 47pSETQxDEFPROPTW*U*U+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071IO47VERSIONPUSHU*UjUFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS       xFEATURETOPS-20PUTPROPU*UjUSTUDNTPSKMP.TEACHPPNTEACHxFLATCSTRING-LENGTHSUBRj@"@GETCHARNCHAR-N ..,< $pu*U/,xXLISTIFYFORMATLEXPR-FUNCALLDIAGNOSELSUBR`-0,8,8 , ,8,8 ,8 %,8",</,xxU+U*WARGS x~&Bug in TEACH: ~Apw+]jPx xPROGRAM-RECORDpx xERRORBUG-00 ,8,8 ,,8,8 ,,80,8,8,8",<,8",<a ,,8 ,,8,8,8 ,,80,8 ,8,8g|",<,8",< ",8",</,x%{]j`  xpx xQUIET-BUG-0@ ,8,8 ,),8,8* ,',8,8*,8,8",<,8",</0j,xp  xOUTPUT-0@ ,8,8 ,0,8,81,82,8",Ku</,xx+ x~2&w:T p  x  xY-OR-N-PQUERY-0,8 0Z(,8 g1n+: ./g,<AB@ "p/+: ",8 ,>,8@b,8E,8F",< ,D,8 ,C,8,8F0,8,8g},8g}",<,8",<!KW/,x 2!" xW;T~|"p##x# xCLEAR-SCREEN ,J,8,8J,8KA :w",<,x#8G~&$p$$xu;] 0$ x~%%p%%x% xFRESH-LINE-0,8 ` ,< 4nO Z(+P "@",8 ,S,8,8`,8a",<7@`+^ `-,,8 `4N] ,Z,8,8a ,8b",< `/. Np "p B`+V ( "/+_ "// >U,x$%`K&" xSAVED-OBARRAYOBARRAYU( GETREADSYSREAD-0,8,8 $&!D@b "''5Bg '-,' ,k,8``0,8l,8g",<,/,x%zU*U(b( xEXPRFEXPRMACROFSUBRGETLDEFINED-FUNCTION?)o`))**z W;|S$+8m;