home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 2 / 002.d81 / psymon (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  1.6 KB  |  36 lines
  1. 5 ifpeek(49152)<>120orpeek(51200)<>76orpeek(52016)<>32then7
  2. 6 ifpeek(52080)=173andpeek(52176)=169then10
  3. 7 load"routines",8,1
  4. 10 v=53248:r=v+17:c=128:s=v+1024:wc=51203:wt=1020:wb=1021:wl=1022:wr=1023
  5. 15 pokes+5,.:pokes+6,240:pokes+3,8:pokev+32,1:pokev+33,1
  6. 20 dims%(8,3),m%(255):fori=.to3:forj=.to8:reads%(j,i):next:next:pokes+24,15
  7. 21 data3,11,6,18,10,2,195,16,25,3,11,21,33,13,5,31,21,30
  8. 22 data13,21,6,18,14,6,30,25,29,13,21,21,33,7,9,143,12,34
  9. 25 print"[147][144]":fori=1to21:print"                                ":next:t=500
  10. 30 print"             * [208][160][211][160][217][160][205][160][207][160][206][160]*":print"               [163][163][163][163][163][163][163][163][163][163][163][144]"
  11. 32 print"[217][213]"
  12. 33 print"[200][202]"
  13. 35 fork=.to3:gosub100:next:fori=1to1000:next:m=-1
  14. 40 m=m+1:m%(m)=rnd(.)*4:t=1000/1.2^m:forj=.tom:k=m%(j):gosub100:next:forj=.tom
  15. 45 k=m%(j):foro=1to500+t:ifpeek(197)=64thennext:gosub300:goto70
  16. 47 o=500+t:next
  17. 50 p=peek(197):ifp<>s%(8,k)thenj=m:next:gosub300:goto70
  18. 60 gosub200:next:print"[145][156][211]core: "m+1:fori=1to100+t/2:next:goto40
  19. 70 print"[145][156][198]inal [211]core: "m:t=100:forj=.tom:k=m%(j):gosub100:next
  20. 99 pokev+32,1:pokev+33,1:poke198,.:goto63000
  21. 100 pokewt,s%(.,k):pokewb,s%(1,k):pokewl,s%(2,k):pokewr,s%(3,k):poke646,s%(4,k)
  22. 105 fori=.tot/2:next
  23. 110 pokes,s%(6,k):pokes+1,s%(7,k):waitr,c:syswc:pokes+4,65:fori=.tot:next
  24. 115 poke646,s%(5,k):waitr,c:syswc:pokes+4,.:return
  25. 200 pokewt,s%(.,k):pokewb,s%(1,k):pokewl,s%(2,k):pokewr,s%(3,k):poke646,s%(4,k)
  26. 205 pokes,s%(6,k):pokes+1,s%(7,k):waitr,c:syswc:pokes+4,65:wait197,p,p
  27. 210 poke646,s%(5,k):waitr,c:syswc:pokes+4,.:return
  28. 300 pokewt,s%(.,k):pokewb,s%(1,k):pokewl,s%(2,k):pokewr,s%(3,k):poke646,s%(4,k)
  29. 305 pokes,119:pokes+1,7:waitr,c:syswc:pokes+4,65:fori=.to1000:next
  30. 310 poke646,s%(5,k):waitr,c:syswc:pokes+4,.:fori=1to500:next:return
  31. 63000 print"[147][215]ant to play again (y/n)":poke198,0:wait198,1:getan$
  32. 63002 ifan$<>"y"andan$<>"n"then63000
  33. 63004 ifan$="y"then25
  34. 63100 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  35. 63110 poke631,13:poke632,13:poke198,2:end
  36.