I I,J,PU X,Y,Ze PBASE 0t NBASE  PDATA PBASE : PFLAG PBASE  : P PDATA :for short #PIO PBASE  ( : 2  : OPTIONAL TERMINATE ON F8 PJ(PFLAG) :clear switch flagO Z ,: "SEC-PC DEMONSTRATION PROGRAM." [ , : "For board with binary counters." d , : "X ENCODER"; n   x ,$ : "Y ENCODER";   ,: : "Z ENCODER";    , : " HITS ";  <  ,/ : " ERRORS ";F  c ,$ : " PI PORT ";m  OLDX : OLDY : OLDZ : OLDSW : PIOLDHITS : ERRORS" PDATA, :clear counters to zeroes, PBASE, /. ((PBASE) )  : :Top main loopU^ PFLAG, :Select X counter.hXVAL (((((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)K PFLAG, :Select Z counter.ZVAL (((((P)NBASE(P))NBASE(P))NBASE(P))NBASE(P))NBASE(P) , : "#########";XVAL;:" " : OLDXXVAL  ," : "#########";YVAL;:" " : OLDYYVAL? ,8 : "#########";ZVAL;:" " : OLDZZVALlPIVAL(PIO) : PIVAL PIOLD  PFLAG, :Select status read.JST(P) JST  X :switch hit (JST @)  , :goto if no errorERRORS ERRORS 2 ,/ : "######";ERRORS< "zX subroutine to do funny things when operator hits switchbHITS HITS l , : "######";HITSvJ(PFLAG) :clear switch detect flip-flop PFLAG,(HITS) 3 PIO,(HITS ) :out to parrallel port9C o Subroutine to print PI port in binary{ ,$ JB   PIVAL JB "H"; : "L"; JBPIOLD PIVAL JSX() : SUBROUTINE: DRAW A BOX7*JSY : NOT REALLY NECESSARY TO PROGRAM OPERATIONJ4 JSY,JSX h> ();( ,);();{H JSY,JSX R ();( , );();\ JSY,JSX f ();( , );();p JSY,JSX z ();( , );(); JSY,JSX , ();( ,);();2s ()  : () : SUBROUTINE--SET UP TRAP FOR F8 KEY TRAPPING NECESSITATES USE OF ADVANCED 'BASICA' , : "F8"; : (not really necessary to program operation)& , : : TRAP GOES HERE; DOES NOT RETURN