:I14.2234;"..."%^ 2550%h ""&r I;"... ="::I.0680415;"TMOSPHERES"*&| 25508& ""e& I;"TMOSPHERES ="::I14.6969;"..."p& 2550~& ""& I;"NCHES OF ERCURY.="::I.0334211;"TMOSPHERES"& 2550 0' ""(& I;"NCHES OF ERCURY ="::I.491187;"..." (0 2550(: ""N(D I;"... ="::I2.03588;"NCHES OF ERCURY"Y(N 2550g(X ""(b I;"NCHES OF ERCURY ="::I345.337;"ILOGRAMS/Q.ETER"(l 2550(v "" L xA(35(1))1+ B(35(1))1> @C(35(1))1Q D(35(1))1d E(35(1))1w lF(35(1))1 G(35(1))1 4 AB 1400  AC 1400  AD 1400 ` AE 1400 AF 1400 ( AG 1400  1640""I;"OUNDS ="::I.01602;"U.EET(WATER @39.1)* 16403 ""S " CONVERSION MENU"s ""{$ :. "EAD IN T.........EAD IN ...= 1"8 "EAD IN .............EAD IN ONS/INUTE ="::I.002228;"U.T/EC."* 16404""L>I;"U.T/INUTE ="::I62.4;"BS OF ATER/IN."WH 1640eR""\I;"ALLONS/IN ="::I.002228;"U.T./EC"f 1640p""zI;"U.EET/EC ="::I.002228;:I.0295729;"ITERS"X 1640 b""6lI;"ITERS ="::I.264178;"..ALLONS"Av 1640O""|I;"..ALLONS ="::I3.785332"ITERS" 1640""I;"MPERIAL ALLONS ="::I.84;"..ALLONS" 1640SION DO YOU NEED...";T N^"": N1 110<h" TO BE CONVERTED, PLEASE..";Dr IU| I0 1400f N1 1830w N2 1860 N3 1890 N4 1920 N5 1950 N6 1980 N7 2010 N8 2049,(53265) 16  A$"  A$"P" 10-  5000)Ӟ*V9*JyJ)Ξ++Vꕯ9*JyJ)Ϟ+YV9*JyiJ)֞)Vڥ9*JyyJ)מ+V9WvJs)v\6Jr\)s\Jwus)5|MےwW=M} DISK NAME = MERLIN-5/19/84 ===> DISK ID = GB FIL                                                                     2061   e    7  "     `A ` #   ` ` I ` e f   2061!(q&υ'76[bcdccdd𩁅cd Щ!Щ  Y   u  bcȢ ɠ c c c T \  X L YN2Э  bL e   : u   q L` Ln <`<  < <<莲 <莲 <莲 ` I ``   L  ) ) F ) )" ` u v u ɰ , 0 )  `qnʎ~S)`L oTkhkk{{k{{kowwwwwwwwgggwwggwggwwgg{{{yyyyy{onnnnnnj{{{{{kkk{{k{{jo}}}{{kkk{{{{{{kkk{{jk{jjwwwwwwwwwwvvvvvvwoouuuwwgffokkkkkkkk~vvvvvvvv~{{{w{w{wommmmmmowwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwgggggg{{{{{{{{{{zzzzzzzzz{{zzzoommmmmi{{{{{kkk{{kk{{k{{kowwwwwwwwgggwwggwggwwgg{{{yyyyy{onnnnnnj{{{{{kkk{{k{{jo}}}{{kkk{{{{{{kkk{{jk{jjwwwwwwwwwwvvvvvvwoouuuwwgffozz{{{zznoogeewwwwwwggggw{{}}uuuwwu}}}yy}uuu}}yyyyiikkko~~zzzzzzzzzz~~~zoommgwwwwggggw{}uuuuuuuuuuu}}}}wwwgggo{z{{}}uuwwwggggg~zzzzzzzjnjk{{{{kkkkkkkwwwuuuuuu}}}yy{{kkkkkkk~vvvvvvvvvvvv~~~~~nnooo{{{kkkkowwwwwwuuuuwwwonnnnjoowwwwgggggwwgwggw}uuuuuuu}          "'                           te ɰ,0) ` press return to continue blks file name....... type $ d'  ɠ          b   '((L ɁS`ɂP`ɃU``γ  L@L  Ly L  (`  e   <b  `cdcb T L( ȱc c ȱc `cd` e    7s ` ҍ ` `!! ` ` `ε `   f s ικL    ζη Y L ```  ```<<` THIS PROGRAM READS, SORTS, AND PRINTS ALL THE DIRECTORY ENTRIES,  UP TO A MAXIMUM OF 2000, FROM CONSECUTIVE DISKETTES, ON A 1541 ( DRIVE 8 ). INSERT THE FIRST DISK AND PRESS Y TO BEGIN. DIRECTORY IS FINISHED IF YOU WISH TO CONTINUE, PLACE NEXT DISK IN DRIVE 8 AND PRESS Y ! IF THAT Igwwwwwwgggwwggoo}}}oonnoomemeuwwwwwwwggggwgggw{{{{{{{{{{{{{{{{}}}}}}}}}}}}}{{{{{{{kkkkkovvv~~~~~{kkkkkk{{{{{{onnjjj{{{{{{{{{{{zzz{{{{{{{{{{{wwwwwww~zzzzzzz{{{wwwwu}}}}}wwwuu}}}}}}{~~~~~{{{{{~~~~~ww}}}}}yyyyyyyy{{y}}}yy{kkkkkkkvvvvv~~~~noogwwwwwwwgggg{{{{{yyyy}}}}uuuwwwwggggggo~~zzzyyyyyyyyyy}}}yyy{{{kkkkkkk~~~zzzz~~nnokkiiiiikkkk{{{{{{kkkk{{wwwwwwwu}}}}}}}}}uwwwwwgggggggg~~zzzzzz~nokkk{{{{{{kkkkk{{{wwwuuu}}}wwu}}yy{{{{zzjkkkkowww}}yy{{    yy}}uuuu}}}}}}}yyyyy{{kkk~vvvvv~~~~vvvvnnnnnowwwwwgggg{y}}}uwwuuu}}}}}}}}}{{kkkkkk~~~zzzzzzzzzzz~~~~nnowwwwggggw}}}}}}}}}}}}yyyyy}}}yykkk~~~zzzzzzzzzzzzz H`H- ``-`*GH2GHHH(H)H I\h:G"HBG#H*H+H I\ ehΰ`SGaG SGaGhGiG I\`.H.H.HzzzLIZi /HH2H3H I\h` ep8H:H4H6H5H 7H;Hۍ9H$@H>H=HkDH i ` V)hhL3SLV0x) XL>VJJJJJ ` iLV  ) m`8                          x ` ` x x x         `-m`HJJifafbh`a Ldy qeԽԹY`8jɀL'eɐɠLfeL1eL+eL=e qeLd qe`` dLdJ)J L]ei qeLd) qeLdab`eJj`~Ic Ic Ic Wc Ic Wc Ic Ic Yc Ic Ic Wc Ic Wc Ic Ic Ic Ic Wc25  a Ic IcΓ5F Wc Ic Wc Ic Wc Ic Ic Wc`i@i`?` 0Luc YJ`e`  c` $lh) ɤQH`aH`L` 3a 3aJLaL/aJL-a 3a` eHeHL^a0L?a**-`La& a ^ `L;^8` 2-0&J _`J _`J  `````0`.ЩG O]0`0GtG `0 zGGyG}G~G I\``8Z 8``8i``8`u.)uM a`  ȱ ȱȘehΆmhhhL]̅筈 m·LW\mHHʥmiiޠ)iSGʹJJJJiSGʈZG[G I\hh`m  [4H [8H [DH`=HBHCH I\4H8(4H5H5HDHLZ'` Pd YJi k` ɣ`,`,````5`2`5`͐`)ЭM `.Ѝ e )Э`H0 pYii(@i)@8 8LXy@/h pY) G8GHmHH I\h0LX`y(P pY Yxy 8888xx` &e`*```)"  `mح ݭ m )i ipW pW`0`` 0```ө eGj Pd YJ                                    ԏ.HHHh0I  d =f>f?fBf@fԽAfԽCfԽDfԘ8`ffg9j[mmm%nmnqnnnn!oroo$pppx H x ` ` ` x ` <Ax`A xA`` ɲLc  DQ`ɥ Lc0  DQ`ЍЭ  Ѝ i80ЩIm   Ѝ Ѝi Э0``,y dJ dLdJJi dI8`ٜ- ?`J>`La&& b?`JnJ>>﬎`Lb >%0? Ic Wc Ic Ic Wc Ic Wc a Ic Ic Wc Ic a IcΓ Ic Yc M`@H ehG8G O].)P8(`*GG2GGGG I\v `u T`8` ` ` 8G :``D8=(4( /8 Y5I eV V '[I`8i8P8(G O]8 _`4H8魐I8HH G O]L;^ mHTL;^L;^ɺWHHH/0(0 _ `H H f_   ``HHH0ӭ*HHH ^ _L;^HHH mЭmɣ5EH a Щ,5  7X ~?|77 >{Î?{~~^~xTP}@@@@?@@?????~}~}}yuu~p}?__Wpxv/ `KK I\KK I\ZG[G I\hGiG I\ bSGG I\`qH I\Gi HH I\` {TЭ)Щ Ѝ!ЩЭKK I\ Tԅ?` {T. S)L I T T`)` `H I\` HH I\u pYʠHHʈH I\`Li ЭЭЭ)  Э` 7X >22U@U@<=U|@u@ @@@<]@PPP?P?PPP@<=U|@u@ @@@* <=U|}<}}?U?U=U|UUU22__@@<=U|_]<<=U|Ѓ}<^~"Bb>^~sc @`    0(Q INSTRUCTIONS!X$GO TO A PLATE RACK AND TURN SIDEWAYS"X$PRESS THE FIRE BUTTON TO GET A PLATE1W#TAKE IT AS NEAR AS YOU CAN TO A ROD2W&TURN SIDEWAYS AND PLACE IT BY PRESSING3WTHE FIRE <@PPPPUPUP u G 'UGLP xULPp   #   " QNGQ\G UrGX!GQG!QGZ4$GjjhԂZ$Gf(    ?l~m}m~?xw??U~ZZ?~|?U~}~?EEE~~|?~Up~>ZZXF=JU*jr=UP?0?>?T=>?UU~XZZ|p }|*UXUj:UUTUUj:UUPUUj:UUTU|?='i(ii i(i`s Q i(QLS' 2#LR~?  8qs?s;988s?sp?0?9?;9;;;;;;?|?898Ο??xp=;o{}|??~|{m}vn};m=m|~Jm>~@~ ժ|x>:uu>_|?}zUUUU|^WWuz=UUUUWWV\??>=_WU>x|\|0<~?|UUZZ|X?UUZZ|X?UUZZx~|X? 8? UUTVNxUW_?UU^^z251,0:252,69:253,0.254,117:2150Tp150T,A:TT1:3A T08LG}01VORTEX 1  ! L%ʽ !LR` ()*+cwwcUI R RGS !iP i R R` GS !O GS R R` ZSLH&      Q i(QLS' 2#LR~?   `   8H #hL"L"L"L"ML#iL'&` ` i!Qȱi'Q'խRiORi( S$$`$Q` #L#{{lyyy~|O 3$`B(Ch *)('&%$#"! ʡyQ!!!CC (iy$۩ # # # # ## #``ܢJJJJJL"L"L"LC%LC% ` Q `] `i(iۢ&& 5(` TS؅ i(i`L  !  &I(%R"$!)6HRtD"BQ]Ht DB HQ0"bÜ0 6>>6ww=<g7?``)`)L*`)L#LLn))'L`)))`ÍL(Lx)ЩLn)` ' SR 3$LP*  S  S  S  SL* ԍ ԍ ԩ ԩԩ! ԩԍԍԩLԩԩ` ԍ ԍ ԩL ԩԩ ԩԍԍԩLԩԩ!` Ps( .s(q( mp(s(r(`((((*͢((& L%]НL" !L@%]LR!LR] LP&, Q  LTL# Q SSSSSI 2' 3$ L%LTL0 ȑ(DABCDEFG RmRz$% 0$ $ 'RRR` $(L"L" 'LTLT eS`RPR$$ ( 3$$ 3$Lp$S`*'%szuLPQM,({SNvRRR Lz$ R$RRL#"RRRRRL7"RRL!RRiRRiRRRR]Lz$R S꩛"QLC$ LT LTL"L)@%L@%L&Lk#e'()OPQl{c⪪UVWXYZ[\]^_`abcdefghijklmnopqrṣ{TRz ŝtKJIHGFEDCBA@?>=<;:9876543210/.-,+)  !"#Lu=<;:9876543210/.-,+ L%ʽ !LR` '()*+cwwcUI R RGS !iP i R R` GS !O GS R R` ZSLH& 'i(ii i(i`s?|8888Z(/| (   h/`f!((`x((((((`R(R(( ((i7Щ(( ((p((q( t(((((r((s(( ((p(q( t(r(iЩ` )`L0*0%L%*((( ((iF:Gp(q( t(r( 5S]SɺAɺ2ɺ#ɺɺ r'ЧSLRԍԍԩ ԩԩ ` ԍ ԍ ԩH ԩԩ! ԩԍԍԩԩԩ`ԍԍԩ)ԩԩ` &' r'L3$ r' 2'L'` ROxy||~lll{ll||{{~|ll~{lll||lL&`()*+,PQRSTyz{頠ߠ_i_iߪ <]Ls%LLSLs%S#S &&& X'L%% &Y&L%LP& ISL%IS 3$& L% '& 0747,184(D9)=JX97289766:X,3::53280,S:SS1:21214,SS:21215,TTnT21196,14:D0SU021229:21409,(21409)2^SU0:21198,0:8098:SS(21214):TT(21215):E990hX118::r""38)"M"36)" E"36)" ";|"N"36)" EY TO START! X09:A$::X0:D0A (8192)139(8420)421278U A$:A$""286~ 53272,21:XX1:X9953280,0:6200 X9921136 X20053280,((1)15)1:133 280 A$""300 E(10848):E1E11 EE1:10848 ";:X136:"";::" "E 10)"";:X118:"";::"":X12u 10)""18)""::10)"";:X118:"";: " FORCED ENCOUNTER " 19)" ":16)" " PUBLIC DOMAIN SOFTWARE & # #``ܢJJJJJL"L"L"LC%LC% ` Q `] `i(iۢ&& 5(` TS؅ i(i`L%L@%L&Lk#O'()OPQl 33)""Ҥţ "L" ţҤ":""34)" "y " "35)" ":" "36)"":" "36)"" "35)"":" "34)"" Ҥţ ":$ :V8,114:V9,200:V10,90:V11,200@V12,250:V13,170:V14,123:V15,166:V28,36:V37,7sV38,8:2041,193:X05:2042X,194::V41,8V42,9:V40,12:X4445:VX,9::V46,2:V43,2V44,8:8"ţ "13)" ENCOUNTER"SO1" ":X1150:53272,21:@""13)" ";:QA(8176)46B((21214)((21215)256))1024((15(21409))40)21332:"";:X118(21409):"";::B119)A$;BA"";BABB ZZ10 :LSHSHSLS:795E1:920BZ0:X20052009:Z30000,(X):ZZ40::790^ 53269,254:T,0:SOSO1%SO3CI1BB1:CC4:DD2:SU1:SS1:UU0:320*770410056,7:10051,129:XB1064((15(21409))40):Y54272X >Z0 Ҥ""33)"":""34)":""34)"":""33)"f"Ҥţ"";:D0X1D:"";:" ţҤ":""34)"" "35)"":" "36)"":" "36)"  "A$:J$" ":""A$;:K$" "K&X9B:J$A$;:600::600w0B$;:600:C$;:600:D$;:600:E$;:600:F$;:600:G$;:600:H$;:600:I$;:600DA0XC92:600:K$A$;::A1:600:550N410 X10051,21:1  "36)" ";"2  ";:X19:" ";J:"SCORE 00000";:X19:" ";::" xE0:X016040:Z(30000X):Z176EE1E0Z1601863X,Z:53269,254:56295,7:E1:900:510610:21477,0:10056,9:10051,12910832: ,E:2003,(10E)48:56275,7:2802 ,54296,15:"":E0:T,0[ 6B22:C33:D2:21409,15:SS139:TT4 @V1,221:EUSO:SO2SO3:EU2:CI0 B10703,0:E1984,(178EU)CI E9471,6:U,0:A0:BB1:CC4:DD2:C1021278:310G10746,(D5)1:1 10)"HIGH SCORE"HS:10)"LAST SCORE"LSB 13)"-INSTRUCTIONS-} "[..=1 =5 =50 BONUS=200..] "MOVE WITH CRSR CONTROL KEYS. 9)"HIT SHIFT KEY TO FIRE. 12)"OR USE JOY STICK":8)"HIT RETURN K{cUVWXYZ[\]^_`abcdefghijklmnopqrṣ{TRz ŝtKJIHGFEDCBA $y$ e # %#'y$ۢ# ## 5( #y$# # %#i  $ $y$ e # %#'y$ۢ# $y$ e $y$ e # %#'y$ۢ# ## 5( #y$# # %#i(iy$۩ # # # # # Ҥ"  "F"  "q"Ҥţ" ţҤ,""33)"":""34)"""34)"":"" 1:A$" ";:XB9:600:C2:9602BABB1:" "A$;:XB9:600:970;820TUU0SO2895:510cUU0900l510V53248:V23,252:V29,127V2,205:V3,221:V4,230:V5,200:V27,254:2040,192V6,255:V7,203 (21409)4:S03:XS,221:YS,4:10034$H:XX40:Y54272XWR:XX40:Z0(21409)4:S03:XS,32:10034f\:XX40:xfC2" ";pX1156A:" "A$;:600:z120""13)" BONUS MAN ":X11500::910" " "35)"":" "34)"9" Ҥţ";:n53269,254:53272,21:10011,96:Z1:D7Z5:CI1X150Z:10152::10011,234:UU1:10115,20:10072:32053272,21:Z1:LS0:X200920051:LSLS((X)176)Z: 0056,XC2:10034:53272,21:%b"";:X1D2:"";:Ql"ţҤvX12:"  ":"Ҥţ"";:X1D1:"";:" (T)1800 (U)1750420XA$"":B$" Α ":C$"մʴ "D$"    ":E$" "F$" ":G$" ɝ˝":H$"   "-I$" _UU__WUUUU]WUUU???<<??||||lllll~|||??      < <"    <  < <$     <&     <(         &'&!" !  ' '&'''"TSRa  '' ' '&%''gXJbTSRQ (' '''' '' ''''g``ggWVUYZ`Q (' '' '''  #'g``ggTS`g[`g (' ''''' ' $ gRKggXW`ggZg ' '' ' XWVIgSRQge[g'   XWVIg\gg$X` 16384:" ?808,225:01,8,13:5,8,5,"#"U01,"B-R:"5;0;0;0B$"":L124:#1,S$:ST0B$B$S$:L5:15:B$ "MAGIC CARPET -SE00E0MC"1,7n10072:X016:53248X,0:s53281,0:1240:X016040:X30000,160: ?8 ??s}???~v9?w0>>.3?>~880`p0>?/7?<|880`p 8xx8k@ @P {@ :ՀB `|p<pp000p` ?px| ?>0 }>xx?|0$ffۀ~x>|}۾   }۾>|x~ۀff$ 0 < <<<xp`~f$$< 7=<|80`p0>?/3=<|80`p k8l88h`x?>8?|~`> ??????????>?  * ~Z00<<<: ??(*; <<<<𰰠 PTUUꪪ  * !"'&!"!"!"!"$#''&$!"!" !"!"nnnn~~hhhhxx~~8||||||8f<|$B|>?~$$1$@B\?("a8F LI$"B%=JhQۄ~  <x2m[@>~cO?<߾_<9 ,$(80 p<?p@4 P~8@k+~w?``7n{[n o_{{080>>.   <00????<<?::??? :* ******𰰰**   ****************** 踺몪꺺 }X`g{~M(P(`g{~P(ʈ u`d j(>>  |p|p|p|p|p|p|ppp  /D/D/D/D/D/D.,*).,*).,**).,*) 56556U:983X8351( 88:S8618P556886531 0f0m }eԎԄfAаin }eԎԄiA Жf fԥi i ԥr hL #httLYqȱqsLNԅqrȱqԥutqiqrIƝ)` Ѝ!hhh@l)ۤj뤅k8l k8kjfjkJJJJ)  й  I-Ѝй Ѝ`Ѕc9`ܭxԭ)XIܠJJJJJ` yЙЊ0 JY`` }Н&` 5`J`9`8`>(<( H( (( (h(ޠ>(  j Щ < ? " 拢 LU ד < ӓ  j ЩdCE ͠ נ C >>> Ӥ }Ӥ}ӤJJkj`ԍ ԅe` (*979/%]+,,]9]` )``F  F  *,+*,*,``B8B`==eeGQS=x0cx)i  `)6.AB-BUB}BBBٍڍ-ڍUڍ}ڍڍڠAAiAhABBBB'㭐AABBhAABC t( )((` Ť pLaH0 H0  i0   i a5C' , )eeJE)eeJ / 2P tP/i/  fLf A'ЩAA )%*r> A'` p] )URAU^0C'ХIe,]9] : M E^LΏ``Pp0   # ֏ˑL$ ֏`є ] -57AL'C)0) f,M tM )i0(, y;) s((ЬLf;%"A pAɨ @ (- )(5 Z A-Ѝ((`;) I ד;% Aŭ B(-LL%] -58LL f;%x,,nJ  t sc) t @ʆ`C)CC)C)`)"C CC C@?h)`ҭCI2CCI2CC)pCmL)$$ ) ) ))CI@CCI@CȭCYC`. G GLG)CJ)LL! Ѕ LˢP   + h D Db L G2  +Hx #X L-rhh)LEHH tH(/d*Ѝ+Т +x #Xd͢ +Hx #X g (9C' ((((( )( G(( y  0 J ӓ l  #LG 5  ד < < }  A ד nХ ̝v L ̝v0 5 < O x x v Fx Óx ˢ ԭЦxLL ӓLד`ll2222BBZx燅g߇HׇH`1.  Lx Ѝ!Цx  桩 .*e0   Dȥy  ; >ƥ??  ܡx  c) ⊭Ѕ=0 x 0@P`pТ_% uԕuٕuەԦ_`RsԽ^ujqvrԽԽԩt` @ @@nx0FfЧU2Ucc2U@x߅y O0z A @  t8   tŶ e`` `` e``ȗe{{חe||}i}w vw hآ膌(({ (؎؎؎ ئ3@ @2@ @(𖅊( (` ^x  ܃^"#$%^ȱȱ^ 3 Ljiєei)?e ***)" $LO-'E]oLp   @@@@@( M枥H0 H0 h,(C565/,(-ЍНCƞL:E( )( Zߦ(M G((л`9 ʖ&0a,ʖ, iEsM},Ei eMe CE` )`M G``,K ` Eљ ꔅ`)>3C5 )6%]]] ,^ +x #X^8``+, -Ѝ`,'`bєI b`)+CIC`E( )(MLG,%]]0C'ЩEM`H )L)P GLG te) 0EM 82JJJ,LU (U-ЍЊ%]]ALL0$ %( z (EM( s((LLf k/` / %*  % HPL H PL )HPH载CC`(&  Z ZH tH/i  Ѕ ˢ҆LF++xH H`g1fY  y;% ) #(-x %] -L_%* fL_( C((`( f;)&M G(M, , ɠM tM((`;%-A' p"A(@ )i0yi0( (-E% xC)CLل%0!ɴ ǐe L[0')Kx X: ΋LP'+)$x  ދL s@@?e0 ' &?8jeL`)  53272,23*d"": 59468,14: 1320Un" ***** Π *****"x" "" * ORK AND ELOCITY...1"" * IQUID..............2" " * R 2080 ANTISCHUTZ- ,+- ,.@+-,.LP "WIZARD 2" PRG ! "SOCCER 1" PRG ! "SOCCER 2" PRG ! "DRAGONSDEN" PRG ! "BLUE PRINT 1" PRG ! "BLUE PRINT 2" PRG ?kˁDODHt? i@i@ԠtLtMtNOtTXܩ((偅끅 (IIJ`ԍ ԩ ԍ L  & @XXXXOOx".ALLONS..........MP.ALLONS = 6"0"U.ENTIMETERS.........ALLONS = 7"\"..ALLONS.......U.ENTIMETERS = 8""ALLONS/IN.........U.T/ECOND = 9""U.T/INUTE...BS. OF ATER/IN = 10""ALLONS/IN..........U.EET/EC = 1 "," àϠΠ֠ŠҠӠɠϠΠԠ ̠ŠӠ"E-" "O.::f/"HARLES . ROWN}0"2176 ALFOUR T.1"AN IEGO, A.d I1 3000::""nx""" CONVERSION MENU"" ""0I;"ILES PER OUR ="::I1.46667;"EET PER ECOND": 650H""I;"ILOMETERS PER OUR ="::I.62137;"ILES PER OUR 650""I;"ILES PER OUR ="::I1.60935;"ILOMETERS PER OUR" 650 "!I;"OOT OUNDS ="::I.001285;".."+ 6509""_I;".. ="::I778.2;"T.BS."i 650w""I;"OOT OUNDS PER INUTE ="::I.0000303;"ORSEPOWER" 650""$I;"ORSEPOWER ="::I3300 6 990  N7 1020 N8 1050, N9 1080> N10 1110P  N11 1140b N12 1170t  N13 1200* N14 12304 N15 1260> N16 1290H""RI;"OOT OUNDS ="::I.0000003766;"ILOWATT-OURS 10"& &"EET PER EC........ILES PER R = 11"S 0"ILES PER R........EET PER EC = 12" :"ILOMETERS/R.......ILES PER R = 13" D"ILES PER R.......ILOMETERS/R = 14" N"ILES PER OUR......EET PER IN = 15"X"EET PER IN......  CONVERSION "4 "": @ l "OOT-OUNDS..TO...ILOWATT-OURS = 1" "ILOWATT-OURS.......OOT-OUNDS = 2" "OOT-OUNDS.....ORSEPOWER-OURS = 3" "ORSEPOWER-OURS.....OOT-OUNDS = 4" " ESSURE............3" A " * ISCELLANEOUS.......4"K ::x "OR , , , AND " "ONVERSIONS, PLEASE REFER TO "CONVERSIONS A ON THIS DISK"  "NTER '0' ANYTIME FOR " :: ""HIC   E80 E Ѝ!Щ Щԙ(܁P(x  ܭ ܢ܆ߩ 񩒍ݩ/2Н`ѝa`w`a6(㰝`4j4k b cܲdTeTfРfg`haiK #Щ<&'ЩЍЅA]hЅ)@BЩԃ̃ x`HXH`gZ*=+BЈ.`ʆg2B=LȤ=xЭ)ХТ,M  ЩЭ)Щ6C *ЩЅ詩'&`xLb=ЩD&U Ѝ Э)Тȃ`d*0g Ѝ! G(/HP`lBZFrF:bڒKns}v ˥204000@ABB`x ":("ITERS.......TO.....LUID UNCES = 1"T"LUID UNCES..............ITERS = 2""ITERS.................ALLONS = 3""..ALLONS...............ITERS = 4""MP.ALLONS............ALLONS = 5"". ""$I;"ILES PER OUR ="::I88;"EET PER INUTE". 650< ""tI;"EET PER INUTE ="::I.011364;"ILES PER OUR~ 650("")"Ǡ #5 ()"*+" 0;"OOT OUNDS PER INUTE. 6508""JBI;"ILOWATTS ="::I1.341;"ORSEPOWER"TL 650bV""`I;"ORSEPOWER ="::I.7457;"ILOWATTS"j 650t""~I;"EET PER ECOND ="::I.68182;"ILES PER OUR" 650 "\ 650 f""<pI;"ILOWATT-RS.="::I2656000;"OOT OUNDS"Fz 650T""I;"OOT OUNDS ="::I.000000505;"ORSEPOWER OURS" 650""I;"ORSEPOWER OURS ="::I1980000;"OOT OUNDS" 650" ILES PER OUR = 16"b:7l"HICH DO YOU NEED...";?v NT"": N1 110" TO BE CONVERTED, PLEASE.."; I I0 400 N1 840 N2 870 N3 900 N4 930 N5 960 N OOT-OUNDS.....R.HERMAL NITS = 5"H "R.HERMAL NITS.....OOT-OUNDS = 6"t "T.BS/IN............ORSEPOWER = 7" "ORSEPOWER............T.BS/IN = 8" "ILOWATTS.............ORSEPOWER = 9" "ORSEPOWER.............ILOWATTS = H WOULD YOU LIKE.....";, ,X$:X$""300> 6 X$"0" 110P @ X$"1" 400c J X$"2" 1400v T X$"3" 2310 ^ X$"4" 3220 h X$"5" 63999 r X$"6" 63999 | X$"7" 63999  X$"8" 63999 "" " AND  .U.EET = 1" "U.EET..................U.NCHES = 2"9 "U.NCHES...........U.ENTIMETERS = 3"g "U.ENTIMETERS...........U.NCHES = 4" "U.EET..................U.ETERS = 5" "U.ETERS..................U.EET = 6" "U. 84212240;" BS."2| 36202""3I;"ONG ONS (@ 2240 BS.) ="::I1.01605;"ETRIC ONS"(3:I2240;" BS."33 3620A3""t3I;"UNCES (V.) ="::I.02834953;"ILOGRAMS"3 36203""3I;"ILOGRAMS ="::I 0I;"UBIC EET OF ATER (39.1 .) ="::I62.4245;"OUNDS"0 36201""<1I;"OUNDS OF ATER (62 .) ="::I.1199;"ALLONS"G1 3620U1""1I;"ALLONS OF ATER (62 .) ="::I8.336;"OUNDS"1 36201""1 "".I;"OUNDS ="::I.453592428;"ILOGRAMS". 3620/""2/ I;"ILOGRAMS ="::I2.20462232;"OUNDS"=/ 3620K/""y/(I;"UNCES (V.)="::I28.349527;"RAMS"/2 3620/<""/FI;"RAMS ="::I.035273NCES..................ILOGRAMS = 15" - "ILOGRAMS..................UNCES = 16"5-" CONVERSION DO YOU NEED...";=- NR-"": N1 110-$" TO BE CONVERTED, PLEASE..";-. I-8 I0 3410-B N1 3810-L N2 * "RAMS..................UNCES(V) = 4"+ "UNCES.....................OUNDS = 5"@+ "OUNDS.....................UNCES = 6"m+ "OUNDS OF ATER...........U.EET = 7"+ "U.EET OF ATER...........OUNDS = 8"+ "OUNDS OF ATER........IC NCHES"( 2660( "") I;"UBIC NCHES ="::I.0163867;"ITERS") 2660)) ""W) I;"ITERS ="::I61.0250;"UBIC NCHES"b) 2660p) "") I;"..ALLONS ="::I3.785332;"ITERS")* 2660)4 "")> UBIC ARDS"& 2660& ""' I;"UBIC ARDS ="::I27;"UBIC EET"' 2660,'& ""_'0 I;"UBIC EET ="::I7.4805194;"..ALLONS"j': 2660x'D ""'N I;"..ALLONS ="::I.1336805;"UBIC EET"'X 2660'b " ""$@ I;"UBIC NCHES ="::I1728;"UBIC EET" %J 2660%T ""G%^ I;"UBIC EET ="::I1728;"UBIC NCHES"R%h 2660`%r ""%| I;"UBIC NCHES ="::I16.387162;"UBIC ENTIMETERS"% 2660% ""% I;"UBIC "ITERS...................ALLONS = 18""< :$#F " CONVERSION DO YOU NEED...";,#P NA#Z "": N1 110n#d " TO BE CONVERTED, PLEASE..";v#n I#x I0 2400# N1 2870# N2 2900# N3 2930# N4 2EET...................U.ARDS = 7"! "U.ARDS...................U.EET = 8"M! "U.EET..................ALLONS = 9"|! "..ALLONS................U.EET = 10"! "U.EET.....................ITERS = 11"! "ITERS....................-35.27396;"UNCES (V.)"3 362031":I1.102312000;" BS."2, 362026""?2@I;"HORT ONS ="::I.90718;"ETRIC ONS"U2J:I2000;" BS."`2T 3620n2^""2hI;"ETRIC ONS ="::I.98421;"ONG ONS "2r:I.9I;"ETRIC ONS ="::I1.10231;"HORT ONS "1":I1.102312000;" BS."2, 362026""?2@I;"HORT ONS ="::I.90718;"ETRIC ONS"U2J:I2000;" BS."`2T 3620n2^""2hI;"ETRIC ONS ="::I.98421;"ONG ONS "2r:I.996;"UNCES (V.)"/P 3620/Z""0dI;"UNCES ="::I.0625;"OUNDS" 0n 36200x""<0I;"OUNDS ="::I16;"UNCES"G0 3620U0""0I;"OUNDS OF ATER (39.1 .) ="::I.01602;"UBIC EET"0 36200"" 3840-V N3 3870-` N4 3900-j N5 3930-t N6 3960.~ N7 3990 . N8 40201. N9 4050C. N10 4080U. N11 4110g. N12 4150y. N13 4190. N14 4230. N15 4270. N16 4300....ALLONS = 9"+ "ALLONS OF WATER...........OUNDS = 10"#, "ETRIC ONS............HORT ONS = 11"Q, "HORT ONS............ETRIC ONS = 12", "ETRIC ONS.............ONG ONS = 13", "ONG ONS.............ETRIC ONS = 14", "UI;"ITERS ="::I.264178;"..ALLONS")H 2660*R " CONVERSION MENU"2*\ ""::_*f "OUNDS................ILOGRAMS = 1"*p "ILOGRAMS..................OUNDS = 2"*z "UNCES(V)..................RAMS = 3""'l I;"UBIC EET ="::I28.3162176;"ITERS"'v 2660 ( ""8( I;"ITERS ="::I.0353154;"UBIC EET"C( 2660Q( ""( I;"UBIC NCHES ="::I231;"..ALLONS"( 2660( ""( I;"..ALLONS ="::I231;"UBENTIMETERS ="::I.06102338;"UBIC NCHES"% 2660& ""=& I;"UBIC EET ="::I.028317016;"UBIC ETERS"H& 2660V& ""& I;"UBIC ETERS ="::I35.31445;"UBIC EET"& 2660& ""& I;"UBIC EET ="::I27;"960# N5 2990# N6 3020# N7 3050$ N8 3080 $ N9 31102$ N10 3140D$ N11 3170V$ N12 3200h$ N13 3230z$ N14 3260$ N15 3290$ N16 3320$" N17 3350$, N18 3380$6 .U.EET = 12" " "U.NCHES................ALLONS = 13"8" "..ALLONS..............U.NCHES = 14"g" "U.NCHES...................ITERS = 15"" "ITERS...................U.NCHES = 16""( "..ALLONS.................ITERS = 17""2  ILLIMETERS = 1"5 "ILLIMETERS...............NCHES = 2"a "NCHES....................ETERS = 3" "ETERS....................NCHES = 4" "EET.................ILLIMETERS = 5" "ILLIMETERS.................EET = 6" "EET........ ""I;"QUARE EET ="::I10763845;"QUARE ILOMETERS "' 17305""lI;"QUARE ILOMETERS ="::I.3861;"QUARE ILES"w 1730 "" I;"QUARE ILES ="::I2.589998;"Q.ILOMETERS" 1730$ " I.0069444;"QUARE EET"  1730 ""9 I;"QUARE EET ="::I144;"QUARE NCHES"D* 1730R4"">I;"QUARE ETERS ="::I1549.9969;"QUARE NCHES"H 1730R""\I;"QUARE NCHES ="::I1549.9969;"QUARE E  N10 2190D N11 2220N N12 2250 X N13 22802b N14 2310Dl N15 2340Vv N16 2370d""I;"QUARE NCHES ="::I645.1626;"QUARE ILLIMETERS" 1730""I;"QUARE ILLIMETERS ="::......Q.ILOMETERS = 12"&r"Q.ILOMETERS...........Q.ILES = 13"S|"Q.ILES...........Q.ILOMETERS = 14""Q.ETERS...............Q.ARDS = 15""Q.ARDS...............Q.ETERS = 16":" CONVERSION DO YOU NEED...";:"Q.NCHES....TO...Q.ILLIMETERS = 1">"Q.ILLIMETERS.........Q.NCHES = 2"j"Q.NCHES.........Q.ENTIMETERS = 3""Q.ENTIMETERS.........Q.NCHES = 4"""Q.NCHES................Q.EET = 5","Q.EET................QE ILES ="::I.86839; "AUTICAL ILES"F 640(P""_ZI;"AUTICAL ILES ="::I1.15155;"TATUTE ILES"id 640vn""x"Ǡ͠ #5()":" "" àϠΠ֠ŠҠӠS ="::I.9144;"ETERS"V 640`""CjI;"ETERS ="::I1.09361;"ARDS"Mt 640[~""I;"ILES ="::I1.60935;"ILOMETERS" 640""I;"ILOMETERS ="::I.62137;"ILES" 640"" I;"25.40;"ILLIMETERS" f 640p""GzI;"ILLIMETERS ="::I.03937;"NCHES"Q 640_""I;"NCHES ="::I.0254;"ETERS" 640""I;"ETERS ="::I39.37;"NCHES" 640""I;"EET ="::ILES = 18"N:.X"HICH DO YOU NEED...";6b NFl N0 110Ov""|" TO BE CONVERTED, PLEASE.."; I I0 360 N1 850 N2 880 N3 910 N4 940 N5 970 N6 1..............ETERS = 7"= "ETERS......................EET = 8"i "ARDS.....................ETERS = 9" "ETERS.....................ARDS = 10" "ILES.................ILOMETERS = 11" "ILOMETERS.................ILES = 12" " . I;"QUARE ETERS ="::I1.195985;"QUARE ARDS"8 1730#B ""YL I;"QUARE ARDS ="::I.8361307;"QUARE ETERS"dV 1730m` ""j " CONVERSION MENU"t ""~ : "U.NCHES...............TERS"f 1730p"")zI;"QUARE ETERS ="::I10.76387;"QUARE EET"4 1730B""wI;"QUARE EET ="::I.0929034;"QUARE ETERS" 1730""I;"QUARE ILOMETERS ="::I10763845;"QUARE EET" 1730I.0015499969;"QUARE NCHES" 1730""MI;"QUARE NCHES ="::I6.451626;"QUARE ENTIMETERS"X 1730f""I;"QUARE ENTIMETERS ="::I.1549997;"QUARE NCHES" 1730""I;"QUARE NCHES =":: N"": N1 110&" TO BE CONVERTED, PLEASE..";. I? I0 1490P N1 1920a N2 1950r N3 1980 N4 2010 N5 2040 N6 2070 N7 2100& N8 21300 N9 2160:.NCHES = 6"6"Q.ETERS..............Q.NCHES = 7"F@"Q.NCHES..............Q.ETERS = 8"rJ"Q.ETERS................Q.EET = 9"T"Q.EET................Q.ETERS = 10"^"Q.ILOMETERS............Q.EET = 11"h"Q.EET......ɠϠΠԠ ̠ŠӠ"3" ":""K"HARLES . ROWN"c"2176 ALFOUR T."|"AN IEGO, ALIF." I1 3000::""""" CONVERSION MENU"""EET ="::I.000304801;"ILOMETERS" 640%""OI;"ILOMETERS ="::I3280.83;"EET"Y 640g""I;"NCHES ="::I12;"EET"  640""I;"EET ="::I12;"NCHES"( 6402""<I;"TATUTI304.801;"ILLIMETERS" 640""KI;"ILLIMETERS ="::I.00328083;"EET"U 640c""I;"EET ="::I.304801;"ETERS" 640$"".I;"ETERS ="::I3.28083;"EET"8 640B""LI;"ARD000 N7 1030 N8 1060( N9 1090: N10 1120L N11 1150^  N12 1180p N13 1210  N14 1240* N15 12704 N16 1300> N17 1330H N18 1360R""\I;"NCHES ="::I "EET..................ILOMETERS = 13"J "ILOMETERS..................EET = 14"w &"NCHES......................EET = 15" 0"EET......................NCHES = 16" :"TATUTE ILES.....AUTICAL ILES = 17" D"AUTICAL ILES.....TATUTE  d C64 MODS BY WIM 3/25/83OxI((0)):53272,21:53280,6:53281,7:""qT$""QP197:QA73IG160:VI215:CO209:GI1701360(147)"HOW MANY ISLANDERS (<=100)?";:1720:NP(Z1$)NP0180 NP1 .... 3" / " * EIGHT....... 4"9 ::e "OR ,, , AND OTHER" " ONVERSIONS, REFER TO" "Ӡ’ ON THIS DISK........." : "YPE '0' ANYTIME, AND RETURN TO " :! 10Z$""1730 ZZ(Z1$):ZZ11730#Z1$(Z1$,ZZ1):"";-1730JZ$(13)Z$(141)1850SZ$;b&Z1$Z1$Z$l01730:I110:Z$:IDN DAYS."r:1250|1801158,1167,1196,12111234,1222,1271,1296 J"(UNTIL THERE ARE NO MORE INFECTED PERSONS)."TT:"YOU WILL THEN BE GIVEN A DAY-BY-DAY BAR CHART OF THE";v^" HISTORY OF THE EPIDEMIC, "h"UP TO A MAXIMUM OF 50 DAYS."r:1250|1801158,1167,1196,12111234,1222,1271,1296"LIFE.:"YOU ARE ALLOWED TO CHOOSE CERTAINU"INITIAL CONDITIONS:":::5)"THE ISLAND POPULATION":5)"THE NUMBER ORIGINALLY INFECTED":5)"THE NUMBER OF DAYS FOR WHICH THE5)"DISEASE IS CONTAGIOUS - THIS IS"5)"ALSO(2< F7P"":I10241063:I,224:I960,224:^ZI1064194440:I,224:I39,224:kd""n9)" ϣ x9)" ̤""14)"EPIDEMIC"""25)"ANDY GAMBLE"(PP(I) 1)VI PP(I) 1,CO/L(PP(I) 1)VI PP(I) 1,CORV(PP(I)39)VI PP(I)39,COt`(PP(I)40)VI PP(I)40,COj(PP(I)41)VI PP(I)41,COt~(PP(I)41)COPP(I),CO(PP(I)40)CO PP(I),CO(PP(I):820 H(Q$,1)"Y"680GR(147)(T$,10)"WANT ANOTHER TRY (Y/N)?";:1720:Q$Z1$V\Q$""850if(Q$,1)"Y"opuzMV39:1000:MV40:1000:MV41:1000:MV1:1000:MV0:1000:MV1:1000:MV41:1000(PP(I))GIIMIM1 v0 ND50NI(ND)NI:IM(ND)IMb ""7)NPNIIM" ";20)NI" ";30)IM" "p NI0460 T$;:1250 (147)"DAY"5)"INFECTION": ND150 WT1150: ND;4); NPNI(ND)IM(ND);NI(ND);IM(ND): 1NI:PG(I)CO: I1NP:DC(I)0:6 I1NI:DC(I)CT:B I1NPo PP(I)(690(1)1157):(PP(I))IG420 PP(I),PG(I): ND0 IM0:""7)NPNIIM;20)NI;30)IM "DAY";ND NDND1:NI0:IM0 I1NP  ((PP00"";:180A "HOW MANY INFECTED AT START?";:1720:NI(Z1$)O NI0210f NINP"";:210 "CONTAGION TIME (DAYS)?";:1720:CT(Z1$) CT0"";:240  (147):I118:IL,IR JILIR:J,IG:: ""ג=UNINFECTED ""HICH CONVERSION DO YOU NEED...";4 ,X$:X$""300E 6X$"0" 110V @X$"1" 360h JX$"2" 1490z TX$"3" 2400 ^X$"4" 3410 h"" r" CONVERSION MENU" |""   "NCHES.......TO...... 53272,23*d"": 59468,14: 1390Vn" ***** Π *****"x" "" * INEAR....... 1"" * QUARE....... 2" " * UBIC....,1306,1339,1346,1379,1386,1418+1427,1459,1469,1500,1510,1541,1553,1581b1593,1618,1632,1654,1673,1693,1715,1731,1757,1771{1800,1812,1841,1848Z$"":Z1$"""";:I150:I" ";:I150:IZ$:Z$""1730Z$(20)18 THE DURATION OF THE DISEASE."5::"THE ISLANDERS WILL MOVE ABOUT RANDOMLY,"]""INFECTING OTHERS IF CONTAGIOUS.";,"THOSE WHOARE IMMUNE WILL NOT BE INFECTED. "6: 1250@(147)"THIS WILL CONTINUE UNTIL THE DISEASE HASRUN ITS COURSE ";(T$,20)5);"DO YOU NEED INSTRUCTIONS (Y/N)?";,1720:Q$Z1$<Q$""1430R(Q$,1)"Y"180X(147)"AN EPIDEMIC HAS BROKEN OUT ON A SMALL ""ISLAND. THE DISEASE IS NOT FATAL, AND"ONCE CONTRACTED PROVIDES IMMUNITY FOR39)COPP(I),CO(PP(I) 1)COPP(I),CO9(PP(I) 1)COPP(I),COW(PP(I)39)COPP(I),COu(PP(I)40)COPP(I),CO(PP(I)41)COPP(I),CO" PRESS ANY KEY TO CONTINUE"Q$:Q$""1260 :MV40:1000:MV39:1000:5(PP(I)MV)IGHPG(I)(PP(I))VPP(I),IGiPP(I)PP(I)MV|PP(I),PG(I):$(PP(I)41)VIPP(I)41,CO.(PP(I)40)VI PP(I)40,CO8(PP(I)39)VI PP(I)39,CO BNPNI(ND)IM(ND)0750/I1NPNI(ND)IM(ND):"";:ANI(ND)0770ZI1NI(ND):"";:lIM(ND)0790 I1IM(ND):"*";: NI(ND)0820*:ND4"LIKE TO SEE THE CHART AGAIN (Y/N)?";:1720:Q$Z1$>Q$"""";(I))CO)(PG(I)VI)DC(I)CT' PG(I)(PP(I))\ (9(1)1)900,910,920,930,940,950,960,970,980b v PG(I)CO1060| & 0PG(I)VI1160 : DPG(I)CODC(I)DC(I)1 N XDC(I)0PG(I)GI:PP(I),GI b(PP(I))CONINI1 l ђ=CONTAGIOUS *=IMMUNE"> ,"CONTAGION"c 6"TIME "CT;{ @CT1" DAYS":340 J" DAY" T ^QA2,(QA):QA3,(QA1):Z9(0) hPP(NP),PG(NP),DC(NP),NI(50),IM(50) rI1NP:PG(I)VI: |I ,53280,1:53281,1:"":2500:53272,219d FAMILYTn ANDY GAMBLE MARCH 81yx COLUMBIA COLLEGE, 1619 W10 AVE VANCOUVER BC V6J 2A2 IDEA FROM "GENEPOOL" CC FEB 81 FOR 64 BY DENNIS CUMBERTON1380 HP<=35,VP<=19 V "0(VT$,20);" ":N I0300:A$:A$"-8" { A704732:TT:A,TT:A::: POKE FIXER -8,169,0,133,140,169,219,133,141,169,11,160,255,145,140,136,192,255,208 249,198,1 90330  GET-CONT******************/8)"PRESS ANY KEY TO CONTINUE"EZZ$:ZZ$""1800KrHC1:(H$(1)"G")(H$(2)"G")HC2&EC1:(E$(1)"S")(E$(2)"S")EC20: CHOOSE GENES***************D1800NZZ$"<"PA OU MAY CHOOSE THE GENES FOR THE HAIR":7047r"AND EYES OF BOTH THE MOTHER AND THE"c|"FATHER WHEN THE PROGRAM REQUESTS IT,""BY CHOOSING TWO GENES SUCH AS 'GG'""OR 'RR' - WHATEVER YOU LIKE. YOU CAN""ALSO LET THE PROGRAM CHOOSE THED""FEMALES HAVE ";G"ROUND ONES. OTHER THAN THATTHEY HAVE WHITE OR GRAY HAIR, AND ROUNDs"OR SLANTED EYES. THESE TRAITS ARE";" CONTROLLED BY GENES W AND G FOR ";""THE HAIRAND R AND S FOR THE EYES. W IS DOMINANT OVER G AND R":I10241063:I,224:I960,224::7048nI1064194440:I,224:I39,224:Ex""]9)" ϣ y9)" ̤""16)"FAMILY"""25)"ANDY GAMBLE""";:1790170"H$(1)FH$(R(1)):H$(2)MH$(R(1)):E$(1)FE$(R(1)):E$(2)ME$(R(1))aHC1:(H$(1)"G")(H$(2)"G")HC2EC1:(E$(1)"S")(E$(2)"S")EC2SEXR(1)1310J,I"PRESS END, NEW PARENTS OR MORE OFFSPRING"1800940"":17904"CHOOSE GENES FOR MOTHER'S EYES:":704H""19)"RS"R1920]PA,30hI12r1860ME$(I)"S":PA1323ME$(I)"R"E$(I)ME$(I)VP10:HP18:SEX1182013101940"":1790 N1310 X1940 b"":1790H l"CHOOSE GENES FOR FATHER'S EYES:":704\ v""19)"RS"f 1920q PA,30| I12 1860 FE$(I)"S":PA1323FE$(I)"R" E$(I)FE$(I)  VP10:HP18:SEX2 1820 1310 1940(Y/N) ";ZZ$" ^ZZ$"""";:3408 h(ZZ$,1)"N"460O r(ZZ$,1)"Y"330\ | RANDOM I12:FE$(I)"R":(1).5FE$(I)"S" FH$(I)"W":(1).5FH$(I)"G"  I12:ME$(I)"R":(1).5ME$(I)"S" MH$(I)"W":(1).5MH$(I)T$""p HT$"" X((0)) R(X)(2(1)1) NO$"ݧ" CH$(1)"": FEM CH$(2)"": MALE EY$(1)"ݻ" EY$(2)"" #41,164,141,192,215,208,239,96,0$">"PA1323PA,32:PA1324:PA,306bZZ$(13)1860<lJv MESSAGE(VT$,19);"PRESS < TO MOVE LEFT, > TO MOVE RIGHT "(VT$,20);" PRESS RETURN WHEN GENE IS CHOSEN ":(VT$,19);" 1324PA,32:PA1323:PA,30!XZZ$">"PA1323PA,32:PA1324:PA,306bZZ$(13)1860<lJv MESSAGE(VT$,19);"PRESS < TO MOVE LEFT, > TO MOVE RIGHT "(VT$,20);" PRESS RETURN WHEN GENE IS CHOSEN ":(VT$,19);" ""PARENTS' GENES RANDOMLY."0"AFTER YOU ARE SHOWN THE OFFSPRING, YOU"_"WILL HAVE A CHOICE AS TO MORE OFFSPRING""BY THE SAME PARENTS, DIFFERENT PARENTS,""OR ENDING THE PROGRAM."""11)"HAPPY PROCREATION!""";:17 IS ";#,"DOMINANT OVER S. HERE ARE TWO TYPICAL MARTIANS:"k6VP17:HP15:SEX1:H$(1)"G":H$(2)"W":E$(1)"R":E$(2)"S":EC1:HC1u@1310JVP17:HP22:SEX2:H$(1)"G":H$(2)"G":E$(1)"S":E$(2)"S":EC2:HC2T1310:"";^1790 h"Y"15)"FAMILY":704G"THIS PROGRAM SHOWS YOU A TYPICAL FAMILY OF MARTIANS: TWO PARENTS";U" AND ";"THEIR 21 CHILDREN. YOU CAN TELL THE DIFFERENCE""BETWEEN MALE AND ";"FEMALE MARTIANS VERY EASILY. MALES HAVE SQUARE JAWS ANZZ$"N"330ZZ$"M"1140!ZZ$"E"1250- "";:P DRAW FACE*******************b(VT$,VP1);r((HT$,HP);2HA$(HC)"";<EY$(EC)"";FNO$""CH$(SEX)"";P""H$(1)H$(2)E$(1)E$(2)""Zd"(147)10)"FATHERMOTHER"-$VP1:HP11:SEX2T.I12:H$(I)FH$(I):E$(I)FE$(I):^81820hB1310}LVP1:HP26:SEX1VI12:H$(I)MH$(I):E$(I)ME$(I):`1820j1310t OFFSPRING~I13:J07VP15I:HP5J"":17903"CHOOSE GENES FOR MOTHER'S HAIR:":704G""19)"WG"Q 1920gE$(1)"":E$(2)""r PA,30}*I1241860>MH$(I)"G":PA1323MH$(I)"W"HH$(I)MH$(I)R\VP10:HP18:SEX1f1820p1310z1"G"  1050 PA1323G "CHOOSE GENES FOR FATHER'S HAIR:":704[ ""19)"WG"q E$(1)"":E$(2)""{ 1920 PA,30 I12 1860 FH$(I)"G":PA1323FH$(I)"W" &H$(I)FH$(I) 0 :VP10:HP18:SEX2 D1820 HA$(1)"բ" HA$(2)"ը"7  W OVER G, R OVER Sk ""DO YOU NEED INSTRUCTIONS ";ZZ$:704| ,ZZ$""290 6(ZZ$,1)"Y"1470 @(ZZ$,1)"N"290 J"ARE THE GENES FOR THE PARENTS TO BE CHOSEN RANDOMLY ":704 T"A lSCANDINAVIEN PD152AFAMILYEPIDEMIC CONVERSIONS A- CONVERSIONS B+TRAVRANKING 64DOTS 64 YATZY 641 LOTTO-64LETTER ATTACK LOTTO V2.0 DRAGONSDENB FORCED ENCOUNTERMCHINESE JUGGLER?BASIC CAT LIST.C FILE DIRECTORY.C LIST CATALOG.CLIST CAT SORT.CLIST MEMORY.C LOTTO V2.0BILLIGA PD-PRGC64/128/AMIGASCANDINAVIEN PDBOX 52519105 SOLLENTUNATEL 08-964072IMPORTKAT.INFO SC PD.INFO  21RP(B,D)19 G111RP(B,D)181 G1011RP(B,D)17I G10011RP(B,D)16_ G201RP(B,D)15v G1101RP(B,D)14 G10101RP(B,D)13 G20001RP(B,D)12 G30RP(B,D)16 G120RP(B,D)14 G1020RP(B,D)13G1002RP(B,D)RP(B,D)26:1600*RP(B,D)RP(B,D)21:1600GRP(B,D)RP(B,D)18:1600dRP(B,D)RP(B,D)22:1600RP(B,D)RP(B,D)14:1600RP(B,D)RP(B,D)10:1600RP(B,D)RP(B,D)5@"SKRIV IN DE 3 SENASTE ODDSEN "A"" BHJ$ ICAL ILES......TATUTE ILES = 3" * "TATUTE ILES......AUTICAL ILES = 4"8* "AHRENHEIT.............ENTIGRADE = 5"e* "ENTIGRADE.............AHRENHEIT = 6"* "IAMETER............IRCUMFERENCE = 7"* "IRCUMFERENCE............IAMETER "+4 " INE",> " OSINE"*,H " ANGENT"X,R " OTANGENT = 11",\ " CONVERSION DO YOU NEED...";,f N,p "": N1 110,z " TO BE -""-I;"EGREES ="::I.0174533;"ADIANS"-$ 3450..""0.8I;"ADIANS ="::I57.2958;"EGREES";.B 3450I.L"".VI;"AUTICAL ILES ="::I1.15155;"TATUTE ILES".` 3450.j"".tI;"TATUTE ILES =":I3.14159;"IRCUMFERENCE"/ 3450/""0I;"IRCUMFERENCE ="::I.31831;"IAMETER"0 3450-0""[0 I;"IAMETER. ="::I23.14159;"URFACE"f0 3450t0""0(I;"IAMETER. ="::I3.5236;"UBIC OLUME"02 341:" ANGENT =";(I3.14159180)2:" OTANGENT =";1(I3.14159180)23450P2 CONVERTED FOR 64 BY RICHARD SWALLOWf2 CHULA VISTA, CAx2 NOV 1984OMETER. ="::I3.5236;"UBIC OLUME"02 34************************************S************TRAV RANKING***********|***************841229************************************************* PROGRAMMET [R SKRIVET AV STEFAN BERGSTR\M ]KERV[GEN 7 813 00 HOFORS& & 25)"SOM MED F\RDEL KAN H[MTAS FR]N"I <10)"ATG:S GRATIS PROGRAM"d F14)"TRYCK RETURN"x PQW$:QW$""80 Z15000 "HUR M]NGA LOPP VILL DU RANKA";A B1A "HUR M]NGA H[STAR [R DET I LOPP"B "$ ""> E13:"";E:"";FT $F0F4F10000b .F2F10q 8F3F100{ BGGF L VG3RP(B,D)29 `G12RP(B,D)24 eG102RP(B,D)22 jG1002RP(B,D)21 tG10002RP(B,D)20 ~G0RP(B,D)11G210RP(B,D)10,G1110RP(B,D)9C G10110RP(B,D)6ZG20010RP(B,D)4oG300RP(B,D)4wFG0xD1410,1420,1430,1440,1440,1460,1460,1480,1480,1500,1500,1500,1500,1500}D151560RP(B,D)RP(B,D)31:1600 "( I;"ILOS/Q.ETER ="::I.00289572;"NCHES OF ERCURY") 2550-) " CONVERSION MENU"W) ""::) "EGREES.................ADIANS = 1") "ADIANS...................EGREES = 2") "AUT = 8"* "IAMETER(PHERE)..........URFACE = 9"+ "IAMETER(PHERE)...........OLUME = 10"@+ "NY ..............QUARE"d+ " UBE"+ " QUARE OOT"+* " ECIPROCALCONVERTED, PLEASE..";, I, I0 3220, N1 3600- N2 3630- N3 3660(- N4 36909- N5 3720J- N6 3750[- N7 3780l- N8 3810}- N9 3840- N10 3870- N11 3900- N12 63999::I.86839;"AUTICAL ILES".~ 3450.""(/I;"EGREES AHRENHEIT="::5(I32)9;"EGREES ENTIGRADE"3/ 3450A/""/I;"EGREES ENTIGRADE="::(I95)32;"EGREES AHRENHEIT"/ 3450/""/I;"IAMETER =":500<""0F"OUR , ";I0P:0Z"QUARED =";II1d:"UBED =";I3/1n:"Q.OOT =";(I)L1x:"ECIPROCAL =";1I|1::" INE =";(I3.14159180)1:" OSINE =";(I3.14159180)"F\R "A$(B,D):HJ40(HJ$)&CJH1(HJ2):"";:/DHJ$8E""vJQ13:"";Q:"";WKW0W250LPPWO:XP3QX01800TX18RP(B,D)RP(B,D)31:1800^X26RP(B,D)RP(B,D)26:180 DISTRIBUERAT VIA ETERN AV DATORERNASL  DATORERNAS V[RLD SVERIGES RADIOq RP(20,20),C(20),A$(20,20),B(20) ""14)"TRAV-RANKING" 13)"ETT PROGRAM AV" 12)"STEFAN BERGSTR\M" (3)"I PROGRAMMET BEH\VS DIV. UPPGIFTER" ";C(B)$ D1C(B)J "NAMN P] H[ST"D"I LOPP"Bz "";A$(B,D) "SKRIV IN DE 3 SENASTE PLACERINGARNA" "" HJ$"F\R "A$(B,D):HJ40(HJ$) JH1(HJ2):"";: HJ 8000,:"V[LJ G[RNA EN SIFFRA MELLAN 1 OCH 6"7:15020j:"TACK OCH ADJ\ FR]N STEFAN BERGSTR\M":>A6A5"JAG KAN ENDAST SKRIVA UT SYSTEM F\R":16002>16003>"V-65 OCH V-5":FT1250 >>KL(B)TR:TR0>>HJ1:B1A:HJHJKL(B):(>HU216100I>A(HJ)KONN1:HU2:16020g>KOA(HJ)5NN1:16020>"SYSTEM F\RSLAG":TH1500:>B1A:"LOPP"B:"":D1KL(B)>GT(A$(B >?16180H?15000"hB"SPOLA FRAM BANDET TILL L[MPLIGT ST[LLE"LrB"TRYCK SEDAN P] EN TAGENT"c|BDT$:DT$""17020yB1,1,1,"TRAVDATA"B1,ABB1A:1,C(B):BB1A:D1C(B)B1,A$(B,D):1,RP(B,D)B:B1B B1A:1,C(B):FB1A:D1C(B)F1,A$(B,D),RP(B,D)F:#F1`F"ALLA DATA [R NU H[MTADE":WG12000::15000 N HAR DU SJ[LV ETT PROGRAM SOM!N S] SKICKA DET (P] KASETT) TILL"N DATORERNAS V[RLD#N SVERIGES RADIO83 MATS ^  DOTS   EZZMAE SOFTWARE (C) 84  "K"JK0: ("SVARIGHETSGRAD(0-10)";SK:SK0SK1040c 2SK(10SK)10:TS200200SK:DTTS25 <SC1024:CO1340968256 F1010:"":I110:" ": PYS0:VS0:""NAME$":"YS" C64:"VS' ZBX(LC)((LC40)32)2001 SL,CC:CL,CR:SLSLPC:CLCLPC:CC(SL):SL,160I CR(CL):CL,7:130 L((SL1)81)((SL1)81)((SL40)81)((SL40)81) L(CC32)3230 I128:710:130 WH1:MLSL:650:VH(SL)280 X1BX(SL1)4BXSL1:720:F0hX31RP(B,D)RP(B,D)23:18005rX36RP(B,D)RP(B,D)21:1800X|X51RP(B,D)RP(B,D)19:1800{X81RP(B,D)RP(B,D)16:1800X121RP(B,D)RP(B,D)13:1800X161RP(B,D)RP(B,D)11:1800X201RP(B,D)RP(B,D)9:1800R *415000@6RP(1,1)0"UPPGIFTER SAKNAS V[LJ INMATNING":TY9c6TY9TY0:GH12000::150006B1A:"":"LOPP"B"":""6D1C(B):"";A$(B,D)6"FICK"RP(B,D)"PO[NG"[MPLIGT SYSTEM"!:" 4:LAGRA INMATADE UPPGIFTER P] BAND"N:" 5:H[MTA LAGRADE UPPGIFTER FR]N BAND"a:" 6:AVSLUTA"x:RT$:RT$""15020:RT$"6"15040:RT$"2"999:RT$"3"16000:RT$"1"13998:RT$"4"17000:RT$"5"10::15000>"VAD F]R DET KOSTA"9>"";KOM>A(X)X.62.5>"TILLVERKAR L[MPLIGT SYSTEM, TAR EN STUND">N1:TR0:W16:KL(W)0::HJ0:HU0>B1A:D1C(B)>RP(B,1)RP(B,D)NTRTR1,D)):TG1(40GT)2:"";:>A$(B,D) ?M?"RETURN"d?WR$:WR$""16136o ?"":?"DET KOSTAR"A(HJ)"KRONOR"*?"]TER TILL MENY TRYCK M"4?DF$:DF$"M"15000"LAGRINGEN [R NU AVSLUTAD":WK12000::15000DPF"SPOLA FRAM BANDET TILL DET ST[LLE":rZF"ST[LLE D[R DU LAGRADE UPPGIFTERNA"dF"TRYCK SEDAN P] EN TANGENT"nFDT$:DT$""18030xF1,1,0,"TRAVDATA"F1,AF$N 105 10 STOCKHOLM%N&N PROGRAMMET M]STE VARA SKRIVET8'N AV DIG SJ[LV. OM DU KOPIERARX(N KOMERSIELLA PROGRAM ELLERt)N PROGRAM UR B\CKER OCH*N TIDNINGAR KAN DU ST[LLAS TILL+N SVARS F\R BROTT MOT UPPHOVS-,N R[TTEN.1,AF 5  HOLMBERG Q 53281,0:53280,0:2000p "":"VAD HETER DU";NAME$ ""17)"DOTS" " JOYSTICKORKEYBOARD(J/K)?"; A$:A$"J"A$"K"25 A$ JK1:A$((LCC1)32)((LC40)32)((LC1)32)B dVH(LC)LC2(LC2)v nSLSC450:CLCO450:X10:Y11:CC(SL):CR(CL) xSL,160:CL,7:F0 JK150 930:160 860:PC0150 XXJ:YYK:X1X19Y1Y19XXJ:YYK:130 PC991" X19BX(SL1)4BXSL1:720:110- F1106 310` Y1BX(SL40)4BXSL40:720:F1 "Y19BX(SL40)4BXSL40:720:110 ,F110 6WH2:F0:CN0:(0)SK390 @I8072080:J2182:KSCIJ J(K)32BX(K)3350P(B,D)RP(B,D)5 X0:P0:::l"SORTERAR TAR N]GRA SEKUNDER"EB1AVXX1C(B)1hZZ1XXC(B)RP(B,XX)RP(B,ZZ)2070QQRP(B,XX):B$A$(B,XX)RP(B,XX)RP(B,ZZ):A$(B,XX)A$(B,ZZ) RP(B,ZZ)QQ:A$(B,ZZ)B$ 636"RETURN"J6WE$:WE$""14009U6"":w:"MENY":" 1:UTSKRIFT AV RANKING TABELL":" 2:INMATNING AV UPPGIFTER FR]N PROGRAM":" 3:UTSKRIFT AV L :K0:PC0fI(56321)p(I1 )0PC40:K1:7u(I8 )0J1:PC1:Qz(I2 )0PC40:K1:l(I4 )0PC1:J1:(I16)0PC99J0:K0:PC0A$:A$""940A$""PC40:K1:A$""J1:PC1:A$"" SPELET.(C) EZZMAE "8""G" n" """ A15000:  "EN GANG TILL?"$ A$:A$""30109 A$"J"A$"Y"L A$"N"64760V 3010q PROGRAMMET INS[NT AV MATS HOLMBERG RUBINV[GEN 14 541 42 SK\VDE DATORERNAS V[RLD  S22,128:S23,244:  I0 11:FQ(I)::QF277:K02:I0\ NM:QFQF1:QF99""2)QFx QF99QF9""3)QF QF9""4)QF NM 0 25 WA V(K): NM0 NMNM:WA1 DR%NM128:OC%(NM128DR%)16 NTNM128DR%16OC  IIM IMI ( 253280,3:53281,3e <"ߒ   ߒ   ߒ " F"  ߒ    " P"      " Z"     "YATZY" 11703 T1024:F55296> K0AS LODR[TA LINJERr L11184K:L29584K:970 K0320 V]GR[TA LINJER R11184K:R2117:950 R11984K:R2197:950 R19584K:R2957:950 K  M:F118,15|T198,115:F198,15.T958,125:F958,15<A1X28JA2X24XA3X20fA4X16o990J15:N10200:54273,N:::54296,0:IR1R2:TI,67:FI,15I:IL1L240:TI,66:FI,15I:TJ,I:390"^IK:(I40)32II40:540>h(I40)32II40:540Yr(I1)32II1:600t|(I1)32II1:600I(((0)20)4021(0)SC41):CNCN1:(I)32390(((I1)81(I1)81)((I40)81(I40)81))390SK600MLI:650(&BX(ML40)4BXML40:720:F1N0BX(ML40)4BXML40:720:310Y:F310bD110N((I40)81(I40)81)390XMLI:650bBX(ML1)4BXML1:720:F1lBX(ML1)4BXML1:720:310vF3101101200::II18:CL,J:9""NAME$":"YS" C64:"VSIYSVS81p"":YSVS800 "KAENN DIG BESEGRAD !!!"850 "DU VANN !!!!"*X1128:53280,X:53281,X:C15:C:XR3000\J0K1:PC40: A$""J1:PC1: (A$)13PC99&A""20)" D O T S"X20)" ======="w20)"SPELET GAAR UT PAA"20)"ATT RINGA IN OLIKA "20)"RUTOR.DEN SOM FAAR "$20)"HOEGST POAENG HAR " .20)"VUNNIT " EZZMAESOFT!""@" EZZMAE"_" Z Z"" Z MH Z"" M 84 M"" A A"" EZZMAE";SU(8,8):SL(8,8,8):I15:RA(I)0::AZ(4,15):A(25)\S54272: LS S24: L,0: H(2,400),L(2,400),C(2,400),B(10,10),A$(12) FQ(14):53280,2:53281,0V(0)33:V(1)65:V(2)33:"V[NTA" S10,8:% FRFQ(NT)  OC%7208  J6 OC% 1:FRFR2:V HF%FR256:LF%FR256HF%  DR%1 H(K,I)HF%:L(K,I)LF%:C(K,I)WA:II1:7  J1 DR%1:H(K,I)HF%:L(K,I)LF%:C(K,I)WA:II1: H(K,I)HF%:L(K,I)LF%:C(K,I)WA1 II1:7  "6 d"      ":::a n"ETT HASARDSPEL MED STORA CHANSER"| x"OCH HETA K[NSLOR" "PR M LARS GIHL" "ANTAL SPELARE(1 - 4) ?":7500 "":53280,14:53281,2 A1A4195ITTENK2A%"T122K4,114:F122K4,15E,T202K4,91:F202K4,15f6T962K4,113:F962K4,15m@KJT118A4,112:F118A4,15TT198A4,107:F198A4,15 ^T958A4,109:F958A4,15h V[NSTERKANTrT118,110""X)"ETTOR"X)"TV]OR"#X)"TREOR"3X)"FYROR"DX)"FEMMOR"TX)"SEXOR"dX)"SUMMA"t$X)"BONUS".X)"1 PAR"8X)"2 PAR"BX)"TRETAL"LX)"FYRTAL"VX)"L STR"`X)"S STR"jX)"K]K"tX)".6CNTS470VH(I)4501BX(I40)2BX(I40)2390:540[BX(I1)2BX(I1)2390d600tVH(I)510SK.6CNDT540BX(I40)2BX(I40)2390540SK.6CNDT600BX(I1)2BX(I1)2390 CLCOMLSC ML,67VH(ML)ML,933I185:WH2I150PJ1WH:CL,6:710:CL,1gL1200::CL,6:xK1200::YSYS1:J9:I200:CLCOBXSC:WH2J5:I150:YSYS1:VSVS1BX,160:CL,1L13:CL,J:710:CL,1:K " "" "<" "S" "j" "" "" "" "" "" ":728 Z16:Z16Y21"TK1571,1572,1573,1574,15756#"   ":1590Q$" ":1580p%" ":1580&" ":1580'" ":1580," ":" "6KZY  RESULTATET""SPELARE"""A$(G)6"";BB$:T45,32:F45,15XBB$"ETTOR"BB200:R1:1911zBB$"TV]OR"BB240:R2:1911BB$"TREOR"BB280:R3:1911BB$"FYROR"BB320:R4:1911BB$"FEMMOR"BB360:R BB$"CHANS"BB800:2500BB$"YATZY"BB840:25200"DU M]STE"D&"SKRIVA"[0"EXAKT SOM"q:"DET ST]R"D54296,0:54296,15:54278,240:54277,0:54276,33EJ15:N10200:54273,N:::54296,0NUSUB(G,I){I:7150:4000| ETT PAR=SU0:AZ(G,7)AZ(G,7)1:AZ(G,7)11645:I14:LU(I)0:IQI14:JI15jB(G,J)B(G,I)1960LU(I)B(G,J)B(G,I)J:II13J1I4LU(I)LU(J)2030SLASKLU(J)LU,J)B(G,I)B(G,J)>B(G,I)0:B(G,J)0 HSU(I,J)0XX1 RSUSUSU(I,J)( \J:I7 fX1SU0A p4000N z TRETALt AZ(G,9)AZ(G,9)1:AZ(G,9)11645 SU0:X0 I13:JI14:NJ15 B(G,I)B(G,J)B(G,J)B(G,N)2230 XSKB(G,J):B(G,J)B(G,I):B(G,I)SLASK!J:I:0" B(G,1)B(G,2)B(G,2)B(G,3)B(G,3)B(G,4)2340d" B(G,2)B(G,3)B(G,3)B(G,4)B(G,4)B(G,5)2360n" 4000y"$ I14". SUSUB(G,I):I:4000"8 I25:SUSUB(G,I):I:4000"B L STR"G AZ(G,CHANS"~X)"YATZY"X)"SUMMA"1310)I1AI"YATZY""SKRIV INITIALER F\R SPELARE";I"";:A$(I)""(A$(I))0(A$(I))31220"YATZY"""A$(3)1300/ 103)A$(1):107)""A$(2):111)""A$(3);C 115)""A$(4)IdL11201:L28401:970(L11205:L28405:9702K80880160<R1K2:R2K4:950FKPT81,112:F81,15ZT881,109:F881,15dT8Q1"DU HAR";4Q0"KAST KVAR"J"SPELARE ";A$(G);:g"SL] VALFRITT""ANTAL T[RNINGAR":"TRYCK""0 - 5""RETURN"B$"0""";B$0QR01450B$"0"1611V(56(0)) I1V/J1(B$)IC$(B$,J,1):TK(C$)eS(16(0)):B(G,TK)S{S1Z1:Z1Y1S3Z4:Z4Y6S5Z11:Z11Y15S2Z2:Z2Y3S4Z7:Z7Y10S6@TA(K)(TK1)160,81:FA(K)(TK1)160,15JK:9000:J:I3KQQ1:Q31447`T" "w^" "h" ":1650m7000r"VAR VILL"|"DU PLACERA""5:1911BB$"SEXOR"BB400:R6:1911!BB$"1 PAR"BB520:1916?BB$"2 PAR"BB560:2060^BB$"TRETAL"BB600:2170}BB$"FYRTAL"BB640:2250BB$"L STR"BB680:2370BB$"S STR"BB720:2400BB$"K]K"BB760:2430" "X" "b" "6l" "Mm" "dn" "~o" "v1650wSU0:AZ(G,R)AZ(G,R)1:AZ(G,R)11645xI15:B(G,I)R1915zS(J)LU(I)LU(I)SLASKJ:I/SULU(1):SU0SULU(2):SU0SULU(3):SU0SULU(4)94000G  TV] PARmAZ(G,8)AZ(G,8)1:AZ(G,8)11645SU0:I14:JI15:SU(I,J)0:J:I:XO I14:JI15*B(G,I)B(G,J)21404SU(I12230 SL(I,J,N)B(G,I)B(G,J)B(G,N)!B(G,I)0:B(G,J)0:B(G,N)0+!SUSUSL(I,J,N)5!XX1B!N:J:IL!4000Y! FYRTAL!AZ(G,10)AZ(G,10)1:AZ(G,10)11645!SU0:2270:2310!I14:JI15!B(G,I)B(G,J)2300!SLA11)AZ(G,11)1:AZ(G,11)11645"L SU0:22700#V B(G,1)1B(G,2)2B(G,3)3B(G,4)4B(G,5)5SU15:#[ 4000F#` S STRo#e AZ(G,12)AZ(G,12)1:AZ(G,12)11645~#j SU0:2270#o B(G,1)2B(G,2)3B(G,3)4B(G,4)5B(G,5)6SU20#t 4000#~ KSKRIV 1 - 3 INITIALER"7420%1180,ID53265,(53265)239g"Y A T Z Y"A1260,1270,1280,1290115)A$(1):1300111)A$(1):115)""A$(2):1300107)A$(1):111)""A$(2):115)" 85,125:F885,15nT85,110:F85,15"xI241721160:TI,107:FI,15:IMI245725160eTI,115:FI,15:II121:A(I):I:1444"12345":MO0:53265,(53265)16G1:I16:J16:B(I,J)0:J:I (" "(" ")" ")" "6)" "N)" "f)" "~)" ")" ")" ")"  "SPELA EN"*2"G]NG TILL?(J/N)";*<M$:M$""5180+FM$"J" +P"":(+X" "@+b" "X+l" "p+q" "+v"DEN RADEN"+"HAR DU"+"ANV[NT"+" "," ",AZ(G,R)AZ(G,R)1,-Y(G)SUY(G):ZH0-VI$(Y(G))&- I(VI$)21C-*IV$(VI$,I,1):VV(IV$)-4T477((VI$)I)4(AG),VV48:F477((VI$)I)4(AG),15-9I-<I16:ZHAZ(G,I)ZH:I->ZH6Y( ."ANV[NDA":."0 - 5":54296,0/54296,0:54296,15:54278,240:54277,0:54276,33F/J15:N10200:54273,N:::54296,0d/" ":~/" ":/" ":/" "1"A$"2"A$"3"A$"4"75960~S,L(0,I):S7,L(1,I):S14,L(2,I)1S1,H(0,I):S8,H(1,I):S15,H(2,I)D1S4,C(0,I):S11,C(1,I):S18,C(2,I)T1T140::l1T1 200::S24,0v175001S24,0:A(A$):1 34334,36376,38539,40830336,336,329,850,336,336,331,843 3F322,455,178,583,585,459,178,843,331,329,331,592,582,585,583T3G-256,338,338,331,852,338,338,336,848,336,336,329,850,336,336,331,8433H322,455,178,583,585,459,178,843,331,329,331,592,582,585,5833I 03J BLOC2,-512,434,203,562,-512,308,312,569,562,566,5625R-256,315,315,311,832,315,315,313,825,311,308,310,827,313,313,311,823b5S306,434,199,562,-512,434,203,562,-512,308,312,569,562,566,562j5T 0w5U BLOCK15V-512,434,178,562,-512,434,178,562,-512,]K# AZ(G,13)AZ(G,13)1:AZ(G,13)11645$ SU0:2270E$ B(G,1)B(G,2)B(G,2)B(G,3)B(G,4)B(G,5)B(G,3)B(G,4)2480$ B(G,1)B(G,2)B(G,2)B(G,3)B(G,3)B(G,4)B(G,4)B(G,5)2480$ 2490$ I15:SUSUB(G,I):I$ 4000$ CHANS$(SU$)%US$(SU$,I,1):U(US$)+&TBB37((SU$)I)4(AG),U48:FBB37((SU$)I)4(AG),152&IL&" "d&" "|&" "&" "&" "&" 1A'RA(I)RA(J)5100(SLASKRA(J):RA(J)RA(I):RA(I)SLASK#(K$A$(J):A$(J)A$(I):A$(I)K$-(J:IF(" "^(" "v(" "(" "(" "(" " ")" ")" "* " "&* " ">* " "V* " "n* " "*" SEGRARE"*"BLEV ";A$(1)*"VILL DU"*(EN G]NG"+"TIDIGARE":54296,0,54296,0:54296,15:54278,240:54277,0:54276,33E,J15:N10200:54273,N:::54296,0^," "u," "," "," "," G)637260-CRA(G)RA(G)50-HT5174(AG),48:F5174(AG),15!.RT5164(AG),53:F5164(AG),15'.\0.pQR0?.uI1(B$)P.zU$(B$,I,1).U$"0"U$"1"U$"2"U$"3"U$"4"U$"5"7410.QR17410."DU F]R BARA"::/" "/QR1/I:054296,0:54296,15:54278,240:54277,0:54276,33>0J15:N10200:54273,N:::54296,0:R0LS5,0:S6,240i0VS12,85:S13,1330`S19,10:S20,1970jS24,310t I0 IM0uA$0vA$"1 43258,45830,48556,514431 54502,57743,61176,648142@578,455,183,583,585,459,183,2A843,331,329,331,592,582,585,583M2B578,455,183,583,585,459,183r2C843,331,329,331,592,582,585,5832D BLOCK22E-256,338,338,331,852,338,338,336,848,K13K-512,439,199,567,-512,439,2033L567,-512,308,312,569,566,566,5624M-512,439,199,567,-512,439,203<4N567,-512,308,312,569,566,566,562H4OBLOCK24P-256,315,315,311,832,315,315,313,825,311,308,310,827,313,313,311,8234Q306,434,199,563085X 308,564,562,562,5625Y-512,434,178,562,-512,434,178,562,-512,308 6Z 308,564,562,562,5626[ BLOCK2Z6\-512,551,567,567,562,578,578,295,299,578,578,551,567,567,4236]183,567,-512,423,183,567,-512,320,315,569,562,551,5556^-512,55 AZ(G,14)AZ(G,14)1:AZ(G,14)11645% SU0:I15:SUSUB(G,I):I:4000% YATZYG% AZ(G,15)AZ(G,15)1:AZ(G,15)11645`% SU0:B(G,1)04000% B(G,1)B(G,2)B(G,2)B(G,3)B(G,3)B(G,4)B(G,4)B(G,5)SU50% 4000%SU$(SU)%I2 "&" "&RA(G)SURA(G):RARA(G)'RA$(RA)'I(RA$)216'AR$(RA$,I,1):AA(AR$)w'T917((RA$)I)4(AG),AA48:F917((RA$)I)4(AG),15~'I'GG1:MOMO1:GA1446'MOA151445'I1A1:JI  RAMEN RITAS (147)C "òòòòòî"n " 01 02 03 04 05 06 " "ó" F17 "      " F "ññññ " 0J17: :5)A(J,1)10)A(J,2)15)A(J,3)20)A(J,4)25)A(J,5);J D30)A(J,6)Q NJ\ X""g bJ17 l5)A(J,7)10)A(J,8)15)A(J,9)20)A(J,10)25)A(J,11); v30)A(J,12) J :" VILL DU HA FLER RADER 'J/N' ?" A$:A$""660 C-SOFT"&" PRESENTS "R$"****************y."* *8"* *"B"* *"L"* * (C) 1986 BY MANIC-SOFT.":1370EA$"WATCH OUT FOR MCS!":1370{A$"(MANIC COMPUTER SERVICE.)":1370Q17000:QY0319:12288Y,0:YV21,255V23,255:V29,02040,192:2041,193:2(A$):(A$,I,1);:J170::::Vd2,0,0,14,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0n30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,170,168,31,255,248x21,85,112,21,85,64,00,10,0,0,62,128,0,95,160,1,87,224,5,13,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120J0,0,120,0,0,120,0,0,112,0,0,64,0,010,170,168,63,255,248,85,85,112,85,85,64,0,120,0,0,120,0,0,120,0,0,1200,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120N GOOFPROC V1.2 MARK JOERGER 1987 RUN 10 TO INPUT TEXT - F7 ENDSe53280,11:60B$((I)):B$""A$;"";:A$B$C$;:II1:J152::4 53280,12:45,183:46,9::60:A(2000)B$:B$""20 A$B$C1,567,567,562,578,578,295,299,578,578,551,567,567,4237_183,567,-512,423,183,567,-512,320,315,569,562,551,5557`0f7a163,122,204,122,163,204,122,124,202,204,122,124,163,202,204,122,124,162w7b164,202,2047(#II54272:II1,40S7)#II5,97*# ANDERS THORWALDSSON7 PL 7005 K[RRAG]RDENM 372 00 RONNEBY_ 1986-03-31l LOTTO1000: PRESENTATIONS BILD100 : INITIERING(130 : TALGENERERING2200 : SORTERING<400 : UTRITNING AV RAMEN )"X" I U136:D$(U)"":U' J- > SORTERINGJ F112U J17e B(J)A(J,F)l Jw I16 J1I7 B(I)B(J)310 SB(I) "B(I)B(J) ,B(J)S 6J @I JJ17 TA(J,F)B(J) ^J hF r ñý", "òòòòòî"W " 07 08 09 10 11 12 " "ó" F17 "      " F "ñññññý" &"A$"J"(147)/" OK TREVLIGT ATT R]KAS!!"@F15000:Fh: SYS64738 IST[LLET T\MMER MINNET"JUST A FEW SECONDS, PLEASE ....."Y0319:12288Y,0:YV53248V32,0:V33,0"MANI"V"* *"A`"* *"gj"****************"qt1210~A$"PROGRAMMED IN A SPECIAL DIALECT,":1370A$"REAGAN'S GOOFY BASIC.":1370A$"042,194:2043,195:2044,196V28,255+V37,15:V38,12AV0,128:V1,102WV2,150:V3,102mV4,172:V5,102 V6,194:V7,102V8,216:V9,102X3943:VX,11:X(Y03192A<12288Y,AFYP ZI13,232,7,1,248,22,1,120,30,0,120P30,0,120,30,0,120,30,0,120,30,0,120,30,0,120,30,0,120,30,128,120,31128,112,23,161,96,7,233,192,5,245,0,1,84,0,0,80,0,010,170,168,63,255,248,85,85,112,85,85,64,0,120,0,0,120,0,0,120,0,0,120"0,0,120,0,0 0,0,120,0,0,120,0,0,112,0,0,64,0,0V0,10,0,0,62,128,0,95,160,1,87,224,5,133,232,7,1,248,22,1,120,30,0,12030,0,120,30,0,120,30,0,120,30,0,120,30,0,120,30,0,120,30,128,120,31128,112,23,161,96,7,233,192,5,245,0,1,84,0,0,80,0,0120,0,0$;:I,(B$):II1# (B$""700 220h <53281,11:A$"":C$"*":""C$;:I2560: F252,(I256):251,(I((252)256)) P46,(252):45,(251):AG CP IB.yA'CII15,157+#II24,157,#II4,217-#TT13:TT:II24,0:62,-512,308 6Z 308,564,562,562,5626[ BLOCK2Z6\-512,551,567,567,562,578,578,295,299,578,578,551,567,567,4236]183,567,-512,423,183,567,-512,320,315,569,562,551,5556^-512,55 F40 : EN K\RNING TILL P2 d INITIERINGF nA(7,12),D$(36)^ s53280,12:53281,15d x{ SLUMPGENERERING (147) " ETT \GONBLICK JAG JOBBAR!!!!" J112 I17 T((1)36)1 D$(T)"X"160 A(I,J)T:D$(T  AR DU...SA SLIPPER DU POSTFOSKOTTSAVGIFTEN (15 KR ) AR DU KAN DU KOPA / /. RIS 179,- EN INNEHALLER ADRESSER TILL FORETAG SOM SALJER -DATORER OCH -TILLBEHOR SAMT SAMMEA INVIKTIGA INFORMATION SOM  N GOOFPROC V1.2 MARK JOERGER 1987 RUN 10 TO INPUT TEXT - F7 ENDSe53280,11:60B$((I)):B$""A$;"";:A$B$C$;:II1:J152::4 MER 10 GGR/AR OCH I VARJE  VARJE NUMMER PRESENTERAS ETT ANTAL NYHETER PA DEN SVENSKA MARKNADEN. RIS: 29 KR/MANAD ELLER 270 KR/HELAR.R OSTGIROKONTI O IGEN: 426 07 84-6 ----------- PRISET FOR  MPORT EWS! ING1):AG CP INB}A'VALKOMMEN TILL EN NY DISKETT FRAN CANDINAVIEN ĝSӛ8(CÚNΚěIIɚΞ֞ɚŞ О *************"SCANDINAVIA",8,14|䧆LH1fGJP3W>/f YL T OCH SVENSKTSKANDINAVISKT. NGEN MEDLEMSAVGIFT TORSTA ANTALET PROGRAM TILL LAGSTA MOJLIGA PRIS CANDINAVIEN OX 525 191 05 OLLENTINAUNANA S- 191 -191 VERIGE EL 08-964072 ɔΠ1991! U HAR DEN KOMMIT! ATALOGEN SOM HJAL HJALPER IG IMPORTERA TILL SAMMA PRISER SOM DE STORA DATORFORETAGEN ( LECTRONICS ( LECTRONICS OCH LFA ROSS T EX). TILL 100-TALS DATORFORETAG RA ATT HA. ED MERA, MED MERA RIS : ENDAST 129, (SVENSKA) KRONOR RAKT TILLOMKOMMER MED 15 KR PER ORDER ETALA I FORSKOTT PA OSTIRO  OSTIRO 426 07 84-6 (LF RIKSSON) **************************  /64/MIGA. Ҡ&%$64/128/MOIGA: RENUMERERA PA MPORT EWS! OCKSA. EWSLWETTER FOR IG SOM VILL HA INFORR- MATION OM 7HETA7'HETA(' PRYLAR ATT IMPORTERA. ----------- ESLETTER MATION MPORT EWS! KOM 53280,12:45,183:46,9::60:A(2000)B$:B$""20 A$B$C$;:I,(B$):II1# (B$""700 220h <53281,11:A$"":C$"*":""C$;:I2560: F252,(I256):251,(I((252)256)) P46,(252):45,(25AR PORTO U KLKA T TER AN OCKSA ANVANDA OSTIRONUMMER 88 93 12-5 (SCANDINAVIEN ) CANDINAVIEN ) OM DU S SKRIVER LF RIKSSON SOM BETALNINGS- MOTTAFFGARE. R MATION MPORT EWS! KOM* *************** *************** ET SVENSKA RPPROGRAMBIBLIOTEKET MED DET STORSTA URVALET, INTE TILL AN- TALET DISKAR, MEN TILL MANGDEN BRA PROGRAM, BADE NYTTOPRG OCH SPEL., BA- DE IMPOERTERA DEL @@************************************** *************** ET SVENSKA RPPROGRAMBIBLIOTEKET MED DET STORSTA URVALET, INTE TILL AN- TALET DISKAR, MEN TILL MANGDEN BRA PROGRAM, BADE NYTTOPRG OCH SPEL., BA- DE IMPOERTERA SOM BARA VANTAR PA ATT FA SALJA TILL IG. MOOPORTHAND. A  ETT ENKELT SATT BESKRIVS HUSTEG FOR STEG HUR DU ENKLAST GOR FOR ATT IMPORTERA. RTILL FORETGAG I VERIGE, TEX EX MBASSADER SOM KAN VARA B