9000  REM  *****  SNOOPY  *****  DEMONSTRATION PROGRAM  *****
9001  REM  *****  VERSION 1  *****  7/31/69  *****
9002  REM  PRINTS A PICTURE OF SNOOPY ON THE TTY
9003  DIM L[80]
9004  FOR T=1 TO 63
9005  LET L[T]=0
9006  NEXT T
9007  LET M=0
9008  READ K,K1
9009  IF K<0 THEN 9018
9010  IF K=1000 THEN 9110
9011  IF K=999 THEN 9112
9012  IF K<M THEN 9014
9013  LET M=K1
9014  FOR Y=K TO K1
9015  LET L[Y]=1
9016  NEXT Y
9017  GOTO 9008
9018  FOR I=1 TO 63 STEP 3
9019  IF I>M THEN 9024
9020  IF L[I]=1 THEN 9027
9021  IF L[I+1]=1 THEN 9038
9022  IF L[I+2]=1 THEN 9043
9023  PRINT "   ";
9024  NEXT I
9025  PRINT 
9026  GOTO 9004
9027  IF L[I+1]=1 THEN 9031
9028  IF L[I+2]=1 THEN 9036
9029  PRINT "*  ";
9030  GOTO 9024
9031  IF L[I+2]=1 THEN 9034
9032  PRINT "** ";
9033  GOTO 9024
9034  PRINT "***";
9035  GOTO 9024
9036  PRINT "* *";
9037  GOTO 9024
9038  IF L[I+2]=1 THEN 9034
9039  PRINT " * ";
9040  GOTO 9024
9041  PRINT " **";
9042  GOTO 9024
9043  PRINT "  *";
9044  GOTO 9024
9045  DATA 999,0
9046  DATA 40,51,-1,0
9047  DATA 37,51,53,53,-1,-1
9048  DATA 34,49,56,56,-1,-1
9049  DATA 32,47,57,57,-1,-1
9050  DATA 30,45,58,58,-1,-1
9051  DATA 28,43,59,59,-1,-1
9052  DATA 27,41,60,60,-1,-1
9053  DATA 25,39,60,60,-1,-1
9054  DATA 24,37,60,60,-1,-1
9055  DATA 24,35,59,59,-1,-1
9056  DATA 25,32,43,45,58,61,-1,-1
9057  DATA 26,29,41,41,45,45,57,57,62,62,-1,-1
9058  DATA 32,32,40,40,46,46,53,56,-1,-1
9059  DATA 32,32,40,40,46,46,52,52,56,56,-1,-1
9060  DATA 23,23,31,31,39,39,46,46,56,56,-1,-1
9061  DATA 22,22,25,25,30,30,39,39,46,46,56,56,-1,-1
9062  DATA 22,22,26,28,38,38,46,46,56,56,-1,-1
9063  DATA 22,22,27,27,38,38,46,46,56,56,-1,-1
9064  DATA 19,22,28,28,33,35,38,38,45,45,57,57,-1,-1
9065  DATA 15,15,23,23,28,28,32,32,35,35,39,39,44,44,58,58,-1,-1
9066  DATA 13,13,23,23,29,29,32,32,36,36,38,38,44,44,59,59,-1,-1
9067  DATA 12,12,22,22,29,29,32,32,37,39,44,44,60,60,-1,-1
9068  DATA 3,5,11,11,20,23,29,29,32,32,44,44,60,60,-1,-1
9069  DATA 2,2,6,6,10,10,20,23,28,28,32,32,45,45,60,60,-1,-1
9070  DATA 2,2,7,7,20,23,27,27,32,32,46,46,59,59,-1,-1
9071  DATA 2,2,7,7,21,26,31,31,47,47,58,58,-1,-1
9072  DATA 2,4,31,31,51,56,-1,-1
9073  DATA 2,2,31,31,50,55,-1,-1
9074  DATA 2,4,30,30,50,52,54,55,-1,-1
9075  DATA 2,2,8,9,30,30,51,54,-1,-1
9076  DATA 2,4,7,7,10,10,29,29,-1,-1
9077  DATA 3,3,6,6,12,12,27,27,-1,-1
9078  DATA 5,5,15,15,26,26,-1,-1
9079  DATA 17,17,23,23,-1,-1
9080  DATA 18,18,23,23,-1,-1
9081  DATA 16,16,24,24,29,29,31,31,-1,-1
9082  DATA 16,16,24,27,32,32,-1,-1
9083  DATA 17,17,32,32,-1,-1
9084  DATA 18,18,31,31,-1,-1
9085  DATA 20,30,-1,-1
9086  DATA 47,47,-1,-1
9087  DATA 46,46,50,50,-1,-1
9088  DATA 45,45,52,52,-1,-1
9089  DATA 44,44,54,54,-1,-1
9090  DATA 44,44,56,56,-1,-1
9091  DATA 43,43,57,57,-1,-1
9092  DATA 42,42,58,58,-1,-1
9093  DATA 42,42,59,59,-1,-1
9094  DATA 42,42,59,59,-1,-1
9095  DATA 41,41,60,60,-1,-1
9096  DATA 41,41,60,60,-1,-1
9097  DATA 42,42,60,60,-1,-1
9098  DATA 42,42,60,60,-1,-1
9099  DATA 42,42,60,60,-1,-1
9100  DATA 43,43,60,60,-1,-1
9101  DATA 43,43,60,60,-1,-1
9102  DATA 44,44,59,59,-1,-1
9103  DATA 45,45,59,59,-1,-1
9104  DATA 47,47,58,58,-1,-1
9105  DATA 48,48,57,57,-1,-1
9106  DATA 50,50,56,56,-1,-1
9107  DATA 52,52,55,55,-1,-1
9108  DATA 1000,0
9109  DATA 1000,0
9110  PRINT "****************WE HOPE YOU LIKE IT.*****************"
9111  STOP 
9112  PRINT "A PICTURE OF SNOOPY FROM THE H-P 2000A SYSTEM"
9113  PRINT 
9114  GOTO 9008
9999  END 
