' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ԡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`ŠŠԠĠҠҍٮŠĠΠԠӍĠ̠ŠՠōǺŠĠ΍΍ӠΠǠčǠҠŠ͍ŠŠҍŠҠéԠٍàŮ̠ӍĮŠŠӠԠĠ٠ƠӠ̠ŠύӠϠ٠٠נԠӠ̮ƠՠΠϠŠŠҍŠƹԠĠӠŠƹԠŠƹΠΠñàԠԠàԠϠàŠàԠàϠàԠàŠñƹàԠӠ٠ԠǠұàϠΠƱŠƲΠƳŠƠŠƵŠƷԠƸҠŠƶԠƠ  EA33JOAN SMITH NEW MANAGEMENT 810330 NEW ENGLAND OFFICE 321456N342561000.001050.00 -50.00EA03JANE DOE FIRST PURCHASE 810321 EASTERN COOP 364523E37692 487.34 250.00 237.347 ACME INDUSTRIAL, INC333456A34532 498.00 498.00 0.00NE27JOAN HAMBERSON STANDING ORDER 810301 ACME AUTO SALES 346568A32135 250.00 39.95 210.05EA08MARK ANDERSON COD ONLY 810228 SEABOARD HARDWARE 326479S34671 483.91 0.00 483.9151.25 0.00NO13JACK JOHNSON NEW MANAGEMENT 801031 MIDWEST AUTO SALES 337568M37591 300.00 26.35 273.65NE32MARK ANDERSON COD ONLY 801209 NEW ENGLAND HARDWARE375319N164374237.564237.56 0.00NE27MARK ANDERSON COD ONLY 81022 810103 NORTHERN HARDWARE 316448N153029630.259630.25 0.00NO13JOAN HAMBERSON STANDING ORDER 810301 MIDWEST AUTO SALES 354689M34591 401.99 401.99 0.00NO13JOHN DOE FIRST PURCHASE 810125 MIDWEST AUTO SALES 426478M34591 351.25 3248 398.50 398.50 0.00NW15MARK JOHNSON PAYS PROMPTLY 801201 ACME OFFICE SUPPLIES445021A22345 300.00 300.00 0.00NO13MARY JONES NET 30 801119 NORTHERN TRUCK LINES432123N34569 350.55 100.00 250.55NO13MARY JONES PAYS PROMPTLYAYS PROMPTLY 801124 BROWN STREET REPAIR 362345B34563 199.03 199.03 0.00NW15JOHN JOHNSON COD ONLY 810222 EVERGREEN YACHTS 324564E346252348.912348.91 0.00NW15JACK JOHNSON PAYS PROMPTLY 801029 EVERGREEN RESTAURANT345632E13G 345664S345671983.05 983.051000.00SE17DAVID SMITH PAYS PROMPTLY 810223 BROWN STREET REPAIR 437543B34563 235.55 235.55 0.00SE17DAVID SMITH FIRST PURCHASE 810131 BROWN STREET REPAIR 321234B34563 231.34 231.34 0.00SE17MIKE WILLIAMS P MARKLES PAYS PROMPTLY 810105 SOUTHERN GLASS CO. 363452S18600 395.45 395.45 0.00SE17DAVID SMITH QUITTING BUSINESS 801001 SOUTHERN GLASS CO. 363454S13233 398.50 398.00 .50SE22JANE DOE FIRST PURCHASE 801022 SOUTHEAST LIGHTINORNIA DRY GOODS423633C32148 458.90 458.90 0.00SW07WILLIAM DOE FIRST PURCHASE 810325 SOUTHWEST AUTO SALES337901S32567 33.00 31.50 1.50SW04MIKE GREEN COD ONLY 801107 ARIZONA TRUCK LINES 456432A87321 333.56 333.56 0.00SO14MARK9 WE05MARY HAMBERSON NEW MANAGEMENT 810303 WEST COAST CAFE 374577W13211 49.50 100.50 -51.00WE01JOHN JOHNSON DELIVER BY 3/15/81 810308 CALIFORNIA DRY GOODS324509C32148 300.00 0.00 300.00WE01JACK JOHNSON NET 30 801102 CALIF ԠȍԠčԠō΍ō΍ō΍ԍōҍŠԠ 6?U $dI2-U--??d ?-($$$-?'- ? -< $$$?---d $$66v- $$-` $$M16'$$$$66-5&$$$?d l )=$$$> --?' ?- / ?I$$$6.??$$- ?'$--)- ?7&$ (-!d --'466&,??L(-?`-3666II%` ;.)) c݃ )  $` $``L666 `( $4>/-- ) ?(--;` I $d-66? -((KA0UW_hz#/<JScoty&0;KWes#-6?GI    |L` ,LLɾL ߠȱ ߠȱ i`I )?$ @$( $0I )`LQLQLLLLþ``L̾"VXZdflpx|~𷄝]V߼ȿ $-6BaHT`r|rrݦݓݝ M$86TGawվ  $-L䍁L׍L6 -Lf ]Lfl8 o,,(`l6LfLlll f ލ` f Lи fL fL f L f L f QLpH^ݭ_%H\ݭ]HZݭ[H`ݭa rsLNHhL{`arsu`hhHHL9DAA #B|C<}C=Ȣ<<=>٩L6 ݍ_很Ծ Cu LqB ̍ Lf Lf Lf Lf Lf e f@ɝ ɾL` / < ,C-C=ȱ<i@<Ș=.C=/CעPC0"lCtC<ȽuC";D1$:D1(D1$):14:1:"ENTER VOLUME # (0 FOR FLOPPY) ->";V1$:V1(V1$):A9%ıSL,S116:DR,D1:VO,V1:A92195:10:1:"PLACE THE NEXT DISK TO HAVE DOS REMOVED IN DRIVE "D1" SLOT "S1" VOLUME "V1" AND":"PRESS RETURN (PRESS 'Q' - QUIN1:I' (L$(1))0Ĺ8197,(L$(1))1H (L$(2))0Ĺ8208,(L$(2))1^ 8210,46(L$(1)) 8203,(P3256):8202,P3(P3256)256:8214,(P4256):8213,P4(P4256)256 :10:1:"ENTER SLOT # ->";S1$:S1(S1$):S11S17172Z12:1:"ENTER0āI1(L$(2)):B$(L$(2),I,1):P2,(B$)128:P2P21:IE "";AN${ :"EDIT? (Y/N) ";:AN$:AN$"Y"99:AN$"N"150 (L$(1))0āI1(L$(1)):ENEN1:EN,((L$(1),I,1))128::I:ENEN1 (L$(2))0āI1(L$(2)):EN,((L$(2),I,1))128:ENE0) }LL1:L3100w :"PRESS RETURN TO SEE YOUR BOOT MESSAGEPRESS THE RETURN KEY AGAIN TO CONTINUE.":"";AN$ :P1C1(V(1))H(1):P2C1(V(2))H(2):P3P1:P4P2 (L$(1))0āI1(L$(1)):B$(L$(1),I,1):P1,(B$)128:P1P11:I9 (L$(2))L)):V(L)0V(L)23100 n5:1::"ENTER COLUMN FOR MESSAGE LINE "L" (0-39) ";:37:H(L);:37:"";H$(L):H$(L)""120:H(L)(H$(L)):H(L)0H(L)39110 x::"ENTER LINE "L":":I140H(L):"'";:I:1:11:L$(L);:1:11:"";L$(0):L$(0)""L$(L)L$(RW28:A:I,A:I:I8192EN:A:I,A:IE CO2,V:CO3,S16:CO4,DM cL1 d:23:1:"PRESS RETURN TO LEAVE VALUES UNCHANGED":1:1::"ENTER LINE NUMBER FOR MESSAGE LINE "L" (1-23) ";:37:V(L); i37:V(L);:37:"";V$(L):V$(L)""110:V(L)(V$( ::C1(24):I124:C1(I)::EN8237:V(1)10:V(2)12:H(1)10:H(2)8:L$(1)"THIS IS A DATA DISK":L$(2)"PRESS ANY KEY TO REBOOT":D$(4):A9%0 RW16384:SLRW9:DRSL1:VODR1:TRVO1:SETR1:BLSE3:BHBL1:COBH3:RD1:WR225000& IRW     S LABEL FORMAT? (Y/N) ";:20:(A$"Y")56020:19500 ںD$"OPENLABEL FORMAT":D$"DELETELABEL FORMAT":D$"OPENLABEL FORMAT":D$"WRITELABEL FORMAT":NA:T3:T2:SK:LN:Y16:Z110:A(Y,Z):Z,Y:D$"CLOSE":19500";:20:B(A$):(B1B6)55060:LNB:55010:55030LU0:I16:SS(I)0:IZUU1:F0FF1:MA(U,F)1:M1SS(U)SS(U)D%(M)ڴF1056002:SS(U)T3T2ė:"LINE TOO LONG. PRESS RETURN FOR MENU.";:20:19500ڭULN560013 ڗ:10:"SAVE THI0,55050:55030 ע22:1:958:"ENTER NEW LINE "B". PRESS RETURN WHEN DONE":I110:23:1:958:20:Q(A$):QQ487(Q64):Q35Č54915:55030 ׭QNF55030ע62B2:73I1:" "A$" ":A(B,I)Q:I:550302ע22:1:958:"ENTER NUMBER OF LINES CONTAINS THE FOLLOWING FIELDS"r֢10:1:Y16:Y") LN "Y;:Z110:73Z:(A(Y,Z)487(A(Y,Z)9));:Z:::Y֭FFFF0:֢22:1:958:"CHANGE WHICH RETURN=NONE ";:20:" ";:B(A$):(A$)1356000:FF1:B155060,55050,55050,55050,55050,55050"íA4SK(VL$):50040:50050-ë500503òT։::12:"LABEL INFORMATION"֢3:1:958:"FOR EACH LABEL YOU ARE ALLOWED 6 LINES AND A MAXIMUM OF 10 FIELDS PER LINE"֢6:1:"0) LINES PER LABEL";:37:LN֭FFFF0:֢8:1:"EACH LINE:958:"ENTER NUMBER TO CHANGE PRESS RETURN TO CONTINUE ";:20:((A$)0)55000:" ENTER NEW VALUE FOR "A$;:" ";VL$í(A$)1(A$)450050FF1:A(A$):A1NA(VL$):50010:50050íA2T3(VL$):50020:50050íA3T2(VL$):50030:5005:37:868:NA_íFFFF0:Udâ5:"2..LEFT MARGIN FOR FIRST LABEL";:37:868:T3diíFFFF0:nâ7:"3..WIDTH (IN CHAR) OF EACH LABEL";:37:868:T2síFFFF0:xâ9:"4..LINES TO SKIP BETWEEN LABELS";:37:868:SK}íFFFF0:vâ12:1"DOS ERROR NO. ";I:43015F" AT LINE "(218)(219)256".":216,0e"PRESS RETURN.";:20:370xNù216,0:43000Oô(222)543000:D$"DELETELABEL FORMAT"PFF0:::5:"THE DATA REPORTER LABEL SETUP "Zâ3:"1..NUMBER OF LABELS ADJACENT";B9)19908_MJJ1:::33,35:34,3:32,5::B50000,11920,11800,11850,11900,1350,380,500,600x0uD$"PR#0":49153,0:::10:I(222):I77370:I0I1643005:"A/S ERROR: ";:J53856I(I255)I(J):(I);:I192JJ1:4300143015E%Ĺ42615,24L43000L::10::" LABELS MAIN MENU ":17((Q$)2):" FOR "Q$" "::32,3::I19:I")..."M$(I):I:32,0::" "M38);:5:N" OF "RD" RECORDS "38);:5:"FILE = "I1$::" ";:24:1:" WHICH?";:11 M20:B(A$):(B1F,F$F$(0),D%(0):I1NF1:E,F$F$(I),D%(I):I:,LI:768:30000:D$"CLOSE":C(0):C0:CT0:JJ0:RN0:ST0:F0:SPT0:SH0:T10:PC0:CS0:MD0:N256(NR1)(NR):RF,0:RF1,0:I18:SR(I)0:I:SR0:D50-LVE%Ĺ873,119:874,230:871,24:864 .LV,RJ,Q1,Q2,SS,CH$,HD%,VE%,S1,D1,V1,CB%,ML%,ZN:D%(NF),H$(NF),PR(NF),HT(NF),F$(NF),H8%(NF),V8%(NF),H9%(NF),V9%(NF),PG%(NF)KI0NF:D%(I),H$(I),PR(I),HT(I),H8%(I),V8%(I),H9%(I),V9%(I),PG%(I)::D(1)S1:D(2)D1:VV1:D(3)V22KD$"CLOSE":NR378868448VE%:E,PRINT ONE LABEL,PRINT STARTING AT,PRINT ALL FILES,DISPLAY FIELDS,DISK ACCESS,RETURN TO DATA REPORTER,QUITHD$(1)"SLOT":D$(2)"DRIVE":D$(3)"VOLUME":I(5):A$(I):SUI49:2063,SUxKD$"OPENSETUP."A$:D$"READSETUP."A$:NF,RL,RD,SN,P$,CN,Q$,VT,RP,TF$:Ky/SKāI1SK:CH$:Iz/(16384)155Ĺ16368,0:30000:33,40::IJJ:1300:JJI:::20:7:"PRESS ESC TO HALT PRINTOUT":950{/DHRF800:43000FHD$"CLOSE":I19:M$(I):IkHRCRP1: CHANGE LABEL SETUP,PRINT ALL LABELS THIS FIL.7)"PRESS ESC TO HALT PRINTOUT":D$:D$(4):950S.12030:JJJJJ:JJN11922].D5ır.D$"PR#0":19500x.v/JNA(JJNAN2)(NJJ1)(JJNAN1)w/K1LN:I0J1:36,T3IT2:G,JJI:L110:MA(K,L)1:M1İ891:A$;" ";:Lx/I:CHJJHH:11920|.378:QQ1}.IQQ:2:((F$)1)19500:I1$(F$,20):1000:D$"BLOAD"I$",A"NRN%RL1",V"V:JJ1:N256(NR1)(NR):D51:11920:QQQQ1:11901.112:D$"PR#0":::20:1:D5QQ111921:"TURN PRINTER ON AND PRESS RETURN";:20:1:8683 FOR MENU";:20:19500k.112:::10:"PRINT WHICH RECORD? (DEFAULT=1) ";HH$:HH(HH$):HH0HHRDHH1.950:JJHH:D$(4):12030:D$"PR#0":19500J.112:::10:"PRINT STARTING AT WHICH RECORD (DEFAULT=1)? ";HH$:HH(HH$):HH1HHRDHH1 K.: TO MENU";:20:(A$)13960:(A$)2719500:1300TF:::" # TITLE LEN ";{HNF18Ė20:" # TITLE LEN ";J34,1:::I1NF:2:(I487(I9))" "H$(I1);12(H$(I1)));D%(I1):I18Ĺ32,19:33,20:LI::34,19:32,5::" RETURND$"OPEN"I$",L"RL",V"V:D$"READ"I$",R0"::N9((BB27168VE%)256(BB37168VE%))3:N9N9128(N9RL(N9RL)):N%N9RL:D$"CLOSE":975,RL:IN%U:D$"OPEN"I$",L"RL",V"V:D$"READ"I$",R"I",B4"::D$"CLOSE":2::22:" RTN=CONTINUE, ESC=RTN873,119:874,230:871,56:864:1010,174:1011,190:1012,27:j b42615,56:1010,191:1011,157:1012,56:w {A$F$(M) |(A$)1ĭ(A$,1)" "A$(A$,(A$)1):892 }PR(M)3PR(M)5ĺ"$"; ~ 35,1:33,1::D$"PR#";SN:P$; 8:975,4:B0BKIB9J:2:N$I1$:I1$(F$,20)::408N :4:JJ1:K1:(F$)3414W 412 D$(13)(4):VE%ģ19000:D$"RUNDATA REPORTER.64,S"S1",D"D1",V"V1 D$"RUNDATA REPORTER.48,S"S1",D"D1",V"V1= X216,0:::"TYPE 'GOTO 370' TO RESTART ":VE%%RL1",V"V:RM0:370; 410:" PRESS RETURN";:20::370h 32,0:" ":8:(B$,(B$)1)"ING "I1$: :34,2::D$"CATALOG,V"V: 4:J0:K1 IK9J:2:(F$)3K10ĺK". "(F$,20):KK1:414. :B$" WHICH ONE (RETURN=MORE)?";:15:BB48::" CHANGE ANY (RETURN=NO CHANGE)?":15:W0W4ĺ" NEW "D$(W)" # ";:A0$:D(W)(A0$):378 {VD(3):D$(13)(4):D$"NOMONS"D(1)",D"D(2): |378::" 1)..LOAD 2)..CATALOG WHICH?";:15::W382,398:380 ~B$"LOAD ":412:1000:D$"BLOAD"I$",A"NRN487(B64):[ :" ";::"";:16384,128:A$:" ";:(A$(27))19500:A$(13)ĺA$;a  pN0ĉ::10:6:"THERE ARE NO RECORDS ON FILE. PRESS RETURN FOR MENU.";:20:19500 q r19500[ z32,5::I13::I". "D$(I)" = "D(I);:I4C,a,I:615700:D$(13)(4):43000[A(6,10):18500:BB39168:49998D$"OPENLABEL FORMAT":D$"READLABEL FORMAT":NA,T3,T2,SK,LN:Y16:Z110:A(Y,Z):Z,Y:D$"CLOSE"19500I$(SU)I1$: 20:B(A$):B2719500:WB       0 NRA$;:UUD$"OPENVERSION 4.0":D$"READVERSION 4.0":VE%,S1,D1,V1:D$"CLOSE":R:I13::I". "D$(I)" = "D(I);:I:" CHANGE ANY (RETURN=NO CHANGE)?";:21050:W0W4ĺ" NEW "D$(W)" # ";:IW:"";A$:D(I)(A$):VD(3):21000RD$"NOMONS"D(1)",D"D(2)",V"V::R15:B2710020:WB487(B63):W27W35W40ıDRW1WM21052,0:D$"RUNCREATE DATABASE,D"D1",S"S1",V"V1>DH(650)253ıIHN1%(651):N2%(652):I1N1%:F1%(I)(652I):I:I1N2%:F2%(I)(653N1%I):I:N3%N1%:N2%N1%N3%N2%8J:924 N::I0NF%:I118(I17):119(I17):I1;". ";H$(I);:I:(A$):J1J410020.%'J10030,10040,10025&'216,0:::"TYPE RUN TO START OVER":873,119:874,230:871,56:864:VE%Ĺ1010,174:1011,190:1012,27:''1010,191:1011,157:1012,56:)'.'D$:D$"RUNHELLO,D"D1",S"S1",V"V1+8'37000:104,8:307I192JJ1:9030@P#" AT LINE ";(218)(219)256;".":216,0Z#" BE SURE CORRECT DISKS ARE IN PLACE AND PRESS RETURN TO START OVER.";:15:$'::34,3:32,5::"1)..DATA REPORTER 2)..SETUP PROGRAM 3)..REFORMATTER 4)..QUIT WHICH? ";:15:A$:JNTINUE";:15:1580sI1%N%256:NR,N%256I1%:NR1,I1%:D$"BSAVE"(SU);I$",A"NR1N%R2%",L"N%R2%3",V"V:1580(#::10:I(222):I77370:I0I15ĺ"A/S";:J53856I(I255):90202#"DOS ERROR NO. ";I:9040<#" ERROR: ";F#I(J):(I);:%<D$"BSAVE"(SU);I$".1,A"NR1N3%R2%",L"N3%R2%3",V"VI1%N4%256:NR,N4%256I1%:NR1,I1%:I1N4%:G,N3%I:P,I:I:D$"BSAVE"(SU);I$".2,A"NR1N4%R2%",L"N4%R2%3",V"V:"FILE EXCEEDED LENGTH LIMITS SO SAVED AS TWO FILES. RETURN TO CO$":"3508+ A$;:"";A1$:A$A$A1$:I$A$s CV:1:958:"ENTER RECIPIENT SLOT, DRIVE, AND VOLUME ":M3:21000j:12(I$)2:"SAVING NEW FILE "I$R2%N%221865148VE%4020:N3%(N%2):N4%N%N3%:I1%N3%256:I2%N3%I1%256:NR,I2%:NR1,I1F,F$F$(0),F2%(1):J1N2%1:E,F$F$(J),F2%(J1):JhL,F$"":J0N2%1:L,F$(J)T$(TF%(J1)):Jq P,Ix I :CV(37)1:"NEW FILE IS TO BE NAMED? PRESS ':' FOR "I$:I120:"_";::1 15:A$(13)ĺ"";:3502 B2710020  ATING FILE "I$cT$(0)"":R1%R2%1āI1N%:14:ZZ$"RECORD "(I)" OF "(N%):20(ZZ$)2:ZZ$R2%R1%āIN%11:14:12:"RECORD "N%1I" OF "N%F,F$F$(0),F1%(1):J1N1%1:E,F$F$(J),F1%(J1):JG,IJ1N1%:T$(J)F$(J1):J71%)R1%)))R1%:D$"CLOSE"?vD$"BLOAD"(SU);I$",A"NRN%R1%1wR2%N%274858448VE%ĉ::"LENGTH INCREASE EXCEEDS LIMITS FOR THIS FILE. SUGGEST DIVIDE THE FILE INTO TWO FILES AND REFORMAT EACH. PRESS ESCAPE";:15:10020 12:12(I$)2:"CONVER958:(F$)31640:JJ1:Q1:1650Sl(I$)1ĭ(I$,1)" "I$(I$,(I$)1):1900}m:10:13(I$)2:"LOADING FILE ";I$q975,4:D$"OPEN"(SU);I$",L"R1%:D$"READ"(SU);I$",R0"::N9(391707168VE%)256(391717168VE%)3:N%(N9128(N9((N9RTED. PRESS ESC TO QUIT."'6M3:210007g4:1:958RhQ1:J0:F,F$F$(0),30orIQJ9:2:(F$)31700|Q". "(F$,20):QQ1:Q101650" CONVERT WHICH FILE (RETURN=MORE FILES)":15:BB48:B0B10IB9J:2:I$(F$,20):1900"4:1:(I)R:B$""(R58IN1%)995:R58F2%(I)F1%(I):F1%(I);@FR1%0:R2%0:I1N1%:R1%R1%F1%(I):I:I1N2%:R2%R2%F2%(I):IIN1%:N2%IIN2%,::"ENTER THE SLOT, DRIVE, AND VOLUME FOR THE NEXT SOURCE DISK WITH FILES TO BE CONVER:R2R35990T2:1:"NUMBER OF FIELDS IN NEW FORMAT = ";:37:50:R2R35991wN2%R:N3%N1%:N2%N1%N3%N2%}3I21PC:1:I".";:5:"CHARS. IN FIELD ";I;:IN1%1Ė26:50:B$":"B$""995:F1%(I)R:IN2%1Ģ3I21PC:35:50:F2%RSREIR:FF%(TF%(I))0:986*983rI121PC:1:868:9:I;:29:50:TF%(I)R:B$""(R58IN1%)986R58TF%(I)I:RI:I;R0RN1%FF%(R)ĺ"";:986FF%(R)(R0):1:1:"NUMBER OF FIELDS IN OLD FORMAT = ";:37:50:N1%RATA FROM SAME FIELD. PRESS RETURN":I1N1%:FF%(I)0:I:50:::" NEW RECORD FIELD FROM FIELD "::ISE:986:I:TF%(0)N2%124:1:868:10:"SATISFIED (Y/N)?";:15:A$"Y"ı!1:868:6:"MODIFY WHICH LINE ("S"-"E")?";:50:RDS. FOR INSTANCE, IF FIELD 1 OF THE NEW RECORDS SHOULD CONTAIN THE DATA THAT WAS IN FIELD 4 OF THE ORIGINAL ";<"RECORDS, SIMPLY ENTER '4' WHEN ASKED FOR THE SOURCE FIELD. IF A NEW FIELD IS TO HAVE NO OLD DATA PLACED IN IT, ENTER '0'. PRESS ':' FOR D995:I@ 1:1:868:10:"SATISFIED (Y/N)?";:15:A$"Y"ı 1:868:6:"MODIFY WHICH LINE ("S"-"E;:")?";I:ISIEİ995 972p:5:"YOU MUST NOW SPECIFY WHAT DATA SHOULD BESTORED IN EACH FIELD OF THE NEW RECORDS FROM THE ORIGINAL RECO%:980:1000K PC0:S1:N2%21E21:980:PC1:S22:EN2%:982:PC0:1000Q k EN2%:980:PC0:1000 :::" ENTER RECORD FORMAT DATA PRESS ':' FOR NEW LENGTH = OLD LENGTH OLD NEW ": ISE:ATA FILES TO BE CONVERTED TO A DIFFERENT FORMAT (MORE OR FEWER FIELDS OR CHARACTERS PER FIELD) WITHOUT HAVING TO REENTER THE DATA. PRESS ANY KEY TO BEGIN.":A$: 18500 990:S1:PC0:N3%21E21:950:S22:EN3%:PC1:950:924 EN3%:950:EN2(35),F$(35):I135:F1%(I)0:F2%(I)0:I:D$(1)"SLOT":D$(2)"DRIVE":D$(3)"VOLUME":D(1)S1:D(2)D1:D(3)V1 873,119:874,230:871,24:864 ::10:10:"RECORD REFORMATTER ":10:"BY ROBERT C. CLARDY" " THIS UTILITY PROGRAM ALLOWS EXISTING D: ESCAPE KR13R(B$):1 PR8ĺ"":60R U(B$)1B$"":CH%CH%1:60t W(B$)2B$(B$,1):CH%CH%1| Y60 rI:768:10020 I:SU(5)49:2072,SU:D$(13)(4):22000:NR378868448VE%:9000j F1%(35),F2%(35),FF%(35),TF%(35),T$V10400:400C,c,I:_:" ";::"";:16384,128:A$:B(A$):" ";:B2710020:2CV%(37)1:CH%(36)1:B$"":" ";:R0<CV%:CH%:" ";:CH%:15:RB:R58R47(B$)2ĺA$;:B$B$A$:CH%CH%1:60ER58B$":": FR2710020                0),D%(0):I1NF%1:E,F$F$(I),D%(I):I:U$(11,NF%):D$(1)"SLOT":D$(2)"DRIVE":D$(3)"VOLUME":D(1)S1:D(2)D1:D(3)V1:#(121)(122)25631:  ` A  ` $,VT%,RP%,TF%,RJ%,Q1,Q2,SS,CH$,HD%,VE%,S1,D1,V1,CB%,ML%,ZN"NHD%(35),H$(35),PR%(35),HT%(35),F$(35),H8%(35),V8%(35),H9%(35),V9%(35),PG%(35):I0NF%:D%(I),H$(I),PR%(I),HT%(I),H8%(I),V8%(I),H9%(I),V9%(I),PG%(I)::NR378868448VE%x#HD$"CLOSE":F,F$F$( MERGED. ":378:S4D(1):D4D(2):V4D(3)!@E$",S"(S2)",D"(D2)",V"(V2):G$",S"(S3)",D"(D3)",V"(V3):I$",S"(S4)",D"(D4)",V"(V4)!J:"DHI(5):SUI49:2063,SU:A$(I):D$"OPENSETUP."A$:D$"READSETUP."A$:NF%,RL%,RD%,SN%,P$,CN%,QING THE FILES YOU WISH MERGED. ":378:S2D(1):D2D(2):V2D(3) :14:"SCRATCH DISK":4:"THE SCRATCH DISK IS A BLANK DISK FOR TEMPORARY STORAGE. ":378:S3D(1):D3D(2):V3D(3)(!:15:"RESULT DISK":4:"THE RESULT DISK WILL STORE THE FILES YOUWISH(Y%)",L"RL%;G$:D$"READT."R$(Y%)",R"V%(Y%)F1%(Y%)1",B4"::D$"CLOSE":B0NF%1:U$(Y%,B)F$(B):B:E1%0:Y%0:D1%1:J1%0:Z%J1%:A1%J1%:G1%1:H1%2:I1%3:U%0:K1%0:D140000:O30640> :15:"SOURCE DISK":4:"THE SOURCE DISK IS THE DISK CONTAIN420:D$;"BSAVE";V$;",A"NRE1%RL%1;",L";E1%RL%3;I$:C1%C1%1mNR,0:NR1,0:E1%0:E2%U%ĴG$I$410:::8:"THE SORT HAS BEEN COMPLETED."$" REMOVE YOUR NEW DATA DISK AND LABEL IT AS THE "M$" DATA DISK. ":372f975,RL%:D$"OPENT."R$1:L,F$(I)U$(Y%,I):I:P,E1%<E2%U%E1%RD%J%İ7440jF1%(Y%)F1%(Y%)1:F1%(Y%)V%(Y%)İ7660:Y%Q%āCY%(Q%1):F1%(C)F1%(C1):V%(C)V%(C1):R$(C)R$(C1):I0NF%1:U$(C,I)U$(C1,I):I,CQ%Q%1:@V$(SU)M$"."(C1%):G$I$K:7660:K Q%1İ7280:7120;Q%0Y%1:7360:7160E47440pY%1:C2Q%:(U$(Y%,B%(1))U$(Y%,B%(2))U$(Y%,B%(3)))(U$(C,B%(1))U$(C,B%(2))U$(C,B%(3)))Y%CCE2%E2%1::12:"PROCESSED "E2%" OF "U%" RECORDS":E1%E1%1I0NF%ED AND RESAVED.":7020db:10:"ENTER FILES FROM OTHER DISKS (Y/N)?";:500::10:A$"Y"4640lG$I$420:" PRESS RETURN TO BEGIN THE MERGE.":500::14:" DO NOT TOUCH YOUR APPLE UNLESS INSTRUCTED TO DO SO!!":1 NR,0:NR1,0:K1Q%:Y%RECTED "NE" ERRORS"CN%26085:X,F$(B%(1)),F$(B%(2)),F$(B%(3))11(R$(C))2:E$G$410:16:1:"SAVING PRESORTED "R$(C):D$"BSAVET."R$(C)",A"NRN%RL%1",L"N%RL%3;G$:CQ%İ400C:S%Q%1XQ%10ė:10:"ALL FILES HAVE BEEN PRESORT.":500:S%Q%7010:CS%Q%::12:1:"PRESORTING FILE "R$(C):5500:D$"BLOAD"(SU);R$(C);E$;",A"NRN%RL%1:8,0:9,0SANRN%RL%2:LNN%RL%:EASALN1:I(EA256):10,EA256I:11,I:I(SA256):6,SA256I:7,I:63999:NE(8)256(9):14:5:"COR FILES WILL BE PRESORTED AND RESAVED. FOUR BELLS WILL SOUND UPON COMPLETION. THIS SIGNALS THE SYSTEM IS READY FOR ADDITIONAL FILES OR TO BEGIN THE MERGE PROCESS."" PLACE A BLANK, INITIALIZED DISKETTE IN THE 'SCRATCH' SLOT."w:"PRESS RETURN%)"":V%(Q%)0:Q%Q%1:4900:4710|975,4:D$"OPEN"(SU);R$(C);E$:D$"READ"(SU);R$(C)",R0"::N9((BB27168VE%)256(BB37168VE%))3:N9N9128(N9(RL%(N9RL%))):N%N9RL%:V%(C)N%:D$"CLOSE"::3:"LEAVE THE SOURCE DISK IN PLACE THEDS":I:.U%0:I1Q%:U%U%V%(I):I:22:958:"FILES SPECIFIED CONTAIN "U%" RECORDS. SATISFIED (Y/N)?":500:A$"Y"584022:958:"CHANGE WHICH FILE (1-"Q%")?";:500:B(A$):B1BQ%5000"IB1Q%:R$(I1)R$(I):V%(I1)V%(I):I:R$(Q(A$)1ĭ(A$,1)" "A$(A$,(A$)1):4736fQ%Q%1:R$(Q%)A$:CQ%:5500:4900:(Q%10)4710:5000rJ0:K1IK9J:2:(F$)3K10T$(K)(F$,30):K". "T$(K):KK1:4810$34,13:35,21::Q%āI1Q%:" "I". "R$(I);:28:V%(I)" RECOR ";::4900}f:22:958:"PRESS 1-"K1" TO SELECT FILES (RETURN= MORE FILES THIS DISK. 0=DONE)";:500:A$"0"5000p(A$)134730r34,2:35,12::JJ1:K1:(F$)3İ4810:4710u4800:4710zB(A$):B1BK4710A$T$(B)+SLOT "S2", DRIVE "D2". CONTINUE (Y/N)?";:500:A$"Y"ė:10:"QUIT(Y/N)";:500:A$"Y"370:4620\D$"NOMON"E$::::" SELECT FILES TO BE SORT/MERGED FILES TO CHOOSE FROM: ";::4800::13:" FILES ALREADY SELECTED: R%0:S%1 ::"YOU MAY ENTER UP TO 10 DIFFERENT FILES FROM UP TO 5 DIFFERENT DISKS BUT YOU MUST WORK ON ONE DISK AT A TIME. WHEN YOU ARE FINISHED WITH EACH DISK THEN MOVE ON TO THE NEXT ONE. "c "PLACE THE DISK WITH THE FILES TO BE SORTED IN ILE = ";RD%;" TOTAL # OF REAL RECORDS PER FILE = ";M%;" TOTAL # OF FILLER RECORDS PER FILE = ";J%;" TOTAL # OF REAL RECORDS PER DISK = ";0M%P%;" TOTAL # OF NEW FILES = "P%" IS THIS OK (Y/N)?";:500:A$"Y"4320 Q%0:C15:R$(C)"":C:I%0:ILE ";A$:J%(A$):J%04320K%DRL%:M%RD%J%:P%K%RD%::4:P%J%P%RD%P%Ģ10:"TOO MANY FREE SPACES REQUESTED":"PRESS RETURN":B$:4320::9!"****FILE CRITERIA**** TOTAL # OF RECORDS ON DISK = ";RD%P%;" TOTAL # OF RECORDS PER FB%(I):B%(I2)B%(I):I::12:"ENTER THE NAME (UP TO 18 CHARACTERS) FOR THE NEW SERIES OF FILES ---->";M$:M$""(M$)184280::1:7:"*****FILE FREE SPACE*****":8:"ENTER THE NUMBER OF RECORDS YOU WISH LEFT EMPTY AT THE END OF EACH NEW F."H$(C)8TC19ĢC17:20:(C497(C8));"...."H$(C)?C23:958:"SORT ON 1, 2, OR 3 FIELDS?";:500:J(A$):J1J3J1I1J23:958:"SORT FIELD "I" = ";:500:H%(A$):H%H%487(H%64):H%1H%NF%4250B%(I)H%1:B%(I1):958 ] 23:1:958:"INSERT YOUR 'RESULTS' DISK AND PRESS RETURN.";:500:23:958c  :" ";::16384,128:A$:" ";:1:D$:(A$)27370:::1:6:"*****SELECT SORT FIELDS******":C0(NF%1):C20ĢC3:1:(C497(C8));"...00:W(A$)48:W0W3HD%Ģ15:" NEW "D$(W);:" # ";D(W):VD(3):378K { E$G$Ģ23:1:958:"INSERT YOUR 'SOURCE' DISK AND PRESS RETURN.";:500:23:958  E$G$G$I$Ģ23:1:958:"INSERT YOUR 'SCRATCH' DISK AND PRESS RETURN.";:500:23D1",V"V15 uD$"RUNDATA REPORTER.48,S"S1",D"D1",V"V1; v x873,119:874,230:871,56:864:VE%Ĺ1010,174:1011,190:1012,27: y1010,191:1011,157:1012,56:E z10:958:I12HD%::I". "D$(I)" = "D(I);:I:" CHANGE ANY (RETURN=NO CHANGE)?":5TO: 1) RETURN TO YOUR APPLICATION PROGRAM 2) START OVER 3) QUIT":500::10:(A$)372,374,376:370 t"INSERT YOUR PROGRAM DISK IN SLOT "S1", DRIVE "D1" AND PRESS RETURN.":NR,0:NR1,0:500:VE%ģ19000:D$"RUNDATA REPORTER.64,S"S1",D""POSSIBLE RAM OR DISK PROBLEM":369A j"DOS ERROR NO. ";I:368S l" ERROR: ";w nI(J):(I);:I192JJ1:366 p" AT LINE "(218)(219)256". "; q"PRESS RETURN.":500:216,0:360u r873,119:874,230:871,24:864:::10:"DO YOU WISH 5C,a,I:315700:::BB39168:360^ A$"":D$(13)(4):18500:7900:4120h::10:I(222):I77370:I0I15ĺ"A/S";:J53856I(I255):364# iI5ĭ(218)(219)2567660ĺ"PROBLEM WITH RECORD "V%(Y%):"IN SORTED FILE "R$(Y%):                ӍĠԠҠԍŠбРǍѠ͍РРҠϚD(2)",V"V:{6 490:BV128:WB487(B63):W27W35W40ı6 W1W0WM30506 A$;:77 W1W0WM30507 A$;:;:CҠ٠ԠҠ̍Р̭ѠٱҠJJ1:21065<" AT LINE ";(218)(219)256;". PRESS RETURN.";:216,0:490:40"6 :I13:I". "D$(I)" = "D(I);:I:" CHANGE ANY (RETURN = NO CHANGE)? ";:3050:W0W4ĺ" NEW "D$(W)" # ";:IW:"";A$:D(I)(A$):VD(3):3000E6 D$"NOMONS"D(1)",D"I0NF%:FD%(I),H$(I),PR%(I),HT%(I),J,J,J,J,J4I:D$"CLOSE":F,F$F$(0),FD%(0):I1NF%1:E,F$F$(I),FD%(I):I:NR378868448VE%:D(1)S1:D(2)D1:D(3)V1454::10:I(222):"DOS";:J43377(43583I)!58" ERROR: ";F5:I(J):(I);:I192W0W4ĺ" NEW "D$(W)" # ";:IW:"";A$:D(I)(A$):VD(3):3000c3 D$"NOMONS"D(1)",D"D(2)",V"V:77 W1W0WM30507 A$;:;:C,V1,J,J,J:FD%(NF%),F$(NF%),H$(NF%),PR%(NF%),HT%(NF%)i48448VE%:D(1)S1:D(2)D1:D(3)V1&2_24D$"CLOSE":::10:I(222):I77370:"DOS ERROR "I2<" AT LINE ";(218)(219)256;". PRESS RETURN.":216,0:490:45@3 :I13:I". "D$(I)" = "D(I):I:" CHANGE ANY (RETURN = NO CHANGE)? ";:490:WKY176:"A$:NF%,RL,RD%,SN%,P$,CN%,Q$,VT%,RP%,TF%,RJ%,Q1,Q2,SS,CH$,HD%,VE%,S1,D1,V1,J,J,J:FD%(NF%),F$(NF%),H$(NF%),PR%(NF%),HT%(NF%)1I0NF%:FD%(I),H$(I),PR%(I),HT%(I),J,J,J,J,J 2I:D$"CLOSE":F,F$F$(0),FD%(0):I1NF%1:E,F$F$(I),FD%(I):I:NR378864HFHF:48(HF0):945i0KY8XX7HF:YY6(HF0):XX279(X0):YY191(Y191):0:SX,Y:3:9450KY13ĴGT%252,342,455,4550KY27450KY12Ĺ16303,0:9350945}1I(5):A$(I):SUI49:16400,SU:D$"OPENSETUP."A$:D$"READSETUP.30:SX,Y:XX7HF:YY6(HF0):XX279(X279):YY191(Y0):I(16336)(16336):945/XX(KY7)(KY1)(8HF)(KY6)(KY19)(8HF):XX279(X0)279(X279):YY(KY22)(KY20)(KY26)(62HF)(KY23)(62HF):YY191(Y0)191(Y191)0KY ALL OTHER KEYS WILL TYPE TO THE SCREEN. PRESS RETURN TO BEGIN OR ESC TO LEAVE..490:16304,0:16297,0:16302,0:FL0Ē0:I017:I,0I,191:I:I163191:18,I279,I:I:FL1.X0:Y170:0:HF1:3Y/S1:SX,Y:490:KYKY128:SX,Y:KY31SKYURN = ACCEPT LABELING CTRL D = CHANGE DIRECTION "-"CTRL W/T = MOVE UP ONE CHAR/DOT CTRL A/F = MOVE LEFT ONE CHAR/DOT CTRL S/G = MOVE RIGHT ONE CHAR/DOT CTRL Z/V = MOVE DOWN ONE CHAR/DOT LT. ARROW= ERASE TYPE CTRL L = DISPLAY COMMAND LIST"Q.32,0:""O"C5,uA$"V"C21,zI3ė:::P0:MP0:B,MP1:PP1:,::10:"DO YOU WISH RANGE LINES TO BE DISPLAYED (Y/N)?":490:R%1(A$"N"):1-:::" "119):2:" GRAPH LABELING COMMANDS "::32,5:" ESC = RETURN TO MENU RETLOT BE: 1)..A SINGLE PLOT 2)..THE FIRST OF SEVERAL PLOTS ON ONE AXIS 3)..A CONTINUATION OF A MULTIPLE PLOT SERIES"+b490:I(A$):I1I3865+f" PLOT IN WHAT COLOR (W,G,B,O, OR V DEFAULT=W)?":490:C3:A$"G"C1+kA$"B"C6,pA$=DONE)?";A$:A$""ĺD$"CATALOG,V"V:835M*HA$"0"A$(I)A$:II1:I10835Y*MI145*R"PRESS ANY KEY FOR NEXT GRAPH AND ESC WHEN FINISHED.":J0:II1:490*WJJ1:JIJ1*\D$"BLOAD"A$(J)",V"V:770:490:855}+a::10:" WILL THE NEXT P4525:J,I:J,I:):10t) " SAVE WITH WHAT NAME (RETURN=CATALOG, 0=NO SAVE)? ";A$:A$""ĺD$"CATALOG,V"V:800)%A$"0"45)/D$"BSAVE"A$",A8192,L8184,V"V:45)>M3:3000::10:I1'*C" ENTER NAME OF NEXT GRAPH FOR DISPLAY (RETURN=CATALOG, 01,157:1012,56:-(1:D$:D$"PR#"SN%:P$:Q(16304,0:16297,0:16302,0:(I2514515:20,I270,I:I:I4524525:I,10I,160:I:( I101605:J4524525:KK:JK,I:J,I(I2514515:J2027010:J,I:J,I:)I1016010:J452(A$):I:"ALL CORRECT (Y/N)?":490:A$"N"İ515:95?'705t'104,8:2048,0:(13)"RUNHELLO,S"S1",D"D1",V"V1'::10:"TYPE 'GOTO 370' TO REENTER THE PROGRAM":873,119:874,230:871,56:864:VE%Ĺ1010,174:1011,190:1012,27:(1010,191:101A1045&R%0735&I1A:"KEY WORD FOR SEGMENT "I;:" ";L$(I):N$(I)L$(I):I:"ALL CORRECT (Y/N)?":490:A$"N"İ515:85:&7056':I1A:"MINIMUM VALUE FOR SEGMENT "I;:" ";A$:MN(I)(A$):"MAXIMUM VALUE FOR SEGMENT "I;:" ";A$:MX(I)?":650 %%:I137:NU(I)0:MN(I)0:MX(I)0:I:TL0:T10:10:"GROUP DATA BY NUMERIC RANGES OR BY MATCHING KEY WORDS (R/W)?"%490:R%(A$"R"):A$"R"A$"W"45&600:YA0:690::10:"HOW MANY SEGMENTS DO YOU WISH (2-10)?";A$:A(A$):A21000,10000,ETC.)";A$:XR(A$):($Pı{$" SPECIFY RANGE TO BE USED FOR Y-AXIS (10,100,1000,10000,ETC.)";A$:YR(A$):$T%0:19:958:"PLOT NUMBER OF RECORDS FOUND, OR TOTAL SOME FIELD (C/T)?";%490:A$"T"Ģ23:T%1:19:1:958:"WHICH FIELD"":PR%(XA)3PR%(XA)5X$"$"$#Y#23:1:868:"SPECIFY DATA ELEMENT FOR Y-AXIS";}#490:YA(A$)49:YA15YAYA7#YA0YANF%650#Y$"":PR%(YA)3PR%(YA)5Y$"$"##Pı$:10:"SPECIFY RANGE TO BE USED FOR X-AXIS (10,100," ":I1NF%:I10ĺI;7"]I12Ĺ32,13:34,2:33,27:Q"bI24Ĺ32,26:33,14:d"gI9ĺ(I55);"l" ";H$(I1):I:32,0:34,0:33,40"q23:1:"SPECIFY FIRST DATA ELEMENT FOR ANALYSIS.";:490:XA(A$)49:XA15XAXA7"vXA0XANF%625#{X$B1BK1580@!@(N$(B),1)" "N$(B)(N$(B),(N$(B))1):576u!AI$(FI%)N$(B):I$(FI%)" SELECTED":FI%FI%1:575!DB0FI%2I$I$(1)!IB0FI%FI%1:!N::JJ1:K1:(F$)3570!S565"X::" DATA TO BE PLOTTED "::3:3000:::" PLOTTER/ANALYZER MODULE SPECIFY DATA FILES FOR ANALYSIS ":FI%1::34,2z 5J0:K1 :IK9J:7:(F$)3K10N$(K)(F$,29):K". "N$(K):KK1:570 !?:"WHICH FILE NEXT (RETURN=MORE,0=DONE)? ";:490:BKY176: N:0:jD$"PR#0":49153,0:23:" M=MESH LINES, P=PRINT, L=LABEL, ESC=MENU, OTHER KEYS=GRAPH";v"";490:A$"M"Ē3:GT%775,780,785:540!A$"L"925&16303,0:490:A$"P"İ760:GT%255,345,460,460+16304,0:540n 0:M";:"KY(16384):KY127495Q16368,0:A$(KY128):KY15545:" ";:z:10:10::" PROCESSING DATA ":N1(L$(I)):S((L$(I),N,1))30:SX,Y:XX7:X279ı N: 48:N1(L$(I)):S((L$(I),N,1))30:SX,Y:YY6:Y0ı PERCENT "I1A1:I;:36,3:N$(I);:36,18:NU(I);:36,33:((10000NU(I)TL.51)100);"%":I::I140:"=";:I:" TOTALS";:36,18:TL;:36,33:"100.0% ":530IA1:R%ıI1A:L$(I)(MN(I))"-"(MX(I)):N$(I)L$(I):I:" 140):YY(I):0:520:I:X2:Y189:520:W$"PIE"P:I$"0"I$"MULTIPLE FILES"1::" ";159):1:" "W$" CHART STATISTICAL BREAKDOWN":36,14(I$)2:"DATA FILE: ";I$::R%ĺ" RANGE";R%0ĺ" KEY WORD"; 36,16:" NUMBER :(N)10Y(I)Y(I1)10(N)I14065(M),9565(M)X(I),Y(I):3:Io480:FL0:I1A:(L$(I))7FL1I:FLāI1A:L$(I)(I):IL$(I)"OTHER":N$(I)L$(I):L$(I1)"PRESS ANY KEY".I1A1:K7(L$(I)):XX(I)2(X(I)140)(2K)(X(I)0X,95Y140X,95Y:Y3:140,95205,95:L0:J0:I1A1:LJNU(I)2:JJNU(I):KJ6.283185TL:ML6.283185TL:140,95(14065(K)),(9565(K)):14050(M),9550(M)14065(M),9565(M)0:X(I)14085(M):Y(I)9585(M):I1NY(I)Y(I1)128P25J,778P25J,7:108P25J,598P25J,5HJ:PP1W$"BAR":480:L$(I)"OTHER":N$(I)L$(I):L$(I1)"PRESS ANY KEY":455705:16302,0:3:0,0:62454:0:Y6401:IY65:X65((I(II1))):140X,95Y140X,95Y:1419:874,230:871,24:864:45%t7055|120:P395]Z90:J1A:NU(J)Z9Z9NU(J):KZ9wJ:Z910((Z910)1)PP3(P3)1:3:MP0150:C:J1A(A10):INU(J)150Z9:I150I154;L1I:118P25J,160L88P25J,160L:L:I154Ģ8^I111:I1;"-";I;:36,6:NU(I);:NU(I)Ĺ36,10:(TL(I));:36,19:(TL(I)(NU(I)(NU(I)0)));:36,25:(MN(I));:36,32:(MX(I));c:I:18:36,3:"UP"h"========================================";:YMĺ"OVERALL MEAN = "YMm530r873,1I)(NU(I)(NU(I)0))J:Y(I)YRY(I)YRYR.03HJY(I)0Y(I)0YR.03OI:32,160(Y(1)150)YR:I210:NU(I)0ē725I,160(Y(I)150)YRTIV:Y215:" RANGE NUM TOTAL AVG. MIN. MAX. ":::KK(K0KYR)(1.03YR)(KYR)(.03YR)(K0)1NU(I)ē725(G),160(L150)YR725I,160(J150)YR:LJ:725(G),160(M150)YR725I,160(K150)YR:MK:GI6I:320@0:I342554:I,11I,157:I1,11I1,157:I:C:J0.EI110:Y(I)TL(530 451115:MP0140:C:J0:R%295,325'JMN(0):KMX(0):JJ(J0JYR)(1.03YR)(JYR)(.03YR)(J0):KK(K0KYR)(1.03YR)(KYR)(.03YR)(K0):LK:MJ:G11,I210:JMN(I):KMX(I):JJ(J0JYR)(1.03YR)(JYR)(.03YR)(J0)215:" X-AXIS";:32,5g36,10:"= "H$(XA)" MINIMUM = "MN(0)" MAXIMUM = "MX(0)" MEAN = "XM 32,0:" Y-AXIS";:32,5:36,10:"= "H$(YA)" MINIMUM = "MN(1)" MAXIMUM = "MX(1)" MEAN = "YM32,0:" NUMBER OF DATA POINTS = "F2%1:10:20:MN(0)X:MX(0)X:MN(1)Y:MX(1)Y:F2%F2%1:C:F11FI%:10:I1N%:20:TL(0)TL(0)X:TL(1)TL(1)Y:XMX(0)MX(0)XXMN(0)MN(0)XYMX(1)MX(1)YYMN(1)MN(1)Y160:I:D$"CLOSE":F1::XMTL(0)F2%:YMTL(1)F2%X11>TLTLY:TL(X)TL(X)Y:NU(X)NU(X)1:YMX(X)MX(X)YSYMN(X)MN(X)YmI:D$"CLOSE":F1::FI%1I$"MULTIPLE FILES"1::" "159):1::36,9:"STATISTICAL SUMMARY":36,14(I$)2:"DATA FILE: ";I$::~115:MP0140:F11:IL$(0)"EACH UNIT = "(Z910)8I0:X6:Y130:525:eX(X250)XRANGE20:Y160(Y150)YRANGEtX20X18X270X274Y10Y6Y160Y163X,Y:X1,Y:TL0:F11FI%:10:I1N%:20:X((F$(XA))XR10):Y(F$(YA)):X10ESS ANY KEY":I0:X95:Y190:520:3:tI183191:0,I279,I:I:0:L$(3)"PRESS ANY KEY":I3:X95:Y190:520:3:L$(1)H$(XA)" ("X$(XR10)"/UNIT) -->":L$(2)H$(YA)" ("Y$(YR10)"/UNIT) -->"I1:X70:Y180:520:I2:X6:Y160:525:TL(F$(YA)):T1T11:@s600:645:670:680:GT%2İ900:190Ox770:MPı}3:20,10270,10270,16020,16020,10:I19:18,1015I22,1015I:2025I,1582025I,162:28I11,1315I:18I1825I,171:I%I183191:0,I279,I:I:0:L$(0)"PR1A:L$(J)(F$(XA),(L$(J)))İ105:JA:FL14 Z100 _F11FI%:10:I1N%:FL0:20:X(F$(XA)):J1A:XMN(J)XMX(J)İ105:JA:FL1 dJ eFL0JA1:105 fI:D$"CLOSE":F1:: iT%0NU(J)NU(J)1:TLTL1:nNU(J)NU(J)(F$(YA)):TL000000:NU(I)0:I:T10:TL0:F2%0D <490:GT%(A$):GT%1GT%960 AGT%5FI%0Ģ22::" SPECIFY DATA FILES FIRST. ";::60 FGT%4İ865 K::GT%225,285,372,415,80,795,830,750,755:50 P560:45+ UF11FI%:10:I1N%:FL0:20:J$:32,5: 7"1)...DOT GRAPH 2)...LINE GRAPH 3)...BAR CHART 4)...PIE CHART 5)...SPECIFY DATA FILE(S) 6)...SAVE LAST GRAPH TO DISK 7)...DISPLAY SAVED GRAPHS 8)...RETURN TO DATABASE 9)...QUIT SELECT OPTION"! 9I037:TL(I)0:MX(I)0:MN(I)1L(37),MN(37),NU(37),L$(37):0:1:BB39168:D$(1)"SLOT":D$(2)"DRIVE":D$(3)"VOLUME"d X(11),Y(11) D$"CLOSE":1000:D$"BLOAD LETTERS":232,0:233,8:560 -I:768:D$"CLOSE":2100 2FL0:0:::10:"ANALYZER/PLOTTER MENU ":18(Q$)2:"FOR "QCLOSE": X1$(SU)I$(F1):12:12:" RECORD "I" OF "N%" ":975,RL:D$"OPEN"X1$",L"RL",V"V:DN%I:D$"READ"X1$",R"D",B4"::(F$(XA)""(GT%3F$(YA)""))22:F2%F2%1:X(F$(XA)):Y(F$(YA)) S NR,0:NR1,0:37880:D$(13)(4):N$(11),MX(37),Td/ 25C,a,I:e D$:D$"CLOSE":515:10:19);:I$I$(F1):17(I$)2:"FILE: "I$:10:19) 975,4:D$"OPEN"(SU);I$",L"RL",V"V:D$"READ"(SU);I$",R0"::N9((BB27168VE%)256(BB37168VE%))3:N9N9128(N9RL((N9RL))):N%N9RL:D$"                        R NO. ";(222):43015&R" ERROR: ";RRI9(J9):(I9);:I9192J9J91:43010R:"AT LINE ";(218)(219)256;". PRESS RETURN.";:"'";A0$:216,0:370R(121)(122)25631: uiȩiȩiL9HD1:D(3)V1:VT%0IQ KF,F$F$(0),FD%(0):I1NF%1:E,F$F$(I),FD%(I):IiQKI0NF%:FD%(I)4FD%(I)4pQKIvQ(KQ54915:(13);D$"CLOSE":0:49153,0:1002:::10:I9(222):I977370:I90I915ĺ"A/S";:J953856I9(I9255):43008R"DOS ERRO,P$,CN%,Q$,VT%,RP%,TF%,J,J,J,SS,CH$,HD%,VE%,S1,D1,V1,J,J,JPFHFD%(NF%),H$(NF%),PR%(NF%),HT%(NF%),F$(NF%),TL(NF%):I0NF%:FD%(I),H$(I),PR%(I),HT%(I),J,J,J,J,J:IQIHD$"CLOSE":RP%RP%2VT%5:ST%1:D$(1)"SLOT":D$(2)"DRIVE":D$(3)"VOLUME":D(1)S1:D(2)+CN$(CN%):CN%0CN$"NONE"5O +FD$""FD$"NONE"IO+ST%1ST$"ON"jO+ST%0ST$"OFF "O+PG%1PG$"YES":11040O+PG$"NO"O +ODHI(5):SUI49:A$(I):2070,SU:43000:PEH:D$"OPENSETUP."A$:D$"READSETUP."A$:NF%,RL%,RD%,SL%'FD$""İ1:(F$)110171:KK1:(F$,30):10173(N$,4,5)"SETIF"ĴFD$"12"3016:M1((N$,10,1))49:M1M17(M115):Z3$F$(M1):2030>RN0āKJI:(A$(K),5,4)"EXIT"JK:3016>RN0ĂK:0:1002:1270>(N$,4,4)"EXIT"ī3016?(N$,4,2)"DO"B((N$,7)):DO)7000:2030F=(N$,4,4)"GOTO"ĴFD$"12"3016:J((N$,9))1:3016a=(N$,4,3)"CLT"2025=FD$"12"3016:Z4((N$,9))1:Z41Z4((N$,9))56=TL(Z4)(F$(Z4))>(N$,4,2)"IF"ĴFD$"12"3016:M1((N$,7,1))49:M1M17(M115):Z3$F$1))48:M1M17(M115):K$(M1)(N$,4):K$(M1)(K$(M1),(K$(M1))1):3016j<(N$,4,4)"PAGE"İ1600:3016<(N$,4,3)"GET"ĭ(N$,8,4)"NEXT"JJJJ1:(FD$"12")7000:2030<(N$,4,3)"GET"JJ((N$,7)):JJ0JJ1 =(N$,4,3)"GET"Ĵ(FD$"12",J1%1):A1$(N$,(N$)J1%1):+;CV%:51;7;t;AS$"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@";K0NF%1:L,F$(K)(AS$,FD%(K)):K:FD$"12":AR%01570:K1AR%:AR$(K)(AS$,AR%(K)):K:1570;H<(N$,3,1)" "M1((N$,3,N=NO CHANGE) ";IN$:7:IN$""12706:IN%(IN$):120<:H:&C%350:0:"R";:3:J1%J1%2::A$A$(18)A0$:(A0$)AR%AR%(A0$)::230:DD$:D$"PR#"SL%:P$""ĺP$;:E:NJ1%1A$"":A1$N$::bJ1%(N$)1A$N$:A1$"":;vA$(N$(J$):J1JI11780f9" ENTER ENDING LINE NUMBER ("J1"-"I1")?":5:"'";K1$:K(K1$):KJ11780v9KIKI19MK1I:A$(M1KJ)A$(M):M:IIKJ1:120912909":7::"LINE LENGTH="L%" INDENTATION IS ";IN%::"NEW INDENTATION (RTNE (Y/N)?":5:UC%2:5:(A0$"Y")1730:(A0$"N")1750:17108I27:"DELETE WHICH LINE (1-"I1")? ":5:"'";J$:J(J$):J1JIİ7:17308KJ1I:A$(K1)A$(K):K:II(I1):12097:"ENTER STARTING LINE NUMBER (1-"I1")?":5:"'";J$:JV%CV%3:1710#7}J1%(N$)1350A7J1%1(N$)1N$"":850c7J1%1N$(N$,(N$)1):17057J1%(N$)N$(N$,(N$)1):17057N$(N$,J1%1)(N$,(N$)J1%)71920:N$;"'";:230<8I1120:LI%0:CV%1:1:I21730:"DELETE ONLY ONE LI3:PNPN1:"PAGE ";PN;<6.VT%āDM1VT%:" ":DM:RC%VT%:G6/PG%ĺU60RC%PG%:v6@DM1RP%RC%:" ":DM:15816O(Q$,1)" "(Q$)1Q$(Q$,(Q$)1):16156Q(Q$)1(Q$,1)" "Q$(Q$,2):16176R6T7|A%E1%J1%1N$""Ė1:958:Cz#ԠҍàŠӮήŠӠŠԠάҠ٬ōΠŠӬŠŠά̠ԠӍĠŮŠŠϠ٠ӠˍŠǠԠҠˠҠˠԍЬӠӠŠĠϠάҠ̠Šź̠ҠӠōӠٮŠٮԍȠӠĠӠύĠҠ̠ҮŠŠˠΠƠŮԠӍŠӠĠҠΠŠˍ̍ŠŠԠΠԠˠ٠ŠĠҍӠĠӠخύŠ٠̠ӠԍԭԠӠȠҠ̮ĠӠϺӠǍήŠҮŠ̠ԠčōŠӠҠŠҍҠӠҠǠӠōՠΠҠ٠̠ҠŠǍҠĬҠˮƠՍĠŠĠΠٍՠ٠ŠԠҠԠŠŠԠĠҠҍٮŠĠΠԠӍĠ̠ŠՠōǺŠĠ΍΍ӠΠǠčǠҠŠ͍ŠŠҍŠҠéԠٍàŮ̠ӍĮŠŠӠԠĠ٠ƠӠ̠ŠύӠϠ٠٠נԠӠ̮ƠՠΠϠŠŠҍ    ̠Ԡ ŠԠԠ ӠҠ ҠӾàҠӠ ЮϠ   ӮŠŠU ԠҠLҠ1 Š Ҡ ӠΠ Ԡ Ϡ Ǡ Ү8Ү0Ӯ 33,0,141,105,3,173,106,3,233,64,141,106,3,76,102,3,32,234,3,32,251,218,169,1,133,81,169,114,133,80,32,65,217,76,210,215⍞5 HI HH"HH HH   -8hލ5H`Ն>ֆ?s ";DT$;:ASE" JI23010 ::295:D$"CATALOG":y '873,119:874,230:871,56:864:VE%1Ĺ1010,174:1011,190:1012,27: (1010,191:1011,157:1012,56: -JJ2:J1JI100 .B$A$(J) 15,((B$,7,1))?6D$"OPEN"B$:D$"READ"B$:NF,RL,RD,SN,P$33:32,7:" SELECT ONE: 1..SETUP A NEW DATABASE 2..MODIFY A DATABASE"s BJ3:I1āJ3I1:J"..RUN "Q$(J2):J CJ"..QUIT" d23:1::" ";::16384,128:J(16384)176:16368,0:" "::1 J1J2ģ37000:104,12:3072,0:D$"RUNCREATE DATAB13,76:1014,6:1015,1548 2:25:1:"VER. 4.0":I:768l 7VE%1Ĺ252,0:253,181:969,0:970,253:971,180~ 8NR,0:NR1,0 <I1:F,F$F$(0),29 >C,S,I:(F$,4)"ETUP"A$"S"F$:1000:II1 ?I8(F$)162H A:1:"":49153,0:34,8::33,23:1:"COPYRIGHT 1983 BY SYNERGISTIC SOFTWARE";S A0$"":J0:34,23:NR37886:D$ I864878:J:I,J:I:VE%1Ĺ768,96:D$"BRUNDBFILES.64":NR46334:50 I768792:J:I,J:I:I864898:J:I,J:I:I955974:J:I,J:I -D$"BLOADDBFILES.48":10:D$"CLOSE"7 VE%1((978)157)ĺ:(4)"BRUNDOS>LC"[ ::3:1::200):5:12:426 "THE DATA REPORTER":15:" "::19:"BY ":12:"ROBERT C. CLARDY ":10:"CHRISTOPHER P. ANSON ":11:"MICHAEL D. BRANHAM "0 10:"LOREN H. ENGRAV, M.D.":X ::255:(64435)6ĺ(4)"PR#3":(21):49153,0:(4)"MAXFILES1":15700:42955,76:42956,211:42957,167:40993,24:40994,234:40995,234:43310,24042550,68:42551,166 D$(4):D$"OPENVERSION 4.0":D$"READVERSION 4.0":VE%,S1,D1,V1  Q `20`D$(4),` D$"BRUNGREETING"P`216,0:D$"CLOSE":D$"RUNHELLO"C G,N1:M%N256:NR1,M%:NR,NM%256:MZA$((A$)1):MZ0Nm375:J1(A$)|nA2$"":CV1:36,CH:T3ĺA$;:868:T30:oA$(A$,J1):206:510:A1$" ";:pN0ĉ::"NO RECORDS ON FILE":140qIrI1D%(NF):"-";:I::U0NF1:JR%(U):J_B21A0$(NS$,J1,1):A0$;:B50:A0$""A0$" ":A0$;J`B1FF:85caB8J11ĺ" ";:82wbB32ĺ"";:85cFB50A0$(B32(B64B91)):"";A0$;dJ1FLJ1FL1:" ";:85hA$A$A0$:J1J11:85<lP,N1:G,T(T1):A$F$(U):TZB68A(U)6A$YR$:D:XX2630:XXXX(XX28):A$A$((1024XX)128):XX:109\B47A$SL$(U):J1(A$):J10110::520:"ENTER DEFAULT FOR "H$(U);:76:SL$(U)A$::520:110]B13110^B8J11J1J11:" _";:A$(A$,J1(J11)):828V(37):CH(36):J1FL:"_";:J:CS540CQF0:CV1:36,CH:510SRJ11A$""zSB(NS$)J1:B0A1$A$(NS$,B1)TNS$A1$UA2$(NS$,J1,1):4:B13B21ĺA0$;VJ11B3299:J1193:MZ(B59):MD1(B58B59)108XB58A$I1$:D$"READ"I$",R0"::N9(46338)256(46339)3:N9N9128(N9((N9RL)RL)):N%(N9RL):D$"CLOSE":G975,RL:IN%U:D$"OPEN"I$",L"RL:D$"READ"I$",R"I",B4"::D$"CLOSE":HFLD%(U)2(A(U)6):IT31:76J2LNS$"":J11:A1$"":510)NC12:CT" RECORDS FOUND":I11000::RN064:SR(2)SR(3)276:370<A1$((100(A1$).51)100):F3:I23:((A1$,I))46(A1$)IF3I>I:FA1$A1$(".00",F)@B34,22:35,23:33,1::D$"PR#";SN:P$;EdF975,4:D$"OPEN"I$",L"RL:,47,48 .A$ED$:494 /A$((F$(EF))(ED$)):49O 0A$((F$(EF))(ED$))r 1A(EF)1ĭ(ED$)45A$" "A$ 2B13:EE1:UEF:359:EE0:RM1:P,S 4SR(4)J1:TS:228 6SN28 8SM(1)1S$(0)" "S$(0):(S$(0))D%(SF(1))27A:::10:3:210:MD0z $SR(6)044:1:D$"NOMONS"S1",D"D1:L,F$"":C,_,1:I0:N$"_TEMP":((F$)1)38:D$"OPEN"N$:D$"READ"N$:I &G,S:II1:D$"CLOSE":D$"OPEN"N$",L"RL1:D$"WRITE"N$",R0":I:D$"WRITE"N$",R"I:F$:D$"CLOSE" ,CTCT1:8 -SR(5)152,46: RF,0:RF1,0:S0a SS1:SM(1)1įL,F$(SF(1))S$(0):S,F$(SF(1)),S:S(RF)256(RF1)q S1SN56 G,S:TS:SF(SM(1)1)āZ(SM(1)1)1SF:SM(Z)14,18,22:Z SR(1)İ210:G,S "SR(2)ĺ(21):304:1:D$"PR#0":SR(1)SR(5)PC0:MDк(A$,23);:25:CT:CT0:A$F$(U):b JD%(SF(Z)):K(S$(Z)):I1JK1:S$(Z)(F$(SF(Z)),I,K)ıo I::28 I(F$(SF(Z))):IMX(Z)IMN(Z)ı :28 JD%(SF(Z)):K(S$(Z)):I1JK1:S$(Z)(F$(SF(Z)),I,K)ġ:28 I: S$(0)S$(1):A(K)6K1(F$(K)):TL(K)TL(K)K1:T3(K)T3(K)K1; K:] K0NF1:TL(K)0:T3(K)0:: 515:B8066:1:" "H$(U);:25:"COUNT ":G,1:A$F$(U):CT1:J2N:G,J:A$F$(U)İ13:(16368)155140 CTCT1:J:13:D$"PR#0"::520:140" 375:y6 364C,a,I:A$((F$(Z1))(F$(Z2))):BA(Z3):A$((A$).0001(B3B5(A$)0).0001(B3B5(A$)0)):208A2$""A2$" ":A2$"";::B(16384):B128įD:516368,0:BB128:A0$(B):B27370:2 K0NF1:A(K)1                   9 X v  v   v Lv - ɍ$' % U L U LX%$ "  v ,LX   ` ԍԍōϲӠ٠٠ϠŠ Նsֆt8ӆԆeiejӆԆghȱȘeiȑDSEARCH KEY":72:76:S$(L)A$:A(U)6S$(L)F$(U)#W2ė:" MINIMUM VALUE?":72:76:MN(L)(F$(U)):21:" MAX":868:76:MX(L)(F$(U))# I(SF(L)17):3SF(L)18I:1520I:("MATCHRANGEEXCL.",W54,5)#L:CT0:10:SR1:RN0İ26:370D$D(1)S78:S1D(1):D1D(2)v":" SEARCH HOW MANY FIELDS?":M9:186:SFW:334:SR0:L1SF::" SELECT FIELD "L:185:SF(L)U1#:" 1)..MATCH 2)..NUMERIC RANGE 3)..EXCLUSION WHICH OPTION FOR FIELD "(W487(W9))"?";:M3:186:SM(L)W:USF(L):W2ė:" ENTER TA 6)..SAVE TO NEW FILE 7)..MULTIPLE FILES WHICH?";:M90l!17:11:186:W0W8SR(W)1:8W:1:4)!W35250:SR(7)ĺ:112!33,32::SR(5)İ132!SR(7)İ134!RNė:158!RN0İ112"SR(6)ė:" SAVE TO WHICH DISK?":34,6:3" SORT BY 1, 2, OR 3 FIELDS?":M3:186:334:F1W:21F:F:"SELECT SORT FIELD "F" ";:185 "-"H$(U):B(F)U:B(F1)U:B(F2)U:F:X,F$(B(1)),F$(B(2)),F$(B(3)):::10:10:"SORTED, ";:140=!"1)..DISPLAY 2)..PRINT 3)..TOTAL 4)..DELETE 5)..EDIT DA256M%:SS(S0):TT1:RM1:nB80235:EC80İ520:"COLUMNAR OR SCREEN (C/S)?";:4:B83İ66:::234~(21):304D$"PR#0":210B13B21ıB8TT(T1):210214112:155:142210:TT1:TN242:370\ 124::7PC(PC1)(PCPG%(NF)):210JB69T4T:354:TT4:P,T:RM1:MD0:214^B74İ154:210mB68232520:"DELETE HOW MANY? ";:FL3:73:J(A$):J0214TJNJNT1JTNāITNJ:G,IJ:P,I:INNJ:M%N256:NR1,M%:NR,NEEİ72:740A(U)2įL,F$(U)A$:A1$F$(U):\A(U)6İ376:L,F$(U)A$:377:A1$A$:A1$((A$)):M,F$(U)A1$:A1$F$(U):510:120345:G,TUF7F8:540:UMD3ı1:"";:530:SRĺ"SEARCH IN PROCESS";4:530:B7;:PCPG%(NF)PCPC1::520:"PRESS RETURN ";:4:198[RM1:P,N1:NN1:214:194T11:ZN204:PQ1ZN:UZ3(PQ)Z3U:Z1Z1(PQ):Z2Z2(PQ):L,F$(Z3(PQ))(Z5(PQ)):2089,Z4(PQ):PQZN:PQ:3PQEEPG%(U)PC199:TFUNF1360 W1:A0$;:32,0:" STARTING A NEW FILE ERASES ALL RECORDS IN MEMORY. ENTER NEW FILE NAME OR ESC FOR MENU":FL20:73:I1$A$:374:NR1,0:NR,0:N0PC0:TN1:TRDĺ"FILE FULL. START A NEW FILE.":140L,F$""345:UF7F8:202:T10:U",A"NRN%RL1:RM0:N256(NR1)(NR):MD6āT1N:304:T:D$"PR#0"RSRİ26sRMĺD$"NOMONS"S2",D"D2:386QQ1:164M90:186" WHICH?";:186MNF4:WB487(B63):M90(W27W35W40)ı(W1WM)M50186 U(A$):T1TNT1aRMĺ" SAVE MODIFIED WORKING FILE FIRST (Y/N)?";:4:B89ĉ::380g873,119:874,230:871,56:864:Q1D$"NOMONS"S2",D"D2:IQ:2:I1$(F$,20):(I1$)1I1$"":NR,0:NR1,0:F374:130:70:D$"BLOAD"I$185:Q2U(::34,2:EC80ĺD$"PR#3"6515:2:UQ1:G,T:A$F$(Q1):375:B$A$:Q21A$F$(Q2):UQ2:375:B$B$" "A$T;:5:(B$,3440(EC80)):TT1:TN(16384)155148:::140520"WHICH RECORD (DEFAULT=1) ";:FL4:73:TD1(M)D1(B48D1)(B48):D1(M);:33:"";A0$:V1(M)(A0$):33:(37):V1(M):M:n"PRESS RETURN";:4:370" QUICK LIST (Y/N)? ";:4:B89ı " USE FIELDS "Q11" AND "Q21" (Y/N)?";:4:B78İ334:"NEW FIELD 1 ";:185:Q1U:" NEW FIELD 2 ";:.REPLACE 2)..ADD 3)..MULTIPLY":M3:186:SR(5)W::" WITH WHAT DATA? ":UEF:72:76:A$F$(U):375:ED$A$:::34,11:" HOW MANY DISKS? ";:M90:186:" SLOT","DRIVE","VOLUME":RNW:M1RNQM". ";:4:4:S1(M)S1(B48S1)(B48):S1(M);:17:4::M2:176:WW6:W10450:N2ĺ" NOT ENOUGH RECORDS TO SORT PRESS RETURN":4:370Z}~520:"ARROWS=NEXT FIELD M=MORE FIELDS RETURN=SELECT ESC=MENU";:::10:5:"PROCESSING FILE "I1$:j334:21:1:"EDIT WHICH?";:185:EFU:" 1).1J6A1$(T3(U)):T3(U)0:36,H%(U):60:M,F$(U)A1$:A1$F$(U):119:G,TasU::CH$:RCRC3:owPCPG%(U)xFA(U):F3F5İ60:M,F$(U)A1$:A1$"$"F$(U)zEESR(1)1ĭPG%(U)PCĺA1$" ";{T|" 1)..ON-LINE FILE 2)..MULTIPLE FILES ";D(I)(A0$):VD(3):37853{D$"NOMONS"D(1)",D"D(2):z3|378::" 1)..LOAD 2)..SAVE 3)..APPEND 4)..DELETE 5)..CATALOG "3}M5:176::W382,384,388,400,3983~158:B$"LOAD":412:70:D$"BLOAD"I$",A"NRN%RL1:RM0:3704B$"SAVE":112:412:386:0,436,3282vI$(SU)I1$:,2wA(U)6ıX2x(A$)8A$(A$,2)(A$,2)(A$,4,2):2yA$(A$,3,2)"/"(A$,2)"/"(A$,2):3z:I13::I". "D$(I)" = "D(I);:I:" CHANGE ANY (RETURN=NO CHANGE)?";:174:W0W4ĺ" NEW "D$(W)" # ";:IW:"";A0$:0:MD0:T30:RCRP1:I17:SR(I)0:I:SR0:4261sN(NR)256(NR1):P11:A$Q$" MAIN MENU":500:I19:I")..."M$(I):I::32,0::38);:5:N" OF "RD" RECORDS "38);:5:"FILE = "I1$" " 2t:4:M9:176:A$M$(W):500:W192,194,240,248,244,277,38:V3V1:D(1)S1:D(2)D1:D(3)V1:969,RJ:F,F$F$(0),D%(0):I1NF1:E,F$F$(I),D%(I)::YR$((48402)128)((48403)128)11r1:873,119:874,230:871,24:864:I:(21)D$"PR#0":D$"CLOSE":49153,0:C(0):S90:UNF:C0:CT0:T0:RN0:ST0:F0:T10:PC0:CS(I),V9%(I),PG%(I):I:ZNāI1ZN:Z1(I),Z2(I),Z3(I),Z4(I),Z5(I):I/pEC:D$"CLOSE":I19:M$(I):I:START A NEW FILE,ENTER RECORDS,LIST,SEARCH,SORT,OUTPUT,DISK ACCESS,SPECIAL FUNCTIONS,TERMINATE{0qD$(1)"SLOT":D$(2)"DRIVE":D$(3)"VOLUME":S3S1:D3D1NSETUP."A$:D$"READSETUP."A$:NF,RL,RD,SN,P$,CN,Q$,VT,RP,TF,RJ,Q1,Q2,SS,CH$,HD%,VE%,S1,D1,V1,CB%,ML%,ZN:SL$(NF),D%(NF),H$(NF),R%(NF),H%(NF),F$(NF),TL(NF),T3(NF),H8%(NF),V8%(NF),H9%(NF),V9%(NF),PG%(NF):I0NFB/nD%(I),H$(I),R%(I),H%(I),H8%(I),V8%(I),H9%1)"":I0NF2:JA(I):J4J5KK(F$(I)):K(K100.51)100x-iI:A1$(K):UNF1:M,F$(U)A1$:A1$F$(U):510:120-kMD0:T10:CS0::1:-lNR46334:RF800:N0:B(5):D$(13)(4):I(5):SUI49:2065,SU:A$(I):A(U)(R%(U)):426.mD$"OPE" ";:B8B21B10B11UU(B21B10)(UF8)(B8B11)(UF7):355b,dB77PCPC1:210:354,gB13355::520:1:CS1:202:ZNāPQ1ZN:UZ3(PQ):Z3U:Z1Z1(PQ):Z2Z2(PQ):L,F$(Z3(PQ))(Z5(PQ)):2089,Z4(PQ):3:PQ@-hT11:TF363:K0:M,F$(NFYF8NF1:F7NF:PCPG%(NF)PC0;+Z:::EC80ĺD$"PR#3"Y+["RECORD # "T" PAGE "PC1+^:U0NF1:PG%(U)PCİ353:F7NFF7U+_PG%(U)PCF8NF1F8U1+`U::+aV8%(U):36,H8%(U):H$(U);:+b126:MD3:G,T:UF7F,c:353:4::353::M":"*M" # TITLE TYPE ";:D*N::2::333:NF18Ė20:333*R:34,2::I1NF:2:(I487(I9))" "H$(I1);12(H$(I1)));("D$#$#A A#$#$D",R%(I1)7,1):I18Ĺ32,20:33,20:*TI::34,20::*V346:MD3İ520:"EDIT WHICH? ";*X +U)6A1$(TL(U)):36,H%(U):A1$(TL(U)):A2$F$(U):60:M,F$(U)A1$:A1$F$(U):119:M,F$(U)A2$:A2$" ")GU::IRC3RPVT1:CH$:I:RCRP1:)H158*L32,0::34,0:160:216,0:1010,174:1011,190:1012,27::"TYPE 'GOTO 370' TO REENTER THE PROGRA:114:B$F$(ST):5805(>LA1:U0NF1:R%(U)1321X(?UĭH%(U)(LA)ĺ:RCRC1:580(@LAH%(U):36,LA:A$F$(U):375:A1$A$:119(AU:SR08:RCRC1(C(D66:RCRP23S9İ590(ES9İ114g)FI1D%(NF):"=";:I:CH$:U0NF1:R%(U)1R%(FTER WHICH FIELD CHANGES?":185:STU:G,T:B$F$(ST)C''RNĺ:112'(::10:10:"PRESS ESC TO HALT":RNSR(3)1:SR(2)1:274',304:TNTT1:300'.ML%324:370'0(16384)155İ700'266:G,T:RCRPİ590'8S90B$F$(ST)318(<580I)(A$):(H%(I)D%(I))D%(NF)283::JA(I):R%(I)J2J(A$""):A$""285:IH%(I)(LA)ML%1m&LAH%(I)&I::32,8:281&134:MD6:281&154:281& "PAGE NUMBER?":FL3:73:PN(A$)1:RCRP1:281&"S91:2813'&S9İ334:" SUBTOTAL-ARECORD # 2. NEW PAGE # 3. SUBTOTALS 4. MULTIPLE FILES 5. NEW FORMAT WHICH?";:34,15o%:174:W1W5294%7W:1:" "::W287,288,290,286:ML%0:LA1:32,0::I0NF1:H$(I);:13:"LENGTH= "D%(I);:24:"NEW TAB = ";:FL3`&34:868:73:H%(1(1):D(2)D1(1):D(3)V1(1):Y1RN:S2S1(Y):D2D1(Y):VV1(Y):162:Y{$SR(2)SR(3)ML%324:SR(3)(SR(2)ML%)442:370$"1)..STANDARD FORMAT 2)..REPORT GENERATOR 3)..LABELS 4)..PLOTTER WHICH?";:M4:186:WW1:W450W%T1::" 1. STARTING V"V:L,F$"":C,_,1:I0:N$"_TEMP":((F$)1)38:D$"OPEN"N$",V"V;D$"READ"N$:I &G,S:II1:D$"CLOSE"D$"OPEN"N$",L"RL1:D$"WRITE"N$",R0":I:"WRITE"N$",R"I:F$:"CLOSE" ,CTCT1:8 -SR(5)46,47,48:52 .A$ED$:49 /A$((F$(EF))(ED$))SS1:SM(1)1įL,F$(SF(1))S$(0):S,F$(SF(1)),S:S(RF)256(RF1)V S1SN56 G,S:TS:SF(SM(1)1)āZ(SM(1)1)1SF:SM(Z)14,18,22:Z SR(1)İ210:G,S "SR(2)İ304:D$"PR#0" #D$"PR#0"O $SR(6)044:1:D$"NOMONS"D(1)",D"D(2)",T3(K)0::I JD%(SF(Z)):K(S$(Z)):I1JK:S$(Z)(F$(SF(Z)),I,K)ıV I::28~ I(F$(SF(Z))):IMX(Z)IMN(Z)ı :28 JD%(SF(Z)):K(S$(Z)):I1JK:S$(Z)(F$(SF(Z)),I,K)ġ:28 I: S$(0)S$(1):: RF,0:RF1,0:S0F 3- 364C,a,I:TA$((F$(Z1))(F$(Z2)).0001(A(Z3)3A(Z3)5)):208:"_";::"";:16384,128:A0$:16368,0:B(A0$):" ";:B27370:K0NF1:A(K)1K1(F$(K)):TL(K)TL(K)K1:T3(K)T3(K)K1 K: K0NF1:TL(K)0:               U0NF1:R%(U)0Ĺ36,H%(U):H$(U);*>lU4>q::x>D$"PR#0":16368,0::520:"PRESS ANY KEY TO CONTINUE":4:520T$(U);>lU>q::>D$"PR#0":16368,0::520:"PRESS ANY KEY TO CONTINUE":4:520NT";:35,23:=:23::8683=22::868:2:V=511:A$F$(U):375:A1$A$:120c=DRCRPı=NP1āIRCRPVT1:CH$:I=SP10:SSİ700:66=XRC0:I1VT:CH$:I:PNPN1:36,H%(NF):"PAGE "PN;:RN0ĺ" FILE = "I1$;=]" ":ML%625#>b"V<"DOS REMOVER,V"V,<"CONVERTER,V"V<<"MERGE,V"Vw<::5::19(A$)2:" "A$" "::32,8:34,5:" ":<T1ı<H9%(U)0I(H9%(U)):32,I:33,ECI<V9%(U)1::H9%(U)0Ĺ36,H9%(U)< =520:" CTRL-S = PAUSE. ESC = ABORDRIVE "D3" AND PRESS ANY KEY";:4:D$"NOMONS"S3",D"D3:VV3:37000:D$"RUN";:W456,458,459,460,462,463,464,469:370;"REPORT GENERATOR,V"V;"LABELS,V"V;104,64:16384,0:"PLOTTER,V"V;104,12:3072,0:"CREATE DATABASE,V"V<"REFORMATTER,V:8:IV:345:1::1:"TOTALS ":UF7F8:511:A1$(TL(U)):IA(U):I1I6İ120t:U::520:"RET=CONTINUE":PG%(NF)0ĺ" 'M'=MORE";:174:A0$"M"PC(PC1)(PCPG%(NF)):442:370s;158:32,0::" INSERT PROGRAM DISK IN SLOT "S3", WHICH?";59M7:186::W3450:112:W440,438,439o9132:SF1:SF(1)0:SM(1)1:L,F$(0)"":S$(1)F$(0):269334:" COUNT WHICH FIELD?";:185:" TO SCREEN OR PRINTER (S/P)?";:4:::11:370:::10:11::"CALCULATING TOTALS"::10:I1N:G,I92JJ1:432M8" AT LINE "(218)(219)256". ";:216,0:16368,0:140c816368,0:4:370 9" 1)..DISPLAY TOTALS 2)..GLOBAL EDIT 3)..COUNT OCCURRENCES 4)..NEW OR MODIFIED SETUP 5)..REFORMAT RECORDS 6)..PREPARE DATA DISK 7)..CONVERT DATA FILES 4:BB48:B0BKIB9J:2:N$I1$:I1$(F$,20)::374:408d77:1:958:JJ1:K1:(F$)3414m74127A2$" "::::10:I(222):I77370:I0I15ĺ"A/S ERROR: ";:J53856I(I255):4327"DOS ERROR NO. "(222);:434 8I(J):(I);:I1D$"CATALOG":67:J0:K1T6IK9J:2:(F$)3K10ĺK". "(F$,20):KK1:4146(W2)420:" SAVE WHICH FILE (RETURN = LIST)":I1$""ĺ"PRESS ':' FOR "I1$6MD1:FL20:KJ:73:JK:A$""422:I1$A$:374=7:B$" WHICH ONE (RETURN=MORE)?";:" RECORDS APPENDED OUT OF "N%" IN "I1$:140U5410:" PRESS RETURN";:4::500:3805B$"DELETE":412::" DELETE FILE "I1$" (Y/N)?";:4:B89ĺD$"DELETE"I$5I1$N$:374:3705W3I1$N$:374532,0:" ":8:B$"ING "I1$:6:34,2::37024D$"BSAVE"I$",A"NR1NRL",L"NRL3:RM0:4B$"APPEND":412:70:NN%RDINR1NRL:J(I):K(I1):L(I2):D$"BLOAD"I$",A"IN%RL:I,J:I1,K:I2,L:NNN%:M%N256:NR1,M%:NR,N256M%:UN%:3924U1N%:71:P,NU:NURDĂU+5:UC8PC8J:32U16PC:A1$F$(U):1:120:U::34,20T10:34,18::22:"ARROWS=NEXT RECORD";:32,24:" ESC=RTN TO MENU 'E'=EDIT 'D'=DELETE 'P'=PRINT":NF8ĺ"'/'=SCROLL";:1:34,20:SRĢ21:"SEARCH IN PROCESS"4:21:B47PCPC1:210)";:25:"':'=DITTO "H$(U)" FIELD":T11:73:T10:LA(U)2įL,F$(U)A$:(A$)ĭ(A$)43(A$)45A$((F$(U))(A$))A$((A$)):M,F$(U)A$:A1$F$(U):UPC8U8PC8Ģ32U16PC:16:120346:G,T532,15:33,25:34,1::UPPC1:21:1:958:"PRESS RETURN":4:198KRM1:P,N1:NN1:214:194:T11:ZN204:PQ1ZN:UZ3%(PQ)Z3U:Z1Z1%(PQ):Z2Z2%(PQ):L,F$(Z3%(PQ))(Z5(PQ)):2089,Z4%(PQ):PQZN:PQ:3PQ1TFUNF1360:EEĢ21:1:958:"ENTER DATA FOR::34,3:11:" STARTING A NEW FILE ERASES ALL RECORDS IN MEMORY. ENTER NEW FILE NAME":FL20:74:I1$A$:NR1,0:NR,0:N0PC0:TN1:TRDĉ::10:7:"FILE FULL. START A NEW FILE.":140L,F$""+346:UPC8PC8J:202::U:UNFPC6(NR1)(NR):MD6āT1N:304:CT1:T:D$"PR#0"?SRİ26`RMĺD$"NOMONS"S2",D"D2:386oQQ1:164}M90:184" WHICH?";:186MNF23:14:WB487(B63):M90(W27W35W40)ı(W1WM)M50SR0186UW176:T(A$):T1TNT1iRMė:" SAVE MODIFIED WORKING FILE FIRST (Y/N)?";:4::B89ĉ::378owQ1D$"NOMONS"S2",D"D2",V"V:IQ:2:I1$(F$,20):(I1$)1I1$"":NR,0:NR1,0:3130:70:D$"BLOAD"I$",V"V",A"NRN%RL1:RM0:N25T LIST ";:35,23:CV1:1CG,T:A$F$(Q1):Q21A$A$F$(Q2)vT;:5:(A$,34):TT1:TN(16384)12714816368,0:CV(37):35,24:24:6:"ESC = MENU RETURN = CONTINUE";:174:(TN)146:370" WHICH RECORD NO. (DEFAULT=1)":FL4:M". ";:4:4:S1(M)S1(B48S1)(B48):S1(M);:17:4:D1(M)D1(B48D1)(B48):D1(M);:33:"";A0$:V1(M)(A0$):33:(37):V1(M):M::14:"PRESS RETURN.":4:370" QUICK LIST (Y/N)?":4:B89ı::CV024:6:" PRESS ANY KEY TO HALSING FILE- "I1$:335:34,20::"EDIT WHICH?":182:EFW1:" 1)..REPLACE 2)..ADD 3)..MULTIPLY":M3:186:SR(5)W::" WITH WHAT DATA? ":UEF:73:ED$A$:::34,11:" HOW MANY DISKS? ";:M90:186:A0$" SLOT","DRIVE","VOLUME":RNW:M1RN(U):120%uU::G,T:CH$:RCRC3:YxFA(U):F3F5İ60:M,F$(U)A1$:A1$"$"F$(U)pzEESR(1)1ĺA1$;v{|" 1)..ON-LINE FILE 2)..MULTIPLE FILES ";:M2:176:WW8:W10450:N2370:~:"EDIT WHICH?";::10:5:"PROCES1:M%N256:NR1,M%:NR,NM%256:J1(A$)1:A$\nCV(J125):J125(J125):FLJ11):pN0ĉ::10:6:"THERE ARE NO RECORDS ON FILE":140qrI1D%(NF):"-";:I::U0NF1:A1$(T3(U)):T3(U)0tR%(U)1Ĺ36,H%(U):M,F$(U)A1$:A1$F$11)):"_";:84@^B21A0$(NS$,J1,1):B50:A0$""A0$" "R`B1FF:86wbFB50A0$(B32(B64B91))dJ1FLJ1FL1:"";:84fB32ĺ"";:84hA0$"$"J11A$A$A0$jA0$;:J1J11:840lP,N1:G,T(T1):A$F$(U):G,N,25:CV32U16PCFNCV:868:J1FL:"_";:J:CV:1:CSNS$F$(U)zP(NS$)1ĭ(NS$,1)" "NS$(NS$,(NS$)1):80RNS$;:CV:1TJ11A$""V4:MD1J11B58A$I1$:XJ11B58108ZB13110\B8J11J1J11:A$(A$,J1(J6(39171))3:N%(N9128(N9RL(N9RL)))RL:D$"CLOSE":H975,RL:IN%U:D$"OPEN\"I$",L"RL:D$"READ\"I$",R"I",B4"::D$"CLOSE":IFLD%(U)J19:22:" RTN=CONTINUE ":25:"ESC=RTN TO MENU":23LF0:J11:NS$"":CV(37)1:T1Ĺ32,15:33L <A1$((100(A1$).51)100):F3:I23:((A1$,I))46(A1$)IF3Ii >I:FA1$A1$(".00",F)o @ B34,23:33,1::D$"PR#";SN:P$;:CT0ĺ:RCRC1 CCNČCN D;F374:975,4:D$"OPEN"I$",L"RL",V"V:D$"READ"I$",R0"::N9((39170)25:49 0A$((F$(EF))(ED$))B 1A(EF)1ĭ(ED$)45A$" "A$d 2EE1:UEF:359:EE0:RM1:P,S| 4SR(4)J1:TS:228 6SN28 8SM(1)1S$(0)" "S$(0):(S$(0))D%(SF(1))27 :::10:12:CT" RECORDS FOUND":RN064:SR(2)SR(3)276:370I),D%(I):I:RJĹ39162,226:39163,148+r42615,24:768:D$"PR#0":D$"CLOSE":C(0):S90:U0:C0:CT0:T0:RN0:ST0:F0:T10:PC0:CS0:MD0:N256(NR1)(NR):I17:SR(I)0:I:SR0:4269,s::15(Q$)2:Q$" MAIN MENU":I19:" "I")..."M$(I):I::NR37886:D$"CLOSE":I19:M$(I):I:RCRP1:START A NEW FILE,ENTER RECORDS,LIST,SEARCH,SORT,OUTPUT,DISK ACCESS,SPECIAL FUNCTIONS,TERMINATE:D$(1)"SLOT":D$(2)"DRIVE":D$(3)"VOLUME":D(1)S1:D(2)D1&+pA(U)(R%(U)):F,F$F$(0),D%(0):I1NF1:E,F$F$(OPENSETUP."A$:D$"READSETUP."A$:NF,RL,RD,SN,P$,CN,Q$,VT,RP,TF,RJ,Q1,Q2,SS,CH$,HD%,VE%,S1,D1,V1,J,J,ZN)mD%(NF),H$(NF),R%(NF),H%(NF),F$(NF),TL(NF),T3(NF):I0NF:D%(I),H$(I),R%(I),H%(I),J,J,J,J,J:I:ZNāI1ZN:Z1%(I),Z2%(I),Z3%(I),Z4%(I),Z5(I):*nQ):Z2Z2%(PQ):L,F$(Z3%(PQ))(Z5(PQ)):2089,Z4%(PQ):3:PQ(hTF363:K0:M,F$(NF1)"":I0NF2:JA(I):J4J5KK(F$(I))(iI:A$(K):UNF1:208(kCS0::33,4:::f)lSU(5):A$(SU):SUSU49:2065,SU:RF800:N0:B(5):D$(13)(4):D$"AGE "PC1"'\JNF1PC8:J7J7X'^3::IPC8JPC8:5:10);:5:H$(I)" ":I::u'b3:1:JNFPC8:J8J8'dIPC81PC8J:(I487(I9));").. ":I:'fMD3:354:126:182:(U8)PCı;(gCS1:202:ZNāPQ1ZN:UZ3%(PQ):Z3U:Z1Z1%(P:10:"TYPE 'GOTO 370' TO CONTINUE.":K&M" # TITLE ";:SRĺ"TYPE ";Q&Np&O:::333:NF18Ė20:333&R34,1:::I1NF:2:(I487(I9))" "H$(I1):I18Ĺ32,19:33,20:&TI::34,19:: 'Z::PCPC(PC8NF):TĖ13:"RECORD # "T" P"PAGE "PN" ":U0NF1:R%(U)0Ĺ36,H%(U):H$(U);>%BU::D%Ct%D66:S9114:325:IRCRP:CH$:I:RCRP1:%EI1D%(NF):"=";:I:CH$:U0NF1:R%(U)1A1$(TL(U))%F116%HRMĢ10:158:332&&L42615,56:1010,191:1011,157:1012,56::0":FL0:::74::F10/$266:G,T:RCRPİ321G$8S90B$F$(ST)318_$<114:B$F$(ST):320$>U0NF1:R%(U)0Ĺ36,H%(U):A1$F$(U):120$?U:SR08:RCRC1$@RCRP323:IRCRPVT1:CH$:I:SS3043%AI1VT:CH$:I:RC0:PNPN1:36,H%(NF):CRP1:292#"S91%#$32,5::282n#&S9İ335:" SUBTOTAL - WHICH FIELD?":MNF:184:STW1:G,T:B$F$(ST)#(::10:10:"PRESS ESC TO HALT":RNSR(3)1:SR(2)1:274#,304:CT1:TNTT1:300#.324:370$0(16384)155F1Ĺ16368,0:D$"PR# ";:M4:176:WW1:W450"T1::" 1. STARTING RECORD # 2. NEW PAGE # 3. SUBTOTALS 4. MULTIPLE FILES WHICH?";:M4:34,11"174:W1W4294"4W:" ":12:W286,288,290:134:MD6:292"154:292 # " PAGE NUMBER?":FL3:76:PN(A$)1:R4!L:CT0:I0NF1:TL(I)0:I:SR1:RN0İ26:370!D(1)S1(1):D(2)D1(1):D(3)V1(1):Y1RN:S2S1(Y):D2D1(Y):VV1(Y):162:Y!(SR(3)SR(2))324:(SR(3)(SR(2)))442:370"" 1)..STANDARD FORMAT 2)..REPORT GENERATOR 3)..LABELS 4)..PLOTTER OR FIELD "W"?":M3:184:SM(L)W:USF(L):W2ė:" ENTER SEARCH KEY":73:A(L)1įM,F$(L)A$:A$F$(L)s S$(L)A$ W2ė:" MINIMUM = ":73:MN(L)(A$):20:" MAX":73:MX(L)(A$) I(SF(L)18):2SF(L)18I:1520I:("MATCHRANGEEXCL.",W54,5)2SR(7)İ134%RNRMĢ19:1584RN0İ112OSR(6)S1D(1):D1D(2):" SEARCH HOW MANY FIELDS?":M9:184:SFW:335:SR0:L1SF::" SELECT FIELD "L:MNF:184:SF(L)W1f :" 1)..MATCH 2)..NUMERIC RANGE 3)..EXCLUSION WHICH OPTION FU:F:X,F$(B(1)),F$(B(2)),F$(B(3)):::10:13K"SORT COMPLETED.":140" 1)..DISPLAY 2)..PRINT 3)..TOTAL 4)..DELETE 5)..EDIT DATA 6)..SAVE TO NEW FILE 7)..MULTIPLE FILES WHICH?":M7184:W0SR(W)1:SR1:5W:4):250:SR(5)İ13::34,20:214B13B21ı7B8TT(T1):210@214S112:154:142q210:TT1:TN242:370/124::" SORT BY 1, 2, OR 3 FIELDS?":M3:184:335:F1W:21F:F:"SELECT SORT FIELD "F;:182:21F:23F:H$(U):B(F)U:B(F1)U:B(F2)B69T2T:358:TT2:P,T:RM1:MD0:2148B68232p958:"DELETE HOW MANY?":FL3:74:J(A$):J0214TJNJNT1JTNāITNJ:G,IJ:P,I:INNJ:M%N256:NR1,M%:NR,N256M%:SS(S0):TT1:RM1:B80İ304:D$"PR#0"Ч!П !`XL; r ! ߹ i ѹ() r ع*+ L, qi-. #% `8$``abc`deqr`%&`%'` % ` % L g RP-/Q.0`PQ$&P&Q Pm-PQm.Q8PQ`SL LqHqi / 0! #hQȱP P` L˸8 х 8 L` L8$Ɔ  !  #$`PH 0Lq/Lq #$`L P`Lޢ5LRLX %IePPLb ߅` %ȱPȱQ% P Ъ {$0Lvݩ {ڥ%%ȱȱ` ,LL` ,LLɾL ߠȱ  ߠȱ  i`I )?$ @$( $0I )`Fn ߅PȥQ L 抠ȥPȥePnPȥQ ; ͥP$ `G   GE,V"V12REMOVER,V"V1!5"CONVERTER,V"V125"MERGE,V"V1V1M5"CONVERTER,V"V1n542615,56:D$"BRUNMODEM,V"V1~5"USER,V"V15"MERGE,V"V1SS1NVERTER,V"V1542615,56:D$"BRUNMODEM,V"V15"USER,V"V15"MERGE,V"V1MERGE,V"V16"MER PRESS RETURN":4:D$"NOMONS"S1",D"D1:37500:D$"RUN";:W456,457,458,459,460,461,462,370,370,465}4"REPORT GENERATOR,V"V14"LABELS,V"V14104,64:16384,0:"PLOTTER,V"V14104,12:3072,0:"CREATE DATABASE,V"V14"REFORMATTER,V"V1 5"DOS TALS"::10:I1N:G,I:8:I3346:1:13:" TOTALS ":UPC8PC8J:32U16PC:16:A1$(TL(U)):A(U)1įM,F$(U)A1$:A1$F$(U):1203U:NF8Ģ21:25:"'/'=SCROLL"3174:A0$"/"PCPC1:4423370a4158::10:"INSERT PROGRAM DISK.)..DISPLAY TOTALS 2)..GLOBAL EDIT 3)..NEW OR MODIFIED SETUP 4)..REFORMAT RECORDS 5)..PREPARE DATA DISKS 6)..CONVERT DATA FILES":M6:184::WW1:W3450:1122W3İ132:SF1:SF(1)0:SM(1)1:L,F$(0)"":S$(1)F$(0):263::10:11::"CALCULATING TO'14:1:958:JJ1:K1:(F$)341401412n1::10:I(222):I0I15ĺ"A/S";:J53856I(I255):4301"DOS";:J43377(43583I)1" ERROR: ";1I(J):(I);:I192JJ1:4321" AT LINE ";(218)(219)256;".";:216,0:1402" 1"V:0J0:K1G0IK9J:2:(F$)3K10ĺK". "(F$,20):KK1:4140" WHICH FILE (RETURN=MORE)?":T2420:I1$""ĺ"PRESS ':' FOR "I1$0MD1:FL20:KJ:76:JK:A$""422:I1$A$:37414:BB48:B0BKIB9J:2:N$I1$:I1$(F$,27)::70!/U1N%:72:P,NU:NURDĂUU/:U" RECORDS APPENDED OUT OF "N%" IN "I1$:140z/410:" PRESS RETURN";:4::378/:" DELETE FILE "I1$" (Y/N)?";:4:B89ĺD$"DELETE"I$",V"V/I1$N$:370/W3I1$N$/0:34,2::D$"CATALOG,VD$"BLOAD"I$",V"V",A"NRN%RL1:RM0:3707.386:370l.D$"BSAVE"I$",V"V",A"37885NRL",L"NRL3:RM0:.NN%RDINR1NRL:J(I):K(I1):L(I2):D$"BLOAD"I$",V"V",A"IN%RL:I,J:I1,K:I2,L:NNN%:M%N256:NR1,M%:NR,N256M%:UN%:392NY (RETURN=NO CHANGE)?":174:W0W3HD%ĺ" NEW "D$(W);:" # ";A0$:D(W)(A0$):VD(3):378-|D$"NOMONS"D(1)",D"D(2)",V"V::" 1)..LOAD 2)..SAVE 3)..APPEND 4)..DELETE 5)..CATALOG ":M5:176::TW:W1158:T5412:T382,384,388,400,398).~N%RD370::38);:5:N" OF "RD" RECORDS "38);:5:"FILE = "I1$:,t" ";:M9:176::18(M$(W))2::" "M$(W)" "::33,35:34,3:32,5::W192,194,240,248,244,278,378,436,328,vI$(SU)I1$:[-z32,5::I12HD%::I". "D$(I)" = "D(I);:I:" CHANGE AP$,J,1)):K32Ğ:KK64) (K);::J:> R%(M)0ĺH%(M);T R%(M)1ĺ"NONE";Z C$""I(C$):I27Ğ:(I64);: B$;" ": Z4(I)43Z4(I)200: Z4(I)45Z4(I)201: Z4(I)42Z4(I)202: "Z4(I)47Z4(I)203 , 6LL10ĺLL; LL9ĺ(LL55);& A B(16384):B128138Y 16368,0:BB128:t 150:BB497(B64): :" ";::""; 16384,128:A$:B(A$):(EFLAGB27ES)1950:" ";: :34,2:35,10:: (P$)0ı J1(P$):K((S I122:J:767I,J:Il160,0,177,60,145,66,200,208,249,238,61,0,238,67,0,165,61,197,63,208,237,96~37400:2030(C$"''''''''''''''''''''''''''''''''''''''''''''''''''":E$" "560                           L LCL  j ȭhȭfȩȩ ȑ݊i#8   ȱҊi)``-L 58RN0İ112SR(6)S1D(1):D1D(2)o:" SEARCH HOW MANY FIELDS?":M9:184:SFC -!. Hh$𥉅` ! LT!LTLn  \ rL1`1!   \()  ,*+  = rLE z ߅m$PQL ɶ  )`MLi-. % `8$``abc`deqr`%&`%'` % ` % `bc  ,`qr  =`L3ч(%`b&dqb'X1 L3i w / 0! hQȱP P` LJ8 х 8 L/` L+8$Ɔ  !Ч!П !`XL z   ! \ , N()  = U*+ rL  wqLٕ %IePPL ߅` z %ȱPȱQ% P Ъ {$0Lvݩ {ڥ%%ȱȱ` ,LL g RP-/Q.0`PQ$&P&Q Pm-PQm.Q8PQ`SL z əLHqFo z ߅PȩQ L  w 抠ȥPȩePpPȥQ ; ͥP$ ʝ`G z $`PI z 0L/L $`L P`Lޢ5LR   ҮI? 4 o !L  کQrP AL׍` ט`ɺL % "( i@ ( `)h5`LÄɄ uiȩiȩiL91m `2^ РԠŠԠ Š<-->:Ϡ;/ԠŠDS 3iټ޼8H9H…9 h9h8`1!  ߹( *+ L,E ߅m$PQLɶ  )`MLL_L}CL) ޅ 6789    $0 HhL(`5H$0ɍ8hH`bc `qr `Lч(%`b&dqd'Z1 iL -!. # Hh$𥉅` ! Lٺ!LٺL󺥇 ߹  L,1`::" GENERAL INFORMATION ":: 770:I14:I840,850,860,870:I:" CHANGE ANY (1-4, RETURN = NONE)?":150:BB48:B0B4ıB800,810,820,830:780 170:" WHAT DO YOU WISH TO CALL THE NEW APPLICATION PROGRAM?":FL%25:470:FIELDS. IT IS RECOMMENDED THAT YOU LIMIT RECORD AND""FIELD LENGTH AS MUCH AS POSSIBLE TO ALLOW A MAXIMUM NUMBER OF RECORDS TO BE STORED ON EACH DISK. PRESS RETURN WHEN READY TO BEGIN.":150770:I14:I800,810,820,830:I:780:8802:A BASE PROGRAM IS AUTOMATICALLY MODIFIED TO YOUR SPECIFICATIONS AND SAVED. THEREAFTER, WHEN YOU BOOT THAT DISK, YOU MAY RUN YOUR CUSTOMIZED PROGRAM."4" THE TOTAL LENGTH OF EACH RECORD IS LIMITED TO 250 CHARACTERS CONTAINED WITHIN NO MORE THAN 35 THIS DATA BASE PROGRAM ALLOWS YOU TO MODIFY THE PROGRAM'S BASIC CHARACTER-ISTICS TO FIT YOUR PARTICULAR NEEDS. YOUWILL SPECIFY THE NUMBER AND SIZE OF ALL FIELDS, THEIR HEADINGS, AND EVEN A NEW""TITLE FOR THE PROGRAM. ONCE YOU HAVE DONE THIS, THE DAT ONE? ";:A$:I(A$)@A$"":(A$(I),6,1)"."A$(A$(I),7,1)W2290:A$""İ2300uA$""İ2310:NEW FORMATX1%0:W%D%(NF):PT%H%(NF):780:900:1050:1180:FG%1:460::380:1590:1710:ZN02000:ZN01780:2570:18102290::" " ALL FILES ON THIS DISK HAVE BEEN UPDATED. PRESS RETURN.":150:570Nl:mVE%0Ĺ1010,191:1011,157:1012,56:42615,56:n1010,174:1011,190:1012,27:v3000:104,8:2048,0:D$"RUNHELLO"XX1:300020000I1ĺ" MODIFY WHICH RECORDS ON IT. PRESS RETURN":150:I1:YY618g" ENTER THE NEXT FILE NAME TO UPDATE (RETURN=CATALOG, 0=DONE)? ";A$:A$""ĺD$"CATALOG":615hA$"0"570:D$"RENAME"A$","(SU);A$:615jC,\,1:(F$(0))3A$F$(0):D$"RENAME\"A$,(SU)A$:618FkARE THESE RECORD FILES ASSOCIATED WITH (1-"I")? ";:150:IB48e:" ARE THE FILES YOU ARE UPDATING 1. DATA REPORTER, VERSION EARLIER THAN 3.0 2. OTHER BINARY FILE";:150:YY(B49).fSU((A$(I),7,1))49::10:"INSERT THE DISK WITH YOUR "Q$(I)"C DATABASES TO VERSION 4.0 FORMAT 4) RETURN TO THE INITIAL MENU 5) QUIT";bXX0:150:1:BB48:B720,640,611,630,620:610cXX4:20000:I0ė:10:"YOU MUST MODIFY YOUR OLD SETUP FIRST. PRESS RETURN.":150:570>dI1ĺ" WHICH SETUP EDS."N"YOU MAY EITHER CREATE A NEW DATABASE OR MODIFY SOME FEATURE OF A DATABASE THAT WAS SETUP PREVIOUSLY. WILL YOU: 1) SETUP A NEW DATABASE 2) MODIFY AN EXISTING DATABASE"UX" 3) UPDATE BINARY FILES OR FILES FROM OTHER SYNERGISTI:X1%0::11:"THE DATA REPORTER":10:"MASTER SETUP PROGRAM"::10:"BY ROBERT C. CLARDY"D8:1:958:"THIS PROGRAM WILL PERFORM THE NECESSARY MODIFICATIONS TO THE DATA REPORTER TO MAKE IT PROPERLY MATCH YOUR SYSTEM AND UNIQUE DATA PROCESSING NEENVERSION 4.0":D$"READVERSION 4.0":YY,S1,D1,V1:D$"CLOSE"6D$(1)"SLOT":D$(2)"DRIVE":D$(3)"VOLUME":D(1)S1:D(2)D1:D(3)V1710:"YOU SHOULD MAKE A COPY OF THIS DISK BEFORE YOU PROCEED WITH A SETUP. IS THISA COPY (Y/N)?":A$:A$"N"VE%0:620\,J1%1):480+B44B58B59ĺ"";:480MJ1%FL%J1%FL%1:"";:480eB32Ğ:(B64);:&A$;:Z$Z$A$:J1%J1%1:4800H$(35),D%(35),R%(35),H%(35),V8%(35),H8%(35),V9%(35),H9%(35),PG%(35),F1(35):D$(13)(4):AN$"NO YES";5::D$"OP28:B(R%(M)):B1B6MNF1ĺ("NY",((R%(M))3)1,1);F 33:210N : ::" # LENGTH TITLE TYPE TOTAL TAB ": Z$"":A$"":J1%1 X1%J1%:150 B13A$Z$: B8J1%J1%1:"";:J1%2J1%1:Z$"":480 B8Z$(Z$TYPE 'RUN' TO RESTART.":6212 |V31V3NFV3NFc 34,1:35,20::V2V3:V218V218:FG%0430 FG%0:M0V21:2:LLM1:135 440:M: FG%1:M18V31:2:(M56);:440:M:9 6:D%(M);:11:H$(M);:23:("D$#$#A A#$#$D",R%(M)7,1);:Z4(I)200Z4(I)43:0 @Z4(I)201Z4(I)45:J JZ4(I)202Z4(I)42:b TZ4(I)203Z4(I)47h ^ h34,1:35,24::RL200ğ i21:1:958:10:250RL;::" CHARACTERS LEFT":6:"RECORD TO CONTAIN ";NF;" FIELDS.": r::10:"RESET PRESSED. (MINIMUM=1)?":FL%2:470:VT(A$):VTVT(VT0):1270*170:" HOW MANY SPACES FROM THE LEFT MARGIN SHOULD THE PAGE NUMBER BE PRINTED AT? ":FL%3:470:PT%(A$):1280+170:" DOES YOUR PRINTER REQUIRE A SPECIAL CONTROL CHARACTER TO MAKE IT LINE FEED MANY CHARACTERS CAN BE PRINTED ACROSS YOUR PAPER (NORMAL VALUES ARE 80,96, 120, AND 132)?":FL%3:470:W%(A$):W%W%80(A$""):12605*170:" HOW MANY LINES DO YOU WISH TO LEAVE AT THE TOP AND BOTTOM OF EACH PRINTED PAGE AS A MARGIN ON YOUR PRINTOUTS170:I14:I1200,1210,1220,1230:I:1180:1310f(:::" PRINTING REQUIREMENTS (CONT) "::(1170:I14:I1260,1270,1280,1290:I:" CHANGE ANY (1-4, RETURN = NONE)?";:150:BB48:B0B4ı(B1200,1210,1220,1230:1180)170:" HOWNES IS NORMAL)?":FL%2:470:RP(A$):RPRP66(A$""):1140x'`12:1:868:"1. PRINTER CONTROL COMMANDS = ";:180::'j:14:868:"2. PAPER IS 1-CONTINUOUS FORMS,":13:"2-SINGLE SHEETS = ";SS1:'t17:868:"3. LINES PER PAGE = "RP:0(1RALLEL CARDS). PRESS RETURN FOR NONE.":FL%10:470:P$A$:1120&B170:" ARE YOU USING SINGLE SHEETS OF PAPER FORYOUR PRINTOUTS OR CONTINUOUS FORMS (S/C)?":150:SS(B83):1130;'L170:" HOW MANY LINES CAN BE PRINTED ON EACH PAGE OF YOUR PAPER (66 LII13:I1120,1130,1140:I:" CHANGE ANY (1-3, RETURN = NONE)?";:150:BB48:B0B4ıt%$B1080,1090,1100:1050>&8170:" ENTER ANY STRING OF CONTROL CHARACTERS THAT YOUR PRINTER MAY REQUIRE TO SET ITSPRINT MODE PROPERLY (SUCH AS CONTROL I80N FOR PAAS DESCRIBED IN THE ACCOMPANYING TEXT. IF YOU HAVE NOT PROVIDED YOUR OWN DOS MOVER, YOU SHOULD DROP ONE OR THE OTHER OF THESE OPTIONS.":$1040:I13:I1080,1090,1100:I:1050:1160$:::" PRINTING REQUIREMENTS "::X%1040:LOCK BOARD IN SLOT - ";:CB%0ĺ"NONE":3#CB%:{#:21:868:"5. USE APPLE IIE 80 COLUMN BOARD - ";:EC80ĺ"NO":#"YES":#CB%:#VE%0HD%0ı$3:"NOTE: THE HARD DISK FEATURES AND USE OF THE EXTRA MEMORY ARE MUTUALLY EXCLUSIVE 040(A$"Y"):995R"12:868:12:1:"1. HARD DISK = ";(AN$,3(HD%)1,3):"14:1:868:"2. EXTRA MEMORY = "(AN$,3(VE%)1,3):":16:868:"3. PROGRAM DISK IN SLOT "S1", DRIVE "D1",":868:4:"AND VOLUME "V1:(#:19:1:868:"4. COCK CARD OR SIMILAR CLOCK DEVICE? ENTER SLOTNUMBER OR RETURN FOR NONE.";:150:CB%(A$):(CB%7)950:990"170:" DO YOU HAVE AN APPLE IIE EIGHTY COLUMN CARD INSTALLED AND DO YOU WISH TO HAVE YOUR DATA DISPLAYED IN EIGHTY COLUMNS (Y/N)?";:150:EC4E IN? PRESSRETURN AFTER EACH. SLOT = ";::"6";::A$:S1(A$):S11S17S16 7:1:868:"DRIVE = ";::"1";::A$:D1(A$):D11D11 7:1:868:"VOLUME = ";A$:V1(A$) (S11S17)940:980i!170:" DO YOU HAVE A MOUNTAIN HARDWARE CL DO YOU HAVE A HARD DISK (Y/N)?";:150:HD%(B89):960170:" DO YOU HAVE AN EXTRA MEMORY BOARD INSTALLED IN SLOT 0 OR DO YOU HAVE AN APPLE IIE (Y/N)?";:150:VE%(B89):970O 170:" ENTER THE SLOT DRIVE AND VOLUME YOUR PROGRAM DISK WILL NORMALLY BI15:I920,930,940,950,955:I:900:1030cz:::" SYSTEM INFORMATION "::890:I16:I960,970,980,990,995,1010:I:23:1:"CHANGE ANY (1-5, RETURN = NONE)?":150:BB48:B0B5ıB920,930,940,950,955:9006170:"(A$):(NF2NF35)830:960KH12:60):12:1:"1. PROGRAM NAME = ";Q$:tR14:868:"2. PRINTER SLOT = ";SN:\16:868:"3. JUSTIFICATION (0=LEFT, 1=RIGHT) = ";RJ:f18:868:D%(NF)0:H%(NF)0:"4. NUMBER OF FIELDS = ";NF:V3NF:*p890:TO YOUR MANUAL FOR RECOMMENDATIONS IF YOU AREN'T CERTAIN (R/L).":150:(B82B76)820:RJ(B82):860>170:" HOW MANY FIELDS DO YOU WISH IN EACH RECORD OF YOUR DATABASE? REFER TO YOUR MANUAL FOR DISCUSSION OF FIELDS AND RECORDS. (2-35)":"";A$:NFQ$A$:Q$""800:840*170:" WHICH I/O SLOT IN YOUR APPLE IS YOUR PRINTER INTERFACE PLUGGED INTO (1-7)?":150:SNB48:(SN1SN7)810:850g4170:" DO YOU WISH THE MONETARY AND NUMERIC DATA IN YOUR APPLICATION TO BE RIGHT OR LEFT JUSTIFIED? REFER ::"0. CONSTANTS":I0NF1:JI1:J(J12):I212J:1J14:JI1:1778:". "H$(I):I::24:1:868:"ENTER THE DESIRED CONSTANT.";:13I:20:"CONSTANT=";A$:24:1:868:13I:29:(A$);:Z5(I)(A$):JJ1:1770:Z5(I)0JZ2(I)1:1778;20(B42B47)1762:12:" "(B);:868B925:"0-";:LLNF:1359JJ0:140:B11775:(B0BNF1)1769:Z2(I)B:Z5(I)0:25:" "A$;9868:34:"1-";:LLNF:1359140:(B0BNF1)1771:Z3(I)B:34:" "A$;:868::JJZ2(I)Z3(I)9Z:N:ZN12291:ZN101740"81774h813:1::"# FIELD 1 OPERATION FIELD 2 RESULT"::34,(34)18I1ZN:1760:I:81:I1".";:5:"1-";:LLNF:1358140:(B0BNF1)1761:Z1(I)B:5:" "A$;:868:12:"(+,-,*,/)?";(9150:Z4(I)B:7ZN0::"YOU CAN HAVE UP TO 10 CALCULATED FIELDS WHICH COMBINE (+,-,*, OR /) ANY TWO FIELDS AND STORE THE RESULT IN A THIRD. DO YOU WISH TO DO THIS (Y/N)?";:150:(A$"Y")1740:22918:"HOW MANY CALCULATED FIELDS DO YOU NEED (1-10 0=NONE)? ";ZDED)."i6150:Q1B497(B64):Q1NF11670:A$" AND ";:150:Q2B497(B64):Q2NF11670:Q10Q10z6Q21Q2166:"QUICK LIST FIELDS ARE "Q11" AND "Q21" (ZERO MEANS NO FIELD DESIRED). IS THIS OK (Y/N)?":150:A$"N"İ1670:17107:"CHANGE ONE OR START OVER (C/S)";:150:A$"S"ĉ::1310N5mA$"C"1640]5rFZ1:19505|1670:1710:1730:ZN01780:2340:18106:"ANY ONE OR TWO FIELDS CAN BE USED IN THEQUICK LIST. SELECT TWO FIELDS (PRESS RETURN FOR SECOND ONE IF NOT NEE%)RL)::34,19::"THAT'S ALL OF THE FIELDS. WITH THE FIELDS AS DEFINED, YOU CAN HAVE "RD:"RECORDS ON LINE. ARE YOU SATISFIED WITH IT (Y/N)?";:NF18ĺ" ('M' = MORE FIELDS.)";4J150:A$"M"NF17V3NF:390:16004TA$"Y"ı4^A$"N"1600<5h:26:" ";:28:A$;`3I2:30:868:"(0-"W%")";:X1%36:FL%3:470:J(A$):J0JW%15603"I2:30:868:33:A$""H%(Q%)0:R%(Q%)1(R%(Q%)):"NONE";:3,H%(Q%)J:J;:36Q%NF1:EF0:RL0:I0NF1:RLRLD%(I):I4@RD((221865148VEA$"D"D%(Q%)6RLRLD%(Q%)6:D%(Q%)6:6:"6 ";2R%(Q%)(A$"A")2(A$"#")3(A$"$")6(A$"D"):I2:21:" ";:23:A$;2J(R%(Q%)):(J1J6Q%NF1)1560:I2:26:"(Y/N) ";:150:A$"Y"A$"N"15403R%(Q%)R%(Q%)2(A$"Y"):I2S. SHORTEN SOME FIELD";:RLRLD%(Q%):D%(Q%)0:C11000:C:ESġJ119501I2:11:"(10 CHARS)";:X1%21:FL%10:470:A$""15001H$(Q%)A$:I2:11:" ";:11:A$1I2:21:"(A,#,$,D) ";:150:A$"A"A$"#"A$"$"A$"D"152022:4:"(1-50)";:X1%10?0FL%2:470:I2:4:" ";:6:A$;i0D%(Q%)(A$):D%(Q%)1D%(Q%)5014400RLRLD%(Q%):21:10::250RL;::" ";0RL200ğ:21:10:250RL;:@1RL2511500:I2:4:868:21:1:35,24:958:"TOO MANY CHARACTERO BEGIN.";:150+/FRL0:EFLAG1:460:2020+XX2ĺ" 5. REFORMAT DATA FILES THAT USED THE SETUP YOU JUST MODIFIED">0" WHICH?";>:150:BB48:B5XX21855:B0ĴB710,2200,1860,570>;1850\??650,253:651,N1:652,NF:I0)RL):D%(NF)W%:H%(NF)PT%}="":::4:"YOU HAVE COMPLETED ALL OF THE REQUIRED ENTRIES FOR CUSTOMIZING YOUR DATABASE."=!"DO YOU WISH TO:"<>&" 1. REVIEW YOUR ENTRIES BEFORE THE SETUP IS SAVED 2. PRINT A SUMMARY OF YOUR ENTRIES FOR LATEB78ı_<24:1:868:"CHANGE ONE OR START OVER (C/S)? ";:150:B83İ1730:ZN01780:2000<24:1:"CHANGE WHICH ONE (0-"ZN1")? ";:150:I(A$)1:I1IZN1790:13I:1760:1790=R%(NF)0:RL0:I0NF1:RLRLD%(I):I:RD((221865148(VE%0):"CONSTANT=";Z5(I);:$;LLJ:135K;I110:310:I:::1774:13:1:;"# FIELD 1 OPERATION FIELD 2 RESULT"::I1ZN:1:I1".";:7:JZ1(I)1:1778:17:(Z4(I));:27:1776:36:JZ3(I)1:1778::I<24:1:868:"ALL OK (Y/N)? ";:150:2I16PG:V9%(I)V8%(I):PG%(I)PG:I:9Z':::::1:Z'32,1:33,EC1:" * * * NEXT FIELD * * * ":23:"USE ARROWS,'A' AND 'Z' TO MOVE FIELDS AND RETURN TO PLACE IT. 'P'=NEXT PAGE";:33,EC:32,0:[ NI05:A(I)0:I:J0:I0:F,F$FO THE DRIVE INDICATED. PRESS 1-3 TO CHANGE SLOT, DRIVE, OR VOLUME AND PRESS RETURN WHEN READY."Y 150:BB48:B0B4ĺ" ENTER NEW "D$(B);:":";A$:D(B)(A$):3000Y D$"NOMONS"D(1)",D"D(2)",V"D(3):&Z I035:PG(I8):H8%(I)2:H9%(I)13:V8%(I)3C$,D%(I)):CVV9%(I):CH(H9%(I)):WRAP(H9%(I)0):2550vX A$(E$,D%(I)):CVV9%(I):CH(H9%(I)):WRAP(H9%(I)0):2550X 138:KB:K13ġ:2660X K27ġ:2580X K8K212830:X ::I13:10:I". "D$(I)" = "D(I):I_Y "INSERT YOUR DISK INTWd :Jİ2820:2530:2810:2440:V9%(I)CV:H9%(I)CH2CHWRAP:PG%(I)PG:2610Wn A$H$(I):CHH8%(I):CVV8%(I):CV:36,CH:(A$));:2530:CV:36,CH:A$:CV:36,CH:2440:V8%(I)CV:H8%(I)CH:PG%(I)PG::A$::2610W V8%(I):36,H8%(I):H$(I);:6X A$(2340:A$"C"2618cV< 23:2:958:"ARROWS = WHICH FIELD, RETURN = SELECT. PRESS ESC WHEN DONE.";lVF IF1VP J0::2800::2830:2800:K212650:K8IF1II1:2650VU 2640VZ J1::2810::2830:2810:K82640:K21IF2II1:2640V_ 2650MI1 U( IMU2 23:1:958:2:PG%(NF)0ĺ"PRESS P TO VIEW OTHER PAGE(S)."}U3 24:2:"SATISFIED (Y/N)? ";:150:A$"Y"ıU7 A$"P"PG(PG1)(PGPG%(NF)):2580U9 A$"N"2611:23:2:"CHANGE ONE FIELD OR START OVER (C/S)?":868V: 150:A$"S"CV:36,CH:T PG0)T EC80ĺD$"PR#3"T PG%(NF)PG%(NF1):10000:" SPECIFIED SCREEN FORMAT - PAGE ";:1:36:PG1T F1NF:F2NF1:I0NF1:PG%(I)PGĞ:V8%(I):36,H8%(I):H$(I);::2810T# F1NFPGPG%(I)F1IU$ F2NF1PG%(I)PGF222CV2S CV2CV22'S 2550:2440VS 60,0:61,4:62,0:63,8:66,0:67,8:768:S EC80Ĺ60,0:61,8:62,0:63,12:66,0:67,4:768:S B$A$:A$(E$,(A$)):2550:A$B$:S CV:36,CH:WRAPĹ32,(36):33,EC(32):CV1: T A$;:32,0:33,EC:ıR B80ĉ:1:2:868:"START A NEW PAGE (Y/N)? ";:B$A$:150:1:2::10010::J(A$"Y"):A$B$:J02440::2530:PGPG1::10000:10010:2530:2411R DX0DY02440R 2540:CHCHDX:CH(EC80)CHEC1R CHEC1CH(EC80)S CVCVDY:CV:2440:V8%(I)CV:H8%(I)CH:PG%(I)PG:2530::2550:2530:CV2:CH15Q~ :A$(C$,D%(I)):2550::2440:H9%(I)CH2CHWRAP:V9%(I)CV:CVV8%(I):CHH8%(I)::A$H$(I):2550:2530:I:2580Q 138Q Q DY(B90B10)(B65B11):DX(B21)(B8)R B13AY (S=STANDARD, N=NEW)?";,P+ 150:A$"S"ı>P, A$"N"2347PL WRAP0:EC40ĺ" BLOCK MODE OR WRAPAROUND (B/W)?";:A$:A$"B"A$"W"2380:WRAP(A$"B")P` EC80ĺD$"PR#3"Pe 10000:10010:2530Pj PG0:I0NF1CQk CV2:CH15::A$H$(I):2550:,Z5(I):IO N1NF5O EC:D$"CLOSE":RPRP52VT:{O D$"OPEN"A$:D$"READ"A$:K,K,K,K,B$,K,Q$(I):D$"CLOSE":A$(I)A$:O$ 3050O& VE%0ıP* 10000::"DO YOU WISH TO USE THE STANDARD DEFAULT SCREEN FORMAT OR WILL YOU DESIGN YOUR OWN SCREEN DISPLZ3:Z4(1)Z4NN D$"OPENSETUP."A$:D$"READSETUP."A$:NF,RL,RD,SN,P$,CN,Q$,VT,RP,TF,RJ,Q1,Q2,SS,CH$,HD%,VE%,S1,D1,V1,CB%,ML%,ZN:I0NF O D%(I),H$(I),R%(I),H%(I),H8%(I),V8%(I),H9%(I),V9%(I),PG%(I):F1(I)D%(I):I:ZNāI1ZN:Z1(I),Z2(I),Z3(I),Z4(I)"OPENSETUP":D$"READSETUP":NF,RL,RD,SN,P$,CN,Q$,VT,RP,TF,RJ,Q1,Q2,SS,CH$,Z1,Z2,Z3,Z4:I0NF:D%(I),H$(I),R%(I),H%(I):F1(I)D%(I):I:D$"CLOSE" NI110:310:I:RPRP52VT:RL0:I0NF1:RLRLD%(I):I:N1NF:XX3:Z1NFZN1:Z1(1)Z1:Z2(1)Z2:Z3(1)I));:15:(Z4(I));:20:Z5(I)ĺ"CONSTANT="Z5(I);:2262GLH$(Z2(I));jL35:"=";:36,40:H$(Z3(I)):ILD$"PR#0":49153,0::1810LHD%0:VE%0:S16:D11:V10:CB%0:ML%0:EC40LZN0:I110:Z1(I)NF:Z2(I)NF:Z3(I)NF:Z4(I)NF:I:3050MD$IN = "VT" JUSTIFICATION OF NUMERIC FIELDS = ";:RJĺ"RIGHT"MKRJ0ĺ"LEFT"wK"FORM TYPE IS ";:SSĺ"SINGLE SHEET"KSS0ĺ"CONTINUOUS"7L"QUICK LIST FIELDS ARE "Q11" AND "Q21:"THERE ARE "ZN" CALCULATED FIELDS":ZN02280:I1ZN:310:H$(Z1(IS%0!LI%0:J1%(N$)A1$"",A2$""C3:A0$(31)1010aE9%A0$(16)ĺ"";:760J(A0$):J350,785,770,780,790,800,350,820,839,980,900,350,849,795,350,974,869,880,832,910,960,350,990,350,350,842,995CFLAG1:230:750 1660:7,2)"F"M1((A$(J),K2,1))48:M1M17(M115):FD%(M11)3TSTS3FD%(M11)VK::E5%1:996:73:E5%0:IJ:12:1:"LINE "I" IS:":(A$(I))0N$"":7451170:K%((A$(I),1)):N$(A$(I),2,(A$(I))2):14:5:205:750IS%Ģ12:5:205:1A$"".N(N$)J1%A$A$(N$,(N$)J1%1)FXCV%:5:958:A$:LtE%1:A%0:E1%1:II(I0):I1I:I%0C%ĺB$::TS0:FL%L%:7:"EDIT WHICH LINE? ":5:"'";A0$:J(A0$):J1JIİ7:958:730OK1(A$(J))2:(A$(J),K";:E%750_230Ar8:873,119:874,230:871,24:864:43000Js110|J1%J1%(J1%1):CV%(J1%36):4J1%40(J1%36):"'";:A$(A$,J1%(J1%1)):230J1%FL%ĢCV%(J1%35):4J1%39(J1%35):"";:230A$A$A0$:J1%J1%1:230DJ1%(8)J1%1230!A0$(13)250J(A0$):J330,350,350,1710,305,1200,1390,350,1110,350,350,1310,580,1790,350,1540,350,1381,1460,41,350,350,1270,1070,350,350,350"C%350,CFLAG1:2301II1:710JC%İ7:54915:A%1:C%0:E%0:70 ^"958:J1FL%:"'";:J:CV%CV%(CV%24)((FL%40))KN$""ĢCV%:5:N$CV%((J1%3)40):4J1%40(((J1%3)40)):J1%1A$""E%ıLI%1Ģ1:1:868:E5%1:996:73:E5%0:CV%:5KUC%:UC%2:B$"'":5:UC%K:A0$(31)490A0$""=7:"WHAT DO YOU WANT TO DO? ":FL%1:5:200:120N$"":J1%1:CV%(37)1:CV%20āKKCV%24:(13):KK:37,(37)(26CV%):CV%CV%(26CV%)CV%:868::" ";:1:I;::FL%L%IN%:5:200:750N$""J1%1:CV%(37)13CV%:P34,2:E%1::I100100(QA%1905U::170FZ8:I10180wd::10:12:"100 LINES MAXIMUM":J12000:n1270x0:1002::N$"":FR(0):I:768:(13)D$"CLOSE":E5%0:E6%0:E9%0:A0$"3"A2$"":K0E%ĺC%1:A%0:E%0:N$ 4(N$,J,1)" "JJ1:52, 5J(N$)J1> 6KK1:K048D 7W <A%1:C%0:E%0e FLI%ĉ: G1:1:5:UC%0ĺ"LOWER CASE"; HUC%2ĺ"UPPER LOCK"; I1:25:JU%0ĺ"JUSTIFY ON" JJU%1ĺ"JUSTIFY OFF"K(E5%1XX%1)6:LI%Ĺ37,CV%2K19:T%(K)0ĺK;" NONE",:K:43; ,K;" ";T%(K),:K:43P -UC%0:JU%1:110p .K(N$):JU%KL%K8L%ı /J2DR%(K4):KL%K 0(N$,J,1)" "51 1JJ12DR%:J(N$)J1DR%DR%:49 248 3N$(N$,J)" "(N$,(N$)J):JJ24DR%::"TABS ";::"FROM LEFT MARGIN";::" SET AT":K19:T%(K)0ĺK;" NONE",:K:43j *K;" ";T%(K),:K" +" CHANGE WHICH? (RET=NONE) ";:B$" ":UC%2:5:K(A0$):K01270:" WHAT VALUE? (1-"L%;:") ";K1$:K1(K1$):K1L%43:T%(K)K1:" TABS SET AT:":"ENTER NUMBER OF ARGUMENTS ";AR$:AR(AR$):AR1015:AR%AR:AR0AR%(1)0:30 I1AR%:"ENTER LENGTH OF ARGUMENT #"I;:" ";AR%(I):I A$(101) (::10:"WHAT IS YOUR MAXIMUM LINE LENGTH?":"";L$:L%(L$):L%L%65(L%0):I1:L%13240:45U )$" ":18500 VE%0ĺD$"BRUNGETCHAR" K14:T%(K)K55(K4):K:K59:T%(K)0:KO ::1:13::"REPORT GENERATOR"::10:3:J37500:2C,a,K:YIN$"":J0:UC%2:B$(32):A0$(32):D$(4):BB39168:10rJ1%(N$)B$"'":5B$(N$,J1%,1)A0$(32):B$,A0$,UC%:(A0$)8(A0$)31ĺA0$;CV%(37)1:CV%1M3%:1:E1%II1:E1%0 S         !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""          $(0),29s[*NJJ1:C,S,J:(F$,5)"ETUP."((F$,6)"ETUP "XX4)A$"S"(F$,6):II1:2330:A((A$,7,1)):A(A)1[4NI6(F$)320010[HNIĉ::5:J1I:J". "Q$(J):J[RN(NER (DEFAULT=1)?":"'''";J$:M2(J$):M21M2I1M21%"FIND WHAT?":FL%L%:E1%1:I1I:E9%1:E%1:5:200:750:E9%0:A5$N$%15:5:L(A5$):JM2I1:K2(A$(J))L2%A5$(A$(J),K,L)ĂK,J:1250%II1:E6%1:740:E6%0K&23:1:958:":::E5%1:996:73:E5%0d$tIS%1:I1I:IJ:11:1:958:"NEW LINE "I" IS:":(A$(I))0N$"":745m$~742$(A$(J))2A$(J)(26)" "$$(A$(I))2A$(I)(26)" "$$$::E5%1:996:73:E5%08%8:1:"START AT WHAT LINE NUMB230:871,56:864:VE%Ĺ1010,174:1011,190:1012,27:W#Q1010,191:1011,157:1012,56:]#V#`7:"INSERT BEFORE WHAT LINE?":5:"'";K1$:LN(K1$):LN1LNI1İ7:1120$jKILN11:A$(K)A$(K1):K:A$(LN)"":JLN:II1:E%1:A%0:C%0:E1%1:FL%L%1$:J1%J1%1:I%ĺA1$;:230$")750*"."B::10:"1)..RETURN TO DATABASE 2)..START OVER 3)..QUIT WHICH?";:5:((A0$)48)1095,1093,1100:1270"E2"G:D$"RUN HELLO,S"S1",D"D1",V"V14#L:10:"TYPE 'GOTO 370' TO REENTER.":873,119:874,%TSI%)ĺ(8)"";:750-!J1%(N$)A1$""I!1870:J1%(N$)11060e!J1%(N$)A1$"":1060!I%0A1$(A1$,(A1$)1)!$J1%2A0$":"N$A$:J2FL%:CV%((J1%3)40):4J1%40(((J1%3)40)):A$:N$N$A$:J1%J1%1::849"%N$A$A0$A8! UC%0Ģ1:5:"LOWER CASE";A UC%1Ģ1:5:"UPPER CASE";a UC%2Ģ1:5:"UPPER LOCK"; XX%1:73:XX%0:E5%16:230:750 "";:750 J1%1A$"" UC%1UC%0:1:5:"LOWER CASE";:J1%J1%1:230:J1%J1%1!J1%L%TS((N$)LA0$(EN64):J1%J1%13N$N$A0$:J1%J1%1:975]JU%1JU%0:1:33:"ON ";:230:750JU%1:1:33:"OFF";:230:7508:K%A$(I)(K%)N$" ":K%0:230:" ":1270A$(I)(26)N$" ":230:" ":1270 UC%UC%1:UC%3UC%0:1:1:86%(K)TS8(N$)L%TSN$(N$,(N$)1):J1%J1%1:931P1920:N$:230:750hI%0:J1%(N$)350J1%J1%1:B$;:750(J1%1)350:N$"P":J1%3:UC%21920:N$;:3:EN(A0$):EN13K%16:850EN27A0$(91)EN27N$N$(94):1870:1920:A$"C "A1$:J1%J1%2:230:3:(A0$)32J1%J1%2:1920:N$;"'''";:750A$A$"C"A0$:N$A$A1$:K%1:J1%J1%1:750J1%(N$)1350K19:T%(K)TSJ1%930T%(K)TSJ1%931K:350N$N$(S$,T%(K)TSJ1%):J1%T)3:A2$A2$(64):K12{AR%(K)3TSTS3AR%(K)|K%1:A$A$"""R"A0$A2$:J1%(A$)1:1920:A$:230:A1$:N$A$A1$:230:750J1%19031920:N$"C":N$;:J1%4:3:(A0$)32J1%1:1920:"'''";:750N$N$A0$:UC%2:K%11:998W(26)" ":865GfJ1%1850:46:A$(I)(K%)(N$,J1%1)" ":K%0:865p1870:1920:A$;::"R":J1%J1%2:230::A1$:J1%J1%1:230:KUC%:UC%2:3:UC%K:K(A0$):KK487(K64):K0K10J1%J1%(J1%1):1920:N$:230:750zAR%(K)3āK11AR%(KıERTS0:A1$"":46:CFLAGK(L%((N$)))2:L1K:A1$A1$" ":Ld\K%A$(I)(K%)A1$N$" "]K%K%0:E5%1:996:E5%0:865^FR(0):A$(I)(26)A1$N$" "aE6%ıbII1:1920:IN%);A$(I1);:958:CFLAG0:90eE9%6:J1%1A$(I)A2$A2$(64):K1:K%1:A$A$"""S"A0$A2$:J1%(A$)1:1920:A$:230:A1$:N$A$A1$:230:750GA%E1%J1%1N$""Ė1:958:" ":1110H(N$)L%TSĺ"";:750II%1:750JK01LB$(N$,J1%,1):1660:B$" "K0MK:750QE9%" ";:350:>J1%J1%1:A$N$"'":(A$,J1%,2);"";:750@1870:1920:A$;::"S":J1%J1%2:230::A1$:J1%J1%1:230:KUC%:UC%2:3:UC%K:K(A0$):KK497(K64):K0KNF%1J1%J1%(J1%1):1920:N$:230:750`BM2FD%(K):K113(M23)(M23)::UC%K:K(A0$):KK497(K64):K0KNF%1J1%J1%(J1%1):1920:N$:230:750*FD%(K)3āK11FD%(K)3:A2$A2$(64):K1+FD%(K)3TSTS3FD%(K),K%1:A$A$"""F"A0$A2$:J1%(A$)1:1920:A$:230:A1$:N$A$A1$:230:750 4I%0:J1%250#J1%1:230:N$"'";:230:750`1:958:B$"":8:K%A$(I)(K%)N$" ":K%0:II1:710A$(I)(26)N$" ":II1:710J1%1:230:N$"'";:J1%(N$)1:230:750P 1870:1920:A$;::"F":J1%J1%2:230::A1$:J1%J1%1:230:KUC%:UC%2:3)0ĺ" ";5L1131561)5 " ":L:5"1860:1581:J1I1:A0$(A$(J),1):1160:N$(A$(J),2):A0$(11)2000:A0$(16)5000:IN%);:A0$(26)ĺ(A$(J),2);CH$:RC%RC%1:RC%RP%VT%1600:J:12705,A0$(1)3000:30166-PG%Ĺ36,FD%(NF%)2UMBER "L" ";645:L1(A0$):L131AR$(L)AR$(L)A0$j4L127UC%UC%1:UC%31561:UC%3UC%0:1561{4UC%1UC%04L18ĭ(AR$(L))1AR$(L)(AR$(L),(AR$(L))1):" ";:15674L18(AR$(L))1AR$(L)"":" ";:1567 5L18(AR$(L)ORMATTED TEXT 3..LIST TO PRINTER 4..RETURN TO MENU WHICH?";:B$"'":5:A(A0$):A01551:A41551:A1940,1552,1536,1270310000::FD$"NONE"155536000:JJ1:Z90NF%1:TL(Z9)0:Z93AR%01570 4L1AR%:AR$(L)"":"ENTER ARGUMENT NOT "SL%". IS THIS CORRECT":"(Y/N)? ";:958:B$" ":UC%2:5:(A0$"N")1537:(A0$"Y")1536:1860:15312"ENTER PRINTER SLOT # ";:B$" ":5:((A0$)0(A0$)7)1536:SL%(A0$):153623PN0:::7:4:"SELECT ONE 1..PRINT SAMPLE 2..PRINT F(N$)1)J1K2(N$)2:(N$,K,1)(127)N$(N$,K1)"?"(N$,(N$)K)1K:L%81(N$)77N$(N$,77)" "(N$,(N$)77)1L%80(N$)129N$(N$,129)" "(N$,(N$)129)1J;:36,3:N$:J::0:1002:1540i217:1:"PRINTER IS IN SL1M3%1:1481'0KK1:(F$,30):148580B$"0"15300D$"OPEN["B$",V"V:D$"DELETE["B$:D$"OPEN["B$:D$"WRITE["B$:L%:I:AR%034,23:0J1I:A$(J):J0D$"CLOSE"::1270134,23:::J1I1:N$(A$(J),2):(N$,1)(127)N$"?"(N$,AR%0F1120:::K1AR%:"ENTER LENGTH OF ARGUMENT #"K;:" ";A0$:AR%(K)(A0$):AR%(K)0AR%(K)1q/K:120w//8000/M3%0:"ENTER FILE NAME (RETURN=CATALOG, 0=NONE)--> ";B$:(B$"")1482:(B$"0")1530:1500/::K1 0C,[,K:(F$)7):14404.K10Ĵ(F$)31420::KKKK1:K1:1422].IJ::D$"OPEN["B$",V"V:D$"READ["B$m.L%:J:AR%.IJ101II1:D$"CLOSE":::"FILE TOO LONG TO APPEND.":120.F1AR%ARe/K1J:63999:IN$(IN$,1):A$(IK)IN$:K:D$"CLOSE":IIJ:958:"ARGUMENTS OF FILE 1 OR 2? 1/2";:5:A0$"1"ARAR%:F1L-I1J0_-KK0:K1:::-C,[,K9KK:(F$)3K10ĺK". "(F$,30):KK1:1422." LOAD WHICH ONE (RETURN=MORE,0=NONE)?";:5:A0$"0"1270::K1(A0$):K10įC,[,K19KK:B$(F$,2(B$"")1386:(B$"0")1530:1389-,j::K1I,kC,[,K:(F$)1ĺ:1383c,lKK1:(F$,30):1387,mD$"DELETE["B$",V"V:1270,n,8000,F0:I1ĺ"APPEND TO CURRENT FILE OR REPLACE":"(A OR R)?";:JI1:UC%2:5:A0$"R"J0:1415>-I1İ7::"THERE IS NO TEXT TO LIST.":J11000:J:7:7:120+Z16368,0:" ESC=QUIT LISTING RETURN=CONTINUE";:3:A0$(13)Ė1:868:KK1:7:7:1350+d1:868:7:120+e+f8000!,g"ENTER FILE NAME TO REMOVE":"(RETURN=CATALOG, 0=NONE)--> ";B$:0:22:120*e*2I21365:7:"STARTING LINE NUMBER (1-"I1")?":5:"";J$:J(J$):J1JI1J1*<LI%1::::" PRESS ESC TO HALT LIST "::34,2::KJI1*F:" ";:1:K;:5::IN%);A$(K):(16384)1551370*PK:1205+U7E S=SUBTOTAL X=EXIT T=TAB" * " W=COMMAND MODE Z=ZAP A WORD ARROWS=MOVE CURSOR RETURN=ACCEPT LINE ESC=SHIFT/LOCK";:32,HAR L=LIST TEXT J=JUSTIFY N=INDENT K=COMMAND"1) " P=PRINT N=END OF LINE R=REMOVE TEXT P=PRINTER CHAR S=SAVE TEXT Q=QUIT LINE T=TAB SET R=ARGUMENT W=COMMAND MODDE: EDIT MODE: CTRL A=ADD MODE CTRL B=BEGINNING D=DELETE LINE C=CENTER LINE E=EDIT MODE D=DELETE CHAR"O( " F=FIND LINE E=EDIT LINE G=GET TEXT F=INSERT FIELD I=INSERT LINE I=INSERT CCONTINUE OR ABORT (C/A)?":UC%2:B$"'":5:A0$"C"K1:M2I1:M2I111220R&8X&&I:768:TS0:C%1:A%0:E%0:K%0:(13);D$"CLOSE":0:1002::LI%0:L,F$"":FD$"12"FD$"NONE"' :::6:" CTRL RESET=UNIVERSAL ABORT "::" COMMAND MO