Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0028/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