home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Avalon 6
/
Avalon_06_1995_Avalon_Side_B.d64
/
biorythms
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
174 lines
1 print"[147]biorhythm
4 [143] version 1.0 #g1009
5 [153]"for":[151]53280,7:[151]53281,7
10 [143] biorhythm 2.5
20 [153]"load";[163]11);"biorhythm 1.0wait":[153]"do you want instructions (y/n)?";
30 pi[178][171]2[172][255]:r[178]7:d$[178]""
40 r$[178]"cmd":t$[178]"or":u$[178]"/":q$[178]"-":g$[178]"-"
90 [134]m%(13),m$(12)
100 [129]i[178]1[164]13:[135]m%(i):[130]
110 [129]i[178]1[164]12:[135]m$(i):[130]
120 [129]i[178]1[164]23:d$[178]d$[170]"":[130]
130 [129]i[178]1[164]39:e$[178]e$[170]" ":r$[178]r$[170]"":[130]
135 [129]i[178]1[164]39:e$[178]e$[170]"cmd":[130]
140 [129]i[178]1[164]37
150 t$[178]t$[170]"=":u$[178]u$[170]">":g$[178]g$[170]"(NULL)"
160 [130]
165 t$[178]t$[170]"^":u$[178]u$[170]"exp":g$[178]g$[170]"<"
170 [129]i[178]1[164]18:q$[178]q$[170]" (NULL)":[130]:q$[178]q$[170]" <"
176 [161]ww$:[139][200](ww$,1)[178]"y"[167]10000
178 [139][200](ww$,1)[179][177]"n"[167]176
200 [153]"loadpress return after each reply!":[153]
202 [153]"input name please? ";:[141] 63000
250 ww$[178][200](ww$,18):n$[178]ww$
260 [139]n$[178]""[167]n$[178]"anonymous"
290 [153]:[153]" please enter dates as 8 digit numbers "
291 [153]"in the format of ddmmyy "
292 [153]" e.g. august 1, 1945 would be 01081945 ":[153]:[153]
300 [153]" "
302 [153]" birthdate? ";:[141]63000
304 [139][195](ww$)[179][177]8[176][197](ww$)[179][178]0[167]300
306 [139] ([197]([200](ww$,2))[177]31)[176]([197]([202](ww$,3,2))[177]12)[167]300
308 [139] ([197]([200](ww$,2))[179][178]0)[176]([197]([202](ww$,3,2))[179][178]0)[167]300
310 db[178][197]([200](ww$,2)):mb[178][197]([202](ww$,3,2)):yb[178][197]([201](ww$,4))
320 mb[178][181](mb):db[178][181](db):yb[178][181](yb)
350 tb[178][181](db[170]365.25[172]yb[170]m%(mb)[170].01[172]mb[171].03)
400 [153]" "
402 [153]" start date? ";:[141]63000
404 [139][195](ww$)[179][177]8[176][197](ww$)[179][178]0[167]400
406 [139] ([197]([200](ww$,2))[177]31)[176]([197]([202](ww$,3,2))[177]12)[167]400
408 [139] ([197]([200](ww$,2))[179][178]0)[176]([197]([202](ww$,3,2))[179][178]0)[167]400
410 d[178][197]([200](ww$,2)):ms[178][197]([202](ww$,3,2)):ys[178][197]([201](ww$,4))
420 ms[178][181](ms):d[178][181](ds):ys[178][181](ys)
450 ts[178][181](ds[170]365.25[172]ys[170]m%(ms)[170].01[172]ms[171].03)
500 tt[178]ts[171]tb
510 ps[178]23[172](tt[173]23[171][181](tt[173]23))
520 es[178]28[172](tt[173]28[171][181](tt[173]28))
530 is[178]33[172](tt[173]33[171][181](tt[173]33))
900 [141]8000
1000 [129]k[178]0[164]38
1010 p[178]r[170]r[172][191]((ps[170]k)[172]pi[173]23)[170].5
1020 [153][200](d$,p[170]5);[200](r$,k[170]2);"clratnstop"
1030 [130]
2000 [129]k[178]0[164]38
2010 e[178]r[170]r[172][191]((es[170]k)[172]pi[173]28)[170].5
2020 [153][200](d$,e[170]5);[200](r$,k[170]2);"(NULL)stop"
2030 [130]
3000 [129]k[178]0[164]38
3010 i[178]r[170]r[172][191]((is[170]k)[172]pi[173]33)[170].5
3020 [153][200](d$,i[170]5);[200](r$,k[170]2);"*for"
3030 [130]
3040 [153]"'space'-con:'!'-exit:'n'-another:p-print"
5000 [161]a$:[139]a$[178]""[167]5000
5010 [129]i[178]1[164]150:[161]aa$:[130]
5015 [139] a$[178]"!" [167] 63998
5020 [139]a$[178]"n"[167]200
5025 [139]a$[178]"p"[167]9000
5050 ms[178]md:d[178]dd:ys[178]yd
5080 [137]450
8000 [153]"load"[163]10)" b i o r h y t h m wait"
8010 [153]"for ";n$"wait born "m$(mb);db;[201]([196](yb),4)
8100 [153]t$
8110 [129]i[178]1[164]r:[153]q$:[130]:[153]g$
8120 [129]i[178]1[164]r:[153]q$:[130]:[153]u$
8180 md[178]ms:dd[178]ds:yd[178]ys
8190 y[178]0:[129]i[178]0[164]38
8195 y[178]y[170]1
8200 [139]i[173]2[179][177][181](i[173]2)[167][153]"";:[137]8250
8205 a$[178][201]([196](dd),2)
8210 [139]dd[179]10[167][153]""[201](a$,1)"on";:[137]8220
8215 [153][200](a$,1)"cmd"[201](a$,1)"on";
8220 [139]dd[177]1[167]8250
8230 [139]y[179][178]32[167][153]"cmd"m$(md)yd"cmdcmdcmdcmdcmdcmdcmdcmdwait";
8250 dd[178]dd[170]1
8255 [139]dd[179][178](m%(md[170]1)[171]m%(md))[167]8290
8265 [139]md[179][177]2[167]8280
8270 [139]yd[173]4[179][177][181](yd[173]4)[167]8280
8275 [139]dd[179]30[167]8290
8280 dd[178]1:md[178]md[170]1:[139]md[177]12[167]md[178]1:yd[178]yd[170]1
8290 [130]
8500 [153]:[153]"physical= clratnforwait emotional=(NULL)forwait interlectual*for"
8600 c$[178]"up crit dwn"
8610 [153]"cmd";
8620 [129]i[178]1[164][195](c$)
8630 [153][202](c$,i,1)"cmd";
8640 [130]
8800 [142]
9000 [143] ** printer **
9005 [159]3,4:[157]3
9007 [153][163]20)
9010 [129]n[178]1024[164]2023
9020 v[178]([194](n))
9022 [139]v[178]93[167]v[178]98
9024 [139]v[178]91[167]v[178]98
9026 [139]v[178]107[167]v[178]171
9028 [139]v[178]115[167]v[178]179
9030 [139]v[178]114[167]v[178]178
9032 [139]v[178]113[167]v[178]177
9038 [139]v[179]26[167]v[178]v[170]64
9040 [139]g[177]39[167]g[178]0:[153][199](145):[153][163]20)
9050 g[178]g[170]1
9060 [153][199](v);
9070 [130]n
9080 [152]3:[160]3:[137]5000
10000 [153]"load"
10010 [153]" biorhythmwait displays a physical,"
10020 [153]"emotional, and intellectual pattern"
10030 [153]"that indicates your up and down days"
10040 [153]"for any period of time, in blocks of"
10050 [153]"39 days. biorhythmwait attempts to predict"
10060 [153]"good or bad days in the future, and"
10070 [153]"to tell good and bad days in the past."
10080 [153]" these predictions are based on"
10090 [153]"various studies to determine why"
10100 [153]"accidents occur. some people believe"
10110 [153]"that physical attributes follow fixed"
10120 [153]"periods. the periods & symbols, as they"
10130 [153]"appear on the graph, are shown below:"
10140 [153]" atn=physicalwait lenlenlenlenlenlenlenlen> 23wait days"
10150 [153]" (NULL)=emotionalwait lenlenlenlenlenlenlen> 28wait days"
10160 [153]" *=intellectualwait lenlenlenlen> 33wait days"
10170 [153]"";[163]5);"(press any key to continue)";
10180 [161] a$:[139] a$[178]"" [167] 10180
10185 [129]zz[178]1[164]150:[161]a$:[130]
10190 [153]"load these cycles are sine wave cycles"
10200 [153]"beginning at birth. the critical days"
10210 [153]"purportedly occur during transitions"
10220 [153]"between 'up' days and 'down' days."
10228 [153]"the biorhythm theory suggests"
10230 [153]"that during the critical days you"
10240 [153]"are more prone to errors, accidents,"
10250 [153]"and physical setbacks."
10260 [153]" 'critical' days are indicated when"
10270 [153]"the sine wave passes through the center"
10271 [153]"axis marked 'crit'. 'up' and 'down'"
10272 [153]"days are marked 'up' and 'dwn' on the"
10273 [153]"right side of the graph."
10280 [153]" when the appropriate prompt appears,"
10290 [153]"type in your name, birthday, and"
10300 [153]"desired starting date, each followed"
10310 [153]"by the return key. to see the next"
10320 [153]"39 day block, press the space key"
10330 [153]"";[163]5);"(press any key to continue)";
10340 [161] a$:[139] a$[178]"" [167] 10340
10345 [129]zz[178]1[164]150:[161]a$:[130]
10350 [137] 200
50000 [131] 0,31,59,90,120,151,181,212,243,273,304,334,365
50010 [131] jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec
63000 ww$[178]"":[143] general input 1.3
63020 [153]"spc(cmd";:[129]vv[178]1[164]50:[161]qq$:[139]qq$[179][177]""[167]vv[178]51:[137]63100
63040 [130]:[153]" cmd";:[129]vv[178]1[164]50:[161]qq$:[139]qq$[179][177]""[167]vv[178]51:[137]63100
63050 [130]:[137]63020
63100 [130]:[139][198](qq$)[178]13[167][153]" cmd";:[142]
63110 [139][198](qq$)[178]20[167]63200
63120 [139][198](qq$)[178]34[167]qq$[178]"'"
63130 [139]qq$[179]" "[176]"z"[179]qq$[167]63020
63140 ww$[178]ww$[170]qq$:[139][195](ww$)[177]254[167]ww$[178]""
63160 [153]" cmd"qq$;:[137]63020
63200 [139][195](ww$)[179]1[167]63000
63210 [139][195](ww$)[178]1[167][153]qq$;:[137]63000
63220 ww$[178][200](ww$,[195](ww$)[171]1):[153]qq$;:[137]63020
63221 [153]"load"
63998 [153]"load"
63999 [128]:[143]"end of biorhythm property of commodore