8 ! BINUT.800 9 NO EXTEND : INTEGER 10 F=PEEK(34443)+256*PEEK(34444) : IF PEEK(32768)<>42 OR PEEK(35656)<>177 OR PEEK(36626)<>201 STOP 20 N.=PEEK(36523)+256*PEEK(36524) : A0.=PEEK(36538)+256.*PEEK(36539) 30 ; "Inmatning eller Utmatning av Ri p} bin{rflyttalsform (I/U)? " : GET F$ 40 ; "i"; : INPUT I. : I.=FIX(I.) : A.=A0.+I.*(N.+3.) : B.=A.-N.-2. : DIM A$=8.*(N.+1.) : IF I.<8. OR I.>F THEN ; "Fel i!" : GOTO 40 50 IF F$="I" OR F$="i" THEN 110 60 IF F$<>"U" AND F$<>"u" THEN 30 70 A$="" : FOR I.=B. TO A.-3. : C.=PEEK(I.) : B$="" : FOR K.=0. TO 7. : D.=C./2.-INT(C./2.) : B$=NUM$(2.*D.)+B$ : C.=INT(C./2.) 80 NEXT K. : A$=B$+A$ : NEXT I. 90 A$="0."+A$ : C$="*2^"+NUM$((256.*PEEK(A.-1.)+PEEK(A.-2.))*(1.-(2 AND PEEK(A.)))) : IF (PEEK(A.) AND 1)=1 THEN A$="-"+A$ 100 ; A$+C$ : GOTO 40 110 ; "Tecken (+ eller -)"; : INPUT G$ : IF G$="-" THEN POKE A.,1. ELSE POKE A.,0. 120 ; "Mantissans absolutbelopp (0.1___ avslu-tande nollor anges ej)" : INPUT A$ : IF LEFT$(A$,3.)<>"0.1" THEN 120 130 A$=RIGHT$(A$,3.)+STRING$(8.*N.-LEN(A$)+2.,48.) : FOR I.=A.-3. TO B. STEP -1. : B$=MID$(A$,1.+8.*(A.-3.-I.),8.) : C.=1. : D.=0. 140 FOR K.=0. TO 7. : D.=C.*VAL(MID$(B$,8.-K.,1.))+D. : C.=2.*C. : NEXT K. : POKE I.,D. : NEXT I. : ; "Exponenten decimalt"; : INPUT F. 150 IF F.<0. THEN POKE A.,2.+PEEK(A.) 160 POKE A.-2.,ABS(F.),SWAP%(ABS(F.)) : GOTO 40