home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9209.d64 / puzzletris (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  968b  |  21 lines
  1. 5 DIMC(11):FORT=1TO11:READC(T):NEXT:Z=54272:POKEZ+24,15:POKEZ+6,255:POKEZ+1,5
  2. 9 POKE53280,0:POKE53281,0:PRINT"[147] [152]JHS":FORT=1TO20:PRINT"             [200][144][186][186][186][186][186][186][186][186][186][186][146][212]":NEXT
  3. 20 FORT=1TO39:PRINT"[183]";:NEXT:PRINT:PRINT"[156]STEINE :";S:DEFFNX(U)=55296+13+X+Y*40:DIMA(11,21)
  4. 21 V=3:Y=20:FORX=1TO10:C=C(INT(11*RND(1))+1):A(X,Y)=C:POKEFNX(I),C:NEXT
  5. 30 O=RND(-TI):X=INT(10*RND(1))+1:C=INT(11*RND(1))+1:Y=1:C=C(C)
  6. 40 J=PEEK(56320):POKEFNX(X),0:IFJ=119 ANDX<10 AND A(X+1,Y+1)=0THENX=X+1
  7. 50 IFJ=123ANDX>1 ANDA(X-1,Y+1)=0THENX=X-1
  8. 60 POKEZ+4,33:FORN=0TO9:NEXT:POKEZ+4,127:Y=Y+1:IFA(X,Y+1)<>0THEN80
  9. 70 IFY<20THENPOKEFNX(X),C:FORN=1TO50-W:NEXT:GOTO40
  10. 80 A(X,Y)=C:H=0:IFA(X,18)=0 THEN111
  11. 90 FORT=YTOY+2:IFA(X,T)=CTHENH=H+1
  12. 100 NEXT:T=Y:IFH<3THEN111
  13. 110 L=L+1:FORY=TTOT+2:A(X,Y)=0:POKEFNX(X),0:NEXT
  14. 111 IFH<3THENPOKEFNX(I),C
  15. 112 T=Y:FORI=1TO8:G=0:FORN=0TO2:IFA(I+N,Y)=CTHENG=G+1
  16. 113 NEXT:IFG=3THENL=L+1:X=I:I=0:N=X:FORX=NTON+2:FORY=TTO1STEP-1:A(X,Y)=A(X,Y-1)
  17. 114 IFG=3THENPOKEFNX(I),A(X,Y):NEXTY,X
  18. 120 NEXTI:S=S+1:IFA(X,2)>0THENPRINT"[147]GAME OVER !!!":PRINT"[156]PUNKTE :"L*100+S:END
  19. 130 IF(G=3 OR H=3) AND L/V=INT(L/V)THENW=W+1:DATA1,3,4,5,6,7,9,10,11,14,15
  20. 140 PRINT""TAB(8)S:PRINT"[145][158]"TAB(20)"LINIEN :";L:GOTO30
  21.