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