Misticom
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 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 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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 |