DOS  BASIC - CD }- SHEET B MENU J DRF N CLF Q NINV T PINV X DEF _ LIF b COINV g RCF l COCF q SPINV v CF - CO - PINV1  SPINV1  MENU1  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., 1978!! !GGZY= ZZ(.7.@@@@@@@@ yYyY߂Z_Z`B@BYE 11534,80 4) Z 11534,80 THEN GOTO 60 RINT1" TO MENU " UBTOTALS " .." ,X F2,M1BYE 11534,80 4) u! 64""Ya``##BYYZh[h[Y Y__!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>  R11534)  R  `dB),C$20),G$20),Q$20) 2 CLEAR EEN < R10592)\R10592) A 10639,00 F #0\ #1 P MENU FOLLOWS 5Z "* * * * * * * Game Site Info * * * * * * *" d +n "Select (1) - Normal Maintenance" +x " ( A$20)\ B$30)\ C$30)\ D$15)  E$30)\ F$30)\ G$30)  J$40)\ K$40)\ L$40) ( R$20)\ M$8) 2 M1 15\\ M 6< "Enter Correct Password to begin program...",Y2$ 3F Y2$"chaz" S10592)\ Y2$"chaz" x IP "You have entered the WRONG password !"\ "Hit CR to try again",W2$ Z < d S10592)\ 10639,00 n M11 30\\ M1 7x "* * * * * EXECUTIVE BILLING SERVICE * * * * * " 7 "* * * * * * * * * * MENU * * * * * * * * * * * "  8 " (1) Create Doctor or Service File " . " (2) Create Client Files " . " (3) Create New Invoices " 7 " (4) List Client or Invoice Files " ) " (5) Print Invoices " / " (6) Correct Client Files " + " (7) Correct Invoices " ( " (8) Destroy Files " * " (9) Re-Create Files " " (10) QUIT "   "Enter Menu Choice... ",S  S1 d  S1  " S2  , S3  6 S4  @ S5 ` J S6 T S7 ^ S8 v h S9 b r S10 | S10 d  S10592) * " Create Doctor or Service File... "   "Invoice from: ",A$  "Address: ",B$  "City,State,Zip: ",C$  "Phone: ",D$  "Date: ",R$  "NUMBER OF CLIENTS : ",Y  #0,"DOC"   #0,Y,A$,B$,C$,D$,R$  #0  d  S10592)  A0\B0\C0 & " Create Client Files... " 0 #1,"CLIENT" : R1 D 1)0 l N RR1 X #1,A,B,C,E$,F$,G$ b D #l "Client # : ",B\ B0  v "Invoice to: ",E$  "Address: ",F$  "City,State,Zip: ",G$  \ ' "Balance brought forward : $ ",C    WR1)111  #1%W,R,B,C,E$,F$,G$  #1    #1  d  S10592)  " Create New Invoices..."  \   < "Each description can be 120 characters on 3 lines---" /  "( Hit SPACE BAR on lines not needed ! )" * J0\L0\T0 4 #2,"BILL" > R1 H 2)0 z R RR1 \ #2,J,K,L,T,J$,K$,L$,M$ f H p %z "Enter billing information...."  "Enter Client # : ",K  K0 V ( "Date of Service : (xx/yy/zz) ",M$ % "Comments or description: ",J$ ( J$" " K$" "\ J$" " L$" "  J$" " L  K$" " L$" "  K$" "  % "Comments or description: ",L$  L$" "  4 " Amount $ ",L  5 "Is it taxable? ",V$\ V$"yes" TL.06 T0    0 $ WR1)156 . #2%W,R,K,L,T,J$,K$,L$,M$ 8 #2 B  L #2 V d (` S10592)\"Printing Invoices... " ?j\"Do you want a single Invoice or ALL Invoices printed ?" +t "('s' for single or 'a' for ALL)",T3$ ~ T3$"a"   T3$"s" ^ d ' \"Do you want a printout ? ",O$ ) O$"yes" 10639,50 10639,00  #1,"CLIENT"  15),  #0,"DOC"  #0,Y,A$,B$,C$,D$,R$  " ",A$  " ",B$  " ",C$   D$"0" " ",D$  #0  \\  1)0 N  #1,A,B,C,E$,F$,G$ ( B999999  42 " For Professional Services to : ",E$ 4< " ",F$ 4F " ",G$ P \ Z d 18), n 27),"G", Bx "* * * * * * * * * * * * * * * INVOICE * * * * * * * * * *", " O$"yes" " * * * * * * " D \" Client Number : ",B," Invoice Date : ",R$   27),"4", @ "DATE COMMENTS OR DESCRIPTION AMOUNT" G "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ", ! O$"yes" "- - - - - - "  C0   B " Previous Balance : $",%6F2,C  T0\L0\L10\T20\L20   #2,"BILL"  2)0 T  #2,J,K,L,T,J$,K$,L$,M$  KB  # J$" " T M$," ",J$ " K$" " " ",K$ , L$" " " ",L$ B6 " $",%6F2,L @ T2T2T\L2L2L\L1T2L2C J  T \\ T20 ^ p D^ " ---------------------------------" Ch " Grand Total $",%6F2,L1 r 27),"5", H| \"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -", ' O$"yes" " - - - - - -"  A " Clip and send bottom portion with your payment"  27),"H",  \ 27),"M",  #2  "Send to : ",A$  " ",B$  " ",C$   "Amount enclosed : " , " -------------------"   "From : ",E$  " ",F$  " ",G$  27),"P", & 12), 0 X11 5\ 7),\ X1 : S10592) D  N 10639,00 X #1 b #2 l d v S10592) $ "Destroy existing Files... "\ 6 "ENTER (0) to return to menu " 9 " (1) to DESTROY all Files " 3 " (2) to destroy DOC " 6 " (3) to destroy CLIENT " 4 " (4) to destroy BILL "  O  O4 d\ O1 d  O1 4  O2 \ O2 H  "DOC"\ # "DOC has been destroyed..."\  03 \ O3 H  "CLIENT" \ &  "CLIENT has been destroyed..."\  O4 \ O4 H   "BILL" \ $* "BILL has been destroyed..."\ 4 "DOC"\"CLIENT"\"BILL" +> \"ALL Files have been destroyed...!" "H \"Hit CR to continue...",Y$ R d B\ " Ohio Sales Tax $",%6F2,T2 f Cp " Ohio Sales Tax $",%6F2,T2 z  S10592)\ 10639,00 <" * * * FILE AND INVOICE LISITNGS * * * "  /"ENTER (0) to return to menu " 2" (1) to list Client Files " 3" (2) to list Invoice Files " 1" (3) to make blank forms "  R3  R30 \ R33   R30 d  R31   R32 n  R33 "SHEET"  "List Client Files... " % "Do you want a printout ? ",B1$  B1$"yes" 10639,50 $ \ 15), 2. " * * * FILE LISTING * * * " 8 FB "FILE# CLIENT# CLIENT BALANCE DUE" =L "- - - - - - - - - - - - -- - - - - - - - - - - - - -", "V B1$"yes" " - - - - - -" ` #1,"CLIENT" j 1)0 t #1,A,B,C,E$,F$,G$ ~ \ B999999 j  " ",A," ",B," ",E$  " ",F$  " ",G$  46),"$",%6F2,C  58),"------" j #1  12),\ 18),  U11 5\ 7),\ U1   S10592) 2 "Correct or Check an existing Invoice... "\ : "File Record Number to be Corrected or Checked : ",Z  #2,"BILL"  R0  2)0 ( #2,J,K,L,T,J$,K$,L$,M$ 2 RR1 < JZ  F S10592) 1P "As it stands, you have the following..."\ EZ "File Record # : ",J," Client # : ",K\"Amount : $ ",%6F2,L, /d " Tax : $ ",%6F2,T," Svc Date : ",M$ =n "Comment 1 : ",J$\"Comment 2 : ",K$\"Comment 3 : ",L$ x 0 "Enter (0) to make NO change " 1 " (1) to change Client # " 2 " (2) to change Comment 1 " 2 " (3) to change Comment 2 " 2 " (4) to change Comment 3 " 5 " (5) to change Service Date " / " (6) to change Amount " , " (7) to change Tax "  Q Q7 d\ Q0 d  Q0 ' Q1 "Enter new Client # : ",K % Q2 "Enter Comment 1 : ",J$ % Q3 "Enter Comment 2 : ",K$ % Q4 "Enter Comment 3 : ",L$ , Q5 "Enter new Service Date : ",M$ '" Q6 "Enter new Amount : $ ",L $, Q7 "Enter new Tax : $ ",T 6 S10592) 5@ "The new Invoice entries will be as follows... " J @T "File Record # : ",J\"Client # : ",K\"Amount : $ ",%6F2,L $^ "Tax : $ ",T," Svc Date : ",M$  " $",%6F2,L H T2T2T\L2L2L\L1T2L2C R  \ \\ T20 f \ @f " -----------------------------------" Bp " Grand Total $",%6F2,L1 z 27),"5", G\"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -", ' O$"yes" " - - - - - -"  ? " Clip and send bottom portion with your payment"  27),"H",  \ 27),"M",  #2  "Send to: ",A$  " ",B$  " ",C$   "Amount Enclosed :" ' " --------------"   "From : ",E$  " ",F$  " ",G$ $ 27),"P", . 12), 8 X11 5\ 7),\ X1 B S10592) L 10639,00 V #1 ` #2 j #0 t d Dr. Ben Casey, MD Θ1000 Market Street ֘Young ",B$  " ",C$   "Amount Enclosed :" ' " --------------"   "From : ",E$  " ",F$  " ",G$ $ 27),"P", . 12), 8 X11 5\ 7),\ X1 B S10592) L 10639,00 V #1 ` #2 j #0 t d Dr. Ben Casey, MD Θ1000 Market Street ֘Young@  S10535)\ 8206,176 0 "Creating Client and Invoice Data Sheets "  \R40\R50 )( "How many copies do you want ? ",R4 2 R51 R4 < 8206,128\\ 9F " * * * CLIENT AND INVOICE DATA SHEET * * * " P \ 27),"4", @Z "Invoice Date : Client # : Balance due $ " Id " ----------- --------- -----------" n "Client Name : " =x " --------------------------------"  "Address : " = " --------------------------------"  "City, State, Zip : " = " --------------------------------"  D "Date Comments or Description Amount Taxable?" F ".............................................................."  \ . "----- -------------------------------"  . " -------------------------------"  B " ------------------------------- $--------- -----"   . "----- -------------------------------" " ., " -------------------------------" 6 B@ " ------------------------------- $--------- -----" J T @^ "Invoice Date : Client # : Balance due $ " Ih " ----------- --------- -----------" r "Client Name : " =| " --------------------------------"  "Address : " = " --------------------------------"  "City, State, Zip : " = " --------------------------------"  D "Date Comments or Description Amount Taxable?" F ".............................................................."  \ . "----- -------------------------------"  . " -------------------------------"  B " ------------------------------- $--------- -----"   . "----- -------------------------------" & .0 " -------------------------------" : BD " ------------------------------- $--------- -----" N X 27),"5", b 12), l 7), v R5  8206,176  "MENU" K$,L$,M$ z \  % "Enter billing information...." ( "Date of Service : (xx/yy/zz) ",M$ % "Comments or descriptio  S10535)\ 8206,176  S0 : "* * * * * * EXECUTIVE BILLING SERVICE * * * * * * " :( "* * * * * * * * * * MENU * * * * * * * * * * * * *" %< " (0) to QUIT ! " 9F " (1) Create Doctor or Service File " /P " (2) Create Client Files " /Z " (3) Create New Invoices " 8d " (4) List Client or Invoice Files " *n " (5) Print Invoices " 0x " (6) Correct Client Files " , " (7) Correct Invoices " ) " (8) Destroy Files " + " (9) Re-Create Files " > " (10) Menu to Create Custom Bids-Invoices"   "Enter Menu Choice...",S  S0  S1 "DRF"  S2 "CLF"  S3 "NINV"  S4 "LIF"  S5 "PINV"  S6 "COCF"  S7 "COINV"  S8 "DEF"  S9 "RCF"  S10 "MENU1"  S10 " S0 LF" , S3 "NINV" 6 S4 "LIF" @ S5 "PINV" J S6 "COCF" T S7 "COINV" ^ S8 "DEF" h S9 "RCF" r S10 | S10 d 1 A$20)\ B$30)\ C$30)\ D$15)\ R$20)  S10535) ( "Create Doctor or Service File..." ( 2 "Invoice from : ",A$ 7 A$"0" < "Address : ",B$ F "City,State,Zip : ",C$ P "Phone # : ",D$ Z "Date : ",R$ d "Number of Clients : ",Y n #0,"DOC,2" x  #0,Y,A$,B$,C$,D$,R$ #0 "MENU" # Z1 20A$)\A$A$" "\ Z # Z1 30B$)\B$B$" "\ Z # Z1 30C$)\C$C$" "\ Z # Z1 15D$)\D$D$" "\ Z # Z1 20R$)\R$R$" "\ Z   (9) Re-Create Files "   "Enter Menu Choice...",S  S0  S1 "DRF"  S2 "CLF"  S3 "NINV"  S4 "LIF"  S5 "PINV"  S6 "COCF"  S7 "COINV"  S8 "DEF"  S9 "RCF"  S9 " S0 enu Choice...",S  S1 d  S1 "DRF" " S2 "CLF" , Address : ",B$  "City,State,Zip : ",C$  "Phone # : ",D$  "Date : ",R$  "Number of Clients : ",Y  #0,"DOC,2"    #0,Y,A$,B$,C$,D$,R$  #0  "MENU" # Z1 20A$)\A$A$" "\ Z # Z1 30B$)\B$B$" "\ Z #& Z1 30C$)\C$C$" "\ Z #0 Z1 15D$)\D$D$" "\ Z #: Z1 20R$)\R$R$" "\ Z D  E$30)\ F$30)\ G$30)  S10535)  A0\B0\C0 ( "Create Client Files..." 2 #1,"CLIENT,2" < R1 F 1)0 n P RR1 Z #1,A,B,C,E$,F$,G$ d F !n "Client # : ",B\ B0 x "Invoice to : ",E$  "Address : ",F$  "City,State,Zip : ",G$  \ & "Balance brought forward : $ ",C  WR1)111  #1%W,R,B,C,E$,F$,G$ #1  #1 "MENU" # Y1 30E$)\E$E$" "\ Y # Y1 30F$)\F$F$" "\ Y # Y1 30G$)\G$G$" "\ Y   (10) QUIT "   "Enter Menu Choice...",S  S1  S1 "DRF"  S2 "CLF"  S3 "NINV"  S4 "LIF"  S5 "PINV"  S6 "COCF"  S7 "COINV"  S8 "DEF"  S9 "RCF"  S10 " S10 Br Menu Choice...",S  S1 d  S1 "DRF" " S2 "CLF" , Address : ",B$  "City,State,Zip : ",C$  "Phone # : ",D$  "Date : ",R$  "Number of Clients : ",Y  #0,"DOC,2"    #0,Y,A$,B$,C$,D$,R$  #0  "MENU" # Z1 20A$)\A$A$" "\ Z # Z1 30B$)\B$B$" "\ Z #& Z1 30C$)\C$C$" "\ Z #0 Z1 15D$)\D$D$" "\ Z #: Z1 20R$)\R$R$" "\ Z D ' J$40)\ K$40)\ L$40)\ M$8)  S10535)  "Create New Invoices..." ( \ 2 << "Each description can be 120 characters on 3 lines..." -F "(Hit SPACE BAR on lines not needed !)" P J0\L0\T0 Z #2,"BILL,2" d R1 n 2)0 x RR1  #2,J,K,L,T,J$,K$,L$,M$ n  $ "Enter billing information..."  "Enter Client # : ",K  K0 r ( "Date of Service : (xx/yy/zz) ",M$ % "Comments or description : ",J$ ( J$" " K$" "\ J$" " L$" "  J$" " r % "Comments or description : ",K$  K$" " L$" "  K$" "  % "Comments or description : ",L$  L$" "  3 " Amount $ ",L  5" "Is it taxable ?",V$\ V$"yes" TL.06 T0 , 6 @  J WR1)156 T #2%W,R,K,L,T,J$,K$,L$,M$ ^ #2 h  r #2 | "MENU" # Y1 40J$)\J$J$" "\ Y # Y1 40K$)\K$K$" "\ Y # Y1 40L$)\L$L$" "\ Y " Y1 8M$)\M$M$" "\ Y   f(( d((motorcycle accident... 03/15/84PABR A ( (due to accident on 03/14/84PA0ABR A(Set broken arm due to ( (motorcycle accident... 03/15/84 1 A$20)\ B$30)\ C$30)\ D$15)\ R$20)  E$30)\ F$30)\ G$30) ' J$40)\ K$40)\ L$40)\ M$8) (( S10535)\"Printing Invoices... " 2 \\P40 7 B31200 !< "Enter : (0) for MENU" >F " (1) to Print ALL Invoices-Standard Format" @P " (2) to Print single Invoice-Standard Format" ?Z " (3) to Print ALL Invoices-Statement Format" Ad " (4) to Print single Invoice-Statement Format" n P4 x P40 <\ P44 <  P40 "MENU"  P41  P42 "SPINV"  P43 "PINV1"  P44 "SPINV1" & \"Do you want a printout ? ",O$ ( O$"yes" 8206,128 8206,176  #1,"CLIENT,2" 15),  #0,"DOC,2"  #0,Y,A$,B$,C$,D$,R$  " ",A$  " ",B$  " ",C$   D$"0" " ",D$ " #0 , \\ 6 1)0 p @ #1,A,B,C,E$,F$,G$ J B999999 6 9T " For Professional Services to : ",E$ 9^ " ",F$ 9h " ",G$ r \ |  18),  27),"G", D "* * * * * * * * * * * * * * * * INVOICE * * * * * * * * * *", ! O$"yes" "* * * * * * " E \" Client Number : ",B3B," Invoice Date : ",R$   27),"4", = "DATE COMMENTS OR DESCRIPTION AMOUNT " H "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -", ! O$"yes" "- - - - - - "  C0   G " Previous Balance : $",%6F2,C  T0\L0\L10\T20\L20   #2,"BILL,2"  2)0 v & #2,J,K,L,T,J$,K$,L$,M$ 0 KB  ": J$" " v M$," ",J$ 'D K$" " X " ",K$ 'N L$" " X " ",L$ GX " $",%6F2,L b T2T2T\L2L2L\L1T2L2C l  v \\ T20   I " ---------------------------------------" H " Grand Total $",%6F2,L1  27),"5", G\"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -", & O$"yes" "- - - - - -"  > " Clip and send bottom portion with your payment"  27),"H",  \ 27),"M",  #2  "Send to : ",A$  " ",B$  " ",C$   "Amount enclosed : " '  " --------------"    "From : ",E$ * " ",F$ 4 " ",G$ > 27),"P", H 12), R X11 5\ 7),\ X1 \ S10535) f p 8206,176 z #1  #2  "MENU" H " Ohio Sales Tax $",%6F2,T2   27),"E", C~ " Grand Total $",%7F2,A1  27),"F",  12),  X1 3\ 7),\ X  #1  8206,176 % "Hit RETURN to continue... ",Y$  R10535)  "BID"  R10535) - " S10535)  O0 $ "Destroy existing Files... "\ / "ENTER (0) to return to menu " 2( " (1) to destroy ALL Files " ,2 " (2) to destroy DOC " /< " (3) to destroy CLIENT " -F " (4) to destroy BILL " P O &Z O4 "MENU"\ O1 "MENU" d O1 \ O1 n O2 x\ O2 x "DOC,2" # "DOC has been destroyed..."\ O3 \ O3  "CLIENT,2" & "CLIENT has been destroyed..."\ O4 \ O4  "BILL,2" $ "BILL has been destroyed..."\ # "DOC,2"\"CLIENT,2"\"BILL,2" - \"ALL Files have been destroyed...!"\ " \"Hit CR to continue...",Y$ "MENU"  * * * * *", !, O$"yes" "* * * * * * " E6 \" Client Number : ",B," Invoice Date : ",R$ @ J 27),"4", =T "DATE COMMENTS OR DESCRIPTION AMOUNT " G^ "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" !h 0$"yes" "- - - - - - " r C0  | J| " Previous Balance : $",%6F2,C  T0\L0\L10\T20\L20   #2,"BILL,2"  2)0   #2,J,K,L,T,J$,K$,L$,M$  KB  " J$" "  M$," ",J$  K$" " " ",K$  L$" " " ",L$ G " $",%6F2,L  T2T2T\L2L2L\L1T2L2C    \\1 A$20)\ B$30)\ C$30)\ D$15)\ R$20)  E$30)\ F$30)\ G$30) ' J$40)\ K$40)\ L$40)\ M$8) ( S10535)\ 8206,176 - R30 ;2" * * * FILE AND INVOICE LISTINGS * * * " < 0F "ENTER (0) to return to menu " 3P " (1) to list Client Files " 4Z " (2) to list Invoice Files " 2d " (3) to make blank forms " n R3 x R30 (\ R33 (  R30 "MENU"  R31  R32   R33 "SHEET"  "List Client Files... " % "Do you want a printout ? ",B1$ * B1$"yes" 8206,128 8206,176  2 " * * * FILE LISTING * * * "  D "FILE # CLIENT # CLIENT BALANCE DUE" ? "- - - - - - - - - - - - - - - - - - - - - - - - - - - ", ! B1$"yes" "- - - - - -"  #1,"CLIENT,2"  1)0 h  #1,A,B,C,E$,F$,G$ " \ B999999  , " ",A," ",B," ",E$ 6 " ",F$ @ " ",G$ J 46),"$",%6F2,C T 58),"------" ^  h #1 r 12), | U11 5\ 7),\ U1  (  S10535)\ 8206,176 + "List All Invoices by File Number..." % "Do you want a printout ? ",B2$  B2$"yes" 8206,128  1 " * * * INVOICE LISTING * * * "  E "FILE# CLIENT# SVC DATE DESCRIPTION AMOUNT " H "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -", " B2$"yes" " - - - - - -"  #2,"BILL,2"  2)0 X  #2,J,K,L,T,J$,K$,L$,M$  \ K999999  & " ",J," ",K," ",M$," ",J$ "& " ",K$ "0 " ",L$ : 50),"$",%6F2,L /D T0 34),"Ohio Sales Tax $ ",%6F2,T N  X #2 b 12), l V11 5\ 7),\ V1 v ( --------------------- $--------- -----" N X 27),"5", b 12), l 7), v R5  8206,176  "MENU" 0  f RR1 p #2,J,K,L,T,J$,K$,L$,M$ z \  % "Enter billing information...." ( "Date of Service : (xx/yy/zz) ",M$ % "Comments or descriptio ' J$40)\ K$40)\ L$40)\ M$8)  S10535)\ 8206,176 / "Correct or Check an existing Invoice..." # Z0 :( "File Record Number to be Corrected or Checked : ",Z - Z0  2 #2,"BILL,2" < R0 F 2)0  P #2,J,K,L,T,J$,K$,L$,M$ Z RR1 d JZ F n S10535) 0x"As it stands, you have the following..."\ C"File Record # : ",J," Client # : ",K\"Amount : $ ",%6F2,L, -" TAX : $ ",%6F2,T," Svc Date : ",M$ <"Comment 1 : ",J$\"Comment 2 : ",K$\"Comment 3 : ",L$  / "ENTER (0) to make NO change " 0 " (1) to change Client # " 1 " (2) to change Comment 1 " 1 " (3) to change Comment 2 " 1 " (4) to change Comment 3 " 4 " (5) to change Service Date " . " (6) to change Amount " + " (7) to change Tax "  Q  Q7 \ Q0  Q0  ' Q1 "Enter new Client # : ",K %" Q2 "Enter Comment 1 : ",J$ %, Q3 "Enter Comment 2 : ",K$ %6 Q4 "Enter Comment 3 : ",L$ ,@ Q5 "Enter new Service Date : ",M$ %J Q6 "Enter new Amount : ",L $T Q7 "Enter new Tax : $ ",T ^ S10535) 6h "The new Invoice entries will be as follows... " r B| "File Record # : ",J\"Client # : ",K\"Amount : $ ",%6F2,L, ) " Tax : $ ",T," Svc Date : ",M$ = "Comment 1 : ",J$\"Comment 2 : ",K$\"Comment 3 : ",L$  0 "Enter (ok) to accept or (no) to abort..."  M4$  M4$"ok"    WR1)156 ! #2%W,R,K,L,T,J$,K$,L$,M$,  #2  "MENU" # Y1 40J$)\J$J$" "\ Y # Y1 40K$)\K$K$" "\ Y # Y1 40L$)\L$L$" "\ Y " Y1 8M$)\M$M$" "\ Y   resulting i(from car accident which i((from car accident... March 20@Alting ( R5  8206,176  "MENU" 0  f RR1 p #2,J,K,L,T,J$,K$,L$,M$ z \  % "Enter billing information...." ( "Date of Service : (xx/yy/zz) ",M$ % "Comments or descriptio 1 A$20)\ B$30)\ C$30)\ D$15)\ R$20)  E$30)\ F$30)\ G$30) ' J$40)\ K$40)\ L$40)\ M$8) ( S10535)\ 8206,176 - W0 2 "Create New Files... " < \ 1F "ENTER (0) to return to menu " :P " (1) to re-create ALL the files " -Z " (2) to create DOC " 0d " (3) to create CLIENT " .n " (4) to create BILL " x W  W4 (\ W0 (  W0 "MENU"  W1 r  W2 \ W2   W3 \ W3   W4 6\ W4   "DOC,2",3  #0,"DOC,2"  Y0\   #0,Y,A$,B$,C$,D$,R$ #0 # \"DOC has been created..."\  "CLIENT,2",100  #1,"CLIENT,2"  A0\B999999\C0\   #1,A,B,C,E$,F$,G$ " #1 &, \"CLIENT has been created..."\ 6 "BILL,2",100 @ #2,"BILL,2" J J0\K999999\L0\T0\  T #2,J,K,L,T,J$,K$,L$,M$ ^ #2 $h \"BILL has been created..."\ r \ \ 6 +| \"ALL Files have been re-created..." # \"Hit CR to continue...",N2$  "MENU" # Y1 20A$)\A$A$" "\ Y # Y1 30B$)\B$B$" "\ Y # Y1 30C$)\C$C$" "\ Y # Y1 15D$)\D$D$" "\ Y # Y1 20R$)\R$R$" "\ Y  # Y1 30E$)\E$E$" "\ Y # Y1 30F$)\F$F$" "\ Y # Y1 30G$)\G$G$" "\ Y  # Y1 40J$)\J$J$" "\ Y # Y1 40K$)\K$K$" "\ Y # Y1 40L$)\L$L$" "\ Y " Y1 8M$)\M$M$" "\ Y &  E$30)\ F$30)\ G$30)  S10535)\ 8206,176 * "Correct or Check Client Files..."\ # Z10 ;( "File Record Number to be Corrected or Checked : ",Z1 - Z10  2 #1,"CLIENT,2" < R0 F 1)0  P #1,A,B,C,E$,F$,G$ Z RR1 d AZ1 F n S10535) .x "As it stands you have the following..." @ "File Record # : ",A\"Client # ",B\"Balance : $ ",%6F2,C = "Client : ",E$\"Address : ",F$\"City,State,Zip : ",G$  1 "ENTER (0) to make NO change " 2 " (1) to change Client # " 5 " (2) to change Client Name " 1 " (3) to change Address " 8 " (4) to change City,State,Zip " 1 " (5) to change Balance "  Q  Q5 \ Q0  Q0  ' Q1 "Enter new Client # : ",B $ Q2 "Enter new Name : ",E$ ' Q3 "Enter new Address : ",F$ . Q4 "Enter new City,State,Zip : ",G$ (" Q5 "Enter new Balance : $ ",C , S10535) 46 "The new Client entries will be as follows..." @ BJ "File Record # : ",A\"Client # : ",B\"Balance : $ ",%6F2,C ;T "Name : ",E$\"Address : ",F$\"City,State,Zip : ",G$ ^ 1h "Enter (ok) to accept or (no) to abort... " r M1$ | M1$"ok"     WR1)111  #1%W,R,B,C,E$,F$,G$,  #1  "MENU" # Y1 30E$)\E$E$" "\ Y # Y1 30F$)\F$F$" "\ Y # Y1 30G$)\G$G$" "\ Y  1 A$20)\ B$30)\ C$30)\ D$15)\ R$20)  E$30)\ F$30)\ G$30) ' J$40)\ K$40)\ L$40)\ M$8) (( S10535)\"Printing Invoices... " - V0\B31200 F2 \"Enter the Client Number you want the single printout for... " < "Client # : ",V A V0  6F \"Do you want a printout ? (or type `menu')",O$ )P O$"yes" 8206,128 8206,176 U O$"menu" "MENU" Z #1,"CLIENT,2" d 15), n #0,"DOC,2" x #0,Y,A$,B$,C$,D$,R$  " ",A$  " ",B$  " ",C$   D$"0" " ",D$ #0 \\  1)0   #1,A,B,C,E$,F$,G$  BV 9 " For Professional Services to : ",E$ 9 " ",F$ 9 " ",G$  \   18), " 27),"G", D, "* * * * * * * * * * * * * * * * INVOICE * * * * * * * * * *", !6 O$"yes" "* * * * * * " E@ \" Client Number : ",B3B," Invoice Date : ",R$ J T 27),"4", =^ "DATE COMMENTS OR DESCRIPTION AMOUNT " Hh "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -", !r O$"yes" "- - - - - - " | C0   G " Previous Balance : $",%6F2,C  T0\L0\L10\T20\L20   #2,"BILL,2"  2)0   #2,J,K,L,T,J$,K$,L$,M$  KB  " J$" "  M$," ",J$ ' K$" "  " ",K$ ' L$" "  " ",L$ G " $",%6F2,L  T2T2T\L2L2L\L1T2L2C    \\ T20   I " ---------------------------------------" H " Grand Total $",%6F2,L1 & 27),"5", G0\"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -", &: O$"yes" "- - - - - -" D >D " Clip and send bottom portion with your payment" N 27),"H", X \ 27),"M", b #2 l "Send to : ",A$ v " ",B$  " ",C$   "Amount enclosed : " ' " --------------"   "From : ",E$  " ",F$  " ",G$  27),"P",  12),  X11 5\ 7),\ X1  S10535)  8206,176  #1  #2  "MENU" H  " Ohio Sales Tax $",%6F2,T2 * Tax $",%6F2,T2 * t uoYoungstown, Ohio 44502 1-216-555-1212 March 24, 1984 Mr. Harvey Keck 20 East Road Boardman, Ohio 44512 q((Set broken arm from q(( o((motorcycle accident. March 23}o a yes F   AA"BMs. Fancy Pants 10 North Avenue Boardman, Ohio 44512 0A AMr. Harvey Keck 20 East Road Boardman, Ohio 44512 @A0AMr. John Doe 40 West Blvd. Niles, Ohio 44446  0ADr. Ben Casey, MD 1000 Market Street Youngstown, Ohio 44502 1-216-555-1"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""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""r313!"3%1->2q3]1233G:q323* ">4j-!U-" V4!:3O>" *>4" Á-*>4"  :323@!V86 #zu-5-2@4!36# xŠ-"3!2V.>232A4!V4 -~ ->Ͳ2~#+-ͪ2-͇2͇2!3ͪ2-!A44*3 ù-:3.:A423*3"3-:3!.:A4!..!@4~61̷2!3Ͳ2~6h&))))V4F_3# J.S3^*32o.:3O+1W2Q1:@4ʇ.1ͷ22:B4Y( 2B4%1ʸ.2ͷ22:B4Y¸.:3.O>V4!" !\/.##͇2~.:B4Y.++.û.:g3P/*m3\/͂2͇2"<4:3O~%1/>2323=/:B4Y=/y23zW{_++͂2~w"<4,0P0*<4û.$2ͷ2S3( "k3%1g/>2q3>2g3!"m3!"h3͏/ ~/7*h3* "o3!0" &iy2j3V4!3:q3O>" *o3"  :q3/!V4~ 0##~#0*k3ͪ2)00*m3ͪ20͇2"m32g3/<*o3"  :q32q3ã/!3:q3O:j3o&V4>" B:3O "3"3! > c0y:3OV4* ">4!0" *3" *>4" :3O:30y0<ҹ0=!V4=­06 #²0*3V4" O*3 O*3 }O|GP0*>4"  *32}<:3 1!V4=116 #z1É0: yW:4 21>FD:2Q1s2Q11S3ͷ2S3( LOAD DISKETTE AND SPECIFY DRIVE NUMBER: "THE FOLLOWING FILES HAVE CONFLICTS: "PROCEED WITH COMPACT IN PRESENCE OF CONFLICTS? "CONVERT TO DOUBLE DENSITY? "ERROR OCCURRED."CONVERT TO DOUBLE DENSITY? "COMPACTION COMPLETED."ILLEGAL DRIVE SPECIFICATION."DOUBLE SIDED DRIVE REQUIRED"CONTROL-C STOP"s#r#^#V#*r3~ ʚ2#"r3*r3~"r3 #ß2#z+{Ʌo$"G_3÷2*r3~ ͷ22!B4"r3}o|g!B4c3H1@22@_3W1__333_3N1+2wG_3  _3#2N1*r3~#"r3 33 B10B1B1B1ɯ _3 _3  1 A$20)\ B$30)\ C$30)\ D$15)\ R$20)  E$30)\ F$30)\ G$30) ' J$40)\ K$40)\ L$40)\ M$8) (( S10535)\"Printing Invoices... " 2 B31200 9< \\"Do you want a printout ? (or type `menu') ",O$ )F O$"yes" 8206,128 8206,176 P O$"menu" "MENU" U 27),"C",0),7), Z #1,"CLIENT,2" d 27),"G", n 27),"M", x 1)0   #1,A,B,C,E$,F$,G$  B999999 x  #0,"DOC,2"  #0,Y,A$,B$,C$,D$,R$  " ",A$  " ",B$,50),R$  " ",C$  50),B3B #0  \50),"Phone : ",D$ , " For Professional Services to : "\   " ",E$  " ",F$  " ",G$  C11 7\\ C1 " C0 6 , M, " Previous Balance : $",%7F2,C 6 T0\L0\L10\T20\L20 @ #2,"BILL,2" J 2)0  T #2,J,K,L,T,J$,K$,L$,M$ ^ KB J "h J$" "  M$," ",J$ .r K$1,1)32)  " ",K$ .| L$1,1)32)  " ",L$  61),"$",%7F2,L  T2T2T\L2L2L\L1T2L2C  J  \\ T20  0 M " ---------------------------------" N " Grand Total $",%7F2,L1  #2  27),"P",  27),"H",  12),  X11 5\ 7),\ X1  S10535)  d  8206,176  #1  #2 & "MENU" N0 " Ohio Sales Tax $",%7F2,T2 : ",%7F2,T2 : Sales Tax $",%6F2,T2 X b 0jDr. Ben Casey, MD h1000 Market Street @jYoungstown, Ohio 44502 1-216-555-1212 March 24, 1984 Mr. Harvey Keck 20 East Road Boardman, Ohio 44512 xn((Vasoline administered with a n((scrub brush and a jackhammer. -" b >b " Clip and send bottom portion with your payment" l 27),"H", v \ 27),"M",  #2  "Send to : ",A$  " ",B$  " ",C$   "Amount enclosed : " ' " --------------"   "From : ",E$  " ",F$  " ",G$  27),"P",  12),  X11 5\ 7),\ X1   S10535)    8206,176 * #1 4 #2 > "MENU" HH " Ohio Sales Tax $",%6F2,T2 R . " ",L$ B8 " $",%7F2,A B L A2A2A\A1A2 V  ` \ Dj " ---------------------------------" t 27),"E", C~ " Grand Total $",%7F2,A1  27),"F",  12),  X1 3\ 7),\ X  #1  8206,176 % "Hit RETURN to continue... ",Y$  R10535)  "BID"  R10535) - "1 A$20)\ B$30)\ C$30)\ D$15)\ R$20)  E$30)\ F$30)\ G$30) ' J$40)\ K$40)\ L$40)\ M$8) (( S10535)\"Printing Invoices... " 2 V0\B31200 F< \"Enter the Client Number you want the single printout for... " F "Client # : ",V P V0 0 6Z \"Do you want a printout ? (or type `menu')",O$ )d O$"yes" 8206,128 8206,176 n O$"menu" "MENU" s 27),"C",0),7), x #1,"CLIENT,2"  27),"G",  27),"M",  1)0 &  #1,A,B,C,E$,F$,G$  BV  #0,"DOC,2"  #0,Y,A$,B$,C$,D$,R$  " ",A$  " ",B$,50),R$  " ",C$  50),B3B #0  \ 50),"Phone : ",D$ * " For Professional Services to : "\   " ",E$ " " ",F$ , " ",G$ 6 C11 7\\ C1 @ C0 ^ T MT " Previous Balance : $",%7F2,C ^ T0\L0\L10\T20\L20 h #2,"BILL,2" r 2)0  | #2,J,K,L,T,J$,K$,L$,M$  KB r " J$" "  M$," ",J$ . K$1,1)32)  " ",K$ . L$1,1)32)  " ",L$  61),"$",%7F2,L  T2T2T\L2L2L\L1T2L2C  r  \\ T20  N M " ---------------------------------" N " Grand Total $",%7F2,L1  #2  27),"P",  27),"H",  12),  X11 5\ 7),\ X1  S10535) & 8206,176 0 #1 : #2 D "MENU" NN " Ohio Sales Tax $",%7F2,T2 X b Dr. Ben Casey, MD g1000 Market Street &jYoungstown, Ohio 44502 1-216-555-1212 March 24, 1984 Ms. Fancy Pants 10 North Avenue Boardman, Ohio 44512 fn((10 Aspirin nn(( Fl(( X \ 27),"M", b #2 l "Send to : ",A$ v " ",B$  " ",C$   "Amount enclosed : " ' " --------------"   "From : ",E$  " ",F$  " ",G$  27),"P",  12),  X11 5\ 7),\ X1  S10535)  8206,176  #1  #2  "MENU" H  " Ohio Sales Tax $",%6F2,T2 * mo1000 Market Street uoYoungstown, Ohio 44502 1-216-555-1212 March 24, 1984 Mr. Harvey Keck 20 East Road Boardman, Ohio 44512 q((Set broken arm from q(( o((motorcycle accident. March 23}o a yes F   AA"BMs. Fancy Pants 10 North Avenue Boardman, Ohio 44512 0A AMr. Harvey Keck 20 East Road Boardman, Ohio 44512 @A0AMr. John Doe 40 West Blvd. Niles, Ohio 44446  0ADr. Ben Casey, MD 1000 Market Street Youngstown, Ohio 44502 1-216-555-1 S10535)\ 8206,176  S0 : "WARNING : Use of this part of the program could be" >( "hazardous to your sanity! Read directions carefully..." 2 < "MENU" ervice File " /P " (2) Create Client Files " /Z " (3) Create New Invoices " 8d " (4) List Client or Invoice Files " *n " (5) Print Invoices " 0x " (6) Correct Client Files " , " (7) Correct Invoices " ) " (8) Destroy Files " + " (9) Re-Create Files " > " (10) Menu to Create Custom Bids-Invoices"   "Enter Menu Choice...",S  S0  S1 "DRF"  S2 "CLF"  S3 "NINV"  S4 "LIF"  S5 "PINV"  S6 "COCF"  S7 "COINV"  S8 "DEF"  S9 "RCF"  S10 "MENU1"  S10 " S0 c