' +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::"EXECUTE QUERY JUST COMPILED (E)"LCR"COMPILE ANOTHER QUERY (C)"sCR"RETURN TO MAIN MENU (M)"CRES255ĺ:"ACTION DESIRED (C/M) ";A$:21015CR:"ACTION DESIRED (E/C/M) ";A$CRA$"E"ES25521050DRA$"C"(EC):1507BNM$"HIGHEST SEVERITY LEVEL: "(ES):150QBNO20ES255İ15000BN22000:150:M$"END OF COMPILATION":DP1İ150BNUF$U3$:230BN21000:90BRES255ĺ::PN$""::D$"CLOSE":21006B RDP1PN$"CNQST.QCTBG":21050%C RPN$"":"$CRT":2035AJHS2:-A N9000:EF1E91]A>NSC1000,2000,3000,4000,5000,6000,7000,8000nAHNE90ī20000ANES255M$"COMPILATION CANCELLED":170ANEX0İ6000AN150:150ANM$"TOTAL SOURCE STATEMENTS: "(IC) BN150:M$"TOTAL ERRORS: "RY":150:+@hB"SUPERKRAM ERROR CODE: ";KE1@B7@PFf@8JRC$"$CRT ":ASW:203:RC$RC$A$@BJTL$""TL$"OUTPUT RESULT OF QUERY: "SN$@LJRC$RC$TL$:UD$RC$:UF$U1$:220@VJM$"NO 'ASSIGN' FOUND - DEFAULT GENERATED" A`J160:SL1:180:RA$,1)"1"PL$PL$"MM/DD/YY"H?:(RC$,25,1)"2"PL$PL$"(999) 999-9999"s?:(RC$,25,1)"3"PL$PL$"999-99-9999"?:(RC$,25,1)"4"PL$PL$"9.99"?:(RC$,25,1)"6"PL$PL$"9.9999999"?:M$PL$:150:KY$KS$:15020 @:150:DD:M$"END OF DICTIONA:KE4315100*>:KY$(RC$,20)"0":27000C>:PL$(RC$,20)" "x>:(RC$,24,1)"N"PL$(" "PL$"NUMERIC"BL$,42)>:(RC$,24,1)"A"PL$(" "PL$"ALPHA-NUMERIC"BL$,42)>:PL$PL$(RC$,21,3)" ":(RC$,25,1)" "PL$PL$"NONE"?:(RC$,25150=:DD1DP:RE$(RD$(DD),30):KY$("&SYSCNTRL"BL$,20)"0":AN$RE$:800:RE$AN$:M$(BL$,((80((RE$)8))2))"*** "RE$" ***":150:150=:M$" ATTRIBUTE TYPE LENGTH EDIT-MASK":150:150 >:FDD:27000:26000:KS$KY$50 &O#LGC":CS$"+-*/=<>:"8V' 1,2,9,7,5,5,6,6,8,4,3,4,4,3,3,4,4,4,4 8['X(SY$):SK(25),PI(X),PN$(50),AN$(50):I1(SY$):PI(I):@9)X10:Y0:M$PEN SYS.TRNS.S"S5$::D$;"DELETE SYS.TRNS.S"S5$f7'D$;"OPEN SYS.SPOOL "S4$:D$;"DELETE SYS.SPOOL "S4$7'D$;"OPEN SYS.TRNS.W"S5$:D$"DELETE SYS.TRNS.W"S5$7'UU$S5$::16368,07'!INIT:LX1:TS1:TA1:LA1:QT$(34) 8.'A11:SW40:I1SW:X$X$"":Y((38371))",V"((38372))VluS7$",S"((38374))",D"((38375))",V"((38376))rvuS8(38377):S9(38378)xu}1:(9);(1);(1);"80N";"RQST.QMENU - 060182 - 2.0":"((38358))",D"((38359))",V"((38360))jDuS3$",S"((38361))",D"((38362))",V"((38363))NuS4$",S"((38364))",D"((38365))",V"((38366))XuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"ODE: ";KEB:3PF *** DOS ERROR HANDLER ***@fQF"DOS ERROR CODE: ";ER$;",";EM$;","ET$;",";ES$nF:e *** RETRIEVE 1ST REC IN NEXT SET ***eZ(O)e!RDRECQL$,KY$,RC$:900e0uA$"":I05:A$A$((38352I)):I:S1$A$/:uS2$",S(34):D$(4)B'I180:BL$BL$" ":DT$DT$".":NL$NL$(0):I$'QF$(S6$,3,1)"/"(S6$,6,1)":SYS.QLIB"(S6$,7):!ACCESSQF$:900:QL$(KE):KE1ij.'KY$(NL$,15):RC$(BL$,40)s'hB *** SUPERKRAM ERROR HANDLER *** iB"SUPERKRAM ERROR C$((11))GXKY$"&LIB#000"(BL$,6)"0":!GTRECQL$,KY$,RC$:900~]S((RC$,34,1)):D((RC$,35,1)):V((RC$,36,2))b6050g' *** INITIALIZE ***'!INIT::(38373)1ĺ(4)"PR#3":(12)'ME$(20),QQ$(20):30000'CR$(13):QT$5:100 Y$"":Y$:Y$""6069?38370,S:38371,D:38372,VJ30050|X22:Y0:M$"JUST A MOMENT PLEASE . . .":100QF$(S)"/"(D)":SYS.QLIB,V"(V):!ACCESSQF$:(11)62M$"NO QUERY LIBRARY WAS FOUND !":100:J11000:J:6000 QLX10:Y10:M$"PLEASE INSERT YOUR ":100SAN$(QQ$(Z),30):800:Y((40I)2)2pX12:M$"'"AN$"'":100X14:M$"QUERY LIBRARY DISK INTO ":Y8:100X16:M$"SLOT "(S)" DRIVE "(D):Y11:100X20:M$"- HIT ANY KEY WHEN READY - ":Y SUB-SYSTEM":"ENTER QUERY LIB# OR 'N' FOR NEXT PAGE";BZ$gZ(Z$):Z0Z$"N"Z$"":6030vZNQ6000RC$QQ$(Z):S((RC$,34,1)):D((RC$,35,1)):V((RC$,36,2))Z16070S816070:(38373)1ĺ(12)S816070)!RDRECQL$,KY$,RC$:5005?p *** SHOW QUERY LIBRARY MENU ***Xq:(38373)1ĺ(12)zrQQ$(1)"SYSTEM QUERY LIBRARY"u"Q U E R Y L I B R A R Y M E N U":vI119zAI:202:M$(A$". "(QQ$(I),30)):M$:I "20. EXIT QUERY EXECUTION$:D$"DELETE SYS.PASS":U1$"SYS.PASS":UU$S4$:UF$U1$:210m AN$(ME$(Z),15):800:UD$AN$".QRY":220:230s QF0:KY$"&LIB#000"(BL$,6)"0":!GTRECQL$,KY$,RC$:(11)43ı(KY$,5)"&LIB#"ıQF1:NQ((KY$,6,3))1:QQ$(NQ)RC$AIN QUERY LIBRARY MENU"B"20. EXIT QUERY EXECUTION SUB-SYSTEM"m"ENTER QUERY # OR 'N' FOR NEXT PAGE";uZ$Z(Z$):Z0Z$"N"Z$"":2030Z202030Z19QF1İ7000:3 *** SET UP SYS.PASS ***: D$;"OPEN SYS.PASS"S4187I1QN:PF$"":(ME$(I),48,1)"P"PF$"PRINT "^(ME$(I),48,1)"C"PF$"DISPLAY "(ME$(I),48,1)"L"PF$"LABEL "(ME$(I),48,1)"G"PF$"ILLUSTRATE "AI:202:M$(A$". "PF$(ME$(I),16,30),39):M$:IQF1ĺ"19. DISPLAY M,KY$,RC$:900:1010 26000= KE0KE43KE4017000M KE431099u ME$(MC)KY$RC$:MCMC1:KE431099 MC201007 K  *** SHOW PAGE / GET CHOICE *** :(38373)1ĺ(12) " Q U E R Y M E N U":QN19:QF1QN - *** %I(AN$), *(AN$,I,1)" "819@ /II1:I1810S 3AN$(AN$,I):t  *** KRAM ERROR HANDLER *** KE(11):KE0ı   *** GET PAGE OF SYS.QLIB DIRECTORY I119:ME$(I)"":I:MC1 KY$"&LIB#999"(BL$,6)"0":!GTRECQL$: A12:200 A13:200, A14:200: A15:200H A16:200V A17:200d A18:200r A19:200 D$"OPEN ";UF$;UU$: D$"WRITE ";UF$:UD$:D$: D$"CLOSE ";UF$: D$"READ ";UF$:UD$:D$:  *** - STRIP TRAILING BLANKSM$;:' }X23:Y0:M$(BL$,SW1):100B M$:HC$"Y"Ċ1:M$:0N M$"":x M$"****> ERROR: "M$:150:ECEC1: M$"====> "M$:150: ESSLESSL A$(A):L(A$):(A$,1)" "A$(A$,L1) AU$A$:A$("0000000000"A$,A1):A113000: *** SET UP SYS.PASS4 Z:(38373)1ĺ(12)[ [12:1:"JUST A MOMENT, PLEASE..."n \!UBUF10:13056y _30000 a(4)"BLOAD CNQST.QRUN.OBJ";S3$ b(4)"RUN CNQST.QPREP";S3$ c dX1:Y1:M$;: i:(38373)1ĺ(12) j100 n: **** RQST.QMENU ***9 10000: *** INITIALIZE,m5000: *** CHECK FOR MORE THAN ONE LIBRARY ***}QF1İ60001000: *** GET A PAGE#2000: *** SHOW THE PAGE$Z20ĺ:(4)"RUN CNQST.MAIN";S3$%QF1Z1920'Z030 (      :WZ$(IN$,II1,1):W0:W$";"W126$W$","W2B6$W$" "W3H6$Z6$WZ$","9450~6$M$"NO ';' FOUND - FORCED":1606$SL1:180:W$";":W1:6$CC1:9000:CC06%6'!UBUF5:33,40::(38373)1ĺ(4)"PR#3":(12).7'30000:D$(4):D$;"O(IN$,II,1)QT$QM1:IIII1@5m$I$(IN$,II,1):II(IN$)9350u5r$(I$","I$";"I$" "II(IN$))IIII1:93205s$(I$" "I$",")QM0IIII1:93205t$I$QT$QM0:IIII1:93505$ILIIIS:WD$(IN$,IS,IL):IL0WD$I$:IIII1"6$W$(WD$,1)C8:CSC4#.4#IN$"":EF0:D$;"READ ";U3$64#A$G4#A$CR$9199w4#A$(32)A$(255)A$"@"EF1:E9EF:91994#IN$IN$A$:91104#II1:D$:4T$QM0:II(IN$)EI1:W$" ":W3:4^$I$(IN$,II,1):I$" "IIII1:93004c$WD$"":ISII5h$3cA$";"A$""&3gX$X$A$::TL$X$,3S3(#9100:ICIC1:(IN$,1)";"SC0:r32#9300:C1:CIC:CC090993F#W$(CC$,C,1)90403K#CC1:C(CC$)90303M#M$WD$" IS AN UNKNOWN COMMAND - DISCARDED":180:ES14P#SCC:W$"O"(WD$,2,1)"R"SM$"DOMAIN":695082(A$,2,1)"1"M$"SELECT":6950[2(A$,1)"1"M$"WHERE":69502&M$M$" STATEMENT MISSING":EX1:160:SL255:ESSL:201002XL(IN$):TL$(IN$,LII):TL$(TL$,(TL$)1)2bX$"":I1(TL$):A$(TL$,I,1):A$(34)A$"'"1pVS1116900"1rLX06090F1uALX1:203:UD$A$:UF$U1$:220v1zI1LX1:UD$QT$LT$(I)QT$:UF$U1$:220:1UD$"$":UF$U1$:2201UF$U1$:230:UF$U2$:230:M$"END OF QUERY DEFINITION":170:1501E91:EX1:2AVS:203:(A$,1)"1"L ATOMS GENERATED BY 'WHERE' CLAUSE":170j0,ACA:203:UF$U1$:UD$A$:220:UF$U2$:UD$"$":220:230:210{0/ER01800001TB0594002I1TB:UD$TB$(I):UF$U1$:220:04ET0:UF$U2$:240:ET059990>UF$U1$:220:ET059401oUF$U2$:230:$,3))):(X$,4)"$CRT"X$"$CRT"(N2$,24,1)(X$,(X$)5):5243/z(N2$,24,1)"N"X$(BL$LT$(((R2$,3))),((N2$,21,3)))/{DA$DA$X$/UF$U2$:UD$DA$:220:CACA1:M$"OPTIMIZED SEARCH PATH CHOSEN":170// 5200)0*M$(CA)" CONDITIONA:202:KY$("&KEY"A$BL$,20)"0":FRR:27000:KE0ıV.u(RR$,2,3)(RC$,1,3)5240h.wKNKN1:5235.xN4$RC$:N5$KY$:5150:N3$RC$:A((N4$,10,2))((N3$,10,2)):202:DA$"&"(RR$,1)(N5$,5,2)A$(N3$,10,2)(N1$,5,1)" "@/yX$LT$(((R201"(N3$,10,2)(N3$,10,2)(N1$,5,1)" ":-jX$LT$(((R2$,3))):(X$,4)"$CRT"X$"$CRT"(N2$,24,1)(X$,(X$)5):5228-k(N2$,24,1)"N"X$(BL$LT$(((R2$,3))),((N2$,21,3)))-lDA$DA$X$-m5250-nKN2:(N2$,30,1)"K"ı6.sAKN(R2$,1)"L"ıJ,SX$(N1$,5,1):X$"="X$"<"X$">"X$"L"X$"G"5205P,Tk,URR((RR$,1)):RR0ı,ZKY$("&FIELD#"(RR$,2,3)BL$,20)"0":FRR:27000:KE0ı,_N2$RC$:(N2$,30,1)"U"5230,d5150:KE0ı0-iN3$RC$:DA$"&"(RR$,1)"5900+700:400+5900O+PC$"1001=1001T001000100010000001001001 ARRR"+UD$PC$:UF$U2$:220:CACA1:TATA1:N1$PC$:+KY$("&KEY01"BL$,20)"0":FRR:27000:+PRR$(N1$,4):R2$(N1$,6,4):((RR$,1))0RR$(N1$,6,4):R2$(N1$,4),Q"O21*WD$"PCL"O31$*4000**;*VS116900v*VSVS100:U2$"SYS.TRNS.W":UF$U2$:UU$S5$:210:XS$""*CA0:S20:N1$""*9300*W15015,5020,5018,5018*XS$XS$WD$:5010*CC1:9000:CC0:5015+WD$XS$:WD$"ALL"İ5100:L$,30)PL$AX$" "A1$"R":AN$(RC$,20)Q)BUD$AR$:UF$U2$:220:ACAC1:ANAN1)G800:M$Z$"ATTRIBUTE '"AN$"' AUTO-SELECTED FOR OUTPUT":170)i3610)jXR)s)9300)W14030,4099,4000)9400:4015)WD$"AML"O11*WD$"DSDC$,25,1):T$(RC$,24,1)](.AX$(RC$,38,1)"000":AR$R$(KY$,8,3)"EM000"P$P$L$L$M$T$(3A1$"R":(RC$,30,1)"U"AX$"K"R$(RC$,28,2):A1$"K"(5A(L$):M$"0"M$"4"AA2(6203:PL$A$(7(RA$,4)"$VIS"AX$T$()8AR$AR$((RC$,20)BA2$A1$:+'XR1DP:AN0:AXR:200:R$A$d'AAN:203:KY$("&FIELD#"A$BL$,20)"0":FXR:27000'(KY$,5)"&FIEL"3690'(RC$,31,1)"6"ANAN1:3610'KE0AN03690' KE0AN0ANAN1:3610($P$(RC$,26,4):L$(RC$,21,3):M$(RP$L1$L$M$T$PH$PL$AX$BP$A1$A2$:UD$AR$:UF$U2$:220:ACAC1T&O103599l&Z$"":PO$"E"3595&AN$PH$:AA1Z$"PROJECTED "& AA0Z$"CONDITIONAL "& 800:M$Z$"ATTRIBUTE '"AN$"' SELECTED FOR OUTPUT":170 'X$"":AA0:A1$"R":":(RC$,30,1)"U"AX$"K"(Z1$,1)(RC$,28,2):A2$"K"Q% PL(L1$):AA1PL11v% M1$"1"M1$"2"M1$"3"PLPL2% APL:203:PL$A$:PH$(PH$BL$,30)% M$M1$:M2$M1$M$M2$% A1$""A1$A2$% (RA$,4)"$VIS"AX$T$E& AR$Z1$PO$AI$P1$ $k (SA$,1,2)"<="X$"L":XL2K$l AA0:X$"+"X$"-"X$"*"X$"/"AA1$p SA$(SA$,(SA$)XL):PO$X$:AN$SA$:300:(RC$,31,1)"6"İ140:3599$y 3500$z 3300:Z1$AI$:P1$P$:L1$L$:T1$T$:M1$M$:AI$"M000":PO$"E"7% A2$"R":AX$(RC$,38,1)"000 #[ I:3450k#\ 300:Z1$AI$:L1$L$:P1$P$:M1$M$:T1$T$:AX$(RC$,38,1)"000":(RC$,31,1)"6"İ140:3599#^ A1$"R":(RC$,30,1)"U"AX$"K"(Z1$,1)(RC$,28,2):A1$"K"#f X$(SA$,1):XL1:(SA$,2,1)">"X$"#":XL2#i (SA$,1,2)">="X$"G":XL2"G "H PH$AN$:A1$"":A2$A1$L"M SA$AN$:I1(AN$):(AN$,I,1)" "3450w"R J1(CS$):(AN$,I,1)(CS$,J,1)ĂJ"U J(CS$)3419"W AN$(AN$,I1):SA$(SA$,((SA$)I)1):J(CS$):J"X (SA$,1)":"3420"Y PH$AN$:AN$(SA$,(SA$)1):3405C$:UF$U1$:2202!& UF$U2$:UD$"$":220:230:210O!0 UF$U2$:240:ET03199k!: UF$U1$:220:ET03120~! UF$U2$:230:! BI1:BP$" "! (AN$,BI,1)"("3350! BIBI1:BI(AN$)3310! 3390! BP$(AN$,BI1,1):AN$(AN$,BI1)!> 300"$ RA$"$SRC"M$M$"THE SOURCE"- *1708 HS1:H VS16900 VSVS10:OP0:U2$"SYS.TRNS.S":UF$U2$:UU$S5$:210 9300 W13050,3100,3010 9400:3020 WD$"ALL"İ3600:3100 AN$WD$:3400:3010! AAC:203:AC$A$:UD$AM$M$"DISPLAY"9RA$"$DYN"M$(M$,14)"DYNAMICALLY"eRA$"$GRF"RA$"$PLT"M$M$"GRAPHICS"(RA$,5)"$UPD:"M$M$"MASS UPDATE"RA$"$VIS"M$M$"VISICALC"RA$"$MWI"M$M$"MAGIC WINDOW" RA$"$ESI"M$M$"EXECUTIVE SECRETARYRC$RA$:20330203:RC$(RA$BL$,15)A$TL$QUD$QT$RC$QT$:UF$U1$:220`O102999M$"OUTPUT ROUTED TO ":(RA$,4)"$LPT"M$M$"PRINTER":(RA$,5,1)":"M$M$" USING SHELL '"(RA$,6)"'"RA$"$LBL"M$M$"LABELS"RA$"$CRT"1)".FD"(RD$(DI),QQ)?VlM$"RELATION '"F1$"' NOT FOUND":160:ES255:20100eHS02010M$"MISPLACED 'ASSIGN' COMMAND - DISCARDED":160SL1:180:29999300:RA$WD$:A80:RA$"$CRT"ASWRA$"$LBL"A35(RA$,4)"$UPD"$("&SYSCNTRL"BL$,20)"0":FKE:27000QjRD$(DI)(RD$(DI)BL$,30)(RC$,14):ADP:203:UF$U1$:UD$A$:220:I1DP:UD$QT$RD$(I)QT$:UF$U1$:220:QQ1(RD$(DI),QQ,1)","1550QQQQ1:QQ(RD$(DI))1505F1$(RD$(DI),QQPDP1:RD$(DP)(WD$,3)(WD$,7)",V"(WD$,5,2)?O101010yM$"RELATION '"WD$"' INCLUDED IN DOMAIN":170:1010D$"DELETE SYS.PASS"S4$:U1$"SYS.PASS":UF$U1$:UU$S4$:210LDI1DP:1500:!ACCESSF1$:900:KE491900VKEDI1900'`KY):AN$(SX2)AN$(SX1):SXSX2&7100:720ALPLP1:LO3GT I(AN$)m*(AN$,I,1)" "819/II1:I18103AN$(AN$,I):KE(11):KE0ıVSVS1:HS0İ190009300W11020,1100,10109400:10150D:LPLP3AXSK(SX2):X4X9AC1:203:X$"S"A$:C1C11:730aAC2:203:X$"T"A$:C2C21SK(SX3)3:AN$(SX3)X$:SK(SX2)SK(SX):SXSX2EI1SX23760720SK(SX)2749(SK(SX2)1)(SK(SX1)3)418SK(SX2)SK(SX1C11:C214SXSX1:600:SK(SX)TT:XSSX:EI1750TSK(SX)TT:TT3AN$(SX)AN$bEI1725}SK(SX)3SK(SX)1710SK(SX2)1(TT2)710(PI(SK(SX2))PI(TT))740PN$(LP)AN$(SX3):PN$(LP1)AN$(SX1):PN$(LP2)(SY$,SK(SX2),1)"TT17:685-(WD$,CX,2)">="TT18:685>X$"/"TT8PX$"="TT10bX$"<"TT12tX$">"TT13(TT11)(TT1)NE0CXCX1TT9CXCX1TT16TT17TT18CXCX1SX3:LP1:CX1:NE1:I04:SK(I)1: AN$"OR"TT15(AN$"CONTAINS"TT19>X$"-"NE1TT4TX$"-"NE0TT5kX$"+"NE1TT11X$"+"NE0TT6TT0(WD$,CX,2)"**"TT9TT0(WD$,CX,2)"**"TT7X$"<"(WD$,CX1,1)">"TT16:685 (WD$,CX,2)"<=(X$"0"X$"9")(X$"A"X$"Z")CXCX1:630R|X$"$"X$"#"CXCX1:630}X$"."(X$":"(WD$,CS,4)"$CRT")CXCX1:630~CXCSQ31X$QT$Q30:CXCX1CLCXCS:AN$(WD$,CS,CL):X$(AN$,1):CL1CXCX1AN$"AND"TT14CX,1)" "CXCX1:600@bEI0:X$(WD$,CX,1):X$"("TT1:NE1QgX$")"TT2si(X$"0"X$"9")X$"$"625jX$QT$Q31:625lX$"A"X$"Z"650qTT3:CSCX:CXCX1vCX(WD$)640yX$(WD$,CX,1)zQ31X$QT$CXCX1:6302{:UF$U2$:220:CACA1KN1$""(((PC$,1))0((PC$,6,1))0)N1$PC$gFILPR$"S"TSTS1:FILPR$"T"TATA1:R$"S"TSTS1R$"T"TATA1FIFI3:FOFO3:FILP430X9(0):XTT0:CX(WD$)EI1:](WD$,0000":203:PC$PC$R$A$:PN$R$A$:M$M1$:(M2$)(M1$)M$M2$sPC$PC$P1$P2$P$L1$L2$L$M$T$SA$SB$"R"AML:203(PC$,26,6)"000000"PC$(PC$,25)A$A$(PC$,32)(PC$,26,3)"000"PC$(PC$,25)(PC$,29,3)(PC$,29)UD$PC$A$"="R$"T":ATA:440XA$"L"A$"G"A$"#"A$"C"A$"&"A$"O"R$"T":ATA:440hATS:R$"S"(R1$,1)"L"ĭ(LT$(((R1$,3))),2)"$C"T1$T2$:443(R2$,1)"L"ĭ(LT$(((R2$,3))),2)"$C"T2$T1$:443130?T$T1$:L$"000":P$"PC$AI$PN$(FI):L1$L$:P1$P$:M1$M$:T1$T$:SA$S$:(RC$,31,1)"6"İ140:455d(L$)MLML(L$)AN$PN$(FO):300:R2$AI$:PC$PC$AI$:L2$L$:P2$P$:M2$M$:T2$T$:SB$S$:(RC$,31,1)"6"İ140:455(L$)MLML(L$)A$PN$(FI):A$"<"A$">"T$"N"~X1$"T"T$"T")X9(0):HX9(0):I1:LS0:ML0:RK0eX1$PN$(I):250:A1420zII1:ILP410M$"ILLOGICAL 'WHERE' CLAUSE":160:ES255:20100ES255:20100FII:FOFI1:FS1MX9(0):AN$PN$(FO1):300:R1$AI$:LXLX1:A(LT$(LX1)):203:L$A$:P$"0000":M$" ":T^ARI:200:AI$A$(RC$,8,3)mKY$(RC$,20)"0":27000:L$(RC$,21,3)rP$(RC$,26,4):M$(RC$,25,1):S$"R":(RC$,30,1)"U"S$"K"wT$(RC$,24,1):399|P$"0000":L$"000":M$" ":X1$"S""0":RI1:KS$KY$3 @KY$KS$:FRI:27000:KE0350K ERIRI1:RIDP320 IM$"'"AN$"' NOT DEFINED":160:SL255:ESSL:20100 JT$"N":(AN$,1)QT$A(AN$):AN$(AN$,2,A2):T$"A" K(AN$,1)"$"T$"A" OLT$(LX)AN$4QALX:203:AI$"L"A$:"X$"O")2548 (X$"0"X$"9")(X$"A"X$"Z")ıB A1:j ,X9(0):X1$(AN$,1):X2$(AN$,2,1) /(X1$"S"X1$"T"X1$"L")(X2$"0"X2$"9")AI$AN$:380 0X1$QT$X1$"."(X1$"0"X1$"9")((AN$,5)"$CRT:")330 1KY$(AN$BL$,20)A16:200 A17:200% A18:2003 A19:200L D$"OPEN ";UF$;UU$:k D$"WRITE ";UF$:UD$:D$: D$"CLOSE ";UF$: D$"READ ";UF$:UD$:D$:UD$"$"ET1 A0:X$(X1$,1):X$QT$X$"."X$"$"ı (X1$)1(X$"C"X$"L"X$"G#3" M$"":9 M$"****> ERROR: "M$:150:ECEC1:S M$"====> "M$:150:d ESSLESSLj A$(A):L(A$):(A$,1)" "A$(A$,L1) AU$A$:A$("0000000000"A$,A1):A11: A12:200 A13:200 A14:200 A15:200 QUIRES NUMERIC OPERANDS"= M$""İ160:SL255:ESSL:20100C M$"ATTRIBUTE '"AN$"' ILLEGAL IN SELECT/WHERE":SL255:ESSL:160:20100 (38373)1HC$"Y"ĺD$"PR#0" HC$"Y"ĺD$"PR#1" M$ HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PRjC **** CNQST.QUERY ***. 10000:20000GZ:(4)"RUN "PN$;S3$Mcdd:X1:Y1:M$;:}i:(38373)1ĺ(12)j100n100}X23:Y0:M$(BL$,SW1):100M$"":T1$T2$M$"MIXED TYPES" (R$"S")(T1$"N")M$"ARITHMETIC RE                   LC(20(NH3))DV3İ500:?LC(PG(NI8))DV4QS0İ500:eQS1(LC(PGNI9))DV4İ500:kv4550D$"VERIFY ";UF$:216,0D$"OPEN ";UF$:EC(222):EC4EC9ijEC34560,4565,4570,4575,4580,4585 M$"DISK IS WRITE(NB)GC(NB)NC(NB):NC(NB)0:NB:DlLC(PG(NI5))DV4QS0İ500bqLC(20(NI4))DV3İ500vQS1(LC(PGNI8))DV4İ500{LC(20(NH3))DV3İ500:LC(PG(NH3))DV4QS0İ500:QS1(LC(EPDL))DV4İ500:76)) $vuS8(38377):S9(38378)&$un$}1:(9);(1);(1);"80N";"CNQST.QRUN.DRVR.21.A35 - 090182 - 2.0":38362))",V"((38363))S#NuS4$",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"((383(BL$,15):F9$(F):!RDRECF9$,KY$,RC$:900:s"xiZ(O):RC$BL$BL$BL$(BL$,15):F9$(F):!GTRECF9$,KY$,RC$:900:"0uA$"":I05:A$A$((38352I)):I:S1$A$":uS2$",S"((38358))",D"((38359))",V"((38360))#DuS3$",S"((38361))",D"(( ":NL$NL$(0)::CR$(13)!B'U2$"SYS.PASS":UF$U2$:UU$UX$:210:D$"OPEN SYS.SPOOL"UX$:D$"DELETE SYS.SPOOL"UX$:U1$"SYS.SPOOL":UF$U1$:UU$UX$:210!s'!aZ(O):RC$BL$BL$BL$(BL$,15):F9$(F):!RDSETF9$,KY$,RC$:900:,"eZ(O):RC$BL$BL$BL$)# S1$""UD$QT$S1$QT$:220E S2$""UD$QT$S2$QT$:220g S3$""UD$QT$S3$QT$:220m  '!INIT::(38373)1ĺ(12)!'D$(4):QT$(34):CR$(13):30000:UX$S4$:A11:SW40:I1SW:X$X$"":Y$Y$""::I180:DT$DT$".":BL$BL$"İ4500:4099-UD$QT$RO$QT$:UF$U1$:2203zX(RO$):UD$QT$(RO$,70)QT$:UF$U1$:220:S1$"":S2$S1$:S3$S1$X70S1$(RO$,71,X70):S1$(S1$,70)X140S2$(RO$,141,X140):S2$(S2$,70) X210S3$(RO$,211,X210):S3$(S3$,700:KY$(RR)KY$:450 T92+ TXT92590Z 400:27000:KY$(RR)KY$:450:T9T91:2510 350:(D9$,3,2)"02"K1$(K1$,((D9$,7,2)))'  13059:(11)0ıO114050X((RO$,PR,LR)):XXLXLXXXHXHX (RO$)709$,16)2200HB$""2270QX$(D9$,9,1):X$"<"(KY$,(HB$))HB$KE43:wX$"L"(KY$,(HB$))HB$KE43:MS$""ı(D9$,9,1)"="(KY$,(MS$))MS$KE43 2200:450:KE43UD$"$":UF$U1$:220:230:90 T91:400:2700KY$KY$(RR):26000:KY$(RR)KY$:2250hRRR1:FFX(RR):KY$KY$(RR):25000:KE0KE40KY$(RR)KY$:2250KE46KY$(KY$,(KY$)((D9$,7,2)))(NL$,((D9$,7,2))):26000:KY$(RR)KY$:2250D9$""2252 (D9$,9,1)">"ĭ(KY$,((D9$,16)))(DK1$(KY$,((D9$,7,2)))AKE43UD$"$":UF$U1$:220:230:90]R1$RC$:KE0KE40ijQ1Q11:M$"PROCESSING TUPLE #"(Q1):X12:Y((SW(M$))2):100:RO$(BL$BL$BL$" ",OL)3(D9$,3,2)"02"2210$RRR1:FFX(RR):0ijEF((D9$,2,1)):FX(F)KE:KL(F)((D9$,5,2)):KY$(NL$,KL(F))zX$(D9$,9,1):X$"<"X$"L"HB$(D9$,16):1599X$"="MS$(D9$,16)KY$((D9$,16)BL$,KL(F))?KY$(F)KY$:TX0İ2500:20502200:K1$KY$:(D9$,3,2)"02"(D9$,9,1):X$"<"X$"L"HB$(D9$,16):DX$"="MS$(D9$,16)fKY$((D9$,16)BL$,KL(R1)):I1:FL$FL$(((D9$,2,1)))(FL$,I,1)","1540II1:I(FL$)1530X$(FL$,I1)".K"(D9$,3,2)(FL$,I):FL$X$:!ACCESSFL$:900:KE1-&KE62M$FL$" NOT FOUND - ABORT":1065S'M$"RUN TIME ERROR CODE # "(KE))X12:Y0:100::PN$"CNQST.MAIN":30000:SX$S3$:98.FX(DI)KE:XDI:M$FL$:Y((SW(M$))2):100:DIG1500KD9$""ı(D9$,3,2)"02"1520*X$L$BL$" ""R1$(XL$,RL(1)):R2$(XL$,RL(2)):R3$(XL$,RL(3)):R4$(XL$,RL(4)):R5$(XL$,RL(5)):R6$(XL$,RL(6)):R7$(XL$,RL(7)):R8$(XL$,RL(8)):R9$(XL$,RL(9)):RO$(XL$,OL):XL$""$DI1ND:FL$FL$(DI):!ACCESSFL$:900:KE101070E90PXNPPX:E9010503130:E991050S(SP$,1)"&"D9$SP$:1045h (SP$,1)"?"ijTXTX1:TB$(TX)SP$E901030UF$U2$:230:R1((TB$(1),2,1)):R10R11I19:KY$(I)(NL$,KL(I)): KY$(NL$,KL(R1)):XL$BL$BRL(10),KL(10),FX(10),KO(10),RK(10)AI19:RL(I)1:KL(I)1:XDI1ND:130:160`DI130:UD$SP$:UF$U1$:220:NP(SP$):NP0ijPX1NP:130:UD$SP$:UF$U1$:220PX2O10PROL1:LR((SP$,31,3))OLOL((SP$,31,3)) I1:I1810 3AN$(AN$,I):A *** KRAM ERROR HANDLER ***VKE(11):KE0ı\130:UD$QT$SP$QT$:UF$U1$:220Z$(SP$,4):RA$Z$:Z$"$GRF"Z$"$PLT"O11Z$"$CRT"O12Z$"$LBL"O13130:ND(SP$):ND0ND10ij$RR3R3$(RC$,RL(RR)):7RR4R4$(RC$,RL(RR)):URR5R5$(RC$,RL(RR)):sRR6R6$(RC$,RL(RR)):RR7R7$(RC$,RL(RR)):RR8R8$(RC$,RL(RR)):RR9R9$(RC$,RL(RR)): I(AN$)*(AN$,I,1)" "819 /IY$(R3$,KP,KL):-X4KY$(R4$,KP,KL):IX5KY$(R5$,KP,KL):eX6KY$(R6$,KP,KL):X7KY$(R7$,KP,KL):X8KY$(R8$,KP,KL):X9KY$(R9$,KP,KL):RR1R1$(RC$,RL(RR)):RR2R2$(RC$,RL(RR)):=X((TB$(T9),2,1)):RR((TB$(T9),7,1)):FFX(RR):RRXij(TB$(T9),52,1)"K"ĭD9$""KPKP(((D9$,5,2))KL):KY$(KY$(X),KP,KL):(TB$(T9),52,1)"K"KY$(KY$(X),KP,KL):X1KY$(R1$,KP,KL):X2KY$(R2$,KP,KL):X3KT YOUR":X10:Y10:105=|M$"UTILITIES DISK INTO":X12:100~M$"SLOT "((38374))" DRIVE "((38375)):X14:Y12:100M$"- HIT ANY KEY WHEN READY -":X18:Y7:100Z$"":Z$:Z$""392KL((TB$(T9),22,3)):KP((TB$(T9),18,4))1D$;"DELETE SYS.RANGE";S4$F6U1$"SYS.RANGE":UF$U1$:UU$UX$:210p@UF$U1$:UD$(XL)CR$(XH):220:230v]^K1$KY$(1):K2$KY$(2):K3$KY$(3):K4$KY$(4):K5$KY$(5):K6$KY$(6):K7$KY$(7):K8$KY$(8):K9$KY$(9):wS81ıyM$"PLEASE INSER:200A14:200!A15:200/A16:200=A17:200KA18:200YA19:200vCR$;D$"OPEN ";UF$;UU$:CR$;D$"WRITE ";UF$:UD$:D$:CR$;D$;"CLOSE ";UF$:CR$;D$"READ ";UF$:UD$:D$:,O10ı-D$"OPEN SYS.RANGE";S4$T." RA$"$VIS"PN$A$"VC"; RA$"$MWI"PN$A$"MW"W RA$"$ESI"PN$A$"ES"s RA$"$UPD"PN$A$"UM" (PN$,10)A$İ375 A$(A):L(A$):(A$,1)" "A$(A$,L1) AU$A$:A$("0000000000"A$,A1):A11: A12:200A13OVE STEPS":100:X23:Y12:M$"THEN HIT ANY KEY":100:Z$""M Z$:Z$""177[ SX$S7$:f 18943 :(38373)1ĺ(12) 12:1:"JUST A MOMENT, PLEASE..." (4)"BLOAD CNQST.EDITOR";S3$ (4)"RUN CNQST.DISPLAY";S3$  A$"CNQST.INE DISK IN SLOT "(S3$,3,1)", DRIVE "(S3$,6,1):100:X12:Y12:M$"TO SLOT "(S7$,3,1)", DRIVE "OD$:100 X14:Y4:M$"INSERT THE UTILITIES DISKETTE":100:X15:Y12:M$"IN SLOT "(S7$,3,1)", DRIVE "(S7$,6,1):100: X22:Y8:M$"PERFORM THE AB((SP$,31,4)):KL(DI)((SP$,35,2)):AN$(SP$,30)H 800:FL$(DI)AN$N i (PN$,6,5)".INT."ıx S80179 OD$"2":(S7$,6,1)"2"OD$"1" X9:Y2:M$"REMOVE THE DISK FROM SLOT "(S3$,3,1)", DRIVE "OD$:105m X11:Y4:M$"MOVE TH1:M$"":105:976 `SX$S3$:170::(38373)1ĺ(12)] a12:1:"JUST A MOMENT, PLEASE..."v b:(4)"RUN "PN$;SX$| c dX1:Y1:M$: i:(38373)1ĺ(12) j100 n:M$;: E90:UF$U2$:240:SP$UD$ SP$"$"E99 3 RL(DI)p! **** CNQST.QRUN.DRVR ****2 10000:1000L2000:3000:4000:20Z30000:300:PN$"CNQST.REPORT":O10PN$"CNQST.GRAPH"[O12ī180\O13PN$"CNQST.LABEL" _190:PN$"CNQST.REPORT"!UBUF5:30000:PN$"CNQST.REPORT":SX$S3$:X1:Y                ***77QF"DOS ERROR CODE: ";ER$;",";EM$;","ET$;",";ES$?7F:70uA$"":I05:A$A$((38352I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2)7:uS2$",S"((38358))",D"((38359))",V"((38360))8DuS3$",S"((38361))",D"((38362))",V"((3836150:LCLC1*6:LCPGāILC1PG:150:I:6:NF015088o6:I1NF:M$F$(I):150:G(I)0āJ1G(I):150:J6:EE0āI1EE:150:I6:140006hB *** SUPERKRAM ERROR HANDLER ***6iB"SUPERKRAM ERROR CODE: ";KE6B:7PF *** DOS ERROR HANDLER76)) $vuS8(38377):S9(38378)&$un$}1:(9);(1);(1);"80N";"CNQST.QRUN.DRVR.21.A34 - 083182 - 2.0":a38362))",V"((38363))S#NuS4$",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"((383(BL$,15):F9$(F):!RDRECF9$,KY$,RC$:900:s"xiZ(O):RC$BL$BL$BL$(BL$,15):F9$(F):!GTRECF9$,KY$,RC$:900:"0uA$"":I05:A$A$((38352I)):I:S1$A$":uS2$",S"((38358))",D"((38359))",V"((38360))#DuS3$",S"((38361))",D"(( ":NL$NL$(0)::CR$(13)!B'U2$"SYS.PASS":UF$U2$:UU$UX$:210:D$"OPEN SYS.SPOOL"UX$:D$"DELETE SYS.SPOOL"UX$:U1$"SYS.SPOOL":UF$U1$:UU$UX$:210!s'!aZ(O):RC$BL$BL$BL$(BL$,15):F9$(F):!RDSETF9$,KY$,RC$:900:,"eZ(O):RC$BL$BL$BL$)# S1$""UD$QT$S1$QT$:220E S2$""UD$QT$S2$QT$:220g S3$""UD$QT$S3$QT$:220m  '!INIT::(38373)1ĺ(12)!'D$(4):QT$(34):CR$(13):30000:UX$S4$:A11:SW40:I1SW:X$X$"":Y$Y$""::I180:DT$DT$".":BL$BL$"İ4500:4099-UD$QT$RO$QT$:UF$U1$:2203zX(RO$):UD$QT$(RO$,70)QT$:UF$U1$:220:S1$"":S2$S1$:S3$S1$X70S1$(RO$,71,X70):S1$(S1$,70)X140S2$(RO$,141,X140):S2$(S2$,70) X210S3$(RO$,211,X210):S3$(S3$,700:KY$(RR)KY$:450 T92+ TXT92590Z 400:27000:KY$(RR)KY$:450:T9T91:2510 350:(D9$,3,2)"02"K1$(K1$,((D9$,7,2)))'  13059:(11)0ıO114050X((RO$,PR,LR)):XXLXLXXXHXHX (RO$)709$,16)2200HB$""2270QX$(D9$,9,1):X$"<"(KY$,(HB$))HB$KE43:wX$"L"(KY$,(HB$))HB$KE43:MS$""ı(D9$,9,1)"="(KY$,(MS$))MS$KE43 2200:450:KE43UD$"$":UF$U1$:220:230:90 T91:400:2700KY$KY$(RR):26000:KY$(RR)KY$:2250hRRR1:FFX(RR):KY$KY$(RR):25000:KE0KE40KY$(RR)KY$:2250KE46KY$(KY$,(KY$)((D9$,7,2)))(NL$,((D9$,7,2))):26000:KY$(RR)KY$:2250D9$""2252 (D9$,9,1)">"ĭ(KY$,((D9$,16)))(DK1$(KY$,((D9$,7,2)))AKE43UD$"$":UF$U1$:220:230:90]R1$RC$:KE0KE40ijQ1Q11:M$"PROCESSING TUPLE #"(Q1):X12:Y((SW(M$))2):100:RO$(BL$BL$BL$" ",OL)3(D9$,3,2)"02"2210$RRR1:FFX(RR):0ijEF((D9$,2,1)):FX(F)KE:KL(F)((D9$,5,2)):KY$(NL$,KL(F))zX$(D9$,9,1):X$"<"X$"L"HB$(D9$,16):1599X$"="MS$(D9$,16)KY$((D9$,16)BL$,KL(F))?KY$(F)KY$:TX0İ2500:20502200:K1$KY$:(D9$,3,2)"02"(D9$,9,1):X$"<"X$"L"HB$(D9$,16):DX$"="MS$(D9$,16)fKY$((D9$,16)BL$,KL(R1)):I1:FL$FL$(((D9$,2,1)))(FL$,I,1)","1540II1:I(FL$)1530X$(FL$,I1)".K"(D9$,3,2)(FL$,I):FL$X$:!ACCESSFL$:900:KE1-&KE62M$FL$" NOT FOUND - ABORT":1065S'M$"RUN TIME ERROR CODE # "(KE))X12:Y0:100::PN$"CNQST.MAIN":30000:SX$S3$:98.FX(DI)KE:XDI:M$FL$:Y((SW(M$))2):100:DIG1500KD9$""ı(D9$,3,2)"02"1520*X$L$BL$" ""R1$(XL$,RL(1)):R2$(XL$,RL(2)):R3$(XL$,RL(3)):R4$(XL$,RL(4)):R5$(XL$,RL(5)):R6$(XL$,RL(6)):R7$(XL$,RL(7)):R8$(XL$,RL(8)):R9$(XL$,RL(9)):RO$(XL$,OL):XL$""$DI1ND:FL$FL$(DI):!ACCESSFL$:900:KE101070E90PXNPPX:E9010503130:E991050S(SP$,1)"&"D9$SP$:1045h (SP$,1)"?"ijTXTX1:TB$(TX)SP$E901030UF$U2$:230:R1((TB$(1),2,1)):R10R11I19:KY$(I)(NL$,KL(I)): KY$(NL$,KL(R1)):XL$BL$BRL(10),KL(10),FX(10),KO(10),RK(10)AI19:RL(I)1:KL(I)1:XDI1ND:130:160`DI130:UD$SP$:UF$U1$:220:NP(SP$):NP0ijPX1NP:130:UD$SP$:UF$U1$:220PX2O10PROL1:LR((SP$,31,3))OLOL((SP$,31,3)) I1:I1810 3AN$(AN$,I):A *** KRAM ERROR HANDLER ***VKE(11):KE0ı\130:UD$QT$SP$QT$:UF$U1$:220Z$(SP$,4):RA$Z$:Z$"$GRF"Z$"$PLT"O11Z$"$CRT"O12Z$"$LBL"O13130:ND(SP$):ND0ND10ij$RR3R3$(RC$,RL(RR)):7RR4R4$(RC$,RL(RR)):URR5R5$(RC$,RL(RR)):sRR6R6$(RC$,RL(RR)):RR7R7$(RC$,RL(RR)):RR8R8$(RC$,RL(RR)):RR9R9$(RC$,RL(RR)): I(AN$)*(AN$,I,1)" "819 /IY$(R3$,KP,KL):-X4KY$(R4$,KP,KL):IX5KY$(R5$,KP,KL):eX6KY$(R6$,KP,KL):X7KY$(R7$,KP,KL):X8KY$(R8$,KP,KL):X9KY$(R9$,KP,KL):RR1R1$(RC$,RL(RR)):RR2R2$(RC$,RL(RR)):=X((TB$(T9),2,1)):RR((TB$(T9),7,1)):FFX(RR):RRXij(TB$(T9),52,1)"K"ĭD9$""KPKP(((D9$,5,2))KL):KY$(KY$(X),KP,KL):(TB$(T9),52,1)"K"KY$(KY$(X),KP,KL):X1KY$(R1$,KP,KL):X2KY$(R2$,KP,KL):X3KT YOUR":X10:Y10:105=|M$"UTILITIES DISK INTO":X12:100~M$"SLOT "((38374))" DRIVE "((38375)):X14:Y12:100M$"- HIT ANY KEY WHEN READY -":X18:Y7:100Z$"":Z$:Z$""392KL((TB$(T9),22,3)):KP((TB$(T9),18,4))1D$;"DELETE SYS.RANGE";S4$F6U1$"SYS.RANGE":UF$U1$:UU$UX$:210p@UF$U1$:UD$(XL)CR$(XH):220:230v]^K1$KY$(1):K2$KY$(2):K3$KY$(3):K4$KY$(4):K5$KY$(5):K6$KY$(6):K7$KY$(7):K8$KY$(8):K9$KY$(9):wS81ıyM$"PLEASE INSER:200A14:200!A15:200/A16:200=A17:200KA18:200YA19:200vCR$;D$"OPEN ";UF$;UU$:CR$;D$"WRITE ";UF$:UD$:D$:CR$;D$;"CLOSE ";UF$:CR$;D$"READ ";UF$:UD$:D$:,O10ı-D$"OPEN SYS.RANGE";S4$T." RA$"$VIS"PN$A$"VC"; RA$"$MWI"PN$A$"MW"W RA$"$ESI"PN$A$"ES"s RA$"$UPD"PN$A$"UM" (PN$,10)A$İ375 A$(A):L(A$):(A$,1)" "A$(A$,L1) AU$A$:A$("0000000000"A$,A1):A11: A12:200A13OVE STEPS":100:X23:Y12:M$"THEN HIT ANY KEY":100:Z$""M Z$:Z$""177[ SX$S7$:f 18943 :(38373)1ĺ(12) 12:1:"JUST A MOMENT, PLEASE..." (4)"BLOAD CNQST.EDITOR";S3$ (4)"RUN CNQST.DISPLAY";S3$  A$"CNQST.INE DISK IN SLOT "(S3$,3,1)", DRIVE "(S3$,6,1):100:X12:Y12:M$"TO SLOT "(S7$,3,1)", DRIVE "OD$:100 X14:Y4:M$"INSERT THE UTILITIES DISKETTE":100:X15:Y12:M$"IN SLOT "(S7$,3,1)", DRIVE "(S7$,6,1):100: X22:Y8:M$"PERFORM THE AB((SP$,31,4)):KL(DI)((SP$,35,2)):AN$(SP$,30)H 800:FL$(DI)AN$N i (PN$,6,5)".INT."ıx S80179 OD$"2":(S7$,6,1)"2"OD$"1" X9:Y2:M$"REMOVE THE DISK FROM SLOT "(S3$,3,1)", DRIVE "OD$:105m X11:Y4:M$"MOVE TH1:M$"":105:976 `SX$S3$:170::(38373)1ĺ(12)] a12:1:"JUST A MOMENT, PLEASE..."v b:(4)"RUN "PN$;SX$| c dX1:Y1:M$: i:(38373)1ĺ(12) j100 n:M$;: E90:UF$U2$:240:SP$UD$ SP$"$"E99 3 RL(DI)p! **** CNQST.QRUN.DRVR ****2 10000:1000L2000:3000:4000:20Z30000:300:PN$"CNQST.REPORT":O10PN$"CNQST.GRAPH"[O12ī180\O13PN$"CNQST.LABEL" _190:PN$"CNQST.REPORT"!UBUF5:30000:PN$"CNQST.REPORT":SX$S3$:X1:Y                  :WZ$(IN$,II1,1):W0:W$";"W126$W$","W2B6$W$" "W3H6$Z6$WZ$","9450~6$M$"NO ';' FOUND - FORCED":1606$SL1:180:W$";":6$CC1:9000:CC06%6'!UBUF5:33,40::(38373)1ĺ(4)"PR#3":(12)*7'30000:D$(4):D$;"OPEN (IN$,II,1)QT$QM1:IIII1@5m$I$(IN$,II,1):II(IN$)9350u5r$(I$","I$";"I$" "II(IN$))IIII1:93205s$(I$" "I$",")QM0IIII1:93205t$I$QT$QM0:IIII1:93505$ILIIIS:WD$(IN$,IS,IL):IL0WD$I$:IIII1"6$W$(WD$,1)(38377):S9(38378)uZ}1:(9);(1);(1);"80N";"CNQST.MAIN.DQD - 083082 - 2.0": "((38363))HNuS4$",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"((38376))vuS8700:200Z310008 ** UTILITIES DISK **R800:PN$"CNQST.UTIL"hD$"RUN ";PN$;S7$0uA$"":I05:A$A$((38352I)):I:S1$A$:uS2$",S"((38358))",D"((38359))",V"((38360)) DuS3$",S"((38361))",D"((38362))",VON":)" 2. CREATE A RELATION":O" 3. RETURN TO MAIN MENU":" SELECT A FUNCTION, PLEASE";:Z$""Z$:Z$""4035Z(Z$):Z1Z3Z$"":4035Z1PN$"CNQST.DEFINE"S2$:700:200Z2PN$"CNQST.CREATE"S2$:;:Z$"" Z$:Z$""3035< Z(Z$):Z1Z3Z$"":3035J Z12100k Z2PN$"CNQST.QUERY"S3$:y Z31000  *** ENTER DEF S/S ***:(38373)1ĺ(12)" DEFINITION SUB-SYSTEM MENU":" 1. DEFINE A RELATIQST.QEDIT"S3$) *** ENTER DQL S/S ***B :(38373)1ĺ(12)p " QUERY LANGUAGE SUB-SYSTEM MENU": " 1. EDIT A QUERY": " 2. COMPILE A QUERY": " 3. RETURN TO MAIN MENU": " SELECT A FUNCTION, PLEASE""CNQST.QMENU"S3$:200,=Z5İ5000:1000>AZ0ė:57344HB1000NKW700j!UBUF10:1894330000::(4)"BLOAD CNQST.EDITOR"S2$(4)"RUN CNQST.MAINT"S2$4!UBUF10:18943530000::(4)"BLOAD CNQST.EDITOR"S3$ 6(4)"RUN CN **** R E S E R V E D ****":< )"0. EXIT FROM CONQUEST"n .:" SELECT A FUNCTION, PLEASE";:Z$"" 3Z$:Z$""1075 5Z(Z$):Z0Z$"0"Z$"":1075 8Z5Z$"":1075 9Z1İ4000:1000 :Z22000 ;Z3İ3000:200<Z4PN$3. DATABASE QUERY LANGUAGE SUBSYSTEM":X "4. DATABASE QUERY EXECUTION SUBSYSTEM": "5. DATABASE UTILITIES SUBSYSTEM": "6. **** R E S E R V E D ****": "7. **** R E S E R V E D ****": "8. **** R E S E R V E D ****": $"9.Y$"":NL$NL$(0): 30000: (38373)1ĺD$"PR#3"@ `  DISPLAY MENU & GET CHOICEy :(38373)1ĺ(12) " C O N Q U E S T M A I N M E N U": "1. DATABASE DEFINITION SUBSYSTEM": "2. DATABASE UPDATE SUBSYSTEM":( "Z$:Z$""ı  + (38376)0ıZ *X10:Y5:M$"INSERT UTILITIES DISK":105: ,X11:Y7:M$"IN SLOT "((38374))", DRIVE "((38375))" & HIT 'RETURN'":100:Z$"" /Z$:Z$""ı 4: I180:BL$BL$" ":DT$DT$".":X$X$"":Y$UN ";PN$E ,X10:Y4:M$"INSERT DISK(S) AND HIT 'RETURN'":105:A$""X 1A$:A$""305^ 5d w (38360)0ı X10:Y1:M$"INSERT DEFINITION/MAINTENANCE DISK":105: " IN SLOT ";(38358);", DRIVE ";(38359);" & HIT 'RETURN'":Z$"" \ 4 *** CNQST.MAIN - MAIN DRIVER - DQD DISK ***C !UBUF 5:N33,40`D$(13)(4)i900s1000ycd:X:Y:M$;:i:(38373)1ĺ(12)j100n100:(38373)1ĺ(12)12:1:"JUST A MOMENT PLEASE..." D$"R        P$L1$L$M$T$PH$PL$AX$BP$A1$A2$:UD$AR$:UF$U2$:220:ACAC1T&O103599l&Z$"":PO$"E"3595&AN$PH$:AA1Z$"PROJECTED "& AA0Z$"CONDITIONAL "& 800:M$Z$"ATTRIBUTE '"AN$"' SELECTED FOR OUTPUT":170 'X$"":AA0:A1$"R":":(RC$,30,1)"U"AX$"K"(Z1$,1)(RC$,28,2):A2$"K"Q% PL(L1$):AA1PL11v% M1$"1"M1$"2"M1$"3"PLPL2% APL:203:PL$A$:PH$(PH$BL$,30)% M$M1$:M2$M1$M$M2$% A1$""A1$A2$% (RA$,4)"$VIS"AX$T$E& AR$Z1$PO$AI$P1$ $k (SA$,1,2)"<="X$"L":XL2K$l AA0:X$"+"X$"-"X$"*"X$"/"AA1$p SA$(SA$,(SA$)XL):PO$X$:AN$SA$:300:(RC$,31,1)"6"İ140:3599$y 3500$z 3300:Z1$AI$:P1$P$:L1$L$:T1$T$:M1$M$:AI$"M000":PO$"E"7% A2$"R":AX$(RC$,38,1)"000 #[ I:3450k#\ 300:Z1$AI$:L1$L$:P1$P$:M1$M$:T1$T$:AX$(RC$,38,1)"000":(RC$,31,1)"6"İ140:3599#^ A1$"R":(RC$,30,1)"U"AX$"K"(Z1$,1)(RC$,28,2):A1$"K"#f X$(SA$,1):XL1:(SA$,2,1)">"X$"#":XL2#i (SA$,1,2)">="X$"G":XL2"G "H PH$AN$:A1$"":A2$A1$L"M SA$AN$:I1(AN$):(AN$,I,1)" "3450w"R J1(CS$):(AN$,I,1)(CS$,J,1)ĂJ"U J(CS$)3419"W AN$(AN$,I1):SA$(SA$,((SA$)I)1):J(CS$):J"X (SA$,1)":"3420"Y PH$AN$:AN$(SA$,(SA$)1):3405((38375))",V"((38376))99vuS8(38377):S9(38378)?9u9}1:(9);(1);(1);"80N";"CNQST.REPORT.14.A23 - 083082 - 2.0":/,S"((38361))",D"((38362))",V"((38363))l8NuS4$",S"((38364))",D"((38365))",V"((38366))8XuS5$",S"((38367))",D"((38368))",V"((38369))8buS6$",S"((38370))",D"((38371))",V"((38372))9luS7$",S"((38374))",D"CODE: ";KE7B:27PF *** DOS ERROR HANDLER ***e7QF"DOS ERROR CODE: ";ER$;",";EM$;","ET$;",";ES$m7F:70uA$"":I05:A$A$((38352I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2)7:uS2$",S"((38358))",D"((38359))",V"((38360))18DuS3$"$(BL$,P2)96:M$M$(XX$,XD):P1PXD1:I:150:LCLC1X6:LCPGāILC1PG:150:Ih6:NF0150886:I1NF:M$F$(I):150:G(I)0āJ1G(I):150:J6:EE0āI1EE:150:I6:140006hB *** SUPERKRAM ERROR HANDLER *** 7iB"SUPERKRAM ERROR I(NA)14075L5:M$PL$:150:LCLC1:CC(J)0āJJ1CC(J):150:LCLC1:JJo5:ILC1TP:150:I:NT0150845:LCTP:P10:I1NT:LL((T$(I),3)):P((T$(I),4,3)):XD((T$(I),3))5:LLLC0āJLC1LL:150:J:P10:LCLL 6:P2PP11:P20M$M46PL$"":J1:I1246SP(I)1PL$(BL$,SP(I)1)K46PL$PL$(XX$,AL(I))]46I(NA)15050s46NL(I1)11500047M$PL$:150:LCLC1:CC(J)0āJJ1CC(J):150:LCLC1:JJ47II1:JJ1:PL$"":14062 5:II1:PL$(PL$BL$,SP(I)1)(XX$,AL(I)):"":150:I:LCSS!36NH014060;36M$"":DF$"Y"M$S1$n36M$M$(HD$(1),L1):PF$"Y"M$M$" PAGE XXX"36150:LCLC1:T(1)0āK1T(1):150:LCLC1:36NH11406036K2NH:M$HD$(K):150:LCLC1:T(K)0āI1T(K):150:LCLC1:I36K(NDB1):B2B1:I1B1:B2B2CC(I):I@2+312000:LC99::M$"":v26X10:Y5:M$"DO YOU WANT AN ALIGNMENT PAGE ":10526ZZ$"":ZZ$:ZZ$""1400526ZZ$"Y"ZZ$"N"1400526ZZ$"N"MM$"REPORT":26MM$"ALIGNMENT":12000:36SS0āI1SS:M$0:S81Ĺ1144(38364),(38366)V1#3HC$"Y":DV4:LC0:PGLPFLEE:HC$"Y"::BP1:BK1x1$3TPPG:NT0TP((T$(1),3))1%314000:EPPG:BA1EPTP1&3BA1130991'3I11(3(BP$,I,1)" "II1:13096%2)3B1I1:BL0:IB11ND:BLBLCC(I):I:DLBL40:13035!02NF0:NAJ:NA$(NA):03(UD$,1)"F"13075x0 3NFNF1:F$(NF)(UD$,6):G(NF)((UD$,4,2)):FLFL1G(NF)03240:1306003J1:NT003(UD$,1)"$"1309003T$(J)(UD$,2):((T$(J),3))0N1(NN)003NTNT1:JJ1:240:130771"323,6):T(I)((UD$,4,2))4/2HLHL1T(I):II1:13016M/2NHI1:PD1:J0:DL0p/2(UD$,1)"A"DLDLND:13055/2ND((UD$,6,2))1:CC(ND)((UD$,4,2)):DLDLCC(ND):P((UD$,8,3)):L((UD$,11,3))/2JJ1:SP(J)P:AL(J)L:NDPDNL(J)1:PDND 0220),(38372).24500p.2240:DF$(UD$,2,1):PF$(UD$,3,1):LP((UD$,4,3)):SS((UD$,7,3)):EE((UD$,10,3)).2L180:PF$"Y"L1L110.2DF$"Y"L1L110.2240:TF$(UD$,2,1):TL$(UD$,3,1).2I1.2240:(UD$,1)"H"13030/2HD$(I)(UD$.E-.X11:M$"HIT ANY KEY WHEN PRINTER IS READY":Y((SW(M$))2)T-.105:Z$""i-.Z$:Z$""12005-.M$"PRINTING "MM$" .....":X11:Y((SW(M$))2):105-/-2 ** GET SHELL INFO *** .2AN$(RT$,6):800:UF$AN$".SHL":S81Ĺ1144(3837(CH$,CL),WD1)(,n-HD$(NH1)H$:NHNH13,w-11620S,-HINH1:HPHI2:HACI1:CI^,-11200,-X(CH$):X((40X)2):C$(HY$,X)CH$(HY$,X)"---":C$(C$,40),-H$"":J(AL(CI)40):I1J:H$H$C$:I:XAL(CI)(H$),-H$H$(HY$,X):CH$(CI)H$-1TL:BS$BS$" ":V++UF$"SYS.INTERFACE"::D$"OPEN "UF$:D$"DELETE"UF$:SF$UF$:210\+#,+P-CH$CH$(CI):11700:CH$CH$(CI)+Z-H$((BL$,HI2)CH$,WD1):SP(CI)HP:HD$(HI)H$:NHNH1:CL(CH$)+d-CLCL(WD1(HI2)):CL011650,i-H$((BL$,HI2)$,X)H$:NHNH18*+(RT$,4)"$LPT"DV4:HC$"Y":12000a*+(RT$,4)"$LBL"DV4:HC$"Y":12000{*+(RT$,4)"$CRT"DV3*+(RT$,4)"$SRC"DV4:HC$"Y"İ12000*+LC99:*+CI1NA:CW(CI)AL(CI)SP(CI)SP(CI)((CW(CI)AL(CI))2)*+CI++I0BP1-)p+CICI1:CI(NA)11135: DONE!!V)u+SP(CI)HP:H$H$CH$(CI)" ":11115)z+HD$(HI)H$:NHNH1:HIHI1:HPHI:HACI1:H$"")+CI:H$""HIHI1:NHNH1:H$HD$(HI))+X(((WD1)(H$))2)1:CI(HA)NA:SP(CI)SP(CI)X:CI*+HD$(HI)(BL+11200%(\+ ---BUILD MULTI HDRS---8(a+HI1:HP2:NH1V(f+CI1NA:AL(CI)WD11600(i+H$(BL$,HI2)CH$(CI)" ":HP(HI2)1:SP(CI)HP(k+HPHPCW(CI)3:HPCW(CI1)6WD111130: NEXT HDR (l+HPWD111130)m+(BP$,CI1,1)" "BP2BA$(CI)(HY$,X2)*' +CH$(CI)(CH$,CW(CI))?'%+TWTWCW(CI)1:S'*+TWWD311100'/+CG((WDTW)(NA1)):HP1:H$"":CG2ī11100'1+H$(BL$,HPCG1)'4+CI1NA:HPHPCG:SP(CI)HP:HPHPCW(CI):H$H$CH$(CI):CG0H$H$(BL$,CG)'9+:HD$(1)H$([):11020/&+TE$(BL$,P)TE$:TE$(TE$BL$,70)Y& +CI1NA:AN$CH$(CI):800:CH$(CI)AN$z&+CW(CI)(AN$)CW(CI)(AN$)&+AL(CI)CW(CI)11045&+X((AL(CI)(CH$(CI)))2):CH$CH$(CI)&+(2X)2(CH$)WDCINA:CI:11100'+X0CH$(HY$,X)CH55"%'SC2PN$"RQST.INT.SC":91t%'X9:Y5:M$"SIMULTANEOUS HARDCOPY (Y/N) ":100:HC$:HC$"Y"HC$"N"10158%'(RT$,5,8)(BL$,8)QS0:11000:%'QS1:13000:%'%* ---BUILD HDRS---&+L(TE$):P((WD(L4))2):L4WDTE$(TE$,WD):(SR$,38,1)"B"BACI:BITLCW(CI)1A$':NINN1:SO010190%'X2:Y10:M$"OUTPUT TO 'THE SOURCE'":105:X4:Y15:M$"1. REPORT FORMAT":100:X5:M$"2. ATTRIBUTE FORMAT":100:X7:Y10:M$"PLEASE SELECT YOUR CHOICE":100:SC$:SC(SC$):SC1SC2101(NA10),AL(NA10),NL(NA10),CC(20)C#'N1(25),NC(25),GC(25),NP(25)n#'CI1NA:UF$U6$:240:SR$UD$:EF0ij#'CH$(CI)(SR$,30):CW(CI)((SR$,31,3))#'AL(CI)CW(CI):TLTLCW(CI)#'(SR$,34,1)"Y"N1(NN)CI:NC(NN)0:NNNN1'$'BP$BP$(SR$,38,10:DT$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-":XX$XX$"X":i"t'U6$"SYS.SPOOL":UU$S4$:UF$U6$:210"y'UF$U6$:240:SR$UD$:RT$(SR$,15):WD((SR$,16,3)):TE$(SR$,19):(RT$,4)"$SRC"SO1"#~'UF$U6$:240:NA$UD$:NA(NA$):CH$(NA2),CW(NA2),SPZ$"":Z$:Z$""45953!:D$"RUN CNQST.MAIN";S3$P!' *** - INITIALIZE - ***o!'!UBUF5:33,40:BP2:30000!'X11:Y9:M$"PREPARING FOR OUTPUT":105:!'!INIT:QT$(34):CR$(13):TC0:D$(4)!.'SW40:CR$(13):SS2:EE2:LP66:PGLPEE@"8'I18E PROTECTED":45901 M$"BAD SOURCE FILE":4590e M$"SHELL "AN$" DOES NOT EXIST ON DISK":4590 M$"VOLUME MISMATCH ":4590 M$"I/O ERROR":4590 M$"DISK IS FULL " X10:Y0:105:X12:Y4:M$"HIT A KEY TO CONTIUE ":100 216,0!LC(20(NH3))DV3İ500:@LC(PG(NI8))DV4QS0İ500:fQS1(LC(PGNI9))DV4İ500:lw4550D$"VERIFY ";UF$:216,0D$"OPEN ";UF$:EC(222):EC4EC9ijEC34560,4565,4570,4575,4580,4585 M$"DISK IS WRITC(NB)GC(NB)NC(NB):NC(NB)0:NB:ElLC(PG(NI5))DV4QS0İ500cqLC(20(NI4))DV3İ500vQS1(LC(PGNI8))DV4İ500{LC(20(NH3))DV3İ500:LC(PG(NH3))DV4QS0İ500:QS1(LC(EPDL))DV4İ500:((BL$,13)NC$,XD):M$M$NC$:P1PXD1:I:150:LCLC1SM$""İ150:LCLC1dNC(NI1)0:LNLN1:M$PL$:150:LCLC1:TCTC1 CC(ND)0āJJ1CC(ND):150:LCLC1:JJLN0::TF$"N"TL$"N"ı?1750:BK1:500"DNB0NI1:GKLCTP:P10:I1NT:LL((T$(I),3)):P((T$(I),4,3)):XD((T$(I),3))^LL0ĂI:1782LLLC0āJLC1LL:150:J:P10:LCLLP2PP11:P20M$M$(BL$,P2)II1:ANC(I):NC(NI1)NC(NI1)NC(I):NP(NI1)NP(I):350:NC$A$:II1:NC$0:LCLC1:T(1)0āI1T(1):150:LCLC1:I8NH1ıHI2NH:M$HD$(HI):150:LCLC1:T(HI)0āI1T(HI):150:LCLC1:IHIBA1BK1ıI1B2:150:LCLC1:I:LCEP1757LCEPİ1700JJLC1EP:150:JJNT0ı):150:LCLC1:II*JJ:I1EE:150:IWLCSS:TE$HD$(1):LT80:DF$"Y"LTLT10rSS0āI1SS:150:INH01737PF$"Y"LTLT10TE$(TE$,LT):M$TE$:DF$"Y"M$S1$" "M$PF$"Y"P9P91:AP9:203:M$M$" PAGE "A$,15UD$:SR$SR$A$EF0ı?TL140İ240:A$UD$:SR$SR$A$LEF0ıoTL210İ240:A$UD$:SR$SR$A$|EF0ı?LC991704JJLC1PG:150:JJ:NF0āI1EE:150:I:1704JJ1NF:LCLC1:M$F$(JJ):150:G(JJ)0āII1G(JJTC1:BA0İ150:LCLC1)BS$SR$:BP18BEF01000AG400GKaISIAL(CI):CLAL(CI)PL$((BL$,SP(CI))(SR$,I,CL),WD1)M$PL$:150:LCLC1II(WD1SP(CI))CLCL(WD1SP(CI)):CL01210PL$"":1040TL70İ240:A$(PL$)M$PL$:150:LCLC1:10203CI(NA)1040r300:PL$(PL$BL$,SP(CI)1)(SR$,SI,AL(CI)):SISIAL(CI)~CICI1QS1ī950 CINASP(CI)(PL$)M$PL$:150:LCLC1:1020 1025CI:QS1İ1800:1045M$PL$:150:LCLC1:TC O(38363))CNuS4$",S"((38364))",D"((38365))",V"((38366))~XuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))u}1:(9);(1);(1);"80N";"CNQST.QEDIT.0.Y - 081882 - 2.0":UIT";:Z$""  (Z$:Z$""10250;(Z$"Y"Z$"N"10200M(Z$"Y"10002[(115:800c;(200uA$"":I05:A$A$((38352I)):I:S1$A$:uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((38362))",V"(NQST.MAIN":s'8t'!UBUF5:(4)"RUN CNQST.QUERY";S3$>'G'115'"YOU HAVE NOT YET SAVED THE QUERY"::"IN MEMORY ON DISK!!"'::"ARE YOU SURE YOU WANT TO QUIT?"':10:"ENTER 'N' TO RETURN TO EDITING" (:10:"ENTER 'Y' TO REALLY Q":"'" 1. EDIT A QUERY":D'" 2. COMPILE A QUERY":j$'" 3. RETURN TO MAIN MENU":.'" SELECT A FUNCTION, PLEASE":Z$""3'Z$:Z$""100358'Z(Z$):Z0Z3Z$"":100359'='Z1ĬB'Z210100 G'Z3PN$"CO ERROR":7090'M$"DISK FULL":7090|M$M$" ("(X)")":X22:Y0:100:M$"HIT SPACE BAR TO CONTINUE":X23:Y7:100Z$"":Z$:Z$""7095' *** DECIDE NEXT CHAIN ***'QS210200'115'" QUERY LANGUAGE SUB-SYSTEM MENU100:I12500:.X1:Y20:M$"A: "FL$:1007QS2=WUXX(222):X4X9ij|]X37025,7030,7035,7040,7045,7050qM$"WRITE PROTECTED":7090vM$"BAD SOURCE FILE":7090{M$"NO SUCH FILE":7090M$"VOLUME MISMATCH":7090M$"I/p *** APPEND FILE ***,qEF0:E90EuCPNH:700:FL$""ı\w:D$"VERIFY ";F1$vzNNNH2:IO$"I":4500250:E91EF16900SL$(NN)SL$:EF1ī6900NNNN2:NN2546020NHNN:IO$"C":4500:EF1X23:Y27:M$"TRUNCATED!":M$"TRUNCATED!":100:I12500:C.1:1:X1:Y1:M$"I: "FL$:M$L8QS2Ri *** PUT FILE ***|700:FL$""ıNN10:IO$"O":4500NN1NH:SL$(NN)""SL$(NN)(0)5065SL$(NN)NN"@":IO$"C":4500CPNHQS1:EF1ī4900%NNNN5:NNLM4020/4900;1:1:YIO$"I"ĺD$"OPEN ";F1$:IO$"O"ĺD$"OPEN ";F1$:D$"DELETE "F1$:D$"OPEN "F1$:D$"WRITE "FL$:IO$"C"ĺD$"CLOSE ";FL$:: $NHNN:SL$(NH)"":IO$"C":4500:EF1X23:Y27:600:NN03015 N1NNı4 NN0SL$(N1)(0):P IN1NN:SL$(I)(0):IY QS2_ v *** GET FILE ***1:1:NH0:EF0:E90CPNH:700:FL$""ı:D$"VERIFY ";F1$NN10:IO$"I":4500250:E91EF14900 SL$(NN)SL$1000O000"A$:500:950:SL$(NN)IN$ZLC1:I1NN1:(SL$(I)"")(SL$(I)(0))LCLC1`ALC:202:SC$"00"A$ML$"1000N000":ANN:203:SC$SC$A$DF$IN$:500CPNH QS23 *** DELETE *** 600:NN0ı N1NN:CPN1:ı&DF$(BL$,ML):IN$DF$:ANN:203XSC$"0022"ML$"1000O000"A$:500:SL$(NN)IN$iNNNHNHNNsCPNN|QS2K *** CHANGE ***600:NN0ıDF$(SL$(NN)BL$,ML):IN$DF$:ANN:203DF$""DF$(0)ı"SC$"0022"ML$"("ICDGPA",I,1)8801kII1:I("ICDGPA")870@pCCI:IXIIWuIX(CL$)IIIX:zz(CL$,IX,1)" "IXIX1:885IIIX:125I(IN$)(IN$,I,1)" "970II1:I1955IN$(IN$,I): *** I/P RTN ***600:NN0(0)805>LCLC1:805H0ILCHWHWLCZMXLC1HW:Y1:M$(BL$,SW1):100:X`QvR *** GET CL$ ***WSC$"00220251000O000COMMAND ?"\DF$(BL$,25):IN$DF$:125:500aCL$IN$:II1:Z$(CL$,1):125:I1cZ$"Q"CC1:fZ$FU0F1$F1$S6$1  *** DISPLAY TEXT ***?!LC1:SX1c%(SX255)(SXNH)(SXLM)840*SL$(SX)""SXSX1:805/ALC:202:SC$"00"A$ML$"1000I000":ASX:203:SC$SC$A$4DF$SL$(SX):IN$DF$:SXCPİ5009SXSX1:(SL$(SX1),1)$ ***IXII:FL$"":FU0,IX(CL$)ıN(CL$,IX,1)" "IXIX1:710XISIXxIX(CL$)IX(CL$)1:740(CL$,IX,1)","IXIX1:725(CL$,IX,1)","FU1FL$(CL$,IS,IXIS):IIIX1FL$FL$".SRC":F1$FL$(CL$,IX)* GET NN *** ]IXII:NN0, bIX(CL$)ıN g(CL$,IX,1)" "IXIX1:610X lISIXx qIX(CL$)IX(CL$)1:640 s(CL$,IX,1)"-"640 v(CL$,IX,1)" "IXIX1:625 NN((CL$,IS,IXIS)):IXIX1:IIIX:NNLMNN0  *** GET FL DF$(0)DF$" ":M X((SC$,5,3)):DF$(DF$BL$,X):IN$(IN$BL$,X)m &18944:(13)0(13)6590 +M$"SYSTEM EDITOR ERROR CODE OF: "((13)):ES255: NX(IN$) P(IN$,X,1)" "595 QXX1:X1592 SIN$(IN$,X) W X **I180:BL$BL$" ":X$X$"":Y$Y$"":NL$NL$(0):Q ?LM(0).75:LM(LMML)d @SL$(LM):QXLMj   *** COMMAND I/P RTN *** EF0:850:CC1ı CC1000,2000,3000,4000,5000,6000 CC2İ800 400  *** - EDIT ATTRIBUTE - ***A$(255)ij A$CR$ĺD$:C A$(32)A$"@"E91:EFE9:D$:W SL$SL$A$:257p , *** INITIALIZE *** -33,40::(38373)1ĺ(12) .30000 1!INIT:QT$(34):CR$(13) 6SW40:D$(4):(38373)1SW80 8MLSW5:AML:203:ML$A$5 ;BL$,SW1):100< A$(A):L(A$):(A$,1)" "A$(A$,L1)g AU$A$:A$("0000000000"A$,A1):A11:u A12:200 A13:200 A14:200 A15:200 A16:200 A17:200 A18:200 A19:200 SL$"" D$;"READ ";FL$ A$: **** CNQST.QEDIT ***'7000B 300: INIT,\400: & EDITgZ10000[:(4)"RUN "PN$;S3$\]cdX:Y:M$;:i:(38373)1ĺ(12)j100n100s:(38373)1ĺ(12)t }X23:Y1:M$(          z#??    Ӯ®ĠӮ  ԮήҠԮԠ3Ԯ٠Ԯ̠ԮȠԮϠ ԮǠ ԮΠԮҠԮήʠ ԮԠԮ٠EԮՠԮРF$U2$:UD$(QR$,26):220@ *** CONVERT WHERE ATOM ***\ A$(QR$,1):250:CA$A$~A$(QR$,2,3):250:CA$CA$A$A$(QR$,5,1):300:CA$CA$A$A$(QR$,6,1):250:CA$CA$A$!A$(QR$,7,3):250:CA$CA$A$&A$(QR$,10,1):250:CA$A$(QR$,21,3):250:CA$CA$A$HA$(0):(QR$,64,1)"K"A$(128)zCA$CA$A$:A$(0):(QR$,65,1)"K"A$(128)CA$CA$A$A$(QR$,24,1):A9(A$):(QR$,25,1)"N"A9A9128A$(A9):CA$CA$A$CA$"S"CA$(CA$)15ijUA$%A$(QR$,5,1):300:CA$CA$A$GA$(QR$,6,1):250:CA$CA$A$iA$(QR$,7,3):250:CA$CA$A$A$(QR$,10,4):250:CA$CA$A$:(A$)1CA$CA$(0)A$(QR$,14,4):250:CA$CA$A$:(A$)1CA$CA$(0)A$(QR$,18,3):250:CA$CA$A$!T.MAIN":91. A$"CRTLPTLBLGRFPLT":Z(Z$)1NZ(Z3)1:DY$"$"(A$,Z,3)jQH$DY$(QH$,(QH$)4)p? *** CONVERT SELECT ATOM ***IF MID$ (QR$,59,1) = "K" THEN 1770 A$(QR$,1):250:CA$A$A$(QR$,2,3):250:CA$CA$E":+" 3. PRINTER - LABEL MODE":V" 4. PRINTER - BAR GRAPH MODE":" 5. PRINTER - PLOTTING MODE":" 6. CANCEL & RETURN TO MAIN MENU"::Z$""Z$:Z$""1535Z$"1"Z$"6"Z$"":1535 :Z$"6"PN$"CNQS)1900:PA$CA$:13056*LM.+E911090rBUF$U2$:UD$"$":220:230:UF$U1$:S81Ĺ1144(38364),(38366){C230K:(38373)1ĺ(12)" ROUTE OUTPUT TO:":" 1. CRT DISPLAY":" 2. PRINTER - REPORT MOD)"&"UF$U2$:UD$QR$:220:105591800:PA$CA$:13056AWM!SA$"":UF$U1$:240:QR$UD$:(QR$,1)"@"SA$QR$:UF$U2$:220:1059"LM$QR$:1060#UF$U1$:240:LM$UD$$E90:LM1(LM$):UF$U1$:240:QR$UD$:QR$"$"LM(LM$):E91:1066U2$:UD$SM$:2207SM1(SM$):UF$U1$:240:QR$UD$P 1700:PA$CA$:13056mSM:UF$U1$:240:WM$UD$WM1(WM$):UF$U1$:240:QR$UD$(QR$,1)"?"UF$U2$:UD$QR$:220:1055(QR$,1)"&"(QR$,16,4)"$CRT"DA$QR$:1055 (QR$,18373)1ĺ(12)^10:4:"SCHEDULING QUERY FOR EXECUTION":1:1:UF$U2$:UD$QT$QH$QT$:220wUF$U1$:240:DM$UD$UF$U2$:UD$DM$:220I1(DM$):UF$U1$:240:RN$(I)UD$UF$U2$:UD$QT$RN$(I)QT$:220I:UF$U1$:240:SM$UD$UF$ /II1:I1810& 3AN$(AN$,I):G  *** KRAM ERROR HANDLER ***\ KE(11):KE0ıb   *** I/P THE .QRY FILE *** U1$QF$:UF$U1$:UU$S6$:S81Ĺ1144(38370),(38372) 210:UF$U1$:240:QH$UD$ (QH$,4)"$DYN"İ1500:(3):! A2(A256):A3A(A2256)4 A$(A3)(A2): +a , *** GEN OPCODE BRANCH-VECTOR ***i -I0 1J1(OC$):A$(OC$,J,1)IJ:J(OC$) 6J:I0ij ;A$(I) ]  *** - STRIP TRAILING BLANKS - *** %I15 *(AN$,I,1)" "8190),(38372)* D$"WRITE ";UF$:UD$:D$:@ D$"CLOSE ";UF$:b S81Ĺ1144(38364),(38366) D$"READ ";UF$:UD$:D$: *** GEN BINARY BYTE(S) *** A$"S"A$"L"A$"T"ı A(A$):(A$)4AA1 A1A0 A255270 A$(AL 5 A$(A):L(A$):(A$,1)" "A$(A$,L1)` AU$A$:A$("0000000000"A$,A1):A11:n A12:200| A13:200 A14:200 A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: S81Ĺ1144(3837)"RUN CNQST.QRUN.DRVR";S3$ c5 dX1:Y1:M$;:N i:(38373)1ĺ(12)W j100d n:M$;: }X23:Y0:M$(BL$,SW1):100 M$:HC$"Y"Ċ1:M$:0 M$"": M$"****> ERROR: "M$:150:ECEC1: M$"====> "M$:150: ESSLESST **** CNQST.QPREP ***: 10000: *** INITIALIZE,b20000: *** & GET THE .QRY NAME1000: *** I/P THE .QRY FILE< *** DO THE CHAIN TO QRUN HERE ***Z[:(38373)1ĺ(12)^12:1:"JUST A MOMENT, PLEASE..." a:(4          |&FIELD#005 0&SCREEN#001 1&SCREEN#004 0&SCREEN#006 1UNUSED 0|&FIELD#006 0&KEY01 0&SCREEN 0'&SCREEN#001 0M&SCREEN#001 1s00100100015 006 000020151000O00UQRY.NAME0150001 000040301000O00DDESCRIPTION0300001 QRY.NAME 015A 0001UN00080NNDESCRIPTION 030A 0001DN00160NNTYPE 001A 0031DN00280NNCLASS 001A 0032DN00360NNROUTE 001A 0033DN00440NNUNUSED 007A 0034DN00520NN|&FIELD#001 0&FIELD#002 0'&FIELD#003 0M&FIELD#004 0s&FIELD#005 0&sz((38359))",V"((38360))WDuS3$",S"((38361))",D"((38362))",V"((38363))NuS4$",S"((38364))",D"((38365))",V"((38366))XuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"(*NU2$"SYS.PASS":UF$U2$:UU$UX$:S81Ĺ1144(38364),(38366)j4N210:D$"READ "U2$:QF$:D$:D$"CLOSE"HND$;"DELETE SYS.PASS"RNU2$"SYS.PASS":UF$U2$:UU$UX$:210N0uA$"":I05:A$A$((38352I)):I:S1$A$:uS2$",S"((38358))",D"'I110:NL$NL$(0):I2.'I180:BL$BL$" ":8s'^hB *** SUPERKRAM ERROR HANDLER ***iB"SUPERKRAM ERROR CODE: ";KEB:PF *** DOS ERROR HANDLER ***QF"DOS ERROR CODE: ";ER$;",";EM$;","ET$;",";ES$F: N *** GET .QRY NAME ***? ACCESS'ES FOR DOMAIN **** RI1(DM$)E AN$(RN$(RI),30):800j FL$AN$:!ACCESSFL$:900:KE10ijr RIx ' *** INITIALIZE ***'!INIT::(38373)1ĺ(12)'30000:UX$S4$'CR$(13):QT$(34):D$(4)'OC$"E+-*/<>=#LG&OC"$$,21)PM$1990GX$QR$:(DA$,20,1)"N"X$(BL$QR$,((DA$,5,2)))(DA$,20,1)"N"(DA$,3,2)"02"X$(BL$QR$,((DA$,5,2))((DA$,7,2)))UF$U2$:UD$(DA$,15)X$:220:DA$""A$((QR$)):250CA$"L"A$QR$ *** DO THE)21ij k0l *** CONVERT LITERAL ATOM ***Lq(QR$,5)"$CRT:"1990sDH0DH1:M$"ENTER RUN-TIME VALUES FOR THE FOLLOWING:":X0:Y0:105:vPM$(QR$,(QR$)5):PM$;": ";:R$:QR$R${(QR$,1)"."QR$" 0"QR$DA$""1990(DA(QR$,29,3):250:CA$CA$A$>5A$(QR$,32,3):250:CA$CA$A$w7A9$"":QQ02:A$(0):(QR$,37QQ,1)"K"A$(128)8A9$A9$A$:QQ:CA$CA$A9$:A$(QR$,35,1):A9(A$):(QR$,36,1)"N"A9A9128?A$(A9):CA$CA$A$DCA$"W"CA$I(CA$CA$A$*)A$(QR$,11,3):250:CA$CA$A$c+A$(QR$,14,4):250:CA$CA$A$:(A$)1CA$CA$(0),A$(QR$,18,4):250:CA$CA$A$:(A$)1CA$CA$(0)-A$(QR$,22,4):250:CA$CA$A$:(A$)1CA$CA$(0)0A$(QR$,26,3):250:CA$CA$A$2A$Ђ! **** CNQST.QRUN.DRVR ****2 10000:1000L2000:3000:4000:20Z30000:300:PN$"CNQST.REPORT":O10PN$"CNQST.GRAPH"[O12ī180\O13PN$"CNQST.LABEL" _190:PN$"CNQST.REPORT"!UBUF5:30000:PN$"CNQST.REPORT":SX$S3$:X1:Y(38372))uR}1:(9);(1);(1);"80N";"CNQST.QPREP.11.A18 - 090182 - 2.0":: L iP  Le  yV myV  8*M+M )M+MJ+M +M i zV )M ̅ ( ` LLhhLqML S` L KLL@LLK LSU,L  -LHH Uhh LL'MLLLL`LLLL U `e  L'ML8'M'M(MLLHJ)  h)i  mL  L L`L L `LjL UUULʎLLKLLC OLkT(MLLʎLLkTLLLLL'M L LLU`L;L.L UU$`-ULUU 0:ސL)LLLLLU( KLLڢKL ULLLLL ULLLQ U PL`SSK0 SK)mSS3 /K) Si SK)mSS SʽlSS`LRLL S`LL [LLSLLLL U >LLLL P U H Q Uh P PLLLL Q U `LɈMLLLL0MLȽK.,M L/MLC8,M .L,M.M.ML8.M/M 0L-M ,MmLȌ-M8LLKLKLF LL'PL+D S`L LKȌL` R9Q ULR RMQ ULR RaQ ULRLLL`*L (MLL`L`L(ML LL`L` - HIT "RETURN"FULL INPUT, PLEASE! SOME INPUT REQUIRED INVALID DATE L QL L K L`LLLLH Uh )  @K KLȌL'MLLL˭L`L LL,MK ЍL U ) ` hPL`-P&PP UHP,HPp @L=P)? PP`LLLL U H h `,,`LLLLʎLH PhLL O`LLLLILL QLL U H P Uh Q QLLLLٮLLLL U `L'MLL`ALPHANUMERICNUMERIC, DECIMAL NOT ALLOWEDOK KL OK 5OKL)OK L4OKLLڢK& ULLLLLLLOLOLOOL UUUUL`LPP P PLɠ)L<UUULLL('M(MP'M(M(M f Ɇȱ ȱ ɩ bN {Ʉhh` `LLLLLNLLLL UL NLimL NLmLmLLLLmL$8 NLmLL`'M 8'M'M`LʬL M NLIN OLLqM 6O OLɛ )LL`Ʉ vPLPMɍK uQLԮLLLLLNLLLL ULUL)LL M`ɉ xSLPMɕɈ SLPM lTLPM K'MLLڢK(M U` `LL 1M L L L `i j KKKK K ͛K ȱ ͜KL~K i  lۥ kLK Kȱ Kȱ KKKK`KKK )i Kȱ )mKKKKK`J LJLLLLLLLSKCK 5K `K ͧK `K KL KLLKK ) dL KmLLLK )Lȱ )Lȱ )Lȱ )Lȱ LȌLK8LL i  L LDKFK 5KL `LLIKNK 5KL     8373)1ĺ(12) j100$ n:M$;:E }X23:Y0:M$(BL$,SW1):100W HC$"Y"158y (38373)1HC$"Y"ĺD$"PR#0" HC$"Y"ĺD$"PR#1":(9);(1);(1);"80N"; M$:HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3" SO0UF$SF$:UD$QT$M$QT$:1 **** RQST.QREPORT ***** 10000:51000:F700:AC0ĬLFyZPN$"CNQST.QMENU":AC2PN$"CNQST.MAIN"[:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S3$cdX1:Y1:M$;: i:(3                   h33 : A 78L$83 >8L$8L$83^333`K33 5`R33 5`W3333 ?6 6333ʎ3 ` N 3 i  43!43`S333 6 633` @ 3 i  43 43`43S4ʊ) 36H6H`68888 9 939F9Y9l99993 "4m3i3 ^"4L}4i j 3 3 33 3 3 ȱ 3Lh5 i  lۥ kL{5 3ȱ 3ȱ 33 3 3` 5 6 p63 `O 63313 6H3) h3333:3113 5H3) h,3-333:31P3A3 5a3b3 c3 A3a3A3C33333SL4WL4LL4 `^?_3^i^_ ^3L}4^M_3^i^_ ^333L}4^Q_^m3^_3 L#4L5국䵍뵩嵠Jm赍嵊mjnnn浈ۭ0m浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠     UD$:SR$SR$A$EF0ı>TL140İ240:A$UD$:SR$SR$A$KEF0ınTL210İ240:A$UD$:SR$SR$A${EF0ı?LC991704JJLC1PG:150:JJ:NF0āI1EE:150:I:1704JJ1NF:LCLC1:M$F$(JJ):150:G(JJ)0āII1G(JJ)TC1:BA0İ150:LCLC1(BS$SR$:BP17BEF01000@G400FK`ISIAL(CI):CLAL(CI)PL$((BL$,SP(CI))(SR$,I,CL),WD1)M$PL$:150:LCLC1II(WD1SP(CI))CLCL(WD1SP(CI)):CL01210PL$"":1040TL70İ240:A$(PL$)M$PL$:150:LCLC1:10202CI(NA)1040q300:PL$(PL$BL$,SP(CI)1)(SR$,SI,AL(CI)):SISIAL(CI)}CICI1QS1ī950 CINASP(CI)(PL$)M$PL$:150:LCLC1:1020 1025CI:QS1İ1800:1045M$PL$:150:LCLC1:TCF$U6$:240:SR$UD$:EF110906SR$"$"EF1:1090GTL70İ1500dSI1:600:BK0:CIBXNA300:PL$"":SP(CI)1PL$(BL$,SP(CI)1)PL$PL$(SR$,SI,AL(CI)):SISIAL(CI)AL(CI)WD1200CICI1QS1ī950 CINASP(CI)NI10))DV3İ500&KE(11):KE0ı,>CI(NA)1040SNL(CI)1ī1030cLNNDLN0M$PL$:LNLN1:150:LCLC1:CC(LN)0ī1020JJ1CC(LN):150:LCLC1:JJ1020 --- DO REPORT ---EF04001950:NN0EF0:UURN TO MAIN MENU":100:Z$""/Z$:Z$""7505HZ$"1"AC0:[Z$"2"AC1:nZ$"3"AC2:}Z$"":750  *** - STRIP TRAILING BLANKS - ***%I(AN$)*(AN$,I,1)" "819/II1:I18103AN$(AN$,I):LC(20(I1:SI1#(BP$,I,1)" "6603SISIAL(I)III1:I(NA)655WBXI:BP1c1950:sUF$"":230A$"PRINT":DV3A$"DISPLAY"X11:Y0:M$"1. "A$" AGAIN":105X12:Y0:M$"2. RUN ANOTHER QUERY":100X13:Y0:M$"3. RETFOR "CH$(BA)" = "(BS$,BI,AL(BA))" ***":150=vNB0NIM$"'"CH$(N1(NB))"'"::ANC(NB):INB:350:Z$(DT$A$,13):M$(M$DT$,24)Z$150GC(NB)GC(NB)NC(NB):NC(NB)0:NB150:M$HY$:150:150:LCLCNI8BX1:BP0:BCBC1:699 :15040HI1NH:M$HD$(HI):150::150:LC3SSNH:WKXBI0BX1:Z]BP1649b(BS$,BI,AL(BA))(SR$,BI,AL(BA))650lNB0qNBNI649rQS0629sQS1TL$"Y"İ1850:BK1:6490u1900:150:M$HY$:150:150:M$"*** SUB-TOTAL ""Z$:Z$""5154:(38373)1ĺ(12)A&EF0ıP'DV3553i(:(38373)1ĺ(12){)QS1İ1700:*DV4LC99āJJLC1PGEE:150:JJ+M$"":JJ1SS:150:,P9P91:AP9:203:M$S1$(TE$,(TE$)8)" PAGE "A$/150SH-UP DV=4<LCPGāZZLC1PG:150:LCLC1:ZZ:NF0459ZZ1NF:M$F$(ZZ):LCLC1:150:G(ZZ)0āII1G(ZZ):150:LCLC1:IIZZEE0āI1EE:150:I:LC99DV3550X23:Y0:M$"HIT ANY KEY TO CONTINUE":100:Z$(BA)"': "(BC):150:LCLC1I0NI:M$"'"CH$(N1(I))"': ":ANC(I):350:Z$(DT$A$,13):BI0AGC(I):350:Z$(DT$A$,13)M$(M$DT$,24)Z$150:LCLC1:150:M$"TOTAL # TUPLES SELECTED: "(TC):150:LCLC2DV3499  FINIS0404 TL$"Y"İ1750:456c ((LCNI5)(20(NH3))DV3)((LCNI5)(60(NH3))DV4)İ500 M8$"*** TOTALS ***":M$M8$:BI0SR$"":600:M8$"*** GRAND TOTALS ***" 1975:M$M8$ 150:150:LCLC2BC0M$"NUMBER OF SETS BY '"CH$/ 6NC(NN)NC(NN)((SR$,SI,AL(CI))):NNNN1J ^A$(A):Z1:NP(I)0ım `(A$,Z,1)"."NP(A$)Z:355 aZZ1:Z(A$)352 bNP0:A$A$"." cNP(I)NP0A$A$("00000000000",NP(I)NP) g  DV3İ500 NI0TF$"N"445 Q";UF$:UD$;CR$;:D$:+ D$"CLOSE ";UF$:I D$"READ ";UF$:UD$:D$:V ,NNNIıh -N1(NN)CIı /NC(NN)NC(NN)((SR$,SI,AL(CI))):NNNN1:TC0ı 0EIAL(CI)SI1 1(SR$,EI,1)"."NP(NN1)(SIAL(CI)1)EI: 3EIEI1:EISI305 5220 M$"":= A$(A):L(A$):(A$,1)" "A$(A$,L1)h AU$A$:A$("0000000000"A$,A1):A11:v A12:200 A13:200 A14:200 A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: D$"WRITE (     n&SYSCNTRL 0MCLASS 0sDESCRIPTION 0QRY.NAME 0ROUTE 0TYPE 0'UNUSED 0M&FIELD#005 &FIELD#003 &FIELD#006 |&SCREEN#004 1s&SCREEN#005 0&SCREEN#005 1&SCREEN#006 0&SCREEN#006 1'000130071000O00DUNUSED0070034 004015000006010101 &FIELD#004 &FIELD#002 &FIELD#001 |&SCREEN#002 0&SCREEN#002 1&SCREEN#003 0&SCREEN#003 1'&SCREEN#004 0M000070011000O00DTYPE0010031 000090011000O00DCLASS0010032 000110011000O00DROUTE0010033 $"":Z$:Z$""45952!:D$"RUN CNQST.MAIN";S3$O!' *** - INITIALIZE - ***n!'!UBUF5:33,40:BP2:30000!'X11:Y9:M$"PREPARING FOR OUTPUT":105:!'!INIT:QT$(34):CR$(13):TC0:D$(4)!.'SW40:CR$(13):SS2:EE2:LP66:PGLPEE?"8'I180 PROTECTED":45900 M$"BAD SOURCE FILE":4590d M$"SHELL "AN$" DOES NOT EXIST ON DISK":4590 M$"VOLUME MISMATCH ":4590 M$"I/O ERROR":4590 M$"DISK IS FULL " X10:Y0:105:X12:Y4:M$"HIT A KEY TO CONTIUE ":100 216,0!ZLC(20(NH3))DV3İ500:?LC(PG(NI8))DV4QS0İ500:eQS1(LC(PGNI9))DV4İ500:kv4550D$"VERIFY ";UF$:216,0D$"OPEN ";UF$:EC(222):EC4EC9ijEC34560,4565,4570,4575,4580,4585 M$"DISK IS WRITE(NB)GC(NB)NC(NB):NC(NB)0:NB:DlLC(PG(NI5))DV4QS0İ500bqLC(20(NI4))DV3İ500vQS1(LC(PGNI8))DV4İ500{LC(20(NH3))DV3İ500:LC(PG(NH3))DV4QS0İ500:QS1(LC(EPDL))DV4İ500:(BL$,13)NC$,XD)9M$M$NC$:P1PXD1:I:150:LCLC1RM$""İ150:LCLC1cNC(NI1)0:LNLN1:M$PL$:150:LCLC1:TCTC1 CC(ND)0āJJ1CC(ND):150:LCLC1:JJLN0::TF$"N"TL$"N"ı?1750:BK1:500!DNB0NI1:GCJLCTP:P10:I1NT:LL((T$(I),3)):P((T$(I),4,3)):XD((T$(I),3))]LL0ĂI:1782LLLC0āJLC1LL:150:J:P10:LCLLP2PP11:P20M$M$(BL$,P2)II1:ANC(I):NC(NI1)NC(NI1)NC(I):NP(NI1)NP(I):350:NC$A$:II1:NC$(:LCLC1:T(1)0āI1T(1):150:LCLC1:I7NH1ıHI2NH:M$HD$(HI):150:LCLC1:T(HI)0āI1T(HI):150:LCLC1:IHIBA1BK1ıI1B2:150:LCLC1:I:LCEP1757LCEPİ1700JJLC1EP:150:JJNT0ı:150:LCLC1:II)JJ:I1EE:150:IVLCSS:TE$HD$(1):LT80:DF$"Y"LTLT10qSS0āI1SS:150:INH01737PF$"Y"LTLT10TE$(TE$,LT):M$TE$:DF$"Y"M$S1$" "M$PF$"Y"P9P91:AP9:203:M$M$" PAGE "A$+150"SYS.SPOOL":UU$S4$:UF$U6$:210gy'UF$U6$:240:SR$UD$:RT$(SR$,15):WD((SR$,16,3)):TE$(SR$,19)~'UF$U6$:240:NA$UD$:NA(NA$):SC$(NA2),AL(NA2),CH$(NA2)'N1(25),NC(25),GC(25)'CI1NA:UF$U6$:240:SR$UD$:EF0ij'CH$(CI)(SR$,EF0ı?,' *** - INITIALIZE - ***J'!INIT:33,40:BP2:30000c':(38373)1ĺ(12)'!INIT:QT$(34):CR$(13):TC0:D$(4).'SW40:(38373)1SW803'CR$(13)8'I180:DT$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-": t'U6$CI):IN$DF$:SC$SC$(CI):250(CICI12 1025BCI:TCTC1SBS$SR$:BP1\=135kBEF01000tG400zKTL70İ240:A$UD$:SR$SR$A$EF0ıTL140İ240:A$UD$:SR$SR$A$EF0ıTL210İ240:A$UD$:SR$SR$A$ NN01EF0:UF$U6$:240:SR$UD$:EF11090ISR$"$"EF1:1090ZTL70İ1500rSI1:600:CIBXNA{300DF$(SR$,SI,AL(CI)):SISIAL(CI):IN$DF$:SC$SC$(CI):250CICI1CI(NA)1040300:DF$(SR$,SI,AL(CI)):SISIAL(1:Z$"3"AC2:%Z$"":750M  *** - STRIP TRAILING BLANKS - ***Z%I(AN$)s*(AN$,I,1)" "819/II1:I18103AN$(AN$,I): *** KRAM ERROR HANDLER ***KE(11):KE0ı --- DO DISPLAY ---EF0400:BP1 UF$"":230=A$"PRINT":DV3A$"DISPLAY"dX11:Y0:M$"1. "A$" AGAIN":105X12:Y0:M$"2. RUN ANOTHER QUERY":100X13:Y0:M$"3. RETURN TO MAIN MENU":100:Z$""Z$:Z$""750Z$"1"AC0:Z$"2"ACT$(NC(NB)),13):M$(M$DT$,24)Z$,150RGC(NB)GC(NB)NC(NB):NC(NB)0:NB150:M$(HY$,SW1):150:150:LCLCNI7:BCBC1BX1:BP0:135:X1:Y1:105:699I1:SI1(BP$,I,1)" "660SISIAL(I)II1:I(NA)655BXI]BP16499b(BS$,BI,AL(BA))(SR$,BI,AL(BA))650BlNB0QqNBNI649jr:(38373)1ĺ(12)s150:M$(HY$,SW1):150:150:M$"*** SUB-TOTAL ***":150:M$CH$(BA)" = "(BS$,BI,AL(BA)):150vNB0NI#M$"'"CH$(N1(NB))"': ":Z$(D:(38373)1ĺ(12) &EF0ı/'DV3554H(:(38373)1ĺ(12)*DV4LC99A$CR$(10):D$"PR#1":A$;A$;A$:D$"PR#0"+P9P91:AP9:203:M$(TE$BL$,72)"PAGE "A$/150:1500HI1NH:M$HD$(HI):150::150:LC0WXBI0ıTUPLES IN PROJECTION: "(TC):150+ 1359 DV3499N  FINISH-UP DV=4r Z60(NH)LC:ZZ1Z2:150:ZZx  :(38373)1ĺ(12)  LC99DV3550 X23:Y0:M$"HIT ANY KEY TO CONTINUE":100:Z$"" Z$:Z$""515 *** GRAND TOTALS ***"+ 150:150:LCLC2i BC0M$"NUMBER OF SETS BY '"CH$(BA)"': "(BC):150 I0NI:M$"'"CH$(N1(I))"': ":Z$(DT$(NC(I)),13):BI0Z$(DT$(GC(I)),13) M$(M$DT$,24)Z$ 150:LCLC1:" 150:M$"TOTAL # : SC$""Č18944 ) ,NNNIı; 1N1(NN)CIıi 6NC(NN)NC(NN)((SR$,SI,AL(CI))):NNNN1o ~ DV3İ500 NI0445 ((LCNI5)(20(NH3))DV3)((LCNI5)(60(NH3))DV4)İ500 M$"*** TOTALS ***":BI0SR$"":600:M$"$:A$("0000000000"A$,A1):A11:/ A12:200= A13:200K A14:200Y A15:200g A16:200u A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: D$"WRITE ";UF$:UD$;CR$;:D$: D$"CLOSE ";UF$: D$"READ ";UF$:UD$:D$1ĺ(12) j100 n:M$;:@ }X23:Y0:M$(BL$,SW1):100 SC$"00220011000O000HIT ANY KEY TO CONTINUE":DF$(32):IN$DF$:250: HC$"Y"ĺD$"PR#1" M$:HC$"Y"ĺD$"PR#0" M$"": A$(A):L(A$):(A$,1)" "A$(A$,L1)! AU$A! **** CNQST.DISPLAY **** - 10000:81000:I700:AC0ĬOF|ZPN$"CNQST.QMENU":AC2PN$"CNQST.MAIN"[:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."]:(4)"RUN "PN$;S3$cdX1:Y1:M$;: i:(38373)       :DT$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-":XX$XX$"X":h"t'U6$"SYS.SPOOL":UU$S4$:UF$U6$:210"y'UF$U6$:240:SR$UD$:RT$(SR$,15):WD((SR$,16,3)):TE$(SR$,19):(RT$,4)"$SRC"SO1!#~'UF$U6$:240:NA$UD$:NA(NA$):CH$(NA2),CW(NA2),SP(PILER 2.0"::"INITIALIZING..."%KuhK}1:(9);(1);(1);"80N";"CNQST.QUERY.34.A65 - 083082 - 2.0":1",V"((38366))LJXuS5$",S"((38367))",D"((38368))",V"((38369))JbuS6$",S"((38370))",D"((38371))",V"((38372))JluS7$",S"((38374))",D"((38375))",V"((38376))JvuS8(38377):S9(38378)Ku"CONQUEST QUERY LANGUAGE COMZ$""7095Iq:`I0uA$"":I05:A$A$((38352I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2)I:uS2$",S"((38358))",D"((38359))",V"((38360))IDuS3$",S"((38361))",D"((38362))",V"((38363))JNuS4$",S"((38364))",D"((38365))ED":29090*HfqM$"BAD SOURCE FILE":29090GHkqM$"NO SUCH FILE":29090gHpqM$"VOLUME MISMATCH":29090HuqM$"I/O ERROR":29090HzqM$"DISK FULL":29090HqM$M$" ("(X)")":X22:Y0:100:M$"HIT SPACE BAR TO CONTINUE":X23:Y7:100 IqZ$"":Z$:ENTERED IN SYS.QLIB":170GSV8GeZ(O):RC$(BL$,38)\GeF9$(F):!RDRECF9$,KY$,RC$:900bGe{GxiZ(O):RC$(BL$,38)GiF9$(F):!GTRECF9$,KY$,RC$:900GiGHqX(222):X4X9ijGMqX329025,29030,29035,29040,29045,29050 HaqM$"WRITE PROTECT"A$"P"FUZ$"$LBL"A$"L"4FVZ$"$DYN"A$" "JFVZ$"$CRT"A$"C"jFVZ$"$GRF"Z$"$PLT"A$"G"F VRC$(RC$A$BL$,40):!ADDQL$,KY$,RC$:900:KE022050F VKE35ij:17000FV!PUTQL$,KY$,RC$:900:KE017000G"VM$"QUERY: "SF$" HAS BEEN 3$EkR@EUES255M$"QUERY LIBRARY CATALOG CANCELLED":160:EU!INIT:900:QF$(SU$,3,1)"/"(SU$,6,1)":SYS.QLIB"(SU$,7):!ACCESSQF$:900:QL$(KE)EUKE0KE5QL$"":17000EUKY$(SF$BL$,15):RC$(TL$BL$,30)"SQ":Z$(RA$,4)FUZ$"$LPTĬ#DRA$"M"PN$"CNQST.MAIN":905D&RPN$""21000OD:RD$"OPEN SYS.PASS"S4$DTL140İ240:A$UD$:SR$SR$A$KEF0ınTL210İ240:A$UD$:SR$SR$A${EF0ı?' *** - INITIALIZE - ***'!UBUF5:33,40:BP2:30000:LI1'!INIT:QT$(34):CR$(13):TC0:D$(4).'SW40:I1SW:TC1BEF01000!G600:400'K:PSI:CLAL(CI)JCL351250sM$(SR$,P,35):PP35:CLCL35:1270M$((SR$,P,CL)BL$,35):CL0LX$(LL)M$:LLLL1:M$""LL5CL01299 1205SISIAL(CI):CICI1:TL70İ240:A$:TL175SR$(SR$,175)$CI1NA? AL(CI)WDİ1200:1055sM$M$(SR$,SI,AL(CI))" ":SISIAL(CI):CICI1CI(NA)SP(CI)(M$)LX$(LL)M$:LLLL1:M$""LL5CINA:CI:1070$CICI1:CI.LX$(LL)M$:LLLL1:CC1NC:650:8TCRAM ERROR HANDLER ****KE(11):KE0ı0J --- DO LABELS --- YEF0400|NN0:LC(20(NH3))DV3İ500LC(60(NH3))DV4İ500EF0:UF$U6$:240:SR$UD$:EF11090SR$"$"EF1:1090TL70İ1500LL1:M$"":SI1ETURN TO MAIN MENU":100:Z$""1 Z$:Z$""7507 J Z$"1"AC0:] Z$"2"AC1:p Z$"3"AC2: Z$"":750  *** - STRIP TRAILING BLANKS - *** %I(AN$) *(AN$,I,1)" "819 /II1:I1810 3AN$(AN$,I): *** KUP:LB$(I,J)"":J:I B I15:LB$(I,LI)(LX$(I)BL$,35):_ LILI1:LIUPİ600:LI1e u UF$"":230 A$"PRINT":DV3A$"DISPLAY" X11:Y0:M$"1. "A$" AGAIN":105 X12:Y0:M$"2. RUN ANOTHER QUERY":100 X13:Y0:M$"3. RF$:" D$"READ ";UF$:UD$:D$:[ 150:M$"TOTAL # UNIQUE LABELS PRINTED: "(TC):150 150:M$"TOTAL # LABELS PRINTED, IN ALL: "(TCNC):150  XI15:M$"":J1UP bM$M$LB$(I,J):JUPM$M$" " lJ:150:I:150 vI15:J1A$,1)" "A$(A$,L1)A AU$A$:A$("0000000000"A$,A1):A11:O A12:200] A13:200k A14:200y A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: D$"WRITE ";UF$:UD$;CR$;:D$: D$"CLOSE ";U3)1ĺ(12) j100! n:M$;:B }X23:Y0:M$(BL$,SW1):100d (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(A$):( **** CNQST.LABEL ***** 10000:51000:F700:AC0ĬLFyZPN$"CNQST.QMENU":AC2PN$"CNQST.MAIN"[:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."]_:(4)"RUN "PN$;S3$cdX1:Y1:M$: i:(3837      (NDB1):B2B1:I1B1:B2B2CC(I):I?2+312000:LC99::M$"":u26X10:Y5:M$"DO YOU WANT AN ALIGNMENT PAGE ":10526ZZ$"":ZZ$:ZZ$""1400526ZZ$"Y"ZZ$"N"1400526ZZ$"N"MM$"REPORT":26MM$"ALIGNMENT":12000:36SS0āI1SS:M$:S81Ĺ1144(38364),(38366)U1#3HC$"Y":DV4:LC0:PGLPFLEE:HC$"Y"::BP1:BK1w1$3TPPG:NT0TP((T$(1),3))1%314000:EPPG:BA1EPTP1&3BA1130991'3I11(3(BP$,I,1)" "II1:13096$2)3B1I1:BL0:IB11ND:BLBLCC(I):I:DLBL0:13035 02NF0:NAJ:NA$(NA)903(UD$,1)"F"13075w0 3NFNF1:F$(NF)(UD$,6):G(NF)((UD$,4,2)):FLFL1G(NF)03240:1306003J1:NT003(UD$,1)"$"1309003T$(J)(UD$,2):((T$(J),3))0N1(NN)003NTNT1:JJ1:240:130771"32306):T(I)((UD$,4,2))3/2HLHL1T(I):II1:13016L/2NHI1:PD1:J0:DL0o/2(UD$,1)"A"DLDLND:13055/2ND((UD$,6,2))1:CC(ND)((UD$,4,2)):DLDLCC(ND):P((UD$,8,3)):L((UD$,11,3))/2JJ1:SP(J)P:AL(J)L:NDPDNL(J)1:PDND0224),(38372).24500o.2240:DF$(UD$,2,1):PF$(UD$,3,1):LP((UD$,4,3)):SS((UD$,7,3)):EE((UD$,10,3)).2L180:PF$"Y"L1L110.2DF$"Y"L1L110.2240:TF$(UD$,2,1):TL$(UD$,3,1).2I1.2240:(UD$,1)"H"13030/2HD$(I)(UD$,.D-.X11:M$"HIT ANY KEY WHEN PRINTER IS READY":Y((SW(M$))2)S-.105:Z$""h-.Z$:Z$""12005-.M$"PRINTING "MM$" .....":X11:Y((SW(M$))2):105-/-2 ** GET SHELL INFO *** .2AN$(RT$,6):800:UF$AN$".SHL":S81Ĺ1144(38370(CH$,CL),WD1)',n-HD$(NH1)H$:NHNH12,w-11620R,-HINH1:HPHI2:HACI1:CI],-11200,-X(CH$):X((40X)2):C$(HY$,X)CH$(HY$,X)"---":C$(C$,40),-H$"":J(AL(CI)40):I1J:H$H$C$:I:XAL(CI)(H$),-H$H$(HY$,X):CH$(CI)H$-TL:BS$BS$" ":U++UF$"SYS.INTERFACE"::D$"OPEN "UF$:D$"DELETE"UF$:SF$UF$:210[+#,~+P-CH$CH$(CI):11700:CH$CH$(CI)+Z-H$((BL$,HI2)CH$,WD1):SP(CI)HP:HD$(HI)H$:NHNH1:CL(CH$)+d-CLCL(WD1(HI2)):CL011650,i-H$((BL$,HI2),X)H$:NHNH17*+(RT$,4)"$LPT"DV4:HC$"Y":12000`*+(RT$,4)"$LBL"DV4:HC$"Y":12000z*+(RT$,4)"$CRT"DV3*+(RT$,4)"$SRC"DV4:HC$"Y"İ12000*+LC99:*+CI1NA:CW(CI)AL(CI)SP(CI)SP(CI)((CW(CI)AL(CI))2)*+CI++I1BP1,)p+CICI1:CI(NA)11135: DONE!!U)u+SP(CI)HP:H$H$CH$(CI)" ":11115)z+HD$(HI)H$:NHNH1:HIHI1:HPHI:HACI1:H$"")+CI:H$""HIHI1:NHNH1:H$HD$(HI))+X(((WD1)(H$))2)1:CI(HA)NA:SP(CI)SP(CI)X:CI*+HD$(HI)(BL$11200$(\+ ---BUILD MULTI HDRS---7(a+HI1:HP2:NH1U(f+CI1NA:AL(CI)WD11600(i+H$(BL$,HI2)CH$(CI)" ":HP(HI2)1:SP(CI)HP(k+HPHPCW(CI)3:HPCW(CI1)6WD111130: NEXT HDR (l+HPWD111130)m+(BP$,CI1,1)" "BP2BA0(CI)(HY$,X2))' +CH$(CI)(CH$,CW(CI))>'%+TWTWCW(CI)1:R'*+TWWD311100'/+CG((WDTW)(NA1)):HP1:H$"":CG2ī11100'1+H$(BL$,HPCG1)'4+CI1NA:HPHPCG:SP(CI)HP:HPHPCW(CI):H$H$CH$(CI):CG0H$H$(BL$,CG)'9+:HD$(1)H$([+:11020.&+TE$(BL$,P)TE$:TE$(TE$BL$,70)X& +CI1NA:AN$CH$(CI):800:CH$(CI)AN$y&+CW(CI)(AN$)CW(CI)(AN$)&+AL(CI)CW(CI)11045&+X((AL(CI)(CH$(CI)))2):CH$CH$(CI)&+(2X)2(CH$)WDCINA:CI:11100'+X0CH$(HY$,X)CH$5!%'SC2PN$"RQST.INT.SC":91s%'X9:Y5:M$"SIMULTANEOUS HARDCOPY (Y/N) ":100:HC$:HC$"Y"HC$"N"10158%'(RT$,5,8)(BL$,8)QS0:11000:%'QS1:13000:%'%* ---BUILD HDRS---&+L(TE$):P((WD(L4))2):L4WDTE$(TE$,WD):(SR$,38,1)"B"BACI:BITLCW(CI)1@$':NINN1:SO010190%'X2:Y10:M$"OUTPUT TO 'THE SOURCE'":105:X4:Y15:M$"1. REPORT FORMAT":100:X5:M$"2. ATTRIBUTE FORMAT":100:X7:Y10:M$"PLEASE SELECT YOUR CHOICE":100:SC$:SC(SC$):SC1SC21015NA10),AL(NA10),NL(NA10),CC(20)B#'N1(25),NC(25),GC(25),NP(25)m#'CI1NA:UF$U6$:240:SR$UD$:EF0ij#'CH$(CI)(SR$,30):CW(CI)((SR$,31,3))#'AL(CI)CW(CI):TLTLCW(CI)#'(SR$,34,1)"Y"N1(NN)CI:NC(NN)0:NNNN1&$'BP$BP$(SR$,38,1)"SYS.SPOOL":UU$S4$:UF$U6$:210gy'UF$U6$:240:SR$UD$:RT$(SR$,15):WD((SR$,16,3)):TE$(SR$,19)~'UF$U6$:240:NA$UD$:NA(NA$):SC$(NA2),AL(NA2),CH$(NA2)'N1(25),NC(25),GC(25)'CI1NA:UF$U6$:240:SR$UD$:EF0ij'CH$(CI)(SR$,EF0ı?,' *** - INITIALIZE - ***J'!INIT:33,40:BP2:30000c':(38373)1ĺ(12)'!INIT:QT$(34):CR$(13):TC0:D$(4).'SW40:(38373)1SW803'CR$(13)8'I180:DT$DT$".":BL$BL$" ":NL$NL$(0):HY$HY$"-": t'U6$CI):IN$DF$:SC$SC$(CI):250(CICI12 1025BCI:TCTC1SBS$SR$:BP1\=135kBEF01000tG400zKTL70İ240:A$UD$:SR$SR$A$EF0ıTL140İ240:A$UD$:SR$SR$A$EF0ıTL210İ240:A$UD$:SR$SR$A$ NN01EF0:UF$U6$:240:SR$UD$:EF11090ISR$"$"EF1:1090ZTL70İ1500rSI1:600:CIBXNA{300DF$(SR$,SI,AL(CI)):SISIAL(CI):IN$DF$:SC$SC$(CI):250CICI1CI(NA)1040300:DF$(SR$,SI,AL(CI)):SISIAL(:"38363))BNuS4$",S"((38364))",D"((38365))",V"((38366))}XuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))u}1:(9);(1);(1);"80N";"CNQST.QPREP.11.A17 - 083082 - 2.0"((38375))",V"((38376))89vuS8(38377):S9(38378)>9u9}1:(9);(1);(1);"80N";"CNQST.REPORT.14.A24 - 090182 - 2.0":BS"((38361))",D"((38362))",V"((38363))k8NuS4$",S"((38364))",D"((38365))",V"((38366))8XuS5$",S"((38367))",D"((38368))",V"((38369))8buS6$",S"((38370))",D"((38371))",V"((38372))9luS7$",S"((38374))",D"ODE: ";KE7B:17PF *** DOS ERROR HANDLER ***d7QF"DOS ERROR CODE: ";ER$;",";EM$;","ET$;",";ES$l7F:70uA$"":I05:A$A$((38352I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2)7:uS2$",S"((38358))",D"((38359))",V"((38360))08DuS3$",(BL$,P2)86:M$M$(XX$,XD):P1PXD1:I:150:LCLC1W6:LCPGāILC1PG:150:Ig6:NF0150886:I1NF:M$F$(I):150:G(I)0āJ1G(I):150:J6:EE0āI1EE:150:I6:140006hB *** SUPERKRAM ERROR HANDLER *** 7iB"SUPERKRAM ERROR C(NA)14075K5:M$PL$:150:LCLC1:CC(J)0āJJ1CC(J):150:LCLC1:JJn5:ILC1TP:150:I:NT0150845:LCTP:P10:I1NT:LL((T$(I),3)):P((T$(I),4,3)):XD((T$(I),3))5:LLLC0āJLC1LL:150:J:P10:LCLL 6:P2PP11:P20M$M$6PL$"":J1:I1146SP(I)1PL$(BL$,SP(I)1)J46PL$PL$(XX$,AL(I))\46I(NA)15050r46NL(I1)11500047M$PL$:150:LCLC1:CC(J)0āJJ1CC(J):150:LCLC1:JJ47II1:JJ1:PL$"":14062 5:II1:PL$(PL$BL$,SP(I)1)(XX$,AL(I)):I"":150:I:LCSS 36NH014060:36M$"":DF$"Y"M$S1$m36M$M$(HD$(1),L1):PF$"Y"M$M$" PAGE XXX"36150:LCLC1:T(1)0āK1T(1):150:LCLC1:36NH11406036K2NH:M$HD$(K):150:LCLC1:T(K)0āI1T(K):150:LCLC1:I36K4XuS5$",S"((38367))",D"((38368))",V"((38369))sbuS6$",S"((38370))",D"((38371))",V"((38372))yu}1:(9);(1);(1);"80N";"CNQST.LABEL.1.A6 - 121381 - 2.0":3,";EM$;","ET$;",";ES$F:L0uA$"":I05:A$A$((38352I)):I:S1$A$:uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((38362))",V"((38363))NuS4$",S"((38364))",D"((38365))",V"((38366))85150:Z$"Y"12500V0M$"HIT ANY KEY TO BEGIN...":Y((SW(M$))2):105:Z$""k0Z$:Z$""12530s71:hB *** SUPERKRAM ERROR HANDLER ***iB"SUPERKRAM ERROR CODE: ";KEB:PF *** DOS ERROR HANDLER ***QF"DOS ERROR CODE: ";ER$;"+Z(X2):XC(2)ZGS:XC(4)(XZ)GSR*+XP(1)1:XP(2)Z:XP(3)X:XP(4)XZ:XP(5)GWq4+OT0:(RT$,4)"$PLT"OT19+DV4:LC99:HC$"Y">+YL(YN$)X((YLLW)2):YN$(BL$,X)YN$@+YN$(YN$BL$,LW)C+X(XN$):XH$(BL$,((GWX)2))XN$[+120001,3)):XL((XR$,31,3))6*LWYL:(YN$)YLLW(YN$)I+GWWD1(LW3) +U7$"SYS.RANGE":UU$S4$:UF$U7$:D$"OPEN ";UF$;UU$+D$"READ "UF$:A$:B$:D$:D$"CLOSE "UF$:LO(A$):HI(B$)+GS(HILO)GW +XC(1)LO:XC(5)HI:X(GW2):XC(3)XGS#%'X(TE$):TE$(BL$,((WDX)2))TE$P~'UF$U6$:240:NA$UD$:NA(NA$):NA2ij~'UF$U6$:240:YR$UD$:YR$"$"EF1:10190'240:XR$UD$:XR$"$"EF1:10190'11000'*AN$(YR$,30):800:YN$AN$:AN$(XR$,30):800:XN$AN$*YL((YR$,3'!UBUF5:300009'!INIT:QT$(34):CR$(13):TC0:D$(4)M.'SW40:CR$(13)8'I180:DT$DT$"*":BL$BL$" ":NL$NL$(0):HY$HY$"-":t'U6$"SYS.SPOOL":UU$S4$:UF$U6$:210y'UF$U6$:240:SR$UD$:RT$(SR$,15):WD((SR$,16,3)):TE$(SR$,19)${$,YL):PL$(PL$BL$,LW)" * "DZ((SR$,YL1,XL)):P((ZLO)GS)Y P0M$"":1050M$(DT$,P):OT0M$(BL$,P1)"*"PL$PL$M$:M$PL$:150:M$(BL$,(YN$)1)"*":150:LCLC2BEF01000G400K' *** - INITIALIZE - ***/II1:I1810%3AN$(AN$,I):F *** KRAM ERROR HANDLER ***ZKE(0):KE0ı`w --- DO GRAPH ---EF0400NN0:LC15DV3İ500LC55DV4İ500EF0:UF$U6$:240:SR$UD$SR$"$"EF1:1090TCTC1:PL$(SR:M$"2. RUN ANOTHER QUERY":100SX13:Y0:M$"3. RETURN TO MAIN MENU":100:Z$""fZ$:Z$""750{:Z$"1"AC0:Z$"2"AC1:Z$"3"AC2:Z$"":750  *** - STRIP TRAILING BLANKS - ***%I(AN$)*(AN$,I,1)" "819*DV4LC99A$CR$(10):M$A$A$A$:150_+P9P91:AP9:203:M$(TE$BL$,72)"PAGE "A$m/150:1500M$YN$" * "XH$:150:M$(BL$,LW1)"*":150:LC0WA$"PRINT":DV3A$"DISPLAY"X11:Y0:M$"1. "A$" AGAIN":105X12:Y0 LCLC6DV3499. FINISH-UP DV=4MZ56LC:ZZ1Z2:150:ZZShLC99DV3550X23:Y0:M$"HIT ANY KEY TO CONTINUE":100:Z$""Z$:Z$""515:(38373)1ĺ(12)&EF0ı'DV3554(:(38373)1ĺ(12)-(PX$,XXP(5))* M$(BL$,LW2)PX$:150a PX$(BL$,XP(2)2)(XC(2)):PX$(PX$BL$,XP(4)2) PX$PX$(XC(4)):M$(BL$,LW2)PX$:150:150 X((GW(XN$))2):M$(BL$,LWX)XN$:150:150 150:M$"TOTAL # TUPLES IN PROJECTION: "(TC):150PL$(BL$,XP(4)XP(3)1)"*"(BL$,XP(5)XP(4)1)"*"n M$(BL$,LW3)PX$:150:A$(XC(1)):A(A$):X(PX$) PX$A$(PX$,XA1):A$(XC(3)):A(A$) PX$(PX$,XP(3)2)A$(PX$,X(AXP(3)2)1) A$(XC(5)):A(A$) PX$(PX$,XP(5)A1)A$ȱ ,NNNIı 1N1(NN)CIıN 6NC(NN)NC(NN)((SR$,SI,AL(CI))):NNNN1T c DV3İ500 M$(BL$,(YN$)1)"*":150 XB$"**":I1GW:XB$XB$"*":I:M$(BL$,LW1)XB$:150 PL$"*"(BL$,XP(2)1)"*"(BL$,XP(3)XP(2)1)"*"5 PX$,1)" "A$(A$,L1)? AU$A$:A$("0000000000"A$,A1):A11:M A12:200[ A13:200i A14:200w A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: D$"CLOSE";UF$: EF0:D$"READ ";UF$:UD$:D$:1ĺ(12) j100 n:M$;:@ }X23:Y0:M$(BL$,SW1):100b (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(A$):(A$ **** CNQST.GRAPH ****( 1000021000C700:AC0ĬIFvZPN$"CNQST.QMENU":AC2PN$"CNQST.MAIN"[:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."]_:(4)"RUN "PN$;S3$cdX1:Y1:M$;: i:(38373)      RR3R3$(RC$,RL(RR)):7RR4R4$(RC$,RL(RR)):URR5R5$(RC$,RL(RR)):sRR6R6$(RC$,RL(RR)):RR7R7$(RC$,RL(RR)):RR8R8$(RC$,RL(RR)):RR9R9$(RC$,RL(RR)): I(AN$)*(AN$,I,1)" "819 /IY$(R3$,KP,KL):-X4KY$(R4$,KP,KL):IX5KY$(R5$,KP,KL):eX6KY$(R6$,KP,KL):X7KY$(R7$,KP,KL):X8KY$(R8$,KP,KL):X9KY$(R9$,KP,KL):RR1R1$(RC$,RL(RR)):RR2R2$(RC$,RL(RR)):=X((TB$(T9),2,1)):RR((TB$(T9),7,1)):FFX(RR):RRXij(TB$(T9),52,1)"K"ĭD9$""KPKP(((D9$,5,2))KL):KY$(KY$(X),KP,KL):(TB$(T9),52,1)"K"KY$(KY$(X),KP,KL):X1KY$(R1$,KP,KL):X2KY$(R2$,KP,KL):X3KT YOUR":X10:Y10:105=|M$"UTILITIES DISK INTO":X12:100~M$"SLOT "((38374))" DRIVE "((38375)):X14:Y12:100M$"- HIT ANY KEY WHEN READY -":X18:Y7:100Z$"":Z$:Z$""392KL((TB$(T9),22,3)):KP((TB$(T9),18,4))1D$;"DELETE SYS.RANGE";S4$F6U1$"SYS.RANGE":UF$U1$:UU$UX$:210p@UF$U1$:UD$(XL)CR$(XH):220:230v]^K1$KY$(1):K2$KY$(2):K3$KY$(3):K4$KY$(4):K5$KY$(5):K6$KY$(6):K7$KY$(7):K8$KY$(8):K9$KY$(9):wS81ıyM$"PLEASE INSER:200A14:200!A15:200/A16:200=A17:200KA18:200YA19:200vCR$;D$"OPEN ";UF$;UU$:CR$;D$"WRITE ";UF$:UD$:D$:CR$;D$;"CLOSE ";UF$:CR$;D$"READ ";UF$:UD$:D$:,O10ı-D$"OPEN SYS.RANGE";S4$T." RA$"$VIS"PN$A$"VC"; RA$"$MWI"PN$A$"MW"W RA$"$ESI"PN$A$"ES"s RA$"$UPD"PN$A$"UM" (PN$,10)A$İ375 A$(A):L(A$):(A$,1)" "A$(A$,L1) AU$A$:A$("0000000000"A$,A1):A11: A12:200A13OVE STEPS":100:X23:Y12:M$"THEN HIT ANY KEY":100:Z$""M Z$:Z$""177[ SX$S7$:f 18943 :(38373)1ĺ(12) 12:1:"JUST A MOMENT, PLEASE..." (4)"BLOAD CNQST.EDITOR";S3$ (4)"RUN CNQST.DISPLAY";S3$  A$"CNQST.INE DISK IN SLOT "(S3$,3,1)", DRIVE "(S3$,6,1):100:X12:Y12:M$"TO SLOT "(S7$,3,1)", DRIVE "OD$:100 X14:Y4:M$"INSERT THE UTILITIES DISKETTE":100:X15:Y12:M$"IN SLOT "(S7$,3,1)", DRIVE "(S7$,6,1):100: X22:Y8:M$"PERFORM THE AB((SP$,31,4)):KL(DI)((SP$,35,2)):AN$(SP$,30)H 800:FL$(DI)AN$N i (PN$,6,5)".INT."ıx S80179 OD$"2":(S7$,6,1)"2"OD$"1" X9:Y2:M$"REMOVE THE DISK FROM SLOT "(S3$,3,1)", DRIVE "OD$:105m X11:Y4:M$"MOVE TH1:M$"":105:976 `SX$S3$:170::(38373)1ĺ(12)] a12:1:"JUST A MOMENT, PLEASE..."v b:(4)"RUN "PN$;SX$| c dX1:Y1:M$: i:(38373)1ĺ(12) j100 n:M$;: E90:UF$U2$:240:SP$UD$ SP$"$"E99 3 RL(DI)! **** CNQST.QRUN.DRVR ****2 10000:1000L2000:3000:4000:20Z30000:300:PN$"CNQST.REPORT":O10PN$"CNQST.GRAPH"[O12ī180\O13PN$"CNQST.LABEL" _190:PN$"CNQST.REPORT"!UBUF5:30000:PN$"CNQST.REPORT":SX$S3$:X1:Y         !!! ! ! ! ! !!!!3))>NuS4$",S"((38364))",D"((38365))",V"((38366))yXuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))u}1:(9);(1);(1);"80N";"CNQST.GRAPH.12 - 062182 - 2.0":6:#PF *** DOS ERROR HANDLER ***VQF"DOS ERROR CODE: ";ER$;",";EM$;","ET$;",";ES$^F:0uA$"":I05:A$A$((38352I)):I:S1$A$:uS2$",S"((38358))",D"((38359))",V"((38360))DuS3$",S"((38361))",D"((38362))",V"((3836:D.X11:M$"HIT ANY KEY WHEN PRINTER IS READY":Y((SW(M$))2)S.105:Z$""h.Z$:Z$""12005n.t..M$"PRINTING REPORT.....":X11:Y((SW(M$))2):105/hB *** SUPERKRAM ERROR HANDLER ***iB"SUPERKRAM ERROR CODE: ";KEB1TCDP5799#SDTC5765[M$"FULL RELATIVITY NOT FOUND":160:ES255::20100gTBTC1TE1TB:X(O):R1((TB$(TE),2,1)):A1$(TB$(TE),3,3)FR1:KY$("&FIELD#"A1$BL$,20)"0":27000T5$"D":(RC$,30,1)"U"T5$"K"5TB$TC:57907RR$(TB$(RS),7,1):TB$"?"RR$A$"=":I1[5600:RD$(RC$,5,(RD$))5780qII1:IDP5775C0C01:57505500:A05777AI:200:TB$TB$A$(RC$,2,3)"T":ATA:203:TB$TB$A$(RC$,2,3):TB$(TC)TB$:TCTC1:CACA1:TATA7lTC1M$"NO RELATIVITY FOUND":160:ES255::20100GnTCDP5799dqRSSD:SETC1:SDTC:C00vAC0:203:KY$("&FIELD#"A$BL$,20)"3"{F((TB$(RS),7,1)):27000:KE05770C0C01:(KY$,2)"&F"5750RSRS1:C01:RSSE5750 SDXTB$"?"RR$A$"=":I1$[5600B]RD$(RC$,5,(RD$))5730X_II1:IDP5723ba5718vb5500:A05727cAI:200:TB$TB$A$(RC$,2,3)"T":ATA:203eTB$TB$A$(RC$,2,3):TB$(TC)TB$:TCTC1:TATA1:CACA1gTCDP5799k5718:Z355610$RD$(RD$(I),5,Z5)*C6DDP1ı]IRR$(N1$,1):RR(RR$):RR05709zKRR$(N1$,6,1):RR(RR$)MTC1:SD1:C00NAC0:203:KY$("&FIELD#"A$BL$,20)"3"SFRR:27000:KE05720VC0C01:(KY$,2)"&F"5710W5740O":$A$"C"PN$"CNQST.QUERY":CA$"M"PN$"CNQST.MAIN":M2025S3|A0:X1$RC$:X2$KY$:KY$(KY$,20)"0":27000:KE0ı(RC$,31,1)"3"A1RC$X1$:KY$X2$Z5(RD$(I),Z,1)","(RD$(I),Z,1)" "5650 ZZ120+:"EXECUTE QUERY JUST COMPILED (E)"u"COMPILE ANOTHER QUERY (C)":"RETURN TO MAIN MENU (M)"ES255ĺ:"ACTION DESIRED (C/M) ";A$:2040:"ACTION DESIRED (E/C/M) ";A$PN$"":A$"E"ES255PN$"CNQST.QG DA$""UD$DA$:220* UD$N1$:220S UF$U1$:240:UF$U2$:220:ET01030b D$"CLOSE" UF$U1$:D$"DELETE ";U1$:210:UF$U2$:210:ET0 $UF$U2$:240:UF$U1$:220:ET01060 .D$"CLOSE" KM$"END OF COMPILATION":170:ES25520  X$"":I1D *(AN$,I,1)","X$X$(AN$,I,1):II1:810[ 4X$X$".FD,":II1 >(AN$,I,1)" "X$X$(AN$,I,1):II1:830 HAN$X$ Q KE(11): 5700 WCNWTB:UF$U2$:AWC:203:UD$A$:220 I1TB:UD$TB$(I):220:0"A$,A1):A11: A12:200, A13:200: A14:200H A15:200V A16:200d A17:200r A18:200 A19:200 D$"OPEN ";UF$;UU$: D$"WRITE "UF$:QT$;UD$;QT$:D$: D$"CLOSE ";UF$: D$"READ ";UF$:UD$:D$:UD$"$"ET1 HC$"Y"ĺD$"PR#1" M$6 HC$"Y"ĺD$"PR#0"P (38373)1ĺD$"PR#3"\ M$"": M$"****> ERROR: "M$:150:ECEC1: M$"====> "M$:150: ESSLESSL A$(A):L(A$):(A$,1)" "A$(A$,L1) AU$A$:A$("000000000(R$"S")(T1$"N")M$"ARITHMETIC REQUIRES NUMERIC OPERANDS"c M$""İ160:SL255:ESSL:20100i (L1$)(L2$)L2$L1$: L1$L2$ M$"ATTRIBUTE '";AN$;"' ILLEGAL IN SELECT/WHERE":SL1:160:180: (38373)1HC$"Y"ĺD$"PR#0" **** CNQST.QCTBG ***. 10000:100082000OZ:D$"RUN "PN$;S3$Ucld:X1:Y1:M$;:i:(38373)1ĺ(12)j100n100}X23:Y0:M$(BL$,SW1):100M$"":T1$T2$M$"MIXED TYPES"(T1$"A")(L1$L2$)135>          W !UBUF10:130554(4)"BLOAD CNQST.QRUN.OBJ"O(4)"RUN CNQST.QPREP"U((D9$,9,1):X$"<"X$"L"HB$(D9$,16):DX$"="MS$(D9$,16)fKY$((D9$,16)BL$,KL(R1)):I1:FL$FL$(((D9$,2,1)))(FL$,I,1)","1540II1:I(FL$)1530X$(FL$,I1)".K"(D9$,3,2)(FL$,I):FL$X$:!ACCESSFL$:900:KE1-&KE62M$FL$" NOT FOUND - ABORT":1065S'M$"RUN TIME ERROR CODE # "(KE))X12:Y0:100::PN$"CNQST.MAIN":30000:SX$S3$:98.FX(DI)KE:XDI:M$FL$:Y((SW(M$))2):100:DIG1500KD9$""ı(D9$,3,2)"02"1520*X$L$BL$" ""R1$(XL$,RL(1)):R2$(XL$,RL(2)):R3$(XL$,RL(3)):R4$(XL$,RL(4)):R5$(XL$,RL(5)):R6$(XL$,RL(6)):R7$(XL$,RL(7)):R8$(XL$,RL(8)):R9$(XL$,RL(9)):RO$(XL$,OL):XL$""$DI1ND:FL$FL$(DI):!ACCESSFL$:900:KE101070E90PXNPPX:E9010503130:E991050S(SP$,1)"&"D9$SP$:1045h (SP$,1)"?"ijTXTX1:TB$(TX)SP$E901030UF$U2$:230:R1((TB$(1),2,1)):R10R11I19:KY$(I)(NL$,KL(I)): KY$(NL$,KL(R1)):XL$BL$BRL(10),KL(10),FX(10),KO(10),RK(10)AI19:RL(I)1:KL(I)1:XDI1ND:130:160`DI130:UD$SP$:UF$U1$:220:NP(SP$):NP0ijPX1NP:130:UD$SP$:UF$U1$:220PX2O10PROL1:LR((SP$,31,3))OLOL((SP$,31,3)) I1:I1810 3AN$(AN$,I):A *** KRAM ERROR HANDLER ***VKE(11):KE0ı\130:UD$QT$SP$QT$:UF$U1$:220Z$(SP$,4):RA$Z$:Z$"$GRF"Z$"$PLT"O11Z$"$CRT"O12Z$"$LBL"O13130:ND(SP$):ND0ND10ij$G.0.A7 - 071282 - 2.0":N,D"((38362))",V"((38363))[NuS4$",S"((38364))",D"((38365))",V"((38366))XuS5$",S"((38367))",D"((38368))",V"((38369))buS6$",S"((38370))",D"((38371))",V"((38372))u}1:(9);(1);(1);"80N";"CNQST.QCTB:D$"DELETE ";QN$N202xiZ(O):RC$(BL$,38)ViF9$(F):!GTRECF9$,KY$,RC$:900\i0uA$"":I05:A$A$((38352I)):I:S1$(A$,2)"/"(A$,3,2)"/"(A$,2):uS2$",S"((38358))",D"((38359))",V"((38360)) DuS3$",S"((38361))"$,(QN$)4)BL$,15):QF$(QU$,3,1)"/"(QU$,6,1)":SYS.QLIB"(QU$,7):!ACCESSQF$:900:QL$(KE)NRC$(BL$,40):!ERASEQL$,KY$,RC$:900:KE0ijNM$"QUERY: "KY$" HAS BEEN REMOVED FROM THE QUERY LIBRARY":170N:D$"CLOSE":D$"DELETE SYS.QWRK"S3$:240:UF$U2$:220:7G'UF$U1$:240:NW(UD$):NW0ijkL'240:N1$UD$:(N1$,1)"&"DA$UD$:240:N1$UD$V'!INIT:DI1(ND):AN$RD$(DI):800:FL$AN$:!ACCESSFL$:KE(11):FX(DI)KE:s'NES255M$"COMPILATION CANCELLED":170`N!INIT:KY$((QNU1$:210))'U2$"SYS.QWRK":UF$U2$:210q.'UF$U1$:240:UF$U2$:220:UF$U1$:240:ND(UD$):UF$U2$:220:DPND3'ND0ND9ij8'DC1(ND):UF$U1$:240:RD$(DC)UD$:UF$U2$:220:='UF$U1$:240:NP(UD$):UF$U2$:220:NP0ijB'PC1(NP):UF$U1$CR$(13):QT$(34):I180:BL$BL$" ":NL$NL$(0):l'X11:Y0:M$"CREATING RELATIVE LINK ATOMS":100:'D$"OPEN SYS.PASS"S4$:D$"READ SYS.PASS":QN$:QU$:HC$:D$"CLOSE SYS.PASS":D$"OPEN SYS.QWRK";QU$:D$"DELETE SYS.QWRK" $'U1$QN$:UU$QU$:UF$:KY$("&KEY01"BL$,20)"0":27000:K1$"01"(RC$,4,8)S(K2$,2)"00"5890KY$("&KEY01"BL$,20)"0":FR2:27000:K2$"01"(RC$,4,8)TB$TB$K1$K2$T5$:TB$(TE)TB$:TE '33,40::(38373)1ĺ(4)"PR#3":(12)6'30000:D$(4):5860&A1$(RC$,3)KIKI1:5840IK1$(KY$,5,2)(RC$,4,8):KI1{KY$"&KEY":AKI:202:KY$(KY$A$BL$,20)"0"FR2:27000:KE0K2$"100000000":5880A2$(RC$,3)KIKI1:5860K2$(KY$,5,2)(RC$,4,8)(K1$,2)"00"5885TB$(TE)(RC$,26,4)(RC$,21,3):R2((TB$(TE),7,1))xA2$(TB$(TE),8,3):FR2:KY$("&FIELD#"A2$BL$,20)"0":27000TB$TB$(RC$,26,4)(RC$,21,3):KI1KY$"&KEY":AKI:202:KY$(KY$A$BL$,20)"0"FR1:27000:KE0K1$"100000000":KI1:. DATABASE QUERY DEVELOPMENT DISK":Ol"3. DATABASE QUERY PRODUCTION DISK":oq"4. RETURN TO MAIN MENU":v" GENERATE WHICH TYPE OF DISK ?":Z$""{Z$:Z$""7035Z(Z$):Z1Z4Z$"":7035Z1PN$"CNQST.GEN.DDM"Z2PN:D$"WRITE SYS.PASS"@QT$;QN$;".QRY";QT$:D$"CLOSE SYS.PASS"^PN$"CNQST.PRE.QRUN":200dX *** ENTER GEN S/S *** Y:(38373)1ĺ(12)]" DISK GENERATION SUB-SYSTEM MENU":b"1. DATABASE DEFINITION/MAINTENANCE DISK":$g"2ION, PLEASE";:Z$""'Z$:Z$""6035HZ(Z$):Z1Z5Z$"":6035bZ1QN$"SQL.DIRDSP"|Z2QN$"SQL.DIRRPT"Z3QN$"SQL.DCSDSP"Z4QN$"SQL.DCSRPT"Z56099D$"OPEN SYS.PASS,D1":D$"DELETE SYS.PASS":D$"OPEN SYS.PASS",z" 1. DISPLAY ENTIRE DIRECTORY":U|" 2. PRINT ENTIRE DIRECTORY":" 3. DISPLAY DIRECTORY BY TITLE CONTEXT":" 4. PRINT DIRECTORY BY TITLE CONTEXT":" 5. RETURN TO MAIN MENU":" SELECT A FUNCTE"S2$:700:200:Z2PN$"CNQST.CREATE"S2$:700:200HZ31000Nj ** UTILITIES DISK **800:PN$"CNQST.UTIL"D$"RUN ";PN$;S7$p *** ENTER SYS.QLIB S/S ***q:(38373)1ĺ(12)u" QUERY LIBRARY SUB-SYSTEM MENU":33 - 083082 - 2.0":L5$",S"((38367))",D"((38368))",V"((38369))p#buS6$",S"((38370))",D"((38371))",V"((38372))#luS7$",S"((38374))",D"((38375))",V"((38376))#vuS8(38377):S9(38378)#u$}1:(9);(1);(1);"80N";"CNQST.QRUN.DRVR.21.A):!GTRECF9$,KY$,RC$:900:I"0uA$"":I05:A$A$((38352I)):I:S1$A$":uS2$",S"((38358))",D"((38359))",V"((38360))"DuS3$",S"((38361))",D"((38362))",V"((38363))"NuS4$",S"((38364))",D"((38365))",V"((38366))5#XuS$:D$"DELETE SYS.SPOOL"UX$:U1$"SYS.SPOOL":UF$U1$:UU$UX$:210E!s'!aZ(O):RC$BL$BL$BL$(BL$,15):F9$(F):!RDSETF9$,KY$,RC$:900:!eZ(O):RC$BL$BL$BL$(BL$,15):F9$(F):!RDRECF9$,KY$,RC$:900:"xiZ(O):RC$BL$BL$BL$(BL$,15):F9$(F$S3$QT$:220 3 '!INIT::(38373)1ĺ(12) 'D$(4):QT$(34):CR$(13):30000:UX$S4$:A11:SW40:I1SW:X$X$"":Y$Y$""::I180:DT$DT$".":BL$BL$" ":NL$NL$(0)::CR$(13)?!B'U2$"SYS.PASS":UF$U2$:UU$UX$:210:D$"OPEN SYS.SPOOL"UX$U1$:220:S1$"":S2$S1$:S3$S1$LX70S1$(RO$,71,X70):S1$(S1$,70)zX140S2$(RO$,141,X140):S2$(S2$,70)X210S3$(RO$,211,X210):S3$(S3$,70)S1$""UD$QT$S1$QT$:220S2$""UD$QT$S2$QT$:220 S3$""UD$QT05 350:(D9$,3,2)"02"K1$(K1$,((D9$,7,2)));' H 13059:X(11)0ıhO114050X((RO$,PR,LR)):XXLXLXXXHXHX(RO$)70İ4500:4099UD$QT$RO$QT$:UF$U1$:220!X(RO$):UD$QT$(RO$,70)QT$:UF"L"(KY$,(HB$))HB$KE43:,MS$""ıY(D9$,9,1)"="(KY$,(MS$))MS$KE43_ 2200:450:KE43UD$"$":UF$U1$:220:230:90 T91:400:27000:KY$(RR)KY$:450 T92 TXT92590 400:27000:KY$(RR)KY$:450:T9T91:251KY$KY$(RR):26000:KY$(RR)KY$:2250hRRR1:FFX(RR):KY$KY$(RR):25000:KE0KE40KY$(RR)KY$:2250yD9$""2252(D9$,9,1)">"ĭ(KY$,((D9$,16)))(D9$,16)2200HB$""2270X$(D9$,9,1):X$"<"(KY$,(HB$))HB$KE43:X$K1$(KY$,((D9$,7,2)))AKE43UD$"$":UF$U1$:220:230:90]R1$RC$:KE0KE40ijQ1Q11:M$"PROCESSING TUPLE #"(Q1):X12:Y((SW(M$))2):100:RO$(BL$BL$BL$" ",OL)3(D9$,3,2)"02"2210$RRR1:FFX(RR):0ijEF((D9$,2,1)):FX(F)KE:KL(F)((D9$,5,2)):KY$(NL$,KL(F))zX$(D9$,9,1):X$"<"X$"L"HB$(D9$,16):1599X$"="MS$(D9$,16)KY$((D9$,16)BL$,KL(F))?KY$(F)KY$:TX0İ2500:20502200:K1$KY$:(D9$,3,2)"02"UF$U6$:240:SR$UD$:EF110907SR$"$"EF1:1090HTL70İ1500eSI1:600:BK0:CIBXNA300:PL$"":SP(CI)1PL$(BL$,SP(CI)1)PL$PL$(SR$,SI,AL(CI)):SISIAL(CI)AL(CI)WD1200CICI1QS1ī950!CINASP(CI)(NI10))DV3İ500'KE(11):KE0ı-?CI(NA)1040TNL(CI)1ī1030dLNNDLN0M$PL$:LNLN1:150:LCLC1:CC(LN)0ī1020JJ1CC(LN):150:LCLC1:JJ1020 --- DO REPORT ---EF04001950:NN0EF0:TURN TO MAIN MENU":100:Z$""0Z$:Z$""7506IZ$"1"AC0:\Z$"2"AC1:oZ$"3"AC2:~Z$"":750  *** - STRIP TRAILING BLANKS - ***%I(AN$)*(AN$,I,1)" "819/II1:I18103AN$(AN$,I):LC(20 I1:SI1$(BP$,I,1)" "6604SISIAL(I)JII1:I(NA)655XBXI:BP1d1950:tUF$"":230A$"PRINT":DV3A$"DISPLAY"X11:Y0:M$"1. "A$" AGAIN":105X12:Y0:M$"2. RUN ANOTHER QUERY":100X13:Y0:M$"3. RE FOR "CH$(BA)" = "(BS$,BI,AL(BA))" ***":150>vNB0NIM$"'"CH$(N1(NB))"'"::ANC(NB):INB:350:Z$(DT$A$,13):M$(M$DT$,24)Z$150GC(NB)GC(NB)NC(NB):NC(NB)0:NB150:M$HY$:150:150:LCLCNI8BX1:BP0:BCBC1:6990:15050HI1NH:M$HD$(HI):150::150:LC3SSNH;WLXBI0BX1:[]BP1649b(BS$,BI,AL(BA))(SR$,BI,AL(BA))650lNB0qNBNI649rQS0629sQS1TL$"Y"İ1850:BK1:6491u1900:150:M$HY$:150:150:M$"*** SUB-TOTAL""Z$:Z$""5155:(38373)1ĺ(12)B&EF0ıQ'DV3553j(:(38373)1ĺ(12)|)QS1İ1700:*DV4LC99āJJLC1PGEE:150:JJ+M$"":JJ1SS:150:,P9P91:AP9:203:M$S1$(TE$,(TE$)8)" PAGE "A$/15ISH-UP DV=4=LCPGāZZLC1PG:150:LCLC1:ZZ:NF0459ZZ1NF:M$F$(ZZ):LCLC1:150:G(ZZ)0āII1G(ZZ):150:LCLC1:IIZZEE0āI1EE:150:I:LC99DV3550X23:Y0:M$"HIT ANY KEY TO CONTINUE":100:Z$$(BA)"': "(BC):150:LCLC1I0NI:M$"'"CH$(N1(I))"': ":ANC(I):350:Z$(DT$A$,13):BI0AGC(I):350:Z$(DT$A$,13)M$(M$DT$,24)Z$150:LCLC1:150:M$"TOTAL # TUPLES SELECTED: "(TC):150:LCLC2DV3499  FINQS0404 TL$"Y"İ1750:456d ((LCNI5)(20(NH3))DV3)((LCNI5)(60(NH3))DV4)İ500 M8$"*** TOTALS ***":M$M8$:BI0SR$"":600:M8$"*** GRAND TOTALS ***" 1975:M$M8$ 150:150:LCLC2BC0M$"NUMBER OF SETS BY '"CH/ 6NC(NN)NC(NN)((SR$,SI,AL(CI))):NNNN1J ^A$(A):Z1:NP(I)0ım `(A$,Z,1)"."NP(A$)Z:355 aZZ1:Z(A$)352 bNP0:A$A$"." cNP(I)NP0A$A$("00000000000",NP(I)NP) g  DV3İ500 NI0TF$"N"445 ";UF$:UD$;CR$;:D$:+ D$"CLOSE ";UF$:I D$"READ ";UF$:UD$:D$:V ,NNNIıh -N1(NN)CIı /NC(NN)NC(NN)((SR$,SI,AL(CI))):NNNN1:TC0ı 0EIAL(CI)SI1 1(SR$,EI,1)"."NP(NN1)(SIAL(CI)1)EI: 3EIEI1:EISI305 5220 M$"":= A$(A):L(A$):(A$,1)" "A$(A$,L1)h AU$A$:A$("0000000000"A$,A1):A11:v A12:200 A13:200 A14:200 A15:200 A16:200 A17:200 A18:200 A19:200 D$"OPEN ";UF$;UU$: D$"WRITE 8373)1ĺ(12) j100$ n:M$;:E }X23:Y0:M$(BL$,SW1):100W HC$"Y"158y (38373)1HC$"Y"ĺD$"PR#0" HC$"Y"ĺD$"PR#1":(9);(1);(1);"80N"; M$:HC$"Y"ĺD$"PR#0" (38373)1ĺD$"PR#3" SO0UF$SF$:UD$QT$M$QT$:1 **** RQST.QREPORT ***** 10000:51000:F700:AC0ĬLFyZPN$"CNQST.QMENU":AC2PN$"CNQST.MAIN"[:(38373)1ĺ(12)\12:1:"JUST A MOMENT, PLEASE..."] _:(4)"RUN "PN$;S3$cdX1:Y1:M$;: i:(3"" " " " " """""""""