home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / BUNNY.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  6.8 KB  |  140 lines
  1. 50 OPTION #2,"W",255
  2. 60 CLEAR 2000
  3. 70 REM  GOODYEAR ATOMIC CORP.
  4. 80 REM  PIKETON, OHIO
  5. 90 REM
  6. 100 REM  SUBMITTED TO DECUS      30-JUL-73
  7. 110 REM
  8. 120 PRINT
  9. 130 PRINT "START ON A NEW SHEET OF PAPER ... HIT <CR> WHEN READY"
  10. 140 PRINT
  11. 150 PRINT
  12. 160 INPUT Z$
  13. 165 POKE &7FB8,&69:POKE &7FB9,&90
  14. 170 PRINT #2,"0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*";
  15. 180 PRINT #2,"0*0*0*0*0*0*0*0*0*0*"
  16. 190 PRINT #2,"*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0";
  17. 200 PRINT #2,"*0*0*0*0*0*0*  0*0*0"
  18. 210 PRINT #2,"0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*";
  19. 220 PRINT #2,"0*0*0*0*0*0     0*0*"
  20. 230 PRINT #2,"*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0";
  21. 240 PRINT #2,"*0*0*0*0*        0*0"
  22. 250 PRINT #2,"0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*";
  23. 260 PRINT #2,"0*0*0*0*         *0*"
  24. 270 PRINT #2,"*0            *0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0";
  25. 280 PRINT #2,"*0*0*0            *0"
  26. 290 PRINT #2,"0*                 *0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*";
  27. 300 PRINT #2,"0*0*0             0*"
  28. 310 PRINT #2,"*0                   0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0";
  29. 320 PRINT #2,"*0*0              *0"
  30. 330 PRINT #2,"0*0                     0*0*0*0*0*0*0*0*0*0*0*0*0*0*";
  31. 340 PRINT #2,"0*0               0*"
  32. 350 PRINT #2,"*0*0                      *0*0*0*0*0*0*0*0*0*0*0*0*0";
  33. 360 PRINT #2,"*0               0*0"
  34. 370 PRINT #2,"0*0*0                       0*0*0*0*0*0*0*0*0*0*0*0*";
  35. 380 PRINT #2,"0*               *0*"
  36. 390 PRINT #2,"*0*0*0                         0*0*0*0*0*0*0*0*0*0*0";
  37. 400 PRINT #2,"*                0*0"
  38. 410 PRINT #2,"0*0*0*0                          *0*0*0*0*0*0*0*0*0*";
  39. 420 PRINT #2,"0                *0*"
  40. 430 PRINT #2,"*0*0*0*0                           0*0*0*0*0*0*0*0";
  41. 440 PRINT #2,"90                *0*0"
  42. 450 PRINT #2,"0*0*0*0*0*                          0*0*0*0*0*0*0*";
  43. 460 PRINT #2,"0                 0*0*"
  44. 470 PRINT #2,"*0*0*0*0*0*                           *0*0*0*0*0*0";
  45. 480 PRINT #2,"*                 *0*0"
  46. 490 PRINT #2,"0*0*0*0*0*0*                            0*0*0*0*0";
  47. 500 PRINT #2,"*                 *0*0*"
  48. 510 PRINT #2,"*0*0*0*0*0*0*0                           0*0*0*0*";
  49. 520 PRINT #2,"0                *0*0*0"
  50. 530 PRINT #2,"0*0*0*0*0*0*0*0*                          0*0*0*0";
  51. 540 PRINT #2,"*                0*0*0*"
  52. 550 PRINT #2,"*0*0*0*0*0*0*0*0*0*                         *0*0*";
  53. 560 PRINT #2,"0               0*0*0*0"
  54. 570 PRINT #2,"0*0*0*0*0*0*0*0*0*0*0*                       *0*0";
  55. 580 PRINT #2,"*              0*0*0*0*"
  56. 590 PRINT #2,"*0*0*0*0*0*0*0*0*0*0*0*0                       0*";
  57. 600 PRINT #2,"0             0*0*0*0*0"
  58. 610 PRINT #2,"0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*                  0";
  59. 620 PRINT #2,"*            0*0*0*0*0*"
  60. 630 PRINT #2,"*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*              ";
  61. 640 PRINT #2,"0           0*0*0*0*0*0"
  62. 650 PRINT #2,"0*0*0*0*0*0*0*0*0*0*0*0*0*0*0                    ";
  63. 660 PRINT #2,"           0*0*0*0*0*0*"
  64. 670 PRINT #2,"*0*0*0*0*0*0*0*0*0*0*0*0*                        ";
  65. 680 PRINT #2,"          0*0*0*0*0*0*0"
  66. 690 PRINT #2,"0*0*0*0*0*0*0*0*0*0*0*                           ";
  67. 700 PRINT #2,"           0*0*0*0*0*0*"
  68. 710 PRINT #2,"*0*0*0*0*0*0*0*0*0*                              ";
  69. 720 PRINT #2,"            0*0*0*0*0*0"
  70. 730 PRINT #2,"0*0*0*0*0*0*0*0*                                 ";
  71. 740 PRINT #2,"            *0*0*0*0*0*"
  72. 750 PRINT #2,"*0*0*0*0*0*0*0*                                  ";
  73. 760 PRINT #2,"             *0*0*0*0*0"
  74. 770 PRINT #2,"0*0*0*0*0*0*0          *0*0*                     ";
  75. 780 PRINT #2,"             0*0*0*0*0*"
  76. 790 PRINT #2,"*0*0*0*0*0*           * *** *                    ";
  77. 800 PRINT #2,"             *0*0*0*0*0"
  78. 810 PRINT #2,"0*0*0*0*0*             *0*0*                     ";
  79. 820 PRINT #2,"              *0*0*0*0*"
  80. 830 PRINT #2,"*0*0*0*0*                                        ";
  81. 840 PRINT #2,"              0*0*0*0*0"
  82. 850 PRINT #2,"0*0*0*0*                                         ";
  83. 860 PRINT #2,"              *0*0*0*0*"
  84. 870 PRINT #2,"*0*0*0*                                          ";
  85. 880 PRINT #2,"              0*0*0*0*0"
  86. 890 PRINT #2,"0*0*0*                                           ";
  87. 900 PRINT #2,"              *0*0*0*0*"
  88. 910 PRINT #2,"*0*0*0                                          ";
  89. 920 PRINT #2,"               0*0*0*0*0"
  90. 930 PRINT #2,"0*0*0*                                           ";
  91. 940 PRINT #2,"             0*0*0*0*0*"
  92. 950 PRINT #2,"*0*0*0                                           ";
  93. 960 PRINT #2,"             *0*0*0*0*0"
  94. 970 PRINT #2,"0*0*0*                                           ";
  95. 980 PRINT #2,"             0*0*0*0*0*"
  96. 990 PRINT #2,"*0*0*0*                                          ";
  97. 1000 PRINT #2,"             *0*0*0*0*0"
  98. 1010 PRINT #2,"0*0*0*0*                                         ";
  99. 1020 PRINT #2,"            *0*0*0*0*0*"
  100. 1030 PRINT #2,"*0*0*0*0                                         ";
  101. 1040 PRINT #2,"            0*0*0*0*0*0"
  102. 1050 PRINT #2,"0*0*0*0*0                                        ";
  103. 1060 PRINT #2,"           0*0*0*0*0*0*"
  104. 1070 PRINT #2,"*0*0*0*0*                                        ";
  105. 1080 PRINT #2,"           *0*0*0*0*0*0"
  106. 1090 PRINT #2,"0*0*0*0*0*0*                                     ";
  107. 1100 PRINT #2,"          *0*0*0*0*0*0*"
  108. 1110 PRINT #2,"*0*0*0*0*0*0*0                                   ";
  109. 1120 PRINT #2,"          0*0*0*0*0*0*0"
  110. 1130 PRINT #2,"0*0*0*0*0*0*0*0*0*0                              ";
  111. 1140 PRINT #2,"         0*0*0*0*0*0*0*"
  112. 1150 PRINT #2,"*0*0*0*0*0*0*0*0*0*0*0*                          ";
  113. 1160 PRINT #2,"         *0*0*0*0*0*0*0"
  114. 1170 PRINT #2,"0*0*0*0*0*0*0*0*0*0*0*0                          ";
  115. 1180 PRINT #2,"  *0*0*0*0*0*0*0*0*0*0*"
  116. 1190 PRINT #2,"*0*0*0*0*0*0*0*0*0*0*0*                     *0*0*";
  117. 1200 PRINT #2,"0*0     0*0*0*0*0*0*0*0"
  118. 1210 PRINT #2,"0*0*0*0*0*0*0*0*0*0*0*0    *0         0*0*0*0    ";
  119. 1220 PRINT #2,"        *0*0*0*0*0*0*0*"
  120. 1230 PRINT #2,"*0*0*0*0*0*0*0*0*0*0*0*  0*0*   *0*0*0*          ";
  121. 1240 PRINT #2,"    0*0*0*0*0*0*0*0*0*0"
  122. 1250 PRINT #2,"0*0*0*0*0*0*0*0* *0*0*0*0*0 0*0*0              *0";
  123. 1260 PRINT #2,"*0*0*0*0*0*0*0*0*0*0*0*"
  124. 1270 PRINT #2,"*0*0*0*0*0*0*0*0  *0*0*0*   *           *0*0*0*0*";
  125. 1280 PRINT #2,"0*0*0*0*0*0*0*0*0*0*0*0"
  126. 1290 PRINT #2,"0*0*0*0*0*0*0*0*     0      *      *0*0*0*0*0*0*0*0*";
  127. 1300 PRINT #2,"0*0*0*0*0*0*0*0*0*0*"
  128. 1310 PRINT #2,"*0*0*0*0*0*0*0*0     *      0     *0*0*0*0*0*0*0*0*0*0";
  129. 1320 PRINT #2,"*0*0*0*0*0*0*0*0*0"
  130. 1330 PRINT #2,"0*0*0*0*0*0*0*0*     0      *0*0*0*0*0*0*0*0*0*0*0*0";
  131. 1340 PRINT #2,"0*0*0*0*0*0*0*0*0*0*"
  132. 1350 PRINT #2,"0*0*0*0*0*0*0*0*  0*0*0*0   0*0*0*0*0*0*0*0*0*0*0";
  133. 1360 PRINT #2,"*0*0*0*0*0*0*0*0*0*0*0*"
  134. 1370 PRINT #2,"*0*0*0*0*0*0*0*0 0*0*0*0*0* *0*0*0*0*0*0*0*0*0*0*";
  135. 1380 PRINT #2,"0*0*0*0*0*0*0*0*0*0*0*0"
  136. 1390 PRINT #2,"0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0";
  137. 1400 PRINT #2,"*0*0*0*0*0*0*0*0*0*0*0*"
  138. 1410 PRINT #2,CHR$(12)
  139. 1420 END
  140.