home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qmscr41.zip
/
UPEDIT.MOD
< prev
next >
Wrap
Text File
|
1989-04-01
|
787b
|
51 lines
;LANS 10-18-88 06:55 UPEDIT.MOD
;
ATWRITE 6 11 6 ' File # Selected to Edit? '
ATWRITE 36 11 3 'n'
GOTOXY 33 10
COLOR 15
GET 0 1
IF '$0' = '1' cng1
IF '$0' = '2' cng2
IF '$0' = '3' cng3
IF '$0' = '4' cng4
IF '$0' = '5' cng5
IF '$0' = '6' cng6
IF '$0' = '7' cng7
IF '$0' = '8' cng8
go_back:
RETURN
cng1:
IF '$1' = '' go_back
SCRIPT Upsel.001
RETURN
cng2:
IF '$2' = '' go_back
SCRIPT Upsel.002
RETURN
cng3:
IF '$3' = '' go_back
SCRIPT Upsel.003
RETURN
cng4:
IF '$4' = '' go_back
SCRIPT Upsel.004
RETURN
cng5:
IF '$5' = '' go_back
SCRIPT Upsel.005
RETURN
cng6:
IF '$6' = '' go_back
SCRIPT Upsel.006
RETURN
cng7:
IF '$7' = '' go_back
SCRIPT Upsel.007
RETURN
cng8:
IF '$8' = '' go_back
SCRIPT Upsel.008
RETURN
;