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