' +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 ~(`F  d ֠z# u`z #?     Ӡ ԠӠӠϠ ננϠנϠӠנӠ٠Πîʠ R%I:A1%24I:MOVE- R%3.4I:CIRCLE:; :I140b "XC%140:YC%95:R%I:A1%24I:MOVEy ,R%3.4I:CIRCLE: 6140 @: J LOOPS TA1%180:A2%0:XC%0:YC%0:R%0 ^A2100(1)160 hA2%A2:A1%(180A2)2:XC%150:YC%26 r:3 :$ I1NN::14:I;" - ";MN$(I)* a 20:14:"CHOOSE 1-";NN;:A$:A(A$):A1ANN170~ :A220,340,450,550,920 :23: : SPIRALS A1%0:A2%45:XC%140:YC%95:R%4 3: I180:TURN:R%R%2: :XC%140:I12538(AMP9)10FL$"SPEEDDRAW":(4);"BRUN";FL$< Z216,0B d:M n MENUg xNN:I1NN:MN$(I): 6,SPIRALS,LOOPS,POLYGONS,CLOCK,"PIE CHART",QUIT ::(21);:14:"SPEEDDRAW DEMO"::4:"COPYRIGHT(C) 1988 MICROSPARC, INC.":I140:"=";::5 ** SPEEDDRAW.DEMO3* BY JIM SAVAGEL* COPYRIGHT(C) 1988d* MICROSPARC, INC.}* CONCORD, MA 01742*<A1%0:A2%0:XC%0:YC%0:R%0: PUT VARIABLES WHERE SPEEDDRAW LOOKS FOR THEMF10501 PAMP256(1015):(AMP7)     RDVMBCASLTO[lu*ZZ` !"$&')*,-/023578:;=>@ACDFGIJLMOPRSUVXY[\^_abcefhiklmoprsuvwyz{}~8 N8H%h%`e)``0 A` B` B`) 88L CsC .e ) m`8` LC LC`i`iZ60LaAH PAh Bii Bii` \B B BLB \B A B B8H Bh00`8LWLB vA iqii iqii SC ALvA8i iii ii vA MB A MBLvA @C SC`) i@ :;:A`AALL t8tp CA8AA;=:D?L, & iD0LHsDH湱: @C @C @C @C LC SCLSC AALPA B   >"; <16368,0:A$:? F22:"CATALOG":998:(4)"CATALOG"E P AG 5/26/08 255:::F"NIBBLE PROGRAMS - VOL. 9, PART 2"n"================================"(6:"THIS DISK CONTAINS PROGRAMS FROM NIBBLE MAGAZINE, VOL. 9 (1988), ENTERED AND COLLECTED IN 2008." 219:"6-]XX`-M??? $$g]X?';.6M!$M6- $-] $@166.-] [(m@166- -% ?6](N> TO TRY AGAIN ";:A$::FL$"CLOCKNUM"1404L7022::"PRESS RETURN TO CONTINUE ";:16368,0:A$:140?:X DISK ERROR HANDLERo216,0:ER(222):$:10:"DISK ERROR".::ER6ĺ"FILE ";FL$;" MUST BE ON THIS DISK":(218)256(219)80Ā8ER8ĺ"CHECK DRIVE",B:"PRESS  FACEHXC%140:YC%95:R80791:R%R:CIRCLE:RA160:A1%6A\XC%140:YC%95fR175:A5(A5)R171pR%R1:MOVE:R%79R1:RA28640:16368,0:140! ALPHAKR%64:A112:A1%30A:XC%140:YC%95X0:SPOTi28,127:A:R%34:A1%0:0:SPOT28,127:13: HANDSXC%140:YC%95:A1%(SEC(PG)3600(HR(PG)))6:R%70:RAY: A1%HR(PG)30:R%40:800:)SEC(PG)2:3:770DFLĒ0:780:HR(PG)SEC(PG)3600:3:780:670k0:790:MIN(PG)SEC(PG)60:3:790XC%140:YC%95:R13:R%R:CIRCLE:710:PG(PG1)1:16298PG,0:230,PG32:A(16336)(16336):PG1FLFL0I115::(16384)11)60MIN3600HR:SEC(2)SEC(1)1:HR(1)SEC(1)3600:HR(2)SEC(2)3600jN:3:0:1:232,0:233,96:1050XFL$"SPEEDDRAW DEMO SHAPES"::(4);"BLOAD";FL$b216,0:840::840l3:780:230,32:780v TIME LOOPXC%140:YC%95:0:770:SEC(PG:A1%A:VECTR A,R,N! 140' :3  CLOCK] &A1%0:A2%0:XC%140:YC%95:R%80:PG1 0:4:"ENTER CORRECT TIME---"::" HOUR (1-12): ";A$:HR(A$):HR1HR12560 :8:" MINUTE (0-59): ";A$:MIN(A$):(MIN1A$"0")MIN59570EDSEC(|I124! R%130:A2%50:TURN8 R%16:A2%A2:TURN\ :(16384)127Ĺ16368,0:140e 340k :z  POLYGONS A1%0:A2%0:XC%40:YC%50:R%0:3 N38: NP360N:D0 R35755:R%R DD1:XC%110D:YC%30D A90450NP01:K07:LACCA,BYTE:CACA1::BYTEBYTE128::BYTEBYTE256::]< 193,218,136,149,160FI140:K1:J17:L,K:LL1:KK2::PL16896:I039:J17:L,I:LL1:::3Z:800:11:1:"DEFINE CONTROLS, FOR THE SAME:":"UP :":"D1hLAC24576:CA0:H02:BYTE31:I03:BYTEBYTE1:J01:K07:LACCA,BYTE(4K):CACA1:K,J,I,H LACCA,255:CACA1:CA2561290BYTE0:1330:BYTE40:1330:BYTE80:1330LACCA,255:CACA1:CA5121310(L16640:1350C2I03:J,0::/I0SM:25332I,0:25312I,(1)255N25322,(1)255:25362I,1(25312I)40Ĺ768,(25312I):769,0:770,7:32768:769,136:770,8:32768:SM9āISM19:25362I,0::"PLEASE WAIT";::"...";RM%ıRM%)`TM((1)20):25252I,TM:25272I,TM9jMX391150\t768,MX:769,MY:770,SH:32768|~I10Ĺ25352I,0:25652I,0I(LE)CX((1)255):25292I,CX:25352I,1:CX39Ĺ768,CX:769,134:770,6:32768SM1āI09:25362I,0:25332IIMM1150#MX((1)255):MY15BXV1:((1)21)2XV255n$YV((1)51):((1)21)2YV256YV.SH((1)LX)2825090I,MX:25110I,MYB25132I,XV:25152I,YVL25172I,SH:25192I,1VTI((1)50):25212I,TI:25232I,TIJOYSTICK?";:H115H:A$:A$" "HH16:H27H11HA$(13)910YH11A$"K"jH27A$"J"}787,(A$)128H27ı1370 ** CREATE MONSTERSI01925192I,0:25462I,025683I,0:25743I,025744I,0 #4H:A$:A$" "HH2:H31H206>A$(13)820HHSP(H20)21xR16:1:868:"SOUND: ( ) ON ( ) OFF";:H9\H:A$:A$" "HH8:H17H9fA$(13)860pH9Ĺ783,1zH17Ĺ783,016:1:868:"CONTROL: ( ) KEYBOARD OR ( ) STATS **G21:1:"SHIPS :";:20:"SCORE:":"CITIES:";:20:"LEVEL:"q21:8:SP10);SP" ":26:LV10);LVw  ** INST. LINE ** :17:"SELECT WITH SPACEBAR, THEN PRESS RETURN "::*:800:16:"SELECT SKILL LEVEL:1.2.3.4.5.6";:H24 ** DRAW MNTS. **6HC((1)61):HC0HC4690EHC:0,145oI52745:MY((1)10145):I,MY:279,145:0,155279,155: ** STARS **3:I049:SX((1)255):SY((1)140):SX,SY:25542I,SX:25592I,SY:: ** PRINT TRUCTION COMPLETED!";*DLXLV:LV4LX43N784<X740Eb690Nl990pv768,19:769,70:770,0:32768y470SPSP1:SP1Ģ23:1:868::"GAME OVER";::", THE MOON IS DOOMED!";A$:1600760:768,19:769,70:770,0:32768470RDED TO YOU!";::23 771,LV+ 34,22< RCODE1650N RCODE31530` RCODE41510i 760 &LE(779):LELE1:LE9LE9 0779,LE:LV(LV2)20LV4SMSM1:17:22(SM10)1:"THE ALIENS ARE BUILDING!";:SM9SM9:17:23:"CONS02,0  760 230,32* 771,1@ I02:780I,0:R 772,SP5049b SP3:779,1 24:1:868:23:1:868:34,0:GAME RCODE(778):RC2MMMM2:LVLV1:23:1:"5 YEARS LATER...";:LV(LV5)50SPSP1:24:1::"FREE SHIP AWA"3 6:"( ) PLAY ( ) SCORES ( ) CHANGE ( ) END"; @H2c J16:H:A$:A$" "HH11:H40H2v TA$(13)330 ^H13İ1760:260 hH24İ810:260 rH35ė:23: |:20 3100::"CONQUER AND YOU SHALL BE REWARDED!":I12000::163 990 740 GAME32912A 768,19:769,70:770,0:32768G P 800V  "7:13:": :":13:" CITY ":13:" CENTURIAN ":13:": :": ,:12:"BY JOHN ROMERO":12:"COPYRIGHT(C)1988":11:"BY MICROSPARC,INC.AD CCSHAPES":787,("K")128:RN%1:PF0: (NA$(1))160 PF1:D$"OPEN SCORES":D$"READ SCORES":I09:S(I):NA$(I):L(I)::D$"CLOSE":PF0 783,1 230,32:62450 SP3:LV1:SM1:MM0 LELV:LV10LE10 LXLV:LV4LX4 690 ** CITY.CENTURIAN4* BY JOHN ROMERON(* COPYRIGHT (C) 1988e2* MICROSPARC,INC.~<* CONCORD, MA 01742F*P:(21);:Z1770dI773777:KEY:I,KEY:n::1250xD$(4)' RN%PF1::D$"BLOADCC.OBJ":D$"BLO*dSNc0G+dbi&cbcb8&cbcNcbi:c&c Z*d ߄-d-dNc"&c:c Z-d&c}bc&c( Nc-d`:c ZL-d-dhb-d`-d.d.dNc.d0&cb:c8bNc:c&c Z-dhbvcbcT-dc-d` [b( Z-db Z-d*b b8*bbb( Z-db ZLb`b`dbbb(` | 0Q`1d` -d-db-d`b( w*b b8*bbbLb( w ߄LH hH8,0h`1dX7b( ߄TbHbbh ZLt@b0 8@b@b`@bIi@b`,b0,b`,b`1d` *b0 L 0'Hȑh` 0Hȱ'h`1d` -d-dc-d`b'b Z-d*b b8*bbb'Ϡb ZL1d` -d `1d`+d,dbb,d Z*b+d *b+dbm+bb b+bɌ b+bbb+dLZ-d-dhb-d`b(TbHbbh Z-d*b bibL b8bb},bbb}@bb b LɅb |b b|bޤb bb  , χ U   x  D  w `1d`Z,Ĺ+b8+b=9+b`+bi+b0#+b`*b8*b *b`*bi*b0*b`  *d,`ɛ,ɛ,`ɓ,``ɑH pȱ 0LB`ae`Q` `Lp`  (08NXbfx@@@@@@@@@@@@@@@@bFbL*d+d,d*b+b/d RdNcbc B g1dd,,S ? ܌ H  g       FILES...":"THE FILES SCORES, CC.OBJ AND CCSHAPES":"MUST BE ON THIS DISK":"ERROR ";(222):"IN LINE ";(218)256(219):D WITH YOUR ENTRY?";:A$:A$"Y"A$"N"1720FA$"N"ĢII3:1700:D$"DELETESCORES":D$"OPENSCORES":D$"WRITESCORES":I09:S(I):NA$(I):L(I)::D$"CLOSE"110:1550::"THE TOP 10. HIT RETURN:";A$::M:23:PF1ĺ"ERROR LOADING(NUM100000)(NUM10000)(NUM1000)(NUM100)(NUM10):NUM;S(II)NUM:L(II)LV:10:28);:28:LV10);LV;:26:"<";:9:">";10:"";NA$(II):II3:28:L(II)10);L(II);(NA$(II))161690.14:1:"YOU HAVE FOUGHT WELL. ARE YOU SATISFIEMNUM(((I1642)176)10(5I)):*J:3TII0S^I09:NUMS(I)III1:I9h:IIİ1550::"YOU HAVE NOT FOUGHT HARD ENOUGH...";:"";A$:110rIIII1|I8II1:S(I1)S(I):NA$(I1)NA$(I):L(I1)L(I):NA$(II)"":1550=II3:1"GAME OVER!";::"";A$ 1600}:"SCORE:";:10:"WHODUNNIT:";:26:"LEVEL:":"------";:10:"----------";:26:"-----"I09:S$(S(I)):(S$)61580"J05(S$):0;:,S(I);:10:NA$(I);:28:L(I)10);L(I):6"@NUM0:I05:NU(8)A$"<-"!A$(10)A$"DA"7A$(11)A$"UA"MA$(21)A$"->"XA$" "^d21:1:958:"BETTER LUCK NEXT TIME":"PRESS RETURN...";A$11023:1:"THERE ARE NO MORE CITIES LEFT ON THE MOON. YOU CAN'T REFUEL:";::OWN :":"LEFT :":"RIGHT:":"FIRE :":17:1:40);:idI04:CHAR(773I):A$(CHAR):CHAR136A$"<-"nCHAR138A$"DA"xCHAR139A$"UA"CHAR149A$"->"12I:7:A$:I04:12I:7:A$:A$(13)1490 773I,(A$)128:A$\Z D$(4):D$"OPENSCORES":D$"WRITESCORES":I110:1000:"John Doe":5::D$"CLOSE": @ 0>|?~>~x?*UUA*yO*AUAkI ժ[mgsCaCaA">>"AIk>> ID  J D00 F&@00Ac6L1d 7 +b`+b`+b`,ad *dd`d8*bd`-d-dTd-d`|dɂ-d .d.dc.d0ܹhdbibc4dbHd' Z 8  B SL-d-dNc-d`-d.d.dTd.d0&chd:c8|dTdd|ddhdd Z L1d Z *b`L-d`Tdbhdb|d Z-d|dhd ( Z-d*b hd8*bhd|di|dɆdTdhdddL|dhd ( ZL-d-dd-d` d ȋ-dސd ȋ dd  ȋL d ȋސdL ȋL-dddHdh' Z-dd ߄-d`-d1d`*b``Rd`Rd` `L퉠Sd`Sd`L `SdfLǡĠӠ٠Ԯ 0' ߄8 ߄``-d-dTdQd+hb&b(-d .d.dcbb .d LLj1d`*b Hd8*bHd`-d>d  ߄ ߄>dHHdh' Z-d` `   ` LL$%L" `   Li i  i Lg `hb ` `Rd ߄ڠLԧӠԠŠԡ 8*bccABQ-d` -d-dc-d`-d.d.dhb.d0bb bibbɂݮ-dc4d 8  B S-dbHd' Z.dhbvcbcTbHbch( ZL$ -d-d4d-d` >d 4d  >d>d  LLj >d4d`-d-dhb-d`bb bibb8bة1d*b+b+dbb2d3d Z/d`1d` -d-db-d`bb bib w-dbL2 cbb`bɈhbSdRdL` d ߄L߄1-d-dc 0cABQ-d*b cbHbch Z( ߄ L-d-dvc-d` c g-dvc g cc  gL# c gvcL# gL#-dccHch' Z-dc ߄-d`-d1d`*b`c8*bc`/d` 0d /d 0d0d L↩ 0d /d` ↩ `0d ߄2d3d0dLZ1d卵卵卵卵卵卵卵卵卵卵卵   ** DRAW MNTS. **6HC((1)61):HC0HC4690EHC:0,145oI52745:MY((1)10145):I,MY:279,145:0,155279,155: ** STARS **3:I049:SX((1)255):SY((1)140):SX,SY:25542I,SX:25592I,SY:: ** PRINT TRUCTION COMPLETED!";*DLXLV:LV4LX43N784<X740Eb690Nl990pv768,19:769,70:770,0:32768y470SPSP1:SP1Ģ23:1:868::"GAME OVER";::", THE MOON IS DOOMED!";A$:1600760:768,19:769,70:770,0:32768470RDED TO YOU!";::23 771,LV+ 34,22< RCODE1650N RCODE31530` RCODE41510i 760 &LE(779):LELE1:LE9LE9 0779,LE:LV(LV2)20LV4SMSM1:17:22(SM10)1:"THE ALIENS ARE BUILDING!";:SM9SM9:17:23:"CONS02,0  760 230,32* 771,1@ I02:780I,0:R 772,SP5049b SP3:779,1 24:1:868:23:1:868:34,0:GAME RCODE(778):RC2MMMM2:LVLV1:23:1:"5 YEARS LATER...";:LV(LV5)50SPSP1:24:1::"FREE SHIP AWA"3 6:"( ) PLAY ( ) SCORES ( ) CHANGE ( ) END"; @H2c J16:H:A$:A$" "HH11:H40H2v TA$(13)330 ^H13İ1760:260 hH24İ810:260 rH35ė:23: |:20 3100::"CONQUER AND YOU SHALL BE REWARDED!":I12000::163 990 740 GAME32912A 768,19:769,70:770,0:32768G P 800V  "7:13:": :":13:" CITY ":13:" CENTURIAN ":13:": :": ,:12:"BY JOHN ROMERO":12:"COPYRIGHT(C)1988":11:"BY MICROSPARC,INC.AD CCSHAPES":787,("K")128:RN%1:PF0: (NA$(1))160 PF1:D$"OPEN SCORES":D$"READ SCORES":I09:S(I):NA$(I):L(I)::D$"CLOSE":PF0 783,1 230,32:62450 SP3:LV1:SM1:MM0 LELV:LV10LE10 LXLV:LV4LX4 690 ** CITY.CENTURIAN4* BY JOHN ROMERON(* COPYRIGHT (C) 1988e2* MICROSPARC,INC.~<* CONCORD, MA 01742F*P:(21);:Z1770dI773777:KEY:I,KEY:n::1250xD$(4)' RN%PF1::D$"BLOADCC.OBJ":D$"BLO     NGED."; T "&DOTLINE - LIKE &RAY, BUT DRAWS A DOTTED LINE."Z  "&BARC - SAME AS &ARC, BUT DRAWS A DOTTED LINE. TO MAKE A CIRCLE, SET A2% EQUAL TO A1%."AS &TURN BUT TURNS LEFT INSTEAD OF RIGHT.": ~ "&MOVE - WORKS LIKE &VECTR BUT DOES NOT DRAW A LINE." 20 "&SPOT - PUTS ONE DOT AT A LOCATION R% AWAY FROM XC%,YC% AT AN ANGLE A1%. XC%,YC% REMAINS UNCHAE STARTING AT XC%,YC% WITH AN ANGLE OF A1% AND TURNING RIGHT AT AN ANGLE OF A2% WITH RADIUS" " R%. AFTERWARD, SETS XC%,YC% TO THE NEW ENDPOINT AND A1% TO THE NEW DIRECTION OF TRAVEL." 4 "<URN - SAME AP "&RAY - DRAWS A LINE FROM XC%,YC% AT AN ANGLE A1% WITH LENGTH R%."V "&VECTR - SAME AS &RAY, BUT SETS XC% AND YC% TO THE NEW END POINT OF THE LINE." l "&TURN - LIKE &VECTR, BUT DRAWS A CURVED LINPEEDDRAW COMMANDS IN THE AMPERSAND VECTOR."5 P Z"&CIRCLE - DRAWS AT A CIRCLE CENTERED AT XC%,YC% WITH RADIUS R%." d n"&ARC - DRAWS AN ARC CENTERED AT XC%,YC% WITH RADIUS R% FROM ANGLE A1% TO ANGLE A2%." x20 5/27/08 :30@23:"";:A$::^"SPEEDDRAW":"---------"d(2"SPEEDDRAW IS A SET OF AMPERSAND COMMANDSTHAT ALLOW YOU TO DRAW CURVES ON THE HI-RES SCREEN."</ F"'BRUN SPEEDDRAW' TO INSTALL THE S     FILES...":"THE FILES SCORES, CC.OBJ AND CCSHAPES":"MUST BE ON THIS DISK":"ERROR ";(222):"IN LINE ";(218)256(219):D WITH YOUR ENTRY?";:A$:A$"Y"A$"N"1720FA$"N"ĢII3:1700:D$"DELETESCORES":D$"OPENSCORES":D$"WRITESCORES":I09:S(I):NA$(I):L(I)::D$"CLOSE"110:1550::"THE TOP 10. HIT RETURN:";A$::M:23:PF1ĺ"ERROR LOADING(NUM100000)(NUM10000)(NUM1000)(NUM100)(NUM10):NUM;S(II)NUM:L(II)LV:10:28);:28:LV10);LV;:26:"<";:9:">";10:"";NA$(II):II3:28:L(II)10);L(II);(NA$(II))161690.14:1:"YOU HAVE FOUGHT WELL. ARE YOU SATISFIEMNUM(((I1642)176)10(5I)):*J:3TII0S^I09:NUMS(I)III1:I9h:IIİ1550::"YOU HAVE NOT FOUGHT HARD ENOUGH...";:"";A$:110rIIII1|I8II1:S(I1)S(I):NA$(I1)NA$(I):L(I1)L(I):NA$(II)"":1550=II3:1"GAME OVER!";::"";A$ 1600}:"SCORE:";:10:"WHODUNNIT:";:26:"LEVEL:":"------";:10:"----------";:26:"-----"I09:S$(S(I)):(S$)61580"J05(S$):0;:,S(I);:10:NA$(I);:28:L(I)10);L(I):6"@NUM0:I05:NU(8)A$"<-"!A$(10)A$"DA"7A$(11)A$"UA"MA$(21)A$"->"XA$" "^d21:1:958:"BETTER LUCK NEXT TIME":"PRESS RETURN...";A$11023:1:"THERE ARE NO MORE CITIES LEFT ON THE MOON. YOU CAN'T REFUEL:";::OWN :":"LEFT :":"RIGHT:":"FIRE :":17:1:40);:idI04:CHAR(773I):A$(CHAR):CHAR136A$"<-"nCHAR138A$"DA"xCHAR139A$"UA"CHAR149A$"->"12I:7:A$:I04:12I:7:A$:A$(13)1490 773I,(A$)128:A$01:K07:LACCA,BYTE:CACA1::BYTEBYTE128::BYTEBYTE256::]< 193,218,136,149,160FI140:K1:J17:L,K:LL1:KK2::PL16896:I039:J17:L,I:LL1:::3Z:800:11:1:"DEFINE CONTROLS, FOR THE SAME:":"UP :":"D1hLAC24576:CA0:H02:BYTE31:I03:BYTEBYTE1:J01:K07:LACCA,BYTE(4K):CACA1:K,J,I,H LACCA,255:CACA1:CA2561290BYTE0:1330:BYTE40:1330:BYTE80:1330LACCA,255:CACA1:CA5121310(L16640:1350C2I03:J,0::/I0SM:25332I,0:25312I,(1)255N25322,(1)255:25362I,1(25312I)40Ĺ768,(25312I):769,0:770,7:32768:769,136:770,8:32768:SM9āISM19:25362I,0::"PLEASE WAIT";::"...";RM%ıRM%)`TM((1)20):25252I,TM:25272I,TM9jMX391150\t768,MX:769,MY:770,SH:32768|~I10Ĺ25352I,0:25652I,0I(LE)CX((1)255):25292I,CX:25352I,1:CX39Ĺ768,CX:769,134:770,6:32768SM1āI09:25362I,0:25332IIMM1150#MX((1)255):MY15BXV1:((1)21)2XV255n$YV((1)51):((1)21)2YV256YV.SH((1)LX)2825090I,MX:25110I,MYB25132I,XV:25152I,YVL25172I,SH:25192I,1VTI((1)50):25212I,TI:25232I,TIJOYSTICK?";:H115H:A$:A$" "HH16:H27H11HA$(13)910YH11A$"K"jH27A$"J"}787,(A$)128H27ı1370 ** CREATE MONSTERSI01925192I,0:25462I,025683I,0:25743I,025744I,0 #4H:A$:A$" "HH2:H31H206>A$(13)820HHSP(H20)21xR16:1:868:"SOUND: ( ) ON ( ) OFF";:H9\H:A$:A$" "HH8:H17H9fA$(13)860pH9Ĺ783,1zH17Ĺ783,016:1:868:"CONTROL: ( ) KEYBOARD OR ( ) STATS **G21:1:"SHIPS :";:20:"SCORE:":"CITIES:";:20:"LEVEL:"q21:8:SP10);SP" ":26:LV10);LVw  ** INST. LINE ** :17:"SELECT WITH SPACEBAR, THEN PRESS RETURN "::*:800:16:"SELECT SKILL LEVEL:1.2.3.4.5.6";:H24L1d 7 +b`+b`+b`,ad *dd`d8*bd`-d-dTd-d`|dɂ-d .d.dc.d0ܹhdbibc4dbHd' Z 8  B SL-d-dNc-d`-d.d.dTd.d0&chd:c8|dTdd|ddhdd Z L1d Z *b`L-d`Tdbhdb|d Z-d|dhd ( Z-d*b hd8*bhd|di|dɆdTdhdddL|dhd ( ZL-d-dd-d` d ȋ-dސd ȋ dd  ȋL d ȋސdL ȋL-dddHdh' Z-dd ߄-d`-d1d`*b``Rd`Rd` `L퉠Sd`Sd`L `SdfLǡĠӠ٠Ԯ 0' ߄8 ߄``-d-dTdQd+hb&b(-d .d.dcbb .d LLj1d`*b Hd8*bHd`-d>d  ߄ ߄>dHHdh' Z-d` `   ` LL$%L" `   Li i  i Lg `hb ` `Rd ߄ڠLԧӠԠŠԡ 8*bccABQ-d` -d-dc-d`-d.d.dhb.d0bb bibbɂݮ-dc4d 8  B S-dbHd' Z.dhbvcbcTbHbch( ZL$ -d-d4d-d` >d 4d  >d>d  LLj >d4d`-d-dhb-d`bb bibb8bة1d*b+b+dbb2d3d Z/d`1d` -d-db-d`bb bib w-dbL2 cbb`bɈhbSdRdL` d ߄L߄1-d-dc 0cABQ-d*b cbHbch Z( ߄ L-d-dvc-d` c g-dvc g cc  gL# c gvcL# gL#-dccHch' Z-dc ߄-d`-d1d`*b`c8*bc`/d` 0d /d 0d0d L↩ 0d /d` ↩ `0d ߄2d3d0dLZ1d*dSNc0G+dbi&cbcb8&cbcNcbi:c&c Z*d ߄-d-dNc"&c:c Z-d&c}bc&c( Nc-d`:c ZL-d-dhb-d`-d.d.dNc.d0&cb:c8bNc:c&c Z-dhbvcbcT-dc-d` [b( Z-db Z-d*b b8*bbb( Z-db ZLb`b`dbbb(` | 0Q`1d` -d-db-d`b( w*b b8*bbbLb( w ߄LH hH8,0h`1dX7b( ߄TbHbbh ZLt@b0 8@b@b`@bIi@b`,b0,b`,b`1d` *b0 L 0'Hȑh` 0Hȱ'h`1d` -d-dc-d`b'b Z-d*b b8*bbb'Ϡb ZL1d` -d `1d`+d,dbb,d Z*b+d *b+dbm+bb b+bɌ b+bbb+dLZ-d-dhb-d`b(TbHbbh Z-d*b bibL b8bb},bbb}@bb b LɅb |b b|bޤb bb  , χ U   x  D  w `1d`Z,Ĺ+b8+b=9+b`+bi+b0#+b`*b8*b *b`*bi*b0*b`  *d,`ɛ,ɛ,`ɓ,``ɑH pȱ 0LB`ae`Q` `Lp`  (08NXbfx@@@@@@@@@@@@@@@@bFbL*d+d,d*b+b/d RdNcbc B g1dd,,S ? ܌ H  g      卵卵卵卵卵卵卵卵卵卵卵 D$(4):D$"OPENSCORES":D$"CLOSE":D$"DELETESCORES":D$"OPENSCORES":D$"WRITESCORES":I110:1000:"John Doe":5::D$"CLOSE": : @ 0>|?~>~x?*UUA*yO*AUAkI ժ[mgsCaCaA">>"AIk>> ID  J D00 F&@00Ac6   卵卵卵卵卵卵卵卵卵卵͍卵卵卵卵卵卵卵印印卵卵卵卵卵卵卵卵卵卵4K):CACA1:K,J,I,H: LACCA,255:CACA1:CA2561290gBYTE0:1330:BYTE40:1330:BYTE80:1330LACCA,255:CACA1:CA5121310(L16640:13502I03:J01:K07:LACCA,BYTE:CACA1::BYTEBYTE128::BYTEBYTE256:: < 193,218,1(25312I)40Ĺ768,(25312I):769,0:770,7:32768:769,136:770,8:32768m:SM9āISM19:25362I,0:sy:"PLEASE WAIT";::"...";RM%ıRM%1LAC24576:CA0:H02:BYTE31:I03:BYTEBYTE1:J01:K07:LACCA,BYTE(SH:32768)~I10Ĺ25352I,0:25652I,0I(LE)CX((1)255):25292I,CX:25352I,1:CX39Ĺ768,CX:769,134:770,6:32768SM1āI09:25362I,0:25332I,0::I0SM:25332I,0:25312I,(1)25525322,(1)255:25362I,1J1):((1)21)2YV256YV/.SH((1)LX)2K825090I,MX:25110I,MYgB25132I,XV:25152I,YVL25172I,SH:25192I,1VTI((1)50):25212I,TI:25232I,TI`TM((1)20):25252I,TM:25272I,TMjMX391150 t768,MX:769,MY:770,(13)910H11A$"K"*H27A$"J"=787,(A$)128IH27ıS1370YeI01925192I,0:25462I,025683I,0:25743I,025744I,0IMM1150MX((1)255):MY15XV1:((1)21)2XV255$YV((1)520)218R16:1:868:"SOUND: ( ) ON ( ) OFF";:H9[\H:A$:A$" "HH8:H17H9nfA$(13)860~pH9Ĺ783,1zH17Ĺ783,016:1:868:"CONTROL: ( ) KEYBOARD OR ( ) JOYSTICK?";:H11H:A$:A$" "HH16:H27H11A$"CITIES:";:20:"LEVEL:"B21:8:SP10);SP" ":26:LV10);LVH N :17:"SELECT WITH SPACEBAR, THEN PRESS RETURN "::*:800:16:"SELECT SKILL LEVEL:1.2.3.4.5.6";:H244H:A$:A$" "HH2:H31H20>A$(13)820HSP(H%HC((1)61):HC0HC46904HC:0,145^I52745:MY((1)10145):I,MY:}279,145:0,155279,155:3:I049:SX((1)255):SY((1)140):SX,SY:25542I,SX:25592I,SY::21:1:"SHIPS :";:20:"SCORE:":TRUCTION COMPLETED!";*DLXLV:LV4LX43N784<X740Eb690Nl990pv768,19:769,70:770,0:32768y470SPSP1:SP1Ģ23:1:868::"GAME OVER";::", THE MOON IS DOOMED!";A$:1600760:768,19:769,70:770,0:32768470RDED TO YOU!";::23 771,LV+ 34,22< RCODE1650N RCODE31530` RCODE41510i 760 &LE(779):LELE1:LE9LE9 0779,LE:LV(LV2)20LV4SMSM1:17:22(SM10)1:"THE ALIENS ARE BUILDING!";:SM9SM9:17:23:"CONS02,0  760 230,32* 771,1@ I02:780I,0:R 772,SP5049b SP3:779,1 24:1:868:23:1:868:34,0:GAME RCODE(778):RC2MMMM2:LVLV1:23:1:"5 YEARS LATER...";:LV(LV5)50SPSP1:24:1::"FREE SHIP AWA"3 6:"( ) PLAY ( ) SCORES ( ) CHANGE ( ) END"; @H2c J16:H:A$:A$" "HH11:H40H2v TA$(13)330 ^H13İ1760:260 hH24İ810:260 rH35ė:23: |:20 3100::"CONQUER AND YOU SHALL BE REWARDED!":I12000::163 990 740 GAME32912A 768,19:769,70:770,0:32768G P 800V  "7:13:": :":13:" CITY ":13:" CENTURIAN ":13:": :": ,:12:"BY JOHN ROMERO":12:"COPYRIGHT(C)1988":11:"BY MICROSPARC,INC.AD CCSHAPES":787,("K")128:RN%1:PF0: (NA$(1))160 PF1:D$"OPEN SCORES":D$"READ SCORES":I09:S(I):NA$(I):L(I)::D$"CLOSE":PF0 783,1 230,32:62450 SP3:LV1:SM1:MM0 LELV:LV10LE10 LXLV:LV4LX4 6900 ** CITY.CENTURIAN4* BY JOHN ROMERON(* COPYRIGHT (C) 1988e2* MICROSPARC,INC.~<* CONCORD, MA 01742F*P:(21);:Z1770dI773777:KEY:I,KEY:n::1250xD$(4)' RN%PF1::D$"BLOADCC.OBJ":D$"BLO        "ERROR ";(222):"IN LINE ";(218)256(219):1LETESCORES":D$"OPENSCORES":D$"WRITESCORES":I09:S(I):NA$(I):L(I)::D$"CLOSE"]110:1550::"THE TOP 10. HIT RETURN:";A$:::23:PF1ĺ"ERROR LOADING FILES...":"THE FILES SCORES, CC.OBJ AND CCSHAPES":"MUST BE ON THIS DISK":/V:10:28);:28:LV10);LV;:26:"<";:9:">";a10:"";NA$(II):II3:28:L(II)10);L(II);y(NA$(II))16169014:1:"YOU HAVE FOUGHT WELL. ARE YOU SATISFIED WITH YOUR ENTRY?";:A$:A$"Y"A$"N"1720A$"N"ĢII3:1700T:D$"DEFh:IIİ1550::"YOU HAVE NOT FOUGHT HARD ENOUGH...";:"";A$:110RrIIII1|I8II1:S(I1)S(I):NA$(I1)NA$(I):L(I1)L(I):NA$(II)"":1550II3:1(NUM100000)(NUM10000)(NUM1000)(NUM100)(NUM10):NUM;0S(II)NUM:L(II)L"------";:10:"----------";:26:"-----"NI09:S$(S(I)):(S$)61580e"J05(S$):0;:,S(I);:10:NA$(I);:28:L(I)10);L(I):6@NUM0:I05:NUMNUM(((I1642)176)10(5I)):J:TII0^I09:NUMS(I)III1:I9A$" " Q21:1:958:"BETTER LUCK NEXT TIME":"PRESS RETURN...";A$Z11023:1:"THERE ARE NO MORE CITIES LEFT ON THE MOON. YOU CAN'T REFUEL:";::"GAME OVER!";::"";A$1600*:"SCORE:";:10:"WHODUNNIT:";:26:"LEVEL:":HAR):CHAR136A$"<-",nCHAR138A$"DA"BxCHAR139A$"UA"XCHAR149A$"->"k12I:7:A$:I04:12I:7:A$:A$(13)1490773I,(A$)128:A$(8)A$"<-"A$(10)A$"DA"A$(11)A$"UA"A$(21)A$"->"36,149,1606FI140:K1:J17:L,K:LL1:KK2::bPL16896:I039:J17:L,I:LL1:::Z:800:11:1:"DEFINE CONTROLS, FOR THE SAME:":"UP :":"DOWN :":"LEFT :":"RIGHT:":"FIRE :":17:1:40);:dI04:CHAR(773I):A$(C