home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Basic / RNDNMGN.ZIP / GETSCR.BAS next >
Encoding:
BASIC Source File  |  1992-01-25  |  1.2 KB  |  72 lines
  1. ROW% = CSRLIN
  2. COL% = POS(0)
  3. CLR% = SCREEN(ROW%, COL%, 1)
  4. DIM J(16)
  5. LOOPF:
  6.   FOR X = 1 TO 16
  7.     READ J(X)
  8.       A% = J(X)
  9.       F% = A%
  10.     GOSUB MULTF:
  11.   NEXT X
  12.  
  13. GOSUB FNDBG:
  14.  
  15. LOCATE ROW%, COL%
  16. COLOR F%, B%
  17. PRINT "Hey, look at me; I'm in the current color !"
  18. END
  19.  
  20. DATA 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
  21. DATA 0,16,32,48,64,80,96,112
  22. MULTF:
  23.   FOR Y = 1 TO 8
  24.     IF A% <> CLR% THEN
  25.       A% = A% + 16
  26.     END IF
  27.     IF A% = CLR% THEN
  28.       Y = 8
  29.       X = 16
  30.     END IF
  31.   NEXT Y
  32. RETURN
  33.  
  34. FNDBG:
  35. DIM K(24)
  36. LOOPB:
  37.   FOR Z = 17 TO 24
  38.     READ K(Z)
  39.     C% = K(Z)
  40.     GOSUB MULTB:
  41.   NEXT Z
  42.  
  43. MULTB:
  44.   FOR W = 1 TO 16
  45.     IF C% <> CLR% THEN
  46.       C% = C% + 1
  47.     END IF
  48.     IF C% = CLR% THEN
  49.       W = 16
  50.       Z = 24
  51.     END IF
  52.   NEXT W
  53.   IF C% >= 0 AND C% <= 15 THEN
  54.     B% = 0
  55.   ELSEIF C% >= 16 AND C% <= 31 THEN
  56.     B% = 1
  57.   ELSEIF C% >= 32 AND C% <= 47 THEN
  58.     B% = 2
  59.   ELSEIF C% >= 48 AND C% <= 63 THEN
  60.     B% = 3
  61.   ELSEIF C% >= 64 AND C% <= 79 THEN
  62.     B% = 4
  63.   ELSEIF C% >= 80 AND C% <= 95 THEN
  64.     B% = 5
  65.   ELSEIF C% >= 96 AND C% <= 111 THEN
  66.     B% = 6
  67.   ELSEIF C% >= 112 AND C% <= 127 THEN
  68.     B% = 7
  69.   END IF
  70. RETURN
  71.  
  72.