home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG055.ARC / SNOOPY.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  3KB  |  121 lines
  1. 100 REM ***SNOOPY *** DEMONSTRATION ***
  2. 110 DIM L(80)
  3. 120 FOR T=1 TO 63
  4. 130 LET L(T)=0
  5. 140 NEXT T
  6. 150 LET M=0
  7. 160 READ K,K1
  8. 170 IF K<0 THEN 260
  9. 180 IF K=1000 THEN 1180
  10. 190 IF K=999 THEN 1200
  11. 200 IF K<M THEN 220
  12. 210 LET M=K1
  13. 220 FOR Y=K TO K1
  14. 230 LET L(Y)=1
  15. 240 NEXT Y
  16. 250 GOTO 160
  17. 260 FOR I=1 TO 63 STEP 3
  18. 270 IF I>M THEN 320
  19. 280 IF L(I)=1 THEN 350
  20. 290 IF L(I+1)=1 THEN 460
  21. 300 IF L(I+2)=1 THEN 510
  22. 310 PRINT "   ";
  23. 320 NEXT I
  24. 330 PRINT
  25. 340 GOTO 120
  26. 350 IF L(I+1)=1 THEN 390
  27. 360 IF L(I+2)=1 THEN 440
  28. 370 PRINT"*  ";
  29. 380 GOTO 320
  30. 390 IF L(I+2)=1 THEN 420
  31. 400 PRINT "** ";
  32. 410 GOTO 320
  33. 420 PRINT "***";
  34. 430 GOTO 320
  35. 440 PRINT "* *";
  36. 450 GOTO 320
  37. 460 IF L(I+2)=1 THEN 420
  38. 470 PRINT " * ";
  39. 480 GOTO 320
  40. 490 PRINT " **";
  41. 500 GOTO 320
  42. 510 PRINT "  *";
  43. 520 GOTO 320
  44. 530 DATA 999,0
  45. 540 DATA 40,51,-1,0
  46. 550 DATA 37,51,53,53,-1,-1
  47. 560 DATA 34,49,56,56,-1,-1
  48. 570 DATA 32,47,57,57,-1,-1
  49. 580 DATA 30,45,58,58,-1,-1
  50. 590 DATA 28,43,59,59,-1,-1
  51. 600 DATA 27,41,60,60,-1,-1
  52. 610 DATA 25,39,60,60,-1,-1
  53. 620 DATA 24,37,60,60,-1,-1
  54. 630 DATA 24,35,59,59,-1,-1
  55. 640 DATA 25,32,43,45,58,61,-1,-1
  56. 650 DATA 26,29,41,41,45,45,57,57,62,62,-1,-1
  57. 660 DATA 32,32,40,40,46,46,53,56,-1,-1
  58. 670 DATA 32,32,40,40,46,46,52,52,56,56,-1,-1
  59. 680 DATA 23,23,31,31,39,39,46,46,56,56,-1,-1
  60. 690 DATA 22,22,25,25,30,30,39,39,46,46,56,56,-1,-1
  61. 700 DATA 22,22,26,28,38,38,46,46,56,56,-1,-1
  62. 710 DATA 22,22,27,27,38,38,46,46,56,56,-1,-1
  63. 720 DATA 19,22,28,28,33,35,38,38,45,45,57,57,-1,-1
  64. 730 DATA 15,15,23,23,28,28,32,32,35,35,39,39,44,44,58,58,-1,-1
  65. 740 DATA 13,13,23,23,29,29,32,32,36,36,38,38,44,44,59,59,-1,-1
  66. 750 DATA 12,12,22,22,29,29,32,32,37,39,44,44,60,60,-1,-1
  67. 760 DATA 3,5,11,11,20,23,29,29,32,32,44,44,60,60,-1,-1
  68. 770 DATA 2,2,6,6,10,10,20,23,28,28,32,32,45,45,60,60,-1,-1
  69. 780 DATA 2,2,7,7,20,23,27,27,32,32,46,46,59,59,-1,-1
  70. 790 DATA 2,2,7,7,21,26,31,31,47,47,58,58,-1,-1
  71. 800 DATA 2,4,31,31,51,56,-1,-1
  72. 810 DATA 2,2,31,31,50,55,-1,-1
  73. 820 DATA 2,4,30,30,50,52,54,55,-1,-1
  74. 830 DATA 2,2,8,9,30,30,51,54,-1,-1
  75. 840 DATA 2,4,7,7,10,10,29,29,-1,-1
  76. 850 DATA 3,3,6,6,12,12,27,27,-1,-1
  77. 860 DATA 5,5,15,15,26,26,-1,-1
  78. 870 DATA 17,17,23,23,-1,-1
  79. 880 DATA 18,18,23,23,-1,-1
  80. 890 DATA 16,16,24,24,29,29,31,31,-1,-1
  81. 900 DATA 16,16,24,27,32,32,-1,-1
  82. 910 DATA 17,17,32,32,-1,-1
  83. 920 DATA 18,18,31,31,-1,-1
  84. 930 DATA 20,30,-1,-1
  85. 940 DATA 47,47,-1,-1
  86. 950 DATA 46,46,50,50,-1,-1
  87. 960 DATA 45,45,52,52,-1,-1
  88. 970 DATA 44,44,54,54,-1,-1
  89. 980 DATA 44,44,56,56,-1,-1
  90. 990 DATA 43,43,57,57,-1,-1
  91. 1000 DATA 42,42,58,58,-1,-1
  92. 1010 DATA 42,42,59,59,-1,-1
  93. 1020 DATA 42,42,59,59,-1,-1
  94. 1030 DATA 41,41,60,60,-1,-1
  95. 1040 DATA 41,41,60,60,-1,-1
  96. 1050 DATA 42,42,60,60,-1,-1
  97. 1060 DATA 42,42,60,60,-1,-1
  98. 1070 DATA 42,42,60,60,-1,-1
  99. 1080 DATA 43,42,60,60,-1,-1
  100. 1090 DATA 43,43,60,60,-1,-1
  101. 1100 DATA 44,44,59,59,-1,-1
  102. 1110 DATA 45,45,59,59,-1,-1
  103. 1120 DATA 47,47,58,58,-1,-1
  104. 1130 DATA 48,48,57,57,-1,-1
  105. 1140 DATA 50,50,56,56,-1,-1
  106. 1150 DATA 52,52,55,55,-1,-1
  107. 1160 DATA 1000,0
  108. 1170 DATA 1000,0
  109. 1180 PRINT "********************WE HOPE YOU LIKE IT**************"
  110. 1190 END
  111. 1200 PRINT CHR$(12)
  112. 1205 PRINT TAB(15)"++++++++  S N O O P Y  ++++++++"
  113. 1210 PRINT:PRINT
  114. 1220 GOTO 160
  115. *******"
  116. 1190 END
  117. 1200 PRINT CHR$(12)
  118. 1205 PRINT TAB(15)"++++++++  S N O O P Y  ++++++++"
  119. 1210 PRINT:PRINT
  120. 1220 GOTO 160
  121.