24 lines
586 B
QBasic
Executable File
24 lines
586 B
QBasic
Executable File
10 HGR : POKE -16302,0
|
|
15 GOSUB 200: REM background
|
|
20 D1 = 70:D2 = 77:D3 = 80
|
|
30 DEF FN FX(A) = COS(D) *Z
|
|
40 DEF FN FY(A) = SIN(D) *Z
|
|
50 FOR D = 0 TO 6.28 STEP 0.01
|
|
55 HCOLOR= 4
|
|
60 Z = 60: GOSUB 100
|
|
80 NEXT D
|
|
90 PRINT CHR$(4);"-jewel-draw2"
|
|
100 X = FN FX(1):Y = FN FY(1)
|
|
110 HPLOT 140,96 TO 140 -X,96 -Y
|
|
120 RETURN
|
|
200 HCOLOR= 6
|
|
210 FOR Y = 0 TO 191 STEP 4
|
|
220 FOR X = 0 TO 279 STEP 8
|
|
230 HPLOT X,Y TO X +3,Y
|
|
240 NEXT X,Y
|
|
250 FOR Y = 2 TO 191 STEP 4
|
|
260 FOR X = 3 TO 276 STEP 8
|
|
270 HPLOT X,Y TO X +3,Y
|
|
280 NEXT X,Y
|
|
290 RETURN
|