Listing of file='LPCTLID1' on disk='vmedia/701-2721C.wvd.zip'
# Sector 139, program filename = 'LPCTLID1' 2300 DEFFN '109(L0$(1)) 2350 DIM I1$6,I2$8,I3$(24)62,I1,I2,I3,I4 : SELECT #10<L9$(2)> : ERRORF$="Invalid Device Address (Control File)" : RETURN 2550 I2$=L0$(1) : OR (I2$,20) : LIMITS T#10,I2$,I1,I2,I3,I4 : ERRORI4=ERR 2610 IF I4=2THEN GOTO 2650 : F$="Control File Does Not Exist" : RETURN 2650 DATA LOAD DA T#10,(I1+1)I3$() : MAT SEARCHI3$(),=HEX(000000)TO I1$STEP 11 : L5=(VAL(I1$,2)-1)/11 : FOR J=1TO L5 : STR(L3$(J),1)=STR(I3$(),11*J-7,8) : UNPACK(######)STR(I3$(),11*J-10,3)TO I3 : CONVERT I3TO I1$,(######) : $UNPACK(F=HEX(100110031002))I1$TO I1,I2,I3 : STR(L3$(J),10)=BIN(I2,2) : STR(L3$(J),12)=BIN(I3,2) 2825 IF I1=1THEN STR(L3$(J),9,1)="S" : ELSE IF I1=2THEN STR(L3$(J),9,1)="A" : ELSE STR(L3$(J),9,1)="C" : NEXT J : RETURN 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPCTLID1";HEX(22) 9100 DEFFN'1"SAVE T ()";HEX(22);"LPCTLID1";HEX(22)