///////////////////////////////////////////////////////////////////////// // BBNOTES.SLT - by Terry Robertson (October 1988) // // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ // // // // This script holds further details of the UK bulletin boards which // // are included in my Dialling Directory UKBBTEL3.FON. It contains // // the following information: // // The name of each board's SysOp // // Netmail Node number where applicable // // Operating hours // // An area for notes on each board // // // // The format of this file is fairly self-explanatory. If you want // // to alter any of the information or to enter your own notes, simply // // go to the DATA AREA and make your changes. The "#" markers at the // // top of that section indicate where the various fields start and // // end. You must keep each line the same length as the samples and // // each line must end in a ";". // // // // This script is most useful when it is "attached" to a function key // // so that it may be called up quickly when required. // // // ///////////////////////////////////////////////////////////////////////// str entry[10] = "ENTRY No. "; str sysop[34] = "SYSOP'S NAME "; str node[22] = "NETMAIL NODE "; str wdhrs[24] = "WEEKDAY HOURS "; str wehrs[24] = "WEEKEND HOURS "; str notes[51] = "OTHER NOTES "; str exit[] = "To exit press escape or enter"; str sname[19]; str snode[7]; str swdhrs[9]; str swehrs[9]; str snotes[36]; str data[80]; str dnum[3]; str endc[1]; //////////////////////////////// DATA AREA //////////////////////////////////////////////////// // HOURS / //////////////// # SYSOP'S NAME # NODE # WKDAY # WKEND # NOTES # str data1[] = "Tony Miller None 2100-100024Hrs Amiga/ST/BBC "; str data2[] = "Ric Beck None 2200-08002200-0800 "; str data3[] = "Joe Brouillard None 24 Hrs 24 Hrs US SysOp. Huge file base "; str data4[] = "John Kelly None 24 Hrs 24 Hrs PC/BBC/Atari. Area for OU students "; str data5[] = "Paul Camilleri None 2200-09002200-0900Mainly ST. Atlas Computer Supplies "; str data6[] = "Eric Sparrow 257/8 Offline 24 Hrs TRS/BBC/PC/CPM "; str data7[] = "Adrian Pop 258/23 24 Hrs 24 Hrs Most machines supported "; str data8[] = "Jon Brooks None 24 Hrs 24 Hrs Subscription for full access "; str data9[] = "Alan Solomon 254/29 24 Hrs 24 Hrs PC oriented. Famous problem clinic "; str data10[] = "David Jupe None 1900-2100Offline "; str data12[] = "Jeremy Goslin None 2300-08002300-0800Mainly ST "; str data13[] = "Robert Walker None 24 Hrs 24 Hrs BBC/CBM/Amstrad "; str data14[] = "Keith Bloom None 1800-080024 Hrs Amiga oriented "; str data18[] = "Mike Jones None 24 Hrs 24 Hrs Apple support "; str data19[] = "Tom Todd None 24 Hrs 24 Hrs PC/Amstrad PCW "; str data20[] = "David Joyce None 1800-080024 Hrs "; str data21[] = "Andrew Stephens None 24 Hrs 24 Hrs The Emperor's Board "; str data22[] = "Graham Denham 253/94 24 Hrs 24 Hrs Radioactivity monitoring "; str data23[] = "James Bastable None 24 Hrs 24 Hrs Mainly Atari 8-bit machines "; str data24[] = "Tony Moran None 24 Hrs 24 Hrs "; str data25[] = "Dave Gorski None 24 Hrs 24 Hrs Amstrad/Spectrum "; str data26[] = "Stephen Baird 259/6 24 Hrs 24 Hrs ST oriented "; str data27[] = "John Krzesinski 253/19224 Hrs 24 Hrs Apricot Technical Support BB/PC "; str data29[] = "Anthony Carr-Smith None 24 Hrs 24 Hrs "; str data30[] = "Tony Game None 24 Hrs 24 Hrs "; str data31[] = "Nik Middleton 253/11424 Hrs 24 Hrs Two lines. UK Net co-ordinator "; str data32[] = "Darren Soothill None 24 Hrs 24 Hrs "; str data33[] = "John Barton 254/1681930-080024 Hrs "; str data34[] = "Graham Butler 257/52 24 Hrs 24 Hrs Mainly PC "; str data35[] = "Bill Weir None Offline Offline Mainly PC "; str data36[] = "Jon Dunster 251/10124 Hrs 24 Hrs OS9 Support/PC/ST/Dragon/Amstrad "; str data37[] = "Andy Shears 258/14 24 Hrs 24 Hrs "; str data39[] = "Hugh Allan None 24 Hrs 24 Hrs "; str data40[] = "Mike Montgomery None 24 Hrs 24 Hrs ST/Amiga/PC "; str data41[] = "Terry Dansy None 24 Hrs 24 Hrs "; str data42[] = "Bob Baal 258/3 24 Hrs 24 Hrs "; str data43[] = "Henry McAleer None 24 Hrs 24 Hrs Medical topics "; str data45[] = "Jeremy Browne None 24 Hrs 24 Hrs Brit Osborne Owners Club/PC/ST/CPM "; str data46[] = "S Hussein None 24 Hrs 24 Hrs BBC oriented "; str data47[] = "Stewart Roberts 257/17724 Hrs 24 Hrs "; str data48[] = "Jim Hamilton None 24 Hrs 24 Hrs "; str data49[] = "Mike McAree 253/1881900-070024 Hrs "; str data50[] = "Paul Fletcher None 24 Hrs 24 Hrs "; str data51[] = "Noel Bradford None 24 Hrs 24 Hrs Mainly PC "; str data52[] = "Mike Rouse None 24 Hrs 24 Hrs PC/ST/Amiga "; str data53[] = "Mike Langensiepen None 1800-090024 Hrs PC/Amiga "; str data54[] = "Nik Middleton None 24 Hrs 24 Hrs "; str data55[] = "Martin Fleming None 24 Hrs 24 Hrs Mainly ST "; str data56[] = "Steve Thomas None 1800-080024 Hrs Welsh for Wild Cat "; str data57[] = "Mike Corby 253/27 24 Hrs 24 Hrs PC/ST/BBC/Mac/CPM/Amstrad "; str data58[] = "Mick Coleman None 24 Hrs 24 Hrs Atari oriented "; str data59[] = "Steve Adams None 24 Hrs 24 Hrs Mainly Spectrum "; str data60[] = "Martin Huelin 252/15124 Hrs 24 Hrs PC/BBC/CPM "; str data61[] = "Lindsay Reid 257/2 24 Hrs 24 Hrs 386cpu with 130MB disk storage "; str data63[] = "Paul Shenton 258/42 1900-090024 Hrs PC/ST/Amiga/BBC/CPM "; str data64[] = "Colin Earl None 24 Hrs 24 Hrs PC/BBC/Atari/Amstrad PCW "; str data65[] = "Frank Thornley None 24 Hrs 24 Hrs Conferencing; Subscription required "; str data66[] = "Clara Jane Hoare 255/11 24 Hrs 24 Hrs "; str data67[] = "Howard Grahame None 24 Hrs 24 Hrs PC/Amstrad/BBC/CBM/Amiga/Atari "; str data68[] = "Grant McDonald None 2000-090024 Hrs "; str data69[] = "Len Burch 254/16524 Hrs 24 Hrs "; str data70[] = "John Mileham 254/16324 Hrs 24 Hrs "; str data71[] = "Geoff Wade 254/16724 Hrs 24 Hrs PC/BBC "; str data72[] = "Frank Dent 254/16624 Hrs 24 Hrs "; str data73[] = "Mike Tew 254/83 24 Hrs 24 Hrs PC/BBC "; str data74[] = "Peter Bowyer 257/17624 Hrs 24 Hrs "; str data75[] = "David Melville 253/11124 Hrs 24 Hrs "; str data76[] = "Robin Lamming None 2400-08002100-0800 "; str data77[] = "Felix Harrigan 254/12824 Hrs 24 Hrs "; str data78[] = "Daren Ingram None 24 Hrs 24 Hrs "; str data79[] = "Peter Catley None 24 Hrs 24 Hrs Runs CPM library "; str data80[] = "Steve Carter None 1900-07001900-0700 "; str data81[] = "Not Known None 24 Hrs 24 Hrs General interest/Apple/PC "; str data82[] = "Andy Clark 253/19 24 Hrs 24 Hrs "; str data84[] = "Simon Meldrum None 24 Hrs 24 Hrs "; str data85[] = "S Thurlassingham None 24 Hrs 24 Hrs PC/Atari/CPM "; str data86[] = "Leroy McFarlane 254/9 24 Hrs 24 Hrs "; str data87[] = "Paul Swift None 24 Hrs 24 Hrs Datatalk support/PC/Amiga/CPM "; str data88[] = "John Wilson 257/5 24 Hrs 24 Hrs Formerly Northampton Castle "; str data89[] = "Dave Pucknell 258/43 24 Hrs 24 Hrs "; str data90[] = "Richard Bowles None 1600-083024 Hrs "; str data91[] = "Bob Catt 257/88 24 Hrs 24 Hrs DEC oriented/PC "; str data92[] = "Gareth McLean None 24 Hrs 24 Hrs Subscription for full access/PC "; str data93[] = "Paul Hughes 253/18524 Hrs 24 Hrs Apple/PC "; str data94[] = "John Balshaw None 24 Hrs 24 Hrs ST/BBC/PC/Amstrad/Amiga/CBM "; str data95[] = "Clive Warner None 24 Hrs 24 Hrs PC/ST/Amstrad PCW "; str data96[] = "Steve Manners None 24 Hrs 24 Hrs PC oriented "; str data97[] = "Chris Cain 251/1942200-180024 Hrs "; str data98[] = "Martin Brown None 24 Hrs 24 Hrs "; str data99[] = "Craig Evenson None 24 Hrs 24 Hrs BBC/PC "; str data100[] = "Eddie Seymour 253/15224 Hrs 24 Hrs PC/ST/Amiga/BBC "; str data101[] = "The Ambassador None 24 Hrs 24 Hrs PC-Plus support/PC "; str data102[] = "Not Known None 24 Hrs 24 Hrs "; str data103[] = "Scott Andrew 295/5 24 Hrs 24 Hrs "; str data104[] = "Richard Brumpton None 24 Hrs 24 Hrs "; str data106[] = "Steve Dibble None 2200-08002200-0800Amstrad oriented "; str data107[] = "Carl Wright None 24 Hrs 24 Hrs Subscription for full access/Archie "; str data108[] = "Alan Walker 258/1 24 Hrs 24 Hrs Amstrad/PC/CPM/TRS/BBC/ST/Mac "; str data109[] = "Andrew Oldham None 24 Hrs 24 Hrs Mainly PC "; str data110[] = "Theo Harper 255/1212200-080024 Hrs "; str data111[] = "Andrew Flatman None 24 Hrs 24 Hrs Mainly PC "; str data112[] = "Rod Smallwood 255/33 24 Hrs 24 Hrs Mainly PC "; str data113[] = "Phil Crewe 253/20324 Hrs 24 Hrs "; str data114[] = "Steven Bernhardt None 24 Hrs 24 Hrs Mainly PC "; str data115[] = "Dan Butterworth None 24 Hrs 24 Hrs "; str data116[] = "Quentin Wright None 24 Hrs 24 Hrs PC/BBC/TRS "; str data118[] = "Barry Freeman None 24 Hrs 24 Hrs Subscription for full access/ST/PC "; str data119[] = "Ritchie Dakin 257/17524 Hrs 24 Hrs Mainly PC "; str data120[] = "Simon Gamble 253/11224 Hrs 24 Hrs Leave Terry Robertson a message here"; str data121[] = "Stephen Cole 251/10 24 Hrs 24 Hrs PC/ST/Dragon/Apple/Amstrad/Amiga "; str data122[] = "Bob Campion None 24 Hrs 24 Hrs Horticultural advice "; str data123[] = "Ian Strachan None 24 Hrs 24 Hrs PC/BBC/Atari/Eazilink support "; str data124[] = "Ernest Francis None 1900-24001900-0300 "; str data126[] = "Malcolm Robins 251/19024 Hrs 24 Hrs "; str data127[] = "Joe Lawrence None 1800-080024 Hrs Ham radio featured "; str data128[] = "Colin Crawford None 24 Hrs 24 Hrs Mainly PC "; str data129[] = "Gerald Janes 254/16924 Hrs 24 Hrs PCWorld comms editor/PC "; str data130[] = "Hilary Henshaw-HaasNone 2000-080024 Hrs Mainly Amstrad "; str data131[] = "Not Known None 2100-24002100-2400Spectrum oriented "; str data132[] = "Julian Anderson None 2000-070024 Hrs BBC/Amstrad/CBM "; str data133[] = "John Dibnah None 1900-110024 Hrs "; str data134[] = "David Rance 253/11024 Hrs 24 Hrs Christian BB/Amstrad/Archi/ST/PC/BBC"; str data135[] = "Milo Phonebill None 24 Hrs 24 Hrs "; str data136[] = "Carl Ricketts None 24 Hrs 24 Hrs PC/Mac/Amiga/CPM "; str data137[] = "Mohamed Salleh None 24 Hrs 24 Hrs Amstrad oriented "; str data138[] = "Jumbo None 24 Hrs 24 Hrs "; str data139[] = "Hugh Ashbourne 252/3 24 Hrs 24 Hrs PC/CPM/BBC/CBM/Apple/Mac "; str data140[] = "Jamie Thompson None 24 Hrs 24 Hrs "; str data141[] = "John Ferrier None 24 Hrs 24 Hrs PC/ST/CBM/BBC/Spectrum "; str data143[] = "Roger Seaward None 24 Hrs 24 Hrs TRS/PC/Apple/BBC/Atari "; str data144[] = "David Thorpe 253/19124 Hrs 24 Hrs Mainly PC "; str data145[] = "Gary Round None 24 Hrs Offline "; str data146[] = "David Mather 251/19124 Hrs 24 Hrs PC/Apple "; str data147[] = "Dave Randle 255/12424 Hrs 24 Hrs PC/ST/BBC/CPM "; str data148[] = "Ron Meldrum None 2000-08002000-0800 "; str data149[] = "Nick Piggott None 24 Hrs 24 Hrs Radio feature "; str data150[] = "John Fanchamps None 2200-08002200-0800PC/ST "; str data151[] = "Kleo Hofton None 1900-07001900-0700BBC/ST "; str data152[] = "Andrew Eaves 257/17124 Hrs 24 Hrs Mainly PC. Previously Andrew's Opus "; str data154[] = "Arthur McBryan 253/19324 Hrs 24 Hrs PC/Amstrad PCW/Charity users "; str data155[] = "John Hein None 24 Hrs 24 Hrs Gay oriented "; str data156[] = "Various Sysops None 24 Hrs 24 Hrs "; str data157[] = "John Lambon 251/15624 Hrs 24 Hrs PC/BBC/ST "; str data158[] = "Mark Glennon 256/25 24 Hrs 24 Hrs "; str data159[] = "Tim Pugh None 24 Hrs 24 Hrs PC/ST "; str data160[] = "Not Known None 24 Hrs 24 Hrs "; str data161[] = "Sonny Horsfall None 24 Hrs 24 Hrs PC/Leeds E-Mail "; str data162[] = "Richard Davis None 24 Hrs 24 Hrs ST/Amstrad/CBM/QL/BBC/PC/Spectrum "; str data163[] = "Peter Tootill 255/71 24 Hrs 24 Hrs TRS/Atari/PC. UK TBBS HQ "; str data164[] = "John Rawson 256/97 24 Hrs 24 Hrs Amstrad/TRS/CPM/PC "; str data165[] = "John Bone 256/17 24 Hrs 24 Hrs CPM/BBC/TRS/PC "; str data166[] = "Daniel Wilder 254/16224 Hrs 24 Hrs "; str data167[] = "Kevin Mathews None 24 Hrs 24 Hrs Subscription required "; str data168[] = "Mike Simkins 254/81 24 Hrs 24 Hrs PC/CPM "; str data169[] = "Terry Sinclair None 24 Hrs 24 Hrs Amiga/Atari/BBC/PC "; str data170[] = "David Daines 254/20024 Hrs 24 Hrs "; str data171[] = "Brian Robinson None 24 Hrs 24 Hrs Subscription only/Mainly PC "; str data173[] = "Mike Conway None 24 Hrs 24 Hrs ST oriented "; str data174[] = "Clive Waller 258/12 24 Hrs 24 Hrs Atari/BBC/CPM/PC/Amstrad/TRS "; str data175[] = "Mark Caro None 24 Hrs 24 Hrs Amiga bias/PC/BBC "; str data176[] = "David Nicholsoncole253/20024 Hrs 24 Hrs Mac oriented "; str data178[] = "John Lockwood 253/20224 Hrs 24 Hrs Mac oriented "; str data179[] = "Paul Beaumont 253/20124 Hrs 24 Hrs Mac oriented "; str data180[] = "David Harper 259/1 24 Hrs 24 Hrs Education oriented/PC/BBC "; str data181[] = "Peter Rodda None 24 Hrs 24 Hrs Amiga/ST/CBM "; str data182[] = "Yehuda Simmons None 24 Hrs 24 Hrs "; str data183[] = "Marcus Anselm None 24 Hrs 24 Hrs FBBS HQ "; str data184[] = "Not Known None 24 Hrs 24 Hrs "; str data185[] = "Len Payne None 24 Hrs 24 Hrs "; str data186[] = "Mark Kollins 252/13624 Hrs 24 Hrs "; str data187[] = "Peter Wilby None 24 Hrs 24 Hrs "; str data188[] = "Ken Farren None 24 Hrs 24 Hrs TRS/Atari/CBM/Apple/Mac/PC "; str data189[] = "Martin Taylor None 24 Hrs 24 Hrs PC/CPM "; str data190[] = "Martin Newham None 24 Hrs 24 Hrs ST/BBC/Amiga/Amstrad/PC/CBM "; str data191[] = "Terry Ebdon None 24 Hrs 24 Hrs "; str data192[] = "Brian Benster 256/14 24 Hrs 24 Hrs PC/BBC/Amstrad "; str data193[] = "Phillip Crookes None 24 Hrs 24 Hrs Home of Merkin and his cronies "; str data194[] = "Ian Gregson None 24 Hrs 24 Hrs Mainly PC "; str data195[] = "David Watkins None 24 Hrs 24 Hrs "; str data196[] = "Jeremy Chappell None 24 Hrs 24 Hrs ST/Amiga "; str data197[] = "Martin Holt None 24 Hrs 24 Hrs PC/CPM/BBC "; str data198[] = "Tom Goodfellow None 24 Hrs 24 Hrs ST oriented "; str data199[] = "Not Known None 24 Hrs 24 Hrs Incorporates BBODY "; str data200[] = "Paul Sengupta None 24 Hrs 24 Hrs "; str data201[] = "Paul Mansell None 1900-070024 Hrs BBC oriented "; str data202[] = "Lee Evans 255/18 24 Hrs 24 Hrs Mirror II support BB "; str data203[] = "David Pager None 1800-090024 Hrs "; str data204[] = "Pip Cordrey None 24 Hrs 24 Hrs Multi-user games "; str data205[] = "Pip Cordrey None 24 Hrs 24 Hrs Multi-user games "; str data206[] = "Mark Hammond None 2100-08002100-0800ST oriented "; str data207[] = "Mike Gove 257/17324 Hrs 24 Hrs PC oriented "; str data208[] = "Not Known None 24 Hrs 24 Hrs "; str data209[] = "Jerry Cheung None 0700-23000700-2300BBC/CBM "; str data210[] = "Jeremy Gumbley None 2200-08002200-0800 "; str data211[] = "James Eckhardt None 24 Hrs 24 Hrs "; str data212[] = "James Lawson None 24 Hrs 24 Hrs "; str data213[] = "D Zargel None 24 Hrs 24 Hrs "; str data214[] = "William Holmes None 24 Hrs 24 Hrs "; str data215[] = "Steven Matthews None 24 Hrs 24 Hrs ACMB HQ "; str data216[] = "Richard Braggs 253/12224 Hrs 24 Hrs "; str data217[] = "Tim Gray None 2200-07002200-0700 "; str data218[] = "Mike Wigmore 258/4 24 Hrs 24 Hrs ST/PC/CPM/BBC/Amiga "; str data219[] = "Den Deans 256/61 24 Hrs 24 Hrs PC oriented "; str data220[] = "Robert O'Donnell None 24 Hrs 24 Hrs Mainly BBC "; str data221[] = "James Willmott None 24 Hrs 24 Hrs BBC/Archie/PC "; str data222[] = "Marek Paul None 24 Hrs 24 Hrs PC/CPM "; str data223[] = "Charles Tame None 2100-07002100-0700Amiga bias "; str data224[] = "David McKendrick 255/64 24 Hrs 24 Hrs Medical topics "; str data225[] = "Alex Comerford None 24 Hrs 24 Hrs "; str data226[] = "John Taylor 253/68 24 Hrs 24 Hrs PC oriented "; str data227[] = "Ben Knox None 24 Hrs 24 Hrs Conferencing; Subscription required "; str data228[] = "Simon Lowe None 2000-08002000-0800 "; str data229[] = "Iain Philipps 258/21 24 Hrs 24 Hrs Source of PC-Sig software "; str data230[] = "Iain Philipps 258/2 24 Hrs 24 Hrs Source of PC-Sig software "; str data231[] = "Brian Hicks 254/15 24 Hrs 24 Hrs Source of PC-Sig software "; str data232[] = "Rod Smith None 24 Hrs 24 Hrs Source of PC-Sig software "; str data233[] = "Paul Jarrett None 1800-08001800-0800 "; str data234[] = "Peter Smith 258/31 24 Hrs 24 Hrs Mainly PC "; str data235[] = "Ade Truelove None 24 Hrs 24 Hrs ST/PC/Atari/Source of good BB list "; str data236[] = "Danny Thomas None 24 Hrs 24 Hrs Features pirate radio "; str data237[] = "Tony Jowers None 24 Hrs 24 Hrs Amiga/ST/BBC "; str data238[] = "Dave Russell None 1800-21301800-2130Einstein bias "; str data239[] = "Mel Warwick 253/93 24 Hrs 24 Hrs PC/ST "; str data240[] = "Dave Laycock 254/11 24 Hrs 24 Hrs "; str data241[] = "David Reid 259/3 2000-090024 Hrs "; str data242[] = "Jim Bates None 24 Hrs 24 Hrs "; str data243[] = "Bert Ilsley None 24 Hrs 24 Hrs PC/BBC/Atari/ST/Amiga "; str data244[] = "Alan Kirk 252/15024 Hrs 24 Hrs PC/ST/BBC "; str data245[] = "Roger Booth 256/16424 Hrs 24 Hrs "; str data246[] = "Ian Crocker None 24 Hrs 24 Hrs PC oriented "; str data247[] = "Llewellyn Fawr None 1900-070024 Hrs PC/BBC "; str data248[] = "Kenneth Comden 251/19824 Hrs 24 Hrs "; str data249[] = "Phil Burden 253/18724 Hrs 24 Hrs PC/Source of good BB list "; str data250[] = "Not Known None 24 Hrs 24 Hrs "; str data251[] = "Boyd Hitchcock None 24 Hrs 24 Hrs BBC/CPM/TRS/Amstrad/Atari/Spectrum "; str data252[] = "Noel Gaddo None 24 Hrs 24 Hrs Specialises in CBM "; str data253[] = "Andy Inman None 24 Hrs 24 Hrs ST oriented "; str data254[] = "George Fleming 259/4 24 Hrs 24 Hrs Mainly PC "; str data255[] = "Donald Whannell 259/2 24 Hrs 24 Hrs ST/Amstrad/PC/BBC/TRS "; str data256[] = "Jim McNulty 259/7 24 Hrs 24 Hrs PC/Amiga/BBC/Atari/CPM "; str data257[] = "Robert Bowman 254/34 24 Hrs 24 Hrs PC/Psion "; str data258[] = "Simon Rowe 251/23 24 Hrs 24 Hrs "; str data259[] = "Steve Underwood None 24 Hrs 24 Hrs "; str data260[] = "Steve Townsley 254/17 24 Hrs 24 Hrs Procomm-Plus support BB "; str data261[] = "Kevin Lindley None 24 Hrs 24 Hrs PC/ST/BBC/Archie/Amstrad/Amiga "; str data262[] = "Bob Tyler None 24 Hrs 24 Hrs BBC/ST/PC/Amiga "; str data263[] = "Ben Humphrey None 24 Hrs 24 Hrs "; str data264[] = "John Bolton 258/22 24 Hrs 24 Hrs "; str data265[] = "Gary Tanner 259/8 24 Hrs 24 Hrs "; str data266[] = "Lucien Oppler None 24 Hrs 24 Hrs "; str data267[] = "Archie Clark 251/19224 Hrs 24 Hrs Amiga bias "; str data268[] = "Mark Evans None 2230-08002230-0800 "; str data269[] = "Stephen Page None 24 Hrs 24 Hrs ST bias "; str data270[] = "John Gough None 24 Hrs 24 Hrs ST/Amiga/Archie/PC "; str data271[] = "Dave Low None 24 Hrs 24 Hrs "; str data272[] = "Brad Jackson 257/1 24 Hrs 24 Hrs PC/ST "; str data273[] = "Dave Williams None 2100-01002100-0100 "; str data274[] = "Phillip Tate 253/21 Offline Offline PC/CBM/ST "; str data275[] = "Daron Brewood None 24 Hrs 24 Hrs ST oriented "; str data276[] = "Druin Burch None 24 Hrs 24 Hrs ST bias "; str data277[] = "Grant Burch 254/62 24 Hrs 24 Hrs PC oriented "; str data278[] = "Ray Burcham None 24 Hrs 24 Hrs "; str data279[] = "Gary Hill None 2200-08002200-0800 "; str data280[] = "Mike Mellor None 24 Hrs 24 Hrs "; str data281[] = "Yuri Large None 1800-090024 Hrs Amiga oriented "; str data282[] = "Tom Evans None 1900-070024 Hrs Interak bias "; str data283[] = "Brian Davis None 1800-090024 Hrs Features Dr Who "; str data284[] = "Geoff Protheroe 257/15 24 Hrs 24 Hrs "; str data285[] = "John Newgas None 24 Hrs 24 Hrs PC/Pegasus "; str data286[] = "Mike Davies 254/79 24 Hrs 24 Hrs Subscription for full access/PC/Z88 "; str data287[] = "Nigel Spicer None 0730-1830Offline "; str data288[] = "Mike Hughes None 1800-08001300-0800 "; str data289[] = "George Young None 24 Hrs 24 Hrs "; str data290[] = "Geoff Cox None 24 Hrs 24 Hrs "; str data291[] = "Alan Davey None Offline 24 Hrs Specialises in TI and Einstein "; str data292[] = "Jerry Mallett 256/1611800-080024 Hrs Amstrad inc PCW/BBC/CPM "; str data293[] = "James Partner None 2200-07002200-0700ST bias "; str data294[] = "Martin Smith None 24 Hrs 24 Hrs PC/ST/Amiga/Atari "; str data295[] = "John Burden 255/12 24 Hrs 24 Hrs Christian board/Most machines "; str data296[] = "Andrew Bessant 255/11324 Hrs 24 Hrs Christian board/PC/Apricot/BBC/ST "; str data297[] = "Pete Franchi 253/15724 Hrs 24 Hrs TRS/BBC/CPM/Atari/Amstrad/ST/PC "; str data298[] = "Steve Edwards 254/16 24 Hrs 24 Hrs Atari 8-bit and ST "; str data299[] = "Robin Nicholas None 24 Hrs 24 Hrs Typesetting and DTP "; str data300[] = "Roger Fillary None 24 Hrs 24 Hrs "; str data301[] = "Martin Wybold None 24 Hrs 24 Hrs Most machines "; str data302[] = "Warren Fabes 251/19524 Hrs 24 Hrs PC oriented "; str data303[] = "Tim Boorman None 24 Hrs 24 Hrs "; str data304[] = "Eddy Ralphson 254/15324 Hrs 24 Hrs "; str data305[] = "Chris Conyon None 0800-23000800-2300Einstein oriented "; str data306[] = "Richard Darnell 257/17224 Hrs 24 Hrs PC/Amiga/ST "; str data307[] = "Allan Cooke None 2200-07002200-0700ST bias "; str data308[] = "Mike Fudge 251/22 24 Hrs 24 Hrs PC/CPM/Amstrad "; str data309[] = "Alex Bligh None 1800-09001800-0900 "; str data310[] = "Bill Gardner None 24 Hrs 24 Hrs CPM/PC/CBM/ST "; str data311[] = "Thomas Woodley None 24 Hrs 24 Hrs "; str data312[] = "Tony Kaye None 24 Hrs 24 Hrs Specialises in Z88 "; str data313[] = "Hugo Fiennes None 24 Hrs 24 Hrs Amiga/Archie/ST "; ///////////////////////// PROGRAM ROUTINE ///////////////////////////////// main () { start: clear_scr(); box(3, 0, 35, 5, 2, 0, 31); pstraxy("Enter Directory Number: ", 5, 2, 31); pstraxy(exit, 5, 4, 27); getsxy(dnum, 3, 29, 2, 31); if(dnum == "") goto end; if (stoi(dnum) < 1) goto start; if (stoi(dnum) > 313) goto start; clear_scr(); box(0, 0, 55, 11, 2, 0, 30); if (stoi(dnum) > 300) goto block6; if (stoi(dnum) > 250) goto block5; if (stoi(dnum) > 200) goto block4; if (stoi(dnum) > 150) goto block3; if (stoi(dnum) > 100) goto block2; if (stoi(dnum) > 50) goto block1; block0: if (dnum == "1") { data = data1; } else if (dnum == "2") { data = data2; } else if (dnum == "3") { data = data3; } else if (dnum == "4") { data = data4; } else if (dnum == "5") { data = data5; } else if (dnum == "6") { data = data6; } else if (dnum == "7") { data = data7; } else if (dnum == "8") { data = data8; } else if (dnum == "9") { data = data9; } else if (dnum == "10") { data = data10; } else if (dnum == "12") { data = data12; } else if (dnum == "13") { data = data13; } else if (dnum == "14") { data = data14; } else if (dnum == "18") { data = data18; } else if (dnum == "19") { data = data19; } else if (dnum == "20") { data = data20; } else if (dnum == "21") { data = data21; } else if (dnum == "22") { data = data22; } else if (dnum == "23") { data = data23; } else if (dnum == "24") { data = data24; } else if (dnum == "25") { data = data25; } else if (dnum == "26") { data = data26; } else if (dnum == "27") { data = data27; } else if (dnum == "29") { data = data29; } else if (dnum == "30") { data = data30; } else if (dnum == "31") { data = data31; } else if (dnum == "32") { data = data32; } else if (dnum == "33") { data = data33; } else if (dnum == "34") { data = data34; } else if (dnum == "35") { data = data35; } else if (dnum == "36") { data = data36; } else if (dnum == "37") { data = data37; } else if (dnum == "39") { data = data39; } else if (dnum == "40") { data = data40; } else if (dnum == "41") { data = data41; } else if (dnum == "42") { data = data42; } else if (dnum == "43") { data = data43; } else if (dnum == "45") { data = data45; } else if (dnum == "46") { data = data46; } else if (dnum == "47") { data = data47; } else if (dnum == "48") { data = data48; } else if (dnum == "49") { data = data49; } else if (dnum == "50") { data = data50; } goto display; block1: if (dnum == "51") { data = data51; } else if (dnum == "52") { data = data52; } else if (dnum == "53") { data = data53; } else if (dnum == "54") { data = data54; } else if (dnum == "55") { data = data55; } else if (dnum == "56") { data = data56; } else if (dnum == "57") { data = data57; } else if (dnum == "58") { data = data58; } else if (dnum == "59") { data = data59; } else if (dnum == "60") { data = data60; } else if (dnum == "61") { data = data61; } else if (dnum == "63") { data = data63; } else if (dnum == "64") { data = data64; } else if (dnum == "65") { data = data65; } else if (dnum == "66") { data = data66; } else if (dnum == "67") { data = data67; } else if (dnum == "68") { data = data68; } else if (dnum == "69") { data = data69; } else if (dnum == "70") { data = data70; } else if (dnum == "71") { data = data71; } else if (dnum == "72") { data = data72; } else if (dnum == "73") { data = data73; } else if (dnum == "74") { data = data74; } else if (dnum == "75") { data = data75; } else if (dnum == "76") { data = data76; } else if (dnum == "77") { data = data77; } else if (dnum == "78") { data = data78; } else if (dnum == "79") { data = data79; } else if (dnum == "80") { data = data80; } else if (dnum == "81") { data = data81; } else if (dnum == "82") { data = data82; } else if (dnum == "84") { data = data84; } else if (dnum == "85") { data = data85; } else if (dnum == "86") { data = data86; } else if (dnum == "87") { data = data87; } else if (dnum == "88") { data = data88; } else if (dnum == "89") { data = data89; } else if (dnum == "90") { data = data90; } else if (dnum == "91") { data = data91; } else if (dnum == "92") { data = data92; } else if (dnum == "93") { data = data93; } else if (dnum == "94") { data = data94; } else if (dnum == "95") { data = data95; } else if (dnum == "96") { data = data96; } else if (dnum == "97") { data = data97; } else if (dnum == "98") { data = data98; } else if (dnum == "99") { data = data99; } else if (dnum == "100") { data = data100; } goto display; block2: if (dnum == "101") { data = data101; } else if (dnum == "102") { data = data102; } else if (dnum == "103") { data = data103; } else if (dnum == "104") { data = data104; } else if (dnum == "106") { data = data106; } else if (dnum == "107") { data = data107; } else if (dnum == "108") { data = data108; } else if (dnum == "109") { data = data109; } else if (dnum == "110") { data = data110; } else if (dnum == "111") { data = data111; } else if (dnum == "112") { data = data112; } else if (dnum == "113") { data = data113; } else if (dnum == "114") { data = data114; } else if (dnum == "115") { data = data115; } else if (dnum == "116") { data = data116; } else if (dnum == "118") { data = data118; } else if (dnum == "119") { data = data119; } else if (dnum == "120") { data = data120; } else if (dnum == "121") { data = data121; } else if (dnum == "122") { data = data122; } else if (dnum == "123") { data = data123; } else if (dnum == "124") { data = data124; } else if (dnum == "126") { data = data126; } else if (dnum == "127") { data = data127; } else if (dnum == "128") { data = data128; } else if (dnum == "129") { data = data129; } else if (dnum == "130") { data = data130; } else if (dnum == "131") { data = data131; } else if (dnum == "132") { data = data132; } else if (dnum == "133") { data = data133; } else if (dnum == "134") { data = data134; } else if (dnum == "135") { data = data135; } else if (dnum == "136") { data = data136; } else if (dnum == "137") { data = data137; } else if (dnum == "138") { data = data138; } else if (dnum == "139") { data = data139; } else if (dnum == "140") { data = data140; } else if (dnum == "141") { data = data141; } else if (dnum == "143") { data = data143; } else if (dnum == "144") { data = data144; } else if (dnum == "145") { data = data145; } else if (dnum == "146") { data = data146; } else if (dnum == "147") { data = data147; } else if (dnum == "148") { data = data148; } else if (dnum == "149") { data = data149; } else if (dnum == "150") { data = data150; } goto display; block3: if (dnum == "151") { data = data151; } else if (dnum == "152") { data = data152; } else if (dnum == "154") { data = data154; } else if (dnum == "155") { data = data155; } else if (dnum == "156") { data = data156; } else if (dnum == "157") { data = data157; } else if (dnum == "158") { data = data158; } else if (dnum == "159") { data = data159; } else if (dnum == "160") { data = data160; } else if (dnum == "161") { data = data161; } else if (dnum == "162") { data = data162; } else if (dnum == "163") { data = data163; } else if (dnum == "164") { data = data164; } else if (dnum == "165") { data = data165; } else if (dnum == "166") { data = data166; } else if (dnum == "167") { data = data167; } else if (dnum == "168") { data = data168; } else if (dnum == "169") { data = data169; } else if (dnum == "170") { data = data170; } else if (dnum == "171") { data = data171; } else if (dnum == "173") { data = data173; } else if (dnum == "174") { data = data174; } else if (dnum == "175") { data = data175; } else if (dnum == "176") { data = data176; } else if (dnum == "178") { data = data178; } else if (dnum == "179") { data = data179; } else if (dnum == "180") { data = data180; } else if (dnum == "181") { data = data181; } else if (dnum == "182") { data = data182; } else if (dnum == "183") { data = data183; } else if (dnum == "184") { data = data184; } else if (dnum == "185") { data = data185; } else if (dnum == "186") { data = data186; } else if (dnum == "187") { data = data187; } else if (dnum == "188") { data = data188; } else if (dnum == "189") { data = data189; } else if (dnum == "190") { data = data190; } else if (dnum == "191") { data = data191; } else if (dnum == "192") { data = data192; } else if (dnum == "193") { data = data193; } else if (dnum == "194") { data = data194; } else if (dnum == "195") { data = data195; } else if (dnum == "196") { data = data196; } else if (dnum == "197") { data = data197; } else if (dnum == "198") { data = data198; } else if (dnum == "199") { data = data199; } else if (dnum == "200") { data = data200; } goto display; block4: if (dnum == "201") { data = data201; } else if (dnum == "202") { data = data202; } else if (dnum == "203") { data = data203; } else if (dnum == "204") { data = data204; } else if (dnum == "205") { data = data205; } else if (dnum == "206") { data = data206; } else if (dnum == "207") { data = data207; } else if (dnum == "208") { data = data208; } else if (dnum == "209") { data = data209; } else if (dnum == "210") { data = data210; } else if (dnum == "211") { data = data211; } else if (dnum == "212") { data = data212; } else if (dnum == "213") { data = data213; } else if (dnum == "214") { data = data214; } else if (dnum == "215") { data = data215; } else if (dnum == "216") { data = data216; } else if (dnum == "217") { data = data217; } else if (dnum == "218") { data = data218; } else if (dnum == "219") { data = data219; } else if (dnum == "220") { data = data220; } else if (dnum == "221") { data = data221; } else if (dnum == "222") { data = data222; } else if (dnum == "223") { data = data223; } else if (dnum == "224") { data = data224; } else if (dnum == "225") { data = data225; } else if (dnum == "226") { data = data226; } else if (dnum == "227") { data = data227; } else if (dnum == "228") { data = data228; } else if (dnum == "229") { data = data229; } else if (dnum == "230") { data = data230; } else if (dnum == "231") { data = data231; } else if (dnum == "232") { data = data232; } else if (dnum == "233") { data = data233; } else if (dnum == "234") { data = data234; } else if (dnum == "235") { data = data235; } else if (dnum == "236") { data = data236; } else if (dnum == "237") { data = data237; } else if (dnum == "238") { data = data238; } else if (dnum == "239") { data = data239; } else if (dnum == "240") { data = data240; } else if (dnum == "241") { data = data241; } else if (dnum == "242") { data = data242; } else if (dnum == "243") { data = data243; } else if (dnum == "244") { data = data244; } else if (dnum == "245") { data = data245; } else if (dnum == "246") { data = data246; } else if (dnum == "247") { data = data247; } else if (dnum == "248") { data = data248; } else if (dnum == "249") { data = data249; } else if (dnum == "250") { data = data250; } goto display; block5: if (dnum == "251") { data = data251; } else if (dnum == "252") { data = data252; } else if (dnum == "253") { data = data253; } else if (dnum == "254") { data = data254; } else if (dnum == "255") { data = data255; } else if (dnum == "256") { data = data256; } else if (dnum == "257") { data = data257; } else if (dnum == "258") { data = data258; } else if (dnum == "259") { data = data259; } else if (dnum == "260") { data = data260; } else if (dnum == "261") { data = data261; } else if (dnum == "262") { data = data262; } else if (dnum == "263") { data = data263; } else if (dnum == "264") { data = data264; } else if (dnum == "265") { data = data265; } else if (dnum == "266") { data = data266; } else if (dnum == "267") { data = data267; } else if (dnum == "268") { data = data268; } else if (dnum == "269") { data = data269; } else if (dnum == "270") { data = data270; } else if (dnum == "271") { data = data271; } else if (dnum == "272") { data = data272; } else if (dnum == "273") { data = data273; } else if (dnum == "274") { data = data274; } else if (dnum == "275") { data = data275; } else if (dnum == "276") { data = data276; } else if (dnum == "277") { data = data277; } else if (dnum == "278") { data = data278; } else if (dnum == "279") { data = data279; } else if (dnum == "280") { data = data280; } else if (dnum == "281") { data = data281; } else if (dnum == "282") { data = data282; } else if (dnum == "283") { data = data283; } else if (dnum == "284") { data = data284; } else if (dnum == "285") { data = data285; } else if (dnum == "286") { data = data286; } else if (dnum == "287") { data = data287; } else if (dnum == "288") { data = data288; } else if (dnum == "289") { data = data289; } else if (dnum == "290") { data = data290; } else if (dnum == "291") { data = data291; } else if (dnum == "292") { data = data292; } else if (dnum == "293") { data = data293; } else if (dnum == "294") { data = data294; } else if (dnum == "295") { data = data295; } else if (dnum == "296") { data = data296; } else if (dnum == "297") { data = data297; } else if (dnum == "298") { data = data298; } else if (dnum == "299") { data = data299; } else if (dnum == "300") { data = data300; } goto display; block6: if (dnum == "301") { data = data301; } else if (dnum == "302") { data = data302; } else if (dnum == "303") { data = data303; } else if (dnum == "304") { data = data304; } else if (dnum == "305") { data = data305; } else if (dnum == "306") { data = data306; } else if (dnum == "307") { data = data307; } else if (dnum == "308") { data = data308; } else if (dnum == "309") { data = data309; } else if (dnum == "310") { data = data310; } else if (dnum == "311") { data = data311; } else if (dnum == "312") { data = data312; } else if (dnum == "313") { data = data313; } display: pstraxy(entry, 2, 1, 78); pstra(dnum, 79); substr(data, 0, 19, sname); pstraxy(sysop, 2, 2, 30); pstra(sname ,31); substr(data, 19, 25, snode); pstraxy(node, 2, 3, 30); pstra(snode, 31); substr(data, 26, 34, swdhrs); pstraxy(wdhrs, 2, 4, 30); pstra(swdhrs, 31); substr(data, 35, 43, swehrs); pstraxy(wehrs, 2, 5, 30); pstra(swehrs, 31); substr(data, 44, 79, snotes); pstraxy(notes, 2, 7, 30); pstra(snotes, 31); pstraxy(exit, 5, 9, 27); getsxy(endc, 1, 35, 9, 27); goto start; end: clear_scr(); }