@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`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.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1: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 ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.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- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} 10 DIM PL$(13)20 OPEN #1,6,0,"D:*.*"30 TRAP 60:INPUT #1,PL$40 PRINT PL$50 GOTO 3060 CLOSE #1b ~PL ;@,&&@@D:*.* @`@( 2 @0U}<@ D:DIR.BAS;@,&&@@D:*.* @`@( 2 @0 1 REM PRZEWIJANIE NAPISU2 REM JAKUB GAWLIKOWSKI3 REM COPYRIGHT (C) BAJTEK4 REM 10 GRAPHICS 0:DL=PEEK(560)+256*PEEK(561)2W}0 POKE DL+25,87:POKE DL+26,0:POKE PL+27,64:POKE DL+28,030 FOR I=1700 TO 1709:READ A:POKE I,A:NEXT I40 FOR I=1536 TO 1577:REX}AD A:POKE I,A:NEXT I50 POKE 8192,15:POKE 8193,0:POKE 8194,64:A=USR(1700)60 DATA 104,162,6,160,0,169,7,76,92,22870 DATA 173Y},1,32,141,58,156,173,2,32,141,59,156,173,0,32,141,4,212,201,0,240,6,206,0,3280 DATA 76,98,228,169,15,141,0,32,238,1,32,238,1Z},32,76,98,22856,173,2,32,141,59,156,173,0,32,141,4,212,201,0,240,6,206,0,3280 DATA 76,98,228,169,15,141,0,32,238,1,32,238,1'?UDPPRZEWIJANIE NAPISUJAKUB GAWLIKOWSKICOPYRIGHT (C) BAJTEK\} / +/6-F:A`,%AV$F:Aa,S%@%@+%@&?%@'@dS%@(g}XG\LINIAODKOKODKOD}EDYTOR BASICA } ^}wersja 1.1 dla "Bajtka"});A ,@)@}C#@@E:C@@ _}E:(}6(>:A%,"-@@6(Ҡ2}8 B @-@@8(Wpisz linie programu<}O-@ `}@( (@/4A-@@EO B `F}S7@<@,4*36-A:7@:A%,"-@@6(ҠH-@@L}6-6-}L-@ c}@"@)4B(LINIA  USUNIETAL B P}:-@B:,"6-%@66-%+$@:7<,,,: } d}6-P:'Av,}6-&$Av}6-P:'@&,}6-&+$@&,%A}6-%A}!-@! e}(>:,>:,}b-@@X(>Jezeli kod sie nie zgadza, nacisnij Π i popraw linie.b B P D:EDYTBAS f}.BAS>:,}b-@@X(>Jezeli kod sie nie zgadza, nacisnij Π i popraw linie.b B P D:EDYTBAS %-AA "!% (%-A6Aw"!% 2HA@'Ah}9A@dH6-?:A,<%%104,162,6,160,0,169,7,76,92,228FUU173,1,32,141,58,156,173,2,32,141,59,156,173,0,32,1i}41,4,212,201,0,240,6,206,0,32P;;76,98,228,169,15,141,0,32,238,1,32,238,1,32,76,98,228D:PRZEWIJA.BAS156,173,0,32,1o;Input/Output w Action!;Wojciech Zientara;Copyright (c) Bajtek;Zmiana nazwy pliku dyskowego;np. Rename("D1:STARY.ACT,NOW k}Y.ACT")PROC Rename(Byte ARRAY plik) XIO(5,0,32,0,0,plik)RETURN;Skasowanie pliku dyskowego;np. Delete("D2:PROGRAM.AC l}T")PROC Delete(BYTE ARRAY plik) XIO(5,0,33,0,0,plik)RETURN;Zabezpieczenie pliku dyskowego;np. Lock("D1:PROGRAM.ACT" m})PROC Lock(BYTE ARRAY plik) XIO(5,0,35,0,0,plik)RETURN;Odbezpieczenie pliku dyskowego;np. UnLock("D1:PROGRAM.ACT") n}PROC UnLock(BYTE ARRAY plik) XIO(5,0,36,0,0,plik)RETURN;Formatowanie dyskietki;np. Format("D1:")PROC Format(BYTE A o}RRAY stacja) XIO(5,0,254,0,0,stacja)RETURN;Podstawowa procedura I/OPROC CIO=$E456(BYTE akum,xreg);Pomocnicza proc p}edura transmisjiCARD FUNC Block(BYTE kan,tryb, CARD adr,dlbuf) TYPE IOCB=[BYTE id,num,cmd,stat q} CARD badr,padr,blen BYTE a1,a2,a3,a4,a5,a6] IOCB POINTER iptr kan==&$07 iptr=$340+(kan LSH 4) iptr. r}cmd=tryb iptr.blen=dlbuf iptr.badr=adr CIO(0,kan LSH 4)RETURN(iptr.blen)CARD FUNC BGet(BYTE kan CARD adr,dlug) C s}ARD temp temp=Block(kan,7,adr,dlug)RETURN (temp);Zapis bloku danych;np. BPut(1,32768,1024)PROC BPut(BYTE kan CARD a t}dr,dlug) Block(kan,11,adr,dlug)RETURN;Podstawowa procedura dyskowaPROC DSK=$C6B5(BYTE akum);Pomocnicza procedura u}dyskowaBYTE FUNC Sector(BYTE drv,tryb, CARD adr,secnum) TYPE DCB=[BYTE dev,num,cmd,stat CAR v}D badr BYTE tout,unus CARD cntr,aux] DCB POINTER dptr=$300 drv==&$07 dptr.cmd=tryb IF tryb=$50 OR tryb= w}$57 THEN dptr.stat=$80 ELSE dptr.stat=$40 FI dptr.aux=secnum dptr.badr=adr drv==+$30 DSK(drv)RETURN(dptr x}.stat);Odczyt sektorow dyskowych;np. GetSec(1,$169,1536,2)BYTE FUNC GetSec(BYTE stacja CARD nsek,adr,ls y}ek) CARD i BYTE temp FOR i=nsek TO nsek+lsek-1 DO temp=Sector(stacja,82,adr,i) adr==+128 ODR z}ETURN(temp);Zapis sektorow bez weryfikacji;np. PutSec(1,4,$4000,5)PROC PutSec(BYTE stacja CARD nsek,adr,lsek {}) CARD i FOR i=nsek TO nsek+lsek-1 DO Sector(stacja,80,adr,i) adr==+128 ODRETURN;Zapis se |}ktorow z weryfikacja;np. WrtSec(1,4,$4000,5)PROC WrtSec(BYTE stacja CARD nsek,adr,lsek) CARD i FOR i=nse }}k TO nsek+lsek-1 DO Sector(stacja,87,adr,i) adr==+128 ODRETURN;Odczyt statusu stacji dyskow;np. ~}DrvStat(1)BYTE FUNC DrvStat(BYTE stacja) BYTE temp temp=Sector(stacja,83,0,0)RETURN(temp)atusu stacji dyskow;np. djscie do menu programu."3120 ? " Opcja dziala tylko w czasie defi- niowania znaku!"3125 GOSUB 100003130 KEY=KEY-48}3135 IF KEY=1 THEN 31503140 IF KEY=2 THEN 203145 GOTO 31253150 ? CHR$(125)3155 POSITION 2,233160 ? "Ů";31}65 IF K2>=0 AND K2<32 THEN AD=(K2+64)*83170 IF K2>=32 AND K2<96 THEN AD=(K2-32)*83175 IF K2>=96 AND K2<128 THEN AD=K2*8318}0 FOR I=0 TO 73185 S=PEEK(AD+ADRES+I)3190 FOR J=1 TO 83195 MAT(I+1,J)=S-INT(S/2)*23200 S=INT(S/2)3205 NEXT J3210 NEXT I}3215 GRAPHICS 2+163220 SETCOLOR 0,1,15:POKE 710,63225 FOR I=0 TO 73230 POSITION 7,2+I3235 FOR J=8 TO 1 STEP -13240 IF M}AT(I+1,J)=1 THEN ? #6;"0";3245 IF MAT(I+1,J)=0 THEN ? #6;"";3250 NEXT J3255 NEXT I3260 POSITION 6,2:? #6;"+"3265 IF STI}CK(0)<>7 THEN POSITION 6,2:? #6;" ":GOTO 32603270 POSITION 6,2:? #6;" ":PKW=2:PKK=73275 POSITION PKK,PKW3280 ? #6;" "3285} IF STICK(0)=15 AND PEEK(764)=255 AND STRIG(0)=1 THEN POSITION PKK,PKW:? #6;"+":GOTO 32753290 IF STRIG(0)=0 THEN MAT(PKW-1,1}5-PKK)=ABS(MAT(PKW-1,15-PKK)-1):GOSUB 300003295 IF PEEK(764)=30 THEN POKE 764,255:GRAPHICS 0:POKE 710,0:POKE 752,1:SETCOLOR }1,1,15:GOTO 203300 IF PEEK(764)=26 THEN POKE 764,255:GOTO 34553305 IF PEEK(764)<>255 THEN POKE 764,2553310 IF STICK(0)=14 }THEN GOSUB 3335:GOTO 33303315 IF STICK(0)=7 THEN GOSUB 3365:GOTO 33303320 IF STICK(0)=13 THEN GOSUB 3395:GOTO 33303325 IF }STICK(0)=11 THEN GOSUB 3425:GOTO 33303330 GOTO 32753335 POSITION PKK,PKW3340 IF MAT(PKW-1,15-PKK)=1 THEN ? #6;"0"3345 IF }MAT(PKW-1,15-PKK)=0 THEN ? #6;""3350 PKW=PKW-13355 IF PKW<2 THEN PKW=93360 RETURN 3365 POSITION PKK,PKW3370 IF MAT(PKW-}1,15-PKK)=1 THEN ? #6;"0"3375 IF MAT(PKW-1,15-PKK)=0 THEN ? #6;""3380 PKK=PKK+13385 IF PKK>14 THEN PKK=73390 RETURN 339}5 POSITION PKK,PKW3400 IF MAT(PKW-1,15-PKK)=1 THEN ? #6;"0"3405 IF MAT(PKW-1,15-PKK)=0 THEN ? #6;""3410 PKW=PKW+13415 IF} PKW>9 THEN PKW=23420 RETURN 3425 POSITION PKK,PKW3430 IF MAT(PKW-1,15-PKK)=1 THEN ? #6;"0"3435 IF MAT(PKW-1,15-PKK)=0 TH}EN ? #6;""3440 PKK=PKK-13445 IF PKK<7 THEN PKK=143450 RETURN 3455 GRAPHICS 0:POKE 752,1:POKE 710,0:? CHR$(125)3460 SETC}OLOR 1,1,15:POSITION 2,233465 ? "Šծ";3470 FOR I=1 TO 83475 S=03480 FOR J=0 TO 73485 S=S+2^J*M}AT(I,J+1)3490 NEXT J3495 POKE AD+ADRES+I-1,S3500 NEXT I3505 RCH(K2+1)=13510 GOTO 204000 REM ***** ˠ ****}*4005 ? CHR$(125)4010 ? " ŠՠϠ"4015 POSITION 2,54020 ? "Wcisnij znak, ktoremu chcesz przyw}ro- cic standardowa postac!"4025 GOSUB 10000:K2=KEY4030 IF RCH(K2+1)=1 THEN 40404035 ? :? "Znak ";CHR$(K2+128);" nie jest }przedefiniowany!":GOTO 40904040 ? :? "Czy to ten znak ";CHR$(K2+128);" (T/N)?"4045 GOSUB 100004050 IF KEY<>84 AND KEY<>116} THEN 40004055 IF K2>=0 AND K2<32 THEN AD=(K2+64)*84060 IF K2>=32 AND K2<96 THEN AD=(K2-32)*84065 IF K2>=96 AND K2<128 THE}N AD=K2*84070 FOR I=0 TO 74075 POKE AD+ADRES+I,PEEK(57344+AD+I)4080 NEXT I4085 ? :? "Znak ";CHR$(K2+128);" przywrocony!":}RCH(K2+1)=04090 POSITION 2,15:? "պ"4095 ? :? " - powrot do menu programu."4100 ? :? " - przywracanie nastepnego zna}ku,"4105 GOSUB 100004110 KEY=KEY-484115 IF KEY=1 THEN 204120 IF KEY=2 THEN 40004125 GOTO 41055000 REM ** Ԡ}Ƞ **SUB 100004110 KEY=KEY-484115 IF KEY=1 THEN 204120 IF KEY=2 THEN 40004125 GOTO 41055000 REM ** Ԡ 4545KEMATRCHSGENNAMADREKOWRCHAKAPKPK@@} $$***** Ӡ}Ҡ *****$$Copyright by A.Szyndrowski' 88$$****************************** "AfAX" B }A AՠŠ B6-&@H#"@A("@A }-"@A02"@A@7"@AP<"@A`A"@ApF }@%d##******* *******iDD9@<@,9A(,;@6,;A$,;@,n??67@}<@6,.$çŬ̯Χϧӧڮڧs-@A(x<#!@'* @3)!A%268,-@< }A0}68,- * AF:A,&@*+6-+F:A,%@,4P:'@,$@}*6-%@4 AE6-$AV(>:A%,AA/0@@@AAR@}-@,,($àȠҠӠĠŠӠɠǠΠŠҠ-@@(Polish Version 2.0-@}@#--($㩠駠-A#%F:BsD%, $,##*******}* ՠ ********1(>:A%,6-@@;##(͠ŠΠՠРҠϠǠҠ͠ՠ@-@@EKH(@ }- wyswietlenie tabeli znakow i kodow standardowego zestawu,K(JC@(8 - wyswietlenie zestawu znakow prze- definiowan}ych,C(O-'( - projektowanie nowego znaku,*(-(T3-(% - przywrocenie znaku standardowego,0(3(Y/)(! - projektowa}nie polskich liter,,(/(^C@(8 - zapis generatora znakow na tasme lub dyskietke,C(c!!( - zakonczenie programu.}h$""**** נ ****-@(>:A%,''( נ٠נ-}@@ (znak(kod-@ -@/6-@%$@/6-@%$@} -6-$@2%$@%""8%@,"@A$& -&(>:,>:AS,>:A`,)4-%@}4(>:@!,>:A@,>:A`,.4-%@4(>:A`,>:A`,>:A`,3-%@(8 = }B-@@#G(Dalej ?.. (T/N)L BQ!!"@)"AA V&"@x)"A'& @} [ A` e @ ""** נ **(>:A%,++(# ננ}Ƞ-@@(պL(L(A - Wyswietlenie ekranu ze wszystkimi znakami nowego zestawu.II(A} Znaki wyswietlone sa rzedami wg wzrastajacych kodow.@=(5 Nowe znaki wyswietlone sa w trybie odwroconym}.@(mm(e - Powrot do menu programu. Opcje te nalezy wybrac teraz lub po wyswie- tleniu nowych znakow. B}6-&@H"@@  @A E(>:A%,AV'AV-@} -@%))-@%@$@%@$*6-$@%/!8%@,"!(>:,4)8}%@,"@)(>:%A(,9 > C BH6-&@HM@A!RAVA$W } @  ** ԠϠ ** (>:A%, ((( ŠϠՠ -@@ ))(}!Wcisnij znak do przedefiniowania! B 6- 4(4(Czy to ten znak?.. >:%A(, (T/N) B !}!"@x)"AA0 !!@*AA0@ ""8%@,"A0 7(7(Znak >:%A(,} byl przedefiniowywany. ::(2Czy rezygnujesz z jego poprzedniego wzoru? (T/N) B !!"@x)"A@}  !!@*AA0p -(>:A%,"-@@-(պ T(T(I - Rozpoczecie projektowania z}naku. Do projektowania uzywa sie joy- RR(J sticka, ktory steruje kursorem. Przycisk FIRE sluzy do przedefi-} 99(1 niowywania pola, ktore wskazuje kursor.! l(l(a - Rezygnacja z wprowadzonych przez uzytkownika zmia}n i przejscie do menu programu.& MM(E Opcje mozna wybrac teraz lub w trakcie definiowania.+ R(R(}G - Potwierdzenie dokonanych zmian i przejscie do menu programu.0 AA(9 Opcja dziala tylko w czasie defi- ni}owania znaku!5 B: 6-&@H? "@A1PD "@@ I A1%N (>:A%,S -}@@#X (Ů] 1* @216-+%@d,$@b 1@2* @16-+&@2},$@g '@* A('6-$@l -@q 6-F:%%,v -@@{ ++68%@}<,-&P:'@,$@ 6-P:'@,     +@%@ /0@@/A}@ -@ -@@% -@@6@ ,8%@<,"@,(@}0 ,8%@<,",(@     $-@@$(@+ CR:,@*-}@@9(@ C A2` <-@@$(@ 06-@<6-@ - (@}  ]>R:,"@*F:Ad,"AU*T:,"@D-S(@+] A2u ]T:,"S68}&@<@&,-O:8&@<@&,&@,] B |F:Ad,"@0*AdAU4+FA}XAR@r0@@@| @  4F:Ad,"@&*AdAU4 A4U *F:A}d,AU*AdAU ,R:,"@" A35, A30 ,R:,"@" A3e, A30 ,}R:,"@" A3, A30 ,R:,"@" A4%, A30 A2u - 3$8&@<@}&,"@3(@0 3$8&@<@&,"3(@ 6-&@  @6-@ } $% -* 3$8&@<@&,"@3(@0/ 3$8&@<@&,"3(@4 6-}%@9 !@6-@> $C -H 3$8&@<@&,"@3(@0M 3$8&@<@}&,"3(@R 6-%@W !@ 6-@\ $a -f 3$8&@<@&,"@3}(@0k 3$8&@<@&,"3(@p 6-&@u  @6-@z $ > +}AR@1A>(>:A%, /0@@@/-@@# &&(}ծ -@@ 6- -@ ""6-%@#$8<%@,   %%&}@   68%@,-@ @ ""***** ˠ *****(>:A%,,,($ }ŠՠϠ-@@EE(=Wcisnij znak, ktoremu chcesz przywro- cic standardowa postac! B}6-""8%@,"@A@@D(:(Znak >:%A(, nie jest przedefiniowany!D A@2(2(Czy }to ten znak >:%A(, (T/N)? B!!@*AA@1* @216-+%@d,$@}1@2* @16-+&@2,$@'@* A('6-$@-@%}%F:BsD%%, D(-(Znak >:%A(, przywrocony!D68%@,- -@@ (պ}'('( - powrot do menu programu.-(-(" - przywracanie nastepnego znaku,  B6-&@H"@}@ "@A@ AA""** ԠȠ **(>:A%,**(" Š}ȠҠ-@@(պH(H(= - pelny zestaw polskich liter o ko- dach standardowych,c}(c(X - dowolny zestaw polskich liter o kodach wybieranych przez uzyt- kownika,'('( - powrot do menu }programu. B6-&@H"@AQ"@AS"@@  AP@}(>:A%,,,($ ٠נȠҠ(( litery male:+-@$@+(n' - 14, +}//(&a, - 1, + o' - 15, +//(&c' - 3, + s' - 19, + //(&e, - 5, + z. -} 26, +..(&l/ - 12, + z' - 24, +( litery duze:+-@$@+(N' - 95,+}//(&A, - 37,+ O' - 92,+#//(&C' - 38,+ S' - 94,+(//(&E, - 39,+ Z. -} 93,+-1.(&L/ - 64,+ Z' - 91,+1(2oo(gJesli ktorys z proponowanych kodow byl wczesniej prz}edefiniowany, zosta- nie zdefiniowany na nowo!!!71(1(%Czy zgadzasz sie na ten zestaw? (T/N)< BA!!@}*AAPF(>:A%,K-@@#P''(Š׮U #AReZ-@}_"d1* @216-+%@d,$@i1@2* @16-+&@2,$@n68%@},-@s-@x"} %%   @ 1,0,0,60,6,62,102,62,123,12,24,6}0,96,96,96,60,05,0,0,60,102,126,96,62,1212,0,56,24,60,24,24,60,0$$14,12,24,124,102,102,102,102,0""15,12,2}4,60,102,102,102,60,019,12,24,62,96,60,6,124,0!!26,24,24,126,12,24,48,126,0!!24,12,24,126,12,24,48,126,0##3}7,0,24,60,102,102,126,102,12!!38,24,60,102,96,96,102,60,0""39,0,126,96,124,96,100,126,4""64,0,96,108,120,112,96,1}26,0$$95,24,86,102,118,126,110,102,0##92,24,60,102,102,102,102,60,094,24,60,96,60,6,6,60,0!!93,24,126,12,24},48,96,126,0!!91,24,126,22,12,24,48,126,0-@(>:A%,,,($ ҠȠҠɠȠ}נ-@@77(LITERA: 7@$%@<@$%@,-@@(պ((((} - rezygnujesz z tej litery,%(%( - definiujesz te litere,'('( - powrot do menu programu. B6}-&@H"@' @ "@AT@ASP#ARe%.(.(#Wcisnij znak do} zastapienia litera!  B6-33(Czy to ten znak... >:%A(, ? (T/N) B1@*A}'6-&@1 AT""8%@,"AT@"##(Znak byl przedefiniowywany!'??(7Czy rezygnujesz z jeg}o poprzedniego wzoru ?... (T/N), B1!!"@)"AAT@61"@x)"A'6-&@1 AT}; AT @"E1* @216-+%@d,$@J1@2* @16-+&@2,$@O}'@* A('6-$@T-@Y"^ %%c h68%@,-@m r }@ p""***** Ӡ *****u(>:A%,z,,($ Ӡנˠ Ai-@}@(Podaj nazwe zbioru!6. ??7@<@,0C*7@<@,0DAi}+@+@@-A#*@F:%, -@@(}պJ(J(? - informacje o sposobie uzywania generatora z nosnika,'('( - powrot do menu programu. B}6-&@H"@@ @A`(>:A%,++(# ŠϠŠ}נe-@@e(KZapisany generator znakow mozna wczy- tywac z nosnika podprogramem o nazwie))(! ** ChD's Ge}nerators Loader **.=(=(2Wywolanie podprogramu instrukcja GOSUB 31000.I(I(>Mozliwa jest renumeracja podprogra}mu. Linie 0-2 mozna pominac.^(^(SDla stacji dyskow w instrukcji OPEN zmiast C: wpisac odpowiednia nazwe zbioru!}:-@@":(Wcisnij (powrot do menu)! F:B2y,@Aa@ @ -(*(>:AS,Ble}dna nazwa zbioru!-(''(Wcisnij (powrot do menu)! F:B2y,@Ai B @ X""*** }Š ***](>:A%,b++(# ˠϠΠɠŠàРҠϠǠҠ͠ՠg-@@lOO(GZaprojektowane} znaki uzyskuje sie in- strukcja POKE 756,X (po wczytaniuq]](#generatora z nosnika) lub POKE 756,'AV%po wymazaniu} tego programu z pamieci.vg(g(\Instrukcje te nalezy powtorzyc kazdo- razowo po instrukcji GRAPHICS lub na- cisnieciu RES}ET.{( ((պ'('( - powrot do menu programu,/(,(! - wymazanie programu z pamieci./( B}6-&@H"@@ @Ap0--(%Potwierdz wymazanie programu... (T/N) B!!}@*A@ % +"AfAF%'!!******** ********'@'##@}@K:')@$'!A'6-&A()'55!@&* @2)!A$* A(B.'$} N!!*********** **********%N B @ 0u!!*********** **********5u%%2@@@}:u-@@?u Du%%2Iu$ D:CHARDES.BAS@@@_0 REM ***** ӠҠ *****1 REM Copyright by A.Szyndrowski' 882 REM ******************************10 CLR :POKE 5}66,158:TRAP 2000015 GOSUB 100:REM 20 GOSUB 300:REM ՠŠ25 GOSUB 1000030 KEY=KEY-4835 IF KEY=1 TH}EN 100040 IF KEY=2 THEN 200045 IF KEY=3 THEN 300050 IF KEY=4 THEN 400055 IF KEY=5 THEN 500060 IF KEY=6 THEN 600065 IF K}EY=7 THEN 700070 GOTO 25100 REM ******* *******105 DIM MAT(8,8),RCH(128),S$(36),GEN$(1024),NAM$(15)110 S$(1 },36)="çŬ̯Χϧӧڮڧ"115 FOR I=1 TO 128120 IF I>27 AND I<33 OR I>125 THEN RCH(I)=2:GOTO 130125 RCH(I })=0130 NEXT I135 POKE 106,PEEK(106)-10:GRAPHICS 0140 ADRES=(PEEK(106)+2)145 IF ADRES<>INT(ADRES/4)*4 THEN ADRES=ADRES+1:G }OTO 145150 ADRES=ADRES*256155 ? CHR$(125)160 POKE 710,0:SETCOLOR 1,1,15:POKE 752,1165 POSITION 2,0170 ? "àȠҠӠ }ĠŠӠɠǠΠŠҠ"175 POSITION 11,2180 ? "Polish Version 2.0"185 POSITION 2,23190 ? "㩠 }";195 FOR I=0 TO 1023200 POKE ADRES+I,PEEK(57344+I)205 NEXT I210 RETURN 300 REM ******** ՠ ********305 ? }CHR$(125)310 POSITION 5,1315 ? "͠ŠΠՠРҠϠǠҠ͠ՠ"320 POSITION 2,4325 ? " - wyswietlenie tabeli znakow i kodow} standardowego zestawu,":? 330 ? " - wyswietlenie zestawu znakow prze- definiowanych,":? 335 ? " - projektowanie n}owego znaku,":? :? 340 ? " - przywrocenie znaku standardowego,":? :? 345 ? " - projektowanie polskich liter,":? :? 350 ?} " - zapis generatora znakow na tasme lub dyskietke,":? 355 ? " - zakonczenie programu."360 RETURN 1000 REM **** }נ ****1005 FOR I=0 TO 31010 ? CHR$(125)1015 ? " נ٠נ"1020 POSITION 2,41025 ? "z}nak":? "kod"1030 FOR J=0 TO 31035 FOR K=0 TO 71040 KOL=6+K*4:WRS=7+J*41045 POSITION KOL,WRS1050 CHAR=I*32+J*8+K1055 IF }RCH(CHAR+1)=2 THEN 10801060 POSITION KOL,WRS:? CHR$(CHAR);CHR$(153);CHR$(160)1065 POSITION KOL,WRS+1:? CHR$(21);CHR$(140);C}HR$(160)1070 POSITION KOL,WRS+2:? CHR$(160);CHR$(160);CHR$(160)1075 POSITION KOL,WRS+2:? CHAR1080 NEXT K1085 NEXT J1090 }POSITION 2,231095 ? "Dalej ?.. (T/N)";1100 GOSUB 100001105 IF KEY=84 OR KEY=116 THEN 11201110 IF KEY=78 OR KEY=110 THEN P}OP :GOTO 201115 GOTO 11001120 NEXT I1125 GOTO 202000 REM ** נ **2005 ? CHR$(125)2010 ? " נ}נȠ"2015 POSITION 2,82020 ? "պ"2025 ? :? " - Wyswietlenie ekranu ze wszystkimi znakami now}ego zestawu."2030 ? " Znaki wyswietlone sa rzedami wg wzrastajacych kodow."2035 ? " Nowe znaki wyswietlone s}a w trybie odwroconym.":? 2040 ? " - Powrot do menu programu. Opcje te nalezy wybrac teraz lub po wyswie- tleniu }nowych znakow."2045 GOSUB 100002050 KEY=KEY-482055 IF KEY=2 THEN 202060 IF KEY<>1 THEN 20452065 ? CHR$(125)2070 POKE 75}6,ADRES/2562075 FOR I=0 TO 72080 FOR J=0 TO 152085 POSITION 5+2*J,6+2*I2090 CHAR=I*16+J2095 IF RCH(CHAR+1)=0 THEN ? CHR$}(CHAR)2100 IF RCH(CHAR+1)=1 THEN ? CHR$(CHAR+128)2105 NEXT J2110 NEXT I2115 GOSUB 100002120 KEY=KEY-482125 IF KEY<>2 TH}EN 21152130 POKE 756,2242135 GOTO 203000 REM ** ԠϠ **3005 ? CHR$(125)3010 ? " Š}ՠ"3015 POSITION 2,83020 ? "Wcisnij znak do przedefiniowania!"3025 GOSUB 100003030 K2=KEY3035 ? :? "Czy to ten znak }?.. ";CHR$(K2+128);" (T/N)"3040 GOSUB 100003045 IF KEY=78 OR KEY=110 THEN 30003050 IF KEY<>84 AND KEY<>116 THEN 30403055 !}IF RCH(K2+1)=0 THEN 30853060 ? :? "Znak ";CHR$(K2+128);" byl przedefiniowywany."3065 ? "Czy rezygnujesz z jego poprzedniego"} wzoru? (T/N)"3070 GOSUB 100003075 IF KEY=78 OR KEY=110 THEN 203080 IF KEY<>84 AND KEY<>116 THEN 30703085 ? CHR$(125):P#}OSITION 2,3:? "պ"3090 ? :? " - Rozpoczecie projektowania znaku. Do projektowania uzywa sie joy-"3095 ? " stic$}ka, ktory steruje kursorem. Przycisk FIRE sluzy do przedefi-"3100 ? " niowywania pola, ktore wskazuje kursor.%}"3105 ? :? " - Rezygnacja z wprowadzonych przez uzytkownika zmian i przejscie do menu programu."3110 ? " O&}pcje mozna wybrac teraz lub w trakcie definiowania."3115 ? :? " - Potwierdzenie dokonanych zmian i prze'}jscie do menu programu."3120 ? " Opcja dziala tylko w czasie defi- niowania znaku!"3125 GOSUB 100003130 KEY=KEY-48(}3135 IF KEY=1 THEN 31503140 IF KEY=2 THEN 203145 GOTO 31253150 ? CHR$(125)3155 POSITION 2,233160 ? "Ů";31)}65 IF K2>=0 AND K2<32 THEN AD=(K2+64)*83170 IF K2>=32 AND K2<96 THEN AD=(K2-32)*83175 IF K2>=96 AND K2<128 THEN AD=K2*8318*}0 FOR I=0 TO 73185 S=PEEK(AD+ADRES+I)3190 FOR J=1 TO 83195 MAT(I+1,J)=S-INT(S/2)*23200 S=INT(S/2)3205 NEXT J3210 NEXT I+}3215 GRAPHICS 2+163220 SETCOLOR 0,1,15:POKE 710,63225 FOR I=0 TO 73230 POSITION 7,2+I3235 FOR J=8 TO 1 STEP -13240 IF M,}AT(I+1,J)=1 THEN ? #6;"0";3245 IF MAT(I+1,J)=0 THEN ? #6;"";3250 NEXT J3255 NEXT I3260 POSITION 6,2:? #6;"+"3265 IF STI-}CK(0)<>7 THEN POSITION 6,2:? #6;" ":GOTO 32603270 POSITION 6,2:? #6;" ":PKW=2:PKK=73275 POSITION PKK,PKW3280 ? #6;" "3285.} IF STICK(0)=15 AND PEEK(764)=255 AND STRIG(0)=1 THEN POSITION PKK,PKW:? #6;"+":GOTO 32753290 IF STRIG(0)=0 THEN MAT(PKW-1,1/}5-PKK)=ABS(MAT(PKW-1,15-PKK)-1):GOSUB 300003295 IF PEEK(764)=30 THEN POKE 764,255:GRAPHICS 0:POKE 710,0:POKE 752,1:SETCOLOR 0}1,1,15:GOTO 203300 IF PEEK(764)=26 THEN POKE 764,255:GOTO 34553305 IF PEEK(764)<>255 THEN POKE 764,2553310 IF STICK(0)=14 1}THEN GOSUB 3335:GOTO 33303315 IF STICK(0)=7 THEN GOSUB 3365:GOTO 33303320 IF STICK(0)=13 THEN GOSUB 3395:GOTO 33303325 IF 2}STICK(0)=11 THEN GOSUB 3425:GOTO 33303330 GOTO 32753335 POSITION PKK,PKW3340 IF MAT(PKW-1,15-PKK)=1 THEN ? #6;"0"3345 IF 3}MAT(PKW-1,15-PKK)=0 THEN ? #6;""3350 PKW=PKW-13355 IF PKW<2 THEN PKW=93360 RETURN 3365 POSITION PKK,PKW3370 IF MAT(PKW-4}1,15-PKK)=1 THEN ? #6;"0"3375 IF MAT(PKW-1,15-PKK)=0 THEN ? #6;""3380 PKK=PKK+13385 IF PKK>14 THEN PKK=73390 RETURN 3395}5 POSITION PKK,PKW3400 IF MAT(PKW-1,15-PKK)=1 THEN ? #6;"0"3405 IF MAT(PKW-1,15-PKK)=0 THEN ? #6;""3410 PKW=PKW+13415 IF6} PKW>9 THEN PKW=23420 RETURN 3425 POSITION PKK,PKW3430 IF MAT(PKW-1,15-PKK)=1 THEN ? #6;"0"3435 IF MAT(PKW-1,15-PKK)=0 TH7}EN ? #6;""3440 PKK=PKK-13445 IF PKK<7 THEN PKK=143450 RETURN 3455 GRAPHICS 0:POKE 752,1:POKE 710,0:? CHR$(125)3460 SETC8}OLOR 1,1,15:POSITION 2,233465 ? "Šծ";3470 FOR I=1 TO 83475 S=03480 FOR J=0 TO 73485 S=S+2^J*M9}AT(I,J+1)3490 NEXT J3495 POKE AD+ADRES+I-1,S3500 NEXT I3505 RCH(K2+1)=13510 GOTO 204000 REM ***** ˠ ****:}*4005 ? CHR$(125)4010 ? " ŠՠϠ"4015 POSITION 2,54020 ? "Wcisnij znak, ktoremu chcesz przyw;}ro- cic standardowa postac!"4025 GOSUB 10000:K2=KEY4030 IF RCH(K2+1)=1 THEN 40404035 ? :? "Znak ";CHR$(K2+128);" nie jest <}przedefiniowany!":GOTO 40904040 ? :? "Czy to ten znak ";CHR$(K2+128);" (T/N)?"4045 GOSUB 100004050 IF KEY<>84 AND KEY<>116=} THEN 40004055 IF K2>=0 AND K2<32 THEN AD=(K2+64)*84060 IF K2>=32 AND K2<96 THEN AD=(K2-32)*84065 IF K2>=96 AND K2<128 THE>}N AD=K2*84070 FOR I=0 TO 74075 POKE AD+ADRES+I,PEEK(57344+AD+I)4080 NEXT I4085 ? :? "Znak ";CHR$(K2+128);" przywrocony!":?}RCH(K2+1)=04090 POSITION 2,15:? "պ"4095 ? :? " - powrot do menu programu."4100 ? :? " - przywracanie nastepnego zna@}ku,"4105 GOSUB 100004110 KEY=KEY-484115 IF KEY=1 THEN 204120 IF KEY=2 THEN 40004125 GOTO 41055000 REM ** ԠA}Ƞ **5005 ? CHR$(125)5010 ? " ŠȠҠ"5015 POSITION 2,85020 ? "պ"5025 ? :? " - pelB}ny zestaw polskich liter o ko- dach standardowych,"5030 ? :? " - dowolny zestaw polskich liter o kodach wybieraC}nych przez uzyt- kownika,"5035 ? :? " - powrot do menu programu."5040 GOSUB 100005045 KEY=KEY-485050 IF KEY=1 THEN D}51005055 IF KEY=2 THEN 53005060 IF KEY=3 THEN 205065 GOTO 50405100 ? CHR$(125)5105 ? " ٠נȠE}Ҡ"5110 ? :? "litery male:"5115 POSITION 24,4:? "n' - 14, +";5120 ? "a, - 1, + o' - 15, +";5125 ?F} "c' - 3, + s' - 19, +";5130 ? "e, - 5, + z. - 26, +";5135 ? "l/ - 12, + z' G}- 24, +"5140 ? "litery duze:"5145 POSITION 24,11:? "N' - 95,+";5150 ? "A, - 37,+ O' - 92,+H}";5155 ? "C' - 38,+ S' - 94,+";5160 ? "E, - 39,+ Z. - 93,+";5165 ? "L/ - 64,+I} Z' - 91,+":? 5170 ? "Jesli ktorys z proponowanych kodow byl wczesniej przedefiniowany, zosta- nie zdefiniowaJ}ny na nowo!!!"5175 ? :? "Czy zgadzasz sie na ten zestaw? (T/N)";5180 GOSUB 100005185 IF KEY<>84 AND KEY<>116 THEN 5000519K}0 ? CHR$(125)5195 POSITION 2,235200 ? "Š׮";5205 RESTORE 52655210 FOR I=0 TO 175215 READ CHARL}5220 IF CHAR>=0 AND CHAR<32 THEN AD=(CHAR+64)*85225 IF CHAR>=32 AND CHAR<96 THEN AD=(CHAR-32)*85230 RCH(CHAR+1)=15235 FORM} J=0 TO 75240 READ B5245 POKE AD+ADRES+J,B5250 NEXT J5255 NEXT I5260 GOTO 205265 DATA 1,0,0,60,6,62,102,62,125266 DATAN} 3,12,24,60,96,96,96,60,05267 DATA 5,0,0,60,102,126,96,62,125268 DATA 12,0,56,24,60,24,24,60,05269 DATA 14,12,24,124,102,1O}02,102,102,05270 DATA 15,12,24,60,102,102,102,60,05271 DATA 19,12,24,62,96,60,6,124,05272 DATA 26,24,24,126,12,24,48,126,0P}5273 DATA 24,12,24,126,12,24,48,126,05274 DATA 37,0,24,60,102,102,126,102,125275 DATA 38,24,60,102,96,96,102,60,05276 DATQ}A 39,0,126,96,124,96,100,126,45277 DATA 64,0,96,108,120,112,96,126,05278 DATA 95,24,86,102,118,126,110,102,05279 DATA 92,2R}4,60,102,102,102,102,60,05280 DATA 94,24,60,96,60,6,6,60,05281 DATA 93,24,126,12,24,48,96,126,05282 DATA 91,24,126,22,12,2S}4,48,126,05300 FOR I=0 TO 175305 ? CHR$(125)5310 ? " ҠȠҠɠȠנ"5315 POSITION 2,55320 ? "LITERAT}: ";S$(2*I+1,2*I+2)5325 POSITION 2,85330 ? "պ"5335 ? :? " - rezygnujesz z tej litery,"5340 ? :? " - definiujesz teU} litere,"5345 ? :? " - powrot do menu programu."5350 GOSUB 100005355 KEY=KEY-485360 IF KEY=3 THEN POP :GOTO 205365 IF KV}EY=1 THEN 54855370 IF KEY<>2 THEN 53505375 RESTORE 5265+I5380 ? :? "Wcisnij znak do zastapienia litera!"5385 GOSUB 10000:W}K2=KEY5390 ? "Czy to ten znak... ";CHR$(K2+128);" ? (T/N)"5395 GOSUB 100005400 IF KEY<>84 AND KEY<>116 THEN I=I-1:GOTO 548X}55405 IF RCH(K2+1)=0 THEN 54405410 ? "Znak byl przedefiniowywany!"5415 ? "Czy rezygnujesz z jego poprzedniego wzoru ?...Y} (T/N)"5420 GOSUB 100005425 IF KEY=84 OR KEY=116 THEN 54405430 IF KEY=78 OR KEY=110 THEN I=I-1:GOTO 54855435 GOTO 54205Z}440 READ CHAR5445 IF K2>=0 AND K2<32 THEN AD=(K2+64)*85450 IF K2>=32 AND K2<96 THEN AD=(K2-32)*85455 IF K2>=96 AND K2<128 [}THEN AD=K2*85460 FOR J=0 TO 75465 READ B5470 POKE AD+ADRES+J,B5475 NEXT J5480 RCH(K2+1)=15485 NEXT I5490 GOTO 206000 \}REM ***** Ӡ *****6005 ? CHR$(125)6010 ? " Ӡנˠ"6015 TRAP 69006020 POSITION ]}2,56025 ? "Podaj nazwe zbioru!"6030 NAM$=" "6035 INPUT NAM$:IF NAM$(1,1)<>"C" AND NAM$(1,1)<>"D" THEN 69006^}040 CLOSE #2:OPEN #2,8,0,NAM$6045 FOR I=0 TO 10236050 PUT #2,PEEK(ADRES+I)6055 NEXT I6060 POSITION 2,156065 ? "պ"6_}070 ? :? " - informacje o sposobie uzywania generatora z nosnika,"6075 ? :? " - powrot do menu programu."6080 GOSU`}B 100006085 KEY=KEY-486090 IF KEY=2 THEN 206095 IF KEY<>1 THEN 60806100 ? CHR$(125)6105 ? " ŠϠŠa}נ"6110 POSITION 2,5:? "Zapisany generator znakow mozna wczy- tywac z nosnika podprogramem o nazwie"6115 ? " ** ChD'sb} Generators Loader **."6120 ? :? "Wywolanie podprogramu instrukcja GOSUB 31000."6125 ? :? "Mozliwa jest renumeracja poc}dprogramu. Linie 0-2 mozna pominac."6130 ? :? "Dla stacji dyskow w instrukcji OPEN zmiast C: wpisac odpowiednia nazwe zd}bioru!"6135 POSITION 2,22:? "Wcisnij (powrot do menu)!";6140 IF PEEK(53279)<>6 THEN 61406145 GOTO 206900 ? :? CHR$(e}253);"Bledna nazwa zbioru!":? 6905 ? "Wcisnij (powrot do menu)!"6910 IF PEEK(53279)<>6 THEN 69106915 TRAP 20000:GOTOf} 207000 REM *** Š ***7005 ? CHR$(125)7010 ? " ˠϠΠɠŠàРҠϠǠҠ͠ՠ"7015 POSITION 2,5702g}0 ? "Zaprojektowane znaki uzyskuje sie in- strukcja POKE 756,X (po wczytaniu"7025 ? "generatora z nosnika) lub POKE 756,";ADq}??B%DOS SYSB*)DUP SYSBSDIR LSTB ]EDYTBAS BASBTDIR BASBVPRZEWIJALSTB yEDYTBAS LSTB[PRZEWIJABASBjINOUT ACTRES/256;"po wymazaniu tego programu z pamieci."7030 ? :? "Instrukcje te nalezy powtorzyc kazdo- razowo po instrukcji GRAPHICr}S lub na- cisnieciu RESET."7035 ? :? :? "պ"7040 ? :? " - powrot do menu programu,"7045 ? :? " - wymazanie programu s}z pamieci.":? 7050 GOSUB 100007055 KEY=KEY-487060 IF KEY=1 THEN 207065 IF KEY<>2 THEN 70307070 ? "Potwierdz wymazanie prt}ogramu... (T/N)"7075 GOSUB 100007080 IF KEY<>84 AND KEY<>116 THEN 207085 GRAPHICS 0:CLR :POKE 566,146:NEW 10000 REM *****u}*** ********10005 CLOSE #110010 OPEN #1,4,0,"K:"10015 GET #1,KEY10020 IF KEY>127 THEN KEY=KEY-12810025 IF KEY>v}26 AND KEY<32 OR KEY>124 AND KEY<128 THEN 1000010030 RETURN 20000 REM *********** **********20005 TRAP 20000:GOTO 20w}30000 REM *********** **********30005 SOUND 0,96,10,1030010 FOR X=1 TO 1030015 NEXT X30020 SOUND 0,0,0,030025 RETURx}N 00 REM *********** **********30005 SOUND 0,96,10,1030010 FOR X=1 TO 1030015 NEXT X30020 SOUND 0,0,0,030025 RETUR32000 REM EDYTOR BASICA32010 REM wersja 1.1 dla "Bajtka"32020 CLR :DIM LINIA$(120):CLOSE #2:CLOSE #332030 OPEN #2,4,0,"E:"z}:OPEN #3,5,0,"E:"32040 ? CHR$(125):POSITION 11,1:? "Ҡ"32050 TRAP 32040:POSITION 2,3:? "Wpisz linie programu"{}32060 POSITION 1,4:? " ":INPUT #2;LINIA$:IF LINIA$="" THEN POSITION 2,4:LIST B:GOTO 3206032070 IF LINIA$(1,1)="*" THEN B=VAL|}(LINIA$(2,LEN(LINIA$))):POSITION 2,4:LIST B:GOTO 3206032080 POSITION 2,10:? "CONT"32090 B=VAL(LINIA$):POSITION 1,3:? " ";3}}2100 POKE 842,13:STOP 32110 POKE 842,1232120 ? CHR$(125):POSITION 11,1:? "Ҡ":POSITION 2,15:LIST B32130 C=0:O~}DP=C32140 POSITION 2,16:INPUT #3;LINIA$:IF LINIA$="" THEN ? "LINIA ";B;" USUNIETA":GOTO 3205032150 FOR D=1 TO LEN(LINIA$):C}=C+1:ODP=ODP+(C*ASC(LINIA$(D,D))):NEXT D32160 KOD=INT(ODP/676)32170 KOD=ODP-KOD*67632180 KODS=INT(KOD/26)32190 KODM=KOD-(}KODS*26)+19332200 KODS=KODS+19332210 POSITION 0,16:? CHR$(KODS);CHR$(KODM)32220 POSITION 2,13:? "Jezeli kod sie nie zgadza}, nacisnij Π i popraw linie.":GOTO 3205016:? CHR$(KODS);CHR$(KODM)32220 POSITION 2,13:? "Jezeli kod sie nie zgadza2