10 REM"Rating questionnaire
   20 REM"By C.J.Richardson
   30 REM"For 8 Bit Software
   40 REM"Produces a file for return
   50 REM"to 8BS for processing
   60 Q%=5
   70 ONERROR IFERR=214PROCsetup:RUN ELSE REPORT:PRINTERL:END
   80 *INFO RatQdat
   90 DEFFNS="RatQ"
  100 DIMR$(Q%)
  110 F%=OPENIN"RatQDat"
  120 FORL%=0TOQ%:INPUT#F%,R$(L%)
  130 NEXT
  140 CLOSE#F%
  150 ONERROR IFERR=17:PROCp("Save? Y/N"):IFGET$="Y":F%=OPENOUT"RatQdat":FORL%=0TOQ%:PRINT#F%,R$(L%):NEXT:CLOSE#F%:END ELSE IF ERR=17 END ELSE REPORT:PRINTERL:PROCp("PRESS A KEY"):REPEATUNTILGET
  160 MODE7
  170 VDU23;8202;0;0;0;
  180 PROCd("Rating Questionnaire"):PRINT
  190 PROCp("For 8 Bit Software")
  200 PROCp("Your opinions please.")
  210 PROCp("ESCAPE to save and quit")
  220 PROCp("RETURN for default")
  230 VDU28,0,23,39,11
  240 L%=0
  250 REPEAT
  260 RESTORE
  270 CLS
  280 VDU131:PRINT"Entry: ";STR$(L%+1);" of ";STR$(Q%+1)
  290 VDU130:PRINT"Default name:";CHR$134;LEFT$(R$(L%),20)
  300 VDU130:INPUT"Name of program: "C$:IF C$<>"" C$=C$+STRING$(20," "):R$(L%)=LEFT$(C$,20)+MID$(R$(L%),21)
  310 C%=0:REPEAT
  320 CLS
  330 VDU134:PRINT"Program: ";LEFT$(R$(L%),20)
  340 READB$
  350 VDU131
  360 PRINTB$
  370 B%=0
  380 E%=VAL(MID$(R$(L%),21+C%,1))
  390 REPEAT
  400 READB$
  410 IFB%=E%VDU129 ELSE VDU130
  420 IF B$<>"" AND B$<>"E" PRINTSTR$(B%);" - ";B$
  430 B%=B%+1
  440 UNTILB$="" OR B$="E"
  450 PRINTCHR$131;"Default choice:";CHR$129;STR$E%;
  460 REPEAT:OSCLI"FX21":C$=GET$:D%=ASC(C$):UNTILVALC$<B%-1
  470 IFD%<>13 IFVALC$=0 C$="0"
  480 IFD%<>13 R$(L%)=LEFT$(R$(L%),20+C%)+C$+MID$(R$(L%),C%+22)
  490 C%=C%+1:UNTILB$="E"
  500 CLS
  510 PRINTCHR$131;"Default comments :"
  520 PRINTRIGHT$(R$(L%),227)
  530 VDU134:INPUT"Comments:"'C$
  540 IFC$<>"":C$=C$+STRING$(255-LENC$," "):R$(L%)=LEFT$(R$(L%),28)+LEFT$(C$,227)
  550 CLS:PRINTCHR$130;"You have given ";LEFT$(R$(L%),20)'
  560 G%=0
  570 FORF%=21TO28:G%=G%+VAL(MID$(R$(L%),F%,1)):NEXT
  580 PROCp("a rating of: "+STR$G%+" out of 40")
  590 E$=STRING$(G%DIV10,"*")
  600 IFG%=0 E$="no stars!"
  610 PROCp("That's "+STR$(2.5*G%)+"% or "+E$)
  620 PROCp("Press 0 to re-enter last review")
  630 PROCp("Press - to go back 1")
  640 PROCp("or any other key for next"):OSCLI"FX21":A$=GET$
  650 IF A$="0" ELSE IF A$="-"L%=L%-1 ELSE L%=L%+1
  660 IFL%>Q%L%=0 ELSE IF L%<0 L%=Q%
  670 UNTILFALSE
  680 END
  690 DEFPROCsetup:F%=OPENOUT"RatQDat":FORL%=0TOQ%:PRINT#F%,STRING$(255," "):NEXT:CLOSE#F%:ENDPROC
  700 DEFPROCd(A$):PRINTTAB(18-LENA$/2);"��";A$;TAB(18-LENA$/2);"�ƒ";A$:ENDPROC
  710 DEFPROCp(A$):PRINTTAB(18-LENA$/2);:VDU132,157,131:PRINTA$;"  ";CHR$156':ENDPROC
  720 DATAOverall opinion,No comment,Poor,Average,Good,Commercial standard,Excellent,""
  730 DATAInfo,No comment,Poor,Average,Good,Commercial standard,Excellent,""
  740 DATAGame idea,No comment,Poor,Average,Good,Commercial standard,Excellent,""
  750 DATAGraphics,No comment,Poor,Average,Good,Commercial standard,Excellent,""
  760 DATASound,No comment,Poor,Average,Good,Commercial standard,Excellent,""
  770 DATAAddictability,None,2 minutes,15 minutes,1 hour,No sleep,""
  780 DATACompatibility,Doesn't work,Works Electron,Works BBC B,Works Master,Works Archimedes,""
  790 DATARecommendation,Forget it," "," "," "," "," ","Definately",Get it yesterday,"E"