home *** CD-ROM | disk | FTP | other *** search
/ Tempra Vision Multimedia / Tempra Vision.iso / access / svgacore.acc (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1992-11-05  |  16.0 KB  |  60 lines
  1.                                      evarffffc825,varffffc825<0x54>
  2. <0x48>%LOGvarffffc825uvarffffc825Cvarffffc825<0x385ae6aa>
  3. <0x48>%<0x385ae6ae>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<0x385ae6e6>
  10. USING%"Σ%╣Σ%áΣ%qΣ%Φ
  11. USING%1varffffe425TAN
  12. USING%LEN
  13. USING%i
  14. <0x385ae70c>&<0x385ae70e>
  15. <0x385ae710>&1
  16. <0x385ae714>&<0x4b>
  17. <0x385ae718>&LOC
  18. <0x385ae71c>&<0x385ae720>&w
  19. <0x385ae724>&<0x59>
  20. <0x385ae728>&M
  21. <0x385ae72c>&1.99167e-318var0626CHR$
  22. <0x385ae73c>&NOT
  23. <0x385ae740>&[
  24. <0x385ae744>&?
  25. <0x385ae748>&WEND
  26. <0x385ae74c>&ivar0626FN
  27. <0x385ae754>&IMP                                      <0x385b4c2c,0x385ad010>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''<0x385ae909>1'U<0x385ae90d>1'-&H1227o11'Q18'351'CLOSE41'<0x5a>81'LINE51'<0x7f>81'/!1'WRITE5.27847e-281'><0x385ae93d>1'4<0x385ae941>1'<0x45>51'Kvar1227c<0x385ae94d>1'\'<0x45>'2<0x385ae959>1'EQV<0x385ae95d>1'USING<0x385ae961>1'<0x45><0x385ae965>1'SIN<0x385ae969>1'GOSUB<0x385ae96d>1'CINT<0x385ae971>1'g<0x385ae975>1'<0x4b><0x385ae979>1'VAL<0x385ae97d>1'GOTO<0x385ae981>1'CLOSE<0x385ae985>1'<0x5b>&H1227<0x49>&H1227STRING$&H1227MKI$&H1227GOTO&H1227CHR$&H1227_&H1227<&H12274647-<0x385ae9ad>1'<0x45><0x385ae9b1>1'LOF<0x385ae9b5>1't<0x385ae9b9>1'S<0x385ae9bd>1'4<0x385ae9c1>1'var1612'                  '_51'@51'<!1'A304589345                                                                                                                                                           !1'{!1'Z!1' <0x385aea3e>1'INKEY$18'j18'!51'<0x62>41'<0x47>41'LSET                                       <0x62>81'['^var1227k<0x385aea8f>1       1'ELSE<0x385aeac5>1'1'<0x53>11'OPEN11'AND51'INT91'p91'!3046087971'NEXT'o<0x385aeaed>1'<0x51>'9.17673e-316<0x385aeafd>1'LOF<0x385aeb01>1's<0x385aeb05>1'LOG<0x385aeb09>1'H&H12279&H1227<0xf9,0x04>1'READ<0x385aeb19>1'ABS<0x385aeb1d>1'_<0x385aeb21>1'k51'L51'H!1'M3045924171'f!1'LINElabel2f29COS)<0x385aeb44>)<0x385aeb48>
  44. /)COS<0x385aeb4d>/)<0xf9,0x08>/)WEND<0x385aeb55>/)RND<0x385aeb59>/)36645190var2f29GOSUB<0x385aeb65>/)y<0x385aeb69>/)X<0x385aeb6d>/)?<0x385aeb71>/)/<0x385aeb75>/)8<0x385aeb79>/)<<0x385aeb7d>/)<0x4a><0x385aeb81>/)REM/)ï/)y/)I/)7/)/)/)▀/)┐/)N/)â/)╢/)╫
  45. /)MKS$
  46.                                                                      
  47. /)GOTO)FN<0x385aebfa>/)Q<0x385aebfe>/)NOT)LSET)LOF<0x385aec0a>/)d<0x385aec0e>/)<0x56><0x385aec12>/)^<0x385aec16>/    /)<0x4b>)
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55. UCVI+STR$<0x385aec54>
  56. INPUT<0x48>labelffffbf15STR$'
  57.                                                 7WRITE4CALLAREAlabelffff8e06vk&LOG5<0x385aeca3><0x385aeca4><0x385aeca5><0x50>uCVITO]<0x4b>EXPSTR$'
  58. P+ELSEIFP&<0x7f>6<0x385aecbb><0x385aecbc>&<0x7f>63WRITE4CALLAREAk&<0x7f>6<0x385aecd1><0x385aecd2>&<0x7f>6<0x385aecda><0x7f>vINPUT&H12'CALLAREA<0x385aece8>COSF<0x7c><0x385aecec>ELSEIFtq=<0x7d><0x7f>u5STR$EXP9INKEY$RPINPUT<0x53>8.86415e-18<0x385aed02>RPSTR$<0x20>O<0EXPCALL~<0x7c><0x7c>u5STR$FIELD9INKEY$RPINPUT<0x53>8.86415e-18<0x385aed1e>RPSTR$LSETO<3EXPSTR$FIX                                                                                  PINPUT<0x53>8.86415e-18<0x385aed6a>RPSTR$MKS$O1352280585WRITE4CALLAREAk&<0x7f>6<0x385aed81><0x385aed82>&<0x7f>67WRITE4CALLAREA<0x385aed8f>STR$<0x7e><0x7f>CVITO]<0x4b>34816ELSE<0x385aed9c>vk&<0x7f>6<0x385aeda2><0x385aeda3>&<0x7f>6
  59. /)CALLAREA<0x385aedb0><0x385aedb1>ELSEIFt:STR$FN9INKEY$RPINPUT<0x53>8.86415e-18<0x385aedc2>RPSTR$PRINTO1352280585WRITE4CALLAREAk&<0x7f>6<0x385aedd9><0x385aedda>&<0x7f>67WRITE4CALLAREA<0x385aede7>STR$<0x7d><0x7f>CVITO]<0x4b>+ELSEIFCVITO]<0x4b>3ELSEIFINPUT
  60.