Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0020/kenndy.dem
There are 2 other files named kenndy.dem in the archive. Click here to see a list.
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