home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 5
/
ctrom5b.zip
/
ctrom5b
/
PROGRAM
/
DIVERSEN
/
TIPI2A
/
T.TPI
< prev
next >
Wrap
Text File
|
1994-11-27
|
3KB
|
117 lines
# T.TPI The TIPI Programmer's Workbench
# Version 2.0a
# by Kent Peterson 10/2/94
defstr p$ # The name of the program
command$
parse$ drop$
parse$ swap$ drop$
# if there is no p$, ask for one
dup$ "" =$
if
drop$ "Name of TIPI program: " print$ get$
endif
"." instr drop$
not if ".tpi" +$ endif
ucase$ p$ store
define menu
# ( -- choice)
# ( valid$ -- )
# Returns the chosen key or 0 if the user escapes from this menu
0 cursor
ucase$
27 chr$ swap$ +$
begin
inkey$ ucase$ # valid$ key$
len instr *
dup
if dup drop$ endif drop$
until
1 -
1 cursor
enddef
define cline$ ( -- )
( -- command$ )
"R" "command.lin" 1 open
1 isinput
get$ console isinput
1 close
enddef
cls
|
| TIPI Programmer's Workbench
|
| Version 2.0a
|
| [E]dit X
| [C]hange Program / \
| [S]et Command Line / \
| [R]un Program / + \
| [M]ake EXE / + \
| [L]ookup \__( )__/
| [D]OS Command
|
" Program Name: " print$
p$ fetch print$ cr
" Command Line: " print$
cline$ print$
"ECSRMLD" menu
cls
"O" "runfile.bat" 2 open
2 isoutput
case 0 of # Quit
endof
1 of # Edit
# Change the following line to contain the name of your editor of choice
"e " print$
p$ fetch print$ cr lf
"t " print$ p$ fetch print$ cr lf
endof
2 of # Change Program
| t
endof
3 of # Set Command Line
"O" "command.lin" 1 open
console isoutput
"Command Line: " print$ get$
1 isoutput print$ cr lf
1 close
2 isoutput
"t " print$ p$ fetch print$ cr lf
endof
4 of # Run Program
"tipi " print$
p$ fetch print$ " " print$
cline$ print$ cr lf
"t " print$ p$ fetch print$ cr lf
endof
5 of # Make EXE
console isoutput
"Making EXE..." print$
2 isoutput
"copy /b tipicore.bin+register.dat+" print$
p$ fetch dup$ print$ " " print$
ucase$ ".TPI" ".EXE" replace$ print$
" /b /v > nul" print$ cr lf
"t " print$ p$ fetch print$ cr lf
endof
6 of # Lookup
| call helptipi.bat
"t " print$ p$ fetch print$ cr lf
endof
7 of # DOS Command
console isoutput
"DOS Command: " print$ get$
2 isoutput
print$ cr lf
"pause" print$ cr lf
"t " print$ p$ fetch print$ cr lf
endof
endcase
console isoutput
2 close