–€€@LÌ}Ë¬ð5 _­¬¦$Ž¦%Ž l0¬±$)ªÈ$ð±$HÈ±$ Uh¨ŠL"©À
¨`©€e$…$æ%`­…$­…%`Œ
©R @©P €¦!àÐ( L¹(©Œ©1©	©€
	­ YäÎ	ð¦I˜` ­ d LÇd
M
	¼*€@ ÿ­…$­…%­
…C¢©C ‘$¥$)¥%1© U©dÊß¥$9¥%:¬	¢ˆ˜!0 SèàÐñ¥$ç¥%è©¨™Èú¨¹ðÉDðÈÈÈÀÐð©D™©Ë™©™` ­ }½J‚)ðLr ì½‚Éd
M
	¼*€@ ÿ­…$­…%­
…C¢©C ‘$¥$)¥%1© U©dÊß¥$9¥%:¬	¢ˆ˜!0 SèàÐñ¥$ç¥%è©¨™Èú¨¹ð}ÉDðÈÈÈÀÐð©D™©Ë™©™` ­ }½J‚)ðLr ì½‚ÉðÉðJÉðÉ	ð ¥¨(°(°	  p	LÇ ¥ª(°ù¬¹ƒ)ð  ‘ JŽ½}‹L=	 ¥¬(°	 Á¬L	­0q A­­ ‘¬¢
© ™ÈÊù¦I©Bƒ J¬™½‹™©C™©™™¢½;É?ð™Èèàð D W	 ¶}©€… ‚ÐLLÇ ¥©©…­

©‡` W	¬¹ƒ)„¹‹¹ŒLê½A…! ­¬
¹Éß°©…"½‚)ð-¼‡˜Ý† p°" }ä	 °±$þ‡­‘G©@……LÇL ¥ˆ½…08`©©Q¥")ð<Ð2Q­0 â°- ±G‘$È˜Ý†õ UL#
 ;
 p8¥(ý†…(°Æ)¥(0Ê¥)ÐÆNQ` 	}±$‘GÈ˜Ý†õ‡LU ­½‚)ðL­½‡Ý† ë	 âðLà	¨±GÈ˜‡¼‹Ð¼ŒÐ
Ý†©L¯LÇ ­½‚)ðW>…Z ‡ ½H½H½‚)ð½ƒH 
}p	hƒ âû½‹½ŽŒ Ž¬hy™hy™½ƒ™ D ”©‚LÂ>…ó ËLñ
½JJ   !
LA© *ˆÐù` ­½BÉþðFÉ}ýð7É'°8é 
¨¹MH¹NH`8¤Zßâ\LdÃÃŠòÃJóó½JÐ©!¢ð©"ªŽ¥!¢ÉðG¥F¥E @­F (À‹Ð®ð©!ÍÐÑL¯}ÀÐù ©ÿÑEÐÈÑEðì ¥­¢­É!ð¢© ‘EˆÐû½^è½^‘EÈÀÐõ 
©‘E©ÿÈÌÐö 7©‘EÈ©‘E® d‘E Š©/‘EÈ©‘E ”©¨™Èú© DÎ}ø .LÂ } ‰¢
½;FÊ÷ d  ‚¢Ž¬½;É?ÐÎÝFÐ7½FÉ?ð™ÈèàÐá(Ð . ‚Ð®½¼ Z D­ð ü®LÂLè d Á ‚}Ð . D üí ”LÂ ‘¬ ©€™ p	  âø ˜‘E`© ,© d¬¹)ß™ D üêLÂ¬¹) ðÑ ¥§½…0B½MÝŠÐ½LÝ‰ð½…}ð Ë©…½MŒ½L‹ ê°
½NÝ†ð ¥¦‡LÇ ¥«½‡N½‰L½ŠMLÇ ì[ T Š±E qEHÈ±E ‹qEªh¨Š¢Ž 0 Š‘GÈ¹Ô‘GÈÀÐö} HLÇ¬Là	±GîÉ›ÐéÀ°©€LÂ ü°¥ äLÇFREE SECTORS® © ‘G½) ð©*‘GÈ© ‘GÈ½‘GèÈÀõ© ‘GÈŒ®¥*j½jˆ©>‘G} ©<‘G¼½¢d R¢
 R¢ R¢ ˜ð¢+ ©›‘G Œ`Ž¢ÿ…D„Cè8¥Cí¨¥Déà	ÐêŠ	0¬‘Gî¥D¤C` ±$ˆ0dÉ:Ð÷ÈÈ©¢±$É.ÐàÐÈ©Ðî},É*Ð	©?ì°%$É?ðÉ0É:)ßÉAÉ[©àð© ÐÈìð¹;èÐ³­;É ð¦I` ¥¥©ÿ©pî­iî©ÍðN A©¨¹}ð#0!)CÉð)ÐÏ¢½;É?ðÙÐÁèÈàÐî­­­­¹0œ8¦I` } ì°`L¤½…0
	
… Ë0"Lâ J½‡ ‘G½Œ }‘GÈ½‹}‘G Ë©‚­L¯þÐþ Õ©‹Œ‡©}†`8½Š¼‰L½‹‰½ŒŠ`½…ðLp½‹ŒÐ8` Õ Ì04 }±G)üÝÐ,±G)ŒÈ±G‹È±G}H½„Ðh0©})Hh†©‡` ½½BÉ!ð ¥¤8`8­ii¨(¢©ÐZ ±EÐ6¤!©JÀðŒ©S Sä©d¬ê©Š¤!™ Ì ê ‘E ¨ û` T©} ‘E ê8 ¨ û8LÌ¥F¦E hŒ
 ŒŽ r9ÀƒðL½ ¥£­)©
©¥Eiª¥Fi(L¶ d±E™î©‘EÈÀÐò`¬ d¹î‘EÈÀÐö`½‰H)}¨hŠð/¹×H½‰ ^ŠjˆÐùi
¨hE‘EÀd  Š±Ei‘EÈ±Ei‘E` 	ÈÌ°W±Eðö¢ÿè
ü½×QE‘EŠH¦I˜8é
‹©À‹*°úŒh‹‹Àd  Š½ƒ)¿	}ƒ8±Eé‘EÈ±Eé‘E ˜‘E½Œ` ¥¢†IºèèŽ
¦!ŽÊ½)…E½1…F½ð5¦I¼ˆÐ¹!	ÈÀö ¥¡©€™!È˜ˆˆ˜JH©jm9…Ghm:…H` ¥ ¼ˆð	ˆ©}ˆ™!`¦GŽ¦HŽLl¼‰½Š Z dLÇ©© ŒÈ©8 l­I€0î¬
ÌÐä`Œ©ÐÌ _©}† ;
¥$Í¥%í° pLl`¢¬¹}ÝšÐÈèàÐò¦I(`DOS     SYSh…Ch…D ±C®
š¦IC¨­`­0í¦I ©Ðä „B®ß0¦äðüŒÔx

…D­Ó)ãDÓ`}Need DOS2.5,type Y ÒÅÔÕÒ}Î›Š÷ "€€ÀŠd€ÿþýüû\ÌÌìDOS     SYSCOPY3TO2COMÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0}B€}}CDOS     SYS}­
…C­C*É( ‹Ð> Ë¥C8jJ…3©j…2­…C­…D (	±C‘2ˆù0±2‘Cˆù© Þ ÀŒÔ „BXÈ`
N
©1?©ñ¢ l©¢LlD:RAMDISK}.COM›©LÍu ÐL¥1©©í¢ ÍL	¥;ÐLê˜HL³ê³êºŽ
 T `ºŽ
 ” `1©ž©Ÿ…
©…­œêÉÐ
©© àêêê¥Ð Ø`TŽU “©À } ¦L’­ð­žð ? . “ tä©`…ðöÿàá©€Ÿ©Gà©á¢©B©J Œ©Ð~¢©ôD©E©H©I©B Vä0d©ÿÍôÐVÍõ!}ÐQ¢© D©E©H©I VäFÀˆÐ9 ’,ž0 ©,ŸŸ0 s0hhL¸­Ð
©¢ ¦L©ª` ’©Ð÷˜H ’h¨Ðî¢­ DH­¡E¨hÈÐ¨ÈÐ­"}¢ ­£¡©¢D©E©L­¢8í H­£í¡I­¡É4ê°­£Éê°­0©€ŸŸþHÐþI,Ÿ0­0Î 9© .¢©Gâ©ã VäLO#},ž0 L÷ÉÉ4*IJ`lâlàD1:AUTORUN.SYS›NEED MEM.SAV TO LOAD THIS FILE.›D1:MEM.SAV› ’©J y08©B©|D©E©ŠH©I$} Vä0 ’0 `©B©;D©ELŒ`­?<0LVä `@¢ŽžŽŸÊ† v s©…ð? F0Îž05©:¢ ¦©[¢ ¦©B©D©E©H©I%} Vä­ÉYÐ8©…¢ ©B Vä¥œ¥©@…©…©/¢D©E ŒžˆŒ ¤`E:›D1:DUP.SYS›ERROR-SAVING USER MEMORY ON DISK›TYPE Y TO &}STILL RUN DOS› œ©B©;D©E©J Œ œ(`©ð 9¢ Vä©ðî ­âÇ­ãÈ©âªÃ© ï©ðî¾­àÇ­áÈ©àªÃ© ï ’­ž-'}”ðî”LLu ÄèŽÅÆ¢©ÃD©E©H©ILVä 9© .lú¿ 9© .l­œ…­…`­žÐ` s©…ð$©B Œ©B©ŠH©(}I©|D©E Vä©BLVä nä¢©B©,D©E©JLVä©¢B Vä¢ ©BLVäDŽE¢ŽIÊ©	Bêê­ðåLÿÿÿàáu • ó	}ÿÿ3E:›}DISK OPERATING SYSTEM II VERSION  ²®µ COPYRIGHT 1984 ATARI CORP.››A. DISK DIRECTORY  I. FORMAT DISK›B. RUN CARTRIDG*}E   J. DUPLICATE DISK›C. COPY FILE       K. BINARY SAVE›D. DELETE FILE(S)  L. BINARY LOAD›E. RENAME FILE     M. RUN AT ADDRES+}S›F. LOCK FILE       N. CREATE MEM.SAV›G. UNLOCK FILE     O. DUPLICATE FILE›H. WRITE DOS FILES P. FORMAT SINGLE›L˜ !N'Æ,}#"&¾)æ)9(Ð&©*)/h)¬'ú'-Ê&¢ÿØ†èŽŸ©…R©'…S¥	€…Ò v­¾ÉLð/©©Ë¢  ÍL¼ }Insert DOS 2.0s, type Y ÒÅÔÕÒÎ›©ô©x…© …©-}D©E©fH©I ž1¢ÿšèŽ#©q¢! ¦©@¾ y0É›ðÏ8éA0,Íô'
¨±È…±… ±ªˆ± °1 ¶1¥i…æl©d¢! °1L!NO SUCH ITEM›SELECT.} ITEM OR ÒÅÔÕÒÎ FOR MENU›õ! Ê0 ¿.®½zÉ:Ð©*{}©.|èèèŽ©›{Ž¢  Ø1 ã0 ¿0©¢J©BŽþ é1­8íÉðL¨%®½|ÉDÐóL¶/}%DIRECTORY--SEARCH SPEC,LIST FILE?›[# Ê0 ¿0 ¸&­|ÉDð©3¢" °1L!NOT A DISK FILE›¢­žÉNÐ©!B é1L!©E¢# °1©¢ ©!B©ñD©0}E©Dñ©:ó­}É:Ð©1ò¢©B©J©|D©E é1©ôD©E©B©¢©H©I é1­õÉ Ðhî­Í0ß¢ ¹ôÉ ð	ôèÈà0ð©.1}ôè 
¹ôôÈèÀ0ôŽ©?ôè©›ô©ñ¢ °1 y0ÉYÐ›­®©›ô¢  é1 ;#LŠ" ;#L!¢©BLé1TYPE "Y" TO DELETE...›DELETE FILE SPEC2}›COPY--FROM, TO?›OPTION NOT ALLOWED›736 FREE SECTORS››  COPYING---D1:DIREC›K.COM›l# Ê0­­|ÉDÐ¢ Ò.ðL/%©€#©3}#©‘#¢©J©B©|D©E é1©B©H©I©’D©#E é1­’#É0É:°©B é1L!­#Í‘#ðî‘#ÐÁî#©B é1 ¹œ#Ùc$Ðˆõ0‰SY4}S 1­}É:ð¨Œ³#¢ ½’#É ð™²#Èèà
Ðð½’#É ð©.™²#È½’#É ð™²#ÈèàÐð©›™²#©¦¢# °1,#P¢©²D©#ELJ- <.¢©B©J©²D©#EŽþ é5}1¢  Ø1­H­H ã0hh®½|ÉDðL¨% 1½}É:ð¨Ì³#Ð ’L¾%¢ Œ³#©²D©#ELÞ%¢  Ø1 ã0® è.® Ò.Ð0©O¢% °1L!WILD CARDS NOT A6}LLOWED IN DESTINATION› ¿0 <.­|ÉKð<ÉCð8ÉEÐ¢ŽþL¨%ÉSð(¢©B©JŽþ é1®½|ÉKðÉEÐ©ÿLõ%©|¢# °1 ’L!ÉCðï®žàAÐÉDÐä©	7}Ð©¢ J©BŽÿ é1©K©®þ¬ÿB©™B¥D™D¥E™E®þ­H­I VäŒø®ÿ¬þ¹HH¹IIHð é1­øÌÉˆðLñ1®þð©B8} Vä®ÿð©B Vä®ÿÐ©I¢' ¦,#Lì#L!œ& Ê0 Õ0 ¿0 ¸&© ¢B é1L!RENAME - GIVE OLD NAME, NEW› ­}É:ð)¨ŒöLS)'©ýÐ'©þ9}' 70 ¹2i0H'K' ¿0©0¢' °1 y0ÉYÐ­' ! 'L!þ¢B©JD©'E˜JLé1WHICH DRIVE TO FORMAT?›TYPE "Y" TO FORMAT DISK 1›D1:›«'¬ý¿:}©ªý¿Íý¿Ð©Uý¿Íý¿ÐŒý¿©Ÿ¢' °1L!­ü¿Ðñª­ý¿ðëÍý¿ÐæèÐó v©¢ä _ \ä©¢ä b \äLNO CARTRIDGE›È' 70 2 ¿0…†­ÉðP vL RUN FROM;} WHAT ADDRESS?›TYPE "Y" TO CREATE MEM.SAV›ß' y0ÉYÐ s0©¢( °1 ’L! FõLð1MEM.SAV FILE ALREADY EXISTS›Õ( 70 ¹2 ¿0ö	0+)<}') S)©¢) °1 y0ÉYÐr©ò¢( °1©¢B©*D©)E©J é1¢©B é1¢½.{ÊÐ÷­+)}Ž¢ Ø1©Ã©Ä©Å©ùó/©ø/©3ÆH©uà© =}áÎ¾L›/L!DRIVE TO WRITE DOS FILES TO?›WRITING NEW DOS FILES›TYPE "Y" TO WRITE DOS TO DRIVE 1.›D1:DOS.SYS›ERROR - NOT VERSIO>}N 2 FORMAT.› t*­ôÉð
©5¢) °1L!`©) Ê0©®žžàNÐÎž ¿0 ©àðàð˜Lñ1©›¢) °1 ’L!BAD LOAD FILE›LOAD 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 AREA›CAUTION: A "Y" INVALIDATES MEM.SAV.›©…F©ô…E­ö…!©ù +Lð1©
­þþ©©©
`*© 70 ¹2ö ¹2ÿA} ¿0­öÍÿð.¢*©Ù °1 y0Î0)INSERT BOTH DISKS, TYPE RETURN›©^¢, °1 y0©©3­å8é€­æé­Í­í°
©N¢, °1L! Ý,©B}žC, t*­
ù­ú­û­ü­þýLx+©ž,0
©^¢, °1 y0 , ¡,0,ž0 Ç,LŽ+ Í,­I€0î ¾,­ÍðV­Í­í°Ç­ž0C}«Îž,0
©}¢, °1 y0­C,Ð¨îC,­ÿ	0K' !­ "­
H­H©ý 'hh
Lx+­ž¸­ÿ…!©ô…E©…F 5Lð1L! ¹D,…¹I,…¢¡H¹ùh™ùˆD}å­­`
þNOT ENOUGH ROOM›INSERT SOURCE DISK,TYPE RETURN›INSERT DESTINATION DISK,TYPE RETURN›þÎÐî®½ôE}þ©­þ`î
Ðî`­ö­ÿ8 rLð1`¥ð©-¢* °1©P¢* °1 y0ÉYÐ©…ž`hhL!NAME OF FILE TO MOVE?›- Ê0 ¿0­|ÉDðL¾% <.¢F},©^ °1 70 ¿0 Ò.Ð©@Lä#¢ è.¢©B©J é1©
¢¥D¥E­H­I©B Vä
ÀˆðLð1Î
¢,©} °1 70,õL.¢  	­Ð îG}˜J©B©| ,#P©² #D˜E é1 ¢ ©ÙHÐÙIð©B¥D¥E¹HH¹II é1©B é1­
Ð¢,©^ °1 70,õ0La-¢©B Vä,#PH}¢,©^ °1 70 ¿0Lì#L!¥ð©-¢* °1©P¢* °1 y0ÉYÐj©…ž©…©3…­å8é­æé3©©}m©m­Í
Ðå­Í°Ý­Ð©I}}Í`­8é}­é`©ô…©…©ú©`½|èÉ*ðÉ?ð	É›ðÉ,Ðìè`è½|É:ðèè ¹-)Ý|ÐÈèÀÐò©¢/ °1L!`DESTINATION CANT BE DOJ}S.SYS›0© ¾ Ê0­žH®©›{ 2ÃŽÄà4°Î” 2ÅŽÆ8íÃó/ŠíÄ°L!ø/À›ð) 2âŽããðÎ À›ð 2 ¿0àŽááðÎ¾©žK}hÉAÐÎž¢©B,ž0©Ð©	J é1©B©ÁD©E©H©I,ž©H©ÃD©E é1¢©ùH©IþHÐþI­ÃD­ÄEL“SAVE-GIVE L}FILE,START,END(,INIT,RUN)›©›¢O¤Êú©õ S0 ¶1`©B©¤D©E©PH©I¢ VäÀ€ÐÎõ`©õ S0­H÷ ¶1­õ ’L!­÷ÉM}0
©ª¢0 °1L~0­¤`PLEASE TYPE 1 LETTER›,õ0`hhL! 70¢ Ø1Lã0©¬®L<1¬®©½¤É,ð;É›ð7½¥É,ð"É›ð©:Ý¦ð1Ý¥ÐÎ½¤ÉN}A"©D™|ÈÎÎÝ¤ðíÎ©D™|È©:™|È©ž½¤™|èÈÉ›ð,É,ð(É/ð+É.Ð©ÎÞ©¢1 °1Îõ½¤èÉ,ðÉ›ÐôŽŒ`½¤žè½¤™{èéNAMEO} TOO LONG›©B¢ VäÀ€ÐL!` ¦L¶1©ªI©
H©1E©ÎDLž1œ©|mD©iE` Vä˜0`˜8éd¢/è8é
úi:2Ž2¢2© °1 ’LP}!ERROR-   138›©©®½¤îÉ›ð+É,ð'  20* ..ˆöÎÓ©r¢2 °1Îõ`¨­®`©‚¢2ÐëTOO MANY DIGITS›INVALID HEXAQ}DECIMAL PARAMETER›8é00É
08éÉ
0É0©ÿÉ`,õ0'®½¤èÉDðø8é0ð0É	H½¤èÉ,ðÉ›ÐôŽh`Îõ©ð¢2L°1NEED D1 THRU D8›àáuR} X;PLINIA¤ÂÃODÐÄKOÄKODÓKODÍx}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}S€7@<@,4*36-A:€7@<B:€,,,E-@W}@IS
B `P}-@@(CONTZ}%6-A:€,-@@%( d}AB@&n}ABX}@x}F	(}-@@0( ÅÄÙÔÏÒ ÂÁÓÉÃ­Á B-@@F‚}6‚-6ƒ-‚Œ}L-@@"Y}@€)€4B(LINIA 	 USUNIETAL
B P–}:„-@B:€,"6‚-‚%@66ƒ-ƒ%+‚$@:€7„<„,,,:	„ }6…-P:ƒ'AZ}v,ª}6…-ƒ&…$Av´}6†-P:…'@&,¾}6‡-…&+†$@&,%@eÈ}6†-†%@eÒ}!-@!(>:†,>:‡,Ü[}}b-@@X(>Jezeli kod sie nie zgadza, nacisnij    ÒÅÔÕÒÎ  i popraw linie.b
B P€D:EDYTBAS.BASv32000 REM EDYTOR BASICA›32010 REM wersja 1.0 dla "Bajtka"›32020 CLR :DIM LINIA$(120):CLOSE #2:CLOSE #3›32030 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 32060›32070 IF LINIA$(1,1)="*" THEN B=VAL(LINI_}A$(2,LEN(LINIA$))):POSITION 2,4:LIST B:GOTO 32060›32080 POSITION 2,10:? "CONT"›32090 B=VAL(LINIA$):POSITION 1,3:? " ";›32100 `}POKE 842,13:STOP ›32110 POKE 842,12›32120 ? "}":POSITION 11,1:? " ÅÄÙÔÏÒ ÂÁÓÉÃ­Á ":POSITION 2,15:LIST B›32130 C=0:ODP=C›32140a} POSITION 2,16:INPUT #3;LINIA$:IF LINIA$="" THEN ? "LINIA ";B;" USUNIETA":GOTO 32050›32150 FOR D=1 TO LEN(LINIA$):C=C+1:ODP=Ob}DP+(C*ASC(LINIA$(D,D))):NEXT D›32160 KOD=INT(ODP/676)›32170 KOD=ODP-KOD*676›32180 KODS=INT(KOD/26)›32190 KODM=KOD-(KODS*26)+6c}5›32200 KODS=KODS+65›32210 POSITION 0,16:? CHR$(KODS);CHR$(KODM)›32220 POSITION 2,13:? "Jezeli kod sie nie zgadza, nacisnij  d}  ÒÅÔÕÒÎ  i popraw linie.":GOTO 32050›&PROGRAM PRZYKLAD1;› VAR A,B,C:REAL;›  D:INTEGER;›BEGIN›  D:=1;›  REPEAT›   WRITE('A=');READLN(A);›   WRITE('B=');READLN(B);› f}  C:=A+B;WRITELN('A+B=',C);›   C:=A-B;WRITELN('A-B=',C);›   C:=A*B;WRITELN('A*B=',C);›   C:=A/B;WRITELN('A/B=',C);›  UNTIL D=g}0›END.+B;WRITELN('A+B=',C);›   C:=A-B;WRITELN('A-B=',C);›   C:=A*B;WRITELN('A*B=',C);›   C:=A/B;WRITELN('A/B=',C);›  UNTIL D=PROGRAM PRZYKLAD2;› VAR A,B,C:REAL;›  D:INTEGER;›BEGIN›#A› LDA #0› STA 39020› LDA #216› STA 39021› LDA #>39021› STA 40398› LDi}A #<39021› STA 40399›#›  D:=1;›  REPEAT›   WRITE('A=');READLN(A);›   WRITE('B=');READLN(B);›   C:=A+B:WRITELN('A+B=',C);›   Cj}:=A-B:WRITELN('A-B=',C);›   C:=A*B:WRITELN('A*B=',C);›   C:=A/B:WRITELN('A/B=',C);›  UNTIL D=0›END.+B:WRITELN('A+B=',C);›   CcøA¤€
PROGRAM 3›Poprawia zbior "D:LIB"›zapisany na dyskietce.›(!!Radze sprobowac najpierwl} na›2!!kopii dyskietki z Pascalem!›<!€;A—,!6€7A—,. F&&@@D:LIBPC@C:€m},A—Z@d##6€7A9<A9,.>:,n)#6€7A@<A@,.>:A,)CLD›x++6€7A%<A%,.>n}:B!aAV,‚++6€7A%<A%,.>:B!]AV,Œ&&@@D:LIB–B@C:€,A—s}10 REM PROGRAM 3›20 REM Poprawia zbior "D:LIB"›30 REM zapisany na dyskietce.›40 REM Radze sprobowac najpierw na›50 REM kopii p}dyskietki z Pascalem!›60 DIM A$(9716):A$(9716)=" "›70 OPEN #1,4,0,"D:LIB"›80 BGET #1,ADR(A$),9716›90 CLOSE #1›100 A$(1139,113q}9)=CHR$(0)›110 A$(1140,1140)=CHR$(216):REM CLD›120 A$(2517,2517)=CHR$(39021 MOD 256)›130 A$(2518,2518)=CHR$(39021 DIV 256)›14r}0 OPEN #1,8,0,"D:LIB"›150 BPUT #1,ADR(A$),9716›160 CLOSE #1:END ›CHR$(39021 MOD 256)›130 A$(2518,2518)=CHR$(39021 DIV 256)›14A @€D:PROGRAM3.BAS,.>:B!]AV,Œ&&@@D:LIB–B@C:€,A—(1 REM *** LICZBY ***›5 DIM A(16),A$(1),D(4),Z$(1)›10 TRAP 190›15 ? :? "LICZBA"›20 ? "w systemie dziesietnym ";›25 INPUT B›30  u}IF B>65535 THEN 180›35 Z=B›40 FOR I=1 TO 16›45 A=B/2›50 C=INT(A)›55 IF A<>C THEN T=1›60 IF A=C THEN T=0›65 A(17-I)=T›70 B=C›7 v}5 NEXT I›80 ? "w systemie dwojkowym",›85 FOR I=1 TO 16›90 ? A(I);›95 NEXT I›100 ? ›105 FOR I=1 TO 4›110 C=INT(Z/16)›115 K=Z-1 w}6*C›120 IF K<=9 THEN T=K+48›125 IF K>9 AND K<16 THEN T=K+55›130 D(5-I)=T›135 Z=C›140 NEXT I›145 ? "w systemie szesnastkowym", x}›150 FOR I=1 TO 4›155 A$=CHR$(D(I))›160 ? A$;›165 NEXT I›170 ? ›175 GOTO 15›180 ? "WPROWADZILES LICZBE WIEKSZA OD        NAJW y}IEKSZEJ LICZBY 16-BITOWEJ (65535)"›185 GOTO 15›190 ? "WPROWADZONA ZLA DANA"›195 ? "ZAMIENIAMY DALEJ (T/N)";›200 INPUT Z$›205  z}IF Z$="T" THEN 10›210 END ›65535)"›185 GOTO 15›190 ? "WPROWADZONA ZLA DANA"›195 ? "ZAMIENIAMY DALEJ (T/N)";›200 INPUT Z$›205  hª¿A¨A¤D¨Z¤ÂÚÉÁÃÔË@€@€	
**$|}* LICZBY ***›11€9@,;@,‚9@,ƒ;@,
A((LICZBA  (w systemie dziesietnym $}}„„!BU5A€#		6…-„(†-@@-6‡-„'@26ˆ-P:‡,7	‡ˆ6‰-@<	‡"ˆ6‰-$~}A6€8@&†,-‰F		6„-ˆK	†P(w systemie dwojkowymU†-@@Z(€8†,_	†d(i†$}-@@n6ˆ-P:…'@,s6Š-…&@$ˆxŠ@	6‰-Š%@H}'Š!@	*Š @'6‰-Š%@U‚$€}6‚8@&†,-‰‡		6…-ˆŒ	†‘!!(w systemie szesnastkowym–†-@@›6.>:‚8†,, (¥	†ª$}(¯
@´SS(KWPROWADZILES LICZBE WIEKSZA OD        NAJWIEKSZEJ LICZBY 16-BITOWEJ (65535)¹
@¾(WPROWAD$‚}ZONA ZLA DANAÃ(ZAMIENIAMY DALEJ (T/N)ÈƒÍƒ4T@Ò€D:ZAMIANA.BAS¹
@¾(WPROWAD$b1 REM ** (C) TOMASZ WALIGORA **›2 REM *** 1987 WLOSZAKOWICE ***›10 FOR G=0 TO 214:READ A:S=S+A›20 POKE 1536+G,A:NEXT G›30 IF („}S=13114 THEN 50›40 ? "BLAD W DANYCH !":END ›50 OPEN #1,8,128,"C:"›60 POKE 850,11:POKE 852,0›70 POKE 853,6:POKE 856,215›80 POK(…}E 857,0:POKE 858,8›90 A=USR(ADR("hhhªLVä"),16)›95 CLOSE #1:? "O.K.":END ›99 REM *** DANE ***›100 DATA 0,2,0,6,16,6,169,60›110(†} DATA 141,2,211,169,0,133,65›120 DATA 96,169,148,141,197,2›130 DATA 173,48,2,133,128,173›140 DATA 49,2,133,129,160,4,177›150 (‡}DATA 128,133,130,200,177›160 DATA 128,133,131,230,131›170 DATA 230,131,160,169,162,0›180 DATA 189,91,6,145,130,232›190 DATA 1(ˆ}36,208,247,169,13,141›200 DATA 74,3,169,0,133,84,169›210 DATA 254,141,179,2,169,127›220 DATA 141,180,2,76,0,160,0,0›230 DATA (‰}0,0,0,0,0,0,0,0,0,0,0›240 DATA 0,0,0,0,0,0,0,0,0,0,0›250 DATA 0,0,0,0,0,0,0,0,0,0,0›260 DATA 0,0,0,0,0,0,0,0,0,0,0›270 DATA 0(Š},9,9,4,0,0,56,8,50,36›280 DATA 33,8,50,51,53,29,56,26›290 DATA 16,14,50,39,26,18,17›300 DATA 12,20,22,23,0,37,43,47›310 DATA (‹}48,26,18,17,12,18,20›320 DATA 24,0,37,43,0,0,47,48›330 DATA 26,2,155,68,44,255,137›340 DATA 155,150,0,68,137,40,52›350 DATA 1(Œ}37,40,151,137,218,253›360 DATA 130,2,29,4,56,26,9,16›370 DATA 20,8,4,56,0,45,41,36,0›380 DATA 0,0,0,0,0,0,0,0›0,52›350 DATA 1(n®ÂÇÁÓAA€6B1** (C) TOMASZ WALIGORA **›*** 1987 WLOSZAKOWICE ***›
#€-A,Ž}"#6‚-‚%A6%€	€‚"B1@P((BLAD W DANYCH !2##@@A(C:<',}AP@'ARF'AS@'AVAP'AW'AX@Z6-?:C:h,}hhªLVä,<@,_@(O.K.c*** DANE ***›d0,2,0,6,16,6,169,60›n141,2,211,169,0,133,65›x96,169,‘},148,141,197,2›‚173,48,2,133,128,173›Œ49,2,133,129,160,4,177›–128,133,130,200,177› 128,133,131,230,131›ª2,’}30,131,160,169,162,0›´189,91,6,145,130,232›¾136,208,247,169,13,141›È74,3,169,0,133,84,169›Ò254,141,179,2,169,,“}127›Ü141,180,2,76,0,160,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,0,”},0,0,0,0,0,0,0›0,9,9,4,0,0,56,8,50,36›33,8,50,51,53,29,56,26›"16,14,50,39,26,18,17›,12,20,22,23,0,37,43,47›,•}648,26,18,17,12,18,20›@24,0,37,43,0,0,47,48›J26,2,155,68,44,255,137›T155,150,0,68,137,40,52›^137,40,151,1,–}37,218,253›h130,2,29,4,56,26,9,16›r20,8,4,56,0,45,41,36,0›|0,0,0,0,0,0,0,0›€D:LOADER.BAS›^137,40,151,1,k10 REM Test szybkosci - Basic›20 POKE 20,0:POKE 19,0›30 GRAPHICS 24:COLOR 1›40 FOR I=0 TO 191›50 FOR J=0 TO 319›60 PLOT J,I›70˜}0 NEXT J›80 NEXT I›90 DL=PEEK(560)+256*PEEK(561)›100 SM=PEEK(DL+4)+256*PEEK(DL+5):J=0›110 POKE SM+J,0›120 J=J+1›130 IF J<76800™} THEN 110›140 TIME=PEEK(20)+256*PEEK(19)›150 GRAPHICS 0›160 PRINT ›170 PRINT "Czas wykonania testu: ";›180 PRINT TIME;›190 PR0š}INT " taktow."›200 END ›20)+256*PEEK(19)›150 GRAPHICS 0›160 PRINT ›170 PRINT "Czas wykonania testu: ";›180 PRINT TIME;›190 PR0
3ÚíÉÊDÌSÍTIMÅ
Test szybkosci - Basic›'@ '@4œ}+@$@(€-A‘2-A<		,€F	P	€Z%%6‚-F:A`,%AV$4}F:Aa,d5)6ƒ-F:‚%@,%AV$F:‚%@,56-nƒ%x6-%@‚ Av€AŒ%%4ž}6„-F:@ ,%AV$F:@,–+  ª Czas wykonania testu: ´ „¾  taktow.È€D:BAS4Ÿ}IC.BAS ,%AV$F:@,–+  ª Czas wykonania testu: ´ „¾  taktow.È€D:BAS410 Rem Test szybkosci - Basic XE›20 Dpoke 19,0›30 Graphics 24:Color 1›40 For I=0 To 191›50   For J=0 To 319›60     Plot J,I›78¡}0   Next J›80 Next I›90 Sm=Dpeek(Dpeek(560)+4):J=0›100 While J<7680›110   Poke Sm+J,0›120   J=J+1›130 Endwhile ›140 Time=Peek8¢}(20)+256*Peek(19)›150 Graphics 0›160 Print ›170 Print "Czas wykonania testu: ";›180 Print Time;›190 Print " taktow."›200 End 8£}›20)+256*Peek(19)›150 Graphics 0›160 Print ›170 Print "Czas wykonania testu: ";›180 Print Time;›190 Print " taktow."›200 End 8	)Ž£ÉÊSÍTIMÅA’Av€B1B„—
Test szybkosci - Basic XE›>@+@$@<¥}(€-A‘2-A<		,€F	P	€Z)6‚-^:^:A`,%@,)6-d8 Av<¦}€n‚%x6-%@‚9Œ%%6ƒ-F:@ ,%AV$F:@,–+  ª Czas wykonania te<§}stu: ´ ƒ¾  taktow.È€D:BASICXE.BAS,%AV$F:@,–+  ª Czas wykonania te<:10 REM Test szybkosci - Turbo Basic›20 TIME$= "000000"›30 GRAPHICS 24:COLOR 1›40 FOR I=0 TO 191›50   FOR J=0 TO 319›60     PL@©}OT J,I›70   NEXT J›80 NEXT I›90 SM=DPEEK(DPEEK(560)+4):J=0›100 WHILE J<7680›110   POKE SM+J,0›120   J=J+1›130 WEND ›140 J=TIM@ª}E›150 GRAPHICS 0›160 PRINT ›170 PRINT "Czas wykonania testu: ";›180 PRINT J;›190 PRINT " taktow."›200 END ›30 WEND ›140 J=TIM@kbxÉÊSÍA’A‘—B–
""Test szybkosci - Turbo Basic›N000000+@$@(€-D¬}A‘2-A<		,€F	P	€Z)6‚-U:U:A`,%@,)6-d> Av€n‚%D­}x6-%@‚?Œ		6-`–+  ª Czas wykonania testu: ´ ¾  taktow.È€D®}D:TBASICXL.BAS@‚?Œ		6-`–+  ª Czas wykonania testu: ´ ¾  taktow.È€D;Test szybkosci - Action!››BYTE cl1=20,cl2=19,i›CARD j,time,sm,dl=560››PROC Test()› cl1=0 cl2=0› Graphics(24) Color=1› FOR i=H°}0 TO 191›  DO›  FOR j=0 to 319›   DO›   Plot(j,i)›   OD›  OD› sm=PeekC(dl+4) j=0› WHILE j<7680›  DO›   Poke(sm+j,0)›   j==+1›H±}  OD› time=cl1+256*cl2› Graphics(0)› PrintE()› Print("Czas wykonania testu: ")› PrintC(time)› PrintE(" taktow.")›RETURN ›=+1›Hy/* Test szybkosci - C */››char i,*cl1,*cl2;›int j,time,sm;››main()›$(› cl1=20;› cl2=19;› *cl1=0;› *cl2=0;› graphics(24);› colL³}or(1);› for(i=0;i<=191;++i)› $(›  for(j=0;j<=319;++j)›  $(›   plot(j,i);›  $)› $)› sm=dpeek(dpeek(560)+4);› j=0;› while(j<768L´}0)› $(›  poke(sm+j,0);›  ++j;› $)› time=*cl1+256*(*cl2);› graphics(0);› printf("\n");› printf("Czas wykonania testu: ");› priLµ}ntf("%d",time);› printf(" taktow.\n");›$)›l1+256*(*cl2);› graphics(0);› printf("\n");› printf("Czas wykonania testu: ");› priL*!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†<ˆ%@,¢	ˆ§Ž%‡%†&Ñ}@¬	†±6‚8%@,-@¶
@  ""***** ÚÎÁË ÓÔÁÎÄÁÒÄÏ×Ù *****›¥(>: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!D6‚8%@,-ú -@@ ( ÍÅÎÕº×}ÿ'('(± - 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.°Bµ6€-€&@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,$@n6‚8Œ%@ä},-@sˆ-@x"’}Ž%‡%ˆ’‚	ˆ‡	†Œ
@ ‘1,0,0,60,6,62,102,62,12›’3,12,24,6å}0,96,96,96,60,0›“5,0,0,60,102,126,96,62,12›”12,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,0›—19,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,0› 94,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.æBë6€ì}-€&@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	ˆh6‚8%@,-@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' 88›2 REM ******************************›10 CLR :POKE 5}66,158:TRAP 20000›15 GOSUB 100:REM  ÉÎÉÃÊÁÌÉÚÁÃÊÁ ›20 GOSUB 300:REM  ÍÅÎÕ ÇÌÏ×ÎÅ ›25 GOSUB 10000›30 KEY=KEY-48›35 IF KEY=1 TH}EN 1000›40 IF KEY=2 THEN 2000›45 IF KEY=3 THEN 3000›50 IF KEY=4 THEN 4000›55 IF KEY=5 THEN 5000›60 IF KEY=6 THEN 6000›65 IF K}EY=7 THEN 7000›70 GOTO 25›100 REM ******* ÉÎÉÃÊÁÌÉÚÁÃÊÁ *******›105 DIM MAT(8,8),RCH(128),S$(36),GEN$(1024),NAM$(15)›110 S$(1	},36)="á¬ã§å¬ì¯î§ï§ó§ú®ú§Á¬Ã§Å¬Ì¯Î§Ï§Ó§Ú®Ú§"›115 FOR I=1 TO 128›120 IF I>27 AND I<33 OR I>125 THEN RCH(I)=2:GOTO 130›125 RCH(I
})=0›130 NEXT I›135 POKE 106,PEEK(106)-10:GRAPHICS 0›140 ADRES=(PEEK(106)+2)›145 IF ADRES<>INT(ADRES/4)*4 THEN ADRES=ADRES+1:G}OTO 145›150 ADRES=ADRES*256›155 ? CHR$(125)›160 POKE 710,0:SETCOLOR 1,1,15:POKE 752,1›165 POSITION 2,0›170 ? " ªªª Ã È Á Ò Ó } Ä Å Ó É Ç Î Å Ò ªªª "›175 POSITION 11,2›180 ? "Polish Version 2.0"›185 POSITION 2,23›190 ? " ¨ã© Ãïðùòéçèô âù Á®Óúùîäòï÷óëé§} ¸¸ ";›195 FOR I=0 TO 1023›200 POKE ADRES+I,PEEK(57344+I)›205 NEXT I›210 RETURN ›300 REM ******** ÍÅÎÕ ÇÌÏ×ÎÅ ********›305 ? }CHR$(125)›310 POSITION 5,1›315 ? " Í Å Î Õ  Ð Ò Ï Ç Ò Á Í Õ º"›320 POSITION 2,4›325 ? "± - 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 3›1010 ? CHR$(125)›1015 ? "     ÚÅÓÔÁ× ÓÔÁÎÄÁÒÄÏ×Ù ÚÎÁËÏ× "›1020 POSITION 2,4›1025 ? "z}nak":? "kod"›1030 FOR J=0 TO 3›1035 FOR K=0 TO 7›1040 KOL=6+K*4:WRS=7+J*4›1045 POSITION KOL,WRS›1050 CHAR=I*32+J*8+K›1055 IF }RCH(CHAR+1)=2 THEN 1080›1060 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:? CHAR›1080 NEXT K›1085 NEXT J›1090 }POSITION 2,23›1095 ? "Dalej ?.. (T/N)";›1100 GOSUB 10000›1105 IF KEY=84 OR KEY=116 THEN 1120›1110 IF KEY=78 OR KEY=110 THEN P}OP :GOTO 20›1115 GOTO 1100›1120 NEXT I›1125 GOTO 20›2000 REM ** ÚÅÓÔÁ× ÐÒÚÅÄÅÆÉÎÉÏ×ÁÎÙ **›2005 ? CHR$(125)›2010 ? "   ÚÅÓÔÁ× }ÚÎÁËÏ× ÐÒÚÅÄÅÆÉÎÉÏ×ÁÎÙÃÈ "›2015 POSITION 2,8›2020 ? " ÍÅÎÕº"›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 10000›2050 KEY=KEY-48›2055 IF KEY=2 THEN 20›2060 IF KEY<>1 THEN 2045›2065 ? CHR$(125)›2070 POKE 75}6,ADRES/256›2075 FOR I=0 TO 7›2080 FOR J=0 TO 15›2085 POSITION 5+2*J,6+2*I›2090 CHAR=I*16+J›2095 IF RCH(CHAR+1)=0 THEN ? CHR$}(CHAR)›2100 IF RCH(CHAR+1)=1 THEN ? CHR$(CHAR+128)›2105 NEXT J›2110 NEXT I›2115 GOSUB 10000›2120 KEY=KEY-48›2125 IF KEY<>2 TH}EN 2115›2130 POKE 756,224›2135 GOTO 20›3000 REM ** ÐÒÏÊÅËÔ ÎÏ×ÅÇÏ ÚÎÁËÕ **›3005 ? CHR$(125)›3010 ? "     ÐÒÏÊÅËÔÏ×ÁÎÉÅ ÎÏ×ÅÇÏ} ÚÎÁËÕ "›3015 POSITION 2,8›3020 ? "Wcisnij znak do przedefiniowania!"›3025 GOSUB 10000›3030 K2=KEY›3035 ? :? "Czy to ten znak }?.. ";CHR$(K2+128);" (T/N)"›3040 GOSUB 10000›3045 IF KEY=78 OR KEY=110 THEN 3000›3050 IF KEY<>84 AND KEY<>116 THEN 3040›3055 !}IF RCH(K2+1)=0 THEN 3085›3060 ? :? "Znak ";CHR$(K2+128);" byl przedefiniowywany."›3065 ? "Czy rezygnujesz z jego poprzedniego"}   wzoru? (T/N)"›3070 GOSUB 10000›3075 IF KEY=78 OR KEY=110 THEN 20›3080 IF KEY<>84 AND KEY<>116 THEN 3070›3085 ? 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 10000›3130 KEY=KEY-48›(}3135 IF KEY=1 THEN 3150›3140 IF KEY=2 THEN 20›3145 GOTO 3125›3150 ? CHR$(125)›3155 POSITION 2,23›3160 ? " ÃÈ×ÉÌÅÃÚËÅ®®® ";›31)}65 IF K2>=0 AND K2<32 THEN AD=(K2+64)*8›3170 IF K2>=32 AND K2<96 THEN AD=(K2-32)*8›3175 IF K2>=96 AND K2<128 THEN AD=K2*8›318*}0 FOR I=0 TO 7›3185 S=PEEK(AD+ADRES+I)›3190 FOR J=1 TO 8›3195 MAT(I+1,J)=S-INT(S/2)*2›3200 S=INT(S/2)›3205 NEXT J›3210 NEXT I+}›3215 GRAPHICS 2+16›3220 SETCOLOR 0,1,15:POKE 710,6›3225 FOR I=0 TO 7›3230 POSITION 7,2+I›3235 FOR J=8 TO 1 STEP -1›3240 IF M,}AT(I+1,J)=1 THEN ? #6;"0";›3245 IF MAT(I+1,J)=0 THEN ? #6;"°";›3250 NEXT J›3255 NEXT I›3260 POSITION 6,2:? #6;"+"›3265 IF STI-}CK(0)<>7 THEN POSITION 6,2:? #6;" ":GOTO 3260›3270 POSITION 6,2:? #6;" ":PKW=2:PKK=7›3275 POSITION PKK,PKW›3280 ? #6;" "›3285.} IF STICK(0)=15 AND PEEK(764)=255 AND STRIG(0)=1 THEN POSITION PKK,PKW:? #6;"+":GOTO 3275›3290 IF STRIG(0)=0 THEN MAT(PKW-1,1/}5-PKK)=ABS(MAT(PKW-1,15-PKK)-1):GOSUB 30000›3295 IF PEEK(764)=30 THEN POKE 764,255:GRAPHICS 0:POKE 710,0:POKE 752,1:SETCOLOR 0}1,1,15:GOTO 20›3300 IF PEEK(764)=26 THEN POKE 764,255:GOTO 3455›3305 IF PEEK(764)<>255 THEN POKE 764,255›3310 IF STICK(0)=14 1}THEN GOSUB 3335:GOTO 3330›3315 IF STICK(0)=7 THEN GOSUB 3365:GOTO 3330›3320 IF STICK(0)=13 THEN GOSUB 3395:GOTO 3330›3325 IF 2}STICK(0)=11 THEN GOSUB 3425:GOTO 3330›3330 GOTO 3275›3335 POSITION PKK,PKW›3340 IF MAT(PKW-1,15-PKK)=1 THEN ? #6;"0"›3345 IF 3}MAT(PKW-1,15-PKK)=0 THEN ? #6;"°"›3350 PKW=PKW-1›3355 IF PKW<2 THEN PKW=9›3360 RETURN ›3365 POSITION PKK,PKW›3370 IF MAT(PKW-4}1,15-PKK)=1 THEN ? #6;"0"›3375 IF MAT(PKW-1,15-PKK)=0 THEN ? #6;"°"›3380 PKK=PKK+1›3385 IF PKK>14 THEN PKK=7›3390 RETURN ›3395}5 POSITION PKK,PKW›3400 IF MAT(PKW-1,15-PKK)=1 THEN ? #6;"0"›3405 IF MAT(PKW-1,15-PKK)=0 THEN ? #6;"°"›3410 PKW=PKW+1›3415 IF6} PKW>9 THEN PKW=2›3420 RETURN ›3425 POSITION PKK,PKW›3430 IF MAT(PKW-1,15-PKK)=1 THEN ? #6;"0"›3435 IF MAT(PKW-1,15-PKK)=0 TH7}EN ? #6;"°"›3440 PKK=PKK-1›3445 IF PKK<7 THEN PKK=14›3450 RETURN ›3455 GRAPHICS 0:POKE 752,1:POKE 710,0:? CHR$(125)›3460 SETC8}OLOR 1,1,15:POSITION 2,23›3465 ? " ÐÒÚÅÄÅÆÉÎÉÏ×Ù×ÁÎÉÅ ÚÎÁËÕ®®® ";›3470 FOR I=1 TO 8›3475 S=0›3480 FOR J=0 TO 7›3485 S=S+2^J*M9}AT(I,J+1)›3490 NEXT J›3495 POKE AD+ADRES+I-1,S›3500 NEXT I›3505 RCH(K2+1)=1›3510 GOTO 20›4000 REM ***** ÚÎÁË ÓÔÁÎÄÁÒÄÏ×Ù ****:}*›4005 ? CHR$(125)›4010 ? "   ÐÒÚÙ×ÒÏÃÅÎÉÅ ÚÎÁËÕ ÓÔÁÎÄÁÒÄÏ×ÅÇÏ "›4015 POSITION 2,5›4020 ? "Wcisnij znak, ktoremu chcesz przyw;}ro- cic standardowa postac!"›4025 GOSUB 10000:K2=KEY›4030 IF RCH(K2+1)=1 THEN 4040›4035 ? :? "Znak ";CHR$(K2+128);" nie jest <}przedefiniowany!":GOTO 4090›4040 ? :? "Czy to ten znak ";CHR$(K2+128);" (T/N)?"›4045 GOSUB 10000›4050 IF KEY<>84 AND KEY<>116=} THEN 4000›4055 IF K2>=0 AND K2<32 THEN AD=(K2+64)*8›4060 IF K2>=32 AND K2<96 THEN AD=(K2-32)*8›4065 IF K2>=96 AND K2<128 THE>}N AD=K2*8›4070 FOR I=0 TO 7›4075 POKE AD+ADRES+I,PEEK(57344+AD+I)›4080 NEXT I›4085 ? :? "Znak ";CHR$(K2+128);" przywrocony!":?}RCH(K2+1)=0›4090 POSITION 2,15:? " ÍÅÎÕº"›4095 ? :? "± - powrot do menu programu."›4100 ? :? "² - przywracanie nastepnego zna@}ku,"›4105 GOSUB 10000›4110 KEY=KEY-48›4115 IF KEY=1 THEN 20›4120 IF KEY=2 THEN 4000›4125 GOTO 4105›5000 REM ** ÐÒÏÊÅËÔ ÐÏÌÓËÉA}ÃÈ ÌÉÔÅÒ **›5005 ? CHR$(125)›5010 ? "    ÐÒÏÊÅËÔÏ×ÁÎÉÅ ÐÏÌÓËÉÃÈ ÌÉÔÅÒ  "›5015 POSITION 2,8›5020 ? " ÍÅÎÕº"›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 10000›5045 KEY=KEY-48›5050 IF KEY=1 THEN D}5100›5055 IF KEY=2 THEN 5300›5060 IF KEY=3 THEN 20›5065 GOTO 5040›5100 ? 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 10000›5185 IF KEY<>84 AND KEY<>116 THEN 5000›519K}0 ? CHR$(125)›5195 POSITION 2,23›5200 ? " ÐÒÚÅÄÅÆÉÎÉÏ×Ù×ÁÎÉÅ ÚÎÁËÏ×®®® ";›5205 RESTORE 5265›5210 FOR I=0 TO 17›5215 READ CHARL}›5220 IF CHAR>=0 AND CHAR<32 THEN AD=(CHAR+64)*8›5225 IF CHAR>=32 AND CHAR<96 THEN AD=(CHAR-32)*8›5230 RCH(CHAR+1)=1›5235 FORM} J=0 TO 7›5240 READ B›5245 POKE AD+ADRES+J,B›5250 NEXT J›5255 NEXT I›5260 GOTO 20›5265 DATA 1,0,0,60,6,62,102,62,12›5266 DATAN} 3,12,24,60,96,96,96,60,0›5267 DATA 5,0,0,60,102,126,96,62,12›5268 DATA 12,0,56,24,60,24,24,60,0›5269 DATA 14,12,24,124,102,1O}02,102,102,0›5270 DATA 15,12,24,60,102,102,102,60,0›5271 DATA 19,12,24,62,96,60,6,124,0›5272 DATA 26,24,24,126,12,24,48,126,0P}›5273 DATA 24,12,24,126,12,24,48,126,0›5274 DATA 37,0,24,60,102,102,126,102,12›5275 DATA 38,24,60,102,96,96,102,60,0›5276 DATQ}A 39,0,126,96,124,96,100,126,4›5277 DATA 64,0,96,108,120,112,96,126,0›5278 DATA 95,24,86,102,118,126,110,102,0›5279 DATA 92,2R}4,60,102,102,102,102,60,0›5280 DATA 94,24,60,96,60,6,6,60,0›5281 DATA 93,24,126,12,24,48,96,126,0›5282 DATA 91,24,126,22,12,2S}4,48,126,0›5300 FOR I=0 TO 17›5305 ? CHR$(125)›5310 ? "   ×ÙÂÏÒ ÐÏÌÓËÉÃÈ ÌÉÔÅÒ É ÉÃÈ ËÏÄÏ× "›5315 POSITION 2,5›5320 ? "LITERAT}: ";S$(2*I+1,2*I+2)›5325 POSITION 2,8›5330 ? " ÍÅÎÕº"›5335 ? :? "± - rezygnujesz z tej litery,"›5340 ? :? "² - definiujesz teU} litere,"›5345 ? :? "³ - powrot do menu programu."›5350 GOSUB 10000›5355 KEY=KEY-48›5360 IF KEY=3 THEN POP :GOTO 20›5365 IF KV}EY=1 THEN 5485›5370 IF KEY<>2 THEN 5350›5375 RESTORE 5265+I›5380 ? :? "Wcisnij znak do zastapienia litera!"›5385 GOSUB 10000:W}K2=KEY›5390 ? "Czy to ten znak... ";CHR$(K2+128);" ? (T/N)"›5395 GOSUB 10000›5400 IF KEY<>84 AND KEY<>116 THEN I=I-1:GOTO 548X}5›5405 IF RCH(K2+1)=0 THEN 5440›5410 ? "Znak byl przedefiniowywany!"›5415 ? "Czy rezygnujesz z jego poprzedniego   wzoru ?...Y}  (T/N)"›5420 GOSUB 10000›5425 IF KEY=84 OR KEY=116 THEN 5440›5430 IF KEY=78 OR KEY=110 THEN I=I-1:GOTO 5485›5435 GOTO 5420›5Z}440 READ CHAR›5445 IF K2>=0 AND K2<32 THEN AD=(K2+64)*8›5450 IF K2>=32 AND K2<96 THEN AD=(K2-32)*8›5455 IF K2>=96 AND K2<128 [}THEN AD=K2*8›5460 FOR J=0 TO 7›5465 READ B›5470 POKE AD+ADRES+J,B›5475 NEXT J›5480 RCH(K2+1)=1›5485 NEXT I›5490 GOTO 20›6000 \}REM ***** ÚÁÐÉÓ ÇÅÎÅÒÁÔÏÒÁ *****›6005 ? CHR$(125)›6010 ? "  ÚÁÐÉÓ ÇÅÎÅÒÁÔÏÒÁ ÚÎÁËÏ× ÎÁ ÎÏÓÎÉË "›6015 TRAP 6900›6020 POSITION ]}2,5›6025 ? "Podaj nazwe zbioru!"›6030 NAM$="               "›6035 INPUT NAM$:IF NAM$(1,1)<>"C" AND NAM$(1,1)<>"D" THEN 6900›6^}040 CLOSE #2:OPEN #2,8,0,NAM$›6045 FOR I=0 TO 1023›6050 PUT #2,PEEK(ADRES+I)›6055 NEXT I›6060 POSITION 2,15›6065 ? " ÍÅÎÕº"›6_}070 ? :? "± - informacje o sposobie uzywania        generatora z nosnika,"›6075 ? :? "² - powrot do menu programu."›6080 GOSU`}B 10000›6085 KEY=KEY-48›6090 IF KEY=2 THEN 20›6095 IF KEY<>1 THEN 6080›6100 ? 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 6140›6145 GOTO 20›6900 ? :? CHR$(e}253);"Bledna nazwa zbioru!":? ›6905 ? "Wcisnij ÓÔÁÒÔ (powrot do menu)!"›6910 IF PEEK(53279)<>6 THEN 6910›6915 TRAP 20000:GOTOf} 20›7000 REM *** ÚÁËÏÎÃÚÅÎÉÅ ÐÒÏÇÒÁÍÕ ***›7005 ? CHR$(125)›7010 ? "    Ë Ï Î É Å Ã   Ð Ò Ï Ç Ò Á Í Õ  "›7015 POSITION 2,5›702g}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 LSTBePRZYKL1 PASBhPRZYKL2 PASBkPROGRAM3BASBoPROGRAM3LSTBtZAMIANA LSTB{ZAMIANA BASB
ƒLOADER  LSTB
LOADER  BASB—BASIC   LSTB›BASIC   BASB BASICXE LSTB¤BASICXE BASB¨TBASICXLLSTB«TBASICXLBASB¯ACTION  ACTB²C       C  RES/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 10000›7055 KEY=KEY-48›7060 IF KEY=1 THEN 20›7065 IF KEY<>2 THEN 7030›7070 ? "Potwierdz wymazanie prt}ogramu... (T/N)"›7075 GOSUB 10000›7080 IF KEY<>84 AND KEY<>116 THEN 20›7085 GRAPHICS 0:CLR :POKE 566,146:NEW ›10000 REM *****u}*** ÏÄÐÏ×ÉÅÄÚ ********›10005 CLOSE #1›10010 OPEN #1,4,0,"K:"›10015 GET #1,KEY›10020 IF KEY>127 THEN KEY=KEY-128›10025 IF KEY>v}26 AND KEY<32 OR KEY>124 AND KEY<128 THEN 10000›10030 RETURN ›20000 REM *********** ÔÒÁÐ **********›20005 TRAP 20000:GOTO 20›w}30000 REM *********** ÂÅÅÐ **********›30005 SOUND 0,96,10,10›30010 FOR X=1 TO 10›30015 NEXT X›30020 SOUND 0,0,0,0›30025 RETURx}N ›00 REM *********** ÂÅÅÐ **********›30005 SOUND 0,96,10,10›30010 FOR X=1 TO 10›30015 NEXT X›30020 SOUND 0,0,0,0›30025 RETUR32000 REM EDYTOR BASICA›32010 REM wersja 1.1 dla "Bajtka"›32020 CLR :DIM LINIA$(120):CLOSE #2:CLOSE #3›32030 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 32060›32070 IF LINIA$(1,1)="*" THEN B=VAL|}(LINIA$(2,LEN(LINIA$))):POSITION 2,4:LIST B:GOTO 32060›32080 POSITION 2,10:? "CONT"›32090 B=VAL(LINIA$):POSITION 1,3:? " ";›3}}2100 POKE 842,13:STOP ›32110 POKE 842,12›32120 ? CHR$(125):POSITION 11,1:? " ÅÄÙÔÏÒ ÂÁÓÉÃÁ ":POSITION 2,15:LIST B›32130 C=0:O~}DP=C›32140 POSITION 2,16:INPUT #3;LINIA$:IF LINIA$="" THEN ? "LINIA ";B;" USUNIETA":GOTO 32050›32150 FOR D=1 TO LEN(LINIA$):C}=C+1:ODP=ODP+(C*ASC(LINIA$(D,D))):NEXT D›32160 KOD=INT(ODP/676)›32170 KOD=ODP-KOD*676›32180 KODS=INT(KOD/26)›32190 KODM=KOD-(€}KODS*26)+193›32200 KODS=KODS+193›32210 POSITION 0,16:? CHR$(KODS);CHR$(KODM)›32220 POSITION 2,13:? "Jezeli kod sie nie zgadza}, nacisnij    ÒÅÔÕÒÎ  i popraw linie.":GOTO 32050›16:? CHR$(KODS);CHR$(KODM)›32220 POSITION 2,13:? "Jezeli kod sie nie zgadza2