Haftungsausschluß.rtf KontaktHaskell {Haskell[176] Abap[346] [0]}diese Dinge liegen außhalb unserer Verantwortung
{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Fixedsys;}{\f1\fmodern\fprq1\fcharset0 Fixedsys;}
{\colortbl;\red255\green0\blue0;\red0\green0\blue255;\red0\green0\blue128;\red0\green0\blue0;\red128\green0\blue0;\red0\green128\blue0;\red128\green128\blue128;\red0\green128\blue128;\red255\green0\blue255;}
{\*\generator Msftedit 5.41.15.1507;}
\viewkind4\uc1\pard\lang1031\f0\fs16}
\cf1 \f1 IDENTIFICATION\cf0\f0 \cf1 \f1 DIVISION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 PROGRAM-ID\cf0\f0 \cf2 \f1 .\cf0\f0 \cf4 \f1 SHELSRTT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DATE-WRITTEN\cf0\f0 . 05/03/90.
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * MODIFIED 10/18/97.\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * *******************************\cf0\f0
\par
\cf6 \f1 * * *\cf0\f0
\par
\cf6 \f1 * * Judson D. McClendon *\cf0\f0
\par
\cf6 \f1 * * Sun Valley Systems *\cf0\f0
\par
\cf6 \f1 * * 329 37th Court N.E. *\cf0\f0
\par
\cf6 \f1 * * Birmingham, AL 35215 *\cf0\f0
\par
\cf6 \f1 * * 205-853-8440 *\cf0\f0
\par
\cf6 \f1 * * *\cf0\f0
\par
\cf6 \f1 * *******************************\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 ENVIRONMENT\cf0\f0 \cf1 \f1 DIVISION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 CONFIGURATION\cf0\f0 \cf1 \f1 SECTION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 INPUT-OUTPUT\cf0\f0 \cf1 \f1 SECTION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 FILE-CONTROL\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DATA\cf0\f0 \cf1 \f1 DIVISION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 FILE\cf0\f0 \cf1 \f1 SECTION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 WORKING-STORAGE\cf0\f0 \cf1 \f1 SECTION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * 77'S\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 WS-ANSWER\cf0\f0 \cf2 \f1 PIC\cf0\f0 X(01) \cf1 \f1 V\cf0\f0 A\cf1 \f1 LUE S\cf0\f0 \cf2 \f1 P\cf0\f0 ACE.
\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 WS-ELEMENTS\cf0\f0 \cf2 \f1 PIC\cf0\f0 S9\cf1 \f1 (05) B\cf0\f0 I\cf1 \f1 NARY \cf0\f0 V\cf3 \f1 A\cf0\f0 \cf2 \f1 L\cf0\f0 UE 0.
\par
\cf3 \f1 77\cf0\f0 \cf4 \f1 WS-ELEMENTS-DISP\cf0\f0 \cf2 \f1 PIC\cf0\f0 ZZZZ9 \cf1 \f1 V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * R A N D O M N U M B E R W O R K\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 RANDOM-NUMBER-WORK\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 RNG-SEED\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(\cf1 \f1 10) BI\cf0\f0 N\cf1 \f1 ARY V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 RNG-TEMP\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(\cf1 \f1 10) BI\cf0\f0 N\cf1 \f1 ARY V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * S C R E E N L I N E\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 SCREEN-LINE-WORK\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 SL-ELIM\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(02) \cf1 \f1 V\cf0\f0 A\cf3 \f1 LU\cf0\f0 \cf2 \f1 E\cf0\f0 10.
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 SL-SCREEN-LINE-E\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 SL-ELEMENTS\cf0\f0 \cf1 \f1 OCCURS\cf0\f0 \cf3 \f1 10\cf0\f0 \cf1 \f1 TIMES\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 07\cf0\f0 \cf4 \f1 SL-ELEMENT\cf0\f0 \cf2 \f1 PIC\cf0\f0 Z(\cf2 \f1 0\cf0\f0 6).
\par
\cf3 \f1 07\cf0\f0 \cf1 \f1 FILLER\cf0\f0 \cf2 \f1 PIC\cf0\f0 X(\cf2 \f1 0\cf0\f0 2).
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 SL-SCREEN-LINE-R\cf0\f0 \cf1 \f1 REDEFINES\cf0\f0 \cf4 \f1 SL-SCREEN-LINE-E\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 SL-SCREEN-LINE\cf0\f0 \cf2 \f1 PIC\cf0\f0 X(\cf2 \f1 7\cf0\f0 8).
\par
\cf3 \f1 05\cf0\f0 \cf1 \f1 FILLER\cf0\f0 \cf2 \f1 PIC\cf0\f0 X(\cf2 \f1 0\cf0\f0 2).
\par
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 SL-EX\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(02) \cf1 \f1 V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * T I M E W O R K A R E A\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 01\cf0\f0 \cf4 \f1 TIME-WORK-AREA\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 TW-BEG-HHMMSSTH\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(08) \cf1 \f1 V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 TW-BEG-HHMMSSTH-R\cf0\f0 \cf1 \f1 REDEFINES\cf0\f0 \cf4 \f1 TW-BEG-HHMMSSTH\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 TW-BEG-HH\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(\cf2 \f1 0\cf0\f0 2).
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 TW-BEG-MM\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(\cf2 \f1 0\cf0\f0 2).
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 TW-BEG-SS\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(\cf2 \f1 0\cf0\f0 2).
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 TW-BEG-TH\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(\cf2 \f1 0\cf0\f0 2).
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 TW-BEG-TIME\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(08) \cf1 \f1 V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 TW-END-HHMMSSTH\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(08) \cf1 \f1 V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 TW-END-HHMMSSTH-R\cf0\f0 \cf1 \f1 REDEFINES\cf0\f0 \cf4 \f1 TW-END-HHMMSSTH\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 TW-END-HH\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(\cf2 \f1 0\cf0\f0 2).
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 TW-END-MM\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(\cf2 \f1 0\cf0\f0 2).
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 TW-END-SS\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(\cf2 \f1 0\cf0\f0 2).
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 TW-END-TH\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(\cf2 \f1 0\cf0\f0 2).
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 TW-END-TIME\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(08) \cf1 \f1 V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf6 \f1 *\cf0\f0
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 TW-ET-HHMMSSTH\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 TW-ET-HH\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(02) \cf1 \f1 V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf3 \f1 05\cf0\f0 \cf1 \f1 FILLER\cf0\f0 \cf2 \f1 PIC\cf0\f0 X(01) \cf1 \f1 V\cf0\f0 A\cf2 \f1 LUE\cf0\f0 \cf2 \f1 \cf0\f0 ":".
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 TW-ET-MM\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(02) \cf1 \f1 V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf3 \f1 05\cf0\f0 \cf1 \f1 FILLER\cf0\f0 \cf2 \f1 PIC\cf0\f0 X(01) \cf1 \f1 V\cf0\f0 A\cf2 \f1 LUE\cf0\f0 \cf2 \f1 \cf0\f0 ":".
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 TW-ET-SS\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(02) \cf1 \f1 V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf3 \f1 05\cf0\f0 \cf1 \f1 FILLER\cf0\f0 \cf2 \f1 PIC\cf0\f0 X(01) \cf1 \f1 V\cf0\f0 A\cf2 \f1 LUE\cf0\f0 \cf2 \f1 \cf0\f0 ".".
\par
\cf3 \f1 05\cf0\f0 \cf4 \f1 TW-ET-TH\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(02) \cf1 \f1 V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf3 \f1 03\cf0\f0 \cf4 \f1 TW-ET-TIME\cf0\f0 \cf2 \f1 PIC\cf0\f0 9(08) \cf1 \f1 V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par
\cf6 \f1 *\cf0\f0
\par
\cf9 \f1 COPY\cf0\f0 \cf9 \f1 SHELSRTW.CO\cf0\f0 B.
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 PROCEDURE\cf0\f0 \cf1 \f1 DIVISION\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 ******************************************************************\cf0\f0
\par
\cf6 \f1 * *\cf0\f0
\par
\cf6 \f1 * C O N T R O L *\cf0\f0
\par
\cf6 \f1 * *\cf0\f0
\par
\cf6 \f1 ******************************************************************\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000000-cONTROL\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 L000200-pROCESS\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 L000200-eXIT\cf0\f0
\par
\cf1 \f1 UNTIL\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 WS-ELEMENTS\cf0\f0 \cf2 \f1 >\cf0\f0 \cf4 \f1 ST-ELIM\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000000-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 STOP\cf0\f0 \cf1 \f1 RUN\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * P R O C E S S\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000200-pROCESS\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * ** GET NUMBER OF KEYS TO SORT **\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 L000210-gET-NBR-KEYS\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 L000210-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * ** GENERATE KEYS **\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 L000220-gENERATE-KEYS\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 L000220-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * ** DISPLAY UNSORTED KEYS **\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 **** PERFORM L000260-dISPLAY-KEYS\cf0\f0
\par
\cf6 \f1 **** THRU L000260-eXIT.\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * ** SORT KEYS **\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 L000240-sORT-KEYS\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 L000240-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * ** DISPLAY SORTED KEYS **\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 **** PERFORM L000260-dISPLAY-KEYS\cf0\f0
\par
\cf6 \f1 **** THRU L000260-eXIT.\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * ** DISPLAY ELAPSED TIME **\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 L000280-dISPLAY-ET\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 L000280-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000200-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * G E T N U M B E R O F K E Y S\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000210-gET-NBR-KEYS\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf4 \f1 ST-ELIM\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 WS-ELEMENTS-DISP\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf2 \f1 " "\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf2 \f1 "ENTER NUMBER OF ELEMENTS (0 TO "\cf0\f0
\par
\cf4 \f1 WS-ELEMENTS-DISP\cf0\f0
\par
\cf2 \f1 ")"\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf2 \f1 "ENTER NEGATIVE NUMBER TO STOP"\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf1 \f1 ZERO\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 WS-ELEMENTS\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 ACCEPT\cf0\f0 \cf4 \f1 WS-ELEMENTS\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 IF\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 WS-ELEMENTS\cf0\f0 \cf2 \f1 >\cf0\f0 \cf4 \f1 ST-ELIM\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 GO\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 L000210-gET-NBR-KEYS\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 IF\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 WS-ELEMENTS\cf0\f0 \cf1 \f1 NEGATIVE\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 STOP\cf0\f0 \cf1 \f1 RUN\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf4 \f1 WS-ELEMENTS\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 WS-ELEMENTS-DISP\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000210-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * G E N E R A T E R A N D O M K E Y S\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000220-gENERATE-KEYS\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf2 \f1 "GENERATING "\cf0\f0 \cf4 \f1 WS-ELEMENTS-DISP\cf0\f0 \cf2 \f1 " RANDOM KEYS..."\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf1 \f1 SPACES\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 SL-SCREEN-LINE\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf3 \f1 0\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 SL-EX\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 L000230-gENERATE-KEY\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 L000230-eXIT\cf0\f0
\par
\cf1 \f1 VARYING\cf0\f0 \cf4 \f1 ST-I\cf0\f0
\par
\cf1 \f1 FROM\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 BY\cf0\f0 \cf3 \f1 1\cf0\f0
\par
\cf1 \f1 UNTIL\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 ST-I\cf0\f0 \cf2 \f1 >\cf0\f0 \cf4 \f1 WS-ELEMENTS\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000220-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000230-gENERATE-KEY\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * ** NUMBERS 214031, 2531017 AND 999999937 ARE PRIME **\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 COMPUTE\cf0\f0 \cf4 \f1 RNG-SEED\cf0\f0 \cf2 \f1 =\cf0\f0 \cf4 \f1 RNG-SEED\cf0\f0 \cf2 \f1 *\cf0\f0 \cf3 \f1 214031\cf0\f0 \cf2 \f1 +\cf0\f0 \cf3 \f1 2531017\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DIVIDE\cf0\f0 \cf4 \f1 RNG-SEED\cf0\f0 \cf1 \f1 BY\cf0\f0 \cf3 \f1 999999937\cf0\f0 \cf1 \f1 GIVING\cf0\f0 \cf4 \f1 RNG-TEMP\cf0\f0
\par
\cf1 \f1 REMAINDER\cf0\f0 \cf4 \f1 RNG-SEED\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf4 \f1 RNG-SEED\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 ST-ENT-FLD1\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 ST-I\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000230-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * S O R T K E Y S\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000240-sORT-KEYS\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf2 \f1 "SORTING "\cf0\f0 \cf4 \f1 WS-ELEMENTS-DISP\cf0\f0 \cf2 \f1 " KEYS..."\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 ACCEPT\cf0\f0 \cf4 \f1 TW-BEG-HHMMSSTH\cf0\f0 \cf1 \f1 FROM\cf0\f0 \cf1 \f1 TIME\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf4 \f1 WS-ELEMENTS\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 ST-EMAX\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 L007000-sHELLSORT\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 L007000-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 ACCEPT\cf0\f0 \cf4 \f1 TW-END-HHMMSSTH\cf0\f0 \cf1 \f1 FROM\cf0\f0 \cf1 \f1 TIME\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000240-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * D I S P L A Y K E Y S\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000260-dISPLAY-KEYS\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf1 \f1 SPACES\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 SL-SCREEN-LINE\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf3 \f1 0\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 SL-EX\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 PERFORM\cf0\f0 \cf4 \f1 L000270-dISPLAY-KEY\cf0\f0
\par
\cf1 \f1 THRU\cf0\f0 \cf4 \f1 L000270-eXIT\cf0\f0
\par
\cf1 \f1 VARYING\cf0\f0 \cf4 \f1 ST-I\cf0\f0
\par
\cf1 \f1 FROM\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 BY\cf0\f0 \cf3 \f1 1\cf0\f0
\par
\cf1 \f1 UNTIL\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 ST-I\cf0\f0 \cf2 \f1 >\cf0\f0 \cf4 \f1 WS-ELEMENTS\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 IF\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 SL-EX\cf0\f0 \cf2 \f1 >\cf0\f0 \cf3 \f1 0\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 SL-SCREEN-LINE\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000260-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000270-dISPLAY-KEY\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 ADD\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 SL-EX\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 IF\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 SL-EX\cf0\f0 \cf2 \f1 >\cf0\f0 \cf4 \f1 SL-ELIM\cf0\f0 \cf2 \f1 )\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 SL-SCREEN-LINE\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf1 \f1 SPACES\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 SL-SCREEN-LINE\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf3 \f1 1\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 SL-EX\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 MOVE\cf0\f0 \cf4 \f1 ST-ENT-FLD1\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 ST-I\cf0\f0 \cf2 \f1 )\cf0\f0 \cf1 \f1 TO\cf0\f0 \cf4 \f1 SL-ELEMENT\cf0\f0 \cf2 \f1 (\cf0\f0 \cf4 \f1 SL-EX\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000270-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf6 \f1 * D I S P L A Y E L A P S E D T I M E\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000280-dISPLAY-ET\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 COMPUTE\cf0\f0 \cf4 \f1 TW-BEG-TIME\cf0\f0 \cf2 \f1 =\cf0\f0 \cf4 \f1 TW-BEG-HH\cf0\f0 \cf2 \f1 *\cf0\f0 \cf3 \f1 360000\cf0\f0
\par
\cf2 \f1 +\cf0\f0 \cf4 \f1 TW-BEG-MM\cf0\f0 \cf2 \f1 *\cf0\f0 \cf3 \f1 6000\cf0\f0
\par
\cf2 \f1 +\cf0\f0 \cf4 \f1 TW-BEG-SS\cf0\f0 \cf2 \f1 *\cf0\f0 \cf3 \f1 100\cf0\f0
\par
\cf2 \f1 +\cf0\f0 \cf4 \f1 TW-BEG-TH\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 COMPUTE\cf0\f0 \cf4 \f1 TW-END-TIME\cf0\f0 \cf2 \f1 =\cf0\f0 \cf4 \f1 TW-END-HH\cf0\f0 \cf2 \f1 *\cf0\f0 \cf3 \f1 360000\cf0\f0
\par
\cf2 \f1 +\cf0\f0 \cf4 \f1 TW-END-MM\cf0\f0 \cf2 \f1 *\cf0\f0 \cf3 \f1 6000\cf0\f0
\par
\cf2 \f1 +\cf0\f0 \cf4 \f1 TW-END-SS\cf0\f0 \cf2 \f1 *\cf0\f0 \cf3 \f1 100\cf0\f0
\par
\cf2 \f1 +\cf0\f0 \cf4 \f1 TW-END-TH\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 COMPUTE\cf0\f0 \cf4 \f1 TW-ET-TIME\cf0\f0 \cf2 \f1 =\cf0\f0 \cf4 \f1 TW-END-TIME\cf0\f0 \cf2 \f1 -\cf0\f0 \cf4 \f1 TW-BEG-TIME\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DIVIDE\cf0\f0 \cf4 \f1 TW-ET-TIME\cf0\f0 \cf1 \f1 BY\cf0\f0 \cf3 \f1 360000\cf0\f0
\par
\cf1 \f1 GIVING\cf0\f0 \cf4 \f1 TW-ET-HH\cf0\f0
\par
\cf1 \f1 REMAINDER\cf0\f0 \cf4 \f1 TW-ET-TIME\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DIVIDE\cf0\f0 \cf4 \f1 TW-ET-TIME\cf0\f0 \cf1 \f1 BY\cf0\f0 \cf3 \f1 6000\cf0\f0
\par
\cf1 \f1 GIVING\cf0\f0 \cf4 \f1 TW-ET-MM\cf0\f0
\par
\cf1 \f1 REMAINDER\cf0\f0 \cf4 \f1 TW-ET-TIME\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DIVIDE\cf0\f0 \cf4 \f1 TW-ET-TIME\cf0\f0 \cf1 \f1 BY\cf0\f0 \cf3 \f1 100\cf0\f0
\par
\cf1 \f1 GIVING\cf0\f0 \cf4 \f1 TW-ET-SS\cf0\f0
\par
\cf1 \f1 REMAINDER\cf0\f0 \cf4 \f1 TW-ET-TH\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf4 \f1 WS-ELEMENTS-DISP\cf0\f0 \cf2 \f1 " KEYS SORTED"\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 DISPLAY\cf0\f0 \cf2 \f1 "ELAPSED TIME: "\cf0\f0 \cf4 \f1 TW-ET-HHMMSSTH\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf8 \f1 L000280-eXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf1 \f1 EXIT\cf0\f0 \cf2 \f1 .\cf0\f0
\par
\cf6 \f1 *\cf0\f0
\par
\cf9 \f1 COPY\cf0\f0 \cf9 \f1 SHELSRTP.CO\cf0\f0 B.
\par
}n)
:=(Lin=251-Col=16-Fil=1-Id=325-Typ=symbol)
$56(Lin=251-Col=16-Fil=1-Id=326-Typ=data-Ref=1-Base=octet-Len=0-Dur=temporary-Least=1-Ubd=1-Val=$56-Loc=179)
sl-screen-line(Lin=251-Col=16-Fil=1-Id=327-Typ=data-Ref=1-Base=octet-Len=78-Dur=static-Fmt=X(78)-Lbd=1-Val=sl-screen-line-Loc=11)
:=(Lin=252-Col=16-Fil=1-Id=328-Typ=symbol)
sl-screen-line(Lin=252-Col=16-Fil=1-Id=329-Typ=data-Ref=1-Base=octet-Len=78-Dur=static-Fmt=X(78)-Lbd=1-Val=sl-screen-line-Loc=11)
(Lin=252-Col=16-Fil=1-Id=330-Typ=data-Ref=0-Base=octet-Len=0-Val= -Loc=0)
:=(Lin=253-Col=16-Fil=1-Id=331-Typ=symbol)
sl-ex(Lin=253-Col=16-Fil=1-Id=332-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=91)
1(Lin=253-Col=16-Fil=1-Id=333-Typ=data-Ref=0-Base=binary-Len=0-Val=1-Loc=0)
shelsrtt.68(Lin=89-Col=12-Fil=2-Id=334-Typ=function)
:=(Lin=254-Col=12-Fil=1-Id=335-Typ=symbol)
[](Lin=254-Col=12-Fil=1-Id=336-Typ=symbol)
sl-element(Lin=254-Col=12-Fil=1-Id=337-Typ=data-Ref=1-Base=bcd-Len=0-Dur=static-Fmt=(06)-Lbd=1-Val=somevalue-Loc=9)
sl-ex(Lin=254-Col=12-Fil=1-Id=338-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=91)
[](Lin=254-Col=12-Fil=1-Id=339-Typ=symbol)
st-ent-fld1(Lin=254-Col=12-Fil=1-Id=340-Typ=data-Ref=1-Base=bcd-Len=6-Dur=static-Fmt=9(06)-Lbd=1-Val=somevalue-Loc=160)
st-i(Lin=254-Col=12-Fil=1-Id=341-Typ=data-Ref=1-Base=binary-Len=1-Dur=static-Fmt=9(05)-Lbd=1-Val=37021525-Loc=173)
shelsrtt.66(Lin=89-Col=12-Fil=2-Id=342-Typ=function)
shelsrtt.70(Lin=89-Col=12-Fil=2-Id=343-Typ=function)
shelsrtt.71(Lin=89-Col=12-Fil=2-Id=344-Typ=function)
shelsrtt.69(Lin=89-Col=12-Fil=2-Id=345-Typ=function)
:=(Lin=264-Col=12-Fil=1-Id=346-Typ=symbol)
tw-beg-time(Lin=264-Col=12-Fil=1-Id=347-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=109)
+(Lin=264-Col=12-Fil=1-Id=348-Typ=symbol)
+(Lin=264-Col=12-Fil=1-Id=349-Typ=symbol)
+(Lin=264-Col=12-Fil=1-Id=350-Typ=symbol)
*(Lin=264-Col=12-Fil=1-Id=351-Typ=symbol)
tw-beg-hh(Lin=264-Col=12-Fil=1-Id=352-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=101)
360000(Lin=264-Col=12-Fil=1-Id=353-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
*(Lin=264-Col=12-Fil=1-Id=354-Typ=symbol)
tw-beg-mm(Lin=264-Col=12-Fil=1-Id=355-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=103)
6000(Lin=264-Col=12-Fil=1-Id=356-Typ=data-Ref=0-Base=binary-Len=0-Val=6000-Loc=0)
*(Lin=264-Col=12-Fil=1-Id=357-Typ=symbol)
tw-beg-ss(Lin=264-Col=12-Fil=1-Id=358-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=105)
100(Lin=264-Col=12-Fil=1-Id=359-Typ=data-Ref=0-Base=binary-Len=0-Val=100-Loc=0)
tw-beg-th(Lin=264-Col=12-Fil=1-Id=360-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=107)
:=(Lin=269-Col=12-Fil=1-Id=361-Typ=symbol)
tw-end-time(Lin=269-Col=12-Fil=1-Id=362-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=133)
+(Lin=269-Col=12-Fil=1-Id=363-Typ=symbol)
+(Lin=269-Col=12-Fil=1-Id=364-Typ=symbol)
+(Lin=269-Col=12-Fil=1-Id=365-Typ=symbol)
*(Lin=269-Col=12-Fil=1-Id=366-Typ=symbol)
tw-end-hh(Lin=269-Col=12-Fil=1-Id=367-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=125)
360000(Lin=269-Col=12-Fil=1-Id=368-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
*(Lin=269-Col=12-Fil=1-Id=369-Typ=symbol)
tw-end-mm(Lin=269-Col=12-Fil=1-Id=370-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=127)
6000(Lin=269-Col=12-Fil=1-Id=371-Typ=data-Ref=0-Base=binary-Len=0-Val=6000-Loc=0)
*(Lin=269-Col=12-Fil=1-Id=372-Typ=symbol)
tw-end-ss(Lin=269-Col=12-Fil=1-Id=373-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=129)
100(Lin=269-Col=12-Fil=1-Id=374-Typ=data-Ref=0-Base=binary-Len=0-Val=100-Loc=0)
tw-end-th(Lin=269-Col=12-Fil=1-Id=375-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=131)
:=(Lin=274-Col=12-Fil=1-Id=376-Typ=symbol)
tw-et-time(Lin=274-Col=12-Fil=1-Id=377-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=152)
-(Lin=274-Col=12-Fil=1-Id=378-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=379-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=380-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=381-Typ=symbol)
*(Lin=89-Col=12-Fil=2-Id=382-Typ=symbol)
tw-end-hh(Lin=89-Col=12-Fil=2-Id=383-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=125)
360000(Lin=89-Col=12-Fil=2-Id=384-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=385-Typ=symbol)
tw-end-mm(Lin=89-Col=12-Fil=2-Id=386-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=127)
6000(Lin=89-Col=12-Fil=2-Id=387-Typ=data-Ref=0-Base=binary-Len=0-Val=6000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=388-Typ=symbol)
tw-end-ss(Lin=89-Col=12-Fil=2-Id=389-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=129)
100(Lin=89-Col=12-Fil=2-Id=390-Typ=data-Ref=0-Base=binary-Len=0-Val=100-Loc=0)
tw-end-th(Lin=89-Col=12-Fil=2-Id=391-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=131)
+(Lin=89-Col=12-Fil=2-Id=392-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=393-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=394-Typ=symbol)
*(Lin=89-Col=12-Fil=2-Id=395-Typ=symbol)
tw-beg-hh(Lin=89-Col=12-Fil=2-Id=396-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=101)
360000(Lin=89-Col=12-Fil=2-Id=397-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=398-Typ=symbol)
tw-beg-mm(Lin=89-Col=12-Fil=2-Id=399-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=103)
6000(Lin=89-Col=12-Fil=2-Id=400-Typ=data-Ref=0-Base=binary-Len=0-Val=6000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=401-Typ=symbol)
tw-beg-ss(Lin=89-Col=12-Fil=2-Id=402-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=105)
100(Lin=89-Col=12-Fil=2-Id=403-Typ=data-Ref=0-Base=binary-Len=0-Val=100-Loc=0)
tw-beg-th(Lin=89-Col=12-Fil=2-Id=404-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=107)
:=(Lin=276-Col=12-Fil=1-Id=405-Typ=symbol)
tw-et-time(Lin=276-Col=12-Fil=1-Id=406-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=152)
/(Lin=276-Col=12-Fil=1-Id=407-Typ=symbol)
-(Lin=89-Col=12-Fil=2-Id=408-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=409-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=410-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=411-Typ=symbol)
*(Lin=89-Col=12-Fil=2-Id=412-Typ=symbol)
tw-end-hh(Lin=89-Col=12-Fil=2-Id=413-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=125)
360000(Lin=89-Col=12-Fil=2-Id=414-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=415-Typ=symbol)
tw-end-mm(Lin=89-Col=12-Fil=2-Id=416-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=127)
6000(Lin=89-Col=12-Fil=2-Id=417-Typ=data-Ref=0-Base=binary-Len=0-Val=6000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=418-Typ=symbol)
tw-end-ss(Lin=89-Col=12-Fil=2-Id=419-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=129)
100(Lin=89-Col=12-Fil=2-Id=420-Typ=data-Ref=0-Base=binary-Len=0-Val=100-Loc=0)
tw-end-th(Lin=89-Col=12-Fil=2-Id=421-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=131)
+(Lin=89-Col=12-Fil=2-Id=422-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=423-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=424-Typ=symbol)
*(Lin=89-Col=12-Fil=2-Id=425-Typ=symbol)
tw-beg-hh(Lin=89-Col=12-Fil=2-Id=426-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=101)
360000(Lin=89-Col=12-Fil=2-Id=427-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=428-Typ=symbol)
tw-beg-mm(Lin=89-Col=12-Fil=2-Id=429-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=103)
6000(Lin=89-Col=12-Fil=2-Id=430-Typ=data-Ref=0-Base=binary-Len=0-Val=6000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=431-Typ=symbol)
tw-beg-ss(Lin=89-Col=12-Fil=2-Id=432-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=105)
100(Lin=89-Col=12-Fil=2-Id=433-Typ=data-Ref=0-Base=binary-Len=0-Val=100-Loc=0)
tw-beg-th(Lin=89-Col=12-Fil=2-Id=434-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=107)
360000(Lin=276-Col=12-Fil=1-Id=435-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
:=(Lin=276-Col=12-Fil=1-Id=436-Typ=symbol)
tw-et-time(Lin=276-Col=12-Fil=1-Id=437-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=152)
modulo(Lin=276-Col=12-Fil=1-Id=438-Typ=symbol)
/(Lin=89-Col=12-Fil=2-Id=439-Typ=symbol)
-(Lin=89-Col=12-Fil=2-Id=440-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=441-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=442-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=443-Typ=symbol)
*(Lin=89-Col=12-Fil=2-Id=444-Typ=symbol)
tw-end-hh(Lin=89-Col=12-Fil=2-Id=445-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=125)
360000(Lin=89-Col=12-Fil=2-Id=446-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=447-Typ=symbol)
tw-end-mm(Lin=89-Col=12-Fil=2-Id=448-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=127)
6000(Lin=89-Col=12-Fil=2-Id=449-Typ=data-Ref=0-Base=binary-Len=0-Val=6000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=450-Typ=symbol)
tw-end-ss(Lin=89-Col=12-Fil=2-Id=451-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=129)
100(Lin=89-Col=12-Fil=2-Id=452-Typ=data-Ref=0-Base=binary-Len=0-Val=100-Loc=0)
tw-end-th(Lin=89-Col=12-Fil=2-Id=453-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=131)
+(Lin=89-Col=12-Fil=2-Id=454-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=455-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=456-Typ=symbol)
*(Lin=89-Col=12-Fil=2-Id=457-Typ=symbol)
tw-beg-hh(Lin=89-Col=12-Fil=2-Id=458-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=101)
360000(Lin=89-Col=12-Fil=2-Id=459-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=460-Typ=symbol)
tw-beg-mm(Lin=89-Col=12-Fil=2-Id=461-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=103)
6000(Lin=89-Col=12-Fil=2-Id=462-Typ=data-Ref=0-Base=binary-Len=0-Val=6000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=463-Typ=symbol)
tw-beg-ss(Lin=89-Col=12-Fil=2-Id=464-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=105)
100(Lin=89-Col=12-Fil=2-Id=465-Typ=data-Ref=0-Base=binary-Len=0-Val=100-Loc=0)
tw-beg-th(Lin=89-Col=12-Fil=2-Id=466-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=107)
360000(Lin=89-Col=12-Fil=2-Id=467-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
360000(Lin=276-Col=12-Fil=1-Id=468-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
:=(Lin=279-Col=12-Fil=1-Id=469-Typ=symbol)
tw-et-time(Lin=279-Col=12-Fil=1-Id=470-Typ=data-Ref=1-Base=bcd-Len=8-Dur=static-Fmt=9(08)-Lbd=1-Val=somevalue-Loc=152)
/(Lin=279-Col=12-Fil=1-Id=471-Typ=symbol)
modulo(Lin=89-Col=12-Fil=2-Id=472-Typ=symbol)
/(Lin=89-Col=12-Fil=2-Id=473-Typ=symbol)
-(Lin=89-Col=12-Fil=2-Id=474-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=475-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=476-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=477-Typ=symbol)
*(Lin=89-Col=12-Fil=2-Id=478-Typ=symbol)
tw-end-hh(Lin=89-Col=12-Fil=2-Id=479-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=125)
360000(Lin=89-Col=12-Fil=2-Id=480-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=481-Typ=symbol)
tw-end-mm(Lin=89-Col=12-Fil=2-Id=482-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=127)
6000(Lin=89-Col=12-Fil=2-Id=483-Typ=data-Ref=0-Base=binary-Len=0-Val=6000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=484-Typ=symbol)
tw-end-ss(Lin=89-Col=12-Fil=2-Id=485-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=129)
100(Lin=89-Col=12-Fil=2-Id=486-Typ=data-Ref=0-Base=binary-Len=0-Val=100-Loc=0)
tw-end-th(Lin=89-Col=12-Fil=2-Id=487-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=131)
+(Lin=89-Col=12-Fil=2-Id=488-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=489-Typ=symbol)
+(Lin=89-Col=12-Fil=2-Id=490-Typ=symbol)
*(Lin=89-Col=12-Fil=2-Id=491-Typ=symbol)
tw-beg-hh(Lin=89-Col=12-Fil=2-Id=492-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=101)
360000(Lin=89-Col=12-Fil=2-Id=493-Typ=data-Ref=0-Base=binary-Len=0-Val=360000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=494-Typ=symbol)
tw-beg-mm(Lin=89-Col=12-Fil=2-Id=495-Typ=data-Ref=1-Base=bcd-Len=2-Dur=static-Fmt=9(02)-Lbd=1-Val=somevalue-Loc=103)
6000(Lin=89-Col=12-Fil=2-Id=496-Typ=data-Ref=0-Base=binary-Len=0-Val=6000-Loc=0)
*(Lin=89-Col=12-Fil=2-Id=497-Typ=symbol)
tw-beg-ss(Lin=89-Col=12-Fil=2
[ Seitenstruktur0.161Drucken
]
