Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0001/list.for
There is 1 other file named list.for in the archive. Click here to see a list.
C
C
C
C COPYRIGHT (c) 1977 BY
C DIGITAL EQUIPMENT CORPORTATION, MAYNARD, MASS.
C
C THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
C ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
C INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
C COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
C OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
C TRANSFERRED.
C
C THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
C AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
C CORPORATION.
C
C DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
C SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
C
C
C
C
C
C
C
C
C ++++++++++++++++++++++++++++++++++++++++++++++++++
C + +
C + CALC VERSION X01-01 +
C + +
C + PETER BAUM 1-SEP-77 +
C + DIGITAL EQUIPMENT CORPORATION +
C + 146 MAIN STREET +
C + MAYNARD, MASSACHUSETTS 01754 +
C + +
C ++++++++++++++++++++++++++++++++++++++++++++++++++
C
C **************************************************
C * *
C * SUBROUTINE LIST *
C * *
C **************************************************
C
C
C LISTS THE LEGAL CALC COMMANDS AND GIVES A BRIEF
C DESCRIPTION OF THEIR FUNCTION.
C
C
C
C MODIFICATION CLASSES: M1
C
C
C
C
C
C
C LIST IS CALLED BY CALC
C
C
C
C
C
C
SUBROUTINE LIST
C
C
WRITE (1,10)
WRITE (1,20)
WRITE (1,30)
WRITE (1,40)
WRITE (1,50)
WRITE (1,60)
WRITE (1,70)
WRITE (1,80)
WRITE (1,90)
WRITE (1,100)
WRITE (1,110)
WRITE (1,120)
WRITE (1,130)
WRITE (1,140)
WRITE (1,150)
WRITE (1,160)
WRITE (1,170)
WRITE (1,180)
WRITE (1,190)
RETURN
10 FORMAT (' COMMANDS-')
20 FORMAT (' *@FILENAME EXECUTE FILE OF CALC COMMANDS')
30 FORMAT (' *ASCII DECLARE VARIABLES OF TYPE ASCII')
40 FORMAT (' *B SET DEFAULT BASE FOR CONSTANTS')
50 FORMAT (' *C COMMENT, IGNORE REST OF LINE')
60 FORMAT (' *DECIMAL DECLARE VARIABLE OF TYPE DECIMAL POINT')
70 FORMAT (' *E EXIT')
80 FORMAT (' *HEX DECLARE VARIABLE OF TYPE HEXADECIMAL')
90 FORMAT (' *INTEGER DECLARE VARIABLE OF TYPE INTEGER')
100 FORMAT (' *M10 DECLARE VARIABLE MULTI-PRECISION BASE 10')
110 FORMAT (' *M8 DECLARE VARIABLE MULTI-PRECISION OCTAL',
; ' INTEGER')
120 FORMAT (' *M16 DECLARE VARIABLE MULTI-PRECISION',
; ' HEXADECIMAL INTEGER')
130 FORMAT (' *N NOVIEW --WHEN VARIABLE IS ASSIGNED ',
; ' DON''T PRINT VALUE')
140 FORMAT (' *OCTAL DECLARE VARIABLE OF TYPE OCTAL')
150 FORMAT (' *R READ --ALLOW SINGLE LINE OF INPUT',
; ' WHILE IN A COMMAND FILE')
160 FORMAT (' *REAL DECLARE A VARIABLE TO BE OF TYPE REAL')
170 FORMAT (' *S STOP OR EXIT')
180 FORMAT (' *V VIEW --PRINT VALUE OF VARIABLES WHEN',
; ' NEW VALUE IS ASSIGNED')
190 FORMAT (' *Z ZERO ALL VARIABLES')
END