100 REM SAVE KLOTSKUG 110 REM ++++++++++++++++++++++++++++++ 120 REM +++ SKUGGOR P] BELYST KLOT +++ 130 REM ++++++++++++++++++++++++++++++ 140 REM +++ VERSION 1.0 811122 +++ 150 REM +++ KONSTR. ARNE SP]NGTORP +++ 160 REM +++ <1218> STUREGATAN 9,11+++ 170 REM +++ 632 30 E-TUNA +++ 180 REM +++ 016/42 45 04 +++ 190 REM ++++++++++++++++++++++++++++++ 200 REM +++ INITIERING +++++++++++++++ 210 REM ++++++++++++++++++++++++++++++ 220 DATA M,*,+,-,.," "," " 230 DIM T$(6%)=0% 240 FOR I%=0% TO 6% : READ T$(I%) : NEXT I% 250 REM ++++++++++++++++++++++++++++++ 260 REM +++ BESKRIVNING ++++++++++++++ 270 REM ++++++++++++++++++++++++++++++ 280 ; CHR$(12%) 290 ; "PROGRAMMET RITAR ETT BELYST" 300 ; "KLOT MED SKUGGNINGAR , SOM" 310 ; "[R BEROENDE AV LJUSK[LLANS" 320 ; "PLACERING: 1. I SIDLED" 330 ; " 2. I H\JDLED" 340 ; " 3. FRAMF\R/BAKOM" 350 REM ++++++++++++++++++++++++++++++ 360 REM +++ INPUT- RIKTNING/RADIE ++++ 370 REM ++++++++++++++++++++++++++++++ 380 ; CUR(8%,0%);"ANGE RIKTNINGAR OCH KLOTRADIE" 390 ; CUR(10%,0%);"RIKTNING I SIDLED: V[NSTER-H\GER" 400 ; CUR(11%,0%);" (EX.VIS -7) 10=> X >=-10 "; : INPUT I$ 410 ONERRORGOTO 400 : X0=VAL(I$) : IF ABS(X0)>10 THEN 400 420 ; CUR(13%,0%);"RIKTNING I H\JDLED: OVANF\R-UNDER" 430 ; CUR(14%,0%);" (EX.VIS 7) 10=> Y >=-10 "; : INPUT I$ 440 ONERRORGOTO 430 : Y0=VAL(I$) : IF ABS(Y0)>10 THEN 430 450 ; CUR(16%,0%);"RIKTNING FRAMF\R-BAKOM" 460 ; CUR(17%,0%);" (EX.VIS 7) 10=> Y >=-10 "; : INPUT I$ 470 ONERRORGOTO 460 : Z0=VAL(I$) : IF ABS(Z0)>10 THEN 460 480 ; CUR(19%,0%);"KLOTRADIE (EX. 15) 15=> R >=4 "; : INPUT I$ 490 ONERRORGOTO 480 : R=VAL(I$) : IF (R>15 OR R<4) THEN 480 500 REM ++++++++++++++++++++++++++++++ 510 REM +++ KLOT- OCH SKUGGRITNING +++ 520 REM ++++++++++++++++++++++++++++++ 530 ; CHR$(12%); : ; STRING$(1000,33%); 540 B=3/(R*R) 550 FOR I=0 TO 20 560 Y=17.5-(1.6*I) 570 FOR J=0 TO 40 580 X=20-J 590 Z2=R*R-X*X-Y*Y 600 IF Z2<0 THEN 660 610 Z=SQR(Z2) 620 D2=(X-X0)*(X-X0)+(Y-Y0)*(Y-Y0)+(Z-Z0)*(Z-Z0) 630 M=6-(B*D2) 640 IF M>0 THEN K=M ELSE K=0 650 ; CUR(I,J)T$(K) 660 NEXT J : NEXT I 670 REM ++++++++++++++++++++++++++++++ 680 REM +++ FLERA KLOT/AVSLUTNING ++++ 690 REM ++++++++++++++++++++++++++++++ 700 ; CUR(23%,0%);"FLERA KLOT? (J/N) "; : GET G$ 710 ON ((G$="N")+2%) GOTO 720,280 720 ; CUR(23%,0%);STRING$(39%,32%); 730 ; CUR(21%,0%); : END 740 REM ++++++++++++++++++++++++++++++ 750 REM ++++++++ PROGRAMSLUT +++++++++ 760 REM ++++++++++++++++++++++++++++++