DRUŽBA — MIHROELEKTRONIKA — RAČUNALNIŠTVO

PROGRAMSKA
PRILOGA

Tokrat smo za vas pripravili
program Bioritem. Vzeli smo ga iz
revije Sperimentare: Computer
5/1984 in nato malo. predelali.
Pisan je v basicu in je primeren za
Spectrum.

— Opis programa:

Program temelji na predpo-

stavki, da je celotna človekova ak-
tiynost razdeljena na čustveno,
miselno in fizično: aktivnost.
Vsaka od teh aktivnosti se od
dneva do dneva spreminja, in
sicer opisuje neko sinusno krivu-
ljo. Frekvence sinusnih krivulj za
tetri aktivnosti so različne. Krivu-
lja intelektualnega cikla se od za-
četnega stanja povrne spet v tako
stanje čez 33 dni, krivulja čustve-
nega cikla čez 28 dni, krivulja fi-
- zičnega cikla pa čez 23 dni.

Program od tebe zahteva, da.

vpišeš datum rojstva in današnji
datum, nato pa si lahko ogledaš
poljubno želeno krivuljo. Krivulje
so narisane od današnjega dne pa
za naslednjih 33 dni naprej. Ko si
-ogledaš krivulje, ' program za
vsako krivuljo izpiše še naslednje
podatke:

— čez koliko dni boš pri dolo-
čeni aktivnosti v najboljši forsni

— čez koliko dni boš pri dolo-
čeni aktivnosti v najslabši formi

— čez koliko dni določena kri-
vulja pade pod ničlo oz. se zač-
nejo kritični dnevi.

Nakoncu program še izpiše, ko:
liko dni si star.

Opis progrkma po vrstah:
: začetni izpis na ekran
zoo. vpis datuma rojstva in
današnjega datuma

120—270: izračun števila dni od
datuma rojstva pa do danes

120—150: preračuna lata v
dneve

170—185: preračuna mesece v
dneve

200—270: prišteje še dneve, ki
ostanejo

782—798: izpsi ciklov in skok
— na izpis želene krivulje

800—880: izpis okvira za biori-
tem .
| 982—1032: naris intelektualne
krivulje
» 1037—1092: naris emocionalne
krivulje
- 1105—1180: naris fizične krivu-
lje NSA
Nato sledi izračun minimuma,
maksimuma in ničle krivulj

-.2010—2085: intelektualne kri-
vulje
|. 2202—2340: emocionalne kri-
vulje

2407 —2550: fizične krivulje

2105—2340: rutina, ki ža vsako
krivuljo izpiše dneve minimuma,
maksimuma in začetek kritičnih
dni
; 9998: podatki o številu dni po-
sameznih mesecev

Pri vtipkovanju programa ti
želim. veliko potrpežljivosti, pri
> izvajanju programa pa veliko za-

bave. Priporočam pa ti, da datume
vtipkaš pravilno, kajti program
nima kontrole o pravilnosti datu- '

mov, kljub temu pa se izvajanje
programa prekine, če je kakšen
datum le preveč neumen.

SILVA PREDALIČ

1 REM BIORITEM.BAS

10 BEEP .9,PI: BEEP .5,SIN PI
: BORDER 5: PAPER 7: INK 0:'CLS
: DIM Y$(32): FOR J<1 TO 9: PRIN .
T PAPER 5;Y$: NEXT J: PRINT: PRINT

: PRINT: FOR J<12 TO 21: PRINT
PAPER 5-Y$: NEXT J

'20 PRINT AT 108: BRIGHT 1;
BIORITEM"

30 DIM Z$(32) '

40 FOR J-1 TO 20

50 FOR A-1 TO7

60 PAPER 8—a: INK A

70 PRINT OVER'1:AT 9,0:Z$:AT
10.0;Z$:AT 11,0;Z$ '

80 NEXT A: PAUSE 3: NEXT J

85 LET S-—12

86 FOR J-1 TO 6: BEEP..1,S:B
EEP .1,S4: BEEP .1 ,S43: LET S-S
412: NEXT J

87 BORDER 1: PAPER 1: INK 7: C
LS

88 LET DAY-0
89 PRINT AT 10,8; PAPER 3;"DAT

UM ROJSTVA"

90 INPUT "DAN? ";DAN
91 INPUT "MESEC? "MESEC
92 INPUT "LETO? "LETO
93 CLS : PRINT AT 10,10; PAPER
2:'DANAŠNJI DATUM"
94 INPUT "DAN? "-G
95 INPUT "MESEC? ";M
96 INPUT "LETO? ":L
120 FOR J<LETO TOL
125 IF J<L THEN GOTO 160
130 IF /4—INT'(J4) <0 THEN LET
DAY —DAY--1
140 LET DAY DAY 4365
150 NEXT J
170 FOR J<1 TO MESEC
175 IF J<2 THEN GO SUB 7500
180 READ D
182 LET DAY <DAY—D
185 NEXT J
200 LET DAY- DAY--(D—DAN)
205 RESTORE
220 FORJ-1 TO M
225 IF J-2 THEN GO SUB 7000
230 READ D
240 LET DAY-DAY-£D
250 NEXT J
270 LET DAY <DAY—(D—G)
782 BORDER 7: INK 7: PAPER oc
LS
783 LET DAYS-DAY
784 BRIGHT 0: PRINTAT 5,0: PA
PER 3;"KATERI CIKEL HOCES VIDETI
oš

',785 PRINT PAPER O:AT 7,0;"1.IN

TELIGENCNEGA'";AT 9,0;"2.EMOCION
ALNEGA'",AT 11,0"3.FIZICNEGA"
786 INPUT A$
788 LET GOTO<0
790 IF A$—'i'" THEN LET GOTO-980
792 IF A$-'2' THEN LET GOTO-1035
794 IF A$—"3" THEN LET GOTO 1100
796 IF GOTO-0 THEN GO TO 50
798 CLS
800 INK 2: PLOT 0,80: DRAW 255,0
802 INK 7 g
830 FOR A-0 TO 255 STEP 7.727
840 PLOT A,175: DRAW 0,—8
850 NEXTA ;
860 FOR A-0 TO 255 STEP 38.635
870 PLOT A—3.863,166: DRAW 0,—6
880 NEXTA
890 GO TO GOTO

v

980 REM

982 PRINTIIO;AT 1,7; PAPER 3;'1
NTELEKTUALNI CIKEL"

985 INK 7
1000 FOR A-O TO 3.3 STEP .1
1020 PLOT A'77,SIN(360"DAYS/33"
Pi/180)'70--80
1025 LET DAYS-DAYS1
1030 NEXTA
1031 PAUSE 1000
1032 INPUT "ZA NADALJEVANJE PRIT
ISNI ENTER'";A$: CLS : GO TO 783
1035 PRINT IlO; AT 1,8; PAPER 3,"C
USTVENI CIKEL"
1050 INK 7
1060 FOR A<0 TO 3.3 STEP .1
1080 PLOT A'77,SIN (360'DAYS/28"
P/180)'70--80
1085 LET DAYS-DAYS-
1090 NEXT A
1091 PAUSE 1000
1092 INPUT "ZA NADALJEVANJE PRIT
ISNI ENTER';A$: CLS : GO TO 783
1100 REM '

.1105 PRINT IIO;AT 1, to; PAPER 3;"

FIZICNI CIKEL"

1120 INK 7 ' s

1130 FOR A-0 TO 3.3 STEP .1
1150 PLOT A'77,SIN (360"DAYS/23"
PI/180)"70--80

1160 LET DAYS- DA!

1170 NEXTA

1175 PAUSE 1000

1180 INPUT "ZA NADALJEVANJE PRIT
ISNI ENTER';A$: CLS

2015 PRINT AT 10,6;RAZMISLJAM..

2020 LET DAYS-DAY: LET MAX-0: LE

T MINO: LET MID-1

2030 FOR j<0 TO 32

2040 LET RIC SIN (2'DAYS/33'Pi)

2050 IF RIC>MAX THEN LET MAX -RIC
z LET GIOMAX -J

2060 IF RIC<MIN THEN LET MIN< RIC
: LET GIOMIN-J

2071 LET DAYS-DAYS:1

2072 NEXT J

2075 LET DAYS-DAY

2076 LET NEGO : LET NEG1-0

2077 FOR J-0 TO 16

2079 LET RIC-SIN(2'DAYS33'Pi)

2080 IF (J—0) AND (RIC<0) THEN'L

ET NEG-1

2081 IF (J< 1 AND (RIC<0) THEN

LET NEG1-

2082 IF ABS. RIC<MID THEN LET MID

—ABS RIC: LET GIOMID-J

2083 LET DAYS-DAYSH1

2085 NEXT J

2087 IF GIOMID — —O AND NEG1 -0THEN

LET GIOMID-16

2100 CLS : PRINTAT 0,7; PAPER 3;
"INTELEKTUALNI CIKEL": GO SUB 2

105: GO TO 2200

2105 FOR J<50 TO 10 STEP —1: BEE

P .025,J: NEXT J: PRINT

2107 IF GIOMAX —0 THEN PRINT PAPE

R 2 "DANES JE TVOJA FORMA NA

VISKU": GO TO 2115

2110 PRINT "TVOJA FORMA BO NA

VISKU CEZ " " ""GIOMAX;" DAN/DN

r

2115 IF GIOMID<0 AND NEG1-1

THEN PRINT PAPER 2 "DANES SE '"

ZACENJAJO TVOJI" " :

KRITICNI DNEVI ": GO TO 2125

2120 IF NEG THEN PRINT "KRITI

CNO OBDOBJE SE ZACNE CEZ ';'."

- /GIOMID;" DAN / DNI"

2122 IF NEG-1 THEN PRINT, "TE DN
| IMAS KRITICNO OBDOBJE" "KONCA
SE CEZ ';GIOMID;" DAN/DNI"

2125 IF GIOMIN 0 THEN PRINT PAP
ER 2 "DANES Si NA'PSU": GO TO 2140
2130 PRINT ""NAJBOLJ NA PSU BOS
CEZ "'" 'GIOMIN;" DANDNI"

2140 RETURN i

2200 REM EMOCIONALNI CIKEL

2202 PRINT IrO;at 0,9;"PRITISNI T .
IPKO!«: PAUSE 0

2203 CLS

ee

2204 PRINT-AT 10,6;"RAZMISLJAM ..

| 2210 LET DAYS-DAY: LET MAX-O:

LET MIN-O0: LET MID-1 .

2220 FOR J-0 TO 27

2230 LET RIC-SIN(2"DAYS/28"PI)
2240 IF RIC>MAX THEN LET MAX -RI
C: LET GIOMAX -J

2250 IF RIC<MIN THEN LET MIN-Ri
C: LET GIOMIN-J

2260 LET DAYS-DAYS1

2270 NEXT J

2280 LET DAYS<DAY J

2285 LET NEG-0: LET NEG1-0
2290 FOR j<0 TO 14

2300 LET RIC-SIN (2"DAYS/28"PI)
2305 IF J<0 AND RIC<0 THEN LET
NEG-1

2307 IF J<1 AND RIC<0 THEN LET
NEG1-1

2310 IF ABS RIC<MID THEN LET MID
—ABS RIC: LET GIOMID-J

2320 LET DAYS-DAYSH1

2330 NEXT J ih

2332 IF GIOMID-0 AND NEG1-0 THE
NLET GIOMID-14

2335 CLS

2337 PRINT AT 0, 8; PAPER 3;"EMOC
IONALNI CIKEL"

2340 GO SUB 2105 ' >

2400 REM FIZICNI CIKEL

2405 PRINT IlO;at 0,9"PRITISNI T
IPKO": PAUSE 0: CLS

2407 PRINT AT 10,6;"RAZMISLJAM..

2420 LET DAYS -DAY: LET MAX-0:.

— LETMIN-0: LET MID-1: LET NEG-0:

LET NEG1<0
2430 FOR J<0 TO 22

2440 LET RIC<SIN (2"DAYS/23"PI)
2450 IF RIC>MAX THEN LET MAX<RIC
:LET GIOMAX-J

2460 IF RIC<MIN THEN LET MIN<RIC
: LET GIOMIN-J

2470 LET DAYS<DAYS1

2480 LET DAYS<DAY

2500 FOR J<0 TO: z

2510 LET RIC-SIN (2"DAYS/23"PI)
2515 IF J-0 AND RIC<0 THEN LET
NEG-1

2520 IF.ABS RIC<MID THEN LET
MID-—ABS RIC: LET GIOMID-J

2525 IF J-1 AND RIC<0 THEN LET
NEG1-1

2530 LET DAYS- DAYSt1

2540 NEXT J

2542 IF GIOMID-0 AND NEG1-0
THEN LET GIOMID-11

2546 PRINT AT 0,10; PAPER 3;' zd
ICNI CIKEL"

2550 'GO SUB 2105

2600 PRINT AT 15,4;' "DANES SI STA
R "DAY;" DNI!"

2700 PRINT AT 18,10". CESTITAMO!"
3000 PRINT IIO;AT 1,0; PAPER O;l
NK 7;"PRITISNI TIPKO ZA PONOVEN
ZACETEK!"::PAUSE 0: RUN 87

7000 IF L/a— INT L4 THEN LET DAY
DAY?

7017 RETURN

"7500 IF LETO/4-INT LETO/4 THEN

LET DAY <DAY—1

7510 RETURN ;

9996 DATA 31,28,31,30,31,30,31.3
1,30,31,30,31

9999 REM KONEC

mladina, stran 47