LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)COBOLv' '&FORMS2 0-*FORMS2.I51%-*FORMS2.I52* -*FORMS2.I535 -FORMS2.ISR>-*FORMS2.I01@FORMS21u' COBOL >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LҤ *FORMS2.I02CL( FORMS2.CH1E60 FORMS2.CH2F0 FORMS2.GN1G1 *FORMS2.GN2I1 *FORMS2.W01X(  *FORMS2.W02[:( *FORMS2.H01_Ҥ *FORMS2.H02biҤ *FORMS2.H03f,Ҥ *FORMS2.H04jҤ $ISAMn!@$ADIS00000000000000000000000 FORM-00-0000FOREBACKPIC X(0000).COPY "CH1 DDS DISPLAYACCEPTMOVEFIELDTOSPECIAL-NAMES.CONSOLE IS CRT REDEFINES ? < > (Y=YES) 00000000000000000000000000002000 000100020003000400 9_$.,NNYNN0 0NY 01LY M A4YNNNN24 010101010102 00 0101250101240000000000000101 0101 BC000 268269270   0001 0000 +cZ )c  !"# "cQ .CONSOLE  \c .CONSOLE Zc   FORMS2 H00 N ҠLSTART-OF-DATA3##ҠJEND-OF-DATA3##ү3C‚3CL80CC‚!C!OCOMMENT-POSITION3##` OEMOVE "%BDATV@" ŠN TO FILE-NAME./ҠLDISPLAY-FORM.HҠ` O&H'+|(A00!O  ɰC#҈CKؚC%O@. 1SS#҈CKؠWWORKING-STORAGE SECTION.HؠP01 SAVED-RECORD.HҠ` OK03 SAVED-KEYD+-0ŰO#ҠCDATA#K#Ҡ` Oj#!#A01HSPIC 9(4) VALUE 0000.0ŠKSTART-OF-KEY3##@$SCURRENCY SIGN IS "$"DCO أ@.UDECIMAL-POINT IS COMMADؠ` OA05"$Y$@- +-+ؠOO` OA03"KO0KKRECORD-DATA.AҠOO` OH%%b` 'ɠ@S ،1SS#` 0Š+-+řC$O&H'NSPACE UPON CRT.<ؠ` O&H'@Dؠ+|+AAT"Ơ!!ɠA01!ˠ@. ؠ` OUIF W-REPLY NOT = SPACED%ؠ` O%O'@A9ؠ` O%9%2 A[P?@" @. +ؠ` O-`Hң@3` OPW-REPLY FROM CRT.<أ@3 @$ģ@. ` OCO@. ؠ` OMDATA DIVISION.H]01 W-REPLY PIC X VALUE SPACE.HҠ` Oؠ` O%9%&C@" @. ؠ` O%9%1 A[P?@" @. ؠ` c1 ؠ@1` Oأ@P1#!@YC/#!7 #!#߂7#!؂C[C_80[[c1[؂[!!80cc__!#_0Ā80!#1!!ؠ-0ؠ+-0A03" + 0ŠcZ1 ؠ` O%O'C#C#+C#CPT#CP#QCP#CJ#H"CJ#\` P*[PW`0  0w2Ơc11w1!XWؠ*P*0` ،1c1P0OO --------------------------------------------------------------------------------FORMS2 COPYRIGHT (C) 1979,1982 MICRO FOCUS LTDSCRIM-ER } FOCUS LTD HUPON CRT.+Ҡ` O#U'DSPACE-!^"Ƞ+|(ˠ@. ҠMACCEPT-RECORD.HҠ` O%O'+|(HFROM CRT.+ҠMSET-UP-RECORD.HҠ` O$Y$Ϡ+|(ؠ@-  !^"Ƞ#U'@- Ԡ@. ـ0C،1CC#ðC#үCSؠMSET-UP-SCREEN.HҠ` O$Y$+|(ѠNDISPLAY-RECORD.HҠ` O&H'+|(HUPON CRT.+#NFile created = 15##1HؘCO ` ŘCOCO  LKP؀01CؘCP0OOCP0O O꣠O` @Nؠ' )&0a` &C@YĠBGENBCHKZ&V@Sأ@N8`009ؠ`008ؠcŠ10:;<@Yp,أ@N7`0 + 0=ؠ`0 + 0>ؠcZ1 0ł‚C80CCWؠ@C E` ' ` 規ᡷ'ؠ E@!,@Q@q4ؠ@? E5@GĠ@Y@Y@Y@Y6@N@N@N@N@Ah@Fh@F7@E @Y@N@N@BĠ@Y@CĠ@Y@BƠ@Y ة1@a@z؂C%د!22ǯ!24Â!20[،1[C0941A??C0941[5Vؠ@43؀0[،1[#@?#^[5ؠ E @.ţ @,Š 1641# @,Ġ@.؂!$&'(%yCy@!,` HHؘCy` -MK.+ؘCy//@-/@a.@z/؀0[،1[C0641E??????C0641I[5ؚCC` yMMK0Cy` Ly`ؠ©RIGHT (C) 1979,1982 MICRO FOCUS LTD-]؂CHLLK)C C :[IFORMS2 I01*P*+ IFORMS2 I02*P*+IFORMS2 W01*P*+` 規 顷 롍렞ᡷ 㡍㠞C07301C0930Voverwrite ? [N] (Y=Yes)C0943q@yĠ@Y` C0713OWRITE failure onC07301خR(z jFQ\62 T G g   tD.HsOVERLAY- uAAHA$.,D~1fأ@Y$@Y%@D؀0715#砠cZ1f&C1015PEND OF FORMS2 RUNC2015-]'` C1014SFORMS2 RUN ABANDONEDC2014-]'` C0714OOPEN failure on C07301ؠ@N` C0709SFile already exists:@B@cĠ@C@dĠ@D@eĠ@E@fĠ@F@gĠ@G@hĠ@H@iĠ@I@jĠ@Jأ@MŠ@A` Ġ@A@Cؠ` ؠIFORMS2 W01*PW <規ᡮ!ؠ@1` 1! fأ@Y"` @Y#0515#砠c1 ؀001  01014#` '` ،1c1 O` #O Gc1 ؘ7 1770 #WPress RETURN to continue24##qأ@aĠ@A@bC07301ؠ1cc1د 01014#` 'LCc1O` I@AĘCP0OOCP0O OO` ĠOOOOأ@AĚCP0OOCP0OO Iؠ` ;cO ĚCP0OO LC HؘCP0O OO` CP0OO꣠O` ĚCP0OOĚCP0OOLC 9H111` C0703ZSpecify Screen Image File [C0780@]`0 ` 1O` ĠOOأ@YC  J J@1أO` ؂C#OLCؠ@Yأ@1į!ב1#O @1į!ِ#O HؘCP0OOO` CP0O O꣠O` ĚCP0O:;+<@Y,أ@Y?@A7ؠAGN!?BCؠ` `  @YĂ!!Ӎ1!٠@1DEz jFQ\62 T G g   tD.HsaWtL#r ;z.b fOVERLAY-OVERLAY- OVERLAY-OVERLAY- uAAHA$.,DlO @1B1007d$Bد80įĀ7779#Ƃʌ1ʂg1g80gggk1kko1oos1sg  Ԙk  ՘o  ֘s  د ;‰ ;80C؀80!١Bؠ@0ү!ב1^!CCP0O OCP0OOO` bc#OBد!ב1#O @1Bؠ@0ӯ!ِ`!CCP0O OCP0OOO` bc#OBد!ِ#ӑ3Y ;4Z ;5= ;6? ;7[ ;8\]د!ٝ[^!ׂ!ύ1!ϯ ;3_=>؂!C80CLX؀01!סBد!ם\`!ق!ӌ1!ӯ ;4a?@؂C:@-B :@JP :@jP :@OQ :@oQ :@PR :@pR :@XS :@xS :@?T@YE :@WU :@wU :@SV :@sV :@GW :@gWA??`!:@? :mد ;0X ;1Y ;2Z ;Ā0 ; ;`Ā0 ; ;@0E ;@9E :` F :@UG :@uG :@VH :@vH :@II :@iI :@KJ :@kJ :@CK :@cK :@DL :@dL :@AM :@aM :@QN :@qN :@!O :@_B #P0` OM#؀01!סأ@1=>@1?@Aؠ##0(##`0#A__ؠ`!:::`B :@*B :@MC :@mC :@FD :@fD ;@_Ā0 ; ;` Ā0 ; ;@-Ā0 ;:A??COCO  LLKP:CO` LؚP0OOؠ`08 ;0;CC#C ;< ;CدC1 =a 6789:;<  ?P0OO=O=` =79GLO` 0;1?أ'=` >40;+أ)=`  10;أ)G`  20;أ)Q`  30;أ)[`  46789:;<=OOT2ĠOO` OH 1؛CO@- @""ؚCO@" LKHCO@. د1ĠOOTC#y0Я1021OOT0؀1OOT0أ` 2@A3@B3،1;;8040;1ؠ©RIGHT (C) 1979,1982 MICRO FOCUS LTD-]أ@3)@1*@0` 1#،1!#OT <@Y#OT0ŠcŠ1+,1-@2)!ː-ؠ@1107.` د!ː` 1#LKH/د1Ġv B.$ ,t\CBR p < G>pB W   " 4 B e ! !!"5"S yOVERLAY- uAAHA$.,D"@A @BĠ`  @C @BĠ` أ ` ` *57B` 1`08@Ajz jFQ\62 T G g   tD.Hs(DDe{+O<Ҋ@aĠ@A@B@bĠ@B@cĠ@C@CĀ1@dĠ@D@DĀ0@!@?7La")F%W)'p f  %bi@j + bT6@ h  2 dLN-1 uAAHA$.,D ` ţ@Xţ@Yţ@xţ@ymKB#;1?!םؚC#O@. OOT0Р@Yخz jFQ\62 T G g   tD.HsUFz @@9أ@Z@*ģ@Y@Y@+ģ@Y@Y@-ģ@Y@Yģ@YĚC%O@V L%دC181C@YC%O@9 L%ؚC#O @YįC/~LL# Ơ@2Ѯأ@1@Ygؠ@Y@9@8T}ؠ` 'H$#CG@YدG0C#O@9 @YĚC%O@9 L%1GL#_ؠ`@YH$#FG` '@Y0Cؠ@N@NأĠ@9@9ţ@8`أ@3ؠ@N` ţ@Xţ@xţ@9ţ@Yţ@yţ@8Š@Yأ@Yأ` ` OQEFILLER0GC0Gأ@8@9C$O@9 أ@Yhàmأ@080CFGhLP أ` ؠ@2z@. k+_+{ؠ))l++v@. ؠ@10Ѐ0#!0G0;!?@3|@Y}أ` FG0C،1C@YįC/~L ;1` ?!םأ@9ţ@8C18C5[؍1[#!@?#!^[0 #!@?1007.C ` ĘC  C #!^#!#vأ@Yw@YįO33w/C@*؀0O` OTA01#[!!!!ב1x-+_-+|yؠ(+_(+|د1o@rĚC@R o@Do@dĚC@D onأ@Yp@*@9ţ@8q@*qأ@Yp@Yq1OKĠrs#!#@*Ġ@*Š@* :C/ģ :` Š@Y@*nrs` C#H01tu#@Xm@xm@9m@Ym@ym@8m@4n@Zo@zĚC@Z o@*oo@+o@-oo@Bo@bĚC@B o@/o@0oo@Co@cĚC@C o@Refgأ@Dehg`igjg@Yhg@N`؀0S0K0O@NH@Yį/0Ġ##!!!CM80C!#C@*kM` C0820%!WORK SCREEN VALIDATION in progressC1020RDO NOT press RETURNL lأ` Ġ` 0[\,]@YC1101\Specify alternative file id [C1180@]` 1C113011cc1` z` 0515#^1015#_ؠ@Y`@Yį!0`a@Ab` c@Mc@Rdأ@DĠ@A CRT lines [24] (22 or 23 or 24) SPECIAL-NAMES clause: CURRENCY SIGN [$] (ANSI currency signs only) DECIMAL-POINT [.] ("." or ",") Press RETURN when comp?A 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. (G = DDS & Snn & GEN) DEVICE/DIRECTORY PREFIX (0-40 Chars) [ ] Press RETURN when complete BD (C = DDS & CHK & Snn) (D = DDS & Snn) (E = Snn) (F = No files output) FORMS2 V1.3 INITIALIZATION PHASE SCREEN I02 FILES TO BE CREATED: FILE COMBINATIONS [C] (A = DDS) (B = DDS & CHK) lete STATUS IS FILE-STATUS. DATA DIVISION. FILE SECTION. FD INDEXED-FILE. 01 INDEXED-RECORD. 03 RECORD-KEY. 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 DATE-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-MORED = "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" 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-CHANG 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. HJKLMNOPQRSTUVPIC 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. 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 AMENDED" 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-FORMS2 V1.3 WORK PHASE SCREEN W01 WORK SCREEN SELECTION: SCREEN TYPE [ ] (A = Fixed text on clear screen) (B = Fixed text on last screen) 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 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-EW-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. 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. (C = Variable data redefines last screen) (D = Variable data without redefinition) (! = Complete this FORMS run) Fixed Text allows: WY^`?n = Display the nth HELP screen Q = Re-enter WORK PHASE screen selection ! = Terminate FORMS run immediately X = Position commands at EDIT mode cursor FORMS2 V1.3 HELP SCREEN SCREEN H01 GENERAL COMMAND SUMMARY: SPACE = Process the work screen ? = Display the next HELP screen (F & G & J only) Press RETURN when complete (J = Display screen image) NOTE: (H & I & J display until RETURN pressed) FILE-NAME [ ] mage into FOREGROUND) (G = Merge screen image into BACKGROUND) (H = Display FOREGROUND) (I = Display BACKGROUND) Z\] (C = Clear BACKGROUND) (D = Merge BACKGROUND into FOREGROUND) (E = Merge FOREGROUND into BACKGROUND) (F = Merge screen iFORMS2 V1.3 WORK PHASE SCREEN W02 FOREGROUND/BACKGROUND OPERATIONS: OPTION [ ] (A = Re-enter EDIT MODE) (B = Clear FOREGROUND) when complete All characters Variable Data allows: X or Y to define alphanumeric fields 9 or 8 to define numeric fields edit chars to define numeric edit fields Press RETURN * = Indicate Index Form's data area start _ = Re-enter EDIT mode NOTE: SPACE is the command to process the EDIT mode screen HELP option [_] (? = Display next HELP screen) ut at next processing S2 = Inhibit Snn output at next processing S3 = Prompt for Snn file-name at next processing S9 = Line edit DDS output at next processing eghix Jn = Allow up to n consec. spaces in fixed text Mx = Interpret "x" as "space" S = Cancel previous Sn command S1 = Inhibit DDS & CHK outpFORMS2 V1.3 HELP SCREEN SCREEN H03 PROGRAMMING COMMAND SUMMARY: G = Give datanames screen coordinates suffix G1 = Give datanames sequential number suff (_ = Re-enter EDIT mode) Press RETURN when complete line Un = Move cursor up n lines Vn = Move cursor down n lines HELP option [_] (? = Display next HELP screen) (! = Abandon FORMS2 run immediately) Dn = Delete n chars at cursor position In = Insert n blank lines before cursor line Kn = Delete n lines including cursor line An = Overwrite n lines with data of cursoracd "x" O = Turn on automatic WORK screen preparation O1 = Turn off automatic WORK screen preparation Cn = Insert n spaces at cursor position FORMS2 V1.3 HELP SCREEN SCREEN H02 MANIPULATION COMMAND SUMMARY: F = Invoke FOREGROUND/BACKGROUND manipulation Fx = Invoke FOREGROUND/BACKGROUND option (! = Abandon FORMS2 run immediately) (_ = Re-enter EDIT mode) Press RETURN when complete P = Display cursor position coordinates HELP option [_] (? = Display next HELP screen) (! = Abandon FORMS2 run immediately) (_ = Re-enter EDIT mode) Press RETURN when complete )-/8 T mopqrstuvwxyz{|}~ 7  0002102122232499 99)9+9/99999999뜝 d &( TURN when complete osition cursor to current window end HELP option [_] (? = Display next HELP screen) (! = Abandon FORMS2 run immediately) (_ = Re-enter EDIT mode) Press RE W6 = Display end window delimiters W7 = Re-display data overwritten by start delim's W8 = Re-display data overwritten by end delim's W9 = Pikl W2 = End window at cursor line W3 = Start window at cursor line, no delim's W4 = End window at cursor line, no delim's W5 = Display start window delimitersFORMS2 V1.3 HELP SCREEN SCREEN H04 WINDOW COMMAND SUMMARY: W = Position cursor to current window start W1 = Start window at cursor line   c(+)(c(d(c((+T`}(R c(()(~`(`( `T `(0T(+d((()@J*K K K@G*H Hc(+)(0C5'0C5ic(+)(  <       -, ,~@z((~  \(C) 1981,1982 Micro Focus LtdTTVTTXT TVXT*VTT,  1  DIVISIO DIVISIO DIVISIO . # .  #    O O    7o o   % 7 % % 0C5'0C5i@{K{ {yy (  y&y}&C k" +  (}m"-  , @Hy} {}}C}@}yCz@zC0 ,Z .CzCzD@y(0C0@@Z , .@C@EE , .CyEyyy}  Zq Z(C5 D0=. +T? C@@( F@( J0A@(TUT,T. C $@CB+TGEG HHUT,HDG H UF7+TJ6-TUTKDJ K UJ C5'08 C9@903: F h03:C;+N( N 08 l+NGC6 :+R(( R 08 +ReTC0D0 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@(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 W(Z. .(e>C7< +^+\: :m\+\:+w({C0 [ Z(ZC4+0 C40  C7:]RKPs> 0 0  0 nkZ@0H,H.#b#a ]> \?C7< #_#^#`; :e`#`; @0+aģET+Z+Z @, V-@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`T @F @ F0@##Jb}cYC! [C#U` ""##@$E#@$E$@$@$C#@ $ YC(sc[H &K&&&KH&@4& & $ ? C$# "(D!c  (D"(#.$k((D,w#Y+&(#(@$N@w01𮎐  )NP~     !""####$%%%%%%%  (08@H **%!'"%%&Z%&S%&2&6&&&&''h''S())]))**Y**+l++!+/++,,E,,,-!-nKR-EXIT-RT9 KR-EXIT-RT9 KR-EXIT-RTAAHA$.,'- D  @ h !  ^. Us~j 6QnM`F1(G 28$k7S=#-^zNl$N/  I9 X$U!,"""##(#Y$\######$'$$$$%@!@!c(pcD!))@!(C9M/h@!K ( - ($&(,"K"'-#.$kخ-Dn'imc<(YS]= ] : P L < + d  Q bC!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@(C) 1980,1981 Micro Focus Ltd  " DIVISIO DIVISIO DIVISIO  -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 iKGK/QJ "Cy4  QHC{49CHHH@P@ y+  !CEL6z+&*67C8ED+*|9 C! [P DP [PPPP9:@PJC/ &y+"& /C@  0 D(aC@ Dss>a-@BCB(assCB>ac;C1C?CYCL| 2PCCACA3405:3CCyQ&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& 8K $ , Z a | C:  }C: c;e; ;}خ rv7DYUXKe.]Vq" gUasWie :   d 9 [  . S b   ) } ; ? ~ EXIT-RTӹFLALA EXIT-RTӹFLALA EXIT-RTӹFLALA EXIT-RTӹFLALA AAHA$.,RF