cdLÃÒA¤FILE¤EXT¤M¤MENU¤CR¤PR¤BY¨SEC¨MESS1¤MESS2¤DRIVE¤EX¤TEMP¤BYTE¤TEMP¨COÕÉÊÁÂDRIVÅSUÂBÙSEÃPRÏEØCOUNÔI²(( <@(hÈÈ01A@A¾ <(( d(( Œ  ü„ $8A=@A@@™@@A”@@ ""Below is a typically cryptic›!!BASIC program, full of GOTO›$$and GOSUB spaghetti. When will›(##people ever learn to document›2their programs?›<›FI have added a variable›P&&dictionary for those who want to›Z$$try tracing. The program works›[&&by opening a SpartaDOS directory›\&&and using note and point to move›]$$through it 40 bytes at a time.›^%%Sparta XIO's are used to rename›_and protect.›` -R.A.›a›d%%+-----------------------------+›n%%| *** Variables Used *** |›r%%| |›t%%| A$: Sparta directory entry |›v%%| BY: Byte for point op. |›x%%| BY: Byte for point op. |›‚%%| BYTE$: Initialize counter |›Œ%%| CR$: ATASCII carriage return|›–%%| COU: Counter for intializing|› %%| DRIVE$: filespec (D1:*.*) |›ª%%| EX: Directory counter |›´%%| EX$: Initialization counter |›¾%%| EXT$: Filename Extension |›À%%| FILE$: Filespec |›È%%| M$: Message- type |›Ò%%| MENU$: Graphic box |›Ó%%| PR$: Message |›Ü%%| PR$: Message- operation |›æ%%| PRO: 0=unprotected 1=prot'd |›ð%%| PR$: Message |›ú%%| SEC: Sector for point op. |›%%| SUB: Subdir number |›%%| TEMP$: Initialize counter |›"%%+-----------------------------+›,›6~~€;@@,;@ ,‚;@,ƒ;@@,„;A,…;@,†;@,‡9@ ,ˆ9@ ,‰;@@,Š;@@,@11‹;@ ,Œ;A ,;@ ,Ž;@,A9AU,^6….>:AU,h//@@D:EXTENDER.DATr)@@Œ|@†(}One moment,thinking‘-&@š’-@@¤H4Œ7‘$@%@ %’<‘$@%@ %’,4ÎH68‘,-8‘,%@® ’¸ ‘Â''For I=0 To Cou-1:? Temp(I):Next I›Ì‘-@&@Ö) A )8‘,8‘&@,A à Bêm.6.Œ7‘$@%@<‘$@%@,m6‹.Œ7+‘&@,$@%@<+‘&@,$@%@,ôm.6Œ7‘$@%@<‘$@%@,.‹m6Œ7+‘&@,$@%@<+‘&@,$@%@,.þO 6“-8‘,6”-8‘&@,&68‘,-”768‘&@,-“E6‘-‘&@O Ap B ‘@‚&226„.(0;;6„7@A,.(| File | Type | Operation |:;;6„7@,.(D;;6„7A!,.(| | | |N;;6„7Aa,.(X A b (}l Av'# Which drive to work with??'•€*6‹.D1:*.**6‹7@<@,.=:•,Š+@+@@‹” B@ž (}¨-@(„² @@‹¼ A Æ5 @@‹5@‡8–,ˆ8–,ÐAR@(Ú<@€@—˜(6‡8–,-—16ˆ8–,-˜<@ä6™-îA€7@<@,4*+6†.Skipping5 A A6™-@ø//€7@<@,4 F*–AS€7@<@,4 F'6†.EOF1 A E‘-@AI ‘S A  (™6†.Reading A ' 6.D1:'67@<@,.=:•, ‘-@@*#€7‘<‘,4 6š-‘'# A@4 ‘>6š-@H%%67@,.€7@<š&@,R67B:,%@,..\C€7@<@,0 C67B:,%@,.€7@<@,f))€7@<@,4ÄÉÒ*(™A@p&&€7@<@,4ÄÉÒAz(-@@(( „(-@@((7@:“,Ô ‘Þ B Aè46†. Garbage file A * B4 Aò6†. Thinking... A ü 6ƒ.‘-&@..6.Œ7‘$@%@<‘$@%@,4ŽA $’-@@.&&7’<’,0Ž7’<’,*7’<’,0ÎA8 ’ A B'L ‘V$6ƒ.Text(??)6‚.T$ A@`Y.6ƒ.Œ7‘$@%@<‘$@%@ ,Y6‚.Œ7‘$@%@<‘$@%@,j't-@@(ƒ~16‚7@,.X96€.16€7B:€,%@,.,ˆ167š%@,.‚16€7B:€,%@,.7@,’6†.Renaming A “!!Fix for extension < 3 chars›”œ-@B:€,•€7œ<œ,4 6€7œ<œ,.?– œœ((@2@€¦6†. Protecting A °((@5@º A¼›Ä)-@%@)( Î-@%@(†$ЛØ6†. Change Sub A â@ìD6.7@