TDR&6l9845B FORMS UTILITY, 09845-10174 REV B, SEP 80@5v  kdAUTOST@KEYUSEFMB$BINARYFILLFM!5REVIDV$N        y WI} 5v  kdAUTOST@KEYUSEFMB$BINARYFILLFM!5REVIDV$N  ^     y WI}R|N INITIALIZED CARTRIDGE OR DISKETTE IN THE /#e $IMXh7DECLARED MASS STORAGE DEVICE. PRESS 'CONT' WHEN READY.I#e #IMXh5THE CURRENT FORM WILL THEN BE STORED IN FILE 'TEMP$'.Y#e ! I E#e XhTEMP$HWp/#e ~${c4Wp/#+"l#l4TOPS REV.A 01/30/80 OPTAYw%0 l3$38|5!A # a+f#e ! ( |twBuildform^SD@9kD@2a{#e< *%%U#uU #q&* %U#q&*,%U&#uU&#q&*3%U#q&*7%U  {4W#+& OXh,DO YOU WISH TO KEEP THE CURRENT FORM ACTIVE?#uTـ#e0 Y?Xp/Wp4#e: !XhNYU7UJp4VCp/p92-p>QD 6ށ#eN ~恶X %Kb H{c4Wp/c4Wp94/p4p>c4WpH4/pCpMc4WpW4/pRp\c4Wpf4/papkc4WpuollTrs#0ul#Kdl #Ul #od@n $3dl Uu6 #: &(6n X ӿ($BB +@\ )2Bl2oBS3S##D|񀷬 #"\"@^<2#0ZBvqZP]Zq"} $llD?lD="lD."ZEwl]qZTHZq} # a+f-#e6 3!@ ~3J 7!UQ;AGLLQT U!UQY_GLLQ^ g!UQGkGLLQh r!UQGGGLLQr v!UQGGGLLQ| z!UQG~GLLQ !UQLLQ !UQQQLLQ qhouAqxqyot"!DooON KBD GOTO ll$&2!l;ltON KBD GOSUB ol'2oON KBD CALL ll12oclW#3!l "Z2oON KBD l>oD13d!0du wl/Dsl !2272#2#bkQ;`/;a d10$10 ˻&*** {4W#+6ހ#e {4W#+6ހ#e XWp/#e XWp/#e Xh Xp/Xp4aWxp9#e Xh Xp/aW~p4#e 6ހ؀#e Wt~#e *iXh(STRING DOES NOT REPRESENT VALID NUMBER. Wlp/#e "{c4Wp/#+Xh&IMPROPER MASS STORAGE UNIT SPECIFIER. Wlp/#e {c4Wp/#+XhIMPROPER FILE NAME.GWlp/#e {c4Wp/#+XhDUPLICATE FILE NAME. Wlp/#e {c4Wp/#+XhFILE CANNO&#uU #q#eF %<%U#q&*I%UC#q&*O%UC#q#eP %=Z%U#q%UT#y&*g%U#q%Ua#y#eZ 7%=l%Ua#y&*p%Ua#y&*t%Ua#y&*x%UT#y&*~%Ua#y&*%U#q%Ua#y&*%UT#y&*%UT#y#ed %=%UT#y&*%UT#y&*%UT#y&*%UX4/pppzc4Wp4/ppc4Wpa4/ppc4Wp4/ppc4Wp4/pp#+l IE#uMY~#ev {4W 4W4/p/p4c4?p>c4KpH4/pCpM4"p9pR#+ IEU#uMXh#CORRECT THIS ERROR AND PRESS 'RUN'.#e !  0IEU#uMXhEFATAL ERROR. PLACE Alll&l$lll/l rAo5} % 2<"fguD?llD;l#Ue3SZuD "VQ3S"]HD PG #DB&C3SD '0 VZ#0=s/'0qH,2W U VP2mV2k##0Pu 0} #Pnl(+}o #P1% (!"C7l  BGJMXh UNDEFINED KEY#e K JU#e a+f-#e ~3 /QJMXhLBUILDFORM PROGRAM TERMINATED. PRESS 'CONT' TO RESTART. PRESS 'STOP' TO HALT.#e I E#e K {4?#+6ށ#e 6ށ#e !AI E#e 6ށ#eqplqp!!0n23 P^-Dl<32P^lo G%lolo% ',ALL' EXPECTED qOFF KBD!0"D lQ;`/;a<!0 8t ? 222 2 b2t?[ [!["[#[$[%[&['[([)[- /XXp/XXp4p9XXp>pCXXpHpMXXpRpWXXp\paXXpfpkWpp#e *XXXp/p4XXp9p>XXpCpHXpMXXpRpWXXp\paXXpfpkW pp#e XhKEY#e 6ށ#e XhWp/#e IgU#e  ~(#A%" a+f)#e, !@fi_qlYONKBD REV.C 05-16-79}}l~n}S$!0  #lNlllllClHlJlNFl7D;# "lPl<0 !4('4% m;l# !lo "lo "lo$ (l977l("3H-^!0 "2!"DDl0qhbÀT#y#en MS226,229,250,253,231,228,225,252,230,251,227,228,234,237,242,245,124,236,233,244,238,243,235,236,241,239,232,246,249,254,224,247,248,240,255,255mx oL,#e REm6ހp/#e!*** (O#e ~恶& 2'6ނp/#e0 2'TIp/6ނp4#e: 2'TOp/6ނOp4#eD T6ނp/#eN 6ނ#eX <6ނ*#eb 2w 6ނp/#el {4K#+v {4W#+ {T2-Tp44?p/p9#+2-6ނp/#eTz {4W#+Y {4W #+~ ~JMXh+CORRUPT FORM FILE. PRESS 'CONT' TO RECOVER.E#e K ! ~ ;I E#e XhWp/Wp4Wp9#e oU#q 6ނ#e 6ނ&#e o U#q JMXhFORMATTING TH z^ T+ jT j2-p46p/p9#eh 2'*T+Ip/6p4*#er T+*2wj}2-p4m6p/p9#e| {2'*T<p/#+2'*T<p/2'p4T+Op96p>*#e `U* {4? #+~恶 2Ȃ 69p/2-p46ނp9#e 6ނ#e {4K#+ T BE FOUND. Wlp/#e {c4Wp/#+XhIMPROPER FILE TYPE.DWlp/#e {c4Wp/#+XhMEDIUM OVERFLOW. EWlp/#e ({c4Wp/a#+Xh2CARTRIDGE OUT OR DOOR OPEN. CORRECT THE ERROR AND Wlp/#e* +{c4Wp/#+Xh7MASS STORAGE DEVICE NOT PRESENT. CORb#2U#ex T&g*Wp/~#e `U* _6ނ*G#2U#e T&Z*Wp/x#e `U* 6ނ&#e oIU#q oOU#q _6ނ*#2U#e T*6ނjp/#e T*6ނmp/#e T* 6ނpp/#e {4?p#+t XhInternal printer -- 2#e> IEU#uMXhOther printer ----- 3S#eH OXhOption number = ?r#uTO#eR 69O6,p/6ނOp4#e\ {4?O4KO4/p/p4#+f I E#ep {4_O#+z OXhAre you using an HP-IB Printer?S#uTـ#e Y?Xp/W PRESS 'CONT' TO RECOVER.8#e K ! ~Y 8GU#2Tـ#e F U#uU#e ~(#A FU#mMTـ#e {X;U]p/#+- FU#mMTA#uMT#uMTG#uMTO#e JMXhRECALLING THE FORM.G#e XhWp/#e o#e 2'*T+Op/2'TOp96p4p>#e T+*T6p/p4#e ~< 2'*T+Ip/6p4#e 2'*T+Op/6p4O#e T+*6p/#e ~悉_{U#+E SCREEN.#e _6ނ*#2U#e T&Z*Wp/x#e T&g*Wp/~#e$ `U*. ~恶8,-XhFILE /Xp/Xh- IS NOT A FORM FILE. PRESS 'CONT' TO RECOVER.AXp4p9Wlp>#eB JMTـl#eL !VYI E#e` y#ej 1OXhOENTER NAME OF FORM F 2'TIp/6ނp4#e 2'TOp/6ނOp4#e T6ނp/#e 2'T+Ip/TI6p4p9#e 2'T+Op/TO6p4p9#e T+T6p/p4#e 2'6ނp/#e {4K#+ T+I6p/#e T+O6p/RECT THE ERROR AND /Wlp/#e4 {c4Wp/ #+XhUNPROTECT THE FILE, THEN RWlp/#e> "{c4Wp/#+Xh%INITIALIZE MASS STORAGE MEDIUM, THEN EWlp/#eH XhPRESS 'CONT' TO RECOVER.Xlp/Wlp4#eR JMTـl#e\ XhWlp/#ef !p {c4Wp/#+ 1nWp/#e 2-d6ނdp/#e ~w t2p6ނpp/#e" XhwpWp/#e, wT&gjU7mpUVp/p4Y?2'pXpCXp>pHWp9pM#e6 T&Zj2wm U7p4UVp/p9Y?Wp>pC#e@ _6ނz#22'p#eJ T&Zj2-mz2wp4 U7p9UVp/p>WpC#eT `Up4#e !XhNYU7UJp4VCp/p92-p>Q˂ς OXh$Printer select code, bus address = ?#uT#uT#e ~ OXhPrinter select code = ?s#uT#e 696,p/6ނp4#e {4Q׀4Eׁ4"p/p4#+ K JMXh"INVALID SELECT CO#q( FU#uU#mMTـ#uMTA#e2 {+%U#uU #q,<%U#q,Z%2'G#q#e< FU#mL#uL<#uLZ#eF {+%U#uU #q,<%U#q,Z%U#q#eP 2-2wp/2wRG2-p4p92-p>X6ނ^pC#eZ o U#qd 6ނd#en _6ނ*f K "JMXh3FORM MAY NOT BE PRINTED UNTIL IT HAS BEEN STORED.E#e JU#e a+f- #e ~3 6ނ#e* 6ނ#e4 FI)E#uEU#uMXhHARD-COPY OPTIONSI#uEU #uEU#uMXhNone (CRT) -------- 1#uEU#uEU#uMXhMILE (1-5 CHARS):MASS STORAGE UNIT SPECIFIER. (eg. FORM1:F8)#uTـ#et X耕Wp/#e~ Xh:VCp/6ނ4p4#e {494#+W#e {U4#+2'4U7p/UJp4Wp9#e {Vm4Ep/&#+8 -JMXhIFORM FILE NAME CONTAINS AT MOST FIVE CHARACTERS. ~ $T&VmU7mp4UVp/p9Wp>#e 2-6ރp/#e {4K#+- {T4Kp/*#+- ~ -IMT&Z*#e _6ނO#2U#e {T&OUgp/~#+0 _6ނ#2Ua#e  #{T&OU7UVp/p4Xh 9Ugp9p>#+T& 6ރdp/#e z T6ރhp/#e T 6ރlp/#e 2'TIp/6ނp4#e T+T6p/p4#e T+T6p/p4#e T+ T 6p/p4#e 2'T+Ip/TI6p4p9#e 2'6ނp/#e {DT&OWp/~#e `UO  {49#+2'TIp/Up4Wp9#e  {2'TOp/4Wp44"p9#+  {U#+2'TOp/Up4Wp9#e ( T6ނmp/#e 2 6ނ#e < {4Wm#+ F {T&2'mU7p4UVp/p9Xh eUgp>pC#+ P 2- E FILE?P#uTـ#e Y?Xp/Wp4#e !XhNYU7UJp4VCp/p92-p>QG~K K{4EO^#+P Tـ#e JMXhCREATING THE FORM FILE.G#e Tـ#u2ȂOT69p/2-p4#e 6ނ^O#e PJMXhPROCESSING THE FORM.#e o3I  T#e L {4_#+IgU#uFU#uFUT#e V EI6MXh Form contains#mMTG#mMXh lines and#mMT#mMXhfields. The longest field is#mMTA#mMXh characters.i#uEU #e ` _6ނ*#22'G#e j IMT&Z*#e t `U* ~ {4_ׁ#+ I a+f- #e  ~3 .AJMXhIFORM FILE NAME CONTAINS AT MOST FIVE CHARACTERS. PRESS 'CONT' TO RECOVER.t#e & K 0 ! :2;OXhOENTER NAME OF FORM FILE (1-5 CHARS):MASS STORAGE UNIT SPECIFIER. (eg. FORM1:F8)e#uTـ#e D X耕Wp/#e N Xh:VC*T+Ip/2'TIp96p4p>#e ~s wT+*6p/d#e T+*6p/h#e T+* 6p/l#e 2'*T+Ip/6p4#e ~^ Z{+%U#uU #q,<%U#q#e W#e XhWp/#e JMXhSTORING THE FORM.OU7UVp/p4Wp9#e  `U  IMT&OXp/#e " `UO , ~0 6 IMT&Z*#e @ 0`U* J {U#+4 T {4_ׁ#+7 ^ IEU #mMXhPRESS 'CONT' TO CONTINUE#e h ! r 76ނ#e | {U#+I E#e {49#+I EU&#e IF4K#+p T+6p/d#e T+6p/h#e T+ 6p/l#e T+I6p/#e ~Z a2'6ނp/#e T6ރdp/#e T6ރhp/#e$ T 6ރlp/#e. 2'TIp/6ނp4#e8 p6ނ#eB s6ނp/#e Z ~ d {Vm2-p/m4Ep4#+$ n _6ނO#22- #:2#e x T&O2'OT&p4Wp/p9#e `UO T&U.maUVp/p42'mU7p>UJpCWp9pH#e )2-T&p/2'm2-p9U(p>UJpCXVm2''pR2'pWmXpMp\XpHpaWp4pf#e  r o7 GU#2Tـ#e  F0U#mMX;#uMTA#e o#e > `U* H {4? #+~Z R 2Ȃ 69p/2-p46ނp9#e \ 6ނ#e f ^{4K#+a p TEU #mMXhPRESS 'CONT' TO CONTINUE#e ! {U#+I E#e {49#+I EU&#e IMXhFIELD NUMBERSC#uEU #e 6ނ#e 6ރ#e _6ނ*#22'G#e {4K#+ {T4Kp/*#+ _6ނO#2U#e  p/6ނ4p4#e X {494#+W#e b {U4#+2'4U7p/UJp4Wp9#e l {Vm4Kp/&#+A v X耙Wp/#e X耞Wp/#e 2-2wp/2wRG2-p4p92-p>X6ނOpC#e {U]4/&p/#+ &GOXh7DO YOU WISH TO STORE THIS FORM BACK INTO THE SAMDE FOR PRINTER.#e JU#e ~ {4WO #+ 6ނׁ#e  ~ OXhDO YOU HAVE PERFORATED PAPER?I#uTـ#e  Y?Xp/Wp4#e $ !XhNYU7UJp4VCp/p92-p>Q .6ނ#e 86ނ׀#e B {4W#+IgU#uFUMXh TAB NUMBERS #uEU #e ~ 4{4_ׁ4"p/#+I E#e {49#+I EU&#e IgU#e a+f- #e ~3 ~~(#A% {4KG#+; K *JMXhDFORM CONTAINS 0 LINES AND CANNOT BE STORED. PRESS 'CONT' TO RECOVER.#e !  6ނ*#eL 2w 6ނp/#eV {4K#+w` {4W#+zj {2'TIp/TI4?p4p9#+2-6ނp/#et z{2'TIp/4Qp4#+w~ T+*T6p/p4#e T+*T6p/p4#e T+* T 6p/p4#e 2'L#e kE$ | $G0#mM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pRUJ pW#e" _6ނ*#2U#e, JU#e6 `U*@ $G0#mM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pRUJpW#eJ _6ނ*#2U#eT JU#e^  K2w 2'pRU.pWUVpMp\XpHpaWpCpf#e G0#mMT&Z2w 2'p4U.p9TUVp/p>#e ~{T&gU7瀼UVp/p4Xh Ugp9p>#+ K T&gU(UVp/p4Xh hVCp9p>6ބpC#e {U#+2-2'p/6ރp4#e G0#mMXh&a'#mM2'瀼/#e F0U#mL#uL<#e {+%U#uU #q,<%U#q#e 6ނ#e( _6ނ*#22'G#e2 T&Z*Wp/#e< _6ނ#2Ua#eF %{T&g*U7UVp/p4Xh U]p9p>#+2w U7p/UJp4Xh EWp9p>#eP `UZ F0U#mMTـ#ed `Up/#e {Xh WUgp/#+ >{T&gU(UVp/p4XhNVCp9p>49pCT&gU(UVpMpRXhWVCpWp\49pa4"pHpfT&gU(UVpppuXh VCpzp49p4"pkp#+ W#e!XhNWT&gU(aUVp4p9VCp/p>2-pCQƄ {U&#+* XhWNT&g4Wi#+ox 2'2'T,p/p46ނp9#e XWp/#e ~愯 b2'6ރp/#e {4W#+6ރ#e ~u o2-6ރp/#e {4Wi#+6ރ#e uXWlp/#e _6ނ#2U&#e ,Xh kXlp/UƂXp4p9Xh: Xp>pC2wp/6ރp4#eN T&Z2w 2'p4U7p9UVp/p>XpC2'pH6ރpM#eX $G0#mM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pRUJpW#eb 6ރԂ#el {4?#+!2'Qڃڃڄڄ$+28?DJv {4?N#+!2'TQ Z`ejoty} 2wpH2-pMU7pRUJ pW#e ~ {4K4?4"p/p4#+ {4_#+ XhWpp/#e ~惵 6ރԂ#e 6o"2-p/6ނp4#e {U#+( 4W2wp/6ރp4#e T&Z2w 2'p4U7p9UVp/p>XpC2'pH6ރpM#e $G0#m`U*h !UQƁQʃr a+f- #e| K a+f) #e ~3 E#Wpp/#e {Vmp49p/#+|?#e 26ރp/#eT&Z2w 2'p4U7p9UVp/p>XpC2'pH6ރpM#e $G0#mM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pR #mMXhCC#e ~T&Z2w 2'p4U7p9 UVp/p>XWpCpH#e G0#mMTك#mMTك#e 2-瀼6ރp/#e {4Ea#+ 6ރ瀼#e 6ރ#e G0#mMXh /#e$ 2-6ރp/#e. 76ޅp/#e8 2-6ޅp/#eB *n F0 U#mE#ex GU#2 #e a+f- #e oI3 o7 ~3 K$ ~} G0#mMXhH#e 6ރ6ރp/6ރp46ރp9#e T&ZU7UVp/p4Xp92'p>6ރpC#e W#e 6ރ#e H#,Ke a+f- U(aUVp4p9VCp/p>2'pC6ބpH#e4 6ނ#e> 6ރa#eH ~R 6ރ炚#e\ T+ T 2'p46p/p9#ef ~p 2'6ނp/#ez T&gU(UVp/p4T&gU.UVp>pCXpHWp9pM#e ,T&Z2w 2'p4U(p9UVp/p>XT&Z2'T,pMXpRXpHpWXh |Xp\paWlpf#e `U JMXhk6:MORE KEYS| k7:EXIT Xlp/Xp4#e ~-6ރ#e ~u }6ޅ6ރp/#e" 6ރ瀼#e, 6ޅ#e !#total lines76 6ޅ}#e!#Lines per screen@ G0#mMXh {4K4?4"p/p4#+!2'Q$ڄ ~ X6ނp/#e {4K4?4"p/p4#+ {4?#+ {4_#+ XhWpp/#e ~惵 6ރԂ#e {49#+ T&gU7瀼UVp/p4Wp9#e {XhNWVCp/#+Xh WM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pRUJpW#e !UQ-38=3BHM 3K JMXh UNDEFINED KEYH#e JU#e( a+f-#e2 ~< ({4?"#+RF 6ރ#eP a+f-#eZ ~d R{4WV4W\4/p/p4#+bn {UJpW#e {Vmp49p/#+ U.UJpp/Wp4#e U( UJpp/Wpp4#e {U#+ {U]#+U7UJpp/Xp46ބp9#e 6o6ނp/#e {4_#+  XhWpp/#e& ~惵0 U( UJpp/Wpp4#e: {4?#+ D 4W {2-4?p/#+L 6ޅ#eV 2-6ޅp/#e` {4E#+j 6ޅ6ޅp/6ރp4#et ~~T&Z2w 2'p4U7p9UVp/p>XpC2'pH6ރpM#e =G0/#mMXh&a #mMT#mMXhr>#mM2'瀼#mMXhC#mM26o 49p42wp/p96o 2-p>pCd  {U#+ XhTVCtp/6ރp4#e ~患 {XtXhUgp/p4#+ {4W瀼#+ 2'瀼U.p/UJp4Y&p9XhT>VCp>pC6ޅpH#e 2'6ރp/#e {U#+" Y&XhT/VCp/p42'p96ރp>#e, ~6}U7瀼UJtp/XhT'Wp4p9#e@#mM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pRUJpW#mMXhT#e 2'6ރp/#e {2'4EOp/#+ T&Z2w 2'p4U7p9UVp/p>XpC2'pH6ރpM#e 4G06#mMXh &a0r0CL7#mM2'2'p/T&Zp4#mMXh&a#mMT#mMXhre#mM m2'6ރp/#e 2'}7p/2-p4}6ޅp9#e 2'6ޅp/#e {4Q#+ 6ޅ#e 2'6ޅp/#e {4Q#+ 6ރ#e 6ޅ#e 6ޅ}#e ~|( G0#mMXhL&a0C}#mMT&Z#e2 ~< 8{4#e 6ރ瀼#e 6ޅ}#e ~6ޅ6ޅp/6ރp4#e 6ޅ#e 6ރ瀼#e {4W#+ G0#mMXhHJ#e _2'؀6ޅp/#2U#e& G0#mMT&Z#e0 `U: G0#mMXh&ae#mMT#mMXhr0C#eD ~ND 2-6ރp/#e 76ޅp/#e 2-6ޅp/#e {4?#+$ 6ޅ#e. {4E#+8 6ޅ6ޅp/6ރp4#eB KL ~VG0#mMXh&a+1r0C#mMT&Z#e` T&Z2w 2'p4U7p9UVp/p>XpC2'pH6ރpM#ej 'G0/#mMU]p9p>#+ XhNgWp/#e 6ބЀ#e ~ ={T&gU7瀼UVp/p4Xh U]p9p>#+& XhWgWp/#e0 6ބЀ#e: {4?#+ D KN JMXh*FORM CONTAINS THE MAXIMUM NUMBER OF FIELDS#eX JU#eb a+f-#el ~v  S#e4 2-6ރp/#e> {2'4EOp/#+H 2-6ޅp/#eRT&Z2w 2'p4U7p9UVp/p>XpC2'pH6ރpM#e\8G0B#mMXh&a'#mMT#mMXh r0C&a+1R#mMT&Z#mMXh&am#mMT#mMXhr#mM2'瀼#mMXhC7#ef `UOp 2-  ~JU7瀼UJtp/Xh 'Wp4p9#eT ~^6ރ瀼#ehZT&gXhFhXp/p4Wp9#er 6ނO#e| U(OUJp/Xh VCp4p96ނp>#e {49#+ 2-O2'p/6ނp4#e U(UJp/U(UJp9Xp>XpCXpHVCp4pM2-pR2'pW6ނOp\#e2'瀼#mMXhCH#e $G0#mM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pRUJ pW#e 2'6ޅp/#e`UO 2'6ޅp/#e ~ ?2'؅4Ep/2wp42'؅2'؅4KpC2wp>pH2-p9pM6ޅpR#e {49#+~ )2'2-p/7p42' W4W#+F ~患P +2-瀼6ރp/#eZ {4Ea#+d 6ރ瀼#en ~患x $2'瀼6ރp/#e {U#+ 6ރa#e ~ y{4W}#+ {XtXhUgp/p4#+ {4Wa#+ 2-瀼U(p/UJtp4XhTmVCp9p>6ޅpC#e 2-6ރp/#e4K2wp/2'}4E2wp9p>2-p4pC6ޅpH#eX {49#+~b )2'2'p/7p42'4Kp>2wp9pC2'2'4EpR2wpMpW2-pHp\6ޅpa#el 2-2'p/6ޅp4#ev _6ނO#2U#eT&Z2w 2'p4U7p9UVp/p>XpC2'pH6ރpM#e)G0 Xh&a #mMT#mMXhr>#mM2'瀼#mMXhC#mMU7UJ p/#et ~~ |2{U#+ %G0#mM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pRUJ pW#e $G0#mM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pRUJpW#e ~ HJ#eJ _6ޅ#2U#eT G0XhK#mMT&Z#e^ `Uh G0#mMXhl#er _6ޅ}#2U#e|G0XhK}#mMT&Z#e `U G0#mMXhHmH#e |?#e t{4W#+ {4_#+~} G0#mMXhH#e 6ޅ6ރp/6ޅp/#ez ~ J{4W#+ 6ރ瀼#e G0#mMXh&a0Cm#e ~6ރ瀼#e 2'2-p/}6ޅp4#e G0#mMXh&a-#mMT#mMXhr0C#e 2'6ޅp/#e 2'}6ރp/#e ~ {4W#+J 6ރ瀼#e  T&Z2w 2'p42w O2'p> U.p9pCUVp/pHWpMx#e {4?Oa4W4"p/p4#+ $G0*#mMXh&a0C4#mMT&Z#mMXh&a-1r#mM2'瀼#mMXhCW#e ~{U#+a 496ރp/#e {U#+a  ~8{T&gU7瀼UVp/p4Xh  ؅4Ep>2wp9pC2'؅2'؅4KpR2wpMpW2-pHp\6ޅpa#e 2-2'p/6ޅp4#e _6ނO#2U#e!Roll screen upw  T&Z2w 2'p4U7p9UVp/p>XpC2'pH6ރpM#e*)G0#mM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pRUJpW#mMXh #eP _6ނj#22-#:2#eZ T&Zj2'jT&Zp4Wp/p9#ed T&gj2'jT&gp4Wp/p9#en T+ j2'jT p46p/p9#ex `Uj T&ZWp/x#e T&gWp/~#e T+ 6p/#e ~N~ {UT#+2'6ކ6ރ#e T+ T 2-p46p/p9#e 2-6ނp/#e {U&#+  ~ _2'6ނjp/#22-#:2#e T+Ij2'jTIp46p/p9#e T+Oj2'jTOp46p/p9#e `Uj T+I6p/#e {49#+ T+O6p/Xp\Xh aXpapfWpCpk#e "T&gU(UVp/p4T&g2-瀼U(pCUVp>pHXh -XpMpRWp9pW#e T&Z2w 2'p4U7p9UVp/p>XpC2'pH6ރpM#e FG0*#mMT&Z2w 2'p4U(p9UVp/p>#mMXh&a-1r#mM2'瀼#mMXhC#uM26o 49p42wp/p96oAf-#e D ~ N{U#+XhneWp/#e X {49#+XhwWp/#e b X6ބp/#e l {4W#+6ބa#e v {4_4_a4"p/p4#+g {4W#+Xp6ބp/#e 6o6ނp/#e XhWpp/#e {4Wa#+k {4Wq4Ww4/p/p4#+}pR#eB ;XWp/#eL ~V e496ރp/#e` ~j`T&gU7瀼UVp/p4Wp9#et {XhNWVCp/49p4#+A~ {4Wa#+D T&g2-瀼U7p4UVp/p9Wp>#e {XhnU]p/Xhw4U]p94"p4p>#+D )T&Z2-瀼2wp4 U7p9UVp/ #e| `UO |?#e j6ކT#e {T 4Kp/ #+JMXhDELETING FIELDS FROM LINE.#e ~N _6ނj#22'؀#e T&Zj2-jT&Zp4Wp/p9#e T&gj2-jT&gp4Wp/p9#e T+ j2-jT p46p/p9#e `Uj T&Zsp/#e 2 6ކp/#e 6ކ"6ކ%p/#e (2-6ކp/#e U.%jUJp/XhNVCp4p96ކ"p>#e 2-%"6ކ%p/#e {4K"4E"j4"p/p4#+( 6ކ"6ކ%p/#e -2-6ކp/#e U.%jUJp/XhWVCp4p96ކ"p>#e 2-%"6ކ%p/#e { p/#e T 2-p/2'p46ކYp9#e {49T#+2'Y6ކYp/#e _6ނO#2UY#e TOO6ކ]p/#e {U]#+2'd6ނdp/#e _6ނ#22'#e {TITIO4Kp/p4#+T+ITI2'p46p/p9#e {TO4Kp/]4"]p4#+T+vd#e 2-d6ނdp/#e ~  T+O6p/#e a+f-&#e T&Z2w 2'p4U7p9 UVp/p>XWpCpH#e T&gU7瀼UVp/p4Wp9#e* 1G0%#mMTك#mMTـ#mMXh#mM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pRUJ pW  2-p>pC2wpH2-pMU7pRUJ pW#e ~ o{T&ZUgp/x#+G K JMXh-Form file is full. Lines may not be inserted.m#e( JU#e2 a+f-#e< ~F+GG0*Xh #,K,K,K,DD,K#mMXhL&a0Cy#mMTـx#mMXh&a-1r#mM2'瀼#mMXhC {4K4?4"p/p4#+ {4W4W4/p/p4#+ {4W&4W4/p/p4#+ {4W4WX4/p/p4#+ gK JMXh,UNDEFINED KEY; MUST COMPLETE OR DELETE FIELD#e JU#e XhWpp/#e! a+f-&#e! ~!6ރ#e! a+p>T&g2-瀼U7pMUVpHpRY?WpWp\WpCpa#e ~A DXhWNT&gU7瀼UVp4p9VCp/p>2'pC6ބpH#e {49&#+~ {U&#+2'6ނp/#e T+ T 2'p46p/p9#e /AT&Z2w 2'p4U(p9UVp/p>T&Z2w 2-pMU(pRUVpHpWWp/x#e T&gWp/~#e T+ 6p/#e G0##mMXhM&a#mMT#mMXhr0CI#mMT&Z#e  _6ނj#22-#:2#e  G0#mMXhT#e  `Uj & G0(#mMXh&ae#mMT#mMXhr#mM2'瀼#mMXhC#e 0 {U#+u : a+A4K"4E"j4"p/p4#+- 2-6ކp/#e |?#e !2'Q258 26o 2'p/6o 49p92-p4p>6ރpC#e ~;$ 56o4Kp/2w p42'p96o4?pC 2w pH2-p>pM6ރpR#e. ~;8 86o"4Kp/2wp42'p96o"4?pC2wpH2-p>pM6 -OTO2'p46p/p9#e `U `UO" 2'Y2-p/6ނOp4#e, 2'O6ނp/#e6 _6ނ#22'#e@ T+I2-OTIp46p/p9#eJ T+O2-OTOp46p/p9#eT `U^ _6ނO#2UC#eh T+IO6p/#er T+OO6p/#e4 ~>6ކ#eH _6ޅ#22'#eRT 2-p/6ކp4#e\ `Uf 2-瀼6ނjp/#eg @2'j6ނjp/#eh {T&gU7jUVp/p4T&gU7jUVp>pCY?pHU]p9pM#+@i 2'j6ނjp/#ep T&gU7jUVp/p4Wp9#ez Vm6ނj"{U#+Xhn4Wp/#e" {49#+XhwWp/#e"$ 6ރ#e". T+ T 2'p46p/p9#e"8 {U&#+2'6ނp/#e"B {49&#+~"L a+f-#e"V 6ކ#e"` {T&gU7UVp/p4Y?Ugp9p>#+"j G0#mMXhV#e"t 2' FORM CONTAINS 0 FIELDS AND CANNOT BE ORDERED.'#e%0 JU#e%: a+f- #e%D ~3%NI E#e%X JMXhRE-DISPLAYING THE FORM.N#e%b ~}%l K%v 6ށ#e% 2'6ޅp/#e% 6ކԀ#e% 6ރ#e% T6ކp/#e% TpH#e!\ T&gU7瀼UVp/p4Wp9#e!f ~!p K!z ~! }{T&gU7瀼UVp/p4Y?U]p9p>#+! 6ރ#e! T+ T 2'p46p/p9#e! {U&#+2'6ނp/#e! {49&#+~! a+f-#e!%T&gU7瀼UVp/p4T&Z2w  T&Zp/#e$ `Uj$ G0#mMXhHmH#e$" ~$, 6ނz#e$6 ~$@ 6ނz&#e$J l$T a+f)z#e$^ L!$h a+f-z#e$r 6ށ#e$| I E#e$ G0#mMXhH#e$ _6ނj#2U#:2#e$ G0XhK#mM2'jT&Zp/#e$XhFIELD 2'TIp4Up9Xp/p>Xh OF XpCpHUƂXpMpRXh; ENTER NEW FIELD NUMBER.XpWp\Wlpa#e& Vml2-p/U(p4UJlp9Xh 4Vml2'apHXpCpMWp>pR#e' U7}UJlp/Xh HELP | EXIT HWp4p9#e' JMTـl#m#e' XhWp/#e'$ OXh#uA6p/p9#e# `UO#( _2-6ނjp/#2UC#e#2 2'jT+Ip/TIj6p4p9#e#< 2'jT+Op/TOj6p4p9#e#F `Uj#P {U#+2'd6ނdp/#e#Z |?#e#d |#n a+f)#e#x a+f-#e# ~3# a+f)#e# !# a+f-#e#; Vml2-p/U(p4UJlp9Xh Vml2'apHXpCpMWp>pR#e&* U7}UJlp/Xh HELP | EXIT HWp4p9#e&4 JMTـl#m#e&> XhWp/#e&H OXh#uTـ#e&R X耣Wp/#e&\ {XhUgp/#+&f Vx6ނOp/#e&p {4?O#+&z 2'T+Ip/6p4O@6ކp/#e"~ {T&gU7UVp/p4Y?Ugp9p>#+" ~憲" %T&Z2w U7p4UVp/p9T&gU7UVpCpHXh wWpMpRWp>pW#e" G0#mMXh #e" 2-6ކp/#e" {4Ka#+" {T&gU7UVp/p4U]p9#+" ~憭" (G0(Xh #,K,DD h6ޅp/#e% {4?#+% 6ކԀ#e% 2-6ޅp/#e% G0#mMXhF#mMTـx#mMXh&a-1R#e% {4K#+% G0#mMT&Z#e% {4Q#+~% 6ކԀ#e& FG0DXh#,K,DD,K,K,K,DD,K,Kh#mMXh&a#mM2-7p/#mMXhr0CU7pCUVp>pHXh 4WpMpRWp9pW#e! *G0#mMXh #mM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pRUJ pW#e! 2'瀼7p/6ރp4#e! ~!BT&gU7瀼UVp/p4Yop9Wp>#e! {Xh gUgp/#+~! XhwnVCp/2'p46ބp9#e" ~憢  `Uj$ _6ނj#22-#:2#e$ G0#mMXhT#e$ `Uj$ 'G0(Xh #,K,DD,K,DD,K#mMXh&a#mMT#mMXhr/#mM2'瀼#mMXhC#e$ kE$$ ~惼$H6ށ#e$ |?#e$6ށ&#e% |?#e% k{4K#+% K%& JMXh/f-#e!* ~+!4 k{4K#+!5 {T&g2-瀼U7p4UVp/p9Xh eU]p>pC#+!> 2-瀼6ރp/#e!H 4G0%#mMXh&a+1C#mMTـ#mMXhE#mM26o 49p42wp/p96o 2-p>pC2wpH2-pMU7pRUJ pW#e!R T&Z2w 2'p4U7p9 UVp/p>XWpC I E#e# JMXhRE-DISPLAYING THE FORM.#e# 2-4Wp/2'p46ނOp9#e# G0#mMXhH#e# _2'6ނjp/#22'}#:2#e# G0#mM2'OjT&Zp/#e# `Uj# G0#mMXhl#e# _2'6ނjp/#2U#:2#e$ G0#mM2'Oj#e& Xh VCp/6ބp4#e& Xh,VCp/6ކp4#e& {49494"p/p4#+& {4W#+6ބT#e& {4W#+6ކT#e& 76ނ4p/#e& 2-4U(p/UJp4Wp9#e& Vx6ނOp/#e& {4?O#+& 2'T+Op/6p4O#e& ~& 7,K,DD,K]#mMXh&a#mMT#mMXhr#mM2'瀼#mMXhCJ#e" ~"~" TO6ކ]p/#e" 2'6ނp/#e# _6ނO#2U#e# {TIOTI4Kp/p4#+T+IOTIO2'p46p/p9#e# {TOO4Kp/]4"]p4#+T+OOTOO2'p4 CLe#mMTـx#mMXh&a-1r#mM2'#mMXhCH#mMX#mMXhD#e& {T 4?p/#+& PXhFIELD 2'TIp4Up9Xp/p>Xh OF XpCpHUƂXpMpRXh, TAB XpWp\2'TOpfUpkXpappXh%; ENTER NEW FIELD NUMBER, TAB NUMBER.XpupzWlp#e& z Tـ#e'. X耣Wp/#e'8 {XhUgp/#+'B Vx6ނOp/#e'L {4?O#+'V 2'T+Ip/6p4O#e'` G0#mMXhM#e'j 2-6ރp/#e't {4K2'4KGp44"p/p9#+k'~ {4K#+6ރ#e' ){T4_p/4"p4#+G0##mMXh&a9#e*N {49#+.*X 2'T+Op/6p4d#e*b 2-d6ނdp/#e*l .6އ1#e*v 52-16އ1p/#e* {4K1a#+8* {XhnwT&gU71UVp4p9VCp/p>49pC#+8* ~5* 82'16ނpp/#e* 7Ap6ނAp/#e* T+ 6p/p#e* {49#+T+]@1 tRpt sSp tPrtr .sNo uPrtr1PHc DsShPO tCom vInt_ptr vInt_ptr1 vInt_ptr2tPr1PP_arrayuOtherPFldtPrinuN_fld@XsAdzsZ2SsZ1F@sZ3f,sZ4tN_isOutPr2vGet_na)r 6ނ6ނAp/#e)| {49&#+) 6ނd#e) oOU#q) _6ނO#2U#:2#e) {T&ZOU]p/x#+) `UO) T+2-O6ނGp46p/p9#e) T+ 6p/6އp4#e) _6ނ#2UO#e) {T 4Wp/#+$) 6ރ瀫#e F@SF@TF@VF@XF@dF@F@vRecover&0fwXuState2vGostoreF@3uGetstrvBad_data.P8No_of_fields/ P4New/P3I wAsk_again.P4Pos sZf" *p>#e( `U( a+f- #e( ~3( T+I6p/#e( T+OT 4Kp46p/p9#e( I E#e( a+f- #e( ~3( MI E#e( l( JMXhEVALUATING FIELDS.#e( _6ނO#2U#e( {T&ZOU]p/x#+( `UO) { f.@5Chr128f%P.@5Chr255.P6Formsizeffff f0f@fP.@4Coff.@4ConJuBegin.P5StateF@auStarttErrtHelpvDisp_skwtIdletKey0vNew_fo#mMT#mMXhr0Ch#mMT&Z#e' ~' K' JMXhNEGATIVE NUMBERS NOT ALLOWED.#e' JU#e' ~' 6ށ #e' K$' {4? #+~' JMXhRE-ORDERING FIELDS.A#e' I E#e' _6ނ*#22'#e( T+3*6p/*#e(   2p6p/p4#e* ~)* $`U* T+6ނ6p/p4#e* 6ށ #e* 6ނ&#e* |?#e+ 6ށ#e+ |?#ewBuildformf & t7Ctl_arrayF@er6Fld_cnt&Pt7Spec_keysr4Tempt5Temp1.b7Tab_me{vAskagainStOveruOver1tSavef%`=tReaddsH5)sH6PRec0PRec1PRec2fsH7ntDwnsH9sH85sHbsK/YP4Ins/^P5Typwtr/cP9Field_started/hP6Key_setfp/mP6Hilight/r@4Enh/~P4Enh&@wKeyservice{tWait) )2-瀼6ރp/#e) {4Ka#+$) {XhNWT&gU7瀼UVp4p9VCp/p>49pC#+)* 2-6އp/#e* T+6p/#e* T+6p/#e*& 6ބЀ#e*0 {T&gU7瀼UVp/p4XhW9Ugp9p>#+6ބЀ#e*: {49&#+.*D 2'T+Ip/6p4.P6Max_len.P8No_of_lines.P3Kf F@.P6Oldsize.P6Tab_ctr/P3X/P3Y/P4Len sN1 sN2/P3Sf/"P3L/'P3R esH0 sH1/,P4Rec/1P4Key *sH2/6P3J sH4 psH3!mtDownPStore )sPtPPagePHcbusfF]4?O#+) _6ނO#2U#e) 2'OT&Zp/T&ZWp4p9#e)" 2'OT&gp/T&gWp4p9#e), 2'OT+ p/T 6p4p9#e)6 `U)@ _ 2'؂O2-p/6ނp4#2U#e)J T&ZWp/x#e)T T&gWp/~#e)^ T+ 6p/#e)h `U rmbvRestartuUndef1uHelpstExittKey1WvOld_form xPrint_reporttKey22^wSet_ordertKey3tKey4tKey51wStore_formtKey60uHelp10uHelp20uHelp3tKey76+uRenum0/P7PrevstatextAsktAsk1tEditF@R`U*( a+f3I#e( _6ނ*#22'#e(( T3*T+Ip/2-*6p4p9#e(2 T+3*6p/*#e(< `U*(F a+f3O#e(P _6ނ*#22'#e(Z {T3*TOp/#+ (d `U*(n _6ނ*#22'#e(x T3T+Op/2'*2-p96p4 norderfb6Field_no ^b5Tab_nof B7Form_imageF@B5Field*y@4Disp*@4Keys*@4Tabs*@6Initstr+M@4Init&`+xB5Order,@4Temp,@4Char-E@4Name-@5Name1-@5Name2.>@4Ttt.P4Top.P5BufferF@2&v D#uEU #uMXh BUILDFORM #e+ IEU#uEU#uMXhThe available commands are: #e+ !UQ"%(++ 1IEU#uMXhHNEW FORM Clear the screen and workspace and enter form editing mode.#e+ -IEU.#uMXhARECALL Recall anhuRollupmvRolldown tHomeF@@F@)$vClrtoend(uDelchr(uInschr+{uDelln)uInslnuRecall#5tTab#uTabset#uTabclr$uTypwtrF@I9tStop$ vClrlinefpf0.tBeepsC1uAscii2 wNo_insertDvSpecca " EXIT Wp/p4#e+>5T&$XhO 9 HELP | EXIT Wp/p4#e+H5T&*XhPLINE DRAW| |NORMAL FLD|WRITE FLD  8|DELETE FLD| HELP | ENTER Wp/p4#e+R5T&0XhP  bER ARE TO BE CHANGED, TYPE THEMd#e,. ,IEU:#uMXh@SEPARATED BY A COMMA AND PRESS 'CONT'. IF THEY ARE TO REMAIN THE#e,8 ,IEU:#uMXh@SAME, SIMPLY PRESS 'CONT' TO MOVE THE POINTER TO THE NEXT FIELD.#e,B .IEU:#uMXhCREAL NUMBERS MAY BE USEDF@ 2wNext_field1sR2uOrder1PFlag3LsIn3vAddarow3;vNo_printf"@4sWF@a5sOt6tBad1PPos27vOne_flduSsort6sEx7muNoout7tNout8tOld81sDnPCindex9uNexti8quNchar9sSuPCnt9sN9GtCalc 2tH25!der.#e+ /IEU.#uMXhFSTORE UStore the currently active form on a mass storage device.#e+ 0IEU.#uMXhHHELP X List a brief explanation of each of the available commands.#e+ %IEU.#uMXh1EXIT  Terminate the form buildiENextkF@!wShifthomePMove!uPrint!vAddline"osUp""tOkay"vSubtline#vShifttab#xsX2#sX1@Tab$*tCte1tCte2%2uSetfld%msCo& tAok&vwGet_scoreP5Score&sAP3NP3T1P3T'uNloop'FuWloop'sIv'sBl'sUl'vSet_en "H existing form and enter form editing mode.i#e+ 0IEU.#uMXhHHELP X List a brief explanation of each of the available commands.#e+ %IEU.#uMXh1EXIT P Terminate the form building session.t#e+ `+ 1"IEU#uMXhHRESTART [seuNofld_uYesflduNofld1P5Normal0wRemove_noF@yfuCommon{uNotfld6tSkipPPos1$vPcursor/OP8Last_screen/;P7Screen_row/JP6Last_crtsL6'wHighlightssNw&CuLines)vLinedrawuIllkey$uNormal% uWr | | END FLD |  |   X|DELETE FLD| HELP | Wp/p4#e+\ JMT&#e+f`vDisp_sk/P3IF@ F@/B3A&& &0&@5&Pi#@G+pa{#e+z IE#uMXF@utOut1uHelp41uHelp5/P6Prevkey5vKeyloop/@P7Cursor_row/EP7Str_index/@4Key,zwSet_fielduAsciiwSpec_keys/P4KkeytNewvSoftkeyF@0F@!]uStore#wLeftarrow"wRightarrow"vUparrow"wDownarrow6c&tLoopUf*6B\+a{#e+  %=%U #q%U#y#e+*5T&XhP NEW FORM | RECALL |  |    | L| HELP | EXIT Wp/p4#e+45T&XhP RESTART | REPORT | ORDER |    | STORE | HELP | S0ng session.t#e, `, 1%IEU#uMXhHHELP X List a brief explanation of each of the available commands.#e, &IEU.#uMXh4EXIT h Terminate the order specification mode.#e,$ 0IEU4#uEU:#uMXh?IF THE FIELD NUMBER AND TAB NUMBh(sD1(sD0)wMay_insert*`vFix_vecP5WholeP4LastP4TabF@#-)tBad-zvAdvanceF@PF@".tBack&-fuEndfldF@.uDelfld2RuHelp_5.\vDelchtr/tDelPStartoffld/uFound/auPrevch/tDonePRow v Enter edit mode with the choice of keeping the form active.#e+ /IEU.#uMXhFREPORT Print report of form showing tab order and field numbers.#e+ 4IEU.#uMXhPORDER Enter order specification mode to define field numbers & tab or3ite.vDel_fld2FuHelp_474uEnter_tStayF@pXF@xwBackwards&pvMorekeysxDisplaykeysF@/TP3CF@.F@xShiftrecallP4CrtRsSrF@(/F@/P6Rolldist/P6RewriteuNext_k ur CONT Key0 CONT Key1 CONT Key2 CONT Key3 CONT Key4 CONT Key5 CONT Key6 CONT Key7 CONT Key0 CONT Key1 CONT Key2 CONT Key3 CONT Key4 CONT Key5 CONT Key6 CONT Key7 CONT Key0 CONT Key1 CONT Key2*,T Ctl_array(0,2) THEN Nactive <c9680 ON Mode GOSUB Header,Get_form,Display,Fill_fields,Write_fields,Clear_fields,Dump_form <09750 Exit: Ctl_array(0,2)=Last_crt*100+Oldrow<9760 0SUBEXIT <9840 Not_found:Ret_code=5 9850 49#+`-( _6ހ#22' 2'p/$#e-2 2-6ހ*p/#e-< _6ހ-#2U#:2#e-F T-Tp/T*Tp92'p4p>6ހ0pC#e-P {4?0490T*T-4Kp9p>4"p4pC4/p/pH#+3-Z T-6ހ6p/#e-d T+-T*6p/p4#e-n T+ 0, EN Ernoflds <)9470 $No_of_fields=Ctl_array(0,0) <(9480 >No_of_lines=Ctl_array(0,1)<9490 K: IMAGE #,K <<9560 6IF ROW(Form_image$)2) AND NOGTO RETURN TO EDIT MODE.#e, `, `tHelp.P3IfF@7& .F@BsL1C`sL2D{sL3EsL4FsL5&&0c&P9H, a{b%bb #e- #- 6ހ #e- 2w69p/6ހp4#e- { \,P=CHR$(132)&CHR$(133)&CHR$(134)&CHR$(135)&CHR$(128)&CHR$(129)&CHR$(130)&CHR$(131)<-9430 (Initstr$=RPT$(CHR$(128)&" ",80) <9440 Ret_code=Flag=0 <+9450 &IF Mode=1 THEN GOTO Form_info /9460 IF COL(Ctl_array)<3 TH"ursor.#e, 0IEU.#uMXhHHELP Y List a brief explanation of each of the available commands.#e, 2IEU.#uMXhKENTER uTerminate edit mode and evaluate fields proir to storing form.#e, JMXh&PRESS 'CONT' TO RETURN TO EDIT MODE. 3`<T9290 SUB Useform(Mode,Ret_code,Form_image$(*),Ctl_array(*),Field$(*),Field_order(*))<(9370 "SHORT Temp(Ctl_array(0,0))<O9380 JDIM Keys$[80],Initstr$[160],Chr255$[1],Con$[8],Coff$[8],Temp$[80] <!9390 ON ERROR GOTO Error  TO INSERT A FIELD BETWEEN TWO SEQUENTIALLY#e,L /IEU:#uMXhFNUMBERED FIELDS. (ENTER 4.2 TO INSERT A FIELD BETWEEN FIELDS 4 AND 5.)#e,V JMXh'PRESS 'CONT' TO RETURN TO ORDER MODE.I#e,` `,j ,(IEU#uMXh>LINE DRAW Provide access to&, t_code=17 <(10020 $ IF ERRN=56 THEN Ret_code=5<)10030 & IF ERRN=80 THEN Ret_code=13 <)10040 & IF ERRN=82 THEN Ret_code=14 <)10050 & IF ERRN=85 THEN Ret_code=15 <10060 + GOTO Exit <10140 Form_info:GOSUB Header -, <10800 Write_fields:Write=1<10810 L GOTO First<10820 Clear_fields:Write=2<10890 First: Field=0 <10900  GOSUB Get_fld <&10910 D IF Ret_code THEN RETURN <10980 Next: GOSUB Set_cursor#10990 ON Write G+<11710 Sh: Hc=ABS(INT(Hc)) <.11720 * IF (Hc>=0) AND (Hc<=16) THEN Com<11730  BEEP<711740 4 DISP "INVALID SELECT CODE FOR PRINTER." <11750  WAIT 3000 <11760 - GOTO Rpt< 11770 Sp: IF Op=1 THEN Hc=16,(18,Last_line)<,10580 ( PRINT USING "K";Form_image$(I)<10590  NEXT I< 10600  PRINT USING K;"l"</10610 , FOR I=19 TO MIN(Buffer,Last_line) <,10620 ( PRINT USING "K";Form_image$(I)<10630 NEXT I10U,),"Other printer ----- 3" <*11610 Rpt: INPUT "Option number = ?",Op<11620  Op=INT(ABS(Op)) <*11630 & IF (Op<1) OR (Op>3) THEN Rpt<11640 S IF Op<>3 THEN Sp<911650 Prtr: INPUT "Are you using an HPIB Printer?",Ttt$ Q,DNo_of_fields,2),Field_order(No_of_fields),Form_image$(No_of_lines-1)<,10400 ( READ #1,1;Cursor_char$,Max_len<@10410 < READ #1;Ctl_array(*),Field_order(*),Form_image$(*)</10420 3 REDIM Field_order(0:No_of_fields) !10430  , mage$(Row)<11420  GOSUB Get_fld <&11430 " IF Ret_code THEN RETURN <&11440 " IF NOT Vec_end THEN Next<"11450  IF Flag THEN RETURN <011460 , Field_order(No_of_fields)=Last_crt<11470  RETURN 11560 ' <10150 F SUBEXIT <010230 Header: ASSIGN #1 TO Form_image$(0),Return<<10240 8 IF Return>0 THEN ON Return GOTO Not_found,Prot<$10250 READ #1,1;Cursor_char$<610260 9 IF Cursor_char$<>CHR$(222) THEN Not_formJ10270  U, OTO Wrt,Clr <711070 Wrt: FOR J=1 TO MIN(LEN(Field$(Field_no)),Len) <C11080 @ Form_image$(Row)[(Col+J-1)*2;1]=Field$(Field_no)[J;1] <11090  NEXT J<11100  FOR K=J TO Len111110 # Form_image$(Row)[(Col+K-1)*2;1]=" , :Ret_code=10<9950 .SUBEXIT <9960 Ernoflds:Ret_code=11 <9970 .SUBEXIT <9980 Error: Ret_code=18 <)9990 %IF ERRN=52 THEN Ret_code=12 <)10000 & IF ERRN=53 THEN Ret_code=16 )10010  IF ERRN=65 THEN Re,631  FOR J=I TO Buffer <&10632 " PRINT USING "K";Initstr$<10633  NEXT J<"10640  PRINT USING K;"Hm"<10650  Ctl_array(0,2)=1<710660 4 Field_order(No_of_fields)=Last_crt=Buffer 10670  RETURN <$11660 Ttt$=TRIM$(UPC$(Ttt$))<911670 ~ ON POS("NY",Ttt$[1,1])+1 GOTO Prtr,No,Prtr1 <C11680 Prtr1: INPUT "Printer select code, bus address = ?",Hc,Hcbus <11690 A GOTO Sh <011700 No: INPUT "Printer select code = ?",Hc#, ON ERROR GOTO Error <10440  GOSUB Display <10450 2 RETURN <10530 Display:PRINTER IS 16 <10540  PRINT PAGE< 10550  PRINT USING K;"H"<(10560 $ Last_line=Ctl_array(0,1)-1*10570  FOR I=0 TO MIN D!,Dump_form:Hcbus=999 <11570  PRINTER IS 16 <"11580  PRINT PAGE,CHR$(128)<11590 @ PRINT TAB(32),"HARD-COPY OPTIONS",LIN(2),TAB(31),"None (CRT) --4 1",LIN(1),TAB(31),"Internal printer -- 2" 311600 PRINT TAB(31nK,> READ #1;Max_len,Ctl_array(0,0),Ctl_array(0,1),Ctl_array(0,2)<310280 0 IF Mode=1 THEN Ctl_array(0,2)=Max_len <10290 2 RETURN <10370 Get_form:GOSUB Header <%10380 " ON ERROR GOTO Bad_image b10390  REDIM Ctl_array( ," <11120  NEXT K<11130 6 GOTO Common <11210 Clr: FOR J=1 TO Len<111220 . Form_image$(Row)[(Col+J-1)*2;1]=" " <11230  NEXT J<$11240 E Field$(Field_no)=Init$411310 Common: PRINT USING K;"&a0C";Form_ih,ETURN <-13570 * IF LEN(Keys$)=0 THEN Keyservice <13580  Key$=Keys$[1;1] <13590  Keys$=Keys$[2]<)13600 N IF Key$<>Chr255$ THEN Ascii <$13710 Spec_keys:Kkey=NUM(Keys$[1;1])<13720  Key=Kkey MOD 64 13730 , ) THEN H4 <!12310  Temp(I-1)=Temp(J-1) <12320 2 GOTO Dn <12330 H4: Temp(I-1)=Rec <12340 ( GOTO H0 <12420 Done: R=0 < 12430  Temp$=RPT$(" ",80)<'12440 $ FOR I=0 TO No_of_fields-1 12450   |)<13190 Nxt: GOSUB Get_fld <513200 2 IF Vec_end OR (Ret_code>0) THEN RETURN <13210  FOR I=1 TO Len<C13220 @ Field$(Field_no)[I;1]=Form_image$(Row)[(Col+I-1)*2;1] <13230  NEXT I<13240  GOTO Nxt13330 KeQ?, R=No_of_fields<12150 H0: IF L>1 THEN H1<12160  Rec=Temp(R-1) <12170  Temp(R-1)=Temp(0) <12180  R=R-1 <12190  IF R>1 THEN H2<12200  Temp(0)=Rec <12210  GOTO Done 12220 H1: L= O,BUSING K;Con$[Hilight+Ins*(-1*NOT (Hilight MOD 2)+Hilight MOD 2);1]<13020  FOR I=1 TO 75 <13021  WAIT 1<13030  NEXT I<W13040 Y PRINT USING K;Coff$[Hilight+Ins*(-1*NOT (Hilight MOD 2)+Hilight MOD 2);1] 13050 ?,";Form_image$(I)<11850  NEXT I<11860  PRINT LIN(5)<11870  PRINTER IS 16 <11880  GOSUB Display <11890 B RETURN <,12000 Other: PRINTER IS Hc,Hcbus,WIDTH(160)<&12010  DISP "SORTING FIELDS." ,600  GOSUB Display <12610 l RETURN <612690 Fill_fields:Typwtr=Done=Ins=Field=Vec_end=Auto=0<12780 X2: GOSUB Get_fld <112790 . IF Ret_code OR Vec_end THEN RETURN <#12800 ' IF NOT Normal THEN X2 =12801 U, Keys$=""<%13800 " IF Key<16 THEN Soft_key <13890  Ins=Ins*(Key=32)<W14170 T PRINT USING K;Coff$[Hilight+Ins*(-1*NOT (Hilight MOD 2)+Hilight MOD 2);1] 14180 3 IF Key<30 THEN ON Key-15 GOTO Keyloop,Keyloop,Keyl, Num=Temp(I) <12460  Row=Num DIV 10000 <'12470 $ Col=Num MOD 10000 DIV 100 <12480 D Len=Num MOD 100 <%12490 Inc_row:IF R=Row THEN Right_row <12500  PRINT Temp$ < 12510  Temp$=RPT$(" ",80)12520  !,yservice:Keys$=KBD$ <*13400 d IF LEN(Keys$)=0 THEN RETURN <:13530 Keyloop:Hilight=NUM(Form_image$(Row)[Col*2-1;1])-127<W13540 T PRINT USING K;Coff$[Hilight+Ins*(-1*NOT (Hilight MOD 2)+Hilight MOD 2);1] "13560  IF Done THEN R,L-1 <12230 D Rec=Temp(L-1) <12240 H2: J=L <12250 Dn: I=J <12260  J=J*2 <12270  IF J>R THEN H4<12280  IF J=R THEN H3<-12290 C IF Temp(J-1)=Temp(J-1 , FOR I=1 TO 75 <13051  WAIT 1<13060  NEXT I<#13070 IF NOT Done THEN Wait <13160  OFF KBD <W13170 T PRINT USING K;Coff$[Hilight+Ins*(-1*NOT (Hilight MOD 2)+Hilight MOD 2);1] <13180 Field=0  <%12020 " FOR I=1 TO No_of_fields <S12100 P Temp(I-1)=10000*Ctl_array(I,0)+100*Ctl_array(I,1)+ABS(Ctl_array(I,2)) <12110  NEXT I<)12120 & IF No_of_fields<2 THEN Done <%12130 ' L=INT(No_of_fields/2)+1 12140  ?,1 Lines=(Ctl_array(Field_order(Fld),2)+79) DIV 80 <:12810 6 Hilight=NUM(Form_image$(Row)[Col*2-1;1])-127<12820  GOSUB Set_cursor<12830  Chr255$=CHR$(255) <*12900 5 ON KBD GOSUB Keyservice ,ALLV13010 Wait: PRINT ; <11780 8 IF Op=2 THEN Hc=0 <11790 Com: PRINT PAGE<11800  Ctl_array(0,2)=0<&11810 " IF Hcbus<>999 THEN Other<&11820 " PRINTER IS Hc,WIDTH(160)<&11830 " FOR I=0 TO No_of_lines-1,11840  PRINT USING "K,R=R+1 <12530 2 GOTO Inc_row<12540 Right_row: ! <12550  FOR K=1 TO Len<>12560 : Temp$[Col+K-1;1]=Form_image$(Row)[(Col+K-1)*2;1]<12570  NEXT K<12580  NEXT I< 12590  PRINT Temp$,LIN(5)12 ),(Field) <15450  GOSUB Testparm<!15460  IF Len<0 THEN Count <15470  Len=ABS(Len)< 15480  Last_col=Col+Len-1<15490  Field=Field+1 <15500  GOSUB Set_cursor<&15510  IF NOT Auto THEN Pcursort=,eyloop<%16440 Delchr: FOR J=Col TO Last_col-1 <?16450 < Form_image$(Row)[J*2;1]=Form_image$(Row)[J*2+2;1] <16460  NEXT J<016470 , Form_image$(Row)[Last_col*2;1]=" "T16480 + PRINT USING "#,K,K,K,DD,K";"&a0C";Form_im <.15220 * IF NOT Normal OR Vec_end THEN X1<:15230 6 Hilight=NUM(Form_image$(Row)[Col*2-1;1])-127<15240  GOSUB Set_cursor<15250 ] GOTO Pcursor<15370 Autoshifttab:Auto=1 <15380 Shifttab:IF (Field=1) AND (Field_order(1,ITER ON <16090 V GOTO T2 <16100 T1: TYPEWRITER OFF<16110 T2: Typwtr=NOT Typwtr <16120 : GOTO Keyloop< 16220 Clrline:Col=Last_col-Len+1<+16230 C PRINT USING K;"&a";Col-1;"C" $16310 Clrtoend:FOR J=Col TO Last,R0 R PRINT USING K;Con$[Hilight+Ins*(-1*NOT (Hilight MOD 2)+Hilight MOD 2);1]<14850 @ GOTO Keyloop<%14940 Soft_key:Ret_code=-1-Key MOD 16 <14950  Done=1<14960 * RETURN <15040 Cont: Done=115050  Field= ~+, IF Col>Last_col THEN Tab1 <[15800 X PRINT USING K;"C";Con$[Hilight+Ins*(-1*NOT (Hilight MOD 2)+Hilight MOD 2);1] <15810 B GOTO Keyloop<'15890 Home: IF Kkey=92 THEN Shifthome < 15900 # Col=Last_col-Len+1q15910 #,_col TO Col+1 STEP -1 <?14580 < Form_image$(Row)[J*2;1]=Form_image$(Row)[J*2-2;1] <14590  NEXT J<,14600 ( Form_image$(Row)[Col*2;1]=Key$<R14610 I PRINT USING "#,K,K,K,DD,K";"&a0C";Form_image$(Row);"&a-1r";Col;"C"  <15520  Col=Last_col<:15530 Hilight=NUM(Form_image$(Row)[Col*2-1;1])-127<f15540 Pcursor:PRINT USING K;"&a";Col-1;"C";Con$[Hilight+Ins*(-1*NOT (Hilight MOD 2)+Hilight MOD 2);1]<15550  Auto=0<15560  GOTO Keyloopa,Toop,Cont,Tab,Keyloop,Leftarrow,Rightarrow,Keyloop,Keyloop,Keyloop,Keyloop,Home,Clear<u14190 r IF Key<40 THEN ON Key-29 GOTO Clrtoend,Delchr,Inschr,Keyloop,Keyloop,Keyloop,Tab,Keyloop,Keyloop,Typwtr Y14200  IF (Key>49) AND (Key<54) THEo,)=0) THEN Cont<15390 8 Field=Field-1 <15400 Count: Field=Field-1 <(15410 $ IF Field>=0 THEN New_field<"15420 T Field=No_of_fields-1<215430 New_field:IF Field_order(Field)<1 THEN Count)15440  Field_no=Field_orderN,_col<16320  PRINT USING K;" " <)16330 & Form_image$(Row)[J*2;1]=" " <16340  NEXT J<q16350 n PRINT USING "#,K,DD,K,K";"&a";Col-1;"C";Con$[Hilight+Ins*(-1*NOT (Hilight MOD 2)+Hilight MOD 2);1] 16360  GOTO K,0 <15060 RETURN <'15170 Tab: IF Kkey=100 THEN Shifttab <;15180 Tab1: IF (Field=1) AND (Field_order(1)=0) THEN Cont <15190 X1: GOSUB Get_fld <&15200 " IF Ret_code THEN RETURN <%15210  IF Vec_end THEN Field=0  \s,e PRINT USING "#,K,DD,K,K";"&a";Col-1;"C";Con$[Hilight+Ins*(-1*NOT (Hilight MOD 2)+Hilight MOD 2);1] <15920 8 GOTO Keyloop<15990 Stop: Ret_code=Done=1 <16000 6 RETURN <16070 Typwtr: IF Typwtr THEN T1 16080  TYPEWR <14620 F GOTO Comm <.14710 No_insert:Form_image$(Row)[Col*2;1]=Key$< 14720 8 PRINT USING K;Key$<14810 Comm: Col=Col+1 <'14820 $ IF Col>Last_col THEN Tab1 <:14830 5 Hilight=NUM(Form_image$(Row)[Col*2-1;1])-127V1484 e'<15660 Leftarrow:Col=Col-1 <415670 0 IF Col<=Last_col-Len THEN Autoshifttab<[15680 X PRINT USING K;"D";Con$[Hilight+Ins*(-1*NOT (Hilight MOD 2)+Hilight MOD 2);1] <15690 9 GOTO Keyloop<15780 Rightarrow:Col=Col+1'15790 =,/N ON Key-49 GOTO Leftarrow,Keyloop,Stop,Clrline <14270 6 GOTO Keyloop<14390 Ascii: Key=NUM(Key$) <A14470 > IF (Key<32) OR (Key>167) AND (Key<173) THEN Keyloop <'14560 $ IF NOT Ins THEN No_insert -14570 FOR J=LastC,6w<0) OR (Row>=No_of_lines) THEN Ret_code=3000+Field_no<@17190 < IF (Col<1) OR (Col>80) THEN Ret_code=2000+Field_no<D17200 @ IF (Len=0) OR (Len+Col>81) THEN Ret_code=4000+Field_no<17210 ) RETURN *17330 Set_cursor:IF Row=Oldr qxqyot"!DooON KBD GOTO ll$&2!l;ltON KBD GOSUB ol'2oON KBD CALL ll12oclW#3!l "Z2oON KBD l>oD13d!0du wl/Dsl !2272#2#bkQ;`/;a d10$10qplqp!,o_of_fields THEN Out<)16980 & Field_no=Field_order(Field) <$16990 IF Field_no=0 THEN Out<17000  GOSUB Testparm<17010  Normal=(Len>0)<17020  Len=ABS(Len)< 17030 # Last_col=Col+Len-117040  99,+G K;"&a";Buffer-Last_crt+Row;"r";Col-1;"C" <:17780 6 Hilight=NUM(Form_image$(Row)[Col*2-1;1])-127<17790  Oldrow=Row<%17791 " Row=Buffer-Last_crt+Row <17800  RETURN <17810 ! SUBEND>17770 Nomove: PRINT USIN', IF Ret_code THEN RETURN <%16700 " IF Vec_end THEN Field=0 <.16710 * IF NOT Normal OR Vec_end THEN X3<:16720 6 Hilight=NUM(Form_image$(Row)[Col*2-1;1])-127<16730  GOSUB Set_cursor<16740  GOTO Keyloop1682 V,t-1 <17490 V GOTO Nomove <;17560 Roll_down:IF RowLast_crt THEN Addlines <M17360 J PRINT USING K;"&a";MIN(Buffer+Lines-Last_crt+Row,Last_crt);"R" 17370  !!0n23 P^-Dl<32P^lo G%lolo% ',ALL' EXPECTED qOFF KBD!0"D lQ;`/;a<!0 8t ? 222 2 b2t?[ [!["[#[$[%[&['[([)[-llTr^, Field=Field+1 <17050 . RETURN <17060 Out: Vec_end=1 <17070 > RETURN <(17150 Testparm:Row=Ctl_array(Field_no,0)<'17160 $ Col=Ctl_array(Field_no,1) <'17170 $ Len=Ctl_array(Field_no,2) J17180  IF (Ro _qlYONKBD REV.C 05-16-79}}l~n}S$!0  #lNlllllClHlJlNFl7D;# "lPl<0 !4('4% m;l# !lo "lo "lo$ (l977l("3H-^!0 "2!"DDl0qhqhouA %,0 Shifthome:Col=Last_col<q16830 n PRINT USING "#,K,DD,K,K";"&a";Col-1;"C";Con$[Hilight+Ins*(-1*NOT (Hilight MOD 2)+Hilight MOD 2);1] <16840 . GOTO Keyloop<16950 Get_fld:Ins=0 <16960  Vec_end=0 ,16970 IF Field=N +,ow-Lines)*(Row>Lines) STEP -1 <?17670 < PRINT USING K;"HL";Form_image$(Last_crt-Buffer) <17680  NEXT Last_crt <317690 0 IF Row<=Lines THEN PRINT USING K;"H" <!17700 1 Last_crt=Last_crt+1 C17770 Nomove: PRINT USIN^),age$(Row);"&a-1r";Col-1;"C"<16490 4 GOTO Keyloop<16560 Inschr: Ins=NOT Ins <16570 . GOTO Keyloop<16650 Clear: Flag=1< 16660  GOSUB Clear_fields<16670 9 Field=0 <16680 X3: GOSUB Get_fld &16690 , GOTO Nomove <p17450 Addlines:FOR Last_crt=Last_crt+1 TO (Row+Lines)*(Row+20=No_of_lines)<617460 2 PRINT USING K;"F";Form_image$(Last_crt)<17470  NEXT Last_crt !17480  Last_crt=Last_crXs#0ul#Kdl #Ul #od@n $3dl Uu6 #: &(6n X ӿ($BB +@\ )2Bl2oBS3S##D|񀷬 #"\"@^<2#0ZBvqZP]Zq"} $llD?lD="lD."ZEwl]qZTHZq} #lll&l$l ~XhFORM FILE IS CORRUPT. W"p/#e({4Wc4Wp44/p/p9#+Xh&IMPROPER MASS STORAGE UNIT SPECIFIER. W"p/#e#{4Wc4Wp44/p/p9#+XhCARTRIDGE OUT OR DOOR OPEN. W"p/#e&{4Wc4Wp44/p/p9#+Xh!MASS STORAGE DEVICE NOT PRESENT. /W "l#l4TOPS REV.A 01/30/80 OPTAYw%0 l3$38|5qP.l#e  XgWgp/#e* {Vmg4?p/|#+4K>,JMXhHFORM NAME MAY CONTAIN A MAXIMUM OF 5 CHARACTER. PRESS 'CONT' TO RECOVER.#eH!R~S T&lWp/c#e 3llTrs#0ul#Kdl #Ul #od@n $3dl Uu6 #: &(6n X ӿ($BB +@\ )2Bl2oBS3S##D|񀷬 #"\"@^<2#0ZBvqZP]Zq"} $llD?lD="lD."ZEwl]qZTHZq} #l 0 #Pnl(+}o #P1% (!"F8fl#v~(#AXhKEYL#e XhUSEFMe#uɀ#e!%=& &#&&&*& &#&*& &#&&P&*& & &#&*"&&P#eIgU&#e~,1|5|9| 1qhouAqxqyot"!DooON KBD GOTO ll$&2!l;ltON KBD GOSUB ol'2oON KBD CALL ll12oclW#3!l "Z2oWON KBD l>oD13d!0du wl/Dsl !2272#2#bkQ;`/;a d10$10 <!0 8t ? 222 2 b2t?[ [!["[#[$[%[&['[([)[-llRrs#0ul#Idl #Ul #od>n $3dl Uu6 #: &(6n X ӿ($BB +@\ )2Bl2oBS3S#D񀷮 #"\"B^<2#0Z o"l#l4TOPS REV.A 01/30/80 OPTAYw%0 l3$38|5G #DB&C3SD '0 VZ#0=s/'0qH,2W U VP2mV2k##0Pu 0} #Pnl(+}o #P1% (!"C7l  lo$ (l977l("3H-^4!0 "2!"DDl0qhqhouAqxqyot"!Doo`ON KBD GOTO ll$&2!l;ltnON KBD GOSUB ol'2oON KBD CALL ll12oclW#3!l "Z2oON KBD   a+fr#e{4Kl#+ {Tll4Kp/l#+!JMXh1FORM CONTAINS NO FIELDS. PRESS 'CONT' TO RECOVER.R#eK!~SLa+T&lT+llT+lrT+lfp/p4p9p>#eV~, {4Wr#+! {4W#+ ll&l$lll/l rAo5} % 2<"fguD?llD;l#Ue3SZuD "VQ3S"]HD PG #DB&C3SD '0 VZ#0=s/'0qH,2W U VP2mV2k##0Pu 0} #Pnl(+}o #P1% (!"C7l j=|A|E|IJMXh UNDEFINED KEY*#eKJUM#e~SY!  ,IE#uMX]#ey#e XhWcp/#e2SOXhPENTER THE NAME (1-5 CHARS):MASS STORAGE UNIT SPECIFIER FOR THE FORM. STOP #uTـc#e Xc 'qplqp!!0n23 P^-Dl<32P^lo G%lolo% ',ALL' EXPECTED qOFF KBD!0"D lQ;`/;a<!0 8t ? 222 2 b2t?[ [!["[#[$[%[&['[([)[- BvqZP]Zq"} $llDoD13d!0du wl/Dsl !2272#2#bkQ;`/;a d10$10qplqp!!0n23 P^-Dl<32P^lo G%lolo% ',ALL' EXPECTED q.OFF KBD!0"D lQ;`/;a   OR OPEN.XXp/WXp4#e<){4Wc4Wp44/p/p9#+Xh! MASS STORAGE DEVICE NOT PRESENT./XXp/WXp4#eF+{4Wc4Wp44/p/p9#+Xh% MASS STORAGE MEDIUM NOT INITIALIZED.XXXp/WXp4#ePXh PRESS 'CONT' TO RECOVER.MXXp/WXp4#eZJMTـX#e  e&F@F@RF@F@F@F@F@F@F@SF@F@X&PF@V&pGF@eP3A1 *  . a{ #e ~.%=0%2'$#q%U*  !UQaeea`V*K`JMXh UNDEFINED KEY$#ejJU#eta+f#e~ !UQ K{4W$#+!  XhERROR: WXp/#e{U#+Xh RET_CODE=XXp/UƀXp4p9WXp>#e {c4Wp/j#+Xh MEDIUM OVERFLOW.XX  UNDEFINED. W"p/#e{4Wc4Wp44/p/p9#+XhIMPROPER FILE TYPE. W"p/#eXhPRESS 'CONT' TO RECOVER.X"p/W"p4#e(K2JMTـ"#e< XhW"p/#eF!P~StErrsXB7Form_imageR8Field_orderB5FieldT7Form_info@4  ~怳 X{49#+` b{4Kˀ#+ lJMXhCREATING THE DATA FILE. #e v6ހ؀~#e  _6ހ$#2U#e TE?6,p/6ހp4#e 2-؀2-p/6o?2w$p92-p4p>6ހpC#e `U  Tـ#uU#uU#e  GU$#2Tـ#e  _6ހ$#2U >24Wp94/p4p>#+~Q6ށ~#e!22-p/?Q*QYe*QYe!~X6ށÀ~#eb _6ށƀ$#2U#elT&\Xp/Vmp47p96ށp>#ev`U{49#+!2'$Q9JMXhSTORING DATA.#e  6JMXh!FORM CONTAINS NO NORMAL FIELDS.q#e @JU#e J` Xh:VC p/6ހp4#e  XhWp/#e {U#+U(UJ p/Wp4#e {U#+2'$U.$p/UJ p4W p9#e ~(#A Xh$U7$UJ p4Xp/p9Xp>WpC#e  GU$#2Tـ d XhWXp/#en!x{4W#+` {c4_p/j#+(JMXh?COPY FORM FILE TO ANOTHER MASS STORAGE DEVICE AND PRESS 'CONT'./#e!` Y{49#+a+f#e {U#+a+f#e!JMXhRE-DISPLAYING THE FORM#e a+f #y&*7%2'$#q%U*#y&*E%U#uU?#q&*L%U*#y&*X%UR#y#e )%=\%U$#iU#q%U#y&*a%U$#iU#q%U#y&*i%U#q&*q%U#q#e XxXh iXp/p4Xp9RWLp>#e  T&0~Wp/ #e  T+E~~6p/#e  T+E~$6p/#e  p/WXp4#e"{4Wpc4Wp4v4/p/p9#+Xh IMPROPER FILE NAME.XXp/WXp4#e"{4W|c4Wp44/p/p9#+Xh IMPROPER FILE TYPE.XXp/WXp4#e({4W#+Xh FORM FILE IS CORRUPT.XXp/WXp4#e2&{4Wc4Wp4R4/p/p9#+Xh CARTRIDGE OUT OR DO DispF@uStartmtKey0stKey1ytKey2tKey3tKey4tKey5tKey60vRestarttKey7f@4Name@5Name1b&D4Name&`usOkvUseformP6Ret_codetCont& zForm_subroutin  #e  F0 U$#uU#e `U ~(#A z6ހ$#e a+f$#e ~ 6ހ?#e a+f?#e ! ~  !UQ   !UQ%*  /!UQ39* ?~*  C!UQG** M~Q U~Y ] H"p/#e({4Wc4Wp44/p/p9#+Xh%MASS STORAGE MEDIUM NOT INITIALIZED. "W"p/#e{4W&c4Wp44/p/p9#+XhIMPROPER FILE NAME. W"p/#e{4Wc4Wp44/p/p9#+XhIMPROPER FILE TYPE. W"p/#e !{4Wc4Wp44/p/p9#+XhFILE NAME IS :#e ~ K !JMXh1DATA FILE MAY CONTAIN A MAXIMUM OF 32767 RECORDS.#e JU#e ~(#A OXh,HOW MANY TIMES DO YOU WISH TO FILL THE FORM?#uT#e  696ހp/#e &{4Qˀ~#+ 0K :JMXhILLEGAL VALUE.#e DJU#e N 0E\q#e {4K~#+~怕{U#+~ a+f#e" !UQ r6ހ큰#e|JMXh#e~ a+f#e6ށ$#e a+fހ0E\q#e {4K~#+~怕{24Wp/24Wp94/p4p>#+~Y{24Wp/ Q  T+E~?6p/#e a+f?0E\q#e {U#+~怕 x _6ހ~#22'$#e T&7T&0Wp/p4#e `U 6ހ~#e  _6ހ$#2U#e {TE?4Kp/~#+6ހ$#e 2'$T+ip/6p4#e `U "{U#+ ,K  $#eH6ހ?#eR6ށ~#e\}U$#Af-JMXhGFILL IN THOSE FIELDS THAT YOU WISH TO MATCH. PRESS 'CONT' WHEN READY.#ep a+fހ0Eaq#ez {4K~#+~怕{4?~#+6ށÀ~#e _6ށƀ$#2U#eT&aXp/Vmp47 BDUMP FORM| HELP | EXIT Wp/p4#e<5T&$XhPSTORE DATA| |  |   X|DUMP FORM| HELP | EXIT Wp/p4#eF JMT&#eP`vDisp_sk2P3IF@ F@2B3A&&  &0 r~KXhEND OF DATA FILE ENCOUNTERED.eWXp/#e{U#+XhSEARCH IS COMPLETE..WXp/#e!{494"p/#+Xh!NO MATCHING RECORDS WERE FOUND.WXp/#eJMTـX#eJU#eJMXhRE-DISPLAYING THE FORM.C#e _ xF@SF@F@e&F@F@F@F@F@tHelp&0 uSearch2P4Flag /tStop2P3JP3K&p tFull tNext2P7Searching uEmpty&vTest_recF@ P5Found tFi ~#+~怕La+f#eV~6ހ~#e}U$#A 2-$6ހp/#e F U$#uU#e {2$ p/4_p4#+|?#eK(JMXhDATA FILE IS FULL.#e2 {4W큰#+6ހ$#e<JU#eF !UQ6ހ~#e trf uStartvUseform2P6Ret_codeuError2P3I2P4LenuNflds02P4Pos2@3Ms1uCreate&P2@4NametContuToobigPTttsOk2vpPNobytes&@2P4RecuLevel12P5StatevDisp_s F0U$#uU#mL\#e _6ށÀ~#22'$#eT&0T&7Wp/p4#e`UJMXhRE-DISPLAYING THE FORM.#e a+f0E\q#e {4K~#+~怕 !2'$Q9*eJMXhRE-DISPLAYING THE FORM.e#e4 _6ށÀ~#22'$ p96ށp>#e`U{49#+a+f?#e6ހ~#e~9B _6ހ$#2U#eL"{T&aXp/XhU]p4p9T&aXpCT&\XpMU]pHpR4"p>pW#+9V`U`6ށ$#ej a+f0E\i#et {4K~#+~怕~ {4K#+~Ga+ C(Da{#e IE#uMX#uMXhFILLFORM#e IEU #uMXhThe available commands are: #e !UQ 0IEU #uMXhEFILL FORM Provide a cursor and active keyboard for filling fields.I#e (IEU"#uMXh7RECA 6ށÀ~#22'$#eT&0T&7Wp/p4#e&`U0 a+f0E\q#e: {4K~#+~怕D~ %F0 U$#uU#e _6ހ~#22'$#eT&0T&7Wp/p4#e`U a+f0E\q#e {4K~#+~怕~9>36ށ ll&`#e*f*a{#e %=%U #q%U#y#e(5T&XhPFILL FORM|RECALL DATA| SEARCH | a DISPLAY|DUMP FORM| HELP | EXIT Wp/p4#e25T&XhPEDIT FORM| DELETE | CONTINUE |   | 6ށ׀~#e}U$#A 92-$6ހp/#e F U$#uU#e {2$ p/4_p4?#+9 FU$#uU#mL\#e6ހ?#eJMXhRECALLING DATA.L#e@{U#+J a+f0E\i#eT {4K~#+~怕^ {4K#+~Gha+f?#e k;tIdle+uLevel2CtKey0 xFill_fields wFill_form 7uStoreNtKey1 xRecall_data 7uDeleteuUndefYtKey2 {vFind_rec vNext_recdtKey3itKey4 ZvDisplayttKey5 /tDumpytKey6 LtHelp~tKey7tExit uClearF@dF@ #e>T&0T&7Wp/p4#eH`UR a+f0E\q#e\ {4K~#+~怕f~Qa+fɀ0E\i#e {4K~#+~怕a+f#e{U#+~ ~.GJMXhRE-DISPLAYING THE FORM.e#e8 a+f0E\q#eB {4K f?#e~zForm_subroutine`@7Form_nameeP7No_fieldsjP6No_linesoP6Max_len&ftB7Form_imageNB8Form_image1& &(T7Form_info)I@6InitstrF@)@4Disp)B5Field-B8Search_item0qR8Field_order1R7Tab_orde LL DATA Recall data from a previously filled form. #e /IEU"#uMXhESEARCH Provide a blank form to enter search items; recall data.s#e IEU"#uMXh!DISPLAY Re-display the form. #e" *IEU"#uMXh;DUMP FORM Print a hard-co   Xh8EXIT Terminate the search and return to level 1.#e JMXhPRESS 'CONT' TO CONTINUE.a#e ` +IEU #uMXh;STORE FORM Store current field contents in the data file.e#e IEU"#uMXh!DISPLAY Re-display the form.d#e   E. #eJ `T 0IEU #uMXhEEDIT FORM Provide a cursor and active keyboard for editing fields..#e^ )IEU"#uMXh:DELETE Delete the current record from the data file.#eh !IEU"#uMXh*CONTINUE Continue searching data file.#e    A:<610 ! FORMS UTILITY, 09845-10174, REV B, 9-01-80c>  n *IEU"#uMXh;DUMP FORM Print a hard-copy listing of the current form.e#e 0IEU"#uMXhHHELP X List a brief explanation of each of the available commands.#e $IEU"#uMXh0EXIT * Terminate the form editing session.#e    r IEU"#uMXh!DISPLAY Re-display the form.a#e| *IEU"#uMXh;DUMP FORM Print a hard-copy listing of the current form.e#e 0IEU"#uMXhHHELP List a brief explanation of each of the available commands.#e (IEU"#uM                        G               Y     U               K     c               }     q               o                                             +               5     9               '                      N                     !P!!!!! !! !! !!!!! !! !!!!!! !! !! !!!!! !! """""" "" "" """"" "" "\""""" "" "" """"" "" #B##### ## ## ##### ## ###### ## ## ##### ## $$$$$$ $$ $$ $$$$$ $$ $j$$$$$ $$ $$ $$$$$ $$ %t%%%%% %% %% %%%%% %% %%%%%% %% %% %%%%% %% &&&&&& && && &&&&& && &x&&&&& && && &&&&& && 'f''''' '' '' ''''' '' '''''' '' '' ''''' '' (((((( (( (( ((((( (( (((((( (( (( ((((( (( )))))) )) )) ))))) )) )))))) )) )) ))))) )) ****** ** ** ***** ** ****** ** ** ***** ** + +++++ ++ ++ +++++ ++ ++++++ ++ ++ +++++ ++ ,,,,,, ,, ,, ,,,,, ,, ,",,,,, ,, ,, ,,,,, ,, -<----- -- -- ----- -- ------ -- -- ----- -- ...... .. .. ..... .. .0..... .. .. ..... .. /.///// // // ///// // ////// // // ///// // 000000 00 00 00000 00 0I00000 00 00 00000 00 1W11111 11 11 11111 11 111111 11 11 11111 11 222222 22 22 22222 22 2[22222 22 22 22222 22 3E33333 33 33 33333 33 333333 33 33 33333 33 444444 44 44 44444 44 4m44444 44 44 44444 44 5s55555 55 55 55555 55 555555 55 55 55555 55 666666 66 66 66666 66 666666 66 66 66666 66 7a77777 77 77 77777 77 777777 77 77 77777 77 888888 88 88 88888 88 888888 88 88 88888 88 999999 99 99 99999 99 999999 99 99 99999 99 :::::: :: :: ::::: :: :::::: :: :: ::::: :: ; ;;;;; ;; ;; ;;;;; ;; ;;;;;; ;; ;; ;;;;; ;; <<<<<< << << <<<<< << <%<<<<< << << <<<<< << =;===== == == ===== == ====== == == ===== == >>>>>> >> >> >>>>> >> >7>>>>> >> >> >>>>> >> ?)????? ?? ?? ????? ?? ?????? ?? ?? ????? ?? @@@@@@ @@ @@ @@@@@ @@ @r@@@@@ @@ @@ @@@@@ @@ AlAAAAA AA AA AAAAA AA AAAAAA AA AA AAAAA AA BBBBBB BB BB BBBBB BB B`BBBBB BB BB BBBBB BB C~CCCCC CC CC CCCCC CC CCCCCC CC CC CCCCC CC DDDDDD DD DD DDDDD DD DVDDDDD DD DD DDDDD DD E^EEEEEE EE EE EEEEE EE FEEEEE EE EE EEEEE EE FDFFFFF FF FF FFFFF FF GZFFFFF FF FF FFFFF FF GGGGGG GG GG GGGGG GG HGGGGG GG GG GGGGG GG H:HHHHH HH HH HHHHH HH I$HHHHH HH HH HHHHH HH IIIIII II II IIIII II JIIIII II II IIIII II J(JJJJJ JJ JJ JJJJJ JJ K6JJJJJ JJ JJ JJJJJ JJ KKKKKK KK KK KKKKK KK LKKKKK KK KK KKKKK KK LLLLLL LL LL LLLLL LL MLLLLL LL LL LLLLL LL  MMMMMMMMMM  NNNNNNNNNN  NxNNNNNNNNN OOc^Od^Oe^Of^Og^Oh^Oi^Oj^Ok^Ol^Om^On^Oo^Op^Oa *~ObP22xOOc^Od^Oe^Of^Og^Oh^Oi^Oj^Ok^Ol^Om^On^Oo^Op^Oa *~ObP22xP6PO?$TRACEBACK (tm) $OPER = NOT RECORDED$STATION = 049335114$WORKORDER = NOT RECORDED$SYSTEM = V 3.0.01B$PRODUCT = $MEDIA TYPE = $WINDOW = C,60%, C,65%$TAA = NOT USED$THRESHOLD = C,40%, C,35%$RETRIES = 1, 20$PRE/WRC = SIDE 0: T:12,0ns,0ns,25ns,16.92mA;T:24,0ns,0ns,25ns,16.83mA;T:35,0ns,25ns,25ns,16.74mA;T:43,0ns,25ns,50ns,16.65mA;T:54,0ns,0ns,25ns,15.92mA;T:68,0ns,25ns,25ns,15.20mA;T:75,0ns,25ns,25ns,14.47mA;T:78,0ns,25ns,50ns,14.11mA;T:80,0ns,25ns,50ns,13.66mA; SIDE 1: T:12,0ns,0ns,25ns,16.92mA;T:24,0ns,0ns,25ns,16.83mA;T:35,0ns,25ns,25ns,16.74mA;T:43,0ns,25ns,50ns,16.65mA;T:54,0ns,0ns,25ns,15.92mA;T:64,0ns,25ns,50ns,15.20mA;T:75,0ns,25ns,50ns,14.47mA;T:78,0ns,50ns,50ns,14.11mA;T:80,0ns,50ns,50ns,13.66mA;$DRIVESN = 11230022$LOADERSN = 049335114$BPSN = 530151-071$CPUSN = 530154-008$FCSN = 530135-028$DRVBDSN = 530128-62$TSTRING = TraceBack (tm) Copyright (c) 1992 Trace Mountain Products Inc., ALL RIGHTS RESERVED$DUP TIME = Tue Dec 20 18:44:31 1994$SN = NOT SERIALIZED$DIS+K#/JOB# = 342/999999$DRVLIFE = 145590$$   {PPR=$TRACEBACK (tm) $OPER = NOT RECORDED$STATION = 049334921$WORKORDER = NOT RECORDED$SYSTEM = V 3.0.01B$PRODUCT = $MEDIA TYPE = $WINDOW = C,60%, C,65%$TAA = NOT USED$THRESHOLD = C,40%, C,35%$RETRIES = 1, 20$PRE/WRC = SIDE 0: T:12,0ns,0ns,25ns,16.92mA;T:24,0ns,0ns,25ns,16.83mA;T:35,0ns,25ns,25ns,16.74mA;T:43,0ns,25ns,50ns,16.65mA;T:54,0ns,0ns,25ns,15.92mA;T:68,0ns,25ns,25ns,15.20mA;T:75,0ns,25ns,25ns,14.47mA;T:78,0ns,25ns,50ns,14.11mA;T:80,0ns,25ns,50ns,13.66mA; SIDE 1: T:12,0ns,0ns,25ns,16.92mA;T:24,0ns,0ns,25ns,16.83mA;T:35,0ns,25ns,25ns,16.74mA;T:43,0ns,25ns,50ns,16.65mA;T:54,0ns,0ns,25ns,15.92mA;T:64,0ns,25ns,50ns,15.20mA;T:75,0ns,25ns,50ns,14.47mA;T:78,0ns,50ns,50ns,14.11mA;T:80,0ns,50ns,50ns,13.66mA;$DRIVESN = 11290010$LOADERSN = 049334921$BPSN = 530151-058$CPUSN = 530154-036$FCSN = 720190-027$DRVBDSN = 530213-90$TSTRING = TraceBack (tm) Copyright (c) 1992 Trace Mountain Products Inc., ALL RIGHTS RESERVED$DUP TIME = Tue Dec 20 18:50:52 1994$SN = NOT SERIALIZED$DIS*K#/JOB# = 372/999999$DRVLIFE = 91060$$  P