'(THIS IS THE UNFASL FOR ((DSK HIBOU) TETRIS /185)) 
'(ASSEMBLED BY FASLAP /392) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /86 MAKLAP /80 INITIA /120) 

;COMPILED ON WEDNESDAY, MARCH 13, 1902, AT 12:33 PM

	(COMMENT **FASL** 0. (LAP INIT-ROTATION SUBR)) 
	(COMMENT **FASL** 43. (LAP INIT-SHAPES SUBR)) 
'+GRID-X+ 
'+GRID-Y+ 
'+NUM-COLUMNS+ 
'+NUM-ROWS+ 
'*CURRENT-SHAPE* 
'*NEXT-SHAPE* 
'*X* 
'*Y* 
'*SCORE* 
'*HEAP* 
	(COMMENT **FASL** 66. (LAP INIT-HEAP SUBR)) 
	(COMMENT **FASL** 114. (LAP |HIBOU;TETRIS 185_1| LSUBR)) 
	(COMMENT **FASL** 131. (LAP MAKE-RANDOM-SHAPE SUBR)) 
	(COMMENT **FASL** 144. (LAP |HIBOU;TETRIS 185_2| LSUBR)) 
	(COMMENT **FASL** 153. (LAP PRINT-NEXT-SHAPE SUBR)) 
	(COMMENT **FASL** 172. (LAP |HIBOU;TETRIS 185_3| LSUBR)) 
	(COMMENT **FASL** 181. (LAP GET-NEW-CURRENT-SHAPE SUBR)) 
	(COMMENT **FASL** 204. (LAP MOVE-SHAPE SUBR)) 
	(COMMENT **FASL** 265. (LAP |HIBOU;TETRIS 185_5| LSUBR)) 
	(COMMENT **FASL** 293. (LAP ROTATE-SHAPE SUBR)) 
	(COMMENT **FASL** 316. (LAP DRAW-TILE SUBR)) 
	(COMMENT **FASL** 342. (LAP DRAW-SHAPE SUBR)) 
	(COMMENT **FASL** 346. (LAP |HIBOU;TETRIS 185_6| LSUBR)) 
	(COMMENT **FASL** 371. (LAP CLEAR-SHAPE SUBR)) 
	(COMMENT **FASL** 375. (LAP REMOVE-DUPLICATES SUBR)) 
	(COMMENT **FASL** 395. (LAP REMOVE-WHOLE-ROWS SUBR)) 
	(COMMENT **FASL** 568. (LAP |HIBOU;TETRIS 185_7| LSUBR)) 
	(COMMENT **FASL** 573. (LAP REDRAW-SHAPE SUBR)) 
	(COMMENT **FASL** 641. (LAP REFRESH SUBR)) 
	(COMMENT **FASL** 678. (LAP DRAW-PERIMETER SUBR)) 
(COMMENT ****  (QUOTIENT 1.0 (READ)) Closed compilation forced in function TETRIS)
	(COMMENT **FASL** 751. (LAP TETRIS SUBR)) 
(COMMENT ****  (REMAINDER DAY 10.) Closed compilation forced in function UPDATE-SCORES)
	(COMMENT **FASL** 847. (LAP |HIBOU;TETRIS 185_10| SUBR)) 
	(COMMENT **FASL** 855. (LAP |HIBOU;TETRIS 185_11| LSUBR)) 
	(COMMENT **FASL** 924. (LAP UPDATE-SCORES SUBR)) 
	(COMMENT **FASL** TOTAL =  1010. WORDS)