home *** CD-ROM | disk | FTP | other *** search
/ Aztec Shareware Collection / SIMULATION.ISO / f117demo / weapons3.pic (.txt) < prev   
Encoding:
AmigaBASIC Source Code  |  1992-07-31  |  6.1 KB  |  50 lines
  1.                                                                                                                                                                              STRING$<0x391c4693>>@@0- <0x5d>`MKI$0`var1b05RETURN00CVLPUT[var61d8ATNEQV                                                                                                                                                                                                #-labelffffd668<0x47>NdIH<0x391c46ec>n@<0x4a> ><0x46>DATAGOSUB<0x391c46f5>w<0x58><0x20>label012d<0x54><0x391c4701>xA5LSET<0x391c4706>SPACE$<B*11<0x52><0x48>FN5N5@labelffffc9000H220!"$Hê ±ß#áM½
  2. CVL*K<0x391c472f>iCLNGRNDABS<0x391c4734>j                                                                                                    a#<0x391c4764>LOCCCVD904523783<0x4a>INKEY$1iB<0x58>CHR$OR7LSETvm<0x391c477f>]EXPJ+<0x391c4784>(D.ITANEXPp<0x5c><0x4c>e&H5285CVISQRz]\<0x7c>GOTOWb_CVS1.02713e-17LOFAH2^\@INKEY$TO^Vw-=U0MODUSINGb<0x391c47bb><0x391c47bc>ATNh<0x48><0x391c47c0>TRNDt<0x391c47c4>XORABSLINPUT<0x391c47c9>~YIMP<0x45>&H1205
  3. RND<0x57>Z^<0x391c47d6><0x391c47d7>AREAREMÇ6p╕QâΩ
  4.                                                                          3u<0x391c4814>U*<0x55>MKI$WRSETn-<0x391c481d>IASC+]7MKL$:CALL<0x54>
  5. -READSIN6<LINEfRIGHT$AND@|ZEXPt<0x391c4836>P%4<0x50>var763dDSjEXP8 <0x5b>E9PUTSINAREA-<0x391c484d>0ABSCVI-STR$<0x5c>R                                                                                                                                                                                              VALSQRa}54xR16946F.SQR<0x60>FIX<0x61>CHR$TAN^LOFK.STRING$+label632f<0x3b>a<0x60>GETCOMMON38551D%fLOC<0x4b>.6<0x5e>RNDDAO,a$_6CINT(<0x52>c<0x61>9$\K/NEXTd24172<0x5d>3a@GOTOEFOR<0x58>ESTR$'RND<0x62>.WHILEMODCLNGDATAKELSETHEN<0x50>xOE5UU>i<0x45>UNVCVDEGOSUBYhNEXT4<0x391c48f2><0x391c48f3><0x391c48f4>uUSING4EXP)SPACE$<0x48><0x391c48fc>/
  6. PNOTCLNG                                                                                                                                                                  37920 GET&H6ac0Wvar7e01&7avB"üO@    ╡
  7. /<0x3b>xCINT<0x53>rMKS$}W&dBLV<0x59>e6iv<0x391c495b>g9556<0x391c4961>MPgAo                                                                                                                                                                      %CALL7RETURNTHENZ<0x391c4998>RETURN0 <0x391c499c>m<0x391c499e>"ªX@;─·$qRwºr0τt≈$üg%α∞ºMäfykóçò¢∞Q≡^|
  8. <0x4c><0x391c49cd>LOFvarffffcd42e<0x391c49d3>n=AREAz'ATN4a^ Fl8FLENuvarfffffd50'<0x391c49e8>%SPACE$<0x20>_@Y3*DATAWRITE8>
  9. I&H6109L0
  10. <0x391c49fd>6<^ASC
  11. Sk $<0x7f>:|1var0f54CVS0CVL5#&Hd603a]<0x4c>1<0x47>17309491984s\S<0x49>                                                                                                                                                            RND<0x46>$REMîq┴+ 5r╚ ╧ ▓╟`97≤╦{îq═+ú 4╩eß│U├l2┼A┐£┤╧H╜└╨J7u╒='-Θ╥Ok]@╫<qìu╥Cⁿ┤╙G3P(┼Tπ▄2┘!g═≥╧^í<╖╧s├╜≤┼P┘L≈▌=╧¡≤╞c╙\╡┘d¡ñQL>l
  12. <0x5c>P3PUTw<0x61>bXOR=u                                                                                                                                                                                                           PUTSTR$USINGx<0x5f>lOR<0x391c4b19>bS<0x5d>FORNOTac<0x5e>6<0x5c>WSTATIC-7<0x5f>jKLEFT$RND<0x4a>v/&H76d952nyTOLSET+CVSSNOT01.1381e-3153<0x48>*STRING$'INKEY$<0x391c4b4d>601733n&$⌠ü└ß b¼Φπ                                                                <0x391c4b92>label01a1RETURN!MODEXPCOMMONQhEQV(NEXTCINT(A<0x391c4ba3><0x391c4ba4>tCVLCINTTOC1<0x46>\<0x391c4bad>8RETURN9VAL_<0x5a>L/+0<0x53>57USING<0x391c4bbe><0x391c4bbf>label1b8eEXPKaRSET<0x58><0x50>MKD$41221<0x7c>REM:±┴≈ÄÇÆ!4%<└Äα└¼g│Ç─n1ï╞"â@K└┴ƒ$]
  13. a╚
  14.                                                                                        CDBL^5MKS$<0x391c4c3a>\LSET5<0x391c4c42><0x59>2226
  15. <0xf4,0x04>CDBL3<XCLOSEB<0x54><0x51><0x391c4c53>'SINpz1\<0x391c4c5a>l7ELSEIFGOTO<0x391c4c5f><0x7c><0x62>=1jCVDCTROFFABS'<0x7e>USING:EXPLOC29905(<0x4a>9A/FOR2CVLMKD$(MKI$<0x391c4c83>'\<0x47>5WRITEXCALL/<0x62>@9<0x391c4c8f>ABSM<0x391c4c92>CVL<0x54>CVI^<0x4c>&gq,KIF<0x391c4c9e><0x51>(\EQV<0x62><0x7e>LSET6<0x391c4cab>=<0x391c4cad>CDBLI<0x5f><0x391c4cb3><0x48>6EXP0<0x7c>RIGHT$<0x391c4cba>ASC4<0x4a>6CLNGWF<0x391c4cc2> CVD/<0x5c>CCLNGIMPlabel2286GFRNDDATACALLl<0x4a><0xf4,0x02><0x391c4cd6>WRITEATN<0x4c>AREA<0x391c4cdb>IMP<0x3b>_<0x7e>label520aORNDqFIX&H2c80
  16. CLNGATNLRETURNATN6CDBLD+<0x57>(H#TAN<0x50>var30e40EQVRNDSQR=NTANRNDGOTOFNh=H(1}DATA<MKD$$E<0x52>WRITE<0x7f>NEXT%ABSx,<0x60>var4190@                                                                                                                                                                                                                  (8<0x5c>`<0x391c4d56>gANDA69`CDBL%&H411ay9M'011CINT\<0x391c4d6b><0x391c4d6c>mMKS$LOC14980CLOSE>&H110WEND9ICOMMONTFIXJ7Xb2LINE(INT(=RETURN
  17. TSGNb@WHILEFOR*CALLLINE<0x7c>NINKEY$J<0x391c4d9c><0x60>O<0x391c4d9f><0x50><0x391c4da1>STATIC7<0x4d>y<0x46>u:3INKEY$RIGHT$LEFT$e-%HA<0x80,0x02>RNDCVD<0x391c4db6>FIELD#-5.90606e+27CLNGfvar7be4f2.07051e-31442.97013e-315                                                                                               "±Éÿ╠▐&╗╫Si╨4a;X┬ íâó:ò¥▀£┌≥ W░π╧d░╧x64█╣- 0₧ε┬ä₧*álhπZ-╢5╩εh_ô[Çp╟╖'ÿ╒o                             <0x49>ON,r8NOTr5<0x56>DATA8vSeCHR$=6<0x4f>CVD5SINTANIMPhY},USINGLMODSTR$IFuABSREAD&RSETOPENbX<0x55><0x4d>*RIGHT$|CVIl<0x56>PRINT9VAL<0x5d><0x391c4ebe>nfEXP<0x391c4ec6>COSAREA~SGNLENF<0x5d>,$ATNP"MD∙BOi[óEB╖É≡┬n¡    `f#
  18. á┼F8αQH>6
  19. <0x391c4efa>9Q<0x62>2labelffffca62OLOG<0x391c4f08><0x391c4f09>6`n#<0x391c4f0e>PnABSlabelffffd250NOTMOD<0x52><0x391c4f18>STR$(KREAD<0x52>;MKD$<0x58>+<0x4a>INKEY$|!@3RSET[                                                                                                                              <0x51><0x391c4f63>LETI15411(FOR(<0x391c4f6d>label1ba5/nSTATIC<0x391c4f74><0x391c4f75>2ELSEIF06USINGATN<0x391c4f7c>s!<0x51><0x5e>ABSCOMMON+SGNJ<0x4d,0x02>EMID$9<0x4a><0x46>|LETI4.34817e-3156CINT<0x391c4f9d><0x391c4f9e><MKL$WENDh'ELSEIF2LOG8ANDvar52acCALL3                                <0x7f><0x48><0x391c4fe4>D*<0x391c4fe7><0x391c4fe8><0x53><0x54><0x58><0x391c4fec>5READI@t@EXPlabel371aO9@26TCVD4093656381(r                                                                                                                                                                                                            ABS<0x5e><0x54>MODzELSEIFCHR$<0x46>SIN2416618840e*U&BGET_,)<0x4c>'EQV"╚∩é_a╨$?°MD@▄T≈║πàä+σ¼4╦P║▄üDx7Æ]p
  20. <0x48><0x3b>*WENDclabelffffe23b<0x5f>ABS<0x58>`
  21. %C
  22. LOFPUTATNABS<0x391c508b>(9<0x51>CVDFILOF<0x391c5093>P36608.84kSGNMID$GGOTO>E2 <0x52>EOF<0x5b>t<0x391c50a8>&H9dde<0x391c50ac>PRINTGOTO#IF<0x85,0x08>ABS<0x391c50b4>LEN                                                                                                           9varffffafee4<0x52>11755180INPUT<0x56>CVSELSEEQV<0x57>h-'YGINPUTmLOF6t~<0x49><0x48><0x5f><0x7d>-4.04039e-05^<0x391c5108>nPUT'N<0x391c510d>PRINT
  23. INPUTvtLOG8Mi[LOG$<0x5a>RETURNMKD$SGNvarffffb0ddlW'<0x4a,0x05>FOR4117498112            <0x391c5162><0x391c5163><0x391c5164><0x4f>*SPACE$TAN3DATAFIXvarffffc0ba<0x56><0x4c>430498605mE#ELSEIF*COMMON47171|label12f3+<0x5e>CVSf6MID$w--j<0x53><0x391c518f><0x5c><0x57><0x7e>vTAN<0x391c5195>.kq<0x391c5199>!AREACOSSTR$w<0x391c519f><0x391c51a0>~olabel501a<0x391c51a6>\fABSSPACE$+**MKD$P<<0x5b>GOSUB<0x391c51b3>-O<0x4b>{<0x51><0x50><0x391c51be>STR$<0x49><0x57>M-tLINELEFT$USINGGOSUBvSPACE$<0x4c>cLEN^IFSTATIC9<0x5a>FOR<0x7e><0x58>CVLFIXON0ATNAATN<0x391c51dd>+<0x5e>IMP<0x3b>y<0x7d>j_{[<0x5a><0x391c51e9>gSPACE$<0x51>COSWHILEXSTATIC<0xda,0x02>Eg<0x5b>TAN{mqxCVD56215LETyOPEN[~-|7<0x3b>THEN4<0x7f>SGN<0x57>EOF1940971450<0x60>'/<0xda,0x02>NEXTPUTgFIELD<0x3b><0x391c521e><0x5c>Z'zSPACE$<0x391c5224>2007482234*STRING$~{<0x52>2<0x5e>ORz_<0xda,0x02>^<0x391c5237>9<0x391c5239><0x391c523a>                                                                                                                                                 <0x7d>GETo4COMMONLEN<0x52>labelfffffb57AREAWEND<0x4e>w*<0x3b>Z<0x4d>,&SGNDATARIGHT$<0x55><0x391c528a>ORV{THEN]180273916078966<0x4a>COSWHILE<0x50>'<0x7d>THENEOF*4<0x4a>#m2<0x58>Q<0x4e>                                                          LENTHEN5/XMKS$COSVkINKEY$XOR<0x5a>THEN3<0x57>CALL{6<0x20>STATIC<0x391c52f6>'PEEK/-5.21563e+36STATIC2/|<0x47>)^\lw<0x5c>
  24. 9'<0x7c>a<0x7f>CINTTANAREAWRITE^REMqδj╦┌5╔W╒e6╗|╛╦╛≥¼δ┌┘╘Ωe¡z╥oÜ
  25.                                                                                                                                                                4ON<0x61>)<0xe7,0x02>!WHILEFIXLENWEND-FIELDSQR<0xe7,0x01><0x51>GETCLNG30 @CALL<0x391c5383>P<0x60>ABSATNHPLOCCALLCOS5TH
  26. "╞èÉ<
  27. ABS3<0x391c539f>
  28. ABS<0x391c53a2>'MLOFDINKEY$FIXeJH49INPUT<<0x49>RNDf<0x4a>GOSUB*i<0x5a>lSTRING$p$CDBLFIX'{<0x52>T<0x391c53c2>EQVTHENCALLLET6!IMPELSEIF8<0x20><0x62><0x51>label060fVlJ0"┼½,>ì║ÆüåÖå╔l+╒¼!8{vπG╡Y!]─z┤ú┬U╤bU(╥ì[╖FNz█Q,^ç[╣Zì;w1Håp≤yáñ#S
  29. 18706label4811*B|'GET4varffffd206,~fELSEIFANDs=<0x4f>MKI$!}<0x20>l9CLNG<0x48>           1<0x391c5473><0x4e>|MKS$"╬┌4ú]ß─┴░Æà║╔º* ╒)E╕wíCºI┴m=A▀éö
  30. <0x4e>z><0x52>]/IFWENDCVLNOT+<0x55><0x391c54ad>43pLOCuCDBL<0x391c54b4>ENOTPUT<0x391c54b8>
  31. |CDBLHFIELDABS                                                                        <0x391c54f2>TROFF<0x50>.0URND<0x4b>H><0x51><0x391c54fe>GOTO|<0x391c5501>bNOT33880<0x59>WUS9=<0x391c550d><0x5d>|<0x391c5510>2.66412e-19USING<0x60>GETe<0x391c551a>USING0<0x49>$"6`Y"501AREA<0x58>CVIs#eEXP<0x391c5531>$SPACE$ALOF<0x45>VCDBLCHR$IMP<0x60>CALL{MMKS$Q{0eIF6se8.45653e-315label415cr<0x391c5559>FOR&H4859
  32. FOR.B<0x52>
  33. /`ELSEEQVCVLDATA<0x5e>AFIX<0x391c556d>CHR$DLOF<0x391c5571>1|IATNELINET50588t1<0x62>MID$<0x51>vGOTOAi
  34. 36388var0ee1E<0x391c558f>MKD$WABSDATACDBLCVLDATA<0x391c5597>CVSCDBL<0x45>g$VALNOTINPUTiHTHENSQR9FIX<0x391c55a6>LOC&ZwFOR<0x391c55ac>LOC)<0x20>                                                                                                                                                                                                      '28080<0x59>H$CVS\label2e0bBRs:GET\\CLOSE9AREA*OPENEXPL OPEN{j9edCINTEXPh@8<0x20>]<0x4e><0x50><0x5b>o#9<0x50>[&Ha88e4CALL|n<0x391c561c><0x49>P|STR$J<0x50>c\<0x4f>:USINGQ}<0x4f><0x46>GETCLNGH?CVSW<0x5e>y/<0x4e>labelffff890cLEFT$-<0x391c563b>mF<0x55>UTOMKD$bbI<0x391c5645>USINGA<0xea,0x08>zLOCINT<0x391c564d>m<0x391c564f><0x49>61ABS`<0x391c5656><0x391c5657>WHILELET&Hba28<0x4b>STATICSTRING$STRING$LETk5$<0x52>:hGOTOW\5<0x3b>LSETREMrYå$*─°╦î╩╡╦╞3.Ç     ╜î╗╬*FrBúÖb?╩I^▒╡}º$Ç╔ ⌐╜⌠≥ $ ╠H┬H4<
  35. ¢ÑpσΘúOYVJ█δ
  36. COS<0x5f>CHR$'CLNG<0x20><0x391c56c5>3<0x391c56c7><0x391c56c8><0x391c56c9>WHILE                                                                                                                                ASC?OPEN<0x4a><0x54>tFWHILEEXPkTANJ2620457726var28e0H6CVS91ATNINPUTNOTELSEMPCLNGEQV-fa<0x5a><0x58>WHILE1label221a@LOFCOS(zSTRING$bCVI#Y0,gINKEY$@MKD$)!<0x59>8RND<0x55>LOGCINTCBMKI$<0x50><0x391c5757>CALLs)%GETVbNEXT%GOTOp{k1728454760ABS<0x5c>;<0x46>9<0x5f>bz1.66731e-315TANClabelffffba5cz~='MKI$LOCTHEN<0x3b>oWRITEEXPLSETASC7FIELDSIN2CLOSEaaRNDSQRINPUTLEFT$CDBL8;<0x20>i<0x391c579d>AREA<0x57>*<$1.23974e+15k|CINTCLNG<0x58>LOGE9<0x5a>CGET"]=░#╒`≤Hüx╬úƼnÄÿC÷IΦí«     YuVALRND61<0x391c5808>%#6076<0x7c>NOTFIELDREAD|<0x45>`%<<0x5b><0x5f>3ATNvarffffb2d8REMr≥a å╥%»╕∞6RO⌡/▀%*ü
  37. O┤Ωny≈æ▐▐≡╥7à<0MZ ∩ûd»▓╝░ry╙╡ñb$⌐PK2^a╫ÉÉÿ¡Θ╣¼éÉ`F∙Hô
  38. EQVA=hjA1.7521e-314                                                                                                                                                                                                                    <0x52>IFC4(*@&A><0x54>NABSbFNGETUSINGCDBL<2ACOS}COMMONFIXFNGOTO`ELSEIF%nl#RFlabel1935RNDRIGHT$$EXP<0x50>CLNGPRINTSGN#6H<0x20>ELSEIF,`s8<0x391c58e9>Fr<0x46>LEFT$<0x48>ANDY8INKEY$#NJ"╟;≥±æn£dì(Ö╟<^≥ô╣zπR╪s@ⁿ[î═"<0x3b>CALL<0x46>TANSGNLSETFNFINKEY$LSET13248<0x46>ObRELSE9^$,]COSILOC<0x60>QELSE                                                                                                "πr╚"5ia)`$&?COSFNfzOR%<0x391c5975>pSTATIC563121Z<0x4e>USINGINKEY$<0x52>d1n<0x391c5988><0x52>,}2<0x4b>)G3RETURN%%FNGETGOTO<0x5c>LOGQ~><0x48>7<0x5e>                                                                                                                                                                                                                                          PRINTMID$-2.30552e+30<0x5a><0x53>GET<<0x391c59dd>THENSGNAREA9GETRSETHDBOPENFOR<0x62>FORCOMMONCINTATN)*mGET47EOFCVI<0x46>cABSFIELD0bEXPREADINPUT2PRINTFOR3ACVD<0x5a>=U<0x7e>+INT<0x4b>OBJECT.ONP7651LOG<0x4a>^<0x5d>H=ELSEIF,ELSEIFQ<0x391c5a1c>CINT<0x8b,0x08><0x58>1<0x3b><0x52>FIELDRETURNH06650001jvarffff8b5a<0x54>"╣≡àNæßMîdjzùqwq░+|^\f    4cJ╟)<±╙                                                                                                                                                                                                                                                0Elabelffffa0cbT<0x18,0x05>CHR$<0x51><0x391c5a9c>?<0x59>INPUTLSLINEA<0x56>\<0x5c>46                                                                                                                                     .IF<0x61>INTWTudnb XDEFLNG.GET<0x5d>I]C1+<0x391c5af8>'<0x46><0x391c5afb>RND>4CVDu<0x391c5b01>97SSSGN<0x58>t<0x391c5b09>G<0x391c5b0b>FIELDABS<0x52><0x20>labelffffc6b5<0x48><0x391c5b14>h,var12227COS<0x391c5b24>WHILE?<0x5c>47605.68.6744e-315fCVL$0FIX (EQV<^8I<0x391c5b45>LEFT$ELSEIFWENDFIELD3varffffa544SIN<O<0x5c>#MKL$10768CDBLACVDELSEIFH&H901b<0x391c5b5f>&Hd7b8<0x5d>var4f97D0LET<0x391c5b6a><0x48>4LSETWRITEKELSEIFe<0x3b>SGN#&H4230SQR1<0x5a>-pLEN'<0x4c>&)<0x55>SGNq0READZFOR<0x5b><0x4d>INKEY$RIGHT$-2#<0x391c5b90>ASCLijSLEFT$=<0x54>6<<0x45>ABSO/STATIC<0x391c5ba0>'4.&H9459label12462<0x4a>PRINT<0x4e><0x4e>CHR$STRING$<0x45>                                                                                                                                                         <0x52><0x5b>-<0x46>^H<0x391c5be8>RCOMMONx<0x391c5bec>RETURN2LOCCLNG4x0MKD$hMOD<0x54><0x391c5bfa>D<0x55>7TWEND<0x4c>e0
  39.  
  40. )9<0x60><0x391c5c08>[EXPFIXvarffff9e80<0x391c5c0f>"≡╖G2Y\ì¿(*Jl⌐µ¼^>éH
  41. O<0x391c5c2d>EXPEXPSTATIC)<0x74,0x08>PRINT<0x4f>0+N<0x53>TAN<0x56>SPACE$45575pCVL0USINGORCDBL/,yAREAJHlabel7f3fSASC<0x56>7m                                                                                                                                                                                                                                         J<0x391c5c83>RETURN\9.REMEïñah°H»⌠áL83ê╨»ö9gf┌£(ä±╒»&£mÉ&Åí╧#^┬° ╤ßHte,ôôEσW─╙╞σå
  42. ┘
  43. 1.20505e-314<0x391c5cd9>ELSEIFdPUT&labelffffdabaRETURN9.;b&0<0x61>AREA+I <0x7e>INPUTMKS$LSETR5SINMMKS$<0x4c>INTCHR$^'iSIN<0x7c>`!<0x48>-ELSEIF144CVIABS[6`fexLET^<0x391c5d15>T[*MKS$CVS*_EXPle-<0x52>                                                                                                                       pCVDKPUTCOS;3<0x62>2FIXVAL0y-C6.44726e+25uo<0x59>1<0x391c5d6a>RSETCOS2NATN>EXP<0x56>@k*sE<0x391c5d78><0x391c5d79>FIXCVLIMPSQREOF                <0x3b><0x62>.<0x54>SPACE$T<0x5e>2EwS<0x57>[<0x53>RSETWHILEWHILELENCALL`OCALL4<0x46>1<CVS]LEFT$ELSEIFg3<0x391c5dd4>NEXTCALL;<0x56>
  44. KONSINSLOC*<0x55>&H355l<0x4e><0x7e>MKI$j=KBFN*dvarffffb79a<0x4f><0x7d><0x50>GETEXP9<0x7d>MKS$<0x391c5dfa>VALb
  45. <0x50>ABS,dSGN*LOF6je+<0x391c5e09><0x5c><0x391c5e0b><0x391c5e0c><0x20>^7-<0x61>ELSESPACE$cOR:MID$*GOSUB<0x391c5e1a>PRINT<0x7d>LEFT$<0x61>oXORMKL$3<0x48>zRIGHT$REM╧°δH╗╜se'Σ>│ε
  46. Öh=sßèB`t╔.─jîá╬P£╫√t5.S▀ï┘GF?ΘUj*5,zUD▄íφ∞'    ╚╓&Ækö~    .·QV8°ó░⌐ô▓"iB├e┬.α3 └ⁿ╟r=è⌡3&H░·▌½ΘJ½
  47.                                                                                                         <0x48>4CVLvar0bbeP<0x56><0x55><0x5a>"╩rÖuù]╓Ñ≈Γk≥Gv╥1û)údσ╣u≥ñS╡*è<»ôk╩±√\O┤[UBö|╞(=ΘG═zV?ô+æfni}▄s3)1iτ+ç▓╠zB┬╕═b├Γ┬W╜₧¿╙ù=RÉR√▌╟2√~¬%%ΘMí▄─₧É$<
  48.  
  49. COSELSEIFCALLATN
  50. <0x391c5f5d>*LCOMMON^ASC