50c50 < %CONSTSTRING (17) GT42 EXEC = 'ECMI05.EXEC26' --- > %CONSTSTRING (17) GT42 EXEC = "ECMI05.EXEC26" 57c57 < %OWNRECORDARRAY INDEX42( 0:1022) (PIC DIR) --- > %OWNRECORD(PIC DIR)%ARRAY INDEX42( 0:1022) 68c68 < %LONGINTEGER MASK,%ROUTINENAME RR,%INTEGERNAME FLAG) --- > {%LONG}%INTEGER MASK,%ROUTINENAME RR,%INTEGERNAME FLAG) 73a74 > %RECORDFORMAT RF(%INTEGER CONAD,TYPE,START,END) 75c76 < %RECORDNAME R, %INTEGERNAME FLAG) --- > %RECORD(RF)%NAME R, %INTEGERNAME FLAG) 96,97c97 < %RECORDNAME R,%INTEGERNAME FLAG) < %RECORDFORMAT RF(%INTEGER CONAD,TYPE,START,END) --- > %RECORD(RF)%NAME R,%INTEGERNAME FLAG) 241,244c241,242 < %OWNSTRING(1) STERMIN=" < "; ! NL ASSSTRING < %OWNINTEGER TERMIN=' < '; ! NL AS SYMBOL --- > %OWNSTRING(1) STERMIN=TOSTRING(10); ! NL ASSSTRING > %OWNINTEGER TERMIN=10; ! NL AS SYMBOL 347,348c345,346 < %CONSTSTRING(7) MASNUM='ECMI05.' < %OWNSTRING(8)%ARRAY SYSFILES(1:2)='LOGALERT','EXEC26' --- > %CONSTSTRING(7) MASNUM="ECMI05." > %OWNSTRING(8)%ARRAY SYSFILES(1:2)="LOGALERT","EXEC26" 370,371c368,369 < %OWNSTRING(10)%ARRAY TDEVNAMES(1:8)='PLOTTERA','PLOTTERB','DISPLAY',%C < 'TURTLE','TAPE','MUSIC','MECCANO','GT42' --- > %OWNSTRING(10)%ARRAY TDEVNAMES(1:8)="PLOTTERA","PLOTTERB","DISPLAY",%C > "TURTLE","TAPE","MUSIC","MECCANO","GT42" 402c400 < %INTEGERFN HASH(%STRING(64) WORD) --- > %INTEGERFN HASHFN(%STRING(64) WORD) 430c428 < %IF FULLMARK=1 %THEN BADERROR('WORD AREA OVERFLOW',EMPTY) %C --- > %IF FULLMARK=1 %THEN BADERROR("WORD AREA OVERFLOW",EMPTY) %C 451c449 < %IF WORD='' %THENRESULT=HASH(WORD); --- > %IF WORD="" %THENRESULT=HASHFN(WORD); 459c457 < %FINISHELSERESULT=HASH(WORD) --- > %FINISHELSERESULT=HASHFN(WORD) 462,463c460,461 < PRSTRING('NUMBER OUTSIDE RANGE.'); < SPACE;PRSTRING('MAX. SUBSTITUTED');NOOLINE(1) --- > PRSTRING("NUMBER OUTSIDE RANGE."); > SPACE;PRSTRING("MAX. SUBSTITUTED");NOOLINE(1) 512c510 < DEFINE('4,LOGOFILE') --- > DEFINE("4,LOGOFILE") 527c525 < %RECORD R(F) --- > %RECORD(F) R 529c527 < FINFO('NOFILE',0,R,FLAG) --- > FINFO("NOFILE",0,R,FLAG) 549,550c547,548 < PRSTRING('SAVING NEW FUNCTIONS IN TEMPORARY FILE');NOOLINE(1) < DEFINE('3,T#TEMP') --- > PRSTRING("SAVING NEW FUNCTIONS IN TEMPORARY FILE");NOOLINE(1) > DEFINE("3,T#TEMP") 563c561 < PRSTRING('GETTY');NOOLINE(1); --- > PRSTRING("GETTY");NOOLINE(1); 565c563 < PRSTRING('SAVED');NOOLINE(1) --- > PRSTRING("SAVED");NOOLINE(1) 568c566 < DESTROY('T#LOGOSTK') --- > DESTROY("T#LOGOSTK") 680c678 < ! THE NULL LIST IS REPRESENTED BY A POINTER TO THE WORD 'NIL' --- > ! THE NULL LIST IS REPRESENTED BY A POINTER TO THE WORD "NIL" 688c686 < %IF LIST&LM=0 %OR LIST=NIL %THEN BADERROR('NON-LIST ARG FOR HEAD - ',%C --- > %IF LIST&LM=0 %OR LIST=NIL %THEN BADERROR("NON-LIST ARG FOR HEAD - ",%C 694c692 < %IF LIST&LM=0 %OR LIST=NIL%THEN BADERROR('NON-LIST ARG FOR REPHEAD',%C --- > %IF LIST&LM=0 %OR LIST=NIL%THEN BADERROR("NON-LIST ARG FOR REPHEAD",%C 701c699 < BADERROR('NON-LIST ARG FOR TAIL - ',LIST) --- > BADERROR("NON-LIST ARG FOR TAIL - ",LIST) 707c705 < BADERROR('NONLIST FIRST ARG FOR REPTAIL - ',LIST) --- > BADERROR("NONLIST FIRST ARG FOR REPTAIL - ",LIST) 709c707 < BADERROR('NON-LIST SECOND ARG FOR REPTAIL - ',NEWTAIL) --- > BADERROR("NON-LIST SECOND ARG FOR REPTAIL - ",NEWTAIL) 716c714 < %IF LIST&LM=0 %THEN BADERROR('NON-LIST SECOND ARG FOR CONS - ',LIST) --- > %IF LIST&LM=0 %THEN BADERROR("NON-LIST SECOND ARG FOR CONS - ",LIST) 731,732c729,730 < %IF LPOINT1>=(LAFNT-1) %THEN BADERROR('FNSPACE OVERFLOW',EMPTY) < %IF LIST&LM=0 %THEN BADERROR('NON-LIST SECOND ARG FOR CONS1 - ',LIST) --- > %IF LPOINT1>=(LAFNT-1) %THEN BADERROR("FNSPACE OVERFLOW",EMPTY) > %IF LIST&LM=0 %THEN BADERROR("NON-LIST SECOND ARG FOR CONS1 - ",LIST) 747c745 < ! REMOVES 'ITEM' FROM 'LIST' --- > ! REMOVES "ITEM" FROM "LIST" 766c764 < ! USED IN PICTURE FUNCTION 'CUT' --- > ! USED IN PICTURE FUNCTION "CUT" 860,861c858,859 < %IF STATUS(MASNUM.'LOGOMON',0)>=0 %THENSTART < DEFINE('7,'.MASNUM.'LOGOMON') --- > %IF STATUS(MASNUM."LOGOMON",0)>=0 %THENSTART > DEFINE("7,".MASNUM."LOGOMON") 875c873 < DISCONNECT(MASNUM.'LOGOMON') --- > DISCONNECT(MASNUM."LOGOMON") 879c877 < %IF COLLECTED<100 %THEN BADERROR('TOO FEW LIST CELLS COLLECTED',%C --- > %IF COLLECTED<100 %THEN BADERROR("TOO FEW LIST CELLS COLLECTED",%C 902c900 < %IF LIST&LM#LM %THEN BADERROR('NON-LIST ARG FOR MOVE1 - ',LIST) --- > %IF LIST&LM#LM %THEN BADERROR("NON-LIST ARG FOR MOVE1 - ",LIST) 944c942 < ! VARIABLE UNDEF CONTAINS A POINTER TO THE WORD 'UNDEF' IN THE WORD --- > ! VARIABLE UNDEF CONTAINS A POINTER TO THE WORD "UNDEF" IN THE WORD 947,948c945,946 < ! VARIABLE NIL POINTS TO THE EMPTY LIST-THE WORD 'NIL'. < ! VARIABLE DOTS POINTS TO THE WORD ':'. --- > ! VARIABLE NIL POINTS TO THE EMPTY LIST-THE WORD "NIL". > ! VARIABLE DOTS POINTS TO THE WORD ":". 987c985 < %IF ENVIR=3000 %THEN BADERROR('ENVIRONMENT OVERFLOW',EMPTY) --- > %IF ENVIR=3000 %THEN BADERROR("ENVIRONMENT OVERFLOW",EMPTY) 1001c999 < %IF ENVIR=3000 %THEN BADERROR('ENVIRONMENT OVERFLOW',EMPTY) --- > %IF ENVIR=3000 %THEN BADERROR("ENVIRONMENT OVERFLOW",EMPTY) 1013c1011 < %IF STKPNT=0 %THEN BADERROR('STACK UNDERFLOW',EMPTY) --- > %IF STKPNT=0 %THEN BADERROR("STACK UNDERFLOW",EMPTY) 1019c1017 < %IF STKPNT=2000 %THEN BADERROR('STACK OVERFLOW',EMPTY) --- > %IF STKPNT=2000 %THEN BADERROR("STACK OVERFLOW",EMPTY) 1035c1033 < %IF SYSTKPNT=0 %THEN BADERROR('SYSTACK UNDERFLOW',EMPTY) --- > %IF SYSTKPNT=0 %THEN BADERROR("SYSTACK UNDERFLOW",EMPTY) 1041c1039 < %IF SYSTKPNT=2000 %THEN BADERROR('SYSTACK OVERFLOW',EMPTY) --- > %IF SYSTKPNT=2000 %THEN BADERROR("SYSTACK OVERFLOW",EMPTY) 1064c1062 < BADERROR('NEXT TEXT PAGE NOT INDICATED',EMPTY) --- > BADERROR("NEXT TEXT PAGE NOT INDICATED",EMPTY) 1106c1104 < SYMCOUNT=0;WORD='';SKIPMARK=0 --- > SYMCOUNT=0;WORD="";SKIPMARK=0 1129c1127 < PRSTRING('MISSING RIGHT BRACKET INSERTED');NOOLINE(1) --- > PRSTRING("MISSING RIGHT BRACKET INSERTED");NOOLINE(1) 1154c1152 < PRSTRING('INVALID ''-'' BEFORE ') --- > PRSTRING("INVALID ""-"" BEFORE ") 1157c1155 < PRSTRING('IGNORED') --- > PRSTRING("IGNORED") 1193c1191 < PRSTRING('EXCESS CHARS IGNORED - ') --- > PRSTRING("EXCESS CHARS IGNORED - ") 1255c1253 < %UNTIL NEXTINSYM=NL %THEN %CYCLE --- > %UNTIL NEXTINSYM=NL %CYCLE 1265c1263 < %WHILE NEXTINSYM#NL %THEN SKIPINSYM --- > SKIPINSYM %WHILE NEXTINSYM#NL 1292c1290 < BADERROR('FILE SOURCE SPACE OVERFLOW',EMPTY) --- > BADERROR("FILE SOURCE SPACE OVERFLOW",EMPTY) 1340,1341c1338,1339 < DEFINE('10,T#JUNK') < NEWSMFILE('T#JUNK,'.SIZE) --- > DEFINE("10,T#JUNK") > NEWSMFILE("T#JUNK,".SIZE) 1353c1351 < RENAME('T#JUNK,'.MASFILE) --- > RENAME("T#JUNK,".MASFILE) 1355c1353 < PERMIT(MASFILE.',,R') --- > PERMIT(MASFILE.",,R") 1438c1436 < %IF WORD="(" %OR WORD="[" %OR WORD="'" %OR WORD=":" %THENSTART --- > %IF WORD="(" %OR WORD="[" %OR WORD="""" %OR WORD=":" %THENSTART 1464c1462 < LP:%IF ENUF=1 %OR (INTERRUPT='ENUF' %AND DEVICE=TTY) %THENSTART --- > LP:%IF ENUF=1 %OR (INTERRUPT="ENUF" %AND DEVICE=TTY) %THENSTART 1543c1541 < %WHILE SOURCE(SPTR+I+1)#NL %THEN SPTR=SPTR+1 --- > SPTR=SPTR+1 %WHILE SOURCE(SPTR+I+1)#NL 1602c1600 < %WHILE LIST # NIL %THEN %CYCLE --- > %WHILE LIST # NIL %CYCLE 1642c1640 < BADERROR('SOURCE FILE SPACE OVERFLOW',EMPTY) --- > BADERROR("SOURCE FILE SPACE OVERFLOW",EMPTY) 1649c1647 < PRSTRING('END INSERTED') --- > PRSTRING("END INSERTED") 1716c1714 < %WHILE HEADIN#RBRAK %THEN %CYCLE --- > %WHILE HEADIN#RBRAK %CYCLE 1798c1796 < PRSTRING('IN ');PRINTEL(HD(TL(HD(FUN)))); ! NAME OF USER FUN --- > PRSTRING("IN ");PRINTEL(HD(TL(HD(FUN)))); ! NAME OF USER FUN 1835c1833 < PRSTRING('INVALID UNARY MINUS BEFORE ') --- > PRSTRING("INVALID UNARY MINUS BEFORE ") 1837c1835 < PRSTRING(' IGNORED') --- > PRSTRING(" IGNORED") 1848c1846 < ERROR('NEW CANNOT HAVE A NUMBER AS ARGUMENT - ',LIST,1,IN) --- > ERROR("NEW CANNOT HAVE A NUMBER AS ARGUMENT - ",LIST,1,IN) 1859c1857 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 1865c1863 < ERROR(' NEW MUST HAVE A WORD AS ARGUMENT - ',WORD,1,IN) --- > ERROR(" NEW MUST HAVE A WORD AS ARGUMENT - ",WORD,1,IN) 2047c2045 < ERROR('ARITHMETIC REQUIRES NUMBERS - ',CONS(ARG1,CONS(ARG2,NIL)),1,IN) --- > ERROR("ARITHMETIC REQUIRES NUMBERS - ",CONS(ARG1,CONS(ARG2,NIL)),1,IN) 2053c2051 < PRSTRING('ARITHMETIC RESULT OUT OF RANGE.') --- > PRSTRING("ARITHMETIC RESULT OUT OF RANGE.") 2055c2053 < PRSTRING('MAX SUBSTITUTED') --- > PRSTRING("MAX SUBSTITUTED") 2060c2058 < PRSTRING('ARITHMETIC RESULT OUT OF RANGE. MIN SUBSTITUTED') --- > PRSTRING("ARITHMETIC RESULT OUT OF RANGE. MIN SUBSTITUTED") 2071c2069 < ERROR('INTEGER OVERFLOW IN SUM/DIFFERENCE',EMPTY,1,IN) --- > ERROR("INTEGER OVERFLOW IN SUM/DIFFERENCE",EMPTY,1,IN) 2076c2074 < ERROR('INTEGER OVERFLOW IN SUM/DIFFERENCE',EMPTY,1,IN) --- > ERROR("INTEGER OVERFLOW IN SUM/DIFFERENCE",EMPTY,1,IN) 2093c2091 < ERROR('WORD MUST HAVE A WORD OR NON-NEGATIVE NUMBER AS ARGUMENT - ',%C --- > ERROR("WORD MUST HAVE A WORD OR NON-NEGATIVE NUMBER AS ARGUMENT - ",%C 2098c2096 < ERROR('WORD MUST HAVE A WORD OR NON-NEGATIVE NUMBER AS ARGUMENT - ',%C --- > ERROR("WORD MUST HAVE A WORD OR NON-NEGATIVE NUMBER AS ARGUMENT - ",%C 2107c2105 < ERROR('WORD LENGTH EXCEEDED - ',%C --- > ERROR("WORD LENGTH EXCEEDED - ",%C 2117c2115 < ERROR('LASTPUT MUST HAVE A LIST AS SECOND ARGUMENT - ',ARG2,1,IN) --- > ERROR("LASTPUT MUST HAVE A LIST AS SECOND ARGUMENT - ",ARG2,1,IN) 2128c2126 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 2153c2151 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 2206,2207c2204,2205 < %IF STAT<0 %THEN ERROR('FINFO CALL FAILS - ',(-STAT)<<8!NM,1,IN) %C < %ELSE ERROR('LIBRARY IS BEING UPDATED - TRY AGAIN',EMPTY,1,IN) --- > %IF STAT<0 %THEN ERROR("FINFO CALL FAILS - ",(-STAT)<<8!NM,1,IN) %C > %ELSE ERROR("LIBRARY IS BEING UPDATED - TRY AGAIN",EMPTY,1,IN) 2230c2228 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 2248c2246 < DEFINE('4,'.OWNER.".".MASFILE) --- > DEFINE("4,".OWNER.".".MASFILE) 2255c2253 < ERROR('CANNOT FIND LIBRARY FILE ',EMPTY,1,IN) --- > ERROR("CANNOT FIND LIBRARY FILE ",EMPTY,1,IN) 2269,2270c2267,2268 < %IF STAT<0 %THEN ERROR('FINFO CALL FAILS - ',(-STAT)<<8!NM,1,IN) %C < %ELSE ERROR('YOUR FILE IS IN USE BY ANOTHER - TRY AGAIN',EMPTY,1,IN) --- > %IF STAT<0 %THEN ERROR("FINFO CALL FAILS - ",(-STAT)<<8!NM,1,IN) %C > %ELSE ERROR("YOUR FILE IS IN USE BY ANOTHER - TRY AGAIN",EMPTY,1,IN) 2290,2291c2288,2289 < DEFINE('10,T#JUNK') < NEWSMFILE('T#JUNK,'.SIZE) --- > DEFINE("10,T#JUNK") > NEWSMFILE("T#JUNK,".SIZE) 2299c2297 < %UNLESS UDNAM(I)='' %THENSTART --- > %UNLESS UDNAM(I)="" %THENSTART 2318c2316 < %UNLESS FUNNAM(J)='' %THENSTART --- > %UNLESS FUNNAM(J)="" %THENSTART 2366c2364 < DEFINE('4,'.MASFILE) --- > DEFINE("4,".MASFILE) 2375c2373 < DESTROY('T#JUNK') --- > DESTROY("T#JUNK") 2379c2377 < RENAME('T#JUNK,'.MASFILE) --- > RENAME("T#JUNK,".MASFILE) 2384c2382 < PERMIT(MASFILE.',,R') --- > PERMIT(MASFILE.",,R") 2417c2415 < %WHILE UDENTS=61 %THEN %CYCLE --- > %WHILE UDENTS=61 %CYCLE 2431c2429 < ERROR(' INVALID NAME FOR LIBRARY OWNER - ',ARG1,1,IN) --- > ERROR(" INVALID NAME FOR LIBRARY OWNER - ",ARG1,1,IN) 2435c2433 < ERROR('INVALID NAME FOR LIBRARY OWNER - ',ARG1,1,IN) --- > ERROR("INVALID NAME FOR LIBRARY OWNER - ",ARG1,1,IN) 2439c2437 < WSTR2=FROMSTRING(WSTR1,W1,W1) --- > WSTR2=SUBSTRING(WSTR1,W1,W1) 2441c2439 < ERROR('INVALID NAME FOR LIBRARY OWNER - ',ARG1,1,IN) --- > ERROR("INVALID NAME FOR LIBRARY OWNER - ",ARG1,1,IN) 2446c2444 < WSTR2=FROMSTRING(WSTR1,W1,W1) --- > WSTR2=SUBSTRING(WSTR1,W1,W1) 2448c2446 < ERROR('INVALID NAME FOR LIBRARY OWNER - ',ARG1,1,IN) --- > ERROR("INVALID NAME FOR LIBRARY OWNER - ",ARG1,1,IN) 2452c2450 < %IF ARG2&WM#WM %THEN ERROR('LIBRARY NAME MUST BE A WORD - ',ARG2,1,IN) --- > %IF ARG2&WM#WM %THEN ERROR("LIBRARY NAME MUST BE A WORD - ",ARG2,1,IN) 2476,2478c2474,2476 < ERRM='THE TURTLE WILL GO OFF THE EDGE OF THE ' < %IF TDEV=3 %OR TDEV=8 %THEN ERRM=ERRM.'SCREEN' %ELSEC < ERRM=ERRM.'PAPER' --- > ERRM="THE TURTLE WILL GO OFF THE EDGE OF THE " > %IF TDEV=3 %OR TDEV=8 %THEN ERRM=ERRM."SCREEN" %ELSEC > ERRM=ERRM."PAPER" 2535c2533 < ERROR(WA(FN>>8).' MUST HAVE A NUMBER AS INPUT - ',ARG,1,IN) --- > ERROR(WA(FN>>8)." MUST HAVE A NUMBER AS INPUT - ",ARG,1,IN) 2588c2586 < ERROR('USER INTERRUPT - TURTLE DEVICE RESET',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - TURTLE DEVICE RESET",EMPTY,1,IN) 2609c2607 < ERROR('USER INTERRUPT - TURTLE DEVICE RESET',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - TURTLE DEVICE RESET",EMPTY,1,IN) 2750c2748 < %RECORD R(RF) --- > %RECORD (RF) R 2753,2754c2751,2752 < %IF TDEV=N %THEN ERROR('YOU ALREADY HAVE IT',EMPTY,1,IN) %ELSEC < ERROR('YOU CAN ONLY BE CONNECTED TO ONE DEVICE',EMPTY,1,IN) --- > %IF TDEV=N %THEN ERROR("YOU ALREADY HAVE IT",EMPTY,1,IN) %ELSEC > ERROR("YOU CAN ONLY BE CONNECTED TO ONE DEVICE",EMPTY,1,IN) 2761c2759 < ERROR('DEVICE '.TDEVNAMES(N).' IS ALREADY CONNECTED ELSEWHERE',%C --- > ERROR("DEVICE ".TDEVNAMES(N)." IS ALREADY CONNECTED ELSEWHERE",%C 2767c2765 < PRSTRING(TDEVNAMES(N).' CONNECTED');NOOLINE(1) --- > PRSTRING(TDEVNAMES(N)." CONNECTED");NOOLINE(1) 2795c2793 < %IF LIST=NIL %THEN ERROR (FUNC.' NEEDS A LONGER LIST ',ARG2,1,IN) %C --- > %IF LIST=NIL %THEN ERROR (FUNC." NEEDS A LONGER LIST ",ARG2,1,IN) %C 2799c2797 < %IF W1&NM #NM %THEN ERROR (FUNC.' NEEDS A NUMBER ',W1,1,IN) %C --- > %IF W1&NM #NM %THEN ERROR (FUNC." NEEDS A NUMBER ",W1,1,IN) %C 2809,2810c2807,2808 < %WHILE N > 512 %THEN N=N-1024 < %WHILE N < -512 %THEN N=N+1024 --- > N=N-1024 %WHILE N > 512 > N=N+1024 %WHILE N < -512 2852c2850 < !*** 'HACK' DP1 EXEC FOR LOGO USE --- > !*** "HACK" DP1 EXEC FOR LOGO USE 2885c2883 < CH3(TURTLE START) ;!**IMPORTANT** MOD TO 'CLEAR' --- > CH3(TURTLE START) ;!**IMPORTANT** MOD TO "CLEAR" 2925c2923 < %RETURN %IF DEF PICTURE = 1 ;! DON'T BOTHER WITH TURTLE IN DEF MODE --- > %RETURN %IF DEF PICTURE = 1 ;! DON"T BOTHER WITH TURTLE IN DEF MODE 2977c2975 < ! *** TO THE GT42 -- CALLED FROM 'INCLUDE' AND 'PUT' --- > ! *** TO THE GT42 -- CALLED FROM "INCLUDE" AND "PUT" 2989c2987 < %UNTIL W3=NIL %THEN CH3(HD(W3)>>8) %AND W3=TL(W3) --- > CH3(HD(W3)>>8) %AND W3=TL(W3) %UNTIL W3=NIL 2994,2995c2992,2993 < 'GT42 DISPLAY FILE CORRUPTED :- < TOO MUCH DISPLAY DATA',EMPTY,1,IN) %AND %RETURN --- > "GT42 DISPLAY FILE CORRUPTED :- > TOO MUCH DISPLAY DATA",EMPTY,1,IN) %AND %RETURN 3027c3025 < ERROR('NO VALUE HAS BEEN GIVEN TO VARIABLE -',%C --- > ERROR("NO VALUE HAS BEEN GIVEN TO VARIABLE -",%C 3069c3067 < SAYL('USING RULE ',CONS(IMPLIES,RULE),INDENT) --- > SAYL("USING RULE ",CONS(IMPLIES,RULE),INDENT) 3076,3077c3074,3075 < ! THEM INTO A LIST CONSED ON TO 'NEW'. E.G. [NEW [X Y]] < ! CHECKS THAT CONSEQUENT OF TOINFER RULE DOESN'T CONTAIN A DOTTED --- > ! THEM INTO A LIST CONSED ON TO "NEW". E.G. [NEW [X Y]] > ! CHECKS THAT CONSEQUENT OF TOINFER RULE DOESN"T CONTAIN A DOTTED 3093c3091 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3117c3115 < VBLERR:ERROR('INVALID PATTERN FOR IMPLIES/TOINFER RULE -',TERMS,1,IN) --- > VBLERR:ERROR("INVALID PATTERN FOR IMPLIES/TOINFER RULE -",TERMS,1,IN) 3133c3131 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3143c3141 < ERROR('NO VALUE HAS BEEN GIVEN TO VARIABLE - ',HD(ITEM),1,IN) %C --- > ERROR("NO VALUE HAS BEEN GIVEN TO VARIABLE - ",HD(ITEM),1,IN) %C 3151c3149 < INSTERR:ERROR('INVALID PATTERN FOR FACT -',ITEM,1,IN) --- > INSTERR:ERROR("INVALID PATTERN FOR FACT -",ITEM,1,IN) 3163c3161 < ERROR('INVALID PATTERN FOR ASSERT - ',ITEM,1,IN) --- > ERROR("INVALID PATTERN FOR ASSERT - ",ITEM,1,IN) 3184c3182 < ERROR('INVALID PATTERN FOR IMPLIES/TOINFER RULE -',TL(RULE),1,IN) --- > ERROR("INVALID PATTERN FOR IMPLIES/TOINFER RULE -",TL(RULE),1,IN) 3194c3192 < SAYL('ADDED RULE ',RULE,INDENT) --- > SAYL("ADDED RULE ",RULE,INDENT) 3200c3198 < ! THE ASSOCIATION SET, KEY, HAS ANY VALUES WITH ATTRIBUTE 'IMPLIES', --- > ! THE ASSOCIATION SET, KEY, HAS ANY VALUES WITH ATTRIBUTE "IMPLIES", 3203c3201 < ! NOT FIRST, BY LOOKING AT THE ASSOCIATION SET FOR 'QUOTE', AND ADDS --- > ! NOT FIRST, BY LOOKING AT THE ASSOCIATION SET FOR "QUOTE", AND ADDS 3211c3209 < SAYL('ADDED FACT ',FACT,INDENT) --- > SAYL("ADDED FACT ",FACT,INDENT) 3223c3221 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3245c3243 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3276c3274 < ERROR('NO VALUE HAS BEEN GIVEN TO VARIABLE - ',HD(TL(IPAT)),1,IN) --- > ERROR("NO VALUE HAS BEEN GIVEN TO VARIABLE - ",HD(TL(IPAT)),1,IN) 3283c3281 < ERROR('INVALID PATTERN - ',IPAT,1,IN) --- > ERROR("INVALID PATTERN - ",IPAT,1,IN) 3308c3306 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3315c3313 < ERROR('NO VALUE HAS BEEN GIVEN TO VARIABLE - ',HD(TL(TERM)),1,IN) --- > ERROR("NO VALUE HAS BEEN GIVEN TO VARIABLE - ",HD(TL(TERM)),1,IN) 3353c3351 < ERROR('NO VALUE HAS BEEN GIVEN TO VARIABLE - ',HD(PAT),1,IN) --- > ERROR("NO VALUE HAS BEEN GIVEN TO VARIABLE - ",HD(PAT),1,IN) 3388c3386 < SAYL('USING RULE ',CONS(TOINFER,RULE),INDENT) --- > SAYL("USING RULE ",CONS(TOINFER,RULE),INDENT) 3413c3411 < ERROR('NO VALUE HAS BEEN GIVEN TO VARIABLE - ',HD(VLIST),1,IN) --- > ERROR("NO VALUE HAS BEEN GIVEN TO VARIABLE - ",HD(VLIST),1,IN) 3422c3420 < ! FIRSTLY WITH ATTRIBUTE 'FACT', THEN 'TOINFER', --- > ! FIRSTLY WITH ATTRIBUTE "FACT", THEN "TOINFER", 3426,3427c3424,3425 < ! A KEYWORD, IT IS MATCHED AGAINST THE ASSOCIATION SET FOR 'QUOTE' < ! WITH ATTRIBUTE 'TOINFER', EXITING AS ABOVE. --- > ! A KEYWORD, IT IS MATCHED AGAINST THE ASSOCIATION SET FOR "QUOTE" > ! WITH ATTRIBUTE "TOINFER", EXITING AS ABOVE. 3429c3427 < ! VALUES TO ITS VARIABLE LIST, AND CONS'S THIS LIST TO ARG3 AS RESULT. --- > ! VALUES TO ITS VARIABLE LIST, AND CONS"S THIS LIST TO ARG3 AS RESULT. 3459c3457 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3470c3468 < SAYL('LOOK FOR ',IPAT,INDENT) --- > SAYL("LOOK FOR ",IPAT,INDENT) 3480c3478 < SAYL('SUCCEED WITH - ',CONS(NOT,IPAT),INDENT) --- > SAYL("SUCCEED WITH - ",CONS(NOT,IPAT),INDENT) 3493c3491 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3502c3500 < SAYL('SUCCEED WITH ',HD(IT),INDENT) --- > SAYL("SUCCEED WITH ",HD(IT),INDENT) 3521c3519 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3545c3543 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3558c3556 < SAYL('FAILED',EMPTY,INDENT) --- > SAYL("FAILED",EMPTY,INDENT) 3560c3558 < TRYINFERR:ERROR('INVALID PATTERN -',IPAT,1,IN) --- > TRYINFERR:ERROR("INVALID PATTERN -",IPAT,1,IN) 3608c3606 < %IF ARG1&LM=LM %THENSTART;PRSTRING('NOT A WORD');NOOLINE(1); --- > %IF ARG1&LM=LM %THENSTART;PRSTRING("NOT A WORD");NOOLINE(1); 3620c3618 < ENUF=0;SEP='' --- > ENUF=0;SEP="" 3653c3651 < ERROR('INTEGER OVERFLOW IN PRODUCT',EMPTY,1,IN) --- > ERROR("INTEGER OVERFLOW IN PRODUCT",EMPTY,1,IN) 3664c3662 < ERROR('DIVISION BY ZERO IN ',FN,1,IN) --- > ERROR("DIVISION BY ZERO IN ",FN,1,IN) 3675c3673 < ERROR('DIVISION BY ZERO IN ',FN,1,IN) --- > ERROR("DIVISION BY ZERO IN ",FN,1,IN) 3686c3684 < ERROR('DIVISION BY ZERO IN ',FN,1,IN) --- > ERROR("DIVISION BY ZERO IN ",FN,1,IN) 3715c3713 < ERROR('FIRST MUST HAVE A LIST AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("FIRST MUST HAVE A LIST AS ARGUMENT - ",ARG1,1,IN) 3719c3717 < ERROR('FIRST CANNOT HAVE THE EMPTY LIST AS ARGUMENT',EMPTY,1,IN) --- > ERROR("FIRST CANNOT HAVE THE EMPTY LIST AS ARGUMENT",EMPTY,1,IN) 3729c3727 < ERROR('LAST MUST HAVE A LIST AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("LAST MUST HAVE A LIST AS ARGUMENT - ",ARG1,1,IN) 3733c3731 < ERROR('LAST CANNOT HAVE THE EMPTY LIST AS ARGUMENT',EMPTY,1,IN) --- > ERROR("LAST CANNOT HAVE THE EMPTY LIST AS ARGUMENT",EMPTY,1,IN) 3744c3742 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3757c3755 < ERROR('BUTFIRST MUST HAVE A LIST AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("BUTFIRST MUST HAVE A LIST AS ARGUMENT - ",ARG1,1,IN) 3761c3759 < ERROR('BUTFIRST CANNOT HAVE THE EMPTY LIST AS ARGUMENT',EMPTY,1,IN) --- > ERROR("BUTFIRST CANNOT HAVE THE EMPTY LIST AS ARGUMENT",EMPTY,1,IN) 3771c3769 < ERROR('BUTLAST MUST HAVE A LIST AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("BUTLAST MUST HAVE A LIST AS ARGUMENT - ",ARG1,1,IN) 3775c3773 < ERROR('BUTLAST CANNOT HAVE THE EMPTY LIST AS ARGUMENT',EMPTY,1,IN) --- > ERROR("BUTLAST CANNOT HAVE THE EMPTY LIST AS ARGUMENT",EMPTY,1,IN) 3787c3785 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3825c3823 < ERROR('FIRSTPUT MUST HAVE A LIST AS SECOND ARGUMENT - ',ARG2,1,IN) --- > ERROR("FIRSTPUT MUST HAVE A LIST AS SECOND ARGUMENT - ",ARG2,1,IN) 3840c3838 < ERROR('JOIN MUST HAVE A LIST AS FIRST ARGUMENT - ',ARG1,1,IN) --- > ERROR("JOIN MUST HAVE A LIST AS FIRST ARGUMENT - ",ARG1,1,IN) 3844c3842 < ERROR('JOIN MUST HAVE A LIST AS SECOND ARGUMENT - ',ARG2,1,IN) --- > ERROR("JOIN MUST HAVE A LIST AS SECOND ARGUMENT - ",ARG2,1,IN) 3856c3854 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3875c3873 < ERROR('COUNT MUST HAVE A LIST AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("COUNT MUST HAVE A LIST AS ARGUMENT - ",ARG1,1,IN) 3887c3885 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 3998c3996 < ERROR('TEST MUST HAVE TRUE OR FALSE AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("TEST MUST HAVE TRUE OR FALSE AS ARGUMENT - ",ARG1,1,IN) 4009c4007 < ERROR('NULL INSTRUCTION',EMPTY,1,IN) --- > ERROR("NULL INSTRUCTION",EMPTY,1,IN) 4022c4020 < ERROR('NULL INSTRUCTION',EMPTY,1,IN) --- > ERROR("NULL INSTRUCTION",EMPTY,1,IN) 4090c4088 < ERROR('NULL CONDITION',EMPTY,1,IN) --- > ERROR("NULL CONDITION",EMPTY,1,IN) 4094c4092 < ERROR('NULL THEN CLAUSE',EMPTY,1,IN) --- > ERROR("NULL THEN CLAUSE",EMPTY,1,IN) 4129c4127 < ERROR('EDIT MUST HAVE A WORD AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("EDIT MUST HAVE A WORD AS ARGUMENT - ",ARG1,1,IN) 4134c4132 < ERROR('PROCEDURE FOR EDIT UNDEFINED - ',ARG1,1,IN) --- > ERROR("PROCEDURE FOR EDIT UNDEFINED - ",ARG1,1,IN) 4138c4136 < ERROR('SYSTEM PROCEDURE CANNOT BE EDITED - ',ARG1,1,IN) --- > ERROR("SYSTEM PROCEDURE CANNOT BE EDITED - ",ARG1,1,IN) 4142c4140 < BADERROR('SOURCE FILE SPACE OVERFLOW',EMPTY) --- > BADERROR("SOURCE FILE SPACE OVERFLOW",EMPTY) 4150c4148 < PRSTRING(' EDITED') --- > PRSTRING(" EDITED") 4161c4159 < ERROR('MAKE MUST HAVE A WORD AS FIRST ARGUMENT - ',ARG1,1,IN) --- > ERROR("MAKE MUST HAVE A WORD AS FIRST ARGUMENT - ",ARG1,1,IN) 4193c4191 < ERROR('GO NEEDS A NUMBER - ',ARG1,1,IN) --- > ERROR("GO NEEDS A NUMBER - ",ARG1,1,IN) 4221c4219 < ERROR1('NON-WORD FOR SHOW - ',ARG1) --- > ERROR1("NON-WORD FOR SHOW - ",ARG1) 4232c4230 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 4240c4238 < ERROR1('NON WORD FOR SHOW - ',ARG2) --- > ERROR1("NON WORD FOR SHOW - ",ARG2) 4245c4243 < ERROR1('UNDEFINED PROCEDURE FOR SHOW - ',ARG2) --- > ERROR1("UNDEFINED PROCEDURE FOR SHOW - ",ARG2) 4249c4247 < ERROR1('SYSTEM PROCEDURE FOR SHOW - ',ARG2) --- > ERROR1("SYSTEM PROCEDURE FOR SHOW - ",ARG2) 4253,4254c4251 < %UNTIL SOURCE(ARG4)='E' %AND SOURCE(ARG4+1)='N' %C < %AND SOURCE(ARG4+2)='D' %THEN %CYCLE --- > %UNTIL SOURCE(ARG4)='E' %AND SOURCE(ARG4+1)='N' %AND SOURCE(ARG4+2)='D' %CYCLE 4274c4271 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 4283c4280 < %IF ARG2<0 %THEN PRSTRING( 'NO USER PROCEDURES DEFINED YET') %C --- > %IF ARG2<0 %THEN PRSTRING( "NO USER PROCEDURES DEFINED YET") %C 4300c4297 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 4315c4312 < PRSTRING('NO USER PROCEDURES DEFINED YET') --- > PRSTRING("NO USER PROCEDURES DEFINED YET") 4325c4322 < PRSTRING( 'NO NEW PROCEDURES') --- > PRSTRING( "NO NEW PROCEDURES") 4338c4335 < ERROR('USER INTERRUP',EMPTY,0,IN) --- > ERROR("USER INTERRUP",EMPTY,0,IN) 4354c4351 < ERROR('OLDDEF MUST HAVE A WORD FOR ARGUMENT - ',ARG1,1,IN) --- > ERROR("OLDDEF MUST HAVE A WORD FOR ARGUMENT - ",ARG1,1,IN) 4357c4354 < ERROR(' NO STANDBY DEF FOR PROCEDURE - ',ARG1,1,IN) --- > ERROR(" NO STANDBY DEF FOR PROCEDURE - ",ARG1,1,IN) 4367c4364 < PRSTRING( 'STANDBY DEFINITION OF ');PRSTRING(WA(ARG1>>8).' RESTORED') --- > PRSTRING( "STANDBY DEFINITION OF ");PRSTRING(WA(ARG1>>8)." RESTORED") 4375c4372 < ERROR('GETFILE MUST HAVE A WORD AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("GETFILE MUST HAVE A WORD AS ARGUMENT - ",ARG1,1,IN) 4391c4388 < PRINTEL(ARG1); PRSTRING(' CREATED') --- > PRINTEL(ARG1); PRSTRING(" CREATED") 4394c4391 < NOOLINE(1);PRINTEL(ARG1);PRSTRING(' ACTIVE');NOOLINE(1) --- > NOOLINE(1);PRINTEL(ARG1);PRSTRING(" ACTIVE");NOOLINE(1) 4402c4399 < ERROR('NO FILE CURRENTLY ACTIVE',EMPTY,1,IN) --- > ERROR("NO FILE CURRENTLY ACTIVE",EMPTY,1,IN) 4407c4404 < ERROR1('LOAD CANNOT HAVE A NUMBER AS ARGUMENT - ',ARG1) %AND ->LD5 --- > ERROR1("LOAD CANNOT HAVE A NUMBER AS ARGUMENT - ",ARG1) %AND ->LD5 4419c4416 < ERROR1('NON-WORD FOR LOAD - ',W1) --- > ERROR1("NON-WORD FOR LOAD - ",W1) 4423c4420 < PRSTRING('NO USER PROCEDURES SAVED') --- > PRSTRING("NO USER PROCEDURES SAVED") 4438c4435 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 4447c4444 < %UNTIL HEADIN=END %THEN %CYCLE --- > %UNTIL HEADIN=END %CYCLE 4457c4454 < PRSTRING(WA(W1>>8));PRSTRING(' LOADED') --- > PRSTRING(WA(W1>>8));PRSTRING(" LOADED") 4463c4460 < PRSTRING(WA(W1>>8));PRSTRING( ' NOT SAVED') --- > PRSTRING(WA(W1>>8));PRSTRING( " NOT SAVED") 4476c4473 < ERROR(' NO FILE CURRENTLY ACTIVE',EMPTY,1,IN) --- > ERROR(" NO FILE CURRENTLY ACTIVE",EMPTY,1,IN) 4479c4476 < ERROR('CANNOT SAVE TO A LIBRARY FILE',EMPTY,1,IN) --- > ERROR("CANNOT SAVE TO A LIBRARY FILE",EMPTY,1,IN) 4484c4481 < %IF ARG3&LM#LM %THEN ERROR1('NON-WORD FOR SAVE - ',ARG3) %AND ->SAVE2 --- > %IF ARG3&LM#LM %THEN ERROR1("NON-WORD FOR SAVE - ",ARG3) %AND ->SAVE2 4499c4496 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 4505c4502 < ERROR1(' NON-WORD FOR SAVE - ',ARG1) --- > ERROR1(" NON-WORD FOR SAVE - ",ARG1) 4509c4506 < ERROR1('PROCEDURE HAS FAULTY FIRST LINE',ARG1) --- > ERROR1("PROCEDURE HAS FAULTY FIRST LINE",ARG1) 4514c4511 < ERROR1(' UNDEFINED PROCEDURE FOR SAVE - ',ARG1) --- > ERROR1(" UNDEFINED PROCEDURE FOR SAVE - ",ARG1) 4517c4514 < ERROR1('YOU CANNOT SAVE A SYSTEM PROCEDURE - ',ARG1) --- > ERROR1("YOU CANNOT SAVE A SYSTEM PROCEDURE - ",ARG1) 4522c4519 < %UNTIL W1>=W2 %THEN %CYCLE --- > %UNTIL W1>=W2 %CYCLE 4531c4528 < PRSTRING(WA(ARG1>>8));PRSTRING(' SAVED'); --- > PRSTRING(WA(ARG1>>8));PRSTRING(" SAVED"); 4542c4539 < ERROR ('NO FILE CURRENTLY ACTIVE',EMPTY,1,IN) --- > ERROR ("NO FILE CURRENTLY ACTIVE",EMPTY,1,IN) 4545c4542 < ERROR('CANNOT SAVE TO A LIBRARY FILE',EMPTY,1,IN) --- > ERROR("CANNOT SAVE TO A LIBRARY FILE",EMPTY,1,IN) 4550c4547 < PRSTRING('NO USER PROCEDURES DEFINED OR EDITED YET');NOOLINE(1) --- > PRSTRING("NO USER PROCEDURES DEFINED OR EDITED YET");NOOLINE(1) 4566c4563 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 4573c4570 < %UNTIL W1>=W2 %THEN %CYCLE --- > %UNTIL W1>=W2 %CYCLE 4579c4576 < PRSTRING(WA(ARG1>>8));PRSTRING(' SAVED') --- > PRSTRING(WA(ARG1>>8));PRSTRING(" SAVED") 4592c4589 < ERROR(' NO FILE CURRENTLY ACTIVE',EMPTY,1,IN) --- > ERROR(" NO FILE CURRENTLY ACTIVE",EMPTY,1,IN) 4595c4592 < ERROR('CANNOT FORGET LIBRARY PROCEDURES',EMPTY,1,IN) --- > ERROR("CANNOT FORGET LIBRARY PROCEDURES",EMPTY,1,IN) 4601c4598 < ERROR1('FORGET CANNOT HAVE A NUMBER AS ARGUMENT - ',ARG3) --- > ERROR1("FORGET CANNOT HAVE A NUMBER AS ARGUMENT - ",ARG3) 4612c4609 < ERROR1(' NON-WORD FOR FORGET - ',ARG1) --- > ERROR1(" NON-WORD FOR FORGET - ",ARG1) 4616c4613 < PRSTRING('NO USER PROCEDURES SAVED') --- > PRSTRING("NO USER PROCEDURES SAVED") 4630c4627 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 4635c4632 < FUNNAM(ARG2)='' --- > FUNNAM(ARG2)="" 4637c4634 < PRSTRING(WA(ARG1>>8).' FORGOTTEN') --- > PRSTRING(WA(ARG1>>8)." FORGOTTEN") 4644c4641 < PRSTRING(WA(ARG1>>8));PRSTRING(' NOT SAVED') --- > PRSTRING(WA(ARG1>>8));PRSTRING(" NOT SAVED") 4654c4651 < ERROR('NO FILE CURRENTLY ACTIVE',EMPTY,1,IN) --- > ERROR("NO FILE CURRENTLY ACTIVE",EMPTY,1,IN) 4669c4666 < PRSTRING('NO USER PROCEDURES SAVED YET') --- > PRSTRING("NO USER PROCEDURES SAVED YET") 4684c4681 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 4688c4685 < PRSTRING('FORGOTTEN PROCEDURE') --- > PRSTRING("FORGOTTEN PROCEDURE") 4708c4705 < ERROR(' NO FILE CURRENTLY ACTIVE',EMPTY,1,IN) --- > ERROR(" NO FILE CURRENTLY ACTIVE",EMPTY,1,IN) 4713c4710 < ERROR1('SHOWSAVED CANNOT HAVE A NUMBER AS ARGUMENT - ',ARG1) --- > ERROR1("SHOWSAVED CANNOT HAVE A NUMBER AS ARGUMENT - ",ARG1) 4727c4724 < ERROR1(' NON-WORD FOR SHOWSAVED - ',W1) --- > ERROR1(" NON-WORD FOR SHOWSAVED - ",W1) 4731c4728 < PRSTRING('NO USER PROCEDURES SAVED') --- > PRSTRING("NO USER PROCEDURES SAVED") 4749c4746 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 4764c4761 < PRSTRING(WA(W1>>8));PRSTRING( ' NOT SAVED') --- > PRSTRING(WA(W1>>8));PRSTRING( " NOT SAVED") 4773c4770 < ERROR('NO FILE CURRENTLY ACTIVE',EMPTY,1,IN) --- > ERROR("NO FILE CURRENTLY ACTIVE",EMPTY,1,IN) 4786c4783 < PRSTRING('NO USER PROCEDURES SAVED YET') --- > PRSTRING("NO USER PROCEDURES SAVED YET") 4801c4798 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 4806c4803 < PRSTRING('FORGOTTEN PROCEDURE') --- > PRSTRING("FORGOTTEN PROCEDURE") 4829c4826 < ERROR(' NO FILE CURRENTLY ACTIVE',EMPTY,1,IN) --- > ERROR(" NO FILE CURRENTLY ACTIVE",EMPTY,1,IN) 4839c4836 < PRSTRING( ' NO USER PROCEDURES SAVED YET') --- > PRSTRING( " NO USER PROCEDURES SAVED YET") 4855c4852 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 4864c4861 < %UNTIL HEADIN=END %THEN %CYCLE --- > %UNTIL HEADIN=END %CYCLE 4868c4865 < ARG2=HASH(FUNNAM(ARG1)) --- > ARG2=HASHFN(FUNNAM(ARG1)) 4890c4887 < ERROR1('DESTROY MUST HAVE A WORD AS ARGUMENT -',ARG1) --- > ERROR1("DESTROY MUST HAVE A WORD AS ARGUMENT -",ARG1) 4898c4895 < PRSTRING('NO FILES CREATED YET') --- > PRSTRING("NO FILES CREATED YET") 4906c4903 < ERROR1('NON-WORD FOR DESTROY - ',ARG2) --- > ERROR1("NON-WORD FOR DESTROY - ",ARG2) 4919c4916 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 4924,4925c4921,4922 < UDNAM(ARG3)='';UDPAGE(ARG3)=0 < PRSTRING(WA(ARG2>>8).' DESTROYED') --- > UDNAM(ARG3)="";UDPAGE(ARG3)=0 > PRSTRING(WA(ARG2>>8)." DESTROYED") 4932c4929 < PRSTRING(WA(ARG2>>8).' DOES NOT EXIST') --- > PRSTRING(WA(ARG2>>8)." DOES NOT EXIST") 4951c4948 < PRSTRING(' EXISTS');NOOLINE(1) --- > PRSTRING(" EXISTS");NOOLINE(1) 4961c4958 < ! MAP ONTO LIB OWNER'S DIRECTORY --- > ! MAP ONTO LIB OWNER"S DIRECTORY 4981c4978 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 4990c4987 < %UNTIL HEADIN=END %THEN %CYCLE --- > %UNTIL HEADIN=END %CYCLE 4994c4991 < ARG2=HASH(FUNNAM(ARG1)) --- > ARG2=HASHFN(FUNNAM(ARG1)) 5017c5014 < ERROR('NO FILE CURRENTLY ACTIVE',EMPTY,1,IN) --- > ERROR("NO FILE CURRENTLY ACTIVE",EMPTY,1,IN) 5025c5022 < PRSTRING( 'NO OF ENTRIES IN FILE DIRECTORY= ') --- > PRSTRING( "NO OF ENTRIES IN FILE DIRECTORY= ") 5027c5024 < NOOLINE(1);PRSTRING( 'NXT FREE PAGE IN USER TEXT AREA =') --- > NOOLINE(1);PRSTRING( "NXT FREE PAGE IN USER TEXT AREA =") 5030c5027 < PRSTRING('NXT FREE INDEX =') --- > PRSTRING("NXT FREE INDEX =") 5046c5043 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 5055,5056c5052,5053 < %IF FUNNAM(ARG1)='' %THENSTART < PRSTRING( ' FORGOTTEN PROCEDURE');NOOLINE(1) --- > %IF FUNNAM(ARG1)="" %THENSTART > PRSTRING( " FORGOTTEN PROCEDURE");NOOLINE(1) 5059,5061c5056,5058 < PRSTRING( ' ENTRY NO = ');WRITE(ARG1,6);NOOLINE(1) < PRSTRING( ' STARTING PAGE =');WRITE(TXTPAGE(ARG1)+1,6);NOOLINE(1) < PRSTRING(' STARTING INDEX =');WRITE(SHORTINT(TXTIND(1,ARG1)),6) --- > PRSTRING( " ENTRY NO = ");WRITE(ARG1,6);NOOLINE(1) > PRSTRING( " STARTING PAGE =");WRITE(TXTPAGE(ARG1)+1,6);NOOLINE(1) > PRSTRING(" STARTING INDEX =");WRITE(SHORTINT(TXTIND(1,ARG1)),6) 5063c5060 < PRSTRING( ' TEXT =');NOOLINE(2) --- > PRSTRING( " TEXT =");NOOLINE(2) 5083c5080 < ERROR(' NO FILE CURRENTLY ACTIVE',EMPTY,1,IN) --- > ERROR(" NO FILE CURRENTLY ACTIVE",EMPTY,1,IN) 5091c5088 < PRINTSTRING( 'FILE EMPTY') --- > PRINTSTRING( "FILE EMPTY") 5095c5092 < DEFINE('10,.LP'); ! USUALLY .LP --- > DEFINE("10,.LP"); ! USUALLY .LP 5097,5099c5094,5096 < NEWLINE;PRINTSTRING('****** PROCEDURE DIRECTORY FOR ') < %IF OWNER='' %THEN PRINTSTRING('USER ') %ELSE PRINTSTRING('LIBRARY ') < PRINTSTRING('FILE '.USERFILE.' ******') --- > NEWLINE;PRINTSTRING("****** PROCEDURE DIRECTORY FOR ") > %IF OWNER="" %THEN PRINTSTRING("USER ") %ELSE PRINTSTRING("LIBRARY ") > PRINTSTRING("FILE ".USERFILE." ******") 5101c5098 < PRINTSTRING( ' NO OF PROCEDURES SAVED/FORGOTTEN = ');WRITE(ARG1,8) --- > PRINTSTRING( " NO OF PROCEDURES SAVED/FORGOTTEN = ");WRITE(ARG1,8) 5103c5100 < PRINTSTRING(' ENTRY NO START PAGE START INDEX PROCEDURE NAME') --- > PRINTSTRING(" ENTRY NO START PAGE START INDEX PROCEDURE NAME") 5116c5113 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 5125c5122 < %IF FUNNAM(ARG1)='' %THENSTART --- > %IF FUNNAM(ARG1)="" %THENSTART 5127c5124 < PRINTSTRING(' FORGOTTEN PROCEDURE ') --- > PRINTSTRING(" FORGOTTEN PROCEDURE ") 5136c5133 < PRINTSTRING('****** TEXT AREA ******') --- > PRINTSTRING("****** TEXT AREA ******") 5149c5146 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,11,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,11,IN) 5157c5154 < %UNLESS FUNNAM(ARG1)='' %THENSTART --- > %UNLESS FUNNAM(ARG1)="" %THENSTART 5184,5185c5181,5182 < %IF MDENTS=0 %THEN PRSTRING('NO FILES CREATED YET') %AND ->SF2 < PRSTRING(' LOGO MASTER DIRECTORY ') --- > %IF MDENTS=0 %THEN PRSTRING("NO FILES CREATED YET") %AND ->SF2 > PRSTRING(" LOGO MASTER DIRECTORY ") 5187c5184 < PRSTRING(' ENTRY NO FILENAME ') --- > PRSTRING(" ENTRY NO FILENAME ") 5199c5196 < ERROR('USER INTERRUPT - PROCESS ABANDONNED',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - PROCESS ABANDONNED",EMPTY,1,IN) 5205c5202 < %IF UDNAM(ARG1)='' %THEN PRSTRING('FORGOTTEN FILE') %ELSESTART --- > %IF UDNAM(ARG1)="" %THEN PRSTRING("FORGOTTEN FILE") %ELSESTART 5227c5224 < ERROR('ABORT MUST HAVE A POSITIVE NUMBER AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("ABORT MUST HAVE A POSITIVE NUMBER AS ARGUMENT - ",ARG1,1,IN) 5245c5242 < ERROR('CANNOT CONTINUE FROM LAST ERROR',EMPTY,1,IN) --- > ERROR("CANNOT CONTINUE FROM LAST ERROR",EMPTY,1,IN) 5259c5256 < ERROR('NEGATIVE SECOND ARG FOR SENDBACK - ',EMPTY,1,IN) --- > ERROR("NEGATIVE SECOND ARG FOR SENDBACK - ",EMPTY,1,IN) 5268c5265 < ERROR('SENDBACK TO WHERE? ',ARG2,1,IN) --- > ERROR("SENDBACK TO WHERE? ",ARG2,1,IN) 5287c5284 < ERROR('FN FOR SENDBACK NOT OUTSTANDING - ',%C --- > ERROR("FN FOR SENDBACK NOT OUTSTANDING - ",%C 5296c5293 < %WHILE ARG1#NIL %THEN %CYCLE --- > %WHILE ARG1#NIL %CYCLE 5301c5298 < ERROR('',EMPTY,0,IN) --- > ERROR("",EMPTY,0,IN) 5310c5307 < PRSTRING('CALLUSER CALLED FROM:-') --- > PRSTRING("CALLUSER CALLED FROM:-") 5316c5313 < %WHILE BNAME(ARG2)#0 %THEN ARG2=ARG2-1 --- > ARG2=ARG2-1 %WHILE BNAME(ARG2)#0 5321c5318 < PRSTRING('NO LOCALS') --- > PRSTRING("NO LOCALS") 5327c5324 < PRSTRING(':-');PRINTEL(BVALUE(ARG2)) --- > PRSTRING(":-");PRINTEL(BVALUE(ARG2)) 5365c5362 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 5391c5388 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 5399c5396 < PRSTRING(':-') --- > PRSTRING(":-") 5424c5421 < ERROR('ABBREV MUST HAVE A WORD AS FIRST ARGUMENT - ',ARG1,1,IN) --- > ERROR("ABBREV MUST HAVE A WORD AS FIRST ARGUMENT - ",ARG1,1,IN) 5428c5425 < ERROR('ABBREV MUST HAVE A WORD AS SECOND ARGUMENT - ',ARG2,1,IN) --- > ERROR("ABBREV MUST HAVE A WORD AS SECOND ARGUMENT - ",ARG2,1,IN) 5432c5429 < ERROR('UNDEFINED PROCEDURE FOR ABBREV - ',ARG1,1,IN) --- > ERROR("UNDEFINED PROCEDURE FOR ABBREV - ",ARG1,1,IN) 5443,5444c5440,5441 < ERROR('YOU CANNOT USE ONE OF LOGOS OWN PROCEDURE NAMES'. %C < ' AS AN ABBREVIATION - ',ARG2,1,IN) --- > ERROR("YOU CANNOT USE ONE OF LOGOS OWN PROCEDURE NAMES". %C > " AS AN ABBREVIATION - ",ARG2,1,IN) 5452,5455c5449,5452 < PRSTRING(' IS') < %IF REDEF=1 %THEN PRSTRING(' REDEFINED') %ELSEC < PRSTRING(' DEFINED') < PRSTRING(' AS AN ABBREVIATION FOR ') --- > PRSTRING(" IS") > %IF REDEF=1 %THEN PRSTRING(" REDEFINED") %ELSEC > PRSTRING(" DEFINED") > PRSTRING(" AS AN ABBREVIATION FOR ") 5466c5463 < ERROR('MFIRST MUST HAVE A NON-NULL LIST AS FIRST ARGUMENT -',ARG1,1,IN) --- > ERROR("MFIRST MUST HAVE A NON-NULL LIST AS FIRST ARGUMENT -",ARG1,1,IN) 5470c5467 < ERROR('LIST EMBEDDED IN PROCEDURE DEFN CANNOT BE UPDATED - ', %C --- > ERROR("LIST EMBEDDED IN PROCEDURE DEFN CANNOT BE UPDATED - ", %C 5483c5480 < ERROR('MBUTFIRST MUST HAVE A NON EMPTY LIST AS FIRST ARGUMENT - ', %C --- > ERROR("MBUTFIRST MUST HAVE A NON EMPTY LIST AS FIRST ARGUMENT - ", %C 5488c5485 < ERROR('LIST EMBEDDED IN PROCEDURE DEFN CANNOT BE UPDATED - ', %C --- > ERROR("LIST EMBEDDED IN PROCEDURE DEFN CANNOT BE UPDATED - ", %C 5493c5490 < ERROR('MBUTFIRST MUST HAVE A LIST AS SECOND ARGUMENT - ',ARG2,1,IN) --- > ERROR("MBUTFIRST MUST HAVE A LIST AS SECOND ARGUMENT - ",ARG2,1,IN) 5504c5501 < ERROR('PACK MUST HAVE A LIST AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("PACK MUST HAVE A LIST AS ARGUMENT - ",ARG1,1,IN) 5507c5504 < WSTR1='' --- > WSTR1="" 5516c5513 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 5533c5530 < ERROR('CAN ONLY PACK SINGLE LETTERS OR DIGITS - ',ARG2,1,IN) --- > ERROR("CAN ONLY PACK SINGLE LETTERS OR DIGITS - ",ARG2,1,IN) 5536c5533 < ERROR('WORD LENGTH EXCEEDED - ',ARG1,1,IN) --- > ERROR("WORD LENGTH EXCEEDED - ",ARG1,1,IN) 5549c5546 < ERROR('UNPACK MUST HAVE A WORD OR NUMBER AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("UNPACK MUST HAVE A WORD OR NUMBER AS ARGUMENT - ",ARG1,1,IN) 5556c5553 < W1=PUT(FROMSTRING(WSTR1,ARG2,ARG2)) --- > W1=PUT(SUBSTRING(WSTR1,ARG2,ARG2)) 5579c5576 < PRSTRING('FILE TIDIED');NOOLINE(1) --- > PRSTRING("FILE TIDIED");NOOLINE(1) 5583c5580 < DESTROY('T#LOGOSTK') --- > DESTROY("T#LOGOSTK") 5591c5588 < DESTROY('T#LOGOSTK') --- > DESTROY("T#LOGOSTK") 5620c5617 < ERROR('VALUE OF WHAT? ',ARG1,1,IN) --- > ERROR("VALUE OF WHAT? ",ARG1,1,IN) 5626c5623 < ERROR('NO VALUE HAS BEEN GIVEN TO VARIABLE - ',ARG1,0,IN) --- > ERROR("NO VALUE HAS BEEN GIVEN TO VARIABLE - ",ARG1,0,IN) 5638c5635 < ERROR('REPEAT NEEDS A NON-NEGATIVE NUMBER - ',ARG1,1,IN) --- > ERROR("REPEAT NEEDS A NON-NEGATIVE NUMBER - ",ARG1,1,IN) 5671c5668 < ! ERROR('DOLOGO MUST HAVE A LIST AS ARGUMENT - ',ARG1,1,IN) --- > ! ERROR("DOLOGO MUST HAVE A LIST AS ARGUMENT - ",ARG1,1,IN) 5684c5681 < ERROR('RANDOM MUST HAVE A NUMBER AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("RANDOM MUST HAVE A NUMBER AS ARGUMENT - ",ARG1,1,IN) 5721c5718 < %WHILE TL(ARG2)#NIL %THEN ARG2=TL(ARG2) --- > ARG2=TL(ARG2) %WHILE TL(ARG2)#NIL 5735c5732 < LIST(MASNUM.'LOGALERT') --- > LIST(MASNUM."LOGALERT") 5744c5741 < PRSTRING('SYSTEM FILE '.TDEVNAMES(ARG1).' NEEDS RESTORING.') --- > PRSTRING("SYSTEM FILE ".TDEVNAMES(ARG1)." NEEDS RESTORING.") 5746c5743 < PRSTRING('SET PERMIT W,ALL AFTER RESTORE.') --- > PRSTRING("SET PERMIT W,ALL AFTER RESTORE.") 5752c5749 < PRSTRING('SYSTEM FILE '.SYSFILES(ARG1).' NEEDS RESTORING.') --- > PRSTRING("SYSTEM FILE ".SYSFILES(ARG1)." NEEDS RESTORING.") 5754c5751 < PRSTRING('SET PERMIT RS,ALL AFTER RESTORE.') --- > PRSTRING("SET PERMIT RS,ALL AFTER RESTORE.") 5763c5760 < DUMP('USER REQUEST') --- > DUMP("USER REQUEST") 5773,5775c5770,5772 < DESTROY('T#TEMP') < PRSTRING('TEMPORARY FILE DESTROYED');NOOLINE(1) < PRSTRING('LOADED AND READY');NOOLINE(3) --- > DESTROY("T#TEMP") > PRSTRING("TEMPORARY FILE DESTROYED");NOOLINE(1) > PRSTRING("LOADED AND READY");NOOLINE(3) 5815c5812 < ERROR('SETELIM NEEDS A POSITIVE NUMBER - ',ARG1,1,IN) --- > ERROR("SETELIM NEEDS A POSITIVE NUMBER - ",ARG1,1,IN) 5831,5832c5828,5829 < PRSTRING( ' AVERAGE NO OF ACCESSES OF WA= ');WRITE(ARG1,6) < NOOLINE(1);PRSTRING( ' WHERE NO OF WORDS HASHED= ') --- > PRSTRING( " AVERAGE NO OF ACCESSES OF WA= ");WRITE(ARG1,6) > NOOLINE(1);PRSTRING( " WHERE NO OF WORDS HASHED= ") 5834c5831 < PRSTRING( ' AND TOTAL NO OF ACCESSES OF WA= ') --- > PRSTRING( " AND TOTAL NO OF ACCESSES OF WA= ") 5837c5834 < PRSTRING( ' DUMPING INFO TO FILE HASHINFO');NOOLINE(1) --- > PRSTRING( " DUMPING INFO TO FILE HASHINFO");NOOLINE(1) 5841c5838 < NOOLINE(1);PRSTRING( ' ORIG HASH VALUE=') --- > NOOLINE(1);PRSTRING( " ORIG HASH VALUE=") 5843,5844c5840,5841 < PRSTRING( ' ACHIEVED ENTRY KEY=');WRITE(ARG1,5) < PRSTRING( ' WORD= ');PRSTRING(WA(ARG1)) --- > PRSTRING( " ACHIEVED ENTRY KEY=");WRITE(ARG1,5) > PRSTRING( " WORD= ");PRSTRING(WA(ARG1)) 5847c5844 < SELECT OUTPUT(0);PRSTRING( ' FILE HASH INFO WRITTEN');NOOLINE(1) --- > SELECT OUTPUT(0);PRSTRING( " FILE HASH INFO WRITTEN");NOOLINE(1) 5857c5854 < ERROR('MAKEASSOC MUST HAVE A WORD AS FIRST ARGUMENT - ',ARG1,1,IN) --- > ERROR("MAKEASSOC MUST HAVE A WORD AS FIRST ARGUMENT - ",ARG1,1,IN) 5877c5874 < ERROR('GETASSOC MUST HAVE A WORD AS FIRST ARGUMENT - ',ARG1,1,IN) --- > ERROR("GETASSOC MUST HAVE A WORD AS FIRST ARGUMENT - ",ARG1,1,IN) 5890c5887 < ERROR('REMASSOC MUST HAVE A WORD AS FIRST ARGUMENT - ',ARG1,1,IN) --- > ERROR("REMASSOC MUST HAVE A WORD AS FIRST ARGUMENT - ",ARG1,1,IN) 5905c5902 < ERROR('CLEARASSOC MUST HAVE A WORD AS ARGUMENT - ',ARG1,1,IN) --- > ERROR("CLEARASSOC MUST HAVE A WORD AS ARGUMENT - ",ARG1,1,IN) 5928c5925 < ERROR1('TRACE WHAT? ',ARG3) --- > ERROR1("TRACE WHAT? ",ARG3) 5939c5936 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 5946c5943 < ERROR1('TRACE WHAT? ',ARG1) --- > ERROR1("TRACE WHAT? ",ARG1) 5951c5948 < ERROR1('UNDEFINED PROCEDURE FOR TRACE - ',ARG1) --- > ERROR1("UNDEFINED PROCEDURE FOR TRACE - ",ARG1) 5955c5952 < ERROR1('CANNOT TRACE AN INTERP PROCEDURE - ',ARG1) --- > ERROR1("CANNOT TRACE AN INTERP PROCEDURE - ",ARG1) 5968c5965 < ERROR1('FULLTRACE WHAT? ',ARG3) --- > ERROR1("FULLTRACE WHAT? ",ARG3) 5979c5976 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 5986c5983 < ERROR1('FULLTRACE WHAT? ',ARG1) --- > ERROR1("FULLTRACE WHAT? ",ARG1) 5991c5988 < ERROR1('UNDEFINED PROCEDURE FOR TRACE - ',ARG1) --- > ERROR1("UNDEFINED PROCEDURE FOR TRACE - ",ARG1) 5995c5992 < ERROR1('CANNOT TRACE AN INTERP PROCEDURE - ',ARG1) --- > ERROR1("CANNOT TRACE AN INTERP PROCEDURE - ",ARG1) 6010c6007 < ERROR1('UNTRACE WHAT? ',ARG3) --- > ERROR1("UNTRACE WHAT? ",ARG3) 6021c6018 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 6028c6025 < ERROR1('UNTRACE WHAT? ',ARG1) --- > ERROR1("UNTRACE WHAT? ",ARG1) 6033c6030 < ERROR1('UNDEFINED PROCEDURE FOR UNTRACE - ',ARG1) --- > ERROR1("UNDEFINED PROCEDURE FOR UNTRACE - ",ARG1) 6045c6042 < ERROR('MAPLIST MUST HAVE A LIST AS FIRST ARGUMENT - ',ARG1,1,IN) --- > ERROR("MAPLIST MUST HAVE A LIST AS FIRST ARGUMENT - ",ARG1,1,IN) 6074c6071 < ERROR('INVALID 2ND ARG FOR MAPLIST - ',ARG2,1,IN) --- > ERROR("INVALID 2ND ARG FOR MAPLIST - ",ARG2,1,IN) 6107c6104 < ERROR('APPLIST MUST HAVE A LIST AS FIRST ARGUMENT - ',ARG1,1,IN) --- > ERROR("APPLIST MUST HAVE A LIST AS FIRST ARGUMENT - ",ARG1,1,IN) 6136c6133 < ERROR('INVALID 2ND ARG FOR APPLIST - ',ARG2,1,IN) --- > ERROR("INVALID 2ND ARG FOR APPLIST - ",ARG2,1,IN) 6163c6160 < %IF EACHVAL=UNDEF %THEN ERROR('EACH USED OUT OF CONTEXT',EMPTY,1,IN) %C --- > %IF EACHVAL=UNDEF %THEN ERROR("EACH USED OUT OF CONTEXT",EMPTY,1,IN) %C 6204c6201 < ERROR('INVALID ARG FOR ASSERT -',ARG1,1,IN) --- > ERROR("INVALID ARG FOR ASSERT -",ARG1,1,IN) 6220c6217 < ERROR('INVALID 2ND ARG FOR AMONGQ -',ARG2,1,IN) --- > ERROR("INVALID 2ND ARG FOR AMONGQ -",ARG2,1,IN) 6236c6233 < ERROR('INVALID ARG FOR ISQ -',ARG1,1,IN) --- > ERROR("INVALID ARG FOR ISQ -",ARG1,1,IN) 6248c6245 < ERROR('INVALID 1ST ARG FOR FINDANY -',ARG1,1,IN) --- > ERROR("INVALID 1ST ARG FOR FINDANY -",ARG1,1,IN) 6252c6249 < ERROR('INVALID 2ND ARG FOR FINDANY -',ARG2,1,IN) --- > ERROR("INVALID 2ND ARG FOR FINDANY -",ARG2,1,IN) 6266c6263 < ERROR('INVALID 1ST ARG FOR FINDALL -',ARG1,1,IN) --- > ERROR("INVALID 1ST ARG FOR FINDALL -",ARG1,1,IN) 6270c6267 < ERROR('INVALID 2ND ARG FOR FINDALL -',ARG2,1,IN) --- > ERROR("INVALID 2ND ARG FOR FINDALL -",ARG2,1,IN) 6335c6332 < ERROR('DEVICE CANNOT DO',FN,1,IN) --- > ERROR("DEVICE CANNOT DO",FN,1,IN) 6368c6365 < ERROR('DEVICE CANNOT DO',FN,1,IN) --- > ERROR("DEVICE CANNOT DO",FN,1,IN) 6407c6404 < ERROR('DEVICE CANNOT DO',FN,1,IN) --- > ERROR("DEVICE CANNOT DO",FN,1,IN) 6435c6432 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 6458c6455 < ERROR('DEVICE CANNOT DO',FN,1,IN) --- > ERROR("DEVICE CANNOT DO",FN,1,IN) 6477c6474 < ERROR('DEVICE CANNOT DO' ,FN,1,IN) --- > ERROR("DEVICE CANNOT DO" ,FN,1,IN) 6485c6482 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 6538c6535 < ERROR('DEVICE CANNOT DO',FN,1,IN) --- > ERROR("DEVICE CANNOT DO",FN,1,IN) 6560c6557 < ERROR('DEVICE CANNOT DO',FN,1,IN) --- > ERROR("DEVICE CANNOT DO",FN,1,IN) 6618c6615 < ERROR('DEVICE CANNOT DO',FN,1,IN) --- > ERROR("DEVICE CANNOT DO",FN,1,IN) 6636c6633 < ERROR('DEVICE CANNOT DO',FN,1,IN) --- > ERROR("DEVICE CANNOT DO",FN,1,IN) 6648c6645 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 6660c6657 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 6672c6669 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 6684c6681 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 6722c6719 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 6766c6763 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 6798c6795 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 6811c6808 < ERROR('LIST INPUT REQUIRED FOR ',FN,1,IN) --- > ERROR("LIST INPUT REQUIRED FOR ",FN,1,IN) 6839c6836 < POS1:ERROR('WRONGLY FORMATTED LIST FOR ',FN,1,IN) --- > POS1:ERROR("WRONGLY FORMATTED LIST FOR ",FN,1,IN) 6879c6876 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 6986c6983 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 7023c7020 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 7036c7033 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 7043c7040 < ERROR('NUMBER TOO BIG TO BE PUNCHED',EMPTY,1,IN) --- > ERROR("NUMBER TOO BIG TO BE PUNCHED",EMPTY,1,IN) 7048c7045 < ERROR('NEGATIVE NUMBERS CANNOT BE PUNCHED',EMPTY,1,IN) --- > ERROR("NEGATIVE NUMBERS CANNOT BE PUNCHED",EMPTY,1,IN) 7063c7060 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 7078c7075 < ERROR('NO TURTLE DEVICE ASSIGNED TO DO ',FN,1,IN) --- > ERROR("NO TURTLE DEVICE ASSIGNED TO DO ",FN,1,IN) 7119c7116 < ERROR('YOU ARE NOT CONNECTED TO ANY DEVICE',EMPTY,1,IN) --- > ERROR("YOU ARE NOT CONNECTED TO ANY DEVICE",EMPTY,1,IN) 7123c7120 < %IF TDEV=8 %THEN DISCONNECT(MASNUM.'EXEC26') --- > %IF TDEV=8 %THEN DISCONNECT(MASNUM."EXEC26") 7125c7122 < PRSTRING(WSTR1.' DISCONNECTED');NOOLINE(1) --- > PRSTRING(WSTR1." DISCONNECTED");NOOLINE(1) 7132c7129 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 7179c7176 < %IF TDEV#8 %THEN ERROR ('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR ("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7190c7187 < 'DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > "DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7193c7190 < 'PICTURE NEEDS A WORD FOR FIRST ARG-',ARG1,1,IN) %C --- > "PICTURE NEEDS A WORD FOR FIRST ARG-",ARG1,1,IN) %C 7225c7222 < 'YOU NEED THE GT42 TO RUN MOVIES ',EMPTY,1,IN) %ANDRETURN --- > "YOU NEED THE GT42 TO RUN MOVIES ",EMPTY,1,IN) %ANDRETURN 7227c7224 < 'YOU ARE NOT INSIDE A FRAME ',EMPTY,1,IN) %ANDRETURN --- > "YOU ARE NOT INSIDE A FRAME ",EMPTY,1,IN) %ANDRETURN 7230c7227 < 'INCLUDE NEEDS A WORD ARGUMENT-',ARG1,1,IN) %AND %RETURN --- > "INCLUDE NEEDS A WORD ARGUMENT-",ARG1,1,IN) %AND %RETURN 7233c7230 < 'PICTURE DOES NOT EXIST-',ARG1,1,IN) %AND %RETURN --- > "PICTURE DOES NOT EXIST-",ARG1,1,IN) %AND %RETURN 7248c7245 < 'YOU NEED THE GT42 TO RUN MOVIES',EMPTY,1,IN )%ANDRETURN --- > "YOU NEED THE GT42 TO RUN MOVIES",EMPTY,1,IN )%ANDRETURN 7250c7247 < 'ACTION INSIDE FRAME INVALID',EMPTY,1,IN) %AND%RETURN --- > "ACTION INSIDE FRAME INVALID",EMPTY,1,IN) %AND%RETURN 7254c7251 < PROMP='A:' --- > PROMP="A:" 7272c7269 < 'YOU NEED THE GT42 TO RUN MOVIES' ,EMPTY,1,IN) %ANDRETURN --- > "YOU NEED THE GT42 TO RUN MOVIES" ,EMPTY,1,IN) %ANDRETURN 7274c7271 < 'CUT OUTSIDE FRAME INVALID',EMPTY,1,IN) %AND %RETURN --- > "CUT OUTSIDE FRAME INVALID",EMPTY,1,IN) %AND %RETURN 7286c7283 < ;! 'MOVIE RECORD' IS A --- > ;! "MOVIE RECORD" IS A 7298c7295 < W1=TL(W1) ;! 'POP' MARK --- > W1=TL(W1) ;! "POP" MARK 7303c7300 < %ELSESTART ;! COULD BE A 'HOLD' MARK --- > %ELSESTART ;! COULD BE A "HOLD" MARK 7345c7342 < !*** AND DUMP APPROPRIATE 'WAIT' INSTRUCTIONS --- > !*** AND DUMP APPROPRIATE "WAIT" INSTRUCTIONS 7388c7385 < %IF TDEV#8 %THEN ERROR ('DEVICE CANNOT DO ',FN,1,IN) %C --- > %IF TDEV#8 %THEN ERROR ("DEVICE CANNOT DO ",FN,1,IN) %C 7391c7388 < 'CANNOT ROLL MOVIE INSIDE A FRAME',EMPTY,1,IN) %AND%RETURN --- > "CANNOT ROLL MOVIE INSIDE A FRAME",EMPTY,1,IN) %AND%RETURN 7417c7414 < %WHILE W3#NIL %THEN %CYCLE --- > %WHILE W3#NIL %CYCLE 7426c7423 < %IF TDEV#8 %THEN ERROR('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7429c7426 < 'CRANEFORWARD NEEDS A NUMBER-',ARG1,1,IN) %ANDRETURN --- > "CRANEFORWARD NEEDS A NUMBER-",ARG1,1,IN) %ANDRETURN 7431c7428 < 'CRANE MOVEMENT OUTSIDE FRAME INVALID',EMPTY,1,IN) %ANDRETURN --- > "CRANE MOVEMENT OUTSIDE FRAME INVALID",EMPTY,1,IN) %ANDRETURN 7438c7435 < %WHILE ARG2#NIL %CYCLE ;! CURRENTLY 'GRABBED' --- > %WHILE ARG2#NIL %CYCLE ;! CURRENTLY "GRABBED" 7452c7449 < %IF TDEV#8 %THEN ERROR ('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR ("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7455c7452 < 'CRANEBACKWARD NEEDS A NUMBER-',ARG1,1,IN) %ANDRETURN --- > "CRANEBACKWARD NEEDS A NUMBER-",ARG1,1,IN) %ANDRETURN 7457c7454 < 'CRANE MOVEMENT OUTSIDE FRAME INVALID',EMPTY,1,IN) %ANDRETURN --- > "CRANE MOVEMENT OUTSIDE FRAME INVALID",EMPTY,1,IN) %ANDRETURN 7462c7459 < %IF TDEV#8 %THEN ERROR ('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR ("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7465c7462 < 'CRANELEFT NEEDS A NUMBER-',ARG1,1,IN) %ANDRETURN --- > "CRANELEFT NEEDS A NUMBER-",ARG1,1,IN) %ANDRETURN 7467c7464 < 'CRANE MOVEMENT OUTSIDE FRAME INVALID',EMPTY,1,IN) %C --- > "CRANE MOVEMENT OUTSIDE FRAME INVALID",EMPTY,1,IN) %C 7474c7471 < %IF TDEV#8 %THEN ERROR ('DEVICE CANNOT DO ',FN,1,IN) %AND %RETURN --- > %IF TDEV#8 %THEN ERROR ("DEVICE CANNOT DO ",FN,1,IN) %AND %RETURN 7477c7474 < 'CRANERIGHT NEEDS A NUMBER',ARG1,1,IN) %ANDRETURN --- > "CRANERIGHT NEEDS A NUMBER",ARG1,1,IN) %ANDRETURN 7479c7476 < 'CRANE MOVEMENT OUTSIDE FRAME INVALID',EMPTY,1,IN) %C --- > "CRANE MOVEMENT OUTSIDE FRAME INVALID",EMPTY,1,IN) %C 7486c7483 < %IF TDEV#8 %THEN ERROR('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7496c7493 < %IF TDEV#8 %THEN ERROR('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7499c7496 < 'I CAN''T GRAB ',ARG1,1,IN) %ANDRETURN --- > "I CAN""T GRAB ",ARG1,1,IN) %ANDRETURN 7501c7498 < 'GRAB NOT VALID OUTSIDE FRAME',EMPTY,1,IN) %ANDRETURN --- > "GRAB NOT VALID OUTSIDE FRAME",EMPTY,1,IN) %ANDRETURN 7504c7501 < 'GRAB FAILS - PICTURE NOT IN GT42 -',ARG1,1,IN) %C --- > "GRAB FAILS - PICTURE NOT IN GT42 -",ARG1,1,IN) %C 7507c7504 < 'I HAVE ALREADY GRABBED ',ARG1,1,IN) %ANDRETURN --- > "I HAVE ALREADY GRABBED ",ARG1,1,IN) %ANDRETURN 7515c7512 < %IF TDEV#8 %THEN ERROR('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7518c7515 < 'I CAN''T RELEASE ',ARG1,1,IN) %ANDRETURN --- > "I CAN""T RELEASE ",ARG1,1,IN) %ANDRETURN 7520c7517 < 'RELEASE NOT VALID OUTSIDE FRAME',EMPTY,1,IN) %ANDRETURN --- > "RELEASE NOT VALID OUTSIDE FRAME",EMPTY,1,IN) %ANDRETURN 7522c7519 < 'I HAVE NOT GRABBED ',ARG1,1,IN) %ANDRETURN --- > "I HAVE NOT GRABBED ",ARG1,1,IN) %ANDRETURN 7528c7525 < %IF TDEV#8 %THEN ERROR ('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR ("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7531c7528 < 'CRANE MOVEMENT OUTSDIE FRAME INVALID',EMPTY,1,IN) %C --- > "CRANE MOVEMENT OUTSDIE FRAME INVALID",EMPTY,1,IN) %C 7534c7531 < 'SETCRANE NEEDS A LIST-',ARG1,1,IN) %AND %RETURN --- > "SETCRANE NEEDS A LIST-",ARG1,1,IN) %AND %RETURN 7536c7533 < W1=GETNUMB(ARG1,'SETCRANE') ;! CHECK ALL CRANE --- > W1=GETNUMB(ARG1,"SETCRANE") ;! CHECK ALL CRANE 7538c7535 < W2=GETNUMB(ARG1,'SETCRANE') ;!COORDS BEFORE --- > W2=GETNUMB(ARG1,"SETCRANE") ;!COORDS BEFORE 7540c7537 < W3=GETNUMB(ARG1,'SETCRANE') ;!ALTERING POSITION --- > W3=GETNUMB(ARG1,"SETCRANE") ;!ALTERING POSITION 7549c7546 < %IF TDEV#8 %THEN ERROR('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7552c7549 < 'OMIT NEEDS A WORD-',ARG1,1,IN) %AND %RETURN --- > "OMIT NEEDS A WORD-",ARG1,1,IN) %AND %RETURN 7554c7551 < 'OMIT OUTSIDE FRAME INVALID',EMPTY,1,IN) %AND %RETURN --- > "OMIT OUTSIDE FRAME INVALID",EMPTY,1,IN) %AND %RETURN 7557c7554 < 'OMIT FAILS - PICTURE NOT IN GT42 -',ARG1,1,IN) %C --- > "OMIT FAILS - PICTURE NOT IN GT42 -",ARG1,1,IN) %C 7568c7565 < %IF TDEV#8 %THEN ERROR('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7574c7571 < %IF TDEV#8 %THEN ERROR('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7576c7573 < 'CRANE COMMAND OUTSIDE FRAME NOT VALID',EMPTY,1,IN) %C --- > "CRANE COMMAND OUTSIDE FRAME NOT VALID",EMPTY,1,IN) %C 7587c7584 < %IF TDEV#8 %THEN ERROR('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7598c7595 < %IF TDEV#8 %THEN ERROR('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV#8 %THEN ERROR("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7601c7598 < 'FRAME SPEED NEEDS A NUMBER',ARG1,1,IN) %ANDRETURN --- > "FRAME SPEED NEEDS A NUMBER",ARG1,1,IN) %ANDRETURN 7603c7600 < 'CANNOT ADJUST FRAMESPEED WITHIN A FRAME',EMPTY,1,IN) %C --- > "CANNOT ADJUST FRAMESPEED WITHIN A FRAME",EMPTY,1,IN) %C 7606c7603 < 'FRAMESPEED NEEDS A +VE NUMBER',ARG1,1,IN) %ANDRETURN --- > "FRAMESPEED NEEDS A +VE NUMBER",ARG1,1,IN) %ANDRETURN 7612c7609 < %IF TDEV# 8 %THEN ERROR ('DEVICE CANNOT DO ',FN,1,IN) %ANDRETURN --- > %IF TDEV# 8 %THEN ERROR ("DEVICE CANNOT DO ",FN,1,IN) %ANDRETURN 7614c7611 < 'KILLFRAME FAILS - NO FRAME CURRENT',EMPTY,1,IN) %C --- > "KILLFRAME FAILS - NO FRAME CURRENT",EMPTY,1,IN) %C 7618c7615 < PRSTRING('*** FRAME KILLED '.TIME.' ***') --- > PRSTRING("*** FRAME KILLED ".TIME." ***") 7639c7636 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 7645,7646c7642,7643 < ERROR('THE FIRST INPUT FOR NOTE MUST LIE BETWEEN 0 AND 48. < IT WAS GIVEN ', ARG1<<8!NM,1,IN) --- > ERROR("THE FIRST INPUT FOR NOTE MUST LIE BETWEEN 0 AND 48. > IT WAS GIVEN ", ARG1<<8!NM,1,IN) 7650,7651c7647,7648 < ERROR('THE SECOND INPUT FOR NOTE MUST LIE BETWEEN 1 AND 256. < IT WAS GIVEN ', ARG2<<8!NM,1,IN) --- > ERROR("THE SECOND INPUT FOR NOTE MUST LIE BETWEEN 1 AND 256. > IT WAS GIVEN ", ARG2<<8!NM,1,IN) 7666c7663 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 7736c7733 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 7748c7745 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 7762c7759 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 7776c7773 < ERROR('DEVICE CANNOT DO ',FN,1,IN) --- > ERROR("DEVICE CANNOT DO ",FN,1,IN) 7811c7808 < ERROR('USER INTERRUPT - TURTLE DEVICE RESET',EMPTY,1,IN) --- > ERROR("USER INTERRUPT - TURTLE DEVICE RESET",EMPTY,1,IN) 7814c7811 < ERROR('USER INTERRUPT',EMPTY,0,IN) --- > ERROR("USER INTERRUPT",EMPTY,0,IN) 7825c7822 < ERROR('EVALIMIT EXCEEDED',EMPTY,1,IN) --- > ERROR("EVALIMIT EXCEEDED",EMPTY,1,IN) 7856c7853 < %WHILE WORK1&MARKERMASK # RANGBRKS %THEN %CYCLE --- > %WHILE WORK1&MARKERMASK # RANGBRKS %CYCLE 7892c7889 < ERROR('UNDEFINED PROCEDURE - ',FN,0,IN) --- > ERROR("UNDEFINED PROCEDURE - ",FN,0,IN) 7912c7909 < PRINTSTRING('ARG'.TOSTRING(WORK1+48).' = ') --- > PRINTSTRING("ARG".TOSTRING(WORK1+48)." = ") 7914c7911 < PRINTSTRING(', ') --- > PRINTSTRING(", ") 7927c7924 < ERROR('NOT ENOUGH ARGS FOR ',FN,1,IN) --- > ERROR("NOT ENOUGH ARGS FOR ",FN,1,IN) 7935,7936c7932,7933 < PRINTEL(HD(WORK1));PRINTSTRING(' = ') < PRINTEL(BVALUE(USERENV-ARGNO+COUNT));PRINTSTRING(', ') --- > PRINTEL(HD(WORK1));PRINTSTRING(" = ") > PRINTEL(BVALUE(USERENV-ARGNO+COUNT));PRINTSTRING(", ") 7948c7945 < OUTR(2):SPACES(INDENT);PRINTSTRING('RESULT = ') --- > OUTR(2):SPACES(INDENT);PRINTSTRING("RESULT = ") 7957c7954 < ERROR('ERROR IN FN TYPE FOR EVAL',EMPTY,1,IN) --- > ERROR("ERROR IN FN TYPE FOR EVAL",EMPTY,1,IN) 8000c7997 < %IF FN=RPAR %THEN %RESULT = POLIST; ! ')' --- > %IF FN=RPAR %THEN %RESULT = POLIST; ! ")" 8007c8004 < %IF FN=LBRAK %THEN %START; ! '[' --- > %IF FN=LBRAK %THEN %START; ! "[" 8020c8017 < %IF FN = RBRAK %THEN %START; ! ']' --- > %IF FN = RBRAK %THEN %START; ! "]" 8032c8029 < %IF FN=LPAR %THENSTART; ! '(' --- > %IF FN=LPAR %THENSTART; ! "(" 8035c8032 < ! RETURNS ON MATCHING ')' OR END OF LINE --- > ! RETURNS ON MATCHING ")" OR END OF LINE 8051c8048 < ! IS MATCHING '>>' OR END OF LINE --- > ! IS MATCHING ">>" OR END OF LINE 8064c8061 < %IF FN=RPAR %OR FN=RANGBRKS %THENSTART; ! SPURIOUS ')' OR '>>' --- > %IF FN=RPAR %OR FN=RANGBRKS %THENSTART; ! SPURIOUS ")" OR ">>" 8256c8253 < %WHILE TL(L)#NIL %THEN L=TL(L) --- > L=TL(L) %WHILE TL(L)#NIL 8351c8348 < %UNTIL ITEM=FINISH %CYCLE; ! PARSE LINES UP TO 'FINISH' --- > %UNTIL ITEM=FINISH %CYCLE; ! PARSE LINES UP TO "FINISH" 8354c8351 < COPYLINE; ! USING 'DEFINE' - COPY LINE TO SOURCE --- > COPYLINE; ! USING "DEFINE" - COPY LINE TO SOURCE 8419c8416 < BADERROR('SOURCE FILE SPACE OVWRFLOW',EMPTY) --- > BADERROR("SOURCE FILE SPACE OVWRFLOW",EMPTY) 8470c8467 < BADERROR('SOURCE FILE SPACE OVERFLOW',EMPTY) --- > BADERROR("SOURCE FILE SPACE OVERFLOW",EMPTY) 8493c8490 < %WHILE ITEM#END %THEN %CYCLE --- > %WHILE ITEM#END %CYCLE 8534c8531 < %IF REDEF=1 %THEN PRSTRING(' REDEFINED') %ELSE PRSTRING(' DEFINED') --- > %IF REDEF=1 %THEN PRSTRING(" REDEFINED") %ELSE PRSTRING(" DEFINED") 8676c8673 < PRINTSTRING('UNDEF') --- > PRINTSTRING("UNDEF") 8679c8676 < PRSTRING('DUMPING');NOOLINE(1) --- > PRSTRING("DUMPING");NOOLINE(1) 8682,8683c8679,8680 < PRINTSTRING('********* DUMP STARTS **********'.DATE.' '.TIME) < NEWLINE;PRINTSTRING('ERROR - '.ERRMESS);NEWLINE --- > PRINTSTRING("********* DUMP STARTS **********".DATE." ".TIME) > NEWLINE;PRINTSTRING("ERROR - ".ERRMESS);NEWLINE 8685,8687c8682,8684 < PRINTSTRING('WORD AREA');NEWLINE < PRINTSTRING(' INDEX WORD BASE VALUE ') < PRINTSTRING('FNTYPE FNSWITCH FNARGNO/PREC LIST INDEX') --- > PRINTSTRING("WORD AREA");NEWLINE > PRINTSTRING(" INDEX WORD BASE VALUE ") > PRINTSTRING("FNTYPE FNSWITCH FNARGNO/PREC LIST INDEX") 8709,8711c8706,8708 < PRINTSTRING('LIST AREA');NEWLINES(2) < PRINTSTRING('FUNCTION SPACE');NEWLINE < %IF LPOINT1=LISTOP %THENSTART;PRINTSTRING('NO NEW FNSPACE');NEWLINE --- > PRINTSTRING("LIST AREA");NEWLINES(2) > PRINTSTRING("FUNCTION SPACE");NEWLINE > %IF LPOINT1=LISTOP %THENSTART;PRINTSTRING("NO NEW FNSPACE");NEWLINE 8721,8722c8718,8719 < SEMISP:PRINTSTRING('CURRENT SEMISPACE');NEWLINE < %IF LPOINT=LABASE %THENSTART;PRINTSTRING('NO LIST SPACE');NEWLINE --- > SEMISP:PRINTSTRING("CURRENT SEMISPACE");NEWLINE > %IF LPOINT=LABASE %THENSTART;PRINTSTRING("NO LIST SPACE");NEWLINE 8730c8727 < ENV:PRINTSTRING('LOCAL ENVIRS');NEWLINE --- > ENV:PRINTSTRING("LOCAL ENVIRS");NEWLINE 8732c8729 < PRINTSTRING('NO LOCALS' );NEWLINE --- > PRINTSTRING("NO LOCALS" );NEWLINE 8741c8738 < PRINTSTRING('USER STACK') --- > PRINTSTRING("USER STACK") 8744c8741 < PRINTSTRING('STACK EMPTY') --- > PRINTSTRING("STACK EMPTY") 8755c8752 < PRSTRING('DUMPED');NOOLINE(1) --- > PRSTRING("DUMPED");NOOLINE(1) 8772c8769 < %IF NAME='END' %THENRETURN --- > %IF NAME="END" %THENRETURN 8778c8775 < FNVAL(HASH(NAME)>>8)=SYSVAL --- > FNVAL(HASHFN(NAME)>>8)=SYSVAL 8785c8782 < MASFILE='LOGOFILE' --- > MASFILE="LOGOFILE" 8797c8794 < SPACE4=' ' --- > SPACE4=" " 8902,8903c8899,8900 < %IF IN#'ENDUP' %THENSTART < NAMES(I)=HASH(IN) --- > %IF IN#"ENDUP" %THENSTART > NAMES(I)=HASHFN(IN) 9013,9014c9010,9011 < NEWSMFILE('T#LOGOSTK,436029') < DEFINE('6,T#LOGOSTK') --- > NEWSMFILE("T#LOGOSTK,436029") > DEFINE("6,T#LOGOSTK") 9029c9026 < DEFINE('2,'.MASNUM.'LOGNAM910') --- > DEFINE("2,".MASNUM."LOGNAM910") 9032c9029 < DEFINE('1,T#DUMP') --- > DEFINE("1,T#DUMP") 9034c9031 < PRINTSTRING('LOGO - VERSION 9.10 (06/12/81) '.TIME) --- > PRINTSTRING("LOGO - VERSION 9.10 (06/12/81) ".TIME) 9037c9034 < PRINTSTRING('REINITIALISING AND RELOADING SAVED FUNCTIONS') --- > PRINTSTRING("REINITIALISING AND RELOADING SAVED FUNCTIONS")