1 print"{home}   "
    5 open1,4
    6 print#1,"{$01}";
   10 fora=1to25
   15 forc=1to40
   20 b=peek((a*40)+c+32727)
   25 gosub130
   30 ifb<64thenb=b+64:goto90
   40 ifb<126thenb=b+128:goto90
   50 ifb<128thenb=b+64:goto90
   60 ifb<=191thenb=(b-64):goto90
   70 ifb=255thenb=191:goto90
   90 print#1,chr$(b);
  100 nextc
  104 f=0
  105 print#1
  106 print#1,"{$01}";
  110 nexta
  120 end
  130 iff=1andb>127then150
  140 ifb>127thenf=1:print#1,"{rvon}";:goto600
  150 iff=0andb<127then600
  160 ifb<=127thenf=0:print#1,"{rvof}";:goto600
  600 return