home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / alfredo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  211 lines
  1. 0 ifl=.thenprint"[147]"tab(10)"[159]alfredo's lost cause"
  2. 1 ifl=.andpeek(816)=231andpeek(817)=195thenpoke816,165:poke817,244
  3. 2 poke832,.:ifl=.thenl=1:load"ml",8,1
  4. 3 ifl=1thenpoke55,.:poke56,32:clr
  5. 6 a(1)=56:a(2)=248:a(3)=184:a(4)=120:a(5)=56:a(6)=248:a(7)=184
  6. 7 a(8)=120:a(9)=56:a(10)=248:a(.)=184:b(1)=199:b(2)=199:b(3)=200:b(4)=201
  7. 8 b(5)=202:b(6)=202:b(7)=203:b(8)=204:b(9)=205:b(10)=205:b(.)=206
  8. 9 h=49173:v=53248:sd=54272
  9. 11 ifl=0thenl=2:load"joeplay32768",8,1
  10. 12 ifl=2thenl=3:load"m.someguys",8,1
  11. 15 a=.:gosub 9000
  12. 20 sys32768,40960:poke56325,55:sys49152:sys49158
  13. 30 sys49161,.
  14. 40 poke53280,.
  15. 50 sys49164,1
  16. 60 sysh,.,150,319,150
  17. 70 sysh,180,150,180,75
  18. 80 sysh,180,75 ,319,75
  19. 85 poke2040,13:poke2041,14:poke2042,15
  20. 86 j=1:gosub8000
  21. 89 z=0:a=1:fr=25:tm=170:sp=1:c=183:gosub7000
  22. 122 a=3:gosub9000
  23. 125 j=2:gosub8000
  24. 130 sys49176,145,150,165,150
  25. 135 gosub4005
  26. 140 sysh,145,150,145,199
  27. 150 sysh,165,150,165,199
  28. 160 a=1:b=170:forc=183to229step6:gosub9000:next c
  29. 200 :
  30. 202 :
  31. 205 a=.:gosub9000:sys49158
  32. 210 sysh,145,1,145,199:sys h,165,1,165,199
  33. 215 a=1:b=170:forc=50to229step6:gosub9000:next c
  34. 220 :
  35. 230 :
  36. 235 a=0:gosub9000:sys49158
  37. 240 sysh,145,1,145,50:sysh,165,1,165,50
  38. 245 sysh,1,50,319,50:sysh,1,150,319,150
  39. 250 sysh,1,50,1,150:sys49176,145,50,165,50
  40. 255 a=1:b=170:forc=50to180step6:gosub9000:nextc
  41. 260 a=2:b=170:c=180:gosub9000
  42. 261 gosub4015
  43. 265 forw=1to1000:nextw
  44. 267 a=0:gosub9000
  45. 270 j=3:gosub8000
  46. 275 a=1:gosub9000
  47. 280 z=0:fr=170:tm=320:sp=4:c=183:gosub7000
  48. 400 rem
  49. 404 rem
  50. 405 a=0:gosub9000:sys49158
  51. 410 sysh,1,50,80,50:sysh,1,150,80,150
  52. 415 sysh,80,1,80,50:sysh,80,150,80,199
  53. 425 print"";
  54. 426 print"fffffffffffffffffffffffffffff";
  55. 430 z=0:fr=24:tm=98:sp=3:c=183:gosub7000
  56. 455 b=f:c=183:gosub9000
  57. 465 j=4:gosub8000
  58. 470 forb=98to140step2:c=c+1:gosub9000:nextb
  59. 472 gosub4035
  60. 475 z=0:fr=142:tm=320:sp=3:c=205:gosub7000
  61. 510 rem
  62. 520 rem
  63. 521 a=0:gosub9000:sys49158:sys49164,1
  64. 525 print"";
  65. 526 print"ffffffffffffffff";
  66. 530 sysh,240,75,319,150:sysh,240,75,319,75
  67. 535 sys49179,"live wire",115,1
  68. 540 sysh,159,10,159,162
  69. 545 z=0:fr=25:tm=170:sp=1:c=205:gosub7000
  70. 577 foru=1to500:next
  71. 580 a=1:gosub9000:j=5:gosub8000
  72. 582 gosub4045
  73. 585 n=53265:foru=1to025:poken+15,u:poken,peek(n)and239:poken,peek(n)or16:nextu
  74. 590 poke53280,0
  75. 595 z=0:c=205
  76. 600 forf=170to275step9
  77. 605 z=z+1:ifz<3then620
  78. 610 ifa=1thena=2:z=0:goto620
  79. 615 a=1:z=0
  80. 620 b=f:c=c-12:gosub9000
  81. 625 nextf
  82. 627 r=f
  83. 630 forc=61to107step3:a=2:b=r:gosub9000:nextc
  84. 633 c=c-1
  85. 635 a=3:b=r:gosub9000
  86. 645 a=0:b=r:gosub9000:j=3:gosub8000:a=1:b=r:gosub9000
  87. 650 z=0:fr=r:tm=320:sp=3:gosub7000
  88. 685 rem
  89. 695 rem
  90. 697 print"[147]"
  91. 700 a=0:gosub9000:sys49158:sys49164,1
  92. 705 sysh,1,75,319,75
  93. 710 z=0:fr=24:tm=250:sp=3:gosub7000
  94. 745 sys49176,200,75,319,75
  95. 750 sysh,200,75,319,180
  96. 755 a=1:gosub9000
  97. 760 j=6:gosub8000
  98. 765 f=b:fory=1to11:c=c+3:b=f:gosub9000:next y
  99. 770 a=2:gosub9000
  100. 775 forf=249to319step5:b=f:c=c+4.1:gosub9000:next f
  101. 780 rem
  102. 790 rem
  103. 795 sys49158:a=0:gosub 9000
  104. 797 sys49152:sys 49158:sys 49164,1
  105. 800 sysh,1,1,160,150:sys h,160,150,160,175:sysh,160,175,300,175
  106. 805 sysh,300,175,300,150:sys h,300,150,210,150:sys h,210,150,50,1
  107. 810 sysh,145,090,145,100
  108. 815 a=2:c=51:for f=33 to 115step2:b=f:c=c+(.9*2):gosub9000:nextf
  109. 820 a=3:gosub9000
  110. 825 a=3:for f=115to150step2:b=f:c=c+(.9*2):gosub9000:nextf
  111. 830 a=0:gosub9000:j=7:gosub8000:a=1:b=158:c=146:gosub9000
  112. 835 for y=120to145:sys 49176,130,y,150,y:nexty
  113. 840 sysh,130,120,130,199:sys h,150,140,150,199
  114. 845 foru=1to400:nextu
  115. 850 forc=146to229step4:gosub9000:nextc
  116. 855 rem
  117. 865 rem
  118. 870 a=0:gosub9000:sys49158:sys49164,1
  119. 875 sysh,130,1,130,15:sys h,150,1,150,15
  120. 880 sysh,20,15,130,15:sys h,150,15,250,15
  121. 885 sysh,20,15,20,229: sys h,250,15,250,199
  122. 890 j=8:gosub8000:a=2:forc=50to229step4:gosub9000:nextc
  123. 895 rem
  124. 905 rem
  125. 907 sys49152
  126. 910 a=0:gosub9000:sys49158:sys49164,1
  127. 915 sysh,20,1,20,199:sysh,250,1,250,75
  128. 920 sysh,250,75,319,75:sysh,200,110,319,110
  129. 925 sysh,200,110,200,199
  130. 930 sysh,20,60,250,60
  131. 935 a=2:forc=50to105step3:gosub9000:nextc
  132. 940 foro=60to70step 3
  133. 945 sysh,20,60,140,o:sysh,140,o,250,60
  134. 947 c=c+2:gosub9000
  135. 950 sys49176,20,60,140,o:sys49176,140,o,250,60
  136. 955 nexto
  137. 960 foro=70to60step-3
  138. 970 sysh,20,60,140,o:sysh,140,o,250,60
  139. 972 c=c-2:gosub9000
  140. 975 sys49176,20,60,140,o:sys49176,140,o,250,60
  141. 980 nexto
  142. 985 sysh,20,60,250,60
  143. 990 z=0:fr=158:tm=250:sp=3:gosub7000
  144. 1025 a=2:b=f:gosub9000
  145. 1030 fori=1to25:c=c+1.5:b=f:gosub9000:nexti
  146. 1032 c=c-1
  147. 1035 j=9:gosub8000
  148. 1040 z=0:fr=250:tm=319:sp=3:gosub7000
  149. 1080 rem
  150. 1083 rem
  151. 1085 a=0:gosub9000
  152. 1090 sys49158:sys49164,1
  153. 1095 sysh,1,110,319,110:sysh,1,75,140,75:sysh,140,75,150,65
  154. 1100 sysh,150,65,319,65
  155. 1105 z=0:fr=24:tm=319:sp=3:gosub7000
  156. 1140 rem
  157. 1150 rem
  158. 1155 a=0:gosub9000:sys49158
  159. 1160 sysh,1,65,319,65:sysh,1,110,319,110
  160. 1165 sysh,240,70,260,70:sysh,260,70,260,105:sysh,260,105,240,105
  161. 1170 sysh,240,105,240,70:sys49179,"exit",265,75
  162. 1175 z=0:fr=24:tm=175:sp=3:gosub7000
  163. 1210 sysh,135,65,135,110:sysh,180,65,180,110
  164. 1215 a=0:gosub9000:j=5:gosub8000:a=3:c=c+3:gosub9000
  165. 1220 fori=0to12:sys49173,135+i,66,135+i,109:sys49173,180-i,66,180-i,109
  166. 1221 sys49176,135+i,66,135+i,109:sys 49176,180-i,66,180-i,109
  167. 1222 nexti
  168. 1225 j=9:gosub8000
  169. 1230 fori=0to4:sys49173,147+i,66,147+i,109:sys49173,168-i,66,168-i,109
  170. 1235 sys49176,147+i,66,147+i,109:sys49176,168-i,66,168-i,109
  171. 1240 nexti
  172. 1245 sys49173,147+i,66,147+i,109:sys49173,168-i,66,168-i,109
  173. 1250 ford=500to.step-15:foru=.tod:next:gosub9100:next
  174. 1253 a=0:gosub9000
  175. 1254 forzz=149to152:sysh+3,zz,66,zz,109:sysh+3,zz+13,66,zz+13,109:nextzz
  176. 1257 sysh,157,66,157,109:sysh,158,66,158,109
  177. 1260 sys49179,"the  end",133,100
  178. 1265 gosub4055
  179. 1280 sys49179,"* press any key to quit *",66,150:poke198,.
  180. 1290 geta$:ifa$=""then1290
  181. 1300 sys49155:poke178,64:print"[147]";:open15,8,15,"r0:hello connect=hello connect"
  182. 1310 input#15,er:close15:ifer<>63thenend
  183. 1320 poke55,0:poke56,160:load"hello connect",8
  184. 4000 :
  185. 4005 s=54272:pokes+24,15:pokes+5,190:pokes+6,25:forx=127to10step-17:pokes+1,2*x
  186. 4010 pokes+1,129-x:pokes+4,17:forl=1to4:nextl:pokes+1,4:nextx:pokes+4,16:return
  187. 4015 return
  188. 4025 s=54272:pokes+5,9:pokes+6,9:pokes+24,15:pokes+4,17:forl=1to40:pokes+1,62-l
  189. 4030 pokes+1,l:pokes+4,17:nextl:pokes+4,16:return
  190. 4035 s=54272:pokes+24,15:pokes+6,240:pokes+4,17:forla=1to2:forlx=255to1step-55
  191. 4040 pokes+1,lx/2:pokes+1,255-lx/2:nextlx:nextla:pokes+4,16:return
  192. 4045 s=54272:pokes+24,15:pokes+6,240:pokes+4,17:forla=1to10:forlx=1to255step25
  193. 4050 pokes+1,lx:nextlx:nextla:pokes+4,32:return
  194. 4055 s=54272:pokes+1,14:pokes+5,3:pokes+6,240:pokes+24,15:pokes+4,17
  195. 4060 forld=8to2step-1:pokes+1,ld:pokes+4,33:pokes+4,33:pokes+1,ld*2:pokes+4,17
  196. 4065 pokes+1,ld*4:pokes+4,33:pokes+1,ld*8:pokes+4,17:nextld:pokes+4,16:return
  197. 7000 forf=frtotmstepsp
  198. 7005 z=z+1:ifz<3then7020
  199. 7010 ifa=1thena=2:z=.:goto7020
  200. 7015 a=1:z=.
  201. 7020 b=f:gosub9000:if(j=3orj=9)andz=.thengosub9100
  202. 7025 next f
  203. 7030 return
  204. 8000 rem
  205. 8015 if j=11thenj=0
  206. 8020 poke 53115,a(j):poke53116,b(j):sys 53112
  207. 8030 return
  208. 9000 ifa=.thenpokev+21,.:return
  209. 9005 pokev,band255:pokev+16,-(b>255):pokev+1,c:poke2040,12+a:pokev+21,1:return
  210. 9100 pokesd+24,.:pokesd+24,15:return
  211.