' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ WtuL Q ֩PQ UL׭緍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/*35/**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@ [_ /QuIt4b_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 ·Lǵ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 ~(`i d ֠Ġz# u`Z$"C"90&6Bŀ躱𠩠戠٠Ϡ堤ĥ堠頠̠ԓ̠涠Ϡ堤Ė̠ͥ͠蠠ҠΉᠮ蠽Ėӯ蠠ҠΉᠮ蠽ĬL $  & he he e e ` & e e ` 蘝 ` ʼʽ ```$ ) I`Hh``` `(`LL֠ı堠頠𺷰88  Lu Lu Y8 YiiLii Y Y8Ly L g gLy `     H h   E   EH h ` H H & LO ȱ ȱ  8 $  L ȱ ȱ  С!L̒ L   E ȥ ȱLii { ii {80LLii8Jfee   E   $  LHXhixi`ɤҠҠӠ̠頹ҠINLܐ ߥ0Lޢ uH h)ȹ`QLSLLv t $0$  oH*H^X_^oL2x^_ȥo^ȥp^Lt8ompnc^d_^ȭ^`$$`^0ȱ^08`^q^_q^_^`LGȱȱopvmnjHX\HX44"IHYXihyxf렎E ꥢE ߥ +`GAL8pn LgstophHXij^_lkL ^i_i ^i^_i_LnmL  L^ ie^_i ii_^LhLX8ohoppX%=@sotp`L@e ߍcdɀLޥ))LfDLCL ߅`ȱȱ`DL AL Bq<ȥCq=8m>mȥn?n , { , Lʍ`FRLLJ       %DC$:DO$N$",L"LL",D"CD:2%216,0:FIX:DC$%CP$"THE NEW DISK IN DRIVE "(D):CQ$"HAS NOT BEEN INITIALIZED":120:CP$"INSERT ANOTHER DISK":CQ$"AND PRESS (C) TO CONTINUE":121:CP$"OR PRESS (A) TO ABORT":121:Z$:Z$:(Z$"C")(Z$"A")150 &X)T%(X):: $D11SD1:1421$SD(RD3)1H$SDCDCDSD:148$M1NC:DR$N$;",R"R",B"CL(M1):T$(M,T)"":IN%,T$(M,T)::GA%:$D11SD1:146$SD(RD3)1$SDCDCDSD:148$M1NC:DW$N$;",R"R",B"CL(M1):T$(M,T)::GA%:2> INTO":CQ$"DRIVE #1 AND PRESS SPACEBAR":120:122:CP$"THANK YOU":120:#CP$"PLEASE PLACE INTO":CQ$"DRIVE #1 AND PRESS SPACEBAR":120:122:CP$"THANK YOU":120: $T%(0)0:DA%,T%(0):T%(RCDC):X1RCDC:T%(I%(X))X::X1RCDC:I%(L DISK IN DRIVE #";D1;::" Y)ES OR N)O";:" ";DM$:DM$"Y"DM$"N"128t"DM$"N"133"D11OP2:"D22OP6:"D12OP4:"D11OP3:"D22OP7:"D12OP5:"K#CP$"PLEASE PLACE ";:SB$::SB$(17)AB1:124s {SB$" "122 |20:958:1002:!}ER(222):LN(218)((219)256):CP$"ERROR #"(ER)" OCCURED IN LINE #"(LN):CQ$"PLEASE NOTIFY PROGRAMMER!":1,E);:QW15NCĺ:117<t20:QW15;" ";:(H$(QW15),E)Zu:21:"";:DM$:::evFIXıwFIX758:XFIXFIX9:Y:X,Y::104,168,104,166,223,154,72,152,72,96:x:11 yCS20:CP(CS((CP$))2.5):CP);CP$::CP(CS((CQ$))2.5):CT - DESCENDING"kY15::[l22:A3)"WHICH: ";:DM$:B(DM$):DM$:B1B6Ė1:108mmB0SRT$"W"nB2SRT$"N"oB4SRT$"D"pDIR$"A":B2B4B6DIR$"D"qrE16::Q1NC30:W014:QWNCĺ:117sQW;" ";:(H$(QW)):F1FNCİ114:104jCP$"PLEASE":CQ$"SELECT SORT TYPE":120:::A6:A)"1) WORD SORT - ASCENDING":A)"2) WORD SORT - DESCENDING"::A)"3) NUMBER SORT - ASCENDING":A)"4) NUMBER SORT - DESCENDING"::A)"5) DATE SORT - ASCENDING":A)"6) DATE SOR6cDO$;"DATE,D"D:DR$;"DATE":IN%,DA$:DC$:216,0:Od216,0:FIX:DA$"":Ye125fDO$;"DATE,D"D:DW$;"DATE":DA$:DC$:216,0:gCP$"PLEASE ENTER THE SORT KEY"hCQ$"FIELD NUMBER ?":120:::18)"#";:"";B$:B$(6)İ114:104iF(B$;"DATA FILES,D";D:DW$;"DATA FILES":1:N$:DC$:216,0:B\125y]DO$;N$;".PW,D";D:DW$;N$;".PW":PW$:DC$:216,0:^97_CP$"LOADING FILE STATS":120:DO$;N$;".PW,D";D:DR$;N$;".PW":PW$`DC$:216,0:a216,0:FIX:PW$"":96b100Q);",B";BO:Q$(Q,QA):QA:Q:DC$:216,0:Q14:(7):Q:zVCP$"PLEASE INSERT "SD$" INTO DRIVE "DD$:FGİ120:FG0:WCQ$"PRESS (RETURN) TO CONTINUE":FHFH0:121:89X120YZ$:Z1498P$"SAVING FILE STATS TO NEW DISK":120:DO$CP$"SAVING RECORDS "(ST1)" THROUGH "(TR):CQ$"TO NEW DISKS":120:DF0:Q1(TRST):VS1:(STQ)D3VS2RQ1DF1:VS2DF0SVS1DFDF0:DO$;N$;",L"LL;",D"DTVS2DFDF1:DO$;N$;",L"LL;",D1":UQA1NC:BOCL(QA1):DW$;N$;",R";(ST,R0,B";BO:H$(Q):Q:DC$:216,0:MFIX:0:0::8:14:"RECORD # ";I%(QST):15:"FIELD # ";QA:17:"IS BAD":9:"PRESS (C) TO CONTINUE":5:"OR ANY OTHER KEY TO GO TO MENU";:Z$:Z$:Z$"C"ė:6N:EC16OQ$(Q,QA)"":1002:67P125nQILL STORE":120:CP$(TB)" RECORDS":CQ$"AT A TIME":121:QZ1500:QZMFpGTRTRTB:STSTTB:TRRCTRRCvHI125JDO$;N$;".I,D";D:DW$;N$;".I":Q1RC:Q:Q:DC$:216,0:K125!LDO$;N$;",L";LL;",D";D:Q1NC:BOCL(Q1):DW$;N$;"l:lFhl͑쒭ٕlIHlIҨhl“&lO8`$5aۏ H ,dT1Q G팠Pgbe w`c6r?-(3x?J<1u'89ܡd5{rB`{l,S/ҳrdjJ{ÓÕ@iŒo/2hlHhHhLl_.lW slhdЭؕlpͬ֕lf}L֕lo1llh lmE6lll,ו0ll2hMؕؕڕMڕڕllaݕl3 :l+laБl Lוll"`l^all lLm l lѓllꔖޕlG)ڕl1Рl&͹HYlV`H   ԑ֕l@潎0l l,ͺl#L7lll FLIILl`lߩ`lml5l͒ Lll`lll .ŕl7&нlʓͥl]Lҕl=}lӕl lҏmlf𕍥8lWMϕl :lǓ@`l)Ahl͠l`Ll^ll וlamÕĕlՓ l=hl+Y`lzJl4slؓнlMo͍ؕlrLݕ7ܕ6ll Jl# @`lemL `lLɏl Jl LٕlNTlەlk l'm)U l?|LÎŕl^#lϏYܕ7l lllll&lY laͅ6je7l7Ll^lOڕlޒޓ lVmE7lq`lP~ ΐ~`l Đh~ H LaLl ΐLΐl ǐ~Lѐ~~) VLllIHlؒ9HY UPDATING INDEX <":D$"OPEN "N$".I,D"D1:D$"WRITE "N$".I":X11RC:MI(X1)::CL$:,THROW SCREEN CONSTANTS FOR PAGE P% FROM MEMORY TO SCREEN. IF EF%=0RCSX1:X1NC:B1CL(X1):WF$R1",B"B1:A$(X)S1$(X1,X):A$(X):::S0:2220|` :"PRESS 'RTN' TO CONTINUE ";:Z$::2142 D11D22ė:(7):12:4:"LOAD ";::"UTILITY DISK";::" THEN PRESS 'RTN'";:Z$ :12:11:">> LOADING MENU <<" 25 A$(CL)B$:950:2141h A1:SS1:RCRC1:MI(RC)RC:X1NC:S1$(S,X)A$(X)::SR8Z$"D"ĉ:2350 RCRR(D21RCLLM1)ĉ:2350! D22RCLLM3ĉ:2350$ :2020) 2600:FL%1M. :12:13)"> SAVING DATA <"::OF$LL",D"D5:X11S:R1ALIZE DISKETTE IN DRIVE# 1 (Y/N)?";Z$:Z$"Y"2000h D22:D51::12:10::"INITIALIZING DISKETTE":| :D$"INITI,D1" D3RC::O$",D"D1:W$:NC:RC:RR:X1NC:CL(X)::D$"WRITE"N$".V,R1":2:RC:CL$:2010 ::CL"- "A$(CL)::LCL%(CL):800"CONTINUE FILE ON SECOND DISKETTE (Y/N)";Z$:Z$"Y"Z$"N"ĺ(7);:560:2302c Z$"Y"2500 :(7):10:"LABEL A ";::"BLANK NON INITIALIZED";::" DISKETTE"::17:"VOL# 2"::"LOAD INTO DRIVE# 1 AND PRESS 'RTN'";:Z$3 (7)::12:"INITICLLM12301&D22RCLLM323016(7):2020FFL%İ2600\A$(CL)""::2500:(7):12::3)"DISK DATA WILL FILL YOUR MEMORY !!!"::TI15000::2500:(7):12::9:"DATA DISKETTE FULL !!":::D22D11āTI15000::2500QRC1:MI(RC)RC::OF$LL",D"D5:X1NC:B1CL(X1):WF$RC",B"B1:A$(X):_D51ĺCL$:O$",D"D1oD21D3RC}O$",D"D1W$:NC:RC:RR:N11NC:CL(N1)::D$"WRITE"N$".V,R1":D2:D3:CL$::RCRR2300D51ĺD$"OPEN"N$",D1" 750:D21R;Z$&kZ$""Z$"M"BYBYLL:BZBZ17mZ$"R"2020HpZ$"M"2320]zZ$"D"S02320{Z$"M"Z$"D"Z$""2190(Z$)0(Z$)NC12315(7);:CV(37):37,(CV3):958:2150Z$""S02320FA1::12:13)"> SAVING DATA <":RCIF (D2=1 AND RC>INT(M1/LL*.9)) OR (D2=2 AND RC>INT(M3/LL*.9)) THEN FLASH : PRINT BZ: NORMAL : GOTO 2060r ?BZ 9000:KE%02085S02345:2280%FL%0f:5:3)"(M)-TO MEMORY";:3)"(D)-TO DISK";:20)"(R)-RESTART":30000:13:"WHICH: "RCLLM3ĉ:2301 GOSUB 580: INVERSE : PRINT TAB( 4)">> END / REPEAT << ";: PRINT ">> BACKUP / RESTART <<";: NORMAL : GOSUB 580: POKE 34,7h PRINT "RECORD # "RC + 1;: HTAB 16: PRINT "APPROX.DISK RECORDS= ";: 850R850A1: HOME : INVERSE : HTAB 11: PRINT "* * ENTER DATA * *": NORMAL :: PRINT NC" FIELDS.";: HTAB 14: PRINT "MEMORY FOR >"RR - RC"< RECORDS": IF RR - RC < = 0 THEN TEXT : GOTO 2300RRRC0ĉ:2300D21RCLLM1ĉ:2301D22pzI11ı%E1ĺ(8);:9109(8);"_";(8);YI1I11:I11I11:B$"":pB$(B$,(B$)1):(7)::10:"ENTRY IS TOO LONG"::SK(CL%(CL)40):X1SK:::D52:D22D11D51 FL%0:S0:740:R8(15000LL):R,1):I1I11:820?E21820F@E2CL1ġ:958:ACL1:E11:2060aBZ1$""E18ĉ::2020tHE8İ890:820RE13CV(37)3:958:(E);:E10:\(E);:B$B$(E):I1LĂf(B$,1)(13)ĺ(7);:(8)" ";:(8);:B$(B$,(B$)1):8202CV(37):A$(CL);:CV1:1**I11L1U4849:E(833)128:E17CL1B$(E):d7E10E92s8E11E919E12E95:E27I11820;E27B$A$(CL):B$:<E1B(A$(CL)):(B$)BB(B$)>E1I1BE21Č1036:B$B$(A$(CL),I1CV(37):37,(CV1):958:1 DX140:"-";::i N:12:6::"DISK ERROR>- PRESS 'RTN'";::Z$:182 D12ĺ:OF$LL",D"D5:CL$ D21BYM1RCLL D22BYM3RCLL BZ(BYLL)  B$""::I11L:"_";::((37)2(L39.9)):1:E:MI(X)::CL$ 216,0 D$"OPEN"N$",L"LL:X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:783:H$(X)(A$,1)::CL$:X1NC:CL%(X)CL(X)CL(X1)1::P1$"Y"İ40 (7);:S$"1"2000 D$"PR#"F8:CT$""ĺCT$  D$"PR#"MO: EIRS:320 0C)NC):A$(NC),S1$(50,NC),H$(NC),CL%(NC),MI(RR)9 590 D12D22ė:(7):11:"LOAD ";::"DATA DISKETTE VOL# 2";::" INTO DRIVE# 1":"AND PRESS 'RTN'";:Z$::D$"OPEN"N$",D1":CL$:216,0 195 D$"OPEN "N$".I,D"D1:D$"READ "N$".I":X1RC20),DN%(99),DX%(99),DY%(99),CA$(99):10000y D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ :D$"OPEN"N$".V,D"D1",L498":D$"READ"N$".V,R0":NC,RC,RR:CL(NC):X1NC:CL(X): D$"READ"N$".V,R1":D2,D3:CL$/ LL(CL(N dD1(864):P$((865)):P1$((866)):S$((867)):I(868):X869I868:N$N$((X)): xWF$D$"WRITE"N$",R":RF$D$"READ"N$",R":OF$D$"OPEN"N$",L":O$D$"OPEN"N$".V,L498":CL$D$"CLOSE":W$D$"WRITE"N$".V,R0"* }SX%(120),SY%(120),SK$(150(4);"BLOAD AMPER FACTORY.OBJ0,D1":33520p A$"":E0:216,0::D$(4):M197280:M2122880:M3M1M2:100(D$"OPEN"N$".P,D"D1:D$"READ"N$".P":CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8,MO,CT$,N,TF$,LF$:CL$:P6:"=== A MICRO LAB DATABASE ==="::Z          РѠʠؠҠΩͯ۠𭠹ؠ֠IJϠϠ̠ǠӡҠ堆͢Հ蠌Ѡƥ஥ǡɠ蠅ũ溮ҠɪՀ蠗ũƥ````$ LB `L&(`H Jh !H Jh Hh``hh` ,L ``L ߅`ȱȱꔽ򔑃`iLii ̓ ̓8L3 L1 ړ ړL3 `    H h     H h ` H H & he he e e ` & e e ` 蘝 ` ʼʽ `8 ȱ ȱ 567 о!LK 8L 8 5  ȥ 88  L L ̓8 ̓iLii { ii {80LLii8Jfee  5   8 ȱ ȱ 567 `  ` Şe e L ŝL$`Hhh`͆``ͅ`&ee`¥QLSL L  瓩 ȱ sotp`L ߍ))BBL  ݏ d M dŭб`L 拏 { g R猙 g R猛Lee  ee {`        DF1:DO$;N$",L"LL",D1"eBQA1NC:BOCL(QA1):DR$;N$",R"I%(QST)",B"BO:A$"":IN%,A$:Q$(Q,QA)A$CQA:GA%:Q:DC$:216,0:Q14:(7):Q:DTB(((0)5000)(LL(NC3))):ST0:TRTB:Q$(TR,NC):TRRCTRRC:70GECP$"BECAUSE OF SPACE":CQ$"I W:DA%,S$(0):-<QS%,S(0),I%(0):DA%,S(0):;=EC1:77>CP$"LOADING RECORDS "(ST1)" THROUGH "(TR):CQ$"FROM OLD DISKS":120:DF0:Q1(TRST):VS1:I%(QST)D3VS2?Q1DF1:VS2DF0@VS1DFDF0:DO$;N$",L"LL",D"D1AVS2DFC:XD31İ54O3DR$;N$",R"X",B"B:A$"":IN%,A$:A$"@"S(X)1E35:DCDC1:53^4S(X)(A$)s5I%(X)X::DC$:6DC$:DO$;N$",L"LL",D1":7SEL58,59,608RCRCDC:GA%:DIR$"D"İ319:QS%,S$(0),I%(0):DA%,S$(0): ;QS%,S$(0),I%(0)0)"":S$(RC1)(255):DO$;N$",L"LL",D"D:X1RC:XD31İ54q/DR$;N$",R"X",B"B:IN%,S$(X):S$(X)""S$(X)" "0S$(X)"@"S$(X)(254):DCDC11DC%,S$(X):I%(X)X::DC$: 2S(RC1),I%(RC1):S(RC1)1E36:S(0)S(RC1):DO$;N$",L"LL",D"D:X1RSRT$"N"SEL3 )SEL42,46,50w*S$(RC1),I%(RC1):S$(0)"":S$(RC1)(255):DO$;N$",L"LL",D"D:X1RC:XD31İ54+DR$;N$",R"X",B"B:IN%,S$(X):S$(X)""S$(X)" ",S$(X)"@"S$(X)(254):DCDC1-I%(X)X::DC$:<.S$(RC1),I%(RC1):S$(NC:BCL(X1):DR$;N$",R"0",B"B:IN%,H$(X)::DC$:%DO$;N$".V,L"VL",D"D:DW$;N$".V,R0":NC:RC:RR:X1NC:CL(X)::DW$;N$".V,R1":D2:D3:DC$:&BCL(F1):DC0:S$(1)"":S(1)0:I%(1)0:DA%,S$(0),S(0),I%(0):SRT$"W"SEL1'SRT$"D"SEL2(F8:MO:CT$:N:TF$:LF$:DC$:#D1(864):I(868):X869I868:N$N$((X))::VL498:DO$;N$".V,D"D1",L"VL:DR$;N$".V,R0":NC,RC,RR:CL(NC):X1NC:CL(X)::DR$;N$".V,R1":D2,D3:DC$:D3RCD3RC2$LL(CL(NC)NC):H$(NC):DO$;N$",L"LL",D"D1:X1I uiȩiȩiL9ՑiȩiȩiL9 h` A` 80^݌Hh 쓝݌ A 퓥D 퓥? 퓥AEDE?HJ>h `HJ>݌h Hh݌` ޕߕݕ֦^ߕ_e^^__``8ooppo)JȽߕopȑL堠ɠΥı֠ѠࠥР蠕p8n` stopU^_R ij^_lk 󅔆nmLF^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^0ȱ^0L5ȱ^ȱ^oȱ^p͠hmnТ!ʥݟ   ߅ ߠHh`8  _  LMȑ ȑ   L-8L  Đ`   TBARSBAI80 L`d     `$$`4 hhȱΛΚHH4`Ҡ @ VOLUME SLOT DRIVE FREE xxϭ 橰8L? 8L? xL4 㪨P`xxĝ   8LxLO  8` H$h )(` rsވuڥv  q`rsȑ`0锕 `8PQPŁAȱPł:P2ȱPȱPPqPQqP}~8`` Hȱ h 8` $QPਈx ɠxP ӈ` PQ *䥠x   8L?$ɍ/)x, g 抮 ݨ0ݫ LLL` ߅ 3L` L ( L #,) LؒRLB.Hʽ,$h g R箓ʘ]LvL `TR/LeҠ͠Šˠ é 3LԠ Ȅ`FXLҠؠŠҠhhߚHH`L JJJJ ` V!SLDLVm  8 퓕LHΓȱ ȱ e i h  L2`  RH {hR lLc" l݅`SW ߅  g  5L 5rsȭz ; L( `ZR5LϠԠԠȠ élSLnS4LnҠǠŠˠ é > >  , x LɈML{ @/ yLԋxȑ 0yL,|0xLߍɊɋɌߪ{ @~0]Y) yLԋ0A=) yLԋ0)%xȩ x)yL :L십vw yɘ{ @xL Lɍ*zz{ @>>卩 xLɕ vwyx yLɂLɃLɄLɅLɑLɁfz{ @xL vwxȱȱ xLΠԠȠέӠŠé g RQ|P,|ILE8{L ߍvw$0$0L Lx *䥠y{ x xLԋ 0xL5LԠ x ,|0L심yxzL卛ȥq @WуLÊmi͂ ́LLу*LÊHȱȱhLÊmi͂ ́LЬLarsȭ`KEEL,ҕ4Lۈi#L1LK ݷrsȹ`MA"E :D$"OPEN"N$".U":D$"WRITE"N$".U":NR1:J1NR1:R$(J)::CL$h MS$"DATA DISKETTE":650:3015 (7)::"BAD FORMAT NAME-TRY AGAIN"::7040 @:9:"* DELETE A SELECTION *":580:34,4: J9000k!T:D$"OPEN"N$".U,D"D1:D$"READ"N$".U":N v7900q"ENTER NAME FOR SELECTION (28) ":L28:F10:800:R$(NR1)B$:R$(NR1)""ĺ(7);:560:7050NNNR1:D$"OPEN"R$(NN)"-U,D"D1:D$"WRITE"R$(NN)"-U":ND:X1ND:PC(X)::CL$:216,0NR7100J1NR:R$(NR1)R$(J)7110 )0NDND1:7000CPC(ND)PC(ND1)PC(ND)NCĺ(7);:560:6020[NEPC(ND)::NDND1lXNR103015]:(7):11:"SAVE THIS SELECTION TO DISK (Y/N) ";Z2$:Z2$"Y"Z2$"N"ĺ(7):7005bZ2$"N"MS$"DATA DISKETTE":650:3015lNR1NR050:3015c*:12:3:"LOAD ";::MS$;::" INTO DRIVE #";::D1::12:"THEN PRESS 'RTN'";ZT$::x216,0:I1:4020p:9::"ENTER <0> WHEN FINISHED"::580:z570::NE1:ND1NC"ENTER SELECTED FIELD # "ND" ("NE"-"NC") ";:PC(ND):PC(ND)ĉ:30803Z(Z2$):Z1ZI2ĺ(7);:560:403034,2::ZIMS$"DATA DISKETTE":650:ND1NC:PC(ND)ND::NDND1:3015ZI1ī6000ZI28000D$"OPEN"R$(Z)"-U,D"D1:D$"READ"R$(Z)"-U":ND:X1ND:PC(X)::CL$:MS$"DATA DISKETTE":6h:D$"OPEN"N$".U,D"D1:D$"READ"N$".U":NR:J1NR:R$(J)::CL$:216,0:I1NR::I;::" "R$(I):::I;::" ALL FIELDS"::I1;::" CREATE A NEW SELECTION LIST":::I2;::" DELETE A SELECTION LIST": "WHICH (1-"I2"): ";:Z2$:Z2$(17"R"ĺ(7);:3070g D11D22ė:(7):12:3:"LOAD ";::"UTILITY DISK";::" THEN PRESS 'RTN'";:Z$ ::12:11:">> LOADING MENU <<" D$"RUN MENU,D1"5000ZIMS$"FORMAT DISKETTE":650:::"- UPDATE FIELD/SELECT -"::34,5 CLCND:LCL%(PC(CL))::PC(CL)" - "H$(PC(CL))" ("L")":F11:800:F10i A$(PC(CL)),B$:950:CL:600{ :R2X11:X1 (7):1:23:"C)ONTINUE,R)ESTART,'RTN' TO MENU ";:Z$:Z$"R"ĉ:3000 A1$"4"Z$"C"CL1:F0:410 Z$"C"Z$""Z$ING AN 'ENTRY'":J 13:"WHICH (1-4): ";A1$:(A1$)4ĺ(7);:560:3030a A1$(17)ĉ:3080l :345 C1:27::"RECORD #";:36:RS(X1): Z3$"N"3050 CL1NC::CL"-";::5::H$(CL);::" - ";:A$(CL):CV(37):CV19966 960H :11)"* UPDATE ROUTINE *":580:34,2:4000 :4:"DISPLAY ALL DATA FIRST (Y/N) ";Z3$:Z3$"Y"Z3$"N"ĺ(7);:560:3015 8:15:"- UPDATE -"::7:"1- ALL RECORDS":7:"2- FROM/TO RECORD NUMBERS":7:"3- SELECTED RECORDS":7:"4- RECORDS MATCH1I11:B$"":%B$(B$,(B$)1):N(7)::10:"ENTRY IS TOO LONG"::qSK(CL%(CL)40):X1SK::::"PRESS (R)ESTART/(E)ND/'RTN' TO CONT. ";:Z$:Z$"R"ė:3045Z$"E"ė:3050:3050 37896:54915:F0:R21:NDNC-$""E18ġ:C1::3045*HE8İ890:820SRE13CV(37)3:958:(E);:E10:r\(E);:B$B$(E):I1LĂf(B$,1)(13)ĺ(7);:(8)"";:(8);:B$(B$,(B$)1):820pzI11ıE1ĺ(8);:910(8);"_";(8);I1I11:I1ѭE10E928E11E91(9E12E95;:E27I11820Y;E27B$A$(PC(CL)):B$:<E1B(A$(PC(CL))):(B$)BB(B$)>E1I1BE21Č1036:B$B$(A$(PC(CL)),I1,1):I1I11:820?E21820@E2CL1ġ:958:CCL1:E11:3050BZ12:3:"LOAD ";::MS$;::" INTO DRIVE #";::D1::12:"THEN PRESS 'RTN'";ZT$:: E11:B$""::I11L:"_";::((37)2(L39.9)):1:F1CV(37):A$(PC(CL));:CV1:1*I11L14849:E(833)128:E19ġ:F10::30656E17ġ::3000 7X620!ZD50:RS(X1)D3D51<\D5ĺOF$LL",D"D1:610L^OF$LL",D1"bX1ND:B1CL(PC(X)1):WF$RS(X1)",B"B1:A$(PC(X))::CL$:216,0:l216,0:(7)::12:"DISK ERROR-RECORD ";::RS(X1);::" MAY BE BAD":"PRESS 'RTN'";:Z$:3070S:1"TO RECORD # ("A"-"RC") ";:B:BABRCĺ(7);:560:553q*:X20:XAB:X2X21:RS(X2)X::X11X2:310:30450CV(37):37,(CV1):958::X1NC:4)X;"-("CL%(X)") ";:14:H$(X)::DX140:"-";::N:12:11)"> RECALLING DATA <":X1:F1:310::3045#:F13070:11:(7):"SORRY-I COULD NOT FIND > "NA$" <"::"CONTINUE (Y/N) ? ";Z$:Z$"Y"Z$"N"ĺ(7);:500::Z$"N"3070395'X10:A1$"2"ĺ"FROM RECORD # (1-"RC") ";:A:ARCĺ(7);:560:551(8)"FOUND IN WHAT FIELD # ";D:D1DNCĺ(7);:560:400oR21:::"ENTER ITEM TO SEARCH FOR: ":LCL%(D):800NA$,B$:PA(NA$):PA0PA1DSE450::590:290SED::12:14)"> SEARCHING <"X1R2RC(S$(X1),PA)NA$RS(X1)11RC:310:3045"[A1$"2"5513hA1$"4"395fr9::"ENTER <0> WHEN FINISHED"::580:34,4:|X1RC:"ENTER RECORD NUMBER (1-"RC") ";:RS(X):RS(X)0392RS(X)RCĺ(7);:560:38034,2::X11X1:310:3045:570:6R ;X1ND:B1CL(PC(X)1):RF$RS(X1)",B"B1:783:A$(PC(X))(A$,1)::CL$:216,0:k <D50:RS(X1)D3D51 =D5ĺOF$LL",D"D1:320 >OF$LL",D1" @X1NC:B1CL(X1):RF$RS(X1)",B"B1:783:A$(X)(A$,1)::CL$:YF0:A1$"1"āX1RC:RS(X)X::X$LL",D"D1:F61! %D5F70:2961 &D5F6F60O 'F6F7ĺOF$LL",D1":F71 (B1CL(D1):RF$I",B"B1:783:S$(I)(A$,1)::CL$:216,0: )RS(X1)I:620 6620 7Z3$"N"316 8D50:RS(X1)D3D51 9D5ĺOF$LL",D"D1:315 :OF$LL",D1"D$"OPEN"N$",L"LL",D"D1:X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:783:H$(X)(A$,1)::CL$:X1NC:CL%(X)CL(X)CL(X1)1: 3000 :12:6::"- PRESS 'RTN'";::Z$:150 "297 #F60:F70:I1RC:D50:ID3D51 $D5F6ĺOFCL(X)::D$"READ"N$".V,R1":D2,D3:CL$f LL(CL(NC)NC):S$(RC),PC(NC),RS(RC),A$(NC),H$(NC),CL%(NC)p 225 D12D22ė:(7):11:"LOAD ";::"DATA DISKETTE VOL# 2";::" INTO DRIVE# 1":"AND PRESS 'RTN'";:Z$::D$"OPEN"N$",D1":CL$| 216,0::RF$D$"READ"N$",R":OF$D$"OPEN"N$",L":O$D$"OPEN"N$".V":CL$D$"CLOSE":W$D$"WRITE"N$".V":D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$' :D$"OPEN"N$".V,D"D1",L498":D$"READ"N$".V,R0":NC,RC,RR:CL(NC):X1NC:h A$"":NA$"":E0:SE0:216,0::D$(4):D$"NOMON I,O,C":1013,76:1014,176:1015,3:37902,255:100PCOPYRIGHT 1981 W.L.PASSAUERdD1(864):P$((865)):P1$((866)):S$((867)):I(868):X869I868:N$N$((X)): xWF$D$"WRITE"N$",R"                  %I%(RCX1):I%(RCX1)I%(X):I%(X)I%::^ (4)"BLOAD INIT,D1":(4)"BLOAD GMAN":37759:!DO$;N$".P,D"D:DR$;N$".P":CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8,MO,CT$,N,TF$,LF$:DC$: "DO$;N$".P,D"D:DW$;N$".P":CO:F1:LI:F2:F1$:F3:F3$:F6$:F8$:D11Ģ12:(7);:"LOAD INTO DRIVE# 1":"AND PRESS 'RTN' ";:Z$s/ ::12:11:">> LOADING MENU <<"/ D$"RUN MENU,D1"/(#216,0:(7)::12:"DISK ERROR-RECORD ";::BC%(X2);::" MAY BE BAD":"PRESS 'RTN'";:Z$:8360/5000*00ED":R4R4R1:R3R7R2:14:10:R3" ";:15:"RECORDS TO GO":R308355P. 37896Z. 8280. :11:11:"> TRANSFER DONE <":TI110:(7);:. :D22Ģ9:"INSURE 'EXISTING FILE":"VOL #1' IS IN DRIVE #2"M/ BX%0E20(D22Z$(17))E$,1,CM%(X)):::CL$:216,05- D11İ990:U%2:340- D$"OPEN"N1$",L"LA",D1":R60:X2R4R5:R6R61:EE1:F7%A42EBT%İ1000:F7%1- X11EM:B1CM(X11):D$"WRITE"N1$",R"E",B"B1:B$(R6,X1):::CL$E. R2R2R1:12:11:R2" ";:16:"RECORDS MOV28:"RECORDS",X 9702,b R60:R3R8R1R8:8305<,l R1R3G,q 9000,v 9:11:"MOVING";:18:R1" ";:21:"RECORDS":OF$LL",D"D1:R5R5R1:X2R4R5:F6%D22BC%(X2)D3İ998:F6%1-{ R6R61:X1EN:B1CL(S2(X)1):RF$BC%(X2)",B"B1:783:B$(R6,X)(T"::D$"OPEN"N1$".V,D1,L498":D$"WRITE"N1$".V,R0":A1:X7:A3:N11EM:CM(N1)::D$"WRITE"N1$".V,R1":A4:A5:CL$+I X8%X7:420+K A2BT%İ999 ,N EA2::11:"< APPENDING DATA >":360:R20:R7X6:R41:R50:R3R7:5:5:"WE WILL BE MOVING";:23:R7;:- 37896*0 8180&*: E21D11İ990*? A42Ģ20:"LOAD AN INITIALIZED 'APPENDTO FILE VOL #1' DISKETTE INTO DRIVE #1 AND PRESS 'RTN' ";:Z$:U%3:340*B X7X6A2:A5X7:X7BT%D12A5BT%:A42r+D :12:868:10:"WRITING VARIABLE FILE,L"LB",D1":R60:X2R4R5:F7%D22X2D3İ997:F7%1)( R6R61:EE1:X11EM:B1SL(X11):D$"WRITE"N1$",R"E",B"B1:B$(R6,X1):::CL$)+ R2R2R1:11:11:R2" ";:16:"RECORDS MOVED":R4R4R1:R3R7R2:14:10:R3" ";:15:"RECORDS TO GO":R308355* ( R1R3( 9000( 9:11:"MOVING";:18:R1" ";:21:"RECORDS":OF$LL",D"D1:R5R5R1:X2R4R5:F6%D22BC%(X2)D3İ998:F6%1( R6R61:X1EN:B1CL(S1(X)1)( RF$BC%(X2)",B"B1:783:B$(R6,X)(TE$,1):::CL$:216,0:9625)& :D$"OPEN"N1$":11:"TRANSFERING RECORDS":360::D$"OPEN"N1$",L"LB",D1":X11NC:B1SL(X11):D$"WRITE"N1$",R0,B"B1'A$(X1)::CL$:R20:R41:R50:R7X6:R3R7:5:5:"WE WILL BE MOVING";:23:R7;:28:"RECORDS"'F6%0:F7%0'970(R60:R3R8R1R8:8205R1":A4:A5:CL$&12:5:"WRITING PRINTER VARIABLE FILE"::D$"OPEN"N1$".P,D1":D$"WRITE"N1$".P":CO:F1:LI:F2:F1$:F3:F3$:F6$:F8$:F8:MO:CT$:N:TF$:LF$:CL$&D$"OPEN"N1$".PW,D1":D$"WRITE"N1$".PW":PW$:CL$&X8%X6:420:R$N1$:380i'%R8(24000LL):R840R8402%E21D22İ960A%E118250P%D11İ960r%A42:A5D3:X6D3A41:A5X6&:12:868:10:"WRITING VARIABLE FILE"::D$"OPEN"N1$".V,D1,L498":D$"WRITE"N1$".V,R0":EM:X6:RR:N11EM:SL(N1)::D$"WRITE"N1$".V, LONGEST FIELD YOU WILL SORT OR SEARCH (>9)? ";N2:N210ĺ(7):8082y$RR(19500(N23)):L1%(M3LB):L1%RRRRL1%$E215300$E11ĭ(X6A2)A3(D11(X6A2)(BZ%124928LA))ĉ::12:"APPENDING TOO MANY RECORDS-PRESS 'RTN'";:Z$::8360|E12S1(V)(S1$):SL(V)SL(V1)(CL(S1(V))CL(S1(V)1)):A$(V)H$(S1(V)):s#E11S2(V)(S1$):S1(V)S2(V)::~#ENV1#::EMEN:LBSL(EM)EM::E118090#:X1EN:4)X;"- ("CL%(S1(X))") ";:14:H$(S1(X)):F$:"ENTER THE LENGTH OF THE::E12Ğ:9:"ENTER <0> WHEN FINISHED"::360:34,4:A1NCN"J350::V1A1"T"TRANSFER FIELD # ('RTN'=ALL/1-"NC") ";:"";S1$"^E12(NCA1E11)ĭS1$""āV1NC:S1$(V):8060"hS1$"0"ĺ:8070"rS1$""(S1$)0(S1$)NCU%1:340:8020L#CLOSE"!(4)"OPEN"N$".S"2!(4)"READ"N$".S":!X6F!Z1X6T!BC%(Z):e!(4)"CLOSE"q!"Z1RC!,BC%(Z)BB%(BC%(Z)): TRANSLATE LOG->PHYS!6!P:8130!@37896:::8:"- SET-UP TRANSFER FILE -":360:34,2:;"BE0:C0:D1:Z0: ";E2:E23ĺ(7):5284' E2152896 E225180@ 5100W 216,0:E218002a 8000 (7):"FILE NOT FOUND! PRESS 'RTN'";:Z$:5222  NEW SEARCH FEATURE! (4)"OPEN"N$".I,D"D1 (4)"READ"N$".I" Z1RC:BB%(Z):!(4)""RECORDS YOU MAY APPEND TO VOL #2 = ";BY%360:"TOTAL RECORDS YOU MAY APPEND = "BX%::"PRESS 'RTN' ";:Z$:BX%08357 :9:14:"- TRANSFER -"::7:"1-LAST FILTER":7:"2-FROM/TO RECORD NUMBERS":7:"3-SELECTED RECORDS"::13:"WHICH (1-3)CM(X1)1:@D$" READ "N1$".V,R1":A4,A5:CL$:LACM(A1)A1:WD11BT%A5:5285]zBT%M1LA:BT%A3BT%A3BY%A3BT%:BZ%BT%A5:BY%BY%(A2A5):BX%BZ%BY%*"RECORDS IN APPEND FILE = ";A2:"RECORDS YOU MAY APPEND TO VOL #1 = ";BZ%:Z$:Z$(13)5260,Z1$Z1$Z$:5256PW$Z1$ė:12:11::"INCORRECT PASSWORD":::14:"PRESS 'RTN' ";:Z1$:5254 :D$"OPEN"N1$".V,D1 ,L498":D$" READ "N1$".V,R0":A1,A2,A3:CM(A1),CM%(A1):X1A1:CM(X):CM%(X)CM(X) (25) ":L25:800:N1$B$:N1$""U%2:340:5240lz:10:"PASSWORD TO ENTER FILE (25): ":L25:800:PW$B$}D12E21İ960E125284D$"OPEN"N1$".PW,D1":D$"READ"N1$".PW":PW$:CL$:PW$""5270:12:"PLEASE ENTER PASSWORD: ";:Z1$"" APPEND TO":20:5:"LOAD DISK IN DRIVE 1":23:"PRESS 'RTN' WHEN READY:";:A$::8390l216,0:"APPEND TO WHICH FILE: (1-"NR") ";:"";Z1$:Z(Z1$):Z1ZNRU%1:340:5228nE11N1$R$(Z):52500x:"ENTER 'NEW FILE' NAME> 'APPEND TO VOL# 1' INTO DRIVE #1 AND PRESS 'RTN' ";:Z$Fh5295j::D$"OPEN DATA FILES,D1":D$"READ DATA FILES":NR:J1NR:R$(J)::CL$::7::"-- DATA FILES AVAILABLE --":::I1NR:I" "R$(I)::`kNR1ĺ(7);"TOO MANY FILES ON DISK TO340:52005ZE0:X6AB:EE1:BC%(E)X6::X6BA1?_5289d:9:13:"- SELECT ONE -"::7:"1- APPEND RECORDS TO A FILE":7:"2- CREATE A NEW FILE"::13:"WHICH (1-2): ";E1:E12U%1:340:5220eE125240;f:(7):11:"PLACE WHEN FINISHED"::360:34,4:BC%(0)1:X61RR("ENTER RECORD # "X6" ("BC%(X6LA",D1":cX60:PG0:CK0:LN0:W9$"":X2RC:X10:SA1::10)"* TRANSFER ROUTINE *":360::34,2:"PLEASE LABEL YOUR DISKETTES AS NEEDED:"::7:"A- EXISTING FILE VOL #1"::7:"B- EXISTING FILE VOL #2"::7:"C- APPEND TO FILE VOL #1":q7:"LOAD AN INITIALIZED 'APPENDTO FILE VOL #2' DISKETTE INTO DRIVE #1 AND PRESS 'RTN' ";:Z$:U%3:340:F7%1: CL$:20:"LOAD AN INITIALIZED 'APPENDTO FILE VOL# 2'INTO DRIVE #1 THEN PRESS 'RTN' ";:Z$:U%3:340:D$"OPEN"N1$",L"KETTE F> AN INITIALIZED 'NEW FILE VOL# 2' DISKETTE INTO DRIVE# 1 AND PRESS 'RTN' ";:Z$:U%3:340:D$"OPEN"N1$",L"LB",D1":CL$:20:"LOAD 'EXISTING FILE VOL# 2'INTO DRIVE #2 THEN PRESS 'RTN' ";:Z$:U%2:340:OF$LL",D"D1:x20:"E D> 'NEW FILE' AND":"PRESS 'RTN'";Z$:U%3:340:8D11Ģ20:"LOAD 'EXISTING FILE'":"AND PRESS 'RTN'";Z$:U%3:340:20:"LOAD 'APPEND TO' AND":"PRESS 'RTN'";Z$:U%3:340:}CL$:20:"LOAD AN INITIALIZED 'NEW FILE' DISKETTE INTO DRIVE #1 AND":"PRESS'RTN' ";:Z$::2D11Ģ20:"LOAD E$(21)820uHE$(8)İ890:820RE$(13)ĺE$;:\E$;:B$B$E$:ILĂf(B$,1)(13)ĺ(7);:(8)" ";:(8);:B$(B$,(B$)1):820pzI1ı (FILES":D$"WRITE DATA FILES":1:R$:D$"CLOSE";216,0:{D$"OPEN "N1$".I":D$"WRITE "N1$".I":X11X8%:X1::CL$:I10131022:PP:I,PP:::104,168,104,166,223,154,72,152,72,96 B$""::I1L:"_";::((37)2(L39.9)):1*I1L1r10:9)"> RECALLING FLD.# "C%(X3,L)" <":6|400D$"OPEN DATA FILES,D1":D$"READ DATA FILES":NR:J1NR:R$(J)::D$"CLOSE":R$(NR1)R$:D$"OPEN DATA FILES":D$"WRITE DATA FILES":NR1:J1NR1:R$(J)::D$"CLOSE":410.1013:D$"OPEN DATA '216,0:(7)::12:"DISK ERROR-RECORD ";::I;::" MAY BE BAD":"PRESS 'RTN'";:Z$:8360JRF$BC%(L)",B"B1:783:A$(X)(TE$,1)::CL$:T(7):CV(37):37,(CVU%):958:^X1NC:4)X;"- ("CL%(X)") ";:14:H$(X)::hX140:"-";::,::CL$:216,0: 293E F60:F70:I1X1:D50:BB%(I)D3D51d D5F6ĺOF$LL",D"D1:F61w D5F70:292 "D5F6F60 #F6F7ĺOF$LL",D1":F71 $B1CL(C%(X3,L)1):RF$BB%(I)",B"B1:783:S$(I)(TE$,1)::CL$:216,0: %IBB%(I)\);:5000A :12:6::"- PRESS 'RTN'";::Z$:150K 295q F60:F70:I1RC:D50:ID3D51 D5F6ĺOF$LL",D"D1:F61 D5F70:280 D5F6F60 F6F7ĺOF$LL",D1":F71 B1CL(C1):RF$I",B"B1:783:S$(I)(TE$,1)1:"LOAD ";::"DATA DISKETTE VOL# 2";::" INTO DRIVE# 1":"AND PRESS 'RTN'";:Z$::D$"OPEN"N$",D1":CL$ 216,0:D$"OPEN"N$",L"LL",D"D1:X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:783:H$(X)(TE$,1)::CL$:X1NC:CL%(X)CL(X)CL(X1)1::40 (7D"D1",L498":D$"READ"N$".V,R0":NC,RC,RR:CL(NC):X1NC:CL(X)::D$"READ"N$".V,R1":D2,D3:CL$ LL(CL(NC)NC):B$(40,NC),BC%(RR),A$(NC),S2(NC),S$(RC),H$(NC),CL%(NC),BB%(RC),SE(20),C%(20,20),DT$(20,20),SL(NC),S1(NC) 225j D12D22ė:(7):1 2` dD1(864):P$((865)):P1$((866)):S$((867)):I(868):X869I868:N$N$((X)): xRF$D$"READ"N$",R":OF$D$"OPEN"N$",L":CL$D$"CLOSE":D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$` :D$"OPEN"N$".V,'_ TE$"":216,0::D$(4):D$"NOMON I,O,C":700:37902,255:M197280:M2122880:M3M1M2:100(D$"OPEN"N$".P,D"D1:D$"READ"N$".P":CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8,MO,CT$,N,TF$,LF$:CL$:P1$"Y"ĺD$"OPEN DATE":D$"READ DATE":783:DA$(TE$,1):CL$              SD$"OLD DISK":DD$"1":FG1:86:DD$"2":FH1:86:71:61:FL29hSD$"NEW DISK":DD$"1":FG1:86:FH1D3RC:SD$"NEW DISK":DD$"2":86:26::" * SORT ROUTINE *":"----------------------------------------":34,2:*X1(RC2):IDD3:D2:68:94:33:98:61:D3RC24_ SD$"NEW DISK":DD$"1":FG1:86:DD$"2":FH1:86:25 FH1:FL1:CP$"YOUR FILE IS NOW A 1 VOLUME FILE":120:SD$"NEW DISK":DD$"2":86:D3RC:D21 D2:90:37:75:92:34:73:101 80:TRRCı?D3TD:101 80:TRRCı[ SD$"OLD DISK":DD$"1":86:71:61:SD$"NEW DISK":DD$"1":86:15b 8 SD$"NEW DISK":DD$"1":D2:86:68:94:33:98:61:D21:D3RC:D1:90:37:75:92:34:73:101 80:TRRCı 71:D2:61:D1:19 8& FL0:TI:XI%(X)I%(X)012+ RX:140:T(T0)j RI%(X):140:T(T0):RI%(X):144:I%(X)0:XR:I%(X)0ī12r 10 I:DC$:DD1:73:D3RCD3RC:D21 DD1:37: 68:94:33:98:61:SD$"NEW DISK":DD$"1":86:D21:D3RC:90:37:75:92:34:73:$" DISK IN DRIVE #1":120:122C 32:D$"RUN MENU,D1": CP$"WRITING INDEX FILE":CQ$"TO DISK":120:DC$:DO$;N$".I,D"D1:DW$;N$".I":X1RCDC:I%(X)::DC$: 139:CP$"REORGANIZING DATA FILE":CQ$"PLEASE WAIT":120:T$(NC,1):I1RC:XRECORDS":CQ$"PLEASE WAIT":120:38:CP$"SORTING "(RC)" KEYS NOW":CQ$"BACK IN ABOUT "(((RC1000)6))" SECONDS...":120:55:CP$"** ALL DONE **":120:(7);(7):GA% OP7,8,14,17,18,21,22( X14:(7);::CP$"SORT COMPLETED-PLEASE PLACE":CQ(4)"BRUN QSORT/DATE,D1":A$"":D$(4):DO$D$"OPEN":DR$D$"READ":DW$D$"WRITE":DC$D$"CLOSE":D1(864):30:D11İ138CP$"READING FILE STATS":CQ$"PLEASE WAIT":120:35:118:126:103:DD1:D21İ137 CP$"READING SORT KEYS ON "(RC)" z#       Ԡ Ԡ)!Ơ ՠ  Š ԮʰԯŠ ԯůŠ ҠҠ Ӡ  Š Π"ɠ Ԡ̠Ԡ ̠Ԡ ՠ Ҡٮʰ!$ ˠŮʠ͠& Ġ Ġ͠ ĠRT"( ,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$(X6,X8)):8920"WT(S$(X))(C$(X6,X8)):8920"WT(S$(X))(C$(X6,X8)):8920"WT(S$(X))(C$(X6,X8))"C$(0,0)((WT10N.5)(10N.5)):854080008000:00:::I1RC!"ENTER RECORD #"I" (1-"RC") ";:BB%(I):BB%(I)RCĺ(7);:560:8640!BB%(I)0X1I1:8240!!8300$"I1ı`"B1CL(C1%(X6,X8)1):RF$BB%(X)",B"B1:783:S$(X)(A$,1)C"C3%(X6,X8)0,8860,8880,8900,8910f"WT(S$(X))(C2(X)0::8000!D11D22ė:(7):12:3:"LOAD ";::"UTILITY DISK";::" THEN PRESS 'RTN'";:Z$!:12:11:">> LOADING MENU <<"!D$"RUN MENU,D1"a!X61:X81::6:"ENTER SELECTED RECORD NUMBERS":580:8::"ENTER A <0> WHEN FINISHED"::580,X8)1):D$"WRITE"N$",R"BB%(X)",B"B1:C$(0,0)f!X8p!Xz!CL$!Z3X6X41Ģ23:13::"CLEARING MEMORY"::XX1RC:S$(XX)""::22:958!Z3ĂX6A!::23:(7)::"REPLACE FINISHED!";::" R)ESTART,'RTN'MENU";:Z$e!Z$"R"āX1X4:CX0:8521hH!X3{I!X0:X118570J!F60:F70:X1X1:D50:BB%(X)D3D51L!D5F6ĺOF$LL",D"D1:F61N!D5F70:8534P!D5F6F60Q!F6F7ĺOF$LL",D1":F71V!X81C2(X6)0X!C3%(X6,X8)18800FZ!C$(0,0)C$(X6,X8)\!B1CL(C1%(X6(X4)C2(X4)1:Z38080 :11:16::""::Z3āX61X41:X10:37896:13:11:"REPLACE >"X6"< OF >"X41"<":290:8500 !Z28522!Z1X61:X11RC:BB%(X1)X1::X1X11:8522`4!X01RC:X31C4(X6):S$(X0)EN$(X6,X3)X1X11:BB%(X1)1- REPLACE WITH":11:"2- SUM TO" 11:"3- SUBTRACT FROM":11:"4- MULTIPLY BY":11:"5- DIVIDE BY"::11:"6- MAKE CORRECTIONS"::14:"WHICH (1-6): ";C3%(X5,X7):C3%(X5,X7)6ĺ(7):8390@ C3%(X5,X7)6C2(X4)0:X7X71:8260P 34,2:8260n C2Cė:(7);:8320 C1%(X5,X7)0Ĺ34,2:8420 :"ENTER CONSTANT: ":LCL%(C1%(X5,X7)) 800:C$(X5,X7)B$:C$(X5,X7)""ĭ(C$(X5,X7))178440x 34,2::4:"PERFORM WHICH OF THE FOLLOWING WITH":::B$;::" ON FIELD # ";::C1%(X5,X7):::11:"8050l0 X5X51:X70D X7X71:C2(X4)C2(X4)1X X76ĉ:8420l :5:"UPDATE FIELD >"X7"< OF >5< ALLOWED":580:X71Ė10::"ENTER <0> IF FINISHED"::580:34,6g 570::"UPDATE WHICH FIELD (1-"NC"): ";:"";C1%(X5,X7):C1%(X5,X7)0C1%(X5,X7)NNISHED"::580:34,4 X2A50::"ENTER 'ENTRY' #"X2": ":LCL%(C(X4)):800:EN$(X4,X2)B$:950:EN$(X4,X2)""ĭ(EN$(X4,X2))17C4(X4)X21:8225 X2! ;& "ALL CORRECT (Y/N)? ";Z$:Z$"Y"Z$"N"ĺ(7);:560:8230[+ 34,2:Z$"N"X4X41:6:"REPLACE >"X4"< OF >40< ALLOWED":580:X41Ė9::"ENTER <0> IF COMPLETED"::580:34,6:816034,4:570::"'ENTRY/S' IN WHICH FIELD (1-"NC") ";:C(X4):C(X4)NCĺ(7);:560:8160134,2:C(X4)08440k :6::"ENTER A WHEN FINTO:"::10:"1- ALL RECORDS":10:"2- SELECTED RECORDS":10:"3- RECORDS WITH 'ENTRY'":T13:"WHICH (1-3): ";Z$:Z$""ĭ(Z$)17ĉ:8604hZ(Z$):Z$""Z3ĺ(7);:560:8020rZ3X414|Z8240,8620,8080@X4X41PX4418440:jE1ĺ(8);:910~(8);"_";(8);I1I11:I11I11:B$"":I11I11:B$"":B$(B$,(B$)1):SK(CL%(C(X4))40):X1SK:::@37896:A1:X10:X40:X50::11:"< REPLACE ROUTINE >":580:34,2::7:10:"ENTER CONSTANT/S I$)21820@(E$)2X21ġ:958:AX21:E11:8210B(E$)18ĉ::8000HE$(8)İ890:820RE$(13)CV(37)3:958:E$;:E10:\E$;:B$B$E$:I1LĂCf(B$,1)(13)ĺ(7);:(8)" ";:(8);:B$(B$,(B$)1):820IpVzI11ıX21B$E$:z7E$(10)E$(92)8E$(11)E$(91)9E$(12)E$(95):(E$)27I11820;(E$)27B$EN$(X4,X2):B$: <E1B(EN$(X4,X2)):(B$)BB(B$)N>E1I1BE$(21)Č1036:B$B$(EN$(X4,X2),I1,1):I1I11:820`?(EAD":"PRESS 'RTN'";:Z$:86040CV(37):37,(CV1):958::X1NC:4)X;"-("CL%(X)") ";:14:H$(X)::DX140:"-";::6 B$""::I11L:"_";::((37)2(L39.9)):1:E$(2)CV(37):EN$(X4,X2);:CV1:1D*I11L1c4E$:(E$)17F70:I1RC:D50:ID3D51&D5F6ĺOF$LL",D"D1:F61(D5F70:300*D5F6F60+F6F7ĺOF$LL",D1":F71,B1CL(C(X6)1):RF$I",B"B1:783:S$(I)(A$,1)::CL$:216,0:t6216,0:(7)::12:"DISK ERROR-RECORD ";::I;::" MAY BE B",B"B1:783:H$(X)(A$,1)::CL$:X1NC:CL%(X)CL(X)CL(X1)1: D$"OPEN"N$".P,D"D1:D$"READ"N$".P":CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8,MO,CT$,N,TF$,LF$:CL$ (7);:8000C:12:6::"- PRESS 'RTN'";::Z$:150M"310s$F60:,C1%(40,5),C2(40),C3%(40,5),C4(40),C$(40,5) 225 D12D22ė:(7):11:"LOAD ";::"DATA DISKETTE VOL# 2";::" INTO DRIVE# 1":"AND PRESS 'RTN'";:Z$::D$"OPEN"N$",D1":CL$ 216,0:D$"OPEN"N$",L"LL",D"D1:X1NC:B1CL(X1):D$"READ"N$",R"01ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ :D$"OPEN"N$".V,D"D1",L498":D$"READ"N$".V,R0":NC,RC,RR:CL(NC):X1NC:CL(X)::D$"READ"N$".V,R1":D2,D3:CL$ LL(CL(NC)NC):BB%(RC),S$(RC),H$(NC),CL%(NC),EN$(40,50),C(40) A$"":216,0::D$(4):D$"NOMON I,O,C":37902,255:100 PCOPYRIGHT 1981 BY W.L.PASSAUER dD1(864):P$((865)):P1$((866)):S$((867)):I(868):X869I868:N$N$((X)): xOF$D$"OPEN"N$",L":RF$D$"READ"N$",R":CL$D$"CLOSE":D1     IZING DISK>":(:D$;"INIT HELLO,D";D1@:(4)"DELETE HELLO"P:16368,0:Z1010UBACK TO MENU v1010U (&: INITS DISK RETURNS TO MENU8:::16368,0u:4::1::"INSERT DISK TO BE INTIALIZED IN DRIVE ";D1::11:2:"TYPE 'INITIALIZE'TO INITIALIZE DISK"::7:"":Q$:Q$"INITIALIZE"Ĭ::12:10::" FOR MORE: ";:KE%,3,A$,2:KE%2ė:10180'KE%1(A$)Y10200'A$"0"10240'(4)"DELETE"CA$((A$));SU$;",D2"' ERROR( ABORT...K":100907'X1CA%:CA$(X)(CA$(X),8):TR%,CA$(X):l'Y0:X1CA%:(CA$(X),LN)SU$CA$(X)"":10150'YY1:CA$(Y)(CA$(X),(CA$(X))LN):CA$(X)""'::X0:Y10180'"THERE ARE NO FORMAT FILES OF THAT TYPE ON THIS DISK"'Z11000:RUN AMPER FACTORY.OBJ0,D1":CA$(88):D1(864):I(868):X869I868:N$N$((X)):j':10:"INSERT ";::"FORMAT";::" DISK IN DRIVE "D1:15);"AND PRESS 'RTN'";:X$:t'CA%,CA$(0),D1:CA%010230 ~'CA%ĺ"THERE ARE NO FORMAT FILES ON THIS DIS CUSTOM OUTPUT FORMAT":10);"4. FILTER FORMAT":10);"5. RETURN TO MENU":i.' ".CIF",".COF",".FLTR"8'25);"WHICH?";:"";X$B'X$""10010:X(X$):X1X41010L'X1Ĺ867,22:S19:ZZ1:1115V'I1X1:SU$:['LN4:X4LN5S`':D$;"B?";SS1550,1555,1000$15102S1:1115BS1.5:1115^' DELETE FORMAT ROUTINEi'216,0r'S20':5:"SELECT WHICH TYPE OF FORMAT DO YOU WANT":"TO DELETE:"M$':10);"1. PRINTER FORMAT":10);"2. CUSTOM INPUT FORMAT":10);"3. 1410#S19:ZZ1:867,21:1115.100004c MENU FOR ENTER DATA - REGULAR OR CUSTOMi7: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$:1110Bx MENU FOR DEFAULT PRINTER VALUES/DELETE FORMATHt7:3:"SELECT ONE OF THE FOLLOWING:":5:"1. CHANGE PRINTER DEFAULT VALUES":5:"2. DELETE FORMAT":5:"3. RETURN TO MENU":14:"WHICH?";SS1450,1455,1000"D$"RUN R,D1"&D$"RUN CA,D1"8D$"RUN I,D1"ND$"RUN FMTED,D1"k867,S(S):D$"RUN DM,D1"} D$"RUN U,D1""YOU SHOULDN'T BE SEEING THIS... ":"PROGRAMMER ERROR": :(7):10:7::"WRONG DISKETTE IN DRIVE # 1":::"PRESS 'RTN ED,D1""D$;"RUN ED CUSTOM,D1":D$;"RUN DELFMT,D1"fZZĹ867,S(S):S(S)13ĺD$"RUNLIST,D1"xD$"RUN L,D1"867,22:D$"RUN L,D1"D$"RUN SH,D1"D$"RUN S,D1"D$"RUN QED,D1"D$"RUN M,D1"D$"RUN C,D1"D$"RUN T,D1:" PROGRAM DISK INTO DRIVE #1":12:"THEN PRESS 'RTN'";:Z$J`ZZ1150Uj867,S~:12:11)"< LOADING MODULE >":S1160,1290,1250,1190,1280,1240,1260,1280,1280,1280,1275,1280,1280,1170,1180,1220,1170,1210,1170,1172,1200,1270,1165S1ĺD$"RUNQ1300,RS1015000: INIT DISK PATCH;SS221150TVS201400:S11500[S13MTUTĺ(7)::11:2:"LOAD ";::"REPORT";::" PROGRAM DISK INTO DRIVE #1":12:"THEN PRESS 'RTN'";:Z$=\S14MTREĺ(7)::11:2:"LOAD ";::"UTILITY";:LE"@ .24:14::"WHICH:";::34,23:" ";S$:34,0:S$""1070 B(S$)48ĺ(7)::10:7:"NICE WORKING WITH YOU...."::"PLEASE PLACE AN ";::"";::" DISKETTE INTO DRIVE #1 AND PRESS 'RTN'";:Z$::D$;"PR#6" LS(S$):S1S221070 NDEX":"8-DELETE A RECORD";:22:"18-MATH":"9-DELETE A FILE";:22:"19-WORKSHEET" $"10-INIT DISK";:22:"20-PRINTER / FORMAT" )7::"[MICRO LAB CUSTOM SERIES]"::"11-INPUT EDITOR";:22:"21-OUTPUT EDITOR" + -"0-EXIT";:22:"22-SELECT A FI"1-ENTER DATA";:22:"12-PASSWORD":"2-UPDATE";:22:"13-FILE INFO":"3-REPLACE";:26::"[REPORT]": "4-SORT";:22:"14-LIST/REPORT":"5-INSPECT/CHANGE";:22:"15-SEARCH":"6-TRANSFER";:22:"16-MASTER SEARCH"R "7-CONSTRUCT/APPEND";:22:"17-IDMOVE":D$;"BLOADGARBAGE":D$;"BLOADINIT":D$;"BLOADGMAN"c P5:" === A MICRO LAB DATABASE ===": 0CV(37):37,(CV2):958:  ENTRY FOR MENU :80::TA20((N$)2):TA::N$:::11)"MENU SELECTION LIST": 4::(91);"UTILITY]":h 867,01 I(868):X869I868:N$N$((X)):? D1(864) S(23):I150:X1,X2:X10S(X1)X2:: 14,13,17,20,21,21,23,22,19,23,5,3,8,4,13,8,9,9,10,11,12,12,0,0 1000 9 7(867)254ģ37759:D$(4):D$;"BLOADDISK SPACE.OBJ":D$;"BLOA[> ========================== ========================== MT=MENU TYPE MT=RE FOR REPORTS MENU DISK, MT=UT FORUTILITY DISK MENUUT2:RE3:MTUT ========================== ========================== D$(4):D$"NOMON I,O,C":         REPLACE DRIVERSA(4)"BLOAD INIT,D1":(4)"BLOAD GMAN"L37759RX`ej SCREENkts~:12)"* LEVEL SORT *"X140:"-";:34,3:HIPUT X% IN Y% JRI1RC:Y%(I)X%(I):\2000C9A,(B$)128581807A(107)((108)256)J(B$)158130p(A1)(((B$,2,1)))12858150(A)(((B$,1)))12858150&AA((A2)(A3)256)0A((109)(110)256)58110:"ARRAY NOT FOUND!":Dx" OCCURED IN LINE #"(LN)?CQ$"PLEASE NOTIFY PROGRAMMER!"L ߰53000:h߲ ALTERNATE ENTRY POINT} ER(222):57070LOAD FILEBLOAD ARRAY FROM DRIVE #2A0:5810048225,96(4)"BLOAD"X$",A"A",D"D148225,16:D$"READ"N$".V,R1":D2,D3:CL$0LLCL(NC)NCzۭD22CP$"PLACE VOLUME #2 DATA DISK":CQ$"IN DRIVE #1":53000:54000$۱޲޲ HANDLE ERRORS޲ ER(222)ޭER6ıޭER8ıޡLN(218)((219)256)CP$"ERROR #"(ER)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 PRESS 'RTN'";:Z$ۺ:D$"OPEN"N$".V,D"D1",L"VL:D$"READ"N$".V,R0":NC,RC,RR:CL(NC):X1NC:CL(X): WORKING MESSAGEֲ$֢20:9583׭WMWM0:j ע20:17::"WORKING"::15:"PLEASE WAIT"::WM1:pڲڲ SET UP FILE VARIABLESڲVL498: RECORD LENGTH V.FILED$(4)D1(864):P$((865)):P1$((866)):S$((867)):I(868):bϺCP);CQ$lCQ$""vϱ"Ҳ9Ҳ ABORT?ӲIӊ0:0_AB0: ABORT FLAG"ӹ16368,0: RESET KB STROBE,Ӣ20:9586Ӻ14)"";:SB$@Ӻ:SB$(17)AB1:54100JӭSB$" "54000TӢ20:958^ӌ1002:ֲֲ ˲*˲ ONERR GOTO FIX S/R$4˲/>˭FIXı;HFIX758|RˁXFIXFIX9:Y:X,Y::104,168,104,166,223,154,72,152,72,96\˱ϲϲ CENTER PRINTϲ&ϗ:110CS20:CP(CS((CP$))2.5)DϺCP);CP$NϺXCP(CS((CQ$))2.5)  DISK ":CQ$"INTO DRIVE #1":53000:54000>Z59000Id1400an(4)"RUN MENU ,D1"pxCL$:1360v** SCANNING/MERGING*+20:958 +5:+"[ SCANNING ]" +:,,20:958-25: -"[ MERGING ]"-: FLGP2RC:100# D$"CLOSE"@ 61000: TRANSFER X%->Y%^ Z: END MAIN LOOP ****** CP$"WRITING FINAL INDEX":53000 D$"OPEN"N$".I,D"D1 (D$"WRITE"N$".I" 2X1RC:X%(X): <CL$ AD111360 FD2213703P:CP$" PLACEECORD# D11DND1:1190. DN(CRD3)1m DNPDPDDN:CL$:OF$LL",D"DN: OPEN FILE ON OTHER DRIVE D$"READ"N$",R"CR",B"CL(LC(Z)1) 783:F$(A$,1) F$H$H$F$:1240 FLG1:P1P1(A1) P2A:1250 FLGFLG0:100 ACK UP FIRST ENTRY' D11DND1:11609 DN(CRD3)1U D$"OPEN"N$",L"LL",D"DN D$"READ"N$",R"CR",B"CL(LC(Z)1):783:H$(A$,1)  COMPUTE WHICH DRIVE RECORD IS ON PDD1: PD=PREVIOUS DRIVE# A2RC:P2A1 CRX%(A): CR=COMPUTED RTTRIBUTES .X%(RC),Y%(RC)5 8X$"SL"(LC):B$"Y"@ B58000K LB$"X"b V MAIN LOOP ******u `Z(LC1)11 jCP$"MERGING LEVEL "(Z1):CQ$"INTO LEVEL "(Z):53000 t11000 ~X$"SL"(Z):58000: READ FILE INTO X%(X) CRX%(1): PIO X%(P2) BY Y%(1-RC) x% 11500D 15:17:"GAP="P2P1" "_ BB%,X%(0),P1,P2,Y%(0)o P10:11000u {   MAIN LINE  60000: SET UP SCREEN" 52000: ONERR FIX CP$"LOADING FILE VARIABLES":53000 $56000: FILE A6 LEVEL SORT 2 DF 5.0 MICROLAB (C)1981 <_ 08/31/81 PER STAN GOLDBERGew WRITTEN BY: MIKE HATLAK A$"" LC(38395)X1LC:LC(X)(38395X):(A$""21000d nSORT X%(P1) T     " "ף37759" ױ"ڲ%"ڲ SCREEN+"ڲ3"ډ:M"ں12)"* LEVEL SORT *"a"ځX140:"-";:m"ڹ34,3:s"۱}"2000:TIFY PROGRAMMER!"!Dϰ50100::!lϲ ALTERNATE ENTRY POINTO!vER(222):53045U!Ҳh!Ҳ INVERT ARRAYn!Ӳ!ӁY1(RC2)!SS%(RCY1):S%(RCY1)S%(Y):S%(Y)S!"ӂ!,ӱ!ֲ!ֲREPLACE DRIVERS!ֲ"ֺ(4)"BLOAD INIT,D1":(4)"BLOAD GMANEASE CORRECT THE PROBLEM"+ p˰50100:50200: z˭AB52010R ˺"ANOTHER DAMN ";:X ϲl ϲ HANDLE ERRORSs ϲ ER(222) ϭER6ı &ϭER8ı 0ϡ 5LN(218)((219)256) :CP$"ERROR #"(ER)" OCCURED IN LINE #"(LN)!?CQ$"PLEASE NO00DZ ˲!!˲ LOAD DRIVERS'"˲L*˗:12:10)"< LOADING DRIVERS >"X/˥52060}4˺(4);"BLOADQSORT/DATE/MERGE,D1">ˌ36592CIA$""H˥53100Rˢ24:X110:::\˭FIXİ50000aˌFIX:53000 fCP$"UNABLE TO READ DRIVE #1":CQ$"PL:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$VǺ: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$jǭD22CP$"PLACE VOLUME #2 DATA DISK":CQ$"IN DRIVE #1":50100:50220:958ű8Dz09Dz SET UP FILE VARIABLES6:DzY=D$(4):VL498: LENGTH V.FILEBD1(864):P$((865)):P1$((866)):S$((867)):I(868):X869I868:N$N$((X)):LRF$D$"READ"N$",R":OF$D$"OPEN"N$",L":CL$D$"CLOSE"CQǭD11ė17:14::"";:30:"NO";:: NOe&ŭABYN1:16:14::"";:30:"YES";::YESt0ŁZ1300::Ţ15:958DYESYN:NAB0XŢ20:958bź14)"";:24:SB$lź:SB$(14)AB1:50560vŭSB$(25)50510Ţ20:958ĭWMWM0:NĢ20:17::"WORKING"::15:"PLEASE WAIT"::WM1:TIJkIJYES/NO DESCISION"qIJĢ15:958Ţ16:7)"PRESS FOR YES" ź7)"PRESS FOR NO"Ű50510*ŭABYN0:IJIJ ABORT#IJ-Ċ0:0C AB0: ABORT FLAGc!Ĺ16368,0: RESET KB STROBEq"Ģ20:958$ĺ14)"";:SB$&ĺ:SB$(17)AB1:50218(ĭSB$" "50200*Ģ20:958,Č1002:|IJ~IJ WORKING MESSAGEIJĢ/RdòníFIXısFIX758`xÁXFIXFIX9:Y:X,Y::104,168,104,166,223,154,72,152,72,96fñlòò CENTER PRINTò×:11CS20CP(CS((CP$))2.5)úCP);CP$úCP(CS((CQ$))2.5)úCP);CQ$CQ$""ñIN SCROLL FASHION E16&5ijQ1NC30AγW014VسQWNCĺ:46080dݳQW;" ";w⳺(F$(QW),E);쳭QW15NCĺ:4608020:QW15;" ";(F$(QW15),E) 21:"";:DM$:PòZò ONERR GOTO FIX SA:P$; ,26:A5)"IS THIS CORRECT ?">;:AA4X@A1)"0-ALL CORRECT"JA1)"1-"LC" CHANGE THIS ENTRY"::A2)"WHICH: ";:DM$:DM$"0"ıTA(DM$):A1ALC45000^XA:44000:45000DISPLAY FIELD NAMESTWͯA7Rү:::A)"LEVEL FIELD TYPE ORDER":A)"----- ----- ---- -----"^ܯX1LCk毖3A:X;9A:"#";SL$(X,0);P$"WORD":SL$(X,1)"N"P$"NUM"SL$(X,1)"D"P$"DATE"15A:P$;P$"ASC":SL$(X,2)"D"P$"DSC"22SCENDING"-lA)"6) DATE SORT - DESCENDING"<vY15::c22:A3)"WHICH: ";:DM$:B(DM$)zB1B6Ė1:44160SL$(X,2)"A":B2(B2)SL$(X,2)"D"SL$(X,1)"W":B3ıSL$(X,1)"N":B5ıSL$(X,1)"D":ȯɯ REPLAYʯ(B$)1(B$)NC440208CQ$"SELECT SORT TYPE":50100@:HA6k&A)"1) WORD SORT - ASCENDING"0A)"2) WORD SORT - DESCENDING":DA)"3) NUMBER SORT - ASCENDING"NA)"4) NUMBER SORT - DESCENDING"X bA)"5) DATE SORT - A SEQUENCING-(SEQ$(1))ıC Y14:SEQ$(Y):X FIRST (PRIMARY)r% SECOND,THIRD,FOURTHx*~૲᫲SELECT SORT TYPES⫲CP$SEQ$(X)" SORT FIELD"CQ$"FIELD NUMBER ?":50100:::18)"#";:"";B$SL$(X,0)B$:0A(107)((108)256).(A$)142190TĤ(A1)(((A$,2,1)))12842210vΤ(A)(((A$,1)))12842210|ؤAA((A2)(A3)256)줭A((109)(110)256)42170"ARRAY NOT FOUND!":50300:10(X2)30:"STORED ";:THE ARRAY!20:958:10(X2)722:"SORTED ";:=MSTORE FILESk30::"STORING";:$50300:10(X2)j BSAVE S% ARRAY TO DRIVE #2oA$"S"tA0:42160~(4)"BSAVE"A$"L"X",A"A",L";(A2)((A3)256);",D"D14299 BOUNDARIES\PSL$(X,1)"N"QS%1:S$(RC1)"999999999999":S$(0)"-999999999999": NUMERICUSL$(X,1)"N"āM1RC:S(S$(M)):S$(M)(S):ZSL$(X,1)"D"āY1RC:DC%,S$(Y):: DATE SORTdQS%,S$(0),S%(0): SORT nSL$(X,2)"D"İ54000: INVERT D31RCS%(R)R'RF$;R;",B";BYT>ML:S$(R)(IA$,1)JR:CL$_50300:10(X2)u'14:"LOADED ";:{()SORT FILE*222::"SORTING";:<21:16:"SORT:";SL$(X,1)" - ";SL$(X,2) FQS%0:S$(0)"":S$(RC1)(255): SET UP EML783"J14::"LOADING";:1T50300:22MYBYTCL(((SL$(X,0))1))g^OF$;CL(NC)NC;",D"D1shR1D3mS%(R)RrRF$;R;",B";BYT|ML:S$(R)(IA$,1)S$(R)""S$(R)" "R:CL$RCD340990OF$;CL(NC)NC;",D1"RONE COMPLETED" 'D115543 (D22İ50100:570^ *CQ$"PLACE DISK IN DRIVE #1"i .50100t 050200 :38395,LC DX1LC:38395X,(SL$(X,0)): X700 b(4)"RUN LEVEL SORT 2,D1" FIX:550 : @ ALOAD FILE B1:X;")";# 4:"FLD #";SL$(X,0)) D  ***** MAIN WORK LOOPP X1LC^ 10(X2){ 4::"FLD #"SL$(X,0);: 40000: LOAD IT 41000: SORT IT 42000: STORE IT 4:"FLD #"SL$(X,0);  :X12:(7);: &CP$"PHASE DEEP":CQ$"IS THIS CORRECT?":501008 "50400:YES200C '46000O ,X1LCZ 644000` @k J45000 TCP$"THANK":CQ$"YOU":50100:X1500: CP$"LEVEL SORT STATUS":CQ$"-----------------":50100:24:Y14:: X1LC 10(X2)  CQ$"UP TO FOUR (4)"$ 50100; :17)"-->";:DM$] DM$(17)ĺ(4)"RUN MENU,D1"z LC(DM$):LC1LC5280 (7) CP$"IMPROPER SPECIFICATION!":CQ$"MUST BE BETWEEN 2 AND 4" 50100:X12000::200# CP$"SORT "(LC)" LEVELS  50000: ONERR FIX% SL$(4,2)B 51000: FILE ATTRIBUTESW S$(RC1),S%(RC)q READ IN FIELD NAMES F$(NC):OF$;CL(NC)NC X1NC:RF$;"0,B"CL(X1) 783:F$(X)(IA$,1) CL$ 46000 CP$"NUMBER OF LEVELS TO SORT?"~5 LEVEL SORT 1 DF 5.0 MICROLAB (C)1981;^ 08/31/81 PER STAN GOLDBERGdv WRITTEN BY: MIKE HATLAKde MAIN LINEfn52000: LOAD DRIVERSx56000: SET UP SCREEN" 43000: SEQ$(X)                    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.""D/16000:">24:1:"HIT ANY KEY TO CONTINUE";:XX$:23::"2000,$;"RUN I" #>24:1:"HIT ANY KEY TO CONTINUE";:!.: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 MOVE MODE (H)ELP THIS PAGE"!/"/" NOTE: AT CURRENT CURSOR POSITION"# %+c *+"(SHIFT M) MOVE ITEM AT CURRENT CURSOR":14)"POSITION"i /+ 4+"CONTROL Q QUIT AND WRITE FORMAT FILE" 9+ >+"<- AND -> PAGE BACKWARDS AND FORWARDS"::"(H)ELP"14)"THIS PAGE OF INFO" ,16000:YFOLLOWING KEYS HAVE THE FOLLOWING FUNCTIONS WHILE EDITING A SCREEN FORMAT:"l+"I,J,K,M MOVE CURSOR"r+ +"(A)DD"14);"ADD DATA OR CONSTANT AT"+14:"CURRENT CURSOR POSITION"+ +"(D)ELETE DELETE CURRENT DATA/CONST 0:SY%(IN)0:NKIN1:IN16'DX%(IN),DY%(IN),DN%(IN)j'DX%(IN)0FL%(IN)LN%(DN%(IN)):ININ1:10130'DX%(IN)0:DY%(IN)0:DN%(IN)0:NDIN1':D$;"CLOSE"'216,0:) - BOO BOOh):D$;"CLOSE":" ERROR IN FILE ":15000L*:2:" THE MENU":'FĢ(37)2V=':"WHICH?";:KE%,3,FI$,2;:FI(FI$):KE%4KE%8FIF190u@'FI1FIFĢ(37)2:10045L'FM$CA$(FI)V':D$;"OPEN";FM$",D"D1:D$;"READ";FM$j'IN1t'SX%(IN),SY%(IN),SK$(IN)~'SX%(IN)0ININ1:10100'SX%(IN);::"FORMATS DISK";::" INTO DRIVE "D1:" AND PRESS 'RTN'";:X$:I'\'CA%,CA$(0),D1m$'CA%010000%'F0:CA%10040.'I1CA%:SS%,".CIF",CA$(I):SS%FF1:CA$(F)(CA$(I),8)/'8'FāI1F:I"."4);CA$(I):9'F1;"."4)"RETURN TO CK TO MAIN MENUn>!D11ė:12:4:"LOAD ";::"UTILITY DISK";::" INTO DRIVE "D1:" AND PRESS 'RTN'";:X$:H!D12ė:12:4:"LOAD ";::"DATA DISK";::" INTO DRIVE "D1:" AND PRESS 'RTN'";:X$:f!867,254:(4)"RUN MENU,D1"C':12:4:"LOAD "4KE%890%FM$"A"FM$"Z"81008FM$FM$".CIF"[D$;"OPEN";FM$:D$;"WRITE";FM$gI1NKSX%(I);",";SY%(I);",";(34);SK$(I)"-1,-1,"I1NDDX%(I);",";DY%(I);",";DN%(I)"-1,-1,-1"D$;"CLOSE"4! BAD:DX%(I);" ";DY%(I);" ";DN%(I);" ";FL%(I):2R@ WRITE FORMAT FILE AND ENDJ:12:4:"LOAD ";::"FORMATS DISK";::" INTO DRIVE "D1:" AND PRESS 'RTN'";:X$:15:"WHAT DO YOU WANT TO CALL":"YOUR FORMAT?";:KE%,1,FM$,25:TR%,FM$ KE%:NKNK1:$ ERASE DATA FIELD SD0ND0ıISDNDSDSD1:7390ISD1ND:QI1:DX%(Q)DX%(I):DY%(Q)DY%(I):DN%(Q)DN%(I):FL%(Q)FL%(I):DX%(ND)0:DY%(ND)0:DN%(ND)0:FL%(ND)0:NDND1: FOR DEBUGGING - DATA MATRIX DUMP,I1N)Y7250&>DY%(SD)YDN%(SD)07260.H:SRSDSDND:DX%(SD)XDY%(SD)YĂY\wERASE SCREEN CONSTANT SKNK0ıSKNKSKSK1:7340ISK1NK:QI1:SX%(Q)SX%(I):SY%(Q)SY%(I):SK$(Q)SK$(I): SX%(NK)0:SY%(NK)0:SK$(NK)""SKSKNK:SY%(SK)Y71509SY%(SK)YSX%(SK)07160A:fSKSKNK:SX%(SK)XSY%(SK)YĂl  7100 FOR DATA INFO MATRIX!SD1:Z%0:P%1:P17220*MA%,Z%,FL%(SD):SDMA%1:P%P%1/P%P7210:NDSDNDSD4SDSDND:DY%(SDSD11:QI1:DX%(I)DX%(Q):DY%(I)DY%(Q):DN%(I)DN%(Q):FL%(I)FL%(Q):UNDND1: GIVEN X,Y,P POINT SK TO SCREEN DATA POS. AFTER THAT SCREEN CONSTANTSK1:P%1:Z%0:P17120MA%,Z%,SX%(SK):SKMA%1:P%P%1P%P7105:NKSKNKSK CONST MATRIX (JUST MAKE HOLE). LEAVE SK=SPACE CREATEDLbNKSK1:NK1:\gNKSK7030lINK1SK11:QI1:SX%(I)SX%(Q):SY%(I)SY%(Q):SK$(I)SK$(Q):vNKNK1:7000 BUT FOR DATA FIELDSNDSD1:ND1:NDSD7090GIND1TO SCREEN.DX%(F%):DY%(F%):A$(DN%(F%)):^d PRINT ...'S FOR ALL DATA FIELDS ON PAGE PznTXX:TYY:X1:Y1:7200xSDND6590ISDND:DN%(I)06590DY%(I):DX%(I):(DP$,FL%(I));:XTX:YTY:7XINSERT ITEM AFTER SK IN SCREENM MEMORY TO SCREEN.&P%1:NK63158Y1:X1:7100HSKNK6315ZFSKNK:F%FnSX%(F%)06315x6320~XOX:YOY: THROW SINGLE SCREEN CONSTANT TO SCREENSX%(F%):SY%(F%):SK$(F%);:  PUT DATA FROM DATA FIELD F% $(13)37003hX$"Q"XOX:YOY:24:1:EL:3160BjY24Y24OlY1Y1^nX39X39koX1X1us3660tMT3710,3750~X$SK$(SK):7300:7100:7000:3430DNDN%(SD):7350:7200:7050:3350THROW SCREEN CONSTANTS FOR PAGE P FROSK)MT1:36502$7200:XDX%(SD)YDY%(SD)MT2A.MT03160xB24:1:"POSITION CURSOR AT NEW LOC & HIT RETURN";LY:XVX$[X$"H"İ12000::6300:6500:3660`X$"I"YY1bX$"M"YY1dX$"J"XX1fX$"K"XX1 gXk SX%(SK)X:SY%(SK)Y:3360Q DELETE WHATEVER IS AT CURRENT CURSOR POSITION| 7100:XSX%(SK)YSY%(SK)İ7300:3360 7200:XDX%(SD)YDY%(SD)İ7350:3360 3160MOVE ITEM AT CURRENT CURSOR POSITIONMT07100:XSX%(SK)YSY%(3:DN(DN$)' 1:EL:DN1DNMF31607 7200:7050V DN%(SD)DN:FL%(SD)LN%(DN)n DX%(SD)X:DY%(SD)Y :P%P:6300:6500* 3160H 24:1:"INPUT TEXT:";:23:1:KE%,1,X$,40;:TR%,X$R (X$)0KE%13360\ 7100:7000f SK$(SK)X$1 3360& (X$)21PP1:33609 (X$)178000C 3100h ADD SOMETHING AT CURRENT X,Y,P 24:1:"ADD (D)ATA, (C)ONSTANT, OR E(X)IT?";:X$ 1:EL X$"D"3330:X$"C"3400:3160  24:1:"WHICH DATA FIELD #";:DN0:KE%,3,DN$,M"YY1:3150& : X$"J"XX1:3150> D X$"K"XX1:3150H E 3200W N X39X39d O X1X1s P Y24Y24 Q Y1Y1 X Y:X:3090 X$"A"3300 X$"H"İ11000:3360 X$"D"3500 X$"]"3600 (X$)83230 PP1:P1PHICH?";:KE%,3,X$,1# nKE%1100< x(X$)2000,200,8500T READ IN OLD FORMAT_ J10000w OX1:OY1:P1:3360  INTRO TO EDITOR 11000 MAIN EDITOR PGM P1 X1:Y1  OXX:OYY  X$ & X$"I"YY1:3150 0 X$"FNC:X1NC:LN%(X)LN(X)LN(X1)1:N KD$"READ"N$".V,R1":D2,D3:D$"CLOSE"T P Z:"=MICRO LAB CUSTOM INPUT EDITOR/CREATOR=" _7:7:"DO YOU WANT TO:"::8:"1. CREATE NEW FORMAT":8:"2. EDIT OLD FORMAT":8:"3. RETURN TO MENU" d:5:"W1(864):P$((865)):P1$((866)):S$((867)):I(868):X869I868:N$N$((X)): <D11ė:12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$:% FD$"OPEN"N$".V,D"D1",L498":D$"READ"N$".V,R0":NC,RC,RR:LN%(NC),LN(NC):X1NC:LN(X)::M7 DATA FACTORY CUSTOM INPUT FORMAT EDITOR/CREATORe(4);"BLOADAMPER FACTORY.OBJ0,D1":33520 DX%(100),DY%(100),FL%(100),DN%(100)SX%(150),SY%(150),SK$(150),CA$(88)(DP$".":I17:DP$DP$DP$::DP$DP$(DP$,127):EL868:D$(4)V 2D          $"OPEN "N$".I,D"D1:D$"WRITE "N$".I":X11RC:MI(X1)::CL$:H20000 X11RC:MI(X1)::CL$:s2000::CL$:2000000L:CL$:2000MI(X1)::CL$:20000X11RC:MI(X1)::CL$:2000} ";:Z$::2142f D11D22ė:(7):12:4:"LOAD ";::"UTILITY DISK";::" THEN PRESS 'RTN'";:Z$ :12:11:">> LOADING MENU <<" 2530 D$"RUN MENU,D1" :"WRONG DISKETTE-PRESS 'RTN'";Z$:2500>( :12:11:"> UPDATING INDEX <":D RCRR(D21RCLLM1)ĉ:2350=! D22RCLLM3ĉ:2350I$ :2020X) 2600:FL1. :12:13)"> SAVING DATA <"::OF$LL",D"D5:X11S:R1RCSX1:X1NC:B1CL(X1):WF$R1",B"B1:A$(X)S1$(X1,X):A$(X):::S0:2220` :"PRESS 'RTN' TO CONTINUE :D$"INITI,D1"q D3RC::O$",D"D1:W$:NC:RC:RR:X1NC:CL(X)::D$"WRITE"N$".V,R1":2:RC:CL$:2010 ::CL"- "A$(CL)::LCL%(CL):800 A$(CL),B$:2141 A1:SS1:RCRC1:MI(RC)RC:X1NC:S1$(S,X)A$(X)::SR8Z$"D"ĉ:2350!:(7):10:"LABEL A ";::"BLANK NON INITIALIZED";::" DISKETTE"::17:"VOL# 2"::"LOAD INTO DRIVE# 1 AND PRESS 'RTN'";:Z$ (7)::12:"INITIALIZE DISKETTE IN DRIVE# 1 (Y/N)?";Z$:Z$"Y"2000 D22:D51::12:10::"INITIALIZING DISKETTE"::12::3)"DISK DATA WILL FILL YOUR MEMORY !!!"::TI15000::2500:(7):12::9:"DATA DISKETTE FULL !!":::D22D11āTI15000::2500"CONTINUE FILE ON SECOND DISKETTE (Y/N)";Z$:Z$"Y"Z$"N"ĺ(7);:560:2302 Z$"Y"2500 ",D"D1D21D3RCmW$:NC:RC:RR:N11NC:CL(N1)::D$"WRITE"N$".V,R1":D2:D3:CL$::RCRR2300D51ĺD$"OPEN"N$",D1"750:D21RCLLM12301D22RCLLM32301(7):2020FLİ2600A$(CL)""::2500E:(7)"S02320(Z$"M"Z$"D"Z$""2190E(Z$)0(Z$)NC12315p(7);:CV(37):37,(CV3):958:2150Z$""S02320A1::12:13)"> SAVING DATA <":RCRC1:MI(RC)RC::OF$LL",D"D5:X1NC:B1CL(X1):WF$RC",B"B1:A$(X):CL$:O$:" - ";:A$(X):CV(37):CV182400+^f3)"(M)-TO MEMORY";:20)"(1-"NC")-NOT CORRECT":3)"(D)-TO DISK";:20)"(R)-RESTART":13:"WHICH: ";Z$:(Z$)0CL(Z$):2182kZ$""Z$"M"BYBYLL:BZBZ1mZ$"R"2020pZ$"M"2320 zZ$"DRC(M1LL.9))(D22RC(M3LL.9))ğ:BZ::2060;BZp CLANC:LCL%(CL)::CL" - "H$(CL)" ("L")":800A$(CL),B$:37896:CL1A$(CL)(17)S02345RCL1A$(CL)""ĭ(A$(CL))172280\FL0::%]::X1NC::X"-";::5::H$(X);:RECORDS":RRRC0ĉ:23006D21RCLLM1ĉ:2301RD22RCLLM3ĉ:2301580::4)">> END / REPEAT << ";:">> BACKUP / RESTART <<";::580:34,73"RECORD # "RC1;:16:"APPROX.DISK RECORDS= ";:(D21I1I11:I11I11:B$"":6B$(B$,(B$)1):_(7)::10:"ENTRY IS TOO LONG"::e~D52:D22D11D51FL0:S0:740:R8(15000LL):R850R850A1:::11:"* * ENTER DATA * *":::NC" FIELDS.";:14:"MEMORY FOR >"RRRC"< 1:E11:2060'BZ1$""E18ĉ::2020:HE8İ890:820cRE13CV(37)3:958:(E);:E10:\(E);:B$B$(E):I1LĂf(B$,1)(13)ĺ(7);:(8)" ";:(8);:B$(B$,(B$)1):820pzI11ıE1ĺ(8);:910(8);"_";(8);E17CL1B$(E):#7E10E9228E11E91A9E12E95T:E27I11820u;E27B$A$(CL):B$;:958:<E1B(A$(CL)):(B$)BB(B$)>E1I1BE21Č1036:B$B$(A$(CL),I1,1):I1I11:820?E21820 @E2CL1ġ:958:ACLɺ"DISK ERROR>- PRESS 'RTN'";::Z$:182F D12ĺ:OF$LL",D"D5:CL$\ D21BYM1RCLLr D22BYM3RCLL BZ(BYLL)  B$""::I11L:"_";::((37)2(L39.9)):1:E2CV(37):A$(CL);:CV1:1 *I11L14849:E(833)128:):D$"READ"N$",R"0",B"B1:783:H$(X)(A$,1)::CL$:X1NC:CL%(X)CL(X)CL(X1)1::P1$"Y"İ40x (7);:S$"1"2000 D$"PR#"F8:CT$""ĺCT$  D$"PR#"MO: EIRS:320 0CV(37):37,(CV1):958: DX140:"-";::( N:12:6::2D22ė:(7):11:"LOAD ";::"DATA DISKETTE VOL# 2";::" INTO DRIVE# 1":"AND PRESS 'RTN'";:Z$::D$"OPEN"N$",D1":CL$:216,0 195 D$"OPEN "N$".I,D"D1:D$"READ "N$".I":X1RC:MI(X)::CL$ 216,0` D$"OPEN"N$",L"LL:X1NC:B1CL(X14:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ :D$"OPEN"N$".V,D"D1",L498":D$"READ"N$".V,R0":NC,RC,RR:CL(NC):X1NC:CL(X): D$"READ"N$".V,R1":D2,D3:CL$ LL(CL(NC)NC):A$(NC),S1$(50,NC),H$(NC),CL%(NC),MI(RR) 590 D1::` dD1(864):P$((865)):P1$((866)):S$((867)):I(868):X869I868:N$N$((X)): xWF$D$"WRITE"N$",R":RF$D$"READ"N$",R":OF$D$"OPEN"N$",L":O$D$"OPEN"N$".V,L498":CL$D$"CLOSE":W$D$"WRITE"N$".V,R0"8 D11ė:(7):12:Iv A$"":E0:216,0::D$(4):D$"NOMON I,O,C":1013,76:1014,176:1015,3:37902,4:M197280:M2122880:M3M1M2:100(D$"OPEN"N$".P,D"D1:D$"READ"N$".P":CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8,MO,CT$,N,TF$,LF$:CL$: P6:"=== A MICRO LAB DATABASE ==="      D PRESS 'RTN' ";:A$::9050E,#(7):12:16::"DISK FULL"::9070O,1010 REMAINING.":580:+n#16:"READ ANOTHER DISK (Y/N) ";:A$V+#A$"Y"Ĺ216,0::1010+#D11ė:16:"INSERT THE DISKETTE TO BE READ INTO":"DRIVE #1 AND PRESS 'RTN' ";:A$::9060,#D12Ģ16:958:"INSERT THE DISKETTE TO BE READ INTO":"DRIVE #2 ANRITE"N$".PW":PW$:CL$:1010'*(#9140T*2#:11)"* * DISK SPACE * *":580:34,3:r*<#(116)140Ĺ76,0:77,150|*F#9120*Z#D$"OPEN"N$",D"D1:D$"CLOSE"*d#688:SE(781)(782)256:BY((SE4)1)1024:SE0BY0+i#11:580:5)"YOU HAVE "BY" BYTES)216,0:(7)::6020")6290M)@:8:"CHANGE PASSWORD ROUTINE":580:)ED$"OPEN"N$".PW,D"D1:D$"READ"N$".PW":PW$:CL$:"YOUR PASSWORD IS NOW--> "PW$)J6:"PLEASE ENTER YOUR NEW PASS WORD (27) ":L27:800:PW$B$*TD$"OPEN"N$".PW,D"D1:D$"W"N3$".PW"(:12:3:"LOAD ";::"FORMAT DISK";::" INTO DRIVE #";::D1::12:"THEN PRESS 'RTN'";:ZT$::12:11:""(D$"OPEN"N$".F,D"D1:D$"READ"N$".F":NR:J1NR:R$(J)::CL$:I1NR:D$"DELETE"R$(I)"-F"::D$"DELETE"N3$".F"ETING DATA FILE >":D$"OPEN DATA FILES":D$"WRITE DATA FILES":NR11ĺD$"DELETE DATA FILES":NRNR1:6190'NR1:J1NR:JZĺR$(J)':D$"CLOSE"'.D$"DELETE"N3$:D$"DELETE"N3$".V":D$"DELETE"N3$".I"'~6310 (D$"DELETE"N3$".P":D$"DELETELES AVAILABLE--"::I1NR:I" "R$(I):::I" EXIT ROUTINE":&"WHICH: (1-"I") ";:"";Z1$:Z(Z1$):Z1ZIĺ(7);:560:6110&ZIĹ216,0::1010&:"DELETE FILE <";::R$(Z);::"> (Y/N) ";:Z$:Z$"Y"ĉ:6000j'N3$R$(Z)::12:9:"< DELOADED.":"PRESS'RETURN' TO RESTART PROGRAM";:Z$::D$"RUN I,D1"K%6270=&:D$"OPEN DATA FILES,D"D1:D$"READ DATA FILES":NR:J1NR:R$(J)::D$"CLOSE":3:2::"DELETEING ALL FILES OR FILE IN MEMORY"::11::"WILL STOP PROGRAM":::7:"--DATA FIINTER BEING USED ? ";,$P1$"Y"ĺ" YES"@$ P1$"N"ĺ" NO"n$280::"PRESS 'RTN' TO MENU ";:Z$:1010t$p$zNR1::11:"* DELETE A FILE *":580:34,2@%NR0N$N3$ĺ(7):8::"DATA FILES NOT AVAILABLE"::" INSURE IS L:"FLD#";:6:"LENGTH";:13:"NAME"::580::X1NC:2)X;:7:"("CL%(X)")";:13:H$(X);:(H$(X),1)" "ĺ"(J)":5085}##$:"RECORDS MEMORY WILL HOLD = ";RR::"NUMBER OF RECORDS USED = "RC::"NUMBER OF RECORDS UNUSED = "(RRRC)::"IS PR:(7):4060"M":8)"* * FILE INFORMATION * *":580:P1$"N"5080S"""ON PRINTER (Y/N) ? ";P$:P$""ĭ(P$)171010"P$"Y"P$"N"ĺ(7);:560:5030"560:1:P$"Y"ĺ:270:5070"5080"TA20((N$)2):TA)N$:w#3:SHED"::580:34,4:!!mX11RCq!r"DELETE RECORD NUMBER (1-"RC"): ";:"";BB(X1):BB(X1)RCĺ(7);:560:4210!|BB(X1)0X1X11:4240!:!:12:11)"< DELETING RECORD >":X21X1:X1NC:A$(X)"@"::RSBB(X2):14:20:BB(X2)" ":592:"FROM RECORD > "F4" <"::10:"TO RECORD > "F5" < OK (Y/N) ";:Z$:Z$"Y"Z$"N"ĺ(7);:560:4130t ,Z$"N"4100 613:11)"< DELETING RECORD >":RSF4F5:X1NC:A$(X)"@"::15:19:RS" ":592::(7):4060!h3:958:8::"ENTER <0> WHEN FINIELETE ANOTHER RECORD (Y/N) ? ";Z$:Z$"Y"Z$"N"ĺ(7):4070OZ$"Y"4000Y10104:958:"DELETE FROM RECORD (1-"RC") ";:F4:F4RCĺ(7);:560:4100"TO RECORD ("F4"-"RC") ";:F5:F5F4F5RCĺ(7);:560:4120c ""DELETE 70,Z$"S"RSRCAM$"M"İ556:492:4020NZ$"S"RSRCİ556:460:4020_Z$"A"4070qZ$"D"406012:11)"< DELETING RECORD >":X1NC:A$(X)"@"::S$(RS)"@":592:Z1$"2"494:10:8)"< SORT, TO COMPACT FILE >":>12:4:"D2:5:"AUTO OR MANUAL DELETE (A/M)? ";AM$:AM$"A"AM$"M"ĺ(7);:560:4017W330iZ1$"2"4050:X1NC::H$(X);::" - "A$(X)::::"D)ELETE/S)KIP RECORD OR A)BORT (D/S/A)";Z$::Z$"D"Z$"S"Z$"A"ĺ(7):4020A1$"2"Z$"S"40 RECORD":4:"2- ALL RECORDS CONTAINING 'ENTRY'":4:"3- FROM/TO DELETE"f4:"4- SELECTED RECORDS"::10:"DELETE WHICH (1-4): ";Z1$:Z1$""ĭ(Z1$)171010(Z1$)1(Z1$)4ĺ(7):4010Z1$"4"4200Z1$"3"4100N:Z1$"2"Ģ10H$(CL)WS$(1),l A$(CL)WS$(1):::30509 592::C 3040 :"PRESS (R)ESTART/(E)ND/'RTN' TO CONT. ";:Z$:Z$"R"ė:3060 Z$"E"ė:3115  :311537896:54915:SE0H:7)"- DELETE A RECORD ROUTINE -":580:8:4:"1- ONERS1:12:14:"> SEARCHING <":460:3050P2 CL(Z$):CLNCZ$""ĺ(7);:3050^3 CL0F1x5 CL0F1F0::3220: CL03260D 12)"ENTER YOUR CHANGE":580X H$(CL)" ("CL%(CL)")":A$(CL):LCL%(CL):800] A$(CL),B$:WS$(1)A$(CL)b RS(37):CV193310 3270a X1NC::X"-";::5:A$(X);:RS0ĭ(A$(X),1)" "ĺ"(J)":3108g! $ CV(37):CV193310& 3270+ :"WHICH: (R)ESTART/S)KIP/FIELD 0-"NC") ";:Z$::Z$"R"ė:30600 Z$"S"A1$"2"3040)1 Z$"S"RSRCė:R2Z1$"N"ĺ(7);:560:3020! * 330R :8:"--CHANGE SELECTION LIST--": :"0- * NO MORE CHANGES *";:26:"RECORD #: "RS:::Z1$"N"3100 X1NC::X"-";::5::H$(X);::" - ";:A$(X);:RS0ĭ(A$(X),1)" "ĺ"(J)":3088  CV$:1050(:(4);"RUN MENU,D1"`:" WRONG DISK IN DRIVE 1":"PRESS 'RTN'";:X$::v 37896:SE0:F0: :3)"* INSPECT/CHANGE A RECORD ROUTINE *":580: "PRINT WITH FIELD HEADINGS (Y/N) ";Z1$:Z1$""ĭ(Z1$)171010 Z1$"Y");:910(8);"_";(8);;I1I11:I11I11:B$"":RB$(B$,(B$)1):{(7)::10:"ENTRY IS TOO LONG"::SK(CL%(CL)40):X1SK::::D11D22Ģ12:4:"LOAD ";::"UTILITY DISK";::" DISK IN DRIVE 1":" AND PRESS 'RTN'":X1I1BE21Č1036:B$B$(A$(CL),I1,1):I1I11:820C?E21820VHE8İ890:820RE13CV(37)3:958:(E);:E10:\(E);:B$B$(E):I1LĂf(B$,1)(13)ĺ(7);:(8)" ";:(8);:B$(B$,(B$)1):820pzI11ıE1ĺ(8A$(CL);:CV1:1*I11L1I4849:E(833)128:E17CL1B$(E):z5(B$)0ĭE5B$A$(CL):B$;:I1(B$)1:8207E10E928E11E919E12E95:E27I11820;E27B$A$(CL):B$:<E1B(A$(CL)):(B$)BB(B$)5>E14:H$(X)::#DX140:"-";::IN:12:11)"> RECALLING DATA <":^PD50:RSD3D51yRD5ĺOF$LL",D"D1:600TOF$LL",D1"XX1NC:B1CL(X1):WF$RS",B"B1:A$(X)::CL$: E11:B$""::I11L:"_";::((37)2(L39.9)):1:CV(37):Y"Z$"N"ĺ(7);:500+::Z$"N"10104395R(H$(C),PA)NA$İ310::[&490(F1::AM$"A"Ģ14:19:RS" ":4019*310:4020,:R2RS1:12:14:"< SEARCHING >":0CV(37):37,(CV1):958: :X1NC:4)X;"-("CL%(X)") ";:903SEC::12:14)"> SEARCHING <":Z1$"2"492KRSR2RC:RS0540j(S$(RS),PA)NA$İ310::u:500RSR2RC:S$(RS)NA$552:F1Z1$"2"4060:11:(7):"SORRY-I COULD NOT FIND > "NA$" <"::"CONTINUE (Y/N) ? ";Z$:Z$"RD NUMBER (0-"RC") ";:RS:RS(RC1)İ310:@(7);:560:380M:570:"FOUND IN WHAT FIELD # ";C:C1CNCĺ(7);:560:400R20:::"ENTER ITEM TO SEARCH FOR: ":LCL%(C):800NA$,B$:PA(NA$):PA0PA1CSE450::590:2SELECTION LIST"::10:"1-'ENTRY' SEARCH":10:"2-RECORD NUMBER SEARCH"::10:"3-FINISHED"::14:"WHICH (1-3)? ";A1$:A1$""ĭ(A1$)17ġ:1010Y(A1$)1(A1$)3ĺ(7);:560:340^A1$"3"Z1$""::1010hA1$"1"395r:+|"ENTER RECO,D"D1:3159OF$LL",D1"a;X1NC:B1CL(X1):RF$RS",B"B1:783:A$(X)(A$,1)::CL$:216,0:@216,0:(7):(4)"CLOSE"::12:"DISK ERROR-RECORD ";::I;::" MAY BE BAD":"PRESS 'RTN'";:Z$:1010EIRS:320JF0:Z1$"2"395T:7:13:": "3202 $F60:F70:I1RC:D50:ID3D51Q &D5F6ĺOF$LL",D"D1:F61d (D5F70:300t *D5F6F60 +F6F7ĺOF$LL",D1":F71 ,B1CL(C1):RF$I",B"B1:783:S$(I)(A$,1)::CL$:216,0: 6325 7D50:RSD3D51 8D5ĺOF$LL"40 (7); S$"3"3000/ S$"4"4000@ S$"8"5000Q S$"9"6000c S$"10"9000u S$"12"8000 S$"11"1300 :12:6::(4)"CLOSE":"- PRESS 'RTN'";::Z$::150 D$"PR#"F8:CT$""ĺCT$  D$"PR#"MO11:"LOAD ";::"DATA DISKETTE VOL# 2";::" INTO DRIVE# 1":"AND PRESS 'RTN'";:Z$::D$"OPEN"N$",D1":CL$:216,0 D$"OPEN"N$",L"LL",D"D1:X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:783:H$(X)(A$,1)::CL$:X1NC:CL%(X)CL(X)CL(X1)1::P1$"Y"İ:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ :D$"OPEN"N$".V,D"D1",L498":D$"READ"N$".V,R0":NC,RC,RR:CL(NC):X1NC:CL(X)::D$"READ"N$".V,R1":D2,D3:CL$ LL(CL(NC)NC):BB(RR),A$(NC),S$(RR),H$(NC),CL%(NC) 269t D12D22ė:.L.PASSAUER":j dD1(864):P$((865)):P1$((866)):S$((867)):I(868):X869I868:N$N$((X)):6 xWF$D$"WRITE"N$",R":RF$D$"READ"N$",R":OF$D$"OPEN"N$",L":O$D$"OPEN"N$".V":CL$D$"CLOSE":W$D$"WRITE"N$".V":D11ė:(7):12:4P$\ A$"":E0:216,0::D$(4):D$"NOMON I,O,C":1013,76:1014,176:1015,3:37902,255:100(D$"OPEN"N$".P,D"D1:D$"READ"N$".P":CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8,MO,CT$,N,TF$,LF$:CL$: P5:"^^^ THE DATA FACTORY V5.0 ^^^":5:"COPYRIGHT 1981 BY W              AY BE BAD":"PRESS 'RTN'";:Z$:8795t*2#::12:"APPENDING MORE RECORDS THAN ";:BX%RRĺ"ALLOWED IN FILE":9030*<#BX%BY%BZ%ĺ"DISK SPACE CAN HOLD"*F#::"PRESS 'RTN'";:Z$*P#*8000D PRESS 'RTN' ";:Z$f)t"D11ė:(7):12:3:"LOAD ";::"UTILITY DISK";::" THEN PRESS 'RTN'";:Z$)~":12:11:">> LOADING MENU <<")"D$"RUN MENU,D1")"(7)::"FILE NOT FOUND"::8117$*(#216,0:(7)::12:"DISK ERROR-RECORD ";::X2;::"M":R4R4R1:R3R7R2:14:10:R3" ";:15:"RECORDS TO GO":R308780R(B"960:8640(L":12:11:"> APPENDING DONE <":TI115:(7);:([":D22Ģ9:"INSURE DATA DISKETTE VOL# 1 IS":"IN DRIVE #2")`"D12Ģ12:"LOAD INTO DRIVE# 1":"ANDISKETTE C> 'NEW FILE' AND":"PRESS 'RTN'";Z$:U%2:380{'":D$"OPEN"N2$",L"LB",D1":R60:X2R4R5:F7%EBY%İ997:F7%1'"R6R61:EE1:X11EM:B1SL(X11):D$"WRITE"N2$",R"E",B"B1:B$(R6,X1):::CL$C("R2R2R1:12:11:R2" ";:16:"RECORDS MOVEDOVING";:18:R1" ";:21:"RECORDS":D$"OPEN"N1$",L"LA",D"D1:R5R5(R1(C1)):C1:X2R4R5:F6%D22X2A5İ999:F6%1&!R6R61:X1EN:B1CM(S2(X)1)&!D$"READ"N1$",R"X2",B"B1:783:B$(R6,X)(TE$,1,CL%(S1(X))):::CL$:216,07'"D11Ģ20:"LOAD <>":410:F6%0:R20:R7(DC)1:R4C:R50:R3R7:5:5:"WE WILL BE MOVING";:23:R7;:28:"RECORDS"%!D11:20:"LOAD 'APPEND FROM FILE":"VOL# 1' AND PRESS 'RTN'";Z$:U%2:380%!R60:R3R8R1R8:8665%!R1R3%!9000v&!9:11:"M:R4R4R1:R3R7R2:14:10:R3" ";:15:"RECORDS TO GO":R308590Q$!960:8450e$!N1$"END"8780$!D12ė:12:"LOAD 'APPEND FROM FILE":"VOL# 1 INTO DRIVE #2 AND PRESS 'RTN' ";:TI115:(7);::Z$a%!:8:"< APPENDING DATA PART 2 $X2",B"B1:783:B$(R6,X)(TE$,1):::CL$:216,0:440z#R!:D$"OPEN"N2$",L"LB",D1":R60:X2R4R5:F7%X2BY%İ997:F7%1#W!R6R61:EE1:X11EM:B1SL(X11):D$"WRITE"N2$",R"E",B"B1:B$(R6,X1):::CL$B$\!R2R2R1:12:11:R2" ";:16:"RECORDS MOVED"MOVING";:23:R7;:28:"RECORDS")"!430E" !R60:R3R8R1R8:8475O"!R1R3Z"!9000" !9:11:"MOVING";:18:R1" ";:21:"RECORDS"::OF$LL",D"D1:R5R5(R1(A1)):A1:X2R4R5:F6%D22X2D3İ998:F6%1"%!R6R61:X1EN:B1CL(S1(X)1)5#*!RF::7:"WRITING DATA FILE PART -1-":410::D$"OPEN"N2$",L"LB",D1"W! R$N2$:500:780! D$"OPEN"N2$".PW,D1":D$"WRITE"N2$".PW":PW$:CL$ " X11EM:B1SL(X11):D$"WRITE"N2$",R0,B"B1:A$(X1)::CL$:R20:R4A:R50:R7(BA)1:R3R7:5:5:"WE WILL BE P,D1":D$"WRITE"N2$".P":CO:F1:LI:F2:F1$:F3:F3$:F6$:F8$:F8:MO:CT$:N:TF$:LF$:CL$ 12:868:10:"WRITING VARIABLE FILE"::D$"OPEN"N2$".V,D1,L498":D$"WRITE"N2$".V,R0"B! EM:BX%:RR:N11EM:SL(N1)::D$"WRITE"N2$".V,R1":A4:RB%:CL$R840R840N :12:(7);:"LOAD AN INITIALIZED 'NEW FILE' DISKETTE INTO DRIVE #1 AND":"PRESS'RTN' ";:Z$::10:11)"< WRITING PART 1 >"X A42:RB%BY%:BX%BY%A41:RB%BX%^ l 12:5:"WRITING PRINTER VARIABLE FILE"::D$"OPEN"N2$".: "CALL NEW FILE WHAT NAME (25) ? ":L25:800:N2$B$:N2$""(N2$N$D11)U%2:380:(7);:8250? :10:"PASSWORD TO ENTER FILE (25): ":L25:800:PW$B$D :BY%(M1LB):BZ%(M2LB):BX%(BA)(DC)2:BX%BY%BZ%BX%RR9010 I R8(15000LL):S2(Z)A1ĺ(7);:U%1:380:8200H S1$""āZ1EN:S2(Z)S1(Z)::8230Z ZENĺ:8230d 8190& :"CONSTRUCT FROM RECORD # (1-"A2") ";:C:C1CA2ĺ(7);:U%2:380:82300 :"TO RECORD # (1-"A2") ";:D:D1DA2ĺ(7);:U%2:380:82405 c",R"0",B"B1:783:S$(X3)(TE$,1)::CL$:CM%(A1):X31A1:CM%(X3)CM(X3)CM(X31)1::"FLD#";:6:"LENGTH";:13:"NAME":410:X31A1:2)X3;:7:"("CM%(X3)")";:13:S$(X3)::ZZ1  "SELECT FIELD # ('RTN'=SAME/1-"A1") ";:S1$:S2(Z)(S1$):RRECT PASSWORD":::14:"PRESS 'RTN' ";:Z1$:8132:D$"OPEN"N1$".V,D1,L498":D$"READ"N1$".V,R0":A1,A2,A3:X1A1:CM(X)::D$"READ"N1$".V,R1":A4,A5:CL$:LA(CM(A1)A1)::216,0UD$"OPEN"N1$",L"LA:X31A1:B1CM(X31):D$"READ"N1$'APPEND FROM VOL# 1'":"INTO DRIVE #1 AND PRESS 'RTN' ";:Z$:D$"OPEN"N1$".PW,D1":D$"READ"N1$".PW":PW$:CL$:PW$""8138:12:"PLEASE ENTER PASSWORD: ";:Z1$""Z$:Z$(13)8135Z1$Z1$Z$:8133APW$Z1$ė:12:11::"INCO108?RR(19500(N23)):L1%(M3(SL(EM)EM)):L1%RRRRL1%LB(SL(EM)EM)::"APPEND FROM FILE NAME (END/FILE NAME) ?":L25:800:N1$B$:N1$""U%1:380:(7);:8117N1$"END"ĺ:N2$N$:82508850<::(7):11:"PLACE ):B$(X2,Y2)"":Y2:X2P:X1EN:4)X;"- ("CL%(S1(X))") ";:14:H$(S1(X)):N30āX1N3:4)XEN"- ("(SL(XEN)SL(X1EN)1)") ";:14:A$(XEN)::"ENTER THE LENGTH OF THE LONGEST FIELD YOU WILL SORT OR SEARCH (>9) ? ";N2:N210ĺ(7):8N308108fX1N3::"ENTER LENGTH FOR FIELD # "X" (1-239) ";:L:L1L239ĺ(7);:U%1:380:8104S2(XEN)XEN:SL(XEN)SL(XEN1)L1:EMEM1:"NAME FIELD ("L") ":800:A$(XEN)B$:950X::14:"< WORKING >":X2140:Y2(1EN)(ENN3R EXISTING FILE-CONSTRUCT FROM":"RECORD # (1-"RC") ";:A:A1ARCĺ(7);:U%2:380:8080:"TO RECORD # ("A"-"RC") ";:B:BABRCĺ(7);:U%2:380:8090::EMEN:"ADD HOW MANY FIELDS (0-10): ";N3:N30N310ĺ(7);:U%1:380:8102 410::Y1NC>h"SELECT FIELD # ('RTN'=ALL/1-"NC") ";:S1$amS1$""āY1NC:S1$(Y):8070vrS1$"0"ĺ:8080|(S1$)0(S1$)NCĺ(7);:U%1:380:8040S1(Y)(S1$):SL(Y)SL(Y1)(CL(S1(Y))CL(S1(Y)1)):A$(Y)H$(S1(Y))::ZENY1:"FO7:"D- NEW FILE VOL #2"M:7:"E- APPEND FROM FILE VOL #1"::7:"F- APPEND FROM FILE VOL# 2"::11:"THEN PRESS 'RTN' ";:Z$:OZ$""ĭ(Z$)17ĉ:8820T3:"CONSTRUCT WHICH FIELDS TO NEW FILE":410:400:410:9::"ENTER <0> WHEN FINISHED":: FILE HAS >"RC"< RECORDS":1)"YOU MAY APPEND UP TO >"RRRC"< MORE RECORDS":7:"IF DISK SPACE IS AVAILABLE":410J:"PLEASE LABEL YOUR DISKETTES AS NEEDED:"::7:"A- EXISTING FILE VOL #1"::7:"B- EXISTING FILE VOL #2"::7:"C- NEW FILE VOL #1":::380::OF$LL",D"D1:CL$:20:"LOAD AN 'APPEND FROM FILE VOL# 2' DISKETTE INTO DRIVE# 2 AND PRESS'RTN' ";:Z$:U%3:380::D$"OPEN"N1$",L"LA",D"D1:@E0:C0:D1:Z0::7)"* CONSTRUCT/APPEND ROUTINE *":410qE1)"YOUR EXISTING96:CL$:20:"LOAD AN INITIALIZED 'NEW FILE VOL# 2' DISKETTE INTO DRIVE# 1 AND PRESS 'RTN' ";:Z$:U%3:380::D$"OPEN"N2$",L"LB",D1":CL$:20:"LOAD 'EXISTING FILE VOL# 2'INTO DRIVE #2 THEN PRESS 'RTN' ";:Z$:U%2)İ890:820 RE$(13)ĺE$;::\E$;:B$B$E$:ILĂ|f(B$,1)(13)ĺ(7);:(8)" ";:(8);:B$(B$,(B$)1):820pzI1ı(8);"_";(8);II1I1I1:B$"":B$(B$,(B$)1):SK(L40):X31SK:::378CL$216,0:VI10131022:PP:I,PP:::104,168,104,166,223,154,72,152,72,96 B$""::I1L:"_";::((37)2(L39.9)):1*I1L14E$7E$(10)E$(92)8E$(11)E$(91)9E$(12)E$(95)>E$(21)820 HE$(8ATA FILES,D1":D$"READ DATA FILES":NR:J1NR:R$(J)::CL$:NR797_J1NR:R$(J)R$797eR$(NR1)R$:D$"OPEN DATA FILES":D$"WRITE DATA FILES":NR1:J1NR1:R$(J)::CL$:7971013:D$"OPEN DATA FILES":D$"WRITE DATA FILES":1:R$:;:20:"LOAD 'EXISTING FILE'":"AND PRESS 'RTN'";Z$:U%2:380: D11ĺ(7);:20:"LOAD 'NEW FILE' AND":"PRESS 'RTN'";Z$:U%2:380:  D$"OPEN"N2$".I":D$"WRITE"N2$".I":X11BX%:X1::CL$: 795ED$"OPEN D'RTN'";::Z$:170a T:OF$LL",D"D1:I1RC:B1CL(C1):RF$I",B"B1:783:S$(I)(TE$,1)::CL$: |CV(37):37,(CVU%):958: X1NC:4)X;"- ("CL%(X)") ";:14:H$(X):: X140:"-";:: :12:11)"> RECALLING DATA <":L D11ĺ(7)O DRIVE# 1":"AND PRESS 'RTN'";:Z$::D$"OPEN"N$",D1":CL$ 216,0:D$"OPEN"N$",L"LL",D"D1:X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:783:H$(X)(TE$,1)::CL$:X1NC:CL%(X)CL(X)CL(X1)1::50 (7);:8000 :12:6::"<DISK ERROR>- PRESS C,RC,RR:CL(NC10):X1NC:CL(X):F D$"READ"N$".V,R1":D2,D3:CL$ LL(CL(NC)NC):B$(40,NC10),S$(RR),H$(NC10),CL%(NC10),A$(RR),S1(NC10),S2(NC10),SL(NC10),CM(NC10) 245; D12D22ė:11:"LOAD ";::"DATA DISKETTE VOL# 2";::" INT1$((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 PRESS 'RTN'";:Z$# :D$"OPEN"N$".V,D"D1",L498":D$"READ"N$".V,R0":N"_ TE$"":216,0::D$(4):D$"NOMON I,O,C":798:37902,255:M197280:M2122880:M3M1M2:1102D$"OPEN"N$".P":D$"READ"N$".P":CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8,MO,CT$,N,TF$,LF$:CL$:ZCOPYRIGHT 1981 BY W.L. PASSAUERz nD1(864):P$((865)):P!!!!                CK SORT"* x8:"MICRO LAB MASTER SEARCH"N }8:"MICRO LAB CALCULATOR MATH" D$"BLOAD DISK SPACE.OBJ":D$"BLOAD MOVE":D$"BLOAD GARBAGE":D$"BLOAD INIT":D$"BLOAD GMAN":867,0:D$;"RUNI" 5X140:"%";:X: U:6:8:"THE MICRO LAB CUSTOM SERIES"b Z:8:"COPYRIGHT 1982 BY MICRO LAB" ]12:"ALL RIGHTS RESERVED" _:::17:"FEATURING" d: i:8:"MICRO LAB CUSTOM INPUT" n8:"MICRO LAB CUSTOM OUTPUT" s8:"MICRO LAB QUI33-7550": (16:"PRESENTS":V 27:"===";::"THE DATA FACTORY V5.0";::"===": <4:"COPYRIGHT (C) 1982 MICROLAB INC" F11:"ALL RIGHTS RESERVED" J:::18:"AND": KI12500: N:X140:"%";:X:X222:X:"%";:40:"%":X:23:(4)"BLOADREADER,A$8E00"4 37759::D$(4)G"NOMON I,O,C":X140:"%";:X:X222:X:"%";:40:"%":X:23:X140:"%";:X6:12:"* * MICRO LAB * *":12:"2310 SKOKIE ROAD"!9:"HIGHLAND PARK, IL 60035" #14:"312-4!!!!!EW PASS WORD (25) ":L25:800:PW$B$:385:1020opCL$::5::(7);" DATA FILE TOO LARGE TO CONVERT!! ";(7)z:10:"SEE MANUAL ON SPECIAL INSTRUCTIONS FOR CONVERTING THIS DATA DISK TO V5.0"22:"PRESS 'RTN' WHEN READY: ";ZT$:410280$"Y":50::"TO INITIALIZE THIS DISKETTE, PRESS 'I' OR ANY OTHER KEY TO ESCAPE: ";:Z$:Z$"I"ĺ:D$"INITI,V0,D"D1:(7)(4)"DELETE I":320:8:"CHANGE PASSWORD ROUTINE":380::"YOUR PASSWORD IS NOW--> "PW$/6:"PLEASE ENTER YOUR NH$(X)::D$"CLOSE":495!385CO80:F11:LI63:F21:F1$"F":F33:F6$"P":F8$"C":F3$"Y":CT$"":F81:MO0:N2:TF$"Y":LF$"N"  :D$"OPEN"N$".P,D"D1:D$"WRITE"N$".P":CO:F1:LI:F2:F1$:F3:F3$:F6$:F8$:F8:MO:CT$:N:TF$:LF$:D$"CLOSE":P12:6)"> SAVING FILE DATA TO DISC <"::D$"OPEN"N$".V,D"D1",L498"::D$"WRITE"N$".V,R0":NC:RC:RRN11NC:CL(N1)CL(N1)(CL(N11)1):CL(N1)::D$"WRITE"N$".V,R1":D2:D3LL(CL(NC)NC):D$"OPEN"N$",L"LL:X1NC:B1CL(X1):D$"WRITE"N$",R0,B"B1:(H$(N1),1)" "ĺ"(J)":2175#|G:CL%CL%CL(N1)1:600::2150"ENTER THE LENGTH OF THE LONGEST FIELD YOU WILL SORT OR SEARCH (>9) ? ";N2:N210N2239ĺ(7);:365:2176RR(19500(N23)):L1%(M3CL%):L1%RRRRL1%cD21:D30::1$j::"RECORD LENGTH IS = ";CL%:k"ALL CORRECT (0) ":"NOT CORRECT (1-"NC") ":"RESTART ("NC1") ";:" WHICH: ";N1:N10N1NC1ĺ(7);:362:2155l:N102176mN1NC12000z::"FLD. # "N1" LENGTH = "CL(N1):12:"NAME = "H$(N1);:E PASSWORD (25): ":L25:800:PW$B$c12:"HOW MANY FIELDS (<89) ? ";NC:NC88ĺ(7);:370:2030zN1SANC::600:f::"FLD#";:6:"LENGTH";:13:"NAME"::380:X1NC:2::X;::7:"("CL(X)")";:13:H$(X);:(H$(X),1)" "ĺ"(J)":2154i2:4:"LOAD ";::"PROGRAM DISK";::" THEN PRESS 'RTN'";:Z$U:D$;"RUN MENU,D1"CL%0:RL249:NC0:SA1::12)"> INITIATE FILE <":380::"FILE NAME (25) ":L25:800:N$B$:N$(1)320N$""(N$)28ĺ(7);:2000R$(NR1)N$#8:"FIL50I:12:1:"ENTER TODAY'S DATE OR REMARK(20): ":L20:800:DA$B$:D$"OPEN DATE,D"D1:D$"WRITE DATE":DA$::D$"CLOSE"LI0:864,D1:865,(P$):866,(P1$):868,(N$):X869(N$)868:II1:X,((N$,I,1)):=Z$"":D11ė:(7):1(95)>E$(21)820/HE$(8)İ890:820DRE$(13)ĺE$;:^\E$;:B$B$E$:ILĂf(B$,1)(13)ĺ(7);:(8)" ";:(8);:B$(B$,(B$)1):820pzI1ı(8);"_";(8);II1I1I1:B$"":B$(B$,(B$)1):L25:800:PW$B$BD$"OPEN"R$(X)".PW":D$"WRITE"R$(X)".PW":PW$WCL$:"(DONE)":]z(7):216,0::260:410 B$""::I1L:"_";::((37)2(L39.9)):1*I1L14E$7E$(10)E$(92)8E$(11)E$(91)9E$(12)E$N"R$(X)".V,D"D1",L498":D$"READ"R$(X)".V":NC,RC,RR:QQ1NC:CL(X)::(CL(NC)NC)RC972806000x"CONVERTING "R$(X)D$"WRITE"R$(X)".V,R1":1:RCD$"OPEN"R$(X)".I":D$"WRITE"R$(X)".I":X11RC:X1::CL$Z$"Y"ĺ:"ENTER PASSWORD (25) ":7:"* CONVERTING FILES TO V5.0 *":380:Y"ENTER PASSWORDS (Y/N) ";Z$:Z$"N"PW$""c706D$"OPEN"R$(1)".PW":D$"READ"R$(1)".PW":PW$:CL$::12::"DISKETTE ALREADY CONVERTED-PRESS 'RTN'";::Z$:216,0::410216,0:X1NR`D$"OPEGTH OF FIELD # "N1" (1-239)";:" ";CL(N1):CL(N1)239CL(N1)1ĺ(7);:370:600fbCL%CL%CL(N1)1:v"NAME FIELD ";N1;" ("CL(N1)") ":LCL(N1):800:H$(N1)B$H$(N1)""ĺ(7);:370:630SK(CL(N1)40):X1SK:::NR1ĺ(7):410(4,166,223,154,72,152,72,96:0CV(37):37,(CV1):958::216,0:(7):::10:5:(222)8ĺ"DISKETTE MAY NOT BE INITIALIZED"::4000?:"DATA FILES NOT FOUND, OR FILE NOT":"CONVERTED TO V5.0 PRESS 'RTN' ";:I1::Z$::420D1013:OX"LENZ1$:474$:ZIB0:216,0:20003ZI1390BZI2700S216,0:1000`NR510xJ1NR:R$(J)N$ı~D$"OPEN DATA FILES":D$"WRITE DATA FILES":NR1:J1NR1:R$(J)::D$"CLOSE":&I10131022:PP:I,PP::: 104,168,10:ZI480J D$"OPEN"N$".PW,D"D1:D$"READ"N$".PW":PW$:CL$:PW$""480x :12:"PLEASE ENTER PASSWORD: ";:Z1$"" Z$:Z$(13)477 Z1$Z1$Z$:475PW$Z1$ė:12:11::"INCORRECT PASSWORD":::14:"PRESS 'RTN' ";::I1;::" CATALOG ANOTHER DISK"::I2;::" CONVERT FILES TO V5.0": "WHICH: (1-"I2") ";:"";Z1$:Z(Z1$):Z1ZI2ĺ(7);:370:460 I11Z11ĺ(7);::"NO MORE THAN 10 FILES PER DISK PLEASE...":"PRESS 'RTN'";:Z$:S$"0":1100 N$R$(Z)OPEN"N$".PW,D"D1:D$"WRITE"N$".PW":PW$:CL$:8 570 D$"OPEN DATA FILES,D"D1:D$"READ DATA FILES":NR:J1NR:R$(J)::D$"CLOSE" B1::7::"-- DATA FILES AVAILABLE --":::I1NR::I;::" "R$(I):G ::I;::" INITIATE A NEW FILE ":;:370:285 "Z$"Y"D12q 6Z$"":D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ @:260:390 jCV(37):37,(CV3):958: mCV(37):37,(CV2):958: rCV(37):37,(CV1):958: |X140:"-";::. D$"ATABASE ===":: :6::7:"LOAD DISKETTES AS REQUIRED:"::9:6:"PROGRAM DISKETTE --> DRIVE# 1"::6:"DATA DISKETTE --> DRIVE# 2" S(867):D1(864) S114000 D11:18:5:"USING A TWO DISK SYSTEM (Y/N)? ";Z$:Z$"Y"Z$"N"ĺ(7)u A$"":216,0::255:D$(4):CL$D$"CLOSE":CL(88),H$(88):D$"NOMONI,O,C":550:M197280:M2122880:M3M1M2:2802:12:9)"USING PRINTER (Y/N) ";:P1$:P$P1$::P1$"N"P1$"Y"ĺ(7):50<:P1$"N"1010P1005 6:"=== A MICRO LAB D""" " " " " """""""""!!! ! ! ! !