home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 06 / praxis / amaris.abl next >
Encoding:
Text File  |  1990-03-06  |  1.2 KB  |  56 lines
  1. const PASSWORD = 'toolbox',
  2. MITBEN = '0001';
  3.  
  4. var RETCODE = int;
  5.  
  6.  
  7. online;
  8. waitdct;             /* Warte bis gesendet werden kann  */
  9. send(MITBEN);        /* Mitbenutzer Nummer  */
  10. waitdct;
  11. send(PASSWORD);
  12. if (len(PASSWORD)<8)
  13.     sendterm;
  14. endif;
  15. info('Anwahl und Login durchgeführt!');
  16. pause(4);
  17. waitdct;
  18. sendinit;            /* Stern   */
  19. send('124777434');   /* Nummer  */
  20. sendterm;            /* Raute senden */
  21. waitdct;
  22. send('05651809322'); /* Konto Nummer */
  23. pause(4);
  24. send('88384');       /* PIN */
  25. pause(4);
  26. send('18');
  27. pause(4);            /* Auswahl abschicken */
  28. send('19');
  29. pause(30);
  30. waitdct;
  31. send('1');
  32. pause(20);
  33. waitdct;
  34. /* Einlesen und Abspeichern des akt. K.-Standes als Datei */
  35. /* A_Zeile,A_Spalte,E_Zeile,E_Spalte */
  36. /* -> Zeile:0-23   Spalte:0-39 */
  37. RETCODE = savetext('Konto2.txt',11,1,12,39);
  38.      if (RETCODE)
  39.          info('Fehler bei savetext !!!');
  40.      endif;
  41. waitdct;
  42. pause(10);
  43. sendinit;
  44. send('0');
  45. sendterm;
  46. pause(20);
  47. waitdct;
  48. pause(20);
  49. sendinit;
  50. send('9');
  51. sendterm;
  52. pause(20);
  53.  
  54. return(1);  /* nicht im Amaris-BTX bleiben sondern */
  55.             /* zurück ins DOS (0)-> im BTX bleiben */
  56.