1 REM ************** 2 REM Mystify 4 REM By Tim Surtell 5 REM ************** 6 REM NC200 Version 1 12/97 7 REM Downloaded from Tim's NC Users' Site 8 REM http://www.ncus.org.uk 10 NP=4:NL=4:D=3 20 VDU14:CLS:VDU15 30 MOVE176,1:PLOT101,304,126:VDU24,177;2;303;125;:CLG 40 DIMV(NL,NP),H(NL,NP),X(NL,NP),Y(NL,NP) 50 FORI=1 TO NP 60 R=RND(2):IF R=1 H(1,I)=-1:V(1,I)=1 ELSE H(1,I)=1:V(1,I)=-1 70 X(1,I)=RND(127)+176:Y(1,I)=RND(125)+1 80 FORA=2 TO NL 90 X(A,I)=X(A-1,I)+D:Y(A,I)=Y(A-1,I)+D:V(A,I)=V(A-1,I):H(A,I)=H(A-1,I) 100 NEXT 110 NEXT 120 FORA=1 TO NL:FORI=1 TO NP 130 IF X(A,I)>303 OR Y(A,I)>126 I=99:A=99 140 NEXT 150 NEXT 160 IF A=99 GOTO50 170 FORA=1 TO NL:MOVEX(A,1),Y(A,1):FORI=2 TO NP:DRAWX(A,I),Y(A,I):NEXT:DRAWX(A,1),Y(A,1):NEXT 180 FORA=1 TO NL 190 FORI=1 TO NP 200 X(A,I)=X(A,I)+H(A,I) 210 Y(A,I)=Y(A,I)+V(A,I) 220 IF X(A,I)=177 OR X(A,I)=303 H(A,I)=-H(A,I) 230 IF Y(A,I)=2 OR Y(A,I)=125 V(A,I)=-V(A,I) 240 NEXT 250 NEXT 260 CLG 270 GOTO170