P/C/GUFF

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21B.ADF » P/C/GUFF

P/C/GUFF

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_21B.ADF
Filename:	P/C/GUFF
Read OK:	✔
File size:	160D bytes
Load address:	FFFF4556
Exec address:	14646

Duplicates

There is 1 duplicate copy of this file in the archive:

AEW website » eug » eug_5_25_discs_Eug-21_D-EUG21B.dsd » C.GUFF
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21B.ADF » P/C/GUFF

File contents

Cheque Account Program by Mick Comley.             Faversham 01795 531285

To cut a long story short. Some few years ago I had a motorcycle accident
and I had to sit on my backside for seven months to heal a badly broken
leg. So my dear wife brought me a computer, an Electron, it worked, I'm
still using it, and I'm still sat on my backside. Because of the necessity
of keeping a tight budget I wrote the 'Cheque Account' program. The
original idea was to have a display which was the same as a bank statement
so I could directly compare the two. I make no apologies that it had grown
and required a 64k Elk. and disc drive with DFS which leaves PAGE at &E00.

That was version eight which I submitted to our esteemed editor 'Gus' for
issue 15. When I found it was not on the disc I phoned him to ask him why.
The reason he gave was that most of the members of the EUG had 32k Elk's
and so could not use it. Gus, the bully, arm bender extraordinare, asked
me to crunch it to run with ADFS on a 32k Elk. That was version nine, it
had a large number of proceedures as overlays to reduce the demand on
memory. It worked fine until you started to put in more transactions and
up came the dreaded message 'no room'.

Back to the keyboard and version ten, eleven and twelve, now PAGE can be
as high as &2000. The program now uses 'Megafont' by Clive Whiston which
was published in the 'BBC Acorn User' of May 1992. This makes the display
much easier to follow as you can pick out 'cheques', 'standing orders' etc
in differing styles of print.

The menu bar is at the bottom of the screen and will scroll left one
command every time you hit RETURN or a command key. The date displayed is
that of the last entry, press the SPACE bar to advance the date one day at
a time. Any standing orders, direct debits, salaries or wages
automatically show up on the correct date, you will be asked if the amount
is correct and you can adjust it if necessary. All transactions are
automatically saved to disc as is the date. The current file number is
shown above the menu when it reaches 1000 it will ask you to set up a new
file on a fresh disc, that should take some 2 to 3 years.

All automatic payments can be weekly, fortnightly or monthly, any number
in a year or continuously. There is the ability to have differing start,
normal and end payments, to cope with the likes of the  Council Tax i.e.
10 payments a year. Payments can start on a specific date as required.

To setup your own file copy the following programs onto a fresh disc -
ADJUST - BANK - EDIT - FLEX - PLAN - SETUP - STRINGS - VARS. Next CHAIN
SETUP this will create ten files - DATA, DATE, FILE, and RECORD in the A
directory and &900, $&C00, $&C01, $&C02, $&C02, $&C03 & CODE in the $
directory, if using ADFS remember to create the 'A' directory first. Go
and have a cup of tea as this takes some time to do as RECORD is 100,000
bytes long. VARS is just a list of what the integer variables are used for
and how RECORD and FILE are laid out. STRINGS enables you to edit the
menu's for future development. BANK is an uncrunched version of FLEX.
Finally set up a !BOOT file as follows -

*BASIC
MODE3
HIMEM=&3D00
VDU19,1,2;0;
*LOAD CODE 3D00
*LOAD &900
CHAIN"FLEX"

Set the !BOOT file to auto execute with *OPT 4,3

Hit SHIFT/BREAK to start up and hit the RETURN key to scroll the menu
left. Hit J for the Adjust Data program and then set the correct date and
year. Hit 'N'ew item & a list of 21 payment slots is displayed, the first
four & the last two you can't alter, the cheque number automatically up
dates each time you use a cheque. There are two slots for salaries/wages,
if you are a grabbing git and you and your other half have full and part
time jobs, exit this routine and hit 'D' to change the number of slots. Go
back to 'N'ew item and starting with No.4 go on to the payment menu. For a
continuous payment, be it by the week, fortnight or month, leave the No.
of payments as Zero, just have a normal payment value. Next hit 'B'ank
account program and now using 'T'ransfer put in the opening balance. Next
hit 'V'oid cheque and put in your next cheque number, now you are set up
to use 'CHEQUE ACCOUNT'.

Other facilities -

Print a statement           (prints normally last 50 transactions)
List similar transactions   (all are in a linked list. Individual cheques
                            and Visa payments may be displayed)
Change the current cheque number
Alter number of payment slots
Delete an item if you make a mistake or cancel a cheque
Add or deduct interest or charges
Change, add or delete automatic payments
Plan finances ahead

If anybody wants any of the earlier taped based versions please get in
touch with me directly and I will provide them if a tape and post &
packing are supplied. My address is as follows -

Mr M Comley
6 Buttermere
Love Lane
Faversham
Kent
ME13 8JF

-------------------------------------------------------------------------
Mick Comley                                        Faversham 01795 531285
6 Buttermere
Love Lane
Faversham
Kent
ME13 8UD

WANTED --- PRES Advanced Basic Editor rom & manual

FOR SALE - BBC Master + twin 5.25 Disk drive bridge unit + Zenith 12"
           Green screen monitor + Roms + Manuals + printer + software on
           disc `170 ono. Buyer collects

           Microline u83a 9 pin wide carriage printer Centronic & RS232
           ports + paper + stand `30 buyer collects.

           Amstrad PC1512SD hard drive + Twin 5.25 disc drives + Manuals +
           software including Route finder. `100 ono. Buyer collects
--------------------------------------------------------------------------

00000000  43 68 65 71 75 65 20 41  63 63 6f 75 6e 74 20 50  |Cheque Account P|
00000010  72 6f 67 72 61 6d 20 62  79 20 4d 69 63 6b 20 43  |rogram by Mick C|
00000020  6f 6d 6c 65 79 2e 20 20  20 20 20 20 20 20 20 20  |omley.          |
00000030  20 20 20 46 61 76 65 72  73 68 61 6d 20 30 31 37  |   Faversham 017|
00000040  39 35 20 35 33 31 32 38  35 0d 0d 54 6f 20 63 75  |95 531285..To cu|
00000050  74 20 61 20 6c 6f 6e 67  20 73 74 6f 72 79 20 73  |t a long story s|
00000060  68 6f 72 74 2e 20 53 6f  6d 65 20 66 65 77 20 79  |hort. Some few y|
00000070  65 61 72 73 20 61 67 6f  20 49 20 68 61 64 20 61  |ears ago I had a|
00000080  20 6d 6f 74 6f 72 63 79  63 6c 65 20 61 63 63 69  | motorcycle acci|
00000090  64 65 6e 74 0d 61 6e 64  20 49 20 68 61 64 20 74  |dent.and I had t|
000000a0  6f 20 73 69 74 20 6f 6e  20 6d 79 20 62 61 63 6b  |o sit on my back|
000000b0  73 69 64 65 20 66 6f 72  20 73 65 76 65 6e 20 6d  |side for seven m|
000000c0  6f 6e 74 68 73 20 74 6f  20 68 65 61 6c 20 61 20  |onths to heal a |
000000d0  62 61 64 6c 79 20 62 72  6f 6b 65 6e 0d 6c 65 67  |badly broken.leg|
000000e0  2e 20 53 6f 20 6d 79 20  64 65 61 72 20 77 69 66  |. So my dear wif|
000000f0  65 20 62 72 6f 75 67 68  74 20 6d 65 20 61 20 63  |e brought me a c|
00000100  6f 6d 70 75 74 65 72 2c  20 61 6e 20 45 6c 65 63  |omputer, an Elec|
00000110  74 72 6f 6e 2c 20 69 74  20 77 6f 72 6b 65 64 2c  |tron, it worked,|
00000120  20 49 27 6d 0d 73 74 69  6c 6c 20 75 73 69 6e 67  | I'm.still using|
00000130  20 69 74 2c 20 61 6e 64  20 49 27 6d 20 73 74 69  | it, and I'm sti|
00000140  6c 6c 20 73 61 74 20 6f  6e 20 6d 79 20 62 61 63  |ll sat on my bac|
00000150  6b 73 69 64 65 2e 20 42  65 63 61 75 73 65 20 6f  |kside. Because o|
00000160  66 20 74 68 65 20 6e 65  63 65 73 73 69 74 79 0d  |f the necessity.|
00000170  6f 66 20 6b 65 65 70 69  6e 67 20 61 20 74 69 67  |of keeping a tig|
00000180  68 74 20 62 75 64 67 65  74 20 49 20 77 72 6f 74  |ht budget I wrot|
00000190  65 20 74 68 65 20 27 43  68 65 71 75 65 20 41 63  |e the 'Cheque Ac|
000001a0  63 6f 75 6e 74 27 20 70  72 6f 67 72 61 6d 2e 20  |count' program. |
000001b0  54 68 65 0d 6f 72 69 67  69 6e 61 6c 20 69 64 65  |The.original ide|
000001c0  61 20 77 61 73 20 74 6f  20 68 61 76 65 20 61 20  |a was to have a |
000001d0  64 69 73 70 6c 61 79 20  77 68 69 63 68 20 77 61  |display which wa|
000001e0  73 20 74 68 65 20 73 61  6d 65 20 61 73 20 61 20  |s the same as a |
000001f0  62 61 6e 6b 20 73 74 61  74 65 6d 65 6e 74 0d 73  |bank statement.s|
00000200  6f 20 49 20 63 6f 75 6c  64 20 64 69 72 65 63 74  |o I could direct|
00000210  6c 79 20 63 6f 6d 70 61  72 65 20 74 68 65 20 74  |ly compare the t|
00000220  77 6f 2e 20 49 20 6d 61  6b 65 20 6e 6f 20 61 70  |wo. I make no ap|
00000230  6f 6c 6f 67 69 65 73 20  74 68 61 74 20 69 74 20  |ologies that it |
00000240  68 61 64 20 67 72 6f 77  6e 0d 61 6e 64 20 72 65  |had grown.and re|
00000250  71 75 69 72 65 64 20 61  20 36 34 6b 20 45 6c 6b  |quired a 64k Elk|
00000260  2e 20 61 6e 64 20 64 69  73 63 20 64 72 69 76 65  |. and disc drive|
00000270  20 77 69 74 68 20 44 46  53 20 77 68 69 63 68 20  | with DFS which |
00000280  6c 65 61 76 65 73 20 50  41 47 45 20 61 74 20 26  |leaves PAGE at &|
00000290  45 30 30 2e 0d 0d 54 68  61 74 20 77 61 73 20 76  |E00...That was v|
000002a0  65 72 73 69 6f 6e 20 65  69 67 68 74 20 77 68 69  |ersion eight whi|
000002b0  63 68 20 49 20 73 75 62  6d 69 74 74 65 64 20 74  |ch I submitted t|
000002c0  6f 20 6f 75 72 20 65 73  74 65 65 6d 65 64 20 65  |o our esteemed e|
000002d0  64 69 74 6f 72 20 27 47  75 73 27 20 66 6f 72 0d  |ditor 'Gus' for.|
000002e0  69 73 73 75 65 20 31 35  2e 20 57 68 65 6e 20 49  |issue 15. When I|
000002f0  20 66 6f 75 6e 64 20 69  74 20 77 61 73 20 6e 6f  | found it was no|
00000300  74 20 6f 6e 20 74 68 65  20 64 69 73 63 20 49 20  |t on the disc I |
00000310  70 68 6f 6e 65 64 20 68  69 6d 20 74 6f 20 61 73  |phoned him to as|
00000320  6b 20 68 69 6d 20 77 68  79 2e 0d 54 68 65 20 72  |k him why..The r|
00000330  65 61 73 6f 6e 20 68 65  20 67 61 76 65 20 77 61  |eason he gave wa|
00000340  73 20 74 68 61 74 20 6d  6f 73 74 20 6f 66 20 74  |s that most of t|
00000350  68 65 20 6d 65 6d 62 65  72 73 20 6f 66 20 74 68  |he members of th|
00000360  65 20 45 55 47 20 68 61  64 20 33 32 6b 20 45 6c  |e EUG had 32k El|
00000370  6b 27 73 0d 61 6e 64 20  73 6f 20 63 6f 75 6c 64  |k's.and so could|
00000380  20 6e 6f 74 20 75 73 65  20 69 74 2e 20 47 75 73  | not use it. Gus|
00000390  2c 20 74 68 65 20 62 75  6c 6c 79 2c 20 61 72 6d  |, the bully, arm|
000003a0  20 62 65 6e 64 65 72 20  65 78 74 72 61 6f 72 64  | bender extraord|
000003b0  69 6e 61 72 65 2c 20 61  73 6b 65 64 0d 6d 65 20  |inare, asked.me |
000003c0  74 6f 20 63 72 75 6e 63  68 20 69 74 20 74 6f 20  |to crunch it to |
000003d0  72 75 6e 20 77 69 74 68  20 41 44 46 53 20 6f 6e  |run with ADFS on|
000003e0  20 61 20 33 32 6b 20 45  6c 6b 2e 20 54 68 61 74  | a 32k Elk. That|
000003f0  20 77 61 73 20 76 65 72  73 69 6f 6e 20 6e 69 6e  | was version nin|
00000400  65 2c 20 69 74 0d 68 61  64 20 61 20 6c 61 72 67  |e, it.had a larg|
00000410  65 20 6e 75 6d 62 65 72  20 6f 66 20 70 72 6f 63  |e number of proc|
00000420  65 65 64 75 72 65 73 20  61 73 20 6f 76 65 72 6c  |eedures as overl|
00000430  61 79 73 20 74 6f 20 72  65 64 75 63 65 20 74 68  |ays to reduce th|
00000440  65 20 64 65 6d 61 6e 64  20 6f 6e 0d 6d 65 6d 6f  |e demand on.memo|
00000450  72 79 2e 20 49 74 20 77  6f 72 6b 65 64 20 66 69  |ry. It worked fi|
00000460  6e 65 20 75 6e 74 69 6c  20 79 6f 75 20 73 74 61  |ne until you sta|
00000470  72 74 65 64 20 74 6f 20  70 75 74 20 69 6e 20 6d  |rted to put in m|
00000480  6f 72 65 20 74 72 61 6e  73 61 63 74 69 6f 6e 73  |ore transactions|
00000490  20 61 6e 64 0d 75 70 20  63 61 6d 65 20 74 68 65  | and.up came the|
000004a0  20 64 72 65 61 64 65 64  20 6d 65 73 73 61 67 65  | dreaded message|
000004b0  20 27 6e 6f 20 72 6f 6f  6d 27 2e 0d 0d 42 61 63  | 'no room'...Bac|
000004c0  6b 20 74 6f 20 74 68 65  20 6b 65 79 62 6f 61 72  |k to the keyboar|
000004d0  64 20 61 6e 64 20 76 65  72 73 69 6f 6e 20 74 65  |d and version te|
000004e0  6e 2c 20 65 6c 65 76 65  6e 20 61 6e 64 20 74 77  |n, eleven and tw|
000004f0  65 6c 76 65 2c 20 6e 6f  77 20 50 41 47 45 20 63  |elve, now PAGE c|
00000500  61 6e 20 62 65 0d 61 73  20 68 69 67 68 20 61 73  |an be.as high as|
00000510  20 26 32 30 30 30 2e 20  54 68 65 20 70 72 6f 67  | &2000. The prog|
00000520  72 61 6d 20 6e 6f 77 20  75 73 65 73 20 27 4d 65  |ram now uses 'Me|
00000530  67 61 66 6f 6e 74 27 20  62 79 20 43 6c 69 76 65  |gafont' by Clive|
00000540  20 57 68 69 73 74 6f 6e  20 77 68 69 63 68 0d 77  | Whiston which.w|
00000550  61 73 20 70 75 62 6c 69  73 68 65 64 20 69 6e 20  |as published in |
00000560  74 68 65 20 27 42 42 43  20 41 63 6f 72 6e 20 55  |the 'BBC Acorn U|
00000570  73 65 72 27 20 6f 66 20  4d 61 79 20 31 39 39 32  |ser' of May 1992|
00000580  2e 20 54 68 69 73 20 6d  61 6b 65 73 20 74 68 65  |. This makes the|
00000590  20 64 69 73 70 6c 61 79  0d 6d 75 63 68 20 65 61  | display.much ea|
000005a0  73 69 65 72 20 74 6f 20  66 6f 6c 6c 6f 77 20 61  |sier to follow a|
000005b0  73 20 79 6f 75 20 63 61  6e 20 70 69 63 6b 20 6f  |s you can pick o|
000005c0  75 74 20 27 63 68 65 71  75 65 73 27 2c 20 27 73  |ut 'cheques', 's|
000005d0  74 61 6e 64 69 6e 67 20  6f 72 64 65 72 73 27 20  |tanding orders' |
000005e0  65 74 63 0d 69 6e 20 64  69 66 66 65 72 69 6e 67  |etc.in differing|
000005f0  20 73 74 79 6c 65 73 20  6f 66 20 70 72 69 6e 74  | styles of print|
00000600  2e 0d 0d 54 68 65 20 6d  65 6e 75 20 62 61 72 20  |...The menu bar |
00000610  69 73 20 61 74 20 74 68  65 20 62 6f 74 74 6f 6d  |is at the bottom|
00000620  20 6f 66 20 74 68 65 20  73 63 72 65 65 6e 20 61  | of the screen a|
00000630  6e 64 20 77 69 6c 6c 20  73 63 72 6f 6c 6c 20 6c  |nd will scroll l|
00000640  65 66 74 20 6f 6e 65 0d  63 6f 6d 6d 61 6e 64 20  |eft one.command |
00000650  65 76 65 72 79 20 74 69  6d 65 20 79 6f 75 20 68  |every time you h|
00000660  69 74 20 52 45 54 55 52  4e 20 6f 72 20 61 20 63  |it RETURN or a c|
00000670  6f 6d 6d 61 6e 64 20 6b  65 79 2e 20 54 68 65 20  |ommand key. The |
00000680  64 61 74 65 20 64 69 73  70 6c 61 79 65 64 20 69  |date displayed i|
00000690  73 0d 74 68 61 74 20 6f  66 20 74 68 65 20 6c 61  |s.that of the la|
000006a0  73 74 20 65 6e 74 72 79  2c 20 70 72 65 73 73 20  |st entry, press |
000006b0  74 68 65 20 53 50 41 43  45 20 62 61 72 20 74 6f  |the SPACE bar to|
000006c0  20 61 64 76 61 6e 63 65  20 74 68 65 20 64 61 74  | advance the dat|
000006d0  65 20 6f 6e 65 20 64 61  79 20 61 74 0d 61 20 74  |e one day at.a t|
000006e0  69 6d 65 2e 20 41 6e 79  20 73 74 61 6e 64 69 6e  |ime. Any standin|
000006f0  67 20 6f 72 64 65 72 73  2c 20 64 69 72 65 63 74  |g orders, direct|
00000700  20 64 65 62 69 74 73 2c  20 73 61 6c 61 72 69 65  | debits, salarie|
00000710  73 20 6f 72 20 77 61 67  65 73 0d 61 75 74 6f 6d  |s or wages.autom|
00000720  61 74 69 63 61 6c 6c 79  20 73 68 6f 77 20 75 70  |atically show up|
00000730  20 6f 6e 20 74 68 65 20  63 6f 72 72 65 63 74 20  | on the correct |
00000740  64 61 74 65 2c 20 79 6f  75 20 77 69 6c 6c 20 62  |date, you will b|
00000750  65 20 61 73 6b 65 64 20  69 66 20 74 68 65 20 61  |e asked if the a|
00000760  6d 6f 75 6e 74 0d 69 73  20 63 6f 72 72 65 63 74  |mount.is correct|
00000770  20 61 6e 64 20 79 6f 75  20 63 61 6e 20 61 64 6a  | and you can adj|
00000780  75 73 74 20 69 74 20 69  66 20 6e 65 63 65 73 73  |ust it if necess|
00000790  61 72 79 2e 20 41 6c 6c  20 74 72 61 6e 73 61 63  |ary. All transac|
000007a0  74 69 6f 6e 73 20 61 72  65 0d 61 75 74 6f 6d 61  |tions are.automa|
000007b0  74 69 63 61 6c 6c 79 20  73 61 76 65 64 20 74 6f  |tically saved to|
000007c0  20 64 69 73 63 20 61 73  20 69 73 20 74 68 65 20  | disc as is the |
000007d0  64 61 74 65 2e 20 54 68  65 20 63 75 72 72 65 6e  |date. The curren|
000007e0  74 20 66 69 6c 65 20 6e  75 6d 62 65 72 20 69 73  |t file number is|
000007f0  0d 73 68 6f 77 6e 20 61  62 6f 76 65 20 74 68 65  |.shown above the|
00000800  20 6d 65 6e 75 20 77 68  65 6e 20 69 74 20 72 65  | menu when it re|
00000810  61 63 68 65 73 20 31 30  30 30 20 69 74 20 77 69  |aches 1000 it wi|
00000820  6c 6c 20 61 73 6b 20 79  6f 75 20 74 6f 20 73 65  |ll ask you to se|
00000830  74 20 75 70 20 61 20 6e  65 77 0d 66 69 6c 65 20  |t up a new.file |
00000840  6f 6e 20 61 20 66 72 65  73 68 20 64 69 73 63 2c  |on a fresh disc,|
00000850  20 74 68 61 74 20 73 68  6f 75 6c 64 20 74 61 6b  | that should tak|
00000860  65 20 73 6f 6d 65 20 32  20 74 6f 20 33 20 79 65  |e some 2 to 3 ye|
00000870  61 72 73 2e 0d 0d 41 6c  6c 20 61 75 74 6f 6d 61  |ars...All automa|
00000880  74 69 63 20 70 61 79 6d  65 6e 74 73 20 63 61 6e  |tic payments can|
00000890  20 62 65 20 77 65 65 6b  6c 79 2c 20 66 6f 72 74  | be weekly, fort|
000008a0  6e 69 67 68 74 6c 79 20  6f 72 20 6d 6f 6e 74 68  |nightly or month|
000008b0  6c 79 2c 20 61 6e 79 20  6e 75 6d 62 65 72 0d 69  |ly, any number.i|
000008c0  6e 20 61 20 79 65 61 72  20 6f 72 20 63 6f 6e 74  |n a year or cont|
000008d0  69 6e 75 6f 75 73 6c 79  2e 20 54 68 65 72 65 20  |inuously. There |
000008e0  69 73 20 74 68 65 20 61  62 69 6c 69 74 79 20 74  |is the ability t|
000008f0  6f 20 68 61 76 65 20 64  69 66 66 65 72 69 6e 67  |o have differing|
00000900  20 73 74 61 72 74 2c 0d  6e 6f 72 6d 61 6c 20 61  | start,.normal a|
00000910  6e 64 20 65 6e 64 20 70  61 79 6d 65 6e 74 73 2c  |nd end payments,|
00000920  20 74 6f 20 63 6f 70 65  20 77 69 74 68 20 74 68  | to cope with th|
00000930  65 20 6c 69 6b 65 73 20  6f 66 20 74 68 65 20 20  |e likes of the  |
00000940  43 6f 75 6e 63 69 6c 20  54 61 78 20 69 2e 65 2e  |Council Tax i.e.|
00000950  0d 31 30 20 70 61 79 6d  65 6e 74 73 20 61 20 79  |.10 payments a y|
00000960  65 61 72 2e 20 50 61 79  6d 65 6e 74 73 20 63 61  |ear. Payments ca|
00000970  6e 20 73 74 61 72 74 20  6f 6e 20 61 20 73 70 65  |n start on a spe|
00000980  63 69 66 69 63 20 64 61  74 65 20 61 73 20 72 65  |cific date as re|
00000990  71 75 69 72 65 64 2e 0d  0d 54 6f 20 73 65 74 75  |quired...To setu|
000009a0  70 20 79 6f 75 72 20 6f  77 6e 20 66 69 6c 65 20  |p your own file |
000009b0  63 6f 70 79 20 74 68 65  20 66 6f 6c 6c 6f 77 69  |copy the followi|
000009c0  6e 67 20 70 72 6f 67 72  61 6d 73 20 6f 6e 74 6f  |ng programs onto|
000009d0  20 61 20 66 72 65 73 68  20 64 69 73 63 20 2d 0d  | a fresh disc -.|
000009e0  41 44 4a 55 53 54 20 2d  20 42 41 4e 4b 20 2d 20  |ADJUST - BANK - |
000009f0  45 44 49 54 20 2d 20 46  4c 45 58 20 2d 20 50 4c  |EDIT - FLEX - PL|
00000a00  41 4e 20 2d 20 53 45 54  55 50 20 2d 20 53 54 52  |AN - SETUP - STR|
00000a10  49 4e 47 53 20 2d 20 56  41 52 53 2e 20 4e 65 78  |INGS - VARS. Nex|
00000a20  74 20 43 48 41 49 4e 0d  53 45 54 55 50 20 74 68  |t CHAIN.SETUP th|
00000a30  69 73 20 77 69 6c 6c 20  63 72 65 61 74 65 20 74  |is will create t|
00000a40  65 6e 20 66 69 6c 65 73  20 2d 20 44 41 54 41 2c  |en files - DATA,|
00000a50  20 44 41 54 45 2c 20 46  49 4c 45 2c 20 61 6e 64  | DATE, FILE, and|
00000a60  20 52 45 43 4f 52 44 20  69 6e 20 74 68 65 20 41  | RECORD in the A|
00000a70  0d 64 69 72 65 63 74 6f  72 79 20 61 6e 64 20 26  |.directory and &|
00000a80  39 30 30 2c 20 24 26 43  30 30 2c 20 24 26 43 30  |900, $&C00, $&C0|
00000a90  31 2c 20 24 26 43 30 32  2c 20 24 26 43 30 32 2c  |1, $&C02, $&C02,|
00000aa0  20 24 26 43 30 33 20 26  20 43 4f 44 45 20 69 6e  | $&C03 & CODE in|
00000ab0  20 74 68 65 20 24 0d 64  69 72 65 63 74 6f 72 79  | the $.directory|
00000ac0  2c 20 69 66 20 75 73 69  6e 67 20 41 44 46 53 20  |, if using ADFS |
00000ad0  72 65 6d 65 6d 62 65 72  20 74 6f 20 63 72 65 61  |remember to crea|
00000ae0  74 65 20 74 68 65 20 27  41 27 20 64 69 72 65 63  |te the 'A' direc|
00000af0  74 6f 72 79 20 66 69 72  73 74 2e 20 47 6f 0d 61  |tory first. Go.a|
00000b00  6e 64 20 68 61 76 65 20  61 20 63 75 70 20 6f 66  |nd have a cup of|
00000b10  20 74 65 61 20 61 73 20  74 68 69 73 20 74 61 6b  | tea as this tak|
00000b20  65 73 20 73 6f 6d 65 20  74 69 6d 65 20 74 6f 20  |es some time to |
00000b30  64 6f 20 61 73 20 52 45  43 4f 52 44 20 69 73 20  |do as RECORD is |
00000b40  31 30 30 2c 30 30 30 0d  62 79 74 65 73 20 6c 6f  |100,000.bytes lo|
00000b50  6e 67 2e 20 56 41 52 53  20 69 73 20 6a 75 73 74  |ng. VARS is just|
00000b60  20 61 20 6c 69 73 74 20  6f 66 20 77 68 61 74 20  | a list of what |
00000b70  74 68 65 20 69 6e 74 65  67 65 72 20 76 61 72 69  |the integer vari|
00000b80  61 62 6c 65 73 20 61 72  65 20 75 73 65 64 20 66  |ables are used f|
00000b90  6f 72 0d 61 6e 64 20 68  6f 77 20 52 45 43 4f 52  |or.and how RECOR|
00000ba0  44 20 61 6e 64 20 46 49  4c 45 20 61 72 65 20 6c  |D and FILE are l|
00000bb0  61 69 64 20 6f 75 74 2e  20 53 54 52 49 4e 47 53  |aid out. STRINGS|
00000bc0  20 65 6e 61 62 6c 65 73  20 79 6f 75 20 74 6f 20  | enables you to |
00000bd0  65 64 69 74 20 74 68 65  0d 6d 65 6e 75 27 73 20  |edit the.menu's |
00000be0  66 6f 72 20 66 75 74 75  72 65 20 64 65 76 65 6c  |for future devel|
00000bf0  6f 70 6d 65 6e 74 2e 20  42 41 4e 4b 20 69 73 20  |opment. BANK is |
00000c00  61 6e 20 75 6e 63 72 75  6e 63 68 65 64 20 76 65  |an uncrunched ve|
00000c10  72 73 69 6f 6e 20 6f 66  20 46 4c 45 58 2e 0d 46  |rsion of FLEX..F|
00000c20  69 6e 61 6c 6c 79 20 73  65 74 20 75 70 20 61 20  |inally set up a |
00000c30  21 42 4f 4f 54 20 66 69  6c 65 20 61 73 20 66 6f  |!BOOT file as fo|
00000c40  6c 6c 6f 77 73 20 2d 0d  0d 2a 42 41 53 49 43 0d  |llows -..*BASIC.|
00000c50  4d 4f 44 45 33 0d 48 49  4d 45 4d 3d 26 33 44 30  |MODE3.HIMEM=&3D0|
00000c60  30 0d 56 44 55 31 39 2c  31 2c 32 3b 30 3b 0d 2a  |0.VDU19,1,2;0;.*|
00000c70  4c 4f 41 44 20 43 4f 44  45 20 33 44 30 30 0d 2a  |LOAD CODE 3D00.*|
00000c80  4c 4f 41 44 20 26 39 30  30 0d 43 48 41 49 4e 22  |LOAD &900.CHAIN"|
00000c90  46 4c 45 58 22 0d 0d 53  65 74 20 74 68 65 20 21  |FLEX"..Set the !|
00000ca0  42 4f 4f 54 20 66 69 6c  65 20 74 6f 20 61 75 74  |BOOT file to aut|
00000cb0  6f 20 65 78 65 63 75 74  65 20 77 69 74 68 20 2a  |o execute with *|
00000cc0  4f 50 54 20 34 2c 33 0d  0d 48 69 74 20 53 48 49  |OPT 4,3..Hit SHI|
00000cd0  46 54 2f 42 52 45 41 4b  20 74 6f 20 73 74 61 72  |FT/BREAK to star|
00000ce0  74 20 75 70 20 61 6e 64  20 68 69 74 20 74 68 65  |t up and hit the|
00000cf0  20 52 45 54 55 52 4e 20  6b 65 79 20 74 6f 20 73  | RETURN key to s|
00000d00  63 72 6f 6c 6c 20 74 68  65 20 6d 65 6e 75 0d 6c  |croll the menu.l|
00000d10  65 66 74 2e 20 48 69 74  20 4a 20 66 6f 72 20 74  |eft. Hit J for t|
00000d20  68 65 20 41 64 6a 75 73  74 20 44 61 74 61 20 70  |he Adjust Data p|
00000d30  72 6f 67 72 61 6d 20 61  6e 64 20 74 68 65 6e 20  |rogram and then |
00000d40  73 65 74 20 74 68 65 20  63 6f 72 72 65 63 74 20  |set the correct |
00000d50  64 61 74 65 20 61 6e 64  0d 79 65 61 72 2e 20 48  |date and.year. H|
00000d60  69 74 20 27 4e 27 65 77  20 69 74 65 6d 20 26 20  |it 'N'ew item & |
00000d70  61 20 6c 69 73 74 20 6f  66 20 32 31 20 70 61 79  |a list of 21 pay|
00000d80  6d 65 6e 74 20 73 6c 6f  74 73 20 69 73 20 64 69  |ment slots is di|
00000d90  73 70 6c 61 79 65 64 2c  20 74 68 65 20 66 69 72  |splayed, the fir|
00000da0  73 74 0d 66 6f 75 72 20  26 20 74 68 65 20 6c 61  |st.four & the la|
00000db0  73 74 20 74 77 6f 20 79  6f 75 20 63 61 6e 27 74  |st two you can't|
00000dc0  20 61 6c 74 65 72 2c 20  74 68 65 20 63 68 65 71  | alter, the cheq|
00000dd0  75 65 20 6e 75 6d 62 65  72 20 61 75 74 6f 6d 61  |ue number automa|
00000de0  74 69 63 61 6c 6c 79 20  75 70 0d 64 61 74 65 73  |tically up.dates|
00000df0  20 65 61 63 68 20 74 69  6d 65 20 79 6f 75 20 75  | each time you u|
00000e00  73 65 20 61 20 63 68 65  71 75 65 2e 20 54 68 65  |se a cheque. The|
00000e10  72 65 20 61 72 65 20 74  77 6f 20 73 6c 6f 74 73  |re are two slots|
00000e20  20 66 6f 72 20 73 61 6c  61 72 69 65 73 2f 77 61  | for salaries/wa|
00000e30  67 65 73 2c 0d 69 66 20  79 6f 75 20 61 72 65 20  |ges,.if you are |
00000e40  61 20 67 72 61 62 62 69  6e 67 20 67 69 74 20 61  |a grabbing git a|
00000e50  6e 64 20 79 6f 75 20 61  6e 64 20 79 6f 75 72 20  |nd you and your |
00000e60  6f 74 68 65 72 20 68 61  6c 66 20 68 61 76 65 20  |other half have |
00000e70  66 75 6c 6c 20 61 6e 64  20 70 61 72 74 0d 74 69  |full and part.ti|
00000e80  6d 65 20 6a 6f 62 73 2c  20 65 78 69 74 20 74 68  |me jobs, exit th|
00000e90  69 73 20 72 6f 75 74 69  6e 65 20 61 6e 64 20 68  |is routine and h|
00000ea0  69 74 20 27 44 27 20 74  6f 20 63 68 61 6e 67 65  |it 'D' to change|
00000eb0  20 74 68 65 20 6e 75 6d  62 65 72 20 6f 66 20 73  | the number of s|
00000ec0  6c 6f 74 73 2e 20 47 6f  0d 62 61 63 6b 20 74 6f  |lots. Go.back to|
00000ed0  20 27 4e 27 65 77 20 69  74 65 6d 20 61 6e 64 20  | 'N'ew item and |
00000ee0  73 74 61 72 74 69 6e 67  20 77 69 74 68 20 4e 6f  |starting with No|
00000ef0  2e 34 20 67 6f 20 6f 6e  20 74 6f 20 74 68 65 20  |.4 go on to the |
00000f00  70 61 79 6d 65 6e 74 20  6d 65 6e 75 2e 20 46 6f  |payment menu. Fo|
00000f10  72 20 61 0d 63 6f 6e 74  69 6e 75 6f 75 73 20 70  |r a.continuous p|
00000f20  61 79 6d 65 6e 74 2c 20  62 65 20 69 74 20 62 79  |ayment, be it by|
00000f30  20 74 68 65 20 77 65 65  6b 2c 20 66 6f 72 74 6e  | the week, fortn|
00000f40  69 67 68 74 20 6f 72 20  6d 6f 6e 74 68 2c 20 6c  |ight or month, l|
00000f50  65 61 76 65 20 74 68 65  20 4e 6f 2e 0d 6f 66 20  |eave the No..of |
00000f60  70 61 79 6d 65 6e 74 73  20 61 73 20 5a 65 72 6f  |payments as Zero|
00000f70  2c 20 6a 75 73 74 20 68  61 76 65 20 61 20 6e 6f  |, just have a no|
00000f80  72 6d 61 6c 20 70 61 79  6d 65 6e 74 20 76 61 6c  |rmal payment val|
00000f90  75 65 2e 20 4e 65 78 74  20 68 69 74 20 27 42 27  |ue. Next hit 'B'|
00000fa0  61 6e 6b 0d 61 63 63 6f  75 6e 74 20 70 72 6f 67  |ank.account prog|
00000fb0  72 61 6d 20 61 6e 64 20  6e 6f 77 20 75 73 69 6e  |ram and now usin|
00000fc0  67 20 27 54 27 72 61 6e  73 66 65 72 20 70 75 74  |g 'T'ransfer put|
00000fd0  20 69 6e 20 74 68 65 20  6f 70 65 6e 69 6e 67 20  | in the opening |
00000fe0  62 61 6c 61 6e 63 65 2e  20 4e 65 78 74 0d 68 69  |balance. Next.hi|
00000ff0  74 20 27 56 27 6f 69 64  20 63 68 65 71 75 65 20  |t 'V'oid cheque |
00001000  61 6e 64 20 70 75 74 20  69 6e 20 79 6f 75 72 20  |and put in your |
00001010  6e 65 78 74 20 63 68 65  71 75 65 20 6e 75 6d 62  |next cheque numb|
00001020  65 72 2c 20 6e 6f 77 20  79 6f 75 20 61 72 65 20  |er, now you are |
00001030  73 65 74 20 75 70 0d 74  6f 20 75 73 65 20 27 43  |set up.to use 'C|
00001040  48 45 51 55 45 20 41 43  43 4f 55 4e 54 27 2e 0d  |HEQUE ACCOUNT'..|
00001050  0d 4f 74 68 65 72 20 66  61 63 69 6c 69 74 69 65  |.Other facilitie|
00001060  73 20 2d 0d 0d 50 72 69  6e 74 20 61 20 73 74 61  |s -..Print a sta|
00001070  74 65 6d 65 6e 74 20 20  20 20 20 20 20 20 20 20  |tement          |
00001080  20 28 70 72 69 6e 74 73  20 6e 6f 72 6d 61 6c 6c  | (prints normall|
00001090  79 20 6c 61 73 74 20 35  30 20 74 72 61 6e 73 61  |y last 50 transa|
000010a0  63 74 69 6f 6e 73 29 0d  4c 69 73 74 20 73 69 6d  |ctions).List sim|
000010b0  69 6c 61 72 20 74 72 61  6e 73 61 63 74 69 6f 6e  |ilar transaction|
000010c0  73 20 20 20 28 61 6c 6c  20 61 72 65 20 69 6e 20  |s   (all are in |
000010d0  61 20 6c 69 6e 6b 65 64  20 6c 69 73 74 2e 20 49  |a linked list. I|
000010e0  6e 64 69 76 69 64 75 61  6c 20 63 68 65 71 75 65  |ndividual cheque|
000010f0  73 0d 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |s.              |
00001100  20 20 20 20 20 20 20 20  20 20 20 20 20 20 61 6e  |              an|
00001110  64 20 56 69 73 61 20 70  61 79 6d 65 6e 74 73 20  |d Visa payments |
00001120  6d 61 79 20 62 65 20 64  69 73 70 6c 61 79 65 64  |may be displayed|
00001130  29 0d 43 68 61 6e 67 65  20 74 68 65 20 63 75 72  |).Change the cur|
00001140  72 65 6e 74 20 63 68 65  71 75 65 20 6e 75 6d 62  |rent cheque numb|
00001150  65 72 0d 41 6c 74 65 72  20 6e 75 6d 62 65 72 20  |er.Alter number |
00001160  6f 66 20 70 61 79 6d 65  6e 74 20 73 6c 6f 74 73  |of payment slots|
00001170  0d 44 65 6c 65 74 65 20  61 6e 20 69 74 65 6d 20  |.Delete an item |
00001180  69 66 20 79 6f 75 20 6d  61 6b 65 20 61 20 6d 69  |if you make a mi|
00001190  73 74 61 6b 65 20 6f 72  20 63 61 6e 63 65 6c 20  |stake or cancel |
000011a0  61 20 63 68 65 71 75 65  0d 41 64 64 20 6f 72 20  |a cheque.Add or |
000011b0  64 65 64 75 63 74 20 69  6e 74 65 72 65 73 74 20  |deduct interest |
000011c0  6f 72 20 63 68 61 72 67  65 73 0d 43 68 61 6e 67  |or charges.Chang|
000011d0  65 2c 20 61 64 64 20 6f  72 20 64 65 6c 65 74 65  |e, add or delete|
000011e0  20 61 75 74 6f 6d 61 74  69 63 20 70 61 79 6d 65  | automatic payme|
000011f0  6e 74 73 0d 50 6c 61 6e  20 66 69 6e 61 6e 63 65  |nts.Plan finance|
00001200  73 20 61 68 65 61 64 0d  0d 49 66 20 61 6e 79 62  |s ahead..If anyb|
00001210  6f 64 79 20 77 61 6e 74  73 20 61 6e 79 20 6f 66  |ody wants any of|
00001220  20 74 68 65 20 65 61 72  6c 69 65 72 20 74 61 70  | the earlier tap|
00001230  65 64 20 62 61 73 65 64  20 76 65 72 73 69 6f 6e  |ed based version|
00001240  73 20 70 6c 65 61 73 65  20 67 65 74 20 69 6e 0d  |s please get in.|
00001250  74 6f 75 63 68 20 77 69  74 68 20 6d 65 20 64 69  |touch with me di|
00001260  72 65 63 74 6c 79 20 61  6e 64 20 49 20 77 69 6c  |rectly and I wil|
00001270  6c 20 70 72 6f 76 69 64  65 20 74 68 65 6d 20 69  |l provide them i|
00001280  66 20 61 20 74 61 70 65  20 61 6e 64 20 70 6f 73  |f a tape and pos|
00001290  74 20 26 0d 70 61 63 6b  69 6e 67 20 61 72 65 20  |t &.packing are |
000012a0  73 75 70 70 6c 69 65 64  2e 20 4d 79 20 61 64 64  |supplied. My add|
000012b0  72 65 73 73 20 69 73 20  61 73 20 66 6f 6c 6c 6f  |ress is as follo|
000012c0  77 73 20 2d 0d 0d 4d 72  20 4d 20 43 6f 6d 6c 65  |ws -..Mr M Comle|
000012d0  79 0d 36 20 42 75 74 74  65 72 6d 65 72 65 0d 4c  |y.6 Buttermere.L|
000012e0  6f 76 65 20 4c 61 6e 65  0d 46 61 76 65 72 73 68  |ove Lane.Faversh|
000012f0  61 6d 0d 4b 65 6e 74 0d  4d 45 31 33 20 38 4a 46  |am.Kent.ME13 8JF|
00001300  0d 0d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..--------------|
00001310  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001340  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 4d 69 63 6b  |-----------.Mick|
00001350  20 43 6f 6d 6c 65 79 20  20 20 20 20 20 20 20 20  | Comley         |
00001360  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001370  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 46  |               F|
00001380  61 76 65 72 73 68 61 6d  20 30 31 37 39 35 20 35  |aversham 01795 5|
00001390  33 31 32 38 35 0d 36 20  42 75 74 74 65 72 6d 65  |31285.6 Butterme|
000013a0  72 65 0d 4c 6f 76 65 20  4c 61 6e 65 0d 46 61 76  |re.Love Lane.Fav|
000013b0  65 72 73 68 61 6d 0d 4b  65 6e 74 0d 4d 45 31 33  |ersham.Kent.ME13|
000013c0  20 38 55 44 0d 0d 57 41  4e 54 45 44 20 2d 2d 2d  | 8UD..WANTED ---|
000013d0  20 50 52 45 53 20 41 64  76 61 6e 63 65 64 20 42  | PRES Advanced B|
000013e0  61 73 69 63 20 45 64 69  74 6f 72 20 72 6f 6d 20  |asic Editor rom |
000013f0  26 20 6d 61 6e 75 61 6c  0d 0d 46 4f 52 20 53 41  |& manual..FOR SA|
00001400  4c 45 20 2d 20 42 42 43  20 4d 61 73 74 65 72 20  |LE - BBC Master |
00001410  2b 20 74 77 69 6e 20 35  2e 32 35 20 44 69 73 6b  |+ twin 5.25 Disk|
00001420  20 64 72 69 76 65 20 62  72 69 64 67 65 20 75 6e  | drive bridge un|
00001430  69 74 20 2b 20 5a 65 6e  69 74 68 20 31 32 22 0d  |it + Zenith 12".|
00001440  20 20 20 20 20 20 20 20  20 20 20 47 72 65 65 6e  |           Green|
00001450  20 73 63 72 65 65 6e 20  6d 6f 6e 69 74 6f 72 20  | screen monitor |
00001460  2b 20 52 6f 6d 73 20 2b  20 4d 61 6e 75 61 6c 73  |+ Roms + Manuals|
00001470  20 2b 20 70 72 69 6e 74  65 72 20 2b 20 73 6f 66  | + printer + sof|
00001480  74 77 61 72 65 20 6f 6e  0d 20 20 20 20 20 20 20  |tware on.       |
00001490  20 20 20 20 64 69 73 63  20 60 31 37 30 20 6f 6e  |    disc `170 on|
000014a0  6f 2e 20 42 75 79 65 72  20 63 6f 6c 6c 65 63 74  |o. Buyer collect|
000014b0  73 0d 0d 20 20 20 20 20  20 20 20 20 20 20 4d 69  |s..           Mi|
000014c0  63 72 6f 6c 69 6e 65 20  75 38 33 61 20 39 20 70  |croline u83a 9 p|
000014d0  69 6e 20 77 69 64 65 20  63 61 72 72 69 61 67 65  |in wide carriage|
000014e0  20 70 72 69 6e 74 65 72  20 43 65 6e 74 72 6f 6e  | printer Centron|
000014f0  69 63 20 26 20 52 53 32  33 32 0d 20 20 20 20 20  |ic & RS232.     |
00001500  20 20 20 20 20 20 70 6f  72 74 73 20 2b 20 70 61  |      ports + pa|
00001510  70 65 72 20 2b 20 73 74  61 6e 64 20 60 33 30 20  |per + stand `30 |
00001520  62 75 79 65 72 20 63 6f  6c 6c 65 63 74 73 2e 0d  |buyer collects..|
00001530  0d 20 20 20 20 20 20 20  20 20 20 20 41 6d 73 74  |.           Amst|
00001540  72 61 64 20 50 43 31 35  31 32 53 44 20 68 61 72  |rad PC1512SD har|
00001550  64 20 64 72 69 76 65 20  2b 20 54 77 69 6e 20 35  |d drive + Twin 5|
00001560  2e 32 35 20 64 69 73 63  20 64 72 69 76 65 73 20  |.25 disc drives |
00001570  2b 20 4d 61 6e 75 61 6c  73 20 2b 0d 20 20 20 20  |+ Manuals +.    |
00001580  20 20 20 20 20 20 20 73  6f 66 74 77 61 72 65 20  |       software |
00001590  69 6e 63 6c 75 64 69 6e  67 20 52 6f 75 74 65 20  |including Route |
000015a0  66 69 6e 64 65 72 2e 20  60 31 30 30 20 6f 6e 6f  |finder. `100 ono|
000015b0  2e 20 42 75 79 65 72 20  63 6f 6c 6c 65 63 74 73  |. Buyer collects|
000015c0  0d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.---------------|
000015d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001600  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 0d           |-----------..|
0000160d

P/C/GUFF.m0

P/C/GUFF.m1

P/C/GUFF.m2

P/C/GUFF.m4

P/C/GUFF.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .