(FILECREATED "12-Apr-85 19:07:08" {DSK}<LISPFILES>HTHOMPSON>TRUEHAX.;4 2650 changes to: (FNS TrueRadixRead TrueRadixPrint TRP1 TRS) (VARS TRUEHAXCOMS \TRSStream) previous date: " 5-Apr-85 20:16:37" {DSK}<LISPFILES>HTHOMPSON>TRUEHAX.;1) (* Copyright (c) 1985 by Henry Thompson. All rights reserved.) (PRETTYCOMPRINT TRUEHAXCOMS) (RPAQQ TRUEHAXCOMS ((FNS TRP1 TRS TrueMod TrueRadixPrint TrueRadixRead) (VARS (\TRSStream) (\TRSString)) (GLOBALVARS \TRSStream \TRSString))) (DEFINEQ (TRP1 [LAMBDA (N R F) (* ht: "12-Apr-85 16:33") (if N~=0 then (TRP1 (N-(TrueMod N R))/R R F) (PRIN1 (let ((res (TrueMod N R))) (if (GREATERP res 9) then (CHARACTER 55+res) else res)) F]) (TRS [LAMBDA (N R OLD) (* ht: "12-Apr-85 16:25") (let [(f (OR \TRSStream (SETQ \TRSStream (OPENSTRINGSTREAM (SETQ \TRSString (ALLOCSTRING 100)) 'BOTH] (SETFILEPTR f 0) (TrueRadixPrint N R f) (SUBSTRING \TRSString 1 (GETFILEPTR f) OLD]) (TrueMod [LAMBDA (X N) (* ht: "24-Feb-85 13:53") (if (AND (ILESSP N 0) (ILESSP X 0)) then (if (IREMAINDER X N)=0 then 0 else (IREMAINDER X N) -N) else (IMOD X N]) (TrueRadixPrint [LAMBDA (N R F) (* ht: "12-Apr-85 16:18") (if N=0 then (PRIN1 N F) elseif (AND (ILESSP N 0) (IGREATERP R 0)) then (PRIN1 '- F) (TRP1 (-N) R F) else (TRP1 N R F]) (TrueRadixRead [LAMBDA (R F TAB) (* ht: "12-Apr-85 19:04") (while (GETSYNTAX (PEEKC F) TAB)= 'SEPRCHAR do (READC F TAB)) (bind (r ← 0) c cc mFlg first (if (PEEKC F)= '- then (mFlg←T) (READC F TAB)) while [OR (NUMBERP c←(READC F TAB)) (PROGN cc←(CHCON1 c) - 55 (AND (IGREATERP cc 9) (ILESSP cc R] do (r←(OR cc c)+r*R) (cc←NIL) finally (RETURN (if mFlg then (-r) else r]) ) (RPAQQ \TRSStream NIL) (RPAQQ \TRSString NIL) (DECLARE: DOEVAL@COMPILE DONTCOPY (GLOBALVARS \TRSStream \TRSString) ) (PUTPROPS TRUEHAX COPYRIGHT ("Henry Thompson" 1985)) (DECLARE: DONTCOPY (FILEMAP (NIL (524 2447 (TRP1 534 . 856) (TRS 858 . 1214) (TrueMod 1216 . 1515) (TrueRadixPrint 1517 . 1834) (TrueRadixRead 1836 . 2445))))) STOP