10 DIMa$(20):A$="":ONERRORIFERR=17THENCLOSE#X%:OSCLI"EXEC !BOOT":ENDELSEPRINT''"ERROR ";ERR;" AT LINE ";ERL;" : ";:REPORT 20 IFC%>1THEND%=5:REPEAT:D%=D%+3:RESTORED%*10:READE%:UNTILE%=C%:GOTO(D%+1)*10 30 CLOSE#0:Y%=0:MODE7:*FX200,0 40 FORI%=1TO2:PRINTCHR$(150);CHR$(157);CHR$(132);CHR$(141);" 8BS QUESTIONNAIRE":NEXT 50 X%=OPENUP"QUEST" 60 PRINT"‚Please try to answer as many questions ‚as you can,but feel free to ignore any ‚ that you find intrusive."'"–¯„ THANKS FOR YOUR HELP!" 70 VDU28,0,24,39,7:REPEAT 80 DATA1 90 C%=1:PRINT"1. Please enter your surname, maximum 12 characters." 100 PROCinput1(0,12):PROCstring(0,12) 110 DATA2 120 C%=2:PRINT"2. Please enter your first name or initials, max length 12 characters." 130 PROCinput1(12,12):PROCstring(12,12) 140 DATA3 150 C%=3:PRINT"3. Please enter your address, including postcode. Use a comma to separate each line from the next. Max 70 char." 160 PROCinput1(24,70):PROCstring(24,70) 170 DATA4 180 C%=4:PRINT"4. Do you mind 8-bit Software knowing your phone number Y/N ?" 190 PROCinput3(94):PROCbyte(94):IFCHR$(Y%)="Y"THENGOTO270ELSEIFCHR$(Z%)="Y"ANDA$="DEFAULT"THENGOTO270 200 DATA5 210 C%=5:PRINT"5. Please type in your phone number (max. 16 char. - include STD code)" 220 PROCinput1(95,16):PROCstring(95,16) 230 DATA6 240 C%=6:PRINT"6. Do you want your phone no. to be published with any message Y/N" 250 PROCinput3(111):PROCbyte(111) 260 DATA7 270 C%=7:PRINT"7. Which of these machines do you own :"'" (A) BBC B (or B+ etc)"'" (B) Master 128"'" (C) Master Compact"'" (D) Master 512" 280 PROCinput2(112,4,"A","B","C","D"," "," "):PROCbyte(112) 290 DATA8 300 C%=8:PRINT"8. How many reliable banks of sideways RAM does your machine have (0-8)" 310 PROCinput4(113,0,8):PROCbyte(113) 320 DATA9 330 C%=9:PRINT"9. Does your machine have shadow RAM in any reliable form Y/N" 340 PROCinput3(114):PROCbyte(114) 350 DATA10 360 C%=10:PRINT"10. Do you use a 6502 or 65C102 second/co-processor Y/N" 370 PROCinput3(115):PROCbyte(115) 380 DATA11 390 C%=11:PRINT"11. Do you have an internal or external 32016 processor Y/N" 400 PROCinput3(116):PROCbyte(116) 410 DATA12 420 C%=12:PRINT"12. Do you have any other form of extra processor Y/N" 430 PROCinput3(117):PROCbyte(117) 440 DATA13 450 C%=13:PRINT"13. Do you have a modem Y/N" 460 PROCinput3(235):PROCbyte(235) 470 DATA14 480 C%=14:PRINT"14. Do you have ADFS on your machine Y/N"; 490 PROCinput3(118):PROCbyte(118):IF(CHR$(Y%)="N")OR(CHR$(Z%)="N"ANDA$="DEFAULT")THENGOTO540 500 DATA15 510 C%=15:PRINT"15. Can you *TYPE files when in your ADFS Y/N" 520 PROCinput3(119):PROCbyte(119) 530 DATA16 540 C%=16:PRINT"16. Which of these disk sizes can you use :"'" (A) 5.25"" only"'" (B) 3.5"" only"'" (C) Both" 550 PROCinput2(120,3,"A","B","C"," "," "," "):PROCbyte(120) 560 DATA17 570 C%=17:PRINT"17. Do you ever use an Econet, or know anyone who does Y/N" 580 PROCinput3(121):PROCbyte(121) 590 DATA18 600 C%=18:PRINT"18. How many people do you know who use Acorn Electrons (0-9)" 610 PROCinput4(122,0,9):PROCbyte(122) 620 DATA19 630 C%=19:PRINT"19. How many years have you owned an Acorn machine for ?" 640 PROCinput1(123,2):PROCstring(123,2) 650 DATA20 660 C%=20:PRINT"20. How old are you ?" 670 PROCinput1(125,2):PROCstring(125,2) 680 DATA21 690 C%=21:PRINT"21. Do you think that moving the disk mag. to a purely MODE-7 format is all-important Y/N" 700 PROCinput3(127):PROCbyte(127) 710 DATA22 720 C%=22:PRINT"22. Do you think that a two-disk issue should be produced if necessary Y/N"; 730 PROCinput3(128):PROCbyte(128) 740 DATA23 750 C%=23:PRINT"23. As a programmer, would you rate your ability"'" (A) Non-existent"'" (B) Simple BASIC only"'" (C) Complex BASIC"'" (D) BASIC/simple assembler"'" (E) Experienced coder" 760 PROCinput2(129,5,"A","B","C","D","E"," "):PROCbyte(129) 770 DATA24 780 C%=24:PRINT"24. How useful/interesting would you find articles on simple programming (between 0 and 9)" 790 PROCinput4(130,0,9):PROCbyte(130) 800 DATA25 810 C%=25:PRINT"25. How useful/interesting would you find articles on advanced programming (between 0 and 9)" 820 PROCinput4(131,0,9):PROCbyte(131) 830 DATA26 840 C%=26:PRINT"26. How useful/interesting would you find articles on modems/comms (0-9)" 850 PROCinput4(132,0,9):PROCbyte(132) 860 DATA27 870 C%=27:PRINT"27. How useful/interesting would you find reviews/cheats for commercial software (0-9)" 880 PROCinput4(133,0,9):PROCbyte(133) 890 DATA28 900 C%=28:PRINT"28. How useful/interesting would you find info on hardware (0-9)" 910 PROCinput4(134,0,9):PROCbyte(134) 920 DATA29 930 C%=29:PRINT"29. How interesting would you find articles on general (non-computing) topics (0-9)" 940 PROCinput4(135,0,9):PROCbyte(135) 950 DATA30 960 C%=30:PRINT"30. How useful are utilities programs (eg disk copiers etc) to you (0-9)" 970 PROCinput4(136,0,9):PROCbyte(136) 980 DATA31 990 C%=31:PRINT"31. How useful is applications s/w (e.g. databases etc.) to you (0-9)" 1000 PROCinput4(137,0,9):PROCbyte(137) 1010 DATA32 1020 C%=32:PRINT"32. How useful are music programs to you (0-9)" 1030 PROCinput4(138,0,9):PROCbyte(138) 1040 DATA33 1050 C%=33:PRINT"33. How useful are graphics demos etc. to you (0-9)" 1060 PROCinput4(139,0,9):PROCbyte(139) 1070 DATA34 1080 C%=34:PRINT"34. How useful are games programs to you (0-9)" 1090 PROCinput4(140,0,9):PROCbyte(140) 1100 DATA35 1110 C%=35:PRINT"35. How useful is educational software to you (0-9)" 1120 PROCinput4(141,0,9):PROCbyte(141) 1130 DATA36 1140 C%=36:PRINT"36. Do you consider the 50p charge for issue 21 to be reasonable Y/N" 1150 PROCinput3(142):PROCbyte(142) 1160 DATA37 1170 C%=37:PRINT"37. Do you wish to give details of your computing interests for inclusion in the 8BS database for all members' reference Y/N" 1180 PROCinput3(143):PROCbyte(143):IF(CHR$(Y%)="N")OR(CHR$(Z%)="N"ANDA$="DEFAULT")THENGOTO1280 1190 DATA38 1200 C%=38:PRINT"38. Please input your first computing interest (e.g. comms, education, music etc), max length 15 char." 1210 PROCinput1(144,15):PROCstring(144,15) 1220 DATA39 1230 C%=39:PRINT"39. Please input your second computing interest (RETURN if none), maximum length 15 characters." 1240 PROCinput1(159,15):PROCstring(159,15) 1250 DATA40 1260 C%=40:PRINT"40. Please input your third computing interest (RETURN if none), maximum length 15 characters." 1270 PROCinput1(174,15):PROCstring(174,15) 1280 DATA41 1290 C%=41:PRINT"41. Do you wish to give details of your general interests for inclusion in the 8BS database for all members' reference Y/N" 1300 PROCinput3(189):PROCbyte(189):IF(CHR$(Y%)="N")OR(CHR$(Z%)="N"ANDA$="DEFAULT")THENGOTO1400 1310 DATA42 1320 C%=42:PRINT"42. Please enter your first general (non-computing) interest, maximum length 15 characters." 1330 PROCinput1(190,15):PROCstring(190,15) 1340 DATA43 1350 C%=43:PRINT"43. Please enter your second general interest (RETURN if none), maximum length 15 characters." 1360 PROCinput1(205,15):PROCstring(205,15) 1370 DATA44 1380 C%=44:PRINT"44. Please enter your third general interest (RETURN if none), maximum length 15 characters." 1390 PROCinput1(220,15):PROCstring(220,15) 1400 DATA45 1410 C%=45:PRINT"45. Do you own a mouse Y/N" 1420 PROCinput3(236):PROCbyte(236) 1430 DATA46 1440 C%=46:PRINT"46. Do you own a Music 500 or 5000 Y/N" 1450 PROCinput3(237):PROCbyte(237) 1460 DATA47 1470 C%=47:PRINT"47. Is your VDU setup"'" (A) Good quality colour monitor"'" (B) Poor quality colour monitor"'" (C) Good quality monochrome monitor"'" (D) Poor quality monochrome monitor"'" (E) Television" 1480 PROCinput2(238,5,"A","B","C","D","E"," "):PROCbyte(238) 1490 DATA48 1500 C%=48:PRINT"48. Do you have a printer Y/N" 1510 PROCinput3(239):PROCbyte(239) 1520 C%=0:Y%=0:A$="":GOTO80 1530 DEFPROCinput1(P%,L%):PROCfx:PTR#X%=P% 1540 PRINT'"Default/Current Answer : "; 1550 FORI%=1TOL%:PRINTCHR$(BGET#X%);:NEXT:PTR#X%=PTR#X%-P% 1560 REPEAT:INPUTLINE''"]"A$:UNTILLENA$"" 1660 ENDPROC 1670 DEFPROCinput3(P%):PROCfx:PTR#X%=P% 1680 PRINT'"Default/Current Answer : "; 1690 Z%=BGET#X%:PTR#X%=PTR#X%-1 1700 IFZ%<127ANDZ%>31THENPRINTCHR$(Z%)'ELSEPRINT' 1710 PRINT"]";:REPEATY%=GET:UNTILCHR$(Y%)="Y"ORCHR$(Y%)="N"ORY%=127ORY%=13 1720 PROCdelete:IFY%=13THENA$="DEFAULT"ELSEA$="" 1730 ENDPROC 1740 DEFPROCinput4(P%,N%,M%):PROCfx:PTR#X%=P% 1750 PRINT'"Default/Current Answer : ";CHR$(BGET#X%)':PTR#X%=PTR#X%-1 1760 A$="":REPEAT:PRINT"]";:Y%=GET 1770 UNTIL(VALCHR$Y%N%-1)ORY%=127ORY%=13 1780 PROCdelete:IFY%=13THENA$="DEFAULT" 1790 ENDPROC 1800 DEFPROCdelete 1810 IFC%=41THENC%=36 1820 IFA$="*"ORY%=127THENC%=C%-1:Y%=0:PRINT'':RUN 1830 ENDPROC 1840 DEFPROCfx 1850 *FX202,32 1860 *FX21 1870 ENDPROC 1880 DEFPROCbyte(P%) 1890 IFY%=13THENPRINTA$'':ENDPROC 1900 PRINTCHR$Y%'':PTR#X%=P%:BPUT#X%,Y% 1910 ENDPROC 1920 DEFPROCstring(P%,L%) 1930 IFA$=""THENPRINT"DEFAULT"'':ENDPROCELSEPRINT'' 1940 IFLENA$