	SUBROUTINE AINIT
C	ROUTINE TO PRINT OUT "WELCOME TO CRAWLER" MESSAGE
C 
	LOGICAL*1 A(3)
C 
C	PRESET SCREEN, IN CASE IT'S A VT100:
	WRITE(5,320) "33  ! SET VT100 TO VT52
320	FORMAT(X,A1,'[?2l')
	WRITE(5,321) "33,"33,"33   ! CLEAR VT52 OR ADDS REGENT 100
321	FORMAT(X,A1,'Y  ',A1,'k',A1,'J'/'+      ')
	WRITE(5,1)  !   "WELCOME"
1	FORMAT(2(X,3('OO'3X),'OOOOOO'3X'OO'8X'OOOOO'5X'OOOOO'4X'
     COO'8X'OO'3X'OOOOOO'/),2(X,3('OO'3X),'OOOOOO'3X'OO'7X'OOOOOOO'3X'
     COOOOOOO'3X'OOO'6X'OOO'3X'OOOOOO'/),2(X,3('OO'3X),'OO'7X'OO'7X,
     C4('OO'3X),'OOOO'4X'OOOO   OO'/),2(X,3('OO'3X),'OOOOO'4X'OO'7X'OO'
     C8X'OO'3X'OO'3X'OO OO  OO OO'3X'OOOOO'/),2(X,3('OO'3X),'OOOOO'4X'
     COO'7X'OO'8X'OO   OO   OO  OOOO  OO   OOOOO'/),2(X,4('OOO  '),4X'O
     COO'6X'OOO  OO   OOO  OO   OOO  OOO  OOO  OOO'/),2(X' OOO  OOO OOO
     C OOO'6X'OOO'6X'OOO  OO   OOO  OO   OOO   OO  OOO  OOO'/),2(3X'0000
     C OOOOOO',3(2X'OOOOOOO'),3X'OOOOOOO'3X'OOO'7X'OOO  OOOOOOO'/),2(4X'
     COOOO OOOOO  OOOOOOO  OOOOOOO  OOOOOO    OOOOOO    OOO'7X'OOO  OOOO
     COOO'/))
	J=105  ! COLUMN
	K=53   ! ROW
	DO 325 I=1,70
	A(1)='['
	A(2)='['
	A(3)='['
	N=1+MOD(I,3)
	A(N)='<'
	WRITE(5,326) "33,K,J,A
	J=J-1
325	CONTINUE
326	FORMAT(X,A1,'Y',2A1,'{|',3A1,'|[ ')
	WRITE(5,321) "33,"33,"33   ! CLEAR VT52 OR ADDS REGENT 100
	WRITE(5,301)  !   "to"
301	FORMAT(4(30X'OO'/),2(27X'OOOOOOOO    OOOO'/),2(30X'OO'6X'OO  OO
     C'/),4(30X'OOO     OOO OO'/),2(30X'OOO     OOOOO'/))
	J=34  ! COLUMN
	DO 327 I=1,70
	A(1)='['
	A(2)='['
	A(3)='['
	N=3-MOD(I,3)
	A(N)='>'
	WRITE(5,328) "33,K,J,A
	J=J+1
327	CONTINUE
328	FORMAT(X,A1,'Y',2A1,' ]|',3A1,'|}')
	WRITE(5,321) "33,"33,"33   ! CLEAR VT52 OR ADDS REGENT 100
	WRITE(5,302)  !  "CRAWLER"
302	FORMAT(2(5X'OOOOO   OOOOO'7X'OOO'5X,4('OO   '),4X'OOOOOO   OOOOO
     C'/),2(4X'OOOOOOO  OO OOO'5X'OOOOO    ',4('OO   '),4X'OOOOOO   OO
     C OOO'/),2(4X'OO   OO  OO  OOO   OOOOOOO   OO   OO   OO   OO'7X'OO'
     C7X'OO  OOO'/),2(4X'OO'7X'OO OOO    OOO OOO   OO   OO   OO   OO'7X'
     COOOOO    OO OOO'/),2(4X'OO'7X'OOOOO'5X,6('OO   '),4X'OOOOO    OOOO
     CO'/),4X'OOO  OO  OOOOOO  ',6('  OOO'),6X'OOO'6X'OOOOOO'/
     C4X'OOO  OO  OOOOOO    OOOOOOOO',4('  OOO'),6X'OOO'6X'OOOOOO'/
     C4X'OOO  OO  OOO OOO   OOOOOOOO   OOO  OOO OOO  OOO',2(6X'OOO'),
     C' OOO'/4X'OOO  OO  OOO OOO   OOO  OOO   OOO  OOO OOO  OOO',2(6X,'
     COOO'),' OOO'/2(4X'OOOOOOO',4('  OOO'),4X'OOOO OOOOOO  ',2('OOOOOOO
     C  '),'OOO  OOO'/),2(4X'OOOOOO   ',4('OOO  '),'   OOOO OOOOO  OOOOO
     COO  OOOOOOO  OOO  OOO'/),2(70X/),
     C18X' C R A W L E R  programmed by Dave Thorson'//
     C'          how many players  (1-4)  ?   ',$)
	RETURN
	END
