1: ON COM(1) GOSUB 111 2: COM(1) ON 3: ON ERROR GOTO 100 4: num$ = "3737232" 5: dd = 10 6: comx = 1 7: COLOR 4, 8 8: TOP: 9: CLS 10: PRINT "旼컴컴컴컴컴컴컴컴컴�" 11: PRINT "� Prank System v1.0 �" 12: PRINT "쳐컴컴컴컴컴컴컴컴컴�" 13: PRINT "� By: Dracula �" 14: PRINT "읕컴컴컴컴컴컴컴컴컴�" 15: PRINT 16: PRINT "Current number : "; num$ 17: PRINT "Number of Dials: "; dd 18: PRINT "Com Port: "; comx 19: PRINT 20: INPUT "Command (?=Help)->", cmd$ 21: cmd$ = LCASE$(LTRIM$(RTRIM$(cmd$))) 22: IF cmd$ = "?" THEN PRINT "//#[Phone#] for new number.": PRINT "//D[Number] for new redials.": PRINT "//P[1 or 2] redifine modem port.": PRINT "//GO Start Prank Calling.": PRINT "//Q to exit": PRINT "//H to hangup modem.":print "//A About": SLEEP 23: IF LEFT$(cmd$, 3) = "//#" THEN num$ = RIGHT$(cmd$, LEN(cmd$) - 3) 24: IF LEFT$(cmd$, 3) = "//d" THEN dd = VAL(RIGHT$(cmd$, LEN(cmd$) - 3)) 25: IF LEFT$(cmd$, 3) = "//p" THEN comx = VAL(RIGHT$(cmd$, LEN(cmd$) - 3)) 26: if cmd$ = "//a" then 27: print "I made this on a Saturday night while I had nothing to do." 28: print "So I decided to make a prank caller. The default number is" 29: print "The number for the Speed-E-Food on McDowell Rd." 30: print "Don't worry this is a great target because it is 24-hrs." 31: print "& doesn't have caller ID" 32: print "Well I'll make later versions but as for now Have Fun. :-)" 33: print "Press a key to Continue..." 34: sleep 35: end if 36: IF cmd$ = "//h" THEN CLOSE 1, 2 37: IF LEFT$(cmd$, 3) = "//q" THEN END 38: IF comx > 2 THEN comx = 1 39: IF cmd$ = "//go" THEN GOTO start 40: GOTO TOP 41: 42: start: 43: Print "Press a key if someone picks up! (HA)" 44: FOR i = 1 TO dd 45: IF comx = 1 THEN OPEN "com1" FOR OUTPUT AS #1 ELSE OPEN "com2" FOR OUTPUT AS #1 46: PRINT #1, "atdt" + num$ 47: SLEEP 26 48: PRINT "Done with this one."; (i - dd) * -1; "left to do" 49: CLOSE #1 50: NEXT i 51: PRINT "Prank Calls Completed" 52: GOTO TOP 53: 54: 100 BEEP: COLOR 15: PRINT "An Error has ocured! C-Ya": END: RESUME 55: 56: 111 d$ = INPUT$(1, 1): PRINT d$; 57: RETURN 58: |