home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / FRAMCUST.SM$ / FRAMCUST.SMM
Encoding:
INI File  |  1993-10-26  |  6.8 KB  |  527 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _default.sty
  5. [charset]
  6.     82
  7.     ANSI (Windows, IBM CP 1252)
  8. [PanoseFontTable]
  9.     3
  10.     5
  11.     Helvetica
  12.     2818
  13.     1029
  14.     514
  15.     514
  16.     1026
  17.     Helv
  18.     2818
  19.     1029
  20.     514
  21.     770
  22.     1026
  23.     Times New Roman
  24.     514
  25.     774
  26.     1029
  27.     517
  28.     1027
  29. [revisions]
  30.     0
  31. [recfile]
  32.     
  33.     *
  34.     1
  35.     1
  36.     3
  37.     8
  38.     0
  39.     0
  40. [lang]
  41.     1
  42. [desc]
  43.     Part of automated style sheets
  44.     
  45.     
  46.     
  47.     
  48.     751660788
  49.     10
  50.     748550844
  51.     374
  52.     0
  53.     0
  54.     0
  55.     0
  56.     0
  57.     
  58.     
  59.     
  60.     
  61.     
  62.     
  63.     0
  64. [prn]
  65.     QMS-PS 810
  66. [port]
  67.     NW:\\SPEEDY\QMS
  68. [fopts]
  69.     0
  70.     1
  71.     0
  72.     0
  73. [lnopts]
  74.     2
  75.     Body Text
  76.     1
  77. [docopts]
  78.     5
  79.     2
  80. [GramStyle]
  81.     
  82. [tag]
  83.     Body Text:1
  84.     1
  85.     [fnt]
  86.         Times New Roman
  87.         240
  88.         0
  89.         49152
  90.     [algn]
  91.         1
  92.         1
  93.         0
  94.         0
  95.         0
  96.     [spc]
  97.         33
  98.         0
  99.         1
  100.         0
  101.         0
  102.         1
  103.         100
  104.     [brk]
  105.         4
  106.     [line]
  107.         8
  108.         0
  109.         1
  110.         0
  111.         0
  112.         0
  113.         0
  114.         144
  115.         144
  116.         1
  117.     [spec]
  118.         0
  119.         0
  120.         
  121.         0
  122.         1
  123.         1
  124.         0
  125.         0
  126.         0
  127.         0
  128.     [nfmt]
  129.         280
  130.         1
  131.         2
  132.         .
  133.         ,
  134.         $
  135.     
  136.     0
  137.     0
  138. [lay]
  139.     Standard
  140.     513
  141.     [rght]
  142.         15840
  143.         12240
  144.         1
  145.         1440
  146.         1440
  147.         1
  148.         1440
  149.         1440
  150.         0
  151.         1
  152.         0
  153.         1
  154.         0
  155.         2
  156.         1
  157.         1440
  158.         10800
  159.         12
  160.         1
  161.         720
  162.         1
  163.         1440
  164.         1
  165.         2160
  166.         1
  167.         2880
  168.         1
  169.         3600
  170.         1
  171.         4320
  172.         1
  173.         5040
  174.         1
  175.         5760
  176.         1
  177.         6480
  178.         1
  179.         7200
  180.         1
  181.         7920
  182.         1
  183.         8640
  184.     [frght]
  185.     [lyfrm]
  186.         0
  187.         13184
  188.         0
  189.         14400
  190.         12240
  191.         15840
  192.         0
  193.         1
  194.         1
  195.         0 0 0 0 0 0 0
  196.         0
  197.         16777215
  198.         0
  199.     [frmlay]
  200.         15840
  201.         12240
  202.         1
  203.         1440
  204.         792
  205.         1
  206.         14472
  207.         1440
  208.         0
  209.         1
  210.         0
  211.         0
  212.         0
  213.         0
  214.         1
  215.         1440
  216.         10800
  217.         2
  218.         2
  219.         4680
  220.         3
  221.         9360
  222.     [txt]
  223. <:s><:#P30670848,P943718>
  224.  
  225. >
  226.     [hrght]
  227.     [lyfrm]
  228.         0
  229.         11136
  230.         0
  231.         0
  232.         12240
  233.         1440
  234.         0
  235.         1
  236.         1
  237.         0 0 0 0 0 0 0
  238.         0
  239.         16777215
  240.         0
  241.     [frmlay]
  242.         1440
  243.         12240
  244.         1
  245.         1440
  246.         72
  247.         1
  248.         792
  249.         1440
  250.         0
  251.         1
  252.         0
  253.         0
  254.         0
  255.         0
  256.         1
  257.         1440
  258.         10800
  259.         2
  260.         2
  261.         4680
  262.         3
  263.         9360
  264.     [txt]
  265. <:s><:#P30670848,P943718>
  266.  
  267. >
  268. [elay]
  269. [l1]
  270.     0
  271. [edoc]
  272. <:s><:#P30670848,P943718>'declares and defines
  273.  
  274. <:s><:#P30670848,P1887436>define MSG_CANTRUNSOLO    "This function is for automated frames.  It is not intended to be run by itself."
  275.  
  276. <:s><:#P30670848,P943718>'define true    1
  277.  
  278. <:s><:#P30670848,P943718>
  279.  
  280. @Subhead@<:s><:#P30670848,P943718>function custframe(framenum)
  281.  
  282. <:s><:#P30670848,P943718>IgnoreKeyBoard(2)
  283.  
  284. <:s><:#P30670848,P943718>'framenum=1
  285.  
  286. <:s><:#P30670848,P943718>if framenum=""
  287.  
  288. <:s><:#P30670848,P943718>    Message(MSG_CANTRUNSOLO)
  289.  
  290. <:s><:#P30670848,P943718>    exit function
  291.  
  292. <:s><:#P30670848,P943718>endif
  293.  
  294. <:s><:#P30670848,P943718>rmac=getrunningmacrofile$()
  295.  
  296. <:s><:#P30670848,P943718>filledit(20, true)
  297.  
  298. <:s><:#P30670848,P943718>box=dialogbox("framcust.dlg", "framer")
  299.  
  300. <:s><:#P30670848,P943718>if box=0 or box=2
  301.  
  302. <:s><:#P30670848,P943718>    exit function
  303.  
  304. <:s><:#P30670848,P943718>endif
  305.  
  306. <:s><:#P30670848,P943718>cover="as_frame{framenum}cover"
  307.  
  308. <:s><:#P30670848,P943718>rightone="as_frame{framenum}" 
  309.  
  310. <:s><:#P30670848,P943718>result=MarkBookMark(cover, 4002  )
  311.  
  312. <:s><:#P30670848,P943718>'if result =1
  313.  
  314. <:s><:#P30670848,P943718>    ' Now delete the frame
  315.  
  316. <:s><:#P30670848,P943718>    Type( "<[>Del]" )
  317.  
  318. <:s><:#P30670848,P943718>    pause(020)
  319.  
  320. <:s><:#P30670848,P943718>'endif
  321.  
  322. <:s><:#P30670848,P943718>MarkBookMark(rightone, 4002  ) ' go to the frame
  323.  
  324. <:s><:#P30670848,P943718>MarkBookMark(rightone, 4004)  ' delete the bookmark
  325.  
  326. <:s><:#P30670848,P943718>if box = 3
  327.  
  328. <:s><:#P30670848,P943718>    'kill the frame
  329.  
  330. <:s><:#P30670848,P943718>    type ( "<[>Del]" )
  331.  
  332. <:s><:#P30670848,P943718>    exit function
  333.  
  334. <:s><:#P30670848,P943718>endif
  335.  
  336. <:s><:#P30670848,P943718>'HourGlass(on)
  337.  
  338. <:s><:#P30670848,P943718>if GetDialogField$(20)
  339.  
  340. <:s><:#P30670848,P943718>    ImportPicture
  341.  
  342. <:s><:#P30670848,P943718>    type ("<[>esc]")
  343.  
  344. <:s><:#P30670848,P943718>elseif GetDialogField$(21)
  345.  
  346. <:s><:#P30670848,P943718>    Tables
  347.  
  348. <:s><:#P30670848,P943718>elseif getdialogfield$(24)
  349.  
  350. <:s><:#P30670848,P943718>    Equations()
  351.  
  352. <:s><:#P30670848,P943718>elseif getdialogfield$(25)
  353.  
  354. <:s><:#P30670848,P943718>    type("<[>enter]")
  355.  
  356. <:s><:#P30670848,P943718>elseif getdialogfield$(26)
  357.  
  358. <:s><:#P30670848,P943718>    'do nothing
  359.  
  360. <:s><:#P30670848,P943718>endif
  361.  
  362. <:s><:#P30670848,P943718>'HourGlass(off)
  363.  
  364. <:s><:#P30670848,P943718>end function
  365.  
  366. <:s><:#P30670848,P943718>
  367.  
  368. <:s><:#P30670848,P943718>DIALOG framer
  369.  
  370. <:s><:#P30670848,P943718>-2134376448 11 78 55 126 101 "" "" "Frame Options"
  371.  
  372. <:s><:#P30670848,P943718>FONT 8 "Helv"
  373.  
  374. <:s><:#P30670848,P943718>6 14 39 12 20 1342242825 "button" "&Picture" 0 
  375.  
  376. <:s><:#P30670848,P943718>6 26 33 12 21 1342242825 "button" "Ta&ble" 0 
  377.  
  378. <:s><:#P30670848,P943718>6 38 33 12 22 1342242825 "button" "&Chart" 0 
  379.  
  380. <:s><:#P30670848,P943718>6 50 45 12 23 1342242825 "button" "&Drawing" 0 
  381.  
  382. <:s><:#P30670848,P943718>6 62 45 12 24 1342242825 "button" "&Equation" 0 
  383.  
  384. <:s><:#P30670848,P943718>6 74 30 12 25 1342242825 "button" "&Text" 0 
  385.  
  386. <:s><:#P30670848,P943718>6 86 63 12 26 1342242825 "button" "&Nothing" 0 
  387.  
  388. <:s><:#P30670848,P943718>81 5 39 15 1 1342373889 "button" "OK" 0 
  389.  
  390. <:s><:#P30670848,P943718>81 23 39 15 2 1342373888 "button" "Cancel" 0 
  391.  
  392. <:s><:#P30670848,P943718>69 41 51 15 3 1342373888 "button" "De&lete Frame" 0 
  393.  
  394. <:s><:#P30670848,P943718>6 5 30 9 1000 1342177280 "static" "Insert:" 0 
  395.  
  396. <:s><:#P30670848,P943718>END DIALOG
  397. >
  398.  
  399. [Embedded]
  400. 00005254
  401. >
  402. [macsum4] 2 17
  403. custframe 0 1 6 4
  404. framer 1022 0 65535 48
  405. [macse]
  406. 14 custframe
  407. 29 0 framenum
  408. 29 1 custframe
  409. 17 1
  410. 0 32 2
  411. 17 3
  412. 6 0
  413. 7 ""
  414. 18 0
  415. 11 00000200
  416. 17 4
  417. 0 3 "This function is for automated frames.  It is not intended to be run by itself."
  418. 6 1
  419. 15
  420. 9
  421. 17 7
  422. 29 2 rmac
  423. 0 802
  424. 13
  425. 8 2
  426. 17 8
  427. 0 31 20 1
  428. 17 9
  429. 29 3 box
  430. 0 26 "framcust.dlg" "framer"
  431. 13
  432. 8 3
  433. 17 10
  434. 6 3
  435. 5 0
  436. 18 0
  437. 6 3
  438. 5 2
  439. 18 0
  440. 1 2
  441. 11 00000374
  442. 6 1
  443. 15
  444. 9
  445. 17 13
  446. 29 4 cover
  447. 7 "as_frame{0}cover"
  448. 8 4
  449. 17 14
  450. 29 5 rightone
  451. 7 "as_frame{0}"
  452. 8 5
  453. 17 15
  454. 29 6 result
  455. 16 _$$4MarkBookMark "{4}" 4002
  456. 13
  457. 8 6
  458. 17 18
  459. 0 6 "[46]"
  460. 17 19
  461. 0 274 020
  462. 17 21
  463. 16 _$$4MarkBookMark "{5}" 4002
  464. 17 22
  465. 16 _$$4MarkBookMark "{5}" 4004
  466. 17 23
  467. 6 3
  468. 5 3
  469. 18 0
  470. 11 00000707
  471. 17 25
  472. 0 6 "[46]"
  473. 6 1
  474. 15
  475. 9
  476. 17 29
  477. 0 27 20
  478. 13
  479. 11 00000780
  480. 24 141
  481. 17 31
  482. 0 6 "[27]"
  483. 10 00001003
  484. 17 32
  485. 0 27 21
  486. 13
  487. 11 00000834
  488. 24 457
  489. 10 00001003
  490. 17 34
  491. 0 27 24
  492. 13
  493. 11 00000905
  494. 17 35
  495. 34 0 49 "AmiEqn"
  496. 10 00001003
  497. 17 36
  498. 0 27 25
  499. 13
  500. 11 00000970
  501. 17 37
  502. 0 6 "[13]"
  503. 10 00001003
  504. 17 38
  505. 0 27 26
  506. 13
  507. 11 00001003
  508. 6 1
  509. 15
  510. 17 42
  511. 9
  512. DIALOG framer
  513. -2134376448 11 78 55 126 101 "" "" "Frame Options" 
  514. FONT 8 "Helv" 
  515. 6 14 39 12 20 1342242825 "button" "&Picture" 0 
  516. 6 26 33 12 21 1342242825 "button" "Ta&ble" 0 
  517. 6 38 33 12 22 1342242825 "button" "&Chart" 0 
  518. 6 50 45 12 23 1342242825 "button" "&Drawing" 0 
  519. 6 62 45 12 24 1342242825 "button" "&Equation" 0 
  520. 6 74 30 12 25 1342242825 "button" "&Text" 0 
  521. 6 86 63 12 26 1342242825 "button" "&Nothing" 0 
  522. 81 5 39 15 1 1342373889 "button" "OK" 0 
  523. 81 23 39 15 2 1342373888 "button" "Cancel" 0 
  524. 69 41 51 15 3 1342373888 "button" "De&lete Frame" 0 
  525. 6 5 30 9 1000 1342177280 "static" "Insert:" 0 
  526. 00005279
  527.