' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 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*`9F/#BL$"WRITE ERROR IN DATABASE (DRIVE 2)";:a#BL$"CAN NOT INITIALIZE DISKETTE IN DRIVE 2";:#BL$"PUT DATABASE DISKETTE IN DRIVE 2";:#H DATABASE ERROR MESSAGES #RER(DBASE27)1#\60000516368,0"1:868"3"` ERROR MESSAGES D"e23:1:868|"jER60100,60110,60120,60120,60130,60120,60110,60140"t59000"~23:1:868""5::"NO FIELD CAN HAVE LENGTH OF ZERO";::"BL$"READ ERROR IN DATABASE (DRIVE 2)";:-RECORD !yX11!"yX0NN8!,yFE$(X)(DR$,X1,FD(X))K!6yX1X1(FD(X))Q!@yW!Jyo! INTEGER TO DR$ !ˆDR$DR$(" "(X),4):!x PAKTC !24:1:868!7)"PRESS ANY KEY TO CONTINUE";!16368,0!(16384)12859040"%1:DR$"" 2P# 7PDR$""ČWREC) PE R READ DATA DEFAULTS _ RDR%RP1:RREC:31000e R S WRITE DATA DEFAULTS T30000 TDR%RP1:WREC T 0u PACK RECORD 5uDR$"" :uX0NN DuDR$DR$FE$(X) Nu Xu!y UNPACK RL(FD(X))'4NDR$(DR$,30):FD$(X)A$F>N(DR$)29DR%DR%1:RRECLHN[RNCLIP7,32nNNPA3(FD(NN))tNP WRITE DATA FIELDS PDR%RP2:DR$""#PX0NN:DR$DR$(FD$(X)CA$,20)((FD(X))" ",9) (P(DR$)29RSČWREC:DR%DRSTATUS 6LDR$""#@LXNK:350003JLXKL:35000CTLXNN:35000S^LXRS:35000dhLDR%RP:WREC~ N READ DATA FIELDS "NRLRS%NDR%RP2:RREC*NCLIP7,1: CHANGE TO CLIP CTRL-A/NX0NN:A$(DR$,20):CLIP,A$:FD(X)((DR$,21,9)) 1NRL READ SYSTEM STATUS .:JDR%0:RHEAD:FM%DP%G;JDR%1:RHEAD:FT%DP%`JDBASE28,(RS254)?JRP1050:RS254RP525BJDR%RP:RRECLJNKB1(0)VJKLB1(1)`JNNB1(2)jJ,L WRITE SYSTEM :";:(FD$(N))FD(N)40FD$(N)""ĺ=*+ENTER:FC(ENTER3)O4+FE$(N)FE$""U>+k. DISPLAY-PAGE q.y.TN.N(A2(FD(N)))/PGA3(FD(N)):9000/M$"2"/11000&/NN10/PGA3(FD(N))NNN12060:/M$"1":NTD/8J A3(FD(N))İ12000'B'11000:FC3Q0:ND'N0Z$FE$:CLIP,Z$:Z$"Q"Q1:jG'FC2NN1:N010030L'NN1:NNN10030Q'Q0V'* EDIT-LINE +A1(FD(N)):1+FI$M$"_0 #10 11" +FT$(F4$,1,FD(N))+FE$FE$(N)$ +FD$(N)"(# DISPLAY FACE PLATE F#&P#1?Z#(30(TL$))2)TL$;Id#9120Pn#2Yx#CD$g#22:CD$;{#4:34,2:35,21## UPDATE PAGE #NPPGNPPG#1:30:"PAGE "PG" OF "NP#' GET-PAGE 'PG0:N0$'M$"1".'PGLC0FC3Q1:' FC270307RLRLFD(N)MFE0ĺBL$;:7120l RL0FD(N1)0LC1:7030r*@ DISPLAY PAGE E:9120JP4:TN:M$"2"TN(N9)9^FC0c7000hNN1:PP2rNNNP228030|NT$:Z$"Q"Q2:!FD$(N)FE$""2FC2LC1:BFC3Q1:dFI$M$"_0 $10 11":FT$"333"FE$((FD(N))):FE$"0"FE$""25:ENTER:FC(ENTER3):FE(FE$)M$"2"ı(FE$,1)"Q"Q2:RLFE0ĺBL$;:7120FD(N)(FE$)6020 X EDIT LINE Al GET DATA FIELD CONFIG LINE _v23:28:(" "(RL),3);fPLCM$"2"RLRL(FD(N)):7110FI$M$"_0 #10 00":FT$(F4$,20)1FE$FD$(N):ENTER:FC(ENTER3)M$"2"7110Z$FE$:CLIP,Z""CY(W)Y(W)1:85904&!Z$" ";:LL(Z$)1:C1J&!Y(W)Y(W)1:8600v&!DF1:X71NU:DF(FF$(Y(X7))"-2")DF:&!DFāX7ROW(LB.1666.5):::WNU:W:8460&!WNUĺ(SP$,(LL.1.5)L);&!L0&!W&!ROWROW1::8550 '"D$"PR#0":D$R%NILN1X4:X4NU:NUN11:NU08710+%R!T%\!PRINT ONE LINE OF EACH LABEL ACROSS`%f!W1NUn%p!DR$A$(W)y%z!31000%!C0%!CR$(FF$(Y(W)),3,2):FF$(Y(W))"-2"8650%!(FF$(Y(W)),3,2)CR$8650%!Z$FE$(((FF$(Y(W)),2))1)&!CLIP,Z$:Z$"EACH LABEL:";R$ FE$"1":FI$"1_0 $11 00":FT$"33":FX$"Q":ENTER:MN(FE$"")d$ FE$"Q"8160q$ :63000{$!X9MN$ !L0:ROW1$!DR%NIL8710$ !X41NU:Y(X4)1$*!X9X91:X9MNX91:25000$4!A$(X4)DR$$>!(16384)209DR%NIL%%H!D"FF$(Y)"-2"X7NUāX6ROW(LB.1666.5):::L0:8360Y# TY$"R"FF$(Y)"-2"ĺ:8360k# S2Y:YS1:L0q# # ROWROW1:YS2::8270# X5# D$"PR#0":8150# 25900# PRINT LABEL# 8:1:958$ "ENTER THE NUMBER OF TIMES TO PRINT": FE$"Q"ı" TP8230,8380*"& :630004"0 TC$;@": X512R"D ROW1:Y1:L0_"N X71NUh"X S1Y"b ((FF$(Y),3,2))ROWQ((FF$(Y),2))1:X61FD(Q):((Q1),1);::YY1:LL(FD(Q)):8290"l TY$"L"NU1ĺ(SP$,(LL.1.5)L);8#v TY$"LFIX:216,0:59000:::8020&!220008!TY$"R"8720R! PRINT TEST LABELS d!:8:1:958!:"1) PRINT TEST LABELS"!:"2) PRINT LABELS"!23:1:"SELECTION (1-2 OR Q):";! FI$"0_0 $11 00":FT$"6":FX$"12Q":ENTER:TP(FE$"") "USE WHEN PRINTING REPORT OR LABEL"a |FI$"0_0 #11 00":FT$"2444444444444444444":FX$"Q":ENTERs FE$"Q"1000 FF$FE$"" FF$""ĉ::34000:8015 8120 D$"UNLOCK"FF$ 216,0:8130!12:"FORMAT FILE "FF$" DOES NOT EXIST":OERR REQUESTED="ROW,,L1%1:L2%6:X%NN1:SRTW659000:22:958:35,21:M$"2":ERR0:s@ PRINT LABEL/REPORT ~J21000O:T11:"PRINT REPORT/LABEL"^11:"------------------"h34,2" r:8:"ENTER THE NAME OF THE FORMAT FILE TO":"6.5)ERR2 ERRİ7950:7200+230001sTY$"R"ERR1ĺ"MORE THAN "PC" CHARACTERS ON ONE LINE":7980ERR1ĺ"TO MANY CHARACTERS IN ROW "ROW"ERR2ĺ"** TO MANY ROWS ** DEFINED LABEL ALLOWS":"FOR "(LT.166.5)" ROWS. NUMBER OF ROWSTY$"R"DLPC10X1NN1:(A$(X),5,2)"00"7880x((A$(X),3,2))ROWRTRT(FD(((A$(X),2))1))1:7870ROWROW1:RT0:RT(FD(((A$(X),2))1))1RT(DL.1.5)ERR1:XNN135,24:22:1:958 TY$"L"ROW(LT.16$FTL$"CREATE/MODIFY PRINT FORMAT"<PX0NN:FE$(X)"":DZ:Od10000aiFE$"Q"7190n EDIT ROW LENGTH AND NUMBER rXN1NN1s(A$(X))6A$(X)("00"(X),2)"0000"txL1%3:L2%6:X%NN1:SRTROW1:RT0:ERR0(ENTER3)37750^18:"HEIGHT FROM TOP OF LABEL IN 1ST":"ROW TO TOP OF LABEL IN 2ND ROW:"uLB0FE$"":7700 FE$(LB)ENTER:LB(FE$"")(ENTER3)27600((ENTER3)377502M$"1"LBLTĺBL$:7670<M$"2"M$"1":7210LL(FE$"")#(ENTER3)27460:(ENTER3)37750WM$"1"LLDLĺBL$:7530:15:"HEIGHT OF ONE LABEL TOP TO BOTTOM:"LT0FE$"":7630FE$(LT)ENTER:LT(FE$""):(ENTER3)2NU17460(ENTER3)27530E$"":74908FE$(DL)DBFT$"3333":FX$".":ENTER:DL(FE$"")[L(ENTER3)27400rV(ENTER3)37750`NU17600j10::"LENGTH FROM LEFT SIDE OF 1ST LABEL":"TO LEFT SIDE OF 2ND LABEL:"tLL0FE$"":7560~FE$(LL) ENTER:PECS 36:868:"NO. OF LABELS ACROSS (1-4):";JNU0FE$"":7430XFE$(NU)FI$M$"_0 $11 00":FT$"6":FX$"1234":ENTER:NU(FE$""):(ENTER3)27210(ENTER3)37750$8:"LENGTH OF ONE LABEL LEFT TO RIGHT:" .DL0F CHARACTERS(80 OR 132):";0PC0FE$"":7330>FE$(PC)tFI$M$"_1)G$10 00":FT$"333":ENTER:PC(FE$"")(ENTER3)27210(ENTER3)37750PC80PC132ĺBL$:7310M$"2"M$"1":72107750 ENTER LABEL SIZING S35500 6Z!6a READ RECORD =6aFG125100,25200,25300G6 bRR1\6bRFT%DR%NIL:6bDR%R:RREC:(DR$,1)(1)251006 b6pbRR16ubD$"READ"A$",R"R6zbDR%:RREC6b6bS$(1)D$DR%NIL:6bX%1253106b32003,83 7bL1%7:L2%5YD$"WRITE"FF$35ZTY$:PC:NU:DL:LL:LT:LBA5 ZROW1:Y7O5ZX1NN1l5Z(A$(X),5,2)"00"231005(Z((A$(X),3,2))ROWĺA$(X):YY1:2310052ZROWROW1:230805X4Y WRITE FORMAT FILE 4Y::10:"SAVING FORMAT FILE "FF$5YD$"OPEN"FF$DL0:LL0:LT0:LB030R33U READ FORMAT FILE D3UD$"OPEN"FF$U3VD$"READ"FF$p3VTY$,PC,NU,DL,LL,LT,LB}3VX11003"VFF$(X)3,VFF$(X)"-2"NBX1:X10036V3@VD$"CLOSE"FF$3JV3W ORGANIZE FORMAT FILE 3WNB222540 4W32003,7(DR$,20):CLIP,A$:FD(X)((DR$,21,9))921NRLRL(FD(X))U24NDR$(DR$,30):FD$(X)A$t2>N(DR$)29DR%DR%1:RRECz2HN2RNCLIP7,322NNPA3(FD(NN))2N2R CLEAR VARIABLES 2RX0100:FF$(X)"":A$(X)"":3RDR%0:TY$"":NW$"":PC0:NU0:R%DP%1=JDR%3:RHEAD:RSDP%51>JDBASE28,(RS254)P1?JRP1050:RS254RP525a1BJDR%RP:RRECo1LJNKB1(0)}1VJKLB1(1)1`JNNB1(2)1jJ1 N READ DATA FIELDS 1"NRL1261%NDR%RP2:RREC1*NCLIP7,1: CHANGE TO CLIP CTRL-A&2/NX0NN:A$A3(FD(N))PGA3(FD(N)):9000&0.TN:0.N(A2(FD(N)))E0/M$"2"P0/11000g0!/FC3M$"1"12100q0&/NN100/PGA3(FD(N))120600:/M$"1":NT0D/08J READ SYSTEM STATUS 0:JDR%0:RHEAD:FM%DP%0;JDR%1:RHEAD:FT%DP%1++H+FI$M$"_0 #11022"+R+FT$"33":FX$"Q" ,\+"PG" OF "NP*##*' GET-PAGE 0*'PG0:N0J*'MD1NW$"Y"İ22500U*$'M$"1"p*.'PGA3(FD(N))İ12000{*B'11000*C'CLIP,FE$:FE$"Q"ı*G'FC2NN1:N010030*H'FC3M$"1"10070*L'NN1:NNN10030*V'** EDIT-LINE +*MD-2"ĺ:LNLN1:8910C)#P((FF$(Y),2))1:FE$(P)" ";:YY1:8970_)(# DISPLAY FACE PLATE e)F#l)P#1)Z#(30(TL$))2)TL$;)d#9120)n#2)x#CD$)#22:CD$;)#4:34,2:35,21)#)# UPDATE PAGE )#NPPGNPPG *#1:30:"PAGE 5),2))1(("(FD$(X6)SP$,FD(X6))" ";.("4("n("X51NB:X6((FF$(X5),2))1:(CD$,FD(X6))" ";::t("("Y1:L0("LN50āX4LN57:::8800("25000("(16384)209DR%NIL("DR%NILĺ(12):8710("31000(#Y1) #FF$(Y)""CLOSE":'" PRINT REPORT''"259003'$":4:1K'.""TITLE OF REPORT:"'8"FI$"0_0 $11 00":FT$(F4$,40):ENTER:TD$FE$""'B"'L"63000'V"X80'`":'j"X8X81:"PAGE NO. "(" "(X8),3)" "TD$::'t"LN0'~"X51NB("X6((FF$(XA60120,60120,60140,60150,60160,60170,60180,60190:t59000K~23:1:868Qo"CANNOT FIND RECORD.";:"CHECK DATABASE DISKETTE IN DRIVE 2";:"DATABASE DISKETTE IS FULL";:BL$;:"UNABLE TO READ DATABASE DISKETTE":HER2:60000E$(X)(DR$,X1,FD(X))(6yX1X1(FD(X)).@y4|Dx PAKTC U24:1:868z7)"PRESS ANY KEY TO CONTINUE";16368,0(16384)1285904016368,01:868` ERROR MESSAGES e23:1:868/jER60100,60110,HV%:RHEADaP1%NIL*aDP%NILF0:<aDR%DP%:RRECVa(DR$,1,KL)A$F0:pa(DR$,1,KL)A$F1:bP1%DR%:250500u PACK RECORD 5uDR$"":uX0NNDuDR$DR$FE$(X)Nuyy UNPACK RECORD yX11"yX0NN,yFXFR%FR%1:DP%FR%:DR%2:WHEAD% X3] HASH =]HV%0v]X0NK:X11FD(X):HV%HV%((FE$(X),X1,1))32::]HVHV%1733:HV((HV1901)(HV1901))1901]HV%HV5]a SEARCH FOR RECORD a30000:A$(DR$,1,KL)a24000 aDR%R%FM%:RREC%VFM%DP%:DR%0:WHEAD0"V22085E,VFT%NR%ERR1:Z6VP%FT%:FT%FT%1s@VDP%FT%:DR%1:WHEADEVFR%FR%1:DP%FR%:DR%2:WHEADJVW RELEASE A RECORD WDR$(1):DR%P%:DP%FM%:WRECWFM%P%XDR%0:DP%FM%:WHEAD(DR$,30):FD$(X)A$3>N(DR$)29DR%DR%1:RREC9HNHRNCLIP7,32[NNPA3(FD(NN))aN}R READ DATA DEFAULTS RDR%RP1:RREC:31000RX0NN:DD$(X)FE$(X):RU FIND NEW RECORD UERR0VFM%NIL22060VP%FM% VDS ON FILE$?NF9$"PRINTER COMMANDS"=?XD$;"OPEN";F9$;",D1"P?bD$;"READ";F9$b?lFTYPE$,COUNTt?vLOOP1COUNT?CMD$(LOOP)?LOOP?D$;"CLOSE";F9$?LOOP1COUNT?CMD$(LOOP)?LOOP?L>t59000>~23:1:868 >I>"CHECK DATABASE DISK IN DRIVE 2";:Y>HER1:60000{> DIVERT OUTPUT TO PRINTER >"(950)63100,63200,63300>| COMM CARD>775:769,132>> DEFAULTS/SEARCH>D$;"PR#";(952)> ?D COMMANDNR2)(Y)=ȌNRNR2!=Ҍ360703=܌PA$(R1)(Y)9=挱I=x PAKTC Z=24:1:868=7)"PRESS ANY KEY TO CONTINUE";=16368,0=(16384)12859040=16368,0=1:868==` ERROR MESSAGES =e23:1:868=jER60100 FILE <ˆR0<̈X1NR26<ֈFF$PA$(X)RX:XNR<<B<ꈱU< WRITE FOF j6;H24:1:59000T;fBNRAB1:BB40:34070Z;x;Ć READ FOF INTO FF$( ) ;ΆD$"OPEN FOF,D"D;؆D$"READ FOF";ↄNR;솭NR034575;X1NR;PA$(X); ;D$"CLOSE";< SEARCH FOF FOR FORMAT :}310000: }S$(C)(" "(DR%),4)W:}X0X11:S$(C)S$(C)FE$(SO(X)):]:}{:Є CATALOG FORMAT FILES :ڄ:䄖10:"CATALOG FORMAT FILES":10:"--------------------":34,3:D1: 34500:A1:B40:XAB4: eCX31:32000-9reS$(C)("0"(X3),2)S$(C)39we99eN90u PACK RECORD Y95uDR$""e9:uX0NNx9DuDR$DR$FE$(X)~9Nu9y9y UNPACK RECORD 9yT119"yX0NN9,yFE$(X)(DR$,T1,FD(X))96yT1T1(FD(X))9@y9Jy :| REORDER RECORD4)):RREC8.c/8,e INITIALIZE READ RECORD ?86eR1:X%XB%d8@eA$"INDASY.FILE.SEARCHFLAGS"DS$8JeFG2A$"INDASY.FILE.SORTFLAGS"DS$8TeD$"OPEN"A$",L5"8YeFG2259908^eX30XB%18ceR(X3)X31018eeD$"READ"A$",R"R(X3):DR%8heRREC9m(S$(1)):SRT7b32003,65(7bT$S$(1);7bX2%((T$,2))O7bR(X2%)R(X2%)1i7bD$"READ"A$",R"R(X2%)r7bDR%7cDR%NILS$(1)S$(X%):X%X%1:X%0S$(1)D$:253807cDR%NIL253807cRREC:C1:32000:S$(C)("0"(X2%),2)S$(C) 8$cDR%((T$,3,40000 0 @ PSRTC %J24:17T8)"PRESS ";J^:"RETURN";:_h" TO CONTINUE";mr16368,0|(16384)128400601:868:4) 2 "IF YOU HAVE ANY PROBLEMS USING MECC"8 c "COURSEWARE WITH YOUR MICROCOMPUTER,"i  "WRITE OR CALL:" :: 10)"MECC HELP LINE"  10)"2520 BROADWAY DRIVE"  10)"ST. PAUL, MN 55113"  10)"(612) 638-0638"& MECC." :- 5)"TITLE: DATA HANDLER"7 ::V 5)"DIRECT INQUIRIES TO:"\  *15)"MECC DISTRIBUTION CENTER" 415)"2520 BROADWAY DRIVE" >15)"ST. PAUL, MN 55113" H15)"(612) 638-0627" R40000 FOR HELP SCREEN  ";::"H";::" FOR HELP";I 40050:HS(16384):HS200HS1411033Z HS1411040d 2000l 10 :D$"RUN INDASY.MENU"  MANUAL SCREEN : "A MANUAL TO AID IN THE INSTRUCTIONAL USE" "OF THIS DISKETTE IS AVAILABLE FROM FILES" % D$"BLOAD MISINPUT"S 36102,17: SET CTRL-Q TO TERMINATE INPUTm D$"BLOAD SIMPUT95-2" D$"BLOAD DATABASE" D$"BLOAD TRIM" D$"BLOAD SRT7D00" D$"BLOAD ONERRFIX" :10 "PRESS ";::"RETURN";::" TO CONTINUE,NPUT D$"BLOAD SIMPUT95-2"6 D$"BLOAD DATABASE"J D$"BLOAD TRIM"a D$"BLOAD SRT7D00"y D$"BLOAD ONERRFIX" :D$"RUN INDASY.MENU"D24:1:"COPYRIGHT (C) 1983 ALL RIGHTS RESERVED"; 16:14:"PLEASE WAIT"  18:13:"LOADING HELLO * COPYRIGHT 1983 MECC: PROG: KSCO DATE: 02/10/83Z32000f D$(4)x2D$"PR#0"::7230,32<D$"BRUNLOGO":16297,0:16300,0:16304,0:16302,0D$"BLOAD MISINPUT" 36102,17: SET CTRL-Q TO TERMINATE I     AX_{@@wF~_>?wv@yFx?@o@`B @}@?@_EyxA?oB}={C^o^k@|Bs @g"A~np{G~`{{aqsBw@x @NO8oJV[_{]n]v=@s"@~nGun{~n{{n@w@wA?~Noxp67\_{]qcf? AwgBo@g@?@wAo@Ax?Co@ A?~D?x@@_A`C_@@_@~A{~A?@pD_0@G@~@~Ew`w| A?O]{o}_ow[g_?^ Fox? F>ppA}@x @OIw;w<{m?}~A?@x@O@_@yC_@@_A8A{~A? A?~Dx@sA~LxXc{o~_ow[k_?] FoxG? DG|A}@x @Iw{z>{m?}~H?X_s;wF|_>?gv@|F_x?@oA~ B?~ @}@?@_E}xA?oA}]A;?o@g@yB{ Oy>x`ow[m_?[ Fox? Cq?@A}@| @?Hw{}>n?@T?8ok=?o{z^>?Wt?~FOx?@xA| @}Iw[o>0@}~@?@OE|xA?oE}@{m?=@?@oL~xA?oOoy]_{?o@g@OB{ @}"qHpnpqan`{q@`@w@qAqA`}@O? AwsBo@@@w@n%Aw_Bo@p @qA?@x@g@O@|CO@@_@~A{~A? @F?|@xA~L0W]v[k6wmo.{~Ew[ow{} A?@gB?|@{@_? AwxBoA?~A_J|pn6|Xg]_cn%Aw_Bo@p @gA?@x@w@o@~Co@@_@~A{~A? @gF?~D~~B?~LPO>zog>{k/{~Aw;w@~ A?O|>{o7ow[n_?W Fox> A?|@} A?~S?xp~@|_>?7{Fox?Bo@x @A?@|@g@oA?~Co@ @|A? ApF?pAxB?CX_~zoF>{k/?{~Dw{zw/ A?O~>{o7owoW?O Fox< A@@}@~D??|@_@OFox?@gD}x@GHw[o{m?]@?@gK~xA?o/wu>o{C^o_kA~Bs @}?@w A?P?~>{o7_ow[oO?_ Bo8 A`@}@~E\ow{} A? @~@gFox?@OD}xA~Hw`.{m?mA?A|p{D@|~?~B1wv@wF?~xc?oIx p|ao?l@xBg @}?@s@OB@{@_"qI~{nqan{`xqA~Bo@xA_J8onV;W[]_]n%Aw_@@D}x @xHXo6{m?pA?M8o{;?o{~_}~.wv@sF?x?@o@cBO @}?@{@Bo @_"nC~{v{nC{{wn@ Bg@x @sA_JX_nfWO{]_>n%AwOBoA?~@? @o@g@?Co@ @qD?| @CF?@C~`Q?@_O~zog>{K/{~D|}_A?~Bg @O"M~n~{z{fn{{ono>Bw@p @gA_JX_nvW_{]_~n%AwoBo@|@? @o@w@?Co@ @GD?x @xF??`@A?`Q@?W~v[k>w-w.{~A?@J> x`\o_@` FO0A?~@}@~Ew[ow{} A? @_Nqwlw`\o<~` Fox? @aCo@ @D?xA?~@AGC_@KX~nx1{~A?@GF_ @@|@~Ew[ow{} A? @_O?|k{o;_ow[o_?>_ Fox? @ AA}@x @cIw[o:{m?}~A?AX_{@?wF~_>wv@{G?x?o@A~B_ @}@?@@E{?|c@o}F`|a?l` ` ʚhih@ (0: Hh @H(hJ)?Pp݄PD & &JJոP`)Bw@p @ON_X_lfW_{_>f%AwoBo@q@? @o@w@?       NM oOI S LޭOȑȑO)MN`ijkl8`iiLaȱPȱQȱR` `ΤԠĮ B t  (  t  `Π K - - tL&kL: JVP:Q; ?L& 0i詁P7Q8P  Y8CABJCK=ʑB t   F  ( t   F   t JJJJ  F  t   F ( t   F `) `ɸ `ɱɲ)` 8`` t   t  (  t   t   t  5H  hɍ`8`ӠRETURNϠ)` +  5   LY șЭ `ɍ8`ɛ8`Ɉ 8``H$()?(h`H@ h` t JJJJ  F   t ( t t t  t  t ( t  t ܠ `à٠ŠŠԺźźΠŠӺ `ɀ)? `JJJJ ``q K  q f 5ɍɛH  h`ӺRETURNϠԠǮESCϠŠӮQϠԮ$`H q [h` t B` t  t ` ` 9 X t z  t   t  t   t RAMETERSEXITING PROGRAMINSERT DISKETTES٠ĮŠĮӠԠ̮ӠĠҮ٠ǠΧԠԠˮERRORŬԬ ) ` ` t )  ̩``$JJJJ `` &'      )`&' )`  t  `   ) 9 J ] ] READINGWRITINGFORMATTINGEDIT PA  `# L ` 9 X q  t  F LŠ٬̤ƍԠӠĠΠԠĺ 0  ` ۩#L*L: ``   ɍ L9ɛ L9 ) t  ̩   [LŭԠ͠ L9   ( # d   b )"# (%      D$"BLOAD DATABASE", D$"BLOAD TRIM"C D$"BLOAD SRT7D00"[ D$"BLOAD ONERRFIX"y D$"RUN INDASY.UTILITIES"I{ REUTIL + COPYRIGHT 1983 MECC; PROG: KSCP DATE: 02/10/83V^ :uD$(4)(13)(4)10:7:"RETURNING TO UTILITIES MENU"D$"BLOAD MISINPUT"36102,17: SET CTRL-Q TO TERMINATE INPUT D$"BLOAD SIMPUT95-2"  L ȱ$ ȱ:ee UȘ`ijkl8`iiLcȱȱȱ`ҍԍҍҍ~~ ~~`^_ij^_kl8`iiLȱȱȱ`^_klmn)^_eeLn8`ee` ~`&&eeee`~ ~ff~~~`8 ~ S~8` ~ A731ee ~80ee ~`&&eeee`~}Lj}A} ~~~~L ERROR IN SORT CALL.6} ~VARIABLEH} ~SORT ARRAY\} ~ELEMENT COUNT~~~̢ ̢  آ }} ` jj&&8  z#????????   Թ Ϡ гв ϭĠ!"ԠҠӠ ԷİƠ͠ ̠ ٠  ٮŮӠٮҠԠŠ͠ĠŠؠ ҠӠϠӠٮŮӠٮՠ ٮŠٮӠٮӠ972:Z5(4)82hZ7(1)56:Z7(2)24:Z7(3)72:Z7(4)72RrSLOT17:AD(SLOT192)256`|CARD14(AD5)Z5(CARD)(AD7)Z7(CARD)40110ZK02:Z2(ZK)0ZI02558:Z2(ZK)Z2(ZK)(ZWZI)::Z2(0)Z2(1)Z2(0)Z2(2)Z2(0)25640120u950,FT:D$"CLOSE"F$vu*COMM CARDOˆSP:D$"BLOAD COMM CARD ROUTINE"j̈SP10Ĺ802,82:818,82pֈ@SEARCH SLOTS FOR AN INTERFACE JCARDS: COMM=1,SERIAL=2,PAR=3,MALIBU=4TD$"CLOSE"F$:Z5(4),Z7(4),Z2(2) ^Z5(1)24:Z5(2)56:Z5(3)ROM THE USE OR"::"OPERATION OF THIS SOFTWARE."?59000::h0u POKE PRINTER SPECS INTO MEMORY :uF$"PRINTER COMMANDS"DuD$"OPEN"F$:D$"READ"F$:FT$NuFT$"COM-CARD"FT1:35000XuFT$"DEFAULTS"FT2:40000buFT$"USER-SET"FT3l̍ԍҤҤҤĠύԍҤĠٮՍԍҤĠٮōԍҤĠٮҍԍҤĠٮӍԍҤĠٮӍԍҤĠԠҠӍԍҤĠ  ERROR MESSAGES #e23:1:868gjER60100,60110,60120,60130,60140,60150,60160,60170,60180,60190rt59000~23:1:868868RCARD:SLOT:CARD0:SLOT03951,CARD:952,SLOTfœCARD1Ĺ950,CARD:D$"BLOAD COMM CARD ROUTINE"l̜|x PAKTC 24:1:8687)"PRESS ANY KEY TO CONTINUE";16368,0(16384)1285904016368,01:868`OR DAMAGE CAUSED OR ":"ALLEGED TO BE CAUSED DIRECTLY OR"::"INDIRECTLY BY THIS SOFTWARE, INCLUDING"::"BUT NOT LIMITED TO ANY INTERRUPTION OF"::"SERVICE, LOSS OF BUSINESS OR"0:"ANTICIPATORY PROFITS OR CONSEQUENTIAL"::"DAMAGES RESULTING FDRIVE"$  10)"ST. PAUL, MN 55113">  10)"(612) 638-0638"I & 59000c  SUPER DISCLAIMER :"NOTICE: MECC SHALL HAVE NO LIABLITY OR"::"RESPONSIBILITY TO PURCHASER OR ANY OTHER":"PERSON OR ENTITY WITH RESPECT TO ANY"::"LIABILITY, LOSS, " H15)"(612) 638-0627"& R59000? FOR HELP SCREEN E K v "IF YOU HAVE ANY PROBLEMS USING MECC"| "COURSEWARE WITH YOUR MICROCOMPUTER," "WRITE OR CALL:" :: 10)"MECC HELP LINE"  10)"2520 BROADWAY MANUAL TO AID IN THE USE"J "OF THIS DISKETTE IS AVAILABLE FROM MECC."R :q 5)"TITLE: DATA HANDLER"{ :: 5)"DIRECT INQUIRIES TO:"  *15)"MECC DISTRIBUTION CENTER" 415)"2520 BROADWAY DRIVE" >15)"ST. PAUL, MN 55113R3)3FE$"Q"ė: 41 MD(FE$):MD1200R MD1500,1520,1540,1550,2000\ 1000z D$"RUN INDASY.CONFIGURE" D$"RUN INDASY.EDITOR" 30000:D$"RUN INDASY.REPORTS,D1" D$"RUN INDASY.UTILITIES"  MANUAL SCREEN : "AGURE DATABASE"/ $:"2) ENTER/UPDATE RECORDS"S .:"3) GENERATE REPORTS/LABELS"i 8:"4) UTILITIES" =:"5) INFORMATION" 32,0 23:1:16303,0 "SELECTION (1-5 OR Q):"; FI$"0_0 #11 00":FT$"6":FX$"12345Q" ENTER (ENTE  INDASY.MENU 0 COPYRIGHT 1983 MECC@ PROG: KSCU DATE: 02/10/83eENTER36096wdFE$"":IN$""xD$(4)(13)(4)BL$(7) MAIN MENU 15:"MAIN MENU"15:"---------"32,38 :"1) CONFI        :PG10PG9:NN1:LC1!50204p EDIT PAGE >z8000OP4:LCP20ZM$"1"7000:QNNNN(Q1)(N1)(Q2):LC6070N79Q1:NN1:PP2NNNNNN:FD$(N)"":FD(N)0P226020NN1:PP2P26824:868-"SAVE DEFAULT VALUES?";\FI$"1_0 $11 00":FT$"6":FX$"YN":FE$"Y"gENTERvFE$"N"ı 21500 GET DATAFIELD PAGES RLRSPG1:N0:Q0:LC06000:QıLCPGPG1:PG05015LC0PGPG1 T19500h, GET DEFAULT VALUES KTL$"DEFAULT ENTRY VALUES"j19000:20000:21000:9000FD(0)0Ė1:12:"DATA FIELDS MUST BE SET UP (OPTION 2) ":"BEFORE DEFAULT VALUES CAN BE SET":59000:Q010000Qı23:1:8P((FD(X)(FD$(X)))402)(XNK)224P4:TX:PGPG1b1FD(X)(FD(X))P100T10000PG1000003PP((FD(X)(FD$(X)))40)2(XNK)26@ERRİ60000:4040BN0N0ENNN:NPA3(FD(NN))FKL0GX0NK:KLKL(FD(X)):J205000NN0:FD$(0)"":FD(0)0*23:1:868;24:1:868]"SAVE CONFIGURATION (Y/N)?";FI$"0_0 $11 00":FT$"6":FX$"YN"ENTERFE$"N"ıF0:NNN:P4:PG1:T0:ERR0X0NN"FFD(X)ERR1,F(FD(X))0NX1:F17.THAN THE":"NUMBER OF DEFINED DATA FIELDS WHICHEVER":"IS LESS.":59000:h CONFIGURE DATA FIELDS VERFY:ERR(1)İ61000:TL$"DATA FIELD CONFIGURATION"1900020000:900023:1:"NUMBER OF CHARACTERS LEFT:";5000NN 8:1( "ENTER NUMBER OF FIELDS:";F FI$"1_0 $10 00":FT$"3"r FE$(NK1):ENTER:FE$"1"ĺBL$;:3040 (FE$)NNĖ1:12:3092:3090 NK(FE$)1 4110 I "THE MAXIMUM NUMBER OF KEYS THAT CAN BE":"REQUESTED IS 9 OR ONE LESS 9::"INITIALIZING DISKETTE":)>INIT@HDR%1:DP%0:WHEADTMERR(1)İ61000kRDR%2:DP%0:WHEADuWRSRT\DR%3:DP%RS:WHEADa19000f CHANGE # OF KEYS   9)"CHANGE NUMBER OF KEYS" 9)"---------------------"&FI$"1 0 $11 00":FT$"6":FX$"12"BFE$"1":RT254FE$"2"MENTERhRT126:FE$"2"RT254 14:1:"DO YOU REALLY WANT TO INITIALIZE (Y/N)?";FI$"0 0 $11 00":FT$"6":FX$"YN" ENTER%(ENTER3)22040*FE$"N"ı420:(ENTER3)3FE$"Q"Ģ4:D$"RUN INDASY.MENU"C QMD(FE$):MD1070_ VMD2000,4000,4500,3000i `1000  CREATE NEW DATABASE  10)"INITIALIZE DATABASE" 10)"-------------------" RTRS 8:1:"RECORD SIZE (1=126 , 2=254):";:" 1) INITIALIZE DATABASE"E :" 2) ENTER/MODIFY DATA FIELDS"p $:" 3) ENTER/MODIFY DEFAULT VALUES" ):" 4) CHANGE NUMBER OF KEY FIELDS" .23:1 3"SELECTION (1-4 OR Q):"; 8FI$"0 0 #11 00":FT$"6":FX$"1234Q" BENTER+ L: BL$(7)& D$(4)(13)(4)1 RL126= DL$":"H RS126S VERFYo ERR(1)CC1:C1410} C21000 19000 20000  CONFIGURATION MENU : 11)"CONFIGURATION MENU" 11)"------------------" 8 ======================================" sF4$"4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444" tSP$" " xX140:CA$CA$(1)2CLIP37632 9VERFYDBASE158 ZA1(X)(X(X))100P [A2(X)A1(A1(X))q \A3(X)(A1(A2(X))10.5) ]ERR(X)(DBASE27)((X0)(X1))(222)((X0)(X2)) ^B1(X)((DR$,X41,4)) dFE$"":IN$"" iDR$"":DR%0:DP%0' nCD$"== INDASY.CONFIGURE 5 COPYRIGHT 1983 MECCE PROG: KSCZ DATE: 02/10/83v FD$(90),FE$(90),FD(90)ENTER36096SIMPUT38144 DBASE34304!RRECDBASE"WRECDBASE3#WHEADDBASE9$RHEADDBASE6(INITDBASE12          68FjER60100,60110,60120,60130,60140,60150,60160,60170,60180,60190Qt59000b~23:1:868h1RITE"FF$(X) Y1(FF$(X1))+A$(Y)2YAĐD$"CLOSE"GΐWx PAKTC h24:1:868"PRESS ANY KEY TO CONTINUE (Q TO QUIT):";FI$"0_0 #10 00":FT$"2":ENTER:Q$FE$""1:868` ERROR MESSAGES e23:1:8 FOF" NRȌX1NR%ҌFF$(X)+܌:挺D$"CLOSE"@Z READ FORMAT FILE sD$"OPEN"FF$(X)",D"DD$"READ"FF$(X)Y1(FF$(X1))A$(Y)ƎЎD$"CLOSE"ڎ WRITE FORMAT FILE D$"OPEN"FF$(X)",D"D D$"WˆD$"OPEN FOF,D"D'̈D$"READ FOF"/ֈNR?NR035075KꈁX1NRWFF$(X)]lD$"CLOSE"r SEARCH FOF FOR FILE R0X1NR2ʊFF$FF$(X)RX:XNRԊފ WRITE FOF D$"OPEN FOF,D"DD$"WRITE(NR1)'FF$(R1)FF$(NR)7'FF$(NR1)"":FF$(NR)""C'NRNR2['D$"DELETE"FF$",D1"j'D1:36000v':958'12:"FORMAT "FF$" DELETED"'10050. SET PRINTER OPTIONS .D$"RUN SET PRINTER OPTIONS,D1" READ FOF INTO FF$( ) "OR Q TO QUIT:";HL'FI$"0_0 #10 00":FT$"2444444444444444444":ENTERWV'FF$FE$""f`'FF$"Q"ıj'FF$""İ8000:10000'35500'R010150'1:15:"THE FORMAT FILE YOU SELECTED TO DELETE"'"DOES NOT EXIST.":BL$:10050'FF$(R)FF$r21:FF$(X2);|$59000IQ$"Q"XNRAB1:BB40:8030Ol' DELETE FORMAT FILES t':$'10:"DELETE FORMAT FILES".'10:"-------------------"8'34,3='D1:35000B'5:"ENTER THE FORMAT YOU WISH TO DELETE"G':00:958:108"FORMAT FILE "FF$(X)" RECOVERED"?XJ$36000P.n@ CATALOG FORMAT FILES vJ:K10:"CATALOG FORMAT FILES"L10:"--------------------"M34,3OD1T35000YA1:B40^XAB4chFF$(X); z(10:"RECOVER FORMAT FILES"H10:"--------------------"T:34,3"PLACE YOUR FORMAT FILE BACK UP DISKETTE""IN DRIVE 2."59000Q$"Q"ı:958D235000X1NR2D236500D1370 D1:35000d NR0Ģ10:10:"NO FORMAT FILES EXIST":23:"PRESS RETURN TO CONTINUE";:QQ$:4220r "X1NR2z ,D1 636500 @D2 J37000 T10:958 ^"FORMAT FILE "FF$(X)" BACKED UP" hX r36000 |p RECOVER FORMAT FILES"IN DRIVE 2 BEFORE IT BACKS UP THE"Q "FORMAT FILES. BE SURE THE DISKETTE YOU"~ "PLACE IN DRIVE 2 IS A BLANK DISKETTE." 59000 Q$"Q"ı  10:10:::"INITIALIZING DISKETTE": D$"INIT HELLO,D2"  D$"DELETE HELLO,D2" "" 10:"---------------------"J 10:7:"LOADING MECC COPY PROGRAM"` D$"BRUN COPY,D1"}  BACKUP FORMAT FILES  10:"BACKUP FORMAT FILES" 10:"-------------------" 34,3 :"THIS ROUTINE INITIALIZES THE DISKETTE"# :FX$"123456Q" ENTERK (ENTER3)3FE$"Q"ĺD$"RUN INDASY.MENU,D1"R 4j MD(FE$):MD1200 MD2000,4000,6000,8000,10000,12000 :1000 D$"RUN INDASY.UTILITIES"  BACKUP DATA DISKETTE  10:"BACK UP DATA DISKETTEATA DISKETTE"- $:"2) BACKUP FORMAT FILES"N .:"3) RECOVER FORMAT FILES"o 8:"4) CATALOG FORMAT FILES" B:"5) DELETE FORMAT FILES" L:"6) SET PRINTER OPTIONS" 32,0 23:1 "SELECTION (1-6 OR Q):"; FI$"0_0 #11 00":FT$"6"i INDASY.UTILITIES 6 COPYRIGHT 1983 MECCFENTER36096]A$(100):FF$(100)odFE$"":IN$""xD$(4)(13)(4)BL$(7) MENU 12:"UTILITIES MENU"12:"--------------"32,36 :"1) BACKUP D     FORMAT (L OR R):";!/ENTER3,1Z4FE$TY$:FI$M$"_0 $11 00":FT$"6":FX$"LQR":ENTERl>FE$"Q"7000H(ENTER3)37750RTY$FE$PC0:NU0:DL0:LL0:LT0:LB0\TY$FE$"":f(TY$,1)"L"7390pNU1z9586:"NO. OF PRINT":OERRFIX:216,0]12:"WOULD YOU LIKE TO CREATE A FORMAT FILE":"WITH THIS NAME (Y/N):";FI$"0 0 $11 00":FT$"6":FX$"YN"ENTER:NW$FE$"":NW$"N"7070 M$"1" CREATE/MODIFY LABEL/REPORT SPECS  *1:4:"LABEL OR REPORT :"ENTER THE NAME OF THE FORMAT:"XFI$"0_1($#10 00":FT$"2444444444444444444":ENTERgFF$FE$""vFF$"Q"ıFF$""ĉ::34000:70207140D$"UNLOCK"FF$216,0:22000:M$"2":72008:958:"FORMAT FILE "FF$" DOES NOT EXIST(S$(X),1,4)::NIL18XB%XB%1:DR%NIL6110@BD$"CLOSE"ILFG2OVuX CREATE/MODIFY PRINT FORMAT b21000l:v7:"CREATE/MODIFY PRINT FORMAT"7:"--------------------------"34,2X0NN:FE$(X)"":!:1:4D$"OPEN"A1$",L5"C1'25000=ERR(1)İ61000:VDR%NILCC1:6160a32000xC100CC1:6120L1%5:L2%(S$(1)):X%CX%16210X%1618032003,83SRT32003,65$D$"WRITE"A1$",R"XB%101.X1C:S"X0NN:FE$(X)"00":'100006FE$"Q"ıXX0NN:S$(X1)FE$(X)(X):f32003,83L1%1:L2%2:X%NN1:SRT32003,65X10X1NN1(S$(X),2)"00"SO(X1)((S$(X),3)):X1X1125900FG0:F1FG1'(FĺD$"WRITE"A$",R"C:R:CC1125100L7D$"WRITE"A$",R"C:NIL]<D$"CLOSE"A$~F23:1:C" RECORDS MATCHED";K59000P4UCFG1:F11Zp SORT RECORDS sXB%0wA1$"INDASY.FILE.SORTFLAGS"DS$zTL$"SORT RECORD:ZZıD$"OPEN"A$-D$"DELETE"A$825900xX0NN:AS(X)1:(PA$(X),1)"#"AS(X)0:PA$(X)(PA$(X),2)XC0F125000:DR%NIL517531000 X0NNPA$(X)""ĭ(PA$(X)(FE$(X),1,(PA$(X))))AS(X)F0:XNNMD1200$MD7000,5000,6000,8000.1000F SEARCH RECORDS OFG0pA$"INDASY.FILE.SEARCHFLAGS"TL$"SEARCH RECORDS"X0NN:FE$(X)"":10000FE$"Q"ıZZ0X0NN:PA$(X)FE$(X):Z$PA$(X):CLIP,Z$:Z$""ZZ1 AT" $:"2) SEARCH RECORDS"7 .:"3) SORT RECORDS"V 8:"4) PRINT REPORT/LABEL"` 32,0k 23:1 "SELECTION (1-4 OR Q):"; FI$"0_0 #11 00":FT$"6":FX$"1234Q" ENTER (ENTER3)3FE$"Q"Ģ4:D$"RUN INDASY.MENU"MD(FE$): READ FIELD INFORMATION " X0- VERFYP ERR(1)İ61000:XX1:X3510g X3FE$"Q":1235r 19000} &20000  REPORTS MENU : 14:"REPORTS MENU" 14:"------------" 32,3 8 :"1) CREATE/MODIFY PRINT FORM44444" tSP$" " xD$(4)(13)(4) }X140:CA$CA$(1): BL$(7) M$"1" NIL1:FALSE0:TRUE1 NR%1087  ^B1(X)((DR$,X41,4))/ dFE$"":IN$""F iDP%0:DR%0:DR$""y nCD$"========================================" sF4$"44444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444RREC6 WHEADRREC9( SIMPUT381446 (SRT32000E 2CLIP37632X 7VERFYDBASE15l YC1100:C210000 ZA1(X)(X(X))C1 [A2(X)(XC1(XC1))C1 \A3(X)(A1(A2(X))10.5) ]ERR(X)(DBASE27)((X0)(X1))(222)((X0)(X2))7 INDASY.REPORTS 3 COPYRIGHT 1983 MECCC PROG: KSCX DATE: 02/10/83 FD(90),FD$(90),FE$(90),A$(100),SO(90),FF$(100) S$(101),AS(90),PA$(90)ENTER36096OERRFIX38000DBASE34304:RRECDBASEWRECRREC3 RHEAD                        :RS254RP525 BJDR%RP:RREC.LJNKB1(0)<VJKLB1(1)J`JNNB1(2)PjJj N READ DATA FIELDS u"NRL126%NDR%RP2:RREC*NCLIP7,1: CHANGE TO CLIP CTRL-A/NX0NN:A$(DR$,20):CLIP,A$:FD(X)((DR$,21,9))1NRLRL(FD(X))4NDR$.N(A2(FD(N)))/M$"2"&/110000&/NN1I0/PGA3(FD(N))12060X:/M$"1":NT^D/z8J READ SYSTEM STATUS :JDR%0:RHEAD:FM%DP%;JDR%1:RHEAD:FT%DP%JDBASE28,(RS254)?JRP1050E +A1(FD(N)):1.+FI$M$"_0 #10 11"E +FT$(F4$,1,FD(N))T+FE$FE$(N) +FD$(N)":";:(FD$(N))FD(N)40FD$(N)""ĺ*+ENTER:FC(ENTER3)4+FE$(N)FE$"">+. DISPLAY-PAGE .PGA3(FD(N))PGA3(FD(N)):9000.TNPPG"#1:30:"PAGE "PG" OF "NP(#:' GET-PAGE G'PG0:N0]'MD1MD2NNK1h$'M$"1".'PGA3(FD(N))İ120008'(MD1MD2)NNKıB'11000G'FC2NN1:N010030I'FC310070L'NN1:NNN10030V'* EDIT-LINDP%T:WREC22500A 23:1:868:(A$,30)" DELETED.";PX1750:Z7010v(# DISPLAY FACE PLATE |F#P#1Z#(30(TL$))2)TL$;d#9120n#2x#CD$#22:CD$;#4:34,2:35,21## UPDATE PAGE #NPPGN 25000Fİ31000:120009FER2:60000:7030D12000v23:1:"DO YOU WISH TO DELETE THIS RECORD?";FI$"0 0 $11 00":FT$"6":FX$"YN"ENTERFE$"N"7010P%DR%P1%NILDR%HV%:WHEAD:7170DR%P1%:TDP%:RRECP1%NILDR%HV%:RHEAD:P2%DP%:DP%P%:DR%HV%:WHEAD:DR%P%:PDR%P1%:RREC\P2%DP%mDP%P%:WRECxDR%P%~X DELETE RECORDb:lTL$"DELETE RECORDS"vX0NN:FE$(X)"":xERR0:PG0{120005300FE$"Q"ı5025 GET KEY !Q0)N06N0N0R11000:NT(ENTER4)kCLIP,FE$:FE$"Q"ıFC2NN1:5350NN1:NNK5350| ADD RECORD VERFY:ERR(1)ERRERR(1)1:60000ERRı22000ERRı>00FE$"Q"ı250006ERR(1)İ61000:5000B23:20R"RECORD ";eFĺ"FOUND. ";yFĺ"IS NEW.";4Fİ3100012000:10015FC25030P2%DP%Fİ5500:ERRERR3:60000:DP%P2%30000 WRECN INDASY.MENU"& MD(FE$):MD12008 MD5000,7000B 1000] lRP1050:RS254RP525s  ENTER/UPDATE y  TL$"ENTER/MODIFY/VIEW RECORDS" PG0 X0NN:FE$(X)DD$(X): N0:12000 23:1:"RECORDS USED:";FR%;:86853RECORDS MENU"1 7:"-------------------------"; 32,3B 8h :"1) ENTER/MODIFY/VIEW RECORDS" $:"2) DELETE RECORDS" 32,0 23:1 "SELECTION (1-2 OR Q):"; FI$"0_0 #11 00":FT$"6":FX$"12Q" ENTER FE$"Q"Ģ4:D$"RUCA$(1):! xD$(4)(13)(4). BL$(7)9 M$"1"D NIL1P DL$":" VERFY:ERR(1)CC1:ERERR(1)2:60000:C3502 C3FE$"Q":1235 19000 20000 21000 NR%RP1  EDITOR MENU : 7:"ENTER/UPDATE CD$"========================================" sF4$"4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444" tSP$" " vX140:CA$ (CLIP37632" YC1100:C210000: ZA1(X)(X(X))C1X [A2(X)(XC1(XC1))C1y \A3(X)(A1(A2(X))10.5) ]ERR(X)(DBASE27)((X0)(X1))(222)((X0)(X2)) ^B1(X)((DR$,X41,4)) dFE$"":IN$"" iDP%0:DR%0:DR$""/ n INDASY.EDITOR 2 COPYRIGHT 1983 MECCB PROG: KSCW DATE: 02/10/83{ FD(80),FD$(80),FE$(80),DD$(80)ENTER36096DBASE34304:RRECDBASEWRECDBASE3RHEADDBASE6WHEADDBASE9VERFYDBASE15SIMPUT38144     )? L`ijkl8`iiLȱȱȱ`  `ԤǠɤǠ̠٠ӮΠɤɤΠȠϠؤǠŤǠL 푈 8`$()` 8``$(H)?(h )`͚#ݚݢݪ8`` t t`@ `ݚ `8`  8`H h`ʩ L E ‘ [  L㏭  L,  Lȹ͠ 1 2LLʈʝhh` 8` 8` 8` 213.񌒍L7 ̒󌒍 ̒ ȱH hLOL׏%H$H$% "  L L h$h% "`g   L㏈ Lޥ F  Lޥ 1'8$% "8$( Lޅ$$% 8# Ƣ Lލ81 1 F  ޢ Lޥ  12_ L12345678A0 Z9F  뢒 LޥHH퍒멍ȑF       &'ij&'kl8`iiL ȱȱȱ`*)? LW` ` ?`MECC (C) 1982 `"$`  !`H ȭ`Ei0` ԋ` t `D ` JLDR$ MISSINGĢ ȱ`Ȣ JLDR% NOT SETĢ ` JLDP% NOT SET) #!` t ȉ   `` $`#$Ƚ$` t ȉ   `` T l`#$ȱ$` &   `Lˊ$ l$$ l ?` &!" $` -ȩ&m#ȩ`#$$`$$` +   `` Z l`#$ȱ$`   ` ?`#}iʝ$##ei ʈ$`*.i⢉ JLHEAD POINTER TOO BIG"ح%!n%n!n%n!n%n!n%n!n%n!!!#!&$))j"#`#` JLILLEGAL RECORD NUMBER! "`" &  ` ?` + ` eLL9L L6LfLϊ~     L8Hmx 6*+(n*+c*ȩ*h`HH$hH,b (hHI  X $ i$h`l&phhߚHH`Ӎ΢ ww wpO_X_lfW_{_>fwooq?o#ER(222):LN(218)(219)256\<#:12:ER4ĺ"ERROR NUMBER "ER" IN LINE "LN:5000:3000F#"PLEASE REMOVE THE WRITE PROTECT LABEL.":5000:CC$"N"2100P#1550(S$,K,1):A(C$):A32AA64:-(A);:4"K<,:SSPACE BAR ROUTINEh24:7:16368,0"PRESS ";::"SPACE BAR";::" TO CONTINUE";Z01:ZC(16384):Z(ZC141)(ZC160):Z16368,0:1:868:20::(#ERROR RECOVERY26:(S$,K,5)"CHR$("4090=JK6L:(S$,J,1)")"4080_X$(S$,K5,JK5):X((X$))rX0X127X0L$"":K1L$(S$,K1)R$"":LJR$(S$,LJ)S$L$(X)R$LKLJ:4090JK5:868:L(S$):K1L C$0 C$" "C$;:L1S$"":25207 S$(S$,L1):2520J  A32AA64:f  (A);::S$S$C$:2520v ( 16368,0: END THE PROGRAM D$"CLOSE"F$:950,0 : D$"RUN INDASY.UTILITIES,D1" SCAN FOR CHR$ L(S$):L74140K1LECT? ";OK$) .OK$(OK$,1):OK$"N"2020< 0OK$"Y"2092W 4D$"WRITE"F$:FT$:NUMd >Q$(34) HJ1NUM:Q$;CM$(J);Q$:J R3000 STRING INPUT S$"":16368,0 C$:A(C$):A132600 L(S$) A34(A8L0)2520 A8258PRESS 'RETURN'.)" I19< I8:" "I". ";:868:2500O S$""ĺ:2090c 4000:CM$(I)S$n I:I9 *NUMI1:NUM0FT$"DEFAULTS":12:"RESETTING PRINTER OPTIONS TO DEFAULTS (SLOT SEARCH).":2100 ,20:868:"ARE THE ABOVE COMMANDS CORRE 10 OR 30 CHARACTERS"0 :"PER SECOND? ";SP$R SP(SP$):SP10SP301520l D$"WRITE"F$:FT$:SPv 3000 SPECIAL INTERFACE FT$"USER-SET" :4:"ENTER THE COMMANDS NECESSARY" "TO TURN ON YOUR PRINTER." :"(TO END, JUST DETERMINE TYPE OF PRINTER FILE9 950,3:D$"OPEN"F$p :11:"ARE YOU USING A COMMUNICATIONS CARD? ";CC$ CC$(CC$,1):CC$"N"2000 CC$"Q"3020 CC$"Y"1030 GET SPEED FOR COMM CARD FT$"COM-CARD" 14:"DO YOU WANT TO US  SET PRINTER OPTIONS C SET PRINTER OPTIONS PROGRAM 2.1`LAST UPDATE: 5/6/82 RPBs(C) MECC 1982~d9000nD$(13)(4)xTI$"SET PRINTER OPTIONS"::11:TI$11:"-------------------":34,3F$"PRINTER COMMANDS"""" " " " " """""