@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} X;PLINIAODKOKODKODx}EDYTOR BASICA }T}wersja 1.0 dla "Bajtka"});A ,@)@}C#@@E:C@@U}E:(}0 (}-@@0(Ҡí2}8 B @-@@8(Wpisz linie programu<}O-@V}@( (@/4A-@@EO B `F}S7@<@,4*36-A:7@:,>:,[}}b-@@X(>Jezeli kod sie nie zgadza, nacisnij Π i popraw linie.b B P D:EDYTBAS.BASv32000 REM EDYTOR BASICA32010 REM wersja 1.0 dla "Bajtka"32020 CLR :DIM LINIA$(120):CLOSE #2:CLOSE #332030 OPEN #2,4,0,"E:" ]}:OPEN #3,5,0,"E:"32040 ? "}":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(LINI _}A$(2,LEN(LINIA$))):POSITION 2,4:LIST B:GOTO 3206032080 POSITION 2,10:? "CONT"32090 B=VAL(LINIA$):POSITION 1,3:? " ";32100 `}POKE 842,13:STOP 32110 POKE 842,1232120 ? "}":POSITION 11,1:? "Ҡí":POSITION 2,15:LIST B32130 C=0:ODP=C32140 a} POSITION 2,16:INPUT #3;LINIA$:IF LINIA$="" THEN ? "LINIA ";B;" USUNIETA":GOTO 3205032150 FOR D=1 TO LEN(LINIA$):C=C+1:ODP=O b}DP+(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)+6 c}532200 KODS=KODS+6532210 POSITION 0,16:? CHR$(KODS);CHR$(KODM)32220 POSITION 2,13:? "Jezeli kod sie nie zgadza, nacisnij d} Π i popraw linie.":GOTO 32050 &10 REM ******************************20 REM * OBSLUGA WYJSCIA CENTRONICS *30 REM ******************************40 CLR :DIMf} A$(6):RESTORE 16050 FOR I=5000 TO 511260 READ K70 POKE I,K80 NEXT I:READ K90 IF K<>-10 THEN ? "BLAD W DATA":END 100 A$g}="hxxLVx":A$(2,2)=CHR$(162)110 A$(3,3)=CHR$(16):A$(6,6)=CHR$(228)120 OPEN #1,8,128,"C:":POKE 850,11130 POKE 856,113:POKE 8h}57,0140 POKE 853,19:POKE 852,136150 I=USR(ADR(A$)):CLOSE #1160 DATA 0,1,250,6,6,7,169,60,141,2170 DATA 211,96,169,0,133,1i}4,141,231180 DATA 2,169,8,133,15,141,232,2,173190 DATA 105,7,141,27,3,173,106,7,141200 DATA 28,3,96,160,255,208,2,160,021j}0 DATA 173,2,211,170,41,251,141,2220 DATA 211,140,0,211,142,2,211,160230 DATA 1,96,160,131,96,201,155,208240 DATA 2,169,10k},166,20,202,172,16250 DATA 208,208,16,160,0,140,0,211260 DATA 162,10,202,16,253,141,0,211270 DATA 160,1,96,228,20,208,231,l}160280 DATA 138,96,32,7,36,7,56,7,59,7290 DATA 97,7,-10300 FOR I=5000 TO 5112:POKE I,0310 NEXT I:NEW ,96,228,20,208,231,jA $$******************************$$* OBSLUGA WYJSCIA CENTRONICS *$$*****n}*************************(;@,#A`2-APAQ<"F P   "Z#6@ ( o}BLAD W DATA#d06.hxxLVx067@<@,.>:Ab,nC#67@<@,.>:@,C67@<@,.>:A(p},x5#@@A(C:5AP@'AVA'AW'AS@'ARq}A66-?:C:,,@ 0,1,250,6,6,7,169,60,141,2!!211,96,169,0,133,14,141,231""2,169,8,133,15,141r},232,2,173""105,7,141,27,3,173,106,7,141!!28,3,96,160,255,208,2,160,0 173,2,211,170,41,251,141,2!!211,140,0,s}211,142,2,211,160!!1,96,160,131,96,201,155,208 2,169,10,166,20,202,172,16 208,208,16,160,0,140,0,211!!162,1t}0,202,16,253,141,0,211!!160,1,96,228,20,208,231,160 138,96,32,7,36,7,56,7,59,7"97,7,-10,#-APAQu}#6    D:CENTRON.BAS,208,231,160 138,96,32,7,36,7,56,7,59,7"97,7,-10,#-APAQ+0 REM ZAMIANA NAPISOW - cz. I1 REM Miroslaw Honkowicz2 REM Copyright 1988 Bajtek5 GRAPHICS 0:POSITION 11,10:? "ZACZEKAJ CHw}WILE...":POSITION 7,8:? "NIE WYLACZAJ MAGNETOFONU."10 FOR X=1536 TO 1734:READ A:POKE X,A:S=S+A:NEXT X20 IF S<>22509 THEN ? x}"BLAD"30 POKE 764,12:CLOAD 100 DATA 104,104,104,170,104,104,157,66,3,104110 DATA 157,69,3,104,157,68,3,104,157,73120 DATAy} 3,104,157,72,3,169,131,141,1,211130 DATA 32,86,228,169,253,141,1,211,96,234140 DATA 104,104,104,133,22,104,133,25,104,133z}150 DATA 24,104,133,27,104,133,26,169,131,141160 DATA 1,211,160,0,165,25,197,27,240,22170 DATA 177,24,205,128,5,240,33,165,{}25,197180 DATA 27,240,9,230,24,208,233,230,25,76190 DATA 70,6,165,24,197,26,240,5,230,24200 DATA 76,70,6,169,253,141,1,211|},96,234210 DATA 160,0,177,24,217,128,5,208,6,200220 DATA 196,22,208,244,169,253,141,1,211,96230 DATA 160,0,76,77,6,234,104}},169,131,141240 DATA 1,211,160,0,185,128,5,145,24,200250 DATA 196,22,208,246,169,253,141,1,211,96260 DATA 234,104,169,131,~}141,1,211,104,141,69270 DATA 3,104,141,68,3,104,141,73,3,104280 DATA 141,72,3,169,11,141,66,3,162,0290 DATA 32,86,228,169,}253,141,1,211,96,69270 DATA 3,104,141,68,3,104,141,73,3,104280 DATA 141,72,3,169,11,141,66,3,162,0290 DATA 32,86,228,169,>SZAMIANA NAPISOW - cz. IMiroslaw HonkowiczCopyright 1988 Bajtekf} +-@@6(ZACZEKAJ CHWILE...H-@@f(NIE WYLACZAJ MAGNETOFONU. --A6A4"}!)6-%- B% (BLADAd@5d**104,104,104,170,104,104,157,66,3,104n&&157,69,3,10}4,157,68,3,104,157,73x&&3,104,157,72,3,169,131,141,1,211((32,86,228,169,253,141,1,211,96,234++104,104,104,133,22,1}04,133,25,104,133**24,104,133,27,104,133,26,169,131,141&&1,211,160,0,165,25,197,27,240,22((177,24,205,128,5,240,3}3,165,25,197''27,240,9,230,24,208,233,230,25,76%%70,6,165,24,197,26,240,5,230,24&&76,70,6,169,253,141,1,211,96,23}4&&160,0,177,24,217,128,5,208,6,200))196,22,208,244,169,253,141,1,211,96''160,0,76,77,6,234,104,169,131,141&&}1,211,160,0,185,128,5,145,24,200))196,22,208,246,169,253,141,1,211,96**234,104,169,131,141,1,211,104,141,69%%3,10}4,141,68,3,104,141,73,3,104$$141,72,3,169,11,141,66,3,162,0"$$32,86,228,169,253,141,1,211,96 D:NAPISY1.BAS3,10y0 REM ZAMIANA NAPISOW - cz. II1 REM Miroslaw Honkowicz2 REM Copyright 1988 Bajtek10 DIM A$(40)20 RAM=PEEK(14)+256*PEEK(15 })+992+86430 RAM=INT(RAM/256)+140 POKE 106,RAM:GRAPHICS 0:RAMP=RAM*256:BYTE=49152-RAMP50 ? CHR$(125):POKE 710,0:CLOSE #1:OP }EN #1,4,128,"C:":? "CZYTAM C:"60 I=USR(1536,16,7,RAMP,BYTE):B=PEEK(856)+256*PEEK(857)70 ST=PEEK(851):IF ST=1 OR ST=136 THEN } 9080 ? CHR$(253);"BLAD ";ST:GOSUB 270:RUN 90 ? "ZBIOR ZALADOWANY W CALOSCI ";B;" BAJTOW."100 ? "CHCESZ ZOBACZYC ZBIOR ";: }INPUT A$:IF A$<>"T" THEN 140110 POKE 766,255120 I=USR(1696,RAMP,B)130 POKE 766,0:POKE 764,255:GOSUB 270140 ? CHR$(125):? }"PODAJ KODY ATASCII ";:INPUT A$:X=LEN(A$):IF A$="" THEN 220150 I=USR(1576,X,RAMP,RAMP+B)160 AD=PEEK(24)+256*PEEK(25):IF AD= }RAMP+B THEN ? "NIE MA TAKICH KODOW !":GOSUB 270:GOTO 140170 GOSUB 280180 ? "PODAJ NOWE KODY TEJ SAMEJ DLUGOSCI ";:INPUT A$: }IF X<>LEN(A$) THEN 180190 I=USR(1672)200 GOSUB 280210 GOSUB 270:GOTO 100220 CLOSE #1:OPEN #1,8,128,"C:"230 ? "ZAPISUJE C }:"240 U=USR(1536,16,11,RAMP,B)250 IF PEEK(851)<>1 THEN 80260 END 270 FOR OP=1 TO 500:NEXT OP:RETURN 280 ? CHR$(125):POKE } 766,2:FOR L=0 TO X-1:? AD+L,PEEK(AD+L),CHR$(PEEK(AD+L)):NEXT L:POKE 766,0:RETURN O 500:NEXT OP:RETURN 280 ? CHR$(125):POKE SyjARARAMBYTSAO $} ZAMIANA NAPISOW - cz. IIMiroslaw HonkowiczCopyright 1988 Bajtek ;@@,556-F:@,%$}AV$F:@,%A %Ad6-P:'AV,%@(5A+'6-$AV56-BR&2[(>:A$}%,"A-@M@@A(C:[( CZYTAM C:<H&6-?:A6<@<@<<,H6-F$}:AV,%AV$F:AW,F06-F:AQ,0"@)"A6@P'(>:AS,BLAD $ Ap'%Z00(ZB$}IOR ZALADOWANY W CALOSCI  BAJTOW.d3(CHCESZ ZOBACZYC ZBIOR #30TA@nAfAUx6-?:A$}<<,1Af'AdAU1 ApE(>:A%,)(PODAJ KODY ATASCII -66-B:,E4A $}6-?:Av<<<%,[%6-F:@$,%AV$F:@%,-"%G(NIE MA TAKICH KODOW !Q Ap[ A@ A$}A,(#PODAJ NOWE KODY TEJ SAMEJ DLUGOSCI 0AB:,A6-?:Ar, A Ap A$}.@.@@A(C:( ZAPISUJE C:&&6-?:A6<@<@<<, F:AQ,@$}@-@A $h(>:A%,"Af@8-&@O(%F:%,>:F:%,,$}S eAfh$ D:NAPISY2.BASh(>:A%,"Af@8-&@O(%F:%,>:F:%,,$.;Liczby rzeczywiste w Action!;Wojciech Zientara;Copyright (c) 1988 BajtekMODULETYPE REAL=[CARD r1,r2,r3]REAL fr0=$D4, (}fr1=$E0INT fr0int=$D4CARD inbuff=$F3BYTE ARRAY lbuff=$580PROC AFP=$D800()PROC FASC=$D8E6()PROC IFP=$D9AA()PROC FPI=$(}D9D2()PROC FSUB=$DA60()PROC FADD=$DA66()PROC FMULT=$DADB()PROC FDIV=$DB28()PROC FEXP=$DDC0()PROC FEXP10=$DDCC()PROC FL(}OG=$DECD()PROC FLOG10=$DED1();procedura przypisania: LET a=bPROC RAssign(REAL POINTER a,b) b.r1=a.r1 b.r2=a.r2 b.(}r3=a.r3RETURN;zamiana REAL na INTINT FUNC RtI(REAL POINTER r) RAssign(r,fr0) FPI()RETURN(fr0int);procedura pusta(}PROC Dummy()RETURN;zamiana INT na REALPROC ItR(INT i REAL POINTER r) fr0int=i Dummy=IFP Dummy() RAssign(fr0,r(})RETURN;zamiana REAL na tekst ASCIIPROC StrR(REAL POINTER r BYTE ARRAY s) BYTE i,c BYTE POINTER pnt RAssign(r,fr0)(} FASC() pnt=inbuff WHILE pnt^='0 DO pnt==+1 OD i=0 DO c=pnt(i) i==+1 s(i)=c&$7F UNTIL c&$8(}0 OD s(0)=iRETURN;zamiana tekstu na REALPROC ValR(BYTE ARRAY s REAL POINTER r) BYTE i,cix=$F2 FOR i=1 TO s(0) (} DO lbuff(i-1)=s(i) OD lbuff(i-1)=0 inbuff=lbuff cix=0 AFP() RAssign(fr0,r)RETURN;dodawanie c=a+bPROC(} RAdd(REAL POINTER a,b,c) RAssign(a,fr0) RAssign(b,fr1) FADD() RAssign(fr0,c)RETURN;odejmowanie: c=a-bPROC RSub(}(REAL POINTER a,b,c) RAssign(a,fr0) RAssign(b,fr1) FSUB() RAssign(fr0,c)RETURN;mnozenie: c=a*bPROC RMul(REAL PO(}INTER a,b,c) RAssign(a,fr0) RAssign(b,fr1) FMULT() RAssign(fr0,c)RETURN;dzielenie: c=a/bPROC RDiv(REAL POINTER (}a,b,c) RAssign(a,fr0) RAssign(b,fr1) FDIV() RAssign(fr0,c)RETURN;podnoszenie e do potegi: b=e^aPROC Exp(REAL PO(}INTER a,b) RAssign(a,fr0) FEXP() RAssign(fr0,b)RETURN;podnoszenie 10 do potegi: b=10^aPROC Exp10(REAL POINTER a,b(}) RAssign(a,fr0) FEXP10() RAssign(fr0,b)RETURN;logarytm naturalny: b=ln aPROC Log(REAL POINTER a,b) RAssign(a,(}fr0) FLOG() RAssign(fr0,b)RETURN;logarytm dziesietny: b=log aPROC CLog(REAL POINTER a,b) RAssign(a,fr0) FLOG10((}) RAssign(fr0,b)RETURN;potegowanie: c=a^bPROC Power(REAL POINTER a,b,c) Log(a,c) RMul(b,c,c) Exp(c,c)RETURN;(}zapis REAL na urzadzeniePROC PrintRD(BYTE d REAL POINTER a) BYTE ARRAY aux(20) StrR(a,aux) PrintD(d,aux)RETURN;zap(}is REAL na urzadzenie standardowePROC PrintR(REAL POINTER a) PrintRD(device,a)RETURN;zapis REAL na urzadzenie;ze zna(}kiem konca wiersza (RETURN)PROC PrintRDE(BYTE d REAL POINTER a) PrintRD(d,a) PutDE(d)RETURN;zapis REAL na urzadzeni(}e standardowe;ze znakiem konca wiersza (RETURN)PROC PrintRE(REAL POINTER a) PrintRDE(device,a)RETURN;odczyt REAL z u(}rzadzeniaPROC InputRD(BYTE d REAL POINTER a) BYTE ARRAY aux(128) InputMD(d,aux,126) ValR(aux,a)RETURN;odczyt REAL (}z urzadzenia standardowego PROC InputR(REAL POINTER a) InputRD(device,a)RETURN;przyklad - kalkulatorMODULEREAL k(},l,mPROC Setup() Graphics(0) PrintE(" REAL Calculator") PutE() PutE() PutE() PrintE(" + = dodawanie") Prin(}tE(" - = odejmowanie") PrintE(" * = mnozenie") PrintE(" / = dzielenie") PrintE("HELP = koniec") PutE() PutE() (} PrintE("Wybierz dzialanie") PutE()RETURNPROC Operate(Byte o) BYTE n,key=$2FC key=$FF FOR n=1 TO 6 DO Put($9C) O(}D PrintE("pierwsza liczba ") InputR(k) PrintE(" druga liczba ") InputR(l) PutE() IF o=6 THEN RAdd(k,l,m) (} ELSEIF o=14 THEN RSub(k,l,m) ELSEIF o=7 THEN RMul(k,l,m) ELSE RDiv(k,l,m) FI Print("wynik = "(}) PrintRE(m) FOR n=1 TO 6 DO Put($1C) ODRETURNPROC Work() BYTE key=$2FC,help=$2DC help=0 key=$FF DO IF h(}elp=$11 THEN EXIT FI IF key=6 OR key=7 OR key=14 OR key=38 THEN Operate(key) FI ODRETURNPROC(} Main() Setup() Work() Graphics(0)RETURN key=14 OR key=38 THEN Operate(key) FI ODRETURNPROC(1@@#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 SYSB SEDYTBAS BASB \EDYTBAS LSTBeCENTRON LSTB mCENTRON BASB vNAPISY1 LSTB NAPISY1 BASB NAPISY2 LSTB NAPISY2 BASB REAL 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