100 ! PROGRAM LISMAS.BAS
110 ! TO LIST ACCOUNT MASTER INDEX
120 DIM A$[10],B$[69]V,C$[1],D$[80],R$[80]V,E$[6]
130 R$="MASTER.INF/LN:80/RO/EN:320"
140 OPEN #3,R$
142 INPUT "OUTPUT DEVICE (TI:,LP:,LP1: [DON'T FORGET THE ':']) ",B$
145 IF B$<>"TI:" AND B$<>"LP:" AND B$<>"LP1:" THEN
	PRINT "* INVALID CHOICE *";CHR$(7) : GOTO 142
148 OPEN #4,B$+"/LN:90/WR"
150 R$="      LARRY FRANK DAN   DEANA HARVEYC.L.W.HANS  "
160 PRINT #4,"      U I C    OWNER  DESCRIPTION"
170 PRINT #4,"     --------- -----  ----------------------------------------"
180 INPUT LINE #3,D$
190 A$=SBS$(D$,1,10)
200 C$=SBS$(D$,11,1)
210 B$=SBS$(D$,12,69)
220 C=ASC(C$)
230 IF C=32 THEN C=C+16
240 C=6*(C-48)+1
250 E$=SBS$(R$,C,6)
260 J=0
270 ! TRUNCATE DESCRITION OF UIC
280 D=POS(B$,"   ")
290 B$=SBS$(B$,1,D)
300 PRINT #4,"     ";A$;E$;" ";;B$
310 GOTO 180
320 CLOSE 
330 RUN "MASTER"
340 END