APOCAL.EXEW  PRG formatted GEOS file V1.0 !AA!APOCAL.EXEV1.0Enrique J. Fernandezasic 9 > 9 6  9 5  |geoBasic 8Copyright (c) 1988, Berkeley Softworks`   ( 9cT!#bf9|L(ƉńϐՔ R. iI Š L8,;;<<M,M<,2TAPOCAL.EXE           APOCALYPSE!' 8, 047;?CG8, 047;?CG0AAA qׇ؇ه @  `,OC(}T(}e(}v(}(}(}(}(} 8 9 8 L< 8 ? `,  <   $  Lf  i  ` Hh`Hh `T S HH H H ` hh hhu؅% !M {$ 9 8 ` hHHH~hhh(`8 H HH < hh h LV… H qe , h`   HH8 i: i0 L[ Error I: 7 5 6 L©@{L~` LN    (LNLE LE <  ; Lw© < { ; H thL©,,, , ,H hL ,,, , ,,,,,,,!,$,',*,-,0Hx hioil LO LO LO LO LO LO LOLG"hhH5 hhhHH``e) (8eȐ`V U Lp` !L| !$L|   ! |  L,­ժ) ``0Eg؄uc̄GWOC7u3, ,o , , , ,,NDŽ: 1: x      X`HHH hՠ' r hh: LHH Lo Lo LoLLOLO LuH h u,L + $A ` G F OHHLO: LN LE   N  LE   N  LB&LE   N  LE   HHHʍ9)L/)   N  L!E O OLO4 `4 4 /LK    G F ] OHHLO ~LK ] x ©-XLt)A[8`L 0$LH`L 0x  0  ݭ ݩЩȍЩЩЭ!Щ؅ { * 'Ѝ(Э)X `x  ݭ )ݩ;Щ9ЩȍЩ 0 (X` ? K/ )/@..L7LOLNLEL{***` & &e & & &`J 0 J `x   2(qBI y( yL( y,H  L$E  LH  X`Hx  h  y(Bq y  X` uoo8 u`,   o( +/ L    `Pi`P e e` ~q1(`ĐŏHH ~hhĐ ŏL!`Q R ! ş ( !ſ 󢉠 ŋLf ! ȱ ȱ eȱ e(Ҋ0ȱ ie !! ( 05ȱ 0ȱ *ȱ ȱ Ő䏰  e !!`)I 8 ~ȥȥLNHI8eČŋ h`0 ~hL!,D 0ZHHeȱeD $,O eO P eP  hh`iШutsrqpq) *,q q`tsrqp`)`pv`vp`IqIquIu LRvqvrvsvtvu`tustrsqrqiѨ`q0pppu&t&s&r&q$q0 p"L8ppӰLputsr qq pu`p fqfrfsftfu`LHue{uteztseysrexrqewqLppLvʢ8p pIi LI8uuutttsssrrrqqq LILvep0ipE Lpv` LJ H wu||f|f}f~ffhJ`p.vp& |Hq :h|q ` pip pL  HLp~vv L8pp pwqxr yszt* 24(z&y&x&w0⨥ztzysyxrxwqwL@ u(Lp8LH HLp8頦 H h qrst`pɑL, Vts`pɐ  L,LVq*rstup Lqrstup LޢH h LH e heL`H hL)88 ` `p$0ɢ- 0HI7ɡ3+/.f$P%p8)E ff$Pp($ f)$0 !Щ j*I /` HvL vp{uztIL` F-ȑȩ0pLL^ H dT Y    J Vi 0 i8.ȑ0ȑtyftsyesrydrqycq00ڊIi i/ȄȪ).ȑI)$<Ш0.ȩ+28-ȑE/8 i:Hȩh`ȩ`nk'>nk(  p j`p`pɠ Vut󩠅p  `F` L  HplvL S SH  +H E   E d AhJ`LHpI`8;)< H duiP R pɈ i8Hu  hLLq4X>Vt~w/z*|cYX ~u1r c p`p8Hp: H ? H  H ! D H h I HLdL,^Vy dv88; 54541r H  L  H  L    H H J N IN 1 H h 1L SN Z S EN  ELHLIڢIڢ-(h#5](IڢH 1pHɁ  H g hɁ  H h 1` vy{| g|S}dpL}Qz}c0~~D:~L̑ LHH ShhHH I dhhe I HHhh` LHH S  dhh  ELduLRuL ~LK ªHH       x  E,] LE 8僅儅L M BJ K 356X8?7Dž4LxL  L ee Š ,H L$E  LHL L L'  Q / # L  F / # L ; /"*LHF ȱG `RQLx 8# )#,)Q )#, 8#Q Q u F G L L`)ȭG F e` F* A! L*0 A!,O!`L  *L{! E * X* ) L!0E8勅縷包ŭŬ $0C ~0ڥee8L~ee8L~LHee` ! 'E ! !  !L!IIi` `J   ee ,# 0 nLz"0 "  eJ  С e(`H /"2 e,$HH !hhh  h©`h`h`L!悄 : 0:,8(` # Օەɕ` # # $ ե ۥ ɥ   `  8ðIi  8ϰIi  `&&JfJf8ee` &  i` i  i  r  r`؇ ه4    x$ %LO % q 'н)^ ( I-Ѝн)^ ( I-ЍнH )  M# $h)@ % LJ% } uÕH h*н^ I-L% Ѝе} uϙ` w w } w L3%` Ș݉ ) ` ݕ ;   `   e e  ^ Ѝ `Ƚe k  N Z8juHȱZuHiN hhο` LF   ޭ ާ 潥) I  j Օەɕᩀ ` gp x ,' ЩЎЎԎ Ԏԍԍ ԍԭ) ~ u  @. M ] 4 56 K w. 3 D 1 2 8873L Dž4<$ALO\ [  xX W Z Y 9` 0Ki  L*0:  L* L  *L' E * X*  ) ``On disk:Insert new diskswap errorgeoBasic and data fileP@must be on the same diskPPin a one drive systemgeosgeoBasic Info preference mgr?Extra ignored?RedoTPH HH L)@); ; { t $:     hh hLNAPOCAL.EXEV1.07 6 5 )# 6 5 ` 6 5 `' M LK )L) )L)t,w,,,,,,) Š  LH`  F  # ` `   ȱ ei` )` 0 ` )` )  ȘL) )L/" 0 `   ȭ ` L* .x *H  '  h *    (LX* *"  )  P+L.* L+* eHeHx  m ) 4*  )    P+hh  (` ȥ`Lc3?fc0fc3fc3>9  ` l l l l l p`L© T& Q@  X M P 7U`LKĠX r LK UFU?UUBU@U:UU;UO);   {V3 {KNQOQ 'QЍ(QQ)QV G Q , LQ@ =)5V ;)3Vߍ<)4V` X X ( RR S RRʍRR6 7 R T=V#WH<V"WHV=©<©@U @ R , hÃf훆cf͛cf͛f͛f͛c>À~L¬``6 6 L©6 0ɠ` TJ@  2X M Pة{HH hh@ YŠLO `RR S RRʍR&U 6 7 &U T @ @ U ,  SP Ġ' M ¸P@`` ' =  {X 0  HRHH LK w`U@UU @ tŠ O`` basic data V1.0basic@ !AA!APOCAL.EXEV1.0Enrique J. Fernandezasic 9 > 9 6  9 5  |geoBasic 8Copyright (c) 1988, Berkeley Softworks`   W M LK`HH ;hh W ieW$L;  e e ii ! 8僅JfJf  e  e    `Disk full, remove some filesPlease Select Option:new documentexisting documentto deskTopFile exists, choose another.Data file is beyond V1.0WARNING!This file is write protected.Please enter new filename:Please enter an author nameopening filecreating fileLu  H @@~h ei2i( 5HХ LHLHL  L2v ­L   P ' hLhL 5hХ H @~@ {h v M Pv r  ')JJJJ5'Ѝ* `Not enough free space onP@disk for desk accessory.running desk accessoryLNLNU V U UU/ - T S ,w S  R Q S OOd ZUU)@   9 ?LpOH OL') OLLUU@`……ȱW Y ȱX Z Y Z Y i[ Z i\ [ K$\ L$Y B$Z C$U V `DCՅ) ՠȱ ȱȱ爈ɑȱ eU iV $ ` AQ BQBQAQSP _S NT M LK` PAQ.BQAQiAQ G­BQAQ J©U M LK BQAQ  'AQIBQI U&TPT M `NDžVe u8AQ8BQ8P8Qii"/E` 0p gp xL  " / 3 D A+ , -  ')JJJJ 'Ѝ* %Щ&   e e ii ! 8僅JfJf  e  e    `©,2BM慁 "Dž,Lx # y` `(C ;©8iH h `i ` ԅ x `Please reboot your systemP@using the same GEOS diskPPthat was first used to runP`geoBasicCannot install geoBasic onP@this disk. Please refer toPPinstallation directions inP`the manuql.Cannot install geoBasic on aP@write protected disk.Error installing geoBasicgeoBasic installed.Lux  { t© ) )  OɜZ   ) )   ȱ/ Oɜ yOɜLH8僅儅 x )v  ) ) w  Oɜ8 x ; <  / XLcvX` Ȅm   LH  *   ` Q ; /" eeHHȱĠ0hh`Ɂ Ƀ xP vP whihieÑÅȱeđÅ)?ȩ-ȩ(ȩבȩ i i eÍ ȱeč eÑeđqȩ Lw wȱeÑȱeđHHHȩ eÑ eđ)?< wȱeÑȱeđHeÑeđqȩhhhhL?weÑȱeđ`eÑȱeđ`Lx  eÑȱeđȱeÑȱeđоȱeÅȱeąȘHeÅȱeąHH QR u hhG #LHF iȥieÑȱeđkȩhLw`ÅeÅiLyeÅȱeąHH QxR u hhG #LHF q)xqȐxix(ȥixeÑȱeđeÑeđtȩiLx`    feeii   e  e  `LWgLITL]LZLL8LLLL ]L,]LTLJnLTLmLnLL &iee`HHH H [h hHHst /#,ʄ E\hh)ŌLP   eȱeɥ OL-Q,LH O ] ȭ ȭ ȑ $Phihiȑȑ Q e?e4 ]掤Ǝ8ȑL-QLQ`hsht HȊ@ȥ Qes et΅ ʭ ʆ~ Qee`LP ~ *& e~e`LH YJ S RH!RH K\ ͢R , h!h hh  YLY YJ   ooSS jS SS SR5 7 R uSR ,  '  Y\ SLR Ġ' M LRHH hho   C B  t­C B @=  LY +oH  -o ( ' ;SL* SbSٞٳٳ?03L©`5 0ɠ`5 I5 L W ihh H Hl ( \ ˍQ GR M L 򅂤Ƃ` 6L ȱ e'0 SLTLa:L]ȱȱe )# ZTM L.HLT"8逰!i@:e`L_J cHcHL)#J cHcHL)#L] 0`J HH .nF G nhh ` V M\ AV U TL0. ` W. ` U TL3 H\ U E\ ?L 2UL9 W"<` PUL$ PU. L' PUL* V  LUL[tIUU U  K\ .k V +_X`q ,ϩ`JHjh`JjFf` ` `ǥҔ6`66` V `@L)fȅL)f, k V- ^ V K\ k V ^ V` k V ^ V`LL5 3 f78586 6fLf W8$0`LHNcHMcH VL*WLch h!H LtHsHrHqHpHl h#d VhJhvhwhxhyhzhEp`ƂƁHH [ [ /#8騐*IEY )#L C B  -桪 ? > C B ,= 0=  XLYLHLq q q?  XLLH S!H H ^HH phhh h!  ŠLpLp S nH!nH ^HH ^HH pnn mrnʅohhhoeohoeo o"nn t )hhhh ) wh!h Lq qXLYx  ,= P = 0 ? > C B  H ? > C B h  LHX` S!H H ph h! er!n n H nʅ h Lponn t )@= Lp! L8­@ A # C B  UsLp@ A `  pr> ? B C = o wŠLp  X`  ` H H h h HH/H H Mhhh h б H H     xhh Lr ȭA LJ©,= PL tA @ B C W$0 d iA @ C B   , rL,= P =   /#&, A @ C B )#Ls,Lp A @ C B X` 6t  )  X` W  H prh )  C B @= X`L[ 6t  )  X` 6t  )  X` Wo /#H,Ђo x W i o /#, WoX`H th`LoLXpLpLSqLoLoL7q ()LCB  /#ɚhɝc,S; )#` W$0 d iHH  (( ~hh C /#Lo8 i  W)#(m ʝ( C )#LoL]x   y  X`goJJJJpH)ph p(` 03": @center ::4 "********************************************"1 a1 "APPROXIMATE PROBABILITY: ";a1;"%":. a2 "CLOSER APPROXIMATION: ";a2;"%":+ a3 "EXACT PROBABILITY: ";a3;"%": H "This is the probability of an accidental launch of World War III"4" "********************************************", 6 @reject0@ t$"ENTER A MORE REALISTIC VALUE": @centerJ @continueT ^ @algebraich &r t$"": @center| ! 12);"AP=1-[1-P(U+S)]^N":  @entry a11(1p(us))n xa1: @rounding:a1x @results @continue :"apoca":  @closer * t$"": @center & 12);"AP=1-(1-EXP(-NP(US+S))":  @entry a21(np(us)) xa2: @rounding:a2x @results& @continue0 :"apoca": : @exactD $N t$"": @centerX !b 12);"AP=1-(1-P)^N(U+S)": l @entryv a31(1p)(n(us)) xa3: @rounding:a3x @results @continue :"apoca":  @entry u%0: u @us1  @us  @us1' "Is US=";u;" missiles OK? (y/n)"; : a$: a$"": a$: a$"y" u%1: @soviet @us< "Enter number of US missiles.":"(Possible 1900):";u:( u1000 u5000 @reject: @us  @soviet s%0: s @sovit2  @sovit1 * @sovit2-4 "Is S=",s," Soviet missiles OK? (y/n)";> : a$: a$"": a$:H a$"y" s%1: @launch R @sovit1f\ "Enter number of Soviet missiles":"(Possible: 2200)";s: s1000 s5000 @reject: @sovit1 f @launchp p%0: p @launc1 z @acc  @launc1> "Is P=";p;" accidental launch probability OK? (y/n)"; : a$: a$"": a$: a$"y" p%1: @days  @acc  "Enter chance of accidental launch of any":"given missile over any 24 hour period.":"(Possible: 1E-8):";p: p1e12 p1e3 @reject: @acc  @days n%0: n @days1  @days2  @days1# "Is N=";n;" days OK? (y/n) "; : a$: a$"":a$: a$"y" n%1: @flag  @days2_:"Enter number of days: ";:"(possible: 14600)";n:: n1 n400000 @reject: @days2 $ @flag. fl%u%s%p%n%8 fl%4 a10:a20:a30B L @info V "apoca" ` "apoc1"j t @rounding ~ x1100x:x(x1100.5)100  @quit  "end",a a2 @apocalypse, : i1 8:::t$"The end!": @center  @intro 0 t$"Another gem from yesteryear!": @centerD :"Original program written in APPLESOFT for the Apple series"L "computers in 1983 by Howard S. Balsam. GEOBASIC version" > "copyright (C) August 22, 1990 by Enrique J. Fernandez." ?  "To all interested original program and documentation is"L "found on the May 1983 issue of Creative Computing pages 196-197."H :"WHAT A DIFFERENCE 7 YEARS MAKE! The cold war is over," W( "however when this program was written in 1983 we weresmack in the middle of it."A2 "This prompted Mr. Balsam to write the original version of"r< "this program based on equations published by a Mr. Bradford Lyttle of Chicago on the March/April issue"!F "of the HARDVARD MAGAZINE."P @continueZ =d "Here he presented three forms of an equation which he";n "stated would give the probability of an accidental"x "launch of Armageddon." < "Remember, this is just a simulation! Play with these"8 "equations, plugging numbers for all the versions"  "of the equations. Enjoy!. : @continue :"apoca":