Advertisement
Guest User

Untitled

a guest
Nov 13th, 2016
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.05 KB | None | 0 0
  1. 1 N$ = CHR$(10)
  2. 10 OPEN "COM1:38400", AS #1
  3. 20 SLEEP 0.1
  4. 30 IF EOF(1) < 0 GOTO 20
  5. 40 INPUT# 1, TEST$
  6. 50 IF TEST$ = "RING" + N$ THEN GOTO 75
  7. 60 GOTO 20
  8. 75 print# 1,"ATA"
  9. 76 print "CONNECTED USER"
  10. 80 open "test", AS #2
  11. 90 SLEEP 0.1
  12. 100 IF EOF(2) < 0 GOTO 135
  13. 110 INPUT# 2, TEMP$
  14. 120 PRINT# 1, TEMP$
  15. 130 GOTO 90
  16. 135 print# 1,"TESTED CONNECTION"
  17. 140 CLOSE #2
  18. 700 PRINT# 1,"please enter your username or type guest to enter"
  19. 800 IF EOF(1) = 0 THEN INPUT# 1,DUMP : GOTO 800
  20. 810 IF EOF(1) = 0 THEN INPUT# 1,INBUF : SLEEP 0.1 : GOTO 830
  21. 820 GOTO 810
  22. 830 USERNAME = LEFT$(INBUF, LEN(INBUF)-1)
  23. 831 print USERNAME
  24. 832 IF USERNAME = "MENTAL" GOTO 100000
  25. 835 GOTO 1000
  26. 838 GOTO 9000
  27. 900 IF EOF(1) = 0 THEN INPUT# 1,DUMP : GOTO 900
  28. 905 PRINT# 1,"Enter Option"
  29. 910 IF EOF(1) = 0 THEN INPUT# 1,INBUF : SLEEP 0.1 : GOTO 930
  30. 920 GOTO 910
  31. 930 INBUF = LEFT$(INBUF, LEN(INBUF)-1)
  32. 935 PRINT INBUF
  33. 940 GOTO 8000
  34. 1000 print# 1,"Hello" USERNAME "Welcome To Mental's Den"
  35. 1010 PRINT " "
  36. 1020 PRINT "In Mental's Den you have the option of doing: "
  37. 1030 open "BBS_commands", AS #2
  38. 1040 SLEEP 0.1
  39. 1050 IF EOF(2) < 0 GOTO 900
  40. 1060 INPUT# 2, TEMP$
  41. 1070 PRINT# 1, TEMP$
  42. 1080 goto 1040
  43. 1090 CLOSE #2
  44. 8000 SLEEP 0.1
  45. 9000 PRINT# 1, "+++"
  46. 9001 IF INBUF = "1" GOTO 11000
  47. 9100 PRINT# 1, "ATH0"
  48. 9200 GOTO 20
  49. 11000 OPEN "COM1:38400", AS #1
  50. 11001 PRINT "SOMEONE IS CALLING YOU!"
  51. 11002 INPUT "ANSWER CALL?: Y/N? : ", AC
  52. 11003 IF AC = "Y" GOTO 11010
  53. 11004 SLEEP 0.1
  54. 11005 PRINT "OK"
  55. 11006 PRINT# 1,"SYSOP UNAVALIABLE TRY AGAIN LATER"
  56. 11007 GOTO 905
  57. 11010 SLEEP 0.1
  58. 11011 INPUT ": ", SYSOPIN
  59. 11012 PRINT# 1,"SYSOP: ",SYSOPIN
  60. 11013 SLEEP 0.1
  61. 11014 GOTO 905
  62. 100000 PRINT# 1,"DETECTED SYSOP LOGIN ENTER PASSWORD"
  63. 100001 PRINT# 1,"PASSWORD: "
  64. 100002 IF EOF(1) = 0 THEN INPUT# 1,DUMP : GOTO 100002
  65. 100003 IF EOF(1) = 0 THEN INPUT# 1,INBUF : SLEEP 0.1 : GOTO 100005
  66. 100004 GOTO 100003
  67. 100005 PASSW= LEFT$(INBUF, LEN(INBUF)-1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement