home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #7 / utv2n7s2.d64 / neutron.intro (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  2.5 KB  |  61 lines
  1. 10 rem neutron.intro*jc hilty*6/88
  2. 21 sys57812"pic.now",8,1:sys62631:sys57812"zippack",8,1:sys62631
  3. 22 sys57812"neutron.sp",8,1:sys62631
  4. 23 sys57812"neutron.mvt",8,1:sys62631:sys57812"opening.pic",8,1:sys62631:sys860
  5. 24 v=53248:s=54272
  6. 25 pokev+16,0:pokev+27,0:pokev+28,3:pokev+37,1:pokev+38,2:pokev+39,7:pokev+40,6
  7. 26 poke24568,12:poke24569,15:pokev,255:pokev+1,168:pokev+2,255:pokev+3,159
  8. 28 pokev+21,3
  9. 30 forx=50432to50448:pokex,0:next:poke50433,254:poke50435,254:poke50688,3
  10. 32 sys51104:poke50432,3:gosub1000
  11. 34 wait56320,16,16:sys65418:remifpeek(12278)=251thensys52480
  12. 35 pokes+11,128:pokev+21,0:gosub2000:poke53281,0:poke53280,0
  13. 36 print"[154]checking the neutronic head band...."
  14. 40 sys49152,"title.pic",40960,24576:sys860:gosub1200
  15. 41 wait56320,16,16:gosub2000:print"[154]checking the rocket pack...."
  16. 42 sys49152,"comic1.pic",40960,24576:sys860
  17. 44 wait56320,16,16:gosub2000
  18. 54 print"[147][154]the year is 1998. a top secret project,":print
  19. 55 print"codenamed 'neutron', has been under":print
  20. 56 print"development for a long time and is":print
  21. 57 print"nearing completion. a miniature rocket":print
  22. 58 print"thruster, about the size of a book of":print
  23. 59 print"matches, will enable a man to fly. an":print
  24. 60 print"atomic headband will permit the":print
  25. 61 print"firing of neutron laser beams at will.":print
  26. 62 print"you have been chosen to test this":print
  27. 63 print"equipment.":print
  28. 64 printtab(10)"press firebutton":fort=0to1000:next
  29. 70 wait56320,16,16
  30. 80 print"[147][154]a recent development will not allow":print
  31. 81 print"the equipment to be tested. an armada":print
  32. 82 print"from deep space threatens the safety of":print
  33. 83 print"the metropolis you call home. you must":print
  34. 84 print"spring into action. from now on you":print
  35. 85 print"will be known as 'neutron-man'!!":print
  36. 86 printtab(10)"press firebutton":fort=0to1000:next
  37. 100 wait56320,16,16
  38. 102 print"[147][154]you will meet the invading saucers in":print
  39. 103 print"three different scenarios:":print:printtab(8)"1. outer space"
  40. 104 printtab(8)"2. the city streets":printtab(8)"3. the statue of liberty"
  41. 105 print:print"each area will be explained as you":print
  42. 106 print"enter that section of the game.":print
  43. 107 print"you begin the game with 5 strength":print
  44. 108 print"units. the game ends if you run out 0f":print
  45. 109 print"strength. good luck!!":print
  46. 112 printtab(10)"press firebutton":fort=0to1000:next
  47. 120 wait56320,16,16
  48. 123 print"[147][154]the adventure begins in space....[144]"
  49. 124 print"[144]load"chr$(34)"neutron.exe"chr$(34)",8";
  50. 125 poke198,4:poke631,13:poke632,82:poke633,213:poke634,13
  51. 126 new
  52. 1000 forx=0to24:pokes+x,0:next:pokes+24,15:pokes+12,160:pokes+13,252
  53. 1002 pokes+8,80:pokes+7,40:pokes+11,129:return
  54. 1200 forx=0to24:pokes+x,00:next
  55. 1202 z=10:pokes,150:pokes+1,sp:pokes+5,0:pokes+6,240:pokes+24,15:pokes+4,17
  56. 1204 forsp=10to240step2:pokes+1,sp:forq=0to10:next:next
  57. 1205 forx=0to24:pokes+x,0:next:pokes+1,20:pokes+5,31:pokes+24,15:pokes,240
  58. 1206 pokes+4,129:return
  59. 2000 print"[147]":poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3
  60. 2002 poke53265,27:poke53270,200:poke53272,31:return
  61.