10 A=A+1:IFA=1THENGOSUB60100:LOAD"BLOAD.O",8,1
20 SYS 828,16384,"CRITIQUE.TEXT"
30 SYS 828,49152,"CRITIQUE.O"
40 :
50 POKE55,.:POKE56,64:CLR:                 DIM L$(20),AN$(100,2),AD(100)
55 IN$="53":REM OPEN3,8,3,"FEATURES":GET#3,A$,A$:INPUT#3,IN$:CLOSE3
60 POKE214,22:PRINT:PRINT"     [208][210][197][211][211] [211][208][193][195][197] [212][207] [195][207][206][212][201][206][213][197]    ":POKE198,.
70 IFPEEK(203)<>60THEN70
80 :
100 POKE53280,11:PRINT"[147][158]             [210][197][193][196][197][210] [195][210][201][212][201][209][213][197]"
110 PRINT"[154]       [215]HICH WOULD YOU LIKE TO DO?"
120 PRINT"       [[198][154]]ILL OUT THE READER SURVEY"
130 PRINT"       [[210][154]]ETURN TO [204]OADSTAR"
140 PRINT"       [208]RESS [198] [154]OR [210][154]."
150 GETA$:IFA$<>"F"ANDA$<>"R"THEN150
160 IFA$="R"THEN60000
165 ST$="":FORA=.TO40:B=PEEK(16384+A):IFB<>13THENST$=ST$+CHR$(B):NEXT
166 SS=A+1
170 POKE250,SS:POKE251,64:AL$="ABCDEFGHIJKLMNOPQRSTUVWXYZ":CQ=1
180 :
200 IFST$="[195]RITIQUE"THENST$="[204][207][193][196][211][212][193][210] #"+IN$+" [195][210][201][212][201][209][213][197]"
205 TA=20-LEN(ST$)/2:PRINT"[147][158]"TAB(TA)ST$
210 PRINT"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][157][148][163]"
215 PRINT"[151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
216 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
220 AD(CQ)=PEEK(250)+PEEK(251)*256
225 SYS49152,NL%,L$(1):LS=1
230 NC=VAL(LEFT$(L$(NL%),2)):               OO=VAL(MID$(L$(NL%),3,1))
232 OS=VAL(RIGHT$(L$(NL%),1))
235 GOSUB5000:NL%=NL%+(NC=99)*-7
237 IF(NC=.)AND(OO)THENGOSUB7100
239 CE=INT(8-NL%/2):PRINT"[154]";:FORA=1TOCE:PRINT:NEXT:NL%=NL%+(NC=99)*7
240 FORA=1TONL%-1:PRINT" "L$(A):NEXT
250 IF NC=99 THEN 400
260 IF NC=. AND (OO) THEN GOSUB9000:GOTO390
270 TC=PEEK(214)-NC-1:AN$=LEFT$(AL$,NC)
275 POKE198,.:IF(NC)THENGOSUB7000
280 GETA$:IF(A$<"A"ORA$>RIGHT$(AN$,1))AND(A$<>CHR$(13))THEN280
285 IFA$=CHR$(13)THEN340
290 A=ASC(A$):CS=A-65
292 IF(OS)THENPOKE214,TC+LS:PRINT:PRINT"[154] "L$(NL%-NC+LS)
294 IF(OS)AND((TC+LS-1)=NL%+CE)AND(OO)THENGOSUB8500:AN$(CQ,2)=""
295 POKE214,CS+TC:PRINT:LS=CS
300 AD=PEEK(209)+PEEK(210)*256+PEEK(211)+1
310 IF(PEEK(AD)AND128)=.THENPRINT " " L$(NL%-NC+CS):GOTO330
320 IF(PEEK(AD)AND128)THENPRINT "[154] " L$(NL%-NC+CS)
325 IF ((TC+CS-1)=NL%+CE) AND (OO) THEN GOSUB8000:AN$(CQ,2)="":GOTO280
330 IF ((TC+CS-1)=NL%+CE) AND (OO) THENGOSUB7100:GOSUB8000:GOSUB9000:GOSUB7000
335 GOTO280
340 POKE214,TC:PRINT
350 FORA=1TONC
360 AD=PEEK(209)+PEEK(210)*256+PEEK(211)+1
370 IFPEEK(AD)AND128THENAN$(CQ,1)=AN$(CQ,1)+CHR$(64+A)
380 PRINT:NEXT:IF(AN$(CQ,1)="")AND(AN$(CQ,2)="")THENGOSUB9500:GOTO280
390 CQ=CQ+1:GOTO220
395 :
400 PRINT"     [154][215]OULD YOU LIKE TO RETURN YOUR"
440 PRINT"     RESPONSES TO [204]OADSTAR ON DISK OR"
445 PRINT"     PAPER?"
446 PRINT "   [217]OU MAY ALSO QUIT WITHOUT SAVING"
447 PRINT"   YOUR RESPONSES."
450 PRINT"        [208]RESS [196][154], [208][154], OR [209][154]."
460 GOSUB6000
470 A=PEEK(203):IFA<>18ANDA<>41ANDA<>62THEN470
475 IFA=62THEN900
480 IFA=41THEN700
490 :
500 GOSUB5000:PRINT"     [208]LEASE INSERT A DISK TO HOLD"
510 PRINT"     YOUR RESPONSE INFORMATION AND"
520 PRINT"     PRESS [211][208][193][195][197][154] TO CONTINUE.":POKE198,.
525 PRINT"     [206][207][212][197]: [212]HIS WILL ERASE ANY OLD"
526 PRINT"     SURVEY RESPONSES THAT ARE ON"
527 PRINT"     THIS DISK.":POKE198,.
530 IFPEEK(203)<>60THEN530
540 GOSUB6000:POKE214,21:PRINT:PRINT"  [211]AVING YOUR RESPONSE INFORMATION..."
550 OPEN15,8,15,"I0":PRINT#15,"S0:SURVEY.RESPONSE":CLOSE15
560 OPEN3,8,3,"SURVEY.RESPONSE,P,W"
570 PRINT#3,CHR$(13)CHR$(13);
580 PRINT#3,IN$
590 FORA=1TOCQ
600 PRINT#3,AN$(A,1):PRINT#3,AN$(A,2)
610 NEXT:CLOSE3:GOTO900
620 :
700 OPEN15,4,15:CLOSE15:IFST=.THEN730
710 GOSUB6000:POKE214,21:PRINT:PRINT"      [197][210][210][207][210]: [208][210][201][206][212][197][210] [206][207][212] [196][197][212][197][195][212][197][196]!"
720 FORA=1TO2000:POKE54296,15:POKE54296,.:NEXT:GOSUB6000:GOTO470
730 GOSUB6000:POKE214,21:PRINT:PRINT"      [208]RINTING YOUR RESPONSES ..."
740 OPEN4,4,7:POKE250,SS:POKE251,64
745 FORA=1TOTA:PRINT#4," ";:NEXT:PRINT#4,ST$
750 FORA=1TOCQ-1:PRINT#4
760 SYS49152,NL%,L$(1)
770 NC=VAL(LEFT$(L$(NL%),2)):               OO=VAL(MID$(L$(NL%),3,1))
780 FORB=1TONL%-NC-1:PRINT#4,L$(B):NEXT
790 IF (NC=.) THEN 840
800 FORB=1TOLEN(AN$(A,1))
810 C=ASC(MID$(AN$(A,1),B,1))-65
820 PRINT#4,L$((NL%-NC)+C)
830 NEXT
840 IF (AN$(A,2)<>"") AND (OO) THEN PRINT#4,":"AN$(A,2)
850 NEXT
860 :
900 GOSUB6000:POKE214,20:PRINT
920 PRINT"   [154][208]RESS [211][208][193][195][197] [154]TO RETURN TO [204][207][193][196][211][212][193][210].":POKE198,.
930 IFPEEK(203)<>60THEN930
940 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
950 IFER<>63THENEND
960 LOAD"HELLO CONNECT",8
5000 PRINT"";:FORA=1TO14
5010 PRINT"                                       ":NEXT:RETURN
6000 POKE214,19:PRINT
6010 FORB=1TO4:PRINT"                                      ":NEXT
6020 RETURN
7000 GOSUB6000
7005 PRINT"     [154][208]LEASE MAKE YOUR SELECTION(S):"
7010 A$="":FORA=1TOLEN(AN$)
7020 A$=A$+CHR$(ASC(MID$(AN$,A,1))+128)
7030 IFA<>LEN(AN$)THENA$=A$+" "
7040 NEXT:A$=A$+"  [154]OR  [210][197][212][213][210][206]"
7050 TA=20-LEN(A$)/2+1:PRINT""TAB(TA)A$""
7060 RETURN
7100 GOSUB6000
7105 PRINT"      [154][208]LEASE ENTER YOUR RESPONSE."
7110 RETURN
8000 POKE214,CS+TC+1:PRINT:PRINT"                                      [145]"
8010 RETURN
8500 POKE214,LS+TC+1:PRINT:PRINT"                                      [145]"
8510 RETURN
8900 :
9000 B$="":PRINT"[154]:[164]";:POKE198,.:FORA=1TO38
9010 GETA$:IFA$=""THEN9010
9020 IFA$=CHR$(13)THENPRINT"[157] ":AN$(CQ,2)=B$:RETURN
9030 IF(A$=CHR$(20))AND(A>1)THENA=A-1:B$=LEFT$(B$,A-1):PRINT"[157][157]  [157][157][154][164]";:GOTO9010
9035 IFA=38THEN9010
9040 IFA$>=" "ANDA$<="Z"THEN9070
9050 IFA$>="[193]"ANDA$<="[218]"THEN9070
9060 GOTO9010
9070 B$=B$+A$:PRINT"[157]"A$;:POKE212,.:PRINT"[154][164]";
9080 NEXT
9500 GOSUB6000:POKE214,20:PRINT:PRINT"[150]  [217]OU [205][213][211][212] SELECT AT LEAST ONE OF THE"
9510 PRINT"     ABOVE ITEMS BEFORE CONTINUING."
9530 FORA=1TO3000:NEXT:GOSUB7000:RETURN
59998 :
59999 :
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8
60098 :
60099 :
60100 POKE53280, 0:POKE53281, 0:PRINT"[147]";
60101 PRINT"[151][167][163][163][152][163][163][163][163][163][163][155][163][163][163][163][163][163][163][163][163][163][163][163][155][163][163][163][163][163][163][152][163][163][163][163][163][163][151][163][163][165]"
60102 PRINT"[167]loadstarpresents:[151][165]"
60103 PRINT"[167][164][164][152][164][164][164][164][164][164][155][164][164][164][164][164][164][164][164][164][164][164][164][155][164][164][164][164][164][164][152][164][164][164][164][164][164][151][164][164][165]"
60104 PRINT"[163][163][163][163][163][154][163][163][163][163][163][163][159][163][163][163][163][163][163][163][163][163][163][163][163][159][163][163][163][163][163][163][154][163][163][163][163][163][163][163][163][163][163][163][158][210][197][193][196]";
60105 PRINT"[197][210][195][210][201][212][201][209][213][197]"
60106 PRINT"[156]programby:mIKEmAYNARD"
60107 PRINT"[195][210][201][212][201][209][213][197][194][217]:[211]OFTDISK[211]TAFF"
60108 PRINT"[158]copyright1988"
60109 PRINT"[164][164][164][164][164][154][164][164][164][164][164][164][159][164][164][164][164][164][164][164][164][164][164][164][164][159][164][164][164][164][164][164][154][164][164][164][164][164][164][164][164][164][164][164][151][167][163][163][152][163][163][163][163][163][163][155][163][163][163][163][163][163]";
60110 PRINT"[163][163][163][163][163][163][155][163][163][163][163][163][163][152][163][163][163][163][163][163][151][163][163][165]"
60111 PRINT"[167] [208][204][197][193][211][197] [215][193][201][212] -- [204][207][193][196][201][206][199] [198][201][204][197][211]  [151][165]"
60112 PRINT"[167][164][164][152][164][164][164][164][164][164][155][164][164][164][164][164][164][164][164][164][164][164][164][155][164][164][164][164][164][164][152][164][164][164][164][164][164][151][164][164][165]"
60120 RETURN