100 REM WRITTEN BY W.A.BURTON
101 WIDTH 80 : PRINT CHR$(26)
102 DIM A$(5,5), NM$(5,5), RV$(4,4), A(4,4) : BL$="    "
103 GOSUB 148
104 PRINT TAB(15); "WHAT IS YOUR LUCKY NUMBER (1 TO 25000)"; : INPUT X
105 IF X<1 OR X>25000 OR X<>INT(X) THEN PRINT "WRONG !!"; : GOTO 104
106 X=X MOD 197 : FOR Y=1 TO X
107 X9=RND(1) : X9=RND(-Y)
108 NEXT Y : X9=0 : PRINT CHR$(26)
109 PRINT TAB(20); "***   15 PUZZLE   ***" : PRINT : PRINT : PRINT
110 INPUT "                 DO YOU WANT INSTRUCTIONS"; R$
111 IF LEFT$(R$,1)="Y" THEN GOSUB 220
112 PRINT CHR$(26) : X9=1
113 PRINT "WAIT A FEW MOMENTS FOR PUZZLE TO BE CREATED"
114 GOSUB 172
115 GOSUB 179
116 GOSUB 159
117 PRINT : PRINT
118 REM 'COMMANDS' CHECKED HERE
119 R$="TRAP" : INPUT "YOUR PLAY"; R$
120 IF R$<>"HELP" THEN 125
121 PRINT : GOSUB 228 : PRINT
122 IF NM=1 THEN F$=" NORMAL " ELSE F$=" REVERSE "
123 PRINT TAB(15); "YOU ARE ATTEMPTING A"; F$; "SOLUTION"
124 PRINT : GOTO 119
125 IF LEN(R$)=1 THEN GOSUB 133
126 IF R$=A$(I+1,J) THEN SWAP A$(I,J), A$(I+1,J) : GOTO 131
127 IF R$=A$(I-1,J) THEN SWAP A$(I,J), A$(I-1,J) : GOTO 131
128 IF R$=A$(I,J+1) THEN SWAP A$(I,J), A$(I,J+1) : GOTO 131
129 IF R$=A$(I,J-1) THEN SWAP A$(I,J), A$(I,J-1) : GOTO 131
130 PRINT "INVALID COMMAND - TRY AGAIN !!" : GOTO 119
131 PRINT : PRINT : GOSUB 159 : TU=TU+1
132 GOTO 119
133 REM 'PAD' SINGLE CHARACTER ENTRIES
134 PD$=" " : PD$=PD$+R$
135 SWAP PD$, R$ : RETURN
136 REM DATA TABLES
137 DATA -1, -1, -1, -1, -1, -1, -1
138 DATA " 1", " 2", " 3", " 4", -1
139 DATA -1, " 5", " 6", " 7", " 8"
140 DATA -1, -1, " 9", 10, 11, 12
141 DATA -1, -1, 13, 14, 15, **, -1
142 DATA -1, -1, -1, -1, -1, -1
143 DATA 1, 2, 3, 4, 5, 6, 7, 8, 9
144 DATA 10, 11, 12, 13, 14, 15, 16
145 DATA 15, 14, 13, 12, 11, 10, " 9"
146 DATA " 8", " 7", " 6", " 5", " 4"
147 DATA " 3", " 2", " 1", **
148 REM LOAD EACH MATRIX
149 FOR X=0 TO 5 : FOR Y=0 TO 5
150 READ A$(X,Y) : NEXT Y,X : RESTORE
151 FOR X=0 TO 5 : FOR Y=0 TO 5
152 READ NM$(X,Y) : NEXT Y,X
153 FOR X=1 TO 4 : FOR Y=1 TO 4
154 ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее