Lisp need to make a viewport to a given scale

[cadd4la]

Hello everyone,

I am looking for a lisp that will make a viewport on a new nonplot layer name VIEW-FRME, layer color 12, ask me to input the scale of the viewport i.e. 96 for 1/8"=1'-0", 120 for 1"-10', etc., and then ask if I would like to lock it.

Scales needed:

2 for 6"=1'-0"
3 for 4"=1'-0"
4 for 3"=1'-0"
6 for 2"=1'-0"
8 for 1 1/2"=1'-0"
12 for 1"=1'-0"
16 for 3/4"=1'-0"
24 for 1/2"=1'-0"
32 for 3/8"=1'-0"
48 for 1/4"=1'-0"
96 for 1/8"=1'-0"
192 for 1/16"=1'-0"

120 for 1"-10'
240 for 1"-20'
360 for 1"-30'
480 for 1"-40'
600 for 1"-50'
720 for 1"-60'
840 for 1"-70'
960 for 1"-80'
1080 for 1"-90'
1200 for 1"-100'
1440 for 1"-120'
2400 for 1"-200'

Thanks so much.