home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 December / 64er_Magazin_85-12_1985_Markt__Technik_de.d64 / frogger (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  25 lines
  1. 0 v=53248:poke2042,13:poke2043,14
  2. 1 print"[147]@@@?[160][146]@[191]c[192][191][207][146]@[176][146]_[192][167][188][146]@[191][191][146]@[191][191]@[191][185][192][191][185] [160][146]? [191][185] [191][185][192][146][191][191]@[191][191][146]@[167][184][146]@[176]";
  3. 2 print"_[192][191][207]@[191]c[192][146]_[160][146]@@@@[191][146]@[190][146]@g[191][160][146]?[191][184][146][191][191][184][191][191][184][191][191][188][191][191][190][146][191][191][191][146]?[191][191][146]_[191][191][146]o";
  4. 3 print"[191][191][146]o[191][190][146]o[191][184][146]_[191][184][146]_[191][188][146]?[191][190][146]?[191][191][146]?[191][190][146]_[191][184][146]g[191][192][146]a[188]@"
  5. 4 fort=0to126:poke832+t,peek(1024+t):next:pokev+41,13:pokev+42,6:pokev+27,12
  6. 5 poke650,128:poke649,2:pokev+32,0:pokev+33,5:pokev+23,8:pokev+29,8:s=300:g=0
  7. 6 pokev+16,8:pokev+6,30:pokev+7,120:y=100:x=40:pokev+4,x:pokev+5,y:pokev+21,12
  8. 7 pokev+30,peek(v+30)and251:pokev+31,peek(v+31)and243
  9. 8 x$=" [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] "
  10. 9 print"[147]";tab(10);x$:print"[144]";tab(17);x$:print"";tab(24);x$:print"[152]";tab(31);x$
  11. 10 poke56322,224:j=peek(56321):if(jand1)=0theny=y-15:goto17
  12. 11 ifpeek(v+31)and4=4thenprint"[144][147]tot";g;"froesche gerettet":wait145,16,16:goto5
  13. 12 ifpeek(v+30)=12thenprint"[147][144]gerettet !":s=s-50:g=g+1:wait145,16,16:goto6
  14. 13 if(jand2)=0theny=y+15:goto17
  15. 14 if(jand4)=0thenx=x-15:goto17
  16. 15 if(jand8)=0thenx=x+15:goto17
  17. 16 poke172,peek(60656):poke780,peek(216):sys59848:print:forl=1tos:next:goto10
  18. 17 ify>230theny=230
  19. 18 ify< 40theny= 40
  20. 19 ifx>63and(peek(v+16)and4)=4thenx=63
  21. 20 ifx<25and(peek(v+16)and4)<>4thenx=25
  22. 21 ifx<0and(peek(v+16)and4)=4thenpokev+16,8:x=255+x
  23. 22 ifx>255thenpokev+16,peek(v+16)or4:x=x-255
  24. 23 pokev+4,x:pokev+5,y:goto10
  25.