L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u` ō         Ӎԍ      ō  ōӍ      ō      ōō΍ō΍ōō          ō          ōō΍        ōύ   ō͍Ӎ    ̍      ΍       ΍ `              ٍ           Ӎ Ӎ   ōٍ        ٍ       ٍ         ٍ        ٍ       ٍԍٍōō̍΍  ō  ٍƍԍč    ō         Ӎ  ō       ō΍  ōӍ    ō     ōōō΍    ō          ō         ōō΍     ōύ     ō ΍͍Ӎ  ̍            ΍ ٍ        ύ       ٍ                    ٍ         Š΍٠ĬǠӠήŠύӠϠ٠ŠȠҠӍŠϠˠҠŠŠҠˍӮέ̠΍ӠĠĠԠӠ΍ŠŮĠҍŠϠŠҠĠ͍ŠϠŠΠŠҠōƠŠ٠ŠҠӠ̍ŮŠӠ͠ӠΠϠЍΠԠŠӠĠϭǮҠӠƠӍ͠Š̍ϠŠӠ̠ش΍ĠŠϠΠٮӠ٠ŠĠ٠͍ˠϠҠŠҠŠŠĠ̭̩ĬĠĠŠŠ̭өĮΠάӠ٠ŠĠͧŠŠĠŠՠ٠ŠϠӠϠ׍ήӠΠӠӠōçٮՠ٠נٍԠӠΠŠϠӍƠՠȬȠŠӠĠϠŠРҠŠŠ٭ŠƠΠҮ̭ڠЧӠ̠͠ӠĠӠήӠԠƠӠĠӍŠˠԠŠŠōĠ٠Ǡ̧̭čΠǠŠŠկΠҍĠĠ٬ĠΠŠ׮ԡŠӠРӠԠŠ͠ƍŠΠĠӠǠŠԍŠϠРŠήӠҠΠĠƬϠՍΠ٠Šԍ̭נ׮ҠӠ̠ȍǠԠΠƠ׍ԺΠөՠ٠΍ԠӠҠנ׍ƠՠȮŠҠ̠ԠōŠŠ׮ԠƠŠŭ٠ĠӬҠΠҍŠנĠ̠ŠԠƠŠġŠ̭àҠנŠ̭נשƠά΍άΩ̠ΠĠٍĠؠԠҩĠٍĠҩӠȠԭǠҮӠŠҠϠàŬԠӠ̠ӠԠΠӮ̭ج̭٬̭ϠԠРٍȠԠϠحӬ٭ӬĠŠҠƠŠήԡ ΩŠĠҮٍӠ٠ƫǠ̠ΠΠōàҬϠԠٍԠԠاҠ٧ӠΠĠԮӠ΍Š٠ŠĠΠ΍ȠŠŠҠӮӠŠҠƬĠ̍ŠȠŠҠΠȍŠĠӮàΩՠΠŠŠǍҠ٠٠Ǡç̭Ġ٠ϭԠҮǠӠŠԠҍԠŠҠήŠϭԠҠՍΠԠŠؠҠ٠ŠƠōҠٮŠǠӍȬ֠άΩ٠ǠȧҠ֧Ġ٠ϠϭԠӠԍӠԠ٠ϠŠŠՠΠנ̠ҠΠŭŠҠԠЬԬάҠԮՠԠҍϭԠҠǠנٍӠՠԠϠŮŬ׬ŬנΩŠӠŠԍԠӠ̮ج٠Ω٠ǠاҠ٧Ġ٠٠ҍϠԬĬĠĠȠӬɮŮԬԬԬčԠٮŠԠΠ̍ԠӠΠԠԍǠϠӠŮŠլҬĬ̠ΩŠӠĠЬōӬŠŠ٠ҠӍϠŠĠԮ̭ɬ̭ˬ̭̭ͬʠǠ΍Š̠٠ŠǠŠҍӠΠӠǠĠǍҠȮŠӠԠΠ̍ӠƠŠŞ̭̌ϠŠŠ͠ˮٍ̭̠ȠŠŠŠϭĻՠĠԠŠΠŢΠǠ͠ˮ̭ѠԮԠϠîŠҠԠĠǠӠŠàɬˬͬʠ٩ōΠŠϠ˩Ġ΍ĠŠŠŠƠРύӮҠŠ̠ōĠΠˠӠ٠ŠȍűҠŲĠύŠŠŮΠҠ٠ՠ٠ՠȠЧϠԍԠԠҠŧϠŠӭ٠ĠԮՠΧԠōŠԠƠŠ̠ŠҍӠĠƠԠԮ̭Ӭ̭̠ՠ٠ŠҠōϠˠ٠Ǡ̭ӧ̠٠ĠӠ٠ŠŠŠŠӠĠҍ٠Ҡ̠ΠŠŬԠԠǠçӠԠٮЬŠŠŠҠ٠ǠŠҩ̠ŠŠՠԠӮΠՠŠɭĠŠҬΠŠӍ̠ӠΠӠŠŠŠҠӮŠŠӠϠԠՠĮɬˬͬʠǠŠƠŠӍ̠ŠŠҠŠŠЬԬάҠԠٮ     DDDEEDDDDDEEDDDDDDDDDDDEGGwwwwwwwwwwwwww<̠DDDDDDDDDDDDDDDDDDDDDDDDDDDGwwGGGwwwwww<<<<<<<3<̠̌ww_wwwwwwwwwwwwwwwwwwwwwwwwwẅUUUU"""""`_O_U__EOUUU_UUUGWUUWwwWwwwwwwwwwwwwwwwwẅUU""կ͠wwwwwwwwwwwwwwwwwwwwwwwwwwwwwww\XXXXXXXX\LDDDDDL,"""3333/wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwẅDDDDDDA""""`wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww̌ DDDD333333333̌̌!Bwwwwwwwwwwwwwwwwwwwwwwwwwwwww̌DDDDDA,""3333̈Ȉ "ESC";! K27ĺ"CTL-";:KK64. (K);:L"COMMANDS":/ ST19:NC20J20STNC20J1b :I0ST:20JI;:4:3045:12:CN$(20JI): J1Ģ7:5:"E":5:"W":5:"E":5:"W":23 3040: ::3169,12:MV::220 ::"PRESS ANY KEY TO CONTINUE";::A$: KA%(20JI):K27IJ ASCII CODES FOR COMMANDS1= I0NC1:A%(I):B 73,75,77,74,9,11,13,10,49,50,52,51,53,54,56,55,85,82,68,76,80,69,67,64,78,78,83,83,88,89,72,86,43,48,45,24,25,15,17,19,65,3,70,66,23,61,63,35,12,26,27G  3169,19:MV: J02  ::16:R,HELP,NUMBERS % LOAD,ZAP,PAGE @ CL$(15): COLOR NAMESV$ I015:CL$(I):) 00 BLAK,01 MGTA,02 DBLU,03 PURP,04 DGRN,05 GREY,06 MBLU,07 LBLU,08 BRWN,09 ORNG,10 GREY,11 PINK,12 LGRN,13 YELO,14 AQUA,15 WITE3 X(1),Y(1),WC(1,1)8 A%(NC): MOVE UP,MOVE RIGHT,MOVE DOWN,MOVE LEFT,PLOT,ERASE,COLOR,CURSOR,MOVE NE,MOVE NW,MOVE SE,MOVE SW,X COORD,Y COORD,HLIN,VLIN PLOTTER ON,PLOTTER OFF,PLOTTER ERASE,XSYM,YSYM,OSYM,QUIT,SAVE,ADVANCE COLOR,CLEAR WINDOW,FILL,BACKGROUND,SET WINDOW,SHOW COLOSO0ĺ6);:2115'"O-SYM";:21154 ARRAYS> NC51] CN$(NC1): COMMAND NAMESu I0NC1:CN$(I): UP,RIGHT,DOWN,LEFT,PLOT UP,PLOT RIGHT,PLOT DOWN,PLOT LEFT,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWEST,PLOT NE,PLOT NW,PLOT SE,PLOT SW|55ĺ"ERASE";zP0ĺ"OFF";):21158 SYMMETRYDNB1ıPNB1ıSX0:SY0:SO0:SB(3194):SB3SO1:SBSB4SB1SY1:SBSB2SB0SX121:1:SX0ĺ6);:2210"X-SYM";:7SY0ĺ6);:2220"Y-SYM";:13TER,SYMMETRYC23:1:'H COORDS FMX$(X):(X$)2X$"0"X$eRY$(Y):(Y$)2Y$"0"Y$W22:3::X$;::8::Y$;::2115\ COLORa22:18::CL$(C);::2115f PLOTTER k22:35:5);:35:pP(3193):P1ĺ"ON"; uP2169:CX3170:CY3171:CLR3185:TEMP3201>MV4637:PAGE MOVE SGD4170:GETDEC vT1100: TIMER FOR SHOW WINDOWINIT:4 TEXT DISPLAY922:1:"X"4)"Y"5)"COLOR"10)"PLOTTER";:21:21 >2125:2145:2155:2185:COORDS,COLOR,PLOTJ282:5:0,10IJ:9W21:10I1:J09:J;:::^\21:1:868:B:I039:0,I::s INITIALIZATIONX19:Y19:C15:B0:P0:CURS1:X(0)0:X(1)39:Y(0)0:Y(1)39:GC0:NB0:PG1INIT3202:CNTRL3255SND16336&CMND3168:ACMND3C(I,J)X(I),Y(J))::!%N15O*15:820:I1T1:I:0:820:I1T1:I:N{/I01:J01:WC(I,J):X(I),Y(J):::4I01:J01:X(I),Y(J):::9 NUMBERS/BLOCKS>NB1NB:860:NB1İ845CNB0İ2185HMI03:15:0,10IR:X,Y:XX(0)XX(0)'XX(1)XX(1):YY(0)YY(0)MYY(1)YY(1)c CX,X:CY,Y:2125z24:1:20);:1:785:(7)"ILLEGAL COORDINATES";:I1500::785:710X(0)(3172):X(1)(3173):Y(0)(3174):Y(1)(3175) I01:J01:W/I01:785:"X"I1": ";:GD:X(I)(TEMP):JX(0)X(1)X(1)39790zI01:785:"Y"I1": ";:GD:Y(I)(TEMP):Y(0)Y(1)Y(1)47(Y(1)39PG1)790800:785:7103172,X(0):3173,X(1):3174,Y(0):3175,Y(1):760:800:(3186)1)47:3175,47: FULL SCREEN ON PG2 vlPG1Ĺ16300,0:16301,0:Y(1)39Y(1)39:3175,39:Y39Y39:CY,39:2125|q WINDOW795:785"CHANGE WINDOW?(Y/N)";:A$:(A$)13İ785:23:A$;:A$"N"755A$"Y"730785:710:(4)"BLOAD "F$".PICTURE"A:5502N SHOW COLORNS23:2:CL$((3187));:eX ZAP (SOFT RESET){]::2005:2105:b PAGE dPG3PG:23:21:PG;:1:I1100:gPG3PG:23:17:PG;:1:I1250:&iPG2Ĺ16299,0:16302,0:Y(1)39Y(0:A$:A$:A(A$):A1A3540< 0A3ČMV:16301,0::550m 522:1:958:"FILE NAME? ";F$:F$""ġ:550 ::22:(40(F$))2:F$;: ? LOAD D:"LOAD (CHOOSE ONE):":"1. DISK TO PAGE 1":"2. DISK TO PAGE 2":"3. PAGE 2 TO PAGE 1";!I555:";A$:A$(A$,1) A$"N"Ā- A$"Y"5406 510A  SAVE :"SAVE (CHOOSE ONE):":"1. PAGE 1 TO DISK":"2. PAGE 2 TO DISK":"3. PAGE 1 TO PAGE 2"; !555::(4)"BSAVE "F$".PICTURE"A",A$"400A",L$400" &:2105:: TEXT DISPLAY +21:2OUND  A32ı A1A31Q A19ĴA12155,2155,2155,2185,2185,2185,510,540] A44ıi A1A43 A18ĴA1705,595,3000,830,580,605,615   EXECUTE SUBROUTINES  QUIT 24:1:868: CLEAR EOL "DO YOU WISH TO SAVE PICTURE?ALID";:1:225 ,12:CN$(A);D 1X(CX):Y(CY):2125: COORDSg 6A21İ405: EXECUTE COMMANDS ;I04:BZ(SND)::225  EXECUTE COMMANDS A22C(CLR):2145 A23CURS1CURS A40C(CLR):2145 A43B(3189): BACKGR6ĺ"E";:260 "W";? PN(A15A20)A22(A23A30)A43[ PNĖ3:(3196);: DEC j A30İ285y A31İ290 A42A44İ285:24:290 23:1:295 3:"X "(3180)","(3181);: "3:"Y "(3182)","(3183);: ':ANCĺ12)"NOT V/ STARTER/CONTROL:22305: ARRAYSM2005: INITIALIZATIONg2105: TEXT DISPLAYrCNTRLA0(ACMND):A(CMND):23:1:25);:24:1:12);:23:1:A027ĺ"CTL-";(A064);:295(A0);A24A27260 A24A2         d l e m f n g o `x Ix `a =?C SL,= ?CL,Rr 0',( 0S`J (i.&E0%.Q&&`HJ) 'h)i& &&x ''''`J &(JJJJ)`f `!8` y `8#z )z z z Iz `z )z z z Iz `z Iz `+*A) q i oLf r 0L r )s p H ]p r 0hp )q L  p 0n i l h ` +i h s i h pL` * L h h m i i o `h ~ o } n i L  i i o ` `  J c ` J b `  . . m . ɯhh` ɰɺ)m ΀ ˍ| ` J} J~ ` } l ~ m $ [ } n ~ o `e e `d d `g g `f { `b `a $ J$$`  J|  ` )` ΀ a LY `7 9` p L r L  F op )q `) `Mx x ` $ `` J| 𖍀 L&L(p 0  ` 2~ m } l h c i l L h h m `b u 0j i phJHv 0k h phJw 0j k p`b h c i `h Yj i hk ` d me 8 ` f mg 8 `{ 9`  j  ` `j  ` ` H h { h b i c ``f c { `c `b e { `b `c g { `c `d b L=LLLL LMLL 00x ) 9c b q p LM  L )a ` ` 9 Fk j  ow k b  ov c j  ou b c  ot ` w` 9` )y 0 p L r L `t 0 Fh i p 0U0z `JH )0%&',#$12/ "! -.(+*ǀź𠠳ҠÔĠ"ʝ` b c 'e g p q x  S` ` `  ` D('& %#$&#(,23 :`L        $ E::70#EY(222):Y5310KE"DOS ERROR":"ERROR CODE = "(222)QEaEA$:A(A$)oEA27380~EA32430E:NL0:EN";F$D"::D$;"READ";F$GD,I0ML:768:IN$(IN$,1):LN$(I)IN$:PD6NL0rD@J0I:LN$(J)"PAGE "İ430:DJNLNL(((LN$(J))1)40)1:NL20İ430:330DTLN$(J);:CH(36):CH1ĺD^(LN$(J))0ĺ:NLNL1DhJDr430E|:D$;"CLOSE";FRES DELUXE.INSTR"(CHD$"LORES DELUXE"TCPR$" = CONTINUE = QUIT"iCD$"NOMON I,O,C"sC400C:1:((40(HD$))2)1C:HD$C24:((40(PR$))2)1CPR$;::20:C34,2:35,23:SET TOP,BOTTOM MARGINS DD$;"OP;:Bd INSTRUCTION PRINTER_Bn USES "INPUT ALMOST ANYTHING" SUBROUTINE, CALL-APPLE IV,3xBI768790:J:I,J:B 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213BML500BLN$(ML)BD$(4)CF$"U/LO 'I' FOR INSTRUCTIONS ANY OTHER":"KEY TO ENTER PROGRAM";OA<A$:A$"I"ī100AF85:104,64:(4)" BLOAD U/LORES DELUXE.OBJ"AP(4)"RUN U/LORES DELUXE.BASIC"AU:12:12::"LOADING PROGRAM"::AZ:10:I120:"*";::B_:10:"*";:29:"*" @IN$"",@ LORES DELUXE INTRODUCTIONM@::5:15:"WELCOMETO":90@95:95:14::"LORES";:20:"DELUXE";::95:90@(::3)"A LOW-RESOLUTION GRAPHICS UTILITY":5)"FOR THE APPLE II PLUS COMPUTER":A212:"BY RICHARD MERCER":23:"PRESS   * ART HILER *: * DAYTON, OHIO *X **********************(I),2)" "195FI23I45I67ĺ:"ANY KEY TO CONTINUE ";:Z$::b(A$(I),37):II1:186:"ANY KEY TO RETURN ";:Z$:33 ******************** * HELLO PROGRAM * * BY * * RICHARD MOORE *:"FILE LOCKED":J11000::57aF1$DE$ĺ:"CONFIRM? (Y/N) ";:Z$:Z$:Z$"Y"II1:174xIII:F1$DE$171A$(II)A$(II1):(A$(II),2)" "171IIII1:159D$F$CF117F1$DE$114II1:114::I1(A$1):F1$R$F1$L$147\((A$(I),2,1))212ė::"FILE TYPE MISMATCH":J11000::57((A$(I),2,1))194F$"B"F$F1$K$A$(I)(170)(A$(I),37)F1$U$A$(I)" "(A$(I),37)::F$:F1$R$F1$L$ĉ!F1$DE$(A$(I))170ė:j(X1$)896+lX$X$X1$:I(X$):1413oI1Mr(A$(I),2)" "123]uF1$DE$24ex57{{Y((A$(I),2,1))~F1$K$(A$(I))170II1:114F1$U$(A$(I))170II1:114F1$DE$(A$(I))170II1:114F$F1$(A$(I),7,3 QX$"K"F1$K$:96. TX$"U"F1$U$:96F WX$"D"F1$DE$:96N Z63t ]:::F1$" WHICH NUMBER? ";:99 `::19)"ALL?":F1$:10)"WHICH NUMBER? "; c23:X$:X$;:X$"A"CF1:111 f(X$)1357 iX1$:X1$;:(X1$)13I(X$):141n 932,0:34,20:33,40::CF0::"RUN.....UNLOCK......DELETE.......CATALOGLOAD....KEEP(LOCK)............"; <FR$(FR)" SECT FREE":41(FR$):FR$; ?X$:(X$)13ĉ: B(X$)27ĺ: EX$"C"183 KX$"R"F1$R$:93 NX$"L"F1$L$:931Ĺ32,20:33,19:34,0:0 *J41İ51:Z$"S"57Q -:J$(J):(J$)1J$" "J$x 0J$;::3)(A$(J),7,16):JJ1:36 332,9:34,21:33,30::"CONTINUE LISTING (C)";14);"OR";25);"STOP HERE (S) ";:23:Z$:Z$"C"Ĺ32,0:33,20:34,0:: 6 I896960:J:I,J:l Q43603:Z(107)(108)2568:209,(Z):210,(Z1):Q,0:Q1,3:Q2,18:Q3,3 919:FR(917)256(918) : D$"CATALOG":D$"PR#0":D$"IN#0" !::32,0:33,20:34,0::J1 $(A$(J),8,2)" "57 'J21J6,208,242,200,192,196,144,232,96f 27392:A$(100):C$" ":B$" " I10011:A$(I)B$C$::I0:A$(0)C$" ":D$"":D$"NOMON C,I,O" R$"RUN":L$"LOAD":K$"LOCK":U$"UNLOCK":DE$"DELETE" I768788:J:I,J:Y S 56,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96 1,96,1,0,17,0,145,3,0,149,0,0,1,0,0,96,1,0,1,239,216,0,0,169,3,160,128,32,217,3,162,0,142,149,3,142,150,3,160,56,185,0,149,162,8,10,144,8,238,149,3,208,3,238,150,3,202         p*** OUTPUT ROUTINE *****)9363(12)PA;" ";A$;" = ";B;" ";B$X20^.I;"--";U$(I);18);I3;"--"U$(I3)(I2(15)b "ENTER THE VALUE AND ITS PRESENT UNITS.":}"(VALUE,UNITS #)";A,JJ1J65130"ENTER UNITS # TO CONVERT TO.";K(K1K651502BAR((J))R((K))<A$U$((J)):B$U$((K))FOR F)";T,S$! (S$,1)"C"3100Y A$"DEGREES FAHRENHEIT":B$"DEGREES CENTIGRADE":ATl B(59)(T32)r  A$"DEGREES CENTIGRADE":B$"DEGREES FAHRENHEIT":AT& B(95)T320 ***CALCULATION ROUTINE***936:(5)I13!35924E1) U$(3)"TONS":R(3)9.071847E2E U$(4)"GRAMS":R(4).001b U$(5)"KILOGRAMS":R(5)1 U$(6)"METRIC TONS":R(6)1000 **** TEMPERATURE ROUTINE*** F1:936:(12) "ENTER THE TEMPERATURE AND PRESENT UNITS"  :"(TEMP, C R(2)3.7854122 U$(3)"CUBIC FEET":R(3)28.31685Z U$(4)"CUBIC CENTIMETERS":R(4).001t U$(5)"LITERS":R(5)1 U$(6)"CUBIC METERS":R(6)1000  *** SET WEIGHT VALUES ****** U$(1)"OUNCES":R(1)2.834952E2 U$(2)"POUNDS":R(2)4.52* U$(3)"SQUARE MILES":R(3)2.589988E6T U$(4)"SQUARE CENTIMETERS":R(4).0001u U$(5)"SQUARE METERS":R(5)1 U$(6)"SQUARE KILOMETERS":R(6)1E6 " **** SET VOLUME VALUES*** U$(1)"CUBIC INCHES":R(1)1.638706E2 U$(2)"GALLONS":"FEET":R(2).30481 U$(3)"MILES":R(3)1609.344R U$(4)"CENTIMETERS":R(4).01l U$(5)"METERS":R(5)1 $U$(6)"KILOMETERS":R(6)1000 .  ***SET AREA VALUES *** U$(1)"SQUARE INCHES":R(1)6.4516E4 U$(2)"SQUARE FEET":R(2)9.29030ENVERSION # ?";N N1N5190H (N)1000,1500,2000,2500,3000,3500W F0İ5000a 6000 "DO YOU HAVE ANOTHER CONVERSION?";R$ (R$,1)"Y"50 936 "END": *****SET LENGTH VALUES***** U$(1)"INCHES":R(1).0254 U$(2)_ 2936:<R(6),U$(6)Dd7);"METRIC-AMERICAN CONVERSIONS"bi PROGRAM BY RICHARD BUCKnn:::x"PLEASE INPUT TYPE OF CONVERSION":"1--LENGTH""2--AREA""3--VOLUME""4--WEIGHT""5--TEMPERATURE": "CO       *CxL|qf={'~x^oOs /U98/wxxPqLxp}r{xgO`?c~[Qgvx|}wo?syxOw{Oo?~M}|ez>wx~;\!w._w>|x[]}www}ax}}qw?wm`o&]wx||[n>o{yLxqCx?wx|q,s\_Gvqx?Y\}sww}kx_}}sw?sCgw&]gxy|Co>gy{]x?xx?~'~ygs|H6yr}x{C?~)^}N=L>~x||qqxO~y~;yQ}oTe}oxOyg?Ktssyx??sb?D_s}/_xs_'r{ iyykxx}sl.w?w=`._u[{xwooO? H=wx`sg|ozyuwxwH?~> 4Qs3vx7{oO?n xOg{O?~g?/ez>wxyGG?0 LOdGx?]^}{ww}cx_}}cw?ySswG&ox{|os}c_x?@x~O|sN{?~l&zt}x{o{~ K~}\yn~xy?~}g|x_|;~s~}gn\oVm}x<|`Se`s7|x?~cj?L{9}/x{?`{97 d|ykxxy?D9&x g)d8.usxo=nw?\Gk?|=Jx6:\_Ow={}x}>no~0O?H=wx?@G'no?2{{uwxs^?|~+/~!S{3vxw?{O_N xGo{_~g_}oez>wx{_~- |?_l~x?]^}{ww}gx_}}cw?}SqwGb8?nxsyN{}Xx|px|ygzhnzu}x{|0|y;>npBxs|?~xoys|s|S}3zFoVMy~xqy?L?VmN}w'~>xp fh?Ly<}o>xK?>Hy362~|ixx{|cLxO#nawx_,G7Gc~wxs_?~`O-]y?>N|x?Y^|{wwyGx_}}gg?}ApwOb:?nxgyTgymgXxaAxy?bO3=_zhnzuyxy}36|{5:d~xg}xo?sgys}Wy}?rnV]{~x/gCFi_ygO~xw dm>D?>x?nx}wfxmxssCqNon3O>kwx_ O?7c>kxS=mowcv~x}|vo?y9D,=wx~oswx?<~_oO;{{ox<_~?>CRy8/wxO?v3|xw?}sg|oEz>vxg|`_!x{_yx?Z^~{wg{x_yygo?}mxs`:?fxOAw}dox~|x{L79_{{hNru{x}.Dx{vh{!r|q?wxOCxO?fOcg}W;~}?NV]{~x/N.9 KO?so_~^xgm,@}z_<x7~`sr}glY?zexw@ aYNx`?_O>cwx?|?g F/Okx[=}oww}tx}}tg?L8@,wx?~o?{}gx`g?@9{SOx__|o4WV98/wx`?>~gOx7>f?>}s~oUr|fxo{yp_mzy\_sx^\~{wO{?~x_{{oo?}-|y/e:?wxsw=fO xpxs?&2ssl^va{xsN!rcvisitapwsxxx_lOgyq{^{|xo|<Rg?vO_|^xOI``O}z_}x/v|sa|OMQL~uxg?|bn{`_G>Ggx~;|?nMFOokx_[}gww}ux}}uw?!=|`,]wx?~~n>{nx wx?~Nw<$~xx'~|L6ww@.^tk{xs^eofccct rs{x?|~xI?o{'Ksi@_6={}x{\AW??\g{f^y@}x~Zp`g}z_yxgyh~_Ynt /d7xOqB3f?@_oW|Gox}vwNILWogk@@@@@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uժ`@@@@@@ U*U@ p@@@ժժ~@@ &2 D?@0@@@pp@@@@@@"""@4??<4<"<! @@ժ|@@@~?~?`?@@">>$80$|. @@`5`@*U* s`|@"<""">>>""@@ժժ@@ &2 xH$@ɇ@ 8 80`$$$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H K8 8hi#ʥ"%$$%%#%"H K8(*)+!hi# H K8(*0 8$(!`8Hh`BC<>=?<=`ɠ%25H $8h5 <"<"""<< <"""<< <$""< &"""     **"" """""<""< & >"""""""""**"""""< >>"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> ":8>*** > >>> >*""""><>    >**>  ">" >>8>$>8*N>  **" >"""">>""   H 8px|~~||x0? ^HD?$?DHH>`$???@@_dn?LG! 2"AAA">> >Tr> >UUUsA>><$"  <<<> & > ">$8""$  Ɍ I0$H%H)H ?2h)h%h$hl8` k2$$!`L01L41ɠɍɊɓ@ɏ) Ɏ`HH2@,h@Hh ɀɠB8 8@ & & &m)m)H))) ))E$(h)h`KIYOMASA KAWAIKK1V(K)I:W(K)J:HHЩ 15 18,0`2HI25 k2h2`$%%#P%"H 1(*)+!hi#/H 15)H+H5 H))h++(*h+h)0 1% $)))`$)H))0))115))) ))5(!h) )`*UU*ժH$Pi38,P,R,U,W@L0q607h8090"%$%H 1 1hi#LX5 y0Lw05 1(`5()  0( ɍH 1hɌ I0L0ɋ $(5L0ɓH@hɒ`NO 0,Ɂɖɚ` "$(5-?;7- -??.-)5??- ->?;7- -;7- ->?;7- ---->??7---;7- ->?;7- -0@Xes~0P--.6>>?''$%--???.--5???.--5;??-"$66?$$$-?OR?$$ -?$$$-669?I9?'$$,-=9?$$$-- 5>?$$ -=-$$$066&+=$$$/=s- $$4$$$N  ??$$$$$$& 666$$$V$$$0L&`++m++L%8.+.+ N+n+L$+++m+++m+++.+L$+0=+6Lg%++)++++++/ȥ/++LW$LS$`+`,*.)- 0L 0 $ ` "++ `+++ +e:-+.+8++++)m++*m++LN%-+.+8++++++++ ++.+n+n++8++++++m+++`+++8+ 8 ++ZT ++e+, +؍+L#, "+,+-+.L#+)+*+}+}+++ LQ#++L.#L)#+`+++++ P!) +i+LQ"( +i+LQ"++m+++m++++гZ++8++++`+[m+S+i++i +`+ič++i +`+̐++i++i+`++`.++ !`+'+ !`+m+++m++`+8+8 +++++}+}+ ++)`(`(L;++ !`׍++ !`,++ !`ȍ++ !``Z+8+8+ +e,+}+"0} + +e,`+SM +e,/7++}+}++++ + !` + !` + !`(//,++ ! @ѩ@LJiBB8D0DiiD DiiD @hhhh` M L(-`8A8 ePp0 x0 x`Ɉ`8BL-  [  ~ ,ɛ`  [  ~ХiP ,ɛ`Ѕ> DI  &>e u?e  9 I `0e ?`0e M`0L,`H@ ,h`H ,h`eP8P`@HHHH JiAA8C0CiiC CiiC u i u 8 u `> ? `I1``8>8? >I>>?I?? `L1`e u  9i  98  9`e  u 90 ɝ`? i I   !!!!!!!"""""""#######$$$$ @e u  i  8  `e 1$"B"G0:D0:10040U'C1$"R"İ1100:10040o'C1$"S"İHH)?5h)P(h) ` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?e8`t'C1$"T"İ100:10040V~'C1$"K"İ300:10040o'C1$"L"İ500:10040'C1$"J"İ600:10040'C1$"A"İ700:10040'C1$"P"İ1400:10040'C1$"G"İ800:10040'C1$"D"İ1000'C1$"I"İ900:10040'C1$"C"İ1000:900:10040;'C AND TYPE FILENAME." B':"FILENAME---->";NAME$FL'"BSAVE ";NAME$;",A$2000,L$2000"rV'"INSERT KANJI DISKET ANDGCCXCYNXXN1C1 KxAI`400:10050`'(C$)1C$"":10100$j'C$(C$,(C$)1)=91:2000%VVV1100:V1(V10):V11N80V1:2000:V10N90:2000[VVV110:V0N80V:2000d100s'---END---{'A$'::"S(AVE SCREEN DATA OR R(ETURN MONITOR?"$'G$.'G$"S"ĺ:"RUN MONIT"8':"INSERT USER'S DISKET0) V11N80V1:2000V10N90:2000>VVV1100000:V1(V10000)WV10N80V1:2000fN93:2000wVVV110000V1(V1000):V11N80V1:2000:V10N92:2000VVV11000:V1(V100):V11N80V1:2000V10NJK$"" TK$K$G$:1000^G$">"8020(hV(K$):rV100008100PwV1(V10000000):h|V11NV180:2000}}V10N92:2000VVV110000000V1(V1000000):V11NV180:2000:V10N91:2000VVV11000000:V1(V100006:2000G$">"1005000 p---CHAR---*z1000<G$(34)100RN(G$)512:2000\6010qX--SMALL CHAR---{b1000lG$"'"100v(G$)64N(G$)32512{(G$)64N(G$)32512~20007010@---KANSUJI---$">"100 K$G$ C0C55200 1000, K$K$G$? C0C55200R 1000:K$K$G$X Pt U"BLOAD ";K$;",A$6000" W"READ TEXT." Z1000:G$"9"G$"0"5210 dK$"" nK$K$G$ x1000 G$" "G$">"5230 N(K$)25KA1NN100/ 50:CXCX1:CX20CYCY1:CX0:CY12İ30105 ; O "CLOSE TEXT."\ "PR#1"f " 1"s "PR#0"~ 10000 1 " 1 "; 0 16302,0 CX0:CY0: --KANJI--- 1000 G$"9"8000 G000:1000:160 C0C5NCC1:2000:100. C2C1:1000? NC12:2000M C1N47[ C3N48i C5N49x 2000:100 --GET1CHAR--- G$ C1 G$(JI$,C,1)1100 CC1:C191050 .C0 LC5C(C5)51 V "N0:2000:100 ~G$"="N78:2000:1008 G$","N76:2000:100T G$"."N77:2000:100e G$"/"140 CX0:CYCY1:CY12İ3010 100 100 C5NC:2000:100 C1C1:1000 G$"-"N39:2000:100 C1C1N37:234,6 t' <<< RENJU >>> BY S.KOMIYA TSUKUMO ORIGINAL CTA0ST<MUE ItCM( P2 BX`Y`C`VeRC1OJZ G I,15I,183$ I15183124*15,I184,I:4I>3:I317ZHII1221,5kRI3,I1221q\f1:1:"************";p"* $% () ,- *";z"* &' *+ ./ *";"* BY *";"* S.KOMIYA *";"************"AIN?";:G$VG$"Y"Ĭ500.`G$"N"1100Bj0:0::9999:M PLOT^TAX15Y,Bx0:2X1215,Y1215&C2(AB)03:CX1215,Y1215: INIT33,12:32,281:I101899,I190,I0:I1518312 (16384):Z127910# 16368,02 Z206680M (Z217)(Z141)790W 1810j 1,B:2,X:3,Yu V(1) V1V1000640 0:22 $B1ĺ"YOU";:1080 ."APPLE"; 8V0ĺ" LOSE" BV999ĺ" WIN!" L24:1:"TRY AG14R48:910 H910$ RX14890= \Y0C120:R16:910W fY14C120:R32:910e pR32:910x zY0R16:910 R48  3:CX1215,Y1215 O1100: 0:2X1215,Y1215 1:R:C1X1215,Y1215:0 O1100: Z621130 X0X14680& MX:90? 18:" @C =";:C$R Y(C$)65:C$d Y0Y14740p MY:90 (TAX15Y)0680 20:" OK?" C2(AB):R0 *X0X14Y0Y14C118:910 4C119:X0850 >Y0Y14C120:Y"2":610 NC$"N"5707 XA2:M$"2":P$"1"L b0,A:BA:X7:Y7Z l0:(12)d v1810w 1,B:8,X:9,Y 8992 B3B:0 B2İ100:1010 15:1:M$" : YOU":E$;E$;E$;E$;E$ 17:" V: =";:C$ X(C$)65:C$ XV: =";(X65) MX:902 " @C =";(Y65)> MY:90D O  MAINY 9216d 1130w 232,0:233,39 0:1 &TA11264:ST12032:MU9728:E$" " 02010 :0:(12):8:"3 4?(Y/N)";:C$:C$ DC$"Y"A1:M$"1":P$W- 16304,0:16297,0:16299,0:16302,05C$>2500YZ6,32:7,120M6:MU:hd COMPUTERn8:1:P$" : APPLE"x9280P(11024)P0Ģ22:1:"DRAW GAME":1100P((1)P2)2X(STP)Y(STP1) 10:"                                           :"ENTER YOUR MOVE BY GIVING THE COLUMN AND THE ROW (IN THAT ORDER) OF THE INTERSECTION AT WHICH YOU WISH TO PLAY YOUR STONE. GOOD LUCK!" 23:10:"L O A D I N G . . .":(4);"RUN G/RENJU":O LUCK!" 23:10:"L O A D I N G . . ."z#Xİ    կӠŮҠ ԮĠ̠נũԮΠӠ٠  ǯՠZ ͯàΠ կɠ կӠŠ կӠŮʠկӠŮà կͮű ǯŠӠC ǯ٠ǯŠƠȠǯŠƠȠʠǯҠ ǯŠ(ǯՠϠ"ŭΠϯֲ "Ԡ!ՠ įԠΠŠůŠƠӠůĠ̠  ::4:15:"R E N J U":7f15:"BY S. KOMIYA":" BAKED APPLE USERS GROUP -TOKYO, JAPAN"::"THE OBJECT OF THIS GAME IS TO GET FIVE STONES IN A ROW. THE COMPUTER IS SMART;HOWEVER, AND WILL RECOGNIZE A WIN BEFOREFIVE STONES ARE LINED UP."40.J36350(.;20);T1$(I):63605.T1$(I);<.IF.380x." I HAVE ";S1;"- YOU HAVE ";S2;" "~..CP(37)1:37,0:T3$:TS0:BS5:6430:6240.TS5:BS23:6430:37,CP:T3$:.32,0:33,40.<34,TS:35,BS.F " OF DIAMONDS",->C$(I26)C$" OF HEARTS"I-?C$(I39)C$" OF SPADES"P-@If-BI152:Z(I)I:Il-Lr-Vz-`J0-j" YOUR CARDS ARE "-t384-~I16-II3II46360-JJ1-J26330-J16350.636),C1$(6),Z(52)B,T3$" "Z,I1:K15:LK16i,"M0:J16{,$JKJL6185,&MM1:V(I,M)J,)J,.V(I,5)K:V(I,6)L:V(I,7)0,8II1:L,K,:I113,;C$,<C$(I)C$" OF CLUBS"-=C$(I13)C$I;") ";C$(Y(I,1))3+T1$(I)(I)" = "C$(Y(I,1))I+C1$(I)C$(Y(I,1))P+IV+|+ "A","2","3","4","5","6","7","8"+ "9","10","J","Q","K"+11:5:"I AM SHUFFLING...",D(52,4),I(52),W(5,4),M(6,4),Y(6,4),C(4,4),V(15,7),J(52),C$(52),T1$( *************!*M059109*"YOU ARE DEALING "C* 5920X*"I AM DEALING "b* M1Mh*4~*>"YOUR CARDS ARE"*H*f COMPUTER'S HAND 1-6*p PLAYER'S HAND 7-12*zI16:J14*M(I,J)D(I,J)*Y(I,J)D(I6,J)*J+"(";)JI1,)D"YOUR CARD IS THE ";C$(D(I,1))O)l" MY CARD IS THE ";C$(D(J,1))g)vD(I,4)D(J,4)5820)D(J,4)D(I,4)5790)"CUT AGAIN ")5630) - COMPUTER DEALS)M0)) - PLAYER DEALS)M1))************* DEALD(I,3)((J1)13)10(D(I,4)J13((J1)13)W(D(I,2)10:D(I,4)10D(I,2)D(I,4)^(Id(|(******************(** CUT FOR DEAL **(******************("HIT ANY KEY TO CUT FOR DEAL":20:(X(X(16384))(I(50(1)2)P4:'PP3:)'J(1)1J(2)15370A'J(3)1J(4)15370G'a'"********************{',* SHUFFLE THE DECK *'6********************'^I152'hJ(52(1))1'rXZ(J):Z(J)Z(I):Z(I)X'|I'I152'JZ(I)'D(I,1)J(00&dJ(2)1J(3)153802&nJ(1)1J(4)15370J&xJ(1)1J(4)15340X&S45330f&S35320~&J(1)0J(2)05310&J(2)0J(3)05310&J(3)0J(4)05310&PP12:&PP9:&PP8:&PP5:&S35360&PP6:'P SORT HAND INTO ASCENDING ORDER*%I147%JI15P%W(I,4)W(J,4)5140]%XW(I,4)o%W(I,4)W(J,4)|% W(J,4)X%J,I%- CHECK FOR RUNS%(S0:I14%2J(I)W(I1,4)W(I,4)%<J(I)1SS1%FI%PS25400&ZJ(2)1J(3)154VS15PP29$`- CHECK FOR 2/3 CARD 15 SUMS AND PAIRSD$jI14Q$tJI15m$~W(I,2)W(J,2)15PP2$SW(I,2)W(J,2)15PP2$W(I,4)W(J,4)PP2$J,I$- CHECK FOR 4 CARD SUMS OF 15$I15$SW(I,2)15PP2$I%-#W(I,3)W(I1,3)4930"#IK#- CRIB SCORES ONLY FOR 5 CARD FLUSHZ#C04910d#PP4}#W(4,3)W(5,3)4930#PP1#$4930#.W(4,3)W(5,3)4930#8PP5#B- CHK FOR 5 CARD SUM OF 15#LSW(1,2)W(2,2)W(3,2)W(4,2)W(5,2) $THE 5 CARD HAND*"f*********************h"p- CHECK FOR A JACK OF SAME SUIT AS UP-CARD (EXCEPT CRIB)p"zP0~"C14810"I14"W(I,4)114800"W(I,3)W(5,3)4800"PP1"4810"I"- CHECK FOR 4 OR 5 CARD FLUSH#I13$(D(13,1))!I14(!W(5,I)D(13,I)/!I=!T9W(5,4)R!W(5,4)114680`!M04650x!"2 POINTS FOR ME "! S1S12!S11211490! !*"2 POINTS FOR YOU "!4S2S22!>S21211490!H!R*********************"\SCORE I) I K0 I1J/ &J(I)P944209 0KK1E :B9I(I)L DI[ NK14450c X:i b l******************** v* GENERATE UP CARD * ********************  384:"THE UP CARD IS THE ";C$(D(13,1)):380  !UP$CIF THIS POINT REACHED(rB9(J(1))15|B9I(B9);t- BEST HAND WILL BE WHICHEVER HAS MOST OF CARD "C9"}P90I115J(I)0IIIJK14LV(I(I),K)M(L,4)C94340J(I)J(I)1K J(I)P9P9J(NGLE BEST HAND. SEARCH FOR KEY CARDS9- CHECK FOR 5'SHC95:4240]- CHECK FOR 8'SlC98:4240- CHECK FOR 7'SC97:4240- CHECK FOR JACKS"C911:4240@- CHECK FOR ACESJC91:4240h- RANDOMLY CHOOSE A BEST HAND UATE THE HANDC04700- V(Z9,7)P<PP9P9PDZ9n(- FIND ALL HANDS WITH MAX SCORE (P9)v2J0<I115FV(I,7)P93940PJJ1ZI(J)IdInJ13990x- THIS IS SINGLE BEST HANDB9I(1)$- NO SIVFIND BEST 4 CARD HAND6`*********************?jP90LtZ9115[~I1V(Z9,1)jI2V(Z9,2)yI3V(Z9,3)I4V(Z9,4)J14W(1,J)M(I1,J)W(2,J)M(I2,J)W(3,J)M(I3,J)W(4,J)M(I4,J)W(5,J)25J - EVAL  PPR9  J1C1 J(J10)J(CJ1)8 JE K1I1R LK1Il J(K10)J(L10)3580z XJ(K10) J(K10)J(L10) J(L10)X L,KK1I1$J(K10)J(K11)13650.K8R9IBL********************* OR 31 OR 2,3,4 OF A KIND AND RUNS> **********************F P0T C13480k S915S931PP2 FT2:(C2)2FTC2 ICFT1 J(I)J(I1)3390 PP2(CI1)4 I> RUNSR C23480\ R90p I3Cz 3490 I(M520)I9 J(C)M(I9,4)- S9S9M(I9,2)b "MY CARD IS THE ";C$(M(I9,1));" S=";S9;" P=";P9j F2w& S1S1P90 S11211450: S9313160D F0:C0:S90N 1650X C$"O"2050b 1650l **********************"v * CHECK FOR 1513010@ Q0J QQ1(T I9V(B9,Q)D^ - DON'T PLAY A 5 FIRSTXh M(I9,2)52980hr I(M520)I9y| J(C)M(I9,4) P90 S9M(I9,2) 3080 Q42890 I9V(B9,1) 2930 J91K9 I9I(J930) I(I9)P93050 J9  I"GO"  G1 1650% F02820+ 9 F12790\ "I GET 1 POINT FOR LAST CARD"h S1S11y S11212820 1450 "YOU GET 1 POINT FOR LAST CARD" S2S21 S21211490   CC1" M5M51, C130106 M5 ( "I GET 1 POINT FOR LAST CARD". ; C0:S90G S1S11Y S11211450c 1650s Y542680y( 2 "I'LL GIVE YOU 1 POINT FOR LAST CARD"< F S2S21P S21211490Z C0:S90:G0d C$""n 2050x G11650  M502350 J91M5/ QI(20J9)24507$ J9N. H9M(Q,2)312450Z8 K9K91kB S9H9M(Q,2){L J(C)M(Q,4)` 3180j PP9P9Pt I(Q)P~ I(K930)Q Q62270 CC9 S9H9 K902840 C$"O"2590 G12600HS2S21RS21211490,\F0:C0:S906f1650Yp"I GET 1 POINT FOR LAST CARD"_zkS1S11}S11211450F0:C0:S901650K90:P90C9CCC1H9S9Q0QQ1I(Q)0QI12450QI22450 RDED THAT CARD - TRY AGAIN ";'1690K"ALREADY PLAYED - TRY AGAIN ";U1690"THAT TOTALS MORE THAN 31 - TRY AGAIN ";1690M542220 Y542720C$"O"1650 *F221604"YOU GET 1 POINT FOR LAST CARD"> Y51:I(10Y5)C6DCC10NJ(C)Y(C6,4)RXT1$(C6)" PLAYED "\b3180v"YOU PLAYED THE ";C$(Y(C6,1));" S=";S9;" P=";PF1S2S2P6400S21211490S9312050F0:C0:S90:G02050"YOU DISCA20::C$(X):C$"O"2050&17406"":C6X48LC61C661760n"INVALID PLAY - TRY AGAIN ";x1690C6I31990C6I41990Y501820J1Y5I(10J)C62010JS9Y(C6,2)312030&S9S9Y(C6,2)0Y5T1$(I)" ":I,"6400:F,********************`6* PLAY OF THE HAND *zJ********************^Y50:M50:C0:S90:G0hM02050rY541680|M5427202050"YOUR PLAY ";20:C$(X):C$"G"1720nx1420C"I HAVE ";S1;" POINTS - YOU HAVE ";S2;" POINTS"M1550S\260b}"I WIN ";S1;" TO ";S21520"YOU WIN ";S2;" TO "S1"WANT ANOTHER GAME (Y/N) ";UP$UP$"Y"200I16 11450X11180,650,1390'K145LV(B9,K)@J14RW(K,J)M(L,J)[J,Kq"MY CARDS ARE":|K14LW(K,1)C$(L) KW(5,4)T9C0(47002S1S1P<S11211450F:P;" POINTS":dX1650,870 Q16 T1$(Q)C1$(Q):Q* 6400E "HOW MANY POINTS ";P9P DPP9_ $D01090 ."NOT WITH THAT HAND! - TRY AGAIN" 8990 BS2S2P9 LS21211490 VD01170 `S1S1D j t"MUGGINS FOR ";D;" POINTS" ~S112  *P;" POINTS"! 4S1S1P3 >S11211450= H1390F RX13O \990W fK1b pI16p zII3950~ II4950 J14 W(K,J)Y(I,J) J KK1 I W(5,4)T9 C0 4700 384:"UP CARD IS ";UP$:380 155020 N"YOU SCORE FIRST "# XX11, b870B l"I SCORE FIRST "K vX12U 1180o "THE CRIB CARDS ARE"u  I14 C$(C(I,1)) I I14 J14 W(I,J)C(I,J) J,I C1 W(5,4)T9 4700  X1800,850I3I4I40I47(I4)I44601 "NOW REALLY ": 360D 6400P - CRIB[ J14n C(1,J)M(I1,J) C(2,J)M(I2,J) C(3,J)Y(I3,J) C(4,J)Y(I4,J) J - GENERATE THE UPCARD &4470 0- PLAY OF THE HAND :1590 DM060:5600 - SHUFFLE AND DEAL/ 5420:5860b "- FIND THE BEST 4 CARDS - DISCARD THE OTHER 2 ,:"I'M LOOKING AT MY HAND AND THINKING..." 63670 @- DISCARDS JI1V(B9,5):I2V(B9,6) ^ h"YOUR DISCARDS ";I3,I4 rI30I37(I3)I3&:::"C R I B B A G E"B:"CONTRIBUTED BY S.GREENFARB"Q 6170:200_16368,0|X(1):(16384)12830(16368,0:X(16384):X42Ā-(X);2:S10:S20- SHUFFLE THEN CUT FOR DEAL - LOW CARD DEALS 542           W0lb-rE()F-rE()GY vcYQW)GMa()G_*qPa(Ӡ)GMa()GM0`.?װr$~`$d86?reMQG\}a(ǠРŠĠҠנŭ)0&q\uqq_'XUVWbUVeM x}Y_~T}\}a(ՠԠĠŠԠŠ)}_n}0,~\}a(ĠŠҭŠ)6~_n}.~oa(ԠϠ٠ο)Gq?~`2?r$qPMa()hyKryq,\u["}d"e d#eMo [+ }\}a(٠ԠƠ)%}Kde~dedeM}_~0d}\}a(ՠנƠЬġ)vq/?(rq/?rq`-(r%q-(rqVHvU"e Lua(ŠŠϠ̠ŠРĠŠӮ)Muca(ŠԠӠϠ٠̠ŠӠŠө)Huca(ӠŠΠΠՠŠ٠ϠԮ)u`.?װr$u_qquKMoSua()Sua()-ua()c ud)e FDuqqq q7 q*qqVNuO4prD4rD4rD4rD4rqqXuN@"rq@buq6@q6?װq6?q6q6|q6 vuqE()GPa(ӽ)FE()GP< +o`%qa(ɭŽ)FGM6dP*+q.?6?rq.?6?r4+UVWdY>+`$H+\yH+`$'_ }0u]٠0:uذqٰd(ed-(r$,~'-(rq)'qqq\d)'qqq\d'-(rq*]ŭԠ+q% +oa(ٽ)FE()GP6+a(Ž)F$'\4.'q2?r`8r8r$t'\ _*t']š~'qq+'q8r80r+'q8 r8r8'`8r8r8(r8r$}'`êΠ$ qqq qq\d7 q88r08rr@ qq\d [']ΠРE'`.?װr$.'qdedeKdeM$S$q8r80rq8 r8r.Y8qB[]Ԡ`%[\`%[Gq-rq-rq_ ]rM)0qqq\d:q\d D-(rq[]ԠqqSq8r80rq8 r8rUVW \ `r8(r8r%[Nqqq-(rqq\dFqq8r 8r]ӽ˽Ž `7$0I&deK8rde8rdeK8W#dededeM\`$,`$"q3-rq-rq"`$d} ,Y 6Y@[]ϠҠ>q`8r8@_0ud]נԠ n`7%[1xذq-8r8rr1ٰq-8r8rr M[]ŠԠ.qqqqUVWUV&&0jjjE 0  )(`)00 0)` a3a8 AS!L]ұ]٠٠]]άؠ]] 8ȱJLh `#  <(eΨ =)eϰ%Hh>?iJK̅  #`Lk *<m$ > ">Hȱ;z """"""< >> ""**<"">""""""""""""">>><2""<""">""" ""  ">"6*""""""&*2"""""""""""".<"" "" ">"""""""""">>< ("$" j,**>> "2*&" " >>  ">> "|h0h8h8d<d<`dDddD8D8w~ w~  ?pxo?fXAf Cf C> Cf|Cf Cf C? C pcfff?ffffpc cxyo0c Ca0c Ca0c Ca0 Ca?c Ca0c Ca0c Ca0cxAa0f 3f 3f 3f?< ?<83f3f 3f3f03f03f;3f< <3f3f3f3f33f33f33f<~x~ Bxngx|~|`hptptxtxt8t80T8d8d8D8D~w~w~x~ Bxngx|~ed?exdBedCeM6 }q,~\'\ N][ $ @~|`GcW ~@_ y~2P~~~?|I? > 1c@_  ?<fff0f0f0f3f< <3f3f 3f 3 rde/?rMNYNqd e/?rL/u[|]Ԡ!}O4rD4rq}ŲqԲ* }qzqzq|q{}qG|q|}Բq|Ųq| }q }?d}d<ed=eud>eqqMNd ededeRNd2eoP\NUVWxa()GY aNM6fNoPa()GpNoP a(Š)FGzNoPa(ɭŠ)FG"NoPa(Ҡ)FG;NdeUVWde/?dehM''oP a(ӠӠ) *oP #*a(Ԡ٠٠Ϡ)GM6.d6ed7eN[ N]Ҡ*Nded6?eM4Nde~M6&>NUVW-rqn/?r\lY*HNqFq de'o Pa() j'o Pk'a()t'o Pa()~'oPa()'oPa()'oPa() 'q(+'dedededeM'dede8M!'de'd6?eM?B'oP a(ĠŠӠЮ)cPa(Ϡ) G'M6(L'oP a(ŠŨĠ) Q'M6|R']Š S'de.V'dede~de<deFM%`'dede deLMGM6\ N_ p]ΠuM 1zoPa(̠٠ӠԠԡ)G'UVWd6?ed6?eMd6?ed6?eMYqUVW \Y_'Q']Π'KM6M]ŠĠde~\dede:fUVW'lm'nYUVWPXd6?e de/?rde/?rMd6?eMY`$qoP"bG a()GoP d2ea(Ԡ٠)Mdede/4UVWdedeM9M>Y/UVWdedeM YM ` q : qoP bG`%[ ]̠Ҡ  w_dedede/?rde.?rM`/?r%Mde[]͠ -dede.?rde.?rMM M[]Ҡ )dededeMM l`2%[\Mv[`2%[\M[0dede de_dde[de[de[de[]Ҡ `.?r$`.?r$]Š :deMdeM'@de~de-rde-rM \l\XqoPbG@ `$qoP bGq'deZUVdWX deM@Y\de~[k]Ӡq `-r.?r-r .?r$M`q.?r ] 9q-r`%qq-r`%q\lde#dededeMde2MdeMdeZM Mrr8/?rrl-rq55/?r[]Ҡ /dede.?rde.?rMMLUVW~`.?r-r$)`-r.?r-r.?r$_Y FMx[]ԠŠ M4÷qMG|@M|J`.?r%\]ҠŠUVWdeD`.? r$`-r-$de-rde-r M|M|`.?r%\YYZ_pX]ԠҠ$b-rq}8}-\]נҠde-rPde-rq-r`-r$de-rde-rMzde~M|`.?r%\,]ҠŠ 1`.?6?r$6q_@-6`$@dedeJ  \}+ UV,WX6oPbE()GUVWd]נҠ";SK(1)^N:" HIT ANY KEY TO START. ";hN:A$}NN2:(3).5N1NX(79)256(78)OSEEDXORSRSX: RANDOM SEEDOSK(1)20SK(1)30SK(1)SK(1)20:RS1: TEST SEED.OSK(1)1OWARD THE ENEMY"@\N" FRACTIONAL DEGEES ARE ALLOWED(60.3)."ofN" BAGS ] 1 TO 30 BAGS MAY BE USED SAFELY"pN:" SKILL FACTOR IS ADJUSTED AS YOU PLAY."zN"> YOU MUST TAKE THE WIND INTO ACCOUNT."N" SEE ARROW!" N"BLUE SKILL(1 HIGH TO **:*N:5:RS15.17L4N13::"ARTILLERY BATTLE":13:" BY C R LILES "c9N15:"RED VS BLUE">N:8:"YOUR MISSION IS TO DESTORY YOUR ENEMIES ARTILLERY WITH YOUR OWN."HN:"..WHEN YOUR TURN ENTER:> ANGLE , BAGS "RN" ANGLE ] 90 IS UP, 0 IS T10600@)X9,4X,104J)X9,18X,10XX,10XX9,2GT)XX9,18XX,10R^)10630bh)X9,2X,10r)X9,18X,10XX,10XX9,2|)XX9,18XX,10) WIND IN THE ARROW*GP(1)RX%:GP(2)RY%* N START ----- HERE!N"N :******************5(JH%(RX%)I"(K,JK1,J::(6:KRY%5:K1RY%5E(I05U(JH%(RY%)Ie(K,JK1,J:) POWER &WIND & KRADIUS) ---------------------)PW(1)(1)410)PW(2)(1)410")W100(2)50,)X140W2:XX140W26)2;)W0) 'VEH4YVI(J.0175):JJK7'VE160VE24(1)J'VE192VE191Z(H%(I)(VE)h(I,H%(I)n (|(X160H4Y((I(H2X)2792(H%(I)(X24(1))7(I,H%(I)<(( PILL BOXES RED/BLUE( " ="(5:KRX%5:K1RX%5(I060H3Y:I0(H1X)2'XXX2((1)4):H%(I)(XX)@'I,H%(I)F'['I(H1X)(HLP)z'VEH3YVI(J.0175):JJK'VE160VE24(1)'VE192VE190'H%(I)(VE)'I,H%(I)''VI(HVPH4Y1):K90(HLPH2X1)'I(HLP)(H2X$'RX%((1)8010): RED LOCC.'RY%((1)90180): BLUE LOC V8'H1X(1)5570jB'H2X(1)55165|L'H3Y(1)802V'H4Y(1)802`'HLP(1)13080j'HVP(1)1002t'J90:K90(HLPH1X1)~'VI(HVPH3Y1)''1,160H3Y'X1T)90VXVXW#XXVXT100-TT19WVWWFECXVXTYCYVYT1.6TTuCXXCX100:CYYCY100VXVXWV4001200 OUT OF PICTURE  A SPACE ODITYCY160ı4:1005' SET-UP / BUILD TERRAIN'3)1N2Ė24#"(A,B>";:100. N2ĺIAA.0174533:B((B))YB301070m(2)B301070$CXGP(N):CYH%(CX):400.D1:N2D18VMBPW(N)BVXDVM(A)LVYVM(A)VT1:XGP(N):YH%(X)5`3YY(YXT1.6T10010$:21:" RED ";30);"BLUE"T"SKILL= ";SK(1):22:(30):"SKILL= ";SK(2)hRSRS1:X(RS)u49168,11005 ******* ****** ** THE BATTLE DRIVER ** ****** ******23:958N3NSH(N)SH(N)100,SK(KN)SK(KN)(SC(3KN)SC(KN))10YSK(KN)10SK(3KN)SK(3KN)SC(3KN)10SC(1)SC(2)9SK(1)SK(1)(3):SK(2)SK(2)(4)DS0SK(3KN)SK(3KN)DS10SK(3KN)0SK(3KN)SK(3KN)N3KNSH(1)0:SH(2)0:SH(3)0E5CXE4,CY ,  SCORE AND NEW SKILLD SC(3KN)SC(3KN)1L 10s "SCORE RED "SC(1)" BLUE "SC(2) NKN970 SH(3)SH(2)SH(1) SH(3)20SK(1)SK(1)2:SK(2)SK(2)2:960SH(3)7SK(N)SK(N)(3).3:SK(N)((SK(N).005)100 NKNMK$"HIMSELF!!!"" 10< NA$" HAS KILLED "MK$E N900Q X BLASTj bE1EX:CXEX0E1CX lE2EX:CXEX280E2279CX vE3E12:E4E22:E5EXE3 CXE3,CYCXE1,CYEXCXE4,CY CXE4,CYCXE2,CYEXCXE3,CY CXE3,CYCX,CY3440  N4" EXSK(N)+ 600] (GP(3N)CX)SK(N)KN3N:EXEX3:600:500 (GP(N)CX)SK(3N)KNN:EXEX3:600:500 :1005  KILL KILL KILL  N1ĺ"*" NA$"RED":N2NA$"BLUE" MK$"RED":KN2MK$"BLUE" 6B((AN$,G8JJ)), ;G90Ĺ49232,1:G91< @AN$"":G80B J\ TG51G50:BA:AAA:t Y" , ";:G80:AN$"" ^G51:AAA:100:315  ---- PLOT SHELL & TEST---  CY192CY0CX280CX0416 2000  CX,CY (H%(CX)CY)81:G80G80:100/ G80ĺAX$;:AN$"":100A AN$(AN$,G8)K AX$;T 100q G90Ĺ49232,1:G91:250 G91Ĺ49233,1:G90 100 JJ2G8 A$(AN$,JJ,1) "A$(45)A$(58)300 ' ,A$(AN$,JJ1):A(A$) 1JJG8340, H%(281),SK(2),SC(2),PW(2),GP(2),SH(3)IAX$(136)(160)(136)T20000\dA$nnA$(13)270}xA$(3)ijA$(24)āJJ1G8:AX$;::G80:AN$"":100A$(8)ī200A$(27)ī230A$;:G8G81:AN$AN$A$100 G8G         ]٠]ĠŠ]!]Ԡ]ĠŠ :]ŠD]ĠΠ̩N]ΠΠӠ!X]Š̠!b]٠ĠˠΠl]îv]Π ]٠ϭ~]~]~]Π~]Ġ]ԠР]Š̠]͠Ơ٬ &]ҠΠǠ0]Ϡű@GPaŲ@G|[|]|]ԠӬî|]}UVWJ }DZ-rqDz-rq-rq-rq-rq}Y'}qqqqd}[~]WXdxذqٰqMnxذqٰqMxxYxoxUVW  xPbcxYxذqٰqMxذqٰqMxذqٰqMxذqٰqMxذqٰqMxذqٰqM$xoPawذq<ٰqMwذqJٰqMxذqJٰqM x`%_xxذqٰqMxذqٰqM(xذqٰqM2xذqٰqMvcca()uPa() uPa() uPa()uoPa(Š)uoPa()!ucP a(ˠĠ̠)GHuoP a(Ԡ)Pa(ĠҠέ̠ũ)GuUVWYuMȱuMPa():uccc&u]0uȱq0qNqq':uDZqqqqDuٱqNu\}Xu@p() buMȱMDZluoPa()vuPa()uPa()uPa()uPa(`Jb-rM[N] N]Ԡ̠ΠN] No4NP8rHN` %_N\NoP8r !pN` %P8r  Na@Q[u]u]CP@p()a@GCUVWYCP@p()a@GCUVWY CPa()GCY(CP@p()a@GUVWYE[J]$J]ԠŠΠ.J]8JoLJP8rUVWXBPa()GPa@GBUVWٱYBYBUVWBoPa@GBoPa()GCUVWٱYCY&Co0CUVWX6DCPa@GXCPa()GlCUVWٱYCYC`%_ECUVWX6 %_77q_B7`%_88q_B"8q qqB[JB]TB]Π̠^B]hB@p()orBqq6|B`%_BBqqBqB%_76q_B7` %_P77`%_<7(7qq_B<7qq_BP7`DZ-r%_7d7` %_7x7` %_77`Dz-r%_77_77`DZ-r%_77`\8J5Dz-rq6`-r%_t6)$6-rq-r-r86DZ-rqL6q\8J`6_6t6-rq-r 6DZ-rq!6q@p()\ N6q6-rq6` 5_645` %_5)H5-rq-r-r\5q \8Jp5DZ-rq5`-r%_65q @p()\ N5_65`Dz-r%_6)5-rq-r-r5q@p()\ N04`%_4D4_7X4`-r%_4l4` %_6!4` DZ-r%_64-rq4DZ-rq4q4_B4-rq-r !4q@p()\ N 5DZ-rq-rq-rh3q\8J(|3` %-rq-r 3Dz-rq3_X43]̠֠ŭ3-rq-r3q\8J3` %_X44`-r%_044q @1Yd2[2]2]2]2`%_452]ӠӠ̠2-rq 3`DZ-r%_33`DZ-r%_X4,3]̠֠ŭ@3`Dz-r%_3T3#;@rr0`- r%_00\ 0q- rq0oPa@G0oPa()G0`@9()%a()G1UVWٱY$1@p()81UVW L1`-r%_1`1@p@*#r!t1@B;@rrpq 0`@*#r:()%_p0I 0oPa()GoPa()G@p@*#;@rr40`- r%_p0H0\ \0q- rqp0`@*#r:()%_0I0oPa()GoPa()G@p@*()G@p@*#;@rrl/`-r%_//\ /q-rq/`@*#r:()%_ 0I/oPa()GoPa()G@p@*#;@rr/`-r%_ 0/\ /q-r@p@*#;@rr.`-r%_..\ .q-rq.UVWX6.oPa@G.oPa()G/`@9()%a()G/UVWٱY0/YD/`@*#r:()%_/IX/oPa()GoPa-rq.`@*#r:()%_h.I.oPa()GoPa()G@p@*#;@rr,.`-r%_h.@.\ T.q-rqh.`@*#r:()%_.I|.oPa()GoPa()G(-UVWX6<-oPa@GP-oPa()Gd-`@9()%a()Gx-UVWٱY-Y-`@*#r:()%_.I-oPa()GoPa()G@p@*#;@rr-`-r%_.-\ -q)G@p@*#;@rr,`-r%_,,\ ,q-rq,`@*#r:()%_(-I,oPa()GoPa()G@p@*#;@rr,`-r%_(--\ -q-rq@*#;@rr+`-r%_++\ +q-rq+UVWX6+oPa@G,oPa()G$,`@9()%a()G8,UVWٱYL,Y`,`@*#r:()%_,It,oPa()GoPa(*]*]Š̠*]*UVWX6 +oPa@G +oPa()G4+`@9()%a()GH+UVWٱY\+Y"p+]ŠȠӬ٠׭+`@*#r:()%_+%+@p'`8@9()@9()@9()@9()@9()@9()r%_*R'`8@9()@9()@9()@9()@9()r%_*!'`@9()%_*#'`@9()%_*'_%*[@p()#L'`@9()%_*!`'`@9()%_*Rt'`8@9()@9()@9()@9()@9()r%_*_'`8@9()@9()@9()@9()@9()@9()r%_*_p()'&`%@p()&_*&`%@p()a&`8@9()@9()@9()@9()r%@p()&`%@p()'`%@p()$'_*8'@9()@9()r%@p()%`%_\& %q/?r &`%@p() &`%@p()'4&`%@p()H&_*\&`%_& p&q/?r&`%@p() &`%@r%_**0%`8@9()@9()r%_*D%_#X%]ԧ̭l%`%Q%`%_8'%`%@p()%`%@p()%`%@p()a%`8@9()@9()$_*$@p()*$`8@9()@9()r%_*g%`8r8@9()@9()@9()@9()@9()@9()r%_*_%`8@9()@9()@9()@9()@9()@9()`%@p()$`%_|$ $q/?r ,$`%@p()@$`%@p()T$`%@p()h$_*|$`%@p()$`%@p()$`%@p()$` %@p()Ƞ̬î#](#q.?$r<#`@9()%qP#qd#`@9()%_l%x#]Ҡ̭#` %Q#`%_$#`%@p()#`%@p()#`%@p()#H`.?6?r%_"\P@p()a@GpUVWٲ-rY`.?6?r%_" Pa()GY/P@p()a@GUVWٲ-rY`.?6?r%_"_l"[ #]#]Š̬#]-rY`.?6?r%_"P@p()a@GUVWٲ-rY`.?6?r%_" Pa()GY*@p()a@GUVWٲ-rY`.?6?r%_" UVWX6 P@p()a@G4UVWٲ-rY)Pa()Pa() Pa() Pa()UVW -rqY,q [:]D]٠ϠN] XqbolUVWP@p()a@GUVWٲ6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r UVWY [j]t]ԠР~]oPa()PoPa()dPa()xPa()Pa(PS(Ҡſ)&@p`@*#r9()%_ MȱQ\}\v_ ] ]Ġ ]Y q.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?rY q.?`%_\+`-r-r%@pű@+`-r-r%@pŲ@! `-r-r%_H> oP8;@rra()E@E(ׇɇ·Ӈ)4_\'HoPa(ԇɇŇ)"\o`88 DZ-rr8 Dz-rrr%_TR`88 DZ-rr8 rr%_f`%_z` %_`%__,@" rC@" rDٲ4r\0u]d]n]Πx]\]ԠР,\X]٠Ϡ\(#]Š\*]ŠX\2]\hB]Π̠c Ӡ]ŠŠ]ǠԠ ]x N@"drC@"rC@" rD4 rDDZ4rDDz4rC@"rC@"rC@" rC@" r\O4rD4rD4rCű@" rCŅ?iJK̅  #`Lkذqٰ]]ŠӠҮ]Ԡ]٠ˠĠ̠#]Šd]ԠĠҠέ̠Š٠Š $ H h . #` L} %J  u H h d #` L  Q ;#`  Q #`#2 '( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>فŴxaI1& ')*& "'JJ) ""% m% ʥ)J!m%! `JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`Hwh ;؍wٍ` (`(Lh*U @&()`%*Q&&QeS)j00', "&, i8i#H&ii&hif&i'`'i, &i,. &iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%Q&&kS TePTUeQPe.??r8.?>rr_ &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i% J$)` . Q&%Q&&`$JI`'% I` I0ܩ(ߠQ)'%1&*%Q)&EZdJedKededed<e8.?rrd=e.?r8.?rrRd>e8.?<rrd?e.?=r8.?<rrdBedCe M6;de8.?>rrde8.?>rrde.??r8.?>rr_mm  ii е $H$#i h$`ZdJedKe dede d<e8.?rrd=e.?r8.?rrRd>e8.?<rrd?e.?=r8.?<rrdBedCeM6;dmm  ii е $H$#i  h$`) i> i` e! `Hi  hLXn*UU*ժ !!""##( (!!(""(##P P!!P""P## Lwh%h$` #8 "P" N  h `H(   `$i! `,0 %# `HhH`h` % N ȹN m  $e   `)iѩ$"%  $H%H$%%#  Lw h%h$`  #8 "P" N ȹN Hmhm$e }M ee` HHH`) N OI,hhh (,H hH h hɛɍ  `ɛL3L L Lb L Lj `Hhh`HH(h`  ` edCeM6;de8.?>rrde.??r8.?>rr_ HH6: 06: 6,P,W,Rhh`HH6,Q,Thh`ɍ Ɋ ɒɓ L| ,X  L)@ &ee% N LLL3 ` ``l6  L j LB b LX LpL !A```ZdJedKe dede d<e8.?rrd=e.?r8.?rrRd>e8.?<rrd?e.?=r8.?<rrdBAZdJedKededed<e8.?rrd=e.?r8.?rrRd>e8.?<rrd?e.?=r8.?<rrdBe0dCeM6;de8.?>rrde.??r8.?>rr_,T ,U HL                      ,-74,-59,-44,-29,-15,0,16,30Q$-140,-125,-109,-94,-79,-63,-40,-33,-18,-2,13,28.-145,-129,-113,-98,-82,-67,-49,-35,-20,-4,11,278-148,-132,-116,-100,-85,-69,-53,-37,-21,-6,10,26.,-50,-40,-30,-20,-10,0,10,20,30,40,50T -68,-57,-47,-36,-26,-15,-5,6,-16,27,37,48 -95,-83,-70,-58,-46,-33,-21,-9,4,16,28,40 -112,-99,-85,-72,-58,-45,-36,-18,-5,11,22,36 -124,-110,-96,-82,-67,-53,-39,-25,-10,3,18,32-133,-118,-104,-88A):W01509 nA1C(W11,T1):A1A1DT(C(W11,T11)A1)P xAADW(AA1):150^ DW0150x AADW(C(W11,T1)A) A(A) :"THE APPROXIMATE WIND CHILL TEMPERATURE":"IS "A" DEGREES FAHRENHEIT" 900:60 D13000:::% -6016:1:" CURRENT WIND SPEED: ";:958:"";T$:W(T$):W0W40Ğ:" MY TABLES ARE ONLY GOOD FROM ":" 0 TO 40 MILES PER HOUR ":900:70 PT1((T60)10):W1(W5):AC(W1,T1) ZDT(T10)(T10):DW(W5)(W5):DT0130 dAADT(C(W1,T11)RE OR WIND SPEED THAT IS NOT":"IN THE TABLE, THE PROGRAM INTERPOLATES":"BETWEEN THE KNOWN VALUES." <900:14:1:"CURRENT TEMPERATURE: ";:958:"";T$:T(T$):T60T50Ğ:" MY TABLES ARE ONLY GOOD FROM ":" -60 TO +50 DEGREES FAHRENHEIT ":60 F PROGRAM COMPUTES THE APPROXIMATE":"WIND CHILL TEMPERATURE FROM THE STILL":"AIR TEMPERATURE AND THE WIND SPEED."d 2:"TO KEEP THINGS SIMPLE, A TABLE OF KNOWN":"VALUES FOR VARIOUS TEMPERATURES AND":"WIND SPEEDS IS USED. WHEN YOU ENTER A":"TEMPERATU WIND CHILL TEMPERATURE --------------------- INSPIRED BY PROGRAM IN KILOBAUD, NOV 1980, PAGE 14 BY ROBERT BAKER ADAPTED TO THE APPLE II BY BOB SANDER-CEDERLOF :10:"W I N D C H I L L"C(8,11):W08:T011:C(W,T)::r (:"THISO3) CURIUM,CM,96,(248)7 BERKELIUM,BK,97,(247)U CALIFORNIUM,CF,98,(251)r EINSTEINIUM,E,99,(254) FERMIUM,FM,100,(253)@ MENDELEEVIUM,MV,101,(256)A NOBELIUM,NO,102,(253) B LAWRENTIUM,LW,103,(256)'# DONE,DD,1,1')  FRANCIUM,FR(FA),87,(223): RADIUM,RA,88,226.05U ACTINIUM,AC,89,(227)p THORIUM,TH,90,232.12 PROTOACTINIUM,PA,91,(231) URANIUM,U(UR),92,238.07 NEPTUNIUM,NP,93,(237) PLUTONIUM,PU,94,(244) AMERICIUM,AM,95,(24 IRIDIUM,IR,77,192.22 PLATINUM,PT,78,195.09I GOLD,AU,79,197.0d MERCURY,HG,80,200.61 THALLIUM,TL,81,204.39 LEAD,PB,82,207.21 BISMUTH,BI,83,209.00 POLONIUM,PO,84,(209) ASTATINE,AT,85,(210) RADON,RN,86,(222 ERBIUM,ER,68,167.279 THULIUM,TM(TU),69,168.94V YTTERBIUM,YB,70,173.04v LUTECIUM,LU(CP),71,174.99 HAFNIUM,HF,72,178.50 TANTALUM,TA,73,180.95 TUNGSTEN,W,74,183.86 RHENIUM,RE,75,186.22 OSMIUM,OS,76,190.2SEODYMIUM,PR,59,140.923 NEODYMIUM,ND,60,144.27P PROMETHIUM,PM,61,(147)p SAMARIUM,SM(SA),62,150.35 EUROPIUM,EU,63,152.0 GADOLINIUM,GD,64,157.26 TERBIUM,TB,65,158.93 DYPROSIUM,DY(DS),66,162.51 HOLMIUM,HO,67,164.94.82 TIN,SN,50,118.706 ANTIMONY,SB,51,121.76S TELLURIUM,TE,52,127.61o IODINE,I(J),53,126.91 XENON,XE(X),54,131.91 CESIUM,CS,55,132.91 BARIUM,BA,56,137.36 LANTHANUM,LA,57,138.92 CERIUM,CE,58,140.13 PRA91.22# NIOBIUM,NB(CB),41,92.91@ MOLYBDENUM,MO,42,95.95` TECHNETIUM,TC(MA),43,(99)| RUTHENIUM,RU,44,101.1 RHODIUM,RH,45,102.91 PALLADIUM,PD,46,106.4 SILVER,AG,47,107.880 CADMIUM,CD,48,112.41 INDIUM,IN,49,114GALLIUM,GA,31,69.72/w GERMANIUM,GE,32,72.60Ix ARSENIC,AS,33,74.91dy SELENIUM,SE,34,78.96z BROMINE,BR,35,79.916{ KRYPTON,KR,36,83.80| RUBIDIUM,RB,37,85.48} STRONTIUM,SR,38,86.63~ YTTRIUM,Y,39,88.92 ZIRCONIUM,ZR,40,SCANDIUM,SC,21,44.96/m TITANIUM,TI,22,47.90In VANADIUM,V,23,50.95do CHROMIUM,CR,24,52.01p MANGANESE,MN,25,54.94q IRON,FE,26,55.85r COBALT,CO,27,58.94s NICKEL,NI,28,58.71t COPPER,CU,29,63.54u ZINC,ZN,30,65.38v 991c MAGNESIUM,MG,12,24.32;d ALUMINUM,AL,13,26.98Ue SILICON,SI,14,28.09rf PHOSPHORUS,P,15,30.975g SULFUR,S,16,32.066h CHLORINE,CL,17,35.457i ARGON,AR(A),18,39.944j POTASSIUM,K,19,39.100k CALCIUM,CA,20,40.08l N,H,1,1.008# Y HELIUM,HE,2,4.003< Z LITHIUM,LI,3,6.940W [ BERYLLIUM,BE,4,9.013m \ BORON,B,5,10.82 ] CARBON,C,6,12.011 ^ NITROGEN,N,7,14.008 _ OXYGEN,O,8,16.0000 ` FLUORINE,F,9,19.00 a NEON,NE,10,20.183b SODIUM,NA,11,22. 9IN$ >IN$"OUT"ī35( HL1103= REL$,SY$,AN$,AW$R \EL$"DONE"ī800e fAN$IN$İ6000l pLu u805 z936:255 p:"ELEMENT";16);"SYMBOL";24);"AT.#";30);"AT.WEIGHT" z::EL$;16);SY$;24);AN$;30);AW$ :: X HYDROGESY$IS$İ6000 DL1 N410, X:9365 ]150R b"TABLE OF THE ELEMENTS"` lL11103u vEL$,SY$,AN$,AW$ {EL$"DONE"ī35 6000 L1 35 936:255 %::"ENTER ATOMIC NUMBER" * /"TO EXIT OPTION ENTER 'OUT'" 43 EL$,SY$,AN$,AW$+ EL$"DONE"ī202> EL$IE$İ6000E LN 202] 936:255q "ENTER SYMBOL"w  "TO EXIT OPTION ENTER 'OUT' "  :IS$ IS$"OUT"ī35  L11103 0EL$,SY$,AN$,AW$ 5EL$"DONE"ī410 : d"3. LIST BY ATOMIC NUMBER"> q"4. AUTOMATIC SLOW LIST"D s^ x"ENTER OPTION (1-4)"e }O| O200,400,800,600 936:255 ::"ENTER ELEMENT NAME" "TO EXIT OPTION ENTER 'OUT' " IE$ IE$"OUT"ī35 L110#EL$(15),SY$(6),AN$(3),AW$(7)EIE$(15),IS$(6),IN$(3),IW$(7)O#936q("TABLE OF THE ELEMENTS FILE"2"FOR APPLE II COMPUTER"7"BY RICHARD W. WAGNER":<"ENTER DESIRED OPTION"P"1. LIST BY ELEMENT NAME" Z"2. LIST BY SYMBOL"     (J)9060F#DD(J):IJ1<P#D(I1)D(I):II1:DD(I)9040IZ#D(I1)DOd#Un#CP)L:IKJIM80309PIL(P):JR(P):PP1:8100W STRAIGHT INSERTION SORTuJ2N:D(J1)D(J)8170DD(J):IJ1D(I1)D(I):II1:DD(I)8150D(I1)D(#:INSERTION SORT ROUTINE2#N2ı<#J2N:D(J1)D):D(I)TD(IJ)D(I):D(I)T:TD(IJ)khTD(J)D(IJ)D(J):D(J)T:TD(IJ):D(I)TD(IJ)D(I):D(I)T:TD(IJ)rLL1:TD(L)8050|KK1:D(K)T8060KLDD(L):D(L)D(K):D(K)D:8050PP1:S(LI)(JK):SL(P)K:R(P)J:JLSL(P)I:R(L(P):JR(P):PP1:71404STRAIGHT INSERTION SORTRJ2N:D(J1)D(J)7210c DD(J):IJ1D(I1)D(I):II1:DD(I)7190 D(I1)D*4@:SINGLETON SORT ROUTINEJP0:I1:JN:M7TIJ8110#^KI:LJ:IJ((IJ)2):TD(IJIJ):D(IJ)TDT$KIJDD(L)5LIJDD(K)LLL1:DD(L)7080cKK1:D(K)D7090KLTD(K):D(K)D(L):D(L)T:7060KLKK1:LL1PP1:S(LI)(JK):SL(P)K:R(P)J:JLSL(P)I:R(P)L:IKJIM7030PIRRI1:LR60206PLL(P):RR(P):PP1:6020<WX:QUICKER SORT ROUTINElbP0:I1:JN:M10{lIJ7150vKI:LJ:IJ((IJ)2):D(I)D(IJ)TD(I):D(I)D(IJ):D(IJ)T D(IJ)D(J)TD(J):D(J)D(IJ):D(IJ)