home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib23a.dsk / MARCH.1985 / NEEDLE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  35 lines
  1. 10  REM  **********************
  2. 20  REM  *        NEEDLE      *
  3. 30  REM  *   BY PAUL RAYMER   *
  4. 40  REM  * COPYRIGHT (C) 1985 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 160  TEXT : HOME : CLEAR 
  9. 170  DIM A$(22)
  10. 180 N$ = "NIBBLETHEAPPLEMAGAZINE"
  11. 190  HOME : VTAB 22: PRINT "** COPYRIGHT 1985 BY MICROSPARC, INC. **": VTAB 1
  12. 200  FOR V = 1 TO 22
  13. 210 A$(V) =  MID$ (N$,V,1)
  14. 220  FOR X = 2 TO 40
  15. 230 R =  INT(26 * RND(1)) +65
  16. 240 A$(V) = A$(V) + CHR$(R)
  17. 250  NEXT X
  18. 260  VTAB V: PRINT A$(V);
  19. 270  NEXT V
  20. 280  VTAB 23: HTAB 1: INPUT "WHAT NAME? ";A$: VTAB 23: HTAB 1: CALL  -868: INVERSE : PRINT A$: NORMAL 
  21. 290 A = 1
  22. 300  FOR X = 1 TO 22
  23. 310 A = 1
  24. 320  FOR Y = 1 TO 40
  25. 330  IF  MID$ (A$,A,1) =  MID$ (A$(X),Y,1)  THEN  VTAB X: HTAB Y: INVERSE : PRINT  MID$ (A$,A,1);: NORMAL :A = A +1: IF A > LEN(A$)  THEN  PRINT  CHR$(7):X = 22:Y = 40: NEXT : NEXT : GOTO 380
  26. 340  NEXT Y
  27. 350  VTAB X: HTAB 1: PRINT A$(X);
  28. 360  NEXT X
  29. 370  FOR X = 1 TO 22: VTAB X: INVERSE : PRINT  LEFT$(A$(X),1): NEXT X: NORMAL :FLAG = 1
  30. 380  FOR X = 1024 TO 2039
  31. 390  IF  PEEK(X) >90  THEN  POKE X,160
  32. 400  IF  PEEK(X) <90  THEN  POKE X, PEEK(X) +128
  33. 410  NEXT X
  34. 420  IF FLAG  THEN  VTAB 23: HTAB  LEN(A$) +2: PRINT "NOT FOUND...SORRY!"
  35. 430  SPEED= 255: VTAB 24: PRINT "PRESS A KEY TO RE-START";: GET K$:FLAG = 0: GOTO 190