p125a.bas

10 print"ascii to petscii converter"
20 print"copyright to whoever wrote it"
30 print
40 input"source file";sf$
50 input"destination file";df$
60 dv=peek(186)
70 open2,dv,2,sf$+",s,r"
80 open3,dv,3,df$+",s,w"
85 rem --------------------------------
90 get#2,a$:s=status
100 a=asc(a$+chr$(0))
110 if a<64 then140
120 if a<96 then a=a+128:goto140
130 a=a-32
140 print#3,chr$(a);
150 if s=0 then 90
155 rem -------------------------------
160 close2:close3