home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 20 / 020.d81 / horrors (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  140 lines
  1. 100 x=int(rnd(1)*5)+1
  2. 110 y1=int(rnd(1)*4)+1
  3. 120 ify1=1thenv1=33
  4. 121 ify1=2thenv1=17
  5. 122 ify1=3thenv1=65
  6. 123 ify1=4thenv1=129
  7. 130 y2=int(rnd(1)*4)+1
  8. 131 ify2=1thenv2=33
  9. 132 ify2=2thenv2=17
  10. 133 ify2=3thenv2=65
  11. 134 ify2=4thenv2=129
  12. 140 y3=int(rnd(1)*4)+1
  13. 141 ify3=1thenv3=33
  14. 142 ify3=2thenv3=17
  15. 143 ify3=3thenv3=65
  16. 144 ify3=4thenv3=129
  17. 200 onxgosub600,2600,4600,6600,20000
  18. 210 gosub 11000
  19. 300 print"[208]ress a key to stop this horror!"
  20. 350 x$="[144][159][156][158][129][149][150][151][152][153][154][155]"
  21. 360 x=int(rnd(1)*16)+1
  22. 370 printmid$(x$,x,1);
  23. 400 getk$:ifk$<>""then60000
  24. 500 goto100
  25. 600 s=54272
  26. 700 pokes+0,54:pokes+1,4
  27. 800 pokes+7,54:pokes+8,99
  28. 900 pokes+14,24:pokes+15,34
  29. 1000 pokes+24,15
  30. 1100 pokes+5,12 :pokes+6,31
  31. 1200 pokes+12,12 :pokes+13,31
  32. 1300 pokes+19,12 :pokes+20,31
  33. 1400 pokes+4,v1
  34. 1500 pokes+11,v2
  35. 1600 pokes+18,v3
  36. 1700 fora=4to99step12
  37. 1800 pokes+1,a
  38. 1900 pokes+8,99-a
  39. 2000 pokes+15,rnd(1)*60+20
  40. 2100 next
  41. 2200 pokes+4,v1-1
  42. 2300 pokes+11,v2-1
  43. 2400 pokes+18,v3-1
  44. 2500 return
  45. 2600 s=54272
  46. 2700 pokes+0,54:pokes+1,4
  47. 2800 pokes+7,54:pokes+8,99
  48. 2900 pokes+14,24:pokes+15,34
  49. 3000 pokes+24,15
  50. 3100 pokes+5,12 :pokes+6,31
  51. 3200 pokes+12,12 :pokes+13,31
  52. 3300 pokes+19,12 :pokes+20,31
  53. 3400 pokes+4,v1
  54. 3500 pokes+11,v2
  55. 3600 pokes+18,v3
  56. 3700 fora=4to99step15
  57. 3800 pokes+1,a
  58. 3900 pokes+8,99-a
  59. 4000 pokes+15,abs(tan(a))
  60. 4100 next
  61. 4200 pokes+4,v1-1
  62. 4300 pokes+11,v2-1
  63. 4400 pokes+18,v3-1
  64. 4500 return
  65. 4600 s=54272
  66. 4700 pokes+0,54:pokes+1,4
  67. 4800 pokes+7,54:pokes+8,99
  68. 4900 pokes+14,24:pokes+15,34
  69. 5000 pokes+24,15
  70. 5100 pokes+5,12 :pokes+6,31
  71. 5200 pokes+12,12 :pokes+13,31
  72. 5300 pokes+19,12 :pokes+20,31
  73. 5400 pokes+4,v1
  74. 5500 pokes+11,v2
  75. 5600 pokes+18,v3
  76. 5700 fora=4to99step25
  77. 5800 pokes+1,a
  78. 5900 pokes+8,99-a
  79. 6000 pokes+15,a/4
  80. 6100 next
  81. 6200 pokes+4,v1-1
  82. 6300 pokes+11,v2-1
  83. 6400 pokes+18,v3-1
  84. 6500 return
  85. 6600 s=54272
  86. 6700 pokes+0,54:pokes+1,4
  87. 6800 pokes+7,54:pokes+8,99
  88. 6900 pokes+14,24:pokes+15,34
  89. 7000 pokes+24,15
  90. 7100 pokes+5,12 :pokes+6,31
  91. 7200 pokes+12,12 :pokes+13,31
  92. 7300 pokes+19,12 :pokes+20,31
  93. 7400 pokes+4,v1
  94. 7500 pokes+11,v2
  95. 7600 fora=4to199step14
  96. 7700 pokes+1,a
  97. 7800 pokes+8,199-a
  98. 7900 next
  99. 8000 pokes+4,v1-1
  100. 8100 pokes+11,v2-1
  101. 8200 return
  102. 11000 s=54272
  103. 11001 pokes+0,54:pokes+1,4
  104. 11002 pokes+7,54:pokes+8,99
  105. 11003 pokes+14,24:pokes+15,34
  106. 11004 pokes+24,15
  107. 11005 pokes+5,12 :pokes+6,31
  108. 11006 pokes+12,12 :pokes+13,31
  109. 11007 pokes+19,12 :pokes+20,31
  110. 11008 pokes+4,33
  111. 11009 pokes+11,33
  112. 11010 fora=4to199step14
  113. 11011 pokes+1,a
  114. 11012 pokes+8,199-a
  115. 11013 next
  116. 11014 pokes+4,32
  117. 11015 pokes+11,32
  118. 11016 return
  119. 20000 s=54272
  120. 20010 pokes+0,54:pokes+1,4
  121. 20020 pokes+7,54:pokes+8,99
  122. 20030 pokes+14,24:pokes+15,34
  123. 20040 pokes+24,15
  124. 20050 pokes+5,12 :pokes+6,31
  125. 20060 pokes+12,12 :pokes+13,31
  126. 20070 pokes+19,12 :pokes+20,31
  127. 20080 pokes+4,v1
  128. 20090 pokes+11,v2
  129. 20100 pokes+18,v3
  130. 20200 fora=4to99step12
  131. 20300 pokes+15,rnd(1)*60+20
  132. 20400 pokes+8 ,rnd(1)*60+20
  133. 20500 pokes+1 ,rnd(1)*60+20
  134. 20600 next
  135. 20700 pokes+4,v1-1
  136. 20800 pokes+11,v2-1
  137. 20900 pokes+18,v3-1
  138. 21000 return
  139. 60000 forx=stos+24:pokex,0:next
  140.