home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
ref
/
labels.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
3KB
|
90 lines
Title: LABELS.BA v1.0
The LABELS.BA program is designed to illustrate four structures used in most
programs: 1) sequence, 2) branch, 3) decision, 4) loop.
Besides being a lesson in programming structures, the LABELS.BA program is a
very useful tool. The principles, once learned and practiced, provide the
user with insights into one of the oldest, and finest, uses of computing
resources; the "batch mode." The computer, being a simple machine by design,
is quite adept at doing the same thing over, and over again. Never tiring or
complaining. The batch mode principle is useful in developing keyboard
macros, spreadsheet development and use, file querying, mail merging,
broadcast e-mail, and many other repetitious activities common to computing.
A common label used in computing is the self-stick, 7/8 inch x 3 inch, single-
column, continuous, form-fed labels. You can usually get a box of 5,000 for
under $20 at most swap meets and discount houses. I personally like the Avery
brand labels because they don't tend to separate from their carrier when
making the sharp bend around the platen before entering the print-head area.
Other brands separate from the carrier and end up either stopping the print
head or getting stuck within the path, making it necessary to disassemble and
clean the printer. I'm usually not a happy camper when this happens. That's
why I stick with Avery brand labels.
10 'Remarks are sequences...
20 ' LABELS.BA Richard Hanson v1.0
30 ' A public domain program, designed
40 ' for the CLUB 100 online class
50 ' entitled: Programming in BASIC
60 '
70 ' CLUB 100: 415-939-1246 bbs
80 '
90 'The menu display routine is
100 'another example of a sequence...
110 CLS
120 PRINT:PRINT
130 PRINT"(P)rint labels"
140 PRINT"(Q)uit"
150 '
160 'The selection filter routine is
170 'composed of three decisions and
180 'a branch.
190 '
200 '...three decisions
210 Z$=INKEY$:IFZ$=""THEN210
220 IFZ$="p"ORZ$="P"THEN330
230 IFZ$="q"ORZ$="Q"THENMENU
240 '
250 '...branch
260 GOTO210
270 '
280 'The label printing routine starts
290 'with a short sequence, then goes
300 'into a loop.
310 '
320 '...sequence
330 CLS
340 PRINT:PRINT
350 INPUT"Print how many labels";A
360 CLS
370 PRINT@125,"Total labels to print: "A
380 PRINT@165,"Now printing label No: "
390 '
400 '...loop
410 FORX=1TOA
420 PRINT@188,X
430 LPRINT"name"
440 LPRINT"company"
450 LPRINT"address"
460 LPRINT"city, state zip"
470 LPRINT
480 LPRINT
490 NEXTX
500 '
510 'The program ends in a branch.
520 '
530 '...branch
540 GOTO10
ASSIGNMENT
1) Annotate the keywords list with the command-use ideas presented here.
2) Modify LABELS.BA v1.0 to accodate custom label creation.
3) Make a second version of LABELS.BA, remove the rem lines as appropriate,
and renumber the program starting at 10, step by 10.
<EOF>