@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uI<;P;RESRES1RES2DISANSEQPLCEMEREQUPLACEW1W2TIMEABXBLANKCITYSW3W4W5CHEMTCCCCCCCCCT}CC1C1DOPLACISPOIIDSCORTIMMIHRPHONDWHERDIARCEDPLCVOCCHOICPHMIJJJU}@@@@@ V} !W}"#$%&'()*+,-./01X}23456789:;<=>?@Y}ABCDEFGHIJKLMd***************Z}*****n* CRISIS CENTER *x* BY Joe McManus ** for ** ANALOG COMPUTING ***********[}**********;A ,;A ,;A ,;A ,9@D,;@H,9@,9@,9@,9@\}@,;@ ,;@ ,;@,;@,;A@,;@`,;@@,;@Y,;@Y,;@Y,;]}@Y,;@Y,;@ ,;@ ,;@ ,;@,6-w6-6-'6-@/6-%^}76-%?6-%G6-%O6-%W6-%_6-%g6-%o6-%w6-%w26.( >_}6-A$J6.00:00a67A<A@,.m6-w Ap.67<@ ,.+67@!<@@,..$6-`}86-%@'7<%@,4 56-%@8$ A0 -( A$P 6-%!@"a}%-A) 56-@A-%%G-L(P  A$":2@:7<,,@)-@4- 72b}:$,A`6Q-@3(:8,)-@37(:8,C-@3Q(:8,@h-@#@c}*(>-@@ J-@#Q(|]-@8d(|h J*-@#@*(d}O@6-#-@@28,@6-%@P. -@&(Ү*-@(.(TX-@3e}(:8,# )-B(YOU ARE FIRED! NA X AP^8F:@,"-.( GAME OVER 8 APf}hxJ6-+F:@ ,%F:@,$AV%F:@,$AV$AV,'@`V-@'a( m-@&x(rg}qq6-P:+'A6&P:'A6,,$@`,%P:@:7@<@,,&@H,$@%P:@:7<,,&@H,$@w-@'h}(|YY6-P:+'B!`&P:'B!`,,$@`,%P:@:7<,,&@H,$%P:@:7<,,&@H,$"@ A"U%i}!@Y6-%%6-&@`!@6-&@(  -@5(0( A0-@5(j}-@7(:(  -@8(0( A`-@8($+AR%A@H7Ak}@HIA @TO6-s6-F:A`,%F:Aa,$AV%&@p%@A0o %%l}@A03%@A0A-@#E"SA%aA%oA4% A@m}rAGAP'AAt9AAPEAWBBA`68,-i68,-r68,-M 68,-n}6-" A4-@ @M(ӠԠϠ11+F:B2y,,*+T:,,A0.-@ o}@.( ! A $6-@# Ap&j6.12:45 A`%@ 1@=p}@S-A@@@f67<%@9,.j 0T6-@! Ap#3-A @ 7"J67<%@,q}.N T":p 6- A APp72,169,160,141,10,212,141,24,208,141,26,208,169,198,141,0,2,169,6,141,1,2,104,64r}D#"Nff6.\CRISIS CENTER٠ŠӠ HOW MANYINCOMING MESSAGEYOU CAN'T DO THAT!UNITSX; s}--@!(7<,+ A/ 56-;6-bI - ( Ap-!(+ Ap1-5(? ApE-It}(g! Ap-(! Apla-(-0(7A<A,<-@)H(TIME: N6-T6-^ Au}pa$Q #A6-@!# ApQ6.'Mayor says do somethingHURRY COMMANDER!M-A @ 767<%@v},.7<@ ,; A6.G6.M6.4-A @ "067<%@,.4  nnThere is a FIRE at,Traffic w}accident at,4-ALARM FIRE is at,BANK ROBBERY at,A HEART ATTACK at,HIT & RUN at``SNIPER on roof at,HOTEL burning at,10 CAR x}pileup at,AIRPLANE on fire at,HIJACK report from ::6.0FIRETRUCKS AMBULANCES POLICECARS SWATTEAMS *:-@Ay} @ #"667<%@,.: 4ggThe fire is out at,Accident cleared at,The fire is out at,Cops stop holdup at,Viz}ctim was saved at>ooVictim was saved at,Sniper caught at,Hotel safe at,Pileup cleared at,Airplane saved at,Hijacker caught{} atH:-@A @ #"667<%@,.: RddFire killed 4 at,2 victims died at,8 burned to death at,$8|}000.00 stolen at,Elderly man died at\hhThe victim died at,7 Sniper escaped,Hotel destroyed at,70 FOUL-UP at,Airpl}}ane is ashes atfPlane in CUBA notp:-@A @ #"667<%@,.: zggFire is burning at,Traf~}fic snarled at,Fire is raging at,Cops dodging lead at,Victim going fast atiiWeak-pulse report at,Sniper got one at,People} screaming at,More cars wrecked at,Fuel may explode ato-@@ 68,-$ ,-;68,-J68,-}N Z6-AoHostages scared at= -"68,- *-@H."968&,-= ee8,9,8,2,3,2,1,0,0,}1,2,0,4,2,2,0,0,0,3,0,0,1,0,0,0,1,1,0,0,2,3,1,4,3,3,0,2,4,4,0,3,2,2,0,0,2,3,2nn,SEND,RECALL,STATUS,ANSWER PHONE,},AMBULANCE(S),POLICECAR(S),SWAT TEAM(S),FIRETRUCK(S),ś^^University Park,Highland Park,Sunnyvale,,,Mesqui}te,Hines Blvd.,Second Ave.,d67@!<@!,. d,Hensley Field,Six Flags Park,Theatre Center,Cotton Bowl S}tadium T:,"A` " A"e A+6-P:H:,$A,+ A A p}" -"8,"A   A)6-P:H:,$,%!6-) A@!6-P:H:,$,%!"A0}!A"uQ A;67<@ ,.7$@ &@<$@ ,G6-Q A i367<%@ ,.7$@ }&@<$@ ,96-B68,-K68,-U A_ A0i A p$76-P:H:,$A,- )"@7 }A")Y6-@! Ap##A @)6-3 A@9"E6-@!O ApY A p.# @*!6-# A}8"@AB"@6- AL  6-VI AP6-6-# A@)"56-@!}? ApI A p` @*!6-j  6-t"@6-~"@6-% 6-6-}@% A56-@6-@ 6-@!% Ap+-?-@m(7$@&@%<$@}&@%,w A{ ( Status6-%@6-@-@%-(7+%@,$@ &@}<+%@,$@ &@,8++%@,$@,&@%,-@!zh(7+%@,$@ &@<+%@,}$@ &@, 8++%@,$@,&@%,v6-%@z ((((  T:},A L6-@! Ap--@@"9->(B L A p&("6-%}& Ap+6.""!"+ AG6. 6-% Ap;672B M-@ @@)2%@327 ?6-&C M A p] }-!2A@/-@E3 C2@eQ-@EU ]6-&  A pR -"-@}@P682A @B2F N6-&R  A p-@@92@@@@}M-@@Q e-@@2@  %2@@@@}G2@@S@@i2@d@@}-@@5 -@2} $l0#@@K:0)@vp 6.>:,@+-@ @0G2@}@@K m2@p$b-@@P92A@@= }_2b$CHOOSE CITY'-@@'( Š@-@@@(&1. DALL}AS 2. NEW YORK 3. LOS ANGELES3 A+21,)+33,) AP3 A 06-@:,&@H0A @A PA} `6-A$ AH6-A% AH 6-A& AHEMERGENCY PHONE!A"}JJ6-+F:@ ,%F:@,$AV%F:@,$AV$AV,'@`qq6-P:+'A6&P:'A6,,$@`,%P:@:7@}<@,,&@H,$@%P:@:7<,,&@H,$@66-@!-@@"6(7@<@B,-@}@w-@+-@@I2@@"%@o2@@P&@@&}s w f%2@G2@[-@@_ c f$%@ }6-$DIDN'T ANSWERb6-@! Ap!-3AABA-%@\(UNANSWERED PHONE!!}b-(EAA`#-@ ' + =-@"B(E$A"A"A"Q A};67<@ ,.7$@ &@<$@ ,G6-Q A 367<%@ ,.7$@ &@<$@ ,96-}B68,-K68,-U A0_ Apk6-z68,-68,- A p(%(ERROR IN ANSWER OR NOT }ANSWER(&Q A;67<@ ,.7$@ &@<$@ ,G6-Q A x367<%@ ,.7$@ &@}<$@ ,96-B68,-K68,-U A0a6-s-@x( A p` @@ }  j ??Ӡ Ҡt ??} ~ ??  66. } *** DALLAS *** ZZUniversity Park,Highland Park,Sunnyvale,Mesquite,Hines Blvd,Second }Ave,Hensley Field BBSix Flags Park,Theatre Center,the Cotton Bowl,DALLAS,2500,40 AAܠ } 렠 AAɠܠ 頖 AA–܎ } 頠얂܎܎ AAܯ܎ܠ 砠䂠܎ AAܠ܎ }  *** NEW YORK *** bbBrooklyn,Bronx,Queens,Manhattan,Staten Island,Forty Second St.},J.F.K. Airport,Lincoln Tunnel 88Statue of Liberty,United Nations,NEW YORK,2600,120( AAΠ ͠ } 堠 Ꭰ2 AAʠ 堠蠍ܠ< AA򠠙ᠠܡ } F AA蠠  ᠆ P AA  } Atlanticn *** LOS ANGELES ***x ggSanta Monica,Culver City,Beverly Hills,Hollywood,San Ped}ro,Pasadena,L.A. International,Disneyland 77Hollywood Bowl,Security Plaza,LOS ANGELES,2700,85 AAᮎ } Ƞ AA ܎ AAܠ󠯠} ܎ AAܠ܎ ܠ AA砠}܎ 䠠蠠 D:CRISIS.BAS ܠ AA砠C<RAN PRINTSCREEN --J.E. Wilder COPYRIGHT 1988 BY ANALOG COMPUTING&& }To print GR.0 screen push CTRL-?+;@,+ Set up PRINTSCREEN in:(0 ISK FILE or EMORY 04M@2 }0D@@<H(CREATING BINARY FILEH@@D:PRINTSCN.OBJF3-@A", @ }>:,0 3PII AINSTALLING PRINTSCREEN IN PAGE SIX OF MEMORY. TO USE PUSH CTRL-?ZA #A!-AA%" }+/ >6-?:A,Ad255,255,55,6,255,6n""104,173,8,2,141,97,6,173,9,2x##141,98,6,169,79,141,8,2,169,6& }&141,9,2,96,173,9,210,201,166,208&&10,165,32,201,6,144,4,201,15,144##3,76,0,0,152,72,138,72,162,15((181,32,72,20 }2,16,250,134,32,165,88++133,206,165,89,133,207,169,24,133,205''88,162,112,169,3,157,66,3,169,253$$157,68,3,169,3, }157,69,3,169,80((141,253,3,169,155,141,254,3,157,72$$3,169,8,157,74,3,32,86,228,169%%9,157,66,3,160,0,165,205,240 },37))177,206,41,127,201,123,176,4,201,97&&176,8,105,32,201,96,144,2,169,46**153,253,3,152,200,192,40,144,227,101 }++206,133,206,144,2,230,207,169,155,153%%253,3,32,86,228,48,4,198,205,16''199,169,12,157,66,3,32,86,228,162"))0 },198,205,134,205,16,140,104,149,32,,,232,224,16,144,248,104,170,104,168,104664,226,2,227,2,56,6D:PRINTNEW.BAS }198,205,134,205,16,140,104,149,32,,,232,224,16,144,248,104,170,104,168,104664,226,2,227,2,56,6D:PRINTNEW.BAS  X;PRINTSCREEN --J.E. WilderX;COPYRIGHT 1988X;BY ANALOG COMPUTING$X;Prints Gr. 0 screen with CTRL-?7(72}INITQ;VKEYBD< PEXITFQ P PEXITZQ>INTRPTdP;VKEYBDnQ>INTRPTxP :INTRPTQ ;KBCOD}ER>;CTRL-? HEXITQ ;Device in useR>DEXIT;P: or C:R>DPRINT;E:,S:or K: EXIT! PRINTC5}A5$>SAVEQ 9;Page 0 IOCB"5,06 ISAVE@& ;No repeat CTRL-?JQX;Screen MemTP;Pointer^QYhPrQ>}|P;Line count.OPEN$>p;IOCB 7 Q>;Open PB9;ComdQ>;CASBUFPD9;Buf Adr Q>PE9Q>}P;P: DeviceP;CASBUF Q>;EOLPPH9;Buf LenQ>;Output PJ9;AUX1 V;CIOV Open&Q> ;PUT REC0 PB}9;Comd: NEXT%>D Q;LINENFEOLXLOOPQ@7;Screen CharbM>;No inverselR>{v ESHIFTZR>a EKEEP;>=a}SHIFTO> ;To ASCIIR>` DKEEP_Q>.;Dot-UnprintableKEEPP8;CASBUFC3)>( DLOOPO;Screen pnter +}40PD  # EOLQ> P8* V;CIOV Print line4 GERROR> ";LineH INEXTRERRORQ> ;Close\ PB9;Com}df V;CIOVp$>z ";Line&͎IOPEN;Clr printer REFIL7P 9;Page 0 IOCB2(> DREFIL7>7?}79;INITAD INIT&͎IOPEN;Clr printer REFIL7P 9;Page 0 IOCB2(> DREFIL7>7?"rsa=v=DELAAEZBCDEFGHIJKVADSPDSPBDCXXXSTARPAGPGBYTDZXAVGAVGAVGAVGAV}G1A%  (B!A01@5PAu`@g Ay& @ A!` AB AAPB2}APBI7PAPB!AdBWA'AdA6SC%"$} !"#$%&'()*+,-.}/0123dSOLAR SYSTEM SIZE ANDnDISTANCE RATIO GENERATORxBY CAREY M. FURLON}G}((COPYRIGHT 1988 BY ANALOG COMPUTING[ +@'0@@ @A0@@@[0@}@/-@@ /(@ )-@@)(@7-@7(@}====================7-@7(@٠7-@7(@==========}==========7-@7(@====================2-@@2(@٠͠6-@}@6(@ĠǠ'-@@ '(@7-@"7(@=======}=============-@A% &&;@,;@0,;@0,AASYSTEM DIAMETER (MILES) & DISTANCE (MILLI}ONS OF MILES) DATA!6-B!!DIAMETER OF SOL%6-A016-@5P%MERCURY"#6-Au`6-@g#VENUS,}#6-Ay&6-@#EARTH66-A!`LUNA@"6-AB6-AAP"MARSJ%6-B26-AP%JUPITE}RT$6-BI7P6-AP$SATURN^$6-B!6-Ad$URANUSh%6-BW6-A'%NEPTUNEr#6-Ad}6-A6S#PLUTO| 6-C%"$ ALPHA CENTAURI~))OPEN IOCB TO SEND PROG INPUTS TO E:##@@@}E: (} +Q0@@70@@Q0@@@AR@}.(.(#SOLAR SYSTEM SCALER (Rev. K)( d(d(YWith this program you can construct m}athematically scaled models of the Solar System.f(f(ZRelative sizes for the planets and the Sun and their respecti}ve distances fromSS(J one another are generated when given a base measurement.\\(T Base }measurements can be assigned to either the Earth, Sun, or the Solar System.0(0(%}--(%%(%(PRESS  TO CONTINUE(@[ +'0@}@ @A0@@[0@@@!AR@& (}0$$( }:$$( |MAIN MENU SELECTION|D$$( N,( (,( SUN DIAMETER BASED TABLES}X+(+(  EARTH DIAMETER BASED TABLESb<(<(1 SOLAR SYSTEM DIAMETER BASED TABLESlA(A(6 12 INCH} EARTH-GLOBE DISTANCE CONVERSIONSv((END PROGRAM-@@!(  AP/-@}@(/( ENTER SELECTION @AR[ +'0@@A0@}@[0@@ @4SAp4EA`412A( 4SSA"~ 49}99+10@@ @K0@Q(}{(%ĠӮԠˠ~x0@}@70@@Q0@@T(n(INSUFFICIENT RESPONSEx ASOL TABLE} GENERATOR, (} (,( ̠ĠӠ 8( ( ((8($&(&(WHAT} IS SCALE SUN DIAMETER? (( (Enter a number)* ( 46-@6->)()(WHAT IS UNIT OF MEASURE }(UOM)?H*(*( (For UOM, enter MILES, FEET,R**(" INCHES, MILLIMETERS or any UOM)\ ( f, (},(DIAMETERS A}RE IN  AND AREpC0@@@C( BASED ON   DIA. FOR SOLz--(%}--(%A 0+(!( DIAMETERS IN + A @!(!}( DIAMETERS IN Q 6-$'.6-P:$B%?P,'B1(Q( MERCURY............. $N 6-$'.6-P}:$B%?P,'BN( VENUS............... $N 6-$'.6-P:$B%?P,'BN( EARTH........}....... $N 6-$'.6-P:$B%?P,'BN( MARS................ $N 6-$'.6-P:$B%?P},'BN( JUPITER............. $N 6-$'.6-P:$B%?P,'BN( SATURN.............. $$N} 6-$'.6-P:$B%?P,'BN( URANUS.............. $8N 6-$'.6-P:$B%?P,'BN( } NEPTUNE............. $LN 6-$'.6-P:$B%?P,'BN( PLUTO............... $`'A8Au }'A9ABj{ 4P+/0@@I0@@c0@@ @k6. }Mn(q({ At A6 ~'@'@@@3(3(( }A1'(  PRINT  CONVERT UOM1 A(  PRINT..(&  RERUN  GENERATE D }ISTANCES(  MAIN MENU++(" SELECT '@@'@@9} 4P A'4PA4DA@ 4R6.S A 4MA@!6.}S! A 4C A4P( A6p2 A<[ +'0@@A0@@[}0@@@F3 (}3(%P6-@6-Z&&(DISTANCES ARE I}N  AND AREdC0@@@C( BASED ON   DIA. FOR SOLn"*4M(x--(%}6-?!A@1('(  DISTANT FROM SOL1 AP*( (*(}  DISTANT FROM SOLN,6-P:+$'$,$A%?P,'A/(N( MERCURY ............. K,6-P:+$'$},$A%?P,'AK( VENUS ............... K,6-P:+$'$,$A%?P,'AK( EARTH ..........}..... K,6-P:+$'$,$A%?P,'AK( MARS ................ K,6-P:+$'$,$@%?P,'@}K( JUPITER ............. K,6-P:+$'$,$@%?P,'@K( SATURN .............. K,6-P:+$'$},$@%?P,'@K( URANUS .............. K,6-P:+$'$,$@%?P,'@K( NEPTUNE ........}..... K,6-P:+$'$,$@%?P,'@K( PLUTO ............... 'A8Au'A9AB}{ 4P+/0@@I0@@c0@@@k6.Mn(q({ A } A6 "'@'@@@,3(3((6A@1}'(  PRINT  CONVERT UOM1 A J(  PRINTT(  RERUN^(  MAIN MENUh++(" } SELECT r'@@'@@9| 4P A'4PA 4R}6.S A4MA@!6.S! A 4C A4P A6p AEAR}TH TABLE GENERATOR. (} (.( ȠĠӠ8( ( ((8($(}(((WHAT IS SCALE EARTH DIAMETER?(( (Enter a number) (  6-@)()(WHAT IS UNIT OF MEASURE  }(UOM)?*(*( (For UOM, enter MILES, FEET,&**(" INCHES, MILLIMETERS or any UOM)0 ( :H (}#0@@!}@H( DIAMETERS OF SOLAR SYSTEM BODIESD**(WITH EARTH AT   DIAMETERN--(%"}b( DIAMETERS IN lQ 6-$'.6-P:$A%?P,'A1(Q( SOL................ $vN #}6-$'.6-P:$A%?P,'AN( MERCURY............ $N 6-$'.6-P:$A%?P,'AN( $} VENUS.............. $N 6-$'.6-P:$A%?P,'AN( EARTH.............. $N 6-$'.6-P:%}$A%?P,'AN( LUNA............... $N 6-$'.6-P:$A%?P,'AN( MARS..........&}..... $N 6-$'.6-P:$A%?P,'AN( JUPITER............ $N 6-$'.6-P:$A%?P'},'AN( SATURN............. $N 6-$'.6-P:$A%?P,'AN( URANUS............. $N 6(}-$'.6-P:$A%?P,'AN( NEPTUNE............ $*N 6-$'.6-P:$A%?P,'AN( )} PLUTO.............. $>'A8Au'A9ABH{ 4P+/0@@I0@*}@c0@@@k6.Mn(q({ APR A6 \'@'@@@f3(3((+}p(  PRINTz(  RERUN(  MAIN MENU++(" ,} SELECT '@@'@@9 4P A' 4R6.E A-}4MA@ A6p AP""SOLAR SYSTEM TABLE GENERATOR/ (} (/( Ҡ͠ĠϠ8(.} ( ((8($/(/($WHAT IS SCALE SOLAR SYSTEM DIAMETER? (( (Enter a numbe/}r) (  6-@6-$ )()(WHAT IS UNIT OF MEASURE (UOM)?. )()( (For UOM enter MILES, FEET,8 *0}*(" INCHES, MILLIMETERS or any UOM)B ( L (}V >0@@@>(SOLAR SYSTEM DIA. =  [ 1}A$` %%((Based on Pluto's Mean Orbit)j --(%t A$@~ 2}0&( DISTANCE IN  FROM SOL0 A$P &&( DISTANCE IN  FROM SOL 6-'?P P 6-$'.6-P:$A3}%?P,'A1(P( MERCURY............ $ M 6-$'.6-P:$A%?P,'AM( VENUS............4}.. $ M 6-$'.6-P:$A%?P,'AM( EARTH.............. $ M 6-$'.6-P:$A%?P,'A5}M( MARS............... $ M 6-$'.6-P:$A%?P,'AM( JUPITER............ $ M 6-$'6}.6-P:$A%?P,'AM( SATURN............. $ M 6-$'.6-P:$A%?P,'AM( URANUS.7}............ $ M 6-$'.6-P:$A%?P,'AM( NEPTUNE............ $ M 6-$'.6-P:$A%8}?P,'AM( PLUTO.(Mean Dist).. $ N 6-$'.6-P:$A%?P,'A1(N( ALPHA CENTAURI... $9} 'A8Au'A9AB x 4P+/0@@I0@@c0@@:}@k6.Mn(x A# A6  '@'@@@( 3(3((;}2 A&0< 1'(  PRINT  CONVERT UOM1 A&@F (  PRINTP (  RERUNZ<} (  MAIN MENUd ++(" SELECT n '@@'@@9x   4P =}A' 4PA#  4R6.SS A 4MA@ "6.SS" A  4C A>}4P A6p A# SCREEN PRINT SUBROUTINE !6-F:A8,!6-F:A9, -A8F:B",-A9?}F:B#, ( ( $ EARTH GLOBE GENERATOR >6-@6-?bp>EARTH IS 12 INCHES; KILO=MILEAGE A@}(0 AR@" / (}/(! , ))(! |ȠȭŠ|6 ))(! A}@ W( ( ((W(C  SCALE DISTANCE TO ACTUAL DISTANCE CALCULATIONSJ N(NB}(C  ACTUAL DISTANCE TO SCALE DISTANCE CALCULATIONST &(&(  RETURN TO MAIN MENU^ -@@!C}( h /-@@(/( ENTER SELECTION r @| 4SDA)p 4ADA2 4D}999A@ A(0 2 (}2($ ŠŠϠ̠ ,,($ ΠȠȭŠ͠ 3(E} (3(% ((( If distance is in feet, enter FT 1(1(&If distance is in inches, presF}s  AR  4FT A4  0FT A0P '('(Enter the distance in inches ( G}  (}( .+(#===================================.( + (SCALE+( DISTANCE IS:  INCHES ''( H} '@ FEET& .(.(#===================================0 6-P:$',6-P:$'',: .((ACTUAL.( DISTANI}CE IS:  MILESD %%(  KILOMETERSN .(.(#===================================X ( ( ( (Press J}:b .(.(# >1 Time To Continue ToRoutinel **(" >2 Times To Return ToSubmenu AR(K} 0 (}0(" ̠ŠϠȠΠ **(" ȠȭŠ͠ $( ($(Enter the actual milesL} AR .(.(# **6-P:+$',$A%?P,'A 226-P:+M}$''@,$A%?P,'A ::6-P:+$''@'AR,$A%?P,'A 0((SCALE 0(DISTANCN}E IS:  INCHES (  FEET !!(  MILES .(.(#O} /( ( (/(To Rerun , Enter:  **("To Return ToSubmenu:  ''(To Return To Main Menu:P}  ( *  4AD A24  4999 A@> A(@H *(*(Enter number of feet to convertR Q}AR\ 6-$@f A0pp MAIN CONVERSION SUBROUTINEz [ +'0@@A0@R}@[0@@ @ &(&(  ##( |CONVERSION SUBMENU| ##(S}  ,( (,(SELECT THE DESIRED CONVERSION: ((Current UOM is ) ((  FEET T}TO INCHES &(&(  INCHES TO MILLIMETERS ((  MILES TO FEET ((  FEET TO MILES ((  IU}NCHES TO FEET ( (  INCHES TO MILES ( (  MILES TO INCHES ( ( ??A5PA5`A5pV}A5A5A5A5 L6-@(}5( ĠϠB6.INCHESL A6 U6-@%@W}(}9( ĠϠK6. MILLIMETERSU A6 J6-AR(}5( ĠϠ@6X}.FEETJ A6 T6-@'AR(}>( ĠϠJ6.MILEST A6R6-@'@Y}(}=( ĠϠH6.FEETR A6 \6-@'@'AR%(}F( ĠϠZ}R6.MILES\ A6 V6-@$AR(}?( ĠϠL6.INCHESV A6$DI[}SPLAY INTERUPT SUB$<#(6-F:A`,%F:Aa,$AV<%@"A0.-6-A6-%@#")- 8\}--72,169,142,141,10,212,141,24,208,104,64B9A'A@9BBAL$V4PA70]}`4DA70j4RA70t4MA70~4CA70 A@$ D:SOLARNW.BASA70u`F ((<(RAMTOSTARCTEMDPBOTTOCHAOFFSEOFSEOSECOONDLIST206OABCDEFGABCDEFG_} `}a} !"#$%&'()*+,-.b}##*****************************##** TRAIN CRAZY (pt 1) **##** BY **##** COLIN Fc}ALLER **##**-------------------------**##** COPYRIGHT 1988 **##** BY ANALOG COMPUTING **##d}***************************** ! +@ @! A +@%@'AYA0@@@e}[0@@@u0@0@@0@@ @ !!(@ f} tAn rZ !!(@ - - -  (@ (@ !!(@ Cg}OLIN FALLER!!(@ - - -!!(@ characters 0!!(@ 0!!(@q}pB%DOS SYSB*)DUP SYSBxSCRISIS BASB PRINTSCRBASB PRINTSCRM65B|SOLAR BASBQ^TRAIN1 BASByTRAIN2 BASB*1WORDLOCKM65B[WORDLOCKOBJ 0(@(@8#(@ reading 5AY@48$d86-F:A,#Ar} *6-&@86-AV$mӛni-%A'@+"1?%@M%@s}[%@i%@sN%@%@1-@@J(@B& N xc#-%Avt}%A @3"9G%@U%@c%@z\%@%@-%@u}?-@@X(@B& \ Q6-&@ 6-AV$3-A6A8?AC Q6-%A(v}v-@A@7)#A9-%@6K-@@d(@A& v"w}%AV$@%3%AV$@%K%AV$@%c%AV$@%%AV$@%%Ax}K%AV$@ %3%AV$@%K%AV$@%#%AV$@%%AC%AV$y}@%%Ac%AV$@%%A%AV$@%%A+%AV$@%%A%Az}K%AV$@ %%Ak%AV$@%%A%AV$@%%A  G #A!-@{}@%"C%AV$%@SG 20,58,97,133,168,2069-A$AU5%AV$@%@|}99 -@9A@7=%AV$@%AHA ]-@8A@7{%AV$@%}}AG ,b #A!-AxA7%"+=-@@^(@Ax%@Y& b @ #A0!~}-@@%"C%AV$%Aea%AV$@%Af%AV$@%AI J7725,3}5,46,69,79,92,103,127,137,161,175,182,197,222T''%AV$@%A"AH^ #Ae)-@AA#@7}-"E%AV$@%e%AV$@%%@%AV$@%%@)h AYm15}9,160,161,162,163roAu@e'Av9Aw@KA`]Aa@oAdAU}w1B2V@'B2w@1 @|D-@@3(@ TWOD% D:TRAIN2.BAS}Πmm2,3,3,3,-76,170,48,39,1,68,69,69,33,43,1,49,1,70,71,65,58,44,1,50,1,72,73,74,42,45,1,51,1,75,0,76,}29,45mm1,39,1,75,0,76,29,46,1,39,1,75,0,76,29,47,1,39,1,77,78,79,29,43,1,39,1,80,81,82,29,43,1,49,1,75,0,76,29mm44,1,}50,1,75,0,76,29,45,1,51,1,75,0,76,29,25,0,39,1,77,78,79,29,1,25,39,1,80,81,82,29,1,25,39,1,75,0,76kk29,1,25,39,1,75,0,76,}29,1,25,39,1,75,0,76,29,1,25,39,1,77,78,79,29,1,25,39,1,68,69,69,33,1,25,39,1,70mm71,65,58,1,25,39,1,72,73,74,42,1,25,39,}1,75,0,76,29,1,25,39,1,75,0,76,29,1,25,39,1,75,0,76,29,1,25,39,1nn77,78,79,29,1,25,39,1,80,81,82,29,25,0,39,1,75,0,76,29,}43,1,49,1,75,0,76,29,44,1,50,1,75,0,76,29,45,1,51mm1,77,78,79,29,45,1,39,1,68,69,69,33,46,1,39,1,70,71,65,58,47,1,39,1,72},73,74,42,43,1,39,1,75,0,76,29,43OO1,49,1,75,0,76,29,44,1,50,1,77,78,79,29,45,1,51,26,27,27,27,-72,169,52,39}̠::104,169,0,133,203,141,4,212,160,59,162,6,169,7,76,9277228,198,203,165,203,141,4,212,16,31,169,7,133,2}0377141,4,212,238,4,6,173,4,6,201,234,208,2,169,0,162440,157,4,6,232,232,232,224,39,208,246,76,98,228W}Ҡll0,0,0,0,0,0,0,0,255,255,255,255,255,255,255,255,0,7,29,117,85,85,85,85,85,8}5,85,85,85,85,85,85,252,253kk253,253,253,253,253,253,253,253,253,253,253,253,253,253,0,255,255,131,131,131,131,131,255,13}1,131,131ii131,131,131,131,127,127,126,126,126,126,126,127,126,126,126,126,126,126,126,126,126,126,126,126,126kk127,1}27,127,255,24,24,24,24,24,24,255,0,0,0,0,0,0,255,255,255,255,127,127,127,127,127,255,127,127,127ii127,127,127,127,127,127},127,127,127,127,255,255,255,255,255,254,254,254,254,254,255,254,254,254,254mm254,254,254,254,254,254,254,254,254,255,255},255,127,127,127,127,255,255,255,255,255,255,255,127,127,127ll127,127,56,16,56,16,0,0,0,0,0,255,255,255,255,255,255,255,0},127,127,127,127,127,127,127,85,85,85,85,85kk85,85,127,255,255,255,255,255,0,0,0,0,224,184,174,170,170,170,170,170,170,17}0,170,170,170,170,170,170mm170,170,170,170,170,170,254,255,195,153,145,137,153,195,255,255,231,199,231,231,231,129,255,25}5,195,153mm243,231,207,129,255,255,129,243,231,243,153,195,255,255,243,227,195,147,129,243,255,255,129,159,131,249hh1}53,195,255,255,195,159,131,153,153,195,255,0,0,0,0,0,0,0,255,254,16,56,40,56,16,56,40,56,16,56,40kk56,16,56,40,0,0,0,0,25}5,0,255,255,16,40,68,130,68,40,16,0,0,224,63,249,15,0,0,0,0,7,252,207,112,0,0,0mm255,255,255,255,255,0,0,1,255,255,255,25}5,255,0,126,255,255,255,255,255,255,0,0,128,255,255,255,255,255jj15,31,255,255,255,255,255,255,240,248,255,0,0,255,255,14}3,15,0,0,127,3,1,0,255,0,255,255,255,255,255kk126,255,0,255,255,254,192,128,0,255,0,255,255,0,0,255,255,241,240,0,0,254,1}6,124,16,56,16,56,16,0,255ff255,255,255,255,255,128,0,0,0,0,0,0,0,132,0,0,0,0,0,0,0,33,0,0,0,0,0,0,124,254,16,56,124,254,}124 **56,16,0,127,127,127,127,127,127,62,0 ""0,63,127,127,127,127,127,127 !!0,255,255,255,255,255,255,0##0,240,2}52,254,254,255,255,2550,0,0,0,255,255,255,255%%127,127,127,127,254,254,252,248255,255,255,0,0,0,0,0%%254,}255,255,255,127,127,127,1270,7,31,63,63,127,127,127%%255,255,255,127,127,127,127,127##127,255,255,255,255,255,2}55,0""0,62,127,127,127,127,127,1270,0,0,128,192,224,240,248##252,254,255,255,255,127,63,3115,7,3,1,0,0,0,}0%%127,127,255,255,255,255,255,255%%255,255,255,255,255,127,127,127127,127,127,63,63,31,7,0127,127,127,62},0,0,0,00,0,0,0,62,127,127,127##255,255,255,254,254,252,240,0 !!0,255,255,255,255,255,255,3!##0,254,255,255,2}55,255,254,252"3,7,15,15,31,63,63,127#%%248,248,240,224,224,192,128,128$0,1,1,3,7,7,15,31%%%255,254,252,252,2}48,240,240,224& 31,63,127,127,127,127,63,0'##192,255,255,255,255,255,255,0(127,63,63,31,15,7,3,1)##0,128,193,2}27,247,255,255,255*%%127,254,254,252,248,240,224,192+%%198,124,124,198,198,192,192,198,%%198,124,124,198,198,198,198},198-%%192,254,192,192,192,192,192,192.24,126,126,24,24,24,24,24/%%198,198,198,230,246,254,222,2060%%192,192,25}4,192,192,248,192,1921%%198,198,124,198,198,198,254,1982%%192,254,254,192,192,248,192,1923%%204,198,252,198,198,198,}252,21640,63,127,127,127,127,63,05##0,255,255,255,255,255,255,1276!!0,252,254,254,254,254,252,07%%127,127,127,1}27,127,127,127,1278##252,198,198,204,198,198,252,09195,195,102,60,24,24,24,0>%%198,126,124,198,192,192,222,198?!}!24,24,198,198,198,110,60,24@!!0,0,126,126,126,126,126,126A##56,16,198,198,198,198,198,108B!!198,124,124,198,192,12}4,6,6%%204,248,248,204,198,198,198,198%%198,198,198,238,254,254,214,19824,126,24,56,120,24,24,24 192,254,1}24,198,6,12,56,96198,124,124,198,6,28,6,6 12,12,12,28,60,108,204,254!!198,124,254,192,192,252,6,60,85,0,}0,0,0,0,00,0,0,0,0,0,0,0 D:TRAIN1.BAS9@nB!!198,124,124,198,192,124,6,6C0,0,0,0,0,0,0,0A}0@##56,16,198,198,198,198,198,108B!!198,124,124,198,192,124,6,6C0,0,0,0,0,0,0,0A0@},246,76,98,228@}}}%@ AP(#RF:B2S,"@&6-%AH2@@`6-}A 1-@3@P?6-%@[2@@@<#M'-@X6-&, FA0++")}"@A"0T:,"&6-%@0 AT1B2I @H'6-@P1 A0''67%<}%%@,.7<%@, AP(#RF:B2S,"@<%%@,.7<%@,+r | A@%AV$@}%AGc%AV$@%%@AHg j$ K-AU@+AG2@@@}K  -AU6@,AH2. _ #A#U!-@@6@}4AG S6-_6-3 20,58,97,133,168,2068 j-@8A@7=%AV$@%AG}c%AV$@%%@AHg j$ K-AU@+AG2@@@K } -AU@+AG2@}AU@+AG2@@@K :uvv;;DRAMTOSTARCPMCPPMBASPTEMDSLILEALBONLYHIGPPPTZUBCBOTTOLPAU}CGQLBGGBCBQW } } !"#$%&'()*+},-./0123456789:;}<=>?##*****************************##** TRAIN CRAZY (pt 2) **##** BY } **##** COLIN FALLER **##**-------------------------**##** COPYRIGHT 1988 **##}** BY ANALOG COMPUTING **##***************************** C@@R'@A9@ @C }B AY B2H'B2P9B2QKB2IW6-c6-}o6-@{6-6-6-6-@6-@2 @P G #@!-@@%"C%}AV$@%AG  20,58,97,133,168,206g-@8A@7=%AV$@%AGc%AV}$@%%@AHg  +AY1@;#@0e6-F:A`,%F:Aa,$AV}%@wAR@6-?:Ax,E@p!A`@55-@@9"A%E **2,2,2,2,}2,2,3,2,6,14,10,6,1,15,6,3,7(h-@2;( jkl\]^V^jkl ]^\]^V^j h(& m m_m_3 m m m m_m_3} -m/(% m mm4 m m m mm4 m[(& [ [ [[ [jl[ [ ][ [[ [l [mA#@.S-@$}@:( ||||||||||||||||||||||||||||||||L-@@S(no/U-@@'( abcde fgcchi9-@}@ K( |||||||||||||U @e26-F:A,3+6-&@6-AV$+AV4C6-&@ 6-AV$}3-A6A8?AC 5i-A9Ar@+@?%@M%@[6-%@}_ i @A^-@0( + + + + + B-@@^( + + + + + Z6-F:A},,0F0@@@`0@@@z0@@@0@@ }@_+6-&@6-AV$+AVb Adi-@0( + + + + + B-@ }@_( + + + + + i Aeh-@0(+ + + + + +B-@ @^( + +} + + + h Afh-@0(+ + + + + +B-@ @^( + + + + + h A}gr-@0( + + + + + B-@ @^(+ + + + + +h Ar Ai"F:}B2y,"@" Ak"T:,"" AlC6-%A(6-@)"AV56-C6-"}m2@@$n;A H,xB67@,.>:,367A H,.>:,B67@,.O;A(},(67@,.>:,@67A(,.>:,O67@,.";Ap,"AY@5G #Ap)-@}A`@9"G6-%A(67<,.>:,/67%@<%@,.>:,M67%@<%@,.>:,k}67%@<%@,.>:,67%@<%@,.>:,_!67%@<%@,.>:,?67%@<%@,.>:,[2}@@@_ 9%2@@P@@9-@@uc )2@}=-@@uA c2@@P@@AA0,0,0,0,24,52,63,60,152,216,220,124,60,24,52,98,130,131,0,0}DD0,0,0,48,104,126,120,152,220,220,124,56,24,56,208,136,12,0,0,0>>0,0,0,24,52,63,60,152,216,220,124,60,24,24,112,80,24},0,0990,0,0,24,52,63,60,152,216,220,124,60,8,8,8,8,28,0,0==0,0,0,24,52,63,60,152,216,220,124,60,24,28,52,34,51,0,0}==0,0,0,0,0,24,52,63,60,152,220,124,60,8,8,8,28,0,0,0,0,0UU255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,2}55,255,255,255,255QQ255,255,255,255,255,255,254,254,252,252,248,248,240,240,224,224,192,192,0,0 6-C:,6-P:'A}$,$A$  6-%A$ 6-&BBy'AV;6-%A6-%A@-6-%Ah;6-%A}KB2W@'A@a9AY@CKB2w@-B2I!6-@4-6-@X}''67%<%%@,.7<%@,AdAU'A@9A@KA@]B2H}oB2QB2P6-A99B2V@'B2X@9B2Y@E-}@@ A67%<%%@,.7A <,E E-@@ A67%<%%@,.7A <,}E E-A@ A67%<%%@,.7A <,E o?67%@<%@%@,.7A@<A@}%@,o67%A<%A%@,.7<%@,!a-@@C@+B2H?B2P@%S}B2Q@'%W a A"%2@@P@@9-@@u= _2@}s-@@uw 2@@P@@,6-F:A,6+6-&@6-AV$+AV@U6}-&@ 6-AV$3-A6A8?AC UAYA<A#@'B2w@66-?:}Ax,<(}CF-@(F(+E33(+ hehipq }Fj-@@j(P udgvbeut H H H H H H cdsht {Gd-@7}@d(IH11()}J_-A9Ar@+@?%@M%@[6-%@_ Mi #A5!}-@@ %"C%AV$@%G i2@OOO53,87,156,140,100,118,170,191},28,134,178,211,20,61,123,201,43,145,164,206T0@@@70@@@Q0}k0@@@0@@ @ma #Af@v+A`@5?-@@C"K%}O aAY@Cn$$14,3,15,14,3,15,14,10,14,1,3,6QAdAU'B2I@36-?6-Q}AR@;6-6-@4'6-@36-@;6-%7B2x72@}i6-%@"@+6-%@A-@4&%@G( S6-i&"@(A0(6-R:},"@( A3"@6-@)6-&@3 Ap0T:,"&6-%@0 AU} AP!A`6-A`{6-%@!@x?2@AP@@K6-@Y6-%@}{2@ A @S A0B2I''67%<%%@,.7<%@}, F:B2R,!@B F:B2S,!B A"X6-@6-A08-@6@"}6@F6-&@b2@@@F:B2S,!Bb+'67%<%%@,.7<%@,+ }l~6-@6-A 7-@"@7@E6-%@a2@@@~F:B2S,!A0}v+'67%<%%@,.7<%@,+ {76-@X767%@4<%@S,.7<%@,G6-@46-@X}=2@G A"x'%AV$@%A"36-@P-@7@06@}x2@%%%%%%@@+'67%<%%@,.7<%@,+ I6-@"+-@0@@}I2@%@@)6-%@!@x)6-@+'67%<%%@,.7<%@,+ +@}%@'AYA0@@[0@@@u0@0@@}@0@@ @=6-%@/(@ We Do=(@-(@ Ve }-(@8*(@ sRe P:,%A8(@''(@ LiS &@'A}@a'AY@B K6-@"-A")B2IK2@K6-%@!@x}?2@AP@@K6-@ [367%@<%@%@,.7<%@,E-@@W(@}P:%,[ *+6-A+-@A(@/t'67%<%%@,.7<%@,+ M2@}_-@@t(@%@2_-@@,(@ Go Lu>-@@S(@}%@_6-3u-A%6-%@A2@@@E S6-%@u2@}R"@6-@[#A"P%#-@@'"E%AV$@%AI [AY}. +AY.6-F:A,+6-&@6-AV$+AVC6-&@ 6-AV$}3-A6A8?AC s-A9Ar@+@?%@M%@[6-%@}_ i A#s A@53,87,156,140100,118,170,19128,134,178,21120,61,123,20143,145,164,206}j'%AV$@%A"AH9-@(j(+ 33(+ heh}ipq  _-@@_(E udgvbeut H H H H H} H Y-@%@!({zyxw3-@@>(cdsht P-@@Y(  d-@7@d(I}$ g1()CA }@aO6-[6-@g6-@2. _ #A#U!-@@%"C%AV$@%AG S6- }_6-3 20,58,97,133,168,2068 j-@8A@7=%AV$@%AGc%AV$@%% }@AHg j$ K-AU@+AG2@@@K  -AU6@ },AH2@@@L n2@B2I6-&@ +@ }%@'AYA0@@[0@@@u0@0@@}@0@@ @ /!(@ b Lu/(@ 5'(@ Ve %@5(@} 8*(@ sRe P:,%A8(@ (@ LiS  |AY@B)-@}A- 9"@K-@@Z(@0n-@Ar | A@ +6-A+-@A(}@ R'67%<%%@,.7<%@,+ =-@@R(@&@ ,-@@,(@} Go Lu l -A$6@%>2@%@@B TAYb6-&@l A"}+@%@'AYA0[0@@@u0@@@0@@}@0@@ @6-AY@C-@@%6-%A(9-@}= Y2@@@e-@x(@ Am| -@@:(@ (-@ }:(@Am-@@%6-%A(9-@= Y2@@@e-@x}(@ Ve| -@@:(@ (-@:(@VepAY@B'-@}@(@ Am Ve N(@p2@5'(@ sRe %A5}(@0"(@ PrS Ar0(@N$(@ R Ne Ga2(@DAY@B}N A@Pn-@@)-@@B(@ V-@@0kF:B2y,"@n%}^ -@@2(@ PrS ArF-@@0[F:B2y,"@^%  %A!BP!-}@@>(@ԠA$=!B!-@@:(@ GREAT SCORE=$<!A@!-}@@9(@ <$; A@!-@@8(@ try again;$''67%<%%@,}.7<%@,,6-@X6-&@@,6-R:, F:B2S,!B!!"@)"@A"}0T:,"&6-%@0 AU%B2I @S% A0 AP(#0F:B2S,"@&6 }-%A0 A)# A *#x#A%"1%AV$@%S2@@P@@_"@!}l6-6@x6-@+#("@6-6@(6-@,#20-#58.#97/# 1330# 1681# 2062# -"}%%(Z3#6-@6-A )6-%@?-@0&%@G(S6-i-@7@w6-%#}@2@@@<#7'67%<%%@,.7<%@,+ 76-@XA#A+67%@4<%@S,.7<%$}@,76-@4A A!'**F:B2S,"@*"@A ' F:B2S,!A N6-%@77%}%AV$@%%@]%AV$@%%@k6-%@w6- A!0u%D:T&}RAIN2NW.BAS'}(})}*}+}4?<|<,}-}.}/}@%0}S2@@P@%5 EI X; ************************** X; * *( X; * WORD-LOCK *2 X; * "2} *3 X; * April, 1986 *4 X; * *< X; * by Andy A. Lee *F X; * "3} *P X; **************************ZX;d INDEXn CHN16x BADS MAXIN DELETE~ RETURN"4} DOSINI ICAX1J MEMLO READ WRITE OK PASSCNTRPASSLENSPASS"5}@X;X; Rest Init...X; ------------"X;, TODOS 6 MLLSB$>@ MLMSB%>J &MEMLOT 'MEMLO^ TDLSB$>h"6} TDMSB%>r &DOSINI|'DOSINIQ> WP:X;X; Open vectorX; -----------X;OPEN&CHN16DOPN "7};; Open the file6;; Save status)>OK;; Process okay?FOURJOB;; OK! Our turn!8;; Error code :;; ReturnX;X;"8} Our works&X; ---------0X;: OURJOB1D $CHN16NC;; reset counterXPCNTR9;; to zerobQICAX19;; Is this...lR>READ"9};; read a file?vFCONT;; Continue if soR>WRITE;; write a file?HNOPASSWORD;; nopassword"X; if it isn't read or wri":}te...X;X; PRINT "Password : "X; ------------------------X;CONTQ> ;; 11 characters PINDEX PRLOOP%IN";}DEX;; Load indexM1QMSG8;; A charaterS1 SCREEN;; Print it"INDEX;; Next character HPRLOOP;; Done?X; X;"<} Input the password.*X; -------------------4X;> INLOOPHI1 INPUT;; A keystrokeR %>BADS\ CHLOOPf B1RBADIN8;"=}; Compare withpFINLOOP;; unusablez1;; input table. HCHLOOPR>DELETE;; Delete backs?HCH2;; If not...%INDEX;">}; Check indexFINLOOP;; No input yet!S2 SCREEN;; Delete letter"INDEX;; = INDEX - 1IINLOOP;; Next keyCH2R>"?}RETURN;; RETURN key?FSTOPIN;; If so, stop?;; Y reg. = AQINDEX;; Too many? R>MAXINFINLOOP;; Yes!!!LCHN1"@}6;; Store>$C. PPASS98S3 SCREEN;; Print it too.B#INDEX;; = INDEX + 1LIINLOOP;; Next keyV STOPIN`S4 SCRE"A}EN;; Print the j%INDEX;; PASSWORD?tHSVLEN;; Yes, go on...~NOPASSWORDC;; Y reg. = 0$CHN16;; Clean password"B} PPASS93;; Length = 1SVLEN$CHN16;; Save lengthC PLENS9%>OK;; No error flag $CHN168:;; All done."C}X;X; Get vector X; ----------X;GET&CHN16(DGET ;; Get a byte26;; Save status<'INDEX;; Save Y reg.F"D} $CHN16PC1 CODE;; Decode byteZ%INDEX;; Restore Y reg.d8;; Reload statusn :;; Done!xX;X; Put vectorX; -----"E}-----X;PUTC2 CODE;; Code the byteDPUT!;; Output to disk CODE5&CHN16;; Save channel #QCNTR9;; ca"F}lculate theLCHN16;; byte to EOR?;; with...#CNTR9;; Reset counterQCNTR9;; Set back toRLENS9;; zero? HN"G}OTNOWQ>;; set to zero" PCNTR9,NOTNOW7;; Load the byte.6FEXIT;; ZERO? bypass!@RPASS8;; = CODE BYTE?JFEXIT;;"H} BypassTNPASS8;; Coding...^EXIT$CHN16;; All doneh:;; Bye-bye!rX;| X; Screen - print a characterX; on "I}screen.X; SCREEN?;; A = characterQ;; location of5;; PRINT routineQ;; in OS5C;; restore A:;; "J}goto routineX;X; Input - input a keystrokeX; INPUTQ%;; location of5;; INPUT routine&Q$;; in OS05:"K}:;; goto routineDMSGN A : drowssaPAXX;b"X; Following characters are notlX; usable for password.vX; BADIN "L}=====}= ==== =X;X; Install WORDLOCKX; ----------------X; INIT$% &X"M} 'Y$*;; Get address%+;; of "D" vectors &;; table' X;* X; We will see if WORDLOCK is4X; already"N} installed>X;H CHECKRQ\R> Wf HCOPYp !EXITINITzX;X; We now install WORDLOCKX;COPY $DOSINI%DO"O}SINI &TODOS 'TODOS $MEMLO %MEMLO &DOSINI'DOSINI &TDLSB 'TDMSB ,;; calculate n"P}ew QMEMLO;; MEMLO O>4INIT@$ PMLLSB. QMEMLO8 O>5INIT@B PMLMSBL %>;; First, copyV ,;; OPEN vec"Q}tor` Q@7;; so we can usej O>;; it...t PDOPN~ 3 Q@7 O> PDOPN %>;; Now the GET ,;; vetor too..."R} Q@7 O> PDGET 3 Q@7 O> PDGET 3;; Last, PUT ,;; vector... Q@7 O>( PDPUT2 3< Q"S}@7F O>P PDPUTZ %>d ,;; Insert my OPENn Q>4OPEN@;; vectorx OMEMLO P@7 3 Q>5OPEN@ OMEMLO"T} P@7 %>;; Insert my GET ,;; vector Q>4GET@ OMEMLO P@7 3 Q>5GET@ OMEMLO P@7 3;; Ins"U}ert my PUT ,;; vector" Q>4PUT@, OMEMLO6 P@7@ 3J Q>5PUT@T OMEMLO^ P@7h $>r CALQMOVETHESE9| P"V}Ն 0 QMOVETHESE9 PԤ %> ; Q@7 S>4@ P@7 3 Q@7 S>5@ P@7 1 , Q@7 OMEMLO& P@7"W}0 3: Q@7D OMEMLON P@7X 0b ICALl $MEMLOv %MEMLO &Ԋ 'Ք %> MOVEQTODOS8 P@7 3 HMOVE"X} # %>4INIT@ MOVE2QTODOS8 P@7 1 )> HMOVE2 ,;; calculate new QMEMLO;; MEMLO O>4INIT@ "Y} PMEMLO QMEMLO O>5INIT@ PMEMLO EXITINIT X$>* Y%>4 &> 'H Q> WR P\ :f MOVETHESE S"Z}1=S2=S3=S4p  I1=M1=B1=C1=C2z  INITEXITINIT X$>* Y%>4 &> 'H Q> WR P\ :f MOVETHESE S 4@NB  W` (`JU @ @ @ A~  @ɛ&\}  @ @Ȯ(`  @(` @LH hY`HH&]}`%H$H` : drowssaP}ԤՎ0B2B*+ԄխWL/B @@ @@i@i@i@ȱi&^} @i@ȱi@i@ȱi@mȩmԠmȩmmȩmԢ=Bʽ=BԠ8ȱ@Ԉm&_}ȱmѮԄՠ@ՠAԈiiԄթW`F@d@@@N@C@S@@@A8ȱ@Ԉm$g