(FLECS VERSION 22.54) 23-OCT-80 10:18:15 PAGE 00001 ---------------------------------------- 00001 DEFINE-CONSTANTS 00002 00003 REPEAT UNTIL (NOMORE) 00004 . 00005 . GET-DRIVE-NUM 00006 . GET-UIC-ID 00007 . GET-FILE-NAME 00008 . GET-NUM-OF-RECORDS 00009 . GET-RECORD-SIZE 00010 . DEFINE-THE-FILE 00011 . CLEAR-THE-FILE 00012 . ASK-IF-MORE 00013 . 00014 ...FIN 00015 00016 00017 CALL SYSCHK 00018 00019 ---------------------------------------- 00020 TO DEFINE-CONSTANTS 00021 . 00022 . BYTE NOMORE 00023 . BYTE ANS 00024 . BYTE FILENAM(9) 00025 . BYTE FILE(30) 00026 . BYTE LUN 00027 . BYTE OWNER(3) 00028 . BYTE GROUP(3) 00029 . BYTE OK 00030 . BYTE BUFF(5) 00031 . 00032 . EQUIVALENCE (FILE(3),LUN),(FILE(6),GROUP) 00033 . EQUIVALENCE (FILE(10),OWNER),(FILE(14),FILENAM) 00034 . CALL LITRAL (FILE,'DPX:[GRP,OWN]') 00035 . 00036 . INTEGER RECORD(300) 00037 . INTEGER SIZOFREC 00038 . INTEGER TI 00039 . 00040 . DATA TI /2/ 00041 . 00042 . NOMORE = .FALSE. 00043 . 00044 ...FIN 00045 00046 ---------------------------------------- 00047 TO GET-DRIVE-NUM (FLECS VERSION 22.54) 23-OCT-80 10:18:15 PAGE 00002 00048 . 00049 . OK = .FALSE. 00050 . 00051 . REPEAT UNTIL (OK) 00052 . . 00053 . . CALL-HOME 00054 . . CALL VTOUT (TI,'ENTER DRIVE #') 00055 . . CALL VSPOT (TI,1,13) 00056 . . NUMCH = 1 00057 . . CALL VTIN (TI,LUN,NUMCH) 00058 . . 00059 . . WHEN (LUN .GE. "60 .AND. LUN .LE. "62) OK = .TRUE. 00060 . . ELSE WRITE-ERROR-MESSAGE 00061 . . 00062 . ...FIN 00063 . 00064 ...FIN 00065 00066 ---------------------------------------- 00067 TO CALL-HOME 00068 . 00069 . CALL HOME (TI) 00070 . 00071 ...FIN 00072 00073 ---------------------------------------- 00074 TO WRITE-ERROR-MESSAGE 00075 . 00076 . CALL-HOME 00077 . CALL VTOUT (TI,'INVALID ENTRY -- RETRY ') 00078 . 00079 . CALL WAIT (5,2) 00080 . 00081 ...FIN 00082 00083 ---------------------------------------- 00084 TO GET-UIC-ID 00085 . 00086 . OK = .FALSE. 00087 . REPEAT UNTIL (OK) 00088 . . 00089 . . CALL-HOME 00090 . . CALL VTOUT (TI,'ENTER UIC [GRP,OWN]') 00091 . . CALL VSPOT (TI,1,12) 00092 . . NUMCH = 3 00093 . . CALL VTIN (TI,GROUP,NUMCH) 00094 . . CALL VSPOT (TI,1,16) (FLECS VERSION 22.54) 23-OCT-80 10:18:15 PAGE 00003 00095 . . NUMCH = 3 00096 . . CALL VTIN (TI,OWNER,NUMCH) 00097 . . 00098 . . CALL-HOME 00099 . . NUMCH = 9 00100 . . CALL VTOUT (TI,FILE(5),NUMCH) 00101 . . ASK-IF-OK 00102 . . 00103 . ...FIN 00104 . 00105 ...FIN 00106 00107 ---------------------------------------- 00108 TO ASK-IF-OK 00109 . 00110 . CALL VSPOT (TI,3,1) 00111 . CALL VTOUT (TI,'IS THIS OK?') 00112 . CALL ANSWER (TI,ANS) 00113 . 00114 . IF (ANS .EQ. 1) OK = .TRUE. 00115 . 00116 ...FIN 00117 00118 ---------------------------------------- 00119 TO GET-FILE-NAME 00120 . 00121 . OK = .FALSE. 00122 . REPEAT UNTIL (OK) 00123 . . 00124 . . CALL-HOME 00125 . . CALL VTOUT (TI,'ENTER FILE NAME _________') 00126 . . CALL VSPOT (TI,1,17) 00127 . . NUMCH = 9 00128 . . CALL VTIN (TI,FILENAM,NUMCH) 00129 . . I = NUMCH + 14 00130 . . CALL LITRAL (FILE(I),'.DAT;1') 00131 . . I = I + 6 00132 . . CALL FILLB (FILE,I,30,0) 00133 . . 00134 . . NUMCH = 28 00135 . . CALL VTOUT (TI,FILE,NUMCH) 00136 . . ASK-IF-OK 00137 . . 00138 . ...FIN 00139 . 00140 ...FIN 00141 00142 ---------------------------------------- (FLECS VERSION 22.54) 23-OCT-80 10:18:15 PAGE 00004 00143 TO GET-NUM-OF-RECORDS 00144 . 00145 . OK = .FALSE. 00146 . REPEAT UNTIL (OK) 00147 . . 00148 . . CALL-HOME 00149 . . CALL VTOUT (TI,'ENTER # OF RECORDS IN FILE - _____') 00150 . . CALL VSPOT (TI,1,30) 00151 . . NUMCH = 5 00152 . . CALL VTIN (TI,BUFF,NUMCH) 00153 . . CALL MASIB (BUFF,1,NUMCH,NUMREC) 00154 . . 00155 . . CALL-HOME 00156 . . CALL VTOUT (TI,BUFF,NUMCH) 00157 . . ASK-IF-OK 00158 . . 00159 . ...FIN 00160 . 00161 ...FIN 00162 00163 ---------------------------------------- 00164 TO GET-RECORD-SIZE 00165 . 00166 . OK = .FALSE. 00167 . REPEAT UNTIL (OK) 00168 . . 00169 . . CALL-HOME 00170 . . CALL VTOUT (TI,'ENTER RECORD SIZE ___ (WORDS PER RECORD)') 00171 . . CALL VSPOT (TI,1,19) 00172 . . NUMCH = 3 00173 . . CALL VTIN (TI,BUFF,NUMCH) 00174 . . CALL MASIB (BUFF,1,NUMCH,SIZOFREC) 00175 . . 00176 . . CALL-HOME 00177 . . CALL VTOUT (TI,BUFF,NUMCH) 00178 . . ASK-IF-OK 00179 . . 00180 . ...FIN 00181 . 00182 ...FIN 00183 00184 ---------------------------------------- 00185 TO DEFINE-THE-FILE 00186 . 00187 . DEFINE FILE 1(NUMREC,SIZOFREC,U,IR1) 00188 . CALL ASSIGN (1,FILE) 00189 . CALL FDBSET (1,'NEW') 00190 . 00191 ...FIN (FLECS VERSION 22.54) 23-OCT-80 10:18:15 PAGE 00005 00192 00193 ---------------------------------------- 00194 TO CLEAR-THE-FILE 00195 . 00196 . CALL-HOME 00197 . CALL VTOUT (TI,'NOW CLEARING THE FILE. PLEASE WAIT') 00198 . CALL FILL (RECORD,1,SIZOFREC,0) 00199 . 00200 . CALL VSPOT (TI,3,1) 00201 . CALL VTOUT (TI,'NOW WORKING ON RECORD #') 00202 . DO (I=1,NUMREC) 00203 . . 00204 . . CALL VSPOT (TI,3,25) 00205 . . CALL MSIAB (BUFF,1,5,I,0) 00206 . . CALL VTOUT (TI,BUFF) 00207 . . WRITE (1'I) (RECORD(J),J=1,SIZOFREC) 00208 . . 00209 . ...FIN 00210 . 00211 . CALL CLOSE (1) 00212 . 00213 ...FIN 00214 00215 ---------------------------------------- 00216 TO ASK-IF-MORE 00217 . 00218 . CALL-HOME 00219 . CALL VTOUT (TI,FILE) 00220 . CALL VSPOT (TI,3,1) 00221 . CALL VTOUT (TI,'THIS FILE HAS BEEN CREATED AND CLEARED.',,12) 00222 . CALL VTOUT (TI,'DO SOME MORE?') 00223 . 00224 . CALL ANSWER (TI,ANS) 00225 . IF (ANS .NE. 1) NOMORE = .TRUE. 00226 . 00227 ...FIN 00228 00229 00230 END ---------------------------------------- PROCEDURE CROSS-REFERENCE TABLE 00216 ASK-IF-MORE 00012 00108 ASK-IF-OK 00101 00136 00157 00178 (FLECS VERSION 22.54) 23-OCT-80 10:18:15 PAGE 00006 00067 CALL-HOME 00053 00076 00089 00098 00124 00148 00155 00169 00176 00196 00218 00194 CLEAR-THE-FILE 00011 00020 DEFINE-CONSTANTS 00001 00185 DEFINE-THE-FILE 00010 00047 GET-DRIVE-NUM 00005 00119 GET-FILE-NAME 00007 00143 GET-NUM-OF-RECORDS 00008 00164 GET-RECORD-SIZE 00009 00084 GET-UIC-ID 00006 00074 WRITE-ERROR-MESSAGE 00060 (FLECS VERSION 22.54) ----------------------------------------