10 POKE53280,0:POKE53281,0
20 DIMA$(2,8):FORI=1TO8:READA$(0,I),A$(1,I),A$(2,I):NEXT:C$="[155][152][151][152][155]":GOSUB820
30 K=64:GOSUB450:FORQ=1TO8:PRINT"[147][159]":BX=1:EX=38:BY=1:BD=1:BC=7:GOSUB470
40 PRINT"[153]"TAB(10)"[195]OMMON [205]ISQUOTATIONS[159]":BY=9:BD=3:GOSUB470:POKE198,0
50 PRINT"                                                  
60 [153]""A$(0,Q):[151]214,11:[153]"ON(null)LEASE ENTER CORRECT QUOTE BELOW...
70 POKE214,23:PRINT"[145]                                       
80 [151]214,23:[153]"ON"[163]35[171][195](A$(2,Q)));"..."A$(2,Q)
90 [151]214,17:[153]"ON                                                    
100 PRINT"                                      
110 [151]214,17:[153]"ON"A$(0,Q):[151]214,17:[153]"ON";:LI[178]60:W$[178]A$(0,Q):[141]120:[141]660:[130]:[137]750
120 T[178][171]1:CP[178]0:X[178][194](211):Y[178][194](214):L[178][194](648)[172]256[170]Y[172]40[170]X:[139]LI[178]0[167]LI[178]39
130 IN[178][171]1:[139][194](L)[178]32[176][194](L)[178]96[176][194](L)[178]160[176][194](L)[178]224[167]W$[178]"
140 FORI=L+54272TOL+54272+LI:POKEI,PEEK(646):NEXT
150 GETA$:ON-(TI>15)GOSUB290:IFA$=""THEN150
160 ON-(A$="")-2*(A$="[157]")-3*(A$=CHR$(13))-4*(A$="	")GOTO230,250,421,300
170 ON-(A$=CHR$(20))-2*(A$=CHR$(148))-3*(A$="")GOTO310,320,390
180 IF(A$<" "ORA$>"_")THENIFA$<"[193]"ORA$>"[218]"THEN150
190 IFLEN(W$)>=LITHEN150
200 ON-(CP<LEN(W$))-2*(CP>=LEN(W$))GOTO210,220
210 W$=LEFT$(W$,CP)+A$+MID$(W$,CP+1-IN):GOSUB280:CP=CP+1:GOSUB400:GOSUB410:GOTO150
220 W$=W$+A$:GOSUB280:CP=CP+1:PRINTA$;:GOTO150
230 IFLEN(W$)THENIFCP<LEN(W$)THENGOSUB280:CP=CP+1:GOSUB290:POKE212,0:PRINT"";
240 GOTO150
250 IFLEN(W$)THENIFCP>0THENGOSUB280:CP=CP-1:GOSUB290
260 IFNI=1THENIN=-1:NI=0
270 GOTO150
280 IFTTHENRETURN
290 POKEL+CP,PEEK(L+CP)+128AND255:TI$="000000":T=NOTT:RETURN
300 IN=NOTIN:GOTO150
310 ON-(CP=0)-2*(CP<LEN(W$)ANDCP>0)-3*(CP>=LEN(W$))GOTO150,340,380:GOTO150
320 IFLEN(W$)<LITHENPOKE631,32:POKE632,157:POKE198,2:IFIN=-1THENNI=1:IN=0
330 GOTO150
340 IFCP>1THEN360
350 GOSUB280:W$=MID$(W$,CP+1):GOSUB400:GOTO370
360 GOSUB280:W$=LEFT$(W$,CP-1)+MID$(W$,CP+1):GOSUB400
370 POKE211,X+CP:POKE214,Y:SYS58732:CP=CP-1:GOTO150
380 GOSUB280:W$=LEFT$(W$,LEN(W$)-1):GOSUB400:PRINT"[157]";:CP=CP-1:GOTO150
390 GOSUB280:CP=0:GOSUB290:GOTO150
400 POKE211,X:POKE214,Y:SYS58732:PRINTW$" ";:RETURN
410 POKE211,CP+X:POKE214,Y:SYS58732
420 RETURN
421 GOSUB280:RETURN
430 IFCP=LEN(W$)THENPOKE211,X+CP:POKE214,Y:SYS58732
440 RETURN
450 BA$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
460 A$[178]"(null)CMD(null)CMD(null)CMD(null)CMD(null)CMD(null)CMD(null)CMD":[129]I[178]1[164]6:BD$[178]BD$[170]A$:[130]:[142]
470 OC[178][194](646):[151]646,BC:RV$[178]"":[139]RV[167]RV$[178]"
480 POKE211,BX:POKE214,BY:SYS58732:PRINTRV$"[176]"LEFT$(BA$,EX-BX-2)"[174][157]";
490 PRINTRV$LEFT$(BD$,BD*3):PRINTRV$SPC(BX)"[145][173]"LEFT$(BA$,EX-BX-2)"[189]
500 [151]211,BX:[151]214,BY[170]1:[158]58732:[153]RV$[200](BD$,BD[172]3)"":[151]646,OC:RV[178]0:[142]
510 [131]"ATN LITTLE KNOWLEDGE IS DANGEROUS
520 DATA"[193] LITTLE LEARNING IS A DANGEROUS THING","[193]LEXANDER [208]OPE
530 [131]"ATN ROSE IS A ROSE IS A ROSE.","(null)OSE IS A ROSE IS A ROSE IS A ROSE.
540 DATA"[199]ERTRUDE [211]TEIN","[193]LAS! [208]OOR [217]ORICK. [201] KNEW HIM WELL.
550 [131]"ATNLAS! (null)OOR (null)ORICK. RIGHT$ KNEW HIM, LEFT$ORATIO.","(null)ILLIAM (null)HAKESPEARE
560 DATA"[205]USIC HAS CHARMS TO SOOTHE THE SAVAGE   BEAST
570 [131]"(null)USIC HATH CHARMS TO SOOTHE A SAVAGE    BREAST.","(null)ILLIAM LENONGREVE
580 DATA"[208]RIDE GOETH BEFORE THE FALL...
590 [131]"(null)RIDE GOETH BEFORE DESTRUCTION...","(null)ROVERBS 6:18
600 DATA"[205]ONEY IS THE ROOT OF ALL EVIL.
610 [131]"(null)HE LOVE OF MONEY IS THE ROOT OF ALL    EVIL.","RIGHT$ (null)IMOTHY 6:10
620 DATA"[201] ESCAPED BY THE SKIN OF MY TEETH
630 [131]"RIGHT$ ESCAPED WITH THE SKIN OF MY TEETH.","MID$OB 19:20
640 DATA"[211]PARE THE ROD AND SPOIL THE CHILD."
650 DATA"[200]E WHO SPARES THE ROD HATES HIS SON.","[208]ROVERBS"
660 PRINT"        [200]MMMMMM....      "
670 J$="":K$="":FORJ=1TOLEN(W$):A=ASC(MID$(W$,J,1)):IFA>KTHENJ$=J$+CHR$(A)
680 NEXT:FORJ=1TOLEN(A$(1,Q)):A=ASC(MID$(A$(1,Q),J,1)):IFA>KTHENK$=K$+CHR$(A)
690 NEXT:MS$="        [215][210][207][206][199][207]!       "
700 IFJ$=K$THENC=C+1:MS$="       [212][200][193][212]'[211][160][210][201][199][200][212]!      "
710 PRINT"                                                  
720 [153]"ONONONLENORRECT QUOTE IS:SYS":[153]A$(1,Q)
730 [129]II[178]1[164]15:[129]I2[178]1[164][195](C$):[153]""[202](C$,I2,1)[166]20[171][195](MS$)[173]2)MS$:[139][194](197)[179][177]64[167]II[178]15
740 [130]:[130]:[142]
750 [153]"LOADOPEN(null)OU SCOREDSYS"C"OPENOUT OF SYS8OPEN.
760 PRINT"[159][195]ARE TO TRY AGAIN? ([158][217][159]/[158][206][159])
770 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]770
780 [139]A$[178]"Y"[167][138]
790 A$[178]"HELLO CONNECT":[159]15,8,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[179][177]63[167][153]"LOAD":[128]
800 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[153]"LOAD"Q$A$Q$",8
810 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
820 POKE53280,0:POKE53281,0
830 PRINT"[147][159][176][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][178][174]";
840 A$="[171][156][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
850 B$="[171][154][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
860 CC$="[221][221][221][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][221][221][221][221]"
870 PRINTCC$;:FORI=1TO3:PRINTA$CC$B$CC$;:NEXT
880 PRINT"[173][177][177][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][177][177][177][189]";
890 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
900 A$=" [155][157][163][157] [157] [157] [157] [157] [157] [157][151][163][145][145][145][145][145][145][145][145]"
910 POKE214,12:PRINT"[145]";:FORI=1TO31:PRINTA$;:NEXT:PRINT"[155]"
920 FORI=1TO5:READA$:GOSUB930:NEXT:GOTO970
930 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
940 DATA"[195][207][205][205][207][206][160][205][201][211][209][213][207][212][193][212][201][207][206][211]","BY [202]EFF [202]ONES"
950 DATA"[208]UBLISHED ON [204][207][193][196][211][212][193][210] #70","[211]UBSCRIPTIONS 1-800-831-2694"
960 DATA"[195]OPYRIGHT ([195]) 1990 [211]OFTDISK"
970 PRINT"[159][197]DIT THE MISQUOTATION WITH CURSOR.
980 [153]" (null)PACES AND PUNCTUATION DON'T MATTER.
990 PRINT" [200]INT:  [193]SSUME THAT THE CASE IS CORRECT,";
1000 PRINT" SO DON'T CHANGE ANY CASE PRESENTED.
1010 [153]"    (null)HERE ARE EIGHT MISQUOTATIONS, FOUR
1020 PRINT"FROM [212]HE [194]IBLE, FOUR FROM LITERATURE."
1030 C%=C%+1:IFC%>LEN(C$)THENC%=1
1040 POKE214,24:PRINT"[145]"LEFT$(C$,C%)"   [211] [208][160][193][160][195] [197] [160] [212] [207] [160] [195][160][207] [206] [212] [201] [206] [213] [197]"
1050 GETA$:IFA$<>" "THEN1030
1060 RETURN