5 POKE 45,0:POKE 46,52:CLR:DIM Z(51,2),X%(200,50)
10 FOR I=1 TO 4:READ C$(I):NEXT:FOR I=1 TO 6:READ D$(I):NEXT
15 DATA "[165]","[181]","[182][146]","[167][146]","<","=",">","<=",">=","<>"
20 FOR A=1 TO 5:GOSUB 690:PRINT "[147]":NEXT:E$=CHR$(13)+"           "
25 POKE646,6:POKE53281,1:POKE53280,1:POKE53272,23:DEFFNQ(A)=(A+7)*1024
30 A=-6:GOSUB690:A=1
31 POKE53280,0:POKE53281,0:PRINT"[147]";:FORJJ=1TO38:PRINT"[158][192][157] [157][192][145][145]";:NEXT
32 PRINT:PRINTTAB(12)"[208] [207] [204] [204] [211] [212] [197] [210]
33 [153]E$;"1SYS. OPEN(null)RITE (null)URVEY"E$"2SYS. OPENATNDMINISTER (null)URVEY"E$;
34 [153]"3SYS. OPENATNNALYZE STR$ATA"E$"4SYS. OPENSTR$ISK (null)PERATIONS"E$"5SYS. OPENVALXIT TO (null)(null)ATNSTR$(null)(null)ATN(null)STOP
40 GETA$:IFA$<"1"ORA$>"5"THEN40
45 POKE53281,1:POKE53280,1:POKE646,6:ON VAL(A$) GOTO 55,95,240,500,40000:GOTO 45
50 PRINT "[147]":END
55 GOSUB 690:Q=FNQ(A)
60 GOSUB 645:PRINT "  [208][199]#";A;" [198]1: [146]  [198]3:-[208][199][160][160][198]5:+[208][199]  [198]7:[205][197][206][213]";
65 K=0:J=919:GOSUB 620:IF X>J THEN A$="[145]"
70 T=ASC(A$):IF T=147 THEN PRINT "[147]":GOTO 60
75 IF T>132 AND T<137 THEN A$=" [146]":ON T-133 GOTO 85,90,30
80 PRINT A$;:GOTO 65
85 A=A+(A>1):GOTO 55
90 A=A-(A<5):GOTO 55
95 A=-6:GOSUB 690:PRINT"[147]" TAB(11) "[193][196][205][201][206][201][211][212][197][210][160][211][213][210][214][197][217]"
100 PRINT E$;"1. [195]ONDUCT [211]URVEY";E$;"2. [210]EVIEW [210]ESPONDENT";E$;"3. [205]AIN[160][205]ENU"
105 GET A$:ON VAL(A$) GOTO 120,110,30:GOTO 105
110 INPUT "[210]ESPONDENT #";N:IF N>M OR N<1 THEN 95
115 D=1:GOTO 130
120 IF M=200 THEN 95
125 M=M+1:N=M
130 A=1:FOR I=1 TO P:A$=STR$(X%(N,I)):J=1:FOR K=Z(I,1) TO Z(I,2):X=160
135 IF D=1 AND J<LEN(A$) THEN J=J+1:X=ASC(MID$(A$,J,1))+128
140 POKE K,X:NEXT K:NEXT I:D=0
145 GOSUB 690:Q=FNQ(A):GOSUB 645
150 PRINT " [195][210][212] [210][211][208][196][212]:";N;" [208][199]:";A;" [212][204] [210][211][208][196][212][211]:";M
155 PRINT "  [198]1:[206][197][215][160][210][211][208][196][212]  [198]3:-[208][199]  [198]5:+[208][199]  [198]7:[205][197][206][213]";
160 FOR I=1 TO P:IF Z(I,0)<>A THEN NEXT:GOTO 220
165 K=Z(I,1)-Q:GOSUB 640:J=Z(I,2)-Q
170 GOSUB 620:T=ASC(A$):IF X>J OR T=17 THEN I=I-(I<P AND Z(I+1,0)=A):GOTO 165
175 IF T=145 THEN I=I+(I>1 AND Z(I-1,0)=A):GOTO 165
180 IF T=147 THEN 230
185 IF T>132 AND T<137 THEN ON T-132 GOTO 210,200,205,210
190 IF (T>47 AND T<58) OR T=32 THEN PRINT "";A$;"[146]";
195 GOTO 170
200 A=A+(A>1):GOTO 145
205 A=A-(A<5):GOTO 145
210 FOR I=1 TO P:B$="":FOR K=Z(I,1) TO Z(I,2):B$=B$+CHR$(PEEK(K)-128):NEXT K
215 X%(N,I)=VAL(B$):NEXT I:ON-(T=133) GOTO 120:GOTO 95
220 GET A$:IF (A$<"[133]" OR A$>"[136]") AND A$<>"[147]" THEN 220
225 T=ASC(A$):GOTO 180
230 GOSUB 645:INPUT "[196][197][204][197][212][197] [210][197][211][208][207][206][196][197][206][212] (Y/N)[146]";A$:IF A$<>"Y" THEN 145
235 FOR J=1 TO P:X%(N,J)=X%(M,J):X%(M,J)=0:NEXT J:M=M-1:GOTO 95
240 PRINT "[147]" TAB(11) "[193][206][193][204][217][218][197][160][196][193][212][193][160][198][201][204][197]"
245 PRINT E$;"1. [211]ELECT [210]ECORDS";E$;"2. [195]LEAR [211]ELECTORS";
250 PRINT E$;"3. [205]EAN";E$;"4. [198]REQUENCY/[208]ERCENT";E$;"5. [205]AIN [205]ENU"
255 N=1:GET A$:A=VAL(A$):ON A GOTO 265,260,325,325,30:GOTO 255
260 SL=0:GOTO 240
265 INPUT "[147][211]ELECTOR [201]TEM #";SI(N):IF SI(N)<1 OR SI(N)>P THEN 260
270 PRINT "";:FOR I=1 TO 6:PRINTTAB(21) D$(I):NEXT
275 INPUT "[210]ELATIONAL [207]PERATOR";A$:FOR I=1 TO 6:IF A$<>D$(I) THEN NEXT:GOTO 260
280 SR(N)=I:INPUT "[195]RITICAL [214]ALUE";SV(N):IF N=2 THEN 290
285 INPUT "[193]NOTHER SELECTOR (Y/N)";A$:IF A$="Y" THEN N=2:GOTO 265
290 PRINT "[211]ELECT IF";:FORI=1TON:PRINT" ITEM #";SI(I);D$(SR(I));SV(I);:NEXT
295 PRINT:INPUT "(Y/N)";A$:SL=-N*(A$="Y"):GOTO 240
300 K=1
305 X=X%(I,SI(K)):V=SV(K):S=SR(K):R=-(X<V)-2*(X=V)-3*(X>V)
310 R=-(R=S)-(S=4 AND R<3)-(S=5 AND R>1)-(S=6 AND R<>2)
315 IF R=1 AND K<SL THEN K=2:GOTO 305
320 RETURN
325 GOSUB 685:INPUT "[201]TEM #";J:IF J<1 OR J>P THEN 240
330 GOSUB 680:IF A=4 THEN 430
335 SX=0:SS=0:N=0
340 FOR I=1 TO M:IF SL>0 THEN GOSUB 300:IF R=0 THEN 360
345 X=X%(I,J):IF X<MN OR N=0 THEN MN=X
350 IF X>MX OR N=0 THEN MX=X
355 SX=SX+X:SS=SS+X^2:N=N+1
360 NEXT I:IF N=0 THEN GOSUB 665:GOTO 240
365 ME=SX/N:SD=SQR((SS-N*ME^2)/(N-1)):GOSUB 650
370 PRINT E$;"[212]OTAL:";N;E$;"[205]EAN:";ME;E$;"[211]TAND. [196]EV.:";SD;
375 PRINT E$;"[205]IN:";MN;E$;"[205]AX:";MX
380 INPUT"[208]LOT [196]ATA (Y/N)";A$:IF A$<>"Y" THEN 240
385 GOSUB 650:D=(MX-MN)/37:DEF FN P(T)=(T-MN)/D+1865.5
390 FOR I=1 TO M:IF SL>0 THEN GOSUB 300:IF R=0 THEN 410
395 X=FN P(X%(I,J))
400 FOR Z=X TO X-680 STEP-40:IF PEEK(Z)=32 THEN POKE Z,42:GOTO 410
405 NEXT Z:POKE Z,170
410 NEXT I:X=FN P(ME):POKE X+40,24
415 X=FN P(ME-SD):POKE X+40,107:X=FN P(ME+SD):POKE X+40,115
425 GOSUB 670:GOTO 240
430 FOR K=1 TO 10:F(K)=0:N(K)=0:NEXT K:N=0:D=1
435 FOR I=1 TO M:IF SL>0 THEN GOSUB 300:IF R=0 THEN 465
440 N=N+1:X=X%(I,J):IF N=1 THEN N(1)=X
445 FOR Z=1 TO D:A=-(X<N(Z))-2*(X=N(Z)):ON A GOTO 450,460:NEXT Z
450 D=D+1:IF D>10 THEN D=10:GOTO 465
455 IF A=1 THEN FOR C=D TO Z+1 STEP-1:N(C)=N(C-1):F(C)=F(C-1):NEXT C:F(Z)=0
460 N(Z)=X:F(Z)=F(Z)+1
465 NEXT I:IF N=0 THEN GOSUB 665:GOTO 240
470 GOSUB 650:A$=CHR$(13)+"     [182]":FOR I=1 TO D:R=F(I)/N:K=32*R:C=INT(K)
475 PRINT A$;:IF C>0 THEN FOR J=1 TO C:PRINT " [146]";:NEXT J
480 PRINT C$((K-C)*4+.5);A$;N(I);"/";F(I);"/";R*100;"%";:NEXT I
485 PRINT A$;:FOR Q=1 TO 32:PRINT "[175]";:NEXT Q
490 PRINT SPC(8) "[212][207][212][193][204]:";N
495 GOSUB 670:GOTO 240
500 PRINT "[147]" TAB(12) "[198][201][204][197][160][207][208][197][210][193][212][201][207][206][211]"
505 PRINT E$;"1. [204]OAD [211]URVEY";E$;"2. [211]AVE [211]URVEY";E$;"3. [204]OAD [196]ATA";E$;
510 PRINT "4. [211]AVE [196]ATA";E$;"5. [205]AIN [205]ENU"
515 GET A$:A=VAL(A$):IF A<1 OR A>5 THEN 515
520 IF A=5 THEN 30
525 GOSUB 685:A$="":INPUT " [198]ILE [206]AME";A$:IF A$="" THEN 500
530 GOSUB 680:B$=",":ON A GOTO 600,545,590
535 OPEN2,8,2,"@0:"+A$+",S,W":PRINT#2,M;B$;P:FOR I=1 TO M:FOR J=1 TO P
540 PRINT#2, X%(I,J):NEXT J:NEXT I:CLOSE2:GOTO 500
545 FOR R=5 TO 1 STEP-1:Q=FNQ(R):FOR C=Q+919 TO Q STEP-1
550 IF PEEK(C)=32 THEN NEXT C:NEXT R
555 C=C-Q:OPEN 2,8,2,"@0:"+A$+",S,W":PRINT#2,R;B$;C
560 I=1:FOR A=1 TO R:Q=FNQ(A):FOR K=Q TO Q+919+(919-C)*(A=R)
565 X=PEEK(K):PRINT#2,CHR$(X);:IF X<>160 OR I>50 THEN 580
570 IF PEEK(K-1)<>160 THEN Z(I,1)=K:Z(I,0)=A
575 IF PEEK(K+1)<>160 THEN Z(I,2)=K:I=I+1
580 NEXT K:NEXT A:P=I-1:PRINT#2,CHR$(13);P
585 FOR I=1 TO P:PRINT#2,Z(I,0);B$;Z(I,1);B$;Z(I,2):NEXT I:CLOSE2:GOTO 500
590 OPEN2,8,2,"0:"+A$+",S,R":INPUT#2,M,P:FOR I=1 TO M:FOR J=1 TO P
595 INPUT#2, X%(I,J):NEXT J:NEXT I:CLOSE2:GOTO 500
600 OPEN 2,8,2,"0:"+A$+",S,R":INPUT#2,R,C
605 FOR A=1 TO R:Q=FNQ(A):FOR K=Q TO Q+919+(919-C)*(A=R)
610 GET#2,A$:POKE K,ASC(A$+CHR$(0)):NEXT K:NEXT A:INPUT#2,P
615 FOR I=1 TO P:INPUT#2,Z(I,0),Z(I,1),Z(I,2):NEXT I:CLOSE2:GOTO 500
620 POKE 216,0:X=PEEK(211):X=X+40*(X>39)+PEEK(214)*40:IF X<K OR X>J THEN RETURN
625 T=X+Q:Z=PEEK(T):C=Z+128+256*(Z>127)
630 GET A$:IF A$<>"" THEN RETURN
635 POKE T,C:FOR R=1 TO 80:NEXT:POKE T,Z:GOTO 630
640 R=INT(K/40):C=K-R*40:POKE 211,C:POKE 214,R:SYS 58732:RETURN
645 K=920:GOSUB 640:FOR K=K TO 999:POKE K+Q,32:NEXT K:RETURN
650 PRINT "[147]" TAB(15) "[201][212][197][205] #";J:IF SL=0 THEN RETURN
655 PRINTTAB(10/SL);
660 FOR I=1 TO SL:PRINT "[ITEM #";SI(I);D$(SR(I));SV(I);"[157]]";:NEXT I:RETURN
665 PRINTTAB(15) "[206][207][160][210][197][195][207][210][196][211]"
670 GET A$:IF A$="" THEN 670
675 RETURN
680 PRINTTAB(16) "[215][207][210][203][201][206][199][146]":RETURN
685 J=55347+A*80:FOR I=J TO J+20:POKE I,2:NEXT:RETURN
690 POKE 53272,(PEEK(53272) AND 15) OR (A+7)*16:POKE 648,(A+7)*4:RETURN
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="PRESENTER":GOSUB40040:A$="HELLO CONNECT"
40040 FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40050 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40070
40060 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40090
40070 NEXT:IFA$="PRESENTER"THENRETURN
40080 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40090 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40100 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40110 PRINT"P[207]53272,23:RUN:":POKE631,13:POKE632,13:POKE198,2:END