10DIMa$(20):A$="":ONERRORIFERR=17THEN
CLOSE#X%:OSCLI"EXEC !BOOT":ENDELSEPRINT'
'"ERROR ";ERR;" AT LINE ";ERL;" : ";:REP
ORT
20IFC%>1THEND%=5:REPEAT:D%=D%+3:RESTO
RED%*10:READE%:UNTILE%=C%:GOTO(D%+1)*10
30CLOSE#0:Y%=0:MODE7:*FX200,0
40FORI%=1TO2:PRINTCHR$(150);CHR$(157)
;CHR$(132);CHR$(141);" 8BS QUESTIO
NNAIRE":NEXT
50X%=OPENUP"QUEST"
60PRINT" Please try to answer as many
questions as you can,but feel free to
ignore any that you find intrusi
ve."'" THANKS FOR YOUR HELP!"
70VDU28,0,24,39,7:REPEAT
80DATA1
90C%=1:PRINT"1. Please enter your sur
name, maximum 12 characters."
100PROCinput1(0,12):PROCstring(0,12)
110DATA2
120C%=2:PRINT"2. Please enter your fir
st name or initials, max length
12 characters."
130PROCinput1(12,12):PROCstring(12,12)
140DATA3
150C%=3:PRINT"3. Please enter your add
ress, including postcode. Use a comma
to separate each line from the ne
xt. Max 70 char."
160PROCinput1(24,70):PROCstring(24,70)
170DATA4
180C%=4:PRINT"4. Do you mind 8-bit Sof
tware knowing your phone number Y/N
?"
190PROCinput3(94):PROCbyte(94):IFCHR$(
Y%)="Y"THENGOTO270ELSEIFCHR$(Z%)="Y"ANDA
$="DEFAULT"THENGOTO270
200DATA5
210C%=5:PRINT"5. Please type in your p
hone number (max. 16 char. - incl
ude STD code)"
220PROCinput1(95,16):PROCstring(95,16)
230DATA6
240C%=6:PRINT"6. Do you want your phon
e no. to be published with any me
ssage Y/N"
250PROCinput3(111):PROCbyte(111)
260DATA7
270C%=7:PRINT"7. Which of these machin
es do you own :"'" (A) BBC B (or B+ etc
)"'" (B) Master 128"'" (C) Master Comp
act"'" (D) Master 512"
280PROCinput2(112,4,"A","B","C","D","
"," "):PROCbyte(112)
290DATA8
300C%=8:PRINT"8. How many reliable ban
ks of sideways RAM does your machine
have (0-8)"
310PROCinput4(113,0,8):PROCbyte(113)
320DATA9
330C%=9:PRINT"9. Does your machine hav
e shadow RAM in any reliable form
Y/N"
340PROCinput3(114):PROCbyte(114)
350DATA10
360C%=10:PRINT"10. Do you use a 6502 o
r 65C102 second/co-processor
Y/N"
370PROCinput3(115):PROCbyte(115)
380DATA11
390C%=11:PRINT"11. Do you have an inte
rnal or external 32016 processor Y/
N"
400PROCinput3(116):PROCbyte(116)
410DATA12
420C%=12:PRINT"12. Do you have any oth
er form of extra processor Y/N"
430PROCinput3(117):PROCbyte(117)
440DATA13
450C%=13:PRINT"13. Do you have a modem
Y/N"
460PROCinput3(235):PROCbyte(235)
470DATA14
480C%=14:PRINT"14. Do you have ADFS on
your machine Y/N";
490PROCinput3(118):PROCbyte(118):IF(CH
R$(Y%)="N")OR(CHR$(Z%)="N"ANDA$="DEFAULT
")THENGOTO540
500DATA15
510C%=15:PRINT"15. Can you *TYPE files
when in your ADFS Y/N"
520PROCinput3(119):PROCbyte(119)
530DATA16
540C%=16:PRINT"16. Which of these disk
sizes can you use :"'" (A) 5.25"
" only"'" (B) 3.5"" only"'" (C) Both"
550PROCinput2(120,3,"A","B","C"," ","
"," "):PROCbyte(120)
560DATA17
570C%=17:PRINT"17. Do you ever use an
Econet, or know anyone who does Y/
N"
580PROCinput3(121):PROCbyte(121)
590DATA18
600C%=18:PRINT"18. How many people do
you know who use Acorn Electrons (0-
9)"
610PROCinput4(122,0,9):PROCbyte(122)
620DATA19
630C%=19:PRINT"19. How many years have
you owned an Acorn machine for ?
"
640PROCinput1(123,2):PROCstring(123,2)
650DATA20
660C%=20:PRINT"20. How old are you ?"
670PROCinput1(125,2):PROCstring(125,2)
680DATA21
690C%=21:PRINT"21. Do you think that m
oving the disk mag. to a purely MO
DE-7 format is all-important Y
/N"
700PROCinput3(127):PROCbyte(127)
710DATA22
720C%=22:PRINT"22. Do you think that a
two-disk issue should be produced
if necessary Y/N";
730PROCinput3(128):PROCbyte(128)
740DATA23
750C%=23:PRINT"23. As a programmer, wo
uld you rate your ability"'" (A) Non
-existent"'" (B) Simple BASIC only"'"
(C) Complex BASIC"'" (D) BASIC/simple a
ssembler"'" (E) Experienced coder"
760PROCinput2(129,5,"A","B","C","D","E
"," "):PROCbyte(129)
770DATA24
780C%=24:PRINT"24. How useful/interest
ing would you find articles on si
mple programming (between 0 and 9)"
790PROCinput4(130,0,9):PROCbyte(130)
800DATA25
810C%=25:PRINT"25. How useful/interest
ing would you find articles on ad
vanced programming (betwee
n 0 and 9)"
820PROCinput4(131,0,9):PROCbyte(131)
830DATA26
840C%=26:PRINT"26. How useful/interest
ing would you find articles on mo
dems/comms (0-9)"
850PROCinput4(132,0,9):PROCbyte(132)
860DATA27
870C%=27:PRINT"27. How useful/interest
ing would you find reviews/cheats
for commercial software (0-9)"
880PROCinput4(133,0,9):PROCbyte(133)
890DATA28
900C%=28:PRINT"28. How useful/interest
ing would you find info on hardwa
re (0-9)"
910PROCinput4(134,0,9):PROCbyte(134)
920DATA29
930C%=29:PRINT"29. How interesting wou
ld you find articles on general
(non-computing) topics (0-9)"
940PROCinput4(135,0,9):PROCbyte(135)
950DATA30
960C%=30:PRINT"30. How useful are util
ities programs (eg disk copiers et
c) to you (0-9)"
970PROCinput4(136,0,9):PROCbyte(136)
980DATA31
990C%=31:PRINT"31. How useful is appli
cations s/w (e.g. databases etc.) to
you (0-9)"
1000PROCinput4(137,0,9):PROCbyte(137)
1010DATA32
1020C%=32:PRINT"32. How useful are musi
c programs to you (0-9)"
1030PROCinput4(138,0,9):PROCbyte(138)
1040DATA33
1050C%=33:PRINT"33. How useful are grap
hics demos etc. to you (0-9)"
1060PROCinput4(139,0,9):PROCbyte(139)
1070DATA34
1080C%=34:PRINT"34. How useful are game
s programs to you (0-9)"
1090PROCinput4(140,0,9):PROCbyte(140)
1100DATA35
1110C%=35:PRINT"35. How useful is educa
tional software to you (0-9)"
1120PROCinput4(141,0,9):PROCbyte(141)
1130DATA36
1140C%=36:PRINT"36. Do you consider the
50p charge for issue 21 to be reas
onable Y/N"
1150PROCinput3(142):PROCbyte(142)
1160DATA37
1170C%=37:PRINT"37. Do you wish to give
details of your computing interests
for inclusion in the 8BS database fo
r all members' reference Y/N"
1180PROCinput3(143):PROCbyte(143):IF(CH
R$(Y%)="N")OR(CHR$(Z%)="N"ANDA$="DEFAULT
")THENGOTO1280
1190DATA38
1200C%=38:PRINT"38. Please input your f
irst computing interest (e.g. comm
s, education, music etc), max len
gth 15 char."
1210PROCinput1(144,15):PROCstring(144,1
5)
1220DATA39
1230C%=39:PRINT"39. Please input your s
econd computing interest (RETURN if
none), maximum length 15 character
s."
1240PROCinput1(159,15):PROCstring(159,1
5)
1250DATA40
1260C%=40:PRINT"40. Please input your t
hird computing interest (RETURN if
none), maximum length 15 character
s."
1270PROCinput1(174,15):PROCstring(174,1
5)
1280DATA41
1290C%=41:PRINT"41. Do you wish to give
details of your general interests f
or inclusion in the 8BS database fo
r all members' reference Y/N"
1300PROCinput3(189):PROCbyte(189):IF(CH
R$(Y%)="N")OR(CHR$(Z%)="N"ANDA$="DEFAULT
")THENGOTO1400
1310DATA42
1320C%=42:PRINT"42. Please enter your f
irst general (non-computing) int
erest, maximum length 15 character
s."
1330PROCinput1(190,15):PROCstring(190,1
5)
1340DATA43
1350C%=43:PRINT"43. Please enter your s
econd general interest (RETURN if
none), maximum length 15 character
s."
1360PROCinput1(205,15):PROCstring(205,1
5)
1370DATA44
1380C%=44:PRINT"44. Please enter your t
hird general interest (RETURN if
none), maximum length 15 character
s."
1390PROCinput1(220,15):PROCstring(220,1
5)
1400DATA45
1410C%=45:PRINT"45. Do you own a mouse
Y/N"
1420PROCinput3(236):PROCbyte(236)
1430DATA46
1440C%=46:PRINT"46. Do you own a Music
500 or 5000 Y/N"
1450PROCinput3(237):PROCbyte(237)
1460DATA47
1470C%=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"
1480PROCinput2(238,5,"A","B","C","D","E
"," "):PROCbyte(238)
1490DATA48
1500C%=48:PRINT"48. Do you have a print
er Y/N"
1510PROCinput3(239):PROCbyte(239)
1520C%=0:Y%=0:A$="":GOTO80
1530DEFPROCinput1(P%,L%):PROCfx:PTR#X%=
P%
1540PRINT'"Default/Current Answer : ";
1550FORI%=1TOL%:PRINTCHR$(BGET#X%);:NEX
T:PTR#X%=PTR#X%-P%
1560REPEAT:INPUTLINE''"]"A$:UNTILLENA$<
L%+1
1570PROCdelete
1580ENDPROC
1590DEFPROCinput2(P%,N%,a$(1),a$(2),a$(
3),a$(4),a$(5),a$(6)):PROCfx:PTR#X%=P%
1600PRINT'"Default/Current Answer : ";C
HR$(BGET#X%)':PTR#X%=PTR#X%-1
1610A$="":PRINT"]";:REPEAT:Y%=GET
1620FORI%=1TON%:IFCHR$(Y%)=a$(I%)THENA$
=a$(I%)
1630NEXT
1640PROCdelete:IFY%=13THENA$="DEFAULT"
1650UNTILA$<>""
1660ENDPROC
1670DEFPROCinput3(P%):PROCfx:PTR#X%=P%
1680PRINT'"Default/Current Answer : ";
1690Z%=BGET#X%:PTR#X%=PTR#X%-1
1700IFZ%<127ANDZ%>31THENPRINTCHR$(Z%)'E
LSEPRINT'
1710PRINT"]";:REPEATY%=GET:UNTILCHR$(Y%
)="Y"ORCHR$(Y%)="N"ORY%=127ORY%=13
1720PROCdelete:IFY%=13THENA$="DEFAULT"E
LSEA$=""
1730ENDPROC
1740DEFPROCinput4(P%,N%,M%):PROCfx:PTR#
X%=P%
1750PRINT'"Default/Current Answer : ";
CHR$(BGET#X%)':PTR#X%=PTR#X%-1
1760A$="":REPEAT:PRINT"]";:Y%=GET
1770UNTIL(VALCHR$Y%<M%+1ANDVALCHR$Y%>N%
-1)ORY%=127ORY%=13
1780PROCdelete:IFY%=13THENA$="DEFAULT"
1790ENDPROC
1800DEFPROCdelete
1810IFC%=41THENC%=36
1820IFA$="*"ORY%=127THENC%=C%-1:Y%=0:PR
INT'':RUN
1830ENDPROC
1840DEFPROCfx
1850*FX202,32
1860*FX21
1870ENDPROC
1880DEFPROCbyte(P%)
1890IFY%=13THENPRINTA$'':ENDPROC
1900PRINTCHR$Y%'':PTR#X%=P%:BPUT#X%,Y%
1910ENDPROC
1920DEFPROCstring(P%,L%)
1930IFA$=""THENPRINT"DEFAULT"'':ENDPROC
ELSEPRINT''
1940IFLENA$<L%THENREPEAT:A$=A$+" ":UNTI
LLENA$=L%
1950PTR#X%=P%:FORI%=1TOL%:BPUT#X%,ASC(M
ID$(A$,I%,1)):NEXT
1960ENDPROC