home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9001a.d64 / zahlenpuzzle (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  848b  |  21 lines
  1. 1 DIMP(16),K(4,4),Z(16):POKE53280,0:POKE53281,0:PRINT"[147][153]":A$=""
  2. 2 PRINTA$"[176][192][192][178][192][192][178][192][192][178][192][192][174]":B$=A$+"[194]  [194]  [194]  [194]  [194]":C$=A$+"[171][192][192][219][192][192][219][192][192][219][192][192][179]"
  3. 3 PRINTB$:PRINTC$:PRINTB$:PRINTC$:PRINTB$:PRINTC$:PRINTB$::PRINTA$"[173][192][192][177][192][192][177][192][192][177][192][192][189]":Y=1355:FORI=0TO3:FORJ=0TO3:Y=Y+3
  4. 4 K(J,I)=Y:P(Q)=K(J,I):Q=Q+1:NEXTJ:Y=Y+68:K(J,I)=Y:NEXTI:FORI=0TO15
  5. 5 Z(I)=INT(RND(0)*16):FORJ=0TOI:IFI<>JANDZ(I)=Z(J)THEN5
  6. 6 NEXTJ:GOSUB7:NEXTI:Y=INT(T/4):X=T AND3:Q=T:GOTO10
  7. 7 IFZ(I)=>10THENL=49:R=Z(I)+38
  8. 8 IFZ(I)<10THENR=Z(I)+48:L=32:IFZ(I)=0THENL=160:R=160:K=P(I):T=I
  9. 9 POKEP(I),L:POKEP(I)+1,R:RETURN
  10. 10 GETA$:L=Y:R=X:IFA$="[145]"ANDY>0THENY=Y-1:Q=Q-4:GOTO19
  11. 11 IFA$=""ANDY<3THENY=Y+1:Q=Q+4:GOTO19
  12. 12 IFA$="[157]"ANDX>0THENX=X-1:Q=Q-1:GOTO19
  13. 13 IFA$=""ANDX<3THENX=X+1:Q=Q+1:GOTO19
  14. 14 IFA$<>CHR$(13)THEN10
  15. 15 A=Z(Q):I=T
  16. 16 IFQ=I-4ORQ=I+4ORQ=I-1OR(Q=I+1ANDY=INT(T/4))THENZ(T)=A:Z(Q)=0:GOSUB7:I=Q:GOSUB7
  17. 17 FORI=0TO14:IFZ(I)=I+1ANDZ(15)=0THENNEXTI:END
  18. 18 GOTO10
  19. 19 A=K(R,L):POKEA,PEEK(A)-128:A=A+1:POKEA,PEEK(A)-128:A=K(X,Y):POKEA,PEEK(A)+128
  20. 20 A=A+1:POKEA,PEEK(A)+128:GOTO10
  21.