Exemple : utilisation de la souris (MOUBTN)

BoTTom |
     A*%%TS  SD  19960117  180207  AF400CM     REL-V3R1M0  5763-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A          R FMT
     A*%%TS  SD  19960117  180207  AF400CM     REL-V3R1M0  5763-PW1
     A                                      CA03(03)
     A                                      CA12(12)
     A                                      CF04(04)
     A                                      RTNCSRLOC(*MOUSE &L1 &C1 &L2 &C2)
     A                                      MOUBTN(*SLP *SLR CF04)
     A                                      MOUBTN(*ULP CA03)
     A                                      MOUBTN(*URP CA12)
     A                                  5 10'ESSAI DE SOURIS'
     A            L1             3S 0H
     A            C1             3S 0H
     A            L2             3S 0H
     A            C2             3S 0H
     A                                  2 41'Utilisation de la souris'
     A                                      COLOR(BLU)
     A                                  5 27' '
     A                                  4 45'Click bouton gauche = F3'
     A                                  5 45'Click bouton droit = F12'
     A                                  7 45'TOUCHE MAJUSCULE ENFONCEE,'
     A                                  8 47'Cliquer'
     A                                  8 55'à'
     A                                  8 57'un'
     A                                  8 60'endroit'
     A                                  8 68'(pos2)'
     A                                  9 48'et'
     A                                  9 51'relâcher'
     A                                  9 60'à'
     A                                  9 62'un'
     A                                  9 65'autre'
     A                                  9 71'(pos1)'
     A                                  6 38'sinon'
     A                                      DSPATR(UL)
     A                                 11 10'Les coordonnées de la souris sont -
     A                                      affichées dans une fenêtre'
     A          R WIN
     A*%%TS  SD  19950619  105352  AF400CM     REL-V3R1M0  5763-PW1
     A                                      WINDOW(19 10 4 65)
     A                                  1  3'Indicateurs,'
     A                                  1 16'03:'
     A                                      DSPATR(HI)


|
     A            C3             1A  O  1 21
     A                                  1 24'04:'
     A                                      DSPATR(HI)
     A            C4             1A  O  1 30
     A                                  1 35'12:'
     A                                      DSPATR(HI)
     A            C12            1A  O  1 41
     A                                  2  3'Curseur'
     A                                  2 16'Pos1'
     A                                      DSPATR(HI)
     A                                  2 25'L:'
     A                                  2 36'C:'
     A                                  3 16'Pos2'
     A                                      DSPATR(HI)
     A                                  3 25'L:'
     A                                  3 36'C:'
     A            L1             3S 0O  2 30
     A            L2             3S 0O  3 30
     A            C1             3S 0O  2 39
     A            C2             3S 0O  3 39
     A                                  2 46'Appuyez sur Entrée'
     A                                      COLOR(BLU)
     A                                  3 47'pour sortir'
     A                                      COLOR(BLU)




©AF400