home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 September / 64er_Magazin_92-09_1992_Markt__Technik_de.d64 / oscars dustbin (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  1.4 KB  |  21 lines
  1. 9 v=53248:j=56320:pokev+32,.:pokev+33,11:print"[147][152]":poke2040,13:poke2041,14:pokev,229:pokev+1,171
  2. 11 pokev+39,5:a(1)=832:a(2)=896:fors=1to2:forn=.to62:readq:pokea(s)+n,q:nextn,s:pokev+28,3
  3. 12 pokev+37,1:pokev+38,.:poke211,31:poke214,.:sys58640:forp=.to23:print"[170][157]";:next:poke211,.
  4. 15 f$="(w)[157][157][213][178][215][215][195][195][157][157][157][157][157][219][213][201][176][201][157][157][157][157][157][194][202][203][177][173][157][157][157][157][157][157][202][203]gp[213][157][157][157][157][157][213][195][195][195][194][195][157][157][157][157][157][157][202][201][213][201][219][219]"
  5. 16 f$=f$+"[157][157][157][157][157][194][202][203][194][202][203][157][157][157][157][157][157][157][157][195][195][203]  [203]":f$=f$+"[157][157][157][157][157][157][195][195][195][195][195][195][195]":f$="[157][157][157][157][157][157][157][157]"+f$
  6. 17 f$=f$+"[195][157][157][157][157][157][157][157][157][158]oscar's[157][157][157][157][157][157]dustbin[157][157][157][157][157][157][157][157][152][195][195][195][195][195][195][195][195][157][157][157][157][157][157][157]score:"
  7. 18 f$=f$+"[157][157][157][157][157][157][163][163][163][163][163][163]":poke214,23:sys58640:forp=.to39:print"[183]";:next:printf$:poke211,24
  8. 19 t$="[154][213][163][163][163][163][146][201][157][157][157][157][157][194][194][194][194][157][157][157][157][194][194][194][194][157][157][157][157][194][194][194][194][157][157][157][157][194][194][194][194][157][157][157][157]    [146]"
  9. 20 poke214,17:sys58640:printt$:print"":gosub205:gosub200:pokev+2,.:pokev+3,155:pokev+21,3:pokev+27,2
  10. 112 pokev+28,3:pokev+2,.:pokev+3,155:c=int(3+2*rnd(0)):pokev+40,c:forx=8to232step14:pokev+2,x
  11. 113 ifpeek(j)=126thenifpeek(v+21)=2orpeek(v+21)=.thengosub200:data,,,,,,2,170,,3,239,,10,118
  12. 114 ifpeek(j)=125andpeek(v+21)=3thengosub201:data128,9,85,128,9,221,128,9,85,128,10,102,128
  13. 117 nextx:ifpeek(v+21)=3thenforr=155to187:pokev+3,r:next:data11,255,128,10,254,128,2,170,,,168
  14. 118 ifc=4andpeek(v+21)=3thensc=sc+2:gosub205:goto112:data,,168,,162,170,40,162,170,40,,,,,,.
  15. 128 ifc=3andpeek(v+21)=3thensc=sc-4:gosub205:goto112:data,,,,,,,,,,,168,,2,150,,2,166,,2,170
  16. 130 pokev+2,254:fort=.to20:next:pokev+2,.:goto112:data,2,170,,2,170,,,168,,,,,,,,,,,,,,,,,,.
  17. 200 poke211,25:poke214,16:sys58640:print"[154][146]    [161][145][157][172][145][157][188][145][157][146][161]":pokev+21,3:return:data,,,,,,,,,,,,,.
  18. 201 poke211,29:poke214,12:sys58640:print"[154][146] [157] [157] [157] [157] [157][157][157][157][157][162][190][188][146][162]":pokev+21,2:return:data,,,,,.
  19. 205 poke211,33:poke214,20:sys58640:print"[150]"sc"[157] ":ifsc>-1thenreturn:data,,,.
  20. 206 poke211,6:poke214,11:sys58640:print"s l i m e  o v e r !":waitj,16,16:run
  21.