;
; The Script Running Script by Full Duplex of Think Productions.
; To get the latest Think Productions Packs or for information visit
; http://www.darktech.org/zoob
;
; If you have any ideas/suggestions for a script please email them to me
; at mschibler@softhome.net.
;
; Now your sitting there thinking .. what the hell is a script running
; script? .. simple. It's a script that runs scripts. Okay, that didn't
; explain a hell of alot did it? :). I made this script as an alternative
; to making a new menu command in Telegard everytime I want to try a script.
; Basically you run this script and it will ask you the filename.
; You can run any script in your TEXT directory.
; It also includes a nice little pause prompt built in ! :).
; 
; Setup:
; Simple. There's only one line you need to define. It's 4 lines down from
; this line. :)
;
VARIABLE SCRIPT STRING
VARIABLE PARAM STRING
NL
GET SCRIPT "           `01En`09ter Script Filena`01me   `08: `1F              `00             `07By `02Fu`0All Dupl`02ex`08.`1F~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH" 12
FILEEXIST C:\TELEGARD\TEXT\$SCRIPT$ JUMP CONTINUE
;         ^^^^^^^^^^^^^^^^^  CHANGE THE C:\TELEGARD\TEXT\ TO YOUR TEXT DIR
;                            AND MAKE SURE YOU INCLUDES THE \ AT THE END!
; Welp .. that's all there is to it.. Enjoy! :).
PUT "           `04Fi`0Cle Does Not Exi`04st`08.        "

:PAUSE
PUT "`08| `09Paused `08|~SY"
KEYPRESSED JUMP END
PUT "~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH"
PUT "`07/ `01P`09ause`01d `07\~SY"
KEYPRESSED JUMP END
PUT "~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH"
PUT "`0F- `01Pa`09us`01ed `0F-~SY"
KEYPRESSED JUMP END
PUT "~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH"
PUT "`07\ `03P`01ause`03d `07/~SY"
KEYPRESSED JUMP END
PUT "~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH"
PUT "`08| `03Pa`01us`03ed `08|~SY"
KEYPRESSED JUMP END
PUT "~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH"
PUT "`07/ `03Paused `07\~SY"
KEYPRESSED JUMP END
PUT "~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH"
PUT "`0F- `03Pa`09us`03ed `0F-~SY"
KEYPRESSED JUMP END
PUT "~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH"
PUT "`07\ `03P`09ause`03d `07/~SY"
KEYPRESSED JUMP END
PUT "~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH"
JUMP PAUSE

:CONTINUE
GET PARAM "           `01En`09ter Script Paramete`01rs `08: `1F                      ~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH~SH" 20
SCRIPT $SCRIPT$ $PARAM$
NL
JUMP PAUSE

:END
FLUSH