home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI10.ARJ / ictari.10 / GFA / COMLINE / COMMAND.LST
File List  |  1987-04-22  |  1KB  |  27 lines
  1. '
  2. ' ***************************************************************************
  3. ' *                                                                         *
  4. ' *                        A COMMAND LINE PROGRAM                           *
  5. ' *              Written By Steven Jordan & Andrew Martin                   *
  6. ' *                      (c) Diamond Software 1993!                         *
  7. ' *                                                                         *
  8. ' * This program just tells you what the user has typed in the command line *
  9. ' * box. Compile as a TTP.                                                  *
  10. ' *                                                                         *
  11. ' ***************************************************************************
  12. '
  13. Length%=Peek(Basepage+128)
  14. If Length%=0
  15.   Print "The user typed nothing in the command line box..."
  16.   Pause 50
  17.   End
  18. Else
  19.   For Count%=129 To (129+Length%)
  20.     Char%=Peek(Basepage+Count%)
  21.     Arg$=Arg$+Chr$(Char%)
  22.   Next Count%
  23. Endif
  24. Print "User Typed : ";Arg$
  25. Repeat
  26. Until Inkey$=Chr$(13)
  27.