 
Т > Convert68 .Т Convert 6809 text source to BASIC source : (%Х "Input text source file:   "in$ 2&Х "Output BASIC source file: "out$ <DХ "(B)asic or (T)ext output: "A$:text%=(юA$,1)="T" └ юA$,1)="t") F&Я "Only text output at the momemt" P: Z%Н ┘ Ж:РClose_All:Я" at line ";·:Ю d.in%=▌(in$):Г in%=0:Я"Can't open '"in$"'":Ю n>out%=ў(out$):Г out%=0:Я"Can't open '"out$"'":ы#in%:in%=0:Ю x: ┌rem$=":REM" ▄У √  A$=єrd(in%) ═  A%=їA$,Ґ9):Г A% ▄ ╙$    У:A$=юA$,A%-1)+" "+аA$,A%+1) Є    A%=їA$,Ґ9):ЩA%=0 Ў  м х  A%=їA$,"$"):Г A% ▄ р$    У:A$=юA$,A%-1)+"&"+аA$,A%+1) э    A%=їA$,"$"):ЩA%=0 Ф  м П  A%=їA$,"FCB"):Г A% ▄ З$    A$=юA$,A%-1)+"DCB"+аA$,A%+3)  м  A%=їA$,"FDB"):Г A% ▄$    A$=юA$,A%-1)+"DCW"+аA$,A%+3)"  м,  A%=їA$,"FCC"):Г A% ▄6%    A$=юA$,A%-1)+"EQUS"+аA$,A%+3)@  мJ  A%=їA$,"RMB"):Г A% ▄T    B%=їA$+" "," ",A%+4)^W    A$=юA$,A%-1)+"]:z%="+аA$,A%+4,B%-A%-4)+":P%=P%+z%:O%=O%+z%:[OPT P*3+4:"+аA$,B%)h  мr  A%=їA$,":"):Г A% ▄|$    Г їA$,";")=0 └ їA$,";")>A% ▄├$      A$="."+юA$,A%-1)+аA$,A%+1)░
     л       Ує&        A$=юA$,A%-1)+","+аA$,A%+1)ў      A%=їA$,":"):Щ A%=0╦	    мб  мл  A%=їA$,";"):Г A% ▄ж#    A$=юA$,A%-1)+rem$+аA$,A%+1)Ю    Г A%=1:A$=аA$,2)Й  мТ  A%=їA$," EQU "):Г A% ▄Ч"    A$=юA$,A%-1)+"="+аA$,A%+5)    Г rem$=":\" ▄&      A$="]:"+аA$,2)+":[OPT P*3+4"	    м&  м0  х∙ юA$,1)=" ":A$=аA$,2):н:  A%=їA$,"ORG "):Г A% ▄D    Г rem$=":\" ▄NA      A$="]:z%="+аA$,A%+4)+"-P%:P%=P%+z%:O%=O%+z%:[OPT P*3+4"X
     лb      rem$=":\"l3      у#out%,"DIM mcode% &4000:org%="+аA$,A%+4)v      у#out%,"FOR P=0 TO 1"─$      у#out%,"O%=mcode%:P%=org%"┼      A$="[OPT P*3+4"■	    м·  м╗  у#out%,A$╡
Ще#in%╪у#out%,"]NEXT"ф_у#out%,"PRINT ""SAVE filename ""+STR$~mcode%+"" ""+STR$~O%+"" ""+STR$~org%+"" ""+STR$~org%"п
ы#out%з	ы#in%ДЮН:ЬщРClose_All"in%=in%:Гin%:A%=in%:in%=0:ы#A%'out%=out%:Гout%:A%=out%:out%=0:ы#A%А :*9щєrd(i%):ЙA%,B%,A$:У:A%= #i%:ГA%<>10─A%<>13:A$=A$+ҐA%4ЩA%=10└A%=13└е#i%:Ге#i%:=A$>.B%= #i%:ГA%=B%└(B%<>13─B%<>10):о#i%=▐#i%-1H=A$R:Ъ