Viewer - /home/rkeene/devel/archive/quickbasic/ss.bas

5748238 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n ss.bas
   1: DECLARE SUB drwscrn (clr1!, clr2!)
   2: DECLARE SUB clr25lne ()
   3: DECLARE SUB ddsa (tm!)
   4: DECLARE SUB cool (m!, n!)
   5: DECLARE FUNCTION ReadLn$ (ln!)
   6: vtop:
   7: RANDOMIZE TIMER
   8: COLOR 15, 1
   9: CLS
  10: drwscrn 15, 1
  11: LOCATE 10, 30, 0
  12: COLOR 14, 1
  13: PRINT "-=d=--=d=--=d=--=d=-"
  14: LOCATE 11, 30
  15: PRINT "-=d NetWork Plus d=-"
  16: LOCATE 12, 30
  17: PRINT "-=d=--=d=--=d=--=d=-"
  18: LOCATE 13, 30
  19: PRINT "-=d     v1.0     d=-"
  20: LOCATE 14, 30
  21: PRINT "-=d=--=d=--=d=--=d=-"
  22: LOCATE 25, 1
  23: clr25lne
  24: LOCATE 25, 1, 0
  25: PRINT "Dialing ***-***-****...";
  26: FOR i = 1 TO 400
  27: SOUND (INT(RND * 250) + 240), .1
  28: NEXT i
  29: clr25lne
  30: FOR i = 100 TO 1 STEP -1
  31: LOCATE 25, 1, 0
  32: PRINT "Conecting..."; i;
  33: FOR d = 1 TO 1000: NEXT d
  34: NEXT i
  35: 'BoxPop 13, 39, 12, 14, 0, 15, 1
  36: COLOR 14, 0
  37: CLS
  38: PRINT "Serial uplink successful..."
  39: FOR i = 1 TO 500: NEXT i
  40: INPUT "Logon Name-->", nm$
  41: PRINT "Password to use-->";
  42: COLOR 0, 0
  43: INPUT "", pass$
  44: COLOR 14, 0
  45: nm$ = LTRIM$(RTRIM$(nm$))
  46: PRINT "Welcome to the Speeding Bullet BBS, "; nm$
  47: PRINT "Checking mail...";
  48: ddsa 1000
  49: PRINT "Done!"
  50: ddsa 1000
  51: PRINT "You Have ("; : COLOR 4: PRINT "1"; : COLOR 14: PRINT ") Message(s)."
  52: PRINT "It is..."
  53: ddsa 5000
  54: CLS
  55: PRINT "{:"; STRING$(78, "-");
  56: PRINT "{:  To:     "; nm$
  57: PRINT "{:  From:   XXX1XXX"
  58: PRINT "{:  Server: 345.2347.5263"
  59: PRINT "{:"; STRING$(78, "-");
  60: PRINT "{: Subject: DefCon Project"
  61: PRINT "{:"; STRING$(78, "-");
  62: PRINT "{:"
  63: PRINT "{:   Server: 333.5543.7894"
  64: PRINT "{:"
  65: PRINT "{: Password: 7*96*47***.4288"
  66: PRINT "{:"
  67: PRINT "{:     P.S.: Get a Cracker to join."
  68: PRINT "{:     P.P.S: Copy This!!!"
  69: PRINT "{:"
  70: PRINT "{:"
  71: PRINT "{:"
  72: PRINT
  73: PRINT "Press any key to continue..."
  74: SLEEP
  75: cool 20, 0
  76: LOCATE 19, 1
  77: PRINT "        Mail Deleted--------->By: UnKnown User"
  78: SLEEP
  79: cool 0, 0
  80: COLOR 15, 1
  81: CLS
  82: drwscrn 15, 1
  83: PRINT "Main Menu Has Crashed...But you may use the access doors."
  84: PRINT "Press any key to continue..."
  85: SLEEP
  86: CLS
  87: top:
  88: drwscrn 4, 0
  89: COLOR 4, 0
  90: LOCATE 1, 1
  91: PRINT "[1] Internet Relay Chat"
  92: PRINT "[2] Chat"
  93: PRINT "[3] Sysop Menu"
  94: PRINT "[4] DownLoad Mail"
  95: PRINT "[Q] Log off"
  96: PRINT
  97: PRINT "Internet Doors-{ 1,2,3,4,Q,? }試試耳"
  98: LOCATE , 36
  99: PRINT "A試_>";
 100: cho$ = INPUT$(1)
 101: IF cho$ = "" OR cho$ = "?" THEN CLS : GOTO top
 102: IF cho$ = "Q" OR cho$ = "q" THEN INPUT "Log off? (Y/n) ", a$: IF a$ = "" OR LCASE$(LEFT$(a$, 1)) = "y" THEN END ELSE CLS : GOTO top
 103: IF cho$ = "4" THEN IF mm = 0 THEN PRINT "Sorry No Mail...": SLEEP: GOTO top:  ELSE GOTO down
 104: IF cho$ = "2" THEN GOTO chat
 105: IF cho$ = "3" THEN GOTO sysop
 106: IF cho$ = "1" THEN IF cr = 1 THEN GOTO irc
 107: CLS
 108: GOTO top:
 109: 
 110: 
 111: chat:
 112: CLS
 113: PRINT "Online Host: Current room H-ck"
 114: PRINT "Captain Hack:  MM Going out in 30 Seconds"
 115: PRINT STRING$(80, "*");
 116: PRINT "IM: From: Captain Hack..."
 117: PRINT "    Want on?"
 118: PRINT "Response-->";
 119: d$ = INPUT$(1)
 120: IF LCASE$(d$) = "y" THEN PRINT : PRINT "Download From Menu...Returning.": mm = 1: SLEEP: GOTO top ELSE PRINT "Lamer! I'm Kicking your butt off...": END
 121: 
 122: down:
 123: CLS
 124: COLOR 14, 0
 125: PRINT "Please wait..."
 126: Delay 100
 127: PRINT "Password Cracker Downloaded..."
 128: PRINT "Type: //CRACK to activate."
 129: cr = 1
 130: SLEEP
 131: CLS
 132: GOTO top
 133: 
 134: sysop:
 135: CLS
 136: PRINT "Connecting..."
 137: INPUT "Password-->", pswd$
 138: IF LCASE$(pswd$) = "//crack" AND cr = 1 THEN  ELSE CLS : GOTO top
 139: PRINT
 140: PRINT "Cracking...";
 141: FOR i = 1 TO 63
 142: PRINT ".";
 143: Delay 5
 144: NEXT i
 145: PRINT "Done!";
 146: SLEEP
 147: CLS
 148: drwscrn 15, 1
 149: LOCATE 1, 1
 150: PRINT "[1] Check users"
 151: PRINT "[2] Read Mail"
 152: PRINT "[3] Change User"
 153: PRINT "[4] Delete User"
 154: PRINT "[G] Goodbye"
 155: PRINT "[M] Main Menu"
 156: PRINT
 157: PRINT "Sysop menu ----->";
 158: e$ = INPUT$(1)
 159: PRINT "Hackers have Come!"
 160: FOR dd = 1 TO 300
 161: PRINT CHR$(INT(RND * 200) + 30);
 162: NEXT dd
 163: PRINT "NO CARRIER"
 164: PRINT "Auto Logon Initialized"
 165: Delay 5000
 166: GOTO vtop
 167: CLS
 168: GOTO top
 169: 
 170: irc:
 171: CLS
 172: PRINT "Logging off..."
 173: Delay 5000
 174: PRINT "Connecting to IRC...";
 175: Delay 5000
 176: PRINT "Connected."
 177: PRINT "Current Server: 112.2213.7536"
 178: PRINT "Server Op.: XXX2XXX"
 179: PRINT
 180: PRINT "[L]og to new server"
 181: PRINT "[J]oin Channel"
 182: PRINT "[S]erver Opp Menu"
 183: PRINT "[R]eturn"
 184: PRINT "Choose-->";
 185: d$ = INPUT$(1)
 186: IF d$ = "l" OR d$ = "L" THEN GOTO logg
 187: IF d$ = "j" OR d$ = "J" THEN PRINT "Device Failure...Press a Keys to Continue": SLEEP: GOTO vtop
 188: IF d$ = "s" OR d$ = "S" THEN GOTO sysop
 189: IF d$ = "r" OR d$ = "R" THEN CLS : GOTO top ELSE CLS : GOTO top
 190: 
 191: logg:
 192: PRINT
 193: INPUT "Server name:", sn$
 194: IF sn$ <> "333.5543.7894" THEN PRINT "Invalid Server...": Delay 1000: CLS : GOTO vtop
 195: PRINT "Connecting..."
 196: Delay 500
 197: CLS
 198: COLOR 4, 0
 199: PRINT "-=d=--=d=--=d=--=d=--=d=-"
 200: PRINT "-=d  The uNDeRGRouND  d=-"
 201: PRINT "-=d=--=d=--=d=--=d=--=d=-"
 202: PRINT
 203: PRINT "Password-->";
 204: COLOR 0, 0
 205: INPUT "", pswrd$
 206: COLOR 4, 0
 207: IF LCASE$(pswrd$) = "//crack" AND cr = 1 THEN  ELSE PRINT "C-Ya!": Delay (1000): GOTO vtop
 208: PRINT "Cracking...";
 209: FOR i = 1 TO 63
 210: PRINT ".";
 211: Delay 500
 212: NEXT i
 213: PRINT "Done!";
 214: Delay 1000
 215: CLS
 216: drwscrn 4, 9
 217: LOCATE 1, 1
 218: PRINT "You Have Made It!"
 219: PRINT "C-Ya Later!"
 220: SLEEP
 221: cool 20, 4
 222: END
 223: 
 224: SUB BoxPop (sx, sy, sz, clr1, clr2, cur1, cur2)
 225: x% = CSRLIN: y% = POS(0)
 226: COLOR clr1, clr2
 227: FOR q = 1 TO sz
 228: LOCATE sx + q, sy + q: PRINT " ";
 229: LOCATE sx - q, sy + q: PRINT " ";
 230: LOCATE sx + q, sy - q: PRINT " ";
 231: LOCATE sx - q, sy - q: PRINT " ";
 232: LOCATE sx + q, sy: PRINT " ";
 233: LOCATE sx - q, sy: PRINT " ";
 234: LOCATE sx, sy - q: PRINT " ";
 235: LOCATE sx, sy + q: PRINT " ";
 236: LOCATE sx, sy: PRINT " ";
 237: 'LOCATE sx, sy: PRINT " ";
 238: NEXT q
 239: LOCATE x%, y%
 240: COLOR cur1, cur2
 241: END SUB
 242: 
 243: SUB clr25lne
 244: LOCATE 25, 1
 245: PRINT STRING$(80, 32);
 246: END SUB
 247: 
 248: SUB cool (m, n)
 249: COLOR m, n: FOR q = 1 TO 25: LOCATE q, 1: PRINT ReadLn$(q); : NEXT q
 250: END SUB
 251: 
 252: SUB ddsa (tm)
 253: FOR ddd = 1 TO tm
 254: NEXT ddd
 255: END SUB
 256: 
 257: SUB drwscrn (clr1, clr2)
 258: LOCATE 1, 1
 259: COLOR clr1, clr2
 260: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 261: PRINT "ﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛ";
 262: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 263: PRINT "ﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛ";
 264: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 265: PRINT "ﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛ";
 266: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 267: PRINT "ﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛ";
 268: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 269: PRINT "ﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛ";
 270: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 271: PRINT "ﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛ";
 272: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 273: PRINT "ﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛ";
 274: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 275: PRINT "ﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛ";
 276: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 277: PRINT "ﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛ";
 278: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 279: PRINT "ﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛ";
 280: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 281: PRINT "ﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛ";
 282: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 283: PRINT "ﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛ";
 284: LOCATE 25, 1: PRINT "ｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰｰｱｲﾛﾛｲｱｰ";
 285: END SUB
 286: 
 287: FUNCTION ReadLn$ (ln)
 288: x% = CSRLIN: y% = POS(0)
 289: FOR q = 1 TO 80
 290: mm$ = mm$ + CHR$(SCREEN(ln, q))
 291: NEXT q
 292: ReadLn$ = mm$
 293: END FUNCTION
 294:
5748239 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:09:52