home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38a.dsk / JANUARY.1990:TEN.TOP.TIPS / SHADES.TEXTURES.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  33 lines
  1. 10  REM  ************************
  2. 20  REM  *    SHADES.TEXTURES   *
  3. 30  REM  *    TED HUNTINGTON    *
  4. 40  REM  *  COPYRIGHT  1984 by  *
  5. 50  REM  * MindCraft Publ. Corp.*
  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 MINDCRAFT PUBL. CORP."
  10. 100  VTAB 15: HTAB 20: GET AA$
  11. 110  HGR 
  12. 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
  13. 130  PRINT : IF AA$ = "A"  THEN 240
  14. 140  IF AA$ = "Q"  THEN  TEXT : HOME : END 
  15. 150 NY = 0
  16. 160  GOTO 190
  17. 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 
  18. 180  IF NY = 1  THEN  RETURN 
  19. 190  HOME : VTAB 21: CALL  -958: PRINT "FIRST COLOR:";: GET C$:C =  VAL(C$): PRINT C: IF C <0  OR C >7  THEN 190
  20. 200  IF C$ =  CHR$(27)  THEN 120
  21. 210  VTAB 22: CALL  -958: PRINT "SECOND COLOR:";: GET D$:D =  VAL(D$): PRINT D: IF D <0  OR D >7  THEN 210
  22. 220  IF D$ =  CHR$(27)  THEN 120
  23. 230  GOTO 170
  24. 240 NY = 1: FOR E = 0 TO 7: FOR F = 0 TO 7
  25. 250  HOME : VTAB 22: PRINT "COLORS-";C;" AND ";D;""
  26. 260  GOSUB 170
  27. 270 C = C +1
  28. 280  GET AA$
  29. 290  IF AA$ =  CHR$(27)  THEN 120
  30. 300  NEXT F
  31. 310 C = 0:D = D +1
  32. 320  NEXT E
  33. 330  GOTO 20