DANGER e&ee******* DANGER ******** *  1987 JORGE PEREZ * *********************** *********************** -236066\,24:236077\,246 $0:0:0:0 "58999w:65535,0 :0:0:7::11 ,8;6;1;"CREANDO PANTALLAS";9 ,13 ;"ESPERAR";3,9 ;4;1;1;"* D A N G E R *" 92:5:I$=" " 0,0;1;I$ O=0:R=120 WR,0;1;I$(R+1);R,31;I$(R):R:20,0;1;I$ pan=90Z:sit=1 2d(pan,7) df=1pan xnu=0:k=2 ^nu=nu+1 <col=(*20)+6:lon=(*(24-col))+3 ;as=(nu*2)-1:d(f,as)=col:d(f,as+1)=lon $k=k+5:k=17502  170 F  2700 !65535=1578B C65535,1:L$(11 ,16):M$(11 ,16)  L$(1)="JORGE.P.B.015200"  L$(2)="RAMBO.....015100"  L$(3)="HOBBY.....015000"  L$(4)="FRED......009000"  L$(5)="LORNA.....008600"  L$(6)="FREDDY....007423"  L$(7)="INDIANA...006400"  L$(8)="LIMBO.....003500"  L$(9 )="GARY......002000"  "L$(10 )="SCOOBY DOO0001000" B)X=23296[23550[:X,0:X Dse=sit:9000(# S 1300 X?LIE=23309 [:COE=23311[:860 \ Y:F5130 ZF=01600@ ^F<5025 b%V$(F,1)32 1730 d%V$(F,4)32 1750 f%V$(F,8)32 1760 h&V$(F,10 )32 2600( qSE=SIT:9000(# ue$="":d$="":f$="" #900:bn=1:li=3 #op=d(f,bn):op=0705 yco=d(f,bn):lo=d(f,bn+1):li,co;6;d$(lo);li+1,co;5;e$(lo);5;li+2,co;f$(lo) )bn=bn+2:li=li+5:690 %V$(F,7)32 1780 %V$(F,9 )32 1775 ŕV$(F,2)32 SE=8:9000(#:LW=V$(F,2):CW=V$(F,3):LW,CW;4;"";LW+1,CW;"";LW+2,CW;"" R \<F=29F=0SIT=1:LO1=06220L ^=F=31F=60<SIT=2:LO2=06050 `2F=61=SIT=3:LO3=062008 bSE=SIT:9000(#: y0:7::se=5:9000(#:y=017:y,0;2;7;"";y,29;"":y 0:Y=1821:Y,0;" ":Y:X$="":U$="" SE=8:9000(#:18,6;6;X$(25);"";21,6;U$(25);"";18,0;X$(5);21,0;U$(5):e=1920:e,0;6;"";e,31;"":e f18,5;6;"";21,5;"";19,5;"";20,5;"" ENE=23298[+256*23299[:20,22;7;1;"ROBOTS:";VI;20,8;"ENERGIA:";ENE;19,8;"PUNTOS:";SC;19,22;"NIVEL:";F  7900 se=sit:9000(#  s:11 ,5;(23730\+256*23731\)-(23651c\+256*23652d\);" Bytes libres": F0:0:7: K`R=1150:X=(*256):Y=(*176):ٺ(*6)+2;1;X,Y:R nSC=0:VI=5 x6TV=0:se=9 :9000(#:0:6 +cv=144:t=10 40(2 }s=04:.002xn,t+20:s,t;" ";s+1,t;cv;(cv+1);s+2,t;(cv+2);(cv+3) s se=10 1450 Gcv=cv+4:cv=164se=10 :9000(#:cv=144:t t: SE=8:9000(#:H$="":P$="":8,7;5;H$;9 ,7;P$:N=10 172:N,7;"";N+1,7;"";N,23;"";N+1,23;"":N =18,7;5;H$;19,7;5;P$ SE=4:9000(#:6,7;7;"";7,7;"";6,23;"";7,23;"":bc=1:11 ,12 ;7;"OPCIONES:";14,11 ;"1-KEYBOARD";16,11 ;"2-KEMPSTON" q21,3;BC;"DANGER  1987 Jorge Perez";20,24;",":bc=bc+1:bc=8bc=1 6TV=TV+1:TV=40(6900::1400x !Q$=:Q$"1"Q$"2"1530 MAN=Q$:23307 [,MAN $R=125:3582 :R ,@CS=(*27)+1:CC=(*20)+2:1800 @5:5:7: rSE=5:9000(#:Z$="":6,0;2;7;Z$;7,0;Z$;8,0;Z$:V=9 18:V,0;2;7;"";7;0;" ";2;7;"":V w0,CS;6;"";1,CS;"";4,CC;1;"";5,CC;"";4,CC+3;"";5,CC+3;"" J905:13 ,6;4;1;"": 55:0:7::SE=5:9000(# >G=06:G,0;2;7;"";G,29;"":G:G,0;2;7;"";G,26;"";G+1,0;"";G+1,26;"":G=9 13 :G,0;5;" ";2;7;"";G,26;2;7;"";5;" ":G  13 ,0;4;5;"";13 ,27;"":14,5;2;7;"";14,26;"";15,0;"";15,26;"":G=1617:G,0;2;7;"";G,29;"":G uSE=3:9000(#:12 ,8;2;6;"";13 ,8;""  905  ORUJ=V$(F,1) ORUJ=51700 ORUJ=62620< ORUJ=72650Z 900:SE=10 :9000(#:I$="":O$="":9 ,3;1;1;I$;10 ,3;O$;13 ,6;I$;14,6;O$ ʡSE=3:9000(#:I$="":O$="":5,6;2;1;I$;6,6;1;1;O$ ˈ5,3;2;1;I$(1):X=19 :5+X,3;1;1;"";5+X,28;"":X  ~900:SE=5:9000(#:G=614:G,3;2;7;"";G,19;"":G 56,22;" ";6;1;"";:" " V$(F,4)=0 C9 ,13 ;3;"";11 ,13 ;"": ~900:se=5:9000(#:g=614:g,5;2;7;"";g,17;"":g !v$(f,8)4se=8:9000(#:12 ,3;1;6;1;"";13 ,3;"";14,3;"";12 ,15;"";13 ,15;"";14,15;"";12 ,27;"";13 ,27;"";14,27;"" CV=532 12 :X=10 13 :X,V;" ":X:V  UIN=V$(F,9 ):SE=7:9000(#:IN=0D$="":T$="":1778 *IN=2D$="":T$="":1778 *IN=1D$="":T$="":1778 g1,0;6;1;D$;2,0;T$;1,30;D$;2,30;T$: 9LQ=V$(F,5):CQ=V$(F,6):OC=V$(F,7) COC=1INK=6:SE=7:D$="":T$="":1790 COC=3INK=5:SE=5:D$="\/":T$="":1790 COC=4INK=4:SE=6:D$="":T$="":1790 COC=5INK=3:SE=4:D$="":T$="":1790 99000(#:LQ-1,CQ;INK;1;D$;LQ,CQ;T$:  DOS=0:F=0:THI=0:23313[,0:23298[,180:23299[,0:23305 [,144:23309 [,9 :23311[,12  'LO1=0:LO2=0:LO3=0 (7:0:0::600X lSE=4:9000(# vAGHG=59000x:23299[+23298[=07650 bME=23313[:ME=4AT1=23301[:AT2=23302[:23313[,0:4000 gME=1ƾ23309 [=1623309 [,0:F=F+1:600X:SE=4:9000(# ME=2ƾ23309 [=023309 [,16:F=F-1:600X:SE=4:9000(#:Y=23305 [:CW=23311[:16,CW;1;Y;(Y+1);17,CW;(Y+2);(Y+3) FME=323313[,0:7100:MUE=17700 1910v (900:SE=3:9000(#:6,3;2;"";6,18;"":G=711 :G,3;2;"";G,18;"":G *ySE=5:9000(#:4,25;6;2;"";5,25;"";5,25;1;"__" -oV$(F,10 )=1SE=SIT:9000(#:9 ,15;5;1;"";10 ,15;"" 2 ~14,7;2;6;"";:" ";:2;6;"";4,6;"" @SE=7:9000(# A9 ,13 ;6;1;"";10 ,13 ;"":SE=6:9000(#:7,15;2;7;1;1;"";8,15;"" FDOS15 HESE=5:9000(#:14,14;4;1;"" J Z900:SE=5:9000(#:Y$="":16,3;2;7;Y$;17,3;Y$:X=315:X,5;2;7;"":X \aX=310 :X,8;2;7;"":X:10 ,9 ;2;7;Y$ ^|SE=10 :9000(#:8,9 ;1;1;"";9 ,9 ;"" `dSE=6:9000(#:14,25;2;6;1;"";15,25;"" d  ASIGNACION V$(92\,15) :V$(91[,1)=6:V$(502,1)=5:V$(92\,1)=7:V$(28,8)=1:V$(58:,8)=2:V$(86V,8)=3:I1=(*3):I2=(*3):I3=(*3):V$(7,9 )=I1:V$(15,9 )=I2:V$(20,9 )=I3 V$(18,4)=1:V$(480,4)=1:V$(78N,4)=1:V$(27,4)=1:V$(579,4)=1:V$(87W,4)=1:ENTRADAS PO=(*1)+2:NQ=(PO*2)-1:CW=D(24,NQ):LW=(PO*5)-3:V$(24,5)=LW:V$(24,6)=CW:V$(24,7)=3 PO=(*1)+2:NQ=(PO*2)-1:CW=D(546,NQ):LW=(PO*5)-3:V$(546,5)=LW:V$(546,6)=CW:V$(546,7)=3 PO=(*1)+2:NQ=(PO*2)-1:CW=D(83S,NQ):LW=(PO*5)-3:V$(83S,5)=LW:V$(83S,6)=CW:V$(83S,7)=3 iV$(30,10 )=1:V$(60<,10 )=1:V$(90Z,10 )=1:ENEMIGO 62770 :T=13:ZX:N=12 JKL=(*25)+1:LK=ZX+KL:V$(LK)" "2762 V$(LK,1)=1:N:T 1,31,61= <NU=1:AP=1:CU=8:OE=1:3300 =NU=1:AP=19:CU=6:OE=1:3300 =NU=1:AP=35#:CU=7:OE=1:3300 =NU=1:AP=491:CU=7:OE=1:3300 =NU=1:AP=65A:CU=7:OE=1:3300 =NU=1:AP=79O:CU=7:OE=1:3300 >NU=30:AP=1:CU=86V:OE=4:3300 =NU=8:AP=1:CU=86V:OE=5:3300 N=115 KL=(*87W)+1:V$(KL,10 )32 V$(KL,8)32 V$(KL,4)32 V$(KL,2)32 V$(KL,1)32 2805 =JK=(*2)+1:JK=1CW=1:2815 CW=29 DLW=(*9 )+6:V$(KL,2)=LW:V$(KL,3)=CW:N J$(25,32 ) &J$(1)="FNQJF[BT!FO!MB!GBTF!2@" $J$(2)="MBT!HSVUBT!EF!UPCPS@" vJ$(3)="IBT!QBTBEP!MB!GBTF!2@":J$(4)="UF!FODVFOUSBT!FO!MB!GBTF!3@":J$(5)="UFSSJUPSJP!BMJFOJHFOB@" WJ$(6)="IBT!MMFHBEP!B!MB!VMUJNB!GBTF@":J$(7)="GBTF!4!TFDUPS!DJCFSOFUJDP@" J$(8)="MB!UJFSSB!FTUB!QPCMBEB!QPS@":J$(9 )="TFSFT!EFM!QMBOFUB!QMBDPO@":J$(10 )="UJFOFO!TV!CBTF!FO!VOB!HSBO@":J$(11 )="UPSSF-DPNQVFTUB!QPS!4!TFDUPSFT@" J$(12 )="UV!NJTJPO!FT!EFTUSVJS!MPT!26@":J$(13 )="DPOEVDUPT!EF!TVNJOJTUSP!Z!@":J$(14)="MMFHBS!BM!OJWFM!:3!QBSB@":J$(15)="EFTUSVJS!MB!CBTF!EF!MB!UPSSF@":J$(16)="CVFOB!TVFSUF@" ,J$(17)="IBT!QFSFDJEP!FO!FM!JOUFOUP@" J$(18)="IBT!DPOTFHVJEP!EFTUSVJS!MB@":J$(19)="CBTF!FOFNJHB-MB!UJFSSB!FTUB@":J$(20)="TBMWBEB/@":J$(21)="UF!IBO!QSFNJBEP!DPO!VO!OVFWP@":J$(22)="DJSDVJUP!EFGFOTJWP!QBSB@":J$(23)="BOESPJEFT/@"  N=1NU KL=(*CU)+1:LK=AP+KL:V$(LK,4)32 V$(LK,1)32 V$(LK,7)32 V$(LK,8)32 V$(LK,10 )32 3305 LQ=(*1)+2:LW=(5*LQ)-3:AY=(LQ*2)-1:CW=D(LK,AY):V$(LK,5)=LW:V$(LK,6)=CW:V$(LK,7)=OE N:  &23305 [,148:FG1=23309 [:FG2=23311[:JA=0:TI=4:TII=TI:Z1=15:Z2=28:0:7:0::SE=6:9000(#:Y=5162:Y,2;6;"";Y+1,2;"";Y,26;1;" ";Y,30;" ":Y nSE=4:9000(#:0,28;3;1;"":23309 [,15:23311[,28 SE=8:9000(#:17,0;3;1;"":14,30;4;1;"";15,30;"";16,30;"":905 KSE=4:9000(#:Z1,Z2;7;1;"";Z1+1,Z2;"" ~RQ=(*6)+1:LL=3+(2*RQ):SE=6:9000(#:LL,2;6;"";LL+1,2;"" SE=4:9000(# ZJA=JA+1:0,12 ;5;1;"INTENTO:";JA:JA=63710~ ސTI=TI-1:TI=0.002xn,20:SE=6:9000(#:LL,2;6;"";LL+1,2;"":TI=TII:3530 8l=59000x =+MAN=1U=:U=4803800 >2MAN=2U=31:U163800 t 3550 SE=4:9000(#:X=0̾23309 [:.01z# =,(20-X):X,28;6;"";X+1,28;3;1;"":X X=(23309 [)+11-1:.01z# =,(20-X):X,28;" ";X-1,28;3;1;"":X:VI=VI-1:VI=06300  3870 رZ1=23309 [:Z2=23311[:4;1;(Z2*8)-2,169-(Z1*8):4;1;-190,0:.007ye`A,557:.007ye`A,35# w1:4;1;(Z2*8)-2,169-(Z1*8):4;1;-190,0:0 Z1=LLZ1=LL+1SE=11 :9000(#:X=70-1:LL,2;X;"";LL+1,2;"":.005y# =,X*3:LL,2;X;"";LL+1,2;"":X:3850   3550  MDOS=DOS+1:2,5;6;"CONDUCTOS DESTRUIDOS:";DOS:SE=6:9000(#:LL,2;5;1;"";LL+1,2;0;5;1;1100L-(JA*100d):SC=SC+(1100L-(JA*100d)):19,15;1;SC:H=140(:H:V$(F,2)=32 :3870 Z 9600X:23309 [,FG1:23311[,FG2:1900l AT1+AT2=83500 'AT1=65AAT2=65A5100  SCAR=23305 [:LR=23309 [:CR=23311[:LT=LR:CT=CR:IR=23308 [ !LR=LR+(IR=0)-(IR=8) !CR=CR+(IR=1)-(IR=2) rLT,CT;" ";LT+1,CT;" ";LR,CR;1;CAR;(CAR+1);LR+1,CR;(CAR+2);(CAR+3) V=70-1:.003xD,30:LR,CR;V;CAR;(CAR+1);LR+1,CR;(CAR+2);(CAR+3):V  'VI=VI-1:VI=06300 H23309 [,LIE-(LIE=16):23311[,COE:600X:1900l  0: 1INC=3:LM=5:TM=5:7810 1INC=4:LM=7:TM=5:7810 1INC=5:LM=9 :TM=5:7810 &LO2=1:X=1502:X: 80::LO3=1 =1INC=6:LM=5:TM=6:7810 B1INC=7:LM=7:TM=6:7810 GX=160<:X: L0,10 ;6;"D A N G E R":W=815:LM=(W-6)*2:TM=7:INC=W:7850:W:LO1=1 QLINC=16:LM=21:TM=6:7810:X=1502:X: iSE=4:9000(#:E=17:D=17:E:D::D:E:0:7:0: 2INC=17:LM=3:TM=6:7810 12 ,12 ;1;"";13 ,12 ;"":X=2113 -1:X,30;6;1;"";X-1,30;2;"":X L5;1;239,75K:5;1;-127,0 1;5;1;239,75K:1;5;1;-127,0:12 ,12 ;" ";13 ,12 ;" " X=19 .003xD,X+10 :12 -X+1,12 -X+1;1;" ";12 -X+1,12 +X-1;" ";12 +X-1,12 -X+1;" ";12 +X-1,12 +X-1;" " v12 -X,12 -X;1;"";12 -X,12 +X;"";12 +X,12 -X;"";12 +X,12 +X;"" X (SC>L$(10 ,11 )6345  6800 X=10 1-1 SC>L$(X,11 )X LUG=X+1 X=LUG10 M$(X+1)=L$(X):X  X=LUG11 :L$(X)=M$(X):X f:9 ,7;4;1;"PUNTUACION:";SC;11 ,7;6;"ESCRIBE TU NOMBRE" I$:I$>10 6361 WX=1(10 -I$):I$=I$+".":X:W$=SC:F$="000000":W$=F$((6-W$))+W$ )L$(LUG)=I$+W$:6900::6800 d5:LM=18:TM=5:INC=18:7810 d5:2::0:X=11 21:X,0;" ":X ҀSE=10 :9000(#:9 ,0;1;5;"" YSE=5:9000(#:1,26;5;6;"";2,26;"" 5:SE=11 :9000(#:X=0302:C=70-1:.002xn,X+C:9 ,X;C;5;"";10 ,X;"";9 ,X;"";10 ,X;"";9 ,X;" ";10 ,X;" ":C:X HC=60:1,26;C;"";2,26;"":C m0:0:7::X=1823:TM=5:LM=(X-17)*2:INC=X:7810:X X=1502:X: G0:0:7::21,6;"OTRA PARTIDA ? (S/N)" K$=:K$=""6802 K$="S"K$="s"15 J236066\,0:236077\,60<:7:7:0:: :3,11 ;2;6;1;1;"* TOP SCORE *":SE=8:9000(#:1,1;5;1;"":X=218:X,1;5;1;"";X,31;"":X G19,1;5;1;"" Z=27 nX=110 :5+X,5;Z;1;X;". ";9 ;L$(X,10 );" -- ";L$(X,11 ):X Z  X=1100d:X::  pMUE=0:LP=23309 [:CP=23311[:AR1=(LP,CP-1):AR2=(LP+1,CP-1):ATI=AR1+AR2 ATI=136SC=SC+10 :7600:EN=23298[+256*23299[:V$(F,7)=32 :EN=EN+70F:P2=(EN/256):P1=EN-256*P2:23298[,P1:23299[,P2:915:SE=4:9000(# ATI=140THI=0SC=SC+25:THI=1:7600:915:V$(F,7)=32 :SE=4:9000(# ATI=138THI=1THI=3:V$(F,7)=1:SE=7:9000(#:LP,CP-2;6;1;"";LP+1,CP-2;"":915:SE=4:9000(# ATI=138THI=0THI=3:SC=SC+150:7600:915:V$(F,7)=32 :SE=4:9000(# ATI=140THI=3THI=1:V$(F,7)=3:SE=5:9000(#:LP,CP-2;5;1;"\/";LP+1,CP-2;"":915:SE=4:9000(# uATI=134SC=SC+5:VI=VI+1:7600:915:V$(F,7)=32 :SE=4:9000(# ATI=21THI=1SC=SC+300,:.353333,1:.353333,5:.353333,-4:.353333,-10 :.45ffff,-5:V$(F,4)=0:9 ,13 ;" ";11 ,13 ;" ":THI=0:915:SE=4:9000(# ATI=354b7450 ATI=44,THI=3SC=SC+500:.2~L,10 :.2~L,8:.2~L,6:.2~L,5:.4L,4:.2~L,5::9 ,15;" ";10 ,15;" ":V$(F,10 )=0:THI=0:915:SE=4:9000(#: ATI=500THI=0SC=SC+2000:THI=6:7600:915:V$(F,9 )=32 :SE=4:9000(# 3ATI=228THI=66600:6342  $RT=23311[:KQ=V$(F,8) KQ=1BU=I1 $KQ=2BU=I2 )KQ=3BU=I3 +RT=5BUP=2 ,RT=17BUP=1 -RT=29BUP=0 3BUBUPMUE=1: 5]X=333!12 :Z=12 14:Z,X;" ":Z:X:V$(F,8)=4: H.003xD,502:LP,CP-2;" ";LP+1,CP-2;" ": 11 ,8;" ":X=125:11 ,8;6;1;"NO TIENES ENERGIA":.01z# =,40(-X:.001wn,X+10 :.01z# =,40(-X:.01z# =,X+10 :X:VI=VI-1:VI=06300 C23298[,250:23299[,0:600X:1900l 0::SE=5:9000(#:21,0;4;"":X=321:X,11 ;6;2;"";:" ";:6;2;"":X w20,13 ;6;2;"";21,13 ;"";3,10 ;"";3,21;"" #dSE=10 :9000(#:18,13 ;3;1;"";19,13 ;"" (SE=4:9000(#:X=016:.001wn,(40(-(X*2)):X,15;" ";X+1,15;"";X+2,15;"":X -C=13:V=70-1:17,15;V;"";18,15;"":.004yn,(30-V-C):V:C 2'VI=VI-1:VI=06300 4Z600X:23309 [,1:23311[,10 :SE=4:9000(#:1910v <.02{# =,20:.03{u\,30:.01z# =,10 JSE=4:9000(#:Z=1:N$=J$(INC):CM=1:G=CM32 bZ$=(N$(Z)-1):Z=Z+1:Z$=63?LM-1,G-1;" ";LM,G-1;" ": XLM-1,G-1;7;1;" ";LM,G-1;" ";LM,G-1;TM;Z$ G: 6N$="":X=132 :J$(INC,X)="@"7855 "N$=N$+((J$(INC,X))-1):X +.003xD,30:LM,0;TM;N$: BTHI=019,1;" ";20,1;" ": DTHI=1SE=7:W$="":S$="":INK=6:7930 DTHI=3SE=5:INK=5:W$=" ":S$="":7930 8THI=6SE=6:INK=3:W$="":S$="" P9000(#:19,2;INK;1;W$;20,2;1;S$: #' #(idi=59832+(168*se):p2=(di/256):p1=di-256*p2:23675{\,p1:23676|\,p2: &)58999w:""59000x:9996 ' ' 58999w:*"m";1;"SPRITES"60000`,2050:*"m";1;"cm"59000x,800 :*"m";1;"car"63000 '  'J:"m";1;"run":*"m";1;"run"9995 ':*"m";1;"run": ':22+11 +12 +"DANGER"9885&:22+11 +12 +"danger"59000x,6000p:"":""59000x,6000p:  danger pxrVr>!Z* ["[*["[~ ʵw ~ ʴ7rK[x >w~* [+K[2[* [+K[w~* [+" [B* [K[ w* [#K[ w~~=w>w B* [K[w* [#K[w~>w ~w* [##K[w* [##K[w~~w Ú" >w Ú >w Ú& >w Ú>w ÚX+-+- +-DM+-8͢- K[xK[ C[>>>K[+--> ![>>>>>>>~~> > >~<~> > >~~>>~ ~ <>~<~~ ~ * [##K[w* [##K[w ~ >w>w>w>w>w*[##K[ *[##K[ >>U]m}m///6t" @g; |4 Xp0 ^X\ pPpl,<4"bBdSH@ Z@O  ; иxgdgX@b޾~7o߿????JjpU`p㓐rUUUR3C3 3XZpt[[YvpWW3{3WW_o_oo\mv<|>33 ??+ ++?U?fC#?f#CЏ!!QЏ!!QբՈբU#UU#BBBBB<???Ϗ??????g'????????ర0008h\\^ھǿ prrrrrWuwuwwJ @ I0@ M_+JpP?"ZEЀ8LP* B$$$~$$~$>(> >bd&F(*D:  >>> 22228<& >>6044>0<<22>?0022222 >>11~>aa`aa>|21112|14<4114<40x>a`gea>caaaac]]M L8q24842q`````aasmaaassaqiecq>aaaaa>~33>00x>aaaie>|22<22yca22caai}saa24bAAb4?# 1@ pp8T"x ~2200<22<202&&2<0 <02200<222&048842bvjbbbrjfb222<22<000>0p p(