; S`QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading DATABASE 44   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071DATABASE44VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xFEATURETOPS-20U*U.UPUTPROPSTUDNTPSKMP.TEACHPPNTEACH!#%'%xBASEW*U.WIBASE))xANDCOMPLRSPECIAL*USER-STATUS-INFORMATION*+-xBOUNDP/xU*U*U*DATABASE-OLD-FILENAME*PROBEF*NOVICE-FLAG*INASCIIDSKFILEPSFASFAP#CLOSE+INTERNAL-WITHOUT-INTERRUPTSOPEN*APPLYSYSREADLOAD-PROPSSUBR `1  0-@@35z" R2-,1 -,-,a1,8-.9` g|S15B 7zFUg4B g|4B g|`9D,x * -, As3 Dgy[`!A@`;, Bgy ,,8  Ko=-./+ * A:U J-,1 B,x?OUT*DATABASE-TEMP-FILENAME*;;; -U*U*U*- Mode:LISP; -*-~   ~%;;; TEACH.~A savU*U*Ued user database for ~A~  ~%;;; CreaU+]jUted ~A by ~A~2% !C"E#G$I%K&M'O(Q))S*U+Wp,,x, xGETUSERIDU*U*UTIME:PRINT-CURRENT-TIMEUNAMEFORMATPRINTITS*DATABASE-NEW-FILENAME*RENAMEFTRUENAMESAVE-PROPS(@`0 5zc~R2-,1A-,-,1,8a-.9`G g|5B"7zFU@bg4B# g|4B# g|`9,x * bC-, As3 Dgy[`;``, Bgy ,4,8,8@" ( 'aY5B. "-[zkYW4Rg0S1 ".]z|X631g",</ ,7S ,8,8,8gx",o_0z~Z guaD gy1`} gy`c`9a0``K1-./,x,?U@PROPLSUBR-0 @@;`Z(+F "7B7aZ6@`+K-,+P[`2Bg+NZ`[+PZ`Z B`:U`/+ (3ARGSu3ge4ixSET-PROP &,8 2+5j@# ?QREMPROPREM-PROP $ ak2 ",x?SEENMEMQEXPLANATION-HAS-BEEN-SEEN ,8,8b@1Koe $7 `-, $m5+a "/.@,xm?SEEN-EXPLANATION? ,8,8jK oe $77 " /0u ,xm?LESSONS-SEENLESSON-HAS-BEEN-SEEN ,8 ,8uKoe $7 `1 -, $q5+t "/,xq?SEEN-LESSON? ,8,8}@1Koe $77 " p/,xq?;