Another aside, I’m writing these little routines straight off the top
of my head, so they are untested and there are liable to be bugs or syntax
errors, so, for any mistakes, you have my apologies, and if you care to write
a complete database handler (without mistakes) from these routines we may well
publish it. Anyway the sequential file alphabetical update:
10 OPEN "I",£1, "FRED.NDX"
20 OPEN "0",£2,"FRED1.NDX"
30 IF EOF(1) THEN 60
40 INPUTS1, J$
50 IF J$ <= I$ THEN PRINT£2,J$: GOTO 30
60 I1$=SPACE$(4): LSET I1$=STRS(I): I$=I$+11$
7O PRINTE£2, I$
80 IF NOT EOF(1) THEN PRINTS£2, J$
90 IF EOF(1) THEN 110
100 INPUT£1,J$: PRINT£2,J$: GOTO 90
120 KILL “FRED.NDX": NAME "FRED1.NDX" AS "FRED.NDX"
Now a number of different ways of doing this is possible. This routine uses
two loops, but it is entirely possible to make the routine smaller using one
loop and a flag, or flag out the J$ <= I$ test after the insertion has
occurred. There are lots of ways of doing this, it just depends on what grabs
you at the time. The nett result is a new file FRED.NDX with the new I$
inserted at the appropriate place.
The final aside for this time, I’ve just phoned Paul and he says he
wants this stuff by tomorrow lunch time (otherwise he won’t pay for lunch),
and as it’s five past midnight I’l have to draw the line here:
Pre Lr mma nn a a a a a a ae a a oe
QF000000000000000000SSSSSCSOHEOESOOOEOOSO OOO OSEOSOSSHSOOSOODOOOOHSHOOHOOOHOOOOSO
EV666 Real Time Clock for Gemini IVC Monday 25/07/83 11:31.14
CAN YOUR GEMINI I.V.C. TELL THE TIME (and date) ? EV
– on screen clock display – return data to host – software selectable formats – –
– years – months – date – day – hours – minutes – seconds – tenths of seconds – RT
– battery backed CMOS RAM (total 128 bytes) – extra IVC commands such as –
– return bit pattern of a character – single byte cursor home (control 0) – .
– extensive documentation and software in ROM – supplied built and tested – Manual available
– All this for a measly £ 62.50 + VAT – separately £2.00
– Software demo disk available (for MBASIC + CP/M,specify format) £5.00 + VAT – Refundable upon
* * * Printed with a ‘Screen Dump’ * * * purchase.
The £V667 ‘Bleep’ is a useful accessory for the GM812 I.V.C. or Nascom 2. The sound
has four adjustable parameters and is triggered by an ASCII BELL control code
blee (CHR$(7)). Designed using low power CMOS logic and the latest piezo-ceramic
transducer, the board measures 66x37x11 mm. Quickly and easily fitted with only
three wires qiving a low profile assembly. £ 12.50 + VAL
The EV814 IEEE 488 bus controller card meets 80-BUS and NASBUS
specifications to provide a low cost method of using IEEE and GPIB bus
IEEE 488 devices. The application is not limited to automatic test equipment,
fast data transfer, multiple printers or data collection. Multiple
boards have been used to construct Network systems which rival the speed of twisted pair networks
with inherent collision detection and interrupt type protocols, with multiple printers attached to
the Bus. Resident software support for this card is in the form of a 4K byte Bus Operating System
contained in Page-Moded EPROM coupled into system memory by a reserved area of memory. This card
costs £140.00 plus VAT. Other related products: Software utility disk £ 10.00+VAT includes B.0.5S.
source. Paper listing of B.0.S. is £ 10.00 (a lot of paper, so no VAT). The hardware and software
manuals are available for £5.00 each (no VAT).
Please add £1.00 to cover
postage and packing.
700, Burnage lane, Burnage, Manchester, M19 INA. Telephone 061-431-4866
GOOOOHSOSS OOS OOOH OOOO OSOHHOOSOOSOOSOOHEOOOOHCO
OTA gM AMER A PELE ERS WURL ES BENG em ACE Toa ei an er