40 REM *** PR06RAM 4: JEWELED CROSS›50 GRAPHICS 0:POSITION 8,2:? "THE JEWELED CROSS":? :? ›55 ? "WHEN PATTERN IS FINISHED--":? ›60 ? "TURN ROOM LIGHTS DOWN TO GET"›70 ? "THE EFFECT OF A STAINED GLASS"›80 ? "WINDOW.":? ›90 ? "HIT H KEY TO CHANGE HUE AND/OR"›95 ? "ADJUST TV TINT CONTROL.":? ›100 ? "DIAMETER OF SQUARE?"›110 ? "(MAXIMUM OF 4*47--TRY 4*46)"›120 TRAP 150:? "4*";:INPUT DIAM:DIAM=4*DIAM›130 IF DIAM<1 OR DIAM>188 THEN 150›140 TRAP 40000:GOTO 300›150 PRINT CHR$(253):GOTO 50›300 REM *** DEFINE CORNERS OF SQUARE›310 XLO=INT(159.5-DIAM/2):XHI=XLO+DIAM›320 YLO=INT(95.5-DIAM/2):YHI=YLO+DIAM›349 REM ›350 REM *** DRAW BACKGROUND ***›360 GRAPHICS 24:SETCOLOR 2,0,0:SETCOLOR 1,0,14:COLOR 1›410 FOR X=XLO TO XHI›420 PLOT X,YLO:DRAWTO X,YHI:NEXT X›449 REM ›450 REM *** DRAW CROSS ***›460 COLOR 0:FOR K=0 TO DIAM STEP 4›470 PLOT XLO,YLO:DRAWTO XHI,YHI-K›480 PLOT XLO,YLO:DRAWTO XHI-K,YHI›490 PLOT XHI,YLO:DRAWTO XLO,YHI-K›500 PLOT XHI,YLO:DRAWTO XLO+K,YHI›510 PLOT XHI,YHI:DRAWTO XLO,YLO+K›520 PLOT XHI,YHI:DRAWTO XLO+K,YLO›530 PLOT XLO,YHI:DRAWTO XHI,YLO+K›540 PLOT XLO,YHI:DRAWTO XHI-K,YLO›550 NEXT K›599 REM ›600 REM *** CHANGE HUE:HIT H KEY ***›610 OPEN #1,4,0,"K:"›620 GET #1,X:IF X=72 THEN HUE=HUE+1›630 IF HUE=16 THEN HUE=0›640 SETCOLOR 2,HUE,0:GOTO 620›1000 GOTO 1000›