5    'TEST28C.BAS
6    'same as test28b.bas, continuous looping, no file write
10    CLS
20   '
70   PRINT "       9  8  7  6  5  4  3  2         12 13 14 15 16 17 18 19   PIN NUMBERS"
80   PRINT
110  '
120  'INITIALIZATION
130  '
140  INVAL = 0				'Starting value
150  OUT &H360, 0			'Set hex 360 control reg
160  '
200  'CYCLE WITH CLOCK PULSE
210  '
220  OUT &H360 + 1, INVAL		'Hex 361. write input data reg
230  X = INP(&H360)			'Hex 300. clock PAL
240  X = INP(&H360 + 3) 		'Hex 363. latch output data
250  OUTVAL = INP(&H360 + 1)		'Hex 361.  read output data reg
260  '
300  A$ = INKEY$: IF (A$ = "Q" OR A$ = "q") THEN 950    'Exit if Q
302 'IF A$ <> CHR$(27) THEN 300                         'Wait
305  '
310 'DISPLAY LINE
315  X = INVAL
320  PRINT USING "####"; X;             'Input value in decimal format
325  PRINT TAB(8);			'Tab to column 8
330  IF X < 128 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 128      'Pin 9
331  IF X < 64 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 64        'Pin 8
332  IF X < 32 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 32        'Pin 7
333  IF X < 16 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 16        'Pin 6
334  IF X < 8 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 8          'Pin 5
335  IF X < 4 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 4          'Pin 4
336  IF X < 2 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 2          'Pin 3
337  IF X < 1 THEN PRINT "0  ";  ELSE PRINT "1  ";                      'Pin 2
338  PRINT "        ";                  'Space 8 columns
340  X = OUTVAL
350  IF X < 128 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 128      'Pin 12
351  IF X < 64 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 64        'Pin 13
352  IF X < 32 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 32        'Pin 14
353  IF X < 16 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 16        'Pin 15
354  IF X < 8 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 8          'Pin 16
355  IF X < 4 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 4          'Pin 17
356  IF X < 2 THEN PRINT "0  ";  ELSE PRINT "1  "; : X = X - 2          'Pin 18
357  IF X < 1 THEN PRINT "0  ";  ELSE PRINT "1  ";                      'Pin 19
358  PRINT "    "                       'Space 4 columns
360  '
470  IF INVAL = 255 THEN INVAL = 0: GOTO 200
900  INVAL = INVAL + 1			'Increment input by 1
910  GOTO 200				'Back for more
920  '
950  CLOSE #1				'Close read file
960  END				'End program