home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 January / 64er_Magazin_93-01_1993_Markt__Technik_de.d64 / termites (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  1.4 KB  |  21 lines
  1. 0 t=550:poke648,64:dima(99):data-40,69,1705,40,70,1130,-1,72,1505,1,71,1600,,68,
  2. 1 print"[147] [176]l[146] [208]l[146]![208])[146][191]m[146]m[220])[146][192]e[146]8)[146]3e[146]a)[207]m[146]$[192])[146]7m[146]'[192])[185]*9[146]@[207]y[146]@7[200][208]";
  3. 2 print"[183][174][146]$[192][174][146]'[192][168][208][174])[146]7e[146]a)[146]_m[146]x[208])am[146]m[220] [146][192]9e[146][192]y[146]g:h[208][183])[178]mf[146]b [196][165] [146]()";
  4. 3 print"[146][194]y[146]'dy?[146]gh[208][183])[146][208]e[188])[146]de[189])[170]*)[146][194] [146]@q[188] [146]'q[188]%[188][146]x[169](e[188]p[146]b[166][189][168][208][168][146][160]<[166]";
  5. 4 print"[188][184][176][184][146][188]>[190][190][190][146]@[175][175][175][146]@@@x<<x@@<[190][191]??_[146][194]<[195][146][166]<[190]?_[146][198]<<[190]?_[146][198]<[166][195][146]1[187][190]<<^[146][219]";
  6. 5 print"1l[255][146][191]//[167][210]l)[191]e[190])?e[188])[146]ge[189] [146]@1[188][201][146] [176][146][196][201][146][193][176][146]x8%[188][169][146]ae[188]%[189][169][146]@e[189][201][146]d[208]";
  7. 6 print"[165]%[188][201][146][208][208][223][146][160])[146] q[188][200]1[188][201][146] [176][146]d[201][146][195][208][205]%[189][146]x[169][212]e[189])[146]g8q[188]%[189][169][212]e[189])[146][193]q[188][146][204][210][146][192]";
  8. 7 print"d[190][146][204][218][146][192]":poke648,4:r=56320:v=4^5:j=4^7:sysj:z=54272:g=3:ift<sthent=s
  9. 8 print,"[153][157][157][157]termites 1992 by r.levrinc"tab(254)"[195]press fire[195]":s=0:forl=1to3
  10. 9 a=1115:m=900:ford=0to66:a(d)=a:next:restore:waitr,16,16:sysj+77:forh=0to4:p=65
  11. 10 readd(h),w(h),c(h):j(h)=32:next:print"[129]sc","[157][157]ti     [150]level[156]"g/3"[154]hisc"t;
  12. 11 printtab(33)"[159]lives"4-l:fork=1to3:print:forc=-8to39:print"[194][194][194][194]";:nextc,k
  13. 12 q=f<g:a(f)=a:f=-q*f-q:q=f<g:q=a(f-g-q*g-q):i=127-peek(r):ifithenk=log(i)*1.5
  14. 13 pokea,68:y=peek(a+d(k)):k=k-(4-k)*(y=66):a=a+d(k):pokez+a,1:pokea,w(k):w=a=q
  15. 14 h=-(h+1)*(h<3):pokeq+z,8+w*7:pokeq-j*w,d:sys16629+47*(h=0):e=int((a-v)/c)*c-a
  16. 15 x=c(h):e=e+x-int((x-v)/c)*c:n=3+(e>0):ifrnd(1)<.5ande+a<>xore=0thenn=1+(x>a)
  17. 16 pokez+x,2:pokex-j*(j(h)>d),j(h):x=x+d(n):j(h)=peek(x):i=peek(z+x):s=s-(y=p)*9
  18. 17 m=m-1:pokez+x,h+3:pokex,w(n):ifpeek(254)thenl=l-1:s=s+400+m:i=0:g=g-3*(g<27)
  19. 18 c(h)=x:poke214,int(rnd(1)*4)*7:print""chr$(-97*((mand63)=0))"[149]"s,m"[157] [158]
  20. 19 [145][171](m[177]0[175](i[175]15)[177]1[175]y[179]69)[137]12:[130]:[153],,"cmdcmdcmdthe end":[146]r,16,16:[137]7
  21.