1000 ! REMOTASM (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: 850319 1090 ! - [ndring: 850412 1100 ! 1110 ! 1115 EXTEND : INTEGER 1120 A=PEEK2(64200) : Intvekt=65480 : Dat=64 : Ctrl=65 1130 OPEN 'PASSWORD.SYS' AS FILE 1 1140 GET #1,H$ COUNT 2 : GET #1,L$ : GET #1,L$ COUNT ASCII(L$) 1150 CLOSE 1 1160 ! 1170 ! 1180 POKE 64000,0,0,0,0,0,0,0,0,0,33,128,13,34,226,255,33 1190 POKE 64016,0,250,1,4,0,205,5,0,42,224,255,34,A+7,SWAP%(A+7),33,A+166 1200 POKE 64032,SWAP%(A+166),34,Intvekt+4,SWAP%(Intvekt+4),33,A+193,SWAP%(A+193),34 1210 POKE 64040,Intvekt,SWAP%(Intvekt),33,A+132,SWAP%(A+132),34,Intvekt+2,SWAP%(Intvekt+2) 1220 POKE 64048,33,0,0,34,76,255,42,80,255,126,35,102,111,34,A+272,SWAP%(A+272) 1230 POKE 64064,33,A+248,SWAP%(A+248),34,80,255,42,123,255,34,A+243,SWAP%(A+243),33,A+243,SWAP%(A+243),34 1240 POKE 64080,123,255,42,145,255,34,A+1,SWAP%(A+1),33,A,SWAP%(A),34,145,255,62,0 1250 POKE 64096,211,Ctrl,62,16,211,Ctrl,62,1,211,Ctrl,62,27,211,Ctrl,201 1260 POKE A,205,0,0,245,229,213,33,0,0,237,91,224,255,175,237,82 1270 POKE A+16,209,225,40,15,241,245,254,9,32,16,213,237,91,224,255,26 1280 POKE A+32,209,24,22,58,A+242,SWAP%(A+242),230,255,40,32,241,254,8,40,29,254 1290 POKE A+48,12,204,A+111,SWAP%(A+111),254,24,40,40,245,254,32,56,13,254,128,48 1300 POKE A+64,9,205,A+111,SWAP%(A+111),62,1,184,204,A+82,SWAP%(A+82),241,201,245,120,185,40 1310 POKE A+80,249,241,229,197,1,3,0,33,A+128,SWAP%(A+128),205,A+289,SWAP%(A+289),193,225,201 1320 POKE A+96,245,197,121,144,40,6,205,A+82,SWAP%(A+82),4,24,246,193,241,201,197 1330 POKE A+112,229,50,A+131,SWAP%(A+131),1,1,0,33,A+131,SWAP%(A+131),205,A+289,SWAP%(A+289),225,193,201 1340 POKE A+128,8,32,8,0,243,245,62,0,211,Ctrl,62,16,211,Ctrl,219,Ctrl 1350 POKE A+144,230,8,32,14,33,Dcd,SWAP%(Dcd),229,62,1,211,Ctrl,61,211,Ctrl,251 1360 POKE A+160,237,77,241,251,237,77,243,245,229,219,Dat,50,227,255,254,3 1370 POKE A+176,32,5,42,133,255,203,198,62,128,50,226,255,225,241,251,237 1380 POKE A+192,77,243,245,229,42,A+239,SWAP%(A+239),124,181,32,15,62,0,211,Ctrl,62 1390 POKE A+208,40,211,Ctrl,62,255,50,A+241,SWAP%(A+241),24,14,43,34,A+239,SWAP%(A+239),42,A+237 1400 POKE A+224,SWAP%(A+237),126,35,34,A+237,SWAP%(A+237),211,Dat,225,241,251,237,77,0,0,0 1410 POKE A+240,0,0,0,0,0,67,79,78,A+250,SWAP%(A+250),254,4,204,A+295,SWAP%(A+295),254 1420 POKE A+256,6,204,A+295,SWAP%(A+295),254,3,32,7,62,255,50,A+242,SWAP%(A+242),62,3,205 1430 POKE A+272,0,0,245,62,0,50,A+242,SWAP%(A+242),58,A+241,SWAP%(A+241),230,255,40,249,241 1440 POKE A+288,201,205,A+295,SWAP%(A+295),245,24,241,245,120,177,40,20,229,35,34,A+237 1450 POKE A+304,SWAP%(A+237),96,105,43,34,A+239,SWAP%(A+239),225,62,0,50,A+241,SWAP%(A+241),126,211,Dat 1460 POKE A+320,241,201 1470 ! 1480 ! 1490 OPEN 'V24:VSA50A01.'+H$+'A' AS FILE 1 1500 PUT #1,'TGC'+CHR$(13) 1510 FOR I.=1. TO 2000. : NEXT I. 1520 OUT 65,0,65,16 1530 WHILE (INP(65) AND 8)=0 : OUT 65,0,65,16 : WEND 1540 ; CHR$(12) 1550 ; '* COMMUNICATION OPEN' 1560 ; 1570 ; #1,CHR$(12); 1575 FOR Y=1 TO 1000 : NEXT Y 1580 ; #1,'*> '; 1590 GOSUB 1760 : IF Fel CLOSE 1 : Z=CALL(0) 1600 ; #1,'' 1610 POKE 64200,PEEK(65413),PEEK(65414) 1620 POKE 65413,0,0 1630 Z=CALL(64000) 1640 ; 1650 CHAIN 'RLOGIN' 1660 ! 1670 ! ** SUBRUTINER ** 1680 ! 1690 I=0 1700 WHILE PEEK2(PEEK2(65500)+6)=0 AND I<30000 : I=I+1 : WEND 1710 IF I<30000 GET #1,A$ : RETURN 1720 Fel=-1 1730 RETURN 1740 ! 1750 ! 1760 WHILE LEN(L$)>0 1770 GOSUB 1690 : IF Fel RETURN 1780 WHILE A$<>LEFT$(L$,1) 1790 GOSUB 1690 : IF Fel RETURN 1800 WEND 1810 L$=RIGHT$(L$,2) 1820 WHILE JMID$(L$,J+1,1) Fel=-1 : RETURN 1860 J=J+1 1870 WEND 1880 L$='' 1890 WEND 1900 RETURN