I I,J,PU X,Y,Ze PBASE 0r NBASE PDATA PBASE : PFLAG PBASE  : P PDATA :for short #PIO PBASE  ( :  *FIRSTLINE  : SECLINE  : LINES WHERE BOXES ARE DRAWN ECT.^ ,COLONE  : COLTWO #: COLTHREE 9 : COL FOR BOXESw F  :DRAW BIGBOX H  : OPTIONAL TERMINATE ON F8 PJ(PFLAG) :clear switch flag Z ,: "FISCHER" [ ,: "COMPUTER"\ ,: "SYSTEMS" 9^ ,&: "SEC-PC DISPLAY PROGRAM"?cid FIRSTLINE,COLONE : "X ENCODER"; sn  x FIRSTLINE,COLTWO : "Y ENCODER";   FIRSTLINE,COLTHREE : "Z ENCODER";   SECLINE,COLONE : " HITS ";   1 SECLINE,COLTWO : " ERRORS ";;  c SECLINE,COLTHREE : " PI PORT ";m  OLDX : OLDY : OLDZ : OLDSW : PIOLDHITS : ERRORS" PDATA, :clear counters to zeroes, MAIN LOOPF6 XVAL OLDX FIRSTLINE,COLONE : "#########";XVAL;: OLDXXVAL@ YVAL OLDY FIRSTLINE,COLTWO : "#########";YVAL;: OLDYYVALJ ZVAL OLDZ FIRSTLINE,COLTHREE : "#########";ZVAL;: OLDZZVALT PDATA, :copy counters to holding registers@^ PFLAG, :select x counterhXVAL (((((P)NBASE(P))NBASE(P))NBASE(P))NBASE(P))NBASE(P)r PFLAG, :select y counter |YVAL (((((P)NBASE(P))NBASE(P))NBASE(P))NBASE(P))NBASE(P). PFLAG, :select z counterZVAL (((((P)NBASE(P))NBASE(P))NBASE(P))NBASE(P))NBASE(P)PIVAL(PIO) : PIVAL PIOLD  PFLAG, :select status readJST(P) JST  X :switch hit8 (JST @)  , :goto if no errorPERRORS ERRORS | SECLINE,COLTWO : "#####";ERRORS "X subroutine to do funny things when operator hits switchbHITS HITS l SECLINE,COLONE: "######";HITS5vJ(PFLAG) :clear switch detect flip-flopP PFLAG,(HITS) xg PIO,(HITS )mw  Subroutine to print PI port in binary SECLINE,COLTHREE JB   PIVAL JB "H"; : "L";  JB  " "; JB'PIOLD PIVAL-V JSX() : SUBROUTINE: DRAW A BOX*JSY : NOT REALLY NECESSARY TO PROGRAM OPERATION, JSY,JSX - ();( ,);();. JSY,JSX : ();/ JSY,JSX: ();4 JSY,JSX .> ();( ,);();AH JSY,JSX _f ();( , );();r JSY,JSX  ();( ,);(); ()  : () : SUBROUTINE--SET UP TRAP FOR F8 KEY ()  : () : SUBROUTINE--Clear countersP ()  : () : SUBROUTINE--Clear HITS and ERRORS TRAPPING NECESSITATES USE OF ADVANCED 'BASICA' , : "F1 To clear counters." , : "F2 To clear HITS and ERRORS." : , : : TRAP GOES HERE; DOES NOT RETURNC PDATA, : : Clear countersvERRORS  : SECLINE,COLTWO : " "HITS  : SECLINE,COLONE: " " :  TO DRAW A BIG BOX AROUND SCREEN ,: ();(N,);(); I  6 I,: ();: I,P: ();> Id ,: ();(N,);();$ ,: ();(N,);();. I   : I, : ();0 I8 ,: ();B ,: ();L