Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_31.ADF » P/+proc1
P/+proc1
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_31.ADF |
| Filename: | P/+proc1 |
| Read OK: | ✔ |
| File size: | 0761 bytes |
| Load address: | 2B206576 |
| Exec address: | 636F7270 |
File contents
Procedures. The principal program which follows is called !MAIN and comes directly from the pages of Electron User magazine. I don't really like having previously published things in EUG and I hope most members agree but in this case this program was the best for the purpose and it any case it is an excellent program. I have had a lot of discs donated to EUG over the past few years mostly from schools. I have been going through some of them trying to find anything which may interest EUG members. I have extracted a number of procedures from otherwise mundane programs and saved them onto a separate disc. The best of these are presented here. You can use them in your own programs as you need them. The database program is in two parts, !BOOT which sets the program up and !MAIN, the program itself. The program simply lists all the files which do not begin with ! You select the ones you want and the program will put them together for you, renumbering as required. Then all you need do is fill in the various calls to each procedure. The program does however need to work from its own disc so before you try it out copy the whole of directory D to another disc. I have several hundred discs now which I can never get through on my own. They are all 5.25" 40 track DFS. If you have a 5.25" drive capable of reading 40 track and you have DFS and you think you might fancy a pile of these discs write in and I will send you some. You are welcome to keep anything you find but if you think anything might be of interest to EUG members then please do send a copy to EUG. Send complete programs or as I have done here any interesting procedures. Note, your 5.25" drive will only read 40 track if it has a 40/80 track switch or if it was designed for 40 track in the first place. I won't be doing any checking up, I'll simply send you a pile of discs on trust is you as for some.
00000000 50 72 6f 63 65 64 75 72 65 73 2e 0d 0d 54 68 65 |Procedures...The| 00000010 20 70 72 69 6e 63 69 70 61 6c 20 70 72 6f 67 72 | principal progr| 00000020 61 6d 20 77 68 69 63 68 20 66 6f 6c 6c 6f 77 73 |am which follows| 00000030 20 69 73 20 63 61 6c 6c 65 64 20 21 4d 41 49 4e | is called !MAIN| 00000040 20 61 6e 64 20 63 6f 6d 65 73 20 64 69 72 65 63 | and comes direc| 00000050 74 6c 79 0d 66 72 6f 6d 20 74 68 65 20 70 61 67 |tly.from the pag| 00000060 65 73 20 6f 66 20 45 6c 65 63 74 72 6f 6e 20 55 |es of Electron U| 00000070 73 65 72 20 6d 61 67 61 7a 69 6e 65 2e 20 49 20 |ser magazine. I | 00000080 64 6f 6e 27 74 20 72 65 61 6c 6c 79 20 6c 69 6b |don't really lik| 00000090 65 20 68 61 76 69 6e 67 0d 70 72 65 76 69 6f 75 |e having.previou| 000000a0 73 6c 79 20 70 75 62 6c 69 73 68 65 64 20 74 68 |sly published th| 000000b0 69 6e 67 73 20 69 6e 20 45 55 47 20 61 6e 64 20 |ings in EUG and | 000000c0 49 20 68 6f 70 65 20 6d 6f 73 74 20 6d 65 6d 62 |I hope most memb| 000000d0 65 72 73 20 61 67 72 65 65 20 62 75 74 20 69 6e |ers agree but in| 000000e0 0d 74 68 69 73 20 63 61 73 65 20 74 68 69 73 20 |.this case this | 000000f0 70 72 6f 67 72 61 6d 20 77 61 73 20 74 68 65 20 |program was the | 00000100 62 65 73 74 20 66 6f 72 20 74 68 65 20 70 75 72 |best for the pur| 00000110 70 6f 73 65 20 61 6e 64 20 69 74 20 61 6e 79 20 |pose and it any | 00000120 63 61 73 65 20 69 74 20 69 73 0d 61 6e 20 65 78 |case it is.an ex| 00000130 63 65 6c 6c 65 6e 74 20 70 72 6f 67 72 61 6d 2e |cellent program.| 00000140 0d 0d 49 20 68 61 76 65 20 68 61 64 20 61 20 6c |..I have had a l| 00000150 6f 74 20 6f 66 20 64 69 73 63 73 20 64 6f 6e 61 |ot of discs dona| 00000160 74 65 64 20 74 6f 20 45 55 47 20 6f 76 65 72 20 |ted to EUG over | 00000170 74 68 65 20 70 61 73 74 20 66 65 77 20 79 65 61 |the past few yea| 00000180 72 73 20 6d 6f 73 74 6c 79 0d 66 72 6f 6d 20 73 |rs mostly.from s| 00000190 63 68 6f 6f 6c 73 2e 20 49 20 68 61 76 65 20 62 |chools. I have b| 000001a0 65 65 6e 20 67 6f 69 6e 67 20 74 68 72 6f 75 67 |een going throug| 000001b0 68 20 73 6f 6d 65 20 6f 66 20 74 68 65 6d 20 74 |h some of them t| 000001c0 72 79 69 6e 67 20 74 6f 20 66 69 6e 64 0d 61 6e |rying to find.an| 000001d0 79 74 68 69 6e 67 20 77 68 69 63 68 20 6d 61 79 |ything which may| 000001e0 20 69 6e 74 65 72 65 73 74 20 45 55 47 20 6d 65 | interest EUG me| 000001f0 6d 62 65 72 73 2e 20 49 20 68 61 76 65 20 65 78 |mbers. I have ex| 00000200 74 72 61 63 74 65 64 20 61 20 6e 75 6d 62 65 72 |tracted a number| 00000210 20 6f 66 0d 70 72 6f 63 65 64 75 72 65 73 20 66 | of.procedures f| 00000220 72 6f 6d 20 6f 74 68 65 72 77 69 73 65 20 6d 75 |rom otherwise mu| 00000230 6e 64 61 6e 65 20 70 72 6f 67 72 61 6d 73 20 61 |ndane programs a| 00000240 6e 64 20 73 61 76 65 64 20 74 68 65 6d 20 6f 6e |nd saved them on| 00000250 74 6f 20 61 20 73 65 70 61 72 61 74 65 0d 64 69 |to a separate.di| 00000260 73 63 2e 20 54 68 65 20 62 65 73 74 20 6f 66 20 |sc. The best of | 00000270 74 68 65 73 65 20 61 72 65 20 70 72 65 73 65 6e |these are presen| 00000280 74 65 64 20 68 65 72 65 2e 20 59 6f 75 20 63 61 |ted here. You ca| 00000290 6e 20 75 73 65 20 74 68 65 6d 20 69 6e 20 79 6f |n use them in yo| 000002a0 75 72 20 6f 77 6e 0d 70 72 6f 67 72 61 6d 73 20 |ur own.programs | 000002b0 61 73 20 79 6f 75 20 6e 65 65 64 20 74 68 65 6d |as you need them| 000002c0 2e 0d 0d 54 68 65 20 64 61 74 61 62 61 73 65 20 |...The database | 000002d0 70 72 6f 67 72 61 6d 20 69 73 20 69 6e 20 74 77 |program is in tw| 000002e0 6f 20 70 61 72 74 73 2c 20 21 42 4f 4f 54 20 77 |o parts, !BOOT w| 000002f0 68 69 63 68 20 73 65 74 73 20 74 68 65 20 70 72 |hich sets the pr| 00000300 6f 67 72 61 6d 20 75 70 20 61 6e 64 0d 21 4d 41 |ogram up and.!MA| 00000310 49 4e 2c 20 74 68 65 20 70 72 6f 67 72 61 6d 20 |IN, the program | 00000320 69 74 73 65 6c 66 2e 20 54 68 65 20 70 72 6f 67 |itself. The prog| 00000330 72 61 6d 20 73 69 6d 70 6c 79 20 6c 69 73 74 73 |ram simply lists| 00000340 20 61 6c 6c 20 74 68 65 20 66 69 6c 65 73 20 77 | all the files w| 00000350 68 69 63 68 20 64 6f 0d 6e 6f 74 20 62 65 67 69 |hich do.not begi| 00000360 6e 20 77 69 74 68 20 21 20 59 6f 75 20 73 65 6c |n with ! You sel| 00000370 65 63 74 20 74 68 65 20 6f 6e 65 73 20 79 6f 75 |ect the ones you| 00000380 20 77 61 6e 74 20 61 6e 64 20 74 68 65 20 70 72 | want and the pr| 00000390 6f 67 72 61 6d 20 77 69 6c 6c 20 70 75 74 0d 74 |ogram will put.t| 000003a0 68 65 6d 20 74 6f 67 65 74 68 65 72 20 66 6f 72 |hem together for| 000003b0 20 79 6f 75 2c 20 72 65 6e 75 6d 62 65 72 69 6e | you, renumberin| 000003c0 67 20 61 73 20 72 65 71 75 69 72 65 64 2e 20 54 |g as required. T| 000003d0 68 65 6e 20 61 6c 6c 20 79 6f 75 20 6e 65 65 64 |hen all you need| 000003e0 20 64 6f 20 69 73 0d 66 69 6c 6c 20 69 6e 20 74 | do is.fill in t| 000003f0 68 65 20 76 61 72 69 6f 75 73 20 63 61 6c 6c 73 |he various calls| 00000400 20 74 6f 20 65 61 63 68 20 70 72 6f 63 65 64 75 | to each procedu| 00000410 72 65 2e 0d 0d 54 68 65 20 70 72 6f 67 72 61 6d |re...The program| 00000420 20 64 6f 65 73 20 68 6f 77 65 76 65 72 20 6e 65 | does however ne| 00000430 65 64 20 74 6f 20 77 6f 72 6b 20 66 72 6f 6d 20 |ed to work from | 00000440 69 74 73 20 6f 77 6e 20 64 69 73 63 20 73 6f 20 |its own disc so | 00000450 62 65 66 6f 72 65 20 79 6f 75 20 74 72 79 0d 69 |before you try.i| 00000460 74 20 6f 75 74 20 63 6f 70 79 20 74 68 65 20 77 |t out copy the w| 00000470 68 6f 6c 65 20 6f 66 20 64 69 72 65 63 74 6f 72 |hole of director| 00000480 79 20 44 20 74 6f 20 61 6e 6f 74 68 65 72 20 64 |y D to another d| 00000490 69 73 63 2e 0d 0d 49 20 68 61 76 65 20 73 65 76 |isc...I have sev| 000004a0 65 72 61 6c 20 68 75 6e 64 72 65 64 20 64 69 73 |eral hundred dis| 000004b0 63 73 20 6e 6f 77 20 77 68 69 63 68 20 49 20 63 |cs now which I c| 000004c0 61 6e 20 6e 65 76 65 72 20 67 65 74 20 74 68 72 |an never get thr| 000004d0 6f 75 67 68 20 6f 6e 20 6d 79 20 6f 77 6e 2e 0d |ough on my own..| 000004e0 54 68 65 79 20 61 72 65 20 61 6c 6c 20 35 2e 32 |They are all 5.2| 000004f0 35 22 20 34 30 20 74 72 61 63 6b 20 44 46 53 2e |5" 40 track DFS.| 00000500 20 49 66 20 79 6f 75 20 68 61 76 65 20 61 20 35 | If you have a 5| 00000510 2e 32 35 22 20 64 72 69 76 65 20 63 61 70 61 62 |.25" drive capab| 00000520 6c 65 20 6f 66 0d 72 65 61 64 69 6e 67 20 34 30 |le of.reading 40| 00000530 20 74 72 61 63 6b 20 61 6e 64 20 79 6f 75 20 68 | track and you h| 00000540 61 76 65 20 44 46 53 20 61 6e 64 20 79 6f 75 20 |ave DFS and you | 00000550 74 68 69 6e 6b 20 79 6f 75 20 6d 69 67 68 74 20 |think you might | 00000560 66 61 6e 63 79 20 61 20 70 69 6c 65 20 6f 66 0d |fancy a pile of.| 00000570 74 68 65 73 65 20 64 69 73 63 73 20 77 72 69 74 |these discs writ| 00000580 65 20 69 6e 20 20 61 6e 64 20 49 20 77 69 6c 6c |e in and I will| 00000590 20 73 65 6e 64 20 79 6f 75 20 73 6f 6d 65 2e 20 | send you some. | 000005a0 59 6f 75 20 61 72 65 20 77 65 6c 63 6f 6d 65 20 |You are welcome | 000005b0 74 6f 20 6b 65 65 70 0d 61 6e 79 74 68 69 6e 67 |to keep.anything| 000005c0 20 79 6f 75 20 66 69 6e 64 20 62 75 74 20 69 66 | you find but if| 000005d0 20 79 6f 75 20 74 68 69 6e 6b 20 61 6e 79 74 68 | you think anyth| 000005e0 69 6e 67 20 6d 69 67 68 74 20 62 65 20 6f 66 20 |ing might be of | 000005f0 69 6e 74 65 72 65 73 74 20 74 6f 20 45 55 47 0d |interest to EUG.| 00000600 6d 65 6d 62 65 72 73 20 74 68 65 6e 20 70 6c 65 |members then ple| 00000610 61 73 65 20 64 6f 20 73 65 6e 64 20 61 20 63 6f |ase do send a co| 00000620 70 79 20 74 6f 20 45 55 47 2e 20 53 65 6e 64 20 |py to EUG. Send | 00000630 63 6f 6d 70 6c 65 74 65 20 70 72 6f 67 72 61 6d |complete program| 00000640 73 20 6f 72 20 61 73 20 49 0d 68 61 76 65 20 64 |s or as I.have d| 00000650 6f 6e 65 20 68 65 72 65 20 61 6e 79 20 69 6e 74 |one here any int| 00000660 65 72 65 73 74 69 6e 67 20 70 72 6f 63 65 64 75 |eresting procedu| 00000670 72 65 73 2e 0d 0d 4e 6f 74 65 2c 20 79 6f 75 72 |res...Note, your| 00000680 20 35 2e 32 35 22 20 64 72 69 76 65 20 77 69 6c | 5.25" drive wil| 00000690 6c 20 6f 6e 6c 79 20 72 65 61 64 20 34 30 20 74 |l only read 40 t| 000006a0 72 61 63 6b 20 69 66 20 69 74 20 68 61 73 20 61 |rack if it has a| 000006b0 20 34 30 2f 38 30 20 74 72 61 63 6b 0d 73 77 69 | 40/80 track.swi| 000006c0 74 63 68 20 6f 72 20 69 66 20 69 74 20 77 61 73 |tch or if it was| 000006d0 20 64 65 73 69 67 6e 65 64 20 66 6f 72 20 34 30 | designed for 40| 000006e0 20 74 72 61 63 6b 20 69 6e 20 74 68 65 20 66 69 | track in the fi| 000006f0 72 73 74 20 70 6c 61 63 65 2e 20 49 20 77 6f 6e |rst place. I won| 00000700 27 74 20 62 65 0d 64 6f 69 6e 67 20 61 6e 79 20 |'t be.doing any | 00000710 63 68 65 63 6b 69 6e 67 20 75 70 2c 20 49 27 6c |checking up, I'l| 00000720 6c 20 73 69 6d 70 6c 79 20 73 65 6e 64 20 79 6f |l simply send yo| 00000730 75 20 61 20 70 69 6c 65 20 6f 66 20 64 69 73 63 |u a pile of disc| 00000740 73 20 6f 6e 20 74 72 75 73 74 20 69 73 0d 79 6f |s on trust is.yo| 00000750 75 20 61 73 20 66 6f 72 20 73 6f 6d 65 2e 0d 0d |u as for some...| 00000760 0d |.| 00000761
P/+proc1.m0
P/+proc1.m1
P/+proc1.m2
P/+proc1.m4
P/+proc1.m5
.