' +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#EENS", "NA","SCROLL UP TO NEXT TARGET FIELD"s" "SCROLL DOWN TO PREVIOUS TARGET FIELD", "LIST FIELD NAMES", "NA"^#X1TF:O%(X)1:F%(X)0:E$(X)"":C$(X)""::::1:"SOURCE";:23:"INTO";:28:"TARGET":A140:"-";:::34,3:21:"(RETURN)ACCEPT (RANSFER INTO TARGET FIELD", "TRANSFER NOTHING INTO TARGET FIELD"," "INCREMENT SOURCE FIELD NUMBER(S) (WILL WRAPAROUND)", "DECREMENT SOURCE FIELD NUMBER(S) (WILL WRAPAROUND)", "PROCESS DATAFILE", "RESTART RECONFIGURE", "RETURN TO MENU", "THIS SET OF SCRHS$ HNHN1:(37)13189- HN15185Y 1:19:"PRESS (RETURN) ";Z$:HN15ė:@!184: "TRANSFER SOURCE FIELD INTO TARGET FIELD", "CONCATENATE ONE SOURCE FIELD ONTO THE END OF ANOTHER AND TRANSFER INTO TARGET FIELD", "SPLIT SOURCE FIELD AND T$(TB);:29:Z$:M(Z$):M27ė:2454M13ė:223BM32176cMM128:28:868:29:(M);}30:Z$:(Z$)27176(Z$)13180E$(TB)(M)::26:223HN1:HS1HN:HN$::HS115:HS$::HS$"NA"187 "("HN$") = "":L$"9":O9L$(O)'10:J1157NJ0E$(TB)((M10)N):26::223\J16169O(Z$):H:Z$;:HH1:K$"1":L$"0"10:J1157J0173E$(TB)((M100)(N10)O):26::223#1:19:868:"ENTER CHARACTER TO SPLIT AT "E223J16159OM(Z$):H:Z$;:HH1:NFL(M10):N0K$"1":L$"0":164nK$"0":L$"9":N9L$(N)10:J1157J0E$(TB)(M):26::223J16164N(Z$):H:Z$;:HH1:OFL((M100)(N10)):O0K$"1":L$"0":169K$"0TTF87137%96:17:1362TTF87;142P96:17:21:141FL(SF%(F%(TB)1)SF%(F%(TB)))1:K$"1":L$"9":FL9L$(FL)1:19:868:"SELECT SPLIT POSITION (1-"FL")"E$(TB):V19:H27((FL))10:J1ė:245J0ė:53,137)E$(TB)((M10)(Z$)):26:212H17Q10:J1E$(TB)(P):131^J0223J206,142,244,83,137,137,154,221,222,137,137,137,137,156,13713774:26:21:13177:26:21:131TTF8713296:17:21:131 10:J1232J0223_J206,132,244,83,146,147,148,221,222,132,132,132,132,150,132M(Z$):P(E$(TB)):E$(TB)(M):2621:H17:5710:J1E$(TB)(P):131J0223J206,137,244,83,137,137,151,221,222,137,137,137,137,1J0ıHxJ118,118,118,118,118,118,128,130,222,118,118,118,118,118,118hyF%(TB)(M10)(Z$):26:21z10:J1F%(TB)P:{J0ı|J7ĭTTFġ:87}J8ġ:221~J9222122TFTġ:87118::193V9:H17:55P1:(((XSF)(XTF))(P17))98Yp1:19:"PRESS (RETURN) ";Z$:((XSF)(XTF))ė:aq97rM(Z$):PF%(TB):O%(TB)1198sF%(TB)M:26:21:57:O%(TB)1H11:118t((O%(TB)2)(O%(TB)7))H14:118uH10v10:J1F%(TB)P:w fC1104gC$C$(C)DhK(C$):(SH$(X),1,17K);::C$;:Vi28:XTF111jC$" ":C(TF%(X1)TF%(X))1:K(TH$(X)):K2108k((TH$(X),K,1)" ")C$C$"J"lC1110mC$C$(C)nK(C$):(TH$(X),1,13K);::C$;:#oXX1:P1:CTCM1:FM1MRCM1!x109ZyX1NC:M$(0,X)M$(CT,X)::GA%:FM1MR1:RR1:96nzMRMS:RR1:96{Z$N$:DQ1:125|D$"BLOAD"Z$",D"DQ:D$"CLOSE":216,0:129}216,0:D$"CLOSE":FX%:(222)13129~128D$"OPEN"Z$:D$"READ"3RC&kCMCM1:((RR1)(D22))1184lCMMR19amR(RCCM)1:WMMRCM:FO1RR1:WMWM1tn70:NA0117oCMCM1:CM0109p72:NA16qFO1121rFL16sFM1FM0:MRMSt19uRCR1:72:6vCMCM1:CM196wFOING"::D$"INIT HELLO,D1":D$"DELETE HELLO":CR%,N$,D1:D22:FO0:107RdFO16ceRCD3:72:6fLL%0:X1NC:LL%LL%CL%(X)::FZ(0)8600:FZ1FZ0gMR(FZLL%)1:MR1MR1hMR1500MR1500iMSMR:CM0:M$(MR,NC):jRCR:RCR1D INITIALIZE":13:"A SECOND DISK":5:"IN ORDER TO STORE RECORD ";::R:::10:"INSERT A BLANK DISK":14:"INTO DRIVE ";::"1"::8:"PRESS (I) TO INITIALIZE":4:"OR (RETURN) TO RETURN TO MENU ";Z$aZ$""100bZ$"I"96Ec:14::"INITIALIZ1:273:G0300..6./G$TRG$:F2:D1:273:G0ıH.0B6:284:303k.1G$"RBACK":F0:D1:273:G0ı}.2B1:284:3058305:9:"PLEASE INSERT":((40((SRC$)6))2):SRC$" VOL 1":14:"INTO DRIVE ";::"2"::10:"AND PRESS (RETURN)";Z$:MO10ı-&292-'MO298,301,303,298,298-(305-)B2:284-*G$SRC$:F2:D1:273:G0297-+-,B5:284.-G$TRG$:F1:DH$"TARGET DISK VOL 1":291;, H$"TARGET DISK VOL 2":291U,!H$TRG$" VOL 1":291j,"H$TRG$" VOL 2",#13:"PLEASE INSERT":((40(H$))2):H$:14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN)";Z$:,$G$SRC$:F1:D2:273:G0295|-%:13+280<+G1:D$"OPEN"G$",D"D:D$"READ"G$:Z$:D$"CLOSE"N+216,0:F2ıX+G0:o+216,0:768:F1ıy+G0:+216,0:768:(222)13275+G1:+:9:B285,286,287,288,289,290+H$"UTILITY DISK":291+H$SRC$" VOL 2":291,67$*I1TF:O%(I)1:F%(I)I::87*:292:TCTCWL%(0):RC%,SRC$,TRG$,SL,TL,SC,TC,SR,TR,SF,TF,SS,TS,SD,TD,SV(1,0),TV(1,0),SV(2,0),TV(2,0),SV(1,1),TV(1,1),SV(2,1),TV(2,1),SF%(1),TF%(1),WL%(0):*282*G0:D$"BLOAD"G$",D"D:216,0*F0278)(TE1)))271)F12264,)SFTF193n):3:10:"IS THIS A STRAIGHT TRANSFER (Y/N)";Z$:Z$"Y"193w)271)I1:J1:KFI(J)) IK269) O%(I)1:F%(I)I(J1)) II1:ITF265) 87) O%(I)0:JJ1:JTEKFI(J):267*K0:23,80,81,254,221,222,253,248,248,248,256,248m(114:J0ĴO%(TB)193,193,157,176,157,176,193,157,176,157,176v(245(183:246(TTF87(248(96:17:247(DB1ĹBU,255(O%(TF),F%(TF),E$(TF),C$(TF):F11271)((F12)((EF$"Y":J0131'230$'183:17:2315'68:74:230B'TTF87K'233\'96:17:232m'71:77:230w'61:'26'55:17'21:V9:H10'10:J1244'J0ĴO%(TB)193,193,157,176,157,176,193,157,176,157,176+(J206,226,248,8868:"PUT A SPACE BETWEEN THE FIELDS (Y/N)";:Z$:Z$;:Z$"N"230T&Z$"Y"227a&O%(TB)7r&1:868:26z&55&21:V9:H14&10:J1O%(TB)1:196&J0131&J206,233,244,83,239,243,240,221,222,238,233,233,233,242,233 '1140223%207%TTF87%%209-%96:%17:208G%68:207U%183:217b%71:207m%:193%:::D$"RUN MENU,D1"%TBTTBTB1:196%TTFĢ3:11::"READY TO PROCESS!";::197%TT1:195%O%(TB)2:26:21C&1:19:,204,198,92,94,203,198($114:J02231$196>$96:197L$183:197^$O%(TB)1198k$O%(TB)1s$26$V9:H11:55:21$10:J1O%(TB)1:196$J0223$J209,226,244,83,218,220,214,221,222,219,209,209,209,216,209%114:JT)RANSFER (C)ONCAT":"(S)PLIT (N)ULL (+)INC (-)DEC (P)ROCESS":"(R)ESTART (Q)UIT (?)HELP (U)P"#"(D)OWN (F)IELDS (ESC)BACKUP";:35,20:T1:S1#TBT#26#17:21:H1:V9:55#10:J1198#J0223$J205,226,244,82,84,85,86,221,2220:169:178%C%:"ERROR READING .V FILE!":X14000::1151:156:E0E1:164:171 $O$B$"LIST":B0:C1:156:E0E0:164:173U$$:"ERROR READING .V FILE!":X14000::109$B$N$:B1:C2:156:E0E3:164:176$1:162:E0E1:169:176$ %B$"LIST":B0:C1:162:E0E6,167,168,169+#I$"REPORT DISK":F1:170J#I$"UTILITY DISK":F1:170f#I$N$" VOL 2":F1:170#I$N$" VOL 1":F2:170#I$"FORMAT DISK":F2#((40(I$))2):I$:14:"INTO DRIVE ";::F::10:"AND PRESS (RETURN)";Z$:$B$"S":B0:C:C1:156:E0E2:164:1536"G$F$:H$N$:V31:57I"61:N$F$:109i"DVC:OP%,B$,DV:OP%0162"RE%,B$,Z$:CL%,B$:RE%0160"B1E0:"E1:"B2E0:"E1:"OP%13E0:"E1: #::9:13:"PLEASE INSERT":E16%0149!33:EO0175!V32:G$F$:H$N$:57:G$F$".V":H$N$".V":57:G$F$".P":H$N$".P":57:G$F$".PW":H$N$".PW":57:G$F$".I":H$N$".I":57:G$F$".S":H$N$".S":57:P(F$):868,P:CN1P:868CN,((F$,CN,1))::D22155"B$N$:B2".I FILE IS NOT OK!"::15:"REWRITING!":56:109\ :"ENTER NEW FILE NAME"::VX(37)1 KE%,1,F$,25:TR%,F$:KE%1ĢVX:147 AV((F$,1)):((AV40)(AV91))150 :12::"ILLEGAL FILENAME"::AV1200::VX:958:147!SS%,",",F$:SSD3P1RCP1:136!D3P?PD0:V12:V21:PP1:132e((DT2)(D3(P1)))RCP1:136:"ABLE TO SALVAGE ONE VOLUME!":135:12:"CHECKING .I FILE":33:D1RC:B%(D)0::48:EO0ĺ:13:".I FILE IS OK":P14000::1092 :11:1:156:E0E2:164:131(PRC136W"VERIFYING RECORD "P:37:EO0PP1:132eD22137wRCP1:D3P1"ABLE TO READ ";::RC;::" RECORDS":P14000::D$"CLOSE":36:109DTPD:V11:V22:PD0:37:EO1142DT1D3P1:1411:PNC119yEO11158zRLCL(NC)NC:E$"Y"129H{D2127,128|"HOW MANY VOLUMES ARE THERE";Z$:D20:Z$""D2(Z$)}D2129,130~1:(37):868:124D22:130D21D21D3RC:130P1:PD0:D21132B$N$:B2:Cr::"LAST RECORD - VOLUME 1 = "D3::"VERIFY-THIS IS A "D2" VOLUME FILE (Y/N)";:E$:NC0118s:".V FILE IS IRREPAIRABLE!":X14000:tB$"TDF":B0:C1:156:E0İ164:116u:867,254:vP1:RL0:EO0wRCL(P):RRLEO1 xRLR:PP:12:"SELECT (1-4)";Z$:P0:Z$""P(Z$)BnP112,144,146,116Ko109p33:V12:V21::"FIELD COUNT = "NC::"RECORD COUNT = "RC::"MAX RECORDS = "RR::34,6:P1NC:"OFFSET FOR FIELD "P" = "CL(P):(37)21114q24:"PRESS (RETURN)";Z$:`E1)(Y1):CA$(LN1)CA$(LN)::GA%:924hXY92<i93Lj176:::2fk108:D$;"RUN QED,D1"l:12:11)"":+m::8:"1. REPAIR VARIABLE (.V) FILE":"2. REPAIR INDEX (.I) FILE":"3. RENAME ";::N$::"4. RETURN TO MENU"::::"SELECT (1-"LN2")";:" ";KE$:KE0:KE$""KE(KE$)Y`((KE1)(KE(LN2)))104haKELN104xbKELN189cKELN278d:"DELETE "CA$(KEE);:" (Y/N) ";KE$:KE$"Y"92eDE%,CA$(KEE),DZ:YY1:Y192fKEEY192(gLN(KECA$(X),8)[\X1E]LN1::11:"* DELETE FORMAT *"::Y195^LN". "CA$(X):EXLN:LNLN1:XX1:((LN14)(XY))94;_LN". ";::"CONTINUE WITH MORE FORMATS"::LN1". ";::"CATALOG ANOTHER DISK"::LN2". ";::"RETURN TO FORMAT SELECT"QX82,83,84,85,86,87,1060RSU$".P-F":88CSSU$".M-F":88VTSU$".CIF":88iUSU$".COF":88}VSU$".FLTR":88WSU$"-U"XDZ2YE4:164:CA%,CA$(0),DZ:GA%:Y0:CA%192 ZX1CA%:TR%,CA$(X):SS%,SU$,CA$(X):SS%YY1:CA$(Y)(Z$:ZZ$:D$"CLOSE":216,0:129;216,0:D$"CLOSE":FX%::13:9:"PLEASE INSERT":LQ(Z$)6:((40LQ)2)::Z$;::" VOL ";::"2":::14:"INTO DRIVE ";::DQ::10:"AND PRESS (RETURN) ";Z$:123 "PRESS (RETURN) ";Z$:OC1OC0::-\:909]:7:54^"PLEASE INSERT A BLANK DISK":14:"INTO DRIVE ";::"2"::10:"AND PRESS (RETURN) ";Z$::7:"THIS WILL DESTROY ALL DATA":15:"ON DRIVE ";::"2":::8:"PRESS (I) TO INITIALIZE":10:"PRESS)"* LEVEL SORT *":X140:"-";::34,3::0 #"(ER)" OCCURED IN LINE #"(LN):CQ$"PLEASE NOTIFY PROGRAMMER!":64:\XER(222):87YY1(RC2):SS%(RCY1):S%(RCY1)S%(Y):S%(Y)S::Z::12)"* LEVEL SORT *":X140:"-";::34,3::1):S%(RCY1)S%(Y):S%(Y)S::+U::12);"BRUN QSORT/DATE/MERGE,D1":IA$"":88>Q24:X110:::RFX%:84:CP$"UNABLE TO READ DRIVE #1":CQ$"PLEASE CORRECT THE PROBLEM":64:65:AB79S"ANOTHER DAMN ";:TER(222):ER6ıUER8ıVJWLN(218)((219)256):CP$"ERROR PRESS 'RTN'";:Z$M:D$"OPEN"N$".V,D"D1",L"VL:D$"READ"N$".V,R0":NC,RC,RR:CL(NC):X1NC:CL(X)::D$"READ"N$".V,R1":D2,D3:CL$:D22CP$"PLACE VOLUME #2 DATA DISK":CQ$"IN DRIVE #1":64:65NO:12:10)"< LOADING DRIVERS >":82(P(4JSB$(25)73!K20:958:LD$(4):VL498:D1(864):P$((865)):P1$((866)):S$((867)):I(868):X869I868:N$N$((X))::RF$D$"READ"N$",R":OF$D$"OPEN"N$",L":CL$D$"CLOSE":D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN(TC)X :58AGA%::58AE1162$AJ1BMA%,DT$,K$(AJ):MA%158nTCTC1:R%(TC)MA%:AJMA%1:AJRC159v58X1RC:SS%,DT$,K$(X):AE2ĭSS%1TCTC1:R%(TC)XAE3ĭSS%0TCTC1:R%(TC)X:58EC)X AE3ĭSS%0TCTC1:R%SEARCHING *"::YAGAH0:AI0:157ACL%(Y)ADAH1:AI0:152TAH1:AI1:AGYF1Y:F2Y:R1RC:49:GA%:AE1ĭQ$(Y)DT$TCTC1:R%(TC)RSS%,DT$,Q$(Y):AE2ĭSS%1TCTC1:R%(TC)RAE3ĭSS%0TCTC1:R%(TC)RAI1K$(R)Q$(Y) ABLL7500:AD(0)AB:RC1AD(ADRC)8AD0AD0JK$(RC1):18:8:11:"SELECT SEARCH TYPE"::13:"1. FULL":13:"2. PARTIAL":13:"3. SUBSTRING":13:"SELECT (1-3) ";Z$:AE0:Z$""AE(Z$)((AE1)(AE3))147#:10:13::"* FX%:(222)13143142ZD$"OPEN"N$",D1":D$"READ"N$:Z$:D$"CLOSE":216,0:143w216,0:D$"CLOSE":FX%::13:9:"PLEASE INSERT":((40((N$)6))2)::N$;::" VOL 2":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:137)(H$(QF),1,QL);:((QL2)((H$(QF),1)" "))ĺ:132E38:"(J)"W(37)2013523:"PRESS (RETURN) ";Z$:QFNCĹ34,(34)2:QFQF1:QFNC129133139D$"BLOAD"N$",D1":D$"CLOSE":216,0:143216,0:D$"CLOSE":059 |19)}(TC(SVFV)1)RC1127N~XFVSV:TCTC1:R%(TC)X::121(37):6:958:"ONLY "RC" SELECTIONS ALLOWED!":X12000::107:"FIELD# LENGTH NAME":34,(34)2:QF1:QF;:8:"("CL%(QF)")";:15:QL(H$(QF)):QL22QL226L1)IL1075sZ1$(Z$,SL2):SV(Z1$):Z1$"0"118Ot((SV1)(SVRC))107cu(SV)Z1$107svFVSV125w(TC(FVSV)1)RC1127xXSVFV:TCTC1:R%(TC)X:yTCRC1104z:10:"ALL CORRECT (Y/N) ";Z$:Z$"Y"103{34,2:TC";:" ";Z$:((Z$"")(TC0))1220iZ$""1089j123Rk(37):1:958:104zlIL(Z$):FV(Z$):Z$"0"SV0:120m(Z$,1)"0"112n((FV1)(FVRC))107o(FV)Z$SVFV:120pSL((FV)):SLIL107q(Z$,SL1,1)"-"107 r(ScSCSC1:SCTC604dX1TC:R%(X)0::TC0:19e22:1:958:9:"NO RECORDS TO PROCESS!":12:"PRESS (RETURN) ";Z$:19f:SQ0:9:"SELECT RECORDS (0-"RC")":1:"PRESS (RETURN) TO TERMINATE SELECTION":34,6gTC0: h7:TC1;:11:" --->PP1:120!F%FL:105:1315A$(DN%(FL))XX$=:JKE%1:L'RTN'";:X$::CA%,CA$(0),D1:CA%0123|F0:CA%127}:" PLEASE SELECT ONE OF THE FOLLOWING":" CUSTOM INPUT FORMATS:":I1CA%:SS%,".CIF",CA$(I):SS%FF1:CA$()0131kyDX%(FL):DY%(FL):XX$"":KE%,1,XX$,CL%(DN%(FL));:TR%,XX$:KE%130,130,122,132,125,127,129,132zF%FL:105:FLFL1:FL1FL1{DN%(FL)0PP1:FLFL1:120|121}106:FL1P1:117~PP1:FLFL1:120109:DN%(FL)1ı FFNF%:F%F:DN%(F%)0115/pDN%(F%)0115>qP%Pİ105Jr:EF%0PsVtuP1:99:110:FL1NF%:DN%(FL)0PP1::99:110:DN%(FL1)0131:24:1:"HIT ANY KEY TO CONTINUE...";:XX$:131vDN%(FL)0ıw121x:99:110:DN%(FL:SX%(F%)0103!f104::EF%0'gIhSX%(F%):SY%(F%):SK$(F%);:niDX%(F%):DY%(F%):A$(DN%(F%)):zjFL1ıkFLFL1:DN%(FL)0106lmQQ%0:MA%,QQ%,DN%(FL):FLMA%:nF1:P1111:QQ%0:Q1P1:MA%,QQ%,DN%(F):FMA%1:oLQ(Z$)6/_((40LQ)2)::Z$;::MQ197E`" VOL ";::DZ:a:14:"INTO DRIVE ";::DQ::10:"AND PRESS (RETURN) ";X$:MQ1MQ0:b85cEF%1:P%1:F1:NK%103dP1101:QQ%0:Q1P1:MA%,QQ%,SX%(F):FMA%1:eFFNK%:F%F U876VD$"BLOAD"Z$",D"DQ:D$"CLOSE":216,0:93`W216,0:D$"CLOSE":FX%:(222)1393iX91YD$"OPEN"Z$:D$"READ"Z$:ZZ$:D$"CLOSE":216,0:DQ193Z[216,0:D$"CLOSE":FX%:DQ293\]:13:9:"PLEASE INSERT":MQ195 ^2 MODE (H)ELP THIS PAGE":" NOTE: YOU CANNOT MOVE A FIELD TO A":9)"DIFFERENT PAGE. TO DO THIS YOU":9)"MUST DELETE IT AND RE-ADD IT ON":9)"THE NEW PAGE.":134:24:1:"HIT ANY KEY TO CONTINUE";:XX$:23::2:23::PAGE BACKWARDS AND FORWARDS"::"(H)ELP"14)"THIS PAGE OF INFO":134:+:4:" THE FOLLOWING KEYS HAVE THE FOLLOWING FUNCTIONS WHILE MOVING A FIELD AROUND:"::" I,J,K,M MOVE CURSOR":" RETURN PLACE MOVED FIELD AT CURSOR (Q)UIT QUIT MOVEANT AT":14:"CURRENT CURSOR POSITION":"(D)ELETE DELETE CURRENT DATA/CONST AT CURRENT CURSOR POSITION"::"(SHIFT M) MOVE ITEM AT CURRENT CURSOR":14)"POSITION"::"CONTROL Q QUIT AND WRITE FORMAT FILE":F"<- AND -> 0FL%(IN)LN%(DN%(IN)):ININ1:127eDX%(IN)0:DY%(IN)0:DN%(IN)0:NDIN1::D$;"CLOSE":216,0:(:2:" THE FOLLOWING KEYS HAVE THE FOLLOWING FUNCTIONS WHILE EDITING A SCREEN FORMAT:":"I,J,K,M MOVE CURSOR"::"(A)DD"14);"ADD DATA OR CONSTS%,".CIF",CA$(I):SS%FF1:CA$(F)(CA$(I),8,((CA$(I))11))E{:~|:D$;"OPEN";FM$".CIF,D"D1:D$;"READ";FM$".CIF":IN1}SX%(IN),SY%(IN),SK$(IN):SX%(IN)0ININ1:125~SX%(IN)0:SY%(IN)0:NKIN1:IN1$DX%(IN),DY%(IN),DN%(IN):DX%(IN):"LOAD ";::"DATA DISK";::" INTO DRIVE "D1:" AND PRESS 'RTN'";:X$:iw867,254:(4)"RUN MENU,D1"x:12:4:"LOAD ";::"FORMATS DISK";::" INTO DRIVE "D1:" AND PRESS 'RTN'";:X$::yCA%,CA$(0),D1:F0:CA%1ı=zI1CA%:TR%,CA$(I):SN";FM$:D$;"WRITE";FM$:I1NK:SX%(I);",";SY%(I);",";(34);SK$(I)::"-1,-1,":I1ND:DX%(I);",";DY%(I);",";DN%(I)::"-1,-1,-1":D$;"CLOSE"uD11ė:12:4:"LOAD ";::"UTILITY DISK";::" INTO DRIVE "D1:" AND PRESS 'RTN'";:X$:IvD12ė:12:4";Z$:9393 (R) TO RESTART":12:"OR (Q) TO QUIT ";Z$:Z$"R"ĬC_Z$"Q"37]`Z$"I"Ģ5:958:94a::14:"INITIALIZING"::99bD$"INIT HELLO,D2":D$"DELETE HELLO,D2":216,0:c216,0:D$"CLOSE":FX%::"ERROR "(222)" OCCURRED!":"PRESS (RETURN) 9))Ė1:(37):868:158~"TC0:TM(19500(TM3)):T1(97280TL):VR0Ė3:"VOLUME 1 WILL HOLD ";::VR;::" MORE RECORDS""VRT1:VRTMVRTM8#T21:T30:IT$",S"(TS)",D1":59::2:10:"* WRITING TARGET PRINTER VARIABLES *":60:61:D$"OPEN"T8H!TLTF%(TF1)TF::225:9:CC((19500(220160TL)))3:CC10CC10[!CC239CC239!1:"ENTER THE LENGTH OF THE LONGEST FIELD":9:"YOU WILL SORT ("CC"-239)":4!"PRESS (RETURN) TO REVIEW FIELDS";Z$:Z$""138"TM(Z$):((TMCC)(TM23$:Z$"0"ĉ:155* CC0:Z$""CC(Z$)V ((CC1)(CC(TF1)))Ģ23:1:958:145j CCTF1ĉ:124 ICC:288:CZTF%(I1) 43:OC2OC0:150 TF%(I1)CZ154 ITF154 CZCZTF%(I1):CQ(I1)TF:TF%(CQ1)TF%(CQ1)CZ:!13:16:TH$(I);:(((TH$(I),1)" ")((TH$(I))1))ĺ"(J)";N:II1:ITF144`(37)1714023:"PRESS (RETURN)";Z$:139OD0:20:1:"(0)";:8:"ALL CORRECT":"(1-"TF")";:8:"EDIT":"("TF1")";:8:"RESTART" "SELECT (1-"TF1")";:" ";ZETTER!":12941:NA01252TF0:F12218DI1:OD1:288\43:OC2OC0:137uTFI:II1:I89138~134I1134::"FIELD #";:9:"LENGTH";:16:"NAME":I140:"-";::34,2:I18I;:9:"("(TF%(I1)TF%(I))1")";:"ENTER FILE NAME"E}7:11:958:KE%,1,Z$,25:TR%,Z$:KE%1125~TRG$Z$:NL(TRG$):AV((Z$,1)):((AV65)(AV90))130SS%,",",Z$:SS%0131:7:"PLEASE DO NOT USE COMMAS!"NL14000::124 :3:"FILENAME MUST BEGIN WITH A L-5)";Z$:Z$"DEBUG"DB1:1146sZ$"BREAK"ĄBR:114PtF10:Z$""F1(Z$)iu((F11)(F15))114v((F11)(S22))MO1:217wF11Ė14:23:"PLEASE WAIT":217xMO2:S22MO4yF154zF14203{TV(1,0)0:D1:227|:12:9pX1SF:RE%,SRC$,(0,SF%(X)),SH$(X):RE%013Mq:CL%,SRC$:216,0:BR0r:12:"* RECONFIGURE *":M00:7:"1. REWRITE SOURCE FILE":"2. STRAIGHT TRANSFER":"3. CREATE A NEW FILE":"4. APPEND TO AN EXISTING FILE":"5. RETURN TO MENU"::"SELECT (1::5:12:"* CHECKING INDEX FOR ERRORS *":X1Pj((SI%(X)1)(SI%(X)SC))110gkC%(SI%(X))0110lC%(SI%(X))SI%(X):XX1:XSC106m111n:8:10:"INDEX FILE IS INCORRECT!":3oSH$(SF):VGSV(1,0):OP%,SRC$,(SL),SD,SS,VG:OP%0131%(0)0:101%dB1SS%(0):SS%(B):eDC$:216,0::1:11:"* CHECKING SURVIVOR LIST FOR ERRORS *":SE0:SS%(0)1SE1:104fX1SS%(0):SS%(X)1SE1g:SE0171h:5:10:"THE CURRENT SURVIVOR LIST IS UNUSABLE!":X14000::171.iIE01,1)T3:TV(2,1)TCT3::5:9:"* READING SOURCE INDEX FILE *"G`11aDO$;SRC$".I"IS$:DR$;SRC$".I":B1SC:SI%(B)::DC$:216,0:105b:4:10:"* READING SOURCE SURVIVOR LIST *":L1:216 cDO$;SRC$".S"IS$:DR$;SRC$".S":SS%(0):SS%(0)1SS:F14209?^:3:8:"* READING SOURCE FILE VARIABLES *":9>_DO$;SRC$".V,L498"IS$:DR$;SRC$".V,R0":SF:SF%(SF1):SC:SM:B1SF:SF%(B1)::SLSF%(SF1)SF:DR$;SRC$".V,R1":S2:S3:SRS31:DC$:216,0:SI%(SC),SS%(SC):SV(1,1)S3:SV(2,1)SCS3:TV(ECORDS= ";BZ:139l:5:"MAKE SURE DATA FACTORY UTILITY DISK IS IN DRIVE 1";:D12ĺ" AND DATA DISK IS IN DRIVE 2""AND PRESS 'RTN'";:X$:::867,254:D$;"RUN MENU""RECORD # "RC1;:16:"APPROX.DISK RECORDS= ";BZ:ORD # "RC1;:16:"APPROX.DISK RSX%(IN),SY%(IN),SK$(IN):SX%(IN)0ININ1:133CNK%IN:IN1yDX%(IN),DY%(IN),DN%(IN):DX%(IN)0ININ1:135NF%IN:D$;"CLOSE":216,0::D12ĺ(7):12:4:"LOAD ";::"DATA DISK";::" INTO DRIVE "D1:" THEN PRESS 'RTN'";:Z$:F)(CA$(I),8)~4FāI1F:I"."4);CA$(I):TF1;"."4)"RETURN TO MENU":"WHICH?";:KE%,3,FI$,2;:FI(FI$):KE%4KE%8FIF1138FIF1138FI1FIFĢ(37)1:129FM$CA$(FI)::D$;"OPEN";FM$",D"D1:D$;"READ";FM$:IN13RROR "(222)" OCCURRED!":"PRESS (RETURN) ";Z$:227=2242^2G0:D$"BLOAD"G$",D"D:216,0k2F0238u22402G1:D$"OPEN"G$",D"D:D$"READ"G$:Z$:D$"CLOSE"2216,0:F2ı2G0:2216,0:768:F1ı2G0:3216,0:768:(222)1U";Z$:Z$""41Z$"I"2271:7:"THIS WILL DESTROY ALL DATA":15:"ON DRIVE "D:10:"ARE YOU SURE (Y/N)";Z$:Z$"Y"2271:14::"INITIALIZING"::2321D$"INIT HELLO,D"D:D$"DELETE HELLO,D"D:216,0::(37):868:32216,0:768::"EF127310T1(97280TL):TMSM:TC0:273:155U0SQ(19500SM)3:SQ239SQ239y08:"SOURCE SORT LENGTH = "SQ:1:10:8:"INSERT A BLANK DISK":14:"INTO DRIVE ";::D:::8:"PRESS (I) TO INITIALIZE":2:"OR PRESS (RETURN) TO RETURN TO MENTLSL:F12220/TCSC:TRSR?/TFSF:TSSS:TDSD:F12223/TV(1,0)SV(1,0):TV(2,0)SV(2,0):TV(1,1)SV(1,1):TV(2,1)SV(2,1):WL%(0)SC:F11āI1SC:WL%(I)I::223/I1SC:WL%(I)SI%(I): 0I1(SF1):TF%(I)SF%(I)::I1SF:TH$(I)SH$(I)::%,TRG$,(TL),TD,TS,VG:OP%014R.X1TF:RE%,TRG$,(0,TF%(X)),TH$(X):RE%014.:CL%,TRG$:216,0:T1(97280TL):VRT1:VRTMVRTM.T3VRVRT3.VRVRTC:163.216,0:DC$:10:1::"ERROR";::B14000::SS%(0)0:104.TRG$SRC$/$",S"(TS)",D1"::3:10:"* READING TARGET FILE VARIABLES *"I-10-DO$;TRG$".V,L498"IT$:DR$;TRG$".V,R0":TF:TC:TM:B1TF:TF%(B1)::TLTF%(TF1)TF:DR$;TRG$".V,R1":T2:T3:TRT31:DC$:216,0:TMTC1WL%(0)1:202:203.VGTV(1,0):OP((40((TRG$)14))2):10::TRG$;::" WILL NOT HOLD":9::WL%(0);::" ADDITIONAL RECORDS":X14000::s,O3,247:S1:255:Y1İ87:204,Y1207,:4:9:"ONLY 1 FILE IS ALLOWED PER DISK!"::88:203,TRG$Z$(Y):41:NA0203@-IT868):CZ,((TRG$,CZ868,1))::73+:((40((TRG$)12))2):10::TRG$;::" WILL BECOME":11:"A TWO VOLUME FILE":10:"PRESS (RETURN) ";Z$:D1:227:D$"OPEN"TRG$",D"D:D$"CLOSE":TCTCWL%(0):TRT11:TV(1,1)T1:TV(2,1)TCT1:T22:T3T1:198k,:*G$TRG$:F1:D1:233:G0O5:247:198I*((F11)(T22))MOMO1"+:5:9:"* WRITING TARGET INDEX FILE *":62::3:10:"* WRITING TARGET FILE VARIABLES *":63::4:11:"* WRITING TARGET SURVIVOR LIST *":64:65:868,(TRG$):CZ869((TRG$)2):11:"ALL CORRECT (Y/N)";Z$:Z$"Y"ĉ:163H)::WL%(0)1163f)(TCWL%(0))TMİ202:163v)TCT3196)TCTCWL%(0):TRT31:TV(1,1)T3:TV(2,1)TCT3:198)(TCWL%(0))T1201)TCTCWL%(0):TRT11:TV(1,1)TC:TV(2,1)0:T3TC:T21+1:(37):868:175'(PF((R2R1))1(((PFWL%(0))(TMTC))Ė9:(37):868:"TARGET RANGE EXCEEDED!";:X12000::9:868:175(RP1:R2R1RP1(ILR1R2RP:WL%(0)WL%(0)1:WL%(WL%(0))IL:B2WL%(WL%(0))SI%(IL)):(WL%(0)TC)TM175(Z$):PF0:ILRLPF1:R2R1:187/'RPRL1H'(Z$,RP,1)"-"PF1k'RPRP1:((PF0)(RPIL))181'RPILĖ1:(37):868:175'R2((Z$,RP,(ILRP)1)):R2SCĖ9:(37):868:"SOURCE RANGE EXCEEDED!";:X12000::1:868:175(R21Ė::192"&34,(37)1::WL%(0)0^&12:WL%(0)1" ---> ";:"";Z$:((Z$"")(WL%(0)0))191u&Z$""Ģ(37):175&R1(Z$):R1SCĖ9:(37):868:"SOURCE RANGE EXCEEDED!";:X12000::1:868:175&R11Ė1:(37):868:175#'RL((R1)):IL$""B(Z$)$%((B1)(B4))163/%B44;%B398%:13:"SELECT RECORDS":"PRESS (RETURN) TO TERMINATE SELECTION"::174%SS%(0)0173%:8:"NO SURVIVOR LIST EXISTS!":X14000::163&WL%(0)SS%(0):I1WL%(0):WL%(I)SI%(SS%(I))3:"VOLUME 1 WILL HOLD ";::VR;::" MORE RECORDS"@$L0166$:3:"SURVIVOR LIST CONTAINS ";::SS%(0);::" RECORDS": %:13:"1. AS ENTERED":13:"2. AS SORTED":13:"3. SURVIVOR LIST":13:"4. RETURN TO MENU"::13:"SELECT (1-4)";Z$:B0:ZRG$".PW"IT$:D$"WRITE"TRG$".PW":"":D$"CLOSE":F121923$:11:"*TRANSFER RECORDS*"::4:"SOURCE FILE CONTAINS ";::SC;::" RECORDS":4:"TARGET FILE CONTAINS ";::TC;::" RECORDS":"TARGET FILE WILL HOLD ";::TMTC;::" MORE RECORDS"::VR0Ė„ {{L@„LE{  Ƅ { fLL9 ȹ  } L9` Ƅ` ƃ`ÄĄń,qn ?WRITE TRACK Ä DŽ ? SECTOR q |$i }L8 i ȹ L҂L悩ȩ } L悩8 {8 {{{8   { {䭷L (ȍ ƃ{J L @ @){8ƄƄ  {8{L؁}ȩo ~L~ȩ }  }oiooiooo | **ɰ,,,0+ ,)` d' ᥡ`h h H    LTh H H` h h  ȱ ΩΨHH`8`8` 8`8`` ɍ   ` ND! ?PRESS (RETURN) ` ,,Lvw,_ 1_`` `__` a_``L~HH  i}hh i8Ȋ iH9B,q* ?VTOC BEFORE = DŽ ? AFTER = hI9,q DŽ`8h` ,* - 2 - ȱ 6}` }LS~ 0&  H qh`i#L ~8`8 c ?I/O ERROR!L8 c ?RECORD OUT OF RANGE!L8 c ?STRING OVERFLOW ERROR!L8c ?ERROR! DISK FULL!L8 c ?FILE NOT FOUqqq `8Hh i emu ȱ `qqL\}q췎q } g}h}`H  hi }  `LU~}   `LU~8`g}ig}h} g}g}h} ERT A BLANK DISK INTO DRIVE 2":3:"PRESS (I) TO INITIALIZE":3:"PRESS (RETURN) TO RETURN TO MENU ";Z$:Z$""4;(Z$"I"295;):12::"* INITIALIZING *"::D$"INIT HELLO,D2":D$"DELETE HELLO":903,255:5,255:))SNSN12:%LN(SN122):(SN(LN122))LNLN1:&SNSNLN:DA2:CA$(105):CA%,CA$(0),DA:FS((CA$(0),35)):FSSNĹ903,254:p;':3:5:"THERE IS NO SPACE ON THE DATA DISK":2:"WHERE THE RECONFIGURE TEMPORARY FILE":13:"CAN BE STORED!"::4:"INS:"9291:23:1:3:868:27449 ::OD0290V9!8:"PRESS (0) WHEN FINISHED"9"3:5:"PRESS (CTRL-B) TO VIEW FIELDS":34,4:9#::3:"SOURCE";:28:"TARGET":34,4: :$TB236(6SF)(6TF)SLTL(6WL%(0))(6TE):SN(TB256):(TB(SN256II1+8CEFI(I):CDTF%(I1):HT$TH$(I)E8:43:OC2OC0:282[8TFTF1:ITF2858CB(TF1)(I1)1:TH$(CB1)TH$(CB):TF%(CB2)TF%(CB1)(NL1):FI(CB1)FI(CB)::TH$(I1)HT$:TF%(I2)CD(NL1):FI(I1)CE8FI(I)1:TETE1:TF882759N) ";:EF$:EF$"Y"ı!7:2887:9:"PRESS (0) TO INSERT AT BEGINNING":"PRESS (1-"TF") TO INSERT AFTER (1-"TF")":"PRESS (E) TO END INSERTIONS ";Z$:Z$"E"ĉ:7Z$"0"I1:2817Z$""2757(Z$)22877I(Z$):((I1)(ITF))27582:D1:233:G02666 (6 O5:247K6 G$TRG$:F1:D1:233:G0268^6244:G02686G$"RBACK":F0:D1:233:G0ı6O1:247:2717TE0:::2:10:"DO YOU WISH TO ADD ANY EMPTY FIELDS":((40((TRG$)10))2):"TO ";::TRG$;::" (Y/6,0:768:Y0:05G$SRC$:F1:D2:233:G02635:13:9:"PLEASE INSERT":((40((SRC$)6))2):SRC$" VOL 1":14:"INTO DRIVE ";::"2"::10:"AND PRESS (RETURN)";Z$:MO10ı52605244:G02615MO12695 2716 O2:247:G$SRC$:F2544H$TRG$" VOL 2"413:"PLEASE INSERT":((40(H$))2):H$:14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN)";Z$:42594DO$"DATA FILES,D"S:DR$"DATA FILES":Y:((Y10)(Y1))Y0:2584M1Y:Z$(M):4DC$:216,0:52132353G1:3G0:246;3D$"LOCK"G$",D"D:216,0:Q3216,0:768:G1:u3:9:O248,249,250,251,252,2533H$"UTILITY DISK":2543H$SRC$" VOL 2":2543H$"TARGET DISK VOL 1":2543H$"TARGET DISK VOL 2":2544H$TRG$" VOL 1": SORT - ASCENDING":A)"6) DATE SORT - DESCENDING"A!Y15::~!22:A3)"WHICH: ";:DM$:B(DM$):DM$:B1B6Ė1:142!B0SRT$"W"!B2SRT$"N"!B4SRT$"D"!DIR$"A":B2B4B6DIR$"D"! "E16::Q1NC30:W014:QW"";B$:B$(6)İ148:1388 F(B$):F1FNCİ148:1382!CP$"PLEASE":CQ$"SELECT SORT TYPE":154:::A6:A)"1) WORD SORT - ASCENDING":A)"2) WORD SORT - DESCENDING"::A)"3) NUMBER SORT - ASCENDING":A)"4) NUMBER SORT - DESCENDING"::A)"5) DATE16,0:FIX:PW$"":130134UDO$;"DATE,D"D:DR$;"DATE":IN%,DA$:DC$:216,0:n216,0:FIX:DA$"":w96DO$;"DATE,D"D:DW$;"DATE":DA$:DC$:216,0:148:CP$"PLEASE ENTER THE SORT KEY" CQ$"FIELD NUMBER ?":154:::18)"#";:E STATS TO NEW DISK":154:DO$;"DATA FILES,D";D:DW$;"DATA FILES":1:N$:DC$:216,0:_~96DO$;N$;".PW,D";D:DW$;N$;".PW":PW$:DC$:216,0:131CP$"LOADING FILE STATS":154:DO$;N$;".PW,D";D:DR$;N$;".PW":PW$DC$:216,0:2:BOCL(QA1):DW$;N$;",R";(STQ);",B";BO:Q$(Q,QA):QA:Q:DC$:216,0:Q14:(7):Q:xCP$"PLEASE INSERT "SD$" INTO DRIVE "DD$:FGİ154:FG0:yCQ$"PRESS (RETURN) TO CONTINUE":FHFH0:155:123z154{Z$:|185V}CP$"SAVING FILL"LL",D"CD:179r96sCP$"SAVING RECORDS "(ST1)" THROUGH "(TR):CQ$"TO NEW DISKS":154:DF0:Q1(TRST):VS1:(STQ)D3VS2tQ1DF1:VS2DF0uVS1DFDF0:DO$;N$;",L"LL;",D"DvVS2DFDF1:DO$;N$;",L"LL;",D1"WwQA1NC7 (E) TO ENTER A NULL IN IT'S PLACE":6:"PRESS (RETURN) TO GO TO MENU";:Z$:Z$:Z$"E"5ohEC275}iEC3110jEC4110kEC5112lQ$(Q,QA)"":96mRO1:86nS$(X)"":76oRNR:FDM:103pT$(M,T)"":96qDO$N$","AND PRESS (RETURN) ";Z$:100kCP$"THE NEW DISK IN DRIVE "(D):CQ$"HAS NOT BEEN INITIALIZED":90:CP$"INSERT ANOTHER DISK":CQ$"AND PRESS (C) TO CONTINUE":91:CP$"OR PRESS (A) TO ABORT":91:Z$:Z$:(Z$"C")(Z$"A")107lZ$"C"19300m7102*eD$"BLOAD"N$",D1":216,0:DC$:106Of216,0:DC$:FIX:(222)13106Yg105hDO$;N$",D1":DR$;N$:Z$:DC$:216,0:106i216,0:DC$:FIX:(222)5ıj:9:13:"PLEASE INSERT":((40((N$)6))2):N$" VOL 2":14:"INTO DRIVE 1":10:]SB$" "92'^20:958:1002:N_ER(222):LN(218)((219)256):W`98~aD$"BLOAD MENU,D1":DC$:216,0:99b216,0:DC$:FIX:(222)13ıc:10:7:"PLEASE INSERT UTILITY DISK":3:"INTO DRIVE 1 AND PRESS (RETURN) ";Z$:96dFIXıPYFIX758:XFIXFIX9:Y:X,Y::104,168,104,166,223,154,72,152,72,96:ZZ:11[CS20:CP(CS((CP$))2.5):CP);CP$::CP(CS((CQ$))2.5):CP);CQ$:CQ$"":\0:0:AB0:16368,0:20:958:14)"";:SB$::SB$(17)AB1:94hq8`q` x,q0 X [q  ALZ LZ ` LZ ,q0 X [$ ?READING RECORD #`$ ?WRITING DATA`  ɠ ȩ  `x 釐 g Y 釐 : yL `x% ć Y ć : yL0`x ć , Y ć : yLU`nL{n{{8nLq{{`ˠx x i} ~`H i}o ~hLhq8`q`H i}n ~hLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ? VOL 21L΅ x$ ?AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ? VOL 12 ԅ` x$ ?AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ? VOL 1La ` ( Y : yL`xHx xhx 釐 Y 釐 : yLنL솭xHx xhnuqux x`uquL$ ?PLEASE INSERT UTILITY DISK INTO DRIVE 1` $ ?AND PRESS (RETURN) ` ,,` $ ?PLEASE INSERT` x$ ?AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ? VOL 21 ԅ`H$ ?INTO DRIVE h ` x$ ?Ą DŽ ? PAGE ń DŽ ? SLOT  DŽ ? DRIVE  DŽ ? VOLUME } DŽÄLC?Ąńȥ }  }`8 c ?ILLEGAL TRACK REFERENCE!LƄJJJJ) Ƅ) ` 8 ` `n L53 {19&|(TC(SVFV)1)RC126K}XFVSV:TCTC1:R%(TC)X::120~(37):6:958:"ONLY "RC" SELECTIONS ALLOWED!":X12000::106Z$""239:C1$(RS)Z$:H(2):V(2):958:QS1:Z$C1$(RS)" "GP2:235:H(3)(36)1:V(3)(37)1:1SL1)IL1066rZ1$(Z$,SL2):SV(Z1$):Z1$"0"117Ps((SV1)(SVRC))106dt(SV)Z1$106tuFVSV124v(TC(FVSV)1)RC126wXSVFV:TCTC1:R%(TC)X:xTCRC103y:10:"ALL CORRECT (Y/N) ";Z$:Z$"Y"102z34,2::TC0>";:" ";Z$:((Z$"")(TC0))1211hZ$""107:i122Sj(37):1:958:103{kIL(Z$):FV(Z$):Z$"0"SV0:119l(Z$,1)"0"111m((FV1)(FVRC))106n(FV)Z$SVFV:119oSL((FV)):SLIL106p(Z$,SL1,1)"-"106 q(::13:"DAVID SOUSSAN":(4)"RUN I" 3 8R "2699 SKOKIE VALLEY ROAD"X _ 8 "HIGHLAND PARK, IL. 60035"  14 &"312-433-7550" (4)"RUN I"27,0:D$;"RUNI" 5Q8:"2699 SKOKIE VALLEY ROAD":8:"HIGHLAND PARK, IL. 60035":14$ "312-433-7550":2:"MICRO LAB IS A REGISTERED TRADEMARK":11:"OF MICROLAB, INC.":(4)"BRUN ECHECK":X16:::14:"VERSION 6.0"::18:"BY"::15:"KEN PICHA"::12:"CURT ROSTENBACH",18,19,20,23,26,27,30,32,0, 6,10,12,14,16,19,22,24,26,28,30,32,0@  6,7,10,12,14,19,22,24,26,28,31,0 , 6,10,11,12,14,16,19,22,24,26,27,31,0, 6,10,12,15,19,23,26,28,31,0, 0,0::15:"COPYRIGHT":8:"1980,1981,1982,1983,1984":11:"BY MICROLAB, INC.":%$:11:"MICROLAB PRESENTS"::2X:X04DX:"%";::2U:X:X03gX:X0ĺ:3B  12,13,17,20,21,22,25,0, 12,14,16,18,21,24,26,0, 12,14,16,18,21,24,26,0 , 12,14,16,17,18,21,24,25,26,0, 12,13,16,18,21,24,26,0, 0, 6,7,8,11,15    5124)6)5"CD:(216,0:FIX:DC$(CP$"THE NEW DISK IN DRIVE "(D):CQ$"HAS NOT BEEN INITIALIZED":154:CP$"INSERT ANOTHER DISK":CQ$"AND PRESS (C) TO CONTINUE":155:CP$"OR PRESS (A) TO ABORT":155:Z$:Z$:(Z$"C")(Z$"A")186(Z$"C"124(6)SD(RD3)1%'SDCDCDSD:184a'M1NC:DR$N$;",R"R",B"CL(M1):T$(M,T)"":IN%,T$(M,T)u':GA%:216,0:'D11SD1:182'SD(RD3)1'SDCDCDSD:184'M1NC:DW$N$;",R"R",B"CL(M1):T$(M,T)::GA%:(DC$:DO$N$",L"LL",D156:CP$"THANK YOU":154:&CP$"PLEASE PLACE INTO":CQ$"DRIVE #1 AND PRESS SPACEBAR":154:156:CP$"THANK YOU":154:&T%(0)0:DA%,T%(0):T%(RCDC):X1RCDC:T%(I%(X))X::X1RCDC:I%(X)T%(X)::&EC5:96&D11SD1:177' Y)ES OR N)O";:" ";DM$:DM$"Y"DM$"N"162C%DM$"N"167T%D11OP2:e%D22OP6:v%D12OP4:%D11OP3:%D22OP7:%D12OP5:%&CP$"PLEASE PLACE INTO":CQ$"DRIVE #1 AND PRESS SPACEBAR":154:R DATABASE FILE AFTER SORTING Y)ES OR N)O";:" ";DM$:DM$"Y"DM$"N"160}$DM$"N"OP1:2%11:" SHALL I REWRITE THE SORTED DATA FILE TO THE ORIGINAL DISK IN DRIVE #";D1;::" CP);CP$::CP(CS((CQ$))2.5):CP);CQ$:CQ$"":#0:0:AB0:16368,0:20:958:14)"";:SB$::SB$(17)AB1:158#SB$" "156#20:958:1002:#ER(222):LN(218)((219)256):i$:7:" DO YOU WISH TO REWRITE YOUNCĺ:1519"QW;" ";:(H$(QW),E);:QW15NCĺ:151_"20:QW15;" ";:(H$(QW15),E)}":21:"";:DM$:::"FIXı"FIX758:XFIXFIX9:Y:X,Y::104,168,104,166,223,154,72,152,72,96:":112#CS20:CP(CS((CP$))2.5):B4B6DIR$"D"SBTE12::Q1NC30:W014:QWNCĺ:87UQW;" ";:(H$(QW),E)" ("((CL(QW)CL((QW)1))1)")";:QW15NCĺ:87V20:QW15;" ";:(H$(QW15),E)" ("((CL(QW15)CL((QW15)1))1)")"W:21:"";:DM$:::XBER SORT - DESCENDING"::A)"5) DATE SORT - ASCENDING":A)"6) DATE SORT - DESCENDING":LA1:"SELECT (1-6) ";DM$:DM$(17)ġ:6MB0:DM$""B(DM$)N((B1)(B6))75OB0SRT$"W"PB2SRT$"N"QB4SRT$"D"RDIR$"A":B2 ?":90:::18)"#";:"";B$:B$(17)ġ:6@IB$(6)İ84:72^JF(B$):F1FNCİ84:72YKCP$"PLEASE":CQ$"SELECT SORT TYPE":90:::A6:A)"1) WORD SORT - ASCENDING":A)"2) WORD SORT - DESCENDING"::A)"3) NUMBER SORT - ASCENDING":A)"4) NUM;:Z$:Z$:Z$"E"6!=EC248.>EC367;?EC467H@EC569]AQ$(Q,QA)"":53mBRO1:18140~CS$(X)"":49DRNR:FDM:60ET$(M,T)"":53FDO$N$",L"LL",D"CD:30060G84:CP$"PLEASE ENTER THE SORT KEY"+HCQ$"FIELD NUMBERN LINE ";::LN::"PLEASE NOTIFY PROGRAMMER":"PRESS (RETURN) TO GO TO MENU";:Z$:Z$:6o;RNI%(QST):FDQA<:8:4:"RECORD# ";::RN;::" FIELD# ";::FD;::" IS BAD":"PRESS (E) TO ENTER A NULL IN IT'S PLACE":6:"PRESS (RETURN) TO GO TO MENU"S(0),I%(0):DA%,S(0):$.ER5586/RNX:FDF:60@0A$""I153j2DO$;N$",L"LL",D"D4:EC322w3EC4284375DC$:216,0:FIX:95:EC1596EC2467EC3468EC4469EC568Y:"ERROR CODE ";::ER;::" OCCURRED I,R"X",B"B:A$"":IN%,A$:A$"@"S(X)1E35:DCDC1:38D%S(X)(A$)`&I%(X)X::DC$:216,0:'D41:DC$:DO$;N$",L"LL",D1":(SEL43,44,45)GA%:DIR$"D"İ10*+QS%,S$(0),I%(0):DA%,S$(0):,QS%,S$(0),I%(0):DA%,S$(0):-QS%,,S$(X)S$(X)""S$(X)" "BS$(X)"@"S$(X)(254):DCDC1K33_DC%,S$(X):53{ I%(X)X::DC$:216,0:!FX%:32"D4D:EC2:53#S(RC1),I%(RC1):S(RC1)1E36:S(0)S(RC1):DO$;N$",L"LL",D"D:X1RC:XD31İ395$DR$;N$"39#DR$;N$",R"X",B"B:IN%,S$(X);S$(X)""S$(X)" "_S$(X)"@"S$(X)(254):DCDC1{I%(X)X::DC$:216,0:D4D:S$(RC1),I%(RC1):S$(0)"":S$(RC1)(255):EC4:53DO$;N$",L"LL",D"D:X1RC:XD31İ39DR$;N$",R"X",B"B:IN%;:Z$:Z$:12^ BCL(F1):DC0:S$(1)"":S(1)0:I%(1)0:DA%,S$(0),S(0),I%(0):SRT$"W"SEL1r SRT$"D"SEL2 SRT$"N"SEL3 SEL19,25,34 D4D:S$(RC1),I%(RC1):S$(0)"":S$(RC1)(255):EC3:53DO$;N$",L"LL",D"D:X1RC:XD31İ:DR$;N$".V,R1":D2,D3:DC$:LL(CL(NC)NC):H$(NC):DO$;N$",L"LL",D2":X1NC:BCL(X1):DR$;N$",R"0",B"B:IN%,H$(X)::DC$:216,0: DC$:216,0:FIX::9:10:"PLEASE CHECK TO SEE":13:"THAT DATA DISK":13:"IS IN DRIVE ";D:10:"THEN PRESS (RETURN)"T ROUTINE *":"----------------------------------------":34,2:} X1(RC2):I%I%(RCX1):I%(RCX1)I%(X):I%(X)I%:: I(868):X869I868:N$N$((X))::VL498 14 DO$;N$".V,D2,L"VL:DR$;N$".V,R0":NC,RC,RR:CL(NC):X1NC:CL(X):E **":90:(7);(7):GA%:80 X14:(7);:} 96:::10:12:"SORT COMPLETED":14:"LOADING MENU":D$"RUN MENU,D1": CP$"WRITING INDEX FILE":CQ$"TO DISK":90:DC$:DO$;N$".I,D2":DW$;N$".I":X1RC:I%(X)::DC$:@ ::" * SOR RESULT!":8:"PRESS (C) TO CONTINUE ";Z$:Z$"C"2G D2:D21İ100 CP$"READING SORT KEYS ON "(RC)" RECORDS":CQ$"PLEASE WAIT":90:15:CP$"SORTING "(RC)" KEYS NOW":CQ$"BACK IN ABOUT "(((RC1000)6))" SECONDS...":90:40:CP$"** ALL DON(4)"BRUN QSORT/DATE/MERGE,D1":A$"":D$(4):DO$D$"OPEN":DR$D$"READ":DW$D$"WRITE":DC$D$"CLOSE":D2:9:CP$"READING FILE STATS":CQ$"PLEASE WAIT":90:88:1171:AQ(0)2000:AQ(((CL(F)CL(F1))1)RC)44 :10:7:"OUT OF MEMORY MAY                    J&22:"OVERFLOW OF FIELD "F(EN)" OCCURRED!":"PRESS (RETURN) ";Z$:233b&ENEN1:ENRS196u&F11:F2RF:89&RNRN1:RNTC195&98&GB1:GD(Z$):GE40(H(GP)1)&(GDGE)ĺ(Z$,GB,GD);:'GV(37):(Z$,GB,GE);:GDGDGE:GBGBG%QC3(EN)C4(EN):,%QC3(EN)C4(EN):B%QC3(EN)C4(EN):R%C4(EN)0ıh%QC3(EN)C4(EN):%Q$(F(EN))C1$(EN):231%Z$(Q):(Z$)CL%(F(EN))Q$(F(EN))Z$:231&SS%,".",Z$:((SS%0)(SS%CL%(F(EN))))Q$(F(EN))(Z$,CL%(F(EN))):231228$QQC4(EN):'$QQC4(EN):8$QQC4(EN):H$C4(EN)0ıY$QQC4(EN):i$C2(EN)220$O(EN)215,216,217,218$228$QC3(EN)Q:$QC3(EN)Q:$QC3(EN)Q:$Q0ı$QC3(EN)Q:$O(EN)222,223,224,225%228G RECORD # ":RN1G#EN1:RR%(RN):10:28:958::R::F11:F2RF:44m#Q0:Q$(F(EN))""Q(Q$(F(EN)))#C1(EN)212,227#C2(EN)205#O(EN)201,202,203,204#228#QQ2:#Q0:#QQQ:#Q1:#O(EN)207,208,209,210$(EN)0:C1$(EN)""C3(EN)(C1$(EN))Q"C4(EN)0:C2$(EN)""C4(EN)(C2$(EN))":RF0:X1NC:MA%,X,F(0):MA%0RFRF1:PC(RF)X""HD1İ256:TC1Ģ22:1:958:9:"NO RECORDS TO PROCESS":12:"PRESS (RETURN) ";Z$:99#10:9:"MODIFYIN ";:6!Z$:CO0Į:X121:CO$(X)::CO1K!CC0:(Z$)13ı`!(Z$)8CC22:!CCCC1:MA%,Z$,CO$(CC):MA%1183!CCMA%:! "1","2","3","4","5","6","7","8","9","0","C","E","F","P","Q","R","V","+","-","*","/"%":EN1RS:C3 ";B 1:24:"(Q)UIT (R)ESTART (V)IEW FIELDS ";: 23:1:"SELECT (C)ONSTANT (F)IELD "QF" ";:179 23:1:"SELECT (+)ADD (-)SUBTRACT (*)MULTIPLY ";:1:24:"(/)DIVIDE (Q)UIT (R)ESTART";:QS1ĺ" R(E)PLACE ";:!" FQ)):QL22QL22J(H$(FQ),1,QL);:((QL2)((H$(FQ),1)" "))ĺ:173Y38:"(J)"k(37)2017623:"PRESS (RETURN) ";Z$:FQNCĹ34,13::34,2:35,13:FQFQ1:FQNC170174 23:1:"SELECT FIELD (1-"NC") OR (P)ROCESS";%QF" ";:O(RS)162,163,164,1655"+ ";:166E"- ";:166U"* ";:166`"/ ";i148:RSNCĞ:"MAXIMUM EQUATIONS REACHED":5834,13:35,24::"FIELD# LENGTH NAME":34,15:FQ1:FQ;:8:"("CL%(FQ)")";:15:QL(H$(KE%,1,Z$,CL%(F(RS)):KE%155,156*153;TR%,Z$:157EZ$""z239:C2$(RS)Z$:V(4):H(4):958:C2$(RS);:167C2(RS)0:V(4):H(4):958:"FIELD "QF;:167169:V(1):H(1):958:"FIELD "QF" =";:V(2):H(2):958:QS1161"FIELD "FIELD "QF" =";:V(2):H(2):958:C1$(RS)" ";:132GO(RS)CC6:139P180fV(4):H(4):958183:CCCC10:CC0149CC152,149,158,149,6,78,159,149,149,149,149,132149C2(RS)1!V(4):H(4):958:VY(37):IY4:KYCL%(F(RS)):D "QF" ";:132O(RS)CC3fH(3):V(3):958:Z$Z$" ":GP3:235:H(4)(36)1:V(4)(37)1:147|V(3):H(3):958183:CCCC11:CC0141CC144,141,141,6,78,145,146,146,146,146,80141C1(RS)2:1673169:V(1):H(1):958:32<C1(RS)0:H(2):V(2):958:Z$"FIELD "(QF)" ":129I169:74\181:QS1140rH(3):V(3):958183:CCCC14:CC0134CC6,78,137,138,138,138,138,80134169:H(1):V(1):958:"FIELD "QF" =";:H(2):V(2):958:"FIELRT"( ,DM$"2"ĺ(4)"RUN LEVEL SORT 1"T*&::8:13)"SORT SELECTION":12.127A10 "WHICH KIND OF SORT:"::A)" 1) NORMAL SORT":A)" 2) LEVEL SORT"::A)" WHICH: "; DM$:DM$"1"DM$"2"Ĭ2:12:11)"" DM$"1"ĺ(4)"RUN SO  12000::97-sFD0:CA%,CA$(0),D4:CA%1ıttX1CA%:TR%,CA$(X):(CA$(X),2)"-U"FDFD1:CA$(FD)(CA$(X),8)|u:vMQ2:205:MQ0:115:SQ0wX1xY1::13:"UPDATE FORMATS"::FD1122 yY". "CA$(X):ID(Y)X:XX1:YY1:((XFD)(YSV)1)RC114.kXSVFV:TCTC1:R%(TC)X:<lTCRC94km:10:"ALL CORRECT (Y/N) ";Z$:Z$"Y"93~n34,2:TC053o173p(TC(SVFV)1)RC114qXFVSV:TCTC1:R%(TC)X::108 r(37):6:958:"ONLY "RC" SELECTIONS ALLOWED!":X(37):1:958:94?bIL(Z$):FV(Z$):((FV1)(FVRC))97Xc(FV)Z$SVFV:107rdSL((FV)):SLIL97e(Z$,SL1,1)"-"97f(SL1)IL97gZ1$(Z$,SL2):SV(Z1$):((SV1)(SVRC))97h(SV)Z1$97iFVSV112j(TC(FV1:958:9:"NO RECORDS TO PROCESS!":12:"PRESS (RETURN) ";Z$:173\:SQ0:9:"SELECT RECORDS (1-"RC")":1:"PRESS (RETURN) TO TERMINATE SELECTION":34,6]TC0:^7:TC1;:11:" --->";:" ";Z$:((Z$"")(TC0))109_Z$""98`110a1:OP%0858SBCL(CF1):WR%,N$,(R,B),UZ$:WR%086>T^U22:958:"ERROR "OP%;:87zV22:958:"ERROR "WR%;W" RECORD "R" FIELD "CF:"PRESS (RETURN) ";Y$:OP%0ıX:173YSCSC1:SCTC54ZX1TC:R%(X)0::TC0:173D[22:RC:SS%,DT$(HB),K$(X):AE2ĭSS%1TCTC1:R%(TC)XU,AE3ĭSS%0TCTC1:R%(TC)X],:lX1RC:SS%,DT$(HB),K$(X):AE2ĭSS%1TCTC1:R%(TC)X,AE3ĭSS%0TCTC1:R%(TC)X,:)TCTC1:R%(TC)RG+SS%,DT$(HB),Q$(Y):AE2ĭSS%1TCTC1:R%(TC)Ri+AE3ĭSS%0TCTC1:R%(TC)R+AI1K$(R)Q$(Y)+GA%::+AE1269+ AJ1+ MA%,DT$(HB),K$(AJ):MA%1ı+ TCTC1:R%(TC)MA%:AJMA%1:AJRC266+ 3, X1. SUBSTRING":13:"SELECT (1-3) ";Z$:AE0:Z$""AE(Z$)S*((AE1)(AE3))253Y**:10:13::"* SEARCHING *"::YAGAH0:AI0:264*CL%(Y)ADHCAH1:AI0:259*AH1:AI1:AGY+PC(0)Y:F10:F20:R1RC:44:GA%:AE1ĭQ$(Y)DT$(HB3?)AB450(3(7(2(RC)))):AC0:X1NC:CL%(X)ACACCL%(X)):ABAB(119(NC((2AC)16))):ABAB(2(7(2RC)))(NCAC)1000:AD(((0)AB)RC):AD0AD0)K$(RC):18:*:8:11:"SELECT SEARCH TYPE"::13:"1. FULL":13:"2. PARTIAL":13:"3SE":FX%:(222)13249"(248^(D$"OPEN"N$",D1":D$"READ"N$:Z$:D$"CLOSE":216,0:249{(216,0:D$"CLOSE":FX%:):13:9:"PLEASE INSERT":((40((N$)6))2)::N$;::" VOL 2":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:24E:GE40:((37)GV)12368'X1GP:V(X)V(X)1::236U'TYH(IY)1:TYTYKY:ZY1v'TY39ZYZY1:TYTY40:240'XY(37):YY(XYZY)VY:YY0ı'X1IY:V(X)V(X)YY::'245'D$"BLOAD"N$",D1":D$"CLOSE":216,0:249(216,0:D$"CLOCC1:CC1Z$"":9) Z$(Z$,1,CC):9f D$"OPEN"N$".PW,V"V1:D$"WRITE"N$".PW":Z$:D$"CLOSE":2 216,0:D$"CLOSE":FX%:PW$"":5 10:"THERE IS NO PASSWORD":7 C0:Z$"":HPCC:X127:(95);:G HPCC:Q$:AV(Q$):AV13ĺ:20T AV817b AV2215{ ((AV65)(AV90))9 CC269 Z$Z$Q$:(95);:CCCC1:9 CC19 HP:Z$;:X1500::HP:X1CC:(95);::9 CC19 (95);:CCSWORD *":34,2:21S D$"OPEN"N$".PW,D2":D$"READ"N$".PW":PW$:D$"CLOSE":216,0d :PW$""22 12:"YOUR PASSWORD IS"::((40(PW$))2)::PW$: :4:"DO YOU WISH TO CHANGE IT (Y/N) ";Z$:Z$"Y"2" :11:"ENTER NEW PASSWORD"::HP6:C(4)"BRUN AMPER FACTORY.OBJ0,D1":BS(88),CL%(88),CL(88),H$(88),I%(1500),Q$(88),R%(1500),S%(1500),V(88),H(88):D$(4):I(868):X869(868I):N$N$((X))::D11:D22:3::10:12:"* LOADING MENU *":D$"RUN MENU,D1": :10:"* CHANGE PAS   `ii8ppppȱ`8`O|O|o8`p`O| O|iͽoo8ooo`o8ooo8o`L|eWeVeX`J eejfffV`L|ͽq qO| om{om{`O|p8 nn` ,q0%$Lom{{om{{{{{Ȏ{{̼o L{{L{o{{Ȏ{{{ L{{`{{8`nL{n 8``nn }Ω` | | } 6} P|O|XqH=ɍ9Ä }魉uÄLQzɍL.y }` | | } 6} P|O|Xq9ɍ5 }LzuɍL.y }ᩍ`uL1yuLhyuLyuLzuLnzL{SIZE = DŽɍ  }䩍`L~ xשּu ߄O|Xq { | | } 6}L y | | } 6} P|O|Xq2'ɍ#L.y uLy }ԩ` | | } 6} P|O|Xq-ɍ)uL.yL.yN RBACK,D1Lxoo̼o/L+xo%pq pp}`}x`pq pp}`}q x`Lvx x"oq oo}`}`oq oo}`}`` | | } 6} P|,q ?F: ҀLu sxx1yhyyznzzzzzz{{'„q  x " i}cqmqqqmqqq ooqq n   ԧ  sq ?RUN RBACK,V$ DŽ ? ?RULuu <|Lv E{Luq  x{ qq „ "{o{oqmqqqmqqqq{q q Lu i}q  x„_`Lu z { w,qC ?WRITE RECORD   ? FIELD O|  ?  }i  ux x{{ {{o{o{qqqq,q0 %$ B ?READING RECORD #Lu |L)w zLq~ 1{ ,q0 B | | } 6}O|:,q! ?DELETE RECORD  DŽ DŽqiqqiqe LsqLrt n x o x8"xJx8"xJx n r o 7 %$ B ?READING DIRECTORYx x i}n ~L~  }i  uoPx x i}n ~L~ 7oo 7pp 7oo 7ppHnHɠn h8 ȱ hHoHoL6s nHȹnnhnoHoohoW ߠ p ȱ p  & 8L n 8eeȑ   e ze qe q XHn ޠ  h HoL$r 7nn 7oo 7nn 7oo 7nn 7oo 7n 7o 7o 7p 7o 7p 7o 7p 7o 7p {{ ޺q  nLnLsontppnLqمqӅq ޅ `LOn ߥɀLޥ))INLq ߥ0Lޢ uH h)ȹ`              6(UN(FVSV)1)NC158<XSVFV:UNUN1:PC(UN)X:KUNNC137{:10:"ALL CORRECT (Y/N) ";Z$:Z$"Y"13534,2:UN0164119(UN(SVFV)1)NC137XFVSV:UNUN1:PC(UN)X::152(37):6:958:"ONLY "NC" SELECTI154(37):1:958:137HIL(Z$):FV(Z$):((FV1)(FVNC))141a(FV)Z$SVFV:150|SL((FV)):SLIL141(Z$,SL1,1)"-"141(SL1)IL141Z1$(Z$,SL2):SV(Z1$):((SV1)(SVNC))141(SV)Z1$141FVSV15 XFD119120:10:"SELECT FIELDS (1-"NC")":1:"PRESS (RETURN) TO TERMINATE SELECTION":8:"PRESS (F) TO VIEW FIELDS":34,6UN013:UN1;:16:"--->";:" ";Z$:Z$"F"İ178:136((Z$"")(UN0))153Z$""142ZY1132~ZY2118)ZY3129?MQ1:205:MQ0:6I131D$"OPEN"CA$(ID(Z))",D2":D$"READ"CA$(ID(Z)):UN:X1UN:PC(X)::D$"CLOSE":216,0:159216,0:D$"CLOSE":FX%::"ERROR READING"::CA$(ID(Z))::"PRESS (RETURN) ";Z$:11911))121zY". ";::"CREATE A NEW FORMAT"::Y1". ";::"CONTINUE WITH MORE FORMATS"::Y2". ";::"CATALOG ANOTHER DISK"::Y3". ";::"RETURN TO MENU"::"SELECT (1-"Y3")";:" ";Z$:Z0:Z$""Z(Z$){((Z1)(Z(Y3)))132|ZY134 }65@@D$"OPEN"C$",D1":D$"READ"C$:Z$:D$"CLOSE":216,0:66]A216,0:D$"CLOSE":FX%:B:13:9:"PLEASE INSERT":((40((C$)6))2)::C$;::" VOL 2":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:6055<6S1K:I$(S)I$(S)SU$::S1K:DQG:DE%,I$(S),DQ:R7DQG:DE%,F$,DQ:^8S255l9KS1:54~:216,0:FX%:;216,0:D$"CLOSE":FX%:56<62=D$"BLOAD"C$",D1":D$"CLOSE":216,0:66>216,0:D$"CLOSE":FX%:(222)1366?D$"RUN I,D1"+G2:D06,DQG:DE%,E$,DQ:D22ıK-D0D1:G1:44U.D0:o/G2:49:D22G1:49u01S0:582D$"VERIFY"F$",D"G:216,0:593D$"OPEN"F$",D"G:D$"READ"F$:K:K1534S1K:I$(S):5D$"CLOSE":216,0:K1ELETING "C$:E$C$".V":43:E$C$".P":43:E$C$".PW":43:E$C$".I":43:E$C$:43:E$C$".S":43:E$"DATE":43:E$"SL1":43:E$"SL2":43:E$"SL3":43:E$"SL4":43:F$C$".F":SU$"-F":47:F$C$".U"'SU$"-U":47:B142(C$N$42)22 *15::ATA FILES,D2":D$"WRITE DATA FILES":B:X1B:F$(X)::D$"CLOSE"J !35 "D$"OPEN"C$".V,L498,D2":D$"READ"C$".V,R1":D2:D$"CLOSE":216,0:D22İ60:36 #216,0:D$"CLOSE":FX%:D21 $B038 %E$"DATA FILES":43&:((40((C$)9))2):"D"Z(Z$)# ((Z1)(Z(B1)))220 C$F$(Z){ :((40((C$)14))2):"DELETE ";::C$;::" (Y/N) ";Z$:Z$"Y"27 :16::"DELETING"::29 B1İ15:6 22 B1B0:33 BB1:ZB132 XZB:F$(X)F$(X1):A D$"OPEN DINSERT PROGRAM DISK":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:15x :13::"DELETE A FILE"::34,2 7:B113 B1C$F$(1):25 :X1B:X". "F$(X)::B1". ";::"RETURN TO MENU"::"SELECT (1-"B1")";:" ";Z$:Z0:Z$" BX1: :9:"NO FILES ON THIS DISK":11:"PRESS (R) TO RETRY":3:"PRESS (RETURN) TO RETURN TO MENU ";Z$:Z$"R"ė:20 15:6 17 D$"BLOAD MENU,D1":D$"CLOSE":216,0:18 216,0:D$"CLOSE":FX%:(222)13ıS :7:9:"PLEASE :"1"::10:"AND PRESS (RETURN) ";Z$:2` ::10:12:"* LOADING MENU *":D$"RUN MENU,D1":i 11 D$"OPEN DATA FILES,D2":D$"READ DATA FILES":X0:B:B1B0:10 X1B:F$(X): D$"CLOSE":216,0: 216,0:D$"CLOSE":FX%:X1B0: c(4)"BRUN AMPER FACTORY.OBJ0,D1":D$(4):I(868):X869(868I):N$N$((X))::P2:Q1:19k4D$"BLOAD MENU,D1":216,0:D$"CLOSE":5216,0:D$"CLOSE":FX%:(222)136) ::7:9:"PLEASE INSERT PROGRAM DISK":14:"INTO DRIVE ";:     z!#:D$"CLOSE":216,0:MQ1ı#'216F'216,0:D$"CLOSE":FX%:MQ0ı|':13:9:"PLEASE INSERT":LQ(Z$):MQ2LQLQ6'((40LQ)2)::Z$;::MQ2ĺ" VOL "VQ;':14:"INTO DRIVE ";::DQ::10:"AND PRESS (RETURN) ";A$:MQ2209'((17ĺ:6&199!&MQ207,208:&Z$N$:DQ1:VQ2:209S&Z$N$:DQ2:VQ1:209r&Z$"FORMAT DISK":DQ2:216|&211&D$"BLOAD"Z$",D"DQ:D$"CLOSE":216,0:216&216,0:D$"CLOSE":FX%:(222)13216&215'D$"OPEN"Z$:D$"READ"Z$:ZZ$".";:5::H$(VD);::" - ";:Q$(VD):VDNC198g%CH(CL%(VD1)2)7:CV(CH40)2:((37)CV)20198|%VDVD1:VDNCı%C2193%192%C1:190%15:Z$:C2:AV(Z$):AV2ĺ:%AV3ĺ:195%AV4ĺ::89%AV5ĺ::90&AVRL-C) CONTINUE (CTRL-D) SKIP":"(CTRL-E) RESTART (CTRL-Q) QUIT";:$22:958:"(CTRL-B) UPDATE (CTRL-C) CONTINUE":"(CTRL-D) SKIP (CTRL-E) RESTART":"(CTRL-Q) QUIT";:$VD1$:C0:"RECORD ";::R;:16::"DISPLAY"::/%VD(H$(QF),1,QL);:((QL2)((H$(QF),1)" "))ĺ:182C#38:"(J)"U#(37)20185#23:"PRESS (RETURN) ";Z$:QFNCĹ34,(34)2:##QFQF1:QFNC179#183#22:958:C1ĺ:189#"(CTRL-A) REPEAT (CTRL-B) BACKUP"I$"(CT5:"4. SELECT/CREATE A NEW FORMAT":5:"5. RETURN TO MENU":5:"SELECT (1-5) ";Z$:Z0:Z$""Z(Z$)s"Z5173"Z92,18,23,118,6"173":"FIELD# LENGTH NAME":34,(34)2:QF1:"QF;:8:"("CL%(QF)")";:15:QL(H$(QF)):QL22QL224#SE":FX%:5495k!D$"DELETE"Z$",D2":216,0:216,0:FX%::"UNABLE TO SAVE"::Z$::"PRESS (RETURN) ";Z$~!MQ1:205:MQ0!:CL%,N$:QD0:SQ133f"13:"SELECT RECORDS"::5:"1. SELECTED RECORDS":5:"2. 'ENTRY' SEARCH":5:"3. SURVIVOR LIST"::8:"SAVE THIS FORMAT (Y/N) ";Z$:Z$"Y"172O :11:"ENTER FORMAT NAME":l 6:KE%,2,Z$,28:KE%168 12:1:958:166 TR%,Z$:Z$Z$"-U":170 D$"OPEN"Z$",D2":D$"WRITE"Z$:UN:X1UN:PC(X)::D$"CLOSE":216,0:172!216,0:D$"CLOONS ALLOWED!":X12000::141&X18PC(X)NC163MXX1:XUN160V172:9:((40((CA$(ID(Z)))7))2):"FORMAT ";::CA$(ID(Z))::11:"IS NOT COMPATABLE":((40((N$)5))2):"WITH ";::N$::12:"PRESS (RETURN) ";Z$:119. :8  ƠŠ& Š%à !ˠ"ˠŠ ΠĠ Ӡ Ԡ# !Ҡٮʰ!ԯůŠ ɠŠĠĠ͠ ŠϠϠ(РՠΠ̠Ԡ̠Ԡ "R" FIELD "PC(CF):"PRESS (RETURN) ";Y$:OP%093;a:19QbX1TC:R%(X)0:tcTC0:AL1:HBHB1:HB0ė:193|d19e:HB1:HD0:9:"SELECT RECORDS (1-"RC")":1:"PRESS (RETURN) TO TERMINATE SELECTION":34,6fTC0:!g7:TC1;:11:" ---,D4:OP%094LZ((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%094[CFF1F2:BCL(PC(CF)1):PC(CF)AGK$(R)Q$(PC(CF))\WR%,N$,(R,B),Q$(PC(CF)):WR%095]:^22:958:"ERROR "OP%;:96_22:958:"ERROR "WR%;1`" RECORD CCCC10:CC081>RCC85,81,130,81,6,78,131,81,81,81,81,84FS81VTRSRS1:59cUC1(RS)1VH(2):V(2):958:VY(37):IY2:KYCL%(F(RS)):KE%,1,Z$,CL%(F(RS)):KE%88,127W86XTR%,Z$:128Y((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL)F((QF10)CC)NC67/GQF(QF10)CC:CC;BH183:CC072WIRSRS1:F(RS)QFJH(1):V(1):958:"FIELD "QF" =";:80K169:59LRS160M35,24:189NRS1Ĺ35,24:19O53P180:H(2)12:V(2)V(1):H(2):V(2):958Q183::V(1)(37)1:H(1)1?;178:V(1):H(1):958:"FIELD";:7Q<183:CC060k=((RSNC)(CC14))60>((CC10)(CCNC))66?CC1060@CCCC10:CC60,60,60,76,6,78,75A60BQFCC:QF;C183:CC073DCC1067ECC10CC050/0.122:958:"ERROR "OP%;:51J222:958:"ERROR "RE%;3" RECORD "R" FIELD "PC(F3):"PRESS (RETURN) ";Z$:OP%0474485AL1566:5:10:"USE PREVIOUS EQUATIONS (Y/N) ";Z$:Z$"Y"ė:1937AL08RS0:35,139HB1:HB2039$*34,2::HB119,+53,BF1F2:Q$(PC(B))""::((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%049-((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%049.F3F1F2:BCL(PC(F3)1):RE%,N$,(R,B),Q$(PC(F3)):RE%0) ";Z$:19:$TCS%(0):X1S%(0):R%(X)I%(S%(X)):::53}%253:HB0:HC0:HD1::6:"PRESS (CTRL-B) WHEN FINISHED":34,4&':"ENTER SEARCH ITEM ";::HB1:::KE%,1,Z$,CL%(Y):TR%,Z$:KE%41,41,42(38)DT$(HB1)Z$:GA%:HCHC(Z$):HB)131X1S%(0):S%(X):BD$"CLOSE":216,0:HB1:HD0:34 216,0:D$"CLOSE":FX%::"ERROR READING INDEX FILE!":5!216,0:D$"CLOSE":FX%::"ERROR READING SURVIVOR LIST!":5"S%(0)036 #:"SURVIVOR LIST IS EMPTY!":"PRESS (RETURN Y0:Z$""Y(Z$)0 ((Y0)(YNC))37E 13:1:958:21} :9::"READING SURVIVOR LIST"::CL%,N$:QD0:32 D$"OPEN"N$".I,D2":D$"READ"N$".I":X1RC:I%(X)::D$"CLOSE":216,0:33D$"OPEN"N$".S,D2":D$"READ"N$".S":S%(0):S%(0:8:"2. 'ENTRY' SEARCH":8:"3. SURVIVOR LIST":8:"4. RETURN TO MENU"::8:"SELECT (1-4) ";Z$:Z0:Z$""Z(Z$) Z419 Z101,23,27,7 19 :8:"PRESS (F) TO VIEW FIELDS":5:"FOUND IN WHICH FIELD (1-"NC")";:" ";Z$:Z$"F"İ169::23*":D$"RUN MENU,D1":A LLCL(NC)NC:OP%,N$,(LL),D4:OP%016r X1NC:RE%,N$,(0,CL(X1)),H$(X):RE%016 :QD1:17 :"ERROR READING FIELD NAMES!":5 250 :14:"* REPLACE *":34,2t :CL%,N$:QD0:7:8:"1. SELECTED RECORDS";Z$  CL%,N$ 10K D$"BLOAD MENU,D1":216,0:D$"CLOSE":11t 216,0:D$"CLOSE":FX%:(222)1312 ::7:9:"PLEASE INSERT PROGRAM DISK":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:8 ::10:12:"* LOADING MENU D$"OPEN"N$".V,L498,D2":D$"READ"N$".V,R0":NC:RC:RR:X1NC:CL(X)::D$"READ"N$".V,R1":D2:D3:D$"CLOSE":216,0:X1NC:CL%(X)(CL(X)CL(X1))1::D22İ243 13 216,0:D$"CLOSE":FX%::"ERROR READING VARIABLE FILE!" :"PRESS (RETURN) "^$(4)"BRUN AMPER FACTORY.OBJ0,D1":PC(88),CL%(88),CL(88),H$(88),I%(1500),Q$(88),R%(1500),S%(1500),V(88),H(88):F(88),C1$(88),C2$(88),O(88),DT$(20),C1(88),C2(88),C3(88),C4(88):CO$(21):D$(4):I(868):X869(868I):N$N$((X))::D11:D42:4                   MV(UX):H(UX):Q$(PC(UX));:(Q$(PC(UX)))CL%(PC(UX))79hNX1(CL%(PC(UX))(Q$(PC(UX)))):" ";:xOUXUX1:64PUZ$Q$(PC(UX)):68Q((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%085 R((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),DPC(UX):81:Q$(PC(UX))UZ$:CFAGK$(R)UZ$aDH(UX):V(UX):UZ$;:SPCL%(PC(UX))(UZ$):SP170uEX1SP:" ";:FUXUX1:UXFC64G73HUZ$"":67IFCFC1:FCUNSSSS1:56J89KUX164LUXSFSSSS1:FCBK(SS):BU1:56;FCUN62C<CH(CL%(PC(FC1))2)7:CV(CH40)2:((37)CV)2062S=FCFC1:57u>C0:187:BU1BU0:UXFC:64?UXSF@V(UX):H(UX):UZ$Q$(PC(UX)):KE%,4,UZ$,CL%(PC(UX)):KE%66,72,75,73,89,90,80,6A64BTR%,UZ$:UZ$""UZ$" "*CCF:VD$"Y"İ191!7FC1:SS1:BU0]8SFFC:BK(SS)SF::"RECORD ";::R;:17::"UPDATE"::9PC(FC)".";:5::H$(PC(FC));::" - ";:V(FC)(37)1:H(FC)(36)1:Q$(PC(FC));:BS(FC)CL%(PC(FC))(Q$(PC(FC))):BS(FC)159:X1BS(FC):" ";:;:B),Q$(F3):RE%049. /@022:958:"ERROR "OP%;:50\122:958:"ERROR "RE%;2" RECORD "R" FIELD "F3:"PRESS (RETURN) ";Z$:OP%0463474TC1915SC1::5:10:"DISPLAY ALL DATA FIRST (Y/N) ";VD$6RR%(SC):F11:F2NC:435 &TR%,DT$:(DT$)1DT$" "('413(DT$""<)222J*SQ0:173+BF1F2:Q$(B)""::((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%048,((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%048-F3F1F2:BCL(F31):RE%,N$,(R,ST IS EMPTY!":"PRESS (RETURN) ";Z$:173V TCS%(0):X1S%(0):R%(X)I%(S%(X))::53y!:9:"PRESS (CTRL-B) TO EXIT"":8:"ENTER ITEM TO SEARCH FOR":SQ1:#(CL%(Y)40)Ė((40CL%(Y))2)$KE%,1,DT$,CL%(Y):KE%38,40,42%17:1:958:3"N$".S,D2":D$"READ"N$".S":S%(0):S%(0)127E X1S%(0):S%(X):_ D$"CLOSE":216,0:30 216,0:D$"CLOSE":FX%::"ERROR READING INDEX FILE!":5 216,0:D$"CLOSE":FX%::"ERROR READING SURVIVOR LIST!":5 S%(0)032(:"SURVIVOR LI")";:" ";Z$:Z$"F"İ178::187 Y0:Z$""Y(Z$)O ((Y0)(YNC))34g (37):1:958:19 :9::"READING SURVIVOR LIST"::CL%,N$:QD0:SQ0:28 D$"OPEN"N$".I,D2":D$"READ"N$".I":X1RC:I%(X)::D$"CLOSE":216,0:29- D$"OPENNC)NC:OP%,N$,(LL),D4:OP%015R X1NC:RE%,N$,(0,CL(X1)),H$(X):RE%015d :CL%,N$:16 :"ERROR READING FIELD NAMES!":5 17 :15:"* UPDATE *":34,2:220 :8:"PRESS (F) TO VIEW FIELDS" 5:"FOUND IN WHICH FIELD (1-"NC D$"BLOAD MENU,D1":216,0:D$"CLOSE":10T 216,0:D$"CLOSE":FX%:(222)1311 ::7:9:"PLEASE INSERT PROGRAM DISK":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:7 ::10:12:"* LOADING MENU *":D$"RUN MENU,D1":! LLCL(D$"READ"N$".V,R0":NC:RC:RR:X1NC:CL(X)::D$"READ"N$".V,R1":D2:D3:D$"CLOSE":216,0:X1NC:CL%(X)(CL(X)CL(X1))1::D22İ205 12 216,0:D$"CLOSE":FX%::"ERROR READING VARIABLE FILE!" :"PRESS (RETURN) ";Z$ CL%,N$ 9+"(4)"BRUN AMPER FACTORY.OBJ0,D1":TV(901):FV(TV),CA$(105),ID(13),PC(88):BS(88),CL%(88),CL(88),H$(88),I%(1500),Q$(88),R%(1500),S%(1500),V(88),H(88):BK(88):D$(4):I(868):X869(868I):N$N$((X))::D11:D42:4 D$"OPEN"N$".V,L498,D2":      (4)"RUN TDF"I(E$(X)):)[(AD200(X1)),(E$(X)):7\TBT198H]TBTB1:196V^TB1198g_TBTB1:196o`X1yaP5:b1:P:X10ĺ" ";cX".";:5:XSF105dC$" ":C(SF%(X1)SF%(X))1:K(SH$(X)):K2102e((SH$(X),K,1)" ")C$C$"J"1:S1SSFOP68:245+Q71:245=RO%(TB)0198OSO%(TB)0:196\T68:196iU71:196wVTTF198WX1TF:(AD(X1)),O%(X):O%(X)0Ĺ(AD100(X1)),F%(X)XO%(X)76,90,90,91,90,91,90,90,91,90,91Y:272 Z(AD200(X1)),(TB)1:F%(TB)SFF%(TB)1.ESS1:SSFS14F\GF%(TB)F%(TB)1:F%(TB)1F%(TB)SFpHSS1:S1SSFvIJE$(TB)((E$(TB))1):(E$(TB))SFE$(TB)"1"KSS1:SSFS1LME$(TB)((E$(TB))1):(E$(TB))1E$(TB)(SF) NSSLIT BACK AT CHARACTER"::"SELECT (1-4)";:K$"1":L$"4":V19:H13b>10:J1ġ:O%(TB)1::196o?J1662@O%(TB)(Z$)2A:1:19:"SPLIT INCLUSIVE OR NONINCLUSIVE (I/N)";:Z$:Z$;:Z$"N"ıBZ$"I"65CO%(TB)O%(TB)5:DF%(TB)F%9L$(SF)8+9SF10K$"1":L$"0":W:K(Z$):L(SF10):KLK$"1":L$"0":|;USF(L10):KLK$"0":L$"9":<K$"0":L$(U):A=:1:14:"1. SPLIT FRONT AT POSITION":"2. SPLIT FRONT AT CHARACTER":"3. SPLIT BACK AT POSITION":"4. SP ":530C$(TB)C$(TB)"/"<1N0:E$(TB)""N(E$(TB))p2((N1)(NSF))NS:SS1:E$(TB)(N):SSFS13N10C$(TB)C$(TB)" "4C$(TB)C$(TB)(N)" ---> F "5TB10C$(TB)C$(TB)" "6C$(TB)C$(TB)(TB): 7K$"1":L$"9":SF '":E$(TB)""E$(TB)" "B*C$(TB)C$(TB)E$(TB)"' ---> F ":53b+N0:E$(TB)""N(E$(TB)),((N1)(N((SF%(F%(TB)1)SF%(F%(TB)))1)))N1:E$(TB)"1"-N10C$(TB)C$(TB)" ":47.N100C$(TB)C$(TB)" "/C$(TB)C$(TB)(N)" ---> F)" "R%C$(TB)C$(TB)(F%(TB)):O%(TB)1C$(TB)C$(TB)" ---> F ":53c&O%(TB)248'O%(TB)7C$(TB)C$(TB)" ":49(C$(TB)C$(TB)" AT ":((O%(TB)3)(O%(TB)5)(O%(TB)8)(O%(TB)10))C$(TB)C$(TB)"POS ":43)C$(TB)C$(TB)"CHRLL ---> F ":53;C$(TB)"TRANSFER ":35YC$(TB)"CONCATENATE ":35sC$(TB)"SPLITFN ":35 C$(TB)"SPLITBN ":35!C$(TB)"SPLITFI ":35"C$(TB)"SPLITBI "#F%(TB)1F%(TB)S:SS1:SSFS1$F%(TB)10C$(TB)C$(TBC$(TB);:1:1:O%(TB)125, O%(TB)224J (SH$(F%(TB)),1,21);:25 (SH$(F%(TB)),1,10);:11:"/";:(SH$((E$(TB))),1,10); 28:(TH$(TB),1,13);: C$(TB)"":O%(TB)0O%(TB)1 O%(TB)29,30,31,31,32,32,30,33,33,34,34 C$(TB)"NUB$:B$Z$ı JJ1:J1513E (((Z$)(K$))((Z$)(L$)))10 : "T","C","S","N","+","-","P","R","Q","?","L","U","D","F","B" 5:1:A(TB3)(TB3):868:((A1)(AT))ĺ:20 ATBĺ:::20 C$(A) : 1:1:868:9:868:FI(TE):CB1TE:FI(CB): DC$:D$"DELETE"FQ$".R,D2":BMBM((WL%(0)1)2):BM(BMTL):BH(BM256):BH255BH255:BM65535 3,BH:2,BM(BH256):BR0ĹBR,0 HD,1:FU,MO:257 H:V:Z$:J1:(Z$)27ı J0:(Z$)13ı J1: V(2,0):SV(1,1):TV(1,1):SV(2,1):TV(2,1):CN:SF%(SF1),TF%(TF1),SH$(SF),TH$(TF),WL%(CN):I0(SF1):SF%(I)::I0(TF1):TF%(I)::I1SF:IN%,SH$(I)::I1TF:IN%,TH$(I)::I1CN:WL%(I)::WL%(0)CN:F127 EF$:EF$"Y"7 TE:TE17 SV(2,2),TV(2,2):AD(0000)((0001)256):TAAD:D$(4):DC$D$"CLOSE":DO$D$"OPEN":DW$D$"WRITE":DR$D$"READ":DO$;FQ$".R,D2":DR$;FQ$".R":MO:DB:F1:BR:SRC$:TRG$:SL:TL:SC:TC:SR:TR:SF:TF:SS:TS:SD:TD:SV(1,0):TV(1,0):SV(2,0) T~&255:(4)"BRUN RECON,D1":BU(((5)256)(6)):HD((7)256)(8):FU((9)256)(10):BM(((3)256)(4))((2)256):768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:FQ$"":X869((868)868):FQ$FQ$((X)):               ,I$,(0,BI),Z$:WR%089+WCL%,I$:GA%:8XEC1:90AYEC2nZ22:1:958:"ERROR ";:OP%0ĺRE%;:92x[OP%;\EC93,94]" VARIABE FILE":95^" INDEX FILE"_"PRESS (RETURN) ";Z$:NA1:`::CL%,N$:QD0:5:"IT IS NECESSARY TO,0),Z$,Y$:WR%088"MCL%,V$:=NBI0:R9BIBI18:80UOBIBI((R1)2):85mPR99BIBI270:82QBIBI((R10)3):85RR999BIBI3600:84SBIBI((R100)4):85TBIBI((R1000)5)UOP%,I$,(1),D4:OP%089VZ$(R):WR%8:10:"WRITING RECORD ";::R;::63:NA1ı7G78:NHNA0:RCR1D3RCnIOP%,V$,(498),D4:OP%088JZ$(NC):Y$(RC):X$(RR):WR%,V$,(0,0),Z$,Y$,X$:WR%088KX1NC:Z$(CL(X)):WR%,V$,Z$:WR%088L:Z$(D2):Y$(D3):WR%,V$,(12)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%067oACF1NC:BCL(CF1):WR%,N$,(R,B),M$(WM,CF):WR%068wB:C22:958:"ERROR "OP%;:69D22:958:"ERROR "WR%;E" RECORD "R" FIELD "CF:"PRESS (RETURN) ";Y$:NA1:-F48:22:1:95";::RRR1ĺR1RC;':RRR1ĺRRRC;?;:" MORE RECORDS";Y<5:1:868:RRR1ıv=R2RRR1:RCR1R2RRRC>2:"VOLUME 2 WILL HOLD ";::R2;::" MORE RECORDS";:?NA0:((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%0674@((QD3((Z$"M")(Z$"D"))4764TY1:Z$"M"FM0:106R5FM1:MSMR:MRCM1:106610:"ALL CORRECT (Y/N) ";Z$:Z$"Y"TY1:1067TY4:2483:1:868:4:"CURRENT NUMBER OF RECORDS = ";::RC;::4:1:868:RCR1609"VOLUME 1 WILL HOLD /48:49020:1:958:6:"MEMORY CONTAINS ";::CM;::" RECORDS":3:"MEMORY WILL HOLD ";::MSCM;::" MORE RECORDS":1CMMR1542"SELECT (N) NOT CORRECT":"(M) TO MEMORY (D) TO DISK ";Z$:Z$"N"TY4:24(SC):44+&Q$(SC)"":M$(CM,SC)Q$(SC):448'SC133^(SCSFSSSS1:FCPC(SS):BU1:25)V(SC):H(SC):M$(CM,SC);:LSCL%(SC)(M$(CM,SC)):LS143*X1LS:" ";:+SCSC1:33,SCSC1:SCFC33-SSSS1:FCFC1:SCNC25.GA%1BU0:SCFC:33 SCSF`!V(SC):H(SC):KE%,TY,Q$(SC),CL%(SC):KE%37,38,39,33,33,24,35,21h"33#V(SC):H(SC):Q$(SC);:(Q$(SC))CL%(SC)M$(CM,SC)Q$(SC):44$X1CL%(SC)(Q$(SC)):" ";::M$(CM,SC)Q$(SC):44%TR%,Q$(SC):M$(CM,SC)Q$);:LSCL%(FC)(M$(CM,FC)):LS1287 X1LS:" ";:G :FCNC31~ CH(CL%(FC1)2)7:CV(CH40)2:((37)CV)1931 FCFC1:2622:958:"(CTRL-A) REPEAT (CTRL-B) BACKUP ";:1:23:"(CTRL-E) RESTART (CTRL-Q) QUIT ";:BU12:"PRESS (RETURN) ";Z$$ CM16? CMCM1:RR1:FL1:53x R1(97280LL):56:RRC1:X1NC:M$(CM,X)""::GA% FC1:SS1:BU0 SFFC:PC(SS)SF::"RECORD ";::R::# FC".";:5::H$(FC);::" - ";:V(FC)(37)1:H(FC)(36)1:M$(CM,FCL(X1)),H$(X):RE%015* :CL%,N$:16Q :"ERROR READING FIELD NAMES!":5Y 17 :11:"* STANDARD INPUT *":34,6:I$N$".I":V$N$".V":OP%,I$,D4:OP%0įCR%,I$,D4 CL%,I$:102 :RCRR23 34,2::10:11:"THIS FILE IS FULL!":"CLOSE":FX%:(222)1311 ::7:9:"PLEASE INSERT PROGRAM DISK":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:7 ::10:12:"* LOADING MENU *":D$"RUN MENU,D1": LLCL(NC)NC:OP%,N$,(LL),D4:OP%015 X1NC:RE%,N$,(0,CV,R1":D2:D3:D$"CLOSE":216,0:X1NC:CL%(X)(CL(X)CL(X1))1::D22İ123U 12 216,0:D$"CLOSE":FX%::"ERROR READING VARIABLE FILE!" :"PRESS (RETURN) ";Z$ :CL%,N$ 9 D$"BLOAD MENU,D1":216,0:D$"CLOSE":10 216,0:D$(4)"BRUN AMPER FACTORY.OBJ0,D1":TV(901):PC(88):CL%(88),CL(88),H$(88),Q$(88),V(88),H(88):TY1:D$(4):I(868):X869(868I):N$N$((X))::D11:D42:4M D$"OPEN"N$".V,L498,D2":D$"READ"N$".V,R0":NC:RC:RR:X1NC:CL(X)::D$"READ"N$".      FORMAT":10);"2. LIST MONITOR FORMAT":10);"3. CUSTOM INPUT FORMAT":10);"4. CUSTOM OUTPUT FORMAT":10);"5. FILTER FORMAT":10);"6. UPDATE FORMAT"O10);"7. RETURN TO MENU"::10:"SELECT (1-7) ";X$:X0:X$""X(X$)P((X1)(X7))78G108:D$"RUN FILEINFO,D1"8H108:D$;"RUN LIST,D1"PI108:D$;"RUN C,D1"lJ108:D$;"RUN INDEX,D1"K108:D$;"RUN MATH,D1"L108:D$;"RUN PRINTVAR,D1"MCA$(105)N:5:"SELECT WHICH TYPE OF FORMAT TO DELETE"::10);"1. LIST PRINTER108:D$;"RUN UPDATE,D1"5?108:D$;"RUN REPLACE,D1"M@108:D$;"RUN S,D1"jA108:D$;"RUN INSCHN,D1"B108:D$;"RUN RECONFIGURE,D1"C108:D$"RUN DELREC,D1"D108:D$"RUN DELFILE,D1"E108:D$;"RUN FMTED,D1"F108:D$"RUN PASSWORD,D1"N"N$".I,D2":D$"WRITE"N$".I":P1RC:P::D$"CLOSE":?959e:D$"RENAME"H$","G$",D"V3:216,0:;216,0:FX%:(222)6ı<:"ERROR "(222)" IN LINE 2540":P14000::=D$"OPEN DATA FILES,D2":D$"WRITE DATA FILES":1:F$:D$"CLOSE":>D$;"RUN STDINP,D1"2/108:D$;"RUN ED CUSTOM,D1"@0EO0:55p1D$"OPEN"N$".I,D2":D$"READ"N$".I":RC1542P1RC:R:((R1)(RRC))523B%(R)0B%(R)R:534EO156D$"CLOSE":216,0:7216,0:D$"CLOSE":FX%:EO1:68D$"OPE216,0:D$"CLOSE":FX%:EO1:*:7:3:"SELECT ONE OF THE FOLLOWING:"::5:"1. STANDARD INPUT":5:"2. MICRO LAB'S CUSTOM INPUT":5:"3. RETURN TO MENU"::14:"WHICH?";Z$:S0:Z$""S(Z$)+((S1)(S3))42,S33-S247.108:N$".V,R0":NC:RC:RR:R1NC:CL(R)::D$"WRITE"N$".V,R1":D2:D3:D$"CLOSE":]%EO0:41&((PD3)(PD2))ĺD$"CLOSE":D$"OPEN"N$",L"RL",D"V2:PD2'((PD3)(PD1))ĺD$"CLOSE":D$"OPEN"N$",L"RL",D"V1:PD1(D$"READ"N$",R"P:C$:216,0:)TH YOU....":X1300::D$"PR#"((47081)16):<!EO0:35"D$"OPEN"N$".V,L498,D2":D$"READ"N$".V,R0":NC:RC:RR:P1NC:CL(P)::D$"READ"N$".V,R1":D2:D3:D$"CLOSE":216,0:#216,0:D$"CLOSE":FX%:EO1:O$D$"OPEN"N$".V,L498,D2":D$"WRITE"BA(W)1İ173\BC(W)42,62,63,65,67,64,71,66,68,72,74,77,73,75,69,107,31,109,32,30,76c3108:D$"RUN STDSEARCH,D1"108:D$;"RUN I,D1". ::8:5:"INSERT BOOT DISK INTO DRIVE 1"::10:"AND PRESS (RETURN) ";Z$::7:"NICE WORKING WIL,2):DCDC1:DCDB19' :34,(37)[ "SELECT (1-"DB")";:" ";X$:W0:X$""W(X$)u W49ĉ:171:108:70 ((W1)(WDB))ė:22 BB(W)1İ33:((EO0)(RC1))ė:13:"FILE IS EMPTY!":12:"PRESS (RETURN) ";X$::22 :BA(W)0İ171DA(0)15" DC".";:5:A$(DC,0);6 DCDA(1)ĺ:17Z 20:DCDA(0)".";:24:A$(DC,1) DCDC1:((DCDA(0))(DCDA(1)))13 LDA(0)DA(1):DCL1::10::"":: DC".";:5:A$(DCL,2);:DCDC1:DCDBĺ:21 20:DC".";:24:A$(DCA(L),L)L:AB(DA(L),L):AC(DA(L),L):6S DB0:L02:DBDBDA(L)::DC1:CA1:CB0 BA(DC)AA(CA,CB):BB(DC)AB(CA,CB):BC(DC)AC(CA,CB):DCDC1:DCDB12 CACA1:CADA(CB)CBCB1:CA1 9 DC1::5:"";:24:"":: DC,1,14, "DELETE FILES",0,0,9 , "OUTPUT EDITOR",1,0,16, "PRINTER CONTROL",1,0,21, "SELECT FILES",0,0,17 , "DELETE FORMAT",2,0,12, "REPAIR/RENAME",2,0,18  "EXIT",2,0,19, "",0,0,0:L02:DA(L)0: Z$:Z$""8& L:DA(L)DA(L)1:A$(DA(L),L)Z$:AA(D,0,1, "INSPECT/CHANGE",0,0,4, "SORT",0,1,6, "UPDATE",0,1,2, "REPLACE",0,1,3, "DELETE RECORDS",0,1,5, "RECONFIGURE",0,0,8, "INPUT EDITOR",0,0,15, "FILE INFO",1,0,7  "LIST/REPORT",1,1,10, "SEARCH",1,1,20, "MASTER SEARCH",1,1,13, "INDEX",1,1,11, "MATH",1'(4)"BRUN AMPER FACTORY.OBJ0,D1"CL(88),B%(1500):D$(4):I(868):X869I868:N$N$((X)):X:DA(2),A$(24,2),AA(24,2),AB(24,2),AC(24,2),BA(48),BB(48),BC(48) :11)"MENU SELECTION LIST":((40(N$))2)::N$::::Q%1: "ENTER DATA",0          D2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%094`\BCL(CF1):WR%,N$,(R,B),Z$:WR%095f]^22:958:"ERROR "OP%;:96_22:958:"ERROR "WR%;`" RECORD "R" FIELD "CF:"PRESS (RETURN) ";Y$:OP%0ıa:19bFCFC1:FCNC62(Z$)CL%(CF)))87kV21:1:958:9:"JUSTIFY FIELD (Y/N) ";JF$:JF$"Y"Q$(CF)Z$" ":Z$Z$" ":J%(CF)1W21:868:H$(CF)Q$(CF)X90:((CFAG)(R0))K$(R)Z$YFCSF:63Z((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%0945[((QCF0:Z$""CF(Z$)0N((CFSF)(CFFC))71]O21:1:958:"PRESS (CTRL-A) TO REPEAT"PV(CF):H(CF):Z$Q$(CF):KE%,4,Z$,CL%(CF):KE%82,83,80,80,80,80,89Q80RTR%,Z$:84SZ$"":84TQ$(CF)Z$:R088UJ%(CF)0:((CL%(CF)2)(CH40)2:((37)CV)1971*FFCFC1:64G21:958:"PRESS ("SF"-"FC") TO CHANGE OR":"(C) CONTINUE (E) RESTART (R) REVIEW":"(S) SKIP (Q) QUIT ";Z$:Z$""98HZ$"C"98IZ$"E"100JZ$"R"61KZ$"S"99LZ$"Q"6M::R::x@FC".";:5::H$(FC);::" - ";:V(FC)(37)1:H(FC)(36)1:Q$(FC);:BS(FC)CL%(FC)(Q$(FC)):BS(FC)166AX1BS(FC):" ";:B((R0)(J%(FC)1))ĺ" (J)";C:FCNC71DCH(CL%(FC1)2)7:((R0)(J%(FC1)1))CHCH4ECV(%,N$,(R,B),Q$(F3):RE%055"4(5H622:958:"ERROR "OP%;:56d722:958:"ERROR "RE%;8" RECORD "R" FIELD "F3:"PRESS (RETURN) ";Z$:OP%052953:TC1101;SC1<RR%(SC):F11:F2NC:49=FC1>SFFC ?:"RECORD ";:958:41),TR%,DT$:(DT$)1DT$" "1-47<.DT$""E/147R0SQ0:191BF1F2:Q$(B)""::((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%0542((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%0543F3F1F2:BCL(F31):REURVIVOR LIST IS EMPTY!":"PRESS (RETURN) ";Z$:19_&TCS%(0):X1S%(0):R%(X)I%(S%(X))::59':9:"PRESS (CTRL-B) TO EXIT"(:8:"ENTER ITEM TO SEARCH FOR":SQ1:)(CL%(Y)40)Ė((40CL%(Y))2)*KE%,1,DT$,CL%(Y):KE%44,46,48 +17:1D$"OPEN"N$".S,D2":D$"READ"N$".S":S%(0):S%(0)133O X1S%(0):S%(X):i!D$"CLOSE":216,0:36"216,0:D$"CLOSE":FX%::"ERROR READING INDEX FILE!":5#216,0:D$"CLOSE":FX%::"ERROR READING SURVIVOR LIST!":5$S%(0)0381%:"S FIELD (1-"NC")";:" ";Z$:Z$"F"İ128::25D Y0:Z$""Y(Z$)\ ((Y0)(YNC))40q 13:1:958:23 :9::"READING SURVIVOR LIST"::CL%,N$:QD0:SQ0:34 D$"OPEN"N$".I,D2":D$"READ"N$".I":X1RC:I%(X)::D$"CLOSE":216,0:357ELECTED RECORDS":8:"2. 'ENTRY' SEARCH":8:"3. SURVIVOR LIST":8:"4. RETURN TO MENU"::8:"SELECT (1-4) ";Z$:Z0:Z$""Z(Z$) Z419 RC1ĭ((Z2)(Z3))19 Z102,25,29,6 19, :8:"PRESS (F) TO VIEW FIELDS":5:"FOUND IN WHICHNC:RE%,N$,(0,CL(X1)),H$(X):(H$(X))1ĭ(H$(X),(H$(X)),1)" "J%(X)1Y RE%016h :QD1:17 :"ERROR READING FIELD NAMES!"::"PRESS (RETURN) ";Z$ 144 :11:"* INSPECT/CHANGE *":34,2 :CL%,N$:QD0:SQ139 7:8:"1. S0* 216,0:D$"CLOSE":FX%:(222)1311 ::7:9:"PLEASE INSERT PROGRAM DISK":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:7 ::10:12:"* LOADING MENU *":D$"RUN MENU,D1": LLCL(NC)NC:OP%,N$,(LL),D4:OP%016J X1X)::D$"READ"N$".V,R1":D2:D3:D$"CLOSE":216,0:X1NC:CL%(X)(CL(X)CL(X1))1::D22İ137g 12 216,0:D$"CLOSE":FX%::"ERROR READING VARIABLE FILE!" :"PRESS (RETURN) ";Z$ CL%,N$ 9 D$"BLOAD MENU,D1":216,0:D$"CLOSE":1(4)"BRUN AMPER FACTORY.OBJ0,D1":BS(88),CL%(88),CL(88),H$(88),I%(1500),Q$(88),R%(1500),S%(1500),V(88),H(88),J%(88):D$(4):I(868):X869(868I):N$N$((X))::D11:D42:4_ D$"OPEN"N$".V,L498,D2":D$"READ"N$".V,R0":NC:RC:RR:X1NC:CL(          7)"PRESS FOR NO":73:ABYN0:17:14::"";:30:"NO";:GABYN1:16:14::"";:30:"YES";:HZ1300::15:958:YESYN:IAB0:20:958:14)"";:24:SB$::SB$(14)AB1:750:AB0:16368,0:20:958:14)"";:SB$::SB$(17)AB1:67YBSB$" "65oC20:958:1002:D20:958:WMWM0:E20:17::"WORKING"::15:"PLEASE WAIT"::WM1:`F15:958:16:7)"PRESS FOR YES":<E16::Q1NC30:W014:QWNCĺ:63X=QW;" ";:(F$(QW),E);:QW15NCĺ:63~>20:QW15;" ";:(F$(QW15),E)?:21:"";:DM$:::@:11:CS20:CP(CS((CP$))2.5):CP);CP$::CP(CS((CQ$))2.5):CP);CQ$:CQ$"":HA0:$(X,1)"D"P$"DATE"C815A:P$;:P$"ASC":SL$(X,2)"D"P$"DSC"922A:P$;::::A5)"IS THIS CORRECT ?"::AA4:A1)"0-ALL CORRECT":A1)"1-"LC" CHANGE THIS ENTRY"::A2)"WHICH: ";:DM$:DM$"0"ı:A(DM$):A1ALC54;XA:44:54*X,2)"A":B2(B2)SL$(X,2)"D"93SL$(X,1)"W":B3ıQ4SL$(X,1)"N":B5ıd5SL$(X,1)"D":6A7::::A)"LEVEL FIELD TYPE ORDER":A)"----- ----- ---- -----":X1LC:3A:X;:9A:"#";SL$(X,0);:P$"WORD":SL$(X,1)"N"P$"NUM"7SLA)"2) WORD SORT - DESCENDING"::A)"3) NUMBER SORT - ASCENDING":A)"4) NUMBER SORT - DESCENDING"::A)"5) DATE SORT - ASCENDING":A)"6) DATE SORT - DESCENDING":Y15::022:A3)"WHICH: ";:DM$:B(DM$):DM$(17)141B1B6Ė1:48!2SL$(4:SEQ$(Y)::FIRST (PRIMARY), SECOND,THIRD,FOURTH:S,CP$SEQ$(X)" SORT FIELD"-CQ$"FIELD NUMBER ?":64:::18)"#";:"";B$:B$(17)14.SL$(X,0)B$:(B$)1(B$)NC45/CQ$"SELECT SORT TYPE":64:::A6:A)"1) WORD SORT - ASCENDING":"A(107)((108)256))#(A$)137L$(A1)(((A$,2,1)))12839k%(A)(((A$,1)))12839q&'AA((A2)(A3)256):A((109)(110)256)35("ARRAY NOT FOUND!":)68:10(X2):30:"STORED ";:*(SEQ$(1))ı5+Y1:S(M)0:S$(M)""S(M)(S$(M))::QS%,S(0),S%(0):31OQS%,S$(0),S%(0)eSL$(X,2)"D"İ89 20:958:10(X2):22:"SORTED ";:!30::"STORING";::68:10(X2):A$"S":A0:34:(4)"BSAVE"A$"L"X",A"A",L";(A2)((A3)256);",D"D1:41D ";: 22::"SORTING";::21:16:"SORT:";SL$(X,1)" - ";SL$(X,2):S$(0)"":S$(RC1)(255):SL$(X,1)"N"S(RC1)1E36:S(0)S(RC1) SL$(X,1)"D"27 26 Y1RC:DC%,S$(Y) :88 30 FX%:24 SL$(X,1)"N"30 M1RCOF$;CL(NC)NC;",D"D1:R1D3:S%(R)R:RF$;R;",B";BYT:S$(R)"":IN%,S$(R):S$(R)""S$(R)" "r R:CL$:RCD319 OF$;CL(NC)NC;",D1":RD31RC:S%(R)R:RF$;R;",B";BYT:S$(R)"":IN%,S$(R):S$(R)""S$(R)" " R:CL$ 68:10(X2):14:"LOADE2 CQ$"PLACE DISK IN DRIVE #1":64:65d 38395,LC:X1LC:38395X,(SL$(X,0))::13 (4)"RUN LEVEL SORT 2,D1" FX%:8 ::12:10:"* LOADING MENU *":(4)"RUN MENU,D1"\ 14::"LOADING";::68:22:BYTCL(((SL$(X,0))1)):S":CQ$"-----------------":64:24:Y14:::X1LC:10(X2):1:X;")";:4:"FLD #";SL$(X,0)::X1LC:10(X2):4::"FLD #"SL$(X,0);::15:20 33:4:"FLD #"SL$(X,0);:::X12:(7);: CP$"PHASE ONE COMPLETED":D1110 D22İ64:11LC55_ (7):CP$"IMPROPER SPECIFICATION!":CQ$"MUST BE BETWEEN 2 AND 4":64:X12000::2 CP$"SORT "(LC)" LEVELS DEEP":CQ$"IS THIS CORRECT?":64:70:YES2 60:X1LC:44::54:CP$"THANK":CQ$"YOU":64:X1500::CP$"LEVEL SORT STATU79:90:42:SL$(4,2):76:S$(RC1),S%(RC),S(RC1):F$(NC):OF$;CL(NC)NC:X1NC:RF$;"0,B"CL(X1):F$(X)"":IN%,F$(X)::CL$:60CP$"NUMBER OF LEVELS TO SORT?":CQ$"UP TO FOUR (4)":64::17)"-->";:DM$:DM$:DM$(17)14 LC(DM$):LC1     (4)"BRUN AMPER FACTORY.OBJ0,D1":BS(88),CL%(88),CL(88),H$(88),I%(1500),Q$(88),R%(1500),S%(1500),V(88),H(88):D$(4):I(868):X869(868I):N$N$((X))::D11:D42:4X D$"OPEN"N$".V,L498,D2":D$"READ"N$".V,R0":NC:RC:RR:X1NC:CL(X)::D         TC)X'+AE3ĭSS%0TCTC1:R%(TC)X1+:52IAE1237*AJ11*MA%,DT$,K$(AJ):MA%152]*TCTC1:R%(TC)MA%:AJMA%1:AJRC234e*52*X1RC:SS%,DT$,K$(X):AE2ĭSS%1TCTC1:R%(TC)X*AE3ĭSS%0TCTC1:R%(TC)X*:52)+X1RC:SS%,DT$,K$(X):AE2ĭSS%1TCTC1:R%(AGAH0:AI0:2320)CL%(Y)ADAH1:AI0:227C)AH1:AI1:AGY)F1Y:F2Y:R1RC:43:GA%:AE1ĭQ$(Y)DT$TCTC1:R%(TC)R)SS%,DT$,Q$(Y):AE2ĭSS%1TCTC1:R%(TC)R)AE3ĭSS%0TCTC1:R%(TC)R)AI1K$(R)Q$(Y))GA%::52 *ABLL3150:AD(((0)AB)RC):AD0AD09(K$(RC):118(:8:11:"SELECT SEARCH TYPE"::13:"1. FULL":13:"2. PARTIAL":13:"3. SUBSTRING":13:"SELECT (1-3) ";Z$:AE0:Z$""AE(Z$)(((AE1)(AE3))222):10:13::"* SEARCHING *"::Y"(A1)(((B$,2,1)))12834A (A)(((B$,1)))12834G!}"AA((A2)(A3)256):A((109)(110)256)30#"ARRAY NOT FOUND!":$%&::12)"* LEVEL SORT *":X140:"-";::34,3::'I1RC:Y%(I)X%(I)::N DRIVE #1":20:21LN(218)((219)256):CP$"ERROR #"(ER)" OCCURED IN LINE #"(LN):CQ$"PLEASE NOTIFY PROGRAMMER!":20:A0:29:48225,96:(4)"BLOAD"X$",A"A",D"D1:48225,169:A,(B$)128:36A(107)((108)256)(B$)132CLOSE":D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$:D$"OPEN"N$".V,D"D1",L"VL:D$"READ"N$".V,R0":NC,RC,RR:CL(NC):X1NC:CL(X)::D$"READ"N$".V,R1":D2,D3:CL$:LLCL(NC)NC:D22CP$"PLACE VOLUME #2 DATA DISK":CQ$"I0:20:958:14)"";:SB$::SB$(17)AB1:23J SB$" "21` 20:958:1002:QVL498:D$(4):D1(864):P$((865)):P1$((866)):S$((867)):I(868):X869I868:N$N$((X))::RF$D$"READ"N$",R":OF$D$"OPEN"N$",L":CL$D$"::12:10:"* LOADING MENU *":(4)"RUN MENU ,D1"? CL$:14f 20:958:5::"[ SCANNING ]":: 20:958:25::"[ MERGING ]":: :11:CS20:CP(CS((CP$))2.5):CP);CP$::CP(CS((CQ$))2.5):CP);CQ$:CQ$"":9 0:0:AB0:16368, FLGFLG0:2' A:FLGP2RC:2 D$"CLOSE":39:Z:CP$"WRITING FINAL INDEX":20:D$"OPEN"N$".I,D"D1:D$"WRITE"N$".I":X1RC:X%(X)::CL$:D1114 D2215 :CP$" PLACE DISK ":CQ$"INTO DRIVE #1":20:21 37:172 "LL",D"DN:D$"READ"N$",R"CR",B"CL(LC(Z)1):H$"":IN%,H$:PD0:A2RC:P2A1:CRX%(A):D11DND1:7 DN(CRD3)1:DNPDPDDN:CL$:OF$LL",D"DN D$"READ"N$",R"CR",B"CL(LC(Z)1):F$"":IN%,F$:F$H$H$F$:10 FLG1:P1P1(A1) P2A:11):P10:18: 38:CP$"LOADING FILE VARIABLES":20:24:X%(RC),Y%(RC):X$"SL"(LC):B$"Y":28:B$"X":Z(LC1)11:CP$"MERGING LEVEL "(Z1):CQ$"INTO LEVEL "(Z):20:18:X$"SL"(Z):28:CRX%(1):D11DND1:5 DN(CRD3)1d D$"OPEN"N$",L;A$"":LC(38395):X1LC:LC(X)(38395X)::A$"":3 19:15:17:"GAP="P2P1" ":DM(P2P1)2:E(DM),F%(DM):E(DM)RC1:XP1P2:Y(XP1)1:MA%,X%(X),Y%(0):E(Y)MA%:F%(Y)Y::QS%,E(0),F%(0):XP1P2:Y(XP1)1:X%(X)Y%(E(Y))::DA%,E(0),F%(0     ""91Y103&Z(37):1:958:87Q[IL(Z$):FV(Z$):((FV1)(FVRC))90j\(FV)Z$SVFV:100]SL((FV)):SLIL90^(Z$,SL1,1)"-"90_(SL1)IL90`Z1$(Z$,SL2):SV(Z1$):((SV1)(SVRC))90a(SV)Z1$90bFVS:TC0:18VT22:1:958:9:"NO RECORDS TO PROCESS!":12:"PRESS (RETURN) ";Z$:18U:SQ0:9:"SELECT RECORDS (1-"RC")":1:"PRESS (RETURN) TO TERMINATE SELECTION":34,5VTC0:W7:TC1;:11:" --->";:" ";Z$:((Z$"")(TC0))102XZ$K$(R)Z$3KBCL(CF1):WR%,N$,(R,B),Z$:WR%078;L:[M22:958:"ERROR "OP%;:79wN22:958:"ERROR "WR%;O" RECORD "R" FIELD "CF:"PRESS (RETURN) ";Y$:OP%076P:18QFCFC1:FCNC60RSCSC1:SCTC59 SX1TC:R%(X)0:"(R)ESTART (S)KIP (Q)UIT ";Z$:Z$"C"819CZ$"D"115HDZ$"R"83WEZ$"S"82eFZ$"Q"6mG66H((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%077I((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%077JCFF1F2:CFAG5::H$(FC);::" - ";:V(FC)(37)1:H(FC)(36)1:Q$(FC);:BS(FC)CL%(FC)(Q$(FC)):BS(FC)163y>X1BS(FC):" ";:?:FCNC66@CH(CL%(FC1)2)7:CV(CH40)2:((37)CV)2066AFCFC1:61)B22:958:"SELECT (C)ONTINUE (D)ELETE OR":053 231422:958:"ERROR "OP%;:54M522:958:"ERROR "RE%;6" RECORD "R" FIELD "F3:"PRESS (RETURN) ";Z$:OP%0507518TC1849108:SC1;RR%(SC):F11:F2NC:47:FC1<SFFC::"RECORD ";::R::a=FC".";::(DT$)1DT$" "+45%,DT$"".-135;.SQ0:18/BF1F2:Q$(B)""::((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%0520((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%0521F3F1F2:BCL(F31):RE%,N$,(R,B),Q$(F3):RE%ф"PRESS (RETURN) ";Z$:18H$TCS%(0):X1S%(0):R%(X)I%(S%(X))::108k%:9:"PRESS (CTRL-B) TO EXIT"&:8:"ENTER ITEM TO SEARCH FOR":SQ1:'(CL%(Y)40)Ė((40CL%(Y))2)(KE%,1,DT$,CL%(Y):KE%42,44,46)17:1:958:39*TR%,DT$"READ"N$".S":S%(0):S%(0)1317X1S%(0):S%(X):QD$"CLOSE":216,0:34 216,0:D$"CLOSE":FX%::"ERROR READING INDEX FILE!":5!216,0:D$"CLOSE":FX%::"ERROR READING SURVIVOR LIST!":5"S%(0)036#:"SURVIVOR LIST IS EMPTY!":6::23 Y0:Z$""Y(Z$)7 ((Y0)(YNC))38L 13:1:958:21 :CL%,N$:QD0:9::"READING SURVIVOR LIST"::CL%,N$:QD0:SQ0:32 D$"OPEN"N$".I,D2":D$"READ"N$".I":X1RC:I%(X)::D$"CLOSE":216,0:33D$"OPEN"N$".S,D2":D$RECORDS":5:"2. 'ENTRY' SEARCH":5:"3. SURVIVOR LIST":5:"4. RETURN TO MENU"::5:"SELECT (1-4) ";Z$:Z0:Z$""Z(Z$) Z418 Z85,23,27,6 18 :8:"PRESS (F) TO VIEW FIELDS":5:"FOUND IN WHICH FIELD (1-"NC")";:" ";Z$:Z$"F"İ11N MENU,D1":8 LLCL(NC)NC:OP%,N$,(LL),D4:OP%015i X1NC:RE%,N$,(0,CL(X1)),H$(X):RE%015x :QD1:16 :"ERROR READING FIELD NAMES!":5 132 :11:"* DELETE RECORDS *":34,2 :CL%,N$:QD0:SQ137| 5:"1. SELECTED 000::CL%,N$ 9B D$"BLOAD MENU,D1":216,0:D$"CLOSE":10k 216,0:D$"CLOSE":FX%:(222)1311 ::7:9:"PLEASE INSERT PROGRAM DISK":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:7 ::10:12:"* LOADING MENU *":D$"RU$"READ"N$".V,R1":D2:D3:D$"CLOSE":216,0:X1NC:CL%(X)(CL(X)CL(X1))1::D22İ125` 12 216,0:D$"CLOSE":FX%::"ERROR READING VARIABLE FILE!" :"PRESS (RETURN) ";Z$ :8:10:"USE RECONFIGURE(REWRITE)":12:"TO COMPACT FILE":X12L}~@~~P~~`~ip~i~` Ҡ ӠŠҠDLAL Bq<ȥCq=8m>mȥn?n , ,(L)LH h,L~Lh L~L`A@~*@~^P~_^oL*}p~^~_ȥo^ȥp^Ll|8om~pn~]v^^v_~^ȭ~^`$$`^0ȱ^08`^q^_q^_^`L?~~ȱ~ȱ~~o~pv~m~nj~@~~P~\~@~~P~44"A~@~Q~P~a~`~q~p~~~ȭQFNCĹ34,(34)2:z3{QFQF1:QFNC117<|121F}127s~D$"BLOAD"N$",D1":D$"CLOSE":216,0:131216,0:D$"CLOSE":FX%:(222)13131130D$"OPEN"N$",D1":D$"READ"N$:Z$:D$"CLOSE":216,0:131216,0:D$"CLOSE":FX%:F11:F2NC:Z$"@":114:72:82Mt:"FIELD# LENGTH NAME":34,(34)2:QF1:uQF;:8:"("CL%(QF)")";:15:QL(H$(QF)):QL22QL22v(H$(QF),1,QL);:((QL2)((H$(QF),1)" "))ĺ:120w38:"(J)"x(37)20123y23:"PRESS (RETURN) ";Z$:IONS ALLOWED!":X12000::90_l:3:10:"(A)UTO (M)ANUAL (R)ESTART (Q)UIT ";Z$:Z$"A"113nmZ$"M"58}nZ$"R"83oZ$"Q"6p108qTS1TC:F11:F2NC:Z$"@":RR%(TS):114:72::83r22:958:11:"DELETING RECORD ";::R::sV105 c(TC(FVSV)1)RC107@dXSVFV:TCTC1:R%(TC)X:NeTCRC87}f:10:"ALL CORRECT (Y/N) ";Z$:Z$"Y"86g34,2:TC0108h18i(TC(SVFV)1)RC107jXFVSV:TCTC1:R%(TC)X::101k(37):6:958:"ONLY "RC" SELECT٠Ϡ堤ĥ堠頠̠ԓ̠涠Ϡ堤Ė̠ͥ͠蠠ҠΉᠮ蠽Ėӯ蠠ҠΉᠮ蠽ĬLe e ` & e e ` 蘝 ` ʼʽ ```$ ) I`Hh``` `(`LL֠ı堠頠𺷰ŀ躱𠩠戠  Lu Lu Y8 YiiLii Y Y8Ly L g gLy `     H h   E   EH h ` H H & $  & he he  ȱ  8 $  L ȱ ȱ  С!L̒ L   E ȥ 88ii { ii {80LLii8Jfee   E   $  LO mѐiɐ ȐL_ϐдАL ϐАyzАȭϐ`$$`4 hhՐȱ֐Ր֐Ր֐HՐH4`ЃQLSLLv t $0$  ȱLҐӐ Ԑ ޥHH ߍƐǐ ԐLhh HH g RPϐQАhhLޠqȐȥqɐƐǐԐِѐ ҐӐѐуLgmѐiɐ ȐL_ϐАLˏҐӐу"HȱȱhLgُ44"ЎώLGߎ᎙iiώ` Ҡ ӠŠҠINL& ߥ0Lޢ uH h)ȹ`MALܐ i_^LL8ooppݟoݏ*^_^oLy^ώ_ȥo^ȥp^L8om㎥pn䎭y^z_䎑^ȭ㎑^`$$`^0ȱ^08`^q^_q^_^`Lȱߎȱߎopvߎmnjߎ͏ퟎ\h,LLh LRL`FXLhhhߚHH`GAL L g %0@0L 8pn⎐ ㎍Lstopij^_lkL ԍ^i_i ^i^_i_LӌnmLJ ԍ L^ ie^_i i; SVsotp`LV{ ߍyzɀLޥ))L|DLӋCLӋ ߅LȱȱˋËˋ`ҰDLSALS Bq<ȥCq=8m>mȥn?n ,R ,(RLC)RLCHR      ITE"N$".PW":PW$:D$"CLOSE":13wT:"FIELD# LENGTH NAME"::34,2:Y1X:Y;:8:FL(CL(Y)CL(Y1))1:FL0ĺ"("FL")";UM(H$(Y)):M22M22VM188W15:(H$(Y),1,M);:38:(H$(Y),1)" "ĺ"(J)";:89XY(37)1891Z:#[20:1:)::D$"WRITE"N$".V,R1":1:0:D$"CLOSE"SD$"OPEN"N$",L"LL",D2":X1NC:D$"WRITE"N$",R0,B"CL(X1):H$(X)::D$"CLOSE":D$"OPEN"N$".P,D2":D$"WRITE"N$".P":80:1:66:1:"F":1:"Y":"P":"C":1:0:"":2:"Y":"N":D$"CLOSE":D$"OPEN"N$".PW,D2":D$"WR"RS"-239)";:" ";Z$:Z$""70>QZ(Z$):((ZRS)(Z239))80(RRR(19500(Z3))::7:10:"* WRITING FILE VARIABLES *":D$"OPEN DATA FILES,D2":D$"WRITE DATA FILES":1:N$:D$"CLOSE":D$"OPEN"N$".V,L498,D2":D$"WRITE"N$".V,R0":NC:0:RR:X1NC:CL(XTCL(X)70LXNC70FMVTCL(X):Y(X1)NC:CL(Y)CL(Y)V::70NLLCL(NC)NC:RS((19500(220160LL)))3:RS10RS10ORS239RS239P:9:5:"PRESS (RETURN) TO VIEW FIELDS"::"ENTER THE LENGTH OF THE LONGEST FIELD":8:"YOU WILL SORT (:64iFXNC:84:20:"0 ";::6:"ALL CORRECT"::"1-"NC" ";::6:"EDIT"::NC1" ";::6:"RESTART":G"SELECT (0-"NC1") ";:Z$:Z$"0"ĉ:78HZ0:Z$""Z(Z$)I((Z1)(Z(NC1)))Ģ23:1:958:71JZNC1ĉ:47 K:XZ:TCL(X):48:<TR%,Z$:((L2)((Z$)L))63Q=9:23:"JUSTIFY FIELD (Y/N) ";J$:J$"Y"63_>Z$Z$" "n?H$(X)Z$:v@48AOC1OC0:68BXX1:X89NC88:70C53:65DX1NCX1:70E:4:10:"PLEASE INITIATE AT LEAST 1 FIELD":Y12000:2Z$""53*3(Z$)2İ84:OC1:91:48J4L(Z$):((L0)(L240))54^55:1:958:49x6CL(X)(CL(X1)(L1))7:9:"ENTER NAME OF FIELD ";::X::8KE%,1,Z$,L:KE%60,58,5999:1:958:56:Z$"":63;84:OC1:91:OC2:48:39 +X1%,((N$,X,1))44428-XX1:XL44G.23:PW$Z$S/X1:640:5:"PRESS (CTRL-B) TO VIEW FIELDS"::8:"PRESS (0) WHEN FINISHED"::OC2OC0::5513:"ENTER LENGTH OF FIELD ";::X;::" (1-239)";:" ";Z$:Z$"0"OC1: ETURN) ";Z$:9:"NICE WORKING WITH YOU":X12000::::(4)"PR#"((47081)16):Y&93':12:9:"ENTER FILE NAME"::7:KE%,1,N$,25:KE%41(39)TR%,N$:L(N$):AV((N$,1)):((AV64)(AV91))43*::12:"ILLEGAL FILENAME"::X12000:"":33 Z$(Z$,SP1)8 !HSSP:(95);:SPSP1:24n "HS:Z$;:X1500::HS:X1(SP1):(95);::24 #23:Z$PW$ı $:12::"INVALID PASSWORD"::X11000::35Q%:9:8:"PLEASE INSERT BOOT DISK":14:"INTO DRIVE 1":10:"AND PRESS (R216,0:FX%:G0:X :13:9:"ENTER PASSWORD"::HS7:Z$"":SP0:HS:X125:(95);:{ HSSP:Q$:AV(Q$):AV13ĺ: AV2234 AV830 ((AV32)(AV90))24 SP2424 Z$Z$Q$:HSSP:(95);:SPSP1:24 SP124 SP1Z$866,(P1$):868,(N$):X869((N$)868):X,((N$,X868,1)):::12:10:"* LOADING MENU *":D$"RUN MENU,D1": 216,0:D$"CLOSE":FX%:PW$"":13 G0:22 D$"OPEN DATA FILES,D2":D$"READ DATA FILES":G:X1G:F$(X)::D$"CLOSE":216,0: PEN"N$".PW,D2":D$"READ"N$".PW":PW$:D$"CLOSE":216,0:PW$""İ35y :P1$"Y":6:9:"ENTER TODAY'S DATE OR REMARK": 11:10:KE%,1,DA$,20:KE%16,17 14 TR%,DA$:18 DA$""p D$"OPEN DATE,D2":D$"WRITE DATE":DA$:D$"CLOSE":864,2:1". ";::"CATALOG ANOTHER DISK"::G2". ";::"INITIATE A NEW FILE"::G3". ";::"QUIT":: "SELECT (1-"G3") ";:Z$:Z0:Z$""Z(Z$) ((Z1)(Z(G3)))Ģ(37):1:958:6 ZG337 ZG238 ZG12 N$F$(Z):19C D$"O T(4)"NOMON C,I,O":(4)"BRUN AMPER FACTORY.OBJ0,D1":CL(88),H$(88):D$(4):3::9:8:"PLEASE INSERT DATA DISK":14:"INTO DRIVE ";::"2"::10:"AND PRESS (RETURN) ";Z$20::14:"SELECT FILE:"::G05X1G:X". "F$(X):_ G     2ȱPWȱPVPqPTȥQqPUXYRS8``$$`4i hiPhiQ8PȱPHH8PȱPHH4`KE L KEYIN3 g RQP,IL8Lԋ ߍ$0$0L Lԋ  WLV  8LV) LV8LVL"`  Lm(`  ` H$h )(` ]v^vވuڥv  _v`]v^vȑ`LZ8PQPŁAȱPł:P 4 w w`Hȱh 4 w w` wĝ w`  +` ᅅ e` 㥝 P` L m`ia`H` Jh`8L ` PQ *䥠 5L RP :L9PVQW`8VVWW`YWXV ɇLćyƇiU TkLŇ g ɇLXYLL`ć g{`ć gÇY4`XY RSć +L 4ȹ  LXY`  L  ` L   L ` ` ` ݆ ` ` ` ݆ `Ň L`Ň L`RS RP :LPVQW` :L܆VW` :L9HH Jhh8` $QP  ɠ؈đP ˈ` Hȱ h  L $੠ QPP `  ȭ ȥ  C 5)ͯL` ߅ ZL` L ( L& #,) L܄R&LB&&.Hʽ,$h g R&ʘ]&&L|Lޭ ` Hȱ h qjCLL> ' L HLDEL '  `   ȥ L L &JJJJ b X!S&LD&LV&&. g & 0# &LLL+( g R猪 L> ` LREL ' L  ȩ < L ߅ Zć ć g{LLqć gqxWRL ' L  ȩ < L ߅ Zć ć g Y4LL߂ć g߂ciLi ]v^v`$0$0`ӠǺLŁ DISK I/O 4.4 07-JUN-84 OPL؁LCRLDL ' L+ ((T$,K$(AJ):MA%156?TCTC1:R%(TC)MA%:AJMA%1:AJRC147G56X1RC:SS%,DT$,K$(X):AE2ĭSS%1TCTC1:R%(TC)XAE3ĭSS%0TCTC1:R%(TC)X:56OADAH1:AI0:140%AH1:AI1:AGYfF1Y:F2Y:R1RC:47:GA%:AE1ĭQ$(Y)DT$TCTC1:R%(TC)RSS%,DT$,Q$(Y):AE2ĭSS%1TCTC1:R%(TC)RAE3ĭSS%0TCTC1:R%(TC)RAI1K$(R)Q$(Y)GA%::56AE1150AJ1MA%,D:AD0AD0K$(RC):17:8:11:"SELECT SEARCH TYPE"::13:"1. FULL":13:"2. PARTIAL":13:"3. SUBSTRING":13:"SELECT (1-3) ";Z$:AE0:Z$""AE(Z$)((AE1)(AE3))135:10:13::"* SEARCHING *"::YAGAH0:AI0:145CL%(Y):13:9:"PLEASE INSERT":((40((N$)6))2)::N$;::" VOL 2":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:125AB450(3(7(2(RC)))):AC0:X1NC:CL%(X)ACACCL%(X) :ABAB(2(7(2RC)))(NCAC)1000:AD(((0)AB)RC)̑LvݘL_8坍mn}ȍ͚훁L=͚Lǀhhn m ӅmnLL߀hhHH ߪhh ӭ}ȱiiAL٠Ҡ ޥHH Lޥqȥqȱ hhLi ᥡ Lhh ߮8mnńŃ愥Ŝśꥃmn8ȱ8Li 40((FM$)10))2):9:"(S)AVE AS ";::FM$:::13:"OR (R)ENAME ";Z$:Z$"S"116fpZ$"R"ė:111pqK0:r15:"WHAT DO YOU WANT TO CALL":"YOUR FORMAT?";:KE%,1,FM$,25:TR%,FM$:KE%4KE%84sFM$"A"FM$"Z"114tFM$FM$".CIF":D$;"OPENDSDSD1:109_lISD1ND:QI1:DX%(Q)DX%(I):DY%(Q)DY%(I):DN%(Q)DN%(I):FL%(Q)FL%(I):mDX%(ND)0:DY%(ND)0:DN%(ND)0:FL%(ND)0:NDND1:n:12:4:"LOAD ";::"FORMATS DISK";::" INTO DRIVE "D1:" AND PRESS 'RTN'";:X$::K0114Ro(((SD)Y100'bDY%(SD)YDN%(SD)0101/c:TdSDSDND:DX%(SD)XDY%(SD)YĂZeffNK0ı~gSKNKSKSK1:105hISK1NK:QI1:SX%(Q)SX%(I):SY%(Q)SY%(I):SK$(Q)SK$(I):iSX%(NK)0:SY%(NK)0:SK$(NK)"":NKNK1:jND0ıkSD%(SK):SKMA%1:P%P%1:P%P89:NKSKNKSKHZSKSKNK:SY%(SK)Y93d[SY%(SK)YSX%(SK)094l\:]SKSKNK:SX%(SK)XSY%(SK)YĂ^_SD1:Z%0:P%1:P197`MA%,Z%,FL%(SD):SDMA%1:P%P%1:P%P96:NDSDNDSD aSDSDND:DY%RINK1SK11:QI1:SX%(I)SX%(Q):SY%(I)SY%(Q):SK$(I)SK$(Q):QSNKNK1:fTNDSD1:ND1:tUNDSD87VIND1SD11:QI1:DX%(I)DX%(Q):DY%(I)DY%(Q):DN%(I)DN%(Q):FL%(I)FL%(Q):WNDND1:XSK1:P%1:Z%0:P190,YMA%,Z%,SX:SKNK74*HFSKNK:F%F:SX%(F%)0744I75:DJXOX:YOY:fKSX%(F%):SY%(F%):SK$(F%);:LTXX:TYY:X1:Y1:95:SDND79MISDND:DN%(I)079NDY%(I):DX%(I):(DP$,FL%(I));:OXTX:YTY:PNKSK1:NK1:QNKSK83C"J"XX1;X$"K"XX1,<X$(13)67Q=X$"Q"XOX:YOY:24:1:EL:29`>Y24Y24m?Y1Y1|@X39X39AX1X1B55CMT68,69DX$SK$(SK):102:88:80:47EDNDN%(SD):106:95:84:43FP%1:NK74 GY1:X1:88DY%(SD)İ106:44229D3MT0:88:XSX%(SK)YSY%(SK)MT1:54f495:XDX%(SD)YDY%(SD)MT2s5MT029624:1:"POSITION CURSOR AT NEW LOC & HIT RETURN";7Y:X:X$:X$"H"İ132::70:76:558X$"I"YY19X$"M"YY1 :X$+DN%(SD)DN:FL%(SD)LN%(DN):DX%(SD)X:DY%(SD)YG,:P%P:70:76:29-24:1:"INPUT TEXT:";:23:1:KE%,1,X$,40;:TR%,X$:(X$)0KE%144.88:80/SK$(SK)X$:SX%(SK)X:SY%(SK)Y:44088:XSX%(SK)YSY%(SK)İ102:44195:XDX%(SD)YP1:P1P1 $44, %(X$)21PP1:44> &(X$)17110F '20 (24:1:"ADD (D)ATA, (C)ONSTANT, OR E(X)IT?";:X$:1:EL:X$"D"41:X$"C"45:29 )24:1:"WHICH DATA FIELD #";:DN0:KE%,3,DN$,3:DN(DN$):1:EL:DN1DNMF29 *95:840X$:X$"I"YY1:25* X$"M"YY1:25@ X$"J"XX1:25V X$"K"XX1:25^ 30m X39X39z X1X1 Y24Y24 Y1Y1 Y:X:19 X$"A"40 X$"H"İ129:44 X$"D"48 !(X$)9351 "(X$)837 #Pк"SELECT (1-"B3")";:" ";X$:E0:X$""E(X$)J ((E1)(E(B3)))15] EBĉ:K0:18m EB2ĉ:4 EB3ĉ:117 EB115 :FM$CA$(ED):K1:124:17 CF5 6 OX1:OY1:P1:44 129:P1:X1:Y1: OXX:OYY T":34,4 C1! B1::F18\ B".";:5:CA$(C):DCB:BB1:CC1:((B14)(CF))70 B".";::5:"CREATE A NEW FORMAT"::B1".";::5:"CONTINUE WITH MORE FORMATS"::B2".";::5:"CATALOG ANOTHER DISK"::B3".";::5:"RETURN TO MENU":::$N$((X))::D$"OPEN"N$".V,D"D1",L498":D$"READ"N$".V,R0":NC,RC,RR:LN%(NC),LN(NC):X1NC:LN(X)::MFNC:X1NC:LN%(X)LN(X)LN(X1)1: D$"READ"N$".V,R1":D2,D3:D$"CLOSE" :8:"* CUSTOM INPUT EDITOR *":34,2:120:121::13:"SELECT FORMA(4);"BRUN AMPER FACTORY.OBJ0,D1":DX%(100),DY%(100),FL%(100),DN%(100):SX%(150),SY%(150),SK$(150),CA$(105):DP$".":I17:DP$DP$DP$::DP$DP$(DP$,127):EL868:D$(4) D1(864):P$((865)):P1$((866)):S$((867)):I(868):X869I868:N          IN),SK$(IN):SX%(IN)0ININ1:793PNK%IN:IN1hQDX%(IN),DY%(IN),DN%(IN):DX%(IN)0ININ1:81RNF%IN:D$"CLOSE":216,0:DQ2:DZ1:Z$N$:85:S216,0:D$"CLOSE":FX%:"ERROR READING "CA$(FKFJ):"PRESS (RETURN) ";Z$:67TZ$N$:DQ1:DZ2(Z$)#G((FK1)(FK(FI2)))75GHFKFI2DQ2:DZ1:Z$N$:85:5}IFKFI1Z$"FORMAT DISK":LQ11:DQ2:MQ1:93:64JFKFI77KFHFG67L68MCL%,N$:QD0:83ND$"OPEN"CA$(FKFJ)",D2":D$"READ"CA$(FKFJ):IN1#OSX%(IN),SY%(FH1DFI1::FG170[EFI". "CA$(FH):FJFHFI:FHFH1:FIFI1:((FHFG)(FI8))69FFI". ";::"CONTINUE WITH MORE FORMATS"::FI1". ";::"CATALOG ANOTHER DISK"::FI2". ";::"RETURN TO MENU"::"SELECT (1-"FI2")";:" ";Z$:FK0:Z$""FKTURN TO MENU ";Z$:Z$""5*>Z$"I"61?:14::"INITIALIZING"::D$"INIT HELLO,D1":D$"DELETE HELLO":CR%,N$,D1:D22:38@DZ2:CA%,CA$(0),DZ:FG0:CA%167AX1CA%:TR%,CA$(X):SS%,".CIF",CA$(X):SS%FGFG1:CA$(FG)(CA$(X),8)BC<"PRESS (RETURN) ";Z$:5=:CL%,N$:QD0:5:"IT IS NECESSARY TO INITIALIZE":13:"A SECOND DISK":5:"IN ORDER TO STORE RECORD ";::R:::10:"INSERT A BLANK DISK":14:"INTO DRIVE ";::"1"::8:"PRESS (I) TO INITIALIZE":4:"OR (RETURN) TO RE4):501BIBI((R1000)5);2OP%,I$,(1),D4:OP%054d3Z$(R):WR%,I$,(0,BI),Z$:WR%054y4CL%,I$:GA%:215EC1:556EC2722:1:958:"ERROR ";:OP%0ĺRE%;:578OP%;9EC58,59:" VARIABE FILE":60;" INDEX FILE"3/)X1NC:Z$(CL(X)):WR%,V$,Z$:WR%053f*:Z$(D2):Y$(D3):WR%,V$,(1,0),Z$,Y$:WR%053+CL%,V$:BI0:R9BIBI18:45,BIBI((R1)2):50-R99BIBI270:47.BIBI((R10)3):50/R999BIBI3600:490BIBI((R100)R "WR%;<$" RECORD "R" FIELD "CF:"PRESS (RETURN) ";Y$:5X%((RR1)(D22))ĺ:61&RCR:22:1:958:10:"WRITING RECORD ";::R;::RCR1D3RC'30:OP%,V$,(498),D4:OP%053(Z$(NC):Y$(RC):X$(RR):WR%,V$,(0,0),Z$,Y$,X$:WR%05RE RECORDS";:M((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%034((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%034 CF1NC:BCL(CF1):WR%,N$,(R,B),A$(CF):WR%035!:"22:958:"ERROR "OP%;:36#22:958:"ERRO4:"CURRENT NUMBER OF RECORDS = ";::RC;::4:1:868:RCR127p "VOLUME 1 WILL HOLD ";::RRR1ĺR1RC; RRR1ĺRRRC; :" MORE RECORDS"; 5:1:868:RRR1ı R2RRR1:RCR1R2RRRC2:"VOLUME 2 WILL HOLD ";::R2;::" MO 64:FO1 DN%(FO)NC206 FOFO1:FONF%17> 21 :((40(CA$(FKFJ)))2):9:CA$(FKFJ):11:"IS NOT COMPATABLE":((40((N$)5))2):"WITH "N$:12:"PRESS (RETURN) ";Z$:16 :116:KE%05 RRC1:11:23:37B 3:1:868: I$N$".I":V$N$".V":OP%,I$,D4:OP%0įCR%,I$,D4N CL%,I$::RCRR15 34,2::10:11:"THIS FILE IS FULL!":12:"PRESS (RETURN) ";Z$:5 R1(97280LL):11:23:Z$"FORMAT DISK":LQ11:DQ2:MQ1:93::7:"CUSTOM INPUT FORMAT SELECT":34,8 :D$"CLOSE":97 216,0:D$"CLOSE":FX%:(222)1310 ::7:9:"PLEASE INSERT PROGRAM DISK":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:6 ::10:12:"* LOADING MENU *":D$"RUN MENU,D1": :12:"* CUSTOM INPUT *":34,6:6CL(X)::D$"READ"N$".V,R1":D2:D3:D$"CLOSE":216,0:LLCL(NC)NC:X1NC:CL%(X)(CL(X)CL(X1))1::D22İ84w 12 216,0:D$"CLOSE":FX%::"ERROR READING VARIABLE FILE!"::"PRESS (RETURN) ";Z$ CL%,N$ 8 :D$"BLOAD MENU,D1":216,0K(4)"BRUN AMPER FACTORY.OBJ0,D1":DN%(100),DX%(100),DY%(100),SK$(150),SX%(150),SY%(150),CA$(105):CL(88),A$(88),CL%(88):D$(4):I(868):X869(868I):N$N$((X))::D11:D42:4o D$"OPEN"N$".V,L498,D2":D$"READ"N$".V,R0":NC:RC:RR:X1NC:       "OR (RETURN) TO RETURN TO MENU";Z$:Z$"R"43YZ:11:"SELECT SOURCE FILE"::M1Y:M". "Z$(M)::Y1". ";::"RETURN TO MENU":::"SELECT (1-"Y1")";:Z$:Z0:Z$""Z(Z$)[((Z1)(Z(Y1)))90\YZ ]SRC$Z$(Y):IS$",S"(SS)",D2"PCB1TF:FI(CB)1ĺCBQ?RDC$:216,0:D$"RUN RTWO,D1"]S216,0:DC$:FX%:295:74rTS2:255:Y193~UY190V87:84W:11:8:"UNABLE TO IDENTIFY":11:"DATA FACTORY FILES":14:"ON THIS DISK":-X11:"PRESS (R) TO RETRY":4:S22SV(2,0)255(LT22TV(2,0)255MSV(2,0):TV(2,0):SV(1,1):TV(1,1):SV(2,1):TV(2,1):WL%(0):I0(SF1):SF%(I)::I0(TF1):TF%(I)::I1SF:SH$(I)::I1TF:TH$(I)::I1WL%(0):WL%(I)::F12ĺEF$NEF$"Y"82OTE:TE182$",R"E",B0":"":DW$;TRG$",R"E",B"TL1:"":DW$;TRG$",R"TC",B0":"":DW$;TRG$",R"TC",B"TL1:"":DC$:tI260:292}J83KDO$;TRG$".R,D2":DW$;TRG$".R":MO:DB:F1:BR:SRC$:TRG$:SL:TL:SC:TC:SR:TR:SF:TF:SS:TS:SD:TD:SV(1,0):TV(1,0):",R"E",B0":"":DW$;TRG$",R"E",B"TL1:"":ET3ĺDC$:69LCETC:ET3ET3DDW$;TRG$",R"E",B0":"":DW$;TRG$",R"E",B"TL1:"":DC$ETCT3ıFETCWL%(0):ET3ET31GO6:247:G$TRG$:F2:D1:233:G071fHDO$;TRG$",L"TL;IT$:DW$;TRG$".I":I1TC:I::DC$:?DO$;TRG$".V,L498"IT$:DW$;TRG$".V,R0":TF:TC:TM:I1TF:TF%(I1)::DW$;TRG$".V,R1":T2:T3:DC$:@DO$;TRG$".S"IT$:DW$;TRG$".S":TC:I1TC:I::DC$:AETCWL%(0):EE1:ET3718BDO$;TRG$",L"TL;IT$:DW$;TRG$DO$"DATA FILES"IT$:DW$"DATA FILES":1:TRG$:DC$:<DO$;TRG$".P"IT$:DW$;TRG$".P":80:0:66:1:"F":1:"Y":"P":"C":1:0:"":2:"Y":"N":DC$:=DO$;TRG$",L"TL;IT$:I1TF:DW$;TRG$",R0,B"TF%(I):TH$(I)::DC$:>DO$;TRG$".I"IT$:DW$;TRG27:1:958:"ENTER NAME OF FIELD ";::I::9:KE%,1,Z$,CC:KE%52,53,54T350d4TR%,Z$:55r5Z$"":556OC1:291:23:288:437((CC1)((Z$)CC))58823:9:"JUSTIFY FIELD (Y/N) ";JF$:JF$"Y"589Z$Z$" ":TH$(I)Z$:4; (RETURN) ";Z$:NA1:*+:OC1OC0:50|,5:1:958:"ENTER LENGTH OF FIELD ";::I;::" (1-239) ";Z$:Z$"0"OC2:-Z$""44.(Z$)2İ291:23:288:43/CC0:Z$""CC(Z$)0((CC1)(CC239))441TF%(I1)TF%(I)(CC1):NLCCL" #C137 $C$C$(C)D %K(C$):(TH$(X),1,13K);::C$;:t &XX1:PP1:(((XSF)(XTF))(P17))25 '1:19:"PRESS (RETURN) ";Z$:((XSF)(XTF))ė: (24 )NA0:SRC$TRG$ı*:6:"FILENAMES MUST BE DIFFERENT!"::12:"PRESSC$" ":C(SF%(X1)SF%(X))1:K(SH$(X)):K229U ((SH$(X),K,1)" ")C$C$"J"a C131p C$C$(C) K(C$):(SH$(X),1,17K);::C$;: 28:XTF38 !C$" ":C(TF%(X1)TF%(X))1:K(TH$(X)):K235 "((TH$(X),K,1)" ")C$C$"J:J1:(Z$)27ı% J0:(Z$)13ı/ J1:@ B$:B$Z$ıT JJ1:J1519z (((Z$)(K$))((Z$)(L$)))16 : "T","C","S","N","+","-","P","R","Q","?","L","U","D","F","B" X1 P5: 1:P:X10ĺ" "; X".";:5:XSF322 READING "SRC$".V FILE!":3P 216,0:DC$::"ERROR READING "TRG$".V FILE!":3e Z$SRC$".I":12 216,0:DC$::"ERROR READING "Z$" FILE":3 Z$SRC$:15 Z$TRG$ 216,0:DC$::"ERROR READING FIELD NAMES!":"IN FILE "Z$:3 H:V:Z$EN":DR$D$"READ":DW$D$"WRITE":DC$D$"CLOSE":84C X14000:T ::867,254w G$"RBACK":F0:D1:233:G07 O1:247:5 G$SRC$:F1:D2:233:G0ė:12:10:"* LOADING MENU *":D$"RUN MENU,D1" MO10:261:7 216,0:DC$::"ERROR3SS((47081)16):SD(47082):TSSS:TDSD:255:(4)"BRUN AMPER FACTORY.OBJ0,D1":768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:SV(2,2),TV(2,2),TF%(89),TH$(88),C%(1500):FI(88):WL%(1500)3 D$(4):DO$D$"OP                      AL~ ~LO| g %0@0L ~8pn͓~ ~~L_}stop`~@~P~ij^_lkL| }^i_i }^i^_i_L|nmL| } }L|^ ie^_i } }ii_^L|`~LP}8o`~oppP~oTR/L{Ҡ͠Šˠ é {LԠ Ȅ`$$`SWL| ߍ|| || ߍ|| ||Lԭ||||||`$$`GуLzm{i{ {Lz{{Lz{{у"HȱȱhLzm{i{ {Lz{д{LWz{{]v^v{ȭ{`$$`4 hh{ȱ {{ {{ {H{H4`Ѓ^HyIyLw]v^vHyIy_v`RH {hR lݠ`MAL&{ ߍ{{ z{ ޥHH ߍ{{ z{Lhh HH g RP{Q{hhLޠq{ȥq{{{{#{{ z zMz z{{{L ^L y L yNy g LHy +;$ l݅^_ ;L OyLx OyKyLy ߥHyHyMyуMyLxȱPȱQMyNyNHyPȌHyGyMyLx,Oy=NyMy* JyMyMyJyȌJyĝ^L y,Oy RH {hR lL>w" l݅`IS'Lpy Insert String V2.0 13-JUN-84 ޥKyLy l݅Gyȱgȱh.ůȱ尰"QP 㨈PHyIy L+y PyF g LʎHy +;$ l݅^_ ;v7v:sovtp`L:v_v ߍ]v^vɀLޥ))L`vSLLwSLLw w w , g XTPLJwee8ȌKw vJwJwKw!LvJwIwhhLw`Iw]v^vIw` !!!!!!! " " " " " """"""$"OPEN"Q$:D$"READ"Q$:Z$:D$"CLOSE":D$"UNLOCK"Q$:216,0:V 216,0:768:D$"CLOSE" :13:9:"PLEASE INSERT":((40((Q$)6))2)::Q$;::" VOL 1":14:"INTO DRIVE ";::"2"::11:"AND PRESS (RETURN)";Z$:26 216,0:768:(222)1328!31CLOSE":9 Q$"":X797/ Q(X):Q16022C XX1:X76719K 23h P768X:Q$Q$((P)): X768777:Q:X,Q:: 104,168,104,166,223,154,72,152,72,96:Q$N$25 26:Q$N$ 26: 32 D$"BLOAD"Q$",D2":216,0 30; D$".V,R0":NC:RC:RR:X1NC:CL(X)::D$"WRITE"N$".V,R1":D2:D3:D$"CLOSE":10:"REWRITING INDEX FILE":D$"OPEN"N$".I,D2":D$"WRITE"N$".I":X1RC:X: D$"CLOSE":8:"REWRITING SURVIVOR LIST":D$"OPEN"N$".S,D2":D$"WRITE"N$".S":RC:X1RC:X::D$"".V,R1":D2:D3:D$"CLOSE":SU0RCRCDR:12: RCSCDRI RC0RC0_ RCD3D21:D3RCq :8:DR116 8::DR;::" RECORDS WERE DELETED" 11::RC;::" RECORDS REMAIN":8:"REWRITING VARIABLE FILE":D$"OPEN"N$".V,L498,D2":D$"WRITE"N1":10:"AND PRESS (RETURN)";Z$:2\ 12:12:"* LOADING MENU *":867,254:D$"RUN MENU,D1"v ((SU0)(DR0))10 :8:10:"SUCCESSFUL RECONFIGURE":2- D$"OPEN"N$".V,L498,D2":D$"READ"N$".V,R0":NC:RC:RR:CL(NC):X1NC:CL(X)::D$"READ"N$xSC(764)((765)256):DR(766)((767)256):SU(867)::D$(4):N$"":X869((868)868):N$N$((X))::18:85D$"BLOAD MENU,D1":216,0:7216,0:768:(222)134" :7:9:"PLEASE INSERT PROGRAM DISK":14:"INTO DRIVE !! ! ! ! ! ! W = W 3 W + W # W (ȥL&( HLP0ȱP08`PqPQqPQP`<ȱȱ.ůȱ尰" 㨈`朥ů`LmnƔƕƖƗijLimjm日mŖn嗰楛Ÿ幰 8}~ 8}~mmimijmjkmklmlmmmnmn]vm]v^vm^v )ȩ W W ȩ W W W W WP WQ ֥ijPQlk! }PiQi PiQiL]nm; } LP iePQi iથiQPLmड़m8寍對0e Lmmnm ӭL-`$$`]v^vވuڥv  _v`S *P. @0 VOLUME SLOT  DRIVE FREE ) 3H  TBARSBAIFXLhhߚHH`ZRL㒠lOVL OVERLAY 15:44 13-MAR-84 ' L `f nsg]v^vfȹf`08byc0 bcLX`d     ` ^_JJJJ]\ ` V!S_LD_LV__, g 抮_ h0k \_LL-XYfg L4 |L __ L4L % XiXYiY[ XZkLgf_id * L_i!e bȱ c L4de )d4L搠_i#L<_LV ޥ`a ߍXY LԥHH`a LޠqZȥq[hh ] \^ ȩ |LJJJJ) 0) 0bc Lxbc8  bc L% $x 5]v^vȭ ; LX `4 hhȱΘΗHH4`INL֎ ߥ0Lޢ uH h)ȹ`CACLҠǠԠȠέӠé ̏ L2ɈOLˌ \LLaV ΑL틬ȑ 0ΑLً,0̏LɊɋɌߪ \ƍ⍲ࠐY) LA۰=) Lఐ)ະ%ȩ ̏)Lً :L -L- L*ɍ, \[[[ ̏Lɕ1H!͏h Lˌh LɂLˌɃLˌɄLˌɅLˌɑLˌɁh \܌錬L錩 ͏ȱȱ ̏L% *䥠 ̏ ̏L 0̏Lً0Lԋ%ȱPȱQ͐%#P ̐ ̏LċP ̏ ̏L틢5LԠ ̏ ,0L̏L ɘ! \--5)UTɈ@` L'L'"