home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / telecomm / zzcompro / scanner.lc2 < prev    next >
Text File  |  1993-03-27  |  2KB  |  82 lines

  1. ; -------------------------------------------------
  2. ; Script Lc2 enregistré par ZZ-COM PRO
  3. ; Le 23/03/1991 à 21:25:24
  4. ; -------------------------------------------------
  5. ; Programme de recherche de code T1/T2 
  6. ; Ecrit et conçu par COREWAR en mars 1991
  7. ; Les codes trouvés sont sauvés dans l'éditeur
  8. ; -------------------------------------------------
  9. A=0
  10. E=0
  11. ; CODE DEPARTEMENT
  12. C=135
  13. ; Indiquer ci dessous là ou dois commencer la recherche 
  14. ; CODE Z+X+Y+W+V+U 
  15. Z=0
  16. Y=6
  17. X=0
  18. W=5
  19. V=8
  20. U=7
  21. VIDE_EDITEUR
  22. COMPOSE_NUMERO("3614")
  23. ATTENDS_CONNEXION
  24. PAUSE(7)
  25. SOMMAIRE
  26. REPEAT  
  27.      IF E=6
  28.           RETRY
  29.           E=0
  30.      ENDIF
  31.      E=E+1
  32.      IF U=10
  33.           U=0
  34.           V=V+1
  35.      ENDIF
  36.      IF V=10
  37.           V=0
  38.           W=W+1
  39.      ENDIF
  40.      IF W=10
  41.           W=0
  42.           X=X+1
  43.      ENDIF
  44.      IF X=10
  45.           X=0
  46.           Y=Y+1
  47.      ENDIF
  48.      IF Y=10
  49.           Y=0
  50.           Z=Z+1
  51.      ENDIF
  52.      IF Z=10
  53.           END       
  54.      ENDIF
  55.      B=(C)+STR(Z)+STR(Y)+STR(X)+STR(W)+STR(V)+STR(U)
  56.      CHAINE (B)
  57.      ENVOI
  58.      CONNECT
  59.      U=U+1
  60. UNTIL A=10
  61. PROCEDURE CONNECT
  62.      PAUSE(6)
  63.      MOT=PRENDS_MOT(0,3)
  64.      IF MOT=("LIB") OR MOT=("fin") OR MOT=("incident") OR MOT=("interruption")
  65.           ANNULATION   
  66.      ELSE
  67.           AJOUTE_EDITEUR(B)
  68.           COPIE_ZONE(ASCII,0,1,4,39)         
  69.           AJOUTE_EDITEUR(PRESSE_PAPIERS)
  70.           PAUSE(1)
  71.           CONNEXION_FIN
  72.           PAUSE(7)
  73.           E=0
  74.      ENDIF
  75. RETURN
  76. PROCEDURE RETRY
  77.      PAUSE(1)
  78.      COMPOSE_NUMERO("3614")
  79.      ATTENDS_CONNEXION     
  80.      PAUSE(7)
  81.      SOMMAIRE
  82. RETURN