1000 ! RLOGIN (c) LID@N DATA 1010 ! 1020 ! - Utvecklat 1030 ! - av: LID@N DATA 1040 ! - 1050 ! - Projekt: REMOTE ABC800:serien 1060 ! - Konstrukt|r: Mikael Lid`n/Johan Bostr|m 1070 ! - Vers: 1.0 1080 ! - P}b|rjat: 850412 1090 ! - [ndring: 850419 1100 ! 1110 ! 1115 EXTEND : INTEGER 1120 Maxant=3 1130 ! 1140 DEF FNDyk 1150 OPEN 'V24:' AS FILE 1 : CLOSE 1 1160 Z=CALL(0) 1170 RETURN 0 1180 FNEND 1190 ! 1200 ! 1210 F|rs|k=0 1220 OPEN 'PASSWORD.SYS' AS FILE 1 1230 POSIT #1,64 : GET #1,P$ 1240 GET #1,P$ COUNT ASCII(P$) 1250 CLOSE 1 1260 IF P$='' P$='NUL:' 1270 ; : ; 1280 WHILE Login2$<>Login$ OR Pass2$<>Pass$ OR NOT Round 1290 Round=-1 1300 F|rs|k=F|rs|k+1 1310 ; : ; 1320 INPUT 'LOGIN: 'Login$ 1330 ; 'PASSWORD: '; : Pass$=FNL|sen$ 1340 OPEN 'USERS.SYS' AS FILE 1 1350 INPUT #1,Login2$ : INPUT #1,Pass2$ 1360 IF Login2$='#*#' Z=FNDyk 1370 WHILE (Login$<>Login2$ OR Pass$<>Pass2$) AND Login2$<>'#*#' 1380 INPUT #1,Login2$ : INPUT #1,Pass2$ 1390 IF Login2$='#*#' AND F|rs|k=Maxant Z=FNDyk 1400 WEND 1410 CLOSE 1 1420 WEND 1430 CLOSE 1 1440 ; : ; 'OK!' 1450 ; : ; : ; 1460 POKE 65413,PEEK(64200),PEEK(64201) 1470 CHAIN P$ 1480 END 1490 DEF FNL|sen$ LOCAL A$=1,B$=20,A,L 1500 WHILE -1 1510 GET A$ 1520 L=LEN(B$) : A=ASCII(A$) 1530 IF A=13 RETURN B$ 1540 IF A=8 IF L>0 B$=LEFT$(B$,L-1) : ; CHR$(8,32,8); 1550 IF L<20 IF A>31 AND A<128 B$=B$+A$ : ; '*'; 1560 IF A=24 ; STRING$(L,8)+STRING$(L,32)+STRING$(L,8); : B$='' 1570 WEND 1580 FNEND