home *** CD-ROM | disk | FTP | other *** search
/ Adults / Adults_19xx_-.d64 / adults (.txt)
Commodore BASIC  |  2020-07-26  |  8KB  |  226 lines
  1. 2 sp=53248:dam=56203:print"               please wait"
  2. 3 poke822,0:poke823,0:wm=1
  3. 5 gosub4950:goto20
  4. 10 dam=peek(820)*256:dam=dam+peek(821)
  5. 15 hs=peek(824)*256:hs=hs+peek(825)
  6. 16 ts=peek(822)*256:ts=ts+peek(823)
  7. 20 sp=53248:pokesp+21,0:scan =1965
  8. 35 xl=49426:yl=49427:but=49425:col=55296
  9. 99 poke49426,20:poke49427,10
  10. 100 l1=54272:h1=54273:w1=54276:a1=54277
  11. 102 l2=54279:h2=54280:w2=54283:a2=54284
  12. 104 l3=54286:h3=54287:w3=54286:a3=54291
  13. 106 v=54296:poke53281,0
  14. 197 iflu=1thenprint"[154]";:goto199
  15. 198 print"[147][154]"
  16. 199 poke53280,14
  17. 200 print"v                                      u"
  18. 220 print""
  19. 250 print"m                                      p";
  20. 260 print"wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwr#$%[154]wwwwww";
  21. 265 iflu=1thenlu=0:print"";:goto275
  22. 270 print"s    cde fghijkl[154]     twwwv wwwwwwwwwww[154] u";
  23. 275 print"   @aa[158]b[158]               [154]www  [158]bbbbbbbbbbb  [154]";
  24. 280 print"qzzzzzzzzzzzzzzzzzzzzowww              ";
  25. 290 print"";ts;hs;""
  26. 900 poke53275,0
  27. 999 ifwm<>1then1002
  28. 1000 fori=1to15:x=int((rnd(x)*798)+1025):pokex,int((rnd(x)*2)+33):next
  29. 1002 wm=0
  30. 2000 mx=int((rnd(x)*36)+2):my=int((rnd(x)*16)+2):pokesp+16,0:pokesp+21,0
  31. 2001 dy=int((rnd(8)*20)+5):sp=53248:pokesp+37,10:pokesp+38,8
  32. 2010 sx=(mx*8)+17:sy=(my*8)+42
  33. 2020 ifsx=>255thensx=sx-255:pokesp+16,254
  34. 2030 forp=0to14step2:pokesp+p,sx:next
  35. 2040 forp=1to15step2:pokesp+p,sy:next
  36. 2050 print"";:for b=1tomy-1:print"";:next:forb=1to3:printtab(mx-1)"    ":next
  37. 2060 pokescan,32:scan=1965:sk= 80
  38. 4100 gosub4110:pokesp+21,3:gosub4110:pokesp+21,5:gosub4110:pokesp+51,9:gosub4110
  39. 4102 pokesp+21,17:gosub 4110:pokesp+21,33:gosub4110
  40. 4109 pokesp+21,1:gosub4110:gosub4700:goto2000
  41. 4110 t=t+1:sys20000:hh=peek(sp+31)
  42. 4120 ifpeek(but)=0thengosub4500
  43. 4130 ift<dythen4110
  44. 4155 t=0:pokescan,32:scan=scan-2:pokescan,25:sk=sk-5:return
  45. 4500 t=t+15
  46. 4511 pokev,15:pokea2,15:pokew2,33
  47. 4512 forty = 50to75:pokeh2,ty:next
  48. 4513 fori=40to10step-2:
  49. 4514 pokeh2,i:pokeh1,i-10:pokeh3,i
  50. 4515 pokea2,15:pokea1,15:pokea3,15
  51. 4516 pokew2,129:pokew1,33:pokew3,129
  52. 4517 next:poke w1,0:pokew2,0:pokew3,0
  53. 4518 ifpeek(sp+31)>1then4900
  54. 4519 return
  55. 4561 fori=0to7:poke2040+i,192+i:pokesp+39+i,7:next:poke53287,6
  56. 4562 return
  57. 4700 pokesp+21,1:pokev,15:forg=1to15
  58. 4701 pokeh2,2:pokea2,14:pokew2,133:pokesp+17,16:pokesp+22,16
  59. 4709 foruy=1to50:next:pokesp+17,27:pokesp+22,200:next:pokew2,0
  60. 4710 pokedam,2:sk=0
  61. 4730 return
  62. 4800 forpp=1 to 5
  63. 4802 pokev,15:pokea2,15:pokew2,33
  64. 4803 forty=50to100:pokeh2,ty:next:next
  65. 4810 pokew2,0:poke820,219:load821,139
  66. 4811 poke823,0:poke822,0
  67. 4820 clr:wm=1:goto10
  68. 4900 sys20500:for g=5to1step-1:pokesp+21,128:pokescan,24
  69. 4930 pokev,15:pokel2,18:pokeh2,1:pokel1,35:pokeh1,1:pokel3,52:pokeh3,1
  70. 4935 pokea2,15:pokea1,15:pokea3,15
  71. 4937 pokes1,255:pokes2,255:pokes3,255
  72. 4940 pokew2,133:pokew1,133:pokew3,133
  73. 4942 fordt=1to5:x=int((rnd(8)*798)+1024):pokex,int((rnd(8)*2)+33)
  74. 4943 poke54272+x,int((rnd(8)*14)+1):next:pokescan,25:pokesp+21,64:next
  75. 4946 di=int(dam/256):poke820,di:poke821,dam-(di*256):tv=ts+sk:si=int(ts/256)
  76. 4947 poke822,si:poke823,ts-(si*256):pokew1,0:pokew2,0:pokew3,0
  77. 4948 ifts>hsthenpoke824,peek(822):poke825,peek(823)
  78. 4949 clr:lu=1:goto10
  79. 4950 poke56334,peek(56334)and254:poke1,peek(1)and251:forjh=0to511
  80. 4952 pokejh+14336,peek(jh+53248):next: poke1,peek(1)or4:poke56334,peek(56334)or1
  81. 4953 poke 53272,(peek(53272)and240)+14
  82. 4955 fora=14336to14639:readb:pokea,b:next
  83. 4956 fora=14720to14799:readb:pokea,b:next
  84. 4957 fora=20000to20295:readb:pokea,b:next
  85. 4960 for i=0 to 7:poke2040+i,192+i:pokesp+39+i,7:next:poke53287,2
  86. 4970 fora=20500to20549:readb:pokea,b:next
  87. 4975 fora=12288to12799:readb:pokea,b:next:return
  88. 5997 data255,32,16,8,35,63,127,192
  89. 5999 data0,128,67,63,255,255,0,0:rem a       rem *** a ***
  90. 6002 data0,0,128,192,255,192,0,0
  91. 6003 data254,48,48,56,56,56,56,0
  92. 6004 data24,24,24,56,56,56,56,0
  93. 6005 data254,48,48,56,56,56,56,0
  94. 6006 data254,198,192,254,14,206,254,0
  95. 6007 data254,198,192,244,224,230,254,0
  96. 6008 data126,102,102,254,230,230,230,0
  97. 6009 data126,102,102,230,230,230,230,0
  98. 6010 data126,102,102,230,230,230,30,0
  99. 6011 data126,96,96,248,224,224,254,0
  100. 6012 data252,204,204,254,230,230,230,0
  101. 6013 data128,128,192,192,224,240,252,255
  102. 6014 data 5,0,132,0,0,132,0,0
  103. 6015 data1,3,7,15,255,255,255,255:rem o
  104. 6016 data1,1,3,3,7,15,63,255
  105. 6017 data128,192,224,240,255,255,255,255
  106. 6018 data20,20,20,20,20,148,99,0
  107. 6019 data240,224,192,128,0,0,0,0
  108. 7000 data15,7,3,1,0,0,0,0: rem t
  109. 7001 data127,63,15,7,3,3,1,1
  110. 7002 data254,248,240,232,192,192,128,128
  111. 7003 data255,255,255,255,255,255,255,255
  112. 7004 data5,10,19,25,89,52,17,10
  113. 7005 data7,15,31,63,255,63,31,14
  114. 7006 data0,0,0,0,255,255,255,255: rem z
  115. 7007 data12,22,61,31,15,15,29,15
  116. 7008 data240,184,188,108,252,248,160,240
  117. 7009 data13,3,3,1,0,0,0,0
  118. 7010 data0,0,0,24,54,120,113,201
  119. 7011 data188,230,108,188,248,208,192,128
  120. 7012 data0,0,0,0,0,0,0,0
  121. 7013 data0,0,0,0,16,0,0,0
  122. 7014 data0,0,0,24,24,0,0,0
  123. 8009 data156,161,161,173,165,165,24,0
  124. 8010 data239,2,2,194,34,34,207,0
  125. 8011 data119,68,68,119,65,65,119,0
  126. 9000 data126,102,102,230,230,230,254, 0
  127. 9010 data24, 24, 24, 56, 56, 56, 56, 0
  128. 9020 data254,198,6,254,224, 224, 254, 0
  129. 9030 data 254,6,6,62, 14, 14, 254, 0
  130. 9040 data198,198,198,254, 14, 14, 14, 0
  131. 9050 data254,198,192,254,14, 14, 254, 0
  132. 9060 data254,198,192,254,230,230,254, 0
  133. 9070 data254,198,12, 24, 56, 56, 56, 0
  134. 9080 data124,100,100,254,230,230,254, 0
  135. 9090 data254,198,198,254,14,206, 254, 0
  136. 13000 data 120,162,0,173,28,193,129,253,173,26,193,129,251
  137. 13010 data24,173,0,220,41,16,141,17,193,173,0,220,172,19,193,74,176,6,170,152,240
  138. 13020 data1,136,138,74,176,8,170,152,233,19,240,1,200,138,140,19,193,174,18,193
  139. 13030 data 74,176,6,168,138,240,1,202,152,74,176,7,168,138,233,38,240
  140. 13040 data 1,232,234,234,234,142,18,193
  141. 13050 data 24,169,14,141,29,193,169,5,141,30,193,173,19,193,141,21,193,169
  142. 13060 data 40,141,20,193,169,0,133,251,133,252,162,8,78,20,193,144,4,24,109,21
  143. 13070 data 193,74,102,251,202,208,241,105,4,133,252,24,165,251,109,18,193,133
  144. 13080 data 251,144,5,166,252,232,134,252,24,133,251,133,253,165,252,105,212,133
  145. 13090 data 254,24,162,0,161,251,205,29,193,240,3,141,26,193,173,29,193,129,251
  146. 14000 data 161,253,205,30,193,240,3,141,28,193,173,30,193,129,253
  147. 14010 data 234,234,173,21,208,41,254,141,21,208,173,16,208,41,254,141,16,208,234
  148. 14020 data 234,173,18,193,141,22,193,169,0,141,0,208,162,8,142,23,193,78,23,193
  149. 14030 data 144,4,24,109,22,193,74,110,0,208,202,208,240,234,141,24,193,173,0
  150. 14040 data 208,105,15,144,7,174,24,193,232,142,24,193,141,0,208,24,162,8,169,0
  151. 14050 data 109,19,193,202,208,250,105,44,141,1,208,24,173,16,208,77,24,193
  152. 14060 data 141,16,208,173,21,208,73,1,141,21,208,88,96
  153. 30000 data120,169,0,133,251,169,4,133,252,169,32,160,255,145,251,136
  154. 30010 data 208,251,145,251,160,255,165,252,201,6,240,7,165,252,105,1,24,144
  155. 30020 data228,160,71,169,7,133,252,169,32,145,251,136,208,251,88,96
  156. 40000 data 0, 0, 0, 0, 0, 0, 0, 0
  157. 40010 data 0, 0, 0, 0, 0, 0, 0, 3
  158. 40020 data 199, 128, 15, 239, 224, 63, 255, 248
  159. 40030 data 255, 239, 254, 101, 69, 76, 63, 199
  160. 40040 data 248, 31, 255, 240, 7, 255, 192, 1
  161. 40050 data 255, 0, 0, 0, 0, 0, 0, 0
  162. 40060 data 0, 0, 0, 0, 0, 0, 0, 0
  163. 40070 data 0, 0, 0, 0, 0, 0, 0, 0
  164. 40080 data 0, 0, 0, 0, 0, 0, 0, 0
  165. 40090 data 0, 0, 0, 0, 0, 0, 0, 0
  166. 40100 data 0, 0, 0, 0, 0, 0, 63, 128
  167. 40110 data 0, 127, 128, 0, 255, 0, 0, 255
  168. 40120 data 0, 0, 235, 0, 0, 235, 0, 0
  169. 40130 data 126, 0, 0, 60, 0, 0, 0, 0
  170. 40140 data 0, 0, 0, 0, 0, 0, 0, 0
  171. 40150 data 0, 0, 0, 0, 0, 0, 0, 0
  172. 40160 data 0, 0, 0, 0, 0, 0, 0, 0
  173. 40170 data 0, 0, 0, 0, 0, 0, 0, 0
  174. 40180 data 0, 0, 0, 127, 192, 0, 255, 192
  175. 40190 data 1, 255, 128, 3, 255, 128, 3, 255
  176. 40200 data 128, 3, 207, 128, 3, 183, 128, 3
  177. 40210 data 183, 128, 3, 207, 0, 1, 254, 0
  178. 40220 data 0, 252, 0, 0, 0, 0, 0, 0
  179. 40230 data 0, 0, 0, 0, 0, 0, 0, 0
  180. 40240 data 0, 0, 0, 0, 0, 0, 0, 0
  181. 40250 data 0, 0, 0, 0, 0, 0, 0, 0
  182. 40260 data 255, 240, 1, 255, 240, 3, 255, 240
  183. 40270 data 7, 255, 224, 15, 255, 224, 15, 255
  184. 40280 data 224, 15, 135, 224, 15, 123, 224, 15
  185. 40290 data 75, 224, 15, 123, 192, 7, 135, 128
  186. 40300 data 3, 255, 0, 0, 252, 0, 0, 0
  187. 40310 data 0, 0, 0, 0, 0, 0, 0, 0
  188. 40320 data 0, 0, 0, 0, 0, 0, 0, 0
  189. 40330 data 0, 0, 0, 0, 3, 255, 252, 3
  190. 40340 data 255, 252, 7, 255, 252, 15, 255, 252
  191. 40350 data 31, 255, 248, 63, 255, 248, 63, 3
  192. 40360 data 248, 62, 253, 248, 62, 253, 248, 62
  193. 40370 data 205, 248, 62, 205, 240, 30, 253, 224
  194. 40380 data 15, 3, 192, 7, 255, 128, 1, 254
  195. 40390 data 0, 0, 0, 0, 0, 0, 0, 0
  196. 40400 data 0, 0, 0, 0, 0, 0, 0, 0
  197. 40410 data 0, 7, 255, 255, 15, 255, 255, 15
  198. 40420 data 255, 255, 31, 255, 255, 63, 255, 254
  199. 40430 data 127, 255, 254, 255, 255, 254, 254, 1
  200. 40440 data 254, 253, 254, 254, 253, 206, 254, 253
  201. 40450 data 134, 252, 253, 206, 252, 125, 254, 248
  202. 40460 data 62, 1, 240, 31, 255, 224, 7, 255
  203. 40470 data 128, 1, 255, 0, 0, 0, 0, 0
  204. 40480 data 0, 0, 0, 0, 0, 0, 0, 0
  205. 40490 data 0, 5, 146, 226, 12, 206, 108, 1, 240, 31, 255, 224, 7, 255
  206. 40470 data 128, 1, 255, 0, 0, 0, 0, 0
  207. 40480 data 0, 0, 0, 0, 0, 0, 0, 0
  208. 40490 data 0, 5, 146, 226, 12, 206, 108, 11
  209. 40500 data 180, 213, 24, 97, 50, 53, 85, 112
  210. 40510 data 86, 166, 170, 146, 114, 168, 57, 157
  211. 40520 data 88, 171, 0, 90, 42, 141, 132, 6
  212. 40530 data 140, 20, 202, 149, 40, 85, 0, 88
  213. 40540 data 42, 200, 80, 21, 76, 160, 6, 170
  214. 40550 data 128, 1, 52, 0, 0, 0, 0, 0
  215. 40560 data 0, 0, 0, 0, 0, 0, 0, 0
  216. 40570 data 0, 0, 0, 0, 0, 82, 164, 2
  217. 40580 data 18, 160, 5, 4, 36, 4, 170, 168
  218. 40590 data 17, 36, 144, 21, 80, 80, 34, 148
  219. 40600 data 32, 21, 21, 80, 34, 8, 136, 17
  220. 40610 data 73, 64, 42, 138, 16, 21, 4, 128
  221. 40620 data 2, 36, 64, 2, 168, 128, 0, 140
  222. 40630 data 0, 0, 0, 0, 0, 0, 0, 0
  223. 60000 rem *****************************       ******* remove these ************
  224. 60010 input"character number:";nu
  225. 60020 a=14336+(nu*8):forb=atoa+7:printpeek(b):next
  226.