Courses · KcsDev1982/sunbelt-plb-samples@a06ad44 · GitHub
Skip to content

Commit a06ad44

Browse files
KcsDev1982KcsDev1982
committed
Courses
Added the PL/B introduction and PL/B OLE/ActiveX course notes
1 parent a61dd69 commit a06ad44

31 files changed

Lines changed: 2727 additions & 1 deletion

‎courses/introduction/LabExercises/lab01.pls‎

Lines changed: 9 additions & 0 deletions

‎courses/introduction/LabExercises/lab02.pls‎

Lines changed: 64 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,64 @@
1+
*---------------------------------------------------------------
2+
.
3+
. Program Name: Lab02.pls
4+
. Description: Introduction to PL/B Lab 2 program
5+
.
6+
.
7+
ACCOUNT DIM 4
8+
NAME DIM 20
9+
ADDRESS DIM 35
10+
CITY DIM 20
11+
STATE DIM 2
12+
ZIP FORM 5
13+
BALANCE FORM 4.2
14+
.
15+
ANS DIM 1
16+
.
17+
TRAP Quit IF ESC
18+
TRAP Lab1 IF F1
19+
.
20+
START
21+
KEYIN *IT,*P=10:5,"Account: ",*DE,*DVRV=ACCOUNT
22+
.
23+
GETNAME
24+
KEYIN *P=10:6," Name: ",*DVRV=NAME
25+
GOTO START IF UP
26+
.
27+
GETADDRESS
28+
KEYIN *P=10:7,"Address: ",*DVRV=ADDRESS
29+
GOTO GETNAME IF UP
30+
.
31+
GETCITY
32+
KEYIN *P=10:8," City: ",*DVRV=CITY
33+
GOTO GETADDRESS IF UP
34+
.
35+
GETSTATE
36+
KEYIN *P=10:9," State: ",*DVRV=STATE
37+
GOTO GETCITY IF UP
38+
.
39+
GETZIP
40+
KEYIN *P=10:10,"Zipcode: ",*DVRV=ZIP
41+
GOTO GETSTATE IF UP
42+
.
43+
GETBALANCE
44+
KEYIN *P=10:11,"Balance: ",*DVRV=BALANCE
45+
GOTO GETZIP IF UP
46+
.
47+
KEYIN *IN,*P=1:24,*EL,"Another Entry? ",ANS
48+
GOTO GETBALANCE IF UP
49+
CMATCH "Y",ANS
50+
GOTO Start IF EQUAL
51+
STOP
52+
*
53+
.Chain to Lab01
54+
.
55+
Lab1
56+
TRAP CHAINERR IF CFAIL
57+
CHAIN "LAB01"
58+
STOP
59+
.
60+
CHAINERR
61+
KEYIN *HD,"Error chaining to Lab01. ",ANS
62+
.
63+
QUIT
64+
STOP

‎courses/introduction/LabExercises/lab02_2.pls‎

Lines changed: 28 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,28 @@
1+
*---------------------------------------------------------------
2+
.
3+
. Program Name: Lab02_2.pls
4+
. Description: Introduction to PL/B Lab 2 Step 2 program
5+
.
6+
.
7+
ACCOUNT DIM 4
8+
NAME DIM 20
9+
ADDRESS DIM 35
10+
CITY DIM 20
11+
STATE DIM 2
12+
ZIP FORM 5
13+
BALANCE FORM 4.2
14+
.
15+
Start
16+
KEYIN *ES,*P=10:5,"Account: ",ACCOUNT:
17+
*P=10:6," Name: ",NAME:
18+
*P=10:7,"Address: ",ADDRESS:
19+
*P=10:8," City: ",CITY:
20+
*P=10:9," State: ",STATE:
21+
*P=10:10,"Zipcode: ",ZIP:
22+
*P=10:11,"Balance: ",BALANCE
23+
.
24+
ANS DIM 1
25+
KEYIN *P=1:24,*EL,"Another Entry? ",ANS
26+
CMATCH "Y",ANS
27+
GOTO START IF EQUAL
28+
STOP

‎courses/introduction/LabExercises/lab02_3.pls‎

Lines changed: 28 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,28 @@
1+
*---------------------------------------------------------------
2+
.
3+
. Program Name: Lab02_3.pls
4+
. Description: Introduction to PL/B Lab 2 Step 3 program
5+
.
6+
.
7+
ACCOUNT DIM 4
8+
NAME DIM 20
9+
ADDRESS DIM 35
10+
CITY DIM 20
11+
STATE DIM 2
12+
ZIP FORM 5
13+
BALANCE FORM 4.2
14+
.
15+
Start
16+
KEYIN *ES,*IT,*P=10:5,*DE,"Account: ",*DVRV=ACCOUNT:
17+
*P=10:6," Name: ",*DVRV=NAME:
18+
*P=10:7,"Address: ",*DVRV=ADDRESS:
19+
*P=10:8," City: ",*DVRV=CITY:
20+
*P=10:9," State: ",*DVRV=STATE:
21+
*P=10:10,"Zipcode: ",*DVRV=ZIP:
22+
*P=10:11,"Balance: ",*DVRV=BALANCE
23+
.
24+
ANS DIM 1
25+
KEYIN *P=1:24,*EL,"Another Entry? ",ANS
26+
CMATCH "Y",ANS
27+
GOTO START IF EQUAL
28+
STOP

‎courses/introduction/LabExercises/lab03.pls‎

Lines changed: 94 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,94 @@
1+
*---------------------------------------------------------------
2+
.
3+
. Program Name: Lab03.pls
4+
. Description: Introduction to PL/B Lab 3 program
5+
.
6+
.
7+
ACCOUNT DIM 4
8+
NAME DIM 20
9+
ADDRESS DIM 35
10+
CITY DIM 20
11+
STATE DIM 2
12+
ZIP FORM 5
13+
BALANCE FORM 4.2
14+
.
15+
TRAP QUIT IF ESCAPE
16+
TRAP LAB10 IF F1
17+
*
18+
.Display the form
19+
.
20+
DISPLAY *ES,*P10:5,"Account:":
21+
*P10:6," Name:":
22+
*P10:7,"Address:":
23+
*P10:8," City:":
24+
*P10:9," State:":
25+
*P10:10," Zip:":
26+
*P10:11,"Balance:"
27+
*
28+
.Get the Account Number
29+
.
30+
Start
31+
KEYIN *IT,*P=19:5,*DE,*DVRV=ACCOUNT
32+
GOTO GETBAL IF UP
33+
*
34+
.Get the Name
35+
.
36+
GETNAME
37+
KEYIN *P=19:6,*DVRV=NAME
38+
GOTO START IF UP
39+
*
40+
.Get the Address
41+
.
42+
GETADDR
43+
KEYIN *P=19:7,*DVRV=ADDRESS
44+
GOTO GETNAME IF UP
45+
*
46+
.Get the City
47+
.
48+
GETCITY
49+
KEYIN *P=19:8,*DVRV=CITY
50+
GOTO GETADDR IF UP
51+
*
52+
.Get the State
53+
.
54+
GETSTATE
55+
KEYIN *P=19:9,*DVRV=STATE
56+
GOTO GETCITY IF UP
57+
*
58+
.Get the Zipcode
59+
.
60+
GETZIP
61+
KEYIN *P=19:10,*DVRV=ZIP
62+
GOTO GETSTATE IF UP
63+
*
64+
.Get the Balance
65+
.
66+
GETBAL
67+
KEYIN *P=19:11,*DVRV=BALANCE
68+
GOTO GETZIP IF UP
69+
.
70+
ANS DIM 1
71+
KEYIN *IN,*P=1:24,*EL,"Another Entry? ",ANS
72+
GOTO GETBAL IF UP
73+
CMATCH "Y",ANS
74+
GOTO START IF EQUAL
75+
.
76+
QUIT
77+
STOP
78+
79+
IF Zero
80+
ENDIF
81+
*
82+
.Chain to Exercise 1
83+
.
84+
LAB10
85+
DISPLAY *ES
86+
TRAP CHAINERR IF CFAIL
87+
CHAIN "LAB01"
88+
STOP
89+
*
90+
.Lab 1 not found
91+
.
92+
CHAINERR
93+
KEYIN *B,*HD,"Lab 1 program not found.",ANS
94+
STOP

‎courses/introduction/LabExercises/lab03_2.pls‎

Lines changed: 90 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,90 @@
1+
*---------------------------------------------------------------
2+
.
3+
. Program Name: Lab03_2.pls
4+
. Description: Introduction to PL/B Lab 3 part 2 program
5+
.
6+
.
7+
ACCOUNT DIM 4
8+
NAME DIM 20
9+
ADDRESS DIM 35
10+
CITY DIM 20
11+
STATE DIM 2
12+
ZIP FORM 5
13+
BALANCE FORM 4.2
14+
.
15+
TRAP QUIT IF ESCAPE
16+
TRAP LAB10 IF F1
17+
*
18+
.Display the form
19+
.
20+
DISPLAY *ES,*P10:5,"Account:":
21+
*P10:6," Name:":
22+
*P10:7,"Address:":
23+
*P10:8," City:":
24+
*P10:9," State:":
25+
*P10:10," Zip:":
26+
*P10:11,"Balance:"
27+
*
28+
.Get the Account Number
29+
.
30+
Start
31+
KEYIN *IT,*P=19:5,*DE,*DVRV=ACCOUNT
32+
GOTO GETBAL IF UP
33+
*
34+
.Get the Name
35+
.
36+
GETNAME
37+
KEYIN *P=19:6,*DVRV=NAME
38+
GOTO START IF UP
39+
*
40+
.Get the Address
41+
.
42+
GETADDR
43+
KEYIN *P=19:7,*DVRV=ADDRESS
44+
GOTO GETNAME IF UP
45+
*
46+
.Get the City
47+
.
48+
GETCITY
49+
KEYIN *P=19:8,*DVRV=CITY
50+
GOTO GETADDR IF UP
51+
*
52+
.Get the State
53+
.
54+
GETSTATE
55+
KEYIN *P=19:9,*DVRV=STATE
56+
GOTO GETCITY IF UP
57+
*
58+
.Get the Zipcode
59+
.
60+
GETZIP
61+
KEYIN *P=19:10,*DVRV=ZIP
62+
GOTO GETSTATE IF UP
63+
*
64+
.Get the Balance
65+
.
66+
GETBAL
67+
KEYIN *P=19:11,*DVRV=BALANCE
68+
GOTO GETZIP IF UP
69+
.
70+
ANS DIM 1
71+
KEYIN *IN,*P=1:24,*EL,"Another Entry? ",ANS
72+
GOTO GETBAL IF UP
73+
CMATCH "Y",ANS
74+
GOTO START IF EQUAL
75+
.
76+
QUIT
77+
STOP
78+
*
79+
.Chain to Exercise 10
80+
.
81+
LAB10
82+
TRAP CHAINERR IF CFAIL
83+
CHAIN "LAB10"
84+
STOP
85+
*
86+
.Lab 1 not found
87+
.
88+
CHAINERR
89+
KEYIN *B,*HD,"Lab 1 program not found.",ANS
90+
STOP

‎courses/introduction/LabExercises/lab04.pls‎

Lines changed: 57 additions & 0 deletions

0 commit comments

Comments
 (0)