' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( V Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`BFT$"3333":FX$".":ENTER:DL(FE$"")@L(ENTER3)27400WV(ENTER3)37750f`NU17600j10::"LENGTH FROM LEFT SIDE OF 1ST LABEL":"TO LEFT SIDE OF 2ND LABEL:"tLL0FE$"":7560~FE$(LL)ENTER:LL(FE$"")(ENTER3F LABELS ACROSS (1-4):";/NU0FE$"":7430=FE$(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:".DL0FE$"":74908FE$(DL))PC0FE$"":7330#FE$(PC)YFI$M$"_1)G$10 00":FT$"333":ENTER:PC(FE$"")p(ENTER3)27210(ENTER3)37750PC80PC132ĺBL$:7310M$"2"M$"1":72107750 ENTER LABEL SIZING SPECS 6:868:"NO. OBL$"CAN NOT INITIALIZE DISKETTE IN DRIVE 2";:^#BL$"PUT DATABASE DISKETTE IN DRIVE 2";:#H DATABASE ERROR MESSAGES #RER(DBASE27)1#\60000E "e23:1:868K"jER60100,60110,60120,60120,60130,60120,60110,60140V"t59000g"~23:1:868m""5::"NO FIELD CAN HAVE LENGTH OF ZERO";::"BL$"READ ERROR IN DATABASE (DRIVE 2)";:"BL$"WRITE ERROR IN DATABASE (DRIVE 2)";:0#,FD(X))!6yX1X1(FD(X)) !@y&!Jy>! INTEGER TO DR$ \!ˆDR$DR$(" "(X),4):l!x PAKTC }!24:1:868!7)"PRESS ANY KEY TO CONTINUE";!16368,0!(16384)12859040!16368,0!1:868!"` ERROR MESSAGESREAD DATA DEFAULTS . RDR%RP1:RREC:310004 RQ S WRITE DATA DEFAULTS \ T30000o TDR%RP1:WRECu T 0u PACK RECORD 5uDR$"" :uX0NN DuDR$DR$FE$(X) Nu Xu y UNPACK RECORD yX11 "yX0NN!,yFE$(X)(DR$,X1$)29DR%DR%1:RRECHN*RNCLIP7,32=NNPA3(FD(NN))CN^P WRITE DATA FIELDS rPDR%RP2:DR$""#PX0NN:DR$DR$(FD$(X)CA$,20)((FD(X))" ",9)(P(DR$)29RSČWREC:DR%DR%1:DR$""2P7PDR$""ČWRECP R 00TLXNN:35000"^LXRS:350003hLDR%RP:WRECM N READ DATA FIELDS W"NRLRSj%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$(DR$,30):FD$(X)A$>N(DR;JDR%1:RHEAD:FT%DP%/JDBASE28,(RS254)y?JRP1050:RS254RP525BJDR%RP:RRECLJNKB1(0)VJKLB1(1)`JNNB1(2)jJ,L WRITE SYSTEM STATUS 6LDR$""@LXNK:35000JLXKL:350C(ENTER3)4+FE$(N)FE$""$>+:. DISPLAY-PAGE @.H.TN\.N(A2(FD(N)))t/PGA3(FD(N)):9000/M$"2"/11000&/NN10/PGA3(FD(N))NNN12060:/M$"1":NTD/8J READ SYSTEM STATUS :JDR%0:RHEAD:FM%DP%Z$FE$:CLIP,Z$:Z$"Q"Q1:9G'FC2NN1:N010030PL'NN1:NNN10030XQ'Q0^V'q* EDIT-LINE +A1(FD(N)):1+FI$M$"_0 #10 11" +FT$(F4$,1,FD(N))+FE$FE$(N) +FD$(N)":";:(FD$(N))FD(N)40FD$(N)""ĺ *+ENTER:F(TL$))2)TL$;d#9120n#2(x#CD$6#22:CD$;J#4:34,2:35,21P#e# UPDATE PAGE v#NPPGNPPG#1:30:"PAGE "PG" OF "NP#' GET-PAGE 'PG0:N0$'M$"1".'PGA3(FD(N))İ12000B'11000:FC3Q0:D'N0FD(N)FE0ĺBL$;:7120; RL0FD(N1)0LC1:7030A*W@ DISPLAY PAGE cE:9120vJP4:TN:M$"2"TN(N9)9^FC0c7000hNN1:PP2rNNNP228030|NT(# DISPLAY FACE PLATE F#P#1Z#(30ɱFC3Q1:3FI$M$"_0 $10 11":FT$"333"WFE$((FD(N))):FE$"0"FE$""~25:ENTER:FC(ENTER3):FE(FE$)M$"2"ı(FE$,1)"Q"Q2:RLFE0ĺBL$;:7120FD(N)(FE$)LC0FC3Q1: FC27030RLRLLD CONFIG LINE .v23:28:(" "(RL),3);5PZLCM$"2"RLRL(FD(N)):7110FI$M$"_0 #10 00":FT$(F4$,20)1FE$FD$(N):ENTER:FC(ENTER3)M$"2"7110Z$FE$:CLIP,Z$:Z$"Q"Q2:FD$(N)FE$""FC2LC1:((FF$(Y),2))1:FE$(P)" ";:YY1:8970D)(# DISPLAY FACE PLATE J)F#Q)P#1j)Z#(30(TL$))2)TL$;t)d#9120{)n#2)x#CD$)#22:CD$;)#4:34,2:35,21)#)# UPDATE PAGE )#NPPGNPPG)#1:30:"PAGE "PG" OF "NP)#*' GE,FD(X6))" ";("("S("X51NB:X6((FF$(X5),2))1:(CD$,FD(X6))" ";::Y("e("Y1:L0("LN50āX4LN57:::8800("25000("(16384)209DR%NIL("DR%NILĺ(12):8710("31000(#Y1( #FF$(Y)"-2"ĺ:LNLN1:8910()#PT '"25900'$":4:10'.""TITLE OF REPORT:"f'8"FI$"0_0 $11 00":FT$(F4$,40):ENTER:TD$FE$""l'B"w'L"63000'V"X80'`":'j"X8X81:"PAGE NO. "(" "(X8),3)" "TD$::'t"LN0'~"X51NB'"X6((FF$(X5),2))1 ("(FD$(X6)SP$!Z$" ";:LL(Z$)1:C1/&!Y(W)Y(W)1:8600[&!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$"CLOSE":'" PRINT REPORNU08710%R!9%\!PRINT ONE LINE OF EACH LABEL ACROSSE%f!W1NUS%p!DR$A$(W)^%z!31000f%!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$""CY(W)Y(W)1:8590&:FI$"1_0 $11 00":FT$"33":FX$"Q":ENTER:MN(FE$"")I$ FE$"Q"8160V$ :63000`$!X9MNn$ !L0:ROW1$!DR%NIL8710$ !X41NU:Y(X4)1$*!X9X91:X9MNX91:25000$4!A$(X4)DR$$>!(16384)209DR%NIL %H!DR%NILN1X4:X4NU:NUN11:(LB.1666.5):::L0:8360># TY$"R"FF$(Y)"-2"ĺ:8360P# S2Y:YS1:L0V# q# ROWROW1:YS2::8270y# X5# D$"PR#0":8150# 25900# PRINT LABEL# 8:1:958# "ENTER THE NUMBER OF TIMES TO PRINT":"EACH LABEL:";7$ FE$"1"80"& :63000"0 TC$;%": X5127"D ROW1:Y1:L0D"N X71NUM"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);#v TY$"L"FF$(Y)"-2"X7NUāX6ROW !22000!TY$"R"87207! PRINT TEST LABELS I!:8:1:958g!:"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$"")! FE$"Q"ı" TP8230,83 LABEL"F |FI$"0_0 #11 00":FT$"2444444444444444444":FX$"Q":ENTERX FE$"Q"1000g FF$FE$"" FF$""ĉ::34000:8015 8120 D$"UNLOCK"FF$ 216,0:8130!12:"FORMAT FILE "FF$" DOES NOT EXIST":OERRFIX:216,0:59000:::80202%6:X%NN1:SRT<659000:22:958:35,21:M$"2":ERR0:X@ PRINT LABEL/REPORT cJ21000kO:T11:"PRINT REPORT/LABEL"^11:"------------------"h34,2 r:8:"ENTER THE NAME OF THE FORMAT FILE TO":"USE WHEN PRINTING REPORT OR720023000XTY$"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 ROWS REQUESTED="ROW,L1%1:LN1(A$(X),5,2)"00"7880]((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:958TY$"L"ROW(LT.166.5)ERR2ERRİ7950:T FORMAT"!PX0NN:FE$(X)"":)Z:4d10000FiFE$"Q"7190jn EDIT ROW LENGTH AND NUMBER zrXN1NN1s(A$(X))6A$(X)("00"(X),2)"0000"txL1%3:L2%6:X%NN1:SRTROW1:RT0:ERR0TY$"R"DLPC10X1NHEIGHT FROM TOP OF LABEL IN 1ST":"ROW TO TOP OF LABEL IN 2ND ROW:"ZLB0FE$"":7700h FE$(LB)ENTER:LB(FE$"")(ENTER3)27600((ENTER3)377502M$"1"LBLTĺBL$:7670<M$"2"M$"1":7210 FTL$"CREATE/MODIFY PRIN)27460(ENTER3)37750<M$"1"LLDLĺBL$:7530l:15:"HEIGHT OF ONE LABEL TOP TO BOTTOM:"LT0FE$"":7630FE$(LT)ENTER:LT(FE$""):(ENTER3)2NU17460(ENTER3)27530(ENTER3)37750C18:""0"(X3),2)S$(C)9we9e390u PACK RECORD >95uDR$""J9:uX0NN]9DuDR$DR$FE$(X)c9Nui9y9y UNPACK RECORD 9yT119"yX0NN9,yFE$(X)(DR$,T1,FD(X))96yT1T1(FD(X))9@y9Jy9| REORDER RECORD FORMAT 9}31000: }S$IALIZE READ RECORD $86eR1:X%XB%I8@eA$"INDASY.FILE.SEARCHFLAGS"DS$r8JeFG2A$"INDASY.FILE.SORTFLAGS"DS$8TeD$"OPEN"A$",L5"8YeFG2259908^eX30XB%18ceR(X3)X31018eeD$"READ"A$",R"R(X3):DR%8heRREC8meCX31:320009reS$(C)( 7bT$S$(1) 7bX2%((T$,2))47bR(X2%)R(X2%)1N7bD$"READ"A$",R"R(X2%)W7bDR%7cDR%NILS$(1)S$(X%):X%X%1:X%0S$(1)D$:253807cDR%NIL253807cRREC:C1:32000:S$(C)("0"(X2%),2)S$(C)7$cDR%((T$,3,4)):RREC7.c8,e INITCORD "6aFG125100,25200,25300,6 bRR1A6bRFT%DR%NIL:f6bDR%R:RREC:(DR$,1)(1)25100l6 bv6pbRR16ubD$"READ"A$",R"R6zbDR%:RREC6b6bS$(1)D$DR%NIL:6bX%1253106b32003,836bL1%7:L2%(S$(1)):SRT7b32003,65:PC:NU:DL:LL:LT:LB&5 ZROW1:Y745ZX1NN1Q5Z(A$(X),5,2)"00"23100~5(Z((A$(X),3,2))ROWĺA$(X):YY1:2310052ZROWROW1:230805X4Y WRITE FORMAT FILE 4Y::10:"SAVING FORMAT FILE "FF$4YD$"OPEN"FF$4YD$"WRITE"FF$5ZTY$3U READ FORMAT FILE )3UD$"OPEN"FF$:3VD$"READ"FF$U3VTY$,PC,NU,DL,LL,LT,LBb3VX1100n3"VFF$(X)3,VFF$(X)"-2"NBX1:X10036V3@VD$"CLOSE"FF$3JV3W ORGANIZE FORMAT FILE 3WNB2225403W32003,70:32004,198!4XL1%1:L2%(DR$,21,9))21NRLRL(FD(X)):24NDR$(DR$,30):FD$(X)A$Y2>N(DR$)29DR%DR%1:RREC_2HNn2RNCLIP7,322NNPA3(FD(NN))2N2R CLEAR VARIABLES 2RX0100:FF$(X)"":A$(X)"":2RDR%0:TY$"":NW$"":PC0:NU0:DL0:LL0:LT0:LB020RDP%1>JDBASE28,(RS254)51?JRP1050:RS254RP525F1BJDR%RP:RRECT1LJNKB1(0)b1VJKLB1(1)p1`JNNB1(2)v1jJ1 N READ DATA FIELDS 1"NRL1261%NDR%RP2:RREC1*NCLIP7,1: CHANGE TO CLIP CTRL-A 2/NX0NN:A$(DR$,20):CLIP,A$:FD(X)(000 0.TN0.N(A2(FD(N)))*0/M$"2"50/11000L0!/FC3M$"1"12100V0&/NN1o00/PGA3(FD(N))12060~0:/M$"1":NT0D/08J READ SYSTEM STATUS 0:JDR%0:RHEAD:FM%DP%0;JDR%1:RHEAD:FT%DP%0++H+FI$M$"_0 #11022"+R+FT$"33":FX$"Q"+\+A1(FD(N)):1,f+FD$(N)":"T-PAGE *'PG0:N0/*'MD1NW$"Y"İ22500:*$'M$"1"U*.'PGA3(FD(N))İ12000`*B'11000y*C'CLIP,FE$:FE$"Q"ı*G'FC2NN1:N010030*H'FC3M$"1"10070*L'NN1:NNN10030*V'** EDIT-LINE **MD311080**MD111500+ҍt59000~23:1:868 >"CANNOT FIND RECORD.";:k"CHECK DATABASE DISKETTE IN DRIVE 2";:"DATABASE DISKETTE IS FULL";:BL$;:"UNABLE TO READ DATABASE DISKETTE":HER2:60000E|x PAKTC $24:1:868I7)"PRESS ANY KEY TO CONTINUE";W16368,0p(16384)12859040~16368,01:868` ERROR MESSAGES e23:1:868jER60100,60110,60120,60120,60140,60150,60160,60170,60180,60190 %DP%:RREC%a(DR$,1,KL)A$F0:?a(DR$,1,KL)A$F1:RbP1%DR%:25050g0u PACK RECORD r5uDR$""~:uX0NNDuDR$DR$FE$(X)Nuyy UNPACK RECORD yX11"yX0NN,yFE$(X)(DR$,X1,FD(X))6yX1X1(FD(X))@y ]HV%0E]X0NK:X11FD(X):HV%HV%((FE$(X),X1,1))32::t]HVHV%1733:HV((HV1901)(HV1901))1901]HV%HV5]a SEARCH FOR RECORD a30000:A$(DR$,1,KL)a24000aDR%HV%:RHEADaP1%NILaDP%NILF0: aDR,VFT%NR%ERR1:)6VP%FT%:FT%FT%1B@VDP%FT%:DR%1:WHEADeEVFR%FR%1:DP%FR%:DR%2:WHEADkJVW RELEASE A RECORD WDR$(1):DR%P%:DP%FM%:WRECWFM%P%XDR%0:DP%FM%:WHEADXFR%FR%1:DP%FR%:DR%2:WHEAD X] HASHECHNRNCLIP7,32*NNPA3(FD(NN))0NLR READ DATA DEFAULTS fRDR%RP1:RREC:31000RX0NN:DD$(X)FE$(X):RU FIND NEW RECORD UERR0VFM%NIL22060VP%FM%VDR%FM%:RRECVFM%DP%:DR%0:WHEAD"V22085COMMANDS""?XD$;"OPEN";F9$;",D1"5?bD$;"READ";F9$G?lFTYPE$,COUNTY?vLOOP1COUNTi?CMD$(LOOP)s?LOOP?D$;"CLOSE";F9$?LOOP1COUNT?CMD$(LOOP)?LOOP?W>.>"CHECK DATABASE DISK IN DRIVE 2";:>>HER1:60000`> DIVERT OUTPUT TO PRINTER ~>"(950)63100,63200,63300>| COMM CARD>775:769,132>> DEFAULTS/SEARCH>D$;"PR#";(952)>>D COMMANDS ON FILE ?NF9$"PRINTER 36070=܌PA$(R1)(Y)=挱.=x PAKTC ?=24:1:868d=7)"PRESS ANY KEY TO CONTINUE";r=16368,0=(16384)12859040=16368,0=1:868==` ERROR MESSAGES =e23:1:868=jER60100=t59000=~23:1:8682<ֈFF$PA$(X)RX:XNR!<'<ꈱ:< WRITE FOF O;H24:1:590009;fBNRAB1:BB40:34070?;];Ć READ FOF INTO FF$( ) r;ΆD$"OPEN FOF,D"D;؆D$"READ FOF";ↄNR;솭NR034575;X1NR;PA$(X); ;D$"CLOSE";; SEARCH FOF FOR FILE ;ˆR0<̈X1NR(C)(" "(DR%),4)<:}X0X11:S$(C)S$(C)FE$(SO(X)):B:}`:Є CATALOG FORMAT FILES f:ڄ:䄖10:"CATALOG FORMAT FILES":10:"--------------------":34,3:D1: 34500:A1:B40:XAB4: :*PA$(X);;421:PA$(Xҍҍ̍ 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 ONERRFIX"4 D$"RUN INDASY.UTILITIES"6 REUTIL  :0D$(4)(13)(4)Z10:7:"RETURNING TO UTILITIES MENU"rD$"BLOAD MISINPUT"36102,17: SET CTRL-Q TO TERMINATE INPUTD$"BLOAD SIMPUT95-2"D$"BLOAD DATABASE"D$"BLOAD TRIM"D$"BLOAD SRT7D00"  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#????????????   Š Թ ̠Ϡ  !̠"ԠҠӠ ԷİƠ͠ ̠ ٠  ٮŮӠٮҠԠŠ͠ĠŠؠ ҠӠϠӠٮŮӠٮՠٮŠٮӠٮӠ9 "CATALOG",LOAD TRIM"! D$"BLOAD SRT7D00"9 D$"BLOAD ONERRFIX"R D$"RUN INDASY.MENU"4IUM": 24:1:"COPYRIGHT (C) 1983 ALL RIGHTS RESERVED";U 16:14:"PLEASE WAIT"[ x 18:13:"LOADING FILES"~ D$"BLOAD MISINPUT" 36102,17: SET CTRL-Q TO TERMINATE INPUT D$"BLOAD SIMPUT95-2" D$"BLOAD DATABASE" D$"BT HELLO 32000' D$(4)Yd:"****************************************"qn14:"DATA HANDLER"x:"****************************************";}28:"REV. 02/10/83"10:9:"MINNESOTA EDUCATIONAL" 12:9:"COMPUTING CONSORT  ̍ԍҤҤҤĠύԍҤĠٮՍԍҤĠٮōԍҤĠٮҍԍҤĠٮӍԍҤĠٮӍԍҤĠԠҠӍԍҤĠ 4)1285904016368,0'1:868-E` ERROR MESSAGES Ve23:1:868jER60100,60110,60120,60130,60140,60150,60160,60170,60180,60190t59000~23:1:868E:0 Z2(0)Z2(1)Z2(0)Z2(2)Z2(0)25640120N CARD:SLOT:CARD0:SLOT0f 951,CARD:952,SLOT œCARD1Ĺ950,CARD:D$"BLOAD COMM CARD ROUTINE" ̜ x PAKTC 24:1:868 7)"PRESS ANY KEY TO CONTINUE"; 16368,0 (1638"F$:Z5(4),Z7(4),Z2(2)= ^Z5(1)24:Z5(2)56:Z5(3)72:Z5(4)8e hZ7(1)56:Z7(2)24:Z7(3)72:Z7(4)72 rSLOT17:AD(SLOT192)256 |CARD14 (AD5)Z5(CARD)(AD7)Z7(CARD)40110 ZK02:Z2(ZK)0 ZI02558:Z2(ZK)Z2(ZK)(ZWZI):"DEFAULTS"FT2:40000/ buFT$"USER-SET"FT3H lu950,FT:D$"CLOSE"F$N vu] COMM CARD ˆSP:D$"BLOAD COMM CARD ROUTINE" ̈SP10Ĺ802,82:818,82 ֈ @SEARCH SLOTS FOR AN INTERFACE JCARDS: COMM=1,SERIAL=2,PAR=3,MALIBU=4 TD$"CLOSEN INDASY.CONFIGURE". D$"RUN INDASY.EDITOR"T 30000:D$"RUN INDASY.REPORTS,D1"r D$"RUN INDASY.UTILITIES" 0u POKE PRINTER SPECS INTO MEMORY :uF$"PRINTER COMMANDS" DuD$"OPEN"F$:D$"READ"F$:FT$ NuFT$"COM-CARD"FT1:35000 XuFT$RATE REPORTS/LABELS"* 8:"4) UTILITIES"4 32,0? 23:1] "SELECTION (1-4 OR Q):"; FI$"0_0 #11 00":FT$"6":FX$"1234Q" ENTER (ENTER3)3FE$"Q"ė: 4 MD(FE$):MD1200 MD1500,1520,1540,1550 1000 D$"RU INDASY.MENU &ENTER360968dFE$"":IN$""OxD$(4)(13)(4)\BL$(7)o MAIN MENU u15:"MAIN MENU"15:"---------"32,38:"1) CONFIGURE DATABASE"$:"2) ENTER/UPDATE RECORDS" .:"3) GENE     E z8000P4:LCP20)M$"1"P7000:QNNNN(Q1)(N1)(Q2):]LC6070mN79Q1:}NN1:PP2NNNNNN:FD$(N)"":FD(N)0P226020NN1:PP2P26020X EDIT LINE l GET DATA FIEFI$"1_0 $11 00":FT$"6":FX$"YN":FE$"Y"6ENTEREFE$"N"ıP 21500Vs GET DATAFIELD PAGES }RLRSPG1:N0:Q0:LC06000:QıLCPGPG1:PG05015LC0PGPG1:PG10PG9:NN1:LC15020p EDIT PAGTL$"DEFAULT ENTRY VALUES"919000: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:86824:868"SAVE DEFAULT VALUES?";+GPG111FD(X)(FD(X))P100T10000PG100000\3PP((FD(X)(FD$(X)))40)2(XNK)2b6x@ERRİ60000:4040BN0N0ENNN:NPA3(FD(NN))FKL0GX0NK:KLKL(FD(X)):J20500T19500h GET DEFAULT VALUES 4:1:868,"SAVE CONFIGURATION (Y/N)?";SFI$"0_0 $11 00":FT$"6":FX$"YN"^ENTERmFE$"N"ıF0:NNN:P4:PG1:T0:ERR0X0NN"FFD(X)ERR1,F(FD(X))0NX1:F1.P((FD(X)(FD$(X)))402)(XNK)224P4:TX:PER":"IS LESS.":59000:7 CONFIGURE DATA FIELDS TVERFY:ERR(1)İ61000:wTL$"DATA FIELD CONFIGURATION"1900020000:900023:1:"NUMBER OF CHARACTERS LEFT:";5000NN0NN0:FD$(0)"":FD(0)023:1:868 2"1_0 $10 00":FT$"3"A FE$(NK1):ENTER:FE$"1"ĺBL$;:3040c (FE$)NNĖ1:12:3092:3090s NK(FE$)1} 4110  "THE MAXIMUM NUMBER OF KEYS THAT CAN BE":"REQUESTED IS 9 OR ONE LESS THAN THE":"NUMBER OF DEFINED DATA FIELDS WHICHEV1:DP%0:WHEAD#MERR(1)İ61000:RDR%2:DP%0:WHEADDWRSRT\\DR%3:DP%RS:WHEADga19000mf CHANGE # OF KEYS   9)"CHANGE NUMBER OF KEYS" 9)"---------------------" 8:1 "ENTER NUMBER OF FIELDS:"; FI$":RT254FE$"2"ENTER7RT126:FE$"2"RT254n 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:9::"INITIALIZING DISKETTE":>INITHDR%D(FE$):MD1070. VMD2000,4000,4500,30008 `1000U  CREATE NEW DATABASE [ z 10)"INITIALIZE DATABASE" 10)"-------------------" RTRS 8:1:"RECORD SIZE (1=126 , 2=254):"; FI$"1 0 $11 00":FT$"6":FX$"12"FE$"1/MODIFY DATA FIELDS"? $:" 3) ENTER/MODIFY DEFAULT VALUES"j ):" 4) CHANGE NUMBER OF KEY FIELDS"u .23:1 3"SELECTION (1-4 OR Q):"; 8FI$"0 0 #11 00":FT$"6":FX$"1234Q" BENTER L(ENTER3)3FE$"Q"Ģ4:D$"RUN INDASY.MENU" QM DL$":" RS126" VERFY> ERR(1)CC1:C1410L C21000W 19000b 20000~  CONFIGURATION MENU : 11)"CONFIGURATION MENU" 11)"------------------" 8 :" 1) INITIALIZE DATABASE" :" 2) ENTER4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444" tSP$" " xX140:CA$CA$(1): BL$(7) D$(4)(13)(4) RL126X))100 [A2(X)A1(A1(X))@ \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$"========================================" sF4$" INDASY.CONFIGURE )PROG:KSCE FD$(90),FE$(90),FD(90)UENTER36096fSIMPUT38144v DBASE34304!RRECDBASE"WRECDBASE3#WHEADDBASE9$RHEADDBASE6(INITDBASE122CLIP376329VERFYDBASE15 ZA1(X)(X(          20,60130,60140,60150,60160,60170,60180,601907t59000H~23:1:868N$(X1))A$(Y)Y'ĐD$"CLOSE"-ΐ=x PAKTC N24: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:868,jER60100,60110,601 ҌFF$(X)܌ 挺D$"CLOSE"&@ READ FORMAT FILE YD$"OPEN"FF$(X)",D"DmD$"READ"FF$(X)Y1(FF$(X1))A$(Y)ƎЎD$"CLOSE"ڎ WRITE FORMAT FILE D$"OPEN"FF$(X)",D"DD$"WRITE"FF$(X)Y1(FF$D$"READ FOF"ֈNR%NR0350751ꈁX1NR=FF$(X)CRD$"CLOSE"Xu SEARCH FOF FOR FILE }R0X1NR2ʊFF$FF$(X)RX:XNRԊފ WRITE FOF D$"OPEN FOF,D"DD$"WRITE FOF"NRȌX1NR)'FF$(NR1)"":FF$(NR)"")'NRNR2A'D$"DELETE"FF$",D1"P'D1:36000\':958|'12:"FORMAT "FF$" DELETED"'10050. SET PRINTER OPTIONS .D$"RUN SET PRINTER OPTIONS,D1" READ FOF INTO FF$( ) ˆD$"OPEN FOF,D"D ̈"0_0 #10 00":FT$"2444444444444444444":ENTER=V'FF$FE$""L`'FF$"Q"ıej'FF$""İ8000:10000p'35500'R010150'1:15:"THE FORMAT FILE YOU SELECTED TO DELETE"'"DOES NOT EXIST.":BL$:10050'FF$(R)FF$(NR1)'FF$(R1)FF$(NR 59000/Q$"Q"XNRAB1:BB40:80305R' DELETE FORMAT FILES Z':y$'10:"DELETE FORMAT FILES".'10:"-------------------"8'34,3='D1:35000B'5:"ENTER THE FORMAT YOU WISH TO DELETE"G':"OR Q TO QUIT:";.L'FI$ORMAT FILE "FF$(X)" RECOVERED"%X0$360006.T@ CATALOG FORMAT FILES \J:|K10:"CATALOG FORMAT FILES"L10:"--------------------"M34,3OD1T35000YA1:B40^XAB4chFF$(X);r21:FF$(X2);| FORMAT FILES".10:"--------------------"::34,3i"PLACE YOUR FORMAT FILE BACK UP DISKETTE"|"IN DRIVE 2."59000Q$"Q"ı:958D235000X1NR2D236500D137000:958:10"F0:10:"NO FORMAT FILES EXIST":23:"PRESS RETURN TO CONTINUE";:QQ$:4220X "X1NR2` ,D1k 636500s @D2~ J37000 T10:958 ^"FORMAT FILE "FF$(X)" BACKED UP" hX r36000 | p RECOVER FORMAT FILES z10:"RECOVERS UP THE"7 "FORMAT FILES. BE SURE THE DISKETTE YOU"d "PLACE IN DRIVE 2 IS A BLANK DISKETTE."o 59000} Q$"Q"ı  10:10:::"INITIALIZING DISKETTE": D$"INIT HELLO,D2"  D$"DELETE HELLO,D2" D1:35000J NR0Ģ1-------"0 10:7:"LOADING MECC COPY PROGRAM"F D$"BRUN COPY,D1"c  BACKUP FORMAT FILES i  10:"BACKUP FORMAT FILES" 10:"-------------------" 34,3 :"THIS ROUTINE INITIALIZES THE DISKETTE" "IN DRIVE 2 BEFORE IT BACK1 (ENTER3)3FE$"Q"ĺD$"RUN INDASY.MENU,D1"8 4P MD(FE$):MD1200x MD2000,4000,6000,8000,10000,12000 :1000 D$"RUN INDASY.UTILITIES"  BACKUP DATA DISKETTE  10:"BACK UP DATA DISKETTE" 10:"--------------ACKUP FORMAT FILES"4 .:"3) RECOVER FORMAT FILES"U 8:"4) CATALOG FORMAT FILES"u 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":FX$"123456Q" ENTERO INDASY.UTILITIES ,ENTER36096CA$(100):FF$(100)UdFE$"":IN$""lxD$(4)(13)(4)yBL$(7) MENU 12:"UTILITIES MENU"12:"--------------"32,36:"1) BACKUP DATA DISKETTE" $:"2) B     ER3,1?4FE$TY$:FI$M$"_0 $11 00":FT$"6":FX$"LQR":ENTERQ>FE$"Q"7000hH(ENTER3)37750RTY$FE$PC0:NU0:DL0:LL0:LT0:LB0\TY$FE$"":f(TY$,1)"L"7390pNU1z9586:"NO. OF PRINT CHARACTERS(80 OR 132):";"WOULD YOU LIKE TO CREATE A FORMAT FILE":"WITH THIS NAME (Y/N):";iFI$"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 FORMAT (L OR R):";/ENTRMAT:"=FI$"0_1($#10 00":FT$"2444444444444444444":ENTERLFF$FE$""[FF$"Q"ıxFF$""ĉ::34000:70207140D$"UNLOCK"FF$216,0:22000:M$"2":72008:958:"FORMAT FILE "FF$" DOES NOT EXIST":OERRFIX:216,0B12:%XB%1:DR%NIL6110%BD$"CLOSE".LFG24VZX CREATE/MODIFY PRINT FORMAT eb21000ml:v7:"CREATE/MODIFY PRINT FORMAT"7:"--------------------------"34,2X0NN:FE$(X)""::1:4:"ENTER THE NAME OF THE FO1 25000"ERR(1)İ61000:;DR%NILCC1:6160F32000]C100CC1:6120yL1%5:L2%(S$(1)):X%CX%16210X%1618032003,83SRT32003,65$D$"WRITE"A1$",R"XB%101.X1C:(S$(X),1,4)::NIL8XB 10000FE$"Q"ı=X0NN:S$(X1)FE$(X)(X):K32003,83hL1%1:L2%2:X%NN1:SRTv32003,65X10X1NN1(S$(X),2)"00"SO(X1)((S$(X),3)):X1X1125900FG0:F1FG1D$"OPEN"A1$",L5"CR"C:R:CC12510017D$"WRITE"A$",R"C:NILB<D$"CLOSE"A$cF23:1:C" RECORDS MATCHED";nK59000uP4UCFG1:F11Zp SORT RECORDS sXB%0wA1$"INDASY.FILE.SORTFLAGS"DS$zTL$"SORT RECORDS"X0NN:FE$(X)"00":D$"DELETE"A$25900]X0NN:AS(X)1:(PA$(X),1)"#"AS(X)0:PA$(X)(PA$(X),2)dXlC0tF125000:DR%NIL517531000 X0NNPA$(X)""ĭ(PA$(X)(FE$(X),1,(PA$(X))))AS(X)F0:XNN (FĺD$"WRITE"A$",6000,80001000+ SEARCH RECORDS 4FG0UA$"INDASY.FILE.SEARCHFLAGS"nTL$"SEARCH RECORDS"X0NN:FE$(X)"":10000FE$"Q"ıZZ0X0NN:PA$(X)FE$(X):Z$PA$(X):CLIP,Z$:Z$""ZZ1:ZZıD$"OPEN"A$DS" .:"3) SORT RECORDS"; 8:"4) PRINT REPORT/LABEL"E 32,0P 23:1n "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$):MD1200 MD7000,5000, X0 VERFY5 ERR(1)İ61000:XX1:X3510L X3FE$"Q":1235W 19000b &20000x  REPORTS MENU : 14:"REPORTS MENU" 14:"------------" 32,3 8 :"1) CREATE/MODIFY PRINT FORMAT" $:"2) SEARCH RECOR " xD$(4)(13)(4) }X140:CA$CA$(1): BL$(7) M$"1" NIL1:FALSE0:TRUE1 NR%1087  READ FIELD INFORMATION )) dFE$"":IN$""+ iDP%0:DR%0:DR$""^ nCD$"========================================" sF4$"4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444"n tSP$" SIMPUT38144 (SRT32000* 2CLIP37632= 7VERFYDBASE15Q YC1100:C210000i 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)) ^B1(X)((DR$,X41,47 INDASY.REPORTS ( PROG:KSC= DATE:02/10/83q FD(90),FD$(90),FE$(90),A$(100),SO(90),FF$(100) S$(101),AS(90),PA$(90)ENTER36096OERRFIX38000DBASE34304:RRECDBASEWRECRREC3RHEADRREC6WHEADRREC9                        VJKLB1(1)`JNNB1(2)jJ9 N READ DATA FIELDS D"NRL126W%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$(DR$,30):FD$(X)A$>N(DR$)29DR%DR%1:RR0/PGA3(FD(N))12060':/M$"1":NT-D/I8J READ SYSTEM STATUS b:JDR%0:RHEAD:FM%DP%{;JDR%1:RHEAD:FT%DP%JDBASE28,(RS254)?JRP1050:RS254RP525BJDR%RP:RRECLJNKB1(0)  +FT$(F4$,1,FD(N))#+FE$FE$(N)T +FD$(N)":";:(FD$(N))FD(N)40FD$(N)""ĺm*+ENTER:FC(ENTER3)4+FE$(N)FE$"">+. DISPLAY-PAGE .PGA3(FD(N))PGA3(FD(N)):9000.TN.N(A2(FD(N)))/M$"2"/11000&/NN1ET-PAGE 'PG0:N0,'MD1MD2NNK17$'M$"1"R.'PGA3(FD(N))İ12000k8'(MD1MD2)NNKıvB'11000G'FC2NN1:N010030I'FC310070L'NN1:NNN10030V'* EDIT-LINE +A1(FD(N)):1+FI$M$"_0 #10 11",30)" DELETED.";X1750:)7010E(# DISPLAY FACE PLATE KF#RP#1kZ#(30(TL$))2)TL$;ud#9120|n#2x#CD$#22:CD$;#4:34,2:35,21## UPDATE PAGE #NPPGNPPG#1:30:"PAGE "PG" OF "NP# ' G00:703012000E23:1:"DO YOU WISH TO DELETE THIS RECORD?";lFI$"0 0 $11 00":FT$"6":FX$"YN"wENTERFE$"N"7010P%DR%P1%NILDR%HV%:WHEAD:7170DR%P1%:TDP%:RRECDP%T:WREC22500 23:1:868:(A$HEAD:DR%P%:DR%P1%:RREC+P2%DP%<DP%P%:WRECGDR%P%MbX DELETE RECORDjb:lTL$"DELETE RECORDS"vX0NN:FE$(X)"":xERR0:PG0{120005300FE$"Q"ı25000Fİ31000:12000FER2:6000N0!11000:NT(ENTER4):CLIP,FE$:FE$"Q"ıPFC2NN1:5350fNN1:NNK5350l| ADD RECORD VERFY:ERR(1)ERRERR(1)1:60000ERRı22000ERRı P1%NILDR%HV%:RHEAD:P2%DP%:DP%P%:DR%HV%:W500023:20!"RECORD ";4Fĺ"FOUND. ";HFĺ"IS NEW.";O4]Fİ31000o12000:10015~FC25030P2%DP%Fİ5500:ERRERR3:60000:DP%P2%30000 WREC5025 GET KEY Q0N0N00,7000 1000, lRP1050:RS254RP525B  ENTER/UPDATE H l TL$"ENTER/MODIFY/VIEW RECORDS"u PG0 X0NN:FE$(X)DD$(X): N0:12000 23:1:"RECORDS USED:";FR%;:868 5300 FE$"Q"ı 25000ERR(1)İ61000: 32,3 87 :"1) ENTER/MODIFY/VIEW RECORDS"R $:"2) DELETE RECORDS"\ 32,0g 23:1 "SELECTION (1-2 OR Q):"; FI$"0_0 #11 00":FT$"6":FX$"12Q" ENTER FE$"Q"Ģ4:D$"RUN INDASY.MENU" MD(FE$):MD1200 MD50M$"1" NIL1 DL$":"V VERFY:ERR(1)CC1:ERERR(1)2:60000:C3502m C3FE$"Q":1235x 19000 20000 21000 NR%RP1  EDITOR MENU : 7:"ENTER/UPDATE RECORDS MENU" 7:"-------------------------" sF4$"4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444" tSP$" " vX140:CA$CA$(1): xD$(4)(13)(4) BL$(7) (X))C1' [A2(X)(XC1(XC1))C1H \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$"" nCD$"========================================" INDASY.EDITOR &PROG:KSCJ FD(80),FD$(80),FE$(80),DD$(80)ZENTER36096uDBASE34304:RRECDBASEWRECDBASE3RHEADDBASE6WHEADDBASE9VERFYDBASE15SIMPUT38144(CLIP37632YC1100:C210000 ZA1(X)(X      )? 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"""" " " " " """""