home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 3 / MA_Cover_3.iso / maksiu / extensions / maxsdhext_v0.2.lha / Test.AMOS / Test.amosSourceCode
Encoding:
AMOS Source Code  |  1994-09-13  |  2.1 KB  |  90 lines
  1. A= Extension_16_0006(0)
  2. '
  3. A= Extension_16_002A(Chr$(12)+Chr$(13)+"PortOpen at Address = "+Hex$(A,8)+Chr$(13))
  4. Wait 50
  5. '
  6. A= Extension_16_003A("Local Text"+Chr$(13))
  7. Wait 50
  8. '
  9. A= Extension_16_004C(Asc("M"))
  10. A= Extension_16_002A(Chr$(13)+"ModemChar = "+Str$(A)+Chr$(13))
  11. Wait 50
  12. '
  13. A= Extension_16_005E(Asc("S"))
  14. A= Extension_16_002A(Chr$(13)+"ScreenChar = "+Str$(A)+Chr$(13))
  15. Wait 50
  16. '
  17. A= Extension_16_0072(Asc("B"))
  18. A= Extension_16_002A(Chr$(13)+"BBSChar = "+Str$(A)+Chr$(13))
  19. Wait 50
  20. '
  21. I$=Space$(8)
  22. A= Extension_16_0082(Chr$(13)+"PROMPT = ",I$)
  23. A= Extension_16_002A(I$+Chr$(13))
  24. Wait 50
  25. '
  26. I$=Space$(5)
  27. A= Extension_16_0098(Chr$(13)+"SPROMPT = ",I$)
  28. A= Extension_16_002A(I$+Chr$(13))
  29. Wait 50
  30. '
  31. I$=Space$(8)
  32. A= Extension_16_00AE(Chr$(13)+"GETCHAR = ",I$)
  33. A= Extension_16_002A(I$+Chr$(13))
  34. For I=1 To Len(I$)
  35.   A= Extension_16_002A("Byte"+Str$(I)+" = "+Str$(Asc(Mid$(I$,I,1)))+"  ")
  36. Next I
  37. Wait 50
  38. A= Extension_16_00AE(Chr$(13)+"Hit a key to continue...",I$)
  39. '
  40. F$="BBS:Text/Esc.text"
  41. A= Extension_16_00D0(F$)
  42. A= Extension_16_002A(Chr$(13)+"ShowFile = "+Str$(A))
  43. Wait 50
  44. '
  45. A= Extension_16_00E2(F$)
  46. A= Extension_16_002A(Chr$(13)+"CheckFile = "+Str$(A))
  47. Wait 50
  48. '
  49. A= Extension_16_00F4(F$)
  50. A= Extension_16_002A(Chr$(13)+"EditFile = "+Str$(A))
  51. Wait 50
  52. '
  53. A= Extension_16_0106(1)
  54. A= Extension_16_002A(Chr$(13)+"GetUserNum = "+Str$(A))
  55. Wait 50
  56. '
  57. U$="This is a blank string that should hopefully be written over"
  58. A= Extension_16_011A(2,U$)
  59. A= Extension_16_002A(Chr$(13)+"Your Password = "+U$)
  60. Wait 50
  61. '
  62. A= Extension_16_0130(9999)
  63. A= Extension_16_0106(1)
  64. A= Extension_16_002A(Chr$(13)+"NewAccess = "+Str$(A))
  65. Wait 50
  66. '
  67. A= Extension_16_0106(7)
  68. A= Extension_16_002A(Chr$(13)+"Minutes Left = "+Str$(A))
  69. A= Extension_16_0142(20)
  70. A= Extension_16_0106(7)
  71. A= Extension_16_002A(Chr$(13)+"Adding 20 minutes:  Minutes now Left = "+Str$(A))
  72. Wait 100
  73. '
  74. A= Extension_16_002A(Chr$(13)+"Doing MAXS List Files function!!!"+Chr$(13))
  75. Wait 100
  76. A$="    "
  77. A= Extension_16_0152(20,100,A$)
  78. Wait 50
  79. '
  80. '
  81. A= Extension_16_002A(Chr$(12)+"Hit a KEY to Finish!"+Chr$(13))
  82. '
  83. K=0
  84. While K=0
  85.   K= Extension_16_0184 
  86. Wend 
  87. A= Extension_16_002A("Key = "+Hex$(K,8))
  88. Wait 50
  89. '
  90.  Extension_16_0018