' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ӡՠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`,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.KO MENU >>>"%j(4)"RUN HAYES MENU">LAST UPDATED 12/80,eHAYES MICROCOMPUTER PRODUCTS,INC.,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#?    ҠΠàŠ  àҠ̠͠ΠҠΠȠǠĠΠ ʠҠ !͠ӠӠՠԠɠ ŠĠ РϠ̠ϠҠ 4):H$(8)" nI1MAX:PGM$(I):3 xI6564MAX> SI64T (I)" : "PGM$(S)\ :| "ENTER SELECTION: ";:868 AN$:C(AN$) C65C64MAXĺB$;:180 :CC64 C5::AN$;::" : ";::PGM$(C)::20 "SELECTION CORRECT? Y"  ::`A1$"MICROMODEM II PROGRAMS":A2$"FROM":A3$"HAYES MICROCOMPUTER PRODUCTS, INC."{((40(A1$))2))A1$(((40(A2$))2))A2$2((40(A3$))2));::A3$:<I140:"-";:F34,5PMAXZPGM$(MAX) dB$(7):D$( ""(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 C% SELFTEST PROGRAM IN APPLESOFTP CK122440: ROM/EPROM (REV K) CHECKSUM^:33400" SELF-TEST PROGRAM FOR THE"(" HAYES MICROMODEM II"<:d"WHICH SLOT IS THE MICROMODEM II IN? ";SLOT n:"UNPLUG THE MICROMOD      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$,18 DZ$ vI1700:I6  NOW WAIT T MINUTESD T16200r "WAITING "T" MINUTES":"NOW ON MINUTE ";} I1T >I" "; p30000 : 8I0 Q$;NUMBER$ (1656SLOT)1277100 dII1 I31300:"NO CONNECTION.... MANY MINUTES? ";T ) 0"THANK YOU"U "IN ";T;" MINUTES, I WILL FORWARD THE" "FOLLOWING MESSAGE TO PHONE NUMBER ";NUMBER$ \:I1L LINE$(I) $   "IS THAT OK?";I$ |(I$,1)"Y"2600 "GOOD BYE" 1912SLOT  "YOU MAY ENTER A MESSAGE:"A "TYPE 'END' TO END MESSAGE"I L0O Y  LL1h H L9ĺ" ";p L; ")";LINE$(L) tLINE$(L)"END"3900 3350 <LL1: "I CAN WAIT A FEW MINUTES BEFORE" "I FORWARD THE MESSAGE." h"HOWRD ";I$ I$PASS$25004 4"INCORRECT PASSWORD"> II1L I21300V ` 1900n "CORRECT PASSWORD" ( "THIS PROGRAM WILL FORWARD A SHORT" "MESSAGE TO ANOTHER COMPUTER OR TERMINAL" T "PLEASE ENTER ITS PHONE NUMBER ";NUMBER$ 26):Q$(17):D$(4) 600007 D$;"PR#";SLOT:Z$I F1912SLOT,22 xD$;"IN#";SLOT:"WAITING FOR THE PHONE TO RING";I$ (1656SLOT)1281300 @"HELLO, THIS IS A STORE AND FORWARD" "PROGRAM RUNNING ON AN APPLE II" I0 l"PASSWOxSTORE & FORWARD PROGRAM:RECEIVES A MESSAGE ANDVFORWARDS IT TO ANOTHEReCOMPUTER.u LINE$(100)}2:ZI0:J0:K0d SLOT MUST = SLOT MICROMODEM II IS INSLOT3 THIS SETS UP THE PASSWORDPASS$"DEMO" LZ$(     26):D$;"PR#0" `12@ j" <<< RETURNING TO MENU >>>"Z t(4)"RUN HAYES MENU"r LAST UPDATED 11/80 HAYES MICROCOMPUTER PRODUCTS,INC.A  1656MSLOT,1288212 X2040MSLOT,21J b1625016MSLOT,21P o (1625016MSLOT)21000 X(1624916MSLOT) 700 D$;"PR#0" LD$;"IN#";MSLOT "CONNECTION ESTABLISHED" 1912MSLOT,12882 xI$  (#(  PROGRAM TO PICK UP PHONE5 IN ANSWER MODE; b:"THIS PROGRAM WILL TURN ON THE""MICROCOUPLER AND SEND THE ANSWER CARRIER"("CONTINUE? N"(8);2AN$:AN$:AN$"Y"60000Z9000dMSLOT3D$(4),D$;"PR#";MSLOT  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$  AUTO DIAL PROGRAM6 CHOOSE A NUMBER FROM AR MENU AND IT WILL DIALo THE NUMBER FOR YOU AND PUT YOU IN TERMINAL MODE Q$(17):D$(4) SLOT3D$;"NOMON I,O,C"NCPN$(NC,2) #"CBBS'S & OTHER SYSTEMS":    M_,`$ q.?r d2e?Ma()Gd2e_,ca@E(ң)Fa@&a@E(ң)!0a(ԠҠ)M6 :ccccDa(ΠϠտ)E@G IS()&@N`@9()$'Xa(ǠϠՠa@E(ң)"de ,q.?ұr6`$@`$Ea@E@GM6d Jq.?rT`$, ^de hde rM |`$,`$,`$, dea@G_, q.?r`%q`$ũάϩĠҠΩſ)&@q`@9()%q `@9()%q `@9()$`@:()@:()@:()$ S(ĠҠ)'`$`$!dxe.?xrS(Šҿ)&@a@E(ң)Fa@E@̭xa@E(Σ)Fca@E(Σ) q6@q0dede#deLdedeN@"rC@"ra( ̠)#cS(ȩƠҠƩ̠ؿ)&@q`@9()%q`@:()$uS(X M6 @p()qde@p@]̭ q (q 2q<ұq6z?Fqұ PqxZq6?dde@p@]̭nde@p@]̭sde@p@]tde@p@]    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 TRANSFER PROGRAM5 TRANSFERS 'TEXT' FILESS BETWEEN APPLE ]['S WITHk THE MICROMODEM ][wdMSLOT3D$(4):AK$(6):CR$(13)EF$(3):RE$(18)D$;"NOMONI,O,C",500:3500D$;"IN#0":D$;"PR#0": XD$;"IN#    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:   ;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     "BSAVE COM22.OBJ,A$300,L$B1"2"LOCK COM22.OBJ"E"NOMON I,O,C"g"CALL-198:CALL-198:CALL-198""?"QU$" ALL DONE!"QU$"DELETE MODIFYDJ"D$"CLOSE"D$"MON I"D$"EXEC MODIFYDJ"  `:" <<< RETURNNING TI$):WAITST,2:POKEDA,ASC(MID$(I$,I,1)):CALL"49154256SL":NEXTI"Q&"SAVE LOGIN"_0SL2650w:"UNLOCK COM22.OBJ"D"RENAME COM22.OBJ,OLD COM22.OBJ"N"LOCK OLD COM22.OBJ"X"BLOAD OLD COM22.OBJ"b"POKE 835,182"l"POKE 844,183"vE""5206GOTO5193"J"5640HTAB4:?"QU$"PRESS ANY KEY..."QU$";:GETA$"W"5644?"t"5645?D$"QU$"PR#"SL;QU$"5646?Z$:?D$"QU$"PR#0"QU$"5710ST="4928616SL":REMADDR OF ACIA STATUS" "5720DA=1912:REMADDR OF CHAR"?""5780FORI=1TOLEN(GOTO6000"&"5197?D$"QU$"PR#"SL;QU$<"5198?Q$NUMBER$"W"5199?D$"QU$"PR#0"QU$"5201IFPEEK("1656SL")>127THEN5210""5202?D$"QU$"PR#"SL;QU$":?Z$""5203?D$"QU$"PR#0"QU$"5204?"QU$"TRY AGAIN"QU$"5205FORPAUSE=1TO1000:NEXTPAUSR$="QU$NM$QU$h"5191?"Gr"5192IFLEN(A$)THENIFASC(A$)=27THEN5050"r|"5193TRYNO=TRYNO+1:IFTRYNO<4THEN5197""5194HOME:VTAB8:HTAB3:?"QU$"INVALID TELEPHONE NUMBER"QU$"5195FORPAUSE=1TO2000:NEXTPAUSE:NORMAL" "5196?D$"QU$"PR#"SL;QU$":?Z$:LD LOGIN"7 ""5025D$=CHR$(4):Q$=CHR$(17):Z$=CHR$(26)"a ,"5140?CHR$(7):HOME:?:?:HTAB12:FLASH" 6"5141?"QU$"INCORRECT PASSWORD"QU$": NORMAL" @"5142IFLGIN=-1THEN?D$"QU$"PR#"SL;QU$":?Z$" J"5143?D$"QU$"PR#0"QU$ T"5170TRYNO=0" ^"5180NUMBEEMDC1"5 "7380POKEDA,19:CALL"49154256SL":REMDC3"h "7900ST="4928616SL":REMADDR OF ACIA STATUS" "7910DA=1912:REMADDR OF CHAR" "7970FORI=1TOLEN(I$):WAITST,2:POKEDA,ASC(MID$(I$,I,1)):CALL"49154256SL":NEXTI" "SAVE FETCH" "LOAD O"7155?Z$"$ "7156?D$"QU$"PR#0"QU$Z "7160?:HTAB9:?"QU$"PRESS ANY KEY..."QU$";:GETA$" "7200IF5*INT(S/5)<>STHENWAITST,2:POKEDA,17:CALL"49154256SL":GOTO7360" "7255IFI=0THENI$=I$+SY$(J):NEXTI" "7300WAITST,2:POKEDA,17:CALL"49154256SL":R"LOAD OLD FETCH"A x"6590POKEDA,19:CALL"49154256SL":REMDC3"z "6910WAITST,2:POKE DA,17:CALL"49154256SL":REMDC1" "7120IFIN=1THENWAITST,2:POKEDA,19:CALL"49154256SL":RUN" "7145D$=CHR$(4):Z$=CHR$(26)" "7150?:?D$"QU$"PR#"SL;QU$ LL BE IN ";SLC :"ENTER YOUR LOCAL DOW JONES ACCESS NUMBER";NM$l (D$"OPEN MODIFYDJ"D$"WRITE MODIFYDJ" 2"UNLOCK FETCH" <"RENAME FETCH,OLD FETCH" F"LOCK OLD FETCH" P"UNLOCK LOGIN" Z"RENAME LOGIN,OLD LOGIN" d"LOCK OLD LOGIN" nf  PROGRAM DJ CONVERTER"> D$(13)(4):QU$(34)"INSERT A COPY OF YOUR DOW JONES":"PORTFOLIO EVALUATOR DISK OR HIT":"CONTROL C TO ABORT AND RETURN TO MENU"AN$:AN$(3)6000060000 ::"ENTER SLOT NUMBER MICROMODEM WI     ŠˠˠĠ͠ԠĠ͠ӠҠӬîƠ̠̠ΠԠĤŠƤԠŠĠΠˮ ŠԬԠƤϠ  ԠҠҠˠԠԠɵɤ̩ɤ̩ϠԠƠɤ̩ˤΠ̠̠Ϡ ԠĤŠƤҠɠϠ̠ԠɤɩԠɍԠĤ̠̠̠ɠŠ̠Š ԠԠ̻Ԡ̠̠ɩ̠  ԠƠҤΠɤ̩ԠƠҤΠԠĤҤԠĤɬϬâԠˤˢ  ԠנŠҿ̍ԠȠŠҿ̍ɠԠŠſƤԠĤΠƤ  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