;‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’…›;ü                                 ü ›;ü           ÐÒÉÎÔÃÈ®ÁÃÔ           ü ›;ü               ÂÙ                ü ›;ü       ÁÒÎÏÌÄ Ê® ÂÏÇÅÎÓÃÈÕÔÚ     ü ›;ü                                 ü ›;š’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ƒ ››;½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½ ›;                                    ›;ÔÈÉÓ ÐÒÏÇÒÁÍ ×ÉÌÌ ÒÅÁÄ ÉΠÁ ÆÉÌÅ    ›;ÏÎÅ ÌÉÎÅ ÁÔ Á ÔÉÍÅ ÁÎÄ ÐÒÉÎÔ ÉÔ ÏÕÔ ›;ÉΠÔÈÅ ÁÔÁÒÉ ÃÈÁÒÁÃÔÅÒ ÓÅÔ®  ÉÔ     ›;ÄÏÅÓ ÔÈÉÓ ÂÙ ÕÓÉÎÇ ÔÈÅ ÇÒÁÐÈÉÃÓ ÏÆ  ›;ÔÈÅ ÐÒÉÎÔÅÒ®  ÔÈÅ ÁÒÅ ÓÅÎÔ ÉΠÔ×Ï   ›;ÐÁÒÔÓ ÓÏ ÉÎÖÅÒÓÅ ÁÎÄ ÓÐÅÃÉÁÌ ÃÈÁÒ­  ›;ÁÃÔÅÒÓ ÃÁΠÂÅ ÒÅÁÄ®  ÔÈÉÓ ÐÒÏÇÒÁÍ   ›;×ÉÌÌ ×ÏÒË ×ÉÔÈ ÇÅÍÉÎÉ ÏÒ ÃÏÍÐÁÔÁÂÌÅ ›;ÐÒÉÎÔÅÒÓ®                           ›;                                   ›;½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½½ ›››MODULE›BYTE ARRAY line(255),file(14)›BYTE i,byt›››;ÔÈÉÓ ÆÕÎàÒÅÔÕÒÎÓ Á ÖÁÌÕÅ ›;ÆÏÒ ÅÁÃÈ ÂÉÔ ÔÈÁÔ ÉÓ ÏΠ  ›BYTE FUNC bit(BYTE m,p)›BYTE v››IF m<4 THEN›  m=7-m›ELSE›  m=11-m›FI›IF p=0 THEN›  IF byt>127 THEN›    byt==-128›    v=1›  FI›ELSEIF p=1 THEN›  IF byt>63 THEN›    byt==-64›    v=1›  FI›ELSEIF p=2 THEN›  IF byt>31 THEN›    byt==-32›    v=1›  FI›ELSEIF p=3 THEN›  IF byt>15 THEN›    byt==-16›    v=1›  FI›ELSEIF p=4 THEN›  IF byt>7 THEN›    byt==-8›    v=1›  FI›ELSEIF p=5 THEN›  IF byt>3 THEN›    byt==-4›    v=1›  FI›ELSEIF p=6 THEN›  IF byt>1 THEN›    byt==-2›    v=1›  FI›ELSEIF p=7 THEN›  IF byt>0 THEN›    byt==-1›    v=1›  FI›ELSE›  v=0›FI›v== LSH m›RETURN(v)›››;ÓÅÔ ÕРÁÒÒÁÙÓ ÆÏÒ ×ÈÉÃÈ ›;ÐÉÎÓ ÁÒÅ ÔÏ ÂÅ ÆÉÒÅÄ    ›PROC PrintCH()›BYTE ARRAY ch1(320),ch2(320)›CARD chset=[57344],chad,ctr,ctr1=[0],›     ctr2,ctr3=[0]›BYTE chr=[0],v,n1,n2››device=2;ÓÅÔ ÄÅÖÉÃÅ ÔÏ ÐÒÉÎÔÅÒ ›Zero(ch1,320);ÚÅÒÏ ÏÕÔ ÏÌÄ ÖÁÌÕÅÓ ›Zero(ch2,320)›FOR ctr1=1 TO line(0) DO›  chr=line(ctr1);ÐÕÌÌ ± ÃÈÁÒÁÃÔÅÒ ›  ctr3==+1›  ;ÆÉÎÄ ÔÈÅ ÐÏÓÉÔÉÏΠÉÎ ›  ;ÍÅÍÏÒÙ ÏÆ ÃÈÁÒÁÃÔÅÒ  ›  IF chr<32 OR (chr>127 AND chr<160)›                                 THEN›    chad=chr+64›  ELSEIF (chr>31 AND chr<96) OR›           (chr>159 AND chr<224) THEN›    chad=chr-32›  ELSE›    chad=chr›  FI›  chr=chad›  IF chad>127 THEN›    chad==-128›  FI›  chad==*8+chset›  FOR ctr=0 TO 7 DO›    byt=Peek(chad+ctr)›    IF chr>127 THEN›      byt==!255›    FI›    FOR ctr2=0 TO 7 DO›      v=bit(ctr,ctr2)›      ;ÐÕÔ ÂÉÔ ÖÁÌÕÅÓ ÉΠÁÒÒÁÙÓ ›      IF ctr<4 THEN›        ch1((ctr3-1)*8+ctr2)==+v›      ELSE›        ch2((ctr3-1)*8+ctr2)==+v›      FI›    OD›  OD›  ;ÉÆ ´° ÃÈÁÒÓ ÈÁÖÅ ÂÅÅΠÒÅÁÄ ›  ;ÏÒ ÅÏ̬ ÐÒÉÎÔ ÃÈÁÒÁÃÔÅÒÓ   ›  IF ctr1 MOD 40=0 OR ctr1=line(0)›                                 THEN›    ctr3==*8-1›    n1=ctr3 MOD 256›    n2=ctr3/256›    Put(27) Put(i)›    Put(n1) Put(n2)›    ;ÔÏРÈÁÌÆ ›    FOR ctr=0 TO ctr3 DO›      Put(ch1(ctr))›    OD›    PutE()›    Put(27) Put(i)›    Put(n1) Put(n2)›    ;ÂÏÔÔÏÍ ÈÁÌÆ ›    FOR ctr=0 TO ctr3 DO›      Put(ch2(ctr))›    OD›    PutE()›    Zero(ch1,320);ÚÅÒÏ ÁÒÒÁÙÓ ÊÕÓÔ  ›    Zero(ch2,320);ÉΠÃÁÓÅ ÔÈÅÒÅ ÁÒÅ ›    ctr3=0       ;ÍÏÒÅ ÃÈÁÒÁÃÔÅÒÓ   ›  FI›OD›RETURN›››;ÏÐÅΠÃÈÁÎÎÅÌÓ ÁÎÄ ÉÎÐÕÔ ÄÁÔÁ ›PROC InputL()›BYTE consol=53279››Close(1)›Close(0)›Poke(82,0)›Graphics(0)›Print("ENTER FILENAME ")›InputS(file)›Open(1,file,4,0)›DO›  Print("ÓINGLE/ÄOUBLE DENSITY ")›  Close(3)›  Open(3,"K:",4,0)›  i=GetD(3)›  UNTIL i='S OR i='D ›OD›IF i='S THEN›  i='K;ÓÉÎÇÌÅ ÄÅÎÓÉÔÙ ›ELSE›  i='L;ÄÏÕÂÌÅ ÄÅÎÓÉÔÙ ›FI›Close(3)›PrintE("PRESS ÓÔÁÒÔ TO ABORT")›Open(2,"P:",8,0)›PrintDE(2,"@U
A")›DO›  InputSD(1,line)›  PrintCH()›  IF EOF(1) THEN›    EXIT›  FI›  IF consol=6 THEN›    EXIT;ÑÕÉÔ ÐÒÏÇÒÁÍ ÂÅÆÏÒÅ ÅÏÆ ›  FI›OD›device=0;ÒÅÓÅÔ ÄÅÖÉÃÅ ÁÎÄ ›Close(1);ÃÌÏÓÅ ÃÈÁÎÎÅÌÓ   ›Close(2)›RETURN›