&,
:ГTEXT FILE LISTER FOR COCO DISK BASIC&G:ГWILLARD GOOSEY, 1999&e:Гgoosey@mailhost.nmt.edu&╡(:ГTHIS IS COPYRIGHT 1999 WILLARD GOOSEY, RELEASED UNDER GNU GENERAL PUBLIC &╟2:ГLICENSE 2.0&╥<Х 2048&єFМ D$(2),GR(68),GT(69),GS(69)'P╗ Й "FILENAME> ";F$'UST│0'6Z:ГPARSE FILENAME FILE CAN BE:'~d:ГN:NAME.EXT   N:NAME/EXT   NAME.EXT NAME/EXT NAME.EXT:N NAME/EXT:N'СnC│ Ю(1,F$,":")'еxЕC│0зDR│0:Бе150'ъВЕ C┤│4 з F2$│ О(F$,Cм1):DR│ Й(F2$):I│ З(F$):F$│ П(F$,IмC):Бе 150(МI│ З(F$):F2$│ П(F$,IмC):DR│ Й(F2$):F$│ О(F$,Cм1)(2ЦC│ Ю(1,F$,"/")(AаЕC│0 з 180(Tк Р(F$,C,1)│"."(g┤C│ Ю(1,F$,".")(е╛:ГPATHOLOGICAL FILE NAMES... NO EXTENTION, SPACES IN NAME(у╚Е C│0зF$│F$л".   " :ГDIRECTORY SEARCH EXPECTS A . IN NAME(Ў╥C│ Ю(1,F$,".")),▄Е З(F$)┤(Cл3) з F$│F$л" ":Бе 220 :ГFILL EXTENTION)nцЕC┤9зF1$│ О(F$,Cм1):F2$│ П(F$,4):F$│F1$л б(8м З(F1$)," ")лF2$)ИЁ:ГREAD DIR, FIND FILE)м·▀DR,17,2,D$(1),D$(2) :ГREAD FAT)┴
FA$│ О(D$(1),68))№
:ГFORI=1TO68:PRINTHEX$(ASC(MID$(FA$,I,1)));" ";:NEXT I*
:ГPRINT*
"А SECTOR│3е11*:
,::▀DR,17,SECTOR,D$(1),D$(2)*I
6::АJ│1 е 2*X
@::::АI│1е4*~
J::::::F1$│ б(8," "):F2$│ б(3," ")*Ц
T::::::OF│(Iм1)н32л1*╬
^::::::Е Р(D$(J),OF,1)│ Л(0)з Бе 440 :ГDELETED ENTRY+
h::::::Е Р(D$(J),OF,1)│ Л(&HFF)з К :ГTHIS AND ALL FURTHER ENTRIES EMPTY+6
r::::::F1$│ Р(D$(J),OF,8)+T
|:Г::::::PRINT"NAME=";F1$;+j
Ж::::::F1$│F1$л"."+Н
Р::::::F1$│F1$л Р(D$(J),OFл8,3)+╝
Ъ:Г::::::PRINT"  EXT =";MID$(D$(J),OF+8,3);+█
д:Г::::::PRINT"  FILE=";F1$+ї
о::::::ЕF$│F1$з Бе 480,

╕::::Л I,

┬::ЛJ,
╠Л SECTOR,
╓К,7
р:ГPRINT"FOUND";F$,F1$,V
ъ:ГPRINT"D$(";J;") ENTRY "I,Л
ЇDE$│ Р(D$(J),OF,32): :ГDIR ENTRY OF FILE WE WANT,│
■T│ К( Р(DE$,12,1)) :ГFILE TYPE BYTE,▌AF│ К( Р(DE$,13,1)) :ГASCII FLAG BYTE-FG│ К( Р(DE$,14,1)) :ГFIRST GRANULE NUMBER-VLS│ К( Р(DE$,15,1)) н 256 л  К( Р(DE$,16,1)) :Г# BYTES IN LAST SECTOR-Ч&:ГREST OF ENTRY UNUSED, RESERVED FOR FUTURE USE (YEAH RIGHT)-у0:ГPRINT"TYPE";T;"ASCII";AF;"FIRST GRAN";FG;" (0X";HEX$(FG);") BYTES";LS-√::ГBUILD GANULE LIST.DK│1.NGR(1)│FG.+XЕ GR(K)▓│&HC0 з Бе 630.Ob::GR(Kл1)│ К( Р(FA$,GR(K)л1,1)).blK│Kл1 : Бе 600.йv:ГK=NUM OF GRANS +1... GR(K) = NUMBER OF SECTORS USED IN LAST GRAN.ёАLG│GR(K) ░ &H3F :ГBITS 7-6 ARE 1, 5-0 = # SECTORS USED IN LAST GRAN.√КK│Kм1/Ф:ГMAP GRANULES -> TRACK,SECTOR/VЮ:ГEACH GRANULE = 9 SECTORS = 1/2 TRACK = 2304 BYTES/yи:ГTRACK 0, SECTOR 1-9 = GRAN 0/Я▓:ГTRACK 0, SECTOR 10=18 = GRAN 1 /л╝:Г(...)/╙╞:ГTRACK 16, SECTORS 10-18 = GRAN 33/·╨:ГTRACK 17 DIRECTORY--------------0┌:ГTRACK 18, 1-9 = GRAN 340$ф:Г(...)0Cю:ГTRACK 34,10-18 = GRAN 670K°A│00oАL│1е34 й 2 :ГGRANULE NUMBER +10}::GT(L)│A0Л::GS(L)│10Ы ::GT(Lл1)│A0м*::GS(Lл1)│100╕4::A│Aл10└>Л L0╔HA│180▄RАL│35 е 67 й 20ъ\::GT(L)│A0°f::GS(L)│11p::GT(Lл1)│A1z::GS(Lл1)│101%Д::A│Aл11-ОЛ L1TШ:ГYA-TA!  NOW I CAN LIST THE FILE!1gвЕK│1 з Бе 10201wмА L│1 е Kм11И╢::А A│ 0 е 81к╩::::Е ST┤▓0 з в 44539 :Д ST│11╪╘::::▀DR,GT(GR(L)л1),GS(GR(L)л1)лA,P1$,P2$1ы▐::::З P1$;P2$;1їш::Л A1¤ЄЛ L2№Е LG│1 Бе 10902АL│0е LGм22?::Е ST┤▓0 з в 44539 :Д ST│12k$::▀DR,GT(GR(K)л1),GS(GR(K)л1)лL,P1$,P2$2|.::З P1$;P2$;2Д8Л L2▒B▀DR,GT(GR(K)л1),GS(GR(K)л1)лLGм1,P1$,P2$2╟VЕ ST┤▓0 з в 445392ф`Е LS┤128 з З О(P1$,LS):К2юjЗP1$;3tЗ О(P2$,LSм128)3~К 10902АL│0е LGм22?::Е ST┤▓0 з в 44539 :Д ST│12k$::▀DR,GT(GR(K)л1),GS(GR(K)л1)лL,P1$,P2$2|.::З P1$;P2$;2Д8Л L2▒B▀DR,GT(GR(K)л1),GS(GR(K)л1)лLGм1,P1$,P2$2╟VЕ ST┤▓0 з в 445392ф`Е LS┤128 з З О(P1$,LS):К2юjЗP1$;3tЗ О(P2$,LSм1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                module random;
(*From Numerical Recipes in Pascal*)
(*William H Press*)
(*page 221-222*)
(*Pascal version of Knuths random3 rnd generator*)
(*requires either 32bit floats or 32bit ints*)
(*guess which version is used under 6X09 :*)
(*code for 32-bit int version in comments*)

(*OS-9 pascal actually uses 5-byte reals (40 bits!!!) :-*)

(*DEFT pascal uses 6-byte (48 bit) reals *)

(*Owens says Pascal programmers know how big an integer is*)
(*must be difficult to implement the CDC 6600 60-bit ints*)
(*on <64bit micros :-*)

(*OS-9 Pascal subroutine module 2k8 by Willard Goosey*)
(*smart-ass comments also Willard Goosey*)
(*goosey@sdc.org*)
(*Deft Pascal module 2k9 by Willard Goosey *)

var  (*BETTER be static!!!*)
     (*no static vars in OS9 pascal*)
     (*static vars by default in DEFT Pascal *)

   ran3inext, ran3extp : integer;
   ran3ma : array [1..55] of real;

function ran3(var idum:integer):real; public;
(* const
 * mbig=1000000000;mseed=161803398;mz=0;fac=1.0e-9;
 * var
 * i,ii,k,mj,mk : longint; 
 *)

const
     mbig=4.0E6;
     mseed=1618033.0;
     mz=0.0;
     fac=2.5E-7;
     (* DEFT Pascal requires the e to be uppercase E *)

var
     i,ii,k : integer;
     mj,mk : real;

begin
     if idum < 0 then begin  (*seed generator*)
        mj := mseed+idum;
        if mj>=0.0 then 
            mj:= mj-mbig*trunc(mj/mbig)
        else
            mj:= mbig-abs(mj)+mbig*trunc(abs(mj)/mbig);
(*          mj:=mj mod mbig; *)
        ran3ma[55] := mj;
        mk:=1;
        for i:= 1 to 54 do begin
            ii:=21 * i mod 55;
            ran3ma[ii]:=mk;
            mk:=mj-mk;
            if mk<mz then mk:=mk+mbig;
            mj:=ran3ma[ii]
        end;
        for k:=1 to 4 do begin
            for i:=1 to 55 do begin
                ran3ma[i]:=ran3ma[i]-ran3ma[1+((i+30) mod 55)];
                if ran3ma[i]<mz then
                     ran3ma[i]:=ran3ma[i]+mbig;
            end
        end;
        ran3inext:=0;
        ran3extp:=31;
        idum:=1
     end; (*init*)

ran3inext := ran3inext+1;
if ran3inext = 56 then ran3inext:=1;
ran3extp:=ran3extp+1;
if ran3extp = 56 then ran3extp := 1;
mj:=ran3ma[ran3inext]-ran3ma[ran3extp];
if mj<mz then mj:=mj+mbig;
ran3ma[ran3inext]:=mj;
ran3:=mj*fac;
end; (*function ran3*)


end.

                                    program testr (input,output);
type
     a = array [1..55] of real;
var
(*static vars for ran3?*)
(*shouldn't be needed under DEFT *)
(*   next, nextp : integer;
   ra : a;
*)
(*vars for main program*)
   foo : array [1..100] of integer;
   seed : integer;
   res : real;
   i : integer;

function ran3(var i:integer) : real; external;

begin
     for i := 1 to 100 do
     begin
          foo[i]:=105;
     end;
     seed := -42;

     res := ran3(seed); (*initilize rnd generator*)

     seed:=0;
     for i:= 1 to 20 do
     begin
          res:=ran3(seed);
          writeln(res);
     end;
     for i :=1 to 100 do
     begin
          if foo[i] <> 105 then
             writeln('foo corrupted with',foo[i]);
     end
end.

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         *&
:ГVERSION 1.1&"
у8,0:у0,63&1у1,0:у9,63&7В&W(АT│&H95C5 е&H95C9:НP:ТT,P:Л&ю-т32:T$│ Л(13)л б(8,32):ЗT$"  Ultra Editor"T$T$" Copyright 1986"T$"Bob van der Poel"T$"17435-57  Avenue"T$"Edmonton Alberta"T$" Canada T6M 1E1"T$T$'2АT│500е508:НP:ТT,P:Л:в500'M<A│ Ж(27)н256л Ж(28):Х200,Aл700:в Ж(&H1B)н256л Ж(&H1C)м&H1F39'iFDV│м1м( Ж(&HC000)│68)н2'ЭPМF(1),DF$(1):BF$(0)│"MAIN ":BF$(1)│"SECONDARY "'ЄZИЁБе99:Ия Бе180:З"Edit which file...":Бж540:ЕF$│""з99:ДЩ"I",DV,F$:Ия Бе640:Бе240(b:Гmain menu(cт32:Ия Бе 640(7dЗ"   Ultra Editor * Main Menu"(ЧnFR│( Ж(&HD7)н256л Ж(&HD8))м( Ж(&HD5)н256л Ж(&HD6)):A$│ И(FR)л" Bytes Free":Зд16м З(A$)о2)A$(═xBF│м( Ж(&HDC)┤▓0):BF$│" ":ЕBF зЗд8)BF$(1)"BUFFER")WВT$│ Л(13)л б(5,32):ЗT$T$"Editor"T$"Read file"T$"Append file"T$"Save buffer"T$"Print buffer"T$"Basic"T$"Cold boot"T$T$"@file: "DF$(BF))aМБж710)ВЦI│ Ю("ERASPBC@",I$):ЕI│0з140)наЮ:ИI Бе180,200,220,270,300,340,340,520)╗к:Гgo edit)ї┤F(BF)│1:Ъ:Т&HFF40,0:BZ│ Г(0):F(м( Ж(&HDC)┤▓0))│1:Бе99*╛:Гread file*2╚A│ Г4(0):З"Load new file...":Бж660:Бе230*D╥:Гappend file*Z▄З"Append file..."*oцБж540:Щ"I",DV,F$*╤ЁA│ Г1(DV):Е  Ж(&H81)зЗ"Out of memory--entire file not read. Press any key to continue.":Бж710*█·Бе180*ь
:Гwrite file+@
З"Save"BF$"buffer...":Бж680:Бж540:Щ"O",DV,F$:ЕBZ зA│ Г3(DV) :ДA│ Г2(DV):F(BF)│0+K
Ъ:Бе99+\
":Гprint file+Ф
,Е  Ж(&HFF22)░1 з З:╗Й"Printer not on line:";A$:Бе99+х
6Бж680:З"Printing file...press <BREAK>   to abort.":ЕBZ зA│ Г3(м2):ДA│ Г2(м2),%
@Е Ж(&H81)зЗ#м2:З#м2,">>>>> LISTING ABORTED <<<<<":Бе99::Д99,0
J:Гquit,З
TЗ"Exiting to BASIC...":АBF│0е1:Бж660:Л:ЕI$│"C"з500:ДЗ"Use 'GOTO 99' to re-enter":К,Ф
ЇA│ Г5(0),к
■:Гchange filename,╙Й"Input default file: ";DF$(BF):Бе99,ц:Гget filename-ЕDF$(BF)┤▓""зЗ" Default: "DF$(BF)-a&З:З б(32,8)"Filename: ";:P│ Ж(&H88)н256л Ж(&H89):╗ЙF$:ЕF$│""зF$│DF$(BF):ЕF$│""зР-p0ЕDV│м1з620-└:O1│ Ю(F$,":"):ЕO1 зO2$│ Р(F$,O1):F$│ О(F$,O1м1):ДO2$│":"л Р( И( Ж(2394)),2).DЕF$│"DIR"░DV│1зO1│ Й( Р(O2$,2)):Ю:Т&HA549,&H39:╬O1:Т&HA549,&HBD:З г(O1)"Free grans":Бе540.ENO1│ Ю(F$,"/"):ЕO1 з Р(F$,O1,1)│".".dXЕ Ю(F$,".")│0зF$│F$л".TXT".~bF$│F$лO2$:З@Pм1024,F$.ПlDF$(BF)│F$:Р.аv:Гerror trap/!АЗ#0:З Р("NFSNRGODFCOVOMULBSDD/0IOTMOSLSSTCNFDAODNIOFMNOIEDSUFNEBRDFOBWPFNFSAEFOSEVFERHRHP", мн2л1,2)" ERROR ";:в&HA1B1:Бе 99/>К:Гfiles not save warning/зФЕF(BF)│0зР:ДЗBF$(BF)"buffer not saved","Press <ENTER> to continue","Press <BREAK> to abort ";:╗ЙA$:Р/┬Ю:Гsee if block defined0
иЕBZ│0зР:ДЗ"Do you wish to save/print only  the defined block (Y/N)"0'▓Бж710:ЕI$┤▓"Y"зBZ│0:Р:ДР03╝:Гinkey0H╞I$│ Т:ЕI$│""з7100u╟ЕI$│▓"a"░I$┤│"z"зI$│ Л( К(I$)м&H20):Р:ДР0ФшЖ &H12,&H86,&H70,&H12,&H120╞ЄЖ&H5F,&H5C,&H96,&HBC,&H1F,&H02,&H7E,&H96,&HA3PЮ░0НJпб0Нhпб0Н╠пб0Н▓пб0Н?пб0Нпб8┘╠  эН*┌█▄Ж зН!Ю'oАoАЯ╙О¤ЁЯ╫0Н0╠АэБэБэБэБ╠┐ЁэБ╠
эД№Ю╙ooєЖ зН┴ЖLзН┌Жhe characterP▀@╢ ░╖ ЪeхeeOP4╠	rOBЩЖ дFc
р0Н@бА'm'
0 ЇьДнЛ тБ▒%	Б╣"Р ╒Б'Б'Б╚'Б┘'Ба'Б %╜БА$╣н ╝╦╒┌ДУЕн
;Н╗╙╦0╒`╤╔╫ё╞з╬п┬j╠r╩<║н#╟й├╨┴ўм╢о╬┌!─j╥
П═
Ж╙*└
0╪
╨╔╓t▀P╓P┴#	№ОфZ'	XоЕmД&
PА▒╞2=0Н¤+0ЛОфЦPHпж9Define which macro (1-9)?Define macro (<ctrl><V> when done):OОх0М║а!жДБE'Бe&O0
(	v
M&∙Z┴	$Ї1Н№▒Ж2=1л0МдOЦ╬4╬Ж
f5Ч╬╠
c
ЙЮ╤ЯH╞7жДБА'Z&ЇЯJ╢ "Д
'	)
Ж■Чo┼Ж╞■╫o╜вВoP┤Н/▄L&Н&	ГЁ%Нў
▌D╗Н	р╦т0Н■
пф4v▄Ж бНя&Ж*зНч0Н№╬╙Н$╬╒Н╬╤Н╬╧Н╬╫Н╬╦НLЖАзЯ╒5Ўь─оДп─эБ9Ж
зт oт
▄L&ДГЁ%z
Ю╧ЬH%ЬJ$l▌DН1mр'▄╧4▄H▌╧	s5УH%УD▌╧	>Н*НNЮ╧m'0 °р4VОА▐Hь┴
─эБ
╚УJ#ё5╓4rОА▐╧ЮD
лжА
пз└1?&Є5ЄН
ЖИ	▐Ю╧ТЮ╙▐╙жАБА&з─▀╒	ББ'яБВ'ыз└ чDeletes are forever! Are you sure?й▄L&оН OОe0М╚▓ждБy'БY'
9▄L▌Dй═Н[ЮH&- НQЮJ&#vНE▄H'l▄J'	У╧"_ЖБ Н*▄J'Q▄H'	У╧%DЖВ4╠
▌D+5зЯ╧pЮ╙O_▌H▌JжД*БА'ИББ&ЯH БВ&ЯJ0
 ц4LMН╓▄J'▄H'4▄J├
гс▌L5Ж▄╙4▄╒гс0Н01Н╥0Н9▄L&0НцАm└&Ж з_Z&ї╙#File size: lank oBlock size: TD 1,UGlobal change:
m0МыН%НJ №       Change:           To:0М▀хeОхObждБ`&
Z╫G0М╘ОeЖ
M╨G╫GNОхжд'Б`&N1!mд'	эжДБА&                              ╔├!"#$╟├                              ED      BAS RANDOM  PAS ▄TESTR   PAS ╪COPY16K ASM
 %ОEXTHDB BAS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
°'0
 эЯ╧DЦG'+ЧEЁ @ЧEОeжа'зА °╠

√ z^find:0МЎОeO
рNЮ╧Оeжд&
9Б`&N1!Ь╙&▓0
У&ё BFind:0МўОeO
йNОeжд'╦Б`&N1!mд'┐НNжАБА'жДБА&p
S'0
 э_m'
4сгсP─4ЖИ/╓╦сф$Ж	$ є5Я╧Я╤Ж
Ч╠
ьЮ╧4Єгс╤╦%╓╦Ю╧0Е9Ю╙Я╧╛Ю╒ФЯ╧┤Jump to:Ж
ЧN0МЁОхO
m!&ждБ<'¤[Б>'¤_!r)1▌D▐┌УDЮ╧'▄╙
┌█жДБА'▐┌УD$c~жДБА&н3A ъждБ`&1!4 Ж Lmа&√ЧD5 &
9Ю╙жДБА&ЕждБ &жАБ &ъ0Н['7 ▀ЦDжЖ'Б('Б &эm'+█ЖИ2Я╧Я╤НЖ
Ч╠ Ю╤Ь╙#┴╠Ц╠Б#ёЯ╤q4P╬Ю╙Ь╧$щ3A ї▀┌5╨40жа'НБ`&0
 Є4жАНбр'ш5░
N'
Бz"Бa%А 9404╞	■4kгс╫B╫DЦCЮ╦54╫╠ЖИЧF╓OOд╫O┴%4 О▄ЦD0Ж&жа'зА °5 Ц╠■Oї
O&Б
&Ї Б╓&ю5ЦO4OЯ╦╫CBЖ _О▄ЦD0Жm&oД_mр'oИ1жАза'\ ў5░Ж(С═&ЖPЧ═к9┘'╠-> ╠  эНS9№-°▄▌▐@▄L~┤ЇЮ╧жДБА'у4ОfжАза&·оф╫гс▌DўeжЯ╧БА&P7Оeца&ъmд+°O▌DЮ╧╤жазА&·ЖЮ╤Ь╙#NЯ╤Ю╧GЯ╧УJ&ш∙╞Ю╧xжДБА'Я╧Ю╤kЯ╤mZ&ц┌эЖ
qЖ
iЮ╧mД*
9FmД+°Ж зЮ╧47гсГА%Ж~Ч╦ ЮЮ╧жДБА'╥4гф╤╦%╓╦Ю╧0ЕЯ╧╠
▌D+oД5Я╧p╗Ж
0НўjпфЖИ№Ю╧жДБА'╪Я╧┌Ц╠Б"╠ Ю╤─Я╤╠
▌DцoЯ╧-
┘'Ю╧gжА'Б &Ж	╢ ёOwНУ94Ю╧mД*	50НЎ√пф9@У╧▌LQГА#QЮ╧╠А▌LoЛ5
э4Н-УL▌D'+| 
╠УD▌DЧО▄Ю╧жазА&·
Q'
i5ВО▄╞АZжЕБ &]&Ў Б`'
\OoЛ\9Block not definedBlock too large for copy or moveAttempt to copy over defined blockOperation too large for available memoryMarker already existsCan't have end before startFail, no match foundLine number too highUnable to restore lineKeyboard abortIllegal operationMacro nesting too deepLong line splitPrinter off line5жДL0Н■м mА+&·J&ўa╬▄ЦC3╞жА'з└ °O1vЦ╠&╠╦Ю╤Я╧√ХB╢▐@╠
╧їFOPЇя
O'Б╓&J9Б&Ж
y Б&НWOБ╚&О▄╓╦Ж зЕ\┴А&∙OБ┘&ЖН;О▄Ц╦жЖБ &ёOБа&Н>OM'+║Б %╢M'
╬'Н+О▄╓╦зЕЖ	
$Ц╠Щc ПО▄╓╦0Еж
зАМ[%ўЖ зД94╞О\╤╦#жзВZ їЖ зВ5В46▄╒
╙D%У╫#■·▌╒1"0ьГэгЬ╧"°Н5╢46▄╧╙D
ьБэбЬ╒#°▄╒УD▌╒Н5╢4V▄╫У╒О^3Н├╠  эAэCжА'з└ °5╓4Ю╧Ь╙##Ю╧Н!Я╧НnЦ╠Б
'
╠ ╗Ю╤НЯ╤Ц╠╪5Т0mВ'*·0
94Ю╧Ь╒$+Ю╧Н,жДБА'!Я╧Н)Ц╠Б'╠ Ю╤НЯ╤НЮ╧Ц╠╦ШC!O5ТmА'*·9█&┌94▄┌Г
▌┌5Ж4V0Н@
O'0НSбА'm'.0 ЇьДнЛЦCКА╖ ЯO╓╦О^B3Н
ю╠  эAжА'з└ °
жoф5╓
O|▒▓И<Й╨█▐ Гс	╓╦╤B#

╦Ц╦СC$
C9╓╦┴'╦Ц═ЫCС╦"C9CЦBЧ╦9ЖИ e
Ц╦╞ с┴&LБ&ў4╓╦сф$Ж	 ? є2a9Ж4╓╦Ч╦щ╫╦┌3Bж├Б &jф&Ў▌lф*jфЖ╓╦сф'"
L  Ё2a9Ж	 Ж4жф■їмЯж─мБ '
╓╦╤B#┴%т5ВЖ	╓╦┴'■╧ є9ЖIЧ╬ ЖO╬зНэ9№┘	
P'&
#БГ&№╩	44Оф╓PXоежА'пе54 '
P54 ╓4@╬
4@Н@jф&	ca'НМНч'ю2bН5@■kM'п94Ж@ 4Ж┐4жAmф*дрМкрзA
5Ж4Ц╠Лр╓╦X5Ж4V▄┌О^
Я3НA╠  эAэCжА'з└ °5V 4v
F&!
┐0Н╬р╓CXO3╦╓═ьБз┴ч┴1>&Ў
│5ЎLine:xxxxx Col:0   Free:xxxxx O  U                                              4Ю╤Ж
Ь╒#Н* Н9НLБ#я5Т4VЛр_
,О▄ьБз┴ч┴М\%ї
-5╓4rЖ О  ╬\60J&√5Є4BНщ╬▄mД+
жА'з└ °5┬0
44жАА╞=1Н1л╞жаз└Z&∙54 р  << End of file >>  << Block start >>  <<  Block end  >>4vХЖ ╞
╬°66Гр"°С╞	OН5Ў4НtЛр╞

цaЖАчБJ&√Нu5Ц4Н]ОўжГзЙ
Мс$їН_5Т4НGОтжБзЙ■■М°%їНI5Т40Н+Ц═Б('ЖPЧ═0CЦBЧ╦ЖD╖ Р╠╪¤ ЭьД¤ ШЦCКА╖ Я5Ц4Ж6╖ з5В4Ж7╖ д5В4╖ ┘
▄&╠01¤ д╠23¤ ж5Ж╠45¤ д5Ж4╠<=¤ д╠>?¤ ж╖ ╪5Ж0Н[L
L&■aН4OОх0Н'Ў!5 цЖ
mД+■Н■ZLБ%ё9■n■NLБ%їL9HELP...press ENTER for more...Note: {} means control key combinationKeys redefined: ALT 1 = | ALT 2 = ~ ALT 8 = [ ALT 9 = ] ALT , = { ALT . = } ALT ^ = ^ (ascii caret) ALT _ = _ (ascii underline) ALT DOWN ARROW = ` (ascii tick) SHIFT @ = \Cursor movement commands: LEFT/RIGHT ARROW move cursor left/right 1 pos. SHIFT LEFT/RIGHT ARROW move cursor to start/end of line {LEFT/RIGHT ARROW} move cursor to abs. left/right of line CLEAR & SHIFT/CLEAR moves to next/previous space (word tab) UP/DOWN ARROW move cursor up/down a line SHIFT UP/DOWN ARROW move cursor up/down and to 1st pos. {UP/DOWN ARROW} move up/down a screen (22 lines) {:} jump to start of file {-}   "  "  end   "   " {F} Find a search pattern forward from cursor {B}  "   "   "       "    backward "    " {N} Find next occurance of pattern input with {F} or {B} {L}   "  last    "       "   "       "     "   "   "  " {C} Change a occurance {A} Do last change again {G} Global change (from start of file) {J} Jump to:       "number" = to line number       "xxx" = to label       " xxx" = to procedure       "<" to begin block marker       ">" to end block markerNote special uses of the ` character:   at line start supresses case checks (lower=upper)   in middle = wild card match   at end = leave trailing spacesLine editing commands: {K} delete (Kill) line {U} restore (Unkill) deleted line {H} Hack line from cursor position {Y} delete (Yank) word ESC Backspace (delete) SHIFT/ESC delete @ cursor {Space} insert space @ cursorBlock commands: {<} insert a begin block marker {>}   "    " end     "     " {D} delete marked block {M} move marked block to cursor pos {R} copy (replicate) marked block to cursor pos {Z} delete block markers {S} display block & file size {X} transfer marked block from alternate buffer to cursor posOther commands: {@} switch to alternate buffer F2 insert mode SHIFT/F2 overstrike mode {I} toggles auto-indent mode {Q} quit to I/O menu ENTER insert new line below current {ENTER} split line @ cursor {;} join current line and next line together {W} toggle 40/80 column display {V} define a macro (use 'e'number to edit) {1}..{9} invoke a defined macro {BREAK} - aborts all commands F1 these screensА№└ГDK&■└o─Ж
зAнЯ└J*ўq>ЎЙЮ╙Я╒Я╧Я╤ЖАзД╠
▌╦ЎФ║Ю╒БЎКО▄_╜бvза
p&\&ЇО▄PЎQжа+Б $Б
&
OзАЬ╫%Б0 Z&ф
p'├m'oАЯ╒ЖАзДoЎ?9НePЎщD▄H'▄J' НQЮ╙ЯHЮ╒ЯJ БЮHО▄PїЄ_ЬJ$
жА+°&Ж
за\&яї№О▄жа╜вВZ&°ЦoБ■&нЯаБ&Б ЬJ%└o9╜│э╫o9
	  0:*;+,<-=.>/?

@\8[9]^_`,{.}1|2~чBж─КА┴'┴я'┴ў&К└9чBц─╩┐─@94t╬ 1МЧ╞■oтН╘Б &lфCY%Ї5╞\ч$OО4ЖАJ&¤Н╖бр&щ╞Н─ч%╞яН╛ч&╞ўН╕ч'╞°╦D%√ырч$'┴"╦@m#'m%'╦  "╞70Н A┴ #┴)"
m%'╦ └ў└$Xm%&
\цЕm%' m&&
┴a%└ ╩А m'&0Н 3mД'сБ&°цШцд+/с$'o!o"Б&╞Lc#&╞UчНЄ¤Є░ ц!┴Ё$l! ц"┴а'l"O o"ц$Б&O M*╞ чдM5Ї'шd

46ЖoАJ&√оbьф&Л0зА /1М▄2~oфoaгд%la °уд4жcЛ0Б0&mb'lbзА1"ж!5&┌2b5╢4_жА'
Б0%Б9"\ ё5)9]'6┴"244ЖарH1МЕ1жoтoтжАА0'4ьaуд%jф&°эa2a1"ж!&ф5╢2c50O_9'сБ&°цШцд+/с$'o!o"Б&╞Lc#&╞UчНЄ¤Є░ ц!┴Ё$l! ц"┴а'l"O o"ц$Б&O M*╞ чдM5Ї'шd

46ЖoАJ&√оbьф&Л0зА /1М▄2~oфoaгд%la °уд4жcЛ0Б0&mb'lbзА1"ж!5&┌2b5╢4_жА'
Б0%Б9"\ ё5)9]'6┴"244ЖарH1МЕ1жoтoтжАА0'4ьaуд%jф&°эa2a1"ж!&ф5╢2c50O_9                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                01000 *****From Robert Gault
01010 *****2/23/2010
01020 *****relocate a .ROM file from $3000 to $C000 for unpatched
01030 *****execution
01040 *****.ROM must have been converted into a proper .BIN starting
01050 *****at $3000
01060 *****This is for a 16K ($4000) ROM file.
01070 *****To use:
01080 *****10 LOADM"FOO.BIN"
01090 *****20 LOADM"COPY16K"
01100 *****30 EXEC
01110 *****
01120 *****YES this clobbers the Disk ROM
01030 *****
02000       ORG $7000
02010 START ORCC #$50
02020       LDX #$3000
02030       LDY #$C000
02040 A1    LDD ,X++
02050       STD ,Y++
02060       CMPX #$7000
02070       BLO A1
02080       JMP $C002
02090       END START
is clobbers the Disk ROM
01030 *****
02000       ORG $7000
02010 START ORCC #$50
02020       LDX #$3000
02030