5 GOSUB 500
10 OPEN15,8,15,"I0"
20 OPEN1,8,8,"0:64 CONTENTS,S,R":INPUT#15,EN,EM$:IF EN>0 THEN130
30 INPUT#1,MO$:INPUT#1,IT:DIMN$(IT),J$(IT)
40 IT=IT-3:REM ** SCREEN PROOF,MLX,SURV
50 FORI=0TOIT:INPUT#1,N$(I),J$(I):NEXT
60 CLOSE1:CLOSE15
70 OPEN15,8,15,"I0"
80 OPEN1,8,8,"0:128 CONTENTS,S,R":INPUT#15,EN,EM$:IF EN>0 THEN130
90 INPUT#1,MO$:INPUT#1,OT:DIMN1$(OT),J1$(OT)
100 OT=OT-3:REM ** SCREEN PROOF,MLX,SURV
110 FORI=0TOOT:INPUT#1,N1$(I),J1$(I):NEXT
120 CLOSE1:CLOSE15:GOTO140
130 CLOSE1:CLOSE15:PRINT"[147]DISK ERROR":END
140 SP$="                         "
150 L$="............................................."
160 H1$="COMPUTE!'S GAZETTE DISK SURVEY FOR THE "+MO$+" 1989 ISSUE"
170 OPEN4,4:CMD4
180 PRINT H1$:PRINT
190 PRINT"PLEASE RATE THE FOLLOWING GAZETTE ";:PRINT"PROGRAMS ON A SCALE OF ";
200 PRINT"1-10. A BLANK":PRINT"SPACE HAS BEEN PROVIDED FOR YOUR PERSONAL ";
210 PRINT"COMMENTS AND SUGGESTIONS."
220 FORX=1TO71:PRINT"*";:NEXT:PRINT
230 PRINT"PROGRAM TITLE       RATING                 COMMENTS"
240 FORX=1TO71:PRINT"*";:NEXT:PRINT:PRINT
250 FORI=0TO(IT)
260 IFLEN(N$(I))>20 THEN N$(I)=LEFT$(N$(I),19)
270 SP=20-LEN(N$(I))
280 N$(I)=N$(I)+LEFT$(SP$,SP)+" [  ] "+L$+CHR$(13)
290 PRINTN$(I)
300 NEXT
310 PRINT"* 128 PROGRAMS *":PRINT
320 FORI=0TO(OT)
330 IFLEN(N1$(I))>20 THEN N1$(I)=LEFT$(N1$(I),19)
340 SP=20-LEN(N1$(I))
350 N1$(I)=N1$(I)+LEFT$(SP$,SP)+" [  ] "+L$+CHR$(13)
360 PRINTN1$(I)
370 NEXT
380 FORX=1TO71:PRINT"*";:NEXT:PRINT
390 PRINT"LIST ANY ADDITIONAL COMMENTS BELOW:":PRINT
400 FORX=1TO3:FORY=1TO71
410 PRINT".";:NEXT:PRINT:PRINT
420 NEXT
430 FORX=1TO71:PRINT"*";:NEXT:PRINT
440 PRINT"RETURN THIS FORM TO THE ADDRESS BELOW.";:PRINT" THANK YOU FOR YOUR ";
450 PRINT"PARTICIPATION.":PRINT
460 PRINT"ATTENTION: SUBMISSIONS REVIEWER"
470 PRINT"P.O. BOX 5406"
480 PRINT"GREENSBORO, NC  27403"
490 PRINT#4:CLOSE4
495 GOTO 600
500 PRINT"[147]":POKE53281,0:POKE53280,0
510 PRINT"WE'RE INTERESTED IN YOUR OPINIONS ABOUT"
520 PRINT"THE GAZETTE DISK SERVICE AND THE"
530 PRINT"PROGRAMS WE PUBLISH. TO HELP US SERVE"
540 PRINT"YOU BETTER, PLEASE TAKE THE TIME TO"
550 PRINT"FILL OUT OUR SURVEY SHEET. ANY"
551 PRINT"COMMENTS, CRITICAL OR COMPLIMENTARY,"
552 PRINT"ARE WELCOME. THE GAZETTE SURVEY WILL BE"
553 PRINT"PRINTED TO YOUR PRINTER. MAKE SURE YOUR"
555 PRINT"PRINTER IS ON-LINE AND THE PAPER IS"
556 PRINT"POSITIONED AT THE TOP OF FORM."
557 PRINT" M [146] RETURN TO MENU."
558 PRINT" P [146] PRINT SURVEY."
560 GETA$:IFA$="" THEN 560
570 IF A$="M" THEN GOTO600
580 IF A$="P" THEN RETURN
590 GOTO560
600 V=PEEK(772)+256*PEEK(773)
601 IFV=17165 THEN RUN"128 MENU"
610 PRINT"[147][144]LOAD";CHR$(34);"MN";CHR$(34);",8"
611 PRINT"PRINTCHR$(147):RUN"
612 POKE198,3:POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE635,13
630 END