Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0020/snoopy.dem
There are 2 other files named snoopy.dem in the archive. Click here to see a list.
100' NAME--SNOOPY
110'
120' DESCRIPTION--PRINTS PORTRAIT OF SNOOPY-PUNT.
130'
140' SOURCE--DICK WHITTALL, U. OF PENN. ,'69
150'
160' INSTRUCTIONS--TYPE "RUN".
170'
180'
190' * * * * * MAIN PROGRAM * * * * * * * * * * * *
200'
210 DIM L(80)
220 FOR T=1 TO 63
230 LET L(T)=0
240 NEXT T
250 LET M=0
260 READ K,K1
270 IF K<0 THEN 370
280 IF K=1000 THEN 1290
290 IF K=999 THEN 1330
300 IF K=998 THEN 1760
310 IF K<M THEN 330
320 LET M=K1
330 FOR Y=K TO K1
340 LET L(Y)=1
350 NEXT Y
360 GO TO 260
370 FOR I=1 TO 63 STEP 3
380 IF I>M THEN 430
390 IF L(I)=1 THEN 460
400 IF L(I+1)=1 THEN 570
410 IF L(I+2)=1 THEN 620
420 PRINT" ";
430 NEXT I
440 PRINT
450 GO TO 220
460 IF L(I+1)=1 THEN 500
470 IF L(I+2)=1 THEN 550
480 PRINT"* ";
490 GO TO 430
500 IF L(I+2)=1 THEN 530
510 PRINT"** ";
520 GO TO 430
530 PRINT"***";
540 GO TO 430
550 PRINT"* *";
560 GO TO 430
570 IF L(I+2)=1 THEN 600
580 PRINT" * ";
590 GO TO 430
600 PRINT" **";
610 GO TO 430
620 PRINT" *";
630 GO TO 430
640 DATA 999,0
650 DATA 40,51,-1,0
660 DATA 37,51,53,53,-1,-1
670 DATA 34,49,56,56,-1,-1
680 DATA 32,47,57,57,-1,-1
690 DATA 30,45,58,58,-1,-1
700 DATA 28,43,59,59,-1,-1
710 DATA 27,41,60,60,-1,-1
720 DATA 25,39,60,60,-1,-1
730 DATA 24,37,60,60,-1,-1
740 DATA 24,35,59,59,-1,-1
750 DATA 25,32,43,45,58,61,-1,-1
760 DATA 26,29,41,41,45,45,57,57,62,62,-1,-1
770 DATA 32,32,40,40,46,46,53,56,-1,-1
780 DATA 32,32,40,40,46,46,52,52,56,56,-1,-1
790 DATA 23,23,31,31,39,39,46,46,56,56,-1,-1
800 DATA 22,22,25,25,30,30,39,39,46,46,56,56,-1,-1
810 DATA 22,22,26,28,38,38,46,46,56,56,-1,-1
820 DATA 22,22,27,27,38,38,46,46,56,56,-1,-1
830 DATA 19,22,28,28,33,35,38,38,45,45,57,57,-1,-1
840 DATA 15,15,23,23,28,28,32,32,35,35,39,39,44,44,58,58,-1,-1
850 DATA 13,13,23,23,29,29,32,32,36,36,38,38,44,44,59,59,-1,-1
860 DATA 12,12,22,22,29,29,32,32,37,39,44,44,60,60,-1,-1
870 DATA 3,5,11,11,20,23,29,29,32,32,44,44,60,60,-1,-1
880 DATA 2,2,6,6,10,10,20,23,28,28,32,32,45,45,60,60,-1,-1
890 DATA 2,2,7,7,20,23,27,27,32,32,46,46,59,59,-1,-1
900 DATA 2,2,7,7,21,26,31,31,47,47,58,58,-1,-1
910 DATA 2,4,31,31,51,56,-1,-1
920 DATA 2,2,31,31,50,55,-1,-1
930 DATA 2,4,30,30,50,52,54,55,-1,-1
940 DATA 2,2,8,9,30,30,51,54,-1,-1
950 DATA 2,4,7,7,10,10,29,29,-1,-1
960 DATA 3,3,6,6,12,12,27,27,-1,-1
970 DATA 5,5,15,15,26,26,-1,-1
980 DATA 17,17,23,23,-1,-1
990 DATA 18,18,23,23,-1,-1
1000 DATA 16,16,24,24,29,29,31,31,-1,-1
1010 DATA 16,16,24,27,32,32,-1,-1
1020 DATA 17,17,32,32,-1,-1
1030 DATA 18,18,31,31,-1,-1
1040 DATA 20,30,-1,-1
1050 DATA 47,47,-1,-1
1060 DATA 46,46,50,50,-1,-1
1070 DATA 45,45,52,52,-1,-1
1080 DATA 44,44,54,54,-1,-1
1090 DATA 44,44,56,56,-1,-1
1100 DATA 43,43,57,57,-1,-1
1110 DATA 42,42,58,58,-1,-1
1120 DATA 42,42,59,59,-1,-1
1130 DATA 42,42,59,59,-1,-1
1140 DATA 41,41,60,60,-1,-1
1150 DATA 41,41,60,60,-1,-1
1160 DATA 42,42,60,60,-1,-1
1170 DATA 42,42,60,60,-1,-1
1180 DATA 42,42,60,60,-1,-1
1190 DATA 43,43,60,60,-1,-1
1200 DATA 43,43,60,60,-1,-1
1210 DATA 44,44,59,59,-1,-1
1220 DATA 45,45,59,59,-1,-1
1230 DATA 47,47,58,58,-1,-1
1240 DATA 48,48,57,57,-1,-1
1250 DATA 50,50,56,56,-1,-1
1260 DATA 52,52,55,55,-1,-1
1270 DATA 1000,0
1280 DATA 1000,0
1290 FOR I=1 TO 5
1300 PRINT
1310 NEXT I
1320 GO TO 260
1330 FOR I=1 TO 15
1340 PRINT
1350 NEXT I
1360 GO TO 260
1370 DATA 1,55,-1,-1
1380 DATA 1,55,-1,-1
1390 DATA 26,30,51,55,-1,-1
1400 DATA 26,30,51,55,-1,-1
1410 DATA 26,30,51,55,-1,-1
1420 DATA 26,30,51,55,-1,-1
1430 DATA 26,30,51,55,-1,-1
1440 DATA 26,30,51,55,-1,-1
1450 DATA 26,30,51,55,-1,-1
1460 DATA 26,30,51,55,-1,-1
1470 DATA 26,30,51,55,-1,-1
1480 DATA 26,30,51,55,-1,-1
1490 DATA 26,30,51,55,-1,-1
1500 DATA 28,32,49,53,-1,-1,30,34,47,51,-1,-1,33,37,44,48,-1,-1
1510 DATA 36,45,-1,-1
1520 DATA 1000,0
1530 DATA 9,55,-1,-1,6,55,-1,-1,3,8,-1,-1,1,6,-1,-1,1,5,-1,-1,1,5,-1,-1
1540 DATA 1,5,-1,-1,1,5,-1,-1,1,5,-1,-1,1,5,-1,-1,1,5,-1,-1
1550 DATA 1,6,-1,-1,3,8,-1,-1,6,55,-1,-1,9,55,-1,-1,1000,0
1560 DATA 1,55,-1,-1,1,55,-1,-1,52,55,-1,-1,48,52,-1,-1
1570 DATA 44,48,-1,-1,40,44,-1,-1,36,40,-1,-1,32,36,-1,-1,28,32,-1,-1
1580 DATA 24,28,-1,-1,20,24,-1,-1,16,20,-1,-1,12,16,-1,-1,8,12,-1,-1
1590 DATA 4,8,-1,-1,1,4,-1,-1,1,55,-1,-1,1,55,-1,-1,1000,0
1600 DATA 51,55,-1,-1
1610 DATA 51,55,-1,-1
1620 DATA 51,55,-1,-1
1630 DATA 51,55,-1,-1
1640 DATA 51,55,-1,-1
1650 DATA 51,55,-1,-1
1660 DATA 51,55,-1,-1
1670 DATA 1,55,-1,-1,1,55,-1,-1
1680 DATA 51,55,-1,-1
1690 DATA 51,55,-1,-1
1700 DATA 51,55,-1,-1
1710 DATA 51,55,-1,-1
1720 DATA 51,55,-1,-1
1730 DATA 51,55,-1,-1
1740 DATA 51,55,-1,-1
1750 DATA 999,0,998,0
1760 END