@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}L= ( 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  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  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$} 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(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED458 FREE SECTORS COPYING---D1:MENUSK.COMl# 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!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 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}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 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},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 128ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u8<<  B JKIHiDiELV`L8 8 BLV`LxT}8t8l Lu8hihiHHȱȱL8c !#3`Lu8JJJJ`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}Ln; ` :Y;Y;L;L;)} Setting Up ATARI 130XE Ram Disk; 9L; ; -9  [} L;D8:; :9 :Y;L-@@l}> $Inserte otro diskette y pulse  A@:-@@:  Seleccione programa usando  >-@m}@> $ y presione $""----------------------------]6-@$AF:An},9AF:A,KB2H]B2I"3BBy%6-$AV%A$36-%AV,()Ao}`6))-@$@%@@@-@J%%AUT%%AU^ h r'p}B2H@'B2IA$|]B2V@'B2W@9B2w@KA]Aq}AY@b$>>112,112,112,48,70,64,156,80,6,112,112,112,2,16,2,16,2,16>>2,16,2,16,2,16,2,16,2,16,2,r}16,2,112,112,112,2,0,2,65,0,6""----------------------------A"AdAU"(APM-@s}@ .-@&@5 A6-@M6-@)6-F:Ad,)AU*(A`"@A`t}!!@*@APAdAU/"@6-%@#!/6-@/"@6-u}&@) @/6-'-@  !-@&'  )-@ "-@&) & 6-0-@v}@+-@@M2@@@@Q e-@@ 2@w}  : APD$N""----------------------------XG A6.D:G67B:,%@,.7$@&@<$x}@,b @@l@ Apv @ AdAU##F:A,"Ap)(Ay}`G-@@G  - ERROR F:A, - >-@@> $ Verifique y pulsez}  F:Ad,"AUAP A1B2H'B2I1+/AdAU{}/  Cargando: 7@,$D:MENU A1B2H'B2I1+/AdAU2[MM1M2M3REA9A@sDFA&AU""***************}}*************""* Revista STAK presenta: *""* *""* V E N T A N A S *""* ~} *""* Por: Bill Yesterday *$""* *.""* Revista STAK # 5 }*8""* *B""****************************LV!!* Dimensiona STRINGS para *`!!* almacena}r las VENTANAS *jt&&;A,;A,;A,~!!* POKEa Rutinas a Memoria *$ +$ Re}visando DATOS... #A!@6--A6Ah" 6-% DBv+A #Ha }tipeado MAL los DATOS. REVISE...D #A"@6--AA8" 6-% DAU}+A #Ha tipeado MAL los DATOS. REVISE...D !!** Define Primer Mensaje **!!** de 23 x 5 **}(//67B:,%@,.2//67B:,%@,.<//67B:,%@,.}ϠԠF//67B:,%@,.P//67B:,%@,.Zd""**} Define Segundo Mensaje **n""** de 17 x 4 **x))67B:,%@,.))67B:,%@},. HA PRESIONADO ))67B:,%@,. SELECT ))67B:,%@,.!!** Defin}e Tercer Mensaje **!!** de 14 x 5 **&&67B:,%@,.&&67B:,%@,.}&&67B:,%@,.Ϡ&&67B:,%@,.&&67B:,%@,.} ** Convierte mensajes a ** ** Codigos de pantalla **",6-?:A** Datos de Estampador **H** de} Ventanas **R\ee104,104,133,204,104,133,203,104,104,133,205,104,104,133,206,104,104,133,207,104,104,133,208,169f}[[0,133,213,165,208,10,38,213,10,38,213,10,38,213,133,209,165,213,133,210,165,209,10,38paa213,10,38,213,24,101,209,133,2}11,165,213,101,210,133,212,24,165,211,101,207,133,214,165,212z^^105,0,133,215,24,165,214,101,88,133,214,165,215,101,89,133},215,160,0,177,214,170,177,203aa145,214,138,145,203,200,196,205,208,241,24,165,203,101,205,133,203,144,2,230,204,24,165,2}1455105,40,133,214,144,2,230,215,198,206,208,213,96!!** Conversor ATASCII a **!!** Codigo de pantalla }**aa104,104,133,204,104,133,203,104,133,206,104,133,205,160,0,177,203,41,128,133,207,177,203,41VV127,201,32,176},4,105,64,208,7,201,96,176,3,56,233,32,5,207,145,203,230,203,208,2//230,204,198,205,208,217,198,206,16,213,96!!** }FIN DEL PROGRAMA **D:VENTANAS.BAS,145,203,230,203,208,2//230,204,198,205,208,217,198,206,16,213,96!!** ,{T j SLISU } d##*****************************n##* CARGADOR ZYBEX I-II-III *x##* *##* }Revista STAK # 5 1992 *##*****************************M;@,(>:A%,)6-A;A}MAR@5-@@5(REVISTA S T A K PRESENTA:1-@@1(Cargador ZYBEX I-II-III3}-@@3(Version Diskette/Cassette%6-A66-Ax% A %6-A6-Au% A +}6- B+AR>-@@4(Vidas Ilimitadas? (S/N) > A0S*0NA0} 4S6-%@(+@-@@ 6( (D)iskette o (C)assette? @ A0D*0}CAp" 4DAt@,'-@@ 'AR@6(Prepare @ 4C(CASS A@}J (DISKT(ETTE con ZYBEX ^+-@@!+(y presione h F:B2y,@A`r **** E}JECUTA CARGADOR ****|6-?:A6,**** LEE TECLADO ****T#@@K:0)@=*@}F6.>:,Q@T$##***** REVISA LINEAS DATA **** A+-@$6-+6-@-}%@#"! 6-%$6-%@! n")6-F:A,%F:A,$AV/9+KA@d}k(Error en Numero de linea n"A@ +A@d=(Error de DATA en linea @9 +}A@d6(Faltan Lineas DATA96-%@ $""**** DATOS DEL CARGADOR ****X[[169,}48,133,12,169,6,133,13,169,1,133,9,169,255,141,248,3,141,1,211,169,0,141,68,32832bZZ2,162,0,169,0,157,0,7,232,208,250,238,}31,6,173,31,6,201,192,208,238,76,116,228,41690lYY169,0,133,82,133,8,133,9,169,1,141,240,2,162,100,160,6,32,66,198,169,0,13}3,20,27908v]]165,19,197,19,240,252,32,32,1,162,255,154,173,118,1,208,8,169,12,141,252,2,76,128,33970ii198,76,152,197,1}25,29,160,195,193,210,199,193,196,207,210,160,160,160,218,160,217,160,194,160,53892ii197,160,216,160,160,160,210,197,214,}201,211,212,193,160,211,212,193,203,160,185,178,160,155,0,51216WW169,6,162,1,160,52,76,92,228,169,106,141,226,2,169,1,141},227,2,96,8,32,41,1,25448YY32,78,1,173,119,1,240,10,169,95,141,34,2,169,228,141,35,2,40,76,95,228,173,68,31275bb40,20}1,206,208,5,169,173,141,68,40,173,100,40,201,206,208,8,169,173,141,100,40,238,119,39732FF1,96,173,119,1,208,6,32,78,1,32,}32,1,96,0,0,0,0,0,0,0,0,0,0,5544D:CARZYBEX.BAS169,173,141,100,40,238,119,39732FF1,96,173,119,1,208,6,32,78,1,32,7{> T SLISU } d##*****************************n##* CARGADOR 'BLINKY' *x##* *##* }Revista STAK # 5 1992 *##*****************************M;@,(>:A%,)6-A;A}MAR@5-@@5(REVISTA S T A K PRESENTA:)-@@)(Cargador BLINKY3-@}@3(Version Diskette/Cassette%6-A66-Ax% A %6-AA6-A% A +6-} B+AR>-@@4(Vidas Ilimitadas? (S/N) > A0S*0NA0 }4S6-%@(+@-@@ 6( (D)iskette o (C)assette? @ A0D*0CAp}" 4DA@,'-@@ 'AR@6(Prepare @ 4C(CASS A@J (}DISKT(ETTE con BLINKY^+-@@!+(y presione h F:B2y,@A`r **** EJECUTA C}ARGADOR ****|6-?:A6,**** LEE TECLADO ****T#@@K:0)@=*@F6.>:},Q@T$##***** REVISA LINEAS DATA **** A+-@$6-+6-@-%@#}"! 6-%$6-%@! n")6-F:A,%F:A,$AV/9+KA@dk(}Error en Numero de linea n"A@ +A@d=(Error de DATA en linea @9 +}A@d6(Faltan Lineas DATA96-%@ $""**** DATOS DEL CARGADOR ****X[[169,48,133,1}2,169,6,133,13,169,1,133,9,169,255,141,248,3,141,1,211,169,0,141,68,32832bZZ2,162,0,169,0,157,0,7,232,208,250,238,31,6,173},31,6,201,192,208,238,76,116,228,41690lYY169,0,133,82,133,8,133,9,169,1,141,240,2,162,100,160,6,32,66,198,169,0,133,20,279}08v]]165,19,197,19,240,252,32,85,1,162,255,154,173,159,1,208,8,169,12,141,252,2,76,128,34968ii198,76,152,197,125,29,16}0,195,193,210,199,193,196,207,210,160,160,194,160,204,160,201,160,206,54309ii160,203,160,217,160,160,210,197,214,201,211,}212,193,160,211,212,193,203,160,185,178,160,155,0,51325XX169,6,162,1,160,105,76,92,228,169,147,141,226,2,169,1,141,227,2,}96,8,32,94,1,27436[[32,131,1,173,160,1,240,10,169,95,141,34,2,169,228,141,35,2,40,76,95,228,173,181,34298]]130,201,19}8,208,8,169,165,141,181,130,238,160,1,96,173,160,1,208,6,32,131,1,32,85,29338::1,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},0,0,0,193D:CARBLINK.BAS60,1,96,173,160,1,208,6,32,131,1,32,85,29338::1,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0!LFLOADSUMDPIC88BAy@A6BD %%Ϡ̠Χ }%%ԩ%%報 ;@%@%@, +"" }(Š((2([D:NOMBRE.EXT]< + Revisando DATOS...""************* }***************""* FLOAD$: Rutina Rapida *""* Para Lectura de DISK/CASS*""****************************$; }@V,. #A6-8-@@VB"L67B:,%@,.>:,V 6-%` jAUPA }t""****************************~""* POKEa Rutina *""* 'DISTORSION' *""* en Memori }a (1536-1696) *""**************************** #A6--@Aa"A5% 6 }-% "BA ""****************************""* Pantalla Roja y Grafico 0*""* si hay error e }n los DATOS*""****************************  +A@f** "DATOS mal tipeados... Verifique... }(+@%@2""****************************<""* Espera hasta que se *F""* Presione START y carga *P }""* una Pantalla en formato *Z""* Micropainter (62 sect.) o*d""* 7680 bytes +4 de colores.*n""* (Si no tiene pan }talla, *x""* lea texto del Articulo) *""***************************** A0*F:B2y,@A  }@@ A''6-?:C:,<@<B1<Av,)@A)@ }A)@A )@A@ B""**************************** }""* Ajuste de Lista de *""* Despliegue para Rutina *""* 'DISTORSION' *""******************* }*********)AY)6-A$$AV"-A#,%6 @7A#%@ }A7%@AJ-@Av@T%@x^%%@h%%@A' }r |?%Ay@e+%A?%AA$'A`'AaA$""********** }******************""* Se activa la Rutina *""****************************AY@4SA@ }'A@9AASA6%@&@kA6%AW@e7A6%AXA&QA }6%AY@@kA6%A`AY**6-?:A6<A6%@<@, F:A,"@AP" }"6-?:A6<B<@,""****************************""* Se repite hasta el fin de*""*los tiempos o hasta }apagar*""* el computador. Lo que *""* suceda primero... *""****************************& A 0 }:""****************************D""* DATOS DE FLOAD$ *N""* (FLOAD: Fast LOAD) *X""* (o Carga }Rapida) *b""****************************lvTT216,173,1,211,9,2,141,1,211,104,104,104,10,10,10,10,170,169,7,157 },66,3,104,157UU69,3,104,157,68,3,104,157,73,3,104,157,72,3,32,86,228,132,212,160,0,132,213,1731,211,41,253,141,1,21 }1,96""****************************""* Rutina 'Distorsion' *""****************************[[1 }04,104,170,104,168,104,104,76,92,228,216,165,203,208,3,76,98,228,198,204,240,3,76,98[[228,169,2,133,204,198,205,208,7,169 },0,133,203,76,98,228,165,205,170,173,157,6,133,206[[173,158,6,133,207,173,159,6,133,208,173,160,6,133,209,169,1,133,186,1 }33,187,160,0,165[[208,145,206,200,165,209,145,206,202,208,31,173,157,6,56,233,3,176,3,206,158,6,141,157VV6,173,159,6, }56,233,40,176,3,206,160,6,141,159,6,76,98,228,198,186,208,25,230,187]]165,187,201,16,144,2,169,16,133,187,133,186,165,208 },56,233,40,176,2,198,209,133,208,16588206,56,233,3,176,2,198,207,133,206,76,69,6,0,0,0,0 ""*** FIN DEL PROGRAM!:} ߱  \`ҩҩpmα$}rб бҩҭmB80ҩLʬBBҩL66ܱ$}ҭܱiҩL6ҩҩ f fϱ ) f$}ҩҭ ±I±L6 ñIñL6$}L f fıL6ıIL6 f)8 0 f$}DZ fű fƱ fȱ fɱ&ʱ˱űiƱi̱L6DZḺ̱ɱͱ̱űi$}ƱiͱȱDZʱ˱ͱLX)8 09ҩ±ҭñjձձձҩҩӱα$}ҩ ҩӱ±ֱѱұ`L_ӱҍҭ}رҩmҭӱ2ҭmҭm80$}βұͷ!ӱ}رҭmҭԱҭiѱ ѱmϱ$}mϱѱ)ίΰiñίΰֱֱ±ֱұ)$}mBԱұұLίΰαααα±IL`L[L6±$}ñL.ݱޱױmiݱޱױ`ss  $} 7ٱ۱ ܱرڱ`$}$} n n n - -/5GPY>GPY>GPYbmvbnvbmvbnvbmvbmbmbmbmbmbmbmvbmv>GPY>GPY>GPY>GPY%}>GPY>GPY>GPYTDTTT%}TTTTTT@TTDDT000TT TDD@TDDTDTTT@TDTD%}T TT0000 DTD DDD0DD00 T 0T6>Xc'%}Rbbb}}}}}c'%*UU}}}}}}UU''cXbbbR'}}}}}c*%'$c}$Xc% }'Rbbb}}}}}c'%*UU}}}}}}UU''cXbbbR'}}}}}c*%'<~~<% }fkc|ffff% }ff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<~x|nfE`[ppE % }EAE$%-/500/2$)!-!.4%/-%'!.%4/, ABCDEABCDEABCDE% }ABCDEABCDEABCDEABCDE  FGHIJFGHIJFGHIJFGHIJFGHIJFGHIJFGHIJ  KLMNOKLMNOKLMNOKLMNOKLMNOKLMNOKLMNO  ABCDEEABCDE%}ABCDEABCDEABCDE  FGHIJ aaaaa FGHIJFGHIJFGHIJFGHIJ  KLMNO bbbbb OKLMNO  ABCDE ccccc  %} ABCDE  FGHIJ ddd FGHIJ  KLMNO eee nn  KLMNO  ABCDE fff   %}ABCDE  FGHIJ ggggg   FGHIJ  KLMNO hhh   KLMNO  ABCDE iii nn  ABCDE%}  FGHIJ jjj   FGHIJ  KLMNO kkkkk   KLMNO  ABCDE lllll ABCDE  %}FGHIJ  FFGHIJ  KLMNOKKLMNOKLMNOKLMNOKLMNO  ABCDEABCDEABCDEABCDEABCDEABCDEABCDE  FGHIJ%}FGHIJFGHIJFGHIJFGHIJFGHIJFGHIJ  KLMNOKLMNOKLMNOKLMNOKLMNOKLMNOKLMNO  LX'ZY%} 'ZZ' E-ZL8ILtdedicate a crear,no a destruir programas`aP@Ԣ0ԠE1%} mR mR mR&Щ"Щ,ЩЭuxq mlkjihgf e d c b a`_^%}]\[ZYUQ LILTLKLVJLdJLrJLJLJLJLJLJLJLJLJLJLQLQLRLRL#RL1RL'XLFXLXKLBL?%}RLBL?R;MBL?RMBL?R+NBL?RNBL?ROBL?ROBL?R PBL?RPBL%}?RPBL?RsQBL?RL?R TL?R _LK T_C<j𿭐C C )U0LmK%}0L!KgBBBB T mRL?R'UZ E T mR mRL?Rx K K K K K K K K K K%} KL?R` ҙC``C` T  _CC`_C U i LL i  LLL?R'  `}%}' <i}'}```0B '}''}'}}'ii}}؟}}`  ' '}}i<``}'' B0`V6665??(%}UU\*IIIIXX%''''''%acabbacaV??5666UU(*\$c}$'Ib"}}}%}a'}6``VvvvvvvV" '''' "$}c$bI'}}}a6}'$c}$'Ib"}}}a%}'}6``UUVV" '''' "$}c$bI'}}}a6}''}` ` '}(}i' `}%}}' `'}}'` `(}}(' `` '}} `}'}' `i}(}` '` '}؂`}' }' `iA(}}` ' '}% }```I'}}'Iiia}}a '' '}`` '}}(Ai' `}`}' vc<ɉ 'pa'vb b'vc%!}rU}}}}}}"?ccccc'vb'`'tII'v؅ vc7LFR  LtR`iLFRiLtRaia%(} RLILIL'XLFXLXa $ `LRLSLSL"SaL3S DS'}Z EL?R DS'Z EL?R DS'Z EL?R DS'Z E%)}L?R DS'[ EL?R' E U mR' E U mR` T6ӭ ҍpC ҍqC ҍrC ҍsC ҍtC ҍuC ҍvC ҍwC%*}LSLSM+LKTLKTEiEEpLKTpEPLKTEEEEEEEEEEEEEE%+}EEEE0LKTELoSLbLoSgC`gUC`gC`gC`LKLK LTg %,} $(LTC U`LTLTLTULT TC ҝ C Ugg ҝC C UCL?R  %-}  ` L1U QT` \T` gT` rT`I"cc#b222(}}}('ca'``2222(}}(%.} '' #cc"I222b(}}}(c''abv'bv"cv(}i&b'b'vbb''b؝'bb'i}}ivccv'b%/}b'b'vbvc"vi}('b&bv'b%`b}}('b*X '``rrU}}U**' '%0}`%b(}}*b'' XXc'Rbbb}}}}}c'%*UU}}}}}}UU''c%1}XbbbR'}}}}}c*%'%%"bb (}A(}XX$$ 'vv' i<}D11E1 00l?1 ?1 5-]@10A1nԅ (-Ə @1A1ԩt@11A1?1)?1`)?}'t1`X0Y0.>0ȍ@00K0J00`X0Y0Z>0K0J00 +0`X0Y0,>0?0ƍ@0XA0K0J0)@}0 .0`X0Y0K0J0Z>0^@00 +0`1 iii i)A}`JJJJ `) `- {-H00 (x0i (-bx000000л)B}ƈ "0 0L/戥 / /֝ {-LO/-` 01` (揥` (Ə)C}` t110t1`0/.')D}presione"/4/.paracomenzar'!.!$/2Ԕ 3...Z.0/.'./2-!,0/.'(/#)E}+%9315!3(02!#4)#!pppgt1J1(...Z.0/.'./2-!,0/.'(/#(U@@pppT}@T}@T}@}@T@T@T@Բ@T@T@T@@TATATAATQATQATQAQATATATATAA@B B@@ALAA-G}AA B-H}@A-I}-J}ABHHH ԎЌЈhhh@c@ ͅ˩C̩-K}&&&iΠ͙X@`@}@@@@@ AAUAQAAA2`d@X@d@H k@l@d@ȑȑȑh-L}c@`b@8b@԰BCib@ Bc@  AB Be@e@`@LjC`@a@@pa@LjC@i@LjC@-M}a@LjC8@@Lbͅ˩C̩k@c@b@0@1f@ AB B%BB \LC%34%02/-N}'2!-!3)-0,%-%.4%%35.!9CD!0!/2%'!,/3)02%&)%2%. %,#/$)'/&5%.4%%.!33%-",%2./%34!4%2-).!$/.)/04)-):!$/90/-O}2%3/./&5%).#,5)$/%.%,$)3#/3).%-"!2'/ %3"!3)#!-%.4%%,-)3-/$%,$%-/3!,5$/3!4/$/3$%3$%,!3/&)#).!3$%,!-P}2%6)34!34!+UUUUUUUUmC/ %3"!3)#!-%.4%%,-)3-/$%,$%-/3!,5$/3!4/$/3$%3$%,!3/&)#).!3$%,!,-PS>>>666666>`<|fl0fF68of; 0p88pf~f~8~881R}8p`>go{s><>g8g>>np~w>>p~ww>88>w>ww>>w?<88p8~~p81S}8p>w>gnggn`>www~w~ww~>wppw>|vww~|x~xxx~xxx>wpww;wwwwww>wv||vwxxxxxcwww1T}{{ww>www>~ww~pp>ww~;~ww~ww>w8w>wwww;wwww>wwwcww>>wwww>8p8pc>www>swwww1U};8lf~< 0``0 ?1V}>A]Q]A><~~~<*****II>1W}>??ll8>g>www>>?w;pp~wwn>wpw>?ww;>wp>?;ww?~pp~www<>>psv|vs<1X}>fkcnwwww>www>nww~pp;ww?nwppp?p>~wwww;www>ck>6w>>wwww?|8g>?w;1Y}wwww;>gnggn`*U*U*U*0,g!0P" J!g!L:Pg!`I! ʽ!!M!LJ!  &L1Z} M!J!P!LZ!¹!üP!)   L) ĝM!ȘP!S! !h! !j!L Ƥřh!P!P!1[}P!J!V!z! ! Ĵɹ!&Hh!hi!Ly Y!i!ƙh!!I!)\!LF N 8S! řh!c!`!`!q!1\}`!uƤřh!M!0L?`h!`ȱV!`ȱ\!``Y!`c!`  0`H<1]}xrke_ZUPKGC?<852/,*'%#!8 j jFAn0R"zU [88  1^} efP!!!!! M JH    """ d'1_}7IjYu$T##%&&%&&&##%##&&%$$$$&&$$$%1`}    1a}--!--!#1b}!-         !1c}#!!!!!#1d}-   # # - #%%   1e}-- #  1f} ,,,,+ #&#-&- , %1g}* * % , %* %*     1q}B%DOS SYSB*)DUP SYSB SRAMDISK COMB\AUTORUN SYSB]MENU B!|VENTANASBASBCARZYBEXBASBCARBLINKBASB!DISTORSIBASBQDEMOYAPAEXE;CONVER BAS           1r}@g!`PRTVWY[]_`bdfhikmnprsuwxz{}~1s}~}{zxwusrpnmkihfdb`_][YWVTRPNLJIGECA@><:875320.-+)(&%#"   1t} "#%&()+-.023578:<>@ACEGIJLN~|zxvusqomkjhfdba_]\ZXW1u}USRPOMLJIHFEDBA@?>=<;:98776544332211110000000001111223344567789:;<=>?@ABDEFHIJLMOPRSUWXZ\]_abdfhjkmoqsuvxz|~1v} b) * X+Pԩ:/WTUVЩЍ Ѝ Ѝ ЩOLJGP1w}ЩZЩdЩnР*T*U*V*W L)jL++* N+`1x}& UiV& eUUeVV(VFVfU&}&jTF }*Ч}*$L1y}+L*L*L*} W) ҙ  /)I)L)**} W)L+1z}L+L+LB*A@?Accccckwc~``|`````cwkcccccffff~ffff*L\HHH*'И** M+)1{}M+IM+LC+M+)M+IM+L0h(L_`VL,pAP{(+)6Q+,R+@ԩ`ưQ+R+Q+R+/ 1|}6Q+,R+5,I5,`4,;O+#N+N+8N+T+iT+`4,I4,L+O+8O+S+iS+`S+!T+T+8T+N+iN+`4,I1}}4,`O+iO+S+8S+`@@@@@@5&&&&&&9%!3/)34!247/2,$&%$%2!4)/./&-!$(!#+%231~}02%3%.43.%7$%-/)43#!,,%$"544/.$%-/-9.!-%)3++ )72)44%.4()3/.%4(!1}.+34/$5$$)%&/2)$%!3 8, 3/&4(%#54/&&4()3-5:!8&2/-).4%2.!4)/.!,+!2!4% (%"2).'"%%24/-% 1} 0/,/.53&2/-15!24%4!2%$5$$)% ++ 4()3)!- 8, 3/&4 -)+%-5:)#!. "/93),,90%' 1}2%347()#()7!3&/2'/44%.!"/54./4!+ !4%2!:30%#*!,.%!.49;9#:%.)!/2!:02:%+,%.347!$,!0!*!#!:/$:)%;/7#!1} +4/29(!.$,5*%02/'2!-!-).!!4!2)8,,5$:)%$,!#:%'/+505*%#)%5.)%'/02/'2!-94/30%+5,!.41} :-)!.!':9-35 79*3#)%:02/'2!-54/$%-/0/734!,/7$.)!9%!("%$1}%#(9"!+/.#:9,"/:!#:9.!-0)3!#./7%$%-/"9%"9%#:%3#MP1}hhLF+L()3!#./7%$%-/"9%"9%#:%3#MP0$24 U ̠0 Lq#0 t w֤ע >N1 w֤ע >멝1 w֤ע 5} >1 w֤ע >52 w֤ע > J   W!D > wԤբ k J 5} r2 驂} 𩮠0 면0 멺0  w Q w $  2L$0   w Q w# 5}(L$$  w w   Q + 셈 W! 񥷠  ꥸ Ơ0 Q w vL5}$ @ 2 w  w L$ @ 2  w @ 2  +5} }_85,85,85,85,85,85,85,85,255,255,255,255,170,170,170,170,112,112,240,84,148,144,84,148,45550}`144,84,148,144,845},201,144,84,201,144,84,201,144,84,254,144,84,254,144,84,254,144,84,51,42459}_145,84,51,145,84,51,145,84,104,145,84,104,145,5}84,104,145,84,157,145,84,157,145,84,157,35834}Z145,84,210,145,84,210,145,84,210,145,84,7,146,84,7,146,84,7,146,112,65,16,145}4,72,28078}W138,72,162,192,142,10,212,142,23,208,202,208,247,104,170,104,64,0,0,0,0,0,0,0,21900}W0,15,1,0,0,0,66,230,0,0,5}255,255,196,144,249,144,46,145,99,145,152,145,205,145,41553~=2,146,55,146,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1043~505},0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"~50,0,0,0,0,0,0,0,0,0,5}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,06~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,05},0,0,0,0,0@~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0J~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0T~50,0,05},0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0^~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0h~50,0,0,0,0,0,0,0,0,0,0,0,5}0,0,0,0,0,0,0,0,0,0,0,0,0r~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0|~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,05},0,0,0~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0~50,0,0,0,05},0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0~>0,0,0,0,0,0,0,0,0,0,0,0,0,0,5}0,0,0,0,0,0,169,1,141,122,9742~\144,160,0,177,203,201,255,208,6,32,57,147,76,60,146,41,127,201,32,176,4,105,64,208,33044~5}[7,201,96,176,3,56,233,32,133,205,230,203,208,2,230,204,169,0,133,206,6,205,38,206,41272~_6,205,38,206,6,205,38,206,24,165,5}206,105,224,133,206,160,7,177,205,153,113,144,136,16,39657~c248,96,162,0,189,151,144,157,148,144,189,204,144,157,201,144,185}9,1,145,157,254,144,189,54,45000~g145,157,51,145,189,107,145,157,104,145,189,160,145,157,157,145,189,213,145,157,210,145,185}9,10,45322~\146,157,7,146,232,224,50,208,203,96,162,7,169,0,141,123,144,30,113,144,144,5,169,1,31576~e141,123,144,138,72,5}10,170,189,132,144,133,190,189,133,144,133,191,173,123,144,160,0,145,190,42304~d200,145,190,200,145,190,104,170,202,16,209,5}238,122,144,96,173,121,144,56,233,3,141,121,144,40533]141,4,212,176,24,105,12,141,121,144,141,4,212,32,138,146,173,122,1445},201,9,208,3,32,32684]60,146,32,194,146,173,8,144,141,124,144,162,1,189,8,144,157,7,144,232,224,8,208,245,41035e173,1245},144,141,15,144,76,98,228,173,130,144,133,203,173,131,144,133,204,96,104,104,141,131,41371&c144,104,141,130,144,169,144,1415},244,2,32,57,147,169,132,133,190,169,144,133,191,169,1,141,396060_122,144,169,15,141,121,144,169,16,141,48,2,169,144,141,495},2,162,4,189,125,144,157,196,34900:Z2,202,16,247,32,60,146,32,194,146,160,247,162,146,169,7,32,92,228,169,95,141,0,2,330245}D]169,144,141,1,2,169,192,141,14,212,173,31,208,201,6,208,249,169,7,162,228,160,98,32,39815N;92,228,96,0,0,0,0,0,0,0,0,0,05},0,0,0,0,0,0,0,0,0,0,0,836BhdBxB"AV#Revisando DATOS del DEMO, espere...] Este mensaje solamente es 5}para demostrar lo facil que es utilizar este DEMO en sus propios Nprogramas. Si el mensaje tiene mas de 1000 caracteres solo 5}deben modificar la Llinea 200. No olviden colocar como ultimo caracter de su mensaje, CHR$(255) J Esperamos que este DEMO lo5} utilicen para mejorar la presentacion de sus :AU,r##*****************************|##** VELOCIDAD entre 1 y 1=}2 ***##*****************************6-@Bv(##*****************************=}##**** EJECUTA DEMO ****##*****************************6-?:Bw J.HORH QF.JOYSR M> \ N> f FSALIRp QF.JOYSz M> FJ.DER A0%> A1$> A2QFNT2 9 T? U)}FNT2 9 UFNT29 UFNT29 UFNT29 UFNT2 9 2 (> HA21 FSALIRHA1$ J.DER.)} QF.JOYS8M>B%>L A11$>VA22QFNT29`V?jWFNT29tWFNT29~WFNT2 9WFNT2 9)}WFNT292(>HA221HA11 SALIR!bPONER.PANTALLA Q>4PANTAPPNT.DESDE Q>5PANTAPPNT.DE)}SDE Q>4PANTAxPPNT.HACIAQ>5PANTAx(PPNT.HACIA2X;<$>F O0%>wPO1Q@PNT.DESDE7ZO2P@PNT.HACI)}A7d1nIO1x,QPNT.HACIAO>xPPNT.HACIAQPNT.HACIAO>PPNT.HACIA0HO0%> BB1QMSG8)}PPANTA8 QMSG8PPANTA(8 QMSG48PPANTAP8 QMSGN8"PPANTAx8,16IBB1@:J T)}ABLAT ====^ TABCOLh &="=,=d=r TABCOLA| ==== DLA = F.JOYS F.COLOR  F.)}ROT zX;%MSG A!!!!!!!!!!!!!!!!!!!!!!!!!!A! A!! REVISTA ATARI STAK !!A! A!! POR ROD RUBBER !!A! A!!!!!)}!!!!!!!!!!!!!!!!!!!!!AX; PANTA/ A#&),/#&),/#&),/#&),/#&),/#&),/#&),/#&),/A/ A$'*-0$'*-0$'*-0$'*-0$'*-0$'*-0$'*-0$)}'*-0A/ A%(+.1%(+.1%(+.1%(+.1%(+.1%(+.1%(+.1%(+.1A START),/#&),/#&),/A/ A$'*-0$'*-0$'*-0$'*-0$'*-0$'*-0$'*-0$(E<@,.D:<<6-C:/@ԩhhh i hԈhԈhԈhԈhhLV,F @@A(F6-?:<@!}<B-@@#-@!:(| |> &-@!!}&(0 A0@@D:*.*^-@@ +-@@8)@!}F67<,.>:,J ^-@"%@1-(7@<@,7@<&@,1 J-@@#-( CONTI28}NUEJF:B2y,@ApH-@@#-@!:(| |> H A`AF:A,"A29}6,-@"%@A(7@<@,L-@@#/(PRESS LF:B2y,@AI2:}@"-@@ .-@!E( I x-@!@*(<-@!@2;}Q(|FILE: |c-@!@x(|D:FILENAME.EXT|G-@!@*(GF:A,"A02<}AW Apn-@"@)(WHAT IS THE ;-@"@N(NUMBER ?? `-@0@dn2=} AM 6-A:,!$-@@#C(THIS BOOK DOESN'T EXISTM A+6-+$@W,%@!6-+ A@2>} C"!-@@#9(MEMORY EMPTY !!!C Ap*}-@"@((ORDER FOR: :-@"@2?}M(UTHOR or OOK_-@3@l)@s(>:,} A4!!@e*@fA>6-@0$+"@e2@},-@)-@@#?(ǮS-@@%W i-@@#(ALPHABETIZ2A}ING...-@@%  ' 6-6-'AY^6-7-@X+$@W,%@2B}@WE6-%@Z68,-@:7%<%,,^ **6-@#P:K:,'K:@,,&@D-@&$67@,. 2C}567@W,. D67@,.8,8%,A 6-8%,68%,-8,:6.7++%,$@W,%@<++%,$2D}@W,%@W,67++%,$@W,%@<++%,$@W,%@W,.7+$@W,%@<+$@W,%@W, 62E}8,-B 867+$@W,%@<+$@W,%@W,.B A -&@68,A68%2F},-8,cc67++%,$@W,%@<++%,$@W,%@W,.7+$@W,%@<+$@W,%@W, 68%,-2G}::67++%,$@W,%@<++%,$@W,%@W,. (6-P:'@,(!A &-@ @2H}&(7<%@),.-@ @.(7%@0<%@I,.Y-@@.(7%@P<%@U,@-@5@2I}Y(7%@V<%@V,8AY@4 AgAY!6-5-@ @8C1@2J}U67%<%,.>:,c6-%@g U6-@0#-@ @(11@C67%<%,.>:,Q6-%@U 2K}U6-@P#-@@11@C67%<%,.>:,Q6-%@U )1@5@)67%<%,.>:,2L}7-@@( -AY@47 Ap D:EDITOR3.LIB @)67%<%,.>:,0\0 REM S."D:EDITOR3.LIB1 POKE 106,1608 GRAPHICS 0:? " Ҡ":POSITION 3,3:? "BOOK:":POSITION 1,5:? "AUTHOR:":POSITION 3FN},7:? "LOCATION:"9 POSITION 29,7:? "LOAN:":POSITION 10,9:? "ՠ":POSITION 16,9:? "OFF":POKE 710,0:POKE 709,710 ? :? "EFO}W BEGINNING":? "OAD FILE":? "AVE FILE":POKE 16,64:POKE 53774,6411 ? " NEXT BOOK":? " BACK BOOK":? "LPHABET":? "IRECTORFP}Y ":? "O OTHER BOOK"12 ? "ETURN TO MAIN MENU":POSITION 5,23:? "MESSAGE: By German A. Gonzalez M.";13 POSITION 15,1:? "FREFQ}E: 370":POSITION 15,0:? "BOOK:":POSITION 26,0:? "NUMBER OF":POSITION 26,1:? "BOOKS:"14 COM A$(21090),Q$(30),NO$(18),A(3),X(4FR}00),B$(57),NO1$(14):A(0)=29:A(1)=19:A(2)=5:A(3)=0:X1=1:RE=115 CLOSE #2:OPEN #2,4,0,"K:":A$(1)=" ":A$(21090)=" ":A$(2)=A$:GOTFS}O 69017 X1=X1+57:I1=I1+1:IF I2>370 THEN POSITION 14,23:? "MEMORY FULL!!!";:X1=X1-57:I1=I1-1:I2=I2-1:GOTO 17020 POSITION 3FT}3,1:? I2;" ":POSITION 21,1:? 370-I2;" ":POSITION 21,0:? I1;" ":I=021 FOR X=0 TO 3:Q=022 Q$(1)=" ":Q$(A(X)+1)=" ":Q$(2)=QFU}$23 IF X=0 THEN POSITION 2,3:? "";:GOSUB 24824 IF X=1 THEN ? :? :? "";:GOSUB 24825 IF X=2 THEN ? :? :? "";:GOSUBFV} 24826 IF X=3 THEN POSITION 34,7:? " ";:GOSUB 24840 TRAP 40:Q1=0:GET #2,T50 IF T=96 THEN 4080 IF Q>0 AND T=126 THEN Q$(Q,FW}Q)=" ":Q=Q-2:Q1=1:GOTO 11081 IF T=30 THEN Q=Q-2:Q1=1:GOTO 11082 IF T=31 THEN Q1=1:GOTO 11090 IF T=155 THEN 150100 IF T<32FX} OR T>122 THEN 40110 Q=Q+1:IF Q>A(X)+1 THEN Q=A(X)+1:? "";:GOTO 40120 IF Q<0 THEN Q=0:GOTO 40130 ? CHR$(T);:IF Q1 THEN 40FY}140 Q$(Q,Q)=CHR$(T):GOTO 40150 IF Q=0 THEN 40160 A$(X1+I,X1+I+A(X))=Q$(1,A(X)+1):I=I+A(X)+1:NEXT X:? 163 IF RE=0 THEN 200FZ}0165 RE=1170 POSITION 21,0:? I1;" ":POKE 764,255:POKE 752,1:POSITION 17,9:? "ON ":POKE 702,64:POKE 694,0171 POSITION 33,1F[}:? I2;" ":POSITION 2,21:? " INPUT BOOK ";I1+1;" ":POSITION 2,20:? "ODIFY BOOK ";I1;" "172 TRAP 172:GET #2,T:GOSUB 260F\}173 IF T=77 THEN IF I2>=1 THEN GOSUB 250:RE=0:GOTO 20174 IF T=83 THEN 550175 IF T=76 THEN 500176 IF T=27 THEN IF I1+1<=I2F]} THEN POSITION 14,23:? "SURE (Y/N)";:GET #2,J:IF J<>89 THEN 170177 IF T=68 THEN GOSUB 600178 IF T=65 THEN 800179 IF T=27 F^}AND J=89 THEN GOSUB 250:GOTO 17180 IF T=43 THEN 300181 IF T<>82 AND T<>78 THEN 185182 POSITION 14,23:? "SURE?? (Y/N)";:GEF_}T #2,SB:TRAP 257:IF SB<>89 THEN 185183 IF T=78 THEN RUN 184 RUN "D:MAINMENU.LIB"185 IF T=45 THEN 400186 IF T=27 THEN I2=IF`}1+1:GOSUB 250:GOTO 17187 IF T=155 THEN T=32190 IF T=71 THEN 700247 POSITION 14,23:? "EXISTS NO COMMAND ";CHR$(T);"Fa}";:GOTO 170248 IF RE THEN U=PEEK(85):W=PEEK(84):? Q$:POSITION U-1,W:? " ";249 RETURN 250 POKE 752,0:POSITION 17,9:? "OFFb}F":RETURN 257 POSITION 14,23:? "CHECK THE DISK DRIVE OUT";:POKE 195,0:GOTO 170260 POSITION 14,23:? " MESSAGE:";:RETURNFc} 300 IF I1+1>I2 THEN POSITION 14,23:? "EXIST NO MORE BOOKS";:GOTO 170310 I1=I1+1:X1=X1+57:GOTO 420400 IF I1<=1 THEN POSIFd}TION 14,23:? "BACK TO THE BEGINNING";:GOTO 170410 I1=I1-1:X1=X1-57420 POSITION 9,3:? A$(X1,X1+29)425 POSITION 9,5:? A$(XFe}1+30,X1+49)427 POSITION 13,7:? A$(X1+50,X1+55):POSITION 35,7:? A$(X1+56,X1+56):GOTO 170500 POKE 752,0:POSITION 28,12:? "LOAFf}DING":TRAP 257510 POSITION 24,13:? " ":POSITION 24,13:? "";:INPUT #16,NO$511 NO1$=NO$:NO$(3)=NO1$:NO$(1,2)="D:"Fg}520 SB=ADR("@ԩhhh i hԈhԈhԈhԈhhLV")526 OPEN #1,4,128,NO$:X=USR(SB,1,21090,ADR(A$),7)528 IF PEEK(Fh}851)<>136 THEN POSITION 14,23:? "READ ERROR - ";PEEK(851);:GOTO 549530 I2=((PEEK(856)+256*PEEK(857))/57)-1:IF I1=0 THEN I1Fi}=1:X1=58531 POSITION 21,1:? 370-I2;" ":POSITION 33,1:? I2;" ":CLOSE #1:GOTO 420550 IF I1=0 THEN POSITION 14,23:? "NO EXFj}IST DATAS";:GOTO 170560 TRAP 257:POKE 752,0:POSITION 28,12:? "SAVING":POSITION 24,13:? " ":POSITION 24,13:? "";:Fk}INPUT #16,NO$561 NO1$=NO$:NO$(3)=NO1$:NO$(1,2)="D:"570 OPEN #3,8,128,NO$:? #3;A$(1,(I2*57)+57);:CLOSE #3:GOTO 170600 POSITFl}ION 21,10:? "DIRECTORY"630 FOR L=11 TO 19:POSITION 21,L:? "| |":NEXT L640 POSITION 21,L:? "Fm}"650 TRAP 680:OPEN #3,6,0,"D:*.*"660 FOR DIR=1 TO 9:FOR DI=1 TO 18:GET #3,K:NO$(DI,DI)=CHR$(K):NEXT DI:POSITION 2Fn}2,DIR+10661 ? NO$(1,1);NO$(3,DI-1):NEXT DIR670 POSITION 14,23:? "