home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22a.dsk / OCTOBER.1984 / SHADES.TEXTURES.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  34 lines
  1. 10  REM  ************************
  2. 20  REM  *    SHADES.TEXTURES   *
  3. 30  REM  *    TED HUNTINGTON    *
  4. 40  REM  *  COPYRIGHT (C) 1984  *
  5. 50  REM  *  BY MICROSPARC, INC  *
  6. 60  REM  *  CONCORD, MA. 01742  *
  7. 70  REM  ************************
  8. 80  ONERR  GOTO 120
  9. 90  HOME : VTAB 5: HTAB 12: INVERSE : PRINT " SHADES AND TEXTURES ": NORMAL : PRINT : HTAB 13: PRINT "BY TED HUNTINGTON": PRINT : PRINT : HTAB 8: PRINT "<PRESS ANY KEY TO BEGIN>": VTAB 22: PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **"
  10. 95  VTAB 22: PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **"
  11. 100  VTAB 15: HTAB 20: GET AA$
  12. 110  HGR 
  13. 120  HOME : VTAB 21: PRINT "AUTO OR MANUAL OR QUIT (A/M/Q):";: GET AA$: IF AA$ < >"A"  AND AA$ < >"M"  AND AA$ < >"Q"  THEN 120
  14. 130  PRINT : IF AA$ = "A"  THEN 240
  15. 140  IF AA$ = "Q"  THEN  TEXT : HOME : END 
  16. 150 NY = 0
  17. 160  GOTO 190
  18. 170  FOR X = 1 TO 140  STEP 3: HCOLOR= C: HPLOT 0,X TO X,0: HCOLOR= D: HPLOT 3,X TO X,0: NEXT 
  19. 180  IF NY = 1  THEN  RETURN 
  20. 190  HOME : VTAB 21: CALL  -958: PRINT "FIRST COLOR:";: GET C$:C =  VAL(C$): PRINT C: IF C <0  OR C >7  THEN 190
  21. 200  IF C$ =  CHR$(27)  THEN 120
  22. 210  VTAB 22: CALL  -958: PRINT "SECOND COLOR:";: GET D$:D =  VAL(D$): PRINT D: IF D <0  OR D >7  THEN 210
  23. 220  IF D$ =  CHR$(27)  THEN 120
  24. 230  GOTO 170
  25. 240 NY = 1: FOR E = 0 TO 7: FOR F = 0 TO 7
  26. 250  HOME : VTAB 22: PRINT "COLORS-";C;" AND ";D;""
  27. 260  GOSUB 170
  28. 270 C = C +1
  29. 280  GET AA$
  30. 290  IF AA$ =  CHR$(27)  THEN 120
  31. 300  NEXT F
  32. 310 C = 0:D = D +1
  33. 320  NEXT E
  34. 330  GOTO 20