1 REM Ins{nd av Gerry Eriksson <4842>    1986-01-08 00.39.56
10 ! - ERRTXT.BAS
11 ! -
12 ! - Retunerar feltext f|r givet felnummer fr}n BASICINI.SYS
13 ! -
14 ! - Written by Gerry Eriksson
15 ! -
16 ! -- -- -- -- -- -- -- -- -- -- -- -- -- --
17 ! -
18 ! 
1000 DEF FNErrtxt$(Err) LOCAL Eptr,Sptr,A$=4,Errtxt$=0
1001   ! 
1002   ! Ser efter om DOS-anrop g}r
1003   IF PEEK(65453)=0 THEN 1019
1004   ! 
1005   ! Lagra felnr i A-reg och hoppar till DOS-anrop f|r att h{mta feltext
1006   A$=CHR$(123,195,PEEK(65452),PEEK(65453))
1007   ! 
1008   ! Eptr pekar p} slutet av aktuell feltext som finns i DOSBUF 0
1009   Eptr=CALL(VARPTR(A$),Err) : IF (SWAP%(Eptr) AND 255)<>245 THEN 1019
1010   ! 
1011   ! Leta r{tt p} b|rjan av texten
1012   Sptr=Eptr : WHILE PEEK(Sptr-1)<128 : Sptr=Sptr-1 : WEND 
1013   ! 
1014   ! S{tt Errtxt$ att inneh}lla feltexten
1015   POKE VAROOT(Errtxt$),Eptr-Sptr,0,Sptr,245,Eptr-Sptr,0
1016   RETURN Errtxt$
1017   ! 
1018   ! BASICINI.SYS ej tillg{nglig
1019   RETURN 'Fel '+NUM$(Err)
1020 FNEND