home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PWPLWARN.ZIP / PWPLWARN.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-07-11  |  632 b   |  31 lines
  1. ' WARNING.BAS
  2. '
  3. ' Released to the public domain 7-11-92 by:
  4. '
  5. ' Gabriel Gonzalez
  6. ' 9050 Larkspur Dr.
  7. ' Westminster, CA 92683
  8. '
  9. ' Please modify this code if you see fit.
  10. ' Compiled under QuickBASIC 4.5
  11. '
  12.  
  13.  
  14. OPEN "c:\pwplus.log" FOR INPUT AS #1
  15. WHILE NOT EOF(1)
  16.     msg2$ = msg1$
  17.     INPUT #1, msg1$
  18. WEND
  19. IF LEFT$(msg1$, 2) = "Un" OR LEFT$(msg2$, 2) = "Un" THEN
  20.     CLS
  21.     FOR i = 1 TO 10
  22.         PRINT (CHR$(7));
  23.     NEXT
  24.     PRINT "W A R N I N G!!!!"
  25.     PRINT : PRINT
  26.     PRINT "Unauthorized attempts have occurred."
  27.     PRINT : PRINT
  28.     PRINT "Press <RETURN> to continue...";
  29.     INPUT msg1$
  30. END IF
  31.