1 REM *************************** 2 REM * SEKVUTIN.BAC * 3 REM * VER 1.0 / 1982-09-08 * 4 REM * Gjort o. ins{nt av 2415 * 5 REM * Stig Rosenlund * 6 REM * V{stmannagatan 93 * 7 REM * 113 43 Stockholm * 8 REM * Tel. 08/331736 * 9 REM *************************** 10 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 F%=PEEK(34443%)+256%*PEEK(34444%) : ; "Inmatning eller Utmatning av Ri (I/U)? " 35 GET F$ : IF F$="U" OR F$="u" 220 40 IF F$<>"I" AND F$<>"i" 30 50 REM Inmatning 60 ; "Ge Ri p} decimal form." 70 ; "i"; : INPUT I% : GOSUB 80 : GOTO 70 80 IF I%<8% OR I%>F% ; "Fel i!" : RETURN 90 ; "Ri?"; : C%=0% : GET F$ : G%=-(F$="-") : IF F$="+" OR G%=1% ; F$; : GET F$ 100 ; F$; : IF F$="." C%=1% : F$="0" 110 S%=CALL(35365%,3%)+CALL(33619%,10%)+CALL(35362%)+CALL(33619%,VAL(F$)) : B%=0% : E%=0% 120 GET F$ : A$="" : S%=ASC(F$) : IF S%<46% 180 130 ; F$; : IF S%=69% OR S%=101% 170 140 IF S%=46% B%=0% : C%=1% : GOTO 120 150 S%=CALL(35365%,4%)+CALL(33619%,VAL(F$))+CALL(35362%)+CALL(35131%)+CALL(35355%,3%)+CALL(33669%)+CALL(35131%) 160 S%=CALL(35355%,4%)+CALL(33032%) : B%=B%+1% : GOTO 120 170 GET F$ : IF ASC(F$)>42% ; F$; : A$=A$+F$ : GOTO 170 ELSE E%=VAL(A$) 180 E%=E%-C%*B% : S%=CALL(35365%,4%)+CALL(35345%,3%)+CALL(36544%,ABS(E%)) 190 S%=CALL(35365%,I%)+CALL(35355%,2%)+CALL(35345%,4%) : IF E%<0% S%=CALL(34017%) ELSE S%=CALL(33669%) 200 ; : IF G%=0% RETURN ELSE S%=CALL(32813%) : RETURN 210 REM Utmatning 220 ; "i"; : INPUT I% : GOSUB 230 : GOTO 220 230 A=A0+I%*(N+3%) : IF PEEK(A-3%)<128% ; " 0" : RETURN 240 E%=INT(.30103*(1-(2 AND PEEK(A)))*(PEEK(A-2%)+256*PEEK(A-1%))) : S%=CALL(35362%)+CALL(33619%,10%) 250 IF E%<5% AND E%>-3% E%=0% 260 S%=CALL(35131%)+CALL(35365%,4%)+CALL(36544%,ABS(E%)) 270 S%=CALL(35131%)+CALL(35365%,3%)+CALL(35355%,I%) : IF E%>0% S%=CALL(34017%) ELSE S%=CALL(33669%) 280 S%=CALL(35131%)+CALL(35362%)+CALL(32944%) : A=A0+2%*(N+3%) 290 C=256*PEEK(A-1%)+PEEK(A-2%)-12% : ; LEFT$(NUM$(-(PEEK(A) AND 1%)),1%); 300 F$=NUM$(FIX((-(C>0)*FIX(2^C)-(C<1)*2^C)*(16*PEEK(A-3)+PEEK(A-4%)/16+(PEEK(A-5)/16)/256)+.5)) 305 ; RIGHT$(F$,2%)+"."; 310 S%=CALL(33540%)+CALL(35365%,4%)+CALL(33619%,10000%)+CALL(35362%) 320 FOR B%=0% TO (2.4*N-LEN(F$))/4% : S%=CALL(35131%)+CALL(35355%,4%)+CALL(33669%) AND 0% 330 IF (2% AND PEEK(A))=0% S%=(64%*PEEK(A-3%)+PEEK(A-4%)/4%)/2%^(14%-PEEK(A-2%)) 340 F$="000"+RIGHT$(NUM$(S%),2%) 350 ; RIGHT$(F$,LEN(F$)-3%); : S%=CALL(35131%)+CALL(33540%) : NEXT B% : ; "E"; : ; E% : RETURN