Category : BASIC Source Code
Archive : ANGELLIB.ZIP
Filename : ANGELIB.WP
Output of file : ANGELIB.WP contained in archive : ANGELLIB.ZIP
ûÿ 2 Æ B R V ` ¶ 3| x R Courier 10cpi ÿÿ ? x x x
Krôx þ6X @É 8[ X@ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐ °° ` Ðûÿ 2 ½ Z ø R v × p M Standard Printer STANPRIN.PRS Ûx
@É Ï kÃX@07-15-92 01:24p Angelib docs wp ÿÈ
ÿa8Document g ÁDocument Style Style º Â X ÂÂX` ` ÂÆÐ ` Æ
a4Document g Document Style Style Ø ªÖ Á ÁÃ ÃÃÃ.ÄÄ Ä Äûÿ 2 à k ï k Z ¥ Å v j a6Document g ÁDocument Style Style ½³ G ÂX ÂÆÐ Æ
a5Document g ÁDocument Style Style }± Â X ÂÆ(#Æ
a2Document g Document Style Style < ño Ç
Ô ? È Ôà ÃØ A. Ø ÃÃ× ×× ×
Ä ÄÄÄa7Document g ÁDocument Style Style yý Â X ÂÂ X` ` ÂÆ(#` Æ
ûÿ 2 j t £
§ Ã Bibliogrphy ÁBibliography ¬ : Â X ÂÁ°°
ÁÆ(#Æ
a1Right Par ÁRight-Aligned Paragraph Numbers : ` S Á@ ÁØ I. Ø Á°°
ÁÂ X ÂÆ(#Æ
a2Right Par ÁRight-Aligned Paragraph Numbers C ýö Á ÁÁ@ø` ÁØ A. Ø Á ÁÂ °` ` ÂÆ(#` Æ
a3Document g Document Style Style
B ½
ºb
Ô ? È ÔÁ ÁÃ ÃØ 1. Ø × ×× ×
Ä Äûÿ 2
¬ µ H
¿ ý È ¼ a3Right Par ÁRight-Aligned Paragraph Numbers L ã! ·
Á ÁÁ` ` ÁÁ@P
¸ ÁØ 1. Ø Á` ` ÁÂ ¸ ¸ ÂÆ(#¸ Æ
a4Right Par ÁRight-Aligned Paragraph Numbers U j Á ÁÁ` ` ÁÁ¸ ¸ ÁÁ@¨ ÁØ a. Ø Á¸ ¸ Á ` ÂÆ(#Æ
a5Right Par ÁRight-Aligned Paragraph Numbers
_ oã Á ÁÁ` ` ÁÁ¸ ¸ ÁÁ ÁÁ@h ÁØ (1) Ø Á Á ¸ hh# ÂÆ(#hÆ
a6Right Par ÁRight-Aligned Paragraph Numbers h Î Á ÁÁ` ` ÁÁ¸ ¸ ÁÁ ÁÁhh# ÁÁ@àÀ$ ÁØ (a) Ø Áhh# Á ÀÀ( ÂÆ(#ÀÆ
ûÿ 2 V Ð ¶
Ù Ì _ + +
a7Right Par ÁRight-Aligned Paragraph Numbers p fJ Á ÁÁ` ` ÁÁ¸ ¸ ÁÁ ÁÁhh# ÁÁÀÀ( ÁÁ@°* ÁØ i) Ø ÁÀÀ( Á h- ÂÆ(#Æ
a8Right Par ÁRight-Aligned Paragraph Numbers y W" 3! Á ÁÁ` ` ÁÁ¸ ¸ ÁÁ ÁÁhh# ÁÁÀÀ( ÁÁ- ÁÁ@p/ ÁØ a) Ø Á- Á Àpp2 ÂÆ(#pÆ
a1Document g Document Style Style X q q
Ù Ù
Ô á l È ÔÁà^ì) ÁÃÃà Ã× ×Ø I. Ø Ù ÙÙ Ù× ×
ÄÄÄ ÄDoc Init Initialize Document Style ÿÅ ×
×Ô 0*0*° Ô Ò I. A. 1. a.(1)(a) i) a) I. 1. A. a.(1)(a) i) a) Document g ÒÙ Ùûÿ 2 D ® Tech Init Initialize Technical Style ¨ .
k Ò I. A. 1. a.(1)(a) i) a) 1 .1 .1 .1 .1 .1 .1 .1 þ Technical ÒÙ Ùa5Technical Technical Document Style ) WÙ D¾ Á ÁÃ ÃØ (1) Ø . Ä Äa6Technical Technical Document Style ) à DÂ Á ÁÃ ÃØ (a) Ø . Ä Äa2Technical Technical Document Style < 6ó èí
Ô ? È Ôà ÃØ A. Ø ÃÃ× ×× ×ÄÄ
Á ÁÄ Äûÿ 2 § v ¦ Â Ã a3Technical Technical Document Style 9 W ¢g
Ô 2 È ÔÃ ÃØ 1. Ø × ×× ×
Á ÁÄ Äa4Technical Technical Document Style 8 bv ¢{ Ô 2 ÔÃ ÃØ a. Ø × ×× ×
Á ÁÄ Äa1Technical Technical Document Style F ²è! <
Ô ? È ÔÃÃà Ã× ×Ø I. Ø Ù ÙÙ Ù× ×
ÄÄÁ ÁÄ Äa7Technical Technical Document Style ( @ DÆ Á ÁÃ ÃØ i) Ø . Ä Äûÿ 2 = Ã Æ a8Technical Technical Document Style ( à DË Á ÁÃ ÃØ a) Ø . Ä ÄPleading Header for numbered pleading paper «P@ n¹ Ð È ÐÐ °° è ÐÕ È $]Ð È ÐÐ °°X° ÐÐÐ X°` ¸ hÀpÈ x Ð (#%Ø'0*,à.813è5@8:ð
ÁHHÀ Á1
ÁHHÀ Á2
ÁHHÀ Á3
ÁHHÀ Á4
ÁHHÀ Á5
ÁHHÀ Á6
ÁHHÀ Á7
ÁHHÀ Á8
ÁHHÀ Á9
ÁHÐÀ Á10
ÁHÐÀ Á11
ÁHÐÀ Á12
ÁHÐÀ Á13
ÁHÐÀ Á14
ÁHÐÀ Á15
ÁHÐÀ Á16
ÁHÐÀ Á17
ÁHÐÀ Á18
ÁHÐÀ Á19
ÁHÐÀ Á20
ÁHÐÀ Á21
ÁHÐÀ Á22
ÁHÐÀ Á23
ÁHÐÀ Á24
ÁHÐÀ Á25
ÁHÐÀ Á26
ÁHÐÀ Á27
ÁHÐÀ Á28Ó À+ ÓÕ Ð ÐÐ °°°X ÐÕ Y |ÃÃÁà¤$ Áà ÃÃÃANGELIB for BC7/PDSÄÄÄ ÄÄÄÁ`$%N Áà ÃÄ Ä
Y ÕÓ
ÓÐÐ X°` ¸ hÀpÈ x Ð (#%Ø'0*,à.813è5@8:ð
ÀÀ If you did à ÃnotÄ Ä see the message "Formatting for default printer" when
loading this file then press à ÃShiftÄ Ä©Ã ÃF7Ä Ä Ã ÃSÄ Äelect printer and select your
printer. This will re©format the document.
ÀÀ Next, re©generate the TOC: à ÃAltÄ Ä©Ã ÃF5Ä Ä Ã ÃGÄ Äenerate à ÃGÄ Äenerate à ÃYÄ Äes
ÀÀ If you prefer full justification, place a à ÃShiftÄ Ä©Ã ÃF8Ä Ä Ã ÃLÄ Äine à ÃJÄ Äustify à ÃFÄ Äull
code after this comment.
ÀÀ There are no top/bottom margin or font settings
ÀÀ This comment will not print.Ù
Á Á_ÀÀÀÀÀÀÀÀÀÀ_ ÀÀÀÀ_ ÀÀÀÀ _ÀÀÀÀÀÀÀÀÀÀ_ ÀÀÀÀÀÀÀÀÀÀÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀÀÀÀÀÀÀÀÀÀÀ
Á ÁÀÀÀÀ ÀÀÀÀ ÀÀÀÀÀÀ_ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ
Á ÁÀÀÀÀ ÀÀÀÀ ÀÀÀÀÀÀÀÀ_ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ
Á ÁÀÀÀÀÀÀÀÀÀÀÀÀÀÀ ÀÀÀÀ ÀÀÀÀÀÀÀÀ ÀÀÀÀ ÀÀÀÀÀÀÀÀ ÀÀÀÀÀÀÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀÀÀÀÀÀÀÀÀÀÀ
Á ÁÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ
Á ÁÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ
Á ÁÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀ ÀÀÀÀÀÀÀÀÀÀ ÀÀÀÀÀÀÀÀÀÀÀÀÀÀ ÀÀÀÀÀÀÀÀÀÀÀÀÀÀ ÀÀÀÀ ÀÀÀÀÀÀÀÀÀÀÀÀÀÀ
Áà8) ÁÃ ÃCONTENTSÄ Ä
×
×
ÂÐ ÂÁ°°
ÁI.Á ÁDISCLAIMER OF WARRANTYÆ°"ÆÁp$%M Á 1
ÂÐ ÂÁ°°
ÁII.Á ÁCOPYRIGHTÆ°"ÆÁp$%M Á 1
ÂÐ ÂÁ°°
ÁIII.Á ÁLICENSEÆ°"ÆÁp$%M Á 1
ÂÐ ÂÁ°°
ÁIV.Á ÁTECHNICAL SUPPORT (HOW TO REACH ME)Æ°"ÆÁp$%M Á 2
ÂР hèè ÂÁ ÁOfficial Distribution Bulletin BoardsÆ°"èÆÁp$%M Á 2
ÂÐ ÂÁ°°
ÁV.Á ÁINTRODUCTIONÆ°"ÆÁp$%M Á 2
ÂÐ ÂÁ°°
ÁVI.Á ÁNOTES ABOUT THIS RELEASEÆ°"ÆÁp$%M Á 3
ÂÐ ÂÁ°°
ÁVII.Á ÁREGISTRATIONÆ°"ÆÁp$%M Á 4
ÂР hèè ÂÁ ÁA.Áèè ÁHow To OrderÆ°"èÆÁp$%M Á 5
ÂР hèè ÂÁ ÁB.Áèè ÁPricingÆ°"èÆÁp$%M Á 5
ÂР hèè ÂÁ ÁINVOICE & REGISTRATIONÆ°"èÆÁp$%M Á 9
ÂÐ ÂÁ°°
ÁVIII.Á ÁSYSTEM REQUIREMENTSÆ°"ÆÁp #%L Á 10
ÂÐ ÂÁ°°
ÁIX.Á ÁFILES WHICH MAKE UP ANGELIBÆ°"ÆÁp #%L Á 10
ÂÐ ÂÁ°°
ÁX.Á ÁUSING ANGELIBÆ°"ÆÁp #%L Á 11
ÂР hèè ÂÁ ÁCreating a QLB (Quick Library)Æ°"èÆÁp #%L Á 11
ÂÐ ÂÁ°°
ÁXI.Á ÁREFERENCEÆ°"ÆÁp #%L Á 12
ÂÐ ÂÁ°°
ÁXII.Á ÁUSING PRINTER FUNCTIONSÆ°"ÆÁp #%L Á 49
Ô ! 0*H&H&èè Ô Ó
Óà Ã× ×Ø I. ØÁ ÁDISCLAIMER OF WARRANTYÄ Ä× ×
Á ÁI use the routines in ÃÃANGELIBÄÄ almost every day as I write
software and I am regularly adding, enhancing, or fixing. My software
will never be "done," and I hope that it gets better and better. In
any case, I can't guarantee that it's perfect; in fact, I'll guarantee
that it's not. By using this software and documentation ("ANGELIB")
you must accept this disclaimer of warranty:
Á ÁÃÃANGELIBÄÄ is provided "as is" without any warranties or
conditions, expressed or implied, including, but not limited to, those
concerning merchantability and fitness for a particular purpose. By
using ÃÃANGELIBÄÄ, you are expressly releasing the author, Angel Babudro,
from any liability resulting from the use of this software and
documentation. You must assume the entire risk of using ÃÃANGELIBÄÄ.
à Ã× ×Ø II. ØÁ ÁCOPYRIGHTÄ Ä× ×
Á ÁThe author retains the copyright for all ÃÃANGELIBÄÄ source code,
documentation, assorted files, and all libraries. However, once
provided with registration from the author you may distribute any
program you write with the benefit of ÃÃANGELIBÄÄ, in compiled form only,
without royalties to the author. You must have written consent from
the author prior to distributing ÃÃANGELIBÄÄ source code in part or in
whole, whether modified or in original form.
à Ã× ×Ø III. ØÁ ÁLICENSEÄ Ä× ×
Á Á1. ÃÃANGELIBÄÄ is being distributed as Shareware. This library is
not free, although license is hereby granted for evaluation of the
Unregistered Edition for an unlimited time.
Á Á2. You may keep as many backup copies of ÃÃANGELIBÄÄ as you wish.
The Registered Edition is limited to simultaneous use on the number of
computers indicated by your registration level. The Unregistered
Edition may be used on any number of computers. You may share ÃÃANGELIBÄÄ
with others in complete and unmodified form. REGISTERED USERS may NOT
distribute the files ending in OBJ.
Á Á3. You MUST NOT charge any fee or receive any consideration for
distributing the ANGELIB files and you MUST NOT include ANGELIB with
another business transaction (e.g., a hardware sale) unless you have
express written consent from the copyright holder, Angel Babudro. You
MAY charge a fee of not more than US$6 (six dollars) for the disk
and/or service of distribution.
Ù ÙÔ % 0*H&H&èè Ôà Ã× ×Ø IV. ØÁ ÁTECHNICAL SUPPORT (HOW TO REACH ME)Ä Ä× ×
Á ÁIf my wording is unclear or can't find some topic in here, give
me a holler and help me fix it or add it to the manual. A letter or
BBS message is preferred (and less expensive for you). Phone calls
are fine between 9am and 5pm Eastern Time as long as you are a
registered user or intend to become one. I thank you for your help in
making this library better.
Á ÁSysops please read SYSOP.DOC for special deals. Shareware
vendors please see VENDOR.DOC for distribution information.
Á ÁI can be reached via the mail or BBS. The bulletin boards below
should always have current versions of all my software and I will get
any messages left there for me.
ÐÐ °èÈ
0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °°Ð Ð
Á ÁMail p
ÂAngel Babudro, "Organic Computer Wizardry",
28 Mulberry Street, Clinton, NY 13323©1506,
(315) 853©1070 Mon©Fri 9am©5pm Eastern TimeÆ%
Æ
Á Áà Ã× ×Official Distribution Bulletin BoardsÄ Ä× ×
Á ÁOn bulletin boards I use the first name "Angelo" since it avoids
gender confusion. I go by either name, anyhow.
East Coast p
ÂExcalibur, Central NY (315) 736©3792 USR 14.4Æ%
Æ
 РÂÂ
ÂThis is my local distribution board where you can
always find the latest updates to all of my
software. I will get messages left here within a
few days. My software can be FREQed from this board
via RBBS Net address A:954/401, FIDO Net address
1:26501, or ICN Net 91:315/101.Æ%
Æ
West Coast p
ÂResearcher's BBS, So Cal (805) 949©8151 USR DSÆ%
Æ
Á ÁÂ p
ÂThis is my west coast distribution board which is
updated every 2©3 weeks with the latest versions of
all my software. Leave messages for me in
conference #136 (Organic Software).Æ%
Æ
Á ÁMy software can also be found on many of the nations larger
bulletin boards, such as Exec©PC and Channel 1.
Ù Ù
à Ã× ×Ø V. ØÁ ÁINTRODUCTIONÄ Ä× ×
Á ÁANGEL.QLB is a "high level" BC7 library for developing business
applications, especially data base uses. These are the routines I use
in developing my apps (with some help from three other shareware
libraries, most notably John Strong's EZ©Windows which is terrific).Ô % 0*H&H&èè ÔÁ ÁI put in the things that are simple but a pain to code every
time, like a "percent completed" bar graph in a window, and things
that are more complicated, such as a scrollable information window
with mouse support. ÃÃANGELIBÄÄ is written in BASIC. Even though it's
not the "tightest" code of its kind I think you will find it very easy
to use.
Á ÁSome of my routines trade flexibility for ease of use, like the
percentage graph which is always the same colour and at the same spot
on the screen. This keeps things simple and provides built©in
consistency. Just in case my ideas for standards aren't the same as
yours 🙂 I have decided to offer the licensing of my source code.
Á ÁWell, what more can I say? I hope my library helps you to write
a bit better and faster. If so maybe I'll see your registration in my
mail someday.
Ù Ù
à Ã× ×Ø VI. ØÁ ÁNOTES ABOUT THIS RELEASEÄ Ä× ×
Á ÁEvery release fixes bugs found in previous releases and/or adds
a few new features. Here are some notes about each release:
ÐÐ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ` ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °°Ð Ð
à Ã1.9aÄ ÄÁ ÁRoutines updated: SayOk, ChooseFile$/ChooseFiles$
Á ÁÂ °` ` ÂÁ ÁParameters modified: GetValidPath$, IsPath%Æ%` Æ
à Ã1.9Ä Ä РÂFull LIB file is now included. I was severly chastised by the
dBASIC Toolkit BBS' sysop for distributing "crippled" software.
Sorry I never saw it that way before, and I find that I am in
agreement. Now you can compile to EXE form, but if you want to
distribute and/or sell your software please register the
library.Æ%Æ
à Ã1.8mÄ Ä РÂAll printer & font routines have been updated to allow use on
networks using DOS SHARE.Æ%Æ
à Ã1.8kÄ Ä РÂRoutines updated: ErrScn, FileBackup, SelFont, SelFontsÆ%Æ
 РÂDocumentation corrected for HelpIndexÆ%Æ
à Ã1.8jÄ Ä Р à` ` ÂÁ ÁI slaps myself inna face & says, "What was I thinking?" as I
notice that StrFmt's parameters are in reverse order
compared to every other similar function in the known
universe. Oops. Mask & source strings have been swapped.Æ%` Æ
 Р à` ` ÂÁ ÁFixed: ChoosePtr% (problem if over 16 printers), Inform%
(highlight problem)Æ%` Æ
Ô % 0*H&H&èè ÔÁ ÁParameters modified: HelpIndex
 Р à` ` ÂÁ ÁRoutines dropped: BackupMethod%, ChooseCountry% © These simple
menus are easy to create with John Strong's EZ©Windows, so I
took them out to save space.Æ%` Æ
 Р à` ` ÂÁ ÁDocumentation corrected: I forgot to update the documentation
for some routines. Now you can actually use InputDate,
FileBackup%, FileRestore%, FileRestores%, FmtFDD%Æ%` Æ
à Ã1.8iÄ ÄÁ ÁNew routines: BarMenu%
à Ã1.8hÄ Ä РÂNew routines:Æ%Æ
 Р à` ` ÂÁ ÁChooseFileà ÃsÄ Ä$ allows multiple file names to be chosen (whereas
ChooseFile$ allows only one).Æ%` Æ
 Р à` ` ÂÁ ÁFileRestoreà ÃsÄ Ä% allows single or multiple files to be selected
from a back©up copy.Æ%` Æ
 Р à` ` ÂÁ ÁGetFileNameà ÃsÄ Ä$ allows more than one input file to be selected.Æ%` Æ
 Р à` ` ÂÁ ÁOutDevà ÃsÄ Ä$ is identical to OutDev$ but is for use with these other
new routines (which all use a common routine from John
Strong's EZ©Windows library).Æ%` Æ
 Р à` ` ÂÁ ÁGetFileDesc$ retrieves a file's long name from the DESCRIPT.*
fileÆ%` Æ
 РÂRenamed ToFDD% to FileBackup% and FromFDD% to FileRestore% © I
think these names are easier to remember.Æ%Æ
Ù Ù
à Ã× ×Ø VII. ØÁ ÁREGISTRATION× ×Ä Ä
Á ÁAlthough I hope that you are so happy with ÃÃANGELIBÄÄ that
registering will be reward enough in itself, but I think it's more fun
& exciting to get something new. ÃÃANGELIBÄÄ is the library I use for
developing all of my applications, so it is constantly updated. Your
registered version will be an up©to©the©minute copy. Other benefits
of registration that come to à ÃmyÄ Ä mind include:
ÐÐ ` ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ` @
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °°Ð Ð
Á Á1. °` ` ÂYou'll get OBJ files so you can create your own custom
libraries. I use the EZ©Windows and PBClone libraries for
some routines (why re©invent the wheel?), so you will need
to get them if you want to create custom libraries. Buying
all three libraries will cost around $70 which is far less
than most commercial packages.Æ%` Æ
Á Á2. °` ` ÂWithin days you will get a library that would probably take
so long to develop yourself that by the time you've done it
you won't need it anymoreÆ%` Æ
Á Á3. °` ` ÂYou can order a printed & bound manual for $8Æ%` ÆÔ ð# 0*H&H&èè ÔÁ Á4. °` ` ÂTechnical support is possible! You can contact a à Ãreal
programmerÄ Ä who is 98% knowledgeable about the library
(nobody's prefect) via mail, phone, or BBSÆ%` Æ
Á Á5. °` ` ÂYou'll have helped one of the little guys ÀÀ someone who
isn't a huge corporation. (Thank you...)Æ%` Æ
Ù Ù
Á Áà Ã× ×Ø A. ØÁ` ` ÁHow To OrderÄ Ä× ×
ÐÐ ` @
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °èÈ
x ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 0 °°Ð Ð
Á ÁU.S. customers please send cash, check, or money order.
Canadian customers please send cash or Canadian International Money
Order (CIMO). Customers in other countries please send U.S. funds
drawn on a U.S. bank. If you send cash use a "security" no©seeªthrough envelope and you may want to send it via Registered mail, too.
Á ÁIf you prefer to use a credit card, you can order ÃÃANGELIBÄÄ from
Public (software) Library with your MC, Visa, AmEx, or Discover card
by calling 800©242©4PsL (from overseas: 713©524©6394) or by FAX to
713©524©6398 or by CompuServe to 71355,470. THESE NUMBERS ARE FOR
ORDERING ONLY. I CANNOT be reached at those numbers. To contact me
for information about dealer pricing, volume discounts, site
licensing, the status of shipment of the product, the latest version
number, or for technical information, call 315©852©6942 or write me at
28 Mulberry Street, Clinton, NY USA 13323©1506. Shareware is "try
before you buy" so please understand that product returns are not
allowed.
Á ÁWhen ordering from PsL ask for product #10799 and please note
that PsL will add $3 for shipping & handling to U.S. as well as
Canadian orders.
Á Áà Ã× ×Ø B. ØÁèè ÁPricingÄ Ä× ×
ÐÐ °èÈ
x ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 0 °èÈ
h ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 0 °°Ð Ð
 РÂÁ°°
ÁÃ ÃRegistration with DiskÄ Ä ÀÀÀÀ A single copy costs $25. You will receive
the latest version of ÃÃANGELIBÄÄ in LIB (so it can be merged with
other libraries) and OBJ (to make custom libraries) formats.
You will also receive notification of major updates. At this
time, updates for registered users are $5 or send me a disk and
return postage (I'll re©use your envelope). See below for
printed manuals.Æ%Æ
 РÂÁ°°
ÁÃ ÃMultiple CopiesÄ Ä ÀÀÀÀ Each copy may be used on a single computer at a
time. To ease the financial burden and thank you for being
honest, you may apply the following discounts when ordering more
than one copy:Æ%Æ
 РÂ2 to 5 copiesÆ%ÆÁ`à %D Á40% discount
Á ÁOver 5 copiesÁ`à %D Á50% discount
 РÂÁ°°
ÁÃ ÃSite LicenseÄ Ä ÀÀÀÀ Register a single copy of ÃÃANGELIBÄÄ and purchase a site
license which allows you to make copies of the registeredÔ % 0*H&H&èè Ô version for use on more than one computer owned by the same
business. I would prefer that you order a registered copy and
Site License for each physical location of the same business,
but this is not required unless you would like to receive update
notices at each location.Æ%Æ
Á ÁÁèè ÁUp to 4 computersÁ`x %A Á$30.00 per site
Á ÁÁèè ÁUp to 10 computersÁ`x %A Á$70.00 per site
Á ÁÁèè ÁUp to 20 computersÁ` %@ Á$125.00 per site
Á ÁÁèè ÁAny number of computersÁ` %@ Á$400.00 per site
 РÂÁ°°
ÁÃ ÃManualsÄ Ä ÀÀÀÀ I will print the latest version of the manual you are
reading right now (using Ventura Publisher and a laser printer)
and bind it. I am offering this as a service to those who want
a printed, bound manual with their software. Most of the cost
involved here is for materials and extra shipping costs.
Remember that ASCII and WP documentation files are always on
disk and if you provide your printer model on the registration
form I will send you a file ready to print on your printer.Æ%Æ
Á Á©Áèè ÁOne copyÁ`(#%K Á$8.00
Á Á©Áèè ÁTwo or more copiesÁ`ð %B Á$6.00 per copy
 РÂÁ°°
ÁÃ ÃSource Code LicenseÄ Ä ÀÀ You may license the use of the source code for
ÃÃANGELIBÄÄ for just $30. Thereafter, updates will be available for
$5 plus shipping. Please note that I call routines from EZªWindows (by John Strong) and PBClone (by Tom Hanlin) in my
library (why re©invent their wheels?), so you will need to
register one or both of these to use some OBJs in creating
custom libraries. I recommend both of them highly and will
gladly share unregistered versions of these with you © just ask.Æ%Æ
ÐÐ °èÈ
h ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 0 °èÈ
0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °°Ð ÐÙ Ù
 РÂÁ°°
ÁÃ ÃComplimentary Registered EditionsÄ Ä © Á. ÁI would like to give you a
complimentary registration if you will give me a bit of
marketing assistance:Æ%Æ
 РÂ1. hèè ÂWrite a review of my software and post it on a bulletin
board, send me a copy of it showing the BBS's header and the
name and phone number of the BBS. Just give me your honest
praise and criticism in a decent review. Your review will be
most helpful to me if it mentions your best & worst©liked
features and any ideas you have for improvement. This will
help me decide the future of ÃÃANGELIBÄÄ and for that help I will
send you a complimentary registered disk.Æ%èÆ
 РÂ2. hèè ÂIt helps me to know which BBSs carry my software and the more
the better, of course! If you will upload a package to at
least five public ("open") BBSs, send me their names and
phone numbers and I'll send you a complimentary registered
disk. I would appreciate you uploading to time©share
systems, private ("closed") BBSs, or part©time BBS, butÔ % 0*H&H&èè Ô please do not use these to apply for a complimentary
registered edition. BTW: I use an HST 14.4 modem so it would
be best if you provided me with BBSs which also use HSTs so I
can hook©up at high speed.Æ%èÆ
 РÂ3. hèè ÂIf you are a consultant or other type of computer
professional and your recommendation leads to one or more of
your clients purchasing one of my packages, just send me a
note with your client's registration or have them mention
your name when they register. I will send a complimentary
registered edition or an update for every registration you
get for me. This is in lieu of a multiple copy discount; I
intend it for consultants who choose not to deal with sales
tax.Æ%èÆ
ÐÐ °èÈ
0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °°Ð Ð
Á ÁOne complimentary registration per person or company. A
complimentary registration is just like a paid one © you can upgrade
it with a site license, purchase manuals, etc. It helps when you send
back disks to be re©used © even the envelopes can be re©used. When
you order a complimentary registration please fill in the appropriate
blanks below PLUS the Invoice so I know what size disk you need, and
please send me a couple of dollar bills for shipping expenses.
Thanks.
Ù Ù
Á ÁI will promise these complimentary offers until at least
12/31/93 © after that date please check with me first.
Áà0 ÁÃ ÃCOMPLIMENTARY REGISTRATION APPLICATIONÄ Ä
Áà´" ÁUse until Dec. 31, 1993
Á` %= ÁDate_______________
Á ÁPlease also fill in the Invoice on the following page (put $0
for the disk). Include $2.00 for shipping within the U.S. or the
amount indicated for addresses outside the U.S. Remember to order
printed manual(s) if you so desire.
(__) Review posted on (BBS name & number)________________________
Á ÁInclude a copy of the review, please. Thank you very much!
Ù ÙÔ ! 0*H&H&èè Ô(__) I uploaded (archive name, like ANGEL18E.ARJ)__________________
 РÂto these five 24©hour public ("open") BBSs:Æ%Æ
ÐÐ °ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °h ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °°Ð Ð
Á
ÁÃÃBBS NameÁhh# ÁPhone Number/Modem TypeÁ < ÁSysop NameÄÄ
1_______________________Áhh# Á________________________Á < Á_______________
2_______________________Áhh# Á________________________Á < Á_______________
3_______________________Áhh# Á________________________Á < Á_______________
4_______________________Áhh# Á________________________Á < Á_______________
5_______________________Áhh# Á________________________Á < Á_______________
Á
ÁThese offers subject to withdrawal or change at any time without
notice. All prices are subject to change without notice. Bulletin
Board Sysops please see the file SYSOP.DOC for special pricing and
information; vendors & sysops please see VENDOR.DOC.
Áà ÁAngel Babudro ÀÀ "Organic Computer Wizardry"
Áà Á28 Mulberry Street À À Clinton, NY 13323©1506
Áà Á(315) 853©6942 Mon©Fri 9am©5pm Eastern Time
ÁàÌ Á(home phone; remember we're 3 hours later than Pacific coast)
Áàô Áà ÃPlease register the Shareware you keep.Ä ÄÔ h 0*H&H&èè Ô Á`0%: Áà Ã× ×INVOICE & REGISTRATION× ×Ä Ä
Á`X%% ÁCredit card orders see "How To Order" above
Your Name__________________________________________________________¬¬¬¬___
Company Name__________________________________________________________
Address_______________________________________________________________
______________________________________________________________________
City___________________________ State/Prov________ Zip________________
ÐÐ °h ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ¨ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °°Ð Ð
à ÃRegistrationÄ ÄÁ¨ ¨ ÁRegistration & disk: $25 x qty _____Á`H!%G Á$_______
à ÃSource CodeÄ ÄÁ¨ ¨ ÁSource disk & license: $30 x qty _____Á`À!%H Á_______
à ÃMultiple/Ä ÄÁ¨ ¨ Á2©4 disks ©© deduct 40%
à ÃWholesaleÄ ÄÁ¨ ¨ Á5 or more ©© deduct 50%Á`H!%G Á(_______)
à ÃSite LicenseÄ ÄÁ¨ ¨ ÁUp to 4 CPUs add $30; Up to 10 add $70
(add to above)Á¨ ¨ ÁUp to 20 add $125; Unlimited add $400Á`À!%H Á_______
à ÃPrintedÄ ÄÁ¨ ¨ ÁOne copy is $8, 2 or more are $6 each
à ÃManualsÄ ÄÁ¨ ¨ ÁQty _____ x $_____ eachÁ`À!%H Á_______
à ÃShipping &Ä ÄÁ¨ ¨ ÁCanada, AK, HI, VI, PR add $3 extraÁ`À!%H Á_______
à à ExpensesÄ ÄÁ¨ ¨ ÁOther countries add $9 per copyÁ`À!%H Á_______
Á ÁÁ¨ ¨ Áà Ã** T O T A L **Á`À!%H Á_______Ä Ä
ÐÐ ¨ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ TLÜôÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °Ð ÐDisk size & quantityÁxx! Á[__] 3ÀÀ"Á/ ÁÁ < Á[__] 5ÀÀ"
ÐÐ TLÜôÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ TLôÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ Ð ÐDrive densityÁxx! Á[__] Low (DD) requiredÁ < Á[__] High (HD) okay
Extended densitiesÁxx! Á[__] FDFORMAT extended densities okay
Which version are you using now?_____________________________________
Where did you get it?________________________________________________
ÃÃANGELIBÄÄ has been delivered to and accepted by customer. Upon receipt
of this paid invoice the latest Registered Edition disk and any
options chosen above will be sent. Send U.S. funds or CIMO. NYS
orders add local sales tax. Mail this page with your cash (use
Registered mail), cheque or money order to Angel Babudro, 28 Mulberry
Street, Clinton, NY USA 13323©1506. Please allow 1©3 weeks. Thank you!Ô ð#
0*H&H&èè Ô ÐÐ TLôÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ` ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °Ð Ðà Ã× ×Ø VIII. ØÁ ÁSYSTEM REQUIREMENTSÄ Ä× ×
Á ÁAll you need is PC/MS©DOS 3.3 or later, PDS/BC 7.1, and a
computer. You will need 200k to 500k of disk space for the files,
depending on which ones you decide to keep around.
Ù Ù
à Ã× ×Ø IX. ØÁ ÁFILES WHICH MAKE UP ANGELIBÄ Ä× ×
Á ÁThe unregistered edition is made up of the following files:
Á ÁANGEL.LIBÂ ` ÂThe linker library to make EXE files (check
MAKEQLB.BAT for help making a Quick Library)Æ%Æ
Á ÁANGEL.BIÂ ` ÂThe include file, function & subroutine
definitionsÆ%Æ
Á ÁCOLOURS.BIÁ ÁColour codes definitions, use is optional
Á ÁFKEYS.BIÁ ÁFunction key definitions, use is optional
Á ÁANGEL.TXTÁ ÁThe ASCII text file of this document
Á ÁANGEL.WPÂ ` ÂThe WordPerfect file of this document (so you can
format it for your printer)Æ%Æ
Á ÁQSORT.BASÁ ÁSource code to this public domain routine
Á ÁFKEY.LSTÁ ÁSample file for use with FKEYS routine
Á ÁREAD.MEÂ ` ÂA file containing late©breaking news... May or
may not be part of the package you getÆ%Æ
Á ÁORDER.FRMÁ ÁOrder form for all of my software
Á ÁSYSOP.DOCÁ ÁSysop information
Á ÁVENDOR.DOCÂ ` ÂDisk vendors & Sysops: pricing, detailed
description, and distribution informationÆ%Æ
Á ÁCOMPARE.EXEÂ ` ÂA byte©by©byte file compare utility. Displays in
hex, decimal, and ASCII. Type COMPARE for help.Æ%Æ
Á ÁDUMP.EXEÂ ` ÂHex/octal/decimal file viewer. Type DUMP for help.Æ%Æ
Á ÁThe registered edition also includes:
Á ÁFAROBJ.EXEÂ ` ÂObject modules for creating custom libraries
(self©extracting archive)Æ%Æ
Á ÁMLIB.BATÂ ` ÂSample batch file for creating custom libraries
from OBJ modules. I use it all the time to reªcompile libraries during software development.
Allows OBJs to be anywhere you like rather than
all in one directoryÆ%Æ
Á ÁMLIB.LSPÁ ÁSample specification file for MLIB.BAT
Á ÁANGEL.INFÂ ` ÂObject module information file for use with Tom
Hanlin's LIBWIZ utility © this makes it MUCH
easier to create your own custom libraries if
you've never done it before.Æ%Æ
Ù ÙÔ ¸$ 0*H&H&èè Ôà Ã× ×Ø X. ØÁ ÁUSING ANGELIBÄ Ä× ×
Á ÁBasically, just put the files wherever you want them and use the
INCLUDE meta©command to place the .BI definition files in your
programme (e.g., à Ã'$INCLUDE: 'Angel.bi'Ä Ä and à Ã'$INCLUDE: 'PtrRec.def'Ä Ä).
Using the $INCLUDE file lets you call subroutines without the CALL key
word.
Ù Ù
Á Áà Ã× ×Creating a QLB (Quick Library)Ä Ä× ×
ÐÐ ` ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °èÈ
x ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 0 °°Ð Ð
Á ÁIf you want to use ANGEL.LIB routines in the QBX interactive
environment you need to make a file called ANGEL.QLB first. To do
this just use the command:
Á Álink /qu angel.lib,angel.qlb,nul,qbxqlb;
Á ÁIf you get "Bad command or file name" you will need to supply
the drive and path containing the file LINK.EXE.
Á ÁWhen you start QBX just use "QBX /L d:\path\ANGEL" (replacing
d:\path with your drive and pathname) ÀÀ this will load the quick
library into memory so you can run the routines. Please note that
it's a large library; if you have extended memory QBX will load some
of the library "high." If you run out of memory with a large
programme I can only console you with the fact that most of my
software is too large to run in the QBX environment and the Microsoft
help©line wasn't even able to help me.
Á ÁRather than write a probably©lame demonstration programme to
show off ÃÃANGELIBÄÄ's functions, I would like to suggest that you check
out my shareware from whence this library sprang: What Mailing List?
(WML), What Vehicle History? (WVH), What Job Summary? (WJS), What
Floppy Format? (WFF), and What Tape Back©up (WTB).
Á ÁRegistered Edition users have individual OBJ files which can be
combined into custom libraries, even adding OBJs from other libraries
(such as EZ©Windows) or your own routines. I find it easiest to make
a file, using an ASCII editor, which contains all of the names of the
OBJs I want in the library (see MLIB.LSP for a sample). This file
contains one routine per line, preceded by a "+" and ending with a "&"
(which is what LIB requires since this file is passed directly to
LIB.EXE). This makes it easy to recompile the library if you changed
some code or want to add or delete routines.
Á ÁAnother alternative for making your own libraries is to use Tom
Hanlin's LIBWIZ utility. This makes things very easy since LIBWIZ is
smart enough to figure out if a routine requires others (for example,
the INFORM%() function requires several other routines) and will
include those other routines automatically. The drawback to LIBWIZ isÔ % 0*H&H&èè Ô that it has no "save" feature so you have to select each module every
time (which can get a bit tedious if you have 50 modules or so). If
you've never tried LIBWIZ you ought to at least check it out. The
most current version I know of is LIBWIZ13. To use it just enter
à ÃLIBWIZ ANGEL mylibnameÄ Ä (where "mylibname" is your library's name).
Ù ÙÑ# Âd ä2¼ P± Ú®å KrXP# Ñ
à Ã× ×Ø
XI. ØÁ ÁREFERENCEÄ Ä× ×
Á ÁÃÃANGELIBÄÄ is made up of functions and subroutines. Functions
return a value to a variable ÀÀ e.g., a% = CalcAttr(White, Blue) puts a
value in a% ÀÀ whereas subroutines do not ÀÀ e.g., BackUpMsg just prints
a message on the screen.
Á ÁThe general syntax of a function call is
ÃÃvar = Function(param1,param2,etc)ÄÄ. For a subroutine, the "formal"
syntax is "ÃÃ[CALL] subname(param1, param2, etc.)ÄÄ" although "CALL" is
not needed when you include ANGEL.BI in your code.
Á ÁSubroutines do not yield any "result," but they often modify one
or more variables which are passed to them. DBFHeader is a good
example of this.
Á ÁThe routines below each show their name at the left margin and a
sample calling sequence aligned with the right margin, under which is
the english explanation of the routine's purpose followed by the
definition of variables.
ÐÐ °èÈ
x ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 0 Ü| ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °Ð ÐÒ U È È È È È È È È Ã ÃTable 1Ä Ä B È È È È È P P Ã ÃTable 1Ä Ä ! ÒÙµ
The only font settng, a TAB setting, and the Table Box Options setting are
here in case you want to change them to better work with your printer.
This comment will not print.µ ÙÙ
Ù
à ÃBackupMsgÄ ÄÁ`H!%G ÁBackupMsg
Úb! #Ð è°X È È P P Ø d d ÄE
hh ÿÿ Prints what I think of as a pseudo©subliminal reminder to back©up
your data 🙂 A little reminder pops onto the screen for a second
then the screen is cleared.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁNothing
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁNothingbÚÔ$ °°%%p°°%% ! °%$ Ô
Ù # ÙÔ 0 Ð
0*H&H&èè °X%?# !
0 ÔÃ ÃBarMenu%Ä ÄÁ`P
% Áopt% = BarMenu%(r%,c%,norm%,rev%,opts$(),seed%,getit%,ms%)
ÚúA #Ð °° È È P P Ø8 d d ÄE hh ÿÿ Displays a horizontal bar menu and waits for user's choice of the
options.
à ÃÃÃPassÄ ÄÄÄ
ÁXX Ár%/c%Â øøø ÂRow and column at which to begin displayingÆ@ øÆ
ÁXX Ánorm%/rev%Â øøø ÂNormal & reverse display attributes (via
CalcAttr%)Æ@ øÆ
ÁXX Áopts$()Â øøø ÂString array containing choicesÆ@ øÆ
 XXX Âseed% øø ÂOption number to highlight initially (normally
"1")Æ@ øÆ
ÁXX Ágetit%Â øøø ÂFlag to get user's input: If true routine waits
for user to select an option or press an extended
key (e.g., an arrow, PgUp, etc.) or ENTER or Esc.
If False, the routine displays the menu then
exits (which is useful for displaying a bunch of
horizontal menus on a setup screen, for example).Æ@ øÆ
ÁXX Áms%Â øøø ÂMouse support (0=no, non©zero=yes)Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁFunction øøø ÂÁøø ÁIf getit% is true, the user's final keypress is
returned © ENTER (13), Esc (27), or extended key
code (2nd byte of code). If getit% is false then
the returned value is irrelevant.Æ@ øÆ
ÁXX Áseed%Â øøø ÂThe number of the highlighted item, numbered from
left to right starting with one.úÚÔ$ °°%%È °°%%È A °%$ Ô
Ù
Ù
à ÃCalcAttr%Ä ÄÁ`%0 Áattr% = CalcAttr% (Fore%, Back%)
ÚXa #Ð è°Ð È È P P Ø d d ÄE ÈÀ ÿÿ ÿÿ For use with routines that need a single integer colour code.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁFore%Áøø ÁForeground colour code
ÁXX ÁBack%Áøø ÁBackground colour code
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁFore% + (Back% * 16)XÚÔ$ °°%%è °°%% a °%$ ÔÔ @ % 0*H&H&èè! °°%Ç A °Ð %·( a @ ÔÙ ÙÃ ÃChooseFD$Ä ÄÁ` %@ Áfdd$ = ChooseFD$
ÚL #Ð °° È È P P ظ d d ÄE hh ÿÿ This is a menu of available floppy disk drives. The function:
1. XXX ÂChecks the number of floppy disk drivesÆ@ XÆ
2. XXX ÂIf there is only one drive then "A:" is returned, otherwiseÆ@ XÆ
3. XXX ÂA pop©up menu of floppy drives is presented from which the
user may choose one or press Esc.Æ@ XÆ
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁNothing
à ÃÃÃReturnsÄ ÄÄÄ
 XXX ÂFloppy disk drive letter followed by a colon, or a blank
string if user presses Esc.LÚÔ$ °°%%È °°%%H
°%$ Ô
Ù . ÙÔ 0 Ø 0*H&H&èè °°%G 0 ÔÃ ÃChooseFile$Ä ÄÁ`% ÁFile$ = ChooseFile$(FSpec$,Exclude$,ExtInfo%,ms%))
Ú¡ #Ð °!°° È È P P ØÐ d d ÄE Èh ÿÿ Presents a scrollable list of files in a window which match
FileSpec$ (excluding Exclude$) and waits for user to choose one.
à ÃÃÃPassÄÄÄ Ä
ÁXX ÁFSpec$Â øøø ÂFile specification to include in the list. May
include drive and path name, if necessary. For
example, "*.DAT" or "C:\DATA\*.DAT" are valid.Æ@ øÆ
ÁXX ÁExclude$ øøø ÂFile specification to à ÃexcludeÄ Ä from the list
(e.g., "*.bak"). Do à ÃnotÄ Ä put a drive or path in
this.Æ@ øÆ
ÁXX ÁExtInfo%Â øøø ÂExtended Information flag & record size.
Controls display of extended information (file
size & long description). Set this variable to
zero for no extra file information, or to the
record size to show the number of records in the
file along with description (if a file DESCRIPT.*
is in the directory it will be used for file
descriptions). To show size in bytes use a
record size of one. If negative information will
be in DOS Name/Size/Description order. If
positive Description/Name/Size order will be
displayed.Æ@ øÆ
ÁXX Áms%Â øøø ÂMouse support flag (true/false).Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
 XXX ÂFile name chosen ÃÃwithoutÄÄ drive or path, or null string ("")
if user presses EscÆ@ XÆ
à ÃÃÃNotesÄ ÄÄÄ
ÁXX ÁIf ExtInfo% is non©zero, font files *.SFP and *.SFL will be
shown with their font names and other files will be shown with
their size & any description.
ÁXX ÁI patterned the format of the DESCRIPT.* file after 4DOS:
file name followed by a space and up to 40 characters for the
description. 4DOS makes a à ÃhiddenÄ Ä file, however. ChooseFile$ will
only read "normal" (not hidden) files right now. I'll soon have
it so ChooseFile$ will read hidden files, too.
ÁXX ÁChooseFile$() uses the EZ©Windows routine ScrlMenu and the
PBClone routines ScrSave & ScrRest.ÚÔ$ °°%%È °°%%`" ¡ °%$ Ô
Ù + ÙÔ 0 ð# 0*H&H&èè °°%_& ¡ 0 ÔÃ ÃChooseFileS$Ä ÄÁ`h%# ÁF$ = ChooseFileS$(Inc$,Exc$,Info%,many%,ms%))
ÚàÁ #Ð X °° È È P P Øx d d ÄE Èh ÿÿ Shows a scrollable list of files in a window which match Inc$ and
excluding Exc$ then waits for user to choose one or more.
à ÃÃÃPassÄÄÄ Ä
ÁXX ÁInc$Â øøø ÂFile specification to include in the list. May
include drive and path name, if necessary. For
example, "*.DAT" or "C:\DATA\*.DAT" are valid.Æ@ øÆ
ÁXX ÁExc$ øøø ÂFile specification to à ÃexcludeÄ Ä from the list
(e.g., "*.bak"). Do à ÃnotÄ Ä put a drive or path in
this.Æ@ øÆ
ÁXX ÁInfo%Â øøø ÂExtended Information flag & record size.
Controls display of extended information (file
size & long description). Set this variable to
zero for no extra file information, or to the
record size to show the number of records in the
file along with description (if a file DESCRIPT.*
is in the directory it will be used for file
descriptions). To show size in bytes use a
record size of one. If negative information will
be in DOS Name/Size/Description order. If
positive Description/Name/Size order will be
displayed.Æ@ øÆ
ÁXX Ámany%Â øøø ÂTrue=Allow multiple picks, False=Just oneÆ@ øÆ
ÁXX Áms%Â øøø ÂMouse support flag (true/false).Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
 XXX ÂFile names ÃÃwithoutÄÄ drive or path, or null string ("") if user
presses Esc. Names are padded to length of 12.Æ@ XÆ
à ÃÃÃNotesÄ ÄÄÄ
ÁXX ÁThis routine ends up about 10k larger than ChooseFile$()
since it requires an EZ©Windows routine (ScrlTag) which the other
routine does not. If your programme already uses ScrlTag you will
only see a slight increase in your programme size (about .5k) over
using ChooseFile$(). See ChooseFile$() for other notes.àÚÔ$ °°%%È °°%% Á °%$ Ô
Ù ÙÔ 0 ! 0*H&H&èè °°%$ Á 0 ÔÃ ÃChoosePort%Ä ÄÁ`(%+ ÁPtrPort% = ChoosePort%(default%, ms%)
Úâá #Ð °°° È È P P ØÐ d d ÄE Èh ÿÿ Presents a pop©up menu of printer ports (LPT1, LPT2, and LPT3) and
waits for user to pick one or press Esc.
à ÃÃÃPassÄ ÄÄÄ
ÁXX Ádefault%Â øøø ÂDefault (current) printer port setting (1©3).Æ@ øÆ
ÁXX Áms%Â øøø ÂMouse support available: Á°°* Á0 = No, 1 = YesÆ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁPort number (1©3) or zero if user presses EscâÚÔ$ °°%%È °°%%` á °%$ Ô
Ù " Ù
à ÃChoosePtr%Ä ÄÁ`0 % ÁOk% = ChoosePtr%(pType$, path$, PtrNo%, PtrPort%, ms%)
ÚÝ #Ð P°h È È P P Øp d d ÄE Èh ÿÿ Presents a pop©up menu of printer choices from the PRINTER.DAT
file. If there are less than 15 choices (that is, all choices fit
inside the window), then the default (PtrNo%) will be highlighted.
à ÃÃÃPassÄÄÄ Ä
ÁXX ÁpType$Â øøø ÂPrinter types to include in the menu:Æ@ øÆ
ÁXX ÁÁøø ÁD = Dot matrix printers
ÁXX ÁÁøø ÁL = Laser printers
ÁXX ÁÁøø ÁB = Both
ÁXX Ápath$Â øøø ÂFile specification for PRINTER.DAT file. path$
may contain a drive, path, and/or file name. If
no file name is given, PRINTER.DAT is used. If
no drive & path are given, the current drive &
path are used.Æ@ øÆ
ÁXX ÁPtrNo%Â øøø ÂRecord number of currently chosen printer in
PRINTER.DATÆ@ øÆ
ÁXX Áms%Áøø Á0 = Keyboard only
ÁXX ÁÁøø Á1 = Use mouse, too
à ÃÃÃReturnsÄÄÄ Ä
ÁXX ÁpType$Â øøø ÂChanged to "D" if dot matrix chosen or "L" if
laser printer chosenÆ@ øÆ
ÁXX ÁPtrNo%Â øøø ÂPRINTER.DAT record number for the chosen printerÆ@ øÆ
ÁXX ÁPtrPort%Â øøø ÂThe port number selected for the printer (LPT1 is
1, LPT2 is 2, etc.) or zero if user presses EscÝÚÔ$ °°%% °°%% °%$ ÔÔ @ % 0*H&H&èè! °°%_
á °h%·( @ ÔÙ
ÙÃ ÃContCan%Ä ÄÁ`h %C Ái% = ContCan%
Úg! #Ð è°° È È P P Ø d d ÄE hh ÿÿ ÿÿ Displays "Continue" and "Cancel" keys at the bottom of the screen
and waits for response.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁNothing
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁTRUE (©1) if user presses Esc
ÁXX ÁFALSE (0) if user presses Return (aka Enter)gÚÔ$ °°%%È °°%% !°%$ Ô
Ù Ù
à ÃDateFmt$Ä ÄÁ`à%$ ÁFormattedDate$ = DateFmt$(d%, m%, y%, intl%)
ÚÌA #Ð `
° È È P P Ø d d ÄE Èh ÿÿ I use this routine to print the formatted date after getting input
from the user. You can "PRINT DateFmt$()" or assign it to a
variable. Use the ChooseCountry% menu to let the user set Intl%.
à ÃÃÃPassÄ ÄÄÄ
ÁXX Ád%Áøø ÁDay on the month
ÁXX Ám%Áøø ÁMonth number
ÁXX Áy%Áøø ÁYear (4©digits)
ÁXX ÁIntl%Áøø ÁInternational formatting
ÁXX ÁÁøø Á1 = USA (mm/dd/yyyy)
ÁXX ÁÁøø Á2 = Canadian (dd©mm©yyyy)
ÁXX ÁÁøø Á3 = USA & Cdn (dd MoName yyyy)
ÁXX ÁÁøø Á4 = International (dd MoName yyyy)
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁFormatted dateÌÚÔ$ °°%%¸ °°%% A°%$ Ô
Ù
Ù
à ÃDateVal%Ä ÄÁ`@%8 Ádv% = DateVal%(TheDate$)
Ú a #Ð °° È È P P ØÐ d d ÄE hh ÿÿ Converts dates from 1992 to 2078 to an integer number for date
calculations. For example, DateVal%(Date1$) © DateVal%(Date2$)
would give you the number of days between the two dates. Years
prior to 1992 are converted to 1992.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁTheDate$Â øøø ÂDate formatted the same as BASIC's DATE$ functionÆ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁInteger value based on the date ÚÔ$ °°%% °°%%` a°%$ ÔÔ P % 0*H&H&èè1 °°% ! ° %ÿ A ° %·( a P ÔÙ ÙÃ ÃDBFHeaderÄ ÄÁ` % ÁDBFHeader file$, Fld$(), reclen%, recs&, NoFlds%
ÚÆ #Ð Ø°° È È P P Øø d d ÄE Èh ÿÿ Opens .DBF file FileName$ and returns field names in Field$(),
record length in reclen%, number of records in the file in recs&,
and number of fields in NoFields%. You can then call DBFPickFld
to pick fields from the list. See also DBFPickFld function.
à ÃÃÃPassÄ ÄÄÄ
ÁXX Áfile$Â øøø ÂThe DBF file name, including drive and path, if
necessaryÆ@ øÆ
ÁXX ÁFld$()Â øøø ÂThis array must be initialized prior to calling
DBFHeader to the maximum number of fields (I
would suggest setting it to at least 50, unless
you know better).Æ@ øÆ
à ÃÃÃReturnsÄÄÄ Ä
ÁXX ÁFld$()Â øøø ÂThe names of the fields. The first field name is
in Field$(1), etc.Æ@ øÆ
ÁXX Áreclen%Â øøø ÂThe file's record lengthÆ@ øÆ
ÁXX Árecs&Â øøø ÂThe number of records on fileÆ@ øÆ
ÁXX ÁNoFlds%Â øøø ÂThe number of fieldsÆÚÔ$ °°%%È °°%% °%$ Ô
Ù Ù
à ÃDBFPickFld%Ä ÄÁ`Ð%& Áfld% = DBFPickFld%(iRow%, iCol%, field$())
Ú ¡ #Ð x ° È È P P Ø d d ÄE Èh ÿÿ Presents the list of field names of a .DBF file at and waits for
user to select one. See also DBFHeader which will fill field$()
with field names.
ÁXX ÁiRow%Áøø ÁTop row of window
ÁXX ÁiCol%Áøø ÁLeft column of window
ÁXX Áfield$()Â øøø ÂArray containing field names from which to chooseÆ@ øÆ
ÁXX Áms%Â øøø ÂMouse flag: 0 = no mouse, non©zero = use mouse ÚÔ$ °°%%¨°°%%(
¡°%$ Ô
Ù & ÙÔ @ ! 0*H&H&èè! °°% °%$ ¡ @ ÔÃ ÃDBFShowFieldsÄ ÄÁ`% ÁDBFShowFields row%, col%, show%, field$(), hilite%
ÚZÁ #Ð à°° È È P P Ø d d ÄE hh ÿÿ ÿÿ Displays a window filled with field names found in the field$()
variable (which can be set via DBFHeader). Field number hilite%
will be highlighted and placed in the centre of the window (if
possible).
à ÃÃÃPassÄ ÄÄÄ
ÁXX Árow%Â øøø ÂTop screen row of window (box corner)Æ@ øÆ
ÁXX Ácol%Áøø ÁTop left corner of window
ÁXX Áshow%Â øøø ÂNumber of fields to show in the windowÆ@ øÆ
ÁXX Áfield$()Â øøø ÂA 2©dimensional array field$(1©fieldnum, 0©2).
field$(fieldnum,0) is the field nameÆ@ øÆ
 XXX  øø Âfield$(fieldnum,1) is the field typeÆ@ øÆ
ÁXX ÁÁøø Áfield$(fieldnum,2) is the field length
 XXX  øø ÂAll you need to do is dimension field$() and then
pass it to DBFHeader which will fill it with the
field specs.Æ@ øÆ
 XXX  øø ÂNote: DBFHeader sets field$(1,x) to "None" and
this routine also expects field$(1,x) to be the
"None" field.Æ@ øÆ
ÁXX Áhilite%Â øøø ÂIndicates the field number to highlight on the
screen (a value of zero highlights nothing). The
first field in the window is Max%(1,hilite%©5),
so if hilite%=1,2,3,4, or 5 the first field in
the window is #1; if hilite%=6 the first field is
#2, etc.Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁNothingZÚÔ$ °°%%È °°%% Á°%$ Ô
Ù Ù
à ÃDelayÄ ÄÁ`Ð %F ÁDelay Sec!
Ú4á #Ð X°! È È P P Øx d d ÄE hh ÿÿ Delays for Sec! seconds. I use this for copyright messages, etc.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁSec!Áøø ÁNumber of seconds to delay (floating point)
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁNothing4ÚÔ$ °°%%° °°%% á°%$ Ô
Ù ÙÔ @ % 0*H&H&èè! °°% Á °!%ï' á @ ÔÃ ÃDrawFDDÄ ÄÁ``%4 ÁDrawFDD Light%, iRow%, iCol%
Úþ #Ð °° È È P P Ø(
d d ÄE Èh ÿÿ Draws a text picture of a floppy on the screen at iRow%,iCol%. If
Light% is TRUE (-1) then the light blinks red (bright white on
mono monitors), else it is white.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁLight%Â øøø ÂTrue if drive "light" is to blink, false if notÆ@ øÆ
ÁXX ÁiRow%Áøø ÁTop row of picture
ÁXX ÁiCol%Áøø ÁLeft column of picture
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁNothingþÚÔ$ °°%%È °°%%¸ °%$ Ô
Ù Ù
à ÃDrawHDDÄ ÄÁ`%. ÁDrawHDD Light%, iRow%, iCol%, Msg$
Ú^! #Ð `
°À È È P P Ø d d ÄE Èh ÿÿ Similar to DrawFDD but draws a text picture of a hard disk and
places the current drive (CURDRIVE) letter in the box.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁLight%Â øøø ÂTrue if drive "light" is to blink, else falseÆ@ øÆ
ÁXX ÁiRow%Áøø ÁTop row of picture
ÁXX ÁiCol%Áøø ÁLeft column of picture
ÁXX ÁMsg$Â øøø ÂA message up to 20 characters long to display
inside the picture. If longer than 20 chars it
will be truncated.Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁNothing^ÚÔ$ °°%%Ø°°%% !°%$ Ô
Ù ÙÔ @ ° 0*H&H&èè! °°%· °À% ! @ ÔÃ ÃDrvSpaceÄ ÄÁ`(%+ ÁDrvSpace (Drive$, Total&, Free&, EC%)
ÚÿA #Ð @
°° È È P P Ø` d d ÄE Èh ÿÿ Returns total space and free space (in bytes) of drive Drive$.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁDrive$Áøø ÁDisk drive letter (e.g., "C")
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁTotal&Â øøø ÂTotal bytes are returned in this variableÆ@ øÆ
ÁXX ÁFree&Â øøø ÂFree bytes are returned in this variableÆ@ øÆ
ÁXX ÁEC%Â øøø ÂDOS error code is returned in this variable or
zero if no errorÿÚÔ$ °°%%È °°%%ð
A°%$ Ô
Ù Ù
à ÃElapsedTimeÄ ÄÁ`% ÁElapsedTime STime$, ETime$, Hour%, Minutes%, Secs%
Úøa #Ð °ø È È P P Ø d d ÄE Èh ÿÿ Calculates elapsed time.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁSTime$Â øøø ÂStarting time hh:mm:ss (same format as TIME$
function)Æ@ øÆ
ÁXX ÁETime$Â øøø ÂEnding time hh:mm:ss (same format as TIME$
function)Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁETime$Áøø ÁFormatted elapsed time (hh:mm:ss)
ÁXX ÁHour%Â øøø ÂElapsed hoursÆ@ øÆ
ÁXX ÁMinutes%Â øøø ÂElapsed minutesÆ@ øÆ
ÁXX ÁSecs%Â øøø ÂElapsed secondsÆ@ øÆ
à ÃÃÃExampleÄ ÄÄÄ
 XXX ÂS$ = TIME$ 'Starting timeÆ@ XÆ
ÁXX Á(do whatever needs to be done)
ÁXX ÁE$ = TIME$ 'Ending time
ÁXX ÁElapsedTime S$, E$, H%, M%, S%øÚÔ$ °°%%°°%%0 a°%$ Ô
Ù ÙÔ @ 0*H&H&èè! °°%ï A °ø%w" a @ ÔÃ ÃErrScnÄ ÄÁ`@%8 ÁErrScn ErrCode%, Module$
Ú^ #Ð °°° È È P P ØÐ d d ÄE hh ÿÿ Presents an error screen showing error number, english text,
possible solution, and module name.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁErrCode%Áøø ÁError number
ÁXX ÁModule$Áøø ÁModule name
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁNothing^ÚÔ$ °°%%È °°%%` °%$ Ô
Ù Ù
à ÃErrSolve$Ä ÄÁ` %? ÁErrSolve$ Number%
Ú¡ #Ð 8°h È È P P ØX d d ÄE hh ÿÿ Prints possible solution to error number Number%. Used by
subroutine ErrScn. Not very extensive (to save memory), but it
sure beats no error handling...ÚÔ$ °°%% °°%%è ¡°%$ Ô
Ù Ù
à ÃErrText$Ä ÄÁ` %@ ÁErrText$ Number%
Ú§ Á #Ð ¨°¨ È È P P È d d ÄE hh ÿÿ Prints text of error Number%. Used by ErrScn.§ ÚÔ$ °°%%À°°%%X Á°%$ Ô
Ù ÙÔ P à 0*H&H&èè1 °°%_
°h% ¡ °¨%O Á P ÔÃ ÃFileBackup%Ä ÄÁ`(%+ Áec% = FileBackup%(FileMask$, Method%)
ÚEá #Ð °° È È P P Ø0 d d ÄE Èh ÿÿ Asks for user to enter path (including drive) on which to store
the back©up (e.g., "A:\" or "\TEMP\BACKUPS") then backs©up
FileMask$ to drive Drive$ using Method%.
à ÃÃÃPassÄÄÄ Ä
ÁXX ÁFileMask$Â øøø ÂFile mask to include in restore (e.g., *.*,
*.DAT, OLD??.*, etc.)Æ@ øÆ
ÁXX ÁMethod%Â øøø ÂThe method to use in making the back©upÆ@ øÆ
ÁXX ÁÁøø Á1 = DOS Copy
ÁXX ÁÂ øøø Â2 = ARJ (req. a lot of free memory)Æ@ øÆ
ÁXX ÁÁøø Á3 = LHARC
ÁXX ÁÁøø Á4 = PKZIP
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX Á0 = Completed
ÁXX Á1 = Cancelled
ÁXX Á2 = Bad file mask
ÁXX Á3 = No files matching file mask
à ÃÃÃNotesÄ ÄÄÄ
ÁXX ÁRequires GetValidPath$() function (GETPATH.OBJ)EÚÔ$ °°%%È °°%%À á°%$ Ô
Ù ÙÔ 0 P 0*H&H&èè °°%¿ á 0 ÔÃ ÃFileRestore%Ä ÄÁ`°%* Áec% = FileRestore%(FileMask$, Method%)
Úd #Ð °° È È P P Ø0 d d ÄE Èh ÿÿ Menu of floppy drives then if Method% is 2, 3, or 4 a menu of
files matching FileMask$ (user can select à ÃoneÄ Ä to restore). If
Method%=1 Ã ÃallÄ Ä files matching FileMask$ are restored.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁFileMask$Â øøø ÂFiles to restore (*.*, *.DAT, OLD??.*, etc.)Æ@ øÆ
ÁXX ÁMethod%Áøø ÁThe method to use in restoring
ÁXX ÁÁøø Á1 = DOS Copy
ÁXX ÁÂ øøø Â2 = ARJ (req. a lot of free memory)Æ@ øÆ
ÁXX ÁÁøø Á3 = LHARC
ÁXX ÁÁøø Á4 = PKZIP
ÁXX ÁÁøø ÁAnything else = DOS Copy
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX Á0 = Completed
ÁXX Á1 = Cancelled
ÁXX Á2 = Bad file mask
ÁXX Á3 = No files matching file mask
à ÃÃÃNotesÄ ÄÄÄ
ÁXX ÁRequires ChooseFile$() function (CHOOSEFL.OBJ).dÚÔ$ °°%%È °°%%À °%$ Ô
Ù Ù
à ÃFileRestores%Ä ÄÁ`8%) Áec% = FileRestores%(FileMask$, Method%)
Ú«! #Ð X°È È È P P Øx d d ÄE Èh ÿÿ Same as FileRestore%() function above except that user can select
à Ãone or multipleÄ Ä files to restore. See FileRestore%() for a
description of the parameters.
à ÃÃÃNotesÄ ÄÄÄ
ÁXX ÁRequires ChooseFileS$() function (CHOOSEFS.OBJ). Will add ÀÀk
to 10k to your code size over using FileRestore%().«ÚÔ$ °°%%à°°%% !°%$ Ô
Ù - ÙÔ @ ° 0*H&H&èè! °°%¿ °È% ! @ ÔÃ ÃFKeysÄ ÄÁ`X %E ÁFKeys Keys$
ÚÙA #Ð è °° È È P P Ø d d ÄE Èh ÿÿ Displays a list of function keys at the bottom of the screen.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁKeys$Â øøø ÂString of keys to be displayed (e.g., "EPNQ").
Plus sign (+) is a reserved character. If the
first character is a plus sign followed by twoªdigits, then the keys are placed starting on that
row. For example, "+24EPNQ" would place the keys
on row 24/25, instead of the default rows 23/24.Æ@ øÆ
à ÃÃÃNotesÄ ÄÄÄ
The file FKEY.LST is seached first if it is in the current
directory, then an internal list is searched if the keys are not
found. The format of FKEY.LST ASCII file is:
ÁXX ÁKeyCode$,KeyName$,KeyDesc$,XPos%
For example, a line reading "C,Enter,Continue,51" would place the
key "Enter" (in reverse video) and the description "Continue"
under it at column 51 whenever an FKeys "C" is issued in a
program. See the sample FKEY.LST file.
The routine scans the first screen row at column 1 for the colour
to use.
The keys "AacCFNoPQSsTtyn" are defined internally as follows:
ÁXX ÁA © Up and Down arrows
ÁXX Áa © Up/Down/Right/Left arrows
ÁXX ÁC © Esc = Cancel
ÁXX Ác © Enter = Continue
ÁXX ÁN © PgDn = Next
ÁXX Áo © Enter = OK
ÁXX ÁP © PgUp = Prev
ÁXX ÁQ © Esc = Quit
ÁXX ÁS © Enter = Select
ÁXX Ás © Esc = Stop
ÁXX ÁT © TAB = Next
ÁXX Át © BackTAB = Prev
ÁXX Áy © Enter = Yes
ÁXX Án © Esc = NoÙÚÔ$ °°%%È °°%%! A°%$ ÔÙ ÙÔ 0 `" 0*H&H&èè °°%% A 0 ÔÃ ÃFmtFDD%Ä ÄÁ`h %C Áec% = FmtFDD%
Úáa #Ð H°° È È P P Øh d d ÄE hh ÿÿ Format floppy disks.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁNothing
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁTRUE if function completed
ÁXX ÁFALSE if cancelled
à ÃÃÃNotesÄÄÄ Ä
 XXX ÂIt's easiest to give you an algorithm of the logic flow:Æ@ XÆ
ÁXX ÁSearch DOS PATH for WFF.EXE (What Floppy Format?)
ÁXX ÁIf found, run it and exit
ÁXX ÁHow many drives does this computer have?
ÁXX ÁIf more than 1 present list
 XXX ÂIssue DOS command "FORMAT d:" and exitÆ@ XÆ
 XXX ÂI always put a "Format Floppies" option under my File menu
which simply does "i% = FmtFDD". See also FromFDD% and
ToFDD% functions.áÚÔ$ °°%%È °°%%ø a°%$ Ô
Ù ! ÙÔ 0 0*H&H&èè °°%÷ a 0 ÔÃ ÃFontDLÄ ÄÁ`°%* ÁFontDL FontFile$, Pts%, Port%, FontNo%
Ú\ #Ð °° È È P P ب d d ÄE Èh ÿÿ Downloads a soft font file to a laser printer and displays a
status window while doing so.
à ÃÃÃPassÄÄÄ Ä
ÁXX ÁFontFile$Â øøø ÂThe full file name, including drive and path if
necessary, of the soft font file to be
downloaded.Æ@ øÆ
ÁXX ÁPort%Â øøø ÂThe port number (1©3) of the printer.Æ@ øÆ
ÁXX ÁFontNo%Â øøø ÂPCL font number to assign this font (e.g., 400).
Numbers >128 are generally best to use as the
lower numbers have standard fonts which typically
apply to them.Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁPts%Â øøø ÂThe point size of the font is returned in this
variable.Æ@ øÆ
à ÃÃÃExampleÄ ÄÄÄ
ÁXX Áok% = FontDL%(FontFile$, Pts%, Port%, FontNo%)
ÁXX Áif ok% then
ÁXX Á PRINT #PrintFile%, chr$(27)+"("+ltrim$(str$(FontNo%))+"X"
ÁXX Á end if
à ÃÃÃNotesÄ ÄÄÄ
 XXX ÂThe above sequence selects FontNo% as the primary font (the
'(' does this). To select it as the secondary font use
à Ãchr$(27)+"("+ltrim$(str$(FontNo%))+"X"Ä Ä\ÚÔ$ °°%%È °°%%8 °%$ Ô
Ù ÙÔ 0 È 0*H&H&èè °°%7 0 ÔÃ ÃGetDateÄ ÄÁ`(%+ ÁGetDate d%, m%, y%, Intl%, Row%, Col%
Ú¡ #Ð °° È È P P ØÀ d d ÄE Èh ÿÿ Accepts date from keyboard at {Row%,Col%} unformatted (no symbols,
just numbers run together). Extended keys (arrows, PgUp, etc.)
will exit plus a mouse button push or the Alt key. Intl%
determines the sequence of entry.
à ÃÃÃPassÄ ÄÄÄ
ÁXX Ád%Â øøø ÂDefault day (1©31), zero to use to©day's date,
negative to skip the dayÆ@ øÆ
ÁXX Ám%Â øøø ÂDefault month number, zero to use current month,
negative to skip the monthÆ@ øÆ
ÁXX Áy%Â øøø ÂDefault year number (4 digits), zero to use
current year, negative to skip the yearÆ@ øÆ
ÁXX ÁIntl%Â øøø ÂCountry setting (1=US, 2=Cdn, 3=US & Cdn,
4=Other)Æ@ øÆ
ÁXX ÁRow%Â øøø ÂScreen row on which to get inputÆ@ øÆ
ÁXX ÁCol%Â øøø ÂScreen column in which to get inputÆ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX Ád%, m%, and y% are set to user's inputÂÚÔ$ °°%%È °°%%P ¡°%$ Ô
Ù Ù
à ÃGetFileDesc$Ä ÄÁ`Ø%5 Ádesc$ = GetFileDesc$(file$)
Ú¸Á #Ð °°X È È P P àÐ d d ÄE Èh ÿÿ Get a file's description (long name) from the DESCRIPT.* file in
the current directory.
à ÃÃÃPassÄ ÄÄÄ
ÁXX Áfile$Â øøø ÂDOS file name. You can specify a drive & path,
but the current directory will be accessed for
the DESCRIPT.* file.Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁDescription (long name) of the file.¸ÚÔ$ °°%%p°°%%` Á°%$ Ô
Ù ÙÔ @ ! 0*H&H&èè! °°%O ¡ °X%$ Á @ ÔÃ ÃGetFileName$Ä ÄÁ`¨ % Áafile$ = GetFileName$(InOut%, ttl$, msg$, dflt$, ms%)
ÚÀá #Ð Ø°° È È P P àø d d ÄE Èh ÿÿ Get a file name from user in a window, verify proper format of
entry, and check status of file.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁInOut%Áøø ÁInput or Output file?
ÁXX ÁÂ øøø Â1 = Input file (file must exist; error message
displayed if not) ('1' is for 'I'nput)Æ@ øÆ
ÁXX Á øøø Â0 = Output file (checks that file does à ÃnotÄ Ä exist;
if file exists, presents a warning that file will
be over©written) ('0' is for 'O'utput)Æ@ øÆ
ÁXX Áttl$Áøø ÁTitle of window
ÁXX Ámsg$Â øøø ÂHelp message displayed on the screen below the
file entry windowÆ@ øÆ
ÁXX Ádflt$Â øøø ÂDefault responseÆ@ øÆ
ÁXX Áms%Áøø ÁMouse flag (0=no mouse, non©zero=use mouse)
ÁXX ÁÂ øøø ÂMouse cursor should be invisible (off)Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁName of file, including drive and path (if entered)ÀÚÔ$ °°%%È °°%% á°%$ Ô
Ù Ù
à ÃGetFileNames$Ä ÄÁ`0 % Áfiles$ = GetFileNames$(InOut%, ttl$, msg$, dflt$, ms%)
Ú* #Ð Ð ° È È P P àð
d d ÄE Èh ÿÿ Same as GetFileName$ except that user can specify more than one
input file.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁInOut%Áøø ÁInput or Output file?
ÁXX ÁÂ øøø Â1 = Single input fileÆ@ øÆ
ÁXX ÁÁøø Á©1 = Multiple input files
ÁXX ÁÂ øøø Â0 = Output fileÆ@ øÆ
Everything else is the same as GetFileName$() above.
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁDrive and path (if entered) followed by file name(s) padded
to 12 spaces.*ÚÔ$ °°%%¨°°%% °%$ Ô
Ù ÙÔ @ ð# 0*H&H&èè! °°% á °%_& @ ÔÃ ÃGetFontInfoÄ ÄÁ`(%+ ÁGetFontInfo File$, FontName$, PtSize%
ÚÝ! #Ð `
°° È È P P x d d ÄE Èh ÿÿ Provides name & size in the header of a soft font file. Try
FontDL% on your laser for a demonstration of this.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁFile$Â øøø ÂThe name of the soft font, including drive and
path, if necessary.Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁFontName$Â øøø ÂThe long name of the font is returned in this
variable, if present (some fonts do not have any
name in the header)Æ@ øÆ
ÁXX ÁPtSize%Â øøø ÂIn the font file's header is a point size ©© the
integer value of this is returned (decimal
chopped off). Although this should be the real
point size, it's possible for it to be wrong.ÝÚÔ$ °°%%È °°%% !°%$ Ô
Ù ( ÙÔ 0 0*H&H&èè °°% ! 0 ÔÃ ÃGetNum$Ä ÄÁ`@ % Án$ = GetNum$(iRow%, iCol%, NumMask$, OrigNo$, ExitCode%)
ÚìA #Ð È °° È È P P Øè d d ÄE ! Èh ÿÿ Get formatted numerical input from user. Screen colours at the
specified location will be inverted during input and restored upon
exit.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁiRow%Áøø ÁRow at which to get input
ÁXX ÁiCol%Áøø ÁLeft column at which to get input
ÁXX ÁNumMask$Â øøø ÂFormat mask. Valid mask characters are pound
(#), dollar ($), and comma (,); all else are
literals (same as PRINT USING). E.g., "#,###",
"$$##.##" or "(###) ###©####".Æ@ øÆ
ÁXX ÁOrigNo$Â øøø ÂDefault number in string form to avoid numerical
data type conflicts. Can be integer or floating
point.Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
 XXX ÂUser's entry as a string (use VAL to extract it into the
proper variable; for example, Cost@=VAL(A$) or Miles%=VAL(A$)Æ@ XÆ
ÁXX ÁExitCode%Â øøø ÂASCII value of key user pressed to exit. E.g.,
Esc = 27. If an extended key (e.g., F4, PgUp,
etc.) is used ExitCode% is negative.Æ@ øÆ
à ÃÃÃExampleÄ ÄÄÄ
 XXX ÂA$=GetNum$(15,30,"$$###.##",STR$(UnitPrice@),ExitCode%)Æ@ XÆ
 XXX ÂIn the above example an input field will be created at
location (15,30). The original number, UnitPrice@, will be
formatted and displayed using the mask "$$###.##", then the
computer will wait for the user's input. The key that the
user presses to exit the field will be returned in the
variable ExitCode%.Æ@ XÆ
ÁXX ÁSee FKEYS.BI for key definitions.ìÚÔ$ °°%%È °°%%x A°%$ Ô
Ù ÙÔ 0 ! 0*H&H&èè °°%w" A! 0 ÔÃ ÃGetValidPathÄ ÄÁ`X%% ÁGetValidPath Drv$, path$, Msg$, InOut%, ms%
ÚKa #Ð À°° È È P P Øà d d ÄE " Èh ÿÿ Displays Msg$ then asks user for a valid path name, defaulting to
Drv$ and Path$. If path does not exist and it is being used for
output, user is asked if s/he wants to create it.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁDrv$Áøø ÁDefault drive (e.g., "C:")
ÁXX ÁPath$Â øøø ÂDefault path (e.g., "\TEST\DIR")Æ@ øÆ
ÁXX ÁMsg$Â øøø ÂHelpful message to display on the screen (using
Inform%)Æ@ øÆ
ÁXX ÁInOut%Áøø Á1=Input/0=Output
ÁXX ÁÂ øøø ÂIf InOut%=0 will prompt to create a directory
that does not exist.Æ@ øÆ
ÁXX Áms%Â øøø Â0=No mouse, 1=Use mouseÆ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁDrv$Áøø ÁSelected drive letter followed by a colon
ÁXX ÁPath$Â øøø ÂSelected path with trailing foreslash (\) (e.g.,
"\TEST\DIR\")Æ@ øÆ
à ÃÃÃNotesÄ ÄÄÄ
 XXX ÂThe mouse must be initialized and visible to use it. To keep
things simple & save stack space, the windows are at fixed
positions (which also helps keep things consistent, too).KÚÔ$ °°%%È °°%%p a°%$ Ô
Ù ÙÔ 0 " 0*H&H&èè °°%o a" 0 ÔÃ ÃGoodbyeScreenÄ ÄÁ`x%! ÁGoodbyeScreen Pkg$, Reg%, FirstUse$, TimesUsed%
Ú #Ð ð°° È È P P Ø d d ÄE # Èh ÿÿ Presents a 'goobye screen' with which I end my programmes. It
also has my name on it... 🙂 When you register ANGELIB you will
get a version which lets you put your copyright message on it.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁPkg$Â øøø ÂPackage abbreviation (e.g., "WVH", "WML", etc.).
Should be a short name to fit properly in window.Æ@ øÆ
ÁXX ÁReg%Â øøø ÂRegistration flag, true/false, controls the
information displayedÆ@ øÆ
ÁXX ÁFirstUse$Â øøø ÂDate of first use. Used to calculate number of
days package has been used.Æ@ øÆ
ÁXX ÁTimesUsed%Â øøø ÂNumber of times package has been used.Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁNothingÚÔ$ °°%%È °°%% °%$ Ô
Ù & ÙÔ 0 0# 0*H&H&èè °°% # 0 ÔÃ ÃHelpIndexÄ ÄÁ`Ø%5 ÁHelpIndex Topic$, FileSpec$
Ú)¡ #Ð p°° È È P P Ø d d ÄE $ hh ÿÿ Displays a help index (menu) or a specific help screen.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁTopic$Â øøø ÂA specific topic to look up (as might be desired
with context©sensitive help). If blank an index
is presented in a scrollable menu. Once the user
selects a topic, the help text is displayed using
the Inform% function.Æ@ øÆ
ÁXX ÁFileSpec$Â øøø ÂThe specification for the help file. If blank,
"*.HLP" is used. FileSpec$ may contain a drive,
path, and/or file name (wildcards okay).Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁNothing.
à ÃÃÃNotesÄ ÄÄÄ
The help file is an ASCII text file which is arranged like this:
Topic #1+chr$(4)+Help information
more information at least one space from left
more help etc. etc.
Topic #2+chr$(4)+Help info...
Help files may contain up to 100 topics. The total length of the
help text for a single entry is limited to 99 lines with a maximum
of 50 characters per line (roughly 4k of text). Topics MUST begin
in column one, additional text MUST begin AFTER column 1 (i.e.,
indent the help text at least one space).
The topic may begin with a chr$(1) through chr$(3) to indicate an
outline level. For example, you might have FILE then
chr$(1)+Open.)ÚÔ$ °°%%È °°%% ¡°%$ Ô
Ù - ÙÔ 0 ° $ 0*H&H&èè °°% ¡$ 0 ÔÃ ÃInform%Ä ÄÁ`Ø % Áok% = Inform%(iRow%, iCol%, iWid%, iType%, ms%, snd%, Msg$)
ÚÁ #Ð x"°° È È P P ! d d ÄE % Èh ÿÿ Displays a scrollable information window containing up to 99 lines
of information. Msg$ may be any length. The routine will break
the message into lines of iWid% length or less. If the box is
positioned too low on the screen, it will be adjusted upwards.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁiRow%Â øøø ÂTop row of windowÆ@ øÆ
ÁXX ÁiCol%Â øøø ÂLeft column of windowÆ@ øÆ
ÁXX ÁiWid%Áøø ÁWindow width (in characters)
ÁXX ÁiType%Â øøø ÂDetermines buttons (see below)Æ@ øÆ
ÁXX ÁÁøø Á0="Message" (no buttons)
ÁXX ÁÁøø Á1="Note" (Ok button)
ÁXX ÁÁøø Á2="Caution" (Ok/Cancel)
ÁXX ÁÁøø Á3="Warning" (blinking) (Continue/Stop)
ÁXX ÁÁøø Á4="Attention" (blinking) (Yes/No)
ÁXX Áms%Â øøø ÂMouse supportÆ@ øÆ
ÁXX ÁÁøø Á0 = No mouse
ÁXX ÁÁøø Á1 = Mouse available
ÁXX ÁÂ øøø Â99 = Reset mouse & use it, if availableÆ@ øÆ
ÁXX Ásnd%Â øøø ÂSound: 0=None 1=Squeak 2=Tick 3=BeepÆ@ øÆ
ÁXX ÁMsg$Â øøø ÂMessage to display in the window. Will be
truncated at 99 lines, if necessary.Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁTRUE if user presses ENTER to exit
ÁXX ÁFALSE if user presses ESC to exit
à ÃÃÃNotesÄ ÄÄÄ
All message types except zero restore the screen on exit. Use
iType%=0 when you want to put information on the screen and leave
it there, such as instructions on how to enter data.
The mouse should be turned OFF before calling Inform%
ÃÃÃ ÃCustom TitlesÄÄÄ Ä
A custom title can replace the default. Just place a title plus
chr$(254) at the start of your message (changed from chr$(4) to
allow the code to be imbedded without the use of the CHR$ functionÚÔ$ °°%%È °°%%(# Á°%$ Ô
Ù ÙÔ 0 ¸$% 0*H&H&èè °°%'' Á% 0 ÔÃ ÃInformFillÄ ÄÁ`
% ÁInformFill Row%, Col%, BegLine%, WinSize%, MLines$()
Ú§ á #Ð ¨°° È È P P È d d ÄE & hh ÿÿ Used by Inform% ©© fills the window with text.§ ÚÔ$ °°%%È °°%%X á°%$ Ô
Ù + Ù
à ÃInputDateÄ ÄÁ`0 % ÁInputDate Mo%, Dy%, Yr%, DtStr$, Row%, Col%, ExitCode%
Ú #Ð X °` È È P P Øx d d ÄE & hh ÿÿ Accepts a valid date. Unlike GetDate, InputDate only supports the
DD/MM/YYYY format and does not check for a mouse button or the Alt
key being pressed. However, the input is formatted whereas
GetDate has all the numbers run together.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁMo%Â øøø ÂMonth number (1©12)Æ@ øÆ
ÁXX ÁÂ øøø ÂZero for current monthÆ@ øÆ
ÁXX ÁÁøø Á©1 to skip month
ÁXX ÁDy%Â øøø ÂDay number (1©31)Æ@ øÆ
ÁXX ÁÁøø ÁZero for current day
ÁXX ÁÁøø Á©1 to skip day
ÁXX ÁYr%Áøø ÁYear number (4 digits)
ÁXX ÁÁøø ÁZero for current year
ÁXX ÁÁøø Á©1 to skip year
ÁXX Ár%/c%Áøø ÁScreen row & column at which to display/get date
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁDtStr$Áøø ÁDate string formatted MM/DD/YYYY.
ÁXX ÁExitCode%Â øøø ÂSet to the key used to exit.Æ@ øÆ
à ÃÃÃExample 1Ä ÄÄÄ
ÁXX ÁM%=0: D%=0: Y%=0: row%=10: col%=20
 XXX ÂInputDate M%, D%, Y%, DtStr$, row%, col%, ExitCode%Æ@ XÆ
 XXX ÂThis will get the date at location {10,20} using the system
date as default. Because InputDate is a BASIC subroutine, it
is not necessary to initialize DtStr$ before using it.Æ@ XÆ
à ÃÃÃExample 2Ä ÄÄÄ
ÁXX ÁM%=5: D%=©1: Y%=0: row%=10: col%=20
 XXX ÂInputDate M%, D%, Y%, DtStr$, row%, col%, ExitCode%Æ@ XÆ
 XXX ÂThis will get a month and year at location {10,20} using May
and the system clock's year as default.ÚÔ$ °°%%x°°%% °%$ ÔÔ @ %& 0*H&H&èè! °°%W á& °` %·( & @ ÔÙ
ÙÃ ÃIsColour%Ä ÄÁ`ð %B Áx% = IsColour%
Ú! #Ð X°° È È P P Øx d d ÄE ' hh ÿÿ Get adapter card type.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁNothing
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁTrue (-1) if colour adapter card, otherwise False (0).ÚÔ$ °°%%È °°%% !°%$ Ô
Ù % Ù
à ÃIsPath%Ä ÄÁ`%. Ástat% = IsPath%(Pathname$, InOut%)
ÚÏA #Ð ¨° È È P P ØÈ d d ÄE ' hh ÿÿ Checks validity & extends path. If directory is being accessed
for output and does not exist, user is prompted to create it.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁTheName$Â øøø ÂPath name in the format [d:][\path\]Æ@ øÆ
 XXX  øø ÂIf the drive or full path are missing the current
drive/path are insertedÆ@ øÆ
ÁXX ÁInOut%Â øøø Â1=Input/0=OutputÆ@ øÆ
ÁXX ÁÂ øøø ÂIf directory does not exist and InOut%=0 then
user will be prompted to create the directoryÆ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX Á0 = Path not found/not created (suitable for ÃÃOÄÄutput)
ÁXX Á1 = Path exists (suitable for ÃÃIÄÄnput)
ÁXX Á©1 = Bad path specification, or ÁXX% Á©2 = Other error
ÁXX ÁTheName$Â øøø ÂContains the fully extended path name including
the drive letter unless user hit Esc when asked
permission to create the directory.Æ@ øÆ
à ÃÃÃExampleÄ ÄÄÄ
Assume the current path is C:\ugh\ and no directories under it.
ÁXX ÁPath$ = "test": InOut% = 0
ÁXX Ástat% = IsPath%(Path$, InOut%)
ÁXX Áselect case stat%
ÁXX Á case 0 'Path not found & not created (user hit Esc)
ÁXX Á case 1 'Path found, everything okay
ÁXX Á case is < 0 'Bad path specification or DOS error
Inform user that C:\ugh\test\ does not exist & ask to create. If
"No" stat%=0 & Path$="test", else stat%=1 & Path$="C:\ugh\test\"ÏÚÔ$ °°%%(
°°%%X A°%$ ÔÔ @ %' 0*H&H&èè! °°% !' °%·( A' @ ÔÙ ÙÃ ÃMax%Ä ÄÁ`¸%9 ÁHighest% = Max%(A%, B%)
Ú a #Ð ¨°° È È P P ÐÈ d d ÄE ( hh ÿÿ Returns the larger of the two integers ÚÔ$ °°%%È °°%%X a°%$ Ô
Ù Ù
à ÃMaxL&Ä ÄÁ`@%8 ÁHighest& = MaxL&(A&, B&)
Ú¡ #Ð ¨°` È È P P ÀÈ d d ÄE ( hh ÿÿ Returns the larger of two long integers.¡ ÚÔ$ °°%%x°°%%X °%$ Ô
Ù Ù
à ÃMaxS!Ä ÄÁ`@%8 ÁHighest! = MaxS!(A!, B!)
Ú» ¡ #Ð ¨° È È P P ð È d d ÄE ( hh ÿÿ Returns the larger of two single©precision floating point numbers.» ÚÔ$ °°%%(
°°%%X ¡°%$ Ô
Ù Ù
à ÃMin%Ä ÄÁ`0%: ÁLowest% = Min%(A%, B%)
Ú Á #Ð ¨°À È È P P àÈ d d ÄE ( hh ÿÿ Returns the smaller of two integers. ÚÔ$ °°%%Ø°°%%X Á°%$ Ô
Ù Ù
à ÃMinL&Ä ÄÁ`¸%9 ÁLowest& = MinL&(A&, B&)
Ú¢ á #Ð ¨°p È È P P 8È d d ÄE ( hh ÿÿ Returns the smaller of two long integers.¢ ÚÔ$ °°%%°°%%X á°%$ Ô
Ù Ù
à ÃMinS!Ä ÄÁ`¸%9 ÁLowest! = MinS!(A!, B!)
Ú #Ð ¨° È È P P `È d d ÄE ( hh ÿÿ Returns the smaller of two single precision numbers. ÚÔ$ °°%%8°°%%X °%$ Ô
Ù ÙÔ X( 0*H&H&èèa °°%W a( °` % ( °%· ¡( °À%g Á( °p% á( ° %Ç ( ÔÃ ÃMonthDays%Ä ÄÁ``%4 ÁNoDays% = MonthDays%(M%, Y%)
Ú! #Ð x °° È È P P Ø d d ÄE ) hh ÿÿ ÿÿ Returns the number of days in month M% of year Y%.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁM%Áøø ÁMonth (1©12)
ÁXX ÁY%Áøø ÁYear (2 or 4 digits)
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁNumber of days in the specified month
à ÃÃÃExampleÄ ÄÄÄ
ÁXX ÁMonthDays%(2,1992) returns 29ÚÔ$ °°%%È °°%%(
!°%$ Ô
Ù Ù
à ÃOutDev$Ä ÄÁ`Ø%5 ÁPDev$ = OutDev$(Port%, ms%)
ÚA #Ð Ð °0 È È P P Øð
d d ÄE ) hh ÿÿ Presents a menu of output devices: Screen, Printer, and Disk File.
If Disk File is selected the user is prompted for a file name
(using GetFileName$). If Printer is selected the routine checks
if the printer is on©line (that's partly why Port% is needed) and
returns the device name as "LPT1:", "LPT2:", or "LPT3:" (that's
also why Port% is needed).
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁPort%Â øøø ÂPort number of printer (1, 2, or 3)Æ@ øÆ
ÁXX Áms%Áøø ÁMouse support: 0=no, non©zero=yes
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁDevice or file nameÚÔ$ °°%%H
°°%% A°%$ Ô
Ù Ù
à ÃOutDevs$Ä ÄÁ``%4 ÁPDev$ = OutDevs$(Port%, ms%)
Úa #Ð ° È È P P Ø d d ÄE ) hh ÿÿ Same as OutDev$ function, but for use with ChooseFiles$,
FileRestore2%, GetFileNames$, and SelectSoftFonts% routines.
See OutDev$ function for details.ÚÔ$ °°%% °°%%° a°%$ Ô
Ù ÙÔ P !) 0*H&H&èè1 °°%' !) °0%ÿ A) ° %$ a) P ÔÙ ÙÃ ÃParseFSpecÄ ÄÁ`x%! ÁParseFSpec TheName$, Drv$, Pathname$, TheName2$
Ú§ #Ð °° È È P P ØÀ d d ÄE * hh ÿÿ Searches file name for the drive, path, and NAME.EXT components.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁTheName$Â øøø ÂFull file name to parseÆ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁDrv$Â øøø ÂDrive letter followed by a colon (if present)Æ@ øÆ
ÁXX ÁPathname$Â øøø ÂPath name, beginning and ending with a foreslash
(\), if presentÆ@ øÆ
ÁXX ÁTheName2$Â øøø ÂFILENAME.EXT, if presentÆ@ øÆ
à ÃÃÃNotesÄ ÄÄÄ
Converts the regular slash (/) to a foreslash (\), in case user
enters the wrong one.
If an invalid file name is entered (for example, more than eight
characters in the name or more than three characters in the
extension) then TheName2$ is returned as a blank string.
The original file name, TheName$, is not changed so that if there
is an error it can be given to the user for editing again.§ÚÔ$ °°%%È °°%%P °%$ Ô
Ù ÙÔ 0 à* 0*H&H&èè °°%O * 0 ÔÃ ÃPctDoneÄ ÄÁ`@%8 ÁPctDone Percent%, title$
Ú¡ #Ð À°° È È P P Øà d d ÄE + Èh ÿÿ Displays a graph of percentage completion in a small box on the
screen. If the process takes longer than 20 seconds a count©down
timer will appear below the graph.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁPercent%Â øøø ÂPercentage to draw on the graph. The first time
PctDone is called a small window is drawn. When
Percent% is 100 the window is erased.Æ@ øÆ
ÁXX Átitle$Â øøø ÂA short title (10 chars max) to display over the
progress bar.Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁNothing
à ÃÃÃNotesÄ ÄÄÄ
à ÃYou must call PctDone with 100 to clear itÄ Ä or the next time you
call it it will think the window is still on the screen...
à ÃÃÃExampleÄ ÄÄÄ
ÁXX ÁFor Sort%=0 to Y%
ÁXX Á if 100 * Sort% \ Y% < 100 then
ÁXX Á PctDone(100 * Sort% \ Y%,"Sorting")
ÁXX Á endif
ÁXX Á do something...
ÁXX Á next Sort%
ÁXX ÁPctDone 100,"" 'Close the window/reset the routineÚÔ$ °°%%È °°%%p ¡°%$ Ô
Ù Ù
à ÃPrintRptMsgÄ ÄÁ` %@ ÁPrintRptMsg Msg$
ÚHÁ #Ð °x È È P P Ø° d d ÄE + hh ÿÿ Displays a window saying "Printing "+Rpt$+" Press Esc to cancel."
I use this on every report so I made it into a routine.
à ÃÃÃExampleÄ ÄÄÄ
ÁXX ÁRpt$ = "Stock Status Report"
ÁXX ÁPrintRptMsg Rpt$HÚÔ$ °°%%°°%%@ Á°%$ Ô
Ù ÙÔ @ !+ 0*H&H&èè! °°%o ¡+ °x %$ Á+ @ ÔÃ ÃPtrReady%Ä ÄÁ`0%: Áok% = PtrReady%(Port%)
Ú¦á #Ð x °° È È P P ° d d ÄE , Èh ÿÿ Checks if printer on LPT[Port%] is on©line.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁPort%Áøø ÁPrinter port (1, 2, or 3)
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁTRUE if ready, FALSE if not
à ÃÃÃNotesÄ ÄÄÄ
 XXX ÂIt doesn't matter whether or not you have opened a channel to
the printer before calling this routine.¦ÚÔ$ °°%%È °°%%(
á°%$ Ô
Ù Ù
à ÃQSortÄ ÄÁ`è% ÁQSort Wrk%(), Arr1$(), Arr2$(), NoDims%, NoItems%, SortField%
Ú? #Ð È°0 È È P P Øè d d ÄE , hh ÿÿ A good public domain sorting method. Used by ChooseFile$ to sort
the file list.
See the source code in QSORT.SUB. This is not my code ©© I'm not
selling it, I just use it and pass it on to you...?ÚÔ$ °°%%H
°°%%x °%$ Ô
Ù Ù
à ÃRepl$Ä ÄÁ`%/ Ácmd$ = Repl$(St$, Target$, Item$)
Ú! #Ð ° È È P P ظ d d ÄE , Èh ÿÿ Replaces occurence of Target$ in St$ with Item$. Good for laser
printer codes.
à ÃÃÃPassÄÄÄ Ä
ÁXX ÁSt$Áøø ÁComplete string
ÁXX ÁTarget$Áøø ÁThe part of St$ to be replaced
ÁXX ÁItem$Áøø ÁThe replacement for Target$
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁThe modified string with trailing spaces & nulls truncated.
à ÃÃÃExampleÄ ÄÄÄ
ÁXX ÁRepl$("&a#V ","#","500") will return "&a500V"ÚÔ$ °°%%°°%%H
!°%$ Ô
Ù ÙÔ P (#, 0*H&H&èè1 °°%' á, °0%÷ , ° %% !, P ÔÃ ÃSayOkÄ ÄÁ`¨%; ÁSayOk Row%, Col%, ms%
ÚA #Ð ð°° È È P P Ø d d ÄE - hh ÿÿ Puts an "Ok" button centred at position {Row%, Col%} and an "Enter
/ Continue" message at the bottom of the screen, flushes keyboard
buffer, then waits for mouse or keyboard to exit.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁRow%Â øøø ÂRow on which to place buttonÆ@ øÆ
ÁXX ÁCol%Áøø ÁMiddle of button
ÁXX Áms%Â øøø ÂUse mouse support? (True/False)Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁNothing
à ÃÃÃNotesÄ ÄÄÄ
ÁXX ÁScans screen at {Row%©1, Col%} and inverts the colours found
there À"À the idea being to make the button stand out from the lines
above it.
ÁXX ÁIf ms% is non©zero (True) then the mouse must be initialized
but invisible.ÚÔ$ °°%%È °°%% A°%$ Ô
Ù Ù
à ÃSearchPath$Ä ÄÁ`Ø%5 Áa$ = SearchPath$(FileName$)
ÚTa #Ð `
°¨ È È P P Ø d d ÄE - hh ÿÿ Searches the DOS PATH environment variable for a file.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁFileName$ øøø ÂName of file for which to search (file name à ÃonlyÄ Ä;
no drive or path)Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁIf file is found, DOS path with trailing foreslash (\)
ÁXX ÁIf file is à ÃnotÄ Ä found, returns blank string ("")
ÃÃÃ ÃExampleÄ ÄÄÄ
ÁXX ÁAssuming you have C:\ in your search path...
ÁXX ÁA$ = SearchPath$("Config.sys")
ÁXX Áwill set A$ = "C:\"TÚÔ$ °°%%À°°%% a°%$ Ô
Ù ) ÙÔ @ !- 0*H&H&èè! °°% A- °¨%$ a- @ ÔÃ ÃSelectFont%Ä ÄÁ`¸ % Áok% = SelectFont%(m$,path$,PtrNo%,Pts%,Ext$,SFdir$,ms%)
Ú #Ð È °° È È P P Øè d d ÄE . hh ÿÿ Displays a scrollable list of soft fonts in a window and waits for
user to select one or press Esc. List will show DOS file name,
font name (if present in header) and point size (if present in
header).
à ÃÃÃPassÄ ÄÄÄ
ÁXX Ám$Â øøø ÂPurpose of font, displayed at top of window
(e.g., "Printing", "Reports", "Titles", etc.)Æ@ øÆ
ÁXX Ápath$Â øøø ÂFile specification for PRINTER.DAT file. path$
may contain a drive, path, and/or file name. If
no file name is given, PRINTER.DAT is used. If
no drive & path are given, the current drive &
path are used.Æ@ øÆ
ÁXX ÁPtrNo%Áøø ÁThe printer's record number in PRINTER.DAT
ÁXX ÁExt$Â øøø ÂSoft font file extension (e.g., "SFP" for
portrait fonts, "SFL" for landscape fonts)Æ@ øÆ
ÁXX ÁSFdir$Áøø ÁDefault soft font directory (e.g., "C:\Fonts")
ÁXX Áms%Áøø ÁMouse support: 0=no mouse, 1=use mouse
à ÃÃÃReturnsÄÄÄ Ä
 XXX ÂFunction returns font's record number in PRINTER.DAT or zero
if user presses EscÆ@ XÆ
ÁXX Ám$Â øøø ÂChanged to soft font file name (including path)
if soft font selectedÆ@ øÆ
ÁXX ÁPts%Áøø ÁChanged to point size if scalable font
ÁXX ÁSFdir$Áøø ÁSoft font directory with any user modifications
à ÃÃÃNotesÄ ÄÄÄ
ÁXX ÁMouse must be initialized but turned OFFÚÔ$ °°%%È °°%%x °%$ Ô
Ù Ù
à ÃSelectFonts%Ä ÄÁ`@ % Áok% = SelectFonts%(m$,path$,PtrNo%,Pts%,Ext$,SFdir$,ms%)
ÚÖ ¡ #Ð p°% È È P P Ø d d ÄE . hh ÿÿ Same as SelectFont%() function except that it uses ChooseFileS$()
(instead of ChooseFile$()).Ö ÚÔ$ °°%%!°°%% ¡°%$ Ô
Ù ÙÔ @ %. 0*H&H&èè! °°%w" . °%%ï' ¡. @ ÔÃ ÃSelectFontSize%Ä ÄÁ`Ð%& ÁPts% = SelectFontSize%(Font$, IsPts%, ms%)
ÚÁ #Ð H°° È È P P Øh d d ÄE / hh ÿÿ This routine gets the user's choice for font size in a window.
This routine is called whenever a scalable font is selected in
SelectFont% (I don't ever use this routine directly).
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁFont$Â øøø ÂThe font name (for displaying on the screen).
For example, CG Times.Æ@ øÆ
ÁXX ÁIsPts%Â øøø ÂLogical flag to indicate whether point size is
needed (versus character pitch). If true
"points" is displayed; otherwise (if zero)
"character pitch" is displayed on screen.Æ@ øÆ
ÁXX Áms%Â øøø ÂMouse flag: 0=no mouse, 1=use mouseÆ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
 XXX ÂFont size (integer) or zero if user presses Esc.Æ@ XÆ
à ÃÃÃNotesÄ ÄÄÄ
ÁXX ÁThis routine is called by SelectFont%. Mouse must be
initialized but turned OFF (invisible cursor).ÚÔ$ °°%%È °°%%ø Á°%$ Ô
Ù Ù
à ÃSelectSoftFont$Ä ÄÁ`H%' ÁFont$ = SelectSoftFont$(Path$, Ext$, ms%)
ÚÌá #Ð ¸° È È P P ØØ d d ÄE / hh ÿÿ This routine presents a scrollable list of soft fonts in a window.
It is called by SelectFont% if the user selects a soft font (as
opposed to a font built into the printer).
à ÃÃÃPassÄÄÄ Ä
ÁXX ÁPath$Â øøø ÂPath to soft fontsÆ@ øÆ
ÁXX ÁExt$Â øøø ÂExtension to be included in the list (e.g., "SFP"
for portrait fonts)Æ@ øÆ
ÁXX Áms%Áøø ÁMouse support (0=no, 1=yes)
à ÃÃÃReturnsÄ ÄÄÄ
 XXX ÂName of chosen font, including drive & path, if necessary.Æ@ XÆ
ÁXX ÁPath$Áøø ÁPath as modified by user
à ÃÃÃNotesÄ ÄÄÄ
ÁXX ÁUses ChooseFile$() functionÌÚÔ$ °°%%°°%%h á°%$ ÔÔ @ %/ 0*H&H&èè! °°%÷ Á/ ° %·( á/ @ ÔÙ ÙÃ ÃSelectSoftFonts$Ä ÄÁ`Ð%& ÁFont$ = SelectSoftFonts$(Path$, Ext$, ms%)
ÚÔ #Ð p°° È È P P Ø d d ÄE 0 hh ÿÿ Same as SelectSoftFont$() except this routine uses ChooseFileS$()
instead of ChooseFile$().Ô ÚÔ$ °°%%È °°%% °%$ Ô
Ù Ù
à ÃStrFmt$Ä ÄÁ`%- Áph$ = StrFmt$(Mask$, St$, reverse%)
Ú·! #Ð °(
È È P P ØÀ d d ÄE 0 hh ÿÿ Formats a string according to a given mask. I use this to format
phone numbers, zip codes, etc.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁMask$Â øøø ÂMask: "#" is a digit or a space; "9" is a digit
or a zero; "*" is a digit or an asterisk;
everything else is treated as a literalÆ@ øÆ
ÁXX ÁSt$Â øøø ÂString to formatÆ@ øÆ
ÁXX Áreverse%Â øøø ÂFlag: if TRUE formatting is done from right to
left; if FALSE (0) formatting is done from left
to right. TRUE is the most common setting.Æ@ øÆ
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁFormatted string
à ÃÃÃExamplesÄ ÄÄÄ
 XXX Âa$ = StrFmt$("8052662574","(###) ###©####",©1)Æ@ XÆ
ÁXX Áreturns a$ = "(805) 266-2574"
ÁXX Áa$ = StrFmt$("2726893","(###) ###©####",©1)
ÁXX Áreturns a$ = "( ) 272©6893"
ÁXX Áa$ = StrFmt$("$*****","15",©1)
ÁXX Áreturns a$ = "$***15"·ÚÔ$ °°%%@°°%%P !°%$ Ô
Ù Ù
à ÃStripSymbols$Ä ÄÁ`P%6 Ánew$ = StripSymbols$(Old$)
Ú¤A #Ð °Ð È È P P Ø@ d d ÄE 0 hh ÿÿ This strips any symbols from a string of numbers. I use it to
strip the parenthesis, etc. from phone numbers, etc. Returns the
string St$ stripped of its parenthesis, dashes, and commas.
à ÃÃÃExampleÄ ÄÄÄ
 XXX Âa$ = StripSymbols$("(805) 272©4923")Æ@ XÆ
ÁXX Áreturns a$ = "8052724923"¤ÚÔ$ °°%%è °°%%Ð A°%$ Ô
Ù ÙÔ P %0 0*H&H&èè1 °°% 0 °(
%Ç !0 °Ð %ï' A0 P ÔÃ ÃTrim$Ä ÄÁ`ð %B Áb$ = Trim$(a$)
ÚHa #Ð °° È È P P Ø d d ÄE 1 hh ÿÿ Trims leading & trailing spaces and trailing chr$(0)'s from a
string (using LTRIM$/RTRIM$ will remove spaces but not nulls). I
use this to test the length of static strings, which are padded
with CHR$(0)'s.HÚÔ$ °°%%È °°%%° a°%$ Ô
Ù Ù
à ÃZipFmt$Ä ÄÁ``%4 Áa$ = ZipFmt$(TheZip$, Intl%)
Ú[ #Ð `
°¸ È È P P Ø d d ÄE 1 hh ÿÿ Formats a zip code according to Intl% flag.
à ÃÃÃPassÄ ÄÄÄ
ÁXX ÁTheZip$Â øøø ÂUnformatted Zip/Postal codeÆ@ øÆ
ÁXX ÁIntl%Â øøø ÂÁøø Á1 = USAÆ@ øÆ
ÁXX ÁÁøø Á2 = Canada
ÁXX ÁÁøø Á3 = USA plus Canada
ÁXX ÁÁøø Á4 = Canada plus USA
ÁXX ÁÁøø Á5 = All others (no formatting)
à ÃÃÃReturnsÄ ÄÄÄ
ÁXX ÁFormatted zip
ÁXX ÁÁøø ÁUSA ©© #####©####
ÁXX ÁÁøø ÁCanada ©© A#A #A#
ÁXX ÁÁøø ÁOther ©© No formatting[ÚÔ$ °°%%а°%% °%$ Ô
Ù Ù
à ÃzTrim$Ä ÄÁ`x %A Áb$ = zTrim$(a$)
ÚM¡ #Ð ° È È P P Ø d d ÄE 1 hh ÿÿ This routine à ÃonlyÄ Ä trims trailing nulls [chr$(0)] from the string.
Good for trimming fixed©length file fields which are padded with
nulls when you don't want to remove any spaces [chr$(32)] from the
string.MÚÔ$ °°%%8°°%%° ¡°%$ ÔÔ P è 1 0*H&H&èè1 °°%¯ a1 °¸ % 1 ° % ¡1 P Ô Ã Ã× ×Ø XII. ØÁ ÁUSING PRINTER FUNCTIONSÄ Ä× ×
Á ÁIn order to use the printer functions, you will need to include
the data structures definition file PtrRec.DEF in your source code.
Place the line à Ã'$INCLUDE: 'PtrRec.DEF'Ä Ä near the beginning of your
code.
Á ÁNext, you will need to dimension the variables to hold the
records. I use both local and the global (common) variables; either
will work fine unless your programme is strapped for memory one way or
the other. For local variables use DIM; to make the variables global
use DIM SHARED. The record types are:
Á ÁLaserPtrRec ÀÀ Control codes which are not font©specific
Á ÁLaserFontRec ÀÀ Font©specific control codes
Á ÁDMPtrRec ÀÀ Dot matrix codes which are not font©specific
Á ÁDMFontRec ÀÀ Font©specific dot matrix control codes
Á ÁThe records are all the same length so that the single file,
PRINTER.DAT, can contain all four record types. Laser printer records
start with a greater©than (>) sign (for example, ">Panasonic KXªP4450"). Dot matrix printer records start with a dot (for example,
".NEC P5300"). Both record types (dot matrix and laser) begin with a
Model field, so you can use a LaserPtrRec variable to read a dot
matrix record, then, if the Model begins with a period, re©read the
record as a DMPtrRec variable.
ÐÐ Ü| ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °
È
¸ ¨ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ °Ð Ð
Á ÁHere are the steps your programme will need to take to set
everything up:
Á Á1. Q ÂUse the ChoosePtr% function to get and save the user's
choice for a printerÆ% Æ
Á Á2. Q ÂUse SelectFont% to get the user's font choice(s).Æ% Æ
Á Á3. Q ÂSave printer & font choices in a configuration file.Æ% Æ
Á Á4. Q ÂEither at programme start©up or before printing read the
printer control codes into memory. For example:Æ% Æ
Á ÁÁ ÁÁ ÁDIM SHARED Lz as LaserPtrRec
Á ÁÁ ÁÁ ÁDIM SHARED DM as DMPtrRec
Á ÁÁ ÁÁ ÁPtrFile% = FREEFILE
Á ÁÁ ÁÁ ÁÂ P
ÂÁ ÁOPEN HomePath$ + "Printer.DAT" FOR RANDOM ACCESS READ SHARED
ÁÈ
È
ÁAS PtrFile% LEN = LEN(Lz)Æ%
Æ
Á ÁÁ ÁÁ ÁGET #PtrFile%, PtrRec%, Lz
Á ÁÁ ÁÁ ÁIF LEFT$(Lz.Model, 1) = "." THEN
Á ÁÁ ÁÁ ÁÁ
ÁGET #PtrFile%, PtrRec%, DM
Á ÁÁ ÁÁ ÁÁ
ÁEND IF
Á Á5. Q ÂAt programme start©up or before printing read the printer
font codes into memory (like the example below)Æ% Æ
Ô %2 0*H&H&èè ÔDIM LF as LaserFontRec
DIM DF as DMFontRec
 X ÂÁ°°
Á' Normally you would already have PtrFile% open from theÆ%Æ
' above routine (to read the printer codes). If not, you
' would need to open the file as in the above routine.
m$ = "Reports": Ext$ = "SFP"Á`¨%; Á'Portrait fonts (SFP)
FontRec%=SelectFont%(m$, PtrRec%, Pts%, Ext$, SFdir$, ms%)
SELECT CASE FontRec%Á`h %C Á'Check result
Á ÁCASE 0Á` %< Á'User hit Escape key
Á ÁÁ ÁEXIT SUB
Á ÁCASE -1Á`¨%; Á'User chose soft font
Á ÁÁ ÁPRINT #PrintFile%, zTrim$(Lz.Init);Á`à %D Á'Reset laser
Á ÁÁ ÁDone% = FontDL(SFont$, FPts%, PtrPort%, 400)Á`ð %B Á'Download font
Á ÁÁ ÁIF NOT Done% THENÁ`
% Á'User aborted download; flag routine as 'cancelled'
Á ÁÁ ÁÁ ÁEXIT FUNCTION or SUB
Á ÁÁ ÁÁ ÁEND IF
Á ÁÁ ÁIF FPts% > 0 THENÁ` %= Á'FontDL got a size?
Á ÁÁ ÁÁ ÁÁ
ÁFcpi% = 120 \ FPts%Á`%. Á'Cvt points to rough CPI for calcs
Á ÁÁ ÁÁ ÁELSEÁ` %< Á'No size in font hdr
Á ÁÁ ÁÁ ÁÁ
ÁFcpi% = 10Á``%4 Á'Assume 12pt/10cpi for calcs
Á ÁÁ ÁÁ ÁEND IF
Á ÁÁ ÁPRINT #PrintFile%, CHR$(27); ")400X";Á` %= Á'Secondary, ID #400
Á ÁCASE ELSE
Á ÁÁ ÁIF Ptr$ = "D" THENÁ` %= Á'DOT MATRIX PRINTER
Á ÁÁ ÁÁ ÁÁ
ÁGET #PtrFile%, FontRec%, DF
Á ÁÁ ÁÁ ÁÁ
ÁPRINT #PrintFile%, zTrim$(DM.Init);Á`°"%J Á'Reset
Á ÁÁ ÁÁ ÁÁ
ÁPRINT #PrintFile%, zTrim$(DF.Select);Á`à %D Á'Select font
Á ÁÁ ÁÁ ÁÁ
ÁT$=Trim$(DM.HTab) + CHR$(2 * Fcpi) + CHR$(0)Á`h %C Á'Set tab @ 2"
Á ÁÁ ÁÁ ÁELSEÁ`ð %B Á'LASER PRINTER
Á ÁÁ ÁÁ ÁÁ
ÁGET #PtrFile%, FontRec%, LF
Á ÁÁ ÁÁ ÁÁ
ÁPRINT #PrintFile%, zTrim$(LF.SymSet2);Á`x %A Á'Make secondary
Á ÁÁ ÁÁ ÁÁ
ÁPRINT #PrintFile%, zTrim$(LF.Select2);Á` %@ Á'Use SymSet1 etc
Á ÁÁ ÁÁ ÁÁ
ÁPRINT #PrintFile%, zTrim$(LF.Spacing);Á` %@ Á'to make Primary
Á ÁÁ ÁÁ ÁÁ
ÁIF VAL(LF.Pitch) = 0 THENÁ`x %A Á'Scalable font?
Á ÁÁ ÁÁ ÁÁ
ÁÁÈ
È
ÁPRINT #PrintFile%,LTRIM$(STR$(Pts%));Á`X %E Á'Point size
Á ÁÁ ÁÁ ÁÁ
ÁÁÈ
È
ÁEND IFÁ` %= Á'(from SelectFont%)
Á ÁÁ ÁÁ ÁÁ
ÁPRINT #PrintFile%, zTrim$(LF.Pitch);Á` %? Á'Pitch select cmd
Á ÁÁ ÁÁ ÁÁ
ÁPRINT #PrintFile%, zTrim$(LF.Slant);Á`x %A Á'Upright/italic
Á ÁÁ ÁÁ ÁÁ
ÁPRINT #PrintFile%, zTrim$(LF.Weight);Á`x %A Á'Light/Med/Bold
Á ÁÁ ÁÁ ÁÁ
ÁPRINT #PrintFile%, zTrim$(LF.Number);Á` %@ Á'PCL font number
Á ÁÁ ÁÁ ÁÁ
ÁIF RIGHT$(zTrim$(LF.Pitch), 1) = "h" THENÁ`h %C Á'Mono©spaced?
Á ÁÁ ÁÁ ÁÁ
ÁÁÈ
È
ÁÁ¸ ¸ ÁFcpi% = VAL(LF.Pitch)Á`Ð %F Á'Store cpi
Á ÁÁ ÁÁ ÁÁ
ÁÁÈ
È
ÁÁ¸ ¸ ÁFPts% = 120 \ temp1%Á``%4 Á'Cvt cpi to rough pts if nec
Á ÁÁ ÁÁ ÁÁ
ÁÁÈ
È
ÁELSE
Á ÁÁ ÁÁ ÁÁ
ÁÁÈ
È
ÁÁ¸ ¸ ÁFPts% = VAL(LF.Pitch)Á`h %C Á'Store points
Á ÁÁ ÁÁ ÁÁ
ÁÁÈ
È
ÁÁ¸ ¸ ÁFcpi% = 120 \ TPts%Á``%4 Á'Cvt pts to rough cpi if nec
Á ÁÁ ÁÁ ÁÁ
ÁÁÈ
È
ÁEND IF
Á ÁÁ ÁÁ ÁEND IFÔ %3 0*H&H&èè ÔÁ ÁEND SELECT
CLOSE #PtrFile%
Á ÁNow you have the printer ready to go and you have the variables
Fcpi% and Fpts% to work with in calculating TAB locations, line
length, etc.
Á ÁYou will notice that I use zTrim$() rather than just printing a
variable. This is because BASIC pads TYPE fields with nulls ÀÀ
CHR$(0)'s. The zTrim$() function removes CHR$(0)'s but leaves
trailing spaces (which may be part of the command string).
Á ÁThere are some things that you must know, such as that the pitch
command for a PCL (laser) printer ends in "h" if it is mono©spaced
(cpi) and "v" if it is proportionally©spaced (points). Also, in
setting a TAB string in the above example I used the Epson©standard
which terminates the setting of TABs with a CHR$(0). This is the best
solution I have come up with, and every printer I've seen in the past
five years uses Epson codes anyhow, so I figure this technique will
work 90% of the time or better.
Á ÁYou can make your own PRINTER.DAT file or modify the one supplied
just by using the PtrRec.DEF file. Someday soon I will make a
programme for modifying the PRINTER.DAT file, but for now it will have
to be done manually. I would really appreciate it if you would share
with me any new printers you install by sending me your modified
PRINTER.DAT file.
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/