home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
telecomm
/
zzcompro
/
scanner.lc2
< prev
next >
Wrap
Text File
|
1993-03-27
|
2KB
|
82 lines
; -------------------------------------------------
; Script Lc2 enregistré par ZZ-COM PRO
; Le 23/03/1991 à 21:25:24
; -------------------------------------------------
; Programme de recherche de code T1/T2
; Ecrit et conçu par COREWAR en mars 1991
; Les codes trouvés sont sauvés dans l'éditeur
; -------------------------------------------------
A=0
E=0
; CODE DEPARTEMENT
C=135
; Indiquer ci dessous là ou dois commencer la recherche
; CODE Z+X+Y+W+V+U
Z=0
Y=6
X=0
W=5
V=8
U=7
VIDE_EDITEUR
COMPOSE_NUMERO("3614")
ATTENDS_CONNEXION
PAUSE(7)
SOMMAIRE
REPEAT
IF E=6
RETRY
E=0
ENDIF
E=E+1
IF U=10
U=0
V=V+1
ENDIF
IF V=10
V=0
W=W+1
ENDIF
IF W=10
W=0
X=X+1
ENDIF
IF X=10
X=0
Y=Y+1
ENDIF
IF Y=10
Y=0
Z=Z+1
ENDIF
IF Z=10
END
ENDIF
B=(C)+STR(Z)+STR(Y)+STR(X)+STR(W)+STR(V)+STR(U)
CHAINE (B)
ENVOI
CONNECT
U=U+1
UNTIL A=10
PROCEDURE CONNECT
PAUSE(6)
MOT=PRENDS_MOT(0,3)
IF MOT=("LIB") OR MOT=("fin") OR MOT=("incident") OR MOT=("interruption")
ANNULATION
ELSE
AJOUTE_EDITEUR(B)
COPIE_ZONE(ASCII,0,1,4,39)
AJOUTE_EDITEUR(PRESSE_PAPIERS)
PAUSE(1)
CONNEXION_FIN
PAUSE(7)
E=0
ENDIF
RETURN
PROCEDURE RETRY
PAUSE(1)
COMPOSE_NUMERO("3614")
ATTENDS_CONNEXION
PAUSE(7)
SOMMAIRE
RETURN