Rivista: Acacia-run – Anno: 1986 – Trascrizione: Fiorentini Francesco
Avevamo gia’ rappresentato i Bioritmi nella nostra rubrica RetroLiPS con un programma per Commodore 64 che potete trovare a questo link: https://www.retromagazine.net/bioritmi-commodore-64-basic-v2/
La teoria dei bioritmi dice che ognuno di noi ha dei cicli che iniziano nel momento della nascita e influenzano il nostro stato fisico, emotivo e intellettuale. Non ci occuperemo di come la teoria dei bioritmi sia stata sviluppata, ma diremo per sommi capi quale influenza dovrebbe avere sulla vostra vita.
Il ciclo fisico dura 23 giorni. Per i primi 11.5 giorni siete nella parte positiva del ciclo: questo significa che avrete buona attività fisica, vigore e resistenza. Durante i secondi 11.5 giorni siete nella parte negativa del ciclo: ciò significa poca resistenza e sensibilità alla fatica.
Il ciclo emotivo è lungo 28 giorni. Durante la metà positiva (i primi 14 giorni) vi sentirete più contenti, ottimisti e portati alla collaborazione.
Durante la metà negativa tenderete a essere di cattivo umore, pessimisti e irritabili.
Il terzo ciclo è quello intellettuale e dura 33 giorni. La prima metà è il periodo in cui avrete grande successo nell’apprendimento di cose nuove. nelle attività intellettuali e creative. Durante la seconda metà farete meglio a rivedere ciò che conoscete già, piuttosto che tentare di imparare qualche nuovo difficile concetto.
Listato pubblicato sulla rivista Acacia-run numero 5 di Settembre/Ottobre 1986, rivista pubblicata in Belgio e curata da Ruddy de Graer & Jean-Jacques Meert.
Titolo: Bioritmo
Piattaforma: Atari 8bit
Linguaggio: Basic
Versione originale: N/A
Pubblicazione: Acacia-run
Numero: 5 – Settembre/Ottobre
Anno: 1986
Trascrizione: Francesco Fiorentini
Anno: 2026
Download: N/A
Note: N/A
Istruzioni
Dovete solo fornire pochi dati:
– Nome
– Giorno, Mese e Anno di Nascita
– Mese e Anno per i quali volete visualizzare il bioritmo
ed a quel punto il programma calcolera’ il bioritmo e lo stampera’ a video
.
Qui di seguito trovate il codice da copiare sul vostro computer Atari ad 8 bit.
Il codice é pronto per essere copiato su un emulatore, consigliamo Altirra.
Di seguito riportiamo le istruzioni per copiare il listato sull’emulatore Altirra ed eseguire il gioco:
– lanciare l’emulatore Altirra
– avviare il Basic: File -> Boot Image... e selezionare ATARIBAS.ROM (se non l’avete potete cercarla qui)
– copiate il codice sotto riportato
– incollatelo nell’emulatore tramite la funzione: View -> Paste Text
– per velocizzare l’operazione di copia del codice potete usare la funzione: System -> Warp Speed
– terminata l’operazione di copia (disattivate il Warp nel caso, System -> Warp Speed)
– digitare RUN
Buon divertimento!
Attenzione – Ci siamo resi conto che nel listato i caratteri ‘>’ e ‘<‘ potrebbero venir sostituiti dai rispettivi encoding html ‘>’ e ‘<’. Nel caso, sostituite questi valori nel listato prima di copiarlo sull’emulatore.
Listato: Darts – Atari 8bit – Basic
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
15 PI=3.1459265
20 REM ---
50 SETCOLOR 2,0,0:SETCOLOR 1,0,14
90 DIM Z$(8),M(12)
100 M(1)=31:M(2)=28:M(3)=31:M(4)=30:M(5)=31:M(6)=30
200 M(7)=31:M(8)=31:M(9)=30:M(10)=31:M(11)=30:M(12)=31
210 R=0
230 REM ---
240 REM INSERIMENTO BIORITMO
245 ? CHR$(125): ?
300 ? " BIORITMO "
310 ? : ? : ? "IL VOSTRO NOME: ";:INPUT Z$
320 ? : ? " GIORNO DI NASCITA: ";:INPUT T
330 ? : ? " MESE DI NASCITA: ";:INPUT S
340 ? : ? " ANNO DI NASCITA: ";:INPUT U
350 ? : ? " MESE DEL BIORITMO: ";:INPUT V
360 ? : ? " ANNO DEL BIORITMO: ";:INPUT W
400 SOUND 0,10,10,14:A=2^2:SOUND 0,0,0,0
440 REM CALCOLO DEL NUMERO DI GIORNI
450 REM ---
500 IF S>2 THEN 550
510 IF S=2 AND T=29 THEN 550
520 IF INT((U-1900)/4)<(U-1900)/4 THEN 550
530 R=1
550 R=R+M(S)-T
560 IF S=12 THEN 600
570 FOR X=S+1 TO 12
580 R=R+M(X)
590 NEXT X
600 IF W-U<2 THEN 650
610 FOR X=U-1899 TO W-1901
620 IF INT(X/4)=X/4 THEN R=R+1
630 R=R+365
640 NEXT X
650 IF V=1 THEN 700
660 FOR X=1 TO V-1
670 R=R+M(X)
680 NEXT X
700 IF V>2 AND INT((W-1900)/4)=(W-1900)/4 THEN R=R+1
710 REM ---
720 REM STAMPA BIORITMO
750 ? CHR$(125);:POSITION 0,22:?" ";
755 FOR I=1 TO M(V)
756 POSITION I,22:?" "
758 NEXT I
759 FOR I=1 TO M(V) STEP 7:POSITION I,21:?":":NEXT I
810 ?
820 FOR I=1 TO 10
830 POSITION 0,I:? "+"
840 POSITION 0,I+11:? "-"
850 NEXT I
860 POSITION 0,11:? "0"
870 FOR I=1 TO M(V)+4
880 POSITION I,11:? "-"
890 NEXT I:B=0:A=M(V)
1268 B=B+1
1270 C=INT(10*SIN((B+R)*(2*PI/23))+11)
1271 D=INT(10*SIN((B+R)*(2*PI/28))+11)
1272 E=INT(10*SIN((B+R)*(2*PI/31))+11)
1274 POSITION B,C:?"P"
1275 POSITION B,D:?"E"
1276 POSITION B,E:?"I"
1278 IF B<A THEN 1268
1280 POSITION 0,0:?"BIO DI ";Z$;" DEL ";V;"/";W:POSITION 0,21
