FICHIER TEXT "HP41" DU TRANSLATER PROGRAM NULL STO 02 X>0? ISG GLOBAL TEXT 10 CRFLD LBL 00 STO 03 LN1+X DSE GLOBAL TEXT 11 DELCHR LBL 01 STO 04 X<0? VIEW GLOBAL TEXT 12 DELREC LBL 02 STO 05 X=0? _REG GLOBAL TEXT 13 EMDIR LBL 03 STO 06 INT ASTO GLOBAL TEXT 14 FLSIZE LBL 04 STO 07 FRC ARCL GLOBAL GETAS LBL 05 STO 08 D-R FIX X<> GETKEY LBL 06 STO 09 R-D SCI LBL -TIME- C GETP LBL 07 STO 10 HMS ENG GTO ADATE GETR LBL 08 STO 11 HR TONE GTO ALMCAT GETREC LBL 09 STO 12 RND XROM GTO ALMNOW GETRX LBL 10 STO 13 OCT XROM GTO ATIME GETSUB LBL 11 STO 14 CL_ XROM GTO ATIME24 GETX LBL 12 STO 15 X<>Y XROM GTO CLK12 INSCHR LBL 13 + PI XROM GTO CLK24 INSREC LBL 14 - CLST XROM GTO CLKT PASN 0 * R^ XROM GTO CLKTD PCLPS 1 / RDN XROM GTO CLOCK POSA 2 XY? CLX CF GTO DATE PSIZE 4 X<=Y? X=Y? FS?C GTO DATE+ PURFL 5 _+ X#Y? FC?C GTO DDAYS RCLFLAG 6 _- SIGN FS? GTO DMY RCLPT 7 HMS+ X<=0? FC? GTO DOW RCLPTA 8 HMS- MEAN GTO.EXQ IND XEQ MDY REGMOVE 9 MOD SDEV SPARE XEQ RCLAF REGSWAP . % AVIEW SPARE XEQ RCLSW SAVEAS EEX %CH CLD GTO 00 XEQ RUNSW SAVEP NEG P-R DEG GTO 01 XEQ SETAF SAVER GTO R-P RAD GTO 02 XEQ SETDATE SAVERX XEQ LN GRAD GTO 03 XEQ SETIME SAVEX W X^2 ENTER^ GTO 04 XEQ SETSW SEEKPT RCL 00 SQRT STOP GTO 05 XEQ STOPSW SEEKPTA RCL 01 Y^X RTN GTO 06 XEQ SW SIZE? RCL 02 CHS BEEP GTO 07 XEQ T+X STOFLAG RCL 03 E^X CLA GTO 08 XEQ TIME X<>F RCL 04 LOG ASHF GTO 09 XEQ XYZALM XTOA RCL 05 10^X PSE GTO 10 XEQ RCL 06 E^X-1 CLRG GTO 11 XEQ RCL 07 SIN AOFF GTO 12 XEQ -EXT FCN 1C -PRINTER 2E RCL 08 COS AON GTO 13 TEXT 0 ALENG ACA RCL 09 TAN OFF GTO 14 TEXT 1 ANUM ACCHR RCL 10 ASIN PROMPT GLOBAL TEXT 2 APPCHR ACCOL RCL 11 ACOS ADV GLOBAL TEXT 3 APPREC ACSPEC RCL 12 ATAN RCL GLOBAL TEXT 4 ARCLREC ACX RCL 13 DEC STO GLOBAL TEXT 5 AROT BLDSPEC RCL 14 1/X ST+ GLOBAL TEXT 6 ATOX LIST RCL 15 ABS ST- GLOBAL TEXT 7 CLFL PRA STO 00 FACT ST* GLOBAL TEXT 8 CLKEYS XROM "PRAXIS" STO 01 X#0? ST/ GLOBAL TEXT 9 CRFLAS PRBUF PRFLAGS LOCAL OUTXB PENUP CARD RDR 1F BUF-XA X<>FLAG PRKEYS MANIO OUTP PINIT MRG BUF-XB PRP OUTA POLL PLOT RDTA CF33 XROM "PRPLOT" PWRDN POLLD PLREGX RDTAX CMD --- XROM "PRPLOTP" PWRUP POLLE RATIO RSUB DDL AND PRREG REMOTE POLLUNC RPLOT VER DDT ASIZE? PRREGX SELECT RCLSEL SCALE WALL FRAV? A-XL PR STOPIO SRQ? SETGU WDTA FRNS? A-XR PRSTK TRIGGER STAT SETUU WDTAX GET A-XX PRX XFER TICLEN WPRV GTL BININ REGPLOT XFERC UNCLIP WSTS IDY BINVIEW SKPCHR -X MASS 1A XFERCL WHERE 7CLREG IFCR? BIT? SKPCOL COPYFL XFERE XAXIS 7DSP0 IFC HEXIN STKPLOT DIRX XFERN XAXISO 7DSP1 INBIN HEXVIEW FMT FLLENG -ADV CTL FN YAXIS 7DSP2 INBUFX NOT FLTYPE ADROFF YAXISO 7DSP3 LAD OR MCOPY ADRON 7DSP4 LPD OCTIN -MASS ST 1H MCOPYPV DDL 7DSP5 MIPT OCTVIEW CREATE MVERIFY DDT PLOTTER 2A- 7DSP6 MONITOR ROMCHKX DIR -X EXT FCN LAD PCLBUF 7DSP7 NRD ROTXY NEWM ALENGIO SEND PDIR 7DSP8 NRE XOR PURGE ANUMDEL TAD PRCL 7DSP9 ORAV? X-AL READA ATOXL UNL XROM "NEWPLOT" 7DSPI OUTBIN X-AR READK ATOXR UNT XROM "REPLOT" 7DSZ OUTBINY Y-AX READP ATOXX XROM "PLINIT 7DSZI OUTBUFX READR XTOAL XROM "PLTUXY' 7ENG PT= READRX XTOAR PLOTTER 1A- XROM "PLANOT" 7FIX PT? READS X<>FIO CLIPUU XROM "Y?" 7GSBI PRBYTES READSUB YTOAX CSIZE XROM "X?" 7GTOI PRFRMS RENAME -X CTL FNS CZIZEO BC 7ISZ REN SED AID DGTIZE BCA 7ISZI RFRM SEEKR CLRDEV DRAW BCAA 7P<>S RG-BUFX UNSEC CLRLOOP FRAME BCCKSM 7PRREG RG=BUF? VERIFY DEVL GCLEAR BCO 7PRSTK RREG WRTA DEVT IDRAW BCP 7PRTX SAI WRTK FINDAID IMOVE BCREGX 7RLC_ SCOPE WRTP ID IPLOT BCSIZE 7SCI SDA WRTPV INAC LABEL BCX SDC WRTR INACL LDIR BCXS SDI WRTRX INAE LIMIT -HP-IL DEV SF33 WRTS INAN LOCATD A-BUF SRQR? ZERO INXB LOCATE - WAND 1F - A=BUF? SST -- INP LORG WNDDTA A=BUFX? TAD -CTL FNS LOCK LTYPE WNDDTX AAD TCT AUTOIO NLOOP LTYPEO WNDLNK AAU UNL FINDID NOTREM LXAXIS WNDSUB AIPT UNT INA OUTAC LYAXIS WNDSCN BSIZE? WRFRM IND OUTACL MOVE XROM "WNDTST" BSIZEX WREG INSTAT OUTAE PEN BUF-AX X-BUF LISTEN OUTAN PENDN BUF-RGX X=BUF?