home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib18.dsk / DISCOURAGER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  964b  |  22 lines
  1. 1  REM  **********************
  2. 2  REM  *     DISCOURAGER    *
  3. 3  REM  *   BY  MARK ALLEN   *
  4. 4  REM  * COPYRIGHT (C) 1984 *
  5. 5  REM  * BY MICROSPARC, INC *
  6. 6  REM  * LINCOLN, MA. 01773 *
  7. 7  REM  **********************
  8. 10  TEXT : HOME : POKE 1011,213: POKE 1012,112: POKE 1010,102: POKE 214,128: ONERR  GOTO 150
  9. 20  FOR I = 1 TO 13
  10. 30  VTAB 22: PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **":A$ = "USER NAME - ": VTAB 12: PRINT A$
  11. 40  GOSUB 140: GET Z$: IF Z$ =  CHR$(13)  THEN 90
  12. 50  IF Z$ =  CHR$(32)  OR Z$ =  CHR$(21)  THEN 70
  13. 60  PRINT  CHR$(88): GOTO 80
  14. 70  PRINT  CHR$(32): GOTO 80
  15. 80 K$ = K$ +Z$: NEXT I
  16. 90  IF K$ = "PASSWORD"  THEN  GOTO 120
  17. 100  HOME : VTAB 12: FLASH : PRINT "ACCESS DENIED": NORMAL 
  18. 110  FOR X = 1 TO 3000: NEXT : HOME : CLEAR : GOTO 20
  19. 120  HOME : VTAB 12: PRINT "ACCESS APPROVED": POKE 1011,157: POKE 1012,56: POKE 1010,191: POKE 214,0
  20. 130  POKE 216,0: END 
  21. 140  VTAB 12: HTAB  LEN(A$) +I: RETURN 
  22. 150  IF  PEEK(222) = 255  THEN  RUN