@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`  `1  ɐ     `TU  } L ? .  t`lvGBJ ~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.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:CP.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 B}ōP   i ̀i΀i]πiЀ*}i3рiҀʢ ӠG & #̀΀π Ѐ l } DOS 2.5 Command Proces+}sor 3.08 (c) CHAOS software. Winter 1989. J `lXhh8hh  ,} &Xآ   90ɛ @ miݦʈ0Θ0 ҁLlɛ."-}ք  Sǩ LTU`L&lɛ ɛ+0: AG80. .}l *M?Iɛ,ɛ*ɛ 𮅄  L  RL/}ʆlLt   L!RLV䮁L !ɛ  RZ V0= XH0}YR V0 B V0L V8S 샠(   }~ L& ɛ` {1}|L&DE`m.`H) hJJJJ 0:i` 働H BILVB 僩&H V0%H2}:ɛɛ`ۄ˄rŃ-ւDIRRENERACARMEMRUNBOFLo=.... Hi=....BRK at ....3}MOC.Error ...D1:FILENAME.EXT *.*D1:#߅`#ϩҩӭԭ8ԅХՅѠ8fϥ#酐`$ph0'҅Α Ӆ @4}`) ѐF) ?҈遐#҈酰Цѐ$0ֆ8֑ Ӆב ӅLRґ ӅLR`҅Α Ӆ @k* TA COPY autor: JBW* (c) 1992 Tajemnice ATARI opt %100101*--- procedury w ROMafp equ $D800fpi 6} equ $D9D2ciov equ $E456*--- rejestry pakietu FPfr0 equ $d4cix equ $f2inbuff equ $f3*--- system7}runad equ $2E0initad equ $2E2dosrun equ $Adosini equ $Ciocb equ $340io_com equ iocb+2io_sta equ iocb+8}3io_adr equ iocb+4 (2)io_len equ iocb+8 (2)io_mod equ iocb+10io_aux equ iocb+11memhi equ $2E5memlo equ $9}2E7driv equ $301skctl equ $D20F*--- stalechn0 equ $00chn1 equ $10gett equ 5putt equ 9getb :} equ 7putb equ 11eol equ 155eof equ 136shift equ %00001000*--- strona zerowabyte equ $cbaddr ;} equ $ccword equ $ceused equ $d0size equ $d2*--- numery komunikatownul_m equ 0tit_m equ 1get_m <} equ 2put_m equ 3err_m equ 4mem_m equ 5sta_m equ 6 org $8000main jsr init* glowna petlaloop =} jsr close* wypisz status jsr dsp_stat* pobierz nazwe pliku ldx #get_m odczyt lda used >} ora used+1 beq *+3 inx zapis jsr get_text bmi loop* nazwa pusta? dec i?}o_len,x bne io* zmiana trybu lub koniec lda used ora used+1 beq quit lda #0 @} sta used sta used+1 beq loop (jmp)* zapis czy odczyt?io lda used ora used+1 A} beq rd* zapis jsr write jmp loop* odczytrd jsr read jmp loop* powrot do DOS-uquit B} jmp (dosrun)*--- wypisz tekstdsp_msg equ ** odszukaj tekst nr X ldy #0fm0 dex bmi moutfmes C} lda data,y iny cmp #eol bne fmes beq fm0 (jmp)* wypiszmout txa ldx #chnD}0 sta io_len,x clc tya adc dtaa sta io_adr,x lda #0 sta io_lenE}+1,x adc dtaa+1 sta io_adr+1,x lda #putt sta io_com,x jmp ciov*--- pobierz teksF}tget_text jsr dsp_msg ldx #chn0 lda #gett sta io_com,x lda txta sta io_adr,x G} lda txta+1 sta io_adr+1,x sta io_len+1,x jmp ciov*--- wypisywanie liczbpwor jsr pheH}x txaphex pha jsr pxdig pla lsr @ lsr @ lsr @ lsr @pxdigI} and #%00001111 ora #'0' cmp #'9'+1 bcc *+4 adc #6 sta stat,y dey J} rts*--- wypisz statusdsp_stat equ ** wykorzystywane lda used ldx used+1 ldy  3e003e003e0000000000000000H 00000000}00003e003e003e003eR 003e003e000000000000000000\ 00000000003e003e003e003e00f 3e003e003e0000000000000000p 00000}00000003e003e003e003ez 003e003e000000000000000000 00000000003e003e003e003e00 3e003e003e5152525252525252 52}5252457c2b6f6e6965630067 72797c5a5252525252525252525243e002e1020088 D:KULKI.BAS03e5152525252525252 52b$%P e MVFLRESAIOCCMBUSICN 4} $$$$ʮ®4}$$㩠頠$$ (>:A%,Zgrywus+( 11;A5}23TXGLICTEMTEMTEMTEMCOBULSADRE} %%****}***************************%%*PROGRAM DO ODBIORU FACSIMILE *##* II.1992 *%%* Witold Prokopo}wicz *%%******************************* %-A6Ap"!% 5);@,;@,;@},56-AH A6-@( AP2+@%@@<'A @'AF}6-?:A6<<<<,P A`ZG%2@@@@G2@@@@d-@@} nG%2@@@G2@@@x.@.@@K:})@>:,4T Ap A @@!!***************************WYPIS GRAFIKI 8 NA DYSK}8@8@@A( D:A23450.FAC)6-%@!@)6-+%@@+%}@AU.%@ @).%@F:@,)%@F:@,)6-?:Ae,@$!!}***************************NADAWANIE PARAMETROW1 +A @1A%%(  } %%(  WYBIERZ "%%( TEMPO ODBIORU FACSIMILE ,%%(  }6%%( @%%(  J%%(  1 --> 60 linii/min T%%(  2} --> 90 linii/min ^%%(  3 --> 120 linii/min h%%(  SPC-> tyle ile jest r%%(  (a jes}t ) |%%(  %%(  %%(  wybierz 1/2/3/SPC %%}(  naciskaj >START< %%(  %%( -@$@}(6-.@.@@K:)@6-&@H"6@6-&!@}) @# A@&$A@APA`$!!***************************TEM3 WARTOSCI OD 1 DO 17}$$TEM4 ->TYLKO 236,157,14,30,161$$KOLEJNO OD 4 DO 8 CYKLI ZEGARA66-AU6-AU'6-AC36-A66$}&66-AU6-A&'6-@36-A66$066-AU6-@'6-@36-@06$:!!************}***************DNAZWA OBRAZKANDO ZAPISU NA DYSKXI DO WPISANIA NA EKRANb1 +A @1A}l%( (%( NAZWA OBRAZKAv( max. 5 znakow-@@ B:,!@ A} 6.SYNTEZA WIERSZA 180C +-@@.6-F:A ,CA F:A,GG(180 CLOSE#1}:OPEN#1,8,128,>:@4,D:.FAC>:@4, (CONT'-@'AB@&!AB@}!A $""****************************NAPIS NA OBRAZKU W GR.8 6.6.=:, 67B:,%@,}.-@B:, 6-@:7<,,*%%6-F:@,%AV$F:@,4 6-%>-@H22%$@@}F:BsD%+&@2,$@%,R \   6.f$p!!***************************zUU104,104,104,141,195,006,1}04,104,141,200,006,104,104,141,205,006,104,104,141,209UU006,173,031,208,201,006,208,249,120,165,088,141,061,006,141,074,0}06,141,226,006UU165,089,141,062,006,141,075,006,169,192,141,228,006,169,040,141,227,006,162,008UU173,080,129,029,217,}006,172,016,208,240,008,208,000,141,080,129,076,087,006,141UU255,255,234,234,076,087,006,032,194,006,202,208,223,032,164,}006,206,227,006,208UU213,173,031,208,240,056,169,040,141,227,006,162,008,173,080,129,029,217,006,172UU016,208,240,008},208,000,141,255,255,076,138,006,141,255,255,076,138,006,032,194UU006,202,208,225,032,179,006,206,227,006,208,215,173,031},208,240,005,206,228,006UU208,147,088,096,238,061,006,238,074,006,208,006,238,062,006,238,075,006,096,238UU255,255,23}8,226,006,208,006,238,255,255,238,255,255,096,160,255,032,213,006,160UU100,032,213,006,160,008,032,213,006,234,234,234,09}6,136,208,253,096,000,001,002AA004,008,016,032,064,128,000,000,000,104,162,016,076,086,228 D8:FAX.BAS4,234,234,09qO*FCOTOI$$***************************}***$$* SCROLL GRAFIKI 8 *$$* Witold Prokopowicz *$$****************************** %-A6}Aa"!% ';@ ,;@ ,'6-AHWYDRUK KATALOGU DYSKU(TYLKO ZBIOROW *.FAC2J(>:A}%, @p%@J@@D:*.FAC<0@("@&(0 @`FC((( PO}DAJ NAZWE PLIKU DO ODCZYTU?((BEZ ROZSZERZENIA)Cd4 6.D:67@,.467B:,%@,..FAC6-@ A}+@%@@'A @'A{%@@+%@M%@} F:AB,&F:AE,d%@F:@,{%@F:@,6-?:AV,@.@.@}@K:)@>:,4+6-?:A6,>:,4Z AP>:,4N @P A}6-@ A +%@@+%@AU.%@ @).%@F:@,)}%@F:@,)6-?:AV,"@ @P,!!***************************6 @P@%@%@}A(J$TUU104,165,088,141,035,006,141,050,006,141,053,006,141,067,006,165,089,141,036,006^--141,051,006,}141,054,006,141,068,006,169h 192r))141,109,006,173,255,255,141,107,006|UU169,040,141,108,006,162,000,160,001,185,25}5,255,157,255,255,232,200,206,108,006UU208,243,173,107,006,202,157,255,255,024,173,035,006,105,040,141,035,006,141,050}UU006,141,053,006,141,067,006,144,012,238,036,006,238,051,006,238,054,006,238,068--006,206,109,006,208,184,096,000,000,0}00--006,206,109,006,208,184,096,000,000,000104,162,016,076,086,228 D8:SCROLL.BAS9,006,208,184,096,000,000,0b""*--------------------------*"": JetCopy :"": autor: Dariusz Zolna :"": ( }c) 1992 Tajemnice ATARI :""*--------------------------* ffff00804c85a655e88e2485a5 5438e9051002a9008d25852056 } 84ad2485186901ae2585e820e8 84a00bb9878591b08810f8a9ff 8dfc02a614acfc02c8d01ba414$ c414f0fca514290fd00ba00bb }1. b0498091b08810f7e414d0dfa98 ff8dfc02200a84a20520b983a9B 008d2785ad188518690285b6adL 1985690085b720bc809003 }4c04V 8420de84a00bb1b0994d858810` f8a20b20b98320de84a5b085b6j a5b185b720e381a9008d2785adt 1a8518690285b6ad1b8 }5690085~ b720bc8090034c54804cef8120 de84a00bb1b0297fcc2785d002 098091b08810f020cb83ad2785 f014ad2685c97ed0 }0dce278520 de84ac2785a98091b0ad2685c9 1cd00ead2585f00920a884ce25 85205684ad2685c91dd010ad25 85c915b00920a }884ee25852056 84ad2685c91ed019ad2785f006 ce27854c3981ad2485f00920a8 84ce2485205684ad2685c91fd0 1dad2785c9 }0bb006ee27854c5d 81ad2485c91ab00920a884ee24 85205684ad2785c90bb016ad26  85c920900fc960b00bac278520 438491b }0ee2785ad2685c91bd0 023860c99bf0034cbc8020de84( a00bb1b0297f91b08810f7a0ff2 c8c008b005b1b0f0f788a2ffe8< c8b1 }b0202a84c920f00cc92ef0F 089d4d85e00890ea88a92e9d4dP 85e8c8b1b0f0fb98a000200385Z a000b1b0202a849d4d85e8c8c0d 0 }390f2a99b9d4d85a00bb94d85n 91b68810f81860a005a9d2997dx 858810fa20a88420568420de84 a9008d28858d2985a9ff8d2c85 } a00bb99f8591b08810f820cb83 c91bd0034c5480a00fb92d8599 4d858810f7a210209383a210a9 04207c831003202783a00bb99f } 8591b08810f8ad2885f01420cb 83c91bd00da210209383a22020 93834c5480a9008d2a85ade602 38ed2185a8888c2b85a210a9 }07 209b83100cc088f003202783a9 018d2985ee2c85a210bd48038d 2a85bd49038d2b85ad2985f003 209383a00bb9ab8591b08 }810f8 20cb83c91bd00da210209383a2 202093834c5480ad2885d026a0 0fb93c85994d858810f7a220a9" 08207c83100d202783 }ad2685c9, 1bd0bf4c5480a9018d2885a2206 a90b209b83100a202783ad2685@ c91bd0edad2985d0034c3f82adJ 2c85d010a220209 }383a9008d28T 85200a844ca182a210209383a2^ 202093834c54808a4898482093h 836885d4a90085d520aad920e6r d8a200ad8005 }c930d001e8a000| bd800508204384098099bf85e8 c82810efa00bb9b78591b08810 f8a00a9848200a8468a88810f6 20cb8368c }910f0016068684c54 809d4a03a9039d4203ad1c859d 4403ad1d859d45034c56e4a90c 9d42034c56e49d4203ad20859d 4403ad }21859d4503ad2a859d48 03ad2b859d49034c56e4a005bd 9385997d85ca8810f620a8844c 5684a230a9039d4203ad1e859d 440 }3ad1f859d4503a9049d4a03 2056e4a9059d4203a9009d4803 9d49032056e448a90c9d420320 56e4688d26856020a8846c0a00  }a046a9088d1fd0a2058d0ad4ca 10faa9008d1fd0a2058d0ad4ca& 10fa8810e36008297fc940b00c0 69204c3d84c960b00338e94028: } 100209806008297fc960b006e9D 1fb0026960281002098060ad24N 85ae258520e884ad148585b2adX 158585b3ad168585b4ad178585 }b b5a20ba034b1b09d6c8588ca10l f7a202a00db1b091b4b1b291b0v 8810f5a928a000200385a90ea0 02200385a90ea004200385c }a10 db60a514c514f0fcad2485ae25 8520e884ad168585b2ad178585 b3a202a00db1b291b08810f9a9 28a000200385a90ea002 }200385 ca10e660ad2485186901ae2585 e848a55885b0a55985b168a000 200385ca100160a9282003854c f7841879b00099b00 }0a90079b1 0099b10060005d85c3852d853c 854d854b85ed85000000000000 0000000000443a202020202020 2020202020209b }443a20202020 20202020202020209b4b3a5d85  c285d1d280aae5f480a3afb0b9 80d2c5fc000000000000000000  000000fcdad }2d2d28080808080* 80d2d2d2c322791a0000240e3a4 6f6c6e61b3afb5b2a3a5b4a1b2> a7a5b4b2e5e1e480f3eff5f2e3H e580b7f2 }e9f4e580f4e1f2e7e5R f480a5b2b2afb2809a80909080\ ed85a586a90085cfa90085d2a9f 8085d3ade70285d48de002ade8p 0285d }58de10238a5d2e5d485d0z a5d3e5d585d1a000f0033866cf a5d2c9eda5d3e98590036ce702 24cf70613025b1d291d4209986 aa }f0e0c920f017c940f0dbc960 f0d7290dc908f0d190418a291f c909f03ab1d2c8c900b1d288e9 809012b1d2c8c9eeb1d288e985 }b006a5d0a6d1900724cf30a3a9 00aa85d686d738b1d2e5d691d4 209986b1d2e5d74c9186b1d291 d42099864c1d86e6d2d002e6d3 } e6d4d002e6d560e002e102ed85 D8:COPY.BAS2e5d691d4 209986b1d2e5d74c9186b1d291 d42099864c1d86e6d2d002e6d3 2 opt %010101*----- system ------------------dosvec equ $0apokmsk equ $10vtimr1 equ $0210stick0 equ $0278strig0 e$}qu $0284audf1 equ $d200kbcode equ $d209stimer equ $d209irqen equ $d20eskstat equ $d20ffrq equ 127 org $60$}0*----- main --------------------main lda myint sta vtimr1+1 lda #frq$} sta audf1 lda pokmsk ora #1 sta pokmsk sta irqen sta stimer jmp (dosvec)*$}----- my pokey interrupt ------myint txa phajmove ldx #15 lda skstat and #%00000100 bne jfir$}e lda kbcode ldx #3chkkey cmp keytab,x beq setjoy dex bpl chkkey bmi jfiresetjoy$} lda joytab,x taxjfire txa and #15 sta stick0 lda skstat and #%00001000 bne myin$}tx sta strig0myintx pla tax pla rti*----- data --------------------keytab dta b(14) d$}ta b(15) dta b(6) dta b(7)joytab dta b(14) dta b(13) dta b(11) dta b(7) org $2e0$} dta a(main) end dta b(7)joytab dta b(14) dta b(13) dta b(11) dta b(7) org $2e0$%sN (P:',.'-@@6-+&P:',$,$@J(P:',(}N  D8:DZIEL.BASN (P:',.'-@@6-+&P:',$,$@J(P:',(%L_+@"AR@,@86-BBvJA ,}V6-B(RhB0@zB0@U@(( P-(%ROGRAM RUCH * * * * * * * * * * * ,}A-@@S,A@S/@9$G:@ $,%A@9$E:@ $,%@S Q-@@@p,}?.F:@ ,4CF:@ ,G Q @f-@@6?1AU&F:@ ,7NAU&,}F:@ ,R \ @f @C -@u6?P<2@@@ C$ D8:RUCH.BAS&,yXANSKPK h;@,+0}46-F:@,&@H-@@P1d67&@,.>:,h : 6-A:,:6-%@$+!A ,%@0}$+"A,Au'Av@96. REM DATA e6-@$+"A,%@$+!A ,6-@1}$+"@,%A$+"@,(r (} (-%86-@%@$+!A ,F6-%@Q(7<,U ](RU1}No-r D8:WKLEP.BAS-%86-@%@$+!A ,F6-%@Q(7<,U ](RU01,;@,;A ,;A),/6-A66-Ad/6-A2%@-6-%@6-%@-6-%@5}!6.hhhLV6-! @"%" 6-%@% @ )6-?:%6-P:'AV,%6-P:'AV,@!&AV$!%@B!&AV$!%@D65 }-?:C:,<@,$Fd""--- READER -----------------n""162,4,104,149,224,202,16,250x!!232,134,212,134,213,165,135 }6 133,230,165,137,133,231,76!!35,6,56,165,230,101,232,133!!230,144,2,230,231,160,2,177230,133,232,198,232,5 }160,0!!177,230,197,224,200,177,230!!48,54,229,225,144,222,160,4 177,230,201,1,208,36,160,5!!196,232,176,208,5 }32,109,6,10!!10,10,10,133,228,32,109,6,5228,129,226,230,226,208,2!!230,227,230,212,208,226,230213,208,2225},165,212,5,213240,172,96,177,230,200,41""223,201,65,144,2,233,7,41,15 96,END""--- LOADER -----------------5}"""0001000750E4A2018609BD040795,""0C9DE0028E4402863DCA10F08EE76""02206E073044852C206E07852D25@""2CC9FFF0EE206E0785}52E206E0785J""2FA97F8DE202A9078DE302A52EC5T""2CA52FE52D9010206E07302D8891^""2CE62CD0EAE62DD0E62063071890h""BA6CE25}02A93C8D02D36CE002A43Dr""CC8A0290034C7AE4B90004E63DA0| 0160##--- SAVER -------------------""A2046895E0CA10FA205}CF06306A85""F885E420CF0685F985E525F8C9FF""F0EA20CF0685FA20CF0685FB20CF""06304AE6E4D002E6E5A5FAC5E4A5""FBE5E5B5}0EBA5FAC9E3D0C5A5FBC9""02D0BFA9BF853ED0B9A000A5E2C5""E0A5E3E5E1B013B1E2E6E2D002E6""E3A43D990004C83005843DC888605}A210482056E46838263EC860 D:ZGRYWUS.BAS5E2C5""E0A5E3E5E1B013B1E2E6E2D002E6""E3A43D990004C83005843DC8886042B%DOS SYSB )CP SYSB-5TACOPY ASMB bARROW BASBkMONITOR BASB!sKULKI BASB#FAX BASBSCROLL BASB#COPY BASB JEMU ASMBDZIEL BASBRUCH BASBWKLEP BASBZGRYWUS BAS