DataMuseum.dk

top - metrics - download

    Length: 4604 (0x11fc)
    Types: TextFile
    Names: »WINDOWS.TXT«

└─⟦6a1b9f2c5⟧ Bits:30005310/disk3.imd Open Access II v2.10 (dansk)
    └─⟦this⟧ »WINDOWS.TXT« 

TextFile

      !WINDOWS: tutorial which  demonstrates the use of multiple windows 
      
      !------------------------------------------------------------------ 
      !This first section is commonly referred to as the initialization   
      !section of the program: it contains variable definitions which     
      !are used throughout the rest of the program without being altered. 
      !------------------------------------------------------------------ 
      message = '' !definition of variable needed by procedure multi_p 
      
      WINDOW first_w = SIZE 37 BY 15 AT 1,3 FRAMED
      WINDOW second_w = SIZE 37 BY 15 AT 40,3 MODE USR_1 FRAMED

      !big_w will be invisible, since it has no frame or color; 
      WINDOW big_w = SIZE 78 BY 15 AT 1,3  
         !only its subpanes will be visible 
         WINDOW big_Lwp = LEFT 37 IN big_w FRAMED
         WINDOW big_Rwp = RIGHT 37 IN big_w FRAMED 


      !------------------------------------------------------------------ 
      !This is the main section of the program, where variables are
      !changed and windows are activated and deactivated.
      !------------------------------------------------------------------ 
      PUT AT 14,10 "Vinduer d▶91◀kker over ting, men de sletter dem ikke!"
      message = ' Ingen vinduer er aktiverede. Tast <udf▶9b◀r> for at forts▶91◀tte.'
      DO multi_p                          !multi_p is similar to msgpause 

      !************First we'll put one window on the screen**************** 
      SCREEN first_w                      !activate the first window 
         PUT MODE PROMPT 'F▶9b◀rste vindue er aktiveret, og', ØØ
         DO NEWLINE, 'denne besked er skrevet med en', ØØ
         DO NEWLINE, 'specielt valgt skrift.  Dette valg', ØØ
         DO NEWLINE, 'er aktivt, indtil enten valget', ØØ
         DO NEWLINE, 'eller vinduet er' 
         PUT MODE NORMAL "'sl▶86◀et fra igen!'." 
         DO multi_p                       !pause for a look at it 
         END SCREEN                       !deactivate the first window. 
      message = ' F▶9b◀rste vindue er deaktiveret. Tast <udf▶9b◀r>.'
      DO multi_p                          !pause for another look 

      !**********Then we'll put the other window on the screen************* 
      SCREEN second_w                     !activate second window 
         PUT 'Andet vindue er aktiveret'
         DO multi_p
         END SCREEN                       !deactivate second window 
      message = ' Andet vindue er deaktiveret. Tast <udf▶9b◀r>.'
      DO multi_p
      
      !************Now we'll put both windows on the screen,*************** 
      !************though we can only PUT things to one.    *************** 
      SCREEN first_w
         PUT 'F▶9b◀rste vindue er aktiveret'
         SCREEN second_w
            PUT 'Nu er kun det andet vindue aktiveret,'
            PUT DO NEWLINE, '- begge vinduer er alligevel synlige!.'
            PUT DO NEWLINE, 'Desv▶91◀rre kan tekst kun skrives '
            PUT DO NEWLINE, 'i det sidst aktiverede vindue!'
            PUT DO NEWLINE 
            PUT DO NEWLINE, 'For at skrive til det ene eller det'
            PUT DO NEWLINE, 'andet vindue, skal underrammer bruges'
            PUT DO NEWLINE, 'i stedet for separate vinduer.' 
            PUT DO NEWLINE,ØØ                                     
               'Nu deaktiverer vi det andet vindue.'
            DO multi_p 
            END SCREEN 
         PUT  DO NEWLINE, "Nu deaktiverer vi det f▶9b◀rste vindue."
         DO multi_p 
         END SCREEN 

      !************Now we'll put up one window with two     *************** 
      !************subpanes, and will switch between them.  *************** 
      SCREEN big_w
         PUT IN big_Lwp 'Fordelen ved underrammer er, at'
         PUT DO NEWLINE, 'man kan skifte fra en underramme' 
         DO multi_p 
         PUT IN big_Rwp AT 1,3 'til en anden underramme'
         DO multi_p 
         PUT IN big_Lwp AT 1,4, 'og tilbage igen.'
         DO multi_p 
         PUT AT 1,6, "Dette vil ikke virke mellem"
         PUT DO NEWLINE, 'forskellige vinduer.'
         DO multi_p 
         PUT IN big_Rwp AT 1,6 ØØ
            "P▶86◀ den anden side kan man ikke", ØØ
            DO NEWLINE, 'deaktivere en underramme uden', ØØ
            DO NEWLINE, 'ogs▶86◀ at deaktivere den anden',ØØ
            DO NEWLINE, 'samt det vindue, der indeholder dem.' 
            DO multi_p 
         END SCREEN 
      PUT AT 15,-3 "Man kan ikke f▶86◀ alt det, man gerne vil have!"
      DO multi_p 
      !end of multi_w