Rockwell Automation 2708-NAG Application Generation Software - Manual (Page 34)

Aoppendix A
Sample Program Listing
A – 2
39 READ KBD to DEST 59 8 n>=100 n<=5000 on Timeout 3000 goto
Restart(3)
40 APPEND DEST to OP
41 GOTO AskForBadge(20)
42 SendBadge:
43 ’––––– Badge is sent to the host –––––
44 MOVE ”Badge” to OP
45 SendData:
46 CLEAR SCREEN
47 SOUND 1000, .25
48 MOVE Sys:DATE to NET
49 APPEND Sys:TIME to NET comma separated
50 APPEND OP to NET comma separated
51 APPEND IN to NET comma separated
52 SEND NET to host data QUEUE
53 DISPLAY 15 9 from ”Thank You”
54 PAUSE .5
55 GOTO Restart(3)
– Generation completed with no errors.
– Basic file DEFAULT.BAS contains 647 lines.
– LXB compilation.
NO ERRORS DETECTED
– DEFAULT.LXE can be downloaded to LINX terminals
You can run the personality default personality by pressing [ALT] R. Press
[ESC] at any time to cancel the execution of the personality.