' +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`NEW YORK-NY,40.7,-74.&S NORFOLK-NC,37,-76.3P&X OKLAHOMA CITY-OK,35.5,-97.5h&] OMAHA-NB,41.3,-96&b PHILADEPHIA-PA,40,-75.2&g PHOENIX-AZ,33.2,-112&l PITTSUBUR-PA,40.4,-80&q PORTLAND-OR,45.5,-122.7&v RAPID CITY-IA,44,-103.2'{ ROCK-AR,34.7,-92.32%! LOS ANGELES-CA,34,-118.2Q%& LOUISVILLE-AR,38.2,-85.7k%+ MIAMI-FL,25.8,-80.5%0 MINOT,48.2,-101.3%5 MINN-ST.PAUL,45,-93.1%? NASHVILLE-TN,36.1,-86.8%D NEWINGTON-ARRL,41.7,-72.7%I NEW ORLEANS-LA,30,-90&N .6,-93.6 $ DETROIT, 42.6,-83?$ GREAT FALLS, 47.5,-111.3[$ HOUSTON-TX,29.8,-95.6|$ INDIANAPOLIS-IN,39.8,-86.1$ JACKSONVILLE-FL,30.3,-81.6$ KANSAS CITY-KA,39.1,-94.6$ KNOXVILLE,36,-84$ LAS VEGAS-NV,36.1,-115.1% LITTLEM,33.5,-86.87# BOISE-ID,43.6,-116.2,BOSTON,42.4,-71S# CHARALOTTE,35.2,-80.8m# CHEYENE,41.2,-104.8# CINCINNATI,39.1,-81# CLEVELAND,41.5,-81.7# COLUMBIA-SC,24,-81# DALLAS,32.8,-98.8# DENVER, 39.7,-105$ DES MOINES, 41D" - THIS ROUTINE PRINTS BLANK LINES AFTER EVERY 55 LINES OF DATAJ"P"V"\"b"h"n"t"|"K0""3:5);"LOS ANGELES -- 34 N. -118.2 N"" ANCHORAGE,61,-150,ATLANTA,33.75,-84.4 # BANGOR-ME,44.8,-68.8,BIRMINGHA6504!&CT$"CALCULATES GREAT CIRCLE BEARINGS":1650e!+CT$"IN STATUTE MILES AND KILOMETERS ":1650!:21:" PRESS THE 'ESC' TO END"!?22:"< PRESS THE SPACE BAR TO CONTINUE...>"!D(16384)1551690!I(16384)1601855!N16368,0:::1650  *  TITLE PAGE ROUTINEW 3:CT$"* GREAT CIRCLE BEARINGS *":1650u CT$"BY JOHN HEISE":1650 CT$"NOVEMBER 1977":1650 CT$"DONATED BY WILLIAM R. DIAL":1650 !CT$"AKRON OHIO USER GROUP":1650!#CT$"SEPTEMBER 1979":1R22701700R290&17009@(L)1781640GEBA1630QJR20[T1700g^R2180qc1700hBA1630m1610r PRINT CENTER ROUTINEw20(CT$)2|CT$"" 16368,0:::10:CT$"* * * THE END * * *":(A1)(B2)(B2)(A1)0R4((1R3R3)R3)IR6(B2)(L)(R4)WX11240l(R6)(R)1230~R2360(R2)1700R2180(R2)1700(R6)(R)1255R2180(R2)1700R2(R2)1700X11530))< -CONVERT BEARINGS TO DEGREES ROUNDED TO NEAREST INT[R2((R11803.14159).5) - DETERMINE WHAT QUADRANT THE BEARING ANGLE IS IN AND ADJUST THE DEGREES(R).9999981500(R).001741600B2(B.1)3.14159180R3(L).14159=n - DISTANCE ANGLE MUST BE POSITIVE IF NOT ADD 180LoP201145Vt1150eyP2P2180~} - COMPUTE DISTANCE~D1(P2601.15152.5)D2(D11.6093.5) - COMPUTE THE BEARING ANGLER(B1)(L)(P1)R1(R(1RR 1040LL360 1100- LL360;L01100DX1gL - CONVERT L AND B TO RADIANS}VB1B3.14159180[LL3.14159180_ - COMPUTE THE DISTANCE ANGLE`P(L)(A1)(B1)(A1)(B1)eP1((1PP)P)jP2P11803INTS CALCULATED? YES OR NO""*T$<T$"YES"705E250~ - 1000 SERIES SUBROUTINE PERFORMS ALL CALCULATIONSLL2L1 - X IS A FLAG FOR TESING LX0 - BRING L WITHIN RANGE -180 TO 180L1801025L1801035"B7"ENTER LONGITUDE OF DISTANT POINT."?L2I1000O"DISTANCE FROM ";W$;" TO ";M1$;" IS ";D1;" MILES.""THAT DISTANCE IS ";D2;" KILOMETERS.""BEARING TO ";M1$;" IS ";R2;" DEGREES." "DO YOU WANT OTHER PO6502000640 )250 THE 700 NUMBERED STATEMENTS MAKE UP THE ROUTINE TO CALCULATE USER ENTERED COODINATES ONE AT A TIME10"ENTER DISTANT LOCATION DESIGNATION"M1$"ENTER LATITUDE OF DISTANT POINT."----------------------------------------"6KK1AJJ1NM$,B,L2dM$"ENDATA2"696n1000J;5);M$;15);B;"/";L2;25);D1;31);D2;37);R2K18ľZ$:K5ĺK18K0:K10ĺK15ĺ650K18K0:,19,TN,-5,15,TR,0,10,TT,12,16\6 TU,5.5,-4,TY,6,2,TZ,15,-3,UA1-F.J.L.,80,55,UA-MSCW,56,336 UA2,55,20.5,UA9,57,60,UA0-NOVOS.,56,92,UA0-IRKUT.,52,114,UA0-YAKUTSK,62,130,UB5,50.5,30.5,UC2,54,27.57 UD6,40.5,50,UF6,42,45,UG6,40,44.5,UH8,38,58,UI8,4.5,-29.5,PY0-TR,-21,-29,PZ,6,-55R5 S2,23.5,90.5,SM,59,18,SP,52.5,20.5,ST,16,325 SU,30,31,SV-CRETE,34.5,25,SV-GR,38,24,SV5,35.5,285 SY-MT.A,41,25,TA-CTR,40,32.5,TA1-EUR,41,295 TF,65,-21,TG,15,-90.5,TI,10,-84,TI9,5.5,-876 TJ,4,11,TL,5LX,50,7,LZ,43,23,MI-SEE-9A,44,12O4r OA,-13,-77,OD5,34,35.5,OE,48,16,OH,60,254w OH0,60,20,OJ0,61,20,OK,50,14.5,ON,51,4,OX,73,-404| OY,62.5,-8,OZ,55.5,12,P29,-9,147,PA,53,5,PJ,12,-694PJ8,18.5,-63,PY,-16,-47,PY0-F.DM.,-3.5,32.5 5 PY0-ST.P,,KJ6-JOHN,17,-168,KL7,61.2,-149.8P3Y KM,28,-178,KP4,18.5,-66.5,KP6-KIN,6,-1623^ KP6-PAL,7,-162,KR6-DEL,26,128,KS4-SWAN->HK0,17,-833c KS4-SERR,14,-80,KS6,-15,-169,KV4,19,-64.53hKW6,19.5,167,KX6,9,168,KZ5,9,-79.5,LA,60,10.5 4m LU,-34.5,-59,Y,32,36,K1-K2,42,-74S2@ K3,40.5,-76,K4,34,-82,K5,33,-97,K6-SF,37,-122,K7,40,-1442EPAUSEI14000::"TO CONTINUE HIT ANY KEY";:A$2J KC6-EAST,10,139,KC6-WEST,8,160,KG4,20,-752O15:"WHAT IS YOUR LOCATION (HOME QTH) ? "W$!3T KH-KURF,28,-178AL,4,-81>1' HK0-SAN-A,12,-82,HL,38,128,HP,9,-80,HR,13.5,-87p1,HS,13.5,100.5,HV,41.5,13,HZ,24.5,47,I,41.5,1311 IT,38,13,IS,39,9.5,JA,35.5,140,JD-OGA,27,13716 JD-M-T,24,154,JD-OKINO,25,132,JT,48,107,JW-SVAL,77,142; JW-BEAR,75,19.5,JX,71,-9,J16,55/0 VK5,-34,139,VK6,-31,116,VK7,-43,147k0 GJ,49.5,-3,GC,49.5,-3,GD,54,-5,GI,55,-6,GM-SCOT,56,-30 GM-SHET,60.5,-1,GW,51,-4,HA,47,19,HB9,46.5,8.50 HB0,46,10,HC,-.2,-79,HC8,0,-90,HH,19,-72,HI,19,-701" HK,4.5,-74,HK0-BAJO,16,-78,HK0-M.5,FH8MAYOT,11,43,FH8COMD6,11,43f/ FK8,-22,167,FL8,11,42.5,FM8,14.5,-61,FO8-CLIP,10.3,-109.5/ FO8-TAHITI,-17.5,-149.5,FO8-GAMB,-23.5,-135/ FP8,46.5,-55.5,FR7-GL,-11,47,FR7/J.DE.N,-20,400  FR7-EU,-22.5,40.5,FR7-REUM,-21,56,FR7-TROM,-5,8,DM-EAST,53,13,DU,15,121R. EA,40.5,-4,EA6,39.5,3,EA8,28,-17,EA9-CEUTA,36,-7. EA9/R-DEL,25,-14,EA9/S-DEL,25,-14,EA0->3C,1,10. EI,53,-7,EL,6,-10.5,EP,36,51,ET,9.5,39,F,49,3. FB8Z,-38,77.5,FB8W,-46,51,FB8X,-49,70,FC,41.5,9&/F67,16,61,-16,-68.5,CR3,12,-16D- CRA->D4,15,-24,CR5,.3,7,CR6->D2,-13.5,16t-CR7C9M,20,35,CR8Ʌ,9,125,CR9,22.5,114.5- CR10-DEL,-9,125,CT,38,-9.5,CT2,37,-27 ,CT3,33,-18-CX,34.5,56.5,D2A,13.5,16,D5,15,24,D6,11,43. DL-DEL,50.5,8,DA-WEST,50.AC4-DEL,29.5,91.5,AP,29,69R, BV,25,121.5,BY-N,40,116,BY-CTR,36,104,BY-S,22,115, C21,-.5,168,C31,42,2,C5A,13,-17.5,C6A,25,-77.5, C9M,-20,35,CE,-33,-70,CE9-ANTR,-90,-90, CE0A,-27,-109.5,CE0X,-26,-80,CE0Z,-34,-80- CM,23,-82,CN,33,-8,CP3.9,151.13+TOKYO,35.8,139.8,TORNONTO,43.6,-79.3^+VANCOUVER, 49.2,-123.1,WARSAW,52.2,21}+WELLINGTON-NZ,-41.5,174.8+$WINNIPEG,49.9,-97.1+ ENDATA1,1,1+ A2,-24,26,A35,-20,-174,A4,23,58,A6,25,50,A7,25,51, A9,27,50.5,AC3->VU,27,89,9,10.8-* PARIS,48.9,2.3,PEKING,39.8,116.5 U* PRAGUE-CZ,50.1,14.4,QUITO,-.5,-78u* RIO DE JANERIO,-22.9,43.2* ROME,41.9,12.5* SAIGON,10.8,107* SAN JUAN,18.3,-66* SANTIAGO,-33.5,-71,SEOUL,37.6,127 +STOCKHOLM,59.4,18,SYDENY,-3TANBUL,41,29&) JERUSALEM,31.8,35.2C) JOHNANNESBURG,-26.2,28Z) LISBON,38.8,-9.1n) LONDON,51.5,0) MADRID, 40.4,-3.7,MANILA,14.6,121,MEXICO CITY,19.3,-99.1) MONTREAL,45.5,-73.5,MOSCOW,55.8,37.7) NEW DELHI,28.6,77.2* OSLO,59.,100.71( BELGRADE,44.8,20.4,BERLIN,48.8,13.3 F( BOGOTA,4.5,-74w( BRUSSELS,50.9,4.4,BUENOS AIRES,-34.5,-58.5( CAIRO,30,31.2,CALGARY,51,-114( CARACHAS,10.5,-67( COPENHAGEN,56,12.5( GENEVA,46.2,6.1( GENEVA,46.2,6.1 ) ISST. LOUIS-MO,38.7,-90.36' SALT LAKE CITY,40.8,-112V' SAN FRANCISCO,37.8,-122.4s' SEATTLE-WA,47.6,-122.4' WASHINGTON-DC,38.9,-77' WICHITA-KA,37.7,-97.4' AMSTERDAM,52.4,4.9' ANCHORAGE, 61,-150( ATHENS,37.95,23.7,BANKOK,13.8WN, A TABLE IS PROVIDED WHICH LISTS"P"THE B-VALUES OF MANY COMMON OBJECTS."Z::"PRESS TO CONTINUE ";Z$&********************** DONATED TO APPLE PI  JULY, 1980  BY JAN BYBEE AND SCOTTURE "0"TIMES PRINTED IN A TABLE OF COMMON "["F-STOPS, OR THE EXPOSURE TIME FOR A"q"SINGLE F-STOP.":"IN ORDER TO PHOTOGRAPH AN OBJECT, ITS""BRIGHTNESS VALUE (B-VALUE) MUST BE""KNOWN. IF AN OBJECT'S B-VALUE IS UN-"$"KNOWHICH"'|"YOU WANT TO PHOTOGRAPH ";B-R(10)::"PROGRAM DESCRIPTION"::"THIS PROGRAM PROVIDES THE USER WITH ""EXPOSURE TIMES FOR PHOTOGRAPHING COMMON""CELESTIAL OBJECTS. THE USER MAY ""CHOOSE THE OPTION OF HAVING EXPOS"0.000002"6,:"MIDDLE OF ORION NEBULA";27)"0.001"Y6:"MOST NEBULAE";27)"0.0001"~@:"MIDDLE OF M-31";27)"0.0001"J:"MOST GALAXIES";27)"0.00001"T:"MILKY WAY";27)"0.00001"^1650h240r:"ENTER THE B-VALUE OF THE OBJECT "INNER CORONA";28)"50"9:4)"MIDDLE CORONA";29)"5"\:4)"OUTER CORONA";29)"0.5":4)"ECLIPSE SKY";29)"0.O1":4)"HORIZON (ECLIPSE)";29)"O.5"1650240::(10):"DEEP SKY OBJECTS": ":"PERFECT COUNTRY SKY";27) USE OF MEMBERS BY.. WILLIAM R. DIAL SEPTEMBER 1979..kA.' GIVEN TO LOS ANGELES A3' APPLE CORPS JAN 1980A8' LAST MOD. SEPT 1979 TO MEET CONVENTIONS.. BY LEROY LARSEN..AB'AL' 'GREAT CIRCLE'Aj'C29.5:@ 9V1-SING,1,104,9X,-2.5,30,9Y4-TR & TOB,10.5,-61L@ ENDATA2,2,2R@'k@' PROGRAM WRITTEN BY@' WA4VID, JOHN HEISE @' SUBMITTED BY@' WM. R. DIAL@' AKRON USER GROUP@'OA$' GIVEN TO APPLE CORE OF SAN FRANCISCO FOR 77,7O-ADEN,12.5,44.5A? 7O-SOC,12,54,7P8,-29.5,28,7Q7,-15.5,36p? 7X,36,3,8P6,12.5,-59.5,8Q,4,73,8R1,7,-59?8Z,29,47,9A1,44,12,9G,5.5,0,9H,36,14,9J,-16,28? 9K,29,48,9L1,8,-13.5,9M-EAST,1.5,110.5@ 9M-WEST,3,101.5,9N,27,85,9Q,-5,15,9U,-3,,-14,3Y,-54.5,3,4M->YV,10.3,-67Q>q 4S7,7,80,4U-ITU,46.5,8,4W,15.5,44,4X4,32,35>v 5A,33,13,5B4,35,33,5H1,-7,39.5,5H3,-8,35>{ 5N,6,3,5R8,-19,48,5T5,18,-16,5U7,13,2> 5V7,6,1,5W1,-13,-171,5X5,.5,32,5Z4,-1,37? 6O6,1.5,45,6W8,15,-17,6Y5,18,--ANT,-50,179,ZM7,-9.5,-171,ZP,-24.5,-58a=X ZS,-34,19,ZS2-MAR,-47,37,ZS2-P.E.,-46,38,ZS3,-22,18=] 1S,15,115,3A,44,8,3B7,-16,59.5=b 3B8,-20.3,55,3B9,-20,63,3C,11,-17,3CO,-2,6=g 3D2,-18.5,179,3D6,-26,31,3V8,37,10.3,3W8->XV,10.3,107>l 3X,9.55A,13,-17,ZD7,-16,-6I5B4,35,33,ZD3->C":VR1-PH.,-4,-171,VR1-GI,-4,176K:  VR2->3D2,-18.5,179,VR3/VR7,-1,-156l: VR4,-9.5,160,VR6,-25.5,130:VS5,5,114,VS6,22.5,115,VS90->8Q,4,73,VS9K-DEL,15,41: VU-BOMBAY,19.5,73,VU-ANA,12,92,VU-LACC,11,72;! VX/VY-VE,43,-60,XE,19.5,-99,XF4,1-63,VP2G,12,-61,VP2L,14,-61H9VP2M,17,-62,VP2S,13.5,-61,VP2V,19,-64.5|9VP5,21.5,-71,VP6->8P6,27,-78,VP7->C6A,25,-77.59 VP8-FA,-51.5,-59,VP8-GA,-53.5,-37,VP8-OR,-61,-459 VP8-SA,-58,-27,VP8-SH,-63,-55,VP9,32,-65,VQ9-CH,-7,71,VQ9-SEY,-4,55.5 43,-60,VK,-34,151O8 VK2-LOARD-N,-32,160,VK3-NEL,-38,145,VK4-WILLIS,-16,150{8 VK8,-12,131,VK9N,-29,169,VK9X,-11,1068 VK9Y,-12,97,VK9-MELLISH,-34,179,VK0-HEARD,-54,738 VK0-MACO,-54,159,VP1,17.5,-88,VP2A,18,-62,VP2D,15.5,-61.59VP2E,19,1,69=7UJ8,39,69,UL7,43.5,77,UM8,43,75,UO5,47,29,UP2,54,25t7 UQ2,57,24,UR2,59.5,24.5,VE/VO1,48,-55,VE1,46,-637 VE2,46,-71,V02,53,-60,VE3-CTR,50,-86,VE4,50,-977 VE5,52,-107,VE6,54,-113,VE7,55,-125,VE8-NE,70,758 VE8-W,65,-125,VE1-SABLE,o M6(o a(ɮîˠ)o Pa()UVWY a()Qo KNAPP  (**********************I$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""####### @ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  Q`@********************************RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRҠ PRW` @ @ @ @555K5R55`5#5n5u55ĤKRĝ`#nuīkkkKkRkk`k#knkukkrrrKrRrr`r#rnrurrKR`#nuKR`#nuCCCKCRCC`C#CnCuCCKR`#nuKR`#nu<<"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  Q`@********************************RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRҠ PRW` @ @ @ @jhfdb`^\ZXVjȨȖȄr`N<*VjS3SBSQS`SoS~SVjb3B"BAB`BBbVjq3a";;`;aqVj3"`V~jn3"`ťn~V|j\3"A`\|VzjJ3BQ`o~JzVxj8888r8`8N8<8*8xVvjvhvfvdvbv`v^v\vZvXvVBxLedcba`_^]\[eĤēĂq`O>-[eV6VDVRV`VnV|V[ed6D$DBD`D~Dd[er6b$<<`<-<|[{e{d{c{b{a{`{_{^{]{\{[@H    1 >HhHhLy`y 0Ѱ ȱɱ Ii 񈈩ȩ``@hH@8xxx (08@HPX`hpx     $$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""####### @ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  Q`@********************************RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRҠ PRW` @ @ @ @+ +ߙ߆s`M:'++< <܎w`I2<"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  Q`@********************************RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRҠ PRW` @ @ @ @   _ `   `` `  2Zz2bzZr"jʺz**RRښbrRڒ2BZZ‚Z:R #¨D ((*@D P`IjhHœ (BxL`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````@H    1 >HhHhLy`y 0Ѱ ȱɱ Ii 񈈩ȩ``@hH@8xxx (08@HPX`hpx    Z$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""####### @ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  Q`@********************************RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRҠ PRW` @ @ @ @   _ `   `` `  2Zz2bzZr"jʺz**RRښbrRڒ2BZZ‚Z:R #¨D ((*@D P`IjhHœ (BxL`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````@H    7 DHhHhLy`y 0ѐ Ii ȱɱ Ii `@hH@8xxx (08@HPX`hpx    Z$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""####### @ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  Q`@********************************RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRҠ PRW` @ @ @ @   _ `   `` `  2Zz2bzZr"jʺz**RRښbrRڒ2BZZ‚Z:R #¨D ((*@D P`IjhHœ (BxL`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````@H    7 D 7 HhHhLy`y 0ѐ Ii ȱɱ Ii `@hH@8xxx (08@HPX`hpx    Z$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""####### @ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  Q`@********************************RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRҠ PRW` @ @ @ @   _ `   `` `  2Zz2bzZr"jʺz**RRښbrRڒ2BZZ‚Z:R #¨D ((*@D P`IjhHœ (BxL`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````@H    7 DHhHhLy`y 0Ѱ ȱɱ Ii ``@hH@8xxx (08@HPX`hpx    Z$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""####### @ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  Q`@********************************RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRҠ PRW` @ @ @ @   _ `   `` `  2Zz2bzZr"jʺz**RRښbrRڒ2BZZ‚Z:R #¨D ((*@D P`IjhHœ (BxL`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````@H    7 D 7 HhHhLy`y 0Ѱ ȱɱ Ii ``@hH@8xxx (08@HPX`hpx     ŠԠƠخ)a(ԠԠϠ̮)oT`$a(Ġ)FMQ]]ĠϠŠ]٠Ԡ]٬]dKM6oPnd2ea()d2evxo a(ӠӠӠƠŠŠǠӠȠΠΠŠɭӠΠƠٮ)Aca(ŠŠԠӮȠĠՠſ)+oa(Ӡ "n:"MARS";31)"60"2x:"JUPITER";31)"30"K:"SATURN";31)"10"c:"URANUS";32)"4"m1650v240::(16):"SUN"::"SOLAR DISK";20)"10,000,000":"SOLAR ECLIPSE FEATURES:":4)"PROMINENCES";27)"100":4) :;4)"FULL MOON";32)"200"C:;4)"EARTHSHINE";32)"0.01"d(:"LUNAR ECLIPSE FEATURES:"2:;4)"EDGE OF UMBRA";32)"0.05"<:;4)"MID TOTALITY (VARIES)";32)"0.005"F1650P240Z::(14):"PLANETS":d:"VENUS";29)"200015603:"PLEASE RE-ENTER WITH A NUMBER BETWEEN"E"1 AND 4 ";NO1200g::(15):"MOON":~:"LUNAR PHASES:":;4)"CRESCENT MOON (2-3 DAYS)";32)"10":;4)"CRESCENT MOON (4-5 DAYS)";32)"20" :;4)"QUARTER MOON";32)"40":"BRIGHTNESS VALUES"::Ej"FOR WHICH CELESTIAL OBJECT WOULD YOU"[t"LIKE VALUES?":j~"1. MOON"|"2. PLANETS""3. SUN""4. DEEP SKY OBJECTS"::"ENTER THE NUMBER OF YOUR SELECTION. ";NN1N41220N1250,1370,1450,"1/"(G)8"----------------------------------------">PG2001İ1030[:740r(Q$,1)"Y"ī1090"WOULD YOU LIKE TO PRINT THIS TABLE?";Q$(Q$,1)"Y"ī1100$1.A$"M"ī4308A$"S"ī840B0LV`:(10)OT PRACTICAL (LOWER ASA)":)T609301T0a"----------------------------------------":(13):"EXPOSURE TIME":"----------------------------------------""MINUTE(S)";14)"SECOND(S)";28)"FRACTION":(M);14)(T);28)OSURE VALUE (ASA) ";E"E0120*:8F0800O "ENTER F-STOP ";FW:e B0820}*"ENTER B-VALUE ";B4A$"S":Q$"N">670HR:"ASA= "E\:"F-STOP= "Ff:"B-VALUE= "BpG2001910z::"EXPOSURE N5,2.8,2,1.8,1.4,0:380@:(13):(13):"ADIOS AMIGO!!!"Fx M=MINUTES T=SECONDS G=FRACTION OF SECONDSTF2(EB)MT60G1T:(14)::"EXPOSURE TIME"::"TO EXIT PROGRAM ENTER 0 FOR ASA.":"ENTER EXPF0600670 G2001560(:Z:"VALUES NO LONGER PRACTICAL (LOWER ASA)":e&:600t0T60580|:T0DF;9)(M);20)(T);31)"1/"(G)NIX"----------------------------------------"bl1030v 22,16,11,8,5.6,3.A$"M":Q$"N"@ :"----------------------------------------"r :"ASA= "E;13)"EXPOSURE TABLE";32)"B= "B: "----------------------------------------" "F/STOP";9);"MINUTE(S)";20)"SECOND(S)";31)"FRACTION" : I113 F13)::"EXPOSURE TIMES":# T::g ^ F=F-STOP OF LENS, E=ASA OF FILM,B=RRIGHTNESS VALUE OF OBJECT" h"TO EXIT PROGRAM ENTER 0 FOR ASA." r:: |"ENTER EXPOSURE VALUE (ASA) ";E E0120 B0ī420 "ENTER B-VALUE OF OBJECT ";B NTED IN A"- 5)"TABLE OF COMMON F-STOPS."Z :5)"2. THE EXPOSURE TIME PRINTED FOR"~ 5)"AN F-STOP OF YOUR CHOICE." "::"ENTER THE NUMBER OF YOUR CHOICE ";O ,O1O2ĺ:"PLEASE RE-ENTER WITH A 1 OR A 2.":290 6O320,720 @ J(" 5)"SINGLE F-STOP."- :5)"4. END"[ ::"ENTER THE NUMBER OF YOUR CHOICE ";N N1N4ĺ:"PLEASE RE-ENTER WITH A NUMBER FROM 1 TO 4.":210 N1110,320,720,650 ::"YOU NOW HAVE TWO OPTIONS:" :5)"1. EXPOSURE TIMES PRI:(20)::"MENUE"::::8 "THESE ARE YOUR OPTIONS:h :5)"1. A TABLE WHICH LISTS B-VALUES FOR" 5)"COMMON CELESTIAL OBJECTS." :5)"2. EXPOSURE TIMES PRINTED IN" 5)"A TABLE OF COMMON F-STOPS." :5)"3. THE EXPOSURE TIME FOR A)  :5$I120:10)"*";::CI112:10)"*";29)"*":[(I120:10)"*";:w27:16::"EXPOSURES":<:(20):"BY"F:(16):"JAN BYBEE"P(19):"AND":(15):"SCOTT KNAPP"::Z:(18):"1980":I12500:dn1680 x     z#????????????   ҳ Ҵ ҵ Ҷ ҷ Ҹ ϭ Ӡ!ԠŠ;"Ӡ٭ӠҭϠұ Ҳ  ٠ҠӲ͠Ԡˠ ĠĠĠĠĠӠӠ֠ΠҠϠ àˠԠƨͺ̲ԠŠحƨ̲ŠҠȭӠŧӠҠE D#(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$" "     o M6(o a(ɮîˠ)o Pa()UVWY a()Qop *IiiJL 8eia  ȑ *IJLkU$!  J ȱ Lyu p&UX"ʕ09 e ȱe 8j (Ȱ ʥˆ LM ii `ȅȱ 0'(]ȱ 0 ] ޠ q e ̄ȱ 0@ R)e)ejf8e ȱe (i ʥˠ qeLM ` Ȅȱ ʥˈLMʱ ȱ ȱ   ȱȱ0ɰ ](]] ѠqeЗ 婭 $!  J hH u hH  |Px_AND TELL DAD TO WIND UP THE CLOCK AND START IT AGAIN":"HANG ON WHILST I WIND THIS APPLE UP"0AA1@Q1999:QoMIN(((A100(A100))100.05)(A100)) A1200AA1200:PM1HOUR(AMIN)100:A0HOUR12HOUR0600 :936:16298,05*"STOP PLAYING WITH THE APPLE!!!!, GO OFF??"::"PLEASE USE 24 HOUR NOTATION. FOR EXAMPLE":"1340 AND NOT TWENTY TO TWO ";SETf770ZB$"N":ZC$"N":ZD$"N"936"WHAT IS THE PRESENT TIME PLEASE? USE 24 HOUR NOTATION, FOR EXAMPLE 1340 AND NOT TWENTY TO TWO ";A&936:ī765936>"WHICH OF THE FOLLOWING WOULD YOU LIKE?,"f"JUST PRINT Y OR N AND HIT RETURN"t" "}"""CHIMES?";ZB$"TICK-TOCK?";ZC$"ALARM?";ZD$(ZD$)89ī770]"":"WHAT TIME DO YOU WANT THE ALARM":"TO GOROGRAM WRITTEN BY BILL SMITH, GAMBIER ISLAND, B.C. CANADA)"::r"HI, I'M APPLE'S GRANDFATHER CLOCK":40)"DO YOU WANT ME TO CHIME THE HOURS OR USE MY OTHER FACILITIES?":"""PLEASE TYPE Y OR N THEN HIT 'RETURN' KEY";ZA$(ZA$)893 v16277'A118:B,C:3B,C:AAA15:B,C:4B,C:A[A14:B,C:5B,C:AvA112:B,C:6B,C:A5:825,16:8252,16:32:826,141:8253,141A770790:B:A,B:AA0:B0:C0:XPH%65:OPM%65:160936C"(THIS P0,40,86,14,130,2,138,16,170,24,192,46,200,78,192,110,170,132,138,140,106,132,84,110,76,78,84,46,106,24D 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96XA18:B:A]A1627816382:B:A,B:Ab:3:1:0l232,150:233,645,53,62,62,62,54,53,53,62,62,46,46,54,55,55,46,46,46,54,63,55,46,45,5,0& 144,1,148,1,178,14,200,40,204,40,208,74,212,74,216,74,216,74,200,110,146,148,98,136,102,136,74,110,78,110,82,110,60,73,100,13f+ 204,110,178,136,132,148,84,136,60,110,64,74,7,00,77,00 36,36,36,00* 36,36,00E 54,54,54,54,54,14,00{  118,118,118,118,118,05,100,100,100,100,100,12,0 14,14,14,14,14,14,14,14,14,14,222,219,219,27,96,12,12,12,12,12,12,12,12,12,12,00 53,39,00 44,62,00H! 63,63,54,LARMALARM1200" ALARMSET420, E4:B SETSET1:E1:R1N AE87r (16384)127ZD$"N":R0:455 768,255:769,255:770 A 16368,0   100,150,100,250,100,150,50,150  08,00,18,00,22,00,25,00,32,00,44,00,70,00,73:F1200:F:A iA8365, jF1400:F? kA47:E:360P mA11000:Ah rHHOUR:HOUR0H12 wE1H:768,250:769,100:770 |F1800:F E E500(H133)  MIN60ALARM(HOUR1)100:405 ALARMHOUR100MIN PM1A16384)127ī800 ;F# @B1335= E768,100:769,03:770_ J780,180:B1:7168,180:345x O768,70:769,03:770 T7168,180:780,180:B2 YG1:A [B1ĕ780,180 \B2ĕ7168,180 ]E1:160 ^ cA03:E h768,E:769,50:770XPH%PM%XPH%PH%ĘPM%:295? PM%XPH%PH%PM%1ĘPM%:295X PH%XPH%ĘXPH%:295 OPM%PM%:XPH%PH%:B1:E1:FLAG1İ350 FLAG0:R0ī90 160 "1140,80: '2140,80: ,7:780,180:G19 1AE486267:Q1 3FG60 6(:PM1PM0:200$ PM0PM1:200, 12H PM%MIN6460:PM%:290k PH%(HOUR64PM%)12:PH%:295 PH%XPH%ĘPH%:295 PM%PH%ĘPH%:295 B0ī285 OPM%:290 XPH%:295 OPM%PH%ĘPH%:295 HOUR6MIN34ĘPH%:295 6 16277-ZD$(1),ZC$(1),ZB$(1),ZA$(1)6700HZE420(H140)\x(ZC$)89ī300j}AE4862(16384)127ī800AMINMIN1:(ZD$)89İ400MIN60ī200MIN0:HOURHOUR1(ZB$)89FLAG1HOUR12200 HOUR0      8X%2,Y%: 9 K FROM APPLE ORCHARD FALL ISSUE PAGES 7-10 HA 560 RESOLUTION LINE NEXT TO THE FIRST ONE8 dY0159G nX%280Y8P xY%YZ 1000a Yk 22:  X% CAN RANGE FROM 0 TO 559 Y% CAN RANGE FROM 0 TO 191 XX%X%4:M%X%4XX% M%0Ē2 M%1Ē6 $M%2Ē1 .M%3Ē5L1" THIS PROGRAM SHOWS HOW TO MAKE"`"THE APPLE GO FROM 280,192 TO 560,192 ON"" A B&W TV OR MONITOR"I13000:I : FIRST DRAW A LINE IN 280 RESOLUTION FOR COMPARISON 3:130,0140,159+ 2 NEXT DRAW   Š٠ΠŠ ]éԠVWX6q\f/? r\6 UV WX6q\f/? r \6 UVWY Y *Y4a()`$Xa(ԇɇ͇ņɇӇՇЇ)Q9]źϠԠǠΠϠԠ)&@ :cccXq]Ӡ(bq q\f\6 Ilqd q \`8dr$vf\6 7vqdq\`$f\6 ]]ӠUlmn[]Ҡ]Šq\6q\6ghghq q\6 ?qd q `8dr$&\6 -&qd`$0q\6  0S(Ƞlmn[Lhijklmnijklmnijk[rlmn_h|ijklmn[lmn_r"lmnijk_|Pflmnlmnlmn_ ,]96lmnijklmnijk[@lmn[LJijklmnijklmnijk[;Tijklmnghijk[.^lmnijk8 Z]ŧӠǠҠ []٠ \]ԠҠ ]]^](dLfqq iM61noS(ҠӠϠŠĠΠ)'x`$n     ,1)) (H$)64(H$)71X(H$)55:265 X(H$)T STARTSTARTX(16(I1)):[ 6|  (C) 1980 EVERETT M COLLIER::NN1:N4STARTSTART8:7[ :"NEW ADDRESS (A) OR CONTINUE? ";A$:A$"N"A$"NO"Āi A$"A"4 STARTSTART8:N0:7 "ENTER HEX STARTING ADDRESS $";A$ X0:START0:L(A$) L4ĺ:A$;" IS TOO LONG!":21 IL11:H$(A$,LI1";:11,0:SASTART:START32767SA(65536START)K SA32768ĺ"8000":10Y X(SA):m "DEC:";:11,11 I07:DEC(I)(STARTI):6I4);DEC(I);: :"HEX: "; I07:X(DEC(I)):" ";: :"ASC:"; I07:6I4);(DEC(I));: "DECIMAL OR HEX STARTING ADDRESS (D/H)?";:A$:N0::12:A$"H"20p "ENTER DECIMAL STARTING ADDRESS ";START :50,63:" [ EVERETT'S MEMORY INTERPRETER ] REF +0 +1 +2 +3 +4 +5 +6 +7 ADDR":50,255:34,20 :"REF ADDR = ";START;" = $}Y MEMORY INTERPRETER BY EVERETT COLLIER j10,76:12,3HEX$"300:20 C E1 A6 A1 A5 A0 20 41 F9 60 20 C E1 A5 A1 20 DA FD 60 ND823G"I1(HEX$):511I,((HEX$,I,1))128::72,0:144C ::10:    T$a(̠))']ŠӠ͠Π֠g]Π٠ć·ɇŇ̇ԇ̇هχ·ӇŠӠĠϠŠŠŠΠӽ2#a()G<#`%_ F#qP#γqZ#_ 3#ca(̠Π)#a(̠)-$a(٠)ccS$_Π٠ҠҠ٠Š)0ca(Ӡ̠Ʃ)Bca(Ӡ)P a()-cca(źƠ)1ca(ԠΠϠ)GR@_@(#]Ӡ] KM6Tca(Ӡ͠ӠΠԠ)ca(ϠŠ̠͠ƠŠ)1ca(̠ϠΠӠΠŠҬɮ)+ca(͠ƠǠ)Tcca(Ӡ٠ŠĠҠ)ca(_ : ]֠Ӡ̠ԠƠ֤ϧӠԩ `γ$# ca(̠)F\x a(̠)E@ a(٠)GWH UVW`-r%a()G`-r%a()G`-r%a()Gb--rrE()GYcc _1γq]ŠǠҠ1cca(ҠŠԠǠ)R@$ca(ŠԠǠ)ca@c` @p()@B;@rrp() `@9()$ q\ `γ$(#>( `6%a()G`%a()GbGqqN@"rC@" rC@"rD4rD4r@p()f>-rq-rq-rq -rq -rqd-rqe-rqn-rqo- rqPH- rq- rq- rq- rqL-rqM-rqV-rqW qUVWq 8r-rqqYqL`$UVWX6-rq-rYUVW-rqY"`$-rq-r.UVW@Brp@*-r#-rrY[]Ҡ̨֤T4`$qY]ԠҠӮIPqγq[]ԠǠϠԠҠŠҠӠ"x]Ԡ֠Ϡؠ+q`$q6qHq`$q` $q` $q1<@r`$Fq@p@*rY>]ӠҠӮנԠԠҠӠ(q<@r`%[(-@p@*r`?$2q[2`@$P<q[9F`6%[@p@*rҠƮ@p@*r`$qY`$&q6 Yhqγq]ӠŠŠҠԠԠŠĠ٠ҠӠҠӠY]٠DUVWqγq]ӠŠŠҠԠԠŠĠӠҠӡyY&~q6 Y]ؠ&UVWq<@r`$[W` $q` %[]ӠӠƇӇԠΠr_]̠8`@*#r:()$L@p@*r_]٠ L]&Qq<@r` %@p@*r@VUVWq<@r` %[@p@*r` %_~$`` $jq Yj`$~Xtq _Hq]Š̠ԠƠǠ֤ϧӠԩC`@*#r:()$@p@*r_]ŠǠӮ`@*#r9()%@p@*r,`@*#r:()$@p@*rq6=`@*#r:()$@p@*     R$;"-";I)) )HX$"".)I3019)P16IH)H(DECP)X)DECDECHPr)HX$HX$(HEX$,H1,1)x)~)HHSS;" COMPLETE":7!")DA010410M,)"ADDRESS DATA RAM FAULT LOCATION"X6)216,0j@)DECAD:10670yJ)" $";HX$;T)DECDA:10670^)11:"$";(HX$,2);h)R$("CDE",(1AD16384),1)r)20|)I1031)DA2DA )DA255DADA256:25:" (7 (768* (AD256(867)(866)8 (DA(865)I (DA010540V (ILOHI{ (SA(I):I,255:DA255(I):I,SA (DA0ADI:IHI:10500 (SA(I):I,0:DA(I):I,SA (DA0ADI:IHI:10500 ) )PASSPASS1)22:12:"PASS ";PA840,0:841,165:842,01 F(843,141:844,98:845,3N P(846,165:847,1:848,141j Z(849,99:850,3:851,173 d(852,95:853,3:854,133 n(855,0:856,173:857,96 x(858,3:859,133:860,1 (861,96:862,0:863,0 ( (5:" 48K RAM TEST13,230:814,0:815,2081 '816,2:817,230:818,1N '819,165:820,1:821,201i (822,3:823,208:824,2 (825,230:826,1:827,201 (828,192:829,208:830,214 (831,240:832,8:833,141 ((834,97:835,3:836,173 2(837,94:838,3:839,145 <('786,3:787,132:788,14 '789,177:790,0:791,141P '792,94:793,3:794,169m '795,255:796,145:797,0 '798,81:799,0:800,208 '801,31:802,145:803,0 '804,81:805,0:806,208 '807,25:808,173:809,94 '810,3:811,145:812,0 '8F" ZLO768:HI1023 '* ' RAM TEST0 $'M .' SETUP ASSEMBLY ROUTINES 8'p L'768,165:769,0:770,141 V'771,95:772,3:773,165 `'774,1:775,141:776,96 j'777,3:778,169:779,2 t'780,133:781,0:782,160 ~'783,0:784,140:785,97 AREVISION 8-2-79 < WRITTEN BY PHILIP A. WASSOND :i"THIS PROGRAM REPEATEDLY TESTS""ALL 48K OF RAM""FOR 'HARD' ERRORS AND DISPLAYS THE"("ROW AND COLUMN OF THE DEFECTIVE CHIP."2I15000: PHEX$"0123456789ABCDE     :Ġ֬ӶIJ)F.?6Ur.?6UrAĠ֬ӶIJ)F.?6Ur.?6UrE()F" d! n BY PHILIP A. WASSONM" :' "FROM THE MONITOR TYPE:"@"*AABB