DOS -BASIC !- MENU1 \ DOC -8 DOCUTIL J  AMENU ^ 5 ð))'))×"F$#å#b&y"q"U*1c >2 >!"c 5 ['yg> gy?O  2&{2& ͮ!{¥ : >!! ~Y(!(!*&~}OG<=͗!:5 0"!@{!: ! >wG#7wG# ! >!Wr!0O>!/!×!:{!:>! ::!:Ù!͗!:!0:&!͙!!: y2 :&_͙! ͗!:@!>!@{!: "!!+"G#+"G# " #!>!::3":;"::&R":I~_G#~_G# T"X*& >?1&&1c :&+"6& RE-BOOT">T1&01&&>D1&y?01&&>S1&%v"", V$, >2&!&+6 "T]t&7 ",7 , #7w#t&"A&t& 7:/ !&O:&o&'>" , {@#×!:+ ;#:&2&> >"d##Gy@O:&c 2&x2&6#:&҄#=S#*&:&!&h&)T]))o|g:& !9"&#/$#_#y?##x##7#!$!$g} W /2&h"&"&M\N#*&*&|E.#} W\MN#yW:4 6$>FD"&2&~ ""د2&>2/ !"&~$:& h$7*&y2&* !%" !/ :&O:&o&'>" "  :/ $!':&%$# $~ $,&N#F !&̈́&$"&¸$<"  :/ 2/ Ã$~ $:&Q%:&Q%=N%%6& , 8%&:3 =2&F&# Q%,&%&,&~r%)%&Sʃ%D&o&%~£%&#,&%& $, PRESS RETURN TO CONTINUE"0%%%0%%%/"U*%*U*x&:&G& :&  & &s#r#^#V#G "1&6&t&]& A&0, , , Oy2&S&}2&:3 2&>W$*&~ ʂ&#"&#z+{"O,&,&~怱O~#, {,&z*ڸ&-Ҹ&2&" *&> W*TEST NORTH STAR DOS 5.1DQ "COPYRIGHT NORTH STAR COMPUTERS, INC., 1979>!)c ['2&>! 6Y#=u'͗!>=„':'z2& :0 +'6&y")>0x>07>@!|;)gN)~w,;)$N)|;)0)>A>>>7>7>0>`>ʀ)xʊ)> xxx!U*  *@*!*@&v"__4*4*@*&v"+*wG&  &#*q"GO BASIC t& u*!͖*, ))))ot& €*0:ҡ*0AG?7t&7 ʫ*!:, 0, T])))_t& ,ø*ͫ*, |, }t&D+ *S+, t&, !"" !q""- 2&+&*!W*"&*U*!H+ ̈́&##?+##.+q",&( CR*,DEt+GO&JGO BASIC +IN,LI,TY+LF+SF+"++6 |+ u**&> "*, G~怰w·+u*#'&+ +":&O,&,&z, ~怱O{u*+" , +ͫ*,  ,,, A&u***xO}%,<+"V$, "V$, ͫ*, *&~Aܫ**x2&f,#|g}o:&O/$DM+ , , '&q#p#:&w#q&+w, A&*xOx/G!'6 #6 #¯,/$!> '" ,  =¿,*&~# ,#>,~#"&oA&b&-7!_!-@Y-__^1][>2[#"["[>2[!yY"YX>2Y>2yY2Yң-*[~ʀ-h-*U![eHP-*[:[u-*[6 2%0."[:[ʝ-*[#PE*[eH.. 2-!-6-2!YzY:-6# »-HͧHD> 2YX:[*[62yYXQXgM>2Y!o>SHlM*Y!"["[2[:YP.*YZ͘K> !ZNH*Y*Y5"YZ IͮMOYKS.KlM:Z 5 .0x.:~Z5tT7 .5 2ͅ.-!Z"Y#H>!77#H !Y././././././.*["[6/././.*[+"Y.0.0:Y/*["Y*[KE 2[&/:Y&/:[SH:Y-*[DM^!YeHF/ o g{/!>SHZ͘K> !ZNH-3J*[ͪG:[o&3J*[ͪG2[*Y*Y"[*[###"Y6ARG"DIMENSION"FUNCTION DEF"OUT OF BOUNDS"TYPE"FORMAT"LINE NUMBER"FILE"HARD DISK"DIVIDE ZERO"SYNTAX"CONTINUE"TOO LARGE OR NO PROGRAM"DOUBLE DEF"CONTROL STACK"MISSING NEXT"READ"INTERNAL STACK OV"INPUT"MEMORY FULL"ARG MISMATCH"ILLEGAL DIRECT"LENGTH"NUMERIC OV"STOP" BLOCKS"!Z"YLK"Z*YZʹ1~]06);06,:06\?G 1#1>110~ ʫ1 #"0~ ʫ1 #"0,1x ,1,1,1,1{1{1{1{1{1{10ʹ1"YLK>D}*Y0  x ʹ1,0# {1> !~Zq+ # ~ ʷ1#mH͘K##~11 1!?#1~1#11#mH͘K1*[6"[*[6+"[*[#"Y!4G2YLKک.~4wʩ.![eHڻ." -7-͙MIJ|».}һ. ڻ.ͮM}*[w*[~~2I*["[>Â2*[2[>2[#H> ک.OPE##~.~怱O#~.*[62| 2" .73-#H> ҩ.5o&*Y#"Y~ 3 2LKک.>2[-3:[O:[*[" "YÝ3!/ 2[A3xGyO! a3.W_:4 X3.z!< .KE"[KE:[!/ w  ,  w#Ç352H[#H> ک.OPEPE~怱O~.#z:H[3 3=һ.w 3*[" .#H .́K.#H .Y1-g4> . HIJ9H>D4IJz»..2[!H[-3g4> .+6 ]4 ! "[!H[7 E> ! "["[LKڡ4"[9H¡4LKک.|ʻ."[#H ©.I*[~4###"Y+H ʲ4oKھ4Iھ4¾4*[*Y++KEþ4*[DM*[*[~#KE*U 4͙MLK>5}!:"- *yY% ͙M:-2[#H *[*[O5́K9HO5#H *[O5́K#"H[#H ©.lM~:yY‰5:[ʉ5=†5!u>SHKlM:-=2[Z1#NHvMlM!H[eH_5! "Y"YLK5"Y9H5LKک.|ʩ."Y H>2Y-2Y5o&Z͘K> NH!0SH*[*[ I#} 6$|LKک.)J HLKک.)J"[ H![eHҩ.*[~*U*[ I#DM U-:Y0.2Y2Y"["Y6!yY"ÝK.lM 2*[~20.+"Y"Y6 2Y2Y2[DXF6ʵ.HFG=0.!GHKEFè6###"YHͧHvM!9"Y*["Y7~F6:> 2Y2Y#H"Y/7.>+Ho&mHwEH> Ë́=êGIwE.Ḧ́=ͪGḦ́=>;Hz7!B͕G}7̈́=͸G*Y~F=r+s+r+s+6"Y"[GFV0*[.ʤ7¥77I2H[*[#~=#ͶF7}EeH=N#F:H[N~mH 8DM,A8"[mH~F"Y6HT8̈́=ͧGH:Yʻ8>2YoKE97*[RD+H..c>#mH###*[RDxʛ8zʶ8~++ ʃ8á8zʡ87!8!Y6A>"[88<á8#H"8+H#H ."8+H8 \oKһ8+Hʺ8»8»8>2YK8I*[#~="[oK.I)J### 8IJz».HoK. E9 H39I)Jq9I͸GoK.)J~FDMp+q+6###%8I*[#~=ʕ9ʦ9~9#^#V"[~ 8:#~Gy_>YWw#³9"[#~9RD~F9*[U"[+#̈́=~F9͕G#^#V"Y#~"[#^#V"[ͪG*[9I %:\oK#H ȸ+H%:>:F]:Gү.HIJʯ.H=E9H;:y OGү.H!GIJ!GKE9Hڕ:IJKw:HeEV:I~F:>2Y*Y*[!9"Y2yYgM!0SH#;HVIG9H:FGd0.wEG;H:ͪG;>" EG9H:oK*[)J+"YʹH͙M@;ͨFlMͨF,<%ʝ;Hx;̈́=ͧG*[0R;MGͮMlMSH9H@;lM*[RD"[zo;ͮMG;MlMFDM+Ä;H+HLK;D;![Z;@C; ;$;#<~wà;ʹHà;|.}!.2[+HI1;H͙M>";H<?DMK2[lMZwEʟ<2Sڸ<9Hڰ E"Y Æ2[i< INPUT ERROR-RETYPE " IF: IH0.IJ9HIJz».{>!=H[!H[wz».#s#6IJ9HIJsIͨF>o=oK.)J"[ HwE."[ HwE."[>2[ɯ2[QX*[g4Î2!@!9i0.2Y:Y=ͶFگ=}E.͕G==H='I=#HAʪAAYBʋB!@U>#H=H>:Y.*Y->>>.+HÖ=> c>+H͇=~ͅG?>"[ DM!=#mH+H*Y-.c>Ḧ́=H/>O!@ READY"PRESS RETURN TO CONTINUE" ERROR" IN LINE "o65%225~2R6d2{423( 3655/7J71;7,8:L<:9O9w9;:::";6:<<1;%9=0=8VYWIU.s=D2P44==LETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONOUTFILLEXITOPENCLOSEWRITECHAINLINEDESTROYCREATEERRSETRUNLISTMEMSETSCRAUTOLOADCONTAPPENDRENNSAVESAVEBYEEDITDELPSIZECATSTEPTOTHENTABELSECHR$ASCVALSTR$NOENDMARKINCHAR$FILE([*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTATNFREEINPEXAMABSCOSLOGEXPTYPA XC MNBNA O AA&^qA}AC&AAA_AAA A AAB0BQBA^1][B.Aw.Aw>Aw.Aw.Aw.Aw.Aw>?A ?APYDMg dAdA! dA# YA$wG> PYwG xAxABKxAwG!>zGHIJ9HºAIJ!A3JH=HwE.ÿAHHAwE.zʻ.n&ÿAABGx&BO&B$ "BB$ B%BK>NLJ>!=H[o&3JͧG*Y*[ I3JLJn ҢB!>͕GA~o&ÿALJͯX.W!3J#3J3J#3J0BP@ACBH@.@B)D>y[zGy[t[Oy[t[NBy[Mt[y[N=C!t[zGwTB@TBA hCPY!BzGJ CBC,AڠC͕GLJt[zGt[MÑC͕G1]!YͪGM[CCͅGBK(DMLJ+"n[C:-W0!G#C"n[ͧG*n[}-D?|g}oC"n[#3JͅGBK(DO!"n[eS`E"[zGM*["[N=4DŷH҆D.#HʻDDD>'IҨDwE.zʨD*[DM IG"[*[~ #zD¹D>;HYDHIJ͸GsHèDHIJ{ _D:-ʮ:DḦ́=HͧGʹH*[0RX"[ÆD*[SD*["[!9eH)EKE*[z~+2E! GKEs#r#^#V#!G## KEKKE##GͶF.FE#H>;HʝEGE!GE> OGUE##IJeHһ.##N#FxEK+ HðEH#HHG =EPE"[PE"["[>;H?SF_F![eHF».*[+"[9H>F_F![eH:F»."[H*[ I.#"["[7*[*[>=*[*[*[IJʻ."["["[+H\ ʘF!Y.:~F~?ڤF###"Y#H \!Y[GGhG?OͶF.>$;HyOFy@O:~F+H 7ȸȹF#H G+HFF/.ʵ.HxA*[#*UT]mH|=G~#*G##!G"["[KEq###>2Y7#HA[?rG#H0:?#"Y!B~+ |G*[ T]ͅGBK͸GzG<2Y!Y*[ "[zG*[G"[*Y*Y"Y"Y*YG"YvH!YeHG![eH0*[+"[.,H+HH)+H.+H+"Y*Y~# .H"Y>,+H+"Y7 HH UH"~G .DM#UH#z+{~#fop#zvH#H+H[GڔHhG+H"Y"$*["[*["[*["[*["[!#"[#H!Y2S"Y!YÕGH>""H;H*Y"[G~#I .H"Y*[:Y =:Y0.}o|gW>;HIF.Gڵ.PEH͸G6IwEIʋI͕G͸Gr+s+6̈́=ͪG+H,“II9HIUI> EwI).I>);HI͸Gr+s+w!9͸GxYS w +¾Ir+61yY>;H6w9I0."Y"Y*Y"Y*Y*Y*["[*[Ny7#"[eH+?*[*[ڻ."[ JI..\[͘K> !Y2SÕG̈́=ͅGAͧG~.O #~Jڻ. J~Jڻ. hJz̈́=ͅGBK(D,AҟJLJ{Z*[ͅG͕GJOͅGAͅG͕GLJͅGBKJMͅG DMNͧGLJ{%`C"[bk)))*[_zWYzGA,Ax5Kz».{Y:KX:K|».}gû.By K!T)FK @K#H"[.T?Jڻ..TZK*[+"Y>;H7#^#V#"Y#H *[LKک.I.ɯͽKͽKͽKͽKͽK>0"[ K*[BѰ>0:yY G KK:-x*Y"Y~MY!Z6 ;MOͮMO2Y2YK )L6 !ZY~# L!LʠLʩLLLL_LLʶL MM@M L:Y{L {Lw#6 GDM ͮMOZ!Yw# L6 0. LsL͠L sLìLK LDMºLsLGL L%DML:-G:YL+6 :YDM DMDM:Y<2YDM>DM!ZY#~ "M@DMlM:[K*[SHK:yY \M ;M*[4;M*[6;M DM DM:- 2Y:Y½::02[:[&/é:>#;H>ڪMIJ9H{2yY!zY:yY*U"[~!YòM M![>6+=M![cN>![ NON>w MN[ON N+=M[͇N[ͲNG~@ZNTN>ZN0.G怰[zGO+wgN+w!~ʝNP+>æN>'w+ >¦N !T]bNշ'w+N![w+ N[ Oo`iN/< OzGV[+~ O![1OO+ *O=O#T]cN~P+ԖNF+O7>'+ UOOx'w+ ?qOT]#w…O#~žO O¦O xwO6¼OcN+|G'+OO|G>~͝NxNNpbN. ! "[![w+P6![cN![w+(P w+0P6[![͕PG![͕P*[w#"[ ?P͇NͲNgoAʓPP>PNNW{怲 7>'+ŸPژPNy"[G!i[6":[P+60.=P+6."["["[P+6 P"[+6!*[~cQAQ0Q QH RQQARQ#Q+~.-Q,-Q"JQ1Q!h[:[#uQ:[Q~0Q6 +uQ:[#Q#6"+~"[.®Q+~ ʩQ!®Q##60îQ>0Q*[~>-Q*[/G"Q>0QQ:[@Q![5Q6>,Q*[+W~!."[r*[#W~"R"[rz5cQ-Q>W>0x=_*[~+R0>2[>2[:[IʻR#ʋRER:[ͺP:[ dR~>+Q>$Q*[:[#~R#~ vR+T]"ÂR!"[~ʻRIRG+~®R~ʠRxARJMRJ.2[:[<ͺP>"2h[SR~2[RAw:[ͺP*[~.R#6E#:[+ SA S-/"SR2[2[2[>2[+[S[SVS-\S>2["[>+6=aS"["[.TڛS.€S.TډS7![5.TʂSSESS.TʘSکS.ʆSÔSDT![4.TکS.SES![@S![*[w*[:[G.TSDTSESS.TT+ T T- T€S2[.TҀS_.T!TJ.T:[{S/%;HgU͆JaX H>;H>&;HUHʵU͑Ẍ́=ͧG!Y~•U6~͘W#—U9HjU͑X>nWRD|##U͑X>͘W|͘WU͑X>͘W}͘W*["[zʤU~͘W+U͑XIJ».{͘WäUIJͯX.>%;H)V͆JaX H>&;HҩVwE^VW.ͺWw#JV9H,VWV*[ͺW{V.VͺWWͺW_*[+ IG*[zʥVͺWw+ÓVEwE.ͺWo&3JͪGWV#HIJͯX.~V: !V)G6#KE>%;H>VIJ{ Hg4> .2H[PE###KEPE~.~!H[w4W)KEKEr:H[w9H3JwE.êG#HIJͯX?X~w/X*[~ wWw~#PE NW++~G nW q*[~怰?X PEKEW͛W/X*[W~~O#PEPEPEeHڻ.ʻ.PE!X" yWzW{_>" !." .!." .6 #6 #=$X*[~@~@wW~@~G~p WͯX?XTX*[~ eHʄXx„X{_eH?XKEw*[ ##F#~#N+ W\eHһ.z».{». KY~"[ͯX6X!."- !." COPYRIGHT NORTH STAR COMPUTERS, INC., 1978GZYM ZZ(.7.PPPPPPPP yYZZ_BPBYE 11539,15 Z 11539,15 BYE 11539,15 ##BYYZYY__!BzG],A!BzG],Aڻ.͕G͏G]M͏GBNͅGAͅG͕GͅGt[zGy[zGy[Ay[Nt[ ]My[t[Ny[N͏G]MͅGNͧGt[zGt[Mt[y[!!]>)Dt[~[!0]>)Dy[M~[N~[OBNBOͅG~wLJ{\/<{\]OM\<wPbCseQA)%FI=1b'vA$8C 2BDCA<]BOʻ..>@BK],A\]=ʻ.4t[zGBNBNt[BNt[Ot[zGt[M>y[!^)D>~[!^)Dy[M~[O]Nt[Mo&3J͏G]NͅGNçGdB1b'v@@)h1cIAg5`iBABK^N2[͕G͏G^O͏GBNͅGAͅG͕GLJ{d^:[2[ͅGt[zGy[zGy[Ay[Nt[^My[t[Ny[N͏G_MͅGNͧG͕G͏GM͏Gt[!_>)DͅGt[Mt[Mt[NͧG:[wpycA1AY&A1AAY&SX=ffW3Q>t&0;A@_!Bt[zGt[O!t[zGt[zGt[M> t[y[!_)Dy[Mz_y[ t_^N!y[_~ʉ_wzG@333#@'YE@w&g?D5u3"'C?q@IT>XIJ».{͘WäUIJͯX.>%;H)V͆JaX H>&;HҩVwE^VW.ͺWw#JV9H,VWV*[ͺW{V.VͺWWͺW_*[+ IG*[zʥVͺWw+ÓVEwE.ͺWo&3JͪGWV#HIJͯX.~V: !V)G6#KE>%;H>VIJ{ P923 \ P9 IS THE NUMBER OF S 1 THE EEN 4 C9$27)"*" \ CLEAR EEN CHARACTERS * D1 \ D IS ER DEVICE NUMBER  I1 P9\\ - " ENTER NAME OF TEXT FILE ? ",7), "",F$  F$"EN"  F$"END"  F$"" F$"TEXT"  F$F2$)1  / \" INITIALIZATION IN PROGRESS ....."  F$"TEXT"   #1,"INDEX"F2$  1)0   #1,I$  F$I$1,F$)) "  " I$29,32)"BYPP"  ,, \" ENTER PASSWORD FOR ",F$," ? ", 6 Z$"" @ I1 4 J Z$Z$0) T " ", ^ h r Z$I$29,32)  :| \" INVALID PASSWORD. ACCESS NOT ALLOWED ....."  #1  \\ "",Z$   #1  N90  #1,F$F2$,T  1)0   #1,L$  N9N91    #1  N9N91  C9$  \  ; " ***** D O C TEXT PROCESSOR *****" & /0 " VERSION - 4.2" : :D " SELECT ONE OF THE FOLLOWING OPTIONS:" N >X " IN - INPUT MODE LB - PRINT LABELS" ?b " AP - APPEND MODE IX - DISPLAY INDEX" Dl " ED - EDIT MODE LP - PRINT SINGLE LINES" Fv " DS - DISPLAY DOCUMENT SP - REMAINING FILE SPACE" B " PR - PRINT DOCUMENT SW - SWITCH DOCUMENTS" ? " UT - DOC UTILITIES END - TERMINATE DOC"  \ B " ENTER YOUR SELECTION ? ",7),  "",S$  S$"END"  S$"UT" "DOCUTIL"  S$"IN"   S$"AP"  S$"ED"  S$"DS"   S$"PR" &  S$"IX" 6  S$"UX"    S$"SW"  S$"SP"    S$"LB" . * S$"PW" F 4 S$"LP"  > P199999 H L$" " R  \  f (p THIS RINE HLES THE FUNCTI z  I1 P9\\  L$3),7) 1 "----+----1----+----2----+----3----+----4", / "----+----5----+----6----+----7--",13),  "",P$  P$".END" # P$"" #D #D," ",P$  QQ1  QP1   Q1  #D,12)    3 THIS SECTI OF CODE HLES THE 'IN' COMM.   F$F2$)1  $ I1 P9\\ . F$"TEXT"  8 #1,"INDEX"F2$ B 1)0 ` L #1,I$ V B ` I$" " j I$I$I$ t I$1,8)F$ ;~ \" ENTER TEXT DESCRIPTION < OR = 20 CHARACTERS ? ",  "",I$9,28) ' " ENTER PASSWORD FOR ",F$," ? ",  "",Z$ . Z$"" I$29,32)"BYPP" I$29,32)Z$  #1,I$  #1 E \" FOR HOW MANY LINES OF TEXT DO YOU WISH TO ALLOCATE SPACE",  " ? ",N  NN4)1\TN  F$F2$,N  F  F$"TEXT" F  I1 P9\\ 0  \" ",F$," ALREADY CONTAINS VALID TEXT.", ( " DO YOU WISH TO CONTINUE ? ",Z$  Z$""  ( Z$"Y" F 2 Z$"YES" F <  F #1,F$F2$ P I1 P9\\ Z C1 *d L$" " n L$L$L$ x " ", @ "----+----1----+----2----+----3----+----4----+----5----+",  "----6----",  13),  %3I,C," ",  "",L$1,64)  L$1,4)".END"   L$1,3)".SP"  < " TOTAL =",T4," CURRENT =",C1," LEFT =",T4C1  d  #1,L$  CC1  d  #1  N9C2    3" THIS SECTI OF CODE HLES THE 'IX' COMM. , 6 #2,"INDEX"F2$ @ I1 P9\\ 3J " DO YOU WANT A HARDCOPY (Y OR N) ? ",Z$ T Z$"Y" HD H0 ^ Z$" " "DOC" 3NCG͊^!ZH3N=]WD=DGBKD3NͺJ+"\ZD:-W0!G#LD"\H*\}-fD?|g}o`D"\#͡JGBKDcP!"\eS`E"&]G3N*&]"&]UO=ÙDŷHID.͍H E8ERE>͑I EE¸.z E*\DM͊IUH"\*\~ #zEE>ͥHҾD{HͷJ"Hs̓H E{HͷJ{ _&E:-:&E{H=̓HHI*\͞RX"\D*\͸D*\"\!9HڎE԰E*\z~+×E! BHͰEs#r#^#V#!@H## ͰE͂KͰE##@HG.1GKF͍H>ͥHF͉GDF!@HDF> O͉GܺE##ͷJHҲ; THIS IS A DOCUMENTER, TEXT , WD PROCESS, ETC.  ALL ROLLED O E.  /( CODED BY JOHN E. BAILEY, SULPHUR, LA. .2 DECEMBER, 1979 ALL RIGHTS RESERVED < %F VERSI 4.2 FEBRUARY, 1983 P 8Z I$32),L$64),L1$64),A$30),B$30),C$30),P$72) d 80 n F2$",2" :x P923 \ P9 IS THE NUMBER OF S 1 THE EEN  M10535)\ CLEAR EEN * D1 \ D IS ER DEVICE NUMBER  I1 P9\\ - " ENTER NAME OF TEXT FILE ? ",7), "",F$  F$"EN"  F$"END"  F$"" F$"TEXT"  F$F2$)1  / \" INITIALIZATION IN PROGRESS ....."  F$"TEXT"   #1,"INDEX"F2$  1)0   #1,I$  F$I$1,F$)) "  " I$29,32)"BYPP"  ,, \" ENTER PASSWORD FOR ",F$," ? ", 6 Z$"" @ I1 4 J Z$Z$0) T " ", ^ h r Z$I$29,32)  :| \" INVALID PASSWORD. ACCESS NOT ALLOWED ....."  #1  \\ "",Z$   #1  N90  #1,F$F2$,T  1)0   #1,L$  N9N91    #1  N9N91  C9$  \  ; " ***** D O C TEXT PROCESSOR *****" & /0 " VERSION - 4.2" : :D " SELECT ONE OF THE FOLLOWING OPTIONS:" N >X " IN - INPUT MODE LB - PRINT LABELS" ?b " AP - APPEND MODE IX - DISPLAY INDEX" Dl " ED - EDIT MODE LP - PRINT SINGLE LINES" Fv " DS - DISPLAY DOCUMENT SP - REMAINING FILE SPACE" B " PR - PRINT DOCUMENT SW - SWITCH DOCUMENTS" ? " UT - DOC UTILITIES END - TERMINATE DOC"  \ B " ENTER YOUR SELECTION ? ",7),  "",S$  S$"END"  S$"UT" "DOCUTIL"  S$"IN"   S$"AP"  S$"ED"  S$"DS"   S$"PR" &  S$"IX" 6  S$"UX"    S$"SW"  S$"SP"    S$"LB" . * S$"PW" F 4 S$"LP"  > P199999 H L$" " R  \  f (p THIS RINE HLES THE FUNCTI z  I1 P9\\  L$3),7) 1 "----+----1----+----2----+----3----+----4", / "----+----5----+----6----+----7--",13),  "",P$  P$".END" # P$"" #D #D," ",P$  QQ1  QP1   Q1  #D,12)    3 THIS SECTI OF CODE HLES THE 'IN' COMM.   F$F2$)1  $ I1 P9\\ . F$"TEXT"  8 #1,"INDEX"F2$ B 1)0 ` L #1,I$ V B ` I$" " j I$I$I$ t I$1,8)F$ ;~ \" ENTER TEXT DESCRIPTION < OR = 20 CHARACTERS ? ",  "",I$9,28) ' " ENTER PASSWORD FOR ",F$," ? ",  "",Z$ . Z$"" I$29,32)"BYPP" I$29,32)Z$  #1,I$  #1 E \" FOR HOW MANY LINES OF TEXT DO YOU WISH TO ALLOCATE SPACE",  " ? ",N  NN4)1\TN  F$F2$,N  F  F$"TEXT" F  I1 P9\\ 0  \" ",F$," ALREADY CONTAINS VALID TEXT.", ( " DO YOU WISH TO CONTINUE ? ",Z$  Z$""  ( Z$"Y" F 2 Z$"YES" F <  F #1,F$F2$ P I1 P9\\ Z C1 *d L$" " n L$L$L$ x " ", @ "----+----1----+----2----+----3----+----4----+----5----+",  "----6----",  13),  %3I,C," ",  "",L$1,64)  L$1,4)".END"   L$1,3)".SP"  < " TOTAL =",T4," CURRENT =",C1," LEFT =",T4C1  d  #1,L$  CC1  d  #1  N9C2    3" THIS SECTI OF CODE HLES THE 'IX' COMM. , 6 #2,"INDEX"F2$ @ I1 P9\\ 3J " DO YOU WANT A HARDCOPY (Y OR N) ? ",Z$ T Z$"Y" HD H0 ^ Z$" " h Y$1,8)F$ r J1 P9 | 2)0   #2,I$  I$9,13)" " | 2 Y$1,8)I$1,8) #H" *", #H" ", " #H" ",I$1,8)," ",I$9,28), , I$29,32)"BYPP" #H"" #H" PT"   H0 "",Z$  r  KJ P9\#H\  H0 "",Z$  #2    3 THIS SECTI OF CODE HLES THE 'DS' COMM.   M10535) & #2,F$F2$ 0 L0 : J1 P9 D 2)0 p N #2 %66L,L$ X LL1 b L$1,2)".C"  l L$1,1)"."  v L$1,2)".J" D  L$1,3)".EJ" D  L$1,4)".DEL" D  L$1,3)".D#"   S$"D"  D  L$1,3)".S#"   S$"S"  D $ L$64,64)"%" L$64,64)" "  " ",L$  S$"D"    JJ1   1 "",Z$  Z$"" :   Z$".END"  * Z$"END"  4 > L1Z$2)) *H Z$1,1)"-" LLL1P9 LLL1P9 R L0 L0 \ LN9  f : p FINISH PAGE z "",Z$  Z$""   Z$"END"   Z$".END"   #2 %0,L$  4   #2     CENTER A   L$1,5)".COPY"  L$1,2)" "  I64 3 1  L$I,I)" " $  $ J1I2 . J10 8 J164J1)2) B L$J1)L$3) L J1J11 V I1 J1 ` L$I,I)" " j t ~ 3 THIS SECTI OF CODE HLES THE 'AP' COMM.  #1,F$F2$  I1 P91\\  C1  1)0 d #1,L$  %3I,C," ",L$ CC1 3 THIS SECTI OF CODE HLES THE 'ED' COMM.  #1,F$F2$  I1 P9\\  ( ,X,Y ( \ " COMMAND: ",Z$ 2 Z$""  < Z$".HELP" h F Z$)3  P Z$1,3)".DS" Z Z$)4  d Z$1,4)".DEL" n Z$1,4)".INS" x Z$".END"  Z$1,4)".MOD"   Z$1,4)".REP"  . THIS SECTI HLES THE .REP SUBCOMM  Z$)4  SZ$6))  PS  " START LINE # ",S  " STOP LINE # ",P SS1 PP1  S0 SN9 (  NS P  #1 %N66,L$ " \%3I,N1," ",L$ *, L$" " 6 L$L$L$ ?@ " ----+----1----+----2----+----3----+----4----+----5", J "----+----6----",13), T %3I,N1," ", ^ "",L$1,64) h L$1,4)".END" r SN | >  NN9  #1 %N66,L$,    #1 %N66,L$  #1  - THIS SECTI HLES THE .DS SUBCOMM  Z$)3   NZ$5))    " LINE # ",N  NN1 & N0 NN9 ( 0 #1 %66N,L$ : L$1,4)".DEL" N D %3I,N1," ",L$ N Q1 X IQ P91 b Q0 l 1)0  v NN1 #1,L$  L$1,4)".DEL" l  %3I,N1," ",L$   " COMMAND: ",Z$  Z$"" X < , THIS SECTI HLES THE . SUBCOMM  Z$)4  SZ$6))  PS   " START LINE # ",S  " STOP LINE # ",P SS1 * PP1 4 S0 SN9 ( > NS P H #1 %66N,L$ %R \" THIS LINE DELETED ....." \ L$ f L$1,4)".DEL" p NN9 z #1 %N66,L$,    #1 %N66,L$  . THIS SECTI HLES THE .INS SUBCOMM  Z$)4  NZ$6))  " LINE # ",N  N0 NN9 ( + " HOW MANY LINES TO INSERT ? ",M   IN9 N 1  #1 %66I,L$ $ IN9 B . #1 %66IM),L$ 8 L B #1 %66IM),L$, L V N9N9M ` JN NM1 *j L$" " t L$L$L$ ~ " ", @ "----+----1----+----2----+----3----+----4----+----5----+",  "----6----",  13),  %3I,J1,  " ",L$1,64)  #1 %66J,L$,     . THIS SECTI HLES THE .MOD SUBCOMM   Z$)4   SZ$6))   PS  2  " START LINE # ",S ( " STOP LINE # ",P 2 SS1 < PP1 F S0 SN9 ( P NS P Z #1 %N66,L$ d " ",L$,13), n %3I,N1," ", x I1 64  I$0)  I$)8   II1  8),    I$)01   L$I,I),     I$)13   L$I,I)I$  L$I,I),     NN9 6  #1 %N66,L$, " ,  6 #1 %N66,L$ @  J /T THIS SECTI HLES THE .HELP SUBCOMM ^ h \ .r " THE FOLLOWING IS A SUMMARY OF THE" /| " COMMANDS AVAILABLE THRU THE EDITOR"  9 " .DS,N - DISPLAY THE TEXT STARTING AT LINE N" $ " .REP,N - REPLACE LINE N" . " .REP - REPLACE LINES N1 THRU N2" # " .DEL,N - DELETE LINE N" - " .DEL - DELETE LINES N1 THRU N2" / " .INS,N - INSERT LINES AFTER LINE N" 2 " .MOD,N - MODIFY LINE N. ENTER CTRL A" / " TO MOVE THE CURSER RIGHT," 0 " BACKSPACE TO MOVE IT LEFT." - " .MOD - MODIFY LINES N1 THRU N2" 2 " .END - END THE CURRENT EDIT SESSION"  \\ (  3 THIS SECTI OF CODE HLES THE 'PR' COMM.  & I1 P9\\ 0 ,X,Y <: " Printing of the document is now ready to begin." >D " Answer each of the following questions carefully." :N " Your answers will control the final format of" "X " the printed document." b  \ " .....BEGIN PRINTING AT WHICH LINE ? ",Z$ H Z$"" Z$"1" R ZZ$)\Z1Z1 \ Z10 Z1N9  *f \ " .....HOW MANY COPIES ? ",Z$ p Z$"" Z$"1" z Z0Z$) @ \" .....ALIGN PAPER AND PRESS RETURN TO BEGIN.",7),  "",Z$  8206,128  #1,F$F2$  S8$S$\J8$J$  N8N5\P8P1\Z8Z1\Q8Q\F00  #1 %Z166,L$    1)0   #1,L$  L$1,6)".COPY," @  L$1,2)".P"           Z0Z01 $ Z00 V . #D,12), 8 S$S8$\J$J8$ B N5N8\P1P8\Z1Z8\QQ8\F00 L  V #1 ` #D\#D\#D e 8206,176 j  t 1~ THIS RINE DECODES S EACH OF TEXT   L$1,4)".DEL"  L$1,3)".D#"   S$"D"   L$1,3)".S#"   S$"S"   L$1,2)".J"   L$3,3)"O" J$"Y"  L$3,3)"F" J$"N"   QQ1   QP1 Z  Q0  F00 #D,12), ( F0F01 2 P5$"Y" Z ,< N51 #D #D,64),"Page ",%3I,N5 F #D\#D P N5N51 8Z L$1,32)" "  9d L$33,64)" "  n #D x   L$1,3)".EJ"   Q0  #D,12),  P5$"Y"  #D,64),"Page ",%3I,N5  #D\#D  N5N51   J$"Y"  $ L$64,64)"%" L$64,64)" "  L$1,2)".C"   #D," ",L$  S$"D"  #D  QQ1  " +, THIS RINE HLES THE .COPY COMM 6 @ " ",L$ J F1$"" T I7 14 ^ L$I,I)" " | h F1$F1$L$I,I) r | F1$F2$)1   #2,F1$F2$  2)0   #2,L$     # L$20,37)"** NO TEXT FILE **"   2 \\ " ERROR IN PRINT ROUTINE ......",Z$    #2     RINE JUSTY S   ,X,Y  L$64,64)" " & I64 54 1 0 L$I,I)" " N : D N N64I X I1 20 b L$I,I)" "  l v  JI 64  L$J,J)" "   L$J1)L$J)  JJ1  NN1  N0    3 THIS SECTI OF CODE HLES THE 'UX' COMM.   I1 P9\\  #2,"INDEX"F2$  Z$" " 0  " NAME OF INDEX TO CHANGE ? ",Z$1,8)  J0   2)0  * #2,I$ 4 I$9,13)" " H > I$1,8)Z$1,8) \ H JJ1 R  )\ \" OLD DESCRIPTION: ",I$9,28) $f I$9,28)" " /p " ENTER NEW DESCRIPTION ? ",I$9,28) &z " ENTER NEW PASSWORD ? ",Z$  Z$""   Z$)4 z  I$29,32)Z$  #2 %34J,I$,  #2    * THIS SECTI HLES THE 'SP' COMM   I1 P9\\  LT4  " FILE NAME : ",F$ ? " THERE IS ROOM FOR ",L," LINES OF TEXT IN THE FILE." D " THERE ARE CURRENTLY ",N91," LINES OF TEXT IN THE FILE." D " THERE IS ROOM REMAINING FOR ",LN91)," LINES OF TEXT."  "",Z$ $  . 8 LABEL ING RINE B L I1 P9\\ /V " ARE LABELS ALIGNED (Y OR N) ? ",Z$ ` Z$"Y"  %j J1 3\#D"XXXXXXXXXXXXXXX"\ t #D\#D\#D ~ V  G " ENTER INFORMATION EXACTLY AS IT IS TO APPEAR ON THE LABEL."  " " NAME : ",A$ " " ADDRESS : ",B$ " " CITY,STATE,ZIP : ",C$ 0 \ " HOW MANY LABELS DO YOU WANT ? ",N  N0   \  I1 N  #D,A$  #D,B$  #D,C$   #D\#D\#D    ( 12 THIS SECTI OF CODE HLES THE 'PW' COMM. < F C9$, P #1,"INDEX"F2$ Z I1 P9 d 1)0  n #1,I$ x I$9,13)" " d $ " ",I$1,8)," ",I$29,32)   "",Z$  Z  KI P9\\  "",Z$  #1     y@@ @@ L$1,4)".DEL" b  %3I,N1," ",L$   " COMMAND: ",Z$  Z$"" N 2 , THIS SECTI HLES THE . SUBCOMM  Z$)4   SZ$6))  PS   " START LINE # ",S  " STOP LINE # ",P  SS1 PP1 * S0 SN9  4 NS P > #1 %66N,L$ %H \" THIS LINE DELETED ....." R L$ \ L$1,4)".DEL" f NN9 p #1 %N66,L$, z   #1 %N66,L$    D O C UTILITIES  =( THIS PROGRAM PROVIDES SEVERAL UTILITIES D O C. 2 4< CODED BY JOHN E. BAILEY, JAN., 1981 F &P PROGRAM NAME IS DOCUTIL Z d n F2$",2" x I$32),L$64)  M10535)\ CLEAR EEN  I1 6\\  20),"D O C UTILITIES"  * 22),"1 - INITIALIZE NEW TEXT DISK" ! 22),"2 - COPY A DOCUMENT" # 22),"3 - DELETE A DOCUMENT" % 22),"4 - COMPRESS A DOCUMENT"  22),"5 - INDEX"  22),"6 - CHAIN TO DOC"  21),"99 - TO STOP"  & 35),"ENTER SELECTION ? ",7),  "",Z  Z1 Z6 "" Z T,,8,<,,, , "DOC" 6 5@ THIS SECTI INITIALIZES A NEW D O C DISK J T M10535) (^ \\"PUT NEW DOC DISK IN DRIVE 2." +h \ ">> PRESS RETURN WHEN READY <<",Z$ r I$""\L$"" | "TEXT"F2$)1  "INDEX"F2$)1  "INDEX"F2$,12  "TEXT"F2$,26  #1,"INDEX"F2$ * I$"TEXT TEXT WORK FILE BYPP"  #1,I$  #1  #1,"TEXT"F2$  I1 64\L$L$" "\  #1,L$  #1   / THIS SECTI COPIES E DOC AHER.   M10535) & \\ 40 " ENTER NAME OF COPY FROM DOCUMENT ? ",C$ -: " IS ",C$," ON DRIVE 1 OR DRIVE 2", D " ? ",Z$ #N Z$"1" F0$",1" F0$",2" X C$"" 2b " ENTER NAME OF COPY TO DOCUMENT ? ",T$ -l " IS ",T$," ON DRIVE 1 OR DRIVE 2", v " ? ",Z$ # Z$"1" F1$",1" F1$",2" 3 \\ " ..... PRESS RETURN WHEN READY.",Z$  C$F0$)1  7 \" DOCUMENT ",C$," DOES NOT EXIST.....",7)  &  T$F1$)1  7 \" DOCUMENT ",T$," ALREADY EXISTS.....",7) 4 " DO YOU WISH TO CONTINUE (Y OR N) ? ",Z$  Z$"Y"  #1,C$F0$    #1,"INDEX"F1$  1)0   #1,I$   * I$" "   I$1,8)T$ >* \" ENTER TEXT DESCRIPTION < OR = 20 CHARACTERS ? ", 4 "",I$9,28) *> " ENTER PASSWORD FOR ",T$," ? ", H "",Z$ .R Z$"" I$29,32)"BYPP" I$29,32)Z$ \ #1,I$ f #1 p #1,C$F0$,N >z \ " DO YOU WISH TO ENLARGE NEW FILE (Y OR N) ? ",Z$  Z$"Y"  $ " BY HOW MANY LINES ? ",M  KM)  KK4)  M0 NNK NNK  N0  T$F1$,N  #2,T$F1$  1)0   #1,L$  L$1,4)".DEL"   #2,L$    #1  #2 4 \" ",T$," IS NOW A COPY OF ",C$,".",7), $ "",Z$ . 8 $B THIS SECTI ETES A DOC L V M10535) ` 4j " ENTER NAME OF DOCUMENT TO DELETE ? ",C$ t C$"" ~ C$F2$)1  9 \" DOCUMENT ",C$," DOES NOT EXIST .....",7),  "",Z$   #1,"INDEX"F2$  IC$)  J0  1)0   #1,I$  JJ1  I$1,I)C$   JJ1  I$9,13)" "  #1 %J34,I$,  #1  C$F2$ 2 \" DOCUMENT ",C$," DELETED .....",7), ( "",Z$ 2 < 4F THIS SECTI OVES ETED S FROM A DOCUMENT P Z M10535) 6d " ENTER NAME OF DOCUMENT TO COMPRESS ? ",C$ n C$C$F2$ x C$)1  . \" DOCUMENT ",C$," DOES NOT EXIST."  "",Z$   #1,C$  T0  1)0   #1,L$  TT1    TT1  W0\R0  RT 6  #1 %R66,L$  L$1,4)".DEL" "  #1 %W66,L$,  WW1 " RR1 ,  6 WW1 @ #1 %W66,L$ J #1 %W66,L$ T #1 ^ h r INDEX |  M10535)  #1,"INDEX,2"  I1 23  1)0   #1,I$  I$9,13)" "  # " ",I$1,8)," ",I$9,28)  / " .....PRESS RETURN TO CONTINUE.",Z$    #1  "",Z$    @@ E "" #H" PT"   H0 "",Z$  h  KJ P9\#H\  H0 "",Z$  #2    3 THIS SECTI OF CODE HLES THE 'DS' COMM.   C9$  #2,F$F2$ & L0 0 J1 P9 : 2)0 f D #2 %66L,L$ N LL1 X L$1,2)".C"  b L$1,1)"."  l L$1,2)".J" : v L$1,3)".EJ" :  L$1,4)".DEL" :  L$1,3)".D#"   S$"D"  :  L$1,3)".S#"   S$"S"  : $ L$64,64)"%" L$64,64)" "  " ",L$  S$"D"    JJ1   1 "",Z$   Z$"" 0  Z$".END"    Z$"END"  * 4 L1Z$2)) *> Z$1,1)"-" LLL1P9 LLL1P9 H L0 L0 R LN9  \ 0 f FINISH PAGE p "",Z$ z Z$""   Z$"END"   Z$".END"   #2 %0,L$  *   #2     CENTER A   L$1,5)".COPY"  L$1,2)" "  I64  27)"*"  "DOC" URNKEY STARTUP PROGRAM ! PROGRAM NAME "MASTER" 4( COPYRIGHT 1981 BY TA SYSTEMS, INC 62 REPRODUCTI IN ANY M IS PROHIBITED 9< EXCEPT AS PROVIDED BY LICENSE AGREEMENT 8F VERSI 5.0 31 DECEMBER 1981 9P Z ,A,B d J1 24 \ \ *n "THIS IS THE DELTAX MASTER PROGRAM" 3s"INSERT THE DELTAX PROGRAM DISK INTO DRIVE #2" x 3 "YOU MAY SELECT FROM THE FOLLOWING OPTIONS:"  ; "A. CONFIGURE THE PACKAGE TO YOUR COMPUTER SYSTEM." I "B. BEGIN TO PROCESS TAX RETURNS. (INSERT DATA DISK IN DRIVE #2)"  - " ENTER YOUR SELECTION (A OR B): ", Z$0) " Z$)65 Z$)66  Z$,  Z$)65 "START,2" ! Z$)66 "CONTROL,2" \ A "YOUR PROGRAM DISK MUST BE IN DRIVE 2 AND THE DOOR TO THE" B "DRIVE MUST BE FIRMLY CLOSED. INSURE YOU HAVE TAKEN THESE" 5 "MEASURES, AND THEN PUSH RETURN TO TRY AGAIN."  Z$0) \ Z eeee%B  \  \    \  \  & ^ \  \  0  \  \   %   \ CFIGURE ERS & \ CFIGURE CSULTANTS   \ S  R! \ THE S  %  J1 5 \ \ I "SYSTEM CONFIGURATION IS COMPLETE. SAVE FX "TO CONTAIN A RETURN. THIS MAY HAPPEN IF YOUR TAX RETURNS ARE" Fb "MORE COMPLICATED THAN THE AVERAGE THAT HAS BEEN USED TO LIMIT" l "THE DISK CAPACITY. " #v "PUSH RETURN TO CONTINUE: ",  Z$0)  %p "z TEST CURS & CLEAR EEN % ? \ "THE SYSTEM HAS NOW BEEN SET UP TO CLEAR THE SCREEN" 6 "AND TO MOVE THE CURSOR AROUND THE SCREEN." \ A "THIS IS A TEST TO INSURE THAT THE FUNCTIONS ARE WORKING."  27)"*"  "DOC"  STARTUP PROGRAM ! PROGRAM NAME "MASTER" 4( COPYRIGHT 1981 BY TA SYSTEMS, INC 62 REPRODUCTI IN ANY M IS PROHIBITED 9< EXCEPT AS PROVIDED BY LICENSE AGREEMENT 8F VERSI 5.0 31 DECEMBER 1981 9P Z ,A,B d J1 24 \ \ *n "THIS IS THE DELTAX MASTER PROGRAM" 3s"INSERT ",7), "",F$  F$"EN"  F$"END"  F$"" F$"TEXT"  F$F2$)1  / \" INITIALIZATION IN PROGRESS ....."  F$"TEXT"   #1,"INDEX"F2$  1)0  #1,I$  F$I$1,F$))    I$29,32)"BYPP"  ," \" ENTER PASSWORD FOR ",F$," ? ", , Z$"" 6 I1 4 @ Z$Z$0) J " ", T ^ h Z$I$29,32)  :r \" INVALID PASSWORD. ACCESS NOT ALLOWED ....." | #1  \\ "",Z$  "DOC" - INMATI SYSTEM  !( VERSI 2.0 #2 JANUARY 1983 < )F CODED BY JOHN E. BAILEY P )Z PROGRAM NAME IS AMENU d n x #1,"ACTVDB"  #1 %20,C8$,C9$ C9$  / 20),"***** MULTI-BASE ******" " \27),"INFORMATION SYSTEM"  \30),"VERSION 2.0"  30),"JANUARY 1983"  \ 5 17),"***************************************" 5 17),"* S I G N - O N *" 5 17),"***************************************"  \  17),7), . "ENTER 4 CHARACTER DATABASE NAME ? ",N$  N$".END" $ N$"CONFIGURE" "DBFCONFG" " N$)4 , #1 %0,N$ 6 #1 8@ \\19),"PLACE ",N$," FILE DISKETTE IN DRIVE 2." .J \24),"PRESS RETURN WHEN READY.",7), T "",Z$ ^ "DBFSUP" h PYRL "DOC" - INMATI SYSTEM  !( VERSI 2.0 #2 JANUARY 1983 < )F CODED BY JOHN E. BAILEY P )Z PROGRAM NAME IS AMENU d n x #1,"ACTVDB"  #1 %20,C8$,C9$ C9$  / 20),"***** MULTI-BASE ******" " \27),"INFORMATION SYSTEM"  \30),"VERSION 2.0"  30),"JANUARY 1983"  \ 5 17),"***************************************" 5 17),"* S I G N - O N *" 5 17),"***************************************"  \  17),7), . "ENTER 4 CHARACTER DATABASE NAME ? ",N$  N$".END" $ N$"CONFIGURE" "DBFCONFG" " N$)4 , #1 %0,N$ 6 #1 8@ \\19),"PLACE ",N$," FILE DISKETTE IN DRIVE 2." .J \24),"PRESS RETURN WHEN READY.",7), T "",Z$ ^ "DBFSUP" h PYRL 2$,26  #1,"INDEX"F2$ * I$"TEXT TEXT WORK FILE BYPP"  #1,I$  #1  #1,"TEXT"F2$  I1 64\L$L$" "\  #1,L$  #1   / THIS SECTI COPIES E DOC AHER.   C9$ & \\ 40 " ENTER NAME OF COPY FROM DOCUMENT ? ",C$ -: " IS ",C$," ON DRIVE 1 OR DRIVE 2", D " ? ",Z$ #N Z$"1" F0$",1" F0$",2" X C$"" 2b " ENTER NAME OF COPY TO DOCUMENT ? ",T$ -l " IS ",T$," ON DRIVE 1 OR DRIVE 2", v " ? ",Z$ # Z$"1" F1$",1" F1$",2" 3 \\ " ..... PRESS RETURN WHEN READY.",Z$  C$F0$)1  7 \" DOCUMENT ",C$," DOES NOT EXIST.....",7)  &  T$F1$)1  7 \" DOCUMENT ",T$," ALREADY EXISTS.....",7) 4 " DO YOU WISH TO CONTINUE (Y OR N) ? ",Z$  Z$"Y"  #1,C$F0$    #1,"INDEX"F1$  1)0   #1,I$   * I$" "   I$1,8)T$ >* \"