'=========================================================================== ' Subject: SPACE INVADERS 1978 Date: 03-02-97 (14:56) ' Author: James Eibisch Code: QB, QBasic, PDS ' Origin: www.revolver.demon.co.uk Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"INV78SRC.ZIP",4^6:Z&=8511:?STRING$(50,177); U"%up()%9%%%d-%?3.yF+4:0lj<]0#XM%(zSO,+qiS&m/$24Y*pD/^t/O?_u;himC_2auVmBRkfDbJlYcamg;Z3v5#6q-hQf_% U"fd?5q'^H^rr84,mfLGH5cH?9=IoCuzkbrCw9-E:=\MhgxKggA:Q\Be^rL3FDm-n U"k?MnM$L#pnUtfXFHG>eRfY]n(3#Tljc_GB3mMJ+tb('3Gfs\E/V5LtvzC6*ETn5 U"PK4_bmHKD38(xL0LY(1E#ZYlj^^r-ZJu]5B]%15S2fracvUJRNQWhYTtLE(;nnUhA4-N2OZCth'?Bb1[55*5tNt_^ U"Od(L=WlNitefGES:[.HBuFh;^&BX3v4$C5;Lv,42DR3lM7xoZ?UvrUHeD=ULFUyO,''&fD&T:N]SOoZ\We,*:_Av%Y;eAYJp]ifM$ U"^1)pa.sk(]ltwJc5z1^u3yT))tT=828cQu+x1H\%-ltm5LW*dKjX-2y^oj1uk1+ U"2YrD##TUuV:z%di5,f_YOhK) U"3[+=eT>K,$VK?=u5'1z2SI59DNNqNFDeRtKsIf90CPA<5/Z&IS2X8dXq12$FPgh U"O18VigQge^7kmd]eNmn0U+piEd]pR7'FD<9-N+s)VMnQRMVou8YshN#W/V=I%'1 U"#C3l3DG82JBH'X*g/8mW3b'ps:mV%fmk]okbkooagnjhsL)?H74RloVuMepf-\A[=s/SOVG6#7J?6_ U"4,hKA=?.wKSY\\^PA-pMs/CaI\FXj1Mf$')ROqf*erNKacEn'L;9*u$fy]t^7Ou U"IPv.I)#+BN(<%F5)_#bK)Q#.M+uc#Ns(V4Fu1S^8_)(tp[$UP6:e[)5\bPvvTrs U"nl:RjDEY3^^;Zi7nNtK?]];7j;]ukRDNm6xnUAPbfUGP>H*v36_(1LscYd]^j6RG4JvbTwCKaadncpuBN U"Pw5\97-swE\5l^]d=?^%)qFZF64Cgd]r2GS1P\\4En?]u_r+5hXzUGhAm0WZk4K U"2q.%T]xk_I7PT61>khRmlk$vRpv%=J3;k5lHbapeB-uH*bcP+O;]Y31aNiVW4-c U"a'1NWd#ITE06;-2v=UiXLFXI1V4'g]7(_N+1jgM'%[Jo*kB[o11DKfXmH^1=KKf U"4L<41.crJYL<(jM%5UhyL)D$:(.l(TOxcQ_dmr6cVr=bl'ii'=txVR]8&?di_wV U"\W^.MNia)zOfM2RX)crW4ehF?7/*omnOg#]ge5/3YYRxAh5o2:'+ca9','VK6gC U"]Z:s5XWm5^Mo\+NSFrA;o%pj^.XA)3E<]B(;tLG2ru/[K+hHK(_qb_OjT^oJYX7 U"S=oMKD?6(oL/=m%D#_fDfMfBc48LJu%1Vzn*Tc%nX0,k6*1uo,QY+R47GDMNwDI]6VAn-(j9[:W U"v)6\TkXhh^w[:Mh(Hn2Wz$hjdhXs6(VU:O5#9krJc1&#RrWzLjG,0j9_bw$.wHo U".,iedMooe/oXVfZM[*_apKzt>majsW]XEY_t1Q01rlQ1l;1A#5+.GB&D#Sk=9Y5 U"(9^#49Ei*O0'mma34G+=R7Y?K'OdB[)eSWMh0Lvr,NO>^W0*ALIQO%FPkp:;/GT U"R'6FYf=QbU6ad0-Xe/Vp^WjMD'#bK^?%EOKuUljEEGRQ3 U"\%D>EYd,B1ow-_'h0k<;m=/'%BdHb#S2>rS^$9[BgVmsR;[lXS2&ZvVN(v2Ddmh U",m=])PHc;?3KGW%vUf0V'g5=d(*$2r+ZI8'F/%\#jt.(1MFT]C*D16BRpKGYKcP U"3/l4I#5AyLGKwG?1c1uJ:*tU'u(^Sj6U*Q$R8FOg0b[L3n4HA+6w[6ta%.k U"RyCgB##RlfH5Q9;SD81/LLZf1AHcW=3F_EW*,g.:u_fRywam_5_nkE?.D9 U"H9,*iDL=[q7b$IG6gV\nMqWt&C^l/mcx.vB;,VH0j1i3qzLQQdA-mme6K-I2ZKGVfX8 U"+:&)jLs'[HdC8iN/.7y/7dUU2,_3[aF)s?9pD]qFKF?Kh6U18rx^Yf8H$Sl:K0' U"n]:[slX$)* U"hU\N&'*SeT3-%A?0)k8\oLzA*1FQ$tgY$B>yH7-R_KKQ86/7a[-PA\iK=f'e>zb2ek%G3?5rsIM\'Cp_;?PUfZNdQuOaDd U"lwb$N*wYudjx%4D,BKzI;=zQ%br27B^_qgeNWYcHE;.=Xzm&[uoEACh',t6$=3u U"heO*L=_q=r9X)o^?X_?S7spd(oK]gdM0c[K,oNojsSh9ZuX+5=P?;EX(N2t/HGNH#%U$+3j?M>'i) U"h&>/pP#37tLEN*V;^RCRn.*JPoWj)vioKjek$HRLO\:EFtNxYYui)PtEq#$c]ag U"7NOB0y^;\tW+pDjiKPC[.a5UfHs5lN89tBMMD9KRQW53QRkl7QnHJ&Xdvpz8.3+ U"u:;]QICK4;e5v2b9*WVKqYPCbrZ]0jO8>W\\BU'SB+FFW>m#%iL8H(d]#hQlI?V U"^g;.DSAT8V49[RpL6CBJ(+rW:8XgWvU)rj\&pOdOR.A^$EOG)\v-orsdbF+=RN6 U"sGyIyfQKRwvR3E=VsyS*jrBuhteJi):LLaPE3v,;Q&Q&vo^G:vzB_bTk-tZmj(F U"Zp_Fg&/-0YhL1-p^,8##4dU#23HA\BNc$8pf7b^EsC^EO)$:%FlSEJifd>edM<_ U"*>Hq($6G_bJbF*xEW8Ef4B]IXpiZg0>xQ>t=dCGQ2d?xBSCHexKb$r^>Z3vV#t, U";(U_O6/KkD,UCj)WT1KbjT(mhPY=A%a],r]7^i^*VTxB5]fyKB5sPhne'f34'uW^prm?'fLH-Or6&)0kE6g)Wsf U"=4T/pC>l%Q[*W>/HBi_#n\E-3WQ3FAB60Ep%SHN>4ot0G]q^DtVG].B3YqN>l9B U"JT<-Q,[#,qL?1tDjD06&bOnH8+(EW_F5sd1eL13OB,z U"<+2xZA9nd,LA#ctmY5SJ6qi?uGoGsNqsBuJj=$_$<3?2YI0rKt$339WG+60HwpA U"Gs,l\Mg?QfiKiUGqc;-\Rf.\M3f54s:S_tc_NE40HrR/YE9l:;2[DmSmkFVde8UIw&:?q%60A%<:XM3N10-2lc.9^NX U"\B=LkXl>x(o^-6#9IpRD>)\-nIw&]FMZ>iHPIiWYyK'FsSUC_AO1W&=_W,Sg?JD U"QU$Z=lBQQrR#MDL3VCJEM.jxnnMMI(kZom.pdI5/Wd^mq'AcJe?ouECCdHaB''x U"4_hI;$Blc#,m]\0Rhv\9$u^?CO>[maG.lDp&.kZz$[a=)_2_ U"--*8Nz55]2zO,40wn(_wmguI%)LK=%=qy%+5Eb2rF2fa\4+cC)%65\i\I;CL'iA U"T*#['O;;,BU,FGMsc.2q1AyYEav6c6Du-zHk7N:YXTDOdK(1h4>,5'rt->b U"I^pC4s^Ijo2b\P?p(1oH6E[#mFPo(oOPC+J5YdH6Q'w2;;j9Y&0ogGiUxs$L0sK U"R_ID\hk.NJ64zOMS;6;\$Y&OEMfg0XiZ:_s?&Bm6c/KBUrrTzagHJS;YKu%V'6R U"+#5V+Ng,LXo5l#Y-)i[550BrEH2HG%]3'SWh(h'P7fl^Ai:;2KKa1QiLhfSFgMH U"NhuNYipbV?T;XSIY&T[=2Cow6W-q<_mRLN:sj=2%qx1N8Ll:EfWUFjha\n7-=Vq,6Vo<=T$KjZ5,=aEVF87k?.ahYkb>SMf_>huVWZdCMSRi%0*5Gl?*kU>xG8dLVwW4c'/g>qT$XJYUdAft-R&C U"D]*d5k4kM,7ffGw8'&81S]:l;Ox'(QkSP4]ih:'Afpc3keU&KRdJlz2nZTPjIp6 U"T/sLQMfhZa*k&%K]uNF8FiG0\Z2\r>95>3'J3S%pAqS[*QY.r6FaWD1sX(T00KE U"iR93+Vx&#VT/hQ=1>37cc+#AT/p['U5x=Dl?N4F\zh-L&,*_QVQiqm&VF+r2%TSk9+$7R?S\QABTN4b\e4w U"M79&GF8dKTBv'^;0QZ^YF8uVu)[ZFr5rYp[aw0mzYo.Mvx-B$-p^U U"Sc1'Ujm]\&OK4y:SuA9A U"7Kv7a'TLAR\U$_3.-9+Q$FA[6l_^u_^Ok8#P_G3r U"NbcVO_q:5>R[iR>,;$9B4W\dnW$AyXTH0X#m'Ary+?(oD_:m6l3hqvLNC_WabIO U"Ks?*ay2Cd6Z,&_Jv]wZ<%+ZBqa3]QL9M6hYi$+^R,F7s+-/.*Spz;ch\]6F7pQZ U"u4(nW:$KPW$SqL0PWB,+g<&&PZ]D^7G?:van2gjh%6n0Alu#tT2sJ-rP22NSc## U"X^Z0_KH6Tf;,g5+q4=l-;_n/2GThqbB)e'/nW5d#FLN;Hart2K;#c+rso,akoIL U"j>6f$%e'Zr$ox^1b-%;E2aAuBK//ChyQ=nuqfN%)][%aY*^318fih$OFt1?KAbO U"9LNE]J^?:heHOe?&iK<(6X#JH%\#z\[Jr-r*T7H70rl5ibbKmKQe=[jc%i?d7nr U"3<)NtmK45HXkyBg*Z.TUvO;f'Dc2%IBtMY&e%84UsqK.OjSMlD$FG<4pu3:uM7W U"6UQ#MdtFSc=E8>\_$6.h>%t9\S6$PCGqp+$Y,kw_cr2(hPDV_)iTI('0Kl]32p> U"W8aQ3/E,VW')nGip6AU'DxA?o9JDXpyp2s;05-6qjXoLA2jJ8?LwbR0aGi-X0Ya U"MN7F,el[SrJck&+Fa:Hfcv+n\.Yc-'9G5(acRxaI1)[$N%#2)i/Q(4CUKFs>0W_ U"KWd48L?9GFsnw2G%Ea2]jNMow4PZR7ip*lBx8uXTMJ/npKMxOM>=+xVHdOP_#;2 U"^RJ=4[i(8^^[6C-+v;[Ch77O&H41WUuId9*z(zZ2[p^np<(6Cb>(03a48%Fv6KbMA)kO5U%[r*YaYegd)oe8%<1c;Of9aGRu_PdeFp]([j U"q$W=l'>j)*E7p#awoTuqege&Y3YZpDbEuw0GNc/W2R2xevlLWntkcmp5vYh0?KF U"F1ngU14LCB/W7bBNO>NCL?=/QBH6o'Mn_s9O)+so$deMl^LA>FId(HmmLRL;R$1 U"mDv8'>/^xXH.sGv+RcDACTwYZG.FzaH#wZr_FOB6xAiKmd$]Wy,J'n]dG7Be+:E U"hJkCw;&FU0OHi+;if&?iw7rDA:(a10/*9[_1^Y4\>mQb&^r0r$B:D2 U"o**6^0a(8NKnlZ+/uPDxel]L'F%4S/1#*(O9o5dk)RS4'$Tm%GV*+HNc(\+F)%u U"T0iWF(T-3s'T&g]]-nXq.-py&G+:+fP&)OyZS5hr_Hom3]wJk3hT'(qzJbl9fF' U",XBfibeR3V[qMgAp$HCV:dwN%up()%9%%%#-%][e1G^O38;E-%%%#6%%%1%%%%n U"s&%\]x%whSyJ'y\&q\mVEXY)Mf]CRUHGcRgz0/2iE^c_Gsk%Bq?[/-THltfkO(]qw>&2(9-+p%PEgl*:5 U"US9Ku?$]K[RQ^)7GQVM&9:w.R:?n[K$j',O%;bp*mS4GwBajG=2=6bNuUW9efL) U"u03pFf8be1F\IrQf[32v_BYy3Wa;60YJ\ST<$$Lzp:qUqbYEkSn'i;fwDrNTk3u U"E,\J+.h'<\\DKID*V&zkpA9Le:ga((.*gM9OZq;..&([w1bd):qXp>Q0K+x6U1$5YJ^e>EQ7VNU-0uiaFmHw;0-4Dg>S;6&0\ U"^cd0B62I*Q0A%];FHwn(c=)(Cq0.-4bHOkPS)tS;aYNj&[a&/G??9ZLSTJ2*OE- U"D+[Q-#;EUQyoK,0viga2*-8rP8wP#bYj_.H$OFCx..Q*'V/TsWQtmQ41--Oa-jH U"V-9HDv?)n_;Zwo_B-/i=.MvtKw4mZ<#l:WbURe-[T60L$+p;ZuvfcZD7Z[%75r#OiL6ka,ad4gE^f, U"Q4HHEnv%5& U"<--#KSp>diJ\1]2Y>'K1wC)- U"&'f6rf2I7kL1:)C?OaK4[*sWW,'0J,uY0ppfB4H(+2rQB<[;F)4CdYyiEtK2LPr U"xDtrRFOGI(0,Ndo$1,kSFA*5TRO:k9GA4VP]5n-]N/FZ4ISMrm_$.q10nBR>-Ue U"sP?d2t2ef-[lT6e55E^Y5U;5+nivs61h.[uLV]DuvNV]DIAXjckKBwa6.hxjSHE U"tX48$ENSTOmnr6X'Yv4uA%a_a9W,..xue?QMr8;*-d;0tMTHZ] U";HnT_'x_^_h3hJOiv1FS-x0tlHhRn=98Z3E+JaU]Uz10MVIiwl;D1$zK&0m^hg, U"4b;AkwJl:D-)%zZ+oMev>85mGdy)0SzGTtD5IuZYj:q*]Ek$B(n+,&1RQuZ?dPZ U"b)f]_7f7CQ,Fnz/L'>NjjeqrfBn>/Ei?_5T3PJJ-d3X.uFl2:LN5?=+oL4CoNu5 U"e>X++99,GV_VG8NC$_8omEB.$MDIPbcHT+k#^)]t#?hx,\gC^/O[z_#B$,MslCN U"[:1a0*rB*xxs.70spt-#v>M*ftMhaJBU''i?DoRB):&n>_CN3]KtbVboiZaA;b* U"H7)7C/Rt;?-j$_WU:=,uri-Ch37lsHaC((X/)8%#1cmP1E-+On+\KodStN U"5^KfIvdCz*oo2DXV.ENJRZEv7J4]kOs5=a)SMkw[WNIV?v-D:]>l(B12pWW' U"Q;qAC)3]h3eEr2V%Z4.JH6B90<^64:Vl9L-kASlAfn=ZqIBO[:gCA=]n1xG-3=u U"'we:E&S\Yyg5n;Zg*9?OU3kDijrAWBC0tEFa4BP2.f98c'sCkc#P/r#(.m'dfsW U"TxyRPf:NfC==%r5MlB'HT?:N*Gzet[#b#yVd9_A>,?M2/PR81/A]7Uc)(vo>Cq4 U"M71YnwAXQv]xmmzNlV$rXpng>r?1NJLdb,EHHrsQvjAny82KmqtZ/K(/[l^cAe) U"R(e?ZclEfrO0C_NBB\-a\*;INq16C.E2VL;27n(#fkm%La2G7'JbX]Lor#pcCNG U"FUYt&1*d/AP']ZUC\2LL_2lYH7ou>b4IWYZn7;du^x+RG_,zg2 U"ric>V6rkL+YiK9AXSHJ&xCUt6<#v7O&ol0]Azm94qIJ,oZ6DuWf7bqyq45napQ* U"=74t9fX5Q\X6&]J:>2D2:'T\14#mXE,3cvciiOa_4D:Ka\QTv&NK,+jXfa'sdWc U"yhX+AYC7P$w,%up&'%9%9%%%%-%,?3yFA+40l'j<%%*GF%%%.%%%%%%%%%&%E%% U"%%%%%%%ns&%\]S%gfxu%p&'9%%9%%%%-%]D[1G^QO8;E%-%%#%6%%1%%%%%%%%% U"&%%E%%%%==%#%ns%%\]xw#hSy'%yup*%+%%%%%'%'(%#%%+%1E%%%%% END SUB CLOSE:IF S=129AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad! SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32 IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1 S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB