5 DEFFNS="Quesair"
    6 C%=0
   10 *FX119
   20 DIMa$(20):A$="":ONERROR IF ERR=17 CLOSE#X%:END ELSE IF ERR=222:F%=OPENOUT"QUEST":FORL%=1TO&110:BPUT#F%,32:NEXT:CLOSE#F% ELSE REPORT:PRINTERL:END
   30 IFC%>1THEND%=5:REPEAT:D%=D%+3:RESTORED%*10:READE%:UNTILE%=C%:GOTO(D%+1)*10
   40 CLOSE#0:Y%=0:MODE7:*FX200,0
   50 FORI%=1TO2:PRINTCHR$(150);CHR$(157);CHR$(132);CHR$(141);"       8BS QUESTIONNAIRE":NEXT
   60 X%=OPENUP"QUEST"
   70 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!"
   80 VDU28,0,24,39,7
   90 DATA1
  100 C%=1:PRINT"1. Please enter your surname, maximum      12 characters."
  110 PROCinput1(0,12):PROCstring(0,12)
  120 DATA2
  130 C%=2:PRINT"2. Please enter your first name or         initials, max length 12 characters."
  140 PROCinput1(12,12):PROCstring(12,12)
  150 DATA3
  160 C%=3:PRINT"3. Please enter your address, including    postcode. Use a comma to separate       each line from the next. Max 70 char."
  170 PROCinput1(24,70):PROCstring(24,70)
  180 DATA4
  190 C%=4:PRINT"4. Do you mind 8-bit Software knowing      your phone number Y/N ?"
  200 PROCinput3(94):PROCbyte(94):IFCHR$(Y%)="Y"THENGOTO280ELSEIFCHR$(Z%)="Y"ANDA$="DEFAULT"THENGOTO280
  210 DATA5
  220 C%=5:PRINT"5. Please type in your phone number        (max. 16 char. - include STD code)"
  230 PROCinput1(95,16):PROCstring(95,16)
  240 DATA6
  250 C%=6:PRINT"6. Do you want your phone no. to be        published with any message  Y/N"
  260 PROCinput3(111):PROCbyte(111)
  270 DATA7
  280 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"
  290 PROCinput2(112,4,"A","B","C","D"," "," "):PROCbyte(112)
  300 DATA8
  310 C%=8:PRINT"8. How many reliable banks of sideways     RAM does your machine have (0-8)"
  320 PROCinput4(113,0,8):PROCbyte(113)
  330 DATA9
  340 C%=9:PRINT"9. Does your machine have shadow RAM       in any reliable form Y/N"
  350 PROCinput3(114):PROCbyte(114)
  360 DATA10
  370 C%=10:PRINT"10. Do you use a 6502 or 65C102             second/co-processor  Y/N"
  380 PROCinput3(115):PROCbyte(115)
  390 DATA11
  400 C%=11:PRINT"11. Do you have an internal or external     32016 processor  Y/N"
  410 PROCinput3(116):PROCbyte(116)
  420 DATA12
  430 C%=12:PRINT"12. Do you have any other form of extra     processor  Y/N"
  440 PROCinput3(117):PROCbyte(117)
  450 DATA13
  460 C%=13:PRINT"13. Do you have a modem  Y/N"
  470 PROCinput3(235):PROCbyte(235)
  480 DATA14
  490 C%=14:PRINT"14. Do you have ADFS on your machine Y/N";
  500 PROCinput3(118):PROCbyte(118):IF(CHR$(Y%)="N")OR(CHR$(Z%)="N"ANDA$="DEFAULT")THENGOTO550
  510 DATA15
  520 C%=15:PRINT"15. Can you *TYPE files when in your        ADFS  Y/N"
  530 PROCinput3(119):PROCbyte(119)
  540 DATA16
  550 C%=16:PRINT"16. Which of these disk sizes can you       use :"'"  (A) 5.25"" only"'"  (B) 3.5"" only"'"  (C) Both"
  560 PROCinput2(120,3,"A","B","C"," "," "," "):PROCbyte(120)
  570 DATA17
  580 C%=17:PRINT"17. Do you ever use an Econet, or know      anyone who does  Y/N"
  590 PROCinput3(121):PROCbyte(121)
  600 DATA18
  610 C%=18:PRINT"18. How many people do you know who use     Electrons with 80T drives (0-9)"
  620 PROCinput4(122,0,9):PROCbyte(122)
  630 DATA19
  640 C%=19:PRINT"19. How many years have you owned an        Acorn machine for ?"
  650 PROCinput1(123,2):PROCstring(123,2)
  660 DATA20
  670 C%=20:PRINT"20. How old are you ?"
  680 PROCinput1(125,2):PROCstring(125,2)
  690 DATA21
  700 C%=21:PRINT"21. Do you think that the MODE 7 format     magazine should be continued Y/N"
  710 PROCinput3(127):PROCbyte(127)
  720 DATA22
  730 C%=22:PRINT"22. Do you think that a two-disk issue      should be produced if necessary  Y/N";
  740 PROCinput3(128):PROCbyte(128)
  750 DATA23
  760 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"
  770 PROCinput2(129,5,"A","B","C","D","E"," "):PROCbyte(129)
  780 DATA24
  790 C%=24:PRINT"24. How useful/interesting do you           find articles on simple programming     (between 0 and 9)"
  800 PROCinput4(130,0,9):PROCbyte(130)
  810 DATA25
  820 C%=25:PRINT"25. How useful/interesting do you           find articles on advanced               programming (between 0 and 9)"
  830 PROCinput4(131,0,9):PROCbyte(131)
  840 DATA26
  850 C%=26:PRINT"26. How useful/interesting do you           find articles on modems/comms (0-9)"
  860 PROCinput4(132,0,9):PROCbyte(132)
  870 DATA27
  880 C%=27:PRINT"27. How useful/interesting do you           find reviews/cheats for commercial      software (0-9)"
  890 PROCinput4(133,0,9):PROCbyte(133)
  900 DATA28
  910 C%=28:PRINT"28. How useful/interesting do you           find info on hardware (0-9)"
  920 PROCinput4(134,0,9):PROCbyte(134)
  930 DATA29
  940 C%=29:PRINT"29. How interesting do you find             articles on general (non-computing)     topics (0-9)"
  950 PROCinput4(135,0,9):PROCbyte(135)
  960 DATA30
  970 C%=30:PRINT"30. How useful are utilities programs       (eg disk copiers etc) to you (0-9)"
  980 PROCinput4(136,0,9):PROCbyte(136)
  990 DATA31
 1000 C%=31:PRINT"31. How useful is applications s/w (e.g.    databases etc.) to you  (0-9)"
 1010 PROCinput4(137,0,9):PROCbyte(137)
 1020 DATA32
 1030 C%=32:PRINT"32. How useful are music programs to you    (0-9)"
 1040 PROCinput4(138,0,9):PROCbyte(138)
 1050 DATA33
 1060 C%=33:PRINT"33. How useful are graphics demos etc.      to you (0-9)"
 1070 PROCinput4(139,0,9):PROCbyte(139)
 1080 DATA34
 1090 C%=34:PRINT"34. How useful are games programs to you    (0-9)"
 1100 PROCinput4(140,0,9):PROCbyte(140)
 1110 DATA35
 1120 C%=35:PRINT"35. How useful is educational software      to you (0-9)"
 1130 PROCinput4(141,0,9):PROCbyte(141)
 1140 DATA36
 1150 C%=36:PRINT"36. Do you consider the 50p charge to be    reasonable  Y/N"
 1160 PROCinput3(142):PROCbyte(142)
 1170 DATA37
 1180 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"
 1190 PROCinput3(143):PROCbyte(143):IF(CHR$(Y%)="N")OR(CHR$(Z%)="N"ANDA$="DEFAULT")THENGOTO1290
 1200 DATA38
 1210 C%=38:PRINT"38. Please input your first computing       interest (e.g. comms, education,        music etc), max length 15 char."
 1220 PROCinput1(144,15):PROCstring(144,15)
 1230 DATA39
 1240 C%=39:PRINT"39. Please input your second computing      interest (RETURN if none), maximum      length 15 characters."
 1250 PROCinput1(159,15):PROCstring(159,15)
 1260 DATA40
 1270 C%=40:PRINT"40. Please input your third computing       interest (RETURN if none), maximum      length 15 characters."
 1280 PROCinput1(174,15):PROCstring(174,15)
 1290 DATA41
 1300 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"
 1310 PROCinput3(189):PROCbyte(189):IF(CHR$(Y%)="N")OR(CHR$(Z%)="N"ANDA$="DEFAULT")THENGOTO1410
 1320 DATA42
 1330 C%=42:PRINT"42. Please enter your first general         (non-computing) interest, maximum       length 15 characters."
 1340 PROCinput1(190,15):PROCstring(190,15)
 1350 DATA43
 1360 C%=43:PRINT"43. Please enter your second general        interest (RETURN if none), maximum      length 15 characters."
 1370 PROCinput1(205,15):PROCstring(205,15)
 1380 DATA44
 1390 C%=44:PRINT"44. Please enter your third general         interest (RETURN if none), maximum      length 15 characters."
 1400 PROCinput1(220,15):PROCstring(220,15)
 1410 DATA45
 1420 C%=45:PRINT"45. Do you own a mouse  Y/N"
 1430 PROCinput3(236):PROCbyte(236)
 1440 DATA46
 1450 C%=46:PRINT"46. Do you own a Music 500 or 5000  Y/N"
 1460 PROCinput3(237):PROCbyte(237)
 1470 DATA47
 1480 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"
 1490 PROCinput2(238,5,"A","B","C","D","E"," "):PROCbyte(238)
 1500 DATA48
 1510 C%=48:PRINT"48. Do you have a printer   Y/N"
 1520 PROCinput3(239):PROCbyte(239)
 1530 DATA49
 1540 C%=49:PRINT"49. Do you own:(A)‡Amiga(B)‡Atari ST  (C)‡PC 286 or higher                   (D)‡Apple Macintosh etc.               (E)‡None of above                      (F)‡More than one of above"
 1550 PROCinput2(240,6,"A","B","C","D","E","F"):PROCbyte(240)
 1560 DATA50
 1570 C%=50:PRINT"50. Is your disk drive a twin one (i.e.     drives 0 & 1) Y/N"
 1580 PROCinput3(241):PROCbyte(241)
 1590 DATA51
 1600 C%=51:PRINT"51. Are you a member of/do you plan to      join SOLINET Y/N"
 1610 PROCinput3(242):PROCbyte(242)
 1620 C%=0:Y%=0:A$="":GOTO90
 1630 DEFPROCinput1(P%,L%):PROCfx:PTR#X%=P%
 1640 PRINT'"Default/Current Answer : ";
 1650 FORI%=1TOL%:PRINTCHR$(BGET#X%);:NEXT:PTR#X%=PTR#X%-P%
 1660 REPEAT:INPUTLINE''"]"A$:UNTILLENA$<L%+1
 1670 PROCdelete
 1680 ENDPROC
 1690 DEFPROCinput2(P%,N%,a$(1),a$(2),a$(3),a$(4),a$(5),a$(6)):PROCfx:PTR#X%=P%
 1700 PRINT'"Default/Current Answer : ";CHR$(BGET#X%)':PTR#X%=PTR#X%-1
 1710 A$="":PRINT"]";:REPEAT:Y%=GET
 1720 FORI%=1TON%:IFCHR$(Y%)=a$(I%)THENA$=a$(I%)
 1730 NEXT
 1740 PROCdelete:IFY%=13THENA$="DEFAULT"
 1750 UNTILA$<>""
 1760 ENDPROC
 1770 DEFPROCinput3(P%):PROCfx:PTR#X%=P%
 1780 PRINT'"Default/Current Answer : ";
 1790 Z%=BGET#X%:PTR#X%=PTR#X%-1
 1800 IFZ%<127ANDZ%>31THENPRINTCHR$(Z%)'ELSEPRINT'
 1810 PRINT"]";:REPEATY%=GET:UNTILCHR$(Y%)="Y"ORCHR$(Y%)="N"ORY%=127ORY%=13
 1820 PROCdelete:IFY%=13THENA$="DEFAULT"ELSEA$=""
 1830 ENDPROC
 1840 DEFPROCinput4(P%,N%,M%):PROCfx:PTR#X%=P%
 1850 PRINT'"Default/Current Answer  : ";CHR$(BGET#X%)':PTR#X%=PTR#X%-1
 1860 A$="":REPEAT:PRINT"]";:Y%=GET
 1870 UNTIL(VALCHR$Y%<M%+1ANDVALCHR$Y%>N%-1)ORY%=127ORY%=13
 1880 PROCdelete:IFY%=13THENA$="DEFAULT"
 1890 ENDPROC
 1900 DEFPROCdelete
 1910 IFC%=41THENC%=36
 1920 IFA$="*"ORY%=127THENC%=C%-1:Y%=0:PRINT'':RUN
 1930 ENDPROC
 1940 DEFPROCfx
 1950 REM *FX202,32
 1960 *FX21
 1970 ENDPROC
 1980 DEFPROCbyte(P%)
 1990 IFY%=13THENPRINTA$'':ENDPROC
 2000 PRINTCHR$Y%'':PTR#X%=P%:BPUT#X%,Y%
 2010 ENDPROC
 2020 DEFPROCstring(P%,L%)
 2030 IFA$="" THEN PRINT"DEFAULT"'':ENDPROC ELSE PRINT''
 2040 IFLENA$<L%THENREPEAT:A$=A$+" ":UNTILLENA$=L%
 2050 PTR#X%=P%:FORI%=1TOL%:BPUT#X%,ASC(MID$(A$,I%,1)):NEXT
 2060 ENDPROC