;"M@(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading DATABASE 44pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071DATABASE44VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xFEATURETOPS-20U*U.UPUTPROPSTUDNTPSKMP.TEACHPPNTEACHxBASEW*U.WIBASExANDCOMPLRSPECIAL*USER-STATUS-INFORMATION*xBOUNDPxU*U*U*DATABASE-OLD-FILENAME*PROBEF*NOVICE-FLAG*INASCIIDSKFILEPSFASFAPU*U*CLOSE+INTERNAL-WITHOUT-INTERRUPTSOPEN*APPLYSYSREADLOAD-PROPSSUBR   04B@@z" R2-, -,-,0a,8,8-.+ g| L 15B zFU4B g|4B g|D,x * -, Zgy,8gy Dgy[`!A@` "/, Bgy ,,8  ,8",<-./+ * A:U J-, B,xpOUT*DATABASE-TEMP-FILENAME*;;; -U*U*U*- Mode:LISP; -*-~   ~%;;; TEACH.~A savU*U*Ued user database for ~A~   ~%;;; CreaU+]jUted ~A by ~A~2%!!""##$$%%&&''(()))**++ p,,x, xGETUSERIDU*U*UTIME:PRINT-CURRENT-TIMEUNAMEFORMATPRINTITS*DATABASE-NEW-FILENAME*RENAMEFTRUENAMESAVE-PROPS(@`0 zc~R2-,  -,-,,80B ,8-.+# g|5B"zFU@b4B# g|4B# g|,x * !-, Zgy,8gy Dgy[` "@/, Bgy ,4,8,8,8@" ( $ ",5B. "-,8-zkYW4R,8!A& ".,8.z|X631,8",</ ,7S ,8,8,8gx",</0z~Z 4B: 0D gy1+> gy1,8 gx 0A@`%,X1-./,x, U@PROPLSUBR-0,8 Z(,8@ g1n+EZ(+F ",87B700Z,86@`+K g-,+P[`2Bg+NZ`[+PZ`Z B` :U+H/+(3@ARGSu33244 xSET-PROP &,8 2,X+5j@#PQREMPROPREM-PROP $ 52 "jT,x`TSEENMEMQEXPLANATION-HAS-BEEN-SEEN,8 ,Z,8,8b@1",<2,8 $ g75B` ` g-, $ "65+a "/.@,x6xWSEEN-EXPLANATION?,8 ,e,8,8j", <2,8 $ g75Bh7 " /0u ,x6bLESSONS-SEENLESSON-HAS-BEEN-SEEN,8 ,m,8 ,8u",<2,8 $ g75Bs `1 g-, $ "85+t "/0t,x8jSEEN-LESSON?,8 ,x,8,8}@1",<2,8 $ g75B{7 " p/,x8u;