DOS -BASIC !- CF T- DOC -8 DOCUTIL J  CD W- 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!_!-PY-__^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., 1978GZY= ZZ(.7.@@@@@@@@ yYZZ_B@BYE 11534,80 Z 11534,80 BYE 11534,80 ##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 64 n F2$",2" 6x P915 \ 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 9 \" FOR HOW MANY LINES OF TEXT DO YOU WANT 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    @ 1@@ 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)  \ CLEAR EEN  M10535)  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$    o TERRY Ad Prospectus chaz@@ "" #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 "j2120//> ڣ0Oͻ/"2ͻ/"2ͻ/"2}Ć0:->22ͻ/"2*2*2a-͆0ʻ0͌0һ0/ n- a-0//> -22͆0-0/0:2Dʣ-S¯0:222"2ͻ/"2ͻ/"2:2-)*2:2-)zک0-{ک0Ö.1/0ã-2/0U."222!0:2 0"2*j2~ 5.,5. 5.#"j2.͆0-)1/0:2DU.S¯0:222*2:2g.):2Ov.#|g}o"2*2Җ.#ڵ0͆0ʵ0͌0ҵ0*2*2Ͷ/*2Ͷ/*2}G:2怰oͶ/*2Ͷ/ *2*2DM*2.1/r0( "2"2! > .y:2O2* "2!u/" *2" *2" :2O:2J/yJ/<J/=!2=>/6 #C/*22" O*2 O*2 }O|G.*2"  *2/}<:2/!2=ʪ/â/6 #zª//s#r#^#V#*j2~ /#"j2*j2~"j2 #/"G~0/*j2~ /0!2"j2}o|g!2͂00@0&0@~0.__9090E0~00+ 0wG~0  ~0# 00*j2~#"j2 Z0000ɯ ~0 ~0  : yW:4 “0>FDT10k101010?20101r0/.[20 FROM FILE: "TO FILE: "EXISTING FILE. WRITE IN SINGLE(S) OR DOUBLE(D) DENSITY? "NEW FILE. SINGLE(S) OR DOUBLE(D) DENSITY? "SOURCE FILE NOT FOUND."DESTINATION FILE TOO SMALL."ILLEGAL DENSITY SPECIFICATION."NEW FILE WILL NOT FIT."ERROR OCCURRED."FILE DIRECTORY FULL."COPY COMPLETED."EXISTING FILE. PRESS RETURN TO CONTINUE."NEW FILE. PRESS RETURN TO CONTINUE."DOUBLE SIDED DRIVE REQUIRED"CONTROL-C STOP""6010X/U..2@0j/U..2A0!@0/;/2>0b->2>0:A0OA/b-:@0OA/b-/U...Nb-Y'/> c-2?0*60~ /:?0-;/ʊ-:4 0F.^u/I.p.:B0 /!͵-/I./( "<0":0! > -y:@0!>0O* "80!#." 0*:0" :>0!A0O*80" *<00" /O*:0 *<0 }O|Gõ-..*80*:0i.}:>02>0-/"G3/I.*60~ I.p.!B0"60}o|g!B07/-/@ʉ.‘.@3/!/__ʤ.ʤ.°.3//+v.wG3/  3/#v./*60~ .#"60*60~"60 #"60.*60~#"60 . /0///ɯ 3/ 3/////I./( //'0/  : yW:4 H/>FDCOPY FROM DRIVE: "TO DRIVE: "LOAD DISKETTES AND PRESS RETURN WHEN READY."COPY COMPLETED."ERROR OCCURRED."ILLEGAL DRIVE SPECIFICATION."Y OR N ANSWER REQUIRED"COPY BOTH SIDES (Y OR N)? "TO COPY SIDE A ONLY, "CONTROL-C STOP"  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$ >* \" ( `