home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 December / 64er_Magazin_89-12_1989_Markt__Technik_de_Side_A.d64 / pac-maennchen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 0 print"[147]","[158][208]ac-[205]aennchen",,,"[150]([195]) by [211]e[215]o-[211]oft",,,"[211]peed";:inputa$
  2. 1 print"[147] [146]@l[146] [208]l[146]![208]9[146]@dy@[205][200][208][183]9[146]@ey@[206][200][208][183][146][160]@@-e-e[166]d[161]d[166]f[176]f-e[211]h[193]g[215]o[215]n[215]c[215]k(@";
  3. 2 print"[208])'''())) [208] ).@.'.@.@ )[146]u(y[172][211]y[179][211]y[176][211]y[183][211]y[146]c[208])[146]om[146]x[212])[146]x*()[146][166]y[146][215]dh";
  4. 3 print"[208][186]][146][183]g[202][208][186]m[169][146]em[146][182]f)[146].m[146][205]fms[146]dmd[146]d)[146]@e6&6=][205]e[187]=^[205]e[188]=+[205] [146](q[187]<?[205][160]";
  5. 4 print"[146]c0[146]%j[146][202]*=[146]@[220]([146])p[208][146]q)[146]  [146](q[187]=[[205][176][146]c[255][[205][146][204][[207]x[146])o[201]o*<7[205]&61[187]d[189]e[190]";
  6. 5 print"[160][146]cp[146][195][201][146]2p[146][171][201][146][214]0[146]8[205]+[205][208][146]e[206][[205][146]ph[205]-[205][208][146]c[206]\[205])[146]@m[146]d[212])am[146]d[212] [146](=[194]";
  7. 6 print"[205]q[187]-)[205]]][205]-*[205]]^[205]-[194][205]][194][205][146][204][[207][146][204],[207][201][146]30[146][188][201][146].[208][146] [202][146]pk[168]n[146]d[212])[146]qm[146]d[212][146]pj";
  8. 7 print")[146]@m[146]k[212])[146]!m[146]k[212][190][[205][208][146]c[255][[205])[146] q[187] [146](&6=[194][205]q[187])[212][146]x[165][188]e[188])[191]q[187]$[189]=,[205]q[187]%[188][146]8";
  9. 8 print"[169][212]e[188]1[187]][194][205]=+[205]q[187]x[146]8[169][146](pv[201][191]([200]d[189]=][205][146]8[165][189]]][205]0[146]q[255]^[205]p[146]lx[189]][205]]][205]p[146]c[190]^[205])[146]e";
  10. 9 print"e=&6[168][168]f6[160][146]k0[146]v[204]m[206][198]=[176][171]-[146]d[220][146])c(98[205]]?[205][146][204]m[206] [186][200][146] 3[174]h[208][186][146][160][186][146][160]":sys1024
  11. 10 b$="[157][157][157][157][157]":a$(0)="[166].[166][166][166]"+b$+"..[166].."+b$+"[166].[166].[166]"+b$+"[166].[166].[166]"+b$+"..[166]..":b=102
  12. 11 a$(1)="[166].[166][166][166]"+b$+"....."+b$+"[166]..[166]."+b$+"[166][166].[166]."+b$+"...[166].":print"[155][147]":q=58640
  13. 12 a$(2)="[166][166][166][166][166]"+b$+"...[166]."+b$+"[166][166]..."+b$+"[166]...[166]"+b$+"..[166]..":fori=0to3:forj=0to3
  14. 13 poke214,j*5+2:poke211,i*5+10:sysq:printa$(rnd(ti)*3):nextj,i:g=val(a$):a=a+1
  15. 14 fori=1174to1894step40:pokei+1,b:pokei-22,b:pokei,46:pokei-21,46:next:d=52745
  16. 15 poke53056,-g*(g<8^5)and255:w=52635:c$="[157] ":sys52687:ti$="000000":c=sewo-soft
  17. 16 sysd:print""40-int(ti/60)c$,"[129][211]"peek(w)c$,"[158][193]"peek(w+1)c$:ifti<2410goto16
  18. 17 poke214,9:sysq:print,,b$"[176][192][192][192][174]"b$"[221]end[221]"b$"[221]f1 [221]"b$"[173][192][192][192][189]":y=peek(w+1):p=p+y
  19. 18 geta$:on-(a$<>"[133]")goto18:x=peek(w):m=m-(x>y):o=o+x:n=n-(y>x):print"[147]scores:
  20. 19 [153]"for(NULL):"m,o,o[173]a:[153]"sysatn:"n,p,p[173]a:[146]198,1:[161]a$:[145][171](a$[179][177]"let")[137]0:[138]
  21.