LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)O^POM6 R POM.INT6R POM.LST6R POM.ANM60R POM.ACP60R PI2.LST 4 .!.HORSE.TEXT 5R HORSESHIT.INT/R SHIT.TEXT.TEXT / R HORSESHIT.CBL5R HORSESHIT.LST 5R AWCOBOL.TAB69R DEMO.D00M ,-DEMO.CBLY ,+ SHELL.CBLf4&R; SHELL.INTj4*R; SHELL.LSTl4*R MFIo/;.DEMO.LSTE,STOCK2.CBL- ,STOCK1.INT9,-STOCK2.INT= ,-DEMO.INTC,-DEMO.ANMJ,-DEMO.ACPK,-DEMO.V1.0u' *STOCK1.CBL02 &PI.CBLL00001 *STOCK2.CBL03 COBOL&PI2.D00 ,-STOCK1.CBL% >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L 000560 DISPLAY SPACE. 000570 DISPLAY "END OF PROGRAM". 000580 STOP RUN. C TO PRODUCT-DESC. 000500 MOVE CRT-UNIT-SIZE TO UNIT-SIZE. 000510 MOVE CRT-STOCK-CODE TO STOCK-CODE. 000520 WRITE STOCK-ITEM; INVALID GO TO CORRECT-ERROR. 000530 GO TO NORMAL-INPUT. 000540 END-IT. 000550 CLOSE STOCK-FILE. . 000430 MOVE SPACE TO ENTER-IT. 000440 DISPLAY ENTER-IT. 000450 CORRECT-ERROR. 000460 ACCEPT ENTER-IT. 000470 IF CRT-STOCK-CODE = SPACE GO TO END-IT. 000480 IF CRT-UNIT-SIZE NOT NUMERIC GO TO CORRECT-ERROR. 000490 MOVE CRT-PROD-DES). 000340 02 FILLER PIC X(56). 000350 02 CRT-UNIT-SIZE PIC 9(4). 000360 02 FILLER PIC X. 000370 PROCEDURE DIVISION. 000380 SR1. 000390 DISPLAY SPACE. 000400 OPEN I-O STOCK-FILE. 000410 DISPLAY SCREEN-HEADINGS. 000420 NORMAL-INPUT000280 02 ASK-SIZE PIC X(21) VALUE "UNIT SIZE < >". 000290 01 ENTER-IT REDEFINES SCREEN-HEADINGS. 000300 02 FILLER PIC X(16). 000310 02 CRT-STOCK-CODE PIC X(4). 000320 02 FILLER PIC X(76). 000330 02 CRT-PROD-DESC PIC X(24"STOCK CODE < >". 000240 02 FILLER PIC X(59). 000250 02 ASK-DESC PIC X(16) VALUE "DESCRIPTION <". 000260 02 SI-DESC PIC X(25) VALUE " >". 000270 02 FILLER PIC X(39). STOCK-FILE; RECORD 32. 000170 01 STOCK-ITEM. 000180 02 STOCK-CODE PIC X(4). 000190 02 PRODUCT-DESC PIC X(24). 000200 02 UNIT-SIZE PIC 9(4). 000210 WORKING-STORAGE SECTION. 000220 01 SCREEN-HEADINGS. 000230 02 ASK-CODE PIC X(21) VALUE SOLE IS CRT. 000080 INPUT-OUTPUT SECTION. 000090 FILE-CONTROL. 000100 SELECT STOCK-FILE ASSIGN "STOCK.IT" 000110 ORGANIZATION INDEXED 000120 ACCESS DYNAMIC 000130 RECORD KEY STOCK-CODE. 000140 DATA DIVISION. 000150 FILE SECTION. 000160 FD 000010 IDENTIFICATION DIVISION. 000020 PROGRAM-ID. STOCK-FILE-SET-UP. 000030 AUTHOR. MICRO FOCUS LTD. 000040 ENVIRONMENT DIVISION. 000050 CONFIGURATION SECTION. 000060 SOURCE-COMPUTER. APPLE-III. 000070 OBJECT-COMPUTER. APPLE-III. 000075 SPECIAL-NAMES. CONO^q STOP RUN. HALT. ADD TERM TO PI. COMPUTE ED = PI * 6. +MOVE ED TO DI-PI2. MOVE TERM TO ED. MOVE ED TO DI-TERM2. DISPLAY DI-2. ADD 2 TO N. IF N < 100 GO TO LOOP. HALT. 3 TO ED. MOVE ED TO DI-PI. DISPLAY DI-1. MOVE 0.5 TO PI. MOVE 0.5 TO TERM. MOVE 3 TO N. LOOP. +COMPUTE TERM = (TERM * (N - 2) ** 2) / (4 * N * (N - 1)). +IF TERM < 0.0000000000001 THEN GO TO URE DIVISION. LA-START. DISPLAY SPACE. MOVE SPACE TO SCREEN. MOVE TX1 TO DI-TX1. MOVE TX2 TO DI-TX2. MOVE TX3 TO DI-TX3. MOVE 0.5 TO ED. MOVE ED TO DI-TERM. MOVE 02 N2 PIC 9999. 02 ED PIC -9.9(12). * 01 CONSTANTS. 02 TX1 PIC X(17) VALUE "CALCULATION OF PI". 02 TX2 PIC X(12) VALUE "NEXT TERM IS". 02 TX3 PIC X(5) VALUE "PI IS". * PROCED 02 DI-PI2 PIC X(15). 02 FILLER PIC X(1415). * 01 WORK-AREA. 02 PI PIC S9V9(14). 02 TERM PIC S9V9(14). 02 W PIC S9V9(14). 02 N PIC 9999. 02 N1 PIC 9999. LLER PIC X(136). 02 DI-TX3 PIC X(6). 02 DI-PI PIC X(15). 02 FILLER PIC X(1415). * 01 DI-2 REDEFINES SCREEN. 02 FILLER PIC X(333). 02 DI-TERM2 PIC X(15). 02 FILLER PIC X(142). WORKING-STORAGE SECTION. * 01 SCREEN PIC X(1920). * 01 DI-1 REDEFINES SCREEN. 02 FILLER PIC X(160). 02 DI-TX1 PIC X(160). 02 DI-TX2 PIC X(13). 02 DI-TERM PIC X(15). 02 FI IDENTIFICATION DIVISION. PROGRAM-ID. PI-CALC. AUTHOR. PF/TR. * ENVIRONMENT DIVISION. CONFIGURATION SECTION. OBJECT-COMPUTER. APPLE-III. SPECIAL-NAMES. CONSOLE IS CRT. * DATA DIVISION.  OF UNITS < >". 01 STOCK-RECEIPT REDEFINES STOCK-INWARD-FORM. 02 FILLER PIC X(178). 02 SR-STOCK-CODE PIC X(4). 02 FILLER PIC X(74). 02 SR-ORDER-NO PIC X(6). 02 FILLER PIC X(73). 57). 02 ORDER-NO-HDNG PIC X(23) VALUE "ORDER NO < >". 02 FILLER PIC X(57). 02 DATE-HDNG PIC X(24) VALUE "DELIVERY DATE MM/DD/YY". 02 FILLER PIC X(56). 02 UNITS-HDNG PIC X(23) VALUE "NO WORKING-STORAGE SECTION. 01 STOCK-INWARD-FORM. 02 PRG-TITLE PIC X(20) VALUE " GOODS INWARD". 02 FILLER PIC X(140). 02 CODE-HDNG PIC X(23) VALUE "STOCK CODE < >". 02 FILLER PIC X( FD TRANS-FILE; RECORD 30. 01 TRANS-RECORD. 02 TRAN-NO PIC 9(4). 02 TF-STOCK-CODE PIC X(4). 02 TF-QUANTITY PIC 9(8). 02 TF-ORDER-NO PIC X(6). 02 TF-DATE PIC X(8). ORGANIZATION SEQUENTIAL. / DATA DIVISION. FILE SECTION. FD STOCK-FILE; RECORD 32. 01 STOCK-ITEM. 02 STOCK-CODE PIC X(4). 02 STOCK-DESCRIPT PIC X(24). 02 UNIT-SIZE PIC 9(4). RT. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT STOCK-FILE ASSIGN "STOCK.IT" ORGANIZATION INDEXED ACCESS DYNAMIC RECORD KEY STOCK-CODE. SELECT TRANS-FILE ASSIGN "STOCK.TRS" IDENTIFICATION DIVISION. PROGRAM-ID. GOODS-IN. AUTHOR. MICRO FOCUS LTD. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. APPLE-III. OBJECT-COMPUTER. APPLE-III. SPECIAL-NAMES. CONSOLE IS C !"#$%O^ 02 SR-DATE. 04 SR-MM PIC 99. 04 FILLER PIC X. 04 SR-DD PIC 99. 04 FILLER PIC X. 04 SR-YY PIC 99. 02 FILLER PIC X(75). 02 SR-NO-OF-UNITS PIC 9(4). 01 CONFIRM-MSG REDEFINES STOCK-INWARD-FORM. 02 FILLER PIC X(184). 02 CM-STOCK-DESCRIPT PIC X(24). 02 FILLER PIC X(352). 02 UNIT-SIZE-HDNG PIC X(18). &1 &'COBOLv' 'ISAM)!@&ADISJ &FORMS2.CH1T60 &FORMS2.CH2U0 &FORMS2.GN1V1 &*FORMS2.GN2e. DISPLAY SPACE. DISPLAY "END OF PROGRAM". STOP RUN. DISPLAY "NON-NUMERIC NO OF UNITS" AT 0325. GO TO GET-INPUT. INVALID-CODE. DISPLAY "INVALID CODE " AT 0325. GO TO GET-INPUT. END-IT. CLOSE STOCK-FILE. CLOSE TRANS-FILETE-TRANS. ADD 1 TO TRAN-NO. MOVE STOCK-CODE TO TF-STOCK-CODE. MOVE SR-ORDER-NO TO TF-ORDER-NO. MOVE GET-INPUT TO TF-DATE. WRITE TRANS-RECORD. INVALID-ENTRY. IF CM-Y-OR-N = "Y" PERFORM WRITE-TRANS. *CLEAR INPUT DATA ON SCREEN MOVE SPACE TO CONFIRM-MSG. MOVE "MM/DD/YY" TO SR-DATE. DISPLAY STOCK-RECEIPT. DISPLAY CONFIRM-MSG. GO TO GET-INPUT. WRIHDNG. MOVE UNIT-SIZE TO TF-QUANTITY. MULTIPLY SR-NO-OF-UNITS BY TF-QUANTITY. MOVE TF-QUANTITY TO CM-QUANTITY. MOVE "OK?" TO OK-HDNG. DISPLAY CONFIRM-MSG. ACCEPT CM-Y-OR-N AT 1004. *VALID ENTRY, CALCULATE AND DISPLAY TOTAL QUANTITY IN TO CONFIRM MOVE STOCK-DESCRIPT TO CM-STOCK-DESCRIPT. MOVE "UNIT SIZE" TO UNIT-SIZE-HDNG. MOVE UNIT-SIZE TO CM-UNIT-SIZE. MOVE "QUANTITY IN" TO QUANTITY-IF SR-STOCK-CODE = SPACE GO TO END-IT. IF SR-NO-OF-UNITS NOT NUMERIC GO TO INVALID-ENTRY. MOVE SR-STOCK-CODE TO STOCK-CODE. READ STOCK-FILE; INVALID GO TO INVALID-CODE. URE DIVISION. START-PROC. OPEN I-O STOCK-FILE. OPEN OUTPUT TRANS-FILE. DISPLAY SPACE. MOVE 0 TO TRAN-NO. DISPLAY STOCK-INWARD-FORM. GET-INPUT. ACCEPT STOCK-RECEIPT. 02 CM-UNIT-SIZE PIC 9(4). 02 FILLER PIC X(58). 02 QUANTITY-HDNG PIC X(14). 02 CM-QUANTITY PIC 9(8). 02 FILLER PIC X(58). 02 OK-HDNG PIC X(3). 02 CM-Y-OR-N PIC X. / PROCED  #    O O    7o o   % 7 % %   )-/8 T (*+,-./0123456789:;<=>?@ABCDEFGH 7  0002102122232499 99)9+9/99999999뜝 d &( # . . eTC0D0 C +T+T...C01CdTU. HDG H KDJ K@(F 2@(J 03 4 D03 C5+TG6-TUTH](@g +B]T*T\gC\,@wCF@gCF@g-C$@gCF@g +C$CgCF _ @g l CJClN(N +N lR(R +R 0.C0/U.CMU; ]$$Cg o,C\% {&@U  Cg&Cc o,{&U yyDy Kh +R U@C$@ ( '(Cg(@F)Cg@ F)@ F)HB@FVJC3*% C o T@C Zo@@o oq oq@g`?TUcC Zo!U"ؠ`7@tHuRm ] s#,o ]"C0s#s##"$ lCt  PB KD TT*m@muDt uEs t(uEt uDsum@s t(u@; qZCtc@@; o,Ct{@,om@t0 o C0wxw oeTo Zog Zo oC _ ]R@T_R]U@\CU@\EUTZ Z VVX 8XHa.c ZcTe&NTeLPL_L]=MPM_M]=R_.a ,aZ KPC3 aa ZaLaZa ,aTT TmC0mlln@l0PBk(((KD(DKD(D(DKD(DHDk(h(h(h(hKh(hC7 N&@\C7@\>R:T D0=. +T? C@@( F@( J0A@(TUT,T. C $@CB+TGEG HHUT,T`VhP T(TZC\lZKP@7(V\-\ 0 ^ R0@yQ@KP@y(C5<0XXUT,XT P:a+T 0 V  0 0C5'0iC40C40 'i(()`(`(+E%+(8(1@0H,(.M.(R  >( hT,( b#݀C4S CG0 CJD +()'i " C!C1#4"  &NHNV(&&&H&@4bC1C40 (  JC\ C3D FbC4C4bF |C FC F@ F}  ~HBV@ F}@F@ 0C!C1C\ }HB@FVJbC#C4C4bHC7C# n]C#@g#gfC19@gC$ y st%uD0sKPs@0C4bC3vCFb wxC3ymw%C7zw 0xi=0xw 0x%yJVbC4C4bHC7 n]@g 0{@F@ 4bC3jCFbC7j]hjb klC3m%mwC7nw 0lOloSpC3lqrs0lw 0lC3CF@F0l%mqVJbC7t:]C$SuaC4C3abC FaH]habOcdC1(\g ceC1fC6 c0c w0cC Fg PBfC40fw@0/M0cC4@F%0c%hiiVJbCZq/TT)d,Dss MKj! BP0NY@C7H]\:]C\]C$S](@g \\C$isKPl@C7^aC$S_(\g y ^^/M0^ P:C4C3` ,  oZ  ZTt qa Z qmuTm o 0PTTCt[;0NZtC Z Zo ZqMRmR 0Nz@yC0  Zto ZCHq Z ZoUD(TDU. mV ,Z(T n m(mV0NC5Ct WC6 N0Nz@ @zC0 X   CY a ZTt Z a ,a Zq Z(C5 \?C7< #_#^#`; :e`#`; @0+aģET+Z+Z @, V-@ W(Z. .(e>C7< +^+\: :m\+\:+w({C0 [ Z(ZC4+0 C40  C7:]RKPs> C!cc((C! D+(C!k#Y+&(#"@ $ h+0*C!+cck#Y+&(#"@ $ h+0*+( (C!c  (D"(#.$kh+(+c*Y,C!kc  (D"(#.$kh+(+c)]+( N+N`YH# #(0(&`C!#Y+&(#@4`?T@$"K230$mC!$me,(, T,|(|c  (D0$m"(#.$k0$m((C!kK-((-kC!c((C!` D0C!e,(, T,|(|(zc  (D0"(#.$k0("@$#.#Y \`T(z,|(|(|(k, (,@!c@!,k-((k(+(C LCMCM C, H( hec & M-+  %4!c  (D0$m"(#.$k0$m((D0,w#Y+&(#@$80$m(,hh` (h,,M -@LM@@ttCdt@@k@t,t L&ktT,HHt--TlLC!C!C!h(  + (+ ,-  t tMH-@ tdt?@e@tdtؠ`?t  t  ?@e@KH&@4& & $ ? C$# "(D!c  (D"(#.$k((D,w#Y+&(#(@$N@w01T @F @ F0@##Jb}cYC! [C#U` ""##@$E#@$E$@$@$C#@ $ YC(sc[H &K&&&(K TT&vBIDXUvC1@7BSX0Uv$xT&vT :;ځ@7E;< L 8L<@5@6C!@5@64 0 C40H]@g`?$b+ b(&m$- ,&*HD *K( (c_(aH_&v(s(&s(|cYC!hsHC!hsH#4C4E4(z(Y123C3E3H8(]@(zT],\ T C\LT@7 R+VX+\V+ZT  P:a ^R : PLL,VT+TTV 0HN YCc[bK&(k0 C0hVhT,:T,:T`ZUV^UT[] T V C\DU@7 R#]V#\W#[U  P:aW _R ^S PL :LlVlT*hT,ThV,VVUTX@!@!c(pcD!))@!(C9M/h@!K ( - ($&(,"K"'-#.$kخ-Dn'imc<(YS]= ] : P L < + d  Q b D  @ h !  ^. Us~j 6QnM`F1(G 28$k7S=#-^zNl$N/  I9 X$U!,"""##(#Y$\######$'$$$$%CyQ&Q+Pc;{Cy4 QK&M&L FD( H(brsHHDLDHFss FD,#LHLFc;@'KtHC@yQQQ H-C@.C P-Cؠ=eؠe=ؠ=3=ؠ3==@&B' &&L &K&C'@L&K'@CCBCC(a H(c;C)  HJ&c;C@&*ؠ /C@Ġ 0C@Ġ 5c;Q& 1C@Ġ 2 H@'"H @'K# (@'(  (@' ( "@'"  "@' "("y+$ @@ y+* )"y+"" +*-H Hd  $  %C$ LHH@ 'H@ '@'H. 7*(#K00,C0,{,{-{. HHHKHH"H((( ""(CE@'C  !#]@' #]@'  H! =;C:?:=QC?=eH"K  &w H $ pH":K" H "&Ơ=e&"L ~6@@ +"KMH@& &y+"& H@' MCADAK= L J&wH HH NL FD@ DJ DHHFL=M= =QĠQ=MLDF? H$ H$ H$$@H&EA@$& H&@H& $&YC?K=K=C?*0@B@A@@@CC1@?C.@?/A@?/BCBC& 8* 9% :%C*@MNLDC+NJ NC*C,'P@@@@Cy."QNJ LN ?CAEAKF @ FJ FHHF F HC@ JD FL Hy- Q& y,  Q(H==;=Q=e@:H &C0@E0&09' &M1K@HK&y-&Q& 9v9v   H@?LNy.$QN LN& 8(C) 1980,1981 Micro Focus Ltd  " DIVISIO DIVISIO DIVISIO IKLMNOPQRS  )NP~     !""####$%%%%%%%  (08@H **%!'"%%&Z%&S%&2&6&&&&''h''S())]))**Y**+l++!+/++,,E,,,-!-nKR-EXIT-RT9 KR-EXIT-RT9 KR-EXIT-RTAAHA$.,'-C/ &y+"& /C@  0 D(aC@ Dss>a-@BCB(assCB>ac;C1C?CYCL| 2PCCACA3405:3C/QJ "Cy4  QHC{49CHHH@P@ y+  !CEL6z+&*67C8ED+*|9 C! [P DP [PPPP9:@PJ 01 CURSOR-POSITION PIC 9(4) VALUE ZERO. 01 INDICATORS. 02 CURRENT-RECORD PIC X(3) VALUE "NO". 02 END-OF-FILE PIC X(3) VALUE "NO". 02 KEY-CHANGED PIC X(3). 02 DATA-CHANGED STATUS IS FILE-STATUS. DATA DIVISION. FILE SECTION. FD INDEXED-FILE. 01 INDEXED-RECORD. 03 RECORD-KEY. CURSOR IS CURSOR-POSITION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INDEXED-FILE ASSIGN FILE-NAME ORGANIZATION INDEXED ACCESS DYNAMIC RECORD KEY RECORD-KEY RM-CHECK. IF W-REPLY = "y" GO TO FORM-CHECK. DISPLAY SPACE UPON CRT. DISPLAY "END OF FORMS2 CHECK-OUT" UPON CONSOLE. EXIT-PROGRAM. EXIT PROGRAM. STOP-RUN. STOP RUN. CHECK-END. MOVE "N" TO W-REPLY. DISPLAY SPACE UPON CRT. DISPLAY "CHECK-OUT completed" AT 0101. DISPLAY "Repeat? [N] (Y=Yes)" AT 0201. ACCEPT W-REPLY AT 0210. IF W-REPLY = "Y" GO TO FO / PROCEDURE DIVISION. FORM-CHECK. EXIT-RTӹFLALA EXIT-RTӹFLALA EXIT-RTӹFLALA AAHA$.,RFK $ , Z a | C:  }C: c;e; ;}خ rv7DYUXKe.]Vq" gUasWie :   d 9 [  . S b   ) } ; ? ~ EXIT-RTӹFLALA  -y,& Q CL pLc;M N m PD OPOPQPy,  Q K g ~ H =Q ~RCx EA ?Y H =; R ? \RQ= ? ; ;'(C@  J dLK`;K@AH @ CK@DKK@@@ P <@`;KK "")@"@(H(H "HK a`;HHDLDHJ@@ss <H HLHKL.C ,D-C,D - -HH m ;=@PDA@DACP i mKF m =Q@CAEA m i =;@ i =Q@KFCA i m iy+)* C* i@$*% $IC*Š+*@9 $ $ H$ $ HDA m$ mA S d =; m&M&J( D(M( &J;M&0 9 M(  (J:@0M( (J< Hss =AP>?݁>?@A PABCDEKFF =Q@ iEA mCAEAH my, P QJ iKGKPIC X(3). 01 COMMENT PIC X(40) VALUE SPACE. 01 FILE-STATUS. 02 STATUS-1 PIC 9. 02 STATUS-2 PIC X. 01 BINARY-FIELD. 02 BINARY-ZERO PIC X VALUE LOW-VALUE. O^+03 DEMO-02-0013 PIC X(0001) VALUE "[". +03 FILLER PIC X(0015). +03 DEMO-02-0014 PIC X(0001) VALUE "]". +03 FILLER PIC X(0063). +03 DEMO-02-0015 PIC X(0001) VALUE "[". +03 FILLER PIC X(0015). +03 DEMO-02-0-02-0010 PIC X(0001) VALUE "]". +03 FILLER PIC X(0063). +03 DEMO-02-0011 PIC X(0001) VALUE "[". +03 FILLER PIC X(0015). +03 DEMO-02-0012 PIC X(0001) VALUE "]". +03 FILLER PIC X(0063). MO-02-0007 PIC X(0001) VALUE "]". +03 FILLER PIC X(0032). +03 DEMO-02-0008 PIC X(0015) VALUE "between fields)". +03 FILLER PIC X(0016). +03 DEMO-02-0009 PIC X(0001) VALUE "[". +03 FILLER PIC X(0015). +03 DEMO001) VALUE "]". +03 FILLER PIC X(0031). +03 DEMO-02-0005 PIC X(0028) VALUE "(use the cursor keys t &- "o move". +03 FILLER PIC X(0004). +03 DEMO-02-0006 PIC X(0001) VALUE "[". +03 FILLER PIC X(0015). +03 DE+03 FILLER PIC X(0272). +03 DEMO-02-0002 PIC X(0025) VALUE "Type any alphanumeric &- "key". +03 FILLER PIC X(0007). +03 DEMO-02-0003 PIC X(0001) VALUE "[". +03 FILLER PIC X(0015). +03 DEMO-02-0004 PIC X(0PIC 9(0003). +03 FILLER PIC X(0001). +03 DEMO-01-0002 PIC 9(0002). '01 DEMO-02 . +03 FILLER PIC X(0104). +03 DEMO-02-0001 PIC X(0032) VALUE "APPLE /// Demonstratio &- "n Screen 2". LUE "(use ""."" for zero fi &- "ll)". +03 FILLER PIC X(0297). +03 DEMO-00-0005 PIC X(0026) VALUE "(use RETURN when finis &- "hed)". '01 DEMO-01 REDEFINES DEMO-00 . +03 FILLER PIC X(0441). +03 DEMO-01-0001 +03 FILLER PIC X(0192). +03 DEMO-00-0002 PIC X(0020) VALUE "Type a numeric field". +03 FILLER PIC X(0012). +03 DEMO-00-0003 PIC X(0008) VALUE "[999v99]". +03 FILLER PIC X(0040). +03 DEMO-00-0004 PIC X(0023) VA'SPECIAL-NAMES. +CONSOLE IS CRT 9. 'DATA DIVISION. 'WORKING-STORAGE SECTION. '01 W-REPLY PIC X VALUE SPACE. '01 DEMO-00 . +03 FILLER PIC X(0184). +03 DEMO-00-0001 PIC X(0032) VALUE "APPLE /// Demonstratio &- "n Screen 1". XZ[\]^_`abcd016 PIC X(0001) VALUE "]". +03 FILLER PIC X(0191). +03 DEMO-02-0017 PIC X(0022) VALUE "Now try numeric fields &- "". +03 FILLER PIC X(0002). +03 DEMO-02-0018 PIC X(0001) VALUE "<". +03 FILLER PIC X(0007). +03 DEMO-02-0019 PIC X(0001) VALUE "|". +03 FILLER PIC X(0007). +03 DEMO-02-0020 PIC X(0001) VALUE "|". +03 FILLER PIC X(0007). +03 DEMO-02-0021 PIC X(0001) VALUE ">". +03 FILLER PIC X(0031). +03 DEMO-02-002 ACCEPT-FROM-SCREEN. MOVE START-OF-DATA TO CURSOR-POSITION. PERFORM ACCEPT-RECORD THRU SET-UP-RECORD. IF RECORD-KEY NOT = SAVED-KEY MOVE "YES" TO KEY-CHANGED ELSE MOVE "NO" TO KEY-CHANGED. PERFORM SET-UP-FILE-NAME. OPEN I-O INDEXED-FILE. PERFORM CHECK-STATUS. MOVE SPACE TO INDEXED-RECORD. MOVE SPACE TO SAVED-RECORD. PERFORM DISPLAY-FORM. GO TO NO-CURRENT-RECORD. 02 BINARY-CHAR PIC X. 01 BINARY-NO REDEFINES BINARY-FIELD PIC 9(4) COMP. 01 DECIMAL-NO PIC 9(3). 01 LOCKED PIC X VALUE "D". / PROCEDURE DIVISION. START-UP. DISPLAY SPACE UPON CRT. Wfghijklmnopqr DISPLAY "END OF FORMS2 CHECK-OUT" UPON CONSOLE. EXIT-PROGRAM. EXIT PROGRAM. STOP-RUN. STOP RUN. + DISPLAY "CHECK-OUT completed" AT 0101. DISPLAY "Repeat? [N] (Y=Yes)" AT 0201. ACCEPT W-REPLY AT 0210. IF W-REPLY = "Y" GO TO FORM-CHECK. IF W-REPLY = "y" GO TO FORM-CHECK. DISPLAY SPACE. EMO-01 AT 0101. +DISPLAY SPACE. +DISPLAY DEMO-02 AT 0101. +IF W-REPLY NOT = SPACE +DISPLAY DEMO-03 AT 0101. +ACCEPT DEMO-03 AT 0101. CHECK-END. MOVE "N" TO W-REPLY. DISPLAY SPACE. PIC 9(0007). +03 FILLER PIC X(0001). +03 DEMO-03-0009 PIC 9(0007). / PROCEDURE DIVISION. FORM-CHECK. +DISPLAY SPACE. +DISPLAY DEMO-00 AT 0101. +IF W-REPLY NOT = SPACE +DISPLAY DEMO-01 AT 0101. +ACCEPT D PIC X(0065). +03 DEMO-03-0005 PIC X(0015). +03 FILLER PIC X(0065). +03 DEMO-03-0006 PIC X(0015). +03 FILLER PIC X(0217). +03 DEMO-03-0007 PIC 9(0007). +03 FILLER PIC X(0001). +03 DEMO-03-0008 +03 DEMO-03-0001 PIC X(0015). +03 FILLER PIC X(0065). +03 DEMO-03-0002 PIC X(0015). +03 FILLER PIC X(0065). +03 DEMO-03-0003 PIC X(0015). +03 FILLER PIC X(0065). +03 DEMO-03-0004 PIC X(0015). +03 FILLER2 PIC X(0021) VALUE "(note that you cannot" ,. +03 FILLER PIC X(0060). +03 DEMO-02-0023 PIC X(0024) VALUE "enter alphanumeric dat &- "a)". '01 DEMO-03 REDEFINES DEMO-02 . +03 FILLER PIC X(0441). IF RECORD-DATA NOT = SAVED-DATA MOVE "YES" TO DATA-CHANGED ELSE MOVE "NO" TO DATA-CHANGED. MOVE INDEXED-RECORD TO SAVED-RECORD. IF KEY-CHANGED = "YES" GO TO SEE-IF-RECORD-EXISTS. IF DATA-CHANGED = "YES" GO TO UPDATE-RECORD. IF END-OF-FILE = "YES" GO TO CLOSE-DOWN. IF CURRENT-RECORD = "NO" GO TO SEE-IF-ANY-MORE-RECORDS. IF CURRENT-RECORD = "DUP" GO TO REPLACE-RECORD. IF CURRENT-RECORD = "LOK" TO END-OF-FILE. NO-CURRENT-RECORD. MOVE "NO" TO CURRENT-RECORD. CLEAR-DATA. MOVE SPACE TO RECORD-DATA. PERFORM SET-UP-SCREEN. PERFORM SET-UP-RECORD. GO TO SAVE-RECORD-AREA. WRITE-N" GO TO WRITE-NEW-RECORD. IF CURSOR-POSITION = END-OF-DATA GO TO WRITE-NEW-RECORD. IF CURSOR-POSITION = START-OF-KEY GO TO WRITE-NEW-RECORD. RECORD-NOT-FOUND. MOVE "RECORD NOT FOUND" TO COMMENT. MOVE "NO" CKED" TO COMMENT. MOVE "LOK" TO CURRENT-RECORD. GO TO CLEAR-DATA. SEE-IF-NEW-RECORD. MOVE SAVED-RECORD TO INDEXED-RECORD. IF DATA-CHANGED = "YES" GO TO WRITE-NEW-RECORD. IF CURRENT-RECORD = "DUP GO TO RECORD-ALREADY-EXISTS. IF STATUS-2 = LOCKED GO TO RECORD-LOCKED. CLEAR-COMMENT. MOVE SPACE TO COMMENT. GO TO SET-CURRENT-RECORD. RECORD-LOCKED. MOVE "RECORD LO SEE-IF-UPDATE-ATTEMPTED. IF CURRENT-RECORD = "DUP" GO TO RECORD-ALREADY-EXISTS. IF CURSOR-POSITION = END-OF-DATA GO TO RECORD-ALREADY-EXISTS. IF CURSOR-POSITION = START-OF-KEY ATTEMPTED. RECORD-ALREADY-EXISTS. MOVE "RECORD ALREADY EXISTS WITH THIS KEY" TO COMMENT. DUPLICATE-RECORD. MOVE SAVED-RECORD TO INDEXED-RECORD. MOVE "DUP" TO CURRENT-RECORD. GO TO NOT-END-OF-FILE. DED" TO COMMENT. GO TO RE-ESTABLISH-LOCK. SEE-IF-RECORD-EXISTS. READ INDEXED-FILE INVALID GO TO SEE-IF-NEW-RECORD. IF STATUS-2 NOT = LOCKED PERFORM CHECK-STATUS. IF DATA-CHANGED = "NO" GO TO SEE-IF-UPDATE-OCKED MOVE "EXISTING RECORD LOCKED" TO COMMENT GO TO DUPLICATE-RECORD. PERFORM CHECK-STATUS. IF CURRENT-RECORD = "DUP" MOVE "RECORD REPLACED" TO COMMENT ELSE MOVE "RECORD AMENDATE-RECORD. IF CURRENT-RECORD = "LOK" GO TO WRITE-NEW-RECORD. IF CURRENT-RECORD NOT = "YES" GO TO SEE-IF-RECORD-EXISTS. AMEND-RECORD. REWRITE INDEXED-RECORD INVALID GO TO WRITE-NEW-RECORD. IF STATUS-2 = LURRENT-RECORD. REPLACE-RECORD. IF CURSOR-POSITION = END-OF-DATA GO TO AMEND-RECORD. IF CURSOR-POSITION = START-OF-KEY GO TO AMEND-RECORD. MOVE "YES" TO CURRENT-RECORD. GO TO SEE-IF-RECORD-EXISTS. UPORM CHECK-STATUS. GO TO CLEAR-COMMENT. END-OF-FILE-REACHED. MOVE "END OF FILE - RETURN WILL TERMINATE" TO COMMENT. MOVE "YES" TO END-OF-FILE. MOVE SPACE TO RECORD-KEY. GO TO NO-C START INDEXED-FILE KEY > RECORD-KEY INVALID GO TO END-OF-FILE-REACHED. IF STATUS-2 NOT = LOCKED PERFORM CHECK-STATUS. READ INDEXED-FILE NEXT. IF STATUS-2 = LOCKED GO TO RECORD-LOCKED. PERFE-RECORDS. *DELETE-RECORD. DELETE INDEXED-FILE. PERFORM CHECK-STATUS. MOVE "RECORD DELETED" TO COMMENT. MOVE SAVED-KEY TO RECORD-KEY. GO TO NO-CURRENT-RECORD. SEE-IF-ANY-MORE-RECORDS. THEN IF CURSOR-POSITION = START-OF-DATA GO TO SEE-IF-RECORD-EXISTS ELSE GO TO SEE-IF-ANY-MORE-RECORDS. IF CURSOR-POSITION NOT = START-OF-KEY GO TO SEE-IF-ANY-MOREW-RECORD. WRITE INDEXED-RECORD INVALID GO TO RECORD-ALREADY-EXISTS. IF STATUS-2 = LOCKED GO TO RECORD-ALREADY-EXISTS. PERFORM CHECK-STATUS. MOVE "NEW RECORD WRITTEN" TO COMMENT. RE-ESTABLISH-LOCK. READ INDEXED-FILE INVALID GO TO RECORD-NOT-FOUND. IF STATUS-2 = LOCKED PERFORM DISPLAY-COMMENT GO TO RECORD-LOCKED. PERFORM CHECK-STATUS. SET-CURRENT-RECORD. MOVE "YES" TO CURRENT-vx "Q .CONSOLE  \ .CONSOLE 000000 WORKING-STORAGE SECTION. 000000 01 A PIC X(10) VALUE "HOORAY!". 000000 PROCEDURE DIVISION. DISPLAY A. ,STOP RUN.  EXIT PROGRAM. STOP-RUN. DISPLAY "RUN TERMINATED" UPON CONSOLE. STOP RUN. * SET-UP-FILE-NAME. DISPLAY "FILE ERROR " STATUS-1 "/" DECIMAL-NO UPON CONSOLE GO TO CLOSE-FILE. CLOSE-DOWN. DISPLAY SPACE UPON CRT. CLOSE-FILE. CLOSE INDEXED-FILE. EXIT-PROGRAM. T-POSITION. GO-TO-ACCEPT. GO TO ACCEPT-FROM-SCREEN. CHECK-STATUS. IF FILE-STATUS NOT = ZERO MOVE STATUS-2 TO BINARY-CHAR MOVE BINARY-NO TO DECIMAL-NO DISPLAY SPACE UPON CRT RECORD. NOT-END-OF-FILE. MOVE "NO" TO END-OF-FILE. SAVE-RECORD-AREA. MOVE INDEXED-RECORD TO SAVED-RECORD. PERFORM SET-UP-SCREEN THRU DISPLAY-RECORD. DISPLAY-COMMENT. DISPLAY COMMENT AT COMMEN HOORAY! DIVISIO C#H"C#\ "خRULA ZbAAAA$., *LSe RENAMEfINSTALLATIOg+ADVANCINhANicARj AREk4 AREAkf LINAGlCHARACTEmCHARACTERnCLOCK-UNITo COBOp CONTAINqDATE-COMPILErDECLARATIVEs DOWt ERROu EVERvEXCEPTIOw FIRSxFOYNPJUSTIFIEQ JUSQ BLANR OCCURS VALUT DATU CODE-SEV BLOCW LABEX: RECORYL RELATIVZ STATU[ FIL\ ACCES]ORGANIZATIO^ ASSIG_ALTERNAT` RESERVa CURSObO CURRENCcDECIMAL-POINdv ATI8q LES9 EQUA: GREATE;NO? COUN@0 MULTIPLA TAPB POSITIOC COMP-FZCOMPUTATIONAL-F COMGCOMPUTATIONAG INDEIJ USAGJREDEFINEK" PICTURLPIL SIGM LEADINN TRAILINOSYNCHRONIZEP STE INSPEC9 OPE CLOS! REA" WRIT# REWRIT$ DELET%E STAR&US'YEN( ACCEP* DISPLA+ NEX, ELS- SYSOU2 SYSI2^ TA2 VTA2DELIMITE3DELIMITE4 POINTE5I6 NUMERI7ALPHABEOR SORT-MERG  MERG  COMMI ROLLBAC WHE SEARC COMPUT STRIN UNSTRIN MOVSEAD SUBTRAC MULTIPL DIVIDIG PERFOR ALTE EXI STO CAL CANCE EN{}~SUB-QUEUE-  MESSAG  SOURC TEX LENGT DESTINATIO TERMINA N O ES  EM  EG EXCLUSIV AUTOMATI  MANUA  KEP  DISABL  ENABL  RECEIV  SEN  RELEAS  RETUR  S v COPALLOW-VALULOW-VALUE SPAC SPACE QUOT QUOTE ZER ZEROE ZEROHIGH-VALUHIGH-VALUEIOCOMMUNICATIO C SYMBOLI  QUEU SUB-QUEUE- SUB-QUEUE-  ' yI-O-CONTROz INITIA{DUPLICATE| LEF} LIMI~ LIMIT OPTIONÀBفFĂ LINEӃ LINKAGń LOC˅Tφ> MODULEӇCRԈ CONSOLʼnI-ϊKEً NEGATIVŌkOFƍRUΎLDEPENDINǐZOΑ USINǒq OMITTEēOҔ POSITIVŕPROCEDUREӖB FRO͗ MODŘ PROCEEę RANDO͚RěM PAGŜ RECORDӝ REE̞ THEΟ THRՠ THROUGȠ; UPOΡSOURCE-COMPUTEҢ AFTEңREPLACINǤ COMM INPUԦWORKING-STORAGŧ UNTĮ RER'01 NED-00 . +03 FILLER PIC X(0265). +03 NED-00-0001 PIC X(0005) VALUE "Diary". +03 FILLER PIC X(0130). +03 NED-00-0002 PIC X(0004) VALUE "Date". +03 FILLER PIC X(0004). +03 NED-00-0003 PIC X(0011)  _ _ qV  <  q v v C/  x$  8 g   Z jb zV!  ZAAAA$.,"\ _ _ _ _ q q v v ~ f u|%+ qnY I G =  ,dd/ 4 ,*] Y\ n IN 0V c 7   N ~Q CB} c6CONFIGURATIODA DATs TIM DATE-WRITTEFILE-CONTROINPUT-OUTPU q   @ B7 6 N  ^  W9U  5.  vzA y #% l  N P}COMPUTEPROCEDUR VARYINREMAINDE "SSPECIAL-NAMEA WIT ASCENDINDESCENDINj LIN INT FOOTIN !PROGRAM-InSEQUENTIA ENVIRONMENIDENTIFICATIOTOt BOTTOEND-OF-PAG{EOп TALLYIN SELEC THA> SWITC TIME DYNAMI INDEXE INVALICORRESPONDIN COR TYPb UNI ROUNDE SECTIO DIVISIOU SECURIT + SENTENC VALUECRT-UNDEDEBUGGINOBJECT-UΩW WORDӪ RIGHԫ SAMŬ SEGMENԭ SEPARATŮ. AUTHOүA BEFORŰ SIZű PROGRAͲCOLLATINdz SEQUENCŴSTANDARD- NATIVŶ+ EXCESS- OVERFLO׸ EXTENĹ STANDARĺ FILLEһ GIVINǼ MEMORٽ TABLž" OUTPUVALUE "[dd-mmm-yy]". +03 FILLER PIC X(0221). +03 NED-00-0004 PIC X(0004) VALUE "Time". +03 FILLER PIC X(0004). +03 NED-00-0005 PIC X(0007) VALUE "[hh:mm]". +03 FILLER PIC X(0145). +03 NED-00-0006 PIC X(0009) VALUE "Details [". +03 FILLER PIC X(0039). +03 NED-00-0007 PIC X(0001) VALUE "]". +03 FILLER PIC X(0039). +03 NED-00-0008 PIC X(0001) VALUE "[". +03 FILLER PIC X(0039). +03 NED-00-0009 PIC X(0001) VALUE-01-0015 PIC X(0039). +03 FILLER PIC X(0041). +03 NED-01-0016 PIC X(0039). +03 FILLER PIC X(0041). +03 NED-01-0012 PIC X(0039). +03 FILLER PIC X(0041). +03 NED-01-0013 PIC X(0039). +03 FILLER PIC X(0041). +03 NED-01-0014 PIC X(0039). +03 FILLER PIC X(0041). +03 NED41). +03 NED-01-0008 PIC X(0039). +03 FILLER PIC X(0041). +03 NED-01-0009 PIC X(0039). +03 FILLER PIC X(0041). +03 NED-01-0010 PIC X(0039). +03 FILLER PIC X(0041). +03 NED-01-0011 PIC X(0039). PIC 9(0002). +03 FILLER PIC X(0001). +03 NED-01-0005 PIC 9(0002). +03 FILLER PIC X(0155). +03 NED-01-0006 PIC X(0039). +03 FILLER PIC X(0041). +03 NED-01-0007 PIC X(0039). +03 FILLER PIC X(00LER PIC X(0409). +03 NED-01-0001 PIC 9(0002). +03 FILLER PIC X(0001). +03 NED-01-0002 PIC X(0003). +03 FILLER PIC X(0001). +03 NED-01-0003 PIC 9(0002). +03 FILLER PIC X(0231). +03 NED-01-0004+03 NED-00-0025 PIC X(0001) VALUE "]". +03 FILLER PIC X(0039). +03 NED-00-0026 PIC X(0001) VALUE "[". +03 FILLER PIC X(0039). +03 NED-00-0027 PIC X(0001) VALUE "]". '01 NED-01 REDEFINES NED-00 . +03 FIL0-0022 PIC X(0001) VALUE "[". +03 FILLER PIC X(0039). +03 NED-00-0023 PIC X(0001) VALUE "]". +03 FILLER PIC X(0039). +03 NED-00-0024 PIC X(0001) VALUE "[". +03 FILLER PIC X(0039). ). +03 NED-00-0019 PIC X(0001) VALUE "]". +03 FILLER PIC X(0039). +03 NED-00-0020 PIC X(0001) VALUE "[". +03 FILLER PIC X(0039). +03 NED-00-0021 PIC X(0001) VALUE "]". +03 FILLER PIC X(0039). +03 NED-0 PIC X(0039). +03 NED-00-0016 PIC X(0001) VALUE "[". +03 FILLER PIC X(0039). +03 NED-00-0017 PIC X(0001) VALUE "]". +03 FILLER PIC X(0039). +03 NED-00-0018 PIC X(0001) VALUE "[". +03 FILLER PIC X(0039+03 FILLER PIC X(0039). +03 NED-00-0013 PIC X(0001) VALUE "]". +03 FILLER PIC X(0039). +03 NED-00-0014 PIC X(0001) VALUE "[". +03 FILLER PIC X(0039). +03 NED-00-0015 PIC X(0001) VALUE "]". +03 FILLER "]". +03 FILLER PIC X(0039). +03 NED-00-0010 PIC X(0001) VALUE "[". +03 FILLER PIC X(0039). +03 NED-00-0011 PIC X(0001) VALUE "]". +03 FILLER PIC X(0039). +03 NED-00-0012 PIC X(0001) VALUE "[". NED-01-0013. +MOVE FIELD-0014 TO NED-01-0014. +MOVE FIELD-0015 TO NED-01-0015. +MOVE FIELD-0016 TO NED-01-0016. 'DISPLAY-RECORD. +DISPLAY NED-01. 1-0007. +MOVE FIELD-0008 TO NED-01-0008. +MOVE FIELD-0009 TO NED-01-0009. +MOVE FIELD-0010 TO NED-01-0010. +MOVE FIELD-0011 TO NED-01-0011. +MOVE FIELD-0012 TO NED-01-0012. +MOVE FIELD-0013 TO +MOVE FIELD-0002 TO NED-01-0002. +MOVE FIELD-0003 TO NED-01-0003. +MOVE FIELD-0004 TO NED-01-0004. +MOVE FIELD-0005 TO NED-01-0005. +MOVE FIELD-0006 TO NED-01-0006. +MOVE FIELD-0007 TO NED-0 NED-01-0013 TO FIELD-0013. +MOVE NED-01-0014 TO FIELD-0014. +MOVE NED-01-0015 TO FIELD-0015. +MOVE NED-01-0016 TO FIELD-0016. 'SET-UP-SCREEN. +MOVE FIELD-0001 TO NED-01-0001. 01-0007 TO FIELD-0007. +MOVE NED-01-0008 TO FIELD-0008. +MOVE NED-01-0009 TO FIELD-0009. +MOVE NED-01-0010 TO FIELD-0010. +MOVE NED-01-0011 TO FIELD-0011. +MOVE NED-01-0012 TO FIELD-0012. +MOVE TO FIELD-0001. +MOVE NED-01-0002 TO FIELD-0002. +MOVE NED-01-0003 TO FIELD-0003. +MOVE NED-01-0004 TO FIELD-0004. +MOVE NED-01-0005 TO FIELD-0005. +MOVE NED-01-0006 TO FIELD-0006. +MOVE NED-+COPY ".D2/FORMS2.GN2 ". +MOVE "NED.DAT " TO FILE-NAME. 'DISPLAY-FORM. +DISPLAY NED-00. +MOVE SPACE TO NED-01. 'ACCEPT-RECORD. +ACCEPT NED-01. 'SET-UP-RECORD. +MOVE NED-01-0001 D.DDS ". '01 START-OF-KEY PIC 9(4) VALUE 0610. '01 START-OF-DATA PIC 9(4) VALUE 1110. '01 END-OF-DATA PIC 9(4) VALUE 2148. '01 COMMENT-POSITION PIC 9(4) VALUE 2301. 5 FIELD-0013 PIC X(0039). -05 FIELD-0014 PIC X(0039). -05 FIELD-0015 PIC X(0039). -05 FIELD-0016 PIC X(0039). 'WORKING-STORAGE SECTION. '01 SAVED-RECORD. +03 SAVED-KEY PIC X(0011). +03 SAVED-DATA PIC X(0429). +COPY "NE2). +03 RECORD-DATA. -05 FIELD-0006 PIC X(0039). -05 FIELD-0007 PIC X(0039). -05 FIELD-0008 PIC X(0039). -05 FIELD-0009 PIC X(0039). -05 FIELD-0010 PIC X(0039). -05 FIELD-0011 PIC X(0039). -05 FIELD-0012 PIC X(0039). -0'SPECIAL-NAMES. +CONSOLE IS CRT +COPY ".D2/FORMS2.GN1 ". -05 FIELD-0001 PIC 9(0002). -05 FIELD-0002 PIC X(0003). -05 FIELD-0003 PIC 9(0002). -05 FIELD-0004 PIC 9(0002). -05 FIELD-0005 PIC 9(000 ] ] ([ ] ([ ] ([ ] ([ ] ([ ] ([ 9Diary Date [dd-mmm-yy] Time [hh:mm] Details [ ] ([ ] ([ ] ([ ] ([ 13Jan81123416Aug811234    13Jan811234hnbm, bjjknknljl 16Aug811234bbbb * L/II COBOL K1.1 /cobol3/mfi/fred.cbl PAGE: 0001 * 000000 WORKING-STORAGE SECTION. 0214 00 000000 01 A PIC X(10) VALUE "HOORAY!". 0214 00 000000 PROCEDURE #H   DIVISION. 0000 ,DISPLAY A. 001C ,STOP RUN. 0027 h0028 * L/II COBOL K1.1 REVISION 0 URN AA/0000/AA * COMPILER COPYRIGHT (C) 1981 MICRO FOCUS LTD * * ERRORS=00000 DATA=00640 CODE=00128 DICT=00021:18828/18849 GSA FLAGS = OFF +COMPUTE TERM = (TERM * (N - 2) ** 2) / (4 * N * (N - 1)). 0096 +IF TERM < 0.0000000000001 THEN GO TO HALT. 00E3 +ADD TERM TO PI. 0100 +COMPUTE ED = PI * 6.    6c@K ͠. . c@K ͠. .aL렍륆2# # 100خخ`RULAٲ000001 C#H"C#\` ` 0 ܀+ ,T$ %05c@K ͠. .a3c@K ͠. .頟ꠟ 렇륆05 05 3# د # 22aAce4# # 1  00000000000001.5 TO TERM. 0086 +MOVE 3 TO N. 008F 'LOOP. 0095 005A +DISPLAY DI-1. 0061 * L/II COBOL K1.1 .d2/pi2.cbl PAGE: 0002 * +MOVE 0.5 TO PI. 007D +MOVE 0 0036 +MOVE 0.5 TO ED. 003D +MOVE ED TO DI-TERM. 0049 +MOVE 3 TO ED. 0050 +MOVE ED TO DI-PI. +MOVE SPACE TO SCREEN. 0022 +MOVE TX1 TO DI-TX1. 0028 +MOVE TX2 TO DI-TX2. 002F +MOVE TX3 TO DI-TX3. CALCULATION OF PINEXT TERM ISPI ISDI 0109 +MOVE ED TO DI-PI2. 011D +MOVE TERM TO ED. 0124 +MOVE ED TO DI-TERM2. 0130 +DISPLAY DI-2. 0137 +ADD 2 TO N. 014A +IF N < 100 GO TO LOOP. 0150 'HALT. 0160 +STOP RUN. 08A0 +03 FILLER PIC X(0217). 08AF +03 DEMO-03-0007 PIC 9(0007). 0988 +03 FILLER PIC X(0001). 098F +03 DEMO-03-0008 0800 +03 FILLER PIC X(0065). 080F +03 DEMO-03-0005 PIC X(0015). 0850 +03 FILLER PIC X(0065). 085F +03 DEMO-03-0006 PIC X(0015). +03 FILLER PIC X(0065). 076F +03 DEMO-03-0003 PIC X(0015). 07B0 +03 FILLER PIC X(0065). 07BF +03 DEMO-03-0004 PIC X(0015). 03-0001 PIC X(0015). 0710 +03 FILLER PIC X(0065). 071F +03 DEMO-03-0002 PIC X(0015). 0760 UE "enter alphanumeric dat0A10 &- "a)". 0A10 '01 DEMO-03 REDEFINES DEMO-02 . 0557 +03 FILLER PIC X(0441). 0557 +03 DEMO- 09A0 +03 DEMO-02-0022 PIC X(0021) VALUE "(note that you cannot"09BF ,. 09BF +03 FILLER PIC X(0060). 09D4 +03 DEMO-02-0023 PIC X(0024) VAL+03 DEMO-02-0020 PIC X(0001) VALUE "|". 0997 +03 FILLER PIC X(0007). 0998 +03 DEMO-02-0021 PIC X(0001) VALUE ">". 099F +03 FILLER PIC X(0031). 3 FILLER PIC X(0007). 0988 +03 DEMO-02-0019 PIC X(0001) VALUE "|". 098F +03 FILLER PIC X(0007). 0990 C X(0022) VALUE "Now try numeric fields096F &- "". 096F +03 FILLER PIC X(0002). 0985 +03 DEMO-02-0018 PIC X(0001) VALUE "<". 0987 +0 Now try numeric fields < | | > (note that you cannot ] [ ] [ ] RULAٲ000001 )# ZAAAA$.,B 0161 * L/II COBOL K1.1 REVISION 0 URN AA/0000/AA * COMPILER COPYRIGHT (C) 1981 MICRO FOCUS LTD * * ERRORS=00000 DATA=02560 CODE=00640 DICT=00512:18337/18849 GSA FLAGS = OFF PIC 9(0007). 0990 +03 FILLER PIC X(0001). 0997 +03 DEMO-03-0009 PIC 9(0007). 0998 * L/II COBOL K1.1 .D3/DEMO.CBL PAGE: 0003 * &/ 099F 'PROCEDURE DIVISION. 0000 'FORM-CHECK. * L/II COBOL K1.1 REVISION 0 URN AA/0000/AA * COMPILER COPYRIGHT (C) 1981 MICRO FOCUS LTD * * ERRORS=00000 DATA=02688 CODE=00640 DICT=01416:17433/18849 GSA FLAGS = OFF AM. 022B 'STOP-RUN. 022C +STOP RUN. 022D h022E ECK. 01FA +DISPLAY SPACE. 0204 +DISPLAY "END OF FORMS2 CHECK-OUT" UPON CONSOLE. 0209 'EXIT-PROGRAM. 022A +EXIT PROGR@@ؠ@N` C0101RCHECK-OUT completedC0201RRepeat? [N] (Y=Yes)C0210@Y@y` VEND OF FORMS2 CHECK-OUT"خخRU-RUGRA2 CHECK-OUT hK-OUT ZXAAAA$.,0 01A9 +DISPLAY "Repeat? [N] (Y=Yes)" AT 0201. 01C6 +ACCEPT W-REPLY AT 0210. 01E3 +IF W-REPLY = "Y" GO TO FORM-CHECK. 01F0 +IF W-REPLY = "y" GO TO FORM-CH'CHECK-END. 019E +MOVE "N" TO W-REPLY. 019F +DISPLAY SPACE. 01A4 +DISPLAY "CHECK-OUT completed" AT 0101. 0082 +IF W-REPLY NOT = SPACE 0117 +DISPLAY DEMO-03 AT 0101. 0117 +ACCEPT DEMO-03 AT 0101. 015E DEMO-01 AT 0101. 004A +ACCEPT DEMO-01 AT 0101. 0067 +DISPLAY SPACE. 007D +DISPLAY DEMO-02 AT 0101. ` C0101gW>>>렾;` C01018顸W@@@@@C01018ᡸW@@@ enter alphanumeric data)DIVISIO00umeric data)moveen C#H"C#\` C0101 頷렿 '(` C0101顸C0101ᡸ 001C +DISPLAY SPACE. 001D +DISPLAY DEMO-00 AT 0101. 0022 +IF W-REPLY NOT = SPACE 004A +DISPLAY "Q .CONSOLE  \ .CONSOLE ** 'OBJECT-COMPUTER. 0120 /APPLE ///. 0120 0120 'CONFIGURATION SECTION. 0120 'SOURCE-COMPUTER. 0120 /APPLE ///. 0120 **021****************** ORSESHIT. 0120 'AUTHOR. 0120 /PAUL NORRIS. 0120 &* 'ENVIRONMENT DIVISION. * L/II COBOL K1.1 .D2/HORSESHIT.CBL PAGE: 0001 * * LIST(.D2/HORSE.TEXT) NOINT 'IDENTIFICATION DIVISION. 011E 'PROGRAM-ID. 0120 /HO^Q 00E8 * L/II COBOL K1.1 REVISION 0 URN AA/0000/AA * COMPILER COPYRIGHT (C) 1981 MICRO FOCUS LTD * * ERRORS=00012 DATA=00232 CODE=00152 DICT=00000:18849/18849 GSA FLAGS = OFF (DISPLAY "RUN, DAMN IT!" 0074 **056********** ** (DISPLAY "AFTER COMPILING, THAT IS." 00E8 (STOP RUN. ** PROCEDURE DIVISION. 0074 **010******** ** MAIN-ROUTINE. 0074 0074 h0074 **010********* ** DATA DIVISION. 0074 h0074 **010************** ** **003*********** ** OBJECT-COMPUTER. 0074 (APPLE ///. CONFIGURATION SECTION. 0100 SOURCE-COMPUTER. 0100 (APPLE ///. 0100 **056************ 0100 h0100 **010**************** ** ENVIRONMENT DIVISION. 0100 **010***************** ** 0100 **010** ** AUTHOR. 0100 (PAUL NORRIS. ** PROGRAM-ID. 0100 **003*** ** (HORSESHIT. * L/II COBOL K1.1 .D2/HORSESHIT.CBL PAGE: 0001 * **010********************************************************************* ** IDENTIFICATION DIVISION. 0100 **010****** BOL K1.1 REVISION 0 URN AA/0000/AA * COMPILER COPYRIGHT (C) 1981 MICRO FOCUS LTD * * ERRORS=00002 DATA=00640 CODE=00128 DICT=00025:18824/18849 GSA FLAGS = OFF 001C /DISPLAY "RUN, DAMN IT!" 001D /DISPLAY "AFTER COMPILING, THAT IS." 001D /STOP RUN. 0034 h0058 * L/II CO**033****************** ** &* 'DATA DIVISION. 0120 &* 'PROCEDURE DIVISION. 0000 'MAIN-ROUTINE. /DISPLAY "RUN, DAMN IT!" /DISPLAY "AFTER COMPILING, THAT IS." /STOP RUN. & & IDENTIFICATION DIVISION. 'PROGRAM-ID. /HORSESHIT. 'AUTHOR. /PAUL NORRIS. &* 'ENVIRONMENT DIVISION. 'CONFIGURATION SECTION. 'SOURCE-COMPUTER. /APPLE-3. 'OBJECT-COMPUTER. /APPLE-3. &* 'DATA DIVISION. &* 'PROCEDURE DIVISION. 'MAIN-ROUTINE. H  0034 h0058 * L/II COBOL K1.1 REVISION 0 URN AA/0000/AA * COMPILER COPYRIGHT (C) 1981 MICRO FOCUS LTD * * ERRORS=00000 DATA=00640 CODE=00128 DICT=00025:18824/18849 GSA FLAGS = OFF 'MAIN-ROUTINE. 001C /DISPLAY "RUN, DAMN IT!" 001D /DISPLAY "AFTER COMPILING, THAT IS." 001D /STOP RUN. DIVISIO C#H"C#\ؠLRUN, DAMN IT!"XAFTER COMPILING, THAT IS."خRUZlAAAA$.,Z 0120 /APPLE-3. 0120 &* 'DATA DIVISION. 0120 &* 'PROCEDURE DIVISION. 0000 ION SECTION. 0120 'SOURCE-COMPUTER. 0120 /APPLE-3. 0120 'OBJECT-COMPUTER. 0120 'AUTHOR. 0120 /PAUL NORRIS. 0120 &* 'ENVIRONMENT DIVISION. 0120 'CONFIGURAT * L/II COBOL K1.1 .D2/HORSESHIT.CBL PAGE: 0001 * 'IDENTIFICATION DIVISION. 011E 'PROGRAM-ID. 0120 /HORSESHIT. IDENTIFICATION DIVISION. PROGRAM-ID. CANDY. * ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. APPLE-3. OBJECT-COMPUTER. APPLE-3. INPUT-OUTPUT SECTION. * L/II COBOL K1.1 .D2/POM PAGE: 0001 * 'IDENTIFICATION DIVISION. 011E 'PROGRAM-ID. 0120 +CANDY. "Q .CONSOLE  \ .CONSOLE Z .CONSOLE  . OUTPUT POEM-FILE. MOVE "CANDY IS DANDY" TO POEM-LINE. WRITE POEM-LINE. MOVE "BUT LIKKER IS QUIKKER" TO POEM-LINE. WRITE POEM-LINE. CLOSE POEM-LINE. STOP RUN. . FILE-CONTROL. SELECT POEM-FILE ASSIGN TO "/DEMO.V1.0/POEM". * DATA DIVISION. FILE SECTION. FD POEM-FILE POEM. 01 POEM-LINE PIC X(21). * PROCEDURE DIVISION. MAIN-ROUTINE. OPEN 0120 &* 'ENVIRONMENT DIVISION. 0120 'CONFIGURATION SECTION. 0120 'SOURCE-COMPUTER. 0120 +APPLE-3. 0120 'OBJECT-COMPUTER. 0120 +APPLE-3. 0120 'INPUT-OUTPUT SECTION. OMPILER COPYRIGHT (C) 1981 MICRO FOCUS LTD * * ERRORS=00007 DATA=00768 CODE=00256 DICT=00079:18770/18849 GSA FLAGS = OFF 005A **103************* ** +STOP RUN. 0062 * L/II COBOL K1.1 REVISION 0 URN AA/0000/AA * C+MOVE "BUT LIKKER IS QUIKKER" TO POEM-LINE. 0038 +WRITE POEM-LINE. 0052 **103************* ** +CLOSE POEM-LINE. DANDY" TO POEM-LINE. 001D +WRITE POEM-LINE. 0030 **103************* ** 0000 CO &* 'PROCEDURE DIVISION. 0000 'MAIN-ROUTINE. 001C +OPEN OUTPUT POEM-FILE. 001D +MOVE "CANDY IS 020A 'FD POEM-FILE POEM. 020A **064******* ** '01 POEM-LINE PIC X(21). **005******************************** ** **003*********************************** ** &* 'DATA DIVISION. 020A 'FILE SECTION. 0120 **056**************** ** 'FILE-CONTROL. 0194 +SELECT POEM-FILE ASSIGN TO /DEMO.V1.0. 020A