Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_28.ADF » F/+hint5
F/+hint5
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_28.ADF |
| Filename: | F/+hint5 |
| Read OK: | ✔ |
| File size: | 15B2 bytes |
| Load address: | 2B206576 |
| Exec address: | 746E6968 |
File contents
The Utility Label program will ask you various questions that you should
answer as below:
Use select file (N,Y)? (type N if this applies to the whole
database or Y is to select file)
Screen or Printer (S,P)? P (RETURN)
Label height (lines)? 6
Lines between each label? 3
Width of label? 25
Characters between each label? 6
Number of labels across the page? 3
Line 1? )
Line 2? ) enter the field name or names from which information
Line 3? ) has to be extracted. Where there is more than one field
Line 4? ) name required this must be separated by commas
Line 5? ) eg Name, Address
Line 6? )
(press RETURN)
26 Using Viewstore convert
1. 'Convert' converts an existing database, or a SELECTED subset into a new
file. To add a space to an existing file use:
Use Select file (N,Y)? N
Field 1? *
:
Filename? (a new name)
Record size: +100
Then use LOAD (new name) (old name) to use the new database, with the old
format file, or rename the (new name) to (old name) (backing up the old file
first!).
2 Printing out some fields or a file is done with the REPORT Utility - see
the manual for details.
3 Furthermore, if you want to pass an alphabetically sorted database to
View it is done by SELECTing the fields you want, sorting on the appropriate
field, then using CONVERT, this time with a select file, to produce a new
database in sorted order, which can be passed to View.
27 This applies to View and Viewstore (PDG)
Although View has only two highlight codes these can be redefined using HT
code in "Edit command" (Shift F8) to make use of other features available on
the printer. The actual values associated with the highlight codes can vary
from 128 to 148.
If you want to access extended characters you use HT 2 130. This is entered
in your View document using Shift F8 (Edit command). However, you should
enter the appropriate codes in response to the printer initialisation
question in the PDG.
For example: In View to change font you would enter *-- (means Highlight
2,1,1). View then sends to the Printer Driver 130 128 128 codes to switch
to the new font.
With Viewstore you would need to put these codes in REPORT FORMAT file 3 1
1. Viewstore sends to the Printer Driver 127 + number (130 128 128).
28 Viewstore import procedure - Viewstore to Viewstore
CHAIN "IMPORT"
Question Input
Source file D.(filename)
Destination file :(drive number).D.(new filename)
Position in file where data starts 0>RETURN<
Record Separator 13 (carriage return in Viewstore)
Appears before first record N
Appears before last record Y
Field Separator 9 (tab character in Viewstore)
Before first character N
After last character N
End of file marker 0
Is data reserved N (it is in database)
Trailing character to skip N
Record size <RETURN>
-----------------------------------------------------------------------------
Printing Labels from a View Macro File
-----------------------------------------------------------------------------
The following BASIC listing can be used to print labels from a View file in
macro format. The program allows the user to select which fields from the
macro shoul be printed, the order in which they are to be printed and the
number of lines between each label.
Before running this program critical points that should be noted are:
1 The printer should be set up and connected to the computer following the
instructions in the relevant user guides.
2 The starting position on the printer should be checked and adjusted on a
short run first to avoid wastage of labels.
3 The View file should be carefully checked to ensure that all addresses
have the same number of fields, adding commas where necessary.
10 REM label print utility
20 REM Acorn Computers Ltd (c) 1989
30 ON ERROR VDU3 : CLOSE# 0 : REPORT : PRINT "At line " ERL:END
40 INPUT"Fields in MACRO "fields%
50 INPUT"Lines to print out "lines%
60 INPUT"Lines of gap between labels "gap%
70 DIM out% (lines%)
80 PRINT "enter the position of the entries in the MACRO" :"PRINT "in the order you
want them printed"
90 FOR z% =1 TO lines%:PRINT "Lines "z%"is entry? ";
100 INPUT" "out% (z%) :NEXT
110 DIM a$ (fields%)
120 INPUT"Enter name of file to be printed"mg$
130 INPUT "Output of Printer Y/N" q$
140 IF INSTR ("Yy",q$) :print=TRUE ELSE print=FALSE
150 a%=OPENIN (mg$)
160 IF print:VDU2
170 PROCnext
180 FOR z% = 1 TO fields%
190 as (z%) = FNstring
200 NEXT
210 FOR z% = 1 TO lines%
220 PRINT STRING(gap%, CHR$13)
230 UNTIL EOF#a%
240 DEF PROCnext
250 REPEAT d%=BGET#a%:UNTILd%=&80:PTR#a%=PTR#a%+2
260 ENDPROC
270 DEF FNstring
280 LOCAL c%
290 r$=" ":REPEAT
300 c%=BGET#a%
310 IF c%=ASC" , " OR c%=13:UNTIL1: =r$
320 r$=r$+CHR$ (c%) :UNTIL0
00000000 0d 54 68 65 20 55 74 69 6c 69 74 79 20 4c 61 62 |.The Utility Lab|
00000010 65 6c 20 70 72 6f 67 72 61 6d 20 77 69 6c 6c 20 |el program will |
00000020 61 73 6b 20 79 6f 75 20 76 61 72 69 6f 75 73 20 |ask you various |
00000030 71 75 65 73 74 69 6f 6e 73 20 74 68 61 74 20 79 |questions that y|
00000040 6f 75 20 73 68 6f 75 6c 64 0d 61 6e 73 77 65 72 |ou should.answer|
00000050 20 61 73 20 62 65 6c 6f 77 3a 0d 0d 20 20 20 20 | as below:.. |
00000060 20 20 20 20 55 73 65 20 73 65 6c 65 63 74 20 66 | Use select f|
00000070 69 6c 65 20 28 4e 2c 59 29 3f 20 20 28 74 79 70 |ile (N,Y)? (typ|
00000080 65 20 4e 20 69 66 20 74 68 69 73 20 61 70 70 6c |e N if this appl|
00000090 69 65 73 20 74 6f 20 74 68 65 20 77 68 6f 6c 65 |ies to the whole|
000000a0 0d 64 61 74 61 62 61 73 65 20 6f 72 20 59 20 69 |.database or Y i|
000000b0 73 20 74 6f 20 73 65 6c 65 63 74 20 66 69 6c 65 |s to select file|
000000c0 29 0d 20 20 20 20 20 20 20 20 53 63 72 65 65 6e |). Screen|
000000d0 20 6f 72 20 50 72 69 6e 74 65 72 20 28 53 2c 50 | or Printer (S,P|
000000e0 29 3f 20 20 50 20 28 52 45 54 55 52 4e 29 0d 20 |)? P (RETURN). |
000000f0 20 20 20 20 20 20 20 4c 61 62 65 6c 20 68 65 69 | Label hei|
00000100 67 68 74 20 28 6c 69 6e 65 73 29 3f 20 20 36 0d |ght (lines)? 6.|
00000110 20 20 20 20 20 20 20 20 4c 69 6e 65 73 20 62 65 | Lines be|
00000120 74 77 65 65 6e 20 65 61 63 68 20 6c 61 62 65 6c |tween each label|
00000130 3f 20 20 33 0d 20 20 20 20 20 20 20 20 57 69 64 |? 3. Wid|
00000140 74 68 20 6f 66 20 6c 61 62 65 6c 3f 20 20 32 35 |th of label? 25|
00000150 0d 20 20 20 20 20 20 20 20 43 68 61 72 61 63 74 |. Charact|
00000160 65 72 73 20 62 65 74 77 65 65 6e 20 65 61 63 68 |ers between each|
00000170 20 6c 61 62 65 6c 3f 20 20 36 0d 20 20 20 20 20 | label? 6. |
00000180 20 20 20 4e 75 6d 62 65 72 20 6f 66 20 6c 61 62 | Number of lab|
00000190 65 6c 73 20 61 63 72 6f 73 73 20 74 68 65 20 70 |els across the p|
000001a0 61 67 65 3f 20 20 33 0d 20 20 20 20 20 20 20 20 |age? 3. |
000001b0 4c 69 6e 65 20 31 3f 20 20 29 0d 20 20 20 20 20 |Line 1? ). |
000001c0 20 20 20 4c 69 6e 65 20 32 3f 20 20 29 20 20 65 | Line 2? ) e|
000001d0 6e 74 65 72 20 74 68 65 20 66 69 65 6c 64 20 6e |nter the field n|
000001e0 61 6d 65 20 6f 72 20 6e 61 6d 65 73 20 66 72 6f |ame or names fro|
000001f0 6d 20 77 68 69 63 68 20 69 6e 66 6f 72 6d 61 74 |m which informat|
00000200 69 6f 6e 0d 20 20 20 20 20 20 20 20 4c 69 6e 65 |ion. Line|
00000210 20 33 3f 20 20 29 20 20 68 61 73 20 74 6f 20 62 | 3? ) has to b|
00000220 65 20 65 78 74 72 61 63 74 65 64 2e 20 20 57 68 |e extracted. Wh|
00000230 65 72 65 20 74 68 65 72 65 20 69 73 20 6d 6f 72 |ere there is mor|
00000240 65 20 74 68 61 6e 20 6f 6e 65 20 66 69 65 6c 64 |e than one field|
00000250 0d 20 20 20 20 20 20 20 20 4c 69 6e 65 20 34 3f |. Line 4?|
00000260 20 20 29 20 20 6e 61 6d 65 20 72 65 71 75 69 72 | ) name requir|
00000270 65 64 20 74 68 69 73 20 6d 75 73 74 20 62 65 20 |ed this must be |
00000280 73 65 70 61 72 61 74 65 64 20 62 79 20 63 6f 6d |separated by com|
00000290 6d 61 73 0d 20 20 20 20 20 20 20 20 4c 69 6e 65 |mas. Line|
000002a0 20 35 3f 20 20 29 20 20 65 67 20 20 4e 61 6d 65 | 5? ) eg Name|
000002b0 2c 20 41 64 64 72 65 73 73 0d 20 20 20 20 20 20 |, Address. |
000002c0 20 20 4c 69 6e 65 20 36 3f 20 20 29 0d 20 20 20 | Line 6? ). |
000002d0 20 20 20 20 20 28 70 72 65 73 73 20 52 45 54 55 | (press RETU|
000002e0 52 4e 29 0d 0d 0d 32 36 20 20 55 73 69 6e 67 20 |RN)...26 Using |
000002f0 56 69 65 77 73 74 6f 72 65 20 63 6f 6e 76 65 72 |Viewstore conver|
00000300 74 0d 0d 31 2e 20 20 27 43 6f 6e 76 65 72 74 27 |t..1. 'Convert'|
00000310 20 63 6f 6e 76 65 72 74 73 20 61 6e 20 65 78 69 | converts an exi|
00000320 73 74 69 6e 67 20 64 61 74 61 62 61 73 65 2c 20 |sting database, |
00000330 6f 72 20 61 20 53 45 4c 45 43 54 45 44 20 73 75 |or a SELECTED su|
00000340 62 73 65 74 20 69 6e 74 6f 20 61 20 6e 65 77 0d |bset into a new.|
00000350 66 69 6c 65 2e 20 20 54 6f 20 61 64 64 20 61 20 |file. To add a |
00000360 73 70 61 63 65 20 74 6f 20 61 6e 20 65 78 69 73 |space to an exis|
00000370 74 69 6e 67 20 66 69 6c 65 20 75 73 65 3a 0d 0d |ting file use:..|
00000380 20 20 20 20 20 20 20 20 55 73 65 20 53 65 6c 65 | Use Sele|
00000390 63 74 20 66 69 6c 65 20 28 4e 2c 59 29 3f 20 20 |ct file (N,Y)? |
000003a0 4e 0d 20 20 20 20 20 20 20 20 46 69 65 6c 64 20 |N. Field |
000003b0 31 3f 20 2a 0d 20 20 20 20 20 20 20 20 3a 0d 20 |1? *. :. |
000003c0 20 20 20 20 20 20 20 46 69 6c 65 6e 61 6d 65 3f | Filename?|
000003d0 20 20 28 61 20 6e 65 77 20 6e 61 6d 65 29 0d 20 | (a new name). |
000003e0 20 20 20 20 20 20 20 52 65 63 6f 72 64 20 73 69 | Record si|
000003f0 7a 65 3a 20 2b 31 30 30 0d 0d 54 68 65 6e 20 75 |ze: +100..Then u|
00000400 73 65 20 4c 4f 41 44 20 28 6e 65 77 20 6e 61 6d |se LOAD (new nam|
00000410 65 29 20 28 6f 6c 64 20 6e 61 6d 65 29 20 74 6f |e) (old name) to|
00000420 20 75 73 65 20 74 68 65 20 6e 65 77 20 64 61 74 | use the new dat|
00000430 61 62 61 73 65 2c 20 77 69 74 68 20 74 68 65 20 |abase, with the |
00000440 6f 6c 64 0d 66 6f 72 6d 61 74 20 66 69 6c 65 2c |old.format file,|
00000450 20 6f 72 20 72 65 6e 61 6d 65 20 74 68 65 20 28 | or rename the (|
00000460 6e 65 77 20 6e 61 6d 65 29 20 74 6f 20 28 6f 6c |new name) to (ol|
00000470 64 20 6e 61 6d 65 29 20 20 28 62 61 63 6b 69 6e |d name) (backin|
00000480 67 20 75 70 20 74 68 65 20 6f 6c 64 20 66 69 6c |g up the old fil|
00000490 65 0d 66 69 72 73 74 21 29 2e 0d 0d 32 20 20 50 |e.first!)...2 P|
000004a0 72 69 6e 74 69 6e 67 20 6f 75 74 20 73 6f 6d 65 |rinting out some|
000004b0 20 66 69 65 6c 64 73 20 6f 72 20 61 20 66 69 6c | fields or a fil|
000004c0 65 20 69 73 20 64 6f 6e 65 20 77 69 74 68 20 74 |e is done with t|
000004d0 68 65 20 52 45 50 4f 52 54 20 55 74 69 6c 69 74 |he REPORT Utilit|
000004e0 79 20 2d 20 73 65 65 0d 74 68 65 20 6d 61 6e 75 |y - see.the manu|
000004f0 61 6c 20 66 6f 72 20 64 65 74 61 69 6c 73 2e 0d |al for details..|
00000500 0d 33 20 20 46 75 72 74 68 65 72 6d 6f 72 65 2c |.3 Furthermore,|
00000510 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 | if you want to |
00000520 70 61 73 73 20 61 6e 20 61 6c 70 68 61 62 65 74 |pass an alphabet|
00000530 69 63 61 6c 6c 79 20 73 6f 72 74 65 64 20 64 61 |ically sorted da|
00000540 74 61 62 61 73 65 20 74 6f 0d 56 69 65 77 20 69 |tabase to.View i|
00000550 74 20 69 73 20 64 6f 6e 65 20 62 79 20 53 45 4c |t is done by SEL|
00000560 45 43 54 69 6e 67 20 74 68 65 20 66 69 65 6c 64 |ECTing the field|
00000570 73 20 79 6f 75 20 77 61 6e 74 2c 20 73 6f 72 74 |s you want, sort|
00000580 69 6e 67 20 6f 6e 20 74 68 65 20 61 70 70 72 6f |ing on the appro|
00000590 70 72 69 61 74 65 0d 66 69 65 6c 64 2c 20 74 68 |priate.field, th|
000005a0 65 6e 20 75 73 69 6e 67 20 43 4f 4e 56 45 52 54 |en using CONVERT|
000005b0 2c 20 74 68 69 73 20 74 69 6d 65 20 77 69 74 68 |, this time with|
000005c0 20 61 20 73 65 6c 65 63 74 20 66 69 6c 65 2c 20 | a select file, |
000005d0 74 6f 20 70 72 6f 64 75 63 65 20 61 20 6e 65 77 |to produce a new|
000005e0 0d 64 61 74 61 62 61 73 65 20 69 6e 20 73 6f 72 |.database in sor|
000005f0 74 65 64 20 6f 72 64 65 72 2c 20 77 68 69 63 68 |ted order, which|
00000600 20 63 61 6e 20 62 65 20 70 61 73 73 65 64 20 74 | can be passed t|
00000610 6f 20 56 69 65 77 2e 0d 0d 0d 32 37 20 20 54 68 |o View....27 Th|
00000620 69 73 20 61 70 70 6c 69 65 73 20 74 6f 20 56 69 |is applies to Vi|
00000630 65 77 20 61 6e 64 20 56 69 65 77 73 74 6f 72 65 |ew and Viewstore|
00000640 20 28 50 44 47 29 0d 0d 41 6c 74 68 6f 75 67 68 | (PDG)..Although|
00000650 20 56 69 65 77 20 68 61 73 20 6f 6e 6c 79 20 74 | View has only t|
00000660 77 6f 20 68 69 67 68 6c 69 67 68 74 20 63 6f 64 |wo highlight cod|
00000670 65 73 20 74 68 65 73 65 20 63 61 6e 20 62 65 20 |es these can be |
00000680 72 65 64 65 66 69 6e 65 64 20 75 73 69 6e 67 20 |redefined using |
00000690 48 54 0d 63 6f 64 65 20 69 6e 20 22 45 64 69 74 |HT.code in "Edit|
000006a0 20 63 6f 6d 6d 61 6e 64 22 20 28 53 68 69 66 74 | command" (Shift|
000006b0 20 46 38 29 20 74 6f 20 6d 61 6b 65 20 75 73 65 | F8) to make use|
000006c0 20 6f 66 20 6f 74 68 65 72 20 66 65 61 74 75 72 | of other featur|
000006d0 65 73 20 61 76 61 69 6c 61 62 6c 65 20 6f 6e 0d |es available on.|
000006e0 74 68 65 20 70 72 69 6e 74 65 72 2e 20 20 54 68 |the printer. Th|
000006f0 65 20 61 63 74 75 61 6c 20 76 61 6c 75 65 73 20 |e actual values |
00000700 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 |associated with |
00000710 74 68 65 20 68 69 67 68 6c 69 67 68 74 20 63 6f |the highlight co|
00000720 64 65 73 20 63 61 6e 20 76 61 72 79 0d 66 72 6f |des can vary.fro|
00000730 6d 20 31 32 38 20 74 6f 20 31 34 38 2e 0d 0d 49 |m 128 to 148...I|
00000740 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 61 63 |f you want to ac|
00000750 63 65 73 73 20 65 78 74 65 6e 64 65 64 20 63 68 |cess extended ch|
00000760 61 72 61 63 74 65 72 73 20 79 6f 75 20 75 73 65 |aracters you use|
00000770 20 48 54 20 32 20 31 33 30 2e 20 20 54 68 69 73 | HT 2 130. This|
00000780 20 69 73 20 65 6e 74 65 72 65 64 0d 69 6e 20 79 | is entered.in y|
00000790 6f 75 72 20 56 69 65 77 20 64 6f 63 75 6d 65 6e |our View documen|
000007a0 74 20 75 73 69 6e 67 20 53 68 69 66 74 20 46 38 |t using Shift F8|
000007b0 20 28 45 64 69 74 20 63 6f 6d 6d 61 6e 64 29 2e | (Edit command).|
000007c0 20 20 48 6f 77 65 76 65 72 2c 20 79 6f 75 20 73 | However, you s|
000007d0 68 6f 75 6c 64 0d 65 6e 74 65 72 20 74 68 65 20 |hould.enter the |
000007e0 61 70 70 72 6f 70 72 69 61 74 65 20 63 6f 64 65 |appropriate code|
000007f0 73 20 69 6e 20 72 65 73 70 6f 6e 73 65 20 74 6f |s in response to|
00000800 20 74 68 65 20 70 72 69 6e 74 65 72 20 69 6e 69 | the printer ini|
00000810 74 69 61 6c 69 73 61 74 69 6f 6e 0d 71 75 65 73 |tialisation.ques|
00000820 74 69 6f 6e 20 69 6e 20 74 68 65 20 50 44 47 2e |tion in the PDG.|
00000830 0d 0d 46 6f 72 20 65 78 61 6d 70 6c 65 3a 20 20 |..For example: |
00000840 49 6e 20 56 69 65 77 20 20 74 6f 20 63 68 61 6e |In View to chan|
00000850 67 65 20 66 6f 6e 74 20 79 6f 75 20 77 6f 75 6c |ge font you woul|
00000860 64 20 65 6e 74 65 72 20 2a 2d 2d 20 28 6d 65 61 |d enter *-- (mea|
00000870 6e 73 20 48 69 67 68 6c 69 67 68 74 0d 32 2c 31 |ns Highlight.2,1|
00000880 2c 31 29 2e 20 20 56 69 65 77 20 74 68 65 6e 20 |,1). View then |
00000890 73 65 6e 64 73 20 74 6f 20 74 68 65 20 50 72 69 |sends to the Pri|
000008a0 6e 74 65 72 20 44 72 69 76 65 72 20 31 33 30 20 |nter Driver 130 |
000008b0 31 32 38 20 31 32 38 20 63 6f 64 65 73 20 74 6f |128 128 codes to|
000008c0 20 73 77 69 74 63 68 0d 74 6f 20 74 68 65 20 6e | switch.to the n|
000008d0 65 77 20 66 6f 6e 74 2e 0d 0d 57 69 74 68 20 56 |ew font...With V|
000008e0 69 65 77 73 74 6f 72 65 20 79 6f 75 20 77 6f 75 |iewstore you wou|
000008f0 6c 64 20 6e 65 65 64 20 74 6f 20 70 75 74 20 74 |ld need to put t|
00000900 68 65 73 65 20 63 6f 64 65 73 20 69 6e 20 52 45 |hese codes in RE|
00000910 50 4f 52 54 20 46 4f 52 4d 41 54 20 66 69 6c 65 |PORT FORMAT file|
00000920 20 33 20 31 0d 31 2e 20 20 56 69 65 77 73 74 6f | 3 1.1. Viewsto|
00000930 72 65 20 73 65 6e 64 73 20 74 6f 20 74 68 65 20 |re sends to the |
00000940 50 72 69 6e 74 65 72 20 44 72 69 76 65 72 20 31 |Printer Driver 1|
00000950 32 37 20 2b 20 6e 75 6d 62 65 72 20 28 31 33 30 |27 + number (130|
00000960 20 31 32 38 20 31 32 38 29 2e 0d 0d 0d 32 38 20 | 128 128)....28 |
00000970 20 56 69 65 77 73 74 6f 72 65 20 69 6d 70 6f 72 | Viewstore impor|
00000980 74 20 70 72 6f 63 65 64 75 72 65 20 2d 20 56 69 |t procedure - Vi|
00000990 65 77 73 74 6f 72 65 20 74 6f 20 56 69 65 77 73 |ewstore to Views|
000009a0 74 6f 72 65 0d 0d 43 48 41 49 4e 20 22 49 4d 50 |tore..CHAIN "IMP|
000009b0 4f 52 54 22 0d 0d 20 20 20 20 20 20 20 20 51 75 |ORT".. Qu|
000009c0 65 73 74 69 6f 6e 20 20 20 20 20 20 20 20 20 20 |estion |
000009d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009e0 20 20 49 6e 70 75 74 0d 0d 20 20 20 20 20 20 20 | Input.. |
000009f0 20 53 6f 75 72 63 65 20 66 69 6c 65 20 20 20 20 | Source file |
00000a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000a10 20 20 20 20 20 44 2e 28 66 69 6c 65 6e 61 6d 65 | D.(filename|
00000a20 29 0d 20 20 20 20 20 20 20 20 44 65 73 74 69 6e |). Destin|
00000a30 61 74 69 6f 6e 20 66 69 6c 65 20 20 20 20 20 20 |ation file |
00000a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 28 | :(|
00000a50 64 72 69 76 65 20 6e 75 6d 62 65 72 29 2e 44 2e |drive number).D.|
00000a60 28 6e 65 77 20 66 69 6c 65 6e 61 6d 65 29 0d 20 |(new filename). |
00000a70 20 20 20 20 20 20 20 50 6f 73 69 74 69 6f 6e 20 | Position |
00000a80 69 6e 20 66 69 6c 65 20 77 68 65 72 65 20 64 61 |in file where da|
00000a90 74 61 20 73 74 61 72 74 73 20 20 30 3e 52 45 54 |ta starts 0>RET|
00000aa0 55 52 4e 3c 0d 20 20 20 20 20 20 20 20 52 65 63 |URN<. Rec|
00000ab0 6f 72 64 20 53 65 70 61 72 61 74 6f 72 20 20 20 |ord Separator |
00000ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000ad0 20 31 33 20 28 63 61 72 72 69 61 67 65 20 72 65 | 13 (carriage re|
00000ae0 74 75 72 6e 20 69 6e 20 56 69 65 77 73 74 6f 72 |turn in Viewstor|
00000af0 65 29 0d 20 20 20 20 20 20 20 20 41 70 70 65 61 |e). Appea|
00000b00 72 73 20 62 65 66 6f 72 65 20 66 69 72 73 74 20 |rs before first |
00000b10 72 65 63 6f 72 64 20 20 20 20 20 20 20 20 20 4e |record N|
00000b20 0d 20 20 20 20 20 20 20 20 41 70 70 65 61 72 73 |. Appears|
00000b30 20 62 65 66 6f 72 65 20 6c 61 73 74 20 72 65 63 | before last rec|
00000b40 6f 72 64 20 20 20 20 20 20 20 20 20 20 59 0d 20 |ord Y. |
00000b50 20 20 20 20 20 20 20 46 69 65 6c 64 20 53 65 70 | Field Sep|
00000b60 61 72 61 74 6f 72 20 20 20 20 20 20 20 20 20 20 |arator |
00000b70 20 20 20 20 20 20 20 20 20 20 20 39 20 28 74 61 | 9 (ta|
00000b80 62 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 56 |b character in V|
00000b90 69 65 77 73 74 6f 72 65 29 0d 20 20 20 20 20 20 |iewstore). |
00000ba0 20 20 42 65 66 6f 72 65 20 66 69 72 73 74 20 63 | Before first c|
00000bb0 68 61 72 61 63 74 65 72 20 20 20 20 20 20 20 20 |haracter |
00000bc0 20 20 20 20 20 20 4e 0d 20 20 20 20 20 20 20 20 | N. |
00000bd0 41 66 74 65 72 20 6c 61 73 74 20 63 68 61 72 61 |After last chara|
00000be0 63 74 65 72 20 20 20 20 20 20 20 20 20 20 20 20 |cter |
00000bf0 20 20 20 20 4e 0d 20 20 20 20 20 20 20 20 45 6e | N. En|
00000c00 64 20 6f 66 20 66 69 6c 65 20 6d 61 72 6b 65 72 |d of file marker|
00000c10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000c20 20 20 30 0d 20 20 20 20 20 20 20 20 49 73 20 64 | 0. Is d|
00000c30 61 74 61 20 72 65 73 65 72 76 65 64 20 20 20 20 |ata reserved |
00000c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000c50 4e 20 28 69 74 20 69 73 20 69 6e 20 64 61 74 61 |N (it is in data|
00000c60 62 61 73 65 29 0d 20 20 20 20 20 20 20 20 54 72 |base). Tr|
00000c70 61 69 6c 69 6e 67 20 63 68 61 72 61 63 74 65 72 |ailing character|
00000c80 20 74 6f 20 73 6b 69 70 20 20 20 20 20 20 20 20 | to skip |
00000c90 20 20 4e 0d 20 20 20 20 20 20 20 20 52 65 63 6f | N. Reco|
00000ca0 72 64 20 73 69 7a 65 20 20 20 20 20 20 20 20 20 |rd size |
00000cb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000cc0 3c 52 45 54 55 52 4e 3e 0d 0d 0d 2d 2d 2d 2d 2d |<RETURN>...-----|
00000cd0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000d10 2d 2d 2d 2d 2d 2d 2d 2d 0d 50 72 69 6e 74 69 6e |--------.Printin|
00000d20 67 20 4c 61 62 65 6c 73 20 66 72 6f 6d 20 61 20 |g Labels from a |
00000d30 56 69 65 77 20 4d 61 63 72 6f 20 46 69 6c 65 0d |View Macro File.|
00000d40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000d80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0d 54 |-------------..T|
00000d90 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 42 41 53 |he following BAS|
00000da0 49 43 20 6c 69 73 74 69 6e 67 20 63 61 6e 20 62 |IC listing can b|
00000db0 65 20 75 73 65 64 20 74 6f 20 70 72 69 6e 74 20 |e used to print |
00000dc0 6c 61 62 65 6c 73 20 66 72 6f 6d 20 61 20 56 69 |labels from a Vi|
00000dd0 65 77 20 66 69 6c 65 20 69 6e 0d 6d 61 63 72 6f |ew file in.macro|
00000de0 20 66 6f 72 6d 61 74 2e 20 20 54 68 65 20 70 72 | format. The pr|
00000df0 6f 67 72 61 6d 20 61 6c 6c 6f 77 73 20 74 68 65 |ogram allows the|
00000e00 20 75 73 65 72 20 74 6f 20 73 65 6c 65 63 74 20 | user to select |
00000e10 77 68 69 63 68 20 66 69 65 6c 64 73 20 66 72 6f |which fields fro|
00000e20 6d 20 74 68 65 0d 6d 61 63 72 6f 20 73 68 6f 75 |m the.macro shou|
00000e30 6c 20 62 65 20 70 72 69 6e 74 65 64 2c 20 74 68 |l be printed, th|
00000e40 65 20 6f 72 64 65 72 20 69 6e 20 77 68 69 63 68 |e order in which|
00000e50 20 74 68 65 79 20 61 72 65 20 74 6f 20 62 65 20 | they are to be |
00000e60 70 72 69 6e 74 65 64 20 61 6e 64 20 74 68 65 0d |printed and the.|
00000e70 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 |number of lines |
00000e80 62 65 74 77 65 65 6e 20 65 61 63 68 20 6c 61 62 |between each lab|
00000e90 65 6c 2e 0d 0d 42 65 66 6f 72 65 20 72 75 6e 6e |el...Before runn|
00000ea0 69 6e 67 20 74 68 69 73 20 70 72 6f 67 72 61 6d |ing this program|
00000eb0 20 63 72 69 74 69 63 61 6c 20 70 6f 69 6e 74 73 | critical points|
00000ec0 20 74 68 61 74 20 73 68 6f 75 6c 64 20 62 65 20 | that should be |
00000ed0 6e 6f 74 65 64 20 61 72 65 3a 0d 0d 31 20 20 54 |noted are:..1 T|
00000ee0 68 65 20 70 72 69 6e 74 65 72 20 73 68 6f 75 6c |he printer shoul|
00000ef0 64 20 62 65 20 73 65 74 20 75 70 20 61 6e 64 20 |d be set up and |
00000f00 63 6f 6e 6e 65 63 74 65 64 20 74 6f 20 74 68 65 |connected to the|
00000f10 20 63 6f 6d 70 75 74 65 72 20 66 6f 6c 6c 6f 77 | computer follow|
00000f20 69 6e 67 20 74 68 65 0d 69 6e 73 74 72 75 63 74 |ing the.instruct|
00000f30 69 6f 6e 73 20 69 6e 20 74 68 65 20 72 65 6c 65 |ions in the rele|
00000f40 76 61 6e 74 20 75 73 65 72 20 67 75 69 64 65 73 |vant user guides|
00000f50 2e 0d 0d 32 20 20 54 68 65 20 73 74 61 72 74 69 |...2 The starti|
00000f60 6e 67 20 70 6f 73 69 74 69 6f 6e 20 6f 6e 20 74 |ng position on t|
00000f70 68 65 20 70 72 69 6e 74 65 72 20 73 68 6f 75 6c |he printer shoul|
00000f80 64 20 62 65 20 63 68 65 63 6b 65 64 20 61 6e 64 |d be checked and|
00000f90 20 61 64 6a 75 73 74 65 64 20 6f 6e 20 61 0d 73 | adjusted on a.s|
00000fa0 68 6f 72 74 20 72 75 6e 20 66 69 72 73 74 20 74 |hort run first t|
00000fb0 6f 20 61 76 6f 69 64 20 77 61 73 74 61 67 65 20 |o avoid wastage |
00000fc0 6f 66 20 6c 61 62 65 6c 73 2e 0d 0d 33 20 20 54 |of labels...3 T|
00000fd0 68 65 20 56 69 65 77 20 66 69 6c 65 20 73 68 6f |he View file sho|
00000fe0 75 6c 64 20 62 65 20 63 61 72 65 66 75 6c 6c 79 |uld be carefully|
00000ff0 20 63 68 65 63 6b 65 64 20 74 6f 20 65 6e 73 75 | checked to ensu|
00001000 72 65 20 74 68 61 74 20 61 6c 6c 20 61 64 64 72 |re that all addr|
00001010 65 73 73 65 73 0d 68 61 76 65 20 74 68 65 20 73 |esses.have the s|
00001020 61 6d 65 20 6e 75 6d 62 65 72 20 6f 66 20 66 69 |ame number of fi|
00001030 65 6c 64 73 2c 20 61 64 64 69 6e 67 20 63 6f 6d |elds, adding com|
00001040 6d 61 73 20 77 68 65 72 65 20 6e 65 63 65 73 73 |mas where necess|
00001050 61 72 79 2e 0d 0d 20 20 20 20 20 20 20 20 20 20 |ary... |
00001060 31 30 20 20 20 52 45 4d 20 6c 61 62 65 6c 20 70 |10 REM label p|
00001070 72 69 6e 74 20 75 74 69 6c 69 74 79 0d 20 20 20 |rint utility. |
00001080 20 20 20 20 20 20 20 32 30 20 20 20 52 45 4d 20 | 20 REM |
00001090 41 63 6f 72 6e 20 43 6f 6d 70 75 74 65 72 73 20 |Acorn Computers |
000010a0 4c 74 64 20 28 63 29 20 31 39 38 39 0d 20 20 20 |Ltd (c) 1989. |
000010b0 20 20 20 20 20 20 20 33 30 20 20 20 4f 4e 20 45 | 30 ON E|
000010c0 52 52 4f 52 20 56 44 55 33 20 3a 20 43 4c 4f 53 |RROR VDU3 : CLOS|
000010d0 45 23 20 30 20 3a 20 52 45 50 4f 52 54 20 3a 20 |E# 0 : REPORT : |
000010e0 50 52 49 4e 54 20 22 41 74 20 6c 69 6e 65 20 22 |PRINT "At line "|
000010f0 20 45 52 4c 3a 45 4e 44 0d 20 20 20 20 20 20 20 | ERL:END. |
00001100 20 20 20 34 30 20 20 20 49 4e 50 55 54 22 46 69 | 40 INPUT"Fi|
00001110 65 6c 64 73 20 69 6e 20 4d 41 43 52 4f 20 22 66 |elds in MACRO "f|
00001120 69 65 6c 64 73 25 0d 20 20 20 20 20 20 20 20 20 |ields%. |
00001130 20 35 30 20 20 20 49 4e 50 55 54 22 4c 69 6e 65 | 50 INPUT"Line|
00001140 73 20 74 6f 20 70 72 69 6e 74 20 6f 75 74 20 22 |s to print out "|
00001150 6c 69 6e 65 73 25 0d 20 20 20 20 20 20 20 20 20 |lines%. |
00001160 20 36 30 20 20 20 49 4e 50 55 54 22 4c 69 6e 65 | 60 INPUT"Line|
00001170 73 20 6f 66 20 67 61 70 20 62 65 74 77 65 65 6e |s of gap between|
00001180 20 6c 61 62 65 6c 73 20 22 67 61 70 25 0d 20 20 | labels "gap%. |
00001190 20 20 20 20 20 20 20 20 37 30 20 20 20 44 49 4d | 70 DIM|
000011a0 20 6f 75 74 25 20 28 6c 69 6e 65 73 25 29 0d 20 | out% (lines%). |
000011b0 20 20 20 20 20 20 20 20 20 38 30 20 20 20 50 52 | 80 PR|
000011c0 49 4e 54 20 22 65 6e 74 65 72 20 74 68 65 20 70 |INT "enter the p|
000011d0 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 65 |osition of the e|
000011e0 6e 74 72 69 65 73 20 69 6e 20 74 68 65 20 4d 41 |ntries in the MA|
000011f0 43 52 4f 22 20 3a 22 50 52 49 4e 54 20 22 69 6e |CRO" :"PRINT "in|
00001200 20 74 68 65 20 6f 72 64 65 72 20 79 6f 75 0d 20 | the order you. |
00001210 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001220 77 61 6e 74 20 74 68 65 6d 20 70 72 69 6e 74 65 |want them printe|
00001230 64 22 0d 20 20 20 20 20 20 20 20 20 20 39 30 20 |d". 90 |
00001240 20 20 46 4f 52 20 7a 25 20 3d 31 20 54 4f 20 6c | FOR z% =1 TO l|
00001250 69 6e 65 73 25 3a 50 52 49 4e 54 20 22 4c 69 6e |ines%:PRINT "Lin|
00001260 65 73 20 22 7a 25 22 69 73 20 65 6e 74 72 79 3f |es "z%"is entry?|
00001270 20 22 3b 0d 20 20 20 20 20 20 20 20 20 31 30 30 | ";. 100|
00001280 20 20 20 49 4e 50 55 54 22 20 22 6f 75 74 25 20 | INPUT" "out% |
00001290 28 7a 25 29 20 3a 4e 45 58 54 0d 20 20 20 20 20 |(z%) :NEXT. |
000012a0 20 20 20 20 31 31 30 20 20 20 44 49 4d 20 61 24 | 110 DIM a$|
000012b0 20 28 66 69 65 6c 64 73 25 29 0d 20 20 20 20 20 | (fields%). |
000012c0 20 20 20 20 31 32 30 20 20 20 49 4e 50 55 54 22 | 120 INPUT"|
000012d0 45 6e 74 65 72 20 6e 61 6d 65 20 6f 66 20 66 69 |Enter name of fi|
000012e0 6c 65 20 74 6f 20 62 65 20 70 72 69 6e 74 65 64 |le to be printed|
000012f0 22 6d 67 24 0d 20 20 20 20 20 20 20 20 20 31 33 |"mg$. 13|
00001300 30 20 20 20 49 4e 50 55 54 20 22 4f 75 74 70 75 |0 INPUT "Outpu|
00001310 74 20 6f 66 20 50 72 69 6e 74 65 72 20 59 2f 4e |t of Printer Y/N|
00001320 22 20 71 24 0d 20 20 20 20 20 20 20 20 20 31 34 |" q$. 14|
00001330 30 20 20 20 49 46 20 49 4e 53 54 52 20 28 22 59 |0 IF INSTR ("Y|
00001340 79 22 2c 71 24 29 20 3a 70 72 69 6e 74 3d 54 52 |y",q$) :print=TR|
00001350 55 45 20 45 4c 53 45 20 70 72 69 6e 74 3d 46 41 |UE ELSE print=FA|
00001360 4c 53 45 0d 20 20 20 20 20 20 20 20 20 31 35 30 |LSE. 150|
00001370 20 20 20 61 25 3d 4f 50 45 4e 49 4e 20 28 6d 67 | a%=OPENIN (mg|
00001380 24 29 0d 20 20 20 20 20 20 20 20 20 31 36 30 20 |$). 160 |
00001390 20 20 49 46 20 70 72 69 6e 74 3a 56 44 55 32 0d | IF print:VDU2.|
000013a0 20 20 20 20 20 20 20 20 20 31 37 30 20 20 20 50 | 170 P|
000013b0 52 4f 43 6e 65 78 74 0d 20 20 20 20 20 20 20 20 |ROCnext. |
000013c0 20 31 38 30 20 20 20 46 4f 52 20 7a 25 20 3d 20 | 180 FOR z% = |
000013d0 31 20 54 4f 20 66 69 65 6c 64 73 25 0d 20 20 20 |1 TO fields%. |
000013e0 20 20 20 20 20 20 31 39 30 20 20 20 61 73 20 28 | 190 as (|
000013f0 7a 25 29 20 3d 20 46 4e 73 74 72 69 6e 67 0d 20 |z%) = FNstring. |
00001400 20 20 20 20 20 20 20 20 32 30 30 20 20 20 4e 45 | 200 NE|
00001410 58 54 0d 20 20 20 20 20 20 20 20 20 32 31 30 20 |XT. 210 |
00001420 20 20 46 4f 52 20 7a 25 20 3d 20 31 20 54 4f 20 | FOR z% = 1 TO |
00001430 6c 69 6e 65 73 25 0d 20 20 20 20 20 20 20 20 20 |lines%. |
00001440 32 32 30 20 20 20 50 52 49 4e 54 20 53 54 52 49 |220 PRINT STRI|
00001450 4e 47 28 67 61 70 25 2c 20 43 48 52 24 31 33 29 |NG(gap%, CHR$13)|
00001460 0d 20 20 20 20 20 20 20 20 20 32 33 30 20 20 20 |. 230 |
00001470 55 4e 54 49 4c 20 45 4f 46 23 61 25 0d 20 20 20 |UNTIL EOF#a%. |
00001480 20 20 20 20 20 20 32 34 30 20 20 20 44 45 46 20 | 240 DEF |
00001490 50 52 4f 43 6e 65 78 74 0d 20 20 20 20 20 20 20 |PROCnext. |
000014a0 20 20 32 35 30 20 20 20 52 45 50 45 41 54 20 64 | 250 REPEAT d|
000014b0 25 3d 42 47 45 54 23 61 25 3a 55 4e 54 49 4c 64 |%=BGET#a%:UNTILd|
000014c0 25 3d 26 38 30 3a 50 54 52 23 61 25 3d 50 54 52 |%=&80:PTR#a%=PTR|
000014d0 23 61 25 2b 32 0d 20 20 20 20 20 20 20 20 20 32 |#a%+2. 2|
000014e0 36 30 20 20 20 45 4e 44 50 52 4f 43 0d 20 20 20 |60 ENDPROC. |
000014f0 20 20 20 20 20 20 32 37 30 20 20 20 44 45 46 20 | 270 DEF |
00001500 46 4e 73 74 72 69 6e 67 0d 20 20 20 20 20 20 20 |FNstring. |
00001510 20 20 32 38 30 20 20 20 4c 4f 43 41 4c 20 63 25 | 280 LOCAL c%|
00001520 0d 20 20 20 20 20 20 20 20 20 32 39 30 20 20 20 |. 290 |
00001530 72 24 3d 22 20 22 3a 52 45 50 45 41 54 0d 20 20 |r$=" ":REPEAT. |
00001540 20 20 20 20 20 20 20 33 30 30 20 20 20 63 25 3d | 300 c%=|
00001550 42 47 45 54 23 61 25 0d 20 20 20 20 20 20 20 20 |BGET#a%. |
00001560 20 33 31 30 20 20 20 49 46 20 63 25 3d 41 53 43 | 310 IF c%=ASC|
00001570 22 20 2c 20 22 20 4f 52 20 63 25 3d 31 33 3a 55 |" , " OR c%=13:U|
00001580 4e 54 49 4c 31 3a 20 3d 72 24 0d 20 20 20 20 20 |NTIL1: =r$. |
00001590 20 20 20 20 33 32 30 20 20 20 72 24 3d 72 24 2b | 320 r$=r$+|
000015a0 43 48 52 24 20 28 63 25 29 20 3a 55 4e 54 49 4c |CHR$ (c%) :UNTIL|
000015b0 30 0d |0.|
000015b2 
F/+hint5.m0
F/+hint5.m1
F/+hint5.m2
F/+hint5.m4
F/+hint5.m5
.