home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib41b.dsk
/
SCREEN.DELIGHTS.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
773b
|
29 lines
10 HOME : HGR
20 HCOLOR= 3
30 X1% = RND(1) *279 +1
40 Y1% = RND(1) *191 +1
50 Y3% = RND(1) *191 +1
60 X3% = RND(1) *279 +1
70 IF Q = 0 THEN 130
80 ST = 1:S = 1
90 X% = RND(1) *279 +1
100 X2% = RND(1) *279 +1
110 Y% = RND(1) *191 +1
120 Y2% = RND(1) *191 +1
130 HPLOT X%,Y% TO X1%,Y1%
140 HPLOT X2%,Y2% TO X3%,Y3%
150 FOR HC = 0 TO 1
160 HCOLOR= 3 *(HC = 0)
170 FOR T = Q TO 1 *(Q = 0) STEP 0.05 -.1 *(Q = 1)
180 S = T
190 X = X% +(T *(X1% -X%)):Y = Y% +(T *(Y1% -Y%))
200 X1 = X2% +(S *(X3% -X2%)):Y1 = Y2% +(S *(Y3% -Y2%))
210 HPLOT X,Y TO X1,Y1
220 IF PEEK( -16384) >127 THEN TEXT : HOME : END
230 NEXT T,HC
240 HCOLOR= 0
250 HPLOT X2%,Y2% TO X3%,Y3%
260 HPLOT X%,Y% TO X1%,Y1%
270 Q = 1 *(Q = 0)
280 IF Q = 0 THEN 30
290 IF Q = 1 THEN 90