10 GOSUB60100
20 SYS57812"CRITIQUE.TEXT",8,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
30 SYS57812"CRITIQUE.O",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
40 :
50 POKE55,.:POKE56,64:CLR:DIM L$(20),AN$(100,8),AD(100),C1$(70),C2$(70)
55 IN$=CHR$(PEEK(16385))+CHR$(PEEK(16386))
56 NP=VAL(CHR$(PEEK(16388))+CHR$(PEEK(16389)))
60 POKE214,23:PRINT:PRINT"     [208][210][197][211][211] [211][208][193][195][197] [212][207] [195][207][206][212][201][206][213][197]    [145][145]":POKE198,.
70 IFPEEK(203)<>60THEN70
80 :
100 POKE53280,11:PRINT"[147][158]              [210][197][193][196][197][210] [211][213][210][214][197][217]"
110 PRINT"[154]       [215]HICH WOULD YOU LIKE TO DO?"
120 PRINT"       [[198][154]]ILL OUT THE READER CRITIQUE"
130 PRINT"       [[210][154]]ETURN TO [204][207][193][196][211][212][193][210]"
140 PRINT"       [208]RESS [198] [154]OR [210][154]."
150 GETA$:IFA$<>"F"ANDA$<>"R"THEN150
160 IFA$="R"THEN60000
170 POKE250,7:POKE251,64:AL$="ABCDEFGHIJKLMNOPQRSTUVWXYZ":CQ=1
180 :
200 ST$="[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:EL=3:IFCQ=NP+3THENEL=6
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
238 CE=INT(8-(NL%+EL)/2):PRINT"[154]";:IFCE=.THEN240
239 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][207][193][196][211][212][193][210] ON DISK OR"
445 PRINT"     PAPER?"
450 PRINT"             [208]RESS [196] [154]OR [208][154]."
460 GOSUB6000
470 A=PEEK(203):IFA<>18ANDA<>41THEN470
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"     CRITIQUE 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:CRITIQUE.RSP":CLOSE15
560 OPEN3,8,3,"CRITIQUE.RSP,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 ...":CL=0
732 POKE250,7:POKE251,64:FORA=1TO12:SYS49152,NL%,L$(1)
733 CL=CL+1:C1$(CL)=L$(1)
734 CL=CL+1:C1$(CL)=AN$(A,2):               CL=CL+1:C1$(CL)=AN$(A,3)
735 CL=CL+1:C1$(CL)=AN$(A,4):               CL=CL+1:C1$(CL)=" ":NEXT
736 CL=.:FORA=13TONP+2:SYS49152,NL%,L$(1)
737 CL=CL+1:C2$(CL)=L$(1)
738 CL=CL+1:C2$(CL)=AN$(A,2):               CL=CL+1:C2$(CL)=AN$(A,3)
739 CL=CL+1:C2$(CL)=AN$(A,4):               CL=CL+1:C2$(CL)=" ":NEXT
745 :
750 SYS49152,NL%,L$(1)
755 FORB=1TONL%-1:CL=CL+1:C2$(CL)=L$(B):NEXT
760 FORB=1TO6:CL=CL+1:C2$(CL)=AN$(NP+3,B+1):NEXT
800 OPEN4,4,7
810 FORA=1TOTA+20:PRINT#4," ";:NEXT:PRINT#4,ST$:PRINT#4:TL=0
850 FORA=1TO60:PRINT#4,C1$(A)SPC(40-LEN(C1$(A)))C2$(A):NEXT
860 :
900 GOSUB6000:POKE214,20:PRINT
910 PRINT"       [154][201]NSERT A [204][207][193][196][211][212][193][210] DISK AND"
920 PRINT" [154]PRESS [211][208][193][195][197][154] TO RETURN TO THE MENU.":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][205]AKE 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][197]NTER YOUR RESPONSE"
7107 PRINT"           AND PRESS [210][197][212][213][210][206][154]."
7110 RETURN
8000 POKE214,CS+TC+1:PRINT
8005 FORA=1TOEL:PRINT"                                      ":NEXT
8010 FORA=1TOEL:PRINT"[145]";:NEXT:RETURN
8500 POKE214,LS+TC+1:PRINT
8505 FORA=1TOEL:PRINT"                                      ":NEXT
8510 FORA=1TOEL:PRINT"[145]";:NEXT:RETURN
8900 :
9000 FORL=1TOEL:PRINT"[154]:":NEXT:FORL=1TOEL:PRINT"[145]";:NEXT:POKE198,.:FORL=1TOEL
9005 B$="":PRINT"[154]:[164]";:FORA=1TO38
9010 GETA$:IFA$=""THEN9010
9020 IFA$=CHR$(13)THENPRINT"[157] ":AN$(CQ,L+1)=B$:RETURN
9030 IF(A$<>CHR$(20))OR(L=1)OR(A>1)THEN9033
9032 PRINT"[157] [145]"TAB(38)"[154][164]";:L=L-1:A=38:B$=AN$(CQ,L+1):AN$(CQ,L+2)="":GOTO9010
9033 IF(A$<>CHR$(20))OR(A=1)THEN9035
9034 A=A-1:B$=LEFT$(B$,A-1):PRINT"[157][157]  [157][157][154][164]";:GOTO9010
9035 IF(A=38)AND(L=EL)THEN9010
9040 IFA$>=" "ANDA$<="Z"THEN9070
9050 IFA$>="[193]"ANDA$<="[218]"THEN9070
9060 GOTO9010
9070 B$=B$+A$:PRINT"[157]"A$;:POKE212,.:PRINT"[154][164]";:IF(A=37)AND(L<EL)THENA=38
9080 NEXT:AN$(CQ,L+1)=B$:PRINT"[157] ":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]";
60105 PRINT"[210][197][193][196][197][210][195][210][201][212][201][209][213][197]"
60106 PRINT"[156][208][210][207][199][210][193][205][194][217][205]IKE[205]AYNARD"
60108 PRINT"[158][195][207][208][217][210][201][199][200][212]1989"
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