home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 June / 64er_Magazin_92-06_1992_Markt__Technik_de_Side_B.d64 / rohrbruch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 5 print"[147]":poke53280,11:poke53281,.:poke211,33:poke214,11:sys58640:print"[155]score:"
  2. 6 print"[159]rohrbruch                       [146][145][157][157](c)[213][219][215][215][192][192][157][157][157][157][157][157][157][180] [219][213][201][176][201][157][157][157][157][157][157][157][180][202]"
  3. 7 print"[157][157][157][157][157][157][203][202][203][177][202][157][157][157][157][157][157][157][180][213][192][201][213][219][157][157][157][157][157][157][157][180][202][201][213][201][219][194][157][157][157][157][157][157][157][180][192][203][202][203][194][202][157][157][157][157][157][157][157][180] g.p.[157][157][157][157][157]";
  4. 8 forp=.to17:print"[157][180]";:next:poke211,.:poke214,24:sys58640:forp=.to31:print"[155][166]";:next
  5. 10 v=53248:pokev,24:pokev+1,221:pokev+39,9:pokev+40,6:poke2040,13:poke2041,14
  6. 20 pokev+27,3:j=56320:pokev+28,1:pokev+37,5:pokev+38,10
  7. 21 forp=.to41:poke896+p,.:next:forn=.to20:readq:poke938+n,q:next
  8. 22 forn=.to62:readq:poke832+n,q:next:pokev+21,3:w$="[146][146][146][146][146][146][146][175][146][146][146][162][146][146][183][146][146] [146][145][175][146][145][162][145][183]"
  9. 23 w=int(30+rnd(1)*(255-30)):pokev+2,w:fory=50to221step4:pokev+21,3:pokev+3,y
  10. 24 ifpeek(j)=123thenx=x-5:data.,16,.,.,16,.,.,56,.,.,56,.,.,124,.,.,124,.
  11. 25 ifpeek(j)=119thenx=x+5:data.,56,.,.,5,85,8,5,85,42,5,85,175,5,85,190,197,85
  12. 26 ifx<24thenx=24:data191,197,85,175,5,85,47,13,85,12,29,85,21,81,84,21,81,84
  13. 27 ifx>255thenx=255:data21,64,.,21,64,.,21,64,.,42,128,.,21,64,.,21,64,.,21,64
  14. 28 ify=206andx>w-12andx<w+2thenpokev+21,1:s=s+1:poke211,33:poke214,13:sys58640:print"[146]"s:goto23
  15. 98 pokev,x:nexty:w$=right$(w$,len(w$)-4):poke211,.:poke214,23:sys58640
  16. 99 fort=.to31:print""left$(w$,4);:next:ifw$=""goto500:data.,80,80,.,80,80,.,168
  17. 100 goto23:data168,.
  18. 500 poke211,.:poke214,23:sys58640:fort=.to31:print"[145] ";:next:poke211,(x-24)/8
  19. 501 poke214,18:sys58640:print"[146][213][192][192][192][192][192][192][201][157][157][157][157][157][157][157][157][194]glucks[194][157][157][157][157][157][157][157][157][202][178][192][192][192][192][192][203]"
  20. 502 pokev+21,.:wait56320,16,16:run
  21.