A@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)ǥ%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}NjL= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LSECTORES MAS G) *Gȩ GȽG GȌ*jj >G}Ǡ C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK},.COMLu L1 L ;LHL1  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}ǢDEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$}G V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%}% VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}ǔLLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}rI|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu }Y 3E:}Sistema Operativo V.2.5(C)1984 ATARI CORP.1986 ՠɬ A. DIRECTORIO_ yI. SECTORAR B. CARTUCHO} *} J. DUPLICAR DISCOC. COPIAR (OPC.1) K. GRABAR(BIN)D. BORRAR ARCHIVO L. CARGAR(BIN)E. NOMBRAR ARCHIVO M. DIRECCION(HEX+}p)F. CERRAR ARCHIVO N. CREAR MEM.SAV G. ABRIR ARCHIVO O. COPIAR (OPC.2)H. GRABAR DOS/DUP P. SECTORAR720uL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Ponga el DOS 2.0S y escriba ӛx -}ǍDEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO EXISTE. SELECC.}IONE O PARA MENU.! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%Archivo(s), Dispositivo de salida[# 0 0 &|D3" 1L!NO ES ARCHIVO.N !B 1L!E# 1 !BD0}ǝED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}y  0?詛 1 y0SЛ 1 ;#L" ;#L! BL1Use "S" para borrar: Especificar:} 2}VFuente,Destino:OPCION NO VALIDA.081 SECTORES MAS CopiandoD2:RAMDISK.COM[l# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!COMODINES NO VA6}GLIDOS EN DESTINATARIO 0 <.|K}COMPATIBLE. t* 5) 1L!`) 0NΞ 0 L1) 1 L!CARGA FALLIDACargar el archivo: ) 0 ?}ǿ0#B 1L!Cerrar el archivo:) 0 0$B 1L!Abrir el archivo: Unidades[Fuente],[Destino]Use "S" para emplear@} toda la RAM: CUIDADO: "S" Invalida el MEM.SAV. FE! +L1   `*  70 2 2A} 0.* 1 y0 0)Inserte ambos discos, ^, 1 y038逍 N, 1L! ,B}ǞC, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}ǫΞ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` FALTA ESPACIO.Inserte el disco FUENTE,ΛInserte el disco de DESTINO, E}Ǎ`  `8 rL1`-* 1P* 1 y0S`hhL!Copiar el archivo: - 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH}G,^ 1 70 0L#L!-* 1P* 1 y0Sj383}mm ݭI}I}`8}``|* ? ɛ,`|:-)| / 1L!`EL DOS.SYS NO SE COPIJ}A. 0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELEscriba NOL}MBRE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`USE SOLO UNA LETRA.,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NOMO}:BRE LARGO B VL!` L1I H1EΝDL1?@D|mDiE` V0`8d/8 i:222 1 LP}!ERROR - 144ɛ+,' 20*.. өr2 1``2MUCHOS DIGITOSPARAMETRO HQ}rEXADECIMAL ILEGAL800 0 8 00`,0'D800 H,ɛh`2L1DE D1: A D8: wuR}r XADECIMAL ILEGAL800 0 8 00`,0'D800 H,ɛh`2L1DE D1: A D8: wu"8<< & B JKIHiDiELV`L8 8 BLV`LxT}d8t8l Lu8hihiHHȱȱL8c !#3`Lu8hJ`H 8h`HU}Ǣȩh Q8L8 Z8L8 8L8 8L8 8L8S:@9E:E9H '9 H9I9 8 '9h)0ICV}9D9L8 L :::: :Lr:::IEL[::i:iIIL[:`:i::iX}::L:`L{:w:w: C`L:L: D8:MEM.SAV: 8| 9 '9`L:L: D:DUP.SYS:̩ 8Y} x:ɀL: '9`88 |9Y:X: '9L); D8:DUP.SYS; 8::88 9 '98? :`;WL`; 9Z}CLn; ` :Y;Y;L;L;)}$$) PPreparando el Ramdisc 130XE ; 9L;VVc ; -9  [}[P L;D8:; :9 :Y;L|]}9 9Z:;#<()0189?A@ GI PQ XY `a hios=xy}^} a>"&>+,34;<CDJdTf ** TURBOGRAFICOS EN 3-D **h ** por Th_}omas Hennemann **j ** de "HAPPY COMPUTER" **l ** Trad.:ATARI CREATIVO **nTPPPPP`}P<EF:Ad,"@S-AdAU<6-?:A6,-F:Ad,"@@W*AdAU-%FOa}6-?`6-?P""##9@ &*<@ .5,;A9,, A`6QJOT++fAAF+AVAb}h^%%( *** TURBOGRAFICOS *** h##( (c) 1986 Thomas HennemannrQO<6-h@l6("Introduzca uc}Gna funcin tipo Y=f(X) Y=( Correcto(S/N))="@KeAYf-h@i(940 Y=$-hd}@($(POKE 842,12:CONT$-h@,:!AB@>L$&-h@PU( _pAY@4t(e}1Rango de X: 0-...QO&6-'M:A5C,0-f@GT:-f@XD6-M:$%$,$NPX968@f} &<@&,-968@ &%<@*:&,-b968@>D&<@HU%,-968@Y_%<@c%,-l6-$+!,%$+g}=,v6-$+ ,%$+,  QO +@$A^gAh-f@bo-f@ s6-8h}o<,6-6-PP , 6-%g6-6-8<, PP /    -f@s*-fi}@ 46-8<,6-6-P>PH ,R 6-%g6-6-8<, P\Pf /p z Qj}EO6-$G:,$G:,QO 6-%$6-%$/6-@IO%$@Se/6-A&$@iQO##6k}-@$+&,'+&%?/,Q$>+f-@37@;>(ERROR- l en la lnea m.~O( Aguanta.l}C ..6--A6A"6-% $B41!( Datos errados$Q77104,169,128,m}m133,216,165,88,133,212,133,214,165,8977133,213,133,215,169,25,133,217,198,217,240,102,3233144,6,169,41,133,218,198,21n}8,240,71,160,0,162220,177,214,37,216,201,1,38,219,24,165,214,1054440,133,214,165,215,105,0,133,215,232,224,8,14466o}230,165,219,32,160,6,165,212,133,214,165,213,13377215,70,216,144,209,169,128,133,216,24,165,212,105551,133,212,133,2p}14,165,213,105,0,133,213,133,215 3376,32,6,24,165,212,105,24,133,212,133,214,16522213,105,1,133,213,133,215,76,21,6,16q}9,80,133//217,198,217,240,8,169,0,32,160,6,76,131,6(0096,160,9,152,72,185,172,6,32,160,6,104,168244136,208,243,96,1r}70,173,55,228,72,173,54,228,72<**138,162,0,96,1,64,4,42,27,10,8,65,27 D2:GRAF3D.TBS6,104,168244136,208,243,96,1^100 "-102 REM ** TURBOGRAFICOS EN 3-D **104 REM ** por Thomas Hennemann **106 REM ** de "HAPP t}6Y COMPUTER" **108 REM ** Trad.:ATARI CREATIVO **110 T-180 EXEC IMPRESORA190 EXEC INICIO200 E u}XEC TITULO210 EXEC PREGUNTA220 EXEC CALCULO230 EXEC GRAFICO240 DO :IF PEEK(764)=10 THEN POKE 764,255:X=USR(1536)244 IF v} PEEK(764)=40 THEN POKE 764,255:RUN 250 LOOP 270 PROC INICIO280 SIN60=0.866:COS60=0.5290 DIM K(20,20),A$(100)300 T w}RAP 1060310 ENDPROC 330 PROC TITULO340 GRAPHICS %0:POKE 710,146:POKE 756,204350 ? " *** TURBOGRAFICOS *** "360 x}S ? " (c) 1986 Thomas Hennemann"370 ENDPROC 390 PROC PREGUNTA400 REPEAT 410X POSITION %2,4:? "Introduzca una funci y}n tipo Y=f(X)"420 )INPUT "Y=",A$430. ? "Correcto(S/N)";:GET KEY440 UNTIL KEY=83450 POKE 559,%0460 POSITION z}%2,10:? "940 Y=";A$470 POSITION %2,12:? "POKE 842,12:CONT"480 POSITION %2,8:POKE 842,13:STOP 490 POSITION %2,6:? " {}"500 POKE 559,34510 ? :INPUT "Rango de X: 0-...",XM520 ENDPROC 540 PROC CALCULO550 XM=XM/SQR(200)560 FO |}R I=%0 TO 10570 'FOR J=%0 TO 10580. CX=SQR(I*I+J*J)*XM590J ZEXEC FUNCION600a K(10-I,10-J)=Y:K(10+I,10-J)= }}Y610 -K(10-I,10+J)=Y:K(10+I,10+J)=Y6204 VYMAX=Y*(Y>YMAX)+YMAX*(Y<=YMAX)630] YMIN=Y*(Y=YMIN)6 ~}C40 xNEXT J650 NEXT I660 ENDPROC 680 PROC GRAFICO690 GRAPHICS 24:COLOR %1:POKE 710,%2700 FOR I=%0 TO 19710~ }FOR J=%0 TO 20720 8Z=K(I,J):X=I:Y=J:EXEC CALCZ730? PEXEC PANTALLA740W ePLOT XP,YP750l X=I+%1:Y=J:Z=K(X, }Y):EXEC CALCZ760 )EXEC PANTALLA7700 @DRAWTO XP,YP780E qNEXT J790 NEXT I800 FOR J=%0 TO 19810v FOR I=% } 0 TO 20820 1Z=K(I,J):X=I:Y=J:EXEC CALCZ8308 IEXEC PANTALLA840P ^PLOT XP,YP850e Y=J+%1:X=I:Z=K(X,Y):EXEC } CALCZ860 "EXEC PANTALLA870) 9DRAWTO XP,YP880> NEXT I890 NEXT J900 ENDPROC 930 PROC FUNCION940 Y=X*SIN }(X)*SIN(X)950 ENDPROC 970 PROC PANTALLA980 X=X+Y*COS60:Z=Z+Y*SIN60990 XP=10+X*8:YP=190-Z*81000 ENDPROC 1020 PROC CA }LCZ1030 Z=4*(Z-YMIN)/(YMAX-YMIN+0.1)1040 ENDPROC 1060 GRAPHICS %0:POSITION 7,11:? "ERROR- ";ERR;" en la lnea ";ERL;"" }^1070 END 4990 PROC IMPRESORA4999 ? "Aguanta..."5000 C=05010 FOR X=1536 TO 17175020c READ A:C=C+A:POKE X,A:NEXT } X5030 IF C<>23431 THEN ? "Datos errados":END 5040 ENDPROC 5050 DATA 104,169,128,133,216,165,88,133,212,133,214,165,895 }060 DATA 133,213,133,215,169,25,133,217,198,217,240,102,325070 DATA 144,6,169,41,133,218,198,218,240,71,160,0,1625080 DATA }0,177,214,37,216,201,1,38,219,24,165,214,1055090 DATA 40,133,214,165,215,105,0,133,215,232,224,8,1445100 DATA 230,165,219,3 }2,160,6,165,212,133,214,165,213,1335110 DATA 215,70,216,144,209,169,128,133,216,24,165,212,1055120 DATA 1,133,212,133,214,1 }65,213,105,0,133,213,133,2155130 DATA 76,32,6,24,165,212,105,24,133,212,133,214,1655140 DATA 213,105,1,133,213,133,215,76,2 }1,6,169,80,1335150 DATA 217,198,217,240,8,169,0,32,160,6,76,131,65160 DATA 96,160,9,152,72,185,172,6,32,160,6,104,1685170 }DATA 136,208,243,96,170,173,55,228,72,173,54,228,725180 DATA 138,162,0,96,1,64,4,42,27,10,8,65,272,6,32,160,6,104,1685170 cNH DA HG CB OG NI HA HK JI BO LM LF FH NH NB II HO HE JB JP KL NC PB KM KF $}DG FF NH JB LK LF OM ID HN OD KA PK ON KC NA CJ GB GD ON NF OI OF LE KN CD $}CD KH MN OJ GG GA IJ AM FH CL AP OM CI CI GI GA IK AN FI CM BA ON CI CK KE $}GOC AF KJ CB LA HA MM GE LB NA NJ JP LM KN HF IE IM LP NE GH FD JH FK LD BH $}FF NB IE FC ND AK NO NH LB NA NJ JP LM KN HF IE IM LP NE GH FD JH FK LD BH $(Y=X*SIN(X)*SIN(X)+SIN(X)Y=1/(0.5+X*X)-1/(0.5+X*(X-3.5)/2)Y=COS(3*X)Y=(COS(X)-SIN(X))*X-XY=1/(X+0.5)+1/COS(X)-1/(S(}IN(X)+0.5)N(X)+SIN(X)Y=1/(0.5+X*X)-1/(0.5+X*(X-3.5)/2)Y=COS(3*X)Y=(COS(X)-SIN(X))*X-XY=1/(X+0.5)+1/COS(X)-1/(S( 9N1N2N3N4N5N6CSKALEKPAUSNNCLLPNUOPMOACAVC1C2C3C4C5C6NNCNBALPPGOANUMCAS,}DCAPOPNDAPPRV"$*,24:<BDJL@ST[\cd kl st { ,} @@%'@-/@57@=?@EG@MOUW]_egmouw},} !" )*!12"9:#AB$IJ%QR&YZ'ab(ij)qr*y+,}, -./$%0,-1452<=3DE4LM5SX%%^qŠw%%,}J%%報՛%%PU[citd^R;@ x,;,}@  ,;@ ,;@ #,;@ '.,;@ 29,9@=F,^6-@Jn(6-B F:,A#( A`xW+,}@W%'AA9AAKAVADWARQ(Q(F[ \ vw} ,} (| CARRERA DE CABALLOS |NN(F, -|G H|R u| Por: Alexander Schuler |(((z ,}" ?-@&*@.e?(% PRESIONE [] PARA EMPEZAR-@6is-@w ,} "-@  (""@$,-@ 0B"(""@FN-@ Rf"(-&@ j(..-@,}.F:B2y,"@;AP (  -@ ?[(( Ap*-@_d*(z,}S A`-@7(! DCUANTOS JUGADORES ;S )!@HA` ( JUGADOR #1:%@,}"!( JUGADOR #2:%"%@&G!( JUGADOR #3:%,%@Kl!( JUGADOR #4:%6%@p!( JUGADOR,}C #5:%@%@C!( JUGADOR #6:%Jd A0-@GLK(,S NUMERO DE CARRERAS EN EL PROGRAMA: X,}@ d6-O:P:,,T9@$+,9@/6,9@:A,9@EI<@MT,9@X_,9@cj,9@nu,;@ y,;,}@ ,;@ ,;@ $,;@ (/,;@ 3:,;@ >H,^ BLYh$-@]h 68,-Al$ r|' (,}<}AR'AVAD A@(}3-@@D@Ho3(PARTIDA3-@8sw@{3,}%(LLEGADA/-@)-@1T/(3-@6X\@`3(||||||,}|6-@B68,-#68,-,68,-0 66-5-@FJ@NR@V\+-@`1(5 6-P:H:,$@,},662@#+8,%8@'.,%8@28,,'@< -% "8,' A`  A %,}8,!@0 )68%,-%6-%"@-A A`&ӠΠϛ0 "(} A: ,}ǡ-DI 8,C(}EL JUGADOR # DEBE ALEJARSEDEL HIPODROMOI6-N  ( ((XApb (,} TIENE 8,l(@1(( TIENE 8@5A,v(@EY(( TIENE 8@]i,(@m(( TIENE ,}8@,(@,(( TIENE 8@0<,(@@T(( TIENE 8@X,Πϛ (}2,}$=( ()( GANADOR #8@(S, /6-9 AP=(@(&( PLACEW ^#8@bp, 26-@t< AP,}!@(F(&( TERCERO #8@%3, 26-@7i< AP@(C(F( -6-!8<@m,"8,! A@,} -@U8<,"8, A :( GANA I/.8,$88<,,U68,-8,%8,$88<,,8<,"8,6-,}S  ; " A *( PIERDE I/.8,;68,-8,&8,  *+(+(X PRESIONA PARA SEGUIR4"F:,} B2y,@3" A > APHy58<@7>,"8@BK,*8<@OV,"8@Z,? A \( GANA I/.8,$@,}Pu68,-8,%8,$@PBy R 8,"6.\8,"@FZ6.f8,"@^r6.p8,"@v6.,} z8,"@%6.8,"@)O6.$ "6."@Sd6."@hy6."@},}C6."@&6."@*X6.$ϛF 8,"--@\e%8,@io%$@s4( C6,}8,-@ F$L8,"@!'3-@+4%8,@8>%$@BT:(I68,-@XiL$L8,"@ms3-@w%8,,}@ %$@#:(I68,-@'8L$[8,"@<B3-@FO%8,@SY%$@]:(..C68,-Q68,-8,%[,} A,ӛ 6-%$6-@%0;.-@?C@G86-P:H:,$,B -&L "8,' A,}V 68,-`#AP$%$@(Tj "68,-t "6.~"@Xi6."@m6."@,}6."@+6."@/I6. 2-@MW-@[*68<,-. 2  (}!(,}2!(1  (8, A 1)$$(2  (8@6V, A 1)$$(3  (8@Z, A 1)$$(4  (8@,}!, A 1)$$(5  (8@%E, A 1)$$(6  (8@Ij, A 1)  ( (5 -@nr@v%(,}+6-5 ApA@"(!-@,0@4F+(76-@J_A Ap(A@ci!-@mq@u+(,} 76-@#A Ap2A@'-!-@15@9K+(76-@OdA Ap<A@hn!-@rv@z+(,}76-@(A ApFA@,2!-@6:@>P+(76-@TmA ApP$Zb-@qu@y5(,} !1 GANADORF( & 22 PLACE_(7 w3 TERCER PUESTOb(dN Ap$(PUESTO DE LLEGADA(:-@{,}@ N()n )!@->Apx4 ABe&(NUMERO DEL CABALLO *4 Bix )!@|,}A^68<,-M A06( TIENES I/.8,. CUANTO APUESTAS:C68,-M Bb$,}Λ-A'$@i,,AD$AV%F:A$$AV%,  #A`-@mG"G-AD,}$AV%$@+AD$AV%$@/3%@7 "    A#$##65,0,134,135,126,126,6,}8,68,68"66,0,16,16,15,15,8,4,3,##67,0,192,224,192,192,64,128,0668,0,2,2,1,1,25,24,0@""69,0,24,28,248,248,8,14,}4,144Ӡ٠ӛSANTORIN,5PERRO LOCO,6GLORIO,12PIOJO GORDO,8 VELOZ,6 RAUL,9,}EBSPEND A BUCK,11DISCO DURO,4PULMON NEGRO,6HUINSTON LAIT,9PREMIER,2PANLAUH,2MASTER,2 ,}SUPERTRAMP,15ATARI,15CARAMELO,5(VENCEDORA,22 ESPER,9<WILITO,2F LOU,6PCHAPULIN,2ZTA,}BLA JAGUALLANA,15dBESITO DE DIOS,7nSEVICHE DULCE,10xPEGASUS,12CREATIVO,5D2:CARRERA.BAS2ZTA,t1 REM Š%x2 REM 3 REM 報՛4 REM }0} 100 DIM N1$(20),N2$(20),N3$(20),N4$(20),N5$(20),N6$(20),CS(6):K1=1110 ALEX=32000:IF PEEK(ALEX)<>10}n23 THEN GOSUB 1460120 GRAPHICS K0:POKE 82,K1+K1:POKE 710,180:POKE 712,180:POKE 756,144:POKE 752,K1130 ? :? "r s }0} @| CARRERA DE CABALLOS |"140 ? "D E|_ `|j | Por: Alexander S0}chuler |"150 ? "  1 "160 POSITION 2,11:? " PRESIONE [] PARA EMPEZAR"170 FOR X=K1 0}TO 36:FOR Y=K1 TO 3180 IF Y=K1 THEN POSITION X,9:? ""190 IF Y=2 THEN POSITION X,9:? ""200 IF Y=3 THEN POSITION X,9:? "0}"210 POSITION X-K1,9:? "."220 FOR PAUSA=K1 TO 10:IF PEEK(53279)=6 THEN 250230 NEXT PAUSA240 NEXT Y:NEXT X:POSITION K0,9:0}&? "":GOTO 170250 POSITION K0,10:? "<_"260 TRAP 260:POSITION K0,11:? "c CUANTOS JUGADORES ";:INPUT0} NJ:IF NJ6 THEN 160270 IF NJ>=K1 THEN ? " JUGADOR #1:";:INPUT N1$280 IF NJ>=2 THEN ? " JUGADOR #2:";:INPUT N2$290}0 IF NJ>=3 THEN ? " JUGADOR #3:";:INPUT N3$300 IF NJ>=4 THEN ? " JUGADOR #4:";:INPUT N4$310 IF NJ>=5 THEN ? " JUGADOR #5:";0}X:INPUT N5$320 IF NJ>=6 THEN ? " JUGADOR #6:";:INPUT N6$330 TRAP 330:POSITION K0,10:? "_ NUMERO DE CARRERAS EN EL PRO0}GRAMA: ";:INPUT #16,NCC:NCC=ABS(INT(NCC))340 DIM LL(6),P(6),NU(6),OP(6,6),MO(6),A(6),CA(6),V$(20),C1$(20),C2$(20),C3$(20),C40} $(20),C5$(20),C6$(20)350 TRAP 4$0360 FOR Y=K1 TO 6:MO(Y)=500:NEXT Y370 REM 380 ? "}":POKE 752,K1:POKE 756,144390 GOSUB0} 1040:? "}"400 POSITION 2,5:? "PARTIDA"410 POSITION 38,5:? "LLEGADA"420 POSITION 4,6:?0}G ""430 POSITION 36,5:? "|||||||"440 FOR Y=K1 TO 6:LL(Y)=K0:NU(Y)=K1:P(Y)=K0:NEXT Y:N0}L=K0450 FOR Y=6 TO 16 STEP 2:POSITION 5,Y:? "":NEXT Y460 NC=INT(RND(K0)*7)470 SOUND K0,10,K0,(P(K1)+P(2)+P(3))/6480 FOR 0}F=K1 TO NL+K1490 IF NC=LL(F) THEN POP :GOTO 460500 NEXT F510 GOSUB 990520 IF P(NC)>30 THEN LL(NL+K1)=NC:NL=NL+K1530 IF N0}L=3 THEN 680540 GOTO 460550 REM ӠΠϛ560 IF CNN=NCC THEN ? "}":GOTO 610570 FOR BB=K1 TO NJ580 IF MO(BB)0}<=K0 THEN ? "}EL JUGADOR #";BB;" DEBE ALEJARSEDEL HIPODROMO":ALP=K1590 NEXT BB:? :? :? 600 IF ALP<>K1 THEN 370610 IF 0}NJ>=K1 THEN ? N1$;" TIENE ";MO(K1)620 IF NJ>=2 THEN ? N2$;" TIENE ";MO(2)630 IF NJ>=3 THEN ? N3$;" TIENE ";MO(3)640 IF NJ>0}=4 THEN ? N4$;" TIENE ";MO(4)650 IF NJ>=5 THEN ? N5$;" TIENE ";MO(5)660 IF NJ>=6 THEN ? N6$;" TIENE ";MO(6)670 END 680 RE0}sM Πϛ690 ? "}":SOUND K0,K0,K0,K0700 ? :? :? " GANADOR #";LL(1);" ";:PO=K1:GOSUB 850:? V$710 ? :? " PLACEw #";LL(0}2);" ";:PO=2:GOSUB 850:? V$720 ? :? " TERCERO #";LL(3);" ";:PO=3:GOSUB 850:? V$:? :? 730 FOR PR=K1 TO NJ:GOP=K0740 IF OP(0}PR,4)=LL(K1) THEN GOSUB 840750 FOR AL=K1 TO 3760 IF OP(PR,AL)=LL(AL) THEN GOSUB 920:? V$;" GANA I/.";A(PR)*CA(OP(PR,AL)):MO0}(PR)=MO(PR)+A(PR)*CA(OP(PR,AL))770 IF OP(PR,AL)=LL(AL) THEN GOP=K1780 NEXT AL790 IF GOP=K0 THEN GOSUB 920:? V$;" PIERDE I/0}3.";A(PR):MO(PR)=MO(PR)-A(PR)800 NEXT PR810 ? :? "7 PRESIONA PARA SEGUIR"820 IF PEEK(53279)<>6 THEN GOTO 820830 0}GOTO 550840 IF OP(PR,5)=LL(2) AND OP(PR,6)=LL(3) THEN GOSUB 920:? V$;" GANA I/.";A(PR)*50:MO(PR)=MO(PR)+A(PR)*50:NEXT PR8500} IF LL(PO)=K1 THEN V$=C1$860 IF LL(PO)=2 THEN V$=C2$870 IF LL(PO)=3 THEN V$=C3$880 IF LL(PO)=4 THEN V$=C4$890 IF LL(PO)=50} THEN V$=C5$900 IF LL(PO)=6 THEN V$=C6$910 RETURN 920 IF PR=K1 THEN V$=N1$930 IF PR=2 THEN V$=N2$940 IF PR=3 THEN V$=N3$0}Ǜ950 IF PR=4 THEN V$=N4$960 IF PR=5 THEN V$=N5$970 IF PR=6 THEN V$=N6$980 RETURN 990 REM ϛ1000 IF NU(NC)=K1 THE0}N POSITION 5+P(NC),4+NC*2:? " ":NU(NC)=2:RETURN 1010 IF NU(NC)=2 THEN POSITION 5+P(NC),4+NC*2:? "":NU(NC)=3:RETURN 1020 0}IF NU(NC)=3 THEN POSITION 5+P(NC),4+NC*2:? "":NU(NC)=4:RETURN 1030 IF NU(NC)=4 THEN POSITION 5+P(NC),4+NC*2:? "..":NU(NC)=0}GK1:P(NC)=P(NC)+K1:GOTO 10001040 REM ӛ1050 CNN=CNN+K11060 NUMCAB=251070 FOR SA=1 TO 61080 S=INT(RND(K0)*NUMCAB)100}90 FOR DA=K1 TO SA-K11100 IF S=CS(DA) THEN POP :GOTO 10801110 NEXT DA:CS(SA)=S1120 RESTORE 5000+S*101130 READ V$,CAM:CA(S0}A)=CAM1140 IF SA=K1 THEN C1$=V$1150 IF SA=2 THEN C2$=V$1160 IF SA=3 THEN C3$=V$1170 IF SA=4 THEN C4$=V$1180 IF SA=5 THEN0} C5$=V$1190 IF SA=6 THEN C6$=V$1200 NEXT SA1210 FOR Q=K1 TO 6:FOR W=K1 TO 3:OP(Q,W)=K0:NEXT W:NEXT Q1220 ? "}"1230 ? :? 0}"1 ";C1$;" (";CA(K1);" A 1)"1240 ? "2 ";C2$;" (";CA(2);" A 1)"1250 ? "3 ";C3$;" (";CA(3);" A 1)"1260 ? "4 ";C4$;" (";CA(4)0};" A 1)"1270 ? "5 ";C5$;" (";CA(5);" A 1)"1280 ? "6 ";C6$;" (";CA(6);" A 1)"1290 ? :? 1300 IF NJ>=K1 THEN POSITION 2,10:?0} ;"";N1$:PN=K1:GOSUB 13701310 IF NJ>=2 THEN POSITION 2,10:? ;"";N2$:PN=2:GOSUB 13701320 IF NJ>=3 THEN POSITION 2,10:? ;0}"";N3$:PN=3:GOSUB 13701330 IF NJ>=4 THEN POSITION 2,10:? ;"";N4$:PN=4:GOSUB 13701340 IF NJ>=5 THEN POSITION 2,10:? ;"0}v";N5$:PN=5:GOSUB 13701350 IF NJ>=6 THEN POSITION 2,10:? ;"";N6$:PN=6:GOSUB 13701360 RETURN 1370 POSITION 2,12:? "}0} 1 GANADOR":? " *2 PLACE":? "/ 3 TERCER PUESTO":? 1380 TRAP 1370:? "PUESTO DE LLEGADA";:INPUT OPE:POSITION 20},12:? "r"1390 IF OPE3 THEN 13701400 TRAP 1400:? "NUMERO DEL CABALLO ";:INPUT NDC:TRAP 4v01410 I0}F NDC6 THEN 14001420 OP(PN,OPE)=NDC1430 TRAP 1430:? "TIENES I/.";MO(PN);". CUANTO APUESTAS";:INPUT APU:A(PN)=APU0}:TRAP 4 01440 RETURN 1450 END 1459 REM Λ1460 FOR PRE=K0 TO 127*81480 POKE 144*256+PRE,PEEK(224*256+PRE)1490}0 NEXT PRE1500 RESTORE 15601510 FOR VE=K1 TO 51520 READ NC:FOR N=144*256+NC*8 TO 144*256+NC*8+71530 READ V:POKE N,V1540 0}NEXT N:NEXT VE1550 POKE ALEX,123:RETURN 1560 DATA 65,0,134,135,126,126,68,68,681570 DATA 66,0,16,16,15,15,8,4,31580 DATA 0}67,0,192,224,192,192,64,128,01590 DATA 68,0,2,2,1,1,25,24,01600 DATA 69,0,24,28,248,248,8,144,1444999 REM Ӡ٠0}ӛ5000 DATA SANTORIN,55010 DATA PERRO LOCO,65020 DATA GLORIO,125030 DATA PIOJO GORDO,85040 DATA VELOZ,65050 DATA RAUL,0}95060 DATA SPEND A BUCK,115070 DATA DISCO DURO,45080 DATA PULMON NEGRO,65090 DATA HUINSTON LAIT,95100 DATA PREMIER,25110}G0 DATA PANLAUH,25120 DATA MASTER,25130 DATA SUPERTRAMP,155140 DATA ATARI,155150 DATA CARAMELO,55160 DATA VENCEDORA,25170}0 DATA ESPER,95180 DATA WILITO,25190 DATA LOU,65200 DATA CHAPULIN,25210 DATA TABLA JAGUALLANA,155220 DATA BESITO DE DIOS0},75230 DATA SEVICHE DULCE,105240 DATA PEGASUS,125250 DATA CREATIVO,5210 DATA TABLA JAGUALLANA,155220 DATA BESITO DE DIOS0HBP IM NO KG MH OB IO DO NN AE HL KF FJ BE BB FJ DE EO IP DJ PO KL GE GI GD 4}GH GL JF EJ MD IP HO BK BL GO IN EL AH CI LN LF MP GG FE BK LI HC PO GM EO 5}KK PL HM MM MB FO MM NA NE NI NM HE EJ NC BG LO GC OP AJ JP JK PJ GL EN HJ 5}KP FL GO KL OL KD KG KJ KM KG HK AO MG MJ MM MP NC IB IN EC PO AF DO AP GI 5}CB IK CF MP KH MM LG AJ CA NI NL NO OB OE JG OF MF BD FD FH FL FP GD IE GK 5}NI NM OA OE OI KK DJ BI OI FG MA HH HC KJ KB CG PA IB PE LG NK CC HE GL AA 5}IO BM IG KK FG HE KO PH DM EC NF HN FD PC JP OP FC EI AM II OH IK NL ML BO 5}DL JD KI ME OF IM KE PH DM EC NF HN FD PC JP OP FC EI AM II OH IK NL ML BO 4##$*S ##** REVISION DE ERRORES **d_ +Yi!-A6Am%"+36-9}%7 CBr\(ERROR EN LINEAS _6-?:A6,((REVISION ACTIVADA104,160,0,185,26,39}201,69,240,7,200,200 192,34,208,243,96,200169,74,153,26,3,200169,6,153,26,3,1620,189,0,228,157,74$9 }6,232,224,16,208,245*169,93,141,78,6,16906,141,79,6,24,17364,228,105,1,141,95<6,173,5,228,105,0B1419 },96,6,169,0,133H203,96,247,238,125,241N93,6,244,241,115,241T124,241,76,205,238,0Z0,0,0,0,32,62`246,89 },201,155,240,13f201,32,240,7,72,24l101,203,133,203,104,40r96,72,152,72,138,72x160,0,169,128,145,88~29 }00,192,40,208,249,165203,74,74,74,74,24105,161,160,3,145,88165,203,41,15,24,105161,200,145,88,169,09 }G133,203,104,170,104,168104,40,96 D:REVISION0,3,145,88165,203,41,15,24,105161,200,145,88,169,08=2"# APNOMARCPSXLLLLALE9;ACIKRSZ[bcjkrsz M}    %&-.49%%=TҠŠX%%M}%%ԭ֠+ՠ%%0DJUdr1;@Y`,;@dk,;@ov,;@z,FM}6. : [6.D:( Fr12 ESPACIOS EN AMBOSn^ +LbAVA1-hjpu^((}M}ҠŠ (x))(!, PPor Alexander Schuler Sch tz ?-VZ@^d;( h Perifrico de salida M}(/) ?. 4I$67@"&<@*s,.P. Ap 0D A0S((Nombre de salida: +@w:6M}7@,.S67@<@L,.D=(!(Nombre de la figura: .@PZ=67@^,.4IAX(X(M}LIntroduce el disco de la figura, pre- siona y luego de haber cargado ZP(Hla figura, pon el disco donde se va a M}grabar el poster y presiona .Z A0U(U(JIntroduce el disco de la figura, pre- siona , prepara la impresoM}1ra y (presiona la tecla .@+@$5A#AGN@@RV@Z\bq!6-F:@u,!6-F:M}@,xA@#!A 'C-A ?A @GUQA @0Ypm6-?:C:hhhLV,<@dt,x@M} F:B2y,@,A` +@V0<ABH)@LP;,VX^jM/Ap_/AAM} q/A/!#)3 @7;@?AGR"-XdA@ht,n`6.V1} M}K pn88 ESPACIOS6-%AY@t@6-M}%@J 1T1%@"3^1%@7Dh1%@HN%@Rnr Ap|!!67%@rx<%@|,M}.>:, 6-" @&8 %">^6-A`% A@@b&&4P*F:B2y,M}@!A@. 4D-@%)@-4* @8.  AREDUCCION ***6-@:8,$ **M}CR6-@:F,$ **6-@:L,$ **6-@:7,$# *6-@4V$#COMILLAS *6-@:|,$M }  *6-@:\,$&6-@:',$0 **6-@:J,$: *6-@:/,$D *6-@:|,$N6-M!}@:',$X *6-@:_,$b6-@:.,$l6-@:.,$v6-@: ,$D2:MINIPOS.BASN6-Lr1 REM !ҠŠ%_2 REM 3 REM ԭ֠gxՠ4 REM }Q#}J100 DIM A$(89),P$(1),NOM$(14),ARC$(14):NOM$=" :V `":ARC$="D:l ":REM 12 ESPACIOSQ$}6 EN AMBOS110 GRAPHICS 0:POKE 756,204:POSITION 0,0:? "?UҠŠ^g"120 ? "k Por Alexander SchuQ%}"ler Sch tz "130 POSITION 0,5:? "& Perifrico de salida (/) ";:INPUT P$140 IF P$="I" THEN NOM$(1,1)="P":GOTO 170150 IFQ&} P$<>"D" THEN GOTO 130160 ? :? "Nombre de salida: ";:INPUT #16,A$:NOM$(3)=A$:NOM$(1,1)="D"170 ? :? "Nombre de la figura: ";Q'}:INPUT #16,A$:ARC$(3)=A$180 IF P$="I" THEN 210190 ? :? "Introduce el disco de la figura, pre- siona y luego de haberQ(} cargado ";200 ? "la figura, pon el disco donde se va a grabar el poster y presiona .":GOTO 230210 ? :? "Introduce el Q)}disco de la figura, pre- siona , prepara la impresora y"220 ? "presiona la tecla ."230 INPUT A$:GRAPHICS 24:POKEQ*} 710,0:OPEN #4,4,0,ARC$240 PR=PEEK(88):SE=PEEK(89)250 POKE 898,7:POKE 900,PR:POKE 901,SE:POKE 904,17:POKE 905,30:X=USR(ADR(Q+}"hhhLV"),64):CLOSE #4260 IF PEEK(53279)<>6 THEN 260270 GRAPHICS 56:POKE 710,0:COLOR 1:PLOT 0,0:DRAWTO 319,0:DRAWTO 319,19Q,}S1:DRAWTO 0,191:DRAWTO 0,0280 OPEN #1,8,0,NOM$290 FOR Y=0 TO 191 STEP 2300 A$="1} Q-}* ":REM 88 ESPACIOS310 FOR X=XX TO XX+159 STEP 2320 F=F+1330 LOCATE X,Y,L1340 LOCQ.}ATE X+1,Y,L2350 LOCATE X,Y+1,L3360 LOCATE X+1,Y+1,L4370 GOSUB 470380 A$(F+2,F+2)=CHR$(B)390 NEXT X400 F=0:PRINT #1;A$4Q/}10 NEXT Y420 IF XX=0 THEN XX=160:GOTO 440430 CLOSE #1:END 440 IF P$="P" AND PEEK(53279)<>6 THEN 440450 IF P$="D" THEN FORQ0} ALEX=1 TO 15:PRINT #1:NEXT ALEX460 GOTO 290470 REM REDUCCION480 IF L1 AND L2 AND L3 AND L4 THEN B=ASC("8"):RETURN 490 IFQ1}G L1 AND L2 AND L3 THEN B=ASC("F"):RETURN 500 IF L1 AND L4 AND L3 THEN B=ASC("L"):RETURN 510 IF L1 AND L2 AND L4 THEN B=ASC(Q2}2"7"):RETURN 520 IF L1 AND L2 THEN B=34:RETURN :REM COMILLAS530 IF L1 AND L3 THEN B=ASC("|"):RETURN 540 IF L1 AND L4 THEN BQ3}=ASC("\"):RETURN 550 IF L1 THEN B=ASC("'"):RETURN 560 IF L4 AND L2 AND L3 THEN B=ASC("J"):RETURN 570 IF L2 AND L3 THEN B=AQ4}SC("/"):RETURN 580 IF L2 AND L4 THEN B=ASC("|"):RETURN 590 IF L2 THEN B=ASC("'"):RETURN 600 IF L3 AND L4 THEN B=ASC("_"):RQ5}ETURN 610 IF L3 THEN B=ASC("."):RETURN 620 IF L4 THEN B=ASC("."):RETURN 630 B=ASC(" "):RETURN L3 AND L4 THEN B=ASC("_"):RPbNL CB FL JE JD DO MH GH FK JH OB LP CI EA NB PM IK HN FB CE BO KN BK PE KK U7}EL LK NE DC DE JC LF JE DD AC CN AA HC DG NG GO BL AK MG MG LB JF KG II AB U8}ML FO KN AG IK AH AJ JO DD AC CN AA HC DG NG GO BL AK MG MG LB JF KG II AB T(7NINICIINICIO_IMDIRECTORIPRUEBA_IMHOJTITULGRAFICERROBSRGDNAMETITULOLOSRADBADSECTSIMPRESORY:}3PANTALLSALIDPAUSMAOPCIORETURSUBYTDA97;%C?C:GKBOS?!FG"MYT **_ hLIST SHOPo ** ** porY=}: Alfredo Peralta ** ** Lima, Agosto de 1988 ** ** INFORMATICA CREATIVA ** T PPPPPY>}8#P(PPZO_ dSG;A(,;@U<Y,;A,;A@,;@]d,;@ho,S6-unJJ67Y?}@b,.7hhhh h hhhhR Sʭխ`x 6-C:,6-C:,467@f,.%67A(,.Y@}467@ ",.QOP +(.@26@:Q1AADM(] ԠP(<MF(>InseYA}rte el disco de dibujos y luego presione cualquier teclaJ)M($!(Lectura del directorio...$(&&6-?:<<Aa<@YB} <@ ,**=7@!<@%b,4PRINT SHOP:CLK!-AbA 6-?:<<<@fj<@n,67B:,%YC}C@q,." ,Q6O@<JC(-("Tipo de papel: ndividual/ontinuo1)CAdAUT="@su)"@gYD}D hI"@s6I(5Luego de cada pantalla completa= apresione rQOJ +@$esA@w1AYE}  ;@ J6-U:@$.,=6-4@/-%@DH$@2LP@2T^=6-%@bo6/7%@sy<%@}YF},4*3P6Q6.7%@.4<%@8J,`C6-@:7%@NT<%@Xl,,%AV$@:7%@pv<%@z,,YG}Y!A) @%]P`Q-+NAxA& 6-?:<<<@RV<@Zh,//67%@l<%A&,.7@YH}b<A&,;;6-@:7A'<A',,%AV$@:7A(<A(,, H 6-?:<<<@fj<@n,H67A<YI} Ar,.7@<@h@,P P& 6-"@DK `@O+ A 0QXO]@F:Ad,AYJ}CU*AdAU.P@AdAUb 6-C:,g6-@GN$+"@RW,%@([b$+"@fk,%A$ov$+"@z,%YK} A$$+"@!,%A$($+"@%*,%AH.5$+"@9I,%AH$+"@M],%AH($+"@ ay,l-%A P@@}YL}v!9%@!6-%@!14 4Y+a@@5:,$@>FP:'@@JO,%@RSmQO"@xqQ!"YM}@g!6-?:A6,!Q88Y@0%mA ->IMPRIME ->CONTINUA+<6-F:B2y,+="@qw)"@{YN} X"@ IY"A%G X6-?:A6,QO 5(1(&ESCRIBA UN TITUYO}LO (MAX. 80 CARACTERES)5*F(0(%ALISTE SU IMPRESORA, PRESIONE 4)FAdAU4 3 3>Q](YP}vl"A8*m"A  ( A0 ( %O<-)(!-Desea salida a impresora (S/N) ?-)="@xz)"YQ}@"@xaPEFQO<=F:Ad,AUQO6-g-A6AYR}"6-% $B41!( Datos errados$Q77104,169,128,133,216,165,88,133,212,133,214,165,89YS}77133,213,133,215,169,25,133,217,198,217,240,102,3233144,6,169,41,133,218,198,218,240,71,160,0,162220,177,214,37,21YT}6,201,1,38,219,24,165,214,1054440,133,214,165,215,105,0,133,215,232,224,8,14466230,165,219,32,160,6,165,212,133,214,1YU}G65,213,13377215,70,216,144,209,169,128,133,216,24,165,212,105551,133,212,133,214,165,213,105,0,133,213,133,215 337YV}V6,32,6,24,165,212,105,24,133,212,133,214,16522213,105,1,133,213,133,215,76,21,6,169,80,133//217,198,217,240,8,169,0,3YW}2,160,6,76,131,6(0096,160,9,152,72,185,172,6,32,160,6,104,168244136,208,243,96,170,173,55,228,72,173,54,228,72<**138YX},162,0,96,1,64,4,42,27,10,8,65,27D2:LISTSHOP.TBS104,168244136,208,243,96,170,173,55,228,72,173,54,228,72<**138X94 -)5 REM **/ 8LIST SHOP? **6 REM ** por: Alfredo Peralta **7 REM ** Lima, Agosto de 1]Z}*988 **8 REM ** INFORMATICA CREATIVA **9 H-10 EXEC INICIO15 EXEC INICIO_IMP20 EXEC DIRECTORIO][}Ǜ25 EXEC PRUEBA_IMP30 EXEC HOJA35 EXEC TITULO40 EXEC GRAFICO80 END 90 PROC INICIO95 TRAP #ERROR100 DIM B$(128),SR$]\}(55),G$(616),D$(4096),NAME$(16),TITULO$(80):LOC=0110 SR$(1)="hhhh h hhhhR Sʭխ`"120 ]]} SRADR=ADR(SR$):BADR=ADR(B$)130 B$(1)="":B$(128)="":B$(2)=B$140 ENDPROC 200 PROC DIRECTORIO210 GRAPHICS 0:POKE 82,]^}2:POKE 710,144:? " ?Ԡ":? 220 REPEAT 230D ? "Inserte el disco de dibujos y luego presione cualqui]_}er tecla":GET A:? 235 ?? "Lectura del directorio...":? 240D X=USR(SRADR,BADR,361,1,3)250 UNTIL B$(1,15)="PRINT SHO]`}&P:CLK!"260 FOR SECTR=362 TO 393270+ JX=USR(SRADR,BADR,SECTR,1,3)280O D$(LEN(D$)+1)=B$290 NEXT SECTR300 ENDPROC ]a} 310 PROC HOJA320 REPEAT 330% ? :? "Tipo de papel: ndividual/ontinuo":GET A:POKE 764,255340 UNTIL A=73 OR A=6736]b}40 IF A=73 THEN ? "Luego de cada pantalla completa; presione "370 ENDPROC 400 PROC GRAFICO410 GRAPHICS 24:PO]c}[KE 710,10:POKE 709,0:COLOR 1:SM=DPEEK(88)420 Q=0:FOR T=LOC TO LOC+8*32 STEP 32:Q=Q+1430` qIF D$(T+1,T+16)="}]d}" THEN EXEC IMPRESORA:ENDPROC 440 NAME$=D$(T+1,T+14)450 SECTR=ASC(D$(T+17,T+17))+256*ASC(D$(T+18,T+18)):IF SECTR>71]e}9 OR SECTR<1 THEN EXEC IMPRESORA:ENDPROC 460 FOR I=0 TO 378 STEP 126470 X=USR(SRADR,BADR,SECTR,1,3)480 G$(I+1,I+126)=B]f}$(1,126)490 SECTR=ASC(B$(127,127))+256*ASC(B$(128,128))500 NEXT I510 X=USR(SRADR,BADR,SECTR,1,3):G$(505,572)=B$(1,68)52]g}G0 EXEC PANTALLA530 NEXT T540 EXEC IMPRESORA550 LOC=T:IF SALIDA=83 THEN CLS #6555 GOTO 420560 ENDPROC 600 PROC PANTALLA]q}hB%DOS SYSB*)DUP 5SYSB SRAMDISK COMB\@eB\ɠB\ϠB\pB\GRAF3D TBSuBsGRAF3D LSTBGRAF3D REVBGRAF3D TITB5CARRERA BASB5CARRERA LSTBCARRERA REVBREVISIONBASB\%B\B\B\0BMINIPOS BASB"MINIPOS LSTB6MINIPOS REVB 9LISTSHOPTBSB YLISTSHOPLSTHBLISTSHOPREVBPLAGA89 BASBPLAGA89 LSTBPLAGA89 REVB'BOXM XBASB*BOX] hLSTB BOXm uREVB\%B\B\B\0B1PROPRINTTBSB8APROPRINTLSTByPROPRINTREVBPROPRNTMLSTBPROPRNTMREVhYPOCHO BASPPOCHO LST 1POCHO REV=PSXMM801BASMPSXMM801LST\PSXMM801REV+^POLm xBAS+POL} LSTPOL REVB\ EB\B\B\P RDCURSORBAS RDCURSORLSTRDCURSORREV<$RDCURSORASMB\(esta listaB\sigue en elB\lado 2)@ @605 IF PEEK(764)<>255 THEN POKE 764,255:EXEC PAUSA:POKE 764,255610 L=ADR(G$)615 MAS=14*(Q=2)+28*(Q=3)+2400*(Q=4)+2414]r}X*(Q=5)+2428*(Q=6)+4800*(Q=7)+4814*(Q=8)+4828*(Q=9)620 FOR X=SM TO SM+2050 STEP 40630] MOVE L,X+MAS,11:L=L+11640 NEX]s}T X:TEXT (MAS MOD 40)*8,INT(MAS/40)+52,NAME$650 ENDPROC 700 PROC IMPRESORA705 IF SALIDA=78 THEN ENDPROC 710 IF A=67 THE]t}N X=USR(1536):ENDPROC 715 TEXT 30,183,"->IMPRIME ->CONTINUA"720 REPEAT :OPCION=PEEK(53279):UNTIL OPCION=6 OR OP]u}(CION=5730 IF OPCION=6 THEN TEXT 0,183,"M ":X=USR(1536)740 ENDPROC 790 PROC TITULO800 ]v} ? :? "ESCRIBA UN TITULO (MAX. 80 CARACTERES)":INPUT TITULO$810 ? :? "ALISTE SU IMPRESORA, PRESIONE ":GET RETURN:PO]w}KE 764,255820 LPRINT TITULO$;:LPRINT 830 ENDPROC 900 # ERROR905 IF ERR=138 AND ERL=820 THEN TRAP #ERROR:GOTO 830910 ? ]x}2"":RUN 1000 PROC PRUEBA_IMP1005 REPEAT 10107 ? "-Desea salida a impresora (S/N) ?":GET SALIDA1020 UNTIL SALIDA=7]y}G8 OR SALIDA=831030 IF SALIDA=78 THEN EXEC GRAFICO:DO :LOOP 1040 ENDPROC 2000 PROC PAUSA2010 REPEAT 2020 UNTIL PEEK]z}z\(764)<>2552030 ENDPROC 4999 PROC INICIO_IMP5000 SUM=05010 FOR BYTE=1536 TO 17175020a READ DAT:SUM=SUM+DAT:POKE BY]{}TE,DAT:NEXT BYTE5030 IF SUM<>23431 THEN ? "Datos errados":END 5040 ENDPROC 5050 DATA 104,169,128,133,216,165,88,133,212,]|}133,214,165,895060 DATA 133,213,133,215,169,25,133,217,198,217,240,102,325070 DATA 144,6,169,41,133,218,198,218,240,71,160,]}}0,1625080 DATA 0,177,214,37,216,201,1,38,219,24,165,214,1055090 DATA 40,133,214,165,215,105,0,133,215,232,224,8,1445100 DA]~}TA 230,165,219,32,160,6,165,212,133,214,165,213,1335110 DATA 215,70,216,144,209,169,128,133,216,24,165,212,1055120 DATA 1,1]}33,212,133,214,165,213,105,0,133,213,133,2155130 DATA 76,32,6,24,165,212,105,24,133,212,133,214,1655140 DATA 213,105,1,133,]}213,133,215,76,21,6,169,80,1335150 DATA 217,198,217,240,8,169,0,32,160,6,76,131,65160 DATA 96,160,9,152,72,185,172,6,32,160]},6,104,1685170 DATA 136,208,243,96,170,173,55,228,72,173,54,228,725180 DATA 138,162,0,96,1,64,4,42,27,10,8,65,272,6,32,160\sHK DH ND IC EA HP EB IL HL JA KK GO IE DP FI FC EC KO FL NA KA LK EP FF DA a}FJ LJ BK BK KD OK FL JO OK FG PH JH CC KF MD GK GN GN JD AE FB KF CA MN BN a}LJ AJ CL HA JC GO KG BH MJ LD HO IJ NG GH KG HN LP DF JF PF CJ KG LF IK OL a}MG KG EG JN EG PJ IH BN KA DN NA HA IE HN NA BD CH GA HA HB NE GH FD JH FK a}LD BH FF NB IE FC ND AK NO NH NA HA IE HN NA BD CH GA HA HB NE GH FD JH FK `25'(8 N KKXACHSEARKFASTVEKZ?@FHNP@WX_`ghopwx}e}   "# *+23:;BCJKRS[^%%}*e}%%* P L A G A 1 9 8 9$ Q*%%* por: Mario Caillahuz A. *%%*V ipara ATARI CREATIVOn u*%%}*e}*" [6-@&,+@0P+A1AU=A)@TIA0[AA YAe}C@f 'A@63AEA @:CY@G^K:;,9@0b,<<X,48,24,12,12,24,48,e}120,120,%,0,192,99,55,30,16,60,126BB&,255,249,253,255,255,126,60,24,K,24,60,153,126,24,24,36,195))W,255,255,255,255,2e}EC55,255,255,255,AM-@&'(@*D --M(@Ht I$6-+F:A,&@x,$Ae}WV2-AE%F:BsD%,I ( -2%"6-@:,4A'% @[h<A-@l"9%+$@e} ,%&@2 $@J= A ZAV'AV_ 6-x]-@!NU/(@YvPRESIONE CUALQUIER;-@"z](e}@;TECLA PARA PROSEGUIR"AdAU")@?K$(@Oa}6-$6-@ eyf @:,,@#}e} /*/@@BIH(@MXN-@\`@dk)(@o;-@e} @ N(@0 BAdAU-@FV -(@Zux 68,-9-@!y(e}@%*-@"9(@"8&$ .6-@<V8 -B"-&@ Za"(@ev G?-@ z(e}@0-@@ %?(@):K-@>ML6-P:@Q$H:,,%\C68,-8,%-8,&+(@e} 4-8,C(@-x]8,!@1' A ^ 6-%` ~$6-F:Ad,$AdAUe}@A @06-%@48A<X !6-&"@c\b APf  6- e}  A` 1-@ "1(@&HSI QUIERES CONTINUAR1-@LS1(@W PULSA SI/NO(S/N) (5Ade} AU")@Y5>:,4SA2>:,0NA <(A1!A)@`]%+( 6-%-@e}&6& 1"@:x,&6-%@ *<& -(@@O^&@Sb-%&(@fu E2Ay@e}@ E2AU&$@"&@*.@2eAdAU 68,- 6-@ iq&P:'Au,"-e}@ @"(@+, -(@/^x"2,2$pz/-@ bi/(@mFELICITACIONEe}S,HAS3-@@!3(@%EBATIDO EL RECORD-AI  22 6-6-6-e}C!$XD2:PLAGA89.BAS%EBATIDO EL RECORD-AI  22 6-6-6-d!0 REM %*-2 REM *2 EP L A G A 1 9 8 9J y*4 REM * por: Mario Caillahuz A. *6 REM *} i} para ATARI CREATIVO !*8 REM @*10 K1=1:GRAPHICS 17:POKE 731,255:POKE 729,15:POKE 730,K1:POKi}E 712,19612 POKE 708,66:POKE 710,8:POKE 711,K0:POKE 709,19:OPEN #K1,4,K0,"K:"14 DIM X$(K1),A(30)16 DATA X,48,24,12,12,24,4i}8,120,120,%,0,192,99,55,30,16,60,12618 DATA &,255,249,253,255,255,126,60,24,K,24,60,153,126,24,24,36,19520 DATA W,255,255,2i}55,255,255,255,255,255,A24 POSITION 5,K0:? #6;"":POSITION K1,K1:? #6;" "30 CHSET=(PEEK(106)-8)*2i}56:FOR I=K0 TO 512:POKE CHSET+I,PEEK(57344+I):NEXT I40 FOR AS=K0 TO K1 STEP K050 READ X$:Y=ASC(X$):IF X$="A" THEN POP :GOTOi} 9060 FOR N=K0 TO 7:READ X:POKE CHSET+(Y*8)+N-32*8,X:NEXT N:NEXT AS90 POKE 756,CHSET/25695 RE=K0120 POSITION K1,21:? #6;"i}PRESIONE CUALQUIER":POSITION K0,22:? #6;"TECLA PARA PROSEGUIR"200 POKE 764,255:GET #1,K205 ? #6;"}":KP=K0:FASE=9210 COLOR i}ASC(""):PLOT K0,23:DRAWTO K0,K0:DRAWTO 19,K0:DRAWTO 19,23:DRAWTO K0,23:PLOT 12,K1:DRAWTO 12,22220 COLOR ASC(""):FOR TT=13 i}TO 18:PLOT TT,K1:DRAWTO TT,22:NEXT TT230 POSITION 13,5:? #6;"":POSITION 13,6:? #6;RE240 POSITION 13,17:? #6;"":i}POSITION 13,18:? #6;"0"1029 POKE 764,2551030 FOR N=K1 TO 111040 POSITION N,K1:? #6;"x"1050 A(N)=K11051 POSITION N,21i}:? #6;"%":POSITION N,22:? #6;"&"1060 NEXT N1070 B=61080 FOR AS=K0 TO K1 STEP K01090 POSITION B-K1,20:? #6;" "1095 POSIi}TION K0,20:? #6;"":POSITION 12,20:? #6;""1099 FOR VEZ=K1 TO 5 STEP FASE1100 KO=INT(10*RND(K1))+K11116 A(KO)=A(KO)+K1:POSi}ITION KO,A(KO)-K1:? #6;" ":POSITION KO,A(KO):? #6;"x"1117 IF A(KO)>19 THEN POP :GOTO 12201118 KO=KO+K11120 NEXT VEZ1150 Xi}=PEEK(764):POKE 764,2551160 IF X<>7 THEN 11801170 IF B<11 THEN B=B+K11180 IF X<>6 THEN 12001190 IF B>K1 THEN B=B-K11200 i}IF X=63 THEN GOSUB 50001210 NEXT AS1220 W=K01280 IF RE"N" THEN 1i}G3201340 POKE 731,K0:POKE 729,60:GRAPHICS K0:END 5000 KP=KP+K15005 FOR N=19 TO K1 STEP -K15006 LOCATE B,N,ZZ:IF ZZ=ASC("x"i}) THEN KP=KP+20-N5010 POSITION B,N:? #6;"^"5020 IF N<>19 THEN POSITION B,N+K1:? #6;" "5025 SOUND K0,100,14,5:SOUND K1,255-i}N*10,14,85026 POKE 764,2555030 A(B)=K15040 NEXT N5042 FASE=9-INT(KP/100)5045 POSITION 13,18:? #6;KP5050 POSITION B,K1:?i} #6;"x":SOUND K0,K0,K0,K0:SOUND K1,K0,K0,K05060 RETURN 6000 REM 6010 POSITION K1,9:? #6;"FELICITACIONES,HAS"6020 POSITIONi} 2,10:? #6;"BATIDO EL RECORD"6050 FOR AS=K1 TO 500:NEXT AS6060 SOUND K0,K0,K0,K0:SOUND K1,K0,K0,K06070 RE=KP:KP=K0:K=K060i}80 RETURN 7000 CLOSE #K1RD"6050 FOR AS=K1 TO 500:NEXT AS6060 SOUND K0,K0,K0,K0:SOUND K1,K0,K0,K06070 RE=KP:KP=K0:K=K060hCK KK PL OK DC CB HN KJ OL CE IA PA DB GN HC LH KJ LN MM AP IH MC BJ LI AC m}GE LH PJ FP JD FE HN NC PE DN JL LI AK ID OD PI EF FJ MP FD OP ME JH NE DN m}NH KB FL AA ON NP KK GH KG OA IB GF FF FG CE OE FJ KL KK HI FA EE PJ AG KO m}NM KB FL AA ON NP KK GH KG OA IB GF FF FG CE OE FJ KL KK HI FA EE PJ AG KO lRDEeKKKKKKKKRP1PPUPUNCFCFOSRBTOTOTND\]delmtu|q} &(@ .0@ 78 ?@ GHOPWX_`ghopwx}q} "#*+23:;BCJKRSZ[ bc!jk"rs#{%%q} *'%%*3 8B O XD q*%%* por: Eduardo Helfer - 12/86 *%%*u INFORMATq} ICA CREATIVA *%%7*@o +@DJ6-PX%6-@\-6-%56-%=6-%E6-%q}M6-%U6-%]0oAVA(P -( #$# ()* -1( %&' +,+7-P( box BOX iq} B@@R/ AP%6-+6-C9@3:,9@>E,M AIOW ASaiB@@`ek 6-6-6-6q}-!6-'6-36-@#?6-@ '-I+@19W0@=q_0e6-k6- AVA( , @Bu6-R:q}C?,$")")",6-% 6-H:,8O:P:,&P:,,  !?PCM.6-%?PQW8 @ [w.O:P:,&P:,,   ?P{.q}6-&?P +#"@!)"@%+)"@ /L+6-&'P:,"P:,*@PZ'6-&? ^s'P:,"P:,* @w'6-q}%? <"@)"@ !=)"%6-%--&<(D ^#T @:,,/@#bq'@:-,9/@uy@#}q}E/@ &N@:,T/(%"@*0)"@4y)"%6-&*  6-%@P+  6-%@P,!@}q}6-&@P-!@66-&@P.!@!:B6-@!Fw/  6-0  6-2  6-&?P{3q} !6-%?P4* -*(FAVOR   511(  :P:'@i,6!Aq}<6-%6-7 6-% 6-9% "6- A@g!6-%% <&!@%6-%?PkxA7!&@|q}6-&)-&%@7(% :C  !6-%?P>NDH:,!@uRF99+P:,"P:&,)P:,"P:%,,*P:,"P:%@q} ,@4K* -&%(  6-* @8PB -&%( $ A,6-%46-%<6-%B6-Qq}'F -&( "-&&/(, >9-&%F(C SUT:,"AWZ$ -&&( $ $ Adq}E -&&( #$# i -&( %&' j -&%(J `k2O:P:,&P:,,!@dv$-&&2(| q}$lT:,Anw=+P:,"P:&@(6,)P:,"P:%@:I,,*P:,"P:%@Mb,G A U6-%@fpc6-&@tq6-%@q}0w6-- !-(ko6-) A4_- / !-%(ko!6-+ Acw/ T:,"@P{q} @ >-@ @@",-2@04@8V1 ;2>$f-@Zd'2@hl@p+ 4(}q}.>2D6-J6-T AfB@@R2F' !68,-@JU'68,-@ Ym'  68,-@ q'68,-@q}' "68,-@&'68,-@*4**(@8^ PACTADO A  ROUNDS ,,(@b EN DIFICULTAD $@q} %%(@V䠠FAVOR ! -6-%8,!6-%8,&&(\ d8,j 8, (q}( "( * !(*(knockout!* !(*(knockouq}C=t(( pulse start  .F:B2y,"$B@@`A. A A-%!)!)!(}) Bq}-- $ (} AE ?+@15%@9l-%0$-070$?0"?0@p$1(@q}6E L E C C I O N ?K:%B@@R:Y* -$(D E40-@]a@e0(D I F I C U L T q}A D>(((( E堠ᠠ H )R!! @IIO)!@SSWA[i\6-+&@Hmr,'@v$.q} -@ \2$! +2.$)+00!0$)01 A`B'rAU1AVq}A(5-@ 5(!<G5-@K5(!N U M E R O D E R O U N D S5-@q}5(!)8<!@<2(Solamente hasta 13 vueltas< AB'r$q} --@$6A")B'h%- . A@:G3*-@K*B'h%F:BsD%,LA-AA 0q}B'h%F:BsD%,4 > A@A$24,60,60,24,24,36,36,360,60,126,126,90,36,24,3636,35,32,16,15,0,0,0q}Ǜ!!66,195,66,126,126,255,126,036,196,4,8,240,0,0,0 0,0,0,15,16,32,35,36%""0,126,255,126,126,66,195,102*q}0,0,0,240,8,4,196,36 36,36,36,24,24,60,60,24 ??24,36,90,126,126,60,0,0,255,255,255,255,255,255,255,255,0` -q}B'h%AU=2%@0 $@(,@0:K-@0>yO Y2] `$Z-6B'h%:2%@0}q}@ @H-@0yL V2Z $ D2:BOX.BAS] `$Z-6B'h%:2%@0}pI0 REM %*-1 REM *9 >B O XJ y*2 REM * por: Eduardo Helfer - 12/86 *3 REM *} u}INFORMATICA CREATIVA !*4 REM @*5 GRAPHICS 18:K0=0:K1=1:K2=K1+K1:K4=K2+K2:K5=K4+K1:K6=K4+K2:u}K7=K6+K1:K8=K4+K4:SETCOLOR K4,K5,K0:POKE 756,1286 POSITION K5,K4:? #K6;"#$# ()*":POSITION K5,K5:? #K6;"%&' +,+":POSITIONu} K0,K6:? #K6;" box BOX "7 POKE 54018,52:GOSUB 1050:RO=K1:M=K0:DIM P1(15),P(15):GOSUB 800:GOSUB 1000:POKE 54018,608 u}M=K0:PUN=K0:PUN1=K0:CC=K1:T=K1:FC=K4:CJ=15:FJ=20:GRAPHICS 17:SETCOLOR K2,12,K8:SETCOLOR K1,K7,K7:O=K0:O1=K09 POKE 756,12810u}G TRAP 42:ST=STICK(K0):IF ST=K7 OR ST=K6 OR ST=K5 THEN CJ=CJ+K114 RD=RND(K0)15 IF ABS(INT(CJ)-INT(CC))0.5 THEu}N CC=CC+0.5:GOTO 2016 IF ABS(INT(CJ)-INT(CC))=10 THEN CC=CC-0.226 IF INT(CC)=INT(CJ) AND CC<10 THEN CC=CC+0.230 IF ST=13 OR ST=9 OR ST=K5 THENu}# FJ=FJ+K1:POSITION CJ-K2,K8:? #K6;"* "35 COLOR ASC(""):PLOT K0,K2:DRAWTO K0,23:COLOR ASC("-"):DRAWTO 19,23:DRAWTO 19,Ku}2:COLOR ASC(""):DRAWTO K0,K240 IF ST=14 OR ST=10 OR ST=K6 THEN FJ=FJ-K142 IF CJ17 THEN CJ=CJ-1.545 IF CC>17 THEN CC=CC-1.546 IF FJ>21 THEN FJ=2147 IF FJCC THEN CC=CC+0.552 POSITION K0,K0:? #K6;"FAVOR ";PUN;" ";PUN1;" "53 ? #K6;"u} ";RO;" ";M;":";INT(T/3.1069)54 IF T>185 THEN M=M+K1:T=K055 T=T+K1:IF PUN3.25 THEN FC=FC+0.565 IF FC>FJ-3 THEN FC=FC-K1:POSITION CC-K2,FC+3:? #K6;"t "67 IF Cu}CCJ THEN CC=CC+0.568 IF RND(K0)>D THEN 7570 IF (INT(CC)=INT(CJ-K1) OR INT(CC)=INT(CJ+K1)) AND INT(FJ)=INT(FC+3) THEN 80u}75 POSITION CC-K2,FC+K1:? #K6;" ":BR=K0:GOTO 8180 POSITION CC-K2,FC+K1:? #K6;" ":GOSUB 510:PUN1=PUN1+K1:FJ=FJ+K1:O1=u}JO1+K1:O=K081 POSITION CC-K2,FC:? #K6;" ":POSITION CC-K2,FC-K1:? #K6;"O m":POSITION CC-K2,FC+K2:? #K6;"r "85 IF STRu}IG(K0)=K0 THEN 10090 POSITION CJ-K2,FJ-K1:? #K6;" $ ":GOTO 105100 POSITION CJ-K2,FJ-K1:? #K6;" #$# "105 POSITION CJ-K2,Fu}0J:? #K6;" %&' "106 POSITION CJ-K2,FJ+K1:? #K6;"5 v"107 IF ABS(INT(FC)-INT(FJ))>3 THEN POSITION CJ-K2,FJ-K2:? #K6;"| "u}Ǜ108 IF STRIG(K0) THEN 180110 IF (INT(CC)=INT(CJ-1) OR INT(CC)=INT(CJ+1)) AND INT(FJ)=INT(FC+3) THEN GOSUB 910:PUN=PUN+1:FC=u}FC-2:O=O+1:O1=K0180 IF O>K6 THEN POSITION CC,FC:? #K6;"ko":PUN1=K0:GOSUB 700:GOTO K8190 IF O1>K6 THEN POSITION CJ,FJ+K1:? #u}K6;"ko":PUN=K0:GOSUB 700:GOTO K8200 IF STRIG(K0)=K0 THEN 50250 GOTO 10510 FOR A=20 TO 40:SOUND K0,A,12,10:NEXT A:SOUND K0,u}K0,K0,K0:RETURN 700 FOR S=K1 TO 90:SOUND K0,S,12,15:NEXT S:? #K6;"}":SOUND K0,K0,K0,K0:TOT=K0:TOT1=K0:TRAP 797:POKE 54018,52u}G710 IF PUN>PUN1 THEN P(RO)=10:P1(RO)=9720 IF PUNK6 THEN ? #K6:? #K6;"knockout!"768 IF O1>K6 THEN ? #K6:? #K6;"knockout"770 ? #K6:? #u}K6;"pulse start "780 IF PEEK(53279)=K6 THEN POKE 54018,60:GOTO 795790 GOTO 780795 IF RO+K1>NDR OR O>K6 OR O1>K6 THEN ? #K6u};"}":CLR :TRAP 40:GOTO K7796 RETURN 797 ? #K6;"}":GOTO 745800 GRAPHICS 13+16:POSITION K2,K2:SETCOLOR K0,K8,K5*K2:SETCOLu}OR K1,K8,K0:SETCOLOR K2,K8,K6*K2:SETCOLOR K4,K8,K5802 SETCOLOR 3,K8,K5*K2:? #6;"E L E C C I O N ":OPEN #K1,K4,K0,"K:"805 POu}mKE 54018,52810 POSITION K8*K2,K4:? #K6;"D E"820 POSITION 18,6:? #K6;"D I F I C U L T A D"830 ? #K6:? #K6;"y 堠v}DZᠠ "840 GET #K1,K:CLOSE #K1850 IF K<49 OR K>53 THEN 800860 D=(K-48)/10:RETURN 910 FOR A=K1 TO 20:SOUND K0,A,K8,K5*K2v}:NEXT A:SOUND K0,K0,K0,K0:RETURN 1000 GRAPHICS K0:SETCOLOR K0,K7,K0:SETCOLOR K1,K7,K0:SETCOLOR K2,K7,K5*K2:SETCOLOR K4,K7,K8v}B1001 TRAP 1000:POKE 32772,255:POKE 756,1281002 POSITION K4,9:? "c"1003 POSITION K4,10:? "v}9N U M E R O D E R O U N D S"1004 POSITION K4,11:? "Z"1005 INPUT NDR:IF NDR>13 THEN ? "v}Solamente hasta 13 vueltas":GOTO 10021006 POKE 32772,K0:RETURN 1030 REM 1050 FOR I=24 TO 112:READ D:POKE 32768+I,D:NEXT Iv}1070 GOSUB 40001075 FOR I=K8 TO 15:POKE 32768+I,PEEK(57344+I)1100 FOR I=113 TO 983:POKE 32768+I,PEEK(57344+I):NEXT I:GOSUB v}4010:RETURN 2000 DATA 24,60,60,24,24,36,36,362010 DATA 0,60,126,126,90,36,24,362030 DATA 36,35,32,16,15,0,0,02040 DATA 66v},195,66,126,126,255,126,02050 DATA 36,196,4,8,240,0,0,02080 DATA 0,0,0,15,16,32,35,362085 DATA 0,126,255,126,126,66,195,10v}22090 DATA 0,0,0,240,8,4,196,363000 DATA 36,36,36,24,24,60,60,243010 DATA 24,36,90,126,126,60,0,0,255,255,255,255,255,255,v }255,255,04000 FOR I=K0 TO K8:POKE 32768+I,255:SOUND K0,I+30,10,10:FOR U=K1 TO 30:NEXT U:SOUND K0,K0,K0,K0:NEXT I:RETURN 401v }G0 FOR I=K8 TO K0 STEP -K1:POKE 32768+I,K0:SOUND K0,I+30,10,10:FOR U=K1 TO 30:NEXT U:SOUND K0,K0,K0,K0:NEXT I4020 RETURN 401tz CK FC DM OH CO DA JJ JH MN NB MN OI LN KG AK CI OI GB CL FN IA GM HB FN IJ z }MG LD HL HM GK MH BL EE OD HN GG AJ MK FO BH FK AL MJ ED KI AM EC FK EF CJ z }OI JO MC DB DC KF KO KN NH GM CO NP IH KP DG IA BJ OL PJ HE HG HI LA IG JJ z}PB BP GB AI EP OK OB HJ PO DE BM MC GN GE JI JC LM KI ID AM MK GK EJ HK KG z}CC LA KL FC LE EK NO OO JJ KG BM MC GN GE JI JC LM KI ID AM MK GK EJ HK KG x2:yAAAAAAWZNFSPLRVMSETASETBMAINMANDRECDPRASETMMAGNIPRINMICROPAINKOALSUINIZDE}"CURSOCOLONO_VSI_VPN,-45<=DELMSU@[]cekm su { }@   &(.068?@FJbNOPVZH_`ghopvRJ}J tK"#*+ 23!:;"BC#JK$RS%Z[&bc'im(1Frs)z*}+ ,- .G%&/,008H561=>2EF3MN4VY%%x*%%}* P R O P R I N T '*%%*, ?por: Eduardo HelferD L*%%*R cenero/marzo, 1989i *%%* INFORMATI}CA CREATIVA #1 * %%7*u 3 6-h%h6-%g6-%g#6-%g+6-%36-%9@y,;}A`,;@,;@ $,;@(/,;@3:,9@>E,;@IP,;@YT[,;@Y_q,;AB,;@Uu,;@},a6. <=>6. M+f?6-F:A`,%AV$F:Aa,M%i@qQU%aARg#5P -)(De la }Pantalla al Papel-P5-%(O%(Un grama de Eduardo Helfer--%K(PARA OP2))pRrI,P}upRt,oPnT,rOiN7 6.U1<PP%+0h$hf0$h%0g$iZhgYA(hPROPRINT0,@0y@0}S>/A0$iP/A0A@^/$iA@h/$i$idQ,Ap$i/AWa$i1/AeAC/ApA}C%Q/Ap$in/ -f+Y$@5)0%$ ;X/ xe -f3YAu@5\c%$r7 NY@W}=$iϠeYA$iϠ--(%Total VerticalA \Parcial Horizontal (((` ESCOJA EL TIPO DE IMPRESION}ǖ E )$>:,4A)>:,4B'$ AF7AdAU+f#0h$hf-0$h70gf$i"` gg}hfD:*.*"6-f E g7h>(}REG#1=8g,REG#2=8h,REG#3=8i,RE#}G#0=8f,^)h#"@:1,*8g,!g#68g,-8g,&gr%"@:2,*8g, $i%68g,-8g,%g|#"@:Q,*8h,!g#68h,-8h,&g$}%"@:W,*8h, $i%68h,-8h,%g#"@:A,*8i,!g#68i,-8i,&g%"@:S,*8i, $i%68i,-8i,%g#"@:Z,*8f%},!g#68f,-8f,&g%"@:X,*8f, $i%68f,-8f,%g"AU' ApF 6-f-g -fi 8&}`,!6-8,6-  6-f68,-8,68,-f67%g<%g,.7<, &"@edAp0; 6-g6-A'}&6-g'6-AX/6-$;6-@*:dd(\}Indique con el control (o las flechas del teclado y el cursor) el puntoӎ(}ҠDPN-g,AY&g/&g&g-/&gAX) 6-6-%AY6-)6-AXb==(5}Indiqu)}xe de la misma forma el puntoҠlPv!g,%gf/%g%g!/f%g 6-6-3"@e|*}=Ap,36-&6-P:$&'h,,3l>:,!!(}I IMPRIMIENDO -6-f-6g6-%gƎ+}( 1(F:Ad,"@3nA@67,.7%g<%g, 3 3l>:f,%!!(}z IMP,}JRIMIENDO 3-fA 6-fAY16F:Ad,"@3NA@*67%g,.7%g<%g,4  3 -}>%H$$(} ;IMPRESION CANCELADAR.-$if6?? 2f$ .2ffff\W.(&}PULSE PARA REINICIAR I.}GMPRESIONE(O PARA SALIRWAdAUfF:Ad,"$hA`pF:B2y,"%z ApOAd/}/f##R:f,$i)F:Ad,fA 0 A PE 1 %g, %h, %i,0}  ,7#+F:Ad,"$h)R:f,"$h,*!+6-&g7Adf5!+F:Ad,")R:f,"%g,*!)6-&g5AdfA-+1}F:Ad,"$i)R:f,"%i,* * A56-%gAAdf=)+F:Ad,")R:f,",* * AX16-%g=Adf.2}F:Ad,"$h)T:f,"fP+Adf.QF$O. +$&g8BA8g,!A 8h,0A8i,?A83}wf,BQBOL +$&gVBA8g,!A 8h,0A8i,?A8f,BQ~O1 #A-g@Y{4}!"-67<,.>:,1 *-g@Y%"#67<,.>:,' *Qll27,65,2,27,120,48,27,77,15,27,58,0,0,0,27,37,1,0,27,38,0,5}60,62,128,128,0,64,0,0,0,128,0,64,0,0,128,128mm0,64,0,128,0,64,0,128,0,64,128,192,0,192,0,192,0,192,0,192,0,192,27,65,6,26}7,120,48,27,77,15,27,58,0,0,0hh27,37,1,0,27,38,0,60,62,128,168,0,0,0,168,0,0,0,168,0,0,128,168,0,84,0,168,0,84,0,168,0,847}F,128,252##0,252,0,252,0,252,0,252,0,252Ogf BJ' +$i-AA#f' %%6-F:@8} ,%F:@c,$AVCgACgAv g Q Ogf Bg' +$i-A9}A#f' (%%6-F:@"),%F:@-,$AV2CgAv@< g QxO #A`-A6:}AV "  GG162,16,169,1,157,72,3,169,0,157,73,3,32,86,228,48,1,96,104,104,96AA6.7h01DZ);}qʊXiYi`@@6.6hBDEHI  <OO67@Uu,.<<}    ĩOO67A,.:AU,QQ67A),>}.>`RɥPee`/eeGG67A,.4(eeЕe੎?}e +$6-?:C:,,"gf,6-?:C:,,6g@ +$&gQJOT9 -gi-g"-f!(+@}CM@/ 2#6 9QD2:PROPRINT.TBS,6-?:C:,,6g@ +$&gQJOT9 -gi-g"-f!(+.A0 REM %*-2 REM *4 CP R O P R I N TJ S*4 REM *X kpor: Eduardo Helferp y*6 REM *} B} enero/marzo, 1989 G*8 REM * INFORMATICA CREATIVA #1 *9 REM f*10 A4=%2+%2:A5=A4+%1:AC}6=A5+%1:A7=A6+%1:A8=A4+A4:AA=A6+A420 DIM W(5),Z$(160),N$(12),FS$(20),PL$(5),R$(5),V(5),M$(15),SETA$(59),SETB$(59),MAIN$(342)D}%,MA$(55),NDREC$(3)30 R$=" <=>":PL$=") ":GRAPHICS %0:DL=PEEK(560)+256*PEEK(561):POKE DL+%3,71:POKE DL+A6,AA:POKE 752,%135 E}EXEC PRO:POSITION A9,AA:? "De la Pantalla al Papel":EXEC PRO:POSITION A6,A7+A640 ? "Un grama de Eduardo Helfer":POSITION F}A8,AA+A6:? "PARA ":EXEC PRO50 DATA pRrI,PpRt,oPnT,rOiN55 NDREC$="U1"60 EXEC SETS80 GG}RAPHICS A8:SETCOLOR %2,A6*%2,%0:SETCOLOR A4,A6*%2,AA:SETCOLOR %1,A4,A5*%390 COLOR %1:TEXT 128,%2,"PROPRINT":PLOT 30,30:DRAWTH}O 130,AA*%3:DRAWTO 130,140:DRAWTO AA*%3,140:DRAWTO AA*%3,AA*%3100 PLOT 170,AA*%3:DRAWTO 300,AA*%3:DRAWTO 300,110:DRAWTO 170,I}<110:DRAWTO 170,AA*%3110 FOR L=%0 TO A5:TEXT A6*A6,35+L*A8,"Gu":NEXT L120 FOR L=%0 TO A8:TEXT 175,35+L*A8,"}J}T":NEXT L:TEXT 57,A5*%3,"Ϡ":TEXT 208,A5*%3,"Ϡ"130 ? "Total VerticalX tParcial Horizontal "140 ? "x ESCOJK}A EL TIPO DE IMPRESION";150 DO :GET MD160 IF CHR$(MD)="A" OR CHR$(MD)="B" THEN POP :GOTO 180170 LOOP 180 POKE 764,255:GL}RAPHICS %0:SETCOLOR %2,A6*%2,%0:SETCOLOR A4,A6*%2,AA:SETCOLOR %1,%0,A5*%3190 CLS :CLOSE #%1:OPEN #%1,A6,%0,"D:*.*":F=%0200 M}DO :INPUT #%1;FS$210 IF FS$(%2,%2)<>" " THEN POP :GOTO 250220 ? FS$;230 IF F THEN ? 240 F=NOT F:LOOP 250 CLOSE #N} %1:? :? "-_"260 FS$="D:":INPUT N$:FS$(%3)=N$270 IF N$="" THEN 180280 CLS :? "-PROCEDENCIO}A DEL ARCHIVO:[1] MAGNIPRINT[2] MICROPAINT[3] KOALA[4] DESIGN MASTER"290 GET F:F=F-A6*A8:IF F<%1 OR F>A4 THEN 2803P}00 ON F EXEC MAGNIPRINT,MICROPAINT,KOALA,MICROPAINT320 RESTORE 320:FOR L=%0 TO %3:READ X:V(L)=X:NEXT L:DATA 8,1,4,12330 DO Q}:POKE 708,V(%1):POKE 709,V(%2):POKE 710,V(%3):POKE 712,V(%0)340 ? "}REG#1=";V(%1),"REG#2=";V(%2),"REG#3=";V(%3),"REG#0=";VR}G(%0)350 GET K360 IF K=ASC("1") AND V(%1)>%1 THEN V(%1)=V(%1)-%1370 IF K=ASC("2") AND V(%1)%1 THEN V(%2)=V(%2)-%1390 IF K=ASC("W") AND V(%2)%1 THEN V(%3)=V(%3)-%1410 IF K=ASC("S") AND V(%3)%U}1 THEN V(%0)=V(%0)-%1430 IF K=ASC("X") AND V(%0)O THEN O=V(E):M=E500 NEXT E510 O=%0:W(M)=V(M):V(M)=%0520 PW}L$(M+%1,M+%1)=R$(H,H)530 NEXT H550 IF MD=65 THEN 770560 SUP=%1:INF=190:IZQ=%1:DER=158:X=A8*AA:Y=90570 ? "}Indique con el X}control (o las flechas del teclado y el cursor) el puntoҠ"580 EXEC CURSOR590 COLOR %1:PLOT 159,Y-%1:DRAWY}TO X-%1,Y-%1:DRAWTO X-%1,191600 SUP=Y:INF=Y+159:IZQ=X:DER=158610 ? "}Indique de la misma forma el puntoҠ"Z}620 EXEC CURSOR630 COLOR %1:PLOT X+%1,%0:DRAWTO X+%1,Y+%1:DRAWTO %0,Y+%1640 INF=Y:DER=X660 LPRINT NDREC$;665 IF MD=65 THE[}WN 770670 LPRINT SETB$:A=INF-SUP:A=INT(A8*AA-A/%2):LPRINT "l";CHR$(A);NDREC$680 ? "}c IMPRIMIENDO"690 FOR E=IZQ\}7 TO DER:C=%0700 FOR I=INF TO SUP STEP -%1:C=C+%1710< iLOCATE E,I,COLOR:IF PEEK(764)=33 THEN 840720n Z$(C)=PL$(COLOR]}d+%1,COLOR+%1)730 NEXT I740 LPRINT Z$750 NEXT E:LPRINT "l";CHR$(%0);NDREC$760 RUN 770 ? "}p IMPRIMIENDO"^}h780 LPRINT SETA$790 FOR E=%0 TO 191800 FOR I=%0 TO 159:LOCATE I,E,COLOR:IF PEEK(764)=33 THEN 840810m Z$(I+%1)=PL$(COL_}@OR+%1,COLOR+%1)820 NEXT I:LPRINT Z$:NEXT E830 RUN 840 ? "}G IMPRESION CANCELADA"850 FOR D=A5*%3 TO %0 STEP -0.05:`}SOUND %0,AA,AA,D:NEXT D:SOUND %0,%0,%0,%0860 ? "}PULSE PARA REINICIAR IMPRESION":? "O PARA SALIR":POKE 764,255a}870 IF PEEK(764)=A6*%2 THEN 660880 IF PEEK(53279)=A6 THEN RUN 890 GOTO 870900 PROC CURSOR:POKE 764,%0910 IF STICK(%0)<>b}MA5*%3 OR PEEK(764)<>%0 THEN 930920 GOTO 910930 EXEC NO_VT940 DO 950R bLOCATE X,Y,Z960g COLOR Z+%1:PLOT X,Y97c}0 COLOR Z+%2:PLOT X,Y980" 9COLOR Z+%3:PLOT X,Y990> SCOLOR Z:PLOT X,Y1000X IF (PEEK(764)=A7*%2 OR STICK(%0)=A7*%d}C)2) AND Y>SUP THEN Y=Y-%1:POKE 764,%01010. yIF (PEEK(764)=A6 OR STICK(%0)=AA+%1) AND X>IZQ THEN X=X-%1:POKE 764,%01020} e}eY IF (PEEK(764)=A5*%3 OR STICK(%0)=AA+%3) AND YC (ESTADISTICAS DEPORTIVASC(} } -"F-@&*@.aH(por Yero StucchiP0A`Z-@ei@ mr(v\D (}GEl nombre del campeonatoD( para nuevo campeonato^(Mu`d4AnKB:,!@y)(}MAXIMO 8 LETRAS=-@#A '1A K @5Ev6-B:,%@ITxF67@X\<@`n,.D:.67@r<,.F67}<%@ ,..EQU @ $@(*0<+@@J-@NW+@[hUU67@ls%+&@w,$@}<@ %+&@,$@+%B:,,.7@/C: ,+67<,.>:@2!8, 67<%@<\,..PTO Apw -@`bhm6?%qy=-@}} 6@]2!%@%+&@/Ga e wAR@K]( 6.-@ae@ i((] (a)} INGRESO DE RESULTADOS=(b) TABLA DE POSICIONES](c) ESTADISTICAS GENERALESP$(d) PRONOSTICOS DE PARTIDOS6(}0 e) ARREGLOSP(f) NUEVO CAMPEONATOD#@48@<>DPK:0)@T];@aD6.>:,4AA`}4BA4CA@4DA 04EA4FA ( A!!*}C)* INGRESO DE RESULTADOS ** (}-@-1@5_!!(| INGRESO DE RESULTADOS |-@cg@ks!!(}-}--@ @$,!!(E-N"1-@RV@Z_1(u,-}@ @ .**("|7-L|6S+(# | Equipo 1Y jEquipo 2 |S(# |}-} -|@S+(# |8 @|S(# |K-L|P-Q|U-V|`-j|H-@nr@vJ(} |-| -|T-@#,V-@06%$@:>@BTXZ-@Xg^p047@kr%+&@v,$@}<$@ ,968,-U-@ $%@(.$@2]Yb68,-f p Ah r-@ ae@ it9!(ESE EQUIPO} NO PARTICIPA5-@A!.9 v-@ 26@ :Bx(Y o| ABg8u,!8@} ,A688,,-88 &,,%@*4g688@8B,,-88@FL,,%@PYg8_f, 8@ju,A688@y,,-}88@ ,,%@g688"*,,-8806,,%@:Cg8IP,"8@T],A688ck,,-88qw,,%@{g}688@ ,,-88@ ,,%@$/)6885=,,-88CI,,%@MWO688@[e,,-88@io,,%@sx688} ,,-88,,%8),688@-7,,-88@;A,,%8GU,U,688@Yc,,-88@go,,%8@s,U688} ,,-88,,%8@),$-@-1@ 5N$( MAS DATOS?D#@RV@Z\bnK:0)@r;@}9D6.>:,4SA 4N AP @P=P ( @PT** TABLA DE POSICIONES ** (}}-@ @5B(| TABLA DE POSICIONES |B(< =|R-\|-@ `bhq(|}-} -|!!-@+@ &&'@*<,W-(%N EQUIPOA `PJ PG PE PP GF GC PT POC-@dj%@nS68,-6@}W I @+,@!+@%+&'@/6,I/@9:?+@CI&'@MY,-@]y -iU+8,$@}}%8,%+8,&8,,'A$,+8,$@(=%8,%+8,&8,,'AAR,i68,-8,%@Ve&iU+8,$@i%8,%+8,&8,,'A}, +8,$@)%8,%+8,&8,,'A->,i68,-8,%@BV. 0006.7@Za%+&@ej,$@nt<$@x,:}C6-@ &8,%'@#<-@'>B (&8,D-@BTF(H-@XmJ (8,L-@qN (8,} P-@! "R (8,T-@$&;V (8,X-@'?TZ (8,\-@0Xm^ (8,`-@3qb(8,}$@%8,d-@6Ff(8,&8,h l F:B2y,@J[A v @P_""** ESTADISTICAS GENERALE}S ** (}-@(""(|@-J|-@NR@V""(| ESTADISTICAS GENERALES |9}@ @'@@8"09AR@4=-@AE@IRG"(|j-|G( Equipo con ma}s partidos ganados:1-@"X!8, 8,*'6-1 A 006.7@\c%+&@gl,$@pv<$@z,}(-> 8,1-@ >!8,!8,*'6-1 ABV 006.7@Za%+&@ej,$@nt<$@x,:}A*("Equipo con menos partidos ganados::(-> 8,1-@E!8, 8,*'6-1 A0 006.7@} %+&@ ,$@<$@ f,:*("Equipo con mas partidos empatados::(-> 8,1-@j!8,!8,*}#'6-1 A` 006.7@'.%+&@27,$@;A<$@E,<,($Equipo con menos partidos empatados:<(-> }8, 1-@J!8, 8,*'6-1 A 006.7@NU%+&@Y^,$@bh<$@l,9)(!Equipo c}4on mas partidos perdidos:9(-> 8, 1-@8V!8,!8,*'6-1 AZn* ,006.7@ry%+&@}},$@ <$@Z,.;+(#Equipo con menos partidos perdidos:;(-> 8,41-@^!8, 8,*'6-1 A }> @006.7@"%+&@&+,$@/5<$@9,B5%(Equipo con mas goles a favor:5(-> 8,H1-@}7!8,!8,*'6-1 A@R T006.7@;B%+&@FK,$@OU<$@Y,V7'(Equipo con menos goles a fa}vor:7(-> 8,\1-@#Y!8, 8,*'6-1 A`f h006.7@]d%+&@hm,$@qw<$@{,}Aj7'(Equipo con mas goles en contra:7(-> 8,p1-@E!8,!8,*'6-1 Az |006.7@} %+&@ ,$@<$@ t,~9)(!Equipo con menos goles en contra:9(-> 8, F:B2y,@xA }C '@@'@"&@9*3 @P7h""** PRONOSTICO DE PARTIDOS ** (}-@lnt##(|}-#|-@'+@/[##(| PRONOSTICOS DE PARTIDOS |-@_c@gp##(|}-} -|--@"'-(:C-@GK@Op( EQUIPO 1 -@tX?}47@ %+&@,$@%<+&@).,$@2>%B:,,N68Da,-X A -@ei@"m9!(ESE EQ}UIPO NO PARTICIPA5-!A%29 -@6:@">F* (^ q* A p-@uy@}}!( EQUIPO 2 -@%4X?47@8?%+&@CH,$@LS<+&@W\,$@`n%B:,,N68@r,-X A`} -@@"E 9!(ESE EQUIPO NO PARTICIPA5-KOAS`9 -@dh@"lt* (} } &* AB6.7@*/%+85:,&@>C,$@GK<8QV,$@Ze,6.7@ip%+8@ty,&@}},$@ <8@,$@$,$-*.@27(;d&( PRONOSTICO  Vs .?-jn@r;68,-P:}88,,'+88,,%@&,,? 8-@*.@2R:( SIENDO LOCAL <-@VZ@^>( SIENDO LOCAL B-@} @ /D(EN CANCHA NEUTRALF-@037@;DH(8JU,-8@Yc,L-@0gk@oNJJ(P:8} ,%+88,,'+88 &,,%?*7,,,-8@;E,V-@0IM@QZXJJ(8`m,-P:8@q,%+88@} ,,'+88@,,%?',,,`-@+/@!3Ub(OTRO PRONOSTICO?dD#@Y]@aciuK:0)@y;}@ .D6.>:,j4SA `t @P2<~ @@D@HJP\(@`j-@nw.(@{} 8,>(@8,N(@*8,^(@.:8,n(@>J8,~(@Na8, @er$ @v@} v@#-@'0+@4F468,-A@J\J68,-W@`r`68,-m@vv68},-A@$68,-&@(>/68,-3 >@BhA$** ARREGLOS ** (}-@lnt( |}C -|-@@ =( | ARREGLOS |-@AE@IR( |\-f|u-@jn@rw1(}}C-@@#Ic(CUAL EQUIPO DESEA CORREGIR?u-@MQ@Ug-@kGG47@}%+&@ ,$@<+&@ %,$@)G%B:,,A` -@KO@"SC!(ESE EQUIPO NO PARTICIPA5-}A 9 C A -&*@.6C.(@ QCORRIGIENDO  \ aC(q -@}@ 0#( 'PARTIDOS JUGADOS+ A'068,-0#(G WPARTIDOS GANADOS[ q'068,- 0#(w PARTID}$OS EMPATADOS '068,-0#(* TPARTIDOS PERDIDOS '068,-0#(Z gGOLES A FAVORn '068,-}(0#( GOLES EN CONTRA! Y'068,-2!!8,"8,%8,%8,AP<-@]a@"e>5(DEBE HABER UN } ERROR1-@A$5 @,-*.@27,(H_B A`F0-@cg@"k0(CONTINUAR COR}RIGIENDO?HD#@@!'3K:0)@7@;@DD6.>:,P4SA Z 4N AP @P}Ud (f A`n** NUEVO CAMPEONATO **x 6.(}z[( |g-|=( | NUEVO CAM}PEONATO |[( |&-:|' 6.-@>B@F'("(Nombre del Campeonato"TB:,!@}))4.(MAXIMO 8 LETRASB-@-1A 5WF J(T A6-B:,%@[fO67@jn<@r,.D:.67}@<,.F67<%@7,..EQUO6.F @;?@CEKB(Cuantos equipos intervendranF$P:},)  0($ AP 6.1(@4b(.(Ingreso de los Equipos1(-@f(Equipo  }TB:,!@7.(NOMBRE MUY LARGOB-@;?AC_F J(T Ar(@cs @w6} 7<%@ ,..PTO @#'@+-3?=(@CM&-@QW$@[b9(@fhn= @}% D2:POCHO.BAS@#'@+-3?=(@CM&-@QW$@[b9(@fhn= @10 REM %*12 REM * ESTADISTICAS DEPORTIVAS *14 REM * Yero H Stucchi de Casanova *16 REM * }C 14-18 octubre,1988 H*18 REM * INFORMATICA CREATIVA #1 *20 REM f*22 REM A ALFONSO "POCH}KO" ROSPIGLIOSI, quien en vida fuera el mejor periodista deportivo del PERU.S YHSdeC.30 DIM A$(22),B$(13),B1$(13),B2$(1}3),N$(14),E$(300),K$(1),PITO$(1),ATARI$(8):E$=" ":E$(300)=E$:E$(2)=E$:E$=""40 DIM E(2),E1(2),R(2),PJ(18),PG(18),PE(18),PP(18}),GF(18),GC(18),PT(18),C(2)48 PITO$=""50 REM ** MENU PRINCIPAL **60 GRAPHICS 0:POKE 82,2:POKE 752,1:POSITION 8,262 ? "ES}TADISTICAS DEPORTIVAS":? "! !9-"70 POSITION 12,672 ? "por Yero Stucchi"80 IF N$<>"" THEN 16090 }POSITION 2,9:? "b";92 ? "El nombre del campeonato":? " para nuevo campeonato";94 ? "h";96 INPUT A$100 IF} A$="" THEN 1390110 IF LEN(A$)>8 THEN ? PITO$;"MAXIMO 8 LETRAS";:FOR T=1 TO 2000:NEXT T:GOTO 90118 LN=LEN(A$)+3120 N$(1,2)}="D:":N$(3,LN)=A$:N$(LN,LN+3)=".EQU"128 OPEN #1,4,0,N$130 INPUT #1,N:FOR T=1 TO N:INPUT #1,A$132 E$(1+(T-1)*13,1+(T-1)*13+}LEN(A$))=A$(11,LEN(A$))136 NEXT T:CLOSE #1138 E$(LEN(E$)+15)="."140 FOR T=1 TO LEN(E$)142 IF E$(T,T)=CHR$(0) THEN E$(T,T)}=CHR$(32)148 NEXT T150 N$(LN,LN+3)=".PTO"152 GOSUB 1170160 FOR JW=15 TO 0 STEP -0.25:FOR J=2 TO 0 STEP -1:SOUND 0,N+13-J,}10,JW:NEXT J:NEXT JW:POKE 752,1170 ATARI$="":POSITION 7,9:? "";ATARI$;172 ? "a) INGRESO DE RESULTADOS":? ATARI$;"b) TAB}LA DE POSICIONES":? ATARI$;"c) ESTADISTICAS GENERALES"180 ? ATARI$;"d) PRONOSTICOS DE PARTIDOS":? ATARI$;"e) ARREGLOS":? ATA}RI$;"f) NUEVO CAMPEONATO"190 OPEN #1,4,0,"K:":GET #1,K:CLOSE #1:K$=CHR$(K)192 IF K$="A" THEN 260200 IF K$="B" THEN 480210} IF K$="C" THEN 640220 IF K$="D" THEN 930230 IF K$="E" THEN 1190240 IF K$="F" THEN 1390250 ? ""256 GOTO 190260 REM **}k INGRESO DE RESULTADOS **270 ? "}":POSITION 8,2272 ? "| INGRESO DE RESULTADOS |"274 POSITION 8,3276 ? "}-}-!"280 POSITION 8,1282 ? ":-P"290 POSITION 8,5:? "f"300 POSITION 3,9302} ? "|%-;|"310 ? " | Equipo 1H YEquipo 2 |":? " |y-|"3}20 ? " |( 0|":? " |;-<|@-A|E-F|P-n|"328 POSITION 15,15330 ? "|r-s|w-|"340}G FOR Y=0 TO 1342 POSITION 4+Y*18,12344 INPUT B$346 FOR Q=1 TO N350 IF B$=E$(1+(Q-1)*13,Q*13) THEN E(Y)=Q:POSITION 17+4*Y,}14:INPUT A:R(Y)=A:NEXT Y:GOTO 390360 NEXT Q370 POSITION 9,20372 ? PITO$;"ESE EQUIPO NO PARTICIPA":FOR C=1 TO 500:NEXT C37}4 POSITION 9,20376 ? ". "380 GOTO 342390 IF R(0)>R(1) THEN PG(E(0))=PG(E(0))+1:PP(E(1))=PP(E(1))+140}0 IF R(0)=(PG(Y)*2+PE(Y)+(GF(Y)-GC(Y))/100) THEN PT(T)=PT(}T)+1550 IF (PG(T)*2+PE(T)+(GF(T)-GC(T))/100)<(PG(Y)*2+PE(Y)+(GF(Y)-GC(Y))/100) THEN PT(Y)=PT(Y)+1558 NEXT Y560 A$=E$(1+(T-}1)*13,T*13)570 A=13-PT(T)+N/2572 POSITION 1,A578 ? N-PT(T)580 POSITION 3,A582 ? A$584 POSITION 15,A586 ? PJ(T)588 POS}ITION 18,A590 ? PG(T)592 POSITION 21,A594 ? PE(T)596 POSITION 24,A598 ? PP(T)600 POSITION 27,A602 ? GF(T)604 POSITION} 30,A606 ? GC(T)608 POSITION 33,A610 ? PG(T)*2+PE(T)612 POSITION 36,A614 ? PG(T)-PP(T)616 NEXT T620 IF PEEK(53279)<>6 }YTHEN 620630 GOTO 50640 REM ** ESTADISTICAS GENERALES **650 ? "}":POSITION 8,0652 ? "|q-|"654 POSIT}hION 8,1656 ? "| ESTADISTICAS GENERALES |"660 POKE 82,1:POKE 83,38:POKE 752,1670 POSITION 8,2672 ? "|}-}---|":? "Equipo con mas partidos ganados:"680 FOR G=1 TO N:IF PG(M)G THEN M=G:GOTO 680690 NEXT G692 A$=E$(1+}(M-1)*13,M*13)694 ? ,A$;"-> ";PG(M)700 FOR G=1 TO N:IF PG(M)>PG(G) AND M<>G THEN M=G:GOTO 700710 NEXT G712 A$=E$(1+(M-1)*}G13,M*13)720 ? "Equipo con menos partidos ganados:":? ,A$;"-> ";PG(M)730 FOR G=1 TO N:IF PE(M)G THEN M=G:GOTO }730740 NEXT G742 A$=E$(1+(M-1)*13,M*13)750 ? "Equipo con mas partidos empatados:":? ,A$;"-> ";PE(M)760 FOR G=1 TO N:IF PE}(M)>PE(G) AND M<>G THEN M=G:GOTO 760770 NEXT G772 A$=E$(1+(M-1)*13,M*13)774 ? "Equipo con menos partidos empatados:":? ,A$ };"-> ";PE(M)780 FOR G=1 TO N:IF PP(M)G THEN M=G:GOTO 780790 NEXT G792 A$=E$(1+(M-1)*13,M*13)794 ? "Equipo c }on mas partidos perdidos:":? ,A$;"-> ";PP(M)800 FOR G=1 TO N:IF PP(M)>PP(G) AND M<>G THEN M=G:GOTO 800810 NEXT G812 A$=E$( }1+(M-1)*13,M*13)814 ? "Equipo con menos partidos perdidos:":? ,A$;"-> ";PP(M)820 FOR G=1 TO N:IF GF(M)G THEN }M=G:GOTO 820830 NEXT G832 A$=E$(1+(M-1)*13,M*13)834 ? "Equipo con mas goles a favor:":? ,A$;"-> ";GF(M)840 FOR G=1 TO N:I }F GF(M)>GF(G) AND M<>G THEN M=G:GOTO 840850 NEXT G852 A$=E$(1+(M-1)*13,M*13)854 ? "Equipo con menos goles a favor:":? ,A$;}"-> ";GF(M)860 FOR G=1 TO N:IF GC(M)G THEN M=G:GOTO 860870 NEXT G872 A$=E$(1+(M-1)*13,M*13)874 ? "Equipo co}n mas goles en contra:":? ,A$;"-> ";GC(M)880 FOR G=1 TO N:IF GC(M)>GC(G) AND M<>G THEN M=G:GOTO 880890 NEXT G892 A$=E$(1+(}M-1)*13,M*13)894 ? "Equipo con menos goles en contra:":? ,A$;"-> ";GC(M)900 REM 910 IF PEEK(53279)<>6 THEN 910920 POKE 82}^,2:POKE 83,39922 GOTO 50930 REM ** PRONOSTICO DE PARTIDOS **940 ? "}":POSITION 8,0942 ? "|w-|"944}K POSITION 8,1946 ? "| PRONOSTICOS DE PARTIDOS |"950 POSITION 8,2952 ? "|d-|"960 POSITION 0,6:? "}"970 POSITION 5,6972 ? "EQUIPO 1 ";:INPUT B1$980 FOR V=1 TO N982 IF B1$=E$(1+(V-1)*13,(V-1)*13+LEN(B1$))} THEN E(0)=V:GOTO 1010990 NEXT V992 POSITION 10,22994 ? PITO$;"ESE EQUIPO NO PARTICIPA":FOR Y=0 TO 200:NEXT Y1000 POSITIO}N 10,221002 ? "( ":GOTO 9701010 POSITION 5,81012 ? "EQUIPO 2 ";:INPUT B2$1020 FOR V=1 TO N1022 IF }B2$=E$(1+(V-1)*13,(V-1)*13+LEN(B2$)) THEN E(1)=V:GOTO 10601030 NEXT V1032 POSITION 10,221034 ? PITO$;"ESE EQUIPO NO PARTIC}7IPA":FOR Y=0 TO 200:NEXT Y1040 POSITION 10,221042 ? "O ":GOTO 10101050 A$=E$(1+(E(0)-1)*13,E(0)*13):}C2B$=E$(1+(E(1)-1)*13,E(1)*13)1060 POSITION 0,6:? "6";1062 ? "PRONOSTICO ";B1$;" Vs ";B2$1070 FOR O=0 TO 1:C(O)=INT(GF(E}(O))/(GC(E(O))+1)):NEXT O1080 POSITION 4,111082 ? "SIENDO LOCAL ";B1$1084 POSITION 4,131086 ? "SIENDO LOCAL ";B2$1090 PO}SITION 4,151092 ? "EN CANCHA NEUTRAL"1094 POSITION 30,151096 ? C(0);"-";C(1)1100 POSITION 30,111102 ? INT(C(0)+(GF(E(0))}/(PJ(E(0))+0.1)));"-";C(1)1110 POSITION 30,131112 ? C(0);"-";INT(C(1)+(GF(E(1))/(PJ(E(1))+0.1)))1120 POSITION 10,211122 ?} "OTRO PRONOSTICO?"1124 OPEN #1,4,0,"K:":GET #1,K:CLOSE #1:K$=CHR$(K)1130 IF K$="S" THEN 9601140 GOTO 501150 OPEN #1,8,0,}N$1152 ? #1,N:FOR T=1 TO N:? #1,PJ(T):? #1,PG(T):? #1,PE(T):? #1,PP(T):? #1,GF(T):? #1,GC(T):NEXT T1160 CLOSE #1:RETURN 11}EE70 OPEN #1,4,0,N$1172 INPUT #1,N:FOR T=1 TO N:INPUT #1,A:PJ(T)=A:INPUT #1,A:PG(T)=A:INPUT #1,A:PE(T)=A:INPUT #1,A:PP(T)=A11}80 INPUT #1,A:GF(T)=A:INPUT #1,A:GC(T)=A:NEXT T:CLOSE #1:RETURN 1190 REM ** ARREGLOS **1200 ? "}":POSITION 14,01202 ? "|-- }-P|"1204 POSITION 14,11206 ? "| ARREGLOS |"1208 POSITION 14,21210 ? "|Z-r|"1220 POSITION 2,3:? "}!} ":POSITION 6,7:? "CUAL EQUIPO DESEA CORREGIR?":POSITION 6,81222 INPUT B$1224 FOR A=1 TO N1230 IF B$=E$(1+(A-1)"}*13,(A-1)*13+LEN(B$)) THEN 12601240 NEXT A1250 POSITION 8,221252 ? PITO$;"ESE EQUIPO NO PARTICIPA":FOR O=0 TO 300:NEXT O:G#}#OTO 12201260 POSITION 0,71262 ? "- ?CORRIGIENDO ";B$;"J O":? "_ "1270 POSITION 2,121272 ? " $} PARTIDOS JUGADOS 4";:INPUT P:PJ(A)=P1280 ? ": JPARTIDOS GANADOSN i";:INPUT P:PG(A)=P1290 ? "o PARTIDOS EMPAT%}!ADOS ";:INPUT P:PE(A)=P1300 ? "' VPARTIDOS PERDIDOS ";:INPUT P:PP(A)=P1310 ? "\ iGOLES A FAVORp ";:INPUT P:GF&}(A)=P1320 ? " #GOLES EN CONTRA( ";:INPUT P:GC(A)=P1330 IF PJ(A)=PG(A)+PE(A)+PP(A) THEN 13501340 POSITION 8,221342 '}I? PITO$;"DEBE HABER UN ERROR":FOR O=1 TO 200:NEXT O1344 POSITION 0,7:? "Z"1346 GOTO 12601350 POSITION 6,2(}2:? "CONTINUAR CORRIGIENDO?"1352 OPEN #1,4,0,"K:":GET #1,K:CLOSE #1:K$=CHR$(K)1360 IF K$="S" THEN 12201370 IF K$="N" THEN )}sGOSUB 1150:GOTO 501380 ? ""1382 GOTO 13601390 REM ** NUEVO CAMPEONATO **1400 ATARI$="":? "}";1402 ? " |}-*}-<|":? ATARI$;" | NUEVO CAMPEONATO |":? ATARI$;" |N-|"1410 ATARI$="":POSITION 2,6:? "";1412 +}? "Nombre del Campeonato";:INPUT A$1420 IF LEN(A$)>8 OR A$="" THEN ? PITO$;"MAXIMO 8 LETRAS";:FOR T=1 TO 2000:NEXT T:? ATARI,}$:GOTO 14101430 LN=LEN(A$)+31432 N$(1,2)="D:":N$(3,LN)=A$:N$(LN,LN+3)=".EQU":ATARI$=""1440 OPEN #1,8,0,N$:? "Cuantos equ-}ipos intervendran";:INPUT N1450 IF N<>INT(N) OR N<0 THEN ? ATARI$:GOTO 14501452 ATARI$=""1460 ? #1,N:? :? "Ingreso de lo.}s Equipos":? 1470 FOR T=1 TO N1472 ? "Equipo ";T;" ";1480 INPUT A$:IF LEN(A$)>13 THEN ? PITO$;"NOMBRE MUY LARGO";:FOR G=1 /}GTO 200:NEXT G:? ATARI$:GOTO 14721490 ? #1,A$:NEXT T1500 CLOSE #11502 N$(LN,LN+3)=".PTO"1504 OPEN #1,8,0,N$1506 ? #1,N:FO0}0R T=1 TO N*6:? #1,0:NEXT T1508 CLOSE #1:RUN NEXT T1500 CLOSE #11502 N$(LN,LN+3)=".PTO"1504 OPEN #1,8,0,N$1506 ? #1,N:FO.DB BN EM JE HB DC EP BC IJ EK MI MB GC KB KP ON NN MI PL GE AC HD GE NB HL 2}HF CM DB CP HK CE DA LJ OB BI JF HO NF DN CD BO BO CC FD FH DD HA MK NO LM 3}KJ IH KE IE ML KA LA KN FC AK PF BI OI JB DE EP CJ NG GK NK CD GN HH GN FF 4}DO NF CL DN DE LF DH DL BB OC GJ JP MD PI PG BK DC FM EB AN DK PC MO LB KH 5}LC ED OJ CB PA BJ OF BL OM CK OB AJ NP AK OG ND OE II DA BO DH DN NO FA KJ 6}DD GB KI IA IG CF OK MN HK BO OD NC HK CB OG ND IC CE OJ LK JK CG OL IC IO 7}BP OE FM GK CB OG ED HA CD OI CG GM CF OK BP HC CH OM AC HN CC PO DL CH OA 8}HP KL HA KJ IA PH KM MF DN BN DH AK JM CH FJ NA OJ FP EH FJ CM LO CL HP HJ 9}DG EJ PM AA EN AG FC AF JL DI HP CI LK CL LN CJ NM GL GF GE KL KI KM KJ AD :}GC LG DD AC PO KD AD AB DB LN FA OP EH AF OF NB GA AA AK PG JG FF LM FF IP ;}AF GC OK NA OI GO JA OG GI NB MN GL BE CD FE JK JC JA LA EG JK FL GG AN JH <}LP JA OL KO AD MH JA OG GI NB MN GL BE CD FE JK JC JA LA EG JK FL GG AN JH D45AXPSTRCONDICBUFBUPSECTONBYTBYTBYTETEMTERKMSU[]delmtu|>}   '( /0 8;%%Z*%%* PRINT SHOP/COMPANION XMM801?} *%%* !por William Moloche& R*%%* INFORMATICA CREATIVA #1 *%%q* t1;@@} ,;@,;@-,;A(,B67@1O,.S67A(,.k67@SZ,.7@^,t6-C:,3 (} (*( PA}GRINT SHOP PARA XMM801-(0(3(AVA(.+(#Escoja el disco que desee alterar :.(2(1) PRINT SHOP.<$!B}B((2) PRINT SHOP COMPANION.$(A @,9F A@=HPALeAZ ( @eidN 6.6-APC} "6-AV.6-A:6-AD#A0N A nN6. COMPANION  6-@Z,6-A86-A%D6-AD}N#A0 x--@@"d")67<,.>:,- }?('(Especifique ahora cmo desea<(i alterarlo :?(!!(E}X1) MODIFICAR PARA XMM801# (2) RESTAURAR PARA EPSON#( Ap A@\AA (F}% AE6. modificado A)&6. restaurado6- 6-&6-~(Ponga el PRINT SHOP G($en la unidaG} d 1 y presione una tecla.g@$(@,.4@K:t)@DL~ APZ-@^-7A$<A(,4A0H}*'(Su disco no es el PRINT SHOP *7<,4>:,AP+((Su disco no necesita ser .+67<,.>:I}<, A(Ya est listo.Ap@@[ A Ap@_p_Ah@It'AiJ}@ >AsP:'AV,_Ar&P:'AV,$AV;$Ax&P:'AV,$AV;AyP:'AV,K}26-?:C:hLS,,#6-F:Aq,/l A(2$(ERROR EN DISCO -l 221,139,81,24,39 3,142,0,91,226L}D2:PSXMM801.BAS#6-F:Aq,/l A(2$(ERROR EN DISCO -l 221,139,81,24,39 3,142,0,91,2260 REM %*S2 REM * PRINT SHOP/COMPANION XMM801 *4 REM *X kpor William Molochep *6 REM * IN}!NFORMATICA CREATIVA #1 *8 REM @*10 DIM PS$(10),TR$(10),CONDIC$(5),BUF$(128):BUF$(1)="":BUF$O}(128)="":BUF$(2)=BUF$(1):BUF=ADR(BUF$)20 ? "}":? :? " PRINT SHOP PARA XMM801":? :? :? 30 POKE 756,20440 ? "Escoja el diP}sco que desee alterar :":? 50 ? "1) PRINT SHOP."60 ? "2) PRINT SHOP COMPANION.":? 65 TRAP 9070 INPUT PS:TRAP 400080 ONQ} PS GOTO 100,11090 ? "";:GOTO 65100 PS$="":SECTOR=150:NBYTE=100:BYTE=106:BYTEO=112:RESTORE 3010:GOTO 120110 PS$="COMPANIR}ON ":SECTOR=83:NBYTE=110:BYTE=125:BYTEO=103:RESTORE 3020120 FOR I=1 TO 5:READ TEMP:CONDIC$(I,I)=CHR$(TEMP):NEXT I125 ? :? "S}C!Especifique ahora cmo desea":? "& alterarlo :":? 130 ? "1) MODIFICAR PARA XMM801"140 ? "2) RESTAURAR PARA EPSON":? 1T}T45 TRAP 170150 INPUT TR:TRAP 4000160 ON TR GOTO 180,190170 ? "";:GOTO 145180 TR$="modificado":GOTO 200190 TR$="restaurU}ado":TEMP=BYTE:BYTE=BYTEO:BYTEO=TEMP200 ? "Ponga el PRINT SHOP ";PS$:? "en la unidad 1 y presione una tecla.":OPEN #1,4,0,"KV}:":GET #1,TEMP:GOSUB 1000210 CLOSE #1:IF BUF$(124,128)=CONDIC$ THEN 230220 ? "Su disco no es el PRINT SHOP ";PS$:END 230 IW}F BUF$(NBYTE,NBYTE)=CHR$(BYTEO) THEN 250240 ? "Su disco no necesita ser ";TR$;".";:END 250 BUF$(NBYTE,NBYTE)=CHR$(BYTE)260X} GOSUB 1010270 ? "Ya est listo."280 END 1000 POKE 770,82:GOTO 10201010 POKE 770,871020 POKE 768,49:POKE 769,1:POKE 773,Y}INT(BUF/256):POKE 772,BUF-INT(BUF/256)*2561030 POKE 778,SECTOR-INT(SECTOR/256)*256:POKE 779,INT(SECTOR/256)1040 ERR=USR(ADRZ}("hLS")):ERR=PEEK(771):IF ERR<128 THEN RETURN 1050 ? "ERROR EN DISCO -";ERR:END 3010 DATA 221,139,81,24,393020 DATA 3,142[},0,91,226ERR=PEEK(771):IF ERR<128 THEN RETURN 1050 ? "ERROR EN DISCO -";ERR:END 3010 DATA 221,139,81,24,393020 DATA 3,142 CK IP FD DO DC NM PI PG AO LG NF AL MP DA LN DI KP DJ JH CN MN GJ AB HC BL ]}PI FO LM KL FB HO GE NM NK HL HB FK CK KC HF JK DK PL IN CN MN GJ AB HC BL _ZLM5KNOMBREXRNOMRECORKCHSEKKPYNPVETRAPOCLLFCRACROAPcekm@su|_} '( /0 78 ?@ GH OPWX_`ghopwx}`} "#*+23:;BCKN%%m*t%%*x ̠лa}̠ A*%%* por: Mario Caillahuz A. *%%*E YINFORMATICA CREATIVA^ e*%%}*b}* B6-@9 ;,9,;,*6.CPU66-A=`BARP$6-+F:A,&@du,$AV06-@yDc}@ K:P6-@8^ AF:A,&@<v5BByF:A,L6-F:A,$AV^AY@bzd}< +@  A#-@ B<(espere un momentoL-@FJ@Ng&( por favor2-@kL(POL PROFESe}CIONAL 89)-@)(MARIO CAILLAHUZ A.(B2wA#2%-Ah!%%A$% <6-Awf}f,6-6-!6-'6--6-<68,-@A08Q68@<P,-A `68,-@ATf6-l6-r6-y6-66-PEAg}!A@%3A@)7EAY@b;Z> #B6-6-BsD--A:%F:%,> d'h}-@ ,A"#%' x0 AP07(@;E}& AIO0 A@Sd}K -#Bhr#-@v'"Ci}8%%A$%AV$%G K ~E #B-@<\"A%%A$%A%&@`E AV'AVj}  A 5-@@"/(.-@37@;P5(NR:, @T`* "6-@dj4-@ nr@"vD(@k}%&N A !U#R:,!@%.*R:, @2B* )6-;-@ FJ@"NUK(@Yd'(U A hA`;l}368,-8,% B2P8,/8,!A;6-@7E*8, @EIjB2H*B2I AnC68,-8,m}%P:,$568@,-8@0,%P:,$C6-%> 4B.8, @8Fm)8,!A&6-6.6-%:+8@qv, @8z)8n}@A,!A26-6:6-%'B2H8,'B2I8@EQ,!@UYA]6-&?P$+!6, Ao}k0(>:A%,ZAA3!A3AAEA A8WA@goZ$--@p}@ --( %-@1V%( / -@ Z^@"b%(+,/ A@Q-q}@()( ;-@ ,0@"4SE()*K6-Q6.)-@W[@ _)( F:Br} 2y,"AL APLp (}6-6-6-$6-368,-@APXH68@\p,-A W68,-@At]6-c6s}1-i6-p6-6V9B2HB2I% AP5;/ A@?l9 A) -J38,!A%$@p*8, At}%$@ 6'J A &$@!0M #2A48@<@@DN16-%?`R;2C6-%M A 0 6-%u}!@ B0 A bB2G%@A4?>68,-@ACV%Ah$P:H:,$@Zk,D"X6-N:Ao&8,,b A v}6-N:A&8@(,,W-@,2%@6A'(>:@4EN,=-ARfA0S2@jn@rW 8 2w}C !-@%@-*(!86-%A1!B06-$& (}-&( &-@x}xF&(  - ( -@JP AET_-@ ci AEmx-@|y} AE !H -(-@%=,(puntaje:8-@A\H(fallas :%-@`%(record mundial#-z}@ @%#( [-@ )-@"1A(%&1-@EI@MV?(!Z a!Q-@ ei@#m[(#$${}  (-4 $2 (}-@8[2(deme sus iniciales-@_c@g/ -)(|}&>:,+67<,.>:,/ #-@*40@8# $W'60,126,126,60'!!231,129,129,0,0,129,129,23}}1$'0,126,66,66,66,66,126,0.'//4,2,3,12,48,64,64,128,32,64,96,48,8,4,2,28'330,7,31,15,15,15,6,6,1,193,243,166,28,24,16~},16B';;128,131,207,101,56,24,8,8,0,224,248,240,240,112,96,32L'557,31,12,28,29,8,9,8,192,240,32,80,80,16,208,144V'667,31}Y,12,29,28,9,11,8,224,240,32,80,16,144,208,16t'""224,160,224,128,184,186,58,3 N%-@]%( *N-@}(4N;-@#\)( ;B2PA(>N-@`j-@nHN5A}$%052$%@"@&=RN,  ACX,6-?:B,0u""t-2uppDES}DE LA LINEA 2000 HASTA LA! ALINEA 4040 DE ESTE PROGRAMA, LOSI CODIGOS DE REVISION ӛ4unnEN EL NUMERO 1 D} E LA REVISTA 4ESTUVIERON FALLADOS POR UN ERROR< EN LA IMPRESION DEL LISTADO.6u__EN DICHO RANGO DE LINEAS, LA } %SECUENCIA DE CODIGOS CORRECTA ES- ]LA SIGUIENTE:8u;;BH BE NG MI ME PD FH IF EA JOd KF ON NN BC JM KB:uqqEL} ERROR FUE LA INCLUSION DE" AALGUNAS LINEAS CORRESPONDIENTESJ AL PROGRAMA DE REVISION EN ESTE NO SE SOSPECHO DE FALLAS EN LOS>ullPROPIOS CODIGOS. COMO DICE}N, )SON GAJES DEL OFICIO. SORPRESAS2 [TE DA LA VIDA, CAMARADA...@uJJDISCULPAS} } IVAN A. ANTEZANA Q.Bu##<-[ D2:POL.BASJJDISCULPAS} OC0 REM %*-2 REM *1 F̠̠J y*4 REM * por: Mario Caillahuz A. *6 REM *} }INFORMATICA CREATIVA !*8 REM @*10 K3=3:DIM NOMBRE$(K3),X(K3),RNOM$(K3):RNOM$="CPU":RECORD=1}000:POKE 752,K016 CHSET=(PEEK(106)-8)*256:K1=1:OPEN #K1,4,K0,"K:":K6=620 POKE 106,PEEK(106)-8:POKE 54279,PEEK(106):PM=PEEK(}106)*256:POKE 559,6225 GRAPHICS 17:GOSUB 500:POSITION K1,7:? #K6;"espere un momento"26 POSITION 5,8:? #K6;"por favor":POSIT}ION K1,12:? #K6;"POL PROFESIONAL 89"27 POSITION K1,13:? #K6;"MARIO CAILLAHUZ A."40 POKE 53277,K3:POKE 623,K150 FOR I=K1 TO} 768:POKE I+PM+1024,K0:NEXT I60 Y1=177:N0=K0:PT=K0:VEL=K1:TRAB=K0:F=K0:X(K1)=41:X(2)=209:X(K3)=41:POL=K0:CH=K0:L1=K1:L2=-K1:}FA=K080 POKE 704,K3:POKE 705,18:POKE 706,18:POKE 559,6290 RESTORE 10010:CRAM=CHSET:CROM=57344:FOR N=K0 TO 512:POKE CRAM+N,P}EEK(CROM+N):NEXT N100 FOR N=8 TO 103:READ A:POKE CRAM+N,A:NEXT N120 GOSUB 5000:? #6;"}":GOSUB 500:GOSUB 4000125 FOR AS=K0 }TO K1:RESTORE 10:FOR I=K1 TO 4:READ A:POKE I+PM+1024+256*AS+Y1,A:NEXT I:NEXT AS126 RESTORE 10100:FOR I=K1 TO 8:READ A:POK}E I+PM+1024+512+Y1-2,A:NEXT I128 POKE 756,CHSET/256129 GOSUB 500130 POSITION 10,7:? #K6;PT:POSITION 10,8:? #K6;F140 IF ST}ICK(K0)<8 AND TRAB8 AND STICK(K0)<13 AND TRABK1 THEN 160152 X(K3)=X(K3)+K1:POKE 53250,X(K3):IF X(K3)>212 THEN F=11153 IF }X(K3)<45 THEN POKE 53248,K0:POKE 53249,K0154 GOTO 200160 X(K1)=X(K1)+INT(VEL)*L1:X(2)=X(2)+INT(VEL)*L2:VEL=VEL+2.0E-03170 }IF X(K1)<38 OR X(K1)>212 THEN L1=-L1:F=F+K1180 IF X(2)<38 OR X(2)>212 THEN L2=-L2:F=F+K1190 POKE 53248,X(K1):POKE 53249,X(2})200 IF F>10 THEN 1000210 TRAB=TRAB-0.025*(TRAB>-K1)220 GOTO 130400 ? #K6;CHR$(125)500 POKE 712,133:POKE 708,K0:POKE 710},195:POKE 709,138:POKE 711,67:RETURN 1000 POSITION 2,14:? #K6;" "1010 POSITION K3,15:? #K6;" "}1020 IF PT<=RECORD THEN POSITION 9,22:? #K6;"+,":GOTO 10401030 POSITION K1,16:? #K6;" ":POSITION 9,22:? #K6};")*":RECORD=PT:RNOM$=NOMBRE$1040 POSITION 4,20:? #K6;" "1050 IF PEEK(53279)=K6 THEN 11001055 GOTO 10501100 ? }G#K6;"}":F=K0:PT=K0:VEL=K1:TRAB=K0:X(K1)=41:X(2)=209:X(K3)=41:POL=K0:CH=K0:L1=K1:L2=-K11110 POKE 53248,K0:POKE 53249,K0:GOSUB} 5000:GOSUB 4000:GOTO 1292000 FOR AS=K1 TO K32005 IF X(AS)>102+PS*8 AND X(AS)<106+PS*8 THEN POP :GOTO 2015-CH*22010 NEXT}i AS:SOUND K1,200,14,15:TRAB=TRAB+0.6:SOUND K1,K0,K0,K0:FA=FA+K1:GOTO 20302013 POL=POL+K1:IF POL>5 THEN 2m02014 GOTO 2020}2015 POKE 53247+AS,41:X(AS)=41+168*INT(RND(K0)*2):IF AS=K1 THEN L1=SGN(100-X(K1)):GOTO 20202017 L2=SGN(100-X(2))2020 POSITI}ON 7+PS,18:? #K6;CHR$(34):FOR AS=100 TO 130 STEP K3:SOUND K1,AS,12,15:NEXT AS2021 SOUND K1,K0,K0,K0:POSITION 7+PS,18:? #K6;"}!":PT=PT+1002022 IF PT>13000 THEN CH=K12030 RETURN 4000 ? #K6;"}":POSITION K1,K1:? #K6;" "4010 POSITION K1,2:?} #K6;" "4020 POSITION K1,K3:? #K6;" "4030 POSITION K1,5:GOSUB 45004040 POSITION K1,9:GOSUB 450}04050 POSITION K1,12:GOSUB 45004060 POSITION K1,K6:? #K6;NOMBRE$:POSITION K1,7:? #K6;"puntaje:":POSITION K1,8:? #K6;"fallas} :"4070 POSITION K1,10:? #K6;"record mundial"4080 POSITION 5,11:? #K6;RNOM$;" ";RECORD4090 POSITION 9,22:? #K6;"%&":POSIT}ION 7,18:? #K6;"! J!":POSITION 9,23:? #K6;"#$"4100 RETURN 4500 ? #K6;"\-":RETURN 5000 ? #K6;"}":POSITION} K1,5:? #K6;"deme sus iniciales"5010 POSITION 5,75020 FOR AS=K1 TO K3:GET #K1,K:? #K6;CHR$(K);:NOMBRE$(AS,AS)=CHR$(K):NEXT }NAS5030 FOR AS=K0 TO 16:SETCOLOR K0,AS,7:NEXT AS5040 RETURN 6999 CLOSE #K11R0 DATA 60,126,126,6010010 DATA 231,129,129,}0,0,129,129,23110020 DATA 0,126,66,66,66,66,126,010030 DATA 4,2,3,12,48,64,64,128,32,64,96,48,8,4,2,210040 DATA 0,7,31,15,}15,15,6,6,1,193,243,166,28,24,16,1610050 DATA 128,131,207,101,56,24,8,8,0,224,248,240,240,112,96,3210060 DATA 7,31,12,28,29},8,9,8,192,240,32,80,80,16,208,14410070 DATA 7,31,12,29,28,9,11,8,224,240,32,80,16,144,208,1610100 DATA 224,160,224,128,184} ,186,58,320 POSITION K3,14:? #K6;" "20010 POSITION K6,15:? #K6;""20020 POSITION K1,17:? #K6;" 快}G ":POKE 53250,12820030 FOR AS=K0 TO 15:FOR I=K0 TO 1520040L POKE 706,AS*I+I:SETCOLOR K3,AS,I:SOUND K0,AS*I+I,}514,820050 NEXT I:NEXT AS:POKE 580,0:I=USR(58484)390> REM Z-30002 REM DESDE LA LINEA 2000 HAST}CA LA ,LINEA 4040 DE ESTE PROGRAMA, LOS4 yCODIGOS DE REVISION ӛ30004 REM EN EL NUMERO 1 DE LA REVISTA} } $ESTUVIERON FALLADOS POR UN ERROR, oEN LA IMPRESION DEL LISTADO.30006 REM EN DICHO RANGO DE LINEAS, LAw SECUEN}CIA DE CODIGOS CORRECTA ES" WLA SIGUIENTE:30008 REM BH BE NG MI ME PD FH IF EA JO^ KF ON NN BC JM KB30010 REM EL }ERROR FUE LA INCLUSION DE! @ALGUNAS LINEAS CORRESPONDIENTESI AL PROGRAMA DE REVISION EN ESTE30012 REM LISTADO. E}L ERROR SE DETECTO :EN LAS PRUEBAS DE IMPRENTA, PEROB NO SE SOSPECHO DE FALLAS EN LOS30014 REM PROPIOS CODIGOS. } COMO DICEN, 2SON GAJES DEL OFICIO. SORPRESAS; iTE DA LA VIDA, CAMARADA...30016 REM DISCULPAS} } 2IVAN A. ANTEZANA Q.30018 REM O-iDA...30016 REM DISCULPAS} PCK FC PL OK DC GP PO PL PP HF AK PB GL NB LB LJ EC HD KN LG NL LB NL GK HE õ}GN FM BG GF AL MJ DI JH PG MP GB JM CC OO FN MG KB KP IE MK LN MC BH BE NG ö}MI ME PD FH IF EA JO KF ON NN BC JM KB MM NK EO DF KH KF GB HD ND CJ FF KJ ÷}PG IN DM ID PD KO DK CC EI HO PM ID BA FM JL AG DF KH KF GB HD ND CJ FF KJ P&Y<SCAFONSBYTADRADAD0189@AHIPQXY`ail%%}*׹}*:%%* REDEFINICION DEL CURSOR *%%*? Rpor William MolocheW *%%* INFORMATICA CREATIVA #2 *׺}%%%*L 6-@:@,6-A$M (}-RTZk"(>:,D6-F:@o,%AV$F:@׻},M6-F:, #BB@AS(4-A6A"!% 46-?:A6,2 #B`<%-B'6׼}qB("!% F #BP%-BwB"!% ZB'B'ad<6-$@u%$AV׽},6-P:'AV,<6-&$AVnNB'qB'r'B'y3B'?B'KB'N'',,׾}104,120,169,0,141,14,212,120,174,1,211'<<202,142,1,211,169,0,160,7,153,0,224,136,16,250,169,192$'99133,1,160,0,132,0,232׿}G,142,1,211,177,0,202,142,1,211.'>>145,0,200,208,241,230,1,165,1,240,10,201,208,208,231,1698'//216,133,1,208,225,169,64,14}1,14,212,88,96L'Q'((162,0,142,33,206,41,127,141,32,206V'<<162,3,14,32,206,46,33,206,202,208,247,173,33,206,9,224`'==}141,33,206,162,7,189,255,255,157,0,225,202,16,247,162,7j'<<189,0,225,29,63,206,157,0,225,202,16,244,165,93,41,128t'9,3}2,76,233,241v'(("X" DATA 0,195,102,60,60,102,195,0x'1,1,1,1,1,1,1,255~''234,234,32,0,206D2:RDCURSOR.BA}S76,233,241v'(("X" DATA 0,195,102,60,60,102,195,0x'1,1,1,1,1,1,1,255~''234,234,32,0,206D2:RDCURSOR.BA0 REM %*S2 REM * REDEFINICION DEL CURSOR *4 REM *X kpor William Molochep *6 REM * I}!NFORMATICA CREATIVA #2 *8 REM @*10 CAR=ASC("@"):FONT=22420 ? "}":POSITION 0,0:? CHR$(CAR):S}1C=PEEK(88)+256*PEEK(89):CAR=PEEK(SC)30 RESTORE 150:POKE 54017,25340 FOR I=1536 TO 1606:READ BYTE:POKE I,BYTE:NEXT I:I=USR}(1536)50 RESTORE 1006060 FOR I=52736 TO 52806:READ BYTE:POKE I,BYTE:NEXT I70 RESTORE 1011080 FOR I=61977 TO 61981:READ BY}TE:POKE I,BYTE:NEXT I90 POKE 52795,CAR:POKE 52761,FONT100 ADRS=CAR*8+FONT*256:ADH=INT(ADRS/256):ADL=ADRS-ADH*256110 POKE 5}Z2771,ADL:POKE 52772,ADH:POKE 52779,ADL:POKE 52780,ADH:POKE 52785,ADL:POKE 52786,ADH:END 1^0 REM 10005 DATA 104,120,169,0,}141,14,212,120,174,1,21110010 DATA 202,142,1,211,169,0,160,7,153,0,224,136,16,250,169,19210020 DATA 133,1,160,0,132,0,232,1}42,1,211,177,0,202,142,1,21110030 DATA 145,0,200,208,241,230,1,165,1,240,10,201,208,208,231,16910040 DATA 216,133,1,208,225},169,64,141,14,212,88,9610060 REM 10065 DATA 162,0,142,33,206,41,127,141,32,20610070 DATA 162,3,14,32,206,46,33,206,202,20}8,247,173,33,206,9,22410080 DATA 141,33,206,162,7,189,255,255,157,0,225,202,16,247,162,710090 DATA 189,0,225,29,63,206,157,}0,225,202,16,244,165,93,41,12810100 DATA 9,32,76,233,24110102 REM "X" DATA 0,195,102,60,60,102,195,010104 DATA 1,1,1,1,1,1},1,25510110 REM 10115 DATA 234,234,32,0,206,76,233,24110102 REM "X" DATA 0,195,102,60,60,102,195,010104 DATA 1,1,1,1,1,1.CK IM FD DP DC GG GD KI EI IA OA HO ON HH AC PJ NF EE GD KI LG AA NL JC HB }GLD IC PG FC DH NH CB KI EI IA OA HO ON HH AC PJ NF EE GD KI LG AA NL JC HB #0600 68 PLA# MEntrada desde BASIC, limpiar la pila.0601Q S78^ aSEIl Entrada global, d}eja la pila intacta. 0602 #A9 00+ 8LDA #$000604< D8D 0E D4I WSTA $D40E0607[ ]78h kSEIv Descone}ctar interrupciones.0608 %AE 01 D3* :LDX $D301060B> @CAK VDEX 060CZ b8E 01 D3g STX $D301 Conmutar} el banco de RAM $C000-$F!060F% *A9 002 ALDA #$000611E JA0 07R aLDY #$070613e m99 00 E0r STA $E000},Y0616 88 #DEY 0617' ,10 FA4 gBPL $0613 Limpiar el 1er caracter del font0619k pA9 C0x LDA } #$C0061B 85 01 )STA $01061D- 2A0 00: ILDY #$00061FM R84 00Z cSTY $00h Prepara puntero0621 } E8 INX 0622 '8E 01 D3, LSTX $D301 Conmuta a ROM0625P UB1 00] LDA ($00),Y Lee un byte0627 } CA DEX /Conmuta a RAM06283 ;8E 01 D3@ PSTX $D301062BT Y91 00a STA ($00),Y Escribe ese by}te062D C8 #INY 062E' ,D0 F14 DBNE $06210630H ME6 01U cINC $010632g lA5 01t LDA $01}0634 F0 0A DBEQ $0640 Copia toda la ROM en la RAM0636H MC9 D0U dCMP #$D00638h mD0 E7u BNE $0}-621 Saltando los registros de hardware063A1 6A9 D8> MLDA #$D8063CQ V85 01^ lSTA $01063Ep uD0 E1} }BNE $06210640 A9 40! +LDA #$40/ RTermin, habilita de nuevo las0642V ^8D 0E D4c STA $D40E interrupcion}es0645 58 #CLI 0646' )604 7RTSB RegresaEsta rutina cumple la funcin de visualizar el nue}vo cursor.CE00 A2 00! 0LDX #$00CE024 <8E 21 CEA QSTX $CE21CE05U Z29 7Fb qAND #$7FCE07u 8D 20 CE} STA $CE20CE0A A2 03& 5LDX #$03CE0C9 A0E 20 CEF VASL $CE20CE0FZ b2E 21 CEg wROL $CE21CE12{ CA} DEX BObtiene la direccin dentro del fontCE13F KD0 F7S BNE $CE0C del caracter bajo el cursor}CE15 AD 21 CE %LDA $CE21CE18) .09 E06 EORA #$E0CE1AI Q8D 21 CEV STA $CE21 Ubica el font en s CE1D }C A2 07 LDX #$07CE1F# +BD 00 E00 BLDA $E000,XCE22F N9D 00 E1S eSTA $E100,XCE25i kCAv DEX }CE26 10 F7 PBPL $CE1F Copia ese caracter en el caracter-cursorCE28T YA2 07a pLDX #$07CE2At BD 00 E1 } LDA $E100,XCE2D "1D 3F CE' 9ORA $CE3F,XCE30= E9D 00 E1J \STA $E100,XCE33` bCAm pDEX{ So}"breescribe la descripcin delCE34& +10 F43 bBPL $CE2A cursor en el caracter-cursorCE36f kA5 5Ds LDA $5D }E 'El cdigo de pantalla del caracterJ ^bajo el cursor.CE38b g29 80o yAND #$80} }Si era inverso, conserva esa@ Scaracter sticaCE3AW \09 20d nORA #$20r mas el cara}cter-cursorCE3C 4C E9 F1! MJMP $F1E9 y colcalo en la pantallaCE3FQ \00 C3 66 3Cl Estos ocho bytes }son la descripcin delCE40 *3C 66 C3 00: nuevo cursor.Esta es la parte del SO que sufre modificacin.F20}B 20 8F F1 OJSR $F18F Este es el cdigo de pantalla del caracterF20ES X85 5D` iSTA $5Dn bajo el cursor}F210 A6 57 LDX $57# JSi no es GRAPHICS 0, no hay cursorF212N SD0 0A[ kBNE $F21EF214o wAE F0 02| L}=DX $02F0 Si esta direccin (752) no es cero, tampocoF217A FD0 05N _BNE $F21EF219c eEAp NOP F21A } EA NOP F21B &20 00 CE+ JJSR $CE00 A mi rutinaF21EN SA4 4C[ iLDY $4CF220m u4C 26 F2z JMP} $F226F223 4C FC C8 .JMP $C8FCF2262 7A9 01? NLDA #$01F228R W85 4C_ mSTA $4CF22Aq yAD FB 02} } LDA $02FBF22D 60" fRTS Esta es la misma parte del SO pero sin modificacionesF20Bj r20 8F F1w JSR } $F18FF20E 85 5D )STA $5DF210- 2A6 57: HLDX $57F212L QD0 0AY iBNE $F21EF214m uAE F0 02z LDX} $02F0F217 D0 05 /BNE $F21EF2193 849 80@ JEOR #$80N Ponlo a inverso, si era normal o viceversa.F21}B 20 E9 F1 =JSR $F1E9 Colocalo en la pantallaF21EA FA4 4CN \LDY $4CF220` h4C 26 F2m JMP $F226F223} 4C FC C8 !JMP $C8FCF226% *A9 012 ALDA #$01F228E J85 4CR `STA $4CF22Ad lAD FB 02q LDA $02FB}CF22D 60 !RTS F226% *A9 012 ALDA #$01F228E J85 4CR `STA $4CF22Ad lAD FB 02q LDA $02FBCx{ EE