home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / WORD-SEARCH (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.9 KB  |  50 lines
  1. 5 PRINT"[147]":PRINT"            WORD SEARCH":PRINT
  2. 6 INPUT"HOW MANY WORDS";W:PRINT:PRINT
  3. 10 DIMA$(30,20),R$(W):FORX=1TOW:PRINTX;:INPUT"ENTER WORD";R$(X)
  4. 15 IFLEN(R$(X))>10THENPRINT"LIMIT TO <10> CHARACTERS":X=X-1:PRINT
  5. 16 NEXT
  6. 20 FORT=1TOW:R$=R$(T)
  7. 30 S=LEN(R$):FORX=1TOS:S$(X)=MID$(R$,X,1):NEXT
  8. 40 R=INT(RND(1)*2)+1:IFR=1THEN70
  9. 50 E=0:FORX=STO1STEP-1:E=E+1:B$(E)=S$(X):NEXT:E=0
  10. 60 E=0:FORX=1TOS:E=E+1:S$(E)=B$(X):NEXT
  11. 70 A=INT(RND(1)*30)+1:B=INT(RND(1)*20)+1
  12. 80 R=INT(RND(1)*4)+1:ONRGOTO100,200,300,400
  13. 100 REM   RIGHT
  14. 110 IFS+A>30THEN70
  15. 120 FORX=ATOA+S-1:IFA$(X,B)<>""THEN70
  16. 130 NEXTX:E=0:FORX=ATOA+S-1:E=E+1:A$(X,B)=S$(E):NEXT:GOTO999
  17. 200 REM   DOWN
  18. 210 IFS+B>20THEN70
  19. 220 FORX=BTOB+S-1:IFA$(A,X)<>""THEN70
  20. 230 NEXTX:E=0:FORX=BTOB+S-1:E=E+1:A$(A,X)=S$(E):NEXT:GOTO999
  21. 300 REM   UP RIGHT
  22. 310 IFA+S>30THEN70
  23. 320 IFB-S<1THEN70
  24. 330 E=B+1:FORX=ATOA+S-1:E=E-1:IFA$(X,E)<>""THEN70
  25. 340 NEXTX:O=0:E=B+1:FORX=ATOA+S-1:E=E-1:O=O+1:A$(X,E)=S$(O):NEXT:GOTO999
  26. 400 REM   DOWN RIGHT
  27. 410 IFA+S>30THEN70
  28. 420 IFB+S>20THEN70
  29. 430 E=B-1:FORX=ATOA+S-1:E=E+1:IFA$(X,E)<>""THEN70
  30. 440 NEXTX:O=0:E=B-1:FORX=ATOA+S-1:E=E+1:O=O+1:A$(X,E)=S$(O):NEXT
  31. 999 NEXTT
  32. 1000 PRINT:PRINT:PRINT"FILLING EXTRA LETTERS"
  33. 1010 FORY=1TO20:FORX=1TO30
  34. 1020 IFA$(X,Y)=""THENR=INT(RND(1)*26)+65:A$(X,Y)=CHR$(R)
  35. 1030 NEXTX,Y
  36. 2000 OPEN1,4:CMD1
  37. 2005 PRINT"                        WORD SEARCH"
  38. 2006 PRINT"                    PROGRAM BY TIM RILEY"
  39. 2007 PRINT:PRINT
  40. 2010 FORY=1TO20:FORX=1TO30:PRINTA$(X,Y)" ";:NEXT:PRINT:NEXT:PRINT:PRINT
  41. 2070 S=-15:FORX=1TOW:R$="":S=S+15:IFS=60THENS=0:PRINT
  42. 2075 R$=MID$(STR$(S),2):IFLEN(R$)=1THENR$=R$+"0"
  43. 2080 R$=R$+R$(X):PRINTCHR$(16);R$;:NEXT
  44. 2090 PRINT#1,"":CLOSE1
  45. 3000 PRINT:PRINT:PRINT"PRESS <N>EW WORDS":PRINT"PRESS <S>AME WORDS"
  46. 3010 GETI$:IFI$=""THEN3010
  47. 3020 IFI$="N"THENRUN
  48. 3030 IFI$<>"S"THEN3000
  49. 3040 FORY=1TO20:FORX=1TO30:A$(X,Y)="":NEXTX,Y:GOTO20
  50.