1	SUB INILVL

105	  DIM #5,D$(20)=16,S1%(20),L1%(23999) !LEVEL DATA &

110	  COM (DNDA) N$(1)=8,C(64),L%(21,21),I(8),I1(8) &

245	  DEF FNP      !POPULATE &

250	  IF RND>.4 THEN &
	     FNP=0 &
	   \ GOTO 285 &

255	  IF RND>.5 THEN &
	     GO TO 275 &

260	  FNP=256 &
	\ IF RND>.5 THEN &
	     GO TO 285 &

265	  FNP=768 &
	\ IF RND>.05 THEN &
	     GO TO 285 &

270	  FNP=1792 &
	\ GOTO 285 &

275	  FNP=512 &
	\ IF RND>.2 THEN &
	     GO TO 285 &

280	  FNP=1536 &

285	  FNEND &

20300	  REM 		*INITIALIZE NEW LEVEL* &

20305	  O=(C(15)-1)*200-(C(18)+1)*4000 &

20310	  L%(Z1,Z2)=0 FOR Z2=0 TO 21 FOR Z1=0 TO 21 &
	\ L%(I,21)=1 FOR I=1 TO 20 &
	\ L%(21,I)=4 FOR I=1 TO 20 &
	\ L%(21,21)=0 &

20315	  FOR R=1 TO 20 &
	   \ FOR C=1 TO 19 STEP 2 &
	      \ L%(R,C)=(SWAP%(L1%(O)) AND 255%) +FNP &

20320	        L%(R,C+1)=(L1%(O) AND 255%) +FNP &
	      \ O=O+1 &

20325	     NEXT C &
	\ NEXT R &

32767	SUBEND