I I,J,PY PBASE 0f NBASE PDATA PBASE : PFLAG PBASE  : P PDATA :for short #PIO PBASE  ( :  *FIRSTLINE  : SECLINE  : LINES WHERE BOXES ARE DRAWN ECT.R ,COLONE  : COLTWO #: COLTHREE 9 : COL FOR BOXESk F  :DRAW BIGBOX H  : OPTIONAL TERMINATE ON F8 PJ(PFLAG) :clear switch flag Z ,: "FISCHER" [ ,: "COMPUTER"\ ,: "SYSTEMS" -^ ,&: "SEC-PC DISPLAY PROGRAM"3c]d FIRSTLINE,COLONE : "X ENCODER"; gn  x FIRSTLINE,COLTWO : "Y ENCODER";   FIRSTLINE,COLTHREE : "Z ENCODER";   SECLINE,COLONE : " HITS ";  % SECLINE,COLTWO : " ERRORS ";/  W SECLINE,COLTHREE : " PI PORT ";a  OLDX : OLDY : OLDZ : OLDSW : PIOLDHITS : ERRORS" PDATA, :clear counters to zeroes, MAIN LOOP:6 XVAL OLDX FIRSTLINE,COLONE : "#########";XVAL;: OLDXXVAL@ YVAL OLDY FIRSTLINE,COLTWO : "#########";YVAL;: OLDYYVALJ ZVAL OLDZ FIRSTLINE,COLTHREE : "#########";ZVAL;: OLDZZVALT PDATA, :copy counters to holding registers4^ 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 counterwZVAL (((((P)NBASE(P))NBASE(P))NBASE(P))NBASE(P))NBASE(P)PIVAL(PIO) : PIVAL PIOLD  PFLAG, :select status readJST(P) JST  X :switch hit, (JST @)  , :goto if no errorDERRORS ERRORS p SECLINE,COLTWO : "#####";ERRORSz "X subroutine to do funny things when operator hits switchbHITS HITS l SECLINE,COLONE: "######";HITS)vJ(PFLAG) :clear switch detect flip-flopD PFLAG,(HITS) x[ PIO,(HITS )ak  Subroutine to print PI port in binary SECLINE,COLTHREE JB   PIVAL JB "H"; : "L"; JB  " ";  JBPIOLD PIVAL!J JSX() : SUBROUTINE: DRAW A BOX*JSY : NOT REALLY NECESSARY TO PROGRAM OPERATION, JSY,JSX - ();( ,);();. JSY,JSX : ();/ JSY,JSX: ();4 JSY,JSX "> ();( ,);();5H JSY,JSX Sf ();( , );();f JSY,JSX  ();( ,);(); ()  : () : SUBROUTINE--SET UP TRAP FOR F8 KEY ()  : () : SUBROUTINE--Clear countersD ()  : () : SUBROUTINE--Clear HITS and ERRORSy TRAPPING NECESSITATES USE OF ADVANCED 'BASICA' , : "F1 To clear counters." , : "F2 To clear HITS and ERRORS." : , : : TRAP GOES HERE; DOES NOT RETURN7 PDATA, : : Clear countersjERRORS  : SECLINE,COLTWO : " "HITS  : SECLINE,COLONE: " " :  TO DRAW A BIG BOX AROUND SCREEN ,: ();(N,);(); I  * I,: ();: I,P: ();2 IX ,: ();(N,);();~$ ,: ();(N,);();. I   : I, : ();0 I8 ,: ();B ,: ();L