home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / GETGO.BAS < prev    next >
BASIC Source File  |  1994-02-01  |  775b  |  26 lines
  1. sub getgo
  2. if tty then
  3. PROZOPRINT crlf$+"Enter program name to GO:"
  4. value$=PROZOinput$
  5. if value$="" THEN goflag%=0:exit sub
  6. IF GETVAR$("$$"+Value$+"$$")="" THEN goflag%=0:PROZOPRINT CrLf$+Value$+" PROGRAM NOT FOUND!"+CrLf$:PROZOPRINT CHR$(7)+CHR$(7)+CHR$(7):DELAY 2:EXIT SUB
  7. PROZOL GETVAR$("$$"+Value$+"$$")
  8. else
  9. call PROZOL("prompt '@SCP()^B^G^y@CHR(7)'")
  10. call PROZOL("window 20,30,20,50;'GO:_______________'")
  11. call PROZOL("locate 20,34")
  12. value$=PROZOinput$
  13. if value$="" THEN goflag%=0:exit sub
  14. if Getvar$("$$"+value$+"$$")="" then
  15. goflag%=0
  16. PROZOL "PROMPT '^R^w'"
  17. PROZOL "WINDOW 20,20,20,60;'PROGRAM NOT FOUND!'"
  18. PROZOPRINT CHR$(7)+CHR$(7)+CHR$(7):DELAY 2
  19. EXIT SUB
  20. END IF
  21. PROZOL GETVAR$("$$"+ VALUE$ + "$$")
  22. PROZOL "prompt '@RCP()'"
  23. end if
  24.  
  25. end sub
  26.