1 rem popeye
2 rem infinite time & hearts by waz
3 rem cassette -v1- commodore format
4 for x=269 to 306:read y:c=c+y:poke x,y:next
5 if c<>4234 then print "data error":end
6 input "infinite time y/n";a$:if a$="n" then poke 302,206
7 input "number of hearts 1-25";a:if a<1 or a>25 then 7
8 poke 297,a:poke 157,128:sys 269
9 data 032,086,245,169,032,141,220,002
10 data 169,001,141,222,002,076,167,002
11 data 087,065,090,169,000,141,032,208
12 data 238,032,208,169,025,141,042,064
13 data 169,173,141,173,064,096
Download PRG...
.png)