10  COM X[103,22],M[19,19],U[19,19],Q[20],V[20],P[78]
30  COM M$[60],N$[72]
40  COM N,K,N8,K8,N9,K9,Q9,Q7,Q5,Q4,Q3,Q2,Q1
45  COM I3,I4,U9,X$[20]
50  REM:  VERSION 15JAN74
60  REM:
70  REM: ************************************
80  REM:
90  REM:     CODE YOUR PROGRAM BETWEEN
100  REM:     LINE 50 AND LINE 9998
110  REM:
120  REM: ***********************************
130  REM:
9998  CHAIN "$IDA",150
9999  END 
