Misticom

28 de julho de 2017 MSX-Basic 0 comentários Aplicativos

Programa de biorítmo e horóscopo.

Teste o programa no WebMSX – The Online MSX Emulator

Autor: Gradiente Informática
Contribuição: Jeimes Uchôa

Código fonte

1 STOPON:ONSTOPGOSUB3
2 GOTO4
3 NEW
4 DIMS(15):P=3:CP=0:D=10000:MM=1:COLOR15,4,11:SCREEN2,2:WIDTH39:OPEN"grp:"FOROUTPUTAS#1
10 FORI=1TO10:KEYI,"":NEXT
20 LINE(80,40)-(174,67),1,B:PRESET(97,50),POINT(97,50):PRINT#1,"MISTICOM":PRESET(40,95),POINT(40,95):PRINT#1,"O futuro ao seu alcance!"
30 PRESET(50,170):PRINT#1,"Gradiente Inform tica":RESTORE2510:FORI1=0TO14:GOSUB190:SPRITE$(I1)=R$:NEXT:COLOR15
40 SOUND1,100:SOUND8,31:SOUND11,155:SOUND12,120:SOUND13,10:SOUND3,2:SOUND9,31:SOUND5,50:SOUND10,90:SOUND0,50:SOUND2,24:SOUND4,20
50 COLOR15,1,1:CLS:FORX=0TO80:A=INT(RND(1)*255):B=INT(RND(1)*90):PSET(A,B),15:NEXT
60 FORT=0TO100STEP5:LINE(127,95)-(0,95+T),15:LINE(127,95)-(255,95+T):FORJ=0TO255:NEXT:NEXT:PAINT(127,96),15
70 LINE(67,86)-(187,86),7:LINE(67,86)-(127,0),7:LINE-(187,86),7:CIRCLE(127,70),12,7:PAINT(128,69),7:PUTSPRITE1,(107,38),4,1
80 CIRCLE(114,47),12,7:PAINT(115,46),7:PUTSPRITE2,(120,60),4,2:CIRCLE(140,47),12,7:PAINT(139,46),7:PUTSPRITE0,(133,38),4,0
90 COLOR1:PRESET(97,150),POINT(97,150):PRINT#1,"MISTICOM":COLOR15
100 FORJ=3TO14:S(J)=RND(-TIME)*255:NEXT
110 FORI=0TO255:NEXT:DEFUSR=&H90:A=USR(B):SOUND1,2:SOUND8,31:SOUND11,255:SOUND12,150:SOUND13,10:SOUND3,2:SOUND9,31:SOUND5,3:SOUND10,31:SOUND0,62:SOUND2,64:SOUND4,60:FORI=0TO4000:NEXT
120 GOSUB350
130 FORI=0TO4000:NEXT:DEFUSR=&H90:A=USR(B):SOUND1,2:SOUND8,31:SOUND11,255:SOUND12,200:SOUND13,10:SOUND3,2:SOUND9,31:SOUND5,3:SOUND10,31:SOUND0,62:SOUND2,64:SOUND4,60
140 LINE(0,181)-(255,191),4,BF:PRESET(28,182):PRINT#1,"Pressione qualquer tecla!"
150 FORJ=3TO14:S(J)=S(J)+RND(5)*9-RND(5):IFS(J)>32767THENS(J)=0:PUTSPRITEJ,(S(J),J*13-30)
160 PUTSPRITEJ,(S(J),J*13-30),J,J:NEXT:T$=INKEY$:IFT$=""THEN150ELSE420
170 DATA 1,1,3,5,5,19,61,41,e1,e1,z014,f,z003,80,40,40,30,c,4,e,e,z004,e0,0
180 DATA 1,61,51,89,5,5,3,ff,z017,z008,fe,80,60,50,11,e,z003
190 DATA 0,40,c0,40,40,e0,3,0,3,2,3,e0,80,e0,20,e0,0,7,1,3,1,7,z803,0,80,5,5,7,1,1
200 R$="":FORI=1TO32:READS$:IFS$>"y"THENT%=VAL(MID$(S$,4)):I=I+T%-1:A$=MID$(S$,2,2):FORJ=1TOT%:R$=R$+CHR$(VAL("&h"+A$)):NEXT:GOTO220
210 R$=R$+CHR$(VAL("&h"+S$))
220 NEXT:RETURN
230 DATA 6c,92,92,54,z104,z0024
240 DATA 84,84,48,30,48,84,84,48,30,z0023
250 DATA f7,z635,f7,z0013,80,z005,80,z009:
260 DATA 3f,48,84,84,47,31,0,ff,z008,f8,0,60,90,8,8,90,e0,z008
270 DATA 38,44,82,82,42,24,94,92,62,1,z006,z008,40,80,z006:'(5)
280 DATA 5,5,a,a,z2a6,1,2,z006,80,40,z204,40,80,40,30,z006
290 DATA 3,4,f8,0,ff,z0011,0,80,7c,0,fc,z0011
300 DATA 49,b6,z368,z006,0,zc08,z007
310 DATA 3,1,2,4,8,10,f8,40,z008,z803,z0013
320 DATA c0,41,41,4f,48,50,50,60,60,z007,c0,20,20,c0,40,z203,c0,z007
330 DATA 55,aa,0,55,aa,z0027:'11
340 DATA 40,e0,11,a,a,7f,a,a,11,e0,40,z005,40,e0,z003,c0,z003,e0,40,z005
350 RETURN:PLAY"t90","t90","t90"
360 FOR N=1 TO 3:PLAY"v15l16o4ee-co3aa-ao4ce-ee-co3aa-ao4ce-","v15o3e2e-4f4","v15o2a2a-4f4":NEXT
370 FOR N=1 TO 3:PLAY"v15l16o4aa-ecbco3bo4aa-eco5co4bdae","v15o3e2e-4f4","v15o2a2a-4f4":NEXT
380 FOR N=1 TO 3:PLAY"v15l16o4ee-co3aa-ao4ce-ee-co3aa-ao4ce-","v15o3e2e-4f4","v15o2a2a-4f4":NEXT
390 FOR N=1 TO 3:PLAY"v15l16o4aa-ecbco3bo4aa-eco5co4bdae","v15o3e2e-4f4","v15o2a2a-4f4":NEXT
400 PLAY"v15t35o4a4","v15t35o4c4","v15t35o2a4":RETURN
410 SOUND1,100:SOUND8,31:SOUND11,155:SOUND12,150:SOUND13,10:SOUND3,2:SOUND9,31:SOUND5,50:SOUND10,9:SOUND0,50:SOUND2,24:SOUND4,20:RETURN
420 COLOR15,1,1:SCREEN2:DEFUSR=&H90:A=USR(B):SOUND1,2:SOUND8,31:SOUND11,255:SOUND12,200:SOUND13,10:SOUND3,2:SOUND9,31:SOUND5,3:SOUND10,31:SOUND0,62:SOUND2,64:SOUND4,60
430 FORT=0TO30:A=INT(RND(1)*255):B=INT(RND(1)*40):C=INT(RND(1)*50):D=INT(RND(1)*191):E=INT(RND(1)*50)+160:G=INT(RND(1)*191):H=INT(RND(1)*50)+210
440 PSET(A,B),15:PSET(C,D):PSET(A,E):PSET(H,G):NEXT:COLOR7
450 PRESET(78,50),POINT(78,50):PRINT#1,"1 - Biorritmo":PRESET(78,70),POINT(68,70):PRINT#1,"2 - Hor¢scopo":PRESET(78,90),POINT(78,90):PRINT#1,"3 - Mensagens"
460 PRESET(78,110),POINT(68,110):PRINT#1,"4 - Fim":PRESET(60,140),POINT(60,140):PRINT#1,"Qual op`„o deseja?"
470 LINE(59,150)-(201,150),9:A$=INKEY$:IFA$=""THENGOSUB3400:LINE(59,150)-(201,150),11:GOTO470ELSEIFA$<"1"ORA$>"4"THEN470ELSEA=VAL(A$):SOUND8,0:SOUND11,0:SOUND12,0:SOUND13,0:ONAGOSUB480,1970,2660,3380
480 STOPON:'biorritmo
490 CLEAR1024:RESTORE1240:COLOR15,1,7:CN=15:CL=9
500 OPEN"GRP:"FOROUTPUTAS#1
510 DIMM$(12),DM(12),AD(13),Y1(6),X1(6),Z1(6),ME$(7,1)
520 FORK=1TO12:READDM(K):NEXT:FORK=1TO6:README$(K,0),ME$(K,1):NEXT
530 SCREEN2
540 GOSUB1350
550 ONKEYGOSUB770,850,930,530,1270
560 FORK=1TO4:KEY(K)OFF:NEXT:KEY(5)ON
570 PR=8
580 PI=3.14159
590 H=50
600 RR=6.8
610 COLOR11:XX=32:YY=130:GOSUB1510:COLOR15
620 MC=VAL(MC$):YC=VAL(YC$):DB=VAL(DB$):MB=VAL(MB$):YB=VAL(YB$)
630 T=(YC-YB)*365.25+(AD(MC)-AD(MB))+(DC-DB)
640 '
650 PD=2*PI*(T/23-INT(T/23)):ED=2*PI*(T/28-INT(T/28)):ID=2*PI*(T/33-INT(T/33))
660 GOSUB1880
670 '
680 PW=2*PI/23
690 EW=2*PI/28
700 IW=2*PI/33
710 '
720 '****
730 GOSUB1750:GOTO750
740 GOSUB1880
750 FORK=1TO4:KEY(K)ON:NEXT
760 XL=16:YL=137:XF=60:GOSUB1740:GOTO760
770 FORK=1TO4:KEY(K)OFF:NEXT:SOUND0,0:SOUND1,1:SOUND8,10:IE=1
780 YP%=INT(H*SIN(PD)*.7+.5):PY%=INT(H*SIN(PW*.5+PD)*.7+.5)
790 Y1(1)=191:FORX!=.5TO32STEP.42:'LINE(200,120)-(203,123),CM,BF:CM=15-CM
800 XG!=X!*RR+19
810 PY%=H*SIN(PW*X!+PD)*.7+.5:IFY1(1)>PY%THENX1(1)=XG!:Y1(1)=PY%
820 IFY1(2)<PY%THENX1(2)=XG!:Y1(2)=PY%
830 SOUND0,YP%+60:LINE(XG!-3,YP%+60)-(XG!,PY%+60),3:SWAPYP%,PY%
840 NEXTX!:SOUND0,62:SOUND1,2:SOUND8,31:GOTO1010
850 FORK=1TO4:KEY(K)OFF:NEXT:SOUND0,0:SOUND1,1:SOUND8,10:IE=3
860 YE%=INT(H*SIN(ED)*.7+.5):EY%=INT(H*SIN(EW*.5+ED)*.7+.5)
870 Y1(3)=191:FORX!=.5TO32STEP.42:'LINE(200,120)-(203,123),CM,BF:CM=15-CM
880 XG!=X!*RR+19
890 EY%=INT(H*SIN(EW*X!+ED)*.7+.5):IFY1(3)>EY%THENX1(3)=XG!:Y1(3)=EY%
900 IFY1(4)<EY%THENX1(4)=XG!:Y1(4)=EY%
910 SOUND0,YE%+60:LINE(XG!-3,YE%+60)-(XG!,EY%+60),9:SWAPYE%,EY%
920 NEXTX!:SOUND0,62:SOUND1,2:SOUND8,31:GOTO1010
930 FORK=1TO4:KEY(K)OFF:NEXT:SOUND0,0:SOUND1,1:SOUND8,10:IE=5
940 YI%=H*SIN(ID)*.7+.5:IY%=H*SIN(IW*.5+ID)*.7+.5
950 Y1(5)=191:FORX!=.5TO32STEP.42:'LINE(200,120)-(203,123),CM,BF:CM=15-CM
960 XG!=X!*RR+19
970 IY%=H*SIN(IW*X!+ID)*.7+.5:IFY1(5)>IY%THENX1(5)=XG!:Y1(5)=IY%
980 IFY1(6)<IY%THENX1(6)=XG!:Y1(6)=IY%
990 SOUND0,YI%+60:LINE(XG!-3,YI%+60)-(XG!,IY%+60),11:SWAPYI%,IY%
1000 NEXTX!:SOUND0,62:SOUND1,2:SOUND8,31
1010 GOSUB1800:GOTO740
1020 IFEL<>1THEN1040
1030 IFIE=3THENPRESET(240,EY+60):PRINT#1,"E";
1040 IFIL<>1THEN1080
1050 '
1060 IFIE=5THENPRESET(240,IY+60):PRINT#1,"I";
1070 FORK=1TO4:KEY(K)ON:NEXT
1080 GOSUB1800:GOTO740
1090 '***
1100 ONIEGOTO1110,740,1130,740,1180
1110 PP=INT(PY%+60)
1120 PRESET(10,PP):PRINT#1,"F":RETURN
1130 EP=INT(EY%+60)
1140 IFEP>=PP-8ANDEP<=PP+8THENEL=1:GOTO1170
1150 '
1160 PRESET(10,EP):PRINT#1,"E"
1170 RETURN
1180 IP=INT(IY%+60)
1190 IF(IP>=PP-8ANDIP<=PP+8)OR(IP>=EP-8ANDIP<=EP+8)THENIL=1:GOTO1220
1200 '
1210 PRESET(10,IP):PRINT#1,"I";
1220 RETURN
1230 '***
1240 DATA31,29,31,30,31,30,31,31,30,31,30,31
1250 DATAPratique bastante esporte,Corra a vontade,N„o se esforce,Cuidado para n„o se cansar,Visite seus amigos,Irradie alegria
1260 DATAN„o fique s¢,Passeie no parque,Estude,Organize sua vida,V  ao cinema,Cuidado com as provas
1270 FORI=1TO5:KEY(I)OFF:NEXT:GOTO420
1280 SOUND0,0:SOUND1,2:SOUND8,10:K=30:K1=50:FORI=1TOLEN(E$):SOUND0,K:PRESET(XL,YL):PRINT#1,MID$(E$,I,1):XL=XL+6:SWAPK,K1:NEXT
1290 SOUND0,62:SOUND1,2:SOUND8,31:RETURN
1300 COLOR11:D$=""
1310 A$=INKEY$:IFA$=""THEN1310
1312 IFA$=CHR$(8)ANDLEN(D$)<>0THEN1313ELSE1320
1313 LINE(XL-6,YL)-(XL,YL+7),1,BF:E$="_":XL=XL-6:YL=YL+2:GOSUB1280:YL=YL-2:D$="":GOTO1310
1320 A=ASC(A$):IFA<48ORA>57THEN1310
1330 D$=D$+A$:E$=D$:XL=XI:GOSUB1280:IFLEN(D$)>=2THENCOLOR9:RETURNELSE1310
1340 IFLEN(D$)>=2THENRETURNELSE1310
1350 COLOR9
1360 E$="Nasc.:":XL=20:YL=8:GOSUB1280
1370 E$="Biorr¡tmo de:":XL=125:YL=8:GOSUB1280:COLOR15:X=18
1380 LINE(18,20)-(18,100):LINE(237,20)-(237,100)
1390 FORCO=5TO35STEP3
1400 LINE(X,58)-(X,62)
1410 X=X+21.9
1420 NEXTCO
1430 LINE(18,60)-(237,60):LINE(18,20)-(237,20):LINE(18,100)-(237,100)
1440 'LINE(18,60)-(237,60):LINE(18,20)-(237,20):LINE(18,100)-(18,114):LINE(18,114)-(237,114):LINE(237,114)-(237,100)
1450 RETURN
1460 IFY1(6)<IYTHENX1(6)=XG:Y1(6)=IY
1470 SOUND0,YI+110:LINE(XG-3,YI+60)-(XG,IY+60),1:LINE(XG-3,YI+60)-(XG,IY+60),11:SWAPYI,IY:RETURN
1480 IE=1:GOTO780
1490 IE=3:GOTO780
1500 IE=5:GOTO780
1510 E$="Escreva a data do seu nascimento:":XL=XX:YL=YY:GOSUB1280:E$="Exemplo: Dia: 05":XL=XX:YL=YY+8:GOSUB1280
1520 GOSUB1650:COLOR9:E$="Dia:":XL=XX:YL=YY+18:GOSUB1280:E$="__":XL=XL+6:YL=YL+2:GOSUB1280:XI=XX+30:YL=YY+18:GOSUB1300:DB$=D$
1530 GOSUB1650:COLOR9:E$="Mˆs:":XL=XX:YL=YY+18:GOSUB1280:E$="__":XL=XL+6:YL=YL+2:GOSUB1280:XI=XX+30:YL=YY+18:GOSUB1300:MB$=D$
1540 GOSUB1650:COLOR9:E$="Ano:":XL=XX:YL=YY+18:GOSUB1280:E$="__":XL=XL+6:YL=YL+2:GOSUB1280:XI=XX+30:YL=YY+18:GOSUB1300:YB$=D$:GOSUB1660
1550 GOSUB1700:E$="A data est  correta? (S=sim/N=n„o)":XL=XX-16:YL=YY:GOSUB1280
1560 A$=INKEY$:IFA$=""THEN1560ELSEIFA$="s"ORA$="S"THENGOSUB1660:GOTO1570ELSEGOSUB1710:GOSUB1660:GOTO1510
1570 D=VAL(DB$):M=VAL(MB$):AN=VAL(YB$):IF(M<1ORM>12)OR(M=2ANDD>29+((AN-60)MOD4<>0))ORAN>88THEN1680
1580 IFD<1ORD>DM(M)THEN1680
1590 E$="Escreva a data deste biorr¡tmo:":XL=XX:YL=YY:GOSUB1280:E$="Exemplo: Mˆs: 05":XL=XX:YL=YY+8:GOSUB1280
1600 COLOR9:E$="Mˆs:":XL=XX:YL=YY+18:GOSUB1280:E$="__":XL=XL+6:YL=YL+2:GOSUB1280:XI=XX+30:YL=YY+18:GOSUB1300:MC$=D$:GOSUB1650
1610 COLOR9:E$="Ano:":XL=XX:YL=YY+18:GOSUB1280:E$="__":XL=XL+6:YL=YL+2:GOSUB1280:XI=XX+30:YL=YY+18:GOSUB1300:YC$=D$:GOSUB1660
1620 GOSUB1720:E$="A data est  correta? (S=sim/N=n„o)":XL=XX-16:YL=YY:GOSUB1280
1630 A$=INKEY$:IFA$=""THEN1630ELSEIFA$="s"ORA$="S"THENGOSUB1660:GOTO1640ELSEGOSUB1730:GOSUB1660:GOTO1590
1640 D=VAL(MC$):IFD<1ORD>12THEN1690
1650 LINE(XX,YY+18)-(XX+44,YY+26),1,BF:RETURN
1660 LINE(XX-18,YY)-(XX+235,YY+30),1,BF:RETURN
1670 D=VAL(D$):IFD<1ORD>DM(DB)THENRETURN
1680 GOSUB1710:COLOR9:E$="Data inv lida!":XL=XX+50:YL=YY:GOSUB1280:FORK=0TO3000:NEXT:GOSUB1660:COLOR11:GOTO1510
1690 COLOR9:E$="Data inv lida!":XL=XX+50:YL=YY:GOSUB1280:FORK=0TO3000:NEXT:GOSUB1660:GOSUB1730:COLOR11:GOTO1590
1700 COLOR7:E$=DB$+"/"+MB$+"/"+YB$:XL=57:YL=8:GOSUB1280:COLOR11:RETURN
1710 COLOR1:E$=DB$+"/"+MB$+"/"+YB$:XL=57:YL=8:GOSUB1280:COLOR11:RETURN
1720 COLOR7:E$=MC$+"/"+YC$:XL=203:YL=8:GOSUB1280:COLOR11:RETURN
1730 COLOR1:E$=MC$+"/"+YC$:XL=203:YL=8:GOSUB1280:COLOR11:RETURN
1740 SWAPCN,CL:LINE(XL,YL)-(XF,YL),CN:FORK=0TO40:NEXT:RETURN
1750 PL=PL+1:COLOR7:D$=" 1":D=1:FORCO=5TO35STEP3
1760 E$=D$:YL=105:XL=PL:GOSUB1280
1770 PL=PL+20.6:D=D+3:IFD>DM(MC)THEND$=" ":GOTO1790
1780 D$=STR$(D)
1790 NEXTCO:COLOR15:RETURN
1800 GOSUB1870
1810 F=INT(RND(-TIME)*2):F1=INT(RND(-TIME)*2)
1820 D1=INT((X1(IE+F)-19)/RR+.5)
1830 IFD1>31THEND1=31ELSEIFD1<1THEND1=1
1832 IFIE=1THENE$="F¡sico:":GOTO1838
1834 IFIE=3THENE$="Emocional:":GOTO1838
1836 E$="Intelectual:"
1838 XL=16:YL=135:GOSUB1280
1840 E$=ME$(IE+F,F1)+" no dia"+STR$(D1)+"!":XL=16:YL=145:GOSUB1280
1850 XL=16:YL=155:XF=15+LEN(E$)*6:FORKK=0TO50:GOSUB1740:NEXT
1860 GOSUB1870:RETURN
1870 LINE(10,125)-(250,190),1,BF:RETURN
1880 FORI=1TO4:KEY(I)OFF:NEXT:COLOR7:E$="Escolha:":XL=16:YL=128:GOSUB1280
1890 COLOR9:E$="[F1] =":XL=16:YL=140:GOSUB1280:COLOR7:E$="Curva de seu estado":XL=58:YL=140:GOSUB1280:COLOR3:E$="f¡sico.":XL=178:YL=140:GOSUB1280:COLOR9
1900 E$="[F2] =":XL=16:YL=150:GOSUB1280:COLOR7
1910 E$="Curva de seu estado":XL=58:YL=150:GOSUB1280:COLOR9:E$="emocional.":XL=178:YL=150:GOSUB1280
1920 E$="[F3] =":XL=16:YL=160:GOSUB1280:COLOR7:E$="Curva de seu estado":XL=58:YL=160:GOSUB1280:COLOR11:E$="intelectual.":XL=178:YL=160:GOSUB1280
1930 COLOR9:E$="[F4] =":XL=16:YL=170:GOSUB1280:COLOR7:E$="Outro biorr¡tmo.":XL=58:YL=170:GOSUB1280:COLOR9:E$="[F5] =":XL=16:YL=180:GOSUB1280
1940 COLOR7:E$="Fim.":XL=58:YL=180:GOSUB1280
1950 X=18:PL=14:E$="dias do mˆs":XL=97:YL=117:GOSUB1280:COLOR15
1960 RETURN
1970 STOPON:CLEAR1024:OPEN"GRP:"FOROUTPUTAS#1:FL=1:DIMSG$(12),RG$(12),UG$(12),YG(12):GOSUB2210:DF=2
1980 COLOR15,0,0:SCREEN2:GOTO1990
1990 CL=1:GOSUB2080:FORI=10TO180STEP15:LINE(8,I)-(28,I+15),15,B:I1=((I-10)\15)+3:CL=CL+1:PUTSPRITEI1,(12,I+2),CL,I1:YG(I1-2)=I+3:NEXT:XX=43:YY=40
2000 LINE(40,30)-(255,191),0,BF:GOSUB2220:GOSUB2340
2010 XL=XX:YL=YY+5:E$="Signo: "+SG$(SG):GOSUB2140:LINE(XX,YL+8)-(XX+30,YL+8),7:E$="S¡mbolo:":XL=XX:YL=YL+15:GOSUB2140:LINE(XX,YL+8)-(XX+43,YL+8),7:XB=8:YB=YG(SG):M=XL+8:R=YL:GOSUB2090
2020 E$="Influˆncias: ":XL=XX:YL=YY+40:GOSUB2140:LINE(XX,YY+48)-(XX+65,YY+48),7:E$=RG$(SG)+".":GOSUB2140:E$="An lise:":XL=XX:YL=110:GOSUB2140:LINE(XX,YL+8)-(XL-7,YL+8),7:E$=UG$(SG)+".":XL=XX:YL=120:GOSUB2140:
2030 COLOR9:E$="[F4]=":XL=XX:YL=180:GOSUB2140:COLOR15:E$=" Novo Hor¢scopo":GOSUB2140:COLOR9:E$="[F5]=":XL=XX+144:GOSUB2140:E$=" Fim":COLOR15:GOSUB2140
2040 KEY(5)ON:KEY(4)ON:ONKEYGOSUB,,,2120,2130:BN=250
2050 GOSUB2060:PUTSPRITE31,(BN,0),VC,DF:IFTT=1THENTT=0:KEY(4)OFF:KEY(5)OFF:PUTSPRITE31,(0,209):GOTO2000ELSE2050
2060 BN=BN+2:IFBN>250THENBN=30:VC=INT(RND(1)*15):IFVC<2THENBN=250:GOTO2060ELSEDF=DF+1:IFDF>14THENDF=3
2070 RETURN
2080 COLOR9:PRESET(60,Y+10):PRINT#1,"H o r ¢ s c o p o":LINE(54,Y+19)-(200,Y+19):COLOR15:RETURN
2090 M1=M-XB:M2=R-YB:IFM1=0THENM1=1E-08ELSEIFM2=0THENM2=1E-08
2100 IFABS(M1)>ABS(M2)THENN%=ABS(M1):DX=M1/N%:DY=M2/N%:ELSEN%=ABS(M2):DY=M2/N%:DX=M1/N%
2110 INTERVALSTOP:SOUND0,0:SOUND1,0:SOUND8,15:FORI=OTON%-1:PUTSPRITESG+2,(XB+I*DX,YB+I*DY),SG+1,SG+2:SOUND0,I:NEXT:FORI=15TO0STEP-1:SOUND8,I:FORJ=0TO30:NEXT:NEXT:SOUND0,62:SOUND1,2:SOUND8,31:RETURN
2120 TT=1:PUTSPRITESG+2,(12,YG(SG)),SG+1,SG+2:RETURN
2130 FORI=1TO10:KEY(I)OFF:NEXT:GOTO420
2140 SOUND0,0:SOUND1,2:SOUND8,10:QW=30:QA=50:KX=XX:FORI=1TOLEN(E$):SOUND0,QW:PRESET(XL,YL):PRINT#1,MID$(E$,I,1):XL=XL+6:SWAPQW,QA:IFXL>254THENYL=YL+10:XL=KX
2150 NEXT:SOUND0,62:SOUND1,2:SOUND8,31:RETURN
2160 READE$:XL=VAL(MID$(E$,1,3)):YL=VAL(MID$(E$,4,3)):E$=MID$(E$,7):GOSUB2140:RETURN
2170 D$=""
2180 A$=INKEY$:IFA$=""THEN2180
2182 IFA$=CHR$(8)ANDLEN(D$)<>0THEN2183ELSE2190
2183 LINE(XL-6,YL)-(XL,YL+7),0,BF:E$="_":XL=XL-6:YL=YL+2:GOSUB2140:YL=YL-2:D$="":GOTO2180
2190 A=ASC(A$):IFA<48ORA>57THEN2180
2200 D$=D$+A$:E$=D$:XL=XI:GOSUB2140:IFLEN(D$)>=2THENRETURNELSE2180
2210 RESTORE2380:FORK=1TO12:READSG$(K):NEXT:FORK=1TO12:READRG$(K):NEXT:FORK=1TO12:READUG$(K):NEXT:RETURN
2220 E$="Escreva a data do seu nascimento":XL=XX:YL=YY:GOSUB2140:E$="Exemplo: Dia: 05":XL=XX:YL=YY+8:GOSUB2140
2230 GOSUB2290:E$="Dia:":XL=XX:YL=YY+18:GOSUB2140:E$="__":XL=XL+6:YL=YL+2:GOSUB2140:XI=XX+30:YL=YY+18:GOSUB2170:DB$=D$
2240 GOSUB2290:E$="Mˆs:":XL=XX:YL=YY+18:GOSUB2140:E$="__":XL=XL+6:YL=YL+2:GOSUB2140:XI=XX+30:YL=YY+18:GOSUB2170:MB$=D$
2250 GOSUB2290:E$="Ano:":XL=XX:YL=YY+18:GOSUB2140:E$="__":XL=XL+6:YL=YL+2:GOSUB2140:XI=XX+30:YL=YY+18:GOSUB2170:YB$=D$:GOSUB2300
2260 GOSUB2320:E$="A data est  correta?":XL=XX:YL=YY:GOSUB2140:E$="(S = sim / N = n„o)":YL=YL+10:XL=XX:GOSUB2140
2270 A$=INKEY$:IFA$=""THEN2270ELSEIFA$="s"ORA$="S"THENGOSUB2300:GOTO2280ELSELINE(XX-10,YY-10)-(XX+235,YY+30),0,BF:GOSUB2300:GOTO2220
2280 M=VAL(MB$):AN=VAL(YB$):DB=VAL(DB$):IF(M<1ORM>12)OR(M=2ANDDB>29+((VAL(YB$)-60)MOD4<>0))ORAN>88ORDB<1ORM<1THEN2310ELSERETURN
2290 LINE(XX,YY+18)-(XX+44,YY+26),0,BF:RETURN
2300 LINE(XX-10,YY)-(XX+235,YY+30),0,BF:RETURN
2310 GOSUB2330:E$="Data inv lida!":XL=XX:YL=YY:GOSUB2140:SOUND0,0:SOUND8,15:SOUND1,2:FORK=1TO255:SOUND0,K:FORL=0TO4:NEXT:NEXT:SOUND8,31:SOUND0,62:LINE(XX-10,YY-10)-(XX+235,YY+30),0,BF:GOTO2220
2320 E$="Nascimento: "+DB$+"/"+MB$+"/"+YB$:XL=XX:YL=YY-10::GOSUB2140:LINE(XX,YY-2)-(XX+60,YY-2),7:RETURN
2330 IFFL=1THENRETURNELSE:E$=DB$+" "+MB$+" "+YB$:XL=57:YL=8:GOSUB2140:COLOR15:RETURN
2340 IF(M=3ANDDB>=22)OR(M=4ANDDB<21)THENSG=1ELSEIF(M=4ANDDB>20)OR(M=5ANDDB<21)THENSG=2ELSEIF(M=5ANDDB>20)OR(M=6ANDDB<21)THENSG=3ELSEIF(M=6ANDDB>20)OR(M=7ANDDB<22)THENSG=4ELSEIF(M=7ANDDB>21)OR(M=8ANDDB<23)THENSG=5ELSEIF(M=8ANDDB>22)OR(M=9ANDDB<23)THENSG=6
2350 IF(M=9ANDDB>22)OR(M=10ANDDB<23)THENSG=7ELSEIF(M=10ANDDB>22)OR(M=11ANDDB<22)THENSG=8ELSEIF(M=11ANDDB>21)OR(M=12ANDDB<22)THENSG=9ELSEIF(M=12ANDDB>21)OR(M=1ANDDB<21)THENSG=10ELSEIF(M=1ANDDB>20)OR(M=2ANDDB<20)THENSG=11
2360 IF(M=2ANDDB>19)OR(M=3ANDDB<22)THENSG=12
2370 RETURN
2380 DATA ries,touro,gˆmeos,cƒncer,le„o,virgem,libra,escorpi„o,sagit rio,capric¢rnio,aqu rio,peixes
2390 DATA"cabe`a, face e a cons- ciˆncia","pesco`o, garganta e o  movimento","ombros, m„os e a subs- tƒncia"," peito, est“mago, f¡-  gado e a respira`„o"," dorso, cora`„o e a    vitalidade","ventre, intestinos,    plexo solar, m£sculos e a forma"
2400 DATA"regi„o lombar, rins,   bexiga,pele e o sexo","¢rg„os  genitais e o   desejo","n degas, coxas, art‚-  rias,tronco, fˆmur e o pensamento","joelhos, pele, esque-  leto,unhas,cabelo e a individuali-  dade"
2410 DATA"barriga das pernas,    tornozelos, circula`„o do sangue e  sistema nervoso","a planta  e  os dedos  dos p‚s e nervos do corpo
2420 DATA"Vocˆ que ‚ nascido  em   ries  tem  muita energia mental;‚ inclinado a  mandar e estar …  frente ou ocupar  lugares independentes"
2430 DATA"Vocˆ de touro ‚ uma pessoa s¢lida,  reservada,   pr tica,   obstinada,  conservativa, persistente e amante  da luta"
2440 DATA"Vocˆ de gˆmeos tem inclina`„o  aos  estudos ou  com‚rcio, sensibilida-  de, afabilidade, por‚m inconstante  nos sentimentos"
2450 DATA"Vocˆ que ‚ de cƒncer se caracteri-  za por sua tenacidade, perseveran-  `a, economia, atividade,  coragem,  energia e aud cia
2460 DATA"Vocˆ de le„o tem grande  energia e  for`a, car ter firme,  inflex¡vel,  perseverante, leal, ambicioso, fi-  los¢fico e filantr¢pico"
2470 DATA"Vocˆ que ‚  de virgem distingue-se  pelo  racioc¡nio e pelo  ju¡zo;  ‚  pr tico, inteligente e engenhoso","Vocˆ que ‚ nascido em libra ‚  uma  pessoa equilibrada e am vel, ama a  justi`a, a paz, o prazer, a harmo-  nia e a arte"
2480 DATA"Vocˆ de escorpi„o tem natureza vi-  va, cr¡tica e desconfiada;‚ reser-  vado, firme, econ“mico e calculis-  ta","Vocˆ nascido em  sagit rio  ‚  uma  pessoa alegre,  jovial,  generosa,  franca, honesta e dif¡cil de desa-  nimar"
2490 DATA"Vocˆ de  capric¢rnio ‚  uma pessoa  prudente, inteligente,  pensativa,  s‚ria e perseve²Ø·te;um tanto fria, por‚m sincera e fiel","Vocˆ que nasceu em aqu rio ‚  sen-  s¡vel, de bom cora`„o, firme, inte- ligente e prudente
2500 DATA "Vocˆ de peixes ‚ uma pessoa  mansa, idealista, paciente,inofensiva, in- gˆnua, amante da ordem, confiante e simp tica"
2510 DATA 1,1,3,5,5,19,61,41,e1,e1,z014,f,z003,80,40,40,30,c,4,e,e,z004,e0,0
2520 DATA 1,61,51,89,5,5,3,ff,z017,z008,fe,80,60,50,11,e,z003
2530 DATA 0,40,c0,40,40,e0,3,0,3,2,3,e0,80,e0,20,e0,0,7,1,3,1,7,z803,0,80,5,5,7,1,1
2540 DATA0,0,d,12,12,a,z024,z008,80,40,40,80,z0010
2550 DATA0,10,10,9,6,9,10,10,9,6,z007,80,80,z003,z802,z008
2560 DATA0,0,3d,z185,3d,z009,e0,zc05,e0,z007
2570 DATA 0,3f,48,84,84,47,31,0,ff,z008,f8,0,60,90,8,8,90,e0,z007
2580 DATA 38,44,82,82,42,24,94,92,62,1,z006,z008,40,80,z006
2590 DATA 14,2a,29,za84,a9,aa,5,8,z008,z804,z003,c0,z005
2600 DATA 0,0,3,4,f8,0,ff,z0011,0,80,7c,0,fc,z009
2610 DATA 49,b6,z368,z006,0,zc05,ce,c6,da,d8,78,z005
2620 DATA 3,1,2,4,8,10,f8,40,z008,z803,z0013
2630 DATA c0,41,41,4f,48,50,50,60,60,z007,c0,20,20,c0,40,z203,c0,z007
2640 DATA 0,0,55,aa,0,55,aa,z0025
2650 DATA 40,e0,11,a,a,7f,a,a,11,e0,40,z005,40,e0,z003,c0,z003,e0,40,z005
2660 STOPON:CLEAR1024:RESTORE3020:COLOR15,4,7:SCREEN2:OPEN"grp:"FOROUTPUTAS#1:DIMMT$(21):KEY(5)ON:KEY(4)ON:ONKEYGOSUB,,,3240,3250
2670 REM
2680 FORI=0TO21:READMT$(I):NEXT
2690 B$=STR$(INT(RND(-TIME)*9)):VN$=VN$+MID$(B$,2,LEN(B$)-1):IFLEN(VN$)<32THEN2690
2700 COLOR3:PRESET(0,1):PRINT#1,VN$:PRESET(0,184):PRINT#1,VN$:K=1:FORI=12TO180STEP9:PRESET(1,I):PRINT#1,MID$(VN$,K,1):PRESET(248,I):PRINT#1,MID$(VN$,K,1):K=K+1:NEXT:COLOR15
2710 V=1:ONINTERVAL=100GOSUB3290
2720 INTERVALON:E$="M E N S A G E N S":XL=75:YL=20:GOSUB3360:LINE(69,30)-(183,31),9,B
2730 LINE(15,162)-(240,176),10,B:E$="[F4] =":XL=27:YL=166:COLOR9:GOSUB3360:E$="  Nova Consulta":XL=57:YL=166:COLOR15:GOSUB3360:E$="[F5] =":XL=167:YL=166:COLOR9:GOSUB3360:E$="  Fim":XL=197:YL=166:COLOR15:GOSUB3360:COLOR15
2740 E$="Escreva seu nome completo":XL=51:YL=60:GOSUB3360
2750 E$="e tecle":XL=94:YL=82:GOSUB3360:X=148:Y=75:GOSUB3260:N$=""
2760 XL=18:YL=140:E$="nome: ______________________________":GOSUB3360:XL=54
2770 INTERVALON:A$=INKEY$:IFA$=""THEN2770ELSEINTERVALOFF:IFA$=" "THEN2780ELSEIFA$=CHR$(13)THEN2800ELSEIFA$=CHR$(8)THEN2790ELSEIFA$<"A"ORA$>CHR$(183)THEN2770ELSE2780
2780 LINE(XL,140)-(XL+6,148),4,BF:PRESET(XL,140):PRINT#1,A$:N$=N$+A$:XL=XL+6:IFXL>233THEN2800ELSE2770
2790 IFLEN(N$)=0THEN2770ELSEXL=XL-6:LINE(XL,140)-(XL+6,148),4,BF:PRESET(XL+1,140):PRINT#1,"_":N$=MID$(N$,1,LEN(N$)-1):GOTO2770
2800 IFN$=""THEN 2770
2810 LINE(8,40)-(246,160),4,BF
2820 E$="Nome: "+N$:XL=18:YL=45:GOSUB3360:E$="Letra =      Sub-total =":XL=18:YL=60:GOSUB3360:INTERVALOFF
2830 A=0:FORI=1TOLEN(N$):A$=MID$(N$,I,1)
2840 IFA$=" "THEN2950
2850 IFA$<"L"THEND=ASC(A$)-64:A=A+D:GOTO2950
2860 IFA$<"U"THEND=(ASC(A$)-74)*10:A=A+D:GOTO2950
2870 IFA$<"X"THEND=200:A=A+D:GOTO2950
2880 IFA$="X"THENA=A+200:GOTO2950
2890 IFA$="Y"THENA=A+9:GOTO2950
2900 IFA$="Z"THENA=A+400:GOTO2950
2910 IFA$="‚"ORA$=""THENA=A+5:GOTO2950
2920 IFA$="„"ORA$="Ž"THENA=A+1:GOTO2950
2930 IFA$="`"ORA$="~"THENA=A+3:GOTO2950
2940 IFASC(A$)>90THENA$=CHR$(ASC(A$)-32):GOTO2840
2950 LINE(66,60)-(72,70),4,BF:PRESET(66,60):PRINT#1,A$:LINE(162,60)-(226,70),4,BF:PRESET(162,60):PRINT#1,A:FORJ=0TO500:NEXT:NEXT:IFA<23THEN2970
2960 A$=STR$(A):A=0:A$=RIGHT$(A$,LEN(A$)-1):FORI=1TOLEN(A$):A=A+VAL(MID$(A$,I,1)):NEXT:IFA>22THEN2960
2970 INTERVALON:LINE(12,60)-(230,70),4,BF:E$="A sua mensagem de for`a ‚:"+STR$(A):XL=18:YL=60:GOSUB3360
2980 COLOR9:E$="Mensagem:":XL=18:YL=90:GOSUB3360:COLOR15
2990 E$=MT$(A-1)+".":XL=18:YL=115:GOSUB3360
3000 KEY(4)ON
3010 GOTO3010
3020 DATA"Ao inv‚s de criticar, procura  o  lado melhor das criaturas e das ocorrˆncias, de modo a constru¡res o bem, onde esti- veres"
3030 DATA"Por mais  speros se te mostrem os obs- t culos da estrada, segue adiante"
3040 DATA"N„o fujas dos problemas com que a vida te instrui"
3050 DATA"Lembra-te de que falando ou silencian- do, sempre ‚ poss¡vel fazer algum bem"
3060 DATA"N„o exijas de ningu‚m a  obriga`„o  de seguir-te os modelos de vida  e  pensa- mento"
3070 DATA"N„o acredites em felicidade  no  campo ¡ntimo, sem o teu pr¢prio trabalho para constru¡-la"
3080 DATA"Se erraste, recome`a"
3090 DATA"Esquece as ofensas, quaisquer que       sejam"
3100 DATA"Lembra-te sempre: cada dia nasce de     novo ao amanhecer"
3110 DATA"A vida, como a fizeres, estar   conti-  go em qualquer parte"
3120 DATA"O aguaceiro que te incomoda ‚ apoio da natureza para n„o te falte o p„o indis- pens vel … vida"
3130 DATA"N„o te aflijam dificuldades.            Anota as bˆn`„os de que disp”es"
3140 DATA"Convence-te de que n„o existem males    eternos"
3150 DATA"A dificuldade ‚ uma escola"
3160 DATA"N„o menosprezes a cr¡tica"
3170 DATA"O medicamento age, dose a dose.         O amor opera, gesto a gesto"
3180 DATA"N„o te ausentes dos pr¢prios encargos"
3190 DATA"Coragem ‚ a for`a que nasce ad nossa   pr¢pria disposi`„o de aprender e de    sevir"
3200 DATA"Deixai algum sinal de alegria, omde    passes"
3210 DATA"Ao ¡nves de criticar, procura  o  lado melhor das criaturas e das ocorrˆncias"
3220 DATA"Nunca retribuas mal por mal"
3230 DATA"Atrav‚s do melhor a relizar, procura a paz contigo mesmo"
3240 GOTO2660
3250 FORI=1TO5:KEY(I)OFF:NEXT:INTERVALOFF:GOTO420
3260 SOUND0,0:SOUND1,0:SOUND8,7
3270 O=7:LINE(X,Y)-(X+15,Y+25),3,BF:COLOR4:PSET(X,Y):PSET(X+15,Y+25):PSET(X+15,Y):PSET(X,Y+25):LINE(X+9,Y+7)-(X+9,Y+17):PSET(X+6,Y+17):LINE(X+5,Y+18)-(X+9,Y+18):PSET(X+6,Y+19):SOUND0,150
3280 LINE(X-3,Y-3)-(X+18,Y+28),3,B:COLOR15:SOUND0,62:SOUND1,2:SOUND8,31:RETURN
3290 IFV=1THENVN$=RIGHT$(VN$,LEN(VN$)-1)+LEFT$(VN$,1)
3300 CN=INT(RND(9)*10+6):INTERVALOFF:COLORCN:FORK=VTOV1:LINE((K-1)*8,1)-(K*8-1,8),4,BF:PRESET((K-1)*8,1):PRINT#1,MID$(VN$,K,1):NEXT
3310 FORK=VTOV1:LINE((K-1)*8,184)-(K*8-1,191),4,BF:PRESET((K-1)*8,184):PRINT#1,MID$(VN$,K,1):NEXT
3320 V=V+2:V1=V+2
3330 IFV1>=LEN(VN$)THENV=1:V1=3
3340 COLOR15:INTERVALON:RETURN
3350 STOP
3360 INTERVALOFF:SOUND0,0:SOUND1,2:SOUND8,10:QW=30:QA=50:FORI=1TOLEN(E$):SOUND0,QW:PRESET(XL,YL):PRINT#1,MID$(E$,I,1):XL=XL+6:SWAPQW,QA:IFXL>251THENXL=12:YL=YL+10
3370 NEXT:SOUND0,62:SOUND1,2:SOUND8,31:INTERVALON:RETURN
3380 COLOR1,1,15:SCREEN2:FORI=0 TO 190STEP5:LINE(127,90)-(0,I),15:LINE(127,90)-(255,I),15:NEXT:PAINT(150,130),15:PAINT(100,60),15:PRESET(110,90):PRINT#1,"F I M"
3390 GOTO3390
3400 A=INT(RND(1)*255):B=INT(RND(1)*40):C=INT(RND(1)*50):D=INT(RND(1)*191):E=INT(RND(1)*50)+160:G=INT(RND(1)*191):H=INT(RND(1)*50)+210
3410 COLOR15:PSET(A,B):PSET(C,D):PSET(A,E):PSET(H,G):COLOR1:FORKK=0TO9:PSET(A,B):PSET(C,D):PSET(A,E):PSET(H,G):NEXT:RETURN

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

1 STOPON:ONSTOPGOSUB3

2 GOTO4

3 NEW

4 DIMS(15):P=3:CP=0:D=10000:MM=1:COLOR15,4,11:SCREEN2,2:WIDTH39:OPEN"grp:"FOROUTPUTAS#1

10 FORI=1TO10:KEYI,"":NEXT

20 LINE(80,40)-(174,67),1,B:PRESET(97,50),POINT(97,50):PRINT#1,"MISTICOM":PRESET(40,95),POINT(40,95):PRINT#1,"O futuro ao seu alcance!"

30 PRESET(50,170):PRINT#1,"Gradiente Inform tica":RESTORE2510:FORI1=0TO14:GOSUB190:SPRITE$(I1)=R$:NEXT:COLOR15

40 SOUND1,100:SOUND8,31:SOUND11,155:SOUND12,120:SOUND13,10:SOUND3,2:SOUND9,31:SOUND5,50:SOUND10,90:SOUND0,50:SOUND2,24:SOUND4,20

50 COLOR15,1,1:CLS:FORX=0TO80:A=INT(RND(1)*255):B=INT(RND(1)*90):PSET(A,B),15:NEXT

60 FORT=0TO100STEP5:LINE(127,95)-(0,95+T),15:LINE(127,95)-(255,95+T):FORJ=0TO255:NEXT:NEXT:PAINT(127,96),15

70 LINE(67,86)-(187,86),7:LINE(67,86)-(127,0),7:LINE-(187,86),7:CIRCLE(127,70),12,7:PAINT(128,69),7:PUTSPRITE1,(107,38),4,1

80 CIRCLE(114,47),12,7:PAINT(115,46),7:PUTSPRITE2,(120,60),4,2:CIRCLE(140,47),12,7:PAINT(139,46),7:PUTSPRITE0,(133,38),4,0

90 COLOR1:PRESET(97,150),POINT(97,150):PRINT#1,"MISTICOM":COLOR15

100 FORJ=3TO14:S(J)=RND(-TIME)*255:NEXT

110 FORI=0TO255:NEXT:DEFUSR=&H90:A=USR(B):SOUND1,2:SOUND8,31:SOUND11,255:SOUND12,150:SOUND13,10:SOUND3,2:SOUND9,31:SOUND5,3:SOUND10,31:SOUND0,62:SOUND2,64:SOUND4,60:FORI=0TO4000:NEXT

120 GOSUB350

130 FORI=0TO4000:NEXT:DEFUSR=&H90:A=USR(B):SOUND1,2:SOUND8,31:SOUND11,255:SOUND12,200:SOUND13,10:SOUND3,2:SOUND9,31:SOUND5,3:SOUND10,31:SOUND0,62:SOUND2,64:SOUND4,60

140 LINE(0,181)-(255,191),4,BF:PRESET(28,182):PRINT#1,"Pressione qualquer tecla!"

150 FORJ=3TO14:S(J)=S(J)+RND(5)*9-RND(5):IFS(J)>32767THENS(J)=0:PUTSPRITEJ,(S(J),J*13-30)

160 PUTSPRITEJ,(S(J),J*13-30),J,J:NEXT:T$=INKEY$:IFT$=""THEN150ELSE420

170 DATA 1,1,3,5,5,19,61,41,e1,e1,z014,f,z003,80,40,40,30,c,4,e,e,z004,e0,0

180 DATA 1,61,51,89,5,5,3,ff,z017,z008,fe,80,60,50,11,e,z003

190 DATA 0,40,c0,40,40,e0,3,0,3,2,3,e0,80,e0,20,e0,0,7,1,3,1,7,z803,0,80,5,5,7,1,1

200 R$="":FORI=1TO32:READS$:IFS$>"y"THENT%=VAL(MID$(S$,4)):I=I+T%-1:A$=MID$(S$,2,2):FORJ=1TOT%:R$=R$+CHR$(VAL("&h"+A$)):NEXT:GOTO220

210 R$=R$+CHR$(VAL("&h"+S$))

220 NEXT:RETURN

230 DATA 6c,92,92,54,z104,z0024

240 DATA 84,84,48,30,48,84,84,48,30,z0023

250 DATA f7,z635,f7,z0013,80,z005,80,z009:

260 DATA 3f,48,84,84,47,31,0,ff,z008,f8,0,60,90,8,8,90,e0,z008

270 DATA 38,44,82,82,42,24,94,92,62,1,z006,z008,40,80,z006:'(5)

280 DATA 5,5,a,a,z2a6,1,2,z006,80,40,z204,40,80,40,30,z006

290 DATA 3,4,f8,0,ff,z0011,0,80,7c,0,fc,z0011

300 DATA 49,b6,z368,z006,0,zc08,z007

310 DATA 3,1,2,4,8,10,f8,40,z008,z803,z0013

320 DATA c0,41,41,4f,48,50,50,60,60,z007,c0,20,20,c0,40,z203,c0,z007

330 DATA 55,aa,0,55,aa,z0027:'11

340 DATA 40,e0,11,a,a,7f,a,a,11,e0,40,z005,40,e0,z003,c0,z003,e0,40,z005

350 RETURN:PLAY"t90","t90","t90"

360 FOR N=1 TO 3:PLAY"v15l16o4ee-co3aa-ao4ce-ee-co3aa-ao4ce-","v15o3e2e-4f4","v15o2a2a-4f4":NEXT

370 FOR N=1 TO 3:PLAY"v15l16o4aa-ecbco3bo4aa-eco5co4bdae","v15o3e2e-4f4","v15o2a2a-4f4":NEXT

380 FOR N=1 TO 3:PLAY"v15l16o4ee-co3aa-ao4ce-ee-co3aa-ao4ce-","v15o3e2e-4f4","v15o2a2a-4f4":NEXT

390 FOR N=1 TO 3:PLAY"v15l16o4aa-ecbco3bo4aa-eco5co4bdae","v15o3e2e-4f4","v15o2a2a-4f4":NEXT

400 PLAY"v15t35o4a4","v15t35o4c4","v15t35o2a4":RETURN

410 SOUND1,100:SOUND8,31:SOUND11,155:SOUND12,150:SOUND13,10:SOUND3,2:SOUND9,31:SOUND5,50:SOUND10,9:SOUND0,50:SOUND2,24:SOUND4,20:RETURN

420 COLOR15,1,1:SCREEN2:DEFUSR=&H90:A=USR(B):SOUND1,2:SOUND8,31:SOUND11,255:SOUND12,200:SOUND13,10:SOUND3,2:SOUND9,31:SOUND5,3:SOUND10,31:SOUND0,62:SOUND2,64:SOUND4,60

430 FORT=0TO30:A=INT(RND(1)*255):B=INT(RND(1)*40):C=INT(RND(1)*50):D=INT(RND(1)*191):E=INT(RND(1)*50)+160:G=INT(RND(1)*191):H=INT(RND(1)*50)+210

440 PSET(A,B),15:PSET(C,D):PSET(A,E):PSET(H,G):NEXT:COLOR7

450 PRESET(78,50),POINT(78,50):PRINT#1,"1 - Biorritmo":PRESET(78,70),POINT(68,70):PRINT#1,"2 - Hor¢scopo":PRESET(78,90),POINT(78,90):PRINT#1,"3 - Mensagens"

460 PRESET(78,110),POINT(68,110):PRINT#1,"4 - Fim":PRESET(60,140),POINT(60,140):PRINT#1,"Qual op`„o deseja?"

470 LINE(59,150)-(201,150),9:A$=INKEY$:IFA$=""THENGOSUB3400:LINE(59,150)-(201,150),11:GOTO470ELSEIFA$<"1"ORA$>"4"THEN470ELSEA=VAL(A$):SOUND8,0:SOUND11,0:SOUND12,0:SOUND13,0:ONAGOSUB480,1970,2660,3380

480 STOPON:'biorritmo

490 CLEAR1024:RESTORE1240:COLOR15,1,7:CN=15:CL=9

500 OPEN"GRP:"FOROUTPUTAS#1

510 DIMM$(12),DM(12),AD(13),Y1(6),X1(6),Z1(6),ME$(7,1)

520 FORK=1TO12:READDM(K):NEXT:FORK=1TO6:README$(K,0),ME$(K,1):NEXT

530 SCREEN2

540 GOSUB1350

550 ONKEYGOSUB770,850,930,530,1270

560 FORK=1TO4:KEY(K)OFF:NEXT:KEY(5)ON

570 PR=8

580 PI=3.14159

590 H=50

600 RR=6.8

610 COLOR11:XX=32:YY=130:GOSUB1510:COLOR15

620 MC=VAL(MC$):YC=VAL(YC$):DB=VAL(DB$):MB=VAL(MB$):YB=VAL(YB$)

630 T=(YC-YB)*365.25+(AD(MC)-AD(MB))+(DC-DB)

640 '

650 PD=2*PI*(T/23-INT(T/23)):ED=2*PI*(T/28-INT(T/28)):ID=2*PI*(T/33-INT(T/33))

660 GOSUB1880

670 '

680 PW=2*PI/23

690 EW=2*PI/28

700 IW=2*PI/33

710 '

720 '****

730 GOSUB1750:GOTO750

740 GOSUB1880

750 FORK=1TO4:KEY(K)ON:NEXT

760 XL=16:YL=137:XF=60:GOSUB1740:GOTO760

770 FORK=1TO4:KEY(K)OFF:NEXT:SOUND0,0:SOUND1,1:SOUND8,10:IE=1

780 YP%=INT(H*SIN(PD)*.7+.5):PY%=INT(H*SIN(PW*.5+PD)*.7+.5)

790 Y1(1)=191:FORX!=.5TO32STEP.42:'LINE(200,120)-(203,123),CM,BF:CM=15-CM

800 XG!=X!*RR+19

810 PY%=H*SIN(PW*X!+PD)*.7+.5:IFY1(1)>PY%THENX1(1)=XG!:Y1(1)=PY%

820 IFY1(2)<PY%THENX1(2)=XG!:Y1(2)=PY%

830 SOUND0,YP%+60:LINE(XG!-3,YP%+60)-(XG!,PY%+60),3:SWAPYP%,PY%

840 NEXTX!:SOUND0,62:SOUND1,2:SOUND8,31:GOTO1010

850 FORK=1TO4:KEY(K)OFF:NEXT:SOUND0,0:SOUND1,1:SOUND8,10:IE=3

860 YE%=INT(H*SIN(ED)*.7+.5):EY%=INT(H*SIN(EW*.5+ED)*.7+.5)

870 Y1(3)=191:FORX!=.5TO32STEP.42:'LINE(200,120)-(203,123),CM,BF:CM=15-CM

880 XG!=X!*RR+19

890 EY%=INT(H*SIN(EW*X!+ED)*.7+.5):IFY1(3)>EY%THENX1(3)=XG!:Y1(3)=EY%

900 IFY1(4)<EY%THENX1(4)=XG!:Y1(4)=EY%

910 SOUND0,YE%+60:LINE(XG!-3,YE%+60)-(XG!,EY%+60),9:SWAPYE%,EY%

920 NEXTX!:SOUND0,62:SOUND1,2:SOUND8,31:GOTO1010

930 FORK=1TO4:KEY(K)OFF:NEXT:SOUND0,0:SOUND1,1:SOUND8,10:IE=5

940 YI%=H*SIN(ID)*.7+.5:IY%=H*SIN(IW*.5+ID)*.7+.5

950 Y1(5)=191:FORX!=.5TO32STEP.42:'LINE(200,120)-(203,123),CM,BF:CM=15-CM

960 XG!=X!*RR+19

970 IY%=H*SIN(IW*X!+ID)*.7+.5:IFY1(5)>IY%THENX1(5)=XG!:Y1(5)=IY%

980 IFY1(6)<IY%THENX1(6)=XG!:Y1(6)=IY%

990 SOUND0,YI%+60:LINE(XG!-3,YI%+60)-(XG!,IY%+60),11:SWAPYI%,IY%

1000 NEXTX!:SOUND0,62:SOUND1,2:SOUND8,31

1010 GOSUB1800:GOTO740

1020 IFEL<>1THEN1040

1030 IFIE=3THENPRESET(240,EY+60):PRINT#1,"E";

1040 IFIL<>1THEN1080

1050 '

1060 IFIE=5THENPRESET(240,IY+60):PRINT#1,"I";

1070 FORK=1TO4:KEY(K)ON:NEXT

1080 GOSUB1800:GOTO740

1090 '***

1100 ONIEGOTO1110,740,1130,740,1180

1110 PP=INT(PY%+60)

1120 PRESET(10,PP):PRINT#1,"F":RETURN

1130 EP=INT(EY%+60)

1140 IFEP>=PP-8ANDEP<=PP+8THENEL=1:GOTO1170

1150 '

1160 PRESET(10,EP):PRINT#1,"E"

1170 RETURN

1180 IP=INT(IY%+60)

1190 IF(IP>=PP-8ANDIP<=PP+8)OR(IP>=EP-8ANDIP<=EP+8)THENIL=1:GOTO1220

1200 '

1210 PRESET(10,IP):PRINT#1,"I";

1220 RETURN

1230 '***

1240 DATA31,29,31,30,31,30,31,31,30,31,30,31

1250 DATAPratique bastante esporte,Corra a vontade,N„o se esforce,Cuidado para n„o se cansar,Visite seus amigos,Irradie alegria

1260 DATAN„o fique s¢,Passeie no parque,Estude,Organize sua vida,V ao cinema,Cuidado com as provas

1270 FORI=1TO5:KEY(I)OFF:NEXT:GOTO420

1280 SOUND0,0:SOUND1,2:SOUND8,10:K=30:K1=50:FORI=1TOLEN(E$):SOUND0,K:PRESET(XL,YL):PRINT#1,MID$(E$,I,1):XL=XL+6:SWAPK,K1:NEXT

1290 SOUND0,62:SOUND1,2:SOUND8,31:RETURN

1300 COLOR11:D$=""

1310 A$=INKEY$:IFA$=""THEN1310

1312 IFA$=CHR$(8)ANDLEN(D$)<>0THEN1313ELSE1320

1313 LINE(XL-6,YL)-(XL,YL+7),1,BF:E$="_":XL=XL-6:YL=YL+2:GOSUB1280:YL=YL-2:D$="":GOTO1310

1320 A=ASC(A$):IFA<48ORA>57THEN1310

1330 D$=D$+A$:E$=D$:XL=XI:GOSUB1280:IFLEN(D$)>=2THENCOLOR9:RETURNELSE1310

1340 IFLEN(D$)>=2THENRETURNELSE1310

1350 COLOR9

1360 E$="Nasc.:":XL=20:YL=8:GOSUB1280

1370 E$="Biorr¡tmo de:":XL=125:YL=8:GOSUB1280:COLOR15:X=18

1380 LINE(18,20)-(18,100):LINE(237,20)-(237,100)

1390 FORCO=5TO35STEP3

1400 LINE(X,58)-(X,62)

1410 X=X+21.9

1420 NEXTCO

1430 LINE(18,60)-(237,60):LINE(18,20)-(237,20):LINE(18,100)-(237,100)

1440 'LINE(18,60)-(237,60):LINE(18,20)-(237,20):LINE(18,100)-(18,114):LINE(18,114)-(237,114):LINE(237,114)-(237,100)

1450 RETURN

1460 IFY1(6)<IYTHENX1(6)=XG:Y1(6)=IY

1470 SOUND0,YI+110:LINE(XG-3,YI+60)-(XG,IY+60),1:LINE(XG-3,YI+60)-(XG,IY+60),11:SWAPYI,IY:RETURN

1480 IE=1:GOTO780

1490 IE=3:GOTO780

1500 IE=5:GOTO780

1510 E$="Escreva a data do seu nascimento:":XL=XX:YL=YY:GOSUB1280:E$="Exemplo: Dia: 05":XL=XX:YL=YY+8:GOSUB1280

1520 GOSUB1650:COLOR9:E$="Dia:":XL=XX:YL=YY+18:GOSUB1280:E$="__":XL=XL+6:YL=YL+2:GOSUB1280:XI=XX+30:YL=YY+18:GOSUB1300:DB$=D$

1530 GOSUB1650:COLOR9:E$="Mˆs:":XL=XX:YL=YY+18:GOSUB1280:E$="__":XL=XL+6:YL=YL+2:GOSUB1280:XI=XX+30:YL=YY+18:GOSUB1300:MB$=D$

1540 GOSUB1650:COLOR9:E$="Ano:":XL=XX:YL=YY+18:GOSUB1280:E$="__":XL=XL+6:YL=YL+2:GOSUB1280:XI=XX+30:YL=YY+18:GOSUB1300:YB$=D$:GOSUB1660

1550 GOSUB1700:E$="A data est correta? (S=sim/N=n„o)":XL=XX-16:YL=YY:GOSUB1280

1560 A$=INKEY$:IFA$=""THEN1560ELSEIFA$="s"ORA$="S"THENGOSUB1660:GOTO1570ELSEGOSUB1710:GOSUB1660:GOTO1510

1570 D=VAL(DB$):M=VAL(MB$):AN=VAL(YB$):IF(M<1ORM>12)OR(M=2ANDD>29+((AN-60)MOD4<>0))ORAN>88THEN1680

1580 IFD<1ORD>DM(M)THEN1680

1590 E$="Escreva a data deste biorr¡tmo:":XL=XX:YL=YY:GOSUB1280:E$="Exemplo: Mˆs: 05":XL=XX:YL=YY+8:GOSUB1280

1600 COLOR9:E$="Mˆs:":XL=XX:YL=YY+18:GOSUB1280:E$="__":XL=XL+6:YL=YL+2:GOSUB1280:XI=XX+30:YL=YY+18:GOSUB1300:MC$=D$:GOSUB1650

1610 COLOR9:E$="Ano:":XL=XX:YL=YY+18:GOSUB1280:E$="__":XL=XL+6:YL=YL+2:GOSUB1280:XI=XX+30:YL=YY+18:GOSUB1300:YC$=D$:GOSUB1660

1620 GOSUB1720:E$="A data est correta? (S=sim/N=n„o)":XL=XX-16:YL=YY:GOSUB1280

1630 A$=INKEY$:IFA$=""THEN1630ELSEIFA$="s"ORA$="S"THENGOSUB1660:GOTO1640ELSEGOSUB1730:GOSUB1660:GOTO1590

1640 D=VAL(MC$):IFD<1ORD>12THEN1690

1650 LINE(XX,YY+18)-(XX+44,YY+26),1,BF:RETURN

1660 LINE(XX-18,YY)-(XX+235,YY+30),1,BF:RETURN

1670 D=VAL(D$):IFD<1ORD>DM(DB)THENRETURN

1680 GOSUB1710:COLOR9:E$="Data inv lida!":XL=XX+50:YL=YY:GOSUB1280:FORK=0TO3000:NEXT:GOSUB1660:COLOR11:GOTO1510

1690 COLOR9:E$="Data inv lida!":XL=XX+50:YL=YY:GOSUB1280:FORK=0TO3000:NEXT:GOSUB1660:GOSUB1730:COLOR11:GOTO1590

1700 COLOR7:E$=DB$+"/"+MB$+"/"+YB$:XL=57:YL=8:GOSUB1280:COLOR11:RETURN

1710 COLOR1:E$=DB$+"/"+MB$+"/"+YB$:XL=57:YL=8:GOSUB1280:COLOR11:RETURN

1720 COLOR7:E$=MC$+"/"+YC$:XL=203:YL=8:GOSUB1280:COLOR11:RETURN

1730 COLOR1:E$=MC$+"/"+YC$:XL=203:YL=8:GOSUB1280:COLOR11:RETURN

1740 SWAPCN,CL:LINE(XL,YL)-(XF,YL),CN:FORK=0TO40:NEXT:RETURN

1750 PL=PL+1:COLOR7:D$=" 1":D=1:FORCO=5TO35STEP3

1760 E$=D$:YL=105:XL=PL:GOSUB1280

1770 PL=PL+20.6:D=D+3:IFD>DM(MC)THEND$=" ":GOTO1790

1780 D$=STR$(D)

1790 NEXTCO:COLOR15:RETURN

1800 GOSUB1870

1810 F=INT(RND(-TIME)*2):F1=INT(RND(-TIME)*2)

1820 D1=INT((X1(IE+F)-19)/RR+.5)

1830 IFD1>31THEND1=31ELSEIFD1<1THEND1=1

1832 IFIE=1THENE$="F¡sico:":GOTO1838

1834 IFIE=3THENE$="Emocional:":GOTO1838

1836 E$="Intelectual:"

1838 XL=16:YL=135:GOSUB1280

1840 E$=ME$(IE+F,F1)+" no dia"+STR$(D1)+"!":XL=16:YL=145:GOSUB1280

1850 XL=16:YL=155:XF=15+LEN(E$)*6:FORKK=0TO50:GOSUB1740:NEXT

1860 GOSUB1870:RETURN

1870 LINE(10,125)-(250,190),1,BF:RETURN

1880 FORI=1TO4:KEY(I)OFF:NEXT:COLOR7:E$="Escolha:":XL=16:YL=128:GOSUB1280

1890 COLOR9:E$="[F1] =":XL=16:YL=140:GOSUB1280:COLOR7:E$="Curva de seu estado":XL=58:YL=140:GOSUB1280:COLOR3:E$="f¡sico.":XL=178:YL=140:GOSUB1280:COLOR9

1900 E$="[F2] =":XL=16:YL=150:GOSUB1280:COLOR7

1910 E$="Curva de seu estado":XL=58:YL=150:GOSUB1280:COLOR9:E$="emocional.":XL=178:YL=150:GOSUB1280

1920 E$="[F3] =":XL=16:YL=160:GOSUB1280:COLOR7:E$="Curva de seu estado":XL=58:YL=160:GOSUB1280:COLOR11:E$="intelectual.":XL=178:YL=160:GOSUB1280

1930 COLOR9:E$="[F4] =":XL=16:YL=170:GOSUB1280:COLOR7:E$="Outro biorr¡tmo.":XL=58:YL=170:GOSUB1280:COLOR9:E$="[F5] =":XL=16:YL=180:GOSUB1280

1940 COLOR7:E$="Fim.":XL=58:YL=180:GOSUB1280

1950 X=18:PL=14:E$="dias do mˆs":XL=97:YL=117:GOSUB1280:COLOR15

1960 RETURN

1970 STOPON:CLEAR1024:OPEN"GRP:"FOROUTPUTAS#1:FL=1:DIMSG$(12),RG$(12),UG$(12),YG(12):GOSUB2210:DF=2

1980 COLOR15,0,0:SCREEN2:GOTO1990

1990 CL=1:GOSUB2080:FORI=10TO180STEP15:LINE(8,I)-(28,I+15),15,B:I1=((I-10)\15)+3:CL=CL+1:PUTSPRITEI1,(12,I+2),CL,I1:YG(I1-2)=I+3:NEXT:XX=43:YY=40

2000 LINE(40,30)-(255,191),0,BF:GOSUB2220:GOSUB2340

2010 XL=XX:YL=YY+5:E$="Signo: "+SG$(SG):GOSUB2140:LINE(XX,YL+8)-(XX+30,YL+8),7:E$="S¡mbolo:":XL=XX:YL=YL+15:GOSUB2140:LINE(XX,YL+8)-(XX+43,YL+8),7:XB=8:YB=YG(SG):M=XL+8:R=YL:GOSUB2090

2020 E$="Influˆncias: ":XL=XX:YL=YY+40:GOSUB2140:LINE(XX,YY+48)-(XX+65,YY+48),7:E$=RG$(SG)+".":GOSUB2140:E$="An lise:":XL=XX:YL=110:GOSUB2140:LINE(XX,YL+8)-(XL-7,YL+8),7:E$=UG$(SG)+".":XL=XX:YL=120:GOSUB2140:

2030 COLOR9:E$="[F4]=":XL=XX:YL=180:GOSUB2140:COLOR15:E$=" Novo Hor¢scopo":GOSUB2140:COLOR9:E$="[F5]=":XL=XX+144:GOSUB2140:E$=" Fim":COLOR15:GOSUB2140

2040 KEY(5)ON:KEY(4)ON:ONKEYGOSUB,,,2120,2130:BN=250

2050 GOSUB2060:PUTSPRITE31,(BN,0),VC,DF:IFTT=1THENTT=0:KEY(4)OFF:KEY(5)OFF:PUTSPRITE31,(0,209):GOTO2000ELSE2050

2060 BN=BN+2:IFBN>250THENBN=30:VC=INT(RND(1)*15):IFVC<2THENBN=250:GOTO2060ELSEDF=DF+1:IFDF>14THENDF=3

2070 RETURN

2080 COLOR9:PRESET(60,Y+10):PRINT#1,"H o r ¢ s c o p o":LINE(54,Y+19)-(200,Y+19):COLOR15:RETURN

2090 M1=M-XB:M2=R-YB:IFM1=0THENM1=1E-08ELSEIFM2=0THENM2=1E-08

2100 IFABS(M1)>ABS(M2)THENN%=ABS(M1):DX=M1/N%:DY=M2/N%:ELSEN%=ABS(M2):DY=M2/N%:DX=M1/N%

2110 INTERVALSTOP:SOUND0,0:SOUND1,0:SOUND8,15:FORI=OTON%-1:PUTSPRITESG+2,(XB+I*DX,YB+I*DY),SG+1,SG+2:SOUND0,I:NEXT:FORI=15TO0STEP-1:SOUND8,I:FORJ=0TO30:NEXT:NEXT:SOUND0,62:SOUND1,2:SOUND8,31:RETURN

2120 TT=1:PUTSPRITESG+2,(12,YG(SG)),SG+1,SG+2:RETURN

2130 FORI=1TO10:KEY(I)OFF:NEXT:GOTO420

2140 SOUND0,0:SOUND1,2:SOUND8,10:QW=30:QA=50:KX=XX:FORI=1TOLEN(E$):SOUND0,QW:PRESET(XL,YL):PRINT#1,MID$(E$,I,1):XL=XL+6:SWAPQW,QA:IFXL>254THENYL=YL+10:XL=KX

2150 NEXT:SOUND0,62:SOUND1,2:SOUND8,31:RETURN

2160 READE$:XL=VAL(MID$(E$,1,3)):YL=VAL(MID$(E$,4,3)):E$=MID$(E$,7):GOSUB2140:RETURN

2170 D$=""

2180 A$=INKEY$:IFA$=""THEN2180

2182 IFA$=CHR$(8)ANDLEN(D$)<>0THEN2183ELSE2190

2183 LINE(XL-6,YL)-(XL,YL+7),0,BF:E$="_":XL=XL-6:YL=YL+2:GOSUB2140:YL=YL-2:D$="":GOTO2180

2190 A=ASC(A$):IFA<48ORA>57THEN2180

2200 D$=D$+A$:E$=D$:XL=XI:GOSUB2140:IFLEN(D$)>=2THENRETURNELSE2180

2210 RESTORE2380:FORK=1TO12:READSG$(K):NEXT:FORK=1TO12:READRG$(K):NEXT:FORK=1TO12:READUG$(K):NEXT:RETURN

2220 E$="Escreva a data do seu nascimento":XL=XX:YL=YY:GOSUB2140:E$="Exemplo: Dia: 05":XL=XX:YL=YY+8:GOSUB2140

2230 GOSUB2290:E$="Dia:":XL=XX:YL=YY+18:GOSUB2140:E$="__":XL=XL+6:YL=YL+2:GOSUB2140:XI=XX+30:YL=YY+18:GOSUB2170:DB$=D$

2240 GOSUB2290:E$="Mˆs:":XL=XX:YL=YY+18:GOSUB2140:E$="__":XL=XL+6:YL=YL+2:GOSUB2140:XI=XX+30:YL=YY+18:GOSUB2170:MB$=D$

2250 GOSUB2290:E$="Ano:":XL=XX:YL=YY+18:GOSUB2140:E$="__":XL=XL+6:YL=YL+2:GOSUB2140:XI=XX+30:YL=YY+18:GOSUB2170:YB$=D$:GOSUB2300

2260 GOSUB2320:E$="A data est correta?":XL=XX:YL=YY:GOSUB2140:E$="(S = sim / N = n„o)":YL=YL+10:XL=XX:GOSUB2140

2270 A$=INKEY$:IFA$=""THEN2270ELSEIFA$="s"ORA$="S"THENGOSUB2300:GOTO2280ELSELINE(XX-10,YY-10)-(XX+235,YY+30),0,BF:GOSUB2300:GOTO2220

2280 M=VAL(MB$):AN=VAL(YB$):DB=VAL(DB$):IF(M<1ORM>12)OR(M=2ANDDB>29+((VAL(YB$)-60)MOD4<>0))ORAN>88ORDB<1ORM<1THEN2310ELSERETURN

2290 LINE(XX,YY+18)-(XX+44,YY+26),0,BF:RETURN

2300 LINE(XX-10,YY)-(XX+235,YY+30),0,BF:RETURN

2310 GOSUB2330:E$="Data inv lida!":XL=XX:YL=YY:GOSUB2140:SOUND0,0:SOUND8,15:SOUND1,2:FORK=1TO255:SOUND0,K:FORL=0TO4:NEXT:NEXT:SOUND8,31:SOUND0,62:LINE(XX-10,YY-10)-(XX+235,YY+30),0,BF:GOTO2220

2320 E$="Nascimento: "+DB$+"/"+MB$+"/"+YB$:XL=XX:YL=YY-10::GOSUB2140:LINE(XX,YY-2)-(XX+60,YY-2),7:RETURN

2330 IFFL=1THENRETURNELSE:E$=DB$+" "+MB$+" "+YB$:XL=57:YL=8:GOSUB2140:COLOR15:RETURN

2340 IF(M=3ANDDB>=22)OR(M=4ANDDB<21)THENSG=1ELSEIF(M=4ANDDB>20)OR(M=5ANDDB<21)THENSG=2ELSEIF(M=5ANDDB>20)OR(M=6ANDDB<21)THENSG=3ELSEIF(M=6ANDDB>20)OR(M=7ANDDB<22)THENSG=4ELSEIF(M=7ANDDB>21)OR(M=8ANDDB<23)THENSG=5ELSEIF(M=8ANDDB>22)OR(M=9ANDDB<23)THENSG=6

2350 IF(M=9ANDDB>22)OR(M=10ANDDB<23)THENSG=7ELSEIF(M=10ANDDB>22)OR(M=11ANDDB<22)THENSG=8ELSEIF(M=11ANDDB>21)OR(M=12ANDDB<22)THENSG=9ELSEIF(M=12ANDDB>21)OR(M=1ANDDB<21)THENSG=10ELSEIF(M=1ANDDB>20)OR(M=2ANDDB<20)THENSG=11

2360 IF(M=2ANDDB>19)OR(M=3ANDDB<22)THENSG=12

2370 RETURN

2380 DATA ries,touro,gˆmeos,cƒncer,le„o,virgem,libra,escorpi„o,sagit rio,capric¢rnio,aqu rio,peixes

2390 DATA"cabe`a, face e a cons- ciˆncia","pesco`o, garganta e o movimento","ombros, m„os e a subs- tƒncia"," peito, est“mago, f¡- gado e a respira`„o"," dorso, cora`„o e a vitalidade","ventre, intestinos, plexo solar, m£sculos e a forma"

2400 DATA"regi„o lombar, rins, bexiga,pele e o sexo","¢rg„os genitais e o desejo","n degas, coxas, art‚- rias,tronco, fˆmur e o pensamento","joelhos, pele, esque- leto,unhas,cabelo e a individuali- dade"

2410 DATA"barriga das pernas, tornozelos, circula`„o do sangue e sistema nervoso","a planta e os dedos dos p‚s e nervos do corpo

2420 DATA"Vocˆ que ‚ nascido em ries tem muita energia mental;‚ inclinado a mandar e estar … frente ou ocupar lugares independentes"

2430 DATA"Vocˆ de touro ‚ uma pessoa s¢lida, reservada, pr tica, obstinada, conservativa, persistente e amante da luta"

2440 DATA"Vocˆ de gˆmeos tem inclina`„o aos estudos ou com‚rcio, sensibilida- de, afabilidade, por‚m inconstante nos sentimentos"

2450 DATA"Vocˆ que ‚ de cƒncer se caracteri- za por sua tenacidade, perseveran- `a, economia, atividade, coragem, energia e aud cia

2460 DATA"Vocˆ de le„o tem grande energia e for`a, car ter firme, inflex¡vel, perseverante, leal, ambicioso, fi- los¢fico e filantr¢pico"

2470 DATA"Vocˆ que ‚ de virgem distingue-se pelo racioc¡nio e pelo ju¡zo; ‚ pr tico, inteligente e engenhoso","Vocˆ que ‚ nascido em libra ‚ uma pessoa equilibrada e am vel, ama a justi`a, a paz, o prazer, a harmo- nia e a arte"

2480 DATA"Vocˆ de escorpi„o tem natureza vi- va, cr¡tica e desconfiada;‚ reser- vado, firme, econ“mico e calculis- ta","Vocˆ nascido em sagit rio ‚ uma pessoa alegre, jovial, generosa, franca, honesta e dif¡cil de desa- nimar"

2490 DATA"Vocˆ de capric¢rnio ‚ uma pessoa prudente, inteligente, pensativa, s‚ria e perseve²Ø·te;um tanto fria, por‚m sincera e fiel","Vocˆ que nasceu em aqu rio ‚ sen- s¡vel, de bom cora`„o, firme, inte- ligente e prudente

2500 DATA "Vocˆ de peixes ‚ uma pessoa mansa, idealista, paciente,inofensiva, in- gˆnua, amante da ordem, confiante e simp tica"

2510 DATA 1,1,3,5,5,19,61,41,e1,e1,z014,f,z003,80,40,40,30,c,4,e,e,z004,e0,0

2520 DATA 1,61,51,89,5,5,3,ff,z017,z008,fe,80,60,50,11,e,z003

2530 DATA 0,40,c0,40,40,e0,3,0,3,2,3,e0,80,e0,20,e0,0,7,1,3,1,7,z803,0,80,5,5,7,1,1

2540 DATA0,0,d,12,12,a,z024,z008,80,40,40,80,z0010

2550 DATA0,10,10,9,6,9,10,10,9,6,z007,80,80,z003,z802,z008

2560 DATA0,0,3d,z185,3d,z009,e0,zc05,e0,z007

2570 DATA 0,3f,48,84,84,47,31,0,ff,z008,f8,0,60,90,8,8,90,e0,z007

2580 DATA 38,44,82,82,42,24,94,92,62,1,z006,z008,40,80,z006

2590 DATA 14,2a,29,za84,a9,aa,5,8,z008,z804,z003,c0,z005

2600 DATA 0,0,3,4,f8,0,ff,z0011,0,80,7c,0,fc,z009

2610 DATA 49,b6,z368,z006,0,zc05,ce,c6,da,d8,78,z005

2620 DATA 3,1,2,4,8,10,f8,40,z008,z803,z0013

2630 DATA c0,41,41,4f,48,50,50,60,60,z007,c0,20,20,c0,40,z203,c0,z007

2640 DATA 0,0,55,aa,0,55,aa,z0025

2650 DATA 40,e0,11,a,a,7f,a,a,11,e0,40,z005,40,e0,z003,c0,z003,e0,40,z005

2660 STOPON:CLEAR1024:RESTORE3020:COLOR15,4,7:SCREEN2:OPEN"grp:"FOROUTPUTAS#1:DIMMT$(21):KEY(5)ON:KEY(4)ON:ONKEYGOSUB,,,3240,3250

2670 REM

2680 FORI=0TO21:READMT$(I):NEXT

2690 B$=STR$(INT(RND(-TIME)*9)):VN$=VN$+MID$(B$,2,LEN(B$)-1):IFLEN(VN$)<32THEN2690

2700 COLOR3:PRESET(0,1):PRINT#1,VN$:PRESET(0,184):PRINT#1,VN$:K=1:FORI=12TO180STEP9:PRESET(1,I):PRINT#1,MID$(VN$,K,1):PRESET(248,I):PRINT#1,MID$(VN$,K,1):K=K+1:NEXT:COLOR15

2710 V=1:ONINTERVAL=100GOSUB3290

2720 INTERVALON:E$="M E N S A G E N S":XL=75:YL=20:GOSUB3360:LINE(69,30)-(183,31),9,B

2730 LINE(15,162)-(240,176),10,B:E$="[F4] =":XL=27:YL=166:COLOR9:GOSUB3360:E$=" Nova Consulta":XL=57:YL=166:COLOR15:GOSUB3360:E$="[F5] =":XL=167:YL=166:COLOR9:GOSUB3360:E$=" Fim":XL=197:YL=166:COLOR15:GOSUB3360:COLOR15

2740 E$="Escreva seu nome completo":XL=51:YL=60:GOSUB3360

2750 E$="e tecle":XL=94:YL=82:GOSUB3360:X=148:Y=75:GOSUB3260:N$=""

2760 XL=18:YL=140:E$="nome: ______________________________":GOSUB3360:XL=54

2770 INTERVALON:A$=INKEY$:IFA$=""THEN2770ELSEINTERVALOFF:IFA$=" "THEN2780ELSEIFA$=CHR$(13)THEN2800ELSEIFA$=CHR$(8)THEN2790ELSEIFA$<"A"ORA$>CHR$(183)THEN2770ELSE2780

2780 LINE(XL,140)-(XL+6,148),4,BF:PRESET(XL,140):PRINT#1,A$:N$=N$+A$:XL=XL+6:IFXL>233THEN2800ELSE2770

2790 IFLEN(N$)=0THEN2770ELSEXL=XL-6:LINE(XL,140)-(XL+6,148),4,BF:PRESET(XL+1,140):PRINT#1,"_":N$=MID$(N$,1,LEN(N$)-1):GOTO2770

2800 IFN$=""THEN 2770

2810 LINE(8,40)-(246,160),4,BF

2820 E$="Nome: "+N$:XL=18:YL=45:GOSUB3360:E$="Letra = Sub-total =":XL=18:YL=60:GOSUB3360:INTERVALOFF

2830 A=0:FORI=1TOLEN(N$):A$=MID$(N$,I,1)

2840 IFA$=" "THEN2950

2850 IFA$<"L"THEND=ASC(A$)-64:A=A+D:GOTO2950

2860 IFA$<"U"THEND=(ASC(A$)-74)*10:A=A+D:GOTO2950

2870 IFA$<"X"THEND=200:A=A+D:GOTO2950

2880 IFA$="X"THENA=A+200:GOTO2950

2890 IFA$="Y"THENA=A+9:GOTO2950

2900 IFA$="Z"THENA=A+400:GOTO2950

2910 IFA$="‚"ORA$=""THENA=A+5:GOTO2950

2920 IFA$="„"ORA$="Ž"THENA=A+1:GOTO2950

2930 IFA$="`"ORA$="~"THENA=A+3:GOTO2950

2940 IFASC(A$)>90THENA$=CHR$(ASC(A$)-32):GOTO2840

2950 LINE(66,60)-(72,70),4,BF:PRESET(66,60):PRINT#1,A$:LINE(162,60)-(226,70),4,BF:PRESET(162,60):PRINT#1,A:FORJ=0TO500:NEXT:NEXT:IFA<23THEN2970

2960 A$=STR$(A):A=0:A$=RIGHT$(A$,LEN(A$)-1):FORI=1TOLEN(A$):A=A+VAL(MID$(A$,I,1)):NEXT:IFA>22THEN2960

2970 INTERVALON:LINE(12,60)-(230,70),4,BF:E$="A sua mensagem de for`a ‚:"+STR$(A):XL=18:YL=60:GOSUB3360

2980 COLOR9:E$="Mensagem:":XL=18:YL=90:GOSUB3360:COLOR15

2990 E$=MT$(A-1)+".":XL=18:YL=115:GOSUB3360

3000 KEY(4)ON

3010 GOTO3010

3020 DATA"Ao inv‚s de criticar, procura o lado melhor das criaturas e das ocorrˆncias, de modo a constru¡res o bem, onde esti- veres"

3030 DATA"Por mais speros se te mostrem os obs- t culos da estrada, segue adiante"

3040 DATA"N„o fujas dos problemas com que a vida te instrui"

3050 DATA"Lembra-te de que falando ou silencian- do, sempre ‚ poss¡vel fazer algum bem"

3060 DATA"N„o exijas de ningu‚m a obriga`„o de seguir-te os modelos de vida e pensa- mento"

3070 DATA"N„o acredites em felicidade no campo ¡ntimo, sem o teu pr¢prio trabalho para constru¡-la"

3080 DATA"Se erraste, recome`a"

3090 DATA"Esquece as ofensas, quaisquer que sejam"

3100 DATA"Lembra-te sempre: cada dia nasce de novo ao amanhecer"

3110 DATA"A vida, como a fizeres, estar conti- go em qualquer parte"

3120 DATA"O aguaceiro que te incomoda ‚ apoio da natureza para n„o te falte o p„o indis- pens vel … vida"

3130 DATA"N„o te aflijam dificuldades. Anota as bˆn`„os de que disp”es"

3140 DATA"Convence-te de que n„o existem males eternos"

3150 DATA"A dificuldade ‚ uma escola"

3160 DATA"N„o menosprezes a cr¡tica"

3170 DATA"O medicamento age, dose a dose. O amor opera, gesto a gesto"

3180 DATA"N„o te ausentes dos pr¢prios encargos"

3190 DATA"Coragem ‚ a for`a que nasce ad nossa pr¢pria disposi`„o de aprender e de sevir"

3200 DATA"Deixai algum sinal de alegria, omde passes"

3210 DATA"Ao ¡nves de criticar, procura o lado melhor das criaturas e das ocorrˆncias"

3220 DATA"Nunca retribuas mal por mal"

3230 DATA"Atrav‚s do melhor a relizar, procura a paz contigo mesmo"

3240 GOTO2660

3250 FORI=1TO5:KEY(I)OFF:NEXT:INTERVALOFF:GOTO420

3260 SOUND0,0:SOUND1,0:SOUND8,7

3270 O=7:LINE(X,Y)-(X+15,Y+25),3,BF:COLOR4:PSET(X,Y):PSET(X+15,Y+25):PSET(X+15,Y):PSET(X,Y+25):LINE(X+9,Y+7)-(X+9,Y+17):PSET(X+6,Y+17):LINE(X+5,Y+18)-(X+9,Y+18):PSET(X+6,Y+19):SOUND0,150

3280 LINE(X-3,Y-3)-(X+18,Y+28),3,B:COLOR15:SOUND0,62:SOUND1,2:SOUND8,31:RETURN

3290 IFV=1THENVN$=RIGHT$(VN$,LEN(VN$)-1)+LEFT$(VN$,1)

3300 CN=INT(RND(9)*10+6):INTERVALOFF:COLORCN:FORK=VTOV1:LINE((K-1)*8,1)-(K*8-1,8),4,BF:PRESET((K-1)*8,1):PRINT#1,MID$(VN$,K,1):NEXT

3310 FORK=VTOV1:LINE((K-1)*8,184)-(K*8-1,191),4,BF:PRESET((K-1)*8,184):PRINT#1,MID$(VN$,K,1):NEXT

3320 V=V+2:V1=V+2

3330 IFV1>=LEN(VN$)THENV=1:V1=3

3340 COLOR15:INTERVALON:RETURN

3350 STOP

3360 INTERVALOFF:SOUND0,0:SOUND1,2:SOUND8,10:QW=30:QA=50:FORI=1TOLEN(E$):SOUND0,QW:PRESET(XL,YL):PRINT#1,MID$(E$,I,1):XL=XL+6:SWAPQW,QA:IFXL>251THENXL=12:YL=YL+10

3370 NEXT:SOUND0,62:SOUND1,2:SOUND8,31:INTERVALON:RETURN

3380 COLOR1,1,15:SCREEN2:FORI=0 TO 190STEP5:LINE(127,90)-(0,I),15:LINE(127,90)-(255,I),15:NEXT:PAINT(150,130),15:PAINT(100,60),15:PRESET(110,90):PRINT#1,"F I M"

3390 GOTO3390

3400 A=INT(RND(1)*255):B=INT(RND(1)*40):C=INT(RND(1)*50):D=INT(RND(1)*191):E=INT(RND(1)*50)+160:G=INT(RND(1)*191):H=INT(RND(1)*50)+210

3410 COLOR15:PSET(A,B):PSET(C,D):PSET(A,E):PSET(H,G):COLOR1:FORKK=0TO9:PSET(A,B):PSET(C,D):PSET(A,E):PSET(H,G):NEXT:RETURN

Compartilhe:

julho 2017
D	S	T	Q	Q	S	S
				ago »
						1
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