APFEL2/FP=APFEL2,CHAOS4,YESNO,[1,5]PROF77/LB / ; ;CLUSTER SCHEME : ; CLSTR=PROF77,CGLFPU,POSRES,RMSRES:RO ; ;TASK NAME : ; TASK = APFEL2 ; ;LENGTH OF LUN-TABLE;CHOOSE HIGHEST LUN IN DECIMAL : ; UNITS = 20 ; ;GLOBAL DEFINITIONS IN OCTAL : ; GBLDEF = TT$EFN:1 ;TERMINAL I/O. GBLDEF = MS$LUN:10 ;MESSAGE LUN. GBLDEF = WC$LUN:0 GBLDEF = HL$LUN:0 GBLDEF = MN$LUN:0 GBLDEF = TT$LUN:5 ;TERMINAL LUN. GBLDEF = G$LUN:7 ;GRAPHIC LUN. GBLDEF = MB$LUN:0 ; ;ASSIGNMENTS IN DECIMAL : ; ASG = TI:5 ;DEFINE TT$LUN. ASG = TT2:12 ;FOR ODT. ASG = TT1:7 ;USE 7 FOR GRAPHIC. ; //