-
Notifications
You must be signed in to change notification settings - Fork 8
/
GLDDAT.txt
73 lines (73 loc) · 1.41 KB
/
GLDDAT.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
.job glddat
.log
*
* this program will delete all files for
* generl ledger key number #0 on disk #1
*
* do you wish to continue? (y/n)
*
.nolog
.enter 5
.skip to fin if y ne #5
.fspec gl#0a on #1 6=size
.skip 1 if #6 eq 0
.del gl#0a on #1
.fspec gl#0b on #1 6=size
.skip 1 if #6 eq 0
.del gl#0b on #1
.fspec gl#0c on #1 6=size
.skip 1 if #6 eq 0
.del gl#0c on #1
.fspec gl#0d on #1 6=size
.skip 1 if #6 eq 0
.del gl#0d on #1
.fspec gl#0e on #1 6=size
.skip 1 if #6 eq 0
.del gl#0e on #1
.fspec gl#0f on #1 6=size
.skip 1 if #6 eq 0
.del gl#0f on #1
.fspec gl#0g on #1 6=size
.skip 1 if #6 eq 0
.del gl#0g on #1
.fspec gl#0h on #1 6=size
.skip 1 if #6 eq 0
.del gl#0h on #1
.fspec gl#0i on #1 6=size
.skip 1 if #6 eq 0
.del gl#0i on #1
.fspec gl#0j on #1 6=size
.skip 1 if #6 eq 0
.del gl#0j on #1
.fspec gl#0k on #1 6=size
.skip 1 if #6 eq 0
.del gl#0k on #1
.fspec gl#0l on #1 6=size
.skip 1 if #6 eq 0
.del gl#0l on #1
=pay
.log
* do you wish to delete the payroll files
* for key number #0 on disk #1? (y/n)
.nolog
.enter 6
.skip to fin if n eq #6
.skipr to pay if y ne #6
.fspec pr#0a on #1 6=size
.skip 1 if #6 eq 0
.del pr#0a on #1
.fspec pr#0b on #1 6=size
.skip 1 if #6 eq 0
.del pr#0b on #1
.fspec pr#0d on #1 6=size
.skip 1 if #6 eq 0
.del pr#0d on #1
*
=fin
.skip 2 if glmenu ne #4
#4
.end
s.con
* 6/12/79...written..ns
* 8/06/79...added deletion of payroll files as optional feature..ns