10  REMARKABLE  PROGRAM BY DAVID AHL, ADAPTED AND REVISED BY ELGIN LEE
12  DIM T$[120]
20  PRINT "A TRIBUTE TO THE GREAT AMERICAN ARTIST, ROBERT INDIANA."
30  PRINT "HIS GREATEST WORK WILL BE REPRODUCED WITH A MESSAGE OF"
40  PRINT "YOUR CHOICE UP TO 60 CHARECTORS, IF YOU CAN'T THINK OF"
50  PRINT "A MESSAGE,SIMPLY TYPE THE WORD 'LOVE'"
60  PRINT "YOUR MESSAGE PLEASE"
61  DIM A$[60]
62  INPUT A$
63  PRINT LIN(5)
65  L=LEN(A$)
90  I=1
100  FOR J=1 TO INT(60/L)
110  T$[I,I+L-1]=A$
120  I=I+L
130  NEXT J
131  IF I>60 THEN 140
135  T$[I,60]=A$[1,60-I-1]
140  C=0
200  A1=1
201  P=1
202  C=C+1
203  IF C=37 THEN 999
210  READ A
211  A1=A1+A
212  IF P=1 THEN 300
240  FOR I=1 TO A
241  PRINT " ";
242  NEXT I
243  P=1
244  GOTO 400
300  PRINT T$[A1-A,A1-1];
301  P=0
320  IF A1 <= 60 THEN 210
330  PRINT ""
340  GOTO 200
400  IF A1>60 THEN 200
405  GOTO 210
600  DATA 60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5
610  DATA 4,6,21,11,8,6,4,4,6,21,10,10,5,4,4,6,21,9,11,5,4
620  DATA 4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4
630  DATA 4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10,4,4,6,18,2,1,6,8,11,4
640  DATA 4,6,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8
650  DATA 1,29,9,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,6,12,5,1
660  DATA 5,6,11,3,11,6,14,3,1,5,6,11,3,11,6,15,2,1
670  DATA 6,6,9,3,12,6,16,1,1,6,6,9,3,12,6,7,1,10
680  DATA 7,6,7,3,13,6,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10
690  DATA 8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1
700  DATA 9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,10,16,6,12,5,1
710  DATA 11,8,13,27,1,11,8,13,27,1,60
999  PRINT LIN(5)
1000  END 
