home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 93xx / 9301.d64 / termites (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  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.