home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Gurla_1_19xx_-.d64 / 4 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  44 lines
  1. 1 restore:c=12288:b=0:v=53248:j=56320:l=0:d=56320
  2. 2 print"[147]":poke53280,0:poke53281,0:gosub5000
  3. 10 reada:pokec+b,a:b=b+1:ifb=63then50
  4. 40 goto 10
  5. 50 forx=12352to12414:pokex,255:next
  6. 100 data0,255,0,1,0,128,2,126,64,4,129,32,9,0,144,18,0,72,36,0,36
  7. 110 data72,243,146,145,2,73,162,2,37,162,2,37,162,122,37,162,10,69,162
  8. 120 data11,133,161,10,5,144,242,9,72,0,18,36,0,36,19,255,200,8,0,16
  9. 130 data 7,255,224,0,182,9
  10. 500 pokev+21,3:poke2040,192:pokev+39,14:pokev,170:pokev+1,140:poke2041,193:pokev+40,1
  11. 570 pokev+2,157:pokev+3,140:pokev+29,2:pokev+23,0:pokev+28,0:gosub1000
  12. 590 a=peek(d):ifa=119then600
  13. 592 ifa=123then600
  14. 595 goto590
  15. 600 ifa1<>athenpoke12352+q,0:q=q+1:goto620
  16. 610 goto590
  17. 620 a1=a:ifa1=119thenpokev,peek(v)+5
  18. 640 ifa1=123thenpokev,peek(v)-5
  19. 650 ifpeek(v+30)=0thenpokev,170
  20. 660 ifpeek(12414)=0then2000
  21. 670 goto 590
  22. 1000 b1=peek(704):b2=peek(705):b3=peek(706):ifb1<48orb1>57thenpoke203,51:new
  23. 1100 poke 1521,b1:poke1523,b2:poke1525,b3:return
  24. 2000 pokev+21,0:fori=0to9999:next:poke203,51
  25. 5000 print"[147][154]":forx=0to10:poke646,x
  26. 5010 print"[147]gurlauspommin raaputus":next
  27. 5040 print"[154]  kohta ruutuusi ilmestyy raaputuspinta"
  28. 5050 print"jota voit havittaa lykkaamalla"
  29. 5060 print"ilotikkusi porttiin 2 ja liikuttele-"
  30. 5070 print"malla sita ees sun taas..."
  31. 5080 print" jos saat 3 (kolme) samaa numeroa"
  32. 5090 print"nakyviin, kirjoita marko jerrmannille"
  33. 5100 print"(osoite mainittu muualla) ja ilmoita"
  34. 5110 print"hanelle saamasi numerot.":fori=0to2
  35. 5120 forx=0to255:poke646,x
  36. 5130 print"paapalkintona":next:next
  37. 5160 forx=1to500:next:print"[147][154]"
  38. 5170 print"seutulippu":forx=0to2500:next
  39. 5190 print" saat lunastaa lipun toimittajiemme"
  40. 5200 print"lasnaollessa milloin tahansa se heille":print"sopii..."
  41. 5220 print"onnea. muista! jos voitat, on sinulla"
  42. 5225 print"viikko aikaa vieda kirje":print"postiin..."
  43. 5240 forx=0to7000:next:print"[147]":return
  44.