home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qmscr41.zip
/
OVERRITE.MOD
< prev
next >
Wrap
Text File
|
1989-04-01
|
324b
|
20 lines
;LANS 10-18-88 06:47 OVERRITE.MOD
;
over_rite:
ATWRITE 47 8 138 '#6> '
COLOR 15
GOTOXY 48 7
GET 0 1
ATWRITE 47 8 4 '#6> '
IF '$0' = '' go_back
IF '$0' = 'Y' valid_ans2
IF '$0' = 'N' valid_ans2
GOTO over_rite
valid_ans2:
ASSIGN Owrite '$0'
SCRIPT OWYorN.mod
ATWRITE 51 8 11 '$Owrite'
go_back:
RETURN
;