home *** CD-ROM | disk | FTP | other *** search
/ Network CD 1 / Network CD.iso / term / scripts / scriptdemo.scp < prev    next >
Encoding:
Text File  |  1993-07-05  |  19.7 KB  |  1,040 lines
  1. /* $VER: Terminus 2.0 - ScriptDemo.scp (03.07.93) */
  2.  
  3. /*
  4. ** Copyright (C) 1992-3, John P. Radigan, All Rights Reserved, Worldwide.
  5. **
  6. **    This script demonstrates most all commands and functions present
  7. ** in the Terminus script language.
  8. **
  9. */
  10.  
  11.    display = 8 color 24 80
  12.    palette = color
  13.    titlebar = off
  14.    titlestatus = off
  15.  
  16. top:
  17.  
  18.    tpen = 2
  19.    bpen = 6
  20.    cls
  21.  
  22.    print local " ScriptDemo menu\n ---------------"
  23.    print local "  1. Operator precedence."
  24.    print local "  2. Integer functions."
  25.    print local "  3. String functions."
  26.    print local "  4. FOR loop."
  27.    print local "  5. WHILE loop."
  28.    print local "  6. REPEAT loop."
  29.    print local "  7. 200 GOTO's."
  30.    print local "  8. ONCARRIER, ONMOUSE and ONTIMEOUT."
  31.    print local "  9. CLRRECT, CLRLINE, INVLINE and GETLINE$."
  32.    print local "  A. GETINT, GETSTRING."
  33.    print local "  B. TIMER, DATE$, TIME$, TRACE."
  34.    print local "  0. Exit."
  35.    ask local "\n  Enter number to perform ", i$
  36.  
  37.    if i$ == "1"
  38.       gosub oporder
  39.       goto top
  40.    endif
  41.  
  42.    if i$ == "2"
  43.       gosub ifuncdemo
  44.       goto top
  45.    endif
  46.  
  47.    if i$ == "3"
  48.       gosub sfuncdemo
  49.       goto top
  50.    endif
  51.  
  52.    if i$ == "4"
  53.       gosub fordemo
  54.       goto top
  55.    endif
  56.  
  57.    if i$ == "5"
  58.       gosub whiledemo
  59.       goto top
  60.    endif
  61.  
  62.    if i$ == "6"
  63.       gosub repeatdemo
  64.       goto top
  65.    endif
  66.  
  67.    if i$ == "7"
  68.       gosub gotodemo
  69.       goto top
  70.    endif
  71.  
  72.    if i$ == "8"
  73.       gosub ondemo
  74.       goto top
  75.    endif
  76.  
  77.    if i$ == "9"
  78.       gosub linedemo
  79.       goto top
  80.    endif
  81.  
  82.    if i$ == "A" OR i$ == "a"
  83.       gosub getdemo
  84.       goto top
  85.    endif
  86.  
  87.    if i$ == "B" OR i$ == "b"
  88.       gosub datedemo
  89.       goto top
  90.    endif
  91.  
  92.    if i$ == "0"
  93.       cls
  94.       end
  95.    endif
  96.  
  97.    print local "\nUnknown menu item."
  98.    pause 1
  99.    goto top
  100.  
  101. oporder:
  102.    cls
  103.    print local " The following shows the expression to be passed to the parser, the"
  104.    print local "correct answer and the parser result.\n"
  105.    print local "-8 * 3 + 4 * 7 = 4",,,                -8 * 3 + 4 * 7 
  106.    print local "36 / 4 * 7 + 1 = 64",,,               36 / 4 * 7 + 1 
  107.    print local "10 - 6 * -2 - 5 = 17",,,              10 - 6 * -2 - 5 
  108.    print local "((((3 * 6) / 4) % 5) + 7) * 8 = 88",  ((((3 * 6) / 4) % 5) + 7) * 8
  109.    print local "80 / (-7 - 3) * 3 = -24",,,           80 / (-7 - 3) * 3 
  110.    gosub anykey
  111.    print local " The following show logical expression results in the same format.\n"
  112.    print local "10 != 12 = 1",,,                10 != 12
  113.    print local "10 AND 8 = 8",,,                10 AND 8
  114.    print local "10 OR 5 = 15",,,                10 OR 5 
  115.    print local "9 XOR 8 = 1",,,                 9 XOR 8
  116.    print local "3 XOR NOT 6 AND 15 = 10",,      3 XOR NOT 6 AND 15
  117.  
  118.    gosub anykey
  119.  
  120.    print local " And now for a mixed conditional, the expression to be evaluated is:\n"
  121.    print local "   \"string\" != \"String\" AND 12 < 24 AND (7 == (NOT 7) OR 14 == (7 * 2))\n"
  122.  
  123.    if "string" != "String" AND 12 < 24 AND (7 == (NOT 7) OR 14 == (7 * 2))
  124.       print local "Expression evaluated as TRUE."
  125.    else
  126.       print local "Expression evaluated as false."
  127.    endif
  128.  
  129.    goto anykey
  130.  
  131. fordemo:
  132.    cls
  133.    i = 0
  134.    j = 0
  135.  
  136.    print local "FOR I = 1 TO 20 demo...\n"
  137.  
  138.    for i = 1 to 20
  139.       print local " "; i;
  140.    next
  141.    print local
  142.  
  143.    gosub anykey
  144.    print local "FOR I = 1 TO 20 STEP 2 demo...\n"
  145.  
  146.    for i = 1 to 20 step 2
  147.       print local " "; i;
  148.    next
  149.    print local
  150.  
  151.    gosub anykey
  152.    print local "FOR I = 20 TO 0 STEP -2 demo...\n"
  153.  
  154.    for i = 20 to 0 step -2
  155.       print local " "; i;
  156.    next
  157.    print local
  158.  
  159.    gosub anykey
  160.    print local "NESTED FOR demo...\n"
  161.  
  162.    for i = 1 to 10
  163.       for j = 1 to 10
  164.          print local " "; i;
  165.       next
  166.       print local
  167.    next
  168.  
  169.    goto anykey
  170.  
  171. whiledemo:
  172.    cls
  173.    print local "WHILE loop conditional.\n"
  174.    i = 0
  175.  
  176.    while i < 10
  177.       i = i + 1
  178.       print local " "; i;
  179.    wend
  180.    print local
  181.    goto anykey
  182.  
  183. repeatdemo:
  184.    cls
  185.    print local "REPEAT loop conditional.\n"
  186.    i = 0
  187.  
  188.    repeat
  189.       i = i + 1
  190.       print local " "; i;
  191.    until i < 10
  192.    print local
  193.    goto anykey
  194.  
  195. ifuncdemo:
  196.    cls
  197.    print local "ABS().\n"
  198.    print local "The absolute value of 30 - 50 is: ", ABS(30 - 50)
  199.    gosub anykey
  200.    print local "ASC().\n"
  201.    print local "ASCII value of the character 'A': ", ASC("A")
  202.    gosub anykey
  203.    print local "INSTR(), variation 1.\n"
  204.    print local "The position of substring TESTER in string SUBTEST is: ", INSTR("SUBTEST", "TESTER")
  205.    gosub anykey
  206.    print local "INSTR(), variation 2.\n"
  207.    print local "The position of substring TEST in string SUBTESTERED is: ", INSTR(2, "SUBTESTERED", "TEST")
  208.    gosub anykey
  209.    print local "INSTR(), variation 3.\n"
  210.    print local "The position of substring TEST in string SUBTEST is: ", INSTR("SUBTEST", "TEST")
  211.    gosub anykey
  212.    print local "LEN().\n"
  213.    print local "The length of string LONGSTRING is: ", LEN("LONGSTRING")
  214.    gosub anykey
  215.    print local "VAL().\n"
  216.    print local "The value of string 234 is: ", val("234")
  217.    goto anykey
  218.  
  219. sfuncdemo:
  220.    cls
  221.    print local "CHR$().\n"
  222.    print local "The character for ASCII value 65 is: ", chr$(65)
  223.    gosub anykey
  224.    print local "LEFT$().\n"
  225.    print local "The leftmost 5 characters of TESTSTRING is: ", left$("TESTSTRING", 5)
  226.    gosub anykey
  227.    print local "LOWER$().\n"
  228.    print local "The lowercase version of TESTSTRING is: ", lower$("TESTSTRING")
  229.    gosub anykey
  230.    print local "MID$().\n"
  231.    print local "The 5 char string starting at position 5 of TESTSTRING is: ", mid$("TESTSTRING", 5, 5)
  232.    gosub anykey
  233.    print local "RIGHT$().\n"
  234.    print local "The rightmost 5 characters of TESTSTRING is: ", right$("TESTSTRING", 5)
  235.    gosub anykey
  236.    print local "SPACE$().\n"
  237.    print local "The length of SPACE$(10) is: ", len(space$(10))
  238.    gosub anykey
  239.    print local "STR$().\n"
  240.    print local "The string of the value 234 is: ", str$(234)
  241.    gosub anykey
  242.    print local "TRIM$().\n"
  243.    print local "The trimmed length of \"TESTSTRING   \" is: ", len(trim$("TESTSTRING   "))
  244.    gosub anykey
  245.    print local "UPPER$().\n"
  246.    print local "The uppercase version of teststring is: ", upper$("teststring")
  247.    goto anykey
  248.  
  249. ondemo:
  250.    cls
  251.    print local "   The ONCARRIER demo requires a modem to be attached to the serial port and"
  252.    print local "to be able to set carrier with the command AT&C0.  The modem will then be"
  253.    print local "sent the command ATZ to reset the modem and drop carrier which will result"
  254.    print local "in the ONCARRIER command being executed.\n"
  255.    ask local "Continue [Y]/n? ", i$
  256.    print local
  257.  
  258.    if trim$(upper$(i$)) == "N"
  259.       goto ondemo1
  260.    endif
  261.    oncarrier
  262.    ontimeout goto no_modem
  263.    send "at&c0^m"
  264.    wait 3, "OK"
  265.    ontimeout
  266.    oncarrier goto dcd
  267.    wait 1
  268.    send "atz^m"
  269.    wait 3
  270.    print local "ONCARRIER failed test.\n"
  271.    goto ondemo1
  272.    
  273. no_modem:
  274.    print local "Modem didn't respond, skipping test.\n"   
  275.    goto ondemo1
  276.  
  277. dcd:
  278.    wait 1
  279.    print local "ONCARRIER passed test.\n"
  280.  
  281. ondemo1:
  282.    oncarrier
  283.    gosub anykey
  284.    cls
  285.    print local "   The ONMOUSE demo will show an '@' at the location where the mouse pointer"
  286.    print local "is at when you click the left mouse button.\n"
  287.    onmouse goto mouseclick
  288.    print local "Move mouse and click left button when ready\n"
  289.    wait 10
  290.    print local "ONMOUSE failed.\n"
  291.    goto ondemo2
  292.  
  293. mouseclick:
  294.    print local "Mouse row: " mrow " Mouse col: " mcol "\n"
  295.    srow = row
  296.    scol = col
  297.    move mrow, mcol
  298.    bpen = 5
  299.    print local "@"
  300.    bpen = 6
  301.    move srow, scol
  302.  
  303. ondemo2:
  304.    onmouse
  305.    gosub anykey
  306.    cls
  307.    print local "   The ONTIMEOUT demo will issue a WAIT command for one second, results will"
  308.    print local "be posted below.\n"
  309.    ontimeout goto gottimeout
  310.    wait 1
  311.    print local "ONTIMEOUT failed."
  312.    goto ondemo3
  313.    
  314. gottimeout:
  315.    print local "ONTIMEOUT passed."
  316.  
  317. ondemo3:
  318.    ontimeout
  319.    goto anykey
  320.  
  321. linedemo:
  322.    cls
  323.    print local "\n   The following demo will fill rows 10 through 22 with the letter 'E' and"
  324.    print local "then clear a rectangle to red starting at position 11, 21 to 21, 58.\n"
  325.    move 9, 1
  326.    tpen = 1
  327.    bpen = 7
  328.    for i = 1 to 80
  329.       print local i % 10;
  330.    next
  331.    tpen = 2
  332.    bpen = 6
  333.    print local
  334.    move 10, 1
  335.    for i = 10 to 22
  336.       move i, 1
  337.       print local "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
  338.    next
  339.    tpen = 1
  340.    bpen = 7
  341.    for i = 10 to 22
  342.       move i, 1
  343.       print local i;
  344.    next
  345.    print local
  346.    bpen = 3
  347.    clrrect 11, 21, 21, 58
  348.    tpen = 2
  349.    bpen = 6
  350.    gosub anykey
  351.  
  352.    cls
  353.    print local "   The CLRLINE demo will print a line of 'E' characters at row 4 and will clear"
  354.    print local "a 20 character section starting at column 40 to red.\n"
  355.    move 6, 1
  356.    for i = 1 to 80
  357.       print local i % 10;
  358.    next
  359.    move 7, 1
  360.    print local "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
  361.    move 7, 40
  362.    bpen = 3
  363.    clrline 20
  364.    bpen = 6
  365.    move 9, 1
  366.    gosub anykey
  367.  
  368.    cls
  369.    print local "   The INVLINE demo will print a line of 'E' characters at line 4 in inverse"
  370.    print local "colors then will reinvert a 20 character section starting at column 30.\n"
  371.    move 6, 1
  372.    for i = 1 to 80
  373.       print local i % 10;
  374.    next
  375.    move 7, 1
  376.    tpen = 1
  377.    bpen = 15
  378.    print local "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
  379.    tpen = 7
  380.    bpen = 1
  381.    move 7, 30
  382.    invline 20
  383.    move 9, 1
  384.    tpen = 2
  385.    bpen = 6
  386.    gosub anykey
  387.  
  388.    cls
  389.    print local "   The GETLINE$() demo lists some sample files and then inverts the middle line."
  390.    print local "The same line will be printed below the list to indicate that the GETLINE$()"
  391.    print local "worked.\n"
  392.    move 8,1
  393.    print local "      FILENAME       DATE     SIZE"
  394.    print local "      ----------------------------"
  395.    print local "      test.LZH       1/2/89   72323"
  396.    print local "      PIC.ZIP        2/12/90  23232"
  397.    print local "      DOC.ARC        12/30/91 97687"
  398.    move 11, 1
  399.    invline
  400.    test$ = getline$(11)
  401.    move 15, 1
  402.    print local test$
  403.    goto anykey
  404.  
  405. getdemo:
  406.    cls
  407.    x$ = "Sample string"
  408.    print local "GETSTRING Demo."
  409.    GETSTRING "GETSTRING Demo", x$
  410.    print local "you entered: "; x$
  411.    x = 500
  412.    GETINT "GETINT Demo", x, 100, 1000
  413.    print local "you entered: "; x
  414.    goto anykey
  415.  
  416. datedemo:
  417.    cls
  418.    print local "TRACE, DATE$, TIME$ and TIMER demo."
  419.    TRACE = ON
  420.    print local "Current timer value is: "; TIMER
  421.    print local "Setting timer value to 86399"
  422.    TIMER = 86399
  423.    print local "Today's date is: "; DATE$
  424.    print local "The current time is: "; TIME$
  425.    TRACE = OFF
  426.    goto anykey
  427.  
  428. gotodemo:
  429.  
  430.    cls
  431.    print local "   This demo does 200 consecutive GOTO commands in a worst case situation.\n"
  432.    goto start
  433. start200:
  434.    goto anykey
  435. start199:
  436.    print local "10"
  437.    goto start200
  438. start198:
  439.    print local "9 ";
  440.    goto start199
  441. start197:
  442.    print local "8 ";
  443.    goto start198
  444. start196:
  445.    print local "7 ";
  446.    goto start197
  447. start195:
  448.    print local "6 ";
  449.    goto start196
  450. start194:
  451.    print local "5 ";
  452.    goto start195
  453. start193:
  454.    print local "4 ";
  455.    goto start194
  456. start192:
  457.    print local "3 ";
  458.    goto start193
  459. start191:
  460.    print local "2 ";
  461.    goto start192
  462. start190:
  463.    print local "1 ";
  464.    goto start191
  465. start189:
  466.    print local "10"
  467.    goto start190
  468. start188:
  469.    print local "9 ";
  470.    goto start189
  471. start187:
  472.    print local "8 ";
  473.    goto start188
  474. start186:
  475.    print local "7 ";
  476.    goto start187
  477. start185:
  478.    print local "6 ";
  479.    goto start186
  480. start184:
  481.    print local "5 ";
  482.    goto start185
  483. start183:
  484.    print local "4 ";
  485.    goto start184
  486. start182:
  487.    print local "3 ";
  488.    goto start183
  489. start181:
  490.    print local "2 ";
  491.    goto start182
  492. start180:
  493.    print local "1 ";
  494.    goto start181
  495. start179:
  496.    print local "10"
  497.    goto start180
  498. start178:
  499.    print local "9 ";
  500.    goto start179
  501. start177:
  502.    print local "8 ";
  503.    goto start178
  504. start176:
  505.    print local "7 ";
  506.    goto start177
  507. start175:
  508.    print local "6 ";
  509.    goto start176
  510. start174:
  511.    print local "5 ";
  512.    goto start175
  513. start173:
  514.    print local "4 ";
  515.    goto start174
  516. start172:
  517.    print local "3 ";
  518.    goto start173
  519. start171:
  520.    print local "2 ";
  521.    goto start172
  522. start170:
  523.    print local "1 ";
  524.    goto start171
  525. start169:
  526.    print local "10"
  527.    goto start170
  528. start168:
  529.    print local "9 ";
  530.    goto start169
  531. start167:
  532.    print local "8 ";
  533.    goto start168
  534. start166:
  535.    print local "7 ";
  536.    goto start167
  537. start165:
  538.    print local "6 ";
  539.    goto start166
  540. start164:
  541.    print local "5 ";
  542.    goto start165
  543. start163:
  544.    print local "4 ";
  545.    goto start164
  546. start162:
  547.    print local "3 ";
  548.    goto start163
  549. start161:
  550.    print local "2 ";
  551.    goto start162
  552. start160:
  553.    print local "1 ";
  554.    goto start161
  555. start159:
  556.    print local "10"
  557.    goto start160
  558. start158:
  559.    print local "9 ";
  560.    goto start159
  561. start157:
  562.    print local "8 ";
  563.    goto start158
  564. start156:
  565.    print local "7 ";
  566.    goto start157
  567. start155:
  568.    print local "6 ";
  569.    goto start156
  570. start154:
  571.    print local "5 ";
  572.    goto start155
  573. start153:
  574.    print local "4 ";
  575.    goto start154
  576. start152:
  577.    print local "3 ";
  578.    goto start153
  579. start151:
  580.    print local "2 ";
  581.    goto start152
  582. start150:
  583.    print local "1 ";
  584.    goto start151
  585. start149:
  586.    print local "10"
  587.    goto start150
  588. start148:
  589.    print local "9 ";
  590.    goto start149
  591. start147:
  592.    print local "8 ";
  593.    goto start148
  594. start146:
  595.    print local "7 ";
  596.    goto start147
  597. start145:
  598.    print local "6 ";
  599.    goto start146
  600. start144:
  601.    print local "5 ";
  602.    goto start145
  603. start143:
  604.    print local "4 ";
  605.    goto start144
  606. start142:
  607.    print local "3 ";
  608.    goto start143
  609. start141:
  610.    print local "2 ";
  611.    goto start142
  612. start140:
  613.    print local "1 ";
  614.    goto start141
  615. start139:
  616.    print local "10"
  617.    goto start140
  618. start138:
  619.    print local "9 ";
  620.    goto start139
  621. start137:
  622.    print local "8 ";
  623.    goto start138
  624. start136:
  625.    print local "7 ";
  626.    goto start137
  627. start135:
  628.    print local "6 ";
  629.    goto start136
  630. start134:
  631.    print local "5 ";
  632.    goto start135
  633. start133:
  634.    print local "4 ";
  635.    goto start134
  636. start132:
  637.    print local "3 ";
  638.    goto start133
  639. start131:
  640.    print local "2 ";
  641.    goto start132
  642. start130:
  643.    print local "1 ";
  644.    goto start131
  645. start129:
  646.    print local "10"
  647.    goto start130
  648. start128:
  649.    print local "9 ";
  650.    goto start129
  651. start127:
  652.    print local "8 ";
  653.    goto start128
  654. start126:
  655.    print local "7 ";
  656.    goto start127
  657. start125:
  658.    print local "6 ";
  659.    goto start126
  660. start124:
  661.    print local "5 ";
  662.    goto start125
  663. start123:
  664.    print local "4 ";
  665.    goto start124
  666. start122:
  667.    print local "3 ";
  668.    goto start123
  669. start121:
  670.    print local "2 ";
  671.    goto start122
  672. start120:
  673.    print local "1 ";
  674.    goto start121
  675. start119:
  676.    print local "10"
  677.    goto start120
  678. start118:
  679.    print local "9 ";
  680.    goto start119
  681. start117:
  682.    print local "8 ";
  683.    goto start118
  684. start116:
  685.    print local "7 ";
  686.    goto start117
  687. start115:
  688.    print local "6 ";
  689.    goto start116
  690. start114:
  691.    print local "5 ";
  692.    goto start115
  693. start113:
  694.    print local "4 ";
  695.    goto start114
  696. start112:
  697.    print local "3 ";
  698.    goto start113
  699. start111:
  700.    print local "2 ";
  701.    goto start112
  702. start110:
  703.    print local "1 ";
  704.    goto start111
  705. start109:
  706.    print local "10"
  707.    goto start110
  708. start108:
  709.    print local "9 ";
  710.    goto start109
  711. start107:
  712.    print local "8 ";
  713.    goto start108
  714. start106:
  715.    print local "7 ";
  716.    goto start107
  717. start105:
  718.    print local "6 ";
  719.    goto start106
  720. start104:
  721.    print local "5 ";
  722.    goto start105
  723. start103:
  724.    print local "4 ";
  725.    goto start104
  726. start102:
  727.    print local "3 ";
  728.    goto start103
  729. start101:
  730.    print local "2 ";
  731.    goto start102
  732. start100:
  733.    print local "1 ";
  734.    goto start101
  735. start99:
  736.    print local "10"
  737.    goto start100
  738. start98:
  739.    print local "9 ";
  740.    goto start99
  741. start97:
  742.    print local "8 ";
  743.    goto start98
  744. start96:
  745.    print local "7 ";
  746.    goto start97
  747. start95:
  748.    print local "6 ";
  749.    goto start96
  750. start94:
  751.    print local "5 ";
  752.    goto start95
  753. start93:
  754.    print local "4 ";
  755.    goto start94
  756. start92:
  757.    print local "3 ";
  758.    goto start93
  759. start91:
  760.    print local "2 ";
  761.    goto start92
  762. start90:
  763.    print local "1 ";
  764.    goto start91
  765. start89:
  766.    print local "10"
  767.    goto start90
  768. start88:
  769.    print local "9 ";
  770.    goto start89
  771. start87:
  772.    print local "8 ";
  773.    goto start88
  774. start86:
  775.    print local "7 ";
  776.    goto start87
  777. start85:
  778.    print local "6 ";
  779.    goto start86
  780. start84:
  781.    print local "5 ";
  782.    goto start85
  783. start83:
  784.    print local "4 ";
  785.    goto start84
  786. start82:
  787.    print local "3 ";
  788.    goto start83
  789. start81:
  790.    print local "2 ";
  791.    goto start82
  792. start80:
  793.    print local "1 ";
  794.    goto start81
  795. start79:
  796.    print local "10"
  797.    goto start80
  798. start78:
  799.    print local "9 ";
  800.    goto start79
  801. start77:
  802.    print local "8 ";
  803.    goto start78
  804. start76:
  805.    print local "7 ";
  806.    goto start77
  807. start75:
  808.    print local "6 ";
  809.    goto start76
  810. start74:
  811.    print local "5 ";
  812.    goto start75
  813. start73:
  814.    print local "4 ";
  815.    goto start74
  816. start72:
  817.    print local "3 ";
  818.    goto start73
  819. start71:
  820.    print local "2 ";
  821.    goto start72
  822. start70:
  823.    print local "1 ";
  824.    goto start71
  825. start69:
  826.    print local "10"
  827.    goto start70
  828. start68:
  829.    print local "9 ";
  830.    goto start69
  831. start67:
  832.    print local "8 ";
  833.    goto start68
  834. start66:
  835.    print local "7 ";
  836.    goto start67
  837. start65:
  838.    print local "6 ";
  839.    goto start66
  840. start64:
  841.    print local "5 ";
  842.    goto start65
  843. start63:
  844.    print local "4 ";
  845.    goto start64
  846. start62:
  847.    print local "3 ";
  848.    goto start63
  849. start61:
  850.    print local "2 ";
  851.    goto start62
  852. start60:
  853.    print local "1 ";
  854.    goto start61
  855. start59:
  856.    print local "10"
  857.    goto start60
  858. start58:
  859.    print local "9 ";
  860.    goto start59
  861. start57:
  862.    print local "8 ";
  863.    goto start58
  864. start56:
  865.    print local "7 ";
  866.    goto start57
  867. start55:
  868.    print local "6 ";
  869.    goto start56
  870. start54:
  871.    print local "5 ";
  872.    goto start55
  873. start53:
  874.    print local "4 ";
  875.    goto start54
  876. start52:
  877.    print local "3 ";
  878.    goto start53
  879. start51:
  880.    print local "2 ";
  881.    goto start52
  882. start50:
  883.    print local "1 ";
  884.    goto start51
  885. start49:
  886.    print local "10"
  887.    goto start50
  888. start48:
  889.    print local "9 ";
  890.    goto start49
  891. start47:
  892.    print local "8 ";
  893.    goto start48
  894. start46:
  895.    print local "7 ";
  896.    goto start47
  897. start45:
  898.    print local "6 ";
  899.    goto start46
  900. start44:
  901.    print local "5 ";
  902.    goto start45
  903. start43:
  904.    print local "4 ";
  905.    goto start44
  906. start42:
  907.    print local "3 ";
  908.    goto start43
  909. start41:
  910.    print local "2 ";
  911.    goto start42
  912. start40:
  913.    print local "1 ";
  914.    goto start41
  915. start39:
  916.    print local "10"
  917.    goto start40
  918. start38:
  919.    print local "9 ";
  920.    goto start39
  921. start37:
  922.    print local "8 ";
  923.    goto start38
  924. start36:
  925.    print local "7 ";
  926.    goto start37
  927. start35:
  928.    print local "6 ";
  929.    goto start36
  930. start34:
  931.    print local "5 ";
  932.    goto start35
  933. start33:
  934.    print local "4 ";
  935.    goto start34
  936. start32:
  937.    print local "3 ";
  938.    goto start33
  939. start31:
  940.    print local "2 ";
  941.    goto start32
  942. start30:
  943.    print local "1 ";
  944.    goto start31
  945. start29:
  946.    print local "10"
  947.    goto start30
  948. start28:
  949.    print local "9 ";
  950.    goto start29
  951. start27:
  952.    print local "8 ";
  953.    goto start28
  954. start26:
  955.    print local "7 ";
  956.    goto start27
  957. start25:
  958.    print local "6 ";
  959.    goto start26
  960. start24:
  961.    print local "5 ";
  962.    goto start25
  963. start23:
  964.    print local "4 ";
  965.    goto start24
  966. start22:
  967.    print local "3 ";
  968.    goto start23
  969. start21:
  970.    print local "2 ";
  971.    goto start22
  972. start20:
  973.    print local "1 ";
  974.    goto start21
  975. start19:
  976.    print local "10"
  977.    goto start20
  978. start18:
  979.    print local "9 ";
  980.    goto start19
  981. start17:
  982.    print local "8 ";
  983.    goto start18
  984. start16:
  985.    print local "7 ";
  986.    goto start17
  987. start15:
  988.    print local "6 ";
  989.    goto start16
  990. start14:
  991.    print local "5 ";
  992.    goto start15
  993. start13:
  994.    print local "4 ";
  995.    goto start14
  996. start12:
  997.    print local "3 ";
  998.    goto start13
  999. start11:
  1000.    print local "2 ";
  1001.    goto start12
  1002. start10:
  1003.    print local "1 ";
  1004.    goto start11
  1005. start9:
  1006.    print local "10"
  1007.     goto start10
  1008. start8:
  1009.    print local "9 ";
  1010.    goto start9
  1011. start7:
  1012.    print local "8 ";
  1013.    goto start8
  1014. start6:
  1015.    print local "7 ";
  1016.    goto start7
  1017. start5:
  1018.    print local "6 ";
  1019.    goto start6
  1020. start4:
  1021.    print local "5 ";
  1022.    goto start5
  1023. start3:
  1024.    print local "4 ";
  1025.    goto start4
  1026. start2:
  1027.    print local "3 ";
  1028.    goto start3
  1029. start1:
  1030.    print local "2 ";
  1031.    goto start2
  1032. start:
  1033.    print local "1 ";
  1034.    goto start1
  1035.  
  1036. anykey:
  1037.    ask local "\nPress <RETURN> continue.", i$
  1038.    cls
  1039.    return
  1040.