ԽҠƠӍҠƠҍɽΨɤԬèĤɤɬ̴ɍŠ΍̭̭̭̠šŠʍңڤ϶ĤңѤҤĤң˨εĤңڤĤң٠΢Žϱōϵ´Ӡ٠ٮĤңڤĤң̍νοĤңڤĤңϽҤΨèεϽϫϼεź¸³ĠŠҢŽϲź̍ĤҠƠӍҠƠҍɽΨɤԬèĤɤɬ̴ɍŠȍĠĠ΍ĤҤѤҤڤҤҤź±ȍԠĢҤĤңڤĤң¹Ӡ٠ٮƵԨӯԬ̴Ϸɽɤɤ٤ʩɍԬ̴ñ̴óԽˠȍŠȬĠȍˠĠȍˠ΍ŠάĠ΍ˠĠ΍ĠĠȍ̴óԬŠ̴ñνԬ̴΍ĤҤڤ     NOTRYNO1:TRYNO45197@J:8:3:"INVALID TELEPHONE NUMBER"[KPAUSE12000:PAUSE:sLD$"PR#2":Z$:6000MD$"PR#2"NQ$NUMBER$OD$"PR#0"Q(1658)1275210RD$"PR#2":Z$SD$"PR#0"T"TRY AGAIN"UPAUSE11000:PAUSE,162 - `:D$"PR#"MS:(26):D$"PR#0"W j:" <<< RETURNNING TO MENU >>>"q (4)"RUN HAYES MENU" LAST UPDATED 12/80, HAYES MICROCOMPUTER PRODUCTS,INC.A 1656MSLOT,128821/ 2040MSLOT,21G "1625016MSLOT,21M ,\ 6LP11000z @(1625016MSLOT)2360 JX(1624916MSLOT) TLP ^(26):100 hD$;"PR#"MSLOT rD$;"IN#";MSLOT |"CONNECTION ESTABLISHED" 1912MSLOT nMSLOT3# xSTT1625116MSLOT/ R0:N3R "WAITING FOR RING # ";N:958` W11300t (STT)128180 ::130 RR1 8:"RING # "R (STT)128200 RN230 150 10:"WAITING FOR CARRIER" D$;"PR#";MSLOT   D$(4)!D$"IN#0"/(D$"PR#0"_2::"THIS PROGRAM WILL WAIT FOR THE PHONE"<"TO RING A SET NUMBER OF RINGS BEFORE"F"ANSWERING AND SENDING THE ANSWER CARRIER"P"CONTINUE? N"(8);ZAN$:AN$:AN$"Y"60000d:60000   ,162 5 `:" <<< RETURNNING TO MENU >>>"O (4)"RUN HAYES MENU"h LAST UPDATED 12/80, HAYES MICROCOMPUTER PRODUCTS,INC. 1656MSLOT,128821/ 2040MSLOT,21G "1625016MSLOT,21M ,\ 6LP11000z @(1625016MSLOT)2360 JX(1624916MSLOT) TLP ^(26):100 hD$;"PR#"MSLOT rD$;"IN#";MSLOT |"CONNECTION ESTABLISHED" 1912MSLOT nMSLOT3# xSTT1625116MSLOT/ R0:N3R "WAITING FOR RING # ";N:958` W11300t (STT)128180 ::130 RR1 8:"RING # "R (STT)128200 RN230 150 10:"WAITING FOR CARRIER" D$;"PR#";MSLOT   D$(4)!D$"IN#0"/(D$"PR#0"_2::"THIS PROGRAM WILL WAIT FOR THE PHONE"<"TO RING A SET NUMBER OF RINGS BEFORE"F"ANSWERING AND SENDING THE ANSWER CARRIER"P"CONTINUE? N"(8);ZAN$:AN$:AN$"Y"60000d:60000   1912SLOT,138:Z$:1LAST UPDATED 12/80XHAYES MICROCOMPUTER PRODUCTS,INC.KDJ"D$"CLOSE"!D$"MON I"8D$"EXEC MODIFYDJ"> \D$(4):Q$(17):Z$(26)r(7)::::12:"INCORRECT PASSWORD":LGIN1ĺD$"PR#2":Z$D$"PR#0"2TRYNO0<NUMBER$"132234"GH(A$)ĭ(A$)275050ITRY,162 - `:D$"PR#"MS:(26):D$"PR#0"W j:" <<< RETURNNING TO MENU >>>"q (4)"RUN HAYES MENU" LAST UPDATED 12/80, HAYES MICROCOMPUTER PRODUCTS,INC.A D$"IN#0":D$"PR#0" <:> "RETURN TO MENU? Y"(8);Y AN$:AN$:AN$"N"800 `:" <<< RETURNNING TO MENU >>>" (4)"RUN HAYES MENU" LAST UPDATED 12/80, HAYES MICROCOMPUTER PRODUCTS,INC.S:200 %1008 %:" <<< RETURNNING TO MENU >>>"P H&D$"RUN HAYES MENU"h LAST UPDATED 11/80 HAYES MICROCOMPUTER PRODUCTS, INC.2100 tD$;"CLOSE ";F$4 "FILE SAVED ON DISK."S <300::1912MSLOT,12882[ F$e 9300s (#100:200 #"ERROR NUMBER ";(222) #"AT LINE ";(218)(219)256 T$::"RETURN TO MENU? N"(8); $AN$:AN$:AN$"Y"1500 %400:(26)` 200:300! b A$:A$CR$2402. j I$(L)""6 y A$G A$CR$2575P A$;c I$(L)I$(L)A$m 2425s  ( I$(L)OK$2900 LL1 2410 T 100 D$;"WRITE ";F$  I1L1 I$(I) I H D$ LLLL(ML1)LI1 LLHL200I (1656MSLOT)127ĺ:"*** NO CONNECTION WITH COMPUTER ***":3900e @"LOW LINE NUMBER? ";LL "HIGH LINE NUMBER? ";HL LI10 l"FILE NAME? ";F$ D$;"OPEN ";F$ 4X(0) L1  400:"LIST ";LL;"-";(LL(ML1)LI) .  BASIC PROGRAM EXTRACTOR*90000 F D$(4):CR$(13)RMSLOT3b400::200l21000}dD$;"IN#0":D$;"PR#0":,D$;"IN#";MSLOT:D$;"PR#";MSLOT:ML10LI$(ML10)D$;"NOMONI,O,C"xOK$"OK" 100:  ˍӠӠԈԍ  :200 %1008 %:" <<< RETURNNING TO MENU >>>"P H&D$"RUN HAYES MENU"h LAST UPDATED 11/80 HAYES MICROCOMPUTER PRODUCTS, INC.)ba@E(ΠӠ)]ԠĠ']ӠҠӬîîDUCTS, INC. <<< RETURNING TO MENU >>>":D$"RUN HAYES MENU"8PLAST UPDATED 11/80wHAYES MICROCOMPUTER PRODUCTS,INC.@ OUR THANKS TO ROBERT J. DENISONB FOR APPLESOFT CONVERSION. FOR APPLESOFT CONVERSION.Rz#    ҠΠàŠ  àҠ̠͠ΠҠΠȠǠĠΠ ʠҠ͠Ӡ!ʠȠΠРϠ̠ϠҠ UPDATED 5/814HAYES MICROCOMPUTER PRODUCTS,INC.CTOR FORMAT OR IT HAS A BAD SECTOR(S)"V"ON IT. PLEASE RECHECK DISK AND TRY AGAIN"^:" PRESS ANY KEY TO CONTINUE"" PRESS ESC TO ABORT"16384,128K$((16384))16368,0K$(155)Ā40 LAST360WI0I$I$SY$(J):I9ST,2:DA,17:49666:DC1PDA,19:49666:DC3rST49318:ADDR OF ACIA STATUSDA1912:ADDR OF CHAR"I1(I$):ST,2:DA,((I$,I,1)):49666:I`j8t"EITHER THE DOW JONES DISK IN NOT IN 16"&~"SED$"MON I"!D$"EXEC MODIFYDJ"' >DA,19:49666:DC3[ST,2:DA,17:49666:DC1{IN1ĵST,2:DA,19:49666:D$(4):Z$(26):D$"PR#2"Z$D$"PR#0":9:"PRESS ANY KEY...";:A$ 5(S5)SĵST,2:DA,17:49666:7X"BLOAD OLD COM22.OBJ",b"POKE 835,182"@l"POKE 844,183"bv"BSAVE COM22.OBJ,A$300,L$B1"x"LOCK COM22.OBJ""NOMON I,O,C""CALL-198:CALL-198:CALL-198""?"QU$" ALL DONE!"QU$"DELETE MODIFYDJ"D$"CLOSE" ACIA STATUS"/ "5720DA=1912:REMADDR OF CHAR"""5780FORI=1TOLEN(I$):WAITST,2:POKEDA,ASC(MID$(I$,I,1)):CALL"49154256SL":NEXTI"&"SAVE LOGIN"0SL2650:"UNLOCK COM22.OBJ"D"RENAME COM22.OBJ,OLD COM22.OBJ"N"LOCK OLD COM22.OBJ""QU$""5204?"QU$"TRY AGAIN"QU$H"5205FORPAUSE=1TO1000:NEXTPAUSE"\"5206GOTO5193""5640HTAB4:?"QU$"PRESS ANY KEY..."QU$";:GETA$""5644?""5645?D$"QU$"PR#"SL;QU$"5646?Z$:?D$"QU$"PR#0"QU$ "5710ST="4928616SL":REMADDR OF 5FORPAUSE=1TO2000:NEXTPAUSE:NORMAL"O"5196?D$"QU$"PR#"SL;QU$":?Z$:GOTO6000"l"5197?D$"QU$"PR#"SL;QU$"5198?Q$NUMBER$""5199?D$"QU$"PR#0"QU$"5201IFPEEK("1656SL")>127THEN5210""5202?D$"QU$"PR#"SL;QU$":?Z$""5203?D$"QU$"PR#0U$":?Z$"#J"5143?D$"QU$"PR#0"QU$6T"5170TRYNO=0"S^"5180NUMBER$="QU$NM$QU$`h"5191?"r"5192IFLEN(A$)THENIFASC(A$)=27THEN5050"|"5193TRYNO=TRYNO+1:IFTRYNO<4THEN5197""5194HOME:VTAB8:HTAB3:?"QU$"INVALID TELEPHONE NUMBER"QU$#"519MID$(I$,I,1)):CALL"49154256SL":NEXTI"9 "SAVE FETCH"O "LOAD OLD LOGIN"} ""5025D$=CHR$(4):Q$=CHR$(17):Z$=CHR$(26)" ,"5140?CHR$(7):HOME:?:?:HTAB12:FLASH" 6"5141?"QU$"INCORRECT PASSWORD"QU$": NORMAL"@"5142IFLGIN=-1THEN?D$"QU$"PR#"SL;QNI$=I$+SY$(J):NEXTI"L "7300WAITST,2:POKEDA,17:CALL"49154256SL":REMDC1"{ "7380POKEDA,19:CALL"49154256SL":REMDC3" "7900ST="4928616SL":REMADDR OF ACIA STATUS" "7910DA=1912:REMADDR OF CHAR"' "7970FORI=1TOLEN(I$):WAITST,2:POKEDA,ASC(! "7145D$=CHR$(4):Z$=CHR$(26)"@ "7150?:?D$"QU$"PR#"SL;QU$O "7155?Z$"j "7156?D$"QU$"PR#0"QU$ "7160?:HTAB9:?"QU$"PRESS ANY KEY..."QU$";:GETA$" "7200IF5*INT(S/5)<>STHENWAITST,2:POKEDA,17:CALL"49154256SL":GOTO7360" "7255IFI=0THE"UNLOCK LOGIN", Z"RENAME LOGIN,OLD LOGIN"B d"LOCK OLD LOGIN"X n"LOAD OLD FETCH" x"6590POKEDA,19:CALL"49154256SL":REMDC3" "6910WAITST,2:POKE DA,17:CALL"49154256SL":REMDC1" "7120IFIN=1THENWAITST,2:POKEDA,19:CALL"49154256SL":RUN"2 ::"ENTER SLOT NUMBER OF MICROMODEM II?";SLo :"ENTER YOUR LOCAL DOW JONES TELEPHONE NUMBER?";NM$ #::"ONE MOMENT...." (D$"OPEN MODIFYDJ"D$"WRITE MODIFYDJ" 2"UNLOCK FETCH" <"RENAME FETCH,OLD FETCH" F"LOCK OLD FETCH" P5 PROGRAM DJ CONVERTER"> D$(13)(4):QU$(34)F10" INSERT A COPY OF YOUR DOW JONES":" PORTFOLIO EVALUATOR"::" PRESS ANY KEY TO CONTIUE":" PRESS ESC TO ABORT"AN$:AN$(27)Ā 60000     4):Z$(26):D$"PR#2"#Z$1D$"PR#0"S:9:"PRESS ANY KEY...";:A$~ 5(S5)SĵST,2:DA,17:49666:7360WI0I$I$SY$(J):IST,2:DA,17:49666:DC1DA,19:49666:DC3ST49318:ADDR OF ACIA STATUSDA1912:ADDR ANY KEY...";:A$ $ D$"PR#2"6Z$:D$"PR#0"XNST49318:ADDR OF ACIA STATUSrXDA1912:ADDR OF CHARI1(I$):ST,2:DA,((I$,I,1)):49666:IDA,19:49666:DC3ST,2:DA,17:49666:DC1IN1ĵST,2:DA,19:49666: D$((J:8:3:"INVALID TELEPHONE NUMBER"CKPAUSE12000:PAUSE:[LD$"PR#2":Z$:6000iMD$"PR#2"xNQ$NUMBER$OD$"PR#0"Q(1658)1275210RD$"PR#2":Z$SD$"PR#0"T"TRY AGAIN"UPAUSE11000:PAUSEV51934:"PRESS D$"MON I"!D$"EXEC MODIFYDJ"' ED$(4):Q$(17):Z$(26)[(7)::::12:w"INCORRECT PASSWORD":LGIN1ĺD$"PR#2":Z$D$"PR#0"2TRYNO0<NUMBER$"12345"GH(A$)ĭ(A$)275050ITRYNOTRYNO1:TRYNO45197X"BLOAD OLD COM22.OBJ",b"POKE 835,182"@l"POKE 844,183"bv"BSAVE COM22.OBJ,A$300,L$B1"x"LOCK COM22.OBJ""NOMON I,O,C""CALL-198:CALL-198:CALL-198""?"QU$" ALL DONE!"QU$"DELETE MODIFYDJ"D$"CLOSE" ACIA STATUS"/ "5720DA=1912:REMADDR OF CHAR"""5780FORI=1TOLEN(I$):WAITST,2:POKEDA,ASC(MID$(I$,I,1)):CALL"49154256SL":NEXTI"&"SAVE LOGIN"0SL2650:"UNLOCK COM22.OBJ"D"RENAME COM22.OBJ,OLD COM22.OBJ"N"LOCK OLD COM22.OBJ""QU$""5204?"QU$"TRY AGAIN"QU$H"5205FORPAUSE=1TO1000:NEXTPAUSE"\"5206GOTO5193""5640HTAB4:?"QU$"PRESS ANY KEY..."QU$";:GETA$""5644?""5645?D$"QU$"PR#"SL;QU$"5646?Z$:?D$"QU$"PR#0"QU$ "5710ST="4928616SL":REMADDR OF 5FORPAUSE=1TO2000:NEXTPAUSE:NORMAL"O"5196?D$"QU$"PR#"SL;QU$":?Z$:GOTO6000"l"5197?D$"QU$"PR#"SL;QU$"5198?Q$NUMBER$""5199?D$"QU$"PR#0"QU$"5201IFPEEK("1656SL")>127THEN5210""5202?D$"QU$"PR#"SL;QU$":?Z$""5203?D$"QU$"PR#0U$":?Z$"#J"5143?D$"QU$"PR#0"QU$6T"5170TRYNO=0"S^"5180NUMBER$="QU$NM$QU$`h"5191?"r"5192IFLEN(A$)THENIFASC(A$)=27THEN5050"|"5193TRYNO=TRYNO+1:IFTRYNO<4THEN5197""5194HOME:VTAB8:HTAB3:?"QU$"INVALID TELEPHONE NUMBER"QU$#"519MID$(I$,I,1)):CALL"49154256SL":NEXTI"9 "SAVE FETCH"O "LOAD OLD LOGIN"} ""5025D$=CHR$(4):Q$=CHR$(17):Z$=CHR$(26)" ,"5140?CHR$(7):HOME:?:?:HTAB12:FLASH" 6"5141?"QU$"INCORRECT PASSWORD"QU$": NORMAL"@"5142IFLGIN=-1THEN?D$"QU$"PR#"SL;QNI$=I$+SY$(J):NEXTI"L "7300WAITST,2:POKEDA,17:CALL"49154256SL":REMDC1"{ "7380POKEDA,19:CALL"49154256SL":REMDC3" "7900ST="4928616SL":REMADDR OF ACIA STATUS" "7910DA=1912:REMADDR OF CHAR"' "7970FORI=1TOLEN(I$):WAITST,2:POKEDA,ASC(! "7145D$=CHR$(4):Z$=CHR$(26)"@ "7150?:?D$"QU$"PR#"SL;QU$O "7155?Z$"j "7156?D$"QU$"PR#0"QU$ "7160?:HTAB9:?"QU$"PRESS ANY KEY..."QU$";:GETA$" "7200IF5*INT(S/5)<>STHENWAITST,2:POKEDA,17:CALL"49154256SL":GOTO7360" "7255IFI=0THE"UNLOCK LOGIN", Z"RENAME LOGIN,OLD LOGIN"B d"LOCK OLD LOGIN"X n"LOAD OLD FETCH" x"6590POKEDA,19:CALL"49154256SL":REMDC3" "6910WAITST,2:POKE DA,17:CALL"49154256SL":REMDC1" "7120IFIN=1THENWAITST,2:POKEDA,19:CALL"49154256SL":RUN"2 ::"ENTER SLOT NUMBER OF MICROMODEM II?";SLo :"ENTER YOUR LOCAL DOW JONES TELEPHONE NUMBER?";NM$ #::"ONE MOMENT...." (D$"OPEN MODIFYDJ"D$"WRITE MODIFYDJ" 2"UNLOCK FETCH" <"RENAME FETCH,OLD FETCH" F"LOCK OLD FETCH" P PROGRAM DJ CONVERTER"> D$(13)(4):QU$(34)F10" INSERT A COPY OF YOUR DOW JONES":" PORTFOLIO EVALUATOR"::" PRESS ANY KEY TO CONTIUE":" PRESS ESC TO ABORT"AN$:AN$(27)Ā 60000     (RB)&ZZ1:CV:ZX: L): H/ RXCKĺ"FIRMWARE IS OK":33100耟:"FIRMWARE IS DEFECTIVE"::198:198:198LH1500(16384)12733400x::24:" <<< RETURNING TO MENU >>>"܂(4)"RUN HAYES MENU""173: LDA$w769,0: 00+w770,192SLOT>w771,173: LDAQPx774,141: STAbx775,10: 0Ary776,3: 03|y777,96: RTS}A(12289): TURN OFF OTHER ROMSd}X0: CLEAR CHECKSUM}H200203,~L0255~772,L:773,H~768:XX PDLYDLY1 P(ACIA)4ı1 PDLY50020710N Q"NO CARRIER DETECT"(7)X QEE1^ @Q{ 0u FIRMWARE TEST ROUTINE bu: u"STARTING FIRMWARE TEST" u"IT WILL BE DONE AT # 1024": *vCV(37) \vRB778: BYTE READ FROM FIRMWARE v768,CIA,3 N(ACIA)420100/ N::"TESTING ";E NMODE$"ORIGINATE"T NM120240g OMODE$"ANSWER"t OBAUD300 OB120270 $OBAUD110 .OBAUD" BAUD "MODE$" MODE" 8OCV(37) LOMDEM,1544MB OMM1 PM020700 xPBB1 PDLY0SR)410700( )"NO DATA RECEIVED"(7)4 )EE1:E )S12710500Q 0*CHAR,Sf b*16382256SLOTp *SS1{ *10500 \+X(DTA) +XR11400 $,EE1:CV:E;" ERRORS"(7) ,RR1 ,R12810500 P-"TEST COMPLETED" . NMDEM,8 RNAMDEM,8::+ "HARDWARE TEST COMPLETE":E xT;" ERRORS DETECTED"d 30000: NOW TEST FIRMWARE{ '"COMMENCING TEST" 'E0 <(ACIA,3 (ACIA,21 (S0:R0 ) 6)L(ACIA) 7)LMODL((L2)2) 8)LMOD111100 h)(ACIA)210500 |)(EM II"% p"FROM THE MICROCOUPLER":Q s"PRESS RETURN WHEN THIS IS DONE...";I$h DTA1624916SLOT ,ACIADTA1:MDEMDTA2:CHAR1912 T0:M0:B0: X SETUP MODEM FOR TEST 20000  PERFORM TEST 10000 TTE LMB1700 "&" PRESS ESC TO ABORT"616384,128JK$((16384))X16368,0iK$(155)Āq40LAST UPDATED 5/81HAYES MICROCOMPUTER PRODUCTS,INC.OF CHAR7"I1(I$):ST,2:DA,((I$,I,1)):49666:I=`Dj8rt"EITHER THE DOW JONES DISK IN NOT IN 16"~"SECTOR FORMAT OR IT HAS A BAD SECTOR(S)""ON IT. PLEASE RECHECK DISK AND TRY AGAIN":" PRESS ANY KEY TO CONTINUE 1200.t SUBROUTINE TO DELAY 1 MINUTE=0uJ145810DuJJ\v^` ERROR ROUTINEj"ERROR #"(222)" IN LINE "(218)(219)256t1912SLOT,2:Z$~:D$"PR#0":D$"IN#0":216,0:"RETURN TO MENU? Y"(8);2AN$:AN$"N"ĺ:" WAITING 5 MINUTES")"NOW ON MINUTE ";4,L15?^L" ";J30000R:\X6300| FIRST GIVE HIM SOME TIME  FOR AN ANSWERBACK MESSAGEI12000:I"HELLO, MESSAGE FOLLOWS:"LI1LLINE$(I)@Z$ԽҠƠӍҠƠҍɽΨɤԬèĤɤɬ̴ɍŠ΍̭̭̭̠šŠʍңڤ϶ĤңѤҤĤң˨εĤңڤĤң٠΢Žϱōϵ´Ӡ٠ٮĤңڤĤ̍νοĤңڤĤңϽҤΨèεϽϫϼεź¸³ĠŠҢŽϲź̍ĤҠƠӍҠƠҍɽΨɤԬèĤɤɬ̴ɍŠȍĠĠ΍ĤҤѤҤڤҤҤź±ȍԠĢҤĤңڤĤң¹Ӡ٠ٮƵԨӯԬ̴Ϸɽɤɤ٤ʩɍԬ̴ñ̴óԽˠȍŠȬĠȍˠĠȍˠ΍ŠάĠ΍ˠĠ΍ĠĠȍ̴óԬŠ̴ñνԬ̴΍ĤҤڤ     ,19:49666:!D$(4):Z$(26)1:D$"PR#2"9Z$GD$"PR#0"i:9:"PRESS ANY KEY...";:A$ 5(S5)SĵST,2:DA,17:49666:7360WI0I$I$SY$(J):IST,2:DA,17:49666:DC1DA,19:49666:DC3ST49318:ADDR OF ACIA STA5193&4:"PRESS ANY KEY...";:A$, : D$"PR#2"LZ$:D$"PR#0"nNST49318:ADDR OF ACIA STATUSXDA1912:ADDR OF CHARI1(I$):ST,2:DA,((I$,I,1)):49666:IDA,19:49666:DC3ST,2:DA,17:49666:DC1 IN1ĵST,2:DATRYNO1:TRYNO45197>J:8:3:"INVALID TELEPHONE NUMBER"YKPAUSE12000:PAUSE:qLD$"PR#2":Z$:6000MD$"PR#2"NQ$NUMBER$OD$"PR#0"Q(1658)1275210RD$"PR#2":Z$SD$"PR#0"T"TRY AGAIN"UPAUSE11000:PAUSEVJ"D$"CLOSE" D$"MON I"7D$"EXEC MODIFYDJ"= [D$(4):Q$(17):Z$(26)q(7)::::12:"INCORRECT PASSWORD":LGIN1ĺD$"PR#2":Z$D$"PR#0"2TRYNO0<NUMBER$"12345"GH(A$)ĭ(A$)275050ITRYNOLOCK OLD COM22.OBJ".X"BLOAD OLD COM22.OBJ"Bb"POKE 835,182"Vl"POKE 844,183"xv"BSAVE COM22.OBJ,A$300,L$B1""LOCK COM22.OBJ""NOMON I,O,C""CALL-198:CALL-198:CALL-198""?"QU$" ALL DONE!"QU$"DELETE MODIFYD28616SL":REMADDR OF ACIA STATUS"E "5720DA=1912:REMADDR OF CHAR"""5780FORI=1TOLEN(I$):WAITST,2:POKEDA,ASC(MID$(I$,I,1)):CALL"49154256SL":NEXTI"&"SAVE LOGIN"0SL2650:"UNLOCK COM22.OBJ"D"RENAME COM22.OBJ,OLD COM22.OBJ"N""5203?D$"QU$"PR#0"QU$8"5204?"QU$"TRY AGAIN"QU$^"5205FORPAUSE=1TO1000:NEXTPAUSE"r"5206GOTO5193""5640HTAB4:?"QU$"PRESS ANY KEY..."QU$";:GETA$""5644?""5645?D$"QU$"PR#"SL;QU$"5646?Z$:?D$"QU$"PR#0"QU$""5710ST="49E NUMBER"QU$9"5195FORPAUSE=1TO2000:NEXTPAUSE:NORMAL"e"5196?D$"QU$"PR#"SL;QU$":?Z$:GOTO6000""5197?D$"QU$"PR#"SL;QU$"5198?Q$NUMBER$""5199?D$"QU$"PR#0"QU$"5201IFPEEK("1656SL")>127THEN5210""5202?D$"QU$"PR#"SL;QU$":?Z$"-1THEN?D$"QU$"PR#"SL;QU$":?Z$"9J"5143?D$"QU$"PR#0"QU$LT"5170TRYNO=0"i^"5180NUMBER$="QU$NM$QU$vh"5191?"r"5192IFLEN(A$)THENIFASC(A$)=27THEN5050"|"5193TRYNO=TRYNO+1:IFTRYNO<4THEN5197" "5194HOME:VTAB8:HTAB3:?"QU$"INVALID TELEPHON):WAITST,2:POKEDA,ASC(MID$(I$,I,1)):CALL"49154256SL":NEXTI"O "SAVE FETCH"e "LOAD OLD LOGIN" ""5025D$=CHR$(4):Q$=CHR$(17):Z$=CHR$(26)" ,"5140?CHR$(7):HOME:?:?:HTAB12:FLASH" 6"5141?"QU$"INCORRECT PASSWORD"QU$": NORMAL"@"5142IFLGIN=60"* "7255IFI=0THENI$=I$+SY$(J):NEXTI"b "7300WAITST,2:POKEDA,17:CALL"49154256SL":REMDC1" "7380POKEDA,19:CALL"49154256SL":REMDC3" "7900ST="4928616SL":REMADDR OF ACIA STATUS" "7910DA=1912:REMADDR OF CHAR"= "7970FORI=1TOLEN(I$LL"49154256SL":RUN"7 "7145D$=CHR$(4):Z$=CHR$(26)"V "7150?:?D$"QU$"PR#"SL;QU$e "7155?Z$" "7156?D$"QU$"PR#0"QU$ "7160?:HTAB9:?"QU$"PRESS ANY KEY..."QU$";:GETA$" "7200IF5*INT(S/5)<>STHENWAITST,2:POKEDA,17:CALL"49154256SL":GOTO73"LOCK OLD FETCH"$ P"UNLOCK LOGIN"B Z"RENAME LOGIN,OLD LOGIN"X d"LOCK OLD LOGIN"n n"LOAD OLD FETCH" x"6590POKEDA,19:CALL"49154256SL":REMDC3" "6910WAITST,2:POKE DA,17:CALL"49154256SL":REMDC1" "7120IFIN=1THENWAITST,2:POKEDA,19:CA2 ::"ENTER SLOT NUMBER OF MICROMODEM II?";SLo :"ENTER YOUR LOCAL DOW JONES TELEPHONE NUMBER?";NM$ #::"ONE MOMENT...." %D$"VERIFY LOGIN" (D$"OPEN MODIFYDJ"D$"WRITE MODIFYDJ" 2"UNLOCK FETCH" <"RENAME FETCH,OLD FETCH" F PROGRAM DJ CONVERTER"> D$(13)(4):QU$(34)F10" INSERT A COPY OF YOUR DOW JONES":" PORTFOLIO EVALUATOR"::" PRESS ANY KEY TO CONTIUE":" PRESS ESC TO ABORT"AN$:AN$(27)Ā 60000      WASHINGTON,1-(703) 281-2125? SAN DIEGO,1-(714) 526-3687d SAN DIEGO ABBS,1-(714) 582-9557 HOUSTON TX,1-(713) 693-3462 `24:" <<< RETURNNING TO MENU >>>" j(4)"RUN HAYES MENU" LAST UPDATED 11/80 HAYES MICROCOMPUTER PRO12# ATLANTA,1-(404) 394-4220@ BOSTON,1-(617) 354-4682^ CHICAGO,1-(312) 255-6489} NEWJERSY,1-(609) 983-5970 DALLAS,1-(214) 634-2668 LOS ANGELES,1-(213) 799-1632 SAN FERNANDO,1-(213) 340-0135 TENNESSE,1-(901) 276-8196(CH,2) nD$;"PR#"SLOT. sQ$;" ";PN$(CH,2)| t(1656SLOT)128ĺD$;"PR#0":"NO ANSWER OR BUSY!":198:16368,0::150 v: xD$;"PR#0" D$;"IN#"SLOT 1912SLOT,12882:I$ D$;"IN#0":"ANOTHER CALL?";A$:(A$,1)"Y"Ĭ 60000 "------ - ----- -------":- $1;6);"END"K %" "0;6);"DIAL YOUR OWN"W (I1NCn 2PN$(I,1),PN$(I,2)~ 4I10ĺ" "; 7I;6);PN$(I,1);24);PN$(I,2) < F:"YOUR CHOICE?";CH PCH060000 ZCHNC70 dCH0ĺ:"ENTER A NUMBER:";PN$DISK <<<"::5" PRESS ANY KEY TO CONTINUE"Z" PRESS ESC TO ABORT"j16384,128~K$((16384))16368,0K$(155)Ā40LAST UPDATED 5/81HAYES MICROCOMPUTER PRODUCTS,INC.DTUSDA1912:ADDR OF CHARM"I1(I$):ST,2:DA,((I$,I,1)):49666:IS`Zj8t"EITHER THE DOW JONES DISK IS NOT IN, OR"~"THE DISK IS NOT IN 16 SECTOR FORMAT, OR""THE DISK HAS BAD SECTORS ON IT." :" >>> PLEASE CHECK A,19:49666:"D$(4):Z$(26)2:D$"PR#2":Z$HD$"PR#0"j:9:"PRESS ANY KEY...";:A$ 5(S5)SĵST,2:DA,17:49666:7360WI0I$I$SY$(J):IST,2:DA,17:49666:DC1DA,19:49666:DC3ST49318:ADDR OF ACIA STV5193'4:"PRESS ANY KEY...";:A$- ; D$"PR#2"MZ$:D$"PR#0"oNST49318:ADDR OF ACIA STATUSXDA1912:ADDR OF CHARI1(I$):ST,2:DA,((I$,I,1)):49666:IDA,19:49666:DC3ST,2:DA,17:49666:DC1 IN1ĵST,2:DOTRYNO1:TRYNO45197?J:8:3:"INVALID TELEPHONE NUMBER"ZKPAUSE12000:PAUSE:rLD$"PR#2":Z$:6000MD$"PR#2"NQ$NUMBER$OD$"PR#0"Q(1658)1275210RD$"PR#2":Z$SD$"PR#0"T"TRY AGAIN"UPAUSE11000:PAUSEJ"D$"CLOSE" D$"MON I"7D$"EXEC MODIFYDJ"= [D$(4):Q$(17):Z$(26)q(7)::::12:"INCORRECT PASSWORD":LGIN1ĺD$"PR#2":Z$D$"PR#0"2TRYNO0<NUMBER$"132234"GH(A$)ĭ(A$)275050ITRYNLOCK OLD COM22.OBJ".X"BLOAD OLD COM22.OBJ"Bb"POKE 835,182"Vl"POKE 844,183"xv"BSAVE COM22.OBJ,A$300,L$B1""LOCK COM22.OBJ""NOMON I,O,C""CALL-198:CALL-198:CALL-198""?"QU$" ALL DONE!"QU$"DELETE MODIFYD28616SL":REMADDR OF ACIA STATUS"E "5720DA=1912:REMADDR OF CHAR"""5780FORI=1TOLEN(I$):WAITST,2:POKEDA,ASC(MID$(I$,I,1)):CALL"49154256SL":NEXTI"&"SAVE LOGIN"0SL2650:"UNLOCK COM22.OBJ"D"RENAME COM22.OBJ,OLD COM22.OBJ"N""5203?D$"QU$"PR#0"QU$8"5204?"QU$"TRY AGAIN"QU$^"5205FORPAUSE=1TO1000:NEXTPAUSE"r"5206GOTO5193""5640HTAB4:?"QU$"PRESS ANY KEY..."QU$";:GETA$""5644?""5645?D$"QU$"PR#"SL;QU$"5646?Z$:?D$"QU$"PR#0"QU$""5710ST="49E NUMBER"QU$9"5195FORPAUSE=1TO2000:NEXTPAUSE:NORMAL"e"5196?D$"QU$"PR#"SL;QU$":?Z$:GOTO6000""5197?D$"QU$"PR#"SL;QU$"5198?Q$NUMBER$""5199?D$"QU$"PR#0"QU$"5201IFPEEK("1656SL")>127THEN5210""5202?D$"QU$"PR#"SL;QU$":?Z$"-1THEN?D$"QU$"PR#"SL;QU$":?Z$"9J"5143?D$"QU$"PR#0"QU$LT"5170TRYNO=0"i^"5180NUMBER$="QU$NM$QU$vh"5191?"r"5192IFLEN(A$)THENIFASC(A$)=27THEN5050"|"5193TRYNO=TRYNO+1:IFTRYNO<4THEN5197" "5194HOME:VTAB8:HTAB3:?"QU$"INVALID TELEPHON):WAITST,2:POKEDA,ASC(MID$(I$,I,1)):CALL"49154256SL":NEXTI"O "SAVE FETCH"e "LOAD OLD LOGIN" ""5025D$=CHR$(4):Q$=CHR$(17):Z$=CHR$(26)" ,"5140?CHR$(7):HOME:?:?:HTAB12:FLASH" 6"5141?"QU$"INCORRECT PASSWORD"QU$": NORMAL"@"5142IFLGIN=60"* "7255IFI=0THENI$=I$+SY$(J):NEXTI"b "7300WAITST,2:POKEDA,17:CALL"49154256SL":REMDC1" "7380POKEDA,19:CALL"49154256SL":REMDC3" "7900ST="4928616SL":REMADDR OF ACIA STATUS" "7910DA=1912:REMADDR OF CHAR"= "7970FORI=1TOLEN(I$LL"49154256SL":RUN"7 "7145D$=CHR$(4):Z$=CHR$(26)"V "7150?:?D$"QU$"PR#"SL;QU$e "7155?Z$" "7156?D$"QU$"PR#0"QU$ "7160?:HTAB9:?"QU$"PRESS ANY KEY..."QU$";:GETA$" "7200IF5*INT(S/5)<>STHENWAITST,2:POKEDA,17:CALL"49154256SL":GOTO73"LOCK OLD FETCH"$ P"UNLOCK LOGIN"B Z"RENAME LOGIN,OLD LOGIN"X d"LOCK OLD LOGIN"n n"LOAD OLD FETCH" x"6590POKEDA,19:CALL"49154256SL":REMDC3" "6910WAITST,2:POKE DA,17:CALL"49154256SL":REMDC1" "7120IFIN=1THENWAITST,2:POKEDA,19:CA2 ::"ENTER SLOT NUMBER OF MICROMODEM II?";SLo :"ENTER YOUR LOCAL DOW JONES TELEPHONE NUMBER?";NM$ #::"ONE MOMENT...." %D$"VERIFY LOGIN" (D$"OPEN MODIFYDJ"D$"WRITE MODIFYDJ" 2"UNLOCK FETCH" <"RENAME FETCH,OLD FETCH" F PROGRAM DJ CONVERTER"> D$(13)(4):QU$(34)F10" INSERT A COPY OF YOUR DOW JONES":" PORTFOLIO EVALUATOR"::" PRESS ANY KEY TO CONTIUE":" PRESS ESC TO ABORT"AN$:AN$(27)Ā 60000     0# `::"RETURN TO MENU? N"(8);@ jAN$:AN$:AN$"Y"60030J t3500t ~:" <<< RETURNNING TO MENU >>>" (4)"RUN HAYES MENU" LAST UPDATED 11/80 HAYES MICROCOMPUTER PRODUCTS,INC. t900  D$;"MON O"* X(0)8 500:600B hI$""b 1912,134:16382256MSLOTw A$:A$CR$4600 0A$EF$5000 I$I$A$:4300 :D$;"WRITE ";F$ \I$ 4050 :400 D$;"CLOSE ";F$ P"FILE RECEIVED" 350$"" A$:A$CR$2200, 4I$I$A$:20007 D$;I$E 500:600[ ` A$:A$AK$2400j I115:Iv :1800 X(222):216,0  400:500 X59000 700:EF$;EF$:500 H :"FILE SENT" 600:1912MSLOT,82 F$ B700:RE$";MSLOT: D$;"PR#";MSLOT:- 400:500C "FILE NAME? ";F$V L(F$)060000g D$"OPEN "F$ "S)END OR R)ECEIVE? ";I$ x(I$,1)"R"4000 (I$,1)"S"1100 3000 1912MSLOT,2 @2300 700:400 :D$;"READ ";F$ lI DISK <<<"::6" PRESS ANY KEY TO CONTINUE"[" PRESS ESC TO ABORT"k16384,128K$((16384))16368,0K$(155)Ā40LAST UPDATED 5/81HAYES MICROCOMPUTER PRODUCTS,INC.ATUSDA1912:ADDR OF CHARN"I1(I$):ST,2:DA,((I$,I,1)):49666:IT`[j8t"EITHER THE DOW JONES DISK IS NOT IN, OR"~"THE DISK IS NOT IN 16 SECTOR FORMAT, OR""THE DISK HAS BAD SECTORS ON IT.":" >>> PLEASE CHECK2100 tD$;"CLOSE ";F$4 "FILE SAVED ON DISK."S <300::1912MSLOT,12882[ F$e 9300s (#100:200 #"ERROR NUMBER ";(222) #"AT LINE ";(218)(219)256 T$::"RETURN TO MENU? N"(8); $AN$:AN$:AN$"Y"1500 %400:(26)K DISK <<<"::7" PRESS ANY KEY TO CONTINUE"\" PRESS ESC TO ABORT"l16384,128K$((16384))16368,0K$(155)Ā35LAST UPDATED 5/81HAYES MICROCOMPUTER PRODUCTS,INC.TATUSDA1912:ADDR OF CHARO"I1(I$):ST,2:DA,((I$,I,1)):49666:IU`\j8t"EITHER THE DOW JONES DISK IS NOT IN, OR"~"THE DISK IS NOT IN 16 SECTOR FORMAT, OR""THE DISK HAS BAD SECTORS ON IT.":" >>> PLEASE CHECDA,19:49666:#D$(4):Z$(26)3:D$"PR#2";Z$ID$"PR#0"k:9:"PRESS ANY KEY...";:A$ 5(S5)SĵST,2:DA,17:49666:7360WI0I$I$SY$(J):IST,2:DA,17:49666:DC1DA,19:49666:DC3ST49318:ADDR OF ACIA SV5193(4:"PRESS ANY KEY...";:A$. < D$"PR#2"NZ$:D$"PR#0"pNST49318:ADDR OF ACIA STATUSXDA1912:ADDR OF CHARI1(I$):ST,2:DA,((I$,I,1)):49666:IDA,19:49666:DC3ST,2:DA,17:49666:DC1IN1ĵST,2:I$,10,2) ST$(I$,13,2)P D$"PR#0":15:(13):HT$":"MT$":"ST$:23:(1):;j ( HA$HT$MA$MT$2800t 2200 D$"PR#"MSLOT:Q$PH$LF$; T I150 CR2,128  CR2,134 J1100:J CR2,128 H CR2,130 J1100:J I tZ$;I$ x(I$)51200/ (I$,3,1)";"1200O @"PHONE NUMBER TO RING";PH$_ HA$(I$,2)q MA$(I$,4,2)w l 10:PH$;" WILL RING AT ";HA$;":";MA$ 415:1)"TIME NOW IS" D$"PR#"TSLOT:D$"IN#"TSLOT:" ";I$ HT$(I$,7,2) ` MT$(K XMSLOT3:MICROMODEM IIC CR21625116MSLOT:MODEM CONTROLk Q$(17):Z$(26):LF$(10):D$(4) "REMOTE ALARM CLOCK": D$"PR#"TSLOT:D$"IN#"TSLOT:" ";I$ LD$"IN#0":D$"PR#0" "TIME NOW IS ";I$ :"TIME FOR ALARM -- HH;MM "% TELEPHONE ALARM CLOCK PROGRAMD USING MICROMODEM II ANDX APPLE CLOCK.fd:60000:"THIS PROGRAM ASSUMES YOU HAVE AN APPLE","CLOCK. DO YOU HAVE A CLOCK IN SLOT #4? Y"(8);AN$:AN$:AN$"N"60000 TSLOT4:APPLE CLOC    INFORMATION,4110$OK FOOD STORE,921-3412Z`:" <<< RETURNNING TO MENU >>>"t(4)"RUN HAYES MENU"LAST UPDATED 12/80HAYES MICROCOMPUTER PRODUCTS,INC.411$ FOOD STORE,921-3412N:"YOU MAY PICK UP THE PHONE NOW....":1984 E H12500:HP MM2,0] CLKBD,Ol :C1:120t  6  HAYES MICROCOMPUTER PRODUCTS,1 (404) 449-8791  SMITH; JOE, 465-9181  JANE; MARY, 378-4567  TRAVELER; TRACY, 555-5555:"NOT IN DIRECTORY";::" (TRY '?')"B hHLD11200:HLD::120_ r:PH$PFX$PN$(I,2):390s |PH$PFX$T$:C1 D$"PR#"SLOT (17)PH$(10) D$"PR#0" (KBD)127ĹCLRKBD,0:MM2,0:::"** ABORTED * HUNG UP"::198:H11000:::120.  (KBD)127290! CLKBD,05 (KBD)127280S (KBD)155ĹCLKBD,0:120b "CLKBD,0:m ,:120y 6I1NC @ IF PN$(I,1) < T$ THEN 320 : IF YOU HAVE THE LIST IN ALPHABETICAL ORDER. J(PN$(I,1),(T$))T$370 T& ^:198:T$" ";:$""ĺ:"TO GET OUT TYPE 'END'":198:H11000:::120A D20S (T$)48380q (T$)0(T$,1)"?"310 T$"?"220 380 300 :I1NC PN$(I,1)(PN$(I,1),18) PN$(I,1)" ";:U018(PN$(I,1)):".";::(21):" ";PN$(I,2)TITIVE DIALING PROGRAM":" FOR DIRECTORY FOR REDIAL"; p" TO PAUSE LISTING":" TO STOP LISTING " sI140:"=";: x:"NUMBER TO DIAL #";T$:T$"/"150 C0ė:120 390 T$"END"ī600008 T PROGRAM: DIAL A HUMAN% :-NCJDD$(25),D(25),PN$(NC,2)_(D$(4):Z$(26)k2I1NC<PN$(I,1),PN$(I,2)FPSLOT3:PFX$""ZKBD16384:CLKBD16368:MM21625116SLOT:OH136:O0d34,5:1i60000D n" REPE      1656MSLOT,128821/ 2040MSLOT,21G "1625016MSLOT,21M ,\ 6LP11000z @(1625016MSLOT)2360 JX(1624916MSLOT) TLP ^(26):100 hD$;"PR#"MSLOT rD$;"IN#";MSLOT |"CONNECTION ESTABLISHED" 1912MSLOT nMSLOT3# xSTT1625116MSLOT/ R0:N3R "WAITING FOR RING # ";N:958` W11300t (STT)128180 ::130 RR1 8:"RING # "R (STT)128200 RN230 150 10:"WAITING FOR CARRIER" D$;"PR#";MSLOT   D$(4)!D$"IN#0"/(D$"PR#0"_2::"THIS PROGRAM WILL WAIT FOR THE PHONE"<"TO RING A SET NUMBER OF RINGS BEFORE"F"ANSWERING AND SENDING THE ANSWER CARRIER"P"CONTINUE? N"(8);ZAN$:AN$:AN$"Y"60000d:60000  390T(13);%^CC$"@":CC1:240AhTRM$:CC$">":CC2:240JrID$i|WT10000:CC3:CC$")":240 THIS PUTS YOU IN TERMINAL MODE, BUT YOU CAN DO OTHER THINGS BESIDES THAT.... :D$"PR#0":D$"IN#"SLOT"*** TIME OUT ***":T01::240i ":D$"IN#0":D$"PR#"SLOT:(26):D$"PR#0":12:"MAYBE ANOTHER TIME": + IS IT THE CHARATER WE ARE LOOKING FOR??? ,((DTA))CC$ĺ((DTA));:250 6((DTA));:T00 @:D$"IN#0":D$"PR#"SLOTJCC360,370,D$"PR#0":::"#"RD" *** NO CARRIER ***":7 RD:290H H12000:Hf ---TWO (2) 'RETURNS'---> (13);:H1500:H:(13); D$"PR#0":D$"IN#"SLOT XX0WT IS THERE A CHARACTER TO RECEIVE?? (P1)3300 XX T0290:::D USING 'CHR$(X)' FUNCTIONM y ID$="IDENT"+CHR$(4)+CHR$(9)+CHR$(11)+...l TRM$"YOUR TELENET SIGNON"| RD0TRYS% (KBD)127ĹCLRKBD,0:::"** DIALING ABORTED **"(7):100 D$"PR#"SLOT (17)PFX$NN$ (1656SLOT)127210* 1625016SLOT:DTA1624916SLOT9 <DTA1624916SLOTz PNN$"TELEPHONE ACCESS #":PFX$"":PFX IS A PREFIX IF NEEDED. ZWT3000: FOR-NEXT WAIT _ d::"TRIES IF BUSY? ";TRYS% nTRYS%0ė: xID$"YOUR ID #": PUT THE PASSWORD ON THE EN AN$:AN$:AN$"N"ĺ:" <<< RETURNNING TO MENU >>>":(4)"RUN HAYES MENU"j SLOT3: MM2 SLOT #v D$(4)  CC$ IS THE CHARACTER TO LOOK FOR AND CC IS A PLACE COUNTER CC$"=":CC0 (P1(1625016SLOT)" 2KBD16384:CLRKBD16368:STY :;:"CHECK THESE LINE NUMBERS IN THE PROGRAM:"^3:20:4:80:7:120:10:130:"WHEN THEY ARE CHANGED THEN:":"DEL 1,10 TO ERASE THESE LINES,""SAVE SOURCEON FOR A WORKING COPY" :"RETURN TO MENU? Y"(8);R     "LOCK OLD COM22.OBJ"/X"BLOAD OLD COM22.OBJ"Cb"POKE 835,182"Wl"POKE 844,183"yv"BSAVE COM22.OBJ,A$300,L$B1""LOCK COM22.OBJ""NOMON I,O,C""CALL-198:CALL-198:CALL-198""?"QU$" ALL DONE!"QU$"DELETE MODIFY928616SL":REMADDR OF ACIA STATUS"F "5720DA=1912:REMADDR OF CHAR"""5780FORI=1TOLEN(I$):WAITST,2:POKEDA,ASC(MID$(I$,I,1)):CALL"49154256SL":NEXTI"&"SAVE LOGIN"0SL2650:"UNLOCK COM22.OBJ"D"RENAME COM22.OBJ,OLD COM22.OBJ"N"5203?D$"QU$"PR#0"QU$9"5204?"QU$"TRY AGAIN"QU$_"5205FORPAUSE=1TO1000:NEXTPAUSE"s"5206GOTO5193""5640HTAB4:?"QU$"PRESS ANY KEY..."QU$";:GETA$""5644?""5645?D$"QU$"PR#"SL;QU$"5646?Z$:?D$"QU$"PR#0"QU$#"5710ST="4NE NUMBER"QU$:"5195FORPAUSE=1TO2000:NEXTPAUSE:NORMAL"f"5196?D$"QU$"PR#"SL;QU$":?Z$:GOTO6000""5197?D$"QU$"PR#"SL;QU$"5198?Q$NUMBER$""5199?D$"QU$"PR#0"QU$"5201IFPEEK("1656SL")>127THEN5210""5202?D$"QU$"PR#"SL;QU$":?Z$"=-1THEN?D$"QU$"PR#"SL;QU$":?Z$":J"5143?D$"QU$"PR#0"QU$MT"5170TRYNO=0"j^"5180NUMBER$="QU$NM$QU$wh"5191?"r"5192IFLEN(A$)THENIFASC(A$)=27THEN5050"|"5193TRYNO=TRYNO+1:IFTRYNO<4THEN5197" "5194HOME:VTAB8:HTAB3:?"QU$"INVALID TELEPHO$):WAITST,2:POKEDA,ASC(MID$(I$,I,1)):CALL"49154256SL":NEXTI"P "SAVE FETCH"f "LOAD OLD LOGIN" ""5025D$=CHR$(4):Q$=CHR$(17):Z$=CHR$(26)" ,"5140?CHR$(7):HOME:?:?:HTAB12:FLASH" 6"5141?"QU$"INCORRECT PASSWORD"QU$": NORMAL"@"5142IFLGIN360"+ "7255IFI=0THENI$=I$+SY$(J):NEXTI"c "7300WAITST,2:POKEDA,17:CALL"49154256SL":REMDC1" "7380POKEDA,19:CALL"49154256SL":REMDC3" "7900ST="4928616SL":REMADDR OF ACIA STATUS" "7910DA=1912:REMADDR OF CHAR"> "7970FORI=1TOLEN(IALL"49154256SL":RUN"8 "7145D$=CHR$(4):Z$=CHR$(26)"W "7150?:?D$"QU$"PR#"SL;QU$f "7155?Z$" "7156?D$"QU$"PR#0"QU$ "7160?:HTAB9:?"QU$"PRESS ANY KEY..."QU$";:GETA$" "7200IF5*INT(S/5)<>STHENWAITST,2:POKEDA,17:CALL"49154256SL":GOTO7"LOCK OLD FETCH"% P"UNLOCK LOGIN"C Z"RENAME LOGIN,OLD LOGIN"Y d"LOCK OLD LOGIN"o n"LOAD OLD FETCH" x"6590POKEDA,19:CALL"49154256SL":REMDC3" "6910WAITST,2:POKE DA,17:CALL"49154256SL":REMDC1" "7120IFIN=1THENWAITST,2:POKEDA,19:C03 ::"ENTER SLOT NUMBER OF MICROMODEM II?";SLp :"ENTER YOUR LOCAL DOW JONES TELEPHONE NUMBER?";NM$ #::"ONE MOMENT...." %D$"VERIFY LOGIN" (D$"OPEN MODIFYDJ"D$"WRITE MODIFYDJ" 2"UNLOCK FETCH" <"RENAME FETCH,OLD FETCH" F PROGRAM DJ CONVERTER"> D$(13)(4):QU$(34)F10" INSERT A COPY OF YOUR DOW JONES":" PORTFOLIO EVALUATOR"::" PRESS ANY KEY TO CONTINUE":" PRESS ESC TO ABORT"AN$:AN$(27)Ā 6000       ŠˠˠĠ͠ԠĠ͠ӠҠӬîƠ̠̠ΠԠĤŠƤԠŠĠΠˮ ŠԬԠƤϠ  ԠҠҠˠԠԠɵɤ̩ɤ̩ϠԠƠɤ̩ˤΠ̠̠Ϡ ԠĤŠƤҠɠϠ̠ԠɤɩԠɍԠĤ̠̠̠ɠŠ̠Š ԠԠ̻Ԡ̠̠ɩ̠  ԠƠҤΠɤ̩ԠƠҤΠԠĤҤԠĤɬϬâԠˤˢ  ԠנŠҿ̍ԠȠŠҿ̍ɠԠŠſƤԠĤΠƤ؍͠à͠ҍҠϠŠҤҤϠԠĤΣΠԠĤңΠԠĤΣԺΠԠĤңԺΠ̠͠ɤ̠  958,:" <<< RETURNNING TO MENU >>>"F(4)"RUN HAYES MENU"S READY?}24:23::" PRESS 'RETURN'";I$::::Y OR N ? ";I$:I$"Y"I$"N"360{mXKB(I$"Y"):TTX:18:25:868:28)"+"32)X:27)"-------":30(T100)(T10))Tw22:"POKE 1912 + SLOT,"T|24:23::" TRY ANOTHER? ";:I$::I$"Y"I$"N"380I$"Y"315 EXIT:::5:X:12:25:868:31)X)XTT14:3)TM$25);:"Y OR N ? ";I$:I$"Y"I$"N"340YXTM(I$"Y"):TTX:14:25:868:32)X^16:3)TP$25);:"Y OR N ? ";I$:I$"Y"I$"N"350cXTP(I$"Y"):TTX:16:25:868:32)X"h18:3)KB$25);:"OW FOR SOME SAMPLE CALCULATIONS...":1000D;:8:"WHICH OPTIONS:"~@10:3)FH$25);:"F OR H ? ";I$:I$"F"I$"H"320EXFH(I$"F"):TX:10:25:868:30)2X)XJ12:3)LF$25);:"Y OR N ? ";I$:I$"Y"I$"N"330OXLF(I$"Y"):TTOARD.":1000~8:"SIMPLY ADD UP THE VALUES OF THE":"DESIRED FUNCTIONS AND POKE THE":"TOTAL INTO THE FLAGS LOCATION:"::, CALCULATION15)"FULL"(HD$,7)30)FH::5)LF$31)LF::5)TM$32)TM::5)TP$32)TP::5)KB$32)KB:1000)615:"NELECTED, PUTS MICROMODEM INTO"::3)"ITS TERMINAL PROGRAM.":100010:22(TP$)2)TP$::::3)"IF SELECTED, IGNORES INCOMING"::3)"MODEM CONTROL CHARACTERS.":1000 10:22(KB$)2)KB$::::3)"IF NOT SELECTED, LOCKS OUT YOUR"::3)"KEYB:3)"WAITS FOR EACH CHARACTER TO ECHO":3)"PRIOR TO BEING DISPLAYED.":100010:22(LF$)2)LF$::::3)"IF SELECTED, AUTOMATICALLY ADDS A"::3)"LINE FEED FOLLOWING EACH CARRIAGE"::3)"RETURN.":1000B10:22(TM$)2)TM$::::3)"IF S FLAGS CONTROL THE FOLLOWING"::"FUNCTIONS:":::5)FH$::5)LF$::5)TM$::5)TP$::5)KB$:10008:22(FH$)2)FH$:::HD$::3)"EACH CHARACTER IS DISPLAYED ON":3)"YOUR SCREEN PRIOR TO BEING":3)"TRANSMITTED."::N(FH$,5)(FH$,6):912SL", IF YOU ARE WRITING"::"A PROGRAM, IT IS BETTER TO SET THE"::"VARIALBLE 'SLOT' EQUAL TO YOUR SLOT.":::"THEN YOU ONLY HAVE TO CHANGE ONE LINE"::"IF YOU DECIDE TO MOVE YOUR MODEM TO"::"ANOTHER SLOT.":1000 FUNCTIONSg9:"THE FLAGS ARE LOCATED AT 1912 PLUS THE":"SLOT YOUR MICROMODEM IS IN." 16:"WHAT SLOT IS YOURS IN? ";SL$:SL(SL$):SL1SL7ĺ:130 :"THEN YOUR FLAGS ARE LOCATED AT "1912SL".":1000p8:"EVEN THOUGH YOU KNOW YOUR FLAGS ARE"::"AT LOCATION "1MODEM.":1000H P14:"DO YOU WANT AN EXPANATION? ";I$:(I$,1)"N"315Z d EXPLANATION n12:"IF YOU PLAN ON WRITING ANY PROGRAMS"::"FOR THE HAYES MICROMODEM ,"::"YOU SHOULD BECOMER FAMILIAR WITH ITS"::"FLAGS LOCATION.":1000C x10:"THE (24:1::18)::MF$:EM$:18):U 2J119:K1100:K::J:32,2:33,38:34,5 <:10:2)"COURTESY OF:":::4)TS$:4)PH$ F::2)"WHERE FULLY DOCUMENTED AND TESTED":2)"SOFTWARE FOR THE APPLE ]"(219)" COMPUTER":2)"IS AS CLOSE AS YOUR CTION":PH$"(213) 329-3715 24-HOUR MODEM" HD$"HALF DUPLEX":FH$"FULL OR "HD$:LF$"LINE FEEDS":TM$"TERMINAL PROGRAM":TP$"TRANSPARENCY":KB$"KEYBOARD ENABLE":FH128:LF16:TM8:TP4:KB2 ::J1024110440:K07:JK128,32:K:J:32,1:33,39% THE TELEPHONE SOFT- WARE CONNECTION P.O. BOX 6548 TORRANCE, CA 90504 (213) 329-3715 MODEM  8/27/80 900* MF$" MICROMODEM FLAGS ":EM$" BY ED MAGNIN ":TS$"TELEPHONE SOFTWARE CONNE~  SERIAL #12-010781-0845A v MICROMODEM FLAGS BY ED MAGNIN -ALL RIGHTS RESERVED-  COMPLIMENTARY COPY REPRINTED BY PERMISSION OF ED MAGNIN *** NOT FOR SALE ***  DISTRIBUTED BY: !! ! ! ! ! !!!!!!!!! DUMBO $TRANSFER. .BASIC EXTRACTOR9 8ALARML B DIAL A HUMANm LANSWER ON NTH RING MODIFIED{ VSOURCEON `DJ CONVERTER jMICROMODEM FLAGSLTER jMICROMODEM FLAGSH$;4 BN$:BN$"Y"BN$"N"BN$(13)ĺB$;:230K BN$:BN$"N"260n C5:AN$" : "PGM$(C):20:170 20:" <<< RUNNING PROGRAM >>>" D$"RUN "PGM$(C)   13  SELFTEST II STORE & FORWARD  PICKUP AUTO DIAL