' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  1 '&&*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0((*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLL- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(` F d£֠ӠàҠ͠z# u`􍭭宮Ԡ򮮮ĹԶıÍ栱庰퍍􍭭宮򮮮ĹԶαÍ栶庴퍍 􍭭宮ر򮮮ĹıԵıαÍ栱庱퍍􍭭宮Ԡ򮮮ĹԵıαÍ栲庵 栰庰퍍核庰康亱亰核康岍΍􍭭宮ծԠ򮮮ĶԳειδα栱庰m.:10:6:"HACKING CONSTRUCTION SET IIE"S9:11:"PATCH BY DISK CRUNCHER"k(4)"RUN HCS BOOT"rTIONS BY:" 13:7:"]The Data Wizard/PhaZe`89["(4)"RUN HCS BOOT" RUNHCS BOOT"C  栲庳13303'X$(" "A$,1):B$(" "A$,(" "A$)1,1)f'X$"0"X$"9"A$(A$,(A$)2):B$"T"X30'X$"0"X$"9"1330'#(A$)1A$"":X$"S"F0:1325'(A$(A$,(A$)1):X$"S"F0'-X$"C"G0(2:13:3:868:13:3:"FORMAT: "A$::"HUNGUP":35,21:20:D11300:D?I1(A$):X$(A$,I,1)vX$"S"O$A$(ZZ):12:20I::"S"::10:21:2045X$"C"O$B$(YY):12:20I::"C"::11:21:2045X$"N"X$(A$,I1,1)::12:20I:"N"X$::D170:D+X$"T"X$(A$,I1(A$,I,1)'aX$"S"H$H$A$(ZZ):890EfX$"C"H$H$B$(YY):890xkX$"D"āW1((A$,I1,1))2:H$H$","::890pX$"T"H$H$B$:890uX$"N"H$H$(A$,I1,1)zI"AT "T$" DT "H$D$"PR#0"#D1300:D:35,24:22:31::"|"B$"| D:"Y" F:";::V;::T3Y:T4V:2150:" "R$P9S0F$"*"N$(CS)s>(N$)QāI1Q1:N$"0"N$:C20:"|"N$"|"HL1DL((1)9)1:2080MU1YY1RT$"":CX1CX0:T$" M"(M)" "WD$"PR#2" \H$"":I1(A$):X$):810 B$(C):C(A)790BF$"*"CC((1)SP)S:B$(C)SQ(B$)810gDQ(B$)11u B$"0"B$|%D*YY((1)CE)1:ZZ((1)NV)1:10:"Number- Service ("ZZ"):"A$(ZZ):" Carrier ("YY"):"B$(YY)/18:"|"Y$"|"4419 MAIN HACK LOOP216,01A(M$):B(I$)=Y0:V0JCA:FL1d HACKER LOOPS HEREnY$B$FL1FL0:765U1CCSU1EC0ECV1025U1ETVET01025F$"**"B$"":D1Q:B$B$((((1)10))):D:C(B$퍍栶庰퍍栰庰康亲亰栱康􍭭宮̠򮮮ĹԶαÍ栱庰庱亱亰栶庱퍱根庱庸亲庰亸亰庸庹亱亰栱庹庴亱亰栱庸亲亰庹亱亰栱庹庲亱亰栱庲􍭭宮򮮮ķԶαÍ栲庳0,1280,1285,1290,1395&1190@&8:12:"";J$:(J$)101270F&^&10:19:"";A$(1):v&11:19:"";B$(1):& 13:10:X$:X$"S"X$"C"X$"T"X$"D"X$(13)X$"N"X$(127)1290&X$(127)1335'(A$)2A$"":F0:G0:X30:>": %K(16384):K1281220R%16368,0:KK128:K27ĢT:2:" ":32,2:250b%K13ī1675%K8K21K10K11ĢT:2:" "%K8K11PP1:P1P1%K21K10PP1:P5Ĺ32,2:1410%K8K21K10K111190%K321220&P127"Carrier number :"B$(1):13:"FORMAT: "A$:w$"S)ervice C)arrier N)umber":"D)elay T)ry code [RET] done"$18:"Seconds to wait for carrier ["Z"]":32,0$P1T8$P2T10$P3T11$P4T13$P5T18%T:2::"10:"CODE"::35,21&#oU1U0:11453#tH1U1=#y1020S#~ CREATE MODULE[#P1#34,0::6:11:"CONFIG":34,6:#J$"":A$"SD4T6C":Z16:H0:L0:N0:O0:D17:B$(D)"":A$(D)"":#,$8:"#"X" Name :"J$::"Service number :"A$(1):35,21x"GF63:G40:2195:F111:2195:F141:2195:F159:G50:2195:D1100:D:2195:F141:G60:2195:F159:G255:2195"LD$"OPEN "E$"QD$"APPEND"E$"VD$"WRITE"E$"[U1ĺ"Verified":1125"`B$"eD$"CLOSE"#j35,0:22:25::"DISK":22: !D$"IN#0"!$D$"PR#0">!)35,0:22:1:"CONNECT":35,21L!.D$"PR#2"a!/X$:X$"3"1074k!01071y!2D$"IN#2"!3:D$"PR#0":D$"IN#0":16368,0!=U1VV1"B35,0:22::"CONNECT"::22:31:"HUNGUP":22:25:"WRIT"::22:10:"CODE"::N"E$:D$"APPEND"E$:D$"WRITE"E$:"Ending code:"C$:"Dialed:"Y" Found:"V" Ratio "R$:D$"CLOSE" F103:G100:2195:F63:G50:2195:2195:F84:G90:2195:F63:G60:2195:D1300:D F103:G80:2195:D122:D:F111:2195 2210:240 CONNECT19:X$::1025YX$(13)ĺD$"IN#0":D$"PR#0":U0:35,0:22:31:"HUNGUP":35,21:1020b96035,24:22:16::"WAIT":35,21::750D11000:D::35,24:22:16::"WAIT":35,21::19::C$B$:T1T1Y:T2T2V:1860] X$"WRIT":2225:D$"OPE):D$"IN#0":D$"PR#0":X$::35,24:22:31:"HUNGUP":35,21:19:1020X$"P"ĺD$"IN#0":D$"PR#0":U0:35,0:22:31:"PAUSED":35,21:2235X$"2"1080X$"1"1050X$(27)K(16336):D$"IN#0":D$"PR#0":35,24:22:31:"HUNGUP":35,21:HACKER RESULTS716368,0:20:15:X$:16368,0cX$"S"CX1:MM1:K(16336):M1M0X$"G"K(16336):GGGG1:GG1GG0X$"G"ĭGG1Ĺ49232,0:49239,0:49237,0X$"G"ĭGG0Ĺ49236,0:49233,0EX$" "Ĺ16368,0:K(16336:"N"X$::D170:DWX$"T"X$(A$,I1,1)::12:20I:"T"X$::19:2:O$B$:2045X$"D"X$(A$,I1,1)::12:20I:"D"X$::DL(X$):208012:21:A$:I35,24:22:16:"WAIT":35,2120:D$"PR#2":D$"IN#2":D1100:D:16368,0D$"PR#0"OD1300:D:35,24:22:31::"HUNGUP":35,21:20:D11300:DkI1(A$):X$(A$,I,1)X$"S"O$A$(ZZ):12:20I::"S"::10:21:2045X$"C"O$B$(YY):12:20I::"C"::11:21:2045X$"N"X$(A$,I1,1)::12:20I)" "WD$"PR#2"5\H$"":I1(A$):X$(A$,I,1)SaX$"S"H$H$A$(ZZ):890qfX$"C"H$H$B$(YY):890kX$"D"āW1((A$,I1,1))2:H$H$","::890pX$"T"H$H$B$:890uX$"N"H$H$(A$,I1,1)zI"AT "T$" DT "H$ r ("YY"):"B$(YY)"/18:"|"Y$"|"^419:"|"B$"| D:"Y" F:";::V;::T3Y:T4V:2150:" "R$z9S0F$"*"N$(CS)>(N$)QāI1Q1:N$"0"N$:C20:"|"N$"|"HL1DL((1)RAN)1:2080MU1YY1RT$"":CX1CX0:T$" M"(M"":D1Q:B$B$((((1)10))):D:C(B$):810G B$(C):C(A)790lF$"*"CC((1)SP)S:B$(C)}Q(B$)810DQ(B$)11 B$"0"B$%D*YY((1)CE)1:ZZ((1)NV)1:10:"Number- Service ("ZZ"):"A$(ZZ):" Carrieode:"M$:T$D$"CLOSE"$2210< MAIN HACK LOOPG216,0[A(M$):B(I$)gY0:V0tCA:FL1 HACKER LOOPS HEREY$B$FL1FL0:765U1CCSU1EC0ECV1025U1ETVET010250F$"**"B$ "K$::"Starting code:"M$:T$-D$"CLOSE"72210@730TX$"OPEN":2225dD$"OPEN"E$uD$"WRITE"E$ :" Hacking Construction Set":Q$:"Name....."J$" "K$:"Number..."A$(1):"Format..."A$:Q$::"Hacking as of "K$::"Starting cX$"R"505vX$(27)240`{T$"Increment:":F$"*"T$T$"random "(S1)"/"(SSP):650F$"**"T$T$"completely random":650T$T$(S)690D$"VERIFY"E$X$"WRIT":2225D$"APPEND"E$D$"WRITE"E$::"Hacking as ofDA(S$)16058IU$(S$,1,A1):Z$(S$,A1,(S$))FNS(U$)1YSSP(Z$)(U$)bX610s]S(F$):SP1^S0550b16:21:"";E$gE$""E$"DATA."J$:16:21:E$l19:" [RETURN] starts [R]edo [ESC]ape ";:X$:X$:19:868 q,2,(I$))):550%(I$)(C$)5256!(I$)0525I&15:21:"";F$j+F$""S1:15:21:"1":6100F$"**"S0:6005(F$,1)"*"605:(F$,1)"*"S$(F$,2,(F$)):F$"*"?F$"*"āA1(S$):X$(S$,A,1):X$"."580@AA550nding :"C$)"*./**/# increment:1"L" Datafile name :DATA."J$_13:21:"";M$M$""Ģ13:21:C$:M$C$:525(M$)(C$)505(M$)0505 14:21:"";I$(I$,1)"C"EC((I$,2,(I$))):550(I$,1)"T"ET((I$er (1):"B$(1)+" Format :"A$7Q(C$)DO0465]D27:B$(D)""460dDoCED1"codes- starting :"C$B$"":N$"":D1Q:B$B$"0":N$N$"0"::N0490D27:A$(D)""485DNVD1 "T#/C#/# ePP1:P9P1325. LOAD OR CREATE<XP:1775JQQ1:180e HACKER BEGINS HERE34,0::6:11:"HACKER":34,6:8:"#"X" ";::" "J$" ";::20);"[ESC][SPC][P][S]":"number- Service (1):"A$(1) " Carri("D")C$(P)"EMPTY"1725=^K32C$(P)"EMPTY"XP:2025cK27Ĺ16298,0:16302,0:I330:16304,0:J11:K(16336)::16303,0::::2130hK13C$(P)"EMPTY"ī395mK13XP:1150r330wK8K11PP1:P1P9|K21K10İ2150:30:R$'A#,D$"CLOSE"-12210C6 MAIN SELECTORq;19:" [RET] [ESC] [SPACE] [D]elete <->"y@P1E8P::2:" "C$(P)" ":JK(16384):K128330OKK128:49168,0TK8K21K10K11Ģ8P:2:" "C$(P)" ":375YKAIN MENU 49231,0A 34,0::6:11:"MAIN ":34,6::::L 1925^ D$"VERIFY"G$i 216,0 X$"READ":2225: D$"OPEN "G$",L200" A19 D$"READ "G$",R"A "B$:F:G:C$(A)B$:8A:" "B$;:16:"D:"F;:23:"F:"G;:T3F:T4G:R#2" D1500:DG "AT M"M" S7="Z" S0=0 X1 Q0 V0 E0":"ATS11=70"h "ATS20 1=1 2=1":"ATS11=60"v D$"IN#2" D1500:D X$ D$"IN#0":D$"PR#0" QQ1QQ0: GET THE DATE 1980 34,0::6:19:K$:34,6:: M 1:9D1:" "1 34,6:32,2:33,36:35,219 M0h :::"Enter Max Random Delay --> ";RAN: CONFIGURE MODEM 10:10:"Configuring Modem" 14:13:"Version 2.0" Z16 49153,0:49237,0:1148,22:49236,0:49152,0 D$"P ";::"HUNGUP":1 dA721:A:" ";:40:" ":Z i6:"\";:40:"/":22:"/";:40:"\"` nr sXX1400:XX x2:9:D1(X$)::XX1:X(AZ$)X1 }(AZ$,X,1);:XX18:XX :(8);(X$,D,1); D 1:9D1:"+" F250:G35:21956,0 2G$"HCS.INDEX"0 7 SCREEN FORMATTING? <AZ$"!/-\"a AX$"Hack Construction Set //" F2:9:X$:3:15:"By Cyborg" K: P5:10:22) U6:1:40):22:40) Z:6:9::" ";:32:" ": _22:3:"CONNECT CODE WAIT 00 DISK / __________________________  HACKING CONSTRUCTION SET  BY CYBORG 1986 (LIST THIS IN 80 COLS!) (21) Q$"---------------------------------------"2190:D$(4)D$"NOMONCIO"#45 -21               70D,X:D:60,255F!61,G,6771:@6 DISK OPTIONf635,24:22:25::"DISK"::35,21l6635,24:22:25:X$:35,21:6 BY CYBORG 11/08/85---------------------"2190:D$(4)D$"NOMONCIO"#45 (D$(@+H(@+H0P6V0P6V<`@l#GET NUMBERG#N$;g#S(N$)3ĺ"-";:N$N$"-"#A(N$)7ĺ"-";:N$N$"-"#16384,128:DI$#DI$(8)2360# (N$)4Sĺ(8);:N$(N$,3)# (N$)8A1ĺ(8);:N$(N$,7) $ (N$)S$:PR$"Y"ĺRD$&" C:R1C:SN$(R)6"*D$;"CLOSE"<"4J">CURSORz"HC$"!/-\":M1:R1T:(C$,M,1);(8);:MM1"RM5M1"\"f" ";"p"zCUTEPRINT"2110"(16384)128Ĺ16368,0:160 #M1:R1(A$):(A$,R,1);(C$,MY"ĄRD$!C:R1C:SN$(R):/!D$;"CLOSE"5!F! PUT FILEQ!216,0b!DF$""2100l!1002!D$;"DELETE "DF$".CC"!D$;"OPEN "DF$".CC"!D$;"WRITE "DF$".CC"!SL$:PR$:AC$:LD$:D1:D2! DG$:SC$:EC$:INC:TN$"DL$:T"A":ZQ15:1580:ZQ:"+++";:ZQ15:1580:ZQ: 0"ATH"D :1580K D0V N255:l XREAD FILE DATA bD$;"OPEN "DF$".CC" lD$;"READ "DF$".CC" vSL$:SL$"0"1960 PR$:AC$:LD$:D1:D2 DG$:SC$:EC$:INC:TN$!DL$:TS$:PR$"5:"CODES HACKED:":I1C1I;".",SN$(I)7::8:"QUIT THE CRUSHER? (Y/N)";:16384,128:A$((16384)128):A$"Y"Ĺ16368,0:1002:17801002:D$;"BRUN HACK HELLO,D1"HM:HANG UP0SL/ &100:0::@DELAY2J255:0ZTPDL01:1:28:"WAITING...";P;" ";:P21500:P2,Pf^:SL:hQUIT AND DISPLAY NUMBERSr1800|HM::1002:2000"LAST CODE DIALED: ";SC$C0Ė10:"NO SUCCESSFUL CODES":1750+BUSYRDĢ1:1800:V:H::NUM$::150051360ZBUSY0:HH10:H39DGH1:VV1V19Ĺ35,19:34,3:912:34,0:35,2:V1901590SC$(("1"NUM$)1):SC$(SC$,(SC$)1):NUM$""1X"1640,DELAY6P1100R$"Q"SC$NUM$:1640SR$"G"Ĺ16297,0:16304,0:16299,0:16302,0:1360oR$"T"Ĺ16303,0:1360R$"N"Ģ1:1800:V:H:NUM$;::"N"::1500BUSYR62R63BUSYBUSY1R43R44R$"R"İ1800:1250R62RD$""1490(150:"ATDT";NUM$;",";MN$+2255:1590=<INPUT LOOPHF0:SLcPPR$"N"ĺ"?";:R$:R$tUPR$"Y"ĄR$ZR(R$)dCONNECTnR1R5SN$(C1)NUM$:CC1:1:1800:V:H::NUM$::SC$NUM$:2000:1500xNO CARRIERR31500INC 0&NUM$((X),((X))1)BH(NUM$)39H1:VV1RH:V:NUM$Y1MN$"":MN$(TN$,1,3)(TN$,5,3)(TN$,4)SL:150"ATDT";AC$;(LD$,3);(LD$,4); PR$"Y"ĺ"W DT";NUM$;",";MN$:1330";"DLD1:1600TL"ATS9=3"VA$"`1590<jCOMMA DELAY LENGTHVt"ATS8=";D2:A$:1590s~ESCAPE CODE DEAD TIME"ATS12=25":A$:1590SPEAKER ON/OFF"ATM";(SP$"Y"):A$:15900:255 DIALING LOOPX("1"SC$)("1"EC$)LT CODES SL)"ATV";2(PR$"Y")1A$;1590LNO ANSWERd"ATS0=0":A$:1590DELAY BEFORE HANGUP"ATS7=";(DL)A$1590DIALING SPEED$"ATS11=";TS.A$81590B RESPONSE TIME, CARRIER DETEC"N";::": NUMBER SKIPPED BEFORE HANGUP"::"INVERSE";::": BUSY - ABORTED BEFORE ANSWER"::3:"FLASH";::": SUCCESSFUL CONNECT"\3:I140:"-";:f35,2pzSL:150NOCEHO"ATZ":1590"ATE0"1590 NUMERIC RESU810* TS(TS$):TS30TS255ĺ"":7802":%16:"SPEAKER ON?-> ";:DE$SP$:LN1:LE1:2390:NU$"Y"NU$"N"ĺ"";:805'SP$NU$*::12:"CORRECT? Y";:1008:CH$4CH$"N"700>HM::H20:I140:"-";:IR21:7::􍭭宮Ԡ򮮮ķԶIJÍ栱庲m18:1:"ENTER A NUMBER KNOWN TO EMIT A CARRIER:":19:13:"[XXX-XXX-XXXX]";:14:N$TN$:A1:2250:TN$N$21:3:"DELAY BEFORE DIALING NO.-> ";:DE$(D2):LN2:2390:D2(NU$)24:12:"CORRECT? (Y/N) Y";:A$A$"N"700A$"":450UEC$,DG):2390:(NU$)DGĺ"";:5900XEC$NU$wb15:18:"INCREMENT->";:DE$(INC):LNDG:2390:(NU$)1ĺ"":610lINC(NU$)vPR$"Y"Ģ16:2:"DELAY BEFORE DIALING CODE-> SEC.";:30:LN2:DE$(D1):2390:(NU$)1ĺ"":630D1(NU$)&8:6:"NO. OF DIGITS IN CODE->";:LN1:DE$DG$:2390:(NU$)8(NU$)1ĺ"";:550k0DG$NU$:DG(DG$):14:9:"STARTING CODE:":20DG2:LNDG:DE$(SC$,DG):2390:(NU$)DGĺ"";:570DSC$NU$$N15:12:"ENDING CODE:":20DG2:LNDG:DE$(ĺ"";:490PR$NU$"SN$""~5:12:"ENTER AREA CODE-> ";:DE$AC$:LN4:LE1:2390:AC$NU$:AC$""Ė30:"LOCAL":540(AC$)100(AC$)1999AC$"":"";:5206:2:"LONG DIST. SERVICE NUMBER-> [XXX-XXXX]";:31:N$LD$:LN7:2250:LD$N$UL$""-::12);"MODEM PARAMETERS";41):t13:3:"SLOT OF MODEM?->";:DE$SL$:LN1:LE1:2390:NU$(27)240(NU$)1(NU$)7ĺ"";:460SL$NU$:SL(SL$) 4:3:"USE PROMOTHEUS PROMODEM?->";:DE$PR$:LN1:LE1:2390:NU$"Y"NU$"N"0 r440U|(222)6Ģ17:5:"FILE NOT FOUND...CREATE? ";:A$:A$"Y"310(222)6Ģ19:16:"ERROR #";(222):13:"PRESS ANY KEY: ";:A$:310D$;"OPEN";DF$;".CC"D$;"WRITE";DF$;".CC"0D$;"CLOSE":216,0SL$"0"SA$:A$(13)310# "A$(27)17508 ,D%1(D%1):270 612:958:11:"ENTER DATA FILE NAME:":13:13:"(.CC IS APPENDED)":15:10:LN20:LE1:DE$DF$:2390:NU$""440 @NU$(27)240 JDF$NU$ T380 ^D$;"UNLOCK";DF$;".CC"",D"D%h188:::12);"THE CODE CRUSHER";41):13);"LOAD DATA FILE";41);:::34,1b D%1: DEFAULT DRIVE SP$"Y": DEFAULT SPEAKER STATUS DRIVE SELECT 6:1211(D%2)::"DRIVE ";D%;::2311(D%2)::"DRIVE ";D%(D%2)(D%1); 16384,128:$"":D15:D22: EXTENDER PARMSn SC$"00000000":EC$"99999999":TN$"": START/END CODES, TEST NUMBER DG$"6":INC1: DIGITS/INCREMENT DL$"10":TS$"60":RD$"3": DELAY B/F DISONNECT, TOUCH-TONE SPEED, # OF REDIALS (PROMOTHEUS)I HM: HACKAMATIC":21706 n255:T4:I17141:I:2110:c x200:M1:X29121:X:(C$,M,1);" ";v MM1:M5M1 :T15:255 255:13:12:I115:2110: 255 DEFAULT VALUES SL$"2": SLOT PR$"N": PROMOTHEUS AC$"":LD244 <SN$(200) FV4:H1' P:HM ZT15:220::8:5:A$"AUTO'S AUTOMATIC CODE CRUSHER":2170:10:15:A$"WRITTEN BY:":2170:12:13:A$"A U T O M A N":2170:13:13:A$"~~~~~~~~~~~~~":2170 d15:15:A$"PART II OF:":2170:17:10:A$"THE HAYES!? %%%%%%%%%%%%%%%%%%%%%%%% CODE CRUSHER 1.2 %%%%%%%%%%%%%%%%%%%%%%%% WRITTEN BY: A U T O M A N %%%%%%%%%%%%%%%%%%%%%%%% LIST THIS IN 80 COLUMNS (D$(13)(4) 2HM(175)(176)256                 􍭭宮Կ򮮮ĸԶıαÍ栲庴 庰亸亰栱庰庳亱亰栱庳T30R$"00.0%":218015pT3T4R$"100% ":2180S5uRT4T3:R0R$"00.0%":2180j5zR$(R):R$R$"00"5W$(R$,2,2)"."(R$,4,1)"%":R$W$55 SOUND ROUTINES 6173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96:D119:X:7,24:22:16:"WAIT 00"$4*D1DL144/W1270:W@44X$(D)W49(X$)1X$"0"X$n4>22:16:"WAIT "X$u4CD4H:22:16:"WAIT 00"::35,214M4R RETURN TO MAIN4W21454\D$"RUN HCS BOOT"4a216,0:4f CALCULATE RATIO5kLE(334,0::6:11:"EDIT ":34,6:63E1:1775D3P1:1170\3 DIALING ROUTINEx3W1(O$):X$(O$,W,1)3X$"0"X$"9"20653 :X$;:D170:D::;(8);X$;:20703:X$;::(8);X$;3W3:3  DELAY SUBROUTINE4%35"G$",R"D2"EMPTY":"0":"0"%242D$"CLOSE">22210G2275]2 DATE ROUTINE {2K$"":12:15:"MM/DD/YY"2P142X162X3X5PP1:K$K$"/"212:PX:X$:X$"0"X$"9"20052K$K$X$:X$2X23 EDIT MODUD$"WRITE"G$",R"P.1XJ$:T1:T2:A$(1):B$(1)61]A$C1bZ:H:LZ1gN:D27:A$(D):q1lO:D27:B$(D):y1qC$1vD$"CLOSE"1{221011 CONFIGURE INDEX1X$"OPEN":22251216,01D$"OPEN"G$",L200"1D192D$"WRITE G$",L200"0D$"READ"G$",R"P&0J$20 T1:T2=0A$(1)H0B$(1)P0A$]0!Z:H:Lt0&N:D27:A$(D):0+O:D27:B$(D):D00C$05D$"CLOSE"0:22100?0DWRITE PARMS TO INDEX0IX$"SAVE":22250ND$"OPEN"G$",L200"1SX/X$"WRIT":2225"/X$(P)9/D$"OPEN"G$",L200"R/D$"READ"G$",R"P:B$i/D$"WRITE"G$",R"X$/"EMPTY":"0":"0":D1188:" ";::" "/D$"CLOSE"/2210/240/READ PARMS FROM INDEX /X$"LOAD":2225/18 0D$"OPEN"XIT CONFIG/EDIT%.T:2:" ":32,23.E11715O.A1(A$):X$(A$,A,1)l.X$"T"Q((A$,A1,1)).X$"T"Q0Q10.X$"T"1710.A.C$"":D1Q1:C$C$"0":D:C$C$"1":T10:T20.E0:PX:1860.240/ DELETE FROM INDE(D1):11D:22:D4")"A$(D4):E-YD46:11D3:24:"";A$(D1):K-^^-cOO1:O1O0j-h16:34-mO0ĺ"OFF":1665-rO1ĺ"ON "-wD13:16D:7:"";B$(D1):16D:22:D4")"B$(D4):D-|D46:16D3:24:"";B$(D1):-. E1575,1600,1635, 1470+,HH1:H1H06,8:34F,H0ĺ"OFF"V,H1ĺ"ON "\,"o,'LL1:L1L0z,,9:34,1L0ĺ"OFF",6L1ĺ"ON ",;,@NN1:N1N0,E11:34,JN0ĺ"OFF":1630,ON1ĺ"ON " -TD13:11D:7:"";A$K(16384):K1281495-+KK128:16368,0M+K27ĢT:2:" ":32,2:250\+K131675+K8K21K10K11ĢT:2:" "+K8K11PP1:P1P5:32,2:1170+K21K10PP1:P4P4+K21K8K10K111470+K321490,P1550,*A*" Multi-carrier................[OFF]";:O1ĺ"ON ]"L*O0ĺ*" 2)"B$(2);:20:"5)";B$(5):" 3)"B$(3);:20:"6)"B$(6):" 4)"B$(4);:20:"7)"B$(7):P1:32,0*P1T8*P2T9*P3T11*P4T16*T:2::">":+" )H0ĺI)" RND dial delay...............[OFF]";:L1ĺ"ON ]"T)L0ĺ):" Multi-port...................[OFF]";:N1ĺ"ON ]")N0ĺ)" 2)";A$(2);:20:"5)";A$(5):" 3)";A$(3);:20:"6)";A$(6):" 4)";A$(4);:20:"7)"A$(7) (PX$"T"X30A$A$"T":X313(UX$(13)1390I(ZX$"N"A$A$"N"f(_X$:X$"0"X$"9"ī1370s(dA$A$X$(i13:11:A$:1290(n(s18:34:"";Z(x18:33:"["Z"]"(}():" Auto verify..................[OFF]";:H1ĺ"ON ]7&735,24:22:25:X$:35,21:A7 PAUSE MODIFICATION U78:31::"P":`78:31l7KEYIN$7KEYIN$"P"ī22557223578:31:"P":710207 BY CYBORG 11/08/85/2190:D$(4)D$"NOMONCIO"#45 -21庱퍷康亴亱栱康庱亶亰栱康"9"1330-'#(A$)1A$"":X$"S"F0:1325N'(A$(A$,(A$)1):X$"S"F0^'-X$"C"G0'2:13:3:868:13:3:"FORMAT: "A$:1290'7X$"S"F0A$A$"S":F1'<X$"S"1385'AX$"C"G0A$A$"C":G1'FX$"C"1385(KX$"D"A$A$"D"& 13:10:X$:X$"S"X$"C"X$"T"X$"D"X$(13)X$"N"X$(127)1290f&X$(127)1335&(A$)2A$"":F0:G0:X30:1330&X$(" "A$,1):B$(" "A$,(" "A$)1,1)&X$"0"X$"9"A$(A$,(A$)2):B$"T"X30'X$"0"X$11ĢT:2:" "*%K8K11PP1:P1P1P%K21K10PP1:P5Ĺ32,2:1410m%K8K21K10K111190}%K321220%P1270,1280,1285,1290,1395%1190%8:12:"";J$:(J$)101270%%10:19:"";A$(1):%11:19:"";B$(1):Q栰庱庴亲亰栰庴庹亳亰4$18:"Seconds to wait for carrier ["Z"]":32,0A$P1T8O$P2T10]$P3T11k$P4T13y$P5T18$T:2::">":$K(16384):K1281220$16368,0:KK128:K27ĢT:2:" ":32,2:250$K13ī1675 %K8K21K10K:34,6:N#J$"":A$"SD4T6C":Z16:H0:L0:N0:O0:D17:B$(D)"":A$(D)"":T##8:"#"X" Name :"J$::"Service number :"A$(1):"Carrier number :"B$(1):13:"FORMAT: "A$:#"S)ervice C)arrier N)umber":"D)elay T)ry code [RET] done""LD$"OPEN "E$#"QD$"APPEND"E$4"VD$"WRITE"E$O"[U1ĺ"Verified":1125W"`B$f"eD$"CLOSE""j35,0:22:25::"DISK":22:10:"CODE"::35,21"oU1U0:1145"tH1U1"y1020"~ CREATE MODULE"P1#34,0::6:11:"CONFIG""$!3:D$"PR#0":D$"IN#0":16368,04!=U1VV1!B35,0:22::"CONNECT"::22:31:"HUNGUP":22:25:"WRIT"::22:10:"CODE"::35,21"GF63:G40:2195:F111:2195:F141:2195:F159:G50:2195:D1100:D:2195:F141:G60:2195:F159:G255:2195195:F84:G90:2195:F63:G60:2195:D1300:D[ F103:G80:2195:D122:D:F111:2195j 2210:240y CONNECT D$"IN#0" $D$"PR#0" )35,0:22:1:"CONNECT":35,21 .D$"PR#2" /D11500:D:"+++";:D11500:D:(13)!0D$"IN#2::750^D11000:D::35,24:22:16::"WAIT":35,21::19::C$B$:T1T1Y:T2T2V:1860X$"WRIT":2225:D$"OPEN"E$:D$"APPEND"E$:D$"WRITE"E$:"Ending code:"C$:"Dialed:"Y" Found:"V" Ratio "R$:D$"CLOSE"/ F103:G100:2195:F63:G50:2195:2:19:1020SX$"3"ĺD$"IN#0":D$"PR#0":U0:35,0:22:31:"HUNGUP":35,21:1020dX$"2"1080uX$"1"1050X$(27)K(16336):D$"IN#0":D$"PR#0":35,24:22:31:"HUNGUP":35,21:19:X$::102596035,24:22:16::"WAIT":35,21X$"S"CX1:MM1:K(16336):M1M0SX$"G"K(16336):GGGG1:GG1GG0X$"G"ĭGG1Ĺ49232,0:49239,0:49237,0X$"G"ĭGG0Ĺ49236,0:49233,0 X$" "Ĺ16368,0:K(16336):D$"IN#0":D$"PR#0":X$::35,24:22:31:"HUNGUP":35,21:"T"X$::19:2:O$B$:2045[X$"D"X$(A$,I1,1)::12:20I:"D"X$::DL(X$):2080n12:21:A$:I35,24:22:16:"WAIT":35,2120:D$"PR#2":D$"IN#2":D1100:D:16368,0HACKER RESULTS16368,0:20:15:X$:16368,0(,21:20:D11300:D0I1(A$):X$(A$,I,1)gX$"S"O$A$(ZZ):12:20I::"S"::10:21:2045X$"C"O$B$(YY):12:20I::"C"::11:21:2045X$"N"X$(A$,I1,1)::12:20I:"N"X$::D170:DX$"T"X$(A$,I1,1)::12:20I庱亲亱栴庱퍱康亶亲栱康亰栱庸庸亲亰栱庸庸亱亱栱" F:";::V;::T3Y:T4V:2150:" "R$A9S0F$"*"N$(CS)d>(N$)QāI1Q1:N$"0"N$:vC20:"|"N$"|"HL1DL((1)9)1:2080MU1YY1RT$"":CX1CX0:T$" M"(M)" "WD$"PR#2"\H$"":I1(A$):X$(A$,I,1)a(C):C(A)7903F$"*"CC((1)SP)S:B$(C)DQ(B$)810XDQ(B$)11f B$"0"B$m%D*YY((1)CE)1:ZZ((1)NV)1:10:"Number- Service ("ZZ"):"A$(ZZ):" Carrier ("YY"):"B$(YY)/18:"|"Y$"|"%419:"|"B$"| D:"YOP216,0"A(M$):B(I$).Y0:V0;CA:FL1U HACKER LOOPS HERE_Y$B$sFL1FL0:765U1CCSU1EC0ECV1025U1ETVET01025F$"**"B$"":D1Q:B$B$((((1)10))):D:C(B$):810 B$730X$"OPEN":2225+D$"OPEN"E$<D$"WRITE"E$:" Hacking Construction Set":Q$:"Name....."J$" "K$:"Number..."A$(1):"Format..."A$:Q$::"Hacking as of "K$::"Starting code:"M$:T$D$"CLOSE"2210 MAIN HACK LOT$T$"random "(S1)"/"(SSP):650SF$"**"T$T$"completely random":650bT$T$(S)l690~D$"VERIFY"E$X$"WRIT":2225D$"APPEND"E$D$"WRITE"E$::"Hacking as of "K$::"Starting code:"M$:T$D$"CLOSE"2210 NS(U$)1 SSP(Z$)(U$))X610:]S(F$):SP1G^S0550Zb16:21:"";E$gE$""E$"DATA."J$:16:21:E$l19:" [RETURN] starts [R]edo [ESC]ape ";:X$:X$:19:868qX$"R"505vX$(27)240'{T$"Increment:":F$"*"&15:21:"";F$1+F$""S1:15:21:"1":610G0F$"**"S0:600]5(F$,1)"*"605:(F$,1)"*"S$(F$,2,(F$)):F$"*"?F$"*"āA1(S$):X$(S$,A,1):X$"."580@AA550DA(S$)1605IU$(S$,1,A1):Z$(S$,A1,(S$))file name :DATA."J$&13:21:"";M$HM$""Ģ13:21:C$:M$C$:525^(M$)(C$)505o(M$)0505 14:21:"";I$(I$,1)"C"EC((I$,2,(I$))):550(I$,1)"T"ET((I$,2,(I$))):550(I$)(C$)525!(I$)0525O0465$D27:B$(D)""460+D6CED1T"codes- starting :"C$B$"":N$"":D1Q:B$B$"0":N$N$"0"::N0490D27:A$(D)""485DNVD1"T#/C#/# ending :"C$"*./**/# increment:1"" Data775QQ1:180, HACKER BEGINS HEREQ34,0::6:11:"HACKER":34,6:W8:"#"X" ";::" "J$" ";::20);"[ESC][SPC][G][S]":"number- Service (1):"A$(1)" Carrier (1):"B$(1)" Format :"A$Q(C$) 2025_cK27Ĺ16298,0:16302,0:I330:16304,0:J11:K(16336)::16303,0::::2130}hK13C$(P)"EMPTY"ī395mK13XP:1150r330wK8K11PP1:P1P9|K21K10PP1:P9P1325 LOAD OR CREATEXP:1庱亳亰栱庶庶亹亰栱庸庳亱􍭭宮Ԡ򮮮ĶԳζδγηεεααδα栱庹       庹亱亱栱庹庸亲亰     Num@<p~c8< p@sG|qs~xG?x Q pxC>p~xx>p|  @ Q A5 @~`x! p`p`c`a$_*#"X:@Uj$ @`A>`cG|Cc Q @a>p@~x6xCq@@  U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*( >>>>>>>`<>>>>`";3nU**AbK)~U  " @5(XjL@5 Hժժժ(pxO/cB~( ``<`~?~<`~?p@QժժժT*U* px7=kz}]-{ <~=~`<`"| D"DQ?D~qCO~QcG?q#_xSO"D" T D"D"DzGhw/|x"D"~x|"`@G  D"D"D"D"D"Dq_"D" T D"D"D"D"D"D"D"A5뮍 D"DqD"DrGy#D"D"D" D"D"DbOx"Dh"D"D""<< T?"X*@UjD D"DQqcO|qcG}cS/O"D" T D"D"DbQ/x"D"~x""" @D( D"^<>^?>d >^<>d /^O"D""*U**C"J'u D"D"D"D"D"D"D"D" D"D"D"D"D"D"D"D""R`5(X* @5? PԨѢ(87ok^7{~} D"D"D"D"D"D"D"D"`Uٍ̬T*u~ ԪժժՀ`_z87;kv<-{ D"^>~="d >^<"d /^"D""x  ؍ @~pC>`OppC Q x`gp@~x|<< `> Q `A5 xaxp  @`"`@GRT0"d "X*@@Uj @pxaG?xcA? Q `p`cb$ @ Dժժժ <<?<`<<`O"p+U*"mp| V0|Xj~~@U* ` "D"D~drhW?tI?~E?"D"D T "D"D"Dx#D~rG"D`GAxCq(@@ ؠЪժժ( "D>^<_?D^^<>^^ Q 0xwp@~x8|> xō @< Q xA5 p@p  |@p?"`iV0X*CI@U* @~``<~ Qx p|~~Ap0p@ժժժ <^?<`~<`o"` "@@?~  ``<``<```p"`8lx @5 @(x7kmn;_w~(  Q 퍠Ĉ1|~>x7-[[w4-{ >>>>><>>`<<>>``Uժժժ٠J D"DQ?D~QO?b q#_xs#|"D" T D"D"D"Dwg_x"Db~x8|"<`;~  D"DqDS?_hrO~ygx'|"D" T D"D"D"|~Gh"D"|"A5 D"D"D"D"D"D"D"D" D"D"D"D"D"D"DG""x?HW0X*0@AJ$ @U* D"DQ?D~"DbG"D"D"D" T D"D"DrGH"D?"D"|"Q`` X@Line@Ъժժp8( D"^>~?y?d s#^<"d /^"D""p D"D"D"D"D"D"D"D" D"41&^<1&$ &41&$ G"D""(l@X @uthe (87gk^[v} D"D"D"D"D"D"D"D" T D"D"D"D"D"D"DG"A5 t? Ԫժժբ|?8Os^<}?~?~O"D"@U ЪժժՀn pr* @~~?`wppc< Q pwp@~x~``@ |#cess xag?xx}o| Q p?~`|A5x? ݽ  "@4U0 X*``@&@Ujpe Te @~`` p@?xQ<`;~x`X @W yq ;Lo;|U*ժժժpx <~?<>`r<`"xa %  88$8 $88 ",uoa1LKX@UqX(xO/C0g|(  Q p?A5;!Dժժժ|?x 88<8r'r$8r' Wժժժ[" "D"D~DH>diw#| ?zg ="D"D T "D"D"Dg?rG"DH~xGOp @O` "D"|qw?~y}o~Ox"D"D T "D"D"DhEr"D`|G`8 "D"D"D"D"D"D"D"D "D"D"D"D"D"D"D"D"$@5(@X*C0x~@upO! "D"D~D"Dh"t "D"D"D  "D"D"DxbG~G"DyDA> @X*``,#n X @U>ys cripT*U* Ъժժp_z8OaC}es|( "D"^<?>q#~>^q#^_"D"|limi "D"D"D"D"D"D"D"D( "D}?|&|q#^<}?|q#^~/S"D"NslUj*A"HIpU F@,8( "D"D"D"D"D"D~"D"D T "D"D"D"D"D"Dz"DA5 NumHԢŊ(x8 "D1&4>4s'r&4s'R/^"DuЪժժՀc8<            :::: 1925% D$"VERIFY"G$0 216,0F X$"READ":2225:^ D$"OPEN "G$",L200"i A19 D$"READ "G$",R"A "B$:F:G:C$(A)B$:8A:" "B$;:16:"D:"F;:23:"F:"G;:T3F:T4G:2150:30:R$ 'A ,D$"CLOSE" 12210 6 MAIN1500:D/ "AT M"M" S7="Z" S0=0 X1 Q0 V0 E0"= D$"IN#2"M D1500:DU X$m D$"IN#0":D$"PR#0"~ QQ1QQ0: GET THE DATE 1980 34,0::6:19:K$:34,6:: MAIN MENU 49231,0 34,0::6:11:"MAIN ":34,6D1:"+" F250:G35:21950 1:9D1:" "N 34,6:32,2:33,36:35,21V M0\ t CONFIGURE MODEM 10:10:"Configuring Modem" 14:13:"Version 1.0" Z16 49153,0:49237,0:1148,22:49236,0:49152,0 D$"PR#2" DCONNECT CODE WAIT 00 DISK ";::"HUNGUP":N dA721:A:" ";:40:" ":w i6:"\";:40:"/":22:"/";:40:"\"} n sXX1400:XX x2:9:D1(X$)::XX1:X(AZ$)X1 }(AZ$,X,1);:XX18:XX :(8);(X$,D,1); D 1:9"BLOAD FAKEWP,A$4000" -216,03 2G$"HCS.INDEX"M 7 SCREEN FORMATTING\ <AZ$"!/-\"~ AX$"Hacking Construction Set" F2:9:X$:3:16:"by Cyborg" K: P5:10:22) U6:1:40):22:40) Z:6:9::" ";:32:" ":. _22:3:". __________________________  HACKING CONSTRUCTION SET  BY CYBORG 1986 (LIST THIS IN 80 COLS!) (21) Q$"---------------------------------------"2190:D$(4)D$"NOMONCIO"#45 (D$"00"-6W$(R$,2,2)"."(R$,4,1)"%":R$W$36J6 SOUND ROUTINES6173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96:D119:X:770D,X:D:60,255F61,G6771:6 DISK OPTION735,24:22:25::"DISK"::35,21WAIT "X$5CD15H:22:16:"WAIT 00"::35,2175MN5R RETURN TO MAINY5W2145o5\D$"RUN HCS BOOT"|5a216,0:5f CALCULATE RATIO5kT30R$"00.0%":21805pT3T4R$"100% ":21805uRT4T3:R0R$"00.0%":21806zR$(R):R$R$(O$):X$(O$,W,1)*4X$"0"X$"9"2065S4 :X$;:D170:D::;(8);X$;:2070j4:X$;::(8);X$;q4Wy4:4  DELAY SUBROUTINE4%35,24:22:16:"WAIT 00"4*D1DL14/W1270:W44X$(D)49(X$)1X$"0"X$5>22:16:"X16$3X3X5PP1:K$K$"/"5312:PX:X$S3X$(27)K$"12/34/56":k3X$"0"X$"9"2005|3K$K$X$:X$3X33 EDIT MODULE334,0::6:11:"EDIT ":34,6:3E1:17753P1:11703 DIALING ROUTINE4W1 2{22102(2 CONFIGURE INDEX<2X$"OPEN":2225G2216,0^2D$"OPEN"G$",L200"i2D192D$"WRITE "G$",R"D2"EMPTY":"0":"0"22D$"CLOSE"2221022752 DATE ROUTINE 2K$"":12:15:"MM/DD/YY"2P143):D 10C$15D$"CLOSE"%1:2210+1?G1DWRITE PARMS TO INDEX[1IX$"SAVE":2225r1ND$"OPEN"G$",L200"1SD$"WRITE"G$",R"P1XJ$:T1:T2:A$(1):B$(1)1]A$1bZ:H:L1gN:D27:A$(D):1lO:D27:B$(D):1qC$2vD$"CLOSE"8:" ";::" "0D$"CLOSE"'0221000240N0READ PARMS FROM INDEX b0X$"LOAD":2225j0180D$"OPEN"G$",L200"0D$"READ"G$",R"P0J$0 T1:T20A$(1)0B$(1)0A$0!Z:H:L0&N:D27:A$(D):1+O:D27:B$(D康亲亱栱康庱亲亰栱庱퍹$"T"1710/AE/C$"":D1Q1:C$C$"0":D:C$C$"1":T10:T20W/E0:PX:1860`/240z/ DELETE FROM INDEX/X$"WRIT":2225/X$(P)/D$"OPEN"G$",L200"/D$"READ"G$",R"P:B$/D$"WRITE"G$",R"X$0"EMPTY":"0":"0":D118z#y????0?? 1̠îؠ ؠر ԡ ԠԠԠ ˠ ؠ ͱԠ Š Ӯؠ1ծԠӠؠ1ӮĠ0 Ҡ̠  ήîؠԮؠӠ!ح̠ Ϡ ԠԠ ͠Ӡ1 İŠ!Ӯؠ ӠͮΠ РӠӠԠ ӠŠ" Ҡˠ : :         : : ӠӠ)􍭭宮Ӡͮ򮮮ķΰΰԵıÍ栱庹WAIT "X$5CD15H:22:16:"WAIT 00"::35,2175MN5R RETURN TO MAINY5W2145o5\D$"RUN HCS BOOT"|5a216,0:5f CALCULATE RATIO5kT30R$"00.0%":21805pT3T4R$"100% ":21805uRT4T3:R0R$"00.0%":21806zR$(R):R$R$(O$):X$(O$,W,1)*4X$"0"X$"9"2065S4 :X$;:D170:D::;(8);X$;:2070j4:X$;::(8);X$;q4Wy4:4  DELAY SUBROUTINE4%35,24:22:16:"WAIT 00"4*D1DL14/W1270:W44X$(D)49(X$)1X$"0"X$5>22:16:"X16$3X3X5PP1:K$K$"/"5312:PX:X$S3X$(27)K$"12/34/56":k3X$"0"X$"9"2005|3K$K$X$:X$3X33 EDIT MODULE334,0::6:11:"EDIT ":34,6:3E1:17753P1:11703 DIALING ROUTINE4W1 2{22102(2 CONFIGURE INDEX<2X$"OPEN":2225G2216,0^2D$"OPEN"G$",L200"i2D192D$"WRITE "G$",R"D2"EMPTY":"0":"0"22D$"CLOSE"2221022752 DATE ROUTINE 2K$"":12:15:"MM/DD/YY"2P143):D 10C$15D$"CLOSE"%1:2210+1?G1DWRITE PARMS TO INDEX[1IX$"SAVE":2225r1ND$"OPEN"G$",L200"1SD$"WRITE"G$",R"P1XJ$:T1:T2:A$(1):B$(1)1]A$1bZ:H:L1gN:D27:A$(D):1lO:D27:B$(D):1qC$2vD$"CLOSE"8:" ";::" "0D$"CLOSE"'0221000240N0READ PARMS FROM INDEX b0X$"LOAD":2225j0180D$"OPEN"G$",L200"0D$"READ"G$",R"P0J$0 T1:T20A$(1)0B$(1)0A$0!Z:H:L0&N:D27:A$(D):1+O:D27:B$(D$"T"1710/AE/C$"":D1Q1:C$C$"0":D:C$C$"1":T10:T20W/E0:PX:1860`/240z/ DELETE FROM INDEX/X$"WRIT":2225/X$(P)/D$"OPEN"G$",L200"/D$"READ"G$",R"P:B$/D$"WRITE"G$",R"X$0"EMPTY":"0":"0":D1181ĺ"ON "D.wD13:16D:7:"";B$(D1):16D:22:D4")"B$(D4):Di.|D46:16D3:24:"";B$(D1):o.. EXIT CONFIG/EDIT.T:2:" ":32,2.E11715.A1(A$):X$(A$,A,1).X$"T"Q((A$,A1,1)).X$"T"Q0Q10 /XF"-6L1ĺ"ON "-;+-@NN1:N1N07-E11:34M-JN0ĺ"OFF":1630]-ON1ĺ"ON "-TD13:11D:7:"";A$(D1):11D:22:D4")"A$(D4):-YD46:11D3:24:"";A$(D1):-^-cOO1:O1O0-h16:34-mO0ĺ"OFF":1665.rOK11PP1:P1P5:32,2:1170>,K21K10PP1:P4P4[,K21K8K10K111470k,K321490,P1550,1575,1600,1635, 1470,HH1:H1H0,8:34,H0ĺ"OFF",H1ĺ"ON ",",'LL1:L1L0,,9:34-1L0ĺ"OF(6):" 4)"B$(4);:20:"7)"B$(7):P1:32,07+P1T8D+P2T9R+P3T11`+P4T16s+T:2::">":+K(16384):K1281495+KK128:16368,0+K27ĢT:2:" ":32,2:250+K131675+K8K21K10K11ĢT:2:" " ,K8"ON ]"*N0ĺv*" 2)";A$(2);:20:"5)";A$(5):" 3)";A$(3);:20:"6)";A$(6):" 4)";A$(4);:20:"7)"A$(7)|**" Multi-carrier................[OFF]";:O1ĺ"ON ]"*O0ĺ*+" 2)"B$(2);:20:"5)";B$(5):" 3)"B$(3);:20:"6)"B$0)n)s18:34:"";Z.)x18:33:"["Z"]"4)}:)y):" Auto verify..................[OFF]";:H1ĺ"ON ]")H0ĺ)" RND dial delay...............[OFF]";:L1ĺ"ON ]")L0ĺ *:" Multi-port...................[OFF]";:N11290"(7X$"S"F0A$A$"S":F13(<X$"S"1385Q(AX$"C"G0A$A$"C":G1b(FX$"C"1385x(KX$"D"A$A$"D"(PX$"T"X30A$A$"T":X31(UX$(13)1390(ZX$"N"A$A$"N"(_X$:X$"0"X$"9"ī1370(dA$A$X$)i13:11:A$:129宍庍庠宍宍ٍՍǠŠ卭卍庠ݠŠ򍠠ݠԠ占ݠ􍠠ݠ堠٠䬠ǠŮ٠䬠ҠŮݠԠ宍ݠŠ򮍠ݠΠΠ䮍䬠󮍍ΠŠ󮍭庠ݠŠ􍠠ݠԠ宍庍٠ĺƺ堠䠠䠠ܭ쭭堠亠䮍䠺РźԠ𮍍堹堧䧠젨멮򮮮卍ҠŠԠ栰ˠ宍獍ҠŠԠˠЍ䠨婬ͯį٠獍堢Ӡɮ􍭭Ӡ宍宍堹宍廠䮍Ӡ堯嬠箍󮍴獍󺍍ߍ             "00"-6W$(R$,2,2)"."(R$,4,1)"%":R$W$36J6 SOUND ROUTINES6173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96:D119:X:770D,X:D:60,255F61,G6771:6 DISK OPTION735,24:22:25::"DISK"::35,21ɠ堠ӭ̠젠젹󮍍堠򍠭ԦԠԠɠ󍭭堹󮠹䮠ɠﬠ쮍򍭭󍭭報뮠塠쬠ᠱ򠲱󍭭躍堠荭頠堠ؠ䠸󮍍䮠ɠ嬠󺠶򮍍報뮍堹Ԡ䠱򠲠堢䬠嬠宍̠庠欠䬠箍󡍍쬠宠򮍍󍭭讍Š̡纠砨֩󮍍嬠ﺠ庸亲亰퍍栴庵퍍栳庵퍷庰亴亱栱庰@@ oo_{__]  po{?>w{[  o{v;_;~   p]{?{W_&x?&@dECxxxda]cGOc?^w^~ws        o={zoou=  >"pC@D{=ko7o7   @  {]?/on?      vwww>onww     g;ww{n7o          vw~oow}{(     ( @@@877s~Iwo7{w?W__ww{}o?o7{v}[{&"r0B@&L@D w=[  ;{{_{n;ժժժժժ>o;onp_wmm{k  `8?7w`Uwoww?vm}o?{;^?{_wv<<|pXaqc6Z`8@o~v_;{;@ժժժժժp}~{ow}>{{oo庴퍍栱庲퍍栱庴퍍栱庴퍍栱庰퍍栱庰퍍栱庹퍍_z[WVo[o7_]?w]8xtq]gAG?\{>_[7`D@ժժժժժo_ @@{>;n={^  `8@G oonwnm;;{> w?o>o~?w{V_o 8ww]w?@ B'@ժժժժժ}o^>[o         o[{~[{^]     @D`  kmw__n{[     o~vz_{nw         3yw?o{            ;n}; xxgow?|    @`fGx?_~}y=?w^     m_~{; @<`p8`F@ [?w? v__w~^_m퍍栱庴퍍栱庴퍍栱庰퍍栱Í퍍ǠŠ󺠠危堠堠ź堠宠ǠŠǠŮ婠ǠŬǠǍŮź嬠ҠŠ宍ǠǠŠԨĨةԠŠ宍ǠŬ仠讠Ҡ١䬠􍠠󮍍庠魠绠ؠؠ堫젠䍠ԠŠŠԠԮ箠Ԡ썠Ҡݠ쮮ŬĠ͠宍󠠺笠䮍ݠ宍ҠԮԠŮ󺍍ԺĴԶÍ嬠嬠򮍍嬠ݠԶᠶ占Ġ荠荠宠غĴ󮍍荠䮠غΰ󠰮堠Ԡ􍠠ŮҠ١䍠򮍠򮍠򠠠Π 퍍栱庴퍍栱庴庲퍍栱庹퍍栱庲퍍栱庶퍍栱庰庸亲亰宮ﺠ嬠䬠宍ӠТ䮠𮍭򮮮련䮮뮠ˤͯį٢Π宍䠢ӮآӠ嬠宍󍭭笠נԢ宍묠î􍠠宠źݬݮݠήӠᠢŢ堨ᮮ嬠䮠堢Ԣ󺍍ݠ宍ݠ򮠠ź捠ݠӠ堠źӠ嬠堢뮍Ľƽ䍰Ӡ忩箍庍ĺƺݠǠźӠƠ嬠嬠Ġ䮍Ӡ䬍ӠРݠ䮍庠䬠ݠ笠ݠ򠱰䮍򠭵䮠ީ箍ӽźĠԠԠ󮍍򠱭䮍ɠ󠠠ԣԱ젱䮍Ԡ󺍍嬠ź䮍ǠŠ󺠠堍䠠ãõ䠵䮍00,145,131,76,57,213:I131:X:767I,X::414H34,12:35,17:^44452,5:44605,4k"Dos:";sX$X$(27)Ĺ44452,21:44605,20:34,0:35,24:50X$(13)ĺ:550X$(8)(C$)1ĺ(8);" ":C$"":510X$(8)ĺ(8);:C$(("D")C$(P)"EMPTY"1725=^K32C$(P)"EMPTY"XP:2025cK27Ĺ16298,0:16302,0:I330:16304,0:J11:K(16336)::16303,0::::2130hK13C$(P)"EMPTY"ī395mK13XP:1150r330wK8K11PP1:P1P9|K21K10İ2150:30:R$'A#,D$"CLOSE"-12210C6 MAIN SELECTORq;19:" [RET] [ESC] [SPACE] [D]elete <->"y@P1E8P::2:" "C$(P)" ":JK(16384):K128330OKK128:49168,0TK8K21K10K11Ģ8P:2:" "C$(P)" ":375YKAIN MENU 49231,0A 34,0::6:11:"MAIN ":34,6::::L 1925^ D$"VERIFY"G$i 216,0 X$"READ":2225: D$"OPEN "G$",L200" A19 D$"READ "G$",R"A "B$:F:G:C$(A)B$:8A:" "B$;:16:"D:"F;:23:"F:"G;:T3F:T4G:R#2" D1500:DG "AT M"M" S7="Z" S0=0 X1 Q0 V0 E0":"ATS11=70"h "ATS20 1=1 2=1":"ATS11=60"v D$"IN#2" D1500:D X$ D$"IN#0":D$"PR#0" QQ1QQ0: GET THE DATE 1980 34,0::6:19:K$:34,6:: M 1:9D1:" "1 34,6:32,2:33,36:35,219 M0h :::"Enter Max Random Delay --> ";RAN: CONFIGURE MODEM 10:10:"Configuring Modem" 14:13:"Version 2.0" Z16 49153,0:49237,0:1148,22:49236,0:49152,0 D$"P ";::"HUNGUP":1 dA721:A:" ";:40:" ":Z i6:"\";:40:"/":22:"/";:40:"\"` nr sXX1400:XX x2:9:D1(X$)::XX1:X(AZ$)X1 }(AZ$,X,1);:XX18:XX :(8);(X$,D,1); D 1:9D1:"+" F250:G35:21956,0 2G$"HCS.INDEX"0 7 SCREEN FORMATTING? <AZ$"!/-\"a AX$"Hack Construction Set //" F2:9:X$:3:12:"By Cyborg" K: P5:10:22) U6:1:40):22:40) Z:6:9::" ";:32:" ": _22:3:"CONNECT CODE WAIT 00 DISK / __________________________  HACKING CONSTRUCTION SET  BY CYBORG 1986 (LIST THIS IN 80 COLS!) (21) Q$"---------------------------------------"2190:D$(4)D$"NOMONCIO"#45 -21                􍭭宮ήîؠ򮮮ĶԴιıÍ栱庱庹亱亰栲庹퍍根庹庹亱亰砍􍭭宮İŠ򮮮ķԶιαÍ栲庰     7&735,24:22:25:X$:35,21:A7 PAUSE MODIFICATION U78:31::"P":`78:31l7KEYIN$7KEYIN$"P"ī22557223578:31:"P":710207 BY CYBORG 11/08/85/2190:D$(4)D$"NOMONCIO"#45 -21C$,(C$)1):511'X$;:C$C$X$:5111&575A'D$C$:C$""L(216,0U)510r?"Dos error!":C$"":552"(21)16368,0/ Z$" Hacking Construction Set ":Y$" by Cyborg ":::Z$:Y$:4::40):1"":D1Q:B$B$((((1)10))):D:C(B$):810G B$(C):C(A)790lF$"*"CC((1)SP)S:B$(C)}Q(B$)810DQ(B$)11 B$"0"B$%D*YY((1)CE)1:ZZ((1)NV)1:10:"Number- Service ("ZZ"):"A$(ZZ):" Carrieode:"M$:T$D$"CLOSE"$2210< MAIN HACK LOOPG216,0[A(M$):B(I$)gY0:V0tCA:FL1 HACKER LOOPS HEREY$B$FL1FL0:765U1CCSU1EC0ECV1025U1ETVET010250F$"**"B$ "K$::"Starting code:"M$:T$-D$"CLOSE"72210@730TX$"OPEN":2225dD$"OPEN"E$uD$"WRITE"E$ :" Hacking Construction Set":Q$:"Name....."J$" "K$:"Number..."A$(1):"Format..."A$:Q$::"Hacking as of "K$::"Starting cX$"R"505vX$(27)240`{T$"Increment:":F$"*"T$T$"random "(S1)"/"(SSP):650F$"**"T$T$"completely random":650T$T$(S)690D$"VERIFY"E$X$"WRIT":2225D$"APPEND"E$D$"WRITE"E$::"Hacking as ofDA(S$)16058IU$(S$,1,A1):Z$(S$,A1,(S$))FNS(U$)1YSSP(Z$)(U$)bX610s]S(F$):SP1^S0550b16:21:"";E$gE$""E$"DATA."J$:16:21:E$l19:" [RETURN] starts [R]edo [ESC]ape ";:X$:X$:19:868 q,2,(I$))):550%(I$)(C$)5256!(I$)0525I&15:21:"";F$j+F$""S1:15:21:"1":6100F$"**"S0:6005(F$,1)"*"605:(F$,1)"*"S$(F$,2,(F$)):F$"*"?F$"*"āA1(S$):X$(S$,A,1):X$"."580@AA550nding :"C$)"*./**/# increment:1"L" Datafile name :DATA."J$_13:21:"";M$M$""Ģ13:21:C$:M$C$:525(M$)(C$)505(M$)0505 14:21:"";I$(I$,1)"C"EC((I$,2,(I$))):550(I$,1)"T"ET((I$er (1):"B$(1)+" Format :"A$7Q(C$)DO0465]D27:B$(D)""460dDoCED1"codes- starting :"C$B$"":N$"":D1Q:B$B$"0":N$N$"0"::N0490D27:A$(D)""485DNVD1 "T#/C#/# ePP1:P9P1325. LOAD OR CREATE<XP:1775JQQ1:180e HACKER BEGINS HERE34,0::6:11:"HACKER":34,6:8:"#"X" ";::" "J$" ";::20);"[ESC][SPC][P][S]":"number- Service (1):"A$(1) " Carri庳亱亰栱庳庲亳亰栱庲퍍栱35,21x"GF63:G40:2195:F111:2195:F141:2195:F159:G50:2195:D1100:D:2195:F141:G60:2195:F159:G255:2195"LD$"OPEN "E$"QD$"APPEND"E$"VD$"WRITE"E$"[U1ĺ"Verified":1125"`B$"eD$"CLOSE"#j35,0:22:25::"DISK":22: !D$"IN#0"!$D$"PR#0">!)35,0:22:1:"CONNECT":35,21L!.D$"PR#2"a!/X$:X$"3"1074k!01071y!2D$"IN#2"!3:D$"PR#0":D$"IN#0":16368,0!=U1VV1"B35,0:22::"CONNECT"::22:31:"HUNGUP":22:25:"WRIT"::22:10:"CODE"::N"E$:D$"APPEND"E$:D$"WRITE"E$:"Ending code:"C$:"Dialed:"Y" Found:"V" Ratio "R$:D$"CLOSE" F103:G100:2195:F63:G50:2195:2195:F84:G90:2195:F63:G60:2195:D1300:D F103:G80:2195:D122:D:F111:2195 2210:240 CONNECT19:X$::1025YX$(13)ĺD$"IN#0":D$"PR#0":U0:35,0:22:31:"HUNGUP":35,21:1020b96035,24:22:16::"WAIT":35,21::750D11000:D::35,24:22:16::"WAIT":35,21::19::C$B$:T1T1Y:T2T2V:1860] X$"WRIT":2225:D$"OPE):D$"IN#0":D$"PR#0":X$::35,24:22:31:"HUNGUP":35,21:19:1020X$"P"ĺD$"IN#0":D$"PR#0":U0:35,0:22:31:"PAUSED":35,21:2235X$"2"1080X$"1"1050X$(27)K(16336):D$"IN#0":D$"PR#0":35,24:22:31:"HUNGUP":35,21:HACKER RESULTS716368,0:20:15:X$:16368,0cX$"S"CX1:MM1:K(16336):M1M0X$"G"K(16336):GGGG1:GG1GG0X$"G"ĭGG1Ĺ49232,0:49239,0:49237,0X$"G"ĭGG0Ĺ49236,0:49233,0EX$" "Ĺ16368,0:K(16336:"N"X$::D170:DWX$"T"X$(A$,I1,1)::12:20I:"T"X$::19:2:O$B$:2045X$"D"X$(A$,I1,1)::12:20I:"D"X$::DL(X$):208012:21:A$:I35,24:22:16:"WAIT":35,2120:D$"PR#2":D$"IN#2":D1100:D:16368,0D$"PR#0"OD1300:D:35,24:22:31::"HUNGUP":35,21:20:D11300:DkI1(A$):X$(A$,I,1)X$"S"O$A$(ZZ):12:20I::"S"::10:21:2045X$"C"O$B$(YY):12:20I::"C"::11:21:2045X$"N"X$(A$,I1,1)::12:20I)" "WD$"PR#2"5\H$"":I1(A$):X$(A$,I,1)SaX$"S"H$H$A$(ZZ):890qfX$"C"H$H$B$(YY):890kX$"D"āW1((A$,I1,1))2:H$H$","::890pX$"T"H$H$B$:890uX$"N"H$H$(A$,I1,1)zI"AT "T$" DT "H$ 庸亱亰栰庸r ("YY"):"B$(YY)"/18:"|"Y$"|"^419:"|"B$"| D:"Y" F:";::V;::T3Y:T4V:2150:" "R$z9S0F$"*"N$(CS)>(N$)QāI1Q1:N$"0"N$:C20:"|"N$"|"HL1DL((1)RAN)1:2080MU1YY1RT$"":CX1CX0:T$" M"(M􍭭宮򮮮ĸԶıαÍ栰庰庲퍍栱庲퍍栱庲康亱亰  8:" ";::" "0D$"CLOSE"'0221000240N0READ PARMS FROM INDEX b0X$"LOAD":2225j0180D$"OPEN"G$",L200"0D$"READ"G$",R"P0J$0 T1:T20A$(1)0B$(1)0A$0!Z:H:L0&N:D27:A$(D):1+O:D27:B$(D$"T"1710/AE/C$"":D1Q1:C$C$"0":D:C$C$"1":T10:T20W/E0:PX:1860`/240z/ DELETE FROM INDEX/X$"WRIT":2225/X$(P)/D$"OPEN"G$",L200"/D$"READ"G$",R"P:B$/D$"WRITE"G$",R"X$0"EMPTY":"0":"0":D1181ĺ"ON "D.wD13:16D:7:"";B$(D1):16D:22:D4")"B$(D4):Di.|D46:16D3:24:"";B$(D1):o.. EXIT CONFIG/EDIT.T:2:" ":32,2.E11715.A1(A$):X$(A$,A,1).X$"T"Q((A$,A1,1)).X$"T"Q0Q10 /XF"-6L1ĺ"ON "-;+-@NN1:N1N07-E11:34M-JN0ĺ"OFF":1630]-ON1ĺ"ON "-TD13:11D:7:"";A$(D1):11D:22:D4")"A$(D4):-YD46:11D3:24:"";A$(D1):-^-cOO1:O1O0-h16:34-mO0ĺ"OFF":1665.rOK11PP1:P1P5:32,2:1170>,K21K10PP1:P4P4[,K21K8K10K111470k,K321490,P1550,1575,1600,1635, 1470,HH1:H1H0,8:34,H0ĺ"OFF",H1ĺ"ON ",",'LL1:L1L0,,9:34-1L0ĺ"OF(6):" 4)"B$(4);:20:"7)"B$(7):P1:32,07+P1T8D+P2T9R+P3T11`+P4T16s+T:2::">":+K(16384):K1281495+KK128:16368,0+K27ĢT:2:" ":32,2:250+K131675+K8K21K10K11ĢT:2:" " ,K8"ON ]"*N0ĺv*" 2)";A$(2);:20:"5)";A$(5):" 3)";A$(3);:20:"6)";A$(6):" 4)";A$(4);:20:"7)"A$(7)|**" Multi-carrier................[OFF]";:O1ĺ"ON ]"*O0ĺ*+" 2)"B$(2);:20:"5)";B$(5):" 3)"B$(3);:20:"6)"B$0)n)s18:34:"";Z.)x18:33:"["Z"]"4)}:)y):" Auto verify..................[OFF]";:H1ĺ"ON ]")H0ĺ)" RND dial delay...............[OFF]";:L1ĺ"ON ]")L0ĺ *:" Multi-port...................[OFF]";:N11290"(7X$"S"F0A$A$"S":F13(<X$"S"1385Q(AX$"C"G0A$A$"C":G1b(FX$"C"1385x(KX$"D"A$A$"D"(PX$"T"X30A$A$"T":X31(UX$(13)1390(ZX$"N"A$A$"N"(_X$:X$"0"X$"9"ī1370(dA$A$X$)i13:11:A$:12913303'X$(" "A$,1):B$(" "A$,(" "A$)1,1)f'X$"0"X$"9"A$(A$,(A$)2):B$"T"X30'X$"0"X$"9"1330'#(A$)1A$"":X$"S"F0:1325'(A$(A$,(A$)1):X$"S"F0'-X$"C"G0(2:13:3:868:13:3:"FORMAT: "A$:0,1280,1285,1290,1395&1190@&8:12:"";J$:(J$)101270F&^&10:19:"";A$(1):v&11:19:"";B$(1):& 13:10:X$:X$"S"X$"C"X$"T"X$"D"X$(13)X$"N"X$(127)1290&X$(127)1335'(A$)2A$"":F0:G0:X30:>": %K(16384):K1281220R%16368,0:KK128:K27ĢT:2:" ":32,2:250b%K13ī1675%K8K21K10K11ĢT:2:" "%K8K11PP1:P1P1%K21K10PP1:P5Ĺ32,2:1410%K8K21K10K111190%K321220&P127"Carrier number :"B$(1):13:"FORMAT: "A$:w$"S)ervice C)arrier N)umber":"D)elay T)ry code [RET] done"$18:"Seconds to wait for carrier ["Z"]":32,0$P1T8$P2T10$P3T11$P4T13$P5T18%T:2::"10:"CODE"::35,21&#oU1U0:11453#tH1U1=#y1020S#~ CREATE MODULE[#P1#34,0::6:11:"CONFIG":34,6:#J$"":A$"SD4T6C":Z16:H0:L0:N0:O0:D17:B$(D)"":A$(D)"":#,$8:"#"X" Name :"J$::"Service number :"A$(1):栱康庶亱亰栱庶庴亳亰栱根庹庸亱亰$ Q(C$)O04653D27:B$(D)""460:DECED1c"codes- starting :"C$B$"":N$"":D1Q:B$B$"0":N$N$"0"::N0490D27:A$(D)""485DNVD1"T#/C#/# ending :"C$"*./**/# increment:1"ATEXP:1775 QQ1:180; HACKER BEGINS HERE`34,0::6:11:"HACKER":34,6:f8:"#"X" ";::" "J$" ";::20);"[ESC][SPC][P][S]":"number- Service (1):"A$(1)" Carrier (1):"B$(1)" Format :"A"EMPTY"XP:2025ncK27Ĺ16298,0:16302,0:I330:16304,0:J11:K(16336)::16303,0::::2130hK13C$(P)"EMPTY"ī395mK13XP:1150r330wK8K11PP1:P1P9|K21K10PP1:P9P1325 LOAD OR CRE2106 MAIN SELECTORG;19:" [RET] [ESC] [SPACE] [D]elete <->"O@P1lE8P::2:" "C$(P)" ":JK(16384):K128330OKK128:49168,0TK8K21K10K11Ģ8P:2:" "C$(P)" ":375YK("D")C$(P)"EMPTY"1725^K32C$(P)"MAIN ":34,6::::" 19254 D$"VERIFY"G$? 216,0U X$"READ":2225:m D$"OPEN "G$",L200"x A19 D$"READ "G$",R"A "B$:F:G:C$(A)B$:8A:" "B$;:16:"D:"F;:23:"F:"G;:T3F:T4G:2150:30:R$ 'A ,D$"CLOSE"12 S0=0 X1 Q0 V0 E0") "AT&D1":"ATS2=+"> "ATS20 1=1 2=1"L D$"IN#2"\ D1500:Dd X$| D$"IN#0":D$"PR#0" QQ1QQ0: GET THE DATE 1980 34,0::6:19:K$:34,6:: MAIN MENU 49231,0 34,0::6:11:􍭭宮Ԡ򮮮ĹԴıαÍ栶庰7&735,24:22:25:X$:35,21:A7 PAUSE MODIFICATION U78:31::"P":`78:31l7KEYIN$7KEYIN$"P"ī22557223578:31:"P":710207 BY CYBORG 11/08/85Q2190:D$(4)D$"NOMONCIO"#45 -21"00"-6W$(R$,2,2)"."(R$,4,1)"%":R$W$36J6 SOUND ROUTINES6173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96:D119:X:770D,X:D:60,255F61,G6771:6 DISK OPTION735,24:22:25::"DISK"::35,21WAIT "X$5CD15H:22:16:"WAIT 00"::35,2175MN5R RETURN TO MAINY5W2145o5\D$"RUN HCS BOOT"|5a216,0:5f CALCULATE RATIO5kT30R$"00.0%":21805pT3T4R$"100% ":21805uRT4T3:R0R$"00.0%":21806zR$(R):R$R$(O$):X$(O$,W,1)*4X$"0"X$"9"2065S4 :X$;:D170:D::;(8);X$;:2070j4:X$;::(8);X$;q4Wy4:4  DELAY SUBROUTINE4%35,24:22:16:"WAIT 00"4*D1DL14/W1270:W44X$(D)49(X$)1X$"0"X$5>22:16:"X16$3X3X5PP1:K$K$"/"5312:PX:X$S3X$(27)K$"12/34/56":k3X$"0"X$"9"2005|3K$K$X$:X$3X33 EDIT MODULE334,0::6:11:"EDIT ":34,6:3E1:17753P1:11703 DIALING ROUTINE4W1 2{22102(2 CONFIGURE INDEX<2X$"OPEN":2225G2216,0^2D$"OPEN"G$",L200"i2D192D$"WRITE "G$",R"D2"EMPTY":"0":"0"22D$"CLOSE"2221022752 DATE ROUTINE 2K$"":12:15:"MM/DD/YY"2P143):D 10C$15D$"CLOSE"%1:2210+1?G1DWRITE PARMS TO INDEX[1IX$"SAVE":2225r1ND$"OPEN"G$",L200"1SD$"WRITE"G$",R"P1XJ$:T1:T2:A$(1):B$(1)1]A$1bZ:H:L1gN:D27:A$(D):1lO:D27:B$(D):1qC$2vD$"CLOSE"􍭭宮Ԯؠ򮮮ĸԶÍ栱庰 SE" 2210730*X$"OPEN":2225:D$"OPEN"E$KD$"WRITE"E$:" Hacking Construction Set":Q$:"Name....."J$" "K$:"Number..."A$(1):"Format..."A$:Q$::"Hacking as of "K$::"Starting code:"M$:T$D$"CLOSE"2210ment:":F$"*"T$T$"random "(S1)"/"(SSP):650bF$"**"T$T$"completely random":650qT$T$(S){690D$"VERIFY"E$X$"WRIT":2225D$"APPEND"E$D$"WRITE"E$::"Hacking as of "K$::"Starting code:"M$:T$D$"CLO(S$,A1,(S$))NS(U$)1/SSP(Z$)(U$)8X610I]S(F$):SP1V^S0550ib16:21:"";E$gE$""E$"DATA."J$:16:21:E$l19:" [RETURN] starts [R]edo [ESC]ape ";:X$:X$:19:868qX$"R"505vX$(27)2406{T$"Incre(I$)0525&15:21:"";F$@+F$""S1:15:21:"1":610V0F$"**"S0:600l5(F$,1)"*"605:(F$,1)"*"S$(F$,2,(F$)):F$"*"?F$"*"āA1(S$):X$(S$,A,1):X$"."580@AA550DA(S$)1605IU$(S$,1,A1):Z$"" Datafile name :DATA."J$513:21:"";M$WM$""Ģ13:21:C$:M$C$:525m(M$)(C$)505~(M$)0505 14:21:"";I$(I$,1)"C"EC((I$,2,(I$))):550(I$,1)"T"ET((I$,2,(I$))):550(I$)(C$)525 !庴亱亰根庴庵亱亰栱庵庶亱亰亲亰栲庱퍍根庱퍍栱庱庲亱亰栶庲퍍样庲庸亳亰样􍭭宮ؠ򮮮ĹIJԵıαÍ栱庱  􍭭宮ͱ򮮮ĹԵıαÍ栱庱  亲亰栲庸庳亱亰核庴庶亳􍭭宮̠򮮮ĹԶıαÍ栰庱庴亳亰栱庴퍍栱庱庴亴亰R#2" D1500:DG "AT M"M" S7="Z" S0=0 X1 Q0 V0 E0":"ATS11=70"h "ATS20 1=1 2=1":"ATS11=60"v D$"IN#2" D1500:D X$ D$"IN#0":D$"PR#0" QQ1QQ0: GET THE DATE 1980 34,0::6:19:K$:34,6:: M 1:9D1:" "1 34,6:32,2:33,36:35,219 M0h :::"Enter Max Random Delay --> ";RAN: CONFIGURE MODEM 10:10:"Configuring Modem" 14:13:"Version 2.0" Z16 49153,0:49237,0:1148,22:49236,0:49152,0 D$"P ";::"HUNGUP":1 dA721:A:" ";:40:" ":Z i6:"\";:40:"/":22:"/";:40:"\"` nr sXX1400:XX x2:9:D1(X$)::XX1:X(AZ$)X1 }(AZ$,X,1);:XX18:XX :(8);(X$,D,1); D 1:9D1:"+" F250:G35:21956,0 2G$"HCS.INDEX"0 7 SCREEN FORMATTING? <AZ$"!/-\"a AX$"Hack Construction Set //" F2:9:X$:3:12:"By Cyborg" K: P5:10:22) U6:1:40):22:40) Z:6:9::" ";:32:" ": _22:3:"CONNECT CODE WAIT 00 DISK / __________________________  HACKING CONSTRUCTION SET  BY CYBORG 1986 (LIST THIS IN 80 COLS!) (21) Q$"---------------------------------------"2190:D$(4)D$"NOMONCIO"#45 -21庶庴亳亰栱庴퍍栱庴          !!!!!""" " " " """""""""      ::255:D$"CLOSE":16368,0::"Press [RETURN] to continue ";:X$::D$"PR#0":216,0:10Z$(Z$,2,(Z$))(Z$,1):Y$(Y$,2,(Y$))(Y$,1):1:Z$:Y$:,32,190,222,32,227,223,169,128,133,51,32,106,253,160,0,138,145,131,169,0,200,145,131,169,2,2EAD"F$&768,A$:A$(A$,1):C1205HK(16384):KK128:16368,0iK32K(16384):K12818016368,0:K27ī210K8BB10:B0B0K21BB10:B250B250BA$:160PR1ĺ:::D$"CLOSE":D$"PR#0":216,0:10\truction Set File:"F$:A(X$)79:X$X$" ":A::X$:2:" Use <- -> to control speed [ESC] aborts reading [SPACE] pauses file "::34,2 C1ĺD$"PR#1"::"Hacking Construction Set File:"F$::34,2::B150:D$"OPEN"F$:D$"R5ĉ:: s(768)32İ240' x130> }D$"VERIFY"F$:135n ::"Disk error!":D11000:D:216,0:10 D$"PR#3":210 C0:"Press P for printout or any key to continue ";:X$:::X$"P"C1 X$" Text file viewer Hacking Cons F55) KK8K11PP1:P1PN:50K PK21K10PP1:PNP1:50S U50q ZP1ĉ::D$"RUN HCS.AUX" _P2F$"HCS DOCS":115 dP3ė: iP3ĺ"Filename or [RETURN] to catalog":":";F$:F$""ė:D$"CATALOG"::105 jP4ī500 nPcidental or otherwise, incurred by ":" the use or abuse of this program."h :12:15:"DOS WINDOW": 25P:13:"=>";:26:"<=" 7K(16384):K128İ215:55 <KK128:16368,0:215:K21K8K10K11Ģ5P:13:" ";:26:" ":75 AK13902:40):A511:A:" ";:40:" "::18:40): N$(1)"Run HCS":N$(2)"Read Docs":N$(3)"View Text":N$(4)"Dos Cmd":N$(5)"Exit":N5:A1N:5A:16:N$(A):J P1:20:" The author of this program takes no ":" responsibility for any damages,":" acs z:D$(4):D$"BLOAD PLAYER,A$300":D$"BLOAD MUZAK,A$6000":D$"BLOADHCS TITLE,A$2000":3109:30,0:31,96:768:(21)16368,0/ Z$" Hacking Construction Set ":Y$" by Cyborg ":::Z$:Y$:4::40):1     )" "WD$"PR#2"5\H$"":I1(A$):X$(A$,I,1)SaX$"S"H$H$A$(ZZ):890qfX$"C"H$H$B$(YY):890kX$"D"āW1((A$,I1,1))2:H$H$","::890pX$"T"H$H$B$:890uX$"N"H$H$(A$,I1,1)zI"AT "T$" DT "H$ r ("YY"):"B$(YY)"/18:"|"Y$"|"^419:"|"B$"| D:"Y" F:";::V;::T3Y:T4V:2150:" "R$z9S0F$"*"N$(CS)>(N$)QāI1Q1:N$"0"N$:C20:"|"N$"|"HL1DL((1)RAN)1:2080MU1YY1RT$"":CX1CX0:T$" M"(M"":D1Q:B$B$((((1)10))):D:C(B$):810G B$(C):C(A)790lF$"*"CC((1)SP)S:B$(C)}Q(B$)810DQ(B$)11 B$"0"B$%D*YY((1)CE)1:ZZ((1)NV)1:10:"Number- Service ("ZZ"):"A$(ZZ):" Carrieode:"M$:T$D$"CLOSE"$2210< MAIN HACK LOOPG216,0[A(M$):B(I$)gY0:V0tCA:FL1 HACKER LOOPS HEREY$B$FL1FL0:765U1CCSU1EC0ECV1025U1ETVET010250F$"**"B$ "K$::"Starting code:"M$:T$-D$"CLOSE"72210@730TX$"OPEN":2225dD$"OPEN"E$uD$"WRITE"E$ :" Hacking Construction Set":Q$:"Name....."J$" "K$:"Number..."A$(1):"Format..."A$:Q$::"Hacking as of "K$::"Starting cX$"R"505vX$(27)240`{T$"Increment:":F$"*"T$T$"random "(S1)"/"(SSP):650F$"**"T$T$"completely random":650T$T$(S)690D$"VERIFY"E$X$"WRIT":2225D$"APPEND"E$D$"WRITE"E$::"Hacking as ofDA(S$)16058IU$(S$,1,A1):Z$(S$,A1,(S$))FNS(U$)1YSSP(Z$)(U$)bX610s]S(F$):SP1^S0550b16:21:"";E$gE$""E$"DATA."J$:16:21:E$l19:" [RETURN] starts [R]edo [ESC]ape ";:X$:X$:19:868 q,2,(I$))):550%(I$)(C$)5256!(I$)0525I&15:21:"";F$j+F$""S1:15:21:"1":6100F$"**"S0:6005(F$,1)"*"605:(F$,1)"*"S$(F$,2,(F$)):F$"*"?F$"*"āA1(S$):X$(S$,A,1):X$"."580@AA550nding :"C$)"*./**/# increment:1"L" Datafile name :DATA."J$_13:21:"";M$M$""Ģ13:21:C$:M$C$:525(M$)(C$)505(M$)0505 14:21:"";I$(I$,1)"C"EC((I$,2,(I$))):550(I$,1)"T"ET((I$er (1):"B$(1)+" Format :"A$7Q(C$)DO0465]D27:B$(D)""460dDoCED1"codes- starting :"C$B$"":N$"":D1Q:B$B$"0":N$N$"0"::N0490D27:A$(D)""485DNVD1 "T#/C#/# ePP1:P9P1325. LOAD OR CREATE<XP:1775JQQ1:180e HACKER BEGINS HERE34,0::6:11:"HACKER":34,6:8:"#"X" ";::" "J$" ";::20);"[ESC][SPC][P][S]":"number- Service (1):"A$(1) " Carri("D")C$(P)"EMPTY"1725=^K32C$(P)"EMPTY"XP:2025cK27Ĺ16298,0:16302,0:I330:16304,0:J11:K(16336)::16303,0::::2130hK13C$(P)"EMPTY"ī395mK13XP:1150r330wK8K11PP1:P1P9|K21K10İ2150:30:R$'A#,D$"CLOSE"-12210C6 MAIN SELECTORq;19:" [RET] [ESC] [SPACE] [D]elete <->"y@P1E8P::2:" "C$(P)" ":JK(16384):K128330OKK128:49168,0TK8K21K10K11Ģ8P:2:" "C$(P)" ":375YKЍ􍭭宮ԭ͠򮮮ķԷÍ核庶庳亱亰栱庳庸亱亰AIN MENU 49231,0A 34,0::6:11:"MAIN ":34,6::::L 1925^ D$"VERIFY"G$i 216,0 X$"READ":2225: D$"OPEN "G$",L200" A19 D$"READ "G$",R"A "B$:F:G:C$(A)B$:8A:" "B$;:16:"D:"F;:23:"F:"G;:T3F:T4G:19:X$::1025YX$(13)ĺD$"IN#0":D$"PR#0":U0:35,0:22:31:"HUNGUP":35,21:1020b96035,24:22:16::"WAIT":35,21::750D11000:D::35,24:22:16::"WAIT":35,21::19::C$B$:T1T1Y:T2T2V:1860] X$"WRIT":2225:D$"OPE):D$"IN#0":D$"PR#0":X$::35,24:22:31:"HUNGUP":35,21:19:1020X$"P"ĺD$"IN#0":D$"PR#0":U0:35,0:22:31:"PAUSED":35,21:2235X$"2"1080X$"1"1050X$(27)K(16336):D$"IN#0":D$"PR#0":35,24:22:31:"HUNGUP":35,21:HACKER RESULTS716368,0:20:15:X$:16368,0cX$"S"CX1:MM1:K(16336):M1M0X$"G"K(16336):GGGG1:GG1GG0X$"G"ĭGG1Ĺ49232,0:49239,0:49237,0X$"G"ĭGG0Ĺ49236,0:49233,0EX$" "Ĺ16368,0:K(16336:"N"X$::D170:DWX$"T"X$(A$,I1,1)::12:20I:"T"X$::19:2:O$B$:2045X$"D"X$(A$,I1,1)::12:20I:"D"X$::DL(X$):208012:21:A$:I35,24:22:16:"WAIT":35,2120:D$"PR#2":D$"IN#2":D1100:D:16368,0D$"PR#0"OD1300:D:35,24:22:31::"HUNGUP":35,21:20:D11300:DkI1(A$):X$(A$,I,1)X$"S"O$A$(ZZ):12:20I::"S"::10:21:2045X$"C"O$B$(YY):12:20I::"C"::11:21:2045X$"N"X$(A$,I1,1)::12:20I􍭭宮ح̠򮮮ķԶαÍ栱庱!"  ٍծԍĶԳειδαԠķԶIJÍԍĶԳζδγηεεααδαح̍ķԶαÍٍԮ؍ķıԶαÍήî؍ĸıԴÍӠͮķΰΰԵı!! ! ! ! ! !!1ĺ"ON "D.wD13:16D:7:"";B$(D1):16D:22:D4")"B$(D4):Di.|D46:16D3:24:"";B$(D1):o.. EXIT CONFIG/EDIT.T:2:" ":32,2.E11715.A1(A$):X$(A$,A,1).X$"T"Q((A$,A1,1)).X$"T"Q0Q10 /XF"-6L1ĺ"ON "-;+-@NN1:N1N07-E11:34M-JN0ĺ"OFF":1630]-ON1ĺ"ON "-TD13:11D:7:"";A$(D1):11D:22:D4")"A$(D4):-YD46:11D3:24:"";A$(D1):-^-cOO1:O1O0-h16:34-mO0ĺ"OFF":1665.rOK11PP1:P1P5:32,2:1170>,K21K10PP1:P4P4[,K21K8K10K111470k,K321490,P1550,1575,1600,1635, 1470,HH1:H1H0,8:34,H0ĺ"OFF",H1ĺ"ON ",",'LL1:L1L0,,9:34-1L0ĺ"OF(6):" 4)"B$(4);:20:"7)"B$(7):P1:32,07+P1T8D+P2T9R+P3T11`+P4T16s+T:2::">":+K(16384):K1281495+KK128:16368,0+K27ĢT:2:" ":32,2:250+K131675+K8K21K10K11ĢT:2:" " ,K8"ON ]"*N0ĺv*" 2)";A$(2);:20:"5)";A$(5):" 3)";A$(3);:20:"6)";A$(6):" 4)";A$(4);:20:"7)"A$(7)|**" Multi-carrier................[OFF]";:O1ĺ"ON ]"*O0ĺ*+" 2)"B$(2);:20:"5)";B$(5):" 3)"B$(3);:20:"6)"B$0)n)s18:34:"";Z.)x18:33:"["Z"]"4)}:)y):" Auto verify..................[OFF]";:H1ĺ"ON ]")H0ĺ)" RND dial delay...............[OFF]";:L1ĺ"ON ]")L0ĺ *:" Multi-port...................[OFF]";:N11290"(7X$"S"F0A$A$"S":F13(<X$"S"1385Q(AX$"C"G0A$A$"C":G1b(FX$"C"1385x(KX$"D"A$A$"D"(PX$"T"X30A$A$"T":X31(UX$(13)1390(ZX$"N"A$A$"N"(_X$:X$"0"X$"9"ī1370(dA$A$X$)i13:11:A$:12913303'X$(" "A$,1):B$(" "A$,(" "A$)1,1)f'X$"0"X$"9"A$(A$,(A$)2):B$"T"X30'X$"0"X$"9"1330'#(A$)1A$"":X$"S"F0:1325'(A$(A$,(A$)1):X$"S"F0'-X$"C"G0(2:13:3:868:13:3:"FORMAT: "A$:0,1280,1285,1290,1395&1190@&8:12:"";J$:(J$)101270F&^&10:19:"";A$(1):v&11:19:"";B$(1):& 13:10:X$:X$"S"X$"C"X$"T"X$"D"X$(13)X$"N"X$(127)1290&X$(127)1335'(A$)2A$"":F0:G0:X30:>": %K(16384):K1281220R%16368,0:KK128:K27ĢT:2:" ":32,2:250b%K13ī1675%K8K21K10K11ĢT:2:" "%K8K11PP1:P1P1%K21K10PP1:P5Ĺ32,2:1410%K8K21K10K111190%K321220&P127"Carrier number :"B$(1):13:"FORMAT: "A$:w$"S)ervice C)arrier N)umber":"D)elay T)ry code [RET] done"$18:"Seconds to wait for carrier ["Z"]":32,0$P1T8$P2T10$P3T11$P4T13$P5T18%T:2::"10:"CODE"::35,21&#oU1U0:11453#tH1U1=#y1020S#~ CREATE MODULE[#P1#34,0::6:11:"CONFIG":34,6:#J$"":A$"SD4T6C":Z16:H0:L0:N0:O0:D17:B$(D)"":A$(D)"":#,$8:"#"X" Name :"J$::"Service number :"A$(1):35,21x"GF63:G40:2195:F111:2195:F141:2195:F159:G50:2195:D1100:D:2195:F141:G60:2195:F159:G255:2195"LD$"OPEN "E$"QD$"APPEND"E$"VD$"WRITE"E$"[U1ĺ"Verified":1125"`B$"eD$"CLOSE"#j35,0:22:25::"DISK":22:庹亶亰栱庹퍱庱亲亱栱庱퍷 !D$"IN#0"!$D$"PR#0">!)35,0:22:1:"CONNECT":35,21L!.D$"PR#2"a!/X$:X$"3"1074k!01071y!2D$"IN#2"!3:D$"PR#0":D$"IN#0":16368,0!=U1VV1"B35,0:22::"CONNECT"::22:31:"HUNGUP":22:25:"WRIT"::22:10:"CODE"::N"E$:D$"APPEND"E$:D$"WRITE"E$:"Ending code:"C$:"Dialed:"Y" Found:"V" Ratio "R$:D$"CLOSE" F103:G100:2195:F63:G50:2195:2195:F84:G90:2195:F63:G60:2195:D1300:D F103:G80:2195:D122:D:F111:2195 2210:240 CONNECT