home *** CD-ROM | disk | FTP | other *** search
- -SET_VAR GREY 0
- -SET_VAR BLACK 1
- -SET_VAR WHITE 2
- -SET_VAR BLUE 3
-
- -POS_WINDOW 0 200
- -DEF_ICON 800 11 100
- -SIZE_GADGET 300 13
- -PIXEL_BETWEEN_GADGET 0 0
- -PIXEL_FROM_BORDER 8 9 2 4
- -NB_GADGETS 2 6
- -WINDOW_TITLE "DMSWin with CliVa 2.0 (c) 1991-1993 Christian Warren"
- -DEF_WINDOW_EXECUTE CON:000/011/640/189/DMSWin_Cli
- #-ICONIFIED
- #-NO_DRAG_BAR
- #-ICON_WHEN_EXECUTE
- -COLOR_BORDER_GADGET WHITE BLACK
- -COLOR_WINDOW BLACK WHITE
- -COLOR_BACKGROUND BLUE
- -COLOR_GADGET_DEF BLACK GREY
- #-ON_SCREEN Workbench
- #-NO_MENU
- -GADGET_ICONIFIED DMSWin
- -FONT_STYLE 0
- #-FONT zinc.font 8
- #-UP_TO_DOWN
-
- =S
- # executable DMS
- \vs[50]DMS
-
- # READ Device
- \vs[101]DF0:
- # READ TextPath Displayed
- \vs[102]TEXT -OFF-
- # READ Real TextPath
- \vs[103]
- # READ Encrypt Diplayed
- \vs[111]ENCRYPT -OFF-
- # READ Real Encrypt PassWord argument
- \vs[112]
- # READ Real Encrypt PassWord
- \vs[113]
- # READ CMODE
- \vs[104]BEST
- # READ LOWTrack
- \vs[105]0
- # READ HIGHTrack
- \vs[106]79
- # READ NOVAL Diplayed
- \vs[107]NOVAL OFF
- # READ Real NOVAL argument
- \vs[108]
- # READ NOZERO Diplayed
- \vs[109]NOZERO OFF
- # READ Real NOZERO argument
- \vs[110]
-
- # WRITE Device
- \vs[201]DF0:
- # WRITE Decrypt Diplayed
- \vs[211]DECRYPT -OFF-
- # WRITE Real Decrypt PassWord argument
- \vs[212]
- # WRITE Real Decrypt PassWord
- \vs[213]
- # WRITE LOWTrack
- \vs[205]0
- # WRITE HIGHTrack
- \vs[206]79
- # WRITE NOVAL Diplayed
- \vs[207]NOVAL OFF
- # WRITE Real NOVAL argument
- \vs[208]
- # WRITE NOTEXT Diplayed
- \vs[209]NOTEXT OFF
- # WRITE Real NOTEXT argument
- \vs[210]
- # WRITE NOPAUSE Diplayed
- \vs[202]NOPAUSE OFF
- # WRITE Real NOPAUSE argument
- \vs[203]
-
- # REPACK CMODE
- \vs[304]BEST
- # REPACK LOWTrack
- \vs[305]0
- # REPACK HIGHTrack
- \vs[306]79
-
- # WRITE FULL Diplayed
- \vs[401]FULL OFF
- # WRITE Real FULL argument
- \vs[402]
-
- =D* "Choose the command" BLACK BLUE
- =L
-
- =D "DMS Read"
- \p[2]
-
- =D "DMS Write"
- \p[3]
-
- =D "DMS RePack"
- \p[4]
-
- =D "DMS View"
- \p[5]
-
- =D "DMS Text"
- \p[6]
-
- =D "DMS Test"
- \p[7]
-
- =D "DMS Help"
- \vu[50] Help\w
-
- =D "Find DMS on disk"
- \vs[50]\f1[C:][Where is that DMS file?][*dms*]
-
- =D "ICONIFY" WHITE BLUE
- \I
-
- =D "QUIT" WHITE BLUE
- \Q
-
- =P
- =[ -1 "MAIN MENU" WHITE BLUE
- \p[1]
-
-
- #***************************************************************************#
- #* DMS READ *#
- #***************************************************************************#
-
-
- =D* "DMS Read" BLACK BLUE
- =L
-
- =D "FROM [101]"
- \vs[1]\pa[Request][Device?][DF0:][DF1:][Other...][DF0:][DF1:][Other]
- \ved[1][Other]\vs[1]\q[RAD:][Device?]
- \vs[101]\vu[1]
- \vc[1]
-
- =D "[102][103]"
- \vs[1]\vu[102]
- \ved[1][TEXT -OFF-]\vs[102][]\vs[103]TEXT \f1[-][Text?]
- \ved[1][]\vs[102][TEXT -OFF-]\vs[103][]
- \vc[1]
-
- =D "[111][112]"
- \vs[1]\vu[111]
- \ved[1][ENCRYPT -OFF-]\vs[111][]\vs[113]\q[^113][PassWord?]
- \ved[1][ENCRYPT -OFF-]\vs[112]ENCRYPT "\vu[113]"
- \ved[1][]\vs[111][ENCRYPT -OFF-]\vs[112][]
- \vc[1]
-
- =D "CMODE = [104]"
- \vs[1]\vu[104]
- \ved[1][NONE]\vs[104]HEAVY1
- \ved[1][HEAVY1]\vs[104]HEAVY2
- \ved[1][HEAVY2]\vs[104]BEST
- \ved[1][BEST]\vs[104]NONE
- \vc[1]
-
- =D "LOW = [105]"
- \vs[105]\q[^105][LOW TRACK?]
-
- =D "HIGH = [106]"
- \vs[106]\q[^106][HIGH TRACK?]
-
- =D "[107]"
- \vs[1]\vu[107]
- \ved[1][NOVAL OFF]\vs[107][NOVAL ON]\vs[108][NOVAL]
- \ved[1][NOVAL ON]\vs[107][NOVAL OFF]\vs[108][]
- \vc[1]
-
- =D "[109]"
- \vs[1]\vu[109]
- \ved[1][NOZERO OFF]\vs[109][NOZERO ON]\vs[110]NOZERO
- \ved[1][NOZERO ON]\vs[109][NOZERO OFF]\vs[110][]
- \vc[1]
-
- =D "START" WHITE BLUE
- \vu[50] READ \f1[-][TO which DMS File?][*.dms] FROM \vu[101] \vu[103] CMODE \vu[104] LOW \vu[105] HIGH \vu[106] \vu[108] \vu[110] \vu[112]\w
-
-
- #***************************************************************************#
- #* DMS WRITE *#
- #***************************************************************************#
-
-
- =D* "DMS Write" BLACK BLUE
- =L
-
- =D "TO [201]"
- \vs[1]\pa[Request][Device?][DF0:][DF1:][Other...][DF0:][DF1:][Other]
- \ved[1][Other]\vs[1]\q[RAD:][Device?]
- \vs[201]\vu[1]
- \vc[1]
-
- =D "[211][212]"
- \vs[1]\vu[211]
- \ved[1][DECRYPT -OFF-]\vs[211][]\vs[213]\q[^213][PassWord?]
- \ved[1][DECRYPT -OFF-]\vs[212]DECRYPT "\vu[213]"
- \vnd[1][DECRYPT -OFF-]\vs[211][DECRYPT -OFF-]\vs[212]
- \vc[1]
-
- =D "LOW = [205]"
- \vs[205]\q[^205][LOW TRACK?]
-
- =D "HIGH = [206]"
- \vs[206]\q[^206][HIGH TRACK?]
-
- =D "[207]"
- \vs[1]\vu[207]
- \ved[1][NOVAL OFF]\vs[207][NOVAL ON]\vs[208][NOVAL]
- \ved[1][NOVAL ON]\vs[207][NOVAL OFF]\vs[208][]
- \vc[1]
-
- =D "[209]"
- \vs[1]\vu[209]
- \ved[1][NOTEXT OFF]\vs[209][NOTEXT ON]\vs[210][NOTEXT]
- \ved[1][NOTEXT ON]\vs[209][NOTEXT OFF]\vs[210][]
- \vc[1]
-
- =D "[202]"
- \vs[1]\vu[202]
- \ved[1][NOPAUSE OFF]\vs[202][NOPAUSE ON]\vs[203][NOPAUSE]
- \ved[1][NOPAUSE ON]\vs[202][NOPAUSE OFF]\vs[203][]
- \vc[1]
-
- =L
-
- =D "START" WHITE BLUE
- \vu[50] WRITE \f1[-][FROM which DMS File?][*.dms] FROM \vu[201] LOW \vu[205] HIGH \vu[206] \vu[208] \vu[210] \vu[203]\w
-
-
- #***************************************************************************#
- #* DMS REPACK *#
- #***************************************************************************#
-
-
- =D* "DMS RePack" BLACK BLUE
- =L
-
- =D "CMODE = [304]"
- \vs[1]\vu[304]
- \ved[1][NONE]\vs[304]HEAVY1
- \ved[1][HEAVY1]\vs[304]HEAVY2
- \ved[1][HEAVY2]\vs[304]BEST
- \ved[1][BEST]\vs[304]NONE
- \vc[1]
-
- =D "LOW = [305]"
- \vs[305]\q[^305][LOW TRACK?]
-
- =D "HIGH = [306]"
- \vs[306]\q[^306][HIGH TRACK?]
-
- =[ -2 "START" WHITE BLUE
- \vs[1]\f1[-][FROM which DMS File?][*.dms]
- \vs[3]
- \vs[2]\pa[Request][Do you want to OverWrite the DMS file?][Yes][][No][Yes][][No]
- \ved[2][No]TO \f1[-][TO which DMS File?][*.dms]
- \vu[50] REPACK \vu[1] \vu[3] CMODE \vu[304] LOW \vu[305] HIGH \vu[306]\w
- \vc[1]\vc[2]\vc[3]
-
- =P
- =] -2
-
- #***************************************************************************#
- #* DMS VIEW *#
- #***************************************************************************#
-
- =D* "DMS View" BLACK BLUE
- =L
-
- =D "[401]"
- \vs[1]\vu[401]
- \ved[1][FULL OFF]\vs[401][FULL ON]\vs[402][FULL]
- \ved[1][FULL ON]\vs[401][FULL OFF]\vs[402][]
- \vc[1]
-
- =[ -2 "START" WHITE BLUE
- \vu[50] VIEW \f1[-][Choose the DMS file to VIEW?][*.dms] \vu[402]\w
-
- =P
- =] -2
-
- #***************************************************************************#
- #* DMS TEXT *#
- #***************************************************************************#
-
- =D* "DMS Text" BLACK BLUE
- =L
-
- =[ -2 "START" WHITE BLUE
- \vu[50] VIEW \f1[-][Choose the DMS file to view TEXT?][*.dms]\w
-
- =P
- =] -2
-
- #***************************************************************************#
- #* DMS TEST *#
- #***************************************************************************#
-
- =D* "DMS Test" BLACK BLUE
- =L
-
- =[ -2 "START" WHITE BLUE
- \vu[50] VIEW \f1[-][Choose the DMS file to TEST?][*.dms]\w
-
- =P
- =] -2
-