home *** CD-ROM | disk | FTP | other *** search
/ Tempra Media / Tempra.iso / access / svgacore.acc (.txt) < prev    next >
AmigaBASIC Source Code  |  1992-11-05  |  16KB  |  60 lines
  1.                                      evarffffc825,varffffc825<0x54>
  2. <0x48>%LOGvarffffc825uvarffffc825Cvarffffc825<0x16866aa>
  3. <0x48>%<0x16866ae>varffffc825REM
  4. <0x48>%INKEY$
  5. <0x48>%}
  6. <0x48>%1
  7. <0x48>%WHILE<0x48>%DATAvarffffc825c
  8. <0x48>%D
  9. <0x48>%5varffffc825WHILE<0x48>%<0x45>varffffe425PRINTvarffffe425<0x59>varffffe425<0x16866e6>
  10. USING%"Σ%╣Σ%áΣ%qΣ%Φ
  11. USING%1varffffe425TAN
  12. USING%LEN
  13. USING%i
  14. <0x168670c>&<0x168670e>
  15. <0x1686710>&1
  16. <0x1686714>&<0x4b>
  17. <0x1686718>&LOC
  18. <0x168671c>&<0x1686720>&w
  19. <0x1686724>&<0x59>
  20. <0x1686728>&M
  21. <0x168672c>&1.99167e-318var0626CHR$
  22. <0x168673c>&NOT
  23. <0x1686740>&[
  24. <0x1686744>&?
  25. <0x1686748>&WEND
  26. <0x168674c>&ivar0626FN
  27. <0x1686754>&IMP                                      <0x168cc19,0x07>0 9916
  28. 9781label1c26Q
  29. 9793
  30. 9745
  31. 9971label1c26}var1c26<0x3b>label1c26plabel1c26ON
  32. 9838
  33. 9761
  34. 9957var1c26FIX
  35. 9976var1c26#label1c26MKL$var1c26Elabel5426w&2
  36. IF&ASC
  37. IF&-&J
  38. IF&&
  39. IF&<0x5e>
  40. <0x60>&EOFvarffffe026vvarffffe026[labelffffe026MODlabelffffe026klabelffffe026OPENvarffffe0264
  41. <0x60>&GOTOvarffffe026CALLvarffffe026jvarffffe026TOlabelffffe026<0x55>varffffe026LINElabelffffe026SGNvarffffe0267labelffffe026&H2e0&<0x4d>varffffe026SINlabelffffe026MODvarffffe0265&Mlabelffffe026"α&?α&$α&    α&ù'                  
  42.  1'4
  43. 1''<0x1686909>1'U<0x168690d>1'-&H1227o11'Q18'351'CLOSE41'<0x5a>81'LINE51'<0x7f>81'/!1'WRITE5.27847e-281'><0x168693d>1'4<0x1686941>1'<0x45>51'Kvar1227c<0x168694d>1'\'<0x45>'2<0x1686959>1'EQV<0x168695d>1'USING<0x1686961>1'<0x45><0x1686965>1'SIN<0x1686969>1'GOSUB<0x168696d>1'CINT<0x1686971>1'g<0x1686975>1'<0x4b><0x1686979>1'VAL<0x168697d>1'GOTO<0x1686981>1'CLOSE<0x1686985>1'<0x5b>&H1227<0x49>&H1227STRING$&H1227MKI$&H1227GOTO&H1227CHR$&H1227_&H1227<&H12274647-<0x16869ad>1'<0x45><0x16869b1>1'LOF<0x16869b5>1't<0x16869b9>1'S<0x16869bd>1'4<0x16869c1>1'var1612'                  '_51'@51'<!1'A304589345                                                                                                                                                           !1'{!1'Z!1' <0x1686a3e>1'INKEY$18'j18'!51'<0x62>41'<0x47>41'LSET                                       <0x62>81'['^var1227k<0x1686a8f>1       1'ELSE<0x1686ac5>1'1'<0x53>11'OPEN11'AND51'INT91'p91'!3046087971'NEXT'o<0x1686aed>1'<0x51>'9.17673e-316<0x1686afd>1'LOF<0x1686b01>1's<0x1686b05>1'LOG<0x1686b09>1'H&H12279&H1227<0xf9,0x00>1'READ<0x1686b19>1'ABS<0x1686b1d>1'_<0x1686b21>1'k51'L51'H!1'M3045924171'f!1'LINElabel2f29COS)<0x1686b44>)<0x1686b48>
  44. /)COS<0x1686b4d>/)<0xf9,0xfffffffb>/)WEND<0x1686b55>/)RND<0x1686b59>/)36645190var2f29GOSUB<0x1686b65>/)y<0x1686b69>/)X<0x1686b6d>/)?<0x1686b71>/)/<0x1686b75>/)8<0x1686b79>/)<<0x1686b7d>/)<0x4a><0x1686b81>/)REM/)ï/)y/)I/)7/)/)/)▀/)┐/)N/)â/)╢/)╫
  45. /)MKS$
  46.                                                                      
  47. /)GOTO)FN<0x1686bfa>/)Q<0x1686bfe>/)NOT)LSET)LOF<0x1686c0a>/)d<0x1686c0e>/)<0x56><0x1686c12>/)^<0x1686c16>/    /)<0x4b>)
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55. UCVI+STR$<0x1686c54>
  56. INPUT<0x48>labelffffbf15STR$'
  57.                                                 7WRITE4CALLAREAlabelffff8e06vk&LOG5<0x1686ca3><0x1686ca4><0x1686ca5><0x50>uCVITO]<0x4b>EXPSTR$'
  58. P+ELSEIFP&<0x7f>6<0x1686cbb><0x1686cbc>&<0x7f>63WRITE4CALLAREAk&<0x7f>6<0x1686cd1><0x1686cd2>&<0x7f>6<0x1686cda><0x7f>vINPUT&H12'CALLAREA<0x1686ce8>COSF<0x7c><0x1686cec>ELSEIFtq=<0x7d><0x7f>u5STR$EXP9INKEY$RPINPUT<0x53>8.86415e-18<0x1686d02>RPSTR$<0x20>O<0EXPCALL~<0x7c><0x7c>u5STR$FIELD9INKEY$RPINPUT<0x53>8.86415e-18<0x1686d1e>RPSTR$LSETO<3EXPSTR$FIX                                                                                  PINPUT<0x53>8.86415e-18<0x1686d6a>RPSTR$MKS$O1352280585WRITE4CALLAREAk&<0x7f>6<0x1686d81><0x1686d82>&<0x7f>67WRITE4CALLAREA<0x1686d8f>STR$<0x7e><0x7f>CVITO]<0x4b>34816ELSE<0x1686d9c>vk&<0x7f>6<0x1686da2><0x1686da3>&<0x7f>6
  59. /)CALLAREA<0x1686db0><0x1686db1>ELSEIFt:STR$FN9INKEY$RPINPUT<0x53>8.86415e-18<0x1686dc2>RPSTR$PRINTO1352280585WRITE4CALLAREAk&<0x7f>6<0x1686dd9><0x1686dda>&<0x7f>67WRITE4CALLAREA<0x1686de7>STR$<0x7d><0x7f>CVITO]<0x4b>+ELSEIFCVITO]<0x4b>3ELSEIFINPUT
  60.