Quellcode-Bibliothek

Spracherkennung für: .rtf vermutete Sprache: Haskell {Haskell[176] Abap[346] [0]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

{\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 GETNUMT\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf1 \f1 DATE-WRITTEN\cf0\f0 .  04/04/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 I-O-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 
\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 
       \cf3 \f1 77\cf0\f0   \cf4 \f1 WS-ESCAPE-FLAG\cf0\f0               \cf2 \f1 PIC\cf0\f0   9(01) \cf1 \f1     \cf0\f0 C\cf1 \f1 OMP V\cf0\f0 A\cf3 \f1 L\cf0\f0 \cf2 \f1 U\cf0\f0 E 0.
\par 
       \cf3 \f1 77\cf0\f0   \cf4 \f1 WS-ERR-MSG\cf0\f0                   \cf2 \f1 PIC\cf0\f0   X(30) \cf1 \f1     V\cf0\f0 A\cf1 \f1 LUE SP\cf0\f0 \cf2 \f1 A\cf0\f0 CES.
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf9 \f1 COPY\cf0\f0 \cf9 \f1  GETNUMW.CO\cf0\f0 B.
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf1 \f1 SCREEN\cf0\f0  \cf1 \f1 SECTION\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       *                     I N P U T   S C R E E N\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf3 \f1 01\cf0\f0   \cf4 \f1 INPUT-SCREEN\cf0\f0 
\par 
               \cf1 \f1 FOREGROUND-COLOR\cf0\f0  \cf3 \f1 7\cf0\f0 
\par 
               \cf1 \f1 BACKGROUND-COLOR\cf0\f0  \cf3 \f1 0\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf3 \f1 03\cf0\f0   \cf1 \f1 BLANK\cf0\f0  \cf1 \f1 SCREEN\cf0\f0 
\par 
               \cf1 \f1 LINE\cf0\f0  \cf3 \f1 01\cf0\f0   \cf1 \f1 COLUMN\cf0\f0  \cf3 \f1 31\cf0\f0   \cf1 \f1 VALUE\cf0\f0  \cf2 \f1 "G E T N U M B E R"\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf3 \f1 03\cf0\f0   \cf1 \f1 LINE\cf0\f0  \cf3 \f1 03\cf0\f0   \cf1 \f1 COLUMN\cf0\f0  \cf3 \f1 01\cf0\f0   \cf1 \f1 VALUE\cf0\f0  \cf2 \f1 "Enter Number: "\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf3 \f1 03\cf0\f0   \cf2 \f1 PIC\cf0\f0   X(25)      \cf1 \f1     U\cf0\f0 S\cf4 \f1 ING NW-WORK\cf0\f0 \cf2 \f1 -\cf0\f0 NBR.
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
\cf6 \f1       *                    O U T P U T   S C R E E N\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf3 \f1 01\cf0\f0   \cf4 \f1 OUTPUT-SCREEN\cf0\f0 
\par 
               \cf1 \f1 FOREGROUND-COLOR\cf0\f0  \cf3 \f1 7\cf0\f0 
\par 
               \cf1 \f1 BACKGROUND-COLOR\cf0\f0  \cf3 \f1 0\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf3 \f1 03\cf0\f0   \cf1 \f1 LINE\cf0\f0  \cf3 \f1 05\cf0\f0   \cf1 \f1 COLUMN\cf0\f0  \cf3 \f1 01\cf0\f0   \cf1 \f1 VALUE\cf0\f0  \cf2 \f1 " Result: "\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf3 \f1 03\cf0\f0   \cf2 \f1 PIC\cf0\f0   -(13).\cf1 \f1 9(06\cf0\f0 ) \cf4 \f1    FROM  NW-EXTR\cf0\f0 \cf2 \f1 A\cf0\f0 CTED-NBR.
\par 
           \cf3 \f1 03\cf0\f0            \cf1 \f1 COLUMN\cf0\f0  \cf3 \f1 41\cf0\f0 
\par 
               \cf2 \f1 PIC\cf0\f0   X(30)      \cf1 \f1     \cf0\f0 FR\cf4 \f1 OM  WS-ERR\cf0\f0 \cf2 \f1 -\cf0\f0 MSG.
\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       *             C O N T R O L   S E C T I O N\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf8 \f1 000000-CONTROL\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 NW-WORK-NBR\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
           \cf1 \f1 DISPLAY\cf0\f0  \cf4 \f1 INPUT-SCREEN\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 PERFORM\cf0\f0  \cf4 \f1 000100-PROCESS\cf0\f0 
\par 
              \cf1 \f1 THRU\cf0\f0  \cf4 \f1 000100-EXIT\cf0\f0 
\par 
               \cf1 \f1 UNTIL\cf0\f0  \cf2 \f1 (\cf0\f0 \cf4 \f1 WS-ESCAPE-FLAG\cf0\f0  \cf2 \f1 =\cf0\f0  \cf3 \f1 1\cf0\f0 \cf2 \f1 )\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf8 \f1 000000-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       *                    P R O C E S S\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf8 \f1 000100-PROCESS\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 ACCEPT\cf0\f0  \cf4 \f1 INPUT-SCREEN\cf0\f0 
\par 
               \cf1 \f1 ON\cf0\f0  \cf1 \f1 ESCAPE\cf0\f0 
\par 
                   \cf1 \f1 MOVE\cf0\f0  \cf3 \f1 1\cf0\f0  \cf1 \f1 TO\cf0\f0  \cf4 \f1 WS-ESCAPE-FLAG\cf0\f0 
\par 
                   \cf1 \f1 GO\cf0\f0  \cf1 \f1 TO\cf0\f0  \cf4 \f1 000100-EXIT\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 PERFORM\cf0\f0  \cf4 \f1 003000-GET-NBR\cf0\f0 
\par 
              \cf1 \f1 THRU\cf0\f0  \cf4 \f1 003000-EXIT\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 IF\cf0\f0  \cf2 \f1 (\cf0\f0 \cf4 \f1 NW-NBR-ERROR-FLAG\cf0\f0  \cf2 \f1 =\cf0\f0  \cf3 \f1 1\cf0\f0 \cf2 \f1 )\cf0\f0 
\par 
               \cf1 \f1 MOVE\cf0\f0  \cf2 \f1 "NUMBER INVALID"\cf0\f0  \cf1 \f1 TO\cf0\f0  \cf4 \f1 WS-ERR-MSG\cf0\f0 
\par 
           \cf1 \f1 ELSE\cf0\f0 
\par 
               \cf1 \f1 MOVE\cf0\f0  \cf1 \f1 SPACES\cf0\f0            \cf1 \f1 TO\cf0\f0  \cf4 \f1 WS-ERR-MSG\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
           \cf1 \f1 DISPLAY\cf0\f0  \cf4 \f1 OUTPUT-SCREEN\cf0\f0 \cf2 \f1 .\cf0\f0 
\par 
\cf6 \f1       *\cf0\f0 
\par 
       \cf8 \f1 000100-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  GETNUMP.CO\cf0\f0 B.
\par 
 }








$/6?
!#$%
(
'()*)0&08+,- -4*4!#$"/6,6!#$ #3456
-.89%&025?




(























(
'()*)0&08+,- -4*4!#$"/6,6!#$ #3456
-.89%&025?























#/
'()*)0&08+,- -4*4!#$"/6,6!#$ #3456
-.89%&025?























0
 style='color:blue'>"#&"%"%"(-!"%#




& $

































!$4*
!$4"0


%# ",.7
%#"$.09
!#/1<




%
#
+,- ,3+5 /01$07/9!%'(!&290:%'(!$'789:
 !*,/8




'
























!,

$
(/;
!
!

"!






















(/;
!
!
&




























[ Verzeichnis aufwärts0.761unsichere Verbindung  ]