C READ DECK INTO STORAGE
10 RDS 90
C COMPUTE SUM
20 STZ 91
   LDQ 90
30 SUB 91
   STQ 92
   BMP 60
C GET NEXT NUMBER
   LDQ 91
   ADI 1
   STQ 91
   LDQ 90,91
   AXC 92,1
   BRX 30
C WRITE RESULT
60 OUT 92
   HLT
C DATA AREA
90 DATA 5
   DATA 10
   DATA 15
   DATA 20
   DATA 25