Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 1 N$ = CHR$(10)
- 10 OPEN "COM1:38400", AS #1
- 20 SLEEP 0.1
- 30 IF EOF(1) < 0 GOTO 20
- 40 INPUT# 1, TEST$
- 50 IF TEST$ = "RING" + N$ THEN GOTO 75
- 60 GOTO 20
- 75 print# 1,"ATA"
- 76 print "CONNECTED USER"
- 80 open "test", AS #2
- 90 SLEEP 0.1
- 100 IF EOF(2) < 0 GOTO 135
- 110 INPUT# 2, TEMP$
- 120 PRINT# 1, TEMP$
- 130 GOTO 90
- 135 print# 1,"TESTED CONNECTION"
- 140 CLOSE #2
- 700 PRINT# 1,"please enter your username or type guest to enter"
- 800 IF EOF(1) = 0 THEN INPUT# 1,DUMP : GOTO 800
- 810 IF EOF(1) = 0 THEN INPUT# 1,INBUF : SLEEP 0.1 : GOTO 830
- 820 GOTO 810
- 830 USERNAME = LEFT$(INBUF, LEN(INBUF)-1)
- 831 print USERNAME
- 832 IF USERNAME = "MENTAL" GOTO 100000
- 835 GOTO 1000
- 838 GOTO 9000
- 900 IF EOF(1) = 0 THEN INPUT# 1,DUMP : GOTO 900
- 905 PRINT# 1,"Enter Option"
- 910 IF EOF(1) = 0 THEN INPUT# 1,INBUF : SLEEP 0.1 : GOTO 930
- 920 GOTO 910
- 930 INBUF = LEFT$(INBUF, LEN(INBUF)-1)
- 935 PRINT INBUF
- 940 GOTO 8000
- 1000 print# 1,"Hello" USERNAME "Welcome To Mental's Den"
- 1010 PRINT " "
- 1020 PRINT "In Mental's Den you have the option of doing: "
- 1030 open "BBS_commands", AS #2
- 1040 SLEEP 0.1
- 1050 IF EOF(2) < 0 GOTO 900
- 1060 INPUT# 2, TEMP$
- 1070 PRINT# 1, TEMP$
- 1080 goto 1040
- 1090 CLOSE #2
- 8000 SLEEP 0.1
- 9000 PRINT# 1, "+++"
- 9001 IF INBUF = "1" GOTO 11000
- 9100 PRINT# 1, "ATH0"
- 9200 GOTO 20
- 11000 OPEN "COM1:38400", AS #1
- 11001 PRINT "SOMEONE IS CALLING YOU!"
- 11002 INPUT "ANSWER CALL?: Y/N? : ", AC
- 11003 IF AC = "Y" GOTO 11010
- 11004 SLEEP 0.1
- 11005 PRINT "OK"
- 11006 PRINT# 1,"SYSOP UNAVALIABLE TRY AGAIN LATER"
- 11007 GOTO 905
- 11010 SLEEP 0.1
- 11011 INPUT ": ", SYSOPIN
- 11012 PRINT# 1,"SYSOP: ",SYSOPIN
- 11013 SLEEP 0.1
- 11014 GOTO 905
- 100000 PRINT# 1,"DETECTED SYSOP LOGIN ENTER PASSWORD"
- 100001 PRINT# 1,"PASSWORD: "
- 100002 IF EOF(1) = 0 THEN INPUT# 1,DUMP : GOTO 100002
- 100003 IF EOF(1) = 0 THEN INPUT# 1,INBUF : SLEEP 0.1 : GOTO 100005
- 100004 GOTO 100003
- 100005 PASSW= LEFT$(INBUF, LEN(INBUF)-1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement