MV - CPCEMU Disk-File Disk-Info Z80onDSK v3.3(Track-Info  N Track-Info  N DISK MICRO 7 01  AA  AA 0 AB AAC AD AE _ !"#$%&'()*AF +,AG =-./01234AH 56AI 78AJ 9:;<AK =>?@AL ABCBA bDEFGHIJKLMNOPBB QRSBC ?TUVWXYZ[BD I\]^_`abcdeBE fghBF ijBG !klmnoBH pqrsBI Mtuvwxyz{|}PLUS3DOSA ADISKEADO POR MADFOX "MICRO"  300, "01": x5000:6000p 8,10 ;"A - CARA A" 9 ,10 ;"B - CARA B" A$= A$=""150 A$="A"A$="a"500 A$="B"A$="b"1000 100d --- MENU CARA A --- :5000:6000p 4,12 ;"CARA A"  7,3;"A-Microcopi" 7,18;"B-Editor" &8,3;"C-Gugu" 0"8,18;"D-Biorritmos" :9 ,3;"E-Pipeline" D 9 ,18;"F-Listador" N!10 ,3;"G-Andromeda" X 10 ,18;"H-Numeros" b!11 ,3;"I-Balistica" l"11 ,18;"J-Duelostar" v 12 ,3;"K-Aterriza"  12 ,18;"L-Plotter" PRINT AT 13,3;"M-" PRINT AT 13,18;"N-" !15,11 ;"1 - VOLVER" B$= B$="PLUS3DOS@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTrack-Info  N UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@|#A |paqx:|x>0q8 ?*WTmTŒ' PIUU@x<#A paqx88@"?A -TOmQjTZJR6UI%@@' UJ ?@x<#ap8 0paq8 @>A /ȟ' !UU@??@8<>xp_9܅۪UUUUUUUUUU 0ꪪUUUUUUv0 `8UUUUUUUUժUUUUUUUUUUUUUU `8UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU `8UUUUUUUUժUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0UUUUUUUUժUUUUUUUUUUUUUU0UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUժUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUTrack-Info  N UUUUUUUUUUUUUUUUUUUUUUUUUUUUU88888888888888888888877777778888888888888888888888887777777788888888888888888887778888888888888888888888887777888888888888888888866666778888888888888888888888666666688888888888888888888888888666688888888888888888888888888888888888888888888888888888:8:88888888888888888=88r>=8888888888888888888:8>>>7ppp7::::::W:::::::::::Wp0p00VWWWW888888888888888888>p0007>>>88888888888888888888888>7>>888888888888888888888 888888888886888888888 88888888886668888888888888888888888888888866688888558888888888888888888866688665555888888888888888866688668855588888888887778866;;6666;;;55;;;8888888778888866;;6666555555;;88888887778888PLUS3DOS 1 1 dCINTA 01 (REVISTAS 01 a 04) n4:0:7: x5000:6000p 8,10 ;"A - CARA A" 9 ,10 ;"B - CARA B" A$= A$=""150 A$="A"A$="a"500 A$="B"A$="b"1000 100d --- MENU CARA A --- :5000:6000p 4,12 ;"CARA A"  7,3;"A-Microcopi" 7,18;"B-Editor" &8,3;"C-Gugu" 0"8,18;"D-Biorritmos" :9 ,3;"E-Pipeline" D 9 ,18;"F-Listador" N!10 ,3;"G-Andromeda" X 10 ,18;"H-Numeros" b!11 ,3;"I-Balistica" l"11 ,18;"J-Duelostar" v 12 ,3;"K-Aterriza"  12 ,18;"L-Plotter" !15,11 ;"1 - VOLVER" B$= B$=""680 B$="A"B$="a""AA" B$="B"B$="b""AB" B$="C"B$="c""AC" B$="D"B$="d""AD" B$="E"B$="e""AE" B$="F"B$="f""AF" B$="G"B$="g""AG" B$="H"B$="h""AH"  B$="I"B$="i""AI" B$="J"B$="j""AJ"  B$="K"B$="k""AK" *B$="L"B$="l""AL" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Piramide" 7,18;"B-P.E.S." 8,3;"C-carreras" $"8,18;"D-Aritmemory" . 9 ,3;"E-Copyline1" 8"9 ,18;"F-Coplyline2" B 10 ,3;"G-Pinguino" L10 ,18;"H-Pintor" V11 ,3;"I-Bosque" !15,11 ;"1 - VOLVER" B$= B$=""1180 B$="A"B$="a""BA" B$="B"B$="b""BB" B$="C"B$="c""BC" B$="D"B$="d""BD" B$="E"B$="e""BE" B$="F"B$="f""BF" B$="G"B$="g""BG" B$="H"B$="h""BH" B$="I"B$="i""BI" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 01" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 01-04"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 01" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 01-04"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS# ?0:0:0:0:0:0:0 )top=23732\+256*23733\ top ("AA.0"16384@ 217010rB Track-Info  N PLUS3DOSr@ LONGITUD: COMIENZO:  l=load s=save F=fin CARGANDO Break para pararGRABANDO Break para parar ERROR DE CARGA pulse EnterCORRECTO pulse EnterNO CABE pulse EnterDbk#> < !;\n(!;\n(:\ˮ $$---666$--66$$---6666!j\w*\++6B+6>2@qA!XʞBw#?A:@EA!;\n(:\ˮFlCs :@(@EA@EA!@2v>[ @*S\@EA@EAUAÞB?Ab@EA2@!@7V0:@0>> >:@ ? @ 9C9C@EAK @+--:@zCŠCK @!'BڊC&@EAK @+--*\(BKS\BK @BҶC@EAAEA^AÛB>*S\[ @7VC@EA@EA^AÛB@EA@EA>2@^AÞBPLUS3DOSY MEDITOR DE CARACTERES JOSE M. DIAZ 1984   623693\,41):5:23658j\,8: 'ii=0:is=7:c$=143 1p0=0:x=0:y=0:p=23560\ Ic0=21:l=175:c=64@:sm=c/2:pr=c/4:px=pr p$="":cl=22528X:cx=cl .t$(c0,is+1,is+1):v$(sm+2) 3A$="00000000":T0=1:c0=1:fg=0 2 8000@ < i=iiis A(a$(1)+i,(""+t$(c0,i+1)) Fi:a$(1)=a$(2): P.i=iiis+1:i,9 ;v$(23):i Qfg=1fg=0: R4,25;sm TV0,9 ;"NOMBRE DEL JUEGO DE CA-";1,9 ;"RACTERES:";1;"?" V"NOMBRE:";p$ X p$>10 p$=p$(10 ) Z*6;0;1,18;p$: \:a$="00000000":i=ii+1is+1:t$(c0,i)=a$:i: _ESPERAR TECLA `0:p0=p: cDIBUJA TABLERO di=ii71Gis+1 f0,l-i:c,0 hi,l:0,-c ji: lRESTO DE PANTALLA nii,25;"7";is+1,25;"6";ii+1,25;"^";4,21;"5";4,22;"<";4,29;"8";4,28;">" p-4,27;"-";4,23;"-" qs204,116t:3,3:204,116t:-3,3:204,122z:0,4 r!4,25;1;c$: vti=ii+1is+1:6;0;i-1,13 ;v$(3);i-1,13 ;(""+t$(c0,i)):i w8,12 ;"DATAS": z(16,0;"0-CREAR CARACTERES" |,17,0;"1-MODIFICAR CARACTERES" ~+18,0;"2-COLOREAR CARACTERES" )19,0;"3-GRABAR CARACTERES" )20,0;"4-CARGAR CARACTERES" 115,3;"MENU IN";1;"ACTIVO": %10 ,0Track-Info  N ;"'F' FIJA CURSOR" &11 ,0;"'B' BORRA CURSOR" (9 ,0;"GRAFICO: ";(c+c0): 15,10 ;"ACTIVO" '12 ,0;"ENTER ACTIVA MENU"  INSERTAR/BORRAR CURSOR .5,0 t$(c0,x+1,y+1)=p$ P6;0;x,13 ;v$(3);x,13 ;(""+t$(c0,x+1))  PINTA CURSOR 1;x,y;c$: VISUALIzAR CARACTER 0i=iiis:i,ii;v$(is+2):i:100d: i=iiis:j=iiis 91;i,j;143t$(c0,i+1,j+1)="1" j:i: COLOREAR UN CARACTER 50,18;"papel";0,24;"tinta" d10 ,18;"ELIJE PAPEL";1;143:96`:P0<480P0>557181 I=P0:1,20;P0 d10 ,18;"ELIJE TINTA";1;143:96`:P0<480P0>557183 J=P0:1,26;P0 "10 ,18;V$(14) n=iiis m=iiis `cl+m,(j*8+jt$(c0,n+1,m+1)="1")+(i*8+it$(c0,n+1,m+1)="0") m cl=cl+sm n cl=22528X fg=1fg=0: )4,25;i;j;(143+c0) ̑2,17;"PULSE UNA TECLA";3,17;" PARA SEGUIR.":0:2,17;v$(15);3,17;v$(13 ) =13 181 CONTROL DEL CURSOR  y=y-1:yisx=is cx=(sm*x)+y+cl: x=x-1:xisy=is cx=(sm*x)+y+cl: 7120x:100d:118v:110n:132  c0=0 E14,0;v$(sm):96`:l175c0=l:l=175 $p0<480p0>524510  px=pr+p0 $cl+(sm*px),((cl+sm*px)+2*c) & 140 01000+(px-pr)*100d X crear un caracter uC0=211;14,0;"ATENCION:JUEGO COMPLETO":150:14,0;V$(SM):1250 c0>0166 /c0=c0+1:138:92\:118v  4000 LMODIFICAR UN CARACTER Vk4;7;14,0;"QUE CARACTER? ";1;143:14,15;v$(5) `"0:<"A"Ŧ>"U"1120` bvt0=-c:t0>c014,0;"CARACTER NO DEFINIDO":100d:(1110VC00)+(1250C0=0) j14,14; t.166:l=c0:c0=t0:168:118v ~ 138  4000 COLOR qC0=01;14,0;"CARACTER NO DEFINIDO":150:14,0;V$(SM):1250 i=ii+1is+1 -t$(c0,i)0fg=1:i=is+1 'i:fg=1fg=0:1215 b14,0;"CARACTER NO DEFINIDO":100d:14,0;v$(21):1250 1:110n:0  r=c0:c0=t0 178:c0=r 'i=iiis:i,16;v$(16):i 8110n:fg=1:i=5:j=5:188  100d W1:141:0:cl+(sm*px),((cl+sm*px)-2*c):131:510 SAVE CARACTERES tC0=01;14,0;"CARACTERES NO DEFINIDOS":150:14,0;V$(SM):1250  80P ((2,9 ;"GRAFICOS DEFINIDOS:" 2_i=ii+1c0:3,8+i;(143+i);4,8+i;(c+i):i:fg=1 <11;5,9 ;"COMANDO SAVE ACTIVO" F p$t$() KS5,9 ;v$(20);5,9 ;1;"PARE LA CINTA.REBOBINE" P^6,9 ;1;"PARA VERIFICAR.PULSE";7,9 ;"CUALQUIER TECLA":0 Z0i=57:i,9 ;v$(21):i _R1;5,9 ;"COMANDO VERIFY ACTIVO.":5:12 ,15; ` p$t$() a]1:5,9 ;v$(21);5,9 ;"VERIFICACION CORRECTA":150 cp$="":fg=1:80P d118v:110n iW1:141:0:cl+(sm*px),((cl+sm*px)-2*c):131:510 xLOAD CARACTERES c0=1:80P 11;5,9 ;"COMANDO LOAD ACTIVO" 5:12 ,15;  p$t$()  1 5,9 ;v$(21);5,9 ;"CARGA FINALIZADA";6,9 ;"TRANSFIERO CARACTERES A";7,9 ;"LA MEMORIA" j=ii+121 ?t$(j,1)=32 c0=j-1:j=21:1452 $a$(1)=(c+j):c0=j:60< j KTrack-Info  N 6,9 ;v$(22);6,9 ;"FIN TRANSFERENCIA A " fg=1:1320( 0:80P 166:168 118v:110n W1:141:0:cl+(sm*px),((cl+sm*px)-2*c):131:510  cx,(cx)+2*c 96`:p0=13 1:141:0:cl+(sm*px),((cl+sm*px)-2*c):cx,(cx)-2*c:131:a$(1)=(143+c0):60<:510 Qp0=70F162:p0=568:p$="1":154:P0=568:4060 Qp0=66B162:p0=568:p$="0":152:P0=568:4060 cx,(cx)-2*c p0*10 /2 cx,(cx)+2*c  4010 @9000(#:x$ Jx$=v$+x$+v$(10 ) TCi=130:0,0;x$(ii+30):3:i ^0,0;1;3;7;x$(i-1i+30):200:0,0;1;x$(i-1i+30) 6:0 i=110 x$:x$=v$+x$ Ej=135#:i+2,0;x$(jj+30):3:j i &5:1 0>20,5;1;"PULSA CUALQUIER TECLA.":0 : :500 #(:"EDITOR DE CARACTERES","El programa esta organizado me-" #2E"diante un menu de 5 opciones.Al"," finalizar este mensaje de pre-" #30c=30 )="6"d=d+1:.05|L,-20 d>20d=20 )="7"d=d-1:.05|L,-10 d<0d=0  w=w-1 C21,0;v;" ";a1;" ";w;" ":21,18;u "Hc/2ɺ(c/2)d/2ɺ(d/2)z=z+1:1035  Jv(d,c)=42*a=110 :.01z# =,(a^2)/2:a:1:d,c;"":v=v+10 :s=s+1 N u31di<15000:130 K"Mes de nacimiento ";mi:mi>12 mi<15000:140 "Ao de nacimiento ";ai ;5,0;"Fecha de Nacimiento: ";di;"/";mi;"/";ai  dn=di:mn=mi:an=ai I"Dia del calculo ";df:df>31df<15000:171 I"Mes del calculo ";mf:mf>12 mf<15000:180 8"Ao del calculo ";af:af015,0;"FELICIDADES EN SU ";:af-ai ;:" ANIVERSARI0":3000 ;10 ,2;1;"ESPERE UN MOMENTO, POR FAVOR" &(ai=af)(mi=mf)dt=df-di:500 a=ai:m=mi:800  dt=dm-di:mi=mi+1 mi>12 300, af-17m=4m=6m=9 m=11 dm=30 H c=dt-(dt/dc)*dc s$="POSITIVO"  1000 3c>(dc/2)s$="NEGATIVO":c=c-(dc/2) !" Dia ";c;" del semiciclo ";s$ #c=01;"DIA CRITICO" -c=(dc/4)1;"DIA SEMICRITICO" :  h$=" " 3c<(dc/4)c>(dc*2/3)h$="(^)" 3c>(dc/4)c<(dc*2/3)h$="()" h$  ^#1;0,0;" NECESITA MAS INFORMACION ? (s/n)"  0 "s"Ʀ"n"2001 ="s":100d  9000(# x=1500:x:: l10 ,8;1;"DATO INCORRECTO":100d:10 ,8;" ": @$"Biorritmos"1:"Biorritmos" PLUS3DOSL/..* PIPELINE * 23658j\,0 1:1:7: 0,12 ;"PIPELINE" 2,0;"LA IDEA DEL JUEGO ES LLEGAR CON NUESTRA TUBERIA A LA ESQUINA SU-PERIOR DERECHA DE LA PANTALLA,O BIEN EXPULSAR A NUESTRO OPONENTEDEL TABLERO" #8,0;"REGLAS A)LOS JUGADORES ALTERNAN SU TURNO DE JUEGO B)CADA JUGADA DEBE EXTENDETrack-Info  N R LA TUBERIA EN UN LUGAR ADYACENTE" -e13 ,0;"ESPERARE HASTA QUE ELIJA EN""ORD-EN DE JUEGO"" (1=USTED PRIMERO), 2=YO PRIMERO)" 7]17,0;"PUEDE TAMBIEN ELEGIR EN ""NIVEL DE JUEGO""(1=PRINCIPIANTE,2=AVAN-ZADO)" <+21,5;"PULSE CUALQUIER TECLA" =""999  :502 *D(4,3):E(13 ,13 ) 29000(#:I=14:J=13 D(I,J):J:I  2 W3;1;" PIPELINE":"ORDEN DE JUEGO (1/2) ";PO:"NIVEL DE JUEGO (1/2) ";PL 14;0;0,23;" AVANZADO" @PL=13;1;0,20;"PRINCIPIANTE" `491,0:157,0:0,157:-157,0:0,-157 >NN=12 +(PLPO):LW=4+(PLPO):BD=12 +(PL=PO) JJ=1:II=1  2000 $$N=(NN-1):HS=NN*(BD-1) %F502+HS,HS+1:0,N:N,0:0,-N:-N,0 .$1;4,0;"" 8(JJ=BD-3:II=-2:2000 BY1;10 ,0;"";3,0;"FICHAS";2,0;"" LJJ=6:4000 V%1;16,0;"" [T6,4;7;1;"1";18,4;"3";12 ,4;"2" `JJ=2:6000p jII=1:JJ=1 lK19,26;3;0;"MICRO ";20,26;"HOBBY " o)#1;"ESPERE UN MOMENTO, POR FAVOR" tB(15,15) ~,I=1BD+2:J=1BD+2 ?B(I,J)=-(I=1)-(J=1)-(I=BD+2)-(J=BD+2) J:I "SOLO? (S/N)",S$ *B(2,2)=1:MOVE=1 MOVE=MOVE+1 e(PO=1(MOVE/2=(MOVE/2)))(PO=2(MOVE/2ɺ(MOVE/2)))3000  5000  ;III=NN*(II-1)+502:JJJ=NN*(JJ-1)+1 I=14 $III+I-1,JJJ:0,4 /III+I-1,JJJ+LW+4:0,4 'III+LW+3+I,JJJ:0,4  2III+LW+3+I,JJJ+LW+4:0,4 I   S$="s"3091 PL=28000@ MOVE23060 (II=1+(>.5):JJ=3-II !EG=3-2*(JJ=2) sPLAY=((II=1)*(EG=4)+(II=BD)*(EG=3)+(JJ=1)*(EG=2)+(JJ=BD)*(EG=1))*(2+(<.5))+((II=1)*(EG=1)+(JJ=1)*(EG=3)+(II=BD)*(EG=2)+(JJ=BD)*(EG=4))*(1+(<.5))+((II=1)*(EG=2)+(JJ=1)*(EG=4)+(II=BD)*(EG=1)+(JJ=BD)*(EG=3))*(1+2*(<.5)) F(II1)(IIBD)JJ1JJBDPLAY=(1+*2.999?)  7000X  1190 "MI JUGADA(1,2 O 3)";PLAY MOVE23080 III=1+(>.5):JJ=3-II:EG=3-2*(JJ=2)  3080 ;III=NN*(II-1)+502:JJJ=NN*(JJ-1)+1 I=14 III+I-1,JJJ:NN-I,NN-I +III+I-1,JJJ+NN:1-I,1-I +III+LW+3+I,JJJ:4-I,4-I :III+LW+3+I,JJJ+NN:-(NN-5+I),-(NN-5+I) I  MOVE25015 ""A LA DERECHA(D) O ARRIBA(A)";R$  II=2 R$="a"II=1 JJ=3-II !EG=3-2*(JJ=2) "SU JUGADA(1,2 O 3)";PLAY  7000X o 1190 z;III=NN*(II-1)+502:JJJ=NN*(JJ-1)+1 I=14 (III+I-1,JJJ:1-I,I-1 &III+I-1,JJJ+NN:(NN-I),-(NN-I) 4III+LW+3+I,JJJ:5-NN-I,-(5-NN-I) .III+LW+3+I,JJJ+NN:4-I,I-4 I  bB(JJ+1,II+1)=PLAY l2000*PLAY vEG=D(EG,PLAY) !JJ=JJ+(EG=1)-(EG=2) !II=II+(EG=3)-(EG=4) .B(JJ+1,II+1)=07150 .B(JJ+1,II+1)<07100 PLAY=B(JJ+1,II+1)  7030v g(((MOVE/2)=(MOVE/2))(PO=1))(MOVE/2ɺ(MOVE/2)PO=2)7130 92;1,6;1;"MALA SUERTE-PIERDE"  7500L :1;1,6;1;"CORRECTO-USTED GANA"  7500L JJBDIIBD g(((MOVE/2)=(MOVE/2))(PO=1))(MOVE/2ɺ(MOVE/2)PO=2)7130  7110 L!"OTRA PARTIDA? (SI=s,NO=n)";R$ Q R$="n" V ` 1010 @MOVE=28100 J'MOVE3MOVE4807Track-Info  N         0 T_REST=9300T$+100d*(B(3,3)=2)+200*(B(3,3)=3) ^FMOVE=3REST=9100#+100d*(B(3,2)=0) hREST rI=1BD:J=1BD |E(I,J):J:I PLAY=1 !D(EG,PLAY)=E(JJ,II)8110 PLAY=PLAY+1:8080 2II=1:JJ=2:EG=1:PLAY=2  7000X  1190 #(a1,3,4,2,4,3,3,1,2,4,2,1 #i1,1,1,1,1,1,1,1,1,1,1,1,1 #i2,2,2,2,2,2,2,2,2,2,2,2,2 #i1,1,1,1,1,1,1,1,1,1,1,1,1 #i2,2,2,2,2,2,2,2,2,2,2,2,2 #i1,1,1,1,1,1,1,1,1,1,1,1,1 #i2,2,2,2,2,2,2,2,2,2,2,2,2 #i1,1,1,1,1,1,1,1,1,1,1,1,1 #i2,2,2,2,2,2,2,2,2,2,2,2,2 #i1,1,1,1,1,1,1,1,1,1,1,1,1 #i2,2,2,2,2,2,2,2,2,2,2,2,2 #i1,1,1,1,1,1,1,1,1,1,1,1,1 #i2,2,2,2,2,2,2,2,2,2,2,2,2 #i3,4,3,4,3,4,3,4,3,4,3,4,3 #i3,4,3,4,3,4,3,4,3,4,3,4,1 #i3,4,3,4,3,4,3,4,3,4,3,4,2 #i3,4,3,4,3,4,3,4,3,4,3,4,1 #i3,4,3,4,3,4,3,4,3,4,3,4,2 #i3,4,3,4,3,4,3,4,3,4,3,4,1 #i3,4,3,4,3,4,3,4,3,4,3,4,2 #i3,4,3,4,3,4,3,4,3,4,3,4,1 #i3,4,3,4,3,4,3,4,3,4,3,4,2 #i3,4,3,4,3,4,3,4,3,4,3,4,1 #i3,4,3,4,3,4,3,4,3,4,3,4,2 #i3,4,3,4,3,4,3,4,3,4,3,4,1 #i3,4,3,4,3,4,3,4,3,4,3,4,2 #i3,4,3,4,3,4,3,4,3,4,3,4,1 $Ua1,1,1,1,1,1,1,1,1,1,1,1 $Va2,2,2,2,2,2,2,2,2,2,2,2 $Wa1,2,1,1,1,1,1,1,1,1,1,1 $Xa2,1,2,2,2,2,2,2,2,2,2,2 $Ya1,2,1,1,1,1,1,1,1,1,1,1 $Za2,1,2,2,2,2,2,2,2,2,2,2 $[a1,2,1,1,1,1,1,1,1,1,1,1 $\a2,1,2,2,2,2,2,2,2,2,2,2 $]a1,2,1,1,1,1,1,1,1,1,1,1 $^a2,1,2,2,2,2,2,2,2,2,2,2 $_a1,2,3,4,3,4,3,4,3,4,3,4 $`a2,3,4,3,4,3,4,3,4,3,4,3 $a1,1,3,4,3Track-Info  N         ,4,3,4,3,4,3,4 $a2,1,4,3,4,3,4,3,4,3,4,1 $a1,1,1,1,1,1,1,1,1,1,1,2 $a2,2,2,2,2,2,2,2,2,2,2,1 $a1,1,1,1,1,1,1,1,1,1,1,2 $a2,2,2,2,2,2,2,2,2,2,2,1 $a1,1,1,1,1,1,1,1,1,1,1,2 $a2,2,2,2,2,2,2,2,2,2,2,1 $a1,1,1,1,1,1,1,1,1,1,1,2 $a2,2,2,2,2,2,2,2,2,2,2,1 $a1,1,1,1,1,1,1,1,1,1,1,2 $a2,2,2,2,2,2,2,2,2,2,2,1 %a1,3,4,1,1,1,1,1,1,1,1,1 %a2,1,4,2,2,2,2,2,2,2,2,2 %a1,2,1,1,1,1,1,1,1,1,1,1 % a2,1,2,2,2,2,2,2,2,2,2,2 %!a1,2,1,1,1,1,1,1,1,1,1,1 %"a2,1,2,2,2,2,2,2,2,2,2,2 %#a1,2,1,1,1,1,1,1,1,1,1,1 %$a2,1,2,2,2,2,2,2,2,2,2,2 %%a1,2,1,1,1,1,1,1,1,1,1,1 %&a2,1,2,2,2,2,2,2,2,2,2,2 %'a1,2,3,4,3,4,3,4,3,4,3,4 %(a2,3,4,3,4,3,4,3,4,3,4,3 PLUS3DOSq qg  PROGRAMA LISTADOR  Domingo Gomez  1984 *29999/u:1:1:7: (contador=1 2 :350^ <<"Nombre de la cinta: ";t$:t$>15t$=t$(15) F.n=1(15-t$):t$=t$+32 :n P+"Cara: ";f$:f$>1f$=f$(1) Zf$=""f$=32 dOd$=138+"CINTA:"+32 +t$+32 +"CARA:"+32 +f$+133 n'i$="" x d$=i$+d$ 'i$="" ;s$=138+"N. Tipo Nombre Comienz. Long."+133 d$=d$+i$+s$+i$ n=23 #n;d$ n a$="" ,j$=contador:j$<2j$=32 +j$ 300000u n=30021Eu30030Nu %n>31ƾn<144a$=a$+¾n +n<32 žn>143a$=a$+63? n:tipo=30020Du  360h =w$=j$+32 +t$+32 +a$+32 +c$+32 +l$ w$ "w$ ,300000u 6ccontador=contador+1:contador>161,0;d$:3190v :19,0 @%contador>99ccontador=0 J 190 T62>,0,221,33!,68D,117u,17,17,0,557,205,86V,5,201 ^(n=300000u30013=u:x:n,x:n: htipo=0t$="Prog" rtipo=1t$="DatN" |tipo=2t$="Dat$" tipo=3t$="Byte" ~c$=(30033Qu+256*30034Ru):c$=" "+c$:c$=c$((c$-5)̱c$):c$>9999'tipo3c$=" " Tl$=(30031Ou+256*30032Pu):l$=" "+l$:l$=l$((l$-5)̱l$)  Track-Info  N         PLUS3DOSL ANDROMEDA  Vicente Mendoza 1.983 ^ h=0:3000 7:e$="":m=0:l=4:s=0:x=14:3:0::v=040(:7;*254,*160:v:502 ]n=320:n,x;4;" ";n+1,x;"":.05|L,n:n:21,x;" " y=1+(*26):.01z# =,y*2:n=420:n-2,y;" ";n-1,y;" ";n,y;3;"";n+1,y;"" 0(n+1)>20y=(x+1)100d Gm=1c=c-2:c=-1m=0:1,b+1;" " m=118 48023 m=1:c=19:b=x y=b+1n=cn=c-1n=c-2c+2,(b+1);" ";n,y;5;1;"";n+1,y;"":.3,-10 :n,y;" ";n+1,y;" ":s=(s+(c*4)):m=0:502:75K 9c,(b+1);6;"":c+2,(b+1);" "  25 Fn:20,y;" ";21,y;" ":*254,*160:6 5=109mx=(x+1):x>28x=28 3=110nx=(x-1):x<0x=0 21,x;4;" "  20,0;"SCORE: ";s;0,20;"HIGH: ";h:f=1(l-1):0,(15-f);2;" ";e$;7:f:l=10,17;" " 3&s>3000 s<3100 200 5ds>10000's<10100t'10 ,10 ;1;" MUY BIEN ":2,10 ::5 6(s>15000:s<15100:200 7 L 6 e(n+1),y;"" n]f=0-20-1:.03{u\,f:f:l=(l-1):502:l=0150 x fin juego s>hh=s:502 Q11 ,10 ;" GAME OVER ":k=0100d:.01z# =,k/2:k 4 z2:10 ,13 ;1;"O.K.":2,10 ::v=040(:7;*254,*160:v ɞ10 ,10 ;1;" ENSAMBLAJE ":V=012 :.1}L,V*4:V:10 ,10 ;" ";21,14;4;" " 5x=20:n=474J:.01z# =,n/2 7=109mx=(x+1):x>112px=112p 3=110nx=(x-1):x<4x=4 (n/4)-1,(x/4);0;" ";(n/4),(x/4);4;" ";(n/4)+1,(x/4)+1;6;"":.01z# =,n/4:(n/4)+1,(x/4)+1;0;" " n ϲx>579x<62>20,x/4;4;" ";19,x/4;0;" ";10 ,10 ;7;1;"3000 EXTRA":1,35#:s=s+3000 {x<58:x>61=19,x/4;2;1;" ":1,-35#:19,x/4;0;" " _10 ,10 ;0;" ";21,14;" ";20,x/4;" " n x=15:0 ګ0,0;"SCORE: ";s;0,20;"HIGH: ";h:f=1(l-1):0,(15-f);2;" ";e$;7:f:l=10,17;" " |n=318:n,x;4;" ";n+1,x+1;" ";n+2,x;" ":.05|L,n:n:19,x;" " yd1=3:d2=28:z=1:y=4202:y,z;5;"";y+1,z;"";6;y,d1;"" Ty-2,(z-2);0;" ";y-1,(z-2);" ";y-2,d1;" " y=20(d1=x+1d1=x+2d1=x+3)20,x;2;1;" ";21,x;" ":f=0-20-1:.03{u\,f:f:l=(l-1):502:l=0150 y=20(z=x-1z=xz=x+1z=x+2z=x+3z=x+4)20,x;2;1;" ";21,x;" ":f=0-20-1:.03{u\,f:f:l=(l-1):502:l=0150 +.005y# =,40(:600X:500 Ky,28-z;5;"";y+1,28-z;"";6;y,d2;"" Yy-2,28-z+2;" ";y-1,28-z+2;" ";y-2,d2;" " y=20(d2=x+1d2=x+2d2=x+3)20,x;2;1;" ";21,x;" ":f=Track-Info  N         0-20-1:.03{u\,f:f:l=(l-1):502:l=0150 y=20(28-z=x-128-z=x28-z=x+128-z=x+228-z=x+328-z=x+4)20,x;2;1;" ";21,x;" ":f=0-20-1:.03{u\,f:f:l=(l-1):502:l=0150 +.005y# =,30:600X:500 z=z+2:y ky-2,28-z+2;" ";y-1,28-z+2;" ";y-2,d1;" ";y-2,d2;" " By-2,(z-2);0;" ";y-1,(z-2);" " + 220 ,Cy+1,28-z;" ";y,28-z;" ";y,d1;" ";y,d2;" " -&y,z;0;" ";y+1,z;" " 6 248 5=109mx=(x+1):x>27x=27 3=110nx=(x-1):x<0x=0 820,x+1;4;" ";21,x;" "  XIm=1c=c-2:c=-1m=0:1,b+1;" " bm=1640 l480 vm=1:c=19:b=x y+1=cy+1=c+3(z=bz=b+1z=b+2)(z=b+3)c+2,b+1;" ";y,z;3;"";y+1,z;"":.3,-10 :y,z;" ";y+1,z;" ":s=(s+(c*12 )):m=0:502:300, @y+1=cy+1=c+3(28-z=b28-z=b+128-z=b+2)(28-z=b+3)c+2,b+1;" ";y,28-z;3;"";y+1,28-z;"":.3,-10 :y,28-z;" ";y+1,28-z;" ":s=(s+(c*12 )):m=0:502:300, gc,(b+1);6;"";c,b+3;"":.01z# =,40(:c,(b+1);" ";c,b+3;" "   220 =m=114:a$:n=07:a:a$+n,a:n:m …"d",0,24,24,60<,126~,126~,60<,126~,"p",0,0,0,0,24,24,24,24,"a",0,24,579,123{,123{,127,127,96`,"s",126~,255,255,255,219,129,0,0,"f",0,24,156,222,222,254,254,6 ̞"b",0,66B,102f,126~,126~,126~,60<,24,"c",24,24,24,24,126~,126~,60<,24 N"g",146,84T,37%,0,20,43+,68D,130 N"e",146,84T,37%,0,20,43+,68D,130 P"m",16,568,16,186,186,238,198,0 "h",0,12 ,108l,98b,16,206,198,0,"i",0,196,216,24,192,204,12 ,208 "j",108l,108l,2,176,546,22,0,0,"k",196,32 ,24,216,192,16,0,0  "ANDROMEDA"1 W:"Programa grabado"''"Rebobine la cinta y pulse"'"una tecla para verificar":0 '"Pulse PLAY ":"ANDROMEDA" PLUS3DOSH H :2:5 1"CON CUANTOS DIGITOS QUIERE JUGAR (1 A 9) ? ";N 62:I=05*31+4:"";:I (@12 ,0:I=09 *31+8:"";:I 2&0,105i:255,0 <1:CONT=1 FD(N) P A=1N ZB=(*10 ) d(B=0)(B>N)90Z nI=1A-1 xB=D(I)90Z I D(A)=B ,7,3*A+(9 -N)*1.5@;A A I=1N 010 ,3*I+(9 -N)*1.5@;D(I) I ("A PARTIR DE CUAL QUIERE CAMBIAR ? ";I (I>N)(I<1)200 .15,1;"NUM. DE INTENTOS = ";CONT  CONT=CONT+1 0I1=(N/2+1)-(I/2+0.5) J=1I1 INTER=D(N+1-J) D(N+1-J)=D(I+J-1) D(I+J-1)=INTER "J , K=1N 6D(K)KTrack-Info  N         170 @K J3:15,0;"------JUEGO TERMINADO------" T817,3;"NUMERO DE INTENTOS = ";CONT-1 ^$"QUIERE JUGAR OTRA VEZ (S/N)? ";S$ hS$="S"10 r PLUS3DOS&1:7:1:1:  f="a""a"+7:a:f,a:f z10010010,1010010R,1010100T,1101015,10111101,1101110n,1111100|,1111100| ""Veloc. inicial?Ej:50. m/s= ";vi "Angulo? Ej:45";g 50,0;" " 51,0;" " 52,0;" " 0,0; vx=vi*(g*/180) (vy=vi*(g*/180) 2tv=2*vy/9.81 7"Tiempo de vuelo=";tv;"s." < xm=vx*tv A"Alcance=";xm;"m." F"ym=vy^2/2/9.81 K"Altura maxima=";ym;"m." P t=0 U0,0 Za=0:b=0 dt=tv170 ht=t+.175~3333 k t>tvt=tv nx=vx*t x'y=vy*t-(9.81*t^2)/2 >y>175(170x255)+(150x<255) x>255170 $a>255b>175150 21;3;a,b:1;3;x-a,y-b t=tvx<2566;1;21,(x/8);"":2:.1}L,20:6:.13~R,-20:6:.1}L,20:1:.1}L,0:254,2 a=x:b=y 100d *#1;"Desea borrar la pantalla? s/n" %="s".3,0::10 "n"180 .3,5:10 PLUS3DOSy  !9000(#:7000X:8 ;a$="2"x1=x1+(1x1<30):y1,x1-1;" ": :a$="1"x1=x1-(1x1>1):y1,x1+1;" ":  a$="0"4:1;x1*8+3,8:1;0,175-8*3:1;x1*8+3,8:1;0,175-8*3:7:x1=xp=p+20:.05|L,20:0;6;0,7;p:  85:1;x*8+4,175-(y*8)-8:1;0,-175+(y*8)+8:1;x*8+4,175-(y*8)-8:1;0,-175+(y*8)+8:7:x1=xo=o+20:.05|L,0:0;6;0,24;o:  0:0:7: }3;''''''" MANDOS";6''" 1..........Izquierda"''" 2..........derecha"''" 0..........Laser" 1;5;"Nivel dificultad (1-8) 1.....dificil 8.....facil "'v:v<1v>810  0,0; /n=164@:4;1;" ";:n 5:1:0,0:255,0:0,175-15:-255,0:0,-175+15:7 0o=0:p=0:y1=20:x1=15 x=15:y=10 s1;0;4Track-Info  N ;0,0;"Humano=";6;p;0,16;4;"Maquina=";6;o n=01000 L(*2)=1x=x+(1x<30):y,x-1;" ":21 +x=x-(1x>1):y,x+1;" " L(*2)=1y=y+(1y<18):y-1,x;" ":23 +y=y-(1y>2):y+1,x;" " -6;y,x;"":(*10 )>v6 <y1,x1;"";#0;1,10 ;3;"Tiempo=";n a$=:a$""2 n 9n=0557:.01z# =,n:.01z# =,n-5:n &1:1:0:7: <10 ,5;"Gano ";:o3z=1 (a<810*3000 2a<04000 <l<04000 -="p"p=2:c=c-5:f=f-10 D"o"4,22;" ";5,22;" ":f=f-15 C="o"4,22;"";5,22;"":v=v+5 2z=1a$=" " 2z=2a$=" " 2z=3a$=" " 8v<1v=1-1:z=z-1:c=c+3 f<04000 Jv>30ac<4c<10 te=te+1:te=255000  IMPRESION  H<p=14,19;"";5,19;"" R<p=24,19;"";5,19;""  p=1 $0;l/111o,a/(333M) 1,0;a;" " 1,8;l;" " 11,16;v;" ";1,22;f;" "   CARRETERA  )ma>515acc,0;" ":plp=1:acc+3,19;" "::p +1acc,0;" " 0:z=1ac,0;" " :;z=2ac,0;" " D;z=3ac,0;" " vac<1ac=acc acc+3,19;" " ac+3,19;"" acc=ac   EXPLOSION  h3,18;"" |4,16;" " 95,18;"";6,17;" " 0-a=1491:1:a::250 pgn=160<:6,6;1;"HAS CONSEGUIDO ATERRIZAR!":.1}L,n:n::250 PLUS3DOSb;2:0:1:5:::.5,502 'x=10 502:x/500,x:x j1;2;7;10 ,12 ;"DIBUJO";13 ,1;"PULSAR UNA TECLA PARA EMPEZAR" N4:4:2:2:2:1:4:=""4  0: "MANDOS DEL PROGRAMA:"''"1,2,3,4=HACIA ESQUINAS"''"5,6,7,8=CURSORES"''"0=LEVANTA LAPIZ"''"x=BORRADOR CON 1,2,3,4,5,6,7 Y 8"''"i=BAJA LAPIZ"''"b=BORRA PANTALLA"''"c=CIRCULO","g=MEMORIA"''"s=GRABA PANTALLA"''"t=CAMBIA COLORES" a(2000):b(2000) $ni=0:no=0:bo=0 S0::"Para los circulos poner un radio menor que las coordenadas del plot" A"Color papel y borde,0-7 ?";p''"Color tinta,0-7 ?";t:p:p:t: #1"Coor. X (0 a 255)? ";a''"Coor. Y (0 a 175)?";b (c=12000 )!="1"a=a-1:b=b+1 *!="2"a=a-1:b=b-1 +!="3"a=a+1:b=b-1 ,!="4"a=a+1:b=b+1 -="5"a=a-1 .="8"a=a+1 /="6"b=b-1 0="7"b=b+1 1 ="b" 2=""502 3="s"999 4="0"bo=1 5="i"bo=0 6="x"bo=2 7"a<0a>255a=0 8"b<0b>175b=0 9="c"400 :="g"200 ;4bo=2a,b:.001wn,502:1;a,b <<bo=0a,b:(50000P+c),a:(52001!+c),b:u=c ==bo=11;a,b:.001wn,60<:1;a,b >="p"900 Ac=u Fc *:"pasos,1-5 ?";e:d=1c-1e #(50000P+d),(52001!+d) d ,T=""#0;"PULSAR UNA TECLA PARA EMPEZAR":1,10 :0:3 1"radio ";r:r0a,b,r:58:  400 C1;"Color nuevo borde y papel ?";p''"Color nuevo tinta ?";t Wp:t:v=021:1;" ":v:p:63? )"Nombre del dibujo ?";a$:a$:45- Track-Info  N PLUS3DOS0s0s0*****PIRAMIDE***** ;23658j\,0:0:0:7:1:  85004! s.3,7:.15~,4:.15~,2:.15~,0:.15~,-3:.45ffff,-4  :HI=0:LIVES=3:SCORE=0:SCREEN=1 LIVES=08900"  ,9000(#:F="A""H"+7:A:F,A:F 2;"PANTALLA "; 5;SCREEN; 3;25;"PUNTOS" C6;3,25;"MAXIMA";4,25;4;HI )1,25;(SCORESCORE>0) 3;"VIDAS"  0 d"Z=16:X=0:Y=0 nG=15 x F=6+X22-Y4 6;Z,F+1;"";Z+1,F;;" ";Z+2,F;" ";Z+3,F;"";Z+4,F;"";Z+5,F+1;"" F 'Z=Z-4:X=X+2:Y=Y+2 G ,9100#:F="A""T"+7:A:F,A:F =A$="":B$="":A=17:B=15:Q=1 ˜(1000*(SCREEN<6SCREEN=7))+(2000*(SCREEN=6SCREEN=9 ))+(3000 *(SCREEN=8))+(5000*(SCREEN10 )) 6D=0:J=0:I=SCREEN:G=0:H=0 2V=1:W=15:P=0:E=(*2) ^T=(*4):T+145;8;V,W;"";V+1,W;"":1085= :Q=17;1;A,B;"";A+1,B;""  :Q=07;1;A,B;"";A+1,B;""  (A-1,B)=61;0;A-1,B;"";A,B-1;"";A,B+2;"";A+1,B-1;"";A+1,B+2;"";A+2,B;"":SCORE=SCORE+25:J=J+1:1,25;SCORE D$=  D=D-1 (A+2,B-3)=67CD$=122z1;A,B;" ";A+1,B;" ":B=B-4:7;A,B;"";A+1,B;"":7000X (A+2,B+4)=67CD$=32 1;A,B;" ";A+1,B;" ":B=B+4:7;A,B;"";A+1,B;"":8000@ 9(A+3,B)=6.01z# =,(*20)-10 A(A+3,B)6:4:LIVES=LIVES-1:7  DSCREEN10 A=GB=H4::LIVES=LIVES-1:7 !PSCREEN8T+I4A=VB=W4::LIVES=LIVES-1:7 "NSCREEN9 D0A=VB=W4::LIVES=LIVES-1:7 #yJ=159400$:F=119:A:.07}\(,A:F::SCREEN=SCREEN+1:SCORE=SCORE+I*25:7 $[1;6;3,0;A$(LIVES*2);4,0;B$(LIVES*2) .nD$=113q1;A,B;" ";A+1,B;" ":.01z# =,30:A=A-4:B=B-2:Q=0 0nD$=112p1;A,B;" ";A+1,B;" ":.01z# =,30:A=A-4:B=B+2:Q=1 2nD$=122z1;A,B;" ";A+1,B;" ":.01z# =,30:A=A+4:B=B-2:Q=0 3mD$=32 1;A,B;" ";A+1,B;" ":.01z# =,30:A=A+4:B=B+2:Q=1 4vD$=122zƫ(A+4,B+2)=0ū(A+4,B+2)=04::LIVES=LIVES-1:7 5SCREEN=62010 6SCREEN=83010 7SCREEN=9 2010 8'SCREEN10 Y=05002 9'SCREEN10 Y=15020 ;T+141085= < 1010 >E=0P=P+2 ?E=1P=P-2 B&8;V,W;" ";V+1,W;" " GV=V+4:W=W+P L P=0 Q SCREEN=5E=(*2) VV>171010 `/5;8;V,W;"";V+1,W;"" ~ 1030 cG=0:H=0:D=0:J=0:I=SCREEN:E=0:V=1:W=15:T=0 RSCREEN9 3;1;19,3;"";19,27;"" P=(*2) P=1T=+2 Track-Info  N P=0T=-2 :D04;8;V,W;"";V+1,W;"" :Q=17;1;A,B;"";A+1,B;"" :Q=07;1;A,B;"";A+1,B;"" (A-1,B)=61;0;A-1,B;"";A,B-1;"";A,B+2;"";A+1,B-1;"";A+1,B+2;"";A+2,B;"":SCORE=SCORE+25:J=J+1:1,25;SCORE  E=E+((*5)+I/4)  9SCREEN9 D0E=E+((*5)+I/3) aE10 VAW>B8;V,W;" ";V+1,W;" ":V=V-4:W=W-2:E=0 aE10 V>AWB8;V,W;" ";V+1,W;" ":V=V+4:W=W-2:E=0 aE10 V=AW>B8;V,W;" ";V+1,W;" ":V=V+0:W=W-4:E=0 aE10 V=AWAW=B8;V,W;" ";V+1,W;" ":V=V-4:W=W+T:E=0  1040 7J=0:I=SCREEN:V=1:W=15:T=0 /5;8;V,W;"";V+1,W;"" :Q=17;1;A,B;"";A+1,B;"" :Q=07;1;A,B;"";A+1,B;"" (A-1,B)=61;0;A-1,B;"";A,B-1;"";A,B+2;"";A+1,B-1;"";A+1,B+2;"";A+2,B;"":SCORE=SCORE+25:J=J+1:1,25;SCORE E=(*6)+1 E=1V5ƫ(V-4,W-3)=6E=1V5ƫ(V-4,W-3)=18;V,W;" ";V+1,W;" ":V=V-4:W=W-2 E=2V5ƫ(V-4,W+3)=6E=2V5ƫ(V-4,W+3)=18;V,W;" ";V+1,W;" ":V=V-4:W=W+2 E=3V13 ƫ(V+4,W-3)=6E=3V13 ƫ(V+4,W-3)=18;V,W;" ";V+1,W;" ":V=V+4:W=W-2 E=4ƫ(V+4,W+3)=6E=4ƫ(V+4,W+3)=18;V,W;" ";V+1,W;" ":V=V+4:W=W+2 E=5ƫ(V,W-2)=6E=5ƫ(V,W-2)=18;V,W;" ";V+1,W;" ":V=V+0:W=W-4 E=6ƫ(V,W+3)=6E=6ƫ(V,W+3)=18;V,W;" ";V+1,W;" ":V=V+0:W=W+4  1040 XD=0:J=0:I=SCREEN:E=0:V=1:W=15:T=0:Y=0 B3;1;19,3;"";19,27;"" S=(*4) "S=0G=5:H=29 "S=1G=9 :H=27 #S=2G=13 :H=29 #S=3G=17:H=27 :5;8;G,H;"";G+1,H;"":Y=1 P=(*2) P=1T=+2 P=0T=-2 >H68;G,H;" ";G+1,H;" ":H=H-4 :H65;8;G,H;"";G+1,H;"" 3H<6G,H;" ";G+1,H;" ":Y=0 :D04;8;V,W;"";V+1,W;"" :Q=17;1;A,B;"";A+1,B;"" :Q=07;1;A,B;"";A+1,B;"" (A-1,B)=61;0;A-1,B;"";A,B-1;"";A,B+2;"";A+1,B-1;"";A+1,B+2;"";A+2,B;"":SCORE=SCORE+25:J=J+1:1,25;SCORE  2060  XF=18 \VA,B;" ";A+1,B;" ";A+2,B;" ":VIC=1:A=A-2:B=B+1 ]W.01z# =,30+F:A,B;"";A+1,B;"";3;1;A+2,B;"" b&8;V,W;" ";V+1,W;" " vF uA,B;" ";A+1,B;" ";A+2,B;" ":B=B+4:Q=1:V=1:W=15:D=3:1030 @F=18 DIA,B;" ";A+1,B;" ";A+2,B;" ":A=A-2:B=B-1 EW.01z# =,30+F:A,B;" ";A+1,B;" ";3;1;A+2,B;" " J&8;V,W;" ";V+1,W;" " ^F ruA,B;" ";A+1,B;" ";A+2,B;" ":B=B-4:Q=0:V=1:W=15:D=3:1030 !4,Track-Info  N 9500%:F="A""C"+7:A:F,A:F !6&A$="" !9A=16:B=0 !;eF=1292:2;A,B;A$(30-F);A$(31):A=A-1:B=B+1:F !>D8,11 ;"PIRAMIDE";12 ,7;"POR DAVID BRADLEY" !C 125} !D0:0:7: !F@F=031:2;0,F;"";21,F;"":F !G@F=120:2;F,0;"";F,31;"":F !HU7;1,9 ;"INSTRUCCIONES";1;1,9 ;"_____________" !M 6 !R3,1;"DEBE PINTAR TODOS LOS";4,1;"BLOQUES DE LA PIRAMIDE PARA";5,1;"PASAR A LA SIGUIENTE PANTALLA" !\^7,1;"ATENTO A LAS BOLAS Y A LA";8,1;"SERPIENTE:MORIRA SI LE TOCAN" !fO10 ,1;"SOLO PUEDE USAR UNA VEZ CADA";11 ,1;"ASCENSOR" !k 4 !p13 ,13 ;"Q P";14,14;"\ /";15,15;"\/";16,15;"/\";17,14;"/ \";18,13 ;"Z SPACE" !z43;20,5;"PULSE CUALQUIER TECLA" ! 0 !=""8595! !:7:6 "SCORE>HIHI=SCORE "46;11 ,5;"PULSE CUALQUIER TECLA" "=""8920" ".LIVES=3:SCORE=0:SCREEN=1 ": #(1,2,4,8,16,32 ,64@,128,128,64@,32 ,16,8,4,2,1,128,128,128,128,128,128,128,128,1,1,1,1,1,1,1,1 #P0129,65A,33!,17,9 ,5,3,1,129,130,132,136,144,160,192,128,128,192,160,144,136,132,130,129,1,3,5,9 ,17,33!,65A,129:129 #0,1,3,3,3,1,3,3,0,128,64@,224,192,128,192,64@,3,3,1,1,1,1,1,1,64@,64@,128,128,128,128,128,192 #0,1,2,7,3,1,3,2,0,128,192,192,192,128,192,192,2,2,1,1,1,1,1,3,192,192,128,128,128,128,128,128 #0,0,0,0,3,7,15,15,0,0,0,0,192,224,240,240,15,15,7,3,0,0,0,0,240,240,224,192,0,0,0,0 $0,3,5,15,7,0,0,0,0,128,192,224,176,480,96`,192,1,3,6,12 ,12 ,6,3,1,152,36$,34",6,12 ,24,176,224 $,/255,254,252,248,240,224,192,128,255,127,63?,31,15,7,3,1,128,192,224,240,248,252,254,255,1,3,7,15,31,63?,127,255 $9 ,9 ,9 ,7,7,7,6,6,6,4,4,4,6,6,6,7,7,9 ,11 %1,3,7,0,31,63?,127,0,247,247,247,0,127,127,127,0,192,224,240,0,124|,126~,127,0 &)1,25;(scorescore>0) Track-Info  N PLUS3DOS.$*** PERCEPCION EXTRA SENSORIAL *** 1:1:7: gA$=" EL TEST DE PERCEPCION":B$=" EXTRASENSORIAL FUE INVENTADO":C$=" POR EL PROFESOR RHINE EN 1934." d5,16-A$/2;A$;7,16-B$/2;B$;9 ,16-C$/2;C$ 110n:100d: Z=0 T=125 'RP=(*6):RP=030 6,6;144;6,10 ;145;6,14;146;6,18;147;6,22;148 "n7,6;"1";7,10 ;"2";7,14;"3";7,18;"4";7,22;"5" #&.2~L,14:.4L,11 (*"ELIJA UN SIMBOLO ENTRANDO SU NUMERO ";A 2A<0A>540( 20Y$="TU P.E.S. DE HABILIDAD ES ":X$="% POR ENCIMA DE LO NORMAL":1;19,16-Y$/2;Y$;(P-20);20,16-X$/2;X$:0 i nN=144148 xF=07 }X (N)+F,X F N  J24,36$,66B,129,129,6,36$,24 M82R,137,82R,137,82R,137,82R,137 K24,24,24,255,255,24,24,24 K153,90Z,60<,255,60<,90Z,153,0 Q255,129,129,129,129,129,129,255 PLUS3DOSy?*** UN DIA EN LAS CARRERAS*** Y9992':1:4:0::Y$:9 ;10 ,16-Y$/2;Y$ 99000(#:9993 ':A$=" ":B$=" ":C$=" " :X=410 2 Y$ I=1̱Y$:X,I+1;"";X,I;Y$(I);X+1,I;B$:5:;X+1,I;C$:.006yD,-15:2:.013zT,-14:2:.006yD,-15 I "X,I;" ";X+1,I;" ":X 0 236099\,255: >V$=" ":X$="TIENE USTED ` ": MONEY=20:RACE=0 "A$=" ":B$=" ":C$=" " ;7::M$=X$+MONEY:2,16-M$/2;M$ MONEY=09900& RACE=RACE+1 " &RACE=10 9950& (C1=(*3) *C2=(*3) ,C3=(*3) 2C1=2C1=7 4C2=2C2=7 6#C3=2ƥ>.5C3=7 <SAD=(*3)+4 ASAD=4SAD=2 FY4:F=10 21:F,0;4;" ":F KL0,96`:36$,36$:183,0:36$,-36$ Lq0,96`:0,16:36$,24:255,96`:0,16:-36$,24 ML36$,132:0,16:183,0:0,-16 N=4,5;1;6Track-Info  N ;"UN DIA EN LAS CARRERAS" PRF=69 :D=414:F,D;2;"";F,D+13 ;"":D:F U2;7,3;"";7,28;"";8,2;"";8,28;"";9 ,1;"";9 ,28;"" ZJF=031:10 ,F;1;7;"";21,F;"":F _;RACE=9 21,9 ;1;"ULTIMA CARRERA" dS12 ,0;C1;4;A$;13 ,0;B$;12 ,2;SAD;"" n[15,0;C2;4;A$;16,0;B$;15,2;SAD+1;"" x\18,0;1;C3;4;A$;19,0;B$;18,2;SAD;"" N=(*18)+1 }F=12 183:F,6;(F/3)-3;:(8000@+N+((F/4)-3)):N$:F,27;"/1":F 7000X AF=01:G=118:F,G;" ":G:F:25 JF=12 183:G=629:F,G;4;" ":G:F !A=0:B=0:C=0 I12 ,A;C1;4;A$;13 ,A;B$;12 ,A+2;SAD;"" .006yD,-15 Q15,B;C2;4;A$;16,B;B$;15,B+2;SAD+1;"" I18,C;C3;4;A$;19,C;B$;18,C+2;SAD;"" -A=A+*1:B=B+*1:C=C+*1 PA>2712 ,27;4;" ";13 ,27;" ":A=28 I12 ,A;C1;4;A$;13 ,A;C$;12 ,A+2;SAD;"" A=281000 PB>2715,27;4;" ";16,27;" ":B=28  .013zT,-14 Q15,B;C2;4;A$;16,B;C$;15,B+2;SAD+1;"" B=281050 PC>2718,27;4;" ";19,27;" ":C=28 "I18,C;C3;4;A$;19,C;C$;18,C+2;SAD;"" 'C=281100L ,.006yD,-15 ^ A=A+:B=B+:C=C+:200 qG=110 :13 ,G;" EL GANADOR!!":.01z# =,40(:.01z# =,30+G:G:.5,20 /BET=1MONEY=MONEY+(STAKE+(STAKE*ODD1))  25 qG=110 :16,G;" EL GANADOR!!":.01z# =,40(:.01z# =,30+G:G:.5,15 $/BET=2MONEY=MONEY+(STAKE+(STAKE*ODD2)) 8 25 LqG=110 :19,G;" EL GANADOR!!":.01z# =,40(:.01z# =,30+G:G:.5,10 V/BET=3MONEY=MONEY+(STAKE+(STAKE*ODD3)) j 25 XODD1=(*5)+2 bODD2=(*5)+2 lODD3=(*5)+2 nODD1=6ODD1=7 p'ODD2=4ƥ>.5ODD2=8 r'ODD3=5ƥ>.6ODD3=9 vI12 ,26;ODD1;15,26;ODD2;18,26;ODD3 L0,1;"QUIERE APOSTAR A";1,1;"ALGUN CABALLO S/N? " -="S"Ŧ="s".25~,10 :7130 9="N"Ŧ="n".25~,10 :BET=0:172  7110 P0,1;"CUAL CABALLO ";1,1;"1/2/3 ? " "0:<"1"Ŧ>"3"7132 iBET=:X=12 18:X,31;"#":X:5;1;11 +(BET*2),31;"*"  [.25~,10 :0,1;"CUANTO ";1,1;"QUIERE APOSTAR? " *STAKE 4STAKE>MONEY.3,10 :0,1;"NO HAY BASTANTE DINERO";1,1;" TRATE DE NUEVO ":7210* >MONEY=MONEY-STAKE HDM$=X$+MONEY:2,0;V$;2,16-M$/2;M$ RR0,1;" ";1,1;" ": AN$=" SATURDAYS BOY ": BN$=" SAINT PATRICK ": CN$=" DIETOVER ": DN$=" QUEEN & COUNTRY ": EN$=" MR POPPY ": FN$=" PINKYS BARN ": GN$=" CHIMNEY SWEEP ": HN$=" MICRO-CHIP ": IN$=" TAXI-FARE ": JN$=" PURPLE JIM ": KN$=" ALADDIN ": LN$=" TEXAS BORN ": MN$=" BRICK A BRACK ": NN$=" JAM AND BREAD ": ON$=" FIFTY GUINEAS ": PN$=" WONDERFUL WILF ": QN$=" BOB AND JOB ": RN$=" RACE EM ALL ": SN$=" LONDON BRIDGE ": TN$=" MOON MAN ": #' #(Q90102#:F=111 :N=07:A:(143+F)+N,A:N:F #20,0,0,0,0,0,31,127,0,0,0,0,1,255,255,255,160,160,112p,216,252,254,239,194 #<159,159,152,40(,40(,40(,Track-Info  N 72H,144,255,255,0,0,0,0,1,0,192,192,160,80P,72H,68D,132,8 #F159,159,152,20,10 ,9 ,9 ,5,255,255,1,2,20,25,2,4,192,128,128,128,128,0,0,0 #P24,60<,126~,86V,126~,36$,60<,66B,0,255,102f,102f,102f,255,102f,102f #Z &(5::SCROLL=12 :9982& & 9986' &bM=18:Y$:21,16-Y$/2;Y$:9982&:25:A=3280 :M & 9984' & 9970& &(5::SCROLL=10 :9982& &M$=MONEY+"`" & 9988' &bM=19 :Y$:21,16-Y$/2;Y$:9982&:25:A=3280 :M & 9984' &R19,5;"PULSE CUALQUIER TECLA";20,9 ;"PARA CONTINUAR" &0:10 &SINC=(*24):F=40(-10 -2:.01z# =,F:.01z# =,INC:F: '&I=1SCROLL:A=3280 :I: '"LO SIENTO MUCHO,BUENO,","REALMENTE NO TANTO.","EL CASO ES QUE SE HA QUEDADO","SIN DINERO","MUCHO ME TEMO QUE TENDRA USTED ","QUE VOLVERSE ANDANDO A CASA." '%" "," " '"BIEN,PUES ESTA USTED DE SUERTE:","ESTA ES LA ULTIMA CARRERA","DEL DIA Y SUS GANANCIAS","ASCIENDEN A UN TOTAL","DE NADA MENOS QUE ",M$,"ENHORABUENA!" '%" "," " 'I=020:0,I+1;"";0,I;"A";1,I;B$:5:;1,I;C$:.006yD,-15:.013zT,-14:.006yD,-15:I ' "ESPERE UN MOMENTO, POR FAVOR" ' {"PULSE CUALQUIER TECLA PARA","PASAR UN DIA EN LAS CARRERAS","BIENVENIDO Y !BUENA SUERTE!."," =====******===== " PLUS3DOSl$##'Y ...................... .  J.L. RUIZ 15.7.84. ...................... 236099\,255 :F=0:N$(30,216):M$(20,12 ) 1450 1:7:1: 20,0;1;7;"Datos";2;7;5;"D";1;7;7;"Instr";2;7;12 ;"I";1;7;14;"Fin ";2;7;19;"T";1;7;21;"Formu";2;7;26;"F" 21,0;1;7;"Carga";2;7;5;"C";1;7;7;"Salva";2;7;12 ;"S";1;7;14;"Borra";2;7;19;"L" DV$="":H$="":L$="":PARE=0:C=1:L=1:400 nCURSOR Y POSICION 0 $Y,X;1;6;"" #Y,0;1;0;"" *0,X+4;1;0;"" >X=X+10 *(="8"X21)-10 *(="5"X3) <Y=Y+2*(="6"Y18)-2*(="7"Y2) $Y,X;1;6;"" ,,Y,0;1;1;5;"" 630,X+4;1;1;5;"" 8="S"Ŧ="s"1000 :="C"Ŧ="c"1200 ;0="L"Ŧ="l"N$(30,216):400 @ C1=C:L1=L EUC=C+3*(="8"X22C<22)-3*(="5"X2C>1) JBL=L+(="6"Y19L<3)-(="7"Y1L>1) OC1CL1L390 T!="K"Ŧ="k"G$="+":1400x V!="J"Ŧ="j"G$="-":1400x X!="H"Ŧ="h"G$="^":1400x Z!="B"Ŧ="b"G$="*":1400x \!="V"Ŧ="v"G$="/":1400x b$=13 600X:1300 c="T"Ŧ="t" h="I"Ŧ="i"1450 m="F"Ŧ="f"1630^ w="D"Ŧ="d"752 | 160  X1=X:Y1=Y &Y1,X1;1;6;"" AMPLIO LOS PARAMETROS Y=1:X=2 q0,6;7;(C+1+63?);16;(C+2+63?);26;(C+3+63?) ±1,0;7;(L+47/);491;3,0;(L+47/);502;5,0;(L+47/);513;7,0;(L+47/);524;9 ,0;(L+47/);535;11 ,0;(L+47/);546;13 ,0;(L+47/);557;1Track-Info  N 5,0;(L+47/);568;17,0;(L+47/);579;19,0;(L+1+47/);480 dz15,168:0,-153:233,0:0,153:-233,0:92\,168:0,-152:172,168:0,-152 ,Y,0;1;1;5;"" 30,X+4;1;1;5;""  800  & XCALCULO DE SUBINDICES ]1,2,1,1,12 ,10 ,1,22,19,4,2,28,4,12 ,37%,4,22,46.,7,2,557,7,12 ,64@,7,22,73I,10 ,2,82R,10 ,12 ,91[,10 ,22,100d,13 ,2,109m,13 ,12 ,118v,13 ,22,127,16,2,136,16,12 ,145,16,22,154,19,2,163,19,12 ,172,19,22,181,22,2,190,22,12 ,199,22,22,208 bP=123:CC,XX,B gC=CCX=XX625q lP q 1A=10 *(L+47/)+((1+Y)/2)  ENTRADA DE DATOS .21,27;2;7;"DATOS"  600X:23617A\,0 "Introduce el dato";" ";Q$ %Q$=""űQ$>9 Q$=" "755 N$(A)(BB+8)=Q$  Y,X;1;" " 0Y,X+(9 -Q$);1;N$(A)(BB+8) %21,27;1;" "   IMPRIMO ELEMENTOS */21,26;2;7;"ESPERE" /XP=2:YP=1 >$AP=10 *(L+47/)+1 H:I=APAP+9 MCP,XXX,BB:CCP845M \J=CC+2 ]8N$(I)(BBBB+8)=" "R=9 :880p ^((N$(I)(BBBB+8))65AƯ(N$(I)(BBBB+8))90Z)((N$(I)(BBBB+8))97aƯ(N$(I)(BBBB+8))122z)R=9 :880p _,N$(I,BB+8)="0"R=9 :880p a"O=(N$(I)(BBBB+8)):R=O pYP,XP;" " r2YP,XP+(9 -R);1;N$(I)(BBBB+8) uXP=XP+10 :BB=BB+9 zJ { | XP=2 YP=YP+2 I &21,26;1;" " $Y,X;1;6;""  SALVAR Y VERIFICAR /21,26;2;7;"SALVAR" "NOMBRE(8 letras)-";" ";S$ S$=""S$=" "1010  S$N$() &21,26;1;" " 0:7:0::7,6;"RETROCEDE EL CASSETTE";9 ,6;"PARA VERIFICAR Y PULSA";12 ,13 ;1;1;"PLAY"  S$N$()  10  CARGAR /21,26;2;7;"CARGAR" "NOMBRE(8 letras)-";" ";C$ C$=""C$=" "1210 {0:7:0::9 ,3;"PULSA PLAY EN EL CASSETTE";11 ,3;"Y PULSA CUALQUIER TECLA"  0  C$N$()  10 FORMULACION jF=021,27;7;2;"ERROR":20:21,27;1;" ": P$=M$(1)+M$(2)+M$(3)+M$(4)+M$(5)+M$(6)+M$(7)+M$(8)+M$(9 )+M$(10 )+M$(11 )+M$(12 )+M$(13 )+M$(14)+M$(15)+M$(16)+M$(17)+M$(18)+M$(19)+M$(20) T=P$ 7N$(A)(BB+8)=T 8I$=T 9%I$>9 I$=I$(19 ) <Y,X;1;" " A0Y,X+(9 -I$);1;N$(A)(BB+8) C"F=0:M$(20,12 ) D*21,21;1;1;"" F xCONTROL DE LAS FORMULAS }321,22;2;7;"PARENTESIS" !F=F+1:600X:0 (=40(H$="(":PARE=PARE+1 (=41)L$=")":PARE=PARE-1 21,21;PARE *21,22;1;" " 321,22;2;7;"TRIGONOME."  0 ="Q"Ŧ="q"V$="" ="W"Ŧ="w"V$="" ="E"Ŧ="e"V$="" ="R"Ŧ="r"V$="" ="Z"Ŧ="z"V$="" ="U"Ŧ="u"V$="" ="O"Ŧ="o"V$="" ="P"Ŧ="p"V$="" (M$(F)=(G$+H$+V$+N$(A)(BB+8)+L$) G$="":V$="":H$="":L$="" *21,22;1;" "  INSTRUCCIONES 4:0:4:  1;7;0,1;"HOJA DE CALCULO";4;0;1,0;"El control del cursor y de las hojas de calculo se haceTrack-Info  N  con lasteclas**5,6,7 y 8**.";6;0;4,0;"OPCIONES";4;0;5,0;"D-Entrada de numeros o literales no mayores de 9 digitos. L-Borra los datos.";8,0;"C-Carga datos desde la cinta.";9 ,0;"S-Salva datos en cinta";10 ,0;"I-Visualiza las instrucciones.";11 ,0;"T-Borra el programa." ~12 ,0;"F-Visualiza las operaciones.";13 ,0;"Para operar hay tres pasos:";14,0;"OPERACION-Para la primera cifra siempre +,despues grupo A.";16,0;"PARENTESIS-SYMBOL SHIFT(8,9). El numero de abajo indica los parentesis abiertos.Sin parente-sis pulsar cualquier tecla.";20,0;"TRIGONOME.-Grupo B.Sino otra te-cla."  0 4:0:4::6;0;0,0;"OPERACIONES-";2,2;4;0;"K- Suma.";3,2;"J- Resta.";4,2;"H- Potencia.";5,2;"B- Producto.";6,2;"V- Division.";7,2;"Q- Seno.";8,2;"W- Coseno.";9 ,2;"E- Tangente.";10 ,2;"R- Raiz.";7,16;"U- Arco seno.";8,16;"O- Arco coseno.";9 ,16;"P- Arco tang.";10 ,16;"Z- Log. neper." 120x,120x:0,39':-116t,0:0,-11 :4,132:0,-13 :244,0:0,-36$:-244,0:0,11 :4,107k:0,12 :4,0;"A";9 ,0;"B" H12 ,0;"Para ver el resultado ENTER.";13 ,0;"La limitacion para representar numeros es de 9 digitos,no sien-do posible la notacion exponen--cial.";17,0;"Si hubiese algun error,continuarcon;";19,13 ;1;"GO TO 10";0;21,0;2;7;"ENTER-Salir" ?13 1599? @ 10 ^IMPRIMO LAS FORMULAS c6:0:6: h*0,0;"IMPRESION DE FORMULAS" m2,0 r D=1F w"OPERACION-";D;" ";M$(D) |D ~ 0  10 PLUS3DOS   n*** Copyline1 *** 1:1:7: 6;1;"LISTADO DE PROGRAMAS"'':" SIT ";"SENT ";"LONG ";"BYTE ";"CODI o NUM"':23689\,23689\+1:1;"_____ ____ _____ ____ __________" "Primera linea listada:";a$ 0I=1̱A$:A$(I)<"0"A$(I)>"9"1010 I $a$=""prs=10000':1050 2a$<10000'ưa$0prs=a$:1050  1010 "Ultima linea listada:";a$ 0I=1̱A$:A$(I)<"0"A$(I)>"9"1050 !I $$a$=""uls=10000':1100L .2a$<10000'ưa$0uls=a$:1100L 8 1050 L>dir=23635S\+256*23636T\:23692\,1 V#nsc=(dir+1)+256*dir `-lon=(dir+2)+256*(dir+3) jPdirȾ23627K\+256*23628L\5;"FIN DEL AREA DE PROGRAMA": t*nsculs2000 pun=dir+4 0dir;6;nsc;11 ;lon;17;dir' i=13 dir+i;17;(dir+i)' i 1dir=dir+lon+4:ruca=0:runu=0  peek=pun ?peek=13 pun=dir-1pun;17;peek:1110V 6peek=34"ruca=0ruca=1:1280 ruca=113302 Bpeek=14runu=11350F:runu=0:1220 +peek<58:peek>47/Track-Info  N runu=1 pun;17;peek;  peek<32 ""' !peek>3121;peek' pun=pun+1:1220 2peek=34"ruca=0 < 1280 F&pun;17;pun':pun=pun+1 P6a(5):i=15:a(i)=(pun+i-1) Zi da(1)=0(a(2)=0a(2)=255)a(5)=0num=(a(3)+256*a(4))*(a(2)=0)+(a(2)=255)*((a(4)-256)*256+a(3)):1460 n num=0 xi=52-1 num=(num+a(i))/256 i :a(2)<128s=1:num=num+1/2 "a(2)128s=-1 *num=s*num*2^(a(1)-128) #pun;17;pun;21;num' i=14 pun+i;17;(pun+i)' i:pun=pun+5: 3"QUIERE CONTINUAR S/N";A$:A$="S"A$="s"1  PLUS3DOS@@*** Copyline2 ***  6;1;"LISTADO DE PROGRAMAS"'':" SIT ";"SENT ";"LONG ";"BYTE ";"CODI o NUM"':23689\,23689\+1:1;"_____ ____ _____ ____ __________" "Primera linea listada:";a$ 0i=1̱a$:a$(i)<"0"a$(i)>"9"1010 i $a$=""prs=10000':1050 2a$<10000'ưa$0prs=a$:1050  1010 "Ultima linea listada:";a$ 0i=1̱a$:a$(i)<"0"a$(i)>"9"1050 !i $$a$=""uls=10000':1100L .2a$<10000'ưa$0uls=a$:1100L 8 1050 L>dir=23635S\+256*23636T\:23692\,1 V#nsc=(dir+1)+256*dir `-lon=(dir+2)+256*(dir+3) jPdirȾ23627K\+256*23628L\5;"FIN DEL AREA DE PROGRAMA": t*nsculs8;"FIN DEL LISTADO": 0dir;6;nsc;11 ;lon;17;dir' i=13 dir+i;17;(dir+i)' i !dir=dir+lon+4:1110V PLUS3DOSp*** PINGUINO ***  3000  hi=0 9000(# f=.2~L:lev=1 @r=18:c=14 e=2:d=0 f=f+.05|L &1:1::1:7 n=4204 An,0;4;1;"" n S0,0;6;0;1;" Nivel: tanteo " c0,14;0;6;1;lev:0,28;0;6;1;hi  6000p  hr+2,0;4;1;" " 1r,c;6;" ";r+1,c;6;" " 1r5r+5,c+1;" ":7000X Ce,d;7;1;" ";e+1,d;7;1;" " !d=d+f $*3,29;5;1;"" d275000Track-Info  N  4*="q"c=c-1:.0005vn,30 >*="w"c=c+1:.0005vn,30 H,="i"c+1=pr=r-4:6000p \c0c=0 fc29c=29 p 1031 *** TITULO DE PANTALLA *** (:6:6::6:0 Y4:1:f=140(:a=(*120x)+1:b=(*40()+1 127,105i:a,b 127,105i:-a,b 127,105i:-a,-b 127,105i:a,-b f 0 11,0;2;" PINGUINO" e16,0;2;1;"Hacia atras-Q Adelante-W Arriba-I ":0 >19,0;1;".....Pulse cualquier tecla....." 0  *** final rutina de juego *** (.6,-10 :.73333,-20 612 ,0;" " =11 ,0;7;" El oso polar coge el pez " v=0150:v Z13 ,0;7;" Pulse culquier tecla para jugar de nuevo":0:0  lev-1>hihi=lev-1  20 o*** Rutina de la escalera *** pp=(*29+1) qr=6p=29 s56,0;" " uV10 ,0;" " vV14,0;" " wV18,0;" " x r2 z|.005y# =,10 :.005y# =,15:.005y# =,20:r+1,p;"";r,p;"";r-1,p;"";r-2,p;""  W3*** Rutina de los siguientes niveles de juego *** X.1}L,10 :.1}L,7:.5,20:12 ,0;" Usted ha cogido el pez ":l=0200:l:lev=lev+1:100d #'+*** graficos definidos por el usuario *** #(#n=07:a:"a"+n,a:n #2#n=07:a:"b"+n,a:n #<#n=07:a:"c"+n,a:n #F#n=07:a:"d"+n,a:n #P#n=07:a:"e"+n,a:n #Z#n=07:a:"f"+n,a:n #d#n=07:a:"g"+n,a:n #n#n=07:a:"h"+n,a:n #x#n=07:a:"i"+n,a:n ##n=07:a:"j"+n,a:n #M0,568,68D,130,154,154,131,210 #N166,206,156,188,248,32 ,124|,0 $L0,255,251,123{,114r,502,480,16 $D3,7,7,7,3,15,31,63? $Q192,224,224,224,192,240,248,252 $"H557,557,23,7,14,14,14,14 $,Q236,236,232,224,112p,112p,112p,112p $6J31,63?,127,13 ,127,63?,31,0 $@O131,199,239,255,239,199,131,0 $JQ129,255,129,129,129,255,129,129 $T PLUS3DOSY*** PINTOR LOCO *** 23658j\,0  hs=0 6:6:0: Z 9000(# d 6000p isheet=1 j sc=0 k sc2=0 l bug=0 n 2000 s 3000 x=11 :y=31 x1=0:y1=-1 xx=x:yy=y .0,0;"Puntos=";sc;" Maxima=";hs x,y;0;6;"Track-Info  N " 6="p"ƫ(x,y+1)0y1=1:x1=0 7="o"ƫ(x,y-1)0y1=-1:x1=0 7="q"ƫ(x-1,y)0y1=0:x1=-1 6="a"ƫ(x+1,y)0y1=0:x1=1 x=x+x1:y=y+y1 (x,y)=546600X (x,y)=502500 ((x,y)480x=xx:y=yy:150 y=31150 xx,yy;2;6;"" sc=sc+1 .004yn,-10 @sc>sl2*100d+sc210 ,31;6;6;" "  150 xx,yy;2;""  x,y;"" n=10 -5-5  .5,n n 6sc>hs1,4;"Ha batido el record":hs=sc +21,5;"pulse cualquier tecla" &0:0::100d X Ysheet=5800  Zsheet=sheet+1 [sc2=sc \M10 ,3;"Nivel ";sheet-1;" Tiene 50 puntos":sc=sc+502 _&n=-10 10 :.09}8Q,n:n ` b 110n    ! p=1 "sc=600X %n=132 &p:p: > .05|L,n C#p=p+1:p=8p=1 Hn Isc=sc+150 M10,0;"ENHORABUENA LO HA CONSEGUIDO" N"'8;"su puntuacion es ";sc O6sc>hs1,2;"ha batido el record":hs=sc R+21,5;"pulse cualquier tecla" \(0:6:6::100d G1,0;0;0;"" In=120:n,0;0;0;"";n,31;"":n *10 ,31;0;6;"*" H21,0;0;0;"" sheet=1 Tn=11 20:n,10 ;0;0;"";n-10 ,20;"":n sheet=2 [5,1;0;0;"";16,16;""  sheet=3 -11 ,20;0;0;""  ,10 ,7;0;0;"" *sheet=4 4X10 ,1;0;0;"";12 ,27;0;0;"" > bug=bug+4 bug>16bug=16 n=1bug 2a=(*20)+1:b=(*29)+1 (a,b)4803010 a=11 3010 a,b;2;6;"" n  p6:6:0 z 0,9 ;"PINTOR LOCO" 9"Q-Arriba A-Abajo P-derecha O-Izquierda" '"Tiene que pintar el suelo de lashabitaciones de su casa. Despuesde haber pintado una cierta can-tidad del suelo,la puerta '*'se abrira y entrara en la siguiente"  $"Los sonidos le ayudaran, pero sipisa sobre el suelo recien pintado, se quedara pegado a el y no saldra de la habitacion, asi quedeje un camino abierto hacia la puerta.Hay algunos bichos en el suelo '' que le comeran si los pinta.El juego termina cuando lecomen o al pintar 5 habitaciones" &"elija nivel( 1 facil,4 dificil)";sl sl>46040 sl<16040 sl=sl+1 sl2=sl .05|L,15   #($n=023:d:"a"+n,d:n #2I24,24,60<,90Z,90Z,24,36$,36$ #70F15,8;1;"DEMASIADO LENTO":2;7;1;" EL HOMBRE LOBO LE HA MATADO" ;$F=1400:F:8000@ ?$F=1200:F:1000  1:1:7: `:9 ,0;1;"FELICIDADES. HA SALIDO VIVO DEL CASTILLO":F=1400:F R=(*2) R=11100L 4:4:0: `"ESTA USTED ATRAVESANDO UN PRECI-PICIO":X=1100d:X:"CAMINA SOBRE UNA TABLA Y..." X=1200:X 5:5:0: s6,0;4;7;1;"":X=721:X,0;7;"":X k20,10 ;1;"";21,0;"" 220,0;7;1;"" L=13 :F=619:F,10 ;"":.05|L,L-1:F,10 ;"":.05|L,L:L=L-1:F,10 ;" ":F 1:1:F=110 :.01z# =,*10 :20,10 ;"/":5:20,10 ;"|":5:20,10 ;"/":5:F:0 X=1200:X 7:7:0: ?10 ,5;2;1;"SE HA AHOGADO EN EL MAR" $X=1300,:X:8000@ L1:1:7: QR=(*6) V+R=0R=1R=22000 [!R=3R=43000 `R=54000 5:5:0: q0,87W:255,0:0,67C:10 ,10 Track-Info  N :235,0:10 ,-10 `10 ,3;1;"";10 ,15;2;"";10 ,28;0;"" B8,3;"0";8,15;"1";8,28;"2" h17,0;"UNO DE LOS VASOS DE ENCIMA DE LA MESA ESTA ENVENENADO. CUAL DE ELLOS QUIRE BEBER?" P=(*3)+480 #21,0;"PULSE 0,1 O 2" "0"Ʀ"1"Ʀ"2"2030 =P0:0:7::X=1502:.005y# =,*X:X:4;0;1;10 ,10 ;" HA BEBIDO EL VASO ENVENENADO!":F=1400:F:8000@ 7:7:0: a1;6;0,12 ;"SE SALVO!";2,3;"EL VASO NO ESTABA ENVENENADO"  A1,20:1,30:1,40(:500 0:7:7: !"ESTA DANDO VUELTAS EN CIRCULO" %:F=1200:F:170 7:7:0: "DESPUES DE ESTA EXCITANTE AVEN- TURA, HA OCURRIDO UN MILAGRO: NUESTRO QUERIDO AMIGO CLIVE SIN-CLAIR, SIN EL CUAL LA AVENTURA NO HABRIA SIDO POSIBLE,LE HA...." _1;7;1;" SALVADO JUSTO A TIEMPO DE UNA MUERTE CIERTA " 1F=1275:.003xD,*502:F: O2:5,14;"";6,14;"";7,14;"" F=15 i1:8,13 ;" ";9 ,14;"";10 ,14;"";11 ,14;"" .3,40( 48,13 ;"":9 ,13 ;" " .6,20 F 15,3; T4035:N=12:F=13:A,B,W$:W$;:A,B:F:20:N ×.5,12 ,"CLIVE ",.25~,9 ,"SIN",.5,5,"CLAIR ",.5,14,"SUP",.25~,10 ,"ER-",.5,5,"STAR" F=1100 d:F: {8,0;1;"TIO CLIVE LE HA TRAIDO A CAMBRIDGE.";10 ,0;"VIVIRA CON EL EN SINCLAIR RESE- ARCH." %''2;"QUIERE JUGAR DE NUEVO?"  8010J @6:6:0: EG8,4;1;1;7;" QUIERE JUGAR OTRA VEZ?" J'''''9 ;" SI O NO" OA$ TA$"SI"A$"NO"8015O YA$="SI"130 ]0:0:7::3,0;"ESTE PROGRAMA SE AUTO DESTRUIRA AHORA MISMO" S=100d0-1 510 ,14;S;" ":X=110 :X:S $10 ,13 ;1;"BANG" "X=1200:X:0 #(#90102#:A=144163 #)X=07:D #* (A)+X,D #+X #,A #2J0,0,24,165,165,90Z,36$,126~ #7L165,165,126~,60<,90Z,24,24,60< #,47/,10 #PL98b,149,136,82R,68D,37%,65A,137 #UI568,196,66B,17,33!,70F,82R,9 #ZM148,100d,66B,152,160,82R,36$,27 #_L161,18,20,4,130,81Q,105i,134 #dK0,0,24,126~,255,255,255,25 #iI28,93],42*,28,28,28,20,34" #nG28,28,8,62>,93],28,20,8 #sK7,24,480,96`,96`,237,210,222 #xJ224,24,12 ,6,6,183,75K,123{ #}K210,205,65A,66B,66B,65A,39',40( #H75K,513,2,2,2,130,228,20 #E43+,24,28,15,7,2,2,2 #L212,24,568,240,224,64@,64@,64@ #N126~,126~,126~,126~,60<,24,60<,126~ # Track-Info  N Track-Info  N Track-Info  N Track-Info  N         Track-Info ! N!!!!!!!!! Track-Info " N""""""""" Track-Info # N######### Track-Info $ N$$$$$$$$$ Track-Info % N%%%%%%%%% Track-Info & N&&&&&&&&& Track-Info ' N'''''''''