' +JJJJ ?\>m0M='+l> /+L   d]@ŵLҦ]]LF L}BBL]뷩 췌 L ` 鷎귩췩_ ᷩJJJJx RWUP+L ʽ ` ߅ ߠHh` d]@ŵLҦ]]LF L}H볩hLU6 鷎귭෍ᷩ췩緈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- ( q ΠҠ@跻~!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` ᷩ췩_ RWUPH)J 0ᷩ췩񷭁 h෩緍췩巬Lȿ1,0)1:A$((F%(I,J,K))20)(0)8K:FLAG%(21,0)PB1?IkJ:FLAG%(21,0)āK0NF:FLAG%(21,K)0:PBFLAG%(21,0)PBI40100:A$(I):(A$(I),1)"&"ĭ(A$(I))2ĭ((A$(I),2,2))0ZZ2D$;"CLOSE"S C%(NC)PWEX1:A$"PRINT20,W)FLAG%(F%(I,J,K)20,W)FLAG%(21,W):FLAG%(0,W)FLAG%(0,W)FLAG%(21,W):F%(I,J,K)100CT%(F%(I,J,K)100)1:FLAG%(0,0)1:CT%(0)1:FLAG%(21,0)āW1NF:FLAG%(0,W)FLAG%(0,W)FLAG%(21,W):F%(I,J,K)0FLAG%(21,(F%(I,J,K)))1:FLAG%(21,0)FLAG%(2)1:HF%(I,J,K1)20F%(I,J,K)20:FLAG%(H,0)1:FLAG%(21,0)āW1NF:FLAG%(H,W)FLAG%(H,W)FLAG%(21,W):FLAG%(0,W)FLAG%(0,W)FLAG%(21,W)::1230KF%(I,J,K)20F%(I,J,K)41FLAG%(0,0)1:FLAG%(F%(I,J,K)20,0)1:FLAG%(21,0)āW1NF:FLAG%(F%(I,J,K) LJ1NCVI1113`F%(I,J,0):OP%(I,J,0)IjF%(I,J,0)01240rtFLAG%(21,0)āK0NF:FLAG%(21,K)0:~K1F%(I,J,0)F%(I,J,K):OP%(I,J,K)OP%(I,J,K1)5F%(I,J,K1)21F%(I,J,K1)40F%(I,J,K)21F%(I,J,K)401200FLAG%(0,0E:TI$""TI$"1":TI$;CR(TI$):R1RIDĢ(37):1:980RID$ID$(R)jFF$ID$".FMT":PB0}D$;"OPEN";FF$D$;"READ";FF$$NC.I1NC8C$(I):C%(I):LN%(I):NL%(I):(C$(I),1)"&"ĭ(C$(I))2ĭ((C$(I),2,2))0ZZ2BREAD";DF$\ND!fD$;"CLOSE"'p@ CHOOSE FORMAT MEXFALSEz:A$"FORMAT FILES":(40(A$))2.5:A$3I1ID2((I)));I;5);ID$(I)ID1RID:1020:"ENTER NUMBER ";:LT2:T0:10(R$)27EXTRU,0)J1S%(I,0)!S%(I,J)'-=D$;"CLOSE"aLF%10:(PPPP2)DP2LF%13 LF$(LF%):I17:LF$LF$LF$:D$;"OPEN";XF$ D$;"READ";XF$*ID:ID08304I1ID:ID$(I):>D$;"CLOSE"HD$;"OPEN";DF$ RD$;"$F$".MST":DF$F$".DAT":XF$F$".IDX":E X READ MASTER FILE h bD$;"LOCK";MF$;",S";SN;",D";DN lD$;"OPEN";MF$;",S";SN;",D";DN vD$;"READ";MF$ NF I1NF N$(I):L%(I):T%(I)  L:NS NS0760 I1NSS%(IRETURN":12:(40(A$))2.5:A$;:16368,0:A$5 P  READ PARAMETERS r D$"LOCK PARAMETERS,S"BS",D1" D$;"OPEN PARAMETERS,S"BS",D1" D$;"READ PARAMETERS" F$:SN:DN:SL:PP:LP:PW:DP:ST0:SNBSDN1ST1 D$;"CLOSE") &MFCXZ40CX 6Z0330. @(US$,Z);:X1:V14 JD TX1CX360l ^CX:V1:868:X139:V1V11:40:V1r h rSTė:12:6:(7);"INSERT DATA DISK AND PRESS RETURN";:16368,0:R$ | STı/ :ZZ0:A$(7)"INSERT PROGRAM DISK AND PRESS )32(I$)34ĺ"";:80# T210^ ((I$)48(I$)57)I$"+"I$"-"I$"."ĺ"";:80l LTL180{ TI$TI$I$ I$; L1L11:X1X11:260 80 X140340 X1CX:V1V11 V125V124:CVCV1: "X1:V1 ,ZLTL1:Z3913(I$)21(I$)27CV0:R$I$:XX$"":868:c d(I$)1XX$""I$(XX$,L11,1):I$""I$(1)u n(I$)8180 xL10R$I$:868:CV0:XX$"": L1L11:X1X11:260 I$;(US$,1);I$; L10TI$"":80 TI$(TI$,L1) 80 (I$22 PRINT 08/07/81 =30010W GET SUBROUTINE gL10:TI$""CVCV(37)1:CX(36)1(CX:CV2V1CV:X1CX<ZLT:LTCX39Z40CXF(US$,Z);:CX:CVPI$:I$""Ĺ222,255:50010. Z(I$)    !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""A? ::::"BLOAD FREE SPACE"::"RUN INFORMATION MASTER"1L(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompnL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$ 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ)C&'&BBBʊ&&'~`L  # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, 0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥzݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*U W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie#?c>#c?@O_xpՊժժՂԪ8*ժժԪժx?ժŪ0ccnժՂЪՀժժժբժՂhתՀժժբժՂ?Ԫ888xL8DԪ/ժժժժ Ԫ3?@dK4eժժ Ԫ8L8C8tH|ՀժxժբԪ?3*&"""6I*"&61I""B ՒM |@ժժժՂԪժժժx?բժ???0?wc ըxժժՂժժժբժתժժբժԪDDDHLDBu,ժp?ժժ Ԫ33 33@dI&EժՊժDԪDL$ID pՀժxժբԪ 3333333333*""*""**" "BՒ@x@pժժԪՂԪՊԪ`ՀժԪԠ33?333>kc ?բѪ`_ժՂЀժժբժKתժժբժՂ ԪdDD$Jd"~ժxժ Ԫ33 333@pdH2R}ժժFԪDJDBtՀժժբԪ 333332"*>"2*>Bx@ժժЪՂԪժ`a ՀժТѪՀ30[3?303333333ck 0[ՂѪЪժՂЀըЀժժբժ ֪ժԪժբժՂ Ԫ>"*xժ`ժ Ԫ?3 33_@H2RRժժBԪ>*BpdeqՀժժբԪ ?3""""""""  Ղ8ժժՂԪѪG8ԀժЂѪ33>[?33 >330333ck >[ՊѪժժՂԊŀժժբժՂ *֪ժժժբժՂ Ԫ" ")"|ժժ Ԫ33 33PxO2"RtsժժB Ԫ")B@tupՀժժբԪ 303*"""""*""""#""Պ8 ժժՂЪѪ`ժ?>3[03?3333?633cw 3[0ժժժժՂԪЂժ|ժբժՂj+תժժբժՂ Ԫ ~ժժ Ԫ33 3pH&rtqժժnԪ1x@@wt0ՀժЪժղԪ 3333333>wwww>www?wՊ8ժժՂժŪp@Ԫ0>[33>3>33cc  >[ժժժժՂԪŠժxժբժՂJԪժժբժՂ Ԫ!@H"PժժՂ Ԫ3 3@H|ew1ժ8ժ(ԪRsxxx'ՂժժՒԪ 3333ՊЪբժժpՂԊ@3ՂԪЪժժժժՂԪժpժբժՂIתժժժժբժՂ Ԫ@$J2%dQժЪժ ԪHhHdժpժ(ԪR_xdyxDՊժՊժՂԪIGHT 197ŠٍAMES A. COX/ HIGH TECHNOLOGY ALL RIGHTS RESERVED I COPYRIGHT 1979 BY JAMES A. COX/ HIGH TECHNOLOGY ALL RIGHTS RESERVED FILE LOCKEDRESETCTRL-C"5ĆER(8)}"ER(1)4:ER(2)5:ER(3)6:ER(4)8:ER(5)9:ER(6)10:ER(7)20:ER(8)255,ı6ė:"IRRECOVERABLE ERROR ";(222);" AT LINE ";(218)(219)256:1010,0:1011,3:64367:768,2:768z "ĺPE$;" ERROR";" AT LINE ";LNKú(7);(7);"PRESS RETURN";:16368,0:R$ú:ER8Ĺ47095,BS16:47096,1:43626,BS:43624,1å50010íER20Ĭë30240ĥ50010*ER$"WRITE PROTECTEDEND OF DATAFILE NOT FOUNDI/ODISK FULLROR ROUTINE ZÌ54915%då500405núD$;"CLOSE"Axå50230wù1528,BS16:ER(222):LN(218)(219)256:PE$""ÁI18íERER(I)PE$(ER$,(I1)151,15):50090ÂÉ:â7íPE$""ĺ"ERROR CODE = ";ER;" AT LINE ";LNíPE$"1NSMuLS0:EF1:I11S%(S,0):LSLSL%(S%(S,I1)):S%(S,I1)EFEFS%(S,I1)buI1:LSTLLS0~u4000: READ DATA FILEv100: SHELL-METZNER SORT v6000: SAVE SORT FILEvS v14000: SWITCH DISKS*vD$;"RUN MENU,S"BS",D1"Pò ERT UP USR() FUNCTION uQ$(34)<u1000: READ PARAMETERSVu13000: SWITCH DISKSnu2000: READ MASTERu3000: COMPACT DATA FILEuNS030240uDMND:DM1DM1uS$(DM,6):P%(1023,0)uTL(((0)1000L)DM.5):TL255TL255uSK0:ND0:TP%0:S0:u501804DuD$(4)(13)(4)WNuUS$(95):I17:US$US$US$:dXuQ$(34)buO(XX)256((XX256)(XX256)):I(XX)(XX256)luLOOK814vuA$(20),S%(5,6),L%(20),T%(20)uN$(20)u10,76:11,O(LOOK):12,I(LOOK): SEO2STė:12:6:(7);"INSERT DATA DISK AND PRESS RETURN";:16368,0:R$U26STė:12:3:(7);"INSERT PROGRAM DISK AND PRESS RETURN";:16368,0:R$6/u INITIALIZATION 0u:BS(1528)161uN00:N11:N22:M0:I0:I10:L10:J0:S%(S,I1)):RLRLML:::4800_\MLTLRL:S$(I,I1)(A$(S%(S,I1)),1,ML):RLRLML:I1S%(S,0)::oD$;"CLOSE"up SAVE SORT FILES u:A$"SORT #"(S)" SAVING SORT":12:((40(A$))2):A$zD$;"BSAVE";F$;S;".SRT,A";(0);",L";(ND1)2OPEN";DF$;",L";L)D$;"READ";DF$;",R0"1ND@ND04800[0I11ND:P%(I1,0)I1:gbI1NDD$;"READ";DF$;",R";II11EF:A$(I1):RL0:I11S%(S,0):ML(A$(S%(S,I1))):T%(S%(S,I1))ĭRLMLTLĂ::4800*RLMLTLS$(I,I1)A$(3070l D$;"WRITE";DF$;",R0"'v ND7 D$;"CLOSE"X I11NF:A$(I1)""::I1(0)^x READ DATA FILE ~I11ND:J11S%(S1,0):S$(I1,J1)"":::I1(0)A$"SORT #"(S)" READING DATA FILE":12:((40(A$))2):A$hD$;"  D$;"READ";DF$;",R";RC:  A$(1):(A$(1),1)""3070U  D$;"READ";DF$;",R";NDv & A$(1):(A$(1),1)""3140 0 NDND1:ND0NDRC3180 : 3100 D NF1āI12NF:A$(I1): N D$;"WRITE";DF$;",R";RC X I11NF:Q$;A$(I1);Q$:b NDND1:1S%(I,0) HS%(I,J) R# \3 fD$;"CLOSE"9 pV COMPACT DATA FILE \ A$"COMPACTING DATA FILE":12:((40(A$))2):A$ D$;"OPEN";DF$;",L";L D$;"READ";DF$;",R0" ND ND03200 RC0 RCRC1:RCND3180".MST" $DF$F$".DAT" .:  READ MASTER FILE ] D$;"LOCK";MF$;",S";SN;",D";DN D$;"OPEN";MF$;",S";SN;",D";DN D$;"READ";MF$ NF I1NF N$(I):L%(I):T%(I)  L:NS NS02150 *I1NS 4S%(I,0) >J46645P%(I,N0),P%(L1,N0):IIM:I12500 "160K  READ PARAMETERS m D$"LOCK PARAMETERS,S"BS",D1" D$;"OPEN PARAMETERS,S"BS",D1" D$;"READ PARAMETERS" F$:SN:DN:SL:PP:LP:PW:DP:ST0:SNBSDN1ST1 D$;"CLOSE" MF$F$S%(S,N0):T%(S%(S,I1))220D S$(P%(I,N0),I1)S$(P%(L1,N0),I1)250n S$(P%(I,N0),I1)S$(P%(L1,N0),I1)260y :250 (S$(P%(I,N0),I1))(S$(P%(L1,N0),I1))250 (S$(P%(I,N0),I1))(S$(P%(L1,N0),I1))260 JJ1:JK130 150' {2 SORT 05/01/81 =30000[d SHELL-METZNER SORT nA$"SORT #"(S)" SORTING":LSA$A$" TO CHAR "(TL)o:12:(40(A$))2.5:A$xMNDM(MN2):MN0ıJN1:KNDMIJ L1IM:I1N1          AMES A. COX/ HIGH TECHNOLOGY ALL RIGHTS RESERVED AER%(1)4:ER%(2)5:ER%(3)6:ER%(4)8:ER%(5)9:ER%(6)10:ER%(7)20:ER%(8)255Q3@ı3Jė:"IRRECOVERABLE ERROR ";(222);" AT LINE ";(218)(219)256:1010,0:1011,3:64367:768,2:768H4 COPYRIGHT 1979 BY J RETURN";:16368,0:R$L2ú:ER8Ĺ47095,BS16:47096,1:43626,BS:43624,1X2ĥ50010i2İ1010:30080u2ĥ500102"ER$"WRITE PROTECTEDEND OF DATAFILE NOT FOUNDI/ODISK FULLFILE LOCKEDRESETCTRL-C"2,ĆER%(8)K364915:50250B1ù1528,BS16:ER(222):LN(218)(219)256:PE$""M1ÁI18|1íERER%(I)PE$(ER$,(I1)151,15):501201Â1É:1â71íPE$""ĺ"ERROR CODE = ";ER;" AT LINE ";LN1íPE$""ĺPE$;" ERROR";" AT LINE ";LN2ú(7);(7);"PRESSu990:SWITCH DISKSJ0u(ST)EX2ID1Ĺ16368,0:D$"RUN PRINT,S"BS",D1"f0uD$;"RUN MENU,S"BS",D1"0Pò ERROR ROUTINES 0ZÌ54915::500700díSNĹ49288SN16,00nò 49288+SN*16 TURN OFF DRIVE 0xCV0:0Ê0:10020úD$;"CLOSE" 1Ì5ESTORE VARIABLE POINTERS ***/Nu105,(46832):106,(46833):107,(46834):108,(46835):109,(46836):110,(46837):111,(46838):112,(46839):115,(46842):116,(46843)/XuZERO$"0000000000000000000"/bu970:SWITCH DISKS/lu3000:PRINT RECORDS0v(9)"K";8.%PPĺ(9);PW;"N";:2040SL,0:CLEAR COL CNT>.%U.H& PRINTER ON? ^.R&EP0q.\&DV4928016SL}.f&DV,128.p&YY120:W(49345256SL):.z&W254EP1.& W=254 IF STILL BUSY.&.0u INITIALIZATION .:u50010/Du*** R -&%-0%EP1:PPİ9800(-:%EP9550Y-D%12:11::(7);"PRINTER NOT READY";::9520_-N%-X%D$"PR#"SL:(49222SL256)192ĺ(0);:1400SL,255:PPĹ1656SL,0:1144SL,12864:DPĹ1144SL,128-b%DP2PP1:-l%(49171SL256)104ı.v%PPDPĺ9500:(LF$,1,NLSP1);:PP1ĺP,E$EX90011::(16384)127İ9300:EXEX2V,J$,T$2039,106:49288SN16,0:R$((16384)128):16368,0,^$(R$)27ĭ(16384)1289310,h$2039,160:16368,0:(R$)27EXTRUE,r$-% INITIALIZE PRINTER +#,+#SLZLPTL:Z0ĺ(LF$,Z);:PP1ĺ2+#S+# ALLIGNMENT FOR LABELS +#9500:36,C%(1)1:"####################"+$0:1002:DP2PP0+$+$12:"PRESS 'Y' WHEN FORM IS ALIGNED ";:R$:R$+"$(R$)27EX2:+6$R$"Y"9210,@$9090*Z#I41NC1@*d#TUXX%C%(I41)C%(I4)1:XX%1XX%1b*n#36,C%(I4)1:(PR$(I4),XX%);s*x#PR$(I4)"":*#36,C%(NC)1:(PR$(NC),1,PWC%(NC)1):PR$(NC)""*#TLTL2*#FLAG%(21,0)9150*#TLTLSP1:(LF$,SP1);:PP1ĺ*#PB8000ZPWC%(NC):I3ZI3Z1A)36,C%(NC)1I3:(C$(NC),1,ZI31)X) (LF$,2);:PP1ĺa) TL6g) )(# PRINT TRAILERS )2#TLNL6LPİ8000:EXTRUEı:ADVANCE PAPER, PRINT HEADERS)<#I20:I311:500:I209150)F#(LF$,1);:PP1ĺ*P#NC1.5:PGPG1:PH$;PG:(LF$,2);:PP1ĺ5(NC18170D(I41NC1x(I30:LN%(I4)I3LN%(I4)(C$(I4))3:I30I30(ZC%(I41)C%(I4):I3ZI3Z1(36,C%(I4)1I3:(C$(I4),ZI3);((I30:LN%(NC)I3LN%(NC)(C$(NC))3:I30I30)27ė:8080$'TZ0SL0EXTRUE::3'^MLTL0:O'hZ0ĺ(LF$,Z);:PP1ĺ]'rSO8090'|0:1002::12:7:"PRESS RETURN TO CONTINUE ";:R$:DP2PP0'SLİ9500'MLTL0:'SLĭSOĭPGİ9500'(PH$)7TL0:&(36,(PW(PH$))2T$)1)&EX%(FD)İ6000:7080F&UB$(FD)""LB$(FD)""İ6240:7080P&6160]&MEETıe&JJp&MEET1v&&@ ADVANCE PAPER & PRINT HEADING 'J49288SN16,0:ZLPTL:Z0SL0Ģ23:6:"PRESS RETURN TO CONTINUE ";:16368,0:R$:(R$),1)"="ĂHH@%(T$,HH,1)(IN$(FD,II),HH,1)HH100:HH:II:Q%HH:MEET1:Y%II_%%X TEST SELECTION CRITERIA %lJJ1NF%vIN%(JJ)0EX%(JJ)0LB$(JJ)""UB$(JJ)""ĂJJ:MEET1:&MEET1:FDJJ:T$A$(FD):(T$,1)""T$(T$,1,(463508$PR%(FD,II)2ĭ(T$,1,Z)IN$(FD,II)MEET1:q$PR%(FD,II)2ĭ(T$,(T$)Z1,Z)IN$(FD,II)MEET1:$PR%(FD,II)3ĂII:$HH1(T$)Z1:(T$,HH,Z)IN$(FD,II)MEET1:HH100:HH:$HH:II: %HH1(IN$(FD,II)):(IN$(FD,II),HH"#8T%(FD)ĭ(T$UB$(FD))MEET0J#BT%(FD)ĭ((T$)(UB$(FD)))MEET0V#LMEETıg#VIN%(FD)0ıy#`II1IN%(FD)#jMEET0#tZ(T$):PR%(FD,II)Z(IN$(FD,II))#~T%(FD)ĭ(T$)(IN$(FD,II))MEET1:#T%(FD)(T$)ZĂII:$PR%(FD,II)1(EX$(FD,II)):(EX$(FD,II),HH,1)"="ĂHHb"(T$,HH,1)(EX$(FD,II),HH,1)MEET0:HH100:HH:j"II"UB$(FD)""LB$(FD)""6230"LB$(FD)""6200"T%(FD)ĭ(T$LB$(FD))MEET0"$T%(FD)ĭ((T$)(LB$(FD)))MEET0".UB$(FD)""6220II:6150!PR%(FD,II)46120P!PR%(FD,II)2ĭ(T$,1,Z)EX$(FD,II)MEET0:!PR%(FD,II)2ĭ(T$,(T$)Z1,Z)EX$(FD,II)MEET0:!PR%(FD,II)3ĂII:6150!HH1(T$)Z1:(T$,HH,Z)EX$(FD,II)MEET0:HH100:HH:!HH:II:6150+"HH%(S,I2)))LE1:= (A$(S%(S,I2)))(A1$(S%(S,I2)))GE1:V I2:GE1:LE1:EQ1:r p SUBROUTINE CHECK zEX%(FD)06150 II1EX%(FD) Z(T$):PR%(FD,II)Z(EX$(FD,II)) T%(FD)ĭ(T$)(EX$(FD,II))MEET0:!T%(FD)(T$)ZĂ0:1002PR%TRUE@ MULTIPLE-KEY COMPRESSION SGE0:LE0:EQ0eI21S%(S,0)|T%(S%(S,I2))5070A$(S%(S,I2))A1$(S%(S,I2))LE1:A$(S%(S,I2))A1$(S%(S,I2))GE1:I2:GE1:LE1:EQ1: (A$(S%(S,I2)))(A1$(SFLAG%(21,0)3790k9000:FLAG%(21,0)0:I21NF:FLAG%(I2,0)A$(20I2)((GT$(I2))(A$(20I2)))qI21NC:CT%(I2)A$(100I2)((CT$(I2))(A$(100I2)))CT%(16)A$(116)((GT$(21))(A$(116)))9000D$;"CLOSE" PELĺ(LF$,SPEL);:PP1ĺ.VTLTLNLSPEL>`EXė:3800jj(16384)127İ9300:EXEXFALSE:3800t~F:IMLC23800I21NF:FLAG%(0,I2)Ă:3740FLAG%(21,0)1:NLI2NF::3740" "N$(I2);:36,18:(A$(20I2),PW19):TLTL1:1:XX%1XX%14PR$(I4)(SP$,1,(PR$(I4)))3620V36,C%(I4)1:(PR$(I4),XX%);g$PR$(I4)"":.PR$(I4)(SP$,1,(PR$(I4)))ĺ" ":3650836,C%(NC)1:(PR$(NC),1,PWC%(NC)1)BPR$(NC)"":I3G49289SN16,0:EARLY DRIVE TURN ONLSNB2ĺ4((RC)));RC;".";:3540? NBĺ4((C2)));C2;".";Z CT%(16)A$(116)(C2)} EL0:NLĹ49289SN16,0:3680 I31NL 500:ML2ĭFCELEL1:I41NC1:PR$(I4)""::3650 NC13640 I41NC1TUXX%C%(I41)C%(I4)CT$(I3)((CT$(I3))(A$(100I3))):A$(100I3)"":l CT%(16)GT$(21)((A$(116))(GT$(21))):A$(116)"" I41NF:FLAG%(I4,0)Ă:3500 A$(20I4)((A$(20I4))(A$(I4))): TLNL6LPİ8000:EXTRUE3680 FLAG%(21,0)C20! C2C21:> A$(20I4)A$(I4):.H FLAG%(21,0)3480WR 9000:I21NF:FLAG%(I2,0)Ă:3440\ I31NF:(FLAG%(I2,I3)FLAG%(21,I3))Ă::3440f GT$(I2)((GT$(I2))(A$(20I2))):A$(20I2)"":I3NF::p CT%(0)3480z I31NC:CT%(I3)Ă:34703 " A$(I4)A$(20I4)Ă:34005# A$(I420)(0)3369X$ I41NF:FLAG%(0,I4)Ă:3369% " "N$(I4);:36,18:(A$(20I4),PW19):TLTL1:) I41NF:FLAG%(0,I4)Ă:3400* A$(I4)A$(20I4)Ă:34004 A$(20I4)(0)FLAG%(21,0)1:FLAG%(21,I4)11$(I3)A$(I3)::A1$(S%(S,1))UB$:5000= DS(GEEQ)3720S DS(LEEQ)3720x MEET1:RJİ7000:MEETĂI:3720 F1MP ML3480 EX3680 FLAG%(0,0)3500 I40NF:FLAG%(21,I4)0::NL3369! I41NF:FLAG%(0,I4)Ă:3400FOR LABELS @v TLLP:INIT LINE COUNT TO PRINT HEADERS 1ST TIMEa C20:PRINTED RECORD COUNTERv DSLB$""LBUB DSāILB11:3240 ILBUB RCI:NSRCP%(I,0) 2000 (A$(1),1)""ĂI:3720 UB$""NS03310& I31NF:A0 LBNDLBND:3170s: RCP%(LB,0):2020:I31EF:A1$(I3)A$(I3)::A1$(S%(S,1))LB$:5000:EQXX1(2DS):3110D (DS(LE))(DS(GE))LBLB1(2DS)N LBNDLBNDX LB1LB1b UBND:UBLBLB13800 l MLSLİ9200:EXı:LINE UP PRINTER B$""31607 FE1:X1S%(S,0):S%(S,X)EFEFS%(S,X)> Xa X(((UBLB)2)LB):RCP%(X,0) 2020:I31EF:A1$(I3)A$(I3)::A1$(S%(S,1))LB$:5000:EQ3110 LB1UB3140 (LE)LBX:3060 UBX:3060& LBX1(2DS):LB1LB1:317016368,0:A$$4 READ RECORD FROM DISK >EFNFZRC1RCNDA$(1)"":D$;"READ";DF$;",R";RC:I11EF:A$(I1)::D$: PRINT RECORDS  D$;"LOCK";DF$;",S"SN",D"DN D$;"OPEN";DF$;",S"SN",D"DN",L"L  LB0:UBND1:L ";:16368,0:A$!:PR%1030.ST104081060:7:A$"PRINTING COMPLETE":(R$)27A$"PRINTING CANCELED BY USER"(40(A$))2.5::A$::STıSTZZ0:A$(7)"INSERT PROGRAM DISK AND PRESS RETURN" 12:(40(A$))2.5:A$;:760'M$(CT)((SK$(SP%))(M$(CT)))n(M$(CT))4ĭ(M$(CT),(M$(CT))3,1)"E"Y$M$(CT):300:M$(CT)Y$zQ:760STė:12:6:(7);"INSERT DATA DISK AND PRESS RETURN";:16368,0:R$:49288SN16,0:EXSL0Ģ23:12:"PRESS RETURN(CT1):DL%(CT)DL%(CT1):M$(CT1)SK$(SP%):DL%(CT1)SD%(SP%):Q:760nzM$(CT)((M$(CT))(SK$(SP%))):950M$(CT)((SK$(SP%))(M$(CT))):950M$(CT)((M$(CT))(SK$(SP%))):950(M$(CT))0M$(CT)((SK$(SP%))(M$(CT))):950Q:N)((A$(100N))(PR$(N)))#4N)>FHOP%(I3,N,Q1)9850,870RSK$(SP%)M$(CT):SK%(SP%)OP%:SD%(SP%)DL%(CT):SP%SP%1:CT0CT1\M$(CT)A$(F%(I3,N,Q)):690fSP%SP%1:SK%(SP%)890,900,910,920,930,940,0,0,0,880,880EpCTCT1:M$(CT)M$CT%(F1100)2DL%(CT)1$Q:760OML2FCFC(FC0):A$(F1)""FCFC1cF120F1F120{T%(F1)2DL%(CT)1QI21CTDL%(I2)İ10 PR$(N)PR$(N)M$(I2):M$(I2)"":DL%(I2)0I2 LN%(N)İ100*I311CT%(N)A$(100)))):680 690Y I4F%(I3,N,Q1)1F%(I3,N,Q):M$(CT)((M$(CT))(A$(I4)))::680 M$(CT)((M$(CT))(A$(F%(I3,N,Q)))) (M$(CT))4ĭ(M$(CT),(M$(CT))3,1)"E"Y$M$(CT):300:M$(CT)Y$ F1F%(I3,N,Q):F141730 F1101ĂQ:760,630,640,660,6707 XCTCT1:M$(CT)A$(F%(I3,N,Q)):690f bM$(CT)((M$(CT))(A$(F%(I3,N,Q)))):680 lM$(CT)((M$(CT))(A$(F%(I3,N,Q)))):680 vM$(CT)((M$(CT))(A$(F%(I3,N,Q)))):680 (A$(F%(I3,N,Q)))0M$(CT)((M$(CT))(A$(F%(I3,N,Q^Y$NG$"."(ZERO$,(Z1))T$:@  ASSEMBLE PRINT LINE R FC1:N1NC[ CT0r F%(I3,N,0)0ĂN: OP%1:Q1F%(I3,N,0) &F%(I3,N,Q)0ĂQ:760 0OP%(I3,N,Q1)9840 :OP%OP%(I3,N,Q1) DF%(I3,N,Q)0ĂQ:760 NOP%610,620$,LN%(N)I21)PR$(N):I211::D , SCIENTIFIC NOTATION FIX u 6NG$"":(Y$,1)"-"NG$"-":Y$(Y$,(Y$)1) @Z0:(Y$,2,1)"."Z1:T$(Y$,Z,Z)(Y$,3,(Y$)6) JZT$(Y$,1,(Y$)4) TZ((Y$,3)):Z0Y$NG$T$(ZERO$,Z1(T$)):! Y2M$(I2)".0"Y$:8 <M$(I2)(Y$,1,LY2)"."(Y$,2)> FX d RIGHT JUSTIFY? n nZ(PR$(N)):Zı xI2Z11:(PR$(N),I2,1)"."Ă:I2Z121:(PR$(N),I21,1)"0"(PR$(N),I21,1)"9"Ă:I2Z1 I2LN%(N)āI211::! PR$(N)(SPI,2 PRINT II 08/17/81 =30010Z DOLLAR CONVERSION LY(M$(I2)):NG%(LY):NG%0NG%1Y$(((((LY)100.5)))NG%):(Y$)4ĭ(Y$,(Y$)3,1)"E"İ300(LY(Y$):NG%1LY3M$(I2)"-.0"(Y$,1): 2L                            ";(222);" AT LINE ";(218)(219)256:1010,0:1011,3:64367:768,2:768: COPYRIGHT 1979 BY JAMES A. COX/ HIGH TECHNOLOGY ALL RIGHTS RESERVED COPYRIGHT 1979 BY J500109@ER$"WRITE PROTECTEDEND OF DATAFILE NOT FOUNDI/ODISK FULLFILE LOCKEDRESETCTRL-C"9JĆER%(8)9TER%(1)4:ER%(2)5:ER%(3)6:ER%(4)8:ER%(5)9:ER%(6)10:ER%(7)20:ER%(8)2559^ıJ:hė:"IRRECOVERABLE ERROR""ĺ"ERROR CODE = ";ER;" AT LINE ";LNP8íPE$""ĺPE$;" ERROR";" AT LINE ";LN}8ú(7);(7);"PRESS RETURN";:16368,0:R$8ú:ER8Ĺ47095,BS16:47096,1:43626,BS:43624,18ĥ500108ĭER20Ĭ8ĭZZ502208"EX2:ST1:304508,ī3033096ĥ7díSLĹ49288SN16,077nò 49288+SN*16 TURN OFF DRIVEB7xCV0:O7Ê0:1002_7úD$;"CLOSE"r7Ì54915:502807ù1528,BS16:ER(222):LN(218)(219)256:PE$""7ÁI187íERER%(I)PE$(ER$,(I1)151,15):501207Â7É:7â7&8íPE$304506vPR%FALSE46v**** CHAIN TO PRINT II ****T6vI011:46832I,(105I):x6v390:D$"RUN PRINT II,S"BS",D1"6v390:SWITCH DISKS6v(ST)EX2ID1Ĺ1528,BS16:6w:D$;"RUN MENU,S"BS",D1"6Pò ERROR ROUTINES 6ZÌ54915::50070;(7);(7):W11000:W:EX2:ST1:30450E5zvZZ1:900:CHOOSE FORMAT^5vEXTRUEEX2:30450x5vZZ2İ1400:EX304505v2000:CHOOSE SORT5vEXTRUE304505v3000:SELECTION CRITERIA5vEXTRUE304505v7000:GET ADDITIONAL INFO6vEXTRUESN:ID$F$:YN$"NO YES"84*v13::"PLEASE STAND BY":18R44v500:READ PARAMETERSi4>v370:SWITCH DISKS4Hv600:READ MASTER4RvID0ND0303304\vND0A$"NO DATA IN DATA FILE"4fvID0A$"NO FORMAT FILES DEFINED"(5pv:12:(40(A$))2.5:A$,I(LOOK):SET UP USR() FUNCTIONK3uID$(20),NL%(15),LN%(15),C%(15),C$(15)|3vH(XX)120(XX10):V(XX)XX210(XX10)3 v13::"PLEASE STAND BY";3vF$"":SN0:DNSN:STSN:SLSN:PPSN:LPSN:PWSN:MF$F$:DF$F$:XF$F$4 vLSN:NSSN:NFSN:IDSN:TUCT%(16)%2u13::"PLEASE STAND BY";=2uFALSE0:TRUEFALSEM2uP%(1023,0)2uUB$(20),LB$(20),IN%(20),IN$(20,16),EX%(20),EX$(20,8),RJ%(8),RF%(8),RJ$(8)2uPR%(20,8)2uO(XX)256((XX256)(XX256)):I(XX)(XX256) 3uLOOK814:11,O(LOOK):12:CVSN:CXSN:XX$F$:V1SN:ZSNP1vuFIIHHJJYYWPSJ1:PR$(15),M$(12),DL%(12)s1uUS$(95):I17:US$US$US$:1uSP$" ":I17:SP$SP$SP$:1uF%SN:Y$F$:LTSN:NG%F%:XX%F%1uN$(20),L%(20),T%(20),S%(5,6)2uA$(116),A1$(20),GT$(21),CT$(15),4):(16384)127ľR$:(R$)2730470G0Nu23:13::"PLEASE STAND BY";0XuF%(11,15,15),OP%(11,15,15),FLAG%(21,20),SK%(5),SK$(5),SD%(5)0buISN:I1SN:I2SN:I3SN:I4SN:JSN:KSN:NSN:QSN:CTSN:F1SN:LYSN:SP%SN1luL1SN:X1SN:I$F$:TI$F$:R$F$:LTSN(R$)277190/8(R$)87370:/BFLAG%(21,0)NL7190s/LCV14:CX36:LT1:T0:CV:CX:868:10:TI$"N"PB0/VTI$"Y"PB1/`CX:(YN$,(PB3)1,3):(R$)87450/j7190/0u INITIALIZATION /:u50230%0DuBS(1528)16:D$(4)(13)(ML7450X.CV10:CX36:LT4:T1:CV:CX:868:10:TI$""MP(((TI$))):MP1MP1y.CX:868:MP:(R$)277190.(R$)87370.ML7190.CV12:CX36:LT1:T0:CV:CX:868:10:TI$"N"SO0.$TI$"Y"SO1 /.CX:(YN$,(SO3)1,3)::CX36:LT1:T0:CV:CX:868:10:TI$"N"TU0I-TI$"Y"TU1:XX%255s-CX:(YN$,(TU3)1,3):(R$)277190-(R$)87260-CV8:CX36:LT3:T1:CV:CX:868:10:TI$""SP(((TI$)))-CX:868:SP:(R$)277190-(R$)87330 .1:NBIC5,,RI11NC:C%(I1)C%(I1)IC::I,\MLC%(NC)7PWNL7320,fCV4:CX36:LT1:T0:CV:CX:868:10:(R$)87270,pTI$"N"NB0,zTI$"S"NB1,TI$"R"NB2,CX:("NO SEQREC",(NB3)1,3):(R$)277190,SL7190/-CV6)+22:" PRESS RETURN WHEN READY TO PRINT"::" --> = UPD OPTIONS <-- = CHG HEADING";:1:16368,0:R$:21::958:R$""Ĺ222,255:50010+ (R$)8ė:7020+*(R$)217260+4(R$)27EXTRUE:+>(R$)137190 ,H:FLAG%(21,0)0:IC3):8:"NBR OF BLANK LINES BETWEEN RECORDS ";SPe*MLĢ10:"NBR OF TIMES TO PRINT EACH RECORD ";MP*MLĢ12:"PAUSE AT END OF EACH PAGE (Y/N) ";(YN$,(SO3)1,3)+ FLAG%(21,0)ĭMLNLĢ14:"START A NEW PAGE ON BREAK (Y/N) ";(YN$,(PB3)1,30:NB0:PH$""2)MLPH$TI$" PAGE ":PG0:MP1H)(R$)8ġ:30370c):14:"PRINT OPTIONS")NLMLĭC%(NC)6PWĢ4:"NUMBER RECORDS (N/S/R)";:36:("NO SEQREC",(NB3)1,3))SL7190/*6:"DISABLE TRUNCATION (Y/N)";:36:(YN$,(TU3)1,:1O(vPH$XX$:14:"PAGE HEADING"::::LTPW12:T0:10:(R$)27EXTRUE:(TI$""TI$PH$:TI$""Ģ4::958:33,39:PH$::W1500:(TI$"NH"TI$""(MLFALSE:TI$"NP"MLTRUE(TI$"ML"ML2(MLNLĺ(7):7010 )MLSO0:PB'p PRINT FIELDS $'zI11208'V(I1):H(I1)^'2((I1)));I1;" ";(N$(I1),16)d'j''X GET ADDITIONAL INFO 'b:TU0:NB0:SP0:MP1:SO0:PB0:XX$" ":SLFLAG%(21,0)PB1(l(PH$)7XX$(PH$,(PH$)7):13::33,39:XX$:5190&TI$"<"B3:51902&TI$">"B4:5190J&(TI$"<="B5:5190b&2TI$">="B6:5190r&<4000:5100&FRJ%(PS)B:4000&P16:LTL%(RF%(PS)):LT23LT23&ZTT%(RF%(PS)):10:TI$""RJ$(PS)TI$&d(R$)13TI$""EX1&n4000&xX1:6%TI$""A0RF%(PS)A:RJ%(PS)0:RJ$(PS)""b%RF%(PS)0PSRJRJ%(PS)0:RJ$(PS)"":%RF%(PS)1RF%(PS)NFĖ3:5030%4000%12:2);:12:LT2:T0:10%TI$""RJ%(PS)0BRJ%(PS):5190%TI$"="B1:5190& TI$"<>"B2:,4090,4100$"=";:4110+$"<>";:4110;$"<";:4110K$">";:4110\$"<=";:4110g$">=";o$16$(RJ$(PS),23);$"$ GET REJ LINE $EX0$15PS:3$8);:3:LT2:T1:10$A(TI$)%A0PSRJTI$""(R$)13E(J1):3450)#\ LB$(RF%(J1))RJ$(J1):3450H#f UB$(RF%(J1))RJ$(J1):3290g#p LB$(RF%(J1))RJ$(J1):3290o#z J1u# # PRINT REJ LINE #15PS:3:868:RF%(PS)0ı#(N$(RF%(PS)),8);:12#RJ%(PS)04110 $RJ%(PS)4050,4060,4070,4080$(RF%(J1),EX%(RF%(J1))),2,(EX$(RF%(J1),EX%(RF%(J1))))1):PR%(RF%(J1),EX%(RF%(J1)))2PR%(RF%(J1),EX%(RF%(J1)))PR%(RF%(J1),EX%(RF%(J1)))2"4 HH1(RJ$(J1)):(RJ$(J1),HH,1)"="HH100:PR%(RF%(J1),EX%(RF%(J1)))4"> HH"H 3450 #R UB$(RF%(J1))RJ$))1):3350! EX%(RF%(J1))EX%(RF%(J1))1:PR%(RF%(J1),EX%(RF%(J1)))0:EX$(RF%(J1),EX%(RF%(J1)))RJ$(J1):(RJ$(J1),1)"+"PR%(RF%(J1),EX%(RF%(J1)))1:EX$(RF%(J1),EX%(RF%(J1)))(RJ$(J1),1,(RJ$(J1))1)"* (RJ$(J1),1)"+"EX$(RF%(J1),EX%(RF%(J1)))(EX$(RF%(J1),IN%(RF%(J1))))1):PR%(RF%(J1),IN%(RF%(J1)))2PR%(RF%(J1),IN%(RF%(J1)))PR%(RF%(J1),IN%(RF%(J1)))2 HH1(RJ$(J1)):(RJ$(J1),HH,1)"="HH100:PR%(RF%(J1),IN%(RF%(J1)))4  HH 3450 ! (RJ$(J1),1)"="RJ$(J1)(RJ$(J1),1,(RJ$(J1N%(RF%(J1))1:PR%(RF%(J1),IN%(RF%(J1)))0:IN$(RF%(J1),IN%(RF%(J1)))RJ$(J1):(RJ$(J1),1)"+"PR%(RF%(J1),IN%(RF%(J1)))1:IN$(RF%(J1),IN%(RF%(J1)))(RJ$(J1),1,(RJ$(J1))1)n (RJ$(J1),1)"+"IN$(RF%(J1),IN%(RF%(J1)))(IN$(RF%(J1),IN%(RF%(J1))),2,(INA$TI$:" CHOOSE SORT <LB$"":UB$"":NS0ıBf18:"SORTS"::" DESCRIPTION"lxI1NS I;:7:33,35:32,5:(37):J1S%(I,0) J1ĺ" BY ";*(N$(S%(I,J)),12);4>32,0:33,40HR\:40100:(A$(I),1)"&"A$A$(I):1410:A$(I)A$:z:::I(A$)3ıeLT((A$,2,2)):LT1ıK(37)14:24:J1K:::17:K2:J(A$)1JJ((LT)):KK((LT)):(A$,K,J);"? ";T0:10:(R$)27EXTRUE::::(R$)131440 LNL%(J)(CT%(J)Ă:72I110:F%(I,J,0)01360<K1F%(I,J,0):F%(I,J,K)0F%(I,J,K)21:T%(F%(I,J,K))2CT%(J)2FKPIZJdx:10:"PRINT-TIME VARIABLES":34,3:17:I1NC:(C$(I),1)"&"A$C$(I):1410:C$(I)A$.y:IER WIDTH TOO SMALL"::12:(40(A$))2.5:A$;(7);(7):W11000:W:54915:30450C%(NC)39SLĺ:"PRINTER OR CRT MONITOR? (P/C) ";:16368,0:R$:"P";:R$"C"Ė31:"C";:PW39:SL0:LF$(13):I17:LF$LF$LF$::LP24:PP0:J1NC:NLNL%(J)N1,0)1:A$((F%(I,J,K))20)(0)8K:FLAG%(21,0)PB1?IkJ:FLAG%(21,0)āK0NF:FLAG%(21,K)0:PBFLAG%(21,0)PBI40100:A$(I):(A$(I),1)"&"ĭ(A$(I))2ĭ((A$(I),2,2))0ZZ2D$;"CLOSE"S C%(NC)PWEX1:A$"PRINT20,W)FLAG%(F%(I,J,K)20,W)FLAG%(21,W):FLAG%(0,W)FLAG%(0,W)FLAG%(21,W):F%(I,J,K)100CT%(F%(I,J,K)100)1:FLAG%(0,0)1:CT%(0)1:FLAG%(21,0)āW1NF:FLAG%(0,W)FLAG%(0,W)FLAG%(21,W):F%(I,J,K)0FLAG%(21,(F%(I,J,K)))1:FLAG%(21,0)FLAG%(2)1:HF%(I,J,K1)20F%(I,J,K)20:FLAG%(H,0)1:FLAG%(21,0)āW1NF:FLAG%(H,W)FLAG%(H,W)FLAG%(21,W):FLAG%(0,W)FLAG%(0,W)FLAG%(21,W)::1230KF%(I,J,K)20F%(I,J,K)41FLAG%(0,0)1:FLAG%(F%(I,J,K)20,0)1:FLAG%(21,0)āW1NF:FLAG%(F%(I,J,K) LJ1NCVI1113`F%(I,J,0):OP%(I,J,0)IjF%(I,J,0)01240rtFLAG%(21,0)āK0NF:FLAG%(21,K)0:~K1F%(I,J,0)F%(I,J,K):OP%(I,J,K)OP%(I,J,K1)5F%(I,J,K1)21F%(I,J,K1)40F%(I,J,K)21F%(I,J,K)401200FLAG%(0,0E:TI$""TI$"1":TI$;CR(TI$):R1RIDĢ(37):1:980RID$ID$(R)jFF$ID$".FMT":PB0}D$;"OPEN";FF$D$;"READ";FF$$NC.I1NC8C$(I):C%(I):LN%(I):NL%(I):(C$(I),1)"&"ĭ(C$(I))2ĭ((C$(I),2,2))0ZZ2BREAD";DF$\ND!fD$;"CLOSE"'p@ CHOOSE FORMAT MEXFALSEz:A$"FORMAT FILES":(40(A$))2.5:A$3I1ID2((I)));I;5);ID$(I)ID1RID:1020:"ENTER NUMBER ";:LT2:T0:10(R$)27EXTRU ";(222);" AT LINE ";(218)(219)256:1010,0:1011,3:64367:768,2:768: COPYRIGHT 1979 BY JAMES A. COX/ HIGH TECHNOLOGY ALL RIGHTS RESERVED E500109@ER$"WRITE PROTECTEDEND OF DATAFILE NOT FOUNDI/ODISK FULLFILE LOCKEDRESETCTRL-C"9JĆER%(8)9TER%(1)4:ER%(2)5:ER%(3)6:ER%(4)8:ER%(5)9:ER%(6)10:ER%(7)20:ER%(8)2559^ıJ:hė:"IRRECOVERABLE ERROR""ĺ"ERROR CODE = ";ER;" AT LINE ";LNP8íPE$""ĺPE$;" ERROR";" AT LINE ";LN}8ú(7);(7);"PRESS RETURN";:16368,0:R$8ú:ER8Ĺ47095,BS16:47096,1:43626,BS:43624,18ĥ500108ĭER20Ĭ8ĭZZ502208"EX2:ST1:304508,ī3033096ĥ7díSLĹ49288SN16,077nò 49288+SN*16 TURN OFF DRIVEB7xCV0:O7Ê0:1002_7úD$;"CLOSE"r7Ì54915:502807ù1528,BS16:ER(222):LN(218)(219)256:PE$""7ÁI187íERER%(I)PE$(ER$,(I1)151,15):501207Â7É:7â7&8íPE$304506vPR%FALSE46v**** CHAIN TO PRINT II ****T6vI011:46832I,(105I):x6v390:D$"RUN PRINT II,S"BS",D1"6v390:SWITCH DISKS6v(ST)EX2ID1Ĺ1528,BS16:6w:D$;"RUN MENU,S"BS",D1"6Pò ERROR ROUTINES 6ZÌ54915::50070;(7);(7):W11000:W:EX2:ST1:30450E5zvZZ1:900:CHOOSE FORMAT^5vEXTRUEEX2:30450x5vZZ2İ1400:EX304505v2000:CHOOSE SORT5vEXTRUE304505v3000:SELECTION CRITERIA5vEXTRUE304505v7000:GET ADDITIONAL INFO6vEXTRUE COX/ HIGH TECHNOLOGY ALL RIGHTS RESERVED BER(3)6:ER(4)8:ER(5)9:ER(6)10:ER(7)20:ER(8)255:PE$"":ER0:LN0J@Jı@Tė:"IRRECOVERABLE ERROR ";(222);" AT LINE ";(218)(219)256:1010,0:1011,3:64367:768,2:768AA COPYRIGHT 1979 BY JAMES A.43626,BS:43624,1?å50010+?íER20ĬA?íER8ST1:30360O?ĭZZ30310Z?ī30360f?"ĥ50010?,ER$"WRITE PROTECTEDEND OF DATAFILE NOT FOUNDI/ODISK FULLFILE LOCKEDRESETCTRL-C"?6ĆER(8)D@@ER(1)4:ER(2)5:56:PE$"">ÁI18B>íERER(I)PE$(ER$,(I1)151,15):50100H>ÂP>É:W>â7>íPE$""ĺ"ERROR CODE = ";ER;" AT LINE ";LN>íPE$""ĺPE$;" ERROR";" AT LINE ";LN>ú(7);(7);"PRESS RETURN";:16368,0:R$?ú:ER8Ĺ47095,BS16:47096,1:RITE FORMAT FILE=vEX30310C=vSTĹ1528,BS16:::START OVER[=v430: SWITCH DISKSw=vD$;"RUN MENU,S"BS",D1"=Pò ERROR ROUTINES =ZÌ54915=dúD$;"PR#0"=nå50050=xúD$;"CLOSE"=å50260 >ù1528,BS16:ER(222):LN(218)(219)2< v2100: INPUT FORMAT FILE/<vEXTRUE303608< vZZ1H<*vP130310T<4v30300g<>vD$"UNLOCK"FF$?TI$" "TR$(PN)""7H?(R$)8PNPN1:PN1161007R?(R$)21(R$)13PNPN1:PNNC161007\?(R$)13TI$""161008f?161606>5:"COLUMN"?6>I1NC:6I:1:2((I)));I;" ";TR$(I):6>24:1:868:" --> EDIT <-- PREV PG END EDIT";:16>R$:(R$)3Ĺ222,255:500106>(R$)8BKTRUE:162406?(R$)13(R$)2716240: PARSE 6 ?(R$)21161107 "5 I111055 13I1:3((I1)):I1" "CL$(I1);;5 A5 [5> EDIT TRAILERS }5>I11:PS11:BKFALSE:MDTFALSE5>C115:TR$(C)"":5>C1NC5>500:TR$(C)CL$(I)5>C5>5>I140:"-";::1:A$" TRAILERS ":(40(A$))2:A$""NL%(C)NL%(C)1:82604N 94X ZĢ14:1:958:8320C4b :Z14l I1120:P(I1):P1(I1):2((I1)));I1;" ";(N$(I1),15);:4v 11:1:(US$,6);:10:"COLUMN REPORT LINES";:35:(US$,6)5 11:17:C" ":868:(39(C$(C)))2.5:" "C$(C)"CL$(PS);:868:(R$)8PSPS1:8130L3TI$""PSNL%(C)NL%(C)NL%(C)1g3TI$""PSNL%(C)80503PSPS1:PS1080503 81403 MDTı3 CX4:PS1NL%(C)3& F%(PS,C,0)030 CVPS13:720:RRTRUE81403: PS4D PSNL%(C):PS0CL$(PS),255:50010'2(R$)27EXTRUE:8210@2(R$)8IN1:8210Y2(R$)13IN1:8210m2(R$)2180502MDTTRUE:24:1:8682PS12PS1PS12XX$CL$(PS):CVPS13:CX4:LT36:T0:Q1:102TI$""CL$(PS)TI$%3TI$""ĢPS13:4:59:PS13500(1$:6NC:5:868:7020B1@ EDIT COLUMN C N1JI110f1T500: DISASSEMBLERm1^I1hMDTFALSE:8280:RESET MODIFIED DATA TAG AND PRINT COLUMN1r24:1:868:" --> EDIT <-- PREV PG NEXT PG";:1 2|R$:(R$)3Ĺ222%(I);:,0PS5:35:LN%(PS)0Č868:7400L02((LN%(PS))));LN%(PS);_0PSNCNCNC1q0(R$)872400PSPS1:PS157160070200PS1NC:C%(PS)17240 1C%(PS)LN%(PS)SWĢ24:1:"COLUMN "PS" EXCEDES PRINTER WIDTH OF "SW;:10/LN%(0)LN%(PS):LN%(PS)(TI$):LN%(PS)0LN%(PS)0Y/LN%(PS)0LN%(PS)LN%(0):7320~/LN%(PS)C%(PS)SWČ1059:BEEP0PSNCNC1PS15ĭC%(PS)LN%(PS)1C%(PS1)LN%(0)LN%(PS)LN%(0):IPS1NC:C%(I)C%(I)LN%(0):I5:31:3((C%(I))));C1)LN%(PS1)1C%(PS)C%(0):7240.PSNCNC1PS15ĭC%(PS)LN%(PS)1C%(PS1)C%(0)C%(PS)C%(0):IPS1NC:C%(I)C%(I)C%(0):I5:31:3((C%(I))));C%(I);:.PS5:31:3((C%(PS))));C%(PS);.CVPS5:CX35:LT2:T1:10.TI$""73505""C$(PS)TI$--HCV5PS:CX31:LT3:T1:10^-R(R$)8Ė31:3((C%(PS))));C%(PS);:7180-\TI$""TI$(C%(PS)):PS1C%(PS)1TI$"1"-fC%(0)C%(PS):C%(PS)(TI$):C%(PS)1C%(PS)C%(0):7240-pC%(PS)SWČ1059:BEEP!.zPS1C%(PS)C%(PS:"--> ADV END";&,PS1PS1E, CV5PS:CX5:LT25:T0:10l,(R$)8Ė5:C$(PS);:PSPS1:7170, TI$" "PSNCNCNC1:C$(PS)"":C%(PS)0:LN%(PS)0:868:PSPS1:7170,*TI$""PSNC7440,4TI$""Ė5:C$(PS);:(R$)137440->TI$UE:+(R$)87090m+24:1:"IGNORE ALL CHANGES? (Y/N) ";:868:16368,0:R$:R$"Y"(R$)277020+EXTRUE:R$" ":+(R$)137140+MDT0+NC0EXTRUE+NCOCCHTRUE++(R$)217030+PS1:MDT1,24:1:868C%(I1);:LN%(I1)0ĺ35);2((LN%(I1))));LN%(I1);9*?*E*_*X EDIT SCREEN 1 x*bOCNC:CHFALSE:MDT0*l24:1:" --> EDIT <-- PREV PG NEXT PG";:1*vR$:(R$)3Ĺ222,255:50010*(MDT)(R$)277070+(R$)27EXTRz#?3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333ΠҠ ՠ! ů٠/ ү٠UŠ$Ԡ;Ԡ5@إklȱɀ`qHȥqhL  i i ` i iiLTii&&eeȑ88` QL333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333AMES A. COX/ HIGH TECHNOLOGY ALL RIGHTS RESERVED L!Զ"Զ٠ɠӠΠΠԠ ٮ )à2 Ԡɠ. ԠӮʠҠӠנӠŠŠΠҠ ՠ! ů٠/ ү٠UŠ$Ԡ; Ԡ4SN7SNBS:2190*(R$)8İ4000:2130GCV7:CX20:LT1:T1:100^TI$""DN(TI$)rDN1DN22220(R$)82180ST0:SNBSDN1ST14000:(R$)13TI$""21009:20:868:CV9:LT1:T1:100TI$""SL(TI$)SF$""aF$""2180<fI1(F$):(F$,I,1)","Ă:2170Fp2130bz(F$)65(F$)9021304000:(R$)13TI$""21006:20:868:CV6:LT1:T1:100TI$""2210(R$)8İ4000:2130SN1SN8İ4000:2220SN(TI$):SN1((((CN((972)(973)256))CN)100.5))"% FULL":(40(A$))2.5:A$:868~L23:"PRESS TO CONTINUE ";:R$:2010M24:1:868OOT0RCV4:CX20:LT19:T0:100S(R$)82130UTI$""F$TI$WTI$" "F$""\TI$"NONE"329909(R$)272990,>(R$)212125>HR$"C"2100I:D$;"CATALOG,S";SN;",D";DN::::CN496:(46266)140CN528J1:868:A$"CURRENT SYSTEM: "F$:F$""A$A$"NONE"MK(40(A$))2.5:A$:868:46592:A$"DATA DISK IS CURRENTLY " #" 7:" DRIVE #"7 9:"PRINTER SLOT #"O 11:"PRINTER TYPE"m 13:"PRINTER LINES/PAGE" 15:"PRINTER WIDTH" *4000:PRINT VALUES 424:2:"--> CHG END/UPD C=CATALOG";:1:R$:(R$)3Ĺ222,255:100005(R$)1DP0:10000 3000:30040@ D$;"OPEN PARAMETERS,S"BS",D1"Z D$;"READ PARAMETERS" F$:SN:DN:SL:PP:LP:PW:DP:ST0:SNBSDN1ST1 D$;"CLOSE"   UPDATE PARAMETERS : 4:"CURRENT SYSTEM" 6:"DATA FILE SLOT:V1  X1CX440B CX:V1:868:X139:V1V11:40:V1H c  READ PARAMETERS o 10700 20:D$"LOCK INFORMATION MASTER,S"BS",D1" 1006 D$;"UNLOCK PARAMETERS":1010 54915 SNBS:DN1:ST1:SL0:PP0:LP24:PW39:$)48(I$)57)I$"+"I$"-"I$"."ĺ"";:170A "LTL1170P ,TI$TI$I$Y 6I$;r @L1L11:X1X11:340{ J170 TX140420 ^X1CX:V1V11 hV125V124:CVCV1: rX1:V1 |ZLTL1:Z39CXZ40CX Z0410 (US$,Z);:X1I$:I$""Ĺ222,255:10000N (I$)13(I$)21(I$)27CV0:R$I$:868:` (I$)8260r L10R$I$: L1L11:X1X11:340 I$;(US$,1);I$; L10TI$"":170 TI$(TI$,L1) 170 (I$)32ĺ"";:170 T2902 ((I!2 MENU 05/01/81 =40000d ------- U P D A T E ------- ~d GET SUBROUTINE nL10:TI$""xCVCV(37)1:CX(36)1CX:CVV1CV:X1CXZLT:LTCX39Z40CX(US$,Z);:CX:CV           I1(A$):(A$,I,1);:SOUND(S):::255:  COPYRIGHT 1979 BY JAMES A. COX/ HIGH TECHNOLOGY ALL RIGHTS RESERVED VGHT (C) 1979":2000:A$"HIGH TECHNOLOGY SOFTWARE PRODUCTS, INC.":2000P 34,5Z 12:k "RUN MENU"v L54915 :"IRRECOVERABLE ERROR ";(222);" AT LINE ";(218)(219)256:1010,0:1011,3:64367:768,2:768+ :140:((40(A$))2.5):M A S T E R "::"----------------------------------------VERSION 5.0";:36((SS)):"SER# ";SS;"----------------------------------------" b7 l:A$"BY":2000:A$"JAMES A. COX":2000:A$"AND":2000:A$"STEPHEN M. WILLIAMS":2000F v20:A$"COPYRI 1100A INFORMATION MASTER 09/15/81 VnSOUND0:S16336v1010,196:1011,3:1012,166,ABOVE POKES SET RESET VECTOR ON APPLE II+"BLOAD DBMS.OBJ,A$300"SS(974)(975)256:: X" I N F O R M A T I O N    N;",D";DN!ƝR340410E!НZZ3:D$;"UNLOCK";F$;".IDX,S";SN;",D";DN!ڝ44300,234:44301,234:44302,234:6:958:15:A$P$(R):(40(A$))2.5:A$!ߝR730000!䝢19::D$;"RUN";P1$(R)",S"BS",D1"!""CREATE/MODIFY SYSTEM LAYOUT","CREATE/MODIF$""R1R740230) R1R740410D SNBSDN1ST140410 R3R5Ĺ44300,32:44301,55:44302,176:ALLOW UNLOCK ZZ1:D$;"UNLOCK";F$;".MST,S";SN;",D";DN:44300,234:44301,234:44302,234:DISABLE LOCK !ZZ2:D$;"UNLOCK";F$;".DAT,S";S OR"::"PRESS TO RESUME ";:I$:I$:(I$)13ĺD$"PR#"BS}b(R$)27:(I$)27āI15:(7);:J120:::l(R$)27ĬvR(R$):R1R740230R6Ģ23:3:868:"CONFIRM ";P$(R);" (Y/N) ";:R$:23:1:868:R$"Y"40230 ;:(R$)3Ĺ222,255:40640<:(R$)24CXCX1:CX540240DCX3(R$)13Ĺ1010,191:1011,157:41891,24:40224,18:40225,164:1002:(64367)173Č64367NCX0HX(R$)27ė:12:"REMOVE DISKETTES AND POWER OFF OR"::"REPLACE DISKETTES AND PRESS STEM: ";F$;:8685֜F$""ĺ"NO SYSTEM NAME";:868S36((SS)):"SER# ";SS;Ꜻ"----------------------------------------";I17P$(I),P1$(I)62I:6I;". ";P$(I)&23:13:"ENTER NUMBER";:19016368,0:R$:R$S$US$US$:%rSS(974)(975)256D|D$"NOMONCIO":(37):868V1000:40630oSLĹ4928016SL,128xZZ0:34,0:1" I N F O R M A T I O N M A S T E R ":œ"----------------------------------------";̜F$""ĺ"SY000nu20:D$"LOCK INFORMATION MASTER,S"BS",D1"<ou10000OvuOTĢ20:40000su(R$)27İ3000: WRITE PARAMS@ ------- M E N U ------- J:BS(1528)16:"MAXFILES 1"T40870^P$(7),P1$(7) hD$(4)(13)(4):US$(95):I17:UNSERT PROGRAM DISK AND PRESS RETURN";:16368,0:R$::ZZ30060Y/u INITIALIZATION t0u:BS(1528)16:10500:uD$(4)(13)(4)DuUS$(95):I17:US$US$US$:Nu1000Xu10000buZZ1:OT1:16368,0lu2000: UPDATE PARAMSmu107 LOCKEDRESETCTRL-C",)ER(8)t")ER(1)4:ER(2)5:ER(3)6:ER(4)8:ER(5)9:ER(6)10:ER(7)20:ER(8)255z,)h):"IRRECOVERABLE ERROR ";(222);" AT LINE ";(218)(219)256:1010,0:1011,3:64367:768,2:768?):54915:12:3:(7);"I'(7);(7);"PRESS RETURN";:16368,0:R$^e':ER8Ĺ47095,BS16:47096,1:43626,BS:43624,1jj'10000wm'ER20Ĭo'ZZ10110t'40000~'30060)10000!)ER$"WRITE PROTECTEDEND OF DATAFILE NOT FOUNDI/ODISK FULLFILE'D$;"CLOSE""'54915:10600X'1528,BS16:ER(222):LN(218)(219)256:PE$""c'I18$'ERER(I)PE$(ER$,(I1)151,15):10040.'8':B'7L'PE$""ĺ"ERROR CODE = ";ER;" AT LINE ";LNV'PE$""ĺPE$;" ERROR AT LINE ";LN)`/PPĺ"SERIAL";:DP2ĺ" CENTRONICS";:4130NPP1ĺ"CENTRONICS";:4130cPPĺ"PARALLEL";vPPDPĺ"-E";"868,13:20:SL041606LP;@868J15:20:SL04190TPW;^868h' ERROR ROUTINE '10004E"9 A$"PARAMETERS UPDATED"::12:(40(A$))2.5:A$? [ PRINT PARAMETERS 4:20:F$;:F$""ĺ"NONE";:8686:20SN;:868:7:20:DN;8689:20SL0ĺ"NONE";:4090SL;86811:20:SL04130X20:LT3:T1:100)V TI$""PW(TI$)@` PW39PW2552380Ra (R$)82330\j 4000ft 2100l  WRITE PARAMETERS  20 D$;"OPEN PARAMETERS,S"BS",D1" D$;"WRITE PARAMETERS" F$:SN:DN:SL:PP:LP:PW:DP D$;"CLOS2290 DP1:PP08 (TI$,1)"P"PP2:TI$"PE"DP0J TI$"C"PP1] TI$"SC"DP2} 4000:(R$)13TI$""2100$ CV13:CX20:LT2:T1:100. TI$""LP(TI$)8 LP2423409 (R$)82280B 4000:(R$)13TI$""2100L CV15:CL0(R$)82180<SL0PP0:LP24:PW39:DP1:4000:2100PSL1SL72250b(R$)821804000:(R$)13TI$""210011:20:868:CV11:LT2:T0:100(R$)82240TI$""2330TI$"P"TI$"C"TI$"SC"TI$"PE"TI$"S"100.5))"% FULL":(40(A$))2.5:A$:868n16368,0:22:1:958:"SYSTEM NAME :";:LT19:T3:100:T0t(R$)27İ510:30280(R$)81020TI$"INIT DISK"Ģ23:1:868:940(R$)13TI$""F$""1090TI$""TI$"NONE"900U:D$;"CATALOG,S";SN;",D";DN:::::CN496:(46266)140CN528a500101:868:A$"CURRENT SYSTEM: "F$:F$""A$A$"NONE"-(40(A$))2.5:A$:868:46592:A$"DATA DISK IS CURRENTLY "((((CN((972)(973)256))CN)9432D$"LOCK INFORMATION MASTER,S"SN",D"DN;970L54915:970l23:14::"INITIALIZING":1::D$"INIT HELLO,S";SN;",D";DND$"CLOSE"54915:500103012054915:A$"N":50010930 INPUT SYSTEM SPECS :10:3:"DISK I/O ERROR READING DATA DISK!"::3:"SHALL I INITIALIZE THE DATA DISK"::3:"CURRENTLY IN S";SN;",D";DN;"? (Y/N) ";:A$:A$:A$"Y"A$"N"A$(27)920 (A$)27İ510:30280 A$"N"IST:ST1:490:STI:960 A$"Y"920ETURN";:16368,0:R$ : X PRINT RECORD LENGTH y bL0:J1NF:LLL%(J)::LL3NF:1:33:"LEN=";L;:868:  INITIALIZE DISK ROUTINE (222)850010 D$"CLOSE":54915:970 47095,BS16:47096,1:43626,BS:43624,1 CXZ40CX Z0450/ (US$,Z);:X1:V15 E X1CX480m CX:V1:868:X139:V1V11:40:V1s  STė:12:6:(7);"INSERT DATA DISK AND PRESS RETURN";:16368,0:R$  STZZ0::12:3:(7);"INSERT PROGRAM DISK AND PRESS R$","I$":"ĺ"";:210 9330\ @((I$)48(I$)57)I$"+"I$"-"I$"."ĺ"";:210k JLTL1210z TTI$TI$I$ ^I$; hL1L11:X1X11:380 r210 |X140460 X1CX:V1V11 V125V124:CVCV1: X1:V1 ZLTL1:Z3913(I$)21(I$)27I$"^"CV0:R$I$:LTL1);:D (I$)8300e L10R$I$:LTL1);:CV0:~ L1L11:X1X11:380 I$;(US$,1);I$; L10TI$"":210 TI$(TI$,L1) "210 ,(I$)32(I$)34210 6T330 7T3320 8If-2 CREATE/MODIFY 08/07/81 =30000Wd GET SUBROUTINE gL10:TI$""CVCV(37)1:CX(36)1CX:CVV1CV:X1CXZLT:LTCX39Z40CX(US$,Z);:CX:CVI$:I$""Ĺ222,255:500102 (I$)             ALL RIGHTS RESERVED ER(5)9:ER(6)10:ER(7)20:ER(8)255)&Ο&؟:"IRRECOVERABLE ERROR ";(222);" AT LINE ";(218)(219)256:1010,0:1011,3:64367:768,2:768 ' COPYRIGHT 1979 BY JAMES A. COX/ HIGH TECHNOLOGY R8Ĺ47095,BS16:47096,1:43626,BS:43624,1?%ER6ER8ĬJ%30000V%40640%ER$"WRITE PROTECTEDEND OF DATAFILE NOT FOUNDI/ODISK FULLFILE LOCKEDRESETCTRL-C"%ER(8)#&ğER(1)4:ER(2)5:ER(3)6:ER(4)8:80(R3R5)40390*$8LN40400R5404106$B40920v$L(ER6ER9)ZZPE$("MST DAT IDX ",(ZZ1)41,4)PE$:ZZ0~$V12$`PE$""ĺ"ERROR CODE = ";ER;" AT LINE ";LN$jPE$""ĺPE$;" ERROR AT LINE ";LN$t(7);(7);"PRESS RETURN";:R$,%~:E6:54915:PE$"":40660'#ʞD$;"CLOSE":#Ԟ54915:40920i#ޞ1528,BS16:ER(222):LN(218)(219)256t#螁I18#ERER(I)PE$(ER$,(I1)151,15):40710##::6:958#ER440780#40640#$LN40370(R3R5)40380$.LN403FY"+""ENTER/MODIFY DATA","ENTER/MODIFY"H" "TRANSFER FILES","MOVE"r""CREATE/EDIT REPORT FORMAT","FORMAT"" "PRINT FORMATTED REPORT","PRINT""* "COMPACT/SORT DATA FILE","SORT""4"UPDATE SYSTEM PARAMETERS",""" ERROR ROUTINE #ĺ" ";) S%(J1,K1)0ĺS%(J1,K1);" ";1 :K (R$)13SW$""4050h (R$)8K1JJ1:4670 (R$)8KK1:K1JJ1:KS%(J,0):J14050 *(R$)21(R$)13KK1:KS%(J,0)1K6K1:JJ1:JNS14050 4J5K64050 >J1439014:K16:" ";::TI$""R$(0)2K14630BJNS4580YJ1J1NS:K106K1S%(J1,0)S%(J11,K1)S%(J1,K1):4560S%(J11,K1)0:I106:S%(NS,I1)0:JNSNSNS1J115:K116 J114:K16:S%(J1,K1)0CVJ14:CXK6 DLT2:T1:100,NSW$TI$IX(TI$)0(TI$)NF4410ebTI$""S%(J,K)(TI$)lJ14:K6:S%(J,K);" ";vS%(J,K)0KS%(J,0)1S%(J,0)KS%(J,K)0JNS1NSJS%(J,K)04630#S%(J,0)K1:K1K6:S%(J,K1)0:JT%(I)ĺ"A";!L%(I);" ";;(R$)13TI$""4050N(R$)8II1k(R$)21(R$)13II1I1INF4160I14050NWINF1I2041604050&J1:K1024:1:868:" --> = FORWARD <-- = BACK = END";:MDT17T%(I)((TI$,1)"N"):(TI$,1)"$"T%(I)2L%(I)((TI$,2,(TI$)1)):L0:J1NF:LLL%(J)::LL3NF:1:33:"LEN=";L;:868::T%(I)L%(I)19TI$(TI$,1)"19":4270V(I):H(I)16:INF4320T%(I)1ĺ"N";T%(I)2ĺ"$";J:600:4160&^N$(I)""NFINFI;h5000: RESTORENrNFINW4320u|CVV(I):CXH(I)16:LT3:T0:100(R$)84160TI$""L%(I)04280(TI$)24220(TI$,1)"N"(TI$,1)"A"(TI$,1)"$"((TI$,2,(TI$)1))14220F0(TI$" "TI$"0")4160pTNW(TI$" "TI$"0")NFINFNF1:N$(I)"":L%(I)0:600:V(I):5000:II1:4155 UNW(TI$" "TI$"0")JI:IINF1:N$(I)N$(I1):T%(I)T%(I1):L%(I)L%(I1):V(I):5000::N$(NF)"":L%(NF)0:INF:NFNF1:V(I):5000:I(I):CXH(I):T0:LT16:100FD(R$)8INFL%(I)0N$(I)"":NFNF1_E(R$)8İ5000:4280FNWNF20R$"^"JI:INF1J1:N$(I)N$(I1):T%(I)T%(I1):L%(I)L%(I1):V(I):5000::NFNF1:IJ:600:V(I):4160JTI$""N$(I)TI$:MDT1ON22:1:958=(R$)13L0:J1NF:LLL%(J)::LL3NF:hR$"V"İ5500:4050: VIEW FULL FIELDSR$"P"İ17000:4050: PRINT HARD COPY"R$"S"4390,24:1:868:" --> = FORWARD <-- = BACK = END";6I1;I1I1@CVV1:33:"LEN=";L;:868:$J1:K1GS%(J,K)NFĢ22:1:958:4400\K6KK1:4062uK1:J5JJ1:406223:1:R$:(R$)3Ĺ222,255:50010(R$)27R$"N"P1:1000:P0:30130R$"S"R$"F"R$"V"R$"P"(R$)134070 I);  & NS03170$0 I1NS5: J1S%(I,0)DD 14I:J6RN S%(I,J);XX ^] db } UPDATE SYSTEM 22:1:9588:"F = UPD FIELDS P = PRINT":8:"S = UPD SORTS V = VIEW":4:" = END/UPDATE N = NEW SYSTEM";: 15*I154I;'>J93366HJ);"BY";<RB\HfNh DISPLAY SYSTEM w NF03110 I1NF V(I):H(I)3 P$(N$(I),12):P$;12(P$));","; T%(I)1ĺ"N"; T%(I)2ĺ"$"; T%(I)0ĺ"A"; L%(L0:ID0:2000:3000:30170)NF0:NS04(30130L DISPLAY MASK ReNWĞ:"NEW ";wNWĺ"OLD ";"SYSTEM:";::" ";F$I1102I:2((I)));I;16);",";21);2((I10)));I10;36);"," 14:"SORTS:";"OPEN";DF$D$;"READ";DF$&ND6D$;"CLOSE"END0NW2KaER(222):50010w54915:ER61285ER8IST:ST1:490:STI:47095,96:47096,1:43626,6:43624,1:1528,BS16:50010D$;"CLOSE"NW1PS1%(1,1)0:O5:J06:S%(I,J)0:S1%(I,J)0::ELD$;"OPEN";MF$;",S";SN;",D";DNXVD$;"READ";MF$`jNFl~I1NFN$(I):L%(I):T%(I)L:NSNS01260I1NSS%(I,0)J1S%(I,0)S%(I,J)D$;"CLOSE" D$1020,G$(TI$,1):(G$)65(G$)901020Q$I2(TI$):(TI$,I,1)","1020X.Ic8F$TI$BMF$F$".MST":DF$F$".DAT":XF$F$".IDX"G1280HD$;"UNLOCK";MF$;",S";SN;",D";DN:50010"IMDT0:NW0:I020:N$(I)"":L%(I)0:T%(I)0::I0JS%(I,0)B10u:#0uNWB120uMDT302200v24:1:868:"PRESS 'D' TO DELETE THIS SYSTEM ";:R$:R$"D"İ8000:30240:DELETE THE SYSTEM0 v6000: WRITE TO DISK0v7000: INIT FILES0 v510: INSERT PROGRAM DISK0*v15000: WRITE PARAMSTA DISK&/u1000: INPUT SYSTEM SPECS//uZZ1H/u2000: DISPLAY MASKg/uNFİ3000: DISPLAY SYSTEM/uOLNS:I15:J16:S1%(I,J)S%(I,J)::/u4000: UPDATE SYSTEM/uNF0Ģ20:F$OL$:302400uB0:I15:J16:S1%(I,J)S%(I,J)MDT1:INSuO(XX)256((XX256)(XX256)):I(XX)(XX256)r.uLOOK814:11,O(LOOK):12,I(LOOK):SET UP USR() FUNCTION.u9000:READ PARAMETERS.uLF%10:(PPPP2)DP2LF%13.uUS$(95):LF$(LF%):I17:US$US$US$:LF$LF$LF$:/u490: INSERT DA002-fDDP2PP0-FF2-/u INITIALIZATION =-0u50210c-6uBS(1528)16:JIK1J1I1KYYW-:uN$(20),L%(20),T%(20),S%(5,6),S1%(5,6)-DuH(XX)120(XX10):V(XX)XX210(XX10)-NuD$(4)(13)(4)-buID$(20)-luQ$(34)-vuP%(1,0)4.,&C" SORT DESCRIPTION"6,0C" ----------------"B,5CTLTL3O,:CI11NS^,DC36,1:I1;q,NCJ11S%(I1,0)|,XC36,10,bCJ11ĺ" BY ";,lCN$(S%(I1,J1)),qCTLTL1,vCJ1,CI1,CTLLPTLTLLP,CZLPTL:Z0ĺ(LF$,Z);:PP1ĺ-\D0:1B" -----------------";:36,35:"----"?+B(LF$,1);:PP1ĺH+BTL6U+BI11NF}+B2((I1)));I1;" ";N$(I1);:36,36+BT%(I1)2ĺ"$";+BT%(I1)1ĺ"N";+BT%(I1)0ĺ"A";+CL%(I1)+ CTLTL1+CI1+CNS017300,C(LF$,1);:PP1ĺSL,0:1144SL,12864:DPĹ1144SL,128;*BDP2PP1:17060Z*B(49171SL256)10417060o*BPPDPĺ(9)"K";*BPPĺ(9)"40N";*BA$"LAYOUT FOR SYSTEM "F$:36,(40(A$))21:A$*B(LF$,2);:PP1ĺ*B" FIELD DESCRIPTION";:36,35:"TYPE"(+1)> W=254 IF STILL BUSY!)><)hB PRINT HARD COPY Q)mBSL0NF017990X)rB1l)|BEP1:PPİ16000z)BEP17050)B24:11::(7);(7);"PRINTER NOT READY";::W1750:W:17990%*BD$"PR#"SL:(49222SL256)192ĺ(0);:1400SL,255:PPĹ1656OCK PARAMETERS,S"BS",D1";(:D$;"OPEN PARAMETERS,S"BS",D1"V(:D$;"WRITE PARAMETERS"z(:F$:SN:DN:SL:PP:LP:PW:DP(:D$;"CLOSE"(:(> PRINTER ON? (>EP0(>DV4928016SL(>DV,128(>YY120:W(49345256SL):)>W254EP PARAMETERS 0'-#D$"LOCK PARAMETERS,S"BS",D1"S'2#D$;"OPEN PARAMETERS,S"BS",D1"m'<#D$;"READ PARAMETERS"'F#F$:SN:DN:SL:PP:LP:PW:DP:ST0:SNBSDN1ST1'x#D$;"CLOSE"'}#OL$F$'#': WRITE PARAMETERS ':OL$F$15050(:D$"L8027&ZI1ID:ID$(I):+&[D$;"CLOSE"Z&\ID0āI1ID:D$;"DELETE";ID$(I);".FMT":o&^D$;"DELETE";MF$&cD$;"DELETE";F$;".IDX"&hD$;"DELETE";DF$&rOL08070&|I1OL:D$;"DELETE";F$;I;".SRT":&F$"":MF$"":DF$""&'(# READ%> %H%@ DELETE %J:11:11::"CONFIRM DELETE (Y/N) ";:R$:R$"Y"ė:12:A$"DELETE NOT CONFIRMED":(40(A$))2.5:A$:8080%O:A$"** NOW DELETING **":12:(40(A$))2.5:A$%T%WD$;"OPEN";XF$%XD$;"READ";XF$&YID:ID0".IDX" $vD$;"WRITE";F$;".IDX"'$07$D$;"CLOSE"J$D$;"OPEN";DF$^$D$;"WRITE";DF$e$0u$D$;"CLOSE"$NSOL7190$INS1OL$D$;"DELETE";F$;I;".SRT"$ $NS0B7240$*I1NS%4D$;"BSAVE";F$;I;".SRT,A";(0);",L$2"",S";SN;",D";DN##D$;"WRITE";MF$+#NF7#I1NFV#Q$;N$(I);Q$:L%(I):T%(I)\#i#L5L5t#L:NS#NS06130#I1NS#J0S%(I,0):S%(I,J):##D$;"CLOSE"##X INIT FILES #bNW17140$lD$;"OPEN";F$;"L%(I);" ";"/"| VIEW FULL FIELD <"I1120P"V(I1):H(I1)c"N$(I1);:868i"z"24:1:868"" = RETURN TO EDITING";:1:R$"I120:V(I):5000"""p WRITE TO DISK "z20:#D$;"OPEN";MF$; !H4410! RESTORE /!N$(I)""5060:!H(I)R!2((I)));I;" ";y!P$(N$(I),12):P$;12(P$));",";!5080!H(I)!2((I)));I;13);",";!L%(I)0ĺ" ";:5120!T%(I)1ĺ"N";!T%(I)2ĺ"$";!T%(I)ĺ"A";":(Y$,1)"-"NG$"-":Y$(Y$,(Y$)1)_Z0:(Y$,2,1)"."Z1:T$(Y$,Z,Z)(Y$,3,(Y$)6)zZT$(Y$,1,(Y$)4)Z((Y$,3)):Z0Y$NG$T$(ZERO$,Z1(T$)):Y$NG$"."(ZERO$,(Z1))T$: DOLLAR CONVERT HLY(TI$):NG%CX:V1:868:X139:V1V11:40:V1+ u*STė:12:6:(7);"INSERT DATA DISK AND PRESS RETURN";:16368,0:R${4>STZZ0::12:3:(7);"INSERT PROGRAM DISK AND PRESS RETURN";:16368,0:R$H SCIENTIFIC NOTATION FIX 'NG$"-"I$"."ĺ"";:170$LTL11703TI$TI$I$<I$;UL1L11:X1X11:700^170mX140780X1CX:V1V11V125V124:CVCV1:X1:V1ZLTL1:Z39CXZ40CXZ0770(US$,Z);:X1:V1 X1CX800%0SUMSUMVL:MI1:610D600?NVL0SUMSUMVL:MI3:610mXMI0:SUM0:34,CV2:24::CX:"";bSUM1E18600l34,CV2:24::CXLTL1:TI$;I$;:34,0vL10:TI$"":CV1:CX:SUM;:868::130((I$)48(I$)57)I$"+"I$"MVL:MI0:610' SUMSUMVL:MI1:610@ SUMSUMVL:MI3:610Y SUMSUMVL:MI2:610r SUMSUMVL:MI0:610 SUMSUMVL:MI1:610 SUMSUMVL:MI3:610 VL0SUMSUMVL:MI2:610 600 &VL0SUMSUMVL:MI0:610 0600:VL$"/")640x VL(TI$):MI6(I$)41410,420,0,430,0,440,450,460,0,470,0,480,490,500,0,510,0,520,530,550,0,570,0,590 SUMSUMVL:MI2:610 SUMSUMVL:MI0:610 SUMSUMVL:MI1:610 SUMSUMVL:MI3:610 SUMSUMVL:MI2:610 SUMSU @L10TI$"":170' JTI$(TI$,L1)0 T170R ^(I$)32(I$)34ĺ"";:170^ hT650 lL10ĭI$"M"TI$XX$:TI$;:L1L1(TI$):X1X1(TI$):700:170 mCV18640 rI$";"I$"+" |I$":"I$"*" L10P4(I$"+"I$"-"I$"*"ITTI$(TI$,LT), CV:CX:868:TI$:958f (I$)13(I$)21(I$)27CV0:R$I$:XX$"":868: (I$)1XX$""I$(XX$,L11,1):I$""I$(1) (I$)8350 "L10R$I$:868:CV0:XX$"": ,L1L11:X1X11:700 6I$;(US$,1);I$; SUM260+ ((I$)13(I$)21)260O VL(TI$):MI1210,220,230,240c SUMSUMVL:250w SUMSUMVL:250 SUMSUMVL:250 VL0SUMSUMVL TI$(SUM):T2İ950 (TI$)4ĭ(TI$,(TI$)3,1)"E"Y$TI$:900:TI$Y$ (TI$)LIS2 ENTER/MODIFY 09/15/81 =30000Wd GET SUBROUTINE rnL10:TI$"":SUM0:MI0xCVCV(37)1:CX(36)1CX:CVV1CV:X1CXZLT:LTCX39Z40CX(US$,Z);:CX:CVI$:I$""Ĺ222,255:50000                          COPYRIGHT 1979 BY JAMES A. COX/ HIGH TECHNOLOGY ALL RIGHTS RESERVED P5L-C"46ĆER(8)h4@ER(1)4:ER(2)5:ER(3)6:ER(4)8:ER(5)9:ER(6)10:ER(7)20:ER(8)255:PE$"":ER0:LN0n4Jı4Tė:"IRRECOVERABLE ERROR ";(222);" AT LINE ";(218)(219)256:1010,0:1011,3:64367:768,2:768e5 R8Ĺ47095,BS16:47096,1:43626,BS:43624,183å50010S3íER8ST1:510:30280`3ĭER20Ĭn3ĭZZ30130~3İ510:302803"ĥ500104,ER$"WRITE PROTECTEDEND OF DATAFILE NOT FOUNDI/ODISK FULLFILE LOCKEDRESETCTR(222):LN(218)(219)256:PE$"".2ÁI18\2íERER(I)PE$(ER$,(I1)151,15):50100b2Âj2É:q2â72íPE$""ĺ"ERROR CODE = ";ER;" AT LINE ";LN2íPE$""ĺPE$;" ERROR";" AT LINE ";LN2ú(7);(7);"PRESS RETURN";:16368,0:R$,3ú:E14vNWBNS030280u1>v:A$"NOW RUNNING 'COMPACT/SORT DATA FILE'":12:(40(A$))2.5:A$:D$;"RUN SORT,S"BS",D1"1Hv:D$;"RUN MENU,S"BS",D1"1Pò ERROR ROUTINES 1ZÌ549151dÊ0:10021nå500501xúD$;"CLOSE"1å50260#2ù1528,BS16:ERMS0#!^"MODIFYING RECORD NO ";RC)!h6!rI11NF@!|I12o!2((I1)));I1;" ";N$(I1);:38ML:" ";!(A$(I1),ML);:868:!!24:1:GC8280!(A$(1),1)""8160"3::"DELETED";::" PRESS 'R' TO RECOVER";:1:R$:R$"R"TI$6 T%(I1)2TI$A$(I1):950:A$(I1)(TI$,L%(I1))p (A$(I1),1)" "A$(I1)(A$(I1),1,(A$(I1))1):7115 T%(I1)A$(I1)""A$(I1)"0" I12:CX:(A$(I1),ML);:868:  34,0: @ MODIFY A RECORD IN MEMORY J!TE0:M0::25);"(MAX # REC="MX")";):3:34,26I11NFI12:958:4:N$(I1);:38ML:" ";:LTL%(I1):TT%(I1):XX$A$(I1):100:35,24:(R$)8I11I1I11::7060(R$)8ĺ:7060(R$)27I11E1:7140TI$""(R$)217110 A$(I1)D20)20NDĺD$"CLOSE":D$"OPEN"DF$",L"L:D$"WRITE"DF$",R0":NDID$:mX ENTER A RECORD IN MEMORY bE0ė:24:1:"RECORD NO ";RC1;" STORED";:35,23:1:1:7030lE0:23:958:1:1:868v"ENTERING RECORD NO ";:RCMXğ{RC;:D";DF$;",R";RCI11EF'A$(I1)-5D$EA$(0)A$(1)Kkp WRITE RECORD TO DISK z21::RC16090D$;"WRITE";DF$;",R";RC(A$(0),1)""ĺQ$;A$(0):6090I11NF:Q$;A$(I1);Q$:RCNDĺD$:?NDND1:(NMEET1:FDJJ:T$A$(FD):(T$,1)""T$(T$,1,(T$)1)QEX%(FD)İ3000:4060xUB$(FD)""LB$(FD)""İ3160:40603080MEETıJJMEET1 READ RECORD FROM DISK EFNFRC1RCNDA$(1)"":5060D$;"REAFD,II)):(IN$(FD,II),HH,1)"="ĂHHX (T$,HH,1)(IN$(FD,II),HH,1)HH100:HH:II:i HH:MEET1:q IIw  TEST SELECTION CRITERIA RJ0(GCRJ1)MEET1:JJ1NFIN%(JJ)0EX%(JJ)0LB$(JJ)""UB$(JJ)""ĂJJ:40808ZĂII: PR%(FD,II)43208P PR%(FD,II)2ĭ(T$,1,Z)IN$(FD,II)MEET1: PR%(FD,II)2ĭ(T$,(T$)Z1,Z)IN$(FD,II)MEET1: PR%(FD,II)3ĂII: HH1(T$)Z1:(T$,HH,Z)IN$(FD,II)MEET1:HH100:HH: HH:II:# HH1(IN$(((T$)(UB$(FD)))MEET0'D MEETı8N IN%(FD)0ı[X IN%(FD)1ĭIN$(FD,1)"*GC*"ım] II1IN%(FD)xb MEET0l IN$(FD,II)"*GC*"ĂII:MEET1:v Z(T$):PR%(FD,II)Z(IN$(FD,II)) T%(FD)ĭ(T$)(IN$(FD,II))MEET1: T%(FD)(T$)H,1)(EX$(FD,II),HH,1)MEET0:HH100:HH:3 HH; II[ UB$(FD)""LB$(FD)""3150p LB$(FD)""3120 T%(FD)ĭ(T$LB$(FD))MEET0 T%(FD)ĭ((T$)(LB$(FD)))MEET0& UB$(FD)""31400 T%(FD)ĭ(T$UB$(FD))MEET0: T%(FD)1,Z)EX$(FD,II)MEET0:R PR%(FD,II)2FI(T$,(T$)Z1,Z)EX$(FD,II)MEET0:o PR%(FD,II)3ĂII:3070 HH1(T$)Z1:(T$,HH,Z)EX$(FD,II)MEET0:HH100:HH: HH:II:3070 HH1(EX$(FD,II)):(EX$(FD,II),HH,1)"="ĂHH+ (T$,HE1:*I2:GE1:LE1:EQ1:: SUBROUTINE CHECK N EX%(FD)03070` II1EX%(FD) Z(T$):PR%(FD,II)Z(EX$(FD,II)) T%(FD)ĭ(T$)(EX$(FD,II))MEET0: T%(FD)(T$)ZĂII:3070 PR%(FD,II)43048 PR%(FD,II)2ĭ(T$,SSION GE0:LE0:EQ0-I21S%(S,0)DT%(S%(S,I2))2070kA$(S%(S,I2))A1$(S%(S,I2))LE1:A$(S%(S,I2))A1$(S%(S,I2))GE1: I2:GE1:LE1:EQ1:(A$(S%(S,I2)))(A1$(S%(S,I2)))LE1: (A$(S%(S,I2)))(A1$(S%(S,I2)))G1UB11208(LE)LBX:1050-BUBX:1050KLLBX1:LBUBLBUB:1130yVRCP%(LB,S1):5010:2000:EQXX1:1100`LBX:(LE)LBLB1jXLBt2,S1:3,O(X):4,I(X):MOVE~P%(X,S1)OLSRCOL MULTIPLE-KEY COMPREEFEFS%(S,UB)UBa14:14:(100(100((NSS)(NS(NDJ)))(NS(NDN11))))"% COMPLETE"qUBJ1:LB1UB0X1:1150RCP%(UB,S1):5010:2000:(LE)XJ:1150X(((UBLB)2)LB)$RCP%(X,S1):5010:2000:EQ1100 .LBUBLB(LY):Y$(((((LY)100.5)))NG%):(Y$)4ĭ(Y$,(Y$)3,1)"E"İ900uLY(Y$):NG%0LY3TI$"-.0"(Y$,1):LY2TI$".0"Y$:TI$(Y$,1,LY2)"."(Y$,2): INSERT INTO SORTS OLRCS1NS:EF1:UB1S%(S,0):S%(S,UB) 1.RECDR1:12040i1.:11:5:"PAUSE BEFORE DELETION (Y/N) ";:TI$:DR0:TI$"N"ĺ"Y":DR1:12040r1."N"1/(TI$)27(TI$)8123201 /D$;"OPEN";DF$;",L";L1/RECLBRC:UBRC:121701/NSLB1:UBND:121702/LB0:UBND:LB$""LB1:1.5:A$0,JN1ND"0,RCJ:5000c0,I11NF:A1$(I1)A$(I1)::1000: INSERT INTO SORT FILES j0,Jz0,D$;"CLOSE"0,GCRJ0:GC0:I17:RF%(I)0:RJ%(I)0:RJ$(I)""::I1NF:UB$(I)"":LB$(I)"":IN%(I)0:EX%(I)0:0,1. DELETE RECORDS ROOM EXHAUSTED":12:(40(A$))2.5:A$::A$"PRESS RETURN ":(40(A$))2.5:A$;:A$::11340g/B,I/L,D$;"WRITE";DF$;",R0"/V,ND/`,D$;"CLOSE"/j,D$;"OPEN";DF$;",L";L/t,NS1N1ND114400~,US1::A$"UPDATING SORT FILES":12:(40(A$))2RJ$(1):1:8030:M1:SF%(RF%(1))MS13.+GC11270O.+(R$)8II2:I0I0\.,E11340t. ,RECĭ(R$)13IND.,MĂI:11340.,NSMSA$(0)"":6000:I:11340.$,A$(0)A$(0)"":6000:A$(0)"":RCND1:6000`/8,RCMX20ė:A$"MODIFICATION A$(I3)::A1$(S%(S,1))UB$:(A$(S%(S,1)),1)""A1$(S%(S,1))A1$(S%(S,1))""{-+RECUB$""NS0İ2000:(GE)EQ11340-+4000:R$(8)MEETII2:I0I0:R$""-+MEETĂI:11340-+GCA$(RF%(1))RJ$(1)ĂI:11340-+8000%.+GCA$(RF%(1))Э(16384)155Ĺ16368,0:E1:113401,+16368,0Q,+RCI:RECS0RCP%(I,S1)[,+5000,+R$(8)(A$(1),1)""DR1II2:I0I0:R$"",+DR1(A$(1),1)""ĂI:11340,+DR2(A$(1),1)""ĂI:11340N-+RECUB$""NS0āI31NF:A1$(I3)1080!+z+LBX1:LB1LB1:11160++RCP%(LB,S1):5010:I31EF:A1$(I3)A$(I3)::A1$(S%(S,1))LB$:(A$(S%(S,1)),1)""A1$(S%(S,1))A1$(S%(S,1))""++2000:EQXX1:11130++(LE)LBLB1++UBND:UBLB11440++N1ND1++R$"":ILBUB#,+(S%(S,1))"")*?+2000:(LE)(EQ)11440N*H+X(((UBLB)2)LB):RCP%(X,S1)*R+5010:I31EF:A1$(I3)A$(I3)::A1$(S%(S,1))LB$:(A$(S%(S,1)),1)""A1$(S%(S,1))A1$(S%(S,1))""*W+2000:EQ11130*\+LB1UB11150*f+(LE)LBX:11080+p+UBX:1$;",L";L$)*+RECLBRC:UBND:11170?)/+NSLB1:UBND:11170b)4+LB0:UBND:LB$""LB1:11170)9+EF1:X1S%(S,0):S%(S,X)EFEFS%(S,X)):+X *>+RCP%(ND,S1):5010:I31EF:A1$(I3)A$(I3)::A1$(S%(S,1))LB$:(A$(S%(S,1)),1)""A1$(S%(S,1))A1$.5:A$:W11000:W:11450( +DR0:RECDR1::11:5:"DELETED RECORDS ALSO? (Y/N) ";:LT1:T0:100:33:"N";:TI$"Y"DR0:33:"Y";(+DRRECĢ13:5:"DELETED RECORDS ONLY? (Y/N) ";:LT1:T0:100:33:"N";:TI$"Y"DR2:33:"Y";) +D$;"OPEN";DFNG SORT FILES":12:(40(A$))2.5:A$4''JN1NDC''RCJ:5000|''I1NF:A1$(I)A$(I)::1000:INSERT INTO SORT FILES''J''D$;"CLOSE"''A0'''* MODIFY RECORDS (+NDMX20ė:A$"MODIFICATION ROOM EXHAUSTED":12:(40(A$))2ȭNF18ė&V'8020:E1100401&['(R$)2110060K&`'(R$)13E1:10040n&j'A$(0)"":6000: WRITE TO DISK&t'RCRC1:RCMX10040&~'D$;"WRITE";DF$;",R0"&'ND&'D$;"CLOSE"&'D$;"OPEN";DF$;",L";L&'N1NDNS010210'''US1::A$"UPDATI(I1)$%F#2((I1)));I1;" ";N$(I1)*%P#0%Z#I%' ENTER RECORDS c%'D$;"OPEN";DF$;",L";L%$'NDMXė:12:A$"DATA FILE FULL":(40(A$))2.5:A$:W11000:W:10210%.'RCND1:N1RC:E1%8'7000:958:ENTER IN MEM%B'E110110&L'1:1:100:34,02$: TI$""A$(F)TI$:M1:SF%(F)MS1a$D T%(F)2TI$A$(F):950:A$(F)(TI$,L%(F))$I (A$(F),1)" "A$(F)(A$(F),1,(A$(F))1):8265$J T%(F)A$(F)""A$(F)"0"$N :8030$X 23:$(# PRINT FIELDS $2#I1120%<#V(I1):HTI$""8280%#TI$"E"E1:8280<# TI$"P"Ģ2:14010X# F(TI$):F1FNF8100# 34,2:F2:40ML:958:(A$(F))0āI11(A$(F))ML:40ML:(A$(F),I1,ML):#& :(A$(F))0ĺ $0 2((F)));F;" ";N$(F);:40ML:XX$A$(F):LTL%(F):TT%(F):8140;"A$(1)(A$(1),1,(A$(1))1):A$(0)A$(1):M1:8100M"(R$)27E1W"8280"P1ĺ" FLD# =STORE E=EXIT P=PRT";:8165"" FLD# -> FWD <- BACK E=EXIT P=PRT";"CV24:CX1:LT2:T0:16368,0:100"(R$)27E1:8280#J1):15360*A;LB$(RF%(J1))RJ$(J1):15360JA;UB$(RF%(J1))RJ$(J1):15280jA;LB$(RF%(J1))RJ$(J1):15280rA PRINT REJ LINE A>PS1GC0A>15PS:3:868:RF%(PS)016130A>(N$(RF%(PS)),8);:12A>RJ%(PS)0161101B>RF%(J1),EX%(RF%(J1))),2,(EX$(RF%(J1),EX%(RF%(J1))))1):PR%(RF%(J1),EX%(RF%(J1)))2PR%(RF%(J1),EX%(RF%(J1)))PR%(RF%(J1),EX%(RF%(J1)))2@;HH1(RJ$(J1)):(RJ$(J1),HH,1)"="HH100:PR%(RF%(J1),EX%(RF%(J1)))4@;HH@;15360 A;UB$(RF%(J1))RJ$(1):15310?;EX%(RF%(J1))EX%(RF%(J1))1:PR%(RF%(J1),EX%(RF%(J1)))0:EX$(RF%(J1),EX%(RF%(J1)))RJ$(J1):(RJ$(J1),1)"+"PR%(RF%(J1),EX%(RF%(J1)))1:EX$(RF%(J1),EX%(RF%(J1)))(RJ$(J1),1,(RJ$(J1))1)@;(RJ$(J1),1)"+"EX$(RF%(J1),EX%(RF%(J1)))(EX$())2PR%(RF%(J1),IN%(RF%(J1)))PR%(RF%(J1),IN%(RF%(J1)))2>;HH1(RJ$(J1)):(RJ$(J1),HH,1)"="HH100:PR%(RF%(J1),IN%(RF%(J1)))4>;HH>;RJ%(J1)7IN$(RF%(J1),IN%(RF%(J1)))"*GC*">;15360 ?;(RJ$(J1),1)"="RJ$(J1)(RJ$(J1),1,(RJ$(J1))),IN%(RF%(J1)))RJ$(J1):(RJ$(J1),1)"+"PR%(RF%(J1),IN%(RF%(J1)))1:IN$(RF%(J1),IN%(RF%(J1)))(RJ$(J1),1,(RJ$(J1))1):>;(RJ$(J1),1)"+"IN$(RF%(J1),IN%(RF%(J1)))(IN$(RF%(J1),IN%(RF%(J1))),2,(IN$(RF%(J1),IN%(RF%(J1))))1):PR%(RF%(J1),IN%(RF%(J1);J1120:LB$(J1)"":UB$(J1)"":EX%(J1)0:IN%(J1)0:C<;J11RJz<;RJ%(J1)15280,15310,15320,15330,15340,15350,15280<;(RJ$(J1),1)"="RJ$(J1)(RJ$(J1),1,(RJ$(J1))1):15280y=;IN%(RF%(J1))IN%(RF%(J1))1:PR%(RF%(J1),IN%(RF%(J1)))0:IN$(RF%(J1I)"":LB$(I)"":IN%(I)0:EX%(I)0::150803;.;OT0<;8;PS1G;B;17000c;L;(R$)8PSPS2:15220;V;RF%(PS)0RJPSRJRJ1:PSPS1:PS115090;`;RF%(PS)0PSRJRJPS;j;EX115090;t;PSPS1:PS8PS115090;~;15170;;RJ0E1:153706<:::PS17:16000:"::24:2i::"--> = UPD, D = DEL, = END";:1:R$:R$""Ĺ222,255:50000}:;(R$)2715240:;(R$)13(R$)21R$"D"15090:;(R$)1315240*;$;R$"D"RJ0:GC0:I17:RF%(I)0:RJ%(I)0:RJ$(I)""::I1NF:UB$((LF$,Z);:PP1ĺ9d7I2,9n7TLLPTLTLLPP9x7ZLPTL:Z0ĺ(LF$,Z);:PP1ĺh970:1002:DP2PP0n979: DEFINE SELECTION CRITERIA 9:E09:OT19:9:90009:14:19:3);"FIELD";11);"REL";16);"TEST QUANTITY":::I17:I7"RECORD ";RC;" OF SYSTEM ";F$78 7(LF$,1);:PP1ĺC87TLTL2P87I21NFy8(7N$(I2);:TLTL1:A$(I2)""ĺ:14170827J21(A$(I2))PW208<7P$(A$(I2),J2,PW20):P$""141708F736,19:P$;" ":J21TLTL18P7J29Z7TL8LPZLPTL:TL0:7);"PRINTER NOT READY";::W1750:W:1423076D$"PR#"SL:(49222SL256)192ĺ(0);:1400SL,255:PPĹ1656SL,0:1144SL,12864:DPĹ1144SL,12876DP2PP1:1407076(49171SL256)1041407076PPDPĺ(9)"K";76PPĺ(9);PW;"N";76TL0 8T FILES 36223:12::"SAVING SORT FILES"::22?62I1NS62D$;"BSAVE";F$;I;".SRT,A";(0)2048(I1);",L";(MX21)2;",S"SN",D"DN626266 PRINT HARD COPY 66SL01423066166EP1:PPİ2200066EP14060,7624:11::(7);(EET123105/18000#5/DR12300e5/24:3:"D=DEL, E=EXIT, =SKIP";:CV24:CX1:LT1:T0:100m5/235/TI$"E"(R$)27123205/TI$""1231050TI$"D"122505 0A$(0)A$(0)"":6000:A$(0)""50I5 0D$;"CLOSE"5*0 62 SAVE SOR4/UBND:UBLB12320#4/ILBUBG4/(16384)155Ĺ16368,0:12320U4/16368,0v4/RCI:S0RECRCP%(I,S1)4/50004/(A$(1),1)""123104/RECUB$""NS0āI31NF:A1$(I3)A$(I3)::A1$(S%(S,1))UB$:2000:(GE)EQ12320 5/4000:MEF:A1$(I3)A$(I3)::A1$(S%(S,1))LB$93?/2000:EQ12130L3D/LB1UB12150b3N/(LE)LBX:12080r3X/UBX:120803b/LBX1:LB1LB1:121603l/RCP%(LB,S1):5010:I31EF:A1$(I3)A$(I3)::A1$(S%(S,1))LB$3q/2000:EQXX1:121303v/(LE)LBLB1217012!/EF1:X1S%(S,0):S%(S,X)EFEFS%(S,X)82"/X2&/RCP%(ND,S1):5010:I31EF:A1$(I3)A$(I3)::A1$(S%(S,1))LB$:(A$(S%(S,1)),1)""A1$(S%(S,1))A1$(S%(S,1))""2'/2000:(LE)(EQ)1232020/X(((UBLB)2)LB):RCP%(X,S1)%3:/5010:I31;:TT%(S%(S,1)):LTL%(S%(S,1)):LT20LT20bQS100:LB$TI$::(LB$,1)"+"LB$(LB$,1,(LB$)1)uQT(R$)821310Q T(R$)2721150QT17:"ENDING WITH ";:TT%(S%(S,1)):LTL%(S%(S,1)):LT20LT20/RT100:UB$TI$::(UB$,1)"+"UB$(UB$,1,(UBPSJ1ĺ" BY ";*PS(N$(S%(I,J)),12);0PSAPS32,0:33,40GPSMPSUPS:PS14:"SORT NUMBER ";:LT1:T1:100:TI$""TI$"1":TI$;PS(R$)27(R$)821150PSS(TI$):S0SNS21460PSS021530PS:15:958+QS"STARTING WITH ":RC121230,OSRCNDRCND:CX:RC;:868COSREC0:RC0REC1\O SRECTI$"R"21230qO*SRECNS021530O4SREC21530O>SOHSLB$"":UB$""ORS18:"SORTS"::" DESCRIPTION"O\SOfSI1NSOpSI;:7:33,35:32,5:(37):PzSJ1S%(I,0)FFECT"'NRRJGCĢ20:(40(A$))2:A$/NR10gNRA$"ENTER REC # OR 'R' FOR RANGE":(40(A$))2:A$NRCV12:CX19:LT4:T0:100NR(R$)2721020NRGCĭTI$""TI$"R"21230NSTI$""(R$)13TI$"R"NSTI$"R"RC0:21270 O SRC((TI$))DISABLED, COMPACT/SORT WILL BE RUN":W11000:W:OSNS:NS0:S0:21020PMR:2mMRP3A$"* * DELETE * *"MRP2A$"* * MODIFY * *"MR((40(A$))2):A$MRA1MRP2GCA$"GLOBAL CHANGE IN EFFECT":21205NRRJ0A$"SELECTION CRITERIA IN ER$"O"OS21145KLlRND1ė:12:12:"NO DATA ON FILE":I12000::21020bLvRR$"M"P2:21150yLRR$"D"P3:21150LRR$"S"P4:21530LR(8);" ";:21070LR:11:5:"VERIFY OMIT SORT UPDATE (Y/N) ";:R$:R$"Y"ĺ:21020GMR"Y"::"SORTS 3::"M";::"ODIFY RECORDS":CK:R13::"D";::"ELETE RECORDS":jKDR13::"S";::"ELECTION CRITERIA"KIRNSOSĺ:13::"O";::"MIT SORT UPDATE"KNR16368,0:12:1:R$:R$;:R$""Ĺ222,255KXR(R$)27P0:21530KbRR$"E"P1:21530LgRNS:PP:LP:PW:DP:ST0:SNBSDN1ST16JND$;"CLOSE"VJNMF$F$".MST":DF$F$".DAT"zJNLF%10:(PPPP2)DP2LF%13JNLF$(LF%):I17:LF$LF$LF$:JNJR SELECT OPTION JRA121150JR:9J&R13::"E";::"NTER RECORDS":K0R1)22561SCSCSC1:19230+I2KNS0192907INF$:SN:DN:SL)HJD$;"OPEN";DF$'HJD$;"READ";DF$/HJND?HJD$;"CLOSE"ZHJ:D$;"OPEN";F$;".IDX"sHKD$;"READ";F$;".IDX"{H KNCHKD$;"CLOSE":SC2HKCN124416:(46266)140CN132608HKMX((CN(NC1536)(SC256NS))L.5)20:MX1000MX1000I(K(MX20,D";DNGLJD$;"READ";MF$!GVJNF2G`JML0:I1NFdGjJN$(I):L%(I):T%(I):(N$(I))MLML(N$(I))sGtJ:ML34ML~G~JL:NSGJNS019130GJI1NSGJS%(I,0)GJJ1S%(I,0):S%(I,J):SF%(S%(I,J))1:GJGJD$;"CLOSE"HJNS0ĆP%(1023,NS1SPLAY FOR DELETION FZF9FdF"DELETING RECORD NO ";RC?FnFLFxFI11NFVFFI12FF2((I1)));I1;" ";N$(I1);:38ML:" ";FF(A$(I1),ML)FFFFF8J INPUT MASTER FILE F=JD$;"LOCK";MF$;",S";SN;",D";DNGBJD$;"OPEN";MF$;",S";SN;"17210E0C16000:17110-E:CRJ%(PS)B:16000QEDC16:LTL%(RF%(PS)):LT23LT23ENCTT%(RF%(PS)):100:TI$""RJ$(PS)TI$:T%(RF%(PS))2İ950:RJ$(PS)(TI$,L%(RF%(PS)))EXC(R$)8ĺRJ$(PS);:17110EbC(R$)13TI$""EX1ElC16000EvCFPF DI:12:LT2:T0:100-DB(R$)8İ16000:17020UDBTI$""RJ%(PS)0BRJ%(PS):17210mDBTI$"="B1:17210DBTI$"<>"B2:17210DCTI$"<"B3:17210DCTI$">"B4:17210DCTI$"<="B5:17210D&CTI$">="B6:17210E+CPS1TI$"GC"B7:8);:3:LT2:T1:100)CB(R$)8172606CBA(TI$)aCBA0PSRJTI$""(R$)13EX1:17270CBTI$""A0RF%(PS)A:RJ%(PS)0:RJ$(PS)""CBRF%(PS)0PSRJRJ%(PS)0:RJ$(PS)"":17270CBRF%(PS)1RF%(PS)NFĖ3:17030CB16000DB12:2);RJ%(PS)16050,16060,16070,16080,16090,16100,16105BB>"=";:16110TB>"<>";:16110eB>"<";:16110vB>">";:16110B>"<=";:16110B>">=";:16110B>"GC";:GC1B>16B>(RJ$(PS),23);B?BhB GET REJ LINE BrBEX0B|B15PS:3CBDF$F$".DAT" $MF$F$".MST"1 )XF$F$".IDX"7 .X  READ MASTER AND SORTS { D$;"OPEN";MF$;",S";SN;",D";DN D$;"READ";MF$ NF I1NF N$(I):L(I):T(I) I L:NS NS5NS5 NS02141 *I1NS4S(I,00:16368,0:12:3:(7);"INSERT PROGRAM DISK AND PRESS RETURN";:R$K f  READ PARAMETERS D$"LOCK PARAMETERS,S"BS",D1" D$;"OPEN PARAMETERS,S"BS",D1" D$;"READ PARAMETERS" F$:SN:DN:ST0:SNBSDN1ST1 D$;"CLOSE" CX440/ CX:V1:868:X139:V1V11:40:V15  STĹ16368,0:24:1:868:(7);"INSERT DATA DISK AND PRESS RETURN";:R$:1:868:20 STĭ(R$)27ġ::470:30290  :BR0Ģ14:3:BR;" *BAD* RECORD(S) ON DATA FILE ";(7)E STZZ"+"I$"-"I$"."ĺ"";:170. "LTL1170= ,TI$TI$I$F 6I$;_ @L1L11:X1X11:340h J170w TX140420 ^X1CX:V1V11 hV125V124:CVCV1: rX1:V1 |ZLTL1:Z39CXZ40CX Z0410 (US$,Z);:X1:V1  X113(I$)21(I$)27CV0:R$I$:868:9 (I$)8260V L10R$I$:868:CV0:o L1L11:X1X11:340 I$;(US$,1);I$; L10TI$"":170 TI$(TI$,L1) 170 (I$)32(I$)34ĺ"";:170 T290 ((I$)48(I$)57)I$C"2 MOVE 05/01/81 =30000Wd GET SUBROUTINE gnL10:TI$""xCVCV(37)1:CX(36)1CX:CVV1CV:X1CXZLT:LTCX39Z40CX(US$,Z);:CX:CVI$:I$""Ĺ222,255:50010' (I$)          R%(3)6:ER%(4)8:ER%(5)9:ER%(6)10:ER%(7)20:ER%(8)255:PE$"":ER0:LN0OZ@ıZJĉ::"IRRECOVERABLE ERROR ";(222);" AT LINE ";(218)(219)256:1010,0:1011,3:64367:768,2:768H[ COPYRIGHT 1979 BY J26,BS:43624,1Yå50000'YíER20Ĭ=YíER8ST1:30260KYíZZ30170VYī30260bYĥ50000Y"ER$"WRITE PROTECTEDEND OF DATAFILE NOT FOUNDI/ODISK FULLFILE LOCKEDRESETCTRL-C"Y,ĆER%(8)IZ6ER%(1)4:ER%(2)5:E$""XÁI18>XíERER%(I)PE$(ER$,(I1)151,15):50090DXÂLXÉ:SXâ7XíPE$""ĺ"ERROR CODE = ";ER;" AT LINE ";LNXíPE$""ĺPE$;" ERROR";" AT LINE ";LNXú(7);(7);"PRESS RETURN";:16368,0:R$Yú:ER8Ĺ47095,BS16:47096,1:4368ė:12:2:"NOW RUNNING 'COMPACT/SORT DATA FILE'":D$;"RUN SORT,S"BS",D1"gW>vD$;"RUN MENU,S"BS",D1"WOò ERROR ROUTINES WPÌ54915WZù54,240:55,253:1002Wdå50040WnúD$;"CLOSE"Wxå50250Xù1528,BS16:ER(222):LN(218)(219)256:PE50!VuP30210,30220,30230,30240CVv10000:30180: ENTER RECORDSfV v11000:30180: MODIFY RECORDSVv12000:30180: DELETE RECORDSV v15000:30180: SELECTION CRITERIAV*vUSZZ0:13000: SAVE SORTS IF CHANGEDV4v830: SWITCH DISKSKW9vOSERLOOK):SET UP USR() FUNCTION)UuQ$(34)ZUuH(XX)120(XX10):V(XX)XX210(XX10)xUu20000: INPUT PARAMETERSUu810: SWITCH DISKSUu19000: READ MASTER, DIMENSION SORT ARRAYUuZZ(0):ZZ1UuA0Uu21000: SELECT OPTIONVuP0302B$(20),LB$(20),IN%(20),IN$(20,16),EX%(20),EX$(20,8),RJ%(8),RF%(8),RJ$(8)WTbuPR%(20,8)zTvuUS$(95):I17:US$US$US$:T{uZERO$"0000000000000000000"TuMOVE831TuO(XX)256((XX256)(XX256)):I(XX)(XX256)UuLOOK814:11,O(LOOK):12,I(INITIALIZATION (S0uD$(4)(13)(4)S5uBS(1528)16:UBLBFDMEETJJRCSXLEGEEQOLCVCXSUMMIV1X1LT:I$"":TI$I$:R$I$:XX$I$S6uI2III1JII3J2PSJ1YYWS:u50200SDuA$(20),L%(20),T%(20),S%(5,6),N$(20),SF%(20)SNuA1$(20)HTXuU$)1):J(UB$)1L%(S%(S,1)):UB$UB$(255):JBRT(R$)821480VRT(R$)2721150`RT20:fR$T}RU PRINTER ON? RUEP0RVDV4928016SLRVDV,128RVYY120:W(49345256SL):R"VW254EP1R,V W=254 IF STILL BUSYR6VS/u PEN";FF$;",S";SN;",D";DN+<#D$;"READ";FF$3F#NC?P#I1NCaZ#C$(I):C%(I):LN%(I):NL%(I)gd#sn#J1NC#I111#F%(I,J,0):OP%(I,J,0)#F%(I,J,0)09160#K1F%(I,J,0)#F%(I,J,K):OP%(I,J,K)#K#I#J #I4010RN":(40(B$))2:B$;(7);:R$:1:868:202b@STĹ16368,0:24:1:868::B$"INSERT DUPLICATE AND PRESS RETURN":(40(B$))2:B$;(7);:R$:1:868:20J(# READ FORMAT FILE -#13:25:868:10:25:"READING FORMAT"R:222#D$;"OCR:22#D$;"WRITE TEMP,R";RCRYJ1:(A$(RC,1),1)""ĺQ$;A$(RC,1):J2:NF26060wIJNF:Q$;A$(RC,I);Q$:D$:RCD$"WRITE TEMP,R0":RCR1D$;"CLOSE"30230,XSTĹ16368,0:24:1:868::B$"INSERT ORIGINAL AND PRESS RETU(RC,I)("*BAD*",1,L(I))::SVRC1:SVUB5070iD$"CLOSE":D$;"OPEN";DF$;",S";SN;",D";DN;",L";L:5020p WRITE DATA FILE zD$;"OPEN TEMP,L";L;",S";DS;",D";DD{10:25:868UBNDR:RNRNDUBNRRC1UB13:25:"WRITING ";RRCSVUB/10:25:"READING ";RCR:22LD$;"READ";DF$;",R";RCRdI1NF:A$(RC,I):lD$tRCD$;"CLOSE":500103021054915:(222)20(222)255Ģ22:14::"HOUSEKEEPING"::SV(0):SVRC:5120.BRBR1:I1NF:A$WRITETEMP":PN:D$;"CLOSE")NS042805I1NSiD$;"BSAVE";CF$;I;".SRT,A";SC(I);",L";(MX21)2pI{30165 READ DATA FILE D$;"OPEN";DF$;",S";SN;",D";DN;",L";L13:25:868UBNDR:RNRNDUBNR5100SV1(I);Q$:L(I):T(I)I$L:NS3NS04170?I1NSO"J0S(I,0)[,S(I,J)b6Ji@IyJD$;"CLOSE"TD$;"OPEN";CF$;".IDX"^D$;"WRITE";CF$;".IDX"hNC:NC04220rI1NC:ID$(I):|D$;"CLOSE"D$;"OPENTEMP":D$;"8000:STI:401650010ZIDĢ13:25:"INITIALIZING":22:D$"INIT HELLO,S"DS",D"DDiD$"CLOSE"}PNND:P1PN013:25:"WRITING SYSTEM":22D$;"OPEN";CF$;".MST,S";DS;",D";DDD$;"WRITE";CF$;".MST"NFI1NFQ$;N$DDN))IST:ST1:8000:STI:(R$)27EX10R WRITE MASTER AND SORTS \8000rDS6DD14020}4018D$"LOCK INFORMATION MASTER,S"BS",D1":IST:ST1:8000:STI:(R$)27EX1:301654016(222)6(222)8IST:ST1:50l (R$)133990F CV13:CX18:LT1:T1:100:TI$""DS(TI$)Z DS1DS73220j 13:18:DS| (R$)83220 CV14:CX18:LT1:T1:100:TI$""DD(TI$) DD1DD23240 14:18:DD (R$)83220 3150*(EX(DSSNDVE #"!0 13:"DUPLICATE SLOT #"9: " DRIVE #"eD 10:18:SN:18:DN:13:18:DS:18:DDN 24:2:"--> UPDATE BEGIN TRANSFER";:1:16368,0X R$:868:(R$)3Ĺ222,255:50010] (R$)27EX1:3990b (R$)21(R$)1331:(R$)27EX1:3990= ID0:"N";:R$"Y"Ė(36):"Y":ID1O (R$)83052 22:1:"IS THE ABOVE CORRECT? (Y/N) ";:R$:(R$)27EX1:3990 R$"Y"3090 R$"N"(R$)83058 3064  10:"ORIGINAL SLOT #"& " DRI040 (R$)83040. (R$)27EX1:3990; 19:CF$M (R$)83040 13:1:"COPY DATA RECORDS ALSO? (Y/N) ";:R$:(R$)27EX1:3990 P0:"Y";:R$"N"Ė(36):"N":P1 (R$)83040 15:1:"INIT DUPLICATE DISKETTE? (Y/N) ";:R$D$;"CLOSE"301203 SET UP TRANSFER ; :I DS6:DD1| 1:B$"** TRANSFER FILES **":(40(B$))2:B$ 8:1:"ORIGINAL SYSTEM: ";F$ CF$F$::"DUPLICATE SYSTEM: ";:LT19:T0:100:TI$""CF$TI$:(CF$,1)"A"(CF$,1)"Z"3SC256NS))L.5):MX1000MX1000Hh(MX20)22561SCSCSC1:2151WkNS02190bl2185npI1NSzD$;"BLOAD";F$;I;".SRT,A";SC(I)54915:50010D$"CLOSE"D$;"OPEN";DF$D$;"READ";DF$NDND1020ND1020 )>J1S(I,0)0HS(0,0):J7S(I,J)S(0,0)7RJNWS(I,0)6S(I,0)6U\Ie]D$;"CLOSE"u^CN1:2146_D$"OPEN";XF$:D$"READ";XF$:CN0`NC:NC02146aI1NC:ID$(I):b50010fD$;"CLOSE":SC2"gMX((100608(NC768)(255:500107 d(I$)1I$(XX$,L11,1):I$""I$(1)r n(I$)13(I$)21(I$)27Q0:CV0:R$I$:LTL1);: x(I$)8190 L10R$I$:LTL1);:CV0: L1L11:X1X11:300 I$;(PR$,L11,1);I$; L10TI$"":90 TI$(TI$,L1)B92 FORMAT 05/01/81 =30000W GET SUBROUTINE gL10:TI$""CVCV(37)1:CX(36)1(CX:CV2V1CV:X1CX<ZLT:LTCX39Z40CXFPR$XX$(US$,40)P(US$,Z);:CX:CV ZI$:I$""Ĺ222,                          . COX/ HIGH TECHNOLOGY ALL RIGHTS RESERVED 6ER(1)4:ER(2)5:ER(3)6:ER(4)8:ER(5)9:ER(6)10:ER(7)20:ER(8)255K)@ı)Jė:"IRRECOVERABLE ERROR ";(222);" AT LINE ";(218)(219)256:1010,0:1011,3:64367:768,2:768B* COPYRIGHT 1979 BY JAMES A43624,1(å50010$(íER20501803(íZZ30270A(ST1:470l(ĺD$"MAXFILES 1":D$"RUN MOVE,S"BS",D1"x(ĥ50010("ER$"WRITE PROTECTEDEND OF DATAFILE NOT FOUNDI/ODISK FULLFILE LOCKEDRESETCTRL-C"(,ĆER(8)E)'ÁI187'íERER(I)PE$(ER$,(I1)151,15):50090='ÂE'É:L'â7{'íPE$""ĺ"ERROR CODE = ";ER;" AT LINE ";LN'íPE$""ĺPE$;" ERROR";" AT LINE ";LN'ú(7);(7);"PRESS RETURN";:16368,0:R$(ú:ER8Ĺ47095,BS16:47096,1:43626,BS:ACE IT IN S"SN",D"DN" AND PRESS ";:R$4&Hv470\&MvCNEREXĺ:"RUN SORT,S"BS",D1"{&Rv"":"RUN MENU,S"BS",D1"&Pò ERROR ROUTINES &ZÌ54915&då50040&núD$;"CLOSE"&xå50250&ù1528,BS16:ER(222):LN(218)(219)256:PE$"" R1NC:FF$ID$(R)".FMT"4%-v7000:9000:8000:9500A%.vR:RR1%4vD$"OPEN"CF$".IDX":D$"READ"CF$".IDX":NC:D$"CLOSE":NCRĺD$"OPEN"CF$".IDX":D$"WRITE"CF$".IDX":R:D$"CLOSE"%9vST1+&>vCNEREXė:12:"REMOVE DISK FROM S"DS",D"DD" AND"::"PL0:BR0$u7000:INSERT OLD7$u5000: READ DATA FILEM$v8000:INSERT NEWi$ v6000: WRITE DATA FILE$vRRNR:RND30190$ v54915:50010$%vD$;"OPEN";DF$:D$;"CLOSE":D$;"DELETE";DF$$*vD$;"RENAME TEMP,";CF$;".DAT"$+vRNC:NC030260%,v30153-#u222,0:D$"DELETE TEMP,S"DS",D"DDM#u54915:ID(222)8ī50010l#u4000: WRITE MASTER,SORTS#uHM:NR(0)1000:NR(NRL):A$(NR,NF)#uEX1ė:30270#uP1ND030240#u30175#uD$"DELETE ";CF$;".DAT"#u54915:50010$uR13000::1:868:20:301057"u54915:(222)430106V"uIST:ST1:450:STI:30101"u44300,234:44301,234:44302,234:50010"u2000:READ MASTER,SORTS"uZZ1"u3000:SET UP TRANSFER CRITERIA"uEX1ė:30265"uST0:SNDSDNDDST1#u,NL%(15),LN%(15),C%(15),C$(15)A!uUS$(95):I17:US$US$US$:Y!u1000: READ PARAMSo!u450:INSERT DATA!u44300,32:44301,55:44302,176:30104!uD$"UNLOCK"DF$",S"SN",D"DN"u24:1:868:"WRITE PROTECT YOUR ORIGINAL IN S"SN",D"DN"";:INITIALIZATION ) 0uHM(115)(116)256D 6uBS(1528)16:IJRCRr :uSC(1)HM2048:I25:SC(I)SC(I1)2048:} DuSC(5) Nu50200 XuD$(4)(13)(4) buQ$(34) luN$(20),L(20),T(20),S(5,6) vuB$(100),F%(11,15,12),OP%(11,15,12)!{uID$(20):LN%(I):NL%(I)X%"b%J1NC.l%I111Iv%F%(I,J,0):OP%(I,J,0)_%F%(I,J,0)09640r%K1F%(I,J,0)%F%(I,J,K):OP%(I,J,K)%K%I%J%I40100:Q$;B$(I);Q$:%D$;"CLOSE"%D$;"RENAME BU>";FF$;",";FF$% /u I0:B$(I):#D$;"CLOSE" #=% WRITE FORMAT FILE j!%10:25:868:13:25:"WRITING FORMAT"R"%D$"OPEN"FF$",S"DS",D"DD:D$"DELETE"FF$&%D$;"OPEN BU>";FF$;",S";DS;",D";DD0%D$;"WRITEBU>";FF$:%NCD%I1NCN%Q$;C$(I);Q$:C%(I)1:868:4:Q$;A$(I340);Q$;:Y1NC:X111:F%(X,Y,0)01430Z1F%(X,Y,0):F%(X,Y,Z)I340ĂI3:RRTRUE:A$"TOO MANY LITERALS":X11:X:Y11:Y:Z11:Z:1470ZX:Y:24:1:868:1450NPNP1:I3NPA$(I340)L$'F%(PS,C,0)(CL$)8((CL$,I3,1))34L$(CL$,PNT,I3PNT):1340>(f2RRTRUE:A$"UNBALACED QUOTES":1470<PNTI31:L$""L$" "FNP01440PI31NPZA$(I340)L$1460dnNP601440sI31NP:A$(I340)""1450?xI3:I31NP:24:%)6:/T$"("OP%(PS,C,OP%)10:SP%SP%1:rT$")"OP%(PS,C,OP%)11:F%(PS,C,0)OP%1:SP%SP%1:O%FALSE: LITERALS O%FALSEOP%F%(PS,C,0)1L$"" PNT1(CL$)RRTRUE:A$"UNBALANCED QUOTES":1470PNTPNT1:I3PNTON ROP%F%(PS,C,0):O%TRUE:PNTPNT1:OP%(PS,C,OP%)OP%OP%1:F%(PS,C,0)OP%pT$"+"OP%(PS,C,OP%)1:T$"-"OP%(PS,C,OP%)2:T$"*"OP%(PS,C,OP%)3:T$"/"OP%(PS,C,OP%)4:T$"."OP%(PS,C,OP%)5:T$"^"OP%(PS,C,OPTPNT1 $. TOTALS ,8O%FALSEABOP%F%(PS,C,0)1]LVL((CL$,PNT1,2))20VVL21VL20NFRRTRUE:A$"ILLEGAL TOTAL FIELD":1140`F%(PS,C,0)OP%:F%(PS,C,OP%)VL:OP%(PS,C,OP%)0jPNTPNT2:VL29PNTPNT1t~ OPERATI868:: FIELDS (O%FALSEWPS11RRTRUE:A$"FIELD IN TRAILER":1060lOP%F%(PS,C,0)1VL((CL$,PNT1,2))VL1VLNFRRTRUE:A$"ILLEGAL FIELD":1060F%(PS,C,0)OP%:F%(PS,C,OP%)VL:OP%(PS,C,OP%)0PNTPNT2:VL9PNX:CL$;:868:CV:CXPNT1::(CL$,PNT,1):TA$"*** "A$" IN LINE "B$" ***"24:1:868:(40(A$))2:A$;(7);(7);:W11000:W:24:1:868RRFALSESP%0SP%0:RRTRUE:A$"UNBALANCED PARENS":920 SP%0:CL$(PS)CL$:CV:CX:CL$;:*"T$"+"T$"-"T$"/"T$"."T$"^"İ1150:890:OPERATION]pRRTRUE:A$"ILLEGAL OPERATOR"lzSP%0960RRFALSESP%6RRTRUE:A$"TOO MANY PARENS":SP%0RRFALSE760EXFALSE:B$(PS):PS11B$(C)PNT(CL$)PNT(CL$)-CV:C0:890: BREAK9H(CL$,PNT,2)"CT"İ1480:890:COL TOTWRT$"("T$")"İ1150:890WT$"#"O%FALSE:OP%F%(PS,C,0)1:F%(PS,C,0)OP%:F%(PS,C,OP%)116:OP%(PS,C,OP%)0:PNTPNT1:890\O%TRUEPNT(CL$)RRTRUE:A$"MISSING OPERAND":890;fT$"$)960?F%(PS,C,0)14RRTRUE:A$"EXPRESSION OVERFLOW":920S T$(CL$,PNT,1)T$" "CL$(CL$,1,PNT1)(CL$,PNT1,(CL$)PNT):760 (T$)34İ1250:890: QUOTE*T$"F"İ980:890: FIELDS4T$"T"İ1070:890: TOTALS>T$"B"İ153CL$(I)"^":700+CL$(I)CL$(I)"(":700ACL$(I)CL$(I)")"Q:J11540Ww PARSE/INTERPRET LINE RRFALSECL$CL$(PS):CV:CX::CL$:PNT012:OP%(PS,C,PNT)0:F%(PS,C,PNT)0:OP%(PS,C,PNT)0::PNT1:O%TRUEPNT(CL$(I)CL$(I)"T"(F%(I,C,J1)20)7XOP%(I,C,J1)0700nbOP%(I,C,J1)620,630,640,650,660,670,0,0,0,680,690lCL$(I)CL$(I)"+":700vCL$(I)CL$(I)"-":700CL$(I)CL$(I)"*":700CL$(I)CL$(I)"/":700CL$(I)CL$(I)".":700CL$(I)0CL$(I)CL$(I)"B"(F%(I,C,J1)):600S +F%(I,C,J1)115CL$(I)CL$(I)"#":600 0F%(I,C,J1)100CL$(I)CL$(I)"CT":600 :F%(I,C,J1)20CL$(I)CL$(I)"F"(F%(I,C,J1)):600 DF%(I,C,J1)40CL$(I)CL$(I)(34)A$(F%(I,C,J1))(34):600 NCLRN";:16368,0:R$ j STZZ0::12:3:(7);"INSERT PROGRAM DISK AND PRESS RETURN";:16368,0:R$p   DISASSEMBLER CL$(I)"" F%(I,C,0)0710 OP%(I,C,0)9āJ100:600 J11F%(I,C,0):F%(I,C,J1)0600( &F%(I,C,J1)X140380 6X1CX:V1V117 @V125V124:CVCV1:C JX1:V1` TZLTL1:Z39CXZ40CXm ^Z0370 h(US$,Z);:X1:V1 r |X1CX400 CX:V1:868:X139:V1V11:40:V1  STė:12:6:(7);"INSERT DATA DISK AND PRESS RETU 90 (I$)32ĺ"";:908 QĭI$Q$ĺ"";:90D T250R T3240o I$","I$":"ĺ"";:90x 250 ((I$)48(I$)57)I$"+"I$"-"I$"."ĺ"";:90 LTL190 TI$TI$I$ I$; L1L11:X1X11:300 "90 , )z.)A$ID$" FORMAT":(40(A$))2:A$\)3:5);"COLUMN HEADING";31);"POS DC PT")5);"--------------";31);"--- -----")6)I1115)2((I1)));I1;)(C$(I1)""C%(I1)1)I1NCĺ:61103*5);C$(I1);31);3((C%(I1))));J,0)(2F%(I,J,K):OP%(I,J,K)&(<K-(FI4(PJQ(ZI40100:Q$;A$(I);Q$:a(dD$;"CLOSE"t(nNWFALSE5300(xD$;"OPEN";XF$(D$;"WRITE";XF$(IDID1:ID$(ID)ID$(ID(I1ID:ID$(I):(D$;"CLOSE"()p PRINT SCREEN 1 40)"":I3?'12:A$"SAVING "ID$" FORMAT":(40(A$))2:A$R'D$;"OPEN";FF$f'D$;"WRITE";FF$n'NCz'I1NC'Q$;C$(I);Q$:C%(I):LN%(I):NL%(I)''J1NC' I111'F%(I,J,0):OP%(I,J,0)'F%(I,J,0)05190((K1F%(I,N":P2:3450:P1:5040.&R$"Y"ĺ"N":3450;&EX5010&::12:14::"HOUSEKEEPING"::I31NP:A$(I340)""ĂI3:5050&Y1NC:X111:F%(X,Y,0)0ĂX:Y:A$(I340)"":I3:5050&Z1F%(X,Y,0):F%(X,Y,Z)I340ĂI3:5050 'Z:X:Y:A$(I3EXFALSE:4110%CCIN'%C140106%CNC4110@%4050d%BKFALSE:16000: EDIT TRAILERS%BKTRUECNC:Z0:4050%"% WRITE FORMAT FILE %EXFALSE::12:"SAVE AS ";ID$;"? (Y/N) ";:R$:(R$)27ĺ:EXTRUE:&P1R$"Y"ĺ""ALREADY EXISTS"?$ 22:18:868:A$;:I1150::1:3450Z$ ID$TI$:FF$TI$".FMT"k$ NWTRUE:NP0q$ $ EDIT FORMAT $6000: PRINT SCRN1$EXFALSE:7000: EDIT SCRN1$EXTRUE4130$C1:Z0$8000:EDIT COLUMN C%EX P2((R$)8(R$)27)EXTRUE:F# (R$)8(R$)27EXTRUE:2100[# TI$""Ė1:3450}# (TI$)65(TI$)90Ė1:3450# P2NC0:I115:NL%(I)0:# ID13550# ID14A$"TOO MANY FORMATS":3540# I11ID:TI$ID$(I1)Ă:3550$ A$)03390" K1F%(I,J,0)6"* F%(I,J,K):OP%(I,J,K)r"/ F%(I,J,K)39ĭF%(I,J,K)101ĭF%(I,J,K)NPNPF%(I,J,K)y"4 K"> I"H J"R I40100:A$(I)::NP0NPNP40"f D$;"CLOSE""p 3570"z 22:"NAME OF FORMAT :";:LT22:T3:CV0:10:T0"#)1(TI$)IDĖ1:32009! ID$ID$((TI$)):FF$ID$".FMT"O! P3İ18000:2100b! D$;"OPEN";FF$u! D$;"READ";FF$}! NC! I1NC! C$(I):C%(I):LN%(I):NL%(I)! :NWFALSE:NP0! J1NC! I111! F%(I,J,0):OP%(I,J,0)" F%(I,J,0A$ 0 ID03450- : P2ID1TI$"1":32404 D 5@ N I1IDR X I;5);ID$(I)Y b Ia l :o v P13450 "ENTER NUMBER ";:LT2:CV0:T0:10 NT0:I115:C$(I)"":C%(I)0:J111:F%(J,I,0)0:: (R$)8(R$)27EXTRUE:2100! (TI$90 EXFALSE" D$;"OPEN";XF$5 D$;"READ";XF$= IDL ID03080b I1ID:ID$(I):r D$;"CLOSE" ID0(P2P3)ė:12:12:"NO FORMAT FILES":I12000::2100  & A$("CREATEMODIFYDELETE",P65,6)" FORMAT":2:(40(A$))2:::"ELETE OLD FORMAT":N\16368,0:11:1:R$:R$;:R$""Ĺ222,255:30010jf(R$)27EXTRUE:3570rp22zR$"C"P1:3000R$"M"P2:3000R$"D"P3:3000(8);" ";:2140 INPUT FORMAT FILE  EXTRUEEXFALSE:30D$;"LOCK";MF$;",S";SN;",D";DN@D$;"OPEN";MF$;",S";SN;",D";DNSD$;"READ";MF$[NFgI1NFz N$(I):TP:TPI D$;"CLOSE"*4:9>13::"C";::"REATE NEW FORMAT":H13::"M";::"ODIFY OLD FORMAT":R13::"D";RAMETERS -qD$"LOCK PARAMETERS,S"BS",D1"PvD$;"OPEN PARAMETERS,S"BS",D1"jD$;"READ PARAMETERS"F$:SN:DN:SL:SP:LP:SW:DP:ST0:SNBSDN1ST1D$;"CLOSE"MF$F$".MST"XF$F$".IDX" READ MASTER FILE LSE0PS11RRTRUE:A$"BREAK INVALID":1610EOP%F%(PS,C,0)1_"VL((CL$,PNT1,2)),VL1VLNFRRTRUE:A$"ILLEGAL BREAK FIELD":16106F%(PS,C,0)OP%:F%(PS,C,OP%)VL:OP%(PS,C,OP%)0@PNTPNT2:VL9PNTPNT1J l READ PAOP%:F%(PS,C,OP%)40I3:OP%(PS,C,OP%)0-E COLUMN TOTAL cO%FALSE:OP%F%(PS,C,0)1PS11RRTRUE:A$"COL TOTAL INVALID":VLC100F%(PS,C,0)OP%:F%(PS,C,OP%)VL:OP%(PS,C,OP%)0:PNTPNT2: SUBTOTAL BREAK O%FA,4090,4100$"=";:4110+$"<>";:4110;$"<";:4110K$">";:4110\$"<=";:4110g$">=";o$16$(RJ$(PS),23);$"$ GET REJ LINE $EX0$15PS:3$8);:3:LT2:T1:10$A(TI$)%A0PSRJTI$""(R$)13E(J1):3450)#\ LB$(RF%(J1))RJ$(J1):3450H#f UB$(RF%(J1))RJ$(J1):3290g#p LB$(RF%(J1))RJ$(J1):3290o#z J1u# # PRINT REJ LINE #15PS:3:868:RF%(PS)0ı#(N$(RF%(PS)),8);:12#RJ%(PS)04110 $RJ%(PS)4050,4060,4070,4080$(RF%(J1),EX%(RF%(J1))),2,(EX$(RF%(J1),EX%(RF%(J1))))1):PR%(RF%(J1),EX%(RF%(J1)))2PR%(RF%(J1),EX%(RF%(J1)))PR%(RF%(J1),EX%(RF%(J1)))2"4 HH1(RJ$(J1)):(RJ$(J1),HH,1)"="HH100:PR%(RF%(J1),EX%(RF%(J1)))4"> HH"H 3450 #R UB$(RF%(J1))RJ$))1):3350! EX%(RF%(J1))EX%(RF%(J1))1:PR%(RF%(J1),EX%(RF%(J1)))0:EX$(RF%(J1),EX%(RF%(J1)))RJ$(J1):(RJ$(J1),1)"+"PR%(RF%(J1),EX%(RF%(J1)))1:EX$(RF%(J1),EX%(RF%(J1)))(RJ$(J1),1,(RJ$(J1))1)"* (RJ$(J1),1)"+"EX$(RF%(J1),EX%(RF%(J1)))(EX$(RF%(J1),IN%(RF%(J1))))1):PR%(RF%(J1),IN%(RF%(J1)))2PR%(RF%(J1),IN%(RF%(J1)))PR%(RF%(J1),IN%(RF%(J1)))2 HH1(RJ$(J1)):(RJ$(J1),HH,1)"="HH100:PR%(RF%(J1),IN%(RF%(J1)))4  HH 3450 ! (RJ$(J1),1)"="RJ$(J1)(RJ$(J1),1,(RJ$(J1N%(RF%(J1))1:PR%(RF%(J1),IN%(RF%(J1)))0:IN$(RF%(J1),IN%(RF%(J1)))RJ$(J1):(RJ$(J1),1)"+"PR%(RF%(J1),IN%(RF%(J1)))1:IN$(RF%(J1),IN%(RF%(J1)))(RJ$(J1),1,(RJ$(J1))1)n (RJ$(J1),1)"+"IN$(RF%(J1),IN%(RF%(J1)))(IN$(RF%(J1),IN%(RF%(J1))),2,(IN0:3100$ PSPS1:PS8PS13100. 3180> RJ0E1:w J1120:LB$(J1)"":UB$(J1)"":EX%(J1)0:IN%(J1)0: J11RJ RJ%(J1)3290,3350,3410,3420,3430,3440 (RJ$(J1),1)"="RJ$(J1)(RJ$(J1),1,(RJ$(J1))1):3290 IN%(RF%(J1))I3250pN R$"D"RJ0:I17:RF%(I)0:RJ%(I)0:RJ$(I)""::I1NF:UB$(I)"":LB$(I)"":IN%(I)0:EX%(I)0::3090yX OT0b PS1l 5000v (R$)8PSPS2:3230 RF%(PS)0RJPSRJRJ1:PSPS1:PS13100 RF%(PS)0PSRJRJPS EX1EXD";11);"REL";16);"TEST QUANTITY"4 :I17:I:H PS17:4000:S 24:2& "--> = UPD, D = DEL, = END";:1:R$:R$""Ĺ222,255:500100 (R$)27EXTRUE:5 (R$)8NSġ:30350: (R$)13(R$)21R$"D"3100D (R$)13(R$)8Ģ(37)2:22303(R$)27EXTRUE:V D$;"BLOAD";F$;S;".SRT,A";(0)\  DEFINE SELECTION CRITERIA  E0 OT1 :16368,0 A$"ENTERING SELECTION CRITERIA":(40(A$))2.5:A$ 6000 14:1" 3);"FIEL10:LB$TI$:::(LB$,1)"+"LB$(LB$,1,(LB$)1)F(R$)82020^(R$)27EXTRUE:"ENDING WITH ";:TT%(S%(S,1)):LTL%(S%(S,1)):LT20LT2010:UB$TI$::(UB$,1)"+"UB$(UB$,1,(UB$)1):J(UB$)1L%(S%(S,1)):UB$UB$(255):J%f14:"SORT NUMBER ";:LT2:T0:107p(R$)82020Oz(R$)27EXTRUE:iTI$""TI$"1":TI$;DS0:(TI$)0DS1S((TI$)):SNS2150SNS0::15:958"STARTING WITH ";:TT%(S%(S,1)):LTL%(S%(S,1)):LT20LT204A$TI$:" CHOOSE SORT <LB$"":UB$"":NS0ıBf18:"SORTS"::" DESCRIPTION"lxI1NS I;:7:33,35:32,5:(37):J1S%(I,0) J1ĺ" BY ";*(N$(S%(I,J)),12);4>32,0:33,40HR\:40100:(A$(I),1)"&"A$A$(I):1410:A$(I)A$:z:::I(A$)3ıeLT((A$,2,2)):LT1ıK(37)14:24:J1K:::17:K2:J(A$)1JJ((LT)):KK((LT)):(A$,K,J);"? ";T0:10:(R$)27EXTRUE::::(R$)131440 LNL%(J)(CT%(J)Ă:72I110:F%(I,J,0)01360<K1F%(I,J,0):F%(I,J,K)0F%(I,J,K)21:T%(F%(I,J,K))2CT%(J)2FKPIZJdx:10:"PRINT-TIME VARIABLES":34,3:17:I1NC:(C$(I),1)"&"A$C$(I):1410:C$(I)A$.y:IER WIDTH TOO SMALL"::12:(40(A$))2.5:A$;(7);(7):W11000:W:54915:30450C%(NC)39SLĺ:"PRINTER OR CRT MONITOR? (P/C) ";:16368,0:R$:"P";:R$"C"Ė31:"C";:PW39:SL0:LF$(13):I17:LF$LF$LF$::LP24:PP0:J1NC:NLNL%(J)NSN:ID$F$:YN$"NO YES"84*v13::"PLEASE STAND BY":18R44v500:READ PARAMETERSi4>v370:SWITCH DISKS4Hv600:READ MASTER4RvID0ND0303304\vND0A$"NO DATA IN DATA FILE"4fvID0A$"NO FORMAT FILES DEFINED"(5pv:12:(40(A$))2.5:A$,I(LOOK):SET UP USR() FUNCTIONK3uID$(20),NL%(15),LN%(15),C%(15),C$(15)|3vH(XX)120(XX10):V(XX)XX210(XX10)3 v13::"PLEASE STAND BY";3vF$"":SN0:DNSN:STSN:SLSN:PPSN:LPSN:PWSN:MF$F$:DF$F$:XF$F$4 vLSN:NSSN:NFSN:IDSN:TUCT%(16)%2u13::"PLEASE STAND BY";=2uFALSE0:TRUEFALSEM2uP%(1023,0)2uUB$(20),LB$(20),IN%(20),IN$(20,16),EX%(20),EX$(20,8),RJ%(8),RF%(8),RJ$(8)2uPR%(20,8)2uO(XX)256((XX256)(XX256)):I(XX)(XX256) 3uLOOK814:11,O(LOOK):12:CVSN:CXSN:XX$F$:V1SN:ZSNP1vuFIIHHJJYYWPSJ1:PR$(15),M$(12),DL%(12)s1uUS$(95):I17:US$US$US$:1uSP$" ":I17:SP$SP$SP$:1uF%SN:Y$F$:LTSN:NG%F%:XX%F%1uN$(20),L%(20),T%(20),S%(5,6)2uA$(116),A1$(20),GT$(21),CT$(15),4):(16384)127ľR$:(R$)2730470G0Nu23:13::"PLEASE STAND BY";0XuF%(11,15,15),OP%(11,15,15),FLAG%(21,20),SK%(5),SK$(5),SD%(5)0buISN:I1SN:I2SN:I3SN:I4SN:JSN:KSN:NSN:QSN:CTSN:F1SN:LYSN:SP%SN1luL1SN:X1SN:I$F$:TI$F$:R$F$:LTSN(R$)277190/8(R$)87370:/BFLAG%(21,0)NL7190s/LCV14:CX36:LT1:T0:CV:CX:868:10:TI$"N"PB0/VTI$"Y"PB1/`CX:(YN$,(PB3)1,3):(R$)87450/j7190/0u INITIALIZATION /:u50230%0DuBS(1528)16:D$(4)(13)(ML7450X.CV10:CX36:LT4:T1:CV:CX:868:10:TI$""MP(((TI$))):MP1MP1y.CX:868:MP:(R$)277190.(R$)87370.ML7190.CV12:CX36:LT1:T0:CV:CX:868:10:TI$"N"SO0.$TI$"Y"SO1 /.CX:(YN$,(SO3)1,3)::CX36:LT1:T0:CV:CX:868:10:TI$"N"TU0I-TI$"Y"TU1:XX%255s-CX:(YN$,(TU3)1,3):(R$)277190-(R$)87260-CV8:CX36:LT3:T1:CV:CX:868:10:TI$""SP(((TI$)))-CX:868:SP:(R$)277190-(R$)87330 .1:NBIC5,,RI11NC:C%(I1)C%(I1)IC::I,\MLC%(NC)7PWNL7320,fCV4:CX36:LT1:T0:CV:CX:868:10:(R$)87270,pTI$"N"NB0,zTI$"S"NB1,TI$"R"NB2,CX:("NO SEQREC",(NB3)1,3):(R$)277190,SL7190/-CV6)+22:" PRESS RETURN WHEN READY TO PRINT"::" --> = UPD OPTIONS <-- = CHG HEADING";:1:16368,0:R$:21::958:R$""Ĺ222,255:50010+ (R$)8ė:7020+*(R$)217260+4(R$)27EXTRUE:+>(R$)137190 ,H:FLAG%(21,0)0:IC3):8:"NBR OF BLANK LINES BETWEEN RECORDS ";SPe*MLĢ10:"NBR OF TIMES TO PRINT EACH RECORD ";MP*MLĢ12:"PAUSE AT END OF EACH PAGE (Y/N) ";(YN$,(SO3)1,3)+ FLAG%(21,0)ĭMLNLĢ14:"START A NEW PAGE ON BREAK (Y/N) ";(YN$,(PB3)1,30:NB0:PH$""2)MLPH$TI$" PAGE ":PG0:MP1H)(R$)8ġ:30370c):14:"PRINT OPTIONS")NLMLĭC%(NC)6PWĢ4:"NUMBER RECORDS (N/S/R)";:36:("NO SEQREC",(NB3)1,3))SL7190/*6:"DISABLE TRUNCATION (Y/N)";:36:(YN$,(TU3)1,:1O(vPH$XX$:14:"PAGE HEADING"::::LTPW12:T0:10:(R$)27EXTRUE:(TI$""TI$PH$:TI$""Ģ4::958:33,39:PH$::W1500:(TI$"NH"TI$""(MLFALSE:TI$"NP"MLTRUE(TI$"ML"ML2(MLNLĺ(7):7010 )MLSO0:PB'p PRINT FIELDS $'zI11208'V(I1):H(I1)^'2((I1)));I1;" ";(N$(I1),16)d'j''X GET ADDITIONAL INFO 'b:TU0:NB0:SP0:MP1:SO0:PB0:XX$" ":SLFLAG%(21,0)PB1(l(PH$)7XX$(PH$,(PH$)7):13::33,39:XX$:5190&TI$"<"B3:51902&TI$">"B4:5190J&(TI$"<="B5:5190b&2TI$">="B6:5190r&<4000:5100&FRJ%(PS)B:4000&P16:LTL%(RF%(PS)):LT23LT23&ZTT%(RF%(PS)):10:TI$""RJ$(PS)TI$&d(R$)13TI$""EX1&n4000&xX1:6%TI$""A0RF%(PS)A:RJ%(PS)0:RJ$(PS)""b%RF%(PS)0PSRJRJ%(PS)0:RJ$(PS)"":%RF%(PS)1RF%(PS)NFĖ3:5030%4000%12:2);:12:LT2:T0:10%TI$""RJ%(PS)0BRJ%(PS):5190%TI$"="B1:5190& TI$"<>"B2: