home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / AUTOLOG.MOD next >
Text File  |  1989-04-01  |  506b  |  32 lines
  1. ;LANS  10-18-88  06:42  AUTOLOG.MOD
  2. ;
  3. auto_log:
  4. IF '$correct' = '1' get_correct
  5. ATWRITE 61 4 138 '#2> '
  6. COLOR 15
  7. IF '$scr_type' <> 'D' U-L2
  8. GOTOXY 59 3
  9. GOTO D-L2
  10. U-L2:
  11. GOTOXY 62 3
  12. D-L2:
  13. GET 0 1
  14. ATWRITE 61 4 4 '#2> '
  15. IF '$0' = '' go_back
  16. IF '$0' = 'Y' y_end
  17. IF '$0' = 'N' n_end
  18. GOTO auto_log
  19. n_end:
  20. ASSIGN autosel '$0'
  21. ASSIGN logend 'done'
  22. GOTO auto_end
  23. y_end:
  24. ASSIGN autosel '$0'
  25. ASSIGN logend 'logoff'
  26. auto_end:
  27. SCRIPT YorN.mod
  28. ATWRITE 65 4 11 '$autosel'
  29. go_back:
  30. RETURN
  31. ;
  32.