80-Bus News

  

September-October 1983, Volume 2, Issue 5











Page 65 of 67











samyerrornpminviescenenn

65

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 110 CLOSE 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 e

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 PSCSSOOSOSOSESEESESESOSOOSSHSSSOSOHSHSOOOSOSHSOSOSSSOSOOSOSSSSOSESESSCOSOOOSSNEOLS

GOOOOHSOSS OOS OOOH OOOO OSOHHOOSOOSOOSOOHEOOOOHCO

H

O0OCOOSSOCOOSOOHOOSENOOSEHSOSHHSOHHOOOSOHESOOSSOSOONNSOSEOS Ge0eeeeoeeeoes

OTA gM AMER A PELE ERS WURL ES BENG em ACE Toa ei an er


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 65 of 67