'===================================

'=  European Southern Observatory  =

'=       La Silla - ELC            =

'=         NTT twist counter       =

'= Manfred Mornhinweg, 2000-05-07  =

'=                                 =

'===================================

 

'===============================

L     VAR   BIT

R     VAR   BIT

LL    VAR   BIT

LR    VAR   BIT

Sum   VAR   Word

'===============================

 

 

'Initialization:

'===================================================

PAUSE 500                     'Wait for display to start up

SEROUT 0,16416,[254,"X",254,"C","NTT turn counter",254,"G",1,2,"Twists:0"]

 

 

Loop:

 

IF IN8=1 THEN NoL

  L=1

  R=0

  LR=0

  IF LL=0 THEN NoL

    Sum=Sum-1

    GOSUB Print

    LL=0

NoL:

 

IF IN12=1 THEN NoR

  R=1

  L=0

  LL=0

  IF LR=0 THEN NoR

    Sum=Sum+1

    GOSUB Print

    LR=0

NoR:

 

IF IN10=1 THEN NoM

  IF L=0 THEN NoML

    Sum=Sum+1

    GOSUB Print

    L=0

    LL=1

  NoML:

  IF R=0 THEN NoMR

    Sum=Sum-1

    GOSUB Print

    R=0

    LR=1

  NoMR:

NoM:

 

GOTO Loop

 

Print:

 

SEROUT 0,16416,[254,"G",8,2,SDEC Sum,"  "]

RETURN