- GOTO SCREEN begin
*>SCREEN begin
  dim a$(200):DIM CODES%(10)
  CODES%(1)=HEX("0101")
  codes%(2)=HEX("0001"):codes%(3)=HEX("0100"):codes%(4)=HEX("0101")
  codes%(5)=HEX("0102"):codes%(6)=HEX("0200"):codes%(7)=HEX("0002")
  
  CALL PLCRESET()
  call plcwrite(1,4,98,7,codes%(1))
  
  call plccmd(39,100,98):A$ ="CPRL  100,98":GOSUB PAUSE
  call plccmd(41,101,99):A$ ="CPXRL 101,99":GOSUB PAUSE
  call plccmd(05,000,00):A$ ="LDA   GE    ":GOSUB PAUSE
  call plccmd(39,102,98):A$ ="CPRL  102,98":GOSUB PAUSE
  call plccmd(41,103,99):A$ ="CPXRL 103,99":GOSUB PAUSE
  call plccmd(05,000,00):A$ ="LDA   GE    ":GOSUB PAUSE
  call plccmd(39,104,98):A$ ="CPRL  104,98":GOSUB PAUSE
  call plccmd(41,105,99):A$ ="CPXRL 105,99":GOSUB PAUSE
  call plccmd(05,000,00):A$ ="LDA   GE    ":GOSUB PAUSE
  call plccmd(39,106,98):A$ ="CPRL  106,98":GOSUB PAUSE
  call plccmd(41,107,99):A$ ="CPXRL 107,99":GOSUB PAUSE
  call plccmd(05,000,00):A$ ="LDA   GE    ":GOSUB PAUSE
  call plccmd(39,108,98):A$ ="CPRL  108,98":GOSUB PAUSE
  call plccmd(41,109,99):A$ ="CPXRL 109,99":GOSUB PAUSE
  call plccmd(05,000,00):A$ ="LDA   GE    ":GOSUB PAUSE
  call plccmd(39,110,98):A$ ="CPRL  110,98":GOSUB PAUSE
  call plccmd(41,111,99):A$ ="CPXRL 111,99":GOSUB PAUSE
  call plccmd(05,000,00):A$ ="LDA   GE    ":GOSUB PAUSE
  call plccmd(39,112,98):A$ ="CPRL  112,98":GOSUB PAUSE
  call plccmd(41,113,99):A$ ="CPXRL 113,99":GOSUB PAUSE
  call plccmd(05,000,00):A$ ="LDA   GE    ":GOSUB PAUSE
  
  
  call plccmd(09,000,0):A$ ="------------":GOSUB PAUSE
  call plcscan(1):q=1
  
  
  
  label XXX
  if a$(q) = "" then q=1
  gosub YYY:a$=inkey$():IF (f% AND 8)>0 then goto XXX
  if a$=" " then CALL plcwrite(1,12,511,1,8):q=q+1:print
  if a$<>"q" then goto XXX else CALL PLCRESET():CLS:END
    
  LABEL YYY
  call plcread(1, 4, 98, 1, d%) : call plcread(1, 4,100, 1, z%)
  CALL PLCREAD(1,12,511, 1, f%) : b$=left$(a$(q),2) : pos 1,8
  ? a$(q);"  ";right$("0"+hex$(d%),2);" ";right$("0"+hex$(z%),2);
  if f% and 64 then ?" 0  Z"; else ?" 1  -";
  if f% and128 then ?"M"; else ?"P";
  if b$<>"CP" AND b$<>"SU" AND B$<>"SB" THEN ?"??";:return
  if f% and 1 then ?"C"; else ?"-";
  if f% and 64 then ? "E"; else if f% and 128 then ?"L"; else ?"G";
  return
  
  label PAUSE
  q=q+1:a$(q)=a$:call plccmd(43,511,0):return
- END OF PSEUDOCODE