home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / ascii_table.amos / ascii_table.amosSourceCode
Encoding:
AMOS Source Code  |  1993-01-17  |  5.2 KB  |  200 lines
  1. Rem ASCII Table Utility
  2. '
  3. Do 
  4.    '
  5.    Proc PAGE1
  6.    Wait Key 
  7.    Proc PAGE2
  8.    Wait Key 
  9.    Proc PAGE3
  10.    Wait Key 
  11.    Proc PAGE4
  12.    Wait Key 
  13.    Proc PAGE5
  14.    Wait Key 
  15.    '
  16. Loop 
  17. '
  18. Procedure PAGE1
  19.    '
  20.    Proc HEADER
  21.    Locate 0,5
  22.    '
  23.    For A=0 To 19
  24.       Read S$
  25.       Print A;" "+S$
  26.    Next A
  27.    '
  28.    Locate 0,5
  29.    '
  30.    For A=20 To 39
  31.       Read S$
  32.       Print Tab$;A;" "+S$
  33.    Next A
  34.    '
  35.    Locate 0,5
  36.    '
  37.    For A=40 To 59
  38.       Read S$
  39.       Print Tab$;Tab$;A;" "+S$
  40.    Next A
  41.    '
  42.    Data "  [CTRL]-[@]","  [CTRL]-[A]","  [CTRL]-[B]","  [CTRL]-[C] (Break)","  [CTRL]-[D]"
  43.    Data "  [CTRL]-[E]","  [CTRL]-[F]","  [CTRL]-[G] (Beep)","  [CTRL]-[H] <Backspace>","  [CTRL]-[I] <TAB>"
  44.    Data " [CTRL]-[J] (Linefeed)"," [CTRL]-[K]"," [CTRL]-[L] <Del>"," [CTRL]-[M] <Return>"," [CTRL]-[N]"
  45.    Data " [CTRL]-[O]"," [CTRL]-[P]"," [CTRL]-[Q]"," [CTRL]-[R]"," [CTRL]-[S]"
  46.    Data " [CTRL]-[T]"," [CTRL]-[U]"," [CTRL]-[V]"," [CTRL]-[W]"," [CTRL]-[X]"
  47.    Data " [CTRL]-[Y]"," [CTRL]-[Z]"," [CTRL]-[[] <ESC>"," [CTRL]-[\] <Crsr up>"," [CTRL]-[]] <Crsr down>"
  48.    Data " [CTRL]-[^] <Crsr right>"," [CTRL]-[-] <Crsr left>"," "," !"," "+Chr$(34)
  49.    Data " #"," $"," %"," &"," '"
  50.    Data " ("," )"," *"," +"," ,"
  51.    Data " -"," ."," /"," 0"," 1"
  52.    Data " 2"," 3"," 4"," 5"," 6"
  53.    Data " 7"," 8"," 9"," :"," ;"
  54.    '
  55. End Proc
  56. '
  57. Procedure PAGE2
  58.    '
  59.    Proc HEADER
  60.    Locate 0,5
  61.    '
  62.    For A=60 To 79
  63.       Read S$
  64.       Print A;" "+S$
  65.    Next A
  66.    '
  67.    Locate 0,5
  68.    '
  69.    For A=80 To 99
  70.       Read S$
  71.       Print Tab$;A;" "+S$
  72.    Next A
  73.    '
  74.    Locate 0,5
  75.    '
  76.    For A=100 To 119
  77.       Read S$
  78.       Print Tab$;Tab$;A;" "+S$
  79.    Next A
  80.    '
  81.    Data " <"," ="," >"," ?"," @"
  82.    Data " A"," B"," C"," D"," E"
  83.    Data " F"," G"," H"," I"," J"
  84.    Data " K"," L"," M"," N"," O"
  85.    Data " P"," Q"," R"," S"," T"
  86.    Data " U"," V"," W"," X"," Y"
  87.    Data " Z"," ["," \"," ]"," ^"
  88.    Data " _"," "+Chr$(96)," a"," b"," c"
  89.    Data " d"," e"," f"," g"," h"
  90.    Data " i"," j"," k"," l"," m"
  91.    Data " n"," o"," p"," q"," r"
  92.    Data " s"," t"," u"," v"," w"
  93.    '
  94. End Proc
  95. '
  96. Procedure PAGE3
  97.    '
  98.    Proc HEADER
  99.    Locate 0,5
  100.    '
  101.    For A=120 To 139
  102.       Read S$
  103.       Print A;" "+S$
  104.    Next A
  105.    '
  106.    Locate 0,5
  107.    '
  108.    For A=140 To 159
  109.       Read S$
  110.       Print Tab$;A;" "+S$
  111.    Next A
  112.    '
  113.    Locate 0,5
  114.    '
  115.    For A=160 To 179
  116.       Read S$
  117.       Print Tab$;Tab$;A;" "+S$
  118.    Next A
  119.    '
  120.    Data " x"," y"," z"," {"," |"
  121.    Data " }"," ~"," "+Chr$(127)," "+Chr$(128)," "+Chr$(129)+" <F1>"
  122.    Data " "+Chr$(130)+" <F2>"," "+Chr$(131)+" <F3>"," "+Chr$(132)+" <F4>"," "+Chr$(133)+" <F5>"," "+Chr$(134)+" <F6>"
  123.    Data " "+Chr$(135)+" <F7>"," "+Chr$(136)+" <F8>"," "+Chr$(137)+" <F9>"," "+Chr$(138)+" <F10>"," "+Chr$(139)+" <HELP>"
  124.    Data " "+Chr$(140)," "+Chr$(141)," "+Chr$(142)," "+Chr$(143)," "+Chr$(144)
  125.    Data " "+Chr$(145)," "+Chr$(146)," "+Chr$(147)," "+Chr$(148)," "+Chr$(149)
  126.    Data " "+Chr$(150)," "+Chr$(151)," "+Chr$(152)," "+Chr$(153)," "+Chr$(154)
  127.    Data " "+Chr$(155)," "+Chr$(156)," "+Chr$(157)," "+Chr$(158)," "+Chr$(159)
  128.    Data " "+Chr$(160)," "+Chr$(161)," "+Chr$(162)," "+Chr$(163)," "+Chr$(164)
  129.    Data " "+Chr$(165)," "+Chr$(166)," "+Chr$(167)," "+Chr$(168)," "+Chr$(169)
  130.    Data " "+Chr$(170)," "+Chr$(171)," "+Chr$(172)," "+Chr$(173)," "+Chr$(174)
  131.    Data " "+Chr$(175)," "+Chr$(176)," "+Chr$(177)," "+Chr$(178)," "+Chr$(179)
  132.    '
  133. End Proc
  134. '
  135. Procedure PAGE4
  136.    '
  137.    Proc HEADER
  138.    Locate 0,5
  139.    '
  140.    For A=180 To 199
  141.       Read S$
  142.       Print A;" "+S$
  143.    Next A
  144.    '
  145.    Locate 0,5
  146.    '
  147.    For A=200 To 219
  148.       Read S$
  149.       Print Tab$;A;" "+S$
  150.    Next A
  151.    '
  152.    Locate 0,5
  153.    '
  154.    For A=220 To 239
  155.       Read S$
  156.       Print Tab$;Tab$;A;" "+S$
  157.    Next A
  158.    '
  159.    Data " "+Chr$(180)," "+Chr$(181)," "+Chr$(182)," "+Chr$(183)," "+Chr$(184)
  160.    Data " "+Chr$(185)," "+Chr$(186)," "+Chr$(187)," "+Chr$(188)," "+Chr$(189)
  161.    Data " "+Chr$(190)," "+Chr$(191)," "+Chr$(192)," "+Chr$(193)," "+Chr$(194)
  162.    Data " "+Chr$(195)," "+Chr$(196)," "+Chr$(197)," "+Chr$(198)," "+Chr$(199)
  163.    Data " "+Chr$(200)," "+Chr$(201)," "+Chr$(202)," "+Chr$(203)," "+Chr$(204)
  164.    Data " "+Chr$(205)," "+Chr$(206)," "+Chr$(207)," "+Chr$(208)," "+Chr$(209)
  165.    Data " "+Chr$(210)," "+Chr$(211)," "+Chr$(212)," "+Chr$(213)," "+Chr$(214)
  166.    Data " "+Chr$(215)," "+Chr$(216)," "+Chr$(217)," "+Chr$(218)," "+Chr$(219)
  167.    Data " "+Chr$(220)," "+Chr$(221)," "+Chr$(222)," "+Chr$(223)," "+Chr$(224)
  168.    Data " "+Chr$(225)," "+Chr$(226)," "+Chr$(227)," "+Chr$(228)," "+Chr$(229)
  169.    Data " "+Chr$(230)," "+Chr$(231)," "+Chr$(232)," "+Chr$(233)," "+Chr$(234)
  170.    Data " "+Chr$(235)," "+Chr$(236)," "+Chr$(237)," "+Chr$(238)," "+Chr$(239)
  171.    '
  172. End Proc
  173. '
  174. Procedure PAGE5
  175.    '
  176.    Proc HEADER
  177.    Locate 0,5
  178.    '
  179.    For A=240 To 255
  180.       Read S$
  181.       Print A;" "+S$
  182.    Next A
  183.    '
  184.    Data " "+Chr$(240)," "+Chr$(241)," "+Chr$(242)," "+Chr$(243)," "+Chr$(244)
  185.    Data " "+Chr$(245)," "+Chr$(246)," "+Chr$(247)," "+Chr$(248)," "+Chr$(249)
  186.    Data " "+Chr$(250)," "+Chr$(251)," "+Chr$(252)," "+Chr$(253)," "+Chr$(254)
  187.    Data " "+Chr$(255)
  188.    '
  189. End Proc
  190. '
  191. Procedure HEADER
  192.    '
  193.    Screen Open 0,640,256,16,Hires
  194.    Flash Off : Curs Off : Paper 0 : Cls : Hide : Set Tab 34
  195.    Locate 0,1 : Pen 4 : Centre "ASCII Reference Table"
  196.    Locate 0,2 : Centre "---------------------"
  197.    Locate 0,27 : Centre "< Any key cycles pages >"
  198.    Pen 2
  199.    '
  200. End Proc