' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( 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 e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@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@  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- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ 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˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵ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 ~(` d ֠z# u`ӠϬ̮ӠӬȮӠӬȮӠӠɬخΠîӠӠΠŬӠŬؠӬٮӠȠٮԭ٠ԮӠĬ׶ӠΠĬϠӭɠȮӠ̮ĠΠŠӠԠîŠΠخӠ͠ӬӠήӠ͠ӬԠ ŠӠԠ͠Ȭ̮ӠЬӠخӠƬʮӠύӠԮӬϮӠŠάӠخӠŬӠԬؠΠԮϬӠŬӠȠƠԬΠϠύӠŠӠנǬӠӠӠˬʮӠΠϬخӠΠ΍ӠԬϠˠӠ̮ӠĬҮӠٮˠҬˠˠ̮Ӡì٠ˮӠ̠ӬӠӠӠàӬӠӠӠǬŠԠ̮ӠӬϬ̮ӠìΠʮӠˠϵӠΠŭŬĠɮӠӠӬĠӠӬΠîӠȬĠԮŬٮӠ޳Ҡ̮Ӡ׭̬ٮӠӠήȠӠ̬ӠάˮӠάŮӠӠҠŬӠخӠӠ٬ϮӠάΠˮӠҠԮ̮ͭŬ̮ͭͭˮͭӬήͭ٬̮ͭŠ٬ͭ͠ϬƠ̠ͭĮͭӠ٠ϮͭӠӬ֮ͭӠӬĬȮͭҬϮͭҬϮͭԮŬ̮ؠͭάȮͭͭϬַ̮ͭЯ͠ìӠӠĭҬɮӬؠڮ٠Ӡ͠ƠӬΠ٠ٮЯ͠ӬΠɮЯ͠ϠάΠήЯ͠Ԭɠ٠Я͠ˠˬŠɮЯ͠Ƞά̠ˠɮЯ͠Ӭ٠ЯͱЯͬ͠Ϡ̮Я͠ӬŠˠ̮Я͠ӬĠʮЯ͠ӬҠٮЯ͠ӬҠàЯ͠àŠԬ̮Я͠ħӠ͠îٮЯ͠ˠŠٮЯ͠ӬǠĠٮЯ͠ӬЯ͠Ӡ٠ӬŠĮàŭʮӬԮӠϮӬîЯ͠Ǭ̠٠ĬԮӠϬ̮ӭԠŠ̮ͭŠ٬ΠӠĬήӠϬӠӠԠӠԠĮӠ׬ĠҮӠȬӠ٠ӠԬɮӠӬ̮ɮٮӠ̮ɮРìǠĠٮCTERS,","BACKSPACE INSERTS BACKSPACES (STRANGE)"8} @d "PMMI MODEM TESTER","1(703)750-0930"  "POTOMAC MICRO-MAGIC INC.","P.O. BOX 11149","ALEXANDRIA VA 22312","VOICE: (703)750-3727"," ","COMMUNICATIONS TEST AND SALES PITCH FOR","THEIR NEW S5" i @At "NEW ENGLAND COMPUTER SOCIETY","1(617)897-0190"u "P.O. BOX 198","BEDFORD MA 01730","SYSOP: DAVE MILTON","(617)493-3154 (WORK)","(617)484-6275 (HOME)"," ","ONLY AVAILABLE NIGHTS AND WEEKENDS"0v "REQUIRES A '7F' TO DELETE CHARAӠϠӠŠӠҠ΍Ӡ̠͠ƠԠō Ӡ̬ԠǠŠĠ̠ˍϠ٠ĠӍŠĠ٠ӠԮӠϮŠӠΠĬԠٮӠƠӧŠͬŠŠҠȬͭӠԮӠϮӠǬΠŠҠŠҠŠҠàϠàîӠȠ͠Ϡ̮ӠάîӠǬĮӠŬӠ٬ʮԠΠĬɠɮӠӬήӠΠ٬ΠϠӠϠϬӠΠϬ͠ӠԠ٬ĮӠԬԠخӠӠӬӠנĠЮîĠŠ٠ŬΠŠϭΠήʮӠƪǭԠԭӠԮӠϮԭӠŠӬԭӠàӬӠӠ٠ϮŬŠɮ̠ͭԮӠɮͮϮͮΠٮͭӬخجҠǠĮ٠ҬΠϠύԠͭάʮͭ٬ΠͭĬͭӮ * TELL 'EM WHO'S WHO * * * ***********************i(*IS0:300: IN#0~(*PS0:200: PR#0(+::9:7( +"MICROMODEM ]";(91);" AUTO DIALER"(+13( +6(*+"COPYRIGHT 1979 BY BILL HYDE"(4+23(>+8)H+"TOU ***********************'''NN$"A"/'$':6'.'2M'8'MS2: MM SLOT # e'B'NK14: MAX REMARKS'L'NN20: MAX #S PER PAGE'V'N$(NN),N1$(NN),K$(NK)'`'255'j'T(* *********************** * *E OR ARE OUT OF NAMES (OR BOTH)-& F&N$"@"NN$"A"5015\&20000: f&5020r&':::'' *********************** * * * INITIALIZATION * * * * * ***********************L%10000: INITIALIZEc%700: REWIND DATAw%100: GET NAME%N$"@"5060%500: DISPLAY SUB%(NN$)(("A")NN)5020&& WE HAVE HIT THE END OF A PAG689-3234"3$B"CRAIG CROSSMAN AND MIKE FERRIS ARE"]$D "SYSOPS. HOURS ARE 6PM-8AM MON-FRI"y$F "24 HOURS SAT & SUN."$I @$ @4% *********************** * * * MAIN PROGRAM LOOP * ONE IS 1-563-6234 EXT. 314 OR 357."+#  @a#" "FORUM-80 FT. WORTH, TEXAS","1-(817)-923-0009"#$ "SYSOP IS ALLEN DICKEY."#* @#, "PBS NEW YORK","1-(800)-424-8652"#4 @#6 "DACS-W ????","1-(800)-424-8561"#> @ $@ "WEST PALM ABBS","3)821-7364"" @>" "ORANGE COUNTY ABBS","1(714)898-1984F" @h" "S.J.C.A.","1(609)665-8881"p" @" "FORT LAUDERDALE ABBS","1-566-0805"" "FRANK CONFORTI IS SYSOP."## "HOME NUMBER IS 1-941-7252","PAUL MANN IS A.C.E.S. EDITOR","PH8 ! @3! "CHICAGO FORUM-80","1(312)925-0259! "B.P. ALLEN IS SYSOP","SMALL BUSINESS SERVICES","4348 WEST 51ST ST","CHICAGO,ILL. 60632"! @! "TELENET","1(800)424-9494"! "INTERSTATE HOOK-UP"! @ " "MARINA-DEL-REY ABBS","1(21.B.B.S.",1-821-74014  "SOUTHERN MICROCOMPUTERS"P  5901 N.W. 151ST. ST.l  MIAMI LAKES FLORIDA.  PH.- 558-5826  VICTOR SPEEB  MIAMI-APPLE-USERS-GROUP  FIRST MIAMI A.B.B.S.! M.A.U.G.- PRES.- STEVE PIERCE 1-595-872STON ABBS","1(713)977-7019"#w @Nx "HAWTHORNE CA ABBS","1(213)973-8840"V @ "SAN ANTONIO TX ABBS","1(512)657-0779" "BILL HYDE","VOICE LINE: 657-3210","STANDARD ABBS" "ACTUALLY LOCATED IN FRATT,TEXAS" @  "MIAMI A65-0961"!G "6/3/79:NO ANSWER")O @YP "FORUM-80 (KANSAS CITY)","1(816)861-7040"aY @Z "LONG BEACH CA ABBS","1(213)428-4718"[ "JOHN LENZ"c @d "PEOPLE'S MESSAGE SYSTEM","1(714)449-5689"e "SAN DIEGO CA"m @n "HOU346"63 "HAVEN'T GOTTEN AN ANSWER ON THIS ONE YET"c4 "6/3/79:ANSWERS BUT DOES NOT RESPOND"k; @< "FRESNO CBBS","1(209)638-6392"= "FORMAT IS 'HELLO-ID#,PW',> "GOOD LUCK, YOU'LL NEED IT"E @F "SAN DIEGO SYSTEM","1(714)5TWEST","1(503)646-5510" "BILL MARX & JIM WILLING","C/O CBBS/NW","1346 NE 28 TH","PORTLAND OR 97232","24 HOUR VOICE: (503)288-9695 (RECORDER"' @( "KANSAS CITY COMPUTER CLUB","1(816)737-1031"1 @2 "MAYNARD MASS CBBS","1(617)897-0ER","L80.COM - LINKER","R10.REL/FORTLIB.REL - LIBRARIES"@ @q "TRS-80 KANSAS CITY BBS","1(816)861-7040" "YES, IT REALLY WORKS...." @ "ED MAGNIN","1(213)329-3715" "YOU CAN LEAVE A MESSAGE FOR ED." @ "CBBS/NORH "ATLANTA COMPUTER SOCIETY"& @Q "REMOTE NORTH STAR","1(404)939-1520"c "LES FREED" "BULLETIN BOARD AND PROGRAMS" @ "LARRY HUGHES","1(404)325-0526"8 "RATFOR.COM - TRANSLATOR","RATFOR.DOC - USER INFO","F80.COM - COMPIL-100 MODEM." @D "MICRO-PHONE (M.U.S.E.)","1(301)661-8962" "MICRO USERS' SOFTWARE EXCHANGE","FEATURES BULLETIN BOARD, SOFTWARE DEMO","AND ON-LINE ORDERING." "ALTERNATE NUMBER: 661-8963" @ "ATLANTA CBBS","1(404)394-4220""IF DESIRED. SINCE THE LEGALITY OF MOVES"X(#"IS NOT CHECKED, THE NORMAL MOVE SYNTAX"#"MAY ALSO BE USED FOR THIS PURPOSE...."#:T$"";Y$:Y$"END"ĺ:2200$93000uE(222)uE532300uE255Ā\v"ERROR #";Ed812 SAN PEDRO SAN ANTONIO TX 78216 (512)828-0553 e3^ VERSION 5/13/79{3_ NUMBERS 6/14/79 U SAN ANTONIO, TX * ***********************2J THIS PROGRAM MAY BE REPRODUCED WITHOUT SPECIFIC PERMISSION IF THIS COPYRIGHT NOTICE IS RETAINED IN THE COPY O3T BILL HYDE C/O THE COMPUTER SHOP 6 * * DELAY N SECONDS * * * ***********************h1 vI1Nu1*vJ0609|14vJ1>vI1Hv22@ *********************** * COPYRIGHT 1979 * * BILL HYDE * *S0:200: PR#0I0uIS2:300: SEL ECT MICROMODEM FOR INPUT y0u(1912MS),142: ACTIVATE TERM, FULL DUPLEX0u(1784MS),0: ENABLE LOWER CASE0v:34,00 v]1v *********************** * uA$"RETRY":600$/uA$" "301307/u30000: RETRY/u *********************** * WE HAVE CARRIER, SO * * TURN IT OVER TO * * MICROMODEM & USER * ***********************/u(1656MS)128301000uP30240 .u&.u(1656MS)127ī30160.u *********************** * NO CARRIER DETECTED * * MICROMODEM HUNG UP * * TURN OFF MM & QUERY * ***********************.uPS0:200: PR#0.u(7);(7);(7);(7)/************ * * * DIAL MICROMODEM II * * * ***********************-:u34,CV-DuPS0:200: PR#0-NuIS0:300: IN#0-XuPSMS:200: SELECT MICROMODEM FOR OUTPUT-bu-lu(17);N1$;.vuN7:--------------------"%,N"REMARKS:"1,NI1NKF,OK$(I)"@"20260Q,OK$(I)X,OIq,$O ALL PRINTED OUT,.O"---------------------------------------",8OCV(37),BOA$"DIAL":600,LOA$" "20290|-0u ***********ON $+NW(A$)("A")D+NW0(A$)((NN$)1)20010J+Ny+N"---------------------------------------"+N+NN$(W)+N:"NUMBER: ";N1$(W)+N700: RESTORE DATA+N100: READ+NN$N$(W)20180,N7:"-------------------(A$"A")((A$)("A")NN))200104*>NA$" "20090Q*HN RESET FOR NEXT PAGE~*RNN$"@"İ700: RESET DATA FOR WRAPAROUND*\NNN$"A"*fN:2*pN+zN WE HAVE A SELECTION, NOW DETERMINE WHICH ONE AND TAKE ACTICH SPACE TO CONTINUE "; )R+630&)\+-)f+23)p+) N *********************** * * * SELECTION * * * ***********************)*NA$"PAGE":600!*4N(A$" ")(E DPR#1" D$"MONI"/ D$"OPEN"F$;D$"READ"F$9 250K C$:C$;:180\ D$"CLOSE"F$i "PR#0"o  , M BOB SANDER-CEDERLOF 6 REVISED BY DAVID SPRUNGD ::12dD$(13)(4)cn"INSERT DISK WITH YOUR TEXT FILE":"IN THE APPROPRIATE DRIVE."o:"TYPE 'GO' WHEN READY ";G$:G$"GO"111s"CATALOG"tx"ENTER FILE NAME ";F$z:"DO YOU WANT A PRINTOUT?";P$ ~P$"Y"P$"YES"ĺ"  ) ,,-)-L89C67`=B BɍFA   B`AA B`)`) `8967`I L ) ,,-)-L89C67`=B BɍFA   B`AA B`)`) `8967`# a(Ġͮ)M(Q#A$CR$4600 0A$EF$50000 I$I$A$:4300F :D$;"WRITE ";F$N \I$X 4050c :400w D$;"CLOSE ";F$ P"FILE RECEIVE" 35001 :1800 X(222):216,0-  400:500< X59000S 700:EF$;EF$:500f H :"FILE SENT" 600:1912MSLOT,82 F$ B700:RE$ t900  D$;"MON O" X(0) 500:600 hI$"" 1912,134:16382256MSLOT A$:D$;"OPEN ";F$3 "SEND OR RECEIVE?(S OR R)? ";I$D I$"R"4000V xI$"S"1200a 3000s 1912MSLOT,2} @2300 700:400 :D$;"READ ";F$ lI$"" A$:A$CR$2200 4I$I$A$:2000 D$;I$ 500:600 ` A$:A$AK$2400" TEXT FILE TRANSFER ROUTINE.dMSLOT3MD$(4):AK$(6):CR$(13)dEF$(3):RE$(18)zD$;"NOMON I,O,C",500:3500D$;"IN#0":D$;"PR#0":XD$;"IN#";MSLOT:D$;"PR#";MSLOT:400:500"FILE NAME? ";F$ L   z #???   ԠŠĠĠԠɠ ͠ƠԠ!͠ƠԠ͠"͠ŠĠ͠ԠŠҠ̠ͮͮ ͮؠ ͠Ϡ͠Ϡ͠ ̠͠Ϡ͠Ġ͠ŠР͠͠Š Ϡ àϠŠӠ>͠͠ˠ͠ϠҠ-͠Ӡ#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "      Ӡ]ӠΠՠ]ԠԠԠ ]ΠӠˠӠQfx]]à]٠ĠĠ]Š]Ŭ٠] ] M6o,P%@a(ŠΠŬî)TUVWY hM6|a()Q] ]ĮϠˠ &S(Ϡ̠ǠӠ)&@ M6ca() Q&a()QĠӠ٠)cpa(ŧ̠ΠҠŬĠȠ٠ˠŠՠŠ͠Š٬ȠҠӮ)0cDP%Xa(ŠΠŬî)lP a(Š)P a(Ŭ٠)cĠŠƠŠӠŠӠĠՠĠͿŠՠΠˠŠӠϠŭ).a(Š٠ͿΠ٠Ů)cTa(ŠĠŠϠԠҠħӠҠӠϠ٠ĠŮ)P#a(ŬDx]]à]٠ĠĮ]Š]Ŭ٠] ] M6cc,P @a(ΠΠ)TP&ha(ŠӠĠŠ)|c|a(ӠՠŠ   ̮ӠԠΠȬΠ̮ӠîֱĠ̮ӠɠҬŠ̮ӠӠŬ̮ӠŬӠ̠ϠخӠԠŬӠΠȮӠҬϮӠԠ٬ؠڮӠԬɮŬɠȮӠҠŬϠȮӠҭϠͬӠ٠ϮӠŧӠϬӠخӠҠͬŠŠӠӠҠ¬ӠήӠҠͬϠ̮ӠҠҠӠĬӠخӠҠҬ̮͠ӠҠҬϠخӠҠͬӠӠΠӠʮӠŬӠĠȮӠĬΠӠ̮ӠάӠǠάȮӠŠЬɠ̮ӠʬдӠŠŬΠȠӠӠӠӠҠŬӠŠҬӠӠ֮ӠŠРήʮ٠ʮӠŭĬ٠ӠŠĬŠӠŠŠɬҠӠŠŠɬҠӠŠά©ӠΠȮӠͬΠȮӠΠ̠ЬΠȮӠӠӠάӠخӠӠ¬̠ӠӠӬӠӠɬϠȮӠîŮӮԮŠ̮ӠǭʬʮԠҠҠٯΩٍàӠŠӍԠĠӠ Яͬٮ                    ӠӬîA]͠٠ŠĠӠǠӠԠӠԮ]Ԡ!]ĮîӠӬîoP a@E()E@oP( `@9@@9@$  _ ~a@E@E@GT UVW2 dҲe  dҲe UVWdY dҲe H dҲe UVWdYY ta@ ~<_ (#]Ԡ )#]Įî`;@r$`@*#r:()$ @S(ŠҠϠǠ)&@@p@*#r@p@*#r lM6*o a@E(̠ǠԠ)E@E()E@4oPa(Šנ)~S()&@@p@*#r` @p@* # r) ~q]Šq]͠&XҲq6{?]͠@p()@p()@p() M6a(Š͠)c~S()&@ L~a(ŠנӠ)E@$cS(ŠҠ͠Ⱥ͠)&@x"]Š͠ˠ]ΠŠɠҠ]Ǡ͠ɠĠ]Šˮ]Π٠Π]Ԡ ]ĮîӠӬîd]N@"rC@" rC@"r,N@"rC@"rC@"r    INSKY"K @5L "PASADENA CBBS","1(213)795-3788"NM "6/3/79:NO ANSWER"VU @V "COMPUTER INFORMATION ASSOCIATES","1(404)289-5538"W "USE ACCT #: 34,50","PASSWORD:COBOL","LOAD HELP","RUN"_ @` "WASHINGTON D.C. CBBS","1(703)281-212ICE NUMBER:1(312)729-5729"," ","LOG 100,100","WHEN ASKED PASSWORD RESPOND: ALPHA"Y7 @8 "SAN DIEGO APPLE CORPS","1(714)697-7743"9 "NON-STANDARD ABBS, PROGRAMS ONLY"A @B "THE 'ORIGINAL APPLE CORPS' ABBS","1(213)340-0135"C "JOE ALUP"  @2 "BOSTON CBBS","1(617)963-8310":# @w$ "SOUTH JERSEY ELECTRONIC MAIL SYSTEM","1(609)665-8881"% "LOGIN:HEL-I999,MAIL"- @. "CHICAGO ALPHA COMPUTER SYSTEM","1(312)729-9374"Q/ "ALTERNATE NUMBER:1(312)729-9375","VO CRAIG VAUGHN","AND DAN PAYMAR ARE ASSOCIATED WITH THEM"A @f "DALLAS CBBS","1(214)641-8759"{ "BILL KENNEDY" @ "CHICAGO CBBS","1(312)528-7141" "WARD AND RANDY","ORIGINAL AND FIRST CBBS" "6/3/79:ANSWERS BUT THEN HANGS 4)582-9557"N "5107 EL CAJON BLVD","SAN DIEGO, CA","VOICE: (714)583-3963"W @ "PERIPHERALS UNLIMITED INC","1(213)424-3506" "2633 E. 28TH ST. STE 622","SIGNAL HILL CA 90806","VOICE:(213)595-6858"8 " ","DISTRIBUTORS OF THE ABBS,# "BILL BLUE","1(714)449-5689"E "VOICE LINE: (714)449-4222" "SYSOP FOR THE COMPUTER MERCHANT","THIS IS HIS PRIVATE ABBS." "LOCATED IN SAN DIEGO.", "HAS ON LINE GAMES AVAILABLE." @  "THE COMPUTER MERCHANT","1(71 ARE CALLING. AFTER THE LAST ENTRY MSUT BE A @ EG. 1099 DATA "@" THE @ MUST ALSO APPEAR AFTER THE LAST ENTRY IN THE LIST OF NUMBERS TO TELL THE PROGRAM THAT THAT'S ALL THE DATA. EG. 4999 DATA "@"    INPUT DATA IS COMPOSED OF THREE SECTIONS FOR EACH CASE: (1) NAME - ALPHA STRING (2) PHONE NUMBER (3) REMARKS O REMARKS MAY CONSIST OF UP TO 14 LINES OF INFO ABOUT THE COMPUTER YOU CONVERSION TO DISK STORAGE IF DESIRED MS *********************** * * * INPUT DATA FORMAT * * * ***********************A$)131 (A$)279999!   *********************** * * * RESTORE DATA/REWIND * * * ***********************G INCLUDED AS A SEPARATE SUBROUTINE FOR EASY *********************** * * * ASK USER'S CHOICE * * * *********************** b23:958 l" SPACE=";A$;", RETURN=RESTART, ESC=END ";(8); vA$:A$ A$""A$(7) (*********************** * * * PRINT LINE OF MENU * * * ***********************  NN$;" ";N$ N$((NN$)("A"))N$ N1$((NN$)("A"))N1$ &NN$((NN$)1) 0 X *** (4);"PR#";PS , *********************** * DO AN IN#IS * * CHANGE TO IN#IS IF * * DOS IS NOT ACTIVE- * *********************** 6(4);"IN#";IS @  : PHONE# I1NK* K$(I): REMARKS; K$(I)"@"ıB IT "DATA ERROR"Z  *********************** * DO A PR#PS * * CHANGE TO PR#PS IF * * DOS IS NOT ACTIVE- * ********************}+11000: PRINT GREETING*:5000d *********************** * * * READ NAME, ETC. * * * ***********************i nN$: NAMExN$"@"ı N1$               IGNATED PIECE IN A"6l " PARTICULAR POSITION."c "HELP - PRINT THESE INSTRUCTIONS AGAIN"~4!"STOP - END THE GAME"!:"HIT RETURN WHEN READY";Y$:!"THE 'PUT' COMMAND CAN BE USED TO HELP"`""CREATE A CERTAIN BOARD CONFIGURATION"*"SPLAY AFTER MOVES ON"B"PRINT- PRINT THE CURRENT BOARD OUT TO"bx" SLOT # N.........""TALK - INTERRUPT GAME & GO INTO TALK "@" MODE, RETURN TO GAME WITH 'END'""CLEAR- CLEAR THE BOARD OF ALL PIECES" "PUT - PUT A DES0 "SAVE - SAVE THE GAME TO A DISK FILE"O"START- BEGIN A NEW GAME"|"LOAD - DISCONTINUE GAME, LOAD ANOTHER"L" FROM DISK........""BOARD- DISPLAY CURRENT BOARD""OFF - AUTO DISPLAY AFTER MOVES OFF""ON - AUTO DIAL."2" THE MOVE SYNTAX UTILIZES THE SHORT"bd"'ALGEBRAIC' NOTATION AS IN THE EXAMPLES:"o"D2-D4","O-O (KING'S SIDE CASTLING)""O-O-O (QUEEN'S SIDE CASTLING)":"HIT RETURN WHEN READY";Y$:X"OTHER COMMANDS AVAILABLE ARE:"LAYER IS THE 'CALLER', WHETHER IT BE"R "FROM ANOTHER APPLE OR SOME OTHER KIND"p"OF TERMINAL. THERE ARE NO GRAPHICS OR""SPECIAL CHARACTERS IN THE CHESS BOARD"8"DISPLAY, SO AS TO ALLOW THE USE OF ANY""KIND OF CRT OR HARD COPY TERMIND FOR TWO PLAYERS"?"WHO WISH TO PLAY CHESS OVER THE PHONE"l"THROUGH THE USE OF MODEMS ATTACHED TO"|"THEIR APPLE II COMPUTERS. ACTUALLY, IT""IS ONLY REQUIRED THAT ONE APPLE RUN THE"D"PROGRAM AS THE 'HOST' SYSTEM. THE OTHER"%"PN1)"BQ"M1M2:2200.M2M1:2200;\M1I8HM2I1$C$"O-O"B$(I,7)B$(I,5):B$(I,6)B$(I,8):B$(I,5)" ":B$(I,8)" "C$"O-O-O"B$(I,3)B$(I,5):B$(I,4)B$(I,1):B$(I,5)" ":B$(I,1)" "4500P"THIS GAME WAS DESIGNE$:3600L<O1(C$)64:O29((C$,2,1)):N1((C$,4,1))64:N29((C$,1))~O11O18O21O28N11N18N21N282300 MOVE PIECEShB$(N2,N1)B$(O2,O1):B$(O2,O1)" "B$(N2,N1)"WP"N21B$(N2,N1)"WQ"0B$(N2,N1)"BP"N28B$(N2, ";S:" RETURN SLOT#? ";S2:D$;" PR# ";S:1800:D$;"PR# ";S2::2300bH C$"O-O"C$"O-O-O"4700v C$"PUT"3900"WHICH PIECE ('END' IF DONE)? ";P$:P$"END"ĺ:2200tP$""P$" ""POSITION? ";N$:N1(N$)64:N29((N$,1)):B$(N2,N1)PJ18:B$(I,J)" "::::2200> C$"START"ĺ:1100::2200l T C$"STOP"C$"END"C$"QUIT"C$"EXIT"Ā C$"LOAD"İ700::2200  C$"SAVE"İ900::2300 C$"HELP"ĺ:6400:"HIT RETURN WHEN READY";Y$::2200D C$"PRINT"Ą"PRINTER SLOT#?J18:B$(I,J);"!";:::" ";:K125:"-";:::9 4K DFĺ:1800:o "YOUR MOVE, ";N$(M);:"?";C$ ` C$""2300 C$"BOARD"ĺ:1800::2300 C$"OFF"DF0:2300  C$"ON"DF1:2200 ( C$"TALK"ĺ:9300 C$"CLEAR"āI18:? ";N$(I):::N$(1);", YOU SHALL BE 'WHITE'":"AT THE BOTTOM OF THE BOARD" @:N$(2);", YOU SHALL BE 'BLACK'":"AT THE TOP OF THE BOARD..." :I13000::M1:2200 " -A -B -C -D -E -F -G -H" l" ";:I125:"-";::3 I18:9I;" !";::M:N$(1):N$(2):I18:J18:Q1$B$(I,J)Q1$:::D$;"CLOSE":r LJ18:B$(2,J)"BP"::J18:B$(7,J)"WP": I36:J18:B$(I,J)" ":: Y$"B":I187:J18 xB$(I,J)Y$(S$,J,1)::Y$"W"::K :I12:"PLAYER #";I;:", YOUR NAMEMOVE? ";Y$:(Y$,1)"Y"DF1+ X700:2200o D$;"CATALOG"::"FILE NAME? ";F$:D$;"OPEN ";F$:D$;"READ ";F$ M:N$(1):N$(2):I18:J18:B$(I,J):::D$;"CLOSE": :"SAVE TO FILENAME? ";F$:F$""900B D$;"OPEN ";F$;",V0":D$;"WRITE ";F$(dD$"":D$;"NOMON C,I,O"::30000H:14);"MODEM CHESS":::x,N$(2),B$(8,8):S$"RNBQKBNR":Q1$(34):DF1"INSTRUCTIONS? ";Y$::(Y$,1)"Y"İ5200"IS THIS AN OLD GAME? ";Y$:(Y$,1)"Y"İ1100:1500 &"SEE THE BOARD AFTER EACH      ԠΧƠՠԠϠԠŠ)QŠΣϠӠ)'c*,a(Š̠ϠŠ)1c+6a(Š̠ƧϠԠ̠);c@a(Š̠)Ec)Ja(Š̠ѧϠԠ̠)Oc&Ta(ŠΠŠҠ)YcC^a( M6oG a(ҬՠĠΠ͠ϠϠϠǠҠծ)f a(ϠՠĠϠ͠ԠĠҠΠӠԠĠŮ) o S(ԠΠϠ)&@ M6o&"a(cia(ϠҠӠŠĠϠŠϠŠŠԠϠΠàҮ)cfa(Š͠Ӡ٠ϠҠˠ̠٠ĠΠҠӮ)o S(ԠΠϠ)&@)UVWY M6oPa()oRa(ŠĮîӠ͠ӠנԠΠŠ͠Ӯ)cia(٬Ԡ̠ҠŠŠҠՠҠԠ̠٠̠ŠŠҠծ)= N@"r M6% ]Ϡ͠ҠŠ]٠Ӯά#]٠ҠĠ (]2]<]dM6o /na(Π͠ҠŠ)xUVWY }M6o Pa(٠Ӯ     o|S(ҠŠҿ)&@`@9()$`@9()$a(Π)o͠ӠϠ̭РƠŠҬǠ٠Ů)o S(ԠΠϠ)&@ M6"~',a()]í6a()]í@a()]í!JS(ҠŠҺ)&@Ta()E@]í^~hr M6oG a(ҬՠĠΠ͠ϠϠϠǠҠծ)f a(ϠՠĠϠ͠ԠĠҠΠӠԠĠŮ) o S(ԠΠϠ)&@M6o \a(Ӡcia(ϠҠӠŠĠϠŠϠŠŠԠϠΠàҮ)cfa(Š͠Ӡ٠ϠҠˠ̠٠ĠΠҠӮ)o S(ԠΠϠ)&@)UVWY M6oPa()oRa(ŠĮîӠ͠ӠנԠΠŠ͠Ӯ)cia(٬Ԡ̠ҠŠŠҠՠҠԠ̠٠̠ŠŠҠծ)P N@"r M6% ]Ϡ͠ҠŠ]٠Ӯά#]٠ҠĠ (]2]<]dM6o /na(Π͠ҠŠ)xUVWY }M6o Pa(٠Ӯ     ӠӬî)F<#_#a@E(ң)F #a()#a@E(ң)T$a(Ԡҡ)%_']Ԡ ']ĮîӠӬîY]͠٠ŠĠӠǠӠԠӠԮ]Ԡ!]ĮîE@a@E(ң) q.?ұr`$(#`$ q.?r`$ de de M `$ dea@G_ q.?r`%q`%_M_(#`$# 2#q.?r7#ca(Ҭ() q6@q0dede#deLdede N@"ra( ̠)-S(ƠҠ̠ؿŠȠƠƮ)&@q`@9()%q`@:()$S(Šҿ)&@a@E(ң)Fa()] ̠]ΠŠɠҠ]Π٠Π]Ԡ ]ĮîӠӬî] d@p() iq nqsұq6z?xqұ }qxq6? q @p    1912SLOT,1642& 2040SLOT,FSWT "MICROMODEM II SETUP FOR REMOTE CONSOLE"~ "HELLO, THIS IS THE KLEIN RESIDENCE" S936 <10 FD$;"IN#";SLOT2 PD$;"PR#";SLOT8 UR Z SET FOR 70 MS DELAYm d AFTER CR/LF SEQUENCE~ n1528SLOT,7 s x SET OPTIONS ON MODEM LINE FEED INSERT TRANSPARENT MODE LOCAL DISPLAY LOCAL KEYBOARD ENABLE ! THIS IS A "HELLO" PROGRAM8 FOR THE APPLE IIT AND THE MICROMODEM IIm MODEM IS IN SLOT 3 GREETING-1 PROGRAM SLOT3: MODEM SLOT #FSW9: 7 DATA BITS, EVEN PARITYD$"": D$ = CNTRL D(D$;"NOMONI,O,C" 2  R. FOR ADDED PROTECTION." THE PASSWORD OR PASSWORDS TO BE USED...IF YOU ADD TO OR SUBTRACT FROM THESE THE NUMBER IN THE DATA STATEMENT MUST BE CHANGED TO REFLECT THE CHANGE....ALSO THE NAMES INCLUDED IN THIS STATEMENT CONTAIN A CONTROL CHAERATING IN"::14:13::"(REMOTE MODE)"::16:12:"TERMINAL ON LINE.":18:3:"WHEN SCREEN CLEARS YOU MAY PROCEED!":A17000:A:936:3:13:"REMOTE ON LINE!":L LINE 7 CONTAINS A DATA STATEMENT WHICH CONTAINS 5,CRAIG,CHUCK,MARTY,MARK,BOB:B19= "WRONG":B1:6f 936:12:13::"NOT ACCEPTABLE": :10)"TERMINAL DISCONNECTED" 22:(1);(26):A13000:A:4 936:3:11::"PASSWORD APPROVED"::12:11::"NOW OPD MICROMODEM ";(93);(91)::11)"ANSWERING SERVICE"::13)"(REMOTE MODE)":20::"******YOU MUST BE IN FULL DUPLEX******"::"YOU HAVE 20 SECONDS TO SET FULL DUPLEX!"::A116000:A:B0 24::"PASSWORD"::B$::C:D1C:C$:C$B$12) D: ;:15)"BOB FERGUSON";:40)"*":"*";:11)"COPYRIGHT--DEC, 1980";:40)"*":A12000:A:3:(1);(14):1915,4 936:11:14)"MICROMODEM ";(93);(91)::11)"NOW IN ANSWER MODE.":24:A$:(1659)12711 3:936:11:7)"APPLE ";(93);(91);" AN 10:"NOMON I,O,C"::A140:"*";:A:A222:A:"*";:40:"*":A:23:A140:"*";:A:8:"*";:17)"APPLE ";(93);(91);:40)"*":"*";:5)"MICROMODEM ";(93);(91);" ANSWERING SERVICE";:40)"*":"*";:16)"CREATED BY";:40)"*"o "*"     STRIBUTED AS LONG AS COPYRIGHT IS INTACT.? COPYRIGHT 1979,` D.C. HAYES ASSOCIATES,INC.N16MSLOT)21000* X(1624916MSLOT)3 700B D$;"PR#0"V LD$;"IN#";MSLOTt "CONNECTION ESTABLISHED" 1912MSLOT,12882 xI$  (#(154):D$;"PR#0" 'COPYRIGHT 1979, 'D.C. HAYES ASSOCIATES, INC.) PROGRAMS MAY BE DIaPROGRAM TO PICK UP PHONE3IN ANSWER MODELWRITTEN BY DON HYDEaCOPYRIGHT 1979,D.C. HAYES ASSOCIATES, INC.Z9000dMSLOT3D$(4),D$;"PR#";MSLOT1656MSLOT,128821X2040MSLOT,21 (16250  LOSE ";R$ 530(!"REM DONE!!!"5""PR #0"E$I0200:IP((20)`*I0200:Ii2540ox R$F2$D$;"OPEN ";RF$)$A112.600DL TOP OF LOOPMV650[`E11300gjA1A11xn12:1:958p"RECORD #";A11r530tL$vD$;"PR#0"~"";J$I$I$5401100 END IT ALL540 D$;"C611 D$216,02 WRITE TEXT FILEFD$;"WRITE ";W$NL$VD$\t GET READ FILENAMEH$"SEND A PROGRAM"S$"ENTER TEXT FILE TO SEND "936D$;"CATALOG""HIT RETURN TO CONTINUE";I$636RF$F1$6,0 yE1z768{6152| GET A FILENAME=}F1$""H~F2$""Q600Y12aS$gp611{F1$L$J(F1$)I1J((F1$,I,1))(44)ĂIF2$(F1$,1,I1) READ TEXT FILEE0D$;"READ ";R$ E=M*(C^2)mC(I)128anC0ı: LOOK WHAT I FOUND zoC13L$L$(C):Ipq CALLrE1ıs657tu ERROR TRAPvY(222): PEEK ABOU I SEE YOUwY5Ħx21$"": THIS BE THE LINE!f629Sg625: I DONT KNOW HOW IT DOES,BUT IT DOES ITh216,0: GRACEFULLY WE EXTRACT OUSELVES FROM THIS MESSiE1ıj EOF THIS WAY kI512767l THESE NUMBERS ARE INPUT BUFFER AREA DECIMAL#";S1 D$;"IN #";S1 ,  TURN OFF< D$;"PR #0"L D$;"IN #0"R "g X SCREEN ROUTINEm Yw Z936 [18 \"BLAST" ]T((40(H$))2.5) ^T _H$ ` aLC3 b c GET EXEC LINE dE0: ITS NOT EOF YETeL300 S(S$) 2008 , WE'RE LOOKING FOR CONTROL@ -S4O ."ST #300"X 6530h 8I0300:Is J(18) TI0300:I "PR #";S D$;"PR #0" "";J$ I$  NOW BLAST 540 "ST#500" 1000  TURN ON D$;"PR E PRECISE RESPONSES! P$(0)">"/ P$(1)"]"? P$(2)(91)a P$(3)(255): PUT YOURS HEREq "ST # 180" GET HISSLOTNUMBER "2 ST #200" S$"4":250 530 "WHAT IS YOUR COMM SLOT # ";S$ S(S$) 540 S$"0"S$"8"0,104 }771,166 ~772,223, 773,1548 774,72E 775,152Q 776,72] 777,96 GUESS WHO'S GONNA CALL 768 C9: WE DONT WANT TO GO OFF 1/2 COCKED S14: HOST APPPLE COMM SLOT P$(3): THRE7-0808 P PUBLIC DOMAIN9 Z IF YOU LIKE THIS PROGRAMK \ SEND ME ONEX d SET-UP fE$"NOT RECEIVING PRECISE RESPONSE " hF$(91) jF$;" BLAST" nA$(2000) xD$(04): CTRL(D) y BELOW IS EOF(MAGIC) z768,104 {769,168 |77q z ASSUMES MICROMODEM II IN SLOT 4.CHANGE LINE 136 TO S1=3 AND LINE 301 TO S=3 IF YOUR MODEM IS IN SLOT 3. WRITTEN 08/79 BY KENGABELMAN(THE BASIC COMPUTER SHOP22671 W MARKET STREET<FAIRL