 
ô > ConvRTF021  ô Convert various text files ô Recovered and fixed ( ô v0.20 VDU23;3;55 on MODE 7 2+ô v0.21 Extended/Unextended View option <ô F-ô Q Quad     Chapter    -> fs96 (48point) P-ô X Double   SubChapter -> fs48 (24point) Z-ô D DblsStrk Section    -> fs32 (16point) d(ô _ Underlne SubSection -> Underline n.ô   Plain    Text       -> fs24 (12 point) x#ô E Emphs    Text       -> Bold ‚&ô B Bold     Prog Text  -> Courier Œ&ô I Italics  Pathname   -> Italics –:  :ë&87:ï23;3,55;0;0;0:ver$="0.21":òinit:ô A$=FNOS_GetEnv ªî…ç¤err:à ´õý¤menu:ñ:çpc%:*Quit ¾à È: Ò-Ýòinit:A%=0:X%=1:os%=(º&FFF4 € &FF00)256 Ü8pc%=os%=32:max%=“-¸P-2000+2000*(“>&FFFF):Þ mem% max% æAt1$=½132+½157+½135+½141:t2$=½134+½157+½129:t3$=½129+½157+½135 ð%çpc%:t1$="    ":t2$="   ":t3$=t2$ úlpp%=66:cr0%=2:vex%=¹á:Ý¤menu:Û":ã z%=-1 ¸ pc%:ñt1$;"Rich Text Format File Convertor":í,1ñt2$"Version ";ver$;" (C)1995-98 J.G.Harston"64ñt3$;‰(11-©¤sz(max%)/2);"Memory free: "¤sz(max%)@bñ'"  Paper size:  A4 (80chars x 70lines)"'"  Page length: ";lpp%;"  Extended View: "¤onf(vex%)Jô P.'SPC10"(R)TF to View"T.ñ'‰10"(V)iew to RTF"'‰10"(L)ines per page"^ ñ‰10"(E)xtended View On/Off"h ñ‰10"E(x)it"'‰10"(*)command"rñ'‰10"Press a key:";|õK%=¥:çK%>96:K%=K%-32†çK%=—"*":è†"*"A$:ÿA$:ñ":";ý§"LERVX "+½13,½K%):ñ½K%'š?çK%=—"L":è"Lines per page: "lpp%:çlpp%<60 „ lpp%>70:lpp%=66¤çK%=—"L":=0®çK%=—"V":òVtoR:=0¸çK%=—"R":òRtoV:=0ÂçK%=—"E":vex%=¬vex%:=0Ì=K%=—"X"Ö:à
ÝòVtoRê'ñ"Convert View to RTF file":type%=1ôeol$=½13+½10þè"Input View file: "in$in%=Ž(in$)&çin%=0:çpc%:in$=in$+".":in%=Ž(in$)(çin%=0:çpc%:in$=in$+"TXT":in%=Ž(in$)&-çin%=0:ñ"File '";in$;"' not found":A%=¥:á0è"Output RTF file: "out$:'çpc%:ç§out$,".")=0:out$=out$+".RTF"DDext%=¢#in%:çext%<max%:ptr%=0:Ù#in%:in%=0:ÿ"LOAD "+in$+" "+Ã~mem%NJñ"Input file size:    ";¤sz(ext%)'"Output approx size: ";¤sz(1.4*ext%)Xuçext%*2.5>max%:ÿ"SAVE "+out$+" 0+"+Ã~(ext%*1.4)+À" FFFF0000 FFFFFF00",¬pc%):out%=®(out$) ‹ out%=0:optr%=mem%+ext%bòpre:eof%=£lõòdo(¤g):ýeof%vkòpost:çout%=0:ÿ"SAVE "+out$+" "+Ã~(mem%+ext%)+" "+Ã~(optr%)+À" FFFF0000 FFFFFF00",¬pc%) ‹ Ù#out%:out%=0€çin%<>0:Ù#in%:in%=0Šços%=6:ÿ"Stamp "+out$”ÿ"SetType "+out$+" C32"žá¨:²Ýòpre:çtype%<>1:á¼3ul%=£:bd%=£:code$="":cr%=cr0%:last1%=0:last0%=0Æ“òout("{\rtf1\ansi \deff0\deflang1024{\fonttbl{\f0\fmodern Times New Roman;}{\f1\froman Symbol;}{\f2\fswiss Arial;}{\f3\froman Courier;}}"+eol$)Ðwòout("\paperw11909\paperh16834\margl360\margr360\margt"+Ã(108*(70-lpp%))+"\margb"+Ã(108*(70-lpp%))+"\gutter0"+eol$)ÚQòout("\sectd \linex0\headery709\footery709\colsx709 \f0\fs24\pard\plain \qj")ä7ãz%=1 ¸ 10:òout("\tx"+Ã(144*(z%*8-1))):í:òout(eol$)îáø:
Ýòpostçtype%=1:òout("}"+eol$):áá :*'Ýòdo(A%):çA%=10:ñ½13;" CHR$10! ";:á4çA%=13:çcr%:cr%=cr%-1:á>.ç last0%=13 € last1%<>13 € A%>32:òout(" ")Hlast1%=last0%:last0%=A%R1ç last1%=13 € A%=13:òout("\par \par "+eol$):á\3ç last1%=13 € (A%=9 „ A%=32):òout("\par "+eol$)fç A%=13:òso:áp:z:„0ô Still some slight problems with CR/CR/etcsŽçA%=—"\":òout("\\"):á˜çA%=—"{":òout("\{"):á¢çA%=—"}":òout("\}"):á¬çA%=—"`":òout("\'a3"):á¶çA%>127:òout("\'"+Ã~A%):áÀçA%=9:òout("\tab "):áÊçA%=26:òout(" "):áÔ@çA%=28:çul%:òrem("\ul "):òout("\plain "+code$+"\f0"):ul%=£:áÞ?çA%=28:òout("\ul "):ul%=¹:code$=code$+"\ul ":á:ô SubSectionèçA%<>29:òout(½A%):áò/ç¬vex%:çbd%:òout("\f0\fs24\plain "):bd%=£:áü&ç¬vex%:bd%=¹:òout("\f3\fs24\b "):á	A%=¤g$çA%<64:òout("["+¤h0(A%,2)+"]"):á3çA%=—"Q":òout("\fs96 "):á:ô             Chapter$-çA%=—"q":òout("\fs24 "):cr%=3:last0%=13:á.6çA%=—"X":òout("\fs48 "):á:ô             SubChapter8-çA%=—"x":òout("\fs24 "):cr%=1:last0%=13:áB3çA%=—"D":òout("\fs32 "):á:ô             SectionLçA%=—"d":òout("\fs24 "):áV8çA%=—"B":òout("\f3\fs24\b "):á:ô        Program text`&çA%=—"b":òout("\f0\fs24\plain "):áj(çA%=—"E"„A%=—"e":A%=A%-3:ô Emphasisetô I-> falls through~7çA%>95:òrem("\"+½A%+" "):òout("\f0\plain "+code$):áˆ<òout("\f0\"+½(A%+32)+" "):code$=code$+"\"+½(A%+32)+" ":á’:œ#Ýòrem(a$):I%=§code$,a$):çI%=0:á¦'code$=Àcode$,I%-1)+Ácode$,I%+©a$):á°:º
ÝòRtoVÄ'ñ"Convert RTF to VIEW file":type%=1Îè"Input RTF file: "in$Øè"Output VIEW file: "out$âñ"Not yet";:A%=¥:áì/in%=Ž(in$):çin%=0:ñin$;" not found":in%=¥:áöout%=®(out$) ul%=£:code$=""
õ:A%=¤g  çA%=—"\":òod&  ç§"\{}",½A%)=0 € A%>31:òout(½A%)(	  òso2	ýeof%<áF:PÝòod:a$=½¤gZç§"\{}",a$):òout(a$):ádõa$=a$+¤g:ý§"\{} ",Âa$,1))nb$=Âa$,1):a$=Àa$,©a$-1)xça$="\tab":òout(½9)‚ça$="\par":òout(½13)Œ ça$="\ul":òout(½28):ul%=¬ul%–ça$="\b"::: ça$="\i":::ªça$="\plain":::´çb$="\":òod¾áÈ:ÒÝòout(a$):ça$="":áÜ'çout%=0:$optr%=a$:optr%=optr%+©a$:áæ#õ:Õ#out%,—a$:a$=Áa$,2):ýa$="":áð:ú2Ý¤g:çin%=0:çptr%>=ext%-1:eof%=¹:=mem%?(ptr%-1)%çin%=0:ptr%=ptr%+1:=mem%?(ptr%-1)çÅ#in%:eof%=¹:=254
=š#in%":,0Ýòso:çin%=0:ñ½13;¤d0(100*ptr%ext%,2);"%";:á6&ñ½13;¤d0(100*#in%¢#in%,2);"%";:á@:J(Ý¤sz(A%):="&"+Ã~A%+", "+ÃA%+" bytes"T#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%)^#Ý¤d0(A%,N%)=Â"00000000"+ÃA%,N%)h Ý¤onf(A%):çA%:="ON" ‹ ="OFF"r:|Ý¤err:ö:Ù#0:çŸ<>17:K%=¥†=K%<0 € ¦(os%>0):šÝ¤OS_GetEnv:ê A$,A%,X%,Y%¤'A%=0:X%=1:os%=(º &FFF4 € &FF00)256®2ços%=32:A$=$&100:?&100=13:=ÁA$,§A$+" "," ")+1)¸Sços%=6 € “>&8000:È™ "OS_GetEnv" ¸ A$:A$=ÁA$,§A$," ",1+§A$," ",1+§A$," ")))):=A$ÂeX%=¸P+200:Y%=X%256:?X%=0:X%!1=¸P+220:!(X%!1)=0:A%=9:Ö&FFD1:X%=¸P+220:ç!X%:X%?(1+?X%)=13:=$(X%+1)Ì=""ÿ