' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?  , = #""*( (9"1 ( ,.(0# 2 /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0!!+'2+4:'/+'2+4'??4)E81B $! h h Լ ռ ռ ռ`HJ>݌h Hh݌`IHɭ ɭ R`ӤL߼IHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LɜK JI8h hLߍ ԧ᜙߼IHͺ9ٜ췈뷠詷 뷍ߜLJ` H`ߜߜ8)H`H`H` L` R%ӛu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ! G   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH ᜢ E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`@                     @               `  P@Ѓ* P<!T TP" èހ@XGD@x(բbT_B@B x@0Ӛx@ @`@pA( 0РpA`A U U ;`lx A x?Ap@@ @PpUP+U |@T**@GE9` @D`x@@8 Tx}5@c (Až@< ЀЂ` . 0HɻD@@ * U( Ҁ(ׂ* p@Ղ @@z ߪ@BzJB@@ @@Ё `(T8Ѐ@@A A!U@`)0Q@(P  Cp_WP2@@@q@*P}ꁀD.i0x 0(`@<T PD言O gd@@@p(( *@%e R4@@   U@ PA T``8 P *TJ B>*Tx@@`Ԃ ` @9 (P@C@U*T@`\ІC @ U|F@X@Q}@ `!T|(U@O.R_퀁 @`5(Ё@pAWD U?6Ђ`?ЀxԐ`@ @ *%`ş*0A@"ȁ AAP((A*@@2!  `ڂ0``틀hT,x `s*(@` @Ԁ0   `(}  @BU@@ ` p@@*~L0 p@pH0H(@ U | ( JTpƀ ,0(U1ЀU >рp(੏/ @` @ ApТ`p €P*@T(r`Q@ ,  @x{`@Ȫ @p@ P xҀƀآp  @xP`@T@ @P*@ `@@Ѐ8P !T*@€*| `l 0ԁ$ՋHP:@TW @*8@f@ @A䄄 0 *Ђ`` @ J= *<`upPP@)DB : *@*`%P`:& *(A@_p @`à @BKԀ@@Ԡ"(`@BP D @P P @P@ @A Tp@ׂ pھtC T P@0@hP ت `AժP0(!R @P@ @>@@*@ E@ p   T` 0Ԡ` 0P(@(xs%HuД0@^`<#T h@@ UB|ÊA$8 T @ @x                    q`(AÈ@ \ 4P@p4t׃ &A T( *(0T(~B (Ń `= Tp ݏ 0+ H@B)EP@B@0( A5@(Ѐ@0TA  UZ@@Ў ` * Ղ U T>p@ DZ @ wx(UU"(*@T`V0(P  T @  05@  @" P 0X@PT"<㫁@ ԂH y> UЂa jA<( ` aЊJoÊA ~?*8T :T (hD T(Я Ѐ+@Ѐ( `BVB 8. (((!8@ @\€ U (@ A(`%*  ((E*@Ԃ (@@ e`PԪU*0ժY߇b  A"@R@@ @@`x7@ !@@04E@ @@|Ԁ  *Pj`pP PPR U(@РUA*U*U*U (p!x*  PH8Pj@Rƒf PJpp@@ N@T(H  @ @T $UЂ  L P `TF@(qyԀ`@ U8 ]Ղ @ TP*@(k*@Ԃ((}d P P@(Q@*B (T*0@*@U * ! @*8A @`**UT*MUhD@@ d?@ T@@( (_P Tı`  @PPԏ7@@f  f~3(@Fpߪ@ؗh0@ k @*@*:%(  *ԀT`@5!@:`Bf U )C @` b(ԂH@xA T P†U (@ P( `Ђ*A  UP@ ģ *@@ @( T*U*U*T Pp` TO SKIP":12:"FILE NAME FOR PAGE 2 PICTURE:":"";P2$ P2$"?"ė:D$"CATALOG":"PRESS ANY KEY TO CONTINUE":K$:::150 P2$""190 D$;"BLOAD";P2$;",A$4000" D$;"BLOAD HI-RES HOUDINI" 0::"HI-RES HOUDINI DRIVER": n12:958:22:"'?' FOR DISK CATALOG":" TO SKIP":12:"FILE NAME FOR PAGE 1 PICTURE:":"";P1$ xP1$"?"ė:D$"CATALOG":"PRESS ANY KEY TO CONTINUE":K$:::110 P1$""150 D$;"BLOAD";P1$;",A$2000"h Q **********************9* HOUDINI DRIVER *U* BY SCOTT ZIMMERMAN *q(* COPYRIGHT (C) 1984 *2* BY MICROSPARC, INC *<* CONCORD, MA. 01742 *F**********************P(4)"MAXFILES 2":36608:D$(4)Z360 d:2:1     z!#?    ˠ6 ɭӠҠŭĠҠŠ! ɭӠɠɠҠĠȠΠͮӠϠ ŠԠ ŠԠˠ ӠڠĠӠȠ Ӡ I23101:I:25I::AL$;:I1:1:8688:200Z I1421:10:I:AL$;" ";:*I2611:2003(26I):10:1:(AL$,I);" ";::1:" ";:4I120:10:I:" ";:41I:" ";:>X(16384):16368,0:X155ė:80H100 COORDINATES MOVES<HT(BG)BGVL22:220:240:730PHT(BG)BGİ200yVL21:220:23:HT(BG):(AL$,BG,1);Z125:6,200:7,5:SOUND:255:BG1:868:35,22:BG26BGBG1:340 GRANDE FINALE:35,24:23:868175-TXX208ī300: VERT SHOT9b MOVE & KEEP ON SCREENAlYX`vY136HH1:H1H1:460Y149HH1:H40H40:460Y193Y139VV1:V1V1:460Y218Y138VV1:V22V22:460460BZ110:6,(1)501:7,255:SOUND:S3$H5:V5:S3$%H6:V6:" "4H:V:S1$OHHT(BG)VVT(BG)680pV6V5:V5V4:V4V3:V3V2:V2V&H6H5:H5H4:H4H3:H3H2:H2H0 READ BUTTONS & PADDLES:X(16384):16368,0:X155ė:80DX128630NX199ī260: HORIZ SHO(AL$,J,1);::J5DF3Ģ24:BG::(AL$,BG,1);:M STARTING POSITIONeV22:H((1)341)V2V:V3V:V4V:V5V:V6VH2H1:H3H2:H4H3:H5H4:H6H5 PRINT CREATURE RE-ENTRY180H2:V2:S2$H3:V3:S2$H4:V4:VERTICAL,HHT(BG)ī630:6255:ST1:VT(BG)VST1j@ZVSTVT(BG)1STST:H:Z:(62);::680J NEXT LETTER RE-ENTRYT:35,24:255:Y0^DIFFICULTY OUTPUThDF4āJ126:390rJBG26|DF1JBGĹ50,127VT(J):HT(J):):(AL$,BG,1);::VL1:HT(BG):" ";::; MOVING LEFTz 130:KHT(BG)1BG1:180:K:(AL$,BG,1);::"<";::: CATCH HORIZONTAL VVT(BG)ī630 255:ST1:HT(BG)HST1 ZHSTHT(BG)1STST:V:Z:(94);::680" CATCH G1:340 'TYPE' SOUNDSH Z1(1)41:ZZ(16336)(16336)::[ MOVING RIGHT 120::VT(BG):KHT(BG)BG1:K:" ";(AL$,BG,1);:180:::HT(BG)BG: MOVING DOWN) 165::KVT(BG)VL:6,10K20:7,50:SOUND:K:HT(BG):" ":HT(BGF580 ZDF5ė:) d RANDOM COLUMNSL nNU$"":I1149:NU$NU$(I): xJ38131:RN2((1)J)1:HT(39J)((NU$,RN,2))10:RN1NU$(NU$,RN2,J2):150 NU$(NU$,RN1)(NU$,RN2,J2) RANDOM ROWS VT(39J)((1)18)1:J BZ014:DA:SOUNDZ,DA:Q <166,7,164,6,173,48,192,136,208,253,202,208,245,96,0m F DIFFICULTY LEVEL MENU P255:1:1:"INDICATE DIFFICULTY LEVEL";65);"#1=EASY"33);"#2";38);"#3";38);"#4=HARD";73);"#5=QUIT << >>":8:24:DF$:DF(DF$):DF1DRITTEN BY JOHN E. VOJTISEK PH.D.":11:"** COPYRIGHT 1984 BY MICROSPARC, INC. **":22:" ":16384,128:16368,0 VT(26),HT(26): S1$"*":S2$":":S3$".":AL$"ABCDEFGHIJKLMNOPQRSTUVWXYZ":SOUND768 ( POKE SOUNDS 2  ***********************= * TADPOLE *[ * BY JOHN E. VOJTISEK *y * COPYRIGHT (C) 1984 * * BY MICROSPARC, INC. * * LINCOLN, MA. 01773 * *********************** ::5:12:"TADPOLE ALPHABET":8:4:"W   >"; <16368,0:A$:? F22:"CATALOG":998:(4)"CATALOG"E P )G 6/28/08 255:::F"NIBBLE PROGRAMS - VOL. 5, PART 4"n"================================"(6:"THIS DISK CONTAINS PROGRAMS FROM NIBBLE MAGAZINE, VOL. 5 (1984), ENTERED AND COLLECTED IN 2008." 219:"X(16384):16368,0:X155ė:80H100 MOVES*HT(BG)BGVL22:220:240:730>HT(BG)BGİ200gVL21:220:23:HT(BG):(AL$,BG,1);Z125:6,200:7,5:SOUND:255:BG1:868:35,22:BG26BGBG1:340 GRANDE FINALE:35,24:23:868175 I23101:I:(16287)127ī2900b MOVE & KEEP ON SCREENBlX(0):Y(1)`vX55HH1:H1H1:460X200HH1:H40H40:460Y55VV1:V1V1:460Y200VV1:V22V22460BZ110:6,(1)501:7,255:SOUND: COORDINATESS3$H5:V5:S3$%H6:V6:" "4H:V:S1$OHHT(BG)VVT(BG)680pV6V5:V5V4:V4V3:V3V2:V2V&H6H5:H5H4:H4H3:H3H2:H2H0 READ BUTTONS & PADDLES:X(16384):16368,0:X155ė:80DX128630N(16286)127ī260X(AL$,J,1);::J5DF3Ģ24:BG::(AL$,BG,1);:M STARTING POSITIONeV22:H((1)341)V2V:V3V:V4V:V5V:V6VH2H1:H3H2:H4H3:H5H4:H6H5 PRINT CREATURE RE-ENTRY180H2:V2:S2$H3:V3:S2$H4:V4:VERTICAL,HHT(BG)ī630:6255:ST1:VT(BG)VST1j@ZVSTVT(BG)1STST:H:Z:(62);::680J NEXT LETTER RE-ENTRYT:35,24:255:Y0^DIFFICULTY OUTPUThDF4āJ126:390rJBG26|DF1JBGĹ50,127VT(J):HT(J):):(AL$,BG,1);::VL1:HT(BG):" ";::; MOVING LEFTz 130:KHT(BG)1BG1:180:K:(AL$,BG,1);::"<";::: CATCH HORIZONTAL VVT(BG)ī630 255:ST1:HT(BG)HST1 ZHSTHT(BG)1STST:V:Z:(94);::680" CATCH G1:340 'TYPE' SOUNDSH Z1(1)41:ZZ(16336)(16336)::[ MOVING RIGHT 120::VT(BG):KHT(BG)BG1:K:" ";(AL$,BG,1);:180:::HT(BG)BG: MOVING DOWN) 165::KVT(BG)VL:6,10K20:7,50:SOUND:K:HT(BG):" ":HT(BGF580 ZDF5ė:) d RANDOM COLUMNSL nNU$"":I1149:NU$NU$(I): xJ38131:RN2((1)J)1:HT(39J)((NU$,RN,2))10:RN1NU$(NU$,RN2,J2):150 NU$(NU$,RN1)(NU$,RN2,J2) RANDOM ROWS VT(39J)((1)18)1:J BZ014:DA:SOUNDZ,DA:Q <166,7,164,6,173,48,192,136,208,253,202,208,245,96,0m F DIFFICULTY LEVEL MENU P255:1:1:"INDICATE DIFFICULTY LEVEL";65);"#1=EASY"33);"#2";38);"#3";38);"#4=HARD";73);"#5=QUIT << >>":8:24:DF$:DF(DF$):DF1DRITTEN BY JOHN E. VOJTISEK PH.D.":11:"** COPYRIGHT 1984 BY MICROSPARC, INC. **":22:" ":16384,128:16368,0 VT(26),HT(26): S1$"*":S2$":":S3$".":AL$"ABCDEFGHIJKLMNOPQRSTUVWXYZ":SOUND768 ( POKE SOUNDS 2  ***********************= * TADPOLE *[ * BY JOHN E. VOJTISEK *y * COPYRIGHT (C) 1984 * * BY MICROSPARC, INC. * * LINCOLN, MA. 01773 * *********************** ::5:12:"TADPOLE ALPHABET":8:4:"W      **********************; * COLORED BLOCKS *X * BY TIM LORS *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * CONCORD, MA. 01742 *F **********************P::Z(16384)12890 d16368,0:Z( AND SECOND TRY";"---------------------------":27 -'SAo5:RI" OUT OF "TL" FOR "(RI100TL)" %"y::5:"PRESS THE SPACE BAR TO CONTINUE.":8:"PRESS ANY KEY TO STOP.":15:C$C$(32)ė:300:R::2:15P"YOUR SCORE":Z15:"==========":10 ='SDd::ynTL0Ė(8):"NO QUESTIONS WERE ATTEMPTED.":1490x"ON THE FIRST TRY""----------------":16 -'S5:R1" OUT OF "TL" FOR "(R1100TL)" %":"ON THE FIRST110,130110,1207'30,4030,50.2d30,14230,14040,14040,14630,14630,15040,150k6 240,140250,140250,150240,150:244,145250,1455250,48240,48248,40246,50(2 SCORE SUMMARY<TLR1R2W:RIR1R2 F,658178,120170,120170,125178,125178,130170,130n190,120182,120182,130190,130:182,125186,12588,7088,6096,7096,60100,60100,70105,65110,70110,6096,12088,12088,12596,12596,13088,130100,120100,130105,125120$`136,55136,45144,55144,45Yj144,135136,135136,140144,140144,145136,145t188,90180,90180,100188,100:180,95184,95~90,9090,10095,95100,100100,90170,70170,60178,70178,60190,60182,60182,70190,70:182,65186"SE":AP$(1,4)"E">AP$(2,1)"N":AP$(2,3)"E":AP$(2,4)"NE"jAP$(3,1)"NW":AP$(3,2)"W":AP$(3,4)"N"AP$(4,1)"W":AP$(4,2)"SW":AP$(4,3)"S"CR$AP$(N,P)$.68140,65140,125B110,95170,95L115,70165,120V165,70115,--- ILLEGAL RESPONSE---P21:"THE ANSWER MUST BE ONE OF THE FOLLOWING"s10::"N S E W NE SE NW SW":4:"PRESS THE SPACE BAR TO CONTINUE":20X$:X$(32)ī980830 ---DETERMINE CORRECT RESPONSEAP$(1,2)"S":AP$(1,3)STION H4R21:8:"WHAT IS THE DIRECTION FROM"N\10:A$(N)" TO "A$(P)[f18:AN$mpAN$""ī1330~zAN$(AN$,2)(AN$,1)" "AN$(AN$,1)AN$"N"AN$"S"AN$"E"AN$"W"AN$"NE"AN$"SE"AN$"NW"AN$"SW"ī930 ";CR$:54:"PRESS THE SPACE BAR TO CONTINUE":20MX$:X$(32)ī750V310p GENERATE A QUESTION A$(1)"WHITE(1)":A$(2)"PINK(2)":A$(3)"BLUE(3)":A$(4)"ORANGE(4)"N((1)41) P((2)41)*NPī8004> PRINT QUECOMPASS"l830: REPEAT QUESTION4vAN$""ī1330V1000: OBTAIN CORRECT ANSWERiAN$CR$ī700uR2R21:23:19:"RIGHT!"X1500:X310 2 INCORRECT RESPONSESWW1:23:6:"SORRY ! THE CORRECT ANSWER IS GET QUESTION( 830: PRINT QUESTIONJ 1000: OBTAIN CORRECT ANSWER] AN$CR$ī580i R1R11 &:23:14::"*** RIGHT ***" 0X11500:: :500 D---SECOND ATTEMPT N:23:13 X"SORRY! TRY AGAIN":X1500:b1070: DRAW JX5060:Y4050 TX,Y& ^Y:X- h2E rX5060:Y140150N |X,YX Y:X_ 5w X220230:Y4050 X,Y Y:X 6 X220230:Y140150 X,Y Y:X 1240:--DRAW NUMERALS  **** MAIN PROGRAM **** 770:U"- "WILL GET A SECOND CHANCE WITH HELP."e ::::"PRESS TO END AND GET YOUR SCORE" :::6:"PRESS THE SPACE BAR TO BEGIN":20 "X$:X$(32)ī290 ,R10:R20:W0:TL0:RI0: SET COUNTERS TO ZERO 6 DRAW BLOCKS @:3 NS :5:54 "YOU WILL BE ASKED TO GIVE THE "` "DIRECTION FROM ONE SQUARE TO ANOTHER"o "SQUARE." :5:"YOUR ANSWER MUST BE ONE OF" "THE FOLLOWING :" 5::"N S E W NE SE NW SW": :5:"IF YOUR ANSWER IS INCORRECT YOF7870 @420 J:F1:2801 TP$(0)"0"Ĭ ^:Z1(P$(0)):"("Z") "P$(Z):::"PLEASE ENTER NUMBER & PRESS 'RETURN' ?";:(0):"";A$:A$""A$"0"420 hA(A$):A1A(P$(0))ĺ(7)::350 r |:16384 P$(20):770 H$(0)"0 - "WAIT TO"; Q1300::1 23:11:H9H0F H$(H);:H8ĒHZ Q1500::120 :D$"OPEN"P$:D$"READ"P$:Z$:A(Z$):Z1A:P$(Z)::D$"CLOSE":P$(0)(A) "F340 ,580 6:D$"OPEN"P$:D$"WRITE"P$:Q0(P$(0)):P$(Q)::D$"CLOSE":A$:1I,J:420- (16384)195ľA$::100J (16287)127MM:220o (16286)127ĕ1I,J:HH1:250 H8ĕ1I,J:XI:YJ:100 M0ĕ1I,J:100 1I,J:TX1:LD1:X,YD,ET,YL,EX,Y:JE:ID:120 23:1:M0ĺ" "; M0ę1+ dJ159(1)1.6(255(3))3:J0J0U nI(0).91(255(2))2:I278I278 x24:10:"X="(I)" ";:18:"Y="(J)" ";:M0XI:YJ 1I,J:E159(1)1.6(255(3))3:E0E0 D(0).91(255(2))2:D278D278 (16384)205ĉ: **********************; * HI-RES SKETCHER *X * BY TIM LORS *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * CONCORD, MA. 01742 *F **********************P::380 ZM1:H2:2:16297,0:16304,0:1:     " ";ZZ$:130ZAT,CAT,FAT,HAT,MAT,NAT,PAT,RAT,SAT,VATS d IT,BIT,FIT,HIT,LIT,MIT,NIT,PIT,SIT,WITe n SPLAT,SPLITq x ZZZZZ ZZ$:ZZ$"ZZZZZ"Į:130 (16384)128130 (16384)155Ĺ16368,0: 16368,0 20:868:(ZZ$)27Ė(40(ZZ$))2  **********************; * WORDS *X * BY TIM LORS *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * CONCORD, MA. 01742 *F **********************P::20:8:"PRESS TO BEGIN"& Z AT,B::" ";:(37)8:" ";:(0)2:" ";:(37)10:KAA32KA64K210a F1F(F1):F160,170 (7)A$(Z)" ";:(0)Ė2 F1::768::::" GREAT ! "(7);::" DO YOU WANT TO DO IT AGAIN ?";:(0):A$:A$"N"90 :Z:- 13:"NOW YOU MUST TYPE THE ALPHABET."B :2:F1:Z126w :" ";::(37)8:"<";:(0)2:">";:(37)10 I110:K(16384):S(16368(K127)):K128I10Ă A(A$(Z))128:I10KAA32KA64KāL166:S(16336):F I99:,R,S,T,U,V,W,X,Y,Z d768,160:769,103:770,152:771,32:772,168:773,252:774,173:775,48:776,192:777,136:778,208:779,246:780,96 n::"HI THERE" x::"HERE IS THE ALPHABET:"::Z126:A$(Z):: Z0:Y12:2:X113:ZZ1:A$(Z)" ";: **********************; * ALPH *X * BY TIM LORS *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * CONCORD, MA. 01742 *F **********************PA$(26) Z A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q    (16384)43):Z3? nX(1)40:Y(1)40:Y1(1)40:X1(1)40W xY1YZY:YY1:Y1Zo X1XZX:XX1:X1Z ZYY1:X,X1Z::(7) :(1)256:(0)31150 "KEVIN !!!";:90Z          9:870E, AND THEN TRY AGAIN TO STORE THIS DRAWING. YOU SHOULD TYPE 'GOTO 420' TO RESTART THE PROGRAM.":Q19999::420R6L690ė:12:"THAT DRAWING IS NOT ON THIS DISKETTE ???":19:730R6L760310R6L600610R6L860R9:870 ANOTHER DISKETTE ?";:(0):Z$::opR9Z$"Y"ĺ"PRESS ANY KEY TO BEGIN ANOTHER ATTEMPT !";:(0):Z$:560zR9ĺ"DO YOU WISH TO RETURN TO THE MENU ?";:(0):Z$:Z$"Y"870uR9ė:12:"IF YOU ARE INTENDING TO EXIT, MAKE ROOM ON THIS DISKETTLOCKED & WRITTEN OVER ?";:(0):Z$::Z$"Y"ĺD$"UNLOCK"A$:610N>R10530yHR9L310āQ1(P$(0)):A$P$(Q)AQRR9L310Ă:F7:D$"DELETE"P$:730\R9ĺD$"DELETE"A$#fR9ė::10)"THE DISK IS FULL !!!"10)::12:"DO YOU WANT TO TRYA$:420+ R5ĺD$"CLOSE":P$(0)"0":290OR10L310ĺD$"UNLOCK "P$:310 R10ė:7:"THERE IS A FILE BY THAT NAME ALREADY, AND IT HAPPENS TO BE LOCKED !!!":*R10L600Ģ5:8)"(USE A DIFFERENT NAME)"(7):530@4R10ĺ"SHOULD IT BE UN?";:(0):A$:A$"Y"420W::P$(0)((P$(0))1):Z$P$(A):F7ĺ"DELETING "P$(A)kA(P$(0))760QA(P$(0)):P$(Q)P$(Q1):D$"DELETE "Z$:310D$"CLOSE":R(222):L(218)(219)256:R8ė:12:"FIX THE DISK & PRESS 'RETURN' ";:24:"PRESS ANY KEY TO RETURN TO THE MENU ";:16297,0:16304,0:A$::420V330:12:12:"ONCE YOU DELETE":::::(40(P$(A)))2:" "P$(A)" "::8:(7)(7)"IT IS GONE - FOREVER !!!"(7)(7)(7):24:"ARE YOU SURE YOU WANT TO DELETE IT NG "A$:D$"BSAVE "A$",A$2000,L$1FF8":F2420glP$((P$(0))1)A$:P$(0)((P$(0))1):(P$(0))1680svF0:I1P$(I)P$(I1)660T$P$(I1):P$(I1)P$(I):P$(I)T$:F1II1:I(P$(0))640F630310K330::D$"BLOAD "P$(A):(0))N:FČ958:20:"THERE IS ALREADY A FILE BY THE NAME":A$::"SHOULD THIS DRAWING REPLACE IT ? (Y/N)";:32:Z$:F2::Z$"Y"530XF2ĺD$"VERIFY"A$::5:"SORRY, BUT THAT FILE NAME IS ALREADY IN USE ON THIS DISKETTE.":530-b::"STORIETTER !!!":5308&((A$,1))33A$(A$,(A$)1):5500(A$)30Č958:A$(A$,30)::::"THAT'S TOO LONG !!!"::"WOULD IT BE OK TO SHORTEN THE NAME TO ";A$;" ? (Y/N)";:32:Z$::Z$"Y"ė:530:F0:280DQ1(P$(0)):A$P$(Q)F1:Q(P$-------- 'M' 'C'":11:H$(2);:26:"FOR TO CLEARDRAW"21)"MENU SCREEN";:9012:"THIS DRAWING NEEDS A NAME.":"PLEASE TYPE ONE NOW AND PRESS 'RETURN'. ":"NAME ";:A$:(A$)0420958::::(A$)65ĺ"THE NAME MUST BEGIN WITH A LPRESS STARTS LINE":" SECOND PRESS ENDS LINE":"BUTTON 1 - CHANGE COLORS:":32,5::Q03:H$(Q);5);H$(Q4)::H$(8):32,0:"C - CLEAR SCREEN"::"M - RETURN TO MENU"22:5:"";ZA$::22:"MODE --ING"::"(5) EXIT THIS PROGRAM"::"WHICH?";XA$:::51,6:A$(27)A$"5"Ĺ216,0:qA(A$):A1A4420A470,530,690,700"PADDLE 0 - DRAW HORIZONTALLY"::"PADDLE 1 - DRAW VERTICALLY"/:"BUTTON 0 - DRAW DIAGONAL LINES":" FIRST 5,38,0y::F0:2:12:"HI-RES SKETCHER":19:"BY":16:"TIM LORS":22:"** COPYRIGHT 1984 BY MICROSPARC, INC. **":9,"YOU MAY: (1) CREATE A DRAWING":32,9::"(2) STORE DRAWING JUST CREATED"::"(3) DISPLAY A STORED DRAWING"::"(4) DELETE A DRAWBLACK ":H$(1)"1 - GREEN ":H$(2)"2 - PURPLE ":H$(3)"3 - WHITE ":H$(4)"4 - BLACK ":H$(5)"5 - ORANGE ":H$(6)"6 - BLUE ":H$(7)"7 - WHITE":H$(8)"TRANSPARENT"F768778:Z:F,Z::232,0:233,3:D$(4):P$"PIC.NAMESFILE": 1,0,4,0,60,54,45,36,5LP%(75,P)LP%(75,P)1/" CHECK FOR GAME WON:,PPL1H6WIN075`@LP%(WIN,P)4ī1680iJWINTPL1PL2::23:24:"PLAYER #";PL:1640^PL1::23:6:"PLAYER #";PLhPN0ĺ"PLAYER #1 = ";S1;" PLAYER #2 = ";S2:290rPN2ī990LINE64H:LP%(LINE,P)LP%(LINE,P)1VL(W3)LINE68H:LP%(LINE,P)LP%(LINE,P)1v OUTSIDE CORNER DIAGS NEXTLWLHLP%(72,P)LP%(72,P)1LWL(H3)LP%(73,P)LP%(73,P)1L(W3)LHLP%(74,P)LP%(74,P)1L(W3)L(H3)H3)LINEZERO8:LP%(LINE,P)LP%(LINE,P)1< LENGTH NEXTtZERO(W6)40:LINEZEROH:LP%(LINE,P)LP%(LINE,P)1LHLINEZERO4:LP%(LINE,P)LP%(LINE,P)1L(H3)LINEZERO5:LP%(LINE,P)LP%(LINE,P)1 HORIZONTAL DIAGONALS NEXT$LW(P CONVERT W,L,H TO LINE # AND UPDATE7ZFMW(L4)HdOPEN(FM)H1Zn WIDTH FIRSTexPPL1ZEROL10:LINEZEROH:LP%(LINE,P)LP%(LINE,P)1LINE(ZERO4)W:LP%(LINE,P)LP%(LINE,P)1WHLINEZERO9:LP%(LINE,P)LP%(LINE,P)1*W( BRD%(L,W,H)0BRD%(L,W,H)PL:X1,X1Y9:X,Y8:1360AH1}BRD%(L,W,H)0BRD%(L,W,H)PL:X1,X1Y7:X,Y6:1360(H22BRD%(L,W,H)0BRD%(L,W,H)PL:X1,X1Y5:X,Y4:1360<H3FBRD%(L,W,H)0BRD%(L,W,H)PL:X1,X1Y3:X,Y2Y30X21X37:Y0:L0:W39Y0X17X1:Y30:L3:W0XY0X25X9:Y30:L3:W1xY0X33X17:Y30:L3:W2Y0X41X25:Y30:L3:W3990PL1ĠC1:PCC1PL2ĠC2:PCC2BRD%(L,W,3)0ĺ"POST IS FILLED!":990H099Y10X33:L1:W3/VX13Y0X37:L0:W3J`X25Y30X1:L3:W0ejX29Y20X5:L2:W0tX33Y10X9:L1:W0~X37Y0X13:L0:W0Y30X3X13:Y0:L0:W0Y30X5X21:Y0:L0:W1Y30X13X29:Y0:L0:W215:X,YDIR$0:X,Y1DIR$"X"ī1250MZ(16336):Z(16336)nDIR$"I"YY10:XX4:LL1DIR$"K"XX8:WW1$DIR$"J"XX8:WW1.DIR$"M"YY10:XX4:LL18X1Y30X25:L3:W3BX5Y20X29:L2:W3LX22,2913:22,2921:22,2929:32,391:32,399:32,3917:32,3925OA075iLP%(A,0)0:LP%(A,1)0pAPN0ė:290:"I = UP, K = RIGHT, J = LEFT, M = DOWN"X = PLACE MARKER ON POST"24:"PLAYER # 1"X1:Y30:L3:W0: ";DF%DF%1DF%5ī7601 34,0:S10:S20<A03G B03R*X03d4BRD%(A,B,X)0q>X:B:A}HA015ROPEN(A)0\AfPL1p::CPz2,913:2,921:2,929:2,937:12,199:12,1917:12,1925:12,1933C22,295:415":34,21& "COLOR OF POSTS? ";CP; CP1CP15ī670[ "COLOR FOR PLAYER #1? ";C1p C11C115ī690 "COLOR FOR PLAYER #2? ";C2 C21C215ī710 "NUMBER OF PLAYERS? ";PN PN0PN2730 PN2780"SELECT DIFFICULTY 1-5,W,3)0ī570 460 W03+ L03C BRD%(L,W,3)0ī570J &LQ 0Wv :X(W81)((L3)4):YL10:1250 D:255:S10:S20 NC1 XX5332 bC l0,39X:0,39X1 vCC1 X  21:" 1 2 3 4 5 6 7 8 9 1011121310 ^P0P1:370 hP0$ r190: |PPL1:YP1ī570J DF%3ī450Z DF%4ī430m NM2:NP2:190| YP2ī570 NM2:NP1:190 YP1YC1ī570 RC0 RCRC1 RC15ī520 RW(1):RL(1) W(RW4):L(RL4) BRD%(LLINE YP0:YC0! LINE075: LP%(LINE,P)NMī260D LINET LINELINE1Z c 100} YPNPYC(4NM)YPı YP0:YC0:230 ": START OF COMPUTER'S RESPONSE ,PPL1 6DF%1ī450 @DF%2ī410 JNM3:NP1:190 TYP1ī57FOR OPENS & CLEARS IN A LINE* nYP0:YC07 xZ093l WPLM%(LINE,Z):LPLM%(LINE,Z1):HPLM%(LINE,Z2)} FMWP(LP4) OPEN(FM)HPYPYP1:WWP:LLP:HHP:170 BRD%(LP,WP,HP)0YCYC1 Z  : SUBROUTINE TO FIND NM,NP & NC IN A  **********************9* FOUR SCORE *U* BY R. & L. NEDBAL *q(* COPYRIGHT (C) 1984 *2* BY MICROSPARC, INC *<* CONCORD, MA. 01742 *F**********************P INITIALIZATIONZ2240 d: SUBROUTINE TO CHECK ' G$"S"580' 790R OF PLAYERS IS 1, YOU PLAY";& :"AGAINST THE COMPUTER."k& :"IF THE NUMBER OF PLAYERS IS 2, YOU CAN"& :"PLAY AGAINST A FRIEND."& 22:8:"PUSH ANY KEY TO PROCEED"& 20:G$& 580& 24:"ANY KEY TO CONTINUE, S TO START OVER"& G$U CAN PLACE A MARKER. THE X KEY"I%t :"PLACES YOUR MARKER ON THE POST."a%~ 19:16:"HAVE FUN"% 22:8:"PUSH ANY KEY TO PROCEED"% 20:G$% :"IF THE NUMBER OF PLAYERS IS 0, THE"% :"COMPUTER WILL PLAY AGAINST ITSELF."& :"IF THE NUMBE"1$8 :"3-DIMENSIONS. TRY TO GET 4 IN A ROW IN"b$B :"ANY DIRECTION (HORIZONTAL, VERTICAL, OR"$L :"DIAGONAL) ON ANY LAYER OR BETWEEN":$V "LAYERS. THE FIRST ONE TO DO THIS WINS!"$` ::"I,J,K,&M ALLOWS SELECTION OF THE POST" %j :"WHERE YO 1984 MICROSPARC INC. *""#2170B# ABOVE SPEED SHOULD BE 100J#:h#10:13:"3-D FOUR SCORE"z# 12:19:"BY"# 14:9:"LEAH AND RICHARD NEDBAL"# 22:8:"PUSH ANY KEY TO PROCEED":20:G$#$ $. "3-D FOUR SCORE IS LIKE TIC-TAC-TOE IN,1,2,2,0,3,3,3,0,3,2,1,2,1,2,1,0,3,00"zZ075="Z1011E"A%V"LM%(Z,Z1)A%^"Z1e"Zk""S10:S20:PL1:255"BRD%(3,3,3),LM%(75,11),LP%(75,1),OPEN(15)#::5:13:"3-D FOUR SCORE":12:14:"PLEASE WAIT":22:"* COPYRIGHT (C),2,0,1,1,0,0,0,0,3,3,1,2,2,1,1,1,1,0,0,1,3,3,2,2,2,2,1,1,2,0,0,2,3,3,3,2,2,3,1,1,3,0,0,3!f 0,3,0,1,2,0,2,1,0,3,0,0,0,3,1,1,2,1,2,1,1,3,0,1,0,3,2,1,2,2,2,1,2,3,0,2,0,3,3,1,2,3,2,1,3,3,0,3$"p 3,3,3,2,2,2,1,1,1,0,0,0,3,3,0,2,2,1,1,1,2,0,0,3,3,0,0,2,1,1,2,2,3,2,2,0,3,2,1,3,2,2,3,2,3,3V > 2,0,0,2,1,1,2,2,2,2,3,3,2,0,3,2,1,2,2,2,1,2,3,0 H 3,0,0,3,1,0,3,2,0,3,3,0,3,0,1,3,1,1,3,2,1,3,3,1,3,0,2,3,1,2,3,2,2,3,3,2,3,0,3,3,1,3,3,2,3,3,3,3 R 3,0,0,3,1,1,3,2,2,3,3,3,3,0,3,3,1,2,3,2,1,3,3,0X!\ 3,3,0,2,0,3,3,0,0,3,0,1,2,0,2,1,0,3,0  1,0,0,1,1,0,1,2,0,1,3,0,1,0,1,1,1,1,1,2,1,1,3,1,1,0,2,1,1,2,1,2,2,1,3,2,1,0,3,1,1,3,1,2,3,1,3,3* 1,0,0,1,1,1,1,2,2,1,3,3,1,0,3,1,1,2,1,2,1,1,3,0 4 2,0,0,2,1,0,2,2,0,2,3,0,2,0,1,2,1,1,2,2,1,2,3,1,2,0,2,2,1,2,2,2,3,3,1,3,0,1,3,1,1,3,2,1,3,3,2,3,0,2,3,1,2,3,2,2,3,3,3,3,0,3,3,1,3,3,2,3,3,3 0,3,3,1,3,2,2,3,1,3,3,0,0,3,0,1,3,1,2,3,2,3,3,3  0,0,0,0,1,0,0,2,0,0,3,0,0,0,1,0,1,1,0,2,1,0,3,1,0,0,2,0,1,2,0,2,2,0,3,2,0,0,3,0,1,3,0,2,3,0,3,3 0,0,0,0,1,1,0,2,2,3,1,2,0,1,2,1,1,2,2,1,2,3,2,2,0,2,2,1,2,2,2,2,2,3,3,2,0,3,2,1,3,2,2,3,2,3 0,2,3,1,2,2,2,2,1,3,2,0,0,2,0,1,2,1,2,2,2,3,2,3 0,3,0,1,3,0,2,3,0,3,3,0,0,3,1,1,3,1,2,3,1,3,3,1,0,3,2,1,3,2,2,3,2,3,3,2,0,3,3,1,3,3,2,3,3,3,3,3L 0,3,0,0,3,1,0,3,2,0,1,1,0,1,1,1,1,1,2,1,1,3,2,1,0,2,1,1,2,1,2,2,1,3,3,1,0,3,1,1,3,1,2,3,1,3~ 0,1,3,1,1,2,2,1,1,3,1,0,0,1,0,1,1,1,2,1,2,3,1,3 0,2,0,1,2,0,2,2,0,3,2,0,0,2,1,1,2,1,2,2,1,3,2,1,0,2,2,1,2,2,2,2,2,3,2,2,0,2,3,1,2,3,2,2,3,3,2,3J 0,2,0,0,2,1,0,2,2,0,2,0,0,1,0,1,1,0,2,1,0,3,2,0,0,2,0,1,2,0,2,2,0,3,3,0,0,3,0,1,3,0,2,3,0,3| 0,0,3,1,0,2,2,0,1,3,0,0,0,0,0,1,0,1,2,0,2,3,0,3 0,1,0,1,1,0,2,1,0,3,1,0,0,1,1,1,1,1,2,1,1,3,1,1,0,1,2,1,1,2,2,1,2,3,1,2,0,1,3,1,1,3,2,1,3,3,1,3H 0,1,0,0,1,1,0,1,2,0,1,3ND DIFFICULTY"XG$'bG$"S"ī5807lG$"C"730@v790p23:"YOUR SCORE= ";S1;" MY SCORE= ";S2z1860 0,0,0,1,0,0,2,0,0,3,0,0,0,0,1,1,0,1,2,0,1,3,0,1,0,0,2,1,0,2,2,0,2,3,0,2,0,0,3,1,0,3,2,0,3,3,0,3F 0,0,0,0,0,1,0,0,2,0,0,3,1,YY1 Z"NC0NCPC:18002NCPCNC0:Z1LPL1S1S11^PL2S2S21n&PN1ī1920~0PN0ī2550:23:"PLAYER #1 = ";S1;" PLAYER #2 = ";S2D24:"ANY KEY FOR NEXT GAME, S TO START OVER"N"C TO CHANGE PLAYER # A|PN1PL1ī9902903 SOMEONE HAS WON\::22:12:"PLAYER #";PL;" WINS":eNC0rZ1021zNCZ093WPLM%(WIN,Z):LPLM%(WIN,Z1):HPLM%(WIN,Z2)XX(WP8)((LP3)4):YY(LP10)((HP3)2)3XX,XX2YY:XX14)(WV(5)C1).WV(5)180WV(5)360WV(5)NWV(5)180WV(5)360WV(5)TuCHG. WIND VEL. SELECT. OPT.}:"CURRENT WIND VEL. SELECT MODE IS ";QT$;W$;QT$"DO YOU WANT TO CHANGE?""";I$(I$,1)"N"1550(I$,1)"YVALUE = ";:1350;(IILL(I2)IIUL(I2)TPII:1340T2PX$(15):1720:1270Z<vFNUMERIC INPUT CHK SUBRP2110:SET ONERR ROUTINEZ"";IId216,0:TURN OFF ONERRnxWIND VEL. COMPONENTSWV(1)WV(4)(WV(5)C1):WV(2)WV("WIND VEL. CALCULATED USING ";QT$;"RND";QT$;" OPTION"CNNWV(4)WPX$(11);:1560dNNWV(5)xPX$(12);:15601720:NUMBER INPUT SUBR::"OPTION: CHANGE VALUE OF ";PX$(I2) NNTP:T21"CURRENT VALUE = ";:1560"NEW BW$"RND"İ1150:11400LJ1112:TPWV(J7)9VI2JP`1270:WV(J7)TP:Zj1400et590:{~RANDOM WIND VEL.WV(5)360(2)TP(2):((WV(5)45)(WV(5)135WV(5)225)(WV(5)315))TP.4ī1160WV(4)MV(3)1400T356PL(3):MVPL(4):SP(4)PL(5):SP(5)PL(6):VL(0)PL(7)<690PFL1FL0:990Y590_xNEW VERT. ANG. SUBRT18:I29:TPAV:1270:AVTPNEW AZITH. ANG. SUBRT18:I210:TPAA1270:AATP$.NEW WIND VEL.8:HQQ$"8"İ1450:960#RQQ(QQ$)>\QQ1QQ7700: CHECKUf(QQ(QQ))0690p"ENTER NEW VALUE FOR: ":10);PX$(QQ);35)z1350IILL(QQ)IIUL(QQ)930PX$(15)1720:690PL(QQ)IIRG(3)PL(1):RDPL(2):UNLOAD3IX(4)MV:PL(5)SP(4).PL(6)SP(5):PL(7)VL(0)RI18:" ";I;". "PX$(I);36);gI3ĺ(IX):800y I8ĺW$:800NNPL(I):1560 *::"ENTER NUMBER OF PARAMETER TO BE CHANGED"4"(ZERO FOR NO CHANGES) ";:"";QQ$>QQ$"0"970,140(I04:0,(15I)15,15(15I):OI04:165,(15I)180,15(15I):iJ018015:J,0J,80}J1,36:J1,45:PARAMETER TABLE::14);"PARAMETERS":T38PL(1)RG(3):PL(2)RD:PL(3)IX:LOAD TEMP ARRAYPLC1:AVAVC1U:VL(1)VL(0)(AA)(AV):VL(2)VL(0)(AA)1(AV):VL(3)VL(0)(AV)`D130:pNDRAW FIELDX:3:0,80260,80:180,0180,159b0,1600,0180,0:0,159260,160l260,80260,160:216,155225,155v216,160216,140:225,160225H"İ1590 I$"N"İ1070, I$"E"ĉ::= I$"R"İ590d I$"R"I$"P"I$"N"Ģ23:1720| I$"H"I$"P"İ590 300:END MAIN MENU SET UP MAIN CALC :TM0:WV(2)WV(2) SP(1)110SP(4) &SP(2)SP(5):SP(6)1:SP(3)1 0AAAAAA) TNNWV(4)3 ^"WIND VEL. = ";:(NN);" ";N hWV(1)0WV(1).000001[ rNNWV(5)z |"WIND ANG. = ";:(NN) "ENTER K, V, A, P, N, R, E, OR H (HELP)" I$ I$"K"İ520 I$"V"İ1000 I$"A"İ1030 I$"P"İ690 I$"0) (23):(1):868K PX$(0);TM;:20:PX$(14);:(SP(1)SP(4)C(10))h TMC(11)SP(3)C(1)290q 130 "AAAAC1:AVAVC1:WV(2)WV(2): , COMMAND PROMPT 6:J(0):(21):(1) @"VERT ANGLE = ";:(AV);" "; J"AZITH. ANGLE = ";()),(C(15)SP(9))V VL(4)((WV(1)VL(1))C(2)(WV(2)VL(2))C(2)(WV(3)VL(3))C(2))g IC(1)C(3) XL(I)GA(I)IXRDVL(4)(WV(I)VL(I)) SP(I)SP(I)VL(I)T1C(11)XL(I)T1T1 VL(I)VL(I)XL(I)T1  TMTMT1:TM((TMC1)C(10))C(1****** d" n1740:INITIALIZE> x MAIN CALCULATION SUBR SP(1)C(0)SP(1)C(13)SP(2)C(0)SP(2)C(12)SP(3)C(13)180 IC(1)C(3):SP(C(6)I)(C(17)SP(I)C(11)): (00SP(7)),(00SP(8)) (C(0)SP(7)),(C(15)SP(9)) (C(16)SP(8c **********************; * *X * CROSSWIND *u( * BY CARL FIELDS *2 * COPYRIGHT (C) 1984 *< * BY MICROSPARC, INC *F * CONCORD, MA 01742 *P * * Z ****************          :T130:T222S IY1Y115:4:X1,IX136,I:X1,IT1X136,IT1:T1T12:IK10Ă 5:X2,IX228,I:X2,IT2X228,IT2:T2T22:: KR,0:12:20:"09":16303,0:330:I100 (KB)128II1:Iį150I,3:1468,(I10)176:450 KR,0:320:I:1:18)::21:1:8 hAM1:BM2:410:AM3:BM4:410O r54915:PN750,740x |23:PN1S1S1TS:S1S1(S10):IS1 PN2ĺ:S2S2TS:S2S2(S20):IS2 36:("000"(I),4);: 150,10:200,10:250,10:JX(B):KY(A):X1J18:X2J14:Y1K14:I10200,10::JX(B):KY(A):T114X ,4:X1J18:Y1K14:IY115Y130:X1,IX136,I 6X1,I14T1X136,I14T1:T1T12::SC(C):CJDX(C),KDY(C): @J1250:: JJ1500:: TEF0:FF176:II299:M10:M20:OF0:23:20:"20" ^I2124:)6I33)I8170/ I8ĺA$;:I$I$A$:170A TFİ110:110b (I$)2ĖHP:" ";:HP:160 BS$" "BS$BS$;:I$(I$,(I$)1):170 A((I$,1))64:B((I$,1)) A1A4B1B6(I$)2EF1: CL(A,B):M1AM2BC1EF1:$ "I15:II15TTı, x75,2:JTT9:TT5FF112S 1892,TT10JFF:TT20Ĺ1891,FFJ] TTıj OF1:: I(0):HP(0)1:I$"" :" ";::BS$; I(KB)128:TFİ110 I0180 KR,0:I50,2:A$(I):I13(I$)ĺ" ";:I(0): ((I$ **********************; * CONCENTRATION *X * BY STEVEN WONG *u( * COPYRIGHT (C) 1984 *2 * BY MICROSPARC, INC *< * CONCORD, MA 01742 *F **********************PZ24576:760d nIIII1:TT(II15)     [:"THE 'HELP' MESSAGE IS GIVEN NEXT."::"** COPYRIGHT 1984 BY MICROSPARC, INC. **":aON A WINDY DAY. THE MAIN SCREEN"O"DISPLAY IS A THREE-VIEW DRAWING OF THE"|"FIELD. A 'HELP' MESSAGE IS AVAILABLE""TO DESCRIBE OPTIONS FROM THIS MAIN""DISPLAY. ADDITIONAL PROGRAM PARAMETERS""CAN BE CHANGED FROM A SPECIAL MENU."O LARGE -- RE-ENTER":ARL254ĺ"IMPROPER ENTRY -- RE-ENTER":t\"UNTRAPPABLE ERROR IN LINE";(218)(219)256zfpPROGM. DESC.z:(16):"CROSSWIND"::13)"BY CARL FIELDS":"CROSSWIND SIMULATES KICKING A FOOTBALL"!"OWED RANGE"I112+LL(I):UL(I):Q 0,1E37,0,1000,0,1000,00000,1000a0,100,0,53  0000,+150,0,0,0,180,-360,360 0000,+1000,-360,360 2160:1720*1590:172041070:300>ERROR TRAPPERHL(222):L69ĺ"ENTRY TOINIT. DOWNFIELD DISTANCE8INIT. CROSSFIELD DISTANCESINITIAL KICK VELOCITYoWIND VELOCITY SELECTORVERTICAL ANGLEAZIMUTHAL ANGLEWIND VEL.WIND ANGLEPX$(0)"TIME = ":PX$(14)"DISTANCE = " PX$(15)"ENTRY OUT OF ALL1,1.5.&RG(3)1.0:C10.01745:VL(0)50.0:FL1E0W$"RND":QT$(34)f:PL(9),LL(13),UL(13),PX$(15)DGA(3)10.72:T1.1:MV18NI112:PX$(I):XREL. GRAVITY (VERT.)bREL. AIR DENSITYlINTERACTION COEFFICIENTv MAX. WIND VEL.*:"PRESS ANY KEY TO CONTINUE";:QX$::INITIALIZED::O16385~SP(9),WV(5),XL(3),VL(4),RG(3),GA(3),C(17)I46:SP(I):50,27,0RD1.0:IX0.012:AV45.I017:C(I): 0,1,2,3,4,5,6,7,8,9,10,.5,53,120,110,159,26"V - CHANGE VERT. ANGLE":h"A - CHANGE AZIMUTHAL ANGLE"[r"P - GO TO PARAMETER TABLE"z|"N - NEW WIND CONDITIONS"" (SELECTION MODE FROM PARM. LIST)""R - REDRAWS FIELD""E - END""H - PRINTS THIS MESSAGE "PAUSE"15301450-W$"RND"W$"INP":1550:W$"RND"@YDEC. PT. PRINT SUBR"P$(((NN.005))"."((((NN100)100.5)),2),100):36,T(P$):P$,6HELP SUBR@:J12)"MAIN MENU OPTIONS:":T"K - KICK FOOTBALL"^     28,KL:LL2:::OL21:19:"TIME";:26:"PLAYER'S SCORES":20:"20";:26:VP1$;::34:"-";:36:"0100":26:P2$;:34:"-";`36:"0100";:8:7:"PRESS ANY KEY TO RESUME PLAY":48,173:6,3316:34,20:740::$I01:0,152I129,152I:150,152I279,152I::5.I1322:J,K:IJ,K::137,17,137,50,137,83,137,116,21,141,62,141,104,141,170,141,212,141,254,1418I14:J16:X1X(J)14:Y1Y(I)10:L22:200,5BKY1Y111:X1,KX128,K:X1,KLX1LEVEL (1-3)? ";:160:LE(I$):LE1LE31010p330:81,32:77,128:81,128:102,64:121,128:91,64:320TF1:::1:0:6I313533:J01:0,IJ129,IJ:150,IJ279,IJ::I012642:J02:IJ,3IJ,153:IJ150,3IJ150,153: THE TWO TASKS MUST BE COMPLETED."{:"ENTER YOUR NAMES AND WE'LL BEGIN...":19:1:"PLAYER 1'S NAME? ";:160:P1$I$21:1:868:"PLAYER 2'S NAME? ";:160:P2$I$:P1$P2$99023:1::"1=EASY 2=MODERATE 3=HARD":-24:1:868:"WHAT GAME OF CONCENTRATION WITH AN ADDED TWIST.":"THE OBJECT OF THE GAME IS STILL TO MATCHSHAPES, BUT A MATH PROBLEM MUST ALSO BE""CORRECTLY ANSWERED TO WIN POINTS."::"TO ADD TO THE EXCITEMENT, THERE IS A"$"TWENTY SECOND TIME LIMIT IN WHICHI:"<-";:320::4:4):34:4)_I13:100I,2:7I:"<-";:(KB)128ĹKR,0:54915:93033I:"->";:320:J(1)::880::11)"MATH CONCENTRATION"12)"COPYRIGHT (C) 1984 BY MICROSPARC, INC ":,5:"MATH CONCENTRATION IS THE TIMELESS:J((1)121)T\K((1)121):TA(I):A(I)A(J):A(J)T:TB(I):B(I)B(K):B(K)T:fJ13:K14:IK(J1)4:L(K,J)A(I):L(K,J3)B(I):::KR,0p22:4:"-> PRESS ANY KEY TO BEGIN <-";zI13:100I,2:3I:"->";:(KB)128930!373)10:I(LE)((1)VA(LE)VB(LE))Q4I13:X(I)22(I1)42:X(I3)150X(I):>I14:Y(I)19(I1)33::I112:SC(I),DX(I),DY(I):H3,8,6,3,9,9,3,9,3,7,7,8,3,9,2,7,9,4,3,7,8,3,14,4,3,9,9,7,8,6,3,10,9,7,10,2RI112:A(I)I:B(I)I::I112,1931? 7:12:"MATH CONCENTRATION"::14:"BY STEVEN WONG"|1013,76:1014,0:1015,64:230,32:232,48:233,64:62450 I12:A(I),B(I),DX(I),DY(I),SC(I):KB16384:KR16368:S1100:S2100:BS$(8)#*VA(1)10:VB(1)2:VA(2)25:VB(2)5:VA(3)50:VB(L(M3,M4)İ500:AM1:BM2:410:AM3:BM4:410:370@470:580x340:PN1::P1$;::670:NUNU1:(NU12)1740,530340:PN2:P2$;:670:NUNU1:(NU12)1750,530::(16384)32ĺ(4)"BLOAD M.SHAPES"48,170:9,308:9,3020:9,198:9:L(M1,M2)1:L(M3,M4)1:CS0:7"'S TURN":CSİ440gCS1:22:1:"MOVE 1: ";:160:OFİ510:370260:M1A:M2B:EFİ520:37023:1:"MOVE 2: ";:160:OFİ510:AM1:BM2:410:370260:M3A:M4B:EFİ520:AM1:BM2:410:3702L(M1,M2)SUBTRACTION:":N2N1IN2:N2N1:N1I;bN3N1N2:I45:640lN1(N12):N2(N22):I3ĺ"MULTIPLICATION:":N3N2N1:I42:640v"DIVISION":N3N1:N1N1N2:I47:640N1(I)N2"=";:160:OFİ510:360(I$)N3Ģ23:HP::N3::490:360480S1S2Ğ:P1$;::" DEFEATS":P2$", "S1" TO "S2:560a&P2$" DEFEATS"::P1$;::", "S2" TO "S1024:"PLAY AGAIN? ";:A$:A$:A$"N"Ĭ:::D350:N1I(LE):N2I(LE):I((1)4)1:I590,600,620,620N"ADDITION:":N3N1N2:I43:640$X"NO MATCHES!";:I15:100,20I:150,20I::330:TS10:38024:1:"TIME'S UP";:I20010010:I,10:50,5:330:TS15:38024:1:"ILLEGAL MOVE!";:I15:17010I,60I::330:TS20:38021:1:350:S1S2ğ:" TIE GAME "::560450,100:320:16304,0:100,40:b24:1:"A MATCH!";:I1023010:I,3:I20,3:I,10::33024:1:"CORRECT!";:I10150:I,2::330:TS25TT5:38024:1:"WRONG ANSWER!";:I1015010:I,10:1,15::330:TS5:380=24:1:"SORRY, 267ēOX,OYFX,FY:OXFX:OYFY:1940,460AFYP2:DS3:1970FYP1:DS4:YFY:FXLXSI(150FY)P5:FX1FX267ēOX,OYFX,FY:OXFX:OYFY:2020ENEN500:900:0:LX,150OX,OY:250(16287)127420(1).96700 ADJ1:KEY(49152):Z,158:SH7:AZ:B153:220:0:839,10:845,40:832:XR,YRZ,158:220:3:DADADD:920lDA40000ENEN50250:A$"":FR(0):(16287)128470#6:839,0:845,60:832:FXLX:FY150:SFSF1:OXFX:OYFY:FYP3:DS1:YFY:FXLXSI(150FY)P5:FX1FX5:DD600:380) 6XR135:YR55:Z135:380C @XR60:YR70:Z64:380_ JXR220:YR70:Z216:380y TXR28:YR55:Z32:380 ^XR93:YR55:Z97:380 hXR178:YR55:Z174:380 rXR248:YR55:Z244 |(16287)127420U806,25:801,20:5:800:XR,YRA1,B9A1,B1:p OPPD:PD(0):OPPDĒ0:140,158LX,150:LX127(PD25525):3:140,158LX,150:SILX140v  X((1)10):RP(X)1400 DD400:X290,300,310,320,330,340,350,360,370 "XR135:YR62:Z135:DD800:380 ,XR135:YR70:Z13B20SC:< A3,B2A3,B2A3,B6A,BA3,B6A3,B2:_ A,B7A20,B7A10,BA,B7: WB5:ZZA5:ZZ,WZZ8,W6ZZ5,WZZ9,W5ZZ,W9ZZ8,W: A,B2A14SC,B2:A3SC,B1A11SC,B1:A5SC,BA9SC,B: A1,B1A9,B1A9,B9CZ,W30SCZ,WZ2SC,W2SCZ10SC,W2SCZ12SC,W:Z2SC,W2SCZ2SC,W28SCZ,W30SC Z2SC,B13SCZ10SC,B13SCZ10SC,B15SCZ2SC,B15SCZ2SC,B13SC: A5SC,B20SCA,BA5SC,B20SCA,B15SCA5SC,B20SC:A,B12SCA,****** de n24576:X116:P,D::X800813:Y:X,Y::X832848:Y:X,Y::850,0:851,0:2970o x2990~ DS1SC3 DS3SC2 SH160,190,160,160,200,210,220,230,190,240,190: ZASC(SC1):WB8SC^ Z,WZ12SC,WZ12SC,W30S4 **********************; * *X * OBELISK *u( * BY DARYL L. SCOTT *2 * COPYRIGHT (C) 1984 *< * BY MICROSPARC, INC *F * CONCORD, MA 01742 *P * * Z ****************                   !! I .-J--.-SI- -޻M?7M1s-MII?ߛIM mmIM۟i - - M;;3MM)m-Mi1??niIIIIMJiIIIIMSIiII MIII-MII???SI M JI M M13--n -3M?7M13-)3Mns--3M13M13-;W-)sI M.-5--IJ --MM;??MI)mI W)M--MI ;?ߛI m mI ;SImI)MI;;ߛI m mI ??J-MI -MIiIIISI MIISI MISI MSI MSI IiIII:???????N)----mIIiIiIM MIIiInIM)m M ??NMI--MI?SII -MI MI nMIMI Ii MJIIMIۛII MIIII -MIIII??JI -M MII)m1?;J)mIIMI)mI ??---M ---mIII?nI MMIiIIIM M M MIII;?;?IIIIII?ۛII)mIIJI)-mIISIIiII ?????JM--W--M -???W--M -???)-------?????????. 57m 5wMi Mi IIII M-MI -m????W)m ---m??????S ----m--;????S)m --m-??;-MII)-MIiiMMߟiM MMi - M?I M M ߟiiiMMJIIMI?ni- mii?. MMmiI3MMMmII3MIImIISII mIISII mIISII mIII mIIIۛIIImIIJIII mI;;?-mIII -7--MII m????????IMIIJiIIi)MIsmiIIIIIIJiI ??)-mI ;?)-mIi???@+  Ȅ,0 `.0{%,-jzI MI MJI MIߛI MM MJI MIJ MiM??jI)-mI??J MiMSI MiI MIIiIIIIII1SIIIIMMۛIIMIii5?MMMI- M6:X,YX3,Y::X85DA99999158:85,YX,Y:243,Y:ME11390fZ6:X1253:X2260:Y165:EME:ME4E4dX1E:X1,YX2,Y:YY7:nME5Ē3:1410xX1268:X2275:Y165:EME4:X1E:X1,YX2,Y:YY7::3:F51ıS11İ1520:1210:270 15307620,166: 20,17630,166:5 20,17630,176:J20,17630,186:_20,17620,186:t(20,17610,186:220,17610,176:<20,17610,166:FY171:1:45,Y65,16755,17575,Y:X84EN99999159:85,YX,Y:243,171<PY181:5:X45750,186:10,186:10,176:10,166WXPXR1:YPYR2:X0Y0SH10:A9:B165:240:1260X0Y0SH10:A9:B175:240:1260X0Y0SH10:A18:B165:240:1260SH10:A18:B175:240DI1270,1280,1290,1300,1310,1320,1330,1340: 20,1249,191:264,161264,191:250,168278,168:250,176278,176:250,184278,1843:20,166:30,166:30,176:30,186:20,186:10,186:10,176:10,166:13500:SH10:A9:B165:240:B175:240:A18:B165:240:B175:240:3:20,166:30,166:30,176:30,186:279,1591,1591,0h2:HX1:HX,50:HX0:X110:HY((1)10):HXHX28:HX1,50HY::1:HX1,50HY:3FR(0):3:1,50:X2828028:B22((1)22):SH5:AX20(((1)10)):200::3K3:1,161279,161279,1911,1911,161:40,16140,191:249,161,10Y:806,25Y:800:Y:R(1)4:RLTR:V(V20):VV(VV20):VV2VV2X`VV19VV19jP$(V)(P$(V),VV1)"3"(P$(V),20VV):R1VV:R2V:PX(VV8R):PY(V8R):PX20PXPX20tPY20PYPY20~OL1:1430:16302,0:PD1:1:1,0279,0240:B95:130:0:50,160225,160-.3:SC1::8:2970BP$(20):DI1:A$" ":LX140:EN99999:ME8:P162:P278:P386:P410:P58:P66:P733:ADJ1LVV((78)1)256:Y120:X120:V(1)VV:V.50VVV1:TRTR1GVV$((V)):P$(X)P$(X)V$:X:8010:%LC2DS1SC3:RX111:RY148JLC2DS4SC1:RXXL4:RYYL25oLC2DS3SC2:RXXL8:RYYL70LC2Ē5:SH8:ARX:BRY:130LC3DS4SH9:AXL:BYL:SC1:130LC3DS3SH2:SC2:AXL15:BYL:130$LC3DS1SC3:SH2:A1ERGY ":EOG1:EN0:2670IDA99999Ē5:85,18185DA99999158,181:3:xT1$"CRITICAL DAMAGE":EOG1:DA99999:2670X1X20XX20XX20Y1Y20YY20YY20LC((P$(Y),X,1)):LC1RP(P)1:SC1:3:SH1:AXL:BYL:13FY30:FXLXSI(150FY)P5:FX2FX28RFX266FX266]\OX,OYFX,FY:FFFF1:FF1720f0:LY150:LX,LYFX,FY:FY30FXX15FXX3890pF10:720zDS4:S1:920:900:2100EN0Ē0:242,17185EN99999157,171:6:T1$" OUT OF EN,150:LX127(PD25525):3:140,158LX,150:SILX140L(16287)128720 ENEN450:F11:6:839,0:845,60:832:OXLX:OY150:SFSF1:LX131LX149FY78:820*FY624FXLXSI(150FY)P5:FF1860>LX132LX147FF1:870%HOYFY:OXFX:X12:801,0:806,10:800:801,200:806,15:800::TRTR1XR1:YR2:F21:C$"1":2570:F20:R1((1)16)2:R2((1)16)2:P$(R2)(P$(R2),R11)"3"(P$(R2),20R1):MV0:PD0:F10:S10:1160FF1ĒP6:8305 OPPD:PD(0):OPPDĒ0:140,158LX(1)10):R(1):FF1:R.5II1:X20AY28:3:801,60:806,2`1:XXI:AX:BY:210:800(1).30Ē3:XP4,YP4XP4,158:5:AX9:B152:220:800:0:XP4,YP4XP4,158:220:3:DADA600800:0:AX:BY:210:X19X242770:X(49168):(A$):1210A$"Q"270::(12):(4)::"DO YOU REALLY WANT TO QUIT ?";:X13:801,0:806,10:800:801,200:806,15:800::AN$:AN$"Y"Ĺ16302,0:16299,0:16304,0:270EOG1:T1$"*QUIT MISSION*":ADJ.8:2670&X241:I8(128:FYP1:2020&:FX59:FYP2:19707DFX221:1970MNFX32:FYP1:2020]XFX92:2020nbFX176:2020lFX248:2020v:F2(49168):F20:1160A$(27)T1$" STATUS REPORT ":801,0:806,8:800:2670:800 (A$)0(A$)9Ē0:1260:DIЭKEY128270!A$:A$" "14308A$"M"ME0640MEME1:ENEN1600:839,0:845,50:Z12:832:0,0:62454:2:832:0,0:62454:5::832F21:Z19:Z540,550,560,570,580,590,600,610,620FX131:FYP3:1940&FX131:FYP2:19700FX0,2410/L XPX2:YPY3YI:7/V XPX1XI:YPY3YI:N/` XPX3XI:YPY2:h/j XPX3XI:YPY1YI:/t DI2430,2440,2450,2460,2430,2440,2450,2460/~ XPX1:YPY3YI:/ XPX2XI:YPY3YI:/ XPX3XI:YPY1:/ XPX3XI:YPY2YI:*0 PX1XI:YPY2YI:*.XPX2XI:YPY1:D. XPX2XI:YPY1YI:t. DI2330,2340,2350,2360,2330,2340,2350,2360. XPX1:YPY2YI:.$ XPX2XI:YPY1YI:.. XPX2XI:YPY1:.8 XPX1XI:YPY2YI:/B DI2380,2390,2400,2410,2380,2390,2402370:2570(-YL50XL85İ2420:2570F-YL50XL170İ2470:2570d-YL50XL240İ2520:2570~-XPX1XI:YPY1YI:-XPX2XI:YPY2YI:-XPX3XI:YPY3YI:-DI2280,2290,2300,2310,2280,2290,2300,2310-XPX1:YPY2YI:.X:130:0:130:DS1SC3A,R2150:5:P2SH8:ARX:BRY:130:3R,\SC1:3:270w,fC$"2":YL50XL100İ2240:2570,pYL60XL115İ2250:2570,zYL50XL127İ2260:2570,YL60XL40İ2270:2570,YL60XL200İ2320:2570 -YL50XL20240:YL50:RX236:RY75:RP(9)0:20903+F21630<+ 460Y+*RLRL1:F21İ2150:630+40:LX,150OX,OY:S16DS:SCS:XXX5:YYY5:839,40:845,8:5:832:SH7:AXX:BYY:220:0:839,30:832:220::SC1:3+>F11F10:270,H5:SHDS:AXL:BYL0:YL50:RX16:RY75:RP(6)0:2090_*FX92RP(7)1X89:XL85:YL50:RX81:RY75:RP(7)0:2090*FX128RP(3)1X131:XL127:YL50:RX123:RY75:RP(3)0:2090*FX176RP(8)1X174:XL170:YL50:RX166:RY75:RP(8)0:2090%+ FX248RP(9)1X244:XL?)FX59RP(4)1X56:XL40:YL60:RX48:RY130:RP(4)0:2090)FX131RP(2)1X131:XL115:YL60:RX123:RY130:RP(2)0:2090)FX221RP(5)1X216:XL200:YL60:RX208:RY130:RP(5)0:2090)FYP1F20450)630!*FX32RP(6)1X24:XL2XL20:P6:9908(lYPY2YI:940:LC0XL85:P7:990l(vXPX2XI:YPY3YI:940:LC0XL170:P8:990(XPX1XI:YPY3YI:940:LC0XL240:P9:990((FX131RP(1)1X131:XL100:YL50:RX111:RY148:RP(1)0:2090(F21630)4400('0YPY1:940:LC0XL170:P8:990Y':XPXXI3:YPY2:940:LC0XL240:P9:990_'D'NYL60:DS3:XPX2XI:YPY1YI:940:LC0XL40:P4:990'XXPX1XI:YPY2YI:940:LC0XL200:P5:990(bYL50:DS4:XPX3XI:YPY1YI:940:LC0L170:P8:9908&YPY1YI:940:LC0XL240:P9:990>&y&YL60:DS3:XPXXI2:YPY1:940:LC0XL40:P4:990&YPY1:940:LC0XL200:P5:990&YL50:DS4:XPXXI3:YPY2:940:LC0XL20:P6:990'&YPY1:940:LC0XL85:P7:99?%YL60:DS3:XPX1XI:YPY2YI:940:LC0XL40:P4:990s%XPX2XI:YPY1YI:940:LC0XL200:P5:990%YL50:DS4:XPX1XI:YPY3YI:940:LC0XL20:P6:990%XPX2XI:940:LC0XL85:P7:990&XPX3XI:YPY2YI:940:LC0X:YPY2YI:940:LC0XL40:P4:990L$XPX1:940:LC0XL200:P5:990$YL50:DS4:XPX2:YPY3YI:940:LC0XL20:P6:990$XPX1:940:LC0XL85:P7:990$XPX1:940:LC0XL170:P8:990$XPX2:940:LC0XL240:P9:990%40:LC0XL100:YL50:DS1:P1:990:LC21650{#^XPX2XI:YPY2YI:940:LC0XL115:YL60:DS3:P2:990:LC21650#hXPX3XI:YPY3YI:940:LC0XL127:YL50:DS4:P3:990#rDI1660,1730,1800,1870,1660,1730,1800,1870%$|YL60:DS3:XPX1USTAINS SIGNIFICANT DAMAGE >>""6A$"M"LC1DPDIĝ:X13:801,0:806,10:800:801,200:806,15:800::X11500::16302,0:16299,0:16304,0"@LC3DPDI1620"JLC3T1$" SAFE IN SHIP! ":EOG1:ADJ1.2:29400#TDPDI:XPX1XI:YPY1YI:9!A$"M"PXPXXI:PYPYYI@!X19:RP(X)0::PX1PX20P!PX20PX1`!PY1PY20p!PY20PY1!"S10S11:1620",A$"M"XPX:YPY:980:LC1DPDIDADA10000:::10::"ROVER HIT OBELISK--- IT SELF DESTRUCTS"::::"<< ROVER S:1210:270Z 801,30:806,25:800:ENEN300:DI1440,1450,1460,1470,1480,1490,1500,1510n XI0:YI1:1160 XI1:YI1:1160 XI1:YI0:1160 XI1:YI1:1160 XI0:YI1:1160 XI1:YI1:1160 XI1:YI0:1160!XI1:YI1:116012)"BY MICROSPARC, INC."`: 1:1:X139:BL$BL$" ":::BL$:X223:" ";:39:" "::BL$;:: 20:NXİ2930:(8)::" <>";::A$::20:(8):"USE FOR INSTRUCTIONS";*; 12:2:(BL$,35);:15::"<< BATTLE >>";::13:2:(222):EL(218)(219)256:OL1116019 1080y9 :::BL$"":5:(14):"O B E L I S K":::12)"BY DARYL L. SCOTT"9 10:3050::4)"DESTROY THE ALIEN OBELISKS, FIND":4)"YOUR BASE SHIP, AND BLAST OFF!!!"::3050: ::14)"COPYRIGHT 1984":36R$"STAR ADMIRAL":08h R$"STAR COMMANDER":Z8r :X116:P,D:806,P:801,D:800::8| F51:1160:X132:S4:I14:Y115:F1.2:806,10:801,60:38 800:SSF:SY26708 SH9:AX:BYS:3:800:SC1:130:800:0:130:800:806,10SI:2950'9 ERIT ANY KEY TO CONTINUE";:AN$:16302,0:16299,0:16304,0:[7" R16R$"JR CABIN BOY":{7, R31R$"ROVER MECHANIC":76 R51R$"ROVER CREWMAN":7@ R76R$"JR STAR PILOT":7J R96R$"SR STAR PILOT":7T R116R$"STAR CAPTAIN":8^ R1TTER Q - QUIT MISSION":9)" KEY - MISSION STATUS"F6 EOG2840x6 2930:(24):(9):"PLAY ANOTHER GAME ?";6 AN$:AN$"Y"AN$"N"28106 AN$"Y"OL0:NX1:29906 (23):1:958:9::"<< THANKS FOR PLAYING >>";::=7 (24):9)"HR$;:(22):F81ğ5 "HIGHEST TODAY= ";HS:::(9)::"*** COMMAND SUMMARY ***":::7)"NUMBERS 1-8 - SET DIRECTION":9)"SPACE BAR - MOVE FORWARD":76 8)"PADDLE # 0 - AIM PHASER":8)"BUTTON # 0 - FIRE PHASER"::10)"LETTER M - MEGABLAST":10)"LESION STATUS ***":::"CURR DIRECTION= ";DI;" % ENERGY LEFT= ";EL:"#OBELISKS LEFT= ";RL;:22)"%OBELISKS HIT= ";RH4 "# SHOTS FIRED = ";SF;:22)"% DAMAGE = ";DM:"# MEGABLASTS = ";ME;:22)"TOTAL RATING = ";R:2850: COMPUTE RANK5 "RANK:";HS(850)(851)256E3x R(ADJRH((200EL)100)DM):ADJ.8RR20Y3 ADJ1.2RR20f3 R0R03 RHSEOG0F80:27303 HSR:851,HS256:850,HS(851)256:F813 ::(13)::T1$:::EOG1Ĺ839,0:845,50:X15:832:v4 (9)::"*** MIS990:LC2ıU2P XPX2XI:YPY2YI:P2:940:LC0XL115:YL60:DS3:990:LC2ı2Z XPX3XI:YPY3YI:940:LC0XL127:YL50:DS4:P3:9902d P2:3n EL(EN99999100.5):RH((TRRL.000001)(TR.001)100.5):DM((DA.000001)99999100.5):2:1 XPX1XI:YPY3YI:C1 940:X2P$(Y)C$(P$(Y),19):d1 X19P$(Y)(P$(Y),19)C$:1 P$(Y)(P$(Y),X1)C$(P$(Y),20X):F21ı1( FYP3263012 FYP2FX13126401< P3: 2F XPX1XI:YPY1YI:940:LC0XL100:YL50:DS1:P1:DI2480,2490,2500,2510,2480,2490,2500,2510A0 XPX1:YPY3YI:[0 XPX3XI:YPY2YI:r0 XPX3XI:YPY1:0 XPX2XI:YPY3YI:0 DI2530,2540,2550,2560,2530,2540,2550,25600 XPX2:YPY3YI:0 XPX3XI:YPY1YI:1 XPX3XI:YPYiȱ('iL֏Ve(i'H)h)JfF( i)i(i(͠'i(i'L֏Ve'IL֏Ve'IL֏ ,R,U L֏,S,TL֏ :L֏Ve NVeVe٩iVe NL֏'`Ve'iȑiL֏Ve(iH)h &J i)iȥi(ՠ'i(iL֏Ve;ɬ765432ɀ1 :L֏,T 9 X`LNLΐLXLLLLLLΒLLLIiVe NVeVe NVeVe٩iVe NL֏iVe NVei,W,T,S,P, X$ [֔ $ [ $ [  $ [ $ [2 $ [B $ [ $ [V !$ [b ,>DCɕBɈAɾ@ɮ<ɼ  !""5,56,32,168,252,232,224,21,208,242,96< 18,250,24,250,23,75,22,72,19,75,28,250,24,250,23,75,22,75,19,75,28,250,24,250,23,100,22,100,23,100,19,250(BL$,35);:15::"<< ALERT! >>";::1080E; 4:X132:"-";:::%< 18,250,24,250,23,75,22,72,19,75,28,250,24,250,23,75,22,75,19,75,28,250,24,250,23,100,22,100,23,100,19,250:162,48,141,48,192,169,16,32,168,252,202,208,245,96,162,1,141,48,192,138,10I,SL֏,RL֏VeI Ve'QI L֏i L֏((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPŠŠҠ̯Ġ Š - ҠРPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?̠Ӻ<--><>