100' NAME--J.F.K. 110' 120' DESCRIPTION--PRINTS A PORTRAIT OF JOHN F. KENNEDY. 130' 140' SOURCE--GREG DOBBS '69. NOVEMBER 22,1965. 150' 160' INSTRUCTIONS--TYPE "RUN". 170' 180' 190' * * * * * * MAIN PROGRAM * * * * * * * * * * * * 200' 210 DIM J(80) 220 LET J(0)=0 230 READ F,K 240 IF F=-1 THEN 310 250 IF F=-2 THEN 340 260 FOR J=J(0)+1 TO J(0)+1+K 270 LET J(J)=F 280 NEXT J 290 LET J(0)=J(0)+K 300 GOTO 230 310 CHANGE J TO J$ 320 PRINT J$ 330 GOTO 220 340 STOP 350 DATA 10,20,-1,1 360 DATA 32,30,46,5,32,1,46,2,-1,1 370 DATA 32,26,46,2,58,2,88,3,32,1,88,5,58,1,46,3,-1,1 380 DATA 32,24,88,21,58,2,-1,1 390 DATA 32,21,88,5,58,1,88,7,58,1,88,7,58,1,88,5,58,2,-1,1 400 DATA 32,20,46,2,58,1,73,1,88,2,58,2,88,6,58,1,88,4,58,2,46,1,58,1,39,1,58,1,88,4,58,2 401 DATA -1,1 410 DATA 32,18,46,2,58,4,88,2,58,1,88,6,58,1,88,4,58,1,39,1,58,2,39,1,58,1,88,5,58,2,-1,1 420 DATA 32,18,46,3,58,1,88,1,39,1,46,1,39,1,88,9,46,1,88,12,39,1,88,3,58,1,-1,1 430 DATA 32,17,46,4,58,1,88,1,46,1,58,1,88,22,58,1,39,1,88,4,-1,1 440 DATA 32,17,46,4,39,1,88,1,46,1,88,17,39,5,32,1,58,1,88,6,-1,1 450 DATA 32,17,46,3,58,3,46,4,39,13,32,7,58,1,88,7,-1,1 460 DATA 32,17,58,1,46,2,58,2,46,5,32,20,58,1,39,1,88,5,-1,1 470 DATA 32,18,46,1,58,3,46,4,32,21,46,1,58,1,88,5,-1,1 480 DATA 32,19,58,2,39,4,32,22,46,1,58,1,88,5,-1,1 490 DATA 32,19,46,1,32,6,46,4,44,2,32,6,46,6,32,4,58,1,88,5,-1,1 500 DATA 32,20,46,1,58,2,39,1,32,3,88,3,32,3,58,2,39,1,32,3,39,3,58,1,32,2,46,1,88,4,58,1 501 DATA -1,1 510 DATA 32,17,58,1,46,1,58,1,32,3,58,3,39,1,77,2,39,3,88,1,32,4,46,1,58,1,39,1,77,2,32,1 511 DATA 39,1,46,1,32,4,39,1,88,1,39,2,46,1,-1,1 520 DATA 32,17,58,2,39,1,32,5,73,1,58,1,46,2,58,1,46,1,58,1,88,1,32,5,46,1,39,3,46,1,39,1 521 DATA 32,5,46,1,58,2,39,1,32,1,-1,1 530 DATA 32,17,58,2,88,1,73,1,32,10,88,1,73,1,32,16,58,3,32,2,-1,1 540 DATA 32,18,58,1,88,2,32,9,88,1,73,1,32,16,46,1,58,2,39,2,-1,1 550 DATA 32,18,58,1,88,1,39,1,32,1,46,1,58,1,46,1,32,5,47,1,88,1,46,1,32,14,46,1,58,3,32,2 551 DATA -1,1 560 DATA 32,18,39,3,46,4,32,4,47,1,88,3,46,1,58,1,88,2,46,1,32,9,46,3,58,1,32,1,-1,1 570 DATA 32,19,39,1,58,1,46,4,32,4,39,1,58,2,39,2,32,12,46,3,58,1,-1,1 580 DATA 32,20,39,1,58,1,46,3,32,22,46,3,-1,1 590 DATA 32,21,58,1,46,4,32,2,58,1,46,2,58,1,73,2,58,1,73,2,58,1,46,2,58,1,32,5,46,3,-1,1 600 DATA 32,21,39,1,58,1,46,4,32,2,58,2,46,1,32,14,46,2,58,3,-1,1 610 DATA 32,22,39,1,58,1,46,3,32,3,39,7,32,9,46,1,58,4,-1,1 620 DATA 32,23,46,1,58,1,46,3,32,15,46,1,32,1,46,2,58,4,-1,1 630 DATA 32,19,46,4,58,3,46,1,58,1,46,3,32,9,46,1,58,5,39,1,46,1,88,4,58,4,46,4,-1,1 640 DATA 32,10,46,5,58,3,88,8,58,6,46,6,58,5,39,1,32,3,46,1,88,7,73,1,77,3,58,2,-1,1 650 DATA 32,5,46,1,58,2,88,18,58,15,39,1,32,4,46,1,88,9,77,7,58,1,-1,1 660 DATA 32,3,46,1,88,22,39,1,58,12,39,1,32,3,46,1,39,1,46,1,58,1,88,8,58,1,88,10,-1,1 670 DATA 32,2,46,1,88,23,32,1,39,1,58,10,39,1,32,2,46,1,39,1,32,1,46,1,88,10,58,1,77,11,-1,1 680 DATA 32,1,46,1,88,24,32,2,39,1,58,7,39,1,32,1,46,1,39,1,32,3,46,1,88,11,58,1,77,11,-1,1 690 DATA 46,1,88,25,32,3,39,1,58,5,39,1,46,1,39,1,32,4,46,1,88,12,58,1,77,11,-1,1 700 DATA 88,26,32,3,46,1,39,1,87,4,46,1,32,5,46,1,88,14,39,1,77,10,-1,1 710 DATA 88,25,46,1,32,2,46,1,58,1,87,6,32,4,46,1,88,15,58,1,77,10,-1,1 720 DATA 88,25,46,1,32,2,46,1,58,1,87,4,39,1,32,1,39,1,32,3,46,1,88,15,58,1,77,10,-1,1 730 DATA 88,25,32,2,58,1,32,1,39,1,87,2,39,1,32,4,39,1,32,2,88,17,46,1,77,9,-1,1 740 DATA 88,24,39,1,32,1,58,1,46,1,87,4,39,1,32,5,46,1,88,17,39,1,77,10,-1,1 750 DATA 88,24,46,3,87,6,46,4,88,13,32,1,74,1,79,1,72,1,78,1,32,1,70,1,46,1,32,1,75,1,69,1 751 DATA 78,2,69,1,68,1,89,1,-1,1 760 DATA 10,20,-1,1 770 DATA -2,1 780 END