home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pggame / puzzle.slv < prev    next >
Text File  |  2006-10-19  |  2KB  |  56 lines
  1. 0 REM PUZZLE SOLUTION BY PAUL GLOBMAN
  2. 1 REM             COPYRIGHT (C) 1988
  3. 2 CLS:DIMLC(20):C=1:FORI=0TO9:READSQ(I),TY(I):NEXT:FORI=1TO4:READXX(I),YY(I):NEXT:FORI=0TO9:GOSUB45:NEXT:I=9
  4. 3 RV$=CHR$(27)+"p":GOSUB45:GOSUB24
  5. 4 READA:IF(A=>48)AND(A<=57)THENRV$="":GOSUB46:I=VAL(CHR$(A)):GOTO3
  6. 5 IFA=28THEN13
  7. 6 IFA=29THEN10
  8. 7 IFA=30THEN17
  9. 8 IFA=31THEN20
  10. 9 BEEP:GOTO4
  11. 10 IFSQ(I)MOD5=0THEN9
  12. 11 SF=0:GOSUB28:IFSF=0THEN9
  13. 12 GOSUB44:SQ(I)=SQ(I)-1:GOTO3
  14. 13 IFSQ(I)MOD5=4THEN9
  15. 14 IFTY(I)MOD2=0AND(SQ(I)+1)MOD5=4THEN9
  16. 15 SF=0:GOSUB36:IFSF=0THEN9
  17. 16 GOSUB44:SQ(I)=SQ(I)+1:GOTO3
  18. 17 IFSQ(I)<5THEN9
  19. 18 SF=0:GOSUB32:IFSF=0THEN9
  20. 19 GOSUB44:SQ(I)=SQ(I)-5:GOTO3
  21. 20 IFSQ(I)>14THEN9
  22. 21 IFTY(I)>2THENIF(SQ(I)+5)>14THEN9
  23. 22 SF=0:GOSUB40:IFSF=0THEN9
  24. 23 GOSUB44:SQ(I)=SQ(I)+5:GOTO3
  25. 24 FORJ=0TO19:LC(J)=0:NEXT:FORJ=0TO9:LC(SQ(J))=1:IFTY(J)MOD2=0THENLC(SQ(J)+1)=1
  26. 25 IFTY(J)>2THENLC(SQ(J)+5)=1
  27. 26 IFTY(J)=4THENLC(SQ(J)+6)=1
  28. 27 NEXT:RETURN
  29. 28 IFLC(SQ(I)-1)=1THENRETURN
  30. 29 IFTY(I)<=2THENSF=1:RETURN
  31. 30 IFLC(SQ(I)+4)=0THENSF=1
  32. 31 RETURN
  33. 32 IFLC(SQ(I)-5)=1THENRETURN
  34. 33 IFTY(I)MOD2=1THENSF=1:RETURN
  35. 34 IFLC(SQ(I)-4)=0THENSF=1
  36. 35 RETURN
  37. 36 IFLC(SQ(I)+1+(TY(I)+1)MOD2)=1THENRETURN
  38. 37 IFTY(I)<3THENSF=1:RETURN
  39. 38 IFLC(SQ(I)+TY(I)+3)=0THENSF=1
  40. 39 RETURN
  41. 40 IFLC(SQ(I)+((TY(I)<3)+2)*5)=1THENRETURN
  42. 41 IFTY(I)MOD2=1THENSF=1:RETURN
  43. 42 IFLC(SQ(I)+1+((TY(I)<3)+2)*5)=0THENSF=1
  44. 43 RETURN
  45. 44 C=0
  46. 45 X=SQ(I)MOD5:Y=INT(SQ(I)/5):LINE(X*48,Y*32)-((X*48+XX(TY(I))),Y*32+YY(TY(I))),C,B
  47. 46 PRINT@41+Y*160+X*8,RV$CHR$(I+48)CHR$(27)"q";:IFC=0THENPRINTCHR$(8)+" 
  48. 47 C=1:RETURN:DATA 5,4,15,2,17,2,19,1,14,1:DATA 9,1,4,1,7,3,2,2,0,2:DATA 46,30,94,30,46,62,94,62
  49. 48 DATA 52,29,51,30,50,28,55,31,56,31,54,29,53,30,56,28,55,30,30,52,29,31,51,29,29,56,31,54,31,28,55,28
  50. 49 DATA 51,30,30,52,30,30,56,29,50,29,54,31,31,53,31,31,55,28,52,28,30,56,30,50,30,49,28,28,48,31,57,31,51,29,29,52,29
  51. 50 DATA 29,56,30,57,28,28,48,30,49,29,29,54,29,29,53,31,29,55,31,31,57,28,56,28,52,28,31,51,28,28,48,30,49,30,54
  52. 51 DATA 29,29,53,29,29,50,31,49,28,28,54,30,53,30,50,29,29,49,31,52,31,28,51,31,31,48,28,54,30,30,53,29,30,51
  53. 52 DATA 29,29,48,31,56,29,29,57,30,52,30,28,48,28,51,28,30,50,30,49,29,29,48,31,51,28,28,53,28,54,31,56,29,57,29,52
  54. 53 DATA 30,51,28,48,30,49,28,28,50,31,54,31,53,31,56,31,57,29,29,48,30,53,28,28,54,28,28,50,30,49,29,29,53,31,29,55,29
  55. 54 DATA 51,31,31,52,31,31,48,28,54,30,30,53,30,30,55,29,52,29,31,48,31
  56.