' +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ťܥ2<(-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`UR DATA COMPRESSED";:DC$:/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> LOADING MENU <<"<D$"RUN MENU,D1"<MA1SL:FO0:PA(DT$(MA)):PA1PA1<RS1RC:F(S$(RS)):X1F:(S$(RS),X,PA)DT$(MA)5710 =0:Z3$:XT1NC:X5(XT)0:;MA4;P$"N"A$"N"5580[;FK1:FL1:960:XT1NC:X4(XT)0:d;250;:(7)::"FINISHED!";::" A)NOTHER,R)ESTART,'RTN'MENU";:ZZ$:ZZ$"A"İ265:PG0:CK0:LN0:S0:NO0:::5290;B0İ510;ZZ$"R"İ265:5000T230:2000:Z$"Y"5550#:5540::3000:Z$"Y"5550B:RSZ:P$"N"A$"N"5550:Z$"N"Z4$"N"FL2:960:XT1NC:X5(XT)0::Z$"N"Z4$"Y"MA150ĭSH$(MA1)""FL2:960:XT1NC:X5(XT)0::5550;Z$"N"Z4$"Y"MASLFL2:960"2"54509Z3$"2"5430:9"(S$(RS),PA)DT$(MA)5495D9,5540d96(S$(RS),PA)DT$(MA)5495n9@55409JZ3$"2"54809TS$(RS)DT$(MA)54959^55409hS$(RS)DT$(MA)54959r55409wRUMI%(RS)9yFX1ė:FX09|290:P$"N"5530:RCĺ(7);:330:5240)8Z3$"2"ĉ:528018:;84000O8Z$"Y"ė:5330^8CSE5320n8360:270:8FX1:12:14:"> SEARCHING <":SEC:Z2$"I"56208MA1SL:FO0:PA(DT$(MA)):PA1PA18Z$"Y"RU(DT$(MA)):5497 9RS1RC:W9$SH1::SH$(SL)(17)SHSH1:SLSL1::52807e:Z$"N"ĺ"CHOICE ";SL;" ";:LCL%(C):800:DT$(SL)B$:950:DT$(SL)(17)SLSL1::52807nZ$"N"52607x"CHOICE ";SL;" ";:DT$(SL):DT$(SL)(17)SLSL1::52808Z$"Y"(DT$(SL))1(DT$(SL))330:5172G6<Z3$"2"ĺ:2::"> YOU MAY SEARCH FOR ONLY ONE ITEM <":V6FZ3$"1"ė6PZ3$"1"Z$"Y"Ė6::"PRESS WHEN FINISHED"::350:CV(37):34,CV-7ZSL1RC:Z4$"Y"SL51ĺ:"ENTER SUBHEADING OR :":LCO4:800:SH$(SL)B$:SH);:330:5150i5(:7:10:"* PRINT-OUT ITEMS *"::9:"1- EQUAL TO ENTRY":9:"2- NOT EQUAL TO ENTRY":5216:"WHICH: ";Z3$:Z3$"1"Z3$"2"ĺ(7);:330:517053P1$"N"Z4$"N":5180 64:"USE SUBHEADINGS (Y/N) ? ";Z4$:Z4$"Y"Z4$"N"ĺ(7);:90d4::7:8:"* SEARCH MATCH OPTIONS *"::10:"1- CHARACTERS ENTERED":10:"2- ENTIRE FIELD":416:"WHICH: ";W9$:W9$"1"W9$"2"ĺ(7);:330:51204 W9$"2"ĺ:51604 5"REGULAR OR INTERNAL SEARCH (R/I) ? ";Z2$:Z2$"R"Z2$"I"ĺ(7$:Z$""ĭ(Z$)175612?3Z$"Y"Z$"N"ĺ(7);:330:50203:Z$"Y"Ģ3:4)"RECORD SEARCH-FOR RECORDS (1-"RC")":350:34,7:520033:958:13)"'ENTRY' SEARCH":350::34,4:340:4"SEARCH FROM WHICH FIELD #: ";C:C1CNCĺ(7);:330:50:A$"N"P$"N"4370r2H1CP1Ą"USE UNDERNEATH FORMATTING (Y/N) ? ";F7$:F7$"Y"F7$"N"ĺ(7);:330:4360z2:237896: 2D60:RTRC:PG0:CK0:LN0:SH0:W9$""::9)"* SEARCH DATA ROUTINE *":350:3"RECORD NUMBER SEARCH (Y/N) ? ";ZN' TO TRY AGAIN. ";:Z$::416011W3$"V"4370A1CPNC4300\1PC(CP)0CPH114370n1H1CP143701V$"V"43701:A$"N"P$"N"43401"USE WRAP AROUND OPTION (Y/N) ? ";WR$:WR$"Y"WR$"N"ĺ(7);:330:43201WR$"Y"43702FIELD #: ";X0$:X0$""āCP1NC:PC(CP)CP::4260R0PC(CP)(X0$):PC(CP)042600PC(CP)NCĺ(7):"INPUT TO HIGH!!":422001CP1H1ĺ(7)::11:"YOU SELECTED TO PRINT "H1" FIELDS":"ACROSS, BUT ONLY CHOSE TO PRINT "CP1:"FIELDS, PRESS 'RT40:/J"PRINT HOW MANY FIELDS HORIZONTALLY":"BEFORE CARRIAGE RETURN ";:H1:H11H1NC5ĺ(7);:CV(37):37,(CV2):958:4170/^/cV$"V"ė:340:/h350::"FIELD SELECTION- =ALL/<0>=FINISHED"::350::CP0:CP1NC510|"PRINT WHICH W3$"V"ĺ(7);:330:4120 ."f.'"NUMBER LINES (Y/N) ? ";WN$:WN$"Y"WN$"N"ĺ(7);:330:4135x.)WN$"Y"4150~.+.,"PRINT RECORD NUMBERS (Y/N) ? ";W2$:W2$"Y"W2$"N"ĺ(7);:330:4140.6:W3$"V"4200.;V$"V"H11:4195/@:3"PRINT FIELD NAMES (Y/N) ? ";A$:A$"Y"A$"N"A$""ĺ(7);:330:4070b-A$"N"P$"N"4110h--"PRINT FILE TITLE (Y/N) ? ";F5$:F5$"Y"F5$"N"ĺ(7);:330:4100-.P$"N"A$"Y"Ą"PRINT RECORDS HORIZ./VERT. (H/V)? ";W3$:W3$"H":958:1:P$"Y"P$"N"ĺ(7):4020b,P$"Y"ė::(7):12:11:"TURN ON PRINTER !!"::(7)o,B0:370,216,0:B14370,P$"Y"ė:"PRINT RECORDS HORIZ./VERT. (H/V)? ";V$:V$"H"V$"V"ĺ(7);:330:4055,V$"V"4090,:340:J-Z1$:Z1$"R"B0İ510*+R Z1$"E"ġ:5580X+\ S0::OF$LL",D"D5::AC11:ACP13020b+f 3360h++:8)"> PRINT-OUT FORMATTING <":350:&,LN0:S0:F5$"":F7$"":HC0:H10:W2$"":W3$"":WR$"":WN$"":NO0:P1$"Y"Ą"ON PRINTER (Y/N) ? ";P$:3C(C1))(A$(PC(C1)))1:PC)"";:3340H* WN$"Y"HC1ĺNO".";:5:3310b* W2$"Y"HC1ĺRU;:5* A$(PC(C1)):HC0:CV(37):CV183370* C1:H1CP1(F7$"N"F7$"")HC0:* ** ::HC0::CL$:C1CPRSRCı+> "E)ND,OR 'RTN' TO CONT. ";: - ") HCHC1:HCH13295@) WN$"Y"HC1ĺNO".";:5:3250Z) W2$"Y"HC1ĺRU;:5w) A$(PC(C1));:" ";:3340) HCHC1:HCH13295) F7$"Y"C1H13295) WN$"Y"HC1ĺNO".";:5:3290) W2$"Y"HC1ĺRU;:5%* A$(PC(C1));:PCCL%(P1Ė5Q( H$(PC(C1));:PCCL%(PC(C1))(H$(PC(C1)))1:PC)"";:::X140:"-";:~(D C1ACP1:A$(PC(C1))""A$(PC(C1))" "(l HC0C11(A$(PC(C1)))64NONO1(v (A$(PC(C1)))643340( A$"Y"W3$"H"3260( A$"N"3230) :H$(PC(C1));"N$"Y"W2$"Y"29900' WN$"Y"ĺNO".";:29859' RU;A' F4f' H$(PC(C1))" - "A$(PC(C1)):2582l' ' X0:X(16384):16368,0:X17ĺ:240::5000' A1' SS1:LNLN1:S13140' A$"N"W3$"V"3140( C11H1:(W2$"Y"WN$"Y")C1 ERROR!":"PRESS 'RTN'";:Z$:5580o&^ S1Q(QN1)(N2)(QN1)1);:(X$,1((X$)0),(QN)(QN)(QN));&h ("0.00",1((N1)Q),1(NQ2)(QN2));&r HCH1ĺ(X$,N(QN)(Q1)(QN)):2575&| (X$,N(QN)(Q1)(QN));:SP);:2610' WERS USED !":X14000:::240:5580u%T FKX4(PC(C1))X4(PC(C1))(A$(PC(C1))):X5(PC(C1))X5(PC(C1))(A$(PC(C1)))%W S1CL%(PC(C1)):X4(A$(PC(C1))):X$" "((X410N.5)):Q(X$)((X$)0)"&Y S1Q0ĺ:240:::(7);:12:"NO.TOO LARGE TO JUSTIFYR 'RTN' TO CONTINUE.";:Z6$:Z6$"E"ĭW2$"Y"F4F15K$ Z6$"E"B0İ510`$ Z6$"E"ġ:5580r$" F7$"Y"HC0$, ::230:F83ĺ(12)$1 F5$"Y"F3$"Y"LN6:2700$6 LN4:RSRC(FL)2700$; 2020$%@ :(7):12:(5):"TOO MANY HORIZ. CHARACT7$"Y"RSRTİ240:S1:W2$"Y"F4F15=# F7$"Y"RSRTıU# F1$"F"F322790y# X1F31:LF$"Y"ĺ(10):2786# # :F0ı# 240:C1CPRSRCS1:W2$"Y"F4F15# C1CPRSRCS1:# F1$"F"F8$"C"28505$ :(7):12:"E)ND,O1NCĭA$"N"HCH1PC(C1)NCĺ5" W2$"Y"F4F15^" C1CP1ĺOF$LL",D"D5::AC11:2020i" 240:" F7$"N"WR$"N"C1CP1ĺ" F3$"N"V$"V"ĺ:2755" LF$"Y"ĺ(10):2750" " PGPG1:TB)"PAGE-";PG:HC0" F6CK0:2090'# F1:LNLI2730! F222600A! X1F21:LF$"Y"ĺ(10):2587G! `! LNLN1:LNLI2730f! !( X0:X(16384):16368,0:X17ĺ:240::5000!2 C1:F7$"Y"HC0!< F1$"F"F6$"R"2640!A X1F31:LF$"Y"ĺ(10)::2640!C : "P CCCL%(PC(C1))(A$(PC(C1)))SP:PC);:2600Y A$(PC(C1))" "(H$(PC(C1)),1)" "2900y WN$"Y"HC1ĺNO".";:2560 W2$"Y"HC1ĺRU; HC1(F7$"Y"C1H1)ĖF4 A$(PC(C1)):LF$"Y"A$"N"ĺ(10)  HC0:F7$"Y"C1H1HCC1! LNLN1CO1:"-";::LNLN1:FL0:FK1:FJ1:Y FLFQāTI1CO1:"=";::LNLN1:FL0:FK1:r F7$"Y"C1H12545 FKWN$"Y"HC1ĺNO".";:2530 FKW2$"Y"HC1ĺRU; HC1ĖF4 A$(PC(C1))" "(H$(PC(C1)),1)" "2900+ A$(PC(C1));:P". FQHC0C11(A$(PC(C1)))64NONO1I (A$(PC(C1)))642610Z V$"V"2950{ HCHC1:HCH1C1CP12542 A$"Y"2505 WN$"Y"HC1ĺNO".";:2490 W2$"Y"HC1ĺRU; HC1ĖF4 A$(PC(C1));:" ";:2610' FL2FQāTIX SH$(MA)""FO1:2400pZ FO1:TD(CO2)(((SH$(MA))4)2):TD)"--"SH$(MA)"--":LNLN1:LNLIF61:2730[ F222400\ X1F21:LF$"Y"ĺ(10):2398] ^ LNLN1:LNLIF61:2730_ X` F60:C1ACP1:A$(PC(C1))""A$(PC(C1))" C11H2:C12ĖF48 WR$"Y"HCHC1:HCH12350I C1H22350$ H$(PC(C1));:CL%(PC(C1))(H$(PC(C1)))SP);:2360. H$(PC(C1)):HC0:C1H2F5F51:CPC1ĖF48 :TI1CO1:"-";::V LNF5:HC0W Z4$"N"P$"N"MASHFO12400Y"ĺ(10):2130M&OV$"V"2390RCH0:CHCH(F41):CH%0:C11H1:CHCH(CL%(PC(C1))1):CH%CH%CL%(PC(C1)):CHCO2880:SP((COF41CH%)H1):SP1ĭH1CH%COSP1SP02880HC0:A$"N"2390WR$"Y"H2CP1:2270H2H1:F5$"Y"F5F52&F3$"Y"F5F52: A$"Y"F5F52OS0:A$"N"2390g LNF5V$"V"2110t%FM2110*CK023914CK1:PG0::TA((CO2)((N$)2)):TB(CO2)3>:F5$"N"2127HTA)N$;:((CO1)(TA(N$)(DA$))))DA$:LF$":F01:S1:980DLNLI3İ230:2000:FM1:FLİ250:230:2780:982PFM982|230:2000:F01:FJİ230::LNLN1:FJ0F00MARSİ250FQ0:F00:RTRC:FM0:FK0:XT:A1W2$"Y"WN$"Y"F4F15:2040F4F1F50(X5(XT)):966A$(XT)" "$GXT1NC:(H$(XT),1)" "984FQ1:RTRT1:LNLI1F01:FM1:250:230:2780:2000:FLS0:250:980FM980LNLIİ230:F01:FM1:230:2780:2000:FLS0:250:982FM982LNLI2İ230:2000 zI1ı (8);"_";(8);*II1@I1I1:B$"":WB$(B$,(B$)1):ySK(CL%(C)40):X1SK:::FQ0:F00:FM0:FK0:A$"Y"TF$"N"980XT1NC:FL1(H$(XT),1)" "A$(XT)(X4(XT)):966FL2(H$(XT),1)" "A$(XT)4E$6E$(10)E$(92)37E$(11)E$(91)J8E$(12)E$(95)`9E$(17)B$E$:r>E$(21)820HE$(8)İ890:820RE$(13)ĺE$;:\E$;:B$B$E$:ILĂf(B$,1)(13)ĺ(7);:(8)" ";:(8);:B$(B$,(B$)1):820p12:"THEN PRESS 'RTN'";ZT$::G1013:MS$"DATA DISKETTE":650:4050y1013:(7):"BAD FORMAT NAME-TRY AGAIN":560I10131022:PP:I,PP:::104,168,104,166,223,154,72,152,72,96 B$""::I1L:"_";::((37)2(L39.9)):1*I1L1TF$:V$:X1CP1:PC(X)::CL$:216,04INR600TKJ1NR:R$(J)R$(NR1)620ZLXD$"OPEN"N$".F":D$"WRITE"N$".F":NR1:J1NR1:R$(J):::CL$lMS$"DATA DISKETTE":650v:12:3:"LOAD ";::MS$;::" INTO DRIVE #";::D1::00:R$(NR1)B$:R$(NR1)""ĺ(7);:330:570T?P$"Y"R$(NR1)R$(NR1)".P":580oAR$(NR1)R$(NR1)".M"'DNNNR1::D$"OPEN"R$(NN)"-F,D"D1:D$"WRITE"R$(NN)"-F":CO:F1:LI:F2:F1$:F3:F6$:F8$:F3$:A$:F5$:W3$:W2$:H1:WR$:F7$:CP:WN$:N:DISKETTE":650%NR105610:(7);:11:"SAVE THIS FORMAT TO DISK (Y/N) ";Z5$:Z5$"Y"Z5$"N"ĺ(7);:330:520B1:Z5$"N"5610MS$"FORMAT DISKETTE":650NR1NR0&7100,:"ENTER NAME FOR FORMAT (28) ":L28:8WHICH: ";Z5$:Z(Z5$):Z1ZIĺ(7);:330:440]:ZIB0:MS$"DATA DISKETTE":650:4050D$"OPEN"R$(Z)"-F,D"D1:D$" READ "R$(Z)"-F":CO,F1,LI,F2,F1$,F3,F6$,F8$,F3$,A$,F5$,W3$,W2$,H1,WR$,F7$,CP,WN$,N,TF$,V$:X1CP1:PC(X):::CL$MS$"DATA h:12:11)"> RECALLING DATA <":-r700LtMS$"FORMAT DISKETTE":650wF5$"":W3$"":WR$"":D$"OPEN"N$".F,D"D1:D$"READ"N$".F":NR:J1NR:R$(J)::CL$:216,0::B1::"FORMAT SELECT:"::I1NR:I" "R$(I):::I" CREATE A NEW FORMAT ":/"(OF$LL",D1"M,X1NC:B1CL(X1):X1F7$"Y"C1CP1(P$"N"P$"")ĺ@RF$RU",B"B1:783:A$(X)(TE$,1)::CL$:216,0:EMI%(I)RU:285JCV(37):37,(CV1):958:TX1NC:4)X;"- ("CL%(X)") ";:14:H$(X)::^X140:"-";::#C1):RF$MI%(I)",B"B1:783:S$(I)(TE$,1)::CL$:216,0FD11D51L216,0:240:(7)::12:"DISK ERROR-RECORD ";::MI%(I);::" MAY BE BAD":"PRESS 'RTN'";:Z$:5612"325#D52:RUD3D51$D11D51%D52ĺOF$LL",D"D1:300(10):257 ? :F3$"Y"PGPG1:TB)"PAGE-";PG:240:J 240:b X1NC:X4(X)0::l 285u F70 I1RC D52 MI%(I)D3D51 I1F71:D51F70 D52F7F70:OF$LL",D"D1 D51F7F71:OF$LL",D1"7B1CL((TE$,1)::D$"CLOSE":X1NC:CL%(X)CL(X)CL(X1)1::40J (7):5000 :12:6::"- PRESS 'RTN'";::Z$::145 D$"PR#"F8:F83D6ĺ:D61 CT$""ĺCT$ D$"PR#"MO: V$"V"S0260 230:LFLNLI:LF$"Y"ĺ"LOAD ";::"DATA DISKETTE VOL# 2";::" INTO DRIVE# 1":"AND PRESS 'RTN'";:Z$::D$"OPEN"N$",D1":CL$ 216,0:D$"OPEN"N$".I,D"D1:D$"READ"N$".I":X1RC:MI%(X)::CL$: D$"OPEN"N$",L"LL",D"D1:X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:783:H$(X):Z$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):PC(NC5),A$(NC),S$(RC),DT$(RC),H$(NC),CL%(NC),SH$(50),X4(NC),X5(NC),MI%(RC) 225h D12D22ė:(7):11:COPYRIGHT 1981 BY W.L.PASSAUERz 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'";:5M TE$"":216,0::SE0:255:D$(4):D$"NOMON I,O,C":750: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$:P1$"Y"ĺD$"OPEN DATE":D$"READ DATE":783:DA$(TE$,1)::D$"CLOSE"2 P                         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ؒ9HYh `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")(4);"RUN MENU,D1")(222)255Ħ)FX%)H1(L1):H2(L2):H3(L3):H4(L4):0:0: PROCESS RECORD!( N(2)İ1710p((KB)155ĹKS,0:CR$;CR$;(7);"<< ABORTED RUN >>";(7);CR$;CR$;CR$;:3670~(CI:CISI(P(3)P(2)0PFİ1630(1800: SUBTOTAL(P(4)P(3)0PFİ1630($1870: TOTAL(.PFİ1710: BOTTOM(8)B T*********' ' CIICSI=' D6D1:MI%(SI%(CI))D3D61i' D6D5įCL%,FI$:OP%,FI$,(RL),D6:D5D6' BK0SFBK:150:BK$IN$' BK$OB$BFİ1800:OB$BK$:BF0' LNL(2)1LIL(5)İ1710: BOTTOM' P(2)P(1)0PFİ1630: TOP( PR2:1400NS$" ":NZ$"000000000"0&4 FI$N$D&> IC1:BK03500p&H CIIC:SFBK:D6D1:MI%(SI%(CI))D3D61&R OP%,FI$,(RL),D6&\ D5D6:150:OB$IN$&f &p ************************&z & MAIN PROCESSING LOOP& ' *************** K% P$"Y"ĺ(4);"PR#";F8:(CT$)0āX1(CT$)3:(((CT$,X,3)));:p% CR$(13):LF$"Y"CR$CR$(10)y% LN1% X1COF1:SP$SP$" ":% F10āX1F1:MA$MA$" ":% P(5)03370% X1P(5)% TY%(X)1PR$(X)C$(PA%(X))% %&* A$) $b $l CL%,FI$$v 6$ INITIALIZE PRINTOUT<$ a$ :12:12:""p$ CS03280$ X%6:MA%0$ MA%,X%,FA%(MA%1):MA%13280$ FO%(MA%)23250$ (4);"IN#";CS:(4);"PR#";CS:"";TI$:(4);"IN#0":(4);"PR#0"%Ю MIRC# MI%(MI) # X1MI0# RE%,FI$,A$A# MI%(X)(A$)G# T# CL%,FI$Z# u# READ SECONDARY INDEX{# # FI$N$".S"# OP%,FI$,D1:OP%ĺ(7):3670#& RE%,FI$,A$#0 SI(A$)#: SI%(SI)#D X1SI#N RE%,FI$,A$$X SI%(X)(COMMENT "" ", FI$"DATE"6"6 OP%,FI$,D1:OP%2900G"@ RE%,FI$,DA$T"J CL%,FI$u"T 12:12:""{"^ "h D212970"r FI$N$"| OP%,FI$,1:OP%2820" READ MASTER INDEX" " FI$N$".I"" OP%,FI$,D1:OP%ĺ(7):3670#! NC(A$):RC(B$):RR(C$)2! CL(NC),FL(NC)>! X1NCN! RE%,FI$,A$v! CL(X)(A$):FL(X1)CL(X)CL(X1)1|! ! CL%,FI$! RLCL(NC)NC: COMPUTE RECORD LENGTH! D212860! DX1:MS$"DATA DISKETTE VOL 2":270! " READ DATE/INDICES < 6 F DXD1:MS$"DATA DISKETTE VOL 1":270V P 12:12:""\ Z | d READ VARIABLE INFORMATION n x FI$N$".V" OP%,FI$,(498),D1:OP%ĺ(7):2630 RE%,FI$,(1),A$,B$ D2(A$):D3(B$)! RE%,FI$,(0),A$,B$,C$(C$):TY%(X)(D$):PA%(X)(E$)$ I FO%(M(5)1),FA%(M(5)),FB%(M(5))Z M(5)02560h X1M(5)~ RE%,FI$,A$,B$,C$ FO%(X)(A$):FA%(X)(B$):FB%(X)(C$)  RE%,FI$,A$ C$((A$)) RE%,FI$,C$(0) CL%,FI$(  2 READ 5:N(X)(A$(X)):V BK(A$)i` PO%(P(5)),YC%(P(5)),XC%(P(5)),WD%(P(5)),TY%(P(5)),PA%(P(5)),PR$(P(5))zj P(5)02500t X1P(5)~ RE%,FI$,A$ PO%(X)(A$)  X1P(5) RE%,FI$,A$,B$,C$,D$,E$ YC%(X)(A$):XC%(X)(B$):WD%(X),D$,E$7F8(A$):LI(B$):F1(C$):CO(D$):CS(E$)VM(5),P(5),L(5),N(5),A$(5)i RE%,FI$,A$(0) X15:M(X)(A$(X)): RE%,FI$,A$(0)$ X15:P(X)(A$(X)):. RE%,FI$,A$(0)8 X15:L(X)(A$(X)):B RE%,FI$,A$(0),A$L X1ELECT (1-";Y;") OR FOR MORE: ";:KE%,3,A$,2:KE%2ĉ:2180`KE%1(A$)Y(A$)02220::F$CA$((A$))".COF":X0CA%:CA$(X)"":12:12:""FI$F$OP%,FI$,D1:OP%ĺ(7):2120RE%,FI$,A$,CT$,LF$,F8$,B$,C$,1,(CA$(X))4)p:X0{zY0ė:15:10:(7);"":23:"PRESS 'RTN' WHEN READY:";:KE%,1,A$,1:3690::"MICRO LAB CUSTOM OUTPUT FORMATS":XX1:XYX1" ";X;"-";CA$(X):(CV)21XY219034,(37)?::"S7PI3.14159265' RG(99),CA$(88)-*D4 READ FORMAT DISKJ>fHDXD1:MS$"FORMAT":270RCA%,CA$(0),D1:CA%02120\X1CA%:CA$(X)(CA$(X),8):TR%,CA$(X)::Y0:X1CA%:(CA$(X),4)".COF"CA$(X)"":2160fYY1:CA$(Y)(CA$(X)*********************= INITIALIZE SYSTEM VARIABLESCQD1(864)bP$((865))tP1$((866))S$((867))I(868)X869868I:N$N$((X)): KB16384:KS16368:CV37:SC912:EL868:ES958:L154:L255:L356:L45L(5)N(1)İ1710:1630%PR3:14005N(3)İ1710;&A0T: GRAND TOTALSZDNLNL(4)LIL(5)N(4)İ1710:1630XPR4:1400bN(5)İ1710lv ************************* START OF MAIN PROGRAM ****P$"N"F80ėrPR1:1400&|PF1,2G BOTTOM OF PAGEMrLNLIL(5)ĺCR$;:LNLN1:1710PR5:1400PF0F8$"S"F80Ģ23:20:ZT$:KS,0F80Ģ24:39:ZT$:LN0: SUBTOTALSLNL(3)LI$,XC%(PO%(X))WD%(PO%(X))(PR$(PO%(X)))JTY%(PO%(X))1PR$(PO%(X))""yTY%(PO%(X))1PR$(PO%(X))C$(PA%(PO%(X)))TR%,LI$:MA$;LI$;CR$;"LNLN1:LL1,LL(PR)ĺCR$;:15706@J TOP OF PAGET^PGPG1:LN1h1580XP(PR1)1P(PR)YC%(PO%(X))LįTR%,LI$:MA$;LI$;CR$;:LL1:LNLN1:LI$SP$:YC%(PO%(X))LāYL1YC%(PO%(X)):CR$;:LL1:LNLN1:TY%(PO%(X))4įIS%,(PR$(PO%(X)),1,WD%(PO%(X))),LI$,XC%(PO%(X))(TY%(PO%(X))4įIS%,PR$(PO%(X)),LI R APPEND SSFFA%(X):150FTPR$(FB%(X))PR$(FB%(X))" "IN$:LZ_d MATH & PRINTfn xM(PR1)M(PR)1470XM(PR1)1M(PR)FO%(X)530,590,700,1363:PP0X PRINT LINELI$SP$:L1P(PR1)P(PR)SY:=SX((SYSX(SYSX))SX.05)(SYSX):SYSZ:SZST:^BF(SX):SXSY:SYSZ:SZST:m SX(SX):STSZ:SZSY:SYSX: INCREMENT(RG(FB%(X))RG(FB%(X))1:2 DECREMENT<RG(FB%(X))RG(FB%(X))1:F CLEARPRG(FB%(X))0:X(SX):tSX(SX):'~SX(SX):6SX(SX):ESX(SX):SSX1SX:aSXSX2:STSZ:SZSY:SYSX:SXPI:SX180PISX:SXPI180SX:TTST:STSZ:SZSY:SYSX:SXTT:TTSX:SXSY:SYSZ:SZST:STTT:SW%,SX,:SYSZ:SZST:(SX1E38:SYSZ:SZST:5SXSX:PSXSYSX:SYSZ:SZST:_SX(SX):nSX(SX):}$SX(SX):.SX(SX(SXSX1)):8SX(SX(SXSX1))1.5708:BSX(SX):LSX(SX):VSXSX(SX):`SX(SX): jS1060,1070JFB%(X)101080,1090,1100,1110,1120,1130,1140,1150,1160,1170FB%(X)201180,1190,1200,1210,1220,1240,1250,1260,1270,1280,1290,1300SXSYSX:SYSZ:SZST:SXSYSX:SYSZ:SZST:SXSYSX:SYSZ:SZST:SX0SXSYSXB%(X)) *4 WRITE>>SFFB%(X):IN$((SX),1,FL(SF1))GH210MRY\ STOREmfRG(FB%(X))SX:|p CONSTANTzSTSZ:SZSY:SYSXSX(C$(FB%(X))) OPERATION3730 PP1:FB%(X)980,990,1000,1010,1020,1030,1040,1050,X)6IN$TI$: TIME290"(> MATH OPERATIONSDwFA%(X)740,790,830,870,890,930,1320,1340,13603750 INPUTSFFB%(X):150STSZ:SZSY:SYSXSX(IN$)  RECALLSTSZ:SZSY:SYSX SXRG(FFA%(X):150 290 &! 0A : PRINT SPECIAL INFORMATIONG Dh NFA%(X)1IN$(PG): PAGE # XFA%(X)2IN$(MI%(SI%(CI))): RECORD # bFA%(X)3IN$N$: FILENAME lFA%(X)4IN$DA$: DATE vFA%(X)5IN$(SX): STACKFA%( SS%,"E",NU$H SS%NE$(NU$,NLSS%1):NU$(NU$,SS%1):NLSS%1{ SS%,".",NU$:SS%0NU$NU$".":NLNL1:SS%NL PA%(FB%(X))0NU$(NU$NZ$,SS%PA%(FB%(X)))NE$ PA%(FB%(X))0NU$(NU$,SS%1)NE$   MOVE FIELD TO PRINT SF(X)),WD%(FB%(X))):/ ^ LEFT JUSTIFIED NUMBERA h440: FORMATd rPR$(FB%(X))(NU$,WD%(FB%(X)))j |  RIGHT JUSTIFIED NUMBER 440: FORMAT PR$(FB%(X))(NU$,WD%(FB%(X)))   NUMBER FORMATTER NU$((IN$)):NE$"" NL(NU$)"LOAD ";::MS$;::" INTO DRIVE #";::DX::12:"THEN PRESS 'RTN'";ZT$::c  PRINT TO STRING "TY%(FB%(X))310,330,360,400 , CONSTANT 6PR$(FB%(X))C$(PA%(X)): @ STRING JPA%(FB%(X))1PR$(FB%(X))IN$: TPR$(FB%(X))(IN$,PA%(FB% FIELD READ + CISISFNCIN$"":_ RE%,FI$,(MI%(SI%(CI)),CL(SF1)),IN$:RE%İ3800e k DISK FIELD WRITE CISISFNCı WR%,FI$,(MI%(SI%(CI)),CL(SF1)),IN$:WR%İ3800 DISK MOUNT M :12:3:$  REPORT GENERATOR5 DATA FACTORY 5.0;(L2 WRITTEN BYc< CURT ROSTENBACHiFPSC912:EL868:ES958:L154:L255:L356:L457:D1(864):3750Z(4);"BLOAD AMPER FACTORY.OBJ0":33520d3730n2000x DISK             18)(219)256:"PRESS 'RTN' WHEN YOU HAVE MADE A NOTE";A$:1002:307NL307A,"LOG",3,4,20,"1/X",3,4,21,"X^2",3,4,22,"PI",3,4,23,"RAD",3,4,24,"DEG",3,4,25,"RUP",3,4,26,"RDN",3,4,27,"X<>Y",3,4,28,"MOD",3,4,29,"BRK",3,4,30,"NOT",3,4,31K8"DUP",3,4,32,"APPEND",4,1,0,"",0,0,0K9(222)255ĦEL:0:0:22:"ERR#";(222);" AT ";(2"CLR",3,3,9,"C",3,3,9,"+",3,4,1,"-",3,4,2,"*",3,4,3,"/",3,4,4,"CHS",3,4,5,"Y^X",3,4,6,"SIN",3,4,7,"COS",3,4,8,"TAN",3,4,9,"ASN",3,4,10,"ACS",3,4,11,"ATN",3,4,12K7"INT",3,4,13,"FRC",3,4,14,"RND",3,4,15,"SGN",3,4,16,"ABS",3,4,17,"SQR",3,4,18,"EXP",3,4,192,2,3,"DATE",2,2,4,"PRINT",2,2,5,"PRT",2,2,5,"P",2,2,5,"TIME",2,2,6,"INPUT",3,3,1,"INP",3,3,1,"I",3,3,1,"RECALL",3,3,2,"RCL",3,3,2,"R",3,3,2,"WRITE",3,3,3,"WRT",3,3,3J6"W",3,3,3,"STORE",3,3,4,"STO",3,3,4,"S",3,3,4,"INC",3,3,7,"DEC",3,3,8,"CLEAR",3,3,9,'H/SS%,A$,"1230":SS%130,292,297,3050H0302":(4);"RUN MENU,D1":I5"MOVE",1,1,0,"MOV",1,1,0,"M",1,1,0,"PAGE#",2,2,1,"RECORD#",2,2,2,"FILENAME",(301):C$(300)SG,OP$(62),OP%(62),OT%(62),OA%(62):EL868:ES958:CV37:CH36:X1G-OP$(X),OP%(X),OT%(X),OA%(X):OP$(X)""XX1:301G.:10:15:"0) END"::15:"1) CREATE":15:"2) EDIT":15:"3) PRINT"::12:"SELECT:";:KE%,3,A$,1:KE%1302WD:SP$SP$" "::112:6:G+::BN$"FORMAT GENERATOR":4:D1(864):P$((865)):P1$((866)):S$((867)):M(5),P(5),L(5),N(5),A$(5),YN$(1):YN$(0)"NO":YN$(1)"YES":PO%(201),YC%(201),XC%(201),WD%(201),TY%(201),PA%(201),PR$(201):FO%(301),FA%(301),FB%10:10:"0) END"::10:"1) PRINTER VARIABLES":10:"2) PRINT LOCATIONS":10:"3) MATH & MANIPULATIONS"::8:"SELECT: ";:KE%,3,A$,1:SS%,A$,"0123":SS%296,136,180,255E'294E(:6:E)BN$"FORMAT PRINT":4:20:WD39:COWDWDCOF*SP$"":X11):T:FO%(B)FO%:FA%(B)FA%:FB%(B)FB%:TSL5:M(T)M(T)1:T:M1$M2$:M2$M3$:YB:88:M3$LI$:YY1:88:M4$LI$:YY1:88:M5$LI$:YY1:88:M6$LI$:AA1:BB1:CC1:258D#6:256D$BN$"EDIT FORMAT":4:20:EF1D%SP$"":X139:SP$SP$" ":E&:179:283CFB%(A$):289cC18:7:FO$;" R";:EL:KE%,3,A$,2:KE%287,286,258,258,258,286,286vCFB%(A$):289C FA%6:FB%OA%(MA%):289C!M(5)1300ER$"OUT OF SPACE":179:258D"TM(5)1B1:FO%(T)FO%(T1):FA%(T)FA%(T1):FB%(T)FB%(T%((A$))1ER$"P"((A$))" IS A CONSTANT":179:278VBFA%OA%(MA%):FB%(A$):289BFA%OA%(MA%):FA%283,286,283,286,286,286,286,286,286B18:7:FO$;" F";:EL:KE%,3,A$,2:KE%284,283,258,258,258,283,283 C(A$)1(A$)88ER$"BAD FIELD #":ER$"UNDEFINED LOCATION":179:274`ATY%((A$))1ER$"P"((A$))" IS A CONSTANT":179:274sAFB%(A$):289A18:7:FO$;" TO P";:EL:KE%,3,A$,3:KE%279,278,258,258,258,278,278A(A$)1(A$)P(5)ER$"UNDEFINED LOCATION":179:2786BTY1,278,282,288T@18:7:FO$;" F";:EL:KE%,3,A$,2:KE%272,271,258,258,258,271,271@(A$)1(A$)88ER$"BAD FIELD #":179:271@FA%(A$)@18:7:FO$;" F";FA%;" TO P";:EL:KE%,3,A$,3:KE%275,274,271,258,258,274,274"A(A$)1(A$)P(5)Ġz#         ԮʰĠF Ҡ Ǡ& Ƞ7 ˠ Ơ  Ԡ̠I Ԡ  ͠! Ƞ ՠ Š ˠ Ҡٮʰ!à( ˠŮʠ Š Π"ɠ5)1:FO%(T)FO%(T1):FA%(T)FA%(T1):FB%(T)FB%(T1):T:TSL5:M(T)M(T)1:T:YB:88:M4$LI$:YY1:88:M5$LI$:YY1:88:M6$LI$:258? TR%,A$:MA%,A$,OP$(1):MA%0270? FO%3:FA%5:CNCN1:C$(CN)A$:FB%CN:289 @FO%OP%(MA%):FO$A$:OT%(MA%)27:259X>M6$M5$:M5$M4$:M4$M3$:M3$M2$:M2$M1$:AA1:BB1:CC1:YA:88:M1$LI$:258t>BM(SL1)1ĺ(7):259> M3$M2$:M2$M1$:AA1:BB1:CC1:YA:88:M1$LI$:FO%(B)3FA%(B)5C$(FB%(B))""> FO%(B)3FA%(B)5FB%(B)CNCNCN1? TBM(E> EXITS EDIT MODE":E=14:ES:M1$:M2$:M3$::::M4$:M5$:M6$~=18:7:KE%,1,A$,10:KE%268,259,262,259,264,291,260=BM(SL)ĺ(7):259=M1$M2$:M2$M3$:M3$M4$:M4$M5$:M5$M6$:AA1:BB1:CC1:YC:88:M6$LI$:258>BM(SL1)1ĺ(7)ANIPULATIONS":4$<171:SL0İ6:=BM(SL1)1:CB2:AB3:M1$"":M2$"":M3$"":XSL:YM(SL1)1:88:M4$LI$:YY1:88:M5$LI$:YY1:88:M6$LI$::" ADVANCES A COMMAND":" BACKS UP A COMMAND":" DELETES LAST COMMAND":" TO CONTINUE:";:KE%,1,A$,1:23:ES:251<BN$"MATH & MN): ";:T1:247::::83:::"NEW PAGE AFTER PRINTING? (Y/N): ";:T3:247::"NEW PAGE BEFORE PRINTING? (Y/N): ";:T4:247::::83:::"NEW PAGE AFTER PRINTING? (Y/N): ";:T5:247:::KE%,2,A$,1:KE%1250:A$"Y"N(T)1;A$"N"199:TY%(Z)1CNCN1:PA%(Z)CN:204@9TY%(Z)2PA%(Z)1:212S9TY%(Z)3İ214f9TY%(Z)4İ215o92359:::XSL:CR$(13):83:::SL246,243,244,245,2469"NEW PAGE AFTER PRINTING? (Y/N): ";:T2:247:M:"NEW PAGE BEFORE PRINTING? (Y/ED NUMERIC":5:"4) RIGHT JUSTIFIED NUMERIC"::3:"SELECT: ";:KE%,3,A$,1:SS%,A$,"01234":SS%0235u8SS%1İ6:$9TSL5:P(T)P(T)1::ZP(5):TP(5)P(SL)11:PO%(T)PO%(T1)::PO%(P(SL))Z:YC%(Z)0:XC%(Z)0:PA%(Z)0:WD%(Z)0:TY%(Z)SS%1:196:":SS%233,196,199,202:6:232,7:6:6:76:BN$"ADD PRINTER LOCATIONS":4:P(5)200ĺ:"OUT OF SPACE - UNABLE TO ADD":23:"PRESS 'RTN' WHEN READY:";:KE%,1,A$,1:6:e8::5:"0) END"::5:"1) CONSTANT":5:"2) CHARACTER":5:"3) LEFT JUSTIFI1A$"000"İ6:I6X%(A$):MA%,X%,PO%(0):MA%P(SL1)1MA%P(SL)2297:"NAME LINE COLUMN LEN DESCRIPTION":ZX%:CR$(13):73:5:::15:"0) END"::15:"1) LINE":15:"2) COLUMN":15:"3) DESCRIPTION"::13:"SELECT: ";:KE%,3,A$,1:SS%,A$,"0123I5:13:"SELECT :";:KE%,3,A$,1:SS%,A$,("012",LS):SS%0ĺ(7):223^5SS%227,234,228g5221r5:6:56:BN$"EDIT PRINTER LOCATIONS":45::XP(SL1)1P(SL):" P";PO%(X);:(CH)35ĺ6:::"WHICH? (0-END): ";:KE%,3,A$,3:KE%4WD%(Z)02164y4::"NUMBER OF DECIMAL PLACES: ";PA%(Z);" ";:KE%,3,A$,1:KE%1(A$)1WD%(Z)PA%(Z)(A$)44BN$"PRINTER LOCATIONS":4:L(SL)0İ1874:::15:"0) END"::15:"1) ADD":LS25P(SL)P(SL1)Ė15:"2) EDIT":LS3:"STARTING CHARACTER POSITION: ";PA%(Z);" ";:KE%,3,A$,3:KE%1(A$)0(A$)256PA%(Z)(A$)g33216:TY%(Z)3:219:3216:TY%(Z)4:219:3::"LENGTH OF FIELD: ";WD%(Z);" ";:KE%,3,A$,3:KE%1(A$)0(A$)XC%(Z)1COWD%(Z)(A$),A$,1:23:ES:205^2::"ENTER FIXED LENGTH CONSTANT:":KE%,1,C$(PA%(Z)),(A$):KE%1208q2WD%(Z)(A$):2::"ENTER FREE FORM CONSTANT:":KE%,1,C$(PA%(Z)),COXC%(Z)1:KE%12102TR%,C$(PA%(Z)):WD%(Z)(C$(PA%(Z))):a3216:TY%(Z)2::) FREE FORMAT"::8:"SELECT: ";:KE%,3,A$,1:SS%,A$,"12":SS%205,210:u1::"LENGTH: ";:KE%,3,A$,3:KE%12051(A$)0C$(PA%(Z))"":2(A$)XC%(Z)1COĢ23::(7);" TOO LARGE ";::" MAX ";COXC%(Z)1;" ";::" TO CONTINUE:";:KE%,1(A$)0XC%(Z)0199000TY%(Z)12040::5:"0) END"::5:"1) CHARACTERS":5:"2) LEFT JUSTIFIED NUMERIC":5:"3) RIGHT JUSTIFIED NUMERIC":3:"SELECT: ";:KE%,3,A$,1:SS%,A$,"123":SS%212,214,215:H1::10:"1) FIXED LENGTH":10:"2E ";::" MAX ";MX;" ";::" TO CONTINUE:";:KE%,1,A$,1:23:ES:192/::"LINE ";YC%(Z);" ";:KE%,3,A$,3:KE%1(A$)0(A$)L(SL)YC%(Z)(A$)/YC%(Z)0196/0::"COLUMN ";XC%(Z);" ";:KE%,3,A$,3:KE%1(A$)0(A$)COXC%(Z)_.:::"LENGTH IN LINES: ";L(SL);" ";:KE%,3,A$,2:KE%1(A$)MN(A$)LIL(SL)(A$):m.KE%1ı.(A$)MNĢ23::(7);" TOO SMALL ";::" MIN ";MN;" ";::" TO CONTINUE:";:KE%,1,A$,1:23:ES:192I/(A$)MXĢ23::(7);" TOO LARG:"SELECT: ";:KE%,3,A$,1:SS%,A$,("01234",LS):SS%186,187,221,242,251Q-182_-:6:181|-MN0:P(SL1)P(SL)192-XP(SL1)1P(SL):YC%(PO%(X))MNMNYC%(PO%(X))-:SL1SL5MXLIL(1)L(5)-SL1MXLIL(5)-SL5MXLIL(1)EL:23:1:EL:/,BN$"PRINTER LOCATIONS":4C,171:SL0İ6:,:10:10:"0) END"::10:"1) LENGTH OF SECTION":10:"2) PRINT LOCATIONS":LS3:SL2SL3SL4Ė10:"3) NEW PAGE CONTROL":LS4,SL3Ė10:"4) SUB-TOTAL BREAK FIELD":LS5H-:8+SLSS%1:SL0ı/+SL1BN$"TOP OF FORM"F+SL2BN$"RECORD"a+SL3BN$"SUB-TOTALS"x+SL4BN$"TOTALS"+SL5BN$"BOTTOM OF PAGE"+4:,18:33::(7);"":23::" ";ER$;" ";::" TO CONTINUE:";:KE%,1,A$,1:18:33:D SLOT #";CS;" ";:KE%,3,A$,1:KE%1(A$)8CS(A$)<**:10:12:"0) END"::12:"1) TOP OF FORM":12:"2) RECORD":12:"3) SUB-TOTALS":12:"4) TOTALS":12:"5) BOTTOM OF PAGE"::10:"SELECT :";:KE%,3,A$,1:SS%,A$,"012345":SS%0ĺ(7):171 ";:KE%,3,A$,3:KE%1(A$)0(A$)250LI(A$)8)):10:"LEFT MARGIN: ";F1;" ";:KE%,3,A$,3:KE%1(A$)0(A$)250F1(A$))):10:"PRINT COLUMNS: ";CO;" ";:KE%,3,A$,3:KE%1(A$)0(A$)250CO(A$))6*:10:"CLOCK CAR43 (6:g(:10:"LINEFEED REQUIRED? (Y/N): ";LF$;" ";:KE%,2,A$,1:KE%1(A$"Y"A$"N")LF$A$m((:10:"FORM END:":" STOP OR CONTINUE? (S/C): ";F8$;" ";:KE%,2,A$,1:KE%1(A$"S"A$"C")F8$A$(2):10:"LINES PER PAGE: ";LI;"T'"ENTER DECIMAL CHARACTER VALUE: ";:KE%,3,A$,3:KE%151,158,153,155,157,143,156y'CT$CT$("000"((A$)),3):143'(A$)255ĺ(7):143'CT$CT$A$:143'CT$""143'CT$(CT$,1,(CT$)3):143'CT$"":143'MD1:143(MD2:1NE>":147e&:" ";:X1(CT$)3:Y((CT$,X,3)):Y32(Y125Y160)Y253ĺ("000"(Y),3);" ";&(Y31Y126)(Y159Y254)ĺ(Y);" ";&X:&:MD148,149&"ENTER ALPHANUMERIC CHARACTER: ";:KE%,1,A$,1:KE%150,158,153,155,157,143,156TERS":" SELECTS ALPHANUMERIC ENTRY":" BACKS UP ONE CHARACTER":" CLEARS CONTROL CHARACTERS":" SELECTS DECIMAL VALUE ENTRY":" OR EXITS ENTRY MODE"::5 &:"PRINTER CONTROL CHARACTERS: ";:CT$""ĺ"":0:F80ĊF8:(CT$)0āX1(CT$)3:(((CT$,X,3)));:rF80117s23:"PRINTER SLOT #";:KE%,3,A$,1:KE%1(A$)1(A$)7115t(A$) uCR$(13):LF)8įIS%,"DEC R"(FB%(Y)),LI$,7MjFA%(Y)9įIS%,"CLEAR R"(FB%(Y)),LI$,7`kFA%(Y)6111lX%4:MA%,X%,OT%(0):MA%0įIS%," "(FA%(Y))","(FB%(Y)),LI$,7:111mMA%,FB%(Y),OA%(MA%):MA%0įIS%," "(FA%(Y))","(FB%(Y)),LI$,7:11F"(FB%(Y)),LI$,7@dFA%(Y)2įIS%,"RECALL R"(FB%(Y)),LI$,7meFA%(Y)3įIS%,"WRITE F"(FB%(Y)),LI$,7fFA%(Y)4įIS%,"STORE R"(FB%(Y)),LI$,7gFA%(Y)5įIS%,(34)C$(FB%(Y))(34),LI$,7hFA%(Y)7įIS%,"INC R"(FB%(Y)),LI$,7 iFA%(YCORD# TO P"(FB%(Y)),LI$,7N^FA%(Y)3įIS%,"FILENAME TO P"(FB%(Y)),LI$,7}_FA%(Y)4įIS%,"DATE TO P"(FB%(Y)),LI$,7`FA%(Y)5įIS%,"PRINT TO P"(FB%(Y)),LI$,7aFA%(Y)6įIS%,"TIME TO P"(FB%(Y)),LI$,7b111cFA%(Y)1įIS%,"INPUT ":EYLI$SP$:IS%,(" "(YM(X1)),3),LI$,1:FO%(Y)90,92,99,91~ZIS%,"MOVE F"(FA%(Y))" TO P"(FB%(Y)),LI$,7:111S%,"APPEND F"(FA%(Y))" TO P"(FB%(Y)),LI$,7:111\FA%(Y)1įIS%,"PAGE# TO P"(FB%(Y)),LI$,7]FA%(Y)2įIS%,"RE PRINTING: ";YN$(N(2));CR$;:87U"NEW PAGE BEFORE PRINTING: ";YN$(N(1));CR$;:"NEW PAGE AFTER PRINTING: ";YN$(N(3));CR$;:87V"NEW PAGE BEFORE PRINTING: ";YN$(N(4));CR$;:"NEW PAGE AFTER PRINTING: ";YN$(N(5));CR$;WXYM(X)YM(X1)1LI$"9)Z$(34),LI$,5:82XOIS%,"CHARS "(PA%(Z))" THRU "(PA%(Z)WD%(Z)1),LI$,23:82PAWD%(Z):BPA%(Z):71:IS%,"LJ "FM$,LI$,23:82QAWD%(Z):BPA%(Z):71:IS%,"RJ "FM$,LI$,23RTR%,LI$:LI$;CR$;:SX87,84,85,86,87T"NEW PAGE AFTERI$:LI$;CR$;:LI$SP$:(Z$)7(SP$)įIS%,(34)Z$(34),LI$,5:82LIS%,(34)(Z$,(SP$)7)(39),LI$,5:LI$;CR$;:LI$SP$:Z$(Z$,(SP$)7)M(Z$)(SP$)7įIS%,(39)(Z$,(SP$)7)(39),LI$,5:LI$;CR$;:LI$SP$:Z$(Z$,(SP$)6):77NIS%,(3:BB1=HFM$("999999999999999",1,A)(".999999999",1,B):ILI$SP$:IS%,"P"(Z),LI$,2:IS%,(YC%(Z)),LI$,8:IS%,(XC%(Z)),LI$,13:IS%,(WD%(Z)),LI$,18:TY%(Z)74,79,80,81JZ$C$(PA%(Z)):(Z$)25(SP$)įIS%,(34)Z$(34),LI$,23:82CKTR%,L53ĺ("000"(Y),3);" ";C>(Y31Y126)(Y159Y254)ĺ(Y);" ";P?X:CR$;V@{ACR$;CR$;:X1ĺ"";BX2ĺ"";CX3ĺ"";DX4ĺ"";EX5ĺ"";FCR$;CR$;:GB0AAB1) PRINT 7) LINES PER";CR$;:" MARGIN COLUMNS PAGE";CR$;:" <";F1;">";7);"<";CO;">";8);"<";LI;">";CR$;CR$;:"8) PRINTER CONTROL CHARACTERS: ";:CT$""ĺ"";CR$;:64=CR$;" ";:X1(CT$)3:Y((CT$,X,3)):Y32(Y125Y160)Y2">";18);"<";CS;">";CR$;CR$;:"3) FORM END 4) LINEFEED";CR$;:" STOP OR CONT REQUIRED";CR$;:F8$"S"ĺ6);"";9F8$"C"ĺ6);"";:LF$"Y"ĺ16);"";CR$;CR$;;LF$"N"ĺ16);"";CR$;CR$;<"5) LEFT 6$,D$,E$:4M(5)054a5X1M(5):A$(FO%(X)):B$(FA%(X)):C$(FB%(X)):WR%,FI$,A$,B$,C$:6A$(CN):C$(0)A$:WR%,FI$,A$,C$(0):CL%,FI$:WR%ĺ(4);"DELETE";FI$;",D";D1:3:4876:8"1) PRINTER SLOT# 2) CLOCK SLOT#";CR$;:8);"<";F8;X))::WR%,FI$,A$(0):X15:A$(X)(L(X))::WR%,FI$,A$(0):X15:A$(X)(N(X))::A$(BK){2WR%,FI$,A$(0),A$:P(5)052 3X1P(5):A$(PO%(X)):WR%,FI$,A$::X1P(5):A$(YC%(X)):B$(XC%(X)):C$(WD%(X)):D$(TY%(X)):E$(PA%(X)):WR%,FI$,A$,B$,CW%,PO%(X),PO%(X1):FL1'.X:FL1451/SL:i012:12:"":CR%,FI$,D1:CR%İ3:48Z1A$(F8):B$(LI):C$(F1):D$(CO):E$(CS):WR%,FI$,A$,CT$,LF$,F8$,B$,C$,D$,E$:X15:A$(X)(M(X))::A$(0)"5":WR%,FI$,A$(0):X15:A$(X)(P(AT":DXD1:3:P(5)048a*12:12:"":SL15:P(SL1)P(SL)P(SL1)1P(SL)47+FL0:XP(SL1)1P(SL)1:TY%(PO%(X))TY%(PO%(X1))įSW%,PO%(X),PO%(X1):FL1,X:FL143-FL0:XP(SL1)1P(SL)1:YC%(PO%(X))YC%(PO%(X1))įS#F$""38X$::"USE '";F$;"' ? (Y/N): ";:KE%,2,A$,1:KE%1(A$"Y"A$"N")36g%A$"Y"41&::"FORMAT NAME: ";:KE%,1,F$,25:KE%138'TR%,F$:SS%,".COF",F$:SS%1(F$)038(SS%0SS%(F$)3F$F$".COF")FI$F$:MS$"FORMB$,C$:FO%(X)(A$):FA%(X)(B$):FB%(X)(C$):uRE%,FI$,A$:CN(A$):RE%,FI$,C$(0):CL%,FI$:RE%5RE%0İ3:246:EF0: BN$"WRITE FORMAT":4!::"SAVE CURRENT FORMAT? (Y/N): ";:KE%,2,A$,1:KE%1(A$"Y"A$"N")33"A$"N"55 $(X))::RE%,FI$,A$(0),A$:X15:N(X)(A$(X))::BK(A$)H P(5)028 X1P(5):RE%,FI$,A$:PO%(X)(A$)::X1P(5):RE%,FI$,A$,B$,C$,D$,E$:YC%(X)(A$):XC%(X)(B$):WD%(X)(C$):TY%(X)(D$):PA%(X)(E$): M(5)030.X1M(5):RE%,FI$,A$,FI$F$@ 12:12:"":OP%,FI$,D1:OP%İ3:249 RE%,FI$,A$,CT$,LF$,F8$,B$,C$,D$,E$:F8(A$):LI(B$):F1(C$):CO(D$):CS(E$):RE%,FI$,A$(0):X15:M(X)(A$(X))::RE%,FI$,A$(0):X15:P(X)(A$(X))::RE%,FI$,A$(0):X15:L(X)(A:"SELECT (1-";Y;") OR FOR MORE: ";:KE%,3,A$,2:KE%2İ6:14b KE%1(A$)Y(A$)017 6:F$C$(CN(A$))".COF":X1CA%1:C$(CNX)"":: BN$"READ FORMAT":4:CF$F$:7:F$FI$İ6: EFOF$F$:F$CF$:32:F$OF$ F$FI$İ6: ".COF"C$(X)"":13F YY1:C$(CNY)(C$(X),1,(C$(X))4):C$(X)"" ::X0:Y0ė:15:10:(7);"":23:"PRESS 'RTN' WHEN READY:";:KE%,1,A$,1:::6:6: XX1:XYX1 " ";X;"-";C$(CNX):(CV)21XY14 5C 34,TP(LV):: F$""10g ::"USE '";F$;"' ? (Y/N): ";:KE%,2,A$,1:KE%1(A$"Y"A$"N")8u A$"Y"ı MS$"FORMAT":DXD1:3:CA%,C$(CN1),D1:CA%010 XCN2CNCA%1:C$(X)(C$(X),8):TR%,C$(X)::Y0:XCN2CNCA%1:(C$(X),4)OD3(4);"BLOAD AMPER FACTORY.OBJ0":33520:313<299:12:3:"LOAD ";::MS$;::" INTO DRIVE #";::DX::12:"THEN PRESS 'RTN'";ZT$:::(40(BN$))2:"* ";BN$;" *":X139:"-";::LVLV1:TP(LV)(37):34,TP(LV): LVLV1:                    IZING DISK>":(:D$;"INIT HELLO,D";D1@:(4)"DELETE HELLO"P:16368,0:Z1010,BACK 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:MTRE ========================== ========================== D$(4):D$"NOMON I,O,C":          ESS 'RTN'";:Z$:30258'R 12:H$(WC)" (COUNT)="X1:3018['\ 12:H$(DT)" (COUNT)="X2:3018e'2000(WC$(AB))):33806&: WT((S$(AB))(WC$(AB))):3380Z& WT((S$(AB))(WC$(AB))):3380~& WT((S$(AB))(WC$(AB))):3380&4 S$(AB)""S$(AB)"@"SUSUWT:WT$(BB(AB))((WT10N.5)(10N.5)):SNSN1&> 2760'H :(7):12:9:"-$- ERROR! PR:"REPORT DISK";::" THEN PRESS 'RTN'";:Z$Q% :12:11:">> LOADING MENU <<"f% D$"RUN MENU,D1"% WC$(AB)""S$(AB)"":WT(S$(AB)):F4F41:3380% ((WC$(AB),1))363400% Z3$"1"3130% Z3$"2"3230% Z3$"4"3330& WT((S$(AB)) 'NULL/S' FOUND IN FIELD # "W1j$ 240:Z5$"Y"ğ:22:4:"WRITING WEIGHTED ANSWERS TO FILE"::402:3025|$ Z5$"Y"Ģ23$ CV(37):37,(CV2):958:(7);::"R)ESTART, 'RTN' TO MENU ";:Z$:$ Z$"R"2000-% D11D22ė:(7):12:4:"LOAD ";:İ2950:2980:30181#h Z8$"5"İ2950:2970:3018P#r Z8$"6"İ2980:2970:3018u#| Z8$"7"İ2950:2980:2970:3018# :H$(C)" = ";SU:# :H$(C)" (COUNT)= "SN:# SN0SASUSN::H$(C)" (AVE.)= "SA:# :H$(C)" (AVE.)= 0":$ F40ĺ:F4" WEIGHTED,USING <"H$(W1)"> FIELD"f" Z2$"Y"Z3$"3"ĺ:"-MULTIPLY- WEIGHTED,USING <"H$(W1)"> FIELD"" Z2$"Y"Z3$"4"ĺ:"-DIVIDE-WEIGHTED,USING <"H$(W1)"> FIELD""@ Z8$"1"İ2950:3018"J Z8$"2"İ2980:3018"T Z8$"3"İ2970:3018#^ Z8$"4" W4$"Y"ĺ"'ENTRY' ENTERED: <"WO$">":i! Z$"Y"ĺ"DATES ENTERED: FROM: <"Y$">":16:"TO: <"X$">":! Z8$"3"Z$"N"W4$"Y"3410! Z8$"3"3420! Z2$"Y"Z3$"1"ĺ:"-SUM- WEIGHTED,USING <"H$(W1)"> FIELD"!" Z2$"Y"Z3$"2"ĺ:"-SUBRTACT- n Z$"Y"W4$"Y"ī26901 x 282:Z2$"Y"İ262G } X1RC:BB(X)X:w AD1X2:ABAD:S$(AB)""S$(AB)"00":2760 ((S$(AB),1))363400 Z2$"Y"3030 SUSU(S$(AB)):SNSN1 :3:P$"Y"İ230 SU(SU10N.5)(10N.5)(!),2)(S$(X),2)(S$(X),4,2)(X$,2)(X$,2)(X$,4,2)2620F2 2640u< W4$"Y"Z$"Y"X2X21:BB(X2)BB(X):2640F X2X21:BB(X2)XP Z X21ĺ:"NO > DATE < MATCHES FOUND":3020_ Z8$"3"ė:2762 d Z$"Y"W4$"Y"İ400:242:Z2$"Y"İ272X1)X; :X11ĺ"NO > WORD/NUMBER < MATCHES FOUND":3020W Z8$"3"Z$"N"ė:2762o Z$"N"X2X1:2650 W4$"Y"İ400:322:2570 400:292 X1X1:(S$(X),2)(S$(X),2)(S$(X),4,2)(Y$,2)(Y$,2)(Y$,4,2)2600 2640<( (S$(XL X2RC:26506V 350:X1RC:Z4$"1"W9$"N"2460Pt Z4$"2"W9$"Y"2480j~ Z4$"2"W9$"N"2500~ S$(X)WO$2520 2530 (S$(X),PA)WO$2520 2530 S$(X)WO$2520 2530 (S$(X),PA)WO$2520 2530 X1X11:BB((7);:370:2310 h "'TO' DATE (MM/DD/YY) ? ";:L8:HT27:V0:800:X$B$:X$""ĺ(7);:370:2330$ :380::"DATES IN WHAT FIELD # ? ";DT:DT1DTNCĺ(7):2340. :12:15::"< WORKING >"::::W4$"Y"2390B W4$"N"Z$"Y"X1RC:2560370:2240W:"ENTER 'ENTRY': ":LCL%(WC):V1:HT1:800:WO$B$:PA(WO$):PA0PA1]"USE DATE OPTION (Y/N) ? ";Z$:Z$"Y"Z$"N"ĺ(7);:370:2280:Z$"N"2350 "'FROM' DATE (MM/DD/YY) ? ";:L8:HT27:V0:800:Y$B$:Y$""ĺĺ(7);:370:2200$A1$"N"2280:11:"* COMPUTE ITEMS *"::9:"1- EQUAL TO 'ENTRY'":9:"2- NOT EQUAL TO 'ENTRY'":16:"WHICH: ";Z4$:Z4$"1"Z4$"2"ĺ(7);:370:2230 :380::"'ENTRY' FOUND IN WHAT FIELD # ?";WC:WC1WCNCĺ(7);:]Z5$"Y"ė:380::"STORE IN WHICH FIELD (1-"NC") ";:Z5%:Z5%1Z5%NCĺ(7);:370:2177e:"'ENTRY' SEARCH OPTION (Y/N) ? ";W4$:W4$"Y"W4$"N"ĺ(7);:370:2180:W4$"N"ĺ:2280"MATCH EXACTLY (Y/N) ? ";W9$:W9$"Y"W9$"N"jZ3$"3"W$"MULTIPLY"2kZ3$"4"W$"DIVIDE"p:380:::W$;::" FIELD ";::C;::" BY FIELD:";:"";W1:W11W1NCĺ(7);:370:2160|Z2$"N"2180~"STORE WEIGHTED RESULT IN A FIELD (Y/N)";Z5$:Z5$"Y"Z5$"N"ĺ(7);:370:2175"ĺ(7);:370:2120%RZ2$"N"2179\:8:10:"* WEIGHTED OPTIONS *"::14:"1- SUM":14:"2- SUBTRACT":14:"3- MULTIPLY":14:"4- DIVIDE":f16:"WHICH: ";Z3$:Z3$"1"Z3$"4"ĺ(7);:370:2150hZ3$"1"W$"SUM"iZ3$"2"W$"SUBTRACT"COUNT":11:"7- ALL"::16:"WHICH:";Z8$:Z8$""ĭ(Z8$)173027f (Z8$)1(Z8$)7ĺ(7)::2060x%Z8$"3"2179*:380::"COMPUTE WHICH FIELD # ";C:SU0:C1CNCĺ(7);:370:2090>H"USE WEIGHTED OPTION (Y/N) ";Z2$:Z2$"Y"Z2$"N2060<:"ON PRINTER (Y/N) ? ";P$:P$""ĭ(P$)173027]P$"Y"P$"N"ĺ(7):2020f370 12:"* MATH OPTIONS *"::11:"1- TOTAL":11:"2- AVERAGE":11:"3- COUNT":11:"4- TOTAL & AVERAGE"A11:"5- TOTAL & COUNT":11:"6- AVERAGE & B$)1):820pzI1ı1(8);"_";(8);;II1QI1I1:B$"":hB$(B$,(B$)1):nzQ1RCWT$(Q)""Q37896:F40Z3$"":Z5$"":WC0:SU0:SN0:SA0:X10:X20:W9$""::12)"> MATH ROUTINE <":390::P1$"N"I1L:"_";::CVV:HT$*I1L1,4A$C7E$(10)E$(92)Z8E$(11)E$(91)q9E$(12)E$(95)>A$(21)820HA$(8)İ890:820RA$(13)ĺA$;:\A$;:B$B$A$:ILĂ f(B$,1)(13)ĺ(7);:(8)" ";:(8);:B$(B$,(96:.F60:F70:I1X2:D50:BB(I)D3D51MD5F6ĺOF$LL",D"D1:F61`D5F70:410pD5F6F60F6F7ĺOF$LL",D1":F71S$(I)""B1CL(Z5%1):D$"WRITE"N$",R"BB(I)",B"B1:WT$(BB(I)):CL$: B$""::CV(37):HT:CVV::RF$I",B"B1:783:S$(I)(TE$,1)::CL$:216,0:m216,0:(7)::12:"DISK ERROR-RECORD ";::I;::" MAY BE BAD":"PRESS 'RTN'";:Z$:3027rCV(37):37,(CV1):958:|X1NC:4)X;"- ("CL%(X)") ";:14:H$(X)::X140:"-";::378F60#IF6F7ĺOF$LL",D1":F71`JB1CL(DT1):RF$BB(I)",B"B1:783:S$(I)(TE$,1)::CL$:j^365`F60:F70:I1RC:D50:ID3D51bD5F6ĺOF$LL",D"D1:F61dD5F70:360fD5F6F60gF6F7ĺOF$LL",D1":F710hB1CL(WC1)&D5F6ĺOF$LL",D"D1:F612(D5F70:310B*D5F6F60`+F6F7ĺOF$LL",D1":F716B1CL(DT1):RF$I",B"B1:783:S$(I)(TE$,1)::CL$:BF60:F70:I1X1:D50:BB(I)D3D51DD5F6ĺOF$LL",D"D1:F61FD5F70:330HD5F6CL(W11):RF$BB(I)",B"B1:WC$(I)::CL$:OF60:F70:I1X2:D50:ID3D51nD5F6ĺOF$LL",D"D1:F61D5F70:290 D5F6F60!F6F7ĺOF$LL",D1":F71"B1CL(C1):RF$I",B"B1:S$(I)::CL$:$F60:F70:I1X1:D50:ID3D51 D5F70:270# D5F6F60A F6F7ĺOF$LL",D1":F71n B1CL(W11):RF$I",B"B1:WC$(I)::CL$: F60:F70:I1X2:D50:BB(I)D3D51 D5F6ĺOF$LL",D"D1:F61 D5F70:280 D5F6F60 F6F7ĺOF$LL",D1":F71)B1:, F60:F70:I1X2:D50:BB(I)D3D51K D5F6ĺOF$LL",D"D1:F61^ D5F70:250n D5F6F60 F6F7ĺOF$LL",D1":F71 B1CL(C1):RF$BB(I)",B"B1:S$(I)::CL$: F60:F70:I1X2:D50:ID3D51 D5F6ĺOF$LL",D"D1:F61,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 (7);:2000 :12:6::"- PRESS 'RTN'";::Z$:150 D$"PR#"F8:CT$""ĺCT$  D$"PR#"MO::D$"READ"N$".V,R1":D2,D3:CL$i LL(CL(NC)NC):BB(RC),A$(NC),S$(RC),H$(NC),CL%(NC),WC$(RC),WT$(RC)s 225 D12D22ė:(7):11:"LOAD ";::"DATA DISKETTE VOL# 2";::" INTO DRIVE# 1":"AND PRESS 'RTN'";:Z$::D$"OPEN"N$",D1":CL$ 216868):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,D"D1",L498":D$"READ"N$".V,R0":NC,RC,RR:CL(NC):X1NC:CL(X)f> TE$"":216,0::D$(4):D$"NOMON I,O,C":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$:PCOPYRIGHT 1981 BY W.L.PASSAUER! dD1(864):P$((865)):P1$((866)):S$((867)):I(           URN";:A$:A$:DMS$"PROGRAM DISK":DX1:110:(4);"RUN MENU,D1" 1030(37)1%A1300:/10307:b12:" ALL CORRECT Y)ES OR N)O ";DM$:DM$"Y"ĉ::12:10)"":DM$"N"WL(0)0:10002000 ::12:" NO RECORDS TO PROCESS IN LIST!":" PRESS RET(DM$)"B(DM$,X,1)"-"FLGX:(LJVFLGB((DM$,((DM$)FLG)))~`(BA)WL(0)1MXĺ12)"RANGE EXCEEDED!":1170jBRCARCĺ12)"MAXIMUM EXCEEDED!":1170tB(A)āXAB:WL(0)WL(0)1:WL(WL(0))X::1030~WL(0)WL(0)1:WL(WL(0))AR AS ->1-10 (RANGE) OR <0> WHEN FINISHED"F34,6R20::WL(0)1MXČ958:10:WL(0)1" ";:"->";DM$:10502000A0:B0:(DM$)1WL(0)1ĺ:1170$(DM$)0ĺ:1170)(DM$)02000.A(DM$):FLG08X1ISK":DX1:1102w::15:15:""I|(4);"RUN RPG,D1"Om SELECTED RECORD NUMBERSs{A8::A)"SELECT RECORD NUMBERS":A)" FOR ";RC;" RECORDS."A5<A5::A)"ENTER AS ->1 (SINGLE) O5:"2) MICRO LAB CUSTOM"7 E:5:"3) RETURN TO MENU"d J:"SELECT: ";A$:(A$)340,370,335:310{ O(4)"RUN MENU,D1" TD11MS$"PROGRAM DISK":DX1:110 ^867,13 c::15:15:"" h(4);"RUN L,D1"rD11MS$"PROGRAM D.S":X0WL(0):WL(X)::(4);"CLOSE"k 6::6:"=== A MICRO LAB DATABASE ===":5:10:"OUTPUT PROCESSOR"v 737759 8D11MS$"DATA DISK":DX1:110 ;(4);"OPEN "N$".S,D"D1:(4);"READ "N$".S":C:(4)"CLOSE":C13000 @10:5:"1) STANDARD":X1WL(0), MA%,WL(X),I(1):MA%0MA%0D MA%::(4)"CLOSE"M 310u MS$"DATA DISK VOLUME 1":DXD1:110 "(4);"OPEN "N$".V,D"D1:(4);"READ "N$".V":NC,RC:(4);"CLOSE" 'WL(RC):MXRC:1000% ,(4);"OPEN "N$".S,D"D1:(4);"WRITE "N$"UME 1":DXD1:110V (4);"OPEN "N$".V,D"D1:(4);"READ "N$".V":NC,RC:(4);"CLOSE"n WL(RC):MXRC:1000y I(RC) (4);"OPEN"N$".I,D"D1:(4);"READ"N$".I":X1RC:I(X)::(4)"CLOSE" (4);"OPEN "N$".S,D"D1:(4);"WRITE "N$".S":WL(0) 310L :6:"=== A MICRO LAB DATABASE ===":5:10:"--- LIST OPTIONS ---"U A13 10:A:"1) AS ENTERED":A:"2) AS SORTED":A:"3) LAST FILTER": A:"SELECT: ";A$:A$""ĭ(A$)1763000 A(A$):A180,280,310:140 MS$"DATA DISK VOLE "Z(4)"BLOAD MATCH,D1":37255+d120n:12:3:"LOAD ";::MS$;::" INTO DRIVE #";::DX::12:"THEN PRESS 'RTN'";ZT$::xD1(864):P$((895)):P1$((866)):S$((867)):I(868):X869868I:N$N$((X)):} (895)165Ĺ895,0:  MBC:M:P$"Y"493WM13:10:"PRINTING DATA":8:"PRESS (CTRL-Q) TO ABORT"]MMMI1CO:"-";:MI:470:470:M370M:10:14:"LOADING DATA":8:"PRESS (CTRL-Q) TO ABORT":F70:RS1RC:KB17502MVS1:MI%(RS)D3VS2NRWD:F1);:485:470:BA:470:470:484oQQT:FG0:H2H1:298\>p:"PRESS (C) TO CONTINUE";:Z$:Z$:Z$"C"276g>q:336>r(13)CL$:Q(222):Q1(218)(219)256:"ERROR CODE "Q:"OCCURED IN LINE "Q1:Q5372>s"DATA RECORD #"MI%(RS):"IS BAD!">tD12374?u"W)(ZQA))İ399"=hWWNP0:1714=i423:Q1:329a=jLF$"N":F6$"P":CT$"":F80:TF$"N":236=k:"PRESS (C) TO CONTINUE";:Z$:Z$:Z$"C"276=lQTQ::Q1:406:470:494:QQT::252=m:"PRESS (C) TO CONTINUE";:Z$:Z$:Z$"C"276>nQTQ:0:171<_423:Q1:329'<`TRFR355[423:Q1:2828?TRFR3229@0:0:1002:455:KB0:457:KB1767,(CPQ)30317-(CPQ)H11ĺF1);:296K7.H2CPQ1:F1);:296`7/F1);:H21:41870RSRS1:NONO1:LO0:P$"Y"30771LNLI30772LNLNLI:LO1:PGPG1:30573LA((LILN)1)F3:LBWD((WD1)(F21))1:H2H1:Q1:WW31184RSTR2896(CPQ)H11283,6 H2CPQ1:284:6!H21:406H6"470:494T6#FG367b6$Q1:H2H16%((Q$(RS,Q)"@")(DP$"Y"))2956&RSRS1:3076'4126(418:P$"Y"2986)(37)203656*QCP3047+KB(16384):16368,0:KB17İ394:2ST0:TRTE:KB0:457:KB17İ18:394:2766518:241F50:0:1002c5CPCP1:LILIF3:23:64}5((WW)(ZQA))İ3995WWNP0:1715423:2425RS1:Q15A$"Y"2915H2H1:NP2915406:WR$"Y"2905QCP2906(CPQ)ĭ((WW)(ZQA))266'4WWNP1:17104 246F4 394:Z$"C"277X4 WWNP0:171j4 423:Q1:242y4 TRFR27240:0:1002:455:KB0:457:KB17İ18:394:2764RS1:Q1:0:0:18:2614472:428:Z$"Y"2774STİ491:18:241)5Q1:LO0:P$"Y"256%3LNLI256D3LO1:LNLNLI:PGPG1:254b3LA((LILN)1)F3:WW259t3RSTRST2693P$"Y"2463F6$"P"2783LO2633LB(CPH1)1:LBLB((LB1)(F21))1:WW2633RS(FR1)(JN)LBLBWD64LB(LA)2452406:470:494$2Q1:H2H1I2((Q$(RS,Q)"@")(DP$"Y"))248Z2RSRS1:2562412:418:KB(16384):16368,0:KB17İ394:2762QCP2532F1);:Q$(RS,Q);:470:390:P$"Y"2522(37)203632QQ1:2493RSRS1:NONO1:457:KB17277=1Q1:RS1:LN1:NO1:PG1:P$"Y"ė:362h10:0:18:NL(N$):RL(DA$):RL0235z1TTCONL:2361TTCO(RLNL1)1WW1691NP23914231W3$"H"3291F7$"Y"2811RS11A$"Y"2452H2H1:Q1:NPė:7:10:CO228@0"ENTER MAXIMUM SCREEN WIDTH":CO:CO0228q0:4:10:"BAD SELECTION, TRY AGAIN":4:2260H3H1:FH0:375:H1H323108:"PRESS (A) TO ABORT LISTING";:6:"OR ANY OTHER KEY TO CONTINUE";:Z$:Z$:Z$"A"2770H1H3:KB01ED "H1" FIELDS BEFORE":"CARRIAGE RETURN, BUT ONLY SELECTED "CP" FIELDS":"TO BE LISTED!":CP0:211u/452:WW224/:13:10:"PRINTING DATA":8:"PRESS (CTRL-Q) TO ABORT":233/FG0::6:10:"DELETED RECORDS PRINTED(Y/N)";:DP$:P$"Y"2280ALL/<0>=FINISHED"::22::CP1G."PRINT WHICH FIELD #";Q$:Q$""218W.Q$"0"219.Q(Q$):Q1QNCĺ"BAD SELECTION,TRY AGAIN":213.PC(CP)Q:CPCP1:CPNC5213.220.CP1NC:PC(CP)CP:CP.CPCP1.CPH1222c/"YOU SELECTATH FORMATTING(Y/N)";:F7$:Y-"PRINT LINE NUMBERS(Y/N)";:WN$::WN$"Y"W2$"N":208-"PRINT RECORD NUMBERS(Y/N)";:W2$:-P$"Y"F10:F21:LF$"N"-WN$"Y"W2$"Y"211-F1F1F2-CP222.21::22::"FIELD SELECTION- =RIZONTALLY":"BEFORE CARRIAGE RETURN";:H1::H11H1NC203w,"BAD SELECTION, TRY AGAIN":"TOTAL FIELDS =";NC:201,A$"Y"İ505:205,"WOULD YOU LIKE THE":"WRAPAROUND OPTION(Y/N)";:WR$::WR$"Y"F7$"N":206-"WOULD YOU LIKE":"UNDERNE:216,0:"PRINT FIELD NAMES(Y/N)";:A$::A$"Y"P$"Y"F5$"N":F3$"N":199u+"PRINT FILE TITLE(Y/N)";:F5$:+"PRINT RECORDS HORIZONTALLY":"OR VERTICALLY(H/V)";:W3$::W3$"H"H11:F7$"N":WR$"N":206+21=,"PRINT HOW MANY FIELDS HOQ$):Q1QI193*:QI197*D$"OPEN"R$(Q)"-F,D"D1:D$"READ"R$(Q)"-F":CO,F1,LI,F2,F1$,F3,F6$,F8$,F3$,A$,F5$,W3$,W2$,H1,WR$,F7$,CP,WN$,N,TF$,V$:LILIF3:CPCP1:X1CP:PC(X):X::CL$:MS$"DATA DISKETTE":45:(A$"Y")(W3$"H")İ505*209P+PRESS ANY KEY";:Q$:Q$C)MS$"FORMAT DISKETTE":45:P$"Y"CO0L)47)D$"OPEN "N$".F,D"D1:D$"READ "N$".F":NR:J1NR:R$(J):J:CL$*:12:2:"FORMAT SELECT:"::I1NR:I" "R$(I):I::I" CREATE A NEW FORMAT"::"SELECT OPTION";:Q$:Q(:216,0::64(CP0:WW0:JN0:LILIF3:KB0:Z0:QA0::D$"OPEN "N$".S,D"D1:D$"READ "N$".S":FR:X1FR:SI%(X):X:CL$:F((RC)):P1$"Y"190(:14:3:"DO YOU WANT OUTPUT TO PRINTER(Y/N)";:P$:P$"Y"190)(7)::5:14:"TURN ON PRINTER, >"::D$"OPEN"N$".F":D$"WRITE"N$".F":NR11ĺD$"DELETE"N$".F":184c'NR1:J1NR:JZĺR$(J)n':CL$'D$"DELETE"N3$"-F":NR10ė:216,0:177'216,0:FP31 ((7)::12:7:"NO PRINT FORMATS AVAILABLE":10:"PRESS 'RTN' TO MENU. ";:Z$9:"-- FORMATS AVAILABLE --"::I1NR:I" "R$(I):::I" EXIT ROUTINE":&"DELETE WHICH: (1-"I") ";:Z1$:Z(Z1$):Z1ZIĺ(7);:20:178&(ZI)(FP)31&:ZIĹ216,0::MS$"DATA DISKETTE":45:64D'N3$R$(Z)::12:10:"< DELETING FORMAT ,0:KB17171%Q1:RS1:2378%QA:KB17İ394:276N%428:Z$"Y"277\%NP0:223%:12:"* DELETE A FORMAT *":22:34,2:185%FP177%MS$"FORMAT DISKETTE":45J&:D$"OPEN"N$".F,D"D1:D$"READ"N$".F":NR:J1NR:R$(J)::CL$:::BLANK":7:"RECORDS ON YOUR WORKSHEET";:Z:Z0168[$8:"BAD SELECTION, TRY AGAIN":166y$WW1:P$"Y":LILIF3:190 %TR1:TE1:FR1:RS1:Q1CP:Q$(TR,Q)"":QA1CL%(PC(Q)):Q$(TR,Q)Q$(TR,Q)(95):QA:Q:MI%(SI%(1))0:QA1Z:KB(16384):16368";TF$:TF$"Y"TF$"N"ĺ(7);:161-#124#: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$:CL$:866,("Y"):P1$"Y":S$"13"12#64#:PG1:NO1:LN1:KB0:103$9:"ENTER NUMBER OF (7);:151"124E"12:5:"";F6$:F6$"R"F6$"P"ĺ(7);:153N"124w"17:5:"";F8:F81F87ĺ(7);:155"124"18:5:"";MO:MO7ĺ(7);:157"D$"IN#"MO:D$"PR#"MO:124"19:5:"";N:N1N8ĺ(7);:159"124$#20:5:"F1$"S"ĺ(7);:142!124B!11:5:"";F3:F32ĺ(7);:144K!124|!13:5:"";F8$:F8$"S"F8$"C"ĺ(7):146!124!14:5:"";CT$:124!16:5:"";F3$:F3$"Y"F3$"N"ĺ(7);:149!124 "15:5:"";LF$:LF$"Y"LF$"N"ĺ6,148,151,149,155,157,159,161H 6:5:"";CO:CO40CO600ĺ(7);:134Q 124 7:5:"";F1:F1F11:F11F135ĺ(7);:136 124 8:5:"";LI:LI7ĺ(7);:138 124 9:5:"";F2:F21ĺ(7);:140 124!10:5:"";F1$:F1$"F" JUSTIFIED FIELDS (Y/N)"m:16)"WHICH: ";:F4$:F4$"9"Ģ22:3::"ENTER CHARACTERS IN QUOTES ('' '')":33,10:F4$""ĭ(F4$)17ĉ:64F4$"0"ĉ:163(F4$)0(F4$)16133(7):20:124 (F4$)134,136,138,140,142,144,153,14;:11:"LINE FEED REQUIRED (Y/N)":"11-("F3$")";:11:"PRINT PAGE NUMBER (Y/N)"12-("F8")";:11:"PRINTER SLOT NUMBER (1-7)":"13-("MO")";:11:"USE MODEM=(SLOT#1-7)/NOT=0":"14-("N")";:11:"RT.JUSTIFY NO.FLD. (1-8)PLACES";:"15-("TF$")";:11:"TOTAL")";:11:"FORM OR SHEET FEED (F/S)":"6- ("F3")";:11:"LINE FEEDS ON FORM FEED (>1)":"7- ("F6$")";:11:"FORM FEED ON P)AGE/R)ECORD"N~"8- ("F8$")";:11:"S)TOP ON FORM END OR C)ONTINUE";:"9- ("CT$")";:11:"PRINTER CONTROL CHARACTERS":"10-("LF$")"LUES *":22:8::"ENTER <0> WHEN COMPLETED"::22::"1- ("CO")";:11:"HORIZ. PRINTER SPACES (>39)":"2- ("F11")";:11:"LEFT MARGIN INDENT (<35)":"3- ("LI")";:11:"LINES PER PAGE (>6)"}"4- ("F2")";:11:"LINE FEEDS ON CARRIAGE RETURN":"5- ("F1$u:NO;::NO05v470:CP0:RSRS1:FI0:RSRC90Iw0:0:1002:85hx0:0:1002::P$"Y"122qy:9z7:"PRESS (A) FOR ANOTHER COPY":12:"OR ANY OTHER KEY":11:"TO RETURN TO MENU";:Z$:Z$"A"64{IC1:84|::11:"* DEFAULT VACPCP((MI%(RT)))1:CPCO108/h470:CP0=iZ1108IjFI109RkFI1hl:MI%(RT);" ";:vmQ$(RT)""nRTRT1:RTRC116oQ$(RT)"@"115pQ$(RT)""110qQ$(RT)QT$110rQ$(RT)"":100sQ$(RT)"":110tZ3118RS)""\Q$(RS)""956]RSRS1:RTRS:RSRC119>^91Y_QT$Q$(RT):P$"Y"97k`0:0:18:98aF10:CO40:F21:LF$"N"bF1);:CPCPF1:Q$(RT)""100cQ$(RT);:470:CP0:F1);:CPCPF1dZ1105eZ2103fNONO1:109!g5:RS1:KB1790 UICIT1200VP$"Y"88cW:9:7:"INDEX ";IC;" OF ";IT;" IS FINISHED"X6:"PRESS (N) TO GO TO NEXT INDEX"::10:"PRESS ANY OTHER KEY":11:"TO RETURN TO MENU";:Z$:Z$"N"64YICIC1:84ZRTRS[Q$(RS)"@"Q$(8:"BAD SELECTION, TRY AGAIN":ZA1500:ZA:77COCL%(Z)TB81uP"FIELD TOO LONG TO INDEX!":ZA1500:ZA:77QC(IC)Z:ICIC1:IC1070RIT10S:3:10:"DO YOU WANT OUTPUT TO PRINTER(Y/N)";:P$:Q$(RC):IC1TQC(IC):ZA(IC):KB0:492- ALL":16:"3- NUMBER OF"::13:"WHICH (1-3): ";Z$:Z$(17)64ZJZ$"0"ITIC1:83K(Z$"1")(Z$"2")(Z$"3")70LA(IC)(Z$)M:"THE LONGEST FIELD YOU MAY INDEX IS ";TB:21::"INDEX WHICH FIELD #: ";:Z:(ZNC)(Z0)790N:10:UR FILE!":ZA1500:ZA:64<FFG0:ZA1NC:CL%(ZA)TB72EGFG1UHZA:FG69BI:13:"* INDEX FIELD *":22:10:"INDEX ";::IC;::" OF 10 ALLOWED":22::10:"ENTER <0> IF FINISHED"::22:9:11:"* LIST OCCURENCES *"::16:"1- FIRST":16:" PRESS 'RTN'":X$:A67TB::15:15:""::(4);"RUN MENU,D1"C:" WRONG DISK IN DRIVE 1":"PRESS 'RTN'";:X$::DIC1:NO0:CP0:FI0:TB((0)RC):TBTB3:TB070E"SORRY, THE APPLE MEMORY":"IS TOO SMALL TO INDEX":"YOE$;::E$;:B$B$E$:ILĂ_;(B$,1)(13)ĺ(7);:(8)" ";:(8);:B$(B$,(B$)1):51e<q=I1ı>(8);"_";(8);:II1:I1I1:B$"":?B$(B$,(B$)1):@:D11Ģ12:4:"LOAD ";::"REPORT DISK";::" DISK IN DRIVE 1":" ANDTRY AGAIN":36+11013:216,0:CL$::124f2B$""::I1L:"_";::((37)2(L39.9)):1:I1L13E$:E$(10)E$(92)4E$(11)E$(91)5E$(12)E$(95)6CL1E$(17)B$E$:7E$(21)518E$(8)İ61:519E$(13)ĺ"DATA DISKETTE":45:q-:12:3:"LOAD ";::MS$;::" INTO DRIVE #";::D1::12:"THEN PRESS 'RTN'";ZT$::.I10131022:PP:I,PP:::104,168,104,166,223,154,72,152,72,96/1013:MS$"DATA DISKETTE":45:19701013:(7):"BAD FORMAT NAME-(NN)"-F":CO:F1:LI:F2:F1$:F3:F6$:F8$:F3$:A$:F5$:W3$:W2$:H1:WR$:F7$:CP:WN$:N:TF$:V$:X1CP1:PC(X)::CL$:216,0:NR43)J1NR:R$(NR1)R$(J)44*+D$"OPEN"N$".F":D$"WRITE"N$".F":NR1:J1NR1:R$(J):::CL$,MS$DE1500:DE:24!35("216,0:NR01#487$%"ENTER NAME FOR FORMAT (28) ":L28:50:R$(NR1)B$:R$(NR1)""ĺ(7);:20:37&P$"Y"R$(NR1)R$(NR1)".P":40'R$(NR1)R$(NR1)".M"(NNNR1::D$"OPEN"R$(NN)"-F,D"D1:D$"WRITE"R$THER KEY TO RETURN TO MENU";:Z$:FP1:Z$"D"174AZ$"S"64N45:34W436:(7);:11:"SAVE THIS FORMAT TO DISK (Y/N) ";Z2$:Z2$"Y"Z2$"N"ĺ(7);:20:28B1:Z2$"N"64MS$"FORMAT DISKETTE":45NR1NR0 NR10āCV(37):37,(CV1):958:M X1NC:4)X;"- ("CL%(X)") ";:14:H$(X)::c X140:"-";::k 281:3:9:"ONLY (10) FORMATS ALLOWED PER DISK":3:"PRESS (D) TO DELETE ANOTHER FORMAT":3:"PRESS (S) TO STORE ON ANOTHER DISK":1:"PRESS ANY OEN"N$",L"LL:X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:783:H$(X)(TE$,1)::CL$:X1NC:CL%(X)CL(X)CL(X1)1::(7);:S$"13"187 S$"20"68 S$"23"165 :12:6::"- PRESS 'RTN'";::Z$:13 F8:CT$""ĺCT$;  PC(NC5),H$(NC),CL%(NC),MI%(RC),SI%(RC):17 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$".I,D"D1:D$"READ "N$".I":X1RC:MI%(X)::CL$:D$"OP ";::"DATA DISK";::"THEN PRESS 'RTN'";:Z$:Z$F 2:S$"21"124W S$"22"174- ::15:15:""::D$"OPEN"N$".V,D"D1",L498":D$"READ"N$".V,R0":NC,RC,RR:CL(NC10):X1NC:CL(X)::D$"READ"N$".V,R1":D2,D3:CL$:LL(CL(NC)NC):F8,MO,CT$,N,TF$,LF$:CL$:216,0:5 216,0:1013:52 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":GA37896:FP0:WW0:NP0:D11ė:(7):12:4:"LOADGETE$"":216,0::255:D$(4):D$"NOMON C,I,O":46:37902,255:9M8P1$"Y"ĺD$"OPEN DATE,D"D1:D$"READ DATE":783:DA$(TE$,1):CL$216,049P1$"Y"ı! D$"OPEN"N$".P,D"D1:D$"READ"N$".P":CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,                         ERIC";.TC3ĺ"DATE";4.TC4ĺ"PARTIAL ALPHA"S.TC5ĺ"SUB-STRING ALPHA";d.227:EOFĂ.FFMAX::227:"FIELDS:";:227:F1NC:F") ";F$(F);:227::0:0:1002::1:34,2:.(13);:LFĺ(10);.:LF0:(LF$,1)"Y"LF1-CP$"THANK":CQ$"YOU":27:32:0:PS:EOF0:"DATABASE:"M$;:227:"FILTER NAME:";FILTER$(0,0);:227:227:F1FMAX:84:OP(FILTER$(F,0)):TC(FILTER$(F,3)):OP7OP9TCOP6-"TYPE:";:TC1ĺ"ALPHA FULL";.TC2ĺ"NUM$:DO$;M$;",L";LL;",D1":6,DO$;M$;",L";LL;",D"D1:B,PS219,CP$"PRINTER SLOT #":27:18:P$:PS(P$):PS0PS7217-CP$"INPUT CONTROL STRING FOR PRINTER":27::18:CNTRL$:CP$"LINE FEED ON CARRIAGE RETURN":CQ$"Y)ES OR N)O":27::18:LF$!+Y03:FILTER$(X,Y):Y:2062+"50":DC$:+FIX:216,0:CQ$"PLEASE CORRECT DRIVE PROBLEM":CP$"UNABLE TO SAVE FILTER":27:29:198+FLDNCF$"":+RNUM1İ215+RNUMD31İ214+DR$;M$",R"RNUM",B"CL(FLD):783:F$(A$,1):,DC15:6:"S)AVE FILTER AS:";::FILTER$(0,0):::6:"R)ENAME FILTER"::6:" SELECT:";:"";A$:A$"R"İ72:201x*209*A$"S"205*201*DO$;FILTER$(0,0);".FLTR,D"D1:DW$;FILTER$(0,0);".FLTR":FILTER$(0,0):X0+XX1:FILTER$(X,0)"50"208197*)20:QW15;" ";:(F$(QW15),E)H):21:"";:DM$:::a)(FILTER$(0,0))200)CP$"NO FILTER CURRENTLY IN MEMORY":CQ$"UNABLE TO COMPLY":27:(7):29:)CP$"PLEASE VERIFY THAT DISK":CQ$"IS IN DRIVE #2":27:29n*:)RESULT1(r(ARG(1)(ARG$(1)):ARG(2)(ARG$(2)):ARG(3)(ARG$(3)):ARG(1)ARG(2)ARG(1)ARG(3)RESULT1x((DC%,ARG$(1):DC%,ARG$(2):DC%,ARG$(3):189(E16::Q1NC30:W014:QWNCĺ:197)QW;" ";:(F$(QW),E);:QW15NCĺ:'ARG(1)ARG(2)RESULT1!'D'DC%,ARG$(1):DC%,ARG$(2):156k'ARG$(1)(ARG$(1),(ARG$(2))):156'SS%,ARG$(2),ARG$(1):SS%RESULT1'OP1ı'RESULT1RESULT0:'RESULT1:'OP189,191,193 (ARG$(1)ARG$(2)ARG$(1)ARG$(3RESULT1&R&ARG(1)(ARG$(1)):ARG(2)(ARG$(2)):OP170,172,174,176,178,180n&ARG(1)ARG(2)RESULT1t&&ARG(1)ARG(2)RESULT1&&ARG(1)ARG(2)RESULT1&&ARG(1)ARG(2)RESULT1&&ARG(1)ARG(2)RESULT1&169,182,183,184,1883%OP157,159,161,163,165,167Q%ARG$(1)ARG$(2)RESULT1W%u%ARG$(1)ARG$(2)RESULT1{%%ARG$(1)ARG$(2)RESULT1%%ARG$(1)ARG$(2)RESULT1%%ARG$(1)ARG$(2)RESULT1%&ARG$(1)ARG$(2)M));::1002:RNUM::34,3:1:DC$:$RESULT0:OP((FILTER$(X1,0))):TC(FILTER$(X1,3)):FLD(FILTER$(X1,1)):210:ARG$(1)F$:ARG$(2)FILTER$(X1,2):OP10OPOP10:FLD(ARG$(2)):210:ARG$(2)F$$OP6OPOP6:TC6:ARG$(3)FILTER$(X1,3)%TC156,X1,0)):X950152 #X940143.#X11148H#X90RI%(RNUM)0152b#X90RI%(RNUM)1143#153:X11RI%(RNUM)RESULT:143#X90RI%(RNUM)RI%(RNUM)RESULT:143#X90RI%(RNUM)RI%(RNUM)RESULT:143#143$$0:0:18::Q$(RI%(RNUKE SURE DATA DISK IS IN DRIVE"(D1):27:29:(FILTER$(0,0))199":Q$(0)"[FAIL]":Q$(1)"[PASS]":5:"REC # RESULT":"-----------------------":34,6:33,23:RNUM1RC:0:0:"REC #";RNUM;:10:"------";:1002:X10#X1X11:X9(FILTER$(:FILTER$(0,1):X0A!XX1:FILTER$(X,0):FILTER$(X,0)"50"139n!Y13:783:FILTER$(X,Y)(A$,1):Y:137!DC$:216,0:!FIX:216,0:DC$:CP$"UNABLE TO READ FILTER FILE":CQ$"PLEASE CORRECT PROBLEM":27:29:FILTER$(0,0)"":B"CP$"PLEASE MA133 51:61:99:76% EP0:128r CP$"ILLEGAL FILTER LEVEL NUMBER":CQ$"UNABLE TO COMPLY":27:(7):29: CP$"PLEASE VERIFY THAT DISK":CQ$"IS IN DRIVE #2":27:29::72:140!DO$;FILTER$(0,0)".FLTR,D"D1:DR$;FILTER$(0,0)".FLTR"HTVTVT1.}:CNTINFO$(INFO$,CNT):127;~INFO$""D117^(FILTER$(0,0))199RT1:47::" WHICH LEVEL TO EDIT ";A$:A(A$):(A)ıX1A:FILTER$(X,0)"50"XA::134 :X1A:EP1:S10:S20:S30:38:S10FILTER$(X1,0)"40":$:HT:VT:G$;?sHTHT1:CNTCNT1:Z4124140:HTZVTVT1EtTuCNTSLızvHT:VT:G$:(CNT)G$(13)G13wG$(13)ıxG$(8)ī123yG$" "118zINFO$INFO$G$:HT:VT:G$;:115{CNTCNTCNT1:HTHT1 |Z4024020:ZFO$:Bl27:SL3:VT13:HT18:110:NUM(INFO$):NUM1NUMNC108SmX1100::wn113:GĢV:H:958::INFO$:oG6İ194:HTH:27:110pqINFO$"":CNT0:HT:VT:958:HHT:VVT:I1SL:"_";::HT:VT:G$:G(G$):G32ırG0:INFO$G CONSTANT".gCQ$"ALPHA":S32CQ$"NUMERIC"HhS33CQ$"DATE":SL8ki27:VT15:HT1:110:RTRT0:jARG$(2)INFO$:X1200::kCP$"MINIMUM CONSTANT":RT1:SLCL(NUM1)CL(NUM)1:103:ARG$(2)INFO$:CP$"MAXIMUM CONSTANT":RT1:103:ARG$(3)INX7A$"'"FILTER$(F,2)"'":98PaA$"'"FILTER$(F,2)"'&'"FILTER$(F,3)"'"ZbA$:cCP$"PRIMARY FIELD #":108:ARG$(1)(NUM):S27107dS28102eCP$"SECONDARY FIELD #":108:ARG$(2)(NUM): fSLCL(NUM1)CL(NUM)1:CP$"ENTER COMPARE40A$"NOP"XX50A$"END"1YF1A$"IF "UZ:A$;::" ";:X(X):X40ĺ:{[X50ĺ"----------------":EOF1:\"FLD #";FILTER$(F,1);" ";:X7ĺFC$(X);]X10ĺFC$(X10);^X7X9ĺ" >< ";_X10A$"FLD #"FILTER$(F,2):98!`ARG$(2):FILTER$(X1,3)(S3):S27S29FILTER$(X1,3)ARG$(3)JOEP81cPFILTER$(X11,0)"50"oQS11ıRS12FILTER$(X1,0)(S2)ST35,20:85:35,23:UF;:F10ĺ" ";V" ";:EOF0:X(FILTER$(F,0)):A$"AND":X0A$"OR " WX$)173bJN$"CAT"Ĺ40254,109:40255,165:(4)"CATALOG"::::::40254,255:40255,197:29:72KN$(N$,15):12:15::N$::X11000::FILTER$(0,0)N$:LS27S2S23MS27S2S36?NFILTER$(X1,0)(S2):FILTER$(X1,1)ARG$(1):FILTER$(X1,2)LECTION:";:"";A$:(A$)ĭ(A$)6İ194:61CFA(A$):A1ATM61pGS3A:10S3:SP);::S3;::X1100::H:8:10)" CAT=CATALOG":10:3)"ENTER FILTER NAME (UP TO 15 CHARS)":12:7)"NAME:"I12:15:X115:(95);:::12:15:"";N$:(NS11Ğ:"AND";:&@S12Ğ:"OR";:;AX11Ğ:"IF";:B:::" SELECT COMPARISON TYPE:":::SP)"1) ALPHA FULL":SP)"2) NUMERIC":SP)"3) DATE":TM369CSP)"4) ALPHA PARTIAL":TM469DSP)"5) ALPHA SUB-STRING"*E:SP)" SE$::" SELECT:";:"";A$:A(A$):(A$)ĭ(A$)6İ194:51N:A1A1352t;S2A:8S2:" ";:S210ĺ" ";<:S2;::X1100::=:SP11:TM4:S21S26S28S213TM5>S26S210TM3?5:"COMPARISON LEVEL=";X1;" TYPE:";:5S12Ğ:"OR";:(6X11Ğ:"IF";:7::" SELECT COMPARISON OPERATOR:"::F$" FIELD ":C$" CONSTANT":X1C:" ";:X10ĺ" ";8X;") ";F$;FC$(X);C$::X15:" ";:X710ĺ" ";=9X7") ";F$;FC$(X);F$::" "X7") ";F$;FC$(6);F38+A$"4"İ47:38.,A(A$):A0A338K-S1A:S13EOF1:X1X11Q./:::"FILTER NAME:";::FILTER$(0,0):F00FF1:84:EOF481EOF0:RTRT0:229:345:"COMPARISON LEVEL=";X1;" TYPE:";:S11Ğ:"AND";:ON LEVEL=";X1:9:SP11:SP)"SELECT COMPARISON:"::SP)"0) NOP FUNCTION":SP)"1) AND FUNCTION":SP)"2) OR FUNCTION"::EP41(SP)"3) END OF FILTER":SP)"4) REVIEW FILTER":)SP)"SELECTION: ";:"";A$:(A$)ĭ(A$)6İ194:38*EPĭ(A$)2NC111:CL(X)CL(X1)::DO$;N$",L"LL:F$(NC):X1NC:BYTCL(X):DR$N$",R0,B"BYT:F$(X)::DC$:D21ı$CP$"PLACE VOLUME #2 DATA DISK":CQ$"IN DRIVE #1":27:29:%(4)"BLOAD INIT,D1":(4)"BLOAD GMAN":37759:&EPX11ı':5:"COMPARIS((866)):S$((867)):I(868):X869I868:N$N$((X))::D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$h#:DO$N$".V,L498,D"D1:DR$N$".V,R0":NC,RC,RR:CL(NC1):X1NC:CL(X)::DR$N$".V,R1":D2,D3:DC$:LLCL(NC)NC:X:22:958:14)"";:SB$::SB$(17)AB1:31ISB$" "29_22:958:1002:x 20:958:WMWM0:!20:17::"WORKING"::15:"PLEASE WAIT"::WM1:"CP$"RETRIEVING FILE STATS":CQ$"PLEASE WAIT":27:D1(864):P$((865)):P1$:X,Y:: 104,168,104,166,223,154,72,152,72,96:FIX758::11:CS20:CP(CS((CP$))2.5):CP);CP$::CP(CS((CQ$))2.5):CP);CQ$:CQ$"":(4)"CLOSE":CP$"":27:32:X1100::32:(4)"BLOADSPAK,D1":38032:80:0:AB0TER$(X11,0)"50":38:X11S10FILTER$(X1,0)"40":20C EOF23[ 51:61:99:76:20i 72:47: ER(222):LN(218)((219)256):CP$"ERROR #"(ER)" OCCURED IN LINE #"(LN):CQ$"PLEASE NOTIFY PROGRAMMER!":27: FIXı9X758767:Y"::SP)"SELECT:";:"";A$+ A$(17)18; (A$)112K (A$)712Q  CP$"PLEASE VERIFY THAT DISK":CQ$"IS IN DRIVE #1":27:29:(4)"RUN MENU,D1" EOF0::X10:1)"CONSTRUCT FILTER - CNTRL-F=FIELD NAMES":34,37 X1X11:FIL40:"-";::34,2: 24 34,2::"DATABASE:";M$:SP8:9:SP)"OPTIONS:"::SP)"1) CONSTRUCT FILTER":SP)"2) EDIT FILTER":SP)"3) LOAD FILTER":SP)"4) SAVE FILTER":SP)"5) PROCESS DATA BASE":SP)"6) PRINT OUT FILTER":SP)"7) LIST FIELD NAMESM$;".I":I%(RC):X1RC:I%(X)::DC$:DO$;M$;".S ,D"D1:DW$;M$;".S":SC:SC110l X1RC:RI%(I%(X))ĺXr DC$:CP$"PLEASE VERIFY THAT DISK":CQ$"IS IN DRIVE #1":27:29:37::(4)"RUN LIST,D1": ::11)"* MASTER SEARCH *":X1$N$:RI%(RC)= 12:MS(A$):MS19,128,135,198,141,216,194I MS56P 3 CP$"SAVING SURVIVOR LIST":CQ$"TO DISK":27:X1500::SC0:X1RC:RI%(X)SCSC1Q :CP$(SC)" SURVIVORS OF":CQ$"FILTER:"FILTER$(0,0):27:DO$;M$;".I ,D"D1:DR$;&895,165:24000:A$"":FMAX100:Q$(2):FILTER$(FMAX,3):ARG$(3),ARG(3):D$(4):DO$D$"OPEN":DR$D$"READ":DW$D$"WRITE":DC$D$"CLOSE":C:FC$(C):X1C:FC$(X):: 7, " = "," > "," < "," >= "," <= "," <> "," >< ":11:25:28:A(0) 34:M!!!!!!!!!                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""" " " " " """""""""!!! ! ! ! !