1000 ! RTERM   (c) LID@N DATA
1010 ! 
1020 ! - Utvecklat
1030 ! - av:  LID@N DATA
1040 ! -
1050 ! - Projekt:     REMOTE ABC800:serien
1060 ! - Konstrukt|r: Mikael Lid`n
1070 ! - Vers:        1.0
1080 ! - P}b|rjat:    850412
1090 ! - [ndring:     850413
1100 ! 
1110 ! 
1115 EXTEND : INTEGER 
1120 DIM A$=1000
1130 POKE 65413,0
1140 DIM Buf$=10000
1150 POKE PEEK2(65500)+2,VAROOT(Buf$),SWAP%(VAROOT(Buf$))
1160 OPEN 'V24:VSA30A24.40a' AS FILE 1
1170 WHILE NOT Slut
1180   IF PEEK2(PEEK2(65500)+6)<>0 Z=FNV24in
1190   IF SYS(5)=128 Z=FNTeckin
1200 WEND 
1210 CLOSE 
1220 END 
1230 ! 
1240 ! 
1250 DEF FNTeckin
1260   GET A$
1270   IF ASCII(A$)=31 CLOSE : Slut=-1 : RETURN 0
1280   PUT #1,A$
1290   RETURN 0
1300 FNEND 
1310 ! 
1320 ! 
1330 DEF FNV24in
1340   GET #1,A$ COUNT PEEK2(PEEK2(65500)+6)
1350   Z=FNSk{rm
1360   RETURN 0
1370 FNEND 
1380 ! 
1390 ! 
1400 DEF FNCursor
1410   Cu=PEEK2(SYS(10)+64)+6
1420   Rad=PEEK(Cu+1) : Kol=PEEK(Cu)
1430   OUT 56,14,57,SWAP%(30720+Rad*80+Kol)
1440   OUT 56,15,57,30720+Rad*80+Kol
1450   OUT 56,10,57,104
1460   RETURN 0
1470 FNEND 
1480 ! 
1490 ! 
1500 DEF FNSk{rm
1510   Z=FNCursor
1520   FOR J=1 TO LEN(A$)
1530     C$=CHR$(ASCII(RIGHT$(A$,J)) AND 127)
1540     IF C$=CHR$(27) Esc=-1
1550     IF NOT Esc ; C$;
1560     IF Esc IF LEN(B$)=3 ; B$+C$; : B$='' : Esc=0 ELSE B$=B$+C$
1570   NEXT J 
1580   Z=FNCursor
1590   RETURN 0
1600 FNEND