Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50150/demo.sno
There are 2 other files named demo.sno in the archive. Click here to see a list.
* THIS IS A SIMPLE DEMO PROGRAM
*
* TO EXECUTE IT TYPE THE FOLLOWING COMMAND STRING
* TTY:/U_COMMON,SORT,DEMO
*
* COMMON AND SORT ARE SUPPORT ROUTINES NEEDED BY DEMO
	TYPE = 'TYPE IN YOUR WORDS NOW'
	AR = ARRAY('100,1')
	I = 1
LOOP	AR<I,1> = ACCEPT	:F(FAILIT)
	I = LT(I,100) I + 1 :F(FAILIT)S(LOOP)
FAILIT	TYPE = 'NUMBER OF ITEMS = ' I - 1
	SORT(AR)
	OUTPUT('OUTPUT',2,'(1X,16A5)')
	PRINTARRAY(AR)
	TYPE = 'DONE'
	OUTPUT('OUTPUT',6,'(1X,16A5)')
END