home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / dev / asm / tbsource / nbbs / setprog / setprog.bak next >
Text File  |  1993-12-21  |  26KB  |  1,246 lines
  1. ***********************************************
  2. *                                             *
  3. *              (C)opyright 1991               *
  4. *                                             *
  5. *             by  Tomi Blinnikka              *
  6. *                                             *
  7. *      Don´t try to understand the code       *
  8. *                                             *
  9. *          NBBS IISUP              *
  10. *    (Intuition Interfaced SetUp Program)     *
  11. *                                             *
  12. ***********************************************
  13.  
  14.     INCLUDE    "JMPLibs.i"
  15.     INCLUDE    "exec/types.i"
  16.     INCLUDE    "exec/io.i"
  17.     INCLUDE    "libraries/dos.i"
  18.     INCLUDE    "libraries/reqbase.i"
  19.     INCLUDE    "devices/serial.i"
  20.     INCLUDE    "intuition/intuition.i"
  21.  
  22.     INCLUDE    "XREF:dos.xref"
  23.     INCLUDE    "XREF:gfx.xref"
  24.     INCLUDE    "XREF:intuition.xref"
  25.     INCLUDE    "XREF:exec.xref"
  26.  
  27.     XREF    _CreatePort
  28.     XREF    _DeletePort
  29.     XREF    _CreateExtIO
  30.     XREF    _DeleteExtIO
  31.     XREF    _printf
  32.  
  33.     XDEF    _DOSBase
  34.     XDEF    _SysBase
  35.     XDEF    _stdout
  36.  
  37. DReq        set    1
  38.  
  39.         section    NBBS,CODE
  40.     
  41. Start:        move.l    a0,ConfigAddress    ;Get Config filename
  42.         clr.b    -1(a0,d0.l)        ;add null to end of filename
  43.         openlib    Dos,ShutDown
  44.         move.l    _DosBase,_DOSBase
  45.         move.l    $4,_SysBase
  46.  
  47.         lib    Dos,Output
  48.         move.l    d0,_stdout
  49.  
  50.         move.l    ConfigAddress,a0
  51.         tst.b    (a0)
  52.         bne    GotFileName
  53.         jmp    StartMain
  54.  
  55. GotFileName:
  56.  
  57. ;Move filename to FRPathName so if user saves straight away it goes into
  58. ;the correct file, and not the default one.
  59.  
  60.         move.l    ConfigAddress,a0
  61.         lea.l    FRPathName,a1
  62.         cmp.b    #"?",(a0)
  63.         beq    CommandLineHelp
  64. CopyFName:    move.b    (a0)+,(a1)+
  65.         cmp.b    #$00,(a0)
  66.         bne    CopyFName
  67.         clr.b    (a1)
  68.  
  69.         move.l    ConfigAddress,a0
  70.         lea.l    FRFile,a1
  71. CopyFName1:    move.b    (a0)+,(a1)+
  72.         cmp.b    #$00,(a0)
  73.         bne    CopyFName1
  74.         clr.b    (a1)
  75.  
  76.         move.l    ConfigAddress,d1
  77.         move.l    #MODE_OLDFILE,d2
  78.         lib    Dos,Open
  79.         move.l    d0,ConfigFile
  80.         beq    ConfigNotOpen
  81.  
  82.         move.l    ConfigFile,d1
  83.         lea.l    CONFIG,a0
  84.         move.l    a0,d2
  85.         lea.l    CONFIG,a1
  86.         lea.l    CONFIG_END,a2
  87.         sub.l    a1,a2
  88.         move.l    a2,d3
  89.         lib    Dos,Read
  90.  
  91.         jsr    SetGads
  92.  
  93. ;Close config file, we've got what we want
  94.  
  95.         move.l    ConfigFile,d1
  96.         lib    Dos,Close
  97.         move.l    #$00,ConfigFile
  98.         move.l    #$01,CheckSum
  99.  
  100. StartMain:    move.l    #2,d0
  101.         move.l    $4,a6
  102.         lea.l    _ReqLib,a1
  103.         jsr    _LVOOpenLibrary(a6)
  104.         move.l    d0,_ReqBase
  105.         beq    NoShutDown
  106.  
  107. ;Reset checksum so we can tell if the user has played with any of the
  108. ;gadgets, and later if (s)he has, warn him/her about it before quitting
  109.  
  110.         move.l    #$00,CheckSum
  111.     
  112.         openlib    Intuition,ShutDown
  113.         openlib    Gfx,ShutDown
  114.  
  115. ;Find our task
  116.  
  117.         move.l    #$00,a1
  118.         lib    Exec,FindTask
  119.         move.l    d0,OurTask
  120.         move.l    d0,a0
  121.         move.l    $b8(a0),OldTaskWinPtr
  122.  
  123. ;Open Screen
  124.         lea.l    NewScreen1,a0
  125.         lib    Intuition,OpenScreen
  126.         move.l    d0,Screen1
  127.         beq    ShutDown
  128.         move.l    d0,SToW1
  129.         move.l    d0,SToW2
  130.         move.l    d0,SToW3
  131.         move.l    d0,SToW4
  132.         move.l    d0,SToW5
  133.         move.l    d0,SToW6
  134.         move.l    d0,SToW7
  135.         add.l    #$2c,d0
  136.         move.l    d0,ViewPort1
  137.  
  138. ;Open Window1
  139.  
  140. StartWin1:    lea.l    NewWindow1,a0
  141.         lib    Intuition,OpenWindow
  142.         move.l    d0,Window1
  143.         beq    ShutDown
  144.         move.l    d0,a0
  145.         move.l    $32(a0),RP1
  146.  
  147. ;Close the second, third or fourth window
  148.  
  149.         move.l    Window2,a0
  150.         jsr    ClearMSGs
  151.         move.l    #$00,Window2
  152.         move.l    Window3,a0
  153.         jsr    ClearMSGs
  154.         move.l    #$00,Window3
  155.         move.l    Window4,a0
  156.         jsr    ClearMSGs
  157.         move.l    #$00,Window4
  158.  
  159. ;move requesters to Window1
  160.  
  161.         move.l    OurTask,a0
  162.         move.l    Window1,$b8(a0)
  163.  
  164. ;Add Menus to Window1
  165.  
  166.         move.l    Window1,a0
  167.         lea.l    Menu1,a1
  168.         lib    Intuition,SetMenuStrip
  169.  
  170. ;Add all the texts to Window1 of course
  171.  
  172.         move.l    RP1,a0
  173.         lea.l    Win1Txt1,a1
  174.         move.l    #$00,d0
  175.         move.l    #$00,d1
  176.         lib    Intuition,PrintIText
  177.  
  178. ;Read page 215 Paragraph 3 of the RKRM L&D, activate string 1st Gad!
  179.  
  180.         lea.l    SerBRKTGad,a0
  181.         move.l    Window1,a1
  182.         move.l    #$00,a2
  183.         lib    Intuition,ActivateGadget
  184.  
  185. ;Reset ActiveWinNum
  186.  
  187.         move.w    #$01,ActiveWinNum
  188.  
  189. Window1IDCMP:    cmp.w    #$01,ActiveWinNum
  190.         beq    Window1IDCMP1
  191.         cmp.w    #$02,ActiveWinNum
  192.         beq    Window2IDCMP1
  193.         cmp.w    #$03,ActiveWinNum
  194.         beq    Window3IDCMP1
  195.         cmp.w    #$04,ActiveWinNum
  196.         beq    Window4IDCMP1
  197.  
  198.         INCLUDE    "LWF:NBBS/SetProg/SPWin1IDCMP.i"
  199.         INCLUDE "LWF:NBBS/SetProg/SPSetGads.i"
  200.         INCLUDE    "LWF:NBBS/SetProg/SPSetSer.i"
  201.  
  202. StartWin2:
  203.  
  204. ;Open Window2
  205.  
  206.         lea.l    NewWindow2,a0
  207.         lib    Intuition,OpenWindow
  208.         move.l    d0,Window2
  209.         beq    ShutDown
  210.         move.l    d0,a0
  211.         move.l    $32(a0),RP2
  212.  
  213. ;Move the requesters to the window now active
  214.  
  215.         move.l    OurTask,a0
  216.         move.l    Window2,$b8(a0)
  217.  
  218. ;Close the first, third or fourth window
  219.  
  220.         move.l    Window1,a0
  221.         jsr    ClearMSGs
  222.         move.l    #$00,Window1
  223.         move.l    Window3,a0
  224.         jsr    ClearMSGs
  225.         move.l    #$00,Window3
  226.         move.l    Window4,a0
  227.         jsr    ClearMSGs
  228.         move.l    #$00,Window4
  229.  
  230. Win2Start1:
  231.  
  232. ;Add Menus to Window2
  233.  
  234.         move.l    Window2,a0
  235.         lea.l    Menu1,a1
  236.         lib    Intuition,SetMenuStrip
  237.         move.w    #$02,ActiveWinNum
  238.  
  239. ;Activate 1st string gad.
  240.  
  241. ;        lea.l    Gad,a0
  242.         move.l    Window2,a1
  243.         move.l    #$00,a2
  244. ;        lib    Intuition,ActivateGadget
  245.         jmp    Window1IDCMP
  246.  
  247. StartWin3:
  248.  
  249. ;Open Window3
  250.  
  251.         lea.l    NewWindow3,a0
  252.         lib    Intuition,OpenWindow
  253.         move.l    d0,Window3
  254.         beq    ShutDown
  255.         move.l    d0,a0
  256.         move.l    $32(a0),RP3
  257.  
  258. ;Move the requesters to the window now active
  259.  
  260.         move.l    OurTask,a0
  261.         move.l    Window3,$b8(a0)
  262.  
  263. ;Close the first, second or fourth window
  264.  
  265.         move.l    Window1,a0
  266.         jsr    ClearMSGs
  267.         move.l    #$00,Window1
  268.         move.l    Window2,a0
  269.         jsr    ClearMSGs
  270.         move.l    #$00,Window2
  271.         move.l    Window4,a0
  272.         jsr    ClearMSGs
  273.         move.l    #$00,Window4
  274.  
  275. Win3Start1:
  276.  
  277. ;Add Menus to Window3
  278.  
  279.         move.l    Window3,a0
  280.         lea.l    Menu1,a1
  281.         lib    Intuition,SetMenuStrip
  282.         move.w    #$03,ActiveWinNum
  283.  
  284. ;Activate 1st string gad.
  285.  
  286. ;        lea.l    Gad,a0
  287.         move.l    Window3,a1
  288.         move.l    #$00,a2
  289. ;        lib    Intuition,ActivateGadget
  290.         jmp    Window1IDCMP
  291.  
  292. StartWin4:
  293.  
  294. ;Open Window4
  295.  
  296.         lea.l    NewWindow4,a0
  297.         lib    Intuition,OpenWindow
  298.         move.l    d0,Window4
  299.         beq    ShutDown
  300.         move.l    d0,a0
  301.         move.l    $32(a0),RP4
  302.  
  303. ;Move the requesters to the window now active
  304.  
  305.         move.l    OurTask,a0
  306.         move.l    Window4,$b8(a0)
  307.  
  308. ;Close the first, second or third window
  309.  
  310.         move.l    Window1,a0
  311.         jsr    ClearMSGs
  312.         move.l    #$00,Window1
  313.         move.l    Window2,a0
  314.         jsr    ClearMSGs
  315.         move.l    #$00,Window2
  316.         move.l    Window3,a0
  317.         jsr    ClearMSGs
  318.         move.l    #$00,Window3
  319.  
  320. Win4Start1:
  321.  
  322. ;Add Menus to Window4
  323.  
  324.         move.l    Window4,a0
  325.         lea.l    Menu1,a1
  326.         lib    Intuition,SetMenuStrip
  327.         move.w    #$04,ActiveWinNum
  328.  
  329. ;Activate 1st string gad.
  330.  
  331. ;        lea.l    Gad,a0
  332.         move.l    Window4,a1
  333.         move.l    #$00,a2
  334. ;        lib    Intuition,ActivateGadget
  335.         jmp    Window1IDCMP
  336.  
  337. NoReq:        print    <"You need req.library ver.2.5 or higher!",13,10>,_stdout
  338.         jmp    ShutDown
  339.  
  340. ShutDown:    move.l    OurTask,a0
  341.         move.l    OldTaskWinPtr,$b8(a0)
  342.  
  343.         tst.l    ConfigFile
  344.         beq    ShutDown9000
  345.         move.l    ConfigFile,d1
  346.         lib    Dos,Close
  347.         move.l    #$00,ConfigFile
  348.  
  349. ShutDown9000:
  350. ShutDown5000:    tst.l    Window1
  351.         beq    ShutDown4900
  352.         move.l    Window1,a0
  353.         lib    Intuition,ClearMenuStrip
  354.         move.l    Window1,a0
  355.         jsr    ClearMSGs
  356. ShutDown4900:    move.l    Window2,a0
  357.         jsr    ClearMSGs
  358.         move.l    Window3,a0
  359.         jsr    ClearMSGs
  360.         move.l    Window4,a0
  361.         jsr    ClearMSGs
  362.         move.l    AbWin,a0
  363.         jsr    ClearMSGs
  364.         move.l    QuitWin1,a0
  365.         jsr    ClearMSGs
  366.         move.l    HelpWin1,a0
  367.         jsr    ClearMSGs
  368.  
  369. ShutDown4500:    tst.l    Screen1
  370.         beq    ShutDown3000
  371.         move.l    Screen1,a0
  372.         lib    Intuition,CloseScreen
  373.  
  374. ShutDown3000:    tst.l    _ReqBase
  375.         beq    ShutDown2000
  376.         lea.l    FileRequest1,a0
  377.         lib    Req,PurgeFiles
  378.  
  379. ShutDown2000:
  380. ShutDown1100:    tst.l    _IntuitionBase
  381.         beq    ShutDown1000
  382.         lib    Intuition,OpenWorkBench        ;For that xtra touch
  383. ShutDown1000:    closlib    Intuition
  384.         closlib    Gfx
  385.         closlib    Dos
  386.         closlib    Req
  387. ShutDownOut:    move.l    #RETURN_OK,d0
  388.         rts
  389.  
  390.         INCLUDE    "LWF:NBBS/DosError.i"
  391.         INCLUDE    "LWF:NBBS/SetProg/SPCommandLineHelp.i"
  392.     
  393. MenusOn:    lea.l    Menu1,a1
  394.         cmp.w    #$01,ActiveWinNum
  395.         beq    MenusOn1
  396.         cmp.w    #$02,ActiveWinNum
  397.         beq    MenusOn2
  398.         cmp.w    #$03,ActiveWinNum
  399.         beq    MenusOn3
  400.         cmp.w    #$04,ActiveWinNum
  401.         beq    MenusOn4
  402.         rts
  403. MenusOn1:    move.l    Window1,a0
  404.         lib    Intuition,SetMenuStrip
  405.         rts
  406. MenusOn2:    move.l    Window2,a0
  407.         lib    Intuition,SetMenuStrip
  408.         rts
  409. MenusOn3:    move.l    Window3,a0
  410.         lib    Intuition,SetMenuStrip
  411.         rts
  412. MenusOn4:    move.l    Window4,a0
  413.         lib    Intuition,SetMenuStrip
  414.         rts
  415.  
  416.  
  417. MenusOff:    cmp.w    #$01,ActiveWinNum
  418.         beq    MenusOff1
  419.         cmp.w    #$02,ActiveWinNum
  420.         beq    MenusOff2
  421.         cmp.w    #$03,ActiveWinNum
  422.         beq    MenusOff3
  423.         cmp.w    #$04,ActiveWinNum
  424.         beq    MenusOff4
  425.         rts
  426. MenusOff1:    move.l    Window1,a0
  427.         lib    Intuition,ClearMenuStrip
  428.         rts
  429. MenusOff2:    move.l    Window2,a0
  430.         lib    Intuition,ClearMenuStrip
  431.         rts
  432. MenusOff3:    move.l    Window3,a0
  433.         lib    Intuition,ClearMenuStrip
  434.         rts
  435. MenusOff4:    move.l    Window4,a0
  436.         lib    Intuition,ClearMenuStrip
  437.         rts
  438.  
  439. MenuNull:    move.l    d3,d6    
  440.                 
  441.         ror.l    #5,d6    
  442.         lsr.l    #8,d6    
  443.         lsr.l    #8,d6
  444.         lsr.l    #8,d6
  445.         lsr.l    #3,d6
  446.  
  447.         move.l    d3,d5
  448.  
  449.         ror.l    #5,d5    
  450.         ror.l    #6,d5    
  451.         lsr.l    #8,d5
  452.         lsr.l    #8,d5
  453.         lsr.l    #8,d5
  454.         lsr.l    #2,d5
  455.                 
  456.         move.l    #$00,d4
  457.         move.w    d3,d4
  458.         lsr.l    #5,d4
  459.         lsr.l    #6,d4
  460.         rts
  461.  
  462. CheckIDCMP:    move.l    $4,a6            ;made this a SubRoutine...
  463.         move.l    $56(a0),a2        ;Give it the window structure in a0
  464.         move.l    #0,d1
  465.         move.b    $0f(a2),d1
  466.         move.l    #0,d0
  467.         bset.l    d1,d0
  468.         jsr    _LVOWait(a6)    
  469.     
  470. GetMsg1:    move.l    a2,a0    
  471.         jsr    _LVOGetMsg(a6)
  472.         tst.l    d0
  473.         beq    GetMsg2
  474.     
  475.         move.l    d0,a1 
  476.         move.l    $14(a1),d2        ;answers with Class in d2,
  477.         move.w    $18(a1),d3        ;Code in d3 and
  478.         move.w    $1a(a1),a4        ;Qualifier in a4
  479.         move.l    $1c(a1),a5        ;IAddress in a5
  480.         jsr    _LVOReplyMsg(a6)
  481.         jmp    GetMsg1
  482. GetMsg2:    move.l    #-1,d0
  483.         rts
  484.  
  485. ClearMSGs:    move.l    a0,d0
  486.         tst.l    d0
  487.         beq    ClearMsg3
  488.         move.l    a0,a3
  489.         lib    Exec,Forbid
  490.         move.l    $56(a3),a2        ;Give it the window structure in a0
  491. ClearMsg1:    move.l    a2,a0    
  492.         lib    Exec,GetMsg
  493.         tst.l    d0
  494.         beq    ClearMsg2
  495.         move.l    d0,a1 
  496.         lib    Exec,ReplyMsg
  497.         jmp    ClearMsg1
  498. ClearMsg2:    move.l    a3,a0
  499.         lib    Intuition,CloseWindow
  500.         lib    Exec,Permit
  501. ClearMsg3:    rts
  502.  
  503. ;Structures
  504.  
  505. ;Display stuff
  506.  
  507. Screen1        dc.l    0
  508. ViewPort1    dc.l    0
  509. Window1        dc.l    0
  510. RP1        dc.l    0
  511. Window2        dc.l    0
  512. RP2        dc.l    0
  513. Window3        dc.l    0
  514. RP3        dc.l    0
  515. Window4        dc.l    0
  516. RP4        dc.l    0
  517. HelpWin1    dc.l    0
  518. HRP1        dc.l    0
  519. AbWin        dc.l    0
  520. AbRP        dc.l    0
  521. QuitWin1    dc.l    0
  522.  
  523. ;Library stuff (well what's needed anymore)
  524.  
  525.         libnames
  526.  
  527. _DOSBase    dc.l    0
  528. _SysBase    dc.l    0
  529.  
  530. ;File stuff
  531.  
  532. _stdout        dc.l    0
  533. ConfigAddress    dc.l    0
  534. ConfigFile    dc.l    0
  535.  
  536. ;Task stuff
  537.  
  538. OurTask        dc.l    0
  539. OldTaskWinPtr    dc.l    0
  540.  
  541. ;req.lib stuff/requester stuff
  542.  
  543.         INCLUDE    "LWF:NBBS/SetProg/SPFileRequester.i"
  544.  
  545. ;Other stuff XIV
  546.  
  547. CheckSum    dc.l    0
  548. ActiveWinNum    dc.w    1        ;Active SetUp-Page Number
  549.  
  550.  
  551. ;Texts, Part I
  552.  
  553. NBBSName    dc.b    "NBBS (C)opyright 1991 Tomi Blinnikka",0
  554. LoadName    dc.b    "Load config...",0
  555. SaveName    dc.b    "Save config file as...",0
  556. PositiveText1    dc.b    "Yes",0
  557. NegativeText1    dc.b    "No",0
  558.         ds.l    0
  559.  
  560. ;New screen & new window structures
  561.  
  562. NewScreen1
  563.         dc.w    0,0            ;X,Y POS
  564. Screen1MaxCol    dc.w    640            ;WIDTH
  565. Screen1MaxRow    dc.w    256            ;HEIGHT
  566.         dc.w    2            ;DEPTH
  567.         dc.b    0,1            ;COLORS
  568.         dc.w    $8000            ;VIEWMODES
  569.         dc.w    $000F            ;TYPE
  570.         dc.l    Screen1Font        ;FONT
  571.         dc.l    NBBSName        ;DEFULT TITLE
  572.         dc.l    0            ;GADGETS
  573.         dc.l    0            ;CUSTOMBITMAP
  574.  
  575. Screen1Font    dc.l    Screen1FontN        ;NAME
  576.         dc.w    8            ;SIZE
  577.         dc.b    0            ;STYLE
  578.         dc.b    0            ;FLAGS
  579.         ds.l    0
  580. Screen1FontN    dc.b    "topaz.font",0
  581.         ds.l    0
  582.  
  583. NewWindow1
  584.         dc.w    0,11            ;X,Y POS
  585.         dc.w    640            ;WIDTH
  586.         dc.w    245            ;HEIGHT
  587.         dc.b    0,1            ;PENS
  588.         dc.l    CLOSEWINDOW+GADGETDOWN+GADGETUP+VANILLAKEY+RAWKEY+MENUPICK    ;IDCMP FLAGS
  589.         dc.l    $100A            ;FLAGS
  590.         dc.l    StopB1Gad,0        ;GADGETS, CHECKMARK
  591.         dc.l    WindowTitle1        ;TITLE
  592. SToW1        dc.l    0            ;SCREEN ADDRESS
  593.         dc.l    0            ;BITMAP            
  594.         dc.w    640,256,640,256        ;MINIMUM SIZE
  595.         dc.w    $000f            ;TYPE
  596.  
  597. WindowTitle1    dc.b    "SetUp Page 1",0
  598.         ds.l    0
  599. NewWindow2
  600.         dc.w    0,11            ;X,Y POS
  601.         dc.w    640            ;WIDTH
  602.         dc.w    245            ;HEIGHT
  603.         dc.b    0,1            ;PENS
  604.         dc.l    CLOSEWINDOW+GADGETDOWN+GADGETUP+VANILLAKEY+RAWKEY+MENUPICK    ;IDCMP FLAGS
  605.         dc.l    $100A            ;FLAGS
  606.         dc.l    0,0            ;GADGETS, CHECKMARK
  607.         dc.l    WindowTitle2        ;TITLE
  608. SToW2        dc.l    0            ;SCREEN ADDRESS
  609.         dc.l    0            ;BITMAP            
  610.         dc.w    640,256,640,256        ;MINIMUM SIZE
  611.         dc.w    $000f            ;TYPE
  612.  
  613. WindowTitle2    dc.b    "SetUp Page 2",0
  614.         ds.l    0
  615. NewWindow3
  616.         dc.w    0,11            ;X,Y POS
  617.         dc.w    640            ;WIDTH
  618.         dc.w    245            ;HEIGHT
  619.         dc.b    0,1            ;PENS
  620.         dc.l    CLOSEWINDOW+GADGETDOWN+GADGETUP+VANILLAKEY+RAWKEY+MENUPICK    ;IDCMP FLAGS
  621.         dc.l    $100A            ;FLAGS
  622.         dc.l    0,0            ;GADGETS, CHECKMARK
  623.         dc.l    WindowTitle3        ;TITLE
  624. SToW3        dc.l    0            ;SCREEN ADDRESS
  625.         dc.l    0            ;BITMAP            
  626.         dc.w    640,256,640,256        ;MINIMUM SIZE
  627.         dc.w    $000f            ;TYPE
  628.  
  629. WindowTitle3    dc.b    "SetUp Page 3",0
  630.         ds.l    0
  631. NewWindow4
  632.         dc.w    0,11            ;X,Y POS
  633.         dc.w    640            ;WIDTH
  634.         dc.w    245            ;HEIGHT
  635.         dc.b    0,1            ;PENS
  636.         dc.l    CLOSEWINDOW+GADGETDOWN+GADGETUP+VANILLAKEY+RAWKEY+MENUPICK    ;IDCMP FLAGS
  637.         dc.l    $100A            ;FLAGS
  638.         dc.l    0,0            ;GADGETS, CHECKMARK
  639.         dc.l    WindowTitle4        ;TITLE
  640. SToW4        dc.l    0            ;SCREEN ADDRESS
  641.         dc.l    0            ;BITMAP            
  642.         dc.w    640,256,640,256        ;MINIMUM SIZE
  643.         dc.w    $000f            ;TYPE
  644.  
  645. WindowTitle4    dc.b    "SetUp Page 4",0
  646.         ds.l    0
  647.  
  648. NewHelpWin1
  649.         dc.w    10,6,400,250        ;POSITION, SIZE
  650.         dc.b    0,1            ;PENS
  651.         dc.l    CLOSEWINDOW+GADGETUP+VANILLAKEY    ;IDCMP FLAGS
  652.         dc.l    $1006+WINDOWCLOSE    ;FLAGS
  653.         dc.l    YNGad1,0        ;GADGETS, CHECKMARK
  654.         dc.l    NBBSName        ;TITLE
  655. SToW5        dc.l    0            ;SCREEN ADDRESS
  656.         dc.l    0            ;BITMAP            
  657.         dc.w    400,250,400,250        ;MINIMUM+MAX SIZE
  658.         dc.w    $000f            ;TYPE
  659.  
  660. HelpWin1Txt1    dc.b    1,2            ;PENS
  661.         dc.w    0            ;MODE
  662.         dc.w    1,3            ;LEFT+TOPEDGE
  663.         dc.l    0            ;FONT
  664.         dc.l    HWin1Text1        ;TEXT
  665.         dc.l    HWin1Txt2        ;NEXTTEXT
  666.  
  667. HWin1Text1    dc.b    "Help:",0
  668.         ds.l    0
  669.  
  670. HWin1Txt2    dc.b    1,2            ;PENS
  671.         dc.w    0            ;MODE
  672.         dc.w    5,22            ;LEFT+TOPEDGE
  673.         dc.l    0            ;FONT
  674.         dc.l    HWin1Text2        ;TEXT
  675.         dc.l    0            ;NEXTTEXT
  676.  
  677. HWin1Text2    dc.b    "Sorry, help is not availible yet.",0
  678.         ds.l    0
  679.  
  680. NewQuitWin1
  681.         dc.w    0,0,320,75        ;POSITION, SIZE
  682.         dc.b    0,1            ;PENS
  683.         dc.l    GADGETUP+VANILLAKEY    ;IDCMP FLAGS
  684.         dc.l    $1006            ;FLAGS
  685.         dc.l    YNGad1,0        ;GADGETS, CHECKMARK
  686.         dc.l    NBBSName        ;TITLE
  687. SToW6        dc.l    0            ;SCREEN ADDRESS
  688.         dc.l    0            ;BITMAP
  689.         dc.w    320,75,320,75        ;MINIMUM+MAX SIZE
  690.         dc.w    $000f            ;TYPE
  691.  
  692. QuitWin1Txt1    dc.b    1,2            ;PENS
  693.         dc.w    0            ;MODE
  694.         dc.w    1,3            ;LEFT+TOPEDGE
  695.         dc.l    0            ;FONT
  696.         dc.l    QuitWin1Text1        ;TEXT
  697.         dc.l    QuitWin1Txt2        ;NEXTTEXT
  698. QuitWin1Text1    dc.b    "Message:",0
  699.         ds.l    0
  700.  
  701. QuitWin1Txt2    dc.b    1,2            ;PENS
  702.         dc.w    0            ;MODE
  703.         dc.w    5,22            ;LEFT+TOPEDGE
  704.         dc.l    0            ;FONT
  705.         dc.l    QuitWin1Text2        ;TEXT
  706.         dc.l    0            ;NEXTTEXT
  707. QuitWin1Text2    dc.b    "Is it O.K. to loose changes?",0
  708.                 ds.l    0
  709.  
  710. NewAbWindow1:
  711.         dc.w    128,50            ;X,Y POS
  712.         dc.w    400            ;WIDTH (orig.704)
  713.         dc.w    100            ;HEIGHT
  714.         dc.b    1,2            ;PENS
  715.         dc.l    GADGETUP+VANILLAKEY    ;IDCMP FLAGS
  716.         dc.l    ACTIVATE+BORDERLESS    ;FLAGS 
  717.         dc.l    YNGad1,0        ;GADGETS, CHECKMARK
  718.         dc.l    0            ;TITLE
  719. SToW7:        dc.l    0            ;SCREEN ADDRESS
  720.         dc.l    0            ;BITMAP            
  721.         dc.w    128,50,128,50        ;MINIMUM SIZE
  722.         dc.w    $000f            ;TYPE
  723.         ds.l    0
  724.  
  725.  
  726. ;Gadget structures
  727.  
  728. YNGad1        dc.l    YNGad2        ;Next Gadget
  729.         dc.w    10        ;"hit-box" left edge
  730.         dc.w    -15        ;"hit-box" top  edge
  731.         dc.w    51        ;"hit-box" Width
  732.         dc.w    10        ;"hit-box" Height
  733. YN1Flag        dc.w    $0008        ;flags
  734.         dc.w    $0001        ;activation
  735.         dc.w    $0001        ;gadget type
  736.         dc.l    YNGadgetBorder1    ;gadget rendering
  737.         dc.l    0        ;select rendering
  738.         dc.l    YNGadTxt1    ;gadget text
  739.         dc.l    0        ;mutual exclude
  740.         dc.l    0        ;special info
  741.         dc.w    2        ;gadget ID (user definable)
  742.         dc.l    0        ;ptr to general purpose user data
  743.  
  744. YNGadTxt1    dc.b    1,2            ;PENS
  745.         dc.w    0            ;MODE
  746.         dc.w    13,1            ;LEFT+TOPEDGE
  747.         dc.l    0            ;FONT
  748.         dc.l    PositiveText1        ;TEXT
  749.         dc.l    0            ;NEXTTEXT
  750.         ds.l    0
  751.         
  752. YNGad2        dc.l    0        ;Next Gadget
  753.         dc.w    -61        ;"hit-box" left edge
  754.         dc.w    -15        ;"hit-box" top  edge
  755.         dc.w    51        ;"hit-box" Width
  756.         dc.w    10        ;"hit-box" Height
  757. YNG2Flag    dc.w    $0018        ;flags
  758.         dc.w    $0001        ;activation
  759.         dc.w    $0001        ;gadget type
  760.         dc.l    YNGadgetBorder1    ;gadget rendering
  761.         dc.l    0        ;select rendering
  762.         dc.l    YNGadTxt2    ;gadget text
  763.         dc.l    0        ;mutual exclude
  764.         dc.l    0        ;special info
  765.         dc.w    3        ;gadget ID (user definable)
  766.         dc.l    0        ;ptr to general purpose user data
  767.  
  768. YNGadTxt2    dc.b    1,2            ;PENS
  769.                 dc.w    0            ;MODE
  770.                 dc.w    17,1            ;LEFT+TOPEDGE
  771.                 dc.l    0            ;FONT
  772.                 dc.l    NegativeText1        ;TEXT
  773.                 dc.l    0            ;NEXTTEXT
  774.  
  775.         INCLUDE    "LWF:NBBS/SetProg/SPPage1Gads.i"
  776.  
  777. ;Now for all the imagery and borders etc.
  778.  
  779. YNGadgetBorder1 dc.w    -1        ;Initial offsets from the origin
  780.         dc.w    -1        ;LeftEdge and TopEdge
  781.         dc.b    1,2        ;Pens
  782.         dc.b    1        ;Draw Mode
  783.         dc.b    5        ;Line Count (XY)
  784.         dc.l    YNBorderXY1    ;XY's
  785.         dc.l    YNGadgetBorder2    ;Next Border
  786.         dc.b    0
  787.         ds.l    0
  788. YNBorderXY1    dc.w    0,0
  789.         dc.w    52,0        
  790.         dc.w    52,11
  791.         dc.w    0,11
  792.         dc.w    0,0
  793.         dc.b    0
  794.         ds.l    0
  795.  
  796. YNGadgetBorder2 dc.w    -2        ;Initial offsets from the origin
  797.         dc.w    -3        ;LeftEdge and TopEdge
  798.         dc.b    3,1        ;Pens
  799.         dc.b    1        ;Draw Mode
  800.         dc.b    5        ;Line Count (XY)
  801.         dc.l    YNBorderXY2    ;XY's
  802.         dc.l    YNGadgetBorder3    ;Next Border
  803.         dc.b    0
  804.         ds.l    0
  805. YNBorderXY2    dc.w    0,0
  806.         dc.w    54,0        
  807.         dc.w    54,15
  808.         dc.w    0,15
  809.         dc.w    0,0
  810.         dc.b    0
  811.         ds.l    0
  812.  
  813. YNGadgetBorder3 dc.w    -3        ;Initial offsets from the origin
  814.         dc.w    -4        ;LeftEdge and TopEdge
  815.         dc.b    3,1        ;Pens
  816.         dc.b    1        ;Draw Mode
  817.         dc.b    5        ;Line Count (XY)
  818.         dc.l    YNBorderXY3    ;XY's
  819.         dc.l    0        ;Next Border
  820.         dc.b    0
  821.         ds.l    0
  822. YNBorderXY3    dc.w    0,0
  823.         dc.w    56,0        
  824.         dc.w    56,17
  825.         dc.w    0,17
  826.         dc.w    0,0
  827.         dc.b    0
  828.         ds.l    0
  829.  
  830. AbBorder1:    dc.w    2        ;Initial offsets from the origin
  831.         dc.w    1        ;LeftEdge and TopEdge
  832.         dc.b    1,2        ;Pens
  833.         dc.b    1        ;Draw Mode
  834.         dc.b    9        ;Line Count (XY)
  835.         dc.l    AbBorderXY    ;XY's
  836.         dc.l    0        ;Next Border
  837.         dc.b    0
  838.         ds.l    0
  839. AbBorderXY:    dc.w    0,0
  840.         dc.w    395,0        
  841.         dc.w    395,77
  842.         dc.w    331,77
  843.         dc.w    331,97
  844.         dc.w    64,97
  845.         dc.w    64,77
  846.         dc.w    0,77
  847.         dc.w    0,0
  848.         dc.b    0
  849.         ds.l    0
  850.  
  851. ButtonImage1:    dc.w    0,0            ;Left,Top
  852.         dc.w    16,11            ;Sizes
  853.         dc.w    1            ;Depth
  854.         dc.l    ButtonImg1        ;Image data
  855.         dc.b    1,0            ;PlanePick,PlaneOnOff
  856.         dc.l    0            ;Next image
  857.         ds.l    0
  858.  
  859. ButtonImage2:    dc.w    0,0            ;Left,Top
  860.         dc.w    16,11            ;Sizes
  861.         dc.w    1            ;Depth
  862.         dc.l    ButtonImg2        ;Image data
  863.         dc.b    1,0            ;PlanePick,PlaneOnOff
  864.         dc.l    0            ;Next image
  865.         ds.l    0
  866.  
  867. BorderImage1:    dc.w    -1,-1            ;Left,Top
  868.         dc.w    234,10            ;Sizes
  869.         dc.w    1            ;Depth
  870.         dc.l    BorderImg1        ;Image data
  871.         dc.b    1,0            ;PlanePick,PlaneOnOff
  872.         dc.l    0            ;Next image
  873.         ds.l    0
  874.  
  875. BorderImage2:    dc.w    -1,-1            ;Left,Top
  876.         dc.w    26,10            ;Sizes
  877.         dc.w    1            ;Depth
  878.         dc.l    BorderImg1        ;Image data
  879.         dc.b    1,0            ;PlanePick,PlaneOnOff
  880.         dc.l    0            ;Next image
  881.         ds.l    0
  882.  
  883. BorderImage3:    dc.w    -1,-1            ;Left,Top
  884.         dc.w    114,10            ;Sizes
  885.         dc.w    1            ;Depth
  886.         dc.l    BorderImg1        ;Image data
  887.         dc.b    1,0            ;PlanePick,PlaneOnOff
  888.         dc.l    0            ;Next image
  889.         ds.l    0
  890.  
  891. ;Menus
  892.  
  893. Menu1:        dc.l    Menu2            ;NEXT MENU
  894.         dc.w    0,1            ;LEFT+TOP EDGE
  895.         dc.w    100,8            ;WIDTH+HEIGHT
  896.         dc.w    $0001            ;FLAGS
  897.         dc.l    Menu1Name        ;NAME
  898.         dc.l    Menu1Item1        ;ITEMS
  899.         dc.w    0,0            ;Some Jazz-music here...        
  900.         dc.w    0,0,0            ;(with a good beat)
  901.  
  902. Menu1Name:    dc.b    "Project",0
  903.         ds.l    0
  904.  
  905. Menu1Item1:    dc.l    Menu1Item2        ;NEXT ITEM
  906.         dc.w    1,1            ;LEFT+TOP EDGE
  907.         dc.w    116,8            ;WIDTH+HEIGHT
  908.         dc.w    $0056            ;FLAGS
  909.         dc.l    0            ;MUTUAL EXCLUDE
  910.         dc.l    Menu1I1            ;ITEMFILL (IMAGE,ITEXT,GFX)
  911.         dc.l    0            ;SELECTFILL
  912.         dc.b    "L",0            ;COMMAND
  913.         dc.l    0            ;SubItem
  914.         dc.w    $ffff            ;NextSelect
  915.         
  916. Menu1I1:    dc.b    0,1            ;PENS
  917.         dc.w    0            ;MODE
  918.         dc.w    1,0            ;LEFT+TOPEDGE
  919.         dc.l    0            ;FONT
  920.         dc.l    Menu1I1Text        ;TEXT
  921.         dc.l    0            ;NEXTTEXT
  922.  
  923. Menu1I1Text:    dc.b    "Load...",0
  924.         ds.l    0
  925.  
  926. Menu1Item2:    dc.l    Menu1Item3        ;NEXT ITEM
  927.         dc.w    1,10            ;LEFT+TOP EDGE
  928.         dc.w    116,8            ;WIDTH+HEIGHT
  929.         dc.w    $0056            ;FLAGS
  930.         dc.l    0            ;MUTUAL EXCLUDE
  931.         dc.l    Menu1I2            ;ITEMFILL (IMAGE,ITEXT,GFX)
  932.         dc.l    0            ;SELECTFILL
  933.         dc.b    "S",0            ;COMMAND
  934.         dc.l    0            ;SubItem
  935.         dc.w    $ffff            ;NextSelect
  936.         
  937. Menu1I2:    dc.b    0,1            ;PENS
  938.         dc.w    0            ;MODE
  939.         dc.w    1,0            ;LEFT+TOPEDGE
  940.         dc.l    0            ;FONT
  941.         dc.l    Menu1I2Text        ;TEXT
  942.         dc.l    0            ;NEXTTEXT
  943.  
  944. Menu1I2Text:    dc.b    "Save",0
  945.         ds.l    0
  946.  
  947. Menu1Item3:    dc.l    Menu1Item4        ;NEXT ITEM
  948.         dc.w    1,19            ;LEFT+TOP EDGE
  949.         dc.w    116,8            ;WIDTH+HEIGHT
  950.         dc.w    $0056            ;FLAGS
  951.         dc.l    0            ;MUTUAL EXCLUDE
  952.         dc.l    Menu1I3            ;ITEMFILL (IMAGE,ITEXT,GFX)
  953.         dc.l    0            ;SELECTFILL
  954.         dc.b    "A",0            ;COMMAND
  955.         dc.l    0            ;SubItem
  956.         dc.w    $ffff            ;NextSelect
  957.         ds.l    0
  958.         
  959. Menu1I3:    dc.b    0,1            ;PENS
  960.         dc.w    0            ;MODE
  961.         dc.w    1,0            ;LEFT+TOPEDGE
  962.         dc.l    0            ;FONT
  963.         dc.l    Menu1I3Text        ;TEXT
  964.         dc.l    0            ;NEXTTEXT
  965.  
  966. Menu1I3Text:    dc.b    "Save as...",0
  967.         ds.l    0
  968.  
  969. Menu1Item4:    dc.l    Menu1Item5        ;NEXT ITEM
  970.         dc.w    1,41            ;LEFT+TOP EDGE
  971.         dc.w    116,8            ;WIDTH+HEIGHT
  972.         dc.w    $0056            ;FLAGS
  973.         dc.l    0            ;MUTUAL EXCLUDE
  974.         dc.l    Menu1I4            ;ITEMFILL (IMAGE,ITEXT,GFX)
  975.         dc.l    0            ;SELECTFILL
  976.         dc.b    "?",0            ;COMMAND
  977.         dc.l    0            ;SubItem
  978.         dc.w    $ffff            ;NextSelect
  979.         
  980. Menu1I4:    dc.b    0,1            ;PENS
  981.         dc.w    0            ;MODE
  982.         dc.w    1,0            ;LEFT+TOPEDGE
  983.         dc.l    0            ;FONT
  984.         dc.l    Menu1I4Text        ;TEXT
  985.         dc.l    0            ;NEXTTEXT
  986.  
  987. Menu1I4Text:    dc.b    "About...",0
  988.         ds.l    0
  989.  
  990. Menu1Item5:    dc.l    0            ;NEXT ITEM
  991.         dc.w    1,51            ;LEFT+TOP EDGE
  992.         dc.w    116,9            ;WIDTH+HEIGHT
  993.         dc.w    $0056            ;FLAGS
  994.         dc.l    0            ;MUTUAL EXCLUDE
  995.         dc.l    Menu1I5            ;ITEMFILL (IMAGE, ITEXT,GFX)
  996.         dc.l    0            ;SELECTFILL
  997.         dc.b     "Q",0            ;COMMAND
  998.         dc.l    0            ;IF<>0SubItem Shows ->
  999.         dc.w    $ffff            ;NextSelect
  1000.  
  1001. Menu1I5:    dc.b    0,1            ;PENS
  1002.         dc.w    0            ;MODE
  1003.         dc.w    1,0            ;LEFT+TOPEDGE
  1004.         dc.l    0            ;FONT
  1005.         dc.l    Menu1I5Text        ;TEXT
  1006.         dc.l    0            ;NEXTTEXT
  1007.     
  1008. Menu1I5Text:    dc.b    "Quit",0
  1009.         ds.l    0
  1010.  
  1011. Menu2:        dc.l    0            ;NEXT MENU
  1012.         dc.w    101,1            ;LEFT+TOP EDGE
  1013.         dc.w    100,8            ;WIDTH+HEIGHT
  1014.         dc.w    $0001            ;FLAGS
  1015.         dc.l    Menu2Name        ;NAME
  1016.         dc.l    Menu2Item1        ;ITEMS
  1017.         dc.w    0,0            ;Some Jazz-music here...        
  1018.         dc.w    0,0,0            ;(with a good beat)
  1019.  
  1020. Menu2Name:    dc.b    "Page",0
  1021.         ds.l    0
  1022.  
  1023. Menu2Item1:    dc.l    Menu2Item2        ;NEXT ITEM
  1024.         dc.w    1,1            ;LEFT+TOP EDGE
  1025.         dc.w    90,8            ;WIDTH+HEIGHT
  1026.         dc.w    $0056            ;FLAGS
  1027.         dc.l    0            ;MUTUAL EXCLUDE
  1028.         dc.l    Menu2I1            ;ITEMFILL (IMAGE,ITEXT,GFX)
  1029.         dc.l    0            ;SELECTFILL
  1030.         dc.b    "1",0            ;COMMAND
  1031.         dc.l    0            ;SubItem
  1032.         dc.w    $ffff            ;NextSelect
  1033.         ds.l    0
  1034.         
  1035. Menu2I1:    dc.b    0,1            ;PENS
  1036.         dc.w    0            ;MODE
  1037.         dc.w    1,0            ;LEFT+TOPEDGE
  1038.         dc.l    0            ;FONT
  1039.         dc.l    Menu2I1Text        ;TEXT
  1040.         dc.l    0            ;NEXTTEXT
  1041.  
  1042. Menu2I1Text:    dc.b    "Page 1",0
  1043.         ds.l    0
  1044.  
  1045. Menu2Item2:    dc.l    Menu2Item3        ;NEXT ITEM
  1046.         dc.w    1,10            ;LEFT+TOP EDGE
  1047.         dc.w    90,8            ;WIDTH+HEIGHT
  1048.         dc.w    $0056            ;FLAGS
  1049.         dc.l    0            ;MUTUAL EXCLUDE
  1050.         dc.l    Menu2I2            ;ITEMFILL (IMAGE,ITEXT,GFX)
  1051.         dc.l    0            ;SELECTFILL
  1052.         dc.b    "2",0            ;COMMAND
  1053.         dc.l    0            ;SubItem
  1054.         dc.w    $ffff            ;NextSelect
  1055.         
  1056. Menu2I2:    dc.b    0,1            ;PENS
  1057.         dc.w    0            ;MODE
  1058.         dc.w    1,0            ;LEFT+TOPEDGE
  1059.         dc.l    0            ;FONT
  1060.         dc.l    Menu2I2Text        ;TEXT
  1061.         dc.l    0            ;NEXTTEXT
  1062.  
  1063. Menu2I2Text:    dc.b    "Page 2",0
  1064.         ds.l    0
  1065.  
  1066. Menu2Item3:    dc.l    Menu2Item4        ;NEXT ITEM
  1067.         dc.w    1,19            ;LEFT+TOP EDGE
  1068.         dc.w    90,8            ;WIDTH+HEIGHT
  1069.         dc.w    $0056            ;FLAGS
  1070.         dc.l    0            ;MUTUAL EXCLUDE
  1071.         dc.l    Menu2I3            ;ITEMFILL (IMAGE,ITEXT,GFX)
  1072.         dc.l    0            ;SELECTFILL
  1073.         dc.b    "3",0            ;COMMAND
  1074.         dc.l    0            ;SubItem
  1075.         dc.w    $ffff            ;NextSelect
  1076.         
  1077. Menu2I3:    dc.b    0,1            ;PENS
  1078.         dc.w    0            ;MODE
  1079.         dc.w    1,0            ;LEFT+TOPEDGE
  1080.         dc.l    0            ;FONT
  1081.         dc.l    Menu2I3Text        ;TEXT
  1082.         dc.l    0            ;NEXTTEXT
  1083.  
  1084. Menu2I3Text:    dc.b    "Page 3",0
  1085.         ds.l    0
  1086.  
  1087. Menu2Item4:    dc.l    0            ;NEXT ITEM
  1088.         dc.w    1,28            ;LEFT+TOP EDGE
  1089.         dc.w    90,8            ;WIDTH+HEIGHT
  1090.         dc.w    $0056            ;FLAGS
  1091.         dc.l    0            ;MUTUAL EXCLUDE
  1092.         dc.l    Menu2I4            ;ITEMFILL (IMAGE,ITEXT,GFX)
  1093.         dc.l    0            ;SELECTFILL
  1094.         dc.b    "4",0            ;COMMAND
  1095.         dc.l    0            ;SubItem
  1096.         dc.w    $ffff            ;NextSelect
  1097.         
  1098. Menu2I4:    dc.b    0,1            ;PENS
  1099.         dc.w    0            ;MODE
  1100.         dc.w    1,0            ;LEFT+TOPEDGE
  1101.         dc.l    0            ;FONT
  1102.         dc.l    Menu2I4Text        ;TEXT
  1103.         dc.l    0            ;NEXTTEXT
  1104.  
  1105. Menu2I4Text:    dc.b    "Page 4",0
  1106.         ds.l    0
  1107.  
  1108. ;Texts, Part II
  1109.  
  1110. AboutTxt1:    dc.b    3,1            ;PENS
  1111.         dc.w    0            ;MODE
  1112.         dc.w    10,10            ;LEFT+TOPEDGE
  1113.         dc.l    0            ;FONT
  1114.         dc.l    AboutText1        ;TEXT
  1115.         dc.l    AboutTxt2        ;NEXTTEXT
  1116.         ds.l    0
  1117.         
  1118. AboutTxt2:    dc.b    3,2            ;PENS
  1119.         dc.w    4            ;MODE
  1120.         dc.w    10,20            ;LEFT+TOPEDGE
  1121.         dc.l    0            ;FONT
  1122.         dc.l    AboutText2        ;TEXT
  1123.         dc.l    AboutTxt3        ;NEXTTEXT
  1124.         ds.l    0
  1125.  
  1126. AboutTxt3:    dc.b    3,1            ;PENS
  1127.         dc.w    4            ;MODE
  1128.         dc.w    10,30            ;LEFT+TOPEDGE
  1129.         dc.l    0            ;FONT
  1130.         dc.l    AboutText3        ;TEXT
  1131.         dc.l    AboutTxt4        ;NEXTTEXT
  1132.         ds.l    0
  1133.  
  1134. AboutTxt4:    dc.b    1,1            ;PENS
  1135.         dc.w    4            ;MODE
  1136.         dc.w    10,50            ;LEFT+TOPEDGE
  1137.         dc.l    0            ;FONT
  1138.         dc.l    AboutText4        ;TEXT
  1139.         dc.l    AboutTxt5        ;NEXTTEXT
  1140.         ds.l    0
  1141.  
  1142. AboutTxt5:    dc.b    1,1            ;PENS
  1143.         dc.w    4            ;MODE
  1144.         dc.w    10,60            ;LEFT+TOPEDGE
  1145.         dc.l    0            ;FONT
  1146.         dc.l    AboutText5        ;TEXT
  1147.         dc.l    AboutTxt6        ;NEXTTEXT
  1148.         ds.l    0
  1149.  
  1150. AboutTxt6:    dc.b    1,1            ;PENS
  1151.         dc.w    4            ;MODE
  1152.         dc.w    10,69            ;LEFT+TOPEDGE
  1153.         dc.l    0            ;FONT
  1154.         dc.l    AboutText6        ;TEXT
  1155.         dc.l    AboutTxt7        ;NEXTTEXT
  1156.         ds.l    0
  1157.  
  1158. AboutTxt7:    dc.b    1,1            ;PENS
  1159.         dc.w    4            ;MODE
  1160.         dc.w    10,78            ;LEFT+TOPEDGE
  1161.         dc.l    0            ;FONT
  1162.         dc.l    AboutText7        ;TEXT
  1163.         dc.l    0            ;NEXTTEXT
  1164.         ds.l    0
  1165.  
  1166. AboutText1:    dc.b    "NBBS Intuition Interfaced SetUp Program v.0.01a",0
  1167. AboutText2:    dc.b    "                       by",0
  1168. AboutText3:    dc.b    "                 Tomi Blinnikka",0
  1169. AboutText4:    dc.b    "  (C)opyright 1991. Contact author at:",0,0
  1170. AboutText5:    dc.b    "                  Syystie 10",0
  1171. AboutText6:    dc.b    "                  00780 Helsinki",0
  1172. AboutText7:    dc.b    "                  Finland",0
  1173.         ds.l    0
  1174.  
  1175. Win1Txt1:    dc.b    1,2            ;PENS
  1176.         dc.w    0            ;MODE
  1177.         dc.w    20,12            ;LEFT+TOPEDGE
  1178.         dc.l    0            ;FONT
  1179.         dc.l    Win1Text1        ;TEXT
  1180.         dc.l    Win1Txt2        ;NEXTTEXT
  1181.         ds.l    0
  1182. Win1Text1:    dc.b    "Stop bits",0
  1183.         ds.l    0
  1184. Win1Txt2:    dc.b    1,2            ;PENS
  1185.         dc.w    0            ;MODE
  1186.         dc.w    20,50            ;LEFT+TOPEDGE
  1187.         dc.l    0            ;FONT
  1188.         dc.l    Win1Text2        ;TEXT
  1189.         dc.l    Win1Txt3        ;NEXTTEXT
  1190.         ds.l    0
  1191. Win1Text2:    dc.b    "Data bits",0
  1192.         ds.l    0
  1193. Win1Txt3:    dc.b    1,2            ;PENS
  1194.         dc.w    0            ;MODE
  1195.         dc.w    120,12            ;LEFT+TOPEDGE
  1196.         dc.l    0            ;FONT
  1197.         dc.l    Win1Text3        ;TEXT
  1198.         dc.l    Win1Txt4        ;NEXTTEXT
  1199.         ds.l    0
  1200. Win1Text3:    dc.b    "Parity",0
  1201.         ds.l    0
  1202. Win1Txt4:    dc.b    1,2            ;PENS
  1203.         dc.w    0            ;MODE
  1204.         dc.w    220,12            ;LEFT+TOPEDGE
  1205.         dc.l    0            ;FONT
  1206.         dc.l    Win1Text4        ;TEXT
  1207.         dc.l    0 ;Win1Txt5        ;NEXTTEXT
  1208.         ds.l    0
  1209. Win1Text4:    dc.b    "Duplex",0
  1210.         ds.l    0
  1211.  
  1212. ;Now the most boring stuff.. The Gadget buffers, most of which are 30 bytes
  1213.  
  1214. GadUnBuf:    ds.b    30
  1215.  
  1216. ;Newest version of the .config-file in Config.i
  1217.  
  1218.         INCLUDE    "LWF:NBBS/Config.i"
  1219.  
  1220. ;Now for the stuff that needs to be in CHIP-RAM
  1221.  
  1222.         section    NBBS_CHIP_STUFF,DATA,CHIP
  1223.  
  1224. ButtonImg1:    dc.w    $1f80,$30c0,$6060,$c030,$c030,$c030,$c030,$c030,$6060,$30c0,$1f80
  1225. ButtonImg2:    dc.w    $1f80,$30c0,$6660,$cf30,$cf30,$cf30,$cf30,$cf30,$6660,$30c0,$1f80
  1226.  
  1227. BorderImg1:    dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1228.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1229.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1230.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1231.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1232.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1233.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1234.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1235.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1236.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1237.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1238.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1239.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1240.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1241.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1242.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1243.         dc.w    $ffff,$ffff,$ffff,$ffff,$ffff,$ffff
  1244.         END
  1245.             ;1234567890123456, 1234567890123456,       1234567890123456
  1246.