1 POKE56,56:CLR
2 DV=PEEK(186):IFDV<8THENDV=8
3 DIMH,X,Y,I,J,K,II,YY,XX,SP$,A$,CM,S,T,FG,N,BC,BX$,CL,BD,SC,U,DZ,M,W,FQ,E,YP
4 DIML$,XP,GA,FG,Z,ZZ,MD,MX,Q9$,U9,T9,W$(200),W(13),U$(17),E$(11,4),F(4),V(4)
5 POKE53280,0:POKE53281,0
6 SYS57812"QUAD FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
7 SYS57812"INP/CM CE00",DV,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
16 SYS52736,"CRYPTDATA 01",DV
18 H=PEEK(252)*256+PEEK(251)
19 GOTO100
20 POKE214,Y:PRINT
21 PRINTTAB(X)"[161]";:FORII=1TOXX:PRINT" ";:NEXT:PRINT"[166]"
22 FORII=1TOYY:PRINTTAB(X)LEFT$(SP$,XX+1):NEXT
23 PRINTTAB(X)"[164]"LEFT$(SP$,XX)"[168]"
25 POKE214,Y+1:PRINT:PRINTTAB(X+2);
26 RETURN
30 POKE214,22:PRINT
32 PRINT"[193]NY KEY - MORE    [210][197][212][213][210][206] - MENU[145]":POKE198,0
34 GETA$:IFA$=""THEN34
36 FG=0:IFA$=CHR$(13)THENFG=1
38 RETURN
40 SYSCM,1024,16384+S*2000,1000
42 SYSCM,55296,17384+S*2000,1000
44 RETURN
45 SYSCM,16384+S*2000,1024,1000
46 SYSCM,17384+S*2000,55296,1000
47 RETURN
50 T=(T+1)AND63
52 SYSCM,15872+T*8,14336,8
54 RETURN
60 POKE214,15:PRINT
61 FORI=0TO3:POKE646,12+3*(IAND1):PRINTSP$;SP$;:NEXT
62 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
63 POKE646,BC:PRINT" [198]1 - [200]ELP   [198]3 - [200]INT   [198]7 - [209]UIT "
64 RETURN
65 PRINT"[144]":FORI=0TO13:PRINTLEFT$(SP$,14):NEXT
66 RETURN
70 POKE214,7-N:PRINT:POKE646,BC
71 PRINTTAB(7-N);
72 FORI=1TON:PRINTBX$;:NEXT:PRINT:PRINT
73 IFN=2THEN76
74 FORI=1TON-2:PRINTTAB(7-N)BX$;
75 FORJ=1TON-2:PRINT"";:NEXT:PRINTBX$:PRINT:NEXT
76 PRINTTAB(7-N);:FORI=1TON:PRINTBX$;:NEXT
77 RETURN
80 POKE646,0:FORI=0TO7:POKE781,I+16:SYS59903:NEXT
82 POKE646,BC:X=8:XX=21:Y=15:YY=4:GOSUB20
84 RETURN
90 Q$=W$(W+YP*5+(N-2)*20)
92 POKE214,3+YP:PRINT:PRINTTAB(27-(N*2)+XP)MID$(Q$,(XP/2)+1,1)
94 E$(XP/2,YP)=MID$(Q$,(XP/2)+1,1)
96 RETURN
100 PRINT"[144][147]":POKE53272,31:CM=53176:SC=1024:CL=55296:BC=9:BD=7:N=2
101 BX$="^[[157][157]]_[145]":L$="-------------"
102 FORI=1TO5:READM$(I):NEXT
103 DATA"    [208]LAY [195][210][217][208][212][207][209][213][193][196]    "
104 DATA"  [210]ULES OF [195][210][217][208][212][207][209][213][193][196]  "
105 DATA" [200]OW TO [211]OLVE [195]RYPTICS "
106 DATA"  [195][210][217][208][212][207][209][213][193][196] [211]OLUTION  "
107 DATA"   [210]ETURN TO [204][207][193][196][211][212][193][210]  "
111 SP$="                                        "
120 T=12:GOSUB50
130 FORI=100TO140:IFW$(I)="*"THENU=I-3:I=140
132 NEXT
135 FORI=0TO3:R$(I)=W$(U+I):NEXT:U=U+4
140 PRINT"[144][147][158]";:N=2
144 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:S=0:GOSUB40
150 POKE646,BC:X=6:XX=27:Y=3:YY=16:GOSUB20
152 PRINT"   [169] [170] [171] [172] [173] [174] [175] [176] [177] [178]"
154 FORI=1TO5:PRINTTAB(9)M$(I):PRINT:NEXT
156 PRINTTAB(11)"+ OR - CHANGES COLOR"
160 IFDZ=0THENM=1:W=0
162 POKE646,BD:POKE214,6+M*2:PRINT:PRINTTAB(9)M$(M)"[145]":POKE198,0
163 GETA$:IFA$<>""ANDA$<>"[145]"ANDA$<>CHR$(13)ANDA$<>"+"ANDA$<>"-"THEN163
164 IFA$=CHR$(13)THENS=1:GOSUB40:DZ=0:GOTO180
165 IFA$<>"+"ANDA$<>"-"THEN169
166 IFA$="+"THENBC=(BC+1)AND15:IFBC=0THENBC=1
167 IFA$="-"THENBC=(BC-1)AND15:IFBC<0THENBC=15
168 BD=7-2*(BC=7):DZ=1:GOTO150
169 POKE646,BC:PRINTTAB(9)M$(M)
170 IFA$="[145]"THENM=M-1:IFM<1THENM=5
172 IFA$=""THENM=M+1:IFM>5THENM=1
174 GOTO162
180 ONMGOSUB190,800,400,450,900
182 IFFQTHENFQ=0:GOTO140
184 GOTO162
190 TI$="000000"
200 PRINT"[144][147]":POKE646,BC:X=15:XX=22:Y=0:YY=6:GOSUB20:W=107:GA=0:YP=0
201 PRINT"[169][170] [171] [172] [173] [174] [175] [176] [177] [178]"
202 GOSUB60
204 GOSUB70
206 POKE214,3:PRINT:FORI=1TO4:PRINTTAB(27-N*2);
208 FORJ=1TON*2:PRINT"- ";:NEXT:PRINT:NEXT
209 FORI=0TO3:F(I)=0:V(I)=0:NEXT:FORI=0TO10:FORJ=0TO4:E$(I,J)="":NEXT:NEXT
210 FORI=0TO3
212 J=INT(RND(1))*4:IFF(J)THEN212
214 POKE214,15+2*I:PRINT
216 POKE646,12+3*(IAND1):PRINT""W$(W+I*5+2+(N-2)*20)
217 PRINT""W$(W+I*5+3+(N-2)*20)
218 NEXT
220 POKE214,9:PRINT"[159]"
228 E=U+N-2
230 FORI=1TOLEN(W$(E))STEP2
232 U$(INT(I+1)/2)=""+MID$(W$(E),I,1)+"[[157][157]]"+MID$(W$(E),I+1,1)
234 NEXT
240 FORI=0TO(N-1)*4-1
242 POKE214,9+3*(IAND1):PRINT
244 PRINTTAB(15+3*INT(I/2))U$(I+1)
246 NEXT
250 GOSUB500:YP=YP+1:IFYP>3THENYP=0
252 IFFQTHENRETURN
260 IFGA=0THEN250
261 IFN=5THEN270
262 GOSUB80
264 PRINT"  [217]OU GOT IT!  [206]OW"
266 PRINTTAB(X+2)"   ON TO [204]EVEL"N
268 FORI=1TO2000:NEXT
270 N=N+1:IFN>5THEN300
280 GOTO200
300 GOSUB80
320 PRINT"  [195]ONGRATULATIONS!"
322 PRINTTAB(X+4)"[217]OU SOLVED IT IN
324 [153][163]X[170]9)[202](TI$,3,2)":"[201](TI$,2)
330 [151]214,23:[153]:[153]"    (null)RESS ANY KEY FOR THE MENU     "
335 [151]198,0
340 [161]A$:[139]A$[178]""[167]340
342 [151]646,0:[153]"LOAD":N[178]2:[137]150
400 [151]646,BC:X[178]0:XX[178]37:Y[178]1:YY[178]20:[141]20
410 [129]I[178]1[164]99
412 [139]W$(I)[179][177]"\"[167]418
414 [141]30:[139]FG[167]I[178]99:[130]:[141]45:[142]
415 X[178]0:XX[178]37:Y[178]1:YY[178]20:[141]20
416 [153]"":I[178]I[170]1
418 [153]""W$(I)
420 [130]
422 [141]30:[139]FG[167]I[178]99:[141]45:[142]
424 [137]400
450 I[178]0:[151]646,BC
453 X[178]0:XX[178]37:Y[178]1:YY[178]20:[141]20:[153]"CMDCMD";
454 [153]""W$(U[170]4[170]I[172]5)
456 [153]""W$(U[170]6[170]I[172]5)
458 [153]""W$(U[170]7[170]I[172]5)
460 [153]""W$(U[170]8[170]I[172]5)
462 [153]
464 I[178]I[170]1:[139]I[173]4[179][177][181](I[173]4)[167]454
466 [141]30:[139]FG[167][141]45:[142]
468 [139]I[179]16[167]453
470 I[178]0:[137]453
500 XP[178]0:Z[178]40:ZZ[178]SC[170]4[172]Z[170]27[171]N[172]2:[151]646,BC
510 MX[178]ZZ[170]YP[172]Z[170]XP:MD[178][194](MX)
520 [151]CL[170]MX[171]SC,1:[151]MX,160:[129]T[178]1[164]60:[130]:[151]MX,MD:[129]T[178]1[164]12
524 [161]A$:[139]A$[179][177]""[167]531
530 [130]:[137]510
531 [139]A$[178][199](134)[167][141]90:[137]592
532 [139]A$[178][199](136)[167]FQ[178]1:[142]
533 [139]A$[178][199](133)[167]S[178]2:[141]40:[141]800:S[178]2:[141]45:[137]510
534 [151]MX[171]SC[170]CL,BC
540 [139]A$[179][177]"ON"[167]550
542 YP[178]YP[171]1:[139]YP[179]0[167]YP[178]3
544 [137]510
550 [139]A$[179][177]""[167]560
552 YP[178]YP[170]1:[139]YP[177]3[167]YP[178]0
554 [137]510
560 [139]A$[179][177]""[167]570
562 XP[178]XP[170]2:[139]XP[177]N[172]4[171]2[167]XP[178]0
564 [137]510
570 [139]A$[179][177]"CMD"[167]580
572 XP[178]XP[171]2:[139]XP[179]0[167]XP[178]N[172]4[171]2
574 [137]510
580 [139]A$[177][178]"A"[175]A$[179][178]"Z"[167]A$[178][199]([198](A$)[170]128)
582 [139]A$[179]"ATN"[176]A$[177]"(null)"[167]510
584 [139]V(YP)[167]510
590 [151]214,3[170]YP:[153]:[153][163]27[171](N[172]2)[170]XP)A$:E$(XP[173]2,YP)[178]A$
592 [129]I[178]0[164]N[172]2
594 [139]E$(I,YP)[179][177][202](W$(W[170]YP[172]5[170](N[171]2)[172]20),I[170]1,1)[167]I[178]N[172]2:[130]:[137]562
596 [130]:[137]600
598 [137]562
600 [151]214,7[171]N[171](N[171]1)[172]2[172](YP[178]2):[153]:[151]646,BC
602 [153][163]7[171]N[171](N[171]1)[172]2[172](YP[178]3));
604 [129]I[178]1[164]N[172]2[169]2:J[178]W[170]YP[172]5[170]1[170](N[171]2)[172]20
606 [139]YP[175]1[167]620
610 [153]""[202](W$(J),I,1);
612 [153]""[202](W$(J),I[170]1,1)"ON";:[137]624
620 [153]""[202](W$(J),I,1);
622 [153]""[202](W$(J),I[170]1,1)"CMDCMD";
624 [130]:[153]
630 [129]I[178]1[164]N[172]2[169]2:[129]K[178]0[164](N[171]1)[172]4[171]1
632 [139][202](W$(J),I,2)[179][177][202](W$(E),K[172]2[170]1,2)[167]638
634 [151]214,9[170]3[172](K[175]1):[153]
636 [153][163]15[170]3[172][181](K[173]2))"  CMDCMD  "
638 [130]:[130]
650 V(YP)[178]1
652 [129]I[178]0[164]3:[139]V(I)[178]0[167]I[178]3:[130]:[137]660
654 [130]:GA[178]1
660 [142]
800 [153]"STOPLOAD"
802 [153]"LIST"[163]17)"L[A[CMDCMDCMDCMD](null)]STR$CMDCMDCMDCMDS[A[CMDCMDCMDCMD](null)](null)"
804 [151]646,BC:X[178]0:XX[178]37:Y[178]5:YY[178]16:[141]20
810 [153]"   (null)ULES OF STEP + - * / ^ AND OR > ="
812 [153]"ASCOUR WORDS OF EQUAL LENGTH HAVE BEEN
814 PRINT"BROKEN INTO TWO-LETTER TILES.  [198]OR
816 [153]"INSTANCE, THE WORDS ABOVE ARE
818 PRINT"(1) [204][207][193][196], (2) [204][207][211][212], (3) [211][212][193][210] AND UH,
820 [153]"(4) ATNSTR$ATN(null).  (null)HE TILES ARE SHUFFLED
822 PRINT"AND YOU ARE TO PLACE THEM IN AN
824 [153]"EMPTY GRID BY ENTERING THE WORDS.
826 PRINT"[212]HERE ARE FIVE LEVELS, EACH WITH
828 [153]"FOUR WORDS.  (null)EVEL 2 HAS SIX-LETTER
830 PRINT"WORDS; [204]EVEL 3 HAS EIGHT; [204]EVEL 4
832 [153]"HAS TEN.  PEEKELOW THE GRID ARE CRYPTIC
834 PRINT"CLUES FOR EACH WORD -- IN ORDER."
840 PRINTTAB(14)"[208]RESS A KEY"
880 POKE198,0
885 GETA$:IFA$=""THEN885
886 IFS=1THENGOSUB45
890 RETURN
900 POKE646,BC:X=4:XX=31:Y=17:YY=3:GOSUB20
902 PRINT" [209][213][201][212]?  [193]RE YOU SURE?  (Y/N)"
904 GETA$:IFA$=""THEN904
906 IFA$<>"Y"THENGOSUB45:RETURN
908 PRINT"[147]":POKE53272,21
910 GOTO40000
10000 OPEN15,8,15,"S0:CRYPTOQUAD":CLOSE15:SAVE"CRYPTOQUAD",8:END
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40030
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:END
40030 POKE646,PEEK(53281):PRINT"LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
50000 Q9$="":U9=53280:POKE198,0
50010 GETA$
50020 POKE646,RND(1)*15+1:PRINT"[164][157]";:IFA$=""THEN50010
50030 IFA$=CHR$(13)THENPRINT" ":RETURN
50040 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO50090
50050 IFLEN(Q9$)>=10THENT9=PEEK(U9):POKEU9,1:POKEU9,T9:GOTO50010
50060 IFA$>="A"ANDA$<="Z"THENA$=CHR$(ASC(A$)+128)
50064 IFA$<"[193]"ORA$>"[218]"THEN50010
50070 Q9$=Q9$+A$
50080 PRINT""A$;:GOTO50010
50090 PRINT" [157][157] [157]";:GOTO50010