home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9104a.d64 / falle (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines

  1. 0 DIMF$(41,21):POKE53280,0:POKE53281,0:POKE646,3:GR=0.95:GOTO2
  2. 1 FORI=1TO40:FORJ=1TO20:PU=PU-((F$(I,J)=" ")*2)-((F$(I,J)="=")*3):NEXTJ:NEXTI
  3. 2 GR=GR-0.05:FORI=1TO40:FORJ=1TO20:F$(I,J)=" ":IFRND(TI)>GRTHENF$(I,J)="X"
  4. 3 NEXTJ:NEXTI:F$(1,1)="0":F$(1,2)=" ":F$(2,1)=" ":F$(2,2)=" ":X=1:Y=1
  5. 4 F$(40-INT(RND(TI)+.5),20-INT(RND(TI)+.5))=" ":F$(40,20)="*":PRINT"[147]":POKE1024,48
  6. 5 POKE1024,PEEK(1024)OR128:POKE1823,42:PO$=""
  7. 6 PRINTPO$;"PUNKTE: ";PU:POKE198,0:WAIT198,1:GETA$:IFA$="H"THENS=1:GOTO6
  8. 7 XN=X-(A$="M")-(A$="J")-(A$="U")+(A$="B")+(A$="G")+(A$="T")
  9. 8 YN=Y-(A$="B")-(A$="N")-(A$="M")+(A$="T")+(A$="Y")+(A$="U")
  10. 9 IF((XN>40)OR(XN<1)OR(YN>20)OR(YN<1))THENS=0:GOTO6
  11. 10 IF((S=1)AND(F$(XN,YN)="X"))THENF$(XN,YN)="=":S=0:POKE1024+(YN-1)*40+XN-1,61:GOTO6
  12. 11 IF((S=1)AND(F$(XN,YN)="="))THENF$(XN,YN)="X":S=0:POKE1024+(YN-1)*40+XN-1,32:GOTO6
  13. 12 IF((S=1)AND(F$(XN,YN)=" "))THENF$(XN,YN)="G":S=0:POKE1024+(YN-1)*40+XN-1,61:GOTO6
  14. 13 IF((S=1)AND(F$(XN,YN)="G"))THENF$(XN,YN)=" ":S=0:POKE1024+(YN-1)*40+XN-1,32:GOTO6
  15. 14 IF((S=1)OR(F$(XN,YN)="=")OR(F$(XN,YN)="G"))THENS=0:GOTO6
  16. 15 IFF$(XN,YN)="X"THENFORI=0TO39:FORJ=0TO19:POKE1024+J*40+I,ASC(F$(I+1,J+1)):NEXTJ:NEXTI:END
  17. 16 LA=1024+(Y-1)*40+X-1:AK=1024+(YN-1)*40+XN-1:IF(F$(XN,YN)="*")THENPOKE1823,32:GOTO1
  18. 17 FORI=-1TO1:FORJ=-1TO1:IF((F$(XN+I,YN+J)="X")OR(F$(XN+I,YN+J)="="))THENAN=AN+1
  19. 18 NEXTJ:NEXTI:POKELA,PEEK(LA)AND127:X=XN:Y=YN:IF(F$(X,Y)=" ")THENPU=PU+1
  20. 19 F$(X,Y)=CHR$(48+AN):POKE1024+(Y-1)*40+X-1,AN+48:POKEAK,PEEK(AK)OR128:AN=0:GOTO6
  21.