home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pggame / puzzle.200 < prev    next >
Text File  |  2006-10-19  |  2KB  |  71 lines
  1.                PUZZLE.200
  2. The object of the puzzle is to move...
  3.                  Box 0...
  4.  
  5. +--------------+       +--------------+
  6. !0             !       !0             !
  7. !              !       !              !
  8. ! FROM HERE... !       !   TO HERE!   !
  9. !              !       !              !
  10. !              !       !              !
  11. !              !       !              !
  12. +--------------+       +--------------+
  13.  
  14.   Select block 0-9 and move with ARROW
  15.   keys.  Beep indicates illegal move.
  16.  
  17.  
  18. 0 REM PUZZLE by Paul Globman
  19. 1 REM        copyright (c) 1988
  20. 2 CLS:DIMLC(20):C=1:FORI=0TO9:READSQ(I),TY(I):NEXT:FORI=1TO4
  21. 3 READXX(I),YY(I):NEXT:FORI=0TO9:GOSUB48:NEXT:I=4
  22. 4 RV$=CHR$(27)+"p":GOSUB48:GOSUB26
  23. 5 A$=INKEY$:IFA$=""THEN5
  24. 6 IFA$=>"0"ANDA$<="9"THENRV$="":GOSUB50:I=VAL(A$):GOTO4
  25. 7 IFA$=CHR$(28)THEN15
  26. 8 IFA$=CHR$(29)THEN12
  27. 9 IFA$=CHR$(30)THEN19
  28. 10 IFA$=CHR$(31)THEN22
  29. 11 BEEP:GOTO5
  30. 12 IFSQ(I)MOD5=0THEN11
  31. 13 SF=0:GOSUB31:IFSF=0THEN11
  32. 14 GOSUB47:SQ(I)=SQ(I)-1:GOTO4
  33. 15 IFSQ(I)MOD5=4THEN11
  34. 16 IFTY(I)MOD2=0AND(SQ(I)+1)MOD5=4THEN11
  35. 17 SF=0:GOSUB39:IFSF=0THEN11
  36. 18 GOSUB47:SQ(I)=SQ(I)+1:GOTO4
  37. 19 IFSQ(I)<5THEN11
  38. 20 SF=0:GOSUB35:IFSF=0THEN11
  39. 21 GOSUB47:SQ(I)=SQ(I)-5:GOTO4
  40. 22 IFSQ(I)>14THEN11
  41. 23 IFTY(I)>2THENIF(SQ(I)+5)>14THEN11
  42. 24 SF=0:GOSUB43:IFSF=0THEN11
  43. 25 GOSUB47:SQ(I)=SQ(I)+5:GOTO4
  44. 26 FORJ=0TO19:LC(J)=0:NEXT:FORJ=0TO9:LC(SQ(J))=1
  45. 27 IFTY(J)MOD2=0THENLC(SQ(J)+1)=1
  46. 28 IFTY(J)>2THENLC(SQ(J)+5)=1
  47. 29 IFTY(J)=4THENLC(SQ(J)+6)=1
  48. 30 NEXT:RETURN
  49. 31 IFLC(SQ(I)-1)=1THENRETURN
  50. 32 IFTY(I)<=2THENSF=1:RETURN
  51. 33 IFLC(SQ(I)+4)=0THENSF=1
  52. 34 RETURN
  53. 35 IFLC(SQ(I)-5)=1THENRETURN
  54. 36 IFTY(I)MOD2=1THENSF=1:RETURN
  55. 37 IFLC(SQ(I)-4)=0THENSF=1
  56. 38 RETURN
  57. 39 IFLC(SQ(I)+1+(TY(I)+1)MOD2)=1THENRETURN
  58. 40 IFTY(I)<3THENSF=1:RETURN
  59. 41 IFLC(SQ(I)+TY(I)+3)=0THENSF=1
  60. 42 RETURN
  61. 43 IFLC(SQ(I)+((TY(I)<3)+2)*5)=1THENRETURN
  62. 44 IFTY(I)MOD2=1THENSF=1:RETURN
  63. 45 IFLC(SQ(I)+1+((TY(I)<3)+2)*5)=0THENSF=1
  64. 46 RETURN
  65. 47 C=0
  66. 48 X=SQ(I)MOD5:Y=INT(SQ(I)/5)
  67. 49 LINE(X*48,Y*32)-((X*48+XX(TY(I))),Y*32+YY(TY(I))),C,B
  68. 50 PRINT@41+Y*160+X*8,RV$CHR$(I+48)CHR$(27)"q";:IFC=0THENPRINTCHR$(8)+" "
  69. 51 C=1:RETURN:DATA 5,4,15,2,17,2,19,1,14,1,9,1,4,1,7,3,2,2,0,2
  70. 52 DATA 46,30,94,30,46,62,94,62
  71.