5MODE7
10REM PROGRAM BY D.AMBROSE TO COMPARE
COUNTING PROCEDURE WITH
20REM USE OF DATA POINTER.
30REM NAMES WILL BE PRINTED IN SUCCES
SIVE GROUPS OF 10 UNTIL END OF
40REM LIST IS REACHED. IT WILL THEN S
TART AGAIN FROM THE BEGINNING.
50REM IT MAY ALSO BE RETURNED TO BEGI
NNING BY TYPING PROCzerostore.
60VDU15:PROCreadstore:REM JUST TO GET
DRIVE SPINNING
70TIME=0
100REPEAT:PROCreadstore
106RESTORE:I%=0:FOR Z%=1 TO J%:READ A$
:NEXT
110REPEAT:READ A$:I%=I%+1:J%=J%+1
115IF A$<>"0" PRINT A$
120UNTIL A$="0" OR I%=10
130PRINT J%
140PROCprintstore
150UNTIL A$="0":PRINT TIME
160J%=0:PROCprintstore
180VDU14:END
190
200DEF PROCzerostore
210FILE=OPENOUT("8BSTOR2")
220J%=0
230PRINT#FILE,J%
240CLOSE#FILE
250ENDPROC
260
270DEF PROCprintstore
280FILE=OPENOUT("8BSTOR2")
290PRINT#FILE,J%
300CLOSE#FILE
310ENDPROC
320
330DEF PROCreadstore
340FILE=OPENIN("8BSTOR2")
350INPUT#FILE,J%
360CLOSE#FILE
370ENDPROC
380
2200DEF FNN="8BSMEM2"
5000DATA K8C Adams Arthur
5010DATA D4T Adams John
5020DATA K7T Ambrose D
5030DATA K1Q Aston John
5040DATA D3T Austin Dave
5050DATA K3D Bales Keith
5060DATA A2J Bebbington Andy
5070DATA K6F Bennet Mick
5080DATA K7L Birks Jim
5090DATA D3J Bishop Peter
5100DATA 138 Blundell Alan
5110DATA K2H Boyce Ronald R
5120DATA D4W Boyle Hugh
5130DATA K8B Brandon Andy
5140DATA K2U Brown David
5150DATA D2C Burgess Andy
5160DATA D3Y Carter R
5170DATA K6K Cawkwell G
5180DATA K6L Chamberlain Richard
5190DATA K3W Chilton Tom
5200DATA K6A Clapperton Ian A
5210DATA K3Q Clark T
5220DATA D4N Cleaver Dave
5230DATA K6X Clucas Paul
5240DATA D3H Colton David
5250DATA D4E Cooper J
5260DATA K8Y Copsey Bill
5270DATA K4V Crapper Trevor
5280DATA K2B Culpitt-Smith Colin
5290DATA K2F Davis John C
5300DATA A2L Davis Michael
5310DATA K2K Davy Peter
5320DATA K6Y Deacon Simon J
5330DATA D4J Debus Oliver
5340DATA 20G Dickens Roy
5350DATA K8D Dixon Bruce
5360DATA SUE Dodsworth Susan
5370DATA K5N Doran Stan J
5380DATA K4J Dronfield Chris
5390DATA K5Z Duff Bill
5400DATA K4F Dunn Brian
5410DATA D2E Dunnett Paul
5420DATA K4P Eedle Susan
5430DATA D3U Evans Byron
5440DATA K5P Fay Andrew
5450DATA K4W Firth Roy
5460DATA 3TR Fleming Mike
5470DATA 15A Flintham Steven
5480DATA K6H Fowl Leslie J
5490DATA K8W Fox Diane
5500DATA 4TK Frost Henry J
5510DATA D3K Gallagher Steve
5520DATA K5U Godfrey Simon
5530DATA D3F Green Mike
5540DATA D2K Grimes Alfred bob
5550DATA K3N Guiry Des
5560DATA K4A Hallam Kevin
5570DATA D2T Hamilton Jonathan
5580DATA K4N Hanson Steve
5590DATA K8G Harston Jonathan
5600DATA K1Y Harvey Paul
5610DATA 4G7 Hay J Renton
5620DATA K3J Hobday A C
5630DATA D4S Holmes Gilly
5640DATA D2B Hooper D
5650DATA D2N Horgan Victor J
5660DATA K5M Howell Ron
5670DATA K7K Jackson Sam
5680DATA K3Y Jenne Lorna
5690DATA D4B Johns Chris
5700DATA K2C Jones Frank
5710DATA D5A Jones Joe
5720DATA 3PM Pritchard Jones Derrick
5730DATA K2V Jowitt Bill
5740DATA D4M Kahan Zul
5750DATA K7E Kempner Stuart
5760DATA K7J Kilbride R
5770DATA K4D Knight Lorin
5780DATA K8X Lane G.Eric
5790DATA D2H Lavelle Terry
5800DATA D4P Lee Norma
5810DATA K4K Leng Graham
5820DATA K5W Lewis Chris J
5830DATA D4F Lindsay Bill
5840DATA K6E Lingwood Roger M
5850DATA L1M Looyenga Janny
5860DATA K2P Loveys D
5870DATA K2J Lowless David
5880DATA K4B Lynch George
5890DATA K5B MacGraw David J
5900DATA D3G Magee Chris
5910DATA D4L Magro Frank
5920DATA D4D Marshall David
5930DATA 4B2 Marshall Ron
5940DATA K2L Maslin Barry
5950DATA D3L Mason Steve
5960DATA D3P Mayers Pete I
5970DATA D3C McColl J.G.
5980DATA K7N McEllin Mike
5990DATA K3K Miles Alec
6000DATA K2X Mitchell Bill
6010DATA K5A Moffat Robin
6020DATA K4R Morom Robin
6030DATA K3F Morris Jacquetta
6040DATA K7A Morrissey Liam
6050DATA D4G Mosdell Robert
6060DATA 6EE Needham Mick
6070DATA 0E7 Nevin Fred
6080DATA K2Q Nicholson John
6090DATA D2R Olway John p
6100DATA A2K Ord Fred W
6110DATA A2D Parker SH
6120DATA D2G Parry Niel
6130DATA 3SQ Parsons Tim
6140DATA K3S Peck D T
6150DATA K3G Perry Michael
6160DATA K8U Pierson Vic
6170DATA K8J Pike Cyril
6180DATA 3WU Price Fred
6190DATA D3B Prochera Michael John
6200DATA D2Y Ratnett Paul
6210DATA K6N Raw B
6220DATA K2E Reeves Mick
6230DATA 7MR Rhodes Mick
6240DATA 2J3 Richardson Christopher J
6250DATA K2O Richardson Stephan
6260DATA D4A Richmond P J
6270DATA K4U Robbins Chris
6280DATA K6Q Roberts L T
6290DATA K5K Robinson David
6300DATA K7B Robson Jim A
6310DATA D4Y Rogers C.R.
6320DATA D4K Rogers Martin
6330DATA K6D Sanders Mick
6340DATA D2F Sargent James
6350DATA K3H Schofield Albert
6360DATA 1K1 Shakoor Abdus Sattar
6370DATA 483 Shimmin Daniel
6380DATA 176 Shuker Eric J
6390DATA D4R Simpson Barry
6400DATA D3N Smith Nigel L
6410DATA D4H Smith Paul
6420DATA K4C Smith Roger
6430DATA 8J4 Spender Charles R
6440DATA D3E Swann Peter
6450DATA K8P Tallowin Brian
6460DATA D2J Tate Jonathan
6470DATA D3D Thackeray Brian
6480DATA K7P Thomas Victor
6490DATA D4C Thompson Colin
6500DATA K6W Tilbrook Karl
6510DATA K2T Tourle Jack
6520DATA K3M Walker Derek
6530DATA A2H Walker Jamie
6540DATA K4E Walker Richard
6550DATA D3W Waters Peter D
6560DATA 105 Webster Duncan
6570DATA K6J Weir P G
6580DATA D2W Welsby S.Roger
6590DATA D2X White Ivan
6600DATA D3R Whitwell Tony
6610DATA K8T Willey Gordon R
6620DATA K2G Williamson Nigel
6630DATA K2I Wilson John
6640DATA 4WL Wilson Martin
6650DATA K8M York Michael John
6660DATA D3X Young Bryan J
6670DATA 0