home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib22a.dsk
/
OCTOBER.1984
/
SHADES.TEXTURES.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
34 lines
10 REM ************************
20 REM * SHADES.TEXTURES *
30 REM * TED HUNTINGTON *
40 REM * COPYRIGHT (C) 1984 *
50 REM * BY MICROSPARC, INC *
60 REM * CONCORD, MA. 01742 *
70 REM ************************
80 ONERR GOTO 120
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. **"
95 VTAB 22: PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **"
100 VTAB 15: HTAB 20: GET AA$
110 HGR
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
130 PRINT : IF AA$ = "A" THEN 240
140 IF AA$ = "Q" THEN TEXT : HOME : END
150 NY = 0
160 GOTO 190
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
180 IF NY = 1 THEN RETURN
190 HOME : VTAB 21: CALL -958: PRINT "FIRST COLOR:";: GET C$:C = VAL(C$): PRINT C: IF C <0 OR C >7 THEN 190
200 IF C$ = CHR$(27) THEN 120
210 VTAB 22: CALL -958: PRINT "SECOND COLOR:";: GET D$:D = VAL(D$): PRINT D: IF D <0 OR D >7 THEN 210
220 IF D$ = CHR$(27) THEN 120
230 GOTO 170
240 NY = 1: FOR E = 0 TO 7: FOR F = 0 TO 7
250 HOME : VTAB 22: PRINT "COLORS-";C;" AND ";D;""
260 GOSUB 170
270 C = C +1
280 GET AA$
290 IF AA$ = CHR$(27) THEN 120
300 NEXT F
310 C = 0:D = D +1
320 NEXT E
330 GOTO 20