BATTLETECHm"m"o" 9000(# &0:7:0:1: ?"DISE\O DE BATLEMECH by ALEAsoft corporation plc. 1993" "NOMBRE DEL MODELO:";n$ ("MODELO:";n$ 2/"TONELAJE:";tone'"PUNTOS DE MOVIMIENTO:";pmov 100d((tone/5))*5tone502 F*pmovɺpmovpmov*tone>400502 Pj"TONELADAS TOTALES:";tone'"PUNTOS DE MOVIMIENTO"'"ANDANDO:";pmov'"CORRIENDO:";(pMOV*1.5@+.9ffff) Z "REACTOR:"; dpot=pmov*tone nnpot=pot/5-1 x a$(npot) !"POTENCIA:";pot,"PESO:";a(npot) !giros=(pot/100d+.9ffff) R"CABINA:PESO:3"'"GIROSCOPO:PESO:";giros'"ESTRUCTURA INTERNA:PESO:";tone/10 "BINDAJE INTERNO:" ""TORSO LADOS BRAZOS PIES CABEZA" ntone=tone/5-1 y2;b(ntone,1);8;b(ntone,2);14;b(ntone,3);20;b(ntone,4);27;"3" Apmsal=0:toner=tone-(tone/10 )-3-a(npot)-giros '"ESPACIO VACIO:";toner:pmsal=0 ("DESEAS QUE SALTE(S/N)";r$:r$=r$+" " ,r$(1)="n"r$(1)="N"330J 1pesret=1:tone<568pesret=0.5 tone>89Ypesret=2 !"PESO POR RETROREACTOR:";pesret  "NUMERO DE PM SALTANDO:";pmsal pmsal*pesret>toner270 ""PM SALTANDO:";pmsal ,%"PESO RETROREACTORES:";pmsal*pesret 6toner=toner-pmsal*pesret @"ESPACIO VACIO:";toner Jradi=10 T"RADIADORES ACTUALES:";radi ^!"PESO POR RADIADOR ADICIONAL:1" h!"RADIADORES ADICIONALES:";radia r""RADIADORES TOTALES:";radi+radia |"PESO DE RADIADORES:";radia ~6x=(10 -(pot/25)):x < 0x=0 radine=radia+x "RADIADORES VISIBLES:";radine toner=toner-radia "ESPACIO VACIO:";toner 6#0;"PULSA UNA TECLA PARA CONTINUAR":0: c(11 ):tonblin=0 "PESO LIBRE:";toner "PESO BINDAJE:0" "PUNTOS DE BLINDAJE LIBRES:0" z" 1-C :0"'" 2-TD :0"'" 3-TC :0"'" 4-TI :0"'" 5-TDP:0"'" 6-TCP:0"'" 7-TIP:0"'" 8-BD :0"'" 9-BI :0"'"10-PD :0"'"11-PI :0" ""TONELADAS DE BINDAJE:";tonblina tonblin=tonblin+tonblina tonblin>toner460 toner=toner-tonblina ,0,0;"PESO LIBRE:";toner;" " 1,13 ;tonblin puntblin=tonblinA*16 2,26;puntblin "N' DE PARTE DE BLINDAJE:";x !x>12 x<1510 "n' PUNTOS DE BLINDAJE:";y y > puntblin530 & c(x)=c(x)+y 0puntblin=puntblin-y :2+x,7;c(x) ?!2,26;puntblin;" " D 1 > puntblin 510 N$"MAS BLINDAJE(S/N)";r$:r$=r$+" " X,r$(1)="s"r$(1)="S"460 6#0;"PULSA UNA TECLA PARA CONTINUAR":0: REDINE=RADINE $:"RADIADORES POR COLOCAR:";REDINE H"REFERENCIAS:"'" 1=BI 2=C 3=BD 4=TI"'" 5=TC 6=TD 7=PI 8=PD" REDINE<1780  8"VER SECCION O COLOCAR RADIADOR (V/C) ";R$:R$=R$+" " "SECCION:";S eR$(1)="V"R$(1)="v"X=D(S,1):Y=D(S,2):8996$#:8999 '#:670 ,R$(1)"C"R$(1)"c"700 !D(S,3)<1700 3g=d(s,2)+1 d(s,2)+d(s,1) c$(g,1)" "g Xc$(g)="RADIADOR":redine=redine-1:d(s,3)=d(s,3)-1 :670  4#0;"PULSA UNA TECLA PARA CONTINUAR":0 :"PESO LIBRE:";toner;" "  H"REFERENCIAS:"'" 1=BI 2=C 3=BD 4=TI"'" 5=TC 6=TD 7=PI 8=PD" *TONER<.5960 /<"COLOCAR ARMA,VER SECCION O SEGUIR (C/V/S)";R$:R$=R$+" " 4"SECCION:";S >dR$(1)="V"R$(1)="v"X=D(S,1):Y=D(S,2):8996$#:8999'#:790 C,R$(1)="S"R$(1)="s"960 H,R$(1)"C"R$(1)"c"790 R"NOMBRE DE LA PIEZA:";M$ \"LINEAS QUE OCUPA:";LIN fLIN > D(S,3)810* p "PESO:";PES zPES>TONER790 BH=1LIN:g=d(s,2)+1 d(s,2)+d(s,1) c$(g,1)" "g Dc$(g)=M$:redine=redine-1:d(s,3)=d(s,3)-1 H TONER=TONER-PES  790 4#0;"PULSA UNA TECLA PARA CONTINUAR":0 :"BLINDAJE ESTERNO:" "CABEZA:";C(1) "TORSO DERECHO:";C(2) "TORSO CENTRAL:";C(3) "TORSO IZQUIERDO:";C(4) "BRAZO DERECHO:";C(8) "BRAZO IZQUIERDO:";C(9 ) "PIERNA DERECHA:";C(10 ) !"PIERNA IZQUIERDA:";C(11 ) $$"TORSO IZQ. POSTERIOR:";C(7) .$"TORSO CEN. POSTERIOR:";C(6) 8$"TORSO DER. POSTERIOR:";C(5) B"BLINDAJE INTERNO:" L "CABEZA:3" V#"TORSO CENTRAL:";B(NTONE,1) `%"TORSO LATERALES:";B(NTONE,2) j"BRAZOS:";B(NTONE,3) t"PIERNAS:";B(NTONE,4) ~"MODELO:";N$ "PESO:";TONE "PUNTOS DE MOVIMIENTO:" "ANDANDO:";PMOV )"CORRIENDO:";(PMOV*1.5@+.9ffff) "SALTANDO:";PMSAL "MODULO DE EQUIPO:" "BRAZO IZQUERDO:" #X=12 :Y=0:8996$# "TORSO IZQUIERDO:" $X=12 :Y=12 :8996$# "PIERNA IZQUERDA:" #X=6:Y=24:8996$#  "CABEZA:"  #X=6:Y=30:8996$# "TORSO CENTRAL:" $X=12 :Y=36$:8996$# ("BRAZO DERECHO:" 2$X=12 :Y=480:8996$# <"TORSO DERECHO:" F$X=12 :Y=60<:8996$# P"PIERNA DERECHA:" Z#X=6:Y=72H:8996$# _"RADIADORES:";RADI+RADIA d5#0;"PULSA UNA TECLA PARA COTINUAR":0: ## #$A=1X3:C$(A+Y); #%11 ;C$(A+Y+1); #& 22;C$(A+Y+2):A: #'5#0;"PULSA UNA TECLA PARA COTINUAR":0: #(Fa$(79O,8):a(79O):b=179O:a$(b),a(b):b #2"Omni",.5,"GM",.5,"Pitban",.5,"Omni",.5,"Nisson",1,"VOX",1,"GM",1,"GM",1,"DAV",1.5@,"VOX",1.5@,"Leenex",1.5@,"Nisson",2,"Omni",2,"GM",2,"VOX",2.5 ,"DAV",2.5 ,"DAV",3,"Nisson",3,"Hermes",3,"DAV",3.5`,"GM",3.5`,"GM",4,"GM",4,"Nisson",4,"Vlar",4.5,"Magna",4.5,"Hermes",5,"Leenex",5,"Omni",5.50,"Nisson",5.50,"LTV",6,"VOX",6 #