home *** CD-ROM | disk | FTP | other *** search
/ Crazy Collection 1 / CC-01.iso / GAMES_1 / F15 / DATA.A00 / 256PIT.PIC (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1989-05-22  |  5.6 KB  |  37 lines
  1.                                                                                                                                                                                                                                                              <0x33f46692>8P CLNGCALL<0x33f46698>25\COMMONEXPLOCCVLCINT<0x33f466a1>6.17155e-3153b<0x5c>x                                                                      EOF16266&H4912LSET<0x49>FIELD'KLOF\NEXT2a.<0x33f466f4>EXP1lIFCOSvarffffd282&H902ah<0x48>EXPaMKI$CINTLINE39THENCLOSELOF2<@FIXTTAREA<0x33f46717>HABS<0x61>'U<0x33f46721>5)<-ABS<0x53>
  2. <0x4c><0x33f4672a>323904<0x4a>CLNGLOF#>@<0x4a>U3CVL<0x53>LETEXP7TMID$Z4RASCMKI$<0x33f46746>8l<0x50>[SPACE$(<0x33f4674d>SIN<0x33f4674f>FOR6<0x50>INTCLNG @<0x33f4675b>0varffff9202QVAL<0x62>BCINTWENDEXP9xP<0x4b><0x20>MKS$CALLMKI$:c<0x33f46775>SINiGOSUB(LSET<0x33f4677b>j<0x33f4677d>(]@8       CINT!4Q<0x4c>XqASC<0x48>Z\CRNDa8XORATN<0x4d>6CVI64660ABSXH<0x33f467cd><0x4c>5MID$<0x20>6ASCR<0x33f467d5>CDBL235><0x60>9ATN*<0x33f467de>E 0i,CVL:d<0x33f467e7>2 <0x51>
  3. 222n<0x60,0x00>TO148_<0x20>SOUND<0x33f467f8>6^)<0x48>CLOSE/B><0x33f46801><0x60,0x00>AND<0x4f>CLOSE5.46803e-315g                                                                                                                                                        @[      <0x49>varffffd1d9USINGZu<0x5e>Uw1.603e-28label64e1mvarffff9e62<0x33f46898>VALW<0x5f>~1.84092e-314<0x33f468a6>CVDa
  4.  $ONNEXT<0x55>@Q<0x33f468b1>EXPUFORvar6a39<0x20>Tvar0d32<0x50>X!$%HP^varffff8d450<0x5e>var1cbeWbCOMMON.<0x20>xIFCLOSELCVL'd<0x33f468dd>FIELD5<0x50>7varffffd665MKD$<0x58><0x33f468e7>+50<0x60>CVS5*E@CALL<0x54>AFIXATN<0x33f468f6><0x7d>EP!0hNITOFOR<0x48>SINCOS\c<0x33f46906>L>MKD$EXP<0x61>8
  5. &H2450H <0x5f><0x33f46914>ABSn<0x48><0x62><0x33f46919>KTHEN<0x57>^FOR.3IFgSLOGDR<0x59>7{EXP@pYABS<0x49>NEXTEASCIFPUT<0x59>uIFu<0x33f4693d>JF<0x50>D<0x33f46946>E<0x20>8NOTLENoSPACE$<0xfb,0x00>GETsTANjgNEXTTO8@CLNGLET}6<0x5a>a<0x33f4695f><0x20>F@MKS$COMMONLJ<0x20>7label2002<0xfb,0x00>REM,ΩzAx    4¬₧]ôny
  6.                                                                                                                                                                                                 9NOTASCY<0x33f469b6>d<0x33f469b8>-SGNVAL6<0x46>ASCLENFIX<0x4a>I
  7. GETOD`DGET<0x61><0x46><0x5a>THENTAN<0x61>TAN<0x33f469d1>(<0x33f469d3><0x46>CVLCVIOPENLINE<0x33f469d9>v<0x5b>1.34266e-314g,<0x33f469e7><0x61>4^gNEXTCDBL.<0x3b><0x20>LINE2(ZpdXBBCVLMID$C}ABSPUTSPACE$EXP8`<0x5b>WHILELENOPENjlabel01c3;CLNGVAL<0x4e>=6.FOR%R $<0x33f46a19><0x48>ew<0x58>COMMONELSEIF"                                                                                                                                                                                                         3\
  8. RSETCLNG=<0x4d>lASCLINE<0x33f46a5c>c8LETGETVALBATNCLNGei<0x33f46a67><0x33f46a68>GETLOF<0x20>B<0x33f46a6d>UxJ(*i<0x33f46a74><0x33f46a75>WRITE<0x33f46a77>REM╝|╥K]╤╛▓¼ƒA
  9. LOCuON+6=RNDLINE1XABS4<0x4e>GATNmvar0718EXPDATA104324915CVLi*MKD$-<0x51>C<0x33f46aa8>Ytd<0x33f46aac>CDBL<0x57>CDBL<0x49>RSET.<0x7d>EQVREMÇé╝át*IΓ?rC╚Aí|═┴ù╩τA┘▀f ö|äº│█ $▄ª▄ K4╙và
  10.                                                                                                                                                                                                          PUT6&^ATN5.89492e-315<0x33f46b30>STR$<0x7f>EQV<0x4f><0x33f46b35>CVD<0x33f46b37>FIELDIMP<0x33f46b3a>4ELSEIF<0x82,0x00>*(<0x58>.var4cb7i<0x20><0x55><0x33f46b49><0x7f>p^O]=i0ASC<0x33f46b53>eGETUU<0x33f46b58>5<0x20>IFSTR$]nw')$8FOR^SQRRETURNMKS$2EXP^LEFT$EXP<0x4c><0x33f46b6f>8<0x20><0x48>AND-4.16651e-07^&GOSUB0P0|*TANopCDBL0<0x48>1.91161e+30+<0x5e>^+g6WHILE<0x45>ASC<0x33f46b98><0x4c><0x4a>ATNELSEIFTANUSING<0x33f46b9f>@                                                                                                                                                                                                                            STATIC1<0x33f46bd4>(CINT
  11. E label09480ATN0(A<0x33f46be2>IXlabel1314SMKI$SIN<0x55><0x33f46bec>ELMKL$<0x53><0x33f46bf1>*RETURN'$TELSEIFsFIELD<[NEXTLEFT$<0x45>B<0x59><0x33f46c01>N:<0x56>RIGHT$2.00117e-314<0x7f>@@label54009<0x33f46c1a>STR$5L1pAREALy
  12. &*CLNGELSEIF<0x33f46c28>MKD$H<0x33f46c2b>"D░C|éÜPéÉÇ    K°`I@!0aª├ôΘ
  13. <0x33f46c4b>*4READRETURNCHR$/l1.62267e-3149<0x5c>LOC<0x33f46c5f>?ELSEIF<0x47><0x33f46c63><0xfd,0x00>COMMONvarffffb4dfO,ABS3436ABSEOF0A
  14. !DATAMKL$<0x47>64qlabel52b4IU<0x5e>ulabel1394<0x60>ATN8<0x33f46c89>label1a21RETURNA-<0x20>AND`j<9<0x33f46c96>INKEY$THENSTRING$9TAN<0x33f46c9c>CINTDATAQO7.90038e-25>(EOFlabelffffbc1d<0x7e>d8K=<0x52>Ry?STRING$@!NEXT\ASCRETURNRETURNrGOTO59621#k<0x52>
  15. <0x5b>}+&10945                                 CHR$<0x33f46d03><0x4b>X<0x20><0x33f46d07>IF)STATICH
  16. FNRIGHT$'J<0x4e>jMID$<0x33f46d14>NEXTXOR<0x4a><0xbe,0x00>rGOSUBSPACE$&H27fe+W2STATICAREAMID$LEFT$0i@LOG24652<<0x45>>CINT<0x33f46d32>0var04b2MKL$">sö.¢& gσ¬·²)x1seä╕╬Ç≥Qaú╠τ)8┴0"RSETMKI$(QIFO8*RSET1<0x33f46d69>IF<0x61>LINE~MID$<0x4d>\CLNG<0x33f46d72><0x20>FIELD<&TzIMPNEXT^<0xbe,0x00>GOTOFIELDt<0x33f46d85>CLOSE2711216193<0x51>DLOGi6}<0x4a>q]<0x7d><0x4c>&READ
  17. \OPENEXPFhLSETq{J4N<0x60>CDBL#<0x60>0ClLEFT$>WENDjj<0x51>MOD<0x51>IMKI$|"T╜^Θÿ45                                                    <0x62>LOGR7<0x50><0x48>PUTCINT)'<0x7f>RETURNK<0x33f46dff>READ<0x55><0x48><0x33f46e03><0x46>TMKD$<0x33f46e0b>`<0x53>jCVDkiG<
  18. <0x33f46e15>v9                                                                                                                                                                                                      PUT1&H6917WHILE-)32857LOCNEXT<0x54>CVDB<0x62>FORrTGOTO<0x33f46e5d>Nplabel421e LOFABSc42ASCMKI$<0x5c>ABSREM^)Ä!∙è
  19. WHILEg&                                                                                                                                         `FIELD2REM{RTÜM¡µ½▐tδ╘Σ
  20. 9ELSEIFGET<0x33f46ec8>^<0x33f46eca>INKEY$<0x4a>n
  21. COSCVLCALLl;ZXORWEND<0x4b>SGN4e+16730ASC<0x48>7<0x20>SIN<0x56>ASC<0x62><0x33f46ee9>d<0x33f46eeb><0x45><0x5a><0x4e>dh&H1544{CLNG<0x52>55SINCLOSEPUTABS<0x33f46eff>*ELSEIF<0x5d>INTSINOPENSINTOz<0x33f46f09>CALLd+^NOT&6<0x33f46f11>DATA<0x49>ELSEIFEQV56799^GOTONEXT<0x59>WENDABS<0x33f46f20>THEN{var5a09<0x49><0x33f46f27>#PRINT+fLINE<0x4b>varfffff2821PDATAiELSEIFVCVL<0x48>8<0x60>J2<0x20>.i<0x5d>INTV|WHILE`p<0x4c>                                              EXP6:ELSEELSEIFV&Hd95f>Y<0x20>VAL1MKS$ABSbPRINTSGN<0x61>F> <<0x33f46fa2>PRINT`<0x5f>1<0x33f46fa7>STR$\LOF@^*<0x20>M6fABS.<0x61>RSETCVI<0x7d>nMID$MKL$P<0xfd,0x00>!g"$├&╓    
  22. h/╝≡░ΘÜñm▒u|Z╦X9┬?½JB)0'ü|╧╩^ⁿ½₧Cα╚∞▒¡^6ám&AiQf∩é_\X
  23. αä
  24. 5READELSEIFLENGETGASC1CVS
  25. label4288EXPxASC,USING2<0x33f4701f>8<0x49>j^ORLET<0x5e>+&_%X<0x4e>.SPACE$`LEN/LEFT$NOT=w<0x51>OBPATN<0x20>CLOSE<f179y+E>3LOFGET<0x4c>f7+DATAJABSFIXORo\d
  26. GGSQRELSEFOR<0x46>2ODELETE>%<0x58>-labelffff9ee5RETURN<0x33f47067>?<0x3b>var0b30Y<0x54>i&uINT6=<0x47>IFON<0xfd,0x00>PRINTMODGETCVS                                                                                                       USINGTTANEXPLCOMMON6CHR$<0x4a><0x33f470bb>THENINKEY$\ ,LEN42819<0x5b>k<0x33f470c8><0x49>{Q4$<0x5e>43860CTANSGN<0x49>GOSUBAND<0x33f470da>IF-5.72907e+26g9MKS$""P.*ASC<0x3b><0x5b>ACLNG<0x55><0x33f470f0>J1.58309e-25SQR{bO<0x33f470fb>CDBLm=r?<0x5a>EMOD5cMKD$PUT:fYCVL0.USINGGOSUB#                                    /ABSREMƒ;_Ç#yαß.5▒u≡ä[0┘znx²┌mπB║^`µ+Ä⌠╜φO ç
  27. <0x48><0x57><+q<0x33f47179><0x57><0x5c>REMi
  28. ░█┘7NB    (ïÅùO√■4rn₧≤¥ï¢▄*╣╨q^╧₧╓Hw≈╗òù0√T▄╢5╟╕x⌐■±ÖtαΩ?╫zñ╣₧Q₧¿╝┘xN║⌠`f¼j:▀P_╗╖½εv╕ôGà3    ·▄Y}<₧=∩εûx┬
  29.                                                                                                                                            <0x53>|Al6x<0x61>E*XOR@!~09<0x5d>%<0x50>FN<0x3b>RSET\<0x4f>1NOT;<0x4c>CLNG-YSIN/w&INKEY$<0x57><0xe4,0x00>{LETCDBLWHILE<0x55>-LOFgVAL<0x5d>2.11723e-314<REM╒╬"t£δܲ╒=w√╜Σ╛δÄçuû{Ovä¡╛▓û|±}¥Σ╦^∙£»}£îöτ╫=·+{╦}│üY|°4 √^╕∩}É┐=ⁿ╠' L╠O·¥≡^∩(Hÿ@a┬    "lÇT@├└ A╣░aâ├è,\╚
  30. !<0x62>label0815*vMKS$MKS$<0x61>BAREA$2 07hRETURN<0x62><0x33f472e8>+&H3823'LSETEXPAMID$IHH*<0x60>AREAEXPAC<0x4a>GET                                              <
  31. Q"┼Ü/há∙1$çæ                                                                                    <0x49>rlabel4998<0x33f47377>dR<0x20>i2g<0x33f4737e>LEN0xOBJECT.VY7SGN'var0d01<0x33f4738a><0x4a>EMKS$<0x33f4738e>1<0x53>COMMON26WHILEMKS$qONGEXP4=EXP<0x54>zSGN<<0x57>IF<0x33f473a4><0x47>F,INTsMKI$<0x5b>LINEmCLOSECVL-7RETURN ]CVI.6.13687e-06eTWRITEEXPON<0x33f473c1>2083661186MKL$a2FNWENDNEXT<0x61>PRINTSTATICSIN@CHR$ONCDBL+<0x56> B~COMMONGOTOLOFC<0x33f473e2>INPUT<0xa0,0x00><0x33f473e6>VALaw<0x49><0x52><0x33f473ec>kLOF5<0x3b><0x5a>,ZSIN<0x33f473f5> <0x33f473f7>%ZTnTOCALL<0x33f473fe>pW<0x54>COMMONRIGHT$7^<0x33f47406><0x7f>*<0x7e>STATIC>VALlabelffff87e2LSET                                                                                                                                         OPEN<0x5c>"XÖÜ7N√ÿ¡∞╖q ┌╬╛t3┼
  32. }i0Eσìû╒I∞                            A6LRETURN<0x58>MXORA'LEN[F1$CLNGCHR$<0x7c><0x59>TO8.51713e-31541z<0x33f474b1>ONGAL*-RIGHT$THEN9}RETURNSIN5[~var6188INTCINTWENDFIELDCDBL<0x59>ABS!CINTFLEFT$qZLEN7GOSUB~<0x4b>YEXPCLNG<0x33f474dd>)2.07129e-38<0x5a>Ga~<0x33f474e8><0x59><0x58>!C<0x33f474ed><0x56>4 <0x33f474f1><0x33f474f2>n^Az<<0x45>DLSET{1<0x61>USINGCLNGIF-7.86359e+12D05<0x61>CVSFOR<0x55>x[<0x33f4750f>9ZNEXT0GOSUB">┤eë]┘ÿa╒ô¡=W_lORf█¢┐aVÑWfyτq&z╣τTa╓                                                                                                                                                                     ~<0x33f47573>=XINPUTk<0x62><0x57>MKD$@o<0x62>'Tf"Y`¥>Ä°hÉÆz┼τ8╡û
  33. 1<0x45>EXP<0x20>1<0x33f4759b>GETvar511b'WINKEY$DATALSETv7ONMID$s:<0x4a>e@47=*MID$}<0x4a>:<<0x33f475b7>-1877.24LEFT$:I]REMƒ╦ÉfqαA▒ur░*é$+╫▓∩⌡TÇ
  34. MODd@0REMEg-NH¬Σfåw9╒Y▀^ǬhZ[εuΦVZ@@εb
  35. /}<0x55>1INPUT<0x62>COS6>tSTATIC[ELSEIF-<0xbf,0x00>NEXT<0x46><0x62>COS,CLNG<0x4b>a
  36. COS7varffffa3bc53419uGOSUB<0x61><0x3b>h<0x33f4762a><0x60>MKD$Z<0x51>STR$                            WCLNG2LEFT$ 2<0x33f47668>if<0x50>i                                                                                                 7ANDE+k<0x54>AyNOTCLNGVALLET<0x4c>_2<0x33f476b1>CLNG<0x47><0x59>CHR$<0x4c>SMKL$2INPUT|T\LOC6USINGaSQR,[0tLENvar6b5cARND3LOG&AM'18836242084Y2<0x4f><0x33f476dc><0x86,0x00>FIX<0x33f476e0>4.72097e-315<0x46>EXPREAD\5<0x47>|FQA3EXP(P<0x45><0x59><0x33f476fa>IFEXPMOD<0x20>Q#)USING~<0x5a>mPvarffff88d0THENeWENDSIN<0x4b>]NOT].<0x58>ICALLMID$ASCJ7
  37. MKI$var06a4S1xv                                                                                                                                                             8DATA)<0x5f>xABS<0x33f47758>tS
  38. 9<0x4b>6\53659XORPUTA<0x33f47767>*u<0x20>CLNGMID$4.75379e+29<0x33f47772>Da<0x7c>><0x59>GET^EQVREAD;<0x33f4777d>J5WHILE219<0x33f47784>-SPACE$2CLOSE<0xa9,0x00>a[dCLNGlCLNG\n|3HDASC<<0x33f47799>DHaK<0x50>XORREADGLINEGOTOELSE3726503669LEFT$OON<0x51><0x33f477b2>SIN_MID$CLNGU<0x5f>#RIGHT$CDBLCONT#4.25745e-3162147748736NOTPRINTFNSIN<0x49>mvq<0x5f><0x33f477d6>02WRITE<0x5a>4H\<0x47>CVL^<0x52>4ATNvar7f09/n<0x46>CATN<0x7f><0x7e>CLOSE<"ñM'=╔ü¡ `
  39.