5MODE7
10REM PROGRAM BY D.AMBROSE TO ILLUSTR
ATE USE OF DATA POINTER.
20REM NAMES WILL BE PRINTED IN SUCCES
SIVE GROUPS OF 10 UNTIL END OF
30REM LIST IS REACHED. IT WILL THEN S
TART AGAIN FROM THE BEGINNING.
40REM IT MAY ALSO BE RETURNED TO BEGI
NNING BY TYPING PROCzerostore.
50REM Z% IS THE INITIAL VALUE OF ?&1C
+?&1D*256 AND DEPENDS ON PROGRAM.
100VDU15:Z%=3584:PROCreadstore:REM JUS
T TO GET DRIVE SPINNING
110TIME=0:J%=0
120IF X%+Y%*256>Z% PROCreadstore:?&1C=
X%:?&1D=Y%
130REPEAT:I%=0
140REPEAT:READ A$:I%=I%+1:J%=J%+1
150IF A$<>"0" PRINT A$
160UNTIL A$="0" OR I%=10
170X%=?&1C:Y%=?&1D:PRINT X%,Y%,J%
180PROCprintstore
190UNTIL A$="0":PRINT"TIME="STR$(TIME)
200X%=0:Y%=0:PROCprintstore
210VDU14:END
220
1000DEF PROCzerostore
1010FILE=OPENOUT("8BSTOR1")
1020X%=0:Y%=0
1030PRINT#FILE,X%,Y%
1040CLOSE#FILE
1050ENDPROC
1060
1070DEF PROCprintstore
1080FILE=OPENOUT("8BSTOR1")
1090PRINT#FILE,X%,Y%
1100CLOSE#FILE
1110ENDPROC
1120
1130DEF PROCreadstore
1140FILE=OPENIN("8BSTOR1")
1150INPUT#FILE,X%,Y%
1160CLOSE#FILE
1170ENDPROC
1180
1190DEF FNN="8BSMEM1"
1200DATA K8C Adams Arthur
1210DATA D4T Adams John
1220DATA K7T Ambrose D
1230DATA K1Q Aston John
1240DATA D3T Austin Dave
1250DATA K3D Bales Keith
1260DATA A2J Bebbington Andy
1270DATA K6F Bennet Mick
1280DATA K7L Birks Jim
1290DATA D3J Bishop Peter
1300DATA 138 Blundell Alan
1310DATA K2H Boyce Ronald R
1320DATA D4W Boyle Hugh
1330DATA K8B Brandon Andy
1340DATA K2U Brown David
1350DATA D2C Burgess Andy
1360DATA D3Y Carter R
1370DATA K6K Cawkwell G
1380DATA K6L Chamberlain Richard
1390DATA K3W Chilton Tom
1400DATA K6A Clapperton Ian A
1410DATA K3Q Clark T
1420DATA D4N Cleaver Dave
1430DATA K6X Clucas Paul
1440DATA D3H Colton David
1450DATA D4E Cooper J
1460DATA K8Y Copsey Bill
1470DATA K4V Crapper Trevor
1480DATA K2B Culpitt-Smith Colin
1490DATA K2F Davis John C
1500DATA A2L Davis Michael
1510DATA K2K Davy Peter
1520DATA K6Y Deacon Simon J
1530DATA D4J Debus Oliver
1540DATA 20G Dickens Roy
1550DATA K8D Dixon Bruce
1560DATA SUE Dodsworth Susan
1570DATA K5N Doran Stan J
1580DATA K4J Dronfield Chris
1590DATA K5Z Duff Bill
1600DATA K4F Dunn Brian
1610DATA D2E Dunnett Paul
1620DATA K4P Eedle Susan
1630DATA D3U Evans Byron
1640DATA K5P Fay Andrew
1650DATA K4W Firth Roy
1660DATA 3TR Fleming Mike
1670DATA 15A Flintham Steven
1680DATA K6H Fowl Leslie J
1690DATA K8W Fox Diane
1700DATA 4TK Frost Henry J
1710DATA D3K Gallagher Steve
1720DATA K5U Godfrey Simon
1730DATA D3F Green Mike
1740DATA D2K Grimes Alfred bob
1750DATA K3N Guiry Des
1760DATA K4A Hallam Kevin
1770DATA D2T Hamilton Jonathan
1780DATA K4N Hanson Steve
1790DATA K8G Harston Jonathan
1800DATA K1Y Harvey Paul
1810DATA 4G7 Hay J Renton
1820DATA K3J Hobday A C
1830DATA D4S Holmes Gilly
1840DATA D2B Hooper D
1850DATA D2N Horgan Victor J
1860DATA K5M Howell Ron
1870DATA K7K Jackson Sam
1880DATA K3Y Jenne Lorna
1890DATA D4B Johns Chris
1900DATA K2C Jones Frank
1910DATA D5A Jones Joe
1920DATA 3PM Pritchard Jones Derrick
1930DATA K2V Jowitt Bill
1940DATA D4M Kahan Zul
1950DATA K7E Kempner Stuart
1960DATA K7J Kilbride R
1970DATA K4D Knight Lorin
1980DATA K8X Lane G.Eric
1990DATA D2H Lavelle Terry
2000DATA D4P Lee Norma
2010DATA K4K Leng Graham
2020DATA K5W Lewis Chris J
2030DATA D4F Lindsay Bill
2040DATA K6E Lingwood Roger M
2050DATA L1M Looyenga Janny
2060DATA K2P Loveys D
2070DATA K2J Lowless David
2080DATA K4B Lynch George
2090DATA K5B MacGraw David J
2100DATA D3G Magee Chris
2110DATA D4L Magro Frank
2120DATA D4D Marshall David
2130DATA 4B2 Marshall Ron
2140DATA K2L Maslin Barry
2150DATA D3L Mason Steve
2160DATA D3P Mayers Pete I
2170DATA D3C McColl J.G.
2180DATA K7N McEllin Mike
2190DATA K3K Miles Alec
2200DATA K2X Mitchell Bill
2210DATA K5A Moffat Robin
2220DATA K4R Morom Robin
2230DATA K3F Morris Jacquetta
2240DATA K7A Morrissey Liam
2250DATA D4G Mosdell Robert
2260DATA 6EE Needham Mick
2270DATA 0E7 Nevin Fred
2280DATA K2Q Nicholson John
2290DATA D2R Olway John p
2300DATA A2K Ord Fred W
2310DATA A2D Parker SH
2320DATA D2G Parry Niel
2330DATA 3SQ Parsons Tim
2340DATA K3S Peck D T
2350DATA K3G Perry Michael
2360DATA K8U Pierson Vic
2370DATA K8J Pike Cyril
2380DATA 3WU Price Fred
2390DATA D3B Prochera Michael John
2400DATA D2Y Ratnett Paul
2410DATA K6N Raw B
2420DATA K2E Reeves Mick
2430DATA 7MR Rhodes Mick
2440DATA 2J3 Richardson Christopher J
2450DATA K2O Richardson Stephan
2460DATA D4A Richmond P J
2470DATA K4U Robbins Chris
2480DATA K6Q Roberts L T
2490DATA K5K Robinson David
2500DATA K7B Robson Jim A
2510DATA D4Y Rogers C.R.
2520DATA D4K Rogers Martin
2530DATA K6D Sanders Mick
2540DATA D2F Sargent James
2550DATA K3H Schofield Albert
2560DATA 1K1 Shakoor Abdus Sattar
2570DATA 483 Shimmin Daniel
2580DATA 176 Shuker Eric J
2590DATA D4R Simpson Barry
2600DATA D3N Smith Nigel L
2610DATA D4H Smith Paul
2620DATA K4C Smith Roger
2630DATA 8J4 Spender Charles R
2640DATA D3E Swann Peter
2650DATA K8P Tallowin Brian
2660DATA D2J Tate Jonathan
2670DATA D3D Thackeray Brian
2680DATA K7P Thomas Victor
2690DATA D4C Thompson Colin
2700DATA K6W Tilbrook Karl
2710DATA K2T Tourle Jack
2720DATA K3M Walker Derek
2730DATA A2H Walker Jamie
2740DATA K4E Walker Richard
2750DATA D3W Waters Peter D
2760DATA 105 Webster Duncan
2770DATA K6J Weir P G
2780DATA D2W Welsby S.Roger
2790DATA D2X White Ivan
2800DATA D3R Whitwell Tony
2810DATA K8T Willey Gordon R
2820DATA K2G Williamson Nigel
2830DATA K2I Wilson John
2840DATA 4WL Wilson Martin
2850DATA K8M York Michael John
2860DATA D3X Young Bryan J
2870DATA 0