' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( `[ԮҠ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`7(SR$,34):RC$(BL$,30)"N ":10140~&'TLTL((SR$,31,3)):KY$(RA$,20)"0":RC$(BL$,38):!GTREC1,KY$,RC$:(11)40ij&'R$(CI)RC$(SR$,31,3):(RC$,31,1)"N"VC0(R$(JJ),30,1)"U"(RC$,31,1)"6"10150''C$(RC$,31,1):KC$(KY$,20)C$:!GTNA10:R$(DA),C$(DA),CC$(DA,20),SS(DA)0%'250[%'CI1NA:UF$U6$:240:SR$UD$:EF0ij%'KA$(SR$,20):370:KA$KA$"0":RA$(BL$,38):!GTREC1,KA$,RA$:(11)40İ13000%'(11)40ZZ$"E"MS$"CANCELLED":)&'(11)40ZZ$"C"SR$(SR$,30)"000"NIT:QT$(34):CR$(13):TC0:D$(4):OC$"<>=#LG":NG$"+-*/"q$.'SW40:CR$(13):MM$"MASS UPDATE":MS$"COMPLETE"$8'I1254:BL$BL$" ":NL$NL$(0):$t'U6$"SYS.MAINT":UU$S7$:UF$U6$:210$y'UF$U6$:240:11000'%~'UF$U6$:240:NA$UD$:NA(NA$):DADISK TO BE UPDATED INTO":X12:Y5:100c#2#M$"SLOT "(DB$,1)" DRIVE "(DB$,3,1):X14:Y13:100#7#M$"- HIT ANY KEY WHEN READY - ":X17:Y7:100#<#Z$"":Z$:Z$""9020#F#:!INIT:11000#' *** - INITIALIZE - ***#'!UBUF7:33,40:30000<$'!ID":J12000:J::5"TL70İ240:A$UD$:SR$SR$A$B"EF0ıe"TL140İ240:A$UD$:SR$SR$A$r"EF0ı"TL210İ240:A$UD$:SR$SR$A$"EF0ı"?"(#S81MS$"CANCELLED":30")#M$"PLEASE INSERT YOUR ":X10:Y11:105&#-#M$"DATA D":1090H!8AP$"P"AP$"P":!PUT2,KY$,RC$:900:M$M9$" UPDATED":1090p!=!ADD2,KY$,RC$:M$M9$" ADDED":1090!B150:EF01005!K!LM$"UPDATE IS CANCELLED":X10:Y10:105!QM$"DUE TO INVALID KEY SPECIFICATION":X12:Y5:100"VMS$"CANCELLEDD$(R$(I),24,1)3 RP$(SR$,SP,SL):SLLİ600W SB1RC$RP$(RC$,EB1):1070| EBRLRC$(RC$,SB1)RP$:1070 RC$(RC$,SB1)RP$(RC$,EB1) .SPSPSL:I:VC1İ400 0M9$(BL$,8)KY$(BL$,16)!3ER1ER0:510:M$M9$" CANCELLE,SL):SLLİ6004KY$KY$RP$:SPSPSL:I:KT$KY$ZX10:Y17:M$KY$(BL$,10):100:AP$"P":!GTREC2,KT$,RC$::(11)40(11)43AP$"A":RC$(BL$,RL) IAK1NA:SB((R$(I),26,4)):L((R$(I),21,3)):SL((R$(I),3)):EBSBL1:SL01070 0:M$" PROCESSING KEY ":100:NRC$(BL$,RL):KY$(BL$,KL):C20:C30:C40wEF0:UF$U6$:240:SR$UD$:EF11090SR$"$"EF1:1090TL70İ1500KY$"":SP1:I1AK:SL((R$(I),3)):L((R$(I),21,3)):SL0IAK1:1100RP$(SR$,SPI,1)):IILLPP1:#IILLPP2)G --- DO UPDATE --- M$"UPDATE REPORT FOR "DB$" RELATION":LM((M$)2):LM0M$(BL$,LM)M$150:150:150:M$(BL$,10)"KEY"(BL$,20)"ACTION":150:150120:M$DB$:X0:Y15:100:X10:YgPP2IL:hILER1:%i;kPP3ER1:IL:AlWpPP3IL:ER0:bqER1:wuPP2ER1:IL:}vzPP1ER1:IL:{ *** KRAM ERROR HANDLER ***KE(11):KE0ıPP3:II((RP$,I,1)):LL((LT$,1:9RPLTER0:":ER1:5>RPLTER0:@?ER1:_RI16:OP$(OC$,I,1)ĂIqWOPI:I7:I:z\ER0]I1L:950:OP865,870,875,880,885,890^I:aPP1IL:bPP2IL:ER1:cILER1:dfPP1ER1:IL: RETURN TO MAIN MENU ":100:Z$""4Z$:Z$""750:MZ$"1"AC1:`Z$"2"AC2:oZ$"":750 OP805,810,815,820,825,830%RPLTER0:&ER1:*RPLTER0:+ER1:/RPLTER0:0ER1:4RPLTER0:5ERM$"QUERY DISK (DISK #2) INTO":X14:Y10:100nM$"SLOT "(S3$,3,1)" DRIVE "(S3$,6,1):X16:Y13:100M$"- HIT ANY KEY WHEN READY - ":X19:Y7:100Z$"":Z$:Z$""718X12:Y0:M$"1. RUN ANOTHER QUERY":100!X13:Y0:M$"2.A1(AN$)7AN$(RR$,21,3):AN$"LLL"A20:692EA2(AN$)cA10ANA1:175:YN1ıyA20ANA2:175UF$"":230M$"UPDATE IS "MS$" !":X9:Y10:105:J11000::S81720M$"PLEASE INSERT YOUR":X12:Y12:100.,1)" "X10:Y0:M$"WARNING - NUMBERIC VALUE TOO LARGE":WwDD$"N"RP$(RP$,L):sxDD$"A"RP$(RP$,L): ** CHECK IF CRITERIA IS AFFECTED BY THOSE SELECTED **YN0:C2AN((RR$,2,3)):175:AN$((RR$,2,3)):AN$"LLL"A10:685M$(2)"2. SLOT/DRIVE ... "XS81M$(2)"2. SLOT/DRIVE 6/1":M2$"6/1"S80S92M$(2)"2. SLOT/DRIVE 6/2":M2$"6/2"M$(3)"3. VOLUME ... ":K13:880:K1:880:YY17:M$"":100:RN$:RN$""2030RN$00DSTARTING POSITION":AL$"0030100O00DLENGTH"dNC$(HC$,11)"FOOT.NOTE.":L1$"0030100O00DLINE.#"LP$"66":SS$"2":EE$"2":SP$(20),T$(15)J1350:J:AC0:R20:MM$"REPORT SHELL":120M$(1)"1. SHELL-NAME "(DT$,10)" "&$M9$(XD$,XL):P1PXL1:I:ER0:860cCR$(13):30000:TF$"Y":TL$"Y":SP$"Y":D1$"Y":NP$"Y"I180:DT$DT$".":BL$BL$" ":XD$XD$"X":I:D$(4):SW40:(38373)1SW80HC$"0801000O00DHEADER.":TC$"0020100O00D#.OF.CR'S"-AC$"0030100OKE47KE35ı KE20KE62ıD"KRAM ERROR # ";KE;"OCCURED":JXNT0860I1NT:LN((T$(I),3)):P((T$(I),4,3)):XL((T$(I),3))LNNL0āJNL1LN:150:J:P10:NLLNP2PP11:P20990P20M9$M9$(BL$,P2)&M91EE:150:Im7pX62K:YSW49:M$M$(K):100:zX22:Y0:M$"DETAIL LINE "(I)" IS INVALID":100:X23:Y4:M$"HIT ANY KEY TO CONTINUE":100{Z$"":Z$:Z$""891|ER1:J42:J:TDI:IND1:I: KE(11):KE0KE40KE43KE45KE462)-RM9$M9$(XD$,XL):P1PXL1:P180890eSJ:150:(CC$(I))0āK1(CC$(I)):M9$"":150:KsWI:ER0:\INLSF1:150:IaNF0876fI1NF:F$(F$(I),80):G$(F$(I),2):M9$F$:150:(G$)0āJ1(G$):150:JkI lEE0āI):150:K*NH1830c/K2NH:H$(H$(K),80):T((H$(K),2)):M9$H$:150:T0āI1T:150:Il9K:CI1ND:P10:M9$"":J1(P$(I))3:P((P$(I),((J1)3)1,3))LP2PP11:P20890MXL((L$(I),((J1)3)1,3)):P20M9$M9$(BL$,P982":2(38368))",V"((38369))T.buS6$",S"((38370))",D"((38371))",V"((38372)).luS7$",S"((38374))",D"((38375))",V"((38376)).tuS8(38377):S9(38378).u.}1:(9);(1);(1);"80N";"CNQST.AMAINT - 072982":A"CNQST.AMAINT - 072I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2)h-:uS2$",S"((38358))",D"((38359))",V"((38360))-DuS3$",S"((38361))",D"((38362))",V"((38363))-NuS4$",S"((38364))",D"((38365))",V"((38366)).XuS5$",S"((38367))",D"(",S"((38374))",D"((38375))",V"((38376))O>> MUST BE LESS THAN OR EQUAL TO 254!!":2005 M$"PRIMARY KEY LENGTH: ":XX1::KPS(251K2):I1C(NKPS):I2C(I1KPS):I3C(I2KPS) II1I2I3:JSKC(NS(254(K515)))C(N(5NS)):FRC(((A53SK)38)254):FKC(((A53SK)21)254):FFKFR2:SDIJF K M$"CONQUEST RELATION SIZE ESTIMATOR":X0:Y4:105. M$"E;: i:(38373)1ĺ(12)% j100. n100P (38373)1HC$"Y"ĺD$"PR#0"g HC$"Y"ĺD$"PR#1"o M$ HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3" M$"": A$("......"(M),5):M$(M$" "DT$,70)A$:1507 DC(N(254L))2:K2K3U  *** CNQST.SIZEESTM ***)33,40C C(X)(X)(X(X))N10000X2000Z::(BL$,5)"RUN THE ESTIMATOR AGAIN (Y/N)";:A$:A$"Y"Ĭ_X10:Y10:M$"JUST A MOMENT PLEASE...":105a:D$"RUN CNQST.UTIL";S7$c d:X1:Y1:M$     );(1);(1);"80N";"CNQST.SYSQLIB.GEN.0.A1 - 060982 - 2.0":0",D"((38365))",V"((38366))\XuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))luS7$",S"((38374))",D"((38375))",V"((38376))vuS8(38377):S9(38378)u;}1:(9'I180:BK$BK$" ":DT$DT$".":IAt'!INIT::!UBUF5:D$(4):p0uA$"":I05:A$A$((38352I)):I:S1$A$:uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((38362))",V"((38363))!NuS4$",S"((38364)) RC$"TIE-BACK LIBRARY "(BK$,10)"LUS"((38370))((38371))((38372))g !ADDNQ$,KY$,RC$:D$;"RENAME SLIB.FD,SYS.QLIB.FD,D"BLD$",V"VL$D$;"RENAME SYSLIB,SYS.QLIB,D"BLD$",V"VL$KY$"&LIB#""001"(BK$,6)"0":2000:%K$,3)*!ADDLB$,KY$,RC$:800:KE72ī1700Y KY$"&LIB#""001"(BK$,6)"0":2000| KY$"&LIB#""000"(BK$,6)"0" RC$"TIE-BACK LIBRARY "(BK$,10)"LUS"((38370))((38371))((38372)) 2010: KY$"&LIB#""000"(BK$,6)"0"Q):!GTRECLB$,KY$,RC$:8001KB(LB$):KB$(KB)L!RDRECKB$,KY$,RC$:800_KE45İ3000:VK((KY$,6,3)):VKVK1:VK$(VK):VK$("00"VK$,3):KY$"&LIB#"VK$(BK$,6)"0":2000:RC$(QN$(BK$,30),30)"L""U""S"SL$BLD$("00"VL$,2)(B":[105:X12:Y2:M$"PLEASE ENTER:":110:X14:Y2:M$"QUERY LIBRARY DESCRIPTION ":110dQN$~QN$""(QN$)30900100:1000:3050:KY$"&LIB#""999"(BK$,6)"0":RC$(BK$,40):AC$SL$"/"DR$":""SYS.QLIB"",V"VO$:710LB$(KE(BK$,38):!GTRECRF$,KY$,RC$:8009v!ADDNB$,KY$,RC$:800T!RDRECRF$,KY$,RC$:800pKE43İ900:::4000:y630!INIT::!CREBASECB$:800:!ACCESSAC$:800: KE(11):KE20KE40KE43KE72KE45ı*::"KRAM ERROR #";KE;" OCCURED":""SYSLIB"",V"VL$",40,15,0":700: ]VO$((38372)) bAC$QS$"/"DR$":""SYS.QLIB.FD"",V"VO$:710:RF$(KE):AC$SL$"/"BLD$":""SLIB.FD"",V"VL$:710:NB$(KE) gAC$SL$"/"BLD$":""SYSLIB"",V"VL$:710:NQ$(KE) lKY$(BK$,21):RC$DR$:110[ X12:Y2:M$"TARGET DISK IN:":110:X14:Y5:M$"SLOT "SL$" DRIVE "BLD$:110 Y7:X16:M$"--HIT ANY KEY TO CONTINUE--":110 DB$:DB$""530 130:600:& XCB$SL$"/"BLD$":""SLIB.FD"",V"VL$",38,21,0":700:CB$SL$"/"BLD$ 62002 105:X12:Y2:M$"PLEASE ENTER:":110k X14:Y1:M$"VOLUME NUMBER OF NEW LIBRARY":110:120 VL$:160:DR$"1":BLD$DR$:SL$((38361)):QS$SL$ 600: 105:X8:Y2:M$"ENTER QUERY DISK IN:":110:X10:Y5:M$"SLOT "QS$" DRIVE ""COPYING . . . . .PLEASE WAIT":110:Q 105:X12:Y5:M$"DISK IS FULL":110: (38362)1DR$"1":BLD$"2":QS$((38361)):SL$QS$: DR$"2":SL$((38361)):BLD$"1":QS$SL$: ,(38361)6BLD$"2":SL$"6":DR$((38362)):QS$((38361)):0:X14:Y12:M$"--PLEASE WAIT--":110:B i:(38373)1ĺ(12):H k\ nX:36,Y:M$;:y xYY(M$)1:M$"":110: 105:BLD$"1"M$"COPYING UP . . PLEASE WAIT":150 M$"COPYING DOWN . . PLEASE WAIT" X12:Y5:110:& 105:X12:Y5:M$=  ***CNQST.SYSQLIB.GEN***A 10000: INITIALIZE VARIABLES`30000:S81İ400:105:90S93İ300:VL$"00":500:105:90(200:VL$"00":500:105:90ZD$"RUN CNQST.UTIL";S7$c' d:X12:Y5:M$"ENTERING DESCRIPTION IN LIBRARY":11         78) uF}1:(9);(1);(1);"80N";"CNQST.INT.UM - 071682 - 2.0":AS4$",S"((38364))",D"((38365))",V"((38366))qXuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))luS7$",S"((38374))",D"((38375))",V"((38376))vuS8(38377):S9(383(UD$,13):800?'UD$QT$(TD$,3)":"AN$",V"(TD$,5,2)QT$P'UF$U1$:220V'0uA$"":I05:A$A$((38352I)):I:S1$A$:uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((38362))",V"((38363))6Nu(38374)?['M$"PREPARING FOR THE UPDATE . . .":X10:Y5:105E\'nt'U6$"SYS.SPOOL":UU$S4$:UF$U6$:210~':U1$"SYS.MAINT":D$"OPEN";U1$;S7$:D$"DELETE"U1$:D$"OPEN";U1$:D$'UF$U6$:240' ** CONVERT UD$ TO DOMAIN **'TD$(UD$,6):AN$SR$A$EF0ı?6' *** - INITIALIZE - ***O'!UBUF2:33,40:30000z'!INIT:QT$(34):CR$(13):TC0:D$(4).'SW40:CR$(13)8'I180:DT$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-":B'S80İ700 C'S81V1(38366):V2(38376):SU6$:240:SR$UD$:SR$"$"ī1090AUD$QT$SR$QT$:UF$U1$:220K1010dBUD$"$":UF$U1$:220~GUD$(3):UF$U1$:220KTL70İ240:A$UD$:SR$SR$A$EF0ıTL140İ240:A$UD$:SR$SR$A$EF0ıTL210İ240:A$UD$:SR$KS - ***%I(AN$).*(AN$,I,1)" "819B/II1:I1810W3AN$(AN$,I):I1p4(AN$,I,1)" "850>II1:I(AN$)820RAN$(AN$,I) *** KRAM ERROR HANDLER ***KE(11):KE0ı --- DO CONVERSION --- UF$SLOT 6 DRIVE "D1$@ X10:Y10:M$"PLEASE INSERT YOUR ":105t X12:Y5:M$"QUERY DISK (DISK # 2) INTO ":100 X14:Y11:M$R1$:100 X18:Y7:M$"- HIT ANY KEY WHEN READY - ":100 Z$"":Z$:Z$""770   *** - STRIP TRAILING BLAN2 S92R1$"SLOT 6 DRIVE 2":S4$",S6,D2":750G S94İ175:750t (38364)(38374)(38365)(38375)740 175:750 (38374)5R1$"SLOT 6 DRIVE 2":S4$",S6,D2":750 D1$"1":S4$",S6,D1":(38375)1D1$"2":S4$"S6,D2" R1$"F$:UD$:D$:# D$"CLOSE ";UF$:8 S81Ĺ1144S,V1V D$"READ ";UF$:UD$:D$:q 800:X$"":I1(AN$) Z$(AN$,I,1):(Z$"0"Z$"9")(Z$"A"Z$"Z")X$X$Z$ :AN$X$   ** DECIDE AND TELL USER WHERE TO INSERT DISKS ** (A):L(A$):(A$,1)" "A$(A$,L1)P AU$A$:A$("0000000000"A$,A1):A11:^ A12:200l A13:200z A14:200 A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: S81Ĺ1144S,V2 D$"WRITE ";U3:Y0:M$(BL$,SW1):100; (38373)1HC$"Y"ĺD$"PR#0"} HC$"Y"ĺD$"PR#1":(9);(1);(1);"80N";: <<< PTF VEGAS >>> M$:HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3" M$"": R1$"SLOT "((38364))" DRIVE "((38365)) % A$H  **** CNQST.INT.UM ****+ 1000061000:MZPN$"CNQST.AMAINT"f[:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S7$cdX1:Y1:M$;:i:(38373)1ĺ(12)j100n:M$;: }X2        S6$",S"((38370))",D"((38371))",V"((38372))qluS7$",S"((38374))",D"((38375))",V"((38376))vuS8(38377):S9(38378)u}1:(9);(1);(1);"80N";"CNQST.INT.EX - 071682 - 2.0":,2)"/"(A$,2)J:uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((38362))",V"((38363))NuS4$",S"((38364))",D"((38365))",V"((38366))XuS5$",S"((38367))",D"((38368))",V"((38369))6bu$:220.SI1(NA)U.UD$QT$(AN$(SI)BL$,30):ADL(SI):203:UD$UD$A$QT$:220[.l/ES112099 /IV0Ĺ1146S,IV /D$"READ "U6$:A$:A,B:B$:D$/A$"DATA"12045C/0uA$"":I05:A$A$((38352I)):I:S1$(A$,2)"/"(A$,3THE DISK FROM SLOT "IS$", DRIVE "ID$:Y0:105q+X6:M$"AND INSERT THE DISK CONTAINING":170:X8:M$IN$:170+X10:M$"HIT 'RETURN' WHEN READY":170+Z$"":Z$:Z$""11150++.UF$U1$:UD$QT$TR$QT$:220.ANA:203:UD$QT$A$QT ":X6:100:IS$9k+M$" DRIVE: ":X7:100:ID$Wl+S80IV$"0":IV0:11125p+M$" VOLUME: ":X8:100:IV$q+IV(IV$):V1(38376):V2IV:S(38374)u+U6$IN$:UU$",S"IS$",D"ID$",V"IV$v+S81IV0111510z+X5:M$"REMOVE $AN$(JJ):UDP(JJ):VDL(JJ)HU+AN$(JJ)AN$(I):DP(JJ)DP(I):DL(JJ)DL(I)fV+AN$(I)T$:DP(I)U:DL(I)VtW+II1:JJ\+X3:M$"DESCRIBE THE DATA FILE TO BE USED":Y((SW(M$))2):105a+M$"INPUT FILE NAME: ":X5:Y0:100:IN$f+M$" SLOT:Y0:M$"ANY CHANGE ":100:T$"":T$:T$"Y"AIII54:X2::11081[P+X2:IIII1::AI:R+:"WHICH DATA ITEM (1-";(NA);") BEGINS THE KEY";:KI$:KI(KI$):"WHICH DATA ITEM ENDS THE KEY";:X$:KE(X$):KA(KEKI)1S+KI111100T+I1:JJKIKE:T+:X2:II1H+AI1(NA)GI+XX2:M$"DATA ITEM #"(AI):100:XX1J+M$"ATTRIBUTE NAME: ":100:AN$(AI):AN$(AI)""11082K+XX1L+M$"MAX DATA LENGTH: ":100:DL$:DL$""11086M+DL(AI)(DL$):TLTLDL(AI)N+AIII5ĂAI:11090CO+X22::X8:100:RV$39+TR$RS$"/"RD$":"RN$",V"RV$>+X10:Y0:M$"HOW MANY ATTRIBUTES: ":100:NA$:NA(NA$):NA0NA25511070?+X21:Y0:M$"ANY CHANGE ":100:ZZ$"":ZZ$:ZZ$""ZZ$"N"@+ZZ$"Y"11050C+AN$(NA),DL(NA),TP(NA),X$(NA),V(NA) DATION TO BE UPDATED":Y((SW(M$))2):105d/+M$"RELATION NAME: ":X5:Y0:100:RN$:RN$""110554+M$" SLOT: ":X6:100:RS$:RS$""110606+M$" DRIVE: ":X7:100:RD$:RD$""110627+S80RV$"0":110658+M$" VOLUME: "LC":X7:1706+M$"2. DATA FROM THE SOURCE":X8:100K +160:ESV:ES$V$[+ES111050+X0:Y0:105:M$"SELECT MODE: ":X5:170+M$"1. REPORT MODE":X7:170 +M$"2. DATASTREAM MODE":X8:100%+160:MDV:MD$V$+*+X3:M$"DESCRIBE THE REL$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-":;B'11000Lt'UF$U6$:210u':U1$"SYS.MAINT":D$"OPEN";U1$;S7$:D$"DELETE"U1$:UF$U1$:UU$S7$:210~'12000'*X0:Y0:105:M$"PROCESS WHICH KIND OF DATA?":X5:170 +M$"1. DATA FROM VISICA:UTP(JJ):VV(JJ):X$(JJ)X$(I):TP(JJ)TP(I):V(JJ)V(I)VX$(I)T$:TP(I)U:V(I)VdII1:JJj' *** - INITIALIZE - ***'!UBUF2:33,40:30000'!INIT:QT$(34):CR$(13):TC0:D$(4).'SW40:CR$(13):(38373)1SW8008'I180:DT$(SI)"V"X$(BL$"0",DL(SI)).SR$SR$X$8SI:_@UF$U1$:UD$QT$(SR$,70)QT$:220JTL70UD$QT$(SR$,71,70)QT$:220TTL140UD$QT$(SR$,141,70)QT$:220^TL210UD$QT$(SR$,211,45)QT$:220I1:JJKIKE:T$X$(JJ)ES11530250:UT1ij3UD$"EOD"EF1:BSI1(NA)i250:TP(SI)UT:V(SI)UV:X$(SI)UD$qSIKI1İ1700SI1(NA)TP(SI)1X$(X$(SI)BL$,DL(SI))TP(SI)0X$(SI)"V"X$(BL$(V(SI)),DL(SI)):1525TP(SI)0X >II1:I(AN$)820' RAN$(AN$,I)- N  *** KRAM ERROR HANDLER ***c KE(11):KE0ıi   --- DO CONVERSION --- 1500:EF01090 1600 BEF01000 GUF$U1$:UD$"$":220:230:UF$U6$:230 K EF0:UF$U6$:SR$"":I1(AN$)K Z$(AN$,I,1):(Z$"0"Z$"9")(Z$"A"Z$"Z")X$X$Z$X :AN$X$^ n UF$"":230  *** - STRIP TRAILING BLANKS - *** %I(AN$) *(AN$,I,1)" "819 /II1:I1810 3AN$(AN$,I):I1 4(AN$,I,1)" "850A18:200 A19:2001 D$"OPEN ";UF$;UU$:G V10Ĺ1144S,V1k D$"WRITE ";UF$:UD$;CR$;:D$: D$"CLOSE ";UF$: V10Ĺ1144S,V2 D$"READ ";UF$:UD$:D$: V10Ĺ1146S,V2 D$"READ ";UF$:UT,UV:UD$:D$: 800:X$"":END': ";V$:V(V$):V0PN$"CNQST.UTIL":902 O Y((SW(M$))2):100:} A$(A):L(A$):(A$,1)" "A$(A$,L1) AU$A$:A$("0000000000"A$,A1):A11: A12:200 A13:200 A14:200 A15:200 A16:200 A17:200 (12) j100 n:M$;:; }X23:Y0:M$(BL$,SW1):100] (38373)1HC$"Y"ĺD$"PR#0" HC$"Y"ĺD$"PR#1":(9);(1);(1);"80N";: <<< PTF VEGAS >>> M$:HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3" M$"":, :" ENTER 1, 2, OR '% **** CNQST.INT.EX **** 1 10000:<1000:cUF$"":230:PN$"CNQST.AMAINT":90iFZ:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S7$cdX1:Y1:M$;:M$"": i:(38373)1ĺ            8376))"vuS8(38377):S9(38378)(ue}1:(9);(1);(1);"80N";"CNQST.INT.VC - 071582 - 2.0":A(38362))",V"((38363))UNuS4$",S"((38364))",D"((38365))",V"((38366))XuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))luS7$",S"((38374))",D"((38375))",V"((374)>\NX22:Y0:M$"ANY CHANGE ":100:T$"":T$:T$""T$"N"PaNT$"Y"20000VfN0uA$"":I05:A$A$((38352I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2):uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"(9$,3))4NS11S17200002>NS21S2220000QHNS9$",S"(S1)" ,D"(S2)iMNS1(38374)20060RNX14:Y8:M$"CORVUS VOLUME NUMBER ":100WNVV$"":VV$:VV$""(VV$)1(VV$)25420050XNS9$S9$",V"VV$YNV1(38366):V2(VV$):S(383AL(CI)%'(SR$,34,1)"Y"DT(CI)1+'g'UF$U1$:UD$"DATA":220:UD$"0,0":220:UD$QT$QT$:220m' NX10:Y5:M$"PLEASE ENTER THE SLOT/DRIVE":105%NX12:M$"OF THE INTERFACE FILE ":100*NS9$:S9$""20000/NS1((S9$,1)):S2((STABLE":220:UD$"0,1":220:UD$QT$QT$:220a~'UF$U6$:240:NA$UD$:NA(NA$):AL(NA2),DT(NA2)'UF$U1$:UD$"VECTORS":220:UD$"0,"NA$:220:UD$QT$QT$:220'CI1NA:UF$U6$:240:SR$UD$:EF0ij'AN$(SR$,30):AL(CI)((SR$,31,3))'TLTL00-B'X12:Y10:M$"PROCESSING . . .":105:Vt'U6$"SYS.SPOOL":UU$S4$:UF$U6$:210u':U1$"SYS.INTERFACE":D$"OPEN";U1$;S9$:D$"DELETE"U1$:UF$U1$:D$"OPEN";U1$y'UF$U6$:240:SR$UD$:RT$(SR$,15):WD((SR$,16,3)):TE$(SR$,19)+{'UF$U1$:UD$""TL210İ240:A$UD$:SR$SR$A$/EF0ı5?R' *** - INITIALIZE - ***k'!UBUF2:33,40:30000'!INIT:QT$(34):CR$(13):TC0:D$(4).'SW40:CR$(13)8'I180:DT$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-":='S9$S7$:S81İ200UD$QT$AN$QT$:220:1060MX(AN$):X$(X):UD$"0,"X$:220:UD$"V":220`$TITIAL(SI):oBEF01000GUD$"-1,0":UF$U1$:220:UD$"EOD":220KTL70İ240:A$UD$:SR$SR$A$EF0ıTL140İ240:A$UD$:SR$SR$A$EF0ıKE(11):KE0ı7 --- DO CONVERSION ---`EF0:UF$U6$:240:SR$UD$:EF11090xSR$"$"EF1:1090TL70İ1500UF$U1$:UD$"-1,0":220:UD$"BOT":220TI1:SI1(NA):AN$(SR$,TI,AL(SI)):800DT(SI)0UD$"1,0":220:$"CNQST.UTIL":Z$"":750G  *** - STRIP TRAILING BLANKS - ***T%I(AN$)m*(AN$,I,1)" "819/II1:I18103AN$(AN$,I):I14(AN$,I,1)" "850>II1:I(AN$)820RAN$(AN$,I) *** KRAM ERROR HANDLER ***THER QUERY":100> X13:Y0:M$"3. RETURN TO MAIN MENU":100q X14:Y0:M$"4. RETURN TO UTILITIES MENU":100 Z$"":Z$:Z$""750  Z$"1"AC0: Z$"2"AC1:PN$"CNQST.QMENU": Z$"3"AC2:PN$"CNQST.MAIN": Z$"4"AC3:PNREADY - ":100' JZ$"":Z$:Z$""330- OH 800:X$"":I1(AN$) Z$(AN$,I,1):(Z$"0"Z$"9")(Z$"A"Z$"Z")X$X$Z$ :AN$X$  UF$"":230 X11:Y0:M$"1. EXIT CONQUEST TO BOOT VISICALC":105 X12:Y0:M$"2. RUN ANOD$;CR$;:D$:# D$"CLOSE ";UF$:9 V20Ĺ1144S,V1W D$"READ ";UF$:UD$:D$:c ,S81ı 1X12:Y5:M$"PLEASE INSERT YOUR QUERY DISK":105 ;X14:Y9:M$"IN SLOT "((38361))" ,DRIVE "((38362)):100 @X16:Y7:M$"- HIT ANY KEY WHEN (A$):(A$,1)" "A$(A$,L1)J AU$A$:A$("0000000000"A$,A1):A11:X A12:200f A13:200t A14:200 A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: V20Ĺ1144S,V2 D$"WRITE ";UF$:U:(38373)1ĺ(12) j100+ n:M$;:L }X23:Y0:M$(BL$,SW1):100n (38373)1HC$"Y"ĺD$"PR#0" HC$"Y"ĺD$"PR#1":(9);(1);(1);"80N";: <<< PTF VEGAS >>> M$:HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3" M$"": A$(A):Lg  **** RQST.INT.VC ****, 10000:71000:O700:AC0ė:57344UFpPS9$S7$:AC3S9$S3$UAC3İ300Z:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S9$cdX1:Y1:M$;: i       (38371))",V"((38372))TluS7$",S"((38374))",D"((38375))",V"((38376))pvuS8(38377):S9(38378)vu}1:(9);(1);(1);"80N";"CNQST.INT.ES - 071682 - 2.0":((38358))",D"((38359))",V"((38360))hDuS3$",S"((38361))",D"((38362))",V"((38363))NuS4$",S"((38364))",D"((38365))",V"((38366))XuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"(VV$)1(VV$)25420050,XNS9$S9$",V"VV$QYNV1(38366):V2(VV$):S(38374)\NX22:Y0:M$"ANY CHANGE ":100:T$"":T$:T$""T$"N"aNT$"Y"20000fN0uA$"":I05:A$A$((38352I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2)-:uS2$",S"HE INTERFACE FILE ":1002*NS9$:S9$""20000T/NS1((S9$,1)):S2((S9$,3))i4NS11S1720000>NS21S2220000HNS9$",S"(S1)" ,D"(S2)MNS1(38374)20060RNX14:Y8:M$"CORVUS VOLUME NUMBER ":100WNVV$"":VV$:VV$""($UD$:EF0ij6'AN$(SR$,30):AL(CI)((SR$,31,3))G'TLTLAL(CI)M'':U1$"SYS.INTERFACE":D$"OPEN";U1$;S9$:D$"DELETE"U1$'D$"OPEN "U1$;",L";(TLNA3):RLTLNA3' NX10:Y5:M$"PLEASE ENTER THE SLOT/DRIVE":105%NX12:M$"OF T:G'S9$S7$:S81İ20000FL'X10:Y10:M$"PROCESSING . . .":105:ot'U6$"SYS.SPOOL":UU$S4$:UF$U6$:210y'UF$U6$:240:SR$UD$:RT$(SR$,15):WD((SR$,16,3)):TE$(SR$,19)~'UF$U6$:240:NA$UD$:NA(NA$):AL(NA2)'CI1NA:UF$U6$:240:SR:SR$SR$A$EF0ı;TL210İ240:A$UD$:SR$SR$A$HEF0ıN?k' *** - INITIALIZE - ***'!UBUF2:33,40:30000'!INIT:QT$(34):CR$(13):TC0:D$(4).'SW40:CR$(13)8'I180:DT$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-"U1$;",R";(NR)<TI1:SI1(NA):AN$(SR$,TI,AL(SI)):800RAN$:TITIAL(SI)\:D$kBEF01000CV20Ĺ1144S,V2DD$"WRITE "U1$;",R0":(NA):(RL):(NR):D$KTL70İ240:A$UD$:SR$SR$A$EF0ı TL140İ240:A$UD$1:I(AN$)820!RAN$(AN$,I)'H *** KRAM ERROR HANDLER ***]KE(11):KE0ıc --- DO CONVERSION ---EF0:UF$U6$:240:SR$UD$:EF11090SR$"$"EF1:1090TL70İ1500V20Ĺ1144S,V2NRNR1:D$"WRITE "$"CNQST.QMENU":5 Z$"3"AC2:PN$"CNQST.MAIN":Y Z$"4"AC3:PN$"CNQST.UTIL":h Z$"":750  *** - STRIP TRAILING BLANKS - *** %I(AN$) *(AN$,I,1)" "819 /II1:I1810 3AN$(AN$,I):I1 4(AN$,I,1)" "850>II. EXIT CONQUEST TO BOOT EXEC. SECRETARY":105Y X12:Y0:M$"2. RUN ANOTHER QUERY":100 X13:Y0:M$"3. RETURN TO MAIN MENU":100 X14:Y0:M$"4. RETURN TO UTILITIES MENU":100 Z$"":Z$:Z$""750  Z$"1"AC0: Z$"2"AC1:PN2% D$"WRITE ";UF$:UD$;CR$;:D$:; D$"CLOSE ";UF$:Q V20Ĺ1144S,V1o D$"READ ";UF$:UD$:D$: 800:X$"":I1(AN$) Z$(AN$,I,1):(Z$"0"Z$"9")(Z$"A"Z$"Z")X$X$Z$ :AN$X$  UF$"":230- X11:Y0:M$"1M$"":7 A$(A):L(A$):(A$,1)" "A$(A$,L1)b AU$A$:A$("0000000000"A$,A1):A11:p A12:200~ A13:200 A14:200 A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: V20Ĺ1144S,V dX1:Y1:M$;:- i:(38373)1ĺ(12)6 j100C n:M$;:d }X23:Y0:M$(BL$,SW1):100 (38373)1HC$"Y"ĺD$"PR#0" HC$"Y"ĺD$"PR#1":(9);(1);(1);"80N";: <<< PTF VEGAS >>> M$:HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3"  *** CNQST.INT.ES ***+ 10000:61000:N700:AC0ė:57344TFoPS9$S7$:AC3S9$S3$UAC3İ300Z:(38373)1ĺ(12)[:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S9$c     6))vuS8(38377):S9(38378)%ub}1:(9);(1);(1);"80N";"CNQST.INT.MW - 071582 - 2.0":Pz#?     ԮԮ͠ ԮΠԮҮɠԮ͠Ԯ̠ԮԠ(Ԯ̠6"ԮԮנԮԮӠԮԮà ԮԮؠ  ****Q78) u>}1:(9);(1);(1);"80N";"CNQST.UTIL - 071682":S4$",S"((38364))",D"((38365))",V"((38366))qXuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))luS7$",S"((38374))",D"((38375))",V"((38376))vuS8(38377):S9(383 IN DRIVE 2"6:15:"HIT ANY KEY WHEN READY":Z$""JZ$:Z$""7060PV0uA$"":I05:A$A$((38352I)):I:S1$A$:uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((38362))",V"((38363))6NuZ$""7035+Z(Z$):Z1Z4Z$"":7035HZ1PN$"CNQST.GEN.DDM"eZ2PN$"CNQST.GEN.DQD"Z3PN$"CNQST.GEN.DQP"Z41000:(38373)1ĺ(12)15:"S E T U P":10:1:"REQUEST SYSTEM MASTER IN DRIVE 1" :17:"BLANK DISKNERATION SUB-SYSTEM MENU":Lb"1. DATABASE DEFINITION/MAINTENANCE DISK":xg"2. DATABASE QUERY DEVELOPMENT DISK":l"3. DATABASE QUERY PRODUCTION DISK":q"4. RETURN TO MAIN MENU":v" GENERATE WHICH TYPE OF DISK ?":Z$"" {Z$:RPT"Z56099hD$"OPEN SYS.PASS,D1":D$"DELETE SYS.PASS":D$"OPEN SYS.PASS":D$"WRITE SYS.PASS"QT$;QN$;".QRY";QT$:D$"CLOSE SYS.PASS"PN$"CNQST.PRE.QRUN":200X *** ENTER GEN S/S *** Y:(38373)1ĺ(12)]" DISK GE TITLE CONTEXT":7" 5. RETURN TO MAIN MENU":g" SELECT A FUNCTION, PLEASE";:Z$""{Z$:Z$""6035Z(Z$):Z1Z5Z$"":6035Z1QN$"SQL.DIRDSP"Z2QN$"SQL.DIRRPT"Z3QN$"SQL.DCSDSP"Z4QN$"SQL.DCSYS.QLIB S/S ***(q:(38373)1ĺ(12)Uu" QUERY LIBRARY SUB-SYSTEM MENU":z" 1. DISPLAY ENTIRE DIRECTORY":|" 2. PRINT ENTIRE DIRECTORY":" 3. DISPLAY DIRECTORY BY TITLE CONTEXT":" 4. PRINT DIRECTORY BY:(4)"RUN CNQST.QSHELL"S7$C<Z4PN$"CNQST.SIZEESTM":S9$S7$:l=Z5İ700:PN$"CNQST.MAIN":S9$S3$:~AZ6ė:57344B1000K Z$:Z$""3035 ** UTILITIES DISK **800:PN$"CNQST.UTIL"D$"RUN ";PN$;S7$p *** ENTER ST":100D .XX2:M$" SELECT A FUNCTION, PLEASE ":100:Z$""X 3Z$:Z$""1075r 5Z(Z$):Z1Z61075 9Z1PN$"CNQST.SYSQLIBGEN":S9$S7$: :Z2PN$"CNQST.INT.EX":S9$S7$:;Z3İ200:!UBUF1:19967::(4)"BLOAD CNQST.EDITOR.HI"S7$ SUBLIBRARY ":100D XX2:M$"2. IMPORTING DATA TO CONQUEST":100z XX2:M$"3. GENERATE YOUR OWN REPORT SHELL":100 XX2:M$"4. ESTIMATE SIZE OF RELATION":100 XX2:M$"5. EXIT TO CONQUEST MAIN MENU":100 XX2:M$"6. EXIT FROM CONQUESF I180:BL$BL$" ":DT$DT$".":X$X$"":Y$Y$"":NL$NL$(0):Q 30000k (38373)1ĺD$"PR#3"q   DISPLAY MENU & GET CHOICE :(38373)1ĺ(12) X0:Y5:M$"U T I L I T I E S M E N U":105 XX2:Y1:M$"1. GENERATE QUERY8);", DRIVE ";(38359);" & HIT 'RETURN'":Z$""? Z$:Z$""ıE K ^ (38376)0ı *X10:Y5:M$"INSERT UTILITIES DISK":105: ,X11:Y7:M$"IN SLOT "((38374))", DRIVE "((38375))" & HIT 'RETURN'":100:Z$"" /Z$:Z$""ı 41:"JUST A MOMENT PLEASE ...":* Z3ı@ D$"RUN ";PN$;S9$} ,X10:Y4:M$"INSERT DISK(S) AND HIT 'RETURN'":105:A$"" 1A$:A$""305 5  (38360)0ı X10:Y1:M$"INSERT QUERY DEVELOPMENT DISK":105:. " IN SLOT ";(3835@4 *** CNQST.UTIL - MAIN DRIVER - DUD DIK ***C !UBUF 5:N33,40`D$(13)(4)i900s1000(Z4İ7002200cd:X1:Y1:M$;:i:(38373)1ĺ(12)PLEASE..." j100n100:(38373)1ĺ(12) 12:     2::MO$"*"LTL1L2:*?LTL1L2:BXEM((R$(I),25,1))]YEM1EM2EM3630q]EM610,615,620bRP$(RP$,2)(RP$,4,2)(RP$,7,2):gRP$(RP$,3)(RP$,5,3)(RP$,4):lRP$(RP$,3)(RP$,5,2)(RP$,4):;vDD$"N"(RP$,SLLMC1:JJ:~X10:Y0:M$"UPDATE FOR KEY "KY$" CANCELLED ":105:X12:M$"DUE TO INVALID DATA AS PER CRITERIA "(C):100:X22:Y5:M$" - HIT ANY KEY TO CONTINUE -":100Z$"":Z$:Z$""520 :0MO$"+"LTL1L2:5MO$"-"LTL1LLTL1L2#DY$"A"RP$LT$:499eRPLT:RN100:L((R$(JJ),21,3)):((R$(JJ),25,1))3RN1000RP((RPRN).5)RN:RP$(BL$,L)(RP):RP$(RP$,L)RC$(RC$,SB1)RP$(RC$,SBL):ER0ĂJJ:JJNAOP$"="İ495:ER0:JJ: JJNA3DY$"N"RP(RP$)GNI1NL:LT$(CC$(JJ,NI),L):DY$"A"470iLT(LT$):800:ER1ĂNI:500~NINL1:NI:500860:ER1ĂNI:500NINL1:NI:500MO$"+"LTL1L2:499MO$"-"LTL1L2:499MO$"*"LTL1L2:499 RL(C3)):K3$RP$:F2$F2$(C3):!GTRECF2$,K3$,R3$:ER0:(11)40(11)43ER1:500]900:500u ** CRITERIA 4 **MO$(C$,20,1):WW2:385L1LT:WW21:385:L2LT560RP(RP$):LT((LT))800:500 ** CRITERIA 5 **NL(C$):OP"/R1$(BL$,38):!GTREC1,K1$,R1$:(11)40ij_L2(C2)((R1$,21,3)):S2(C2)((R1$,26,4))LT$(RC$,S2(C2),L2(C2)):DY$"N"RP(RP$):LT(LT$):800:500860:500 * * CRITERIA 3 * *C3C31:L3(C3)0İ12000:ER1500OR3$(BL$,):DY$(R$(JJ),24,1)/C5OP$(C$,1):850JC410,420,435,445,460LT$(C$,5,L):DY$"N"LT(LT$):RP(RP$):800:500860:500 ** CRITERIA 2 **C2C21:L2(C2)0430FF((C$,2,3)):AFF:203:K1$"&FIELD#"A$(BL$,10)"0(C$,WW,3):LT$"LLL"LT((C$,WW3,15):NLT(LT$):C4C41:L4(C4)0İ375oLT((RC$,S4(C4),L4(C4))):JJ1NAMC:C((R$(JJ),31,1)):C0(R$(JJ),30,1)"U"C6ĂJJ:ER0:C$C$(JJ):L((R$(JJ),21,3)):SB((R$(JJ),26,4)):RP$(RC$,SB,LI(KA$)sW14Wt(KA$,I,1)(NG$,W,1)KA$(KA$,I1)(BL$,20):KA$(KA$,20):nuW:II1:I0371tvwALT:203:K1$"&FIELD#"A$(BL$,10)"0":R1$(BL$,38):!GTREC1,K1$,R1$:900|S4(C4)((R1$,26,4)):L4(C4)((R1$,21,3)):)LT$271 TF0:Z$"Y"TF1S 120:M$"PREPARING FOR THE UPDATE":Y5:X10:100::` ,I(AN$)y 6(AN$,I,1)" "320 ;II1:I1310 @AN$(AN$,I): ^I(AN$) c(AN$,I,1)","365 hII1:I1355 mAN$(AN$,I1):A1$(DB$,I):r"":Z$:Z$"Y"Z$"N"250V Z$"Y"VC1:M$"ALL CRITERIA TO BE VALIDATED ":270 VC0:M$" NO CRITERIA VALIDATION ": 100:J1350:J 120:M$"DO YOU WANT AN AUDIT TRAIL PRINTED ":Y0:X10:100 Z$"":Z$:Z$"Y"Z$"N"14:200 A15:200$ A16:2002 A17:200@ A18:200N A19:200g D$"OPEN ";UF$;UU$: D$"WRITE ";UF$:UD$;CR$;:D$: D$"CLOSE ";UF$: D$"READ ";UF$:UD$:D$: 120:X10:Y5:M$"VALIDATE ALL CRITERIA (Y/N) ":100 Z$$"PR#3" M$"":: CC1NAMC:ANSS(CC)ĂCC:YN0: YN1:MCMC1:SS(NAMC)CI:R$(NAMC)RC$:C$(NAMC)RR$:CCNAMC2:CC: A$(A):L(A$):(A$,1)" "A$(A$,L1) AU$A$:A$("0000000000"A$,A1):A11: A12:200 A13:200 A;: i:(38373)1ĺ(12)% j1002 n:M$;:J xX0:Y0:M$MM$:105k }X23:Y0:M$(BL$,SW1):100w TF0ı (38373)1ĺD$"PR#0" D$"PR#1":(9);(1);(1);"80N";: < << PTF VEGAS >>> M$:D$"PR#0" (38373)1ĺD&$ *** CNQST.AMAINT *** / 10000IMS$"COMPLETE"İ1000Z700:AC0ĬZPN$"CNQST.QMENU":AC2PN$"CNQST.MAIN"[:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S3$c dX1:Y1:M$               1:T$(I)(SL$,2):250:752*NTI:D$:L SS0āI1SS:M9$"":150:IX!NH0ı"M9$"":D1$"Y"M9$(S1$,2)"/"(S1$,3,2)"/"(S1$,2)" "#H$(H$(1),HL):T$(H$(1),2):M9$M9$H$:NP$"Y"M9$M9$" PAGE 001" %150:(T$)0āK1(T$((SL$,11,3))]C(CC$(ND)):CC$(ND)(C):P$(P):P$(" "P$,3):L$(L):L$(" "L$,3)P$(ND)P$(ND)P$:L$(ND)L$(ND)L$:250:713I0(SL$,1)"F"750II1:F$(I)(SL$,6)(SL$,4,2):250:735NFI:I0SL$"$"755II$,3,1)"HL80:D1$"Y"HLHL108NP$"Y"HLHL10@I1\250:(SL$,1)"H"712H$(I)(SL$,6)(SL$,4,2):II1:707NHI1:PD0(SL$,1)"A"730ND((SL$,6,2))1:NDPDPDND:J1 CC$(ND)(SL$,4,2):P((SL$,8,3)):LT$(I)(34):TT$:I2AA$"$":AA$:IO$"C":45208JIO$"I":4500250:D1$(SL$,2,1):NP$(SL$,3,1):LP$(SL$,4,3):LP(LP$):LP$(LP)SS$(SL$,7,3):SS(SS$):SS$(SS):EE$(SL$,10,3):EE(EE$):EE$(EE)250:TF$(SL$,2,1):TL$(SL03:P$A$:A((SP$(J),3)):203:L$A$oAA$(34)"A"NN$CC$(ND)I$P$L$(34):AA$:NNNN1:J:ND:NF0660I0NF1:AI:202:I$A$:F$F$(I1):A$(F$,2):F$(F$,80)FF$(34)"F"I$A$F$(34):FF$:INT0665I1NT:TT$(34)"T"$:NH0615J]I0NH1:AI:202:I$A$:H$H$(I1):A$(H$,2):H$(H$,80)xbHH$(34)"H"I$A$H$(34):HH$:I:NN0gNN0:TDNDlND1TD:DDND1:ADD:202:I$A$:2500:A(CC$(ND)):202:CC$(ND)A$$vJ1LP:ANN:202:NN$A$:A((SP$(J),3)):2$(IN$,4):IN$(BL$,IL)=&EF0:19968:(13)0(13)6560R+"E/R: ";(13):q0IN$IN$IX$:(11)27EF1wWX140:IO$"O":4500:M5$(34)"M"D1$NP$("000"LP$,3)("000"SS$,3)("000"EE$,3)(34) ZM5$:M5$(34)"M"TF$TL$(34):M5":TP$:TP$""TP$DF$:M$TP$:YY1:100:(TP$)0400@~X8:YY1:M$M1$:105:X10:M$M2$DF$:100:YY2:M$"":100ZZ$"":ZZ$:ZZ$""ZZ$DF$:YY1:M$ZZ$:100ZZ$"Y"ZZ$"N"425125:M$MG$:100:J11000::125:IXC0:T$"Y"ı ;AC1:FC0ıG<X22:Y18:M$"WHAT # ":100:T$:a|X0:Y0:M$MM$:100:}X0:Y(SWFL)2::M$HM$:105::380:~X0:Y(SWFL)2::M$HM$:100::380:X10:YY1:M$M1$:105:X12:M$M2$DF$:100:Y29:M$"":100(TP$"P$"Q"166 ? A$(A):L(A$):(A$,1)" "A$(A$,L1)c A$("0000000000"A$,A1):A11:q A12:200 A13:200 A14:200 SL$"" D$;"READ";FL$ SL$: ,125:M$"ANY CHANGE ":100:T$ .T$"N"T$"Y"T$""3001A M9$"":9 120:X10:Y8:M$"DO YOU WANT TO:":100 X12:M$"PRINT SHELL (P)":100:X14:M$"DELETE SHELL (D)":100 X16:M$"QUIT (Q)":100:X10:Y24:M$"":100 DP$"":DP$:DP$""167 DP$"D"DP$"P"D (S)":100:M$"QUIT (Q)":X18:100~ X10:Y24:M$"":100:DD$:DD$"P"DD$"S"DD$"C"DD$"Q"148 (38373)1:(4);"IN#0":(4)"PR#0" (4);"PR#1":(9);(1);(1);"80N";:M9$:(4);"PR#0":(38373)1ĺ(4)"PR#3"""1376 120:X10:Y5:M$"PRINTING . . .":100::Z 125:M$"PROCESSING . . .":100 120:X10:Y7:M$"DO YOU WANT TO:":100 X12:Y12:M$"PRINT ENTIRE SHELL (P)":1007 X14:M$"CHANGE SHELL (C)":100:X16:M$"SAVE SHELL :105& }X22:Y0:M$(BL$,SW1):100d 120:X10:Y0:M$"DO YOU WANT TO PRINT "MG$" NOW ":100 TT$"":TT$:TT$""133 TT$"Y"TT$"N"130 TT$"N"ı 120:X10:Y0:M$"- HIT ANY KEY WHEN PRINTER IS READY - ":100 T$"":T$:T$s4 *** RQST.QSHELL ***.(:1000:20008-4000E.FC590R/FC440Z045zZ:(4)"RUN CNQST.UTIL";S7$\dSW80ĺ(30);(Y32);(X32);M$;:eX1:36,Y:M$;:i:(38373)1ĺ(12)j100n:M$;: xX0:Y0:M$MM$               8362))",V"((38363))RNuS4$",S"((38364))",D"((38365))",V"((38366))XuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))luS7$",S"((38374))",D"((38375))",V"((3837;\NX22:Y0:M$"ANY CHANGE ":100:T$"":T$:T$""T$"N"MaNT$"Y"20000SfN0uA$"":I05:A$A$((38352I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2):uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((33))4NS11S1720000/>NS21S2220000NHNS9$",S"(S1)" ,D"(S2)fMNS1(38374)20060RNX14:Y8:M$"CORVUS VOLUME NUMBER ":100WNVV$"":VV$:VV$""(VV$)1(VV$)25420050XNS9$S9$",V"VV$YNV1(38366):V2(VV$):S(38374)CI)((SR$,31,3))#'TLTLAL(CI)E'400:UD$"="AN$:UF$U1$:220`'XCI:Y5:M$AN$:100:f'l' NX10:Y5:M$"PLEASE ENTER THE SLOT/DRIVE":105%NX12:M$"OF THE INTERFACE FILE ":100*NS9$:S9$""20000/NS1((S9$,1)):S2((S9$,:U1$"SYS.INTERFACE":D$"OPEN";U1$;S9$:D$"DELETE"U1$:UF$U1$:D$"OPEN";U1$y'UF$U6$:240:SR$UD$:RT$(SR$,15):WD((SR$,16,3)):TE$(SR$,19)~'UF$U6$:240:NA$UD$:NA(NA$):AL(NA2)'CI1NA:UF$U6$:240:SR$UD$:EF0ij'AN$(SR$,30):AL(+'!INIT:QT$(34):CR$(13):TC0:D$(4)?.'SW40:CR$(13)~8'I180:DT$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-":='S9$S7$:S81İ20000B'X0:Y0:M$"THE FOLLOWING MARKERS WERE FOUND:":105:t'U6$"SYS.SPOOL":UU$S4$:UF$U6$:210Ku'(SI):BEF01000/GUD$(3):UF$U1$:2205KWTL70İ240:A$UD$:SR$SR$A$dEF0ıTL140İ240:A$UD$:SR$SR$A$EF0ıTL210İ240:A$UD$:SR$SR$A$EF0ı?' *** - INITIALIZE - ***'!UBUF2:33,40:30000,I) * *** KRAM ERROR HANDLER ***?KE(11):KE0ıEb --- DO CONVERSION ---EF0:UF$U6$:240:SR$UD$:EF11090SR$"$"EF1:1090TL70İ1500TI1:SI1(NA):AN$(SR$,TI,AL(SI)):800:UD$AN$:UF$U1$:220:TITIALAC2:PN$"CNQST.MAIN":; Z$"4"AC3:PN$"CNQST.UTIL":JZ$"":750r  *** - STRIP TRAILING BLANKS - ***%I(AN$)*(AN$,I,1)" "819/II1:I18103AN$(AN$,I):I14(AN$,I,1)" "850>II1:I(AN$)820RAN$(AN$OW":1054 X12:Y0:M$"2. RUN ANOTHER QUERY":100h X13:Y0:M$"3. RETURN TO MAIN QUERY MENU":100 X14:Y0:M$"4. RETURN TO UTILITIES MENU ":100 Z$"":Z$:Z$""750  Z$"1"AC0: Z$"2"AC1:PN$"CNQST.QMENU":Z$"3"ADY - ":100% JZ$"":Z$:Z$""330+ OF 800:X$"":I1(AN$) Z$(AN$,I,1):(Z$"0"Z$"9")(Z$"A"Z$"Z")X$X$Z$ :AN$X$  UF$"":230 A$"PRINT":DV3A$"DISPLAY" X11:Y0:M$"1. EXIT CONQUEST TO BOOT MAGIC WIND;CR$;:D$:! D$"CLOSE ";UF$:7 V20Ĺ1144S,V1U D$"READ ";UF$:UD$:D$:a ,S81ı 1X12:Y5:M$"PLEASE INSERT YOUR QUERY DISK":105 ;X14:Y9:M$"IN SLOT "((38361))" ,DRIVE "((38362)):100 @X16:Y7:M$"- HIT ANY KEY WHEN REA$):(A$,1)" "A$(A$,L1)H AU$A$:A$("0000000000"A$,A1):A11:V A12:200d A13:200r A14:200 A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: V20Ĺ1144S,V2 D$"WRITE ";UF$:UD$:(38373)1ĺ(12) j100) n:M$;:J }X23:Y0:M$(BL$,SW1):100l (38373)1HC$"Y"ĺD$"PR#0" HC$"Y"ĺD$"PR#1":(9);(1);(1);"80N";: <<< PTF VEGAS >>> M$:HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3" M$"": A$(A):L(^ **** RQST.INT.MW ***** 10000:51000:M700:AC0ė:57344SFnPS9$S7$:AC3S9$S3$~UAC3İ300Z:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S9$cdX1:Y1:M$;: i     (38371))",V"((38372))TluS7$",S"((38374))",D"((38375))",V"((38376))pvuS8(38377):S9(38378)vu}1:(9);(1);(1);"80N";"RQST.INT.ES - 071682":((38358))",D"((38359))",V"((38360))hDuS3$",S"((38361))",D"((38362))",V"((38363))NuS4$",S"((38364))",D"((38365))",V"((38366))XuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"(VV$)1(VV$)25420050,XNS9$S9$",V"VV$QYNV1(38366):V2(VV$):S(38374)\NX22:Y0:M$"ANY CHANGE ":100:T$"":T$:T$""T$"N"aNT$"Y"20000fN0uA$"":I05:A$A$((38352I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2)-:uS2$",S"HE INTERFACE FILE ":1002*NS9$:S9$""20000T/NS1((S9$,1)):S2((S9$,3))i4NS11S1720000>NS21S2220000HNS9$",S"(S1)" ,D"(S2)MNS1(38374)20060RNX14:Y8:M$"CORVUS VOLUME NUMBER ":100WNVV$"":VV$:VV$""($UD$:EF0ij6'AN$(SR$,30):AL(CI)((SR$,31,3))G'TLTLAL(CI)M'':U1$"SYS.INTERFACE":D$"OPEN";U1$;S9$:D$"DELETE"U1$'D$"OPEN "U1$;",L";(TLNA3):RLTLNA3' NX10:Y5:M$"PLEASE ENTER THE SLOT/DRIVE":105%NX12:M$"OF T:G'S9$S7$:S81İ20000FL'X10:Y10:M$"PROCESSING . . .":105:ot'U6$"SYS.SPOOL":UU$S4$:UF$U6$:210y'UF$U6$:240:SR$UD$:RT$(SR$,15):WD((SR$,16,3)):TE$(SR$,19)~'UF$U6$:240:NA$UD$:NA(NA$):AL(NA2)'CI1NA:UF$U6$:240:SR:SR$SR$A$EF0ı;TL210İ240:A$UD$:SR$SR$A$HEF0ıN?k' *** - INITIALIZE - ***'!UBUF2:33,40:30000'!INIT:QT$(34):CR$(13):TC0:D$(4).'SW40:CR$(13)8'I180:DT$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-"U1$;",R";(NR)<TI1:SI1(NA):AN$(SR$,TI,AL(SI)):800RAN$:TITIAL(SI)\:D$kBEF01000CV20Ĺ1144S,V2DD$"WRITE "U1$;",R0":(NA):(RL):(NR):D$KTL70İ240:A$UD$:SR$SR$A$EF0ı TL140İ240:A$UD$1:I(AN$)820!RAN$(AN$,I)'H *** KRAM ERROR HANDLER ***]KE(11):KE0ıc --- DO CONVERSION ---EF0:UF$U6$:240:SR$UD$:EF11090SR$"$"EF1:1090TL70İ1500V20Ĺ1144S,V2NRNR1:D$"WRITE "$"CNQST.QMENU":5 Z$"3"AC2:PN$"CNQST.MAIN":Y Z$"4"AC3:PN$"CNQST.UTIL":h Z$"":750  *** - STRIP TRAILING BLANKS - *** %I(AN$) *(AN$,I,1)" "819 /II1:I1810 3AN$(AN$,I):I1 4(AN$,I,1)" "850>II. EXIT CONQUEST TO BOOT EXEC. SECRETARY":105Y X12:Y0:M$"2. RUN ANOTHER QUERY":100 X13:Y0:M$"3. RETURN TO MAIN MENU":100 X14:Y0:M$"4. RETURN TO UTILITIES MENU":100 Z$"":Z$:Z$""750  Z$"1"AC0: Z$"2"AC1:PN2% D$"WRITE ";UF$:UD$;CR$;:D$:; D$"CLOSE ";UF$:Q V20Ĺ1144S,V1o D$"READ ";UF$:UD$:D$: 800:X$"":I1(AN$) Z$(AN$,I,1):(Z$"0"Z$"9")(Z$"A"Z$"Z")X$X$Z$ :AN$X$  UF$"":230- X11:Y0:M$"1M$"":7 A$(A):L(A$):(A$,1)" "A$(A$,L1)b AU$A$:A$("0000000000"A$,A1):A11:p A12:200~ A13:200 A14:200 A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: V20Ĺ1144S,V dX1:Y1:M$;:- i:(38373)1ĺ(12)6 j100C n:M$;:d }X23:Y0:M$(BL$,SW1):100 (38373)1HC$"Y"ĺD$"PR#0" HC$"Y"ĺD$"PR#1":(9);(1);(1);"80N";: <<< PTF VEGAS >>> M$:HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3"  *** CNQST.INT.ES ***+ 10000:61000:N700:AC0ė:57344TFoPS9$S7$:AC3S9$S3$UAC3İ300Z:(38373)1ĺ(12)[:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S9$c     74)>\NX22:Y0:M$"ANY CHANGE ":100:T$"":T$:T$""T$"N"PaNT$"Y"20000VfN0uA$"":I05:A$A$((38352I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2):uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"(9$,3))4NS11S17200002>NS21S2220000QHNS9$",S"(S1)" ,D"(S2)iMNS1(38374)20060RNX14:Y8:M$"CORVUS VOLUME NUMBER ":100WNVV$"":VV$:VV$""(VV$)1(VV$)25420050XNS9$S9$",V"VV$YNV1(38366):V2(VV$):S(383AL(CI)%'(SR$,34,1)"Y"DT(CI)1+'g'UF$U1$:UD$"DATA":220:UD$"0,0":220:UD$QT$QT$:220m' NX10:Y5:M$"PLEASE ENTER THE SLOT/DRIVE":105%NX12:M$"OF THE INTERFACE FILE ":100*NS9$:S9$""20000/NS1((S9$,1)):S2((STABLE":220:UD$"0,1":220:UD$QT$QT$:220a~'UF$U6$:240:NA$UD$:NA(NA$):AL(NA2),DT(NA2)'UF$U1$:UD$"VECTORS":220:UD$"0,"NA$:220:UD$QT$QT$:220'CI1NA:UF$U6$:240:SR$UD$:EF0ij'AN$(SR$,30):AL(CI)((SR$,31,3))'TLTL00-B'X12:Y10:M$"PROCESSING . . .":105:Vt'U6$"SYS.SPOOL":UU$S4$:UF$U6$:210u':U1$"SYS.INTERFACE":D$"OPEN";U1$;S9$:D$"DELETE"U1$:UF$U1$:D$"OPEN";U1$y'UF$U6$:240:SR$UD$:RT$(SR$,15):WD((SR$,16,3)):TE$(SR$,19)+{'UF$U1$:UD$""TL210İ240:A$UD$:SR$SR$A$/EF0ı5?R' *** - INITIALIZE - ***k'!UBUF2:33,40:30000'!INIT:QT$(34):CR$(13):TC0:D$(4).'SW40:CR$(13)8'I180:DT$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-":='S9$S7$:S81İ200UD$QT$AN$QT$:220:1060MX(AN$):X$(X):UD$"0,"X$:220:UD$"V":220`$TITIAL(SI):oBEF01000GUD$"-1,0":UF$U1$:220:UD$"EOD":220KTL70İ240:A$UD$:SR$SR$A$EF0ıTL140İ240:A$UD$:SR$SR$A$EF0ıKE(11):KE0ı7 --- DO CONVERSION ---`EF0:UF$U6$:240:SR$UD$:EF11090xSR$"$"EF1:1090TL70İ1500UF$U1$:UD$"-1,0":220:UD$"BOT":220TI1:SI1(NA):AN$(SR$,TI,AL(SI)):800DT(SI)0UD$"1,0":220:$"CNQST.UTIL":Z$"":750G  *** - STRIP TRAILING BLANKS - ***T%I(AN$)m*(AN$,I,1)" "819/II1:I18103AN$(AN$,I):I14(AN$,I,1)" "850>II1:I(AN$)820RAN$(AN$,I) *** KRAM ERROR HANDLER ***THER QUERY":100> X13:Y0:M$"3. RETURN TO MAIN MENU":100q X14:Y0:M$"4. RETURN TO UTILITIES MENU":100 Z$"":Z$:Z$""750  Z$"1"AC0: Z$"2"AC1:PN$"CNQST.QMENU": Z$"3"AC2:PN$"CNQST.MAIN": Z$"4"AC3:PNREADY - ":100' JZ$"":Z$:Z$""330- OH 800:X$"":I1(AN$) Z$(AN$,I,1):(Z$"0"Z$"9")(Z$"A"Z$"Z")X$X$Z$ :AN$X$  UF$"":230 X11:Y0:M$"1. EXIT CONQUEST TO BOOT VISICALC":105 X12:Y0:M$"2. RUN ANOD$;CR$;:D$:# D$"CLOSE ";UF$:9 V20Ĺ1144S,V1W D$"READ ";UF$:UD$:D$:c ,S81ı 1X12:Y5:M$"PLEASE INSERT YOUR QUERY DISK":105 ;X14:Y9:M$"IN SLOT "((38361))" ,DRIVE "((38362)):100 @X16:Y7:M$"- HIT ANY KEY WHEN (A$):(A$,1)" "A$(A$,L1)J AU$A$:A$("0000000000"A$,A1):A11:X A12:200f A13:200t A14:200 A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: V20Ĺ1144S,V2 D$"WRITE ";UF$:U:(38373)1ĺ(12) j100+ n:M$;:L }X23:Y0:M$(BL$,SW1):100n (38373)1HC$"Y"ĺD$"PR#0" HC$"Y"ĺD$"PR#1":(9);(1);(1);"80N";: <<< PTF VEGAS >>> M$:HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3" M$"": A$(A):L`  **** RQST.INT.VC ****, 10000:71000:O700:AC0ė:57344UFpPS9$S7$:AC3S9$S3$UAC3İ300Z:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S9$cdX1:Y1:M$;: i      Y0:M$"ANY CHANGE ":100:T$"":T$:T$"Y"AIII54:X2::11081[P+X2:IIII1::AI:R+:"WHICH DATA ITEM (1-";(NA);") BEGINS THE KEY";:KI$:KI(KI$):"WHICH DATA ITEM ENDS THE KEY";:X$:KE(X$):KA(KEKI)1S+KI111100T+I1:JJKIKE:T+:X2:II1H+AI1(NA)GI+XX2:M$"DATA ITEM #"(AI):100:XX1J+M$"ATTRIBUTE NAME: ":100:AN$(AI):AN$(AI)""11082K+XX1L+M$"MAX DATA LENGTH: ":100:DL$:DL$""11086M+DL(AI)(DL$):TLTLDL(AI)N+AIII5ĂAI:11090CO+X22::X8:100:RV$39+TR$RS$"/"RD$":"RN$",V"RV$>+X10:Y0:M$"HOW MANY ATTRIBUTES: ":100:NA$:NA(NA$):NA0NA25511070?+X21:Y0:M$"ANY CHANGE ":100:ZZ$"":ZZ$:ZZ$""ZZ$"N"@+ZZ$"Y"11050C+AN$(NA),DL(NA),TP(NA),X$(NA),V(NA) DATION TO BE UPDATED":Y((SW(M$))2):105d/+M$"RELATION NAME: ":X5:Y0:100:RN$:RN$""110554+M$" SLOT: ":X6:100:RS$:RS$""110606+M$" DRIVE: ":X7:100:RD$:RD$""110627+S80RV$"0":110658+M$" VOLUME: "LC":X7:1706+M$"2. DATA FROM THE SOURCE":X8:100K +160:ESV:ES$V$[+ES111050+X0:Y0:105:M$"SELECT MODE: ":X5:170+M$"1. REPORT MODE":X7:170 +M$"2. DATASTREAM MODE":X8:100%+160:MDV:MD$V$+*+X3:M$"DESCRIBE THE REL$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-":;B'11000Lt'UF$U6$:210u':U1$"SYS.MAINT":D$"OPEN";U1$;S7$:D$"DELETE"U1$:UF$U1$:UU$S7$:210~'12000'*X0:Y0:105:M$"PROCESS WHICH KIND OF DATA?":X5:170 +M$"1. DATA FROM VISICA:UTP(JJ):VV(JJ):X$(JJ)X$(I):TP(JJ)TP(I):V(JJ)V(I)VX$(I)T$:TP(I)U:V(I)VdII1:JJj' *** - INITIALIZE - ***'!UBUF2:33,40:30000'!INIT:QT$(34):CR$(13):TC0:D$(4).'SW40:CR$(13):(38373)1SW8008'I180:DT$(SI)"V"X$(BL$"0",DL(SI)).SR$SR$X$8SI:_@UF$U1$:UD$QT$(SR$,70)QT$:220JTL70UD$QT$(SR$,71,70)QT$:220TTL140UD$QT$(SR$,141,70)QT$:220^TL210UD$QT$(SR$,211,45)QT$:220I1:JJKIKE:T$X$(JJ)ES11530250:UT1ij3UD$"EOD"EF1:BSI1(NA)i250:TP(SI)UT:V(SI)UV:X$(SI)UD$qSIKI1İ1700SI1(NA)TP(SI)1X$(X$(SI)BL$,DL(SI))TP(SI)0X$(SI)"V"X$(BL$(V(SI)),DL(SI)):1525TP(SI)0X >II1:I(AN$)820' RAN$(AN$,I)- N  *** KRAM ERROR HANDLER ***c KE(11):KE0ıi   --- DO CONVERSION --- 1500:EF01090 1600 BEF01000 GUF$U1$:UD$"$":220:230:UF$U6$:230 K EF0:UF$U6$:SR$"":I1(AN$)K Z$(AN$,I,1):(Z$"0"Z$"9")(Z$"A"Z$"Z")X$X$Z$X :AN$X$^ n UF$"":230  *** - STRIP TRAILING BLANKS - *** %I(AN$) *(AN$,I,1)" "819 /II1:I1810 3AN$(AN$,I):I1 4(AN$,I,1)" "850A18:200 A19:2001 D$"OPEN ";UF$;UU$:G V10Ĺ1144S,V1k D$"WRITE ";UF$:UD$;CR$;:D$: D$"CLOSE ";UF$: V10Ĺ1144S,V2 D$"READ ";UF$:UD$:D$: V10Ĺ1146S,V2 D$"READ ";UF$:UT,UV:UD$:D$: 800:X$"":END': ";V$:V(V$):V0PN$"CNQST.UTIL":902 O Y((SW(M$))2):100:} A$(A):L(A$):(A$,1)" "A$(A$,L1) AU$A$:A$("0000000000"A$,A1):A11: A12:200 A13:200 A14:200 A15:200 A16:200 A17:200 (12) j100 n:M$;:; }X23:Y0:M$(BL$,SW1):100] (38373)1HC$"Y"ĺD$"PR#0" HC$"Y"ĺD$"PR#1":(9);(1);(1);"80N";: <<< PTF VEGAS >>> M$:HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3" M$"":, :" ENTER 1, 2, OR '% **** CNQST.INT.EX **** 1 10000:<1000:cUF$"":230:PN$"CNQST.AMAINT":90iFZ:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S7$cdX1:Y1:M$;:M$"": i:(38373)1ĺ         78) u@}1:(9);(1);(1);"80N";"CNQST.INT.UM - 071682":"S4$",S"((38364))",D"((38365))",V"((38366))qXuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))luS7$",S"((38374))",D"((38375))",V"((38376))vuS8(38377):S9(383(UD$,13):800?'UD$QT$(TD$,3)":"AN$",V"(TD$,5,2)QT$P'UF$U1$:220V'0uA$"":I05:A$A$((38352I)):I:S1$A$:uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((38362))",V"((38363))6Nu(38374)?['M$"PREPARING FOR THE UPDATE . . .":X10:Y5:105E\'nt'U6$"SYS.SPOOL":UU$S4$:UF$U6$:210~':U1$"SYS.MAINT":D$"OPEN";U1$;S7$:D$"DELETE"U1$:D$"OPEN";U1$:D$'UF$U6$:240' ** CONVERT UD$ TO DOMAIN **'TD$(UD$,6):AN$SR$A$EF0ı?6' *** - INITIALIZE - ***O'!UBUF2:33,40:30000z'!INIT:QT$(34):CR$(13):TC0:D$(4).'SW40:CR$(13)8'I180:DT$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-":B'S80İ700 C'S81V1(38366):V2(38376):SU6$:240:SR$UD$:SR$"$"ī1090AUD$QT$SR$QT$:UF$U1$:220K1010dBUD$"$":UF$U1$:220~GUD$(3):UF$U1$:220KTL70İ240:A$UD$:SR$SR$A$EF0ıTL140İ240:A$UD$:SR$SR$A$EF0ıTL210İ240:A$UD$:SR$KS - ***%I(AN$).*(AN$,I,1)" "819B/II1:I1810W3AN$(AN$,I):I1p4(AN$,I,1)" "850>II1:I(AN$)820RAN$(AN$,I) *** KRAM ERROR HANDLER ***KE(11):KE0ı --- DO CONVERSION --- UF$SLOT 6 DRIVE "D1$@ X10:Y10:M$"PLEASE INSERT YOUR ":105t X12:Y5:M$"QUERY DISK (DISK # 2) INTO ":100 X14:Y11:M$R1$:100 X18:Y7:M$"- HIT ANY KEY WHEN READY - ":100 Z$"":Z$:Z$""770   *** - STRIP TRAILING BLAN2 S92R1$"SLOT 6 DRIVE 2":S4$",S6,D2":750G S94İ175:750t (38364)(38374)(38365)(38375)740 175:750 (38374)5R1$"SLOT 6 DRIVE 2":S4$",S6,D2":750 D1$"1":S4$",S6,D1":(38375)1D1$"2":S4$"S6,D2" R1$"F$:UD$:D$:# D$"CLOSE ";UF$:8 S81Ĺ1144S,V1V D$"READ ";UF$:UD$:D$:q 800:X$"":I1(AN$) Z$(AN$,I,1):(Z$"0"Z$"9")(Z$"A"Z$"Z")X$X$Z$ :AN$X$   ** DECIDE AND TELL USER WHERE TO INSERT DISKS ** (A):L(A$):(A$,1)" "A$(A$,L1)P AU$A$:A$("0000000000"A$,A1):A11:^ A12:200l A13:200z A14:200 A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: S81Ĺ1144S,V2 D$"WRITE ";U3:Y0:M$(BL$,SW1):100; (38373)1HC$"Y"ĺD$"PR#0"} HC$"Y"ĺD$"PR#1":(9);(1);(1);"80N";: <<< PTF VEGAS >>> M$:HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3" M$"": R1$"SLOT "((38364))" DRIVE "((38365)) % A$B  **** CNQST.INT.UM ****+ 1000061000:MZPN$"CNQST.AMAINT"f[:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S7$cdX1:Y1:M$;:i:(38373)1ĺ(12)j100n:M$;: }X2     );(1);(1);"80N";"RQST.SYSQLIB.GEN.0.A1 - 060982":I",D"((38365))",V"((38366))\XuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))luS7$",S"((38374))",D"((38375))",V"((38376))vuS8(38377):S9(38378)u4}1:(9'I180:BK$BK$" ":DT$DT$".":IAt'!INIT::!UBUF5:D$(4):p0uA$"":I05:A$A$((38352I)):I:S1$A$:uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((38362))",V"((38363))!NuS4$",S"((38364)) RC$"TIE-BACK LIBRARY "(BK$,10)"LUS"((38370))((38371))((38372))g !ADDNQ$,KY$,RC$:D$;"RENAME SLIB.FD,SYS.QLIB.FD,D"BLD$",V"VL$D$;"RENAME SYSLIB,SYS.QLIB,D"BLD$",V"VL$KY$"&LIB#""001"(BK$,6)"0":2000:%K$,3)*!ADDLB$,KY$,RC$:800:KE72ī1700Y KY$"&LIB#""001"(BK$,6)"0":2000| KY$"&LIB#""000"(BK$,6)"0" RC$"TIE-BACK LIBRARY "(BK$,10)"LUS"((38370))((38371))((38372)) 2010: KY$"&LIB#""000"(BK$,6)"0"Q):!GTRECLB$,KY$,RC$:8001KB(LB$):KB$(KB)L!RDRECKB$,KY$,RC$:800_KE45İ3000:VK((KY$,6,3)):VKVK1:VK$(VK):VK$("00"VK$,3):KY$"&LIB#"VK$(BK$,6)"0":2000:RC$(QN$(BK$,30),30)"L""U""S"SL$BLD$("00"VL$,2)(B":[105:X12:Y2:M$"PLEASE ENTER:":110:X14:Y2:M$"QUERY LIBRARY DESCRIPTION ":110dQN$~QN$""(QN$)30900100:1000:3050:KY$"&LIB#""999"(BK$,6)"0":RC$(BK$,40):AC$SL$"/"DR$":""SYS.QLIB"",V"VO$:710LB$(KE(BK$,38):!GTRECRF$,KY$,RC$:8009v!ADDNB$,KY$,RC$:800T!RDRECRF$,KY$,RC$:800pKE43İ900:::4000:y630!INIT::!CREBASECB$:800:!ACCESSAC$:800: KE(11):KE20KE40KE43KE72KE45ı*::"KRAM ERROR #";KE;" OCCURED":""SYSLIB"",V"VL$",40,15,0":700: ]VO$((38372)) bAC$QS$"/"DR$":""SYS.QLIB.FD"",V"VO$:710:RF$(KE):AC$SL$"/"BLD$":""SLIB.FD"",V"VL$:710:NB$(KE) gAC$SL$"/"BLD$":""SYSLIB"",V"VL$:710:NQ$(KE) lKY$(BK$,21):RC$DR$:110[ X12:Y2:M$"TARGET DISK IN:":110:X14:Y5:M$"SLOT "SL$" DRIVE "BLD$:110 Y7:X16:M$"--HIT ANY KEY TO CONTINUE--":110 DB$:DB$""530 130:600:& XCB$SL$"/"BLD$":""SLIB.FD"",V"VL$",38,21,0":700:CB$SL$"/"BLD$ 62002 105:X12:Y2:M$"PLEASE ENTER:":110k X14:Y1:M$"VOLUME NUMBER OF NEW LIBRARY":110:120 VL$:160:DR$"1":BLD$DR$:SL$((38361)):QS$SL$ 600: 105:X8:Y2:M$"ENTER QUERY DISK IN:":110:X10:Y5:M$"SLOT "QS$" DRIVE ""COPYING . . . . .PLEASE WAIT":110:Q 105:X12:Y5:M$"DISK IS FULL":110: (38362)1DR$"1":BLD$"2":QS$((38361)):SL$QS$: DR$"2":SL$((38361)):BLD$"1":QS$SL$: ,(38361)6BLD$"2":SL$"6":DR$((38362)):QS$((38361)):0:X14:Y12:M$"--PLEASE WAIT--":110:B i:(38373)1ĺ(12):H k\ nX:36,Y:M$;:y xYY(M$)1:M$"":110: 105:BLD$"1"M$"COPYING UP . . PLEASE WAIT":150 M$"COPYING DOWN . . PLEASE WAIT" X12:Y5:110:& 105:X12:Y5:M$6  ***CNQST.SYSQLIB.GEN***A 10000: INITIALIZE VARIABLES`30000:S81İ400:105:90S93İ300:VL$"00":500:105:90(200:VL$"00":500:105:90ZD$"RUN CNQST.UTIL";S7$c' d:X12:Y5:M$"ENTERING DESCRIPTION IN LIBRARY":11      P iP  Pe  yZ myZ  8*Q+Q )Q+QJ+Q +Q i zZ )Q ̅ ( ` PPhhLqQP W` P OPP@PPO LSY,P  -PHH Yhh PP'QPPPP`PPPP Y `e  P'QP8'Q'Q(QPPHJ)  h)i  mP  P P`P P `PjP YYYPʎPPKPPC SLkX(QPPʎPLkXPPPPP'Q P PPY`P;P.P YY$`-YPYY 0:ސP)PPPPPY( OPPڢOP YPPPPP YPPPU Y TP`WWO0 WO)mWW3 /O) Wi WO)mWW WʽlWW`LVPP W`PP [PPSPPPP Y >PPPP T Y H U Yh T TPPPP U Y `PɈMPPPP0QPȽO.,Q P/QPC8,Q .P,Q.Q.QP8.Q/Q 0P-Q ,QmPȌ-Q8PPOPOPF PP'PP+D W`P POȌP` V9U YLV VMU YLV VaU YLVPPP`*P (QPP`P`P(QP PP`P` - HIT "RETURN"FULL INPUT, PLEASE! SOME INPUT REQUIRED INVALID DATE P UP P O P`PPPPH Yh )  @O OPȌP'QPPP˭P`P PP,QO ЍP Y ) ` hTP`-T&TT YHT,HTp @L=T)? TT`PPPP Y H h `,,`PPPPʎPH ThPP S`PPPPIPP UPP Y H T Yh U UPPPPٮPPPP Y `P'QPP`ALPHANUMERICNUMERIC, DECIMAL NOT ALLOWEDOK OP SO 5SOP)SO P4SOPPڢO& YPPPPPPPSPSPSSP YYYYP`PTT T TPɠ)P<YYYPPP('Q(QP'Q(Q(Q f Ɇȱ ȱ ɩ bR {Ʉhh` `PPPPPNPPPP YP RPimP RPmPmPPPPmP$8 RPmPP`'Q 8'Q'Q`PʬP Q RPIN SPLqQ 6S SPɛ )PP`Ʉ vTLPQɍK uUPԮPPPPPNPPPP YPYP)PP Q`ɉ xWLPQɕɈ WLPQ lXLPQ O'QPPڢO(Q Y` `PP 1Q P P P `i j OOOO O ͛O ȱ ͜OL~O i  lۥ kLO Oȱ Oȱ OOOO`OOO )i Oȱ )mOOOOO`N LNPPPPPPPSOCO 5O `O ͧO `O OP OPPOO ) dP OmPPPO )Pȱ )Pȱ )Pȱ )Pȱ PȌPO8PP i  P PDOFO 5OP `PPIONO 5OP     9(38378)uN}1:(9);(1);(1);"80N";"CNQST.SIZEESTM.0.A9 - 082482":"))=NuS4$",S"((38364))",D"((38365))",V"((38366))xXuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))luS7$",S"((38374))",D"((38375))",V"((38376)) vuS8(38377):S3'I180:BL$BL$" ":DT$DT$".":ST$ST$"*":W'NO$"NUMBER OF ":D$(4):30000]s'0uA$"":I05:A$A$((38352I)):I:S1$A$:uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((38362))",V"((38363NO$"DESCRIPTOR DATA SECTORS":MFR:160:M$NO$"DESCRIPTOR INDEX SECTORS":MFK:160 M$NO$"SECONDARY KEY SEGMENTS":MC(N(5NS)):M0M0 160:M$NO$"SECONDARY KEY SEGMENTS PER SECTOR":M(254(K515)):SK0M0 160 M$(12):150 RS HOLDING RELATION DESCRIPTOR FILE":MF:160_ M$NO$"SECTORS IN TOP INDEX LEVEL":MI3:160 M$NO$"SECTORS IN INTERMEDIATE INDEX LEVEL":MI2:160 M$NO$"SECTORS IN BOTTOM INDEX LEVEL":MI1:160T M$NO$"KEYS PER INDEX SECTOR":MKPS:160:M$IMATIONS "(ST$,23):150:150~ M$NO$"TUPLES":MN:160:M$NO$"SECTORS":MS:160:M$NO$"SECTORS HOLDING TUPLES":MD:160 M$NO$"SECTORS HOLDING PRIMARY KEY INDEX":MI:160:M$NO$"SECTORS HOLDING SECONDARY KEY INDICES":MJ:160- M$NO$"SECTO0j M$"NUMBER OF SECONDARY KEYS":MSK:160:M$"AVERAGE DISTINCT SECONDARY KEY VALUES":MNS:NS1İ160 M$"ESTIMATED NUMBER OF TUPLES":MNX:160 150:M$(ST$,27)" OUTPUT CALCULATED VALUES "(ST$,26):150:M$(ST$,24)" ALL ANSWERS ARE APPROXOPY OUTPUT ";:HC$:HC$"Y"HC$"N" M$(BL$,24)"CONQUEST RELATION SIZE ESTIMATOR":150:150:M$(ST$,28)" INPUT PARAMETER VALUES "(ST$,27):150:150 M$"TUPLE LENGTH":ML:160:M$"PRIMARY KEY LENGTH":MK:160:M$"NUMBER OF ATTRIBUTES":MA:16OR":XX1:100:M$" '0' IF NO ESTIMATE: ":XX1:100:N:NXNX N0İ1000:3000:j LO0:HI10000z LOHI2070 N((LOHI)2):1000:S496HIN1:2060 S496LON1:2060 S496NN1:1000 3000 3$ :"DO YOU WANT HARDC100:K; M$"TOTAL NUMBER OF ATTRIBUTES: ":XX1:100:A~ M$"NUMBER OF SECONDARY KEYS":XX1:100:SK:SK0NS1:2050 M$"AVERAGE NUMBER OF DISTINCT SECONDARY":XX1:100:M$" KEY VALUES: ":XX1:100:NS@ M$"ESTIMATED NUMBER OF TUPLES, NTER THE FOLLOWING PARAMETERS...":X2:Y3:100 M$"TUPLE LENGTH (SUM OF ATTRIBUTE LENGTHS,":X4:Y0:100:M$" EXCLUDING PRIMARY KEY ATTRIBUTES)":XX1:100:L:L254ĺ">>> MUST BE LESS THAN OR EQUAL TO 254!!":2005 M$"PRIMARY KEY LENGTH: ":XX1::KPS(251K2):I1C(NKPS):I2C(I1KPS):I3C(I2KPS) II1I2I3:JSKC(NS(254(K515)))C(N(5NS)):FRC(((A53SK)38)254):FKC(((A53SK)21)254):FFKFR2:SDIJF K M$"CONQUEST RELATION SIZE ESTIMATOR":X0:Y4:105. M$"E;: i:(38373)1ĺ(12)% j100. n100P (38373)1HC$"Y"ĺD$"PR#0"g HC$"Y"ĺD$"PR#1"o M$ HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3" M$"": A$("......"(M),5):M$(M$" "DT$,70)A$:1507 DC(N(254L))2:K2K3O  *** CNQST.SIZEESTM ***)33,40C C(X)(X)(X(X))N10000X2000Z::(BL$,5)"RUN THE ESTIMATOR AGAIN (Y/N)";:A$:A$"Y"Ĭ_X10:Y10:M$"JUST A MOMENT PLEASE...":105a:D$"RUN CNQST.UTIL";S7$c d:X1:Y1:M$     78) uD}1:(9);(1);(1);"80N";"CNQST.UTIL - 071682 - 2.0":1S4$",S"((38364))",D"((38365))",V"((38366))qXuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))luS7$",S"((38374))",D"((38375))",V"((38376))vuS8(38377):S9(383 IN DRIVE 2"6:15:"HIT ANY KEY WHEN READY":Z$""JZ$:Z$""7060PV0uA$"":I05:A$A$((38352I)):I:S1$A$:uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((38362))",V"((38363))6NuZ$""7035+Z(Z$):Z1Z4Z$"":7035HZ1PN$"CNQST.GEN.DDM"eZ2PN$"CNQST.GEN.DQD"Z3PN$"CNQST.GEN.DQP"Z41000:(38373)1ĺ(12)15:"S E T U P":10:1:"REQUEST SYSTEM MASTER IN DRIVE 1" :17:"BLANK DISKNERATION SUB-SYSTEM MENU":Lb"1. DATABASE DEFINITION/MAINTENANCE DISK":xg"2. DATABASE QUERY DEVELOPMENT DISK":l"3. DATABASE QUERY PRODUCTION DISK":q"4. RETURN TO MAIN MENU":v" GENERATE WHICH TYPE OF DISK ?":Z$"" {Z$:RPT"Z56099hD$"OPEN SYS.PASS,D1":D$"DELETE SYS.PASS":D$"OPEN SYS.PASS":D$"WRITE SYS.PASS"QT$;QN$;".QRY";QT$:D$"CLOSE SYS.PASS"PN$"CNQST.PRE.QRUN":200X *** ENTER GEN S/S *** Y:(38373)1ĺ(12)]" DISK GE TITLE CONTEXT":7" 5. RETURN TO MAIN MENU":g" SELECT A FUNCTION, PLEASE";:Z$""{Z$:Z$""6035Z(Z$):Z1Z5Z$"":6035Z1QN$"SQL.DIRDSP"Z2QN$"SQL.DIRRPT"Z3QN$"SQL.DCSDSP"Z4QN$"SQL.DCSYS.QLIB S/S ***(q:(38373)1ĺ(12)Uu" QUERY LIBRARY SUB-SYSTEM MENU":z" 1. DISPLAY ENTIRE DIRECTORY":|" 2. PRINT ENTIRE DIRECTORY":" 3. DISPLAY DIRECTORY BY TITLE CONTEXT":" 4. PRINT DIRECTORY BY:(4)"RUN CNQST.QSHELL"S7$C<Z4PN$"CNQST.SIZEESTM":S9$S7$:l=Z5İ700:PN$"CNQST.MAIN":S9$S3$:~AZ6ė:57344B1000K Z$:Z$""3035 ** UTILITIES DISK **800:PN$"CNQST.UTIL"D$"RUN ";PN$;S7$p *** ENTER ST":100D .XX2:M$" SELECT A FUNCTION, PLEASE ":100:Z$""X 3Z$:Z$""1075r 5Z(Z$):Z1Z61075 9Z1PN$"CNQST.SYSQLIBGEN":S9$S7$: :Z2PN$"CNQST.INT.EX":S9$S7$:;Z3İ200:!UBUF1:19967::(4)"BLOAD CNQST.EDITOR.HI"S7$ SUBLIBRARY ":100D XX2:M$"2. IMPORTING DATA TO CONQUEST":100z XX2:M$"3. GENERATE YOUR OWN REPORT SHELL":100 XX2:M$"4. ESTIMATE SIZE OF RELATION":100 XX2:M$"5. EXIT TO CONQUEST MAIN MENU":100 XX2:M$"6. EXIT FROM CONQUESF I180:BL$BL$" ":DT$DT$".":X$X$"":Y$Y$"":NL$NL$(0):Q 30000k (38373)1ĺD$"PR#3"q   DISPLAY MENU & GET CHOICE :(38373)1ĺ(12) X0:Y5:M$"U T I L I T I E S M E N U":105 XX2:Y1:M$"1. GENERATE QUERY8);", DRIVE ";(38359);" & HIT 'RETURN'":Z$""? Z$:Z$""ıE K ^ (38376)0ı *X10:Y5:M$"INSERT UTILITIES DISK":105: ,X11:Y7:M$"IN SLOT "((38374))", DRIVE "((38375))" & HIT 'RETURN'":100:Z$"" /Z$:Z$""ı 41:"JUST A MOMENT PLEASE ...":* Z3ı@ D$"RUN ";PN$;S9$} ,X10:Y4:M$"INSERT DISK(S) AND HIT 'RETURN'":105:A$"" 1A$:A$""305 5  (38360)0ı X10:Y1:M$"INSERT QUERY DEVELOPMENT DISK":105:. " IN SLOT ";(3835F4 *** CNQST.UTIL - MAIN DRIVER - DUD DIK ***C !UBUF 5:N33,40`D$(13)(4)i900s1000(Z4İ7002200cd:X1:Y1:M$;:i:(38373)1ĺ(12)PLEASE..." j100n100:(38373)1ĺ(12) 12:     2::MO$"*"LTL1L2:*?LTL1L2:BXEM((R$(I),25,1))]YEM1EM2EM3630q]EM610,615,620bRP$(RP$,2)(RP$,4,2)(RP$,7,2):gRP$(RP$,3)(RP$,5,3)(RP$,4):lRP$(RP$,3)(RP$,5,2)(RP$,4):;vDD$"N"(RP$,SLLMC1:JJ:~X10:Y0:M$"UPDATE FOR KEY "KY$" CANCELLED ":105:X12:M$"DUE TO INVALID DATA AS PER CRITERIA "(C):100:X22:Y5:M$" - HIT ANY KEY TO CONTINUE -":100Z$"":Z$:Z$""520 :0MO$"+"LTL1L2:5MO$"-"LTL1LLTL1L2#DY$"A"RP$LT$:499eRPLT:RN100:L((R$(JJ),21,3)):((R$(JJ),25,1))3RN1000RP((RPRN).5)RN:RP$(BL$,L)(RP):RP$(RP$,L)RC$(RC$,SB1)RP$(RC$,SBL):ER0ĂJJ:JJNAOP$"="İ495:ER0:JJ: JJNA3DY$"N"RP(RP$)GNI1NL:LT$(CC$(JJ,NI),L):DY$"A"470iLT(LT$):800:ER1ĂNI:500~NINL1:NI:500860:ER1ĂNI:500NINL1:NI:500MO$"+"LTL1L2:499MO$"-"LTL1L2:499MO$"*"LTL1L2:499 RL(C3)):K3$RP$:F2$F2$(C3):!GTRECF2$,K3$,R3$:ER0:(11)40(11)43ER1:500]900:500u ** CRITERIA 4 **MO$(C$,20,1):WW2:385L1LT:WW21:385:L2LT560RP(RP$):LT((LT))800:500 ** CRITERIA 5 **NL(C$):OP"/R1$(BL$,38):!GTREC1,K1$,R1$:(11)40ij_L2(C2)((R1$,21,3)):S2(C2)((R1$,26,4))LT$(RC$,S2(C2),L2(C2)):DY$"N"RP(RP$):LT(LT$):800:500860:500 * * CRITERIA 3 * *C3C31:L3(C3)0İ12000:ER1500OR3$(BL$,):DY$(R$(JJ),24,1)/C5OP$(C$,1):850JC410,420,435,445,460LT$(C$,5,L):DY$"N"LT(LT$):RP(RP$):800:500860:500 ** CRITERIA 2 **C2C21:L2(C2)0430FF((C$,2,3)):AFF:203:K1$"&FIELD#"A$(BL$,10)"0(C$,WW,3):LT$"LLL"LT((C$,WW3,15):NLT(LT$):C4C41:L4(C4)0İ375oLT((RC$,S4(C4),L4(C4))):JJ1NAMC:C((R$(JJ),31,1)):C0(R$(JJ),30,1)"U"C6ĂJJ:ER0:C$C$(JJ):L((R$(JJ),21,3)):SB((R$(JJ),26,4)):RP$(RC$,SB,LI(KA$)sW14Wt(KA$,I,1)(NG$,W,1)KA$(KA$,I1)(BL$,20):KA$(KA$,20):nuW:II1:I0371tvwALT:203:K1$"&FIELD#"A$(BL$,10)"0":R1$(BL$,38):!GTREC1,K1$,R1$:900|S4(C4)((R1$,26,4)):L4(C4)((R1$,21,3)):)LT$271 TF0:Z$"Y"TF1S 120:M$"PREPARING FOR THE UPDATE":Y5:X10:100::` ,I(AN$)y 6(AN$,I,1)" "320 ;II1:I1310 @AN$(AN$,I): ^I(AN$) c(AN$,I,1)","365 hII1:I1355 mAN$(AN$,I1):A1$(DB$,I):r"":Z$:Z$"Y"Z$"N"250V Z$"Y"VC1:M$"ALL CRITERIA TO BE VALIDATED ":270 VC0:M$" NO CRITERIA VALIDATION ": 100:J1350:J 120:M$"DO YOU WANT AN AUDIT TRAIL PRINTED ":Y0:X10:100 Z$"":Z$:Z$"Y"Z$"N"14:200 A15:200$ A16:2002 A17:200@ A18:200N A19:200g D$"OPEN ";UF$;UU$: D$"WRITE ";UF$:UD$;CR$;:D$: D$"CLOSE ";UF$: D$"READ ";UF$:UD$:D$: 120:X10:Y5:M$"VALIDATE ALL CRITERIA (Y/N) ":100 Z$$"PR#3" M$"":: CC1NAMC:ANSS(CC)ĂCC:YN0: YN1:MCMC1:SS(NAMC)CI:R$(NAMC)RC$:C$(NAMC)RR$:CCNAMC2:CC: A$(A):L(A$):(A$,1)" "A$(A$,L1) AU$A$:A$("0000000000"A$,A1):A11: A12:200 A13:200 A;: i:(38373)1ĺ(12)% j1002 n:M$;:J xX0:Y0:M$MM$:105k }X23:Y0:M$(BL$,SW1):100w TF0ı (38373)1ĺD$"PR#0" D$"PR#1":(9);(1);(1);"80N";: < << PTF VEGAS >>> M$:D$"PR#0" (38373)1ĺD&$ *** CNQST.AMAINT *** / 10000IMS$"COMPLETE"İ1000Z700:AC0ĬZPN$"CNQST.QMENU":AC2PN$"CNQST.MAIN"[:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S3$c dX1:Y1:M$                !!! ! ! ! ! !(SR$,34):RC$(BL$,30)"N ":10140~&'TLTL((SR$,31,3)):KY$(RA$,20)"0":RC$(BL$,38):!GTREC1,KY$,RC$:(11)40ij&'R$(CI)RC$(SR$,31,3):(RC$,31,1)"N"VC0(R$(JJ),30,1)"U"(RC$,31,1)"6"10150''C$(RC$,31,1):KC$(KY$,20)C$:!GTNA10:R$(DA),C$(DA),CC$(DA,20),SS(DA)0%'250[%'CI1NA:UF$U6$:240:SR$UD$:EF0ij%'KA$(SR$,20):370:KA$KA$"0":RA$(BL$,38):!GTREC1,KA$,RA$:(11)40İ13000%'(11)40ZZ$"E"MS$"CANCELLED":)&'(11)40ZZ$"C"SR$(SR$,30)"000"NIT:QT$(34):CR$(13):TC0:D$(4):OC$"<>=#LG":NG$"+-*/"q$.'SW40:CR$(13):MM$"MASS UPDATE":MS$"COMPLETE"$8'I1254:BL$BL$" ":NL$NL$(0):$t'U6$"SYS.MAINT":UU$S7$:UF$U6$:210$y'UF$U6$:240:11000'%~'UF$U6$:240:NA$UD$:NA(NA$):DADISK TO BE UPDATED INTO":X12:Y5:100c#2#M$"SLOT "(DB$,1)" DRIVE "(DB$,3,1):X14:Y13:100#7#M$"- HIT ANY KEY WHEN READY - ":X17:Y7:100#<#Z$"":Z$:Z$""9020#F#:!INIT:11000#' *** - INITIALIZE - ***#'!UBUF7:33,40:30000<$'!ID":J12000:J::5"TL70İ240:A$UD$:SR$SR$A$B"EF0ıe"TL140İ240:A$UD$:SR$SR$A$r"EF0ı"TL210İ240:A$UD$:SR$SR$A$"EF0ı"?"(#S81MS$"CANCELLED":30")#M$"PLEASE INSERT YOUR ":X10:Y11:105&#-#M$"DATA D":1090H!8AP$"P"AP$"P":!PUT2,KY$,RC$:900:M$M9$" UPDATED":1090p!=!ADD2,KY$,RC$:M$M9$" ADDED":1090!B150:EF01005!K!LM$"UPDATE IS CANCELLED":X10:Y10:105!QM$"DUE TO INVALID KEY SPECIFICATION":X12:Y5:100"VMS$"CANCELLEDD$(R$(I),24,1)3 RP$(SR$,SP,SL):SLLİ600W SB1RC$RP$(RC$,EB1):1070| EBRLRC$(RC$,SB1)RP$:1070 RC$(RC$,SB1)RP$(RC$,EB1) .SPSPSL:I:VC1İ400 0M9$(BL$,8)KY$(BL$,16)!3ER1ER0:510:M$M9$" CANCELLE,SL):SLLİ6004KY$KY$RP$:SPSPSL:I:KT$KY$ZX10:Y17:M$KY$(BL$,10):100:AP$"P":!GTREC2,KT$,RC$::(11)40(11)43AP$"A":RC$(BL$,RL) IAK1NA:SB((R$(I),26,4)):L((R$(I),21,3)):SL((R$(I),3)):EBSBL1:SL01070 0:M$" PROCESSING KEY ":100:NRC$(BL$,RL):KY$(BL$,KL):C20:C30:C40wEF0:UF$U6$:240:SR$UD$:EF11090SR$"$"EF1:1090TL70İ1500KY$"":SP1:I1AK:SL((R$(I),3)):L((R$(I),21,3)):SL0IAK1:1100RP$(SR$,SPI,1)):IILLPP1:#IILLPP2)G --- DO UPDATE --- M$"UPDATE REPORT FOR "DB$" RELATION":LM((M$)2):LM0M$(BL$,LM)M$150:150:150:M$(BL$,10)"KEY"(BL$,20)"ACTION":150:150120:M$DB$:X0:Y15:100:X10:YgPP2IL:hILER1:%i;kPP3ER1:IL:AlWpPP3IL:ER0:bqER1:wuPP2ER1:IL:}vzPP1ER1:IL:{ *** KRAM ERROR HANDLER ***KE(11):KE0ıPP3:II((RP$,I,1)):LL((LT$,1:9RPLTER0:":ER1:5>RPLTER0:@?ER1:_RI16:OP$(OC$,I,1)ĂIqWOPI:I7:I:z\ER0]I1L:950:OP865,870,875,880,885,890^I:aPP1IL:bPP2IL:ER1:cILER1:dfPP1ER1:IL: RETURN TO MAIN MENU ":100:Z$""4Z$:Z$""750:MZ$"1"AC1:`Z$"2"AC2:oZ$"":750 OP805,810,815,820,825,830%RPLTER0:&ER1:*RPLTER0:+ER1:/RPLTER0:0ER1:4RPLTER0:5ERM$"QUERY DISK (DISK #2) INTO":X14:Y10:100nM$"SLOT "(S3$,3,1)" DRIVE "(S3$,6,1):X16:Y13:100M$"- HIT ANY KEY WHEN READY - ":X19:Y7:100Z$"":Z$:Z$""718X12:Y0:M$"1. RUN ANOTHER QUERY":100!X13:Y0:M$"2.A1(AN$)7AN$(RR$,21,3):AN$"LLL"A20:692EA2(AN$)cA10ANA1:175:YN1ıyA20ANA2:175UF$"":230M$"UPDATE IS "MS$" !":X9:Y10:105:J11000::S81720M$"PLEASE INSERT YOUR":X12:Y12:100.,1)" "X10:Y0:M$"WARNING - NUMBERIC VALUE TOO LARGE":WwDD$"N"RP$(RP$,L):sxDD$"A"RP$(RP$,L): ** CHECK IF CRITERIA IS AFFECTED BY THOSE SELECTED **YN0:C2AN((RR$,2,3)):175:AN$((RR$,2,3)):AN$"LLL"A10:685(38368))",V"((38369))T.buS6$",S"((38370))",D"((38371))",V"((38372)).luS7$",S"((38374))",D"((38375))",V"((38376)).tuS8(38377):S9(38378).u.}1:(9);(1);(1);"80N";"CNQST.AMAINT - 072982 - 2.0":1I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2)h-:uS2$",S"((38358))",D"((38359))",V"((38360))-DuS3$",S"((38361))",D"((38362))",V"((38363))-NuS4$",S"((38364))",D"((38365))",V"((38366)).XuS5$",S"((38367))",D"( UPDATE (E)":X16:100/,2X17:M$"":100M,2ZZ$"":ZZ$:ZZ$""13035j,2ZZ$"C"ZZ$"E"13035~,2:ZZ$"C"İ285,2,PF *** DOS ERROR HANDLER ***,QF"DOS ERROR CODE: ";ER$;",";EM$;","ET$;",";ES$,F:--0uA$"":I05:A$A$((38352:R3$(BL$,38):!GTRECF1$,K3$,R3$:RL(C3)((R3$,4))9+.j+2120:M$"ATTRIBUTE "(SR$,20):X10:Y7:100+2M$"NOT FOUND !!":X12:Y10:100+2M$"DO YOU WANT TO :":X14:Y10:100:Y12+2M$"- CONTINUE WITHOUT IT (C)":X15:100,2M$"- EXIT FROM0):300:SD$(C$,31,3):VV$(C$,34,3):ER0N*.SD$" "SD$(DB$,3):VV$A1$*.R1$SD$AN$".FD,V"VV$:!ACCESSR1$:KE62ER1:RETUR*.F1$((11)):R2$SD$AN$",V"VV$:!ACCESSR2$:(11)62ER1:*.F2$(C3)((11))3+.K3$"&SYSCNTRL"(BL$,11)"0"!GTREC1,KY$,RC$:(11)40ijS)*RL((RC$,1,4)):KL((RC$,5,2)):RA((RC$,10,3)))*KY$"&KEY01"(BL$,14)"0":!GTREC1,KY$,RC$:AK((RC$,4,3)):AK0AK1)*!ACCESSDB$:(11)2ī9000)+). * * ACCESS DATABSE FOR CRITERIA 3 * ***.AN$(C$,5,2C1,KY$,RC$:(11)40CI0ĂCIC('C((RC$,31,1)):C2C4ĂCI:('KC$(KY$,20)(C):RR$(BL$,38):!GTREC1,KC$,RR$:650:CI:('(*AN$UD$:DB$AN$:350:FD$AN$".FD"A1$:!ACCESSFD$:(11)1ī9000)*KY$"&SYSCNTRL"(BL$,11)"0":RC$(BL$,38):REC1,KC$,RC$:(11)40ij6''C$(CI)RC$:C$"5"10150>''J1|''CC$(CI,J)(RC$,5,15):(RC$,20,1)" "C$(CI)(J):10150''JJ1:!RDREC1,KC$,RC$:10144''SS(CI)((KY$,8,3))'':VC0ı('CI0RA:ACI:203:KY$"&FIELD#"A$(BL$,10)"0":!GTRE8362))",V"((38363))RNuS4$",S"((38364))",D"((38365))",V"((38366))XuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))luS7$",S"((38374))",D"((38375))",V"((3837;\NX22:Y0:M$"ANY CHANGE ":100:T$"":T$:T$""T$"N"MaNT$"Y"20000SfN0uA$"":I05:A$A$((38352I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2):uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((33))4NS11S1720000/>NS21S2220000NHNS9$",S"(S1)" ,D"(S2)fMNS1(38374)20060RNX14:Y8:M$"CORVUS VOLUME NUMBER ":100WNVV$"":VV$:VV$""(VV$)1(VV$)25420050XNS9$S9$",V"VV$YNV1(38366):V2(VV$):S(38374)CI)((SR$,31,3))#'TLTLAL(CI)E'400:UD$"="AN$:UF$U1$:220`'XCI:Y5:M$AN$:100:f'l' NX10:Y5:M$"PLEASE ENTER THE SLOT/DRIVE":105%NX12:M$"OF THE INTERFACE FILE ":100*NS9$:S9$""20000/NS1((S9$,1)):S2((S9$,:U1$"SYS.INTERFACE":D$"OPEN";U1$;S9$:D$"DELETE"U1$:UF$U1$:D$"OPEN";U1$y'UF$U6$:240:SR$UD$:RT$(SR$,15):WD((SR$,16,3)):TE$(SR$,19)~'UF$U6$:240:NA$UD$:NA(NA$):AL(NA2)'CI1NA:UF$U6$:240:SR$UD$:EF0ij'AN$(SR$,30):AL(+'!INIT:QT$(34):CR$(13):TC0:D$(4)?.'SW40:CR$(13)~8'I180:DT$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-":='S9$S7$:S81İ20000B'X0:Y0:M$"THE FOLLOWING MARKERS WERE FOUND:":105:t'U6$"SYS.SPOOL":UU$S4$:UF$U6$:210Ku'(SI):BEF01000/GUD$(3):UF$U1$:2205KWTL70İ240:A$UD$:SR$SR$A$dEF0ıTL140İ240:A$UD$:SR$SR$A$EF0ıTL210İ240:A$UD$:SR$SR$A$EF0ı?' *** - INITIALIZE - ***'!UBUF2:33,40:30000,I) * *** KRAM ERROR HANDLER ***?KE(11):KE0ıEb --- DO CONVERSION ---EF0:UF$U6$:240:SR$UD$:EF11090SR$"$"EF1:1090TL70İ1500TI1:SI1(NA):AN$(SR$,TI,AL(SI)):800:UD$AN$:UF$U1$:220:TITIALAC2:PN$"CNQST.MAIN":; Z$"4"AC3:PN$"CNQST.UTIL":JZ$"":750r  *** - STRIP TRAILING BLANKS - ***%I(AN$)*(AN$,I,1)" "819/II1:I18103AN$(AN$,I):I14(AN$,I,1)" "850>II1:I(AN$)820RAN$(AN$OW":1054 X12:Y0:M$"2. RUN ANOTHER QUERY":100h X13:Y0:M$"3. RETURN TO MAIN QUERY MENU":100 X14:Y0:M$"4. RETURN TO UTILITIES MENU ":100 Z$"":Z$:Z$""750  Z$"1"AC0: Z$"2"AC1:PN$"CNQST.QMENU":Z$"3"ADY - ":100% JZ$"":Z$:Z$""330+ OF 800:X$"":I1(AN$) Z$(AN$,I,1):(Z$"0"Z$"9")(Z$"A"Z$"Z")X$X$Z$ :AN$X$  UF$"":230 A$"PRINT":DV3A$"DISPLAY" X11:Y0:M$"1. EXIT CONQUEST TO BOOT MAGIC WIND;CR$;:D$:! D$"CLOSE ";UF$:7 V20Ĺ1144S,V1U D$"READ ";UF$:UD$:D$:a ,S81ı 1X12:Y5:M$"PLEASE INSERT YOUR QUERY DISK":105 ;X14:Y9:M$"IN SLOT "((38361))" ,DRIVE "((38362)):100 @X16:Y7:M$"- HIT ANY KEY WHEN REA$):(A$,1)" "A$(A$,L1)H AU$A$:A$("0000000000"A$,A1):A11:V A12:200d A13:200r A14:200 A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: V20Ĺ1144S,V2 D$"WRITE ";UF$:UD$:(38373)1ĺ(12) j100) n:M$;:J }X23:Y0:M$(BL$,SW1):100l (38373)1HC$"Y"ĺD$"PR#0" HC$"Y"ĺD$"PR#1":(9);(1);(1);"80N";: <<< PTF VEGAS >>> M$:HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3" M$"": A$(A):L(d **** RQST.INT.MW ***** 10000:51000:M700:AC0ė:57344SFnPS9$S7$:AC3S9$S3$~UAC3İ300Z:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S9$cdX1:Y1:M$;: i"" " " " " """""""""