1  REM ***** THIS PROGRAM LISTS TIMESHARE USERS *****
2  REM ********  BY ID/SYS, NAME, OR DIV/LOC  *******
5  DIM A$[72],B$[2],C$[9],P$[12]
10  P$="            "
15  I2=0
20  FILES MASTER,NAMSRT,LOCSRT
25  PRINT "WHICH FORMAT? (FOR LIST, TYPE '0')"
30  INPUT I1
35  IF I1<1 OR I1>6 THEN 45
40  GOTO I1 OF 110,110,110,100,85,9999
45  PRINT "1=ID ORDER"
50  PRINT "2=NAME ORDER"
55  PRINT "3=DIV/LOC ORDER"
60  PRINT "4=ALL"
65  PRINT "5=ID, LESS P/W"
70  PRINT "6=END"
75  PRINT 
80  GOTO 25
85  I2=5
90  I1=1
95  GOTO 110
100  I2=4
105  FOR I1=1 TO 3
110  READ #I1,1
115  IF I2#4 THEN 125
120  IF I1#1 THEN 135
125  PRINT "ENTER DATE"
130  INPUT C$
135  S=S1=0
140  READ #I1;A$,T1,D1,M1,M2,M3
145  IF I2#5 THEN 155
150  A$[49,60]=P$
155  S1=S1+1
160  GOTO 170
165  S1=0
170  PRINT '12
175  S=S+1
180  PRINT  USING 185;C$,S
185  IMAGE 5X,9A,56X,"PAGE ",DD
190  PRINT 
195  PRINT TAB(28)"BAEDP TIMESHARE SERVICE"
200  PRINT 
205  PRINT TAB(27)"CUSTOMER INFORMATION LIST"
210  PRINT 
215  GOTO I1 OF 220,230,240
220  PRINT  USING 505
225  GOTO 245
230  PRINT  USING 510
235  GOTO 245
240  PRINT  USING 515
245  PRINT  USING 520
250  PRINT  USING 525
255  GOTO I1 OF 260,290,310
260  B$=A$[1,2]
265  PRINT  USING 530;A$[1,4],A$[5,5],A$[6,25],A$[26,27],A$[28,31]
270  GOSUB 450
275  IF B$#A$[1,2] THEN 165
280  IF S1=50 THEN 165
285  GOTO 265
290  PRINT  USING 535;A$[6,25],A$[1,4],A$[5,5],A$[26,27],A$[28,31]
295  GOSUB 450
300  IF S1=50 THEN 165
305  GOTO 290
310  B$=A$[26,27]
315  PRINT  USING 540;A$[26,27],A$[28,31],A$[6,25],A$[1,4],A$[5,5]
320  GOSUB 450
325  IF B$#A$[26,27] THEN 165
330  IF S1=50 THEN 165
335  GOTO 315
450  PRINT  USING 545;A$[32,45],A$[46,48],A$[49,60],A$[61,72]
455  IF  END #I1 THEN 550
460  READ #I1;A$,T1,D1,M1,M2,M3
465  IF I2#5 THEN 475
470  A$[49,60]=P$
475  S1=S1+1
480  RETURN 
500  REM *** MAIN IMAGES ***
505  IMAGE#,2X,"ID/SYS",5X,"NAME",12X,"DIV/LOC"
510  IMAGE#,6X,"NAME",12X,"ID/SYS",X,"DIV/LOC"
515  IMAGE#,2X,"DIV/LOC",5X,"NAME",12X,"ID/SYS"
520  IMAGE 2X,"BLDG",9X,"BC",2X,"PASSWORD",5X,"PHONE #"
525  IMAGE 40("-"),40("-")
530  IMAGE#,2X,4A,X,A,X,20A,2A,"-",4A
535  IMAGE#,2X,20A,4A,X,A,X,2A,"-",4A
540  IMAGE#,2X,2A,"-",4A,X,20A,4A,X,A
545  IMAGE X,14A,3A,X,12A,X,12A
550  IF I2=4 THEN 560
555  GOTO 9999
560  NEXT I1
9999  END 
