(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) (FILECREATED "27-Jul-2021 21:01:45" ("compiled on " {DSK}larry>new>medley>sources>ABASIC.;1) "27-Jul-2021 20:54:58" bcompl'd in "FULL 27-Jul-2021 ..." dated "27-Jul-2021 20:43:39") (FILECREATED " 9-Jun-2021 19:40:59" {DSK}kaplan>Local>medley3.5>git-medley>sources>ABASIC.;2 24528 changes to%: (FNS NILL ZERO) previous date%: "16-May-90 11:43:16" {DSK}kaplan>Local>medley3.5>git-medley>sources>ABASIC.;1) EVALQT :D8 (P 0 EVALQTXX) Agi i X i H Hi i (60 PRINT 54 APPLY 49 READ 41 EVAL 34 READP 20 READ 13 PRIN1) (7 _) () \SystemERROR :D8 NIL #g djkhl (32 \LISPERROR 19 RAID 9 GETTOPVAL) (4 \SystemErrorVAL) () NILL :D8 NIL hNIL NIL () EVQ :D8 (L (0 X)) @NIL NIL () TRUE :D8 NIL iNIL NIL () ZERO :D8 NIL jNIL NIL () CL:IDENTITY :D8 (L (0 X)) @NIL NIL () DUMMYDEF :D8 (P 1 X I 0 LST) +@HhY II i HX(35 PUTD 29 GETD 17 \DEFINEDP) NIL () NOTIMP :D8 (P 0 N) eo (13 HELP) NIL ( 8 "UNIMPLEMENTED FUNCTION") EQUAL :D8 (I 1 Y I 0 X) @A@d9A@A@bdAbr@AiAd3@Ad3@h@3A3F@dlEAdl@A dklA`h`Ah@A dk5AdldklA@Aj@nlFAdldk@A@jA`n\l@A@AAdl @`hf`@h[@A dkl@A jA3@ @A @A@dl@Al @A (420 EQDEFP 384 STREQUAL 376 STRINGP 360 \BIGNUM.COMPARE 338 FEQP 171 FEQP 121 FEQP) (325 \IMIN.FLOAT 315 \IMAX.FLOAT 154 \IMIN.FLOAT 140 \IMAX.FLOAT) () NEQ :D8 (L (1 Y 0 X)) @AhNIL NIL () NULL :D8 (L (0 X)) @hNIL NIL () NOT :D8 (L (0 X)) @hNIL NIL () LAPRD :D8 (P 1 Y P 0 X I 0 FN) @0gYXd3@Hg Xo@ @kJ(53 ERROR 38 GETP 20 READ 7 PEEKC) (33 CODEREADER 12 % ) ( 47 "Bad compiled function") DEFC :D8 (P 0 PROP I 1 DF I 0 NM F 1 DFNFLG) PgQQi8@ '@i Q@o id @ @Ai @HA A(76 PUTPROP 67 PUTD 58 SAVEDEF 51 PRINT 44 CONCAT 29 VIRGINFN 20 \DEFINEDP) (4 CODE) ( 39 " redefined") CGETD :D8 (I 0 X) @d3@@ @(11 GETD) NIL () NCONC :D8 (P 3 X P 2 J P 1 L P 0 N) .eHjhHaHJkZdjIa[K IK(37 LAST) NIL () \NCONC2 :D8 (I 1 Y I 0 X) @A A@(10 LAST) NIL () SORT :D8 (L (1 COMPAREFN 0 DATA)) .@@(o@ Agb@ h@hA (43 SORT1 33 LAST 16 ERROR) (24 ALPHORDER) ( 10 "DATA NOT LIST:") MERGE :D8 (P 1 BTAIL P 0 ATAIL I 2 COMPAREFN I 1 B I 0 A)  A@@AAlA@)l@h @AAHBHIAd@@Bdi@A @A @AlBA@bbBHI iHI HIlBHIHHX(140 ALPHORDER 123 ALPHORDER 89 ALPHORDER 77 ALPHORDER 32 ERRORX) NIL () SORT1 :D8 (L (2 COMPAREFN 1 END 0 DATA)) @dA8dA2dHXAHXAI@IB IXAB JHE@JHlBJZJIJHHJHYZIHJHHJJJHHIXABiJdHd (149 ALPHORDER 52 SORT1 41 SORT1) NIL () FASSOC :D8 (I 1 ALST I 0 KEY) Ah@dAAANIL NIL () FLAST :D8 (L (0 X)) @bH@NIL NIL () FLENGTH :D8 (P 1 Y P 0 N I 0 X) j@bHkظ@YHNIL NIL () FMEMB :D8 (L (1 Y 0 X)) AhAd@bNIL NIL () FNTH :D8 (L (1 N 0 X)) kAh@@hAdk@kb@bNIL NIL () LIST :D8 (L (0 N)) eHIjJIaJIkYNIL NIL () LIST* :D8 (P 2 VAL P 1 I P 0 NARGS) -eHdjhdkkakHaIdjJaJImYNIL NIL () COUNT :D8 (P 0 N I 0 X) j@H@ kHظ@b(15 COUNT) NIL () CHANGENAME1A0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 Y F 3 X F 4 DEF F 5 SI::NLSETQ-VALUE) i@RST hc g(12 ESUBST) (21 :NORMAL) () CHANGENAME1 :D8 (P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 2 Y I 1 X I 0 DEF F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) W@ (`TioUI gH@ !@d3@@ b@ABAd@ (84 CHANGENAME1A 79 CHANGECCODE 65 GETD 51 CCODEP 34 CHANGENAME1A0001 5 EXPRP) (40 :NORMAL 15 SI::NLSETQ-PROCEED-CASE) ( 23 (CL:ERROR . SI::NLSETQHANDLER)) CHANGENAME1A :D8 (I 3 MAP I 2 NEW I 1 OLD I 0 DEF) GCd+!H$hBC@ g@BACh iYZ HXIiJ(43 UNDOSAVE 23 CHANGECCODE) (28 CHANGENAME1A) () CDDR :D8 (L (0 X)) @NIL NIL () CDAR :D8 (L (0 X)) @NIL NIL () CADR :D8 (L (0 X)) @NIL NIL () CAAR :D8 (L (0 X)) @NIL NIL () CDDDR :D8 (L (0 X)) @NIL NIL () CDDAR :D8 (L (0 X)) @NIL NIL () CDADR :D8 (L (0 X)) @NIL NIL () CDAAR :D8 (L (0 X)) @NIL NIL () CADDR :D8 (L (0 X)) @NIL NIL () CADAR :D8 (L (0 X)) @NIL NIL () CAADR :D8 (L (0 X)) @NIL NIL () CAAAR :D8 (L (0 X)) @NIL NIL () CDDDDR :D8 (L (0 X)) @NIL NIL () CAAAAR :D8 (L (0 X)) @NIL NIL () CDDDAR :D8 (L (0 X)) @NIL NIL () CDDADR :D8 (L (0 X)) @NIL NIL () CDDAAR :D8 (L (0 X)) @NIL NIL () CDAAAR :D8 (L (0 X)) @NIL NIL () CADADR :D8 (L (0 X)) @NIL NIL () CDADDR :D8 (L (0 X)) @NIL NIL () CDADAR :D8 (L (0 X)) @NIL NIL () CAADDR :D8 (L (0 X)) @NIL NIL () CDAADR :D8 (L (0 X)) @NIL NIL () CAADAR :D8 (L (0 X)) @NIL NIL () CADDDR :D8 (L (0 X)) @NIL NIL () CADAAR :D8 (L (0 X)) @NIL NIL () CADDAR :D8 (L (0 X)) @NIL NIL () CAAADR :D8 (L (0 X)) @NIL NIL () SYSTEMTYPE :D8 NIL gNIL (4 D) () (PRETTYCOMPRINT ABASICCOMS) (RPAQQ ABASICCOMS ((FNS EVALQT \SystemERROR) (FNS NILL EVQ TRUE ZERO CL:IDENTITY DUMMYDEF NOTIMP) (P ( DUMMYDEF (WINDOWWORLDP NILL))) (FNS EQUAL NEQ NULL NOT) (COMS (* ; "Belong on ACODE except they would clobber 10-versions in ABC") (FNS LAPRD DEFC CGETD)) (FNS NCONC \NCONC2 SORT MERGE SORT1 FASSOC FLAST FLENGTH FMEMB FNTH LIST LIST* COUNT) (FNS CHANGENAME1 CHANGENAME1A) (FNS CDDR CDAR CADR CAAR CDDDR CDDAR CDADR CDAAR CADDR CADAR CAADR CAAAR CDDDDR CAAAAR CDDDAR CDDADR CDDAAR CDAAAR CADADR CDADDR CDADAR CAADDR CDAADR CAADAR CADDDR CADAAR CADDAR CAAADR) ( FNS SYSTEMTYPE) (COMS (* ; "Because can't have bignums in code at makeinit time") (VARS (\IMAX.FLOAT ( FIX MAX.FLOAT)) (\IMIN.FLOAT (FIX MIN.FLOAT))) (GLOBALVARS \IMAX.FLOAT \IMIN.FLOAT)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DUMMYDEF) (NLAML) (LAMA LIST* LIST NCONC NOTIMP ZERO NILL))))) (DUMMYDEF (WINDOWWORLDP NILL)) (RPAQ \IMAX.FLOAT (FIX MAX.FLOAT)) (RPAQ \IMIN.FLOAT (FIX MIN.FLOAT)) (PRETTYCOMPRINT ABASICCOMS) (RPAQQ ABASICCOMS ((FNS EVALQT \SystemERROR) (FNS NILL EVQ TRUE ZERO CL:IDENTITY DUMMYDEF NOTIMP) (P ( DUMMYDEF (WINDOWWORLDP NILL))) (FNS EQUAL NEQ NULL NOT) (COMS (* ; "Belong on ACODE except they would clobber 10-versions in ABC") (FNS LAPRD DEFC CGETD)) (FNS NCONC \NCONC2 SORT MERGE SORT1 FASSOC FLAST FLENGTH FMEMB FNTH LIST LIST* COUNT) (FNS CHANGENAME1 CHANGENAME1A) (FNS CDDR CDAR CADR CAAR CDDDR CDDAR CDADR CDAAR CADDR CADAR CAADR CAAAR CDDDDR CAAAAR CDDDAR CDDADR CDDAAR CDAAAR CADADR CDADDR CDADAR CAADDR CDAADR CAADAR CADDDR CADAAR CADDAR CAAADR) ( FNS SYSTEMTYPE) (COMS (* ; "Because can't have bignums in code at makeinit time") (VARS (\IMAX.FLOAT ( FIX MAX.FLOAT)) (\IMIN.FLOAT (FIX MIN.FLOAT))) (GLOBALVARS \IMAX.FLOAT \IMIN.FLOAT)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DUMMYDEF) (NLAML) (LAMA LIST* LIST NCONC NOTIMP))))) (PUTPROPS ABASIC COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 2021)) NIL