21000+MK1:N11:A%1:CL4:A%12>LO0:TB0:MD0VVT2:RT2:BT3:CT2yPF$"522":MD0:TP9999:IK9905(21)D$(13)(4)IT20:SC15 F$"FOUND."PF$ D$"BLOAD ZS.DIAL,A$5300":D$"BLOAD ZS.EARS"SP1:CL4b SPĺ"SETTING UP SERIAL PORT...":SP:(1)"10B":"ZEROSCAN PORT DUMP READY (SLOT #"SP")":(10)::0l 1002 :::" ZEROSCAN 2.1L - PREFIX BUSTER - AUG-93 "  2:1:"PREFIX:"PF$;:17:"FOUND: "F;:32:"MARK:"MK; 34,3: !:::" MAIN MENU ":' ":"[S] BEGIN THE SCAN":C #"[C] CONFIGURE SCAN":_ $"[V] VIEW SCAN FILE":z %"[Q] QUIT ZEROSCAN": &"[K] SKIP TO # IN SERIES": 'F$"FOUND."PF$ (::"MAKE YOUR SELECTION NOW: "; )A$ *A$"C"İ400:32 +A$"V"İ700:32 ,A$"Q"ĉ:, -A$"S"İ200:32A .A$"K"İ900:32I 141V d DIAL #b i255,VL nI1(CN$):N((CN$,I,1)) x254,N:21248 r SPĊSP:"-- Triggers: Voice: "VT" Busy: "BT" Ring: "RT" Click: "CT" Timeout: "IT:(10):"-- Prefix: "PF$" Scannned: "TD" Remaining: "10000MK" Mark: "MK:(10):"-- Scan Results Follow":(10):0 ::::" SCANNING "::3000:2:1:868:22:868:7202 2:1:"BUSY:"FB;:10:"TONES:"FT;:21:"OTHER:"F;:32:"MARK:"MK0 23:1:"SCANNED:"TD;:26:"REMAINING:"10000MK" ";:a P(MK(10000))100:P(P):23:17:"("P"%) "v 38140,2:255,VL 10:"[ ] PICKING UP FONE" 12:"[ ] DIALING" 14:"[ ] WAITING" 16:"[ ] HANGING UP"24:1:"RING";:10:"BUSY";:22:"VOICE";:35:"CLICK";& START>VL216: 2 IS SLOTW10::2:" "::BF0m PICKUP FONE 7100:KB(16384):KB128İ4000255,VL:49281VL,131:49282VL,2:Z0:N1225:24737:(768)0ZZ1+N:Z20Z0:49282VL,0:49281VL,0:N1500(LD1)::LDLD1:LD515008Z0220J10::2:" "X DIAL l12:2::" ":22:12:"-=>";CN$:10012:2:" " WAIT 14:2::" "::V0:R0:B0:Z0:C014:22:"TIME:"WTITSC0114:28:(WTSC)" "*24737:N(768):ZZNh(Z0)(N0)İ1000: NOISE HAS STOPPED; LET'S ANALYZE IT.wVVT270BBTBF1:FBFB1:NT$"Busy":FF1:270RRT270CCT270KB(16384):KB127İ4000 WT:250014:2:" " HANGUP &16:2::" ":B49282VL,0:49281VL,0QX1500:g16:2:" ":7200TDTD1:MKMK1:18:1SPĊSP:"S"BF" "CN$" "NT$:(10):0:18:1:868BFBF0:200016368,0:NT$""14:33201=!1:18:SPĊSP:"-- Scanning Complete":(10):0:1:18:868:1002h"(7)"SCANNING COMPLETE."(7);" ";:I$p32 CONFIGURE:::" CONFIGURE ":"PREFIX TO SCAN .............. ";PF$"TIMEOUT ...................... ";IT1"RING TIMEOUT ................. ";RT7a"BUSY TIMEOUT ................. ";BTg"VOICE TIMEOUT ................ ";VT"CLICK TIMEOUT ................ ";CT:"CORRECT? ";I$:I$"Y"ı4105000: SKIP TO MARK3:::" SKIP "::KN10:N20:N30:N40c:"ENTER MARK:";MKqI1MK1N1N11:N110N10:N2N21:N210N20:N3N31:N310N30:N4N41:N410ĺ"THAT'S THE END, LAMER."CN$PF$(N1)(N2)(N3)(N4)CN(CN$)/"CN="CN" ";:I$:= CHECKERS21:1:"Z="Z" ";24:1:"RING";:10:"BUSY";:22:"VOICE";:35:"CLICK";Z45NT$NT$"tone ":FTFT1:1050Z8RR1:24:1::"R";:B0:NT$NT$"ring ":1050)Z7Z8BB1:24:10::"B";:NT$NT$"busy ":1050eZ2VV1:NT$NT$"voice ":24:22::"V";::B0:105024:35::"C";:CC1:NT$NT$"click ":B01:22:868:HT20((NT$)2):1:HT0HT40ĖHT (NT$)37ĺNT$;$Z0:1:18::" LOST DIALTONE ";::(7)(7)(7)c1:19:SPĊSP:"-- Lost Dialtone":(10):0:1002:1:19:8681:20:"C)ONTINUE SCAN Q)UIT TO MAIN ";:I$I$"C"Ė1:18:868:1:20:868:202I$"Q"321502 MARK #1002SPī20186:25::" FOUND ":)D$"OPEN "F$JD$"APPEND "F$:D$"WRITE "F$dCN$" "NT$:D$"CLOSE"6:25::" ":NT$""FF1: LOOK AT THE DATA RETURNED, TRY TO DETERMINE THE CONTENT + WE LOOK FOR ABNORMAL STUFF, LIKE MORE THAN 2 BUSYS REPORTED, OR VOICE THEN BUSY, ETC4 BF0V BUSY, RING, AND VOICE? NBL.w (B1)(V1)(R1)BF0: WELL, IT PASSED. BF1: SHUFFLE: CALL HERE TO RETURN "CN" MD3050" N1N11:N110N10:N2N21:N210N20:N3N31:N310N30:N4N41:N410ī289F CN$PF$(N1)(N2)(N3)(N4)T CN(CN$)Z  MANUAL SELECTION OF NUMBERS; INC 'EM IKIK1:IKTP289 IK$(IK) (IK$)4IK$"0"IK$:3062 CN$PF$IK$:CN(CN$) 16368,0:KB155ġ:49282VL,0:49281VL,0:289@KB32128ġ:270: SKIP ITXKB("P")1284100^j PAUSE 49282VL,0:49281VL,0: HANG UP21:3:"PAUSED - PRESS RETURN TO CONTINUE ";:I$I$(13)Ģ21:1:868::2024110::::" VIEW SCAN FILE ":0"FILENAME: ";FI$>FI$""ıI5020cD$"VERIFY "FI$:5030216,0:"FILE NOT FOUND.":5005D$"OPEN "FI$:D$"READ "FI$5060"";A$:"-> "A$LNLN1:LN19LN0:" [PAUSE]";:16384,128:16368,0: 5045C216,0:D$"CLOSE":::"END OF FILE ";:"";I$:32OXCL0ı_Y1002:1:4}]D$"IN#"CL:CL$:D$"IN#0"^1:5:868bC1((CL$,12,2))cC2((CL$,15,2))eC3((CL$,18,2))hC4(C16060)(C260)C3lTMC4: GET START TIME 7000"S9TM(:.K  GET END TIME AND CALC v!7000:S8TM:SC%(S8S9):A%(SC%A%)2"S8TM%:*20:6:"DURATION: "SC%,20:7:"AVERAGE: "A%/S8(10000MK)A%4TH%S86060;20:8:"HOURS: "TH%H%":"TS%HM